RosettaCodeData/Task/Memory-allocation/FreeBASIC/memory-allocation-2.basic

Dim As Integer size = 12345
Dim As Integer mem = size-1

Sub Stack(s As Integer)
    Dim As Integer mem = s-1
    Print s; " bytes of stack allocated at " ; mem
End Sub

Stack(size)
Print size; " bytes of stack allocated at " ; mem