DEALLOCATE Example
10 ! *****************************************
20 !
30 ! TEST STACK MANIPULATIONS FOR ALLOCATE #4
40 !
50 ! *****************************************
60 CLEAR SCREEN
70 PRINT "Total Memory "&SYSTEM$("AVAILABLE MEMORY")
80 ON ERROR GOTO L140
90 ALLOCATE A$[32000],B(1000),INTEGER C(10)
100 PRINT "Memory after allocation "&SYSTEM$("AVAILABLE MEMORY")
110 DEALLOCATE A$,C(*),B(*)
120 PRINT "Memory freed "&SYSTEM$("AVAILABLE MEMORY")
130 ALLOCATE A$[32000],B(1000)
140 PRINT "Memory allocated again without the integer array "&SYSTEM$("AVAILABLE MEMORY")
150 PRINT
160 PRINT "Memory before SUB call "&SYSTEM$("AVAILABLE MEMORY")
170 PRINT "Calling SUB..."
180 Yahoo
190 PRINT "Memory after SUB call "&SYSTEM$("AVAILABLE MEMORY")
200 PRINT
210 ALLOCATE Str$[90]
220 PRINT "Memory after allocated string "&SYSTEM$("AVAILABLE MEMORY")
230 ALLOCATE REAL D(8)
240 PRINT "Memory after allocated REAL array "&SYSTEM$("AVAILABLE MEMORY")
250 STOP
260 L140: PRINT "Test failed"
270 END
280 !
290 SUB Yahoo
300 PRINT "Memory in SUB call "&SYSTEM$("AVAILABLE MEMORY")
310 ALLOCATE COMPLEX Y(4)
320 PRINT "Memory after allocation of COMPLEX array "&SYSTEM$("AVAILABLE MEMORY")
330 SUBEND
