home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 August / 1986-08.d64 / colorbands (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  420b  |  11 lines
  1. 10 forj=49152to49230:reada:ck=ck+a:pokej,a:next
  2. 20 if ck<>8670thenprint"please check data statements for an error."
  3. 30 sys49152:list
  4. 100 data120,169,28,141,20,3,169,192,141,21,3,169
  5. 110 data1,141,26,208,169,27,141,17,208,169,127,141
  6. 120 data13,220,88,96,169,1,141,25,208,173,18,208
  7. 130 data170,74,74,74,74,141,32,208,74,141,33,208
  8. 140 data201,7,240,9,138,24,105,32,141,18,208,208
  9. 150 data5,169,16,141,18,208,173,13,220,41,1,240
  10. 160 data3,76,49,234,76,188,254
  11.