RosettaCodeData/Task/Memory-allocation/FreeBASIC/memory-allocation-2.basic
2023-07-01 13:44:08 -04:00

10 lines
232 B
Text

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