ZXTape! 0Created with Ramsoft MakeTZXLogo B/Gc D 1;2,2;" ";3,3;" ";4,3;" " 1;6,4;" ";7,4;" ";8,4;" Ltd" (10 ,12 ;1;"PRESENTS" (T12 ,8;"DUNGEONS OF DOOM";12 ,8;1;"________________" 214,0;"For the SINCLAIR ZX ";2;"S";6;"P";4;"E";5;"C";2;"T";6;"R";4;"U";5;"M";0;" 48K" 7.19,9 ;1;"SWITCH OFF TAPE" <621,5;1;"Press ENTER to continue" Ff=16 Pf;2,2;" ";3,3;" ";4,3;" " Zf;;6,4;" ";7,4;" ";8,4;" Ltd" _'.01z# =,0:.01z# =,10 d""130 nf x 70F f>3f=f-3 f;1;1,1;" ";2,1;" ";3,1;" ";4,1;" " 1;f;;5,1;" ";6,1;" ";7,1;" ";8,1;" Ltd" |19,0;" ";" ";" " =18,1;1;"Please switch on tape recorder" ""  '*"Logo"1:.2~L,3:"Logo" FDOD ::n:  2:7:2: 3,1;"1 DUNGEONS OF DOOM";5,15;"OR";7,1;"2 ESCAPE FROM THE UNDERWORLD";19,5;1;"INPUT";0;" CHOICE (1 2)" (=""40( <A=-480 FA<1A>240( P)A=1I$=" DUNGEONS OF DOOM" Z0A=2I$="ESCAPE FROM THE UNDERWORLD" d.2~L,30:7000X xXJ$="001008018028037044053062068078085092103109122130141146152163170177191201213220232" ;H$="0102060808101012121015161616203034324820395065709099" G$="6KOBOLD9GIANT RAT9HOBGOBLIN8WEREWOLF6ZOMBIE8GARGOYLE8BASILISK5MUMMY9HELLHOUND6WRAITH6MEDUSA:HILL GIANT5TROLL4300, TG9 ,14;" ";8,3;" " A$(A,15) S(A) X(A) Y(A) Z(A) H(A) E(A) G(A) M(A) Q(A) P(A) F(A) 3,3;I$;8,10 ;a;" PLAYER(S)";10 ,6;"PLEASE ENTER NAME(S)";4;"(15 CHARACTERS MAXIMUM)";20,4;"AFTER INPUT PRESS ENTER"  C=1A U13 +C,2;"PLAYER ";C;" ";1;"INPUT";0;" NAME(S)" K$ &K$>15540 0 A$(C)=K$ :P13 +C,10 ;" ";A$(C):e=3020-1:.025{L,e:e DI$(3)="E"600X IY(C)=5 NZ(C)=5 SX(C)=2 W 620l XX(C)=(*2)+8 bY(C)=(*4)+3 lZ(C)=(*4)+3 qH(C)=100d vE(C)=10 {B=Z$(X(C),Y(C),Z(C)) |B>100d638~ }#Z$(X(C),Y(C),Z(C))=(B+100d) C (Z$(2,5,5)=190  WC=0   C=1A  J=1A P(J)<1729 J  9900& P(C)=0733 C  720  1600@ 221,8;1;"INPUT DIRECTION" =""740 M.025{L,0:.025{L,1:21,8;" " N=-524 N>46.N=N-32 -N=16N=31N=33!780  N17770 P(C)=1  3000  N<1N>4735  N24+7810*  3000 *B=Z$(X(C),Y(C),Z(C)) +B<100dB=B+100d ,B=B-100d -B=(B/10 ) .=(N=9 +7N=26+7)B9 735 /7N=26+7e=113 :.1}L,e:e 0?N=9 +7e=13 1-1:.1}L,e:e 3*B=0B=9 B=58259 4(B=1(N=2N=3))((B=6B=2)(N=1N=4))((B=3B=8)N=3)(B=4N=2)(B=7(N=4N=2))735 ><X(C)<2(N=26+7X(C)<3)3000 VR=X(C) WS=Y(C) XT=Z(C) \$N=26+7R=X(C)-1 f#N=9 +7R=X(C)+1 pN=1S=Y(C)-1 zN=2T=Z(C)-1 N=3T=Z(C)+1 N=4S=Y(C)+1 KR>10 R<1S>10 S<1T>10 T<1942 B=Z$(R,S,T) B>100d930 Z$(R,S,T)=(B+100d) B=Z$(R,S,T) B=B-100d B=(B/10 )  950  B=-1  WC=1 N=1(B=2B=6B=7)N=2(B=1B=3B=8)N=3(B=1B=4B=7)N=4(B=2B=6)WC=1 WC>01020  1030  B=-1  0,10 ;A$(C) . 2140\ VWC<11230 `310 ,1;"YOU CANNOT WALK THROUGH WALLS" j"(*6)<41205 ~610 ,0;"YOU HAVE WALKED INTO A WEAK WALL" +12 ,5;"AND DISLODGED A STONE" WC=(*X(C))+1 615,2;"CAUSING ";WC;" HIT POINTS DAMAGE" H(C)=H(C)-WC H(C)<1P(C)=2  WC=0 P(C)>03000  4000 C  720 !B>4B<9 1450 +10 ,6;"YOU ARE IN A CORRIDOR" GB>8B=012 ,2;"AND HAVE REACHED A CROSSOVER" @B=3B=412 ,6;"CONTAINING A JUNCTION" #(*10 )11350F 214,2;"THE ROOF IS WEAK AND A STONE"  '15,7;"HAS FALLEN ON YOU" WC=(*X(C))+1 H(C)=H(C)-WC (417,5;"DOING ";WC;" HIT POINTS DAMAGE" < 1380d F(*X(C))<41380d PQ=(*8)+1 Z 8000@ d WC=0 nX(C)=R oY(C)=S pZ(C)=T x 4000 C  720 '10 ,6;"YOU ARE IN A CAVE" #Q=Z$(R,S,T)-100d-B*10 Q18000@ Q=11500  1205 ZX=(*11 )+1  AA=1  AB=0 #15,9 ;"CONTAINING A " I=1ZX  AA=AA+AB AB=T$(AAAA+1) I AC=T$(AA+2) AD=T$(AA+3AA+4)  017,3;T$(AA+5AA+AB-1)  AD=(*AD) AC11565 Q(C)=Q(C)+AD AC21580, "G(C)=G(C)+AD '.19,6;"WORTH ";AD;" GOLD PIECES" ,AC315906 /H(C)=H(C)+AD 2619,2;"WHICH RESTORES ";AD;" HIT POINTS" 6AC41597= 9E(C)=E(C)+AD <319,4;"WHICH GIVES YOU ";AD;" SPELLS" = 9335w$ ? @ X=0 J T"MOVEMENT:-";A$(C) h14,4;"UP";16,25;"DOWN" |4,22;"E=EXIT" 6,21;"S=STATUS" /20,2;"5,6,78 CONTROLS MOVEMENT"  2000 ,X=118,0;"U=UP D=DOWN"  I=17 #L=C$(I*2-1)-480 D=C$(I*2)-480 U=X(C) V=Y(C) W=Z(C) I=2U=U-1 I=3U=U+1  I=4V=V-1 I=5V=V+1  I=6W=W-1 *I=7W=W+1 4LU<1U>10 V<1V>10 W<1W>10 2132T >B=(Z$(U,V,W))-100d HB=(B/10 ) R-B<9 (I=2I=3)2150f S 2140\ TbL,D;"";L+1,D;"";L+2,D;"";L+3,D;"";L+4,D;"" U 2265 \B>-12170z fvL,D;" ";L+1,D;" ";L+2,D;" ";L+3,D;" ";L+4,D;" " p 2265 zB<1B>9 L,D;"   ";L+1,D;"   ";L+2,D;" ";L+3,D;"   ";L+4,D;"   " }B=1L,D;" ";L+1,D;" ";L+2,D;" ";L+3,D;" ";L+4,D;" " B=2L,D;"   ";L+1,D;"   ";L+2,D;"   ";L+3,D;"   ";L+4,D;"   " B=3L,D;" ";L+1,D;" ";L+2,D;" ";L+3,D;"   ";L+4,D;"   " B=4L,D;"   ";L+1,D;"   ";L+2,D;" ";L+3,D;" ";L+4,D;" " B=5L,D;" ";L+1,D;" ";L+2,D;" ";L+3,D;" ";L+4,D;" " B=6L,D;" ";L+1,D;" ";L+2,D;" ";L+3,D;" ";L+4,D;" " B=7L,D;" ";L+1,D;" ";L+2,D;" ";L+3,D;" ";L+4,D;"" yB=8L,D;"";L+1,D;" ";L+2,D;" ";L+3,D;" ";L+4,D;" " ԍB=9 L,D;"   ";L+1,D;"   ";L+2,D;" ";L+3,D;"   ";L+4,D;"   "  B=9 I=1X=1 WC>0 I   #0,10 ;"STATUS REPORT" XX(C)<2(X(C)<3N=33!)0,3;"CONGRATULATIONS YOU ARE OUT" ;P(C)>00,3;" YOU HAVE BEEN KILLED" '10 ;"" 3,0;"FOR:-";10 ;A$(C);5,0;"YOU HAVE:-";H(C);" HIT POINTS";7,10 ;E(C);" SPELLS";9 ,10 ;G(C);" GOLD PIECES";11 ,10 ;"KILLED ";M(C);" MONSTERS";13 ,8;"YOU ARE ON LEVEL ";X(C)-1 <X(C)<3N=33!13 ,19;"GROUND LEVEL" $17,10 ;"" QP(C)>0(X(C)<3N=33!)20,6;"YOUR SCORE IS ";F(C) p(c)>0.6,-10 :5:.6,-10 :5:.1}L,-10 :.6,-10 :.6,-7:.1}L,-8:.6,-8:.1}L,-10 :.6,-10 :.1}L,-11 :.6,-10 4000 N=31733 P(C)=1 &C 0 720 :21,5;1;"PRESS ENTER TO CONTINUE" ""4005 =""4010 V21,5;" ":.025{L,2:.025{L,3  X5:5:0: ] z$(10 ,10 ,10 ) b;0,3;I$;5;0;3,2;"You have just discovered the"'"entrance to the dungeons of a deserted castle."'2;"The local villagers have told you that their legends speak of untold wealth." li=12 mj=110 nk=110 o$z$(i,j,k)=((*98b)+1) pk qj ri v2;"In whispers they also tell of many brave travellers who have tried to claim the treasure,and have never been seen again." wi=34 xj=110 yk=110 z$z$(i,j,k)=((*98b)+1) {k |j }i ~a=27100 2;"Tales are also told of the onetraveller who managed to escape,and before dying mumbled stories of hideous monsters inhabiting the 'DUNGEONS OF DOOM'"  7110 1;"You decide to enter,but to yourdismay a trap has been sprung inthe floor,and you have fallen tothe depths of the dungeon."'"Luckily you are unhurt,but can you'ESCAPE FROM THE UNDERWORLD'" i=56 j=110 k=110 $z$(i,j,k)=((*98b)+1) k j i  4000 6:6:0: 0,3;i$;6;0;3,2;"Movement is controlled by the keys 5,6,7 and 8,the direction of movement is shown by the arrows above the keys." i=78 j=110 k=110 $z$(i,j,k)=((*98b)+1) k j i b" If stairs''are shown on the central display then the keys 'U'and'D'take you up or down." I"If you become trapped then by pressing'E'you will finish your game." (" To find out your status press 'S'."  c" If you encounter a monster you will be given a choice,be quick or the monster will attack you." i=9 10 j=110 k=110 $z$(i,j,k)=((*98b)+1) k j i  4000 6 @Q=08070 JQ=Q+(X(C)-2)*2 O$D=H$(Q*2-1Q*2) Q%AA=J$(Q*3-2Q*3) RAB=G$(AA)-480 ;B>4B<9 12 ,0;"IN THE CAVE IS "; <B<5B>812 ,0;"AHEAD OF YOU IS "; Q08120  "NOTHING"  90102#  ":"A ";1;g$(aa+1aa+ab);0;" " "d15,2;"C=COMBAT S=SPELL R=RETREAT";21,7;1;"INPUT INSTRUCTIONS" "420-X(C)*40( "W15,2;" ";21,7;" " "N=-59; "#N=23n=5579000(# ##N=24n=5689200# # "n=40(N=89500% # 9070n# #(ee=0-10 -2:.15~,e:.15~,e-1:e:(*6)=19070n# #- 9040P# #2X(C)=R #<Y(C)=S #FZ(C)=T #d #n215,0;" TOUGH LUCK HE ATTACKS YOU" #x!D09230$ #316,2;"ER YOU HAVE RUN OUT OF SPELLS" $ 9365$ $E(C)=E(C)-1 $k.5,557:e=54640(-1:.01z# =,e:.01z# =,e-2:.01z# =,e-4:e $6WC=(*502) $;F(C)=F(C)+(WC/2) $@WCD9600% %:+19,5;"BUT HE HAS KILLED YOU" %N 9100# %)19,6;"AND HAVE KILLED HIM" %?e=025:.01z# =,-6:.01z# =,-8:e % F(C)=F(C)+D %H(C)=H(C)-(*(D/2)) % 9300T$ &V=140( &V &6:6:2: &110 ;"FINAL SCORE";10 ;"" & I=1A &16+I*2,4;A$(I);" SCORE=";F(I) &I &K19,5;1;"INPUT";0;" N TO STOP THE PROGRAM" &=""9970& &="N"Ŧ="n" & & '):"DOD"1:1,1:"DOD" F