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

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