home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 December / 1992-12.d64 / cell (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  414b  |  12 lines
  1. 0 clr
  2. 10 rem programmer's page
  3. 100 poke 53280,0:poke 53281,0:print "[147]"
  4. 110 for i=12288 to 12295:poke i,0:poke i+40,0:next
  5. 120 for i=828 to 854:read d:poke i,d:c=c+d:next
  6. 130 if c<>3100 then print "error in data statements":end
  7. 140 poke 53272,(peek(53272) and 240) or 12:poke 1523,0:poke 55795,13:sys 828
  8. 150 data 162,7,173,17,208,48,251,173
  9. 160 data 17,208,16,251,189,0,48,024
  10. 170 data 105,1,157,0,048,208,233,202
  11. 180 data 16,242,96
  12.