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