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