Compute! Gazette 1985 April/1985-04.d64/p2

Commodore BASIC | 1985-01-01 | 2.8 KB | 73 lines

2 s1=36874:s2=s1+1:s3=s2+1:v=s3+2:tp=36879
4 gosub110:b%=0:so=0:tx=0:x=rnd(0)
6 print"[147]":poke36869,255:sc=7680:q=30720:zz=25:w=1:me=2:pokev,15:za=2:poke37154,127
8 poketp,251:no=127:forl=1tozz:x=int(rnd(1)*506)
10 no=no+1:pokes2,no:ifno=>254thenno=127
12 pokesc+q+x,5:pokesc+x,21:pokes2,0:next:zz=zz+15:tr=int(rnd(1)*4)+6
14 forp=1totr:pokes3,240:ta=int(rnd(1)*506)+sc:poketa,22:poketa+q,2
16 ifint(rnd(1)*100)+1<=3thenpoketa,218:poketa+q,4
18 pokes3,0:next:sx=int(rnd(1)*506)+sc:pokesx,33:pokesx+q,6
20 po=int(rnd(1)*506)+sc:ifpo=sxthen20
22 pokepo,19:pokepo+q,0:forl=1to3:pokepo,19:forp=1to100:pokes2,200:next
24 pokepo,32:forp=1to100:pokes2,0:next:next:pokepo,19
26 ti$="000000"
28 ifti=>786thenpoketp,154:ifti=>966then62
30 pokes3,0:j=(peek(37137)and28)or(peek(37152)and128)
32 onabs((j-100)/4)-7goto50,50,34,,36,38,124,,,,40,50,50
34 dr=-1:no=165:goto42
36 dr=22:no=189:goto42
38 dr=-22:no=210:goto42
40 dr=1:no=225
42 pokes2,no:po=po+dr:ifpo>8187thenpo=po-506:pokepo-dr+506,32
44 ifpo<7680thenpo=po+506:pokepo-dr-506,32
46 ifpeek(po)<>32then64
48 pokepo-dr,32:pokepo,19:pokepo+q,0:pokes2,0
50 pokes1,128:pokesx,32:x=int(rnd(1)*8)+1
52 jj=(x=2)*22-(x=1)*22-(x=3)+(x=4)+(x=5)*23-(x=6)*23+(x=7)*21-(x=8)*21
54 sx=sx+jj:ifsx<7680thensx=sx+506:pokesx-jj,32
56 ifsx>8187thensx=sx-506:pokesx-jj,32
58 ifpeek(sx)=19thenpokesx-jj,33:pokesx+q-jj,6:pokepo,20:pokepo+q,0:goto78
60 pokesx,33:pokesx+q,6:pokes1,0:goto28
62 print"[144]took too long":pokepo,20:pokepo+q,0:goto82
64 ifpeek(po)=21orpeek(po)=33thenpokepo-dr,20:pokepo+q-dr,0:goto78
66 ifpeek(po)<>22then72
68 pokepo-dr,32:pokepo,19:pokepo+q,0:so=so+int(rnd(1)*10+1)*50:pokes3,230+b%:tx=tx+1
70 iftx>4then94
72 if peek(po)<>218thenb%=b%+2:goto48
74 pokepo-dr,32:pokepo,19:pokepo+q,0
76 print"[144]3000 points!":so=so+3000:a1%=1:pokes3,250:goto94
78 pokes1,0:pokes3,0:forp=0to53:pokes2,180-p:forl=1to20:next:next
80 me=me-1:ifme=>1thenzz=zz-15:print"[147]":goto8
82 print"[144]":forp=1to10:print"[144]game over":pokes1,128:forl=1to100:next
84 print"[145]          [145]":pokes1,0:forl=1to100:next:next:ifso>hsthenhs=so
86 poke36869,240:poke198,0:print"[147][144]score="so:print"wave"w:print"[144]again(y or n)"
88 getc$:ifc$="n"thenpoke37139,128:poke37154,255:end
90 ifc$="y"then4
92 goto88
94 bo=int(966-ti)*3:ifpeek(tp)=154thenbo=0
96 print"[144]wave";w;"over":tx=0:ifw=5orw=10orw=15orw=20orw=25then118
98 w=w+1:print"bonus="bo:so=so+bo:print"score="so
100 print"men=";me:pokes1,0:pokes2,0:pokes3,0:pokes3+1,0:print"zaps="za:b%=0
102 readn,d:ifn=-1thenpokes2+a1%,0:a1%=0:goto108
104 pokes2+a1%,n:forp=1tod:next:goto102
106 data200,180,0,5,210,180,0,5,220,200,0,5,230,300,0,5,220,120,0,5,230,450,-1,-1
108 forp=1to2500:next:print"[147]":restore:goto8
110 poketp,30:print"[147]"spc(6)"apple hunt":print"[144]high score="hs
112 print"[156]hit any key to start"
114 geta$:ifa$=""then114
116 return
118 pokes2,0:forp=1to10:print"extra man & zap":pokes3,240:forl=1to100:next
120 print"[145]               ":pokes3,0:forl=1to100:next:next:print""
122 me=me+1:za=za+1:goto98
124 b=peek(37137)and32:ifb<>0then50
126 ifza=<0then50
128 za=za-1:poketp,203
130 pokepo+1,192:pokepo-1,192:pokepo-22,221:pokepo+22,221
132 pokepo+21,206:pokepo-21,206:pokepo-23,205:pokepo+23,205
134 pokepo+1+q,0:pokepo-1+q,1:pokepo-22+q,2:pokepo+22+q,3
136 pokepo+21+q,4:pokepo-21+q,5:pokepo-23+q,6:pokepo+23+q,7
138 forl=1to100:pokes3+1,150:next:pokes3+1,0
140 ifpeek(sx)<>33thenso=so+1000:pokes3,240:print"[144]1000 points!":goto94
142 pokesx,32:sx=sc+int(rnd(1)*506)+1:pokepo+1,32:pokepo-1,32:pokepo-22,32:pokepo+22,32
144 pokepo+21,32:pokepo-21,32:pokepo-23,32:pokepo+23,32:poketp,251:ti$="000000":goto50