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

5 lines
172 B
Text

Dim As Integer size = 12345
Dim As Integer mem = size-1
Print size; " bytes of heap allocated at " ; mem
Clear (mem, , 10)
Print size; " bytes of heap allocated at " ; mem