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

9 lines
191 B
Text

size% = 12345
PROCstack(size%)
END
DEF PROCstack(s%)
LOCAL mem%
DIM mem% LOCAL s%-1
PRINT ; s% " bytes of stack allocated at " ; mem%
ENDPROC