home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 November
/
1984-11.d64
/
kaylon_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
97 lines
5 poke53281,13:poke53280,13:print"[147]"chr$(142):poke52,48:poke56,48:clr
10 poke51,0:poke55,0
15 poke214,12:print:poke211,3:print"[144]loading characters......please wait"
20 poke56334,peek(56334)and254:poke1,peek(1)and251
25 fori=0to511:pokei+12288,peek(i+53248):pokei+12800,peek(i+53760)
30 pokei+13312,peek(i+54272):next
35 poke1,peek(1)or4:poke56334,peek(56334)or1
40 ford=12544to12544+63:ready:poked,y:next
45 poke53281,6:poke53280,12:print"[147] welcome to the planet kaylon"
50 sd=54272:forl=sdtosd+24:pokel,0:next:pokesd+9,14
55 pokesd+6,240:pokesd+24,15:hf=sd+1:fl=sd:goto440
60 print"[147]":cl=0:sr=1:bs=4:poke53272,(peek(53272)and240)or12
65 lf=3:c=sd
70 tb$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
75 m$(1)=" ":m$(2)="$":co=(lv+1)/50
80 ford=1to3:ma$="":foras=1to40
85 b=1:ifrnd(ti)>.9-cothenb=2
90 ma$=ma$+m$(b):next
95 ondgoto100,105,110
100 a$=ma$:goto115
105 b$=ma$:goto115
110 c$=ma$
115 next
118 poke53280,1:poke53281,1
120 d$="!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
125 print"score[146]"tab(31)"left[146]":print"high[146]"tab(31)"level[146]"
130 print"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
135 print""tab(6)sctab(36)lf:print""tab(6)hitab(36)lv+1
140 print"[144]"a$""b$
145 print"[156]!!!!!! !!!!!!! !!!!!! !! !!!!! !!!!!!"
150 print"[144]"c$""a$:e$=""
155 printe$"[151]!!!!!"spc(30)"!!!!!";
160 print"[151]!!!!!!!!!!"spc(20)"!!!!!!!!!!";:print"[151]"d$;
165 poke1915,100:poke1915+c,5:poke1921,100:poke1921+c,5:poke1925,100
170 poke1925+c,5:poke1930,100:poke1930+c,5
175 print"[144]":po=1144:x=1:d=0
180 x=x+1:ifx>38then205
185 pokepo+c+x,cl:pokepo+x,34:print"[144]"left$(tb$,x)"[146]%[157][157][157] '&":gosub360
190 d=d+1:p=peek(197):ifp=60then210
195 ifd>38then180
200 goto190
205 print""tab(x-1)"[192][157][157] ":goto175
210 po=po+x:po=po+40:pokepo-40,100:pokepo,34:pokepo+c,cl
215 a$=right$(a$,39)+left$(a$,1):b$=right$(b$,1)+left$(b$,39)
220 c$=right$(c$,1)+left$(c$,39)
225 print""a$;:print""b$;:print""c$""a$
230 pk=peek(po):ifpk=35then240
235 ifpk<>34andpk<>32then295
240 m=m+1:ifm>srthenm=.:pokepo,32:po=po+40:ifpeek(po)<>32then295
245 pokepo,34:pokepo+c,cl:gosub375
250 p=peek(197)
255 ifp=60thenm=.:ls=peek(po+40):lc=peek(po+40+c)and15:gosub380:goto215
260 ifp=64then215
265 on-(p=18)goto285
270 on-(p=10)goto275:goto215
275 ifpeek(po-1)<>32then295
280 pokepo,32:po=po-1:pokepo,34:pokepo+c,cl:gosub375:goto215
285 ifpeek(po+1)<>32then295
290 pokepo,32:po=po+1:pokepo,34:pokepo+c,cl:gosub375:goto215
295 pk=peek(po):ifpk=100then325
300 ifpk=33thenpo=po-40
305 pokepo,91:pokepo+c,0:pokepo,86:pokepo+c,2:gosub365:pokesd+24,15
310 lf=lf-1:on-(lf=.)goto430:print""tab(36)lf""
315 pokepo,32
320 gosub355:goto175
325 pokepo,34:pokepo+c,.:bs=bs-1:ifbs=0thensc=sc+100:goto340
330 sc=sc+100:print""tab(6)sc
335 gosub355:goto175
340 sc=sc+((lv+1)*100):bs=4:print""tab(6)sc
345 print" "
346 print" bonus level"lv+1:lv=lv+1
350 ford=.to1500:next:print"[147]":goto75
355 print"[144]"left$(tb$,x)"[192][157][157][157] ":return
360 pokesd+4,17:pokehf,int(rnd(0)*50)+50:pokefl,250:pokesd+4,16:return
365 pokesd+4,129:formu=15to0step-1:pokehf,100:pokesd+24,mu:forll=1to5:next
370 next:pokesd+4,128:return
375 pokesd+4,33:pokehf,100:pokefl,250:pokesd+4,32:return
380 pokepo+40,35:pokepo+40+c,2:pokepo+40,ls:pokepo+40+c,lc:return
385 data,,,,,,,
390 data170,255,255,255,255,255,255,170
395 data24,60,102,126,126,24,36,195
400 data24,36,66,66,36,24,24,0
405 data24,60,126,254,127,60,8,0
410 data0,0,0,0,0,0,126,255
415 data170,255,255,255,255,254,252,248
420 data85,255,255,255,255,127,63,31
425 data215,225,231,235,231,235
430 ifsc>hithenhi=sc:print"[144]"tab(6)hi
435 print"[147] [144]game over"
436 print" [144]score"sc
437 print" press b[146] to begin":poke198,0:goto455
440 print" press (space bar) to release and fire retro-rockets."
445 print" press (a)-to move left and (d)-to move right."
450 print"press b[146] to begin...":poke198,0
455 getz$:ifz$<>"b"then455
460 lv=.:sc=.:m=.:restore:co=.:goto60