home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 March
/
Ahoy_Magazine_88-03_1988_Double_L.d64
/
Curtains
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
371b
|
10 lines
0 print"[147] [195]urtains....."
1 a=700
2 forb=atoa+61:readc:pokeb,c:d=d+c:nextb
3 ifd<>10475thenprint"error in data...":end
4 data173,33,208,162,0,133,251,134,252,134,253,173
5 data134,2,141,33,208,165,253,208,7,230,252,230
6 data252,184,80,4,198,252,198,252,173,18,208,197
7 data252,144,249,165,251,141,33,208,173,18,208,208
8 data251,165,252,208,214,230,253,165,253,201,2,144,206,96