home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 July
/
1993-07.d64
/
odin
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
6KB
|
33 lines
10 rem odin
11 rem
12 rem frank lindsey
13 rem rt. 14 box 74
14 rem bowling green
15 rem kentucky, usa
16 rem (502)781-3117
17 rem
18 rem let's hear it for free software!
19 rem
20 rem let's also hear it for making a
21 rem buck. watch for my other commer-
22 rem cially available programs.
23 rem
100 poke53280,3:poke53281,6
110 print"[147][152][142] [169] [223][146] [223][146] [146] [223][146] [146]"
120 print" [146] [146] [146] [223][146] [146] [223][146] [146]"
130 print" [146] [146] [146] [146] [146] [146][223] [223] [146] "
140 print" [146] [146] [146] [169] [146] [146] [223] [146] "
150 print" [223] [146][169] [146][169] [146] [146] [223] [146] "
160 print"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
170 print"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
180 print" shoot obstacles while avoiding
181 [153]" collisions or being shot
182 print" pause with the shift key
183 [153]" *press any key to start*
200 m=0:n=20:mc=0:nc=0
210 m=m+1:ifm>39thenm=0:mc=mc+1:ifmc>15thenmc=0
220 n=n+1:ifn>39thenn=0:nc=nc+1:ifnc>15thennc=0
230 poke55336+m,mc:poke55656+n,nc
240 geta$:ifa$=""then210
250 sys3122