10 POKE55,152:POKE56,28:CLR
20 FORI=1TO95:READA:X=X+A:NEXT:IFX<>12828THENPRINT"ERROR IN DATA STATEMENTS.":STOP
30 RESTORE:FORI=828TO866:READA:POKEI,A:NEXT
40 DATA 173,5,144,41,3,10,10
50 DATA 105,16,133,254,169,128
60 DATA 133,252,169,0,133,251,133
70 DATA 253,168,162,2,177,251,145,253
80 DATA 200,208,249,230,252,230,254
90 DATA 202,208,242,96
100 POKE36878,15:DIMN(16):FORI=1TO16:READN(I):NEXT
110 DATA135,163,175,195,207,209,215,225,231,232,235,240,237,235,237,240
120 POKE36879,25:PRINT"[147]"CHR$(142)CHR$(8)SPC(6)"[144]WELCOME TO"
130 PRINTSPC(5)"[144]*A[159]P[156]PLE [158]H[144]UN[159]T[156]*":GOSUB600
140 PRINT"     DO YOU NEED"SPC(10)"INSTRUCTIONS?"SPC(11)"[146](Y OR N)"
150 GETY$:IFY$=""OR(Y$<>"Y"ANDY$<>"N")THEN150
160 Y=(Y$="Y"):PRINT"[147]":POKE36869,255:SYS828:GOSUB500:IFNOT Y THEN440
170 PRINT"[147]":POKE36879,251
180 PRINTSPC(5)"[156]YOU ARE:[146][144]S":PRINTSPC(5)"[156]MONSTER:[146]!":PRINTSPC(5)"[156]APPLE:[146]V"
190 PRINTSPC(5)"[156]TREE:[146]U":PRINTSPC(5)"[156]RUBY:[218]"
200 PRINT"[144]SCORING:":PRINT"V:50-500 POINTS":PRINT"!:1000 POINTS"
210 PRINT"[156][218]:3000 POINTS"
220 GOSUB640
230 PRINT"[147][144]S MUST GRAB 5 [146]V       BEFORE THE TIME IS UP"
240 PRINT"[144]THE [146]![144] EATS THE [146]V[144] AND  THE[146] U[144]"
250 PRINT"[144]EVERY WAVE THERE ARE  MORE [146]U[144]
260 [153]"USE THE JOYSTICK TO   MOVE WAITSTOPS IN 4 DIRECTIONS"
270 [141]640
280 [153]"LOADSTOPS WILL LOSE IF HE"
290 [153][166]4)"HITS A WAITU OR IS"
300 [153][166]2)"TOUCHED BY THEWAIT !STOP"
310 [153]"YOUR GAME IS OVER IF STOPWAITS":[153][166]4)"TAKES TOO LONG"
320 [141]640
330 [153]"LOADEXTRA WAITSTOPS & ZAP AFTER   WAVES 5,10,15,20 & 25"
340 [153]"WHEN WAITSTOPS IS RUNNING OUT OF TIME, THE SCREEN   WILL TURN RED"
350 [153]"THE FASTER WAITSTOPS FINISHES A WAVE, THE MORE BONUSPOINTS ARE AWARDED
360 GOSUB640
370 PRINT"[147]PRESSING THE JOYSTICK BUTTON RELEASES A ZAP"
380 PRINT"[144]S MAY ONLY FIRE A ZAP WHEN STATIONARY"
390 PRINT"A ZAP DESTROYS [146]U      SURROUNDING IT IN 8   DIRECTIONS AND RESETS TIME
400 [153]"STOPUSING A ZAP CHASES THE";
410 [153]"WAIT!STOP TO ANOTHER PLACE IN THE FOREST OR MAKES   THE WAIT! STOPDISAPPEAR"
420 [153]"HIT ANY KEY TO START"
430 [161]A$:[139]A$[178]""[167]430
440 [153]"LOAD":[151]36879,25:[151]36869,240
450 [153]"STOPFOR TAPE, PRESS PLAY"
460 [153]"STOP  JUST A FEW MOMENTS     WHILE I LOAD THE        SECOND PART"
470 S$[178]"L(null)"[170][199](34)[170]"P2"[170][199](34)[170]",8:"[170][199](131)
480 [143] CHANGE 1 TO 8 IN PRIOR LINE IF YOU ARE USING A DISK DRIVE
490 [129]I[178]1[164][195](S$):[151]630[170]I,[198]([202](S$,I)):[130]:[151]198,I:[128]
500 [129]C[178]7320[164]7327:[135]A:[151]C,A:[130]
510 [131]60,66,165,129,165,153,66,60
520 [129]C[178]7432[164]7439:[135]A:[151]C,A:[130]
530 [131]195,34,20,156,126,29,8,119
540 [129]C[178]7328[164]7335:[135]A:[151]C,A:[130]
550 [131]60,66,165,129,153,165,66,60
560 [129]C[178]7336[164]7343:[135]A:[151]C,A:[130]
570 [131]0,28,62,127,127,62,8,8
580 [129]C[178]7344[164]7351:[135]A:[151]C,A:[130]:[142]
590 [131]6,8,60,126,126,126,60,24
600 [151]36878,15:[129]O[178]0[164]8:[129]L[178]1[170]O[164]8[170]O:N[178]N(L)
610 [151]36876,N:[129]T[178]1[164]50:[130]:[130]:[130]:[129]V[178]15[164]0[169][171]1:[151]36878,V:[129]T[178]1[164]300:[130]
620 [151]36878,0:[151]36876,0
630 [142]
640 [153]"STOPHIT ANY KEY"
650 [161]A$:[139]A$[178]""[167]650
660 [142]