home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / xtra (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  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.