home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Sprite-On (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  31 lines
  1. 10 rem *** sprite-on *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=53000
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<216then40
  10. 100 forj=12288to12351:pokej,255:nextj
  11. 110 print"the data is ok...":print
  12. 120 print"sys 53000 to use sprite-on...":end
  13. 130 data169,187,160,207,32,30,171,169,170,141,0,208,1644
  14. 140 data141,1,208,169,192,141,248,7,162,0,142,16,1427
  15. 150 data208,232,142,21,208,32,126,207,173,141,2,201,1693
  16. 160 data4,144,6,232,208,253,200,208,250,165,203,201,2074
  17. 170 data2,208,39,173,141,2,41,1,208,8,238,0,1061
  18. 180 data208,240,16,76,37,207,206,0,208,172,0,208,1578
  19. 190 data192,255,240,3,76,37,207,173,16,208,73,1,1481
  20. 200 data141,16,208,76,37,207,201,7,208,19,173,141,1434
  21. 210 data2,41,1,208,6,238,1,208,76,37,207,206,1231
  22. 220 data1,208,76,37,207,201,63,208,184,96,173,0,1454
  23. 230 data208,133,251,160,9,32,143,207,173,1,208,133,1658
  24. 240 data251,160,28,162,1,24,32,240,255,166,251,224,1794
  25. 250 data100,176,12,169,32,32,210,255,224,10,176,3,1399
  26. 260 data32,210,255,173,16,208,240,5,169,18,32,210,1568
  27. 270 data255,169,0,32,205,189,169,146,76,210,255,147,1853
  28. 280 data32,32,32,32,32,88,32,80,79,83,73,84,679
  29. 290 data73,79,78,32,32,32,32,32,32,32,32,32,518
  30. 300 data89,32,80,79,83,73,84,73,79,78,0,0,750
  31.