cavern rF8t The Cavern!  By David Leitch  For the 16K SPECTRUM  OCTOBER '82 :23658j\,0 x=144158 y=07 z ( (x)+y,z 2y:x 760<,92\,127,251,190,255,86V,24,0,24,16,126~,88X,84T,18,18,129,90Z,60<,24,24,36$,66B,129 924,36$,24,126~,90Z,24,24,24,170,85U,170,85U,170,85U,170,85U,0,0,24,24,24,24,126~,126~ ;0,0,0,16,568,124|,568,16,0,16,568,84T,254,84T,568,16,0,63?,109m,219,219,109m,63?,0 =0,255,129,129,195,66B,66B,36$,0,252,110n,183,183,110n,252,0,0,0,0,255,36$,36$,255 ?0,128,64@,32 ,255,32 ,64@,128,0,1,2,4,255,4,2,1,0,0,68D,68D,40(,16,16,568,0 @/0:1:5:0:0: A"10 ;1;"The Cavern!" B4" z-left x-right"'" n-down m-up" C?" zx with CAPS SHIFT to fire in the respective direction." Dq'2;" =50"''7;" =100"''6;" =70"''" O=EXTRA LIFE" Fh'"Remember if you have no jewels you will not be allowed back on board."'"Watch out for booby traps!" H"If you complete a mission you will go on to the next level butwill have less time."'"Press any key to play":1:0 Ohs=124500 \ sc=0 ]life=1 ^ le=0 d1:0:6: e z=0 f j=0 g poi=0 h in=0 jti=1000 k%ti=ti-le:ti=0ti=1000 lti=0ti=1000 nj3,0;"";21,0;"" xFi=420:i,0;"":i yH4:i=414:i,6;"":i z3i=1520:i,20;"":i {1i=1720:i,1;"":i }515,6;"";16,6;"" D3,2;"";18,11 ;"";18,19;"" *i=47:i,1;"":i f6:4,5;"";5,5;"";7,4;"";20,12 ;" " 3i=9 15:i,1;" ":i:0 26;21,15;le/100d+1 /i=1619:i,12 ;"":i i=317:i*(i<10 ),28;"";i*(i>5i<14),17;"";i*(i>8i<16),26;"";i*(i>10 ),8;"":i 8,2;"" =11 ,9 ;"";9 ,18;"" E5;223,152:5;30,22,-/4 @4;9 ,1;"";4;9 ,5;"" #7;15,1;"^^^^" '3;16,12 ;"" C1;7;20,13 ;"";20,16;"" W1;2;17,8;"";13 ,17;"";15,26;"" "l=2:c=2:7000X &7;0,14;"=";life 85004! 3000 :8000@ Sti=ti-5:9 ;0,20;ti:ti<100d0,22;"" ti=09000(# (6;3,12 ;"SCORE:";sc l=8c=2l=7 ="Z"Ŧ="X"1000 !l=9 c=52500 225 s=+(="X")-(="Z") 7;l,c;"" s$="" s=1s$="" x=.0125zL:x,4:x,6:x,8:x,10 :x,12 :x,14:x,16:x,4:x,6:x,8 "x=s*1s*10 s*1  af=(l,c+x) af=70F1020 af0 5af=01;5;l,c+x;s$:l,c+x;"" x:l,c+x;"": 4.02{# =,502:.04|# =,-5:l,c+x;"" 8>.85Yle100dl,c+x;6;1;"" 85004!:sc=sc+70F:  in=1 r=c:2020 r=(*7)+12 i=1720 .1}L,-40( ti=ti-5 $i-1,r;"";i,r;3;"" (i=lr=ci,r;2;"":5000  3000 %c=11 c=19in=0: i:2010 z=1 4;1;l,c;"" r=(*4)+1 i=1410 -1 'i,r;7;"^";i+1,r;" ":i i=lc=r6000p i+1,r;6;" " ti=ti-5 3002 c>5c=5 "l=8c=2z=0: 2510 7;l,c;"" .0025x# =,1 z4;0;l,c;"" zl,c;"" Hl=6c=56,4;2;"":.1}L,-30 #l=2c=2j7000X Ha=(l-1,c):b=(l+1,c):d=(l,c-1):e=(l,c+1) _l=l-(="m"l>2(a=0a>7a=4))+(="n"(b=0b>7b=4)) Uc=c-(="z"(d=0d>7d=4))+(="x"(e=0e>7e=4)) f=(l,c) f<53050 Sf=134.1}L,2:life=life-1:7;0,16;life :f=66B.1}L,40(:sc=sc+502:j=1 ;f=71G.1}L,502:sc=sc+100d:j=1 #f=71Gin=02000  T.2~L,60<:i=-3012:.1}L,i:.1}L,i+10 :i  in=0 life=life+1 life=46070 poi=185004!  100d p2:l,c;"" r z=0 zx=9 15 x-1*(x>9 ),c;" "  x,c;"" .1}L,x*-.5 x $15,c;"&":1,-20  0 ,life=life+1:life4100d sc>hshs=sc 61;3;13 ,8;"HIGH-SCORE=";hs  7030v XFx=1304:1;4;0,1;"" YK2;1,2;"|";2,2;"|":.1}L,-20:x Z32;l,c;"":502:1,2;"" bj220 lT2;1,2;"|":20:1,2;" ";2,2;" " vx=5303 K0,x-4;" ":1;4;0,x;"":.1}L,x x a$="" Tlife=4ti=0"Press Enter to play again ";a$:a$"n"a$"N"80P a$="n"9999' sc=sc*2  sc=sc+ti le=le+100d  100d A pl,pc;"" EPi=(pl,pc+1):k=(pl,pc-1):g=(pl+1,pc):h=(pl-1,pc) OEpc=pc+(pcc(k=0k=134)) QEpl=pl+(pll(h=0h=134)) Tpl=lpc=c8700! ^1;6;pl,pc;""  !4Rpl=(*12 )+4:pc=(*21)+8:(pl,pc)085004! !>1;6;pl,pc;"" !C !@poi=1:.5,-10 :2;l,c;"":5000 #(Zx=120:1;5;0,20;"TIME UP!":.3,-7:x #2 6070 '7:7:0  zv