home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 August / 1993-08.d64 / noscroll.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  412b  |  10 lines
  1. 5 poke53280,6:poke53281,6:print"[147]"
  2. 10 gosub 3000:end
  3. 3000 for i=828 to 875:read d:poke i,d:c=c+d:next
  4. 3010 if c<>6370 then print "error in data statements":end
  5. 3020 sys 828:poke 59639,1:poke 64982,53:poke 1,53
  6. 3030 return
  7. 3040 data 160,0,132,38,169,224,133,39,177,38,145,38,200,208,249,230,39,165
  8. 3050 data 39,201,0,208,241,160,0,132,38,169,160,133,39,177,38,145,38,200,208
  9. 3060 data 249,230,39,165,39,201,192,208,241,96,0
  10.