10 REM    CAVE OF THE ICE APE BY JC HILTY
12 REM    CAVEAPE
20 GOSUB680
30 SYS943:POKE2040,P:P=P+1:IFP=194THENP=192
40 ONLGOSUB90,110,130,150,170:SYS943
50 W1=PEEK(V+30):IFW1AND1THEN200
60 W2=PEEK(V+31):IFW2AND1THEN410
70 SYS943:SYS960,7,33:PRINTVAL(TI$):IFVAL(TI$)>40THEN410
80 GOTO30
90 X1=X1+Z:IFX1>236THENPOKEV+3,124:X1=236:L=2
100 POKEV+2,X1:RETURN
110 X1=X1-Z:IFX1<36THENX1=36:POKEV+3,156:L=3
120 POKEV+2,X1:RETURN
130 X1=X1+Z:IFX1>236THENPOKEV+3,188:X1=236:L=4
140 POKEV+2,X1:RETURN
150 X1=X1-Z:IFX1<36THENX1=36:POKEV+3,220:L=5
160 POKEV+2,X1:RETURN
170 X1=X1+Z:IFX1>236THENX1=32:L=1:POKEV+21,61:POKEV+3,92:POKEV+2,X1:GOTO190
180 POKEV+2,X1:RETURN
190 POKEV+21,63:RETURN
200 IFW1AND2THEN410
202 SYS65418
210 FORX=0TO24:POKES+X,0:NEXT:POKES,150:POKES+1,200:POKES+5,8:POKES+6,248
220 POKES+24,15:POKES+4,17:FORT=0TO200:NEXT:FORX=0TO24:POKES+X,0:NEXT
230 TN=TN+1:SYS960,10,33:PRINTTN:IFTN=3THEN530
240 A=INT(14*RND(5)+1)
250 ONAGOSUB270,280,290,300,310,320,330,340,350,360,370,380,390,400
260 W1=PEEK(V+30):W2=PEEK(V+31):POKES+6,240:POKES+24,15:SYS49223:GOTO30
270 POKEV+8,36:POKEV+9,94:RETURN
280 POKEV+8,140:POKEV+9,94:RETURN
290 POKEV+8,232:POKEV+9,94:RETURN
300 POKEV+8,36:POKEV+9,126:RETURN
310 POKEV+8,140:POKEV+9,126:RETURN
320 POKEV+8,232:POKEV+9,126:RETURN
330 POKEV+8,36:POKEV+9,158:RETURN
340 POKEV+8,140:POKEV+9,158:RETURN
350 POKEV+8,232:POKEV+9,158:RETURN
360 POKEV+8,36:POKEV+9,190:RETURN
370 POKEV+8,140:POKEV+9,190:RETURN
380 POKEV+8,232:POKEV+9,190:RETURN
390 POKEV+8,36:POKEV+9,222:RETURN
400 POKEV+8,140:POKEV+9,222:RETURN
410 SYS65418
411 POKE2040,198:FORX=0TO24:POKES+X,0:NEXT:H=PEEK(V+1):POKES+24,15
420 POKES+5,80:POKES+12,160:POKES+6,255:POKES+13,252:POKES+4,17:POKES+4,16
430 FORI=254TO50STEP-4:POKES+1,I:FORJ=1TO5:NEXT:NEXT
440 POKES+1,10:POKES+8,1:POKES+5,112:POKES+6,252:POKES+4,129:POKES+11,129
450 FORX=0TO130:H=H+1:IFH>222THENH=222
460 POKEV+1,H:NEXT:FORX=0TO24:POKES+X,0:NEXT:POKES+6,240:POKES+24,15:SYS49223
470 LI=LI-1:SYS960,17,34:PRINTLI:IFLI=0THEN1050
480 SYS960,7,34:PRINT"   ":TN=0:SYS960,10,33:PRINTTN:TI$="000000"
490 L=1:POKE2040,P:POKEV,232:POKEV+1,222:POKEV+2,36:POKEV+3,92:X1=36
500 A=INT(14*RND(6)+1)
510 ONAGOSUB270,280,290,300,310,320,330,340,350,360,370,380,390,400
520 W1=PEEK(V+30):W2=PEEK(V+31):GOTO30
530 SC=SC+100:SYS960,20,33:PRINTSC:POKEV,112:POKEV+1,58:POKEV+21,127
540 SYS960,1,19:PRINT"[158]MY HERO!!":GOSUB630
550 TN=0:SYS960,10,33:PRINTTN:SYS960,7,34:PRINT"   "
560 SYS960,1,19:PRINT"[154]HELP ME!!"
570 POKEV,232:POKEV+1,222
580 A=INT(14*RND(6)+1)
590 ONAGOSUB270,280,290,300,310,320,330,340,350,360,370,380,390,400
600 POKEV+2,36:POKEV+3,92:X1=36:L=1:W1=PEEK(V+30):W2=PEEK(V+31)
610 Z=Z+1:IFZ>12THENZ=12
620 TI$="000000":POKEV+21,63:GOTO30
630 RESTORE
631 SYS65418
640 FORX=0TO24:POKES+X,0:NEXT:POKES+24,15:POKES+5,85:POKES+6,85:POKES+4,33
650 FORX=0TO5:READH1,N1:POKES+1,H1:POKES,N1
660 IFH1=50THENFORT=0TO400:NEXT
670 FORT=0TO200:NEXT:NEXT:FORX=0TO24:POKES+X,0:NEXT:POKES+6,240:POKES+24,15
672 SYS49223:RETURN
680 POKE53280,0:POKE53281,0:PRINT"[147][156]"TAB(11)"CAVE OF THE ICE APE"
690 PRINTTAB(15)"BY JC HILTY":PRINTTAB(10)"READING DATA...."
692 POKE147,0:SYS57812"APEMUSIC",8,1:SYS62631:S=54272:FORX=0TO24:POKES+X,0:NEXT
694 POKES+6,240:POKES+24,15:SYS49223
700 READH1,N1:IFH1=0THEN720
710 GOTO700
720 FORX=828TO949:READA:POKEX,A:NEXT
730 FORX=960TO975:READA:POKEX,A:NEXT
740 FORX=12288TO12798:READA:POKEX,A:NEXT
750 HS=0
760 SC=0:V=53248:LI=4:TN=0:P=192:L=1:X1=36:Z=4:TI$="000000"
770 PRINT"[147][156] [146]      [154][209]"TAB(30)"[156] [146]********"
780 PRINT"[156] [146]     [154][209][209][209]"TAB(19)"[158]HELP ME!!  [156] [146]  CAVE"
790 PRINT"[156] [146]    [154][209][209][209][209][209]"TAB(30)"[156] [146] OF THE"
800 PRINT"[156] [146]   [154][209][209][209][209][209][209][209]"TAB(30)"[156] [146]ICE APE"
810 PRINT"[156][169][169][169][223][223][169][169][169][223][223][169][169][169][169][223][223][169][223][223][223][169][169][223][223][223][169][169][223][223][169][223]********"
820 PRINT"[156] "TAB(30)" ":PRINT" "TAB(30)" [146]  [158]TIMER"
830 PRINT"[156] "TAB(30)" "
840 PRINT"[156][169][169][223][223][223][169][169][223][223][223][223][169][169][169][169][223][223][223][223][169][223][169][223][169][169][223][223]    "
850 PRINT" "TAB(30)" [146]  [158]TNT[156]"
860 PRINT" "TAB(30)" [146]  [154]";TN
870 PRINT"[156] "TAB(30)" ":PRINT" [146]   [223][223][169][223][223][223][169][169][223][169][223]   [169][169][223][169][223][169][223][223][223][169][169][169] "
880 FORX=0TO2:PRINT" "TAB(30)" ":NEXT
890 PRINT" [146][169][169][169][223][223][169][223][169][223][169][169][169][223][223][223][169][169][223][223][169][169][223][223][223][169][169]    [146]  [158]LIVES"
900 PRINT"[156] "TAB(30)" [146]  [154]";LI:PRINT"[156] "TAB(30)" "
910 PRINT" "TAB(30)" [146]  [158]SCORE":PRINT"[156] [146]   [223][223][169][169][169][223][169][223][169][169][169]   [169][169][223][223][169][169][169][223][223][223][169][169] ";
920 PRINTTAB(33)"[146][154]";SC:PRINT"[156] "TAB(30)" ":PRINT" "TAB(30)" [146]  [158]HIGH"
930 PRINT"[156] "TAB(30)" [146]  [154]";HS
940 FORX=56256TO56286:POKEX,4:NEXT:FORX=1984TO2014:POKEX,160:NEXT
950 POKEV+28,45:POKEV+16,32:POKEV+37,1:POKEV+38,8:POKEV+23,96:POKEV+29,96
960 POKE2040,P:POKEV+39,5:POKEV,232:POKEV+1,222
970 POKE2041,197:POKEV+40,14:POKEV+2,36:POKEV+3,92
980 POKE2042,195:POKEV+41,14:POKEV+4,32:POKEV+5,58
990 POKE2043,194:POKEV+42,2:POKEV+6,144:POKEV+7,54
1000 POKE2044,196:POKEV+43,2:POKEV+8,140:POKEV+9,126
1010 POKE2045,195:POKEV+44,14:POKEV+10,30:POKEV+11,132
1020 POKE2046,199:POKEV+45,2:POKEV+12,116:POKEV+13,40
1030 W1=PEEK(V+30):W2=PEEK(V+31)
1040 POKEV+21,63:RETURN
1050 POKEV+21,47:SYS960,14,11:PRINT"[154]GAME OVER"
1060 PRINTTAB(7)"PLAY AGAIN  Y OR N"
1070 IFSC>HSTHENHS=SC
1080 SYS960,23,33:PRINTHS
1090 GETJK$:IFJK$<>""THEN1090
1100 GETP$:IFP$=""THEN1100
1110 IFP$="Y"THEN1140
1120 IFP$="N"THENSYS65418:FORX=0TO24:POKES+X,0:NEXT:END
1130 GOTO1100
1140 GOSUB760:GOTO30
1150 DATA 25,30,33,135,42,62,50,60,42,62,50,60,0,0
1160 REM    JOYSTICK PORT 1
1170 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
1180 DATA 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
1190 DATA 169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
1200 DATA 0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208
1210 DATA 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
1220 DATA 0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234
1230 DATA 32,60,3,32,60,3,32,60,3,32,60,3,96
1240 REM
1250 DATA 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
1260 REM    SPRITE DATA
1270 DATA 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,170,64,0,168,0
1280 DATA 0,156,0,0,40,0,0,40,0,0,130,0,0,130,0,0,243,192,0,0,0,0,0,0,0,0,0
1290 DATA 0,0,0,0,0,0,0,0,0,0
1300 DATA 0,0,0,0,60,0,0,52,0,0,20,0,0,16,0,0,40,0,0,168,0,0,168,0,0,168,0
1310 DATA 0,188,0,0,104,0,0,40,0,0,40,0,0,40,0,0,63,0,0,0,0,0,0,0,0,0,0,0,0,0
1320 DATA 0,0,0,0,0,0,0
1330 DATA 0,0,0,3,192,0,15,252,0,63,220,0,63,92,0,63,92,0,63,92,0,63,127,0
1340 DATA 63,127,0,15,160,0,2,160,0,2,160,0,0,128,0,0,128,0,2,160,0,2,160,0
1350 DATA 0,64,0,0,64,0,0,64,0,2,96,0,0,0,0,0
1360 DATA 0,0,0,0,0,0,0,136,0,0,32,0,2,170,0,0,40,0,0,191,0,2,204,204
1370 DATA 2,255,240,2,191,12,2,159,252,10,148,0,42,150,164,40,150,160
1380 DATA 32,149,0,32,149,64,16,149,64,2,170,128,10,170,160,40,0,40,168,0,42,0
1390 DATA 0,136,0,0,0,0,0,74,0,0,16,0,3,224,0,4,10,0,8,0,0,16,16,0,16,0,0
1400 DATA 16,0,0,15,255,248,12,107,24,14,227,184,14,235,184,15,255,248
1410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1420 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,63,128,0,127,192,0,255,224
1430 DATA 1,255,240,3,255,248,3,255,248,3,255,248,3,255,248,3,255,240,1,255,224
1440 DATA 0,255,192,0,127,128,0,31,0,0,0,0,0,0,0,0,0,0,0
1450 DATA 0,0,0,0,12,0,0,12,0,0,55,0,0,55,0,0,14,32,0,12,128,0,2,32,0,0,8
1460 DATA 0,0,8,3,74,12,3,90,172,3,218,172,0,0,0,0,0,0,0,0,0,0,0,0
1470 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0
1480 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,199,128,7,239,192,15,239,224
1490 DATA 15,255,224,15,255,224,15,255,224,7,255,192,3,255,128,1,255,0
1500 DATA 0,254,0,0,124,0,0,56,0,0,16,0,0,0,0,0,0,0,0,0,0