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