FaustIntro5 5 7  Faust's Folly P Canter 1982 """A",168 3:236099\,80P:1:1:6 M1;"STOP THE RECORDER NOW TO AVOID REWINDING "  2000 5,0;2;6;" | \|/ --O-- /|\ | " G15,6;"FAUST'S FOLLY A ZX ADVENTURE"  2000 5,0;"I am your guide to Faust's Follya secluded hideaway reputedly built by a wealthy German named Faust who sold his soul to the Devil like his namesake. The Folly is now thought to be populated by a number of mutatedcreatures surviving from the dawn of time. I can take you close to this place and then I will follow your instructions." # 2000 (3,0;"I know of treasures to be found,such as a sword, a necklace, jewels and more, and I know you can just carry all of it at one time. I also know that there are perils to be faced which have solutions, but you will require to have certain items with you to survive some of them. You may acquire all treasures to achieve Champion status but remember that the ultimate aim is to get them all out of the Folly." - 2000 2E6,0;"You can move about by giving me directions such as ""u"" for up, ""d"" for down, ""n"" for North, ""sw"" for South-West, etc. I will tell you if you cannot move in a given direction, but I am not too intelligent and I may try to move in the wrong direction if we don't have a compass." 7 2000 <4,0;"I understand some of the simple commands such as ""take lamp"" and""throw keys"" which consist of a verb and object. Sometimes when I do not understand your command, trying something similar may work. Most commands will have no real effect in many given situations and you must keep trying to findthe correct solution. There is some magic in Faust's Folly, but it can be unreliable and may be used up entirely" A 2000 F"Some special commands you can use are as follows:";1;"look or l to see where you are";1;"inventory or i to see what you are holding";1;"score to find your score and rating or to SAVE the program in its current state";10 ,0;"Press any key to start your search for Faust's Folly and start the recorder on PLAY. If you didn't stop it quickly enough, you may need to rewind it to the start." H17,0;"Remember, you can die in the Folly or remain trapped forever.Beware of false clues and the wandering thief." I421,5;1;"PRESS ANY KEY TO LOAD" K..1}L,*20-20:=""75K P"" N21,0;"";1;"PRESS ANY KEY TO CONTINUE";0;"" Ւ.1}L,*20-40(:21,*2;(144+*20);21,28+*3;(144+*20):=""2005 ""2008 : I X5[`` 0Hz~~~zxp`,<<, #E .0|B<<<<<< |x0,?GD82&.d@8||8qB$< @"wwwwww?><8p```<~~<  "" ff16 a!x$c!P Canter 1982 """A",168 g+a:a:f::a;"STOP TAPE" $x=(*d-e):y=(*d-e):x=zy=zf d236099\,nv*e: s5i=-nvnv:*g*f,*f*f+f*f-a;f;"":i:g*f-e,z:t }q:d>g*c160 ~dfdcde+edcxycxy=z205 "Clearing ";:x=a"S"; x=-a"N"; y=a"W" y=-a"E" xzyzrn=e^e:g^e d=e*f:rn=g*g+a:c$="l" p ,k=z"Door in grass with wheel":260 "k=a"Hole in ground leads down" q:dag^e+g d=zk=a285 dg+g335O 6 d=zq/g ;d=ax=z:y=z:225 @da"Can't":365m w d=zq/g |d=a115s p:365m X b>g*g b"b>z"Lamp dim Need batteries": l"Lamp out Now dark" ql=z:p(g*e+e)rnp(g*e+e)p vJl=a:"Replacing batteries":b=p/nv:o$(c*e*e)=o$(c*e*e,ag*c)+" (dud)": ~og*g+eo>g*f"Can't": rn=f*f:rx=f:ry=a:t "8000@:q:de*f1015 p:1010 p/g:rn>g*g285  1010 p:1005 "Exits ";:rn=f*f"up "; Ci=rx-arx+a:j=ry-ary+a:i>gj>gie+e"S"; Qij=aij=fij=e+f"W"; Vij=eij=e+eij=e*e"E"; Y" "; [ j:i:: rn=f*fd=arn=no: d=d-c:dzxizyif1215 (xi=rx+a:a(rx,ry,xi,ry)d1215  1225 p(g*e+c)=p $"I'll try but no compass":c*frne+eht=q:"Room returns to normal": ht;" feet left" q:d=e*f3035 "No way out" p:ht=ht-a:ht>zp/c+a &"You're crushed and die":8195 a/c,b/g:rn=g+g+f8600! rn=g*f+e8620! m=a6400 I:a;"command?";z;c$:v=z:d=e*f:b=b-l:p/g/c:"";c$;"":c$=""q  c$>c  c$="d"d=z  c$="u"d=a  c$="n"d=c c$="ne"d=e  c$="e"d=f c$="se"d=g c$="s"d=e+e c$="sw"d=e+f c$="w"d=f+f c$="nw"d=g+f d>adg*f"Can't": o=z"What?": o=g*g+e6368 .w+w$(o)>g*e*c"Too much to carry":p/c-a: p(o)=p:w=w+w$(o):p/c-a: o=a p(o)rn6372 w+w$(o)>g*e*c6364 p(o)=p:w=w+w$(o) o=o+a:og*f6369  p/c-a: og*g+eo>g*f"Can't": o=z"What?": o=g*g+e6391 p(o)p"Not got it": p(o)=rn:w=w-w$(o): o=af*g:p(o)=pp(o)=rn  o:w=z: sc=z >i=af*f:p(i)=psc=sc+t$(i):t$(i)>z(i+143);" "; i: T"You have ";sc;" pts from 1000";z;"you are a ":sc=(sc/185):mz" dead "  h-g-a+sc "failed";:h "novice";:h "amateur";:h  "good";:h  "pro";:h  "champ";  " Follys plunderer"  m=zh+g+a  a;"Re-enter Y/N?" c$=:c$=""h+e  c$"y" #"Press PLAY on recorder":"" " prog Y/N?";z;c$:c$"y" "FF"dd:dd P,og*f+cp(g*f+c)rn(p(e)rnp(e)p)dd-a Q0p(g*f+c)=z:"Dwarf dies":"Sword loses glow": &p(g*g+c)rn(p(e+f)pv=g+g+a)dd-a Di=anv:a/no/e,*nv*c:i:p(g*g+c)=z:"Warrior laughs and flees": m$(a)=" ""New dance?": "m$(af)"whee""How do I ";c$: rng*g+ak=add )f,-nv:"Wheel turns, door opens":k=a: "Can't bribe Folly ghouls": "Good try, no good": ,"Healthy but useless": @p(c)rnp(c)pdd Al=a: T"This is no fairy tale": |p(g*e)pp(g*f+a)rndd }<"Right action":"Dangers vanish":i=g*f+ce^e:p(i)=z:i: 9o>zog*fp(o)=rn:w=w-w$(o):p(g*g-c)rn6823 oe*e6700, u p(g*g-a)rn6826 of+fof*g-a6700,  p(o)=z:u p(g*g+a)rn6829 of6700, u  oz"OK": o=z6680  og+g+fdd Ea;"TOOT! TOOT!":i=gnv:a/i,nv-i:"";:c/i/c,i+nv:i::>a/cu e/nv(rx>ery<8p```<~~<