home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 July / 1993-07.d64 / remover.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  46 lines
  1. 10 print"[147]":poke53280,6:poke53281,6
  2. 100 remover
  3. 110 for i=49152 to 49392:read d:poke i,d:c=c+d:next i
  4. 120 if c<>33534 then print "error in data statements"
  5. 130 data 24,165,43,105,2,133
  6. 140 data 253,165,44,105,0,133
  7. 150 data 254,32,204,192,176,60
  8. 160 data 24,165,253,105,2,133
  9. 170 data 253,165,254,105,0,133
  10. 180 data 254,160,0,140,240,192
  11. 190 data 177,253,240,8,201,143
  12. 200 data 240,37,200,76,33,192
  13. 210 data 152,24,105,3,32,219
  14. 220 data 192,32,204,192,176,18
  15. 230 data 24,165,253,105,2,133
  16. 240 data 253,165,254,105,0,133
  17. 250 data 254,160,0,76,33,192
  18. 260 data 76,51,165,192,0,240
  19. 270 data 1,136,152,32,219,192
  20. 280 data 160,0,177,253,240,4
  21. 290 data 200,76,92,192,152,141
  22. 300 data 239,192,173,240,192,201
  23. 310 data 0,208,22,24,173,239
  24. 320 data 192,105,5,141,239,192
  25. 330 data 56,165,253,233,5,133
  26. 340 data 253,165,254,233,0,133
  27. 350 data 254,24,165,253,72,109
  28. 360 data 239,192,133,251,165,254
  29. 370 data 72,105,0,133,252,160
  30. 380 data 0,177,251,145,253,32
  31. 390 data 191,192,32,204,192,176
  32. 400 data 3,76,151,192,104,133
  33. 410 data 254,104,133,253,56,165
  34. 420 data 45,237,239,192,133,45
  35. 430 data 165,46,233,0,133,46
  36. 440 data 160,0,76,48,192,230
  37. 450 data 251,208,2,230,252,230
  38. 460 data 253,208,2,230,254,96
  39. 470 data 24,165,254,197,46,208
  40. 480 data 7,165,253,197,45,208
  41. 490 data 1,56,96,141,239,192
  42. 500 data 24,165,253,109,239,192
  43. 510 data 133,253,165,254,105,0
  44. 520 data 133,254,96,0,0,0
  45. 530 data 0
  46.