1 REM SAVE"GARBAGE.V1.3",8
2 GOTO300
22 REM========MEMORY CHECK===========
24 REM"START OF BASIC PROGRAM:";PEEK(43)+256*PEEK(44)
26 PRINT"[211]TART OF SIMPLE VARIABLES:";PEEK(45)+256*PEEK(46)
28 PRINT"[197]ND OF SIMPLE VARIABLES:";PEEK(47)+256*PEEK(48)-1
29 PRINT"[211]TART OF ARRAYS:           ";PEEK(47)+256*PEEK(48)
30 PRINT"[197]ND OF ARRAYS:            ";PEEK(49)+256*PEEK(50)-1
31 PRINT"[195]URRENT BOTTOM OF STRINGS:";PEEK(51)+256*PEEK(52)
32 PRINT"[208]REVIOUS BOTTOM OF STRINGS:";PEEK(53)+256*PEEK(54)
40 RETURN
64 REM========PRINT AT=======
66 POKE 783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:PRINTW$
300 POKE53280,1:POKE53281,1:POKE646,2
302 CLR:Z1=7453: Z=50
304 DIMJ,G,G1,I:DIMA$(Z):DIMA(Z1):FORI=1TOZ:A$(I)=STR$(RND(0)):NEXT
305 PRINT"[147]"CHR$(14)
306 GOSUB22:PRINT
308 G=TI:J=FRE(0):G1=TI:PRINT "[199]ARBAGE COLLECTION TIME--"G1-G
320 G=TI:FORI=1TO70:A$="1234567890"+"1234567890"+"1234567890":NEXT
324 PRINT:PRINT"TIME--"TI-G
330 LIST300-324