Oracle1  59600 T4,4;1;"YOUR ORACLE'S CAVE GAME";5,10 ;"IS LOADING" 0:7:7 d$(7000X) 1x=(23627K\+256*23628L\)+8  "Oracle2"x dA60000`,33!:60001a,0:60002b,64@ io60003c,0:60004d,17:60005e,x-256*(x/256):60006f,(x/256) n*60007g,0:60008h,1 s+60009i,0:60010j,27 x\60011k,120x:60012l,177:60013m,200:60014n,167 }-60015o,237:60016p,82R 60017q,200:60018r,25:60019s,568:60020t,3:60021u,237:60022v,176 p60023w,201:60024x,235:60025y,9 :60026z,235:60027{,9 : q60028|,43+:60029},27:60030~,237:60031,184:60032,201 60050,33!:60051,x-256*(x/256):60052,(x/256):60053,0:60054,17:60055,0:60056,64@:60057,195:60058,103g:60059,234 60050:d$(1) 0:7 0,0;0;7;" LOADING ":y=120:y,31;" ":y:21,31;" " 7:7 "Oracle3" "Oracle4" "Oracle5" xc Oracle2 -cacp`8saŸ`n @<B<``?@x?@zcc8p`|~@BBDbB``0?@p|`>~0``0`~@BBBR@??0` f0p ` `0`~@B~BJN 0`~  ޝ0`0`}00`?~@@BBDFB 00``0 `8 `?}@~B<b?9`w`0 ` `<88 c{@π >`0` `ppx `p `p~ew~?@$+??<p@`?~|c@7_n$~3 }?P?>p ?~>$x   ?pp?~ @=A H w  Xo<=08?~;  Ž<H@@8 ,{ 8p0?x{ <H<@@\`{@>@8|G > ; f~@bp`?`3??~?;3Hy??w~Ǟ??/|<? ??||<>?x8x>x@p >~@@?~<?@ 88888888888888888888888888888888899888899999988888:::::8888899998889999998::::8:::8888899999999999888::8::8888899999999999888<":::8888899999999999888:::::8888899999999999888::::::888889998999999888::::88:::8888888999998888>>:::::8::::88888888998888882>>::::8::::8888888888888888>>2::::::::8888888888888888::>:::::::8888888888888888:::::::::::::8888888888888888::::::::::::::888888888< <88888:::::::::::8888888888 <888888:::::::::8888888888 !988888::::::::::8888888888988888::::::::::::888?8888888888888:::::::::::::88888888888888888:::::::::::88888888888888888888888888888888888Oracle3 <'> ""2 `0++4 @CG88.((((((P|||x999x``` PPPPPPP`>>>~~``aac#'/~//?~?@@@@ ?sthhT*  @ TTTUI* @" `??𐐈P""""  0@pXt4<80? <~>$oqł|^____!"bgC?ˋ//?/__r??Ͽ~Çg>f$>>??????`~?????< "pC\"$" }:9 .88|||<< =8x@  <p<?DdDH0H/"L|`Ph446;Аq .\|9}}~{}~CabFŅ ܸx???>=+ۻ{ﱿ8/߿|  ~~||||@ th((8P` `ǜ3g3 s͙q8``as03 P8 c 0ab$BBBBCBa^@   ‚BD"2RL0@6"A!!A`0 8@@@@` ` p b!A@@FM)#s d(?/OG DD$""#! ! 1 Ca!"  0QQ"$$ &&&**5 !!&$8""" %%))1( @@IJ&4 ?>8p`ppx><~~<?og7)7sgw/Ϗyx9;~=xp{s><9sy<xg?> <@@@ B<? &? ?P(  (HD`~"lj@0?ACȤc\GxHL-BD<($~B>&*\d$2#$8#EIsxH$:$$8EIqJ&"RN 褔bR\dHtL$6*>0ppx8|ƪrthhhqD88!""$qc``A(({{{~`p00_sE  x< 88?KMmhi>EBB\^^NOW[Ņ Wwl|m.-;:=>몾\m޾ ??:\|X n$j!AX8xHxx~x`@0Р`=z@ߏϧ}coooohbzzzz zHO/ww7Www{ztttttth  {{kUUjzhhhPРypppppx|@@ @@ A  @ !"D$h L1 D ` # 0`@l 0 @  l& ` ŇA@  @@@  hpP PGDD""|<<<<>|<<<<||zyy{~<<<<<<886660000lll `00$<8<888<<<<<<<<<<88pp0 8x$؈ xrrr 8~~n&" ?> А?#?Q' Y YL8Wq !v>M P P P 3aMMbXaXL8Wq !v*->2":˜&.>2">2*,":¾>2>2>2>2>2>2Mé>>>>2>>>:>> ó&.>2V> 222: >2&ͽYG>2>2>2$>2>2>2&O*"6\:222220< >!HDͦ!Iͦ!Jͦ!Kͦ!Lͦ!Mͦ!Nͦ!Oͦ + >>> n >*K\' KB">2͵:>*~ ":<2 KC*K\  r#r#>2> 2>22>2>2(aaaaaaaaͥ:(< R     :=/g ҽ$:G>2> 2>2> 2>2> 2>2>2>2>2>2>2.:-}2<2<2|222< ::/g͈:/gͽ:2> 2>2> 2>2> 2>2>2>2>2>2>2.:-"!}"6\:2>2< :<2 !}"6\9!@Db!Ib!Jb!Kb!Lb!Mb!Nb!Ob # >'2>2>B2>22>2r:< ڪ >2t2u>2>2>@22<2͎ͬ>H2<2> 2ͬ:<v4:< >2t2u>2>2:<\Ͱf:< W!GH w#!HI  wy # y R Ry? >g >Wy !ON` wy +RR y   !y? |g zWy >͵> >*K\ Kt  < *t "t>͵>>*K\h KtBÐ= !"#$%&'()*+,-./ 0123 4567  *6\">2>33:<DOracle5 $}$}"&}0:0:5:70 236099\,502 d$(12 ,32 )  s=0 -21,4;"CAVE DESIGN IN PROGRESS" i$(12 ,20) 6i$(1)=5+"s "+1+0+"sword" 4i$(2)=3+"a "+2+0+"axe" 7i$(3)=6+"d "+1+0+"dagger" 5i$(4)=4+"f "+4+0+"food" <i$(5)=10 +"b "+4+0+"magic balm" 7i$(6)=6+"p "+4+0+"potion" <i$(7)=10 +"m "+1+0+"magic ring" 5i$(8)=4+"r "+4+0+"rope" 5i$(9 )=4+"w "+4+0+"wine" i$(10 )=10 >i$(11 )=11 +"c "+1+0+"magic cloak" >i$(12 )=11 +"k "+1+0+"mystery key" Jn$(6,19) On$(1)=" ENTRANCE" T4n$(2)=" G"+13 +5+"MUMMY'S TOMB" Y5n$(3)=" S"+14+6+"CENTAUR'S DEN" ^5n$(4)=" D"+15+7+"DRAGON'S LAIR" c5n$(5)=" K"+16+8+"KNIGHT'S HALL" h5n$(6)=" *"+12 +1+"ORACLE'S CAVE" t$(8,20) ;t$(1)="EXIT "+0+4+3 <t$(2)="gold coins "+0+10 +4 <t$(3)="silver bars "+5+11 +4 <t$(4)="gold ingots "+6+11 +4 <t$(5)="GOLDEN CHALICE "+6+14+3 <t$(6)="HORSE SHOE "+2+10 +3 <t$(7)="DRAGONS TOOTH "+0+13 +3 <t$(8)="JEWELLED SWORD"+1+14+3 p$(1,11 ) e$(12 ,65A) Ue$(1)=30+"the Oracle's voice booms out anda rock fall blocks an exit." Pe$(2)=1+"the gleaming hilt of a mighty sword catches your eye." Re$(3)=4+"you discover a patch of edible mushrooms growing nearby." Te$(4)=40(+"a strange gas fills the air and you are overcome by fumes." He$(5)=502+"you hear snoring coming from an adjacent cave." Xe$(6)=60<+"the sound of approaching guards causes you to hide for 2 hours" De$(7)=11 +"a magic cloak appears before your eyes." Ve$(8)=8+"you unearth a piece of rope thatthe guards must have dropped." Ye$(9 )=70F+"the Oracle finds you and quicklytransports you to another cave." Ve$(10 )=7+"a glowing light forms into a magic ring before your eyes." 9e$(11 )=80P+"you realise that you have lost" We$(12 )=12 +"you find a tiny key marked:- MUST A NEED THEE!!" m$(16,20) Tm$(1)="WIZARD "+22+3+6+0+1+1 Tm$(2)="OGRE "+15+2+4+0+2+0 Tm$(3)="DRAGON "+23+3+6+0+1+2 Um$(4)="GIANT SERPENT"+16+2+13 +0+1+4 Tm$(5)="GIANT RAT "+18+2+9 +0+1+4 Um$(6)="HAIRY SPIDER "+14+1+12 +0+1+0 Tm$(7)="TROLL "+14+1+5+0+1+0 Um$(8)="VAMPIRE BAT "+24+3+11 +0+1+2 Tm$(9 )="CYCLOPS "+20+3+7+0+1+1 Um$(10 )="SPECTRE "+17+2+7+0+1+3 Um$(11 )="SPECTRE "+17+2+7+0+1+5 Um$(12 )="ORACLE "+24+1+6+0+3+4 Um$(13 )="MUMMY "+24+1+5+0+3+0 Um$(14)="CENTAUR "+24+1+7+0+3+1 Vm$(15)="FIERY DRAGON "+24+1+12 +0+3+3 Vm$(16)="BLACK KNIGHT "+24+1+12 +0+3+0  u=4  v=4  c$(32 ,14) p(1,1) "AA","BB","CC","DD","EE","FF","GG","HH","EC","FD","GE","HF","AG","BH","CA","DB","CG","DH","EA","FB","GC","HD","AE","BF","HB","AC","BD","CE","DF","EG","FH","GA"  495 0x=132 :c$(x,13 14):x x=18 c$(x,14)=" " x x=9 24 c$(x,14)=""  x x=2532 c$(x,14)=" " x x=1258 !c$(x,3)=" " &c$(x+7,4)=" " +x 0x=9 32 5c$(x,9 )=((*3)) :x D8060|:ep=0 I8080:mp=0 ] 8000@ by=1u+v gz=(*4)+1 lc$(r(y),z)=" " n 650 vyu645 {z=(*4)+1 c$(r(y),z)=" "  650 y  700 r(y)<9 660 )z=1c$(r(y)-8,2)=" " r(y)>24670 )z=2c$(r(y)+8,1)=" " r(y)=1680 )z=3c$(r(y)-1,4)=" " r(y)=32 690 )z=4c$(r(y)+1,3)=" "  x=110 y=(*6)+2 0n=c$(y,2)+c$(y,3)+c$(y,4) n<217740 c$(y,1)=" " c$(y,7)=1 n$(1,1)=y c$(y,11 )="" ]c$(y,10 )=";":c$(y,6)=0:c$(y,8)=0:c$(y,12 )=0  750 x  9900& x=110 y=(*6)+26 0n=c$(y,1)+c$(y,3)+c$(y,4) n<217776 c$(y,7)=6 $c$(y,10 )=n$(6,2) n$(6,1)=y #c$(y,6)=n$(6,3) 7c$(y,8)=n$(6,4):c$(y,11 )=""  780  x  9900&  x=25 y=(*16)+9 ;c$(y,14)=" "c$(y,7)" "782 c$(y,7)=x n$(x,1)=y c$(y,6)=n$(x,3) <c$(y,8)=n$(x,4):c$(y,11 )=(158+x) x * 8000@ a w=0 fy=132 hw=2885u k)c$(y,14)" "885u l w=w+1 nc$(y,11 )="" uy wy=w+3032 y!c$(r(y),7)" "897 {c$(r(y),11 )="" }!c$(r(y),14)=" " ~z=14  650 z y y=16 !c$(r(y),5)=r(y+20) !c$(r(y+20),5)=r(y) y y=2729 !c$(r(y),7)" "965 c$(r(y),11 )="" Mc$(r(y),1)=" ":c$(r(y),8)=0:c$(r(y),12 )=0  z=1  650 y r(1,1) p(1,10 ):p(1,3)=12 :p(1,9 )=n$(1,1):p(1,1)=p(1,9 ):p$(1)="..rf. 0." a$="1"  7: ( a=1 ,0,7;2;"THE ORACLE'S CAVE",,,0;"You have ventured into a dark and mysterious cave complex and are trapped near the entrance!",,,"A whispering voice informs you that to escape you must collect 40 units of treasure, carry out your chosen quest and defeat themighty Oracle in his cave - all within five ""days"".",,,"To fulfil your quest you must gain the treasure guarded by oneof the following:-" -Vx=14:16+x,6;x;". THE ";m$(x+12 ,113 ):x .7x$="Select your quest: ":v$="1,2,3 or 4":7000X 1p(a,8)=r$ @?23674z\,0:23673y\,0:23672x\,0 ,a=1:f=0:g=0:h=0  #l=0:k=p(a,1):g$="x"  6400  62008  a=1  5100  6000p ) 6315 , 5250 8 4000 "system error": p$(a,6)="Y"p(a,1)=n$(6,1)p(a,6)40(c$(k,10 )=";"20,0;"You have earned your freedom buta locked door bars your way!" t36003050 4021 O20,0;2;"CONGRATULATIONS!!","YOU HAVE ESCAPED TO FREEDOM." v=20:6690":v=19:6695':v=60308:6985I:1;0;5;6,v;"5555";7,v;"55,";8;".5";8,v;"5";0;5;"756";9 ,v;4;0;"5242";10 ,v;"5555":6697) 9x$="Do you want to try again?":v$="y or n":7000X r$="n" 5 `20,0;1;"TIME HAS RUN OUT!!","YOU HAVE FAILED IN YOUR MISSION.":3020  :x=(*4)+1 !y=xx+3 #z=y:z>4z=z-4 &0c$(k,z)" "c$(k,z)=" ":31200 +z*2 +y 2&k>8c$(k-8,2)=" " 3 3130: 4'k<25c$(k+8,1)=" " 5 3130: 6&k1c$(k-1,4)=" " 7 3130: 8'k32 c$(k+1,3)=" " :g$="x":6400 ? 3740 W:k=(*32 )+1:c$(k,14)=" "c$(k,7)" "3200 @3742:g$="x":l=p(a,1):p(a,1)=k:4461m +p$(a,15)="....."3250 x=51-1 p$(a,x)"."3230 x:3255 y=115 #p$(a,x)=i$(y,2)3240 y:3255 \p$(a,x)=".":21,0;"the ";i$(y,77+i$(y,1));"!":3740 "p(a,6)<63255 ox=(p(a,6)/3):21,0;x;" units of treasure!":p(a,6)=p(a,6)-x:3740 u21,0;"your way!":3742:19,0;"As you wander about aimlessly":y=9 :3615  s=0 ep=ep+1 %ep>24ep=1:8060| 519,0;"You are exploring the cave when"  y=s(ep) +20,0;e$(y,264@); $3630.+e$(y,1) .article events =+z=e$(y,1):ic=0ic=16 >Zv=17:6695':9 ,ic;i$(z,34):6697):c$(k,12 )=z B3750:3740 L 3100 Va3742:9805M&:9805M&:19,0;"The gas saps your strength.":3740 `s=1:3740 j/3742:r=2:5120:3740 t 3200 ~ 3220 v$="m,r or u":4015 %v$="any key.":x$="?":7000X: g>121,0;"You pick up the ";t$(g,1̯t$(g,18));7;0;9 ,ic+2;" ":c$(k,8)=0 @x$="Do you want the "+i$(z,77+i$(z,1))+"?"  v$="y or n"  7000X r$"y"38902 2ic>09 ,ic;7;0;" " c$(k,12 )=0 z>33820 x=12 p$(a,x)="."3880( x 'v$=p$(a,1)+" or "+p$(a,2)  3835 x=35 p$(a,x)="."3880( x ?v$=p$(a,3)+44,+p$(a,4)+" or "+p$(a,5)  x$="Which item will you drop?"  7000X x=15 p$(a,x)=r$3850  x  y=115  r$=i$(y,2)3860  y  3880( Zv=17:6695':9 ,ic;i$(y,34):6697):c$(k,12 )=y (p$(a,x)=i$(z,2) 2 4v$="any key." 7x$="End of Event Phase." 8 7000X ;  j=0 j=0:v$="m,r,e or u" x$="Now what?" $6315:5250:3000  7000X r$="r"5000 r$="m"4100 r$="f"8100 r$="n"4095 r$="e"3500 r$="u"9000(# j=04010  4005 ,v$="u,d,l,r or s":15,14;"" p$(a,8)="N"9880&  x$="Which way?"  7000X g$=r$ r$="h"j>04230 k=p(a,1) l=k r$="u"4300 r$="d"4330 "r$="l"4350 'r$="r"4370 ,r$="s"44000 1v$="r,e or u":4010 ^419,0;"There are no steps or rope!!!!" h,20,0;"You can't go that way." r.x$="Try another route.":v$="u,d,l,r,s or h" w 4110 (l=p(a,1):k=p(a,9 ):g$="x"  5500|  4461m  k=k-8 )k<1c$(l,1)=" "4200h c$(k,2)=" "4200h 6c$(l,9 )=" "c$(l,9 )=04190^ >c$(k,10 )=p$(a,10 )c$(k,10 )=";"4319 j=14200h  5500|  4461m  k=k+8 *k>32 c$(l,2)=" "4200h c$(k,1)=" "4200h 6c$(k,9 )=" "c$(k,9 )=04190^  4315  k=k-1 c$(l,3)=" "4200h c$(k,4)=" "4200h  4315  k=k+1 c$(l,4)=" "4200h c$(k,3)=" "4200h  4315 0c$(l,5)" "4450b 5319,0;"There isn't a secret passage!" : 4200h bk=c$(l,5) g c$(k,11 )=""4200h l 4315 m!f=0:g=0:h=0 n c$(k,11 )=""4900$ p>c$(k,10 )=p$(a,10 )c$(k,10 )=";"49208 rc$(k,7)" "4482 t<c$(k,6)>0c$(k,6)164490 ~4mp=mp+1:mp>11 mp=1:8080 c$(k,6)=m(mp) ):c$(k,8)=((*3)+2) (c$(k,12 )=((*9 )+1) f=c$(k,6) -g=c$(k,8):i=0:f>0i=g h=c$(k,12 ) f=049208  6400 c$(k,7)" "4945Q  4600 j=j+1:v$="m or f" j<24015  s=0 h=04010 :z=h:3750:p(a,6)=p(a,6)+i:4010 w=19:y=0 "f=0f>164620  115,14;m$(f,14)+(k/8) *w,y;"You meet":y=y+9 :4630  *w,y;"You find":y=y+9 :4640  z=m$(f,18):4700\ Dx=m$(f,16):4750:w,y;m$(f,1x):y=y+x+1 Bg+h>0x=8:4750:w,y;"guarding":y=y+9  g=04650* %z=t$(g,19):4700\ 'Dx=t$(g,18):4750:w,y;t$(g,1x):y=y+x+1 (0x=3:4750:w,y;"and":y=y+4 *h=046604 /z=i$(h,5):4700\ 1Kx=i$(h,1):4750:w,y;i$(h,76+x):y=y+x+1 H/w=19y=9 w,y+1;"nothing." R ]"a" ^"an" _"the" `"some" f4700\+z kr$ m)x=z:4750:w,y;r$:y=y+x+1 p y+x31 w=w+1:y=0: & 6400 )'1,23;1;"CORRIDOR" +c$(k,10 )=p$(a,10 ) 3 j=1 5 4500 8h=c$(k,12 ):i=0 =p(a,9 )=k B j=1 G 4494 Q@1,18;1;n$(c$(k,7),518) S v=19:6695':60510^:v=18:6695':604728:1;60314,60315;"";60321,60322;"":6697) D19,0;"How many hours do you wish","to rest ?":x$="?"  y=1:v$="1,2,3,4,5 or 6" 7000X:r=r$-480 8p(a,3)<4p(a,4)>4y=1.5@ "p(a,3)=p(a,3)+(r*y) .p(a,3)>12 p(a,3)=12 ,p(a,4)=p(a,4)-(r*(y/2)) ,p(a,4)<0p(a,4)=0  5120 {v=18:6695':1;60314,60315;"";60321,60322;"":604728:6697)  4010 Jx=12 18:x,0;"";x,13 ;"":x  Jx=510 :x,8;1;0;" ":x  A19,0;r;" hour";:r=1" passes.":5135 ?"s pass.":x=1r:6988L:6988L:6988L:x 5260:t=(t+30*r)*502:x=(t/65536):y=((t-x*65536)/256):23674z\,x:23673y\,y:23672x\,128:5260: Q#"5555555,","55(""*55-","&# )' " R$"5555&""!-","5&#"" ",", " S$"5555555-","5555555,","'""#!$%"" " T""()5555&-","- *5,$ ",", % " U$"555555&,","5'""!#"" ","& " V#"5555555-","5&*55'% ","( !"" " W""5555&)5,","5555,.5-","&#)' % " X#"555()'*-","555-.,.-","&#"" .- " [$" ""#)5555"," ""*55"," #)" \""/555(#*5"," #+5- )"," % ." ]"".5555555","/'%*55()",".- #$ /" ^""/5(#)555"," *- .555"," /'#*" _#".5555555"," *555555"," $%!""#*" `#"/$)55555"," %""#$+"," ." a$".""!$*555"," )55"," ""+" b#"/555(#*5"," %$*- 75"," "")" d%5200P+c$(k,13 )-64@ fd$(3,815) gd$(4,815) hd$(5,815) i%5210Z+c$(k,14)-64@ kd$(3,1825) ld$(4,1825) md$(5,1825) n 4," First day " 4," Second day" 4," Third day " 4," Fourth day" 2," Last day " 2,"***********" x=65536*23674z\+256*23673y\+23672x\:y=65536*23674z\+256*23673y\+23672x\:x";12 ,12 ;" " =a=212 ,8;" ";12 ,12 ;">" x=12 18 ,x,17;e$(17,12 26) x  c=a  o=10 a=2o=13 12 ,o;p(c,3);" " 13 ,o;p(c,4) #14,o;p$(c,12)  9850z& 15,o;p(c,5);" " 16,o;p(c,6) #17,o;p$(c,35) p$(a,6)="Y"6360 F1;18,0;n$(p(a,8)+1,519)  [1;18,0;t$(n$(p(a,8)+1,4),114);"*"  g$="l"g$="r"g$="x"0;1;0,0;" ";0,31;" ";11 ,0;" ";11 ,31;" ":6405 0;1;1,0;" ";1,31;" ";2,31;" ";3,31;" ";4,31;" ";5,31;" ";6,31;" ";7,31;" ";8,31;" ";9 ,31;" ";10 ,31;" "  60175  5110 ad$(1,115)="55555555555555,":d$(1,1832 )=".55555555555555" #?d$(2)=d$(1):d$(2,1518)="- /" %Kd$(3)=d$(2):d$(4)=d$(2):d$(5)=d$(2) 0z=l:6040:z=k:6040  "kv=61500<+v*192-447:236066\,v-256*(v/256):236077\,(v/256): 'kv=61500<+v*192-191:23675{\,v-256*(v/256):23676|\,(v/256): )B236066\,xa:236077\,xb:23675{\,ya:23676|\,yb: 660205- ^6900:6917 h 6670 |60805  6750^ $61400,d$(12 ,16) fin=13 :6950& Jv=18:6695':0,1;0;1;l$(30) 61005M J0,1;7;1;l$(30):6900:6917 v=19:6695' .c$(k,11 )""fin=11 :6950&  6670 #61400,d$(1,16) fin=13 :6950& Kv=18:6695':11 ,1;0;1;l$(30) 60905 K11 ,1;7;1;l$(30):6900:6917  6827 $mc=0:ic=0:tc=0 "f=0f>166915 1v=f:x=m$(f,19):v>10 v=v-1  6690"  v=17 g$="l"v=11 mc=v 1;x;5,v;" !""#";6,v;"$%&'";7,v;"()*+";8,v;",-./";9 ,v;"0123";10 ,v;"4567":f=12 6,v+1;2;"%";7,v+1;4;0;")" v=20:6690": v=17:6695'  v=21 g$="l"v=7  c$(k,11 )=""v=16 ic=v h=06945! +1;9 ,v;i$(h,34) !g=06949% "tc=v+2 #?9 ,tc;1;ٯt$(g,17);t$(g,1516) % &st=60308:off=0 +fin>st69600 ,fin146980D .fin146985I 0u=stfin-11 2u60308,u+1:off=off+1:60103,off:60335,218:60325:60335,210 3 6988L 4u 8 6957- :u=stfin+1-1 u B 6957- D60490J F I60510^ K Lv=12:v: X w=0 ]1,0;5;0;"Options are: ";1,13 ;w;(v$);7;0;0;0,0;(x$);r$ bv$="any key."7151 dr$=""r$=" " l#r$<"a"r$"A"r$=(r$+32 ) q"x=1:v=v$:r$=r$(1) r$=v$(x)7151 r$="*"3020  x=x+2 x>vw=1:7005] $v$(xx+2)="or "x=x+3  7040 ,l$(32 ):19,0;l$:l$:l$ x$="?"  @ r(32 ) B Ey=132 Jo=(*32 )+1 Or(o)=08035c T o=o+1 Yo>32 o=1 ^ 8015O cr(o)=y hy r |s(24): ~y=124 o=(*24)+1 s(o)=08074  o=o+1 o>24o=1  8066 +s(o)=y:s(o)>12 s(o)=s(o)-12 y  m(11 ): y=111 o=(*11 )+1 m(o)=08094  o=o+1 o>11 o=1  8086 m(o)=y y  p$(a,7)="Y"8350 s=18400  z=0  e=m$(f,14)+(k/8) b=p(a,5) p$(a,8)="N"9880& dv=19:6695':fin=mc-2+6*(mc<14):6950&:604728:6697) e=e-e/(9 -z)  "d=((b+*6)-(e+*6)) u61413,mc:61408,m$(f,19):x=41-1:v=f-(f>10 ):6690":61461 y=1x*2:y x:60650:6697)  9805M&  z=z+2 z>8z=8 919,0;"The ";m$(f,1̯m$(f,16)); d<08200 d<48198 1" is dead.":c$(k,6)=0:85004! v$="any key.":8160  7000X p(a,9 )=k (c$(k,10 )" "c$(k,10 )=";" 3c$(k,10 )=" "c$(k,10 )=p$(a,10 ) c$(k,7)" "8300l 5c$(k,7)6p(a,6)=p(a,6)+i z=h z>03745 %15,14;"":4010  d=0 e>1e=e-2 <" is still alive.";15,14;e;:e<10 " " 6902:6697) 85004! w=(d/3) w>0p(a,7)>0p(a,7)=p(a,7)-1:20,0;"You are protected by your cloak!":8232( I20,0;"You received ";:w=0"no wounds.":8232( (w;" wound.";:w>18;"s." w=08232(  x=1w ! 9815W& &x ( 6315 +021,0;"Will you fight on or move?" 0 v$="f or m" 2 7000X 4r$="f"8115 5 4100 lOp(a,1)=n$(p(a,8)+1,1)p$(a,6)="Y":8171 qi=8:8170 p$(a,7)=" " K19,0;"The ";m$(f,1̯m$(f,16));" cannot see you." 8168 ]19,0;"The ";m$(f,1̯m$(f,16));" is asleep.":s=0:8168 !4dv=19:6695':604728:fin=12 +6*(mc<14):6950&:6697): #(?v$=p$(a,3)+44,+p$(a,4)+" or "+p$(a,5) #-%x$="Which item do you want to use?" #2 7000X #<z=53-1 #Ap$(a,z)=r$9030F# #Cz #P+r$"a"9100#+(r$-98b)*4 #d 9499% # 9800H& # 9800H& # 9400$ #"p(a,7)=3:9400$ # 9810R& # 9810R& # 9400$ #jp$(a,6)="Y"p(a,1)=n$(6,1)p(a,6)40(c$(k,10 )=";"3010 #y=0:9169# #p$(a,7)="Y" # 9400$ # 9102# #7y=3:c$(k,1)=" "y=y-1:9167# #%c$(k,9 )>0y=y-1 #,c$(k,2)=" "y=y-2:9169# #-c$(k+8,9 )>0y=y-2 #9170#+y:9401$-y #'21,0;"Don't be silly!": #Jc$(k,9 )=3:x=70-1:x,15;"":x: #:c$(k+8,9 )=3:11 ,15;"": #?x$="Up or down?":v$="u or d":7000X:r$="u"9171# # 9172# # 9118# $ p$(a,z)="." %v$="m,r or u":4015 %c=a % d=2 %c=dd=1 %r$=c$(l,11 ) %!-p(d,1)=p(c,1)r$=p$(d,9 ) %+x=p(c,1) %0 9700% %10c$(l,7)=" "x,y-1;c$(l,10 ) %3r$=p$(c,9 ) %5x=k %: 9700% % % y=x-1 %-x=(((x-.5)/8)*3)+1 &y<89750& & y=y-8 & 9730& &y=y*4+2 &% x,y;r$ &G &H9p(a,4)>0p(a,4)=p(a,4)-1 &I &M9p(a,3)>0p(a,3)=p(a,3)-1 &N &R:p(a,3)<12 p(a,3)=p(a,3)+1 &S &W9p(a,4)<6p(a,4)=p(a,4)+1 &X &z b=0 &{p$(a,8)="Y" &}1b=b+p(a,3)*1.5@-p(a,4)*2 &~6p(a,3)-3