The VallMOVE $!BOOT $VALLOAD$VALLEY $ey 3 #LKnJWG <>&E00 `t~  7:23,0,11,0;0;0,0 S ''''''''':(11);(131);(141);"THE VALLEY":(11);(131);(141);"THE VALLEY" ! (11);(130);"------------"  M=(1000)::"SELECT COLOUR" A :131,157,130:"GREEN ON YELLOW =1"'" or WHITE ON BLACK =2" ;A$=:A%=(A$):A%=1A%=2:B%=3 A%=2A%=7:B%=0 TG@ , ''''''"DO YOU WANT INSTRUCTIONS ? Y/N"  A$=: A$="N" TW@ 131:"The Valley is an adventuregame in"'(131);"which you will explore the valley"'(131);"itself,woods,swamps"'(131);"The temple of Y'Nagioth" (131);"Vounims lair and The Tower of Zaexon"''(130)"First you will be asked to chose your"'(130)"character";(129);"CHOSE CAREFULLY" e '''"Next you will see a map of the valley"'"with your character at the left hand"'"safe castle" n ''(131);"You will be asked in which direction"'(131);"you wish to move"''"PRESS SPACE BAR TO CONTINUE"  A=:  '''(134);"To move your character you press one"'(134)"of the keys 1-9.So if 9 is your present"'(134)"position you would press 3 to"'(134)"move north east:-"''' m 10);(130);"1 2";(136);(131);"3"'''10);(130);"8";(134);" 9 ";(130);"4"'''10);(130);"7 6 5" , '''"PRESS SPACE BAR TO CONTINUE":A=: s '''"You will find treasure,explore the"'"woods,swamps and mysterious buildings"'"and fight";(129);"MONSTERS" v ''"IF YOU HAVE TO FIGHT A MONSTER"'(130);"You must press a button on the words"'5)"*****STRIKE QUICKLY*****" w ''10);(130);"H for HEAD"'10);(130);"B for BODY"'10);(130);"L for LEGS"'10);(130);"S for SPELL.1 to 3"'''' ) "PRESS SPACE BAR TO CONTINUE":A=: , '''(130);"TO SEE YOUR RATING PRESS E"  '''"TO CONTINUE PRESS f0" 2 *KEY0"DELETE1,99|MRUN|M" c d+ D(3),G(73),P(8),N(8),SX(4),SY(4),T(2) n M$(18),MS(18),N1(18) xVG$="":GC$="":FS$="":DL$="" TS=0:TN=0:TM=1.6:CF=0 D$=(30)+21,(10)) D1$=D$,17) SP$=39,(32)) R$=30,(9)) R1$=R$,21) RT=0 I%=132  C$  I%=018  M$(I%): MS(I%): N1(I%)  4:23,0,11,0,0,0,0,0,0,0 19,0,B%,0,0,0,19,1,A%,0,0,0 AA$=40,"_"):0,28);AA$ k0,29);"Movement directions 123"'"press appropriate key 894"'" 765" +23,224,126,189,219,231,231,219,189,126 '23,225,231,231,231,0,0,231,231,231  23,226,1,2,4,8,16,32,64,128 " 23,227,128,64,32,16,8,4,2,1 ,+23,228,255,193,128,128,128,148,247,247 6+23,229,255,231,219,189,189,219,231,255 @#23,230,24,24,65,90,88,64,36,36 J 23,231,0,1,3,7,15,31,63,127 T'23,232,170,85,170,85,170,85,170,85 ^)23,233,255,213,128,255,255,171,1,255 h$23,234,0,62,127,127,127,107,8,8 r+23,235,255,255,255,255,255,255,255,255 |!23,236,2,5,32,80,4,10,64,160 +23,237,129,189,189,181,189,189,189,129 )23,238,255,204,51,255,255,204,51,255 '23,239,153,90,36,219,219,36,90,153 +23,240,255,129,129,129,129,129,129,255 +23,241,231,231,190,165,167,191,219,219 28,0,26,39,2 4(12);(10);"Load a character from tape? (Y/N)" VG$="YN":d\E !'"Character's name *";(11) AA$=18,(9)):AA$;  "" J$   J$="" TFD ' (J$)>16 (10);"TOO LONG!":TFD  GC$="N" dXD $-(12);"Place data tape in the tape deck" .(10);"Is it rewound?" 8 D@F =(10);"PLEASE PRESS PLAY" B ch=("CHARACTER") L3#ch, J$,P$,TS,EX,TN,CS,PS,T(0),T(1),T(2),C1,P1 #ch  C=150  DxE =(12);(10);(10);"Character Types ... choose carefully"  "Wizard (1)" "Thinker (2)" "Barbarian (3)","KEY 1-5"  "Warrior (4)" "Cleric (5)" GC$=: GC$="" T^E ( A=(GC$) 2/ A=1 P$="Wizard":P1=2:C1=0.5:CS=22:PS=28 <1 A=2 P$="Thinker":P1=1.5:C1=0.75:CS=24:PS=26 F0 A=3 P$="Barbarian":P1=0.5:C1=2:CS=28:PS=22 P/ A=4 P$="Warrior":P1=1:C1=1.25:CS=26:PS=24 Z. A=5 P$="Cleric":P1=1.25:C1=1:CS=25:PS=25 d.A<1 A>5 P$="Dolt":P1=1:C1=1:CS=20:PS=20 nEX=5:C=150 x(10);(10);"GOOD LUCK" }E=39*(EX)/3.14:HF=0 (10);J$;" the ";P$ DF=150:DL$="D":t@~  TPg DF=5:t@~  V%=(-)  dPG GC$=: GC$="" d\E YX=0  I%=1(VG$)  VG$,I%,1)=GC$ YX=1  YX=1 d\E @+(10);"**Press any key to continue**" JGC$=: GC$="" DJF T  *FX15,0 TV=0 GC$=(150)  GC$="" TV=1  D$;SP$  9XM%=XW%:YM%=YW%:PK=TEST(XW%,YW%,5):XM%,YM%);(230) PK1=TEST(XW%,YW%,6)  C=C+10  PK=32 PK=4 dxG / D$;"Your move ... which direction?":TBH )D$;"Safe on the path ... which way?"  *FX15,0  GC$=: GC$="E" `@]  F%=(GC$): F%=0 TLH % F%=F%+48 *% F%=49 XW%=XM%-1:YW%=YM%-1:TsH +# F%=50 XW%=XM%:YW%=YM%-1:TsH ,% F%=51 XW%=XM%+1:YW%=YM%-1:TsH -$ F%=52 XW%=XM%+1:YW%=YM%:TsH .% F%=53 XW%=XM%+1:YW%=YM%+1:TsH /# F%=54 XW%=XM%:YW%=YM%+1:TsH 0% F%=55 XW%=XM%-1:YW%=YM%+1:TsH 1% F%=56 XW%=XM%-1:YW%=YM%:TsH 2 F%=57 XW%=XM%:YW%=YM% 3TN=TN+1:D$;SP$ >GQ=230:Q1=TEST(XW%,YW%,5):Q2=TEST(XW%,YW%,6): Q1=0 Q1=10 tNH H Q1=231 @`m R8 (Q1=219 Q2=189) Q1=255 Q1=107 TN=TN-1:dnG \7 Q1=148 (Q1=219 Q2=231) Q1=171 Q1=85 Thc f Q1=189 Q1=129 tBc p Q1=31 tXz z< Q1=204 (GC$="9" PK=204) Q=241:C=C-20: C<=0 pha  Q1=36 dpJ MPXy:XM%,YM%);(Z):PK=TEST(XW%,YW%,5):XM%=XW%:YM%=YW%:XM%,YM%);(Q)  PK=4 PK=32 DF=5:dJH  RF=(1)  RF<.33 txK  RF>.75 d|H .D$;"Nothing of value ... search on":DF=80  t@~  dZG  RF=(6) ' RF TdI,DLI,DLI,DjI,DjI,tHI DF=80:t@~  dZG $/D$;"A circle of evil ... depart in haste!" ..CS=CS+((FL+1)/2):PS=PS-((FL+1)/2):C=C-20 8 C<=0 pha B LD$;"A hoard of gold" VTS=TS+(100)*FL+100 ` j1D$;"You feel the aura of the deep magic ..." t# (8);"... all around you ..." ~ tRI *D$;"... a place of ancient power ..." ,PS=PS+2+(FL*P1):CS=CS+1+(FL*C1):C=C+25  ;XM%,YM%);(32):XM%=XW%:YM%=YW%:PK=0:XM%,YM%);(230) RN=(1):D$;SP$ < S=6 RN>0.95 T(1)=6 T(2)=0 RT>25 T(2)=1:TvK ) S=5 RN>0.85 T(0)=0 T(0)=1:D@K 4 S=4 RN>0.7 T(0)=1 T(1)<6 FL>T(1) DJK ", RN>0.43 D$;"A worthless bauble":D|K ,!D$;"A precious stone!":DrK 6,D$;"You find the HELM OF EVANNA!":DrK @3D$;"The AMULET OF ALARIAN ... empty ...":DrK JD$;"AN AMULET STONE ..." TDF=60:DL$="D":t@~ ^3 RN>0.85 (10);"... but the wrong one!":D|K h,(10);"... THE STONE FITS!":T(1)=T(1)+1 r!TS=TS+100*(T(0)+T(1)+T(2)+FL) |DF=80:t@~ dZG 1 D$;"** BEWARE ... thou hast encountered **" MS=0:N=0:CF=1 )RF=(17)-1: RF>9 (1)>0.85 dLK Q1=204 PK=204 RF=(2)+16  RF=16 (1)<0.7 dLK  FL<5 RF=15 dLK X$=M$(RF),1) FL1%=0  I%=1 (F$)  F$,I%,1)=X$ FL1%=1   FL1%=0 dLK &M$=M$(RF),(M$(RF))-1) 0 MS(RF)=0 DNL :)MS=((CS*0.3)+MS(RF)*FL^0.2/((1)+1)) D N1(RF)=0 DXL NN=(N1(RF)*FL^0.2/((1)+1)) XU=((RF+1)*(FL^1.5)) b RF>23 U=((RF-22)*FL^1.5) l*(10);R$,12-((M$))/2);"an evil ";M$ vDF=40:t@~  (1)<0.6 t`O 1D$;"You have surprise ... attack or retreat" tdF  GC$="R" T|O  TV=1 TPN  GC$<>"A" t`O DF=150:DL$="D":t@~ D$;"*** STRIKE QUICKLY ***" tdF  TV=0 TdN #D$;"* TOO SLOW ... TOO SLOW *" HF=0:dvN $E=39*(EX)/3.14 . GC$="S" tTQ 88 MS=0 D$;"Your sword avails you nought here":dvN B C=C-1 L4 C<=0 D$;"You fatally exhaust yourself":pha VRF=(1)*10 `+ GC$="H" (RF<5 CS>MS*4) ZZ=2:tRN j. GC$="B" (RF<7 CS>MS*4) ZZ=1:tRN t. GC$="L" (RF<9 CS>MS*4) ZZ=0.3:tRN ~D$;"YOU MISSED IT!" HF=0:dvN  HF=1 D=MS+(9):HF=0:tpN 4D=((((CS*50*(1))-(10*MS)+E)/100)*ZZ): D<0 D=0  CS>(MS-D)*4 HF=1  MS=MS-D D$;"A HIT ..." DF=60:DL$="D":t@~ [ D=0 D$;(9);(9);(9);(9);(9);(9);(9);(9);(9);" BUT ... NO DAMAGE":HF=0:dvN XD$;(9);(9);(9);(9);(9);(9);(9);(9);(9);(9);D;" DAMAGE ...": MS<=0 TTO  HF=1 DF=30:DL$="D":t@~ 0 HF=1 (10);"THE ";M$;" STAGGERS DEFEATED" DF=110:t@~  HF=1 drM  t`O 1D$;(10);(10);"... KILLING THE MONSTER ..." EX=EX+U:HF=0:CF=0 (DF=80:t@~ 2 dZG <D$;"KNAVISH COWARD!":CF=0 F ThO "D$;"THE CREATURE ATTACKS ..." DF=50:DL$="W":t@~  MS=0 dLP " MS6 (1)<0.5 dLP MS=MS-1: MS<=0 tPP  RF=(10) = RF dfO,dpO,dzO,TDP,TNP,TNP,TXP,TXP,TbP,TlP /D$;"IT SWINGS AT YOU ... AND MISSES":txP ,D$;"YOUR BLADE DEFLECTS THE BLOW":txP -D$;"... BUT HESITATES, UNSURE ...":txP *ZZ=3:D$;"IT STRIKES YOUR HEAD!":TvP ,ZZ=1.5:D$;"YOUR CHEST IS STRUCK!":TvP /ZZ=1:D$;"A STRIKE TO YOUR SWORDARM!":TvP "+ZZ=1.3:D$;"A BLOW TO YOUR BODY!":TvP ,%ZZ=0.5:D$"IT CATCHES YOUR LEGS!" 6DF=60:DL$="D":t@~ @+G=((((MS*75*(1))-(10*CS)-E)/100)*ZZ) J8 G<0 G=0:D$;"... SAVED BY YOUR ARMOUR!";(2):txP T C=C-G ^ G>9 CS=(CS-G/6) h5 G=0 D$"SHAKEN ...... BUT NO DAMAGE DONE":txP rND$;"YOU TAKE ...";(7);(8);(8);(8);(8);(8);(8);G;" DAMAGE ...";(6) | CS<=0 C<=0 pha  txP 1D$;"...USING ITS LAST ENERGY IN THE ATTEMPT" EX=(EX+U/2):CF=0 DF=400:t@~  dZG DF=100:t@~  drM .D$;"... HURLING A LIGHTNING BOLT AT YOU!" 9G=(((180*N*(1))-(PS+E))/100):N=N-5: G<9 N=N-(G/5) DF=80:DL$="W":t@~  N<=0 N=0:tPP  (1)<0.25 TzQ  G<=0 G=0:TpQ D$;"IT STRIKES HOME!" DF=110:t@~ C=C-G: G>9 PS=(PS-G/4) & DrP 0,D$;"YOUR PSI SHIELD PROTECTS YOU":txP :D$;"... MISSED YOU!":txP $D$;"Which spell seek ye?":tdF  TV=1 TPN  (GC$)>0 (GC$)<=3 t|Q &D$;"No such spell ...";(5):T`R  4*PS*(1)<=N dnQ  (GC$) tHS,DPT,TXU , SC TLR,T`R,TtR,dZQ,dxQ,ddQ,dnQ &D$;"It is beyond you ";(5):T`R (D$"But the spell fails ...!":T`R 2D$;"No use, the beast's psi shields it":T`R *D$;"The spell saps all your strength"  pha  DF=100:t@~  dZG  DF=60:t@~ * t`O 4DF=60:t@~ > drM C=C-5: C<=0 SC=5: 0D$;"SLEEP YOU FOUL FIEND THAT I MAY ESCAPE" %"AND PRESERVE MY MISERABLE SKIN" DF=180:t@~ #D$;"THE CREATURE STAGGERS ..."  DF=40:DL$="D":t@~  (1)<0.5 dbS  "AND COLLAPSES ... STUNNED" EX=(EX+U/2):CF=0:SC=1: !"BUT RECOVERS WITH A SNARL!"  SC=2: P# MS>C PS<49 EX<1000 SC=4: ZC=C-10: C<=0 SC=5: d6 N=0 D$+"THIS BEAST HAS NO PSI TO ATTACK":SC=2: n0D$;"WITH MY MIND I BATTLE THEE FOR MY LIFE" xDF=120:t@~ "RF=(1): RF<0.4 N>10 SC=6: 'D=((((CS*50*RF)-5*(MS+N)+E)/50)/4)  D<=0 D=0:SC=7: -D$;"THE PSI-LANCE CAUSES ";D*2;" DAMAGE" N=N-3*D: N<=0 N=0 MS=MS-D: MS<=0 MS=0  (MS+N)>0 SC=2: %(10);"... KILLING THE CREATURE" EX=EX+U:CF=0:SC=1:  PS<77 EX<5000 SC=4: "C=C-20: C<=0 SC=5: ,1D$;"WITH THE MIGHT OF MY SWORD I SMITE THEE" 6."WITH THE POWER OF MY SPELL I CURSE THEE" @+"BURN YE SPAWN OF HELL AND SUFFER ..." JDF=240:t@~ T1D$;"A BOLT OF ENERGY LASHES AT THE BEAST .." ^DF=80:DL$="W":t@~ h2 (1)>(PS/780)*(5-P1) D$;"MISSED IT!":SC=2: r!D=((CS+PS*(1))-(10*N*(1))) | D<=0 D=0:SC=7:  MS=0 N=N-D:tZU MS=MS-D: D>10 N=(N-(D/3)) >D$;"IT STRIKES HOME CAUSING ";D;" DAMAGE";(32);(32);"!"  (MS+N)<=0 dBU DF=80:DL$="D":t@~  SC=2: &(10);"THE BEAST DIES SCREAMING!" EX=EX+U:CF=0:SC=1: #(> Q1=85 PK=204 D$;"You cannot enter this way ...":tVc #2 I%=27 #< P(I%)=0 #FN(I%)=(5)+3 #P N(I%)=5 DFc #Z #d S=1 MPX%=XM%:MPY%=YM% #nP(2)=(30) #xTF=TN:tjc # TN>TF+(6) tjc #D$;"The way is barred" #'TN=TN-1:C=C-10:DF=100:DL$="W":t@~ # dZG #+C=C-10:XM%,YM%);(32):XW%,YW%);(Q) # Q1=129 S=1:FL=1 # Q1=189 S=4 S=1:FL=1 #8 Q1=189 S=5 S=6 S=S-3:FL=FL-4:XM%=MWX%:YM%=MWY% # Q1=171 S=2:FL=2 # Q1=148 S=3:FL=2 #1 Q1=148 Q1=171 D2$=D$,(9)):R2$=R$,P(2)) # (Q1=219 Q2=231) S=4:FL=2 #+ Q1=85 S=S+3:FL=FL+4:MWX%=XM%:MWY%=YM% $' S TPg,d`n,djn,tpv,tzv,tzv $DF=5:t@~ $ dPG '(12):F$="VAEGH":FL=1:S=1 'AA$=39,(224)) '.(30);AA$ '8 I%=112 'B(224);(37);(224) 'L 'VAA$ '` G(0)<>0 dNg 'j#XM%=1:YM%=(12):XW%=XM%:YW%=YM% 't=L=YM%:MPX%=XM%:MPY%=YM%:XW%=XM%:YW%=YM%:G(0)=YM%:G(1)=225 '~ I%=272 2 '" (1)>0.5 PC=226:L1=L-1:tRg 'PC=227:L1=L+1 ' L1>12 L1<1 tHg 'G(I%+1)=PC '" I%>2 G(I%+1)<>G(I%-1) L1=L ',G(I%)=L1:L=L1:I%/2+1,G(I%));(G(I%+1)) ' ' G(73)=225 ' I%=0722 'I%/2+1,G(I%));(G(I%+1)) ' ' SX(0)<>0 Thh ' I%=04 (SX(I%)=(37):SY(I%)=(12) ( Q=23488+8*SX(I%)+320*SY(I%) ( ?Q<>0 ?(Q+8)<>0 T@h ( ((_SX(0),SY(0));(228):SX(0)+1,SY(0));(228):SX(1),SY(1));(228):SX(1)+1,SY(1));(228) (2_SX(2),SY(2));(233):SX(2)+1,SY(2));(233):SX(3),SY(3));(233):SX(3)+1,SY(3));(233) (<SX(4),SY(4));(229) (F%XM%=MPX%:YM%=MPY%:XW%=XM%:YW%=YM% (P . F$="AFL":PC=236:dtn .F$="FAEHL":PC=234 .PK=0 . (12) / I%=1200 /Y%=(14)-1:X%=(39)-1 /X%,Y%);(PC) /& /0*(30);D2$;R2$;(9);(9);(238);(238) /:0R2$;(9);(238);(238);(238);(238);(238) /D0R2$;(238);(238);(32);(32);(238);(238) /N8R2$;(238);(238);(232);(32);(238);(238);(238) /X13 XY=1:t`w 7Z I%=1 PC=32 7d D(1)=0 PC=235:Dxw 7nX+D(1),L);(PC):PC=235 7x I%=3 PC=32 7!X+D(1)+D(2),L);(PC):PC=235 7 I%=2 PC=32 7&X+D(1)+D(2)+D(3),L);(PC):PC=235 7 7 XY=1 ttw 7L1=L1+H+1:T^w 7L1=0 7 J%=14 7L=L1+J%*(H+1) 7 L>13 TDx 7 K%=3 21 7 K%,L);(PC) 7M K%=4 K%=3*H+2 K%=19 K%,L);(32):K%,L-1);(32):K%,L+1);(32) 7K% 8J% 8 S=5 S=6 Tlx 8* FL/2=(FL/2) X+19,1);(231):Tlx 8"X+1,13);(231) 8,5 FL=2 S=5 S=6 7,13);(32):7,14);(237) 86 P(3)=0 XW%=7:YW%=13 8@ S=5 tFx 8J S=6 Drx 8TG(30);R1$;(10);(10);(10);(10);(9);(9);(9);"THE BLACK TOWER" 8^(R1$;(9);(9);(9);(3);"OF ZAEXON" 8hBR1$;(10);(10);(10);(9);(9);(9);(3);"FLOOR ";FL-1:tZx 8r@(30);R1$;(10);(10);(9);(9);(9);(9);(9);" VOUNIM'S " 8|4R1$;(9);(9);(9);(9);(9);" LAIR ":tZx 8>(30);R1$;(10);(10);(9);(9);(9);(9);"THE TEMPLE OF" 8,R1$;(9);(9);(9);(9);" Y'NAGIOTH " 8P(FL+1)=P(FL)+P 8 FL<4 (1)<0.3 8 I%=1 (4)+2 8N1=(19)+2 8 N2=(13) 8 TEST(N1,N2,5)<>0 txx 8N1,N2);(239) 8 8 :&XW%,YW%);(230):XM%,YM%);(32) :*D$;"A stairway ... up or down?":TV=FL :VG$="UD":d\E : GC$="U" FL=FL+1:dJz : FL=FL-1 : FL>7 FL<2 dhz :DF=110:DL$="D":t@~ : TDd :#D$;"These stairs are blocked " :DF=60:DL$="D":t@~ :FL=TV:tbz > DL=1(10*DF*TM) > DL > DL$="D" DL$="": > D$;SP$ >SP$ >SP$ > DL$="W" DL$="": >+ CS>77-(2*P1^2.5) CS=77-(2*P1^2.5) > PS<7 PS=7 >@ PS>(42*(P1+1)^(P1^3.7))+75 PS=(42*(P1+1)^(P1^3.7))+75 >. C>125-((P1)*12.5) C=125-(((P1)*12.5)) >D1$;(11);J$,P$ >"Treasure =";TS ?"Experience =";EX ? "Turns =";TN ?8D1$;R1$;"Combat str =";(4);(8);(8);(8);(8);CS ? 5R1$;"Psi power =";(4);(8);(8);(8);(8);PS ?*7R1$;"Stamina =";(5);(8);(8);(8);(8);(8);C ?4 CF=1 DR ?>SP$ ?H ?RD$;(11);(11);M$; ?WAA$=12,(32))+12,(8)) ?\4D$;R1$;(11);(11);"M str =";AA$;MS;" ";N;(4) ?f N )(12);"Do you wish to save ";J$;" ?" N*'"Please key Y or N" N4VG$="YN":d\E N> GC$="N" `rN NH1(12);"PLACE YOUR CASSETTE IN THE TAPE DECK" NR"IS IT REWOUND?" N\ D@F Nfch=("CHARACTER") Np3#ch, J$,P$,TS,EX,TN,CS,PS,T(0),T(1),T(2),C1,P1 N#ch N,(12);(10);(10);(10);" *** DONE ***" N*KEY0"RUN|M" N*D$;(6);"Press key f0 to start again" N ]DF=5:DL$="W":t@~ ]?RT=(0.067*(EX+TS/3)^0.5+(EX/((TN+1)^1.5))): RT>28 RT=28 ] RT<0 RT=0 ] D$;"Your rating now is ";RT ]+ T(2)=1 "You have the HELM OF EVANNA" ], T(0)=1 "Amulet stones ...";(32);T(1) ]DF=250:DL$="W":t@~ ^! GC$="E" C=C-10:GC$="":dZG ^ aC=0:CS=0:PS=0:CF=0 aDF=110:t@~ a T(1)=6 `na a)D$,(9);(9);"Oh what a frail shell" a&,(9),"is this that we call man" aDF=300:DL$="W":t@~ a :`rN a(T(0)=0:T(1)=0:TS=0:CS=30:C=150:PS=30 a,D$;"ALARIAN'S AMULET protects thy soul" b(10);" LIVE AGAIN!" b DF=150:t@~ b2L=G(0):MPX%=1:MPY%=L:XM%=XW%:YM%=YW%:S=1:TDd m`1D$;"Thou art safe in a castle": CS<20 CS=20 mjbPXy:XM%,YM%);(Z):PK=TEST(XW%,YW%,5):PK1=TEST(XW%,YW%,6):XM%=XW%:YM%=YW%:XM%,YM%);(Q) mt0D$;'"Wilt thou leave the valley (Y/N) ?" m~VG$="YN":d\E mDF=5:DL$="W":t@~ m `@] mDF=110:DL$="W":t@~ m GC$="Y" P`N m5C=150:D$;"Thy wounds healed ... thy sword sharp" m."Go as the Gods demand, trust none other" mDF=120:t@~ m dZG y PK=219 PK1=189 Z=224: y PK=0 Z=32: y" PK=231 Z=225: y, PK=32 Z=226: y6 PK=4 Z=227: y@ PK=148 Z=228: yJ PK=219 PK1=231 Z=229: yT PK=20 Z=230: y^ PK=31 Z=231: yh PK=85 Z=232: yr PK=171 Z=233: y| PK=107 Z=234: y PK=255 Z=235: y PK=10 Z=236: y PK=189 Z=237: y PK=204 Z=238: y PK=36 Z=239: y PK=129 Z=240: y Z=241: y { G 4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100 {I AWOLFEN,9,0,AHOB-GOBLIN,9,0,AORC,9,0,EFIRE-IMP,7,3,GROCK-TROLL,19,0 { A EHARPY,10,12,AOGRE,23,0,BBARROW-WIGHT,0,25,HCENTAUR,18,14 {*I EFIRE-GIANT,26,20,VTHUNDER-LIZARD,50,0,CMINOTAUR,35,25,CWRAITH,0,30 {4A FWYVERN,36,12,BDRAGON,50,20,CRING-WRAITH,0,45,ABALROG,50,50 {># LWATER-IMP,15,15,LKRAKEN,50,0 {p TEST(J,K,B) {z=?(23488+8*J+320*K+B) ~ *TAPE ~#I%=0 P- 4:I%!&E00=I%!: ~#?&13=?&13-(-&E00) 256:=&E00  - [*KEY0MO.7|M*LOAD"$.VALLEY"1900|M*LOAD"$.MOVE"|MPAGE=&0E00|M*TAPE|MCALL &900|MOLD|MRUN|M  *FX138,0,128 L XW%=XM%+1:YW%=YM%:TsH .% F%=53 XW%=XM%+1:YW%=YM%+1:TsH /# F%=54 XW%=XM%:YW%=YM%+1:TsH 0% F%=55 XW%=XM%-1:YW%=YM%+1:TsH 1% F%=56*B. CH."VALLOAD" ell www.bbcmicro.cjb.net      {`