CAVES-INSTKdCharacter Set Generator n6Graphics Copyright Neil Pellinacci  1984 x 31999| 800  8a=0767:32000}+a,(15616=+a):a +a=095_:b:32008}+a,b:a ,a=0207:b:32520+a,b:a +a=079O:b:32128}+a,b:a ,252,480,480,480,480,480,480,0,252,480,480,480,480,480,252,0,198,238,254,214,198,198,198,0 6254,192,192,248,192,192,254,0,124|,198,192,124|,6,198,124|,0,124|,198,192,192,192,198,124|,0 @124|,198,198,198,198,198,124|,0,124|,198,198,252,198,198,198,0,198,198,198,254,198,198,198,0 J124|,198,198,254,198,198,198,0,124|,198,192,204,198,198,124|,0,198,198,198,198,198,108l,568,0 0,0,0,1,3,7,15,30,60<,568,568,568,568,568,568,60<,30,15,7,3,1,0,0,0,120x,240,224,192,128,0,0,0 %60<,28,28,28,28,28,28,60<,0,0,0,128,192,224,240,120x,24,60<,255,255,255,129,0,0,0,0,129,255,255,255,0,0 24,24,60<,60<,126~,126~,255,255,1,1,3,3,7,7,15,15,128,128,192,192,224,224,240,240 255,255,126~,126~,60<,60<,24,24,15,15,7,7,3,3,1,1,240,240,224,224,192,192,128,128 192,240,252,255,255,252,240,192,0,0,0,0,192,240,252,255,255,252,240,192,0,0,0,0 3,15,63?,255,255,63?,15,3,0,0,0,0,3,15,63?,255,255,63?,15,3,0,0,0,0 24,60<,24,126~,24,102f,195,195,24,102f,66B,129,129,66B,102f,24,0,1,23,63?,79O,147,164,160 0,128,232,252,242,201,37%,5,170,85U,170,85U,170,85U,170,85U,255,129,189,165,165,189,129,255 124|,198,206,214,230,198,124|,0,240,480,480,480,480,480,252,0,124|,198,6,28,480,96`,254,0 124|,198,6,28,6,198,124|,0,60<,108l,204,254,12 ,12 ,12 ,0,252,192,192,124|,6,198,124|,0 .124|,192,192,252,198,198,124|,0,126~,6,12 ,24,480,480,480,0,124|,198,198,254,198,198,124|,0,124|,198,198,126~,6,6,124|,0 :M.1}L,1:"READ INSTRUCTIONS? Y/N";b$:b$="n"680 D :920 NDa=40(-35#-4:.01z# =,a:.01z# =,a/2:a X1:1:7: ]Ha$=" CAVES OF THE SPIDER'S! ":1000 bfa$="!!!! YOUR MISSION IN THIS ARCADE!ADVENTURE IS TO RECOVER THE!ANCIENT RING OF POWER.":1000 gia$="!! LOST MANY YEARS AGO IT IS NOW!TO BE FOUND IN A CAVE NETWORK!FULL OF DEADLY SPIDERS.":1000 lfa$="!! YOUR ONLY WEAPON IS AN ACID!WHICH WILL STUN A SPIDER AND!THROW IT AWAY FROM YOU.":1000 qba$="!! HOWEVER, USE IT CAREFULLY, AS!YOU HAVE ONLY A LIMITED AMOUNT!OF AMMUNITION.#":1000 va$="! THE NETWORK CONSISTS OF 100!CAVES, EACH LINKED BY PASSAGES.!YOU MUST MOVE AROUND SEARCHING!FOR THE FOUR RINGS WHICH ENABLE!YOU TO ENTER THE FINAL CAVE.":1000 {a$="!! THE POSITION OF THE NEXT RING!TO BE COLLECTED, OR OF THE!ENTERANCE TO THE FINAL CAVE, IS!SHOWN ON THE DIRECTION!INDICATOR.":1000 xa$="!! IN THE FINAL CAVE, YOU MUST!RECOVER THE RING OF POWER AT!THE CENTRE OF THE SCREEN, AND!THEN LEAVE.":1000 ~a$="!! BONUS TIME POINTS ARE AVAILABLEAFTER YOU HAVE COLLECTED ONE !RING, FOUR RINGS, AND THE RING OF POWER.#":1000  a$="!THE CONTROL KEYS ARE:!!!'Q'..................UP!!'A'..................DOWN!!'I'..................LEFT!!'O'..................RIGHT!!'SPACE'..............FIRE":1000 ia$="!!!!NOTE THAT YOU CANNOT MOVE IN!!TWO DIRECTIONS, OR MOVE AND FIRE!!AT THE SAME TIME.#":1000 a$="!THE TARGET VALUES FOR THE TIME!!BONUSES START OFF AS:!!![1] ONE RING --- 150!![2] FOUR RINGS - 370!![3] FINISH GAME - 600":1000 ga$="!!!THESE ARE ADJUSTED AFTER THE!!END OF EACH GAME, AND SO WILL!!CHANGE WITH TIME.!!#":1000  570: 6:4,6;1;" START THE TAPE ":""  0:0:7: *~1,3;6;"";2,3;"";2;"";6;"" 4z3,3;6;"";2;"";3;7;" CAVES OF THE SPIDERS ";0;2;"";6;"" >~4,3;6;"";2;"";6;"";5,3;"" H~8,3;4;"";9 ,3;"";3;"";4;"" R{10 ,3;4;"";3;"";7;0;" BY NEIL PELLINACCI ";0;3;"";4;"" \11 ,3;4;"";3;"";4;"";12 ,3;"" f15,3;5;"";16,3;"";1;"";5;"" p17,3;5;"";1;"";6;0;" ";1;"PLEASE WAIT";0;" ";0;1;"";5;"" z18,3;5;"";1;"";5;"";19,3;"" ca=119:a,0;3;"";6;"";a,30;6;"";3;"":a  'a$=" " os=22:t=32 :b=112 :ڥ*7:a=22-ss-1:a,(32 -t)/2;a$(t)  a:s=s-1:t=t-2:b  0: Ea=1̱a$:b$=a$(a):b$="!":.08}# =,25:1050 ]b$="#"#0;" PRESS ANY KEY TO CONTINUE ":0:s=*3:s:s::1050 26;"";8;:.007ye`A,10 :b$; a: PObBnCAVES-GAME#8,31-sc;sc: J13 ,28;6;"0000";13 ,32 -am;6;am: &5,32 -ti;6;ti: dRpl,pc;8;" ":="o"pc<21(pl,pc+1)4pc=pc+1 n<="i"pc>0(pl,pc-1)4pc=pc-1 x<="q"pl>0(pl-1,pc)4pl=pl-1 =="a"pl<21(pl+1,pc)4pl=pl+1 =" "am>0.01z# =,10 :300,:2:am=am-(*10 +4):3:am<0am=0:3 #l=(pl,pc):l=64000 l=38000@ l=69E7200  l=1877400 el=67C.2~L,10 :.2~L,0:.2~L,-10 :9 ,21;3;"y" Ypl,pc;0;"u":a=(*10 )+1:l=a(1,a):c=a(2,a):l,c;" " Vlpl(l-1,c)=7(l-1,c+1)=7l=l-1:200 6cpc(l,c-1)=7c=c-1 Hl,c;0;6;"wx":a(1,a)=l:a(2,a)=c:100d ,ka=110 :(pl-a(1,a))<2ƽ(pc-a(2,a))<3320@:.01z# =,-10 6a: @ypl,pc;4;"u":l=(*20)+1:c=(*19)+1:(l,c)7ū(l,c+1)7320@ Jea(1,a),a(2,a);" ";l,c;6;"wx":a(1,a)=l:a(2,a)=c:sc=sc+400 T 2: Gl=12:a=20-10 -.6:.009ztj,a:a:l Ili=li-1:2,30;" ":li=12,24;" " li=05100  140 ti=u():4 Da=45--20-5:.04|# =,a:.04|# =,a+5:a ,#0;" TIME TO FINISH:";26;ti ti>rw5050 Wa=tirw:.01z# =,0:sc=sc+300,:2:#0;1,26;a:a +sc=sc+am*500+li*2000:2 b"":#0;"WELL DONE WELL DONE WELL DONE":a=502-35#-.5:.01z# =,a:a "":5500| 11 ,2;" + * # $ ' , $ ( ":a=40(-30-5:.1}L,a:.1}L,a+5:.1}L,a+7:a |sc>hi#0;" N E W H I G H S C O R E ":.4L,10 :.4L,15:.4L,20:.8L,0:hi=sc Ta=-20305:.3,a:.3,a-5:a:.6,20 :"":#0;5;" PRESS ANY KEY TO PLAY AGAIN " =""5530 1.5,10 :.5,0:8200 p Set Up Avs z6r1=150:r4=370r:rw=600X:hi=0  BYu()=((65536*23674z\+256*23673y\+23672x\)/502+.5) XSet Up Caves b4cal=0:cac=0:pl=11 :pc=11 l2rl=(*9 +1):rc=(*9 +1) v2ri=0:sc=0:am=900:li=3 $sq=0:ti=0:lt=0 ox$=16+5+19+1+"v":y$=16+3+17+7+18+1+"z" V23672x\,0:23673y\,0:23674z\,0:9000(#:100d  Ea=20-10 -4:.01z# =,a:.01z# =,30+a:a *sc=sc+1000+am:2 4 ti=u() >"a=ti-lt:lt=ti:a>r17260\ Hc#0;7;1,0;" TIME FOR ONE RING:":b=ar1:#0;1,26;b R1.01z# =,10 :sc=sc+200:2:b \Ar1=((r1+a)/2):.1}L,10 :.1}L,-10 :"" f 4 puri=ri+1:2,27;7;ri:pl,pc;" ":rl=(*10 ):rc=(*10 ):ri<4138 z<a=-2040(:.01z# =,a:.01z# =,10 -a:a ]#0;1,0;" TIME FOR FOUR RINGS:";1,26;ti:ti>r47320 Xa=tir4:#0;1,26;a:.01z# =,10 :sc=sc+400:2:a Ar4=((r4+ti)/2):.1}L,0:.1}L,-20:"" sq=1:138 =a=40(-30-1:.01z# =,a:.01z# =,-a:a Csc=sc+100d*am:2:.1}L,10 :.1}L,20 sq=2:9000(# l=16:a=12:c=0l-1:(22-l)/2+c,(22-l)/2;4;"yyyyyyyyyyyyyyyyyy"(l):c sc=0l-5:(22-l)/2+2+c,(22-l)/2+2;" "(l-4):c l=l-8:a $10 ,19;4;"yy";11 ,19;"yy";11 ,11 ;"yy";10 ,11 ;"y";14,15;"yy" .a14,11 ;" ";13 ,11 ;" ";12 ,17;" ";13 ,17;" " 8%pl=9 :pc=20:9007/# BH10 ,12 ;3;1;"v":lt=ti:9100#:100d @sq=25000 E*pl=0cal=cal-1:pl=20 J*pl=21cal=cal+1:pl=1 T*pc=0cac=cac-1:pc=20 ^*pc=21cac=cac+1:pc=1 hDa=-10 10 3:.01z# =,a:.01z# =,a+20:a rJa=1521:a,24;1;2;0;" ":a |Bcal=rlcac=rc18,27;4;1;1;"" Mcal>rl15,26;1;4;" ";16,26;" " Mcalrc17,24;1;4;" ";18,24;" ";19,24;" " ccac00,9 ;"yyyy" #Z'cal<9 21,9 ;"yyyy" #dSa=9 12 :a,0;("y"cac>0);a,21;("y"cac<9 ):a #n 7 #xocal=rlcac=rc1+(*20),1+(*20);(x$sq=0);(y$sq=1):.1}L,0 #Ja=110 :a(1,a),a(2,a);6;0;"wx":a #ti=u():4 #F:236066\,0:236077\,124|:6000p:8200 $T-236066\,0:236077\,60<: