ALLOCATE Example
CLEAR SCREEN
PRINT "Total Memory "&SYSTEM$("AVAILABLE MEMORY")
PRINT "***ALLOCATE TEST #4***"
ALLOCATE A$[32000],B(1000),INTEGER C(10)
PRINT "Memory after allocation "&SYSTEM$("AVAILABLE MEMORY")
DEALLOCATE A$,C(*),B(*)
PRINT "Memory freed "&SYSTEM$("AVAILABLE MEMORY")
ALLOCATE A$[32000],B(1000)
PRINT "Memory allocated without the integer array "&SYSTEM$("AVAILABLE MEMORY")
PRINT
PRINT "Memory before SUB call "&SYSTEM$("AVAILABLE MEMORY")
PRINT "Calling SUB..."
Yahoo
PRINT "Memory after SUB call "&SYSTEM$("AVAILABLE MEMORY")
PRINT
ALLOCATE Str$[90]
PRINT "Memory after allocated string "&SYSTEM$("AVAILABLE MEMORY")
ALLOCATE REAL D(8)
PRINT "Memory after allocated REAL array "&SYSTEM$("AVAILABLE MEMORY")
END
!
SUB Yahoo
PRINT "Memory in SUB call "&SYSTEM$("AVAILABLE MEMORY")
ALLOCATE COMPLEX Y(4)
PRINT "Memory after allocation of COMPLEX array "&SYSTEM$("AVAILABLE MEMORY")
SUBEND