DUNJ MIM 47767 )I=13:.1}L,12 :I |0:7:0::1:6,9 ;"STOP THE TAPE":0:6:12 ,0;"Please wait."  3000 ,F"Giant Bat0025","Giant Rat0025","Skeleton0035","Thief0045","Etin0085","Giant Spider0110","Jelly Cube0200","Slither0300","Griffin0400","Mimic0450","Gorgon0450","Tangler0600","Incubus0700","Gremlin0400","Invisible Slayer0900","Seeker0850","Ghost0950","Flesh Leach1100","Balrog2200","Mind Drainer1300","Wanderer1900","Gorn3700" 1"CART= 200","MULE= 400","RAFT= 550","SHIP= 950","HOVERCRAFT=2500","DAGGER= 9","LEATHER ARMOUR= 25","AXE= 20","CHAIN MAIL= 50","SPIKED ROPE= 35","SWORD= 60" 6y"STEEL SUIT= 150","GREAT SWORD= 100","DEFLECT SUIT= 300","LONG BOW= 200","RIFLE= 290","LIGHT SWORD= 350","BLASTER= 500" @"UNLOCK= 15","MAGIC ZAPPER= 17","DOWN LADDER= 30","UP LADDER= 40","CREATE= 45","REMOVE= 48","JUMP= 55","BRIDGE= 60","KILL= 80" |;"Copper",1,"Bronze",-1,"Silver",26,"Gold",-26,0,175,8,44,,146,37%,72H,127,557,91[,115s,68D,104h,106j,76L,112p,101e,81Q,118v,97a,85U,8,6,4,3,2,1 3780,4000,4450b,3540 ,4200h,3540 ,3540 ,3540 ,3800,1460,4100,4300,3540 ,3540 ,3545 Q49150,49165 ,49225I,49275{,49291,49307,49334,494571,49632,49830,49995K,50179,49307,50258R,50366,49307,50567,507371,50850,51032X,49307,51161,51345,51471,51660,51866,52001!,52175 tN$="":I$="":Q$=S$:X4=S$:X=X4+1:R1=0:R2=0:R$="":IK=0:1170:.1}L,0 :Q=0:S$=Q$+R$:1185:22495W+X,255 =""Q=0:1040  3Q2=:Q=Q+1:Q=250R$="":1090B  1030 9K$=:Q2=:Q=Q+1:Q=300,R$="":1090B K$=""1040 .6.01z# =,12 :IK=K$:IK13  1100L 81R$""I$=R$(11):N$""R2=(N$) =%R$2R$=R$(12) B22495W+X,0: L+IK>96`IK<123 {IK=IK-32 QR$""1110V S1IK>78NIK<82RIK=87W1090B VIK12 1140t `722495W+X,0:X=X-1:X=X4X=X+1 e;H=07:20703P+X+(256*H),0:H jR$=""1020 lEQ=(R$(R$̱R$)):Q>47/Q<58:N$=N$(1̱N$-1) o(R$=R$(1̱R$-1):1020 t1X=X+1:X>31X=31:1020 ~$IK>47/IK<58:N$=N$+IK R$=R$+IK:1020 LG=0:1182 LG=100d:1182 LG=LAG M=47768 EV$="":S$>32 V$=S$(33!(S$)):S$=S$(132 ) *M=54616X:V$""S$=V$:1182 LG>01:LG  FJ=13:K=04:.0125zL,12 *K:K:J:  ^S$="Huh!"::K=I22:A$:K:K=127:A$:R$=A$(12)1295  K:P1=0: LQ1=A$:A=(A$(Q1-3Q1)):A$=A$(1Q1-5):P1=K+10 : +:J=1K+22:A$:J:1295 (w:K=1UP+12 :A$:K:Q1=A$:T2=(A$(Q1Q1)):T1=(A$(Q1-1Q1-1)):T$=A$(1Q1-2): 2?:K=1UP-4:A$:K:A$=A$(1(A$)-5): P^X2=X(P1)+((*3)-1):Y2=Y(P1)+((*3)-1):(Y2,X2)" "Y2>20 U3Y(P1),X(P1);" ":Y2,X2;A$:X(P1)=X2:Y(P1)=Y2: ZcS2=.01z# =:J=02:S1=12 *J:S2,S1:S2,S1:K=011 :S2,S1+K:K:J: n"PRESS ANY KEY" p""1392p qA$=:A$=""1393q s IQ=55128X:K=160<:A=C(K):A>65535A=65535 `P1=(A/256):Q,P1:Q+1,A-P1*256:Q=Q+2:K:Q+3,T2:Q+4,LAG AQ=Q+5:K=115:Q,(H$(KK)):Q=Q+1:K: Q=55128X:K=160<:C(K)=(Q)*256+(Q+1):Q=Q+2:K:UP=(Q):X1=(Q+1)*256+(Q+2):T2=(Q+3):LAG=(Q+4) ~Q=Q+5:H$="":K=115:H$=H$+(Q):Q=Q+1:K:C(60<)=0W$="HANDS":RW=4:1440 (K=C(60<):1300:W$=A$:RW=A ?C(46.)>1K=C(46.)-1:1300:U$=A$  ^S$="Enter lag time (0-9):":1000:LAG=R2*10 :R2<0R2>9 LAG=30 S$=" ":3530 bQ,P(I+1):Q1-Q,P(I+4)-P(I+1):Q,P(I+2):Q1-Q,P(I+5)-P(I+2): Q,P(I+1):0,P(I+2)-P(I+1):Q,P(I+4):Q1-Q,0:0,P(I+5)-P(I+4):Q-Q1,0: P(I),P(I+1):(255-P(I))-P(I),0:0,P(I+2)-P(I+1):P(I)-(255-P(I)),0:0,P(I+1)-P(I+2): 1520:A=(((255-P(I))-P(I))/3):B=(5*((P(I+1)-P(I+2))/6)):P(I)+A,P(I+2):0,B:A,0:0,-B: B=((P(I+1)-P(I+2))/4):C=((255-P(I)-P(I))-(P(I+3)-P(I))):D=((P(I+3)-P(I))/2):K=13:P(I)+D,P(I+1)-B*K:C,0:K: A=((Q1-Q)*.3):B=((P(I+5)-P(I+2))*.3):C=((P(I+1)-P(I+2))*.2~L):D=((P(I+4)-P(I+5))*.12}u[) Q+A,P(I+2)+B:0,(P(I+1)-C)-(P(I+2)+B):(Q1-A)-(Q+A),(P(I+4)-D)-(P(I+1)-C):0,(P(I+5)-B)-(P(I+4)-D): $P>8P=P+2:1553 $P>6ƽX1=1P=P+2 =P=21P=MI:MI=0MI=(5+*7):P=MI +Q1=P:P=P-4:P>2P=P-1 Q=(T(P)/256):48811,Q:48810,T(P)-Q*256:48812,S((I/3)+1):M=48830:P=Q1: ^:K=1P-9 :A$:K:Q1=(A$):A1=(A$(Q1-3Q1)):A$=A$(1Q1-4): "9I=14:P=(X2+A(I)):P<10 1610J #)E$""A(I)=X1A$=E$:A1=AS:1573% $ 1560 %S$="Attack by "+A$:1260:1180:P=23C(10 )=C(10 )-(31+*70F):S$="It stole some food":1605E 'IP16ź(1+*6)<6C(47/)=11580, (hS$="ARMOUR DISSOLVED":1370Z:1175:Q=C(47/)*2+13 :Q>19Q=Q+1 )4C(Q)=C(Q)-1:C(47/)=1:1610J ,vP=29C(1)>3C(1)=C(1)-(1+*3):S$="AHH! My head":1170:1370Z 1,P13 C(47/)>115906 3Q=(16+*13 ):C(Q)>0Q-10 C(60<)C(Q)=C(Q)-1:S$="He stole something":1370Z:1605E 6.(1+*C(3))<10 1600@ 8"(*3)<21600@ ;S$="Missed":1605E @*Q=A1/C(47/):Q<10 1595; BWQ=((Q*.8L)+(1+*(Q*.4L))):C(5)=C(5)-Q:S$="Damage "+Q E 1180 JI: T rHA1=(1+*492)+53876t:(A1)0A1=X21650r tA1,A: |uQ=8:J=03:A=(8+LV*2)+J:K=2Q:1650r:CC=CC+1:K:Q=Q-1:J:  bO$(8,10 ):L(15):C(60<):P(21):T(28):A(4):S(6) :I=1491:A$:I:I=14:O$(I):A(I):I:I=121:P(I):I:I=16:S(I):I:I=115:L(I):I:I=128:T(I):I »1430:M$="":RS=30:T2=T2-2:LV=1:P=8:S$="Its dark in here":X1=-26:X5=-1:E$="":HP=0:MI=0:AS=0:AK=0:MV=0 6Q=0:T23C(7)<54120 `2:0::5:I=37:I,1;" ":I 2:6:0,0;"High upon the stone entrance yousee a message:":7:1:4,2;"KNOW, O Slayer of the Gorn,":5,2;"That the Bearer of the Four":6,2;"Shall enter the Gate of Mist" 0:8,151:239,0:0,-39':-239,0:0,39':8,151:7,-7:247,151:-7,-7:247,112p:-7,7:8,112p:7,7 !2:6:10 ,0;"A dais rises from the ground, its ebon surface marked in four places: ";:0:7:" C B S G ":2:6:I=55758::C(I)=03110& #I:3115+ &T16,0;"You do not have them all!"::1390n:0::4120 +1:16,0;"You put the Rings in place":0::1390n:6:0:2::H$:"The Ultimate Quest awaits...":5,0;"Turn cassette to START side and rewind it.":"When done ";:1390n 0Q1=1:4560 MV=13503 g1570":CC<6ź(*200)=199CC<100dS$="ONE MOMENT":1170:1660| MV=0:P=1000*C(4):C(4)>1P=(1+C(4))*(6000p/(12 /C(4))):C(4)>4P=10000'+(6000p*(C(4)-4)) -C(8)PC(4)=C(4)+1 4C(5)<1C(10 )<14490 (C(8)<1C(8)=1 >C(10 )<11 C(5)<21.01z# =,24 ES$="?":1000:IK>78NIK<82RIK=87W3900< 5I=115:I$="RAZECSBXILKUTG#"(II)L(I) $I:R$""S$="Pardon?":3530 S$="Pass" 1180 wP=(X2/256):47941E,P:47940D,X2-P*256:P=(X2):X2,255:M=54396|:X2,P:3600 )S$="You can't do that now!":3530 3S$="You must leave the dungeon first":3530 1175:3535 _M=52350~:X3=X2:I=1213:P=(X3):P=11520:3500 \P=5LV<10 P>6P<10 1550:P=11 S$="Chest":1180 -I>1P=31520:3500 -I>1P=21530:3500 P=61533 RQ=P(I):Q1=P(I+3):P=(X3+X5):P>0P<41500:3615  1510 P=21535 $fQ=255-P(I):Q1=255-P(I+3):P=(X3-X5):P>0P<41500:3623' & 1510 'P=21535 ),P=(X3):P<10 P=243650B .$P=161520:3650B 8$1550:I<13 3500 B7X3=X3+X1:I:0,0;X2:1,0;X1 G 3500 =S$="Ready which item?":1000:R$<23525 %1290 :P1<163530 9C(P1)=0S$=A$+"? You don't have one":3530 ǗP1=17P1=19P1=22P1=24S$="OH DEAR! The passages are too":1170:S$="narrow to get armour on":1175:3545 ?P1>15P1<29W$=A$:RW=A:C(60<)=P1-10 P1>28M$=A$:RS=P1 #S$="OK! "+A$+" ready":3530 hS$="Inform and search":X3=X2:I=12:X3=X3+X1:P=(X3):P=4X3,5:3530 #P=3X3,2:3530 P>03530 I:3530 0C(60<)10 ƺ(1+*(C(3)/3))ɺ(C(3)/3)C(20)=C(20)-1:S$="SAVED by spiked rope":1370Z:x3,5:3530 OP=8:4103 PS$="Path blocked":3530 ZiI=14:P=(X2+A(I)):P>9 ƾ(X2)=0X2+A(I),0:X2,P:MV=1:3950n _I n+C(10 )=C(10 )-.125}:X2=X3 x4X5=-26:X1=-1X5=26:3975 }'X1=-26X5=-1:3975 X1=26X5=1 1170:3535 0SP=0:X3=X2+X1:RW<2004015 GI=15:P=(X3):P>0P<4P=64010 P>9 4020  X3=X3+X1:I  S$="Attack what??":3530 !P=(X3):P<10 4010 !E$=""1560:E$=A$:AS=A1 SP=14025 S$="Attack with "+W$:1180:Q=(RW*.4L)+(1+*(RW/2))+C(2):(1+*(C(4)+1))=2S$="Missed":3530 >1260:S$=E$+" hit":AK=AK+Q:AS-AK>03530 uE$="":X3,0:S$=S$+"...KILLED!":1370Z:1180:MI=0:HP=HP+(AS*.75@):Q=((AS/5)+(1+*(AS/3))):Q1=((AS/5)+(1+*(AS/3))):C(9 )=C(9 )+Q:C(8)=C(8)+Q1:S$="You get "+Q+" gold & "+Q1+" exp.":CC=CC-1:AK=0:P=16C(40()=1C(40()=2:4060 AP=22C(44,)=1C(44,)=2:4060 AP=25C(42*)=1C(42*)=2:4060 AP=28C(38&)=1C(38&)=2:4060 wP=31C(7)<4C(7)=4:1180:1370Z:S$="You are now a GORN SLAYER":3550  3530 ?1180:1370Z:S$="A quest is completed":3550 6Q=0:P=(X2):P=7LV=14550 .P=5LV<10 P=8:4103  4105  MQ=1:X2=(1+*492)+53876t:(X2)>04103  4110  4P7P8S$="Climb what??":3530  1(X1)=1S$="Face the ladder":3530  -P=7X2LUP=8X2LD4103 7P=8S$="Going down":LV=LV+1:4120 S$="Going up":LV=LV-1 1180:M=54502 'P=84140, (*T2=T2-2:T2<1T2=T2+9 ) 41451 ,*T2=T2+2:T2>9 T2=T2-9 1A=54562"+T2*2:B=(A+2)+(A+3)*256:A=(A)+(A+1)*256:LU=A:LD=B:A,7:LV<10 B,8 6"Q=0X2=A:P=7X2=B ;0CC=0:1660|:LV<34170J @ I=12+(*4) BEP=(1+*492)+53876t:(P)>0P=X24162B ES(P-1)+(P+1)2ƾ(P+26)+(P-26)24162B GP,6:I JLV=14565 O I=14+(*4) Q@P=(1+*492)+53876t:(P)>04177Q TP,9 :I:4565 h@S$="Cast a spell":1180:M$""C(RS)>04215w m&S$="You're out of those":3530 rS$="Spell failed":3530 wAC(RS)=C(RS)-1:C(6)=1RS<34"4225 |[(1+*C(1))<(11 -C(4))ź(1+*C(4))=44210r "4225+5*(RS-28) 4S$="Openus":1180:(X2)9 4210r  4325 [S$="Zam Zagrabor":1180:Q=513+(*85U):SP=1:X3=X2+X1:4015 :S$="Down Creatus":(X2)>0LV=10 4210r X2,8:3530 ,S$="Up Creatus":(X2)>04210r X2,7:3530 sS$="Fieldus":(X2)>0ž(X2-1)+(X2+1)2ƾ(X2+26)+(X2-26)24210r X2,6:3530 0S$="Destructium":(X2+X1)64210r X2+X1,0:3530 OS$="Jumpus":X2=(1+*492)+53876t:(X2)04260 1370Z:3530 7S$="Transportium":A=(X2+X1):A<10 4210r 3X2+X1,0:1650r:1370Z:3530 S$="Oblitoratus":1180:Q=1400x:X3=X2+X1:SP=1:(*3)=2C(7)<4ƾ(X2+X1)=314210r  4015 /(X2)9 S$="Unlock what??":3530 "(*3)24325 BS$="WATCH OUT!":1370Z:X3=X2+X1:(X3)=04320 DI=14:P=(X2+A(I)):P=0X3=X2+A(I):4320 I:4325 :X3,(1+*4)+(7+LV*2):3530 }Q=10 +((1+*502)*LV):C(9 )=C(9 )+Q:S$="You found "+(Q)+" gold pieces":X2,0:3530 b7:0:J3=((6,10 ))::"Status Check:";H$:"A level ";C(4);" ";:C(7)>3"Gorn Slayer":4475{ g*A$="Elf":C(6)=2A$="Dwarf" l C(6)=3A$="Human" q.Q$="Thief":C(7)=2Q$="Warrior" v!C(7)=3Q$="Wizard" x A$;" ";Q$ {"Intelligence ";C(1):"Strength ";C(2):"Agility ";C(3):"Hit Points ";C(5):"Experience ";C(8):"Gold ";C(9 ):"Food Units ";C(10 ) }6I=14:C(546+I)=04480 ~2"Rings of ";O$(I)(17);C(546+I) I dQ=13 ::K=122:A$:K:K=127:A$:C(K+10 )=04485 b1295:23692\,255:A$;"S ";C(P1):Q=Q+1:Q=201390n:Q=0 K:1390n:4565  C(5)=0:C(10 )=1:.1}L,-20:.5,-30:0:7:0::5,0;H$:"You are DEAD!!":10 ,0;"To attempt ressurection":"PRESS ANY KEY":1392p:6:0:T2=10 ::4557 Ʃ6:0:5::5,0;"This ladder leads to the surfaceDo you wish to climb it?":1392p:A$=A$(11):A$"Y"A$"y"4565 _HP=HP::"On leaving the dungeon you":"recieve ";HP;" hit points":C(5)=C(5)+HP e5,0;"Leave the cassette on GAME side and REWIND it. When done":1390n:Q1=0 Р6:0::"One moment please":1410:6::2:1:6,9 ;"START THE TAPE":0:6:Q1=0"GAME SIDE" "QB" S0:4:1::K=23200Z23231Z:K,15:K:3535  U Copper Bronze Silver Gold Nb h  /<l,%H7[sDhjLpeQvaU I{1KR1X!!A KILL= 80qaHWHANDSMpSIts dark in hereE3