ZXTape! 0Created with Ramsoft MakeTZXDM pppI:"65535":ç:ٰ"7":ڼ::9 ,9 ;ۼ;"STOP THE TAPE":"10"  ç:a$= -t=̱y$:a$()=y$(t)cn=t:t="999":t:  t:"2" NOTES>"70"NOTES="70" -T=NOTES:((G$(T))/DE),(F$(T))-PIT:T: 缧:ڼ:7:c1=ç:pit=c1:de=c1:trn=c1:dead=c1:gs=c1:a1=c1:a2=c1:a3=c1:a4=c1:a5=c1:a6=c1:a7=c1:a8=c1:a9=c1:z1=c1:z2=c1:z3=c1:z4=c1:z5=c1:z6=c1:z7=c1:z8=c1:z9=c1 vac=ç:mno=ac:mtc=ac:cm=ac:i1=ac:wm=ac:an=ac:pr=ac:wt=ac:r1=ac:r2=ac:r3=ac:r4=ac:r5=ac:ab=ac:c$="None" r(x)=(x*+1):s$(24):w$(20):q$(3):o(20,11 ):z(9 ):f(30):armwt=ac:w$="":s$="":pointw=ac:points=ac:h$(13 ,8):h(12 ):k(12 ) (l$(20,2,24):l(20,10 ):p$(20):e$(20):m$(29,25):i$(7,9 ):w(31):o$(4,6):ee=ac:c$="None":e$=c$ n"9535":t=̰"13":h$(t):t:t=4:o$(t):t:t=12 :h(t):t:t=12 :k(t):t:9710%:t=29:m$(t):t:t=6:i$(t):t:t=330:w(t):t:t=9 :z(t):t:t=29:f(t):t ~:2,7;5;0;"THE DUNGEON MASTER":'"  1983 Crystal Computing"'''" Do you wish to load"''" a character from tape ? "''" PRESS Y or N":y$="yn":2 q:4;("Please type in your name:"'6;"(Up to 10 characters)"'11 );u$:u$>16130 cn="6700" " ";ۼ;5;"Enter Dungeon file name"'';7;ç;"(Press ENTER for next on tape)"''10 ;v$:rn=:le=1:缧::9 ,9 '8;ۼ;"START THE TAPE":v$d$():ds=d$(13 ) .:10 ,9 ;1;"STOP THE TAPE" cn="270" nl="1e3":z5=r(15):r4=3:8700!:ss=a:8700!:ii=a:8700!:wi=a:8700!:dd=a:8700!:cc=a ahh=r(10 )+10 +((cc>14)*(cc-14)):hc=hh:9100#:8e3@:200 ,O4:ç:4::i=9 ̱d$(rn):ch=d$(rn,i):ch=" "i:3e3 @ch=""i:3e3 Cch=" "ch="" Dch="H"ch=" " Ech="E"ch=13 Fch="F"ch=":" Gch="G"ch="," Hgs=gs=ç: Ich<"Q"500 Jch=i:"3e3" Och>"P"c1=i:"3e3" Tch<"o""1500" ^ch<"""2e3" ch=ch-"140" S'"There's a ";m$(ch):"23692","255":"Do you want it? (Y/N)"':y$="yn":2 cn="2"i:"3e3" ?points="24"'"You can't carry so many items":i:"3e3" ."8600":s$(points+)=ch:points=points+ 5ch="27"trn=trn+:trn=d$(44,)6800  i:"3e3" D:pr=pr+10 :mno=0:''" You are confronted by..." :yf=ç:mtc=:rp=yf @9195#+5*(ch-(ch>45-)):ch=45-9417$  mno=mno+ l$(mno,),l$(mno,2),l(mno,),l(mno,2),l(mno,3),l(mno,4),l(mno,5),l(mno,6):l(mno,10 )=i @t=̰"12":h(t)>l(mno,4)l(mno,7)=t:t=999 t ;v=r(l(mno,4)):vt=22:q=t:l$(mno,,qq+1)=" "t=999  t  Rrpq$=mtc+"th":mtc<4q$="3rd":mtc<3q$="2nd":mtc=q$="1st"  "rpl$(mno,)=q$+" "+l$(mno,)  i=i+:i40(nch=d$(rn,i):tch=ch:ch=nch:gs=:323C:nch=ch:ch=tch:nch=chmtc=mtc+:rp=çrp=:i=i-:mtc=mtc-:523  nch=ch"505" ;7;:mtc="A ";l$(mno,,q-1);:530 +mtc;" ";l$(mno,,5q+3);"s"; *ch=nch:nch<80P" and";:504 (i=i-:t=mno:l(mno,9 )=ç:t ,mno>çop=:a$(6):"Option ? ";a$ mnowm=ç:i:2999 &#q=ç:t=4:a$=o$(t)q=t 5;t:q=ç:7;4;"No such command":540 6q=41400x 8q<36000p 9610b-q*10 D8000@:540 N7000X:f=100d:f P-a3=26wmi=990:i:2999 Qa3=262999 R<f=mno:l(f,4)ç600X Ti:2999 XJ2:2:6::z$;u$;"...":"Prepare thyself for battle": Y8e$(4)="None"e$="fist":ws=2:wd=2 [-r1r1=r1-:r1ss=ss-3:609a ]-r2r2=r2-:r2ss=ss+5:609a _9r3r3=r3-:r3ab=ab-3:9100#:609a ` 610b a?hc=hc-r(30):hc<"The ring drained you":1300 bYz8z8=z8-:hc=hc+20*z6:hc>hhhc=hh:z8ab=ab-4*z6:9100#:z6=ç cz3="5600" g2t=11 :q=mno+:o(q,t)=0:q:t l(t=mno:a1=(l(t,)-r(6))+ v4o(t,a1)=:a1=a1+l(t,):a1<12 630 v t:a1=(ws-r(6))+ 8o(mno+1,a1)=:a1=a1+ws:a1<12 650 do=ç t=11 :q=mno+ o(q,t)q:t:540  502  "23692","255":qmno"900" "4;0;u$;"'s attack" 8yf=yf=ç:u$;" picks up the ":e$:q:t:540 u$;" attacks with":"his ";e$ qf=r(20):ff=(f+((ss>16)*(ss-16))+((dd>15)*(dd-15))-((dd<7)*(7-dd))) 6g=20-l(cm,3)+-le:g<2g=2 "g>20f20760 f=20do=:700 ffg800  do=do=ç:800  "and missed "  Ir(20)<7e$(4)"fist"u$;" fumbled the ":e$:yf=  830>  'do="AND DOUBLED !":8204 *"and struck home " 4l(cm,4)=l(cm,4)-(r(wd)*(do+)+((ss>15)*(ss-15))):l(cm,4)q:t:100d H#4:4:ç::540 udo=ç:3;l$(q,):l(q,9 )=l(q,9 )=ç:l$(q,),"picks up its "'l$(q,2):q:t:540 &"...attacks with its ",l$(q,2) &f=r(20):g=k(l(q,7))-ac "g>20f201e3 #f=20do=1:940 fg1050 do=do=ç:1050 "and missed" [r(20)<7l(q,5)=çl(q,9 )=:"It has fumbled its",l$(q,2) q:t:540 (do="AND DOUBLED !":1070. $"and strikes home" .Lhc=hc-(r(l(q,2)))*(do+):hc14)*10 *(dd-14))-((dd<7)*(7-dd)) r(100d)14)*(cc-14) 4(hh=hh+a7+(cc>14)*(cc-14): #200:4:ç:4: &op=ç:wm=ç:85004!:9100# z1=pr=pr+30 $z7=hc=hc+2:hc>hhhc=hh z3=5600 #(r(200)-)ç3200 :z(q-4) Xc1=-c1:300, l8000@:300, v7000X:300, a1=(d$(rn,(q*2-))) a1=a1=43230 '"You can't !":300, >rn=(d$(rn,q*2)):pr=pr/2:c1=0:300, 8'"Which way ? : PRESS N E S or W ":y$="nesw":2 $z2=ss=ss-:ss=3z2=ç a6pr=pr+5 a1=(d$(rn,cn*2-)) 'a1=6'"You can't !":300, <a1=a1=4'"O fool it is already open!":300, a6=4710f Ca2=2+(ss>15)+(ss>19)+(ss>22)-(ss<8) a1=3a2=a2-2 pr=pr+5 a3=r(6) a3a23600 -a3>a2a15ڼ;7'"You failed" a3>a2a1=5'"You can't" 300, _ۼ;7'"You have opened it":d$(rn,cn*2-1)=¼:a2>6ee=ee+100d !a1=d$(rn,cn*2) "a5=a5=ç: $%cn=cn-2:cna13900< q=ç:c=72 !a1=(d$(rn,c)):a1=5q=c c:q=ç3900<  X'1;7;"Hidden door :";:y$="NESW":" ";y$((q+)/2):a6=a6=ç: ( 300, pointw)(t<)300,  a1=w$(t) )9600%+5*a1:p$,wspf,wmax,wwt a5=a5=ç:4430N $e$=p$:wd=wmax:ws=wspf:300, 0a5=:4100 N4b=9 40(:d$(rn,b)=" "q=b:b=999 Sb:d$(rn,q)=(a1+110n) X$w$(t)=w$(t+):pointw=pointw- gp$=e$e$="None" lwt=wt-wwt:300, \a6=:3500 fCa6=ç:a2=dd*2+ii+le*15:a3=r(300,):3560 Xpr=ç:ch=r(68D):9195#+5*(ch-(ch>45-)):ch=45-9417$ l$(,),l$(,2),l(,),l(,2),l(,3),l(,4),l(,5),l(,6):l(,8)=l(,4)*2/3:5000:a1*l(,4)>200*le4800 /wm=:'"A wandering ";l$(,);" arrives !" mno= @t=12 :l(,4)ç5215_ nss=ss+3:r1=10 : ss=ss-5:r2=10 : r3>ç5215_ *r3=10 :ab=ab+3:9100#: \'"The room fills with a terrible red fire!":d$(rn,9 )=" " -r4=r4-:ee=ee+3000 :r47090  ?'"Unearthly feelings run through your puny mortal frame !": J&r(ii*le)>30op=5480h T'"The spell fails" ^=r(ii*le)<30"..and backfires !":hc=hc-r(30) c 7090 h'"The ";l$(cm,):" is stricken!":l(cm,4)=l(cm,4)-r(30):l(cm,4)<1"It has disintegrated!":dead= r |2ab=ab+r(3):z1=ç:9100#:7090 Fz4=z4-r(2)+:z4>ç((z4+)/10 )ɺ((z4+)/10 ) 6zz=-((z4-9 )/10 ):zz*10 +5610  '"You feel a mild gibbering": $'"You feel a stronger gibbering": ''"You feel a heaviness in your gut": ['"You feel a fire eating up your body ":ss=ss-:dd=dd-2:cc=cc-:9100#: \'"Your body is on fire and you arein agony":ss=ss-3:dd=dd-3:cc=cc-4: &M'"A black vortex opens up in frontof you and swallows you up!!":1300 p:mno=cm=: z623692\,255::t=mno:t;" ";l$(t,):t %'"Which do you wish to attack ?";cm 5cmmno'ڼ;7;"Try again":6020  dD:6,11 ;"GAME SAVE"''"Game,Character or Abort (G/C/A)" ny$="gca":2 xcn=3300, cn=26570 d9 ;("Dungeon name ? ";7;"(Up to 10 letters)"';10 );v$:v$>10 6540 v$300,  6600 z4=5600:6570 l$(14,)=ws:l$(15,)=wd:l$(13 ,)=e$:l$(11 ,)=points:l$(12 ,)=pointw:l$(,)=s$:l$(2,)=w$:l$(3,)=c$:l$(4,)=ss:l$(5,)=ii:l$(6,)=wi:l$(7,)=dd:l$(8,)=cc:l$(9 ,)=hc:l$(10 ,)=hh:l$(,2)=ee:l$(2,2)=le:l$(3,2)=nl:l$(4,2)=narmac:l$(5,2)=armwt:l$(6,2)=wt v$=u$:v$l$() Mcn1=cn:'9 ;"Verify? (Y/N)":y$="yn":2:cn=26630 cn1=v$:6630  v$l$() C"Terminate game? (Y/N)";a$:a$()="n"a$(1)="N"300, a$()="y"a$()="Y"ç  6630 ,-''8;"Start the tape":v$=u$:v$l$() 6ws=l$(14,):wd=l$(15,):e$=l$(13 ,)(18):points=l$(11 ,):pointw=l$(12 ,):s$=l$(,):w$=l$(2,):c$=l$(3,)(18):ss=l$(4,):ii=l$(5,):wi=l$(6,):dd=l$(7,):cc=l$(8,):hc=l$(9 ,):hh=l$(10 ,):ee=l$(,2):le=l$(2,2):nl=l$(3,2):narmac=l$(4,2):armwt=l$(5,2):wt=l$(6,2) @ "KIKIKLNNPKKNKIKLKLKLNPPRNNGINKIKIKLNNPKKNKIKLKLKLNPPRNNGINPPRNNPLKLNKIGIKGKIRPNPRNSNSNSNPNLKKIKLNLKIPNUS","51x1x136351339351x1x13635133y51x1x136351339351x1x13635133y3ww3wwwwww5wwww3333wwww633333wwww3wwww3ww33339" 6:6::10 ,;ܼ;ç;7;"You have completed your quest";12 ,11 ;"Well done":6800:f$,g$:notes=104h:pit=58::de=10 :w=4/3:x=5/3:y=12 :6:6500d X#points'"You have no magic!!": l:j=points vj;" ";m$(s$(j)):j "Which do you wish ?";a2  a2ja2 a3=(s$(a2)) f(a3) &s$(a2)=s$(a2+):points=points- hc<1300  Chc=hh'"You feel pins & needles in your arms & legs":7090 "hc=hc+r(10 ):hc>hhhc=hh !'"You feel better.":7090 ]hc=hhz2=ç:'"You feel an urge to bounce aboutthe room!":pr=pr+r(200):7090 .'"You feel great!":hc=hh:z2=ç:7090  A"Agony racks your body!":hc=hc-r(30):hc<1300 *z7=ç:7090 Rz1=:7090 Oss=3:ii=ss:cc=ss:dd=ss:wi=ss:hh=:hc=:"Oh dear!!":7090 vz6=z6+:z8=12 :cc=cc-z6:hh=hh-4*z6:hc=hc-4*z6:ab=ab+4*z6:9100#:hc<1300  7090 ii=ii+r(3):7090 dd=dd+r(3):7090 Lz7=:7090 ~&z2=:"You feel itchy ":7090  ss=ss+r(3):7090 3cc=cc+r(3):"Bordeaux I think":7090 ha6=r(3):ss=ss-a6:ii=ii-a6:dd=dd-a6:cc=cc-4:"Get too the loo quick !":7090 F*r(ii*le)<502"Nothing happens!": Px"The world spins about you!":rn=r(ds):a6=r(ds):t=9 40(:d$(a6,t)=" "d$(a6,t)=155:t=999 Zt:7090 x-r(ii*le)<10 op"Nothing happens": {"The ";l$(cm,):" is wracked!":l(cm,4)=l(cm,4)-r(10 ):l(cm,4)<"It is blown apart":dead= Mr(10 )<2hc=hc-r(10 ):"The wand explodes !":7090  2ss1=ss:ss=20:"Energy floods through you" 4ss1>ss502:"..and beats a hasty retreat !!"  7090 8z3=:z4=hc:hh=hh+7:hc=hc+7:7090 +ab=ab-r(4):9100#:7090 @H4:4:ç::9720%+5*le:le5579995 ' A 7;ۼ;"STATUS REPORT"'' B'z$:z$;u$'':"Level ";7;ۼ;le E}''"Wisdom";15;"= ";wi:"Strength";15;"= ";ss:"Dexterity";15;"= ";dd:"Intelligence";15;"= ";ii J"Constitution";15;"= ";cc:"Hit points";15;"= ";hc:"Max.hit points";15;"= ";hh:"Experience";15;"= ";ee TB"Armour class";15;"= ";ac:"Armour : ";c$:"Weapon : ";e$ Y8"Weight carried = ";wt:"Next level";15;": ";nl ^H'"More information ? ";7;ۼ;"PRESS Y or N"':y$="yn":2 h:cn=2 rJܼ';"Weapons carried :"'ç:pointw"No weapons carried ":8100 |t=pointw:a3=w$(t) 9600%+5*a3:p$  t;" ";p$:t Z'"More information ? ";7;ۼ;"PRESS Y or N"';ç:y$="yn":2:cn=2 :ܼ;"Magic items :"'ç points"No magic items": )t=points:a3=s$(t):t;" ";m$(a3):t !4 !d$(rn,i)=" ": !2t=4:o(,t)=r(6):t:w=:a=ç "$t=4:o(,t)14))+((7-dd)*(dd<7))+(wt>(.75@*w(ss)))+(wt>w(ss))+((w(ss)*1.25 ) "Hero " &R"Dragonslayer " &\"Super hero " &"Wizard-lord " '"Master of Creation " DUNGEON 1 EN#V'Qr DD  A0000&z !F  66  $ ''''''''     ! /  === 142    -' """"S  $ 88 11T{rrrrrr !( ) . ==FF   !% A !!7  E V !!!!9 # %" "% #&$>> %'? &(555 J' *** )+ *U# 10 U.FFFF -7/C x.0888 /1{ 02*** 13U 14q--11 35T 64F 75=== 86"D7 9!766' ;8 p V91111 =V <?### =? >@F444 ?A8 @IGBtttttttR AC- EB% ECN> FC ?E IH!/ GM JG !KI JDL KM($ LH DO*** NQP OSGG R44444444~~~~~~~~ SQCW. TP%% 4S +-- <;'''' RXE WY>>// XZ? Y[p Z\A [!] \^>> ]_918 ^` a_a+W ]`c@ c` dab fc fd7 ge hf<(( ikgB jh3G i lh mk999 ln999 om npe?| oZ 3r111 squ>> rt wsut' trv.. uu2H ytx w!+Y |zwEE {y!! 0z !}yC |@ !; ~''''''''''2111  )   > 111111112   3  ~!HHH   v ' 3