home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 May
/
1994-05b.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
740b
|
25 lines
100 poke53280,0:poke53281,0:print"[147]"
110 forx=832to894:reada:pokex,a:next
120 forn=0to7:poke2040+n,13:poke53287+n,n+7:next
130 x1=150:y1=150:x2=150:y2=150
140 v1=2:w1=3:v2=-3:w2=-4:poke53269,255
150 x1=x1+v1:y1=y1+w1:x2=x2+v2:y2=y2+w2
160 poke53248,x1:poke53249,y1:poke53250,x2:poke53251,y2
170 if(x1>220)or(x1<50)thenv1=-v1:gosub220
180 if(y1>220)or(y1<50)thenw1=-w1:gosub220
190 if(x2>220)or(x2<50)thenv2=-v2:gosub220
200 if(y2>220)or(y2<50)thenw2=-w2:gosub220
210 goto150
220 poke54273,16:poke54278,242
230 poke54296,15:poke54276,129
240 poke54276,128:return
1000 data 0,60,0,1,255,128,7
1010 data 255,224,15,255,240,31,255
1020 data 248,63,255,252,127,255,254
1030 data 127,255,254,255,255,255,255
1040 data 255,255,255,255,255,255,255
1050 data 255,255,255,255,127,255,254
1060 data 127,255,254,63,255,252,31
1070 data 255,248,15,255,240,7,255
1080 data 224,1,255,128,0,60,0