Troll "Robbie Coull,1984     ******start of program*****     bch=0 T$(10 ,15) S$(10 ,10 ) !S(10 ,5) "H$(4,10 ) #H(4,3) $Q$(6,10 ) %Q(6,3) &F$(9 ,10 ) 'F(8,3) (D$(8,28) )M$(21,10 ) *E$(4,6) +I$(19,6) -i(3,3) 2 9800H& 64z=19 :x=15:S(z,x):x:z @4z=13:x=13:H(z,x):x:z J4z=15:x=13:Q(z,x):x:z T4z=18:x=13:F(z,x):x:z XZ=110 :S$(Z):Z Z!z=14:h$(z):z \z=16:Q$(z):z ^z=19 :F$(z):z az=18:D$(z):z cz=121:M$(z):z d ez=14:E$(z):z iz=119:I$(z):z kz=110 :t$(z):z l4z=13:x=13:i(z,x):x:z nDz=09 :x=07:a:(144+z)+x,a:x:z s:bch=(*11 ):bch=(*11 ):ms=1:mls=0:plg=0:it=0:ld=0:a$(17):n(7,3):E(5):C(32 ) u!C(1)=(*4)+1 w2z=24:C(z)=((*6+*6+*6)+3)*i(c(1),z-1):z xC(2)=((*6+*6+*6)+3)*(1+(C(1)=1)-.5*(C(1)=3)-.3*(C(1)=2)) y_C(3)=((*6+*6+*6)+3)*(1+.5*(C(1)=2)) ztC(4)=((*6+*6+*6)+3)*(1+.5*(C(1)=2)+(C(1)=3)) gc(2)/i(c(1),1)+c(3)/i(c(1),2)+c(4)/i(c(1),3)>45c(2)/i(c(1),1)+c(3)/i(c(1),2)+c(4)/i(c(1),3)<30117 `C(2)+C(3)+C(4)>45-C(2)+C(3)+C(4)<30117u /c(5)=c(2)*5*i(c(1),5):C(12)=(10*(*20+5)) Mc(5)=c(2)*5:C(12 )=(10 *(*20+5)) C(13)=C(3)*5*i(c(1),4) pC(13 )=C(3)*5*(1*(C(1)=1)+.5*(C(1)=2C(1)=4)) C(20)=(1+(C(1)=1C(1)=3c(1)=5c(1)=7)+4*(c(1)=9 c(1)=6))*(1+(C(5)>C(13 ))) WC(21)=1+(C(13 )/20):C(21)>5C(21)=5 9C(22)=C(2):c(23)=1:le=0 )ct=0:7:1:5: Z=113 +C(21) Z,15;I$(Z);":"; 7((Z<7Z>1)Z=12 Z=13 )C(Z); z=13 z=5"%"; 'Z>13 C(Z)=0C(Z)=9 \Z>6Z<12 C(Z)=0C(Z)=10 -6*(Z=10 )-4*(Z=11 ) 0Z>13 (e(z-13 )=1);F$(C(Z)); Z=11 Q$(C(Z)); Z=10 H$(C(Z)); !Z>6Z<10 S$(C(Z)); Z=1E$(C(Z))  Z  1900l ld=1300, ~2;1;"Name of Character?";0,"(~~for a different character","~Load~ to load saved character)",1;A$ !a$(4)="Load"9510&% "#A$=" "115s ,+0,15;1;1;A$() 1=14+c(21),15;I$(19);":";C(19) 6ld=1700 Jc5,0;7;5;"DRAWING MAP";6,0;1;1;"Please wait" &TA=0:PA=(*10 )+1 ik$(10 ,10 ):Z=1̺(*200):k$((*10 )+1,(*10 )+1)="":z z=110 >k$(pa,z)="-":(<.1}LZ=10 )TA=03950n <.33900< Z &4DA=(*10 )+1:DB=(*10 )+1 0da=tadb=tb550& c(2)=c(2)+mls*(mls>0):mls=0:1910v:c(28)=0:at=39':fa=2:C$="":A=ta:B=tb '7:0:6:9200# 3:;0,0;"**Delvington**":"1.Save Cha'r":"2.Buy Weapons":"3.Buy Shield":"4.Buy Armour":"5.Buy Spells":"6.Train Str'th":"7.Sell eqip't":"8.Gamble":"9.Leave" Qplg=112 ,0;7;1;1;1;"**PLAGUE**" 620,0;1;2;"Choose Now "  9000(# Uplg=1c(27)=0c(1)9 l<9 ƥ<.33100 9500%*(l=1)+7000X*(l=2)+7500L*(L=3)+7200 *(L=4)+7600*(l=5c(1)3)+7400*(l=6)+85004!*(l=7)+8300l *(l=8)+920*(l=9 )+740*(l=0(l=5c(1)=3))  t20,0;0;4;"You have arrived at the entranceto TROLL TUNNELS. ";1;" Which level? " %29000(#:le=l+10 *(l=0):906 u20,0;7;2;"You are on the stairs: 7.UP,6.DOWN,0.STAY5.UP TO SURFACE"  9000(# @902+3*(L>4L<8)+1098J*(L=0) -LE=(LE+(L=6)-(L=7))*(L5) #LE<1a=da:b=db:920 A=((*10 )+1)*(at480)+a*(at=480):B=(*10 *(at480))+1+9 *(at=480B=1) :le>c(19)+1l0le=c(19)+1 h(le=0):3+4*(le>0):1+3*(le=0):1+4*(le=0) O9200#:0,0;4;0;"///TROLL////" Z=110 s4;0;"/";:1+10 *(le>0);(K$(Z)LE=0);:4;0;"/" Z .4;0;"//TUNNELS///" !0:LE=01101M 1;7;"LEVEL:";LE Qz=15:(*10 )+1,(*10 )+1;6;"":z 6(*10 )+1,0;6;0;"" 7(*10 )+1,11 ;6;0;""  V=12 X=(*9 )+1 Y=(*9 )+1 Z=110 9X,Z;0;5;" ";z,y;" " Z L=13 $9X,(*9 )+1;" ";(*9 )+1,Y;" " )L .V D9C=A*(at480)+((*10 )+1)*(at=480) G9D=B*(at480)+((*10 )+1)*(at=480) L=at=480A,11 *(B=10 );0;6;"" O 2000 EC(4)=C(4)+(12 )-(9 -c(y))*(c(y)<9 ):y:c(6)>0c(6)=c(6)/502*c(5) |Y2,22;1;7;C(2);" ";6,22;C(6);" " ~ c(2)<06000p   b1+3*(le=0):3600:<.01z# =+.04|# =*(plg=1)plg=(plg=0) -c(27)>0ƥ<.01z# =3200 (LE>0C,D;1;7;"" Gle=0ta,tb;7;4;"";1;4;da,db;"" 18,0;1+3*(le=0);(le=0);" ";19,0;" ":c(28)>0c(28)=c(28)-1:18,0;7;5;"You are";19,0;"INVISIBLE."  9223$ :<.05|L9223$:23613=\,0:8800`" ا20,0;1;1+6*(le>0);1+3*(le=0);"MOVE PLEASE";0;" " Nc(27)>0c(2)=c(2)-(c(2)/10 ):1910v 4C(22)=C(22)+(<.005y# =*C(20)) ݀C(2)=C(2)+.125}*C(20)*(c(22)>c(2)c(27)<2)+(mls>0):mls=mls-(mls>0)  1910v  :z=1400:=""z  Z=A:X=B *Z=Z+(="6")-(="7"):X=X+(="8")-(="5") 'fa=(="7"Ŧ="6"):zaxb2057  ="c"Ŧ="C" "a"Ʀ"A"2048 Z20,0;1;5;1;1;" **GAME STOPPED**('r'to restart)" "r"Ʀ"R"2046  9223$ !.01z# =,-20:3700t 1sp=0:="s"Ŧ="S"sp=1:5100  2057  1+3*(le=0):7-6*(le=0):(le=0):x>ba,b;"":.1}L,0:a,b;"":.1}L,0:a,b;"" Jxaz,x;"";a,b;"":.1}L,0:z,x;"";a,b;"":.1}L,0:z,x;"";a,b;"" .1}L,0:1+3*(le=0);3+4*(le>0);a,b;(" "le>0);(k$(a,b)le=0):0:20993  at=(z,x) /z=ax=b21015 0W20971-1297*(at=33!)-1187*(at=480)-1397u*(at=39') 1Sat=32 +64@*(le=0)(at=5ƥ>C(4)/100d)21015 2 2052 3 A=Z:B=X 4yat=520,0;5;7;"You find a secret door! ":z=-300:.01z# =,z:z 5rA,B;7-6*(le=0);(le=0);1+3*(le=0);(148+2*(fa=0)) 6>21037+7297*(at=14)-1203*(at=579) HU*10 <(8-(3*(k$(a,b)="")-(k$(a,b)="-"))*(le=0))2001 \Wbar=0:MS=(LE*2*(LE<9 )+16*(LE>8)+(*4)+1) ^;MB=(4+)*ms*(le+(c(19)+1)*(le=0)) aI20,0;7 ;2;"You have encountered ";M$(MS);"!" fM8190:z=120:.03{u\,-25:.01z# =,-20:z } 8190  9223$ J:20,0;7;3;"**STRIKE QUICKLY** " z:sp=0:8000@ GZ=15:.02{# =,0:.01z# =,-10 :3700t  8000@ [2194+16*(L$="f"l$="F")+44066*(L$="r"l$="R")+2906Z *(l$="s"l$="S") Z:mc=0:2400` wn=10 2600( ;z=13:c(29+z)=c(29+z)-1:z <1/s(wn,3)/1000*mb20,0;5;2;"!!!YOUR WEAPON BRAKES...........":.2~L,30:.01z# =,30:c(6+c(23))=10 :6+c(23),22;1;7;s$(10 ):z=1502:z:2600( Q20,0;1;2;5;" You swing your ";S$(WN);" and, " 5z=14:ץ/20,*5+30:z c(4)0mh=mh/2:20,0;5;1;"The ";m$(ms);" lashes out wildlyat its invisible foe. ":z=1502:z:9223$ c3(ms=20ms=16ms=13 )ƥ*c(4)mh2500 emc>mh2425y fa<1/(4+6*(c(10 )>1)+10 *(c(10 )=3)*1000)/(td+(td=0))c(10 )420,0;5;2;"!!!YOUR SHIELD BRAKES...........":.2~L,0:.01z# =,30:z=1502:z:c(10 )=4:10 ,22;1;7;h$(4):2407g gT9223$:20,0;6;2;"!!!!!The ";m$(ms);" Hits You!!!!" j 4200h ktd>0((ms=14c(1)9 )ms=8)ƥ<.1}L20,0;2;7;1;"The ";m$(ms);" bites you and youare turned into a ";m$(ms);"! ":6010z l7ms=8ms=15ms=14mb=mb+mb/10 mtd>0(ms=4ms=17)ƥ<.1}L20,0;2;7;1;"The ";m$(ms);" paralyses you andyou become a ";m$(ms);" ":6010z ntd>0ms=10 ƥ<.520,0;1;0;2;"You have contracted LEPROSY OF THE TOMB (The Mummy's Curse)!!!!":c(27)=2:z=13:1,-10 -z*3:z o5td>0ms=10 c(22)=c(22)-td yl$="r"mc>mh3000 z$1900l:mb<15200P |Gms7ms9 l$"r"mc>mhƥc(4)/100d)((ms=15ms=10 )l$="f")ms=7(ms=89Yc(wn)6c(wn)7)ms=14ms=17td=td/2 /6800:z=1502:z:2425y (H20,0;5;7;"You attack with your bare hands!" *c.1}L,0:.02{# =,10 :z=120:z:.1}L,0:.02{# =,10 -?mc=((*6)+c(6))*c(5)/100d:2220 J21,0;2;7;"......but your armour saves you!": 9223$:20,0;7;3;"....and the ";m$(ms);" runs away":z=-300:.01z# =,z:z:bar=1c(29)=0:8410 2000  21,0;1;7;" ...but you dodge the blow!!! ":z=10 1-1:.1}L/z,-10 -z/10 :z:2428| o20,0;2;7;1;1;;"**You have caught the PLAGUE** ":c(27)=1 &.z=-11 -22-4:1,z:z 0 740 20,0;7;1;1;"You are free of the PLAGUE!!! ":z=012 2:.2~L,z:z:c(27)=0:2000 3610:4010 @l=0l>c(21)2000+1500*(l>c(21)) c(13 +l)=x 713 +l,22;7;1;1;f$(x) e(l)=1:2000 l13 ,0;" ";14,0;" ";15,0;" ": ~56+c(23),14;7;1;" " (l$=:l$"1"l$"2"l$"3"3770 c(23)=l$ 76+c(23),14;1;7;">": <pa=pa+(*3)-1 Apa<1pa=1 Fpa>10 pa=10 P 510 nta=pa:tb=z:530  20,0;2;7;1;"Choose Now ";0;1;"('0'for mainmenu) ":9000(#: 20,0;3;7;1;"Replace Which? ";0;"('0' not to take it) ":9000(#: 20,0;2;7;1;"Which one do you want to sell? ":1;"('0'to sell something else) ":9000(#: p20,0;"What kind of stunt are you trying to pull,buster! ":z=1100d:z: a9223$:20,0;"I'll give you ";sep;" GP's for it.":c(12 )=c(12 )+sep H1;7;12 ,22;c(12 );10 ,22;h$(c(10 ));11 ,22;q$(c(11 ));7+(l-1)*(l<4),22;s$(c(7+(l-1)*(l<4)));14+(l-1)*(lc(21)),22;f$(c(14+(l-1)*(lc(21)))):z=1100d:z:8520H! hNtd=(td-(h(c(10 ),1)+q(c(11 ),1))*c(5)/502) rtd<02700 |c(2)=c(2)-td d21,0;2;7;1;"and your Str'th drops to ";c(2):1900l:  21,0;2;7;"It is ";("BAD"(y=0ar>0));("GOOD"(y=1ar>0));(" FOR "ar>0);(i$(ar+1)ar>0);("an INVISIBILITY potion."ar=0): c(1)=320,0;"Hobbits will have nothing to do with Magic!! ":z=1100d:z:2030+370r*(sp=0) sp=0ms=1920,0;2;7;"Magic does not work against a BALROG!!!!Ha,Ha,Haaa!!!! ":z=1502:z:2400` }20,0;7;2;1;" ---Which Spell--- ";0;" ('0' not to cast a spell) "  9000(# l>c(21)5105 :l=0mc=0:2400` -373u*(sp=1) x=l:z=c(13 +l):z=9 20,0;1;7;"There is no spell in that slot!!":y=1100d:y:5102 -9223$:z1z35120 2e(x)=1l=(*9 )+1:5120 V20,0;6;2;1;1;f$(z);" Strength? " F9000(#:l=0mc=0:2400` -400*(sp=1) dsc=((f(z,2)*(1+l*(z=1z=3)))/c(13 )*200+1)*(e(x)=0) cmls=mls+sc:c(2)=c(2)-sc:td=d$(z):e(x)=0c(13 )<*100d6380  G20,0;0;7;"You cast a ";f$(z);" and... "  ge(x)=1c(13 +x)=9 :13 +x,22;1;7;f$(9 ):e(x)=0  5st=10 +td/10 :st>100dst=100d dy=1st:(*7)+1:.01z# =,30+.1}L*y:y:1+4*(le=0) c(2)<020,0;2;7;"You over exert yourself and the strain kills you! ":6010z z3(td=0((ms=4ms=7ms=9 ms=10 ms=14ms=17)(z=2z=8)))8090 &z=4l$="f":mc=td:2214 y:z=3td=0 <y=12:c(13 )=c(13 )+(*300)+(*6):y:mc=0:2400` -370r*(sp=1) Isp=12030 K 6800 Lmb<1z=2z>621,0;2;7;"The ";m$(ms);("falls fast asleep!"z=2);(" turns to STONE! "z=7);(" drops stone DEAD!"z=8):5220d O8190:2230 Z]9223$:20,0;1;3;5;"The ";m$(ms);" dies,screaming! " n8z=110 :.6/z,30-.01z# =*z:z s.bar=1c(29)=0:8410 x 2000 p qUa$="":7:2:20,0;" Y O U A R E D E A D " zhda=9898&:14,0;7;2;"'c'for copy ";15,0;"'n'for newgame" ="c"Ŧ="C" ="n"Ŧ="N"115s 9890&:6020 app=(*3)+1:ar=(*6):y=(*2):x=(*(8+(ar=4)))+1 (pt=ar*(y+1)+7*(ar=0) 20,0;4;7;"You find a ";(f$(x*(ar=5)+(ar5))ar=5);(" scroll"ar=5);("potion"ar<4);(s$(x)ar=4);"." ar>36150 *n(pt,pp)=15000:6150 "n(pt,pp)=(c(3)>*15) a14,0;1;2;7;"'Y'to take it";15,0;"'N'to leave it" =l$=:6160-4160@*(l$="n"l$="N")+(l$="y"l$="Y") u=(*15)+5 $I3500 *(ar=5)+62008*(ar<4)+6300*(ar=4) 8`5000:z=012 -24*(y=0)2-4*(y=0):.2~L,z:z 9]ar=0c(28)=c(28)*(c(28)>0)+(*40()+2:2000 :ar=ar+1:c(ar)=c(ar)-u*(y=0)+u*(y=1):c(2)<020,0;7;2;"You realise,too late,that it is a poison and die slowly in AGONY":6010z <c(ar)<3c(ar)=3 @Aar=2c(22)=c(22)-u*(y=0)+u*(y=1) Lj13 ,22;1;7;c(13 );"% ";ar,22;c(ar);" ":1900l:2000 3610:4010 8l<1l>32000+4300*(l>3) Ic(6+l)=x:6+l,22;1;7;s$(x):2000 mc=0:20,0;2;6;"You'r Spell Fails!!! ":z=-10 -12 -.05|L:.005y# =,z:z:2030+370r*(sp=0) j1800:>.05|Lƥ320,0;0;"Of you'r three weapons,which do you want the ";s$(z);" to be? ":y=1100d:y:7032x zl=07020l }6c(6+l)=z:c(12 )=c(12 )-s(z,5) ]6+l,22;1;7;s$(z);12 ,22;c(12 );" ":7020l  w9200#:1:0,0;"MAY B.HURT Ltd":"PROT.ST.COST";1,0;1;"____________" *z=15:7;0;z;:1+4*(z/2=(z/2)):".";q$(z):(q(z,1)/502*c(5));5;q(z,2);9 ;q(z,3):z 4 4000 6<z=l:z>5z=0700+6520x*(z>5) ;q(z,2)+h(c(10 ),2)>c(2)20,0;1;7;"You are not strong enough to carry ";h$(c(10 ));" and ";q$(z);".":z=1100d:z: 72204 <q(z,3)>c(12 )20,0;1;7;"The ";q$(z);" is too dear. ":z=1100d:z:72204 >5c(11 )=z:c(12 )=c(12 )-q(z,3) H[11 ,22;1;7;q$(z);12 ,22;c(12 );" ":700 18,0;"STRONG ARM GYM";20,0;3;"How much TRAINING do you want? (";502+502*(c(5)3700+6820*(z>3) gh(z,3)>c(12 )20,0;1;7;"The ";h$(z);" is too dear. ":z=1100d:z:7520` hq(c(11 ),2)+h(z,2)>c(2)20,0;"You are not strong enough to carry ";h$(z);" and ";q$(c(11 ));".":z=1100d:z:7520` j5c(10 )=z:c(12 )=c(12 )-h(z,3) t[10 ,22;1;7;h$(z);12 ,22;c(12 );" ":700 0:9200#:0:5:0,0;"ARCANE ARTS ":"IQ.STR.COST";1,0;1;"__________" z=18:0;7;z;:5-(z/2=(z/2)):".";f$(z):f(z,1);5;1+(f(z,2)/c(13 )*z*20);10 ;f(z,3):z  4000 <z=l:z=0z=9 700+6920*(z=9 ) ƣf(z,1)>c(3)20,0;1;7;"The ";f$(z);" is too difficult for someone of your IQ to learn":z=1100d:z:7620 ǥf(z,3)>c(12 )20,0;1;7;"You cannot afford to buy the ";f$(z);" spell. ":z=1100d:z:7620 #4010:l=07620 ɟl>c(21)20,0;7;"Of your ";c(21);" spell slots which do you want the ";f$(z);" to be? ":y=1100d:y:7624 l=07620 7c(13 +l)=z:c(12 )=c(12 )-f(z,3) ^13 +l,22;1;7;f$(z);12 ,22;c(12 );" ":7620 @ AWN=C(6+C(23)):MC=c(6)+C(5)/502*((*S(WN,1)*6)+S(WN,2))*(1+(c(28)>0)): mc=0:20,0;5;2;"You'r spell has no effect!!! ":z=-20-32 -2:.2~L,z:z:2400` ^13 ,0;5;2;M$(MS);14,0;7;"BODY=";MB;" ": y20,0;"'There's the creep who called mea cheat!I'll fix him! ":z=1502:z:9130# lbc(29)<1c(29)=(*502*(c(19)+1))+10 :bch=(*11 ) qE4:9200#:1:0,0;"LUCKY LADY INN" v9223$:0,0;:c(12 )<112 ,0;"If you'r ":"broke,get OUT!":z=1100d:z:700 w511 ,0;" ":" " zn=(*2)+1 {-6,0;"     " |"  1   2  " }"     " 16,127:-8,-8:0,-24:7,8:-7,-8:24,0:7,8 16,127:-8,-8:0,-24:8,8:-8,-8:24,0:8,8 568,127:-8,-8:0,-24:8,8:-8,-8:24,0:8,8 G"How much do you bet? ('0' for main menu)";bet !bet<1źbetbet700 kbet>c(12 )20,0;"You don't have that much! ":z=1100d:z:8310v 72,0;"Which box":"is the coin":"under?" )20,0;1;"Choose Now" -9000(#:l=0l>28335 Oc(26)=(c(26)=1ƥ>.2~L):c(26)=18200 n=lƥk2,0;"1.Sell Weapon"::"2.Sell Armour"::"3.Sell Shield"::"4.Sell Scroll" !H 4000 !R7l=0l>4700+7820*(l>4) !\85004!+502*l !f 4020 !p!l=0l>38520H! !z/c(6+l)=10 4030:8550f! !msep=(*s(c(6+l),5)/3+s(c(6+l),5)/3):c(6+l)=10 :4100 !-c(11 )=64030:8520H! !isep=(*q(c(11 ),3)/3+q(c(11 ),3)/3):c(11 )=6:4100 !-c(10 )=44030:8520H! !isep=(*h(c(10 ),3)/3+h(c(10 ),3)/3):c(10 )=4:4100 ! 4020 "%l=0l>c(21)8520H! "<c(13 +l)=9 e(l)=04030:8700! "}sep=(*f(c(13 +l),3)/6+f(c(13 +l),3)/6):c(13 +l)=9 :e(l)=0:4100 ".Q21,0;1;7;2;"Press 't' quickly to avoid it!!!" "8Sz=1̺(*10 +20-le*2):.01z# =,z:="t"Ŧ="T"8770B" "=z:21,0;2;6;"Too Slowww!!! ":z=-10 -20:.1}L,z:z:.03{u\,20:1,-60<:.1}L,-20: "B9223$:20,0;1;7;"*WELL DONE* Your quick reflexes saved you!!! ":z=212 2:.1}L,z:z:2008 "`"8850"+(*3)*502 "]20,0;7;2;1;" ***TRAP DOOR*** " " 8750." "\at=480:le=le+1:c(2)=c(2)/2+c(2)/2*:1910v " 920 "<trp=(*(le*(le<11 )+10 *(le>10 )))+1 "M20,0;7;2;1;" **";t$(trp);" TRAP** " " 8750." "+td=trp*10 +(*10 ):4200h " c(2)<06000p "$z=1100d:z:2000 "]20,0;7;2;1;" ***TELEPORT TRAP*** " "!8750.":23613=\,0 #at=480:le=(*6)+c(19):a=(*9 )+1:b=(*9 )+1:c(2)=c(2)-c(2)/10 :1900l:920 #(23613=\,0 #-""9005-# #2l$=:l$=""90102# #<'l$<480ůl$>57990102# #A.15~,30:l=l$: #~20,0;4;"You saw them cheat!Do you... Fight or Not?(press 'f' or 'n') ":n=1+(l=1) #l$=:="n"Ŧ="N"8338 #="f"Ŧ="F"9130# # 9110# #ms=21:bar=1 #mb=c(29) # 2170z #4z=019:z,0;" ":z $X20,0;" ": $Tr20,0;7;2;1;"!!!!!YOU HAVE FOUND THE KEY!!!!!":c(19)=c(19)+1 $Y,z=12 0-2:.1}L,z:z $^x14+c(21),22;7;1;c(19):c(19)/10 ɺ(c(19)/10 )2110> $hgv=1000*le:20,0;1;7;1;1;"YOU HAVE FOUND THE TROLL TUNNELS!!!!!!!!!TREASURE CHEST!!!!!!!!!" $rPz=-10 20.1}L:(*8):.01z# =,z:z:.2~L,21 $|1::6010z $Ogv=((*30+20)*le):<.2~LC(19)=LE-19300T$ $<.56100 $C20,0;0;6;"You find ";gv;" gold pieces" $Az=110 +gv/200:.01z# =,502:5:z $_c(12 )=c(12 )+gv:12 ,22;1;7;c(12 );" ":2120H %H20,0;0;7;"Arranging Character Array. " %y$(362j):y$=a$:y$(361i)=plg:y$(362j)=bch:y$(358f359g)=mls:z=110 :y$(8+10 *z17+10 *z)=k$(z):z:z=129:y$(111o+z*7117u+z*7)=c(z):z %ty$(321A322B)=ta:y$(323C324D)=tb:y$(325E326F)=da:y$(327G328H)=db %!z=15:y$(328H+z)=e(z):z:z=17:x=13:y$(330J+z*3+x)=n(z,x):x:z:a$(10 )y$():700 %&:ld=1:n(7,3):e(5):y$(362j):k$(10 ,10 ):"Loading Character.":"Press PLAY on tape.":""y$() %("Arranging Character" %*bch=y$(362j):plg=y$(361i):a$=y$:mls=y$(358f359g):z=110 :k$(z)=y$(8+10 *z17+10 *z):z:z=129:c(z)=y$(111o+z*7117u+z*7):z %+tta=y$(321A322B):tb=y$(323C324D):da=y$(325E326F):db=y$(327G328H) %,|z=15:e(z)=y$(328H+z):z:z=17:x=13:n(z,x)=y$(330J+z*3+x):x:z %0 200 % %g5,1,-30,.8L,-25,.6,-20,.4L,-15,.8L,-30 &H}3,4,15,10 ,70F,3,1,7,3,35#,4,0,10 ,11 ,60<,4,1,17,8,100d,3,2,8,4,80P,5,0,17,11 ,140,4,4,20,15,557,2,2,5,2,15,2,1,1,4,18 &K6,6,100d,5,5,65A,4,5,35#,14,11 ,500,11 ,12 ,300,,10 ,5,200,8,7,80P,6,2,502,10 ,1,10 ,12 ,2,100d,14,3,200,16,4,500,18,5,1000,20,6,1500,22,8,2000,25,15,3000 &Mr"Broadsword","Shortsword","Scimitar","Broadaxe","Taper Axe","Mning Star","HeavyFlail","Bludgeon","Dagger","None" &NR"Tower","Kite","Target","None","Plate","Mail","Lamilla","Scale","Leather","None" &Od"Psi-Bolt","Rock-a-bye","Hide-me","Berzerker","Firebolt","Magic-fire","Medusa","Deathspell","None" &Pj"C(3)*L","MB*(<(21-MS)/2000*C(13))","0","MC*3","*C(13)*5","C(13)+*C(13)*6","MB*(1.5-C(19)/10>)","MB" &R"Bad Hobbit","Gt.Spider","Giant Rat","Ghoul","Orc","Goblin","Zombie","Werewolf","Skeleton","Mummy","Ogre","Giant","Imp","Vampire","Troll","Demon","Death","SmDragon","Balrog","LgDragon" &T,"Bartender","Dwarf","Elf","Hobbit","Human" &W"Kin","Str'th","IQ","Dex'ty","Wep.Ab","Adds","Weap1","Weap2","Weap3","Sheild","Armour","Gold","Spe.Ab","Spell1","Spell2","Spell3","Spell4","Spell5","Keys" &X"BOXING GLOVE","FALLING BRICK","SHALLOW PIT","FALLING BOULDER","POISON DARTS","DEEP PIT","SHARP STAKES","POISON ARROWS","POISON STAKE","POISON GAS" &\8,62>,73I,8,126~,137,28,0,255,91[,16,0,0,4,60<,255,8,0,28,0,62>,0,127,0,0,0,0,8,28,30,62>,126~ &f28,8,62>,10 ,28,16,16,0,28,8,62>,40(,28,4,4,0,28,8,28,28,28,8,20,20,28,8,28,28,42*,20,20,513 &p255,255,255,231,195,195,195,255,101e,27,246,85U,251,180,90Z,0 &zO1,.5,.73333,1,1.5@,1,1,1.5@,2 &da:z:z=1z &aa,ab:aa,ab:"" &z:502:9890& &Q4,1,-10 ,.5,-4,.5,-5,.73333,-6 ' cԛ BOXING GLOVE FALLING BRICK SHALLOW PIT FALLING BOULDERPOISON DARTS DEEP PIT SHARP STAKES POISON ARROWS POISON STAKE POISON GAS i BroadswordShortswordScimitar Broadaxe Taper Axe Mning StarHeavyFlailBludgeon Dagger None   F# <dP 7- Tower Kite Target None AdA#A Plate Mail Lamilla Scale Leather None _  , P2_ Psi-Bolt Rock-a-byeHide-me Berzerker Firebolt Magic-fireMedusa DeathspellNone }  d C(3)*L MB*(<(21-MS)/2000*C(13)) 0 MC*3 *C(13)*5 C(13)+*C(13)*6 MB*(1.5-C(19)/10>) MB  Bad HobbitGt.Spider Giant Rat Ghoul Orc Goblin Zombie Werewolf Skeleton Mummy Ogre Giant Imp Vampire Troll Demon Death SmDragon Balrog LgDragon Bartender Dwarf Elf HobbitHuman wKin Str'thIQ Dex'tyWep.AbAdds Weap1 Weap2 Weap3 SheildArmourGold Spe.AbSpell1Spell2Spell3Spell4Spell5Keys 2>I~$nall3 n  A&fff bo  xi x