home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 September / 1985-09.d64 / quickscan (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  754b  |  16 lines
  1. 100 printchr$(147);chr$(144)
  2. 110 forad=704to766:readda:pokead,da:next: rem sprite
  3. 120 forad=49152to49251:readda:pokead,da:    cs=cs+da:next:rem m-l program
  4. 130 ifcs<>11879thenprint"error in data statements":end
  5. 140 print"enter sys 49152 to activate sprite-bar"
  6. 1000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  7. 1001 data0,0,0,0,0,85,85,85,85,85,85,85,85,85
  8. 1002 data85,85,85,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9. 1003 data0,0,0,0,0,0,0,0,0,0,0,0,169
  10. 2000 data11,160,7,153,247,7,136,208,250,169,24,160,0,24,153,0,208,105,48
  11. 2001 data200,200,144,247,169,96,141,16,208,169,8,141,10,208,169,56,141,12
  12. 2002 data208,169,127,141,28,208,141,27,208,141,29,208,141,23,208,141,21
  13. 2003 data208,169,1,141,37,208,120,169,74,160,192,141,20,3,140,21,3,88,96
  14. 2004 data24,173,134,2,141,38,208,165,214,10,10,10,105,34,160,14,153,255
  15. 2005 data207,136,136,208,249,76,49,234
  16.