home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD036B.D64 / xtra (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  789 b   |  23 lines
  1. 1 REM SAVE"GARBAGE.V1.3",8
  2. 2 GOTO300
  3. 22 REM========MEMORY CHECK===========
  4. 24 REM"START OF BASIC PROGRAM:";PEEK(43)+256*PEEK(44)
  5. 26 PRINT"[211]TART OF SIMPLE VARIABLES:";PEEK(45)+256*PEEK(46)
  6. 28 PRINT"[197]ND OF SIMPLE VARIABLES:";PEEK(47)+256*PEEK(48)-1
  7. 29 PRINT"[211]TART OF ARRAYS:           ";PEEK(47)+256*PEEK(48)
  8. 30 PRINT"[197]ND OF ARRAYS:            ";PEEK(49)+256*PEEK(50)-1
  9. 31 PRINT"[195]URRENT BOTTOM OF STRINGS:";PEEK(51)+256*PEEK(52)
  10. 32 PRINT"[208]REVIOUS BOTTOM OF STRINGS:";PEEK(53)+256*PEEK(54)
  11. 40 RETURN
  12. 64 REM========PRINT AT=======
  13. 66 POKE 783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:PRINTW$
  14. 300 POKE53280,1:POKE53281,1:POKE646,2
  15. 302 CLR:Z1=7453: Z=50
  16. 304 DIMJ,G,G1,I:DIMA$(Z):DIMA(Z1):FORI=1TOZ:A$(I)=STR$(RND(0)):NEXT
  17. 305 PRINT"[147]"CHR$(14)
  18. 306 GOSUB22:PRINT
  19. 308 G=TI:J=FRE(0):G1=TI:PRINT "[199]ARBAGE COLLECTION TIME--"G1-G
  20. 320 G=TI:FORI=1TO70:A$="1234567890"+"1234567890"+"1234567890":NEXT
  21. 324 PRINT:PRINT"TIME--"TI-G
  22. 330 LIST300-324
  23.