10 rem +------------------------------------------------------+
11 rem + 'The Golden Fry' (Version 1.28) - for Windows/MS-DOS +
12 rem + Author: Paul Allen Panks (dunric@yahoo.com)          +
13 rem + Coded on: November 16-December 3, 2004               +
14 REM + License: Public Domain                               +
15 rem +------------------------------------------------------+
16 rem Intialize variables (keep all REM statements!)
17 screen 0:COLOR 15,1:clear:cls:COLOR 15,1:DIM LO(20),AO2$(20),NO$(20),VB$(20),OB$(20),EX$(20),DE$(32),ET$(32),RT$(32),m(32,6)
18 DIM av AS integer:DIM hp AS integer:DIM hm AS integer:DIM sc AS integer:DIM sm AS integer:DIM ws as integer:ws=0
19 DIM rm AS integer:DIM ic AS integer:DIM wd$(20),AO$(20):FOR x=8 to 29:FOR Y=1 to 6:read m(x,y):NEXT:READ RT$(x):NEXT:GOSUB 2026
20 gosub 995:LO(7)=1:LO(8)=1:LO(9)=3:rm=1:m(1,2)=2:m(2,1)=1:m(2,2)=5:m(3,1)=6:m(3,2)=1:m(2,3)=4:m(4,4)=2:m(5,1)=2:m(6,2)=3
22 gd=25:tp=1:fp=0:LO(10)=7:LO(11)=6:hm=125:hp=hm:m(7,6)=5:sm=250:av=0:sc=0:s=0:cz=0:RT$(1)="Inside the house":RT$(2)="On a long road (near the house)"
23 RT$(3)="Strange new world":RT$(4)="On the path (past a row of houses)":RT$(5)="In a small apple orchard":RT$(6)="By the waterfall"
24 RT$(7)="Atop a small tree branch":gosub 230:gosub 235:rem initialize verbs and nouns
25 OB$(7)="A golden french fry ":OB$(8)="A large soft drink ":OB$(9)="A large katana (gleaming softly) ":OB$(18)="A mean looking troll, guarding the bridge"
26 OB$(10)="A red apple (slightly green) ":OB$(11)="A menacing dragon, lurking under the water... ":OB$(17)="A large owl, with towering wings"
27 EX$(7)="This is a golden french fry. It appears magical, like someone has enchanted it!":OB$(16)="A blue owl's egg, with spots"
28 EX$(8)="This large soft drink appears to contain Pepsi or Coca-Cola. Yum!":OB$(12)="A vicious werewolf, with fiery eyes and sharp teeth."
29 EX$(9)="This is a long katana, forged from the fires of ancient Japan. It gleams oddly  in the fading light.":NO$(17)="owl":AO$(17)="bird"
30 DE$(1)="You are standing inside the house. Your parents have left for the weekend, and  won't be back":NO$(16)="egg":AO$(16)="egg"
31 DE$(1)=DE$(1)+" until Monday. They have left you with a few dollars, some french  fries ":LO(16)=30:LO(17)=30:LO(18)=14
32 DE$(1)=DE$(1)+"and a large two-liter bottle of soda. There are a few tables and chairs   nearby, as well as ":NO$(18)="troll":AO$(18)="guard"
33 DE$(1)=DE$(1)+"a doorway to the south (slightly ajar).":EX$(10)="A lone red apple. It appears somewhat rotten and diseased."
34 ET$(1)="You can move south, past a narrow doorway. It heads outside.":EX$(11)="A large, menacing dragon. It has tough scales and powerful claws!"
35 DE$(2)="You are walking outside your house (on a narrow street). The road is paved only slightly,"
36 DE$(2)=DE$(2)+" typical of a rural location. Smoke rises from the houses above, drift-ing into a pale"
37 DE$(2)=DE$(2)+" blue sky above.":OB$(13)="A magical flute":LO(12)=11:LO(13)=18:fl$="The fire is presently lit. A warm glow fills the room (with sparkles)."
38 ET$(2)="A road leads east of here, near a small hill. Another road heads past":ET$(2)=ET$(2)+" an        orchard of apple trees."
39 DE$(3)="You have entered into a strange and alien world unlike anything you have ever   seen! A large"
40 DE$(3)=DE$(3)+" circular object (glowing green) hovers above you. It pulsates a   strange, almost hypnotic light"
41 DE$(3)=DE$(3)+" which hurts your eyes! But you adjust slowly to  the room, and notice even more than before! A"
42 DE$(3)=DE$(3)+" small waterfall is visible north  of here, cascading down into a small pool below. You also"
43 DE$(3)=DE$(3)+" notice faint, red     eyes glowing in the darkness beneath the water...":VB$(16)="chop":AO$(16)="cut":VB$(17)="play":AO$(17)="sound"
44 ET$(3)="You can wander north, or exit through a time rift to the south.":EX$(15)="A bronze lantern, stained in blood. It is glowing."
45 DE$(4)="You are walking down a lone road (past towering houses). Many of these houses   look alike, as if"
46 DE$(4)=DE$(4)+" a lone architect constructed them all. Although Frank Lloyd   Wright is no longer with us"
47 DE$(4)=DE$(4)+" his vision apparently lives on in these manufact-   ured homes."
48 ET$(4)="There doesn't appear to be much else here. You can go back west (towards the    house)."
49 DE$(5)="You are walking through an orchard of trees. Several apples are visible above   (some of them"
50 DE$(5)=DE$(5)+" ripe enough to eat). They are shrouded in green leaves, many of   them falling down to the "
51 DE$(5)=DE$(5)+"ground (as if cursed). In fact, the trees appear dis-  eased and ugly suddenly! What's going"
52 DE$(5)=DE$(5)+" on here? You feel weaker by the minute.   Perhaps you should wander back north, where it is":m(28,5)=30:m(30,6)=28
53 DE$(5)=DE$(5)+" safer...":EX$(12)="This lone werewolf appears to haunt the surrounding cemetary. It has fiery eyes and razor sharp teeth."
54 ET$(5)="The only viable exits (unless you can climb) are north and west.                "+CHR$(13)+" A smaller road heads west. "+CHR$(13):EX$(13)="This is a small wood flute. It has several holes and a tiny wind pipe."
55 DE$(6)="You are facing a small waterfall near a large, gleaming pool. The water appears to be enchanted by"
56 DE$(6)=DE$(6)+" an unknown magic. You touch the water, but pull back, for it feels dense and uninviting. "
57 DE$(6)=DE$(6)+" What manner of magic could do such a thing, you    wonder? Suddenly, you notice movement below"
58 DE$(6)=DE$(6)+" the water, and you recoil quickly!  A pair of beastly red eyes, though faint, stare at you"
59 DE$(6)=DE$(6)+" ominously from below... ":EX$(14)="This is a long, metal shield. It has jewels and a large cross (a crest)."
60 ET$(6)="You can enter the water, or walk south towards a cave.":OB$(15)="A bronze lantern, blood-stained."
61 DE$(7)="You are standing on a branch atop a tree (in the orchard). How you got up here  (or why you are even"
62 DE$(7)=DE$(7)+" up here) is anybody's guess. You can see a house to the    north, and a field of trees further"
63 DE$(7)=DE$(7)+" west. You notice these apples look fairly   rotten, with a few minor exceptions.":LO(15)=7:FOR X=8 TO 30:ET$(X)="You hear the distant chirping of birds.":NEXT
64 ET$(7)="The only way back down is, well, down...":OB$(14)="A large shield, encrusted with jewels.":LO(14)=23:ET$(18)="You see a small map (attached to the wall).":m(3,2)=0:CLS:goto 860
65 CLS:gosub 600:m(5,4)=8:m(8,3)=5:gosub 750:locate 1,1:color 15,4:print space$(80):locate 1,1:color 15,4:print rt$(rm):locate 1,63:?"Score: ";sc;"/ 250":gosub 755:color 15,1:if lt=1 then print de$(rm):else ?"It is too dark to see!"
66 color 7,1:print et$(rm):color 14,1:print"Obvious exits: <";:gosub 990:?">"
67 color 15,1:if rm=5 and cz=1 then ?"An apple tree has collapsed (someone chopped it down)."
68 color 15,1:for x=7 to 18:if LO(x)=rm then ? OB$(x)
69 next:color 15,1:DE$(30)="You are standing on a branch atop an old oak tree. You notice a large owl's     nest resting on a large branch nearby.":ET$(30)="There is usually an owl here (guarding it closely)."
70 color 15,1:a$="":n$="":v$="":v2$="":n2$="":v=0:n=0:a=0:pt=0:nm=0:dt$="":print:line input">",a$:ic=0:for x=7 to 15:if lo(x)=0 then ic=ic+1
80 next:pt=1: nm=0:dt$=a$:FOR a=1 TO LEN(dt$)
101 IF MID$(dt$,a,1)=" " THEN a$=MID$(dt$,pt,a-pt):pt=a+1:nm=nm+1:wd$(nm)=LCASE$(a$)
102 NEXT:nm=nm+1:a$=MID$(dt$,pt,a-pt):wd$(nm)=LCASE$(a$):a$=dt$:m(3,2)=1:IF LO(7)<>0 then LO(7)=1
103 n$=wd$(2):n2$=wd$(5):v$=wd$(1):v2$=wd$(4):if a$="n" or a$="s" or a$="e" or a$="w" or a$="u" or a$="d" then v=1:goto 115
104 if nm>5 then ?"Command too complex. Please try again.":GOTO 70:else if rm=17 and fp=1 then randomize timer:i=int(rnd*15)+1:if i>11 then hp=hp+25:color 14,1:?"The warmth from the fire heals you somewhat.":color 15,1
105 if a$="i" or a$="inv" or a$="inventory" then goto 200:else if a$="save" or a$="save game" or a$="restore" then goto 885
106 if a$="score" or a$="sc" or a$="?" or a$="stats" or a$="stat" then goto 205:else if a$="examine map" or a$="x map" or a$="exa map" then if rm=18 then ?"You read the map carefully...":goto 2100
107 if a$="l" or a$="look" then goto 65:else if a$="enter water" or a$="enter pool" or a$="enter pond" or a$="enter waterfall" or a$="enter water fall" then goto 840
108 if a$="q" or a$="quit" or a$="exit" or a$="bye" or a$="goodbye" or a$="good bye" then goto 830
109 if a$="help" or a$="help me" or a$="hint" or a$="mercy" then goto 220
110 if LO(11)=998 then goto 500:else if a$="close door" or a$="open door" then if rm=1 then ?"You "+wd$(1)+" the door (only slightly).":?"You may pass through it to the south.":goto 70
111 if a$="drink water" then if rm<>3 and rm<>6 then ?"That isn't here to drink.":goto 70
112 if a$="drink water" then ?"The water tastes a bit salty.":sc=sc+3:hp=hp+5:gosub 600:goto 70:else if wd$(1)="open" or wd$(1)="close" then ?"You can't "+wd$(1)+" that now.":goto 70
113 gosub 231:gosub 236:V=0:for x=1 to 17:if wd$(1)=VB$(x) or wd$(1)=AO$(x) or wd$(1)=AO2$(x) then v=x:x=20
114 next:if a$="n" or a$="s" or a$="e" or a$="w" or a$="u" or a$="d" then v=1
115 n=0:for x=1 to 18:if wd$(2)=NO$(x) or wd$(2)=AO$(x) or wd$(2)=AO2$(x) then n=x
116 next:if n=0 then if v<>4 and v<>5 and v<>7 and v<>14 and v<>1 and v<>15 and v<>17 then ?"Sorry, but that's impossible right now...":goto 70
117 ON v GOTO 240,250,260,270,280,310,300,310,320,330,340,350,400,410,270,270,270
118 print"What? Command not understood.":?"Type 'help' for a command list.":goto 70
119 rem inventory
200 if lt=0 then ?"It is too dark to see!":GOTO 70
201 color 15,1:s=0:?"You are carrying:":for x=7 to 18: if lo(x)=0 then print " ";ob$(x):s=s+1:if av=0 then av=1:sc=sc+(x*4)
202 next:color 12,1:if s=0 then ?"You have nothing on hand..."
203 goto 70
205 if sc>sm then sc=sm
206 ?"You are known as ";na$;" (the ";kn$;")!":print"You score is";sc;"( of";sm;") points.":print"You have";hp;"hit points ( of";hm;")."
207 print"You are carrying";ic;"items and";gd;"gold coins.":color 7,1:?"Wimpy mode activated (flee when below 1/3 hp)."
208 goto 70
209 rem quit game
210 gosub 600:print:print"Your score was";sc;"out of";sm;"points.":print"You had";hp;"of";hm;"hit points and"
211 print"carried with you";ic;"objects.":print:if tp=1 and hp<1 then tp=0:hp=hm:?"Well, I suppose I can be nice just ONCE today...":?"Command undo used.":?"(action reversed)":?"Ok.":goto 70
212 color 10,1:print"Play again (y/n)?":color 15,1
213 b$=inkey$:if b$="" then goto 213
214 if b$="y" or b$="Y" then goto 10
215 if b$="n" or b$="N" then print:print"Thanks for playing! :)":end
216 goto 213
220 rem help command
221 print:print"HELP COMMAND":print:print"This game is a text adventure. You can play anyway you like, but"
222 print"keep in mind that to move about (or do anything useful), you must":?"enter in one or two word"
223 print"commands.":?:?"These commands are structured in the following manner:":print
224 print"<verb> <noun>":print
225 print"For example, typing 'go north' will move your player one room to the north.":print
226 print"You may also enter one word commands (such as 'inventory'), or abbreviations    (such as 'i').":print
227 print"Commands include:":print:print"GO,GET,DROP,USE,EXAMINE,LOOK,CLIMB,EAT,DRINK,INVENTORY,SCORE,":?"LIGHT,PLAY,SAVE,KILL and QUIT.":print
228 print"If all else fails, you can also e-mail me at: dunric@yahoo.com":print
229 goto 70
230 rem initialize verbs
231 AO$(1)="move":AO$(2)="take":AO$(3)="throw":AO$(4)="play":AO2$(4)="light":AO$(5)="exa":AO$(6)="view":AO2$(4)="activate":AO2$(5)="x"
232 VB$(1)="go":VB$(2)="get":VB$(3)="drop":VB$(4)="use":VB$(5)="examine":VB$(6)="eat":AO2$(1)="walk":AO2$(2)="grab":AO2$(3)="toss"
233 VB$(7)="climb":VB$(8)="eat":VB$(9)="drink":VB$(10)="inventory":VB$(11)="score":VB$(12)="kill":VB$(13)="quit":VB$(14)="scratch":VB$(15)="light":AO$(15)="turn"
234 AO$(7)="ascend":AO$(8)="bite":AO$(9)="consume":AO$(10)="inv":AO$(11)="?":AO$(12)="fight":AO2$(12)="attack":AO$(13)="exit":RETURN
235 rem initialize nouns
236 NO$(1)="north":NO$(2)="south":NO$(3)="east":NO$(4)="west":NO$(5)="up":NO$(6)="down":AO$(1)="n":AO$(2)="s":AO$(3)="e":AO$(4)="w":NO$(15)="lantern":AO2$(8)="bottle"
237 NO$(7)="french fry":AO$(7)="fry":NO$(8)="drink":AO$(8)="soda":NO$(9)="katana":AO$(5)="u":AO$(6)="d":AO$(13)="wood":NO$(14)="shield":AO$(15)="torch"
238 AO$(9)="sword":NO$(10)="apple":AO$(10)="red":NO$(11)="dragon":AO$(11)="beast":NO$(12)="werewolf":AO$(12)="wolf":NO$(13)="flute":AO$(14)="buckler"
239 return
240 if lo(12)=rm then if a$="go north" or a$="north" or a$="n" then if ws=0 then ?"The werewolf blocks your path!":?"'Grrrrrrrr!', it growls at you.":GOTO 70
241 if a$="go north" or a$="north" or a$="n" then n=1
242 if a$="go south" or a$="south" or a$="s" then n=2
243 if a$="go east" or a$="east" or a$="e" then n=3
244 if a$="go west" or a$="west" or a$="w" then n=4
245 if a$="go up" or a$="up" or a$="u" then n=5
246 if a$="go down" or a$="down" or a$="d" then n=6
248 if m(rm,n)=0 then ?"You can't go that way.":goto 70:else if lo(18)=rm and lo(17)<>0 and n=2 then gosub 770:rm=14:GOTO 70
249 rm=m(rm,n):?"You wander ";NO$(n);"...":?:goto 65
250 rem get command
251 if LO(n)<>rm then ?"That isn't here (or cannot be reached).":GOTO 70
252 if n=11 then ?"(Get dragon)":?"The dragon sees your hand, and becomes scared!":?"The dragon moves away, much too fast for you to catch him!":LO(11)=-1:sc=sc+5:GOTO 70
253 if n=12 then ?"(Get wolf)":?"The werewolf growls at you! Grrrrrrrrr!":?"You run away in fright!":RM=10:?:GOTO 65
254 if n<7 or n=17 or n=18 then ?"You can't pick that up, silly!":GOTO 70
255 if LO(17)=rm and n=16 then ?"The owl snaps at you!":?"It won't let you take the egg!":sc=sc+2:goto 70
256 LO(n)=0:PRINT"Ok.":ic=ic+1:GOTO 70
260 rem drop command
261 IF LO(n)<>0 AND lo(n)=rm then ?"Sorry, but that's impossible right now...":GOTO 70
262 IF LO(n)<>0 then ?"You don't have it!":GOTO 70
263 IF n=7 and lo(n)=0 then ?"The fry magically fades away."
264 LO(n)=rm:?"Ok.":ic=ic-1:GOTO 70
270 rem use command
271 if lo(n)<>0 and lo(n)<>rm then ?"How shall you use that?":goto 70
272 if n=0 then goto 700
273 if n=7 then ?"You can't USE a french fry! (You can only eat it)":goto 70
274 if n=8 then ?"You try using the soft drink, but without much success.":?"(Perhaps you should try drinking it!)":goto 70
275 if n=9 then if rm=5 and cz=0 then cz=1:?"You use the sword (on the tree).":?"< THHHUUUUDDDD!!! >":?"A tree falls down, collapsing in front of you.":?"Some apples fall out...":LO(10)=rm:sc=sc+25:goto 70
276 if n=9 then if rm=5 then ?"(On the tree)":?"The tree has already been chopped down...":goto 70
277 if n=9 then if rm=6 and lo(11)<>rm then ?"(On dragon)":?"The dragon isn't here.":GOTO 70
278 if n=9 then if rm=6 then ?"(On dragon)":?"You attack the dragon...":goto 350
279 goto 700
280 rem examine command
281 wd$(1)="examine":a$=wd$(1)+" "+wd$(2):if a$="examine tree" or a$="examine trees" then if rm=5 then ?"These trees look ages old. Some of them have fruit on them.":sc=sc+5:goto 70
282 if a$="examine house" then if rm=1 then ?"The house looks fairly clean, although your parents won't be pleased if":?"you mess it up while they're gone!":sc=sc+2:goto 70
283 if a$="examine tables" or a$="examine table" then if rm=1 then ?"It looks like an ordinary oak table.":if LO(7)=rm then ?"Resting on the table is a golden french fry.":sc=sc+8:goto 70
284 if a$="examine chairs" or a$="examine chair" then if rm=1 then ?"The chairs are made out of oak and marble. Don't scratch them!":sc=sc+3:goto 70
285 if a$="examine doorway" or a$="examine door" then if rm=1 then ?"The doorway extends outside, heading into sunlight ahead.":sc=sc+10:goto 70
286 if a$="examine house" then if rm=2 then ?"Your house is much too far away to examine closely. You'll need to move closer.":sc=sc+3:goto 70
287 if a$="examine street" or a$="examine road" then if rm=2 then ?"The street heads east and west from your vantage point. It appears to wind":?"to the southwest, towards a grassy hillside (south of here).":sc=sc+15:goto 70
288 if a$="examine houses" then if rm=2 then ?"The houses tower above you, rising upwards about twenty feet. Every house":?"looks the same, as they are painted a dull, lifeless color.":sc=sc+8:goto 70
289 goto 650
290 rem look command
291 if a$<>"look" and a$<>"l" and a$<>"lk" then ?"What? You can't do that here.":GOTO 70
292 goto 65
300 rem climb command
301 if a$="climb tree" or a$="climb trees" then if rm=5 then if cz=0 then ?"You climb the tree...":?:rm=7:sc=sc+30:goto 65
302 if a$="climb tree" or a$="climb trees" then if rm=5 then ?"The tree is already down, and cannot be climbed.":?"All the other trees appear to be too high.":sc=sc+5:goto 70
303 if a$="climb hill" or a$="climb hillside" then if rm=2 or rm=4 or rm=5 or rm=7 then ?"The hillside is much too far away to climb from here.":?"You'll have to find another way around...":sc=sc+12:goto 70
304 if a$="climb object" then if rm=3 or rm=6 then ?"The object is too high up to climb.":?"You'll need a ladder (or something else) to reach it...":sc=sc+8:goto 70
305 ?"That cannot be climbed (safely).":goto 70
310 if n=8 then goto 320
311 if lo(n)<>0 and lo(n)<>rm then ?"That isn't here to eat.":goto 70
312 if n<7 or n=11 then ?"You can't eat that, silly!":goto 70
313 if n=7 and rm=1 then ?"Your body feels very light...":?:sleep 1:rm=3:LO(7)=3:sc=sc+25:goto 65
314 if n=7 and rm=3 then ?"Your body feels very light...":?:sleep 1:rm=1:lo(7)=1:sc=sc+12:goto 65
315 if n=7 then ?"Your body feels very light...":rm=1:sleep 1:LO(7)=1:sc=sc+6:goto 65
316 if n=8 then ?"Try drinking the soft drink instead.":goto 70
317 if n=10 then ?"You eat the apple...":?"Suddenly, you feel a sharp pain in your stomach!":?"That apple was poisonous!":?"You died.":?:?"THE END":goto 210
318 if n=11 then ?"You try to eat the dragon, but it smells your stale breath and moves away!":LO(11)=-1:sc=sc+5:goto 70
319 ?"You can't eat that.":goto 70
320 rem drink command
321 if lo(n)<>0 and lo(n)<>rm then ?"That isn't here to drink.":goto 70
322 if n<7 or n=11 then ?"You can't drink that, silly!":goto 70
323 if n=8 then ?"You drink the soda.":?"Ahhhhhhhhhhhhhh!":?"It tastes refreshing!":?"(The soda vanishes)":hp=hm:sc=sc+8:LO(8)=1:goto 70
324 ?"You can't drink that (here).":goto 70
330 rem inventory command
331 goto 200
340 rem score command
341 goto 205
350 if n=12 and lo(n)=rm and ws=1 then ?"The wolf is sound asleep!":?"It would be unfair to attack it now.":GOTO 70
351 randomize timer:mh=int(rnd*(36*n))+50:if lo(n)<>rm then ?"You can't kill that!":goto 70
352 if n<>11 and n<>12 and n<>17 and n<>18 then ?"You can't kill something that isn't alive.":goto 70
353 ?"You are fighting the ";NO$(n);".":?">":gosub 880:goto 376
354 randomize timer:i=int(rnd*35)+1:if i<=5 then ?"You missed."
355 if i>=6 and i<=10 then ?"You hit ";NO$(n);".":mh=mh-2*(ic+1):sc=sc+i:if LO(9)=0 then mh=mh-(hp*2)
356 if i>=11 and i<=15 then ?"You hit ";NO$(n);" hard.":mh=mh-3*(ic+1):sc=sc+(i*2):if LO(9)=0 then mh=mh-(hp*3)
357 if i>=16 and i<=20 then ?"You hit ";NO$(n);" very hard.":mh=mh-4*(ic+1):sc=sc+(i*3):if LO(9)=0 then mh=mh-(hp*4)
358 if LO(9)=0 then if i>=21 and i<=25 then ?"The katana flashes with a dark power."
359 if i>=21 and i<=25 then color 10,1:?"You smashed ";NO$(n);" with a bone-crushing sound.":mh=mh-6*(ic+1):sc=sc+(i*5):if LO(9)=0 then mh=mh-(hp*6)
360 color 15,1:if LO(9)=0 then if i>=26 and i<=30 then ?"The katana flashes with a dark power."
361 if i>=26 and i<=30 then color 10,1:?"AMAZING BLOW!":?"You massacred ";NO$(n);" into small fragments.":mh=mh-8*(ic+1):sc=sc+(i*6):if LO(9)=0 then mh=mh-(hp*10)
362 color 15,1:if i>=31 then ?"The ";NO$(n);" dodged your attack.":sc=sc+1
363 if LO(8)=0 then if i>=20 then color 7,1:?"You take a sip from the soda...":color 14,1:?"Your wounds healed somewhat.":hp=hp+i:if hp>hm then hp=hm
364 color 6,1:?">":color 15,1
365 randomize timer:i=int(rnd*35)+1:if i<=5 then ?"The ";NO$(n);" missed."
366 if i>=6 and i<=10 then ?"The ";NO$(n);" hit you.":hp=hp-i
367 if i>=11 and i<=15 then ?"The ";NO$(n);" hit you hard.":hp=hp-(i*2)
368 if i>=16 and i<=20 then ?"The ";NO$(n);" hit you very hard.":hp=hp-(i*3)
369 if i>=21 and i<=25 then color 12,1:?"The ";NO$(n);" smashed you with a bone-crushing sound.":hp=hp-(i*4)
370 if i>=26 and i<=30 then color 13,1:?"The ";NO$(n);" massacred you into small fragments.":hp=hp-(i*6)
371 if i>=31 then color 12,1:?">>>>>>>>>>>>>>>>>>>> ";:color 7,1:?"F I R E - B A L L ! ! !":color 15,1:?"The ";NO$(n);" shoots a fireball at you!":i=28:goto 366
372 color 6,1:?">":color 15,1:gosub 1000:if hp<36 and hp>0 then sleep 1:?"What ?":?"What ?":?"What ?":?"What ?":?"What ?":?:sleep 1:?"You wimpy southwest...":sleep 2:rm=rm-3:?:goto 65
373 if hp<0 then color 12,1:?"You died.":?"You have a strange feeling.":color 15,1:goto 515
374 if mh<0 then color 11,1:?"The ";NO$(n);" dies.":?"You killed the ";NO$(n);" dead.":?:color 7,1:?"You gained";i;"gold coins from your battle.":gd=gd+i:color 15,1:goto 500
375 goto 353
376 color 7,1:?"< (F)ight or (R)un >? ";
377 b$=inkey$:if b$="f" or b$="F" then color 15,1:?"Fight":goto 354
378 if b$="r" or B$="R" then color 15,1:?"Run":color 7,1:?"You flee southwest...":?:color 15,1:rm=rm-3:goto 65
379 goto 377
400 rem quit command
401 goto 210
410 rem scratch command
411 if rm=1 then if a$="scratch chair" or a$="scratch chairs" then ?"You scratch the chairs for awhile.":?"Oh dear! Your parents will be VERY upset!":sc=sc+50:goto 70
412 print"That didn't seem to work.":GOTO 70
499 rem player wins
500 print:if n<>11 then LO(n)=998:?"You also gained";n;"extra hit points and revived":?"some of your health.":hp=hm:hm=hm+(n*2):goto 70
501 print"The dead dragon lay at your feet, splattered in blood. You have defeated"
502 print"the menacing dragon, but in a small way, you feel deeply sorry for it. It"
503 print"had been lurking in these waters for quite some time, and yet you felt the"
504 print"need to slay it with your sword. What a pity. Your parents will be unhappy"
505 print"to hear of this news...":?:gosub 1000:?
506 print"As you step outside, out from the stale air and into the crystal clear"
507 print"air, you feel fully alive and refreshed. As you look towards the horizon,"
508 print"the once gloomy orchard has been replaced by a lovely row of apple trees,"
509 print"springing forth life from within.":?:gosub 1000:IF LO(8)<>0 then ?:?"THE END"
510 ?:if LO(8)=0 then print"You glance at the apple in your pocket. It, too, has changed from a pale"
511 if LO(8)=0 then print"green to a vibrant red. Biting into it, you taste the fresh apple. It's"
512 if LO(8)=0 then print"fantastic! Your parents will be home anytime now, but this adventure is"
513 if LO(8)=0 then print"hardly over...for your weekend has just begun!":?:?"THE END":goto 210
514 goto 210
515 if n<>11 then ?:?"You lost at the hands of ";NO$(n);".":?:?"THE END":GOTO 210
516 ?:?"You feel a horrible crunch, as the dragon rips you to pieces! The last"
517 ?"thing you see is the murky water below, as the dragon twists and turns":?"your insides into a bloody mess!":?:?"THE END":GOTO 210
599 rem check for problems
600 if sc>sm then sc=sm
601 if hp>hm then hp=hm
602 if hp<1 then hp=0
603 if mh<1 then mh=0
604 if ic<1 then ic=0
605 if rm>8 then if lo(15)<>0 or lo(15)<>rm then lt=0
606 if rm=1 or rm=2 or rm=4 or rm=5 or rm=7 or rm=8 then lt=1
607 if lo(15)=0 or lo(15)=rm then lt=1
608 return
649 rem examine command (extended)
650 wd$(1)="examine":a$=wd$(1)+" "+wd$(2):if a$="examine sky" then if rm=2 or rm=4 or rm=5 then ?"The sky above looks crystal clear. You notice some":?"small clouds gathering in the distance (over the near horizon).":sc=sc+12:goto 70
651 if a$="examine horizon" then if rm=2 or rm=4 or rm=5 then ?"The distant horizon looks hazy and boring. You":?"notice a few lone clouds, hovering in the far distance ahead.":sc=sc+6:goto 70
652 if a$="examine clouds" or a$="examine cloud" then if rm=2 or rm=4 or rm=5 then ?"The clouds are a puffy mix of white, grey and blue. They look like small cottonballs":?"floating in the sky!":sc=sc+12:goto 70
653 if a$="examine hill" or a$="examine hillside" or a$="examine tree" or a$="examine trees" then if rm=2 or rm=4 then ?"Both the trees and the hillside are much too far away to examine closely.":?"The hillside slopes down south.":sc=sc+8:goto 70
654 if a$="examine object" then if rm=3 and lo(9)=rm then ?"The object appears to be suspended in midair, hovering ever":?"so slightly! Atop the object appears to be a long metal sword.":sc=sc+8:goto 70
655 if a$="examine object" then if rm=3 and lo(9)<>rm then ?"The object appears to be suspended in midair, hovering ever":?"so slightly! The top of the object appears empty, however.":sc=sc+4:goto 70
656 if a$="examine light" then if rm=3 or rm=6 then ?"All round, light can be seen...it is a pure blue light, emanting from":?"deep within the murky water below! Someone (or something) has enchanted it...":sc=sc+16:goto 70
657 if a$="examine waterfall" then if rm=3 or rm=6 then ?"The waterfall splashes down from an unknown source. It cascades down into a":?"glowing pool of water (at the surface of this cave). It appears magical!":sc=sc+20:goto 70
658 if a$="examine pool" then if rm=3 or rm=6 then ?"The pool appears to below a striking blue. It appears to be coming from":?"deep within the water. What makes it glow is not immediately known to you.":sc=sc+25:goto 70
659 if a$="examine water" then if rm=3 or rm=6 then ?"The water glows a soft, pale blue. You notice something moving down below...":?"Whatever it is, you mustn't disturb it...for it might be looking for a":?"quick meal!":sc=sc+34:goto 70
660 if a$="examine leaves" then if rm=5 then ?"These leaves used to be green and lovely, but have since been":?"turned to an ashen grey color. There is something very wrong with this orchard!":sc=sc+12:goto 70
661 if a$="examine ground" then if rm=5 then ?"The ground is covered with leaves. You notice they don't look":?"very healthy (even the recently fallen ones).":sc=sc+11:goto 70
662 if a$="examine tree" or a$="examine branch" then if rm=7 then ?"This tree appears aged and twisted. It used to be young and":?"healthy, but something has diseased it, making it appear sickly and old.":sc=sc+18:goto 70
663 if a$="examine orchard" or a$="examine field" then if rm=5 or rm=7 then ?"The orchard spans several hundred yards (in both directions). It appears to":?"head towards a sloping hillside, winding past a large field.":sc=sc+24:goto 70
664 if a$="examine hill" or a$="examine hillside" then if rm=5 or rm=7 then ?"The hillside slopes downward several feet to the southwest. At the base of the":?"hill, you notice a lone treestump.":sc=sc+21:goto 70
665 if a$="examine treestump" then if rm=5 or rm=7 then ?"The treestump is much too far away to examine closely.":?"However, it appears someone has chopped that tree down (with a sword).":sc=sc+8:goto 70
666 if a$="examine nest" then if rm=30 then ?"This is an ordinary owl's nest. Contained within the nest are several":?"small, blue eggs (spotted brown). An owl is usually here (guarding it closely).":sc=sc+12:goto 70
667 if a$="examine bridge" then if rm=14 then ?"This bridge spans the length of the river. It appears worn and aged.":sc=sc+14:goto 70
668 if a$="examine flowers" then if rm=13 then ?"These flowers have many vibrant colors!":?"You try to pick one, but they remain rooted in place!":sc=sc+8:goto 70
669 if a$="examine grave" or a$="examine graves" then if rm=20 then ?"This is a small grave in the middle of the cemetary. A statue is planted":?"next to it (at the top of the grave).":sc=sc+4:goto 70
670 if a$="examine statue" then if rm=23 then ?"This statue is cast in bronze. It appears to bare a remarkable likeness to a local mountain":?"man who lived in these woods (some centuries ago). He looks important, anyway...":sc=sc+8:goto 70
671 if a$="examine wall" then if rm=18 then ?"Attached to the wall is an old map. It appears quite worn.":sc=sc+2:goto 70
672 if a$="eaxmine cemetary" then if rm>18 and rm<27 then ?"The surrounding cemetary looks odd in such a beautiful forest. Perhaps the local":?"inhabitants wanted to bury their dead among such beauty (to remind them of life).":sc=sc+5:goto 70 
673 if a$="examine alcove" then if rm=12 then ?"This alcove is quite lovely. You can hear the distant sounds of birds as they":?"move about the trees. There is a warm breeze nearby...":sc=sc+3:goto 70
674 if a$="examine forest" then if rm>7 and rm<17 then ?"The forest extends several hundred yards to the east. A lone road heads uphill":?"to the north (near a small apple orchard).":sc=sc+6:goto 70
675 if a$="examine clearing" then if rm=11 then ?"You are in a small clearing, away from the forest. It appears to spread out a":?"few hundred yards to the northeast. A cemetary lies to the north of here.":sc=sc+4:goto 70
676 if a$="examine gate" then if rm>18 and rm<27 then ?"The iron gate surrounding the cemetary is cast in rusted bronze. There are a few":?"places of rusting, but not many (that you can see).":sc=sc+2:goto 70
677 if a$="examine garden" then if rm=27 then ?"This garden is quite lovely, with flowers surrounding you in all visible directions.":?"But you mustn't pick any...as your garden, this is clearly NOT!":sc=sc+7:goto 70
678 if a$="examine flower" or a$="examine flowers" then if rm=27 then ?"These flowers have all the colors of the rainbow...and more!":?"Too bad you can't take any with you (damn it)...":sc=sc+6:goto 70
679 if a$="examine oak" or a$="examine tree" then if rm=28 then ?"This tree looks ages old. The branches are twisted and ugly. It looks ancient.":sc=sc+5:goto 70
680 if a$="examine branch" or a$="examine branches" then if rm=28 then ?"These are low-lying branches. You should be able to go up the tree easily.":sc=sc+3:goto 70
681 if a$="examine pond" or a$="examine meadow" then if rm=29 then ?"This pond looks green and mossy. The surrounding meadow grows in stark":?"contrast to the ugliness of this pond.":sc=sc+5:goto 70
682 if a$="examine toolshed" then if rm=18 then ?"This toolshed is quite dark! There isn't much to be seen here (except for a small wooden":?"shelf). That rests just above you.":sc=sc+3:goto 70
683 if a$="examine shelf" then if rm=18 then ?"This is a small wooden shelf. It appears to be empty, however. What a shame...":sc=sc+4:goto 70
684 if a$="examine tree" or a$="examine branch" or a$="examine branches" then if rm=30 then ?"You are standing on a branch atop an old oak tree.":?"The surrounding leaves nearly knock you off the tree (it's a long way down)!":sc=sc+8:goto 70
685 if a$="examine trees" then if rm>7 and rm<17 then ?"These trees tower above you in all directions here. There is also":?"very little light to be seen. You'll need a lantern to see clearly":?"in the dark!":sc=sc+3:goto 70
686 if a$="examine river" then if rm=10 or rm=14 then ?"The river moves swiftly towards the southwest. It appears cold and":?"lifeless. A wooden bridge crosses it to the south.":sc=sc+4:goto 70
687 if a$="examine bridge" then if rm=10 then ?"The bridge looks uneven in parts, but crossable. You'll need to move":?"a bit closer to examine it further.":sc=sc+3:goto 70
688 if a$="examine sky" then if rm>7 and rm<>17 and rm<>18 then ?"The sky appears blue, although you aren't sure (with all the":?"trees nearby). A shadow of light hits the ground, scarring it across.":?"The forest appears dark and misty.":goto 70
689 if a$="examine ground" then if rm>7 and rm<>17 and rm<>18 then ?"The ground is covered in brush and leaves. There is mist":?"hovering slightly above it, oddly enough.":sc=sc+4:goto 70
690 if a$="examine leaves" then if rm>7 and rm<>17 and rm<>18 then ?"The leaves look damp and lifeless. They are all yellow or orange. Some of":?"the darker ones appear almost grey.":sc=sc+5:goto 70
691 if a$="examine mist" then if rm>7 and rm<>17 and rm<>18 then ?"The surrounding mist is quite thick! It appears to emanate from nowhere.":sc=sc+5:goto 70
692 if a$="examine brush" then if rm>7 and rm<>17 and rm<>18 then ?"The surrounding brush of the forest is scattered about the":?"ground. It looks like good fire kindling.":sc=sc+5:goto 70
693 if a$="examine cabin" then if rm=17 then ?"This cabin is fairly small, with nothing beyond a fireplace":?"and an old table. There appears to be a toolshed to the east (outside).":sc=sc+2:goto 70
694 if a$="examine fireplace" then if rm=17 then ?"This is a stone fireplace (set into the back wall).":if fp=0 then ?"It does not appear to be lit at the moment.":goto 70:else if a$="examine fireplace" and rm=17 then if fp=1 then ? fl$:goto 70
695 if a$="examine table" or a$="examine toolshed" then if rm=17 then ?"It appears worn and quite old. It is made out of wood.":sc=sc+3:goto 70
696 if n<7 then ?"You notice nothing unusual about it.":goto 70
697 if n>0 then if LO(n)=rm or LO(n)=0 then ? EX$(n):if n=11 then ?"It's glowing red eyes seem to follow you about the surface of":?"the water! Perhaps it would be best not to disturb it...":sc=sc+n:goto 70
698 if n>0 then if LO(n)<>rm and LO(n)<>0 then ?"You don't see that here.":GOTO 70
699 goto 70
700 rem use command (extended)
701 if n=10 then if lo(11)=rm then ?"(On dragon)":?"You throw the apple at the dragon, missing it narrowly.":?"The apple floats to the top, which the dragon eyes hungrily. It eats it quickly, but":?"something is horribly wrong!":goto 705
702 if n=10 then ?"You can't really USE an apple. What else can you do with it?":sc=sc+1:goto 70
703 if n=11 then ?"(Get dragon)":?"The dragon sees your hand, becomes scared, and darts away!":lo(11)=-1:sc=sc+5:goto 70
704 GOTO 707
705 rem use command (extended use)
706 ?"The dragon emits a series of horrible moans, and it":?"floats belly up, dead.":?:sc=sc+100:?"THE END":goto 210
707 if n=12 then ?"(Get werewolf)":?"The werewolf sees your advance, and growls at you!":?"You back away in fear!":?:RM=10:GOTO 65
708 if n=13 then if lo(12)=rm and ws=0 then ws=1:?"(Use flute)":?"You play the flute...":?"A soft sound is heard, as the wolf drifts to sleep...":OB$(12)=OB$(12)+" (asleep)":EX$(12)=EX$(12)+" The wolf is sound asleep.":sc=sc+15:GOTO 70
709 if n=13 then if lo(12)=rm and ws=1 then ?"(Use flute)":?"You play the flute...":?"A soft sound is heard, followed by silence.":?"The wolf is already asleep...":sc=sc+4:GOTO 70
710 if n=14 then ?"You can't use that. It can only be carried.":GOTO 70
711 if n=13 then ?"(Use flute)":?"You play the flute...":?"A soft sound is heard, followed by silence.":?"Nothing happened.":sc=sc+2:GOTO 70
712 if n=15 then if lt=0 then lt=1:?"@ Click! @":?"The lantern is now aglow.":sc=sc+5:GOTO 70
713 if n=15 then ?"The lantern is already aglow.":GOTO 70
714 if n=0 then if a$="light fire" or a$="light fireplace" then if lo(15)<>0 then ?"You aren't carrying the lantern!":?"(The fire can only be lit with the lantern)":goto 70
715 if n=0 then if a$="light fire" or a$="light fireplace" then if lo(15)=0 then fp=1:?"<<< Woooosssshhhh!!! >>>":?"The fire is now lit!":sc=sc+12:goto 70
716 if n>0 then if LO(n)<>0 and lo(n)<>rm then ?"That isn't here to ";v$;".":GOTO 70
717 ?"You can't ";v$;" that here.":GOTO 70
749 rem view command(s)
750 view text (1,1)-(80,25):return
755 view text (1,2)-(80,25):return
769 rem check for troll
770 tr=0:if LO(18)=rm and LO(16)<>0 and n=2 then ?"The troll stops you!":?"It hisses,'Bring me an owl's egg, and I'll let you pass!'":?"'But not before then!'":sc=sc+4:tr=1:rm=14:return
771 if LO(18)=rm and LO(16)=0 and n=2 then ?"The troll smiles.":?"You hand the owl's egg to troll.":?"The troll bows at you.":?"He says,'Now you may pass!'":?"Troll leaves down.":sleep 1:LO(18)=-1:LO(16)=28:sc=sc+25:tr=1:return
772 return
819 rem extended intro
820 print"Perhaps the dragon tidbit was an overactive imagination, or a story, or both.":?"You're totally drunk, and it's the weekend, so who cares about some lilly":?"spotted dragon in the darkest regions of your house?":?
821 color 11,1:?"Thanks go to Sidney Merk (Mike) and Ryan McLaughlin for helping":?"to beta-test this game.":?:color 15,1
822 return
829 rem exit/quit - check for yes/no
830 ?"Are you sure you want to quit (y/n)? ";
831 b$=inkey$:if b$="" then goto 831
832 if b$="y" or b$="Y" then ?"Yes":?:gosub 1000:goto 210
833 if b$="n" or b$="N" then ?"No":?:goto 70
834 goto 831
839 rem check for water
840 if rm=3 or rm=6 then ?"You try to enter the water, but are repelled by something":?"moving deep below!":sc=sc+7:goto 70
841 if rm=29 then ?"You enter the pond...":?"You feel refreshed, oddly enough!":hp=hm:goto 70
842 ?"You can't enter here.":goto 70
859 rem saved game?
860 CLS:color 15,1:?"Are you playing a saved game? (Y/N): ";
861 b$=inkey$:if b$="y" or b$="Y" then color 7,1:?"Yes":?:goto 865
862 if b$="n" or b$="N" then color 7,1:?"No":?:goto 870
863 goto 861
864 rem load saved game
865 color 15,1:?"Enter name of character to load (e.g. 'faldor'): ";
866 line input "",na$:open na$+".sav" for input as #1:if lof(1)>200 then close #1:?:color 11,1:?"Character does not exist!":sleep 2:?:goto 860
867 input#1,rm:input#1,sc:input#1,sm:input#1,hp:input#1,hm:input#1,na$
868 input#1,cz:input#1,tp:input#1,lt:input#1,ic:input#1,ws:input#1,gp
869 for x=7 to 18:input#1,LO(x):next:input#1,fp:close 1:color 15,1:?:?"Game loaded successfully!":sleep 2:goto 65
870 rem start a new game
871 color 11,1:?"New character":?:color 15,1:?"Enter your character's name: ";:color 7,1:input "",na$:?
872 color 15,1:?"What shall you be known as (e.g. 'brave','timid','silly',etc.): ";:color 7,1:input "",kn$
873 ?:color 15,1:?"Would you like to start out with extra hit points (Y/N)?: ";:color 7,1
874 b$=inkey$:if b$="y" or b$="Y" then ?"Yes":?:color 15,1:?"It is done.":sleep 2:?:hm=194:hp=hm:gosub 1000:goto 65
875 if b$="n" or b$="N" then ?"No":?:color 15,1:?"Very well then...":sleep 2:?:gosub 1000:goto 65
876 goto 874
879 rem fireball command
880 if lo(14)=0 then ?"Your SHIELD blasts ";NO$(n);" with a fireball!":mh=mh-i:hp=hp+i:if hp>hm then hp=hm
881 if lo(14)=0 then color 2,1:?">>>>>";:color 12,1:?">>>>>";:color 14,1:?">>>>>";:color 15,1:?">>>>>";:color 7,1:?" F I R E - B A L L ! ! !":color 15,1
882 return
884 rem save game in progress
885 color 11,1:?"Saving ";na$;"..."
886 open na$+".sav" for output as #1
887 print#1,rm:print#1,sc:print#1,sm:print#1,hp:print#1,hm:print#1,na$
888 print#1,cz:print#1,tp:print#1,lt:print#1,ic:print#1,ws:print#1,gp
889 for x=7 to 18:print#1,LO(x):next:print#1,fp:close 1:color 11,1:?"Done.":color 15,1:goto 70
989 rem a check for map
990 for x=1 to 6:if m(rm,x)>0 then ? " ";NO$(x);" ";
991 next:return
994 rem print intro screen
995 print"The Golden Fry (v1.28)":?"By: Paul Panks (dunric@yahoo.com)":?"Version 1.28, Build 162":?:color 14,1:?"<<< Public Domain Software >>>":?:RT$(30)="Up an old oak tree, near a garden":EX$(16)="This is a small owl's egg (spotted brown)."
996 color 7,1:print"Your parents have left you alone for the weekend (pity them, right?) and":?"they've left you only a few dollars and some food. With nothing else on the":EX$(17)="This large owl is quite large! It guards the owl's nest."
997 print"agenda for the weekend, you'd like to eat some food, watch some super-fly":?"television and perhaps invite a few of your home boys over for a session of":?"spider weed. You're a drop out junkie, and it's gonna stay that way, yo!"
998 print"You vaguely recall your mother warning you about the 'golden french fry'":?"(what is that, anyway?), and something else very vague about a dragon":?"lurking in the basement. But other than that, you know little else...":?:gosub 820
999 EX$(18)="This is a large, vicious troll with red eyes, a scarred face and ugly teeth!"
1000 color 6,1:print"@@@ ";:color 14,1:?"Press any key to continue";:color 6,1:?" @@@":color 15,1
1001 REM color 15,1:?"This is a test.":color 15,1
1002 b$=inkey$:if b$="" then goto 1002
1003 return
1999 rem extended room data
2000 DATA 0,9,5,0,0,0,"A lone path (heading south, towards a small forest)": rem room 8
2001 DATA 8,10,0,0,0,0,"In a dark forest (heading south)":rem room 9
2002 DATA 9,13,11,12,0,0,"Within the forest, near a clearing":rem room 10
2003 DATA 19,0,0,10,0,0,"In a small clearing":rem room 11
2004 DATA 0,0,10,0,0,0,"At the forest end, near an alcove":rem room 12
2005 DATA 10,0,0,14,0,0,"In a well-lit forest (west of a wooden bridge)":rem room 13
2006 DATA 0,15,13,0,0,0,"On the bridge":rem room 14
2007 DATA 14,0,16,0,0,0,"Well-worn path (heading east)":rem room 15
2008 DATA 0,0,17,15,0,0,"Well-worn path (west of cabin)":rem room 16
2009 DATA 0,0,18,16,0,0,"Inside a small cabin":rem room 17
2010 DATA 0,0,0,17,0,0,"Inside the toolshed":rem room 18
2011 DATA 21,11,20,0,0,0,"Entrance to cemetary":rem room 19
2012 DATA 22,23,25,19,0,0,"At a small grave (near a statue)":rem room 20
2013 DATA 0,19,22,0,0,0,"At the western end of a small cemetary":rem room 21
2014 DATA 0,20,26,21,0,0,"End of cemetary (near an iron gate)":rem room 22
2015 DATA 20,0,24,0,0,0,"By a stone statue (overlooking a small grave)":rem room 23
2016 DATA 0,29,0,23,0,0,"Eastern edge of cemetary (looking out towards the forest)":rem room 24
2017 DATA 0,0,27,20,0,0,"Edge of cemetary (overlooking a small garden)":rem room 25
2018 DATA 0,0,0,22,0,0,"End of cemetary":rem room 26
2019 DATA 28,0,0,25,0,0,"Walking in a beautiful garden":rem room 27
2020 DATA 0,27,0,0,0,0,"By a large oak tree":rem room 28
2021 DATA 24,0,0,0,0,0,"By a small pond (mossy green)":rem room 29
2025 rem extended room descriptions
2026 OPEN "frefry.dat" for input as #1
2027 for x=8 to 29:line input #1,DE$(x):next
2028 close #1
2029 return
2099 rem game map
2100 color 11,1:?"             1                                                            "
2101 ?"             house                                                        "
2102 ?"             |                                                            "
2103 ?"             2                                                            "
2104 ?"             road---3 road                                                "
2105 ?"             |                                                            "
2106 ?"             | up a tree (#7)                                 30 up tree  "
2107 ?"             |/                                                     /     "
2108 ?"     8 road--5 orchard    cemetary 21--cemetary 22-gate 26   Tree 28      "
2109 ?"     |                         |          |                    |          "
2110 ?"     9 forest             cemetary 19--grave 20----gate 25--Garden 27     "
2111 ?"          |                    |          |                               "
2112 ?"12-forest-10 forest--clearing 11       statue 23---gate 24                "
2113 ?"          |                                          |                    "
2114 ?"14 bridge-13 forest                                Pond 29                "
2115 ?"   |                                                                      "
2116 ?"15 path---16 path--cabin 17--toolshed 18                                  "
2117 ?"                                                                          "
2118 ?"             (eat fry)                                                    "
2119 ?"             -------------------                                          "
2120 ?"                                                                          "
2121 ?"             6 pool                                                       "
2122 ?"             |                                                            "
2123 ?"             3 cave                                                       "
2124 ?"                                                                          "
2125 ?"             -------------------                                          "
2126 color 15,1:?"Alas, the rest appears to be torn...":goto 70