home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 December / 1992-12.d64 / charzoom (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  676b  |  28 lines
  1. 0 clr
  2. 100 data 169,208,162,192,160,0,132,34,132,36,133,35,134,37,120
  3. 110 data 169,51,133,1,177,34,145,36,200,208,249,230,35,166,37,232
  4. 120 data 224,200,208,233,169,55,133,1,88,96
  5. 130 data 162,0,160,6,173,17,208,205,0,205,141,0,205,176,245,136
  6. 140 data 208,242,173,120,192,72,185,121,192,153,120,192,200,192,8
  7. 150 data 208,245,104,141,127,192,232,224,8,208,216
  8. 160 data 32,228,255,168,240,208,96
  9. 200 for j=52224 to 52313
  10. 210 read x:t=t+x
  11. 220 poke j,x
  12. 230 next j
  13. 240 if t<>12735 then stop
  14. 300 sys 52224
  15. 310 poke 56576,4
  16. 320 poke 53272,32
  17. 330 poke 648,200
  18. 400 print chr$(147)
  19. 410 print "compute magazine"
  20. 420 print "     for"
  21. 430 print "commodore magic!"
  22. 440 print
  23. 450 print "press any key to stop!"
  24. 460 sys 52265
  25. 500 poke 56576,7
  26. 510 poke 53272,20
  27. 520 poke 648,4
  28.