ZXTape! 0Created with Ramsoft MakeTZXTTUNNELS f `$f *C(16,11 ):B(5,8) 9800H&:GET CHARS SL=1:S1=0:S2=0:M1=0:L3=3:D2=0:Q1=0 *D$="NEWS":S$=" ":W$="abcdext" P 9300T$ Z 9900& d 8000@ n 9000(# x 2000 GET CHAR AND DO COUNTER  D2=0:.05|L,60< A$=:A$""10808 L2=L2+1:T2=T2+1 %T2>10 1200:1060$ 3L2>200-(L*20)1300:1060$ $D2=11095G . 1020 8J.1}L,25:A3=(A$):A3>96`A3<123{A$=(A3-32 ) G DECR TIMER FOR CAVE  D5=0 1C(P2,1)=C(P2,1)-1:T2=0 a1:7:0:P2+2,3;" ";P2+2,3;C(P2,1);:0 LC(P2,1)<10 15,10 ;"TIMER LOW ";C(P2,1);" "; /C(P2,1)=0D2=1:D5=1   DECR LAMP L1=L1-1:L2=0 #|L1=15.2~L,25:.2~L,25:5:0:19,0;"+++ YOUR LAMP IS GETTING DIM +++"; (6:2: 202,27;" ";2,27;L1; 7(L1<151:7:0 8900":0 H620,0;"Enter New Direction (N/E/W/S) ?"; R$1000:D2=17500L \A$="N"D=1:2200 fA$="E"D=2:2200 pA$="W"D=3:2200 zA$="S"D=4:2200 :E$="ERROR: Answer N/E/W/S Only!":8300l :2040 CHECK FOR EXISTING LINK %C(P2,D+1)=02230 <E$="ERROR: Tunnel Already Exists!":8300l :2040 EC(P2,D+1)=99c:2800 :C(P2,D+1)=J:2340$ CHOOSE EXISTING LINK 8900":0 220,0;"Enter Direction (N/E/W/S) ?"; $1000:D2=17500L A$="N"D=1:2340$ A$="E"D=2:2340$ A$="W"D=3:2340$ A$="S"D=4:2340$ 2180:ERROR $GO DOWN TUNNEL! )TC(P2,D+1)=0E$="ERROR:Tunnel Does Not Exist!":8300l :2040 +RC(P2,D+1)<0E$="ERROR: Tunnel is blocked !":8300l :2040 .I6:2:P2+2,0;P2;:7:0:3500 8)P9=P2:D9=D+1:P2=C(P2,D+1) =7900:COLLAPSE? B44000:TEST THIEF G4800:TEST GOLLM L4500:TEST DRAGN QD2=17500L `MOVE DRAGON,THIEF,GOLLUM jD1=02440 tI=120 yAJ=(*4+2):C(D1,J)>0D1=C(D1,J):2440 ~I T1=02470 I=120 AJ=(*4+2):C(T1,J)>0T1=C(T1,J):2470 I G1=02495 I=120 AJ=(*4+2):C(G1,J)>0G1=C(G1,J):2495 I 2000 FIND TUNNEL & SET FLAG N=0 I=25 C(P2,I)0N=N+1 I #N=3C(P2,11 )=1 <J=(*16+1):C(J,11 )=12810 I1=(*4+2) C(J,I1)=02850"  2820 "C(J,I1)=P2:N=0 ,I=25 6C(J,I)0N=N+1 @I BN=12890J E3(*3)0C(J,I1)=0:2810 J"N=3C(J,11 )=1 LS1=S1+5:7000X O DRAW CAVE + TUNNELS 1:6:15,10 ;" ";:C(P2,1)<10 1:15,10 ;"TIMER LOW ";C(P2,1);" ";:0 8900":8950" D=5:3200 N=P2:3300 3800 I=25 N=C(P2,I):D=I-1 N=03090 N<03070 #N=C(P2,I):3200 :3300 4X2=B(D,5):Y2=B(D,6):1:5 "X2,Y2:B(D,7),B(D,8) I  DRAW BOX 1:5 "X2=B(D,1):Y2=B(D,2) QX2,Y2:17,0:0,-17:-17,0:0,17  PUT DATA IN BOX 1:5 #N=P2N$=(151):3360 D3T4G2N$="?":3360 N$=" " V1=8 *?C(N,10 )>0C(N,10 )<8V1=C(N,10 ) 4M$=V$(V1V1) >"R2=B(D,3):C2=B(D,4) HN<10 R2,C2;"0";N; RN>9 R2,C2;N; WN=P21 \9R2+1,C2;N$;:0:R2+1,C2+1;M$; z PUT UP EXIT DATA I=14 9C(P2,I+1)>0P2+2,I+5;D$(II); I !C(P2,10 )=61 91:6:17,15;"EXIT ";:0 !C(P2,10 )=71 '18,15;"TRUNK ";:0 o6:2:A$=" ":C(P2,10 )>0C(P2,10 )<8A$=W$(C(P2,10 )C(P2,10 )) P2+2,2;A$; YK1<51:14,22;"Look for ";V$(K1+1K1+1);:0   SEARCH FOR ADJACENT THINGS $D3=0:G2=0:T4=0 I=25  J=C(P2,I) J<13880(  D1=JD3=1 G1=JT3=2G2=1 T1=JT4=1 (I -D3G2T41 2:1:6:16,15;"DANGER!";:0 <DISPLAY ADJACENT THINGS FD3+G2+T4=03995 K8900":0 PND3.73333,10 :19,0;"There is a pungent smell around!"; ZNT4.73333,12 :20,0;"You hear the patter of tiny feet"; dLG2.73333,14:21,0;"A loud sobbing fills the air !"; nI=1150:I  EXCHANGE LAMP #A0L1>144095 '(*(L1/3))04095 8900":0 19,0;"A curious little dwarf appears";20,0;"before you and asks for your axe";21,0;"Do you want to give it (Y/N) ?"; $1000:D2=14095 DA$="N"E$=" He shrugs and wanders off !":8310v :4095 AA$"Y"E$="ERROR: Answer Y or N Only!":8300l :4020 8900":0 19,0;"He smiles kindly, exchanges your";20,0;"silver axe for a brand new lamp,";21,0;"then he quickly runs away!"; ;I1=3:E$=S$:8700!:S2=S2+25:7000X +.2~L,60<:I=1300,:I .6:2:2,27;"50 * "; 8L1=502:A=(*16+1):A=P24090   PICK UP AXE P2A4195c 8900":0 "19,0;"You see a bright silver axe in ";20,0;"the corner of the cave so you go";21,0;"over and pick it up. Lucky You !"; ,+.2~L,60<:I=1300,:I 64A=0:E$="SILVER AXE":I1=3:8700! @S1=S1+25:7000X c hPICK UP KEY PART mK1=54295 r;C(P2,10 )<1C(P2,10 )>54295 |tC(P2,10 )K1+1E$=" *** Key part "+(C(P2,10 )+64@)+" is here ***":8300l :4295 CC(P2,10 )=0:K1=K1+1:S1=S1+10 :7000X 8900":0 t19,0;"You pick up part ";V$(K1K1);" of the key";20,0;"It's unusual shape puzzles you!"; k6:2:K1<51:14,22;"Look for ";V$(K1+1K1+1);:0  8600! K1=55:0:21,0;"But you see it fits the trunk !";:6:2:14,22;S$;11 ,22;"TRUNK KEY";12 ,22;">";12 ,30;"<";13 ,22;">";13 ,30;"<";14,22;"^^^^^^^^^"; +.2~L,60<:I=1300,:I   OPEN TRUNK $C(P2,10 )74395+ 8900":0 ָT3>019,0;"You see an ancient wooden trunk";20,0;"with it's lid wide open and it's";21,0;"completely empty. Looks boring !";:4330 K1=54340 K1<519,0;"You see an ancient wooden trunk";20,0;"in this cave but you are unable";21,0;"to unlock it. Looks interesting!"; 7.2~L,60<:I=1300,:I:4395+ 19,0;"Your key now fits the trunk.";20,0;"Inside you find a bag of gold ";21,0;"coins which you decide to take !"; (T3=1:S1=S1+25:7000X 5I1=4:E$="GOLD COINS":8700!:4330 + 0THIEF STRIKES ! :M1<30T1P24495 D8900":0 N#K1>0K1<54450b RA04440X S4A=06:2:3,22;S$; T+A=(*16+1):A=P24436T U(S1=S1-502:S1<0S1=0 VT7000X:E$="Your silver axe has disappeared!":8300l :8900":0 X19,0;"A shadowy figure bumps into you.";20,0;"He searches your pockets quickly";21,0;"and runs away cursing his luck !"; ] 4470v b19,0;"A shadowy figure jumps on you.";20,0;"He steals part ";V$(K1K1);" of the key";21,0;"and runs away laughing loudly !"; g.6:2:13 ,23+K1;" "; l7K1=K1-1:8600!:S1=S1-10 :7000X qAJ=(*16+1):J=P2C(J,10 )04465q sC(J,10 )=K1+1 v+.2~L,60<:I=1300,:I qT1=(*16+1):T1=P2T1=C(P2,2)T1=C(P2,3)T1=C(P2,4)T1=C(P2,5)4480  DRAGON ATTACKS ! M1<30D1P24595 8900":0 A=04550 19,0;"You enter a cave where a dragon";20,0;"is hiding,it howls then breathes";21,0;"out fire burning you to a crisp!"; RI=16:.5,-20:.5,-30:.5,-40(:I D2=1:4595 ƞ19,0;"A dragon lies in the corner of";20,0;"the cave, you throw your axe at";21,0;"it & he runs away belching smoke"; +A=(*16+1):A=P24560 I1=3:E$=S$:8700! -S1=S1+502:S2=S2+100d:7000X qD1=(*16+1):D1=P2D1=C(P2,2)D1=C(P2,3)D1=C(P2,4)D1=C(P2,5)4580 SI=140(:.04|# =,40(:.04|# =,45-:.04|# =,502:I   CHECK EXIT $C(P2,10 )64695W  8900":0 T3=019,0;"A stony faced troll blocks the";20,0;"EXIT and demands some gold coins";21,0;"to let you out of the caves !";:46604  T3=119,0;"The troll sees your gold coins.";20,0;"He takes half and gives you a";21,0;"magic ring saying 'Look again !'";:7400:46604 *T3219,0;"The troll enquires if you have";20,0;"any treasure yet and asks if you";21,0;"want to leave the caves now.";:4670> 47.2~L,60<:I=1300,:I:4695W >+.2~L,60<:I=1300,:I H8900":0 K620,0;"Do you want to exit now (Y/N) ?"; M$1000:D2=14695W OA$="N"4695W P!A$="Y"D2=99c:4695W R:E$="ERROR: Answer Y or N Only !":8300l :4680H W \PICK UP TREASURE f0T32C(P2,10 )<10 4795 p4I1=C(P2,10 )-10 :C(P2,10 )=0 z)I1=1E$="DIAMONDS ":4760 )I1=2E$="RUBIES ":4760 )I1=3E$="EMERALDS ":4760 )I1=4E$="SAPPHIRES ":4760 )I1=5E$="PEARLS ":4760 8900":0 19,0;"You sense great wealth in here.";20,0;"Under foot you find ";E$;"!";21,0;"Delighted you quickly move on..."; +.2~L,60<:I=1200:I 7I1=I1+5:8700!:S1=S1+502:7000X  RETRIEVE RING G1P24895 8900":0 ޲T3=319,0;"A slimy black creature cowers";20,0;"behind some rocks and watches";21,0;"you cautiously as you approach!";:4870 T3=219,0;"A cold clammy hand grabs your";20,0;"wrist and you recoil in fright";21,0;"only to find your ring missing !"; GS1=S1-502:7000X:I1=5:E$=S$:8700!:T3=3 qT1=(*16+1):T1=P2T1=C(P2,2)T1=C(P2,3)T1=C(P2,4)T1=C(P2,5)4860 I=120:.03{u\,502:.03{u\,40(:.03{u\,30:.03{u\,20:.03{u\,10 :.03{u\,0:.03{u\,-10 :.03{u\,-20:I  $CHECK TUNNEL .Q1=04995 88900":0 B19,0;"The tunnel you have entered by";20,0;"has just collapsed and the floor";21,0;"beneath you trembles slightly !"; LPI=1502:.02{# =,5:.02{# =,3:.02{# =,1:I  XPUT UP SCORE b6:2 lr15,28;" ";15,28;S1;16,28;S2;18,31;L;2,27;L1; E17,29;" ";17,29;(S1/S2*100d);"%";  SET UP DRAGON AND THIEF -T1=(*16+1):T1=P27110 -D1=(*16+1):D1=P27120 S2=S2+502:7000X  GOLD EXCHANGE! (S1=S1+502:7000X:T3=2 )I1=5:E$="MAGIC RING":8700! G1=(*16+1) WG1=P2G1=C(P2,2)G1=C(P2,3)G1=C(P2,4)G1=C(P2,5)7430 I=11 15 $MJ=(*16+1):C(J,10 )=0C(J,10 )=I:74808 . 7460$ 8I G LRE-INCARNATE QD5=18200 VCD2=0:L3=L3-1:S1=S1-30:S1<0S1=0 `L3=07600 j!7700:8900":0 t19,0;"A magnificent wizard appears to";20,0;"you in a dream saying he will ";21,0;"help,BUT warns you to be careful"; y@.2~L,60<:I=1300,:I:8900":0 ~19,0;"He waves his ornate staff which";20,0;"re-incarnates you then he smiles";21,0;"and disappears amid green smoke!"; eI=1100d:(*7+1):.01z# =,I/2+10 :I:L1=502:7000X  2000 FINALLY DEAD ! l1:6:1:14,10 ;"YOU ARE DEAD";:0:15,10 ;" "; !7000X:8900":0 Π19,0;"A disgrunted wizard stands over";20,0;"you-this time you really blew it";21,0;"The world then goes very dark...";  0:I=1502:I I=07 Y=81688 G0,Y+I:255,0:.01z# =,(*20):(*8) Y I:  9200#  PUT UP LIVES O1:6:14,17;" ";14,17;(151); (71:L3=214,19;(151); 2.L3=114,17;(151); < 0 A xLAMP GOES OUT 8900":0 19,0;"Your lamp has finally gone out !";20,0;"Now what are you going to do ?";21,0;"Bravely you start to fumble on."; BI=1100d:(*3+1):.01z# =,40(:I 8900":0 19,0;"Unfortuately you stumble over";20,0;"the edge of a precipice and fall";21,0;"thousands of feet in silence...."; YI=1100d:(*3+4):.01z# =,(60<-(I/2+10 )):I  DOES TUNNEL COLLAPSE? $Q1=0:T3<27995; "(*3)07995; (Q1=1:C(P9,D9)=C(P9,D9)*-1 I=25 2C(P2,I)=P9C(P2,I)=C(P2,I)*-1:7970" I "I=25 &C(P2,I)>07995; (I ,Q1=2:NO EXIT NOW! ; @SET UP SCREEN J1:6:6: O$8950":8900":8800`" R6:0 T1,0;"CAVE DATA ";2,0;"timer exit";1,22;" INVENTORY";:2:2,22;"LAMP * ";0,10 ;"TIME TUNNELS"; Y 2 ^I=116 c4I+2,0;I;I+2,3;" "; hI m15,22;"SCORE ";16,22;"FROM ";17,22;"GIVES ";18,22;"AT LEVEL 0"; r"11 ,22;"Key Parts "; wp1:1:12 ,24;"A";:2:"B";:3:"C";:5:"D";:0:"E";:0 |  CAVE IN! 55:2:P2+2,0;"COLLAPSED!"; 8900":0 &19,0;"You have overstayed your welcome";20,0;"Timers have set off explosives";21,0;"which bring the roof down....."; 0QI=1100d:(*4+2):.02{# =,-(*10 +20):I : L3=1 g lDISPLAY ERRORS v8900":1 20,0;E$; &.3,502:.2~L,502 I=1100d:I 0:8900"   EXIT FROM CAVE OK '5:1::S1=S1+502+L1 0,0;"You find yourself in bright sun":"light & walk over to the little":"stream to take a drink. Then you":"lay down beneath the shade of a" "giant willow tree and fall fast":"asleep! Suddenly you are awaken-":"ed by the sound of sweet music.":"You jump up to find all of your":"treasures gone but there is a ":"little elf who wants to talk to" "you about your adventures. ":" He informs you that there are":"even more treasures to be found":"at lower levels of the caves," !"and with your experience of :-":1:15,1;S1;" FROM ";S2;" > ";(S1/S2*100d);"% AT LEVEL ";L;:0 ! \16,0;"You could do even better!":18,0;" Do you want to try?"; !A$=:A$=""8470! !.1}L,502 ! &A$="Y"A$="y"L=L+1:90Z !%A$="N"A$="n"9230$ !*2.1}L,60<:.1}L,60<:8470! !4ESCAPE THROUGH CRACK! !>(S1=S1-502:S1<0S1=0 !H!7000X:8900":0 !R19,0;"There is no way out of the cave.";20,0;"Suddenly you feel very scared as";21,0;"the roof starts to fall in...."; !\:I=1100d:(*8):.01z# =,10 :I !f8900":0 !p19,0;"But a shaft of light compels you";20,0;"to follow, you scramble up the";21,0;"rocks until you are exhausted..."; !z9I=1100d:(*8):.01z# =,6:I !.1}L,10 ! 8400 ! DISPLAY KEY !G6:2:K1=013 ,24;" ";:8695! !$13 ,24;V$(1K1); ! !INVENTORY CLEAR "6:2 "I1,22;E$; " "`CLEAR LIVES AREA "j%I$=" ":1:1 "tI=1418 "~I,10 ;I$; "I " 6 "14,10 ;" LIVES ";15,10 ;16,10 ;"'?'= DANGER!";17,10 ;"'X'= EXIT ";18,10 ;"'T'= TRUNK ";14,17;(151);14,19;(151);:1:14,21;(151);:0 "L3<37700 " "CLEAR TEXT AREA "9I$=" ":5:5 "I=1921 "I,0;I$; "I " "CLEAR TUNNEL AREA #%I$=" ":2:2 # I=213 #I,10 ;I$; #I # R0:10 ,12 ;"N";11 ,11 ;"W+E";12 ,12 ;"S"; #!d0:2,16;"N";7,10 ;"W";7,21;"E";13 ,16;"S"; ## #(INIT CAVE DATA #- #/@0:19,0;" Wait for your eyes to adjust! "; #2I=116 #<J=210 #AC(I,J)=0 #FJ #KCC(I,11 )=0:C(I,1)=(10 -L)*10 +9 #PI #Ul20,0;"Remember to draw a map of your ";21,0;"explorations as you go along...."; #Z2P2=(*16+1):C(P2,10 )=6 #d>R1=(*16+1):C(R1,10 )09060d# #nC(R1,10 )=7 #xI=15 #}>R1=(*16+1):C(R1,10 )09085}# #C(R1,10 )=I #I #+A=(*16+1):A=P29110# #5L1=502:S2=S2+600X:P1=(S1/S2*100d) # 7000X #xQ1=0:D2=0:M1=0:D1=0:T1=0:G1=0:T2=0:L2=0:K1=0:T3=0 #I=1100d:I # #WHEN LIVES ARE OVER # #3,0;" Well your little adventure is";5,0;"over. Don't worry about getting ";7,0;"yourself killed, after all you ";9 ,0;"you did manage to score:-"; $L11 ,1;S1;" FROM ";S2;" > ";(S1/S2*100d);"% AT LEVEL ";L; $I18,0;"Would you like to start again ?";:.5,502 $"A$=:A$=""9250"$ $'.1}L,502 $,A$="Y"A$="y"15 $1A$="N"A$="n"9280@$ $6 9200# $@020,0;"I bet you would really..."; $JI=175K:I $O 15 $T START TEXT $^2:7: $c"You are out for a walk one day":"when you find yourself lost in a":"remote region of the forest. ":"Instinctively you head towards a" $h"stream which you follow to the":"mouth of a hidden cave. It is ":"very dark inside and you decide":"it's best to go back downstream." $m"Suddenly an evil looking old man":"orders you to enter the cave or":"he will kill you. He wants you ":"to go inside the cave in order " $r"to find a golden ring which once":"belonged to him. He gives you a ":"lamp & pushes you inside saying-":" 'Do not linger child and heed" $w"the warnings of the Guardians!'":"Frightened you turn on the lamp":"and your adventure in the realm":"of the TIME TUNNELS begins......" $I1:21,0;" PRESS ANY KEY TO CONTINUE ";:0 $=""9392$ $.5,45- $ &HGET CHAR DATA FROM TAPE &R6:1: &\@3,2;"TIME TUNNELS ";(127);" GEOF TURNER"; &fM1:10 ,0;" LOADING CHARACTER DEFINITIONS ";:0:: &p "DEFS" & &SET UP BOX DATA & &I=15 &J=18 &B(I,J) &J &I &V$="ABCDEXT " & &K119w,152,3,15,127,120x,0,15 &K151,120x,7,19,136,112p,15,0 &K87W,120x,7,11 ,119w,112p,-15,0 &L119w,88X,11 ,15,127,103g,0,-15 &F119w,120x,7,15,0,0,0,0 'DUMMY ' ' u 2 )9 T 0 F?? Y L=N KDwxxpWx wpwX gwxlaIcDNEWSS Wabcdext" <#VABCDEXT  a  dpnYEERROR: Answer N/E/W/S Only!N M I ACDEFS XIW8T8TUUI*UB<$$>