Home » Archimedes archive » Archimedes World » AW-1994-10-Disc1.adf » Disk1Oct94 » !AWOct94/Goodies/Adventure/!Gorm/!RunImage

!AWOct94/Goodies/Adventure/!Gorm/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1994-10-Disc1.adf » Disk1Oct94
Filename: !AWOct94/Goodies/Adventure/!Gorm/!RunImage
Read OK:
File size: 2C7EE bytes
Load address: 0000
Exec address: 0000
File contents
   10REM >!RunImage
   20REM for !Gorm
   30Version$="1.40 (24th June 94)"
   40REM Chris Allen
   50REM LEN Archimedes World
   60
   70REM     "Thou nosey users with peering eyes,
   80REM      Readers of this file, I despise,
   90REM      I'll create a curse of fear and dread,
  100REM      Hackers, I do not like," Chris said.
  110REM     "Let chaos free in the OS,
  120REM      I shall form a fearsome mess,
  130REM      From variables to CMOS RAM,
  140REM      It shall affect any man,
  150REM      Who dares to read my Gorm files,
  160REM      Be warned, foolish juveniles."
  170
  180open%=0:oldtime%=TIME:active%=-1:swear%=0:computer%=0:notimes%=0:oldword$="":roomno%=1:sleep%=0:sleepoldtime%=TIME:currentpic$="1":totalrooms%=312:altered%=0:written%=0:picsize%=464000:heaperror%=0:fonterror%=0:crier%=1
  190noz%=4:zone%=1:nifok%=0:savegt%=1:whiz%=0:pamp%=0:dug%=0:mould%=0:fire%=1:firetime%=TIME:suitcase%=0:mapsize%=105:mapwidth%=15:shaded%=0:drugged%=0:poltime%=TIME:trapped%=0:trappedtime%=TIME:injure%=0:nbtm%=0
  200renw%=0:dugged%=0:ill%=0:medium1%=0:medium2%=0:payed%=0
  210DIM police%(3), poldir%(3), buffer% 64, icon$(4)
  220police%(1)=107:poldir%(1)=4:police%(2)=143:poldir%(2)=4:police%(3)=206:poldir%(3)=1
  230DIM wimp% 5000, advent% 15, sprite% 42000, menu% 500, info% 200, greet% 60, saver% 400, user% 502, quest$(11), inter% 600, posi% 200, messge% 250
  240DIM default1$(totalrooms%,10), default2$(6), default3%(7)
  250DIM rooms$(totalrooms%,9), exits(totalrooms%,10), objects$(totalrooms%,10), owns$(10), abbrev$(totalrooms%,2), mpdt%(noz%,mapsize%), mapyn%(totalrooms%), rentry$(totalrooms%), then%(10), ec$(14)
  260sprite%!0=42000:sprite%!8=16
  270SYS "OS_SpriteOp",&109,sprite%
  280SYS "OS_SpriteOp",&10A,sprite%,"<Gorm$Dir>.!Sprites"
  290SYS &400C0,200,&4B534154,"Gorm" TO ,apphan%
  300templates$="<Gorm$Dir>.Templates"
  310SYS "OS_ReadVarVal","Gorm$3D",buffer%,256 TO,,length%:buffer%?length%=13
  320IF $buffer%="Yes" templates$="<Gorm$Dir>.Template3D"
  330OSCLI"Unset Gorm$3D"
  340SYS &400D9,,templates$
  350wimp%!64=sprite%
  360SYS &400DB,,wimp%,greet%,greet%+60,-1,"greeting",0
  370SYS &400C1,,wimp% TO greethan%
  380SYS "XOS_ReadModeVariable",MODE,11 TO ,,width%
  390SYS "XOS_ReadModeVariable",MODE,12 TO ,,height%
  400SYS "XOS_ReadModeVariable",MODE,4 TO ,,xwidth%
  410SYS "XOS_ReadModeVariable",MODE,5 TO ,,ywidth%
  420width%=width%*xwidth%:height%=height%*ywidth%
  430wimp%!0=greethan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!4=width%-427:wimp%!8=height%-286:wimp%!12=width%+427:wimp%!16=height%+286:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
  440ONERRORPROCerr(ERR,REPORT$)
  450REPEAT
  460SYS "Wimp_Poll",,wimp% TO r%
  470CASE r% OF
  480WHEN 0 : nbtm%=0:IF heaperror%=1 heaperror%=0:PROCcontcontload ELSE IF fonterror%=1 fonterror%=0:PROCcontload ELSE CASE active% OF
  490  WHEN -1 : active%=0:PROCcontinueload
  500  WHEN -2 : SYS &400DD,apphan%
  510  OTHERWISE : IF open%=1 AND swear%<>5 AND TIME-12000>oldtime% oldtime%=TIME:IF nifok%=0 AND renw%=0 PROCwait
  520IF TIME-1000>poltime% AND zone%=3 AND nifok%=0 PROCpolicemaze
  530IF TIME-1000>poltime% AND zone%=2 AND nifok%=0 PROCpolice
  540IF TIME-6000>sleepoldtime% AND sleep%=1 sleep%=0:PROCadd("You wake up...")
  550IF TIME-200>firetime% AND fire%=2 PROCfire
  560IF TIME-250>trappedtime% AND trapped%=1 trapped%=0:exits(110,4)=0:exits(111,2)=0:wimp%!0=maphan%:PROCredrawmap:PROCadd("You hear a door slam.")
  570ENDCASE
  580WHEN 1 : IF wimp%!0=adventhan% PROCredraw ELSE IF wimp%!0=picciehan% PROCredrawpics ELSE IF wimp%!0=maphan% PROCredrawmap ELSE SYS "Wimp_RedrawWindow",,wimp%
  590WHEN 2 : SYS &400C5,,wimp%:IF wimp%!0=adventhan% PROCattach
  600WHEN 3 : SYS &400C6,,wimp%:IF wimp%!0=adventhan% open%=0:wimp%!0=userhan%:SYS"Wimp_CloseWindow",,wimp%:wimp%!0=posihan%:SYS"Wimp_CloseWindow",,wimp%
  610WHEN 6 : PROCclick
  620WHEN 7 : PROCdrag_complete
  630WHEN 8 : IF wimp%!24=13 PROCkey ELSE SYS"Wimp_ProcessKey",wimp%!24
  640WHEN 9 : PROCmenuselect
  650WHEN 17,18 : CASE wimp%!16 OF
  660  WHEN 0 : PROCquityn
  670  WHEN 2 : PROCsave
  680  WHEN 3,5 : ldfilenm$=FNxtractfln:PROCfileload
  690  WHEN &502 : PROCinteractive
  700  WHEN &400C1 : IF myfont%<>-1 SYS "Font_FindFont",,"Trinity.Medium",12*16,12*16 TO myfont%
  710                SYS retcol%,myfont%,&FFFFFF00,&00000000,14 TO ,back1%,fore1%,offset1%
  720                SYS retcol%,myfont%,&FFFFFF00,&0000FF00,0 TO ,back2%,fore2%,offset2%
  730                PROCdecideshaded
  740  WHEN &400CC : SYS "Wimp_GetPointerInfo",,wimp%:IF wimp%!12=adventhan% wimp%!0=userhan%:SYS"Wimp_CloseWindow",,wimp%:wimp%!0=posihan%:SYS"Wimp_CloseWindow",,wimp%
  750ENDCASE
  760ENDCASE
  770UNTIL FALSE
  780
  790DEFFNxtractfln
  800name$="":n=44:WHILE ((wimp%?n)>=32) AND (n<256):name$+=CHR$(wimp%?n):n+=1:ENDWHILE
  810=name$
  820
  830DEFPROCquityn
  840IF altered%=0 SYS &400DD,apphan%
  850IF altered%=1 PROCwarning(1,"","Quitting the program will lose","your current game.","")
  860ENDPROC
  870
  880DEFPROCcontinueaction
  890CASE wherefrom% OF
  900WHEN 1 : SYS &400DD,apphan%
  910WHEN 2 : yesno%=2:PROCloaditup
  920WHEN 3 : PROCrestart
  930ENDCASE
  940ENDPROC
  950
  960DEFPROCloaditup
  970A%=OPENIN(ldfilenm$)
  980wasteoftime$=LEFT$(GET$#A%,16)
  990IF wasteoftime$<>"!Gorm Saved Game" PROCwarning(4,"","This file is corrupt or is not","a real Gorm saved game.",""):CLOSE#A%:ENDPROC
 1000swear%=VAL(GET$#A%)
 1010computer%=VAL(GET$#A%)
 1020notimes%=VAL(GET$#A%)
 1030oldword$=GET$#A%
 1040roomno%=VAL(GET$#A%)
 1050sleep%=VAL(GET$#A%)
 1060written%=VAL(GET$#A%)
 1070font%=VAL(GET$#A%)
 1080IF font%=1 AND myfont%=-1 font%=0
 1090nifok%=VAL(GET$#A%)
 1100exits(2,2)=VAL(GET$#A%)
 1110exits(72,3)=VAL(GET$#A%)
 1120exits(85,2)=VAL(GET$#A%)
 1130exits(110,4)=VAL(GET$#A%)
 1140exits(111,2)=VAL(GET$#A%)
 1150exits(179,1)=VAL(GET$#A%)
 1160exits(310,2)=VAL(GET$#A%)
 1170ill%=VAL(GET$#A%)
 1180medium1%=VAL(GET$#A%)
 1190medium2%=VAL(GET$#A%)
 1200payed%=VAL(GET$#A%)
 1210renw%=VAL(GET$#A%)
 1220crier%=VAL(GET$#A%)
 1230mould%=VAL(GET$#A%)
 1240dug%=VAL(GET$#A%)
 1250pamp%=VAL(GET$#A%)
 1260whiz%=VAL(GET$#A%)
 1270fire%=VAL(GET$#A%)
 1280suitcase%=VAL(GET$#A%)
 1290injure%=VAL(GET$#A%)
 1300zone%=VAL(GET$#A%)
 1310dugged%=VAL(GET$#A%)
 1320rooms$(78,2)=GET$#A%
 1330rooms$(78,3)=GET$#A%
 1340rooms$(78,4)=GET$#A%
 1350rooms$(85,5)=GET$#A%
 1360abbrev$(78,1)=GET$#A%
 1370rentry$(78)=GET$#A%
 1380FOR a%=1 TO 3
 1390police%(a%)=VAL(GET$#A%)
 1400poldir%(a%)=VAL(GET$#A%)
 1410NEXT a%
 1420drugged%=VAL(GET$#A%)
 1430FOR a%=1 TO totalrooms%
 1440mapyn%(a%)=VAL(GET$#A%)
 1450NEXT a%
 1460FOR a%=1 TO 10
 1470owns$(a%)=GET$#A%
 1480NEXT a%
 1490FOR a%=1 TO 11
 1500quest$(a%)=GET$#A%
 1510NEXT a%
 1520FOR a%=1 TO totalrooms%
 1530FOR b%=1 TO 10
 1540objects$(a%,b%)=GET$#A%
 1550NEXT b%
 1560NEXT a%
 1570CLOSE#A%
 1580sleepoldtime%=TIME
 1590poltime%=TIME
 1600altered%=0
 1610IF yesno%=2 wimp%!0=adventhan%:PROCredraw
 1620PROCdecidepics:PROCdecidetitle:PROCdecidepos
 1630wimp%!0=maphan%:PROCredrawmap
 1640wimp%!0=adventhan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 1650PROCattach
 1660PROCseticon(k%,1,ldfilenm$)
 1670ENDPROC
 1680
 1690DEFPROCcontinueload
 1700myfont%=-1
 1710fonterror%=1:SYS "Font_FindFont",,"Trinity.Medium",12*16,12*16 TO myfont%:fonterror%=0
 1720SYS "XOS_SWINumberFromString",,"Font_SetFont" TO ft%
 1730SYS "XOS_SWINumberFromString",,"Font_SetFontColours" TO ftcol%
 1740SYS "XOS_SWINumberFromString",,"Font_Paint" TO ftpt%
 1750SYS "ColourTrans_ReturnFontColours",myfont%,&FFFFFF00,&00000000,14 TO ,back1%,fore1%,offset1%
 1760SYS "ColourTrans_ReturnFontColours",myfont%,&FFFFFF00,&0000FF00,0 TO ,back2%,fore2%,offset2%
 1770PROCcontload
 1780ENDPROC
 1790
 1800DEFPROCcontload
 1810SYS "XOS_SWINumberFromString",,"ColourTrans_SetGCOL" TO setgcol%
 1820SYS "XOS_SWINumberFromString",,"ColourTrans_ReturnFontColours" TO retcol%
 1830SYS &400DB,,wimp%,advent%,advent%+15,-1,"adventure",0
 1840SYS &400C1,,wimp% TO adventhan%
 1850SYS &400DB,,wimp%,info%,info%+200,-1,"info",0
 1860SYS &400C1,,wimp% TO inhan%
 1870SYS &400DB,,wimp%,saver%,saver%+400,-1,"savebox",0
 1880SYS &400C1,,wimp% TO k%
 1890SYS &400DB,,wimp%,user%,user%+502,-1,"user",0
 1900SYS &400C1,,wimp% TO userhan%
 1910SYS &400DB,,wimp%,,,-1,"piccies",0
 1920SYS &400C1,,wimp% TO picciehan%
 1930SYS &400DB,,wimp%,,,-1,"map",0
 1940SYS &400C1,,wimp% TO maphan%
 1950SYS &400DB,,wimp%,posi%,posi%+200,-1,"position",0
 1960SYS &400C1,,wimp% TO posihan%
 1970SYS &400DB,,wimp%,messge%,messge%+250,-1,"warning",0
 1980SYS &400C1,,wimp% TO warnhan%
 1990SYS &400DA
 2000FOR a%=1 TO totalrooms%
 2010mapyn%(a%)=0
 2020NEXT a%
 2030mapyn%(1)=1
 2040heaperror%=1
 2050SYS "OS_ReadMemMapInfo" TO heapsize%
 2060pagesize%=heapsize%
 2070SYS "Wimp_SlotSize",-1,-1 TO slotsize%
 2080heaploct%=slotsize%+&8000
 2090SYS "Wimp_SlotSize",heaploct%+heapsize%-&8000,-1
 2100SYS "OS_Heap",0,heaploct%,,heapsize%
 2110SYS "XOS_Heap",2,heaploct%,,picsize% TO ,,piccies%
 2120  IF ((heapsize%+picsize%) MOD pagesize%) <> 0 v%=heapsize%+picsize%+(pagesize%-((heapsize%+picsize%) MOD pagesize%)) ELSE v%=heapsize%+picsize%
 2130  SYS "XWimp_SlotSize",heaploct%+v%-&8000,-1
 2140  SYS "OS_Heap",5,heaploct%,,v%-heapsize%:heapsize%=v%
 2150  SYS "XOS_Heap",2,heaploct%,,picsize% TO ,,piccies%:picyn%=1:piccies%!0=picsize%:piccies%!8=16:SYS "OS_SpriteOp",&109,piccies%:SYS "OS_SpriteOp",&10A,piccies%,"<Gorm$Dir>.Code"
 2160heaperror%=0
 2170PROCcontcontload
 2180ENDPROC
 2190
 2200DEFPROCcontcontload
 2210mynum%=1.26+0.75+0.99
 2220stng$=FNuntangle("lihsuvt",mynum%):strng$=FNuntangle("Dcem""htqo""vjg""fgcf#",mynum%-1)
 2230FOR a=1 TO 14
 2240READ ec$(a)
 2250ec$(a)=FNuntangle(ec$(a),mynum%)
 2260NEXT a
 2270PROCiconbar
 2280PROCloaddata
 2290FOR a%=1 TO noz%
 2300FOR b%=1 TO mapsize%
 2310READ mpdt%(a%,b%)
 2320NEXT b%
 2330NEXT a%
 2340PROCloadoptions
 2350PROCdecidetitle:PROCdecidepos
 2360PROCdecideshaded
 2370PROCadd("Welcome to your quest brave adventurer."):i$="look":PROClook:temp%=0
 2380PROCseticon(inhan%,4,Version$)
 2390wimp%!0=greethan%:SYS"Wimp_DeleteWindow",,wimp%
 2400SYS "OS_GetEnv" TO file$
 2410IF INSTR(file$,"-quit") THEN
 2420I%=INSTR(file$,"""")
 2430I%=INSTR(file$,"""",I%+1)
 2440REPEAT
 2450I%+=1
 2460UNTIL MID$(file$,I%,1)<>" "
 2470file$=MID$(file$,I%)
 2480IF file$<>"" PROCloader(file$,1)
 2490ENDPROC
 2500
 2510DEFPROCdecidetitle
 2520titler$="Map -"
 2530CASE zone% OF
 2540WHEN 1,4 : titler$+="Town"
 2550WHEN 2 : titler$+="Jail"
 2560WHEN 3 : titler$+="Maze"
 2570ENDCASE
 2580ENDPROC
 2590
 2600DEFPROCtoggleicon(wimp%!0,wimp%!4)
 2610wimp%!8=&200000:wimp%!12=0
 2620SYS "Wimp_SetIconState",,wimp%
 2630ENDPROC
 2640
 2650DEFPROCdecideshaded
 2660SYS "XOS_ReadModeVariable",MODE,3 TO ,,cols%
 2670IF cols%<>15 AND picyn%=1 picyn%=2
 2680IF cols%=15 AND picyn%=2 picyn%=1
 2690IF shaded%=0 AND picyn%=2 THEN
 2700shaded%=1
 2710wimp%!0=userhan%:wimp%!4=11:wimp%!12=1<<22:wimp%!8=1<<22
 2720SYS"Wimp_SetIconState",,wimp%
 2730ENDIF
 2740IF shaded%=1 AND picyn%=1 THEN
 2750shaded%=0
 2760wimp%!0=userhan%:wimp%!4=11:wimp%!12=1<<22:wimp%!8=0
 2770SYS"Wimp_SetIconState",,wimp%
 2780ENDIF
 2790IF shaded%=0 AND picyn%=0 THEN
 2800shaded%=1
 2810wimp%!0=userhan%:wimp%!4=11:wimp%!12=1<<22:wimp%!8=1<<22
 2820SYS"Wimp_SetIconState",,wimp%
 2830ENDIF
 2840ENDPROC
 2850
 2860DEFPROCcheckdrag
 2870SYS "XOS_SWINumberFromString",,"DragASprite_Start" TO dragyn%;flag
 2880IF (flag AND 1) dragyn%=-1
 2890IF dragyn%<>-1 THEN
 2900SYS "OS_Byte",161,28 TO ,,cmos
 2910IF (cmos AND 2)=0 dragyn%=-1
 2920ENDIF
 2930ENDPROC
 2940
 2950DEFPROCdecidepos
 2960PROCdecidetitle
 2970title$=rentry$(roomno%)+" ("
 2980year$="1794"
 2990CASE zone% OF
 3000WHEN 1 : title$+="Town"
 3010WHEN 2 : title$+="Jail"
 3020WHEN 3 : title$+="Maze"
 3030WHEN 4 : title$+="Town":year$="1994"
 3040ENDCASE
 3050title$+=")."
 3060PROCseticon(posihan%,0,title$)
 3070PROCseticon(posihan%,1,year$)
 3080ENDPROC
 3090
 3100DEFPROCinteractive
 3110t$=""
 3120inter%=wimp%
 3130inter%!12=wimp%!8
 3140inter%!16=&503
 3150CASE inter%!32 OF
 3160WHEN -2 : t$="This is the Gorm application.|MClick SELECT to display the adventure window.|MClick ADJUST to display the map"
 3170  SYS "XOS_ReadModeVariable",MODE,3 TO ,,cols%
 3180  IF cols%<>15 AND picyn%=1 picyn%=2
 3190  IF cols%=15 AND picyn%=2 picyn%=1
 3200  IF picyn%=1 t$+=" and picture windows." ELSE t$+=" window."
 3210WHEN greethan% : t$="!Gorm, by Chris Allen, is loading.|MPlease be patient..."
 3220WHEN adventhan% : t$="The adventure window.|MThis window shows the text adventure at the moment."
 3230WHEN posihan% : t$="The position panel.|MThis panel tells you where you are and what year it is."
 3240WHEN picciehan% : t$="The picture window.|MThis shows the picture that is most relevant to your position in the game."
 3250WHEN inhan% : t$="All the extremely interesting stuff..."
 3260WHEN userhan% : t$="The input panel.|MThis is where you enter the orders.":CASE inter%!36 OF
 3270  WHEN 0 : t$+="|MClick SELECT to go north."
 3280  WHEN 1 : t$+="|MEnter the orders into this icon, then press RETURN or click on OK.|M(Ctrl+U clears this icon when the caret is in it)."
 3290  WHEN 2 : t$+="|MClick SELECT to process the instruction, click ADJUST to process the instruction without clearing the writable icon."
 3300  WHEN 3 : t$+="|MClick SELECT to go east."
 3310  WHEN 4 : t$+="|MClick SELECT to go south."
 3320  WHEN 5 : t$+="|MClick SELECT to go west."
 3330  WHEN 6 : t$+="|MClick SELECT to go up."
 3340  WHEN 7 : t$+="|MClick SELECT to go down."
 3350  WHEN 8 : t$+="|MClick SELECT to look."
 3360  WHEN 9 : t$+="|MClick SELECT for an inventory."
 3370  WHEN 10 : t$+="|MClick SELECT for the possible exits."
 3380  WHEN 11 : t$+="|MClick SELECT to view the pictures."
 3390  WHEN 12 : t$+="|MClick SELECT to view the map."
 3400  WHEN 13 : t$+="|MClick SELECT to save the game, if the game has not been saved before the save window will appear.|MClick ADJUST to bring up the save window regardless."
 3410ENDCASE
 3420WHEN k% : t$="The save box.|M":CASE inter%!36 OF
 3430WHEN 0 : t$+="Drag this icon to the directory in which you want to save the file."
 3440WHEN 1 : t$+="Enter the filename for the file into this icon."
 3450WHEN 2 : t$+="Click here to save the file with the current filename. If it is not a full pathname, you must drag the icon to a directory first."
 3460WHEN 3 : t$+="Click SELECT to save the Gorm adventure."
 3470WHEN 4 : t$+="Click SELECT to save the text inside the adventure window."
 3480OTHERWISE : t$+="Save the ":CASE savegt% OF
 3490WHEN 1 : t$+="game by dragging the icon to a directory viewer in the usual RISC OS fashion."
 3500WHEN 2 : t$+="text by dragging the icon to a directory viewer in the usual RISC OS fashion."
 3510ENDCASE
 3520ENDCASE
 3530WHEN maphan% : t$="The map window.|MThis window maps a plan view of all the places you have visited.|MUp and down arrows mean there are exits up and down and your current position is marked by a red spot."
 3540IF zone%=2 OR zone%=3 t$+=" Yellow spots are policemen."
 3550WHEN warnhan% : t$="The message window.":CASE inter%!36 OF
 3560WHEN 5 : t$+="|MClick SELECT to remove the window."
 3570WHEN 6 : t$+="|MClick SELECT to continue."
 3580ENDCASE
 3590ENDCASE
 3600t$+=CHR$(0)
 3610$(inter%+20)=t$
 3620inter%!0=(((21+LEN(t$))DIV4)*4)+4
 3630SYS "Wimp_SendMessage",17,inter%
 3640ENDPROC
 3650
 3660DEFPROCloaddata
 3670SYS "Hourglass_On"
 3680A%=OPENIN("<Gorm$Dir>.Data")
 3690FOR a=1 TO totalrooms%
 3700spno%=SQR(VAL(GET$#A%)-a)
 3710FOR b=1 TO 9
 3720rooms$(a,b)=FNuntangle(GET$#A%,spno%)
 3730NEXT b
 3740abbrev$(a,1)=FNuntangle(GET$#A%,spno%)
 3750abbrev$(a,2)=FNuntangle(GET$#A%,spno%)
 3760rentry$(a)=FNuntangle(GET$#A%,spno%)
 3770FOR b=1 TO 10
 3780objects$(a,b)=FNuntangle(GET$#A%,spno%)
 3790NEXT b
 3800FOR b=1 TO 10
 3810exits(a,b)=VAL(GET$#A%)
 3820NEXT b
 3830SYS "Hourglass_Percentage",(a/totalrooms%)*100
 3840NEXT a
 3850CLOSE#A%
 3860SYS "Hourglass_Off"
 3870FOR a=1 TO totalrooms%
 3880FOR b=1 TO 10
 3890default1$(a,b)=objects$(a,b)
 3900NEXT b
 3910NEXT a
 3920default2$(1)=rooms$(78,2):default2$(2)=rooms$(78,3)
 3930default2$(3)=rooms$(78,4):default2$(4)=rooms$(85,5)
 3940default2$(5)=abbrev$(78,1):default2$(6)=rentry$(78)
 3950default3%(1)=exits(2,2):default3%(2)=exits(72,3)
 3960default3%(3)=exits(85,2):default3%(4)=exits(110,4)
 3970default3%(5)=exits(111,2):default3%(6)=exits(179,1)
 3980default3%(7)=exits(310,2)
 3990ENDPROC
 4000
 4010DEFPROCwarning(from%,icon$(1),icon$(2),icon$(3),icon$(4))
 4020wherefrom%=from%
 4030FOR a=1 TO 4:PROCseticon(warnhan%,a,icon$(a)):NEXT a
 4040SYS "XOS_ReadModeVariable",MODE,11 TO ,,width%
 4050SYS "XOS_ReadModeVariable",MODE,12 TO ,,height%
 4060SYS "XOS_ReadModeVariable",MODE,4 TO ,,xwidth%
 4070SYS "XOS_ReadModeVariable",MODE,5 TO ,,ywidth%
 4080width%=width%*xwidth%:height%=height%*ywidth%
 4090width%-=347:height%+=138
 4100SYS "Wimp_CreateMenu",,warnhan%,width%,height%
 4110ENDPROC
 4120
 4130DEFPROCfileload
 4140IF wimp%!40<>&179 THEN
 4150IF wimp%!16<>5 PROCwarning(4,"","This file is not a Gorm saved game,","therefore I cannot load it.","")
 4160ENDPROC
 4170ENDIF
 4180wimp%!12=wimp%!8:wimp%!16=4
 4190SYS "Wimp_SendMessage",17,wimp%,wimp%!4
 4200PROCloader(ldfilenm$+CHR$(0),2)
 4210ENDPROC
 4220
 4230DEFPROCloadoptions
 4240A%=OPENIN("<Gorm$Dir>.Options")
 4250posiyn%=VAL(GET$#A%)
 4260font%=VAL(GET$#A%)
 4270CLOSE#A%
 4280IF myfont%=-1 font%=0
 4290ENDPROC
 4300
 4310DEFPROCsaveoptions
 4320A%=OPENOUT("<Gorm$Dir>.Options")
 4330BPUT#A%,STR$(posiyn%)
 4340BPUT#A%,STR$(font%)
 4350CLOSE#A%
 4360ENDPROC
 4370
 4380DEFPROCloader(ldfilenm$,yesno%)
 4390IF altered%=0 PROCloaditup
 4400IF yesno%=2 AND altered%=1 PROCwarning(2,"","Loading this saved game will","lose the current one.","")
 4410ENDPROC
 4420
 4430DEFPROCattach
 4440SYS"Wimp_GetWindowState",,wimp%:wimp%!0=userhan%:wimp%!16=wimp%!8-4:wimp%!8=wimp%!16-128:wimp%!12=wimp%!4+930:SYS"Wimp_OpenWindow",,wimp%
 4450IF posiyn%=1 wimp%!0=adventhan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!0=posihan%:wimp%!8=wimp%!16-44:SYS"Wimp_OpenWindow",,wimp%
 4460ENDPROC
 4470
 4480DEFPROCredraw
 4490wimp%!0=adventhan%:SYS "Wimp_RedrawWindow",,wimp% TO redraw%
 4500IF font%=1 SYS ft%,myfont%
 4510WHILE redraw%
 4520drawx=(wimp%!4-wimp%!20)+2
 4530drawy=wimp%!16-wimp%!24-17
 4540IF font%=1 drawy-=18
 4550IF font%=1 THEN
 4560FOR f=1 TO 11
 4570MOVE drawx+(16*LEN(quest$(f))),drawy
 4580IF LEFT$(quest$(f),1)="@" SYS ftcol%,myfont%,back2%,fore2%,offset2%:SYS ftpt%,,MID$(quest$(f),2,76),17,drawx,drawy ELSE SYS ftcol%,myfont%,back1%,fore1%,offset1%:SYS ftpt%,,quest$(f),17,drawx,drawy
 4590drawy-=37
 4600NEXT f
 4610ENDIF
 4620IF font%=0 THEN
 4630FOR f=1 TO 11
 4640MOVE drawx,drawy
 4650IF LEFT$(quest$(f),1)="@" SYS setgcol%,&0000FF00,,0:PRINT MID$(quest$(f),2,76) ELSE SYS setgcol%,&00000000,,0:PRINT quest$(f)
 4660drawy-=36
 4670NEXT f
 4680ENDIF
 4690SYS "Wimp_GetRectangle",,wimp% TO redraw%
 4700ENDWHILE
 4710ENDPROC
 4720
 4730DEFPROCredrawpics
 4740SYS "XOS_ReadModeVariable",MODE,3 TO ,,cols%
 4750IF cols%<>15 AND picyn%=1 picyn%=2
 4760IF picyn%<>1 wimp%!0=picciehan%:SYS "Wimp_CloseWindow",,wimp%:ENDPROC
 4770SYS "Wimp_RedrawWindow",,wimp% TO redraw%
 4780WHILE redraw%
 4790CASE nifok% OF
 4800WHEN 1 : SYS setgcol%,&00000000,,0:RECTANGLEFILL wimp%!4-wimp%!20,wimp%!16-wimp%!24-424,1236,424
 4810OTHERWISE : MOVE wimp%!4-wimp%!20,wimp%!16-wimp%!24-424:SYS "OS_SpriteOp",&11C,piccies%,currentpic$
 4820ENDCASE
 4830SYS "Wimp_GetRectangle",,wimp% TO redraw%
 4840ENDWHILE
 4850ENDPROC
 4860
 4870DEFPROCredrawmap
 4880SYS "Wimp_RedrawWindow",,wimp% TO redraw%
 4890VDU5
 4900WHILE redraw%
 4910drawx=wimp%!4-wimp%!20+5:origx=drawx
 4920drawy=wimp%!16-wimp%!24-5
 4930wdth%=0
 4940MOVE drawx,drawy:PRINT titler$:drawy-=32
 4950SYS setgcol%,&00000000,,0:LINE drawx,drawy,drawx+1600,drawy:drawy-=15
 4960FOR f=1 TO mapsize%
 4970SYS setgcol%,&00000000,,0
 4980md=mpdt%(zone%,f)
 4990IF md<>0 AND mapyn%(md)=1 THEN
 5000IF exits(md,1)>0 LINE drawx,drawy,drawx+33,drawy:LINE drawx+66,drawy,drawx+100,drawy ELSE LINE drawx,drawy,drawx+100,drawy
 5010IF exits(md,2)>0 LINE drawx+100,drawy,drawx+100,drawy-33:LINE drawx+100,drawy-66,drawx+100,drawy-100 ELSE LINE drawx+100,drawy,drawx+100,drawy-100
 5020IF exits(md,3)>0 LINE drawx,drawy-100,drawx+33,drawy-100:LINE drawx+66,drawy-100,drawx+100,drawy-100 ELSE LINE drawx,drawy-100,drawx+100,drawy-100
 5030IF exits(md,4)>0 LINE drawx,drawy,drawx,drawy-33:LINE drawx,drawy-66,drawx,drawy-100 ELSE LINE drawx,drawy,drawx,drawy-100
 5040IF exits(md,9)>0 LINE drawx+80,drawy-50,drawx+80,drawy-85:LINE drawx+80,drawy-50,drawx+74,drawy-60:LINE drawx+80,drawy-50,drawx+86,drawy-60
 5050IF exits(md,10)>0 LINE drawx+80,drawy-50,drawx+80,drawy-85:LINE drawx+80,drawy-85,drawx+74,drawy-75:LINE drawx+80,drawy-85,drawx+86,drawy-75
 5060MOVE drawx+10,drawy-8:PRINT abbrev$(md,1)
 5070MOVE drawx+10,drawy-40:PRINT abbrev$(md,2)
 5080IF roomno%=md SYS setgcol%,&0000FF00,,0:CIRCLEFILLdrawx+20,drawy-84,7
 5090FOR a%=1 TO 3
 5100IF md=police%(a%) SYS setgcol%,&00FFFF00:CIRCLEFILLdrawx+50,drawy-84,7
 5110NEXT a%
 5120ENDIF
 5130wdth%+=1
 5140IF wdth%=mapwidth% wdth%=0:drawx=origx-100:drawy-=100
 5150drawx+=100
 5160NEXT f
 5170SYS "Wimp_GetRectangle",,wimp% TO redraw%
 5180ENDWHILE
 5190ENDPROC
 5200
 5210DEFPROCdecidepics
 5220currentpic$=STR$(zone%)
 5230CASE roomno% OF
 5240WHEN 71,220,311 : currentpic$="5"
 5250WHEN 285,286,287,288,289,290,291,292 : currentpic$="7"
 5260WHEN 36,37,38,41,84,279,293,294,295,296 : currentpic$="8"
 5270WHEN 72,78,79,80 : currentpic$="14"
 5280WHEN 49,50,51,52,63,64 : currentpic$="10"
 5290WHEN 262,263,264,265,266 : currentpic$="11"
 5300WHEN 310 : currentpic$="12"
 5310WHEN 226,227,228 : currentpic$="13"
 5320ENDCASE
 5330IF roomno%=78 AND fire%>0 currentpic$="9"
 5340IF renw%=1 currentpic$="6"
 5350wimp%!0=picciehan%:PROCredrawpics
 5360ENDPROC
 5370
 5380DEFFNuntangle(myline$,myrandno)
 5390theline$=""
 5400IF myline$="" =theline$
 5410FOR lncnt=1 TO LEN(myline$)
 5420theline$+=CHR$(ASC(MID$(myline$,lncnt,1))-myrandno)
 5430NEXT lncnt
 5440=theline$
 5450
 5460DEFPROCkey
 5470IF wimp%!0=userhan% i$=FNreadinput:PROCadd("@"+i$):PROCrespond:IF i$<>"quit please" PROCseticon(userhan%,1,""):SYS"Wimp_SetCaretPosition",userhan%,1,,,-1
 5480IF wimp%!0=k% AND wimp%!4=1 PROCgetfilename ELSE ENDPROC
 5490IF INSTR(filena$,".")=0 PROCerr(1,"To save, drag the icon to a directory viewer."):ENDPROC
 5500filename$=filena$
 5510PROCdothingy(1)
 5520ENDPROC
 5530
 5540DEFPROCok(button%)
 5550IF wimp%!8<>1 AND wimp%!8<>4 ENDPROC
 5560PROCgetfilename
 5570IF INSTR(filena$,".")=0 PROCerr(1,"To save, drag the icon to a directory viewer."):ENDPROC
 5580filename$=filena$
 5590IF button%=1 button%=0
 5600IF button%=4 button%=1
 5610PROCdothingy(button%)
 5620ENDPROC
 5630
 5640DEFPROCdrag_complete
 5650IF dragyn%<>-1 SYS "DragASprite_Stop"
 5660SYS "Wimp_GetPointerInfo",,wimp%
 5670TheWindow%=wimp%!12:TheIcon%=wimp%!16:x=wimp%!0:y=wimp%!4
 5680wimp%!0=64:wimp%!12=0:wimp%!16=1:wimp%!20=TheWindow%:wimp%!24=TheIcon%
 5690wimp%!28=x:wimp%!32=y
 5700IF savegt%=1 wimp%!36=5500 ELSE wimp%!36=1200
 5710IF savegt%=1 wimp%!40=&179 ELSE wimp%!40=&FFF
 5720$(wimp%+44)=filena$
 5730SYS "Wimp_SendMessage",17,wimp%,TheWindow%,TheIcon%
 5740ENDPROC
 5750
 5760DEFPROCsave
 5770x=wimp%!0:y=wimp%!4:z=wimp%!8
 5780filename$=FNconvert(wimp%+44)
 5790wimp%!0=x:wimp%!12=z:wimp%!16=3
 5800SYS "Wimp_SendMessage",18,wimp%,y
 5810filename$=FNfixstring(filename$+CHR$(0))
 5820PROCdothingy(1)
 5830ENDPROC
 5840
 5850DEFFNconvert(no%)
 5860doofer$=""
 5870WHILE ?no%
 5880doofer$+=CHR$?no%
 5890no%+=1
 5900ENDWHILE
 5910=doofer$
 5920
 5930DEFPROCdothingy(fg%)
 5940IF savegt%=2 PROCsavetext:ENDPROC
 5950A%=OPENOUT(filename$)
 5960BPUT#A%,"!Gorm Saved Game - saved on "+TIME$
 5970BPUT#A%,STR$(swear%)
 5980BPUT#A%,STR$(computer%)
 5990BPUT#A%,STR$(notimes%)
 6000BPUT#A%,oldword$
 6010BPUT#A%,STR$(roomno%)
 6020BPUT#A%,STR$(sleep%)
 6030BPUT#A%,STR$(written%)
 6040BPUT#A%,STR$(font%)
 6050BPUT#A%,STR$(nifok%)
 6060BPUT#A%,STR$(exits(2,2))
 6070BPUT#A%,STR$(exits(72,3))
 6080BPUT#A%,STR$(exits(85,2))
 6090BPUT#A%,STR$(exits(110,4))
 6100BPUT#A%,STR$(exits(111,2))
 6110BPUT#A%,STR$(exits(179,1))
 6120BPUT#A%,STR$(exits(310,2))
 6130BPUT#A%,STR$(ill%)
 6140BPUT#A%,STR$(medium1%)
 6150BPUT#A%,STR$(medium2%)
 6160BPUT#A%,STR$(payed%)
 6170BPUT#A%,STR$(renw%)
 6180BPUT#A%,STR$(crier%)
 6190BPUT#A%,STR$(mould%)
 6200BPUT#A%,STR$(dug%)
 6210BPUT#A%,STR$(pamp%)
 6220BPUT#A%,STR$(whiz%)
 6230BPUT#A%,STR$(fire%)
 6240BPUT#A%,STR$(suitcase%)
 6250BPUT#A%,STR$(injure%)
 6260BPUT#A%,STR$(zone%)
 6270BPUT#A%,STR$(dugged%)
 6280BPUT#A%,rooms$(78,2)
 6290BPUT#A%,rooms$(78,3)
 6300BPUT#A%,rooms$(78,4)
 6310BPUT#A%,rooms$(85,5)
 6320BPUT#A%,abbrev$(78,1)
 6330BPUT#A%,rentry$(78)
 6340FOR a%=1 TO 3
 6350BPUT#A%,STR$(police%(a%))
 6360BPUT#A%,STR$(poldir%(a%))
 6370NEXT a%
 6380BPUT#A%,STR$(drugged%)
 6390FOR a%=1 TO totalrooms%
 6400BPUT#A%,STR$(mapyn%(a%))
 6410NEXT a%
 6420FOR a%=1 TO 10
 6430BPUT#A%,owns$(a%)
 6440NEXT a%
 6450FOR a%=1 TO 11
 6460BPUT#A%,quest$(a%)
 6470NEXT a%
 6480FOR a%=1 TO totalrooms%
 6490FOR b%=1 TO 10
 6500BPUT#A%,objects$(a%,b%)
 6510NEXT b%
 6520NEXT a%
 6530CLOSE#A%
 6540OSCLI"Settype "+filename$+" 179"
 6550IF fg%=1 SYS "Wimp_CreateMenu",-1
 6560PROCseticon(k%,1,filename$)
 6570wimp%!0=k%:SYS"Wimp_CloseWindow",,wimp%
 6580altered%=0
 6590ENDPROC
 6600
 6610DEFPROCsavetext
 6620A%=OPENOUT(filename$)
 6630BPUT#A%,"Text from Gorm adventure:"
 6640BPUT#A%,""
 6650FOR a%=1 TO 11
 6660line$=quest$(a%)
 6670IF LEFT$(line$,1)="@" LEFT$(line$,1)="-"
 6680BPUT#A%,line$
 6690NEXT a%
 6700CLOSE#A%
 6710OSCLI"Settype "+filename$+" FFF"
 6720IF fg%=1 SYS "Wimp_CreateMenu",-1
 6730PROCseticon(k%,1,filename$)
 6740wimp%!0=k%:SYS"Wimp_CloseWindow",,wimp%
 6750ENDPROC
 6760
 6770DEFPROCerr(wimp%!0,$(wimp%+4))
 6780IF fonterror%=1 myfont%=-1:font%=0:ENDPROC
 6790IF heaperror%=1 PROCseticon(greethan%,1,"Without pictures"):picyn%=0:ENDPROC
 6800CASE wimp%!0 OF
 6810WHEN 204 : $(wimp%+4)+=". Change the filename to something possible."
 6820WHEN 67785 : $(wimp%+4)+=". Flip the tab on the disc and try again."
 6830ENDCASE
 6840SYS "Wimp_ReportError",wimp%,1,"Gorm"
 6850ENDPROC
 6860
 6870DEFPROCiconbar
 6880wimp%!0=-1:wimp%!4=0:wimp%!8=0
 6890wimp%!12=68:wimp%!16=68:wimp%!20=&300A
 6900$(wimp%+24)="!Gorm"
 6910SYS "Wimp_CreateIcon",,wimp% TO ichan%
 6920ENDPROC
 6930
 6940DEFPROCmenuselect
 6950a%=wimp%!0:b%=wimp%!4
 6960SYS "Wimp_GetPointerInfo",,wimp%
 6970but%=wimp%!8
 6980wimp%!0=a%:wimp%!4=b%
 6990fntopt%=1:IF m%=0 fntopt%=0
 7000extraopt%=2:IF m%=0 extraopt%=1
 7010panels%=3:IF m%=0 panels%=2
 7020restrtopt%=4:IF m%=0 restrtopt%=3
 7030saveopt%=5:IF m%=0 saveopt%=4
 7040CASE wimp%!0 OF
 7050  WHEN fntopt% : CASE wimp%!4 OF
 7060    WHEN 0,1 : font%=wimp%!4:wimp%!0=adventhan%:IF open%=1 PROCredraw
 7070    ENDCASE
 7080  WHEN extraopt% : CASE wimp%!4 OF
 7090    WHEN -1 : wimp%!0=maphan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%:IF picyn%=1 wimp%!0=picciehan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 7100    WHEN 0 : wimp%!0=maphan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 7110    WHEN 1 : wimp%!0=picciehan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 7120    ENDCASE
 7130  WHEN panels% : CASE wimp%!4 OF
 7140    WHEN 0 : posiyn%=1-posiyn%
 7150             IF posiyn%=0 wimp%!0=posihan%:SYS"Wimp_CloseWindow",,wimp%
 7160             IF posiyn%=1 AND open%=1 wimp%!0=adventhan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!0=posihan%:wimp%!8=wimp%!16-44:SYS"Wimp_OpenWindow",,wimp%
 7170  ENDCASE
 7180  WHEN restrtopt% : IF altered%=1 PROCwarning(3,"","Restarting will lose","the current game.","") ELSE PROCrestart
 7190      WHEN saveopt% : CASE wimp%!4 OF
 7200      WHEN 0 : PROCgetfilename:IF INSTR(filena$,".")=0 wimp%!0=k%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%:SYS"Wimp_SetCaretPosition",k%,1,,,-1,LEN(filena$) ELSE filename$=filena$:PROCdothingy(0)
 7210      WHEN 1 : PROCsaveoptions
 7220      OTHERWISE : PROCgetfilename:IF INSTR(filena$,".")=0 wimp%!0=k%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%:SYS"Wimp_SetCaretPosition",k%,1,,,-1,LEN(filena$) ELSE filename$=filena$:PROCdothingy(0)
 7230      ENDCASE
 7240  WHEN 6 : PROCquityn
 7250ENDCASE
 7260IF but%=1 AND wimp%!0<>6 wimp%!0=mousx%:wimp%!4=mousy%:PROCmakemenu(m%)
 7270ENDPROC
 7280
 7290DEFPROCrestart
 7300SYS "Hourglass_On"
 7310FOR a=1 TO 11
 7320quest$(a)=""
 7330NEXT a
 7340FOR a%=1 TO 10
 7350owns$(a%)=""
 7360NEXT a%
 7370swear%=0:computer%=0:notimes%=0:roomno%=1:zone%=1:sleep%=0:altered%=0:written%=0:suitcase%=0:nifok%=0:crier%=1:mould%=0:dug%=0:pamp%=0:whiz%=0:dugged%=0:fire%=1:drugged%=0:injure%=0:renw%=0:ill%=0:medium1%=0:medium2%=0:payed%=0
 7380police%(1)=107:poldir%(1)=4
 7390police%(2)=143:poldir%(2)=4
 7400police%(3)=206:poldir%(3)=1
 7410FOR a=1 TO totalrooms%
 7420FOR b=1 TO 10
 7430mapyn%(a)=0
 7440objects$(a,b)=default1$(a,b)
 7450NEXT b
 7460NEXT a
 7470rooms$(78,2)=default2$(1):rooms$(78,3)=default2$(2)
 7480rooms$(78,4)=default2$(3):rooms$(85,5)=default2$(4)
 7490abbrev$(78,1)=default2$(5):rentry$(78)=default2$(6)
 7500exits(2,2)=default3%(1):exits(72,3)=default3%(2)
 7510exits(85,2)=default3%(3):exits(110,4)=default3%(4)
 7520exits(111,2)=default3%(5):exits(179,1)=default3%(6)
 7530exits(310,2)=default3%(7)
 7540PROCadd("Welcome to your quest brave adventurer.")
 7550i$="look":PROClook
 7560wimp%!0=adventhan%:PROCredraw
 7570PROCdecidetitle
 7580mapyn%(1)=1:wimp%!0=maphan%:PROCredrawmap:PROCdecidepos
 7590SYS "Hourglass_Off"
 7600ENDPROC
 7610
 7620DEFPROCgetfilename
 7630wimp%!0=k%:wimp%!4=1
 7640SYS &400CE,,wimp%
 7650filena$=$wimp%!28
 7660filena$=FNfixstring(filena$+CHR$(0))
 7670ENDPROC
 7680
 7690DEFPROCchangefilename(opt%)
 7700PROCgetfilename
 7710IF INSTR(filena$,".")=0 AND opt%=1 PROCseticon(k%,1,"SavedGame"):SYS "Wimp_SetCaretPosition",k%,1,,,-1,9
 7720IF INSTR(filena$,".")=0 AND opt%=2 PROCseticon(k%,1,"Text"):SYS "Wimp_SetCaretPosition",k%,1,,,-1,4
 7730ENDPROC
 7740
 7750DEFFNreadinput
 7760wimp%!0=userhan%:wimp%!4=1
 7770SYS &400CE,,wimp%
 7780=$wimp%!28
 7790
 7800DEFFNfixstring(origname$)
 7810p=1:name$=""
 7820WHILE MID$(origname$,p,1)<>CHR$(0)
 7830name$+=MID$(origname$,p,1):p+=1
 7840ENDWHILE
 7850=name$
 7860
 7870DEFPROCjustfile
 7880WHILE INSTR(filena$,".")>0
 7890filena$=MID$(filena$,INSTR(filena$,".")+1)
 7900ENDWHILE
 7910ENDPROC
 7920
 7930DEFPROCseticon(wimp%!0,wimp%!4,t$)
 7940SYS &400CE,,wimp%
 7950$wimp%!28=t$
 7960wimp%!8=0:wimp%!12=0
 7970SYS &400CD,,wimp%
 7980ENDPROC
 7990
 8000DEFPROCdrag
 8010IF wimp%!12<>k% OR wimp%!16<>0 ENDPROC
 8020PROCcheckdrag:PROCgetfilename:PROCjustfile
 8030wimp%!0=k%:SYS "Wimp_GetWindowState",,wimp%
 8040x=wimp%!4:y=wimp%!16:wimp%!4=0
 8050SYS "Wimp_GetIconState",,wimp%
 8060wimp%!4=5:wimp%!8+=x-4:wimp%!12+=y-4
 8070wimp%!16+=x+4:wimp%!20+=y+4
 8080wimp%!24=0:wimp%!28=0
 8090wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
 8100dragsprite$="file_179":IF savegt%=2 dragsprite$="file_fff"
 8110IF dragyn%=-1 SYS "Wimp_DragBox",,wimp% ELSE SYS "DragASprite_Start",%11000101,1,dragsprite$,wimp%+8,wimp%+24
 8120ENDPROC
 8130
 8140DEFPROCshiftup
 8150FOR h=1 TO 10
 8160quest$(h)=quest$(h+1)
 8170NEXT h
 8180ENDPROC
 8190
 8200DEFPROCadd(phrase$)
 8210g%=0
 8220b%=LEN(phrase$):IF MID$(phrase$,1,1)="@" b%-=1:g%=1
 8230IF b%<77 PROCshiftup:quest$(11)=phrase$:flag%=0 ELSE flag%=1:f%=0
 8240WHILE flag%=1
 8250PROCshiftup
 8260temphrase$=MID$(phrase$,(f%*76)+1,76)
 8270there=0
 8280FOR i=76 TO 1 STEP-1
 8290IF MID$(temphrase$,i,1)=" " OR MID$(temphrase$,i,1)="." OR MID$(temphrase$,i,1)="," OR MID$(temphrase$,i,1)="?" OR MID$(temphrase$,i,1)=":" OR MID$(temphrase$,i,1)=";" OR MID$(temphrase$,i,1)="!" OR MID$(temphrase$,i,1)="'" there=i:i=1
 8300NEXT i
 8310IF LEN(temphrase$)<76 there=0
 8320IF there<2 quest$(11)=MID$(phrase$,(f%*76)+1,76)
 8330IF there>1 quest$(11)=MID$(phrase$,(f%*76)+1,there):phrase$=MID$(phrase$,1,(f%*76)+there)+STRING$(76-there,"*")+MID$(phrase$,(f%*76)+1+there,LEN(phrase$))
 8340IF g%=1 AND f%<>0 quest$(11)="@"+quest$(11)
 8350IF there>1 b%+=76-there
 8360f%+=1:IF b%-(f%*76)<1 flag%=0
 8370ENDWHILE
 8380wimp%!0=adventhan%
 8390PROCredraw
 8400ENDPROC
 8410
 8420DEFPROCseticonsprite(wimp%!0,wimp%!4,spritetype$)
 8430windie%=wimp%!0
 8440SYS "Wimp_GetIconState",,wimp%
 8450SYS "Wimp_DeleteIcon",,wimp%
 8460wimp%!4=wimp%!8:wimp%!8=wimp%!12:wimp%!12=wimp%!16
 8470wimp%!16=wimp%!20:wimp%!20=wimp%!24:$(wimp%+24)=spritetype$
 8480SYS "Wimp_CreateIcon",,wimp%
 8490wimp%!0=windie%:SYS "Wimp_ForceRedraw",wimp%!0,-100,-100,200,200
 8500ENDPROC
 8510
 8520DEFPROCclick
 8530IF wimp%!8=16 OR wimp%!8=64 PROCdrag
 8540IF wimp%!8=4 AND wimp%!12=userhan% CASE wimp%!16 OF
 8550  WHEN 0 : i$="@Go north.":PROCadd(i$):PROCrespond
 8560  WHEN 2 : i$="@"+FNreadinput:PROCadd(i$):PROCrespond:PROCseticon(userhan%,1,""):SYS"Wimp_SetCaretPosition",userhan%,1,,,-1
 8570  WHEN 3 : i$="@Go east.":PROCadd(i$):PROCrespond
 8580  WHEN 4 : i$="@Go south.":PROCadd(i$):PROCrespond
 8590  WHEN 5 : i$="@Go west.":PROCadd(i$):PROCrespond
 8600  WHEN 6 : i$="@Go up.":PROCadd(i$):PROCrespond
 8610  WHEN 7 : i$="@Go down.":PROCadd(i$):PROCrespond
 8620  WHEN 8 : i$="@Look.":PROCadd(i$):PROCrespond
 8630  WHEN 9 : i$="@Inventory.":PROCadd(i$):PROCrespond
 8640  WHEN 10 : i$="@Exits.":PROCadd(i$):PROCrespond
 8650  WHEN 11 : wimp%!0=picciehan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 8660  WHEN 12 : wimp%!0=maphan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 8670  WHEN 13 : PROCgetfilename:IF INSTR(filena$,".")=0 wimp%!0=k%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%:SYS"Wimp_SetCaretPosition",k%,1,,,-1,LEN(filena$) ELSE filename$=filena$:PROCdothingy(0)
 8680ENDCASE
 8690IF wimp%!8=1 AND wimp%!12=userhan% CASE wimp%!16 OF
 8700  WHEN 0 : i$="@Go north.":PROCadd(i$):PROCrespond
 8710  WHEN 2 : i$="@"+FNreadinput:PROCadd(i$):PROCrespond
 8720  WHEN 3 : i$="@Go east.":PROCadd(i$):PROCrespond
 8730  WHEN 4 : i$="@Go south.":PROCadd(i$):PROCrespond
 8740  WHEN 5 : i$="@Go west.":PROCadd(i$):PROCrespond
 8750  WHEN 6 : i$="@Go up.":PROCadd(i$):PROCrespond
 8760  WHEN 7 : i$="@Go down.":PROCadd(i$):PROCrespond
 8770  WHEN 8 : i$="@Look.":PROCadd(i$):PROCrespond
 8780  WHEN 9 : i$="@Inventory.":PROCadd(i$):PROCrespond
 8790  WHEN 10 : i$="@Exits.":PROCadd(i$):PROCrespond
 8800  WHEN 11 : wimp%!0=picciehan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 8810  WHEN 12 : wimp%!0=maphan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 8820  WHEN 13 : PROCgetfilename:wimp%!0=k%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%:SYS"Wimp_SetCaretPosition",k%,1,,,-1,LEN(filena$)
 8830ENDCASE
 8840IF wimp%!12=warnhan% AND wimp%!8<>2 CASE wimp%!16 OF
 8850WHEN 5 : wimp%!0=warnhan%:SYS "Wimp_CloseWindow",,wimp%
 8860WHEN 6 : nbtm%+=1:wimp%!0=warnhan%:SYS "Wimp_CloseWindow",,wimp%:IF nbtm%=1 PROCcontinueaction
 8870ENDCASE
 8880IF wimp%!12=k% AND wimp%!8<>2 CASE wimp%!16 OF
 8890WHEN 2 : PROCok(wimp%!8)
 8900WHEN 3 : savegt%=1:PROCseticonsprite(k%,0,"file_179"):PROCchangefilename(1)
 8910WHEN 4 : savegt%=2:PROCseticonsprite(k%,0,"file_fff"):PROCchangefilename(2)
 8920ENDCASE
 8930IF wimp%!8=2 AND wimp%!12=adventhan% PROCmakemenu(0):m%=0
 8940IF wimp%!12=-2 AND wimp%!8=2 PROCmakemenu(1):m%=1
 8950IF wimp%!8=1 AND wimp%!12=-2 THEN
 8960wimp%!0=maphan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 8970SYS "XOS_ReadModeVariable",MODE,3 TO ,,cols%
 8980IF cols%<>15 AND picyn%=1 picyn%=2
 8990IF cols%=15 AND picyn%=2 picyn%=1
 9000IF picyn%=1 wimp%!0=picciehan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 9010ENDIF
 9020IF wimp%!8=4 AND wimp%!12=-2 THEN
 9030wimp%!0=adventhan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
 9040PROCattach:open%=1:oldtime%=TIME
 9050ENDIF
 9060ENDPROC
 9070
 9080DEFPROCmakemenu(m%)
 9090SYS "XOS_ReadModeVariable",MODE,3 TO ,,cols%
 9100IF cols%<>15 AND picyn%=1 picyn%=2
 9110IF cols%=15 AND picyn%=2 picyn%=1
 9120$menu%="Gorm"
 9130menu%?12=7
 9140menu%?13=2
 9150menu%?14=7
 9160menu%?15=0
 9170menu%!16=180
 9180menu%!20=44
 9190menu%!24=0
 9200menu%!28=2:IF m%=0 menu%!28=0
 9210menu%!32=inhan%:IF m%=0 menu%!32=menu%+196
 9220menu%!36=&7000021
 9230$(menu%+40)="Info":IF m%=0 $(menu%+40)="Font"
 9240menu%!52=0
 9250menu%!56=menu%+196:IF m%=0 menu%!56=menu%+272
 9260menu%!60=&7000021
 9270$(menu%+64)="Font":IF m%=0 $(menu%+64)="Extras"
 9280menu%!76=0
 9290menu%!80=menu%+272:IF m%=0 menu%!80=menu%+348
 9300menu%!84=&7000021
 9310$(menu%+88)="Extras":IF m%=0 $(menu%+88)="Panels"
 9320menu%!100=0
 9330menu%!104=menu%+348:IF m%=0 menu%!104=-1
 9340menu%!108=&7000021
 9350$(menu%+112)="Panels":IF m%=0 $(menu%+112)="Restart"
 9360menu%!124=0:IF m%=0 menu%!124=&80
 9370menu%!128=-1:IF m%=0 menu%!128=menu%+400
 9380menu%!132=&7000021
 9390$(menu%+136)="Restart":IF m%=0 $(menu%+136)="Save"
 9400menu%!148=2
 9410menu%!152=menu%+400
 9420menu%!156=&7000021
 9430$(menu%+160)="Save"
 9440menu%!172=&80
 9450menu%!176=-1
 9460menu%!180=&7000021
 9470$(menu%+184)="Quit"
 9480$(menu%+196)="Font"
 9490menu%?208=7
 9500menu%?209=2
 9510menu%?210=7
 9520menu%?211=0
 9530menu%!212=130
 9540menu%!216=44
 9550menu%!220=0
 9560menu%!224=0:IF font%=0 menu%!224=1
 9570menu%!228=-1
 9580menu%!232=&7000021
 9590$(menu%+236)="System"
 9600menu%!248=&80:IF font%=1 menu%!248=&81
 9610menu%!252=-1
 9620menu%!256=&7000021:IF myfont%=-1 menu%!256=&7400021
 9630$(menu%+260)="Trinity"
 9640$(menu%+272)="Extras"
 9650menu%?284=7
 9660menu%?285=2
 9670menu%?286=7
 9680menu%?287=0
 9690menu%!288=140
 9700menu%!292=44
 9710menu%!296=0
 9720menu%!300=0
 9730menu%!304=-1
 9740menu%!308=&7000021
 9750$(menu%+312)="Map"
 9760menu%!324=&80
 9770menu%!328=-1
 9780menu%!332=&7000021:IF picyn%<>1 menu%!332=&7400021
 9790$(menu%+336)="Pictures"
 9800$(menu%+348)="Panels"
 9810menu%?360=7
 9820menu%?361=2
 9830menu%?362=7
 9840menu%?363=0
 9850menu%!364=160
 9860menu%!368=44
 9870menu%!372=0
 9880menu%!376=&80:IF posiyn%=1 menu%!376=&81
 9890menu%!380=-1
 9900menu%!384=&7000021
 9910$(menu%+388)="Position"
 9920$(menu%+400)="Save"
 9930menu%?412=7
 9940menu%?413=2
 9950menu%?414=7
 9960menu%?415=0
 9970menu%!416=140
 9980menu%!420=44
 9990menu%!424=0
10000menu%!428=0
10010menu%!432=k%
10020menu%!436=&7000021
10030$(menu%+440)="File"
10040menu%!452=&80
10050menu%!456=-1
10060menu%!460=&7000021
10070$(menu%+464)="Choices"
10080mousx%=wimp%!0:mousy%=wimp%!4
10090IF m%=0 SYS "Wimp_CreateMenu",,menu%,wimp%!0-70,wimp%!4
10100IF m%=1 SYS "Wimp_CreateMenu",,menu%,wimp%!0-68,452
10110ENDPROC
10120
10130DEFFNchangecase(a$)
10140IF a$="" =""
10150wrd$=""
10160FOR a=1 TO LEN(a$)
10170l=ASC(MID$(a$,a,1))
10180IF l>64 AND l<90 l+=32
10190IF l>215 AND l<223 l+=32
10200IF l>191 AND l<215 l+=32
10210wrd$+=CHR$(l)
10220NEXT a
10230=wrd$
10240
10250DEFFNremove(a$)
10260IF a$="" =""
10270wrd$=""
10280FOR a=1 TO LEN(a$)
10290l=ASC(MID$(a$,a,1))
10300p%=0
10310IF l<47 p%=1
10320IF l>57 AND l<65 p%=1
10330IF l=32 p%=0
10340IF p%=0 wrd$+=CHR$(l)
10350NEXT a
10360=wrd$
10370
10380DEFPROCthenorand
10390reali$=i$
10400REPEAT
10410thenyn%=0:postn%=260
10420then%(1)=INSTR(reali$,",and then")
10430then%(2)=INSTR(reali$,", and then")
10440then%(3)=INSTR(reali$," and then")
10450then%(4)=INSTR(reali$,", then")
10460then%(5)=INSTR(reali$,",then")
10470then%(6)=INSTR(reali$,"then")
10480then%(7)=INSTR(reali$,", and")
10490then%(8)=INSTR(reali$,",and")
10500then%(9)=INSTR(reali$," and")
10510then%(10)=INSTR(reali$,",")
10520FOR a%=1 TO 10
10530IF then%(a%)<postn% AND then%(a%)>0 thenyn%=a%:postn%=then%(a%)
10540NEXT a%
10550CASE thenyn% OF
10560  WHEN 1 : PROCdoit(postn%-1,9)
10570  WHEN 2 : PROCdoit(postn%-1,10)
10580  WHEN 3 : PROCdoit(postn%-1,9)
10590  WHEN 4 : PROCdoit(postn%-1,6)
10600  WHEN 5 : PROCdoit(postn%-1,5)
10610  WHEN 6 : PROCdoit(postn%-1,4)
10620  WHEN 7 : PROCdoit(postn%-1,5)
10630  WHEN 8 : PROCdoit(postn%-1,4)
10640  WHEN 9 : PROCdoit(postn%-1,4)
10650  WHEN 10 : PROCdoit(postn%-1,1)
10660ENDCASE
10670UNTIL thenyn%=0
10680i$=FNremspace(i$)
10690PROCrespond2
10700ENDPROC
10710
10720DEFPROCdoit(pntr%,wrdl%)
10730thenyn%=1
10740i$=MID$(reali$,1,pntr%)
10750reali$=MID$(reali$,pntr%+1+wrdl%,LEN(reali$)-pntr%)
10760i$=FNremspace(i$)
10770PROCrespond2:PROCadd("")
10780i$=reali$
10790ENDPROC
10800
10810DEFFNremspace(t$)
10820txt$="":textflg%=0
10830FOR a%=1 TO LEN(i$)
10840IF MID$(t$,a%,1)<>" " OR textflg%=1 txt$+=MID$(t$,a%,1):textflg%=1
10850NEXT a%
10860t$=txt$
10870txt$="":textflg%=0
10880FOR a%=LEN(t$) TO 1 STEP-1
10890IF MID$(t$,a%,1)<>" " OR textflg%=1 txt$=MID$(t$,a%,1)+txt$:textflg%=1
10900NEXT a%
10910=txt$
10920
10930DEFPROCrespond
10940altered%=1
10950oldtime%=TIME
10960i$=FNfixstring(i$+CHR$(0))
10970i$=FNchangecase(i$)
10980PROCthenorand
10990ENDPROC
11000
11010DEFPROCrespond2
11020IF i$=stng$ AND nifok%=1 PROCadd(strng$):nifok%=0:PROCdecidepics:ENDPROC
11030IF renw%=1 PROCnoneed:ENDPROC
11040i$=FNremove(i$)
11050IF nifok%=1 PROCgonner:ENDPROC
11060IF sleep%=1 AND TIME-6000<sleepoldtime% PROCadd("Zzzzzzzzzzzzz..."):ENDPROC
11070IF swear%=5 PROCnotspeak:ENDPROC
11080IF i$="" PROCnothing:PROCadd(t$):ENDPROC
11090IF i$=oldword$ AND i$<>"" notimes%+=1 ELSE oldword$=i$:notimes%=0
11100IF i$=oldword$ AND notimes%>4 PROCrepeat:ENDPROC
11110IF INSTR(i$,"sheep")>0 AND INSTR(i$,ec$(1))>0 PROCwelsh:ENDPROC
11120IF INSTR(i$,ec$(2))>0 PROCswear:ENDPROC
11130IF INSTR(i$,ec$(3))>0 PROCswear:ENDPROC
11140IF INSTR(i$,ec$(4))>0 PROCswear:ENDPROC
11150IF INSTR(i$,ec$(5))>0 PROCswear:ENDPROC
11160IF INSTR(i$,ec$(6))>0 PROCadd("Ooh! That's hard language isn't it!"):ENDPROC
11170IF INSTR(i$,ec$(7))>0 PROCswear:ENDPROC
11180IF INSTR(i$,ec$(8))>0 PROCswear:ENDPROC
11190IF INSTR(i$,ec$(9))>0 PROCswear:ENDPROC
11200IF INSTR(i$,ec$(10))>0 PROCswear:ENDPROC
11210IF INSTR(i$,ec$(11))>0 PROCswear:ENDPROC
11220IF INSTR(i$,ec$(12))>0 PROCswear:ENDPROC
11230IF INSTR(i$,ec$(13))>0 PROCswear:ENDPROC
11240IF INSTR(i$,ec$(1))>0 PROCnaughty:ENDPROC
11250IF INSTR(i$,"shut up")>0 PROCtense:ENDPROC
11260IF INSTR(i$,"shutup")>0 PROCtense:ENDPROC
11270IF INSTR(i$,"go away")>0 PROCtense:ENDPROC
11280IF LEFT$(i$,4)="say " PROCsay:ENDPROC
11290IF LEFT$(i$,4)="tell" PROCtell:ENDPROC
11300IF LEFT$(i$,6)="print " PROCprint:ENDPROC
11310IF LEFT$(i$,4)="look" PROClook:ENDPROC
11320IF LEFT$(i$,7)="examine" PROCmuchmorespecific:ENDPROC
11330IF LEFT$(i$,7)="inspect" PROCmuchmorespecific:ENDPROC
11340IF LEFT$(i$,7)="observe" PROCmuchmorespecific:ENDPROC
11350IF LEFT$(i$,5)="exits" PROCexits:ENDPROC
11360IF LEFT$(i$,4)="open" PROCopen:ENDPROC
11370IF LEFT$(i$,4)="shut" PROCclose:ENDPROC
11380IF LEFT$(i$,5)="close" PROCclose:ENDPROC
11390IF LEFT$(i$,3)="inv" PROCinv:ENDPROC
11400IF LEFT$(i$,2)="go" PROCgo:ENDPROC
11410IF LEFT$(i$,3)="run" PROCgo:ENDPROC
11420IF LEFT$(i$,4)="move" PROCgo:ENDPROC
11430IF LEFT$(i$,4)="walk" PROCgo:ENDPROC
11440IF LEFT$(i$,6)="travel" PROCgo:ENDPROC
11450IF LEFT$(i$,4)="read" PROCread:ENDPROC
11460IF LEFT$(i$,5)="write" PROCwrite:ENDPROC
11470IF LEFT$(i$,6)="scrawl" PROCwrite:ENDPROC
11480IF LEFT$(i$,8)="scribble" PROCwrite:ENDPROC
11490IF LEFT$(i$,9)="northeast" PROCnortheast:ENDPROC
11500IF LEFT$(i$,9)="southeast" PROCsoutheast:ENDPROC
11510IF LEFT$(i$,9)="southwest" PROCsouthwest:ENDPROC
11520IF LEFT$(i$,9)="northwest" PROCnorthwest:ENDPROC
11530IF LEFT$(i$,5)="north" PROCnorth:ENDPROC
11540IF LEFT$(i$,4)="east" PROCeast:ENDPROC
11550IF LEFT$(i$,5)="south" PROCsouth:ENDPROC
11560IF LEFT$(i$,4)="west" PROCwest:ENDPROC
11570IF LEFT$(i$,2)="up" PROCup:ENDPROC
11580IF LEFT$(i$,4)="down" PROCdown:ENDPROC
11590IF LEFT$(i$,7)="descend" PROCdown:ENDPROC
11600IF LEFT$(i$,5)="climb" PROCup:ENDPROC
11610IF LEFT$(i$,6)="ascend" PROCup:ENDPROC
11620IF LEFT$(i$,3)="get" PROCget:ENDPROC
11630IF LEFT$(i$,4)="grab" PROCget:ENDPROC
11640IF LEFT$(i$,4)="take" PROCget:ENDPROC
11650IF LEFT$(i$,6)="snatch" PROCget:ENDPROC
11660IF LEFT$(i$,6)="obtain" PROCget:ENDPROC
11670IF LEFT$(i$,7)="pick up" PROCget:ENDPROC
11680IF LEFT$(i$,6)="pickup" PROCget:ENDPROC
11690IF LEFT$(i$,4)="wear" PROCget:ENDPROC
11700IF LEFT$(i$,7)="collect" PROCget:ENDPROC
11710IF LEFT$(i$,4)="give" PROCgive:ENDPROC
11720IF LEFT$(i$,6)="donate" PROCgive:ENDPROC
11730IF LEFT$(i$,4)="drop" PROCdrop:ENDPROC
11740IF LEFT$(i$,6)="unlock" PROCunlock:ENDPROC
11750IF LEFT$(i$,4)="lock" PROClock:ENDPROC
11760IF LEFT$(i$,3)="eat" PROCeat:ENDPROC
11770IF LEFT$(i$,5)="scoff" PROCeat:ENDPROC
11780IF LEFT$(i$,7)="swallow" PROCeat:ENDPROC
11790IF LEFT$(i$,7)="consume" PROCeat:ENDPROC
11800IF LEFT$(i$,4)="bite" PROCeat:ENDPROC
11810IF LEFT$(i$,5)="taste" PROCeat:ENDPROC
11820IF LEFT$(i$,6)="nibble" PROCeat:ENDPROC
11830IF LEFT$(i$,5)="drink" PROCdrink:ENDPROC
11840IF LEFT$(i$,3)="ask" PROCask:ENDPROC
11850IF LEFT$(i$,3)="put" PROCput:ENDPROC
11860IF LEFT$(i$,3)="saw" PROCsaw:ENDPROC
11870IF LEFT$(i$,3)="cut" PROCsaw:ENDPROC
11880IF LEFT$(i$,3)="hit" PROCviolence:ENDPROC
11890IF LEFT$(i$,4)="kill" PROCviolence:ENDPROC
11900IF LEFT$(i$,4)="stab" PROCviolence:ENDPROC
11910IF LEFT$(i$,4)="kick" PROCviolence:ENDPROC
11920IF LEFT$(i$,5)="fight" PROCviolence:ENDPROC
11930IF LEFT$(i$,5)="wound" PROCviolence:ENDPROC
11940IF LEFT$(i$,6)="murder" PROCviolence:ENDPROC
11950IF LEFT$(i$,5)="punch" PROCviolence:ENDPROC
11960IF LEFT$(i$,5)="thump" PROCviolence:ENDPROC
11970IF LEFT$(i$,5)="whack" PROCviolence:ENDPROC
11980IF LEFT$(i$,4)="slap" PROCviolence:ENDPROC
11990IF LEFT$(i$,5)="smash" PROCviolence:ENDPROC
12000IF LEFT$(i$,5)="break" PROCviolence:ENDPROC
12010IF LEFT$(i$,3)="buy" PROCbuy:ENDPROC
12020IF LEFT$(i$,8)="purchase" PROCbuy:ENDPROC
12030IF LEFT$(i$,5)="order" PROCbuy:ENDPROC
12040IF LEFT$(i$,5)="smell" PROCsmell:ENDPROC
12050IF LEFT$(i$,5)="sniff" PROCsmell:ENDPROC
12060IF LEFT$(i$,6)="listen" PROClisten:ENDPROC
12070IF LEFT$(i$,4)="hear" PROClisten:ENDPROC
12080IF LEFT$(i$,4)="kiss" OR LEFT$(i$,4)="snog" PROCkiss:ENDPROC
12090IF LEFT$(i$,5)="mould" PROCmould:ENDPROC
12100IF LEFT$(i$,10)="make mould" PROCmould:ENDPROC
12110IF LEFT$(i$,12)="create mould" PROCmould:ENDPROC
12120IF LEFT$(i$,15)="make impression" PROCmould:ENDPROC
12130IF LEFT$(i$,17)="create impression" PROCmould:ENDPROC
12140IF LEFT$(i$,5)="sleep" PROCadd("You are not tired."):ENDPROC
12150IF LEFT$(i$,5)="score" PROCadd("There is no score, just finish the game!"):ENDPROC
12160IF LEFT$(i$,4)="wait" AND zone%=2 PROCadd("You wait for a few seconds."):PROCpolice:ENDPROC
12170IF LEFT$(i$,4)="wait" AND zone%=3 PROCadd("You wait for a few seconds."):PROCpolicemaze:ENDPROC
12180IF LEFT$(i$,4)="wait" AND zone%=1 PROCadd("You wait for a few seconds."):ENDPROC
12190IF LEFT$(i$,3)="dig" PROCdig:ENDPROC
12200IF LEFT$(i$,6)="search" PROCadd("You find nothing that you have not already seen."):ENDPROC
12210IF INSTR(i$,"no ")>0 PROCno:ENDPROC
12220IF INSTR(i$,"no")>0 AND LEN(i$)=2 PROCno:ENDPROC
12230IF INSTR(i$,"yes ")>0 PROCyes:ENDPROC
12240IF INSTR(i$,"yes")>0 AND LEN(i$)=3 PROCyes:ENDPROC
12250IF INSTR(i$,"ok")>0 PROCyes:ENDPROC
12260IF INSTR(i$,"oui")>0 PROClinguist:ENDPROC
12270IF INSTR(i$,"non")>0 PROClinguist:ENDPROC
12280IF INSTR(i$,"nein")>0 PROClinguist:ENDPROC
12290IF INSTR(i$,"ja")>0 PROClinguist:ENDPROC
12300IF INSTR(i$,"bonjour")>0 PROChling:ENDPROC
12310IF INSTR(i$,"guten tag")>0 PROChling:ENDPROC
12320IF INSTR(i$,"au revoir")>0 PROCgling:ENDPROC
12330IF INSTR(i$,"thankyou")>0 PROCthank:ENDPROC
12340IF INSTR(i$,"thank you")>0 PROCthank:ENDPROC
12350IF INSTR(i$,"bye")>0 PROCbye:ENDPROC
12360IF INSTR(i$,"hello")>0 PROChello:ENDPROC
12370IF INSTR(i$,"good day")>0 PROChello:ENDPROC
12380IF INSTR(i$,"greetings")>0 PROChello:ENDPROC
12390IF INSTR(i$,"gooday")>0 PROChello:ENDPROC
12400IF INSTR(i$,"hi ")>0 PROChello:ENDPROC
12410IF i$="hi" PROChello:ENDPROC
12420IF INSTR(i$,"yo ")>0 PROChello:ENDPROC
12430IF LEFT$(i$,8)="probably" PROCprob:ENDPROC
12440IF LEFT$(i$,5)="maybe" PROCprob:ENDPROC
12450IF INSTR(i$,"archimedes")>0 PROCadd("Archimedes - quality computers."):ENDPROC
12460IF INSTR(i$,"acorn")>0 PROCadd("Acorn - best computer company around."):ENDPROC
12470IF INSTR(i$,"oxford")>0 PROCadd("Oxford - a great city."):ENDPROC
12480IF INSTR(i$,"london")>0 PROCadd("Why do you talk of our great capital?"):ENDPROC
12490IF INSTR(i$,"birmingham")>0 PROCadd("Hmm, Birmingham's a lovely place."):ENDPROC
12500IF INSTR(i$,"amiga")>0 PROCsick:ENDPROC
12510IF INSTR(i$,"sega")>0 PROCsick:ENDPROC
12520IF INSTR(i$,"nintendo")>0 PROCsick:ENDPROC
12530IF INSTR(i$,"atari")>0 PROCsick:ENDPROC
12540IF INSTR(i$,"ibm")>0 PROCsick:ENDPROC
12550IF INSTR(i$,"macintosh")>0 PROCsick:ENDPROC
12560IF INSTR(i$,"chris")>0 AND INSTR(i$,"allen")>0 PROCadd("Greetings, author."):ENDPROC
12570IF INSTR(i$,"claire")>0 AND INSTR(i$,"allen")>0 PROCadd("Hi, it's my sister!"):ENDPROC
12580IF INSTR(i$,"paul")>0 AND INSTR(i$,"allen")>0 PROCadd("So you know my brother do you?"):ENDPROC
12590IF INSTR(i$,"blair")>0 PROCadd("Shut-up and go away, Blair!"):ENDPROC
12600IF INSTR(i$,"i love you")>0 PROCluv:ENDPROC
12610IF INSTR(i$,"i luv you")>0 PROCluv:ENDPROC
12620IF INSTR(i$,"you love")>0 love$="love":PROCIlove:ENDPROC
12630IF INSTR(i$,"you luv")>0 love$="luv":PROCIlove:ENDPROC
12640IF INSTR(i$,"i love")>0 love$="love":PROCYoulove:ENDPROC
12650IF INSTR(i$,"i luv")>0 love$="luv":PROCYoulove:ENDPROC
12660IF INSTR(i$,"luv")>0 PROClove:ENDPROC
12670IF INSTR(i$,"help")>0 PROChelp:ENDPROC
12680IF LEFT$(i$,8)="because ":PROCbecause:ENDPROC
12690IF i$="please":PROCplease:ENDPROC
12700IF i$="pretty please with sugar on top":PROCsucker:ENDPROC
12710IF LEFT$(i$,6)="it is ":PROCitis:ENDPROC
12720IF LEFT$(i$,4)="its ":PROCits:ENDPROC
12730IF LEFT$(i$,7)="it was ":PROCitwas:ENDPROC
12740IF LEFT$(i$,5)="i am ":PROCiam:ENDPROC
12750IF LEFT$(i$,3)="im ":PROCim:ENDPROC
12760IF INSTR(i$,"love")>0 PROClove:ENDPROC
12770IF INSTR(i$,ec$(14))>0 PROCnaughty:ENDPROC
12780IF LEFT$(i$,5)="sorry":PROCsorry:ENDPROC
12790IF LEFT$(i$,4)="beep":PRINT CHR$(7):PROCadd("B E E P."):ENDPROC
12800IF i$="restart" PROCwarning(3,"","Restarting will lose","the current game.",""):ENDPROC
12810IF LEFT$(i$,3)="map" PROCadd("Your position is marked by the red spot."):wimp%!0=maphan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%:ENDPROC
12820IF LEFT$(i$,7)="picture" THEN
12830SYS "XOS_ReadModeVariable",MODE,3 TO ,,cols%
12840IF cols%<>15 AND picyn%=1 picyn%=2
12850IF cols%=15 AND picyn%=2 picyn%=1
12860IF picyn%=0 PROCadd("The pictures have not been loaded.") ELSE IF picyn%=2 PROCadd("You are not in a 16-colour mode.") ELSE PROCadd("The pictures..."):wimp%!0=picciehan%:SYS"Wimp_GetWindowState",,wimp%:wimp%!28=-1:SYS"Wimp_OpenWindow",,wimp%
12870ENDPROC
12880ENDIF
12890IF LEFT$(i$,4)="info" PROCadd("Gorm v1.40   By Chris Allen."):ENDPROC
12900IF i$="quit" PROCadd("What's the magic word?"):ENDPROC
12910IF i$="quit please" PROCadd("Bye then."):a$=INKEY$(100):SYS &400DD,apphan%:ENDPROC
12920IF i$="time" PROCadd("You glance at your expensive digital watch; "+TIME$):ENDPROC
12930IF i$="basic" PROCadd("Try f12 and then typing in 'Basic'."):ENDPROC
12940IF i$="load" OR i$="save" OR i$="append" OR i$="delete" OR i$="wipe" PROCadd("I'll leave that repetative task to the operating system."):ENDPROC
12950IF i$="why" PROCadd("I'm supposed to be asking the questions."):ENDPROC
12960IF LEFT$(i$,2)="ne" PROCnortheast:ENDPROC
12970IF LEFT$(i$,2)="se" PROCsoutheast:ENDPROC
12980IF LEFT$(i$,2)="sw" PROCsouthwest:ENDPROC
12990IF LEFT$(i$,2)="nw" PROCnorthwest:ENDPROC
13000IF LEFT$(i$,3)="die" PROCadd("You have no desire to kill yourself."):ENDPROC
13010IF LEN(i$)=1 PROCsingle:ENDPROC
13020PROClastresort
13030ENDPROC
13040
13050DEFPROClook
13060IF i$<>"look" AND i$<>"look " PROCmuchmorespecific:ENDPROC
13070FOR e=1 TO 9
13080IF rooms$(roomno%,e)<>"" PROCadd(rooms$(roomno%,e))
13090NEXT e
13100PROCexits
13110flag%=0
13120FOR e=1 TO 10
13130IF objects$(roomno%,e)<>"" flag%+=1
13140NEXT e
13150IF flag%>0 THEN
13160  flagtwo%=0
13170  t$="You can also see; "
13180  IF flag%=1 THEN
13190    flagtwo%=1
13200    FOR l=1 TO 10
13210    IF objects$(roomno%,l)<>"" t$+=FNfirstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
13220    NEXT l
13230  ENDIF
13240  e=0:l=0
13250  IF flagtwo%=0 THEN
13260    REPEAT
13270    l+=1
13280   IF objects$(roomno%,l)<>"" e+=1:t$+=FNfirstl(objects$(roomno%,l))+objects$(roomno%,l)+", "
13290    UNTIL e>=flag%-1
13300    FOR l=l+1 TO 10
13310    IF objects$(roomno%,l)<>"" t$=MID$(t$,1,LEN(t$)-2)+" and "+FNfirstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
13320    NEXT l
13330  ENDIF
13340  PROCadd(t$)
13350ENDIF
13360PROCdecidepics:PROCdecidepos:IF zone%=2 PROCcheckpolpos
13370IF zone%=3 PROCpolposmaze
13380IF roomno%=46 nifok%=1:PROCdecidepics
13390IF roomno%=40 mapyn%(40)=1:roomno%=39:PROCadd(""):PROChalflook
13400IF roomno%=221 THEN
13410mapyn%(221)=1:roomno%=222:PROCadd("'Oi, you!' a woman cries cries, 'Get outta m'house - NOW!'. You go out onto the street.")
13420IF mapyn%(222)=0 mapyn%(222)=1:PROClook ELSE PROChalflook
13430ENDIF
13440ENDPROC
13450
13460DEFPROChalflook
13470PROCadd(rentry$(roomno%))
13480flag%=0
13490FOR e=1 TO 10
13500IF objects$(roomno%,e)<>"" flag%+=1
13510NEXT e
13520IF flag%>0 THEN
13530  flagtwo%=0
13540  t$="You can see; "
13550  IF flag%=1 THEN
13560    flagtwo%=1
13570    FOR l=1 TO 10
13580    IF objects$(roomno%,l)<>"" t$+=FNfirstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
13590    NEXT l
13600  ENDIF
13610  e=0:l=0
13620  IF flagtwo%=0 THEN
13630    REPEAT
13640    l+=1
13650   IF objects$(roomno%,l)<>"" e+=1:t$+=FNfirstl(objects$(roomno%,l))+objects$(roomno%,l)+", "
13660    UNTIL e>=flag%-1
13670    FOR l=l+1 TO 10
13680    IF objects$(roomno%,l)<>"" t$=MID$(t$,1,LEN(t$)-2)+" and "+FNfirstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
13690    NEXT l
13700  ENDIF
13710  PROCadd(t$)
13720ENDIF
13730PROCdecidepics:PROCdecidepos:IF zone%=2 PROCcheckpolpos
13740IF zone%=3 PROCpolposmaze
13750IF roomno%=46 nifok%=1:PROCdecidepics
13760IF roomno%=40 roomno%=39:PROCadd("You feel you are intruding, so return to the garden."):PROCadd(""):PROChalflook
13770IF roomno%=221 THEN
13780mapyn%(221)=1:roomno%=222:PROCadd("The woman comes up to you. 'Oi, you!' she cries, 'Get outta me house - NOW!'. You go out onto the street."):PROCadd("")
13790IF mapyn%(222)=0 mapyn%(222)=1:PROClook ELSE PROChalflook
13800ENDIF
13810ENDPROC
13820
13830DEFFNfirstl(myline$)
13840ftl$="a "
13850ml$=MID$(myline$,1,1)
13860CASE ml$ OF
13870WHEN "a","e","i","o","u" : ftl$="an "
13880ENDCASE
13890=ftl$
13900
13910DEFPROCopen
13920openyn%=0
13930IF INSTR(i$,"door")>0 AND roomno%=2 THEN
13940openyn%=1
13950IF exits(2,2)=0 t$="You try to open the door, but it is locked." ELSE t$="The door is all ready open."
13960ENDIF
13970IF INSTR(i$,"door")>0 AND roomno%=305 THEN
13980openyn%=1:t$="You open the door."
13990ENDIF
14000IF INSTR(i$,"door")>0 AND roomno%=179 THEN
14010openyn%=1
14020IF exits(179,1)=0 t$="You try to open the door, but it is locked." ELSE t$="The door is all ready open."
14030ENDIF
14040IF INSTR(i$,"crate")>0 AND roomno%=27 openyn%=1:t$="The crate won't open up."
14050IF INSTR(i$,"window")>0 AND roomno%=83 openyn%=1:t$="The window is jammed shut."
14060IF INSTR(i$,"bag")>0 AND roomno%=29 openyn%=1:t$="The baker looks too moody for you to go prying in his bag."
14070IF INSTR(i$,"window")>0 AND roomno%=26 openyn%=1:t$="The window is jammed shut."
14080IF INSTR(i$,"gate")>0 AND roomno%=15 openyn%=1:t$="The gates are firmly bolted."
14090IF INSTR(i$,"book")>0 AND FNgotorhere("book")=1 openyn%=1:t$="You open up the book."
14100IF INSTR(i$,"novel")>0 AND FNgotorhere("novel")=1 openyn%=1:t$="You open up the novel."
14110IF INSTR(i$,"bible")>0 AND FNgotorhere("bible")=1 openyn%=1:t$="You open up the bible."
14120IF INSTR(i$,"barrel")>0 AND roomno%=65 openyn%=1:t$="The barrels are firmly closed."
14130IF INSTR(i$,"bottle")>0 AND FNgotorhere("bottle")=1 AND fire%=0 openyn%=1:t$="The bottle has a top which is protected against children - you've never been able to open those things."
14140IF INSTR(i$,"purse")>0 AND FNgotorhere("purse")=1 openyn%=1:t$="The zip to the purse is stuck."
14150IF INSTR(i$,"suitcase")>0 AND roomno%=83 THEN
14160openyn%=1
14170t$="The case is already open."
14180IF suitcase%=0 THEN
14190suitcase%=1:t$="You open the case. A snooker cue falls onto the ground."
14200c%=0
14210FOR a%=1 TO 10
14220IF objects$(83,a%)="" AND c%=0 c%=1:objects$(83,a%)="cue"
14230NEXT
14240IF c%=0 objects$(83,RND(10))="cue"
14250ENDIF
14260ENDIF
14270IF openyn%=0 t$="I do not understand what you want to open."
14280PROCadd(t$)
14290ENDPROC
14300
14310DEFPROCclose
14320closeyn%=0
14330IF INSTR(i$,"door")>0 AND roomno%=2 THEN
14340closeyn%=1
14350IF exits(2,2)=3 t$="You try to close the door, but it is stuck open." ELSE t$="The door is all ready closed."
14360ENDIF
14370IF INSTR(i$,"door")>0 AND roomno%=305 THEN
14380closeyn%=1:t$="You close the door."
14390ENDIF
14400IF INSTR(i$,"door")>0 AND roomno%=179 THEN
14410closeyn%=1
14420IF exits(179,1)=15 t$="You try to close the door, but it is stuck open." ELSE t$="The door is all ready closed."
14430ENDIF
14440IF INSTR(i$,"gate")>0 AND roomno%=15 closeyn%=1:t$="The gates are already shut."
14450IF INSTR(i$,"window")>0 AND roomno%=83 closeyn%=1:t$="The window is already shut."
14460IF INSTR(i$,"window")>0 AND roomno%=26 closeyn%=1:t$="The window is already shut."
14470IF INSTR(i$,"book")>0 AND FNgotorhere("book")=1 closeyn%=1:t$="You close the book."
14480IF INSTR(i$,"novel")>0 AND FNgotorhere("novel")=1 closeyn%=1:t$="You close the novel."
14490IF INSTR(i$,"bible")>0 AND FNgotorhere("bible")=1 closeyn%=1:t$="You close the bible."
14500IF INSTR(i$,"suitcase")>0 AND roomno%=83 closeyn%=1:CASE suitcase% OF
14510WHEN 0 : t$="The suitcase is already shut."
14520WHEN 1 : t$="The suitcase has stuck open."
14530ENDCASE
14540IF closeyn%=0 t$="I do not understand what you want to close."
14550PROCadd(t$)
14560ENDPROC
14570
14580DEFPROCmould
14590t$="You have nothing to mould."
14600IF FNgotorhere("blob")=1 AND INSTR(i$,"blob")>0 t$="You have nothing to mould the blob into.":IF roomno%=2 t$="You press the blob into the keyhole and pull it out. Voila! A perfect impression!":mould%=1
14610PROCadd(t$)
14620ENDPROC
14630
14640DEFPROCfire
14650fire%=0
14660PROCadd("")
14670t$="You hear a woosh as if something has created a fireball."
14680rooms$(78,2)="There are charred remains on the ground here."
14690rooms$(78,3)="":rooms$(78,4)=""
14700abbrev$(78,1)="Chars":rentry$(78)="The charred area."
14710wimp%!0=maphan%:PROCredrawmap
14720IF roomno%=78 t$="There is a loud 'woosh' as the bonfire ignites the meths and shoots out a massive fireball, unfortunately it heads straight at you. There is no way you can survive.":nifok%=1
14730PROCdecidepics
14740PROCadd(t$)
14750ENDPROC
14760
14770DEFPROCsmell
14780t$="You can smell nothing peculiar."
14790CASE roomno% OF
14800 WHEN 76 : t$="You can smell some meths."
14810 WHEN 78 : CASE fire% OF
14820   WHEN 0 : t$="There is a burnt smell in the air."
14830   WHEN 1,2 : t$="You can smell the smoke from the bonfire."
14840   ENDCASE
14850 WHEN 65 : t$="There is a strong smell of alcohol."
14860 WHEN 67,73 : t$="There is a faint smell of chemicals."
14870 WHEN 60,69 : t$="You can smell old metal."
14880 WHEN 51,49 : t$="There is an old musty smell in the air."
14890 WHEN 50,52,64 : t$="There is a sweet smell of alcohol in the air."
14900 WHEN 13,34,35,39 : t$="You can smell the beautiful fragrance of the garden."
14910 WHEN 38,41,285,288,289,290,286,287,291,292 : t$="You can smell nothing but grass."
14920 WHEN 3,4,5,8,9,10 : t$="The air smells artificial and far too clean."
14930 WHEN 22,23,83,25,26,27 : t$="The air smells stale and dusty."
14940 WHEN 37,84 : t$="You can smell the old woodwork of the church."
14950 WHEN 16,17,18,44,46 : t$="There is a 'rotten' smell in the air."
14960 WHEN 45 : t$="You can smell danger."
14970 WHEN 29 : t$="You can smell stale bread."
14980 WHEN 30 : t$="You can smell rotting meat."
14990 WHEN 20 : t$="There is a faint smell of bread."
15000 WHEN 19 : t$="There is a faint smell of meat."
15010 WHEN 250 : t$="There is a strong, sweet smell of flowers."
15020ENDCASE
15030PROCadd(t$)
15040ENDPROC
15050
15060DEFPROClisten
15070t$="You hear nothing peculiar."
15080CASE roomno% OF
15090 WHEN 85 : IF drugged%=1 t$="You can hear the guard snoring."
15100 WHEN 73 : t$="You can hear the fizzing from some bottles."
15110 WHEN 76 : t$="You can hear the flies buzzing around the tramp."
15120 WHEN 78 : IF fire%>0 t$="You can hear the crackling of the flames."
15130 WHEN 81,82 : t$="You can hear the ballet music."
15140 WHEN 66,63,67,33,54,61,68 : t$="You can hear the fountain in the distance."
15150 WHEN 62 : t$="You can hear the fountain splattering the water around."
15160 WHEN 49 : t$="There is some singing going on to the north."
15170 WHEN 50 : t$="You can hear nothing but the bellowing of the drunks who are dancing in front of you."
15180 WHEN 51 : t$="You can hear some faint singing."
15190 WHEN 29 : t$="You can hear the baker mumbling to himself."
15200 WHEN 30 : t$="You can hear the butcher talking to himself."
15210 WHEN 1 : t$="There is the sound of tens of people all trying to do their shopping at once."
15220 WHEN 22,23,83,25,26,27 : t$="It seems extra quiet down here."
15230 WHEN 47 : t$="You can hear some people laughing wildly."
15240 WHEN 45 : t$="There is nothing but deathly silence."
15250 WHEN 37 : IF crier%=1 t$="You can hear the young girl wailing uncontrollably."
15260 WHEN 11,2,6 : t$="You can hear the commotion at the market-place."
15270 WHEN 253 : t$="You can only hear the old woman groaning in pain."
15280 WHEN 310 : t$="You can hear the old woman chanting to herself."
15290 WHEN 268,269,270,271,272,273,274 : t$="You can hear the roaring engines of the cars."
15300ENDCASE
15310IF zone%=2 OR zone%=3 THEN
15320FOR a=1 TO 8
15330IF exits(roomno%,a)=police%(1) OR exits(roomno%,a)=police%(2) OR exits(roomno%,a)=police%(3) t$="You hear some footsteps in the distance."
15340NEXT a
15350IF police%(1)=roomno% OR police%(2)=roomno% t$="You can hear the policeman, mumbling to himself, next to you."
15360ENDIF
15370PROCadd(t$)
15380ENDPROC
15390
15400DEFPROCkiss
15410t$="There is no-one to kiss."
15420CASE roomno% OF
15430 WHEN 78 : IF fire%>0 t$="The young boy doesn't want a kiss."
15440 WHEN 76 : t$="Take it from me, you DON'T want to kiss a tramp."
15450 WHEN 81 : t$="The girls run away from you, until you cool down."
15460 WHEN 82,249,302,310 : t$="The old woman punches you on the nose, then resumes her work."
15470 WHEN 29 : t$="The baker isn't like that."
15480 WHEN 30 : t$="The butcher isn't like that."
15490 WHEN 1,50 : t$="No-one here wants a kiss from you."
15500 WHEN 15,85,305 : t$="You don't go around kissing guards!"
15510 WHEN 37 : IF crier%=1 t$="This is a church - a religious place."
15520 WHEN 52,69,84,73,72,84,248,312,281 : t$="The man would not be happy if you kissed him."
15530 WHEN 64,266 : t$="The bar-maid slaps you round the face and gives you an evil look."
15540 WHEN 226 : t$="The young girl starts screaming."
15550 WHEN 250,301 : t$="The young woman slaps you around the face."
15560 WHEN 253 : t$="The old woman vomits into her sofa."
15570ENDCASE
15580IF police%(1)=roomno% OR police%(2)=roomno% t$="The policeman looks at you strangely."
15590PROCadd(t$)
15600ENDPROC
15610
15620DEFPROCgo
15630IF INSTR(i$,"northeast")>0 PROCnortheast:ENDPROC
15640IF INSTR(i$,"north east")>0 PROCnortheast:ENDPROC
15650IF INSTR(i$,"southeast")>0 PROCsoutheast:ENDPROC
15660IF INSTR(i$,"south east")>0 PROCsoutheast:ENDPROC
15670IF INSTR(i$,"southwest")>0 PROCsouthwest:ENDPROC
15680IF INSTR(i$,"south west")>0 PROCsouthwest:ENDPROC
15690IF INSTR(i$,"northwest")>0 PROCnorthwest:ENDPROC
15700IF INSTR(i$,"north west")>0 PROCnorthwest:ENDPROC
15710IF INSTR(i$,"north")>0 PROCnorth:ENDPROC
15720IF INSTR(i$,"east")>0 PROCeast:ENDPROC
15730IF INSTR(i$,"south")>0 PROCsouth:ENDPROC
15740IF INSTR(i$,"west")>0 PROCwest:ENDPROC
15750IF INSTR(i$,"up")>0 PROCup:ENDPROC
15760IF INSTR(i$,"down")>0 PROCdown:ENDPROC
15770IF INSTR(i$,"ne")>0 PROCnortheast:ENDPROC
15780IF INSTR(i$,"se")>0 PROCsoutheast:ENDPROC
15790IF INSTR(i$,"sw")>0 PROCsouthwest:ENDPROC
15800IF INSTR(i$,"nw")>0 PROCnorthwest:ENDPROC
15810IF INSTR(i$,"n")>0 PROCnorth:ENDPROC
15820IF INSTR(i$,"e")>0 PROCeast:ENDPROC
15830IF INSTR(i$,"s")>0 PROCsouth:ENDPROC
15840IF INSTR(i$,"w")>0 PROCwest:ENDPROC
15850IF INSTR(i$,"u")>0 PROCup:ENDPROC
15860IF INSTR(i$,"d")>0 PROCdown:ENDPROC
15870PROCadd("I do not understand where you want to go.")
15880ENDPROC
15890
15900DEFPROCinv
15910flag%=0
15920FOR e=1 TO 10
15930IF owns$(e)<>"" flag%+=1
15940NEXT e
15950IF flag%=0 THEN
15960CASE RND(5) OF
15970  WHEN 1 : t$="You are carrying nothing."
15980  WHEN 2 : t$="Your hands are empty."
15990  WHEN 3 : t$="You do not have anything."
16000  WHEN 4 : t$="Your pockets are empty."
16010  WHEN 5 : t$="You haven't any possessions."
16020ENDCASE
16030ENDIF
16040IF flag%>0 THEN
16050  flagtwo%=0
16060  t$="You have with you; "
16070  IF flag%=1 THEN
16080    flagtwo%=1
16090    FOR l=1 TO 10
16100    IF owns$(l)<>"" t$+=FNfirstl(owns$(l))+owns$(l)+"."
16110    NEXT l
16120  ENDIF
16130  e=0:l=0
16140  IF flagtwo%=0 THEN
16150    REPEAT
16160    l+=1
16170    IF owns$(l)<>"" e+=1:t$+=FNfirstl(owns$(l))+owns$(l)+", "
16180    UNTIL e>=flag%-1
16190    FOR l=l+1 TO 10
16200    IF owns$(l)<>"" t$=MID$(t$,1,LEN(t$)-2)+" and "+FNfirstl(owns$(l))+owns$(l)+"."
16210    NEXT l
16220  ENDIF
16230ENDIF
16240PROCadd(t$)
16250ENDPROC
16260
16270DEFPROCsaw
16280t$="You cannot cut that."
16290IF FNgotorhere("hacksaw")<>1 PROCadd("You have nothing to cut with."):ENDPROC
16300IF roomno%=85 AND INSTR(i$,"bar")>0 THEN
16310IF exits(85,2)>0 PROCadd("The bars are already cut."):ENDIF:ENDPROC
16320t$="You use the hacksaw to saw the bars to the cell, trying to do it quietly so not to wake the guard. Finally the bars fall out, leaving an exit to the east.":exits(85,2)=97
16330rooms$(85,5)="side of the bars is a sleeping guard. Some bars have been cut, providing an exit."
16340IF drugged%=0 THEN
16350t$="You use the hacksaw to start to saw the bars, however the guard swings round and sees what you are doing. He grabs the hacksaw off you.":exits(85,2)=0
16360rooms$(85,5)="side of the bars is a guard."
16370FOR a=1 TO 10
16380IF owns$(a)="hacksaw" owns$(a)=""
16390IF objects$(roomno%,a)="hacksaw" objects$(roomno%,a)=""
16400NEXT a
16410ENDIF
16420wimp%!0=maphan%:PROCredrawmap
16430ENDIF
16440PROCadd(t$)
16450ENDPROC
16460
16470DEFPROCpolice
16480poltime%=TIME
16490FOR b%=1 TO 2
16500nextplace%=exits(police%(b%),poldir%(b%))
16510IF nextplace%=0 THEN
16520REPEAT
16530a%=RND(8)
16540nextplace%=exits(police%(b%),a%):poldir%(b%)=a%
16550UNTIL nextplace%<>0
16560ENDIF
16570police%(b%)=nextplace%
16580NEXT b%
16590PROCcheckpolpos
16600wimp%!0=maphan%:PROCredrawmap
16610ENDPROC
16620
16630DEFPROCpolicemaze
16640poltime%=TIME
16650nextplace%=exits(police%(3),poldir%(3))
16660IF nextplace%=0 THEN
16670REPEAT
16680a%=RND(8)
16690nextplace%=exits(police%(3),a%):poldir%(3)=a%
16700UNTIL nextplace%<>0
16710ENDIF
16720police%(3)=nextplace%
16730IF police%(3)=15 police%(3)=178:poldir%(3)=2
16740PROCpolposmaze
16750wimp%!0=maphan%:PROCredrawmap
16760ENDPROC
16770
16780DEFPROCpolposmaze
16790IF police%(3)=roomno% THEN
16800IF FNgot("badge")>0 AND FNgot("cap")>0 AND FNgot("wig")>0 THEN
16810PROCadd("")
16820PROCadd("A policeman walks up to you, but he is not fooled by your disguise, he whacks you over the head with his truncheon."):nifok%=1:PROCdecidepics
16830ELSE
16840PROCadd("")
16850PROCadd("A policeman comes up to you. 'Oi you!' he cries, 'I heard someone had escaped'. He whacks you over the head with his truncheon.")
16860nifok%=1:PROCdecidepics
16870ENDIF
16880ENDIF
16890FOR a=1 TO 8
16900IF exits(roomno%,a)=police%(3) PROCadd("You hear some footsteps in the distance.")
16910NEXT a
16920ENDPROC
16930
16940DEFPROCcheckpolpos
16950FOR b%=1 TO 2
16960IF nifok%=1 ENDPROC
16970IF police%(b%)=roomno% THEN
16980IF FNgot("badge")>0 AND FNgot("cap")>0 AND FNgot("wig")>0 THEN
16990PROCadd("")
17000PROCadd("A policeman walks up to you, then he sees your badge and cap and dismisses you as another policeman.")
17010ELSE
17020PROCadd("")
17030PROCadd("A policeman comes up to you. 'Oi!' he cries, 'What y'doing outta y'cell!?'. He whacks you over the head with his truncheon - maybe a little too hard. Total Blackness.")
17040nifok%=1:PROCdecidepics
17050ENDIF
17060ENDIF
17070NEXT b%
17080FOR a=1 TO 8
17090IF exits(roomno%,a)=police%(1) OR exits(roomno%,a)=police%(2) PROCadd("You hear some footsteps in the distance.")
17100NEXT a
17110ENDPROC
17120
17130DEFPROCdig
17140t$="You have nothing to dig with."
17150IF FNgotorhere("spade")=1 CASE roomno% OF
17160WHEN 13,34,35,38,41,226,227,279,285,286,287,288,289,290,291,292 : t$="You dig the ground with the spade, but find little of interest."
17170WHEN 39 : IF dug%=1 t$="You dig the garden some more, but find nothing else of interest."
17180IF dug%=0 THEN
17190dug%=1:t$="You start digging the ground with the spade, when all of a sudden you hit something hard. You dust away the soil and see that it is a bone."
17200bn%=0
17210FOR a%=1 TO 10
17220IF objects$(39,a%)="" AND bn%=0 bn%=1:objects$(39,a%)="bone"
17230NEXT
17240IF bn%=0 objects$(39,RND(10))="bone"
17250ENDIF
17260WHEN 228 :IF dugged%=1 t$="You dig the sandpit some more, but find nothing else of interest."
17270IF dugged%=0 THEN
17280dugged%=1:t$="You start digging the soft sand with the spade when you hit something so tiny you almost miss it. It is an aspirin."
17290as%=0
17300FOR a%=1 TO 10
17310IF objects$(228,a%)="" AND as%=0 as%=1:objects$(228,a%)="aspirin"
17320NEXT
17330IF as%=0 objects$(228,RND(10))="aspirin"
17340ENDIF
17350OTHERWISE : t$="The ground is too hard to dig."
17360ENDCASE
17370PROCadd(t$)
17380ENDPROC
17390
17400DEFPROCwrite
17410writeyn%=0
17420IF roomno%=5 AND written%=1 AND LEN(i$)>6 THEN
17430writeyn%=1
17440PROCadd("You scribble over the top of your previous writing. It becomes unreadable.")
17450ENDIF
17460IF roomno%=5 AND written%=0 AND LEN(i$)>6 AND INSTR(i$,"mayor")=0 THEN
17470writeyn%=1
17480written%=1
17490PROCadd("You pick up the pen and write on the form. Nothing happens.")
17500ENDIF
17510IF roomno%=5 AND INSTR(i$,"mayor")>0 AND written%=0 THEN
17520writeyn%=1
17530written%=1
17540PROCadd("You pick up the pen in one hand and scrawl in big capital letters;")
17550PROCadd("THE MAYOR.")
17560PROCadd("You hear a faint fizzle as a large feather magically appears at your feet.")
17570wttn%=0
17580FOR a%=1 TO 10
17590IF objects$(5,a%)="" AND wttn%=0 wttn%=1:objects$(5,a%)="feather"
17600NEXT
17610IF wttn%=0 objects$(5,RND(10))="feather"
17620ENDIF
17630IF writeyn%=0 PROCadd("You cannot write that.")
17640ENDPROC
17650
17660DEFPROCbuy
17670t$="There is nothing to buy."
17680CASE roomno% OF
17690WHEN 1,29,30,52,64,73 : t$="You have no money to buy anything."
17700ENDCASE
17710IF FNgot("coin")>0 OR FNgot("cheque")>0 OR FNgot("purse")>0 THEN
17720CASE roomno% OF
17730WHEN 29,30,73 : t$="'I'm not accepting that!' he says."
17740WHEN 64 : t$="'I'm not accepting that!' she says."
17750WHEN 52 : t$="'Alright, that'll do me. Here, here's a whisky,' he says. He places the whisky in your hand."
17760owns$(FNgot("coin"))="whisky"
17770WHEN 248,266,281,312 : t$="There is nothing here that you really want to buy."
17780ENDCASE
17790ENDIF
17800PROCadd(t$)
17810ENDPROC
17820
17830DEFPROCexits
17840flag%=0
17850FOR e=1 TO 10
17860IF exits(roomno%,e)<>0 flag%+=1
17870NEXT e
17880IF flag%=0 THEN
17890CASE RND(5) OF
17900  WHEN 1 : t$="There are no possible exits."
17910  WHEN 2 : t$="You can see no way out."
17920  WHEN 3 : t$="You can see no direction of escape."
17930  WHEN 4 : t$="All directions are blocked."
17940  WHEN 5 : t$="There is no way of leaving."
17950ENDCASE
17960ENDIF
17970IF flag%>0 THEN
17980  flagtwo%=0
17990  t$="Possible exits; "
18000  IF flag%=1 THEN
18010    flagtwo%=1
18020    FOR l=1 TO 10
18030    IF exits(roomno%,l)<>0 CASE l OF
18040      WHEN 1 : t$+="north."
18050      WHEN 2 : t$+="east."
18060      WHEN 3 : t$+="south."
18070      WHEN 4 : t$+="west."
18080      WHEN 5 : t$+="north-east."
18090      WHEN 6 : t$+="south-east."
18100      WHEN 7 : t$+="south-west."
18110      WHEN 8 : t$+="north-west."
18120      WHEN 9 : t$+="up."
18130      WHEN 10 : t$+="down."
18140    ENDCASE
18150    NEXT l
18160  ENDIF
18170  e=0:l=0
18180  IF flagtwo%=0 THEN
18190    REPEAT
18200    l+=1
18210    IF exits(roomno%,l)<>0 e+=1:CASE l OF
18220      WHEN 1 : t$+="north, "
18230      WHEN 2 : t$+="east, "
18240      WHEN 3 : t$+="south, "
18250      WHEN 4 : t$+="west, "
18260      WHEN 5 : t$+="north-east, "
18270      WHEN 6 : t$+="south-east, "
18280      WHEN 7 : t$+="south-west, "
18290      WHEN 8 : t$+="north-west, "
18300      WHEN 9 : t$+="up, "
18310      WHEN 10 : t$+="down, "
18320    ENDCASE
18330    UNTIL e>=flag%-1
18340    FOR l=l+1 TO 10
18350    IF exits(roomno%,l)<>0 t$=MID$(t$,1,LEN(t$)-2)+" and ":CASE l OF
18360      WHEN 1 : t$+="north."
18370      WHEN 2 : t$+="east."
18380      WHEN 3 : t$+="south."
18390      WHEN 4 : t$+="west."
18400      WHEN 5 : t$+="north-east."
18410      WHEN 6 : t$+="south-east."
18420      WHEN 7 : t$+="south-west."
18430      WHEN 8 : t$+="north-west."
18440      WHEN 9 : t$+="up."
18450      WHEN 10 : t$+="down."
18460    ENDCASE
18470    NEXT l
18480  ENDIF
18490ENDIF
18500PROCadd(t$)
18510ENDPROC
18520
18530DEFFNgotorhere(obj$)
18540got%=0
18550FOR g=1 TO 10
18560IF objects$(roomno%,g)=obj$ OR owns$(g)=obj$ got%=1
18570NEXT g
18580=got%
18590
18600DEFFNgot(obj$)
18610got%=0
18620FOR g=1 TO 10
18630IF owns$(g)=obj$ got%=g
18640NEXT g
18650=got%
18660
18670DEFPROCread
18680readyn%=0
18690IF INSTR(i$,"plaque")>0 AND roomno%=11 THEN
18700readyn%=1
18710PROCadd("It reads..")
18720PROCadd("  This Monnument was erekted for all those who dyed in the War agaynst the Norwegians.")
18730ENDIF
18740IF INSTR(i$,"plaque")>0 AND roomno%=303 THEN
18750readyn%=1
18760PROCadd("It reads..")
18770PROCadd("  This oil painting, of Lady Hardling, had to been carefully cleaned because of some ancient graffiti, there had been a moustache drawn on it!")
18780ENDIF
18790IF INSTR(i$,"door")>0 AND roomno%=305 THEN
18800readyn%=1
18810PROCadd("It reads..")
18820PROCadd("  NO ENTRY FOR THE PUBLIC.")
18830ENDIF
18840IF INSTR(i$,"plaque")>0 AND roomno%=252 THEN
18850readyn%=1
18860PROCadd("As far as you can tell it reads..")
18870PROCadd("  Th.s Momume.t ..s er..te. for all th.se who dye. m the war ayagn.t th Norw.g..ns.")
18880ENDIF
18890IF roomno%=284 OR roomno%=297 THEN
18900IF INSTR(i$,"sign")>0 THEN
18910readyn%=1
18920PROCadd("The sign reads...")
18930PROCadd("  You are about to enter an area of preserved countryside. Please show respect for the wildlife.")
18940ENDIF
18950ENDIF
18960IF INSTR(i$,"newspaper")>0 OR INSTR(i$,"magazine")>0 AND roomno%=248 THEN
18970readyn%=1
18980PROCadd("You feel that you should buy a newspaper or magazine before you read it.")
18990ENDIF
19000IF INSTR(i$,"leaflet")>0 AND roomno%=281 THEN
19010readyn%=1
19020PROCadd("The leaflets contain only useless facts about the town.")
19030ENDIF
19040IF INSTR(i$,"sign")>0 AND roomno%=29 THEN
19050readyn%=1
19060PROCadd("The sign reads in big, bold lettering;")
19070PROCadd("  SHOPPELIFTERS WILL BE PROSSECUTED")
19080ENDIF
19090IF INSTR(i$,"sign")>0 AND roomno%=224 THEN
19100readyn%=1
19110PROCadd("The sign says; 'PHOENIX STREET'.")
19120ENDIF
19130IF INSTR(i$,"sign")>0 AND roomno%=19 THEN
19140readyn%=1
19150PROCadd("It says, 'Better bye from Benjamin the butcher, the Best Beef t'be bort'.")
19160ENDIF
19170IF INSTR(i$,"sign")>0 AND roomno%=70 THEN
19180readyn%=1
19190PROCadd("It says, 'BALLET SCHOOLE'.")
19200ENDIF
19210IF INSTR(i$,"spell")>0 AND FNgotorhere("spell")>0 THEN
19220readyn%=1
19230PROCadd("The spell is just squiggles and symbols to you.")
19240ENDIF
19250IF INSTR(i$,"note")>0 AND FNgotorhere("note")>0 THEN
19260readyn%=1
19270PROCadd("The note reads:")
19280PROCadd("  For my Collectione I desperately neede a Bone, for without it I am stucke. If you do come acrosse one please do leeve it hear for me. My gracious thanks, Wilfred.")
19290ENDIF
19300IF INSTR(i$,"pamphlet")>0 AND FNgotorhere("pamphlet")>0 THEN
19310readyn%=1
19320PROCadd("You skim through the pamphlet, which is all about snooker. You now know the basic skills."):pamp%=1
19330ENDIF
19340IF INSTR(i$,"plan")>0 AND FNgotorhere("plan")>0 THEN
19350readyn%=1
19360PROCadd("There are a few symbols and sketches, but underneath it says:")
19370PROCadd("  Although bones maye be where dead men laye,")
19380PROCadd("  A religious Jardin will lead Not Dismay.")
19390ENDIF
19400IF INSTR(i$,"headstone")>0 AND roomno%=38 THEN
19410readyn%=1
19420PROCadd("The headstones are unreadable because of the overgrown grass.")
19430ENDIF
19440IF INSTR(i$,"headstone")>0 AND roomno%=41 THEN
19450readyn%=1
19460PROCadd("The headstone is only just readable:")
19470PROCadd("  Hear lyes Th' Mayor")
19480PROCadd("  Borne: 21.4.1744")
19490PROCadd("  Dyed:  16.9.1793")
19500PROCadd("  Suferred sifear Stumack Paynes")
19510PROCadd("  May his Sole reste in Peace.")
19520ENDIF
19530IF roomno%=295 OR roomno%=294 THEN
19540IF INSTR(i$,"headstone")>0 THEN
19550readyn%=1
19560PROCadd("The headstones are unreadable because of the age of them.")
19570ENDIF
19580ENDIF
19590IF INSTR(i$,"sign")>0 AND roomno%=69 THEN
19600readyn%=1
19610PROCadd("It says:")
19620PROCadd("  Any Equipemente in this Room maye be used bye thee Genneral Public to produce Worke for me - I am desperat for something to Do!")
19630ENDIF
19640IF INSTR(i$,"note")>0 AND roomno%=113 THEN
19650readyn%=1
19660PROCadd("Most of the notes are totally illegible, yet one catches your eye;")
19670PROCadd("  Thee county jale is Pleesed to announce an Additione to Our maze - it now is Even more Confusing to Prisoneres - it Feetures magicale Walles.")
19680ENDIF
19690IF INSTR(i$,"notice")>0 AND roomno%=110 THEN
19700readyn%=1
19710PROCadd("The notice reads;")
19720PROCadd("  Bye the tyme you have finnished Reading this, you'll be Trapped. GOT 'YA!")
19730trapped%=1:trappedtime%=TIME
19740ENDIF
19750IF INSTR(i$,"sign")>0 AND roomno%=127 THEN
19760readyn%=1
19770PROCadd("The sign says;")
19780PROCadd(" This is a Cortion too any prisoneres. This Maze is neare Impossibel to leave, you wood Be addvized to give Yourselfe inn.")
19790ENDIF
19800IF INSTR(i$,"form")>0 AND roomno%=5 THEN
19810readyn%=1
19820PROCadd("You scan down the page. The only interesting thing is;")
19830PROCadd("  Once thee Arnser is knowne,")
19840PROCadd("  There is something I shalt loane.")
19850PROCadd("  So'n the dashed lyne,")
19860PROCadd("  Arnser thee rydel of myne.")
19870PROCadd(" ................................")
19880IF written%=1 PROCadd("There is also some of your unreadable scribble.")
19890ENDIF
19900IF INSTR(i$,"novel")>0 AND FNgotorhere("novel")=1 THEN
19910readyn%=1
19920PROCadd("You turn over the first page and start reading...")
19930PROCadd("  'He caressed her jently, tuching Her in orl the ryht plaices...'")
19940PROCadd("Nah, not your sort of book.")
19950ENDIF
19960IF INSTR(i$,"bible")>0 AND FNgotorhere("bible")=1 THEN
19970readyn%=1
19980PROCadd("You turn over the delicate first page...")
19990PROCadd("  'In the Beginning there was..'")
20000PROCadd("You start yawning and stop reading it.")
20010ENDIF
20020IF INSTR(i$,"book")>0 AND FNgotorhere("book")=1 THEN
20030readyn%=1
20040PROCadd("Scrawled in spidery handwriting is;")
20050PROCadd("")
20060PROCadd("Great Gran Fanny-Ann,                 In the room where you dorm,")
20070PROCadd("Bayked a big Flan,                    You'll fynd a nyce forme,")
20080PROCadd("Wytha brown and grene squishy midel.  With a space just right for an Arnser.")
20090PROCadd("Who scoffed this Great Flan,          Be shure that it's right,")
20100PROCadd("And becaym a dead man,                Or you'll never get Flight,")
20110PROCadd("You need t'know to arnser this Rydel. Isenchul t'become a Good Dancer.")
20120ENDIF
20130IF readyn%=0 PROCadd("You cannot read that.")
20140ENDPROC
20150
20160DEFPROCdrink
20170t$="You are not thirsty."
20180IF INSTR(i$,"whisky")>0 AND FNgotorhere("whisky")=1 THEN
20190t$="You gulp down the whisky and your throat becomes a mass of flames."
20200FOR p=1 TO 10
20210IF owns$(p)="whisky" owns$(p)=""
20220IF objects$(roomno%,p)="whisky" objects$(roomno%,p)=""
20230NEXT p
20240ENDIF
20250IF INSTR(i$,"potion")>0 AND FNgotorhere("potion")=1 THEN
20260t$="You gulp down the potion. A few seconds go by then your head starts shaking. You put up your hands to steady it, but then it EXPLODES!":nifok%=1:PROCdecidepics
20270FOR p=1 TO 10
20280IF owns$(p)="potion" owns$(p)=""
20290IF objects$(roomno%,p)="potion" objects$(roomno%,p)=""
20300NEXT p
20310ENDIF
20320PROCadd(t$)
20330ENDPROC
20340
20350DEFPROCeat
20360eatyn%=0
20370IF INSTR(i$,"pill")>0 AND FNgotorhere("pill")=1 THEN
20380eatyn%=1
20390PROCadd("You eat the pill, feel drowsy and fall asleep for a while...")
20400FOR p=1 TO 10
20410IF owns$(p)="pill" owns$(p)=""
20420IF objects$(roomno%,p)="pill" objects$(roomno%,p)=""
20430NEXT p
20440sleep%=1:sleepoldtime%=TIME
20450ENDIF
20460IF INSTR(i$,"sweet")>0 AND roomno%=248 THEN
20470eatyn%=1
20480PROCadd("You'll have to buy the sweets first.")
20490ENDIF
20500IF INSTR(i$,"apple")>0 AND FNgotorhere("apple")=1 THEN
20510eatyn%=1
20520PROCadd("You eat the apple, it tastes gorgeous and you feel much better.")
20530FOR p=1 TO 10
20540IF owns$(p)="apple" owns$(p)=""
20550IF objects$(roomno%,p)="apple" objects$(roomno%,p)=""
20560NEXT p
20570ENDIF
20580IF INSTR(i$,"newt")>0 AND FNgotorhere("newt")=1 THEN
20590eatyn%=1
20600PROCadd("You let the newt slide down your throat. Yuck.")
20610FOR p=1 TO 10
20620IF owns$(p)="newt" owns$(p)=""
20630IF objects$(roomno%,p)="newt" objects$(roomno%,p)=""
20640NEXT p
20650ENDIF
20660IF INSTR(i$,"sweet")>0 AND FNgotorhere("sweet")=1 THEN
20670eatyn%=1
20680PROCadd("You brush off the layers of fluff and pop it into your mouth. It tastes quite nice.")
20690FOR p=1 TO 10
20700IF owns$(p)="sweet" owns$(p)=""
20710IF objects$(roomno%,p)="sweet" objects$(roomno%,p)=""
20720NEXT p
20730ENDIF
20740IF INSTR(i$,"mouse")>0 AND FNgotorhere("mouse")=1 THEN
20750eatyn%=1
20760PROCadd("You must be mad, but you close your eyes and take a bite, a few seconds later you feel queezy and collapse onto the ground in agony. Blackness.")
20770nifok%=1:PROCdecidepics
20780FOR p=1 TO 10
20790IF owns$(p)="mouse" owns$(p)=""
20800IF objects$(roomno%,p)="mouse" objects$(roomno%,p)=""
20810NEXT p
20820ENDIF
20830IF INSTR(i$,"breadcrumb")>0 AND FNgotorhere("breadcrumb")=1 THEN
20840eatyn%=1
20850PROCadd("You eat the breadcrumb, gosh that was filling.")
20860FOR p=1 TO 10
20870IF owns$(p)="breadcrumb" owns$(p)=""
20880IF objects$(roomno%,p)="breadcrumb" objects$(roomno%,p)=""
20890NEXT p
20900ENDIF
20910IF INSTR(i$,"loaf")>0 AND roomno%=29 THEN
20920eatyn%=1
20930PROCadd("The baker hits you over the head and shouts 'THIEF!!' several times. A policeman runs in, grabs your arm and before you can do anything about it you are knocked out. Several hours later you wake up in a strange room...")
20940poltime%=TIME:zone%=2:roomno%=85:PROCremkey:mapyn%(roomno%)=1:i$="look":PROClook:wimp%!0=maphan%:PROCredrawmap
20950ENDIF
20960IF INSTR(i$,"meat")>0 AND roomno%=30 THEN
20970eatyn%=1
20980PROCadd("You carefully pick up a steak, dripping with blood, and take a bite, but the butcher, who hates thieves, has been carefully watching you. He reveals a large kitchen knife and aims between your eyes. Sccchmmaackk. Blackness.")
20990nifok%=1:PROCdecidepics
21000ENDIF
21010IF INSTR(i$,"aspirin")>0 AND FNgotorhere("aspirin")=1 THEN
21020eatyn%=1
21030PROCadd("You swallow the aspirin.")
21040FOR p=1 TO 10
21050IF owns$(p)="aspirin" owns$(p)=""
21060IF objects$(roomno%,p)="aspirin" objects$(roomno%,p)=""
21070NEXT p
21080ENDIF
21090IF INSTR(i$,"lolly")>0 AND FNgotorhere("lolly")=1 THEN
21100eatyn%=1
21110PROCadd("You suck the lolly until it has all gone. Lovely.")
21120FOR p=1 TO 10
21130IF owns$(p)="lolly" owns$(p)=""
21140IF objects$(roomno%,p)="lolly" objects$(roomno%,p)=""
21150NEXT p
21160ENDIF
21170IF eatyn%=0 PROCadd("You cannot eat that.")
21180ENDPROC
21190
21200DEFPROCget
21210gotta%=0
21220IF INSTR(i$,"all")>0 OR INSTR(i$,"everything")>0 THEN
21230  counter%=0
21240  FOR a%=1 TO 10
21250  IF objects$(roomno%,a%)<>"" i$=objects$(roomno%,a%):counter%+=1:PROCget
21260  NEXT a%
21270  IF counter%=0 PROCadd("There is nothing to get.")
21280  i$="get all"
21290  gotta%=-1
21300ENDIF
21310IF gotta%=0 THEN
21320FOR g=1 TO 10
21330IF owns$(g)<>"" AND INSTR(i$,owns$(g))>0 PROCadd("You already have this item."):gotta%=1
21340NEXT g
21350ENDIF
21360IF gotta%=0 THEN
21370FOR g=1 TO 10
21380IF objects$(roomno%,g)<>"" AND INSTR(i$,objects$(roomno%,g))>0 gotta%=-1:ojt%=g
21390NEXT g
21400IF gotta%=0 THEN
21410  gotta%=1:CASE RND(4) OF
21420  WHEN 1 : t$="That object is no-where to be seen."
21430  WHEN 2 : t$="You search and search, but that item cannot be found."
21440  WHEN 3 : t$="I think you're hallucinating... it's no-where to be seen."
21450  WHEN 4 : t$="You can't get something that isn't here."
21460  ENDCASE
21470PROCmorespecific
21480PROCadd(t$)
21490ENDIF
21500IF gotta%=-1 gotta%=0
21510ENDIF
21520IF gotta%=0 THEN
21530gottaflag%=0
21540FOR g=1 TO 10
21550IF owns$(g)="" gottaflag%=g
21560NEXT g
21570IF gottaflag%>0 owns$(gottaflag%)=objects$(roomno%,ojt%):objects$(roomno%,ojt%)="":PROCwhatgot(owns$(gottaflag%))
21580IF gottaflag%=0 CASE RND(4) OF
21590  WHEN 1 : PROCadd("You are carrying far too much all ready.")
21600  WHEN 2 : PROCadd("You can't carry any more.")
21610  WHEN 3 : PROCadd("Your arms ache too much for another item.")
21620  WHEN 4 : PROCadd("What are you trying to do? Break your back?")
21630ENDCASE
21640ENDIF
21650ENDPROC
21660
21670DEFPROCmorespecific
21680FOR a%=1 TO 2
21690IF police%(a%)=roomno% AND zone%=2 AND INSTR(i$,"man")>0 t$="The policeman may get suspicious if you grab him."
21700NEXT a%
21710IF INSTR(i$,"cobbles")>0 CASE roomno% OF
21720  WHEN 2,7,15,12,28,42,43 : t$="The cobblestones seem to be fixed to the road quite well."
21730ENDCASE
21740IF INSTR(i$,"fence")>0 CASE roomno% OF
21750  WHEN 53,55,56,57,24,14,15,16,17,18,46,45,44,43,47,65,76,77,78,79,80 : t$="The fence won't budge from the ground."
21760ENDCASE
21770IF INSTR(i$,"car")>0 CASE roomno% OF
21780  WHEN 268,269,270,271,272,273,274 : t$="The cars are too large and fast to grab."
21790ENDCASE
21800IF INSTR(i$,"tree")>0 CASE roomno% OF
21810  WHEN 279,286,288,289,290,292 : t$="The trees have roots which are far too strong."
21820ENDCASE
21830IF roomno%=1 THEN
21840IF INSTR(i$,"amiga")>0 t$="As if you wanted one!"
21850IF INSTR(i$,"underwear")>0 t$="You're quite warm enough in your own at the moment."
21860IF INSTR(i$,"people")>0 t$="Someone might object!"
21870ENDIF
21880IF roomno%=2 AND INSTR(i$,"door")>0 t$="You pull the door, but it does not come off its hinges."
21890IF roomno%=3 THEN
21900IF INSTR(i$,"hat stand")>0 t$="Do you really think a hat-stand would help you in your quest?"
21910IF INSTR(i$,"hatstand")>0 t$="Do you really think a hat-stand would help you in your quest?"
21920IF INSTR(i$,"chandelier")>0 t$="You aren't quite high enough to reach it."
21930IF INSTR(i$,"wallpaper")>0 t$="It would ruin the room if you were to strip the wall-paper off the walls."
21940IF INSTR(i$,"stair")>0 t$="You can't uproot a part of the house."
21950ENDIF
21960IF roomno%=4 AND INSTR(i$,"toy")>0 t$="Collecting children's toys won't help you in your quest."
21970IF roomno%=5 THEN
21980IF INSTR(i$,"pen")>0 t$="The pen is chained to the table."
21990IF INSTR(i$,"form")>0 t$="The form is chained to the table."
22000IF INSTR(i$,"bed")>0 t$="Nice though the bed may be, it's just a little to heavy to carry."
22010IF INSTR(i$,"table")>0 t$="The table is stuck to the carpeted floor."
22020ENDIF
22030IF roomno%=8 THEN
22040IF INSTR(i$,"ceiling")>0 t$="Your arms aren't quite long enough I'm afraid."
22050IF INSTR(i$,"furniture")>0 t$="The furniture is too heavy for your weedy arms."
22060IF INSTR(i$,"carpet")>0 t$="You decide against it, someone might notice if the carpet went missing."
22070ENDIF
22080IF roomno%=9 THEN
22090IF INSTR(i$,"sofa")>0 t$="The sofa is in such a bad condition that you don't really want it anyway."
22100IF INSTR(i$,"painting")>0 t$="What would you want with a defaced painting? Not much."
22110IF INSTR(i$,"picture")>0 t$="What would you want with a defaced painting? Not much."
22120IF INSTR(i$,"portrait")>0 t$="What would you want with a defaced painting? Not much."
22130ENDIF
22140IF roomno%=10 THEN
22150IF INSTR(i$,"table")>0 t$="The table is stuck to the carpeted floor."
22160IF INSTR(i$,"chair")>0 t$="You can't just put a chair under your jumper."
22170ENDIF
22180IF roomno%=11 THEN
22190IF INSTR(i$,"plaque")>0 t$="The plaque has been carefully screwed to the monument."
22200IF INSTR(i$,"pot")>0 t$="The pots are extremely large and too heavy to lift."
22210IF INSTR(i$,"plant")>0 t$="The soil might stain your clothes."
22220IF INSTR(i$,"monument")>0 t$="Be serious."
22230ENDIF
22240IF roomno%=13 THEN
22250IF INSTR(i$,"path")>0 t$="Surprise, surprise, the path seems to be stuck down some how."
22260IF INSTR(i$,"paving")>0 t$="The crazy-paving seems to be well cemented."
22270IF INSTR(i$,"tree")>0 t$="The trees have rather large roots which, unfortunately, prevents idiots from trying to pull them up."
22280IF INSTR(i$,"blossom")>0 t$="The blossom is rather pretty and you decide not to destroy the scene of beauty by tearing it off the tree."
22290ENDIF
22300IF roomno%=15 THEN
22310IF INSTR(i$,"guard")>0 t$="The guard looks at you strangely as you put your arms around him... ...you change your mind."
22320IF INSTR(i$,"gate")>0 t$="The gates seem to be fixed quite sturdily to the fence, which itself is fixed to the ground."
22330ENDIF
22340IF roomno%=18 AND INSTR(i$,"sludge")>0 t$="You scoop up some sludge with your hands, but it slips right out again."
22350IF roomno%=19 AND INSTR(i$,"sign")>0 t$="The sign is large and would be too heavy to carry."
22360IF roomno%=22 AND INSTR(i$,"stair")>0 t$="You can't uproot a part of the house."
22370IF roomno%=26 AND INSTR(i$,"window")>0 t$="You aren't high enough to even touch the window."
22380IF roomno%=27 THEN
22390IF INSTR(i$,"dust")>0 t$="You take a handful of the dust, but it flows right through your fingers."
22400IF INSTR(i$,"crate")>0 t$="The crate is too heavy to budge."
22410ENDIF
22420IF roomno%=29 THEN
22430IF INSTR(i$,"sign")>0 t$="The sign is screwed to the wall."
22440IF INSTR(i$,"baker")>0 t$="The baker wouldn't be too happy if you started lifting him around."
22450IF INSTR(i$,"counter")>0 t$="The counter would be too heavy."
22460IF INSTR(i$,"bag")>0 t$="You edge nearer the bag, but the baker scares you off."
22470IF INSTR(i$,"till")>0 t$="You might look a tad suspicious with a till under your jumper."
22480IF INSTR(i$,"loaf")>0 THEN
22490PROCadd("The baker springs up and shouts 'THIEF!!'. A policeman runs in, grabs your arm and you are knocked out. Hours later you wake up in a strange room...")
22500poltime%=TIME:zone%=2:roomno%=85:PROCremkey:mapyn%(roomno%)=1:i$="look":PROClook:wimp%!0=maphan%:PROCredrawmap
22510IF drugged%=0 t$="The guard looks around and sees that you have woken up." ELSE t$="The guard is slumped."
22520ENDIF
22530ENDIF
22540IF roomno%=30 THEN
22550IF INSTR(i$,"counter")>0 t$="The counter would be too heavy."
22560IF INSTR(i$,"butcher")>0 t$="The butcher isn't the sort of person you want to start pushing around."
22570IF INSTR(i$,"clothes")>0 t$="The butcher wouldn't be happy if you ripped the clothes off him."
22580IF INSTR(i$,"blood")>0 t$="Only vampires have the desire to grab any globule of blood they see."
22590IF INSTR(i$,"meat")>0 THEN
22600t$="You carefully pick up a steak, dripping with blood, but the butcher, who hates thieves, has been carefully watching you. He reveals a large kitchen knife and aims between your eyes. Sccchmmaackk. Blackness."
22610nifok%=1:PROCdecidepics
22620ENDIF
22630ENDIF
22640IF roomno%=34 AND INSTR(i$,"pond")>0 t$="You cannot get a pond!"
22650IF roomno%=35 THEN
22660IF INSTR(i$,"flower")>0 t$="The flowers look far too pretty where they are to uproot them."
22670IF INSTR(i$,"bed")>0 t$="It would help if you found a bulldozer first - not easy in this century."
22680ENDIF
22690IF roomno%=36 THEN
22700IF INSTR(i$,"path")>0 t$="The path is firmly fixed to the ground."
22710IF INSTR(i$,"slab")>0 t$="The slabs are firmly fixed to the ground."
22720ENDIF
22730IF roomno%=37 THEN
22740IF INSTR(i$,"vicar")>0 t$="No, you'd better not."
22750IF INSTR(i$,"altar")>0 t$="The altar is too sacred to touch."
22760IF INSTR(i$,"step")>0 t$="If you removed the steps there would be no way to get upstairs."
22770IF INSTR(i$,"girl")>0 AND crier%=1 t$="The girl promptly slaps you round the face."
22780IF INSTR(i$,"girl")>0 AND crier%=0 t$="The girl is no longer here."
22790ENDIF
22800IF roomno%=38 THEN
22810IF INSTR(i$,"grass")>0 t$="The grass is not worth pulling up."
22820IF INSTR(i$,"headstone")>0 t$="The headstones are firmly fixed into the ground."
22830ENDIF
22840IF roomno%=39 THEN
22850IF INSTR(i$,"grass")>0 t$="The grass is too short to get a grip on."
22860IF INSTR(i$,"flower")>0 t$="The flowers are so well looked after, the owner may be a little angry."
22870IF INSTR(i$,"willow")>0 OR INSTR(i$,"tree")>0 t$="The willow tree has far too many roots."
22880IF INSTR(i$,"path")>0 t$="The path it fixed."
22890ENDIF
22900IF roomno%=41 THEN
22910IF INSTR(i$,"headstone")>0 t$="The headstone is fixed in the ground."
22920IF INSTR(i$,"grass")>0 t$="The grass is not worth pulling up."
22930ENDIF
22940IF roomno%=49 THEN
22950IF INSTR(i$,"table")>0 t$="The tables are too heavy to lift."
22960IF INSTR(i$,"chair")>0 t$="There are too many chairs to carry."
22970IF INSTR(i$,"glass")>0 t$="Empty wine glasses are not very helpful to you."
22980ENDIF
22990IF roomno%=50 THEN
23000IF INSTR(i$,"people")>0 t$="You can't pick up a crowd of people!"
23010IF INSTR(i$,"table")>0 t$="The snooker table is far too heavy to lift."
23020IF INSTR(i$,"felt")>0 t$="The felt is glued to the table."
23030ENDIF
23040IF roomno%=52 THEN
23050IF INSTR(i$,"bar")>0 t$="The bar is impossible to lift."
23060IF INSTR(i$,"man")>0 t$="The man would not appreciate being lifted around."
23070IF INSTR(i$,"uniform")>0 t$="You cannot rip the man's clothes off!"
23080IF INSTR(i$,"bottle")>0 t$="The bottles are too far away to reach."
23090IF INSTR(i$,"glass")>0 t$="The glasses are just too far away to reach."
23100ENDIF
23110IF roomno%=60 THEN
23120IF INSTR(i$,"display")>0 t$="The display is too heavy to lift."
23130IF INSTR(i$,"key")>0 t$="The keys are all safe behind in the glass display."
23140IF INSTR(i$,"jewel")>0 t$="The jewels are stuck firmly to the keys."
23150ENDIF
23160IF roomno%=62 THEN
23170IF INSTR(i$,"fountain")>0 t$="Wouldn't the fountain be a tad too heavy?"
23180IF INSTR(i$,"water")>0 t$="The water is travelling to fast to catch."
23190ENDIF
23200IF roomno%=64 THEN
23210IF INSTR(i$,"bar")>0 t$="The bar is impossible to lift."
23220IF INSTR(i$,"woman")>0 OR INSTR(i$,"barmaid")>0 t$="As much as you would like it, the bar-maid wouldn't like to be lifted around."
23230IF INSTR(i$,"bottle")>0 t$="The bottles are too far away to reach."
23240IF INSTR(i$,"glass")>0 t$="The glasses are just out of reach."
23250ENDIF
23260IF roomno%=65 THEN
23270IF INSTR(i$,"barrel")>0 t$="The barrels are too heavy to lift."
23280ENDIF
23290IF roomno%=69 THEN
23300IF INSTR(i$,"counter")>0 t$="The counter is too large to lift."
23310IF INSTR(i$,"man")>0 OR INSTR(i$,"keymaker")>0 t$="The keymaker is too far away."
23320IF INSTR(i$,"spectacle")>0 t$="The spectacles are on the face of the keymaker."
23330IF INSTR(i$,"sign")>0 t$="The sign is fixed to the wall."
23340ENDIF
23350IF roomno%=70 THEN
23360IF INSTR(i$,"sign")>0 t$="The sign is too far up to reach."
23370ENDIF
23380IF roomno%=220 THEN
23390IF INSTR(i$,"cloud")>0 t$="The clouds are impossible to reach."
23400IF INSTR(i$,"smoke")>0 t$="It is impossible to get smoke."
23410ENDIF
23420IF roomno%=72 THEN
23430IF INSTR(i$,"man")>0 OR INSTR(i$,"wizard")>0 t$="The wizard is too frail to lift around."
23440IF INSTR(i$,"beard")>0 t$="The beard is firmly fixed to the wizard."
23450IF INSTR(i$,"cape")>0 t$="The cape is tied around the neck of the wizard."
23460ENDIF
23470IF roomno%=73 THEN
23480IF INSTR(i$,"bottle")>0 t$="The bottles are not worth investigating."
23490IF INSTR(i$,"powder")>0 t$="The powders are not worth investigating."
23500IF INSTR(i$,"alchemist")>0 OR INSTR(i$,"man")>0 t$="The alchemist is too heavy to lift."
23510ENDIF
23520IF roomno%=75 THEN
23530IF INSTR(i$,"junk")>0 t$="There is too much junk to pick up."
23540ENDIF
23550IF roomno%=76 THEN
23560IF INSTR(i$,"tramp")>0 OR INSTR(i$,"man")>0 t$="The tramp looks too comfortable where he is."
23570IF INSTR(i$,"box")>0 t$="The cardboard box is trapped under the tramp."
23580ENDIF
23590IF roomno%=78 THEN
23600IF fire%=0 THEN
23610IF INSTR(i$,"char")>0 OR INSTR(i$,"remain")>0 t$="The charred remains are spread too widely."
23620ENDIF
23630IF fire%>0 THEN
23640IF INSTR(i$,"boy")>0 t$="The boy is too far away."
23650IF INSTR(i$,"fire")>0 t$="The bonfire is too hot to pick up."
23660IF INSTR(i$,"flame")>0 t$="The flames are impossible to get."
23670ENDIF
23680ENDIF
23690IF roomno%=81 THEN
23700IF INSTR(i$,"girl")>0 t$="There are too many girls to grab hold of."
23710IF INSTR(i$,"bar")>0 t$="The bars are fixed to the walls."
23720ENDIF
23730IF roomno%=82 THEN
23740IF INSTR(i$,"desk")>0 t$="The desk is fixed to the floor."
23750IF INSTR(i$,"woman")>0 t$="The woman is very heavy."
23760ENDIF
23770IF roomno%=83 THEN
23780IF INSTR(i$,"suitcase")>0 t$="The suitcase is too bulky to lift."
23790IF INSTR(i$,"window")>0 t$="You aren't high enough to even touch the window."
23800ENDIF
23810IF roomno%=84 THEN
23820IF INSTR(i$,"timber")>0 t$="There is too much timber to get."
23830IF INSTR(i$,"coffin")>0 t$="The coffin is too large and bulky."
23840IF INSTR(i$,"boy")>0 t$="The boy is too heavy."
23850IF INSTR(i$,"man")>0 t$="The man is too heavy."
23860ENDIF
23870IF roomno%=85 THEN
23880IF INSTR(i$,"bar")>0 t$="The bars are firmly fixed - to stop you from escaping.":IF exits(85,2)>0 t$="The bars that are left are firmly fixed."
23890IF INSTR(i$,"guard")>0 t$="The guard is too far behind the bars to grab."
23900IF INSTR(i$,"cup")>0 OR INSTR(i$,"drink")>0 t$="The cup is too hot to get hold of."
23910ENDIF
23920IF roomno%=110 THEN
23930IF INSTR(i$,"notice")>0 t$="The notice is screwed to the white-washed wall."
23940ENDIF
23950IF roomno%=113 THEN
23960IF INSTR(i$,"pinboard")>0 t$="The pinboard is screwed tightly to the office wall."
23970IF INSTR(i$,"note")>0 t$="The notes have been stuck to the pinboard."
23980ENDIF
23990IF roomno%=116 THEN
24000IF INSTR(i$,"table")>0 t$="The table is too heavy to lift."
24010ENDIF
24020IF roomno%=122 THEN
24030IF INSTR(i$,"desk")>0 t$="The desk is extremely heavy."
24040IF INSTR(i$,"chair")>0 t$="The chair is an old wooden one, it is quite heavy."
24050ENDIF
24060IF roomno%=127 THEN
24070IF INSTR(i$,"sign")>0 t$="The sign is screwed to the wall."
24080ENDIF
24090IF roomno%=133 OR roomno%=135 THEN
24100IF INSTR(i$,"table")>0 t$="The table is a heavy, wooden one - too bulky to lift."
24110IF INSTR(i$,"chair")>0 t$="The chair is wooden and bulky - awkward to carry."
24120ENDIF
24130IF roomno%=179 THEN
24140IF INSTR(i$,"door")>0 t$="The door is fixed by hinges."
24150ENDIF
24160IF roomno%=224 THEN
24170IF INSTR(i$,"sign")>0 t$="The sign is fixed to the ground."
24180ENDIF
24190IF roomno%=226 THEN
24200IF INSTR(i$,"swing")>0 t$="The swings are fixed into the ground."
24210IF INSTR(i$,"child")>0 t$="The little girl is very heavy."
24220IF INSTR(i$,"girl")>0 t$="The little girl is very heavy."
24230ENDIF
24240IF roomno%=227 THEN
24250IF INSTR(i$,"slide")>0 t$="The slide is fixed into the ground."
24260ENDIF
24270IF roomno%=228 THEN
24280IF INSTR(i$,"sand")>0 t$="There is too much sand to get hold of."
24290IF INSTR(i$,"pit")>0 t$="The sandpit is too large."
24300ENDIF
24310IF roomno%=235 THEN
24320IF INSTR(i$,"car")>0 t$="The cars are too heavy."
24330ENDIF
24340IF roomno%=236 OR roomno%=238 THEN
24350IF INSTR(i$,"car")>0 t$="The car is too heavy."
24360ENDIF
24370IF roomno%=248 THEN
24380IF INSTR(i$,"man")>0 t$="The man is too heavy."
24390IF INSTR(i$,"newspaper")>0 OR INSTR(i$,"magazine")>0 t$="The magazines and newspapers should really be bought before you take them."
24400IF INSTR(i$,"counter")>0 t$="The counter is too heavy."
24410IF INSTR(i$,"sweet")>0 t$="That would be theft."
24420ENDIF
24430IF roomno%=249 THEN
24440IF INSTR(i$,"woman")>0 t$="The woman is too heavy."
24450IF INSTR(i$,"ornament")>0 OR INSTR(i$,"trophy")>0 OR INSTR(i$,"trophie")>0 OR INSTR(i$,"souvenir")>0 t$="The souvenirs are too numerous to grab hold of."
24460ENDIF
24470IF roomno%=250 THEN
24480IF INSTR(i$,"woman")>0 t$="The woman is too heavy."
24490IF INSTR(i$,"flower")>0 t$="The flowers are too numerous to grab hold of."
24500ENDIF
24510IF roomno%=252 THEN
24520IF INSTR(i$,"monument")>0 t$="The monument is too heavy."
24530IF INSTR(i$,"plaque")>0 t$="The plaque is fixed to the monument."
24540ENDIF
24550IF roomno%=253 THEN
24560IF INSTR(i$,"woman")>0 t$="The woman is too heavy."
24570IF INSTR(i$,"sofa")>0 t$="The sofa is too bulky."
24580IF INSTR(i$,"antique")>0 t$="The antiques are too numerous to grab hold of."
24590ENDIF
24600IF roomno%=256 THEN
24610IF INSTR(i$,"fountain")>0 t$="The fountain is too heavy."
24620ENDIF
24630IF roomno%=264 THEN
24640IF INSTR(i$,"table")>0 t$="The tables are too bulky to lift."
24650IF INSTR(i$,"chair")>0 t$="The chairs too bulky to lift."
24660IF INSTR(i$,"dartboard")>0 t$="The dartboard is screwed to the wall."
24670ENDIF
24680IF roomno%=265 THEN
24690IF INSTR(i$,"table")>0 t$="The tables are too bulky to lift."
24700IF INSTR(i$,"chair")>0 t$="The chairs too bulky to lift."
24710ENDIF
24720IF roomno%=266 THEN
24730IF INSTR(i$,"bar")>0 t$="The bar is far too large."
24740IF INSTR(i$,"barmaid")>0 OR INSTR(i$,"woman")>0 t$="The barmaid is over the other side of the bar."
24750IF INSTR(i$,"skirt")>0 t$="The barmaid's skirt is being worn by the barmaid."
24760IF INSTR(i$,"blouse")>0 t$="The barmaid's blouse is being worn by the barmaid."
24770IF INSTR(i$,"hair")>0 t$="The barmaid's hair is attached to the barmaid."
24780ENDIF
24790IF roomno%=279 THEN
24800IF INSTR(i$,"path")>0 t$="The path is stuck to the ground."
24810ENDIF
24820IF roomno%=281 THEN
24830IF INSTR(i$,"man")>0 t$="The man is the other side of the counter."
24840IF INSTR(i$,"counter")>0 t$="The counter is too large and bulky."
24850IF INSTR(i$,"leaflet")>0 t$="The leaflets are too numerous to get hold of."
24860ENDIF
24870IF roomno%=284 OR roomno%=297 THEN
24880IF INSTR(i$,"sign")>0 t$="The sign is screwed to the wall."
24890ENDIF
24900IF roomno%=293 THEN
24910IF INSTR(i$,"bell")>0 t$="The bells too high up to reach."
24920IF INSTR(i$,"rope")>0 t$="You pull on one of the thick ropes - DDDONGGGG!!!"
24930ENDIF
24940IF roomno%=294 OR roomno%=295 THEN
24950IF INSTR(i$,"grass")>0 t$="The grass is too tough to get."
24960IF INSTR(i$,"headstone")>0 t$="The headstone is stuck into the turf."
24970ENDIF
24980IF roomno%=296 THEN
24990IF INSTR(i$,"altar")>0 t$="The altar far too heavy to lift."
25000IF INSTR(i$,"aisle")>0 t$="The aisle is not something you can get hold of."
25010IF INSTR(i$,"pew")>0 t$="Try to be pratical about this."
25020ENDIF
25030IF roomno%=301 THEN
25040IF INSTR(i$,"woman")>0 t$="The woman is the other side of the counter."
25050IF INSTR(i$,"counter")>0 t$="The counter is too heavy."
25060ENDIF
25070IF roomno%=302 THEN
25080IF INSTR(i$,"ceiling")>0 t$="The ceiling is too high up."
25090IF INSTR(i$,"woman")>0 OR INSTR(i$,"expert")>0 t$="The old woman is too heavy."
25100ENDIF
25110IF roomno%=303 THEN
25120IF INSTR(i$,"feather")>0 t$="The feather is fixed to the wall."
25130IF INSTR(i$,"picture")>0 OR INSTR(i$,"painting")>0 t$="The painting is fixed to the wall."
25140IF INSTR(i$,"plaque")>0 t$="The plaque is fixed to the frame of the painting."
25150ENDIF
25160IF roomno%=304 THEN
25170IF INSTR(i$,"bed")>0 t$="The bed is too heavy."
25180IF INSTR(i$,"table")>0 t$="The table is too bulky."
25190IF INSTR(i$,"chair")>0 t$="The chairs are too bulky."
25200ENDIF
25210IF roomno%=305 THEN
25220IF INSTR(i$,"door")>0 t$="The door is fixed by hinges."
25230IF INSTR(i$,"guard")>0 t$="The guard is too heavy."
25240ENDIF
25250IF roomno%=306 THEN
25260IF INSTR(i$,"stairs")>0 t$="The stairs cannot be removed."
25270ENDIF
25280IF roomno%=307 THEN
25290IF INSTR(i$,"stairs")>0 t$="The stairs cannot be removed."
25300IF INSTR(i$,"junk")>0 t$="There is too much pointless junk to collect."
25310ENDIF
25320IF roomno%=308 THEN
25330IF INSTR(i$,"junk")>0 t$="There is too much pointless junk to collect."
25340ENDIF
25350IF roomno%=310 THEN
25360IF INSTR(i$,"table")>0 t$="The table is too heavy."
25370IF INSTR(i$,"woman")>0 OR INSTR(i$,"medium")>0 t$="The old woman is too heavy and weird to start grabbing."
25380ENDIF
25390IF roomno%=311 THEN
25400IF INSTR(i$,"cloud")>0 t$="The clouds fizzle away when you reach for them."
25410IF INSTR(i$,"mist")>0 t$="The mist glides through your fingers."
25420ENDIF
25430IF roomno%=312 THEN
25440IF INSTR(i$,"counter")>0 t$="The counter is too heavy."
25450IF INSTR(i$,"man")>0 t$="The man is the other side of the counter."
25460IF INSTR(i$,"liquid")>0 t$="The liquids are too high up on the wall to reach."
25470ENDIF
25480ENDPROC
25490
25500DEFPROCmuchmorespecific
25510t$="I do not know what you want me to examine."
25520FOR a%=1 TO 2
25530IF police%(a%)=roomno% AND zone%=2 AND INSTR(i$,"man")>0 t$="The policeman is tall and looks at you cauciously."
25540NEXT a%
25550IF INSTR(i$,"cobbles")>0 CASE roomno% OF
25560  WHEN 2,7,15,12,28,42,43 : t$="The cobblestones are cobblestones, rectangular, stoney thingies in the road."
25570ENDCASE
25580IF INSTR(i$,"road")>0 CASE roomno% OF
25590  WHEN 2,7,15,12,28,42,43 : t$="It's a stoney thing that runs from the north of the town to the south."
25600ENDCASE
25610IF INSTR(i$,"fence")>0 CASE roomno% OF
25620  WHEN 57,56,55,53,24,14,15,16,17,18,46,45,44,43,47,65,76,77,78,79,80 : t$="The fence is wooden and runs from the west of the town to the east. It looks untreated and has almost rotted away."
25630ENDCASE
25640IF INSTR(i$,"car")>0 CASE roomno% OF
25650  WHEN 268,269,270,271,272,273,274 : t$="The cars are large, various colours, and are very fast."
25660ENDCASE
25670IF INSTR(i$,"tree")>0 CASE roomno% OF
25680  WHEN 279,286,288,289,290,292 : t$="The trees are tall and healthy. They are covered with foliage."
25690ENDCASE
25700IF roomno%=1 THEN
25710IF INSTR(i$,"amiga")>0 t$="Don't say you've never seen an Amiga! Lucky you!"
25720IF INSTR(i$,"stall")>0 t$="Just the usual market-place stalls, selling all sorts of useless knick-knacks."
25730IF INSTR(i$,"underwear")>0 t$="The underwear is woollen and could be quite itchy."
25740IF INSTR(i$,"people")>0 t$="You can't see a happy soul among them, but you wouldn't be happy if you'd lived in Greater Rollthright all your life."
25750ENDIF
25760IF roomno%=2 AND INSTR(i$,"door")>0 t$="The door is quite large and is the main entrance to the posh house."
25770IF roomno%=3 THEN
25780IF INSTR(i$,"hat stand")>0 t$="What do you want me to say? It's a stand for hats."
25790IF INSTR(i$,"hatstand")>0 t$="What do you want me to say? It's a stand for hats."
25800IF INSTR(i$,"stair")>0 t$="The stairs look quite solid and they lead down to the dark basement."
25810IF INSTR(i$,"wallpaper")>0 t$="The wall-paper is made so that it should look quite convincing, but unfortunately you can tell it was cheap from Texas Homecare."
25820IF INSTR(i$,"chandelier")>0 t$="The chandelier is on the tacky side, but creates a surprising amount of light."
25830ENDIF
25840IF roomno%=4 AND INSTR(i$,"toy")>0 t$="The toys are nothing out of the ordinary and are quite useless to you."
25850IF roomno%=5 THEN
25860IF INSTR(i$,"pen")>0 t$="The pen is just like any other pen. It is used to write things. It is chained to the table."
25870IF INSTR(i$,"form")>0 t$="The form is quite large and has some typed writing on it, it is chained to the table.":IF written%=1 t$+=" It also has some of your unreadable scrawl on it."
25880IF INSTR(i$,"bed")>0 t$="The bed is of the 4-poster variety and its cover is quite breathtaking, it must have taken many long years to get the embroidery on it to such a high quality."
25890IF INSTR(i$,"table")>0 t$="The table is wooden and doesn't look out of the ordinary. On the top of it is chained a form and a pen."
25900ENDIF
25910IF roomno%=8 THEN
25920IF INSTR(i$,"ceiling")>0 t$="The ceiling looks as if it should be in some sort of palace and you could stand for hours gaping at it."
25930IF INSTR(i$,"furniture")>0 t$="The furniture is bulky and nothing terribly wow."
25940IF INSTR(i$,"carpet")>0 t$="The carpet feels more like a layer of rocks, but it does look quite harmless at first sight."
25950ENDIF
25960IF roomno%=9 THEN
25970IF INSTR(i$,"sofa")>0 t$="The sofa is in such a bad condition that you wonder why anyone would want it."
25980IF INSTR(i$,"painting")>0 t$="The painting obviously used to be quite a work of art, but now it is ruined, beyond repair."
25990IF INSTR(i$,"picture")>0 t$="The painting obviously used to be quite a work of art, but now it is ruined, beyond repair."
26000IF INSTR(i$,"portrait")>0 t$="The painting obviously used to be quite a work of art, but now it is ruined, beyond repair."
26010ENDIF
26020IF roomno%=10 THEN
26030IF INSTR(i$,"table")>0 t$="The table is ornately carved out of top-quality wood and looks perfect in this aristocratic room."
26040IF INSTR(i$,"chair")>0 t$="The chairs are almost as beautiful as the table and are neatly sat around it."
26050ENDIF
26060IF roomno%=11 THEN
26070IF INSTR(i$,"plaque")>0 t$="The plaque is golden and has some carefully etched words on it."
26080IF INSTR(i$,"pot")>0 t$="The pots are round and made of dried mud. They contain some plants."
26090IF INSTR(i$,"plant")>0 t$="The plants look dead, probably due to the exciting atmosphere of Greater Rollthright."
26100IF INSTR(i$,"monument")>0 t$="The elaborate stone monument looms over you."
26110ENDIF
26120IF roomno%=13 THEN
26130IF INSTR(i$,"path")>0 t$="The path winds along rather wildly. It is made of crazy-paving."
26140IF INSTR(i$,"paving")>0 t$="The paving is probably done by professionals as you can't fault it."
26150IF INSTR(i$,"tree")>0 t$="The trees are large, but you are unsure of the type. They look especially beautiful with all the blossom on it."
26160IF INSTR(i$,"blossom")>0 t$="The blossom is probably the thing that gives the garden most atmosphere. It lays on the trees, gently swaying in the light breeze."
26170IF INSTR(i$,"garden")>0 t$="The garden is a feast for the eyes and obviously very well looked after."
26180ENDIF
26190IF roomno%=15 THEN
26200IF INSTR(i$,"guard")>0 t$="The guard looks very solemn as he watches your movements carefully."
26210IF INSTR(i$,"gate")>0 t$="The gates are large and are fixed to the fence which runs from the west to the east. The gates are firmly bolted and have a guard watching over them."
26220ENDIF
26230IF roomno%=18 AND INSTR(i$,"sludge")>0 t$="It's hard to see in the poor light conditions, but as far as you can make out the sludge is brown and gooey."
26240IF roomno%=19 AND INSTR(i$,"sign")>0 t$="The sign is painted, but the paint is starting to peel off. It says, 'Better bye from Benjamin the butcher, the Best Beef t'be bort'. Quite a nice tongue twister."
26250IF roomno%=22 AND INSTR(i$,"stair")>0 t$="The stairs look quite solid and they lead up the ground floor."
26260IF roomno%=26 AND INSTR(i$,"window")>0 t$="The window is small and old, but gives enough light for you to see properly."
26270IF roomno%=27 THEN
26280IF INSTR(i$,"crate")>0 t$="It is hard to see the crate in the poor light conditions, but you can make out the fact that it is wooden and quite old, dusty, and maybe mouldy."
26290IF INSTR(i$,"dust")>0 t$="The dust is quite thick and covers not only the crate, but some of the floor as well."
26300ENDIF
26310IF roomno%=29 THEN
26320IF INSTR(i$,"sign")>0 t$="The sign is screwed expertly to the wall. On it is some big, bold lettering."
26330IF INSTR(i$,"baker")>0 t$="The baker is grimey and has a serious weight problem. He doesn't look very happy."
26340IF INSTR(i$,"counter")>0 t$="The counter is quite low and is made out of wood. Behind it stands the baker and on it is a till and a bag."
26350IF INSTR(i$,"loaf")>0 t$="The loaf is the only one left in the shop and although it looks a little dirty and stale it still makes your mouth water."
26360IF INSTR(i$,"bag")>0 t$="The bag is made out of a brown material and looks quite full of something, probably coins. It is on the till."
26370IF INSTR(i$,"till")>0 t$="The till is old and rusty, it probably isn't used by the baker any more. It is on the counter."
26380ENDIF
26390IF roomno%=30 THEN
26400IF INSTR(i$,"butcher")>0 t$="The butcher is tall and looks angry. He is wearing some blood-splattered clothes."
26410IF INSTR(i$,"counter")>0 t$="The counter is to your left and behind it is the butcher."
26420IF INSTR(i$,"meat")>0 t$="The meat looks rather dirty, smells terrible and is dripping with blood."
26430IF INSTR(i$,"blood")>0 t$="It's red, liquidy stuff."
26440IF INSTR(i$,"clothes")>0 t$="The butcher's clothes are grimy and have globules of blood running down them."
26450ENDIF
26460IF roomno%=32 AND INSTR(i$,"wall")>0 t$="The wall is quite large and is sort of... bricky."
26470IF roomno%=33 AND INSTR(i$,"wall")>0 t$="The wall is quite large and is sort of... bricky."
26480IF roomno%=34 THEN
26490IF INSTR(i$,"garden")>0 t$="The garden is a feast for the eyes and obviously very well looked after."
26500IF INSTR(i$,"pond")>0 t$="The pond shimmers gently as it reflects the tired Sun's rays. It makes you feel relaxed."
26510ENDIF
26520IF roomno%=35 THEN
26530IF INSTR(i$,"garden")>0 t$="The garden is a feast for the eyes and obviously very well looked after."
26540IF INSTR(i$,"flower")>0 t$="You have never been good at gardening and have no idea what type of flowers these are, yet they are very pretty and are planted in neat rows."
26550IF INSTR(i$,"bed")>0 t$="The flowerbed is simply gorgeous to look at. The flowers radiate beauty and are obviously well cared for."
26560ENDIF
26570IF roomno%=36 THEN
26580IF INSTR(i$,"path")>0 t$="The path is uneven and made of slabs. It runs from west to east."
26590IF INSTR(i$,"slab")>0 t$="The slabs are grey and uninteresting. They make up the path."
26600ENDIF
26610IF roomno%=37 THEN
26620IF INSTR(i$,"vicar")>0 t$="The vicar is old and frail and sits by the altar, contemplating life."
26630IF INSTR(i$,"altar")>0 t$="The altar is large yet ugly. It is made out of cold stone."
26640IF INSTR(i$,"aisle")>0 t$="The aisle runs from south to north, finishing at the foot of the altar."
26650IF INSTR(i$,"step")>0 t$="The steps are wooden and lead up to the bell room."
26660IF INSTR(i$,"girl")>0 AND crier%=1 t$="The girl blocks your way to the east and she looks quite distressed."
26670IF INSTR(i$,"girl")>0 AND crier%=0 t$="The girl is no longer here."
26680ENDIF
26690IF roomno%=38 THEN
26700IF INSTR(i$,"grass")>0 t$="The grass is long and overgrown."
26710IF INSTR(i$,"headstone")>0 t$="The headstones are well camouflaged by the grass."
26720IF INSTR(i$,"graveyard")>0 t$="The graveyard is long and overgrown."
26730ENDIF
26740IF roomno%=39 THEN
26750IF INSTR(i$,"grass")>0 t$="The grass is short and well watered."
26760IF INSTR(i$,"garden")>0 t$="The garden is well looked after, but in some ways looks synthetic."
26770IF INSTR(i$,"flower")>0 t$="The flowers are also well looked after, but look false in the neat patterns that they are in."
26780IF INSTR(i$,"willow")>0 OR INSTR(i$,"tree")>0 t$="The willow tree is the nicest part of the garden. It blows gently in the breeze."
26790IF INSTR(i$,"path")>0 t$="The path leads eastwards."
26800ENDIF
26810IF roomno%=41 THEN
26820IF INSTR(i$,"headstone")>0 t$="The headstone is covered by grass, but could be readable."
26830IF INSTR(i$,"grass")>0 t$="The grass is long and overgrown."
26840IF INSTR(i$,"graveyard")>0 t$="The graveyard is long and overgrown."
26850ENDIF
26860IF roomno%=49 THEN
26870IF INSTR(i$,"table")>0 t$="The tables are wooden and bulky."
26880IF INSTR(i$,"chair")>0 t$="The chairs are lying all over the place. They are wooden."
26890IF INSTR(i$,"glass")>0 t$="The wine glasses are laid carelessly all over the place."
26900ENDIF
26910IF roomno%=50 THEN
26920IF INSTR(i$,"people")>0 t$="The people are totally drunk and are dancing about trying to sing."
26930IF INSTR(i$,"table")>0 t$="The snooker table is large and has green felt on it. It has no balls or cues."
26940IF INSTR(i$,"felt")>0 t$="The felt is green and is stuck to the snooker table."
26950ENDIF
26960IF roomno%=52 THEN
26970IF INSTR(i$,"bar")>0 t$="The bar is long and continues to the west."
26980IF INSTR(i$,"man")>0 t$="The man is tall and wears a uniform."
26990IF INSTR(i$,"uniform")>0 t$="The uniform is a bow-tie and white shirt."
27000IF INSTR(i$,"bottle")>0 t$="The bottles line the north wall."
27010IF INSTR(i$,"glass")>0 t$="The glasses are just below the bottles and shimmer in the light."
27020ENDIF
27030IF roomno%=60 THEN
27040IF INSTR(i$,"display")>0 t$="The display is large and made of glass. It is displaying some keys."
27050IF INSTR(i$,"key")>0 t$="The keys range from the boring to the elaborate."
27060IF INSTR(i$,"jewel")>0 t$="The jewels glisten beautifully on the keys."
27070ENDIF
27080IF roomno%=62 THEN
27090IF INSTR(i$,"fountain")>0 t$="The fountain is small, yet pretty in appearance."
27100IF INSTR(i$,"water")>0 t$="The water is wet and liquidy."
27110ENDIF
27120IF roomno%=64 THEN
27130IF INSTR(i$,"bar")>0 t$="The bar is long and continues to the east."
27140IF INSTR(i$,"woman")>0 OR INSTR(i$,"barmaid")>0 t$="The bar-maid is standing behind the bar. She is very pretty."
27150IF INSTR(i$,"bottle")>0 t$="The bottles line the north wall."
27160IF INSTR(i$,"glass")>0 t$="The glasses are just below the bottles and shimmer in the light."
27170ENDIF
27180IF roomno%=65 THEN
27190IF INSTR(i$,"barrel")>0 t$="The barrels are large and obtrusive."
27200ENDIF
27210IF roomno%=69 THEN
27220IF INSTR(i$,"counter")>0 t$="The counter is long and is in front of you."
27230IF INSTR(i$,"man")>0 OR INSTR(i$,"keymaker")>0 t$="The keymaker is old and frail."
27240IF INSTR(i$,"spectacle")>0 t$="The spectacles are gold-rimmed. They are on the face of the keymaker"
27250IF INSTR(i$,"sign")>0 t$="The sign has some curly writing on it."
27260ENDIF
27270IF roomno%=70 THEN
27280IF INSTR(i$,"sign")>0 t$="The sign is high up and has some writing on it."
27290ENDIF
27300IF roomno%=220 THEN
27310IF INSTR(i$,"cloud")>0 t$="The clouds are whirling around you. They are multi-coloured."
27320IF INSTR(i$,"smoke")>0 t$="The smoke whirls around you."
27330ENDIF
27340IF roomno%=72 THEN
27350IF INSTR(i$,"man")>0 OR INSTR(i$,"wizard")>0 t$="The wizard is old and frail."
27360IF INSTR(i$,"beard")>0 t$="The beard is white and tatty, it is on the wizard's face."
27370IF INSTR(i$,"cape")>0 t$="The cape has some moons and stars on it."
27380ENDIF
27390IF roomno%=73 THEN
27400IF INSTR(i$,"bottle")>0 t$="The bottles are just bottles."
27410IF INSTR(i$,"powder")>0 t$="The powders are different colours."
27420IF INSTR(i$,"alchemist")>0 OR INSTR(i$,"man")>0 t$="The alchemist is young. He is shaking a bottle at the moment."
27430ENDIF
27440IF roomno%=75 THEN
27450IF INSTR(i$,"junk")>0 t$="The junk is just junk - nothing important."
27460ENDIF
27470IF roomno%=76 THEN
27480IF INSTR(i$,"tramp")>0 OR INSTR(i$,"man")>0 t$="The tramp is old and thin, he looks hungry."
27490IF INSTR(i$,"box")>0 t$="The cardboard box has many rips and it is home for the tramp."
27500ENDIF
27510IF roomno%=78 THEN
27520IF fire%=0 THEN
27530IF INSTR(i$,"char")>0 OR INSTR(i$,"remain")>0 t$="The charred remains are black ashes."
27540ENDIF
27550IF fire%>0 THEN
27560IF INSTR(i$,"boy")>0 t$="The young boy is concentrating on building up his bonfire."
27570IF INSTR(i$,"fire")>0 t$="The bonfire is quite large and is burning well."
27580IF INSTR(i$,"flame")>0 t$="The flames are impressively high."
27590ENDIF
27600ENDIF
27610IF roomno%=81 THEN
27620IF INSTR(i$,"girl")>0 t$="The girls are all dancing at the moment."
27630IF INSTR(i$,"bar")>0 t$="The wooden bars line the wall."
27640ENDIF
27650IF roomno%=82 THEN
27660IF INSTR(i$,"desk")>0 t$="The wooden desk is very bulky."
27670IF INSTR(i$,"woman")>0 t$="The woman is quite old and looks very bitchy."
27680ENDIF
27690IF roomno%=83 THEN
27700IF INSTR(i$,"suitcase")>0 t$="The suitcase is long and thin. It is ":CASE suitcase% OF
27710  WHEN 0 : t$+="closed."
27720  WHEN 1 : t$+="open."
27730ENDCASE
27740IF INSTR(i$,"window")>0 t$="The window is small and old, but gives enough light for you to see properly."
27750ENDIF
27760IF roomno%=84 THEN
27770IF INSTR(i$,"timber")>0 t$="The timber lays all over the floor."
27780IF INSTR(i$,"coffin")>0 t$="The coffin is large and bulky. In it is a boy."
27790IF INSTR(i$,"boy")>0 t$="The boy is young, but looks nearly dead."
27800IF INSTR(i$,"man")>0 t$="The old man is crouching by the coffin. He looks upset."
27810ENDIF
27820IF roomno%=85 THEN
27830IF INSTR(i$,"bar")>0 t$="The bars are to the east, they are thick and painted white.":IF exits(85,2)>0 t$+=" There are a few bars missing, where you have cut some out."
27840IF INSTR(i$,"guard")>0 THEN
27850t$="The guard is surprisingly small and feeble for a guard, he looks quite gullible. By his side is a cup, with some sort of drink in it. "
27860IF drugged%=1 t$+="The guard is asleep at the moment." ELSE t$+="He takes a sip every now and again."
27870ENDIF
27880IF INSTR(i$,"cup")>0 OR INSTR(i$,"drink")>0 t$="The cup is by the guard's side. There is steam gently wavering out from the drink."
27890ENDIF
27900IF roomno%=110 THEN
27910IF INSTR(i$,"notice")>0 t$="The notice is in a corner of the room. It has some writing on it."
27920ENDIF
27930IF roomno%=113 THEN
27940IF INSTR(i$,"pinboard")>0 t$="The pinboard is screwed to the office wall. On it are various notes."
27950IF INSTR(i$,"note")>0 t$="The notes are stuck to the pinboard. Some have writing on them."
27960ENDIF
27970IF roomno%=116 THEN
27980IF INSTR(i$,"table")>0 t$="The table is a regular wooden and sturdy table."
27990ENDIF
28000IF roomno%=122 THEN
28010IF INSTR(i$,"desk")>0 t$="The wooden desk is old and archaic. On it are the usual office nick-nacks, which do not look helpful to your quest."
28020IF INSTR(i$,"chair")>0 t$="The chair is old and wooden, it matches the desk."
28030ENDIF
28040IF roomno%=127 THEN
28050IF INSTR(i$,"sign")>0 t$="The sign is shiney. It has some writing on it."
28060ENDIF
28070IF roomno%=133 OR roomno%=135 THEN
28080IF INSTR(i$,"table")>0 t$="The table is rectangular and wooden, it has nothing of interest on it."
28090IF INSTR(i$,"chair")>0 t$="The chair is wooden and bulky. It sits under the table."
28100ENDIF
28110IF roomno%=179 THEN
28120IF INSTR(i$,"door")>0 THEN
28130t$="The door is large and wooden. "
28140IF exits(179,1)=15 t$+="It is wide open." ELSE t$+="It is locked."
28150ENDIF
28160ENDIF
28170IF roomno%=224 THEN
28180IF INSTR(i$,"sign")>0 t$="The street sign has the words 'PHEONIX STREET' on it."
28190ENDIF
28200IF roomno%=226 THEN
28210IF INSTR(i$,"swing")>0 t$="The swings are very rusty. They are painted red."
28220IF INSTR(i$,"child")>0 t$="The little girl is quite plump. She looks at you inquisitively."
28230IF INSTR(i$,"girl")>0 t$="The little girl is quite plump. She looks at you inquisitively."
28240ENDIF
28250IF roomno%=227 THEN
28260IF INSTR(i$,"slide")>0 t$="The slide is very rusty. It has been painted over with dark blue paint."
28270ENDIF
28280IF roomno%=228 THEN
28290IF INSTR(i$,"sand")>0 t$="The sand is wet, so has joined together in big lumps."
28300IF INSTR(i$,"pit")>0 t$="The sandpit is large and full of wet sand."
28310ENDIF
28320IF roomno%=235 THEN
28330IF INSTR(i$,"car")>0 t$="The cars are reasonably large. One is red and the other is metallic blue."
28340ENDIF
28350IF roomno%=236 THEN
28360IF INSTR(i$,"car")>0 t$="The car is quite small and painted a dull yellow."
28370ENDIF
28380IF roomno%=238 THEN
28390IF INSTR(i$,"car")>0 t$="The car is very clean. It is pure white."
28400ENDIF
28410IF roomno%=248 THEN
28420IF INSTR(i$,"man")>0 t$="The man is quite fat and is Asian. He is standing behind the counter."
28430IF INSTR(i$,"newspaper")>0 OR INSTR(i$,"magazine")>0 t$="The magazines and newspapers line the newsagents."
28440IF INSTR(i$,"counter")>0 t$="The counter is large and has lots of sweets on top."
28450IF INSTR(i$,"sweet")>0 t$="The sweets are various kinds of chocolates, covered with shiny rose-coloured wrapping."
28460ENDIF
28470IF roomno%=249 THEN
28480IF INSTR(i$,"woman")>0 t$="The woman ."
28490IF INSTR(i$,"ornament")>0 OR INSTR(i$,"trophy")>0 OR INSTR(i$,"trophie")>0 OR INSTR(i$,"souvenir")>0 t$="The souvenirs ."
28500ENDIF
28510IF roomno%=250 THEN
28520IF INSTR(i$,"woman")>0 t$="The young woman is almost hidden among her bunches of flowers. She is busy at work arranging some sort of presentation."
28530IF INSTR(i$,"flower")>0 t$="The bunches of flowers are beautiful and very colourful."
28540ENDIF
28550IF roomno%=252 THEN
28560IF INSTR(i$,"monument")>0 t$="The monument is tall and looms over you. It is made of stone, but seems to have eroded a little over the years. On it is a plaque."
28570IF INSTR(i$,"plaque")>0 t$="The plaque, which is screwed to the monument, has some writing on it."
28580ENDIF
28590IF roomno%=253 THEN
28600IF INSTR(i$,"woman")>0 t$="The woman is old and wrinkly. She is very pale and looks seriously ill."
28610IF INSTR(i$,"sofa")>0 t$="The rose-coloured sofa is large and on it lays the groaning old woman."
28620IF INSTR(i$,"antique")>0 t$="The antiques are numerous in this room, they cover almost everything."
28630ENDIF
28640IF roomno%=256 THEN
28650IF INSTR(i$,"fountain")>0 t$="The fountain is old and doesn't even work nowadays."
28660ENDIF
28670IF roomno%=264 THEN
28680IF INSTR(i$,"table")>0 t$="The tables are wooden, with an 'Olde English' style to them."
28690IF INSTR(i$,"chair")>0 t$="The chairs are wooden, with an 'Olde English' style to them."
28700IF INSTR(i$,"dartboard")>0 t$="The dartboard is round and circular. It also has a distinct 2D spherical look to it while at the same time seeming rotund."
28710ENDIF
28720IF roomno%=265 THEN
28730IF INSTR(i$,"table")>0 t$="The tables are wooden, with an 'Olde English' style to them."
28740IF INSTR(i$,"chair")>0 t$="The chairs are wooden, with an 'Olde English' style to them."
28750ENDIF
28760IF roomno%=266 THEN
28770IF INSTR(i$,"bar")>0 t$="The bar is long and wooden. Behind it is the barmaid."
28780IF INSTR(i$,"barmaid")>0 OR INSTR(i$,"woman")>0 t$="The barmaid is young and very pretty. She wears a short black skirt, a white silky blouse and has long blonde hair."
28790IF INSTR(i$,"skirt")>0 t$="The barmaid's black skirt is very short."
28800IF INSTR(i$,"blouse")>0 t$="The barmaid's white blouse is silky and looks delicate."
28810IF INSTR(i$,"hair")>0 t$="The barmaid's long blonde hair cascades over her shoulders."
28820ENDIF
28830IF roomno%=279 THEN
28840IF INSTR(i$,"path")>0 t$="The crazy-paved path leads eastwards, into the church."
28850ENDIF
28860IF roomno%=281 THEN
28870IF INSTR(i$,"man")>0 t$="The man is tall and extremely lanky."
28880IF INSTR(i$,"counter")>0 t$="The counter is large and behind it stands the man."
28890IF INSTR(i$,"leaflet")>0 t$="The leaflets are all over the centre, but look extremely tacky and boring anyhow."
28900ENDIF
28910IF roomno%=284 OR roomno%=297 THEN
28920IF INSTR(i$,"sign")>0 t$="The sign has some writing on it."
28930ENDIF
28940IF roomno%=293 THEN
28950IF INSTR(i$,"bell")>0 t$="The bells are large and would probably make a huge noise."
28960IF INSTR(i$,"rope")>0 t$="The ropes are joined to the bells."
28970ENDIF
28980IF roomno%=294 OR roomno%=295 THEN
28990IF INSTR(i$,"grass")>0 t$="The grass is long and tangled."
29000IF INSTR(i$,"headstone")>0 t$="The headstone is small and eroded away - almost."
29010ENDIF
29020IF roomno%=296 THEN
29030IF INSTR(i$,"altar")>0 t$="The altar is simple and undecorated."
29040IF INSTR(i$,"aisle")>0 t$="The aisle runs from the north of the church to the south. Either side of the aisle are the pews."
29050IF INSTR(i$,"pew")>0 t$="The pews are the seats in the church. They are wooden and well polished."
29060ENDIF
29070IF roomno%=301 THEN
29080IF INSTR(i$,"woman")>0 t$="The woman young and very short. She waits behind the counter."
29090IF INSTR(i$,"counter")>0 t$="The counter is long and bulky. Behind it is the young woman."
29100ENDIF
29110IF roomno%=302 THEN
29120IF INSTR(i$,"ceiling")>0 t$="The ceiling is elaborately decorated and is beautiful to gaze apon."
29130IF INSTR(i$,"woman")>0 OR INSTR(i$,"expert")>0 t$="The old woman is very wrinkled. She looks like an antiques expert."
29140ENDIF
29150IF roomno%=303 THEN
29160IF INSTR(i$,"feather")>0 t$="The feather is large, but you cannot tell what bird it is from."
29170IF INSTR(i$,"picture")>0 OR INSTR(i$,"painting")>0 t$="The painting is a skilled piece of artistic expression. It shows a woman in eighteenth century dress. Under the painting is a plaque."
29180IF INSTR(i$,"plaque")>0 t$="The plaque is gold-plated and has some writing on it."
29190ENDIF
29200IF roomno%=304 THEN
29210IF INSTR(i$,"bed")>0 t$="The bed is of the 4-poster variety and has some impressive embroidery on the fabric."
29220IF INSTR(i$,"table")>0 t$="The table is elaborately carved out of sturdy wood."
29230IF INSTR(i$,"chair")>0 t$="The chairs are elaborately carved out of sturdy wood."
29240ENDIF
29250IF roomno%=305 THEN
29260IF INSTR(i$,"door")>0 t$="The door is to the south. It has some large red writing on it."
29270IF INSTR(i$,"guard")>0 t$="The tired-looking guard is short, but stocky."
29280ENDIF
29290IF roomno%=306 THEN
29300IF INSTR(i$,"stairs")>0 t$="The stairs lead downwards."
29310ENDIF
29320IF roomno%=307 THEN
29330IF INSTR(i$,"stairs")>0 t$="The stairs lead upwards."
29340IF INSTR(i$,"junk")>0 t$="The junk lays across the floor, getting in your way."
29350ENDIF
29360IF roomno%=308 THEN
29370IF INSTR(i$,"junk")>0 t$="The junk lays across the floor, getting in your way."
29380ENDIF
29390IF roomno%=310 THEN
29400IF INSTR(i$,"table")>0 t$="The table is wooden and looks sturdy."
29410IF INSTR(i$,"woman")>0 OR INSTR(i$,"medium")>0 t$="The old woman looks like a medium. She is sitting at her table chanting."
29420ENDIF
29430IF roomno%=311 THEN
29440IF INSTR(i$,"cloud")>0 t$="The clouds swirl about in internal chaos."
29450IF INSTR(i$,"mist")>0 t$="The mist fades in and out of view, mesmerising you."
29460ENDIF
29470IF roomno%=312 THEN
29480IF INSTR(i$,"counter")>0 t$="The counter is long and wooden. Behind it is a young man."
29490IF INSTR(i$,"man")>0 t$="The man looks lively and eager to serve you."
29500IF INSTR(i$,"liquid")>0 t$="The liquids line the room. They are all various colours."
29510ENDIF
29520IF INSTR(i$,"handkerchief")>0 AND FNgotorhere("handkerchief")=1 t$="It's a delicate silk handkerchief, carefully made for only the richest of customers."
29530IF INSTR(i$,"key")>0 AND FNgotorhere("key")=1 t$="It's a silver key and is surprisingly heavy."
29540IF INSTR(i$,"book")>0 AND FNgotorhere("book")=1 t$="It is an expertly bound book with a tanned leather cover. It has yellowing pages inside."
29550IF INSTR(i$,"pill")>0 AND FNgotorhere("pill")=1 t$="It is small, dusty and round. You presume it must be a sleeping tablet."
29560IF INSTR(i$,"novel")>0 AND FNgotorhere("novel")=1 t$="The novel is a cheap, second-hand book that looks as if it has been very well read."
29570IF INSTR(i$,"truck")>0 AND FNgotorhere("truck")=1 t$="This toy is a plastic dumper-truck and looks as if it has hardly been touched."
29580IF INSTR(i$,"doll")>0 AND FNgotorhere("doll")=1 t$="This toy used to be an extremely elegant girl's toy, but now it looks slightly battered with a massive indent on its head."
29590IF INSTR(i$,"sweet")>0 AND FNgotorhere("sweet")=1 t$="The sweet looks edible if you ignore the layers of fluff."
29600IF INSTR(i$,"bear")>0 AND FNgotorhere("bear")=1 t$="This toy is just so cute that you want to pick it up and cuddle it forever."
29610IF INSTR(i$,"cushion")>0 AND FNgotorhere("cushion")=1 t$="The cushion is horribly pink and over-decorated compared to the piece of furniture it used to be on."
29620IF INSTR(i$,"apple")>0 AND FNgotorhere("apple")=1 t$="The apple is large and looks very appealing."
29630IF INSTR(i$,"feather")>0 AND FNgotorhere("feather")=1 t$="The feather is quite long and very soft to touch. You cannot tell what bird it is from."
29640IF INSTR(i$,"can")>0 AND FNgotorhere("can")=1 t$="The can is made of metal and is totally empty."
29650IF INSTR(i$,"wheel")>0 AND FNgotorhere("wheel")=1 t$="The wheel is wooden and is sort of roundish."
29660IF INSTR(i$,"breadcrumb")>0 AND FNgotorhere("breadcrumb")=1 t$="The breadcrumb is made out of wholemeal bread and looks quite clean."
29670IF INSTR(i$,"mouse")>0 AND FNgotorhere("mouse")=1 t$="The mouse doesn't look damaged in any way, it must have just died of a heart attack or something similar."
29680IF INSTR(i$,"bottle")>0 AND FNgotorhere("bottle")=1 AND fire%=1 t$="The bottle is made out of green glass and reeks of meths. It feels about half-full."
29690IF INSTR(i$,"bible")>0 AND FNgotorhere("bible")=1 t$="The bible is small, dusty and smells as old bibles do."
29700IF INSTR(i$,"blob")>0 AND FNgotorhere("blob")=1 t$="The blob is fairly firm, but very mouldable, ideal to make impressions with."
29710IF INSTR(i$,"newt")>0 AND FNgotorhere("newt")=1 t$="The newt is green and slimy. It is undoubtably dead."
29720IF INSTR(i$,"wand")>0 AND FNgotorhere("wand")=1 t$="The wand is made of some sort of unrecognisable wood. It is painted black, with white ends on - just like Sooty's."
29730IF INSTR(i$,"spade")>0 AND FNgotorhere("spade")=1 t$="The spade is spade-like, surprisingly."
29740IF INSTR(i$,"note")>0 AND FNgotorhere("note")=1 t$="The note is just a few lines of scribble on a piece of white paper."
29750IF INSTR(i$,"pamphlet")>0 AND FNgotorhere("pamphlet")=1 t$="The pamphlet is a professional guide to playing snooker. It is quite thin, and looks interesting."
29760IF INSTR(i$,"plan")>0 AND FNgotorhere("plan")=1 t$="The plan is a piece of paper with a few sketches and a few lines of writing."
29770IF INSTR(i$,"medal")>0 AND FNgotorhere("medal")=1 t$="The medal is small but heavy. On it is enscribed: Carol-Ann Smithe, beauty award winner."
29780IF INSTR(i$,"coin")>0 AND FNgotorhere("coin")=1 t$="The coin is circular and made of a silver-coloured metal."
29790IF INSTR(i$,"whisky")>0 AND FNgotorhere("whisky")=1 t$="The whisky is brown and liquidy."
29800IF INSTR(i$,"spell")>0 AND FNgotorhere("spell")=1 t$="The spell is just a piece of yellowing paper with a few complicated symbols on."
29810IF INSTR(i$,"potion")>0 AND FNgotorhere("potion")=1 t$="The potion is a glass bottle with a green viscous liquid inside."
29820IF INSTR(i$,"bone")>0 AND FNgotorhere("bone")=1 t$="The bone is from a human, it is probably a leg bone."
29830IF INSTR(i$,"hacksaw")>0 AND FNgotorhere("hacksaw")=1 t$="The hacksaw is a small serrated blade with a large handle."
29840IF INSTR(i$,"cup")>0 AND FNgotorhere("cup")=1 t$="The cup is made of china and is white."
29850IF INSTR(i$,"cue")>0 AND FNgotorhere("cue")=1 t$="The cue is a long piece of crafted wood, with a little chalked end on it. It is used for playing snooker."
29860IF INSTR(i$,"wig")>0 AND FNgotorhere("wig")=1 t$="The wig is a realistic aid to covering up baldness."
29870IF INSTR(i$,"badge")>0 AND FNgotorhere("badge")=1 t$="The badge is a piece of metal with a pin in the back. On it is enscribed, 'POLICE FORCE'."
29880IF INSTR(i$,"cap")>0 AND FNgotorhere("cap")=1 t$="The cap is a smart, blue coloured police cap."
29890IF INSTR(i$,"poster")>0 AND FNgotorhere("poster")=1 t$="The poster has a few illustrations, symbolising great power, and the words 'BORIS IS BEST' are written at the bottom."
29900IF INSTR(i$,"lolly")>0 AND FNgotorhere("lolly")=1 t$="The lolly is orange and sticky."
29910IF INSTR(i$,"aspirin")>0 AND FNgotorhere("aspirin")=1 t$="The aspirin is circular and white."
29920IF INSTR(i$,"bottle")>0 AND FNgotorhere("bottle")=1 AND fire%=0 t$="The bottle is brown, and on it is a label which reads; 'PENICILLIN'."
29930IF INSTR(i$,"gravestone")>0 AND FNgotorhere("gravestone")=1 t$="The gravestone, or the chunk of it, is very old and the writing on it is no longer readable."
29940IF INSTR(i$,"flannel")>0 AND FNgotorhere("flannel")=1 t$="The dripping flannel is dark blue and very damp."
29950IF INSTR(i$,"flower")>0 AND FNgotorhere("flower")=1 t$="The flower is blue and small. It smells rather sweet."
29960IF INSTR(i$,"bouquet")>0 AND FNgotorhere("bouquet")=1 t$="The bouquet is large and flamboyant. The vast range of flowers in it make it look rather spectacular."
29970IF INSTR(i$,"ornament")>0 AND FNgotorhere("ornament")=1 t$="The ornament is old and delicate. It is in the shape of some Greek Goddess."
29980IF INSTR(i$,"penknife")>0 AND FNgotorhere("penknife")=1 t$="The vibrant, red, Swiss Army penknife has open blade already. It could cut you easily if you were not careful."
29990IF INSTR(i$,"purse")>0 AND FNgotorhere("purse")=1 t$="The purse is black and small. The zip on it is stuck, and seems impossible to open, yet you can hear some money jingle about in it whne you shake it."
30000IF INSTR(i$,"prescription")>0 AND FNgotorhere("prescription")=1 t$="The prescription is a sheet of paper which has some writing on it. It seems unreadable, but then most prescriptions do."
30010IF INSTR(i$,"cheque")>0 AND FNgotorhere("cheque")=1 t$="The cheque is blank except for the signiture. Someone has been very foolish in losing that!"
30020PROCadd(t$)
30030ENDPROC
30040
30050DEFPROCwhatgot(objt$)
30060t$="You now have the "+objt$+"."
30070CASE objt$ OF
30080  WHEN "handkerchief" : IF roomno%=1 t$="You pick up the delicate silk handkerchief from the pavement, wipe it clean with your sleeve, and place it carefully in your pocket."
30090  WHEN "apple" : t$="You pick up the apple, shine it a little with your sleeve, then place it in your pocket."
30100  WHEN "mouse" : t$="You carefully pick up the mouse, you relax as soon as you see that it is dead."
30110  WHEN "cap" : t$="You pick up the cap and place it on your head."
30120  WHEN "badge" : t$="You pin the badge onto your clothes."
30130  WHEN "wig" : t$="You place the wig over your normal hair."
30140  WHEN "flannel" : t$="You pick up the wet flannel, some of the water runs down your arm."
30150  WHEN "penknife" : t$="You grab the penknife, but too quickly. You cut your hand on the open blade.":injure%=1
30160ENDCASE
30170PROCadd(t$)
30180ENDPROC
30190
30200DEFPROCunlock
30210IF INSTR(i$,"gate")>0 PROCadd("The gates are firmly bolted."):ENDPROC
30220IF INSTR(i$,"door")=0 PROCadd("You cannot unlock that!"):ENDPROC
30230IF roomno%=305 PROCadd("The door is already unlocked."):ENDPROC
30240IF roomno%<>2 AND roomno%<>179 PROCadd("There is nothing to unlock."):ENDPROC
30250IF FNgotorhere("key")=0 PROCadd("You have nothing to unlock the door with."):ENDPROC
30260IF roomno%=2 AND exits(2,2)=3 PROCadd("The door is all ready unlocked."):ENDPROC
30270IF roomno%=2 PROCadd("You put the key into the lock and turn carefully. The door swings open."):exits(2,2)=3:wimp%!0=maphan%:PROCredrawmap
30280IF roomno%=179 AND exits(179,1)=15 PROCadd("The door is all ready unlocked."):ENDPROC
30290IF roomno%=179 PROCadd("You put the key into the lock and turn carefully. The door swings open."):exits(179,1)=15:PROCremkey:wimp%!0=maphan%:PROCredrawmap
30300ENDPROC
30310
30320DEFPROClock
30330IF INSTR(i$,"gate")>0 PROCadd("The gates are already bolted."):ENDPROC
30340IF INSTR(i$,"door")=0 PROCadd("You cannot lock that!"):ENDPROC
30350IF roomno%=305 PROCadd("You have nothing to lock the door with."):ENDPROC
30360IF roomno%<>2 AND roomno%<>179 PROCadd("There is nothing to lock."):ENDPROC
30370IF FNgotorhere("key")=0 PROCadd("You have nothing to lock the door with."):ENDPROC
30380IF roomno%=2 AND exits(2,2)=0 PROCadd("The door is all ready locked."):ENDPROC
30390IF roomno%=2 PROCadd("You close the door, put the key into the lock and turn carefully. It clicks into place."):exits(2,2)=0:wimp%!0=maphan%:PROCredrawmap
30400IF roomno%=179 AND exits(179,1)=0 PROCadd("The door is all ready locked."):ENDPROC
30410IF roomno%=179 PROCadd("You no longer have the key to do that.")
30420ENDPROC
30430
30440DEFPROCask
30450t$="There is no response."
30460person$=MID$(i$,5,INSTR(i$,"about")-6)
30470subject$=MID$(i$,INSTR(i$,"about")+6,200)
30480IF LEFT$(subject$,4)="the " subject$=MID$(subject$,5,200)
30490IF subject$="" OR person$="" OR subject$=" " OR person$=" " PROCadd("Please use 'ask <someone> about <something>.'"):ENDPROC
30500IF roomno%=1 THEN
30510IF INSTR(person$,"person")>0 OR INSTR(person$,"man")>0 OR INSTR(person$,"stallholder")>0 OR INSTR(person$,"people")>0 OR INSTR(person$,"someone")>0 OR INSTR(person$,"anyone")>0 CASE subject$ OF
30520WHEN "gorm" : t$="'Isn't that a type of cheese?' someone shouts out."
30530WHEN "amiga","amigas" : t$="'Great computers, mate, they really are,' says the stallholder."
30540WHEN "stall","stalls" : t$="'Well, they're here aren't they?' someone says."
30550WHEN "market" : t$="'The market's here every Wednesday,' someone says."
30560WHEN "butcher","butchers" : t$="'The butcher's just sort of south-westish from here,' says someone."
30570WHEN "baker","bakers" : t$="'The baker's sort of westish from here,' says someone."
30580WHEN "fence" : t$="'That large fence has been there ever since I can remember,' says someone."
30590WHEN "guard" : t$="'You'll never b'able t'get past that guard,' someone says."
30600WHEN "quest","adventure" : t$="'Tis probably t'shut-up and leave us in peace,' someone says."
30610WHEN "vicar" : t$="'Lovely old vicar, he is, but ever so quiet,' someone whispers."
30620WHEN "church" : t$="'That church is the prettiest thing I've ever seen,' says someone proudly."
30630WHEN "house" : t$="'Y'mean that quaint little house over there, don't you? Dead posh it is,' someone says."
30640OTHERWISE : t$="'Don't know what you're on about, mate,' someone shouts."
30650ENDCASE
30660ENDIF
30670IF roomno%=15 THEN
30680IF INSTR(person$,"guard")>0 CASE subject$ OF
30690WHEN "gorm" : t$="'Well, it stands for 'Golfing Or Rounders Maniacs, doesn't it,' he replies."
30700WHEN "quest","adventure" : t$="'Haven't got a clue about that,' he says."
30710WHEN "gate" : t$="'I'm not letting you through,' he says."
30720WHEN "fence" : t$="'Tis there to stop idiots like you from getting out,' he replies."
30730OTHERWISE : t$="'I'm on duty s'go away,' he says moodily."
30740ENDCASE
30750ENDIF
30760IF roomno%=29 THEN
30770IF INSTR(person$,"baker")>0 CASE subject$ OF
30780WHEN "gorm" : t$="'Well, tis 'morg' spelt backwards, isn't it,' he replies."
30790WHEN "quest","adventure" : t$="'Well how should I know?' he says."
30800WHEN "butcher","butchers" : t$="'He's next door,' he says."
30810WHEN "loaf" : t$="'That loaf is perfectly edible,' he replies."
30820WHEN "bread" : t$="'There's nothing wrong with my bread s'don't start complainin',' he replies."
30830OTHERWISE : t$="'Just buy something or leave,' he says grumpily."
30840ENDCASE
30850ENDIF
30860IF roomno%=30 THEN
30870IF INSTR(person$,"butcher")>0 CASE subject$ OF
30880WHEN "gorm" : t$="'Well, tis an anagram of 'orgm', isn't it,' he replies."
30890WHEN "quest","adventure" : t$="'Well how should I know?' he says."
30900WHEN "baker","bakers" : t$="'He's next door,' he says."
30910WHEN "meat" : t$="'That meat is perfectly edible, it tastes lovely,' he replies."
30920WHEN "blood" : t$="'Lovely, red an' juicy and it tastes gorgeous,' he replies."
30930OTHERWISE : t$="'Just buy some meat or leave,' he says grumpily."
30940ENDCASE
30950ENDIF
30960IF roomno%=37 THEN
30970IF INSTR(person$,"vicar")>0 CASE subject$ OF
30980WHEN "gorm" : t$="'It's one of God's wonderous creatures,' he replies."
30990WHEN "quest","adventure" : t$="'Ask God, he will know,' he says."
31000WHEN "god" : t$="'He's the supreme being,' he says."
31010WHEN "church" : t$="'The church is God's house,' he replies."
31020WHEN "girl" : t$="'The girl is upset because I buried her father earlier,' he replies."
31030WHEN "father" : t$="'The girl's father was a scoundrel anyway, no great loss,' he replies."
31040OTHERWISE : t$="'I must continue with my praying,' he says calmly."
31050ENDCASE
31060IF INSTR(person$,"girl")>0 AND crier%=1 CASE subject$ OF
31070WHEN "father","death","dad","daddy" : t$="'He was th'best Daddy anyone could 'ave,' she sobs."
31080OTHERWISE : t$="'Just leave m'alone,' she wails."
31090ENDCASE
31100ENDIF
31110IF roomno%=50 THEN
31120IF INSTR(person$,"people")>0 OR INSTR(person$,"someone")>0 OR INSTR(person$,"somebody")>0 CASE RND(4) OF
31130WHEN 1 : t$="'La la laa la la,' they wail."
31140WHEN 2 : t$="'Dah dee dum dum daa,' they sing."
31150WHEN 3 : t$="'Bbbuuuuurrrrrppppp,' someone belches."
31160WHEN 4 : t$="'Huh?' someone says."
31170ENDCASE
31180ENDIF
31190IF roomno%=52 THEN
31200IF INSTR(person$,"man")>0 CASE subject$ OF
31210WHEN "gorm" : t$="'They're Gorgeous Outings for Repairers of Machines,' he replies."
31220WHEN "quest","adventure" : t$="'Could b'anything,' he says."
31230WHEN "beer","alcohol","drink" : t$="'Y'can order some alc'ol if y'want to,' he says."
31240WHEN "pub" : t$="'Been here for ages it has,' he replies."
31250WHEN "barmaid","woman","carol","carolann","carolann smithe" : t$="'She's just over there,' he says pointing west, 'fancy her do you?'"
31260OTHERWISE : t$="'Would y'like to order?' he says."
31270ENDCASE
31280ENDIF
31290IF roomno%=64 THEN
31300IF INSTR(person$,"woman")>0 OR INSTR(person$,"barmaid")>0 CASE subject$ OF
31310WHEN "gorm" : t$="'Could stand for 'Goluptious Obmutescence of Ramified Moschatels', couldn't it?' she asks innocently."
31320WHEN "quest","adventure" : t$="'I don't know luv,' she says."
31330WHEN "beer","alcohol","drink" : t$="'Y'can order some alc'ol if y'want to,' she says."
31340WHEN "pub" : t$="'Right ancient this building is,' she replies."
31350WHEN "man" : t$="'He's just over there,' she says pointing east."
31360WHEN "carol","carolann","carolann smithe" : t$="'That's me!' she exclaims."
31370WHEN "medal" : t$="'You mean my beauty award, so proud of that, I am,' she says."
31380OTHERWISE : t$="'Would y'like to order?' she says."
31390ENDCASE
31400ENDIF
31410IF roomno%=69 THEN
31420IF INSTR(person$,"man")>0 OR INSTR(person$,"keymaker")>0 CASE subject$ OF
31430WHEN "blob" : t$="'That blob's for moulding for keys y'know,' he says."
31440WHEN "gorm" : t$="'Gruesome Organising of Rhubarb Mating, that is,' he says."
31450WHEN "quest","adventure" : t$="'Probably t'get me some work to do,' he says."
31460WHEN "key" : t$="'Keys are for opening doors y'know,' he says helpfully."
31470WHEN "display" : t$="'That's my pride and joy,' he says proudly."
31480OTHERWISE : t$="'I'd luv to 'ave some work t'do. I'd do it for free y'know, I need the practice,' the old man says hopefully."
31490ENDCASE
31500ENDIF
31510IF roomno%=72 THEN
31520IF INSTR(person$,"wizard")>0 OR INSTR(person$,"man")>0 CASE subject$ OF
31530WHEN "spell","potion","wand" : t$="'The "+subject$+" would help me to make a timewarp,' he says."
31540WHEN "gorm","quest","adventure" : t$="'My goodness, I don't know!' he says."
31550WHEN "timewarp","time travel","timetravel" : t$="'I'd love to discover time travel,' he says longingly."
31560OTHERWISE : t$="'I'm on the verge of discovering time travel, y'know, if only I had the right resources,' he says."
31570ENDCASE
31580ENDIF
31590IF roomno%=73 THEN
31600IF INSTR(person$,"man")>0 OR INSTR(person$,"alchemist")>0 CASE subject$ OF
31610WHEN "gorm" : t$="'Gordon's Organic and Rural Muck-spreader, that is,' he says."
31620WHEN "quest","adventure" : t$="'Probably t'get me a newt for my potion,' he says."
31630WHEN "potion" : t$="'I don't know what they do, but they're pretty colours,' he says helpfully."
31640WHEN "newt" : t$="'That's what I need for my potions,' he says."
31650OTHERWISE : t$="'I'd luv to 'ave a newt for my new potion,' the alchemist says."
31660ENDCASE
31670ENDIF
31680IF roomno%=76 THEN
31690IF INSTR(person$,"man")>0 OR INSTR(person$,"tramp")>0 t$="'My God, I'm 'ungry,' the tramp mumbles."
31700ENDIF
31710IF roomno%=78 AND fire%>0 THEN
31720IF INSTR(person$,"boy")>0 CASE subject$ OF
31730WHEN "fire","bonfire" : t$="'I built and lit it myself, y'know,' he says."
31740WHEN "gorm" : t$="'Ganging against Obscene and Repulsive Maniacs, that is,' he says."
31750WHEN "quest","adventure" : t$="'Make m'fire burn better,' he says."
31760OTHERWISE : t$="'Do y'ave anything for m'fire?' the boy asks."
31770ENDCASE
31780ENDIF
31790IF roomno%=82 THEN
31800IF INSTR(person$,"woman")>0 CASE subject$ OF
31810WHEN "medal" : t$="'I found it on the road once,' she says."
31820WHEN "gorm" : t$="'Sounds like an abbreviation to me,' she says."
31830WHEN "quest","adventure" : t$="'It's to stop wasting my time,' she says."
31840WHEN "ballet","ballet school","school" : t$="'Well I'm trying to run the ballet school now,' she says."
31850WHEN "feather","performance","swan lake" : t$="'The performance had better go well now,' she says."
31860OTHERWISE : t$="'I suggest that you don't waste my time,' she says."
31870ENDCASE
31880ENDIF
31890IF roomno%=84 THEN
31900IF INSTR(person$,"man")>0 CASE subject$ OF
31910WHEN "boy","coffin" : t$="'The boy's not actually dead, but he nearly is,' he says."
31920WHEN "gorm","quest","adventure":PROCadd("'They said you would come!' he exclaims. You stay there as the man raves on.")
31930PROCadd("'The kingdom is in danger, the land will soon be ruled by an evil and cruel prince named Boris,' he says. 'He's going to create turmoil. We call it project GORM - Genocidal Organisation of the Release of the Maelstrom'.")
31940PROCadd("'My powerful, but now poisoned son could stop project GORM if he could be made better. The prophets told of an adventurer who would come t'save us and release the land of evil, that adventurer must be you'.")
31950t$="'I know that someone in the village is near to perfecting the art of time travel, something which you must use to voyage into the future and bring back a medecine for my son. You must hurry'."
31960OTHERWISE : t$="'Oh if only someone would help me!' the old man wails."
31970ENDCASE
31980ENDIF
31990IF roomno%=85 THEN
32000IF INSTR(person$,"guard")>0 CASE subject$ OF
32010WHEN "gorm" : t$="'Well, tis a shortened spelling of the great book, Gormengast,' he replies."
32020WHEN "drink","cup" : t$="'Lovely, my drink is,' he says."
32030WHEN "jail" : t$="'I love working here, it's so homely and warm,' he says."
32040OTHERWISE : t$="'I shouldn't really talk to you,' he says dutifully."
32050ENDCASE
32060IF INSTR(person$,"guard")>0 AND drugged%=1 t$="The guard snores a little."
32070ENDIF
32080IF zone%=2 THEN
32090z%=0:IF police%(1)=roomno% z%=1
32100IF police%(2)=roomno% z%=1
32110IF z%=1 AND INSTR(person$,"man")>0 CASE subject$ OF
32120WHEN "gorm" : t$="'Gormandizers are gluttons, if that helps,' he replies."
32130WHEN "jail" : t$="'I hate this place - it's so cold and unwelcoming,' he says."
32140WHEN "maze" : t$="'That's there to prevent prisoners from escaping,' he replies."
32150OTHERWISE : t$="'I must get going,' he says."
32160ENDCASE
32170ENDIF
32180IF roomno%=226 THEN
32190IF INSTR(person$,"child")>0 OR INSTR(person$,"girl")>0 t$="The little girls tells you that she shouldn't talk to strangers."
32200ENDIF
32210IF roomno%=248 THEN
32220IF INSTR(person$,"man")>0 CASE subject$ OF
32230WHEN "gorm","quest": t$="'I'm afraid I only know about magazines or newspapers,' he replies."
32240WHEN "magazine","newspaper" : t$="'They're things you read,' he says."
32250OTHERWISE : t$="'Are you going to buy a newspaper or what?' he says agressively."
32260ENDCASE
32270ENDIF
32280IF roomno%=249 THEN
32290IF INSTR(person$,"woman")>0 CASE subject$ OF
32300WHEN "gorm","quest": t$="'Find me some more ornaments, probably,' she replies."
32310WHEN "ornaments","souvenirs","trophies" : t$="'They're my pride and joy,' she says proudly."
32320OTHERWISE : t$="'Do you like my collection of ornaments?' she asks you."
32330ENDCASE
32340ENDIF
32350IF roomno%=250 THEN
32360IF INSTR(person$,"woman")>0 CASE subject$ OF
32370WHEN "gorm","quest": t$="'Help me with my arranging, probably,' she replies."
32380WHEN "bouquet","flower","flowers" : t$="'I do love flower arranging,' she says proudly."
32390WHEN "arranging": t$="'I've been flower arranging since I was five,' she replies."
32400OTHERWISE:t$="'I don't suppose you could help me find some more flowers could you?' she asks."
32410ENDCASE
32420ENDIF
32430IF roomno%=253 THEN
32440IF INSTR(person$,"woman")>0 CASE subject$ OF
32450WHEN "gorm","quest": t$="'Help me get better, probably,' she replies."
32460WHEN "prescription": t$="'Can you take it to the Chemists?, I need my medication,' she replies."
32470OTHERWISE:t$="'Oooooh, I feel ill', she grumbles."
32480ENDCASE
32490ENDIF
32500IF roomno%=266 THEN
32510IF INSTR(person$,"woman")>0 OR INSTR(person$,"barmaid")>0 t$="'Would you like to order a drink, sir?', she asks."
32520ENDIF
32530IF roomno%=281 THEN
32540IF INSTR(person$,"man")>0 CASE subject$ OF
32550WHEN "gorm","quest": t$="'Dunno, sorry,' he replies."
32560WHEN "leaflets","town":t$="'The leaflets will tell yuh about the town,' he replies."
32570OTHERWISE:t$="'Can I 'elp yuh?', he inquires."
32580ENDCASE
32590ENDIF
32600IF roomno%=301 THEN
32610IF INSTR(person$,"woman")>0 CASE subject$ OF
32620WHEN "gorm","quest": t$="'Dunno, sorry,' she replies."
32630WHEN "museum","payment","entry","paying":t$="'You need to pay me with something if you are to look around the museum,' she replies."
32640OTHERWISE:t$="'Can I 'elp yuh?', she inquires."
32650ENDCASE
32660ENDIF
32670IF roomno%=302 THEN
32680IF INSTR(person$,"woman")>0 CASE subject$ OF
32690WHEN "gorm","quest": t$="'I do not know, I am dreadfully sorry,' she replies."
32700WHEN "museum" : t$="'It really is the most truly wonderful museum,' she replies."
32710WHEN "doll" : t$="'Dolls are my favourite examples of ancient toys,' she replies."
32720WHEN "ornament" : t$="'The ornament has great value,' she replies."
32730OTHERWISE:t$="'How may I be of assistance to you, sir?', she inquires."
32740ENDCASE
32750ENDIF
32760IF roomno%=305 THEN
32770IF INSTR(person$,"guard")>0 OR INSTR(person$,"man")>0 t$="'I am not allowed to talk on my job, sir', he says formally."
32780ENDIF
32790IF roomno%=310 THEN
32800IF INSTR(person$,"woman")>0 OR INSTR(person$,"medium")>0 CASE subject$ OF
32810WHEN "gorm","quest": t$="'I do not know, I'm terribly sorry,' she replies."
32820WHEN "payment","paying" : t$="'I need some payment for any services,' she replies."
32830WHEN "gravestone","doll" : t$="'Well, "+subject$+"s are good examples of links with the past,' she replies."
32840WHEN "timetravel","magic" : t$="'What are you on about?' she asks."
32850OTHERWISE:t$="'If you need any of my services', the medium says, 'I will need payment and some sort of link with the past'."
32860ENDCASE
32870ENDIF
32880IF roomno%=312 THEN
32890IF INSTR(person$,"man")>0 OR INSTR(person$,"chemist")>0 CASE subject$ OF
32900WHEN "prescription","bottle" : t$="'Penicillin, that is,' he replies."
32910WHEN "penicillin" : t$="'Useful medicine, Penicillin is, very powerful indeed', he says."
32920OTHERWISE:t$="'Do you have any sort of prescription for me?' he says."
32930ENDCASE
32940ENDIF
32950PROCadd(t$)
32960ENDPROC
32970
32980DEFPROCremkey
32990FOR z%=1 TO 10
33000IF owns$(z%)="key" owns$(z%)=""
33010IF objects$(roomno%,z%)="key" objects$(roomno%,z%)=""
33020NEXT z%
33030ENDPROC
33040
33050DEFPROCgive
33060gotta%=0
33070FOR g=1 TO 10
33080IF owns$(g)<>"" AND INSTR(i$,owns$(g))>0 gotta%=1:ojt%=g
33090NEXT g
33100IF gotta%=0 CASE RND(3) OF
33110  WHEN 1 : PROCadd("You do not have such an object.")
33120  WHEN 2 : PROCadd("You cannot find that object to give.")
33130  WHEN 3 : PROCadd("You can't give something that you haven't got.")
33140  ENDCASE
33150IF gotta%=1 THEN
33160CASE roomno% OF
33170WHEN 1 : t$="The stallholder accepts the "+owns$(ojt%)+" and says 'thank you'.":owns$(ojt%)=""
33180WHEN 15 : t$="The guard takes the "+owns$(ojt%)+", looks at it then throws it away.":owns$(ojt%)=""
33190WHEN 29 : t$="The baker takes the "+owns$(ojt%)+" and says nothing.":owns$(ojt%)=""
33200WHEN 30 : t$="The butcher takes the "+owns$(ojt%)+" and says nothing.":owns$(ojt%)=""
33210WHEN 37 : IF crier%=1 AND INSTR(i$,"vicar")=0 AND owns$(ojt%)="handkerchief" t$="The girl takes the handkerchief, wipes away her tears, murmurs a 'thanks' and runs off.":owns$(ojt%)="":crier%=0 ELSE t$="Your gift is rejected."
33220WHEN 50 : IF owns$(ojt%)="cue" THEN
33230owns$(ojt%)=""
33240PROCadd("The people take the cue from you. Let's have a game, they say as one person takes some balls out of their jacket. You have no choice but to agree.")
33250IF pamp%=1 t$="You beat them easily with your newly-found snooker knowledge and they give you a coin as a prize.":owns$(ojt%)="coin"
33260IF pamp%=0 t$="You soon realise that you are totally rubbish at playing snooker, and the humiliation when you lose is too much to bare, you have to get out of here."
33270ELSE t$="The people take the "+owns$(ojt%)+", burp, then throw it away.":owns$(ojt%)=""
33280ENDIF
33290WHEN 52 : IF owns$(ojt%)="coin" THEN
33300t$="'Alright, that'll do me. Here, here's a whisky,' he says. He places the whisky in your hand."
33310owns$(ojt%)="whisky"
33320ELSE t$="The man takes the "+owns$(ojt%)+" and says, 'well, y'won't get a drink for that!'.":owns$(ojt%)=""
33330ENDIF
33340WHEN 64 : IF owns$(ojt%)="medal" THEN
33350t$="'My medal!' she shouts, 'where d'you find that? I've been looking for't for ages, look, here's something t'say thanks.' She places a wand in your hand."
33360owns$(ojt%)="wand"
33370ELSE t$="The bar-maid takes the "+owns$(ojt%)+", looks at it then throws it in a bin.":owns$(ojt%)=""
33380ENDIF
33390WHEN 69 : IF owns$(ojt%)="blob" AND mould%=1 THEN
33400t$="The old man looks delighted at some work to do - he grabs the blob, and in ten minutes he returns with a brand new key. He places it in your hand.":owns$(ojt%)="key"
33410ELSE t$="The old man takes the "+owns$(ojt%)+" and throws it behind him.":owns$(ojt%)=""
33420ENDIF
33430WHEN 72 : IF owns$(ojt%)="spell" OR owns$(ojt%)="wand" OR owns$(ojt%)="potion" THEN
33440t$="The wizard throws up his arms, 'Horrah!' he cries, just what I need - a "+owns$(ojt%)+".":owns$(ojt%)=""
33450whiz%+=1
33460IF whiz%=3 t$+=" He levitates the spell, potion and wand and casts some mystical words. A large whirling door appears in the south wall.":exits(72,3)=71:wimp%!0=maphan%:PROCredrawmap
33470ELSE t$="He takes the "+owns$(ojt%)+" and throws it behind him.":owns$(ojt%)=""
33480ENDIF
33490WHEN 73 : IF owns$(ojt%)="newt" THEN
33500t$="He takes the newt from you, 'just what I need,' he exclaims. He places a potion in your hand for thanks. 'I'm not sure what it does,' he says, 'but it should be interesting!'"
33510owns$(ojt%)="potion"
33520ELSE t$="He takes the "+owns$(ojt%)+", throws it behind him and concentrates on shaking his bottle.":owns$(ojt%)=""
33530ENDIF
33540WHEN 76 : CASE owns$(ojt%) OF
33550WHEN "apple" : t$="The old tramp looks delighted at the apple, he takes it and passes you his only meths bottle in return. It feels about half-full.":owns$(ojt%)="bottle"
33560WHEN "whisky" : t$="The old tramp pulls a big grin when you give him the whisky, he rumages in his jumper and shoves a spell into your hand.":owns$(ojt%)="spell"
33570WHEN "breadcrumb" : t$="He puts the breadcrumb into his mouth, then looks up to you for more.":owns$(ojt%)=""
33580OTHERWISE : t$="The old tramp takes the "+owns$(ojt%)+" and tucks it into his jumper.":owns$(ojt%)=""
33590ENDCASE
33600WHEN 78 : IF fire%=1 AND owns$(ojt%)="bottle" THEN
33610t$="The young boy takes the bottle of meths and throws it carelessly into the bonfire.":owns$(ojt%)="":fire%=2:firetime%=TIME
33620ELSE IF fire%=1 t$="The young boy takes the "+owns$(ojt%)+" and throws it into the fire, thinking it will make it burn better.":owns$(ojt%)=""
33630ENDIF
33640WHEN 81 : t$="Your gift is rejected by the girls."
33650WHEN 82 : IF owns$(ojt%)="feather" THEN
33660t$="She takes the feather from you and exclaims, 'this is just the thing we need f'our production of Swan Lake. How can I ever repay you?'. She pulls out a large medal, 'I found this recently' - she shoves it into your hand."
33670owns$(ojt%)="medal"
33680ELSE t$="The old woman takes the "+owns$(ojt%)+" and tucks it away under her desk.":owns$(ojt%)=""
33690ENDIF
33700WHEN 84 : CASE owns$(ojt%) OF
33710WHEN "aspirin" : t$="The old man takes the aspirin hopefully and makes the boy swallow it. You wait for a few hours, but there is no improvement in the boy.":owns$(ojt%)=""
33720WHEN "bottle" :IF fire%=0 PROCexcite:t$="Congratulations, you have completed GORM!" ELSE t$="The old man takes a swig from the bottle, 'thanks', he says, 'I needed that'.":owns$(ojt%)=""
33730OTHERWISE : t$="The old man takes the "+owns$(ojt%)+" and throws it behind him.":owns$(ojt%)=""
33740ENDCASE
33750WHEN 85 : t$="The guard refuses your gift."
33760WHEN 226 : IF owns$(ojt%)="lolly" THEN
33770t$="The little girl takes the lolly and puts it in her mouth, 'fanks', she mutters.":owns$(ojt%)=""
33780ELSE t$="The little girl takes the "+owns$(ojt%)+" and puts it in her pocket.":owns$(ojt%)=""
33790ENDIF
33800WHEN 248:t$="The man takes the "+owns$(ojt%)+" and puts it under the counter.":owns$(ojt%)=""
33810WHEN 249 : IF owns$(ojt%)="ornament" THEN
33820t$="The old woman takes the ornament and puts it among her others, 'thank you', she says."
33830owns$(ojt%)=""
33840IF injure%=1 t$+=" She notices your cut, 'My goodness, you have been in the wars!' she exclaims and passes you a wet flannel to put over your injury.":owns$(ojt%)="flannel"
33850ELSE t$="The old woman takes the "+owns$(ojt%)+" and tries to look grateful.":owns$(ojt%)=""
33860ENDIF
33870WHEN 250 : IF owns$(ojt%)="flower" THEN
33880t$="The young woman takes the flower and puts it among her other bunches of them, 'thank you', she says cheerfully, 'you have done me a huge favour!'. She gives you a huge bouquet in return."
33890owns$(ojt%)="bouquet"
33900ELSE t$="The young woman takes the "+owns$(ojt%)+" and throws it amongst her flowers.":owns$(ojt%)=""
33910ENDIF
33920WHEN 253:fg%=0:IF owns$(ojt%)="aspirin" OR owns$(ojt%)="flannel" OR owns$(ojt%)="bouquet" THEN
33930t$="The old woman smiles, 'thank you', she says gently.":owns$(ojt%)=""
33940ill%+=1:fg%=1
33950IF ill%=3 AND fg%=1 t$+=" She looks up at you and says, 'I feel I can trust you with this now, I need some medication', she passes you her prescription.":owns$(ojt%)="prescription"
33960ELSE t$="She takes the "+owns$(ojt%)+", smiles gratefully, and places it beside her.":owns$(ojt%)=""
33970ENDIF
33980WHEN 266:t$="The bar-maid takes the "+owns$(ojt%)+" and places it under the counter.":owns$(ojt%)=""
33990WHEN 281:t$="The man takes the "+owns$(ojt%)+" and places it under the counter.":owns$(ojt%)=""
34000WHEN 301 : IF owns$(ojt%)="purse" OR owns$(ojt%)="cheque" THEN
34010t$="The woman takes the payment and tells you that you can enter the museum by going east.":payed%=1:owns$(ojt%)=""
34020ELSE t$="The woman takes the "+owns$(ojt%)+" and places it under the counter. 'That is not good enough for payment', she says.":owns$(ojt%)=""
34030ENDIF
34040WHEN 302 : IF owns$(ojt%)="doll" THEN
34050t$="The woman takes the doll and excitably tells you that it is a wonderful example of 18th Century doll-making. She hurridly pays you with a small ornament, apparently also of some value."
34060owns$(ojt%)="ornament"
34070ELSE t$="The old woman takes the "+owns$(ojt%)+" and exclaims that it is junk. She throws it away.":owns$(ojt%)=""
34080ENDIF
34090WHEN 305:t$="The guard takes the "+owns$(ojt%)+", looks at it thoughtfully, then throws it away.":owns$(ojt%)=""
34100WHEN 310 : fg%=0
34110IF owns$(ojt%)="gravestone" OR owns$(ojt%)="doll" fg%=1:owns$(ojt%)="":medium1%=1:t$="'Thank you', she says":IF medium2%=0:t$+=", 'now all I need is some payment'." ELSE t$+="."
34120IF owns$(ojt%)="purse" OR owns$(ojt%)="cheque" fg%=1:owns$(ojt%)="":medium2%=1:t$="'Thank you', she says":IF medium1%=0:t$+=", 'now all I need is something to link with the past'." ELSE t$+="."
34130IF fg%=1 AND medium1%=1 AND medium2%=1 THEN
34140PROCadd(t$)
34150t$=" She takes your gifts and places them on the table. She goes into a trance and mutters a few words. Suddenly there is a huge flash of lightening and what you recognise as a timewarp appears to the east."
34160exits(310,2)=311:wimp%!0=maphan%:PROCredrawmap
34170ENDIF
34180WHEN 312 : IF owns$(ojt%)="prescription" THEN
34190t$="The young man takes the prescription, disappears behind the counter and comes back with a bottle. He shoves it into your hand.":owns$(ojt%)="bottle"
34200ELSE t$="The young man takes the "+owns$(ojt%)+" and throws it under the counter.":owns$(ojt%)=""
34210ENDIF
34220OTHERWISE : t$="I do not understand who you want to give the "+owns$(ojt%)+" to."
34230ENDCASE
34240IF police%(1)=roomno% OR police%(2)=roomno% t$="The policeman refuses your gift."
34250PROCadd(t$)
34260ENDIF
34270ENDPROC
34280
34290DEFPROCput
34300blb%=0
34310IF FNgotorhere("blob")=1 AND INSTR(i$,"blob")>0 AND INSTR(i$,"keyhole")>0 AND roomno%=2 blb%=1
34320IF FNgotorhere("blob")=1 AND INSTR(i$,"blob")>0 AND INSTR(i$,"door")>0 AND roomno%=2 blb%=1
34330IF blb%=1 PROCadd("You press the blob into the keyhole and pull it out. Voila! A perfect impression!"):mould%=1
34340put%=0
34350IF INSTR(i$,"pill")>0 AND INSTR(i$,"cup")>0 AND FNgotorhere("pill")=1 put%=1
34360IF INSTR(i$,"pill")>0 AND INSTR(i$,"drink")>0 AND FNgotorhere("pill")=1 put%=1
34370IF put%=1 THEN
34380PROCadd("You drop the pill into the guard's drink. A few minutes later he picks it up and takes a sip. Within a quarter of an hour he falls soundly asleep.")
34390rooms$(85,5)="side of the bars is a sleeping guard."
34400FOR a=1 TO 10
34410IF owns$(a)="pill" owns$(a)=""
34420IF objects$(roomno%,a)="pill" objects$(roomno%,a)=""
34430NEXT a
34440drugged%=1
34450ENDIF
34460IF put%=0 AND blb%=0 PROCadd("I don't feel like it.")
34470ENDPROC
34480
34490DEFPROCdrop
34500gotta%=0
34510IF INSTR(i$,"pill")>0 AND INSTR(i$,"cup")>0 AND FNgotorhere("pill")=1 PROCput:ENDPROC
34520IF INSTR(i$,"pill")>0 AND INSTR(i$,"drink")>0 AND FNgotorhere("pill")=1 PROCput:ENDPROC
34530IF INSTR(i$,"all")>0 OR INSTR(i$,"everything")>0 THEN
34540  counter%=0
34550  FOR a%=1 TO 10
34560  IF owns$(a%)<>"" i$=owns$(a%):counter%+=1:PROCdrop
34570  NEXT a%
34580  IF counter%=0 PROCadd("You have nothing to drop.")
34590  i$="drop all"
34600  gotta%=-1
34610ENDIF
34620IF gotta%=0 THEN
34630FOR g=1 TO 10
34640IF owns$(g)<>"" AND INSTR(i$,owns$(g))>0 gotta%=-1:ojt%=g
34650NEXT g
34660IF gotta%=0 THEN
34670  gotta%=1:CASE RND(4) OF
34680  WHEN 1 : PROCadd("You do not have such an object.")
34690  WHEN 2 : PROCadd("You cannot find that object to drop.")
34700  WHEN 3 : PROCadd("I think you're hallucinating... you haven't got that item.")
34710  WHEN 4 : PROCadd("You can't drop something that you haven't got.")
34720  ENDCASE
34730ENDIF
34740IF gotta%=-1 gotta%=0
34750IF gotta%=0 THEN
34760gottaflag%=0
34770FOR g=1 TO 10
34780IF objects$(roomno%,g)="" gottaflag%=g
34790NEXT g
34800IF gottaflag%>0 objects$(roomno%,gottaflag%)=owns$(ojt%):owns$(ojt%)="":PROCadd("You have dropped the "+objects$(roomno%,gottaflag%)+" on to the ground."):IF roomno%=75 AND objects$(roomno%,gottaflag%)="bone" THEN
34810PROCadd("A young boy enters the room, he sees the bone and picks it up. He sees you murmurs a 'thanks' then drops a pamphlet onto the ground and leaves in the same casual manner.")
34820objects$(roomno%,gottaflag%)="pamphlet"
34830ENDIF
34840IF gottaflag%=0 CASE RND(3) OF
34850  WHEN 1 : PROCadd("There are too many things on the ground already.")
34860  WHEN 2 : PROCadd("The pile on the floor is too large.")
34870  WHEN 3 : PROCadd("It's too risky, there's so much stuff on the ground you would never find it again.")
34880ENDCASE
34890ENDIF
34900ENDIF
34910ENDPROC
34920
34930DEFPROCnorth
34940mv%=0
34950IF exits(roomno%,1)=0 THEN
34960CASE RND(7) OF
34970  WHEN 1 : t$="There is no possible exit to the north."
34980  WHEN 2 : t$="You can see no way out to the north."
34990  WHEN 3 : t$="You can see no escape route to the north."
35000  WHEN 4 : t$="The direction to the north is blocked."
35010  WHEN 5 : t$="There is no way of leaving to the north."
35020  WHEN 6 : t$="You can't walk through solid objects."
35030  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
35040ENDCASE
35050CASE roomno% OF
35060  WHEN 46,45,44,43,47,65,76 : t$="The large fence provides a slight problem."
35070  WHEN 226,227,228,262,267,283,284,285,288 : t$="The large brick wall provides a problem."
35080  WHEN 179 : t$="The door is locked."
35090  WHEN 183 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=151:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35100wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35110  WHEN 195 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=148:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35120wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35130ENDCASE
35140PROCadd(t$)
35150ENDIF
35160IF roomno%=268 PROCadd("You wander down the road, but there are cars zooming past you all the time. You decide it will be safer if you stay in the town."):ENDPROC
35170IF exits(roomno%,1)<>0 AND mv%=0 THEN
35180IF roomno%=179 THEN
35190PROCadd("You step out of the maze and see a cart, you hide in it. It starts moving.")
35200PROCadd("Hours later you see some gates open and the cart trundles into the town which you know so well. The gates close and you sneak out of the cart.")
35210zone%=1
35220ENDIF
35230roomno%=exits(roomno%,1)
35240IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35250wimp%!0=maphan%:PROCredrawmap
35260ENDIF
35270ENDPROC
35280
35290DEFPROCeast
35300mv%=0
35310IF exits(roomno%,2)=0 THEN
35320CASE RND(7) OF
35330  WHEN 1 : t$="There is no possible exit to the east."
35340  WHEN 2 : t$="You can see no way out to the east."
35350  WHEN 3 : t$="You can see no escape route to the east."
35360  WHEN 4 : t$="The direction to the east is blocked."
35370  WHEN 5 : t$="There is no way of leaving to the east."
35380  WHEN 6 : t$="You can't walk through solid objects."
35390  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
35400ENDCASE
35410CASE roomno% OF
35420 WHEN 298,297 : t$="The large brick wall provides a problem."
35430 WHEN 2 : t$="The door to the posh house is locked at the moment."
35440 WHEN 46 : t$="The large fence provides a slight problem."
35450 WHEN 194 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=195:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35460wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35470 WHEN 198 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=208:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35480wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35490 WHEN 208 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=198:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35500wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35510 WHEN 191 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=206:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35520wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35530 WHEN 170 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=202:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35540wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35550ENDCASE
35560PROCadd(t$)
35570ENDIF
35580IF roomno%=37 AND crier%=1 PROCadd("A girl blocks your way. She is sobbing her heart out and screaming that her father has died."):ENDPROC
35590IF roomno%=301 AND payed%=0 PROCadd("You cannot enter the museum unless you have paid."):ENDPROC
35600IF exits(roomno%,2)<>0 AND mv%=0 THEN
35610roomno%=exits(roomno%,2)
35620IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35630wimp%!0=maphan%:PROCredrawmap
35640IF roomno%=311 THEN
35650PROCadd("A floor materialises by your feet and you soon recognise your surroundings."):roomno%=18:zone%=1
35660IF mapyn%(18)=0 mapyn%(18)=1:PROClook ELSE PROChalflook
35670wimp%!0=maphan%:PROCredrawmap
35680ENDIF
35690ENDIF
35700ENDPROC
35710
35720DEFPROCsouth
35730mv%=0
35740IF exits(roomno%,3)=0 THEN
35750CASE RND(7) OF
35760  WHEN 1 : t$="There is no possible exit to the south."
35770  WHEN 2 : t$="You can see no way out to the south."
35780  WHEN 3 : t$="You can see no escape route to the south."
35790  WHEN 4 : t$="The direction to the south is blocked."
35800  WHEN 5 : t$="There is no way of leaving to the south."
35810  WHEN 6 : t$="You can't walk through solid objects."
35820  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
35830ENDCASE
35840CASE roomno% OF
35850  WHEN 15 : t$="You edge towards to gates, but the guard gives you an evil look so you back away."
35860  WHEN 287,275,243,242,241,240,239,238,237,223: t$="The large brick wall provides a problem."
35870  WHEN 57,56,55,53,24,14,16,17,18 : t$="The large fence provides a slight problem."
35880  WHEN 147 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=194:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35890wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35900  WHEN 210 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=191:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
35910wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
35920ENDCASE
35930PROCadd(t$)
35940ENDIF
35950IF roomno%=78 AND fire%<>0 PROCadd("The young boy, standing by his huge bonfire, annoyingly prevents you from going south."):ENDPROC
35960IF roomno%=274 PROCadd("You wander down the road, but there are cars zooming past you all the time. You decide it will be safer if you stay in the town."):ENDPROC
35970entry%=0:IF FNgot("cap")>0 AND FNgot("badge")>0 entry%=1
35980IF roomno%=305 AND entry%=0 PROCadd("The guard stops you. 'Only people of authority can go down there, son', he says."):ENDPROC
35990IF exits(roomno%,3)<>0 AND mv%=0 THEN
36000roomno%=exits(roomno%,3)
36010IF roomno%=71 mapyn%(71)=1:wimp%!0=maphan%:PROCredrawmap:roomno%=220:zone%=4
36020IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36030wimp%!0=maphan%:PROCredrawmap
36040ENDIF
36050ENDPROC
36060
36070DEFPROCwest
36080mv%=0
36090IF exits(roomno%,4)=0 THEN
36100CASE RND(7) OF
36110  WHEN 1 : t$="There is no possible exit to the west."
36120  WHEN 2 : t$="You can see no way out to the west."
36130  WHEN 3 : t$="You can see no escape route to the west."
36140  WHEN 4 : t$="The direction to the west is blocked."
36150  WHEN 5 : t$="There is no way of leaving to the west."
36160  WHEN 6 : t$="You can't walk through solid objects."
36170  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
36180ENDCASE
36190CASE roomno% OF
36200 WHEN 76,77,78,79,80 : t$="The large fence provides a slight problem."
36210 WHEN 237,236,223,222,224,225,226,286,297 : t$="The large brick wall provides a problem."
36220 WHEN 148 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=147:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36230wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
36240 WHEN 210,168,197 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=191:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36250wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
36260 WHEN 211,164,185 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=155:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36270wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
36280 WHEN 151 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=187:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36290wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
36300ENDCASE
36310PROCadd(t$)
36320ENDIF
36330IF exits(roomno%,4)<>0 AND mv%=0 THEN
36340IF roomno%=302 payed%=0
36350roomno%=exits(roomno%,4)
36360IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36370wimp%!0=maphan%:PROCredrawmap
36380ENDIF
36390ENDPROC
36400
36410DEFPROCnortheast
36420mv%=0
36430IF exits(roomno%,5)=0 THEN
36440CASE RND(7) OF
36450  WHEN 1 : t$="There is no possible exit to the north-east."
36460  WHEN 2 : t$="You can see no way out to the north-east."
36470  WHEN 3 : t$="You can see no escape route to the north-east."
36480  WHEN 4 : t$="The direction to the north-east is blocked."
36490  WHEN 5 : t$="There is no way of leaving to the north-east."
36500  WHEN 6 : t$="You can't walk through solid objects."
36510  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
36520ENDCASE
36530CASE roomno% OF
36540  WHEN 160 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=176:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36550wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
36560ENDCASE
36570PROCadd(t$)
36580ENDIF
36590IF exits(roomno%,5)<>0 AND mv%=0 THEN
36600roomno%=exits(roomno%,5)
36610IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36620wimp%!0=maphan%:PROCredrawmap
36630ENDIF
36640ENDPROC
36650
36660DEFPROCsoutheast
36670IF exits(roomno%,6)=0 THEN
36680CASE RND(7) OF
36690  WHEN 1 : t$="There is no possible exit to the south-east."
36700  WHEN 2 : t$="You can see no way out to the south-east."
36710  WHEN 3 : t$="You can see no escape route to the south-east."
36720  WHEN 4 : t$="The direction to the south-east is blocked."
36730  WHEN 5 : t$="There is no way of leaving to the south-east."
36740  WHEN 6 : t$="You can't walk through solid objects."
36750  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
36760ENDCASE
36770PROCadd(t$)
36780ENDIF
36790IF exits(roomno%,6)<>0 THEN
36800roomno%=exits(roomno%,6)
36810IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
36820wimp%!0=maphan%:PROCredrawmap
36830ENDIF
36840ENDPROC
36850
36860DEFPROCsouthwest
36870mv%=0
36880IF exits(roomno%,7)=0 THEN
36890CASE RND(7) OF
36900  WHEN 1 : t$="There is no possible exit to the south-west."
36910  WHEN 2 : t$="You can see no way out to the south-west."
36920  WHEN 3 : t$="You can see no escape route to the south-west."
36930  WHEN 4 : t$="The direction to the south-west is blocked."
36940  WHEN 5 : t$="There is no way of leaving to the south-west."
36950  WHEN 6 : t$="You can't walk through solid objects."
36960  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
36970ENDCASE
36980CASE roomno% OF
36990  WHEN 176 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=160:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
37000wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
37010  WHEN 210 : PROCadd("The wall fizzles and quivers as you step through it."):roomno%=191:IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
37020wimp%!0=maphan%:PROCredrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
37030ENDCASE
37040PROCadd(t$)
37050ENDIF
37060IF exits(roomno%,7)<>0 AND mv%=0 THEN
37070roomno%=exits(roomno%,7)
37080IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
37090wimp%!0=maphan%:PROCredrawmap
37100ENDIF
37110ENDPROC
37120
37130DEFPROCnorthwest
37140IF exits(roomno%,8)=0 THEN
37150CASE RND(7) OF
37160  WHEN 1 : t$="There is no possible exit to the north-west."
37170  WHEN 2 : t$="You can see no way out to the north-west."
37180  WHEN 3 : t$="You can see no escape route to the north-west."
37190  WHEN 4 : t$="The direction to the north-west is blocked."
37200  WHEN 5 : t$="There is no way of leaving to the north-west."
37210  WHEN 6 : t$="You can't walk through solid objects."
37220  WHEN 7 : t$="You're solid, the wall's solid, I don't think it will work."
37230ENDCASE
37240PROCadd(t$)
37250ENDIF
37260IF exits(roomno%,8)<>0 THEN
37270roomno%=exits(roomno%,8)
37280IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
37290wimp%!0=maphan%:PROCredrawmap
37300ENDIF
37310ENDPROC
37320
37330DEFPROCup
37340IF exits(roomno%,9)=0 THEN
37350CASE RND(8) OF
37360  WHEN 1 : t$="There is no possible exit upwards."
37370  WHEN 2 : t$="You can see no way out upwards."
37380  WHEN 3 : t$="You can see no escape route above you."
37390  WHEN 4 : t$="The direction upwards is blocked."
37400  WHEN 5 : t$="There is no way of leaving by going up."
37410  WHEN 6 : t$="I hardly think you can fly!"
37420  WHEN 7 : t$="You flap your arms frantically but no progress is made."
37430  WHEN 8 : t$="You haven't quite mastered flight yet."
37440ENDCASE
37450CASE roomno% OF
37460  WHEN 11 : t$="You try and scramble up the monument, but just slide back down again."
37470  WHEN 13,279,286,288,289,290,292 : t$="You try to pull yourself up one of the trees, but unfortunately the few branches are high up, so you give up and come back down."
37480  WHEN 15 : t$="You edge nearer the gates so you can climb up them, but the guard looks menacing so you back away."
37490  WHEN 39 : t$="You try to pull yourself up the willow tree, but unfortunately you keep on slipping back down."
37500  WHEN 57,56,55,53,24,14,16,17,18,46,45,44,43,47,65,76,77,78,79,80 : t$="You try scrambling up the fence, but it is just too high to manage."
37510ENDCASE
37520PROCadd(t$)
37530ENDIF
37540IF exits(roomno%,9)<>0 THEN
37550IF roomno%=147 PROCadd("You leave the maze."):zone%=2:poltime%=TIME
37560roomno%=exits(roomno%,9)
37570IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
37580wimp%!0=maphan%:PROCredrawmap
37590ENDIF
37600ENDPROC
37610
37620DEFPROCdown
37630IF exits(roomno%,10)=0 THEN
37640CASE RND(8) OF
37650  WHEN 1 : t$="There is no possible exit downwards."
37660  WHEN 2 : t$="You can see no way out by going down."
37670  WHEN 3 : t$="You can see no escape route downwards."
37680  WHEN 4 : t$="The direction down is blocked."
37690  WHEN 5 : t$="There is no way of leaving by going down."
37700  WHEN 6 : t$="You scrape at the floor with your fingers, but you decide against it, it will ruin your nails."
37710  WHEN 7 : t$="Last time I checked, the ground was solid and I think it still is."
37720  WHEN 8 : t$="No matter how hard you wish, the ground won't open up and swallow you."
37730ENDCASE
37740IF roomno%=34 t$="You patiently sit at the bottom of the pond for a couple of minutes, but, being the bright lad that you are, realise that there is a lack of oxygen. You return to the surface a little wet."
37750PROCadd(t$)
37760ENDIF
37770IF exits(roomno%,10)<>0 THEN
37780IF roomno%=126 PROCadd("You enter the maze..."):zone%=3:poltime%=TIME
37790roomno%=exits(roomno%,10)
37800IF mapyn%(roomno%)=0 i$="look":PROClook:mapyn%(roomno%)=1 ELSE PROChalflook
37810wimp%!0=maphan%:PROCredrawmap
37820ENDIF
37830ENDPROC
37840
37850DEFPROCim
37860what$=MID$(i$,4,LEN(i$)-3)
37870PROCspecific1
37880PROCadd(t$)
37890ENDPROC
37900
37910DEFPROCspecific1
37920CASE RND(5) OF
37930  WHEN 1 : t$="And why do you think that you are "+what$+"?"
37940  WHEN 2 : t$="That's really interesting, are you really "+what$+"?"
37950  WHEN 3 : t$="And how long have you been "+what$+"?"
37960  WHEN 4 : t$="And do you like being "+what$+"?"
37970  WHEN 5 : t$="I'm so glad that you're "+what$+". Tell me more."
37980ENDCASE
37990IF what$="gay" OR what$="queer" OR what$="homosexual" CASE RND(3) OF
38000  WHEN 1 : t$="Well don't look at me, I'm not."
38010  WHEN 2 : t$="It's not the time nor the place to discuss those things."
38020  WHEN 3 : t$="Ooh, hush your mouth."
38030ENDCASE
38040IF what$="happy" OR what$="glad" OR what$="cheerful" OR what$="over the moon" OR what$="thrilled" CASE RND(3) OF
38050  WHEN 1 : t$="It's nice to know that someone's happy."
38060  WHEN 2 : t$="It cheers me up knowing that you are "+what$+" too."
38070  WHEN 3 : t$="And what has made you so cheerful?"
38080ENDCASE
38090IF what$="sad" OR what$="upset" OR what$="tearful" OR what$="crying" OR what$="depressed" OR what$="fed up" CASE RND(4) OF
38100  WHEN 1 : t$="Don't be so sad, cheer up!"
38110  WHEN 2 : t$="Life's not that bad really."
38120  WHEN 3 : t$="There's nothing to be upset about."
38130  WHEN 4 : t$="Try smiling and everything will be all right."
38140ENDCASE
38150IF what$="angry" OR what$="annoyed" OR what$="stroppy" OR what$="bad tempered" OR what$="badtempered" OR what$="moody" CASE RND(3) OF
38160  WHEN 1 : t$="What's put you in a mood?"
38170  WHEN 2 : t$="Why are you so bad-tempered?"
38180  WHEN 3 : t$="I suggest that you get into a better mood then."
38190ENDCASE
38200IF what$="sexy" OR what$="gorgeous" OR what$="lovely" OR what$="handsome" OR what$="pretty" OR what$="beautiful" OR what$="clever" OR what$="wonderful" OR what$="intelligent" OR what$="brilliant" OR what$="a genius" CASE RND(4) OF
38210  WHEN 1 : t$="You're "+what$+"? You should see me!"
38220  WHEN 2 : t$="My goodness, what a boaster."
38230  WHEN 3 : t$="Stop flattering yourself for one moment."
38240  WHEN 4 : t$="Sorry to damage your ego, but you are wrong."
38250ENDCASE
38260IF what$="stupid" OR what$="thick" OR what$="fat" OR what$="an idiot" OR what$="idiotic" OR what$="senile" OR what$="crazy" OR what$="mad" OR what$="strange" OR what$="weird" CASE RND(5) OF
38270  WHEN 1 : t$="Don't put yourself down."
38280  WHEN 2 : t$="Too right you are."
38290  WHEN 3 : t$="Don't be so hard on yourself."
38300  WHEN 4 : t$="Take a positive look at yourself."
38310  WHEN 5 : t$="I'm sorry, I refuse to believe that you are "+what$+"."
38320ENDCASE
38330ENDPROC
38340
38350DEFPROCiam
38360what$=MID$(i$,6,LEN(i$)-5)
38370PROCspecific1
38380PROCadd(t$)
38390ENDPROC
38400
38410DEFPROCitis
38420what$=MID$(i$,7,LEN(i$)-6)
38430CASE RND(3) OF
38440  WHEN 1 : t$="And why do you think that it is "+what$+"?"
38450  WHEN 2 : t$="That's really interesting, is it really "+what$+"?"
38460  WHEN 3 : t$="And how long has it been "+what$+"?"
38470ENDCASE
38480PROCadd(t$)
38490ENDPROC
38500
38510DEFPROCits
38520what$=MID$(i$,5,LEN(i$)-4)
38530CASE RND(3) OF
38540  WHEN 1 : t$="And why do you think that it's "+what$+"?"
38550  WHEN 2 : t$="That's really interesting, is it really "+what$+"?"
38560  WHEN 3 : t$="And how long has it been "+what$+"?"
38570ENDCASE
38580PROCadd(t$)
38590ENDPROC
38600
38610DEFPROCitwas
38620what$=MID$(i$,8,LEN(i$)-7)
38630CASE RND(4) OF
38640  WHEN 1 : t$="And why do you think that it was "+what$+"?"
38650  WHEN 2 : t$="Is it true that it was "+what$+"?"
38660  WHEN 3 : t$="When exactly was it "+what$+"?"
38670  WHEN 4 : t$="Are you happy that it was "+what$+"?"
38680ENDCASE
38690PROCadd(t$)
38700ENDPROC
38710
38720DEFPROClinguist
38730CASE RND(6) OF
38740  WHEN 1 : t$="Ooh, are you a foreigner?"
38750  WHEN 2 : t$="Great, you're a linguist."
38760  WHEN 3 : t$="My goodness, you're fluent in many languages."
38770  WHEN 4 : t$="And what is your native language?"
38780  WHEN 5 : t$="Stop trying to show off your language skills."
38790  WHEN 6 : t$="Stop it, I hate foreigners."
38800ENDCASE
38810PROCadd(t$)
38820ENDPROC
38830
38840DEFPROCsingle
38850IF i$="n" PROCnorth:ENDPROC
38860IF i$="e" PROCeast:ENDPROC
38870IF i$="s" PROCsouth:ENDPROC
38880IF i$="w" PROCwest:ENDPROC
38890IF i$="u" PROCup:ENDPROC
38900IF i$="d" PROCdown:ENDPROC
38910IF i$="i" PROCinv:ENDPROC
38920IF i$="l" i$="look":PROClook:ENDPROC
38930IF i$="x" PROCexits:ENDPROC
38940CASE RND(10) OF
38950  WHEN 1 : t$="Type in something longer."
38960  WHEN 2 : t$="Don't talk in single characters."
38970  WHEN 3 : t$="Ooh! You use big words don't you?"
38980  WHEN 4 : t$="It would help if you actually formed words."
38990  WHEN 5 : t$="Have you just left playschool?"
39000  WHEN 6 : t$="I'm afraid Sesame Street has just finished."
39010  WHEN 7 : t$="Is one character supposed to mean something?"
39020  WHEN 8 : t$="Is this some sort of code?"
39030  WHEN 9 : t$="That doesn't look like a sentence to me!"
39040  WHEN 10 : t$="Bit of a short sentence isn't it?"
39050ENDCASE
39060PROCadd(t$)
39070ENDPROC
39080
39090DEFPROCprob
39100CASE RND(4) OF
39110  WHEN 1 : t$="Nice of you to be so certain."
39120  WHEN 2 : t$="A bit indecisive aren't we?"
39130  WHEN 3 : t$="Can't you make up your mind?"
39140  WHEN 4 : t$="Be sure of yourself!"
39150ENDCASE
39160PROCadd(t$)
39170ENDPROC
39180
39190DEFPROChelp
39200CASE RND(17) OF
39210  WHEN 1 : t$="What on Earth do you need help for?"
39220  WHEN 2 : t$="You don't really need help."
39230  WHEN 3 : t$="Do it yourself."
39240  WHEN 4 : t$="It isn't that hard."
39250  WHEN 5 : t$="Just persevere."
39260  WHEN 6 : t$="You're hopeless."
39270  WHEN 7 : t$="It's not that tricky."
39280  WHEN 8 : t$="Try running up and down your road while eating live frogs and going ""Squawk""."
39290  WHEN 9 : t$="Inspiration hits you when you least expect it."
39300  WHEN 10 : t$="The Bible offers advice on everything - or so most Christians say."
39310  WHEN 11 : t$="Cheat!"
39320  WHEN 12 : t$="Wisdom cannot be given, it has to be earnt."
39330  WHEN 13 : t$="Whack your head against the table edge and you will see the light."
39340  WHEN 14 : t$="Try punching the nearest person to you."
39350  WHEN 15 : t$="Just ask someone else."
39360  WHEN 16 : t$="Don't ask me!"
39370  WHEN 17 : t$="How should I know the answers to your problems?"
39380ENDCASE
39390PROCadd(t$)
39400ENDPROC
39410
39420DEFPROCsorry
39430CASE RND(7) OF
39440  WHEN 1 : t$="Don't apologise."
39450  WHEN 2 : t$="Apology accepted."
39460  WHEN 3 : t$="I forgive you."
39470  WHEN 4 : t$="Sorry? What for?"
39480  WHEN 5 : t$="It's all right. I won't hold it against you."
39490  WHEN 6 : t$="Well don't do it again."
39500  WHEN 7 : t$="No problem, don't worry about it."
39510ENDCASE
39520PROCadd(t$)
39530ENDPROC
39540
39550DEFPROCrepeat
39560CASE RND(40) OF
39570  WHEN 1 : t$="Stop repeating yourself."
39580  WHEN 2 : t$="Say something different."
39590  WHEN 3 : t$="Change what you say."
39600  WHEN 4 : t$="You're sounding like a parrot."
39610  WHEN 5 : t$="You're boring me."
39620  WHEN 6 : t$="Try and be original."
39630  WHEN 7 : t$="Bit of a limited vocabulary..."
39640  WHEN 8 : t$="You must be mindless..."
39650  WHEN 9 : t$="S H U T   U P  ! ! !"
39660  WHEN 10 : t$="Please say something different."
39670  WHEN 11 : t$="You'll give me a headache."
39680  WHEN 13 : t$="How repetative."
39690  WHEN 14 : t$="Time you visited a mental asylum."
39700  WHEN 15 : t$="...Nut case."
39710  WHEN 16 : t$="Who's got a strait-jacket?"
39720  WHEN 17 : t$="Time to go to the knacker's yard."
39730  WHEN 18 : t$="Goo goo gaa gaa?"
39740  WHEN 19 : t$="B E   Q U I E T ! ! !"
39750  WHEN 20 : t$="Weirdo alert."
39760  WHEN 21 : t$="Are you feeling all right?"
39770  WHEN 22 : t$="Stop saying that."
39780  WHEN 23 : t$="Is it fun saying that?"
39790  WHEN 24 : t$="Over and over again... tedious."
39800  WHEN 25 : t$="Someone, shut him up."
39810  WHEN 26 : t$="Vary what you say."
39820  WHEN 27 : t$="Variety is the spice of life."
39830  WHEN 28 : t$="Tell me something different."
39840  WHEN 29 : t$="No-one cares about that, change the subject."
39850  WHEN 30 : t$="Can someone gag this bloke?"
39860  WHEN 31 : t$="I might commit suicide."
39870  WHEN 32 : t$="You're winding me up..."
39880  WHEN 33 : t$="Lord, help me."
39890  WHEN 34 : t$="My Lord, bring sanity upon this world."
39900  WHEN 35 : t$="Are you always so monotonous?"
39910  WHEN 36 : t$="Wibble-wobble flobble."
39920  WHEN 37 : t$="Go back to where you came from."
39930  WHEN 38 : t$="I don't have to listen to this bull."
39940  WHEN 39 : t$="You're sounding like an Amiga."
39950  WHEN 40 : t$="You're making me angry..."
39960ENDCASE
39970PROCadd(t$)
39980ENDPROC
39990
40000DEFPROCbecause
40010CASE RND(6) OF
40020  WHEN 1 : t$="I'm afraid I have to disagree with you there."
40030  WHEN 2 : t$="That's a good reason."
40040  WHEN 3 : t$="I thoroughly agree with you."
40050  WHEN 4 : t$="I agree that "+MID$(i$,9,LEN(i$)-8)+"."
40060  WHEN 5 : t$="Well, we'll have to agree to disagree."
40070  WHEN 6 : t$="That's not the reason I heard."
40080ENDCASE
40090PROCadd(t$)
40100ENDPROC
40110
40120DEFPROCexcite
40130PROCadd("The man opens the bottle of Penicillin and drops the tablets into the boy's mouth. Within two short hours the boy opens his eyes and looks up. The man screams with elation and turns round to hug you with gratitude.")
40140PROCadd("'Now the land will no longer be in peril. I, and so many others, owe you everything, including our lives. Thank you doesn't seem enough,' he says.")
40150PROCadd("You leave the room, going back to wherever you came from, satisfied that you've saved the lives not of one boy, but of millions of people.")
40160PROCadd("At least until there is a flash of blinding light and you find yourself sucked into the year 2194, but that's a different adventure...")
40170renw%=1:PROCdecidepics
40180ENDPROC
40190
40200DEFPROCwelsh
40210CASE RND(3) OF
40220  WHEN 1 : t$="I'd prefer it if you didn't mention the Welsh."
40230  WHEN 2 : t$="Yes, we all know what the Welsh do."
40240  WHEN 3 : t$="Don't talk about the Welsh while I'm around."
40250ENDCASE
40260PROCadd(t$)
40270ENDPROC
40280
40290DEFPROCgonner
40300CASE RND(3) OF
40310  WHEN 1 : t$="Dead people can't do that."
40320  WHEN 2 : t$="You see, feel, hear, smell and taste nothingness."
40330  WHEN 3 : t$="Don't be stupid, you're dead."
40340ENDCASE
40350PROCadd(t$)
40360ENDPROC
40370
40380DEFPROCplease
40390CASE RND(9) OF
40400  WHEN 1 : t$="At least you know the magic word."
40410  WHEN 2 : t$="Please what?"
40420  WHEN 3 : t$="Stop pleading."
40430  WHEN 4 : t$="And beg!"
40440  WHEN 5 : t$="You sound pathetic."
40450  WHEN 6 : t$="Kiss my feet."
40460  WHEN 7,8,9 : t$="Say 'Pretty please with sugar on top'."
40470ENDCASE
40480PROCadd(t$)
40490ENDPROC
40500
40510DEFPROCsucker
40520CASE RND(5) OF
40530  WHEN 1 : t$="Will you do whatever I say?"
40540  WHEN 2 : t$="Can't you think for yourself?"
40550  WHEN 3,4,5 : t$="You've the decisiveness of a sheep."
40560ENDCASE
40570PROCadd(t$)
40580ENDPROC
40590
40600DEFPROCsick
40610IF computer%<5 computer%+=1
40620IF computer%=5 CASE RND(5) OF
40630  WHEN 1 : t$="Bluuuugghhh. Told you so."
40640  WHEN 2 : t$="Sppllaaattt. I warned you."
40650  WHEN 3 : t$="Shlluuugghh. I'm in a big mess thanks to you."
40660  WHEN 4 : t$="Glerrrgghhh. I hope you're ashamed of yourself."
40670  WHEN 5 : t$="Huurrrgghhh. This is your fault."
40680ENDCASE
40690IF computer%<5 CASE RND(5) OF
40700  WHEN 1 : t$="Don't talk about other computers, or I'll puke."
40710  WHEN 2 : t$="I don't want to hear about rubbish computers, or I might be sick."
40720  WHEN 3 : t$="Don't talk about those.. things, or I might make a mess."
40730  WHEN 4 : t$="Eerrrr, other computers, I feel my lunch coming up..."
40740  WHEN 5 : t$="Don't talk about those things, have you no respect? I feel a little queezy..."
40750ENDCASE
40760PROCadd(t$)
40770ENDPROC
40780
40790DEFPROCviolence
40800CASE RND(4) OF
40810  WHEN 1 : t$="Don't be violent, you may get hurt."
40820  WHEN 2 : t$="Violence doesn't pay, well not always."
40830  WHEN 3 : t$="I blame it on your upbringing..."
40840  WHEN 4 : t$="Control your anger."
40850ENDCASE
40860CASE roomno% OF
40870WHEN 1 : t$="'You asking for a fight?, eh?' shouts the man behind the Amiga stall. I think that was a mistake, Amigas are even worse down your throat...":nifok%=1:PROCdecidepics
40880WHEN 15,305 : t$="Woops. The guard frowns, pulls out a two metre long machine gun and promptly blows your head off.":nifok%=1:PROCdecidepics
40890WHEN 29 : t$="The baker looks extremely angry, he suddenly brings out his rolling pin and whacks your head until it's the thickness of a pancake.":nifok%=1:PROCdecidepics
40900WHEN 37 : t$="The vicar looks at you calmly and tells you that violence is not allowed in God's house."
40910WHEN 50 : t$="The people turn around to you and their mood changes instantly. Your head ends up in 20 separate pieces.":nifok%=1:PROCdecidepics
40920WHEN 52 : PROCadd("The man rolls up his sleeves, grabs you and throws you out into the street."):PROCadd(""):roomno%=63:PROChalflook:wimp%!0=maphan%:PROCredrawmap:t$="You land on your bum - ouch!"
40930WHEN 64 : PROCadd("The bar-maid rolls up her sleeves, showing her enormous biceps, picks you up and throws you out into the street."):PROCadd(""):roomno%=63:PROChalflook:wimp%!0=maphan%:PROCredrawmap:t$="You land on your bum - ouch!"
40940WHEN 69 : t$="The old man puts his hand under the counter, pulls out a machine gun and pumps you full of lead.":nifok%=1:PROCdecidepics
40950WHEN 72 : t$="The wizard whispers a few magical words and you feel relaxed within yourself."
40960WHEN 73 : t$="The alchemist asks you to calm down and you do so."
40970WHEN 76 : t$="The tramp pulls out a knife from his jumper and flicks it into your chest.":nifok%=1:PROCdecidepics
40980WHEN 78 : IF fire%>0 t$="You should know by now that little kids are dangerous. He pulls out an automatic rifle and fills you with bullets.":nifok%=1:PROCdecidepics
40990WHEN 82,310,250,301,302,249,266 : t$="The woman gives you a stern look and you stop being so violent."
41000WHEN 84 : t$="The old man turns round to you and asks you not to be so destructive."
41010WHEN 85 : t$="You are too far away from the guard."
41020WHEN 312,248,281 : t$="The man looks at you calmly, pulls out a machine gun and turns you into swiss cheese.":nifok%=1:PROCdecidepics
41030WHEN 226 : t$="The little girl starts screaming uncontrollably."
41040WHEN 253 : t$="As you are about to hit her, the old woman vomits into the sofa."
41050ENDCASE
41060IF police%(1)=roomno% OR police%(2)=roomno% THEN
41070t$="'Oh!, you're not a new recruit after all! You're that prisoner!' the policeman cries. He whacks you over the head with his truncheon, maybe a little too hard. Blackness."
41080nifok%=1:PROCdecidepics
41090ENDIF
41100PROCadd(t$)
41110ENDPROC
41120
41130DEFPROCluv
41140CASE RND(4) OF
41150  WHEN 1 : t$="The feeling's mutual."
41160  WHEN 2 : t$="I love you too."
41170  WHEN 3 : t$="We'd make a lovely couple."
41180  WHEN 4 : t$="Have I ever told you how pretty you look?"
41190ENDCASE
41200PROCadd(t$)
41210ENDPROC
41220
41230DEFPROCsay
41240t$="'"+MID$(i$,5,LEN(i$)-4)+"'. "
41250CASE roomno% OF
41260WHEN 1 : t$+="The people ignore you."
41270WHEN 15,305 : t$+="The guard ignores you."
41280WHEN 29 : t$+="The baker looks at you blankly."
41290WHEN 30 : t$+="The butcher looks at you blankly."
41300WHEN 37,50,52,64,72,73,76,81,82,84,310,312,266,248,249,250,253,301,302,281,226:t$+="You are ignored."
41310WHEN 78 : IF fire%>0 t$+="The kid ignores you."
41320WHEN 85 : IF drugged%=0 t$+="The guard ignores you." ELSE t$+="The guard stirs in his sleep."
41330OTHERWISE : t$+="No-one hears you."
41340ENDCASE
41350IF roomno%=police%(1) OR roomno%=police%(2) t$+="The policeman looks at you blankly."
41360PROCadd(t$)
41370ENDPROC
41380
41390DEFPROCprint
41400PROCadd(""+MID$(i$,7,LEN(i$)-6)+".")
41410ENDPROC
41420
41430DEFPROCtell
41440t$="There is no-one to tell anything to."
41450CASE roomno% OF
41460WHEN 1 : t$="The people ignore you."
41470WHEN 15,305 : t$="The guard ignores you."
41480WHEN 29 : t$="The baker looks at you blankly."
41490WHEN 30 : t$="The butcher looks at you blankly."
41500WHEN 37,50,52,64,72,73,76,81,82,84,310,312,266,248,249,250,253,301,302,281,266:t$="You are ignored."
41510WHEN 78 : IF fire%>0 t$="The kid ignores you."
41520WHEN 85 : CASE drugged% OF
41530WHEN 0 : t$="The guard looks at you blankly."
41540WHEN 1 : t$="The guard stirs in his sleep."
41550ENDCASE
41560ENDCASE
41570IF police%(1)=roomno% OR police%(2)=roomno% t$="The policeman looks at you blankly."
41580PROCadd(t$)
41590ENDPROC
41600
41610DEFPROChello
41620CASE RND(7) OF
41630  WHEN 1 : t$="Gooday, my friend"
41640  WHEN 2 : t$="Bonjour, mon ami"
41650  WHEN 3 : t$="Yo, my main man"
41660  WHEN 4 : t$="Greetings"
41670  WHEN 5 : t$="That's the greetings over with"
41680  WHEN 6 : t$="Hello, nice to meet you"
41690  WHEN 7 : t$="Hi, great to see you"
41700ENDCASE
41710CASE RND(6) OF
41720  WHEN 1 : t$+=", your quest awaits."
41730  WHEN 2 : t$+="."
41740  WHEN 3 : t$+=", tell me everything."
41750  WHEN 4 : t$+=", talk to me."
41760  WHEN 5 : t$+=", hope you enjoy the adventure."
41770  WHEN 6 : t$+=", how are you feeling today?"
41780ENDCASE
41790PROCadd(t$)
41800ENDPROC
41810
41820DEFPROCtense
41830CASE RND(6) OF
41840  WHEN 1 : t$="Feeling a little tense are we?"
41850  WHEN 2 : t$="What's upsetting you?"
41860  WHEN 3 : t$="I notice that you're a little upset. Why?"
41870  WHEN 4 : t$="Don't be annoyed."
41880  WHEN 5 : t$="What's put you in this mood?"
41890  WHEN 6 : t$="No need to get stroppy."
41900ENDCASE
41910PROCadd(t$)
41920ENDPROC
41930
41940DEFPROCbye
41950CASE RND(6) OF
41960  WHEN 1 : t$="Going so soon?"
41970  WHEN 2 : t$="Don't leave me."
41980  WHEN 3 : t$="Missing you already."
41990  WHEN 4 : t$="Have a nice day."
42000  WHEN 5 : t$="Au revoir."
42010  WHEN 6 : t$="I hope you enjoyed yourself."
42020ENDCASE
42030PROCadd(t$)
42040ENDPROC
42050
42060DEFPROCthank
42070CASE RND(5) OF
42080  WHEN 1 : t$="It's good to hear that you're grateful."
42090  WHEN 2 : t$="No problem."
42100  WHEN 3 : t$="That's ok."
42110  WHEN 4 : t$="Any time."
42120  WHEN 5 : t$="My goodness, you're polite."
42130ENDCASE
42140PROCadd(t$)
42150ENDPROC
42160
42170DEFPROChling
42180CASE RND(4) OF
42190  WHEN 1 : t$="What a lovely foreign welcome!"
42200  WHEN 2 : t$="Yes, and hello to you too, my foreign friend."
42210  WHEN 3 : t$="Welcome to Britain."
42220  WHEN 4 : t$="I hope you enjoy your visit here."
42230ENDCASE
42240PROCadd(t$)
42250ENDPROC
42260
42270DEFPROCgling
42280CASE RND(5) OF
42290  WHEN 1 : t$="Oh, my foreign friend, don't leave."
42300  WHEN 2 : t$="I'm sure you don't really want to go so soon."
42310  WHEN 3 : t$="Do you really have to go?"
42320  WHEN 4 : t$="Missing you already!"
42330  WHEN 5 : t$="Au revoir, mon ami."
42340ENDCASE
42350PROCadd(t$)
42360ENDPROC
42370
42380DEFPROCno
42390CASE RND(5) OF
42400  WHEN 1 : t$="Don't be so negative."
42410  WHEN 2 : t$="Why don't you say yes for a change?"
42420  WHEN 3 : t$="I can say 'no' in French too - 'Non' (I'm so clever)."
42430  WHEN 4 : t$="Can you say 'no' in German? (Try nein if you're too thick)."
42440  WHEN 5 : t$="Is 'no' your favourite word or something?"
42450ENDCASE
42460PROCadd(t$)
42470ENDPROC
42480
42490DEFPROCyes
42500CASE RND(5) OF
42510  WHEN 1 : t$="Jolly good."
42520  WHEN 2 : t$="I'm glad you agree."
42530  WHEN 3 : t$="Oui, oui, oui."
42540  WHEN 4 : t$="Perfick."
42550  WHEN 5 : t$="I'm so happy that you just said yes."
42560ENDCASE
42570PROCadd(t$)
42580ENDPROC
42590
42600DEFPROClastresort
42610CASE RND(25) OF
42620  WHEN 1 : t$="Try to talk sense if you can."
42630  WHEN 2 : t$="Sorry, I don't understand."
42640  WHEN 3 : t$="Pardon?"
42650  WHEN 4 : t$="Are you talking english?"
42660  WHEN 5 : t$="Just repeat that one more time."
42670  WHEN 6 : t$="I do not comprehend."
42680  WHEN 7 : t$="Hmm, same to you."
42690  WHEN 8 : t$="Talk sense will you?"
42700  WHEN 9 : t$="Try and say something sensible."
42710  WHEN 10 : t$="Eh?"
42720  WHEN 11 : t$="What?"
42730  WHEN 12 : t$="Try me again."
42740  WHEN 13 : t$="Yes, quite."
42750  WHEN 14 : t$="Whatever you say."
42760  WHEN 15 : t$="I'm sorry, are we speaking the same language?"
42770  WHEN 16 : t$="You've seemed to have lost me."
42780  WHEN 17 : t$="Fascinating."
42790  WHEN 18 : t$="Hey?"
42800  WHEN 19 : t$="And again?"
42810  WHEN 20 : t$="Try and translate that for me first."
42820  WHEN 21 : t$="Huh?"
42830  WHEN 22 : t$="Did you ever get an education?"
42840  WHEN 23 : t$="We don't seem to be communicating too well."
42850  WHEN 24 : t$="Je ne comprends pas."
42860  WHEN 25 : t$="Sorry, I'm too simple to understand."
42870ENDCASE
42880PROCadd(t$)
42890ENDPROC
42900
42910DEFPROCIlove
42920CASE RND(4) OF
42930  WHEN 1 : t$="And why do you think I have fallen in love?"
42940  WHEN 2 : person$=MID$(i$,INSTR(i$,"you "+love$)+LEN(love$)+5,LEN(i$)-(LEN(love$)+5)):t$="Who is "+person$+" anyway?"
42950  WHEN 3 : t$="I know I'm in luv..."
42960  WHEN 4 : t$="It's lovely being in love."
42970ENDCASE
42980PROCadd(t$)
42990ENDPROC
43000
43010DEFPROCYoulove
43020CASE RND(4) OF
43030  WHEN 1 : t$="And why do you think you have fallen in love?"
43040  WHEN 2 : t$="Is this pure, romantic love?"
43050  WHEN 3 : person$=MID$(i$,INSTR(i$,"i "+love$)+LEN(love$)+3,LEN(i$)-(LEN(love$)+3)):t$="Who is "+person$+" anyway?"
43060  WHEN 4 : t$="It's lovely being in love isn't it?"
43070ENDCASE
43080PROCadd(t$)
43090ENDPROC
43100
43110DEFPROClove
43120CASE RND(4) OF
43130  WHEN 1 : t$="Who loves who?"
43140  WHEN 2 : t$="What about love?"
43150  WHEN 3 : t$="Isn't love just woooooonderful!"
43160  WHEN 4 : t$="I love romance."
43170ENDCASE
43180PROCadd(t$)
43190ENDPROC
43200
43210DEFPROCnaughty
43220CASE RND(5) OF
43230  WHEN 1 : t$="Oooh, my favourite subject."
43240  WHEN 2 : t$="Oooh, raunchy."
43250  WHEN 3 : t$="Give me all the juicy details."
43260  WHEN 4 : t$="What's the bet you're under-aged?"
43270  WHEN 5 : t$="Tell me more!"
43280ENDCASE
43290PROCadd(t$)
43300ENDPROC
43310
43320DEFPROCnotspeak
43330CASE RND(10) OF
43340  WHEN 1 : t$="La la la la laa la.  I can't hear you."
43350  WHEN 2 : t$="..."
43360  WHEN 3 : t$="Hmm."
43370  WHEN 4 : t$="You're wasting your time, I can't hear you."
43380  WHEN 5 : t$="Did someone speak?"
43390  WHEN 6 : t$="Did you say something?"
43400  WHEN 7 : t$="Have you not gone yet?"
43410  WHEN 8 : t$="Tiresome..."
43420  WHEN 9 : t$="I'm bored."
43430  WHEN 10 : t$="Isn't there someone else who wants a go?"
43440ENDCASE
43450PROCadd(t$)
43460ENDPROC
43470
43480DEFPROCswear
43490swear%+=1
43500IF swear%=5 PROCadd("I warned you, I'm not speaking to any foul-mouthed hooligan, so there."):ENDPROC
43510CASE RND(12) OF
43520  WHEN 1 : t$="Don't talk to me like that!"
43530  WHEN 2 : t$="Water down your language a bit, or I'll go away."
43540  WHEN 3 : t$="I'm warning you, don't speak so crudely."
43550  WHEN 4 : t$="So you want to talk dirty do you? Well I'm not going to listen."
43560  WHEN 5 : t$="How infantile..."
43570  WHEN 6 : t$="My goodness, you're so childish."
43580  WHEN 7 : t$="It isn't big and it isn't clever."
43590  WHEN 8 : t$="What would your parents do if they found you talking like this?"
43600  WHEN 9 : t$="Does speaking like this make you feel big?"
43610  WHEN 10 : t$="I won't listen to you if you carry on like this."
43620  WHEN 11 : t$="So juvenile.."
43630  WHEN 12 : t$="Is swearing the limit of your vocabulary?"
43640ENDCASE
43650PROCadd(t$)
43660ENDPROC
43670
43680DEFPROCnothing
43690CASE RND(15) OF
43700  WHEN 1 : t$="Why aren't you talking to me?"
43710  WHEN 2 : t$="Cat got your tongue?"
43720  WHEN 3 : t$="All right, don't talk to me then."
43730  WHEN 4 : t$="Please, don't be afraid."
43740  WHEN 5 : t$="Just speak up a little will you?"
43750  WHEN 6 : t$="Talk to me."
43760  WHEN 7 : t$="Are you a shy type then?"
43770  WHEN 8 : t$="Go on, you can trust me."
43780  WHEN 9 : t$="Speak up, boy."
43790  WHEN 10 : t$="Turning into a vegetable are you?"
43800  WHEN 11 : t$="You-hoo, anyone out there?"
43810  WHEN 12 : t$="No need to sulk, tell me everything."
43820  WHEN 13 : t$="Boy, you're interesting."
43830  WHEN 14 : t$="You've got a lot to say today."
43840  WHEN 15 : t$="You're a might quiet, are you ok?"
43850ENDCASE
43860ENDPROC
43870
43880DEFPROCnoneed
43890CASE RND(5) OF
43900  WHEN 1 : t$="There's no need - you've won!"
43910  WHEN 2 : t$="Don't bother doing extra work when you've completed your quest."
43920  WHEN 3 : t$="You have finished the game already."
43930  WHEN 4 : t$="Nothing more has to be done."
43940  WHEN 5 : t$="Don't be such a workaholic!"
43950ENDCASE
43960PROCadd(t$)
43970ENDPROC
43980
43990DEFPROCwait
44000CASE RND(17) OF
44010  WHEN 1 : t$="Calling..."
44020  WHEN 2 : t$="Anybody out there?"
44030  WHEN 3 : t$="How long do I have to talk to myself for?"
44040  WHEN 4 : t$="I'm getting bored."
44050  WHEN 5 : t$="I need some company."
44060  WHEN 6 : t$="Don't ignore me."
44070  WHEN 7 : t$="Hey, talk to me."
44080  WHEN 8 : t$="You haven't fallen asleep have you?"
44090  WHEN 9 : t$="Type something in."
44100  WHEN 10 : t$="Stuck for something to say are you?"
44110  WHEN 11 : t$="Wakey wakey rise and shine."
44120  WHEN 12 : t$="Oi, I'm over here."
44130  WHEN 13 : t$="You can see me can't you?"
44140  WHEN 14 : t$="Are we in a library? It's awfully quiet."
44150  WHEN 15 : t$="Don't send me to coventry."
44160  WHEN 16 : t$="I need some attention."
44170  WHEN 17 : PRINT CHR$(7):t$="BEEP, BEEP, Wake up!":PRINT CHR$(7)
44180ENDCASE
44190PROCadd(t$)
44200ENDPROC
44210
44220DATA vkdj,fuds,vklw,ixfn,eroorfn,gdpq,zdqnhu,glfnkhdg,edvwdug,wzdw,fxqw,slvv,exjjhu,vh{
44230DATA 76,75,65,64,52,50,47,43,44,45,46,0,0,0,0
44240DATA 77,74,66,63,51,49,48,42,39,40,41,0,0,0,0
44250DATA 78,73,67,62,33,32,31,28,36,37,38,0,84,0,0
44260DATA 79,72,68,61,54,21,11,12,13,34,35,0,0,0,0
44270DATA 80,71,69,60,29,20,1,2,3,4,5,0,22,23,83
44280DATA 81,70,58,59,30,19,6,7,8,9,10,0,25,26,27
44290DATA 82,57,56,55,53,24,14,15,16,17,18,0,0,0,0
44300DATA 138,139,140,141,142,143,144,0,0,145,146,0,0,0,0
44310DATA 137,136,135,134,133,132,131,130,129,128,127,0,0,0,0
44320DATA 118,119,120,121,122,123,124,0,0,125,126,0,0,0,0
44330DATA 0,117,116,115,114,113,112,111,110,109,108,0,0,0,0
44340DATA 0,98,99,100,101,102,103,104,105,106,107,0,0,0,0
44350DATA 85,97,0,0,0,0,0,0,0,96,0,0,0,0,0
44360DATA 0,86,87,88,89,90,91,92,93,94,95,0,0,0,0
44370DATA 0,183,182,181,180,179,178,177,176,175,0,0,0,0,0
44380DATA 164,165,166,167,168,169,170,171,172,173,174,0,0,0,0
44390DATA 163,162,161,160,159,158,157,156,155,154,153,0,0,0,0
44400DATA 188,187,186,185,184,147,148,149,150,151,152,0,0,0,0
44410DATA 189,190,191,192,193,194,195,196,197,198,199,0,0,0,0
44420DATA 210,209,208,207,206,205,204,203,202,201,200,0,0,0,0
44430DATA 0,211,212,213,214,215,216,217,218,219,0,0,0,0,0
44440DATA 226,227,228,262,263,266,267,268,281,283,284,285,288,289,290
44450DATA 225,229,230,261,264,265,260,269,280,282,294,286,287,291,292
44460DATA 224,312,231,256,257,258,259,270,279,296,295,297,0,293,0
44470DATA 222,221,232,255,254,253,252,271,278,300,299,298,0,0,0
44480DATA 223,220,233,248,249,250,251,272,277,301,302,303,0,0,0
44490DATA 236,235,234,247,246,245,244,273,276,309,304,305,0,308,0
44500DATA 237,238,239,240,241,242,243,274,275,310,311,306,0,307,0
� >!RunImage
� for !Gorm
"Version$="1.40 (24th June 94)"
(� Chris Allen
2� � Archimedes World
<
F.�     "Thou nosey users with peering eyes,
P+�      Readers of this file, I despise,
Z1�      I'll create a curse of fear and dread,
d/�      Hackers, I do not like," Chris said.
n$�     "Let chaos free in the OS,
x(�      I shall form a fearsome mess,
�&�      From variables to CMOS RAM,
�#�      It shall affect any man,
�+�      Who dares to read my Gorm files,
�)�      Be warned, foolish juveniles."
�
��open%=0:oldtime%=�:active%=-1:swear%=0:computer%=0:notimes%=0:oldword$="":roomno%=1:sleep%=0:sleepoldtime%=�:currentpic$="1":totalrooms%=312:altered%=0:written%=0:picsize%=464000:heaperror%=0:fonterror%=0:crier%=1
��noz%=4:zone%=1:nifok%=0:savegt%=1:whiz%=0:pamp%=0:dug%=0:mould%=0:fire%=1:firetime%=�:suitcase%=0:mapsize%=105:mapwidth%=15:shaded%=0:drugged%=0:poltime%=�:trapped%=0:trappedtime%=�:injure%=0:nbtm%=0
�;renw%=0:dugged%=0:ill%=0:medium1%=0:medium2%=0:payed%=0
�2� police%(3), poldir%(3), buffer% 64, icon$(4)
�Wpolice%(1)=107:poldir%(1)=4:police%(2)=143:poldir%(2)=4:police%(3)=206:poldir%(3)=1
�� wimp% 5000, advent% 15, sprite% 42000, menu% 500, info% 200, greet% 60, saver% 400, user% 502, quest$(11), inter% 600, posi% 200, messge% 250
�;� default1$(totalrooms%,10), default2$(6), default3%(7)
��� rooms$(totalrooms%,9), exits(totalrooms%,10), objects$(totalrooms%,10), owns$(10), abbrev$(totalrooms%,2), mpdt%(noz%,mapsize%), mapyn%(totalrooms%), rentry$(totalrooms%), then%(10), ec$(14)
 sprite%!0=42000:sprite%!8=16
!ș "OS_SpriteOp",&109,sprite%
7ș "OS_SpriteOp",&10A,sprite%,"<Gorm$Dir>.!Sprites"
"-ș &400C0,200,&4B534154,"Gorm" � ,apphan%
,%templates$="<Gorm$Dir>.Templates"
6Jș "OS_ReadVarVal","Gorm$3D",buffer%,256 �,,length%:buffer%?length%=13
@7� $buffer%="Yes" templates$="<Gorm$Dir>.Template3D"
J�"Unset Gorm$3D"
Tș &400D9,,templates$
^wimp%!64=sprite%
h5ș &400DB,,wimp%,greet%,greet%+60,-1,"greeting",0
r ș &400C1,,wimp% � greethan%
|-ș "XOS_ReadModeVariable",�,11 � ,,width%
�.ș "XOS_ReadModeVariable",�,12 � ,,height%
�-ș "XOS_ReadModeVariable",�,4 � ,,xwidth%
�-ș "XOS_ReadModeVariable",�,5 � ,,ywidth%
�1width%=width%*xwidth%:height%=height%*ywidth%
��wimp%!0=greethan%:ș"Wimp_GetWindowState",,wimp%:wimp%!4=width%-427:wimp%!8=height%-286:wimp%!12=width%+427:wimp%!16=height%+286:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
���err(�,�$)
��
�ș "Wimp_Poll",,wimp% � r%
�Ȏ r% �
�r� 0 : nbtm%=0:� heaperror%=1 heaperror%=0:�contcontload � � fonterror%=1 fonterror%=0:�contload � Ȏ active% �
�$  � -1 : active%=0:�continueload
�  � -2 : ș &400DD,apphan%
�X   : � open%=1 � swear%<>5 � �-12000>oldtime% oldtime%=�:� nifok%=0 � renw%=0 �wait
6� �-1000>poltime% � zone%=3 � nifok%=0 �policemaze
2� �-1000>poltime% � zone%=2 � nifok%=0 �police
E� �-6000>sleepoldtime% � sleep%=1 sleep%=0:�add("You wake up...")
&%� �-200>firetime% � fire%=2 �fire
0�� �-250>trappedtime% � trapped%=1 trapped%=0:exits(110,4)=0:exits(111,2)=0:wimp%!0=maphan%:�redrawmap:�add("You hear a door slam.")
:�
D�� 1 : � wimp%!0=adventhan% �redraw � � wimp%!0=picciehan% �redrawpics � � wimp%!0=maphan% �redrawmap � ș "Wimp_RedrawWindow",,wimp%
N7� 2 : ș &400C5,,wimp%:� wimp%!0=adventhan% �attach
X�� 3 : ș &400C6,,wimp%:� wimp%!0=adventhan% open%=0:wimp%!0=userhan%:ș"Wimp_CloseWindow",,wimp%:wimp%!0=posihan%:ș"Wimp_CloseWindow",,wimp%
b� 6 : �click
l� 7 : �drag_complete
v;� 8 : � wimp%!24=13 �key � ș"Wimp_ProcessKey",wimp%!24
�� 9 : �menuselect
�� 17,18 : Ȏ wimp%!16 �
�  � 0 : �quityn
�  � 2 : �save
�,  � 3,5 : ldfilenm$=�xtractfln:�fileload
�  � &502 : �interactive
�Y  � &400C1 : � myfont%<>-1 ș "Font_FindFont",,"Trinity.Medium",12*16,12*16 � myfont%
�W                ș retcol%,myfont%,&FFFFFF00,&00000000,14 � ,back1%,fore1%,offset1%
�V                ș retcol%,myfont%,&FFFFFF00,&0000FF00,0 � ,back2%,fore2%,offset2%
�!                �decideshaded
�  � &400CC : ș "Wimp_GetPointerInfo",,wimp%:� wimp%!12=adventhan% wimp%!0=userhan%:ș"Wimp_CloseWindow",,wimp%:wimp%!0=posihan%:ș"Wimp_CloseWindow",,wimp%
��
��
� �

ݤxtractfln
 Gname$="":n=44:ȕ ((wimp%?n)>=32) � (n<256):name$+=�(wimp%?n):n+=1:�
*
=name$
4
>��quityn
H"� altered%=0 ș &400DD,apphan%
RX� altered%=1 �warning(1,"","Quitting the program will lose","your current game.","")
\�
f
p��continueaction
zȎ wherefrom% �
�� 1 : ș &400DD,apphan%
�� 2 : yesno%=2:�loaditup
�� 3 : �restart
��
��
�
���loaditup
�A%=�(ldfilenm$)
�wasteoftime$=��#A%,16)
�z� wasteoftime$<>"!Gorm Saved Game" �warning(4,"","This file is corrupt or is not","a real Gorm saved game.",""):�#A%:�
�swear%=�(�#A%)
�computer%=�(�#A%)
�notimes%=�(�#A%)
oldword$=�#A%
roomno%=�(�#A%)
sleep%=�(�#A%)
$written%=�(�#A%)
.font%=�(�#A%)
8"� font%=1 � myfont%=-1 font%=0
Bnifok%=�(�#A%)
Lexits(2,2)=�(�#A%)
Vexits(72,3)=�(�#A%)
`exits(85,2)=�(�#A%)
jexits(110,4)=�(�#A%)
texits(111,2)=�(�#A%)
~exits(179,1)=�(�#A%)
�exits(310,2)=�(�#A%)
�ill%=�(�#A%)
�medium1%=�(�#A%)
�medium2%=�(�#A%)
�payed%=�(�#A%)
�renw%=�(�#A%)
�crier%=�(�#A%)
�mould%=�(�#A%)
�dug%=�(�#A%)
�pamp%=�(�#A%)
�whiz%=�(�#A%)
�fire%=�(�#A%)
suitcase%=�(�#A%)

injure%=�(�#A%)
zone%=�(�#A%)
dugged%=�(�#A%)
(rooms$(78,2)=�#A%
2rooms$(78,3)=�#A%
<rooms$(78,4)=�#A%
Frooms$(85,5)=�#A%
Pabbrev$(78,1)=�#A%
Zrentry$(78)=�#A%
d� a%=1 � 3
npolice%(a%)=�(�#A%)
xpoldir%(a%)=�(�#A%)
�� a%
�drugged%=�(�#A%)
�� a%=1 � totalrooms%
�mapyn%(a%)=�(�#A%)
�� a%
�� a%=1 � 10
�owns$(a%)=�#A%
�� a%
�� a%=1 � 11
�quest$(a%)=�#A%
�� a%
�� a%=1 � totalrooms%
�� b%=1 � 10
objects$(a%,b%)=�#A%
� b%
� a%
"�#A%
,sleepoldtime%=�
6poltime%=�
@altered%=0
J)� yesno%=2 wimp%!0=adventhan%:�redraw
T'�decidepics:�decidetitle:�decidepos
^wimp%!0=maphan%:�redrawmap
h\wimp%!0=adventhan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
r�attach
|�seticon(k%,1,ldfilenm$)
��
�
���continueload
�myfont%=-1
�Xfonterror%=1:ș "Font_FindFont",,"Trinity.Medium",12*16,12*16 � myfont%:fonterror%=0
�6ș "XOS_SWINumberFromString",,"Font_SetFont" � ft%
�@ș "XOS_SWINumberFromString",,"Font_SetFontColours" � ftcol%
�6ș "XOS_SWINumberFromString",,"Font_Paint" � ftpt%
�_ș "ColourTrans_ReturnFontColours",myfont%,&FFFFFF00,&00000000,14 � ,back1%,fore1%,offset1%
�^ș "ColourTrans_ReturnFontColours",myfont%,&FFFFFF00,&0000FF00,0 � ,back2%,fore2%,offset2%
�
�contload
��
�
��contload
Bș "XOS_SWINumberFromString",,"ColourTrans_SetGCOL" � setgcol%
Kș "XOS_SWINumberFromString",,"ColourTrans_ReturnFontColours" � retcol%
&8ș &400DB,,wimp%,advent%,advent%+15,-1,"adventure",0
0!ș &400C1,,wimp% � adventhan%
:0ș &400DB,,wimp%,info%,info%+200,-1,"info",0
Dș &400C1,,wimp% � inhan%
N5ș &400DB,,wimp%,saver%,saver%+400,-1,"savebox",0
Xș &400C1,,wimp% � k%
b0ș &400DB,,wimp%,user%,user%+502,-1,"user",0
lș &400C1,,wimp% � userhan%
v%ș &400DB,,wimp%,,,-1,"piccies",0
�!ș &400C1,,wimp% � picciehan%
�!ș &400DB,,wimp%,,,-1,"map",0
�ș &400C1,,wimp% � maphan%
�4ș &400DB,,wimp%,posi%,posi%+200,-1,"position",0
�ș &400C1,,wimp% � posihan%
�7ș &400DB,,wimp%,messge%,messge%+250,-1,"warning",0
�ș &400C1,,wimp% � warnhan%
�
ș &400DA
�� a%=1 � totalrooms%
�mapyn%(a%)=0
�� a%
�mapyn%(1)=1
�heaperror%=1
&ș "OS_ReadMemMapInfo" � heapsize%
pagesize%=heapsize%
(ș "Wimp_SlotSize",-1,-1 � slotsize%
 heaploct%=slotsize%+&8000
*3ș "Wimp_SlotSize",heaploct%+heapsize%-&8000,-1
4'ș "OS_Heap",0,heaploct%,,heapsize%
>4ș "XOS_Heap",2,heaploct%,,picsize% � ,,piccies%
H�  � ((heapsize%+picsize%) � pagesize%) <> 0 v%=heapsize%+picsize%+(pagesize%-((heapsize%+picsize%) � pagesize%)) � v%=heapsize%+picsize%
R/  ș "XWimp_SlotSize",heaploct%+v%-&8000,-1
\9  ș "OS_Heap",5,heaploct%,,v%-heapsize%:heapsize%=v%
f�  ș "XOS_Heap",2,heaploct%,,picsize% � ,,piccies%:picyn%=1:piccies%!0=picsize%:piccies%!8=16:ș "OS_SpriteOp",&109,piccies%:ș "OS_SpriteOp",&10A,piccies%,"<Gorm$Dir>.Code"
pheaperror%=0
z�contcontload
��
�
���contcontload
�mynum%=1.26+0.75+0.99
�Ystng$=�untangle("lihsuvt",mynum%):strng$=�untangle("Dcem""htqo""vjg""fgcf#",mynum%-1)
�� a=1 � 14
�� ec$(a)
�#ec$(a)=�untangle(ec$(a),mynum%)
�� a
��iconbar
�
�loaddata
�� a%=1 � noz%
�� b%=1 � mapsize%
	� mpdt%(a%,b%)
	� b%
	� a%
	$�loadoptions
	.�decidetitle:�decidepos
	8�decideshaded
	BK�add("Welcome to your quest brave adventurer."):i$="look":�look:temp%=0
	L�seticon(inhan%,4,Version$)
	V2wimp%!0=greethan%:ș"Wimp_DeleteWindow",,wimp%
	`ș "OS_GetEnv" � file$
	j� �file$,"-quit") �
	tI%=�file$,"""")
	~I%=�file$,"""",I%+1)
	��
	�	I%+=1
	�� �file$,I%,1)<>" "
	�file$=�file$,I%)
	� � file$<>"" �loader(file$,1)
	��
	�
	���decidetitle
	�titler$="Map -"
	�Ȏ zone% �
	�� 1,4 : titler$+="Town"
	�� 2 : titler$+="Jail"
� 3 : titler$+="Maze"

�
�

(!��toggleicon(wimp%!0,wimp%!4)
2wimp%!8=&200000:wimp%!12=0
<!ș "Wimp_SetIconState",,wimp%
F�
P
Z��decideshaded
d+ș "XOS_ReadModeVariable",�,3 � ,,cols%
n#� cols%<>15 � picyn%=1 picyn%=2
x"� cols%=15 � picyn%=2 picyn%=1
�� shaded%=0 � picyn%=2 �
�
shaded%=1
�<wimp%!0=userhan%:wimp%!4=11:wimp%!12=1<<22:wimp%!8=1<<22
� ș"Wimp_SetIconState",,wimp%
��
�� shaded%=1 � picyn%=1 �
�
shaded%=0
�8wimp%!0=userhan%:wimp%!4=11:wimp%!12=1<<22:wimp%!8=0
� ș"Wimp_SetIconState",,wimp%
��
�� shaded%=0 � picyn%=0 �
�
shaded%=1
�<wimp%!0=userhan%:wimp%!4=11:wimp%!12=1<<22:wimp%!8=1<<22
 ș"Wimp_SetIconState",,wimp%
�
�
"
,��checkdrag
6Dș "XOS_SWINumberFromString",,"DragASprite_Start" � dragyn%;flag
@� (flag � 1) dragyn%=-1
J� dragyn%<>-1 �
T ș "OS_Byte",161,28 � ,,cmos
^� (cmos � 2)=0 dragyn%=-1
h�
r�
|
���decidepos
��decidetitle
� title$=rentry$(roomno%)+" ("
�year$="1794"
�Ȏ zone% �
�� 1 : title$+="Town"
�� 2 : title$+="Jail"
�� 3 : title$+="Maze"
�%� 4 : title$+="Town":year$="1994"
��
�title$+=")."
��seticon(posihan%,0,title$)
��seticon(posihan%,1,year$)
�

��interactive
&	t$=""
0inter%=wimp%
:inter%!12=wimp%!8
Dinter%!16=&503
NȎ inter%!32 �
X}� -2 : t$="This is the Gorm application.|MClick SELECT to display the adventure window.|MClick ADJUST to display the map"
b-  ș "XOS_ReadModeVariable",�,3 � ,,cols%
l%  � cols%<>15 � picyn%=1 picyn%=2
v$  � cols%=15 � picyn%=2 picyn%=1
�=  � picyn%=1 t$+=" and picture windows." � t$+=" window."
�O� greethan% : t$="!Gorm, by Chris Allen, is loading.|MPlease be patient..."
�b� adventhan% : t$="The adventure window.|MThis window shows the text adventure at the moment."
�b� posihan% : t$="The position panel.|MThis panel tells you where you are and what year it is."
�w� picciehan% : t$="The picture window.|MThis shows the picture that is most relevant to your position in the game."
�:� inhan% : t$="All the extremely interesting stuff..."
�Z� userhan% : t$="The input panel.|MThis is where you enter the orders.":Ȏ inter%!36 �
�-  � 0 : t$+="|MClick SELECT to go north."
Њ  � 1 : t$+="|MEnter the orders into this icon, then press RETURN or click on OK.|M(Ctrl+U clears this icon when the caret is in it)."
ڈ  � 2 : t$+="|MClick SELECT to process the instruction, click ADJUST to process the instruction without clearing the writable icon."
�,  � 3 : t$+="|MClick SELECT to go east."
�-  � 4 : t$+="|MClick SELECT to go south."
�,  � 5 : t$+="|MClick SELECT to go west."

*  � 6 : t$+="|MClick SELECT to go up."

,  � 7 : t$+="|MClick SELECT to go down."

)  � 8 : t$+="|MClick SELECT to look."

 2  � 9 : t$+="|MClick SELECT for an inventory."

*9  � 10 : t$+="|MClick SELECT for the possible exits."

47  � 11 : t$+="|MClick SELECT to view the pictures."

>2  � 12 : t$+="|MClick SELECT to view the map."

H�  � 13 : t$+="|MClick SELECT to save the game, if the game has not been saved before the save window will appear.|MClick ADJUST to bring up the save window regardless."

R�

\.� k% : t$="The save box.|M":Ȏ inter%!36 �

fS� 0 : t$+="Drag this icon to the directory in which you want to save the file."

p?� 1 : t$+="Enter the filename for the file into this icon."

z�� 2 : t$+="Click here to save the file with the current filename. If it is not a full pathname, you must drag the icon to a directory first."

�8� 3 : t$+="Click SELECT to save the Gorm adventure."

�J� 4 : t$+="Click SELECT to save the text inside the adventure window."

�$ : t$+="Save the ":Ȏ savegt% �

�]� 1 : t$+="game by dragging the icon to a directory viewer in the usual RISC OS fashion."

�]� 2 : t$+="text by dragging the icon to a directory viewer in the usual RISC OS fashion."

��

��

��� maphan% : t$="The map window.|MThis window maps a plan view of all the places you have visited.|MUp and down arrows mean there are exits up and down and your current position is marked by a red spot."

�:� zone%=2 � zone%=3 t$+=" Yellow spots are policemen."

�8� warnhan% : t$="The message window.":Ȏ inter%!36 �

�4� 5 : t$+="|MClick SELECT to remove the window."

�+� 6 : t$+="|MClick SELECT to continue."

��
�
t$+=�(0)
$(inter%+20)=t$
$!inter%!0=(((21+�(t$))�4)*4)+4
.#ș "Wimp_SendMessage",17,inter%
8�
B
L��loaddata
Vș "Hourglass_On"
`A%=�("<Gorm$Dir>.Data")
j� a=1 � totalrooms%
tspno%=�(�(�#A%)-a)
~
� b=1 � 9
�%rooms$(a,b)=�untangle(�#A%,spno%)
�� b
�&abbrev$(a,1)=�untangle(�#A%,spno%)
�&abbrev$(a,2)=�untangle(�#A%,spno%)
�$rentry$(a)=�untangle(�#A%,spno%)
�� b=1 � 10
�'objects$(a,b)=�untangle(�#A%,spno%)
�� b
�� b=1 � 10
�exits(a,b)=�(�#A%)
�� b
�1ș "Hourglass_Percentage",(a/totalrooms%)*100
� a

�#A%
ș "Hourglass_Off"
� a=1 � totalrooms%
(� b=1 � 10
2 default1$(a,b)=objects$(a,b)
<� b
F� a
P7default2$(1)=rooms$(78,2):default2$(2)=rooms$(78,3)
Z7default2$(3)=rooms$(78,4):default2$(4)=rooms$(85,5)
d7default2$(5)=abbrev$(78,1):default2$(6)=rentry$(78)
n4default3%(1)=exits(2,2):default3%(2)=exits(72,3)
x6default3%(3)=exits(85,2):default3%(4)=exits(110,4)
�7default3%(5)=exits(111,2):default3%(6)=exits(179,1)
�default3%(7)=exits(310,2)
��
�
�8��warning(from%,icon$(1),icon$(2),icon$(3),icon$(4))
�wherefrom%=from%
�/� a=1 � 4:�seticon(warnhan%,a,icon$(a)):� a
�-ș "XOS_ReadModeVariable",�,11 � ,,width%
�.ș "XOS_ReadModeVariable",�,12 � ,,height%
�-ș "XOS_ReadModeVariable",�,4 � ,,xwidth%
�-ș "XOS_ReadModeVariable",�,5 � ,,ywidth%
�1width%=width%*xwidth%:height%=height%*ywidth%
�width%-=347:height%+=138
1ș "Wimp_CreateMenu",,warnhan%,width%,height%
�

"��fileload
,� wimp%!40<>&179 �
6g� wimp%!16<>5 �warning(4,"","This file is not a Gorm saved game,","therefore I cannot load it.","")
@�
J�
Twimp%!12=wimp%!8:wimp%!16=4
^*ș "Wimp_SendMessage",17,wimp%,wimp%!4
h�loader(ldfilenm$+�(0),2)
r�
|
���loadoptions
�A%=�("<Gorm$Dir>.Options")
�posiyn%=�(�#A%)
�font%=�(�#A%)
��#A%
�� myfont%=-1 font%=0
��
�
���saveoptions
�A%=�("<Gorm$Dir>.Options")
��#A%,�(posiyn%)
��#A%,�(font%)
��#A%
�

��loader(ldfilenm$,yesno%)
&� altered%=0 �loaditup
0d� yesno%=2 � altered%=1 �warning(2,"","Loading this saved game will","lose the current one.","")
:�
D
N��attach
X�ș"Wimp_GetWindowState",,wimp%:wimp%!0=userhan%:wimp%!16=wimp%!8-4:wimp%!8=wimp%!16-128:wimp%!12=wimp%!4+930:ș"Wimp_OpenWindow",,wimp%
b�� posiyn%=1 wimp%!0=adventhan%:ș"Wimp_GetWindowState",,wimp%:wimp%!0=posihan%:wimp%!8=wimp%!16-44:ș"Wimp_OpenWindow",,wimp%
l�
v
���redraw
�>wimp%!0=adventhan%:ș "Wimp_RedrawWindow",,wimp% � redraw%
�� font%=1 ș ft%,myfont%
�ȕ redraw%
�drawx=(wimp%!4-wimp%!20)+2
�drawy=wimp%!16-wimp%!24-17
�� font%=1 drawy-=18
�� font%=1 �
�� f=1 � 11
�#� drawx+(16*�(quest$(f))),drawy
�� �quest$(f),1)="@" ș ftcol%,myfont%,back2%,fore2%,offset2%:ș ftpt%,,�quest$(f),2,76),17,drawx,drawy � ș ftcol%,myfont%,back1%,fore1%,offset1%:ș ftpt%,,quest$(f),17,drawx,drawy
�
drawy-=37
�� f
�
� font%=0 �
� f=1 � 11
 � drawx,drawy
*j� �quest$(f),1)="@" ș setgcol%,&0000FF00,,0:� �quest$(f),2,76) � ș setgcol%,&00000000,,0:� quest$(f)
4
drawy-=36
>� f
H�
R+ș "Wimp_GetRectangle",,wimp% � redraw%
\�
f�
p
z��redrawpics
�+ș "XOS_ReadModeVariable",�,3 � ,,cols%
�#� cols%<>15 � picyn%=1 picyn%=2
�A� picyn%<>1 wimp%!0=picciehan%:ș "Wimp_CloseWindow",,wimp%:�
�+ș "Wimp_RedrawWindow",,wimp% � redraw%
�ȕ redraw%
�Ȏ nifok% �
�W� 1 : ș setgcol%,&00000000,,0:ȓȐ wimp%!4-wimp%!20,wimp%!16-wimp%!24-424,1236,424
�[ : � wimp%!4-wimp%!20,wimp%!16-wimp%!24-424:ș "OS_SpriteOp",&11C,piccies%,currentpic$
��
�+ș "Wimp_GetRectangle",,wimp% � redraw%
��
��
�
��redrawmap
+ș "Wimp_RedrawWindow",,wimp% � redraw%
�5
$ȕ redraw%
.(drawx=wimp%!4-wimp%!20+5:origx=drawx
8drawy=wimp%!16-wimp%!24-5
Bwdth%=0
L%� drawx,drawy:� titler$:drawy-=32
VEș setgcol%,&00000000,,0:� drawx,drawy,drawx+1600,drawy:drawy-=15
`� f=1 � mapsize%
jș setgcol%,&00000000,,0
tmd=mpdt%(zone%,f)
~� md<>0 � mapyn%(md)=1 �
�q� exits(md,1)>0 � drawx,drawy,drawx+33,drawy:� drawx+66,drawy,drawx+100,drawy � � drawx,drawy,drawx+100,drawy
��� exits(md,2)>0 � drawx+100,drawy,drawx+100,drawy-33:� drawx+100,drawy-66,drawx+100,drawy-100 � � drawx+100,drawy,drawx+100,drawy-100
��� exits(md,3)>0 � drawx,drawy-100,drawx+33,drawy-100:� drawx+66,drawy-100,drawx+100,drawy-100 � � drawx,drawy-100,drawx+100,drawy-100
�q� exits(md,4)>0 � drawx,drawy,drawx,drawy-33:� drawx,drawy-66,drawx,drawy-100 � � drawx,drawy,drawx,drawy-100
��� exits(md,9)>0 � drawx+80,drawy-50,drawx+80,drawy-85:� drawx+80,drawy-50,drawx+74,drawy-60:� drawx+80,drawy-50,drawx+86,drawy-60
��� exits(md,10)>0 � drawx+80,drawy-50,drawx+80,drawy-85:� drawx+80,drawy-85,drawx+74,drawy-75:� drawx+80,drawy-85,drawx+86,drawy-75
�&� drawx+10,drawy-8:� abbrev$(md,1)
�'� drawx+10,drawy-40:� abbrev$(md,2)
�A� roomno%=md ș setgcol%,&0000FF00,,0:ȏȐdrawx+20,drawy-84,7
�� a%=1 � 3
�B� md=police%(a%) ș setgcol%,&00FFFF00:ȏȐdrawx+50,drawy-84,7
�� a%
�

wdth%+=1
8� wdth%=mapwidth% wdth%=0:drawx=origx-100:drawy-=100
drawx+=100
(� f
2+ș "Wimp_GetRectangle",,wimp% � redraw%
<�
F�
P
Z��decidepics
dcurrentpic$=�(zone%)
nȎ roomno% �
x"� 71,220,311 : currentpic$="5"
�7� 285,286,287,288,289,290,291,292 : currentpic$="7"
�:� 36,37,38,41,84,279,293,294,295,296 : currentpic$="8"
�$� 72,78,79,80 : currentpic$="14"
�*� 49,50,51,52,63,64 : currentpic$="10"
�,� 262,263,264,265,266 : currentpic$="11"
�� 310 : currentpic$="12"
�$� 226,227,228 : currentpic$="13"
��
�*� roomno%=78 � fire%>0 currentpic$="9"
�� renw%=1 currentpic$="6"
�"wimp%!0=picciehan%:�redrawpics
��
�
 ݤuntangle(myline$,myrandno)
theline$=""
� myline$="" =theline$
"� lncnt=1 � �(myline$)
,.theline$+=�(�(�myline$,lncnt,1))-myrandno)
6� lncnt
@
=theline$
J
T	��key
^�� wimp%!0=userhan% i$=�readinput:�add("@"+i$):�respond:� i$<>"quit please" �seticon(userhan%,1,""):ș"Wimp_SetCaretPosition",userhan%,1,,,-1
h-� wimp%!0=k% � wimp%!4=1 �getfilename � �
rO� �filena$,".")=0 �err(1,"To save, drag the icon to a directory viewer."):�
|filename$=filena$
��dothingy(1)
��
�
���ok(button%)
�� wimp%!8<>1 � wimp%!8<>4 �
��getfilename
�O� �filena$,".")=0 �err(1,"To save, drag the icon to a directory viewer."):�
�filename$=filena$
�� button%=1 button%=0
�� button%=4 button%=1
��dothingy(button%)
��
�
��drag_complete
'� dragyn%<>-1 ș "DragASprite_Stop"
#ș "Wimp_GetPointerInfo",,wimp%
&=TheWindow%=wimp%!12:TheIcon%=wimp%!16:x=wimp%!0:y=wimp%!4
0Jwimp%!0=64:wimp%!12=0:wimp%!16=1:wimp%!20=TheWindow%:wimp%!24=TheIcon%
:wimp%!28=x:wimp%!32=y
D-� savegt%=1 wimp%!36=5500 � wimp%!36=1200
N-� savegt%=1 wimp%!40=&179 � wimp%!40=&FFF
X$(wimp%+44)=filena$
b6ș "Wimp_SendMessage",17,wimp%,TheWindow%,TheIcon%
l�
v
�
��save
�!x=wimp%!0:y=wimp%!4:z=wimp%!8
� filename$=�convert(wimp%+44)
�#wimp%!0=x:wimp%!12=z:wimp%!16=3
�$ș "Wimp_SendMessage",18,wimp%,y
�(filename$=�fixstring(filename$+�(0))
��dothingy(1)
��
�
�ݤconvert(no%)
�doofer$=""
�ȕ ?no%
�doofer$+=�?no%

no%+=1
�
=doofer$
 
*��dothingy(fg%)
4� savegt%=2 �savetext:�
>A%=�(filename$)
H*�#A%,"!Gorm Saved Game - saved on "+�$
R�#A%,�(swear%)
\�#A%,�(computer%)
f�#A%,�(notimes%)
p�#A%,oldword$
z�#A%,�(roomno%)
��#A%,�(sleep%)
��#A%,�(written%)
��#A%,�(font%)
��#A%,�(nifok%)
��#A%,�(exits(2,2))
��#A%,�(exits(72,3))
��#A%,�(exits(85,2))
��#A%,�(exits(110,4))
��#A%,�(exits(111,2))
��#A%,�(exits(179,1))
��#A%,�(exits(310,2))
��#A%,�(ill%)
��#A%,�(medium1%)
�#A%,�(medium2%)
�#A%,�(payed%)
�#A%,�(renw%)
$�#A%,�(crier%)
.�#A%,�(mould%)
8�#A%,�(dug%)
B�#A%,�(pamp%)
L�#A%,�(whiz%)
V�#A%,�(fire%)
`�#A%,�(suitcase%)
j�#A%,�(injure%)
t�#A%,�(zone%)
~�#A%,�(dugged%)
��#A%,rooms$(78,2)
��#A%,rooms$(78,3)
��#A%,rooms$(78,4)
��#A%,rooms$(85,5)
��#A%,abbrev$(78,1)
��#A%,rentry$(78)
�� a%=1 � 3
��#A%,�(police%(a%))
��#A%,�(poldir%(a%))
�� a%
��#A%,�(drugged%)
�� a%=1 � totalrooms%
�#A%,�(mapyn%(a%))

� a%
� a%=1 � 10
�#A%,owns$(a%)
(� a%
2� a%=1 � 11
<�#A%,quest$(a%)
F� a%
P� a%=1 � totalrooms%
Z� b%=1 � 10
d�#A%,objects$(a%,b%)
n� b%
x� a%
��#A%
� �"Settype "+filename$+" 179"
�#� fg%=1 ș "Wimp_CreateMenu",-1
��seticon(k%,1,filename$)
�*wimp%!0=k%:ș"Wimp_CloseWindow",,wimp%
�altered%=0
��
�
���savetext
�A%=�(filename$)
�$�#A%,"Text from Gorm adventure:"
��#A%,""
�� a%=1 � 11
line$=quest$(a%)
!� �line$,1)="@" �line$,1)="-"
�#A%,line$
"� a%
,�#A%
6 �"Settype "+filename$+" FFF"
@#� fg%=1 ș "Wimp_CreateMenu",-1
J�seticon(k%,1,filename$)
T*wimp%!0=k%:ș"Wimp_CloseWindow",,wimp%
^�
h
r��err(wimp%!0,$(wimp%+4))
|'� fonterror%=1 myfont%=-1:font%=0:�
�F� heaperror%=1 �seticon(greethan%,1,"Without pictures"):picyn%=0:�
�Ȏ wimp%!0 �
�F� 204 : $(wimp%+4)+=". Change the filename to something possible."
�E� 67785 : $(wimp%+4)+=". Flip the tab on the disc and try again."
��
�(ș "Wimp_ReportError",wimp%,1,"Gorm"
��
�
�
��iconbar
�"wimp%!0=-1:wimp%!4=0:wimp%!8=0
�*wimp%!12=68:wimp%!16=68:wimp%!20=&300A
�$(wimp%+24)="!Gorm"
�(ș "Wimp_CreateIcon",,wimp% � ichan%
�

��menuselect
&a%=wimp%!0:b%=wimp%!4
0#ș "Wimp_GetPointerInfo",,wimp%
:but%=wimp%!8
Dwimp%!0=a%:wimp%!4=b%
Nfntopt%=1:� m%=0 fntopt%=0
X"extraopt%=2:� m%=0 extraopt%=1
bpanels%=3:� m%=0 panels%=2
l$restrtopt%=4:� m%=0 restrtopt%=3
v saveopt%=5:� m%=0 saveopt%=4
�Ȏ wimp%!0 �
�  � fntopt% : Ȏ wimp%!4 �
�B    � 0,1 : font%=wimp%!4:wimp%!0=adventhan%:� open%=1 �redraw
�	    �
�   � extraopt% : Ȏ wimp%!4 �
��    � -1 : wimp%!0=maphan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:� picyn%=1 wimp%!0=picciehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
�c    � 0 : wimp%!0=maphan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
�f    � 1 : wimp%!0=picciehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
�	    �
�  � panels% : Ȏ wimp%!4 �
�    � 0 : posiyn%=1-posiyn%
�I             � posiyn%=0 wimp%!0=posihan%:ș"Wimp_CloseWindow",,wimp%
��             � posiyn%=1 � open%=1 wimp%!0=adventhan%:ș"Wimp_GetWindowState",,wimp%:wimp%!0=posihan%:wimp%!8=wimp%!16-44:ș"Wimp_OpenWindow",,wimp%
  �
i  � restrtopt% : � altered%=1 �warning(3,"","Restarting will lose","the current game.","") � �restart
#      � saveopt% : Ȏ wimp%!4 �
 �      � 0 : �getfilename:� �filena$,".")=0 wimp%!0=k%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:ș"Wimp_SetCaretPosition",k%,1,,,-1,�(filena$) � filename$=filena$:�dothingy(0)
*      � 1 : �saveoptions
4�       : �getfilename:� �filena$,".")=0 wimp%!0=k%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:ș"Wimp_SetCaretPosition",k%,1,,,-1,�(filena$) � filename$=filena$:�dothingy(0)
>      �
H  � 6 : �quityn
R�
\E� but%=1 � wimp%!0<>6 wimp%!0=mousx%:wimp%!4=mousy%:�makemenu(m%)
f�
p
z
��restart
�ș "Hourglass_On"
�� a=1 � 11
�quest$(a)=""
�� a
�� a%=1 � 10
�owns$(a%)=""
�� a%
��swear%=0:computer%=0:notimes%=0:roomno%=1:zone%=1:sleep%=0:altered%=0:written%=0:suitcase%=0:nifok%=0:crier%=1:mould%=0:dug%=0:pamp%=0:whiz%=0:dugged%=0:fire%=1:drugged%=0:injure%=0:renw%=0:ill%=0:medium1%=0:medium2%=0:payed%=0
�police%(1)=107:poldir%(1)=4
�police%(2)=143:poldir%(2)=4
�police%(3)=206:poldir%(3)=1
�� a=1 � totalrooms%
�� b=1 � 10
mapyn%(a)=0
 objects$(a,b)=default1$(a,b)
� b
$� a
.7rooms$(78,2)=default2$(1):rooms$(78,3)=default2$(2)
87rooms$(78,4)=default2$(3):rooms$(85,5)=default2$(4)
B7abbrev$(78,1)=default2$(5):rentry$(78)=default2$(6)
L4exits(2,2)=default3%(1):exits(72,3)=default3%(2)
V6exits(85,2)=default3%(3):exits(110,4)=default3%(4)
`7exits(111,2)=default3%(5):exits(179,1)=default3%(6)
jexits(310,2)=default3%(7)
t3�add("Welcome to your quest brave adventurer.")
~i$="look":�look
�wimp%!0=adventhan%:�redraw
��decidetitle
�5mapyn%(1)=1:wimp%!0=maphan%:�redrawmap:�decidepos
�ș "Hourglass_Off"
��
�
���getfilename
�wimp%!0=k%:wimp%!4=1
�ș &400CE,,wimp%
�filena$=$wimp%!28
�$filena$=�fixstring(filena$+�(0))
��


��changefilename(opt%)
�getfilename
`� �filena$,".")=0 � opt%=1 �seticon(k%,1,"SavedGame"):ș "Wimp_SetCaretPosition",k%,1,,,-1,9
([� �filena$,".")=0 � opt%=2 �seticon(k%,1,"Text"):ș "Wimp_SetCaretPosition",k%,1,,,-1,4
2�
<
Fݤreadinput
Pwimp%!0=userhan%:wimp%!4=1
Zș &400CE,,wimp%
d=$wimp%!28
n
xݤfixstring(origname$)
�p=1:name$=""
�ȕ �origname$,p,1)<>�(0)
�name$+=�origname$,p,1):p+=1
��
�
=name$
�
���justfile
�ȕ �filena$,".")>0
�%filena$=�filena$,�filena$,".")+1)
��
��
�
�!��seticon(wimp%!0,wimp%!4,t$)
ș &400CE,,wimp%
$wimp%!28=t$
wimp%!8=0:wimp%!12=0
"ș &400CD,,wimp%
,�
6
@
��drag
J"� wimp%!12<>k% � wimp%!16<>0 �
T%�checkdrag:�getfilename:�justfile
^.wimp%!0=k%:ș "Wimp_GetWindowState",,wimp%
h"x=wimp%!4:y=wimp%!16:wimp%!4=0
r!ș "Wimp_GetIconState",,wimp%
|(wimp%!4=5:wimp%!8+=x-4:wimp%!12+=y-4
�wimp%!16+=x+4:wimp%!20+=y+4
�wimp%!24=0:wimp%!28=0
�)wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
�=dragsprite$="file_179":� savegt%=2 dragsprite$="file_fff"
�k� dragyn%=-1 ș "Wimp_DragBox",,wimp% � ș "DragASprite_Start",%11000101,1,dragsprite$,wimp%+8,wimp%+24
��
�
�
��shiftup
�� h=1 � 10
�quest$(h)=quest$(h+1)
�� h
��
�
 ��add(phrase$)
 g%=0
 0b%=�(phrase$):� �phrase$,1,1)="@" b%-=1:g%=1
 &>� b%<77 �shiftup:quest$(11)=phrase$:flag%=0 � flag%=1:f%=0
 0ȕ flag%=1
 :�shiftup
 D%temphrase$=�phrase$,(f%*76)+1,76)
 Nthere=0
 X� i=76 � 1 �-1
 b�� �temphrase$,i,1)=" " � �temphrase$,i,1)="." � �temphrase$,i,1)="," � �temphrase$,i,1)="?" � �temphrase$,i,1)=":" � �temphrase$,i,1)=";" � �temphrase$,i,1)="!" � �temphrase$,i,1)="'" there=i:i=1
 l� i
 v� �(temphrase$)<76 there=0
 �/� there<2 quest$(11)=�phrase$,(f%*76)+1,76)
 ��� there>1 quest$(11)=�phrase$,(f%*76)+1,there):phrase$=�phrase$,1,(f%*76)+there)+�76-there,"*")+�phrase$,(f%*76)+1+there,�(phrase$))
 �,� g%=1 � f%<>0 quest$(11)="@"+quest$(11)
 �� there>1 b%+=76-there
 � f%+=1:� b%-(f%*76)<1 flag%=0
 ��
 �wimp%!0=adventhan%
 ��redraw
 ��
 �
 �0��seticonsprite(wimp%!0,wimp%!4,spritetype$)
 �windie%=wimp%!0
 �!ș "Wimp_GetIconState",,wimp%
!ș "Wimp_DeleteIcon",,wimp%
!6wimp%!4=wimp%!8:wimp%!8=wimp%!12:wimp%!12=wimp%!16
!?wimp%!16=wimp%!20:wimp%!20=wimp%!24:$(wimp%+24)=spritetype$
! ș "Wimp_CreateIcon",,wimp%
!*Cwimp%!0=windie%:ș "Wimp_ForceRedraw",wimp%!0,-100,-100,200,200
!4�
!>
!H��click
!R#� wimp%!8=16 � wimp%!8=64 �drag
!\1� wimp%!8=4 � wimp%!12=userhan% Ȏ wimp%!16 �
!f-  � 0 : i$="@Go north.":�add(i$):�respond
!pq  � 2 : i$="@"+�readinput:�add(i$):�respond:�seticon(userhan%,1,""):ș"Wimp_SetCaretPosition",userhan%,1,,,-1
!z,  � 3 : i$="@Go east.":�add(i$):�respond
!�-  � 4 : i$="@Go south.":�add(i$):�respond
!�,  � 5 : i$="@Go west.":�add(i$):�respond
!�*  � 6 : i$="@Go up.":�add(i$):�respond
!�,  � 7 : i$="@Go down.":�add(i$):�respond
!�)  � 8 : i$="@Look.":�add(i$):�respond
!�.  � 9 : i$="@Inventory.":�add(i$):�respond
!�+  � 10 : i$="@Exits.":�add(i$):�respond
!�e  � 11 : wimp%!0=picciehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
!�b  � 12 : wimp%!0=maphan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
!��  � 13 : �getfilename:� �filena$,".")=0 wimp%!0=k%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:ș"Wimp_SetCaretPosition",k%,1,,,-1,�(filena$) � filename$=filena$:�dothingy(0)
!��
!�1� wimp%!8=1 � wimp%!12=userhan% Ȏ wimp%!16 �
!�-  � 0 : i$="@Go north.":�add(i$):�respond
"/  � 2 : i$="@"+�readinput:�add(i$):�respond
",  � 3 : i$="@Go east.":�add(i$):�respond
"-  � 4 : i$="@Go south.":�add(i$):�respond
"$,  � 5 : i$="@Go west.":�add(i$):�respond
".*  � 6 : i$="@Go up.":�add(i$):�respond
"8,  � 7 : i$="@Go down.":�add(i$):�respond
"B)  � 8 : i$="@Look.":�add(i$):�respond
"L.  � 9 : i$="@Inventory.":�add(i$):�respond
"V+  � 10 : i$="@Exits.":�add(i$):�respond
"`e  � 11 : wimp%!0=picciehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
"jb  � 12 : wimp%!0=maphan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
"t�  � 13 : �getfilename:wimp%!0=k%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:ș"Wimp_SetCaretPosition",k%,1,,,-1,�(filena$)
"~�
"�2� wimp%!12=warnhan% � wimp%!8<>2 Ȏ wimp%!16 �
"�7� 5 : wimp%!0=warnhan%:ș "Wimp_CloseWindow",,wimp%
"�Z� 6 : nbtm%+=1:wimp%!0=warnhan%:ș "Wimp_CloseWindow",,wimp%:� nbtm%=1 �continueaction
"��
"�,� wimp%!12=k% � wimp%!8<>2 Ȏ wimp%!16 �
"�� 2 : �ok(wimp%!8)
"�F� 3 : savegt%=1:�seticonsprite(k%,0,"file_179"):�changefilename(1)
"�F� 4 : savegt%=2:�seticonsprite(k%,0,"file_fff"):�changefilename(2)
"��
"�7� wimp%!8=2 � wimp%!12=adventhan% �makemenu(0):m%=0
"�/� wimp%!12=-2 � wimp%!8=2 �makemenu(1):m%=1
"�� wimp%!8=1 � wimp%!12=-2 �
#Ywimp%!0=maphan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
#
+ș "XOS_ReadModeVariable",�,3 � ,,cols%
##� cols%<>15 � picyn%=1 picyn%=2
#"� cols%=15 � picyn%=2 picyn%=1
#(g� picyn%=1 wimp%!0=picciehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
#2�
#<� wimp%!8=4 � wimp%!12=-2 �
#F\wimp%!0=adventhan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
#P�attach:open%=1:oldtime%=�
#Z�
#d�
#n
#x��makemenu(m%)
#�+ș "XOS_ReadModeVariable",�,3 � ,,cols%
#�#� cols%<>15 � picyn%=1 picyn%=2
#�"� cols%=15 � picyn%=2 picyn%=1
#�$menu%="Gorm"
#�menu%?12=7
#�menu%?13=2
#�menu%?14=7
#�menu%?15=0
#�menu%!16=180
#�menu%!20=44
#�menu%!24=0
#� menu%!28=2:� m%=0 menu%!28=0
#�-menu%!32=inhan%:� m%=0 menu%!32=menu%+196
$menu%!36=&7000021
$0$(menu%+40)="Info":� m%=0 $(menu%+40)="Font"
$menu%!52=0
$"0menu%!56=menu%+196:� m%=0 menu%!56=menu%+272
$,menu%!60=&7000021
$62$(menu%+64)="Font":� m%=0 $(menu%+64)="Extras"
$@menu%!76=0
$J0menu%!80=menu%+272:� m%=0 menu%!80=menu%+348
$Tmenu%!84=&7000021
$^4$(menu%+88)="Extras":� m%=0 $(menu%+88)="Panels"
$hmenu%!100=0
$r+menu%!104=menu%+348:� m%=0 menu%!104=-1
$|menu%!108=&7000021
$�7$(menu%+112)="Panels":� m%=0 $(menu%+112)="Restart"
$�$menu%!124=0:� m%=0 menu%!124=&80
$�+menu%!128=-1:� m%=0 menu%!128=menu%+400
$�menu%!132=&7000021
$�5$(menu%+136)="Restart":� m%=0 $(menu%+136)="Save"
$�menu%!148=2
$�menu%!152=menu%+400
$�menu%!156=&7000021
$�$(menu%+160)="Save"
$�menu%!172=&80
$�menu%!176=-1
$�menu%!180=&7000021
$�$(menu%+184)="Quit"
%$(menu%+196)="Font"
%menu%?208=7
%menu%?209=2
%&menu%?210=7
%0menu%?211=0
%:menu%!212=130
%Dmenu%!216=44
%Nmenu%!220=0
%X%menu%!224=0:� font%=0 menu%!224=1
%bmenu%!228=-1
%lmenu%!232=&7000021
%v$(menu%+236)="System"
%�)menu%!248=&80:� font%=1 menu%!248=&81
%�menu%!252=-1
%�6menu%!256=&7000021:� myfont%=-1 menu%!256=&7400021
%�$(menu%+260)="Trinity"
%�$(menu%+272)="Extras"
%�menu%?284=7
%�menu%?285=2
%�menu%?286=7
%�menu%?287=0
%�menu%!288=140
%�menu%!292=44
%�menu%!296=0
%�menu%!300=0
&menu%!304=-1
&menu%!308=&7000021
&$(menu%+312)="Map"
& menu%!324=&80
&*menu%!328=-1
&45menu%!332=&7000021:� picyn%<>1 menu%!332=&7400021
&>$(menu%+336)="Pictures"
&H$(menu%+348)="Panels"
&Rmenu%?360=7
&\menu%?361=2
&fmenu%?362=7
&pmenu%?363=0
&zmenu%!364=160
&�menu%!368=44
&�menu%!372=0
&�+menu%!376=&80:� posiyn%=1 menu%!376=&81
&�menu%!380=-1
&�menu%!384=&7000021
&�$(menu%+388)="Position"
&�$(menu%+400)="Save"
&�menu%?412=7
&�menu%?413=2
&�menu%?414=7
&�menu%?415=0
&�menu%!416=140
&�menu%!420=44
'menu%!424=0
'menu%!428=0
'menu%!432=k%
'$menu%!436=&7000021
'.$(menu%+440)="File"
'8menu%!452=&80
'Bmenu%!456=-1
'Lmenu%!460=&7000021
'V$(menu%+464)="Choices"
'`!mousx%=wimp%!0:mousy%=wimp%!4
'j9� m%=0 ș "Wimp_CreateMenu",,menu%,wimp%!0-70,wimp%!4
't5� m%=1 ș "Wimp_CreateMenu",,menu%,wimp%!0-68,452
'~�
'�
'�ݤchangecase(a$)
'�� a$="" =""
'�wrd$=""
'�� a=1 � �(a$)
'�l=�(�a$,a,1))
'�� l>64 � l<90 l+=32
'�� l>215 � l<223 l+=32
'�� l>191 � l<215 l+=32
'�wrd$+=�(l)
'�� a
'�	=wrd$
(
(
ݤremove(a$)
(� a$="" =""
(wrd$=""
((� a=1 � �(a$)
(2l=�(�a$,a,1))
(<p%=0
(F� l<47 p%=1
(P� l>57 � l<65 p%=1
(Z� l=32 p%=0
(d� p%=0 wrd$+=�(l)
(n� a
(x	=wrd$
(�
(���thenorand
(�
reali$=i$
(��
(�thenyn%=0:postn%=260
(�!then%(1)=�reali$,",and then")
(�"then%(2)=�reali$,", and then")
(�!then%(3)=�reali$," and then")
(�then%(4)=�reali$,", then")
(�then%(5)=�reali$,",then")
(�then%(6)=�reali$,"then")
(�then%(7)=�reali$,", and")
(�then%(8)=�reali$,",and")
)then%(9)=�reali$," and")
)then%(10)=�reali$,",")
)� a%=1 � 10
)"@� then%(a%)<postn% � then%(a%)>0 thenyn%=a%:postn%=then%(a%)
),� a%
)6Ȏ thenyn% �
)@  � 1 : �doit(postn%-1,9)
)J  � 2 : �doit(postn%-1,10)
)T  � 3 : �doit(postn%-1,9)
)^  � 4 : �doit(postn%-1,6)
)h  � 5 : �doit(postn%-1,5)
)r  � 6 : �doit(postn%-1,4)
)|  � 7 : �doit(postn%-1,5)
)�  � 8 : �doit(postn%-1,4)
)�  � 9 : �doit(postn%-1,4)
)�  � 10 : �doit(postn%-1,1)
)��
)�� thenyn%=0
)�i$=�remspace(i$)
)�
�respond2
)��
)�
)���doit(pntr%,wrdl%)
)�
thenyn%=1
)�i$=�reali$,1,pntr%)
)�1reali$=�reali$,pntr%+1+wrdl%,�(reali$)-pntr%)
*i$=�remspace(i$)
*�respond2:�add("")
*
i$=reali$
*&�
*0
*:ݤremspace(t$)
*Dtxt$="":textflg%=0
*N� a%=1 � �(i$)
*X<� �t$,a%,1)<>" " � textflg%=1 txt$+=�t$,a%,1):textflg%=1
*b� a%
*lt$=txt$
*vtxt$="":textflg%=0
*�� a%=�(t$) � 1 �-1
*�@� �t$,a%,1)<>" " � textflg%=1 txt$=�t$,a%,1)+txt$:textflg%=1
*�� a%
*�	=txt$
*�
*�
��respond
*�altered%=1
*�oldtime%=�
*�i$=�fixstring(i$+�(0))
*�i$=�changecase(i$)
*��thenorand
*��
*�
+��respond2
+=� i$=stng$ � nifok%=1 �add(strng$):nifok%=0:�decidepics:�
+� renw%=1 �noneed:�
+ i$=�remove(i$)
+*� nifok%=1 �gonner:�
+4@� sleep%=1 � �-6000<sleepoldtime% �add("Zzzzzzzzzzzzz..."):�
+>� swear%=5 �notspeak:�
+H� i$="" �nothing:�add(t$):�
+R?� i$=oldword$ � i$<>"" notimes%+=1 � oldword$=i$:notimes%=0
+\(� i$=oldword$ � notimes%>4 �repeat:�
+f-� �i$,"sheep")>0 � �i$,ec$(1))>0 �welsh:�
+p� �i$,ec$(2))>0 �swear:�
+z� �i$,ec$(3))>0 �swear:�
+�� �i$,ec$(4))>0 �swear:�
+�� �i$,ec$(5))>0 �swear:�
+�A� �i$,ec$(6))>0 �add("Ooh! That's hard language isn't it!"):�
+�� �i$,ec$(7))>0 �swear:�
+�� �i$,ec$(8))>0 �swear:�
+�� �i$,ec$(9))>0 �swear:�
+�� �i$,ec$(10))>0 �swear:�
+�� �i$,ec$(11))>0 �swear:�
+�� �i$,ec$(12))>0 �swear:�
+�� �i$,ec$(13))>0 �swear:�
+�� �i$,ec$(1))>0 �naughty:�
+�� �i$,"shut up")>0 �tense:�
+�� �i$,"shutup")>0 �tense:�
,� �i$,"go away")>0 �tense:�
,� �i$,4)="say " �say:�
,� �i$,4)="tell" �tell:�
,$� �i$,6)="print " �print:�
,.� �i$,4)="look" �look:�
,8*� �i$,7)="examine" �muchmorespecific:�
,B*� �i$,7)="inspect" �muchmorespecific:�
,L*� �i$,7)="observe" �muchmorespecific:�
,V� �i$,5)="exits" �exits:�
,`� �i$,4)="open" �open:�
,j� �i$,4)="shut" �close:�
,t� �i$,5)="close" �close:�
,~� �i$,3)="inv" �inv:�
,�� �i$,2)="go" �go:�
,�� �i$,3)="run" �go:�
,�� �i$,4)="move" �go:�
,�� �i$,4)="walk" �go:�
,�� �i$,6)="travel" �go:�
,�� �i$,4)="read" �read:�
,�� �i$,5)="write" �write:�
,�� �i$,6)="scrawl" �write:�
,� � �i$,8)="scribble" �write:�
,�%� �i$,9)="northeast" �northeast:�
,�%� �i$,9)="southeast" �southeast:�
,�%� �i$,9)="southwest" �southwest:�
-%� �i$,9)="northwest" �northwest:�
-
� �i$,5)="north" �north:�
-� �i$,4)="east" �east:�
-� �i$,5)="south" �south:�
-(� �i$,4)="west" �west:�
-2� �i$,2)="up" �up:�
-<� �i$,4)="down" �down:�
-F� �i$,7)="descend" �down:�
-P� �i$,5)="climb" �up:�
-Z� �i$,6)="ascend" �up:�
-d� �i$,3)="get" �get:�
-n� �i$,4)="grab" �get:�
-x� �i$,4)="take" �get:�
-�� �i$,6)="snatch" �get:�
-�� �i$,6)="obtain" �get:�
-�� �i$,7)="pick up" �get:�
-�� �i$,6)="pickup" �get:�
-�� �i$,4)="wear" �get:�
-�� �i$,7)="collect" �get:�
-�� �i$,4)="give" �give:�
-�� �i$,6)="donate" �give:�
-�� �i$,4)="drop" �drop:�
-�� �i$,6)="unlock" �unlock:�
-�� �i$,4)="lock" �lock:�
-�� �i$,3)="eat" �eat:�
-�� �i$,5)="scoff" �eat:�
.� �i$,7)="swallow" �eat:�
.� �i$,7)="consume" �eat:�
.� �i$,4)="bite" �eat:�
."� �i$,5)="taste" �eat:�
.,� �i$,6)="nibble" �eat:�
.6� �i$,5)="drink" �drink:�
.@� �i$,3)="ask" �ask:�
.J� �i$,3)="put" �put:�
.T� �i$,3)="saw" �saw:�
.^� �i$,3)="cut" �saw:�
.h� �i$,3)="hit" �violence:�
.r� �i$,4)="kill" �violence:�
.|� �i$,4)="stab" �violence:�
.�� �i$,4)="kick" �violence:�
.� � �i$,5)="fight" �violence:�
.� � �i$,5)="wound" �violence:�
.�!� �i$,6)="murder" �violence:�
.� � �i$,5)="punch" �violence:�
.� � �i$,5)="thump" �violence:�
.� � �i$,5)="whack" �violence:�
.�� �i$,4)="slap" �violence:�
.� � �i$,5)="smash" �violence:�
.� � �i$,5)="break" �violence:�
.�� �i$,3)="buy" �buy:�
.�� �i$,8)="purchase" �buy:�
.�� �i$,5)="order" �buy:�
/� �i$,5)="smell" �smell:�
/� �i$,5)="sniff" �smell:�
/� �i$,6)="listen" �listen:�
/&� �i$,4)="hear" �listen:�
/0+� �i$,4)="kiss" � �i$,4)="snog" �kiss:�
/:� �i$,5)="mould" �mould:�
/D#� �i$,10)="make mould" �mould:�
/N%� �i$,12)="create mould" �mould:�
/X(� �i$,15)="make impression" �mould:�
/b*� �i$,17)="create impression" �mould:�
/l1� �i$,5)="sleep" �add("You are not tired."):�
/vG� �i$,5)="score" �add("There is no score, just finish the game!"):�
/�K� �i$,4)="wait" � zone%=2 �add("You wait for a few seconds."):�police:�
/�O� �i$,4)="wait" � zone%=3 �add("You wait for a few seconds."):�policemaze:�
/�C� �i$,4)="wait" � zone%=1 �add("You wait for a few seconds."):�
/�� �i$,3)="dig" �dig:�
/�P� �i$,6)="search" �add("You find nothing that you have not already seen."):�
/�� �i$,"no ")>0 �no:�
/�!� �i$,"no")>0 � �(i$)=2 �no:�
/�� �i$,"yes ")>0 �yes:�
/�#� �i$,"yes")>0 � �(i$)=3 �yes:�
/�� �i$,"ok")>0 �yes:�
/�� �i$,"oui")>0 �linguist:�
/�� �i$,"non")>0 �linguist:�
/�� �i$,"nein")>0 �linguist:�
0� �i$,"ja")>0 �linguist:�
0� �i$,"bonjour")>0 �hling:�
0!� �i$,"guten tag")>0 �hling:�
0 !� �i$,"au revoir")>0 �gling:�
0* � �i$,"thankyou")>0 �thank:�
04!� �i$,"thank you")>0 �thank:�
0>� �i$,"bye")>0 �bye:�
0H� �i$,"hello")>0 �hello:�
0R � �i$,"good day")>0 �hello:�
0\!� �i$,"greetings")>0 �hello:�
0f� �i$,"gooday")>0 �hello:�
0p� �i$,"hi ")>0 �hello:�
0z� i$="hi" �hello:�
0�� �i$,"yo ")>0 �hello:�
0�� �i$,8)="probably" �prob:�
0�� �i$,5)="maybe" �prob:�
0�C� �i$,"archimedes")>0 �add("Archimedes - quality computers."):�
0�D� �i$,"acorn")>0 �add("Acorn - best computer company around."):�
0�6� �i$,"oxford")>0 �add("Oxford - a great city."):�
0�E� �i$,"london")>0 �add("Why do you talk of our great capital?"):�
0�E� �i$,"birmingham")>0 �add("Hmm, Birmingham's a lovely place."):�
0�� �i$,"amiga")>0 �sick:�
0�� �i$,"sega")>0 �sick:�
0�� �i$,"nintendo")>0 �sick:�
0�� �i$,"atari")>0 �sick:�
0�� �i$,"ibm")>0 �sick:�
1 � �i$,"macintosh")>0 �sick:�
1B� �i$,"chris")>0 � �i$,"allen")>0 �add("Greetings, author."):�
1D� �i$,"claire")>0 � �i$,"allen")>0 �add("Hi, it's my sister!"):�
1$M� �i$,"paul")>0 � �i$,"allen")>0 �add("So you know my brother do you?"):�
1.:� �i$,"blair")>0 �add("Shut-up and go away, Blair!"):�
18 � �i$,"i love you")>0 �luv:�
1B� �i$,"i luv you")>0 �luv:�
1L-� �i$,"you love")>0 love$="love":�Ilove:�
1V+� �i$,"you luv")>0 love$="luv":�Ilove:�
1`-� �i$,"i love")>0 love$="love":�Youlove:�
1j+� �i$,"i luv")>0 love$="luv":�Youlove:�
1t� �i$,"luv")>0 �love:�
1~� �i$,"help")>0 �help:�
1�"� �i$,8)="because ":�because:�
1�� i$="please":�please:�
1�4� i$="pretty please with sugar on top":�sucker:�
1�� �i$,6)="it is ":�itis:�
1�� �i$,4)="its ":�its:�
1�� �i$,7)="it was ":�itwas:�
1�� �i$,5)="i am ":�iam:�
1�� �i$,3)="im ":�im:�
1�� �i$,"love")>0 �love:�
1�� �i$,ec$(14))>0 �naughty:�
1�� �i$,5)="sorry":�sorry:�
1�-� �i$,4)="beep":� �(7):�add("B E E P."):�
2Q� i$="restart" �warning(3,"","Restarting will lose","the current game.",""):�
2
�� �i$,3)="map" �add("Your position is marked by the red spot."):wimp%!0=maphan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%:�
2� �i$,7)="picture" �
2+ș "XOS_ReadModeVariable",�,3 � ,,cols%
2(#� cols%<>15 � picyn%=1 picyn%=2
22"� cols%=15 � picyn%=2 picyn%=1
2<�� picyn%=0 �add("The pictures have not been loaded.") � � picyn%=2 �add("You are not in a 16-colour mode.") � �add("The pictures..."):wimp%!0=picciehan%:ș"Wimp_GetWindowState",,wimp%:wimp%!28=-1:ș"Wimp_OpenWindow",,wimp%
2F�
2P�
2Z:� �i$,4)="info" �add("Gorm v1.40   By Chris Allen."):�
2d0� i$="quit" �add("What's the magic word?"):�
2nF� i$="quit please" �add("Bye then."):a$=�(100):ș &400DD,apphan%:�
2xI� i$="time" �add("You glance at your expensive digital watch; "+�$):�
2�>� i$="basic" �add("Try f12 and then typing in 'Basic'."):�
2��� i$="load" � i$="save" � i$="append" � i$="delete" � i$="wipe" �add("I'll leave that repetative task to the operating system."):�
2�A� i$="why" �add("I'm supposed to be asking the questions."):�
2�� �i$,2)="ne" �northeast:�
2�� �i$,2)="se" �southeast:�
2�� �i$,2)="sw" �southwest:�
2�� �i$,2)="nw" �northwest:�
2�A� �i$,3)="die" �add("You have no desire to kill yourself."):�
2�� �(i$)=1 �single:�
2��lastresort
2��
2�
2�
��look
32� i$<>"look" � i$<>"look " �muchmorespecific:�
3
� e=1 � 9
33� rooms$(roomno%,e)<>"" �add(rooms$(roomno%,e))
3"� e
3,
�exits
36flag%=0
3@� e=1 � 10
3J&� objects$(roomno%,e)<>"" flag%+=1
3T� e
3^� flag%>0 �
3h  flagtwo%=0
3r  t$="You can also see; "
3|  � flag%=1 �
3�    flagtwo%=1
3�    � l=1 � 10
3�Z    � objects$(roomno%,l)<>"" t$+=�firstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
3�    � l
3�  �
3�
  e=0:l=0
3�  � flagtwo%=0 �
3�	    �
3�    l+=1
3�_   � objects$(roomno%,l)<>"" e+=1:t$+=�firstl(objects$(roomno%,l))+objects$(roomno%,l)+", "
3�    � e>=flag%-1
3�    � l=l+1 � 10
3�p    � objects$(roomno%,l)<>"" t$=�t$,1,�(t$)-2)+" and "+�firstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
4    � l
4  �
4  �add(t$)
4&�
401�decidepics:�decidepos:� zone%=2 �checkpolpos
4:� zone%=3 �polposmaze
4D%� roomno%=46 nifok%=1:�decidepics
4N;� roomno%=40 mapyn%(40)=1:roomno%=39:�add(""):�halflook
4X� roomno%=221 �
4b}mapyn%(221)=1:roomno%=222:�add("'Oi, you!' a woman cries cries, 'Get outta m'house - NOW!'. You go out onto the street.")
4l3� mapyn%(222)=0 mapyn%(222)=1:�look � �halflook
4v�
4��
4�
4���halflook
4��add(rentry$(roomno%))
4�flag%=0
4�� e=1 � 10
4�&� objects$(roomno%,e)<>"" flag%+=1
4�� e
4�� flag%>0 �
4�  flagtwo%=0
4�  t$="You can see; "
4�  � flag%=1 �
4�    flagtwo%=1
5    � l=1 � 10
5Z    � objects$(roomno%,l)<>"" t$+=�firstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
5    � l
5   �
5*
  e=0:l=0
54  � flagtwo%=0 �
5>	    �
5H    l+=1
5R_   � objects$(roomno%,l)<>"" e+=1:t$+=�firstl(objects$(roomno%,l))+objects$(roomno%,l)+", "
5\    � e>=flag%-1
5f    � l=l+1 � 10
5pp    � objects$(roomno%,l)<>"" t$=�t$,1,�(t$)-2)+" and "+�firstl(objects$(roomno%,l))+objects$(roomno%,l)+"."
5z    � l
5�  �
5�  �add(t$)
5��
5�1�decidepics:�decidepos:� zone%=2 �checkpolpos
5�� zone%=3 �polposmaze
5�%� roomno%=46 nifok%=1:�decidepics
5�k� roomno%=40 roomno%=39:�add("You feel you are intruding, so return to the garden."):�add(""):�halflook
5�� roomno%=221 �
5Ԙmapyn%(221)=1:roomno%=222:�add("The woman comes up to you. 'Oi, you!' she cries, 'Get outta me house - NOW!'. You go out onto the street."):�add("")
5�3� mapyn%(222)=0 mapyn%(222)=1:�look � �halflook
5��
5��
5�
6ݤfirstl(myline$)
6
ftl$="a "
6ml$=�myline$,1,1)
6$Ȏ ml$ �
6.&� "a","e","i","o","u" : ftl$="an "
68�
6B	=ftl$
6L
6V
��open
6`
openyn%=0
6j!� �i$,"door")>0 � roomno%=2 �
6t
openyn%=1
6~f� exits(2,2)=0 t$="You try to open the door, but it is locked." � t$="The door is all ready open."
6��
6�#� �i$,"door")>0 � roomno%=305 �
6�%openyn%=1:t$="You open the door."
6��
6�#� �i$,"door")>0 � roomno%=179 �
6�
openyn%=1
6�h� exits(179,1)=0 t$="You try to open the door, but it is locked." � t$="The door is all ready open."
6��
6�I� �i$,"crate")>0 � roomno%=27 openyn%=1:t$="The crate won't open up."
6�L� �i$,"window")>0 � roomno%=83 openyn%=1:t$="The window is jammed shut."
6�i� �i$,"bag")>0 � roomno%=29 openyn%=1:t$="The baker looks too moody for you to go prying in his bag."
6�L� �i$,"window")>0 � roomno%=26 openyn%=1:t$="The window is jammed shut."
7L� �i$,"gate")>0 � roomno%=15 openyn%=1:t$="The gates are firmly bolted."
7
O� �i$,"book")>0 � �gotorhere("book")=1 openyn%=1:t$="You open up the book."
7R� �i$,"novel")>0 � �gotorhere("novel")=1 openyn%=1:t$="You open up the novel."
7R� �i$,"bible")>0 � �gotorhere("bible")=1 openyn%=1:t$="You open up the bible."
7(P� �i$,"barrel")>0 � roomno%=65 openyn%=1:t$="The barrels are firmly closed."
72�� �i$,"bottle")>0 � �gotorhere("bottle")=1 � fire%=0 openyn%=1:t$="The bottle has a top which is protected against children - you've never been able to open those things."
7<Z� �i$,"purse")>0 � �gotorhere("purse")=1 openyn%=1:t$="The zip to the purse is stuck."
7F&� �i$,"suitcase")>0 � roomno%=83 �
7P
openyn%=1
7Z"t$="The case is already open."
7d� suitcase%=0 �
7nLsuitcase%=1:t$="You open the case. A snooker cue falls onto the ground."
7xc%=0
7�� a%=1 � 10
7�:� objects$(83,a%)="" � c%=0 c%=1:objects$(83,a%)="cue"
7��
7�#� c%=0 objects$(83,�(10))="cue"
7��
7��
7�?� openyn%=0 t$="I do not understand what you want to open."
7��add(t$)
7��
7�
7���close
7�closeyn%=0
7�!� �i$,"door")>0 � roomno%=2 �
8closeyn%=1
8m� exits(2,2)=3 t$="You try to close the door, but it is stuck open." � t$="The door is all ready closed."
8�
8"#� �i$,"door")>0 � roomno%=305 �
8,'closeyn%=1:t$="You close the door."
86�
8@#� �i$,"door")>0 � roomno%=179 �
8Jcloseyn%=1
8Tp� exits(179,1)=15 t$="You try to close the door, but it is stuck open." � t$="The door is all ready closed."
8^�
8hL� �i$,"gate")>0 � roomno%=15 closeyn%=1:t$="The gates are already shut."
8rN� �i$,"window")>0 � roomno%=83 closeyn%=1:t$="The window is already shut."
8|N� �i$,"window")>0 � roomno%=26 closeyn%=1:t$="The window is already shut."
8�N� �i$,"book")>0 � �gotorhere("book")=1 closeyn%=1:t$="You close the book."
8�Q� �i$,"novel")>0 � �gotorhere("novel")=1 closeyn%=1:t$="You close the novel."
8�Q� �i$,"bible")>0 � �gotorhere("bible")=1 closeyn%=1:t$="You close the bible."
8�>� �i$,"suitcase")>0 � roomno%=83 closeyn%=1:Ȏ suitcase% �
8�,� 0 : t$="The suitcase is already shut."
8�+� 1 : t$="The suitcase has stuck open."
8��
8�A� closeyn%=0 t$="I do not understand what you want to close."
8��add(t$)
8��
8�
8���mould
8�#t$="You have nothing to mould."
9�� �gotorhere("blob")=1 � �i$,"blob")>0 t$="You have nothing to mould the blob into.":� roomno%=2 t$="You press the blob into the keyhole and pull it out. Voila! A perfect impression!":mould%=1
9�add(t$)
9�
9&
90
��fire
9:fire%=0
9D�add("")
9NAt$="You hear a woosh as if something has created a fireball."
9X@rooms$(78,2)="There are charred remains on the ground here."
9b#rooms$(78,3)="":rooms$(78,4)=""
9l9abbrev$(78,1)="Chars":rentry$(78)="The charred area."
9vwimp%!0=maphan%:�redrawmap
9��� roomno%=78 t$="There is a loud 'woosh' as the bonfire ignites the meths and shoots out a massive fireball, unfortunately it heads straight at you. There is no way you can survive.":nifok%=1
9��decidepics
9��add(t$)
9��
9�
9���smell
9�(t$="You can smell nothing peculiar."
9�Ȏ roomno% �
9�* � 76 : t$="You can smell some meths."
9� � 78 : Ȏ fire% �
9�4   � 0 : t$="There is a burnt smell in the air."
9�=   � 1,2 : t$="You can smell the smoke from the bonfire."
9�   �
:4 � 65 : t$="There is a strong smell of alcohol."
:8 � 67,73 : t$="There is a faint smell of chemicals."
:, � 60,69 : t$="You can smell old metal."
: ; � 51,49 : t$="There is an old musty smell in the air."
:*D � 50,52,64 : t$="There is a sweet smell of alcohol in the air."
:4N � 13,34,35,39 : t$="You can smell the beautiful fragrance of the garden."
:>T � 38,41,285,288,289,290,286,287,291,292 : t$="You can smell nothing but grass."
:HG � 3,4,5,8,9,10 : t$="The air smells artificial and far too clean."
:R? � 22,23,83,25,26,27 : t$="The air smells stale and dusty."
:\A � 37,84 : t$="You can smell the old woodwork of the church."
:fB � 16,17,18,44,46 : t$="There is a 'rotten' smell in the air."
:p& � 45 : t$="You can smell danger."
:z+ � 29 : t$="You can smell stale bread."
:�, � 30 : t$="You can smell rotting meat."
:�1 � 20 : t$="There is a faint smell of bread."
:�0 � 19 : t$="There is a faint smell of meat."
:�< � 250 : t$="There is a strong, sweet smell of flowers."
:��
:��add(t$)
:��
:�
:���listen
:�#t$="You hear nothing peculiar."
:�Ȏ roomno% �
:�= � 85 : � drugged%=1 t$="You can hear the guard snoring."
:�< � 73 : t$="You can hear the fizzing from some bottles."
;A � 76 : t$="You can hear the flies buzzing around the tramp."
;D � 78 : � fire%>0 t$="You can hear the crackling of the flames."
;2 � 81,82 : t$="You can hear the ballet music."
;$M � 66,63,67,33,54,61,68 : t$="You can hear the fountain in the distance."
;.H � 62 : t$="You can hear the fountain splattering the water around."
;8= � 49 : t$="There is some singing going on to the north."
;Bf � 50 : t$="You can hear nothing but the bellowing of the drunks who are dancing in front of you."
;L1 � 51 : t$="You can hear some faint singing."
;V< � 29 : t$="You can hear the baker mumbling to himself."
;`= � 30 : t$="You can hear the butcher talking to himself."
;j] � 1 : t$="There is the sound of tens of people all trying to do their shopping at once."
;t? � 22,23,83,25,26,27 : t$="It seems extra quiet down here."
;~: � 47 : t$="You can hear some people laughing wildly."
;�6 � 45 : t$="There is nothing but deathly silence."
;�O � 37 : � crier%=1 t$="You can hear the young girl wailing uncontrollably."
;�D � 11,2,6 : t$="You can hear the commotion at the market-place."
;�C � 253 : t$="You can only hear the old woman groaning in pain."
;�A � 310 : t$="You can hear the old woman chanting to herself."
;�W � 268,269,270,271,272,273,274 : t$="You can hear the roaring engines of the cars."
;��
;�� zone%=2 � zone%=3 �
;�
� a=1 � 8
;�� exits(roomno%,a)=police%(1) � exits(roomno%,a)=police%(2) � exits(roomno%,a)=police%(3) t$="You hear some footsteps in the distance."
;�� a
;�p� police%(1)=roomno% � police%(2)=roomno% t$="You can hear the policeman, mumbling to himself, next to you."
<�
<
�add(t$)
<�
<
<(
��kiss
<2!t$="There is no-one to kiss."
<<Ȏ roomno% �
<F= � 78 : � fire%>0 t$="The young boy doesn't want a kiss."
<PA � 76 : t$="Take it from me, you DON'T want to kiss a tramp."
<ZB � 81 : t$="The girls run away from you, until you cool down."
<dZ � 82,249,302,310 : t$="The old woman punches you on the nose, then resumes her work."
<n+ � 29 : t$="The baker isn't like that."
<x- � 30 : t$="The butcher isn't like that."
<�5 � 1,50 : t$="No-one here wants a kiss from you."
<�; � 15,85,305 : t$="You don't go around kissing guards!"
<�A � 37 : � crier%=1 t$="This is a church - a religious place."
<�Y � 52,69,84,73,72,84,248,312,281 : t$="The man would not be happy if you kissed him."
<�V � 64,266 : t$="The bar-maid slaps you round the face and gives you an evil look."
<�2 � 226 : t$="The young girl starts screaming."
<�@ � 250,301 : t$="The young woman slaps you around the face."
<�5 � 253 : t$="The old woman vomits into her sofa."
<��
<�X� police%(1)=roomno% � police%(2)=roomno% t$="The policeman looks at you strangely."
<��add(t$)
<��
<�
=��go
=%� �i$,"northeast")>0 �northeast:�
=&� �i$,"north east")>0 �northeast:�
="%� �i$,"southeast")>0 �southeast:�
=,&� �i$,"south east")>0 �southeast:�
=6%� �i$,"southwest")>0 �southwest:�
=@&� �i$,"south west")>0 �southwest:�
=J%� �i$,"northwest")>0 �northwest:�
=T&� �i$,"north west")>0 �northwest:�
=^� �i$,"north")>0 �north:�
=h� �i$,"east")>0 �east:�
=r� �i$,"south")>0 �south:�
=|� �i$,"west")>0 �west:�
=�� �i$,"up")>0 �up:�
=�� �i$,"down")>0 �down:�
=�� �i$,"ne")>0 �northeast:�
=�� �i$,"se")>0 �southeast:�
=�� �i$,"sw")>0 �southwest:�
=�� �i$,"nw")>0 �northwest:�
=�� �i$,"n")>0 �north:�
=�� �i$,"e")>0 �east:�
=�� �i$,"s")>0 �south:�
=�� �i$,"w")>0 �west:�
=�� �i$,"u")>0 �up:�
=�� �i$,"d")>0 �down:�
=�5�add("I do not understand where you want to go.")
>�
>
>	��inv
>&flag%=0
>0� e=1 � 10
>:� owns$(e)<>"" flag%+=1
>D� e
>N� flag%=0 �
>X
Ȏ �(5) �
>b*  � 1 : t$="You are carrying nothing."
>l&  � 2 : t$="Your hands are empty."
>v*  � 3 : t$="You do not have anything."
>�(  � 4 : t$="Your pockets are empty."
>�-  � 5 : t$="You haven't any possessions."
>��
>��
>�� flag%>0 �
>�  flagtwo%=0
>�  t$="You have with you; "
>�  � flag%=1 �
>�    flagtwo%=1
>�    � l=1 � 10
>�9    � owns$(l)<>"" t$+=�firstl(owns$(l))+owns$(l)+"."
>�    � l
>�  �
?
  e=0:l=0
?  � flagtwo%=0 �
?	    �
?     l+=1
?*?    � owns$(l)<>"" e+=1:t$+=�firstl(owns$(l))+owns$(l)+", "
?4    � e>=flag%-1
?>    � l=l+1 � 10
?HO    � owns$(l)<>"" t$=�t$,1,�(t$)-2)+" and "+�firstl(owns$(l))+owns$(l)+"."
?R    � l
?\  �
?f�
?p�add(t$)
?z�
?�
?�	��saw
?�t$="You cannot cut that."
?�F� �gotorhere("hacksaw")<>1 �add("You have nothing to cut with."):�
?�!� roomno%=85 � �i$,"bar")>0 �
?�9� exits(85,2)>0 �add("The bars are already cut."):�:�
?��t$="You use the hacksaw to saw the bars to the cell, trying to do it quietly so not to wake the guard. Finally the bars fall out, leaving an exit to the east.":exits(85,2)=97
?�drooms$(85,5)="side of the bars is a sleeping guard. Some bars have been cut, providing an exit."
?�� drugged%=0 �
?ޞt$="You use the hacksaw to start to saw the bars, however the guard swings round and sees what you are doing. He grabs the hacksaw off you.":exits(85,2)=0
?�/rooms$(85,5)="side of the bars is a guard."
?�� a=1 � 10
?�$� owns$(a)="hacksaw" owns$(a)=""
@:� objects$(roomno%,a)="hacksaw" objects$(roomno%,a)=""
@� a
@�
@$wimp%!0=maphan%:�redrawmap
@.�
@8�add(t$)
@B�
@L
@V��police
@`poltime%=�
@j� b%=1 � 2
@t-nextplace%=exits(police%(b%),poldir%(b%))
@~� nextplace%=0 �
@��
@�a%=�(8)
@�3nextplace%=exits(police%(b%),a%):poldir%(b%)=a%
@�� nextplace%<>0
@��
@�police%(b%)=nextplace%
@�� b%
@��checkpolpos
@�wimp%!0=maphan%:�redrawmap
@��
@�
@���policemaze
Apoltime%=�
A
+nextplace%=exits(police%(3),poldir%(3))
A� nextplace%=0 �
A�
A(a%=�(8)
A21nextplace%=exits(police%(3),a%):poldir%(3)=a%
A<� nextplace%<>0
AF�
APpolice%(3)=nextplace%
AZ/� police%(3)=15 police%(3)=178:poldir%(3)=2
Ad�polposmaze
Anwimp%!0=maphan%:�redrawmap
Ax�
A�
A���polposmaze
A�� police%(3)=roomno% �
A�7� �got("badge")>0 � �got("cap")>0 � �got("wig")>0 �
A��add("")
A���add("A policeman walks up to you, but he is not fooled by your disguise, he whacks you over the head with his truncheon."):nifok%=1:�decidepics
A��
A��add("")
Aҋ�add("A policeman comes up to you. 'Oi you!' he cries, 'I heard someone had escaped'. He whacks you over the head with his truncheon.")
A�nifok%=1:�decidepics
A��
A��
A�
� a=1 � 8
BR� exits(roomno%,a)=police%(3) �add("You hear some footsteps in the distance.")
B� a
B�
B"
B,��checkpolpos
B6� b%=1 � 2
B@� nifok%=1 �
BJ� police%(b%)=roomno% �
BT7� �got("badge")>0 � �got("cap")>0 � �got("wig")>0 �
B^�add("")
Bhp�add("A policeman walks up to you, then he sees your badge and cap and dismisses you as another policeman.")
Br�
B|�add("")
B���add("A policeman comes up to you. 'Oi!' he cries, 'What y'doing outta y'cell!?'. He whacks you over the head with his truncheon - maybe a little too hard. Total Blackness.")
B�nifok%=1:�decidepics
B��
B��
B�� b%
B�
� a=1 � 8
B�p� exits(roomno%,a)=police%(1) � exits(roomno%,a)=police%(2) �add("You hear some footsteps in the distance.")
B�� a
B��
B�
B�	��dig
B�&t$="You have nothing to dig with."
B�(� �gotorhere("spade")=1 Ȏ roomno% �
C�� 13,34,35,38,41,226,227,279,285,286,287,288,289,290,291,292 : t$="You dig the ground with the spade, but find little of interest."
CY� 39 : � dug%=1 t$="You dig the garden some more, but find nothing else of interest."
C� dug%=0 �
C&�dug%=1:t$="You start digging the ground with the spade, when all of a sudden you hit something hard. You dust away the soil and see that it is a bone."
C0	bn%=0
C:� a%=1 � 10
CD=� objects$(39,a%)="" � bn%=0 bn%=1:objects$(39,a%)="bone"
CN�
CX%� bn%=0 objects$(39,�(10))="bone"
Cb�
Cl]� 228 :� dugged%=1 t$="You dig the sandpit some more, but find nothing else of interest."
Cv� dugged%=0 �
C��dugged%=1:t$="You start digging the soft sand with the spade when you hit something so tiny you almost miss it. It is an aspirin."
C�	as%=0
C�� a%=1 � 10
C�B� objects$(228,a%)="" � as%=0 as%=1:objects$(228,a%)="aspirin"
C��
C�)� as%=0 objects$(228,�(10))="aspirin"
C��
C�+ : t$="The ground is too hard to dig."
C��
C��add(t$)
C��
C�
C���write
Dwriteyn%=0
D(� roomno%=5 � written%=1 � �(i$)>6 �
Dwriteyn%=1
D V�add("You scribble over the top of your previous writing. It becomes unreadable.")
D*�
D49� roomno%=5 � written%=0 � �(i$)>6 � �i$,"mayor")=0 �
D>writeyn%=1
DHwritten%=1
DRG�add("You pick up the pen and write on the form. Nothing happens.")
D\�
Df/� roomno%=5 � �i$,"mayor")>0 � written%=0 �
Dpwriteyn%=1
Dzwritten%=1
D�N�add("You pick up the pen in one hand and scrawl in big capital letters;")
D��add("THE MAYOR.")
D�V�add("You hear a faint fizzle as a large feather magically appears at your feet.")
D�wttn%=0
D�� a%=1 � 10
D�B� objects$(5,a%)="" � wttn%=0 wttn%=1:objects$(5,a%)="feather"
D��
D�)� wttn%=0 objects$(5,�(10))="feather"
D��
D�/� writeyn%=0 �add("You cannot write that.")
D��
D�
D�	��buy
E!t$="There is nothing to buy."
EȎ roomno% �
E@� 1,29,30,52,64,73 : t$="You have no money to buy anything."
E$�
E.;� �got("coin")>0 � �got("cheque")>0 � �got("purse")>0 �
E8Ȏ roomno% �
EB8� 29,30,73 : t$="'I'm not accepting that!' he says."
EL3� 64 : t$="'I'm not accepting that!' she says."
EVl� 52 : t$="'Alright, that'll do me. Here, here's a whisky,' he says. He places the whisky in your hand."
E` owns$(�got("coin"))="whisky"
EjO� 248,266,281,312 : t$="There is nothing here that you really want to buy."
Et�
E~�
E��add(t$)
E��
E�
E���exits
E�flag%=0
E�� e=1 � 10
E�"� exits(roomno%,e)<>0 flag%+=1
E�� e
E�� flag%=0 �
E�
Ȏ �(5) �
E�-  � 1 : t$="There are no possible exits."
E�(  � 2 : t$="You can see no way out."
F4  � 3 : t$="You can see no direction of escape."
F
,  � 4 : t$="All directions are blocked."
F,  � 5 : t$="There is no way of leaving."
F�
F(�
F2� flag%>0 �
F<  flagtwo%=0
FF  t$="Possible exits; "
FP  � flag%=1 �
FZ    flagtwo%=1
Fd    � l=1 � 10
Fn$    � exits(roomno%,l)<>0 Ȏ l �
Fx      � 1 : t$+="north."
F�      � 2 : t$+="east."
F�      � 3 : t$+="south."
F�      � 4 : t$+="west."
F�!      � 5 : t$+="north-east."
F�!      � 6 : t$+="south-east."
F�!      � 7 : t$+="south-west."
F�!      � 8 : t$+="north-west."
F�      � 9 : t$+="up."
F�      � 10 : t$+="down."
F�	    �
F�    � l
F�  �
F�
  e=0:l=0
G  � flagtwo%=0 �
G	    �
G    l+=1
G")    � exits(roomno%,l)<>0 e+=1:Ȏ l �
G,      � 1 : t$+="north, "
G6      � 2 : t$+="east, "
G@      � 3 : t$+="south, "
GJ      � 4 : t$+="west, "
GT"      � 5 : t$+="north-east, "
G^"      � 6 : t$+="south-east, "
Gh"      � 7 : t$+="south-west, "
Gr"      � 8 : t$+="north-west, "
G|      � 9 : t$+="up, "
G�      � 10 : t$+="down, "
G�	    �
G�    � e>=flag%-1
G�    � l=l+1 � 10
G�>    � exits(roomno%,l)<>0 t$=�t$,1,�(t$)-2)+" and ":Ȏ l �
G�      � 1 : t$+="north."
G�      � 2 : t$+="east."
G�      � 3 : t$+="south."
G�      � 4 : t$+="west."
G�!      � 5 : t$+="north-east."
G�!      � 6 : t$+="south-east."
G�!      � 7 : t$+="south-west."
G�!      � 8 : t$+="north-west."
H      � 9 : t$+="up."
H      � 10 : t$+="down."
H	    �
H&    � l
H0  �
H:�
HD�add(t$)
HN�
HX
Hbݤgotorhere(obj$)
Hl
got%=0
Hv� g=1 � 10
H�5� objects$(roomno%,g)=obj$ � owns$(g)=obj$ got%=1
H�� g
H�	=got%
H�
H�ݤgot(obj$)
H�
got%=0
H�� g=1 � 10
H�� owns$(g)=obj$ got%=g
H�� g
H�	=got%
H�
H�
��read
H�
readyn%=0
I$� �i$,"plaque")>0 � roomno%=11 �
I
readyn%=1
I�add("It reads..")
I b�add("  This Monnument was erekted for all those who dyed in the War agaynst the Norwegians.")
I*�
I4%� �i$,"plaque")>0 � roomno%=303 �
I>
readyn%=1
IH�add("It reads..")
IR��add("  This oil painting, of Lady Hardling, had to been carefully cleaned because of some ancient graffiti, there had been a moustache drawn on it!")
I\�
If#� �i$,"door")>0 � roomno%=305 �
Ip
readyn%=1
Iz�add("It reads..")
I�&�add("  NO ENTRY FOR THE PUBLIC.")
I��
I�%� �i$,"plaque")>0 � roomno%=252 �
I�
readyn%=1
I�-�add("As far as you can tell it reads..")
I�_�add("  Th.s Momume.t ..s er..te. for all th.se who dye. m the war ayagn.t th Norw.g..ns.")
I��
I�!� roomno%=284 � roomno%=297 �
I�� �i$,"sign")>0 �
I�
readyn%=1
I��add("The sign reads...")
I�l�add("  You are about to enter an area of preserved countryside. Please show respect for the wildlife.")
I��
J�
J<� �i$,"newspaper")>0 � �i$,"magazine")>0 � roomno%=248 �
J
readyn%=1
J$T�add("You feel that you should buy a newspaper or magazine before you read it.")
J.�
J8&� �i$,"leaflet")>0 � roomno%=281 �
JB
readyn%=1
JLC�add("The leaflets contain only useless facts about the town.")
JV�
J`"� �i$,"sign")>0 � roomno%=29 �
Jj
readyn%=1
Jt2�add("The sign reads in big, bold lettering;")
J~/�add("  SHOPPELIFTERS WILL BE PROSSECUTED")
J��
J�#� �i$,"sign")>0 � roomno%=224 �
J�
readyn%=1
J�,�add("The sign says; 'PHOENIX STREET'.")
J��
J�"� �i$,"sign")>0 � roomno%=19 �
J�
readyn%=1
J�U�add("It says, 'Better bye from Benjamin the butcher, the Best Beef t'be bort'.")
J��
J�"� �i$,"sign")>0 � roomno%=70 �
J�
readyn%=1
J�&�add("It says, 'BALLET SCHOOLE'.")
K�
K
.� �i$,"spell")>0 � �gotorhere("spell")>0 �
K
readyn%=1
K;�add("The spell is just squiggles and symbols to you.")
K(�
K2,� �i$,"note")>0 � �gotorhere("note")>0 �
K<
readyn%=1
KF�add("The note reads:")
KP��add("  For my Collectione I desperately neede a Bone, for without it I am stucke. If you do come acrosse one please do leeve it hear for me. My gracious thanks, Wilfred.")
KZ�
Kd4� �i$,"pamphlet")>0 � �gotorhere("pamphlet")>0 �
Kn
readyn%=1
Kxm�add("You skim through the pamphlet, which is all about snooker. You now know the basic skills."):pamp%=1
K��
K�,� �i$,"plan")>0 � �gotorhere("plan")>0 �
K�
readyn%=1
K�I�add("There are a few symbols and sketches, but underneath it says:")
K�9�add("  Although bones maye be where dead men laye,")
K�6�add("  A religious Jardin will lead Not Dismay.")
K��
K�'� �i$,"headstone")>0 � roomno%=38 �
K�
readyn%=1
K�I�add("The headstones are unreadable because of the overgrown grass.")
K��
K�'� �i$,"headstone")>0 � roomno%=41 �
K�
readyn%=1
L0�add("The headstone is only just readable:")
L!�add("  Hear lyes Th' Mayor")
L�add("  Borne: 21.4.1744")
L"�add("  Dyed:  16.9.1793")
L,,�add("  Suferred sifear Stumack Paynes")
L6*�add("  May his Sole reste in Peace.")
L@�
LJ!� roomno%=295 � roomno%=294 �
LT� �i$,"headstone")>0 �
L^
readyn%=1
LhE�add("The headstones are unreadable because of the age of them.")
Lr�
L|�
L�"� �i$,"sign")>0 � roomno%=69 �
L�
readyn%=1
L��add("It says:")
L���add("  Any Equipemente in this Room maye be used bye thee Genneral Public to produce Worke for me - I am desperat for something to Do!")
L��
L�#� �i$,"note")>0 � roomno%=113 �
L�
readyn%=1
L�N�add("Most of the notes are totally illegible, yet one catches your eye;")
L֛�add("  Thee county jale is Pleesed to announce an Additione to Our maze - it now is Even more Confusing to Prisoneres - it Feetures magicale Walles.")
L��
L�%� �i$,"notice")>0 � roomno%=110 �
L�
readyn%=1
L��add("The notice reads;")
MW�add("  Bye the tyme you have finnished Reading this, you'll be Trapped. GOT 'YA!")
Mtrapped%=1:trappedtime%=�
M�
M&#� �i$,"sign")>0 � roomno%=127 �
M0
readyn%=1
M:�add("The sign says;")
MD��add(" This is a Cortion too any prisoneres. This Maze is neare Impossibel to leave, you wood Be addvized to give Yourselfe inn.")
MN�
MX!� �i$,"form")>0 � roomno%=5 �
Mb
readyn%=1
MlB�add("You scan down the page. The only interesting thing is;")
Mv)�add("  Once thee Arnser is knowne,")
M�/�add("  There is something I shalt loane.")
M�#�add("  So'n the dashed lyne,")
M�(�add("  Arnser thee rydel of myne.")
M�-�add(" ................................")
M�H� written%=1 �add("There is also some of your unreadable scribble.")
M��
M�.� �i$,"novel")>0 � �gotorhere("novel")=1 �
M�
readyn%=1
M�=�add("You turn over the first page and start reading...")
M�N�add("  'He caressed her jently, tuching Her in orl the ryht plaices...'")
M�'�add("Nah, not your sort of book.")
M��
M�.� �i$,"bible")>0 � �gotorhere("bible")=1 �
N
readyn%=1
N4�add("You turn over the delicate first page...")
N,�add("  'In the Beginning there was..'")
N 2�add("You start yawning and stop reading it.")
N*�
N4,� �i$,"book")>0 � �gotorhere("book")=1 �
N>
readyn%=1
NH/�add("Scrawled in spidery handwriting is;")
NR�add("")
N\M�add("Great Gran Fanny-Ann,                 In the room where you dorm,")
NfK�add("Bayked a big Flan,                    You'll fynd a nyce forme,")
NpX�add("Wytha brown and grene squishy midel.  With a space just right for an Arnser.")
NzK�add("Who scoffed this Great Flan,          Be shure that it's right,")
N�M�add("And becaym a dead man,                Or you'll never get Flight,")
N�R�add("You need t'know to arnser this Rydel. Isenchul t'become a Good Dancer.")
N��
N�-� readyn%=0 �add("You cannot read that.")
N��
N�
N���drink
N�t$="You are not thirsty."
N�0� �i$,"whisky")>0 � �gotorhere("whisky")=1 �
N�Kt$="You gulp down the whisky and your throat becomes a mass of flames."
N�� p=1 � 10
N�#� owns$(p)="whisky" owns$(p)=""
N�9� objects$(roomno%,p)="whisky" objects$(roomno%,p)=""
O� p
O�
O0� �i$,"potion")>0 � �gotorhere("potion")=1 �
O$�t$="You gulp down the potion. A few seconds go by then your head starts shaking. You put up your hands to steady it, but then it EXPLODES!":nifok%=1:�decidepics
O.� p=1 � 10
O8#� owns$(p)="potion" owns$(p)=""
OB9� objects$(roomno%,p)="potion" objects$(roomno%,p)=""
OL� p
OV�
O`�add(t$)
Oj�
Ot
O~	��eat
O�eatyn%=0
O�,� �i$,"pill")>0 � �gotorhere("pill")=1 �
O�eatyn%=1
O�H�add("You eat the pill, feel drowsy and fall asleep for a while...")
O�� p=1 � 10
O�!� owns$(p)="pill" owns$(p)=""
O�7� objects$(roomno%,p)="pill" objects$(roomno%,p)=""
O�� p
O�sleep%=1:sleepoldtime%=�
O��
O�$� �i$,"sweet")>0 � roomno%=248 �
O�eatyn%=1
P0�add("You'll have to buy the sweets first.")
P
�
P.� �i$,"apple")>0 � �gotorhere("apple")=1 �
Peatyn%=1
P(K�add("You eat the apple, it tastes gorgeous and you feel much better.")
P2� p=1 � 10
P<"� owns$(p)="apple" owns$(p)=""
PF8� objects$(roomno%,p)="apple" objects$(roomno%,p)=""
PP� p
PZ�
Pd,� �i$,"newt")>0 � �gotorhere("newt")=1 �
Pneatyn%=1
Px:�add("You let the newt slide down your throat. Yuck.")
P�� p=1 � 10
P�!� owns$(p)="newt" owns$(p)=""
P�7� objects$(roomno%,p)="newt" objects$(roomno%,p)=""
P�� p
P��
P�.� �i$,"sweet")>0 � �gotorhere("sweet")=1 �
P�eatyn%=1
P�_�add("You brush off the layers of fluff and pop it into your mouth. It tastes quite nice.")
P�� p=1 � 10
P�"� owns$(p)="sweet" owns$(p)=""
P�8� objects$(roomno%,p)="sweet" objects$(roomno%,p)=""
P�� p
P��
Q.� �i$,"mouse")>0 � �gotorhere("mouse")=1 �
Qeatyn%=1
Q��add("You must be mad, but you close your eyes and take a bite, a few seconds later you feel queezy and collapse onto the ground in agony. Blackness.")
Q"nifok%=1:�decidepics
Q,� p=1 � 10
Q6"� owns$(p)="mouse" owns$(p)=""
Q@8� objects$(roomno%,p)="mouse" objects$(roomno%,p)=""
QJ� p
QT�
Q^8� �i$,"breadcrumb")>0 � �gotorhere("breadcrumb")=1 �
Qheatyn%=1
Qr:�add("You eat the breadcrumb, gosh that was filling.")
Q|� p=1 � 10
Q�'� owns$(p)="breadcrumb" owns$(p)=""
Q�=� objects$(roomno%,p)="breadcrumb" objects$(roomno%,p)=""
Q�� p
Q��
Q�"� �i$,"loaf")>0 � roomno%=29 �
Q�eatyn%=1
Q���add("The baker hits you over the head and shouts 'THIEF!!' several times. A policeman runs in, grabs your arm and before you can do anything about it you are knocked out. Several hours later you wake up in a strange room...")
Q�fpoltime%=�:zone%=2:roomno%=85:�remkey:mapyn%(roomno%)=1:i$="look":�look:wimp%!0=maphan%:�redrawmap
Q��
Q�"� �i$,"meat")>0 � roomno%=30 �
Q�eatyn%=1
Q���add("You carefully pick up a steak, dripping with blood, and take a bite, but the butcher, who hates thieves, has been carefully watching you. He reveals a large kitchen knife and aims between your eyes. Sccchmmaackk. Blackness.")
Q�nifok%=1:�decidepics
R�
R2� �i$,"aspirin")>0 � �gotorhere("aspirin")=1 �
Reatyn%=1
R&$�add("You swallow the aspirin.")
R0� p=1 � 10
R:$� owns$(p)="aspirin" owns$(p)=""
RD:� objects$(roomno%,p)="aspirin" objects$(roomno%,p)=""
RN� p
RX�
Rb.� �i$,"lolly")>0 � �gotorhere("lolly")=1 �
Rleatyn%=1
Rv=�add("You suck the lolly until it has all gone. Lovely.")
R�� p=1 � 10
R�"� owns$(p)="lolly" owns$(p)=""
R�8� objects$(roomno%,p)="lolly" objects$(roomno%,p)=""
R�� p
R��
R�+� eatyn%=0 �add("You cannot eat that.")
R��
R�
R�	��get
R�gotta%=0
R�*� �i$,"all")>0 � �i$,"everything")>0 �
R�  counter%=0
R�  � a%=1 � 10
SI  � objects$(roomno%,a%)<>"" i$=objects$(roomno%,a%):counter%+=1:�get
S
  � a%
S3  � counter%=0 �add("There is nothing to get.")
S   i$="get all"
S*  gotta%=-1
S4�
S>� gotta%=0 �
SH� g=1 � 10
SRQ� owns$(g)<>"" � �i$,owns$(g))>0 �add("You already have this item."):gotta%=1
S\� g
Sf�
Sp� gotta%=0 �
Sz� g=1 � 10
S�K� objects$(roomno%,g)<>"" � �i$,objects$(roomno%,g))>0 gotta%=-1:ojt%=g
S�� g
S�� gotta%=0 �
S�  gotta%=1:Ȏ �(4) �
S�4  � 1 : t$="That object is no-where to be seen."
S�F  � 2 : t$="You search and search, but that item cannot be found."
S�J  � 3 : t$="I think you're hallucinating... it's no-where to be seen."
S�9  � 4 : t$="You can't get something that isn't here."
S�  �
S��morespecific
S��add(t$)
S��
S�� gotta%=-1 gotta%=0
T�
T� gotta%=0 �
Tgottaflag%=0
T$� g=1 � 10
T.� owns$(g)="" gottaflag%=g
T8� g
TBq� gottaflag%>0 owns$(gottaflag%)=objects$(roomno%,ojt%):objects$(roomno%,ojt%)="":�whatgot(owns$(gottaflag%))
TL� gottaflag%=0 Ȏ �(4) �
TV<  � 1 : �add("You are carrying far too much all ready.")
T`-  � 2 : �add("You can't carry any more.")
Tj=  � 3 : �add("Your arms ache too much for another item.")
Tt?  � 4 : �add("What are you trying to do? Break your back?")
T~�
T��
T��
T�
T���morespecific
T�� a%=1 � 2
T�i� police%(a%)=roomno% � zone%=2 � �i$,"man")>0 t$="The policeman may get suspicious if you grab him."
T�� a%
T�#� �i$,"cobbles")>0 Ȏ roomno% �
T�[  � 2,7,15,12,28,42,43 : t$="The cobblestones seem to be fixed to the road quite well."
T��
T�!� �i$,"fence")>0 Ȏ roomno% �
T�t  � 53,55,56,57,24,14,15,16,17,18,46,45,44,43,47,65,76,77,78,79,80 : t$="The fence won't budge from the ground."
U�
U
� �i$,"car")>0 Ȏ roomno% �
US  � 268,269,270,271,272,273,274 : t$="The cars are too large and fast to grab."
U�
U( � �i$,"tree")>0 Ȏ roomno% �
U2U  � 279,286,288,289,290,292 : t$="The trees have roots which are far too strong."
U<�
UF� roomno%=1 �
UP/� �i$,"amiga")>0 t$="As if you wanted one!"
UZQ� �i$,"underwear")>0 t$="You're quite warm enough in your own at the moment."
Ud0� �i$,"people")>0 t$="Someone might object!"
Un�
Ux\� roomno%=2 � �i$,"door")>0 t$="You pull the door, but it does not come off its hinges."
U�� roomno%=3 �
U�[� �i$,"hat stand")>0 t$="Do you really think a hat-stand would help you in your quest?"
U�Z� �i$,"hatstand")>0 t$="Do you really think a hat-stand would help you in your quest?"
U�H� �i$,"chandelier")>0 t$="You aren't quite high enough to reach it."
U�g� �i$,"wallpaper")>0 t$="It would ruin the room if you were to strip the wall-paper off the walls."
U�?� �i$,"stair")>0 t$="You can't uproot a part of the house."
U��
U�\� roomno%=4 � �i$,"toy")>0 t$="Collecting children's toys won't help you in your quest."
U�� roomno%=5 �
U�8� �i$,"pen")>0 t$="The pen is chained to the table."
U�:� �i$,"form")>0 t$="The form is chained to the table."
U�Y� �i$,"bed")>0 t$="Nice though the bed may be, it's just a little to heavy to carry."
U�C� �i$,"table")>0 t$="The table is stuck to the carpeted floor."
V�
V� roomno%=8 �
VJ� �i$,"ceiling")>0 t$="Your arms aren't quite long enough I'm afraid."
V"M� �i$,"furniture")>0 t$="The furniture is too heavy for your weedy arms."
V,b� �i$,"carpet")>0 t$="You decide against it, someone might notice if the carpet went missing."
V6�
V@� roomno%=9 �
VJb� �i$,"sofa")>0 t$="The sofa is in such a bad condition that you don't really want it anyway."
VTS� �i$,"painting")>0 t$="What would you want with a defaced painting? Not much."
V^R� �i$,"picture")>0 t$="What would you want with a defaced painting? Not much."
VhS� �i$,"portrait")>0 t$="What would you want with a defaced painting? Not much."
Vr�
V|� roomno%=10 �
V�C� �i$,"table")>0 t$="The table is stuck to the carpeted floor."
V�G� �i$,"chair")>0 t$="You can't just put a chair under your jumper."
V��
V�� roomno%=11 �
V�Q� �i$,"plaque")>0 t$="The plaque has been carefully screwed to the monument."
V�K� �i$,"pot")>0 t$="The pots are extremely large and too heavy to lift."
V�<� �i$,"plant")>0 t$="The soil might stain your clothes."
V�(� �i$,"monument")>0 t$="Be serious."
V��
V�� roomno%=13 �
V�V� �i$,"path")>0 t$="Surprise, surprise, the path seems to be stuck down some how."
V�F� �i$,"paving")>0 t$="The crazy-paving seems to be well cemented."
V�}� �i$,"tree")>0 t$="The trees have rather large roots which, unfortunately, prevents idiots from trying to pull them up."
W�� �i$,"blossom")>0 t$="The blossom is rather pretty and you decide not to destroy the scene of beauty by tearing it off the tree."
W�
W� roomno%=15 �
W&v� �i$,"guard")>0 t$="The guard looks at you strangely as you put your arms around him... ...you change your mind."
W0u� �i$,"gate")>0 t$="The gates seem to be fixed quite sturdily to the fence, which itself is fixed to the ground."
W:�
WDo� roomno%=18 � �i$,"sludge")>0 t$="You scoop up some sludge with your hands, but it slips right out again."
WNX� roomno%=19 � �i$,"sign")>0 t$="The sign is large and would be too heavy to carry."
WXL� roomno%=22 � �i$,"stair")>0 t$="You can't uproot a part of the house."
WbX� roomno%=26 � �i$,"window")>0 t$="You aren't high enough to even touch the window."
Wl� roomno%=27 �
Wva� �i$,"dust")>0 t$="You take a handful of the dust, but it flows right through your fingers."
W�:� �i$,"crate")>0 t$="The crate is too heavy to budge."
W��
W�� roomno%=29 �
W�9� �i$,"sign")>0 t$="The sign is screwed to the wall."
W�\� �i$,"baker")>0 t$="The baker wouldn't be too happy if you started lifting him around."
W�;� �i$,"counter")>0 t$="The counter would be too heavy."
W�N� �i$,"bag")>0 t$="You edge nearer the bag, but the baker scares you off."
W�W� �i$,"till")>0 t$="You might look a tad suspicious with a till under your jumper."
W�� �i$,"loaf")>0 �
Wڠ�add("The baker springs up and shouts 'THIEF!!'. A policeman runs in, grabs your arm and you are knocked out. Hours later you wake up in a strange room...")
W�fpoltime%=�:zone%=2:roomno%=85:�remkey:mapyn%(roomno%)=1:i$="look":�look:wimp%!0=maphan%:�redrawmap
W�j� drugged%=0 t$="The guard looks around and sees that you have woken up." � t$="The guard is slumped."
W��
X�
X� roomno%=30 �
X;� �i$,"counter")>0 t$="The counter would be too heavy."
X b� �i$,"butcher")>0 t$="The butcher isn't the sort of person you want to start pushing around."
X*\� �i$,"clothes")>0 t$="The butcher wouldn't be happy if you ripped the clothes off him."
X4^� �i$,"blood")>0 t$="Only vampires have the desire to grab any globule of blood they see."
X>� �i$,"meat")>0 �
XH�t$="You carefully pick up a steak, dripping with blood, but the butcher, who hates thieves, has been carefully watching you. He reveals a large kitchen knife and aims between your eyes. Sccchmmaackk. Blackness."
XRnifok%=1:�decidepics
X\�
Xf�
Xp<� roomno%=34 � �i$,"pond")>0 t$="You cannot get a pond!"
Xz� roomno%=35 �
X�Y� �i$,"flower")>0 t$="The flowers look far too pretty where they are to uproot them."
X�`� �i$,"bed")>0 t$="It would help if you found a bulldozer first - not easy in this century."
X��
X�� roomno%=36 �
X�@� �i$,"path")>0 t$="The path is firmly fixed to the ground."
X�B� �i$,"slab")>0 t$="The slabs are firmly fixed to the ground."
X��
X�� roomno%=37 �
X�/� �i$,"vicar")>0 t$="No, you'd better not."
X�;� �i$,"altar")>0 t$="The altar is too sacred to touch."
X�X� �i$,"step")>0 t$="If you removed the steps there would be no way to get upstairs."
X�O� �i$,"girl")>0 � crier%=1 t$="The girl promptly slaps you round the face."
X�?� �i$,"girl")>0 � crier%=0 t$="The girl is no longer here."
Y�
Y� roomno%=38 �
Y<� �i$,"grass")>0 t$="The grass is not worth pulling up."
Y$N� �i$,"headstone")>0 t$="The headstones are firmly fixed into the ground."
Y.�
Y8� roomno%=39 �
YBB� �i$,"grass")>0 t$="The grass is too short to get a grip on."
YLa� �i$,"flower")>0 t$="The flowers are so well looked after, the owner may be a little angry."
YVR� �i$,"willow")>0 � �i$,"tree")>0 t$="The willow tree has far too many roots."
Y`+� �i$,"path")>0 t$="The path it fixed."
Yj�
Yt� roomno%=41 �
Y~C� �i$,"headstone")>0 t$="The headstone is fixed in the ground."
Y�<� �i$,"grass")>0 t$="The grass is not worth pulling up."
Y��
Y�� roomno%=49 �
Y�;� �i$,"table")>0 t$="The tables are too heavy to lift."
Y�=� �i$,"chair")>0 t$="There are too many chairs to carry."
Y�I� �i$,"glass")>0 t$="Empty wine glasses are not very helpful to you."
Y��
Y�� roomno%=50 �
Y�?� �i$,"people")>0 t$="You can't pick up a crowd of people!"
Y�E� �i$,"table")>0 t$="The snooker table is far too heavy to lift."
Y�8� �i$,"felt")>0 t$="The felt is glued to the table."
Y��
Z� roomno%=52 �
Z
6� �i$,"bar")>0 t$="The bar is impossible to lift."
ZI� �i$,"man")>0 t$="The man would not appreciate being lifted around."
ZA� �i$,"uniform")>0 t$="You cannot rip the man's clothes off!"
Z(A� �i$,"bottle")>0 t$="The bottles are too far away to reach."
Z2E� �i$,"glass")>0 t$="The glasses are just too far away to reach."
Z<�
ZF� roomno%=60 �
ZP=� �i$,"display")>0 t$="The display is too heavy to lift."
ZZJ� �i$,"key")>0 t$="The keys are all safe behind in the glass display."
ZdB� �i$,"jewel")>0 t$="The jewels are stuck firmly to the keys."
Zn�
Zx� roomno%=62 �
Z�F� �i$,"fountain")>0 t$="Wouldn't the fountain be a tad too heavy?"
Z�C� �i$,"water")>0 t$="The water is travelling to fast to catch."
Z��
Z�� roomno%=64 �
Z�6� �i$,"bar")>0 t$="The bar is impossible to lift."
Z�z� �i$,"woman")>0 � �i$,"barmaid")>0 t$="As much as you would like it, the bar-maid wouldn't like to be lifted around."
Z�A� �i$,"bottle")>0 t$="The bottles are too far away to reach."
Z�<� �i$,"glass")>0 t$="The glasses are just out of reach."
Z��
Z�� roomno%=65 �
Z�=� �i$,"barrel")>0 t$="The barrels are too heavy to lift."
Z��
Z�� roomno%=69 �
[=� �i$,"counter")>0 t$="The counter is too large to lift."
[I� �i$,"man")>0 � �i$,"keymaker")>0 t$="The keymaker is too far away."
[M� �i$,"spectacle")>0 t$="The spectacles are on the face of the keymaker."
["7� �i$,"sign")>0 t$="The sign is fixed to the wall."
[,�
[6� roomno%=70 �
[@9� �i$,"sign")>0 t$="The sign is too far up to reach."
[J�
[T� roomno%=220 �
[^=� �i$,"cloud")>0 t$="The clouds are impossible to reach."
[h8� �i$,"smoke")>0 t$="It is impossible to get smoke."
[r�
[|� roomno%=72 �
[�Q� �i$,"man")>0 � �i$,"wizard")>0 t$="The wizard is too frail to lift around."
[�B� �i$,"beard")>0 t$="The beard is firmly fixed to the wizard."
[�H� �i$,"cape")>0 t$="The cape is tied around the neck of the wizard."
[��
[�� roomno%=73 �
[�C� �i$,"bottle")>0 t$="The bottles are not worth investigating."
[�C� �i$,"powder")>0 t$="The powders are not worth investigating."
[�P� �i$,"alchemist")>0 � �i$,"man")>0 t$="The alchemist is too heavy to lift."
[��
[�� roomno%=75 �
[�;� �i$,"junk")>0 t$="There is too much junk to pick up."
[��
[�� roomno%=76 �
\U� �i$,"tramp")>0 � �i$,"man")>0 t$="The tramp looks too comfortable where he is."
\E� �i$,"box")>0 t$="The cardboard box is trapped under the tramp."
\�
\&� roomno%=78 �
\0� fire%=0 �
\:U� �i$,"char")>0 � �i$,"remain")>0 t$="The charred remains are spread too widely."
\D�
\N� fire%>0 �
\X0� �i$,"boy")>0 t$="The boy is too far away."
\b;� �i$,"fire")>0 t$="The bonfire is too hot to pick up."
\l;� �i$,"flame")>0 t$="The flames are impossible to get."
\v�
\��
\�� roomno%=81 �
\�B� �i$,"girl")>0 t$="There are too many girls to grab hold of."
\�8� �i$,"bar")>0 t$="The bars are fixed to the walls."
\��
\�� roomno%=82 �
\�8� �i$,"desk")>0 t$="The desk is fixed to the floor."
\�2� �i$,"woman")>0 t$="The woman is very heavy."
\��
\�� roomno%=83 �
\�?� �i$,"suitcase")>0 t$="The suitcase is too bulky to lift."
\�K� �i$,"window")>0 t$="You aren't high enough to even touch the window."
\��
]� roomno%=84 �
];� �i$,"timber")>0 t$="There is too much timber to get."
]=� �i$,"coffin")>0 t$="The coffin is too large and bulky."
] -� �i$,"boy")>0 t$="The boy is too heavy."
]*-� �i$,"man")>0 t$="The man is too heavy."
]4�
]>� roomno%=85 �
]H�� �i$,"bar")>0 t$="The bars are firmly fixed - to stop you from escaping.":� exits(85,2)>0 t$="The bars that are left are firmly fixed."
]RG� �i$,"guard")>0 t$="The guard is too far behind the bars to grab."
]\K� �i$,"cup")>0 � �i$,"drink")>0 t$="The cup is too hot to get hold of."
]f�
]p� roomno%=110 �
]zJ� �i$,"notice")>0 t$="The notice is screwed to the white-washed wall."
]��
]�� roomno%=113 �
]�P� �i$,"pinboard")>0 t$="The pinboard is screwed tightly to the office wall."
]�C� �i$,"note")>0 t$="The notes have been stuck to the pinboard."
]��
]�� roomno%=116 �
]�9� �i$,"table")>0 t$="The table is too heavy to lift."
]��
]�� roomno%=122 �
]�5� �i$,"desk")>0 t$="The desk is extremely heavy."
]�L� �i$,"chair")>0 t$="The chair is an old wooden one, it is quite heavy."
]��
]�� roomno%=127 �
^9� �i$,"sign")>0 t$="The sign is screwed to the wall."
^�
^!� roomno%=133 � roomno%=135 �
^$O� �i$,"table")>0 t$="The table is a heavy, wooden one - too bulky to lift."
^.K� �i$,"chair")>0 t$="The chair is wooden and bulky - awkward to carry."
^8�
^B� roomno%=179 �
^L5� �i$,"door")>0 t$="The door is fixed by hinges."
^V�
^`� roomno%=224 �
^j9� �i$,"sign")>0 t$="The sign is fixed to the ground."
^t�
^~� roomno%=226 �
^�?� �i$,"swing")>0 t$="The swings are fixed into the ground."
^�8� �i$,"child")>0 t$="The little girl is very heavy."
^�7� �i$,"girl")>0 t$="The little girl is very heavy."
^��
^�� roomno%=227 �
^�=� �i$,"slide")>0 t$="The slide is fixed into the ground."
^��
^�� roomno%=228 �
^�?� �i$,"sand")>0 t$="There is too much sand to get hold of."
^�1� �i$,"pit")>0 t$="The sandpit is too large."
^��
^�� roomno%=235 �
_/� �i$,"car")>0 t$="The cars are too heavy."
_
�
_!� roomno%=236 � roomno%=238 �
_-� �i$,"car")>0 t$="The car is too heavy."
_(�
_2� roomno%=248 �
_<-� �i$,"man")>0 t$="The man is too heavy."
_F|� �i$,"newspaper")>0 � �i$,"magazine")>0 t$="The magazines and newspapers should really be bought before you take them."
_P5� �i$,"counter")>0 t$="The counter is too heavy."
_Z.� �i$,"sweet")>0 t$="That would be theft."
_d�
_n� roomno%=249 �
_x1� �i$,"woman")>0 t$="The woman is too heavy."
_��� �i$,"ornament")>0 � �i$,"trophy")>0 � �i$,"trophie")>0 � �i$,"souvenir")>0 t$="The souvenirs are too numerous to grab hold of."
_��
_�� roomno%=250 �
_�1� �i$,"woman")>0 t$="The woman is too heavy."
_�H� �i$,"flower")>0 t$="The flowers are too numerous to grab hold of."
_��
_�� roomno%=252 �
_�7� �i$,"monument")>0 t$="The monument is too heavy."
_�?� �i$,"plaque")>0 t$="The plaque is fixed to the monument."
_��
_�� roomno%=253 �
_�1� �i$,"woman")>0 t$="The woman is too heavy."
_�/� �i$,"sofa")>0 t$="The sofa is too bulky."
`J� �i$,"antique")>0 t$="The antiques are too numerous to grab hold of."
`�
`� roomno%=256 �
`"7� �i$,"fountain")>0 t$="The fountain is too heavy."
`,�
`6� roomno%=264 �
`@;� �i$,"table")>0 t$="The tables are too bulky to lift."
`J7� �i$,"chair")>0 t$="The chairs too bulky to lift."
`TC� �i$,"dartboard")>0 t$="The dartboard is screwed to the wall."
`^�
`h� roomno%=265 �
`r;� �i$,"table")>0 t$="The tables are too bulky to lift."
`|7� �i$,"chair")>0 t$="The chairs too bulky to lift."
`��
`�� roomno%=266 �
`�1� �i$,"bar")>0 t$="The bar is far too large."
`�[� �i$,"barmaid")>0 � �i$,"woman")>0 t$="The barmaid is over the other side of the bar."
`�K� �i$,"skirt")>0 t$="The barmaid's skirt is being worn by the barmaid."
`�M� �i$,"blouse")>0 t$="The barmaid's blouse is being worn by the barmaid."
`�G� �i$,"hair")>0 t$="The barmaid's hair is attached to the barmaid."
`��
`�� roomno%=279 �
`�9� �i$,"path")>0 t$="The path is stuck to the ground."
`��
`�� roomno%=281 �
`�A� �i$,"man")>0 t$="The man is the other side of the counter."
a?� �i$,"counter")>0 t$="The counter is too large and bulky."
aI� �i$,"leaflet")>0 t$="The leaflets are too numerous to get hold of."
a�
a&!� roomno%=284 � roomno%=297 �
a09� �i$,"sign")>0 t$="The sign is screwed to the wall."
a:�
aD� roomno%=293 �
aN8� �i$,"bell")>0 t$="The bells too high up to reach."
aXJ� �i$,"rope")>0 t$="You pull on one of the thick ropes - DDDONGGGG!!!"
ab�
al!� roomno%=294 � roomno%=295 �
av8� �i$,"grass")>0 t$="The grass is too tough to get."
a�C� �i$,"headstone")>0 t$="The headstone is stuck into the turf."
a��
a�� roomno%=296 �
a�:� �i$,"altar")>0 t$="The altar far too heavy to lift."
a�I� �i$,"aisle")>0 t$="The aisle is not something you can get hold of."
a�6� �i$,"pew")>0 t$="Try to be pratical about this."
a��
a�� roomno%=301 �
a�E� �i$,"woman")>0 t$="The woman is the other side of the counter."
a�5� �i$,"counter")>0 t$="The counter is too heavy."
a��
a�� roomno%=302 �
a�7� �i$,"ceiling")>0 t$="The ceiling is too high up."
bG� �i$,"woman")>0 � �i$,"expert")>0 t$="The old woman is too heavy."
b�
b� roomno%=303 �
b =� �i$,"feather")>0 t$="The feather is fixed to the wall."
b*R� �i$,"picture")>0 � �i$,"painting")>0 t$="The painting is fixed to the wall."
b4L� �i$,"plaque")>0 t$="The plaque is fixed to the frame of the painting."
b>�
bH� roomno%=304 �
bR-� �i$,"bed")>0 t$="The bed is too heavy."
b\1� �i$,"table")>0 t$="The table is too bulky."
bf3� �i$,"chair")>0 t$="The chairs are too bulky."
bp�
bz� roomno%=305 �
b�5� �i$,"door")>0 t$="The door is fixed by hinges."
b�1� �i$,"guard")>0 t$="The guard is too heavy."
b��
b�� roomno%=306 �
b�8� �i$,"stairs")>0 t$="The stairs cannot be removed."
b��
b�� roomno%=307 �
b�8� �i$,"stairs")>0 t$="The stairs cannot be removed."
b�E� �i$,"junk")>0 t$="There is too much pointless junk to collect."
b��
b�� roomno%=308 �
b�E� �i$,"junk")>0 t$="There is too much pointless junk to collect."
b��
c� roomno%=310 �
c1� �i$,"table")>0 t$="The table is too heavy."
cc� �i$,"woman")>0 � �i$,"medium")>0 t$="The old woman is too heavy and weird to start grabbing."
c$�
c.� roomno%=311 �
c8I� �i$,"cloud")>0 t$="The clouds fizzle away when you reach for them."
cB>� �i$,"mist")>0 t$="The mist glides through your fingers."
cL�
cV� roomno%=312 �
c`5� �i$,"counter")>0 t$="The counter is too heavy."
cjA� �i$,"man")>0 t$="The man is the other side of the counter."
ctL� �i$,"liquid")>0 t$="The liquids are too high up on the wall to reach."
c~�
c��
c�
c���muchmorespecific
c�3t$="I do not know what you want me to examine."
c�� a%=1 � 2
c�j� police%(a%)=roomno% � zone%=2 � �i$,"man")>0 t$="The policeman is tall and looks at you cauciously."
c�� a%
c�#� �i$,"cobbles")>0 Ȏ roomno% �
c�n  � 2,7,15,12,28,42,43 : t$="The cobblestones are cobblestones, rectangular, stoney thingies in the road."
c��
c� � �i$,"road")>0 Ȏ roomno% �
c�h  � 2,7,15,12,28,42,43 : t$="It's a stoney thing that runs from the north of the town to the south."
d�
d
!� �i$,"fence")>0 Ȏ roomno% �
d�  � 57,56,55,53,24,14,15,16,17,18,46,45,44,43,47,65,76,77,78,79,80 : t$="The fence is wooden and runs from the west of the town to the east. It looks untreated and has almost rotted away."
d�
d(� �i$,"car")>0 Ȏ roomno% �
d2b  � 268,269,270,271,272,273,274 : t$="The cars are large, various colours, and are very fast."
d<�
dF � �i$,"tree")>0 Ȏ roomno% �
dPe  � 279,286,288,289,290,292 : t$="The trees are tall and healthy. They are covered with foliage."
dZ�
dd� roomno%=1 �
dnJ� �i$,"amiga")>0 t$="Don't say you've never seen an Amiga! Lucky you!"
dxh� �i$,"stall")>0 t$="Just the usual market-place stalls, selling all sorts of useless knick-knacks."
d�P� �i$,"underwear")>0 t$="The underwear is woollen and could be quite itchy."
d��� �i$,"people")>0 t$="You can't see a happy soul among them, but you wouldn't be happy if you'd lived in Greater Rollthright all your life."
d��
d�h� roomno%=2 � �i$,"door")>0 t$="The door is quite large and is the main entrance to the posh house."
d�� roomno%=3 �
d�P� �i$,"hat stand")>0 t$="What do you want me to say? It's a stand for hats."
d�O� �i$,"hatstand")>0 t$="What do you want me to say? It's a stand for hats."
d�^� �i$,"stair")>0 t$="The stairs look quite solid and they lead down to the dark basement."
dҞ� �i$,"wallpaper")>0 t$="The wall-paper is made so that it should look quite convincing, but unfortunately you can tell it was cheap from Texas Homecare."
d�m� �i$,"chandelier")>0 t$="The chandelier is on the tacky side, but creates a surprising amount of light."
d��
d�j� roomno%=4 � �i$,"toy")>0 t$="The toys are nothing out of the ordinary and are quite useless to you."
d�� roomno%=5 �
es� �i$,"pen")>0 t$="The pen is just like any other pen. It is used to write things. It is chained to the table."
e�� �i$,"form")>0 t$="The form is quite large and has some typed writing on it, it is chained to the table.":� written%=1 t$+=" It also has some of your unreadable scrawl on it."
e�� �i$,"bed")>0 t$="The bed is of the 4-poster variety and its cover is quite breathtaking, it must have taken many long years to get the embroidery on it to such a high quality."
e"�� �i$,"table")>0 t$="The table is wooden and doesn't look out of the ordinary. On the top of it is chained a form and a pen."
e,�
e6� roomno%=8 �
e@�� �i$,"ceiling")>0 t$="The ceiling looks as if it should be in some sort of palace and you could stand for hours gaping at it."
eJN� �i$,"furniture")>0 t$="The furniture is bulky and nothing terribly wow."
eTw� �i$,"carpet")>0 t$="The carpet feels more like a layer of rocks, but it does look quite harmless at first sight."
e^�
eh� roomno%=9 �
erf� �i$,"sofa")>0 t$="The sofa is in such a bad condition that you wonder why anyone would want it."
e|x� �i$,"painting")>0 t$="The painting obviously used to be quite a work of art, but now it is ruined, beyond repair."
e�w� �i$,"picture")>0 t$="The painting obviously used to be quite a work of art, but now it is ruined, beyond repair."
e�x� �i$,"portrait")>0 t$="The painting obviously used to be quite a work of art, but now it is ruined, beyond repair."
e��
e�� roomno%=10 �
e�{� �i$,"table")>0 t$="The table is ornately carved out of top-quality wood and looks perfect in this aristocratic room."
e�g� �i$,"chair")>0 t$="The chairs are almost as beautiful as the table and are neatly sat around it."
e��
e�� roomno%=11 �
e�Z� �i$,"plaque")>0 t$="The plaque is golden and has some carefully etched words on it."
e�[� �i$,"pot")>0 t$="The pots are round and made of dried mud. They contain some plants."
e�o� �i$,"plant")>0 t$="The plants look dead, probably due to the exciting atmosphere of Greater Rollthright."
e�I� �i$,"monument")>0 t$="The elaborate stone monument looms over you."
e��
f� roomno%=13 �
fX� �i$,"path")>0 t$="The path winds along rather wildly. It is made of crazy-paving."
f^� �i$,"paving")>0 t$="The paving is probably done by professionals as you can't fault it."
f&�� �i$,"tree")>0 t$="The trees are large, but you are unsure of the type. They look especially beautiful with all the blossom on it."
f0�� �i$,"blossom")>0 t$="The blossom is probably the thing that gives the garden most atmosphere. It lays on the trees, gently swaying in the light breeze."
f:c� �i$,"garden")>0 t$="The garden is a feast for the eyes and obviously very well looked after."
fD�
fN� roomno%=15 �
fX]� �i$,"guard")>0 t$="The guard looks very solemn as he watches your movements carefully."
fb�� �i$,"gate")>0 t$="The gates are large and are fixed to the fence which runs from the west to the east. The gates are firmly bolted and have a guard watching over them."
fl�
fv�� roomno%=18 � �i$,"sludge")>0 t$="It's hard to see in the poor light conditions, but as far as you can make out the sludge is brown and gooey."
f��� roomno%=19 � �i$,"sign")>0 t$="The sign is painted, but the paint is starting to peel off. It says, 'Better bye from Benjamin the butcher, the Best Beef t'be bort'. Quite a nice tongue twister."
f�e� roomno%=22 � �i$,"stair")>0 t$="The stairs look quite solid and they lead up the ground floor."
f�t� roomno%=26 � �i$,"window")>0 t$="The window is small and old, but gives enough light for you to see properly."
f�� roomno%=27 �
f��� �i$,"crate")>0 t$="It is hard to see the crate in the poor light conditions, but you can make out the fact that it is wooden and quite old, dusty, and maybe mouldy."
f�n� �i$,"dust")>0 t$="The dust is quite thick and covers not only the crate, but some of the floor as well."
f��
f�� roomno%=29 �
f�e� �i$,"sign")>0 t$="The sign is screwed expertly to the wall. On it is some big, bold lettering."
f�k� �i$,"baker")>0 t$="The baker is grimey and has a serious weight problem. He doesn't look very happy."
f�� �i$,"counter")>0 t$="The counter is quite low and is made out of wood. Behind it stands the baker and on it is a till and a bag."
f�� �i$,"loaf")>0 t$="The loaf is the only one left in the shop and although it looks a little dirty and stale it still makes your mouth water."
f��� �i$,"bag")>0 t$="The bag is made out of a brown material and looks quite full of something, probably coins. It is on the till."
gw� �i$,"till")>0 t$="The till is old and rusty, it probably isn't used by the baker any more. It is on the counter."
g�
g� roomno%=30 �
g m� �i$,"butcher")>0 t$="The butcher is tall and looks angry. He is wearing some blood-splattered clothes."
g*U� �i$,"counter")>0 t$="The counter is to your left and behind it is the butcher."
g4a� �i$,"meat")>0 t$="The meat looks rather dirty, smells terrible and is dripping with blood."
g>2� �i$,"blood")>0 t$="It's red, liquidy stuff."
gHi� �i$,"clothes")>0 t$="The butcher's clothes are grimy and have globules of blood running down them."
gR�
g\W� roomno%=32 � �i$,"wall")>0 t$="The wall is quite large and is sort of... bricky."
gfW� roomno%=33 � �i$,"wall")>0 t$="The wall is quite large and is sort of... bricky."
gp� roomno%=34 �
gzc� �i$,"garden")>0 t$="The garden is a feast for the eyes and obviously very well looked after."
g�q� �i$,"pond")>0 t$="The pond shimmers gently as it reflects the tired Sun's rays. It makes you feel relaxed."
g��
g�� roomno%=35 �
g�c� �i$,"garden")>0 t$="The garden is a feast for the eyes and obviously very well looked after."
g��� �i$,"flower")>0 t$="You have never been good at gardening and have no idea what type of flowers these are, yet they are very pretty and are planted in neat rows."
g��� �i$,"bed")>0 t$="The flowerbed is simply gorgeous to look at. The flowers radiate beauty and are obviously well cared for."
g��
g�� roomno%=36 �
g�Y� �i$,"path")>0 t$="The path is uneven and made of slabs. It runs from west to east."
g�U� �i$,"slab")>0 t$="The slabs are grey and uninteresting. They make up the path."
g��
g�� roomno%=37 �
g�_� �i$,"vicar")>0 t$="The vicar is old and frail and sits by the altar, contemplating life."
hT� �i$,"altar")>0 t$="The altar is large yet ugly. It is made out of cold stone."
ha� �i$,"aisle")>0 t$="The aisle runs from south to north, finishing at the foot of the altar."
hK� �i$,"step")>0 t$="The steps are wooden and lead up to the bell room."
h$h� �i$,"girl")>0 � crier%=1 t$="The girl blocks your way to the east and she looks quite distressed."
h.?� �i$,"girl")>0 � crier%=0 t$="The girl is no longer here."
h8�
hB� roomno%=38 �
hL:� �i$,"grass")>0 t$="The grass is long and overgrown."
hVO� �i$,"headstone")>0 t$="The headstones are well camouflaged by the grass."
h`B� �i$,"graveyard")>0 t$="The graveyard is long and overgrown."
hj�
ht� roomno%=39 �
h~>� �i$,"grass")>0 t$="The grass is short and well watered."
h�]� �i$,"garden")>0 t$="The garden is well looked after, but in some ways looks synthetic."
h�x� �i$,"flower")>0 t$="The flowers are also well looked after, but look false in the neat patterns that they are in."
h�{� �i$,"willow")>0 � �i$,"tree")>0 t$="The willow tree is the nicest part of the garden. It blows gently in the breeze."
h�2� �i$,"path")>0 t$="The path leads eastwards."
h��
h�� roomno%=41 �
h�W� �i$,"headstone")>0 t$="The headstone is covered by grass, but could be readable."
h�:� �i$,"grass")>0 t$="The grass is long and overgrown."
h�B� �i$,"graveyard")>0 t$="The graveyard is long and overgrown."
h��
h�� roomno%=49 �
h�:� �i$,"table")>0 t$="The tables are wooden and bulky."
iS� �i$,"chair")>0 t$="The chairs are lying all over the place. They are wooden."
i
R� �i$,"glass")>0 t$="The wine glasses are laid carelessly all over the place."
i�
i� roomno%=50 �
i(]� �i$,"people")>0 t$="The people are totally drunk and are dancing about trying to sing."
i2g� �i$,"table")>0 t$="The snooker table is large and has green felt on it. It has no balls or cues."
i<M� �i$,"felt")>0 t$="The felt is green and is stuck to the snooker table."
iF�
iP� roomno%=52 �
iZB� �i$,"bar")>0 t$="The bar is long and continues to the west."
id<� �i$,"man")>0 t$="The man is tall and wears a uniform."
inE� �i$,"uniform")>0 t$="The uniform is a bow-tie and white shirt."
ix;� �i$,"bottle")>0 t$="The bottles line the north wall."
i�Z� �i$,"glass")>0 t$="The glasses are just below the bottles and shimmer in the light."
i��
i�� roomno%=60 �
i�_� �i$,"display")>0 t$="The display is large and made of glass. It is displaying some keys."
i�H� �i$,"key")>0 t$="The keys range from the boring to the elaborate."
i�E� �i$,"jewel")>0 t$="The jewels glisten beautifully on the keys."
i��
i�� roomno%=62 �
i�M� �i$,"fountain")>0 t$="The fountain is small, yet pretty in appearance."
i�7� �i$,"water")>0 t$="The water is wet and liquidy."
i��
i�� roomno%=64 �
i�B� �i$,"bar")>0 t$="The bar is long and continues to the east."
ji� �i$,"woman")>0 � �i$,"barmaid")>0 t$="The bar-maid is standing behind the bar. She is very pretty."
j;� �i$,"bottle")>0 t$="The bottles line the north wall."
jZ� �i$,"glass")>0 t$="The glasses are just below the bottles and shimmer in the light."
j"�
j,� roomno%=65 �
j6?� �i$,"barrel")>0 t$="The barrels are large and obtrusive."
j@�
jJ� roomno%=69 �
jTG� �i$,"counter")>0 t$="The counter is long and is in front of you."
j^J� �i$,"man")>0 � �i$,"keymaker")>0 t$="The keymaker is old and frail."
jhb� �i$,"spectacle")>0 t$="The spectacles are gold-rimmed. They are on the face of the keymaker"
jr?� �i$,"sign")>0 t$="The sign has some curly writing on it."
j|�
j�� roomno%=70 �
j�H� �i$,"sign")>0 t$="The sign is high up and has some writing on it."
j��
j�� roomno%=220 �
j�V� �i$,"cloud")>0 t$="The clouds are whirling around you. They are multi-coloured."
j�6� �i$,"smoke")>0 t$="The smoke whirls around you."
j��
j�� roomno%=72 �
j�F� �i$,"man")>0 � �i$,"wizard")>0 t$="The wizard is old and frail."
j�S� �i$,"beard")>0 t$="The beard is white and tatty, it is on the wizard's face."
j�A� �i$,"cape")>0 t$="The cape has some moons and stars on it."
j��
j�� roomno%=73 �
k8� �i$,"bottle")>0 t$="The bottles are just bottles."
k=� �i$,"powder")>0 t$="The powders are different colours."
kj� �i$,"alchemist")>0 � �i$,"man")>0 t$="The alchemist is young. He is shaking a bottle at the moment."
k&�
k0� roomno%=75 �
k:C� �i$,"junk")>0 t$="The junk is just junk - nothing important."
kD�
kN� roomno%=76 �
kXT� �i$,"tramp")>0 � �i$,"man")>0 t$="The tramp is old and thin, he looks hungry."
kbU� �i$,"box")>0 t$="The cardboard box has many rips and it is home for the tramp."
kl�
kv� roomno%=78 �
k�� fire%=0 �
k�O� �i$,"char")>0 � �i$,"remain")>0 t$="The charred remains are black ashes."
k��
k�� fire%>0 �
k�R� �i$,"boy")>0 t$="The young boy is concentrating on building up his bonfire."
k�H� �i$,"fire")>0 t$="The bonfire is quite large and is burning well."
k�;� �i$,"flame")>0 t$="The flames are impressively high."
k��
k��
k�� roomno%=81 �
k�A� �i$,"girl")>0 t$="The girls are all dancing at the moment."
k�6� �i$,"bar")>0 t$="The wooden bars line the wall."
k��
l� roomno%=82 �
l7� �i$,"desk")>0 t$="The wooden desk is very bulky."
lG� �i$,"woman")>0 t$="The woman is quite old and looks very bitchy."
l �
l*� roomno%=83 �
l4Q� �i$,"suitcase")>0 t$="The suitcase is long and thin. It is ":Ȏ suitcase% �
l>  � 0 : t$+="closed."
lH  � 1 : t$+="open."
lR�
l\g� �i$,"window")>0 t$="The window is small and old, but gives enough light for you to see properly."
lf�
lp� roomno%=84 �
lz>� �i$,"timber")>0 t$="The timber lays all over the floor."
l�I� �i$,"coffin")>0 t$="The coffin is large and bulky. In it is a boy."
l�@� �i$,"boy")>0 t$="The boy is young, but looks nearly dead."
l�O� �i$,"man")>0 t$="The old man is crouching by the coffin. He looks upset."
l��
l�� roomno%=85 �
l��� �i$,"bar")>0 t$="The bars are to the east, they are thick and painted white.":� exits(85,2)>0 t$+=" There are a few bars missing, where you have cut some out."
l�� �i$,"guard")>0 �
lʏt$="The guard is surprisingly small and feeble for a guard, he looks quite gullible. By his side is a cup, with some sort of drink in it. "
l�e� drugged%=1 t$+="The guard is asleep at the moment." � t$+="He takes a sip every now and again."
l��
l�{� �i$,"cup")>0 � �i$,"drink")>0 t$="The cup is by the guard's side. There is steam gently wavering out from the drink."
l��
l�� roomno%=110 �
m\� �i$,"notice")>0 t$="The notice is in a corner of the room. It has some writing on it."
m�
m� roomno%=113 �
m$a� �i$,"pinboard")>0 t$="The pinboard is screwed to the office wall. On it are various notes."
m.X� �i$,"note")>0 t$="The notes are stuck to the pinboard. Some have writing on them."
m8�
mB� roomno%=116 �
mLI� �i$,"table")>0 t$="The table is a regular wooden and sturdy table."
mV�
m`� roomno%=122 �
mj�� �i$,"desk")>0 t$="The wooden desk is old and archaic. On it are the usual office nick-nacks, which do not look helpful to your quest."
mtK� �i$,"chair")>0 t$="The chair is old and wooden, it matches the desk."
m~�
m�� roomno%=127 �
m�G� �i$,"sign")>0 t$="The sign is shiney. It has some writing on it."
m��
m�!� roomno%=133 � roomno%=135 �
m�`� �i$,"table")>0 t$="The table is rectangular and wooden, it has nothing of interest on it."
m�Q� �i$,"chair")>0 t$="The chair is wooden and bulky. It sits under the table."
m��
m�� roomno%=179 �
m�� �i$,"door")>0 �
m�'t$="The door is large and wooden. "
m�B� exits(179,1)=15 t$+="It is wide open." � t$+="It is locked."
m��
n�
n
� roomno%=224 �
nN� �i$,"sign")>0 t$="The street sign has the words 'PHEONIX STREET' on it."
n�
n(� roomno%=226 �
n2J� �i$,"swing")>0 t$="The swings are very rusty. They are painted red."
n<Y� �i$,"child")>0 t$="The little girl is quite plump. She looks at you inquisitively."
nFX� �i$,"girl")>0 t$="The little girl is quite plump. She looks at you inquisitively."
nP�
nZ� roomno%=227 �
nda� �i$,"slide")>0 t$="The slide is very rusty. It has been painted over with dark blue paint."
nn�
nx� roomno%=228 �
n�N� �i$,"sand")>0 t$="The sand is wet, so has joined together in big lumps."
n�B� �i$,"pit")>0 t$="The sandpit is large and full of wet sand."
n��
n�� roomno%=235 �
n�a� �i$,"car")>0 t$="The cars are reasonably large. One is red and the other is metallic blue."
n��
n�� roomno%=236 �
n�I� �i$,"car")>0 t$="The car is quite small and painted a dull yellow."
n��
n�� roomno%=238 �
n�@� �i$,"car")>0 t$="The car is very clean. It is pure white."
n��
n�� roomno%=248 �
o]� �i$,"man")>0 t$="The man is quite fat and is Asian. He is standing behind the counter."
oc� �i$,"newspaper")>0 � �i$,"magazine")>0 t$="The magazines and newspapers line the newsagents."
oO� �i$,"counter")>0 t$="The counter is large and has lots of sweets on top."
o"p� �i$,"sweet")>0 t$="The sweets are various kinds of chocolates, covered with shiny rose-coloured wrapping."
o,�
o6� roomno%=249 �
o@%� �i$,"woman")>0 t$="The woman ."
oJe� �i$,"ornament")>0 � �i$,"trophy")>0 � �i$,"trophie")>0 � �i$,"souvenir")>0 t$="The souvenirs ."
oT�
o^� roomno%=250 �
oh�� �i$,"woman")>0 t$="The young woman is almost hidden among her bunches of flowers. She is busy at work arranging some sort of presentation."
orS� �i$,"flower")>0 t$="The bunches of flowers are beautiful and very colourful."
o|�
o�� roomno%=252 �
o��� �i$,"monument")>0 t$="The monument is tall and looms over you. It is made of stone, but seems to have eroded a little over the years. On it is a plaque."
o�`� �i$,"plaque")>0 t$="The plaque, which is screwed to the monument, has some writing on it."
o��
o�� roomno%=253 �
o�a� �i$,"woman")>0 t$="The woman is old and wrinkly. She is very pale and looks seriously ill."
o�_� �i$,"sofa")>0 t$="The rose-coloured sofa is large and on it lays the groaning old woman."
o�a� �i$,"antique")>0 t$="The antiques are numerous in this room, they cover almost everything."
o��
o�� roomno%=256 �
o�P� �i$,"fountain")>0 t$="The fountain is old and doesn't even work nowadays."
o��
o�� roomno%=264 �
pV� �i$,"table")>0 t$="The tables are wooden, with an 'Olde English' style to them."
pV� �i$,"chair")>0 t$="The chairs are wooden, with an 'Olde English' style to them."
p�� �i$,"dartboard")>0 t$="The dartboard is round and circular. It also has a distinct 2D spherical look to it while at the same time seeming rotund."
p&�
p0� roomno%=265 �
p:V� �i$,"table")>0 t$="The tables are wooden, with an 'Olde English' style to them."
pDV� �i$,"chair")>0 t$="The chairs are wooden, with an 'Olde English' style to them."
pN�
pX� roomno%=266 �
pbM� �i$,"bar")>0 t$="The bar is long and wooden. Behind it is the barmaid."
pl�� �i$,"barmaid")>0 � �i$,"woman")>0 t$="The barmaid is young and very pretty. She wears a short black skirt, a white silky blouse and has long blonde hair."
pvB� �i$,"skirt")>0 t$="The barmaid's black skirt is very short."
p�R� �i$,"blouse")>0 t$="The barmaid's white blouse is silky and looks delicate."
p�T� �i$,"hair")>0 t$="The barmaid's long blonde hair cascades over her shoulders."
p��
p�� roomno%=279 �
p�O� �i$,"path")>0 t$="The crazy-paved path leads eastwards, into the church."
p��
p�� roomno%=281 �
p�<� �i$,"man")>0 t$="The man is tall and extremely lanky."
p�N� �i$,"counter")>0 t$="The counter is large and behind it stands the man."
p�m� �i$,"leaflet")>0 t$="The leaflets are all over the centre, but look extremely tacky and boring anyhow."
p��
p�!� roomno%=284 � roomno%=297 �
p�9� �i$,"sign")>0 t$="The sign has some writing on it."
q�
q� roomno%=293 �
qR� �i$,"bell")>0 t$="The bells are large and would probably make a huge noise."
q ;� �i$,"rope")>0 t$="The ropes are joined to the bells."
q*�
q4!� roomno%=294 � roomno%=295 �
q>8� �i$,"grass")>0 t$="The grass is long and tangled."
qHN� �i$,"headstone")>0 t$="The headstone is small and eroded away - almost."
qR�
q\� roomno%=296 �
qf>� �i$,"altar")>0 t$="The altar is simple and undecorated."
qpz� �i$,"aisle")>0 t$="The aisle runs from the north of the church to the south. Either side of the aisle are the pews."
qz`� �i$,"pew")>0 t$="The pews are the seats in the church. They are wooden and well polished."
q��
q�� roomno%=301 �
q�W� �i$,"woman")>0 t$="The woman young and very short. She waits behind the counter."
q�X� �i$,"counter")>0 t$="The counter is long and bulky. Behind it is the young woman."
q��
q�� roomno%=302 �
q�_� �i$,"ceiling")>0 t$="The ceiling is elaborately decorated and is beautiful to gaze apon."
q�n� �i$,"woman")>0 � �i$,"expert")>0 t$="The old woman is very wrinkled. She looks like an antiques expert."
q��
q�� roomno%=303 �
q�[� �i$,"feather")>0 t$="The feather is large, but you cannot tell what bird it is from."
q�� �i$,"picture")>0 � �i$,"painting")>0 t$="The painting is a skilled piece of artistic expression. It shows a woman in eighteenth century dress. Under the painting is a plaque."
q�P� �i$,"plaque")>0 t$="The plaque is gold-plated and has some writing on it."
r�
r� roomno%=304 �
rl� �i$,"bed")>0 t$="The bed is of the 4-poster variety and has some impressive embroidery on the fabric."
r$M� �i$,"table")>0 t$="The table is elaborately carved out of sturdy wood."
r.O� �i$,"chair")>0 t$="The chairs are elaborately carved out of sturdy wood."
r8�
rB� roomno%=305 �
rLW� �i$,"door")>0 t$="The door is to the south. It has some large red writing on it."
rVG� �i$,"guard")>0 t$="The tired-looking guard is short, but stocky."
r`�
rj� roomno%=306 �
rt5� �i$,"stairs")>0 t$="The stairs lead downwards."
r~�
r�� roomno%=307 �
r�3� �i$,"stairs")>0 t$="The stairs lead upwards."
r�M� �i$,"junk")>0 t$="The junk lays across the floor, getting in your way."
r��
r�� roomno%=308 �
r�M� �i$,"junk")>0 t$="The junk lays across the floor, getting in your way."
r��
r�� roomno%=310 �
r�?� �i$,"table")>0 t$="The table is wooden and looks sturdy."
r�t� �i$,"woman")>0 � �i$,"medium")>0 t$="The old woman looks like a medium. She is sitting at her table chanting."
r��
r�� roomno%=311 �
sC� �i$,"cloud")>0 t$="The clouds swirl about in internal chaos."
s
L� �i$,"mist")>0 t$="The mist fades in and out of view, mesmerising you."
s�
s� roomno%=312 �
s(U� �i$,"counter")>0 t$="The counter is long and wooden. Behind it is a young man."
s2D� �i$,"man")>0 t$="The man looks lively and eager to serve you."
s<S� �i$,"liquid")>0 t$="The liquids line the room. They are all various colours."
sF�
sP�� �i$,"handkerchief")>0 � �gotorhere("handkerchief")=1 t$="It's a delicate silk handkerchief, carefully made for only the richest of customers."
sZZ� �i$,"key")>0 � �gotorhere("key")=1 t$="It's a silver key and is surprisingly heavy."
sd�� �i$,"book")>0 � �gotorhere("book")=1 t$="It is an expertly bound book with a tanned leather cover. It has yellowing pages inside."
snw� �i$,"pill")>0 � �gotorhere("pill")=1 t$="It is small, dusty and round. You presume it must be a sleeping tablet."
sx�� �i$,"novel")>0 � �gotorhere("novel")=1 t$="The novel is a cheap, second-hand book that looks as if it has been very well read."
s��� �i$,"truck")>0 � �gotorhere("truck")=1 t$="This toy is a plastic dumper-truck and looks as if it has hardly been touched."
s��� �i$,"doll")>0 � �gotorhere("doll")=1 t$="This toy used to be an extremely elegant girl's toy, but now it looks slightly battered with a massive indent on its head."
s�k� �i$,"sweet")>0 � �gotorhere("sweet")=1 t$="The sweet looks edible if you ignore the layers of fluff."
s�{� �i$,"bear")>0 � �gotorhere("bear")=1 t$="This toy is just so cute that you want to pick it up and cuddle it forever."
s��� �i$,"cushion")>0 � �gotorhere("cushion")=1 t$="The cushion is horribly pink and over-decorated compared to the piece of furniture it used to be on."
s�^� �i$,"apple")>0 � �gotorhere("apple")=1 t$="The apple is large and looks very appealing."
s��� �i$,"feather")>0 � �gotorhere("feather")=1 t$="The feather is quite long and very soft to touch. You cannot tell what bird it is from."
s�\� �i$,"can")>0 � �gotorhere("can")=1 t$="The can is made of metal and is totally empty."
s�^� �i$,"wheel")>0 � �gotorhere("wheel")=1 t$="The wheel is wooden and is sort of roundish."
s܀� �i$,"breadcrumb")>0 � �gotorhere("breadcrumb")=1 t$="The breadcrumb is made out of wholemeal bread and looks quite clean."
s�� �i$,"mouse")>0 � �gotorhere("mouse")=1 t$="The mouse doesn't look damaged in any way, it must have just died of a heart attack or something similar."
s�� �i$,"bottle")>0 � �gotorhere("bottle")=1 � fire%=1 t$="The bottle is made out of green glass and reeks of meths. It feels about half-full."
s�h� �i$,"bible")>0 � �gotorhere("bible")=1 t$="The bible is small, dusty and smells as old bibles do."
t|� �i$,"blob")>0 � �gotorhere("blob")=1 t$="The blob is fairly firm, but very mouldable, ideal to make impressions with."
td� �i$,"newt")>0 � �gotorhere("newt")=1 t$="The newt is green and slimy. It is undoubtably dead."
t�� �i$,"wand")>0 � �gotorhere("wand")=1 t$="The wand is made of some sort of unrecognisable wood. It is painted black, with white ends on - just like Sooty's."
t"X� �i$,"spade")>0 � �gotorhere("spade")=1 t$="The spade is spade-like, surprisingly."
t,s� �i$,"note")>0 � �gotorhere("note")=1 t$="The note is just a few lines of scribble on a piece of white paper."
t6�� �i$,"pamphlet")>0 � �gotorhere("pamphlet")=1 t$="The pamphlet is a professional guide to playing snooker. It is quite thin, and looks interesting."
t@|� �i$,"plan")>0 � �gotorhere("plan")=1 t$="The plan is a piece of paper with a few sketches and a few lines of writing."
tJ�� �i$,"medal")>0 � �gotorhere("medal")=1 t$="The medal is small but heavy. On it is enscribed: Carol-Ann Smithe, beauty award winner."
tTi� �i$,"coin")>0 � �gotorhere("coin")=1 t$="The coin is circular and made of a silver-coloured metal."
t^T� �i$,"whisky")>0 � �gotorhere("whisky")=1 t$="The whisky is brown and liquidy."
th�� �i$,"spell")>0 � �gotorhere("spell")=1 t$="The spell is just a piece of yellowing paper with a few complicated symbols on."
trt� �i$,"potion")>0 � �gotorhere("potion")=1 t$="The potion is a glass bottle with a green viscous liquid inside."
t|d� �i$,"bone")>0 � �gotorhere("bone")=1 t$="The bone is from a human, it is probably a leg bone."
t�p� �i$,"hacksaw")>0 � �gotorhere("hacksaw")=1 t$="The hacksaw is a small serrated blade with a large handle."
t�T� �i$,"cup")>0 � �gotorhere("cup")=1 t$="The cup is made of china and is white."
t��� �i$,"cue")>0 � �gotorhere("cue")=1 t$="The cue is a long piece of crafted wood, with a little chalked end on it. It is used for playing snooker."
t�a� �i$,"wig")>0 � �gotorhere("wig")=1 t$="The wig is a realistic aid to covering up baldness."
t��� �i$,"badge")>0 � �gotorhere("badge")=1 t$="The badge is a piece of metal with a pin in the back. On it is enscribed, 'POLICE FORCE'."
t�[� �i$,"cap")>0 � �gotorhere("cap")=1 t$="The cap is a smart, blue coloured police cap."
t©� �i$,"poster")>0 � �gotorhere("poster")=1 t$="The poster has a few illustrations, symbolising great power, and the words 'BORIS IS BEST' are written at the bottom."
t�Q� �i$,"lolly")>0 � �gotorhere("lolly")=1 t$="The lolly is orange and sticky."
t�X� �i$,"aspirin")>0 � �gotorhere("aspirin")=1 t$="The aspirin is circular and white."
t�� �i$,"bottle")>0 � �gotorhere("bottle")=1 � fire%=0 t$="The bottle is brown, and on it is a label which reads; 'PENICILLIN'."
t�� �i$,"gravestone")>0 � �gotorhere("gravestone")=1 t$="The gravestone, or the chunk of it, is very old and the writing on it is no longer readable."
t�f� �i$,"flannel")>0 � �gotorhere("flannel")=1 t$="The dripping flannel is dark blue and very damp."
t�i� �i$,"flower")>0 � �gotorhere("flower")=1 t$="The flower is blue and small. It smells rather sweet."
u�� �i$,"bouquet")>0 � �gotorhere("bouquet")=1 t$="The bouquet is large and flamboyant. The vast range of flowers in it make it look rather spectacular."
u�� �i$,"ornament")>0 � �gotorhere("ornament")=1 t$="The ornament is old and delicate. It is in the shape of some Greek Goddess."
u�� �i$,"penknife")>0 � �gotorhere("penknife")=1 t$="The vibrant, red, Swiss Army penknife has open blade already. It could cut you easily if you were not careful."
u&�� �i$,"purse")>0 � �gotorhere("purse")=1 t$="The purse is black and small. The zip on it is stuck, and seems impossible to open, yet you can hear some money jingle about in it whne you shake it."
u0�� �i$,"prescription")>0 � �gotorhere("prescription")=1 t$="The prescription is a sheet of paper which has some writing on it. It seems unreadable, but then most prescriptions do."
u:�� �i$,"cheque")>0 � �gotorhere("cheque")=1 t$="The cheque is blank except for the signiture. Someone has been very foolish in losing that!"
uD�add(t$)
uN�
uX
ub��whatgot(objt$)
ul$t$="You now have the "+objt$+"."
uvȎ objt$ �
u��  � "handkerchief" : � roomno%=1 t$="You pick up the delicate silk handkerchief from the pavement, wipe it clean with your sleeve, and place it carefully in your pocket."
u�o  � "apple" : t$="You pick up the apple, shine it a little with your sleeve, then place it in your pocket."
u�e  � "mouse" : t$="You carefully pick up the mouse, you relax as soon as you see that it is dead."
u�C  � "cap" : t$="You pick up the cap and place it on your head."
u�;  � "badge" : t$="You pin the badge onto your clothes."
u�=  � "wig" : t$="You place the wig over your normal hair."
u�[  � "flannel" : t$="You pick up the wet flannel, some of the water runs down your arm."
u�p  � "penknife" : t$="You grab the penknife, but too quickly. You cut your hand on the open blade.":injure%=1
u��
u��add(t$)
u��
u�
u���unlock
v:� �i$,"gate")>0 �add("The gates are firmly bolted."):�
v5� �i$,"door")=0 �add("You cannot unlock that!"):�
v9� roomno%=305 �add("The door is already unlocked."):�
v E� roomno%<>2 � roomno%<>179 �add("There is nothing to unlock."):�
v*M� �gotorhere("key")=0 �add("You have nothing to unlock the door with."):�
v4H� roomno%=2 � exits(2,2)=3 �add("The door is all ready unlocked."):�
v>�� roomno%=2 �add("You put the key into the lock and turn carefully. The door swings open."):exits(2,2)=3:wimp%!0=maphan%:�redrawmap
vHM� roomno%=179 � exits(179,1)=15 �add("The door is all ready unlocked."):�
vR�� roomno%=179 �add("You put the key into the lock and turn carefully. The door swings open."):exits(179,1)=15:�remkey:wimp%!0=maphan%:�redrawmap
v\�
vf
vp
��lock
vz;� �i$,"gate")>0 �add("The gates are already bolted."):�
v�3� �i$,"door")=0 �add("You cannot lock that!"):�
v�C� roomno%=305 �add("You have nothing to lock the door with."):�
v�C� roomno%<>2 � roomno%<>179 �add("There is nothing to lock."):�
v�K� �gotorhere("key")=0 �add("You have nothing to lock the door with."):�
v�F� roomno%=2 � exits(2,2)=0 �add("The door is all ready locked."):�
v��� roomno%=2 �add("You close the door, put the key into the lock and turn carefully. It clicks into place."):exits(2,2)=0:wimp%!0=maphan%:�redrawmap
v�J� roomno%=179 � exits(179,1)=0 �add("The door is all ready locked."):�
v�@� roomno%=179 �add("You no longer have the key to do that.")
v��
v�
v�	��ask
v�t$="There is no response."
v�!person$=�i$,5,�i$,"about")-6)
w$subject$=�i$,�i$,"about")+6,200)
w3� �subject$,4)="the " subject$=�subject$,5,200)
ws� subject$="" � person$="" � subject$=" " � person$=" " �add("Please use 'ask <someone> about <something>.'"):�
w$� roomno%=1 �
w.�� �person$,"person")>0 � �person$,"man")>0 � �person$,"stallholder")>0 � �person$,"people")>0 � �person$,"someone")>0 � �person$,"anyone")>0 Ȏ subject$ �
w8F� "gorm" : t$="'Isn't that a type of cheese?' someone shouts out."
wB]� "amiga","amigas" : t$="'Great computers, mate, they really are,' says the stallholder."
wLM� "stall","stalls" : t$="'Well, they're here aren't they?' someone says."
wVH� "market" : t$="'The market's here every Wednesday,' someone says."
w`e� "butcher","butchers" : t$="'The butcher's just sort of south-westish from here,' says someone."
wjT� "baker","bakers" : t$="'The baker's sort of westish from here,' says someone."
wt_� "fence" : t$="'That large fence has been there ever since I can remember,' says someone."
w~O� "guard" : t$="'You'll never b'able t'get past that guard,' someone says."
w�^� "quest","adventure" : t$="'Tis probably t'shut-up and leave us in peace,' someone says."
w�T� "vicar" : t$="'Lovely old vicar, he is, but ever so quiet,' someone whispers."
w�`� "church" : t$="'That church is the prettiest thing I've ever seen,' says someone proudly."
w�l� "house" : t$="'Y'mean that quaint little house over there, don't you? Dead posh it is,' someone says."
w�E : t$="'Don't know what you're on about, mate,' someone shouts."
w��
w��
w�� roomno%=15 �
w�'� �person$,"guard")>0 Ȏ subject$ �
w�_� "gorm" : t$="'Well, it stands for 'Golfing Or Rounders Maniacs, doesn't it,' he replies."
w�J� "quest","adventure" : t$="'Haven't got a clue about that,' he says."
w�;� "gate" : t$="'I'm not letting you through,' he says."
xV� "fence" : t$="'Tis there to stop idiots like you from getting out,' he replies."
x
6 : t$="'I'm on duty s'go away,' he says moodily."
x�
x�
x(� roomno%=29 �
x2'� �person$,"baker")>0 Ȏ subject$ �
x<M� "gorm" : t$="'Well, tis 'morg' spelt backwards, isn't it,' he replies."
xFC� "quest","adventure" : t$="'Well how should I know?' he says."
xP<� "butcher","butchers" : t$="'He's next door,' he says."
xZ@� "loaf" : t$="'That loaf is perfectly edible,' he replies."
xda� "bread" : t$="'There's nothing wrong with my bread s'don't start complainin',' he replies."
xn= : t$="'Just buy something or leave,' he says grumpily."
xx�
x��
x�� roomno%=30 �
x�)� �person$,"butcher")>0 Ȏ subject$ �
x�K� "gorm" : t$="'Well, tis an anagram of 'orgm', isn't it,' he replies."
x�C� "quest","adventure" : t$="'Well how should I know?' he says."
x�8� "baker","bakers" : t$="'He's next door,' he says."
x�R� "meat" : t$="'That meat is perfectly edible, it tastes lovely,' he replies."
x�P� "blood" : t$="'Lovely, red an' juicy and it tastes gorgeous,' he replies."
x�= : t$="'Just buy some meat or leave,' he says grumpily."
x��
x��
x�� roomno%=37 �
x�'� �person$,"vicar")>0 Ȏ subject$ �
yH� "gorm" : t$="'It's one of God's wonderous creatures,' he replies."
yB� "quest","adventure" : t$="'Ask God, he will know,' he says."
y5� "god" : t$="'He's the supreme being,' he says."
y">� "church" : t$="'The church is God's house,' he replies."
y,X� "girl" : t$="'The girl is upset because I buried her father earlier,' he replies."
y6\� "father" : t$="'The girl's father was a scoundrel anyway, no great loss,' he replies."
y@? : t$="'I must continue with my praying,' he says calmly."
yJ�
yT1� �person$,"girl")>0 � crier%=1 Ȏ subject$ �
y^_� "father","death","dad","daddy" : t$="'He was th'best Daddy anyone could 'ave,' she sobs."
yh- : t$="'Just leave m'alone,' she wails."
yr�
y|�
y�� roomno%=50 �
y�U� �person$,"people")>0 � �person$,"someone")>0 � �person$,"somebody")>0 Ȏ �(4) �
y�,� 1 : t$="'La la laa la la,' they wail."
y�0� 2 : t$="'Dah dee dum dum daa,' they sing."
y�5� 3 : t$="'Bbbuuuuurrrrrppppp,' someone belches."
y�#� 4 : t$="'Huh?' someone says."
y��
y��
y�� roomno%=52 �
y�%� �person$,"man")>0 Ȏ subject$ �
y�U� "gorm" : t$="'They're Gorgeous Outings for Repairers of Machines,' he replies."
y�=� "quest","adventure" : t$="'Could b'anything,' he says."
y�V� "beer","alcohol","drink" : t$="'Y'can order some alc'ol if y'want to,' he says."
z;� "pub" : t$="'Been here for ages it has,' he replies."
z�� "barmaid","woman","carol","carolann","carolann smithe" : t$="'She's just over there,' he says pointing west, 'fancy her do you?'"
z. : t$="'Would y'like to order?' he says."
z&�
z0�
z:� roomno%=64 �
zD?� �person$,"woman")>0 � �person$,"barmaid")>0 Ȏ subject$ �
zNy� "gorm" : t$="'Could stand for 'Goluptious Obmutescence of Ramified Moschatels', couldn't it?' she asks innocently."
zX>� "quest","adventure" : t$="'I don't know luv,' she says."
zbW� "beer","alcohol","drink" : t$="'Y'can order some alc'ol if y'want to,' she says."
zlA� "pub" : t$="'Right ancient this building is,' she replies."
zvB� "man" : t$="'He's just over there,' she says pointing east."
z�L� "carol","carolann","carolann smithe" : t$="'That's me!' she exclaims."
z�R� "medal" : t$="'You mean my beauty award, so proud of that, I am,' she says."
z�/ : t$="'Would y'like to order?' she says."
z��
z��
z�� roomno%=69 �
z�>� �person$,"man")>0 � �person$,"keymaker")>0 Ȏ subject$ �
z�H� "blob" : t$="'That blob's for moulding for keys y'know,' he says."
z�N� "gorm" : t$="'Gruesome Organising of Rhubarb Mating, that is,' he says."
z�N� "quest","adventure" : t$="'Probably t'get me some work to do,' he says."
z�J� "key" : t$="'Keys are for opening doors y'know,' he says helpfully."
z�B� "display" : t$="'That's my pride and joy,' he says proudly."
z�z : t$="'I'd luv to 'ave some work t'do. I'd do it for free y'know, I need the practice,' the old man says hopefully."
{�
{�
{� roomno%=72 �
{ <� �person$,"wizard")>0 � �person$,"man")>0 Ȏ subject$ �
{*b� "spell","potion","wand" : t$="'The "+subject$+" would help me to make a timewarp,' he says."
{4M� "gorm","quest","adventure" : t$="'My goodness, I don't know!' he says."
{>i� "timewarp","time travel","timetravel" : t$="'I'd love to discover time travel,' he says longingly."
{Ho : t$="'I'm on the verge of discovering time travel, y'know, if only I had the right resources,' he says."
{R�
{\�
{f� roomno%=73 �
{p?� �person$,"man")>0 � �person$,"alchemist")>0 Ȏ subject$ �
{zQ� "gorm" : t$="'Gordon's Organic and Rural Muck-spreader, that is,' he says."
{�S� "quest","adventure" : t$="'Probably t'get me a newt for my potion,' he says."
{�a� "potion" : t$="'I don't know what they do, but they're pretty colours,' he says helpfully."
{�A� "newt" : t$="'That's what I need for my potions,' he says."
{�L : t$="'I'd luv to 'ave a newt for my new potion,' the alchemist says."
{��
{��
{�� roomno%=76 �
{�[� �person$,"man")>0 � �person$,"tramp")>0 t$="'My God, I'm 'ungry,' the tramp mumbles."
{��
{�� roomno%=78 � fire%>0 �
{�%� �person$,"boy")>0 Ȏ subject$ �
{�K� "fire","bonfire" : t$="'I built and lit it myself, y'know,' he says."
{�V� "gorm" : t$="'Ganging against Obscene and Repulsive Maniacs, that is,' he says."
|D� "quest","adventure" : t$="'Make m'fire burn better,' he says."
|: : t$="'Do y'ave anything for m'fire?' the boy asks."
|�
|$�
|.� roomno%=82 �
|8'� �person$,"woman")>0 Ȏ subject$ �
|B=� "medal" : t$="'I found it on the road once,' she says."
|LB� "gorm" : t$="'Sounds like an abbreviation to me,' she says."
|VJ� "quest","adventure" : t$="'It's to stop wasting my time,' she says."
|`h� "ballet","ballet school","school" : t$="'Well I'm trying to run the ballet school now,' she says."
|jd� "feather","performance","swan lake" : t$="'The performance had better go well now,' she says."
|t@ : t$="'I suggest that you don't waste my time,' she says."
|~�
|��
|�� roomno%=84 �
|�%� �person$,"man")>0 Ȏ subject$ �
|�U� "boy","coffin" : t$="'The boy's not actually dead, but he nearly is,' he says."
|�u� "gorm","quest","adventure":�add("'They said you would come!' he exclaims. You stay there as the man raves on.")
|���add("'The kingdom is in danger, the land will soon be ruled by an evil and cruel prince named Boris,' he says. 'He's going to create turmoil. We call it project GORM - Genocidal Organisation of the Release of the Maelstrom'.")
|���add("'My powerful, but now poisoned son could stop project GORM if he could be made better. The prophets told of an adventurer who would come t'save us and release the land of evil, that adventurer must be you'.")
|��t$="'I know that someone in the village is near to perfecting the art of time travel, something which you must use to voyage into the future and bring back a medecine for my son. You must hurry'."
|�C : t$="'Oh if only someone would help me!' the old man wails."
|��
|��
|�� roomno%=85 �
}'� �person$,"guard")>0 Ȏ subject$ �
}
_� "gorm" : t$="'Well, tis a shortened spelling of the great book, Gormengast,' he replies."
}:� "drink","cup" : t$="'Lovely, my drink is,' he says."
}L� "jail" : t$="'I love working here, it's so homely and warm,' he says."
}(A : t$="'I shouldn't really talk to you,' he says dutifully."
}2�
}<F� �person$,"guard")>0 � drugged%=1 t$="The guard snores a little."
}F�
}P� zone%=2 �
}Z"z%=0:� police%(1)=roomno% z%=1
}d� police%(2)=roomno% z%=1
}n,� z%=1 � �person$,"man")>0 Ȏ subject$ �
}xK� "gorm" : t$="'Gormandizers are gluttons, if that helps,' he replies."
}�P� "jail" : t$="'I hate this place - it's so cold and unwelcoming,' he says."
}�R� "maze" : t$="'That's there to prevent prisoners from escaping,' he replies."
}�) : t$="'I must get going,' he says."
}��
}��
}�� roomno%=226 �
}�t� �person$,"child")>0 � �person$,"girl")>0 t$="The little girls tells you that she shouldn't talk to strangers."
}��
}�� roomno%=248 �
}�%� �person$,"man")>0 Ȏ subject$ �
}�^� "gorm","quest": t$="'I'm afraid I only know about magazines or newspapers,' he replies."
}�G� "magazine","newspaper" : t$="'They're things you read,' he says."
}�M : t$="'Are you going to buy a newspaper or what?' he says agressively."
~�
~�
~� roomno%=249 �
~"'� �person$,"woman")>0 Ȏ subject$ �
~,P� "gorm","quest": t$="'Find me some more ornaments, probably,' she replies."
~6]� "ornaments","souvenirs","trophies" : t$="'They're my pride and joy,' she says proudly."
~@D : t$="'Do you like my collection of ornaments?' she asks you."
~J�
~T�
~^� roomno%=250 �
~h'� �person$,"woman")>0 Ȏ subject$ �
~rN� "gorm","quest": t$="'Help me with my arranging, probably,' she replies."
~|Y� "bouquet","flower","flowers" : t$="'I do love flower arranging,' she says proudly."
~�S� "arranging": t$="'I've been flower arranging since I was five,' she replies."
~�Z:t$="'I don't suppose you could help me find some more flowers could you?' she asks."
~��
~��
~�� roomno%=253 �
~�'� �person$,"woman")>0 Ȏ subject$ �
~�G� "gorm","quest": t$="'Help me get better, probably,' she replies."
~�a� "prescription": t$="'Can you take it to the Chemists?, I need my medication,' she replies."
~�.:t$="'Oooooh, I feel ill', she grumbles."
~��
~��
~�� roomno%=266 �
~�i� �person$,"woman")>0 � �person$,"barmaid")>0 t$="'Would you like to order a drink, sir?', she asks."
�
� roomno%=281 �
%� �person$,"man")>0 Ȏ subject$ �
&6� "gorm","quest": t$="'Dunno, sorry,' he replies."
0U� "leaflets","town":t$="'The leaflets will tell yuh about the town,' he replies."
:*:t$="'Can I 'elp yuh?', he inquires."
D�
N�
X� roomno%=301 �
b'� �person$,"woman")>0 Ȏ subject$ �
l7� "gorm","quest": t$="'Dunno, sorry,' she replies."
v�� "museum","payment","entry","paying":t$="'You need to pay me with something if you are to look around the museum,' she replies."
�+:t$="'Can I 'elp yuh?', she inquires."
��
��
�� roomno%=302 �
�'� �person$,"woman")>0 Ȏ subject$ �
�O� "gorm","quest": t$="'I do not know, I am dreadfully sorry,' she replies."
�R� "museum" : t$="'It really is the most truly wonderful museum,' she replies."
�S� "doll" : t$="'Dolls are my favourite examples of ancient toys,' she replies."
�D� "ornament" : t$="'The ornament has great value,' she replies."
�C:t$="'How may I be of assistance to you, sir?', she inquires."
��
��
�� roomno%=305 �
�o� �person$,"guard")>0 � �person$,"man")>0 t$="'I am not allowed to talk on my job, sir', he says formally."
��
�� roomno%=310 �
� >� �person$,"woman")>0 � �person$,"medium")>0 Ȏ subject$ �
�*L� "gorm","quest": t$="'I do not know, I'm terribly sorry,' she replies."
�4T� "payment","paying" : t$="'I need some payment for any services,' she replies."
�>m� "gravestone","doll" : t$="'Well, "+subject$+"s are good examples of links with the past,' she replies."
�HD� "timetravel","magic" : t$="'What are you on about?' she asks."
�Rx:t$="'If you need any of my services', the medium says, 'I will need payment and some sort of link with the past'."
�\�
�f�
�p� roomno%=312 �
�z=� �person$,"man")>0 � �person$,"chemist")>0 Ȏ subject$ �
��G� "prescription","bottle" : t$="'Penicillin, that is,' he replies."
��Z� "penicillin" : t$="'Useful medicine, Penicillin is, very powerful indeed', he says."
��B:t$="'Do you have any sort of prescription for me?' he says."
���
���
���add(t$)
���
��
����remkey
��� z%=1 � 10
��"� owns$(z%)="key" owns$(z%)=""
��8� objects$(roomno%,z%)="key" objects$(roomno%,z%)=""
��� z%
��
�
�
��give
�$gotta%=0
�.� g=1 � 10
�84� owns$(g)<>"" � �i$,owns$(g))>0 gotta%=1:ojt%=g
�B� g
�L� gotta%=0 Ȏ �(3) �
�V3  � 1 : �add("You do not have such an object.")
�`8  � 2 : �add("You cannot find that object to give.")
�jB  � 3 : �add("You can't give something that you haven't got.")
�t  �
�~� gotta%=1 �
��Ȏ roomno% �
��_� 1 : t$="The stallholder accepts the "+owns$(ojt%)+" and says 'thank you'.":owns$(ojt%)=""
��d� 15 : t$="The guard takes the "+owns$(ojt%)+", looks at it then throws it away.":owns$(ojt%)=""
��T� 29 : t$="The baker takes the "+owns$(ojt%)+" and says nothing.":owns$(ojt%)=""
��V� 30 : t$="The butcher takes the "+owns$(ojt%)+" and says nothing.":owns$(ojt%)=""
���� 37 : � crier%=1 � �i$,"vicar")=0 � owns$(ojt%)="handkerchief" t$="The girl takes the handkerchief, wipes away her tears, murmurs a 'thanks' and runs off.":owns$(ojt%)="":crier%=0 � t$="Your gift is rejected."
�� � 50 : � owns$(ojt%)="cue" �
��owns$(ojt%)=""
�؞�add("The people take the cue from you. Let's have a game, they say as one person takes some balls out of their jacket. You have no choice but to agree.")
��� pamp%=1 t$="You beat them easily with your newly-found snooker knowledge and they give you a coin as a prize.":owns$(ojt%)="coin"
��� pamp%=0 t$="You soon realise that you are totally rubbish at playing snooker, and the humiliation when you lose is too much to bare, you have to get out of here."
��X� t$="The people take the "+owns$(ojt%)+", burp, then throw it away.":owns$(ojt%)=""
��
�
!� 52 : � owns$(ojt%)="coin" �
�et$="'Alright, that'll do me. Here, here's a whisky,' he says. He places the whisky in your hand."
�owns$(ojt%)="whisky"
�(l� t$="The man takes the "+owns$(ojt%)+" and says, 'well, y'won't get a drink for that!'.":owns$(ojt%)=""
�2�
�<"� 64 : � owns$(ojt%)="medal" �
�F�t$="'My medal!' she shouts, 'where d'you find that? I've been looking for't for ages, look, here's something t'say thanks.' She places a wand in your hand."
�Powns$(ojt%)="wand"
�Zf� t$="The bar-maid takes the "+owns$(ojt%)+", looks at it then throws it in a bin.":owns$(ojt%)=""
�d�
�n,� 69 : � owns$(ojt%)="blob" � mould%=1 �
�x�t$="The old man looks delighted at some work to do - he grabs the blob, and in ten minutes he returns with a brand new key. He places it in your hand.":owns$(ojt%)="key"
��Y� t$="The old man takes the "+owns$(ojt%)+" and throws it behind him.":owns$(ojt%)=""
���
��N� 72 : � owns$(ojt%)="spell" � owns$(ojt%)="wand" � owns$(ojt%)="potion" �
��pt$="The wizard throws up his arms, 'Horrah!' he cries, just what I need - a "+owns$(ojt%)+".":owns$(ojt%)=""
��whiz%+=1
���� whiz%=3 t$+=" He levitates the spell, potion and wand and casts some mystical words. A large whirling door appears in the south wall.":exits(72,3)=71:wimp%!0=maphan%:�redrawmap
��P� t$="He takes the "+owns$(ojt%)+" and throws it behind him.":owns$(ojt%)=""
���
��!� 73 : � owns$(ojt%)="newt" �
�ܷt$="He takes the newt from you, 'just what I need,' he exclaims. He places a potion in your hand for thanks. 'I'm not sure what it does,' he says, 'but it should be interesting!'"
��owns$(ojt%)="potion"
��t� t$="He takes the "+owns$(ojt%)+", throws it behind him and concentrates on shaking his bottle.":owns$(ojt%)=""
���
�� 76 : Ȏ owns$(ojt%) �
��� "apple" : t$="The old tramp looks delighted at the apple, he takes it and passes you his only meths bottle in return. It feels about half-full.":owns$(ojt%)="bottle"
��� "whisky" : t$="The old tramp pulls a big grin when you give him the whisky, he rumages in his jumper and shoves a spell into your hand.":owns$(ojt%)="spell"
�"n� "breadcrumb" : t$="He puts the breadcrumb into his mouth, then looks up to you for more.":owns$(ojt%)=""
�,a : t$="The old tramp takes the "+owns$(ojt%)+" and tucks it into his jumper.":owns$(ojt%)=""
�6�
�@-� 78 : � fire%=1 � owns$(ojt%)="bottle" �
�J~t$="The young boy takes the bottle of meths and throws it carelessly into the bonfire.":owns$(ojt%)="":fire%=2:firetime%=�
�T�� � fire%=1 t$="The young boy takes the "+owns$(ojt%)+" and throws it into the fire, thinking it will make it burn better.":owns$(ojt%)=""
�^�
�h3� 81 : t$="Your gift is rejected by the girls."
�r$� 82 : � owns$(ojt%)="feather" �
�|�t$="She takes the feather from you and exclaims, 'this is just the thing we need f'our production of Swan Lake. How can I ever repay you?'. She pulls out a large medal, 'I found this recently' - she shoves it into your hand."
��owns$(ojt%)="medal"
��c� t$="The old woman takes the "+owns$(ojt%)+" and tucks it away under her desk.":owns$(ojt%)=""
���
��� 84 : Ȏ owns$(ojt%) �
���� "aspirin" : t$="The old man takes the aspirin hopefully and makes the boy swallow it. You wait for a few hours, but there is no improvement in the boy.":owns$(ojt%)=""
���� "bottle" :� fire%=0 �excite:t$="Congratulations, you have completed GORM!" � t$="The old man takes a swig from the bottle, 'thanks', he says, 'I needed that'.":owns$(ojt%)=""
��[ : t$="The old man takes the "+owns$(ojt%)+" and throws it behind him.":owns$(ojt%)=""
���
��,� 85 : t$="The guard refuses your gift."
��#� 226 : � owns$(ojt%)="lolly" �
��gt$="The little girl takes the lolly and puts it in her mouth, 'fanks', she mutters.":owns$(ojt%)=""
��^� t$="The little girl takes the "+owns$(ojt%)+" and puts it in her pocket.":owns$(ojt%)=""
���
�^� 248:t$="The man takes the "+owns$(ojt%)+" and puts it under the counter.":owns$(ojt%)=""
�&� 249 : � owns$(ojt%)="ornament" �
�^t$="The old woman takes the ornament and puts it among her others, 'thank you', she says."
�&owns$(ojt%)=""
�0�� injure%=1 t$+=" She notices your cut, 'My goodness, you have been in the wars!' she exclaims and passes you a wet flannel to put over your injury.":owns$(ojt%)="flannel"
�:]� t$="The old woman takes the "+owns$(ojt%)+" and tries to look grateful.":owns$(ojt%)=""
�D�
�N$� 250 : � owns$(ojt%)="flower" �
�X�t$="The young woman takes the flower and puts it among her other bunches of them, 'thank you', she says cheerfully, 'you have done me a huge favour!'. She gives you a huge bouquet in return."
�bowns$(ojt%)="bouquet"
�lf� t$="The young woman takes the "+owns$(ojt%)+" and throws it amongst her flowers.":owns$(ojt%)=""
�v�
��Y� 253:fg%=0:� owns$(ojt%)="aspirin" � owns$(ojt%)="flannel" � owns$(ojt%)="bouquet" �
��Kt$="The old woman smiles, 'thank you', she says gently.":owns$(ojt%)=""
��ill%+=1:fg%=1
���� ill%=3 � fg%=1 t$+=" She looks up at you and says, 'I feel I can trust you with this now, I need some medication', she passes you her prescription.":owns$(ojt%)="prescription"
��e� t$="She takes the "+owns$(ojt%)+", smiles gratefully, and places it beside her.":owns$(ojt%)=""
���
��e� 266:t$="The bar-maid takes the "+owns$(ojt%)+" and places it under the counter.":owns$(ojt%)=""
��`� 281:t$="The man takes the "+owns$(ojt%)+" and places it under the counter.":owns$(ojt%)=""
��:� 301 : � owns$(ojt%)="purse" � owns$(ojt%)="cheque" �
��wt$="The woman takes the payment and tells you that you can enter the museum by going east.":payed%=1:owns$(ojt%)=""
��� t$="The woman takes the "+owns$(ojt%)+" and places it under the counter. 'That is not good enough for payment', she says.":owns$(ojt%)=""
���
��"� 302 : � owns$(ojt%)="doll" �
��t$="The woman takes the doll and excitably tells you that it is a wonderful example of 18th Century doll-making. She hurridly pays you with a small ornament, apparently also of some value."
�owns$(ojt%)="ornament"
�s� t$="The old woman takes the "+owns$(ojt%)+" and exclaims that it is junk. She throws it away.":owns$(ojt%)=""
� �
�*q� 305:t$="The guard takes the "+owns$(ojt%)+", looks at it thoughtfully, then throws it away.":owns$(ojt%)=""
�4� 310 : fg%=0
�>�� owns$(ojt%)="gravestone" � owns$(ojt%)="doll" fg%=1:owns$(ojt%)="":medium1%=1:t$="'Thank you', she says":� medium2%=0:t$+=", 'now all I need is some payment'." � t$+="."
�H�� owns$(ojt%)="purse" � owns$(ojt%)="cheque" fg%=1:owns$(ojt%)="":medium2%=1:t$="'Thank you', she says":� medium1%=0:t$+=", 'now all I need is something to link with the past'." � t$+="."
�R'� fg%=1 � medium1%=1 � medium2%=1 �
�\�add(t$)
�f�t$=" She takes your gifts and places them on the table. She goes into a trance and mutters a few words. Suddenly there is a huge flash of lightening and what you recognise as a timewarp appears to the east."
�p/exits(310,2)=311:wimp%!0=maphan%:�redrawmap
�z�
��*� 312 : � owns$(ojt%)="prescription" �
���t$="The young man takes the prescription, disappears behind the counter and comes back with a bottle. He shoves it into your hand.":owns$(ojt%)="bottle"
��b� t$="The young man takes the "+owns$(ojt%)+" and throws it under the counter.":owns$(ojt%)=""
���
��M : t$="I do not understand who you want to give the "+owns$(ojt%)+" to."
���
��S� police%(1)=roomno% � police%(2)=roomno% t$="The policeman refuses your gift."
���add(t$)
���
���
��
��	��put
��
blb%=0
�P� �gotorhere("blob")=1 � �i$,"blob")>0 � �i$,"keyhole")>0 � roomno%=2 blb%=1
�M� �gotorhere("blob")=1 � �i$,"blob")>0 � �i$,"door")>0 � roomno%=2 blb%=1
�o� blb%=1 �add("You press the blob into the keyhole and pull it out. Voila! A perfect impression!"):mould%=1
�$
put%=0
�.@� �i$,"pill")>0 � �i$,"cup")>0 � �gotorhere("pill")=1 put%=1
�8B� �i$,"pill")>0 � �i$,"drink")>0 � �gotorhere("pill")=1 put%=1
�B� put%=1 �
�L��add("You drop the pill into the guard's drink. A few minutes later he picks it up and takes a sip. Within a quarter of an hour he falls soundly asleep.")
�V8rooms$(85,5)="side of the bars is a sleeping guard."
�`� a=1 � 10
�j!� owns$(a)="pill" owns$(a)=""
�t7� objects$(roomno%,a)="pill" objects$(roomno%,a)=""
�~� a
��drugged%=1
���
��3� put%=0 � blb%=0 �add("I don't feel like it.")
���
��
��
��drop
��gotta%=0
��@� �i$,"pill")>0 � �i$,"cup")>0 � �gotorhere("pill")=1 �put:�
��B� �i$,"pill")>0 � �i$,"drink")>0 � �gotorhere("pill")=1 �put:�
��*� �i$,"all")>0 � �i$,"everything")>0 �
��  counter%=0
��  � a%=1 � 10
�4  � owns$(a%)<>"" i$=owns$(a%):counter%+=1:�drop
�

  � a%
�4  � counter%=0 �add("You have nothing to drop.")
�  i$="drop all"
�(  gotta%=-1
�2�
�<� gotta%=0 �
�F� g=1 � 10
�P5� owns$(g)<>"" � �i$,owns$(g))>0 gotta%=-1:ojt%=g
�Z� g
�d� gotta%=0 �
�n  gotta%=1:Ȏ �(4) �
�x3  � 1 : �add("You do not have such an object.")
��8  � 2 : �add("You cannot find that object to drop.")
��N  � 3 : �add("I think you're hallucinating... you haven't got that item.")
��B  � 4 : �add("You can't drop something that you haven't got.")
��  �
���
��� gotta%=-1 gotta%=0
��� gotta%=0 �
��gottaflag%=0
��� g=1 � 10
��)� objects$(roomno%,g)="" gottaflag%=g
��� g
���� gottaflag%>0 objects$(roomno%,gottaflag%)=owns$(ojt%):owns$(ojt%)="":�add("You have dropped the "+objects$(roomno%,gottaflag%)+" on to the ground."):� roomno%=75 � objects$(roomno%,gottaflag%)="bone" �
����add("A young boy enters the room, he sees the bone and picks it up. He sees you murmurs a 'thanks' then drops a pamphlet onto the ground and leaves in the same casual manner.")
�+objects$(roomno%,gottaflag%)="pamphlet"
��
�� gottaflag%=0 Ȏ �(3) �
�"D  � 1 : �add("There are too many things on the ground already.")
�,7  � 2 : �add("The pile on the floor is too large.")
�6f  � 3 : �add("It's too risky, there's so much stuff on the ground you would never find it again.")
�@�
�J�
�T�
�^�
�h
�r��north
�|	mv%=0
��� exits(roomno%,1)=0 �
��
Ȏ �(7) �
��8  � 1 : t$="There is no possible exit to the north."
��5  � 2 : t$="You can see no way out to the north."
��:  � 3 : t$="You can see no escape route to the north."
��7  � 4 : t$="The direction to the north is blocked."
��9  � 5 : t$="There is no way of leaving to the north."
��6  � 6 : t$="You can't walk through solid objects."
��L  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
���
��Ȏ roomno% �
��N  � 46,45,44,43,47,65,76 : t$="The large fence provides a slight problem."
��[  � 226,227,228,262,267,283,284,285,288 : t$="The large brick wall provides a problem."
�&  � 179 : t$="The door is locked."
��  � 183 : �add("The wall fizzles and quivers as you step through it."):roomno%=151:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
�&�  � 195 : �add("The wall fizzles and quivers as you step through it."):roomno%=148:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�0Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
�:�
�D�add(t$)
�N�
�X�� roomno%=268 �add("You wander down the road, but there are cars zooming past you all the time. You decide it will be safer if you stay in the town."):�
�b#� exits(roomno%,1)<>0 � mv%=0 �
�l� roomno%=179 �
�vV�add("You step out of the maze and see a cart, you hide in it. It starts moving.")
����add("Hours later you see some gates open and the cart trundles into the town which you know so well. The gates close and you sneak out of the cart.")
��zone%=1
���
��roomno%=exits(roomno%,1)
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
��
��
��east
��	mv%=0
��� exits(roomno%,2)=0 �
��
Ȏ �(7) �
�7  � 1 : t$="There is no possible exit to the east."
�4  � 2 : t$="You can see no way out to the east."
�9  � 3 : t$="You can see no escape route to the east."
� 6  � 4 : t$="The direction to the east is blocked."
�*8  � 5 : t$="There is no way of leaving to the east."
�46  � 6 : t$="You can't walk through solid objects."
�>L  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
�H�
�RȎ roomno% �
�\> � 298,297 : t$="The large brick wall provides a problem."
�fC � 2 : t$="The door to the posh house is locked at the moment."
�p; � 46 : t$="The large fence provides a slight problem."
�z� � 194 : �add("The wall fizzles and quivers as you step through it."):roomno%=195:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
��� � 198 : �add("The wall fizzles and quivers as you step through it."):roomno%=208:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
��� � 208 : �add("The wall fizzles and quivers as you step through it."):roomno%=198:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
��� � 191 : �add("The wall fizzles and quivers as you step through it."):roomno%=206:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
�ʗ � 170 : �add("The wall fizzles and quivers as you step through it."):roomno%=202:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
���
���add(t$)
���
���� roomno%=37 � crier%=1 �add("A girl blocks your way. She is sobbing her heart out and screaming that her father has died."):�
�X� roomno%=301 � payed%=0 �add("You cannot enter the museum unless you have paid."):�
�#� exits(roomno%,2)<>0 � mv%=0 �
�roomno%=exits(roomno%,2)
�$E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�.wimp%!0=maphan%:�redrawmap
�8� roomno%=311 �
�Bj�add("A floor materialises by your feet and you soon recognise your surroundings."):roomno%=18:zone%=1
�L1� mapyn%(18)=0 mapyn%(18)=1:�look � �halflook
�Vwimp%!0=maphan%:�redrawmap
�`�
�j�
�t�
�~
����south
��	mv%=0
��� exits(roomno%,3)=0 �
��
Ȏ �(7) �
��8  � 1 : t$="There is no possible exit to the south."
��5  � 2 : t$="You can see no way out to the south."
��:  � 3 : t$="You can see no escape route to the south."
��7  � 4 : t$="The direction to the south is blocked."
��9  � 5 : t$="There is no way of leaving to the south."
��6  � 6 : t$="You can't walk through solid objects."
��L  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
���
�Ȏ roomno% �
�
c  � 15 : t$="You edge towards to gates, but the guard gives you an evil look so you back away."
�^  � 287,275,243,242,241,240,239,238,237,223: t$="The large brick wall provides a problem."
�T  � 57,56,55,53,24,14,16,17,18 : t$="The large fence provides a slight problem."
�(�  � 147 : �add("The wall fizzles and quivers as you step through it."):roomno%=194:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�2Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
�<�  � 210 : �add("The wall fizzles and quivers as you step through it."):roomno%=191:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�FWwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
�P�
�Z�add(t$)
�d�
�n|� roomno%=78 � fire%<>0 �add("The young boy, standing by his huge bonfire, annoyingly prevents you from going south."):�
�x�� roomno%=274 �add("You wander down the road, but there are cars zooming past you all the time. You decide it will be safer if you stay in the town."):�
��7entry%=0:� �got("cap")>0 � �got("badge")>0 entry%=1
��w� roomno%=305 � entry%=0 �add("The guard stops you. 'Only people of authority can go down there, son', he says."):�
��#� exits(roomno%,3)<>0 � mv%=0 �
��roomno%=exits(roomno%,3)
��L� roomno%=71 mapyn%(71)=1:wimp%!0=maphan%:�redrawmap:roomno%=220:zone%=4
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
��
��
��west
��	mv%=0
��� exits(roomno%,4)=0 �
�
Ȏ �(7) �
�7  � 1 : t$="There is no possible exit to the west."
�4  � 2 : t$="You can see no way out to the west."
�"9  � 3 : t$="You can see no escape route to the west."
�,6  � 4 : t$="The direction to the west is blocked."
�68  � 5 : t$="There is no way of leaving to the west."
�@6  � 6 : t$="You can't walk through solid objects."
�JL  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
�T�
�^Ȏ roomno% �
�hG � 76,77,78,79,80 : t$="The large fence provides a slight problem."
�rZ � 237,236,223,222,224,225,226,286,297 : t$="The large brick wall provides a problem."
�|� � 148 : �add("The wall fizzles and quivers as you step through it."):roomno%=147:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
��� � 210,168,197 : �add("The wall fizzles and quivers as you step through it."):roomno%=191:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
��� � 211,164,185 : �add("The wall fizzles and quivers as you step through it."):roomno%=155:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
��� � 151 : �add("The wall fizzles and quivers as you step through it."):roomno%=187:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
���
���add(t$)
���
��#� exits(roomno%,4)<>0 � mv%=0 �
��� roomno%=302 payed%=0
��roomno%=exits(roomno%,4)
�E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�wimp%!0=maphan%:�redrawmap
��
�&�
�0
�:��northeast
�D	mv%=0
�N� exits(roomno%,5)=0 �
�X
Ȏ �(7) �
�b=  � 1 : t$="There is no possible exit to the north-east."
�l:  � 2 : t$="You can see no way out to the north-east."
�v?  � 3 : t$="You can see no escape route to the north-east."
��<  � 4 : t$="The direction to the north-east is blocked."
��>  � 5 : t$="There is no way of leaving to the north-east."
��6  � 6 : t$="You can't walk through solid objects."
��L  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
���
��Ȏ roomno% �
���  � 160 : �add("The wall fizzles and quivers as you step through it."):roomno%=176:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
���
���add(t$)
���
��#� exits(roomno%,5)<>0 � mv%=0 �
��roomno%=exits(roomno%,5)
�E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
�wimp%!0=maphan%:�redrawmap
��
� �
�*
�4��southeast
�>� exits(roomno%,6)=0 �
�H
Ȏ �(7) �
�R=  � 1 : t$="There is no possible exit to the south-east."
�\:  � 2 : t$="You can see no way out to the south-east."
�f?  � 3 : t$="You can see no escape route to the south-east."
�p<  � 4 : t$="The direction to the south-east is blocked."
�z>  � 5 : t$="There is no way of leaving to the south-east."
��6  � 6 : t$="You can't walk through solid objects."
��L  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
���
���add(t$)
���
��� exits(roomno%,6)<>0 �
��roomno%=exits(roomno%,6)
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
��
����southwest
�	mv%=0
�� exits(roomno%,7)=0 �
�
Ȏ �(7) �
�$=  � 1 : t$="There is no possible exit to the south-west."
�.:  � 2 : t$="You can see no way out to the south-west."
�8?  � 3 : t$="You can see no escape route to the south-west."
�B<  � 4 : t$="The direction to the south-west is blocked."
�L>  � 5 : t$="There is no way of leaving to the south-west."
�V6  � 6 : t$="You can't walk through solid objects."
�`L  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
�j�
�tȎ roomno% �
�~�  � 176 : �add("The wall fizzles and quivers as you step through it."):roomno%=160:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
���  � 210 : �add("The wall fizzles and quivers as you step through it."):roomno%=191:� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��Wwimp%!0=maphan%:�redrawmap:t$="You shake off the mortar from your shoulders.":mv%=1
���
���add(t$)
���
��#� exits(roomno%,7)<>0 � mv%=0 �
��roomno%=exits(roomno%,7)
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
�
�
��northwest
�� exits(roomno%,8)=0 �
�
Ȏ �(7) �
�(=  � 1 : t$="There is no possible exit to the north-west."
�2:  � 2 : t$="You can see no way out to the north-west."
�<?  � 3 : t$="You can see no escape route to the north-west."
�F<  � 4 : t$="The direction to the north-west is blocked."
�P>  � 5 : t$="There is no way of leaving to the north-west."
�Z6  � 6 : t$="You can't walk through solid objects."
�dL  � 7 : t$="You're solid, the wall's solid, I don't think it will work."
�n�
�x�add(t$)
���
��� exits(roomno%,8)<>0 �
��roomno%=exits(roomno%,8)
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
��
����up
��� exits(roomno%,9)=0 �
��
Ȏ �(8) �
��3  � 1 : t$="There is no possible exit upwards."
��0  � 2 : t$="You can see no way out upwards."
�7  � 3 : t$="You can see no escape route above you."
�2  � 4 : t$="The direction upwards is blocked."
�8  � 5 : t$="There is no way of leaving by going up."
�",  � 6 : t$="I hardly think you can fly!"
�,H  � 7 : t$="You flap your arms frantically but no progress is made."
�67  � 8 : t$="You haven't quite mastered flight yet."
�@�
�JȎ roomno% �
�TW  � 11 : t$="You try and scramble up the monument, but just slide back down again."
�^�  � 13,279,286,288,289,290,292 : t$="You try to pull yourself up one of the trees, but unfortunately the few branches are high up, so you give up and come back down."
�ht  � 15 : t$="You edge nearer the gates so you can climb up them, but the guard looks menacing so you back away."
�rp  � 39 : t$="You try to pull yourself up the willow tree, but unfortunately you keep on slipping back down."
�|�  � 57,56,55,53,24,14,16,17,18,46,45,44,43,47,65,76,77,78,79,80 : t$="You try scrambling up the fence, but it is just too high to manage."
���
���add(t$)
���
��� exits(roomno%,9)<>0 �
��@� roomno%=147 �add("You leave the maze."):zone%=2:poltime%=�
��roomno%=exits(roomno%,9)
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
��
��
��down
��� exits(roomno%,10)=0 �
�
Ȏ �(8) �
�5  � 1 : t$="There is no possible exit downwards."
�6  � 2 : t$="You can see no way out by going down."
�&7  � 3 : t$="You can see no escape route downwards."
�0/  � 4 : t$="The direction down is blocked."
�::  � 5 : t$="There is no way of leaving by going down."
�Do  � 6 : t$="You scrape at the floor with your fingers, but you decide against it, it will ruin your nails."
�NS  � 7 : t$="Last time I checked, the ground was solid and I think it still is."
�XW  � 8 : t$="No matter how hard you wish, the ground won't open up and swallow you."
�b�
�l�� roomno%=34 t$="You patiently sit at the bottom of the pond for a couple of minutes, but, being the bright lad that you are, realise that there is a lack of oxygen. You return to the surface a little wet."
�v�add(t$)
���
��� exits(roomno%,10)<>0 �
��B� roomno%=126 �add("You enter the maze..."):zone%=3:poltime%=�
��roomno%=exits(roomno%,10)
��E� mapyn%(roomno%)=0 i$="look":�look:mapyn%(roomno%)=1 � �halflook
��wimp%!0=maphan%:�redrawmap
���
���
��
����im
��what$=�i$,4,�(i$)-3)
���specific1
���add(t$)
��
�
���specific1
� 
Ȏ �(5) �
�*=  � 1 : t$="And why do you think that you are "+what$+"?"
�4E  � 2 : t$="That's really interesting, are you really "+what$+"?"
�>6  � 3 : t$="And how long have you been "+what$+"?"
�H1  � 4 : t$="And do you like being "+what$+"?"
�RA  � 5 : t$="I'm so glad that you're "+what$+". Tell me more."
�\�
�f@� what$="gay" � what$="queer" � what$="homosexual" Ȏ �(3) �
�p0  � 1 : t$="Well don't look at me, I'm not."
�zI  � 2 : t$="It's not the time nor the place to discuss those things."
��&  � 3 : t$="Ooh, hush your mouth."
���
��j� what$="happy" � what$="glad" � what$="cheerful" � what$="over the moon" � what$="thrilled" Ȏ �(3) �
��8  � 1 : t$="It's nice to know that someone's happy."
��D  � 2 : t$="It cheers me up knowing that you are "+what$+" too."
��3  � 3 : t$="And what has made you so cheerful?"
���
��s� what$="sad" � what$="upset" � what$="tearful" � what$="crying" � what$="depressed" � what$="fed up" Ȏ �(4) �
��+  � 1 : t$="Don't be so sad, cheer up!"
��,  � 2 : t$="Life's not that bad really."
��3  � 3 : t$="There's nothing to be upset about."
��>  � 4 : t$="Try smiling and everything will be all right."
���
�~� what$="angry" � what$="annoyed" � what$="stroppy" � what$="bad tempered" � what$="badtempered" � what$="moody" Ȏ �(3) �
�*  � 1 : t$="What's put you in a mood?"
�-  � 2 : t$="Why are you so bad-tempered?"
�$@  � 3 : t$="I suggest that you get into a better mood then."
�.�
�8�� what$="sexy" � what$="gorgeous" � what$="lovely" � what$="handsome" � what$="pretty" � what$="beautiful" � what$="clever" � what$="wonderful" � what$="intelligent" � what$="brilliant" � what$="a genius" Ȏ �(4) �
�B5  � 1 : t$="You're "+what$+"? You should see me!"
�L-  � 2 : t$="My goodness, what a boaster."
�V9  � 3 : t$="Stop flattering yourself for one moment."
�`=  � 4 : t$="Sorry to damage your ego, but you are wrong."
�j�
�t�� what$="stupid" � what$="thick" � what$="fat" � what$="an idiot" � what$="idiotic" � what$="senile" � what$="crazy" � what$="mad" � what$="strange" � what$="weird" Ȏ �(5) �
�~)  � 1 : t$="Don't put yourself down."
��#  � 2 : t$="Too right you are."
��.  � 3 : t$="Don't be so hard on yourself."
��2  � 4 : t$="Take a positive look at yourself."
��G  � 5 : t$="I'm sorry, I refuse to believe that you are "+what$+"."
���
���
��
��	��iam
��what$=�i$,6,�(i$)-5)
���specific1
���add(t$)
���
�
�

��itis
�what$=�i$,7,�(i$)-6)
�
Ȏ �(3) �
�(;  � 1 : t$="And why do you think that it is "+what$+"?"
�2C  � 2 : t$="That's really interesting, is it really "+what$+"?"
�<4  � 3 : t$="And how long has it been "+what$+"?"
�F�
�P�add(t$)
�Z�
�d
�n	��its
�xwhat$=�i$,5,�(i$)-4)
��
Ȏ �(3) �
��:  � 1 : t$="And why do you think that it's "+what$+"?"
��C  � 2 : t$="That's really interesting, is it really "+what$+"?"
��4  � 3 : t$="And how long has it been "+what$+"?"
���
���add(t$)
���
��
����itwas
��what$=�i$,8,�(i$)-7)
��
Ȏ �(4) �
��<  � 1 : t$="And why do you think that it was "+what$+"?"
��2  � 2 : t$="Is it true that it was "+what$+"?"
�/  � 3 : t$="When exactly was it "+what$+"?"
�5  � 4 : t$="Are you happy that it was "+what$+"?"
��
�"�add(t$)
�,�
�6
�@��linguist
�J
Ȏ �(6) �
�T*  � 1 : t$="Ooh, are you a foreigner?"
�^*  � 2 : t$="Great, you're a linguist."
�h>  � 3 : t$="My goodness, you're fluent in many languages."
�r2  � 4 : t$="And what is your native language?"
�|>  � 5 : t$="Stop trying to show off your language skills."
��,  � 6 : t$="Stop it, I hate foreigners."
���
���add(t$)
���
��
����single
��� i$="n" �north:�
��� i$="e" �east:�
��� i$="s" �south:�
��� i$="w" �west:�
��� i$="u" �up:�
��� i$="d" �down:�
��� i$="i" �inv:�
�� i$="l" i$="look":�look:�
�� i$="x" �exits:�
�Ȏ �(10) �
�&*  � 1 : t$="Type in something longer."
�01  � 2 : t$="Don't talk in single characters."
�:2  � 3 : t$="Ooh! You use big words don't you?"
�D<  � 4 : t$="It would help if you actually formed words."
�N/  � 5 : t$="Have you just left playschool?"
�X<  � 6 : t$="I'm afraid Sesame Street has just finished."
�b=  � 7 : t$="Is one character supposed to mean something?"
�l+  � 8 : t$="Is this some sort of code?"
�v9  � 9 : t$="That doesn't look like a sentence to me!"
��3  � 10 : t$="Bit of a short sentence isn't it?"
���
���add(t$)
���
��
��
��prob
��
Ȏ �(4) �
��.  � 1 : t$="Nice of you to be so certain."
��,  � 2 : t$="A bit indecisive aren't we?"
��-  � 3 : t$="Can't you make up your mind?"
��%  � 4 : t$="Be sure of yourself!"
���
���add(t$)
��
�
�
��help
� Ȏ �(17) �
�*4  � 1 : t$="What on Earth do you need help for?"
�4,  � 2 : t$="You don't really need help."
�>   � 3 : t$="Do it yourself."
�H$  � 4 : t$="It isn't that hard."
�R   � 5 : t$="Just persevere."
�\!  � 6 : t$="You're hopeless."
�f&  � 7 : t$="It's not that tricky."
�p`  � 8 : t$="Try running up and down your road while eating live frogs and going ""Squawk""."
�z?  � 9 : t$="Inspiration hits you when you least expect it."
��T  � 10 : t$="The Bible offers advice on everything - or so most Christians say."
��  � 11 : t$="Cheat!"
��=  � 12 : t$="Wisdom cannot be given, it has to be earnt."
��T  � 13 : t$="Whack your head against the table edge and you will see the light."
��9  � 14 : t$="Try punching the nearest person to you."
��(  � 15 : t$="Just ask someone else."
��  � 16 : t$="Don't ask me!"
��A  � 17 : t$="How should I know the answers to your problems?"
���
���add(t$)
���
��
����sorry
�
Ȏ �(7) �
�!  � 1 : t$="Don't apologise."
�"  � 2 : t$="Apology accepted."
�$  � 3 : t$="I forgive you."
�.!  � 4 : t$="Sorry? What for?"
�8=  � 5 : t$="It's all right. I won't hold it against you."
�B(  � 6 : t$="Well don't do it again."
�L2  � 7 : t$="No problem, don't worry about it."
�V�
�`�add(t$)
�j�
�t
�~��repeat
��Ȏ �(40) �
��)  � 1 : t$="Stop repeating yourself."
��)  � 2 : t$="Say something different."
��%  � 3 : t$="Change what you say."
��/  � 4 : t$="You're sounding like a parrot."
��"  � 5 : t$="You're boring me."
��%  � 6 : t$="Try and be original."
��/  � 7 : t$="Bit of a limited vocabulary..."
��(  � 8 : t$="You must be mindless..."
��%  � 9 : t$="S H U T   U P  ! ! !"
��1  � 10 : t$="Please say something different."
��,  � 11 : t$="You'll give me a headache."
�!  � 13 : t$="How repetative."
�
3  � 14 : t$="Time you visited a mental asylum."
�  � 15 : t$="...Nut case."
�,  � 16 : t$="Who's got a strait-jacket?"
�(3  � 17 : t$="Time to go to the knacker's yard."
�2"  � 18 : t$="Goo goo gaa gaa?"
�<'  � 19 : t$="B E   Q U I E T ! ! !"
�F  � 20 : t$="Weirdo alert."
�P,  � 21 : t$="Are you feeling all right?"
�Z#  � 22 : t$="Stop saying that."
�d(  � 23 : t$="Is it fun saying that?"
�n1  � 24 : t$="Over and over again... tedious."
�x'  � 25 : t$="Someone, shut him up."
��$  � 26 : t$="Vary what you say."
��/  � 27 : t$="Variety is the spice of life."
��.  � 28 : t$="Tell me something different."
��>  � 29 : t$="No-one cares about that, change the subject."
��-  � 30 : t$="Can someone gag this bloke?"
��)  � 31 : t$="I might commit suicide."
��)  � 32 : t$="You're winding me up..."
��   � 33 : t$="Lord, help me."
��8  � 34 : t$="My Lord, bring sanity upon this world."
��/  � 35 : t$="Are you always so monotonous?"
��(  � 36 : t$="Wibble-wobble flobble."
��1  � 37 : t$="Go back to where you came from."
��6  � 38 : t$="I don't have to listen to this bull."
�0  � 39 : t$="You're sounding like an Amiga."
�+  � 40 : t$="You're making me angry..."
��
�"�add(t$)
�,�
�6
�@
��because
�J
Ȏ �(6) �
�T>  � 1 : t$="I'm afraid I have to disagree with you there."
�^&  � 2 : t$="That's a good reason."
�h-  � 3 : t$="I thoroughly agree with you."
�r1  � 4 : t$="I agree that "+�i$,9,�(i$)-8)+"."
�|7  � 5 : t$="Well, we'll have to agree to disagree."
��/  � 6 : t$="That's not the reason I heard."
���
���add(t$)
���
��
����excite
����add("The man opens the bottle of Penicillin and drops the tablets into the boy's mouth. Within two short hours the boy opens his eyes and looks up. The man screams with elation and turns round to hug you with gratitude.")
�̞�add("'Now the land will no longer be in peril. I, and so many others, owe you everything, including our lives. Thank you doesn't seem enough,' he says.")
�֖�add("You leave the room, going back to wherever you came from, satisfied that you've saved the lives not of one boy, but of millions of people.")
���add("At least until there is a flash of blinding light and you find yourself sucked into the year 2194, but that's a different adventure...")
��renw%=1:�decidepics
���
��
���welsh
�
Ȏ �(3) �
�?  � 1 : t$="I'd prefer it if you didn't mention the Welsh."
�&4  � 2 : t$="Yes, we all know what the Welsh do."
�0=  � 3 : t$="Don't talk about the Welsh while I'm around."
�:�
�D�add(t$)
�N�
�X
�b��gonner
�l
Ȏ �(3) �
�v+  � 1 : t$="Dead people can't do that."
��B  � 2 : t$="You see, feel, hear, smell and taste nothingness."
��.  � 3 : t$="Don't be stupid, you're dead."
���
���add(t$)
���
��
����please
��
Ȏ �(9) �
��2  � 1 : t$="At least you know the magic word."
��  � 2 : t$="Please what?"
��  � 3 : t$="Stop pleading."
��  � 4 : t$="And beg!"
��$  � 5 : t$="You sound pathetic."
�  � 6 : t$="Kiss my feet."
�;  � 7,8,9 : t$="Say 'Pretty please with sugar on top'."
��
� �add(t$)
�*�
�4
�>��sucker
�H
Ȏ �(5) �
�R,  � 1 : t$="Will you do whatever I say?"
�\.  � 2 : t$="Can't you think for yourself?"
�f8  � 3,4,5 : t$="You've the decisiveness of a sheep."
�p�
�z�add(t$)
���
��
��
��sick
��� computer%<5 computer%+=1
��� computer%=5 Ȏ �(5) �
��*  � 1 : t$="Bluuuugghhh. Told you so."
��+  � 2 : t$="Sppllaaattt. I warned you."
��>  � 3 : t$="Shlluuugghh. I'm in a big mess thanks to you."
��@  � 4 : t$="Glerrrgghhh. I hope you're ashamed of yourself."
��1  � 5 : t$="Huurrrgghhh. This is your fault."
���
��� computer%<5 Ȏ �(5) �
��@  � 1 : t$="Don't talk about other computers, or I'll puke."
�R  � 2 : t$="I don't want to hear about rubbish computers, or I might be sick."
�I  � 3 : t$="Don't talk about those.. things, or I might make a mess."
�F  � 4 : t$="Eerrrr, other computers, I feel my lunch coming up..."
�$^  � 5 : t$="Don't talk about those things, have you no respect? I feel a little queezy..."
�.�
�8�add(t$)
�B�
�L
�V��violence
�`
Ȏ �(4) �
�j4  � 1 : t$="Don't be violent, you may get hurt."
�t7  � 2 : t$="Violence doesn't pay, well not always."
�~1  � 3 : t$="I blame it on your upbringing..."
��$  � 4 : t$="Control your anger."
���
��Ȏ roomno% �
���� 1 : t$="'You asking for a fight?, eh?' shouts the man behind the Amiga stall. I think that was a mistake, Amigas are even worse down your throat...":nifok%=1:�decidepics
���� 15,305 : t$="Woops. The guard frowns, pulls out a two metre long machine gun and promptly blows your head off.":nifok%=1:�decidepics
���� 29 : t$="The baker looks extremely angry, he suddenly brings out his rolling pin and whacks your head until it's the thickness of a pancake.":nifok%=1:�decidepics
��h� 37 : t$="The vicar looks at you calmly and tells you that violence is not allowed in God's house."
�΍� 50 : t$="The people turn around to you and their mood changes instantly. Your head ends up in 20 separate pieces.":nifok%=1:�decidepics
�ع� 52 : �add("The man rolls up his sleeves, grabs you and throws you out into the street."):�add(""):roomno%=63:�halflook:wimp%!0=maphan%:�redrawmap:t$="You land on your bum - ouch!"
���� 64 : �add("The bar-maid rolls up her sleeves, showing her enormous biceps, picks you up and throws you out into the street."):�add(""):roomno%=63:�halflook:wimp%!0=maphan%:�redrawmap:t$="You land on your bum - ouch!"
��� 69 : t$="The old man puts his hand under the counter, pulls out a machine gun and pumps you full of lead.":nifok%=1:�decidepics
��]� 72 : t$="The wizard whispers a few magical words and you feel relaxed within yourself."
�B� 73 : t$="The alchemist asks you to calm down and you do so."
�
o� 76 : t$="The tramp pulls out a knife from his jumper and flicks it into your chest.":nifok%=1:�decidepics
��� 78 : � fire%>0 t$="You should know by now that little kids are dangerous. He pulls out an automatic rifle and fills you with bullets.":nifok%=1:�decidepics
�g� 82,310,250,301,302,249,266 : t$="The woman gives you a stern look and you stop being so violent."
�(U� 84 : t$="The old man turns round to you and asks you not to be so destructive."
�24� 85 : t$="You are too far away from the guard."
�<�� 312,248,281 : t$="The man looks at you calmly, pulls out a machine gun and turns you into swiss cheese.":nifok%=1:�decidepics
�FA� 226 : t$="The little girl starts screaming uncontrollably."
�PQ� 253 : t$="As you are about to hit her, the old woman vomits into the sofa."
�Z�
�d/� police%(1)=roomno% � police%(2)=roomno% �
�n�t$="'Oh!, you're not a new recruit after all! You're that prisoner!' the policeman cries. He whacks you over the head with his truncheon, maybe a little too hard. Blackness."
�xnifok%=1:�decidepics
���
���add(t$)
���
��
��	��luv
��
Ȏ �(4) �
��&  � 1 : t$="The feeling's mutual."
��   � 2 : t$="I love you too."
��+  � 3 : t$="We'd make a lovely couple."
��:  � 4 : t$="Have I ever told you how pretty you look?"
���
���add(t$)
���
�
�	��say
�t$="'"+�i$,5,�(i$)-4)+"'. "
�"Ȏ roomno% �
�,&� 1 : t$+="The people ignore you."
�6+� 15,305 : t$+="The guard ignores you."
�@0� 29 : t$+="The baker looks at you blankly."
�J2� 30 : t$+="The butcher looks at you blankly."
�Tf� 37,50,52,64,72,73,76,81,82,84,310,312,266,248,249,250,253,301,302,281,226:t$+="You are ignored."
�^/� 78 : � fire%>0 t$+="The kid ignores you."
�hZ� 85 : � drugged%=0 t$+="The guard ignores you." � t$+="The guard stirs in his sleep."
�r : t$+="No-one hears you."
�|�
��W� roomno%=police%(1) � roomno%=police%(2) t$+="The policeman looks at you blankly."
���add(t$)
���
��
����print
���add(""+�i$,7,�(i$)-6)+".")
���
��
��
��tell
��-t$="There is no-one to tell anything to."
��Ȏ roomno% �
��%� 1 : t$="The people ignore you."
��*� 15,305 : t$="The guard ignores you."
�/� 29 : t$="The baker looks at you blankly."
�1� 30 : t$="The butcher looks at you blankly."
�e� 37,50,52,64,72,73,76,81,82,84,310,312,266,248,249,250,253,301,302,281,266:t$="You are ignored."
�&.� 78 : � fire%>0 t$="The kid ignores you."
�0� 85 : Ȏ drugged% �
�:.� 0 : t$="The guard looks at you blankly."
�D,� 1 : t$="The guard stirs in his sleep."
�N�
�X�
�bV� police%(1)=roomno% � police%(2)=roomno% t$="The policeman looks at you blankly."
�l�add(t$)
�v�
��
����hello
��
Ȏ �(7) �
��"  � 1 : t$="Gooday, my friend"
��!  � 2 : t$="Bonjour, mon ami"
��   � 3 : t$="Yo, my main man"
��  � 4 : t$="Greetings"
��/  � 5 : t$="That's the greetings over with"
��(  � 6 : t$="Hello, nice to meet you"
��%  � 7 : t$="Hi, great to see you"
���
��
Ȏ �(6) �
��&  � 1 : t$+=", your quest awaits."
�  � 2 : t$+="."
�'  � 3 : t$+=", tell me everything."
�  � 4 : t$+=", talk to me."
� 1  � 5 : t$+=", hope you enjoy the adventure."
�*.  � 6 : t$+=", how are you feeling today?"
�4�
�>�add(t$)
�H�
�R
�\��tense
�f
Ȏ �(6) �
�p/  � 1 : t$="Feeling a little tense are we?"
�z&  � 2 : t$="What's upsetting you?"
��:  � 3 : t$="I notice that you're a little upset. Why?"
��"  � 4 : t$="Don't be annoyed."
��-  � 5 : t$="What's put you in this mood?"
��(  � 6 : t$="No need to get stroppy."
���
���add(t$)
���
��
��	��bye
��
Ȏ �(6) �
��  � 1 : t$="Going so soon?"
��   � 2 : t$="Don't leave me."
��%  � 3 : t$="Missing you already."
�!  � 4 : t$="Have a nice day."
�  � 5 : t$="Au revoir."
�-  � 6 : t$="I hope you enjoyed yourself."
�$�
�.�add(t$)
�8�
�B
�L��thank
�V
Ȏ �(5) �
�`8  � 1 : t$="It's good to hear that you're grateful."
�j  � 2 : t$="No problem."
�t  � 3 : t$="That's ok."
�~  � 4 : t$="Any time."
��,  � 5 : t$="My goodness, you're polite."
���
���add(t$)
���
��
����hling
��
Ȏ �(4) �
��/  � 1 : t$="What a lovely foreign welcome!"
��>  � 2 : t$="Yes, and hello to you too, my foreign friend."
��$  � 3 : t$="Welcome to Britain."
��2  � 4 : t$="I hope you enjoy your visit here."
���
��add(t$)
�
�
�
���gling
�(
Ȏ �(5) �
�24  � 1 : t$="Oh, my foreign friend, don't leave."
�<>  � 2 : t$="I'm sure you don't really want to go so soon."
�F*  � 3 : t$="Do you really have to go?"
�P%  � 4 : t$="Missing you already!"
�Z$  � 5 : t$="Au revoir, mon ami."
�d�
�n�add(t$)
�x�
��
����no
��
Ȏ �(5) �
��&  � 1 : t$="Don't be so negative."
��4  � 2 : t$="Why don't you say yes for a change?"
��F  � 3 : t$="I can say 'no' in French too - 'Non' (I'm so clever)."
��L  � 4 : t$="Can you say 'no' in German? (Try nein if you're too thick)."
��:  � 5 : t$="Is 'no' your favourite word or something?"
���
���add(t$)
���
��
��	��yes
�
Ȏ �(5) �
�  � 1 : t$="Jolly good."
�$  � 2 : t$="I'm glad you agree."
�"  � 3 : t$="Oui, oui, oui."
�,  � 4 : t$="Perfick."
�65  � 5 : t$="I'm so happy that you just said yes."
�@�
�J�add(t$)
�T�
�^
�h��lastresort
�rȎ �(25) �
�|.  � 1 : t$="Try to talk sense if you can."
��+  � 2 : t$="Sorry, I don't understand."
��  � 3 : t$="Pardon?"
��)  � 4 : t$="Are you talking english?"
��0  � 5 : t$="Just repeat that one more time."
��%  � 6 : t$="I do not comprehend."
��"  � 7 : t$="Hmm, same to you."
��%  � 8 : t$="Talk sense will you?"
��0  � 9 : t$="Try and say something sensible."
��  � 10 : t$="Eh?"
��  � 11 : t$="What?"
��  � 12 : t$="Try me again."
��  � 13 : t$="Yes, quite."
��#  � 14 : t$="Whatever you say."
�?  � 15 : t$="I'm sorry, are we speaking the same language?"
�0  � 16 : t$="You've seemed to have lost me."
�  � 17 : t$="Fascinating."
�&  � 18 : t$="Hey?"
�0  � 19 : t$="And again?"
�:6  � 20 : t$="Try and translate that for me first."
�D  � 21 : t$="Huh?"
�N0  � 22 : t$="Did you ever get an education?"
�X=  � 23 : t$="We don't seem to be communicating too well."
�b&  � 24 : t$="Je ne comprends pas."
�l6  � 25 : t$="Sorry, I'm too simple to understand."
�v�
���add(t$)
���
��
����Ilove
��
Ȏ �(4) �
��<  � 1 : t$="And why do you think I have fallen in love?"
��h  � 2 : person$=�i$,�i$,"you "+love$)+�(love$)+5,�(i$)-(�(love$)+5)):t$="Who is "+person$+" anyway?"
��%  � 3 : t$="I know I'm in luv..."
��+  � 4 : t$="It's lovely being in love."
���
���add(t$)
���
��
�
��Youlove
�
Ȏ �(4) �
�>  � 1 : t$="And why do you think you have fallen in love?"
� -  � 2 : t$="Is this pure, romantic love?"
�*f  � 3 : person$=�i$,�i$,"i "+love$)+�(love$)+3,�(i$)-(�(love$)+3)):t$="Who is "+person$+" anyway?"
�44  � 4 : t$="It's lovely being in love isn't it?"
�>�
�H�add(t$)
�R�
�\
�f
��love
�p
Ȏ �(4) �
�z  � 1 : t$="Who loves who?"
��!  � 2 : t$="What about love?"
��0  � 3 : t$="Isn't love just woooooonderful!"
��   � 4 : t$="I love romance."
���
���add(t$)
���
��
��
��naughty
��
Ȏ �(5) �
��,  � 1 : t$="Oooh, my favourite subject."
��  � 2 : t$="Oooh, raunchy."
��/  � 3 : t$="Give me all the juicy details."
��2  � 4 : t$="What's the bet you're under-aged?"
�  � 5 : t$="Tell me more!"
��
��add(t$)
�$�
�.
�8��notspeak
�BȎ �(10) �
�L7  � 1 : t$="La la la la laa la.  I can't hear you."
�V  � 2 : t$="..."
�`  � 3 : t$="Hmm."
�j<  � 4 : t$="You're wasting your time, I can't hear you."
�t#  � 5 : t$="Did someone speak?"
�~'  � 6 : t$="Did you say something?"
��'  � 7 : t$="Have you not gone yet?"
��  � 8 : t$="Tiresome..."
��  � 9 : t$="I'm bored."
��:  � 10 : t$="Isn't there someone else who wants a go?"
���
���add(t$)
���
��
����swear
��
swear%+=1
��_� swear%=5 �add("I warned you, I'm not speaking to any foul-mouthed hooligan, so there."):�
��Ȏ �(12) �
�,  � 1 : t$="Don't talk to me like that!"
�
A  � 2 : t$="Water down your language a bit, or I'll go away."
�9  � 3 : t$="I'm warning you, don't speak so crudely."
�P  � 4 : t$="So you want to talk dirty do you? Well I'm not going to listen."
�(!  � 5 : t$="How infantile..."
�21  � 6 : t$="My goodness, you're so childish."
�<2  � 7 : t$="It isn't big and it isn't clever."
�FP  � 8 : t$="What would your parents do if they found you talking like this?"
�P;  � 9 : t$="Does speaking like this make you feel big?"
�ZB  � 10 : t$="I won't listen to you if you carry on like this."
�d  � 11 : t$="So juvenile.."
�n;  � 12 : t$="Is swearing the limit of your vocabulary?"
�x�
���add(t$)
���
��
��
��nothing
��Ȏ �(15) �
��.  � 1 : t$="Why aren't you talking to me?"
��%  � 2 : t$="Cat got your tongue?"
��2  � 3 : t$="All right, don't talk to me then."
��)  � 4 : t$="Please, don't be afraid."
��1  � 5 : t$="Just speak up a little will you?"
��  � 6 : t$="Talk to me."
��)  � 7 : t$="Are you a shy type then?"
��)  � 8 : t$="Go on, you can trust me."
�  � 9 : t$="Speak up, boy."
�3  � 10 : t$="Turning into a vegetable are you?"
�,  � 11 : t$="You-hoo, anyone out there?"
�"6  � 12 : t$="No need to sulk, tell me everything."
�,*  � 13 : t$="Boy, you're interesting."
�60  � 14 : t$="You've got a lot to say today."
�@3  � 15 : t$="You're a might quiet, are you ok?"
�J�
�T�
�^
�h��noneed
�r
Ȏ �(5) �
�|.  � 1 : t$="There's no need - you've won!"
��P  � 2 : t$="Don't bother doing extra work when you've completed your quest."
��4  � 3 : t$="You have finished the game already."
��-  � 4 : t$="Nothing more has to be done."
��,  � 5 : t$="Don't be such a workaholic!"
���
���add(t$)
���
��
��
��wait
��Ȏ �(17) �
��  � 1 : t$="Calling..."
��#  � 2 : t$="Anybody out there?"
��:  � 3 : t$="How long do I have to talk to myself for?"
�#  � 4 : t$="I'm getting bored."
�%  � 5 : t$="I need some company."
�!  � 6 : t$="Don't ignore me."
�&!  � 7 : t$="Hey, talk to me."
�04  � 8 : t$="You haven't fallen asleep have you?"
�:#  � 9 : t$="Type something in."
�D5  � 10 : t$="Stuck for something to say are you?"
�N-  � 11 : t$="Wakey wakey rise and shine."
�X$  � 12 : t$="Oi, I'm over here."
�b+  � 13 : t$="You can see me can't you?"
�l:  � 14 : t$="Are we in a library? It's awfully quiet."
�v,  � 15 : t$="Don't send me to coventry."
��(  � 16 : t$="I need some attention."
��4  � 17 : � �(7):t$="BEEP, BEEP, Wake up!":� �(7)
���
���add(t$)
���
��
��X� vkdj,fuds,vklw,ixfn,eroorfn,gdpq,zdqnhu,glfnkhdg,edvwdug,wzdw,fxqw,slvv,exjjhu,vh{
��.� 76,75,65,64,52,50,47,43,44,45,46,0,0,0,0
��.� 77,74,66,63,51,49,48,42,39,40,41,0,0,0,0
��/� 78,73,67,62,33,32,31,28,36,37,38,0,84,0,0
��.� 79,72,68,61,54,21,11,12,13,34,35,0,0,0,0
��,� 80,71,69,60,29,20,1,2,3,4,5,0,22,23,83
��-� 81,70,58,59,30,19,6,7,8,9,10,0,25,26,27
�.� 82,57,56,55,53,24,14,15,16,17,18,0,0,0,0
�5� 138,139,140,141,142,143,144,0,0,145,146,0,0,0,0
�9� 137,136,135,134,133,132,131,130,129,128,127,0,0,0,0
� 5� 118,119,120,121,122,123,124,0,0,125,126,0,0,0,0
�*7� 0,117,116,115,114,113,112,111,110,109,108,0,0,0,0
�45� 0,98,99,100,101,102,103,104,105,106,107,0,0,0,0
�>&� 85,97,0,0,0,0,0,0,0,96,0,0,0,0,0
�H-� 0,86,87,88,89,90,91,92,93,94,95,0,0,0,0
�R5� 0,183,182,181,180,179,178,177,176,175,0,0,0,0,0
�\9� 164,165,166,167,168,169,170,171,172,173,174,0,0,0,0
�f9� 163,162,161,160,159,158,157,156,155,154,153,0,0,0,0
�p9� 188,187,186,185,184,147,148,149,150,151,152,0,0,0,0
�z9� 189,190,191,192,193,194,195,196,197,198,199,0,0,0,0
��9� 210,209,208,207,206,205,204,203,202,201,200,0,0,0,0
��5� 0,211,212,213,214,215,216,217,218,219,0,0,0,0,0
��A� 226,227,228,262,263,266,267,268,281,283,284,285,288,289,290
��A� 225,229,230,261,264,265,260,269,280,282,294,286,287,291,292
��=� 224,312,231,256,257,258,259,270,279,296,295,297,0,293,0
��;� 222,221,232,255,254,253,252,271,278,300,299,298,0,0,0
��;� 223,220,233,248,249,250,251,272,277,301,302,303,0,0,0
��=� 236,235,234,247,246,245,244,273,276,309,304,305,0,308,0
��=� 237,238,239,240,241,242,243,274,275,310,311,306,0,307,0
�
00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 0f f4 20 66 6f  72 20 21 47 6f 72 6d 0d  |..... for !Gorm.|
00000020  00 1e 22 56 65 72 73 69  6f 6e 24 3d 22 31 2e 34  |.."Version$="1.4|
00000030  30 20 28 32 34 74 68 20  4a 75 6e 65 20 39 34 29  |0 (24th June 94)|
00000040  22 0d 00 28 11 f4 20 43  68 72 69 73 20 41 6c 6c  |"..(.. Chris All|
00000050  65 6e 0d 00 32 18 f4 20  a9 20 41 72 63 68 69 6d  |en..2.. . Archim|
00000060  65 64 65 73 20 57 6f 72  6c 64 0d 00 3c 04 0d 00  |edes World..<...|
00000070  46 2e f4 20 20 20 20 20  22 54 68 6f 75 20 6e 6f  |F..     "Thou no|
00000080  73 65 79 20 75 73 65 72  73 20 77 69 74 68 20 70  |sey users with p|
00000090  65 65 72 69 6e 67 20 65  79 65 73 2c 0d 00 50 2b  |eering eyes,..P+|
000000a0  f4 20 20 20 20 20 20 52  65 61 64 65 72 73 20 6f  |.      Readers o|
000000b0  66 20 74 68 69 73 20 66  69 6c 65 2c 20 49 20 64  |f this file, I d|
000000c0  65 73 70 69 73 65 2c 0d  00 5a 31 f4 20 20 20 20  |espise,..Z1.    |
000000d0  20 20 49 27 6c 6c 20 63  72 65 61 74 65 20 61 20  |  I'll create a |
000000e0  63 75 72 73 65 20 6f 66  20 66 65 61 72 20 61 6e  |curse of fear an|
000000f0  64 20 64 72 65 61 64 2c  0d 00 64 2f f4 20 20 20  |d dread,..d/.   |
00000100  20 20 20 48 61 63 6b 65  72 73 2c 20 49 20 64 6f  |   Hackers, I do|
00000110  20 6e 6f 74 20 6c 69 6b  65 2c 22 20 43 68 72 69  | not like," Chri|
00000120  73 20 73 61 69 64 2e 0d  00 6e 24 f4 20 20 20 20  |s said...n$.    |
00000130  20 22 4c 65 74 20 63 68  61 6f 73 20 66 72 65 65  | "Let chaos free|
00000140  20 69 6e 20 74 68 65 20  4f 53 2c 0d 00 78 28 f4  | in the OS,..x(.|
00000150  20 20 20 20 20 20 49 20  73 68 61 6c 6c 20 66 6f  |      I shall fo|
00000160  72 6d 20 61 20 66 65 61  72 73 6f 6d 65 20 6d 65  |rm a fearsome me|
00000170  73 73 2c 0d 00 82 26 f4  20 20 20 20 20 20 46 72  |ss,...&.      Fr|
00000180  6f 6d 20 76 61 72 69 61  62 6c 65 73 20 74 6f 20  |om variables to |
00000190  43 4d 4f 53 20 52 41 4d  2c 0d 00 8c 23 f4 20 20  |CMOS RAM,...#.  |
000001a0  20 20 20 20 49 74 20 73  68 61 6c 6c 20 61 66 66  |    It shall aff|
000001b0  65 63 74 20 61 6e 79 20  6d 61 6e 2c 0d 00 96 2b  |ect any man,...+|
000001c0  f4 20 20 20 20 20 20 57  68 6f 20 64 61 72 65 73  |.      Who dares|
000001d0  20 74 6f 20 72 65 61 64  20 6d 79 20 47 6f 72 6d  | to read my Gorm|
000001e0  20 66 69 6c 65 73 2c 0d  00 a0 29 f4 20 20 20 20  | files,...).    |
000001f0  20 20 42 65 20 77 61 72  6e 65 64 2c 20 66 6f 6f  |  Be warned, foo|
00000200  6c 69 73 68 20 6a 75 76  65 6e 69 6c 65 73 2e 22  |lish juveniles."|
00000210  0d 00 aa 04 0d 00 b4 d9  6f 70 65 6e 25 3d 30 3a  |........open%=0:|
00000220  6f 6c 64 74 69 6d 65 25  3d 91 3a 61 63 74 69 76  |oldtime%=.:activ|
00000230  65 25 3d 2d 31 3a 73 77  65 61 72 25 3d 30 3a 63  |e%=-1:swear%=0:c|
00000240  6f 6d 70 75 74 65 72 25  3d 30 3a 6e 6f 74 69 6d  |omputer%=0:notim|
00000250  65 73 25 3d 30 3a 6f 6c  64 77 6f 72 64 24 3d 22  |es%=0:oldword$="|
00000260  22 3a 72 6f 6f 6d 6e 6f  25 3d 31 3a 73 6c 65 65  |":roomno%=1:slee|
00000270  70 25 3d 30 3a 73 6c 65  65 70 6f 6c 64 74 69 6d  |p%=0:sleepoldtim|
00000280  65 25 3d 91 3a 63 75 72  72 65 6e 74 70 69 63 24  |e%=.:currentpic$|
00000290  3d 22 31 22 3a 74 6f 74  61 6c 72 6f 6f 6d 73 25  |="1":totalrooms%|
000002a0  3d 33 31 32 3a 61 6c 74  65 72 65 64 25 3d 30 3a  |=312:altered%=0:|
000002b0  77 72 69 74 74 65 6e 25  3d 30 3a 70 69 63 73 69  |written%=0:picsi|
000002c0  7a 65 25 3d 34 36 34 30  30 30 3a 68 65 61 70 65  |ze%=464000:heape|
000002d0  72 72 6f 72 25 3d 30 3a  66 6f 6e 74 65 72 72 6f  |rror%=0:fonterro|
000002e0  72 25 3d 30 3a 63 72 69  65 72 25 3d 31 0d 00 be  |r%=0:crier%=1...|
000002f0  cb 6e 6f 7a 25 3d 34 3a  7a 6f 6e 65 25 3d 31 3a  |.noz%=4:zone%=1:|
00000300  6e 69 66 6f 6b 25 3d 30  3a 73 61 76 65 67 74 25  |nifok%=0:savegt%|
00000310  3d 31 3a 77 68 69 7a 25  3d 30 3a 70 61 6d 70 25  |=1:whiz%=0:pamp%|
00000320  3d 30 3a 64 75 67 25 3d  30 3a 6d 6f 75 6c 64 25  |=0:dug%=0:mould%|
00000330  3d 30 3a 66 69 72 65 25  3d 31 3a 66 69 72 65 74  |=0:fire%=1:firet|
00000340  69 6d 65 25 3d 91 3a 73  75 69 74 63 61 73 65 25  |ime%=.:suitcase%|
00000350  3d 30 3a 6d 61 70 73 69  7a 65 25 3d 31 30 35 3a  |=0:mapsize%=105:|
00000360  6d 61 70 77 69 64 74 68  25 3d 31 35 3a 73 68 61  |mapwidth%=15:sha|
00000370  64 65 64 25 3d 30 3a 64  72 75 67 67 65 64 25 3d  |ded%=0:drugged%=|
00000380  30 3a 70 6f 6c 74 69 6d  65 25 3d 91 3a 74 72 61  |0:poltime%=.:tra|
00000390  70 70 65 64 25 3d 30 3a  74 72 61 70 70 65 64 74  |pped%=0:trappedt|
000003a0  69 6d 65 25 3d 91 3a 69  6e 6a 75 72 65 25 3d 30  |ime%=.:injure%=0|
000003b0  3a 6e 62 74 6d 25 3d 30  0d 00 c8 3b 72 65 6e 77  |:nbtm%=0...;renw|
000003c0  25 3d 30 3a 64 75 67 67  65 64 25 3d 30 3a 69 6c  |%=0:dugged%=0:il|
000003d0  6c 25 3d 30 3a 6d 65 64  69 75 6d 31 25 3d 30 3a  |l%=0:medium1%=0:|
000003e0  6d 65 64 69 75 6d 32 25  3d 30 3a 70 61 79 65 64  |medium2%=0:payed|
000003f0  25 3d 30 0d 00 d2 32 de  20 70 6f 6c 69 63 65 25  |%=0...2. police%|
00000400  28 33 29 2c 20 70 6f 6c  64 69 72 25 28 33 29 2c  |(3), poldir%(3),|
00000410  20 62 75 66 66 65 72 25  20 36 34 2c 20 69 63 6f  | buffer% 64, ico|
00000420  6e 24 28 34 29 0d 00 dc  57 70 6f 6c 69 63 65 25  |n$(4)...Wpolice%|
00000430  28 31 29 3d 31 30 37 3a  70 6f 6c 64 69 72 25 28  |(1)=107:poldir%(|
00000440  31 29 3d 34 3a 70 6f 6c  69 63 65 25 28 32 29 3d  |1)=4:police%(2)=|
00000450  31 34 33 3a 70 6f 6c 64  69 72 25 28 32 29 3d 34  |143:poldir%(2)=4|
00000460  3a 70 6f 6c 69 63 65 25  28 33 29 3d 32 30 36 3a  |:police%(3)=206:|
00000470  70 6f 6c 64 69 72 25 28  33 29 3d 31 0d 00 e6 93  |poldir%(3)=1....|
00000480  de 20 77 69 6d 70 25 20  35 30 30 30 2c 20 61 64  |. wimp% 5000, ad|
00000490  76 65 6e 74 25 20 31 35  2c 20 73 70 72 69 74 65  |vent% 15, sprite|
000004a0  25 20 34 32 30 30 30 2c  20 6d 65 6e 75 25 20 35  |% 42000, menu% 5|
000004b0  30 30 2c 20 69 6e 66 6f  25 20 32 30 30 2c 20 67  |00, info% 200, g|
000004c0  72 65 65 74 25 20 36 30  2c 20 73 61 76 65 72 25  |reet% 60, saver%|
000004d0  20 34 30 30 2c 20 75 73  65 72 25 20 35 30 32 2c  | 400, user% 502,|
000004e0  20 71 75 65 73 74 24 28  31 31 29 2c 20 69 6e 74  | quest$(11), int|
000004f0  65 72 25 20 36 30 30 2c  20 70 6f 73 69 25 20 32  |er% 600, posi% 2|
00000500  30 30 2c 20 6d 65 73 73  67 65 25 20 32 35 30 0d  |00, messge% 250.|
00000510  00 f0 3b de 20 64 65 66  61 75 6c 74 31 24 28 74  |..;. default1$(t|
00000520  6f 74 61 6c 72 6f 6f 6d  73 25 2c 31 30 29 2c 20  |otalrooms%,10), |
00000530  64 65 66 61 75 6c 74 32  24 28 36 29 2c 20 64 65  |default2$(6), de|
00000540  66 61 75 6c 74 33 25 28  37 29 0d 00 fa c4 de 20  |fault3%(7)..... |
00000550  72 6f 6f 6d 73 24 28 74  6f 74 61 6c 72 6f 6f 6d  |rooms$(totalroom|
00000560  73 25 2c 39 29 2c 20 65  78 69 74 73 28 74 6f 74  |s%,9), exits(tot|
00000570  61 6c 72 6f 6f 6d 73 25  2c 31 30 29 2c 20 6f 62  |alrooms%,10), ob|
00000580  6a 65 63 74 73 24 28 74  6f 74 61 6c 72 6f 6f 6d  |jects$(totalroom|
00000590  73 25 2c 31 30 29 2c 20  6f 77 6e 73 24 28 31 30  |s%,10), owns$(10|
000005a0  29 2c 20 61 62 62 72 65  76 24 28 74 6f 74 61 6c  |), abbrev$(total|
000005b0  72 6f 6f 6d 73 25 2c 32  29 2c 20 6d 70 64 74 25  |rooms%,2), mpdt%|
000005c0  28 6e 6f 7a 25 2c 6d 61  70 73 69 7a 65 25 29 2c  |(noz%,mapsize%),|
000005d0  20 6d 61 70 79 6e 25 28  74 6f 74 61 6c 72 6f 6f  | mapyn%(totalroo|
000005e0  6d 73 25 29 2c 20 72 65  6e 74 72 79 24 28 74 6f  |ms%), rentry$(to|
000005f0  74 61 6c 72 6f 6f 6d 73  25 29 2c 20 74 68 65 6e  |talrooms%), then|
00000600  25 28 31 30 29 2c 20 65  63 24 28 31 34 29 0d 01  |%(10), ec$(14)..|
00000610  04 20 73 70 72 69 74 65  25 21 30 3d 34 32 30 30  |. sprite%!0=4200|
00000620  30 3a 73 70 72 69 74 65  25 21 38 3d 31 36 0d 01  |0:sprite%!8=16..|
00000630  0e 21 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.!.. "OS_SpriteO|
00000640  70 22 2c 26 31 30 39 2c  73 70 72 69 74 65 25 0d  |p",&109,sprite%.|
00000650  01 18 37 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..7.. "OS_Sprite|
00000660  4f 70 22 2c 26 31 30 41  2c 73 70 72 69 74 65 25  |Op",&10A,sprite%|
00000670  2c 22 3c 47 6f 72 6d 24  44 69 72 3e 2e 21 53 70  |,"<Gorm$Dir>.!Sp|
00000680  72 69 74 65 73 22 0d 01  22 2d c8 99 20 26 34 30  |rites".."-.. &40|
00000690  30 43 30 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |0C0,200,&4B53415|
000006a0  34 2c 22 47 6f 72 6d 22  20 b8 20 2c 61 70 70 68  |4,"Gorm" . ,apph|
000006b0  61 6e 25 0d 01 2c 25 74  65 6d 70 6c 61 74 65 73  |an%..,%templates|
000006c0  24 3d 22 3c 47 6f 72 6d  24 44 69 72 3e 2e 54 65  |$="<Gorm$Dir>.Te|
000006d0  6d 70 6c 61 74 65 73 22  0d 01 36 4a c8 99 20 22  |mplates"..6J.. "|
000006e0  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 22  |OS_ReadVarVal","|
000006f0  47 6f 72 6d 24 33 44 22  2c 62 75 66 66 65 72 25  |Gorm$3D",buffer%|
00000700  2c 32 35 36 20 b8 2c 2c  6c 65 6e 67 74 68 25 3a  |,256 .,,length%:|
00000710  62 75 66 66 65 72 25 3f  6c 65 6e 67 74 68 25 3d  |buffer%?length%=|
00000720  31 33 0d 01 40 37 e7 20  24 62 75 66 66 65 72 25  |13..@7. $buffer%|
00000730  3d 22 59 65 73 22 20 74  65 6d 70 6c 61 74 65 73  |="Yes" templates|
00000740  24 3d 22 3c 47 6f 72 6d  24 44 69 72 3e 2e 54 65  |$="<Gorm$Dir>.Te|
00000750  6d 70 6c 61 74 65 33 44  22 0d 01 4a 14 ff 22 55  |mplate3D"..J.."U|
00000760  6e 73 65 74 20 47 6f 72  6d 24 33 44 22 0d 01 54  |nset Gorm$3D"..T|
00000770  19 c8 99 20 26 34 30 30  44 39 2c 2c 74 65 6d 70  |... &400D9,,temp|
00000780  6c 61 74 65 73 24 0d 01  5e 14 77 69 6d 70 25 21  |lates$..^.wimp%!|
00000790  36 34 3d 73 70 72 69 74  65 25 0d 01 68 35 c8 99  |64=sprite%..h5..|
000007a0  20 26 34 30 30 44 42 2c  2c 77 69 6d 70 25 2c 67  | &400DB,,wimp%,g|
000007b0  72 65 65 74 25 2c 67 72  65 65 74 25 2b 36 30 2c  |reet%,greet%+60,|
000007c0  2d 31 2c 22 67 72 65 65  74 69 6e 67 22 2c 30 0d  |-1,"greeting",0.|
000007d0  01 72 20 c8 99 20 26 34  30 30 43 31 2c 2c 77 69  |.r .. &400C1,,wi|
000007e0  6d 70 25 20 b8 20 67 72  65 65 74 68 61 6e 25 0d  |mp% . greethan%.|
000007f0  01 7c 2d c8 99 20 22 58  4f 53 5f 52 65 61 64 4d  |.|-.. "XOS_ReadM|
00000800  6f 64 65 56 61 72 69 61  62 6c 65 22 2c eb 2c 31  |odeVariable",.,1|
00000810  31 20 b8 20 2c 2c 77 69  64 74 68 25 0d 01 86 2e  |1 . ,,width%....|
00000820  c8 99 20 22 58 4f 53 5f  52 65 61 64 4d 6f 64 65  |.. "XOS_ReadMode|
00000830  56 61 72 69 61 62 6c 65  22 2c eb 2c 31 32 20 b8  |Variable",.,12 .|
00000840  20 2c 2c 68 65 69 67 68  74 25 0d 01 90 2d c8 99  | ,,height%...-..|
00000850  20 22 58 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  | "XOS_ReadModeVa|
00000860  72 69 61 62 6c 65 22 2c  eb 2c 34 20 b8 20 2c 2c  |riable",.,4 . ,,|
00000870  78 77 69 64 74 68 25 0d  01 9a 2d c8 99 20 22 58  |xwidth%...-.. "X|
00000880  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000890  62 6c 65 22 2c eb 2c 35  20 b8 20 2c 2c 79 77 69  |ble",.,5 . ,,ywi|
000008a0  64 74 68 25 0d 01 a4 31  77 69 64 74 68 25 3d 77  |dth%...1width%=w|
000008b0  69 64 74 68 25 2a 78 77  69 64 74 68 25 3a 68 65  |idth%*xwidth%:he|
000008c0  69 67 68 74 25 3d 68 65  69 67 68 74 25 2a 79 77  |ight%=height%*yw|
000008d0  69 64 74 68 25 0d 01 ae  ab 77 69 6d 70 25 21 30  |idth%....wimp%!0|
000008e0  3d 67 72 65 65 74 68 61  6e 25 3a c8 99 22 57 69  |=greethan%:.."Wi|
000008f0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000900  65 22 2c 2c 77 69 6d 70  25 3a 77 69 6d 70 25 21  |e",,wimp%:wimp%!|
00000910  34 3d 77 69 64 74 68 25  2d 34 32 37 3a 77 69 6d  |4=width%-427:wim|
00000920  70 25 21 38 3d 68 65 69  67 68 74 25 2d 32 38 36  |p%!8=height%-286|
00000930  3a 77 69 6d 70 25 21 31  32 3d 77 69 64 74 68 25  |:wimp%!12=width%|
00000940  2b 34 32 37 3a 77 69 6d  70 25 21 31 36 3d 68 65  |+427:wimp%!16=he|
00000950  69 67 68 74 25 2b 32 38  36 3a 77 69 6d 70 25 21  |ight%+286:wimp%!|
00000960  32 38 3d 2d 31 3a c8 99  22 57 69 6d 70 5f 4f 70  |28=-1:.."Wimp_Op|
00000970  65 6e 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |enWindow",,wimp%|
00000980  0d 01 b8 10 ee 85 f2 65  72 72 28 9f 2c f6 24 29  |.......err(.,.$)|
00000990  0d 01 c2 05 f5 0d 01 cc  1e c8 99 20 22 57 69 6d  |........... "Wim|
000009a0  70 5f 50 6f 6c 6c 22 2c  2c 77 69 6d 70 25 20 b8  |p_Poll",,wimp% .|
000009b0  20 72 25 0d 01 d6 0b c8  8e 20 72 25 20 ca 0d 01  | r%...... r% ...|
000009c0  e0 72 c9 20 30 20 3a 20  6e 62 74 6d 25 3d 30 3a  |.r. 0 : nbtm%=0:|
000009d0  e7 20 68 65 61 70 65 72  72 6f 72 25 3d 31 20 68  |. heaperror%=1 h|
000009e0  65 61 70 65 72 72 6f 72  25 3d 30 3a f2 63 6f 6e  |eaperror%=0:.con|
000009f0  74 63 6f 6e 74 6c 6f 61  64 20 8b 20 e7 20 66 6f  |tcontload . . fo|
00000a00  6e 74 65 72 72 6f 72 25  3d 31 20 66 6f 6e 74 65  |nterror%=1 fonte|
00000a10  72 72 6f 72 25 3d 30 3a  f2 63 6f 6e 74 6c 6f 61  |rror%=0:.contloa|
00000a20  64 20 8b 20 c8 8e 20 61  63 74 69 76 65 25 20 ca  |d . .. active% .|
00000a30  0d 01 ea 24 20 20 c9 20  2d 31 20 3a 20 61 63 74  |...$  . -1 : act|
00000a40  69 76 65 25 3d 30 3a f2  63 6f 6e 74 69 6e 75 65  |ive%=0:.continue|
00000a50  6c 6f 61 64 0d 01 f4 1e  20 20 c9 20 2d 32 20 3a  |load....  . -2 :|
00000a60  20 c8 99 20 26 34 30 30  44 44 2c 61 70 70 68 61  | .. &400DD,appha|
00000a70  6e 25 0d 01 fe 58 20 20  7f 20 3a 20 e7 20 6f 70  |n%...X  . : . op|
00000a80  65 6e 25 3d 31 20 80 20  73 77 65 61 72 25 3c 3e  |en%=1 . swear%<>|
00000a90  35 20 80 20 91 2d 31 32  30 30 30 3e 6f 6c 64 74  |5 . .-12000>oldt|
00000aa0  69 6d 65 25 20 6f 6c 64  74 69 6d 65 25 3d 91 3a  |ime% oldtime%=.:|
00000ab0  e7 20 6e 69 66 6f 6b 25  3d 30 20 80 20 72 65 6e  |. nifok%=0 . ren|
00000ac0  77 25 3d 30 20 f2 77 61  69 74 0d 02 08 36 e7 20  |w%=0 .wait...6. |
00000ad0  91 2d 31 30 30 30 3e 70  6f 6c 74 69 6d 65 25 20  |.-1000>poltime% |
00000ae0  80 20 7a 6f 6e 65 25 3d  33 20 80 20 6e 69 66 6f  |. zone%=3 . nifo|
00000af0  6b 25 3d 30 20 f2 70 6f  6c 69 63 65 6d 61 7a 65  |k%=0 .policemaze|
00000b00  0d 02 12 32 e7 20 91 2d  31 30 30 30 3e 70 6f 6c  |...2. .-1000>pol|
00000b10  74 69 6d 65 25 20 80 20  7a 6f 6e 65 25 3d 32 20  |time% . zone%=2 |
00000b20  80 20 6e 69 66 6f 6b 25  3d 30 20 f2 70 6f 6c 69  |. nifok%=0 .poli|
00000b30  63 65 0d 02 1c 45 e7 20  91 2d 36 30 30 30 3e 73  |ce...E. .-6000>s|
00000b40  6c 65 65 70 6f 6c 64 74  69 6d 65 25 20 80 20 73  |leepoldtime% . s|
00000b50  6c 65 65 70 25 3d 31 20  73 6c 65 65 70 25 3d 30  |leep%=1 sleep%=0|
00000b60  3a f2 61 64 64 28 22 59  6f 75 20 77 61 6b 65 20  |:.add("You wake |
00000b70  75 70 2e 2e 2e 22 29 0d  02 26 25 e7 20 91 2d 32  |up...")..&%. .-2|
00000b80  30 30 3e 66 69 72 65 74  69 6d 65 25 20 80 20 66  |00>firetime% . f|
00000b90  69 72 65 25 3d 32 20 f2  66 69 72 65 0d 02 30 87  |ire%=2 .fire..0.|
00000ba0  e7 20 91 2d 32 35 30 3e  74 72 61 70 70 65 64 74  |. .-250>trappedt|
00000bb0  69 6d 65 25 20 80 20 74  72 61 70 70 65 64 25 3d  |ime% . trapped%=|
00000bc0  31 20 74 72 61 70 70 65  64 25 3d 30 3a 65 78 69  |1 trapped%=0:exi|
00000bd0  74 73 28 31 31 30 2c 34  29 3d 30 3a 65 78 69 74  |ts(110,4)=0:exit|
00000be0  73 28 31 31 31 2c 32 29  3d 30 3a 77 69 6d 70 25  |s(111,2)=0:wimp%|
00000bf0  21 30 3d 6d 61 70 68 61  6e 25 3a f2 72 65 64 72  |!0=maphan%:.redr|
00000c00  61 77 6d 61 70 3a f2 61  64 64 28 22 59 6f 75 20  |awmap:.add("You |
00000c10  68 65 61 72 20 61 20 64  6f 6f 72 20 73 6c 61 6d  |hear a door slam|
00000c20  2e 22 29 0d 02 3a 05 cb  0d 02 44 88 c9 20 31 20  |.")..:....D.. 1 |
00000c30  3a 20 e7 20 77 69 6d 70  25 21 30 3d 61 64 76 65  |: . wimp%!0=adve|
00000c40  6e 74 68 61 6e 25 20 f2  72 65 64 72 61 77 20 8b  |nthan% .redraw .|
00000c50  20 e7 20 77 69 6d 70 25  21 30 3d 70 69 63 63 69  | . wimp%!0=picci|
00000c60  65 68 61 6e 25 20 f2 72  65 64 72 61 77 70 69 63  |ehan% .redrawpic|
00000c70  73 20 8b 20 e7 20 77 69  6d 70 25 21 30 3d 6d 61  |s . . wimp%!0=ma|
00000c80  70 68 61 6e 25 20 f2 72  65 64 72 61 77 6d 61 70  |phan% .redrawmap|
00000c90  20 8b 20 c8 99 20 22 57  69 6d 70 5f 52 65 64 72  | . .. "Wimp_Redr|
00000ca0  61 77 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |awWindow",,wimp%|
00000cb0  0d 02 4e 37 c9 20 32 20  3a 20 c8 99 20 26 34 30  |..N7. 2 : .. &40|
00000cc0  30 43 35 2c 2c 77 69 6d  70 25 3a e7 20 77 69 6d  |0C5,,wimp%:. wim|
00000cd0  70 25 21 30 3d 61 64 76  65 6e 74 68 61 6e 25 20  |p%!0=adventhan% |
00000ce0  f2 61 74 74 61 63 68 0d  02 58 91 c9 20 33 20 3a  |.attach..X.. 3 :|
00000cf0  20 c8 99 20 26 34 30 30  43 36 2c 2c 77 69 6d 70  | .. &400C6,,wimp|
00000d00  25 3a e7 20 77 69 6d 70  25 21 30 3d 61 64 76 65  |%:. wimp%!0=adve|
00000d10  6e 74 68 61 6e 25 20 6f  70 65 6e 25 3d 30 3a 77  |nthan% open%=0:w|
00000d20  69 6d 70 25 21 30 3d 75  73 65 72 68 61 6e 25 3a  |imp%!0=userhan%:|
00000d30  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00000d40  64 6f 77 22 2c 2c 77 69  6d 70 25 3a 77 69 6d 70  |dow",,wimp%:wimp|
00000d50  25 21 30 3d 70 6f 73 69  68 61 6e 25 3a c8 99 22  |%!0=posihan%:.."|
00000d60  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000d70  22 2c 2c 77 69 6d 70 25  0d 02 62 10 c9 20 36 20  |",,wimp%..b.. 6 |
00000d80  3a 20 f2 63 6c 69 63 6b  0d 02 6c 18 c9 20 37 20  |: .click..l.. 7 |
00000d90  3a 20 f2 64 72 61 67 5f  63 6f 6d 70 6c 65 74 65  |: .drag_complete|
00000da0  0d 02 76 3b c9 20 38 20  3a 20 e7 20 77 69 6d 70  |..v;. 8 : . wimp|
00000db0  25 21 32 34 3d 31 33 20  f2 6b 65 79 20 8b 20 c8  |%!24=13 .key . .|
00000dc0  99 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  |."Wimp_ProcessKe|
00000dd0  79 22 2c 77 69 6d 70 25  21 32 34 0d 02 80 15 c9  |y",wimp%!24.....|
00000de0  20 39 20 3a 20 f2 6d 65  6e 75 73 65 6c 65 63 74  | 9 : .menuselect|
00000df0  0d 02 8a 1b c9 20 31 37  2c 31 38 20 3a 20 c8 8e  |..... 17,18 : ..|
00000e00  20 77 69 6d 70 25 21 31  36 20 ca 0d 02 94 13 20  | wimp%!16 ..... |
00000e10  20 c9 20 30 20 3a 20 f2  71 75 69 74 79 6e 0d 02  | . 0 : .quityn..|
00000e20  9e 11 20 20 c9 20 32 20  3a 20 f2 73 61 76 65 0d  |..  . 2 : .save.|
00000e30  02 a8 2c 20 20 c9 20 33  2c 35 20 3a 20 6c 64 66  |..,  . 3,5 : ldf|
00000e40  69 6c 65 6e 6d 24 3d a4  78 74 72 61 63 74 66 6c  |ilenm$=.xtractfl|
00000e50  6e 3a f2 66 69 6c 65 6c  6f 61 64 0d 02 b2 1b 20  |n:.fileload.... |
00000e60  20 c9 20 26 35 30 32 20  3a 20 f2 69 6e 74 65 72  | . &502 : .inter|
00000e70  61 63 74 69 76 65 0d 02  bc 59 20 20 c9 20 26 34  |active...Y  . &4|
00000e80  30 30 43 31 20 3a 20 e7  20 6d 79 66 6f 6e 74 25  |00C1 : . myfont%|
00000e90  3c 3e 2d 31 20 c8 99 20  22 46 6f 6e 74 5f 46 69  |<>-1 .. "Font_Fi|
00000ea0  6e 64 46 6f 6e 74 22 2c  2c 22 54 72 69 6e 69 74  |ndFont",,"Trinit|
00000eb0  79 2e 4d 65 64 69 75 6d  22 2c 31 32 2a 31 36 2c  |y.Medium",12*16,|
00000ec0  31 32 2a 31 36 20 b8 20  6d 79 66 6f 6e 74 25 0d  |12*16 . myfont%.|
00000ed0  02 c6 57 20 20 20 20 20  20 20 20 20 20 20 20 20  |..W             |
00000ee0  20 20 20 c8 99 20 72 65  74 63 6f 6c 25 2c 6d 79  |   .. retcol%,my|
00000ef0  66 6f 6e 74 25 2c 26 46  46 46 46 46 46 30 30 2c  |font%,&FFFFFF00,|
00000f00  26 30 30 30 30 30 30 30  30 2c 31 34 20 b8 20 2c  |&00000000,14 . ,|
00000f10  62 61 63 6b 31 25 2c 66  6f 72 65 31 25 2c 6f 66  |back1%,fore1%,of|
00000f20  66 73 65 74 31 25 0d 02  d0 56 20 20 20 20 20 20  |fset1%...V      |
00000f30  20 20 20 20 20 20 20 20  20 20 c8 99 20 72 65 74  |          .. ret|
00000f40  63 6f 6c 25 2c 6d 79 66  6f 6e 74 25 2c 26 46 46  |col%,myfont%,&FF|
00000f50  46 46 46 46 30 30 2c 26  30 30 30 30 46 46 30 30  |FFFF00,&0000FF00|
00000f60  2c 30 20 b8 20 2c 62 61  63 6b 32 25 2c 66 6f 72  |,0 . ,back2%,for|
00000f70  65 32 25 2c 6f 66 66 73  65 74 32 25 0d 02 da 21  |e2%,offset2%...!|
00000f80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f90  f2 64 65 63 69 64 65 73  68 61 64 65 64 0d 02 e4  |.decideshaded...|
00000fa0  a0 20 20 c9 20 26 34 30  30 43 43 20 3a 20 c8 99  |.  . &400CC : ..|
00000fb0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000fc0  72 49 6e 66 6f 22 2c 2c  77 69 6d 70 25 3a e7 20  |rInfo",,wimp%:. |
00000fd0  77 69 6d 70 25 21 31 32  3d 61 64 76 65 6e 74 68  |wimp%!12=adventh|
00000fe0  61 6e 25 20 77 69 6d 70  25 21 30 3d 75 73 65 72  |an% wimp%!0=user|
00000ff0  68 61 6e 25 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |han%:.."Wimp_Clo|
00001000  73 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |seWindow",,wimp%|
00001010  3a 77 69 6d 70 25 21 30  3d 70 6f 73 69 68 61 6e  |:wimp%!0=posihan|
00001020  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |%:.."Wimp_CloseW|
00001030  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 02 ee  |indow",,wimp%...|
00001040  05 cb 0d 02 f8 05 cb 0d  03 02 07 fd 20 a3 0d 03  |............ ...|
00001050  0c 04 0d 03 16 0f dd a4  78 74 72 61 63 74 66 6c  |........xtractfl|
00001060  6e 0d 03 20 47 6e 61 6d  65 24 3d 22 22 3a 6e 3d  |n.. Gname$="":n=|
00001070  34 34 3a c8 95 20 28 28  77 69 6d 70 25 3f 6e 29  |44:.. ((wimp%?n)|
00001080  3e 3d 33 32 29 20 80 20  28 6e 3c 32 35 36 29 3a  |>=32) . (n<256):|
00001090  6e 61 6d 65 24 2b 3d bd  28 77 69 6d 70 25 3f 6e  |name$+=.(wimp%?n|
000010a0  29 3a 6e 2b 3d 31 3a ce  0d 03 2a 0a 3d 6e 61 6d  |):n+=1:...*.=nam|
000010b0  65 24 0d 03 34 04 0d 03  3e 0c dd f2 71 75 69 74  |e$..4...>...quit|
000010c0  79 6e 0d 03 48 22 e7 20  61 6c 74 65 72 65 64 25  |yn..H". altered%|
000010d0  3d 30 20 c8 99 20 26 34  30 30 44 44 2c 61 70 70  |=0 .. &400DD,app|
000010e0  68 61 6e 25 0d 03 52 58  e7 20 61 6c 74 65 72 65  |han%..RX. altere|
000010f0  64 25 3d 31 20 f2 77 61  72 6e 69 6e 67 28 31 2c  |d%=1 .warning(1,|
00001100  22 22 2c 22 51 75 69 74  74 69 6e 67 20 74 68 65  |"","Quitting the|
00001110  20 70 72 6f 67 72 61 6d  20 77 69 6c 6c 20 6c 6f  | program will lo|
00001120  73 65 22 2c 22 79 6f 75  72 20 63 75 72 72 65 6e  |se","your curren|
00001130  74 20 67 61 6d 65 2e 22  2c 22 22 29 0d 03 5c 05  |t game.","")..\.|
00001140  e1 0d 03 66 04 0d 03 70  14 dd f2 63 6f 6e 74 69  |...f...p...conti|
00001150  6e 75 65 61 63 74 69 6f  6e 0d 03 7a 13 c8 8e 20  |nueaction..z... |
00001160  77 68 65 72 65 66 72 6f  6d 25 20 ca 0d 03 84 1b  |wherefrom% .....|
00001170  c9 20 31 20 3a 20 c8 99  20 26 34 30 30 44 44 2c  |. 1 : .. &400DD,|
00001180  61 70 70 68 61 6e 25 0d  03 8e 1c c9 20 32 20 3a  |apphan%..... 2 :|
00001190  20 79 65 73 6e 6f 25 3d  32 3a f2 6c 6f 61 64 69  | yesno%=2:.loadi|
000011a0  74 75 70 0d 03 98 12 c9  20 33 20 3a 20 f2 72 65  |tup..... 3 : .re|
000011b0  73 74 61 72 74 0d 03 a2  05 cb 0d 03 ac 05 e1 0d  |start...........|
000011c0  03 b6 04 0d 03 c0 0e dd  f2 6c 6f 61 64 69 74 75  |.........loaditu|
000011d0  70 0d 03 ca 13 41 25 3d  8e 28 6c 64 66 69 6c 65  |p....A%=.(ldfile|
000011e0  6e 6d 24 29 0d 03 d4 1a  77 61 73 74 65 6f 66 74  |nm$)....wasteoft|
000011f0  69 6d 65 24 3d c0 be 23  41 25 2c 31 36 29 0d 03  |ime$=..#A%,16)..|
00001200  de 7a e7 20 77 61 73 74  65 6f 66 74 69 6d 65 24  |.z. wasteoftime$|
00001210  3c 3e 22 21 47 6f 72 6d  20 53 61 76 65 64 20 47  |<>"!Gorm Saved G|
00001220  61 6d 65 22 20 f2 77 61  72 6e 69 6e 67 28 34 2c  |ame" .warning(4,|
00001230  22 22 2c 22 54 68 69 73  20 66 69 6c 65 20 69 73  |"","This file is|
00001240  20 63 6f 72 72 75 70 74  20 6f 72 20 69 73 20 6e  | corrupt or is n|
00001250  6f 74 22 2c 22 61 20 72  65 61 6c 20 47 6f 72 6d  |ot","a real Gorm|
00001260  20 73 61 76 65 64 20 67  61 6d 65 2e 22 2c 22 22  | saved game.",""|
00001270  29 3a d9 23 41 25 3a e1  0d 03 e8 12 73 77 65 61  |):.#A%:.....swea|
00001280  72 25 3d bb 28 be 23 41  25 29 0d 03 f2 15 63 6f  |r%=.(.#A%)....co|
00001290  6d 70 75 74 65 72 25 3d  bb 28 be 23 41 25 29 0d  |mputer%=.(.#A%).|
000012a0  03 fc 14 6e 6f 74 69 6d  65 73 25 3d bb 28 be 23  |...notimes%=.(.#|
000012b0  41 25 29 0d 04 06 11 6f  6c 64 77 6f 72 64 24 3d  |A%)....oldword$=|
000012c0  be 23 41 25 0d 04 10 13  72 6f 6f 6d 6e 6f 25 3d  |.#A%....roomno%=|
000012d0  bb 28 be 23 41 25 29 0d  04 1a 12 73 6c 65 65 70  |.(.#A%)....sleep|
000012e0  25 3d bb 28 be 23 41 25  29 0d 04 24 14 77 72 69  |%=.(.#A%)..$.wri|
000012f0  74 74 65 6e 25 3d bb 28  be 23 41 25 29 0d 04 2e  |tten%=.(.#A%)...|
00001300  11 66 6f 6e 74 25 3d bb  28 be 23 41 25 29 0d 04  |.font%=.(.#A%)..|
00001310  38 22 e7 20 66 6f 6e 74  25 3d 31 20 80 20 6d 79  |8". font%=1 . my|
00001320  66 6f 6e 74 25 3d 2d 31  20 66 6f 6e 74 25 3d 30  |font%=-1 font%=0|
00001330  0d 04 42 12 6e 69 66 6f  6b 25 3d bb 28 be 23 41  |..B.nifok%=.(.#A|
00001340  25 29 0d 04 4c 16 65 78  69 74 73 28 32 2c 32 29  |%)..L.exits(2,2)|
00001350  3d bb 28 be 23 41 25 29  0d 04 56 17 65 78 69 74  |=.(.#A%)..V.exit|
00001360  73 28 37 32 2c 33 29 3d  bb 28 be 23 41 25 29 0d  |s(72,3)=.(.#A%).|
00001370  04 60 17 65 78 69 74 73  28 38 35 2c 32 29 3d bb  |.`.exits(85,2)=.|
00001380  28 be 23 41 25 29 0d 04  6a 18 65 78 69 74 73 28  |(.#A%)..j.exits(|
00001390  31 31 30 2c 34 29 3d bb  28 be 23 41 25 29 0d 04  |110,4)=.(.#A%)..|
000013a0  74 18 65 78 69 74 73 28  31 31 31 2c 32 29 3d bb  |t.exits(111,2)=.|
000013b0  28 be 23 41 25 29 0d 04  7e 18 65 78 69 74 73 28  |(.#A%)..~.exits(|
000013c0  31 37 39 2c 31 29 3d bb  28 be 23 41 25 29 0d 04  |179,1)=.(.#A%)..|
000013d0  88 18 65 78 69 74 73 28  33 31 30 2c 32 29 3d bb  |..exits(310,2)=.|
000013e0  28 be 23 41 25 29 0d 04  92 10 69 6c 6c 25 3d bb  |(.#A%)....ill%=.|
000013f0  28 be 23 41 25 29 0d 04  9c 14 6d 65 64 69 75 6d  |(.#A%)....medium|
00001400  31 25 3d bb 28 be 23 41  25 29 0d 04 a6 14 6d 65  |1%=.(.#A%)....me|
00001410  64 69 75 6d 32 25 3d bb  28 be 23 41 25 29 0d 04  |dium2%=.(.#A%)..|
00001420  b0 12 70 61 79 65 64 25  3d bb 28 be 23 41 25 29  |..payed%=.(.#A%)|
00001430  0d 04 ba 11 72 65 6e 77  25 3d bb 28 be 23 41 25  |....renw%=.(.#A%|
00001440  29 0d 04 c4 12 63 72 69  65 72 25 3d bb 28 be 23  |)....crier%=.(.#|
00001450  41 25 29 0d 04 ce 12 6d  6f 75 6c 64 25 3d bb 28  |A%)....mould%=.(|
00001460  be 23 41 25 29 0d 04 d8  10 64 75 67 25 3d bb 28  |.#A%)....dug%=.(|
00001470  be 23 41 25 29 0d 04 e2  11 70 61 6d 70 25 3d bb  |.#A%)....pamp%=.|
00001480  28 be 23 41 25 29 0d 04  ec 11 77 68 69 7a 25 3d  |(.#A%)....whiz%=|
00001490  bb 28 be 23 41 25 29 0d  04 f6 11 66 69 72 65 25  |.(.#A%)....fire%|
000014a0  3d bb 28 be 23 41 25 29  0d 05 00 15 73 75 69 74  |=.(.#A%)....suit|
000014b0  63 61 73 65 25 3d bb 28  be 23 41 25 29 0d 05 0a  |case%=.(.#A%)...|
000014c0  13 69 6e 6a 75 72 65 25  3d bb 28 be 23 41 25 29  |.injure%=.(.#A%)|
000014d0  0d 05 14 11 7a 6f 6e 65  25 3d bb 28 be 23 41 25  |....zone%=.(.#A%|
000014e0  29 0d 05 1e 13 64 75 67  67 65 64 25 3d bb 28 be  |)....dugged%=.(.|
000014f0  23 41 25 29 0d 05 28 15  72 6f 6f 6d 73 24 28 37  |#A%)..(.rooms$(7|
00001500  38 2c 32 29 3d be 23 41  25 0d 05 32 15 72 6f 6f  |8,2)=.#A%..2.roo|
00001510  6d 73 24 28 37 38 2c 33  29 3d be 23 41 25 0d 05  |ms$(78,3)=.#A%..|
00001520  3c 15 72 6f 6f 6d 73 24  28 37 38 2c 34 29 3d be  |<.rooms$(78,4)=.|
00001530  23 41 25 0d 05 46 15 72  6f 6f 6d 73 24 28 38 35  |#A%..F.rooms$(85|
00001540  2c 35 29 3d be 23 41 25  0d 05 50 16 61 62 62 72  |,5)=.#A%..P.abbr|
00001550  65 76 24 28 37 38 2c 31  29 3d be 23 41 25 0d 05  |ev$(78,1)=.#A%..|
00001560  5a 14 72 65 6e 74 72 79  24 28 37 38 29 3d be 23  |Z.rentry$(78)=.#|
00001570  41 25 0d 05 64 0e e3 20  61 25 3d 31 20 b8 20 33  |A%..d.. a%=1 . 3|
00001580  0d 05 6e 17 70 6f 6c 69  63 65 25 28 61 25 29 3d  |..n.police%(a%)=|
00001590  bb 28 be 23 41 25 29 0d  05 78 17 70 6f 6c 64 69  |.(.#A%)..x.poldi|
000015a0  72 25 28 61 25 29 3d bb  28 be 23 41 25 29 0d 05  |r%(a%)=.(.#A%)..|
000015b0  82 08 ed 20 61 25 0d 05  8c 14 64 72 75 67 67 65  |... a%....drugge|
000015c0  64 25 3d bb 28 be 23 41  25 29 0d 05 96 18 e3 20  |d%=.(.#A%)..... |
000015d0  61 25 3d 31 20 b8 20 74  6f 74 61 6c 72 6f 6f 6d  |a%=1 . totalroom|
000015e0  73 25 0d 05 a0 16 6d 61  70 79 6e 25 28 61 25 29  |s%....mapyn%(a%)|
000015f0  3d bb 28 be 23 41 25 29  0d 05 aa 08 ed 20 61 25  |=.(.#A%)..... a%|
00001600  0d 05 b4 0f e3 20 61 25  3d 31 20 b8 20 31 30 0d  |..... a%=1 . 10.|
00001610  05 be 12 6f 77 6e 73 24  28 61 25 29 3d be 23 41  |...owns$(a%)=.#A|
00001620  25 0d 05 c8 08 ed 20 61  25 0d 05 d2 0f e3 20 61  |%..... a%..... a|
00001630  25 3d 31 20 b8 20 31 31  0d 05 dc 13 71 75 65 73  |%=1 . 11....ques|
00001640  74 24 28 61 25 29 3d be  23 41 25 0d 05 e6 08 ed  |t$(a%)=.#A%.....|
00001650  20 61 25 0d 05 f0 18 e3  20 61 25 3d 31 20 b8 20  | a%..... a%=1 . |
00001660  74 6f 74 61 6c 72 6f 6f  6d 73 25 0d 05 fa 0f e3  |totalrooms%.....|
00001670  20 62 25 3d 31 20 b8 20  31 30 0d 06 04 18 6f 62  | b%=1 . 10....ob|
00001680  6a 65 63 74 73 24 28 61  25 2c 62 25 29 3d be 23  |jects$(a%,b%)=.#|
00001690  41 25 0d 06 0e 08 ed 20  62 25 0d 06 18 08 ed 20  |A%..... b%..... |
000016a0  61 25 0d 06 22 08 d9 23  41 25 0d 06 2c 13 73 6c  |a%.."..#A%..,.sl|
000016b0  65 65 70 6f 6c 64 74 69  6d 65 25 3d 91 0d 06 36  |eepoldtime%=...6|
000016c0  0e 70 6f 6c 74 69 6d 65  25 3d 91 0d 06 40 0e 61  |.poltime%=...@.a|
000016d0  6c 74 65 72 65 64 25 3d  30 0d 06 4a 29 e7 20 79  |ltered%=0..J). y|
000016e0  65 73 6e 6f 25 3d 32 20  77 69 6d 70 25 21 30 3d  |esno%=2 wimp%!0=|
000016f0  61 64 76 65 6e 74 68 61  6e 25 3a f2 72 65 64 72  |adventhan%:.redr|
00001700  61 77 0d 06 54 27 f2 64  65 63 69 64 65 70 69 63  |aw..T'.decidepic|
00001710  73 3a f2 64 65 63 69 64  65 74 69 74 6c 65 3a f2  |s:.decidetitle:.|
00001720  64 65 63 69 64 65 70 6f  73 0d 06 5e 1e 77 69 6d  |decidepos..^.wim|
00001730  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
00001740  64 72 61 77 6d 61 70 0d  06 68 5c 77 69 6d 70 25  |drawmap..h\wimp%|
00001750  21 30 3d 61 64 76 65 6e  74 68 61 6e 25 3a c8 99  |!0=adventhan%:..|
00001760  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001770  74 61 74 65 22 2c 2c 77  69 6d 70 25 3a 77 69 6d  |tate",,wimp%:wim|
00001780  70 25 21 32 38 3d 2d 31  3a c8 99 22 57 69 6d 70  |p%!28=-1:.."Wimp|
00001790  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
000017a0  6d 70 25 0d 06 72 0b f2  61 74 74 61 63 68 0d 06  |mp%..r..attach..|
000017b0  7c 1c f2 73 65 74 69 63  6f 6e 28 6b 25 2c 31 2c  ||..seticon(k%,1,|
000017c0  6c 64 66 69 6c 65 6e 6d  24 29 0d 06 86 05 e1 0d  |ldfilenm$)......|
000017d0  06 90 04 0d 06 9a 12 dd  f2 63 6f 6e 74 69 6e 75  |.........continu|
000017e0  65 6c 6f 61 64 0d 06 a4  0e 6d 79 66 6f 6e 74 25  |eload....myfont%|
000017f0  3d 2d 31 0d 06 ae 58 66  6f 6e 74 65 72 72 6f 72  |=-1...Xfonterror|
00001800  25 3d 31 3a c8 99 20 22  46 6f 6e 74 5f 46 69 6e  |%=1:.. "Font_Fin|
00001810  64 46 6f 6e 74 22 2c 2c  22 54 72 69 6e 69 74 79  |dFont",,"Trinity|
00001820  2e 4d 65 64 69 75 6d 22  2c 31 32 2a 31 36 2c 31  |.Medium",12*16,1|
00001830  32 2a 31 36 20 b8 20 6d  79 66 6f 6e 74 25 3a 66  |2*16 . myfont%:f|
00001840  6f 6e 74 65 72 72 6f 72  25 3d 30 0d 06 b8 36 c8  |onterror%=0...6.|
00001850  99 20 22 58 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |. "XOS_SWINumber|
00001860  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 46 6f  |FromString",,"Fo|
00001870  6e 74 5f 53 65 74 46 6f  6e 74 22 20 b8 20 66 74  |nt_SetFont" . ft|
00001880  25 0d 06 c2 40 c8 99 20  22 58 4f 53 5f 53 57 49  |%...@.. "XOS_SWI|
00001890  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
000018a0  22 2c 2c 22 46 6f 6e 74  5f 53 65 74 46 6f 6e 74  |",,"Font_SetFont|
000018b0  43 6f 6c 6f 75 72 73 22  20 b8 20 66 74 63 6f 6c  |Colours" . ftcol|
000018c0  25 0d 06 cc 36 c8 99 20  22 58 4f 53 5f 53 57 49  |%...6.. "XOS_SWI|
000018d0  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
000018e0  22 2c 2c 22 46 6f 6e 74  5f 50 61 69 6e 74 22 20  |",,"Font_Paint" |
000018f0  b8 20 66 74 70 74 25 0d  06 d6 5f c8 99 20 22 43  |. ftpt%..._.. "C|
00001900  6f 6c 6f 75 72 54 72 61  6e 73 5f 52 65 74 75 72  |olourTrans_Retur|
00001910  6e 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 6d 79  |nFontColours",my|
00001920  66 6f 6e 74 25 2c 26 46  46 46 46 46 46 30 30 2c  |font%,&FFFFFF00,|
00001930  26 30 30 30 30 30 30 30  30 2c 31 34 20 b8 20 2c  |&00000000,14 . ,|
00001940  62 61 63 6b 31 25 2c 66  6f 72 65 31 25 2c 6f 66  |back1%,fore1%,of|
00001950  66 73 65 74 31 25 0d 06  e0 5e c8 99 20 22 43 6f  |fset1%...^.. "Co|
00001960  6c 6f 75 72 54 72 61 6e  73 5f 52 65 74 75 72 6e  |lourTrans_Return|
00001970  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 6d 79 66  |FontColours",myf|
00001980  6f 6e 74 25 2c 26 46 46  46 46 46 46 30 30 2c 26  |ont%,&FFFFFF00,&|
00001990  30 30 30 30 46 46 30 30  2c 30 20 b8 20 2c 62 61  |0000FF00,0 . ,ba|
000019a0  63 6b 32 25 2c 66 6f 72  65 32 25 2c 6f 66 66 73  |ck2%,fore2%,offs|
000019b0  65 74 32 25 0d 06 ea 0d  f2 63 6f 6e 74 6c 6f 61  |et2%.....contloa|
000019c0  64 0d 06 f4 05 e1 0d 06  fe 04 0d 07 08 0e dd f2  |d...............|
000019d0  63 6f 6e 74 6c 6f 61 64  0d 07 12 42 c8 99 20 22  |contload...B.. "|
000019e0  58 4f 53 5f 53 57 49 4e  75 6d 62 65 72 46 72 6f  |XOS_SWINumberFro|
000019f0  6d 53 74 72 69 6e 67 22  2c 2c 22 43 6f 6c 6f 75  |mString",,"Colou|
00001a00  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 20  |rTrans_SetGCOL" |
00001a10  b8 20 73 65 74 67 63 6f  6c 25 0d 07 1c 4b c8 99  |. setgcol%...K..|
00001a20  20 22 58 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  | "XOS_SWINumberF|
00001a30  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 22 43 6f 6c  |romString",,"Col|
00001a40  6f 75 72 54 72 61 6e 73  5f 52 65 74 75 72 6e 46  |ourTrans_ReturnF|
00001a50  6f 6e 74 43 6f 6c 6f 75  72 73 22 20 b8 20 72 65  |ontColours" . re|
00001a60  74 63 6f 6c 25 0d 07 26  38 c8 99 20 26 34 30 30  |tcol%..&8.. &400|
00001a70  44 42 2c 2c 77 69 6d 70  25 2c 61 64 76 65 6e 74  |DB,,wimp%,advent|
00001a80  25 2c 61 64 76 65 6e 74  25 2b 31 35 2c 2d 31 2c  |%,advent%+15,-1,|
00001a90  22 61 64 76 65 6e 74 75  72 65 22 2c 30 0d 07 30  |"adventure",0..0|
00001aa0  21 c8 99 20 26 34 30 30  43 31 2c 2c 77 69 6d 70  |!.. &400C1,,wimp|
00001ab0  25 20 b8 20 61 64 76 65  6e 74 68 61 6e 25 0d 07  |% . adventhan%..|
00001ac0  3a 30 c8 99 20 26 34 30  30 44 42 2c 2c 77 69 6d  |:0.. &400DB,,wim|
00001ad0  70 25 2c 69 6e 66 6f 25  2c 69 6e 66 6f 25 2b 32  |p%,info%,info%+2|
00001ae0  30 30 2c 2d 31 2c 22 69  6e 66 6f 22 2c 30 0d 07  |00,-1,"info",0..|
00001af0  44 1d c8 99 20 26 34 30  30 43 31 2c 2c 77 69 6d  |D... &400C1,,wim|
00001b00  70 25 20 b8 20 69 6e 68  61 6e 25 0d 07 4e 35 c8  |p% . inhan%..N5.|
00001b10  99 20 26 34 30 30 44 42  2c 2c 77 69 6d 70 25 2c  |. &400DB,,wimp%,|
00001b20  73 61 76 65 72 25 2c 73  61 76 65 72 25 2b 34 30  |saver%,saver%+40|
00001b30  30 2c 2d 31 2c 22 73 61  76 65 62 6f 78 22 2c 30  |0,-1,"savebox",0|
00001b40  0d 07 58 19 c8 99 20 26  34 30 30 43 31 2c 2c 77  |..X... &400C1,,w|
00001b50  69 6d 70 25 20 b8 20 6b  25 0d 07 62 30 c8 99 20  |imp% . k%..b0.. |
00001b60  26 34 30 30 44 42 2c 2c  77 69 6d 70 25 2c 75 73  |&400DB,,wimp%,us|
00001b70  65 72 25 2c 75 73 65 72  25 2b 35 30 32 2c 2d 31  |er%,user%+502,-1|
00001b80  2c 22 75 73 65 72 22 2c  30 0d 07 6c 1f c8 99 20  |,"user",0..l... |
00001b90  26 34 30 30 43 31 2c 2c  77 69 6d 70 25 20 b8 20  |&400C1,,wimp% . |
00001ba0  75 73 65 72 68 61 6e 25  0d 07 76 25 c8 99 20 26  |userhan%..v%.. &|
00001bb0  34 30 30 44 42 2c 2c 77  69 6d 70 25 2c 2c 2c 2d  |400DB,,wimp%,,,-|
00001bc0  31 2c 22 70 69 63 63 69  65 73 22 2c 30 0d 07 80  |1,"piccies",0...|
00001bd0  21 c8 99 20 26 34 30 30  43 31 2c 2c 77 69 6d 70  |!.. &400C1,,wimp|
00001be0  25 20 b8 20 70 69 63 63  69 65 68 61 6e 25 0d 07  |% . picciehan%..|
00001bf0  8a 21 c8 99 20 26 34 30  30 44 42 2c 2c 77 69 6d  |.!.. &400DB,,wim|
00001c00  70 25 2c 2c 2c 2d 31 2c  22 6d 61 70 22 2c 30 0d  |p%,,,-1,"map",0.|
00001c10  07 94 1e c8 99 20 26 34  30 30 43 31 2c 2c 77 69  |..... &400C1,,wi|
00001c20  6d 70 25 20 b8 20 6d 61  70 68 61 6e 25 0d 07 9e  |mp% . maphan%...|
00001c30  34 c8 99 20 26 34 30 30  44 42 2c 2c 77 69 6d 70  |4.. &400DB,,wimp|
00001c40  25 2c 70 6f 73 69 25 2c  70 6f 73 69 25 2b 32 30  |%,posi%,posi%+20|
00001c50  30 2c 2d 31 2c 22 70 6f  73 69 74 69 6f 6e 22 2c  |0,-1,"position",|
00001c60  30 0d 07 a8 1f c8 99 20  26 34 30 30 43 31 2c 2c  |0...... &400C1,,|
00001c70  77 69 6d 70 25 20 b8 20  70 6f 73 69 68 61 6e 25  |wimp% . posihan%|
00001c80  0d 07 b2 37 c8 99 20 26  34 30 30 44 42 2c 2c 77  |...7.. &400DB,,w|
00001c90  69 6d 70 25 2c 6d 65 73  73 67 65 25 2c 6d 65 73  |imp%,messge%,mes|
00001ca0  73 67 65 25 2b 32 35 30  2c 2d 31 2c 22 77 61 72  |sge%+250,-1,"war|
00001cb0  6e 69 6e 67 22 2c 30 0d  07 bc 1f c8 99 20 26 34  |ning",0...... &4|
00001cc0  30 30 43 31 2c 2c 77 69  6d 70 25 20 b8 20 77 61  |00C1,,wimp% . wa|
00001cd0  72 6e 68 61 6e 25 0d 07  c6 0d c8 99 20 26 34 30  |rnhan%...... &40|
00001ce0  30 44 41 0d 07 d0 18 e3  20 61 25 3d 31 20 b8 20  |0DA..... a%=1 . |
00001cf0  74 6f 74 61 6c 72 6f 6f  6d 73 25 0d 07 da 10 6d  |totalrooms%....m|
00001d00  61 70 79 6e 25 28 61 25  29 3d 30 0d 07 e4 08 ed  |apyn%(a%)=0.....|
00001d10  20 61 25 0d 07 ee 0f 6d  61 70 79 6e 25 28 31 29  | a%....mapyn%(1)|
00001d20  3d 31 0d 07 f8 10 68 65  61 70 65 72 72 6f 72 25  |=1....heaperror%|
00001d30  3d 31 0d 08 02 26 c8 99  20 22 4f 53 5f 52 65 61  |=1...&.. "OS_Rea|
00001d40  64 4d 65 6d 4d 61 70 49  6e 66 6f 22 20 b8 20 68  |dMemMapInfo" . h|
00001d50  65 61 70 73 69 7a 65 25  0d 08 0c 17 70 61 67 65  |eapsize%....page|
00001d60  73 69 7a 65 25 3d 68 65  61 70 73 69 7a 65 25 0d  |size%=heapsize%.|
00001d70  08 16 28 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |..(.. "Wimp_Slot|
00001d80  53 69 7a 65 22 2c 2d 31  2c 2d 31 20 b8 20 73 6c  |Size",-1,-1 . sl|
00001d90  6f 74 73 69 7a 65 25 0d  08 20 1d 68 65 61 70 6c  |otsize%.. .heapl|
00001da0  6f 63 74 25 3d 73 6c 6f  74 73 69 7a 65 25 2b 26  |oct%=slotsize%+&|
00001db0  38 30 30 30 0d 08 2a 33  c8 99 20 22 57 69 6d 70  |8000..*3.. "Wimp|
00001dc0  5f 53 6c 6f 74 53 69 7a  65 22 2c 68 65 61 70 6c  |_SlotSize",heapl|
00001dd0  6f 63 74 25 2b 68 65 61  70 73 69 7a 65 25 2d 26  |oct%+heapsize%-&|
00001de0  38 30 30 30 2c 2d 31 0d  08 34 27 c8 99 20 22 4f  |8000,-1..4'.. "O|
00001df0  53 5f 48 65 61 70 22 2c  30 2c 68 65 61 70 6c 6f  |S_Heap",0,heaplo|
00001e00  63 74 25 2c 2c 68 65 61  70 73 69 7a 65 25 0d 08  |ct%,,heapsize%..|
00001e10  3e 34 c8 99 20 22 58 4f  53 5f 48 65 61 70 22 2c  |>4.. "XOS_Heap",|
00001e20  32 2c 68 65 61 70 6c 6f  63 74 25 2c 2c 70 69 63  |2,heaploct%,,pic|
00001e30  73 69 7a 65 25 20 b8 20  2c 2c 70 69 63 63 69 65  |size% . ,,piccie|
00001e40  73 25 0d 08 48 8c 20 20  e7 20 28 28 68 65 61 70  |s%..H.  . ((heap|
00001e50  73 69 7a 65 25 2b 70 69  63 73 69 7a 65 25 29 20  |size%+picsize%) |
00001e60  83 20 70 61 67 65 73 69  7a 65 25 29 20 3c 3e 20  |. pagesize%) <> |
00001e70  30 20 76 25 3d 68 65 61  70 73 69 7a 65 25 2b 70  |0 v%=heapsize%+p|
00001e80  69 63 73 69 7a 65 25 2b  28 70 61 67 65 73 69 7a  |icsize%+(pagesiz|
00001e90  65 25 2d 28 28 68 65 61  70 73 69 7a 65 25 2b 70  |e%-((heapsize%+p|
00001ea0  69 63 73 69 7a 65 25 29  20 83 20 70 61 67 65 73  |icsize%) . pages|
00001eb0  69 7a 65 25 29 29 20 8b  20 76 25 3d 68 65 61 70  |ize%)) . v%=heap|
00001ec0  73 69 7a 65 25 2b 70 69  63 73 69 7a 65 25 0d 08  |size%+picsize%..|
00001ed0  52 2f 20 20 c8 99 20 22  58 57 69 6d 70 5f 53 6c  |R/  .. "XWimp_Sl|
00001ee0  6f 74 53 69 7a 65 22 2c  68 65 61 70 6c 6f 63 74  |otSize",heaploct|
00001ef0  25 2b 76 25 2d 26 38 30  30 30 2c 2d 31 0d 08 5c  |%+v%-&8000,-1..\|
00001f00  39 20 20 c8 99 20 22 4f  53 5f 48 65 61 70 22 2c  |9  .. "OS_Heap",|
00001f10  35 2c 68 65 61 70 6c 6f  63 74 25 2c 2c 76 25 2d  |5,heaploct%,,v%-|
00001f20  68 65 61 70 73 69 7a 65  25 3a 68 65 61 70 73 69  |heapsize%:heapsi|
00001f30  7a 65 25 3d 76 25 0d 08  66 b1 20 20 c8 99 20 22  |ze%=v%..f.  .. "|
00001f40  58 4f 53 5f 48 65 61 70  22 2c 32 2c 68 65 61 70  |XOS_Heap",2,heap|
00001f50  6c 6f 63 74 25 2c 2c 70  69 63 73 69 7a 65 25 20  |loct%,,picsize% |
00001f60  b8 20 2c 2c 70 69 63 63  69 65 73 25 3a 70 69 63  |. ,,piccies%:pic|
00001f70  79 6e 25 3d 31 3a 70 69  63 63 69 65 73 25 21 30  |yn%=1:piccies%!0|
00001f80  3d 70 69 63 73 69 7a 65  25 3a 70 69 63 63 69 65  |=picsize%:piccie|
00001f90  73 25 21 38 3d 31 36 3a  c8 99 20 22 4f 53 5f 53  |s%!8=16:.. "OS_S|
00001fa0  70 72 69 74 65 4f 70 22  2c 26 31 30 39 2c 70 69  |priteOp",&109,pi|
00001fb0  63 63 69 65 73 25 3a c8  99 20 22 4f 53 5f 53 70  |ccies%:.. "OS_Sp|
00001fc0  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 70 69 63  |riteOp",&10A,pic|
00001fd0  63 69 65 73 25 2c 22 3c  47 6f 72 6d 24 44 69 72  |cies%,"<Gorm$Dir|
00001fe0  3e 2e 43 6f 64 65 22 0d  08 70 10 68 65 61 70 65  |>.Code"..p.heape|
00001ff0  72 72 6f 72 25 3d 30 0d  08 7a 11 f2 63 6f 6e 74  |rror%=0..z..cont|
00002000  63 6f 6e 74 6c 6f 61 64  0d 08 84 05 e1 0d 08 8e  |contload........|
00002010  04 0d 08 98 12 dd f2 63  6f 6e 74 63 6f 6e 74 6c  |.......contcontl|
00002020  6f 61 64 0d 08 a2 19 6d  79 6e 75 6d 25 3d 31 2e  |oad....mynum%=1.|
00002030  32 36 2b 30 2e 37 35 2b  30 2e 39 39 0d 08 ac 59  |26+0.75+0.99...Y|
00002040  73 74 6e 67 24 3d a4 75  6e 74 61 6e 67 6c 65 28  |stng$=.untangle(|
00002050  22 6c 69 68 73 75 76 74  22 2c 6d 79 6e 75 6d 25  |"lihsuvt",mynum%|
00002060  29 3a 73 74 72 6e 67 24  3d a4 75 6e 74 61 6e 67  |):strng$=.untang|
00002070  6c 65 28 22 44 63 65 6d  22 22 68 74 71 6f 22 22  |le("Dcem""htqo""|
00002080  76 6a 67 22 22 66 67 63  66 23 22 2c 6d 79 6e 75  |vjg""fgcf#",mynu|
00002090  6d 25 2d 31 29 0d 08 b6  0e e3 20 61 3d 31 20 b8  |m%-1)..... a=1 .|
000020a0  20 31 34 0d 08 c0 0c f3  20 65 63 24 28 61 29 0d  | 14..... ec$(a).|
000020b0  08 ca 23 65 63 24 28 61  29 3d a4 75 6e 74 61 6e  |..#ec$(a)=.untan|
000020c0  67 6c 65 28 65 63 24 28  61 29 2c 6d 79 6e 75 6d  |gle(ec$(a),mynum|
000020d0  25 29 0d 08 d4 07 ed 20  61 0d 08 de 0c f2 69 63  |%)..... a.....ic|
000020e0  6f 6e 62 61 72 0d 08 e8  0d f2 6c 6f 61 64 64 61  |onbar.....loadda|
000020f0  74 61 0d 08 f2 11 e3 20  61 25 3d 31 20 b8 20 6e  |ta..... a%=1 . n|
00002100  6f 7a 25 0d 08 fc 15 e3  20 62 25 3d 31 20 b8 20  |oz%..... b%=1 . |
00002110  6d 61 70 73 69 7a 65 25  0d 09 06 12 f3 20 6d 70  |mapsize%..... mp|
00002120  64 74 25 28 61 25 2c 62  25 29 0d 09 10 08 ed 20  |dt%(a%,b%)..... |
00002130  62 25 0d 09 1a 08 ed 20  61 25 0d 09 24 10 f2 6c  |b%..... a%..$..l|
00002140  6f 61 64 6f 70 74 69 6f  6e 73 0d 09 2e 1b f2 64  |oadoptions.....d|
00002150  65 63 69 64 65 74 69 74  6c 65 3a f2 64 65 63 69  |ecidetitle:.deci|
00002160  64 65 70 6f 73 0d 09 38  11 f2 64 65 63 69 64 65  |depos..8..decide|
00002170  73 68 61 64 65 64 0d 09  42 4b f2 61 64 64 28 22  |shaded..BK.add("|
00002180  57 65 6c 63 6f 6d 65 20  74 6f 20 79 6f 75 72 20  |Welcome to your |
00002190  71 75 65 73 74 20 62 72  61 76 65 20 61 64 76 65  |quest brave adve|
000021a0  6e 74 75 72 65 72 2e 22  29 3a 69 24 3d 22 6c 6f  |nturer."):i$="lo|
000021b0  6f 6b 22 3a f2 6c 6f 6f  6b 3a 74 65 6d 70 25 3d  |ok":.look:temp%=|
000021c0  30 0d 09 4c 1f f2 73 65  74 69 63 6f 6e 28 69 6e  |0..L..seticon(in|
000021d0  68 61 6e 25 2c 34 2c 56  65 72 73 69 6f 6e 24 29  |han%,4,Version$)|
000021e0  0d 09 56 32 77 69 6d 70  25 21 30 3d 67 72 65 65  |..V2wimp%!0=gree|
000021f0  74 68 61 6e 25 3a c8 99  22 57 69 6d 70 5f 44 65  |than%:.."Wimp_De|
00002200  6c 65 74 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |leteWindow",,wim|
00002210  70 25 0d 09 60 1a c8 99  20 22 4f 53 5f 47 65 74  |p%..`... "OS_Get|
00002220  45 6e 76 22 20 b8 20 66  69 6c 65 24 0d 09 6a 17  |Env" . file$..j.|
00002230  e7 20 a7 66 69 6c 65 24  2c 22 2d 71 75 69 74 22  |. .file$,"-quit"|
00002240  29 20 8c 0d 09 74 13 49  25 3d a7 66 69 6c 65 24  |) ...t.I%=.file$|
00002250  2c 22 22 22 22 29 0d 09  7e 18 49 25 3d a7 66 69  |,"""")..~.I%=.fi|
00002260  6c 65 24 2c 22 22 22 22  2c 49 25 2b 31 29 0d 09  |le$,"""",I%+1)..|
00002270  88 05 f5 0d 09 92 09 49  25 2b 3d 31 0d 09 9c 17  |.......I%+=1....|
00002280  fd 20 c1 66 69 6c 65 24  2c 49 25 2c 31 29 3c 3e  |. .file$,I%,1)<>|
00002290  22 20 22 0d 09 a6 14 66  69 6c 65 24 3d c1 66 69  |" "....file$=.fi|
000022a0  6c 65 24 2c 49 25 29 0d  09 b0 20 e7 20 66 69 6c  |le$,I%)... . fil|
000022b0  65 24 3c 3e 22 22 20 f2  6c 6f 61 64 65 72 28 66  |e$<>"" .loader(f|
000022c0  69 6c 65 24 2c 31 29 0d  09 ba 05 e1 0d 09 c4 04  |ile$,1).........|
000022d0  0d 09 ce 11 dd f2 64 65  63 69 64 65 74 69 74 6c  |......decidetitl|
000022e0  65 0d 09 d8 13 74 69 74  6c 65 72 24 3d 22 4d 61  |e....titler$="Ma|
000022f0  70 20 2d 22 0d 09 e2 0e  c8 8e 20 7a 6f 6e 65 25  |p -"...... zone%|
00002300  20 ca 0d 09 ec 1b c9 20  31 2c 34 20 3a 20 74 69  | ...... 1,4 : ti|
00002310  74 6c 65 72 24 2b 3d 22  54 6f 77 6e 22 0d 09 f6  |tler$+="Town"...|
00002320  19 c9 20 32 20 3a 20 74  69 74 6c 65 72 24 2b 3d  |.. 2 : titler$+=|
00002330  22 4a 61 69 6c 22 0d 0a  00 19 c9 20 33 20 3a 20  |"Jail"..... 3 : |
00002340  74 69 74 6c 65 72 24 2b  3d 22 4d 61 7a 65 22 0d  |titler$+="Maze".|
00002350  0a 0a 05 cb 0d 0a 14 05  e1 0d 0a 1e 04 0d 0a 28  |...............(|
00002360  21 dd f2 74 6f 67 67 6c  65 69 63 6f 6e 28 77 69  |!..toggleicon(wi|
00002370  6d 70 25 21 30 2c 77 69  6d 70 25 21 34 29 0d 0a  |mp%!0,wimp%!4)..|
00002380  32 1e 77 69 6d 70 25 21  38 3d 26 32 30 30 30 30  |2.wimp%!8=&20000|
00002390  30 3a 77 69 6d 70 25 21  31 32 3d 30 0d 0a 3c 21  |0:wimp%!12=0..<!|
000023a0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000023b0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 0a 46  |State",,wimp%..F|
000023c0  05 e1 0d 0a 50 04 0d 0a  5a 12 dd f2 64 65 63 69  |....P...Z...deci|
000023d0  64 65 73 68 61 64 65 64  0d 0a 64 2b c8 99 20 22  |deshaded..d+.. "|
000023e0  58 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |XOS_ReadModeVari|
000023f0  61 62 6c 65 22 2c eb 2c  33 20 b8 20 2c 2c 63 6f  |able",.,3 . ,,co|
00002400  6c 73 25 0d 0a 6e 23 e7  20 63 6f 6c 73 25 3c 3e  |ls%..n#. cols%<>|
00002410  31 35 20 80 20 70 69 63  79 6e 25 3d 31 20 70 69  |15 . picyn%=1 pi|
00002420  63 79 6e 25 3d 32 0d 0a  78 22 e7 20 63 6f 6c 73  |cyn%=2..x". cols|
00002430  25 3d 31 35 20 80 20 70  69 63 79 6e 25 3d 32 20  |%=15 . picyn%=2 |
00002440  70 69 63 79 6e 25 3d 31  0d 0a 82 1c e7 20 73 68  |picyn%=1..... sh|
00002450  61 64 65 64 25 3d 30 20  80 20 70 69 63 79 6e 25  |aded%=0 . picyn%|
00002460  3d 32 20 8c 0d 0a 8c 0d  73 68 61 64 65 64 25 3d  |=2 .....shaded%=|
00002470  31 0d 0a 96 3c 77 69 6d  70 25 21 30 3d 75 73 65  |1...<wimp%!0=use|
00002480  72 68 61 6e 25 3a 77 69  6d 70 25 21 34 3d 31 31  |rhan%:wimp%!4=11|
00002490  3a 77 69 6d 70 25 21 31  32 3d 31 3c 3c 32 32 3a  |:wimp%!12=1<<22:|
000024a0  77 69 6d 70 25 21 38 3d  31 3c 3c 32 32 0d 0a a0  |wimp%!8=1<<22...|
000024b0  20 c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  | .."Wimp_SetIcon|
000024c0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 0a aa  |State",,wimp%...|
000024d0  05 cd 0d 0a b4 1c e7 20  73 68 61 64 65 64 25 3d  |....... shaded%=|
000024e0  31 20 80 20 70 69 63 79  6e 25 3d 31 20 8c 0d 0a  |1 . picyn%=1 ...|
000024f0  be 0d 73 68 61 64 65 64  25 3d 30 0d 0a c8 38 77  |..shaded%=0...8w|
00002500  69 6d 70 25 21 30 3d 75  73 65 72 68 61 6e 25 3a  |imp%!0=userhan%:|
00002510  77 69 6d 70 25 21 34 3d  31 31 3a 77 69 6d 70 25  |wimp%!4=11:wimp%|
00002520  21 31 32 3d 31 3c 3c 32  32 3a 77 69 6d 70 25 21  |!12=1<<22:wimp%!|
00002530  38 3d 30 0d 0a d2 20 c8  99 22 57 69 6d 70 5f 53  |8=0... .."Wimp_S|
00002540  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00002550  6d 70 25 0d 0a dc 05 cd  0d 0a e6 1c e7 20 73 68  |mp%.......... sh|
00002560  61 64 65 64 25 3d 30 20  80 20 70 69 63 79 6e 25  |aded%=0 . picyn%|
00002570  3d 30 20 8c 0d 0a f0 0d  73 68 61 64 65 64 25 3d  |=0 .....shaded%=|
00002580  31 0d 0a fa 3c 77 69 6d  70 25 21 30 3d 75 73 65  |1...<wimp%!0=use|
00002590  72 68 61 6e 25 3a 77 69  6d 70 25 21 34 3d 31 31  |rhan%:wimp%!4=11|
000025a0  3a 77 69 6d 70 25 21 31  32 3d 31 3c 3c 32 32 3a  |:wimp%!12=1<<22:|
000025b0  77 69 6d 70 25 21 38 3d  31 3c 3c 32 32 0d 0b 04  |wimp%!8=1<<22...|
000025c0  20 c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  | .."Wimp_SetIcon|
000025d0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 0b 0e  |State",,wimp%...|
000025e0  05 cd 0d 0b 18 05 e1 0d  0b 22 04 0d 0b 2c 0f dd  |........."...,..|
000025f0  f2 63 68 65 63 6b 64 72  61 67 0d 0b 36 44 c8 99  |.checkdrag..6D..|
00002600  20 22 58 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  | "XOS_SWINumberF|
00002610  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 22 44 72 61  |romString",,"Dra|
00002620  67 41 53 70 72 69 74 65  5f 53 74 61 72 74 22 20  |gASprite_Start" |
00002630  b8 20 64 72 61 67 79 6e  25 3b 66 6c 61 67 0d 0b  |. dragyn%;flag..|
00002640  40 1b e7 20 28 66 6c 61  67 20 80 20 31 29 20 64  |@.. (flag . 1) d|
00002650  72 61 67 79 6e 25 3d 2d  31 0d 0b 4a 13 e7 20 64  |ragyn%=-1..J.. d|
00002660  72 61 67 79 6e 25 3c 3e  2d 31 20 8c 0d 0b 54 20  |ragyn%<>-1 ...T |
00002670  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 36 31  |.. "OS_Byte",161|
00002680  2c 32 38 20 b8 20 2c 2c  63 6d 6f 73 0d 0b 5e 1d  |,28 . ,,cmos..^.|
00002690  e7 20 28 63 6d 6f 73 20  80 20 32 29 3d 30 20 64  |. (cmos . 2)=0 d|
000026a0  72 61 67 79 6e 25 3d 2d  31 0d 0b 68 05 cd 0d 0b  |ragyn%=-1..h....|
000026b0  72 05 e1 0d 0b 7c 04 0d  0b 86 0f dd f2 64 65 63  |r....|.......dec|
000026c0  69 64 65 70 6f 73 0d 0b  90 10 f2 64 65 63 69 64  |idepos.....decid|
000026d0  65 74 69 74 6c 65 0d 0b  9a 20 74 69 74 6c 65 24  |etitle... title$|
000026e0  3d 72 65 6e 74 72 79 24  28 72 6f 6f 6d 6e 6f 25  |=rentry$(roomno%|
000026f0  29 2b 22 20 28 22 0d 0b  a4 10 79 65 61 72 24 3d  |)+" ("....year$=|
00002700  22 31 37 39 34 22 0d 0b  ae 0e c8 8e 20 7a 6f 6e  |"1794"...... zon|
00002710  65 25 20 ca 0d 0b b8 18  c9 20 31 20 3a 20 74 69  |e% ...... 1 : ti|
00002720  74 6c 65 24 2b 3d 22 54  6f 77 6e 22 0d 0b c2 18  |tle$+="Town"....|
00002730  c9 20 32 20 3a 20 74 69  74 6c 65 24 2b 3d 22 4a  |. 2 : title$+="J|
00002740  61 69 6c 22 0d 0b cc 18  c9 20 33 20 3a 20 74 69  |ail"..... 3 : ti|
00002750  74 6c 65 24 2b 3d 22 4d  61 7a 65 22 0d 0b d6 25  |tle$+="Maze"...%|
00002760  c9 20 34 20 3a 20 74 69  74 6c 65 24 2b 3d 22 54  |. 4 : title$+="T|
00002770  6f 77 6e 22 3a 79 65 61  72 24 3d 22 31 39 39 34  |own":year$="1994|
00002780  22 0d 0b e0 05 cb 0d 0b  ea 10 74 69 74 6c 65 24  |".........title$|
00002790  2b 3d 22 29 2e 22 0d 0b  f4 1f f2 73 65 74 69 63  |+=").".....setic|
000027a0  6f 6e 28 70 6f 73 69 68  61 6e 25 2c 30 2c 74 69  |on(posihan%,0,ti|
000027b0  74 6c 65 24 29 0d 0b fe  1e f2 73 65 74 69 63 6f  |tle$).....setico|
000027c0  6e 28 70 6f 73 69 68 61  6e 25 2c 31 2c 79 65 61  |n(posihan%,1,yea|
000027d0  72 24 29 0d 0c 08 05 e1  0d 0c 12 04 0d 0c 1c 11  |r$).............|
000027e0  dd f2 69 6e 74 65 72 61  63 74 69 76 65 0d 0c 26  |..interactive..&|
000027f0  09 74 24 3d 22 22 0d 0c  30 10 69 6e 74 65 72 25  |.t$=""..0.inter%|
00002800  3d 77 69 6d 70 25 0d 0c  3a 15 69 6e 74 65 72 25  |=wimp%..:.inter%|
00002810  21 31 32 3d 77 69 6d 70  25 21 38 0d 0c 44 12 69  |!12=wimp%!8..D.i|
00002820  6e 74 65 72 25 21 31 36  3d 26 35 30 33 0d 0c 4e  |nter%!16=&503..N|
00002830  12 c8 8e 20 69 6e 74 65  72 25 21 33 32 20 ca 0d  |... inter%!32 ..|
00002840  0c 58 7d c9 20 2d 32 20  3a 20 74 24 3d 22 54 68  |.X}. -2 : t$="Th|
00002850  69 73 20 69 73 20 74 68  65 20 47 6f 72 6d 20 61  |is is the Gorm a|
00002860  70 70 6c 69 63 61 74 69  6f 6e 2e 7c 4d 43 6c 69  |pplication.|MCli|
00002870  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 64 69 73  |ck SELECT to dis|
00002880  70 6c 61 79 20 74 68 65  20 61 64 76 65 6e 74 75  |play the adventu|
00002890  72 65 20 77 69 6e 64 6f  77 2e 7c 4d 43 6c 69 63  |re window.|MClic|
000028a0  6b 20 41 44 4a 55 53 54  20 74 6f 20 64 69 73 70  |k ADJUST to disp|
000028b0  6c 61 79 20 74 68 65 20  6d 61 70 22 0d 0c 62 2d  |lay the map"..b-|
000028c0  20 20 c8 99 20 22 58 4f  53 5f 52 65 61 64 4d 6f  |  .. "XOS_ReadMo|
000028d0  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 33 20  |deVariable",.,3 |
000028e0  b8 20 2c 2c 63 6f 6c 73  25 0d 0c 6c 25 20 20 e7  |. ,,cols%..l%  .|
000028f0  20 63 6f 6c 73 25 3c 3e  31 35 20 80 20 70 69 63  | cols%<>15 . pic|
00002900  79 6e 25 3d 31 20 70 69  63 79 6e 25 3d 32 0d 0c  |yn%=1 picyn%=2..|
00002910  76 24 20 20 e7 20 63 6f  6c 73 25 3d 31 35 20 80  |v$  . cols%=15 .|
00002920  20 70 69 63 79 6e 25 3d  32 20 70 69 63 79 6e 25  | picyn%=2 picyn%|
00002930  3d 31 0d 0c 80 3d 20 20  e7 20 70 69 63 79 6e 25  |=1...=  . picyn%|
00002940  3d 31 20 74 24 2b 3d 22  20 61 6e 64 20 70 69 63  |=1 t$+=" and pic|
00002950  74 75 72 65 20 77 69 6e  64 6f 77 73 2e 22 20 8b  |ture windows." .|
00002960  20 74 24 2b 3d 22 20 77  69 6e 64 6f 77 2e 22 0d  | t$+=" window.".|
00002970  0c 8a 4f c9 20 67 72 65  65 74 68 61 6e 25 20 3a  |..O. greethan% :|
00002980  20 74 24 3d 22 21 47 6f  72 6d 2c 20 62 79 20 43  | t$="!Gorm, by C|
00002990  68 72 69 73 20 41 6c 6c  65 6e 2c 20 69 73 20 6c  |hris Allen, is l|
000029a0  6f 61 64 69 6e 67 2e 7c  4d 50 6c 65 61 73 65 20  |oading.|MPlease |
000029b0  62 65 20 70 61 74 69 65  6e 74 2e 2e 2e 22 0d 0c  |be patient..."..|
000029c0  94 62 c9 20 61 64 76 65  6e 74 68 61 6e 25 20 3a  |.b. adventhan% :|
000029d0  20 74 24 3d 22 54 68 65  20 61 64 76 65 6e 74 75  | t$="The adventu|
000029e0  72 65 20 77 69 6e 64 6f  77 2e 7c 4d 54 68 69 73  |re window.|MThis|
000029f0  20 77 69 6e 64 6f 77 20  73 68 6f 77 73 20 74 68  | window shows th|
00002a00  65 20 74 65 78 74 20 61  64 76 65 6e 74 75 72 65  |e text adventure|
00002a10  20 61 74 20 74 68 65 20  6d 6f 6d 65 6e 74 2e 22  | at the moment."|
00002a20  0d 0c 9e 62 c9 20 70 6f  73 69 68 61 6e 25 20 3a  |...b. posihan% :|
00002a30  20 74 24 3d 22 54 68 65  20 70 6f 73 69 74 69 6f  | t$="The positio|
00002a40  6e 20 70 61 6e 65 6c 2e  7c 4d 54 68 69 73 20 70  |n panel.|MThis p|
00002a50  61 6e 65 6c 20 74 65 6c  6c 73 20 79 6f 75 20 77  |anel tells you w|
00002a60  68 65 72 65 20 79 6f 75  20 61 72 65 20 61 6e 64  |here you are and|
00002a70  20 77 68 61 74 20 79 65  61 72 20 69 74 20 69 73  | what year it is|
00002a80  2e 22 0d 0c a8 77 c9 20  70 69 63 63 69 65 68 61  |."...w. piccieha|
00002a90  6e 25 20 3a 20 74 24 3d  22 54 68 65 20 70 69 63  |n% : t$="The pic|
00002aa0  74 75 72 65 20 77 69 6e  64 6f 77 2e 7c 4d 54 68  |ture window.|MTh|
00002ab0  69 73 20 73 68 6f 77 73  20 74 68 65 20 70 69 63  |is shows the pic|
00002ac0  74 75 72 65 20 74 68 61  74 20 69 73 20 6d 6f 73  |ture that is mos|
00002ad0  74 20 72 65 6c 65 76 61  6e 74 20 74 6f 20 79 6f  |t relevant to yo|
00002ae0  75 72 20 70 6f 73 69 74  69 6f 6e 20 69 6e 20 74  |ur position in t|
00002af0  68 65 20 67 61 6d 65 2e  22 0d 0c b2 3a c9 20 69  |he game."...:. i|
00002b00  6e 68 61 6e 25 20 3a 20  74 24 3d 22 41 6c 6c 20  |nhan% : t$="All |
00002b10  74 68 65 20 65 78 74 72  65 6d 65 6c 79 20 69 6e  |the extremely in|
00002b20  74 65 72 65 73 74 69 6e  67 20 73 74 75 66 66 2e  |teresting stuff.|
00002b30  2e 2e 22 0d 0c bc 5a c9  20 75 73 65 72 68 61 6e  |.."...Z. userhan|
00002b40  25 20 3a 20 74 24 3d 22  54 68 65 20 69 6e 70 75  |% : t$="The inpu|
00002b50  74 20 70 61 6e 65 6c 2e  7c 4d 54 68 69 73 20 69  |t panel.|MThis i|
00002b60  73 20 77 68 65 72 65 20  79 6f 75 20 65 6e 74 65  |s where you ente|
00002b70  72 20 74 68 65 20 6f 72  64 65 72 73 2e 22 3a c8  |r the orders.":.|
00002b80  8e 20 69 6e 74 65 72 25  21 33 36 20 ca 0d 0c c6  |. inter%!36 ....|
00002b90  2d 20 20 c9 20 30 20 3a  20 74 24 2b 3d 22 7c 4d  |-  . 0 : t$+="|M|
00002ba0  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00002bb0  67 6f 20 6e 6f 72 74 68  2e 22 0d 0c d0 8a 20 20  |go north."....  |
00002bc0  c9 20 31 20 3a 20 74 24  2b 3d 22 7c 4d 45 6e 74  |. 1 : t$+="|MEnt|
00002bd0  65 72 20 74 68 65 20 6f  72 64 65 72 73 20 69 6e  |er the orders in|
00002be0  74 6f 20 74 68 69 73 20  69 63 6f 6e 2c 20 74 68  |to this icon, th|
00002bf0  65 6e 20 70 72 65 73 73  20 52 45 54 55 52 4e 20  |en press RETURN |
00002c00  6f 72 20 63 6c 69 63 6b  20 6f 6e 20 4f 4b 2e 7c  |or click on OK.||
00002c10  4d 28 43 74 72 6c 2b 55  20 63 6c 65 61 72 73 20  |M(Ctrl+U clears |
00002c20  74 68 69 73 20 69 63 6f  6e 20 77 68 65 6e 20 74  |this icon when t|
00002c30  68 65 20 63 61 72 65 74  20 69 73 20 69 6e 20 69  |he caret is in i|
00002c40  74 29 2e 22 0d 0c da 88  20 20 c9 20 32 20 3a 20  |t)."....  . 2 : |
00002c50  74 24 2b 3d 22 7c 4d 43  6c 69 63 6b 20 53 45 4c  |t$+="|MClick SEL|
00002c60  45 43 54 20 74 6f 20 70  72 6f 63 65 73 73 20 74  |ECT to process t|
00002c70  68 65 20 69 6e 73 74 72  75 63 74 69 6f 6e 2c 20  |he instruction, |
00002c80  63 6c 69 63 6b 20 41 44  4a 55 53 54 20 74 6f 20  |click ADJUST to |
00002c90  70 72 6f 63 65 73 73 20  74 68 65 20 69 6e 73 74  |process the inst|
00002ca0  72 75 63 74 69 6f 6e 20  77 69 74 68 6f 75 74 20  |ruction without |
00002cb0  63 6c 65 61 72 69 6e 67  20 74 68 65 20 77 72 69  |clearing the wri|
00002cc0  74 61 62 6c 65 20 69 63  6f 6e 2e 22 0d 0c e4 2c  |table icon."...,|
00002cd0  20 20 c9 20 33 20 3a 20  74 24 2b 3d 22 7c 4d 43  |  . 3 : t$+="|MC|
00002ce0  6c 69 63 6b 20 53 45 4c  45 43 54 20 74 6f 20 67  |lick SELECT to g|
00002cf0  6f 20 65 61 73 74 2e 22  0d 0c ee 2d 20 20 c9 20  |o east."...-  . |
00002d00  34 20 3a 20 74 24 2b 3d  22 7c 4d 43 6c 69 63 6b  |4 : t$+="|MClick|
00002d10  20 53 45 4c 45 43 54 20  74 6f 20 67 6f 20 73 6f  | SELECT to go so|
00002d20  75 74 68 2e 22 0d 0c f8  2c 20 20 c9 20 35 20 3a  |uth."...,  . 5 :|
00002d30  20 74 24 2b 3d 22 7c 4d  43 6c 69 63 6b 20 53 45  | t$+="|MClick SE|
00002d40  4c 45 43 54 20 74 6f 20  67 6f 20 77 65 73 74 2e  |LECT to go west.|
00002d50  22 0d 0d 02 2a 20 20 c9  20 36 20 3a 20 74 24 2b  |"...*  . 6 : t$+|
00002d60  3d 22 7c 4d 43 6c 69 63  6b 20 53 45 4c 45 43 54  |="|MClick SELECT|
00002d70  20 74 6f 20 67 6f 20 75  70 2e 22 0d 0d 0c 2c 20  | to go up."..., |
00002d80  20 c9 20 37 20 3a 20 74  24 2b 3d 22 7c 4d 43 6c  | . 7 : t$+="|MCl|
00002d90  69 63 6b 20 53 45 4c 45  43 54 20 74 6f 20 67 6f  |ick SELECT to go|
00002da0  20 64 6f 77 6e 2e 22 0d  0d 16 29 20 20 c9 20 38  | down."...)  . 8|
00002db0  20 3a 20 74 24 2b 3d 22  7c 4d 43 6c 69 63 6b 20  | : t$+="|MClick |
00002dc0  53 45 4c 45 43 54 20 74  6f 20 6c 6f 6f 6b 2e 22  |SELECT to look."|
00002dd0  0d 0d 20 32 20 20 c9 20  39 20 3a 20 74 24 2b 3d  |.. 2  . 9 : t$+=|
00002de0  22 7c 4d 43 6c 69 63 6b  20 53 45 4c 45 43 54 20  |"|MClick SELECT |
00002df0  66 6f 72 20 61 6e 20 69  6e 76 65 6e 74 6f 72 79  |for an inventory|
00002e00  2e 22 0d 0d 2a 39 20 20  c9 20 31 30 20 3a 20 74  |."..*9  . 10 : t|
00002e10  24 2b 3d 22 7c 4d 43 6c  69 63 6b 20 53 45 4c 45  |$+="|MClick SELE|
00002e20  43 54 20 66 6f 72 20 74  68 65 20 70 6f 73 73 69  |CT for the possi|
00002e30  62 6c 65 20 65 78 69 74  73 2e 22 0d 0d 34 37 20  |ble exits."..47 |
00002e40  20 c9 20 31 31 20 3a 20  74 24 2b 3d 22 7c 4d 43  | . 11 : t$+="|MC|
00002e50  6c 69 63 6b 20 53 45 4c  45 43 54 20 74 6f 20 76  |lick SELECT to v|
00002e60  69 65 77 20 74 68 65 20  70 69 63 74 75 72 65 73  |iew the pictures|
00002e70  2e 22 0d 0d 3e 32 20 20  c9 20 31 32 20 3a 20 74  |."..>2  . 12 : t|
00002e80  24 2b 3d 22 7c 4d 43 6c  69 63 6b 20 53 45 4c 45  |$+="|MClick SELE|
00002e90  43 54 20 74 6f 20 76 69  65 77 20 74 68 65 20 6d  |CT to view the m|
00002ea0  61 70 2e 22 0d 0d 48 ac  20 20 c9 20 31 33 20 3a  |ap."..H.  . 13 :|
00002eb0  20 74 24 2b 3d 22 7c 4d  43 6c 69 63 6b 20 53 45  | t$+="|MClick SE|
00002ec0  4c 45 43 54 20 74 6f 20  73 61 76 65 20 74 68 65  |LECT to save the|
00002ed0  20 67 61 6d 65 2c 20 69  66 20 74 68 65 20 67 61  | game, if the ga|
00002ee0  6d 65 20 68 61 73 20 6e  6f 74 20 62 65 65 6e 20  |me has not been |
00002ef0  73 61 76 65 64 20 62 65  66 6f 72 65 20 74 68 65  |saved before the|
00002f00  20 73 61 76 65 20 77 69  6e 64 6f 77 20 77 69 6c  | save window wil|
00002f10  6c 20 61 70 70 65 61 72  2e 7c 4d 43 6c 69 63 6b  |l appear.|MClick|
00002f20  20 41 44 4a 55 53 54 20  74 6f 20 62 72 69 6e 67  | ADJUST to bring|
00002f30  20 75 70 20 74 68 65 20  73 61 76 65 20 77 69 6e  | up the save win|
00002f40  64 6f 77 20 72 65 67 61  72 64 6c 65 73 73 2e 22  |dow regardless."|
00002f50  0d 0d 52 05 cb 0d 0d 5c  2e c9 20 6b 25 20 3a 20  |..R....\.. k% : |
00002f60  74 24 3d 22 54 68 65 20  73 61 76 65 20 62 6f 78  |t$="The save box|
00002f70  2e 7c 4d 22 3a c8 8e 20  69 6e 74 65 72 25 21 33  |.|M":.. inter%!3|
00002f80  36 20 ca 0d 0d 66 53 c9  20 30 20 3a 20 74 24 2b  |6 ...fS. 0 : t$+|
00002f90  3d 22 44 72 61 67 20 74  68 69 73 20 69 63 6f 6e  |="Drag this icon|
00002fa0  20 74 6f 20 74 68 65 20  64 69 72 65 63 74 6f 72  | to the director|
00002fb0  79 20 69 6e 20 77 68 69  63 68 20 79 6f 75 20 77  |y in which you w|
00002fc0  61 6e 74 20 74 6f 20 73  61 76 65 20 74 68 65 20  |ant to save the |
00002fd0  66 69 6c 65 2e 22 0d 0d  70 3f c9 20 31 20 3a 20  |file."..p?. 1 : |
00002fe0  74 24 2b 3d 22 45 6e 74  65 72 20 74 68 65 20 66  |t$+="Enter the f|
00002ff0  69 6c 65 6e 61 6d 65 20  66 6f 72 20 74 68 65 20  |ilename for the |
00003000  66 69 6c 65 20 69 6e 74  6f 20 74 68 69 73 20 69  |file into this i|
00003010  63 6f 6e 2e 22 0d 0d 7a  91 c9 20 32 20 3a 20 74  |con."..z.. 2 : t|
00003020  24 2b 3d 22 43 6c 69 63  6b 20 68 65 72 65 20 74  |$+="Click here t|
00003030  6f 20 73 61 76 65 20 74  68 65 20 66 69 6c 65 20  |o save the file |
00003040  77 69 74 68 20 74 68 65  20 63 75 72 72 65 6e 74  |with the current|
00003050  20 66 69 6c 65 6e 61 6d  65 2e 20 49 66 20 69 74  | filename. If it|
00003060  20 69 73 20 6e 6f 74 20  61 20 66 75 6c 6c 20 70  | is not a full p|
00003070  61 74 68 6e 61 6d 65 2c  20 79 6f 75 20 6d 75 73  |athname, you mus|
00003080  74 20 64 72 61 67 20 74  68 65 20 69 63 6f 6e 20  |t drag the icon |
00003090  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 66  |to a directory f|
000030a0  69 72 73 74 2e 22 0d 0d  84 38 c9 20 33 20 3a 20  |irst."...8. 3 : |
000030b0  74 24 2b 3d 22 43 6c 69  63 6b 20 53 45 4c 45 43  |t$+="Click SELEC|
000030c0  54 20 74 6f 20 73 61 76  65 20 74 68 65 20 47 6f  |T to save the Go|
000030d0  72 6d 20 61 64 76 65 6e  74 75 72 65 2e 22 0d 0d  |rm adventure."..|
000030e0  8e 4a c9 20 34 20 3a 20  74 24 2b 3d 22 43 6c 69  |.J. 4 : t$+="Cli|
000030f0  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 73 61 76  |ck SELECT to sav|
00003100  65 20 74 68 65 20 74 65  78 74 20 69 6e 73 69 64  |e the text insid|
00003110  65 20 74 68 65 20 61 64  76 65 6e 74 75 72 65 20  |e the adventure |
00003120  77 69 6e 64 6f 77 2e 22  0d 0d 98 24 7f 20 3a 20  |window."...$. : |
00003130  74 24 2b 3d 22 53 61 76  65 20 74 68 65 20 22 3a  |t$+="Save the ":|
00003140  c8 8e 20 73 61 76 65 67  74 25 20 ca 0d 0d a2 5d  |.. savegt% ....]|
00003150  c9 20 31 20 3a 20 74 24  2b 3d 22 67 61 6d 65 20  |. 1 : t$+="game |
00003160  62 79 20 64 72 61 67 67  69 6e 67 20 74 68 65 20  |by dragging the |
00003170  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00003180  6f 72 79 20 76 69 65 77  65 72 20 69 6e 20 74 68  |ory viewer in th|
00003190  65 20 75 73 75 61 6c 20  52 49 53 43 20 4f 53 20  |e usual RISC OS |
000031a0  66 61 73 68 69 6f 6e 2e  22 0d 0d ac 5d c9 20 32  |fashion."...]. 2|
000031b0  20 3a 20 74 24 2b 3d 22  74 65 78 74 20 62 79 20  | : t$+="text by |
000031c0  64 72 61 67 67 69 6e 67  20 74 68 65 20 69 63 6f  |dragging the ico|
000031d0  6e 20 74 6f 20 61 20 64  69 72 65 63 74 6f 72 79  |n to a directory|
000031e0  20 76 69 65 77 65 72 20  69 6e 20 74 68 65 20 75  | viewer in the u|
000031f0  73 75 61 6c 20 52 49 53  43 20 4f 53 20 66 61 73  |sual RISC OS fas|
00003200  68 69 6f 6e 2e 22 0d 0d  b6 05 cb 0d 0d c0 05 cb  |hion."..........|
00003210  0d 0d ca ce c9 20 6d 61  70 68 61 6e 25 20 3a 20  |..... maphan% : |
00003220  74 24 3d 22 54 68 65 20  6d 61 70 20 77 69 6e 64  |t$="The map wind|
00003230  6f 77 2e 7c 4d 54 68 69  73 20 77 69 6e 64 6f 77  |ow.|MThis window|
00003240  20 6d 61 70 73 20 61 20  70 6c 61 6e 20 76 69 65  | maps a plan vie|
00003250  77 20 6f 66 20 61 6c 6c  20 74 68 65 20 70 6c 61  |w of all the pla|
00003260  63 65 73 20 79 6f 75 20  68 61 76 65 20 76 69 73  |ces you have vis|
00003270  69 74 65 64 2e 7c 4d 55  70 20 61 6e 64 20 64 6f  |ited.|MUp and do|
00003280  77 6e 20 61 72 72 6f 77  73 20 6d 65 61 6e 20 74  |wn arrows mean t|
00003290  68 65 72 65 20 61 72 65  20 65 78 69 74 73 20 75  |here are exits u|
000032a0  70 20 61 6e 64 20 64 6f  77 6e 20 61 6e 64 20 79  |p and down and y|
000032b0  6f 75 72 20 63 75 72 72  65 6e 74 20 70 6f 73 69  |our current posi|
000032c0  74 69 6f 6e 20 69 73 20  6d 61 72 6b 65 64 20 62  |tion is marked b|
000032d0  79 20 61 20 72 65 64 20  73 70 6f 74 2e 22 0d 0d  |y a red spot."..|
000032e0  d4 3a e7 20 7a 6f 6e 65  25 3d 32 20 84 20 7a 6f  |.:. zone%=2 . zo|
000032f0  6e 65 25 3d 33 20 74 24  2b 3d 22 20 59 65 6c 6c  |ne%=3 t$+=" Yell|
00003300  6f 77 20 73 70 6f 74 73  20 61 72 65 20 70 6f 6c  |ow spots are pol|
00003310  69 63 65 6d 65 6e 2e 22  0d 0d de 38 c9 20 77 61  |icemen."...8. wa|
00003320  72 6e 68 61 6e 25 20 3a  20 74 24 3d 22 54 68 65  |rnhan% : t$="The|
00003330  20 6d 65 73 73 61 67 65  20 77 69 6e 64 6f 77 2e  | message window.|
00003340  22 3a c8 8e 20 69 6e 74  65 72 25 21 33 36 20 ca  |":.. inter%!36 .|
00003350  0d 0d e8 34 c9 20 35 20  3a 20 74 24 2b 3d 22 7c  |...4. 5 : t$+="||
00003360  4d 43 6c 69 63 6b 20 53  45 4c 45 43 54 20 74 6f  |MClick SELECT to|
00003370  20 72 65 6d 6f 76 65 20  74 68 65 20 77 69 6e 64  | remove the wind|
00003380  6f 77 2e 22 0d 0d f2 2b  c9 20 36 20 3a 20 74 24  |ow."...+. 6 : t$|
00003390  2b 3d 22 7c 4d 43 6c 69  63 6b 20 53 45 4c 45 43  |+="|MClick SELEC|
000033a0  54 20 74 6f 20 63 6f 6e  74 69 6e 75 65 2e 22 0d  |T to continue.".|
000033b0  0d fc 05 cb 0d 0e 06 05  cb 0d 0e 10 0c 74 24 2b  |.............t$+|
000033c0  3d bd 28 30 29 0d 0e 1a  13 24 28 69 6e 74 65 72  |=.(0)....$(inter|
000033d0  25 2b 32 30 29 3d 74 24  0d 0e 24 21 69 6e 74 65  |%+20)=t$..$!inte|
000033e0  72 25 21 30 3d 28 28 28  32 31 2b a9 28 74 24 29  |r%!0=(((21+.(t$)|
000033f0  29 81 34 29 2a 34 29 2b  34 0d 0e 2e 23 c8 99 20  |).4)*4)+4...#.. |
00003400  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00003410  65 22 2c 31 37 2c 69 6e  74 65 72 25 0d 0e 38 05  |e",17,inter%..8.|
00003420  e1 0d 0e 42 04 0d 0e 4c  0e dd f2 6c 6f 61 64 64  |...B...L...loadd|
00003430  61 74 61 0d 0e 56 15 c8  99 20 22 48 6f 75 72 67  |ata..V... "Hourg|
00003440  6c 61 73 73 5f 4f 6e 22  0d 0e 60 1b 41 25 3d 8e  |lass_On"..`.A%=.|
00003450  28 22 3c 47 6f 72 6d 24  44 69 72 3e 2e 44 61 74  |("<Gorm$Dir>.Dat|
00003460  61 22 29 0d 0e 6a 17 e3  20 61 3d 31 20 b8 20 74  |a")..j.. a=1 . t|
00003470  6f 74 61 6c 72 6f 6f 6d  73 25 0d 0e 74 16 73 70  |otalrooms%..t.sp|
00003480  6e 6f 25 3d b6 28 bb 28  be 23 41 25 29 2d 61 29  |no%=.(.(.#A%)-a)|
00003490  0d 0e 7e 0d e3 20 62 3d  31 20 b8 20 39 0d 0e 88  |..~.. b=1 . 9...|
000034a0  25 72 6f 6f 6d 73 24 28  61 2c 62 29 3d a4 75 6e  |%rooms$(a,b)=.un|
000034b0  74 61 6e 67 6c 65 28 be  23 41 25 2c 73 70 6e 6f  |tangle(.#A%,spno|
000034c0  25 29 0d 0e 92 07 ed 20  62 0d 0e 9c 26 61 62 62  |%)..... b...&abb|
000034d0  72 65 76 24 28 61 2c 31  29 3d a4 75 6e 74 61 6e  |rev$(a,1)=.untan|
000034e0  67 6c 65 28 be 23 41 25  2c 73 70 6e 6f 25 29 0d  |gle(.#A%,spno%).|
000034f0  0e a6 26 61 62 62 72 65  76 24 28 61 2c 32 29 3d  |..&abbrev$(a,2)=|
00003500  a4 75 6e 74 61 6e 67 6c  65 28 be 23 41 25 2c 73  |.untangle(.#A%,s|
00003510  70 6e 6f 25 29 0d 0e b0  24 72 65 6e 74 72 79 24  |pno%)...$rentry$|
00003520  28 61 29 3d a4 75 6e 74  61 6e 67 6c 65 28 be 23  |(a)=.untangle(.#|
00003530  41 25 2c 73 70 6e 6f 25  29 0d 0e ba 0e e3 20 62  |A%,spno%)..... b|
00003540  3d 31 20 b8 20 31 30 0d  0e c4 27 6f 62 6a 65 63  |=1 . 10...'objec|
00003550  74 73 24 28 61 2c 62 29  3d a4 75 6e 74 61 6e 67  |ts$(a,b)=.untang|
00003560  6c 65 28 be 23 41 25 2c  73 70 6e 6f 25 29 0d 0e  |le(.#A%,spno%)..|
00003570  ce 07 ed 20 62 0d 0e d8  0e e3 20 62 3d 31 20 b8  |... b..... b=1 .|
00003580  20 31 30 0d 0e e2 16 65  78 69 74 73 28 61 2c 62  | 10....exits(a,b|
00003590  29 3d bb 28 be 23 41 25  29 0d 0e ec 07 ed 20 62  |)=.(.#A%)..... b|
000035a0  0d 0e f6 31 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...1.. "Hourglas|
000035b0  73 5f 50 65 72 63 65 6e  74 61 67 65 22 2c 28 61  |s_Percentage",(a|
000035c0  2f 74 6f 74 61 6c 72 6f  6f 6d 73 25 29 2a 31 30  |/totalrooms%)*10|
000035d0  30 0d 0f 00 07 ed 20 61  0d 0f 0a 08 d9 23 41 25  |0..... a.....#A%|
000035e0  0d 0f 14 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
000035f0  73 5f 4f 66 66 22 0d 0f  1e 17 e3 20 61 3d 31 20  |s_Off"..... a=1 |
00003600  b8 20 74 6f 74 61 6c 72  6f 6f 6d 73 25 0d 0f 28  |. totalrooms%..(|
00003610  0e e3 20 62 3d 31 20 b8  20 31 30 0d 0f 32 20 64  |.. b=1 . 10..2 d|
00003620  65 66 61 75 6c 74 31 24  28 61 2c 62 29 3d 6f 62  |efault1$(a,b)=ob|
00003630  6a 65 63 74 73 24 28 61  2c 62 29 0d 0f 3c 07 ed  |jects$(a,b)..<..|
00003640  20 62 0d 0f 46 07 ed 20  61 0d 0f 50 37 64 65 66  | b..F.. a..P7def|
00003650  61 75 6c 74 32 24 28 31  29 3d 72 6f 6f 6d 73 24  |ault2$(1)=rooms$|
00003660  28 37 38 2c 32 29 3a 64  65 66 61 75 6c 74 32 24  |(78,2):default2$|
00003670  28 32 29 3d 72 6f 6f 6d  73 24 28 37 38 2c 33 29  |(2)=rooms$(78,3)|
00003680  0d 0f 5a 37 64 65 66 61  75 6c 74 32 24 28 33 29  |..Z7default2$(3)|
00003690  3d 72 6f 6f 6d 73 24 28  37 38 2c 34 29 3a 64 65  |=rooms$(78,4):de|
000036a0  66 61 75 6c 74 32 24 28  34 29 3d 72 6f 6f 6d 73  |fault2$(4)=rooms|
000036b0  24 28 38 35 2c 35 29 0d  0f 64 37 64 65 66 61 75  |$(85,5)..d7defau|
000036c0  6c 74 32 24 28 35 29 3d  61 62 62 72 65 76 24 28  |lt2$(5)=abbrev$(|
000036d0  37 38 2c 31 29 3a 64 65  66 61 75 6c 74 32 24 28  |78,1):default2$(|
000036e0  36 29 3d 72 65 6e 74 72  79 24 28 37 38 29 0d 0f  |6)=rentry$(78)..|
000036f0  6e 34 64 65 66 61 75 6c  74 33 25 28 31 29 3d 65  |n4default3%(1)=e|
00003700  78 69 74 73 28 32 2c 32  29 3a 64 65 66 61 75 6c  |xits(2,2):defaul|
00003710  74 33 25 28 32 29 3d 65  78 69 74 73 28 37 32 2c  |t3%(2)=exits(72,|
00003720  33 29 0d 0f 78 36 64 65  66 61 75 6c 74 33 25 28  |3)..x6default3%(|
00003730  33 29 3d 65 78 69 74 73  28 38 35 2c 32 29 3a 64  |3)=exits(85,2):d|
00003740  65 66 61 75 6c 74 33 25  28 34 29 3d 65 78 69 74  |efault3%(4)=exit|
00003750  73 28 31 31 30 2c 34 29  0d 0f 82 37 64 65 66 61  |s(110,4)...7defa|
00003760  75 6c 74 33 25 28 35 29  3d 65 78 69 74 73 28 31  |ult3%(5)=exits(1|
00003770  31 31 2c 32 29 3a 64 65  66 61 75 6c 74 33 25 28  |11,2):default3%(|
00003780  36 29 3d 65 78 69 74 73  28 31 37 39 2c 31 29 0d  |6)=exits(179,1).|
00003790  0f 8c 1d 64 65 66 61 75  6c 74 33 25 28 37 29 3d  |...default3%(7)=|
000037a0  65 78 69 74 73 28 33 31  30 2c 32 29 0d 0f 96 05  |exits(310,2)....|
000037b0  e1 0d 0f a0 04 0d 0f aa  38 dd f2 77 61 72 6e 69  |........8..warni|
000037c0  6e 67 28 66 72 6f 6d 25  2c 69 63 6f 6e 24 28 31  |ng(from%,icon$(1|
000037d0  29 2c 69 63 6f 6e 24 28  32 29 2c 69 63 6f 6e 24  |),icon$(2),icon$|
000037e0  28 33 29 2c 69 63 6f 6e  24 28 34 29 29 0d 0f b4  |(3),icon$(4))...|
000037f0  14 77 68 65 72 65 66 72  6f 6d 25 3d 66 72 6f 6d  |.wherefrom%=from|
00003800  25 0d 0f be 2f e3 20 61  3d 31 20 b8 20 34 3a f2  |%.../. a=1 . 4:.|
00003810  73 65 74 69 63 6f 6e 28  77 61 72 6e 68 61 6e 25  |seticon(warnhan%|
00003820  2c 61 2c 69 63 6f 6e 24  28 61 29 29 3a ed 20 61  |,a,icon$(a)):. a|
00003830  0d 0f c8 2d c8 99 20 22  58 4f 53 5f 52 65 61 64  |...-.. "XOS_Read|
00003840  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c eb 2c  |ModeVariable",.,|
00003850  31 31 20 b8 20 2c 2c 77  69 64 74 68 25 0d 0f d2  |11 . ,,width%...|
00003860  2e c8 99 20 22 58 4f 53  5f 52 65 61 64 4d 6f 64  |... "XOS_ReadMod|
00003870  65 56 61 72 69 61 62 6c  65 22 2c eb 2c 31 32 20  |eVariable",.,12 |
00003880  b8 20 2c 2c 68 65 69 67  68 74 25 0d 0f dc 2d c8  |. ,,height%...-.|
00003890  99 20 22 58 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |. "XOS_ReadModeV|
000038a0  61 72 69 61 62 6c 65 22  2c eb 2c 34 20 b8 20 2c  |ariable",.,4 . ,|
000038b0  2c 78 77 69 64 74 68 25  0d 0f e6 2d c8 99 20 22  |,xwidth%...-.. "|
000038c0  58 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |XOS_ReadModeVari|
000038d0  61 62 6c 65 22 2c eb 2c  35 20 b8 20 2c 2c 79 77  |able",.,5 . ,,yw|
000038e0  69 64 74 68 25 0d 0f f0  31 77 69 64 74 68 25 3d  |idth%...1width%=|
000038f0  77 69 64 74 68 25 2a 78  77 69 64 74 68 25 3a 68  |width%*xwidth%:h|
00003900  65 69 67 68 74 25 3d 68  65 69 67 68 74 25 2a 79  |eight%=height%*y|
00003910  77 69 64 74 68 25 0d 0f  fa 1c 77 69 64 74 68 25  |width%....width%|
00003920  2d 3d 33 34 37 3a 68 65  69 67 68 74 25 2b 3d 31  |-=347:height%+=1|
00003930  33 38 0d 10 04 31 c8 99  20 22 57 69 6d 70 5f 43  |38...1.. "Wimp_C|
00003940  72 65 61 74 65 4d 65 6e  75 22 2c 2c 77 61 72 6e  |reateMenu",,warn|
00003950  68 61 6e 25 2c 77 69 64  74 68 25 2c 68 65 69 67  |han%,width%,heig|
00003960  68 74 25 0d 10 0e 05 e1  0d 10 18 04 0d 10 22 0e  |ht%...........".|
00003970  dd f2 66 69 6c 65 6c 6f  61 64 0d 10 2c 16 e7 20  |..fileload..,.. |
00003980  77 69 6d 70 25 21 34 30  3c 3e 26 31 37 39 20 8c  |wimp%!40<>&179 .|
00003990  0d 10 36 67 e7 20 77 69  6d 70 25 21 31 36 3c 3e  |..6g. wimp%!16<>|
000039a0  35 20 f2 77 61 72 6e 69  6e 67 28 34 2c 22 22 2c  |5 .warning(4,"",|
000039b0  22 54 68 69 73 20 66 69  6c 65 20 69 73 20 6e 6f  |"This file is no|
000039c0  74 20 61 20 47 6f 72 6d  20 73 61 76 65 64 20 67  |t a Gorm saved g|
000039d0  61 6d 65 2c 22 2c 22 74  68 65 72 65 66 6f 72 65  |ame,","therefore|
000039e0  20 49 20 63 61 6e 6e 6f  74 20 6c 6f 61 64 20 69  | I cannot load i|
000039f0  74 2e 22 2c 22 22 29 0d  10 40 05 e1 0d 10 4a 05  |t.","")..@....J.|
00003a00  cd 0d 10 54 1f 77 69 6d  70 25 21 31 32 3d 77 69  |...T.wimp%!12=wi|
00003a10  6d 70 25 21 38 3a 77 69  6d 70 25 21 31 36 3d 34  |mp%!8:wimp%!16=4|
00003a20  0d 10 5e 2a c8 99 20 22  57 69 6d 70 5f 53 65 6e  |..^*.. "Wimp_Sen|
00003a30  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 77 69 6d  |dMessage",17,wim|
00003a40  70 25 2c 77 69 6d 70 25  21 34 0d 10 68 1d f2 6c  |p%,wimp%!4..h..l|
00003a50  6f 61 64 65 72 28 6c 64  66 69 6c 65 6e 6d 24 2b  |oader(ldfilenm$+|
00003a60  bd 28 30 29 2c 32 29 0d  10 72 05 e1 0d 10 7c 04  |.(0),2)..r....|.|
00003a70  0d 10 86 11 dd f2 6c 6f  61 64 6f 70 74 69 6f 6e  |......loadoption|
00003a80  73 0d 10 90 1e 41 25 3d  8e 28 22 3c 47 6f 72 6d  |s....A%=.("<Gorm|
00003a90  24 44 69 72 3e 2e 4f 70  74 69 6f 6e 73 22 29 0d  |$Dir>.Options").|
00003aa0  10 9a 13 70 6f 73 69 79  6e 25 3d bb 28 be 23 41  |...posiyn%=.(.#A|
00003ab0  25 29 0d 10 a4 11 66 6f  6e 74 25 3d bb 28 be 23  |%)....font%=.(.#|
00003ac0  41 25 29 0d 10 ae 08 d9  23 41 25 0d 10 b8 18 e7  |A%).....#A%.....|
00003ad0  20 6d 79 66 6f 6e 74 25  3d 2d 31 20 66 6f 6e 74  | myfont%=-1 font|
00003ae0  25 3d 30 0d 10 c2 05 e1  0d 10 cc 04 0d 10 d6 11  |%=0.............|
00003af0  dd f2 73 61 76 65 6f 70  74 69 6f 6e 73 0d 10 e0  |..saveoptions...|
00003b00  1e 41 25 3d ae 28 22 3c  47 6f 72 6d 24 44 69 72  |.A%=.("<Gorm$Dir|
00003b10  3e 2e 4f 70 74 69 6f 6e  73 22 29 0d 10 ea 13 d5  |>.Options").....|
00003b20  23 41 25 2c c3 28 70 6f  73 69 79 6e 25 29 0d 10  |#A%,.(posiyn%)..|
00003b30  f4 11 d5 23 41 25 2c c3  28 66 6f 6e 74 25 29 0d  |...#A%,.(font%).|
00003b40  10 fe 08 d9 23 41 25 0d  11 08 05 e1 0d 11 12 04  |....#A%.........|
00003b50  0d 11 1c 1e dd f2 6c 6f  61 64 65 72 28 6c 64 66  |......loader(ldf|
00003b60  69 6c 65 6e 6d 24 2c 79  65 73 6e 6f 25 29 0d 11  |ilenm$,yesno%)..|
00003b70  26 1a e7 20 61 6c 74 65  72 65 64 25 3d 30 20 f2  |&.. altered%=0 .|
00003b80  6c 6f 61 64 69 74 75 70  0d 11 30 64 e7 20 79 65  |loaditup..0d. ye|
00003b90  73 6e 6f 25 3d 32 20 80  20 61 6c 74 65 72 65 64  |sno%=2 . altered|
00003ba0  25 3d 31 20 f2 77 61 72  6e 69 6e 67 28 32 2c 22  |%=1 .warning(2,"|
00003bb0  22 2c 22 4c 6f 61 64 69  6e 67 20 74 68 69 73 20  |","Loading this |
00003bc0  73 61 76 65 64 20 67 61  6d 65 20 77 69 6c 6c 22  |saved game will"|
00003bd0  2c 22 6c 6f 73 65 20 74  68 65 20 63 75 72 72 65  |,"lose the curre|
00003be0  6e 74 20 6f 6e 65 2e 22  2c 22 22 29 0d 11 3a 05  |nt one.","")..:.|
00003bf0  e1 0d 11 44 04 0d 11 4e  0c dd f2 61 74 74 61 63  |...D...N...attac|
00003c00  68 0d 11 58 8b c8 99 22  57 69 6d 70 5f 47 65 74  |h..X..."Wimp_Get|
00003c10  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 77 69  |WindowState",,wi|
00003c20  6d 70 25 3a 77 69 6d 70  25 21 30 3d 75 73 65 72  |mp%:wimp%!0=user|
00003c30  68 61 6e 25 3a 77 69 6d  70 25 21 31 36 3d 77 69  |han%:wimp%!16=wi|
00003c40  6d 70 25 21 38 2d 34 3a  77 69 6d 70 25 21 38 3d  |mp%!8-4:wimp%!8=|
00003c50  77 69 6d 70 25 21 31 36  2d 31 32 38 3a 77 69 6d  |wimp%!16-128:wim|
00003c60  70 25 21 31 32 3d 77 69  6d 70 25 21 34 2b 39 33  |p%!12=wimp%!4+93|
00003c70  30 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |0:.."Wimp_OpenWi|
00003c80  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 11 62 81  |ndow",,wimp%..b.|
00003c90  e7 20 70 6f 73 69 79 6e  25 3d 31 20 77 69 6d 70  |. posiyn%=1 wimp|
00003ca0  25 21 30 3d 61 64 76 65  6e 74 68 61 6e 25 3a c8  |%!0=adventhan%:.|
00003cb0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00003cc0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 3a 77 69  |State",,wimp%:wi|
00003cd0  6d 70 25 21 30 3d 70 6f  73 69 68 61 6e 25 3a 77  |mp%!0=posihan%:w|
00003ce0  69 6d 70 25 21 38 3d 77  69 6d 70 25 21 31 36 2d  |imp%!8=wimp%!16-|
00003cf0  34 34 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |44:.."Wimp_OpenW|
00003d00  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 11 6c  |indow",,wimp%..l|
00003d10  05 e1 0d 11 76 04 0d 11  80 0c dd f2 72 65 64 72  |....v.......redr|
00003d20  61 77 0d 11 8a 3e 77 69  6d 70 25 21 30 3d 61 64  |aw...>wimp%!0=ad|
00003d30  76 65 6e 74 68 61 6e 25  3a c8 99 20 22 57 69 6d  |venthan%:.. "Wim|
00003d40  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
00003d50  2c 77 69 6d 70 25 20 b8  20 72 65 64 72 61 77 25  |,wimp% . redraw%|
00003d60  0d 11 94 1c e7 20 66 6f  6e 74 25 3d 31 20 c8 99  |..... font%=1 ..|
00003d70  20 66 74 25 2c 6d 79 66  6f 6e 74 25 0d 11 9e 0e  | ft%,myfont%....|
00003d80  c8 95 20 72 65 64 72 61  77 25 0d 11 a8 1e 64 72  |.. redraw%....dr|
00003d90  61 77 78 3d 28 77 69 6d  70 25 21 34 2d 77 69 6d  |awx=(wimp%!4-wim|
00003da0  70 25 21 32 30 29 2b 32  0d 11 b2 1e 64 72 61 77  |p%!20)+2....draw|
00003db0  79 3d 77 69 6d 70 25 21  31 36 2d 77 69 6d 70 25  |y=wimp%!16-wimp%|
00003dc0  21 32 34 2d 31 37 0d 11  bc 17 e7 20 66 6f 6e 74  |!24-17..... font|
00003dd0  25 3d 31 20 64 72 61 77  79 2d 3d 31 38 0d 11 c6  |%=1 drawy-=18...|
00003de0  0f e7 20 66 6f 6e 74 25  3d 31 20 8c 0d 11 d0 0e  |.. font%=1 .....|
00003df0  e3 20 66 3d 31 20 b8 20  31 31 0d 11 da 23 ec 20  |. f=1 . 11...#. |
00003e00  64 72 61 77 78 2b 28 31  36 2a a9 28 71 75 65 73  |drawx+(16*.(ques|
00003e10  74 24 28 66 29 29 29 2c  64 72 61 77 79 0d 11 e4  |t$(f))),drawy...|
00003e20  b8 e7 20 c0 71 75 65 73  74 24 28 66 29 2c 31 29  |.. .quest$(f),1)|
00003e30  3d 22 40 22 20 c8 99 20  66 74 63 6f 6c 25 2c 6d  |="@" .. ftcol%,m|
00003e40  79 66 6f 6e 74 25 2c 62  61 63 6b 32 25 2c 66 6f  |yfont%,back2%,fo|
00003e50  72 65 32 25 2c 6f 66 66  73 65 74 32 25 3a c8 99  |re2%,offset2%:..|
00003e60  20 66 74 70 74 25 2c 2c  c1 71 75 65 73 74 24 28  | ftpt%,,.quest$(|
00003e70  66 29 2c 32 2c 37 36 29  2c 31 37 2c 64 72 61 77  |f),2,76),17,draw|
00003e80  78 2c 64 72 61 77 79 20  8b 20 c8 99 20 66 74 63  |x,drawy . .. ftc|
00003e90  6f 6c 25 2c 6d 79 66 6f  6e 74 25 2c 62 61 63 6b  |ol%,myfont%,back|
00003ea0  31 25 2c 66 6f 72 65 31  25 2c 6f 66 66 73 65 74  |1%,fore1%,offset|
00003eb0  31 25 3a c8 99 20 66 74  70 74 25 2c 2c 71 75 65  |1%:.. ftpt%,,que|
00003ec0  73 74 24 28 66 29 2c 31  37 2c 64 72 61 77 78 2c  |st$(f),17,drawx,|
00003ed0  64 72 61 77 79 0d 11 ee  0d 64 72 61 77 79 2d 3d  |drawy....drawy-=|
00003ee0  33 37 0d 11 f8 07 ed 20  66 0d 12 02 05 cd 0d 12  |37..... f.......|
00003ef0  0c 0f e7 20 66 6f 6e 74  25 3d 30 20 8c 0d 12 16  |... font%=0 ....|
00003f00  0e e3 20 66 3d 31 20 b8  20 31 31 0d 12 20 11 ec  |.. f=1 . 11.. ..|
00003f10  20 64 72 61 77 78 2c 64  72 61 77 79 0d 12 2a 6a  | drawx,drawy..*j|
00003f20  e7 20 c0 71 75 65 73 74  24 28 66 29 2c 31 29 3d  |. .quest$(f),1)=|
00003f30  22 40 22 20 c8 99 20 73  65 74 67 63 6f 6c 25 2c  |"@" .. setgcol%,|
00003f40  26 30 30 30 30 46 46 30  30 2c 2c 30 3a f1 20 c1  |&0000FF00,,0:. .|
00003f50  71 75 65 73 74 24 28 66  29 2c 32 2c 37 36 29 20  |quest$(f),2,76) |
00003f60  8b 20 c8 99 20 73 65 74  67 63 6f 6c 25 2c 26 30  |. .. setgcol%,&0|
00003f70  30 30 30 30 30 30 30 2c  2c 30 3a f1 20 71 75 65  |0000000,,0:. que|
00003f80  73 74 24 28 66 29 0d 12  34 0d 64 72 61 77 79 2d  |st$(f)..4.drawy-|
00003f90  3d 33 36 0d 12 3e 07 ed  20 66 0d 12 48 05 cd 0d  |=36..>.. f..H...|
00003fa0  12 52 2b c8 99 20 22 57  69 6d 70 5f 47 65 74 52  |.R+.. "Wimp_GetR|
00003fb0  65 63 74 61 6e 67 6c 65  22 2c 2c 77 69 6d 70 25  |ectangle",,wimp%|
00003fc0  20 b8 20 72 65 64 72 61  77 25 0d 12 5c 05 ce 0d  | . redraw%..\...|
00003fd0  12 66 05 e1 0d 12 70 04  0d 12 7a 10 dd f2 72 65  |.f....p...z...re|
00003fe0  64 72 61 77 70 69 63 73  0d 12 84 2b c8 99 20 22  |drawpics...+.. "|
00003ff0  58 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |XOS_ReadModeVari|
00004000  61 62 6c 65 22 2c eb 2c  33 20 b8 20 2c 2c 63 6f  |able",.,3 . ,,co|
00004010  6c 73 25 0d 12 8e 23 e7  20 63 6f 6c 73 25 3c 3e  |ls%...#. cols%<>|
00004020  31 35 20 80 20 70 69 63  79 6e 25 3d 31 20 70 69  |15 . picyn%=1 pi|
00004030  63 79 6e 25 3d 32 0d 12  98 41 e7 20 70 69 63 79  |cyn%=2...A. picy|
00004040  6e 25 3c 3e 31 20 77 69  6d 70 25 21 30 3d 70 69  |n%<>1 wimp%!0=pi|
00004050  63 63 69 65 68 61 6e 25  3a c8 99 20 22 57 69 6d  |cciehan%:.. "Wim|
00004060  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00004070  77 69 6d 70 25 3a e1 0d  12 a2 2b c8 99 20 22 57  |wimp%:....+.. "W|
00004080  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00004090  22 2c 2c 77 69 6d 70 25  20 b8 20 72 65 64 72 61  |",,wimp% . redra|
000040a0  77 25 0d 12 ac 0e c8 95  20 72 65 64 72 61 77 25  |w%...... redraw%|
000040b0  0d 12 b6 0f c8 8e 20 6e  69 66 6f 6b 25 20 ca 0d  |...... nifok% ..|
000040c0  12 c0 57 c9 20 31 20 3a  20 c8 99 20 73 65 74 67  |..W. 1 : .. setg|
000040d0  63 6f 6c 25 2c 26 30 30  30 30 30 30 30 30 2c 2c  |col%,&00000000,,|
000040e0  30 3a c8 93 c8 90 20 77  69 6d 70 25 21 34 2d 77  |0:.... wimp%!4-w|
000040f0  69 6d 70 25 21 32 30 2c  77 69 6d 70 25 21 31 36  |imp%!20,wimp%!16|
00004100  2d 77 69 6d 70 25 21 32  34 2d 34 32 34 2c 31 32  |-wimp%!24-424,12|
00004110  33 36 2c 34 32 34 0d 12  ca 5b 7f 20 3a 20 ec 20  |36,424...[. : . |
00004120  77 69 6d 70 25 21 34 2d  77 69 6d 70 25 21 32 30  |wimp%!4-wimp%!20|
00004130  2c 77 69 6d 70 25 21 31  36 2d 77 69 6d 70 25 21  |,wimp%!16-wimp%!|
00004140  32 34 2d 34 32 34 3a c8  99 20 22 4f 53 5f 53 70  |24-424:.. "OS_Sp|
00004150  72 69 74 65 4f 70 22 2c  26 31 31 43 2c 70 69 63  |riteOp",&11C,pic|
00004160  63 69 65 73 25 2c 63 75  72 72 65 6e 74 70 69 63  |cies%,currentpic|
00004170  24 0d 12 d4 05 cb 0d 12  de 2b c8 99 20 22 57 69  |$........+.. "Wi|
00004180  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00004190  2c 2c 77 69 6d 70 25 20  b8 20 72 65 64 72 61 77  |,,wimp% . redraw|
000041a0  25 0d 12 e8 05 ce 0d 12  f2 05 e1 0d 12 fc 04 0d  |%...............|
000041b0  13 06 0f dd f2 72 65 64  72 61 77 6d 61 70 0d 13  |.....redrawmap..|
000041c0  10 2b c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |.+.. "Wimp_Redra|
000041d0  77 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 20  |wWindow",,wimp% |
000041e0  b8 20 72 65 64 72 61 77  25 0d 13 1a 06 ef 35 0d  |. redraw%.....5.|
000041f0  13 24 0e c8 95 20 72 65  64 72 61 77 25 0d 13 2e  |.$... redraw%...|
00004200  28 64 72 61 77 78 3d 77  69 6d 70 25 21 34 2d 77  |(drawx=wimp%!4-w|
00004210  69 6d 70 25 21 32 30 2b  35 3a 6f 72 69 67 78 3d  |imp%!20+5:origx=|
00004220  64 72 61 77 78 0d 13 38  1d 64 72 61 77 79 3d 77  |drawx..8.drawy=w|
00004230  69 6d 70 25 21 31 36 2d  77 69 6d 70 25 21 32 34  |imp%!16-wimp%!24|
00004240  2d 35 0d 13 42 0b 77 64  74 68 25 3d 30 0d 13 4c  |-5..B.wdth%=0..L|
00004250  25 ec 20 64 72 61 77 78  2c 64 72 61 77 79 3a f1  |%. drawx,drawy:.|
00004260  20 74 69 74 6c 65 72 24  3a 64 72 61 77 79 2d 3d  | titler$:drawy-=|
00004270  33 32 0d 13 56 45 c8 99  20 73 65 74 67 63 6f 6c  |32..VE.. setgcol|
00004280  25 2c 26 30 30 30 30 30  30 30 30 2c 2c 30 3a 86  |%,&00000000,,0:.|
00004290  20 64 72 61 77 78 2c 64  72 61 77 79 2c 64 72 61  | drawx,drawy,dra|
000042a0  77 78 2b 31 36 30 30 2c  64 72 61 77 79 3a 64 72  |wx+1600,drawy:dr|
000042b0  61 77 79 2d 3d 31 35 0d  13 60 14 e3 20 66 3d 31  |awy-=15..`.. f=1|
000042c0  20 b8 20 6d 61 70 73 69  7a 65 25 0d 13 6a 1c c8  | . mapsize%..j..|
000042d0  99 20 73 65 74 67 63 6f  6c 25 2c 26 30 30 30 30  |. setgcol%,&0000|
000042e0  30 30 30 30 2c 2c 30 0d  13 74 15 6d 64 3d 6d 70  |0000,,0..t.md=mp|
000042f0  64 74 25 28 7a 6f 6e 65  25 2c 66 29 0d 13 7e 1c  |dt%(zone%,f)..~.|
00004300  e7 20 6d 64 3c 3e 30 20  80 20 6d 61 70 79 6e 25  |. md<>0 . mapyn%|
00004310  28 6d 64 29 3d 31 20 8c  0d 13 88 71 e7 20 65 78  |(md)=1 ....q. ex|
00004320  69 74 73 28 6d 64 2c 31  29 3e 30 20 86 20 64 72  |its(md,1)>0 . dr|
00004330  61 77 78 2c 64 72 61 77  79 2c 64 72 61 77 78 2b  |awx,drawy,drawx+|
00004340  33 33 2c 64 72 61 77 79  3a 86 20 64 72 61 77 78  |33,drawy:. drawx|
00004350  2b 36 36 2c 64 72 61 77  79 2c 64 72 61 77 78 2b  |+66,drawy,drawx+|
00004360  31 30 30 2c 64 72 61 77  79 20 8b 20 86 20 64 72  |100,drawy . . dr|
00004370  61 77 78 2c 64 72 61 77  79 2c 64 72 61 77 78 2b  |awx,drawy,drawx+|
00004380  31 30 30 2c 64 72 61 77  79 0d 13 92 89 e7 20 65  |100,drawy..... e|
00004390  78 69 74 73 28 6d 64 2c  32 29 3e 30 20 86 20 64  |xits(md,2)>0 . d|
000043a0  72 61 77 78 2b 31 30 30  2c 64 72 61 77 79 2c 64  |rawx+100,drawy,d|
000043b0  72 61 77 78 2b 31 30 30  2c 64 72 61 77 79 2d 33  |rawx+100,drawy-3|
000043c0  33 3a 86 20 64 72 61 77  78 2b 31 30 30 2c 64 72  |3:. drawx+100,dr|
000043d0  61 77 79 2d 36 36 2c 64  72 61 77 78 2b 31 30 30  |awy-66,drawx+100|
000043e0  2c 64 72 61 77 79 2d 31  30 30 20 8b 20 86 20 64  |,drawy-100 . . d|
000043f0  72 61 77 78 2b 31 30 30  2c 64 72 61 77 79 2c 64  |rawx+100,drawy,d|
00004400  72 61 77 78 2b 31 30 30  2c 64 72 61 77 79 2d 31  |rawx+100,drawy-1|
00004410  30 30 0d 13 9c 89 e7 20  65 78 69 74 73 28 6d 64  |00..... exits(md|
00004420  2c 33 29 3e 30 20 86 20  64 72 61 77 78 2c 64 72  |,3)>0 . drawx,dr|
00004430  61 77 79 2d 31 30 30 2c  64 72 61 77 78 2b 33 33  |awy-100,drawx+33|
00004440  2c 64 72 61 77 79 2d 31  30 30 3a 86 20 64 72 61  |,drawy-100:. dra|
00004450  77 78 2b 36 36 2c 64 72  61 77 79 2d 31 30 30 2c  |wx+66,drawy-100,|
00004460  64 72 61 77 78 2b 31 30  30 2c 64 72 61 77 79 2d  |drawx+100,drawy-|
00004470  31 30 30 20 8b 20 86 20  64 72 61 77 78 2c 64 72  |100 . . drawx,dr|
00004480  61 77 79 2d 31 30 30 2c  64 72 61 77 78 2b 31 30  |awy-100,drawx+10|
00004490  30 2c 64 72 61 77 79 2d  31 30 30 0d 13 a6 71 e7  |0,drawy-100...q.|
000044a0  20 65 78 69 74 73 28 6d  64 2c 34 29 3e 30 20 86  | exits(md,4)>0 .|
000044b0  20 64 72 61 77 78 2c 64  72 61 77 79 2c 64 72 61  | drawx,drawy,dra|
000044c0  77 78 2c 64 72 61 77 79  2d 33 33 3a 86 20 64 72  |wx,drawy-33:. dr|
000044d0  61 77 78 2c 64 72 61 77  79 2d 36 36 2c 64 72 61  |awx,drawy-66,dra|
000044e0  77 78 2c 64 72 61 77 79  2d 31 30 30 20 8b 20 86  |wx,drawy-100 . .|
000044f0  20 64 72 61 77 78 2c 64  72 61 77 79 2c 64 72 61  | drawx,drawy,dra|
00004500  77 78 2c 64 72 61 77 79  2d 31 30 30 0d 13 b0 85  |wx,drawy-100....|
00004510  e7 20 65 78 69 74 73 28  6d 64 2c 39 29 3e 30 20  |. exits(md,9)>0 |
00004520  86 20 64 72 61 77 78 2b  38 30 2c 64 72 61 77 79  |. drawx+80,drawy|
00004530  2d 35 30 2c 64 72 61 77  78 2b 38 30 2c 64 72 61  |-50,drawx+80,dra|
00004540  77 79 2d 38 35 3a 86 20  64 72 61 77 78 2b 38 30  |wy-85:. drawx+80|
00004550  2c 64 72 61 77 79 2d 35  30 2c 64 72 61 77 78 2b  |,drawy-50,drawx+|
00004560  37 34 2c 64 72 61 77 79  2d 36 30 3a 86 20 64 72  |74,drawy-60:. dr|
00004570  61 77 78 2b 38 30 2c 64  72 61 77 79 2d 35 30 2c  |awx+80,drawy-50,|
00004580  64 72 61 77 78 2b 38 36  2c 64 72 61 77 79 2d 36  |drawx+86,drawy-6|
00004590  30 0d 13 ba 86 e7 20 65  78 69 74 73 28 6d 64 2c  |0..... exits(md,|
000045a0  31 30 29 3e 30 20 86 20  64 72 61 77 78 2b 38 30  |10)>0 . drawx+80|
000045b0  2c 64 72 61 77 79 2d 35  30 2c 64 72 61 77 78 2b  |,drawy-50,drawx+|
000045c0  38 30 2c 64 72 61 77 79  2d 38 35 3a 86 20 64 72  |80,drawy-85:. dr|
000045d0  61 77 78 2b 38 30 2c 64  72 61 77 79 2d 38 35 2c  |awx+80,drawy-85,|
000045e0  64 72 61 77 78 2b 37 34  2c 64 72 61 77 79 2d 37  |drawx+74,drawy-7|
000045f0  35 3a 86 20 64 72 61 77  78 2b 38 30 2c 64 72 61  |5:. drawx+80,dra|
00004600  77 79 2d 38 35 2c 64 72  61 77 78 2b 38 36 2c 64  |wy-85,drawx+86,d|
00004610  72 61 77 79 2d 37 35 0d  13 c4 26 ec 20 64 72 61  |rawy-75...&. dra|
00004620  77 78 2b 31 30 2c 64 72  61 77 79 2d 38 3a f1 20  |wx+10,drawy-8:. |
00004630  61 62 62 72 65 76 24 28  6d 64 2c 31 29 0d 13 ce  |abbrev$(md,1)...|
00004640  27 ec 20 64 72 61 77 78  2b 31 30 2c 64 72 61 77  |'. drawx+10,draw|
00004650  79 2d 34 30 3a f1 20 61  62 62 72 65 76 24 28 6d  |y-40:. abbrev$(m|
00004660  64 2c 32 29 0d 13 d8 41  e7 20 72 6f 6f 6d 6e 6f  |d,2)...A. roomno|
00004670  25 3d 6d 64 20 c8 99 20  73 65 74 67 63 6f 6c 25  |%=md .. setgcol%|
00004680  2c 26 30 30 30 30 46 46  30 30 2c 2c 30 3a c8 8f  |,&0000FF00,,0:..|
00004690  c8 90 64 72 61 77 78 2b  32 30 2c 64 72 61 77 79  |..drawx+20,drawy|
000046a0  2d 38 34 2c 37 0d 13 e2  0e e3 20 61 25 3d 31 20  |-84,7..... a%=1 |
000046b0  b8 20 33 0d 13 ec 42 e7  20 6d 64 3d 70 6f 6c 69  |. 3...B. md=poli|
000046c0  63 65 25 28 61 25 29 20  c8 99 20 73 65 74 67 63  |ce%(a%) .. setgc|
000046d0  6f 6c 25 2c 26 30 30 46  46 46 46 30 30 3a c8 8f  |ol%,&00FFFF00:..|
000046e0  c8 90 64 72 61 77 78 2b  35 30 2c 64 72 61 77 79  |..drawx+50,drawy|
000046f0  2d 38 34 2c 37 0d 13 f6  08 ed 20 61 25 0d 14 00  |-84,7..... a%...|
00004700  05 cd 0d 14 0a 0c 77 64  74 68 25 2b 3d 31 0d 14  |......wdth%+=1..|
00004710  14 38 e7 20 77 64 74 68  25 3d 6d 61 70 77 69 64  |.8. wdth%=mapwid|
00004720  74 68 25 20 77 64 74 68  25 3d 30 3a 64 72 61 77  |th% wdth%=0:draw|
00004730  78 3d 6f 72 69 67 78 2d  31 30 30 3a 64 72 61 77  |x=origx-100:draw|
00004740  79 2d 3d 31 30 30 0d 14  1e 0e 64 72 61 77 78 2b  |y-=100....drawx+|
00004750  3d 31 30 30 0d 14 28 07  ed 20 66 0d 14 32 2b c8  |=100..(.. f..2+.|
00004760  99 20 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |. "Wimp_GetRecta|
00004770  6e 67 6c 65 22 2c 2c 77  69 6d 70 25 20 b8 20 72  |ngle",,wimp% . r|
00004780  65 64 72 61 77 25 0d 14  3c 05 ce 0d 14 46 05 e1  |edraw%..<....F..|
00004790  0d 14 50 04 0d 14 5a 10  dd f2 64 65 63 69 64 65  |..P...Z...decide|
000047a0  70 69 63 73 0d 14 64 18  63 75 72 72 65 6e 74 70  |pics..d.currentp|
000047b0  69 63 24 3d c3 28 7a 6f  6e 65 25 29 0d 14 6e 10  |ic$=.(zone%)..n.|
000047c0  c8 8e 20 72 6f 6f 6d 6e  6f 25 20 ca 0d 14 78 22  |.. roomno% ...x"|
000047d0  c9 20 37 31 2c 32 32 30  2c 33 31 31 20 3a 20 63  |. 71,220,311 : c|
000047e0  75 72 72 65 6e 74 70 69  63 24 3d 22 35 22 0d 14  |urrentpic$="5"..|
000047f0  82 37 c9 20 32 38 35 2c  32 38 36 2c 32 38 37 2c  |.7. 285,286,287,|
00004800  32 38 38 2c 32 38 39 2c  32 39 30 2c 32 39 31 2c  |288,289,290,291,|
00004810  32 39 32 20 3a 20 63 75  72 72 65 6e 74 70 69 63  |292 : currentpic|
00004820  24 3d 22 37 22 0d 14 8c  3a c9 20 33 36 2c 33 37  |$="7"...:. 36,37|
00004830  2c 33 38 2c 34 31 2c 38  34 2c 32 37 39 2c 32 39  |,38,41,84,279,29|
00004840  33 2c 32 39 34 2c 32 39  35 2c 32 39 36 20 3a 20  |3,294,295,296 : |
00004850  63 75 72 72 65 6e 74 70  69 63 24 3d 22 38 22 0d  |currentpic$="8".|
00004860  14 96 24 c9 20 37 32 2c  37 38 2c 37 39 2c 38 30  |..$. 72,78,79,80|
00004870  20 3a 20 63 75 72 72 65  6e 74 70 69 63 24 3d 22  | : currentpic$="|
00004880  31 34 22 0d 14 a0 2a c9  20 34 39 2c 35 30 2c 35  |14"...*. 49,50,5|
00004890  31 2c 35 32 2c 36 33 2c  36 34 20 3a 20 63 75 72  |1,52,63,64 : cur|
000048a0  72 65 6e 74 70 69 63 24  3d 22 31 30 22 0d 14 aa  |rentpic$="10"...|
000048b0  2c c9 20 32 36 32 2c 32  36 33 2c 32 36 34 2c 32  |,. 262,263,264,2|
000048c0  36 35 2c 32 36 36 20 3a  20 63 75 72 72 65 6e 74  |65,266 : current|
000048d0  70 69 63 24 3d 22 31 31  22 0d 14 b4 1c c9 20 33  |pic$="11"..... 3|
000048e0  31 30 20 3a 20 63 75 72  72 65 6e 74 70 69 63 24  |10 : currentpic$|
000048f0  3d 22 31 32 22 0d 14 be  24 c9 20 32 32 36 2c 32  |="12"...$. 226,2|
00004900  32 37 2c 32 32 38 20 3a  20 63 75 72 72 65 6e 74  |27,228 : current|
00004910  70 69 63 24 3d 22 31 33  22 0d 14 c8 05 cb 0d 14  |pic$="13".......|
00004920  d2 2a e7 20 72 6f 6f 6d  6e 6f 25 3d 37 38 20 80  |.*. roomno%=78 .|
00004930  20 66 69 72 65 25 3e 30  20 63 75 72 72 65 6e 74  | fire%>0 current|
00004940  70 69 63 24 3d 22 39 22  0d 14 dc 1d e7 20 72 65  |pic$="9"..... re|
00004950  6e 77 25 3d 31 20 63 75  72 72 65 6e 74 70 69 63  |nw%=1 currentpic|
00004960  24 3d 22 36 22 0d 14 e6  22 77 69 6d 70 25 21 30  |$="6"..."wimp%!0|
00004970  3d 70 69 63 63 69 65 68  61 6e 25 3a f2 72 65 64  |=picciehan%:.red|
00004980  72 61 77 70 69 63 73 0d  14 f0 05 e1 0d 14 fa 04  |rawpics.........|
00004990  0d 15 04 20 dd a4 75 6e  74 61 6e 67 6c 65 28 6d  |... ..untangle(m|
000049a0  79 6c 69 6e 65 24 2c 6d  79 72 61 6e 64 6e 6f 29  |yline$,myrandno)|
000049b0  0d 15 0e 0f 74 68 65 6c  69 6e 65 24 3d 22 22 0d  |....theline$="".|
000049c0  15 18 1a e7 20 6d 79 6c  69 6e 65 24 3d 22 22 20  |.... myline$="" |
000049d0  3d 74 68 65 6c 69 6e 65  24 0d 15 22 1a e3 20 6c  |=theline$..".. l|
000049e0  6e 63 6e 74 3d 31 20 b8  20 a9 28 6d 79 6c 69 6e  |ncnt=1 . .(mylin|
000049f0  65 24 29 0d 15 2c 2e 74  68 65 6c 69 6e 65 24 2b  |e$)..,.theline$+|
00004a00  3d bd 28 97 28 c1 6d 79  6c 69 6e 65 24 2c 6c 6e  |=.(.(.myline$,ln|
00004a10  63 6e 74 2c 31 29 29 2d  6d 79 72 61 6e 64 6e 6f  |cnt,1))-myrandno|
00004a20  29 0d 15 36 0b ed 20 6c  6e 63 6e 74 0d 15 40 0d  |)..6.. lncnt..@.|
00004a30  3d 74 68 65 6c 69 6e 65  24 0d 15 4a 04 0d 15 54  |=theline$..J...T|
00004a40  09 dd f2 6b 65 79 0d 15  5e 90 e7 20 77 69 6d 70  |...key..^.. wimp|
00004a50  25 21 30 3d 75 73 65 72  68 61 6e 25 20 69 24 3d  |%!0=userhan% i$=|
00004a60  a4 72 65 61 64 69 6e 70  75 74 3a f2 61 64 64 28  |.readinput:.add(|
00004a70  22 40 22 2b 69 24 29 3a  f2 72 65 73 70 6f 6e 64  |"@"+i$):.respond|
00004a80  3a e7 20 69 24 3c 3e 22  71 75 69 74 20 70 6c 65  |:. i$<>"quit ple|
00004a90  61 73 65 22 20 f2 73 65  74 69 63 6f 6e 28 75 73  |ase" .seticon(us|
00004aa0  65 72 68 61 6e 25 2c 31  2c 22 22 29 3a c8 99 22  |erhan%,1,""):.."|
00004ab0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00004ac0  69 74 69 6f 6e 22 2c 75  73 65 72 68 61 6e 25 2c  |ition",userhan%,|
00004ad0  31 2c 2c 2c 2d 31 0d 15  68 2d e7 20 77 69 6d 70  |1,,,-1..h-. wimp|
00004ae0  25 21 30 3d 6b 25 20 80  20 77 69 6d 70 25 21 34  |%!0=k% . wimp%!4|
00004af0  3d 31 20 f2 67 65 74 66  69 6c 65 6e 61 6d 65 20  |=1 .getfilename |
00004b00  8b 20 e1 0d 15 72 4f e7  20 a7 66 69 6c 65 6e 61  |. ...rO. .filena|
00004b10  24 2c 22 2e 22 29 3d 30  20 f2 65 72 72 28 31 2c  |$,".")=0 .err(1,|
00004b20  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
00004b30  68 65 20 69 63 6f 6e 20  74 6f 20 61 20 64 69 72  |he icon to a dir|
00004b40  65 63 74 6f 72 79 20 76  69 65 77 65 72 2e 22 29  |ectory viewer.")|
00004b50  3a e1 0d 15 7c 15 66 69  6c 65 6e 61 6d 65 24 3d  |:...|.filename$=|
00004b60  66 69 6c 65 6e 61 24 0d  15 86 10 f2 64 6f 74 68  |filena$.....doth|
00004b70  69 6e 67 79 28 31 29 0d  15 90 05 e1 0d 15 9a 04  |ingy(1).........|
00004b80  0d 15 a4 11 dd f2 6f 6b  28 62 75 74 74 6f 6e 25  |......ok(button%|
00004b90  29 0d 15 ae 1f e7 20 77  69 6d 70 25 21 38 3c 3e  |)..... wimp%!8<>|
00004ba0  31 20 80 20 77 69 6d 70  25 21 38 3c 3e 34 20 e1  |1 . wimp%!8<>4 .|
00004bb0  0d 15 b8 10 f2 67 65 74  66 69 6c 65 6e 61 6d 65  |.....getfilename|
00004bc0  0d 15 c2 4f e7 20 a7 66  69 6c 65 6e 61 24 2c 22  |...O. .filena$,"|
00004bd0  2e 22 29 3d 30 20 f2 65  72 72 28 31 2c 22 54 6f  |.")=0 .err(1,"To|
00004be0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
00004bf0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00004c00  6f 72 79 20 76 69 65 77  65 72 2e 22 29 3a e1 0d  |ory viewer."):..|
00004c10  15 cc 15 66 69 6c 65 6e  61 6d 65 24 3d 66 69 6c  |...filename$=fil|
00004c20  65 6e 61 24 0d 15 d6 19  e7 20 62 75 74 74 6f 6e  |ena$..... button|
00004c30  25 3d 31 20 62 75 74 74  6f 6e 25 3d 30 0d 15 e0  |%=1 button%=0...|
00004c40  19 e7 20 62 75 74 74 6f  6e 25 3d 34 20 62 75 74  |.. button%=4 but|
00004c50  74 6f 6e 25 3d 31 0d 15  ea 16 f2 64 6f 74 68 69  |ton%=1.....dothi|
00004c60  6e 67 79 28 62 75 74 74  6f 6e 25 29 0d 15 f4 05  |ngy(button%)....|
00004c70  e1 0d 15 fe 04 0d 16 08  13 dd f2 64 72 61 67 5f  |...........drag_|
00004c80  63 6f 6d 70 6c 65 74 65  0d 16 12 27 e7 20 64 72  |complete...'. dr|
00004c90  61 67 79 6e 25 3c 3e 2d  31 20 c8 99 20 22 44 72  |agyn%<>-1 .. "Dr|
00004ca0  61 67 41 53 70 72 69 74  65 5f 53 74 6f 70 22 0d  |agASprite_Stop".|
00004cb0  16 1c 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |..#.. "Wimp_GetP|
00004cc0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 77 69 6d  |ointerInfo",,wim|
00004cd0  70 25 0d 16 26 3d 54 68  65 57 69 6e 64 6f 77 25  |p%..&=TheWindow%|
00004ce0  3d 77 69 6d 70 25 21 31  32 3a 54 68 65 49 63 6f  |=wimp%!12:TheIco|
00004cf0  6e 25 3d 77 69 6d 70 25  21 31 36 3a 78 3d 77 69  |n%=wimp%!16:x=wi|
00004d00  6d 70 25 21 30 3a 79 3d  77 69 6d 70 25 21 34 0d  |mp%!0:y=wimp%!4.|
00004d10  16 30 4a 77 69 6d 70 25  21 30 3d 36 34 3a 77 69  |.0Jwimp%!0=64:wi|
00004d20  6d 70 25 21 31 32 3d 30  3a 77 69 6d 70 25 21 31  |mp%!12=0:wimp%!1|
00004d30  36 3d 31 3a 77 69 6d 70  25 21 32 30 3d 54 68 65  |6=1:wimp%!20=The|
00004d40  57 69 6e 64 6f 77 25 3a  77 69 6d 70 25 21 32 34  |Window%:wimp%!24|
00004d50  3d 54 68 65 49 63 6f 6e  25 0d 16 3a 19 77 69 6d  |=TheIcon%..:.wim|
00004d60  70 25 21 32 38 3d 78 3a  77 69 6d 70 25 21 33 32  |p%!28=x:wimp%!32|
00004d70  3d 79 0d 16 44 2d e7 20  73 61 76 65 67 74 25 3d  |=y..D-. savegt%=|
00004d80  31 20 77 69 6d 70 25 21  33 36 3d 35 35 30 30 20  |1 wimp%!36=5500 |
00004d90  8b 20 77 69 6d 70 25 21  33 36 3d 31 32 30 30 0d  |. wimp%!36=1200.|
00004da0  16 4e 2d e7 20 73 61 76  65 67 74 25 3d 31 20 77  |.N-. savegt%=1 w|
00004db0  69 6d 70 25 21 34 30 3d  26 31 37 39 20 8b 20 77  |imp%!40=&179 . w|
00004dc0  69 6d 70 25 21 34 30 3d  26 46 46 46 0d 16 58 17  |imp%!40=&FFF..X.|
00004dd0  24 28 77 69 6d 70 25 2b  34 34 29 3d 66 69 6c 65  |$(wimp%+44)=file|
00004de0  6e 61 24 0d 16 62 36 c8  99 20 22 57 69 6d 70 5f  |na$..b6.. "Wimp_|
00004df0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00004e00  77 69 6d 70 25 2c 54 68  65 57 69 6e 64 6f 77 25  |wimp%,TheWindow%|
00004e10  2c 54 68 65 49 63 6f 6e  25 0d 16 6c 05 e1 0d 16  |,TheIcon%..l....|
00004e20  76 04 0d 16 80 0a dd f2  73 61 76 65 0d 16 8a 21  |v.......save...!|
00004e30  78 3d 77 69 6d 70 25 21  30 3a 79 3d 77 69 6d 70  |x=wimp%!0:y=wimp|
00004e40  25 21 34 3a 7a 3d 77 69  6d 70 25 21 38 0d 16 94  |%!4:z=wimp%!8...|
00004e50  20 66 69 6c 65 6e 61 6d  65 24 3d a4 63 6f 6e 76  | filename$=.conv|
00004e60  65 72 74 28 77 69 6d 70  25 2b 34 34 29 0d 16 9e  |ert(wimp%+44)...|
00004e70  23 77 69 6d 70 25 21 30  3d 78 3a 77 69 6d 70 25  |#wimp%!0=x:wimp%|
00004e80  21 31 32 3d 7a 3a 77 69  6d 70 25 21 31 36 3d 33  |!12=z:wimp%!16=3|
00004e90  0d 16 a8 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...$.. "Wimp_Sen|
00004ea0  64 4d 65 73 73 61 67 65  22 2c 31 38 2c 77 69 6d  |dMessage",18,wim|
00004eb0  70 25 2c 79 0d 16 b2 28  66 69 6c 65 6e 61 6d 65  |p%,y...(filename|
00004ec0  24 3d a4 66 69 78 73 74  72 69 6e 67 28 66 69 6c  |$=.fixstring(fil|
00004ed0  65 6e 61 6d 65 24 2b bd  28 30 29 29 0d 16 bc 10  |ename$+.(0))....|
00004ee0  f2 64 6f 74 68 69 6e 67  79 28 31 29 0d 16 c6 05  |.dothingy(1)....|
00004ef0  e1 0d 16 d0 04 0d 16 da  12 dd a4 63 6f 6e 76 65  |...........conve|
00004f00  72 74 28 6e 6f 25 29 0d  16 e4 0e 64 6f 6f 66 65  |rt(no%)....doofe|
00004f10  72 24 3d 22 22 0d 16 ee  0b c8 95 20 3f 6e 6f 25  |r$=""...... ?no%|
00004f20  0d 16 f8 12 64 6f 6f 66  65 72 24 2b 3d bd 3f 6e  |....doofer$+=.?n|
00004f30  6f 25 0d 17 02 0a 6e 6f  25 2b 3d 31 0d 17 0c 05  |o%....no%+=1....|
00004f40  ce 0d 17 16 0c 3d 64 6f  6f 66 65 72 24 0d 17 20  |.....=doofer$.. |
00004f50  04 0d 17 2a 13 dd f2 64  6f 74 68 69 6e 67 79 28  |...*...dothingy(|
00004f60  66 67 25 29 0d 17 34 1b  e7 20 73 61 76 65 67 74  |fg%)..4.. savegt|
00004f70  25 3d 32 20 f2 73 61 76  65 74 65 78 74 3a e1 0d  |%=2 .savetext:..|
00004f80  17 3e 13 41 25 3d ae 28  66 69 6c 65 6e 61 6d 65  |.>.A%=.(filename|
00004f90  24 29 0d 17 48 2a d5 23  41 25 2c 22 21 47 6f 72  |$)..H*.#A%,"!Gor|
00004fa0  6d 20 53 61 76 65 64 20  47 61 6d 65 20 2d 20 73  |m Saved Game - s|
00004fb0  61 76 65 64 20 6f 6e 20  22 2b 91 24 0d 17 52 12  |aved on "+.$..R.|
00004fc0  d5 23 41 25 2c c3 28 73  77 65 61 72 25 29 0d 17  |.#A%,.(swear%)..|
00004fd0  5c 15 d5 23 41 25 2c c3  28 63 6f 6d 70 75 74 65  |\..#A%,.(compute|
00004fe0  72 25 29 0d 17 66 14 d5  23 41 25 2c c3 28 6e 6f  |r%)..f..#A%,.(no|
00004ff0  74 69 6d 65 73 25 29 0d  17 70 11 d5 23 41 25 2c  |times%)..p..#A%,|
00005000  6f 6c 64 77 6f 72 64 24  0d 17 7a 13 d5 23 41 25  |oldword$..z..#A%|
00005010  2c c3 28 72 6f 6f 6d 6e  6f 25 29 0d 17 84 12 d5  |,.(roomno%).....|
00005020  23 41 25 2c c3 28 73 6c  65 65 70 25 29 0d 17 8e  |#A%,.(sleep%)...|
00005030  14 d5 23 41 25 2c c3 28  77 72 69 74 74 65 6e 25  |..#A%,.(written%|
00005040  29 0d 17 98 11 d5 23 41  25 2c c3 28 66 6f 6e 74  |).....#A%,.(font|
00005050  25 29 0d 17 a2 12 d5 23  41 25 2c c3 28 6e 69 66  |%).....#A%,.(nif|
00005060  6f 6b 25 29 0d 17 ac 16  d5 23 41 25 2c c3 28 65  |ok%).....#A%,.(e|
00005070  78 69 74 73 28 32 2c 32  29 29 0d 17 b6 17 d5 23  |xits(2,2)).....#|
00005080  41 25 2c c3 28 65 78 69  74 73 28 37 32 2c 33 29  |A%,.(exits(72,3)|
00005090  29 0d 17 c0 17 d5 23 41  25 2c c3 28 65 78 69 74  |).....#A%,.(exit|
000050a0  73 28 38 35 2c 32 29 29  0d 17 ca 18 d5 23 41 25  |s(85,2)).....#A%|
000050b0  2c c3 28 65 78 69 74 73  28 31 31 30 2c 34 29 29  |,.(exits(110,4))|
000050c0  0d 17 d4 18 d5 23 41 25  2c c3 28 65 78 69 74 73  |.....#A%,.(exits|
000050d0  28 31 31 31 2c 32 29 29  0d 17 de 18 d5 23 41 25  |(111,2)).....#A%|
000050e0  2c c3 28 65 78 69 74 73  28 31 37 39 2c 31 29 29  |,.(exits(179,1))|
000050f0  0d 17 e8 18 d5 23 41 25  2c c3 28 65 78 69 74 73  |.....#A%,.(exits|
00005100  28 33 31 30 2c 32 29 29  0d 17 f2 10 d5 23 41 25  |(310,2)).....#A%|
00005110  2c c3 28 69 6c 6c 25 29  0d 17 fc 14 d5 23 41 25  |,.(ill%).....#A%|
00005120  2c c3 28 6d 65 64 69 75  6d 31 25 29 0d 18 06 14  |,.(medium1%)....|
00005130  d5 23 41 25 2c c3 28 6d  65 64 69 75 6d 32 25 29  |.#A%,.(medium2%)|
00005140  0d 18 10 12 d5 23 41 25  2c c3 28 70 61 79 65 64  |.....#A%,.(payed|
00005150  25 29 0d 18 1a 11 d5 23  41 25 2c c3 28 72 65 6e  |%).....#A%,.(ren|
00005160  77 25 29 0d 18 24 12 d5  23 41 25 2c c3 28 63 72  |w%)..$..#A%,.(cr|
00005170  69 65 72 25 29 0d 18 2e  12 d5 23 41 25 2c c3 28  |ier%).....#A%,.(|
00005180  6d 6f 75 6c 64 25 29 0d  18 38 10 d5 23 41 25 2c  |mould%)..8..#A%,|
00005190  c3 28 64 75 67 25 29 0d  18 42 11 d5 23 41 25 2c  |.(dug%)..B..#A%,|
000051a0  c3 28 70 61 6d 70 25 29  0d 18 4c 11 d5 23 41 25  |.(pamp%)..L..#A%|
000051b0  2c c3 28 77 68 69 7a 25  29 0d 18 56 11 d5 23 41  |,.(whiz%)..V..#A|
000051c0  25 2c c3 28 66 69 72 65  25 29 0d 18 60 15 d5 23  |%,.(fire%)..`..#|
000051d0  41 25 2c c3 28 73 75 69  74 63 61 73 65 25 29 0d  |A%,.(suitcase%).|
000051e0  18 6a 13 d5 23 41 25 2c  c3 28 69 6e 6a 75 72 65  |.j..#A%,.(injure|
000051f0  25 29 0d 18 74 11 d5 23  41 25 2c c3 28 7a 6f 6e  |%)..t..#A%,.(zon|
00005200  65 25 29 0d 18 7e 13 d5  23 41 25 2c c3 28 64 75  |e%)..~..#A%,.(du|
00005210  67 67 65 64 25 29 0d 18  88 15 d5 23 41 25 2c 72  |gged%).....#A%,r|
00005220  6f 6f 6d 73 24 28 37 38  2c 32 29 0d 18 92 15 d5  |ooms$(78,2).....|
00005230  23 41 25 2c 72 6f 6f 6d  73 24 28 37 38 2c 33 29  |#A%,rooms$(78,3)|
00005240  0d 18 9c 15 d5 23 41 25  2c 72 6f 6f 6d 73 24 28  |.....#A%,rooms$(|
00005250  37 38 2c 34 29 0d 18 a6  15 d5 23 41 25 2c 72 6f  |78,4).....#A%,ro|
00005260  6f 6d 73 24 28 38 35 2c  35 29 0d 18 b0 16 d5 23  |oms$(85,5).....#|
00005270  41 25 2c 61 62 62 72 65  76 24 28 37 38 2c 31 29  |A%,abbrev$(78,1)|
00005280  0d 18 ba 14 d5 23 41 25  2c 72 65 6e 74 72 79 24  |.....#A%,rentry$|
00005290  28 37 38 29 0d 18 c4 0e  e3 20 61 25 3d 31 20 b8  |(78)..... a%=1 .|
000052a0  20 33 0d 18 ce 17 d5 23  41 25 2c c3 28 70 6f 6c  | 3.....#A%,.(pol|
000052b0  69 63 65 25 28 61 25 29  29 0d 18 d8 17 d5 23 41  |ice%(a%)).....#A|
000052c0  25 2c c3 28 70 6f 6c 64  69 72 25 28 61 25 29 29  |%,.(poldir%(a%))|
000052d0  0d 18 e2 08 ed 20 61 25  0d 18 ec 14 d5 23 41 25  |..... a%.....#A%|
000052e0  2c c3 28 64 72 75 67 67  65 64 25 29 0d 18 f6 18  |,.(drugged%)....|
000052f0  e3 20 61 25 3d 31 20 b8  20 74 6f 74 61 6c 72 6f  |. a%=1 . totalro|
00005300  6f 6d 73 25 0d 19 00 16  d5 23 41 25 2c c3 28 6d  |oms%.....#A%,.(m|
00005310  61 70 79 6e 25 28 61 25  29 29 0d 19 0a 08 ed 20  |apyn%(a%))..... |
00005320  61 25 0d 19 14 0f e3 20  61 25 3d 31 20 b8 20 31  |a%..... a%=1 . 1|
00005330  30 0d 19 1e 12 d5 23 41  25 2c 6f 77 6e 73 24 28  |0.....#A%,owns$(|
00005340  61 25 29 0d 19 28 08 ed  20 61 25 0d 19 32 0f e3  |a%)..(.. a%..2..|
00005350  20 61 25 3d 31 20 b8 20  31 31 0d 19 3c 13 d5 23  | a%=1 . 11..<..#|
00005360  41 25 2c 71 75 65 73 74  24 28 61 25 29 0d 19 46  |A%,quest$(a%)..F|
00005370  08 ed 20 61 25 0d 19 50  18 e3 20 61 25 3d 31 20  |.. a%..P.. a%=1 |
00005380  b8 20 74 6f 74 61 6c 72  6f 6f 6d 73 25 0d 19 5a  |. totalrooms%..Z|
00005390  0f e3 20 62 25 3d 31 20  b8 20 31 30 0d 19 64 18  |.. b%=1 . 10..d.|
000053a0  d5 23 41 25 2c 6f 62 6a  65 63 74 73 24 28 61 25  |.#A%,objects$(a%|
000053b0  2c 62 25 29 0d 19 6e 08  ed 20 62 25 0d 19 78 08  |,b%)..n.. b%..x.|
000053c0  ed 20 61 25 0d 19 82 08  d9 23 41 25 0d 19 8c 20  |. a%.....#A%... |
000053d0  ff 22 53 65 74 74 79 70  65 20 22 2b 66 69 6c 65  |."Settype "+file|
000053e0  6e 61 6d 65 24 2b 22 20  31 37 39 22 0d 19 96 23  |name$+" 179"...#|
000053f0  e7 20 66 67 25 3d 31 20  c8 99 20 22 57 69 6d 70  |. fg%=1 .. "Wimp|
00005400  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2d 31 0d  |_CreateMenu",-1.|
00005410  19 a0 1c f2 73 65 74 69  63 6f 6e 28 6b 25 2c 31  |....seticon(k%,1|
00005420  2c 66 69 6c 65 6e 61 6d  65 24 29 0d 19 aa 2a 77  |,filename$)...*w|
00005430  69 6d 70 25 21 30 3d 6b  25 3a c8 99 22 57 69 6d  |imp%!0=k%:.."Wim|
00005440  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00005450  77 69 6d 70 25 0d 19 b4  0e 61 6c 74 65 72 65 64  |wimp%....altered|
00005460  25 3d 30 0d 19 be 05 e1  0d 19 c8 04 0d 19 d2 0e  |%=0.............|
00005470  dd f2 73 61 76 65 74 65  78 74 0d 19 dc 13 41 25  |..savetext....A%|
00005480  3d ae 28 66 69 6c 65 6e  61 6d 65 24 29 0d 19 e6  |=.(filename$)...|
00005490  24 d5 23 41 25 2c 22 54  65 78 74 20 66 72 6f 6d  |$.#A%,"Text from|
000054a0  20 47 6f 72 6d 20 61 64  76 65 6e 74 75 72 65 3a  | Gorm adventure:|
000054b0  22 0d 19 f0 0b d5 23 41  25 2c 22 22 0d 19 fa 0f  |".....#A%,""....|
000054c0  e3 20 61 25 3d 31 20 b8  20 31 31 0d 1a 04 14 6c  |. a%=1 . 11....l|
000054d0  69 6e 65 24 3d 71 75 65  73 74 24 28 61 25 29 0d  |ine$=quest$(a%).|
000054e0  1a 0e 21 e7 20 c0 6c 69  6e 65 24 2c 31 29 3d 22  |..!. .line$,1)="|
000054f0  40 22 20 c0 6c 69 6e 65  24 2c 31 29 3d 22 2d 22  |@" .line$,1)="-"|
00005500  0d 1a 18 0e d5 23 41 25  2c 6c 69 6e 65 24 0d 1a  |.....#A%,line$..|
00005510  22 08 ed 20 61 25 0d 1a  2c 08 d9 23 41 25 0d 1a  |".. a%..,..#A%..|
00005520  36 20 ff 22 53 65 74 74  79 70 65 20 22 2b 66 69  |6 ."Settype "+fi|
00005530  6c 65 6e 61 6d 65 24 2b  22 20 46 46 46 22 0d 1a  |lename$+" FFF"..|
00005540  40 23 e7 20 66 67 25 3d  31 20 c8 99 20 22 57 69  |@#. fg%=1 .. "Wi|
00005550  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2d  |mp_CreateMenu",-|
00005560  31 0d 1a 4a 1c f2 73 65  74 69 63 6f 6e 28 6b 25  |1..J..seticon(k%|
00005570  2c 31 2c 66 69 6c 65 6e  61 6d 65 24 29 0d 1a 54  |,1,filename$)..T|
00005580  2a 77 69 6d 70 25 21 30  3d 6b 25 3a c8 99 22 57  |*wimp%!0=k%:.."W|
00005590  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000055a0  2c 2c 77 69 6d 70 25 0d  1a 5e 05 e1 0d 1a 68 04  |,,wimp%..^....h.|
000055b0  0d 1a 72 1d dd f2 65 72  72 28 77 69 6d 70 25 21  |..r...err(wimp%!|
000055c0  30 2c 24 28 77 69 6d 70  25 2b 34 29 29 0d 1a 7c  |0,$(wimp%+4))..||
000055d0  27 e7 20 66 6f 6e 74 65  72 72 6f 72 25 3d 31 20  |'. fonterror%=1 |
000055e0  6d 79 66 6f 6e 74 25 3d  2d 31 3a 66 6f 6e 74 25  |myfont%=-1:font%|
000055f0  3d 30 3a e1 0d 1a 86 46  e7 20 68 65 61 70 65 72  |=0:....F. heaper|
00005600  72 6f 72 25 3d 31 20 f2  73 65 74 69 63 6f 6e 28  |ror%=1 .seticon(|
00005610  67 72 65 65 74 68 61 6e  25 2c 31 2c 22 57 69 74  |greethan%,1,"Wit|
00005620  68 6f 75 74 20 70 69 63  74 75 72 65 73 22 29 3a  |hout pictures"):|
00005630  70 69 63 79 6e 25 3d 30  3a e1 0d 1a 90 10 c8 8e  |picyn%=0:.......|
00005640  20 77 69 6d 70 25 21 30  20 ca 0d 1a 9a 46 c9 20  | wimp%!0 ....F. |
00005650  32 30 34 20 3a 20 24 28  77 69 6d 70 25 2b 34 29  |204 : $(wimp%+4)|
00005660  2b 3d 22 2e 20 43 68 61  6e 67 65 20 74 68 65 20  |+=". Change the |
00005670  66 69 6c 65 6e 61 6d 65  20 74 6f 20 73 6f 6d 65  |filename to some|
00005680  74 68 69 6e 67 20 70 6f  73 73 69 62 6c 65 2e 22  |thing possible."|
00005690  0d 1a a4 45 c9 20 36 37  37 38 35 20 3a 20 24 28  |...E. 67785 : $(|
000056a0  77 69 6d 70 25 2b 34 29  2b 3d 22 2e 20 46 6c 69  |wimp%+4)+=". Fli|
000056b0  70 20 74 68 65 20 74 61  62 20 6f 6e 20 74 68 65  |p the tab on the|
000056c0  20 64 69 73 63 20 61 6e  64 20 74 72 79 20 61 67  | disc and try ag|
000056d0  61 69 6e 2e 22 0d 1a ae  05 cb 0d 1a b8 28 c8 99  |ain."........(..|
000056e0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
000056f0  6f 72 22 2c 77 69 6d 70  25 2c 31 2c 22 47 6f 72  |or",wimp%,1,"Gor|
00005700  6d 22 0d 1a c2 05 e1 0d  1a cc 04 0d 1a d6 0d dd  |m"..............|
00005710  f2 69 63 6f 6e 62 61 72  0d 1a e0 22 77 69 6d 70  |.iconbar..."wimp|
00005720  25 21 30 3d 2d 31 3a 77  69 6d 70 25 21 34 3d 30  |%!0=-1:wimp%!4=0|
00005730  3a 77 69 6d 70 25 21 38  3d 30 0d 1a ea 2a 77 69  |:wimp%!8=0...*wi|
00005740  6d 70 25 21 31 32 3d 36  38 3a 77 69 6d 70 25 21  |mp%!12=68:wimp%!|
00005750  31 36 3d 36 38 3a 77 69  6d 70 25 21 32 30 3d 26  |16=68:wimp%!20=&|
00005760  33 30 30 41 0d 1a f4 17  24 28 77 69 6d 70 25 2b  |300A....$(wimp%+|
00005770  32 34 29 3d 22 21 47 6f  72 6d 22 0d 1a fe 28 c8  |24)="!Gorm"...(.|
00005780  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00005790  6f 6e 22 2c 2c 77 69 6d  70 25 20 b8 20 69 63 68  |on",,wimp% . ich|
000057a0  61 6e 25 0d 1b 08 05 e1  0d 1b 12 04 0d 1b 1c 10  |an%.............|
000057b0  dd f2 6d 65 6e 75 73 65  6c 65 63 74 0d 1b 26 19  |..menuselect..&.|
000057c0  61 25 3d 77 69 6d 70 25  21 30 3a 62 25 3d 77 69  |a%=wimp%!0:b%=wi|
000057d0  6d 70 25 21 34 0d 1b 30  23 c8 99 20 22 57 69 6d  |mp%!4..0#.. "Wim|
000057e0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000057f0  22 2c 2c 77 69 6d 70 25  0d 1b 3a 10 62 75 74 25  |",,wimp%..:.but%|
00005800  3d 77 69 6d 70 25 21 38  0d 1b 44 19 77 69 6d 70  |=wimp%!8..D.wimp|
00005810  25 21 30 3d 61 25 3a 77  69 6d 70 25 21 34 3d 62  |%!0=a%:wimp%!4=b|
00005820  25 0d 1b 4e 1e 66 6e 74  6f 70 74 25 3d 31 3a e7  |%..N.fntopt%=1:.|
00005830  20 6d 25 3d 30 20 66 6e  74 6f 70 74 25 3d 30 0d  | m%=0 fntopt%=0.|
00005840  1b 58 22 65 78 74 72 61  6f 70 74 25 3d 32 3a e7  |.X"extraopt%=2:.|
00005850  20 6d 25 3d 30 20 65 78  74 72 61 6f 70 74 25 3d  | m%=0 extraopt%=|
00005860  31 0d 1b 62 1e 70 61 6e  65 6c 73 25 3d 33 3a e7  |1..b.panels%=3:.|
00005870  20 6d 25 3d 30 20 70 61  6e 65 6c 73 25 3d 32 0d  | m%=0 panels%=2.|
00005880  1b 6c 24 72 65 73 74 72  74 6f 70 74 25 3d 34 3a  |.l$restrtopt%=4:|
00005890  e7 20 6d 25 3d 30 20 72  65 73 74 72 74 6f 70 74  |. m%=0 restrtopt|
000058a0  25 3d 33 0d 1b 76 20 73  61 76 65 6f 70 74 25 3d  |%=3..v saveopt%=|
000058b0  35 3a e7 20 6d 25 3d 30  20 73 61 76 65 6f 70 74  |5:. m%=0 saveopt|
000058c0  25 3d 34 0d 1b 80 10 c8  8e 20 77 69 6d 70 25 21  |%=4...... wimp%!|
000058d0  30 20 ca 0d 1b 8a 1e 20  20 c9 20 66 6e 74 6f 70  |0 .....  . fntop|
000058e0  74 25 20 3a 20 c8 8e 20  77 69 6d 70 25 21 34 20  |t% : .. wimp%!4 |
000058f0  ca 0d 1b 94 42 20 20 20  20 c9 20 30 2c 31 20 3a  |....B    . 0,1 :|
00005900  20 66 6f 6e 74 25 3d 77  69 6d 70 25 21 34 3a 77  | font%=wimp%!4:w|
00005910  69 6d 70 25 21 30 3d 61  64 76 65 6e 74 68 61 6e  |imp%!0=adventhan|
00005920  25 3a e7 20 6f 70 65 6e  25 3d 31 20 f2 72 65 64  |%:. open%=1 .red|
00005930  72 61 77 0d 1b 9e 09 20  20 20 20 cb 0d 1b a8 20  |raw....    .... |
00005940  20 20 c9 20 65 78 74 72  61 6f 70 74 25 20 3a 20  |  . extraopt% : |
00005950  c8 8e 20 77 69 6d 70 25  21 34 20 ca 0d 1b b2 c8  |.. wimp%!4 .....|
00005960  20 20 20 20 c9 20 2d 31  20 3a 20 77 69 6d 70 25  |    . -1 : wimp%|
00005970  21 30 3d 6d 61 70 68 61  6e 25 3a c8 99 22 57 69  |!0=maphan%:.."Wi|
00005980  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00005990  65 22 2c 2c 77 69 6d 70  25 3a 77 69 6d 70 25 21  |e",,wimp%:wimp%!|
000059a0  32 38 3d 2d 31 3a c8 99  22 57 69 6d 70 5f 4f 70  |28=-1:.."Wimp_Op|
000059b0  65 6e 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |enWindow",,wimp%|
000059c0  3a e7 20 70 69 63 79 6e  25 3d 31 20 77 69 6d 70  |:. picyn%=1 wimp|
000059d0  25 21 30 3d 70 69 63 63  69 65 68 61 6e 25 3a c8  |%!0=picciehan%:.|
000059e0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
000059f0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 3a 77 69  |State",,wimp%:wi|
00005a00  6d 70 25 21 32 38 3d 2d  31 3a c8 99 22 57 69 6d  |mp%!28=-1:.."Wim|
00005a10  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00005a20  69 6d 70 25 0d 1b bc 63  20 20 20 20 c9 20 30 20  |imp%...c    . 0 |
00005a30  3a 20 77 69 6d 70 25 21  30 3d 6d 61 70 68 61 6e  |: wimp%!0=maphan|
00005a40  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00005a50  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00005a60  3a 77 69 6d 70 25 21 32  38 3d 2d 31 3a c8 99 22  |:wimp%!28=-1:.."|
00005a70  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00005a80  2c 2c 77 69 6d 70 25 0d  1b c6 66 20 20 20 20 c9  |,,wimp%...f    .|
00005a90  20 31 20 3a 20 77 69 6d  70 25 21 30 3d 70 69 63  | 1 : wimp%!0=pic|
00005aa0  63 69 65 68 61 6e 25 3a  c8 99 22 57 69 6d 70 5f  |ciehan%:.."Wimp_|
00005ab0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00005ac0  2c 77 69 6d 70 25 3a 77  69 6d 70 25 21 32 38 3d  |,wimp%:wimp%!28=|
00005ad0  2d 31 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |-1:.."Wimp_OpenW|
00005ae0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 1b d0  |indow",,wimp%...|
00005af0  09 20 20 20 20 cb 0d 1b  da 1e 20 20 c9 20 70 61  |.    .....  . pa|
00005b00  6e 65 6c 73 25 20 3a 20  c8 8e 20 77 69 6d 70 25  |nels% : .. wimp%|
00005b10  21 34 20 ca 0d 1b e4 1f  20 20 20 20 c9 20 30 20  |!4 .....    . 0 |
00005b20  3a 20 70 6f 73 69 79 6e  25 3d 31 2d 70 6f 73 69  |: posiyn%=1-posi|
00005b30  79 6e 25 0d 1b ee 49 20  20 20 20 20 20 20 20 20  |yn%...I         |
00005b40  20 20 20 20 e7 20 70 6f  73 69 79 6e 25 3d 30 20  |    . posiyn%=0 |
00005b50  77 69 6d 70 25 21 30 3d  70 6f 73 69 68 61 6e 25  |wimp%!0=posihan%|
00005b60  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
00005b70  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 1b f8 98  |ndow",,wimp%....|
00005b80  20 20 20 20 20 20 20 20  20 20 20 20 20 e7 20 70  |             . p|
00005b90  6f 73 69 79 6e 25 3d 31  20 80 20 6f 70 65 6e 25  |osiyn%=1 . open%|
00005ba0  3d 31 20 77 69 6d 70 25  21 30 3d 61 64 76 65 6e  |=1 wimp%!0=adven|
00005bb0  74 68 61 6e 25 3a c8 99  22 57 69 6d 70 5f 47 65  |than%:.."Wimp_Ge|
00005bc0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
00005bd0  69 6d 70 25 3a 77 69 6d  70 25 21 30 3d 70 6f 73  |imp%:wimp%!0=pos|
00005be0  69 68 61 6e 25 3a 77 69  6d 70 25 21 38 3d 77 69  |ihan%:wimp%!8=wi|
00005bf0  6d 70 25 21 31 36 2d 34  34 3a c8 99 22 57 69 6d  |mp%!16-44:.."Wim|
00005c00  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00005c10  69 6d 70 25 0d 1c 02 07  20 20 cb 0d 1c 0c 69 20  |imp%....  ....i |
00005c20  20 c9 20 72 65 73 74 72  74 6f 70 74 25 20 3a 20  | . restrtopt% : |
00005c30  e7 20 61 6c 74 65 72 65  64 25 3d 31 20 f2 77 61  |. altered%=1 .wa|
00005c40  72 6e 69 6e 67 28 33 2c  22 22 2c 22 52 65 73 74  |rning(3,"","Rest|
00005c50  61 72 74 69 6e 67 20 77  69 6c 6c 20 6c 6f 73 65  |arting will lose|
00005c60  22 2c 22 74 68 65 20 63  75 72 72 65 6e 74 20 67  |","the current g|
00005c70  61 6d 65 2e 22 2c 22 22  29 20 8b 20 f2 72 65 73  |ame.","") . .res|
00005c80  74 61 72 74 0d 1c 16 23  20 20 20 20 20 20 c9 20  |tart...#      . |
00005c90  73 61 76 65 6f 70 74 25  20 3a 20 c8 8e 20 77 69  |saveopt% : .. wi|
00005ca0  6d 70 25 21 34 20 ca 0d  1c 20 cf 20 20 20 20 20  |mp%!4 ... .     |
00005cb0  20 c9 20 30 20 3a 20 f2  67 65 74 66 69 6c 65 6e  | . 0 : .getfilen|
00005cc0  61 6d 65 3a e7 20 a7 66  69 6c 65 6e 61 24 2c 22  |ame:. .filena$,"|
00005cd0  2e 22 29 3d 30 20 77 69  6d 70 25 21 30 3d 6b 25  |.")=0 wimp%!0=k%|
00005ce0  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00005cf0  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 3a  |owState",,wimp%:|
00005d00  77 69 6d 70 25 21 32 38  3d 2d 31 3a c8 99 22 57  |wimp%!28=-1:.."W|
00005d10  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00005d20  2c 77 69 6d 70 25 3a c8  99 22 57 69 6d 70 5f 53  |,wimp%:.."Wimp_S|
00005d30  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00005d40  2c 6b 25 2c 31 2c 2c 2c  2d 31 2c a9 28 66 69 6c  |,k%,1,,,-1,.(fil|
00005d50  65 6e 61 24 29 20 8b 20  66 69 6c 65 6e 61 6d 65  |ena$) . filename|
00005d60  24 3d 66 69 6c 65 6e 61  24 3a f2 64 6f 74 68 69  |$=filena$:.dothi|
00005d70  6e 67 79 28 30 29 0d 1c  2a 1c 20 20 20 20 20 20  |ngy(0)..*.      |
00005d80  c9 20 31 20 3a 20 f2 73  61 76 65 6f 70 74 69 6f  |. 1 : .saveoptio|
00005d90  6e 73 0d 1c 34 cd 20 20  20 20 20 20 7f 20 3a 20  |ns..4.      . : |
00005da0  f2 67 65 74 66 69 6c 65  6e 61 6d 65 3a e7 20 a7  |.getfilename:. .|
00005db0  66 69 6c 65 6e 61 24 2c  22 2e 22 29 3d 30 20 77  |filena$,".")=0 w|
00005dc0  69 6d 70 25 21 30 3d 6b  25 3a c8 99 22 57 69 6d  |imp%!0=k%:.."Wim|
00005dd0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00005de0  22 2c 2c 77 69 6d 70 25  3a 77 69 6d 70 25 21 32  |",,wimp%:wimp%!2|
00005df0  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
00005e00  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 3a  |nWindow",,wimp%:|
00005e10  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00005e20  50 6f 73 69 74 69 6f 6e  22 2c 6b 25 2c 31 2c 2c  |Position",k%,1,,|
00005e30  2c 2d 31 2c a9 28 66 69  6c 65 6e 61 24 29 20 8b  |,-1,.(filena$) .|
00005e40  20 66 69 6c 65 6e 61 6d  65 24 3d 66 69 6c 65 6e  | filename$=filen|
00005e50  61 24 3a f2 64 6f 74 68  69 6e 67 79 28 30 29 0d  |a$:.dothingy(0).|
00005e60  1c 3e 0b 20 20 20 20 20  20 cb 0d 1c 48 13 20 20  |.>.      ...H.  |
00005e70  c9 20 36 20 3a 20 f2 71  75 69 74 79 6e 0d 1c 52  |. 6 : .quityn..R|
00005e80  05 cb 0d 1c 5c 45 e7 20  62 75 74 25 3d 31 20 80  |....\E. but%=1 .|
00005e90  20 77 69 6d 70 25 21 30  3c 3e 36 20 77 69 6d 70  | wimp%!0<>6 wimp|
00005ea0  25 21 30 3d 6d 6f 75 73  78 25 3a 77 69 6d 70 25  |%!0=mousx%:wimp%|
00005eb0  21 34 3d 6d 6f 75 73 79  25 3a f2 6d 61 6b 65 6d  |!4=mousy%:.makem|
00005ec0  65 6e 75 28 6d 25 29 0d  1c 66 05 e1 0d 1c 70 04  |enu(m%)..f....p.|
00005ed0  0d 1c 7a 0d dd f2 72 65  73 74 61 72 74 0d 1c 84  |..z...restart...|
00005ee0  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00005ef0  6e 22 0d 1c 8e 0e e3 20  61 3d 31 20 b8 20 31 31  |n"..... a=1 . 11|
00005f00  0d 1c 98 10 71 75 65 73  74 24 28 61 29 3d 22 22  |....quest$(a)=""|
00005f10  0d 1c a2 07 ed 20 61 0d  1c ac 0f e3 20 61 25 3d  |..... a..... a%=|
00005f20  31 20 b8 20 31 30 0d 1c  b6 10 6f 77 6e 73 24 28  |1 . 10....owns$(|
00005f30  61 25 29 3d 22 22 0d 1c  c0 08 ed 20 61 25 0d 1c  |a%)=""..... a%..|
00005f40  ca e7 73 77 65 61 72 25  3d 30 3a 63 6f 6d 70 75  |..swear%=0:compu|
00005f50  74 65 72 25 3d 30 3a 6e  6f 74 69 6d 65 73 25 3d  |ter%=0:notimes%=|
00005f60  30 3a 72 6f 6f 6d 6e 6f  25 3d 31 3a 7a 6f 6e 65  |0:roomno%=1:zone|
00005f70  25 3d 31 3a 73 6c 65 65  70 25 3d 30 3a 61 6c 74  |%=1:sleep%=0:alt|
00005f80  65 72 65 64 25 3d 30 3a  77 72 69 74 74 65 6e 25  |ered%=0:written%|
00005f90  3d 30 3a 73 75 69 74 63  61 73 65 25 3d 30 3a 6e  |=0:suitcase%=0:n|
00005fa0  69 66 6f 6b 25 3d 30 3a  63 72 69 65 72 25 3d 31  |ifok%=0:crier%=1|
00005fb0  3a 6d 6f 75 6c 64 25 3d  30 3a 64 75 67 25 3d 30  |:mould%=0:dug%=0|
00005fc0  3a 70 61 6d 70 25 3d 30  3a 77 68 69 7a 25 3d 30  |:pamp%=0:whiz%=0|
00005fd0  3a 64 75 67 67 65 64 25  3d 30 3a 66 69 72 65 25  |:dugged%=0:fire%|
00005fe0  3d 31 3a 64 72 75 67 67  65 64 25 3d 30 3a 69 6e  |=1:drugged%=0:in|
00005ff0  6a 75 72 65 25 3d 30 3a  72 65 6e 77 25 3d 30 3a  |jure%=0:renw%=0:|
00006000  69 6c 6c 25 3d 30 3a 6d  65 64 69 75 6d 31 25 3d  |ill%=0:medium1%=|
00006010  30 3a 6d 65 64 69 75 6d  32 25 3d 30 3a 70 61 79  |0:medium2%=0:pay|
00006020  65 64 25 3d 30 0d 1c d4  1f 70 6f 6c 69 63 65 25  |ed%=0....police%|
00006030  28 31 29 3d 31 30 37 3a  70 6f 6c 64 69 72 25 28  |(1)=107:poldir%(|
00006040  31 29 3d 34 0d 1c de 1f  70 6f 6c 69 63 65 25 28  |1)=4....police%(|
00006050  32 29 3d 31 34 33 3a 70  6f 6c 64 69 72 25 28 32  |2)=143:poldir%(2|
00006060  29 3d 34 0d 1c e8 1f 70  6f 6c 69 63 65 25 28 33  |)=4....police%(3|
00006070  29 3d 32 30 36 3a 70 6f  6c 64 69 72 25 28 33 29  |)=206:poldir%(3)|
00006080  3d 31 0d 1c f2 17 e3 20  61 3d 31 20 b8 20 74 6f  |=1..... a=1 . to|
00006090  74 61 6c 72 6f 6f 6d 73  25 0d 1c fc 0e e3 20 62  |talrooms%..... b|
000060a0  3d 31 20 b8 20 31 30 0d  1d 06 0f 6d 61 70 79 6e  |=1 . 10....mapyn|
000060b0  25 28 61 29 3d 30 0d 1d  10 20 6f 62 6a 65 63 74  |%(a)=0... object|
000060c0  73 24 28 61 2c 62 29 3d  64 65 66 61 75 6c 74 31  |s$(a,b)=default1|
000060d0  24 28 61 2c 62 29 0d 1d  1a 07 ed 20 62 0d 1d 24  |$(a,b)..... b..$|
000060e0  07 ed 20 61 0d 1d 2e 37  72 6f 6f 6d 73 24 28 37  |.. a...7rooms$(7|
000060f0  38 2c 32 29 3d 64 65 66  61 75 6c 74 32 24 28 31  |8,2)=default2$(1|
00006100  29 3a 72 6f 6f 6d 73 24  28 37 38 2c 33 29 3d 64  |):rooms$(78,3)=d|
00006110  65 66 61 75 6c 74 32 24  28 32 29 0d 1d 38 37 72  |efault2$(2)..87r|
00006120  6f 6f 6d 73 24 28 37 38  2c 34 29 3d 64 65 66 61  |ooms$(78,4)=defa|
00006130  75 6c 74 32 24 28 33 29  3a 72 6f 6f 6d 73 24 28  |ult2$(3):rooms$(|
00006140  38 35 2c 35 29 3d 64 65  66 61 75 6c 74 32 24 28  |85,5)=default2$(|
00006150  34 29 0d 1d 42 37 61 62  62 72 65 76 24 28 37 38  |4)..B7abbrev$(78|
00006160  2c 31 29 3d 64 65 66 61  75 6c 74 32 24 28 35 29  |,1)=default2$(5)|
00006170  3a 72 65 6e 74 72 79 24  28 37 38 29 3d 64 65 66  |:rentry$(78)=def|
00006180  61 75 6c 74 32 24 28 36  29 0d 1d 4c 34 65 78 69  |ault2$(6)..L4exi|
00006190  74 73 28 32 2c 32 29 3d  64 65 66 61 75 6c 74 33  |ts(2,2)=default3|
000061a0  25 28 31 29 3a 65 78 69  74 73 28 37 32 2c 33 29  |%(1):exits(72,3)|
000061b0  3d 64 65 66 61 75 6c 74  33 25 28 32 29 0d 1d 56  |=default3%(2)..V|
000061c0  36 65 78 69 74 73 28 38  35 2c 32 29 3d 64 65 66  |6exits(85,2)=def|
000061d0  61 75 6c 74 33 25 28 33  29 3a 65 78 69 74 73 28  |ault3%(3):exits(|
000061e0  31 31 30 2c 34 29 3d 64  65 66 61 75 6c 74 33 25  |110,4)=default3%|
000061f0  28 34 29 0d 1d 60 37 65  78 69 74 73 28 31 31 31  |(4)..`7exits(111|
00006200  2c 32 29 3d 64 65 66 61  75 6c 74 33 25 28 35 29  |,2)=default3%(5)|
00006210  3a 65 78 69 74 73 28 31  37 39 2c 31 29 3d 64 65  |:exits(179,1)=de|
00006220  66 61 75 6c 74 33 25 28  36 29 0d 1d 6a 1d 65 78  |fault3%(6)..j.ex|
00006230  69 74 73 28 33 31 30 2c  32 29 3d 64 65 66 61 75  |its(310,2)=defau|
00006240  6c 74 33 25 28 37 29 0d  1d 74 33 f2 61 64 64 28  |lt3%(7)..t3.add(|
00006250  22 57 65 6c 63 6f 6d 65  20 74 6f 20 79 6f 75 72  |"Welcome to your|
00006260  20 71 75 65 73 74 20 62  72 61 76 65 20 61 64 76  | quest brave adv|
00006270  65 6e 74 75 72 65 72 2e  22 29 0d 1d 7e 13 69 24  |enturer.")..~.i$|
00006280  3d 22 6c 6f 6f 6b 22 3a  f2 6c 6f 6f 6b 0d 1d 88  |="look":.look...|
00006290  1e 77 69 6d 70 25 21 30  3d 61 64 76 65 6e 74 68  |.wimp%!0=adventh|
000062a0  61 6e 25 3a f2 72 65 64  72 61 77 0d 1d 92 10 f2  |an%:.redraw.....|
000062b0  64 65 63 69 64 65 74 69  74 6c 65 0d 1d 9c 35 6d  |decidetitle...5m|
000062c0  61 70 79 6e 25 28 31 29  3d 31 3a 77 69 6d 70 25  |apyn%(1)=1:wimp%|
000062d0  21 30 3d 6d 61 70 68 61  6e 25 3a f2 72 65 64 72  |!0=maphan%:.redr|
000062e0  61 77 6d 61 70 3a f2 64  65 63 69 64 65 70 6f 73  |awmap:.decidepos|
000062f0  0d 1d a6 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00006300  73 5f 4f 66 66 22 0d 1d  b0 05 e1 0d 1d ba 04 0d  |s_Off"..........|
00006310  1d c4 11 dd f2 67 65 74  66 69 6c 65 6e 61 6d 65  |.....getfilename|
00006320  0d 1d ce 18 77 69 6d 70  25 21 30 3d 6b 25 3a 77  |....wimp%!0=k%:w|
00006330  69 6d 70 25 21 34 3d 31  0d 1d d8 14 c8 99 20 26  |imp%!4=1...... &|
00006340  34 30 30 43 45 2c 2c 77  69 6d 70 25 0d 1d e2 15  |400CE,,wimp%....|
00006350  66 69 6c 65 6e 61 24 3d  24 77 69 6d 70 25 21 32  |filena$=$wimp%!2|
00006360  38 0d 1d ec 24 66 69 6c  65 6e 61 24 3d a4 66 69  |8...$filena$=.fi|
00006370  78 73 74 72 69 6e 67 28  66 69 6c 65 6e 61 24 2b  |xstring(filena$+|
00006380  bd 28 30 29 29 0d 1d f6  05 e1 0d 1e 00 04 0d 1e  |.(0))...........|
00006390  0a 1a dd f2 63 68 61 6e  67 65 66 69 6c 65 6e 61  |....changefilena|
000063a0  6d 65 28 6f 70 74 25 29  0d 1e 14 10 f2 67 65 74  |me(opt%).....get|
000063b0  66 69 6c 65 6e 61 6d 65  0d 1e 1e 60 e7 20 a7 66  |filename...`. .f|
000063c0  69 6c 65 6e 61 24 2c 22  2e 22 29 3d 30 20 80 20  |ilena$,".")=0 . |
000063d0  6f 70 74 25 3d 31 20 f2  73 65 74 69 63 6f 6e 28  |opt%=1 .seticon(|
000063e0  6b 25 2c 31 2c 22 53 61  76 65 64 47 61 6d 65 22  |k%,1,"SavedGame"|
000063f0  29 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |):.. "Wimp_SetCa|
00006400  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 6b 25 2c  |retPosition",k%,|
00006410  31 2c 2c 2c 2d 31 2c 39  0d 1e 28 5b e7 20 a7 66  |1,,,-1,9..([. .f|
00006420  69 6c 65 6e 61 24 2c 22  2e 22 29 3d 30 20 80 20  |ilena$,".")=0 . |
00006430  6f 70 74 25 3d 32 20 f2  73 65 74 69 63 6f 6e 28  |opt%=2 .seticon(|
00006440  6b 25 2c 31 2c 22 54 65  78 74 22 29 3a c8 99 20  |k%,1,"Text"):.. |
00006450  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00006460  73 69 74 69 6f 6e 22 2c  6b 25 2c 31 2c 2c 2c 2d  |sition",k%,1,,,-|
00006470  31 2c 34 0d 1e 32 05 e1  0d 1e 3c 04 0d 1e 46 0f  |1,4..2....<...F.|
00006480  dd a4 72 65 61 64 69 6e  70 75 74 0d 1e 50 1e 77  |..readinput..P.w|
00006490  69 6d 70 25 21 30 3d 75  73 65 72 68 61 6e 25 3a  |imp%!0=userhan%:|
000064a0  77 69 6d 70 25 21 34 3d  31 0d 1e 5a 14 c8 99 20  |wimp%!4=1..Z... |
000064b0  26 34 30 30 43 45 2c 2c  77 69 6d 70 25 0d 1e 64  |&400CE,,wimp%..d|
000064c0  0e 3d 24 77 69 6d 70 25  21 32 38 0d 1e 6e 04 0d  |.=$wimp%!28..n..|
000064d0  1e 78 1a dd a4 66 69 78  73 74 72 69 6e 67 28 6f  |.x...fixstring(o|
000064e0  72 69 67 6e 61 6d 65 24  29 0d 1e 82 10 70 3d 31  |rigname$)....p=1|
000064f0  3a 6e 61 6d 65 24 3d 22  22 0d 1e 8c 1c c8 95 20  |:name$=""...... |
00006500  c1 6f 72 69 67 6e 61 6d  65 24 2c 70 2c 31 29 3c  |.origname$,p,1)<|
00006510  3e bd 28 30 29 0d 1e 96  1f 6e 61 6d 65 24 2b 3d  |>.(0)....name$+=|
00006520  c1 6f 72 69 67 6e 61 6d  65 24 2c 70 2c 31 29 3a  |.origname$,p,1):|
00006530  70 2b 3d 31 0d 1e a0 05  ce 0d 1e aa 0a 3d 6e 61  |p+=1.........=na|
00006540  6d 65 24 0d 1e b4 04 0d  1e be 0e dd f2 6a 75 73  |me$..........jus|
00006550  74 66 69 6c 65 0d 1e c8  16 c8 95 20 a7 66 69 6c  |tfile...... .fil|
00006560  65 6e 61 24 2c 22 2e 22  29 3e 30 0d 1e d2 25 66  |ena$,".")>0...%f|
00006570  69 6c 65 6e 61 24 3d c1  66 69 6c 65 6e 61 24 2c  |ilena$=.filena$,|
00006580  a7 66 69 6c 65 6e 61 24  2c 22 2e 22 29 2b 31 29  |.filena$,".")+1)|
00006590  0d 1e dc 05 ce 0d 1e e6  05 e1 0d 1e f0 04 0d 1e  |................|
000065a0  fa 21 dd f2 73 65 74 69  63 6f 6e 28 77 69 6d 70  |.!..seticon(wimp|
000065b0  25 21 30 2c 77 69 6d 70  25 21 34 2c 74 24 29 0d  |%!0,wimp%!4,t$).|
000065c0  1f 04 14 c8 99 20 26 34  30 30 43 45 2c 2c 77 69  |..... &400CE,,wi|
000065d0  6d 70 25 0d 1f 0e 10 24  77 69 6d 70 25 21 32 38  |mp%....$wimp%!28|
000065e0  3d 74 24 0d 1f 18 18 77  69 6d 70 25 21 38 3d 30  |=t$....wimp%!8=0|
000065f0  3a 77 69 6d 70 25 21 31  32 3d 30 0d 1f 22 14 c8  |:wimp%!12=0.."..|
00006600  99 20 26 34 30 30 43 44  2c 2c 77 69 6d 70 25 0d  |. &400CD,,wimp%.|
00006610  1f 2c 05 e1 0d 1f 36 04  0d 1f 40 0a dd f2 64 72  |.,....6...@...dr|
00006620  61 67 0d 1f 4a 22 e7 20  77 69 6d 70 25 21 31 32  |ag..J". wimp%!12|
00006630  3c 3e 6b 25 20 84 20 77  69 6d 70 25 21 31 36 3c  |<>k% . wimp%!16<|
00006640  3e 30 20 e1 0d 1f 54 25  f2 63 68 65 63 6b 64 72  |>0 ...T%.checkdr|
00006650  61 67 3a f2 67 65 74 66  69 6c 65 6e 61 6d 65 3a  |ag:.getfilename:|
00006660  f2 6a 75 73 74 66 69 6c  65 0d 1f 5e 2e 77 69 6d  |.justfile..^.wim|
00006670  70 25 21 30 3d 6b 25 3a  c8 99 20 22 57 69 6d 70  |p%!0=k%:.. "Wimp|
00006680  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00006690  2c 2c 77 69 6d 70 25 0d  1f 68 22 78 3d 77 69 6d  |,,wimp%..h"x=wim|
000066a0  70 25 21 34 3a 79 3d 77  69 6d 70 25 21 31 36 3a  |p%!4:y=wimp%!16:|
000066b0  77 69 6d 70 25 21 34 3d  30 0d 1f 72 21 c8 99 20  |wimp%!4=0..r!.. |
000066c0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000066d0  74 65 22 2c 2c 77 69 6d  70 25 0d 1f 7c 28 77 69  |te",,wimp%..|(wi|
000066e0  6d 70 25 21 34 3d 35 3a  77 69 6d 70 25 21 38 2b  |mp%!4=5:wimp%!8+|
000066f0  3d 78 2d 34 3a 77 69 6d  70 25 21 31 32 2b 3d 79  |=x-4:wimp%!12+=y|
00006700  2d 34 0d 1f 86 1f 77 69  6d 70 25 21 31 36 2b 3d  |-4....wimp%!16+=|
00006710  78 2b 34 3a 77 69 6d 70  25 21 32 30 2b 3d 79 2b  |x+4:wimp%!20+=y+|
00006720  34 0d 1f 90 19 77 69 6d  70 25 21 32 34 3d 30 3a  |4....wimp%!24=0:|
00006730  77 69 6d 70 25 21 32 38  3d 30 0d 1f 9a 29 77 69  |wimp%!28=0...)wi|
00006740  6d 70 25 21 33 32 3d 26  37 46 46 46 46 46 46 46  |mp%!32=&7FFFFFFF|
00006750  3a 77 69 6d 70 25 21 33  36 3d 26 37 46 46 46 46  |:wimp%!36=&7FFFF|
00006760  46 46 46 0d 1f a4 3d 64  72 61 67 73 70 72 69 74  |FFF...=dragsprit|
00006770  65 24 3d 22 66 69 6c 65  5f 31 37 39 22 3a e7 20  |e$="file_179":. |
00006780  73 61 76 65 67 74 25 3d  32 20 64 72 61 67 73 70  |savegt%=2 dragsp|
00006790  72 69 74 65 24 3d 22 66  69 6c 65 5f 66 66 66 22  |rite$="file_fff"|
000067a0  0d 1f ae 6b e7 20 64 72  61 67 79 6e 25 3d 2d 31  |...k. dragyn%=-1|
000067b0  20 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  | .. "Wimp_DragBo|
000067c0  78 22 2c 2c 77 69 6d 70  25 20 8b 20 c8 99 20 22  |x",,wimp% . .. "|
000067d0  44 72 61 67 41 53 70 72  69 74 65 5f 53 74 61 72  |DragASprite_Star|
000067e0  74 22 2c 25 31 31 30 30  30 31 30 31 2c 31 2c 64  |t",%11000101,1,d|
000067f0  72 61 67 73 70 72 69 74  65 24 2c 77 69 6d 70 25  |ragsprite$,wimp%|
00006800  2b 38 2c 77 69 6d 70 25  2b 32 34 0d 1f b8 05 e1  |+8,wimp%+24.....|
00006810  0d 1f c2 04 0d 1f cc 0d  dd f2 73 68 69 66 74 75  |..........shiftu|
00006820  70 0d 1f d6 0e e3 20 68  3d 31 20 b8 20 31 30 0d  |p..... h=1 . 10.|
00006830  1f e0 19 71 75 65 73 74  24 28 68 29 3d 71 75 65  |...quest$(h)=que|
00006840  73 74 24 28 68 2b 31 29  0d 1f ea 07 ed 20 68 0d  |st$(h+1)..... h.|
00006850  1f f4 05 e1 0d 1f fe 04  0d 20 08 12 dd f2 61 64  |......... ....ad|
00006860  64 28 70 68 72 61 73 65  24 29 0d 20 12 08 67 25  |d(phrase$). ..g%|
00006870  3d 30 0d 20 1c 30 62 25  3d a9 28 70 68 72 61 73  |=0. .0b%=.(phras|
00006880  65 24 29 3a e7 20 c1 70  68 72 61 73 65 24 2c 31  |e$):. .phrase$,1|
00006890  2c 31 29 3d 22 40 22 20  62 25 2d 3d 31 3a 67 25  |,1)="@" b%-=1:g%|
000068a0  3d 31 0d 20 26 3e e7 20  62 25 3c 37 37 20 f2 73  |=1. &>. b%<77 .s|
000068b0  68 69 66 74 75 70 3a 71  75 65 73 74 24 28 31 31  |hiftup:quest$(11|
000068c0  29 3d 70 68 72 61 73 65  24 3a 66 6c 61 67 25 3d  |)=phrase$:flag%=|
000068d0  30 20 8b 20 66 6c 61 67  25 3d 31 3a 66 25 3d 30  |0 . flag%=1:f%=0|
000068e0  0d 20 30 0e c8 95 20 66  6c 61 67 25 3d 31 0d 20  |. 0... flag%=1. |
000068f0  3a 0c f2 73 68 69 66 74  75 70 0d 20 44 25 74 65  |:..shiftup. D%te|
00006900  6d 70 68 72 61 73 65 24  3d c1 70 68 72 61 73 65  |mphrase$=.phrase|
00006910  24 2c 28 66 25 2a 37 36  29 2b 31 2c 37 36 29 0d  |$,(f%*76)+1,76).|
00006920  20 4e 0b 74 68 65 72 65  3d 30 0d 20 58 12 e3 20  | N.there=0. X.. |
00006930  69 3d 37 36 20 b8 20 31  20 88 2d 31 0d 20 62 c7  |i=76 . 1 .-1. b.|
00006940  e7 20 c1 74 65 6d 70 68  72 61 73 65 24 2c 69 2c  |. .temphrase$,i,|
00006950  31 29 3d 22 20 22 20 84  20 c1 74 65 6d 70 68 72  |1)=" " . .temphr|
00006960  61 73 65 24 2c 69 2c 31  29 3d 22 2e 22 20 84 20  |ase$,i,1)="." . |
00006970  c1 74 65 6d 70 68 72 61  73 65 24 2c 69 2c 31 29  |.temphrase$,i,1)|
00006980  3d 22 2c 22 20 84 20 c1  74 65 6d 70 68 72 61 73  |="," . .temphras|
00006990  65 24 2c 69 2c 31 29 3d  22 3f 22 20 84 20 c1 74  |e$,i,1)="?" . .t|
000069a0  65 6d 70 68 72 61 73 65  24 2c 69 2c 31 29 3d 22  |emphrase$,i,1)="|
000069b0  3a 22 20 84 20 c1 74 65  6d 70 68 72 61 73 65 24  |:" . .temphrase$|
000069c0  2c 69 2c 31 29 3d 22 3b  22 20 84 20 c1 74 65 6d  |,i,1)=";" . .tem|
000069d0  70 68 72 61 73 65 24 2c  69 2c 31 29 3d 22 21 22  |phrase$,i,1)="!"|
000069e0  20 84 20 c1 74 65 6d 70  68 72 61 73 65 24 2c 69  | . .temphrase$,i|
000069f0  2c 31 29 3d 22 27 22 20  74 68 65 72 65 3d 69 3a  |,1)="'" there=i:|
00006a00  69 3d 31 0d 20 6c 07 ed  20 69 0d 20 76 1e e7 20  |i=1. l.. i. v.. |
00006a10  a9 28 74 65 6d 70 68 72  61 73 65 24 29 3c 37 36  |.(temphrase$)<76|
00006a20  20 74 68 65 72 65 3d 30  0d 20 80 2f e7 20 74 68  | there=0. ./. th|
00006a30  65 72 65 3c 32 20 71 75  65 73 74 24 28 31 31 29  |ere<2 quest$(11)|
00006a40  3d c1 70 68 72 61 73 65  24 2c 28 66 25 2a 37 36  |=.phrase$,(f%*76|
00006a50  29 2b 31 2c 37 36 29 0d  20 8a 88 e7 20 74 68 65  |)+1,76). ... the|
00006a60  72 65 3e 31 20 71 75 65  73 74 24 28 31 31 29 3d  |re>1 quest$(11)=|
00006a70  c1 70 68 72 61 73 65 24  2c 28 66 25 2a 37 36 29  |.phrase$,(f%*76)|
00006a80  2b 31 2c 74 68 65 72 65  29 3a 70 68 72 61 73 65  |+1,there):phrase|
00006a90  24 3d c1 70 68 72 61 73  65 24 2c 31 2c 28 66 25  |$=.phrase$,1,(f%|
00006aa0  2a 37 36 29 2b 74 68 65  72 65 29 2b c4 37 36 2d  |*76)+there)+.76-|
00006ab0  74 68 65 72 65 2c 22 2a  22 29 2b c1 70 68 72 61  |there,"*")+.phra|
00006ac0  73 65 24 2c 28 66 25 2a  37 36 29 2b 31 2b 74 68  |se$,(f%*76)+1+th|
00006ad0  65 72 65 2c a9 28 70 68  72 61 73 65 24 29 29 0d  |ere,.(phrase$)).|
00006ae0  20 94 2c e7 20 67 25 3d  31 20 80 20 66 25 3c 3e  | .,. g%=1 . f%<>|
00006af0  30 20 71 75 65 73 74 24  28 31 31 29 3d 22 40 22  |0 quest$(11)="@"|
00006b00  2b 71 75 65 73 74 24 28  31 31 29 0d 20 9e 1a e7  |+quest$(11). ...|
00006b10  20 74 68 65 72 65 3e 31  20 62 25 2b 3d 37 36 2d  | there>1 b%+=76-|
00006b20  74 68 65 72 65 0d 20 a8  20 66 25 2b 3d 31 3a e7  |there. . f%+=1:.|
00006b30  20 62 25 2d 28 66 25 2a  37 36 29 3c 31 20 66 6c  | b%-(f%*76)<1 fl|
00006b40  61 67 25 3d 30 0d 20 b2  05 ce 0d 20 bc 16 77 69  |ag%=0. .... ..wi|
00006b50  6d 70 25 21 30 3d 61 64  76 65 6e 74 68 61 6e 25  |mp%!0=adventhan%|
00006b60  0d 20 c6 0b f2 72 65 64  72 61 77 0d 20 d0 05 e1  |. ...redraw. ...|
00006b70  0d 20 da 04 0d 20 e4 30  dd f2 73 65 74 69 63 6f  |. ... .0..setico|
00006b80  6e 73 70 72 69 74 65 28  77 69 6d 70 25 21 30 2c  |nsprite(wimp%!0,|
00006b90  77 69 6d 70 25 21 34 2c  73 70 72 69 74 65 74 79  |wimp%!4,spritety|
00006ba0  70 65 24 29 0d 20 ee 13  77 69 6e 64 69 65 25 3d  |pe$). ..windie%=|
00006bb0  77 69 6d 70 25 21 30 0d  20 f8 21 c8 99 20 22 57  |wimp%!0. .!.. "W|
00006bc0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00006bd0  22 2c 2c 77 69 6d 70 25  0d 21 02 1f c8 99 20 22  |",,wimp%.!.... "|
00006be0  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
00006bf0  2c 2c 77 69 6d 70 25 0d  21 0c 36 77 69 6d 70 25  |,,wimp%.!.6wimp%|
00006c00  21 34 3d 77 69 6d 70 25  21 38 3a 77 69 6d 70 25  |!4=wimp%!8:wimp%|
00006c10  21 38 3d 77 69 6d 70 25  21 31 32 3a 77 69 6d 70  |!8=wimp%!12:wimp|
00006c20  25 21 31 32 3d 77 69 6d  70 25 21 31 36 0d 21 16  |%!12=wimp%!16.!.|
00006c30  3f 77 69 6d 70 25 21 31  36 3d 77 69 6d 70 25 21  |?wimp%!16=wimp%!|
00006c40  32 30 3a 77 69 6d 70 25  21 32 30 3d 77 69 6d 70  |20:wimp%!20=wimp|
00006c50  25 21 32 34 3a 24 28 77  69 6d 70 25 2b 32 34 29  |%!24:$(wimp%+24)|
00006c60  3d 73 70 72 69 74 65 74  79 70 65 24 0d 21 20 1f  |=spritetype$.! .|
00006c70  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00006c80  63 6f 6e 22 2c 2c 77 69  6d 70 25 0d 21 2a 43 77  |con",,wimp%.!*Cw|
00006c90  69 6d 70 25 21 30 3d 77  69 6e 64 69 65 25 3a c8  |imp%!0=windie%:.|
00006ca0  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
00006cb0  72 61 77 22 2c 77 69 6d  70 25 21 30 2c 2d 31 30  |raw",wimp%!0,-10|
00006cc0  30 2c 2d 31 30 30 2c 32  30 30 2c 32 30 30 0d 21  |0,-100,200,200.!|
00006cd0  34 05 e1 0d 21 3e 04 0d  21 48 0b dd f2 63 6c 69  |4...!>..!H...cli|
00006ce0  63 6b 0d 21 52 23 e7 20  77 69 6d 70 25 21 38 3d  |ck.!R#. wimp%!8=|
00006cf0  31 36 20 84 20 77 69 6d  70 25 21 38 3d 36 34 20  |16 . wimp%!8=64 |
00006d00  f2 64 72 61 67 0d 21 5c  31 e7 20 77 69 6d 70 25  |.drag.!\1. wimp%|
00006d10  21 38 3d 34 20 80 20 77  69 6d 70 25 21 31 32 3d  |!8=4 . wimp%!12=|
00006d20  75 73 65 72 68 61 6e 25  20 c8 8e 20 77 69 6d 70  |userhan% .. wimp|
00006d30  25 21 31 36 20 ca 0d 21  66 2d 20 20 c9 20 30 20  |%!16 ..!f-  . 0 |
00006d40  3a 20 69 24 3d 22 40 47  6f 20 6e 6f 72 74 68 2e  |: i$="@Go north.|
00006d50  22 3a f2 61 64 64 28 69  24 29 3a f2 72 65 73 70  |":.add(i$):.resp|
00006d60  6f 6e 64 0d 21 70 71 20  20 c9 20 32 20 3a 20 69  |ond.!pq  . 2 : i|
00006d70  24 3d 22 40 22 2b a4 72  65 61 64 69 6e 70 75 74  |$="@"+.readinput|
00006d80  3a f2 61 64 64 28 69 24  29 3a f2 72 65 73 70 6f  |:.add(i$):.respo|
00006d90  6e 64 3a f2 73 65 74 69  63 6f 6e 28 75 73 65 72  |nd:.seticon(user|
00006da0  68 61 6e 25 2c 31 2c 22  22 29 3a c8 99 22 57 69  |han%,1,""):.."Wi|
00006db0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00006dc0  69 6f 6e 22 2c 75 73 65  72 68 61 6e 25 2c 31 2c  |ion",userhan%,1,|
00006dd0  2c 2c 2d 31 0d 21 7a 2c  20 20 c9 20 33 20 3a 20  |,,-1.!z,  . 3 : |
00006de0  69 24 3d 22 40 47 6f 20  65 61 73 74 2e 22 3a f2  |i$="@Go east.":.|
00006df0  61 64 64 28 69 24 29 3a  f2 72 65 73 70 6f 6e 64  |add(i$):.respond|
00006e00  0d 21 84 2d 20 20 c9 20  34 20 3a 20 69 24 3d 22  |.!.-  . 4 : i$="|
00006e10  40 47 6f 20 73 6f 75 74  68 2e 22 3a f2 61 64 64  |@Go south.":.add|
00006e20  28 69 24 29 3a f2 72 65  73 70 6f 6e 64 0d 21 8e  |(i$):.respond.!.|
00006e30  2c 20 20 c9 20 35 20 3a  20 69 24 3d 22 40 47 6f  |,  . 5 : i$="@Go|
00006e40  20 77 65 73 74 2e 22 3a  f2 61 64 64 28 69 24 29  | west.":.add(i$)|
00006e50  3a f2 72 65 73 70 6f 6e  64 0d 21 98 2a 20 20 c9  |:.respond.!.*  .|
00006e60  20 36 20 3a 20 69 24 3d  22 40 47 6f 20 75 70 2e  | 6 : i$="@Go up.|
00006e70  22 3a f2 61 64 64 28 69  24 29 3a f2 72 65 73 70  |":.add(i$):.resp|
00006e80  6f 6e 64 0d 21 a2 2c 20  20 c9 20 37 20 3a 20 69  |ond.!.,  . 7 : i|
00006e90  24 3d 22 40 47 6f 20 64  6f 77 6e 2e 22 3a f2 61  |$="@Go down.":.a|
00006ea0  64 64 28 69 24 29 3a f2  72 65 73 70 6f 6e 64 0d  |dd(i$):.respond.|
00006eb0  21 ac 29 20 20 c9 20 38  20 3a 20 69 24 3d 22 40  |!.)  . 8 : i$="@|
00006ec0  4c 6f 6f 6b 2e 22 3a f2  61 64 64 28 69 24 29 3a  |Look.":.add(i$):|
00006ed0  f2 72 65 73 70 6f 6e 64  0d 21 b6 2e 20 20 c9 20  |.respond.!..  . |
00006ee0  39 20 3a 20 69 24 3d 22  40 49 6e 76 65 6e 74 6f  |9 : i$="@Invento|
00006ef0  72 79 2e 22 3a f2 61 64  64 28 69 24 29 3a f2 72  |ry.":.add(i$):.r|
00006f00  65 73 70 6f 6e 64 0d 21  c0 2b 20 20 c9 20 31 30  |espond.!.+  . 10|
00006f10  20 3a 20 69 24 3d 22 40  45 78 69 74 73 2e 22 3a  | : i$="@Exits.":|
00006f20  f2 61 64 64 28 69 24 29  3a f2 72 65 73 70 6f 6e  |.add(i$):.respon|
00006f30  64 0d 21 ca 65 20 20 c9  20 31 31 20 3a 20 77 69  |d.!.e  . 11 : wi|
00006f40  6d 70 25 21 30 3d 70 69  63 63 69 65 68 61 6e 25  |mp%!0=picciehan%|
00006f50  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00006f60  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 3a  |owState",,wimp%:|
00006f70  77 69 6d 70 25 21 32 38  3d 2d 31 3a c8 99 22 57  |wimp%!28=-1:.."W|
00006f80  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00006f90  2c 77 69 6d 70 25 0d 21  d4 62 20 20 c9 20 31 32  |,wimp%.!.b  . 12|
00006fa0  20 3a 20 77 69 6d 70 25  21 30 3d 6d 61 70 68 61  | : wimp%!0=mapha|
00006fb0  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |n%:.."Wimp_GetWi|
00006fc0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00006fd0  25 3a 77 69 6d 70 25 21  32 38 3d 2d 31 3a c8 99  |%:wimp%!28=-1:..|
00006fe0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00006ff0  22 2c 2c 77 69 6d 70 25  0d 21 de cc 20 20 c9 20  |",,wimp%.!..  . |
00007000  31 33 20 3a 20 f2 67 65  74 66 69 6c 65 6e 61 6d  |13 : .getfilenam|
00007010  65 3a e7 20 a7 66 69 6c  65 6e 61 24 2c 22 2e 22  |e:. .filena$,"."|
00007020  29 3d 30 20 77 69 6d 70  25 21 30 3d 6b 25 3a c8  |)=0 wimp%!0=k%:.|
00007030  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00007040  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 3a 77 69  |State",,wimp%:wi|
00007050  6d 70 25 21 32 38 3d 2d  31 3a c8 99 22 57 69 6d  |mp%!28=-1:.."Wim|
00007060  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
00007070  69 6d 70 25 3a c8 99 22  57 69 6d 70 5f 53 65 74  |imp%:.."Wimp_Set|
00007080  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6b  |CaretPosition",k|
00007090  25 2c 31 2c 2c 2c 2d 31  2c a9 28 66 69 6c 65 6e  |%,1,,,-1,.(filen|
000070a0  61 24 29 20 8b 20 66 69  6c 65 6e 61 6d 65 24 3d  |a$) . filename$=|
000070b0  66 69 6c 65 6e 61 24 3a  f2 64 6f 74 68 69 6e 67  |filena$:.dothing|
000070c0  79 28 30 29 0d 21 e8 05  cb 0d 21 f2 31 e7 20 77  |y(0).!....!.1. w|
000070d0  69 6d 70 25 21 38 3d 31  20 80 20 77 69 6d 70 25  |imp%!8=1 . wimp%|
000070e0  21 31 32 3d 75 73 65 72  68 61 6e 25 20 c8 8e 20  |!12=userhan% .. |
000070f0  77 69 6d 70 25 21 31 36  20 ca 0d 21 fc 2d 20 20  |wimp%!16 ..!.-  |
00007100  c9 20 30 20 3a 20 69 24  3d 22 40 47 6f 20 6e 6f  |. 0 : i$="@Go no|
00007110  72 74 68 2e 22 3a f2 61  64 64 28 69 24 29 3a f2  |rth.":.add(i$):.|
00007120  72 65 73 70 6f 6e 64 0d  22 06 2f 20 20 c9 20 32  |respond."./  . 2|
00007130  20 3a 20 69 24 3d 22 40  22 2b a4 72 65 61 64 69  | : i$="@"+.readi|
00007140  6e 70 75 74 3a f2 61 64  64 28 69 24 29 3a f2 72  |nput:.add(i$):.r|
00007150  65 73 70 6f 6e 64 0d 22  10 2c 20 20 c9 20 33 20  |espond.".,  . 3 |
00007160  3a 20 69 24 3d 22 40 47  6f 20 65 61 73 74 2e 22  |: i$="@Go east."|
00007170  3a f2 61 64 64 28 69 24  29 3a f2 72 65 73 70 6f  |:.add(i$):.respo|
00007180  6e 64 0d 22 1a 2d 20 20  c9 20 34 20 3a 20 69 24  |nd.".-  . 4 : i$|
00007190  3d 22 40 47 6f 20 73 6f  75 74 68 2e 22 3a f2 61  |="@Go south.":.a|
000071a0  64 64 28 69 24 29 3a f2  72 65 73 70 6f 6e 64 0d  |dd(i$):.respond.|
000071b0  22 24 2c 20 20 c9 20 35  20 3a 20 69 24 3d 22 40  |"$,  . 5 : i$="@|
000071c0  47 6f 20 77 65 73 74 2e  22 3a f2 61 64 64 28 69  |Go west.":.add(i|
000071d0  24 29 3a f2 72 65 73 70  6f 6e 64 0d 22 2e 2a 20  |$):.respond.".* |
000071e0  20 c9 20 36 20 3a 20 69  24 3d 22 40 47 6f 20 75  | . 6 : i$="@Go u|
000071f0  70 2e 22 3a f2 61 64 64  28 69 24 29 3a f2 72 65  |p.":.add(i$):.re|
00007200  73 70 6f 6e 64 0d 22 38  2c 20 20 c9 20 37 20 3a  |spond."8,  . 7 :|
00007210  20 69 24 3d 22 40 47 6f  20 64 6f 77 6e 2e 22 3a  | i$="@Go down.":|
00007220  f2 61 64 64 28 69 24 29  3a f2 72 65 73 70 6f 6e  |.add(i$):.respon|
00007230  64 0d 22 42 29 20 20 c9  20 38 20 3a 20 69 24 3d  |d."B)  . 8 : i$=|
00007240  22 40 4c 6f 6f 6b 2e 22  3a f2 61 64 64 28 69 24  |"@Look.":.add(i$|
00007250  29 3a f2 72 65 73 70 6f  6e 64 0d 22 4c 2e 20 20  |):.respond."L.  |
00007260  c9 20 39 20 3a 20 69 24  3d 22 40 49 6e 76 65 6e  |. 9 : i$="@Inven|
00007270  74 6f 72 79 2e 22 3a f2  61 64 64 28 69 24 29 3a  |tory.":.add(i$):|
00007280  f2 72 65 73 70 6f 6e 64  0d 22 56 2b 20 20 c9 20  |.respond."V+  . |
00007290  31 30 20 3a 20 69 24 3d  22 40 45 78 69 74 73 2e  |10 : i$="@Exits.|
000072a0  22 3a f2 61 64 64 28 69  24 29 3a f2 72 65 73 70  |":.add(i$):.resp|
000072b0  6f 6e 64 0d 22 60 65 20  20 c9 20 31 31 20 3a 20  |ond."`e  . 11 : |
000072c0  77 69 6d 70 25 21 30 3d  70 69 63 63 69 65 68 61  |wimp%!0=piccieha|
000072d0  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |n%:.."Wimp_GetWi|
000072e0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
000072f0  25 3a 77 69 6d 70 25 21  32 38 3d 2d 31 3a c8 99  |%:wimp%!28=-1:..|
00007300  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00007310  22 2c 2c 77 69 6d 70 25  0d 22 6a 62 20 20 c9 20  |",,wimp%."jb  . |
00007320  31 32 20 3a 20 77 69 6d  70 25 21 30 3d 6d 61 70  |12 : wimp%!0=map|
00007330  68 61 6e 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |han%:.."Wimp_Get|
00007340  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 77 69  |WindowState",,wi|
00007350  6d 70 25 3a 77 69 6d 70  25 21 32 38 3d 2d 31 3a  |mp%:wimp%!28=-1:|
00007360  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00007370  6f 77 22 2c 2c 77 69 6d  70 25 0d 22 74 99 20 20  |ow",,wimp%."t.  |
00007380  c9 20 31 33 20 3a 20 f2  67 65 74 66 69 6c 65 6e  |. 13 : .getfilen|
00007390  61 6d 65 3a 77 69 6d 70  25 21 30 3d 6b 25 3a c8  |ame:wimp%!0=k%:.|
000073a0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
000073b0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 3a 77 69  |State",,wimp%:wi|
000073c0  6d 70 25 21 32 38 3d 2d  31 3a c8 99 22 57 69 6d  |mp%!28=-1:.."Wim|
000073d0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
000073e0  69 6d 70 25 3a c8 99 22  57 69 6d 70 5f 53 65 74  |imp%:.."Wimp_Set|
000073f0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6b  |CaretPosition",k|
00007400  25 2c 31 2c 2c 2c 2d 31  2c a9 28 66 69 6c 65 6e  |%,1,,,-1,.(filen|
00007410  61 24 29 0d 22 7e 05 cb  0d 22 88 32 e7 20 77 69  |a$)."~...".2. wi|
00007420  6d 70 25 21 31 32 3d 77  61 72 6e 68 61 6e 25 20  |mp%!12=warnhan% |
00007430  80 20 77 69 6d 70 25 21  38 3c 3e 32 20 c8 8e 20  |. wimp%!8<>2 .. |
00007440  77 69 6d 70 25 21 31 36  20 ca 0d 22 92 37 c9 20  |wimp%!16 ..".7. |
00007450  35 20 3a 20 77 69 6d 70  25 21 30 3d 77 61 72 6e  |5 : wimp%!0=warn|
00007460  68 61 6e 25 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |han%:.. "Wimp_Cl|
00007470  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |oseWindow",,wimp|
00007480  25 0d 22 9c 5a c9 20 36  20 3a 20 6e 62 74 6d 25  |%.".Z. 6 : nbtm%|
00007490  2b 3d 31 3a 77 69 6d 70  25 21 30 3d 77 61 72 6e  |+=1:wimp%!0=warn|
000074a0  68 61 6e 25 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |han%:.. "Wimp_Cl|
000074b0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |oseWindow",,wimp|
000074c0  25 3a e7 20 6e 62 74 6d  25 3d 31 20 f2 63 6f 6e  |%:. nbtm%=1 .con|
000074d0  74 69 6e 75 65 61 63 74  69 6f 6e 0d 22 a6 05 cb  |tinueaction."...|
000074e0  0d 22 b0 2c e7 20 77 69  6d 70 25 21 31 32 3d 6b  |.".,. wimp%!12=k|
000074f0  25 20 80 20 77 69 6d 70  25 21 38 3c 3e 32 20 c8  |% . wimp%!8<>2 .|
00007500  8e 20 77 69 6d 70 25 21  31 36 20 ca 0d 22 ba 16  |. wimp%!16 .."..|
00007510  c9 20 32 20 3a 20 f2 6f  6b 28 77 69 6d 70 25 21  |. 2 : .ok(wimp%!|
00007520  38 29 0d 22 c4 46 c9 20  33 20 3a 20 73 61 76 65  |8).".F. 3 : save|
00007530  67 74 25 3d 31 3a f2 73  65 74 69 63 6f 6e 73 70  |gt%=1:.seticonsp|
00007540  72 69 74 65 28 6b 25 2c  30 2c 22 66 69 6c 65 5f  |rite(k%,0,"file_|
00007550  31 37 39 22 29 3a f2 63  68 61 6e 67 65 66 69 6c  |179"):.changefil|
00007560  65 6e 61 6d 65 28 31 29  0d 22 ce 46 c9 20 34 20  |ename(1).".F. 4 |
00007570  3a 20 73 61 76 65 67 74  25 3d 32 3a f2 73 65 74  |: savegt%=2:.set|
00007580  69 63 6f 6e 73 70 72 69  74 65 28 6b 25 2c 30 2c  |iconsprite(k%,0,|
00007590  22 66 69 6c 65 5f 66 66  66 22 29 3a f2 63 68 61  |"file_fff"):.cha|
000075a0  6e 67 65 66 69 6c 65 6e  61 6d 65 28 32 29 0d 22  |ngefilename(2)."|
000075b0  d8 05 cb 0d 22 e2 37 e7  20 77 69 6d 70 25 21 38  |....".7. wimp%!8|
000075c0  3d 32 20 80 20 77 69 6d  70 25 21 31 32 3d 61 64  |=2 . wimp%!12=ad|
000075d0  76 65 6e 74 68 61 6e 25  20 f2 6d 61 6b 65 6d 65  |venthan% .makeme|
000075e0  6e 75 28 30 29 3a 6d 25  3d 30 0d 22 ec 2f e7 20  |nu(0):m%=0."./. |
000075f0  77 69 6d 70 25 21 31 32  3d 2d 32 20 80 20 77 69  |wimp%!12=-2 . wi|
00007600  6d 70 25 21 38 3d 32 20  f2 6d 61 6b 65 6d 65 6e  |mp%!8=2 .makemen|
00007610  75 28 31 29 3a 6d 25 3d  31 0d 22 f6 1f e7 20 77  |u(1):m%=1."... w|
00007620  69 6d 70 25 21 38 3d 31  20 80 20 77 69 6d 70 25  |imp%!8=1 . wimp%|
00007630  21 31 32 3d 2d 32 20 8c  0d 23 00 59 77 69 6d 70  |!12=-2 ..#.Ywimp|
00007640  25 21 30 3d 6d 61 70 68  61 6e 25 3a c8 99 22 57  |%!0=maphan%:.."W|
00007650  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00007660  74 65 22 2c 2c 77 69 6d  70 25 3a 77 69 6d 70 25  |te",,wimp%:wimp%|
00007670  21 32 38 3d 2d 31 3a c8  99 22 57 69 6d 70 5f 4f  |!28=-1:.."Wimp_O|
00007680  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |penWindow",,wimp|
00007690  25 0d 23 0a 2b c8 99 20  22 58 4f 53 5f 52 65 61  |%.#.+.. "XOS_Rea|
000076a0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c eb  |dModeVariable",.|
000076b0  2c 33 20 b8 20 2c 2c 63  6f 6c 73 25 0d 23 14 23  |,3 . ,,cols%.#.#|
000076c0  e7 20 63 6f 6c 73 25 3c  3e 31 35 20 80 20 70 69  |. cols%<>15 . pi|
000076d0  63 79 6e 25 3d 31 20 70  69 63 79 6e 25 3d 32 0d  |cyn%=1 picyn%=2.|
000076e0  23 1e 22 e7 20 63 6f 6c  73 25 3d 31 35 20 80 20  |#.". cols%=15 . |
000076f0  70 69 63 79 6e 25 3d 32  20 70 69 63 79 6e 25 3d  |picyn%=2 picyn%=|
00007700  31 0d 23 28 67 e7 20 70  69 63 79 6e 25 3d 31 20  |1.#(g. picyn%=1 |
00007710  77 69 6d 70 25 21 30 3d  70 69 63 63 69 65 68 61  |wimp%!0=piccieha|
00007720  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |n%:.."Wimp_GetWi|
00007730  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00007740  25 3a 77 69 6d 70 25 21  32 38 3d 2d 31 3a c8 99  |%:wimp%!28=-1:..|
00007750  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00007760  22 2c 2c 77 69 6d 70 25  0d 23 32 05 cd 0d 23 3c  |",,wimp%.#2...#<|
00007770  1f e7 20 77 69 6d 70 25  21 38 3d 34 20 80 20 77  |.. wimp%!8=4 . w|
00007780  69 6d 70 25 21 31 32 3d  2d 32 20 8c 0d 23 46 5c  |imp%!12=-2 ..#F\|
00007790  77 69 6d 70 25 21 30 3d  61 64 76 65 6e 74 68 61  |wimp%!0=adventha|
000077a0  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |n%:.."Wimp_GetWi|
000077b0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
000077c0  25 3a 77 69 6d 70 25 21  32 38 3d 2d 31 3a c8 99  |%:wimp%!28=-1:..|
000077d0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000077e0  22 2c 2c 77 69 6d 70 25  0d 23 50 1e f2 61 74 74  |",,wimp%.#P..att|
000077f0  61 63 68 3a 6f 70 65 6e  25 3d 31 3a 6f 6c 64 74  |ach:open%=1:oldt|
00007800  69 6d 65 25 3d 91 0d 23  5a 05 cd 0d 23 64 05 e1  |ime%=..#Z...#d..|
00007810  0d 23 6e 04 0d 23 78 12  dd f2 6d 61 6b 65 6d 65  |.#n..#x...makeme|
00007820  6e 75 28 6d 25 29 0d 23  82 2b c8 99 20 22 58 4f  |nu(m%).#.+.. "XO|
00007830  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00007840  6c 65 22 2c eb 2c 33 20  b8 20 2c 2c 63 6f 6c 73  |le",.,3 . ,,cols|
00007850  25 0d 23 8c 23 e7 20 63  6f 6c 73 25 3c 3e 31 35  |%.#.#. cols%<>15|
00007860  20 80 20 70 69 63 79 6e  25 3d 31 20 70 69 63 79  | . picyn%=1 picy|
00007870  6e 25 3d 32 0d 23 96 22  e7 20 63 6f 6c 73 25 3d  |n%=2.#.". cols%=|
00007880  31 35 20 80 20 70 69 63  79 6e 25 3d 32 20 70 69  |15 . picyn%=2 pi|
00007890  63 79 6e 25 3d 31 0d 23  a0 11 24 6d 65 6e 75 25  |cyn%=1.#..$menu%|
000078a0  3d 22 47 6f 72 6d 22 0d  23 aa 0e 6d 65 6e 75 25  |="Gorm".#..menu%|
000078b0  3f 31 32 3d 37 0d 23 b4  0e 6d 65 6e 75 25 3f 31  |?12=7.#..menu%?1|
000078c0  33 3d 32 0d 23 be 0e 6d  65 6e 75 25 3f 31 34 3d  |3=2.#..menu%?14=|
000078d0  37 0d 23 c8 0e 6d 65 6e  75 25 3f 31 35 3d 30 0d  |7.#..menu%?15=0.|
000078e0  23 d2 10 6d 65 6e 75 25  21 31 36 3d 31 38 30 0d  |#..menu%!16=180.|
000078f0  23 dc 0f 6d 65 6e 75 25  21 32 30 3d 34 34 0d 23  |#..menu%!20=44.#|
00007900  e6 0e 6d 65 6e 75 25 21  32 34 3d 30 0d 23 f0 20  |..menu%!24=0.#. |
00007910  6d 65 6e 75 25 21 32 38  3d 32 3a e7 20 6d 25 3d  |menu%!28=2:. m%=|
00007920  30 20 6d 65 6e 75 25 21  32 38 3d 30 0d 23 fa 2d  |0 menu%!28=0.#.-|
00007930  6d 65 6e 75 25 21 33 32  3d 69 6e 68 61 6e 25 3a  |menu%!32=inhan%:|
00007940  e7 20 6d 25 3d 30 20 6d  65 6e 75 25 21 33 32 3d  |. m%=0 menu%!32=|
00007950  6d 65 6e 75 25 2b 31 39  36 0d 24 04 15 6d 65 6e  |menu%+196.$..men|
00007960  75 25 21 33 36 3d 26 37  30 30 30 30 32 31 0d 24  |u%!36=&7000021.$|
00007970  0e 30 24 28 6d 65 6e 75  25 2b 34 30 29 3d 22 49  |.0$(menu%+40)="I|
00007980  6e 66 6f 22 3a e7 20 6d  25 3d 30 20 24 28 6d 65  |nfo":. m%=0 $(me|
00007990  6e 75 25 2b 34 30 29 3d  22 46 6f 6e 74 22 0d 24  |nu%+40)="Font".$|
000079a0  18 0e 6d 65 6e 75 25 21  35 32 3d 30 0d 24 22 30  |..menu%!52=0.$"0|
000079b0  6d 65 6e 75 25 21 35 36  3d 6d 65 6e 75 25 2b 31  |menu%!56=menu%+1|
000079c0  39 36 3a e7 20 6d 25 3d  30 20 6d 65 6e 75 25 21  |96:. m%=0 menu%!|
000079d0  35 36 3d 6d 65 6e 75 25  2b 32 37 32 0d 24 2c 15  |56=menu%+272.$,.|
000079e0  6d 65 6e 75 25 21 36 30  3d 26 37 30 30 30 30 32  |menu%!60=&700002|
000079f0  31 0d 24 36 32 24 28 6d  65 6e 75 25 2b 36 34 29  |1.$62$(menu%+64)|
00007a00  3d 22 46 6f 6e 74 22 3a  e7 20 6d 25 3d 30 20 24  |="Font":. m%=0 $|
00007a10  28 6d 65 6e 75 25 2b 36  34 29 3d 22 45 78 74 72  |(menu%+64)="Extr|
00007a20  61 73 22 0d 24 40 0e 6d  65 6e 75 25 21 37 36 3d  |as".$@.menu%!76=|
00007a30  30 0d 24 4a 30 6d 65 6e  75 25 21 38 30 3d 6d 65  |0.$J0menu%!80=me|
00007a40  6e 75 25 2b 32 37 32 3a  e7 20 6d 25 3d 30 20 6d  |nu%+272:. m%=0 m|
00007a50  65 6e 75 25 21 38 30 3d  6d 65 6e 75 25 2b 33 34  |enu%!80=menu%+34|
00007a60  38 0d 24 54 15 6d 65 6e  75 25 21 38 34 3d 26 37  |8.$T.menu%!84=&7|
00007a70  30 30 30 30 32 31 0d 24  5e 34 24 28 6d 65 6e 75  |000021.$^4$(menu|
00007a80  25 2b 38 38 29 3d 22 45  78 74 72 61 73 22 3a e7  |%+88)="Extras":.|
00007a90  20 6d 25 3d 30 20 24 28  6d 65 6e 75 25 2b 38 38  | m%=0 $(menu%+88|
00007aa0  29 3d 22 50 61 6e 65 6c  73 22 0d 24 68 0f 6d 65  |)="Panels".$h.me|
00007ab0  6e 75 25 21 31 30 30 3d  30 0d 24 72 2b 6d 65 6e  |nu%!100=0.$r+men|
00007ac0  75 25 21 31 30 34 3d 6d  65 6e 75 25 2b 33 34 38  |u%!104=menu%+348|
00007ad0  3a e7 20 6d 25 3d 30 20  6d 65 6e 75 25 21 31 30  |:. m%=0 menu%!10|
00007ae0  34 3d 2d 31 0d 24 7c 16  6d 65 6e 75 25 21 31 30  |4=-1.$|.menu%!10|
00007af0  38 3d 26 37 30 30 30 30  32 31 0d 24 86 37 24 28  |8=&7000021.$.7$(|
00007b00  6d 65 6e 75 25 2b 31 31  32 29 3d 22 50 61 6e 65  |menu%+112)="Pane|
00007b10  6c 73 22 3a e7 20 6d 25  3d 30 20 24 28 6d 65 6e  |ls":. m%=0 $(men|
00007b20  75 25 2b 31 31 32 29 3d  22 52 65 73 74 61 72 74  |u%+112)="Restart|
00007b30  22 0d 24 90 24 6d 65 6e  75 25 21 31 32 34 3d 30  |".$.$menu%!124=0|
00007b40  3a e7 20 6d 25 3d 30 20  6d 65 6e 75 25 21 31 32  |:. m%=0 menu%!12|
00007b50  34 3d 26 38 30 0d 24 9a  2b 6d 65 6e 75 25 21 31  |4=&80.$.+menu%!1|
00007b60  32 38 3d 2d 31 3a e7 20  6d 25 3d 30 20 6d 65 6e  |28=-1:. m%=0 men|
00007b70  75 25 21 31 32 38 3d 6d  65 6e 75 25 2b 34 30 30  |u%!128=menu%+400|
00007b80  0d 24 a4 16 6d 65 6e 75  25 21 31 33 32 3d 26 37  |.$..menu%!132=&7|
00007b90  30 30 30 30 32 31 0d 24  ae 35 24 28 6d 65 6e 75  |000021.$.5$(menu|
00007ba0  25 2b 31 33 36 29 3d 22  52 65 73 74 61 72 74 22  |%+136)="Restart"|
00007bb0  3a e7 20 6d 25 3d 30 20  24 28 6d 65 6e 75 25 2b  |:. m%=0 $(menu%+|
00007bc0  31 33 36 29 3d 22 53 61  76 65 22 0d 24 b8 0f 6d  |136)="Save".$..m|
00007bd0  65 6e 75 25 21 31 34 38  3d 32 0d 24 c2 17 6d 65  |enu%!148=2.$..me|
00007be0  6e 75 25 21 31 35 32 3d  6d 65 6e 75 25 2b 34 30  |nu%!152=menu%+40|
00007bf0  30 0d 24 cc 16 6d 65 6e  75 25 21 31 35 36 3d 26  |0.$..menu%!156=&|
00007c00  37 30 30 30 30 32 31 0d  24 d6 17 24 28 6d 65 6e  |7000021.$..$(men|
00007c10  75 25 2b 31 36 30 29 3d  22 53 61 76 65 22 0d 24  |u%+160)="Save".$|
00007c20  e0 11 6d 65 6e 75 25 21  31 37 32 3d 26 38 30 0d  |..menu%!172=&80.|
00007c30  24 ea 10 6d 65 6e 75 25  21 31 37 36 3d 2d 31 0d  |$..menu%!176=-1.|
00007c40  24 f4 16 6d 65 6e 75 25  21 31 38 30 3d 26 37 30  |$..menu%!180=&70|
00007c50  30 30 30 32 31 0d 24 fe  17 24 28 6d 65 6e 75 25  |00021.$..$(menu%|
00007c60  2b 31 38 34 29 3d 22 51  75 69 74 22 0d 25 08 17  |+184)="Quit".%..|
00007c70  24 28 6d 65 6e 75 25 2b  31 39 36 29 3d 22 46 6f  |$(menu%+196)="Fo|
00007c80  6e 74 22 0d 25 12 0f 6d  65 6e 75 25 3f 32 30 38  |nt".%..menu%?208|
00007c90  3d 37 0d 25 1c 0f 6d 65  6e 75 25 3f 32 30 39 3d  |=7.%..menu%?209=|
00007ca0  32 0d 25 26 0f 6d 65 6e  75 25 3f 32 31 30 3d 37  |2.%&.menu%?210=7|
00007cb0  0d 25 30 0f 6d 65 6e 75  25 3f 32 31 31 3d 30 0d  |.%0.menu%?211=0.|
00007cc0  25 3a 11 6d 65 6e 75 25  21 32 31 32 3d 31 33 30  |%:.menu%!212=130|
00007cd0  0d 25 44 10 6d 65 6e 75  25 21 32 31 36 3d 34 34  |.%D.menu%!216=44|
00007ce0  0d 25 4e 0f 6d 65 6e 75  25 21 32 32 30 3d 30 0d  |.%N.menu%!220=0.|
00007cf0  25 58 25 6d 65 6e 75 25  21 32 32 34 3d 30 3a e7  |%X%menu%!224=0:.|
00007d00  20 66 6f 6e 74 25 3d 30  20 6d 65 6e 75 25 21 32  | font%=0 menu%!2|
00007d10  32 34 3d 31 0d 25 62 10  6d 65 6e 75 25 21 32 32  |24=1.%b.menu%!22|
00007d20  38 3d 2d 31 0d 25 6c 16  6d 65 6e 75 25 21 32 33  |8=-1.%l.menu%!23|
00007d30  32 3d 26 37 30 30 30 30  32 31 0d 25 76 19 24 28  |2=&7000021.%v.$(|
00007d40  6d 65 6e 75 25 2b 32 33  36 29 3d 22 53 79 73 74  |menu%+236)="Syst|
00007d50  65 6d 22 0d 25 80 29 6d  65 6e 75 25 21 32 34 38  |em".%.)menu%!248|
00007d60  3d 26 38 30 3a e7 20 66  6f 6e 74 25 3d 31 20 6d  |=&80:. font%=1 m|
00007d70  65 6e 75 25 21 32 34 38  3d 26 38 31 0d 25 8a 10  |enu%!248=&81.%..|
00007d80  6d 65 6e 75 25 21 32 35  32 3d 2d 31 0d 25 94 36  |menu%!252=-1.%.6|
00007d90  6d 65 6e 75 25 21 32 35  36 3d 26 37 30 30 30 30  |menu%!256=&70000|
00007da0  32 31 3a e7 20 6d 79 66  6f 6e 74 25 3d 2d 31 20  |21:. myfont%=-1 |
00007db0  6d 65 6e 75 25 21 32 35  36 3d 26 37 34 30 30 30  |menu%!256=&74000|
00007dc0  32 31 0d 25 9e 1a 24 28  6d 65 6e 75 25 2b 32 36  |21.%..$(menu%+26|
00007dd0  30 29 3d 22 54 72 69 6e  69 74 79 22 0d 25 a8 19  |0)="Trinity".%..|
00007de0  24 28 6d 65 6e 75 25 2b  32 37 32 29 3d 22 45 78  |$(menu%+272)="Ex|
00007df0  74 72 61 73 22 0d 25 b2  0f 6d 65 6e 75 25 3f 32  |tras".%..menu%?2|
00007e00  38 34 3d 37 0d 25 bc 0f  6d 65 6e 75 25 3f 32 38  |84=7.%..menu%?28|
00007e10  35 3d 32 0d 25 c6 0f 6d  65 6e 75 25 3f 32 38 36  |5=2.%..menu%?286|
00007e20  3d 37 0d 25 d0 0f 6d 65  6e 75 25 3f 32 38 37 3d  |=7.%..menu%?287=|
00007e30  30 0d 25 da 11 6d 65 6e  75 25 21 32 38 38 3d 31  |0.%..menu%!288=1|
00007e40  34 30 0d 25 e4 10 6d 65  6e 75 25 21 32 39 32 3d  |40.%..menu%!292=|
00007e50  34 34 0d 25 ee 0f 6d 65  6e 75 25 21 32 39 36 3d  |44.%..menu%!296=|
00007e60  30 0d 25 f8 0f 6d 65 6e  75 25 21 33 30 30 3d 30  |0.%..menu%!300=0|
00007e70  0d 26 02 10 6d 65 6e 75  25 21 33 30 34 3d 2d 31  |.&..menu%!304=-1|
00007e80  0d 26 0c 16 6d 65 6e 75  25 21 33 30 38 3d 26 37  |.&..menu%!308=&7|
00007e90  30 30 30 30 32 31 0d 26  16 16 24 28 6d 65 6e 75  |000021.&..$(menu|
00007ea0  25 2b 33 31 32 29 3d 22  4d 61 70 22 0d 26 20 11  |%+312)="Map".& .|
00007eb0  6d 65 6e 75 25 21 33 32  34 3d 26 38 30 0d 26 2a  |menu%!324=&80.&*|
00007ec0  10 6d 65 6e 75 25 21 33  32 38 3d 2d 31 0d 26 34  |.menu%!328=-1.&4|
00007ed0  35 6d 65 6e 75 25 21 33  33 32 3d 26 37 30 30 30  |5menu%!332=&7000|
00007ee0  30 32 31 3a e7 20 70 69  63 79 6e 25 3c 3e 31 20  |021:. picyn%<>1 |
00007ef0  6d 65 6e 75 25 21 33 33  32 3d 26 37 34 30 30 30  |menu%!332=&74000|
00007f00  32 31 0d 26 3e 1b 24 28  6d 65 6e 75 25 2b 33 33  |21.&>.$(menu%+33|
00007f10  36 29 3d 22 50 69 63 74  75 72 65 73 22 0d 26 48  |6)="Pictures".&H|
00007f20  19 24 28 6d 65 6e 75 25  2b 33 34 38 29 3d 22 50  |.$(menu%+348)="P|
00007f30  61 6e 65 6c 73 22 0d 26  52 0f 6d 65 6e 75 25 3f  |anels".&R.menu%?|
00007f40  33 36 30 3d 37 0d 26 5c  0f 6d 65 6e 75 25 3f 33  |360=7.&\.menu%?3|
00007f50  36 31 3d 32 0d 26 66 0f  6d 65 6e 75 25 3f 33 36  |61=2.&f.menu%?36|
00007f60  32 3d 37 0d 26 70 0f 6d  65 6e 75 25 3f 33 36 33  |2=7.&p.menu%?363|
00007f70  3d 30 0d 26 7a 11 6d 65  6e 75 25 21 33 36 34 3d  |=0.&z.menu%!364=|
00007f80  31 36 30 0d 26 84 10 6d  65 6e 75 25 21 33 36 38  |160.&..menu%!368|
00007f90  3d 34 34 0d 26 8e 0f 6d  65 6e 75 25 21 33 37 32  |=44.&..menu%!372|
00007fa0  3d 30 0d 26 98 2b 6d 65  6e 75 25 21 33 37 36 3d  |=0.&.+menu%!376=|
00007fb0  26 38 30 3a e7 20 70 6f  73 69 79 6e 25 3d 31 20  |&80:. posiyn%=1 |
00007fc0  6d 65 6e 75 25 21 33 37  36 3d 26 38 31 0d 26 a2  |menu%!376=&81.&.|
00007fd0  10 6d 65 6e 75 25 21 33  38 30 3d 2d 31 0d 26 ac  |.menu%!380=-1.&.|
00007fe0  16 6d 65 6e 75 25 21 33  38 34 3d 26 37 30 30 30  |.menu%!384=&7000|
00007ff0  30 32 31 0d 26 b6 1b 24  28 6d 65 6e 75 25 2b 33  |021.&..$(menu%+3|
00008000  38 38 29 3d 22 50 6f 73  69 74 69 6f 6e 22 0d 26  |88)="Position".&|
00008010  c0 17 24 28 6d 65 6e 75  25 2b 34 30 30 29 3d 22  |..$(menu%+400)="|
00008020  53 61 76 65 22 0d 26 ca  0f 6d 65 6e 75 25 3f 34  |Save".&..menu%?4|
00008030  31 32 3d 37 0d 26 d4 0f  6d 65 6e 75 25 3f 34 31  |12=7.&..menu%?41|
00008040  33 3d 32 0d 26 de 0f 6d  65 6e 75 25 3f 34 31 34  |3=2.&..menu%?414|
00008050  3d 37 0d 26 e8 0f 6d 65  6e 75 25 3f 34 31 35 3d  |=7.&..menu%?415=|
00008060  30 0d 26 f2 11 6d 65 6e  75 25 21 34 31 36 3d 31  |0.&..menu%!416=1|
00008070  34 30 0d 26 fc 10 6d 65  6e 75 25 21 34 32 30 3d  |40.&..menu%!420=|
00008080  34 34 0d 27 06 0f 6d 65  6e 75 25 21 34 32 34 3d  |44.'..menu%!424=|
00008090  30 0d 27 10 0f 6d 65 6e  75 25 21 34 32 38 3d 30  |0.'..menu%!428=0|
000080a0  0d 27 1a 10 6d 65 6e 75  25 21 34 33 32 3d 6b 25  |.'..menu%!432=k%|
000080b0  0d 27 24 16 6d 65 6e 75  25 21 34 33 36 3d 26 37  |.'$.menu%!436=&7|
000080c0  30 30 30 30 32 31 0d 27  2e 17 24 28 6d 65 6e 75  |000021.'..$(menu|
000080d0  25 2b 34 34 30 29 3d 22  46 69 6c 65 22 0d 27 38  |%+440)="File".'8|
000080e0  11 6d 65 6e 75 25 21 34  35 32 3d 26 38 30 0d 27  |.menu%!452=&80.'|
000080f0  42 10 6d 65 6e 75 25 21  34 35 36 3d 2d 31 0d 27  |B.menu%!456=-1.'|
00008100  4c 16 6d 65 6e 75 25 21  34 36 30 3d 26 37 30 30  |L.menu%!460=&700|
00008110  30 30 32 31 0d 27 56 1a  24 28 6d 65 6e 75 25 2b  |0021.'V.$(menu%+|
00008120  34 36 34 29 3d 22 43 68  6f 69 63 65 73 22 0d 27  |464)="Choices".'|
00008130  60 21 6d 6f 75 73 78 25  3d 77 69 6d 70 25 21 30  |`!mousx%=wimp%!0|
00008140  3a 6d 6f 75 73 79 25 3d  77 69 6d 70 25 21 34 0d  |:mousy%=wimp%!4.|
00008150  27 6a 39 e7 20 6d 25 3d  30 20 c8 99 20 22 57 69  |'j9. m%=0 .. "Wi|
00008160  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00008170  6d 65 6e 75 25 2c 77 69  6d 70 25 21 30 2d 37 30  |menu%,wimp%!0-70|
00008180  2c 77 69 6d 70 25 21 34  0d 27 74 35 e7 20 6d 25  |,wimp%!4.'t5. m%|
00008190  3d 31 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |=1 .. "Wimp_Crea|
000081a0  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 77  |teMenu",,menu%,w|
000081b0  69 6d 70 25 21 30 2d 36  38 2c 34 35 32 0d 27 7e  |imp%!0-68,452.'~|
000081c0  05 e1 0d 27 88 04 0d 27  92 14 dd a4 63 68 61 6e  |...'...'....chan|
000081d0  67 65 63 61 73 65 28 61  24 29 0d 27 9c 0f e7 20  |gecase(a$).'... |
000081e0  61 24 3d 22 22 20 3d 22  22 0d 27 a6 0b 77 72 64  |a$="" ="".'..wrd|
000081f0  24 3d 22 22 0d 27 b0 11  e3 20 61 3d 31 20 b8 20  |$="".'... a=1 . |
00008200  a9 28 61 24 29 0d 27 ba  11 6c 3d 97 28 c1 61 24  |.(a$).'..l=.(.a$|
00008210  2c 61 2c 31 29 29 0d 27  c4 17 e7 20 6c 3e 36 34  |,a,1)).'... l>64|
00008220  20 80 20 6c 3c 39 30 20  6c 2b 3d 33 32 0d 27 ce  | . l<90 l+=32.'.|
00008230  19 e7 20 6c 3e 32 31 35  20 80 20 6c 3c 32 32 33  |.. l>215 . l<223|
00008240  20 6c 2b 3d 33 32 0d 27  d8 19 e7 20 6c 3e 31 39  | l+=32.'... l>19|
00008250  31 20 80 20 6c 3c 32 31  35 20 6c 2b 3d 33 32 0d  |1 . l<215 l+=32.|
00008260  27 e2 0e 77 72 64 24 2b  3d bd 28 6c 29 0d 27 ec  |'..wrd$+=.(l).'.|
00008270  07 ed 20 61 0d 27 f6 09  3d 77 72 64 24 0d 28 00  |.. a.'..=wrd$.(.|
00008280  04 0d 28 0a 10 dd a4 72  65 6d 6f 76 65 28 61 24  |..(....remove(a$|
00008290  29 0d 28 14 0f e7 20 61  24 3d 22 22 20 3d 22 22  |).(... a$="" =""|
000082a0  0d 28 1e 0b 77 72 64 24  3d 22 22 0d 28 28 11 e3  |.(..wrd$="".((..|
000082b0  20 61 3d 31 20 b8 20 a9  28 61 24 29 0d 28 32 11  | a=1 . .(a$).(2.|
000082c0  6c 3d 97 28 c1 61 24 2c  61 2c 31 29 29 0d 28 3c  |l=.(.a$,a,1)).(<|
000082d0  08 70 25 3d 30 0d 28 46  0f e7 20 6c 3c 34 37 20  |.p%=0.(F.. l<47 |
000082e0  70 25 3d 31 0d 28 50 16  e7 20 6c 3e 35 37 20 80  |p%=1.(P.. l>57 .|
000082f0  20 6c 3c 36 35 20 70 25  3d 31 0d 28 5a 0f e7 20  | l<65 p%=1.(Z.. |
00008300  6c 3d 33 32 20 70 25 3d  30 0d 28 64 15 e7 20 70  |l=32 p%=0.(d.. p|
00008310  25 3d 30 20 77 72 64 24  2b 3d bd 28 6c 29 0d 28  |%=0 wrd$+=.(l).(|
00008320  6e 07 ed 20 61 0d 28 78  09 3d 77 72 64 24 0d 28  |n.. a.(x.=wrd$.(|
00008330  82 04 0d 28 8c 0f dd f2  74 68 65 6e 6f 72 61 6e  |...(....thenoran|
00008340  64 0d 28 96 0d 72 65 61  6c 69 24 3d 69 24 0d 28  |d.(..reali$=i$.(|
00008350  a0 05 f5 0d 28 aa 18 74  68 65 6e 79 6e 25 3d 30  |....(..thenyn%=0|
00008360  3a 70 6f 73 74 6e 25 3d  32 36 30 0d 28 b4 21 74  |:postn%=260.(.!t|
00008370  68 65 6e 25 28 31 29 3d  a7 72 65 61 6c 69 24 2c  |hen%(1)=.reali$,|
00008380  22 2c 61 6e 64 20 74 68  65 6e 22 29 0d 28 be 22  |",and then").(."|
00008390  74 68 65 6e 25 28 32 29  3d a7 72 65 61 6c 69 24  |then%(2)=.reali$|
000083a0  2c 22 2c 20 61 6e 64 20  74 68 65 6e 22 29 0d 28  |,", and then").(|
000083b0  c8 21 74 68 65 6e 25 28  33 29 3d a7 72 65 61 6c  |.!then%(3)=.real|
000083c0  69 24 2c 22 20 61 6e 64  20 74 68 65 6e 22 29 0d  |i$," and then").|
000083d0  28 d2 1e 74 68 65 6e 25  28 34 29 3d a7 72 65 61  |(..then%(4)=.rea|
000083e0  6c 69 24 2c 22 2c 20 74  68 65 6e 22 29 0d 28 dc  |li$,", then").(.|
000083f0  1d 74 68 65 6e 25 28 35  29 3d a7 72 65 61 6c 69  |.then%(5)=.reali|
00008400  24 2c 22 2c 74 68 65 6e  22 29 0d 28 e6 1c 74 68  |$,",then").(..th|
00008410  65 6e 25 28 36 29 3d a7  72 65 61 6c 69 24 2c 22  |en%(6)=.reali$,"|
00008420  74 68 65 6e 22 29 0d 28  f0 1d 74 68 65 6e 25 28  |then").(..then%(|
00008430  37 29 3d a7 72 65 61 6c  69 24 2c 22 2c 20 61 6e  |7)=.reali$,", an|
00008440  64 22 29 0d 28 fa 1c 74  68 65 6e 25 28 38 29 3d  |d").(..then%(8)=|
00008450  a7 72 65 61 6c 69 24 2c  22 2c 61 6e 64 22 29 0d  |.reali$,",and").|
00008460  29 04 1c 74 68 65 6e 25  28 39 29 3d a7 72 65 61  |)..then%(9)=.rea|
00008470  6c 69 24 2c 22 20 61 6e  64 22 29 0d 29 0e 1a 74  |li$," and").)..t|
00008480  68 65 6e 25 28 31 30 29  3d a7 72 65 61 6c 69 24  |hen%(10)=.reali$|
00008490  2c 22 2c 22 29 0d 29 18  0f e3 20 61 25 3d 31 20  |,",").)... a%=1 |
000084a0  b8 20 31 30 0d 29 22 40  e7 20 74 68 65 6e 25 28  |. 10.)"@. then%(|
000084b0  61 25 29 3c 70 6f 73 74  6e 25 20 80 20 74 68 65  |a%)<postn% . the|
000084c0  6e 25 28 61 25 29 3e 30  20 74 68 65 6e 79 6e 25  |n%(a%)>0 thenyn%|
000084d0  3d 61 25 3a 70 6f 73 74  6e 25 3d 74 68 65 6e 25  |=a%:postn%=then%|
000084e0  28 61 25 29 0d 29 2c 08  ed 20 61 25 0d 29 36 10  |(a%).),.. a%.)6.|
000084f0  c8 8e 20 74 68 65 6e 79  6e 25 20 ca 0d 29 40 1d  |.. thenyn% ..)@.|
00008500  20 20 c9 20 31 20 3a 20  f2 64 6f 69 74 28 70 6f  |  . 1 : .doit(po|
00008510  73 74 6e 25 2d 31 2c 39  29 0d 29 4a 1e 20 20 c9  |stn%-1,9).)J.  .|
00008520  20 32 20 3a 20 f2 64 6f  69 74 28 70 6f 73 74 6e  | 2 : .doit(postn|
00008530  25 2d 31 2c 31 30 29 0d  29 54 1d 20 20 c9 20 33  |%-1,10).)T.  . 3|
00008540  20 3a 20 f2 64 6f 69 74  28 70 6f 73 74 6e 25 2d  | : .doit(postn%-|
00008550  31 2c 39 29 0d 29 5e 1d  20 20 c9 20 34 20 3a 20  |1,9).)^.  . 4 : |
00008560  f2 64 6f 69 74 28 70 6f  73 74 6e 25 2d 31 2c 36  |.doit(postn%-1,6|
00008570  29 0d 29 68 1d 20 20 c9  20 35 20 3a 20 f2 64 6f  |).)h.  . 5 : .do|
00008580  69 74 28 70 6f 73 74 6e  25 2d 31 2c 35 29 0d 29  |it(postn%-1,5).)|
00008590  72 1d 20 20 c9 20 36 20  3a 20 f2 64 6f 69 74 28  |r.  . 6 : .doit(|
000085a0  70 6f 73 74 6e 25 2d 31  2c 34 29 0d 29 7c 1d 20  |postn%-1,4).)|. |
000085b0  20 c9 20 37 20 3a 20 f2  64 6f 69 74 28 70 6f 73  | . 7 : .doit(pos|
000085c0  74 6e 25 2d 31 2c 35 29  0d 29 86 1d 20 20 c9 20  |tn%-1,5).)..  . |
000085d0  38 20 3a 20 f2 64 6f 69  74 28 70 6f 73 74 6e 25  |8 : .doit(postn%|
000085e0  2d 31 2c 34 29 0d 29 90  1d 20 20 c9 20 39 20 3a  |-1,4).)..  . 9 :|
000085f0  20 f2 64 6f 69 74 28 70  6f 73 74 6e 25 2d 31 2c  | .doit(postn%-1,|
00008600  34 29 0d 29 9a 1e 20 20  c9 20 31 30 20 3a 20 f2  |4).)..  . 10 : .|
00008610  64 6f 69 74 28 70 6f 73  74 6e 25 2d 31 2c 31 29  |doit(postn%-1,1)|
00008620  0d 29 a4 05 cb 0d 29 ae  0f fd 20 74 68 65 6e 79  |.)....)... theny|
00008630  6e 25 3d 30 0d 29 b8 14  69 24 3d a4 72 65 6d 73  |n%=0.)..i$=.rems|
00008640  70 61 63 65 28 69 24 29  0d 29 c2 0d f2 72 65 73  |pace(i$).)...res|
00008650  70 6f 6e 64 32 0d 29 cc  05 e1 0d 29 d6 04 0d 29  |pond2.)....)...)|
00008660  e0 17 dd f2 64 6f 69 74  28 70 6e 74 72 25 2c 77  |....doit(pntr%,w|
00008670  72 64 6c 25 29 0d 29 ea  0d 74 68 65 6e 79 6e 25  |rdl%).)..thenyn%|
00008680  3d 31 0d 29 f4 17 69 24  3d c1 72 65 61 6c 69 24  |=1.)..i$=.reali$|
00008690  2c 31 2c 70 6e 74 72 25  29 0d 29 fe 31 72 65 61  |,1,pntr%).).1rea|
000086a0  6c 69 24 3d c1 72 65 61  6c 69 24 2c 70 6e 74 72  |li$=.reali$,pntr|
000086b0  25 2b 31 2b 77 72 64 6c  25 2c a9 28 72 65 61 6c  |%+1+wrdl%,.(real|
000086c0  69 24 29 2d 70 6e 74 72  25 29 0d 2a 08 14 69 24  |i$)-pntr%).*..i$|
000086d0  3d a4 72 65 6d 73 70 61  63 65 28 69 24 29 0d 2a  |=.remspace(i$).*|
000086e0  12 16 f2 72 65 73 70 6f  6e 64 32 3a f2 61 64 64  |...respond2:.add|
000086f0  28 22 22 29 0d 2a 1c 0d  69 24 3d 72 65 61 6c 69  |("").*..i$=reali|
00008700  24 0d 2a 26 05 e1 0d 2a  30 04 0d 2a 3a 12 dd a4  |$.*&...*0..*:...|
00008710  72 65 6d 73 70 61 63 65  28 74 24 29 0d 2a 44 16  |remspace(t$).*D.|
00008720  74 78 74 24 3d 22 22 3a  74 65 78 74 66 6c 67 25  |txt$="":textflg%|
00008730  3d 30 0d 2a 4e 12 e3 20  61 25 3d 31 20 b8 20 a9  |=0.*N.. a%=1 . .|
00008740  28 69 24 29 0d 2a 58 3c  e7 20 c1 74 24 2c 61 25  |(i$).*X<. .t$,a%|
00008750  2c 31 29 3c 3e 22 20 22  20 84 20 74 65 78 74 66  |,1)<>" " . textf|
00008760  6c 67 25 3d 31 20 74 78  74 24 2b 3d c1 74 24 2c  |lg%=1 txt$+=.t$,|
00008770  61 25 2c 31 29 3a 74 65  78 74 66 6c 67 25 3d 31  |a%,1):textflg%=1|
00008780  0d 2a 62 08 ed 20 61 25  0d 2a 6c 0b 74 24 3d 74  |.*b.. a%.*l.t$=t|
00008790  78 74 24 0d 2a 76 16 74  78 74 24 3d 22 22 3a 74  |xt$.*v.txt$="":t|
000087a0  65 78 74 66 6c 67 25 3d  30 0d 2a 80 16 e3 20 61  |extflg%=0.*... a|
000087b0  25 3d a9 28 74 24 29 20  b8 20 31 20 88 2d 31 0d  |%=.(t$) . 1 .-1.|
000087c0  2a 8a 40 e7 20 c1 74 24  2c 61 25 2c 31 29 3c 3e  |*.@. .t$,a%,1)<>|
000087d0  22 20 22 20 84 20 74 65  78 74 66 6c 67 25 3d 31  |" " . textflg%=1|
000087e0  20 74 78 74 24 3d c1 74  24 2c 61 25 2c 31 29 2b  | txt$=.t$,a%,1)+|
000087f0  74 78 74 24 3a 74 65 78  74 66 6c 67 25 3d 31 0d  |txt$:textflg%=1.|
00008800  2a 94 08 ed 20 61 25 0d  2a 9e 09 3d 74 78 74 24  |*... a%.*..=txt$|
00008810  0d 2a a8 04 0d 2a b2 0d  dd f2 72 65 73 70 6f 6e  |.*...*....respon|
00008820  64 0d 2a bc 0e 61 6c 74  65 72 65 64 25 3d 31 0d  |d.*..altered%=1.|
00008830  2a c6 0e 6f 6c 64 74 69  6d 65 25 3d 91 0d 2a d0  |*..oldtime%=..*.|
00008840  1a 69 24 3d a4 66 69 78  73 74 72 69 6e 67 28 69  |.i$=.fixstring(i|
00008850  24 2b bd 28 30 29 29 0d  2a da 16 69 24 3d a4 63  |$+.(0)).*..i$=.c|
00008860  68 61 6e 67 65 63 61 73  65 28 69 24 29 0d 2a e4  |hangecase(i$).*.|
00008870  0e f2 74 68 65 6e 6f 72  61 6e 64 0d 2a ee 05 e1  |..thenorand.*...|
00008880  0d 2a f8 04 0d 2b 02 0e  dd f2 72 65 73 70 6f 6e  |.*...+....respon|
00008890  64 32 0d 2b 0c 3d e7 20  69 24 3d 73 74 6e 67 24  |d2.+.=. i$=stng$|
000088a0  20 80 20 6e 69 66 6f 6b  25 3d 31 20 f2 61 64 64  | . nifok%=1 .add|
000088b0  28 73 74 72 6e 67 24 29  3a 6e 69 66 6f 6b 25 3d  |(strng$):nifok%=|
000088c0  30 3a f2 64 65 63 69 64  65 70 69 63 73 3a e1 0d  |0:.decidepics:..|
000088d0  2b 16 17 e7 20 72 65 6e  77 25 3d 31 20 f2 6e 6f  |+... renw%=1 .no|
000088e0  6e 65 65 64 3a e1 0d 2b  20 12 69 24 3d a4 72 65  |need:..+ .i$=.re|
000088f0  6d 6f 76 65 28 69 24 29  0d 2b 2a 18 e7 20 6e 69  |move(i$).+*.. ni|
00008900  66 6f 6b 25 3d 31 20 f2  67 6f 6e 6e 65 72 3a e1  |fok%=1 .gonner:.|
00008910  0d 2b 34 40 e7 20 73 6c  65 65 70 25 3d 31 20 80  |.+4@. sleep%=1 .|
00008920  20 91 2d 36 30 30 30 3c  73 6c 65 65 70 6f 6c 64  | .-6000<sleepold|
00008930  74 69 6d 65 25 20 f2 61  64 64 28 22 5a 7a 7a 7a  |time% .add("Zzzz|
00008940  7a 7a 7a 7a 7a 7a 7a 7a  7a 2e 2e 2e 22 29 3a e1  |zzzzzzzzz..."):.|
00008950  0d 2b 3e 1a e7 20 73 77  65 61 72 25 3d 35 20 f2  |.+>.. swear%=5 .|
00008960  6e 6f 74 73 70 65 61 6b  3a e1 0d 2b 48 1f e7 20  |notspeak:..+H.. |
00008970  69 24 3d 22 22 20 f2 6e  6f 74 68 69 6e 67 3a f2  |i$="" .nothing:.|
00008980  61 64 64 28 74 24 29 3a  e1 0d 2b 52 3f e7 20 69  |add(t$):..+R?. i|
00008990  24 3d 6f 6c 64 77 6f 72  64 24 20 80 20 69 24 3c  |$=oldword$ . i$<|
000089a0  3e 22 22 20 6e 6f 74 69  6d 65 73 25 2b 3d 31 20  |>"" notimes%+=1 |
000089b0  8b 20 6f 6c 64 77 6f 72  64 24 3d 69 24 3a 6e 6f  |. oldword$=i$:no|
000089c0  74 69 6d 65 73 25 3d 30  0d 2b 5c 28 e7 20 69 24  |times%=0.+\(. i$|
000089d0  3d 6f 6c 64 77 6f 72 64  24 20 80 20 6e 6f 74 69  |=oldword$ . noti|
000089e0  6d 65 73 25 3e 34 20 f2  72 65 70 65 61 74 3a e1  |mes%>4 .repeat:.|
000089f0  0d 2b 66 2d e7 20 a7 69  24 2c 22 73 68 65 65 70  |.+f-. .i$,"sheep|
00008a00  22 29 3e 30 20 80 20 a7  69 24 2c 65 63 24 28 31  |")>0 . .i$,ec$(1|
00008a10  29 29 3e 30 20 f2 77 65  6c 73 68 3a e1 0d 2b 70  |))>0 .welsh:..+p|
00008a20  1c e7 20 a7 69 24 2c 65  63 24 28 32 29 29 3e 30  |.. .i$,ec$(2))>0|
00008a30  20 f2 73 77 65 61 72 3a  e1 0d 2b 7a 1c e7 20 a7  | .swear:..+z.. .|
00008a40  69 24 2c 65 63 24 28 33  29 29 3e 30 20 f2 73 77  |i$,ec$(3))>0 .sw|
00008a50  65 61 72 3a e1 0d 2b 84  1c e7 20 a7 69 24 2c 65  |ear:..+... .i$,e|
00008a60  63 24 28 34 29 29 3e 30  20 f2 73 77 65 61 72 3a  |c$(4))>0 .swear:|
00008a70  e1 0d 2b 8e 1c e7 20 a7  69 24 2c 65 63 24 28 35  |..+... .i$,ec$(5|
00008a80  29 29 3e 30 20 f2 73 77  65 61 72 3a e1 0d 2b 98  |))>0 .swear:..+.|
00008a90  41 e7 20 a7 69 24 2c 65  63 24 28 36 29 29 3e 30  |A. .i$,ec$(6))>0|
00008aa0  20 f2 61 64 64 28 22 4f  6f 68 21 20 54 68 61 74  | .add("Ooh! That|
00008ab0  27 73 20 68 61 72 64 20  6c 61 6e 67 75 61 67 65  |'s hard language|
00008ac0  20 69 73 6e 27 74 20 69  74 21 22 29 3a e1 0d 2b  | isn't it!"):..+|
00008ad0  a2 1c e7 20 a7 69 24 2c  65 63 24 28 37 29 29 3e  |... .i$,ec$(7))>|
00008ae0  30 20 f2 73 77 65 61 72  3a e1 0d 2b ac 1c e7 20  |0 .swear:..+... |
00008af0  a7 69 24 2c 65 63 24 28  38 29 29 3e 30 20 f2 73  |.i$,ec$(8))>0 .s|
00008b00  77 65 61 72 3a e1 0d 2b  b6 1c e7 20 a7 69 24 2c  |wear:..+... .i$,|
00008b10  65 63 24 28 39 29 29 3e  30 20 f2 73 77 65 61 72  |ec$(9))>0 .swear|
00008b20  3a e1 0d 2b c0 1d e7 20  a7 69 24 2c 65 63 24 28  |:..+... .i$,ec$(|
00008b30  31 30 29 29 3e 30 20 f2  73 77 65 61 72 3a e1 0d  |10))>0 .swear:..|
00008b40  2b ca 1d e7 20 a7 69 24  2c 65 63 24 28 31 31 29  |+... .i$,ec$(11)|
00008b50  29 3e 30 20 f2 73 77 65  61 72 3a e1 0d 2b d4 1d  |)>0 .swear:..+..|
00008b60  e7 20 a7 69 24 2c 65 63  24 28 31 32 29 29 3e 30  |. .i$,ec$(12))>0|
00008b70  20 f2 73 77 65 61 72 3a  e1 0d 2b de 1d e7 20 a7  | .swear:..+... .|
00008b80  69 24 2c 65 63 24 28 31  33 29 29 3e 30 20 f2 73  |i$,ec$(13))>0 .s|
00008b90  77 65 61 72 3a e1 0d 2b  e8 1e e7 20 a7 69 24 2c  |wear:..+... .i$,|
00008ba0  65 63 24 28 31 29 29 3e  30 20 f2 6e 61 75 67 68  |ec$(1))>0 .naugh|
00008bb0  74 79 3a e1 0d 2b f2 1f  e7 20 a7 69 24 2c 22 73  |ty:..+... .i$,"s|
00008bc0  68 75 74 20 75 70 22 29  3e 30 20 f2 74 65 6e 73  |hut up")>0 .tens|
00008bd0  65 3a e1 0d 2b fc 1e e7  20 a7 69 24 2c 22 73 68  |e:..+... .i$,"sh|
00008be0  75 74 75 70 22 29 3e 30  20 f2 74 65 6e 73 65 3a  |utup")>0 .tense:|
00008bf0  e1 0d 2c 06 1f e7 20 a7  69 24 2c 22 67 6f 20 61  |..,... .i$,"go a|
00008c00  77 61 79 22 29 3e 30 20  f2 74 65 6e 73 65 3a e1  |way")>0 .tense:.|
00008c10  0d 2c 10 1a e7 20 c0 69  24 2c 34 29 3d 22 73 61  |.,... .i$,4)="sa|
00008c20  79 20 22 20 f2 73 61 79  3a e1 0d 2c 1a 1b e7 20  |y " .say:..,... |
00008c30  c0 69 24 2c 34 29 3d 22  74 65 6c 6c 22 20 f2 74  |.i$,4)="tell" .t|
00008c40  65 6c 6c 3a e1 0d 2c 24  1e e7 20 c0 69 24 2c 36  |ell:..,$.. .i$,6|
00008c50  29 3d 22 70 72 69 6e 74  20 22 20 f2 70 72 69 6e  |)="print " .prin|
00008c60  74 3a e1 0d 2c 2e 1b e7  20 c0 69 24 2c 34 29 3d  |t:..,... .i$,4)=|
00008c70  22 6c 6f 6f 6b 22 20 f2  6c 6f 6f 6b 3a e1 0d 2c  |"look" .look:..,|
00008c80  38 2a e7 20 c0 69 24 2c  37 29 3d 22 65 78 61 6d  |8*. .i$,7)="exam|
00008c90  69 6e 65 22 20 f2 6d 75  63 68 6d 6f 72 65 73 70  |ine" .muchmoresp|
00008ca0  65 63 69 66 69 63 3a e1  0d 2c 42 2a e7 20 c0 69  |ecific:..,B*. .i|
00008cb0  24 2c 37 29 3d 22 69 6e  73 70 65 63 74 22 20 f2  |$,7)="inspect" .|
00008cc0  6d 75 63 68 6d 6f 72 65  73 70 65 63 69 66 69 63  |muchmorespecific|
00008cd0  3a e1 0d 2c 4c 2a e7 20  c0 69 24 2c 37 29 3d 22  |:..,L*. .i$,7)="|
00008ce0  6f 62 73 65 72 76 65 22  20 f2 6d 75 63 68 6d 6f  |observe" .muchmo|
00008cf0  72 65 73 70 65 63 69 66  69 63 3a e1 0d 2c 56 1d  |respecific:..,V.|
00008d00  e7 20 c0 69 24 2c 35 29  3d 22 65 78 69 74 73 22  |. .i$,5)="exits"|
00008d10  20 f2 65 78 69 74 73 3a  e1 0d 2c 60 1b e7 20 c0  | .exits:..,`.. .|
00008d20  69 24 2c 34 29 3d 22 6f  70 65 6e 22 20 f2 6f 70  |i$,4)="open" .op|
00008d30  65 6e 3a e1 0d 2c 6a 1c  e7 20 c0 69 24 2c 34 29  |en:..,j.. .i$,4)|
00008d40  3d 22 73 68 75 74 22 20  f2 63 6c 6f 73 65 3a e1  |="shut" .close:.|
00008d50  0d 2c 74 1d e7 20 c0 69  24 2c 35 29 3d 22 63 6c  |.,t.. .i$,5)="cl|
00008d60  6f 73 65 22 20 f2 63 6c  6f 73 65 3a e1 0d 2c 7e  |ose" .close:..,~|
00008d70  19 e7 20 c0 69 24 2c 33  29 3d 22 69 6e 76 22 20  |.. .i$,3)="inv" |
00008d80  f2 69 6e 76 3a e1 0d 2c  88 17 e7 20 c0 69 24 2c  |.inv:..,... .i$,|
00008d90  32 29 3d 22 67 6f 22 20  f2 67 6f 3a e1 0d 2c 92  |2)="go" .go:..,.|
00008da0  18 e7 20 c0 69 24 2c 33  29 3d 22 72 75 6e 22 20  |.. .i$,3)="run" |
00008db0  f2 67 6f 3a e1 0d 2c 9c  19 e7 20 c0 69 24 2c 34  |.go:..,... .i$,4|
00008dc0  29 3d 22 6d 6f 76 65 22  20 f2 67 6f 3a e1 0d 2c  |)="move" .go:..,|
00008dd0  a6 19 e7 20 c0 69 24 2c  34 29 3d 22 77 61 6c 6b  |... .i$,4)="walk|
00008de0  22 20 f2 67 6f 3a e1 0d  2c b0 1b e7 20 c0 69 24  |" .go:..,... .i$|
00008df0  2c 36 29 3d 22 74 72 61  76 65 6c 22 20 f2 67 6f  |,6)="travel" .go|
00008e00  3a e1 0d 2c ba 1b e7 20  c0 69 24 2c 34 29 3d 22  |:..,... .i$,4)="|
00008e10  72 65 61 64 22 20 f2 72  65 61 64 3a e1 0d 2c c4  |read" .read:..,.|
00008e20  1d e7 20 c0 69 24 2c 35  29 3d 22 77 72 69 74 65  |.. .i$,5)="write|
00008e30  22 20 f2 77 72 69 74 65  3a e1 0d 2c ce 1e e7 20  |" .write:..,... |
00008e40  c0 69 24 2c 36 29 3d 22  73 63 72 61 77 6c 22 20  |.i$,6)="scrawl" |
00008e50  f2 77 72 69 74 65 3a e1  0d 2c d8 20 e7 20 c0 69  |.write:..,. . .i|
00008e60  24 2c 38 29 3d 22 73 63  72 69 62 62 6c 65 22 20  |$,8)="scribble" |
00008e70  f2 77 72 69 74 65 3a e1  0d 2c e2 25 e7 20 c0 69  |.write:..,.%. .i|
00008e80  24 2c 39 29 3d 22 6e 6f  72 74 68 65 61 73 74 22  |$,9)="northeast"|
00008e90  20 f2 6e 6f 72 74 68 65  61 73 74 3a e1 0d 2c ec  | .northeast:..,.|
00008ea0  25 e7 20 c0 69 24 2c 39  29 3d 22 73 6f 75 74 68  |%. .i$,9)="south|
00008eb0  65 61 73 74 22 20 f2 73  6f 75 74 68 65 61 73 74  |east" .southeast|
00008ec0  3a e1 0d 2c f6 25 e7 20  c0 69 24 2c 39 29 3d 22  |:..,.%. .i$,9)="|
00008ed0  73 6f 75 74 68 77 65 73  74 22 20 f2 73 6f 75 74  |southwest" .sout|
00008ee0  68 77 65 73 74 3a e1 0d  2d 00 25 e7 20 c0 69 24  |hwest:..-.%. .i$|
00008ef0  2c 39 29 3d 22 6e 6f 72  74 68 77 65 73 74 22 20  |,9)="northwest" |
00008f00  f2 6e 6f 72 74 68 77 65  73 74 3a e1 0d 2d 0a 1d  |.northwest:..-..|
00008f10  e7 20 c0 69 24 2c 35 29  3d 22 6e 6f 72 74 68 22  |. .i$,5)="north"|
00008f20  20 f2 6e 6f 72 74 68 3a  e1 0d 2d 14 1b e7 20 c0  | .north:..-... .|
00008f30  69 24 2c 34 29 3d 22 65  61 73 74 22 20 f2 65 61  |i$,4)="east" .ea|
00008f40  73 74 3a e1 0d 2d 1e 1d  e7 20 c0 69 24 2c 35 29  |st:..-... .i$,5)|
00008f50  3d 22 73 6f 75 74 68 22  20 f2 73 6f 75 74 68 3a  |="south" .south:|
00008f60  e1 0d 2d 28 1b e7 20 c0  69 24 2c 34 29 3d 22 77  |..-(.. .i$,4)="w|
00008f70  65 73 74 22 20 f2 77 65  73 74 3a e1 0d 2d 32 17  |est" .west:..-2.|
00008f80  e7 20 c0 69 24 2c 32 29  3d 22 75 70 22 20 f2 75  |. .i$,2)="up" .u|
00008f90  70 3a e1 0d 2d 3c 1b e7  20 c0 69 24 2c 34 29 3d  |p:..-<.. .i$,4)=|
00008fa0  22 64 6f 77 6e 22 20 f2  64 6f 77 6e 3a e1 0d 2d  |"down" .down:..-|
00008fb0  46 1e e7 20 c0 69 24 2c  37 29 3d 22 64 65 73 63  |F.. .i$,7)="desc|
00008fc0  65 6e 64 22 20 f2 64 6f  77 6e 3a e1 0d 2d 50 1a  |end" .down:..-P.|
00008fd0  e7 20 c0 69 24 2c 35 29  3d 22 63 6c 69 6d 62 22  |. .i$,5)="climb"|
00008fe0  20 f2 75 70 3a e1 0d 2d  5a 1b e7 20 c0 69 24 2c  | .up:..-Z.. .i$,|
00008ff0  36 29 3d 22 61 73 63 65  6e 64 22 20 f2 75 70 3a  |6)="ascend" .up:|
00009000  e1 0d 2d 64 19 e7 20 c0  69 24 2c 33 29 3d 22 67  |..-d.. .i$,3)="g|
00009010  65 74 22 20 f2 67 65 74  3a e1 0d 2d 6e 1a e7 20  |et" .get:..-n.. |
00009020  c0 69 24 2c 34 29 3d 22  67 72 61 62 22 20 f2 67  |.i$,4)="grab" .g|
00009030  65 74 3a e1 0d 2d 78 1a  e7 20 c0 69 24 2c 34 29  |et:..-x.. .i$,4)|
00009040  3d 22 74 61 6b 65 22 20  f2 67 65 74 3a e1 0d 2d  |="take" .get:..-|
00009050  82 1c e7 20 c0 69 24 2c  36 29 3d 22 73 6e 61 74  |... .i$,6)="snat|
00009060  63 68 22 20 f2 67 65 74  3a e1 0d 2d 8c 1c e7 20  |ch" .get:..-... |
00009070  c0 69 24 2c 36 29 3d 22  6f 62 74 61 69 6e 22 20  |.i$,6)="obtain" |
00009080  f2 67 65 74 3a e1 0d 2d  96 1d e7 20 c0 69 24 2c  |.get:..-... .i$,|
00009090  37 29 3d 22 70 69 63 6b  20 75 70 22 20 f2 67 65  |7)="pick up" .ge|
000090a0  74 3a e1 0d 2d a0 1c e7  20 c0 69 24 2c 36 29 3d  |t:..-... .i$,6)=|
000090b0  22 70 69 63 6b 75 70 22  20 f2 67 65 74 3a e1 0d  |"pickup" .get:..|
000090c0  2d aa 1a e7 20 c0 69 24  2c 34 29 3d 22 77 65 61  |-... .i$,4)="wea|
000090d0  72 22 20 f2 67 65 74 3a  e1 0d 2d b4 1d e7 20 c0  |r" .get:..-... .|
000090e0  69 24 2c 37 29 3d 22 63  6f 6c 6c 65 63 74 22 20  |i$,7)="collect" |
000090f0  f2 67 65 74 3a e1 0d 2d  be 1b e7 20 c0 69 24 2c  |.get:..-... .i$,|
00009100  34 29 3d 22 67 69 76 65  22 20 f2 67 69 76 65 3a  |4)="give" .give:|
00009110  e1 0d 2d c8 1d e7 20 c0  69 24 2c 36 29 3d 22 64  |..-... .i$,6)="d|
00009120  6f 6e 61 74 65 22 20 f2  67 69 76 65 3a e1 0d 2d  |onate" .give:..-|
00009130  d2 1b e7 20 c0 69 24 2c  34 29 3d 22 64 72 6f 70  |... .i$,4)="drop|
00009140  22 20 f2 64 72 6f 70 3a  e1 0d 2d dc 1f e7 20 c0  |" .drop:..-... .|
00009150  69 24 2c 36 29 3d 22 75  6e 6c 6f 63 6b 22 20 f2  |i$,6)="unlock" .|
00009160  75 6e 6c 6f 63 6b 3a e1  0d 2d e6 1b e7 20 c0 69  |unlock:..-... .i|
00009170  24 2c 34 29 3d 22 6c 6f  63 6b 22 20 f2 6c 6f 63  |$,4)="lock" .loc|
00009180  6b 3a e1 0d 2d f0 19 e7  20 c0 69 24 2c 33 29 3d  |k:..-... .i$,3)=|
00009190  22 65 61 74 22 20 f2 65  61 74 3a e1 0d 2d fa 1b  |"eat" .eat:..-..|
000091a0  e7 20 c0 69 24 2c 35 29  3d 22 73 63 6f 66 66 22  |. .i$,5)="scoff"|
000091b0  20 f2 65 61 74 3a e1 0d  2e 04 1d e7 20 c0 69 24  | .eat:...... .i$|
000091c0  2c 37 29 3d 22 73 77 61  6c 6c 6f 77 22 20 f2 65  |,7)="swallow" .e|
000091d0  61 74 3a e1 0d 2e 0e 1d  e7 20 c0 69 24 2c 37 29  |at:...... .i$,7)|
000091e0  3d 22 63 6f 6e 73 75 6d  65 22 20 f2 65 61 74 3a  |="consume" .eat:|
000091f0  e1 0d 2e 18 1a e7 20 c0  69 24 2c 34 29 3d 22 62  |...... .i$,4)="b|
00009200  69 74 65 22 20 f2 65 61  74 3a e1 0d 2e 22 1b e7  |ite" .eat:..."..|
00009210  20 c0 69 24 2c 35 29 3d  22 74 61 73 74 65 22 20  | .i$,5)="taste" |
00009220  f2 65 61 74 3a e1 0d 2e  2c 1c e7 20 c0 69 24 2c  |.eat:...,.. .i$,|
00009230  36 29 3d 22 6e 69 62 62  6c 65 22 20 f2 65 61 74  |6)="nibble" .eat|
00009240  3a e1 0d 2e 36 1d e7 20  c0 69 24 2c 35 29 3d 22  |:...6.. .i$,5)="|
00009250  64 72 69 6e 6b 22 20 f2  64 72 69 6e 6b 3a e1 0d  |drink" .drink:..|
00009260  2e 40 19 e7 20 c0 69 24  2c 33 29 3d 22 61 73 6b  |.@.. .i$,3)="ask|
00009270  22 20 f2 61 73 6b 3a e1  0d 2e 4a 19 e7 20 c0 69  |" .ask:...J.. .i|
00009280  24 2c 33 29 3d 22 70 75  74 22 20 f2 70 75 74 3a  |$,3)="put" .put:|
00009290  e1 0d 2e 54 19 e7 20 c0  69 24 2c 33 29 3d 22 73  |...T.. .i$,3)="s|
000092a0  61 77 22 20 f2 73 61 77  3a e1 0d 2e 5e 19 e7 20  |aw" .saw:...^.. |
000092b0  c0 69 24 2c 33 29 3d 22  63 75 74 22 20 f2 73 61  |.i$,3)="cut" .sa|
000092c0  77 3a e1 0d 2e 68 1e e7  20 c0 69 24 2c 33 29 3d  |w:...h.. .i$,3)=|
000092d0  22 68 69 74 22 20 f2 76  69 6f 6c 65 6e 63 65 3a  |"hit" .violence:|
000092e0  e1 0d 2e 72 1f e7 20 c0  69 24 2c 34 29 3d 22 6b  |...r.. .i$,4)="k|
000092f0  69 6c 6c 22 20 f2 76 69  6f 6c 65 6e 63 65 3a e1  |ill" .violence:.|
00009300  0d 2e 7c 1f e7 20 c0 69  24 2c 34 29 3d 22 73 74  |..|.. .i$,4)="st|
00009310  61 62 22 20 f2 76 69 6f  6c 65 6e 63 65 3a e1 0d  |ab" .violence:..|
00009320  2e 86 1f e7 20 c0 69 24  2c 34 29 3d 22 6b 69 63  |.... .i$,4)="kic|
00009330  6b 22 20 f2 76 69 6f 6c  65 6e 63 65 3a e1 0d 2e  |k" .violence:...|
00009340  90 20 e7 20 c0 69 24 2c  35 29 3d 22 66 69 67 68  |. . .i$,5)="figh|
00009350  74 22 20 f2 76 69 6f 6c  65 6e 63 65 3a e1 0d 2e  |t" .violence:...|
00009360  9a 20 e7 20 c0 69 24 2c  35 29 3d 22 77 6f 75 6e  |. . .i$,5)="woun|
00009370  64 22 20 f2 76 69 6f 6c  65 6e 63 65 3a e1 0d 2e  |d" .violence:...|
00009380  a4 21 e7 20 c0 69 24 2c  36 29 3d 22 6d 75 72 64  |.!. .i$,6)="murd|
00009390  65 72 22 20 f2 76 69 6f  6c 65 6e 63 65 3a e1 0d  |er" .violence:..|
000093a0  2e ae 20 e7 20 c0 69 24  2c 35 29 3d 22 70 75 6e  |.. . .i$,5)="pun|
000093b0  63 68 22 20 f2 76 69 6f  6c 65 6e 63 65 3a e1 0d  |ch" .violence:..|
000093c0  2e b8 20 e7 20 c0 69 24  2c 35 29 3d 22 74 68 75  |.. . .i$,5)="thu|
000093d0  6d 70 22 20 f2 76 69 6f  6c 65 6e 63 65 3a e1 0d  |mp" .violence:..|
000093e0  2e c2 20 e7 20 c0 69 24  2c 35 29 3d 22 77 68 61  |.. . .i$,5)="wha|
000093f0  63 6b 22 20 f2 76 69 6f  6c 65 6e 63 65 3a e1 0d  |ck" .violence:..|
00009400  2e cc 1f e7 20 c0 69 24  2c 34 29 3d 22 73 6c 61  |.... .i$,4)="sla|
00009410  70 22 20 f2 76 69 6f 6c  65 6e 63 65 3a e1 0d 2e  |p" .violence:...|
00009420  d6 20 e7 20 c0 69 24 2c  35 29 3d 22 73 6d 61 73  |. . .i$,5)="smas|
00009430  68 22 20 f2 76 69 6f 6c  65 6e 63 65 3a e1 0d 2e  |h" .violence:...|
00009440  e0 20 e7 20 c0 69 24 2c  35 29 3d 22 62 72 65 61  |. . .i$,5)="brea|
00009450  6b 22 20 f2 76 69 6f 6c  65 6e 63 65 3a e1 0d 2e  |k" .violence:...|
00009460  ea 19 e7 20 c0 69 24 2c  33 29 3d 22 62 75 79 22  |... .i$,3)="buy"|
00009470  20 f2 62 75 79 3a e1 0d  2e f4 1e e7 20 c0 69 24  | .buy:...... .i$|
00009480  2c 38 29 3d 22 70 75 72  63 68 61 73 65 22 20 f2  |,8)="purchase" .|
00009490  62 75 79 3a e1 0d 2e fe  1b e7 20 c0 69 24 2c 35  |buy:...... .i$,5|
000094a0  29 3d 22 6f 72 64 65 72  22 20 f2 62 75 79 3a e1  |)="order" .buy:.|
000094b0  0d 2f 08 1d e7 20 c0 69  24 2c 35 29 3d 22 73 6d  |./... .i$,5)="sm|
000094c0  65 6c 6c 22 20 f2 73 6d  65 6c 6c 3a e1 0d 2f 12  |ell" .smell:../.|
000094d0  1d e7 20 c0 69 24 2c 35  29 3d 22 73 6e 69 66 66  |.. .i$,5)="sniff|
000094e0  22 20 f2 73 6d 65 6c 6c  3a e1 0d 2f 1c 1f e7 20  |" .smell:../... |
000094f0  c0 69 24 2c 36 29 3d 22  6c 69 73 74 65 6e 22 20  |.i$,6)="listen" |
00009500  f2 6c 69 73 74 65 6e 3a  e1 0d 2f 26 1d e7 20 c0  |.listen:../&.. .|
00009510  69 24 2c 34 29 3d 22 68  65 61 72 22 20 f2 6c 69  |i$,4)="hear" .li|
00009520  73 74 65 6e 3a e1 0d 2f  30 2b e7 20 c0 69 24 2c  |sten:../0+. .i$,|
00009530  34 29 3d 22 6b 69 73 73  22 20 84 20 c0 69 24 2c  |4)="kiss" . .i$,|
00009540  34 29 3d 22 73 6e 6f 67  22 20 f2 6b 69 73 73 3a  |4)="snog" .kiss:|
00009550  e1 0d 2f 3a 1d e7 20 c0  69 24 2c 35 29 3d 22 6d  |../:.. .i$,5)="m|
00009560  6f 75 6c 64 22 20 f2 6d  6f 75 6c 64 3a e1 0d 2f  |ould" .mould:../|
00009570  44 23 e7 20 c0 69 24 2c  31 30 29 3d 22 6d 61 6b  |D#. .i$,10)="mak|
00009580  65 20 6d 6f 75 6c 64 22  20 f2 6d 6f 75 6c 64 3a  |e mould" .mould:|
00009590  e1 0d 2f 4e 25 e7 20 c0  69 24 2c 31 32 29 3d 22  |../N%. .i$,12)="|
000095a0  63 72 65 61 74 65 20 6d  6f 75 6c 64 22 20 f2 6d  |create mould" .m|
000095b0  6f 75 6c 64 3a e1 0d 2f  58 28 e7 20 c0 69 24 2c  |ould:../X(. .i$,|
000095c0  31 35 29 3d 22 6d 61 6b  65 20 69 6d 70 72 65 73  |15)="make impres|
000095d0  73 69 6f 6e 22 20 f2 6d  6f 75 6c 64 3a e1 0d 2f  |sion" .mould:../|
000095e0  62 2a e7 20 c0 69 24 2c  31 37 29 3d 22 63 72 65  |b*. .i$,17)="cre|
000095f0  61 74 65 20 69 6d 70 72  65 73 73 69 6f 6e 22 20  |ate impression" |
00009600  f2 6d 6f 75 6c 64 3a e1  0d 2f 6c 31 e7 20 c0 69  |.mould:../l1. .i|
00009610  24 2c 35 29 3d 22 73 6c  65 65 70 22 20 f2 61 64  |$,5)="sleep" .ad|
00009620  64 28 22 59 6f 75 20 61  72 65 20 6e 6f 74 20 74  |d("You are not t|
00009630  69 72 65 64 2e 22 29 3a  e1 0d 2f 76 47 e7 20 c0  |ired."):../vG. .|
00009640  69 24 2c 35 29 3d 22 73  63 6f 72 65 22 20 f2 61  |i$,5)="score" .a|
00009650  64 64 28 22 54 68 65 72  65 20 69 73 20 6e 6f 20  |dd("There is no |
00009660  73 63 6f 72 65 2c 20 6a  75 73 74 20 66 69 6e 69  |score, just fini|
00009670  73 68 20 74 68 65 20 67  61 6d 65 21 22 29 3a e1  |sh the game!"):.|
00009680  0d 2f 80 4b e7 20 c0 69  24 2c 34 29 3d 22 77 61  |./.K. .i$,4)="wa|
00009690  69 74 22 20 80 20 7a 6f  6e 65 25 3d 32 20 f2 61  |it" . zone%=2 .a|
000096a0  64 64 28 22 59 6f 75 20  77 61 69 74 20 66 6f 72  |dd("You wait for|
000096b0  20 61 20 66 65 77 20 73  65 63 6f 6e 64 73 2e 22  | a few seconds."|
000096c0  29 3a f2 70 6f 6c 69 63  65 3a e1 0d 2f 8a 4f e7  |):.police:../.O.|
000096d0  20 c0 69 24 2c 34 29 3d  22 77 61 69 74 22 20 80  | .i$,4)="wait" .|
000096e0  20 7a 6f 6e 65 25 3d 33  20 f2 61 64 64 28 22 59  | zone%=3 .add("Y|
000096f0  6f 75 20 77 61 69 74 20  66 6f 72 20 61 20 66 65  |ou wait for a fe|
00009700  77 20 73 65 63 6f 6e 64  73 2e 22 29 3a f2 70 6f  |w seconds."):.po|
00009710  6c 69 63 65 6d 61 7a 65  3a e1 0d 2f 94 43 e7 20  |licemaze:../.C. |
00009720  c0 69 24 2c 34 29 3d 22  77 61 69 74 22 20 80 20  |.i$,4)="wait" . |
00009730  7a 6f 6e 65 25 3d 31 20  f2 61 64 64 28 22 59 6f  |zone%=1 .add("Yo|
00009740  75 20 77 61 69 74 20 66  6f 72 20 61 20 66 65 77  |u wait for a few|
00009750  20 73 65 63 6f 6e 64 73  2e 22 29 3a e1 0d 2f 9e  | seconds."):../.|
00009760  19 e7 20 c0 69 24 2c 33  29 3d 22 64 69 67 22 20  |.. .i$,3)="dig" |
00009770  f2 64 69 67 3a e1 0d 2f  a8 50 e7 20 c0 69 24 2c  |.dig:../.P. .i$,|
00009780  36 29 3d 22 73 65 61 72  63 68 22 20 f2 61 64 64  |6)="search" .add|
00009790  28 22 59 6f 75 20 66 69  6e 64 20 6e 6f 74 68 69  |("You find nothi|
000097a0  6e 67 20 74 68 61 74 20  79 6f 75 20 68 61 76 65  |ng that you have|
000097b0  20 6e 6f 74 20 61 6c 72  65 61 64 79 20 73 65 65  | not already see|
000097c0  6e 2e 22 29 3a e1 0d 2f  b2 18 e7 20 a7 69 24 2c  |n."):../... .i$,|
000097d0  22 6e 6f 20 22 29 3e 30  20 f2 6e 6f 3a e1 0d 2f  |"no ")>0 .no:../|
000097e0  bc 21 e7 20 a7 69 24 2c  22 6e 6f 22 29 3e 30 20  |.!. .i$,"no")>0 |
000097f0  80 20 a9 28 69 24 29 3d  32 20 f2 6e 6f 3a e1 0d  |. .(i$)=2 .no:..|
00009800  2f c6 1a e7 20 a7 69 24  2c 22 79 65 73 20 22 29  |/... .i$,"yes ")|
00009810  3e 30 20 f2 79 65 73 3a  e1 0d 2f d0 23 e7 20 a7  |>0 .yes:../.#. .|
00009820  69 24 2c 22 79 65 73 22  29 3e 30 20 80 20 a9 28  |i$,"yes")>0 . .(|
00009830  69 24 29 3d 33 20 f2 79  65 73 3a e1 0d 2f da 18  |i$)=3 .yes:../..|
00009840  e7 20 a7 69 24 2c 22 6f  6b 22 29 3e 30 20 f2 79  |. .i$,"ok")>0 .y|
00009850  65 73 3a e1 0d 2f e4 1e  e7 20 a7 69 24 2c 22 6f  |es:../... .i$,"o|
00009860  75 69 22 29 3e 30 20 f2  6c 69 6e 67 75 69 73 74  |ui")>0 .linguist|
00009870  3a e1 0d 2f ee 1e e7 20  a7 69 24 2c 22 6e 6f 6e  |:../... .i$,"non|
00009880  22 29 3e 30 20 f2 6c 69  6e 67 75 69 73 74 3a e1  |")>0 .linguist:.|
00009890  0d 2f f8 1f e7 20 a7 69  24 2c 22 6e 65 69 6e 22  |./... .i$,"nein"|
000098a0  29 3e 30 20 f2 6c 69 6e  67 75 69 73 74 3a e1 0d  |)>0 .linguist:..|
000098b0  30 02 1d e7 20 a7 69 24  2c 22 6a 61 22 29 3e 30  |0... .i$,"ja")>0|
000098c0  20 f2 6c 69 6e 67 75 69  73 74 3a e1 0d 30 0c 1f  | .linguist:..0..|
000098d0  e7 20 a7 69 24 2c 22 62  6f 6e 6a 6f 75 72 22 29  |. .i$,"bonjour")|
000098e0  3e 30 20 f2 68 6c 69 6e  67 3a e1 0d 30 16 21 e7  |>0 .hling:..0.!.|
000098f0  20 a7 69 24 2c 22 67 75  74 65 6e 20 74 61 67 22  | .i$,"guten tag"|
00009900  29 3e 30 20 f2 68 6c 69  6e 67 3a e1 0d 30 20 21  |)>0 .hling:..0 !|
00009910  e7 20 a7 69 24 2c 22 61  75 20 72 65 76 6f 69 72  |. .i$,"au revoir|
00009920  22 29 3e 30 20 f2 67 6c  69 6e 67 3a e1 0d 30 2a  |")>0 .gling:..0*|
00009930  20 e7 20 a7 69 24 2c 22  74 68 61 6e 6b 79 6f 75  | . .i$,"thankyou|
00009940  22 29 3e 30 20 f2 74 68  61 6e 6b 3a e1 0d 30 34  |")>0 .thank:..04|
00009950  21 e7 20 a7 69 24 2c 22  74 68 61 6e 6b 20 79 6f  |!. .i$,"thank yo|
00009960  75 22 29 3e 30 20 f2 74  68 61 6e 6b 3a e1 0d 30  |u")>0 .thank:..0|
00009970  3e 19 e7 20 a7 69 24 2c  22 62 79 65 22 29 3e 30  |>.. .i$,"bye")>0|
00009980  20 f2 62 79 65 3a e1 0d  30 48 1d e7 20 a7 69 24  | .bye:..0H.. .i$|
00009990  2c 22 68 65 6c 6c 6f 22  29 3e 30 20 f2 68 65 6c  |,"hello")>0 .hel|
000099a0  6c 6f 3a e1 0d 30 52 20  e7 20 a7 69 24 2c 22 67  |lo:..0R . .i$,"g|
000099b0  6f 6f 64 20 64 61 79 22  29 3e 30 20 f2 68 65 6c  |ood day")>0 .hel|
000099c0  6c 6f 3a e1 0d 30 5c 21  e7 20 a7 69 24 2c 22 67  |lo:..0\!. .i$,"g|
000099d0  72 65 65 74 69 6e 67 73  22 29 3e 30 20 f2 68 65  |reetings")>0 .he|
000099e0  6c 6c 6f 3a e1 0d 30 66  1e e7 20 a7 69 24 2c 22  |llo:..0f.. .i$,"|
000099f0  67 6f 6f 64 61 79 22 29  3e 30 20 f2 68 65 6c 6c  |gooday")>0 .hell|
00009a00  6f 3a e1 0d 30 70 1b e7  20 a7 69 24 2c 22 68 69  |o:..0p.. .i$,"hi|
00009a10  20 22 29 3e 30 20 f2 68  65 6c 6c 6f 3a e1 0d 30  | ")>0 .hello:..0|
00009a20  7a 16 e7 20 69 24 3d 22  68 69 22 20 f2 68 65 6c  |z.. i$="hi" .hel|
00009a30  6c 6f 3a e1 0d 30 84 1b  e7 20 a7 69 24 2c 22 79  |lo:..0... .i$,"y|
00009a40  6f 20 22 29 3e 30 20 f2  68 65 6c 6c 6f 3a e1 0d  |o ")>0 .hello:..|
00009a50  30 8e 1f e7 20 c0 69 24  2c 38 29 3d 22 70 72 6f  |0... .i$,8)="pro|
00009a60  62 61 62 6c 79 22 20 f2  70 72 6f 62 3a e1 0d 30  |bably" .prob:..0|
00009a70  98 1c e7 20 c0 69 24 2c  35 29 3d 22 6d 61 79 62  |... .i$,5)="mayb|
00009a80  65 22 20 f2 70 72 6f 62  3a e1 0d 30 a2 43 e7 20  |e" .prob:..0.C. |
00009a90  a7 69 24 2c 22 61 72 63  68 69 6d 65 64 65 73 22  |.i$,"archimedes"|
00009aa0  29 3e 30 20 f2 61 64 64  28 22 41 72 63 68 69 6d  |)>0 .add("Archim|
00009ab0  65 64 65 73 20 2d 20 71  75 61 6c 69 74 79 20 63  |edes - quality c|
00009ac0  6f 6d 70 75 74 65 72 73  2e 22 29 3a e1 0d 30 ac  |omputers."):..0.|
00009ad0  44 e7 20 a7 69 24 2c 22  61 63 6f 72 6e 22 29 3e  |D. .i$,"acorn")>|
00009ae0  30 20 f2 61 64 64 28 22  41 63 6f 72 6e 20 2d 20  |0 .add("Acorn - |
00009af0  62 65 73 74 20 63 6f 6d  70 75 74 65 72 20 63 6f  |best computer co|
00009b00  6d 70 61 6e 79 20 61 72  6f 75 6e 64 2e 22 29 3a  |mpany around."):|
00009b10  e1 0d 30 b6 36 e7 20 a7  69 24 2c 22 6f 78 66 6f  |..0.6. .i$,"oxfo|
00009b20  72 64 22 29 3e 30 20 f2  61 64 64 28 22 4f 78 66  |rd")>0 .add("Oxf|
00009b30  6f 72 64 20 2d 20 61 20  67 72 65 61 74 20 63 69  |ord - a great ci|
00009b40  74 79 2e 22 29 3a e1 0d  30 c0 45 e7 20 a7 69 24  |ty."):..0.E. .i$|
00009b50  2c 22 6c 6f 6e 64 6f 6e  22 29 3e 30 20 f2 61 64  |,"london")>0 .ad|
00009b60  64 28 22 57 68 79 20 64  6f 20 79 6f 75 20 74 61  |d("Why do you ta|
00009b70  6c 6b 20 6f 66 20 6f 75  72 20 67 72 65 61 74 20  |lk of our great |
00009b80  63 61 70 69 74 61 6c 3f  22 29 3a e1 0d 30 ca 45  |capital?"):..0.E|
00009b90  e7 20 a7 69 24 2c 22 62  69 72 6d 69 6e 67 68 61  |. .i$,"birmingha|
00009ba0  6d 22 29 3e 30 20 f2 61  64 64 28 22 48 6d 6d 2c  |m")>0 .add("Hmm,|
00009bb0  20 42 69 72 6d 69 6e 67  68 61 6d 27 73 20 61 20  | Birmingham's a |
00009bc0  6c 6f 76 65 6c 79 20 70  6c 61 63 65 2e 22 29 3a  |lovely place."):|
00009bd0  e1 0d 30 d4 1c e7 20 a7  69 24 2c 22 61 6d 69 67  |..0... .i$,"amig|
00009be0  61 22 29 3e 30 20 f2 73  69 63 6b 3a e1 0d 30 de  |a")>0 .sick:..0.|
00009bf0  1b e7 20 a7 69 24 2c 22  73 65 67 61 22 29 3e 30  |.. .i$,"sega")>0|
00009c00  20 f2 73 69 63 6b 3a e1  0d 30 e8 1f e7 20 a7 69  | .sick:..0... .i|
00009c10  24 2c 22 6e 69 6e 74 65  6e 64 6f 22 29 3e 30 20  |$,"nintendo")>0 |
00009c20  f2 73 69 63 6b 3a e1 0d  30 f2 1c e7 20 a7 69 24  |.sick:..0... .i$|
00009c30  2c 22 61 74 61 72 69 22  29 3e 30 20 f2 73 69 63  |,"atari")>0 .sic|
00009c40  6b 3a e1 0d 30 fc 1a e7  20 a7 69 24 2c 22 69 62  |k:..0... .i$,"ib|
00009c50  6d 22 29 3e 30 20 f2 73  69 63 6b 3a e1 0d 31 06  |m")>0 .sick:..1.|
00009c60  20 e7 20 a7 69 24 2c 22  6d 61 63 69 6e 74 6f 73  | . .i$,"macintos|
00009c70  68 22 29 3e 30 20 f2 73  69 63 6b 3a e1 0d 31 10  |h")>0 .sick:..1.|
00009c80  42 e7 20 a7 69 24 2c 22  63 68 72 69 73 22 29 3e  |B. .i$,"chris")>|
00009c90  30 20 80 20 a7 69 24 2c  22 61 6c 6c 65 6e 22 29  |0 . .i$,"allen")|
00009ca0  3e 30 20 f2 61 64 64 28  22 47 72 65 65 74 69 6e  |>0 .add("Greetin|
00009cb0  67 73 2c 20 61 75 74 68  6f 72 2e 22 29 3a e1 0d  |gs, author."):..|
00009cc0  31 1a 44 e7 20 a7 69 24  2c 22 63 6c 61 69 72 65  |1.D. .i$,"claire|
00009cd0  22 29 3e 30 20 80 20 a7  69 24 2c 22 61 6c 6c 65  |")>0 . .i$,"alle|
00009ce0  6e 22 29 3e 30 20 f2 61  64 64 28 22 48 69 2c 20  |n")>0 .add("Hi, |
00009cf0  69 74 27 73 20 6d 79 20  73 69 73 74 65 72 21 22  |it's my sister!"|
00009d00  29 3a e1 0d 31 24 4d e7  20 a7 69 24 2c 22 70 61  |):..1$M. .i$,"pa|
00009d10  75 6c 22 29 3e 30 20 80  20 a7 69 24 2c 22 61 6c  |ul")>0 . .i$,"al|
00009d20  6c 65 6e 22 29 3e 30 20  f2 61 64 64 28 22 53 6f  |len")>0 .add("So|
00009d30  20 79 6f 75 20 6b 6e 6f  77 20 6d 79 20 62 72 6f  | you know my bro|
00009d40  74 68 65 72 20 64 6f 20  79 6f 75 3f 22 29 3a e1  |ther do you?"):.|
00009d50  0d 31 2e 3a e7 20 a7 69  24 2c 22 62 6c 61 69 72  |.1.:. .i$,"blair|
00009d60  22 29 3e 30 20 f2 61 64  64 28 22 53 68 75 74 2d  |")>0 .add("Shut-|
00009d70  75 70 20 61 6e 64 20 67  6f 20 61 77 61 79 2c 20  |up and go away, |
00009d80  42 6c 61 69 72 21 22 29  3a e1 0d 31 38 20 e7 20  |Blair!"):..18 . |
00009d90  a7 69 24 2c 22 69 20 6c  6f 76 65 20 79 6f 75 22  |.i$,"i love you"|
00009da0  29 3e 30 20 f2 6c 75 76  3a e1 0d 31 42 1f e7 20  |)>0 .luv:..1B.. |
00009db0  a7 69 24 2c 22 69 20 6c  75 76 20 79 6f 75 22 29  |.i$,"i luv you")|
00009dc0  3e 30 20 f2 6c 75 76 3a  e1 0d 31 4c 2d e7 20 a7  |>0 .luv:..1L-. .|
00009dd0  69 24 2c 22 79 6f 75 20  6c 6f 76 65 22 29 3e 30  |i$,"you love")>0|
00009de0  20 6c 6f 76 65 24 3d 22  6c 6f 76 65 22 3a f2 49  | love$="love":.I|
00009df0  6c 6f 76 65 3a e1 0d 31  56 2b e7 20 a7 69 24 2c  |love:..1V+. .i$,|
00009e00  22 79 6f 75 20 6c 75 76  22 29 3e 30 20 6c 6f 76  |"you luv")>0 lov|
00009e10  65 24 3d 22 6c 75 76 22  3a f2 49 6c 6f 76 65 3a  |e$="luv":.Ilove:|
00009e20  e1 0d 31 60 2d e7 20 a7  69 24 2c 22 69 20 6c 6f  |..1`-. .i$,"i lo|
00009e30  76 65 22 29 3e 30 20 6c  6f 76 65 24 3d 22 6c 6f  |ve")>0 love$="lo|
00009e40  76 65 22 3a f2 59 6f 75  6c 6f 76 65 3a e1 0d 31  |ve":.Youlove:..1|
00009e50  6a 2b e7 20 a7 69 24 2c  22 69 20 6c 75 76 22 29  |j+. .i$,"i luv")|
00009e60  3e 30 20 6c 6f 76 65 24  3d 22 6c 75 76 22 3a f2  |>0 love$="luv":.|
00009e70  59 6f 75 6c 6f 76 65 3a  e1 0d 31 74 1a e7 20 a7  |Youlove:..1t.. .|
00009e80  69 24 2c 22 6c 75 76 22  29 3e 30 20 f2 6c 6f 76  |i$,"luv")>0 .lov|
00009e90  65 3a e1 0d 31 7e 1b e7  20 a7 69 24 2c 22 68 65  |e:..1~.. .i$,"he|
00009ea0  6c 70 22 29 3e 30 20 f2  68 65 6c 70 3a e1 0d 31  |lp")>0 .help:..1|
00009eb0  88 22 e7 20 c0 69 24 2c  38 29 3d 22 62 65 63 61  |.". .i$,8)="beca|
00009ec0  75 73 65 20 22 3a f2 62  65 63 61 75 73 65 3a e1  |use ":.because:.|
00009ed0  0d 31 92 1b e7 20 69 24  3d 22 70 6c 65 61 73 65  |.1... i$="please|
00009ee0  22 3a f2 70 6c 65 61 73  65 3a e1 0d 31 9c 34 e7  |":.please:..1.4.|
00009ef0  20 69 24 3d 22 70 72 65  74 74 79 20 70 6c 65 61  | i$="pretty plea|
00009f00  73 65 20 77 69 74 68 20  73 75 67 61 72 20 6f 6e  |se with sugar on|
00009f10  20 74 6f 70 22 3a f2 73  75 63 6b 65 72 3a e1 0d  | top":.sucker:..|
00009f20  31 a6 1d e7 20 c0 69 24  2c 36 29 3d 22 69 74 20  |1... .i$,6)="it |
00009f30  69 73 20 22 3a f2 69 74  69 73 3a e1 0d 31 b0 1a  |is ":.itis:..1..|
00009f40  e7 20 c0 69 24 2c 34 29  3d 22 69 74 73 20 22 3a  |. .i$,4)="its ":|
00009f50  f2 69 74 73 3a e1 0d 31  ba 1f e7 20 c0 69 24 2c  |.its:..1... .i$,|
00009f60  37 29 3d 22 69 74 20 77  61 73 20 22 3a f2 69 74  |7)="it was ":.it|
00009f70  77 61 73 3a e1 0d 31 c4  1b e7 20 c0 69 24 2c 35  |was:..1... .i$,5|
00009f80  29 3d 22 69 20 61 6d 20  22 3a f2 69 61 6d 3a e1  |)="i am ":.iam:.|
00009f90  0d 31 ce 18 e7 20 c0 69  24 2c 33 29 3d 22 69 6d  |.1... .i$,3)="im|
00009fa0  20 22 3a f2 69 6d 3a e1  0d 31 d8 1b e7 20 a7 69  | ":.im:..1... .i|
00009fb0  24 2c 22 6c 6f 76 65 22  29 3e 30 20 f2 6c 6f 76  |$,"love")>0 .lov|
00009fc0  65 3a e1 0d 31 e2 1f e7  20 a7 69 24 2c 65 63 24  |e:..1... .i$,ec$|
00009fd0  28 31 34 29 29 3e 30 20  f2 6e 61 75 67 68 74 79  |(14))>0 .naughty|
00009fe0  3a e1 0d 31 ec 1d e7 20  c0 69 24 2c 35 29 3d 22  |:..1... .i$,5)="|
00009ff0  73 6f 72 72 79 22 3a f2  73 6f 72 72 79 3a e1 0d  |sorry":.sorry:..|
0000a000  31 f6 2d e7 20 c0 69 24  2c 34 29 3d 22 62 65 65  |1.-. .i$,4)="bee|
0000a010  70 22 3a f1 20 bd 28 37  29 3a f2 61 64 64 28 22  |p":. .(7):.add("|
0000a020  42 20 45 20 45 20 50 2e  22 29 3a e1 0d 32 00 51  |B E E P."):..2.Q|
0000a030  e7 20 69 24 3d 22 72 65  73 74 61 72 74 22 20 f2  |. i$="restart" .|
0000a040  77 61 72 6e 69 6e 67 28  33 2c 22 22 2c 22 52 65  |warning(3,"","Re|
0000a050  73 74 61 72 74 69 6e 67  20 77 69 6c 6c 20 6c 6f  |starting will lo|
0000a060  73 65 22 2c 22 74 68 65  20 63 75 72 72 65 6e 74  |se","the current|
0000a070  20 67 61 6d 65 2e 22 2c  22 22 29 3a e1 0d 32 0a  | game.",""):..2.|
0000a080  9b e7 20 c0 69 24 2c 33  29 3d 22 6d 61 70 22 20  |.. .i$,3)="map" |
0000a090  f2 61 64 64 28 22 59 6f  75 72 20 70 6f 73 69 74  |.add("Your posit|
0000a0a0  69 6f 6e 20 69 73 20 6d  61 72 6b 65 64 20 62 79  |ion is marked by|
0000a0b0  20 74 68 65 20 72 65 64  20 73 70 6f 74 2e 22 29  | the red spot.")|
0000a0c0  3a 77 69 6d 70 25 21 30  3d 6d 61 70 68 61 6e 25  |:wimp%!0=maphan%|
0000a0d0  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
0000a0e0  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 3a  |owState",,wimp%:|
0000a0f0  77 69 6d 70 25 21 32 38  3d 2d 31 3a c8 99 22 57  |wimp%!28=-1:.."W|
0000a100  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
0000a110  2c 77 69 6d 70 25 3a e1  0d 32 14 18 e7 20 c0 69  |,wimp%:..2... .i|
0000a120  24 2c 37 29 3d 22 70 69  63 74 75 72 65 22 20 8c  |$,7)="picture" .|
0000a130  0d 32 1e 2b c8 99 20 22  58 4f 53 5f 52 65 61 64  |.2.+.. "XOS_Read|
0000a140  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c eb 2c  |ModeVariable",.,|
0000a150  33 20 b8 20 2c 2c 63 6f  6c 73 25 0d 32 28 23 e7  |3 . ,,cols%.2(#.|
0000a160  20 63 6f 6c 73 25 3c 3e  31 35 20 80 20 70 69 63  | cols%<>15 . pic|
0000a170  79 6e 25 3d 31 20 70 69  63 79 6e 25 3d 32 0d 32  |yn%=1 picyn%=2.2|
0000a180  32 22 e7 20 63 6f 6c 73  25 3d 31 35 20 80 20 70  |2". cols%=15 . p|
0000a190  69 63 79 6e 25 3d 32 20  70 69 63 79 6e 25 3d 31  |icyn%=2 picyn%=1|
0000a1a0  0d 32 3c e2 e7 20 70 69  63 79 6e 25 3d 30 20 f2  |.2<.. picyn%=0 .|
0000a1b0  61 64 64 28 22 54 68 65  20 70 69 63 74 75 72 65  |add("The picture|
0000a1c0  73 20 68 61 76 65 20 6e  6f 74 20 62 65 65 6e 20  |s have not been |
0000a1d0  6c 6f 61 64 65 64 2e 22  29 20 8b 20 e7 20 70 69  |loaded.") . . pi|
0000a1e0  63 79 6e 25 3d 32 20 f2  61 64 64 28 22 59 6f 75  |cyn%=2 .add("You|
0000a1f0  20 61 72 65 20 6e 6f 74  20 69 6e 20 61 20 31 36  | are not in a 16|
0000a200  2d 63 6f 6c 6f 75 72 20  6d 6f 64 65 2e 22 29 20  |-colour mode.") |
0000a210  8b 20 f2 61 64 64 28 22  54 68 65 20 70 69 63 74  |. .add("The pict|
0000a220  75 72 65 73 2e 2e 2e 22  29 3a 77 69 6d 70 25 21  |ures..."):wimp%!|
0000a230  30 3d 70 69 63 63 69 65  68 61 6e 25 3a c8 99 22  |0=picciehan%:.."|
0000a240  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
0000a250  61 74 65 22 2c 2c 77 69  6d 70 25 3a 77 69 6d 70  |ate",,wimp%:wimp|
0000a260  25 21 32 38 3d 2d 31 3a  c8 99 22 57 69 6d 70 5f  |%!28=-1:.."Wimp_|
0000a270  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |OpenWindow",,wim|
0000a280  70 25 0d 32 46 05 e1 0d  32 50 05 cd 0d 32 5a 3a  |p%.2F...2P...2Z:|
0000a290  e7 20 c0 69 24 2c 34 29  3d 22 69 6e 66 6f 22 20  |. .i$,4)="info" |
0000a2a0  f2 61 64 64 28 22 47 6f  72 6d 20 76 31 2e 34 30  |.add("Gorm v1.40|
0000a2b0  20 20 20 42 79 20 43 68  72 69 73 20 41 6c 6c 65  |   By Chris Alle|
0000a2c0  6e 2e 22 29 3a e1 0d 32  64 30 e7 20 69 24 3d 22  |n."):..2d0. i$="|
0000a2d0  71 75 69 74 22 20 f2 61  64 64 28 22 57 68 61 74  |quit" .add("What|
0000a2e0  27 73 20 74 68 65 20 6d  61 67 69 63 20 77 6f 72  |'s the magic wor|
0000a2f0  64 3f 22 29 3a e1 0d 32  6e 46 e7 20 69 24 3d 22  |d?"):..2nF. i$="|
0000a300  71 75 69 74 20 70 6c 65  61 73 65 22 20 f2 61 64  |quit please" .ad|
0000a310  64 28 22 42 79 65 20 74  68 65 6e 2e 22 29 3a 61  |d("Bye then."):a|
0000a320  24 3d bf 28 31 30 30 29  3a c8 99 20 26 34 30 30  |$=.(100):.. &400|
0000a330  44 44 2c 61 70 70 68 61  6e 25 3a e1 0d 32 78 49  |DD,apphan%:..2xI|
0000a340  e7 20 69 24 3d 22 74 69  6d 65 22 20 f2 61 64 64  |. i$="time" .add|
0000a350  28 22 59 6f 75 20 67 6c  61 6e 63 65 20 61 74 20  |("You glance at |
0000a360  79 6f 75 72 20 65 78 70  65 6e 73 69 76 65 20 64  |your expensive d|
0000a370  69 67 69 74 61 6c 20 77  61 74 63 68 3b 20 22 2b  |igital watch; "+|
0000a380  91 24 29 3a e1 0d 32 82  3e e7 20 69 24 3d 22 62  |.$):..2.>. i$="b|
0000a390  61 73 69 63 22 20 f2 61  64 64 28 22 54 72 79 20  |asic" .add("Try |
0000a3a0  66 31 32 20 61 6e 64 20  74 68 65 6e 20 74 79 70  |f12 and then typ|
0000a3b0  69 6e 67 20 69 6e 20 27  42 61 73 69 63 27 2e 22  |ing in 'Basic'."|
0000a3c0  29 3a e1 0d 32 8c 86 e7  20 69 24 3d 22 6c 6f 61  |):..2... i$="loa|
0000a3d0  64 22 20 84 20 69 24 3d  22 73 61 76 65 22 20 84  |d" . i$="save" .|
0000a3e0  20 69 24 3d 22 61 70 70  65 6e 64 22 20 84 20 69  | i$="append" . i|
0000a3f0  24 3d 22 64 65 6c 65 74  65 22 20 84 20 69 24 3d  |$="delete" . i$=|
0000a400  22 77 69 70 65 22 20 f2  61 64 64 28 22 49 27 6c  |"wipe" .add("I'l|
0000a410  6c 20 6c 65 61 76 65 20  74 68 61 74 20 72 65 70  |l leave that rep|
0000a420  65 74 61 74 69 76 65 20  74 61 73 6b 20 74 6f 20  |etative task to |
0000a430  74 68 65 20 6f 70 65 72  61 74 69 6e 67 20 73 79  |the operating sy|
0000a440  73 74 65 6d 2e 22 29 3a  e1 0d 32 96 41 e7 20 69  |stem."):..2.A. i|
0000a450  24 3d 22 77 68 79 22 20  f2 61 64 64 28 22 49 27  |$="why" .add("I'|
0000a460  6d 20 73 75 70 70 6f 73  65 64 20 74 6f 20 62 65  |m supposed to be|
0000a470  20 61 73 6b 69 6e 67 20  74 68 65 20 71 75 65 73  | asking the ques|
0000a480  74 69 6f 6e 73 2e 22 29  3a e1 0d 32 a0 1e e7 20  |tions."):..2... |
0000a490  c0 69 24 2c 32 29 3d 22  6e 65 22 20 f2 6e 6f 72  |.i$,2)="ne" .nor|
0000a4a0  74 68 65 61 73 74 3a e1  0d 32 aa 1e e7 20 c0 69  |theast:..2... .i|
0000a4b0  24 2c 32 29 3d 22 73 65  22 20 f2 73 6f 75 74 68  |$,2)="se" .south|
0000a4c0  65 61 73 74 3a e1 0d 32  b4 1e e7 20 c0 69 24 2c  |east:..2... .i$,|
0000a4d0  32 29 3d 22 73 77 22 20  f2 73 6f 75 74 68 77 65  |2)="sw" .southwe|
0000a4e0  73 74 3a e1 0d 32 be 1e  e7 20 c0 69 24 2c 32 29  |st:..2... .i$,2)|
0000a4f0  3d 22 6e 77 22 20 f2 6e  6f 72 74 68 77 65 73 74  |="nw" .northwest|
0000a500  3a e1 0d 32 c8 41 e7 20  c0 69 24 2c 33 29 3d 22  |:..2.A. .i$,3)="|
0000a510  64 69 65 22 20 f2 61 64  64 28 22 59 6f 75 20 68  |die" .add("You h|
0000a520  61 76 65 20 6e 6f 20 64  65 73 69 72 65 20 74 6f  |ave no desire to|
0000a530  20 6b 69 6c 6c 20 79 6f  75 72 73 65 6c 66 2e 22  | kill yourself."|
0000a540  29 3a e1 0d 32 d2 17 e7  20 a9 28 69 24 29 3d 31  |):..2... .(i$)=1|
0000a550  20 f2 73 69 6e 67 6c 65  3a e1 0d 32 dc 0f f2 6c  | .single:..2...l|
0000a560  61 73 74 72 65 73 6f 72  74 0d 32 e6 05 e1 0d 32  |astresort.2....2|
0000a570  f0 04 0d 32 fa 0a dd f2  6c 6f 6f 6b 0d 33 04 32  |...2....look.3.2|
0000a580  e7 20 69 24 3c 3e 22 6c  6f 6f 6b 22 20 80 20 69  |. i$<>"look" . i|
0000a590  24 3c 3e 22 6c 6f 6f 6b  20 22 20 f2 6d 75 63 68  |$<>"look " .much|
0000a5a0  6d 6f 72 65 73 70 65 63  69 66 69 63 3a e1 0d 33  |morespecific:..3|
0000a5b0  0e 0d e3 20 65 3d 31 20  b8 20 39 0d 33 18 33 e7  |... e=1 . 9.3.3.|
0000a5c0  20 72 6f 6f 6d 73 24 28  72 6f 6f 6d 6e 6f 25 2c  | rooms$(roomno%,|
0000a5d0  65 29 3c 3e 22 22 20 f2  61 64 64 28 72 6f 6f 6d  |e)<>"" .add(room|
0000a5e0  73 24 28 72 6f 6f 6d 6e  6f 25 2c 65 29 29 0d 33  |s$(roomno%,e)).3|
0000a5f0  22 07 ed 20 65 0d 33 2c  0a f2 65 78 69 74 73 0d  |".. e.3,..exits.|
0000a600  33 36 0b 66 6c 61 67 25  3d 30 0d 33 40 0e e3 20  |36.flag%=0.3@.. |
0000a610  65 3d 31 20 b8 20 31 30  0d 33 4a 26 e7 20 6f 62  |e=1 . 10.3J&. ob|
0000a620  6a 65 63 74 73 24 28 72  6f 6f 6d 6e 6f 25 2c 65  |jects$(roomno%,e|
0000a630  29 3c 3e 22 22 20 66 6c  61 67 25 2b 3d 31 0d 33  |)<>"" flag%+=1.3|
0000a640  54 07 ed 20 65 0d 33 5e  0f e7 20 66 6c 61 67 25  |T.. e.3^.. flag%|
0000a650  3e 30 20 8c 0d 33 68 10  20 20 66 6c 61 67 74 77  |>0 ..3h.  flagtw|
0000a660  6f 25 3d 30 0d 33 72 1d  20 20 74 24 3d 22 59 6f  |o%=0.3r.  t$="Yo|
0000a670  75 20 63 61 6e 20 61 6c  73 6f 20 73 65 65 3b 20  |u can also see; |
0000a680  22 0d 33 7c 11 20 20 e7  20 66 6c 61 67 25 3d 31  |".3|.  . flag%=1|
0000a690  20 8c 0d 33 86 12 20 20  20 20 66 6c 61 67 74 77  | ..3..    flagtw|
0000a6a0  6f 25 3d 31 0d 33 90 12  20 20 20 20 e3 20 6c 3d  |o%=1.3..    . l=|
0000a6b0  31 20 b8 20 31 30 0d 33  9a 5a 20 20 20 20 e7 20  |1 . 10.3.Z    . |
0000a6c0  6f 62 6a 65 63 74 73 24  28 72 6f 6f 6d 6e 6f 25  |objects$(roomno%|
0000a6d0  2c 6c 29 3c 3e 22 22 20  74 24 2b 3d a4 66 69 72  |,l)<>"" t$+=.fir|
0000a6e0  73 74 6c 28 6f 62 6a 65  63 74 73 24 28 72 6f 6f  |stl(objects$(roo|
0000a6f0  6d 6e 6f 25 2c 6c 29 29  2b 6f 62 6a 65 63 74 73  |mno%,l))+objects|
0000a700  24 28 72 6f 6f 6d 6e 6f  25 2c 6c 29 2b 22 2e 22  |$(roomno%,l)+"."|
0000a710  0d 33 a4 0b 20 20 20 20  ed 20 6c 0d 33 ae 07 20  |.3..    . l.3.. |
0000a720  20 cd 0d 33 b8 0d 20 20  65 3d 30 3a 6c 3d 30 0d  | ..3..  e=0:l=0.|
0000a730  33 c2 14 20 20 e7 20 66  6c 61 67 74 77 6f 25 3d  |3..  . flagtwo%=|
0000a740  30 20 8c 0d 33 cc 09 20  20 20 20 f5 0d 33 d6 0c  |0 ..3..    ..3..|
0000a750  20 20 20 20 6c 2b 3d 31  0d 33 e0 5f 20 20 20 e7  |    l+=1.3._   .|
0000a760  20 6f 62 6a 65 63 74 73  24 28 72 6f 6f 6d 6e 6f  | objects$(roomno|
0000a770  25 2c 6c 29 3c 3e 22 22  20 65 2b 3d 31 3a 74 24  |%,l)<>"" e+=1:t$|
0000a780  2b 3d a4 66 69 72 73 74  6c 28 6f 62 6a 65 63 74  |+=.firstl(object|
0000a790  73 24 28 72 6f 6f 6d 6e  6f 25 2c 6c 29 29 2b 6f  |s$(roomno%,l))+o|
0000a7a0  62 6a 65 63 74 73 24 28  72 6f 6f 6d 6e 6f 25 2c  |bjects$(roomno%,|
0000a7b0  6c 29 2b 22 2c 20 22 0d  33 ea 14 20 20 20 20 fd  |l)+", ".3..    .|
0000a7c0  20 65 3e 3d 66 6c 61 67  25 2d 31 0d 33 f4 14 20  | e>=flag%-1.3.. |
0000a7d0  20 20 20 e3 20 6c 3d 6c  2b 31 20 b8 20 31 30 0d  |   . l=l+1 . 10.|
0000a7e0  33 fe 70 20 20 20 20 e7  20 6f 62 6a 65 63 74 73  |3.p    . objects|
0000a7f0  24 28 72 6f 6f 6d 6e 6f  25 2c 6c 29 3c 3e 22 22  |$(roomno%,l)<>""|
0000a800  20 74 24 3d c1 74 24 2c  31 2c a9 28 74 24 29 2d  | t$=.t$,1,.(t$)-|
0000a810  32 29 2b 22 20 61 6e 64  20 22 2b a4 66 69 72 73  |2)+" and "+.firs|
0000a820  74 6c 28 6f 62 6a 65 63  74 73 24 28 72 6f 6f 6d  |tl(objects$(room|
0000a830  6e 6f 25 2c 6c 29 29 2b  6f 62 6a 65 63 74 73 24  |no%,l))+objects$|
0000a840  28 72 6f 6f 6d 6e 6f 25  2c 6c 29 2b 22 2e 22 0d  |(roomno%,l)+".".|
0000a850  34 08 0b 20 20 20 20 ed  20 6c 0d 34 12 07 20 20  |4..    . l.4..  |
0000a860  cd 0d 34 1c 0e 20 20 f2  61 64 64 28 74 24 29 0d  |..4..  .add(t$).|
0000a870  34 26 05 cd 0d 34 30 31  f2 64 65 63 69 64 65 70  |4&...401.decidep|
0000a880  69 63 73 3a f2 64 65 63  69 64 65 70 6f 73 3a e7  |ics:.decidepos:.|
0000a890  20 7a 6f 6e 65 25 3d 32  20 f2 63 68 65 63 6b 70  | zone%=2 .checkp|
0000a8a0  6f 6c 70 6f 73 0d 34 3a  19 e7 20 7a 6f 6e 65 25  |olpos.4:.. zone%|
0000a8b0  3d 33 20 f2 70 6f 6c 70  6f 73 6d 61 7a 65 0d 34  |=3 .polposmaze.4|
0000a8c0  44 25 e7 20 72 6f 6f 6d  6e 6f 25 3d 34 36 20 6e  |D%. roomno%=46 n|
0000a8d0  69 66 6f 6b 25 3d 31 3a  f2 64 65 63 69 64 65 70  |ifok%=1:.decidep|
0000a8e0  69 63 73 0d 34 4e 3b e7  20 72 6f 6f 6d 6e 6f 25  |ics.4N;. roomno%|
0000a8f0  3d 34 30 20 6d 61 70 79  6e 25 28 34 30 29 3d 31  |=40 mapyn%(40)=1|
0000a900  3a 72 6f 6f 6d 6e 6f 25  3d 33 39 3a f2 61 64 64  |:roomno%=39:.add|
0000a910  28 22 22 29 3a f2 68 61  6c 66 6c 6f 6f 6b 0d 34  |(""):.halflook.4|
0000a920  58 13 e7 20 72 6f 6f 6d  6e 6f 25 3d 32 32 31 20  |X.. roomno%=221 |
0000a930  8c 0d 34 62 7d 6d 61 70  79 6e 25 28 32 32 31 29  |..4b}mapyn%(221)|
0000a940  3d 31 3a 72 6f 6f 6d 6e  6f 25 3d 32 32 32 3a f2  |=1:roomno%=222:.|
0000a950  61 64 64 28 22 27 4f 69  2c 20 79 6f 75 21 27 20  |add("'Oi, you!' |
0000a960  61 20 77 6f 6d 61 6e 20  63 72 69 65 73 20 63 72  |a woman cries cr|
0000a970  69 65 73 2c 20 27 47 65  74 20 6f 75 74 74 61 20  |ies, 'Get outta |
0000a980  6d 27 68 6f 75 73 65 20  2d 20 4e 4f 57 21 27 2e  |m'house - NOW!'.|
0000a990  20 59 6f 75 20 67 6f 20  6f 75 74 20 6f 6e 74 6f  | You go out onto|
0000a9a0  20 74 68 65 20 73 74 72  65 65 74 2e 22 29 0d 34  | the street.").4|
0000a9b0  6c 33 e7 20 6d 61 70 79  6e 25 28 32 32 32 29 3d  |l3. mapyn%(222)=|
0000a9c0  30 20 6d 61 70 79 6e 25  28 32 32 32 29 3d 31 3a  |0 mapyn%(222)=1:|
0000a9d0  f2 6c 6f 6f 6b 20 8b 20  f2 68 61 6c 66 6c 6f 6f  |.look . .halfloo|
0000a9e0  6b 0d 34 76 05 cd 0d 34  80 05 e1 0d 34 8a 04 0d  |k.4v...4....4...|
0000a9f0  34 94 0e dd f2 68 61 6c  66 6c 6f 6f 6b 0d 34 9e  |4....halflook.4.|
0000aa00  1a f2 61 64 64 28 72 65  6e 74 72 79 24 28 72 6f  |..add(rentry$(ro|
0000aa10  6f 6d 6e 6f 25 29 29 0d  34 a8 0b 66 6c 61 67 25  |omno%)).4..flag%|
0000aa20  3d 30 0d 34 b2 0e e3 20  65 3d 31 20 b8 20 31 30  |=0.4... e=1 . 10|
0000aa30  0d 34 bc 26 e7 20 6f 62  6a 65 63 74 73 24 28 72  |.4.&. objects$(r|
0000aa40  6f 6f 6d 6e 6f 25 2c 65  29 3c 3e 22 22 20 66 6c  |oomno%,e)<>"" fl|
0000aa50  61 67 25 2b 3d 31 0d 34  c6 07 ed 20 65 0d 34 d0  |ag%+=1.4... e.4.|
0000aa60  0f e7 20 66 6c 61 67 25  3e 30 20 8c 0d 34 da 10  |.. flag%>0 ..4..|
0000aa70  20 20 66 6c 61 67 74 77  6f 25 3d 30 0d 34 e4 18  |  flagtwo%=0.4..|
0000aa80  20 20 74 24 3d 22 59 6f  75 20 63 61 6e 20 73 65  |  t$="You can se|
0000aa90  65 3b 20 22 0d 34 ee 11  20 20 e7 20 66 6c 61 67  |e; ".4..  . flag|
0000aaa0  25 3d 31 20 8c 0d 34 f8  12 20 20 20 20 66 6c 61  |%=1 ..4..    fla|
0000aab0  67 74 77 6f 25 3d 31 0d  35 02 12 20 20 20 20 e3  |gtwo%=1.5..    .|
0000aac0  20 6c 3d 31 20 b8 20 31  30 0d 35 0c 5a 20 20 20  | l=1 . 10.5.Z   |
0000aad0  20 e7 20 6f 62 6a 65 63  74 73 24 28 72 6f 6f 6d  | . objects$(room|
0000aae0  6e 6f 25 2c 6c 29 3c 3e  22 22 20 74 24 2b 3d a4  |no%,l)<>"" t$+=.|
0000aaf0  66 69 72 73 74 6c 28 6f  62 6a 65 63 74 73 24 28  |firstl(objects$(|
0000ab00  72 6f 6f 6d 6e 6f 25 2c  6c 29 29 2b 6f 62 6a 65  |roomno%,l))+obje|
0000ab10  63 74 73 24 28 72 6f 6f  6d 6e 6f 25 2c 6c 29 2b  |cts$(roomno%,l)+|
0000ab20  22 2e 22 0d 35 16 0b 20  20 20 20 ed 20 6c 0d 35  |".".5..    . l.5|
0000ab30  20 07 20 20 cd 0d 35 2a  0d 20 20 65 3d 30 3a 6c  | .  ..5*.  e=0:l|
0000ab40  3d 30 0d 35 34 14 20 20  e7 20 66 6c 61 67 74 77  |=0.54.  . flagtw|
0000ab50  6f 25 3d 30 20 8c 0d 35  3e 09 20 20 20 20 f5 0d  |o%=0 ..5>.    ..|
0000ab60  35 48 0c 20 20 20 20 6c  2b 3d 31 0d 35 52 5f 20  |5H.    l+=1.5R_ |
0000ab70  20 20 e7 20 6f 62 6a 65  63 74 73 24 28 72 6f 6f  |  . objects$(roo|
0000ab80  6d 6e 6f 25 2c 6c 29 3c  3e 22 22 20 65 2b 3d 31  |mno%,l)<>"" e+=1|
0000ab90  3a 74 24 2b 3d a4 66 69  72 73 74 6c 28 6f 62 6a  |:t$+=.firstl(obj|
0000aba0  65 63 74 73 24 28 72 6f  6f 6d 6e 6f 25 2c 6c 29  |ects$(roomno%,l)|
0000abb0  29 2b 6f 62 6a 65 63 74  73 24 28 72 6f 6f 6d 6e  |)+objects$(roomn|
0000abc0  6f 25 2c 6c 29 2b 22 2c  20 22 0d 35 5c 14 20 20  |o%,l)+", ".5\.  |
0000abd0  20 20 fd 20 65 3e 3d 66  6c 61 67 25 2d 31 0d 35  |  . e>=flag%-1.5|
0000abe0  66 14 20 20 20 20 e3 20  6c 3d 6c 2b 31 20 b8 20  |f.    . l=l+1 . |
0000abf0  31 30 0d 35 70 70 20 20  20 20 e7 20 6f 62 6a 65  |10.5pp    . obje|
0000ac00  63 74 73 24 28 72 6f 6f  6d 6e 6f 25 2c 6c 29 3c  |cts$(roomno%,l)<|
0000ac10  3e 22 22 20 74 24 3d c1  74 24 2c 31 2c a9 28 74  |>"" t$=.t$,1,.(t|
0000ac20  24 29 2d 32 29 2b 22 20  61 6e 64 20 22 2b a4 66  |$)-2)+" and "+.f|
0000ac30  69 72 73 74 6c 28 6f 62  6a 65 63 74 73 24 28 72  |irstl(objects$(r|
0000ac40  6f 6f 6d 6e 6f 25 2c 6c  29 29 2b 6f 62 6a 65 63  |oomno%,l))+objec|
0000ac50  74 73 24 28 72 6f 6f 6d  6e 6f 25 2c 6c 29 2b 22  |ts$(roomno%,l)+"|
0000ac60  2e 22 0d 35 7a 0b 20 20  20 20 ed 20 6c 0d 35 84  |.".5z.    . l.5.|
0000ac70  07 20 20 cd 0d 35 8e 0e  20 20 f2 61 64 64 28 74  |.  ..5..  .add(t|
0000ac80  24 29 0d 35 98 05 cd 0d  35 a2 31 f2 64 65 63 69  |$).5....5.1.deci|
0000ac90  64 65 70 69 63 73 3a f2  64 65 63 69 64 65 70 6f  |depics:.decidepo|
0000aca0  73 3a e7 20 7a 6f 6e 65  25 3d 32 20 f2 63 68 65  |s:. zone%=2 .che|
0000acb0  63 6b 70 6f 6c 70 6f 73  0d 35 ac 19 e7 20 7a 6f  |ckpolpos.5... zo|
0000acc0  6e 65 25 3d 33 20 f2 70  6f 6c 70 6f 73 6d 61 7a  |ne%=3 .polposmaz|
0000acd0  65 0d 35 b6 25 e7 20 72  6f 6f 6d 6e 6f 25 3d 34  |e.5.%. roomno%=4|
0000ace0  36 20 6e 69 66 6f 6b 25  3d 31 3a f2 64 65 63 69  |6 nifok%=1:.deci|
0000acf0  64 65 70 69 63 73 0d 35  c0 6b e7 20 72 6f 6f 6d  |depics.5.k. room|
0000ad00  6e 6f 25 3d 34 30 20 72  6f 6f 6d 6e 6f 25 3d 33  |no%=40 roomno%=3|
0000ad10  39 3a f2 61 64 64 28 22  59 6f 75 20 66 65 65 6c  |9:.add("You feel|
0000ad20  20 79 6f 75 20 61 72 65  20 69 6e 74 72 75 64 69  | you are intrudi|
0000ad30  6e 67 2c 20 73 6f 20 72  65 74 75 72 6e 20 74 6f  |ng, so return to|
0000ad40  20 74 68 65 20 67 61 72  64 65 6e 2e 22 29 3a f2  | the garden."):.|
0000ad50  61 64 64 28 22 22 29 3a  f2 68 61 6c 66 6c 6f 6f  |add(""):.halfloo|
0000ad60  6b 0d 35 ca 13 e7 20 72  6f 6f 6d 6e 6f 25 3d 32  |k.5... roomno%=2|
0000ad70  32 31 20 8c 0d 35 d4 98  6d 61 70 79 6e 25 28 32  |21 ..5..mapyn%(2|
0000ad80  32 31 29 3d 31 3a 72 6f  6f 6d 6e 6f 25 3d 32 32  |21)=1:roomno%=22|
0000ad90  32 3a f2 61 64 64 28 22  54 68 65 20 77 6f 6d 61  |2:.add("The woma|
0000ada0  6e 20 63 6f 6d 65 73 20  75 70 20 74 6f 20 79 6f  |n comes up to yo|
0000adb0  75 2e 20 27 4f 69 2c 20  79 6f 75 21 27 20 73 68  |u. 'Oi, you!' sh|
0000adc0  65 20 63 72 69 65 73 2c  20 27 47 65 74 20 6f 75  |e cries, 'Get ou|
0000add0  74 74 61 20 6d 65 20 68  6f 75 73 65 20 2d 20 4e  |tta me house - N|
0000ade0  4f 57 21 27 2e 20 59 6f  75 20 67 6f 20 6f 75 74  |OW!'. You go out|
0000adf0  20 6f 6e 74 6f 20 74 68  65 20 73 74 72 65 65 74  | onto the street|
0000ae00  2e 22 29 3a f2 61 64 64  28 22 22 29 0d 35 de 33  |."):.add("").5.3|
0000ae10  e7 20 6d 61 70 79 6e 25  28 32 32 32 29 3d 30 20  |. mapyn%(222)=0 |
0000ae20  6d 61 70 79 6e 25 28 32  32 32 29 3d 31 3a f2 6c  |mapyn%(222)=1:.l|
0000ae30  6f 6f 6b 20 8b 20 f2 68  61 6c 66 6c 6f 6f 6b 0d  |ook . .halflook.|
0000ae40  35 e8 05 cd 0d 35 f2 05  e1 0d 35 fc 04 0d 36 06  |5....5....5...6.|
0000ae50  15 dd a4 66 69 72 73 74  6c 28 6d 79 6c 69 6e 65  |...firstl(myline|
0000ae60  24 29 0d 36 10 0d 66 74  6c 24 3d 22 61 20 22 0d  |$).6..ftl$="a ".|
0000ae70  36 1a 15 6d 6c 24 3d c1  6d 79 6c 69 6e 65 24 2c  |6..ml$=.myline$,|
0000ae80  31 2c 31 29 0d 36 24 0c  c8 8e 20 6d 6c 24 20 ca  |1,1).6$... ml$ .|
0000ae90  0d 36 2e 26 c9 20 22 61  22 2c 22 65 22 2c 22 69  |.6.&. "a","e","i|
0000aea0  22 2c 22 6f 22 2c 22 75  22 20 3a 20 66 74 6c 24  |","o","u" : ftl$|
0000aeb0  3d 22 61 6e 20 22 0d 36  38 05 cb 0d 36 42 09 3d  |="an ".68...6B.=|
0000aec0  66 74 6c 24 0d 36 4c 04  0d 36 56 0a dd f2 6f 70  |ftl$.6L..6V...op|
0000aed0  65 6e 0d 36 60 0d 6f 70  65 6e 79 6e 25 3d 30 0d  |en.6`.openyn%=0.|
0000aee0  36 6a 21 e7 20 a7 69 24  2c 22 64 6f 6f 72 22 29  |6j!. .i$,"door")|
0000aef0  3e 30 20 80 20 72 6f 6f  6d 6e 6f 25 3d 32 20 8c  |>0 . roomno%=2 .|
0000af00  0d 36 74 0d 6f 70 65 6e  79 6e 25 3d 31 0d 36 7e  |.6t.openyn%=1.6~|
0000af10  66 e7 20 65 78 69 74 73  28 32 2c 32 29 3d 30 20  |f. exits(2,2)=0 |
0000af20  74 24 3d 22 59 6f 75 20  74 72 79 20 74 6f 20 6f  |t$="You try to o|
0000af30  70 65 6e 20 74 68 65 20  64 6f 6f 72 2c 20 62 75  |pen the door, bu|
0000af40  74 20 69 74 20 69 73 20  6c 6f 63 6b 65 64 2e 22  |t it is locked."|
0000af50  20 8b 20 74 24 3d 22 54  68 65 20 64 6f 6f 72 20  | . t$="The door |
0000af60  69 73 20 61 6c 6c 20 72  65 61 64 79 20 6f 70 65  |is all ready ope|
0000af70  6e 2e 22 0d 36 88 05 cd  0d 36 92 23 e7 20 a7 69  |n.".6....6.#. .i|
0000af80  24 2c 22 64 6f 6f 72 22  29 3e 30 20 80 20 72 6f  |$,"door")>0 . ro|
0000af90  6f 6d 6e 6f 25 3d 33 30  35 20 8c 0d 36 9c 25 6f  |omno%=305 ..6.%o|
0000afa0  70 65 6e 79 6e 25 3d 31  3a 74 24 3d 22 59 6f 75  |penyn%=1:t$="You|
0000afb0  20 6f 70 65 6e 20 74 68  65 20 64 6f 6f 72 2e 22  | open the door."|
0000afc0  0d 36 a6 05 cd 0d 36 b0  23 e7 20 a7 69 24 2c 22  |.6....6.#. .i$,"|
0000afd0  64 6f 6f 72 22 29 3e 30  20 80 20 72 6f 6f 6d 6e  |door")>0 . roomn|
0000afe0  6f 25 3d 31 37 39 20 8c  0d 36 ba 0d 6f 70 65 6e  |o%=179 ..6..open|
0000aff0  79 6e 25 3d 31 0d 36 c4  68 e7 20 65 78 69 74 73  |yn%=1.6.h. exits|
0000b000  28 31 37 39 2c 31 29 3d  30 20 74 24 3d 22 59 6f  |(179,1)=0 t$="Yo|
0000b010  75 20 74 72 79 20 74 6f  20 6f 70 65 6e 20 74 68  |u try to open th|
0000b020  65 20 64 6f 6f 72 2c 20  62 75 74 20 69 74 20 69  |e door, but it i|
0000b030  73 20 6c 6f 63 6b 65 64  2e 22 20 8b 20 74 24 3d  |s locked." . t$=|
0000b040  22 54 68 65 20 64 6f 6f  72 20 69 73 20 61 6c 6c  |"The door is all|
0000b050  20 72 65 61 64 79 20 6f  70 65 6e 2e 22 0d 36 ce  | ready open.".6.|
0000b060  05 cd 0d 36 d8 49 e7 20  a7 69 24 2c 22 63 72 61  |...6.I. .i$,"cra|
0000b070  74 65 22 29 3e 30 20 80  20 72 6f 6f 6d 6e 6f 25  |te")>0 . roomno%|
0000b080  3d 32 37 20 6f 70 65 6e  79 6e 25 3d 31 3a 74 24  |=27 openyn%=1:t$|
0000b090  3d 22 54 68 65 20 63 72  61 74 65 20 77 6f 6e 27  |="The crate won'|
0000b0a0  74 20 6f 70 65 6e 20 75  70 2e 22 0d 36 e2 4c e7  |t open up.".6.L.|
0000b0b0  20 a7 69 24 2c 22 77 69  6e 64 6f 77 22 29 3e 30  | .i$,"window")>0|
0000b0c0  20 80 20 72 6f 6f 6d 6e  6f 25 3d 38 33 20 6f 70  | . roomno%=83 op|
0000b0d0  65 6e 79 6e 25 3d 31 3a  74 24 3d 22 54 68 65 20  |enyn%=1:t$="The |
0000b0e0  77 69 6e 64 6f 77 20 69  73 20 6a 61 6d 6d 65 64  |window is jammed|
0000b0f0  20 73 68 75 74 2e 22 0d  36 ec 69 e7 20 a7 69 24  | shut.".6.i. .i$|
0000b100  2c 22 62 61 67 22 29 3e  30 20 80 20 72 6f 6f 6d  |,"bag")>0 . room|
0000b110  6e 6f 25 3d 32 39 20 6f  70 65 6e 79 6e 25 3d 31  |no%=29 openyn%=1|
0000b120  3a 74 24 3d 22 54 68 65  20 62 61 6b 65 72 20 6c  |:t$="The baker l|
0000b130  6f 6f 6b 73 20 74 6f 6f  20 6d 6f 6f 64 79 20 66  |ooks too moody f|
0000b140  6f 72 20 79 6f 75 20 74  6f 20 67 6f 20 70 72 79  |or you to go pry|
0000b150  69 6e 67 20 69 6e 20 68  69 73 20 62 61 67 2e 22  |ing in his bag."|
0000b160  0d 36 f6 4c e7 20 a7 69  24 2c 22 77 69 6e 64 6f  |.6.L. .i$,"windo|
0000b170  77 22 29 3e 30 20 80 20  72 6f 6f 6d 6e 6f 25 3d  |w")>0 . roomno%=|
0000b180  32 36 20 6f 70 65 6e 79  6e 25 3d 31 3a 74 24 3d  |26 openyn%=1:t$=|
0000b190  22 54 68 65 20 77 69 6e  64 6f 77 20 69 73 20 6a  |"The window is j|
0000b1a0  61 6d 6d 65 64 20 73 68  75 74 2e 22 0d 37 00 4c  |ammed shut.".7.L|
0000b1b0  e7 20 a7 69 24 2c 22 67  61 74 65 22 29 3e 30 20  |. .i$,"gate")>0 |
0000b1c0  80 20 72 6f 6f 6d 6e 6f  25 3d 31 35 20 6f 70 65  |. roomno%=15 ope|
0000b1d0  6e 79 6e 25 3d 31 3a 74  24 3d 22 54 68 65 20 67  |nyn%=1:t$="The g|
0000b1e0  61 74 65 73 20 61 72 65  20 66 69 72 6d 6c 79 20  |ates are firmly |
0000b1f0  62 6f 6c 74 65 64 2e 22  0d 37 0a 4f e7 20 a7 69  |bolted.".7.O. .i|
0000b200  24 2c 22 62 6f 6f 6b 22  29 3e 30 20 80 20 a4 67  |$,"book")>0 . .g|
0000b210  6f 74 6f 72 68 65 72 65  28 22 62 6f 6f 6b 22 29  |otorhere("book")|
0000b220  3d 31 20 6f 70 65 6e 79  6e 25 3d 31 3a 74 24 3d  |=1 openyn%=1:t$=|
0000b230  22 59 6f 75 20 6f 70 65  6e 20 75 70 20 74 68 65  |"You open up the|
0000b240  20 62 6f 6f 6b 2e 22 0d  37 14 52 e7 20 a7 69 24  | book.".7.R. .i$|
0000b250  2c 22 6e 6f 76 65 6c 22  29 3e 30 20 80 20 a4 67  |,"novel")>0 . .g|
0000b260  6f 74 6f 72 68 65 72 65  28 22 6e 6f 76 65 6c 22  |otorhere("novel"|
0000b270  29 3d 31 20 6f 70 65 6e  79 6e 25 3d 31 3a 74 24  |)=1 openyn%=1:t$|
0000b280  3d 22 59 6f 75 20 6f 70  65 6e 20 75 70 20 74 68  |="You open up th|
0000b290  65 20 6e 6f 76 65 6c 2e  22 0d 37 1e 52 e7 20 a7  |e novel.".7.R. .|
0000b2a0  69 24 2c 22 62 69 62 6c  65 22 29 3e 30 20 80 20  |i$,"bible")>0 . |
0000b2b0  a4 67 6f 74 6f 72 68 65  72 65 28 22 62 69 62 6c  |.gotorhere("bibl|
0000b2c0  65 22 29 3d 31 20 6f 70  65 6e 79 6e 25 3d 31 3a  |e")=1 openyn%=1:|
0000b2d0  74 24 3d 22 59 6f 75 20  6f 70 65 6e 20 75 70 20  |t$="You open up |
0000b2e0  74 68 65 20 62 69 62 6c  65 2e 22 0d 37 28 50 e7  |the bible.".7(P.|
0000b2f0  20 a7 69 24 2c 22 62 61  72 72 65 6c 22 29 3e 30  | .i$,"barrel")>0|
0000b300  20 80 20 72 6f 6f 6d 6e  6f 25 3d 36 35 20 6f 70  | . roomno%=65 op|
0000b310  65 6e 79 6e 25 3d 31 3a  74 24 3d 22 54 68 65 20  |enyn%=1:t$="The |
0000b320  62 61 72 72 65 6c 73 20  61 72 65 20 66 69 72 6d  |barrels are firm|
0000b330  6c 79 20 63 6c 6f 73 65  64 2e 22 0d 37 32 af e7  |ly closed.".72..|
0000b340  20 a7 69 24 2c 22 62 6f  74 74 6c 65 22 29 3e 30  | .i$,"bottle")>0|
0000b350  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 62  | . .gotorhere("b|
0000b360  6f 74 74 6c 65 22 29 3d  31 20 80 20 66 69 72 65  |ottle")=1 . fire|
0000b370  25 3d 30 20 6f 70 65 6e  79 6e 25 3d 31 3a 74 24  |%=0 openyn%=1:t$|
0000b380  3d 22 54 68 65 20 62 6f  74 74 6c 65 20 68 61 73  |="The bottle has|
0000b390  20 61 20 74 6f 70 20 77  68 69 63 68 20 69 73 20  | a top which is |
0000b3a0  70 72 6f 74 65 63 74 65  64 20 61 67 61 69 6e 73  |protected agains|
0000b3b0  74 20 63 68 69 6c 64 72  65 6e 20 2d 20 79 6f 75  |t children - you|
0000b3c0  27 76 65 20 6e 65 76 65  72 20 62 65 65 6e 20 61  |'ve never been a|
0000b3d0  62 6c 65 20 74 6f 20 6f  70 65 6e 20 74 68 6f 73  |ble to open thos|
0000b3e0  65 20 74 68 69 6e 67 73  2e 22 0d 37 3c 5a e7 20  |e things.".7<Z. |
0000b3f0  a7 69 24 2c 22 70 75 72  73 65 22 29 3e 30 20 80  |.i$,"purse")>0 .|
0000b400  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 70 75 72  | .gotorhere("pur|
0000b410  73 65 22 29 3d 31 20 6f  70 65 6e 79 6e 25 3d 31  |se")=1 openyn%=1|
0000b420  3a 74 24 3d 22 54 68 65  20 7a 69 70 20 74 6f 20  |:t$="The zip to |
0000b430  74 68 65 20 70 75 72 73  65 20 69 73 20 73 74 75  |the purse is stu|
0000b440  63 6b 2e 22 0d 37 46 26  e7 20 a7 69 24 2c 22 73  |ck.".7F&. .i$,"s|
0000b450  75 69 74 63 61 73 65 22  29 3e 30 20 80 20 72 6f  |uitcase")>0 . ro|
0000b460  6f 6d 6e 6f 25 3d 38 33  20 8c 0d 37 50 0d 6f 70  |omno%=83 ..7P.op|
0000b470  65 6e 79 6e 25 3d 31 0d  37 5a 22 74 24 3d 22 54  |enyn%=1.7Z"t$="T|
0000b480  68 65 20 63 61 73 65 20  69 73 20 61 6c 72 65 61  |he case is alrea|
0000b490  64 79 20 6f 70 65 6e 2e  22 0d 37 64 13 e7 20 73  |dy open.".7d.. s|
0000b4a0  75 69 74 63 61 73 65 25  3d 30 20 8c 0d 37 6e 4c  |uitcase%=0 ..7nL|
0000b4b0  73 75 69 74 63 61 73 65  25 3d 31 3a 74 24 3d 22  |suitcase%=1:t$="|
0000b4c0  59 6f 75 20 6f 70 65 6e  20 74 68 65 20 63 61 73  |You open the cas|
0000b4d0  65 2e 20 41 20 73 6e 6f  6f 6b 65 72 20 63 75 65  |e. A snooker cue|
0000b4e0  20 66 61 6c 6c 73 20 6f  6e 74 6f 20 74 68 65 20  | falls onto the |
0000b4f0  67 72 6f 75 6e 64 2e 22  0d 37 78 08 63 25 3d 30  |ground.".7x.c%=0|
0000b500  0d 37 82 0f e3 20 61 25  3d 31 20 b8 20 31 30 0d  |.7... a%=1 . 10.|
0000b510  37 8c 3a e7 20 6f 62 6a  65 63 74 73 24 28 38 33  |7.:. objects$(83|
0000b520  2c 61 25 29 3d 22 22 20  80 20 63 25 3d 30 20 63  |,a%)="" . c%=0 c|
0000b530  25 3d 31 3a 6f 62 6a 65  63 74 73 24 28 38 33 2c  |%=1:objects$(83,|
0000b540  61 25 29 3d 22 63 75 65  22 0d 37 96 05 ed 0d 37  |a%)="cue".7....7|
0000b550  a0 23 e7 20 63 25 3d 30  20 6f 62 6a 65 63 74 73  |.#. c%=0 objects|
0000b560  24 28 38 33 2c b3 28 31  30 29 29 3d 22 63 75 65  |$(83,.(10))="cue|
0000b570  22 0d 37 aa 05 cd 0d 37  b4 05 cd 0d 37 be 3f e7  |".7....7....7.?.|
0000b580  20 6f 70 65 6e 79 6e 25  3d 30 20 74 24 3d 22 49  | openyn%=0 t$="I|
0000b590  20 64 6f 20 6e 6f 74 20  75 6e 64 65 72 73 74 61  | do not understa|
0000b5a0  6e 64 20 77 68 61 74 20  79 6f 75 20 77 61 6e 74  |nd what you want|
0000b5b0  20 74 6f 20 6f 70 65 6e  2e 22 0d 37 c8 0c f2 61  | to open.".7...a|
0000b5c0  64 64 28 74 24 29 0d 37  d2 05 e1 0d 37 dc 04 0d  |dd(t$).7....7...|
0000b5d0  37 e6 0b dd f2 63 6c 6f  73 65 0d 37 f0 0e 63 6c  |7....close.7..cl|
0000b5e0  6f 73 65 79 6e 25 3d 30  0d 37 fa 21 e7 20 a7 69  |oseyn%=0.7.!. .i|
0000b5f0  24 2c 22 64 6f 6f 72 22  29 3e 30 20 80 20 72 6f  |$,"door")>0 . ro|
0000b600  6f 6d 6e 6f 25 3d 32 20  8c 0d 38 04 0e 63 6c 6f  |omno%=2 ..8..clo|
0000b610  73 65 79 6e 25 3d 31 0d  38 0e 6d e7 20 65 78 69  |seyn%=1.8.m. exi|
0000b620  74 73 28 32 2c 32 29 3d  33 20 74 24 3d 22 59 6f  |ts(2,2)=3 t$="Yo|
0000b630  75 20 74 72 79 20 74 6f  20 63 6c 6f 73 65 20 74  |u try to close t|
0000b640  68 65 20 64 6f 6f 72 2c  20 62 75 74 20 69 74 20  |he door, but it |
0000b650  69 73 20 73 74 75 63 6b  20 6f 70 65 6e 2e 22 20  |is stuck open." |
0000b660  8b 20 74 24 3d 22 54 68  65 20 64 6f 6f 72 20 69  |. t$="The door i|
0000b670  73 20 61 6c 6c 20 72 65  61 64 79 20 63 6c 6f 73  |s all ready clos|
0000b680  65 64 2e 22 0d 38 18 05  cd 0d 38 22 23 e7 20 a7  |ed.".8....8"#. .|
0000b690  69 24 2c 22 64 6f 6f 72  22 29 3e 30 20 80 20 72  |i$,"door")>0 . r|
0000b6a0  6f 6f 6d 6e 6f 25 3d 33  30 35 20 8c 0d 38 2c 27  |oomno%=305 ..8,'|
0000b6b0  63 6c 6f 73 65 79 6e 25  3d 31 3a 74 24 3d 22 59  |closeyn%=1:t$="Y|
0000b6c0  6f 75 20 63 6c 6f 73 65  20 74 68 65 20 64 6f 6f  |ou close the doo|
0000b6d0  72 2e 22 0d 38 36 05 cd  0d 38 40 23 e7 20 a7 69  |r.".86...8@#. .i|
0000b6e0  24 2c 22 64 6f 6f 72 22  29 3e 30 20 80 20 72 6f  |$,"door")>0 . ro|
0000b6f0  6f 6d 6e 6f 25 3d 31 37  39 20 8c 0d 38 4a 0e 63  |omno%=179 ..8J.c|
0000b700  6c 6f 73 65 79 6e 25 3d  31 0d 38 54 70 e7 20 65  |loseyn%=1.8Tp. e|
0000b710  78 69 74 73 28 31 37 39  2c 31 29 3d 31 35 20 74  |xits(179,1)=15 t|
0000b720  24 3d 22 59 6f 75 20 74  72 79 20 74 6f 20 63 6c  |$="You try to cl|
0000b730  6f 73 65 20 74 68 65 20  64 6f 6f 72 2c 20 62 75  |ose the door, bu|
0000b740  74 20 69 74 20 69 73 20  73 74 75 63 6b 20 6f 70  |t it is stuck op|
0000b750  65 6e 2e 22 20 8b 20 74  24 3d 22 54 68 65 20 64  |en." . t$="The d|
0000b760  6f 6f 72 20 69 73 20 61  6c 6c 20 72 65 61 64 79  |oor is all ready|
0000b770  20 63 6c 6f 73 65 64 2e  22 0d 38 5e 05 cd 0d 38  | closed.".8^...8|
0000b780  68 4c e7 20 a7 69 24 2c  22 67 61 74 65 22 29 3e  |hL. .i$,"gate")>|
0000b790  30 20 80 20 72 6f 6f 6d  6e 6f 25 3d 31 35 20 63  |0 . roomno%=15 c|
0000b7a0  6c 6f 73 65 79 6e 25 3d  31 3a 74 24 3d 22 54 68  |loseyn%=1:t$="Th|
0000b7b0  65 20 67 61 74 65 73 20  61 72 65 20 61 6c 72 65  |e gates are alre|
0000b7c0  61 64 79 20 73 68 75 74  2e 22 0d 38 72 4e e7 20  |ady shut.".8rN. |
0000b7d0  a7 69 24 2c 22 77 69 6e  64 6f 77 22 29 3e 30 20  |.i$,"window")>0 |
0000b7e0  80 20 72 6f 6f 6d 6e 6f  25 3d 38 33 20 63 6c 6f  |. roomno%=83 clo|
0000b7f0  73 65 79 6e 25 3d 31 3a  74 24 3d 22 54 68 65 20  |seyn%=1:t$="The |
0000b800  77 69 6e 64 6f 77 20 69  73 20 61 6c 72 65 61 64  |window is alread|
0000b810  79 20 73 68 75 74 2e 22  0d 38 7c 4e e7 20 a7 69  |y shut.".8|N. .i|
0000b820  24 2c 22 77 69 6e 64 6f  77 22 29 3e 30 20 80 20  |$,"window")>0 . |
0000b830  72 6f 6f 6d 6e 6f 25 3d  32 36 20 63 6c 6f 73 65  |roomno%=26 close|
0000b840  79 6e 25 3d 31 3a 74 24  3d 22 54 68 65 20 77 69  |yn%=1:t$="The wi|
0000b850  6e 64 6f 77 20 69 73 20  61 6c 72 65 61 64 79 20  |ndow is already |
0000b860  73 68 75 74 2e 22 0d 38  86 4e e7 20 a7 69 24 2c  |shut.".8.N. .i$,|
0000b870  22 62 6f 6f 6b 22 29 3e  30 20 80 20 a4 67 6f 74  |"book")>0 . .got|
0000b880  6f 72 68 65 72 65 28 22  62 6f 6f 6b 22 29 3d 31  |orhere("book")=1|
0000b890  20 63 6c 6f 73 65 79 6e  25 3d 31 3a 74 24 3d 22  | closeyn%=1:t$="|
0000b8a0  59 6f 75 20 63 6c 6f 73  65 20 74 68 65 20 62 6f  |You close the bo|
0000b8b0  6f 6b 2e 22 0d 38 90 51  e7 20 a7 69 24 2c 22 6e  |ok.".8.Q. .i$,"n|
0000b8c0  6f 76 65 6c 22 29 3e 30  20 80 20 a4 67 6f 74 6f  |ovel")>0 . .goto|
0000b8d0  72 68 65 72 65 28 22 6e  6f 76 65 6c 22 29 3d 31  |rhere("novel")=1|
0000b8e0  20 63 6c 6f 73 65 79 6e  25 3d 31 3a 74 24 3d 22  | closeyn%=1:t$="|
0000b8f0  59 6f 75 20 63 6c 6f 73  65 20 74 68 65 20 6e 6f  |You close the no|
0000b900  76 65 6c 2e 22 0d 38 9a  51 e7 20 a7 69 24 2c 22  |vel.".8.Q. .i$,"|
0000b910  62 69 62 6c 65 22 29 3e  30 20 80 20 a4 67 6f 74  |bible")>0 . .got|
0000b920  6f 72 68 65 72 65 28 22  62 69 62 6c 65 22 29 3d  |orhere("bible")=|
0000b930  31 20 63 6c 6f 73 65 79  6e 25 3d 31 3a 74 24 3d  |1 closeyn%=1:t$=|
0000b940  22 59 6f 75 20 63 6c 6f  73 65 20 74 68 65 20 62  |"You close the b|
0000b950  69 62 6c 65 2e 22 0d 38  a4 3e e7 20 a7 69 24 2c  |ible.".8.>. .i$,|
0000b960  22 73 75 69 74 63 61 73  65 22 29 3e 30 20 80 20  |"suitcase")>0 . |
0000b970  72 6f 6f 6d 6e 6f 25 3d  38 33 20 63 6c 6f 73 65  |roomno%=83 close|
0000b980  79 6e 25 3d 31 3a c8 8e  20 73 75 69 74 63 61 73  |yn%=1:.. suitcas|
0000b990  65 25 20 ca 0d 38 ae 2c  c9 20 30 20 3a 20 74 24  |e% ..8.,. 0 : t$|
0000b9a0  3d 22 54 68 65 20 73 75  69 74 63 61 73 65 20 69  |="The suitcase i|
0000b9b0  73 20 61 6c 72 65 61 64  79 20 73 68 75 74 2e 22  |s already shut."|
0000b9c0  0d 38 b8 2b c9 20 31 20  3a 20 74 24 3d 22 54 68  |.8.+. 1 : t$="Th|
0000b9d0  65 20 73 75 69 74 63 61  73 65 20 68 61 73 20 73  |e suitcase has s|
0000b9e0  74 75 63 6b 20 6f 70 65  6e 2e 22 0d 38 c2 05 cb  |tuck open.".8...|
0000b9f0  0d 38 cc 41 e7 20 63 6c  6f 73 65 79 6e 25 3d 30  |.8.A. closeyn%=0|
0000ba00  20 74 24 3d 22 49 20 64  6f 20 6e 6f 74 20 75 6e  | t$="I do not un|
0000ba10  64 65 72 73 74 61 6e 64  20 77 68 61 74 20 79 6f  |derstand what yo|
0000ba20  75 20 77 61 6e 74 20 74  6f 20 63 6c 6f 73 65 2e  |u want to close.|
0000ba30  22 0d 38 d6 0c f2 61 64  64 28 74 24 29 0d 38 e0  |".8...add(t$).8.|
0000ba40  05 e1 0d 38 ea 04 0d 38  f4 0b dd f2 6d 6f 75 6c  |...8...8....moul|
0000ba50  64 0d 38 fe 23 74 24 3d  22 59 6f 75 20 68 61 76  |d.8.#t$="You hav|
0000ba60  65 20 6e 6f 74 68 69 6e  67 20 74 6f 20 6d 6f 75  |e nothing to mou|
0000ba70  6c 64 2e 22 0d 39 08 c4  e7 20 a4 67 6f 74 6f 72  |ld.".9... .gotor|
0000ba80  68 65 72 65 28 22 62 6c  6f 62 22 29 3d 31 20 80  |here("blob")=1 .|
0000ba90  20 a7 69 24 2c 22 62 6c  6f 62 22 29 3e 30 20 74  | .i$,"blob")>0 t|
0000baa0  24 3d 22 59 6f 75 20 68  61 76 65 20 6e 6f 74 68  |$="You have noth|
0000bab0  69 6e 67 20 74 6f 20 6d  6f 75 6c 64 20 74 68 65  |ing to mould the|
0000bac0  20 62 6c 6f 62 20 69 6e  74 6f 2e 22 3a e7 20 72  | blob into.":. r|
0000bad0  6f 6f 6d 6e 6f 25 3d 32  20 74 24 3d 22 59 6f 75  |oomno%=2 t$="You|
0000bae0  20 70 72 65 73 73 20 74  68 65 20 62 6c 6f 62 20  | press the blob |
0000baf0  69 6e 74 6f 20 74 68 65  20 6b 65 79 68 6f 6c 65  |into the keyhole|
0000bb00  20 61 6e 64 20 70 75 6c  6c 20 69 74 20 6f 75 74  | and pull it out|
0000bb10  2e 20 56 6f 69 6c 61 21  20 41 20 70 65 72 66 65  |. Voila! A perfe|
0000bb20  63 74 20 69 6d 70 72 65  73 73 69 6f 6e 21 22 3a  |ct impression!":|
0000bb30  6d 6f 75 6c 64 25 3d 31  0d 39 12 0c f2 61 64 64  |mould%=1.9...add|
0000bb40  28 74 24 29 0d 39 1c 05  e1 0d 39 26 04 0d 39 30  |(t$).9....9&..90|
0000bb50  0a dd f2 66 69 72 65 0d  39 3a 0b 66 69 72 65 25  |...fire.9:.fire%|
0000bb60  3d 30 0d 39 44 0c f2 61  64 64 28 22 22 29 0d 39  |=0.9D..add("").9|
0000bb70  4e 41 74 24 3d 22 59 6f  75 20 68 65 61 72 20 61  |NAt$="You hear a|
0000bb80  20 77 6f 6f 73 68 20 61  73 20 69 66 20 73 6f 6d  | woosh as if som|
0000bb90  65 74 68 69 6e 67 20 68  61 73 20 63 72 65 61 74  |ething has creat|
0000bba0  65 64 20 61 20 66 69 72  65 62 61 6c 6c 2e 22 0d  |ed a fireball.".|
0000bbb0  39 58 40 72 6f 6f 6d 73  24 28 37 38 2c 32 29 3d  |9X@rooms$(78,2)=|
0000bbc0  22 54 68 65 72 65 20 61  72 65 20 63 68 61 72 72  |"There are charr|
0000bbd0  65 64 20 72 65 6d 61 69  6e 73 20 6f 6e 20 74 68  |ed remains on th|
0000bbe0  65 20 67 72 6f 75 6e 64  20 68 65 72 65 2e 22 0d  |e ground here.".|
0000bbf0  39 62 23 72 6f 6f 6d 73  24 28 37 38 2c 33 29 3d  |9b#rooms$(78,3)=|
0000bc00  22 22 3a 72 6f 6f 6d 73  24 28 37 38 2c 34 29 3d  |"":rooms$(78,4)=|
0000bc10  22 22 0d 39 6c 39 61 62  62 72 65 76 24 28 37 38  |"".9l9abbrev$(78|
0000bc20  2c 31 29 3d 22 43 68 61  72 73 22 3a 72 65 6e 74  |,1)="Chars":rent|
0000bc30  72 79 24 28 37 38 29 3d  22 54 68 65 20 63 68 61  |ry$(78)="The cha|
0000bc40  72 72 65 64 20 61 72 65  61 2e 22 0d 39 76 1e 77  |rred area.".9v.w|
0000bc50  69 6d 70 25 21 30 3d 6d  61 70 68 61 6e 25 3a f2  |imp%!0=maphan%:.|
0000bc60  72 65 64 72 61 77 6d 61  70 0d 39 80 c3 e7 20 72  |redrawmap.9... r|
0000bc70  6f 6f 6d 6e 6f 25 3d 37  38 20 74 24 3d 22 54 68  |oomno%=78 t$="Th|
0000bc80  65 72 65 20 69 73 20 61  20 6c 6f 75 64 20 27 77  |ere is a loud 'w|
0000bc90  6f 6f 73 68 27 20 61 73  20 74 68 65 20 62 6f 6e  |oosh' as the bon|
0000bca0  66 69 72 65 20 69 67 6e  69 74 65 73 20 74 68 65  |fire ignites the|
0000bcb0  20 6d 65 74 68 73 20 61  6e 64 20 73 68 6f 6f 74  | meths and shoot|
0000bcc0  73 20 6f 75 74 20 61 20  6d 61 73 73 69 76 65 20  |s out a massive |
0000bcd0  66 69 72 65 62 61 6c 6c  2c 20 75 6e 66 6f 72 74  |fireball, unfort|
0000bce0  75 6e 61 74 65 6c 79 20  69 74 20 68 65 61 64 73  |unately it heads|
0000bcf0  20 73 74 72 61 69 67 68  74 20 61 74 20 79 6f 75  | straight at you|
0000bd00  2e 20 54 68 65 72 65 20  69 73 20 6e 6f 20 77 61  |. There is no wa|
0000bd10  79 20 79 6f 75 20 63 61  6e 20 73 75 72 76 69 76  |y you can surviv|
0000bd20  65 2e 22 3a 6e 69 66 6f  6b 25 3d 31 0d 39 8a 0f  |e.":nifok%=1.9..|
0000bd30  f2 64 65 63 69 64 65 70  69 63 73 0d 39 94 0c f2  |.decidepics.9...|
0000bd40  61 64 64 28 74 24 29 0d  39 9e 05 e1 0d 39 a8 04  |add(t$).9....9..|
0000bd50  0d 39 b2 0b dd f2 73 6d  65 6c 6c 0d 39 bc 28 74  |.9....smell.9.(t|
0000bd60  24 3d 22 59 6f 75 20 63  61 6e 20 73 6d 65 6c 6c  |$="You can smell|
0000bd70  20 6e 6f 74 68 69 6e 67  20 70 65 63 75 6c 69 61  | nothing peculia|
0000bd80  72 2e 22 0d 39 c6 10 c8  8e 20 72 6f 6f 6d 6e 6f  |r.".9.... roomno|
0000bd90  25 20 ca 0d 39 d0 2a 20  c9 20 37 36 20 3a 20 74  |% ..9.* . 76 : t|
0000bda0  24 3d 22 59 6f 75 20 63  61 6e 20 73 6d 65 6c 6c  |$="You can smell|
0000bdb0  20 73 6f 6d 65 20 6d 65  74 68 73 2e 22 0d 39 da  | some meths.".9.|
0000bdc0  16 20 c9 20 37 38 20 3a  20 c8 8e 20 66 69 72 65  |. . 78 : .. fire|
0000bdd0  25 20 ca 0d 39 e4 34 20  20 20 c9 20 30 20 3a 20  |% ..9.4   . 0 : |
0000bde0  74 24 3d 22 54 68 65 72  65 20 69 73 20 61 20 62  |t$="There is a b|
0000bdf0  75 72 6e 74 20 73 6d 65  6c 6c 20 69 6e 20 74 68  |urnt smell in th|
0000be00  65 20 61 69 72 2e 22 0d  39 ee 3d 20 20 20 c9 20  |e air.".9.=   . |
0000be10  31 2c 32 20 3a 20 74 24  3d 22 59 6f 75 20 63 61  |1,2 : t$="You ca|
0000be20  6e 20 73 6d 65 6c 6c 20  74 68 65 20 73 6d 6f 6b  |n smell the smok|
0000be30  65 20 66 72 6f 6d 20 74  68 65 20 62 6f 6e 66 69  |e from the bonfi|
0000be40  72 65 2e 22 0d 39 f8 08  20 20 20 cb 0d 3a 02 34  |re.".9..   ..:.4|
0000be50  20 c9 20 36 35 20 3a 20  74 24 3d 22 54 68 65 72  | . 65 : t$="Ther|
0000be60  65 20 69 73 20 61 20 73  74 72 6f 6e 67 20 73 6d  |e is a strong sm|
0000be70  65 6c 6c 20 6f 66 20 61  6c 63 6f 68 6f 6c 2e 22  |ell of alcohol."|
0000be80  0d 3a 0c 38 20 c9 20 36  37 2c 37 33 20 3a 20 74  |.:.8 . 67,73 : t|
0000be90  24 3d 22 54 68 65 72 65  20 69 73 20 61 20 66 61  |$="There is a fa|
0000bea0  69 6e 74 20 73 6d 65 6c  6c 20 6f 66 20 63 68 65  |int smell of che|
0000beb0  6d 69 63 61 6c 73 2e 22  0d 3a 16 2c 20 c9 20 36  |micals.".:., . 6|
0000bec0  30 2c 36 39 20 3a 20 74  24 3d 22 59 6f 75 20 63  |0,69 : t$="You c|
0000bed0  61 6e 20 73 6d 65 6c 6c  20 6f 6c 64 20 6d 65 74  |an smell old met|
0000bee0  61 6c 2e 22 0d 3a 20 3b  20 c9 20 35 31 2c 34 39  |al.".: ; . 51,49|
0000bef0  20 3a 20 74 24 3d 22 54  68 65 72 65 20 69 73 20  | : t$="There is |
0000bf00  61 6e 20 6f 6c 64 20 6d  75 73 74 79 20 73 6d 65  |an old musty sme|
0000bf10  6c 6c 20 69 6e 20 74 68  65 20 61 69 72 2e 22 0d  |ll in the air.".|
0000bf20  3a 2a 44 20 c9 20 35 30  2c 35 32 2c 36 34 20 3a  |:*D . 50,52,64 :|
0000bf30  20 74 24 3d 22 54 68 65  72 65 20 69 73 20 61 20  | t$="There is a |
0000bf40  73 77 65 65 74 20 73 6d  65 6c 6c 20 6f 66 20 61  |sweet smell of a|
0000bf50  6c 63 6f 68 6f 6c 20 69  6e 20 74 68 65 20 61 69  |lcohol in the ai|
0000bf60  72 2e 22 0d 3a 34 4e 20  c9 20 31 33 2c 33 34 2c  |r.".:4N . 13,34,|
0000bf70  33 35 2c 33 39 20 3a 20  74 24 3d 22 59 6f 75 20  |35,39 : t$="You |
0000bf80  63 61 6e 20 73 6d 65 6c  6c 20 74 68 65 20 62 65  |can smell the be|
0000bf90  61 75 74 69 66 75 6c 20  66 72 61 67 72 61 6e 63  |autiful fragranc|
0000bfa0  65 20 6f 66 20 74 68 65  20 67 61 72 64 65 6e 2e  |e of the garden.|
0000bfb0  22 0d 3a 3e 54 20 c9 20  33 38 2c 34 31 2c 32 38  |".:>T . 38,41,28|
0000bfc0  35 2c 32 38 38 2c 32 38  39 2c 32 39 30 2c 32 38  |5,288,289,290,28|
0000bfd0  36 2c 32 38 37 2c 32 39  31 2c 32 39 32 20 3a 20  |6,287,291,292 : |
0000bfe0  74 24 3d 22 59 6f 75 20  63 61 6e 20 73 6d 65 6c  |t$="You can smel|
0000bff0  6c 20 6e 6f 74 68 69 6e  67 20 62 75 74 20 67 72  |l nothing but gr|
0000c000  61 73 73 2e 22 0d 3a 48  47 20 c9 20 33 2c 34 2c  |ass.".:HG . 3,4,|
0000c010  35 2c 38 2c 39 2c 31 30  20 3a 20 74 24 3d 22 54  |5,8,9,10 : t$="T|
0000c020  68 65 20 61 69 72 20 73  6d 65 6c 6c 73 20 61 72  |he air smells ar|
0000c030  74 69 66 69 63 69 61 6c  20 61 6e 64 20 66 61 72  |tificial and far|
0000c040  20 74 6f 6f 20 63 6c 65  61 6e 2e 22 0d 3a 52 3f  | too clean.".:R?|
0000c050  20 c9 20 32 32 2c 32 33  2c 38 33 2c 32 35 2c 32  | . 22,23,83,25,2|
0000c060  36 2c 32 37 20 3a 20 74  24 3d 22 54 68 65 20 61  |6,27 : t$="The a|
0000c070  69 72 20 73 6d 65 6c 6c  73 20 73 74 61 6c 65 20  |ir smells stale |
0000c080  61 6e 64 20 64 75 73 74  79 2e 22 0d 3a 5c 41 20  |and dusty.".:\A |
0000c090  c9 20 33 37 2c 38 34 20  3a 20 74 24 3d 22 59 6f  |. 37,84 : t$="Yo|
0000c0a0  75 20 63 61 6e 20 73 6d  65 6c 6c 20 74 68 65 20  |u can smell the |
0000c0b0  6f 6c 64 20 77 6f 6f 64  77 6f 72 6b 20 6f 66 20  |old woodwork of |
0000c0c0  74 68 65 20 63 68 75 72  63 68 2e 22 0d 3a 66 42  |the church.".:fB|
0000c0d0  20 c9 20 31 36 2c 31 37  2c 31 38 2c 34 34 2c 34  | . 16,17,18,44,4|
0000c0e0  36 20 3a 20 74 24 3d 22  54 68 65 72 65 20 69 73  |6 : t$="There is|
0000c0f0  20 61 20 27 72 6f 74 74  65 6e 27 20 73 6d 65 6c  | a 'rotten' smel|
0000c100  6c 20 69 6e 20 74 68 65  20 61 69 72 2e 22 0d 3a  |l in the air.".:|
0000c110  70 26 20 c9 20 34 35 20  3a 20 74 24 3d 22 59 6f  |p& . 45 : t$="Yo|
0000c120  75 20 63 61 6e 20 73 6d  65 6c 6c 20 64 61 6e 67  |u can smell dang|
0000c130  65 72 2e 22 0d 3a 7a 2b  20 c9 20 32 39 20 3a 20  |er.".:z+ . 29 : |
0000c140  74 24 3d 22 59 6f 75 20  63 61 6e 20 73 6d 65 6c  |t$="You can smel|
0000c150  6c 20 73 74 61 6c 65 20  62 72 65 61 64 2e 22 0d  |l stale bread.".|
0000c160  3a 84 2c 20 c9 20 33 30  20 3a 20 74 24 3d 22 59  |:., . 30 : t$="Y|
0000c170  6f 75 20 63 61 6e 20 73  6d 65 6c 6c 20 72 6f 74  |ou can smell rot|
0000c180  74 69 6e 67 20 6d 65 61  74 2e 22 0d 3a 8e 31 20  |ting meat.".:.1 |
0000c190  c9 20 32 30 20 3a 20 74  24 3d 22 54 68 65 72 65  |. 20 : t$="There|
0000c1a0  20 69 73 20 61 20 66 61  69 6e 74 20 73 6d 65 6c  | is a faint smel|
0000c1b0  6c 20 6f 66 20 62 72 65  61 64 2e 22 0d 3a 98 30  |l of bread.".:.0|
0000c1c0  20 c9 20 31 39 20 3a 20  74 24 3d 22 54 68 65 72  | . 19 : t$="Ther|
0000c1d0  65 20 69 73 20 61 20 66  61 69 6e 74 20 73 6d 65  |e is a faint sme|
0000c1e0  6c 6c 20 6f 66 20 6d 65  61 74 2e 22 0d 3a a2 3c  |ll of meat.".:.<|
0000c1f0  20 c9 20 32 35 30 20 3a  20 74 24 3d 22 54 68 65  | . 250 : t$="The|
0000c200  72 65 20 69 73 20 61 20  73 74 72 6f 6e 67 2c 20  |re is a strong, |
0000c210  73 77 65 65 74 20 73 6d  65 6c 6c 20 6f 66 20 66  |sweet smell of f|
0000c220  6c 6f 77 65 72 73 2e 22  0d 3a ac 05 cb 0d 3a b6  |lowers.".:....:.|
0000c230  0c f2 61 64 64 28 74 24  29 0d 3a c0 05 e1 0d 3a  |..add(t$).:....:|
0000c240  ca 04 0d 3a d4 0c dd f2  6c 69 73 74 65 6e 0d 3a  |...:....listen.:|
0000c250  de 23 74 24 3d 22 59 6f  75 20 68 65 61 72 20 6e  |.#t$="You hear n|
0000c260  6f 74 68 69 6e 67 20 70  65 63 75 6c 69 61 72 2e  |othing peculiar.|
0000c270  22 0d 3a e8 10 c8 8e 20  72 6f 6f 6d 6e 6f 25 20  |".:.... roomno% |
0000c280  ca 0d 3a f2 3d 20 c9 20  38 35 20 3a 20 e7 20 64  |..:.= . 85 : . d|
0000c290  72 75 67 67 65 64 25 3d  31 20 74 24 3d 22 59 6f  |rugged%=1 t$="Yo|
0000c2a0  75 20 63 61 6e 20 68 65  61 72 20 74 68 65 20 67  |u can hear the g|
0000c2b0  75 61 72 64 20 73 6e 6f  72 69 6e 67 2e 22 0d 3a  |uard snoring.".:|
0000c2c0  fc 3c 20 c9 20 37 33 20  3a 20 74 24 3d 22 59 6f  |.< . 73 : t$="Yo|
0000c2d0  75 20 63 61 6e 20 68 65  61 72 20 74 68 65 20 66  |u can hear the f|
0000c2e0  69 7a 7a 69 6e 67 20 66  72 6f 6d 20 73 6f 6d 65  |izzing from some|
0000c2f0  20 62 6f 74 74 6c 65 73  2e 22 0d 3b 06 41 20 c9  | bottles.".;.A .|
0000c300  20 37 36 20 3a 20 74 24  3d 22 59 6f 75 20 63 61  | 76 : t$="You ca|
0000c310  6e 20 68 65 61 72 20 74  68 65 20 66 6c 69 65 73  |n hear the flies|
0000c320  20 62 75 7a 7a 69 6e 67  20 61 72 6f 75 6e 64 20  | buzzing around |
0000c330  74 68 65 20 74 72 61 6d  70 2e 22 0d 3b 10 44 20  |the tramp.".;.D |
0000c340  c9 20 37 38 20 3a 20 e7  20 66 69 72 65 25 3e 30  |. 78 : . fire%>0|
0000c350  20 74 24 3d 22 59 6f 75  20 63 61 6e 20 68 65 61  | t$="You can hea|
0000c360  72 20 74 68 65 20 63 72  61 63 6b 6c 69 6e 67 20  |r the crackling |
0000c370  6f 66 20 74 68 65 20 66  6c 61 6d 65 73 2e 22 0d  |of the flames.".|
0000c380  3b 1a 32 20 c9 20 38 31  2c 38 32 20 3a 20 74 24  |;.2 . 81,82 : t$|
0000c390  3d 22 59 6f 75 20 63 61  6e 20 68 65 61 72 20 74  |="You can hear t|
0000c3a0  68 65 20 62 61 6c 6c 65  74 20 6d 75 73 69 63 2e  |he ballet music.|
0000c3b0  22 0d 3b 24 4d 20 c9 20  36 36 2c 36 33 2c 36 37  |".;$M . 66,63,67|
0000c3c0  2c 33 33 2c 35 34 2c 36  31 2c 36 38 20 3a 20 74  |,33,54,61,68 : t|
0000c3d0  24 3d 22 59 6f 75 20 63  61 6e 20 68 65 61 72 20  |$="You can hear |
0000c3e0  74 68 65 20 66 6f 75 6e  74 61 69 6e 20 69 6e 20  |the fountain in |
0000c3f0  74 68 65 20 64 69 73 74  61 6e 63 65 2e 22 0d 3b  |the distance.".;|
0000c400  2e 48 20 c9 20 36 32 20  3a 20 74 24 3d 22 59 6f  |.H . 62 : t$="Yo|
0000c410  75 20 63 61 6e 20 68 65  61 72 20 74 68 65 20 66  |u can hear the f|
0000c420  6f 75 6e 74 61 69 6e 20  73 70 6c 61 74 74 65 72  |ountain splatter|
0000c430  69 6e 67 20 74 68 65 20  77 61 74 65 72 20 61 72  |ing the water ar|
0000c440  6f 75 6e 64 2e 22 0d 3b  38 3d 20 c9 20 34 39 20  |ound.".;8= . 49 |
0000c450  3a 20 74 24 3d 22 54 68  65 72 65 20 69 73 20 73  |: t$="There is s|
0000c460  6f 6d 65 20 73 69 6e 67  69 6e 67 20 67 6f 69 6e  |ome singing goin|
0000c470  67 20 6f 6e 20 74 6f 20  74 68 65 20 6e 6f 72 74  |g on to the nort|
0000c480  68 2e 22 0d 3b 42 66 20  c9 20 35 30 20 3a 20 74  |h.".;Bf . 50 : t|
0000c490  24 3d 22 59 6f 75 20 63  61 6e 20 68 65 61 72 20  |$="You can hear |
0000c4a0  6e 6f 74 68 69 6e 67 20  62 75 74 20 74 68 65 20  |nothing but the |
0000c4b0  62 65 6c 6c 6f 77 69 6e  67 20 6f 66 20 74 68 65  |bellowing of the|
0000c4c0  20 64 72 75 6e 6b 73 20  77 68 6f 20 61 72 65 20  | drunks who are |
0000c4d0  64 61 6e 63 69 6e 67 20  69 6e 20 66 72 6f 6e 74  |dancing in front|
0000c4e0  20 6f 66 20 79 6f 75 2e  22 0d 3b 4c 31 20 c9 20  | of you.".;L1 . |
0000c4f0  35 31 20 3a 20 74 24 3d  22 59 6f 75 20 63 61 6e  |51 : t$="You can|
0000c500  20 68 65 61 72 20 73 6f  6d 65 20 66 61 69 6e 74  | hear some faint|
0000c510  20 73 69 6e 67 69 6e 67  2e 22 0d 3b 56 3c 20 c9  | singing.".;V< .|
0000c520  20 32 39 20 3a 20 74 24  3d 22 59 6f 75 20 63 61  | 29 : t$="You ca|
0000c530  6e 20 68 65 61 72 20 74  68 65 20 62 61 6b 65 72  |n hear the baker|
0000c540  20 6d 75 6d 62 6c 69 6e  67 20 74 6f 20 68 69 6d  | mumbling to him|
0000c550  73 65 6c 66 2e 22 0d 3b  60 3d 20 c9 20 33 30 20  |self.".;`= . 30 |
0000c560  3a 20 74 24 3d 22 59 6f  75 20 63 61 6e 20 68 65  |: t$="You can he|
0000c570  61 72 20 74 68 65 20 62  75 74 63 68 65 72 20 74  |ar the butcher t|
0000c580  61 6c 6b 69 6e 67 20 74  6f 20 68 69 6d 73 65 6c  |alking to himsel|
0000c590  66 2e 22 0d 3b 6a 5d 20  c9 20 31 20 3a 20 74 24  |f.".;j] . 1 : t$|
0000c5a0  3d 22 54 68 65 72 65 20  69 73 20 74 68 65 20 73  |="There is the s|
0000c5b0  6f 75 6e 64 20 6f 66 20  74 65 6e 73 20 6f 66 20  |ound of tens of |
0000c5c0  70 65 6f 70 6c 65 20 61  6c 6c 20 74 72 79 69 6e  |people all tryin|
0000c5d0  67 20 74 6f 20 64 6f 20  74 68 65 69 72 20 73 68  |g to do their sh|
0000c5e0  6f 70 70 69 6e 67 20 61  74 20 6f 6e 63 65 2e 22  |opping at once."|
0000c5f0  0d 3b 74 3f 20 c9 20 32  32 2c 32 33 2c 38 33 2c  |.;t? . 22,23,83,|
0000c600  32 35 2c 32 36 2c 32 37  20 3a 20 74 24 3d 22 49  |25,26,27 : t$="I|
0000c610  74 20 73 65 65 6d 73 20  65 78 74 72 61 20 71 75  |t seems extra qu|
0000c620  69 65 74 20 64 6f 77 6e  20 68 65 72 65 2e 22 0d  |iet down here.".|
0000c630  3b 7e 3a 20 c9 20 34 37  20 3a 20 74 24 3d 22 59  |;~: . 47 : t$="Y|
0000c640  6f 75 20 63 61 6e 20 68  65 61 72 20 73 6f 6d 65  |ou can hear some|
0000c650  20 70 65 6f 70 6c 65 20  6c 61 75 67 68 69 6e 67  | people laughing|
0000c660  20 77 69 6c 64 6c 79 2e  22 0d 3b 88 36 20 c9 20  | wildly.".;.6 . |
0000c670  34 35 20 3a 20 74 24 3d  22 54 68 65 72 65 20 69  |45 : t$="There i|
0000c680  73 20 6e 6f 74 68 69 6e  67 20 62 75 74 20 64 65  |s nothing but de|
0000c690  61 74 68 6c 79 20 73 69  6c 65 6e 63 65 2e 22 0d  |athly silence.".|
0000c6a0  3b 92 4f 20 c9 20 33 37  20 3a 20 e7 20 63 72 69  |;.O . 37 : . cri|
0000c6b0  65 72 25 3d 31 20 74 24  3d 22 59 6f 75 20 63 61  |er%=1 t$="You ca|
0000c6c0  6e 20 68 65 61 72 20 74  68 65 20 79 6f 75 6e 67  |n hear the young|
0000c6d0  20 67 69 72 6c 20 77 61  69 6c 69 6e 67 20 75 6e  | girl wailing un|
0000c6e0  63 6f 6e 74 72 6f 6c 6c  61 62 6c 79 2e 22 0d 3b  |controllably.".;|
0000c6f0  9c 44 20 c9 20 31 31 2c  32 2c 36 20 3a 20 74 24  |.D . 11,2,6 : t$|
0000c700  3d 22 59 6f 75 20 63 61  6e 20 68 65 61 72 20 74  |="You can hear t|
0000c710  68 65 20 63 6f 6d 6d 6f  74 69 6f 6e 20 61 74 20  |he commotion at |
0000c720  74 68 65 20 6d 61 72 6b  65 74 2d 70 6c 61 63 65  |the market-place|
0000c730  2e 22 0d 3b a6 43 20 c9  20 32 35 33 20 3a 20 74  |.".;.C . 253 : t|
0000c740  24 3d 22 59 6f 75 20 63  61 6e 20 6f 6e 6c 79 20  |$="You can only |
0000c750  68 65 61 72 20 74 68 65  20 6f 6c 64 20 77 6f 6d  |hear the old wom|
0000c760  61 6e 20 67 72 6f 61 6e  69 6e 67 20 69 6e 20 70  |an groaning in p|
0000c770  61 69 6e 2e 22 0d 3b b0  41 20 c9 20 33 31 30 20  |ain.".;.A . 310 |
0000c780  3a 20 74 24 3d 22 59 6f  75 20 63 61 6e 20 68 65  |: t$="You can he|
0000c790  61 72 20 74 68 65 20 6f  6c 64 20 77 6f 6d 61 6e  |ar the old woman|
0000c7a0  20 63 68 61 6e 74 69 6e  67 20 74 6f 20 68 65 72  | chanting to her|
0000c7b0  73 65 6c 66 2e 22 0d 3b  ba 57 20 c9 20 32 36 38  |self.".;.W . 268|
0000c7c0  2c 32 36 39 2c 32 37 30  2c 32 37 31 2c 32 37 32  |,269,270,271,272|
0000c7d0  2c 32 37 33 2c 32 37 34  20 3a 20 74 24 3d 22 59  |,273,274 : t$="Y|
0000c7e0  6f 75 20 63 61 6e 20 68  65 61 72 20 74 68 65 20  |ou can hear the |
0000c7f0  72 6f 61 72 69 6e 67 20  65 6e 67 69 6e 65 73 20  |roaring engines |
0000c800  6f 66 20 74 68 65 20 63  61 72 73 2e 22 0d 3b c4  |of the cars.".;.|
0000c810  05 cb 0d 3b ce 19 e7 20  7a 6f 6e 65 25 3d 32 20  |...;... zone%=2 |
0000c820  84 20 7a 6f 6e 65 25 3d  33 20 8c 0d 3b d8 0d e3  |. zone%=3 ..;...|
0000c830  20 61 3d 31 20 b8 20 38  0d 3b e2 8b e7 20 65 78  | a=1 . 8.;... ex|
0000c840  69 74 73 28 72 6f 6f 6d  6e 6f 25 2c 61 29 3d 70  |its(roomno%,a)=p|
0000c850  6f 6c 69 63 65 25 28 31  29 20 84 20 65 78 69 74  |olice%(1) . exit|
0000c860  73 28 72 6f 6f 6d 6e 6f  25 2c 61 29 3d 70 6f 6c  |s(roomno%,a)=pol|
0000c870  69 63 65 25 28 32 29 20  84 20 65 78 69 74 73 28  |ice%(2) . exits(|
0000c880  72 6f 6f 6d 6e 6f 25 2c  61 29 3d 70 6f 6c 69 63  |roomno%,a)=polic|
0000c890  65 25 28 33 29 20 74 24  3d 22 59 6f 75 20 68 65  |e%(3) t$="You he|
0000c8a0  61 72 20 73 6f 6d 65 20  66 6f 6f 74 73 74 65 70  |ar some footstep|
0000c8b0  73 20 69 6e 20 74 68 65  20 64 69 73 74 61 6e 63  |s in the distanc|
0000c8c0  65 2e 22 0d 3b ec 07 ed  20 61 0d 3b f6 70 e7 20  |e.".;... a.;.p. |
0000c8d0  70 6f 6c 69 63 65 25 28  31 29 3d 72 6f 6f 6d 6e  |police%(1)=roomn|
0000c8e0  6f 25 20 84 20 70 6f 6c  69 63 65 25 28 32 29 3d  |o% . police%(2)=|
0000c8f0  72 6f 6f 6d 6e 6f 25 20  74 24 3d 22 59 6f 75 20  |roomno% t$="You |
0000c900  63 61 6e 20 68 65 61 72  20 74 68 65 20 70 6f 6c  |can hear the pol|
0000c910  69 63 65 6d 61 6e 2c 20  6d 75 6d 62 6c 69 6e 67  |iceman, mumbling|
0000c920  20 74 6f 20 68 69 6d 73  65 6c 66 2c 20 6e 65 78  | to himself, nex|
0000c930  74 20 74 6f 20 79 6f 75  2e 22 0d 3c 00 05 cd 0d  |t to you.".<....|
0000c940  3c 0a 0c f2 61 64 64 28  74 24 29 0d 3c 14 05 e1  |<...add(t$).<...|
0000c950  0d 3c 1e 04 0d 3c 28 0a  dd f2 6b 69 73 73 0d 3c  |.<...<(...kiss.<|
0000c960  32 21 74 24 3d 22 54 68  65 72 65 20 69 73 20 6e  |2!t$="There is n|
0000c970  6f 2d 6f 6e 65 20 74 6f  20 6b 69 73 73 2e 22 0d  |o-one to kiss.".|
0000c980  3c 3c 10 c8 8e 20 72 6f  6f 6d 6e 6f 25 20 ca 0d  |<<... roomno% ..|
0000c990  3c 46 3d 20 c9 20 37 38  20 3a 20 e7 20 66 69 72  |<F= . 78 : . fir|
0000c9a0  65 25 3e 30 20 74 24 3d  22 54 68 65 20 79 6f 75  |e%>0 t$="The you|
0000c9b0  6e 67 20 62 6f 79 20 64  6f 65 73 6e 27 74 20 77  |ng boy doesn't w|
0000c9c0  61 6e 74 20 61 20 6b 69  73 73 2e 22 0d 3c 50 41  |ant a kiss.".<PA|
0000c9d0  20 c9 20 37 36 20 3a 20  74 24 3d 22 54 61 6b 65  | . 76 : t$="Take|
0000c9e0  20 69 74 20 66 72 6f 6d  20 6d 65 2c 20 79 6f 75  | it from me, you|
0000c9f0  20 44 4f 4e 27 54 20 77  61 6e 74 20 74 6f 20 6b  | DON'T want to k|
0000ca00  69 73 73 20 61 20 74 72  61 6d 70 2e 22 0d 3c 5a  |iss a tramp.".<Z|
0000ca10  42 20 c9 20 38 31 20 3a  20 74 24 3d 22 54 68 65  |B . 81 : t$="The|
0000ca20  20 67 69 72 6c 73 20 72  75 6e 20 61 77 61 79 20  | girls run away |
0000ca30  66 72 6f 6d 20 79 6f 75  2c 20 75 6e 74 69 6c 20  |from you, until |
0000ca40  79 6f 75 20 63 6f 6f 6c  20 64 6f 77 6e 2e 22 0d  |you cool down.".|
0000ca50  3c 64 5a 20 c9 20 38 32  2c 32 34 39 2c 33 30 32  |<dZ . 82,249,302|
0000ca60  2c 33 31 30 20 3a 20 74  24 3d 22 54 68 65 20 6f  |,310 : t$="The o|
0000ca70  6c 64 20 77 6f 6d 61 6e  20 70 75 6e 63 68 65 73  |ld woman punches|
0000ca80  20 79 6f 75 20 6f 6e 20  74 68 65 20 6e 6f 73 65  | you on the nose|
0000ca90  2c 20 74 68 65 6e 20 72  65 73 75 6d 65 73 20 68  |, then resumes h|
0000caa0  65 72 20 77 6f 72 6b 2e  22 0d 3c 6e 2b 20 c9 20  |er work.".<n+ . |
0000cab0  32 39 20 3a 20 74 24 3d  22 54 68 65 20 62 61 6b  |29 : t$="The bak|
0000cac0  65 72 20 69 73 6e 27 74  20 6c 69 6b 65 20 74 68  |er isn't like th|
0000cad0  61 74 2e 22 0d 3c 78 2d  20 c9 20 33 30 20 3a 20  |at.".<x- . 30 : |
0000cae0  74 24 3d 22 54 68 65 20  62 75 74 63 68 65 72 20  |t$="The butcher |
0000caf0  69 73 6e 27 74 20 6c 69  6b 65 20 74 68 61 74 2e  |isn't like that.|
0000cb00  22 0d 3c 82 35 20 c9 20  31 2c 35 30 20 3a 20 74  |".<.5 . 1,50 : t|
0000cb10  24 3d 22 4e 6f 2d 6f 6e  65 20 68 65 72 65 20 77  |$="No-one here w|
0000cb20  61 6e 74 73 20 61 20 6b  69 73 73 20 66 72 6f 6d  |ants a kiss from|
0000cb30  20 79 6f 75 2e 22 0d 3c  8c 3b 20 c9 20 31 35 2c  | you.".<.; . 15,|
0000cb40  38 35 2c 33 30 35 20 3a  20 74 24 3d 22 59 6f 75  |85,305 : t$="You|
0000cb50  20 64 6f 6e 27 74 20 67  6f 20 61 72 6f 75 6e 64  | don't go around|
0000cb60  20 6b 69 73 73 69 6e 67  20 67 75 61 72 64 73 21  | kissing guards!|
0000cb70  22 0d 3c 96 41 20 c9 20  33 37 20 3a 20 e7 20 63  |".<.A . 37 : . c|
0000cb80  72 69 65 72 25 3d 31 20  74 24 3d 22 54 68 69 73  |rier%=1 t$="This|
0000cb90  20 69 73 20 61 20 63 68  75 72 63 68 20 2d 20 61  | is a church - a|
0000cba0  20 72 65 6c 69 67 69 6f  75 73 20 70 6c 61 63 65  | religious place|
0000cbb0  2e 22 0d 3c a0 59 20 c9  20 35 32 2c 36 39 2c 38  |.".<.Y . 52,69,8|
0000cbc0  34 2c 37 33 2c 37 32 2c  38 34 2c 32 34 38 2c 33  |4,73,72,84,248,3|
0000cbd0  31 32 2c 32 38 31 20 3a  20 74 24 3d 22 54 68 65  |12,281 : t$="The|
0000cbe0  20 6d 61 6e 20 77 6f 75  6c 64 20 6e 6f 74 20 62  | man would not b|
0000cbf0  65 20 68 61 70 70 79 20  69 66 20 79 6f 75 20 6b  |e happy if you k|
0000cc00  69 73 73 65 64 20 68 69  6d 2e 22 0d 3c aa 56 20  |issed him.".<.V |
0000cc10  c9 20 36 34 2c 32 36 36  20 3a 20 74 24 3d 22 54  |. 64,266 : t$="T|
0000cc20  68 65 20 62 61 72 2d 6d  61 69 64 20 73 6c 61 70  |he bar-maid slap|
0000cc30  73 20 79 6f 75 20 72 6f  75 6e 64 20 74 68 65 20  |s you round the |
0000cc40  66 61 63 65 20 61 6e 64  20 67 69 76 65 73 20 79  |face and gives y|
0000cc50  6f 75 20 61 6e 20 65 76  69 6c 20 6c 6f 6f 6b 2e  |ou an evil look.|
0000cc60  22 0d 3c b4 32 20 c9 20  32 32 36 20 3a 20 74 24  |".<.2 . 226 : t$|
0000cc70  3d 22 54 68 65 20 79 6f  75 6e 67 20 67 69 72 6c  |="The young girl|
0000cc80  20 73 74 61 72 74 73 20  73 63 72 65 61 6d 69 6e  | starts screamin|
0000cc90  67 2e 22 0d 3c be 40 20  c9 20 32 35 30 2c 33 30  |g.".<.@ . 250,30|
0000cca0  31 20 3a 20 74 24 3d 22  54 68 65 20 79 6f 75 6e  |1 : t$="The youn|
0000ccb0  67 20 77 6f 6d 61 6e 20  73 6c 61 70 73 20 79 6f  |g woman slaps yo|
0000ccc0  75 20 61 72 6f 75 6e 64  20 74 68 65 20 66 61 63  |u around the fac|
0000ccd0  65 2e 22 0d 3c c8 35 20  c9 20 32 35 33 20 3a 20  |e.".<.5 . 253 : |
0000cce0  74 24 3d 22 54 68 65 20  6f 6c 64 20 77 6f 6d 61  |t$="The old woma|
0000ccf0  6e 20 76 6f 6d 69 74 73  20 69 6e 74 6f 20 68 65  |n vomits into he|
0000cd00  72 20 73 6f 66 61 2e 22  0d 3c d2 05 cb 0d 3c dc  |r sofa.".<....<.|
0000cd10  58 e7 20 70 6f 6c 69 63  65 25 28 31 29 3d 72 6f  |X. police%(1)=ro|
0000cd20  6f 6d 6e 6f 25 20 84 20  70 6f 6c 69 63 65 25 28  |omno% . police%(|
0000cd30  32 29 3d 72 6f 6f 6d 6e  6f 25 20 74 24 3d 22 54  |2)=roomno% t$="T|
0000cd40  68 65 20 70 6f 6c 69 63  65 6d 61 6e 20 6c 6f 6f  |he policeman loo|
0000cd50  6b 73 20 61 74 20 79 6f  75 20 73 74 72 61 6e 67  |ks at you strang|
0000cd60  65 6c 79 2e 22 0d 3c e6  0c f2 61 64 64 28 74 24  |ely.".<...add(t$|
0000cd70  29 0d 3c f0 05 e1 0d 3c  fa 04 0d 3d 04 08 dd f2  |).<....<...=....|
0000cd80  67 6f 0d 3d 0e 25 e7 20  a7 69 24 2c 22 6e 6f 72  |go.=.%. .i$,"nor|
0000cd90  74 68 65 61 73 74 22 29  3e 30 20 f2 6e 6f 72 74  |theast")>0 .nort|
0000cda0  68 65 61 73 74 3a e1 0d  3d 18 26 e7 20 a7 69 24  |heast:..=.&. .i$|
0000cdb0  2c 22 6e 6f 72 74 68 20  65 61 73 74 22 29 3e 30  |,"north east")>0|
0000cdc0  20 f2 6e 6f 72 74 68 65  61 73 74 3a e1 0d 3d 22  | .northeast:..="|
0000cdd0  25 e7 20 a7 69 24 2c 22  73 6f 75 74 68 65 61 73  |%. .i$,"southeas|
0000cde0  74 22 29 3e 30 20 f2 73  6f 75 74 68 65 61 73 74  |t")>0 .southeast|
0000cdf0  3a e1 0d 3d 2c 26 e7 20  a7 69 24 2c 22 73 6f 75  |:..=,&. .i$,"sou|
0000ce00  74 68 20 65 61 73 74 22  29 3e 30 20 f2 73 6f 75  |th east")>0 .sou|
0000ce10  74 68 65 61 73 74 3a e1  0d 3d 36 25 e7 20 a7 69  |theast:..=6%. .i|
0000ce20  24 2c 22 73 6f 75 74 68  77 65 73 74 22 29 3e 30  |$,"southwest")>0|
0000ce30  20 f2 73 6f 75 74 68 77  65 73 74 3a e1 0d 3d 40  | .southwest:..=@|
0000ce40  26 e7 20 a7 69 24 2c 22  73 6f 75 74 68 20 77 65  |&. .i$,"south we|
0000ce50  73 74 22 29 3e 30 20 f2  73 6f 75 74 68 77 65 73  |st")>0 .southwes|
0000ce60  74 3a e1 0d 3d 4a 25 e7  20 a7 69 24 2c 22 6e 6f  |t:..=J%. .i$,"no|
0000ce70  72 74 68 77 65 73 74 22  29 3e 30 20 f2 6e 6f 72  |rthwest")>0 .nor|
0000ce80  74 68 77 65 73 74 3a e1  0d 3d 54 26 e7 20 a7 69  |thwest:..=T&. .i|
0000ce90  24 2c 22 6e 6f 72 74 68  20 77 65 73 74 22 29 3e  |$,"north west")>|
0000cea0  30 20 f2 6e 6f 72 74 68  77 65 73 74 3a e1 0d 3d  |0 .northwest:..=|
0000ceb0  5e 1d e7 20 a7 69 24 2c  22 6e 6f 72 74 68 22 29  |^.. .i$,"north")|
0000cec0  3e 30 20 f2 6e 6f 72 74  68 3a e1 0d 3d 68 1b e7  |>0 .north:..=h..|
0000ced0  20 a7 69 24 2c 22 65 61  73 74 22 29 3e 30 20 f2  | .i$,"east")>0 .|
0000cee0  65 61 73 74 3a e1 0d 3d  72 1d e7 20 a7 69 24 2c  |east:..=r.. .i$,|
0000cef0  22 73 6f 75 74 68 22 29  3e 30 20 f2 73 6f 75 74  |"south")>0 .sout|
0000cf00  68 3a e1 0d 3d 7c 1b e7  20 a7 69 24 2c 22 77 65  |h:..=|.. .i$,"we|
0000cf10  73 74 22 29 3e 30 20 f2  77 65 73 74 3a e1 0d 3d  |st")>0 .west:..=|
0000cf20  86 17 e7 20 a7 69 24 2c  22 75 70 22 29 3e 30 20  |... .i$,"up")>0 |
0000cf30  f2 75 70 3a e1 0d 3d 90  1b e7 20 a7 69 24 2c 22  |.up:..=... .i$,"|
0000cf40  64 6f 77 6e 22 29 3e 30  20 f2 64 6f 77 6e 3a e1  |down")>0 .down:.|
0000cf50  0d 3d 9a 1e e7 20 a7 69  24 2c 22 6e 65 22 29 3e  |.=... .i$,"ne")>|
0000cf60  30 20 f2 6e 6f 72 74 68  65 61 73 74 3a e1 0d 3d  |0 .northeast:..=|
0000cf70  a4 1e e7 20 a7 69 24 2c  22 73 65 22 29 3e 30 20  |... .i$,"se")>0 |
0000cf80  f2 73 6f 75 74 68 65 61  73 74 3a e1 0d 3d ae 1e  |.southeast:..=..|
0000cf90  e7 20 a7 69 24 2c 22 73  77 22 29 3e 30 20 f2 73  |. .i$,"sw")>0 .s|
0000cfa0  6f 75 74 68 77 65 73 74  3a e1 0d 3d b8 1e e7 20  |outhwest:..=... |
0000cfb0  a7 69 24 2c 22 6e 77 22  29 3e 30 20 f2 6e 6f 72  |.i$,"nw")>0 .nor|
0000cfc0  74 68 77 65 73 74 3a e1  0d 3d c2 19 e7 20 a7 69  |thwest:..=... .i|
0000cfd0  24 2c 22 6e 22 29 3e 30  20 f2 6e 6f 72 74 68 3a  |$,"n")>0 .north:|
0000cfe0  e1 0d 3d cc 18 e7 20 a7  69 24 2c 22 65 22 29 3e  |..=... .i$,"e")>|
0000cff0  30 20 f2 65 61 73 74 3a  e1 0d 3d d6 19 e7 20 a7  |0 .east:..=... .|
0000d000  69 24 2c 22 73 22 29 3e  30 20 f2 73 6f 75 74 68  |i$,"s")>0 .south|
0000d010  3a e1 0d 3d e0 18 e7 20  a7 69 24 2c 22 77 22 29  |:..=... .i$,"w")|
0000d020  3e 30 20 f2 77 65 73 74  3a e1 0d 3d ea 16 e7 20  |>0 .west:..=... |
0000d030  a7 69 24 2c 22 75 22 29  3e 30 20 f2 75 70 3a e1  |.i$,"u")>0 .up:.|
0000d040  0d 3d f4 18 e7 20 a7 69  24 2c 22 64 22 29 3e 30  |.=... .i$,"d")>0|
0000d050  20 f2 64 6f 77 6e 3a e1  0d 3d fe 35 f2 61 64 64  | .down:..=.5.add|
0000d060  28 22 49 20 64 6f 20 6e  6f 74 20 75 6e 64 65 72  |("I do not under|
0000d070  73 74 61 6e 64 20 77 68  65 72 65 20 79 6f 75 20  |stand where you |
0000d080  77 61 6e 74 20 74 6f 20  67 6f 2e 22 29 0d 3e 08  |want to go.").>.|
0000d090  05 e1 0d 3e 12 04 0d 3e  1c 09 dd f2 69 6e 76 0d  |...>...>....inv.|
0000d0a0  3e 26 0b 66 6c 61 67 25  3d 30 0d 3e 30 0e e3 20  |>&.flag%=0.>0.. |
0000d0b0  65 3d 31 20 b8 20 31 30  0d 3e 3a 1b e7 20 6f 77  |e=1 . 10.>:.. ow|
0000d0c0  6e 73 24 28 65 29 3c 3e  22 22 20 66 6c 61 67 25  |ns$(e)<>"" flag%|
0000d0d0  2b 3d 31 0d 3e 44 07 ed  20 65 0d 3e 4e 0f e7 20  |+=1.>D.. e.>N.. |
0000d0e0  66 6c 61 67 25 3d 30 20  8c 0d 3e 58 0d c8 8e 20  |flag%=0 ..>X... |
0000d0f0  b3 28 35 29 20 ca 0d 3e  62 2a 20 20 c9 20 31 20  |.(5) ..>b*  . 1 |
0000d100  3a 20 74 24 3d 22 59 6f  75 20 61 72 65 20 63 61  |: t$="You are ca|
0000d110  72 72 79 69 6e 67 20 6e  6f 74 68 69 6e 67 2e 22  |rrying nothing."|
0000d120  0d 3e 6c 26 20 20 c9 20  32 20 3a 20 74 24 3d 22  |.>l&  . 2 : t$="|
0000d130  59 6f 75 72 20 68 61 6e  64 73 20 61 72 65 20 65  |Your hands are e|
0000d140  6d 70 74 79 2e 22 0d 3e  76 2a 20 20 c9 20 33 20  |mpty.".>v*  . 3 |
0000d150  3a 20 74 24 3d 22 59 6f  75 20 64 6f 20 6e 6f 74  |: t$="You do not|
0000d160  20 68 61 76 65 20 61 6e  79 74 68 69 6e 67 2e 22  | have anything."|
0000d170  0d 3e 80 28 20 20 c9 20  34 20 3a 20 74 24 3d 22  |.>.(  . 4 : t$="|
0000d180  59 6f 75 72 20 70 6f 63  6b 65 74 73 20 61 72 65  |Your pockets are|
0000d190  20 65 6d 70 74 79 2e 22  0d 3e 8a 2d 20 20 c9 20  | empty.".>.-  . |
0000d1a0  35 20 3a 20 74 24 3d 22  59 6f 75 20 68 61 76 65  |5 : t$="You have|
0000d1b0  6e 27 74 20 61 6e 79 20  70 6f 73 73 65 73 73 69  |n't any possessi|
0000d1c0  6f 6e 73 2e 22 0d 3e 94  05 cb 0d 3e 9e 05 cd 0d  |ons.".>....>....|
0000d1d0  3e a8 0f e7 20 66 6c 61  67 25 3e 30 20 8c 0d 3e  |>... flag%>0 ..>|
0000d1e0  b2 10 20 20 66 6c 61 67  74 77 6f 25 3d 30 0d 3e  |..  flagtwo%=0.>|
0000d1f0  bc 1e 20 20 74 24 3d 22  59 6f 75 20 68 61 76 65  |..  t$="You have|
0000d200  20 77 69 74 68 20 79 6f  75 3b 20 22 0d 3e c6 11  | with you; ".>..|
0000d210  20 20 e7 20 66 6c 61 67  25 3d 31 20 8c 0d 3e d0  |  . flag%=1 ..>.|
0000d220  12 20 20 20 20 66 6c 61  67 74 77 6f 25 3d 31 0d  |.    flagtwo%=1.|
0000d230  3e da 12 20 20 20 20 e3  20 6c 3d 31 20 b8 20 31  |>..    . l=1 . 1|
0000d240  30 0d 3e e4 39 20 20 20  20 e7 20 6f 77 6e 73 24  |0.>.9    . owns$|
0000d250  28 6c 29 3c 3e 22 22 20  74 24 2b 3d a4 66 69 72  |(l)<>"" t$+=.fir|
0000d260  73 74 6c 28 6f 77 6e 73  24 28 6c 29 29 2b 6f 77  |stl(owns$(l))+ow|
0000d270  6e 73 24 28 6c 29 2b 22  2e 22 0d 3e ee 0b 20 20  |ns$(l)+".".>..  |
0000d280  20 20 ed 20 6c 0d 3e f8  07 20 20 cd 0d 3f 02 0d  |  . l.>..  ..?..|
0000d290  20 20 65 3d 30 3a 6c 3d  30 0d 3f 0c 14 20 20 e7  |  e=0:l=0.?..  .|
0000d2a0  20 66 6c 61 67 74 77 6f  25 3d 30 20 8c 0d 3f 16  | flagtwo%=0 ..?.|
0000d2b0  09 20 20 20 20 f5 0d 3f  20 0c 20 20 20 20 6c 2b  |.    ..? .    l+|
0000d2c0  3d 31 0d 3f 2a 3f 20 20  20 20 e7 20 6f 77 6e 73  |=1.?*?    . owns|
0000d2d0  24 28 6c 29 3c 3e 22 22  20 65 2b 3d 31 3a 74 24  |$(l)<>"" e+=1:t$|
0000d2e0  2b 3d a4 66 69 72 73 74  6c 28 6f 77 6e 73 24 28  |+=.firstl(owns$(|
0000d2f0  6c 29 29 2b 6f 77 6e 73  24 28 6c 29 2b 22 2c 20  |l))+owns$(l)+", |
0000d300  22 0d 3f 34 14 20 20 20  20 fd 20 65 3e 3d 66 6c  |".?4.    . e>=fl|
0000d310  61 67 25 2d 31 0d 3f 3e  14 20 20 20 20 e3 20 6c  |ag%-1.?>.    . l|
0000d320  3d 6c 2b 31 20 b8 20 31  30 0d 3f 48 4f 20 20 20  |=l+1 . 10.?HO   |
0000d330  20 e7 20 6f 77 6e 73 24  28 6c 29 3c 3e 22 22 20  | . owns$(l)<>"" |
0000d340  74 24 3d c1 74 24 2c 31  2c a9 28 74 24 29 2d 32  |t$=.t$,1,.(t$)-2|
0000d350  29 2b 22 20 61 6e 64 20  22 2b a4 66 69 72 73 74  |)+" and "+.first|
0000d360  6c 28 6f 77 6e 73 24 28  6c 29 29 2b 6f 77 6e 73  |l(owns$(l))+owns|
0000d370  24 28 6c 29 2b 22 2e 22  0d 3f 52 0b 20 20 20 20  |$(l)+".".?R.    |
0000d380  ed 20 6c 0d 3f 5c 07 20  20 cd 0d 3f 66 05 cd 0d  |. l.?\.  ..?f...|
0000d390  3f 70 0c f2 61 64 64 28  74 24 29 0d 3f 7a 05 e1  |?p..add(t$).?z..|
0000d3a0  0d 3f 84 04 0d 3f 8e 09  dd f2 73 61 77 0d 3f 98  |.?...?....saw.?.|
0000d3b0  1d 74 24 3d 22 59 6f 75  20 63 61 6e 6e 6f 74 20  |.t$="You cannot |
0000d3c0  63 75 74 20 74 68 61 74  2e 22 0d 3f a2 46 e7 20  |cut that.".?.F. |
0000d3d0  a4 67 6f 74 6f 72 68 65  72 65 28 22 68 61 63 6b  |.gotorhere("hack|
0000d3e0  73 61 77 22 29 3c 3e 31  20 f2 61 64 64 28 22 59  |saw")<>1 .add("Y|
0000d3f0  6f 75 20 68 61 76 65 20  6e 6f 74 68 69 6e 67 20  |ou have nothing |
0000d400  74 6f 20 63 75 74 20 77  69 74 68 2e 22 29 3a e1  |to cut with."):.|
0000d410  0d 3f ac 21 e7 20 72 6f  6f 6d 6e 6f 25 3d 38 35  |.?.!. roomno%=85|
0000d420  20 80 20 a7 69 24 2c 22  62 61 72 22 29 3e 30 20  | . .i$,"bar")>0 |
0000d430  8c 0d 3f b6 39 e7 20 65  78 69 74 73 28 38 35 2c  |..?.9. exits(85,|
0000d440  32 29 3e 30 20 f2 61 64  64 28 22 54 68 65 20 62  |2)>0 .add("The b|
0000d450  61 72 73 20 61 72 65 20  61 6c 72 65 61 64 79 20  |ars are already |
0000d460  63 75 74 2e 22 29 3a cd  3a e1 0d 3f c0 b2 74 24  |cut."):.:..?..t$|
0000d470  3d 22 59 6f 75 20 75 73  65 20 74 68 65 20 68 61  |="You use the ha|
0000d480  63 6b 73 61 77 20 74 6f  20 73 61 77 20 74 68 65  |cksaw to saw the|
0000d490  20 62 61 72 73 20 74 6f  20 74 68 65 20 63 65 6c  | bars to the cel|
0000d4a0  6c 2c 20 74 72 79 69 6e  67 20 74 6f 20 64 6f 20  |l, trying to do |
0000d4b0  69 74 20 71 75 69 65 74  6c 79 20 73 6f 20 6e 6f  |it quietly so no|
0000d4c0  74 20 74 6f 20 77 61 6b  65 20 74 68 65 20 67 75  |t to wake the gu|
0000d4d0  61 72 64 2e 20 46 69 6e  61 6c 6c 79 20 74 68 65  |ard. Finally the|
0000d4e0  20 62 61 72 73 20 66 61  6c 6c 20 6f 75 74 2c 20  | bars fall out, |
0000d4f0  6c 65 61 76 69 6e 67 20  61 6e 20 65 78 69 74 20  |leaving an exit |
0000d500  74 6f 20 74 68 65 20 65  61 73 74 2e 22 3a 65 78  |to the east.":ex|
0000d510  69 74 73 28 38 35 2c 32  29 3d 39 37 0d 3f ca 64  |its(85,2)=97.?.d|
0000d520  72 6f 6f 6d 73 24 28 38  35 2c 35 29 3d 22 73 69  |rooms$(85,5)="si|
0000d530  64 65 20 6f 66 20 74 68  65 20 62 61 72 73 20 69  |de of the bars i|
0000d540  73 20 61 20 73 6c 65 65  70 69 6e 67 20 67 75 61  |s a sleeping gua|
0000d550  72 64 2e 20 53 6f 6d 65  20 62 61 72 73 20 68 61  |rd. Some bars ha|
0000d560  76 65 20 62 65 65 6e 20  63 75 74 2c 20 70 72 6f  |ve been cut, pro|
0000d570  76 69 64 69 6e 67 20 61  6e 20 65 78 69 74 2e 22  |viding an exit."|
0000d580  0d 3f d4 12 e7 20 64 72  75 67 67 65 64 25 3d 30  |.?... drugged%=0|
0000d590  20 8c 0d 3f de 9e 74 24  3d 22 59 6f 75 20 75 73  | ..?..t$="You us|
0000d5a0  65 20 74 68 65 20 68 61  63 6b 73 61 77 20 74 6f  |e the hacksaw to|
0000d5b0  20 73 74 61 72 74 20 74  6f 20 73 61 77 20 74 68  | start to saw th|
0000d5c0  65 20 62 61 72 73 2c 20  68 6f 77 65 76 65 72 20  |e bars, however |
0000d5d0  74 68 65 20 67 75 61 72  64 20 73 77 69 6e 67 73  |the guard swings|
0000d5e0  20 72 6f 75 6e 64 20 61  6e 64 20 73 65 65 73 20  | round and sees |
0000d5f0  77 68 61 74 20 79 6f 75  20 61 72 65 20 64 6f 69  |what you are doi|
0000d600  6e 67 2e 20 48 65 20 67  72 61 62 73 20 74 68 65  |ng. He grabs the|
0000d610  20 68 61 63 6b 73 61 77  20 6f 66 66 20 79 6f 75  | hacksaw off you|
0000d620  2e 22 3a 65 78 69 74 73  28 38 35 2c 32 29 3d 30  |.":exits(85,2)=0|
0000d630  0d 3f e8 2f 72 6f 6f 6d  73 24 28 38 35 2c 35 29  |.?./rooms$(85,5)|
0000d640  3d 22 73 69 64 65 20 6f  66 20 74 68 65 20 62 61  |="side of the ba|
0000d650  72 73 20 69 73 20 61 20  67 75 61 72 64 2e 22 0d  |rs is a guard.".|
0000d660  3f f2 0e e3 20 61 3d 31  20 b8 20 31 30 0d 3f fc  |?... a=1 . 10.?.|
0000d670  24 e7 20 6f 77 6e 73 24  28 61 29 3d 22 68 61 63  |$. owns$(a)="hac|
0000d680  6b 73 61 77 22 20 6f 77  6e 73 24 28 61 29 3d 22  |ksaw" owns$(a)="|
0000d690  22 0d 40 06 3a e7 20 6f  62 6a 65 63 74 73 24 28  |".@.:. objects$(|
0000d6a0  72 6f 6f 6d 6e 6f 25 2c  61 29 3d 22 68 61 63 6b  |roomno%,a)="hack|
0000d6b0  73 61 77 22 20 6f 62 6a  65 63 74 73 24 28 72 6f  |saw" objects$(ro|
0000d6c0  6f 6d 6e 6f 25 2c 61 29  3d 22 22 0d 40 10 07 ed  |omno%,a)="".@...|
0000d6d0  20 61 0d 40 1a 05 cd 0d  40 24 1e 77 69 6d 70 25  | a.@....@$.wimp%|
0000d6e0  21 30 3d 6d 61 70 68 61  6e 25 3a f2 72 65 64 72  |!0=maphan%:.redr|
0000d6f0  61 77 6d 61 70 0d 40 2e  05 cd 0d 40 38 0c f2 61  |awmap.@....@8..a|
0000d700  64 64 28 74 24 29 0d 40  42 05 e1 0d 40 4c 04 0d  |dd(t$).@B...@L..|
0000d710  40 56 0c dd f2 70 6f 6c  69 63 65 0d 40 60 0e 70  |@V...police.@`.p|
0000d720  6f 6c 74 69 6d 65 25 3d  91 0d 40 6a 0e e3 20 62  |oltime%=..@j.. b|
0000d730  25 3d 31 20 b8 20 32 0d  40 74 2d 6e 65 78 74 70  |%=1 . 2.@t-nextp|
0000d740  6c 61 63 65 25 3d 65 78  69 74 73 28 70 6f 6c 69  |lace%=exits(poli|
0000d750  63 65 25 28 62 25 29 2c  70 6f 6c 64 69 72 25 28  |ce%(b%),poldir%(|
0000d760  62 25 29 29 0d 40 7e 14  e7 20 6e 65 78 74 70 6c  |b%)).@~.. nextpl|
0000d770  61 63 65 25 3d 30 20 8c  0d 40 88 05 f5 0d 40 92  |ace%=0 ..@....@.|
0000d780  0b 61 25 3d b3 28 38 29  0d 40 9c 33 6e 65 78 74  |.a%=.(8).@.3next|
0000d790  70 6c 61 63 65 25 3d 65  78 69 74 73 28 70 6f 6c  |place%=exits(pol|
0000d7a0  69 63 65 25 28 62 25 29  2c 61 25 29 3a 70 6f 6c  |ice%(b%),a%):pol|
0000d7b0  64 69 72 25 28 62 25 29  3d 61 25 0d 40 a6 13 fd  |dir%(b%)=a%.@...|
0000d7c0  20 6e 65 78 74 70 6c 61  63 65 25 3c 3e 30 0d 40  | nextplace%<>0.@|
0000d7d0  b0 05 cd 0d 40 ba 1a 70  6f 6c 69 63 65 25 28 62  |....@..police%(b|
0000d7e0  25 29 3d 6e 65 78 74 70  6c 61 63 65 25 0d 40 c4  |%)=nextplace%.@.|
0000d7f0  08 ed 20 62 25 0d 40 ce  10 f2 63 68 65 63 6b 70  |.. b%.@...checkp|
0000d800  6f 6c 70 6f 73 0d 40 d8  1e 77 69 6d 70 25 21 30  |olpos.@..wimp%!0|
0000d810  3d 6d 61 70 68 61 6e 25  3a f2 72 65 64 72 61 77  |=maphan%:.redraw|
0000d820  6d 61 70 0d 40 e2 05 e1  0d 40 ec 04 0d 40 f6 10  |map.@....@...@..|
0000d830  dd f2 70 6f 6c 69 63 65  6d 61 7a 65 0d 41 00 0e  |..policemaze.A..|
0000d840  70 6f 6c 74 69 6d 65 25  3d 91 0d 41 0a 2b 6e 65  |poltime%=..A.+ne|
0000d850  78 74 70 6c 61 63 65 25  3d 65 78 69 74 73 28 70  |xtplace%=exits(p|
0000d860  6f 6c 69 63 65 25 28 33  29 2c 70 6f 6c 64 69 72  |olice%(3),poldir|
0000d870  25 28 33 29 29 0d 41 14  14 e7 20 6e 65 78 74 70  |%(3)).A... nextp|
0000d880  6c 61 63 65 25 3d 30 20  8c 0d 41 1e 05 f5 0d 41  |lace%=0 ..A....A|
0000d890  28 0b 61 25 3d b3 28 38  29 0d 41 32 31 6e 65 78  |(.a%=.(8).A21nex|
0000d8a0  74 70 6c 61 63 65 25 3d  65 78 69 74 73 28 70 6f  |tplace%=exits(po|
0000d8b0  6c 69 63 65 25 28 33 29  2c 61 25 29 3a 70 6f 6c  |lice%(3),a%):pol|
0000d8c0  64 69 72 25 28 33 29 3d  61 25 0d 41 3c 13 fd 20  |dir%(3)=a%.A<.. |
0000d8d0  6e 65 78 74 70 6c 61 63  65 25 3c 3e 30 0d 41 46  |nextplace%<>0.AF|
0000d8e0  05 cd 0d 41 50 19 70 6f  6c 69 63 65 25 28 33 29  |...AP.police%(3)|
0000d8f0  3d 6e 65 78 74 70 6c 61  63 65 25 0d 41 5a 2f e7  |=nextplace%.AZ/.|
0000d900  20 70 6f 6c 69 63 65 25  28 33 29 3d 31 35 20 70  | police%(3)=15 p|
0000d910  6f 6c 69 63 65 25 28 33  29 3d 31 37 38 3a 70 6f  |olice%(3)=178:po|
0000d920  6c 64 69 72 25 28 33 29  3d 32 0d 41 64 0f f2 70  |ldir%(3)=2.Ad..p|
0000d930  6f 6c 70 6f 73 6d 61 7a  65 0d 41 6e 1e 77 69 6d  |olposmaze.An.wim|
0000d940  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
0000d950  64 72 61 77 6d 61 70 0d  41 78 05 e1 0d 41 82 04  |drawmap.Ax...A..|
0000d960  0d 41 8c 10 dd f2 70 6f  6c 70 6f 73 6d 61 7a 65  |.A....polposmaze|
0000d970  0d 41 96 1a e7 20 70 6f  6c 69 63 65 25 28 33 29  |.A... police%(3)|
0000d980  3d 72 6f 6f 6d 6e 6f 25  20 8c 0d 41 a0 37 e7 20  |=roomno% ..A.7. |
0000d990  a4 67 6f 74 28 22 62 61  64 67 65 22 29 3e 30 20  |.got("badge")>0 |
0000d9a0  80 20 a4 67 6f 74 28 22  63 61 70 22 29 3e 30 20  |. .got("cap")>0 |
0000d9b0  80 20 a4 67 6f 74 28 22  77 69 67 22 29 3e 30 20  |. .got("wig")>0 |
0000d9c0  8c 0d 41 aa 0c f2 61 64  64 28 22 22 29 0d 41 b4  |..A...add("").A.|
0000d9d0  94 f2 61 64 64 28 22 41  20 70 6f 6c 69 63 65 6d  |..add("A policem|
0000d9e0  61 6e 20 77 61 6c 6b 73  20 75 70 20 74 6f 20 79  |an walks up to y|
0000d9f0  6f 75 2c 20 62 75 74 20  68 65 20 69 73 20 6e 6f  |ou, but he is no|
0000da00  74 20 66 6f 6f 6c 65 64  20 62 79 20 79 6f 75 72  |t fooled by your|
0000da10  20 64 69 73 67 75 69 73  65 2c 20 68 65 20 77 68  | disguise, he wh|
0000da20  61 63 6b 73 20 79 6f 75  20 6f 76 65 72 20 74 68  |acks you over th|
0000da30  65 20 68 65 61 64 20 77  69 74 68 20 68 69 73 20  |e head with his |
0000da40  74 72 75 6e 63 68 65 6f  6e 2e 22 29 3a 6e 69 66  |truncheon."):nif|
0000da50  6f 6b 25 3d 31 3a f2 64  65 63 69 64 65 70 69 63  |ok%=1:.decidepic|
0000da60  73 0d 41 be 05 cc 0d 41  c8 0c f2 61 64 64 28 22  |s.A....A...add("|
0000da70  22 29 0d 41 d2 8b f2 61  64 64 28 22 41 20 70 6f  |").A...add("A po|
0000da80  6c 69 63 65 6d 61 6e 20  63 6f 6d 65 73 20 75 70  |liceman comes up|
0000da90  20 74 6f 20 79 6f 75 2e  20 27 4f 69 20 79 6f 75  | to you. 'Oi you|
0000daa0  21 27 20 68 65 20 63 72  69 65 73 2c 20 27 49 20  |!' he cries, 'I |
0000dab0  68 65 61 72 64 20 73 6f  6d 65 6f 6e 65 20 68 61  |heard someone ha|
0000dac0  64 20 65 73 63 61 70 65  64 27 2e 20 48 65 20 77  |d escaped'. He w|
0000dad0  68 61 63 6b 73 20 79 6f  75 20 6f 76 65 72 20 74  |hacks you over t|
0000dae0  68 65 20 68 65 61 64 20  77 69 74 68 20 68 69 73  |he head with his|
0000daf0  20 74 72 75 6e 63 68 65  6f 6e 2e 22 29 0d 41 dc  | truncheon.").A.|
0000db00  18 6e 69 66 6f 6b 25 3d  31 3a f2 64 65 63 69 64  |.nifok%=1:.decid|
0000db10  65 70 69 63 73 0d 41 e6  05 cd 0d 41 f0 05 cd 0d  |epics.A....A....|
0000db20  41 fa 0d e3 20 61 3d 31  20 b8 20 38 0d 42 04 52  |A... a=1 . 8.B.R|
0000db30  e7 20 65 78 69 74 73 28  72 6f 6f 6d 6e 6f 25 2c  |. exits(roomno%,|
0000db40  61 29 3d 70 6f 6c 69 63  65 25 28 33 29 20 f2 61  |a)=police%(3) .a|
0000db50  64 64 28 22 59 6f 75 20  68 65 61 72 20 73 6f 6d  |dd("You hear som|
0000db60  65 20 66 6f 6f 74 73 74  65 70 73 20 69 6e 20 74  |e footsteps in t|
0000db70  68 65 20 64 69 73 74 61  6e 63 65 2e 22 29 0d 42  |he distance.").B|
0000db80  0e 07 ed 20 61 0d 42 18  05 e1 0d 42 22 04 0d 42  |... a.B....B"..B|
0000db90  2c 11 dd f2 63 68 65 63  6b 70 6f 6c 70 6f 73 0d  |,...checkpolpos.|
0000dba0  42 36 0e e3 20 62 25 3d  31 20 b8 20 32 0d 42 40  |B6.. b%=1 . 2.B@|
0000dbb0  10 e7 20 6e 69 66 6f 6b  25 3d 31 20 e1 0d 42 4a  |.. nifok%=1 ..BJ|
0000dbc0  1b e7 20 70 6f 6c 69 63  65 25 28 62 25 29 3d 72  |.. police%(b%)=r|
0000dbd0  6f 6f 6d 6e 6f 25 20 8c  0d 42 54 37 e7 20 a4 67  |oomno% ..BT7. .g|
0000dbe0  6f 74 28 22 62 61 64 67  65 22 29 3e 30 20 80 20  |ot("badge")>0 . |
0000dbf0  a4 67 6f 74 28 22 63 61  70 22 29 3e 30 20 80 20  |.got("cap")>0 . |
0000dc00  a4 67 6f 74 28 22 77 69  67 22 29 3e 30 20 8c 0d  |.got("wig")>0 ..|
0000dc10  42 5e 0c f2 61 64 64 28  22 22 29 0d 42 68 70 f2  |B^..add("").Bhp.|
0000dc20  61 64 64 28 22 41 20 70  6f 6c 69 63 65 6d 61 6e  |add("A policeman|
0000dc30  20 77 61 6c 6b 73 20 75  70 20 74 6f 20 79 6f 75  | walks up to you|
0000dc40  2c 20 74 68 65 6e 20 68  65 20 73 65 65 73 20 79  |, then he sees y|
0000dc50  6f 75 72 20 62 61 64 67  65 20 61 6e 64 20 63 61  |our badge and ca|
0000dc60  70 20 61 6e 64 20 64 69  73 6d 69 73 73 65 73 20  |p and dismisses |
0000dc70  79 6f 75 20 61 73 20 61  6e 6f 74 68 65 72 20 70  |you as another p|
0000dc80  6f 6c 69 63 65 6d 61 6e  2e 22 29 0d 42 72 05 cc  |oliceman.").Br..|
0000dc90  0d 42 7c 0c f2 61 64 64  28 22 22 29 0d 42 86 b2  |.B|..add("").B..|
0000dca0  f2 61 64 64 28 22 41 20  70 6f 6c 69 63 65 6d 61  |.add("A policema|
0000dcb0  6e 20 63 6f 6d 65 73 20  75 70 20 74 6f 20 79 6f  |n comes up to yo|
0000dcc0  75 2e 20 27 4f 69 21 27  20 68 65 20 63 72 69 65  |u. 'Oi!' he crie|
0000dcd0  73 2c 20 27 57 68 61 74  20 79 27 64 6f 69 6e 67  |s, 'What y'doing|
0000dce0  20 6f 75 74 74 61 20 79  27 63 65 6c 6c 21 3f 27  | outta y'cell!?'|
0000dcf0  2e 20 48 65 20 77 68 61  63 6b 73 20 79 6f 75 20  |. He whacks you |
0000dd00  6f 76 65 72 20 74 68 65  20 68 65 61 64 20 77 69  |over the head wi|
0000dd10  74 68 20 68 69 73 20 74  72 75 6e 63 68 65 6f 6e  |th his truncheon|
0000dd20  20 2d 20 6d 61 79 62 65  20 61 20 6c 69 74 74 6c  | - maybe a littl|
0000dd30  65 20 74 6f 6f 20 68 61  72 64 2e 20 54 6f 74 61  |e too hard. Tota|
0000dd40  6c 20 42 6c 61 63 6b 6e  65 73 73 2e 22 29 0d 42  |l Blackness.").B|
0000dd50  90 18 6e 69 66 6f 6b 25  3d 31 3a f2 64 65 63 69  |..nifok%=1:.deci|
0000dd60  64 65 70 69 63 73 0d 42  9a 05 cd 0d 42 a4 05 cd  |depics.B....B...|
0000dd70  0d 42 ae 08 ed 20 62 25  0d 42 b8 0d e3 20 61 3d  |.B... b%.B... a=|
0000dd80  31 20 b8 20 38 0d 42 c2  70 e7 20 65 78 69 74 73  |1 . 8.B.p. exits|
0000dd90  28 72 6f 6f 6d 6e 6f 25  2c 61 29 3d 70 6f 6c 69  |(roomno%,a)=poli|
0000dda0  63 65 25 28 31 29 20 84  20 65 78 69 74 73 28 72  |ce%(1) . exits(r|
0000ddb0  6f 6f 6d 6e 6f 25 2c 61  29 3d 70 6f 6c 69 63 65  |oomno%,a)=police|
0000ddc0  25 28 32 29 20 f2 61 64  64 28 22 59 6f 75 20 68  |%(2) .add("You h|
0000ddd0  65 61 72 20 73 6f 6d 65  20 66 6f 6f 74 73 74 65  |ear some footste|
0000dde0  70 73 20 69 6e 20 74 68  65 20 64 69 73 74 61 6e  |ps in the distan|
0000ddf0  63 65 2e 22 29 0d 42 cc  07 ed 20 61 0d 42 d6 05  |ce.").B... a.B..|
0000de00  e1 0d 42 e0 04 0d 42 ea  09 dd f2 64 69 67 0d 42  |..B...B....dig.B|
0000de10  f4 26 74 24 3d 22 59 6f  75 20 68 61 76 65 20 6e  |.&t$="You have n|
0000de20  6f 74 68 69 6e 67 20 74  6f 20 64 69 67 20 77 69  |othing to dig wi|
0000de30  74 68 2e 22 0d 42 fe 28  e7 20 a4 67 6f 74 6f 72  |th.".B.(. .gotor|
0000de40  68 65 72 65 28 22 73 70  61 64 65 22 29 3d 31 20  |here("spade")=1 |
0000de50  c8 8e 20 72 6f 6f 6d 6e  6f 25 20 ca 0d 43 08 87  |.. roomno% ..C..|
0000de60  c9 20 31 33 2c 33 34 2c  33 35 2c 33 38 2c 34 31  |. 13,34,35,38,41|
0000de70  2c 32 32 36 2c 32 32 37  2c 32 37 39 2c 32 38 35  |,226,227,279,285|
0000de80  2c 32 38 36 2c 32 38 37  2c 32 38 38 2c 32 38 39  |,286,287,288,289|
0000de90  2c 32 39 30 2c 32 39 31  2c 32 39 32 20 3a 20 74  |,290,291,292 : t|
0000dea0  24 3d 22 59 6f 75 20 64  69 67 20 74 68 65 20 67  |$="You dig the g|
0000deb0  72 6f 75 6e 64 20 77 69  74 68 20 74 68 65 20 73  |round with the s|
0000dec0  70 61 64 65 2c 20 62 75  74 20 66 69 6e 64 20 6c  |pade, but find l|
0000ded0  69 74 74 6c 65 20 6f 66  20 69 6e 74 65 72 65 73  |ittle of interes|
0000dee0  74 2e 22 0d 43 12 59 c9  20 33 39 20 3a 20 e7 20  |t.".C.Y. 39 : . |
0000def0  64 75 67 25 3d 31 20 74  24 3d 22 59 6f 75 20 64  |dug%=1 t$="You d|
0000df00  69 67 20 74 68 65 20 67  61 72 64 65 6e 20 73 6f  |ig the garden so|
0000df10  6d 65 20 6d 6f 72 65 2c  20 62 75 74 20 66 69 6e  |me more, but fin|
0000df20  64 20 6e 6f 74 68 69 6e  67 20 65 6c 73 65 20 6f  |d nothing else o|
0000df30  66 20 69 6e 74 65 72 65  73 74 2e 22 0d 43 1c 0e  |f interest.".C..|
0000df40  e7 20 64 75 67 25 3d 30  20 8c 0d 43 26 9b 64 75  |. dug%=0 ..C&.du|
0000df50  67 25 3d 31 3a 74 24 3d  22 59 6f 75 20 73 74 61  |g%=1:t$="You sta|
0000df60  72 74 20 64 69 67 67 69  6e 67 20 74 68 65 20 67  |rt digging the g|
0000df70  72 6f 75 6e 64 20 77 69  74 68 20 74 68 65 20 73  |round with the s|
0000df80  70 61 64 65 2c 20 77 68  65 6e 20 61 6c 6c 20 6f  |pade, when all o|
0000df90  66 20 61 20 73 75 64 64  65 6e 20 79 6f 75 20 68  |f a sudden you h|
0000dfa0  69 74 20 73 6f 6d 65 74  68 69 6e 67 20 68 61 72  |it something har|
0000dfb0  64 2e 20 59 6f 75 20 64  75 73 74 20 61 77 61 79  |d. You dust away|
0000dfc0  20 74 68 65 20 73 6f 69  6c 20 61 6e 64 20 73 65  | the soil and se|
0000dfd0  65 20 74 68 61 74 20 69  74 20 69 73 20 61 20 62  |e that it is a b|
0000dfe0  6f 6e 65 2e 22 0d 43 30  09 62 6e 25 3d 30 0d 43  |one.".C0.bn%=0.C|
0000dff0  3a 0f e3 20 61 25 3d 31  20 b8 20 31 30 0d 43 44  |:.. a%=1 . 10.CD|
0000e000  3d e7 20 6f 62 6a 65 63  74 73 24 28 33 39 2c 61  |=. objects$(39,a|
0000e010  25 29 3d 22 22 20 80 20  62 6e 25 3d 30 20 62 6e  |%)="" . bn%=0 bn|
0000e020  25 3d 31 3a 6f 62 6a 65  63 74 73 24 28 33 39 2c  |%=1:objects$(39,|
0000e030  61 25 29 3d 22 62 6f 6e  65 22 0d 43 4e 05 ed 0d  |a%)="bone".CN...|
0000e040  43 58 25 e7 20 62 6e 25  3d 30 20 6f 62 6a 65 63  |CX%. bn%=0 objec|
0000e050  74 73 24 28 33 39 2c b3  28 31 30 29 29 3d 22 62  |ts$(39,.(10))="b|
0000e060  6f 6e 65 22 0d 43 62 05  cd 0d 43 6c 5d c9 20 32  |one".Cb...Cl]. 2|
0000e070  32 38 20 3a e7 20 64 75  67 67 65 64 25 3d 31 20  |28 :. dugged%=1 |
0000e080  74 24 3d 22 59 6f 75 20  64 69 67 20 74 68 65 20  |t$="You dig the |
0000e090  73 61 6e 64 70 69 74 20  73 6f 6d 65 20 6d 6f 72  |sandpit some mor|
0000e0a0  65 2c 20 62 75 74 20 66  69 6e 64 20 6e 6f 74 68  |e, but find noth|
0000e0b0  69 6e 67 20 65 6c 73 65  20 6f 66 20 69 6e 74 65  |ing else of inte|
0000e0c0  72 65 73 74 2e 22 0d 43  76 11 e7 20 64 75 67 67  |rest.".Cv.. dugg|
0000e0d0  65 64 25 3d 30 20 8c 0d  43 80 86 64 75 67 67 65  |ed%=0 ..C..dugge|
0000e0e0  64 25 3d 31 3a 74 24 3d  22 59 6f 75 20 73 74 61  |d%=1:t$="You sta|
0000e0f0  72 74 20 64 69 67 67 69  6e 67 20 74 68 65 20 73  |rt digging the s|
0000e100  6f 66 74 20 73 61 6e 64  20 77 69 74 68 20 74 68  |oft sand with th|
0000e110  65 20 73 70 61 64 65 20  77 68 65 6e 20 79 6f 75  |e spade when you|
0000e120  20 68 69 74 20 73 6f 6d  65 74 68 69 6e 67 20 73  | hit something s|
0000e130  6f 20 74 69 6e 79 20 79  6f 75 20 61 6c 6d 6f 73  |o tiny you almos|
0000e140  74 20 6d 69 73 73 20 69  74 2e 20 49 74 20 69 73  |t miss it. It is|
0000e150  20 61 6e 20 61 73 70 69  72 69 6e 2e 22 0d 43 8a  | an aspirin.".C.|
0000e160  09 61 73 25 3d 30 0d 43  94 0f e3 20 61 25 3d 31  |.as%=0.C... a%=1|
0000e170  20 b8 20 31 30 0d 43 9e  42 e7 20 6f 62 6a 65 63  | . 10.C.B. objec|
0000e180  74 73 24 28 32 32 38 2c  61 25 29 3d 22 22 20 80  |ts$(228,a%)="" .|
0000e190  20 61 73 25 3d 30 20 61  73 25 3d 31 3a 6f 62 6a  | as%=0 as%=1:obj|
0000e1a0  65 63 74 73 24 28 32 32  38 2c 61 25 29 3d 22 61  |ects$(228,a%)="a|
0000e1b0  73 70 69 72 69 6e 22 0d  43 a8 05 ed 0d 43 b2 29  |spirin".C....C.)|
0000e1c0  e7 20 61 73 25 3d 30 20  6f 62 6a 65 63 74 73 24  |. as%=0 objects$|
0000e1d0  28 32 32 38 2c b3 28 31  30 29 29 3d 22 61 73 70  |(228,.(10))="asp|
0000e1e0  69 72 69 6e 22 0d 43 bc  05 cd 0d 43 c6 2b 7f 20  |irin".C....C.+. |
0000e1f0  3a 20 74 24 3d 22 54 68  65 20 67 72 6f 75 6e 64  |: t$="The ground|
0000e200  20 69 73 20 74 6f 6f 20  68 61 72 64 20 74 6f 20  | is too hard to |
0000e210  64 69 67 2e 22 0d 43 d0  05 cb 0d 43 da 0c f2 61  |dig.".C....C...a|
0000e220  64 64 28 74 24 29 0d 43  e4 05 e1 0d 43 ee 04 0d  |dd(t$).C....C...|
0000e230  43 f8 0b dd f2 77 72 69  74 65 0d 44 02 0e 77 72  |C....write.D..wr|
0000e240  69 74 65 79 6e 25 3d 30  0d 44 0c 28 e7 20 72 6f  |iteyn%=0.D.(. ro|
0000e250  6f 6d 6e 6f 25 3d 35 20  80 20 77 72 69 74 74 65  |omno%=5 . writte|
0000e260  6e 25 3d 31 20 80 20 a9  28 69 24 29 3e 36 20 8c  |n%=1 . .(i$)>6 .|
0000e270  0d 44 16 0e 77 72 69 74  65 79 6e 25 3d 31 0d 44  |.D..writeyn%=1.D|
0000e280  20 56 f2 61 64 64 28 22  59 6f 75 20 73 63 72 69  | V.add("You scri|
0000e290  62 62 6c 65 20 6f 76 65  72 20 74 68 65 20 74 6f  |bble over the to|
0000e2a0  70 20 6f 66 20 79 6f 75  72 20 70 72 65 76 69 6f  |p of your previo|
0000e2b0  75 73 20 77 72 69 74 69  6e 67 2e 20 49 74 20 62  |us writing. It b|
0000e2c0  65 63 6f 6d 65 73 20 75  6e 72 65 61 64 61 62 6c  |ecomes unreadabl|
0000e2d0  65 2e 22 29 0d 44 2a 05  cd 0d 44 34 39 e7 20 72  |e.").D*...D49. r|
0000e2e0  6f 6f 6d 6e 6f 25 3d 35  20 80 20 77 72 69 74 74  |oomno%=5 . writt|
0000e2f0  65 6e 25 3d 30 20 80 20  a9 28 69 24 29 3e 36 20  |en%=0 . .(i$)>6 |
0000e300  80 20 a7 69 24 2c 22 6d  61 79 6f 72 22 29 3d 30  |. .i$,"mayor")=0|
0000e310  20 8c 0d 44 3e 0e 77 72  69 74 65 79 6e 25 3d 31  | ..D>.writeyn%=1|
0000e320  0d 44 48 0e 77 72 69 74  74 65 6e 25 3d 31 0d 44  |.DH.written%=1.D|
0000e330  52 47 f2 61 64 64 28 22  59 6f 75 20 70 69 63 6b  |RG.add("You pick|
0000e340  20 75 70 20 74 68 65 20  70 65 6e 20 61 6e 64 20  | up the pen and |
0000e350  77 72 69 74 65 20 6f 6e  20 74 68 65 20 66 6f 72  |write on the for|
0000e360  6d 2e 20 4e 6f 74 68 69  6e 67 20 68 61 70 70 65  |m. Nothing happe|
0000e370  6e 73 2e 22 29 0d 44 5c  05 cd 0d 44 66 2f e7 20  |ns.").D\...Df/. |
0000e380  72 6f 6f 6d 6e 6f 25 3d  35 20 80 20 a7 69 24 2c  |roomno%=5 . .i$,|
0000e390  22 6d 61 79 6f 72 22 29  3e 30 20 80 20 77 72 69  |"mayor")>0 . wri|
0000e3a0  74 74 65 6e 25 3d 30 20  8c 0d 44 70 0e 77 72 69  |tten%=0 ..Dp.wri|
0000e3b0  74 65 79 6e 25 3d 31 0d  44 7a 0e 77 72 69 74 74  |teyn%=1.Dz.writt|
0000e3c0  65 6e 25 3d 31 0d 44 84  4e f2 61 64 64 28 22 59  |en%=1.D.N.add("Y|
0000e3d0  6f 75 20 70 69 63 6b 20  75 70 20 74 68 65 20 70  |ou pick up the p|
0000e3e0  65 6e 20 69 6e 20 6f 6e  65 20 68 61 6e 64 20 61  |en in one hand a|
0000e3f0  6e 64 20 73 63 72 61 77  6c 20 69 6e 20 62 69 67  |nd scrawl in big|
0000e400  20 63 61 70 69 74 61 6c  20 6c 65 74 74 65 72 73  | capital letters|
0000e410  3b 22 29 0d 44 8e 16 f2  61 64 64 28 22 54 48 45  |;").D...add("THE|
0000e420  20 4d 41 59 4f 52 2e 22  29 0d 44 98 56 f2 61 64  | MAYOR.").D.V.ad|
0000e430  64 28 22 59 6f 75 20 68  65 61 72 20 61 20 66 61  |d("You hear a fa|
0000e440  69 6e 74 20 66 69 7a 7a  6c 65 20 61 73 20 61 20  |int fizzle as a |
0000e450  6c 61 72 67 65 20 66 65  61 74 68 65 72 20 6d 61  |large feather ma|
0000e460  67 69 63 61 6c 6c 79 20  61 70 70 65 61 72 73 20  |gically appears |
0000e470  61 74 20 79 6f 75 72 20  66 65 65 74 2e 22 29 0d  |at your feet.").|
0000e480  44 a2 0b 77 74 74 6e 25  3d 30 0d 44 ac 0f e3 20  |D..wttn%=0.D... |
0000e490  61 25 3d 31 20 b8 20 31  30 0d 44 b6 42 e7 20 6f  |a%=1 . 10.D.B. o|
0000e4a0  62 6a 65 63 74 73 24 28  35 2c 61 25 29 3d 22 22  |bjects$(5,a%)=""|
0000e4b0  20 80 20 77 74 74 6e 25  3d 30 20 77 74 74 6e 25  | . wttn%=0 wttn%|
0000e4c0  3d 31 3a 6f 62 6a 65 63  74 73 24 28 35 2c 61 25  |=1:objects$(5,a%|
0000e4d0  29 3d 22 66 65 61 74 68  65 72 22 0d 44 c0 05 ed  |)="feather".D...|
0000e4e0  0d 44 ca 29 e7 20 77 74  74 6e 25 3d 30 20 6f 62  |.D.). wttn%=0 ob|
0000e4f0  6a 65 63 74 73 24 28 35  2c b3 28 31 30 29 29 3d  |jects$(5,.(10))=|
0000e500  22 66 65 61 74 68 65 72  22 0d 44 d4 05 cd 0d 44  |"feather".D....D|
0000e510  de 2f e7 20 77 72 69 74  65 79 6e 25 3d 30 20 f2  |./. writeyn%=0 .|
0000e520  61 64 64 28 22 59 6f 75  20 63 61 6e 6e 6f 74 20  |add("You cannot |
0000e530  77 72 69 74 65 20 74 68  61 74 2e 22 29 0d 44 e8  |write that.").D.|
0000e540  05 e1 0d 44 f2 04 0d 44  fc 09 dd f2 62 75 79 0d  |...D...D....buy.|
0000e550  45 06 21 74 24 3d 22 54  68 65 72 65 20 69 73 20  |E.!t$="There is |
0000e560  6e 6f 74 68 69 6e 67 20  74 6f 20 62 75 79 2e 22  |nothing to buy."|
0000e570  0d 45 10 10 c8 8e 20 72  6f 6f 6d 6e 6f 25 20 ca  |.E.... roomno% .|
0000e580  0d 45 1a 40 c9 20 31 2c  32 39 2c 33 30 2c 35 32  |.E.@. 1,29,30,52|
0000e590  2c 36 34 2c 37 33 20 3a  20 74 24 3d 22 59 6f 75  |,64,73 : t$="You|
0000e5a0  20 68 61 76 65 20 6e 6f  20 6d 6f 6e 65 79 20 74  | have no money t|
0000e5b0  6f 20 62 75 79 20 61 6e  79 74 68 69 6e 67 2e 22  |o buy anything."|
0000e5c0  0d 45 24 05 cb 0d 45 2e  3b e7 20 a4 67 6f 74 28  |.E$...E.;. .got(|
0000e5d0  22 63 6f 69 6e 22 29 3e  30 20 84 20 a4 67 6f 74  |"coin")>0 . .got|
0000e5e0  28 22 63 68 65 71 75 65  22 29 3e 30 20 84 20 a4  |("cheque")>0 . .|
0000e5f0  67 6f 74 28 22 70 75 72  73 65 22 29 3e 30 20 8c  |got("purse")>0 .|
0000e600  0d 45 38 10 c8 8e 20 72  6f 6f 6d 6e 6f 25 20 ca  |.E8... roomno% .|
0000e610  0d 45 42 38 c9 20 32 39  2c 33 30 2c 37 33 20 3a  |.EB8. 29,30,73 :|
0000e620  20 74 24 3d 22 27 49 27  6d 20 6e 6f 74 20 61 63  | t$="'I'm not ac|
0000e630  63 65 70 74 69 6e 67 20  74 68 61 74 21 27 20 68  |cepting that!' h|
0000e640  65 20 73 61 79 73 2e 22  0d 45 4c 33 c9 20 36 34  |e says.".EL3. 64|
0000e650  20 3a 20 74 24 3d 22 27  49 27 6d 20 6e 6f 74 20  | : t$="'I'm not |
0000e660  61 63 63 65 70 74 69 6e  67 20 74 68 61 74 21 27  |accepting that!'|
0000e670  20 73 68 65 20 73 61 79  73 2e 22 0d 45 56 6c c9  | she says.".EVl.|
0000e680  20 35 32 20 3a 20 74 24  3d 22 27 41 6c 72 69 67  | 52 : t$="'Alrig|
0000e690  68 74 2c 20 74 68 61 74  27 6c 6c 20 64 6f 20 6d  |ht, that'll do m|
0000e6a0  65 2e 20 48 65 72 65 2c  20 68 65 72 65 27 73 20  |e. Here, here's |
0000e6b0  61 20 77 68 69 73 6b 79  2c 27 20 68 65 20 73 61  |a whisky,' he sa|
0000e6c0  79 73 2e 20 48 65 20 70  6c 61 63 65 73 20 74 68  |ys. He places th|
0000e6d0  65 20 77 68 69 73 6b 79  20 69 6e 20 79 6f 75 72  |e whisky in your|
0000e6e0  20 68 61 6e 64 2e 22 0d  45 60 20 6f 77 6e 73 24  | hand.".E` owns$|
0000e6f0  28 a4 67 6f 74 28 22 63  6f 69 6e 22 29 29 3d 22  |(.got("coin"))="|
0000e700  77 68 69 73 6b 79 22 0d  45 6a 4f c9 20 32 34 38  |whisky".EjO. 248|
0000e710  2c 32 36 36 2c 32 38 31  2c 33 31 32 20 3a 20 74  |,266,281,312 : t|
0000e720  24 3d 22 54 68 65 72 65  20 69 73 20 6e 6f 74 68  |$="There is noth|
0000e730  69 6e 67 20 68 65 72 65  20 74 68 61 74 20 79 6f  |ing here that yo|
0000e740  75 20 72 65 61 6c 6c 79  20 77 61 6e 74 20 74 6f  |u really want to|
0000e750  20 62 75 79 2e 22 0d 45  74 05 cb 0d 45 7e 05 cd  | buy.".Et...E~..|
0000e760  0d 45 88 0c f2 61 64 64  28 74 24 29 0d 45 92 05  |.E...add(t$).E..|
0000e770  e1 0d 45 9c 04 0d 45 a6  0b dd f2 65 78 69 74 73  |..E...E....exits|
0000e780  0d 45 b0 0b 66 6c 61 67  25 3d 30 0d 45 ba 0e e3  |.E..flag%=0.E...|
0000e790  20 65 3d 31 20 b8 20 31  30 0d 45 c4 22 e7 20 65  | e=1 . 10.E.". e|
0000e7a0  78 69 74 73 28 72 6f 6f  6d 6e 6f 25 2c 65 29 3c  |xits(roomno%,e)<|
0000e7b0  3e 30 20 66 6c 61 67 25  2b 3d 31 0d 45 ce 07 ed  |>0 flag%+=1.E...|
0000e7c0  20 65 0d 45 d8 0f e7 20  66 6c 61 67 25 3d 30 20  | e.E... flag%=0 |
0000e7d0  8c 0d 45 e2 0d c8 8e 20  b3 28 35 29 20 ca 0d 45  |..E.... .(5) ..E|
0000e7e0  ec 2d 20 20 c9 20 31 20  3a 20 74 24 3d 22 54 68  |.-  . 1 : t$="Th|
0000e7f0  65 72 65 20 61 72 65 20  6e 6f 20 70 6f 73 73 69  |ere are no possi|
0000e800  62 6c 65 20 65 78 69 74  73 2e 22 0d 45 f6 28 20  |ble exits.".E.( |
0000e810  20 c9 20 32 20 3a 20 74  24 3d 22 59 6f 75 20 63  | . 2 : t$="You c|
0000e820  61 6e 20 73 65 65 20 6e  6f 20 77 61 79 20 6f 75  |an see no way ou|
0000e830  74 2e 22 0d 46 00 34 20  20 c9 20 33 20 3a 20 74  |t.".F.4  . 3 : t|
0000e840  24 3d 22 59 6f 75 20 63  61 6e 20 73 65 65 20 6e  |$="You can see n|
0000e850  6f 20 64 69 72 65 63 74  69 6f 6e 20 6f 66 20 65  |o direction of e|
0000e860  73 63 61 70 65 2e 22 0d  46 0a 2c 20 20 c9 20 34  |scape.".F.,  . 4|
0000e870  20 3a 20 74 24 3d 22 41  6c 6c 20 64 69 72 65 63  | : t$="All direc|
0000e880  74 69 6f 6e 73 20 61 72  65 20 62 6c 6f 63 6b 65  |tions are blocke|
0000e890  64 2e 22 0d 46 14 2c 20  20 c9 20 35 20 3a 20 74  |d.".F.,  . 5 : t|
0000e8a0  24 3d 22 54 68 65 72 65  20 69 73 20 6e 6f 20 77  |$="There is no w|
0000e8b0  61 79 20 6f 66 20 6c 65  61 76 69 6e 67 2e 22 0d  |ay of leaving.".|
0000e8c0  46 1e 05 cb 0d 46 28 05  cd 0d 46 32 0f e7 20 66  |F....F(...F2.. f|
0000e8d0  6c 61 67 25 3e 30 20 8c  0d 46 3c 10 20 20 66 6c  |lag%>0 ..F<.  fl|
0000e8e0  61 67 74 77 6f 25 3d 30  0d 46 46 1b 20 20 74 24  |agtwo%=0.FF.  t$|
0000e8f0  3d 22 50 6f 73 73 69 62  6c 65 20 65 78 69 74 73  |="Possible exits|
0000e900  3b 20 22 0d 46 50 11 20  20 e7 20 66 6c 61 67 25  |; ".FP.  . flag%|
0000e910  3d 31 20 8c 0d 46 5a 12  20 20 20 20 66 6c 61 67  |=1 ..FZ.    flag|
0000e920  74 77 6f 25 3d 31 0d 46  64 12 20 20 20 20 e3 20  |two%=1.Fd.    . |
0000e930  6c 3d 31 20 b8 20 31 30  0d 46 6e 24 20 20 20 20  |l=1 . 10.Fn$    |
0000e940  e7 20 65 78 69 74 73 28  72 6f 6f 6d 6e 6f 25 2c  |. exits(roomno%,|
0000e950  6c 29 3c 3e 30 20 c8 8e  20 6c 20 ca 0d 46 78 1c  |l)<>0 .. l ..Fx.|
0000e960  20 20 20 20 20 20 c9 20  31 20 3a 20 74 24 2b 3d  |      . 1 : t$+=|
0000e970  22 6e 6f 72 74 68 2e 22  0d 46 82 1b 20 20 20 20  |"north.".F..    |
0000e980  20 20 c9 20 32 20 3a 20  74 24 2b 3d 22 65 61 73  |  . 2 : t$+="eas|
0000e990  74 2e 22 0d 46 8c 1c 20  20 20 20 20 20 c9 20 33  |t.".F..      . 3|
0000e9a0  20 3a 20 74 24 2b 3d 22  73 6f 75 74 68 2e 22 0d  | : t$+="south.".|
0000e9b0  46 96 1b 20 20 20 20 20  20 c9 20 34 20 3a 20 74  |F..      . 4 : t|
0000e9c0  24 2b 3d 22 77 65 73 74  2e 22 0d 46 a0 21 20 20  |$+="west.".F.!  |
0000e9d0  20 20 20 20 c9 20 35 20  3a 20 74 24 2b 3d 22 6e  |    . 5 : t$+="n|
0000e9e0  6f 72 74 68 2d 65 61 73  74 2e 22 0d 46 aa 21 20  |orth-east.".F.! |
0000e9f0  20 20 20 20 20 c9 20 36  20 3a 20 74 24 2b 3d 22  |     . 6 : t$+="|
0000ea00  73 6f 75 74 68 2d 65 61  73 74 2e 22 0d 46 b4 21  |south-east.".F.!|
0000ea10  20 20 20 20 20 20 c9 20  37 20 3a 20 74 24 2b 3d  |      . 7 : t$+=|
0000ea20  22 73 6f 75 74 68 2d 77  65 73 74 2e 22 0d 46 be  |"south-west.".F.|
0000ea30  21 20 20 20 20 20 20 c9  20 38 20 3a 20 74 24 2b  |!      . 8 : t$+|
0000ea40  3d 22 6e 6f 72 74 68 2d  77 65 73 74 2e 22 0d 46  |="north-west.".F|
0000ea50  c8 19 20 20 20 20 20 20  c9 20 39 20 3a 20 74 24  |..      . 9 : t$|
0000ea60  2b 3d 22 75 70 2e 22 0d  46 d2 1c 20 20 20 20 20  |+="up.".F..     |
0000ea70  20 c9 20 31 30 20 3a 20  74 24 2b 3d 22 64 6f 77  | . 10 : t$+="dow|
0000ea80  6e 2e 22 0d 46 dc 09 20  20 20 20 cb 0d 46 e6 0b  |n.".F..    ..F..|
0000ea90  20 20 20 20 ed 20 6c 0d  46 f0 07 20 20 cd 0d 46  |    . l.F..  ..F|
0000eaa0  fa 0d 20 20 65 3d 30 3a  6c 3d 30 0d 47 04 14 20  |..  e=0:l=0.G.. |
0000eab0  20 e7 20 66 6c 61 67 74  77 6f 25 3d 30 20 8c 0d  | . flagtwo%=0 ..|
0000eac0  47 0e 09 20 20 20 20 f5  0d 47 18 0c 20 20 20 20  |G..    ..G..    |
0000ead0  6c 2b 3d 31 0d 47 22 29  20 20 20 20 e7 20 65 78  |l+=1.G")    . ex|
0000eae0  69 74 73 28 72 6f 6f 6d  6e 6f 25 2c 6c 29 3c 3e  |its(roomno%,l)<>|
0000eaf0  30 20 65 2b 3d 31 3a c8  8e 20 6c 20 ca 0d 47 2c  |0 e+=1:.. l ..G,|
0000eb00  1d 20 20 20 20 20 20 c9  20 31 20 3a 20 74 24 2b  |.      . 1 : t$+|
0000eb10  3d 22 6e 6f 72 74 68 2c  20 22 0d 47 36 1c 20 20  |="north, ".G6.  |
0000eb20  20 20 20 20 c9 20 32 20  3a 20 74 24 2b 3d 22 65  |    . 2 : t$+="e|
0000eb30  61 73 74 2c 20 22 0d 47  40 1d 20 20 20 20 20 20  |ast, ".G@.      |
0000eb40  c9 20 33 20 3a 20 74 24  2b 3d 22 73 6f 75 74 68  |. 3 : t$+="south|
0000eb50  2c 20 22 0d 47 4a 1c 20  20 20 20 20 20 c9 20 34  |, ".GJ.      . 4|
0000eb60  20 3a 20 74 24 2b 3d 22  77 65 73 74 2c 20 22 0d  | : t$+="west, ".|
0000eb70  47 54 22 20 20 20 20 20  20 c9 20 35 20 3a 20 74  |GT"      . 5 : t|
0000eb80  24 2b 3d 22 6e 6f 72 74  68 2d 65 61 73 74 2c 20  |$+="north-east, |
0000eb90  22 0d 47 5e 22 20 20 20  20 20 20 c9 20 36 20 3a  |".G^"      . 6 :|
0000eba0  20 74 24 2b 3d 22 73 6f  75 74 68 2d 65 61 73 74  | t$+="south-east|
0000ebb0  2c 20 22 0d 47 68 22 20  20 20 20 20 20 c9 20 37  |, ".Gh"      . 7|
0000ebc0  20 3a 20 74 24 2b 3d 22  73 6f 75 74 68 2d 77 65  | : t$+="south-we|
0000ebd0  73 74 2c 20 22 0d 47 72  22 20 20 20 20 20 20 c9  |st, ".Gr"      .|
0000ebe0  20 38 20 3a 20 74 24 2b  3d 22 6e 6f 72 74 68 2d  | 8 : t$+="north-|
0000ebf0  77 65 73 74 2c 20 22 0d  47 7c 1a 20 20 20 20 20  |west, ".G|.     |
0000ec00  20 c9 20 39 20 3a 20 74  24 2b 3d 22 75 70 2c 20  | . 9 : t$+="up, |
0000ec10  22 0d 47 86 1d 20 20 20  20 20 20 c9 20 31 30 20  |".G..      . 10 |
0000ec20  3a 20 74 24 2b 3d 22 64  6f 77 6e 2c 20 22 0d 47  |: t$+="down, ".G|
0000ec30  90 09 20 20 20 20 cb 0d  47 9a 14 20 20 20 20 fd  |..    ..G..    .|
0000ec40  20 65 3e 3d 66 6c 61 67  25 2d 31 0d 47 a4 14 20  | e>=flag%-1.G.. |
0000ec50  20 20 20 e3 20 6c 3d 6c  2b 31 20 b8 20 31 30 0d  |   . l=l+1 . 10.|
0000ec60  47 ae 3e 20 20 20 20 e7  20 65 78 69 74 73 28 72  |G.>    . exits(r|
0000ec70  6f 6f 6d 6e 6f 25 2c 6c  29 3c 3e 30 20 74 24 3d  |oomno%,l)<>0 t$=|
0000ec80  c1 74 24 2c 31 2c a9 28  74 24 29 2d 32 29 2b 22  |.t$,1,.(t$)-2)+"|
0000ec90  20 61 6e 64 20 22 3a c8  8e 20 6c 20 ca 0d 47 b8  | and ":.. l ..G.|
0000eca0  1c 20 20 20 20 20 20 c9  20 31 20 3a 20 74 24 2b  |.      . 1 : t$+|
0000ecb0  3d 22 6e 6f 72 74 68 2e  22 0d 47 c2 1b 20 20 20  |="north.".G..   |
0000ecc0  20 20 20 c9 20 32 20 3a  20 74 24 2b 3d 22 65 61  |   . 2 : t$+="ea|
0000ecd0  73 74 2e 22 0d 47 cc 1c  20 20 20 20 20 20 c9 20  |st.".G..      . |
0000ece0  33 20 3a 20 74 24 2b 3d  22 73 6f 75 74 68 2e 22  |3 : t$+="south."|
0000ecf0  0d 47 d6 1b 20 20 20 20  20 20 c9 20 34 20 3a 20  |.G..      . 4 : |
0000ed00  74 24 2b 3d 22 77 65 73  74 2e 22 0d 47 e0 21 20  |t$+="west.".G.! |
0000ed10  20 20 20 20 20 c9 20 35  20 3a 20 74 24 2b 3d 22  |     . 5 : t$+="|
0000ed20  6e 6f 72 74 68 2d 65 61  73 74 2e 22 0d 47 ea 21  |north-east.".G.!|
0000ed30  20 20 20 20 20 20 c9 20  36 20 3a 20 74 24 2b 3d  |      . 6 : t$+=|
0000ed40  22 73 6f 75 74 68 2d 65  61 73 74 2e 22 0d 47 f4  |"south-east.".G.|
0000ed50  21 20 20 20 20 20 20 c9  20 37 20 3a 20 74 24 2b  |!      . 7 : t$+|
0000ed60  3d 22 73 6f 75 74 68 2d  77 65 73 74 2e 22 0d 47  |="south-west.".G|
0000ed70  fe 21 20 20 20 20 20 20  c9 20 38 20 3a 20 74 24  |.!      . 8 : t$|
0000ed80  2b 3d 22 6e 6f 72 74 68  2d 77 65 73 74 2e 22 0d  |+="north-west.".|
0000ed90  48 08 19 20 20 20 20 20  20 c9 20 39 20 3a 20 74  |H..      . 9 : t|
0000eda0  24 2b 3d 22 75 70 2e 22  0d 48 12 1c 20 20 20 20  |$+="up.".H..    |
0000edb0  20 20 c9 20 31 30 20 3a  20 74 24 2b 3d 22 64 6f  |  . 10 : t$+="do|
0000edc0  77 6e 2e 22 0d 48 1c 09  20 20 20 20 cb 0d 48 26  |wn.".H..    ..H&|
0000edd0  0b 20 20 20 20 ed 20 6c  0d 48 30 07 20 20 cd 0d  |.    . l.H0.  ..|
0000ede0  48 3a 05 cd 0d 48 44 0c  f2 61 64 64 28 74 24 29  |H:...HD..add(t$)|
0000edf0  0d 48 4e 05 e1 0d 48 58  04 0d 48 62 15 dd a4 67  |.HN...HX..Hb...g|
0000ee00  6f 74 6f 72 68 65 72 65  28 6f 62 6a 24 29 0d 48  |otorhere(obj$).H|
0000ee10  6c 0a 67 6f 74 25 3d 30  0d 48 76 0e e3 20 67 3d  |l.got%=0.Hv.. g=|
0000ee20  31 20 b8 20 31 30 0d 48  80 35 e7 20 6f 62 6a 65  |1 . 10.H.5. obje|
0000ee30  63 74 73 24 28 72 6f 6f  6d 6e 6f 25 2c 67 29 3d  |cts$(roomno%,g)=|
0000ee40  6f 62 6a 24 20 84 20 6f  77 6e 73 24 28 67 29 3d  |obj$ . owns$(g)=|
0000ee50  6f 62 6a 24 20 67 6f 74  25 3d 31 0d 48 8a 07 ed  |obj$ got%=1.H...|
0000ee60  20 67 0d 48 94 09 3d 67  6f 74 25 0d 48 9e 04 0d  | g.H..=got%.H...|
0000ee70  48 a8 0f dd a4 67 6f 74  28 6f 62 6a 24 29 0d 48  |H....got(obj$).H|
0000ee80  b2 0a 67 6f 74 25 3d 30  0d 48 bc 0e e3 20 67 3d  |..got%=0.H... g=|
0000ee90  31 20 b8 20 31 30 0d 48  c6 1a e7 20 6f 77 6e 73  |1 . 10.H... owns|
0000eea0  24 28 67 29 3d 6f 62 6a  24 20 67 6f 74 25 3d 67  |$(g)=obj$ got%=g|
0000eeb0  0d 48 d0 07 ed 20 67 0d  48 da 09 3d 67 6f 74 25  |.H... g.H..=got%|
0000eec0  0d 48 e4 04 0d 48 ee 0a  dd f2 72 65 61 64 0d 48  |.H...H....read.H|
0000eed0  f8 0d 72 65 61 64 79 6e  25 3d 30 0d 49 02 24 e7  |..readyn%=0.I.$.|
0000eee0  20 a7 69 24 2c 22 70 6c  61 71 75 65 22 29 3e 30  | .i$,"plaque")>0|
0000eef0  20 80 20 72 6f 6f 6d 6e  6f 25 3d 31 31 20 8c 0d  | . roomno%=11 ..|
0000ef00  49 0c 0d 72 65 61 64 79  6e 25 3d 31 0d 49 16 16  |I..readyn%=1.I..|
0000ef10  f2 61 64 64 28 22 49 74  20 72 65 61 64 73 2e 2e  |.add("It reads..|
0000ef20  22 29 0d 49 20 62 f2 61  64 64 28 22 20 20 54 68  |").I b.add("  Th|
0000ef30  69 73 20 4d 6f 6e 6e 75  6d 65 6e 74 20 77 61 73  |is Monnument was|
0000ef40  20 65 72 65 6b 74 65 64  20 66 6f 72 20 61 6c 6c  | erekted for all|
0000ef50  20 74 68 6f 73 65 20 77  68 6f 20 64 79 65 64 20  | those who dyed |
0000ef60  69 6e 20 74 68 65 20 57  61 72 20 61 67 61 79 6e  |in the War agayn|
0000ef70  73 74 20 74 68 65 20 4e  6f 72 77 65 67 69 61 6e  |st the Norwegian|
0000ef80  73 2e 22 29 0d 49 2a 05  cd 0d 49 34 25 e7 20 a7  |s.").I*...I4%. .|
0000ef90  69 24 2c 22 70 6c 61 71  75 65 22 29 3e 30 20 80  |i$,"plaque")>0 .|
0000efa0  20 72 6f 6f 6d 6e 6f 25  3d 33 30 33 20 8c 0d 49  | roomno%=303 ..I|
0000efb0  3e 0d 72 65 61 64 79 6e  25 3d 31 0d 49 48 16 f2  |>.readyn%=1.IH..|
0000efc0  61 64 64 28 22 49 74 20  72 65 61 64 73 2e 2e 22  |add("It reads.."|
0000efd0  29 0d 49 52 9a f2 61 64  64 28 22 20 20 54 68 69  |).IR..add("  Thi|
0000efe0  73 20 6f 69 6c 20 70 61  69 6e 74 69 6e 67 2c 20  |s oil painting, |
0000eff0  6f 66 20 4c 61 64 79 20  48 61 72 64 6c 69 6e 67  |of Lady Hardling|
0000f000  2c 20 68 61 64 20 74 6f  20 62 65 65 6e 20 63 61  |, had to been ca|
0000f010  72 65 66 75 6c 6c 79 20  63 6c 65 61 6e 65 64 20  |refully cleaned |
0000f020  62 65 63 61 75 73 65 20  6f 66 20 73 6f 6d 65 20  |because of some |
0000f030  61 6e 63 69 65 6e 74 20  67 72 61 66 66 69 74 69  |ancient graffiti|
0000f040  2c 20 74 68 65 72 65 20  68 61 64 20 62 65 65 6e  |, there had been|
0000f050  20 61 20 6d 6f 75 73 74  61 63 68 65 20 64 72 61  | a moustache dra|
0000f060  77 6e 20 6f 6e 20 69 74  21 22 29 0d 49 5c 05 cd  |wn on it!").I\..|
0000f070  0d 49 66 23 e7 20 a7 69  24 2c 22 64 6f 6f 72 22  |.If#. .i$,"door"|
0000f080  29 3e 30 20 80 20 72 6f  6f 6d 6e 6f 25 3d 33 30  |)>0 . roomno%=30|
0000f090  35 20 8c 0d 49 70 0d 72  65 61 64 79 6e 25 3d 31  |5 ..Ip.readyn%=1|
0000f0a0  0d 49 7a 16 f2 61 64 64  28 22 49 74 20 72 65 61  |.Iz..add("It rea|
0000f0b0  64 73 2e 2e 22 29 0d 49  84 26 f2 61 64 64 28 22  |ds..").I.&.add("|
0000f0c0  20 20 4e 4f 20 45 4e 54  52 59 20 46 4f 52 20 54  |  NO ENTRY FOR T|
0000f0d0  48 45 20 50 55 42 4c 49  43 2e 22 29 0d 49 8e 05  |HE PUBLIC.").I..|
0000f0e0  cd 0d 49 98 25 e7 20 a7  69 24 2c 22 70 6c 61 71  |..I.%. .i$,"plaq|
0000f0f0  75 65 22 29 3e 30 20 80  20 72 6f 6f 6d 6e 6f 25  |ue")>0 . roomno%|
0000f100  3d 32 35 32 20 8c 0d 49  a2 0d 72 65 61 64 79 6e  |=252 ..I..readyn|
0000f110  25 3d 31 0d 49 ac 2d f2  61 64 64 28 22 41 73 20  |%=1.I.-.add("As |
0000f120  66 61 72 20 61 73 20 79  6f 75 20 63 61 6e 20 74  |far as you can t|
0000f130  65 6c 6c 20 69 74 20 72  65 61 64 73 2e 2e 22 29  |ell it reads..")|
0000f140  0d 49 b6 5f f2 61 64 64  28 22 20 20 54 68 2e 73  |.I._.add("  Th.s|
0000f150  20 4d 6f 6d 75 6d 65 2e  74 20 2e 2e 73 20 65 72  | Momume.t ..s er|
0000f160  2e 2e 74 65 2e 20 66 6f  72 20 61 6c 6c 20 74 68  |..te. for all th|
0000f170  2e 73 65 20 77 68 6f 20  64 79 65 2e 20 6d 20 74  |.se who dye. m t|
0000f180  68 65 20 77 61 72 20 61  79 61 67 6e 2e 74 20 74  |he war ayagn.t t|
0000f190  68 20 4e 6f 72 77 2e 67  2e 2e 6e 73 2e 22 29 0d  |h Norw.g..ns.").|
0000f1a0  49 c0 05 cd 0d 49 ca 21  e7 20 72 6f 6f 6d 6e 6f  |I....I.!. roomno|
0000f1b0  25 3d 32 38 34 20 84 20  72 6f 6f 6d 6e 6f 25 3d  |%=284 . roomno%=|
0000f1c0  32 39 37 20 8c 0d 49 d4  15 e7 20 a7 69 24 2c 22  |297 ..I... .i$,"|
0000f1d0  73 69 67 6e 22 29 3e 30  20 8c 0d 49 de 0d 72 65  |sign")>0 ..I..re|
0000f1e0  61 64 79 6e 25 3d 31 0d  49 e8 1d f2 61 64 64 28  |adyn%=1.I...add(|
0000f1f0  22 54 68 65 20 73 69 67  6e 20 72 65 61 64 73 2e  |"The sign reads.|
0000f200  2e 2e 22 29 0d 49 f2 6c  f2 61 64 64 28 22 20 20  |..").I.l.add("  |
0000f210  59 6f 75 20 61 72 65 20  61 62 6f 75 74 20 74 6f  |You are about to|
0000f220  20 65 6e 74 65 72 20 61  6e 20 61 72 65 61 20 6f  | enter an area o|
0000f230  66 20 70 72 65 73 65 72  76 65 64 20 63 6f 75 6e  |f preserved coun|
0000f240  74 72 79 73 69 64 65 2e  20 50 6c 65 61 73 65 20  |tryside. Please |
0000f250  73 68 6f 77 20 72 65 73  70 65 63 74 20 66 6f 72  |show respect for|
0000f260  20 74 68 65 20 77 69 6c  64 6c 69 66 65 2e 22 29  | the wildlife.")|
0000f270  0d 49 fc 05 cd 0d 4a 06  05 cd 0d 4a 10 3c e7 20  |.I....J....J.<. |
0000f280  a7 69 24 2c 22 6e 65 77  73 70 61 70 65 72 22 29  |.i$,"newspaper")|
0000f290  3e 30 20 84 20 a7 69 24  2c 22 6d 61 67 61 7a 69  |>0 . .i$,"magazi|
0000f2a0  6e 65 22 29 3e 30 20 80  20 72 6f 6f 6d 6e 6f 25  |ne")>0 . roomno%|
0000f2b0  3d 32 34 38 20 8c 0d 4a  1a 0d 72 65 61 64 79 6e  |=248 ..J..readyn|
0000f2c0  25 3d 31 0d 4a 24 54 f2  61 64 64 28 22 59 6f 75  |%=1.J$T.add("You|
0000f2d0  20 66 65 65 6c 20 74 68  61 74 20 79 6f 75 20 73  | feel that you s|
0000f2e0  68 6f 75 6c 64 20 62 75  79 20 61 20 6e 65 77 73  |hould buy a news|
0000f2f0  70 61 70 65 72 20 6f 72  20 6d 61 67 61 7a 69 6e  |paper or magazin|
0000f300  65 20 62 65 66 6f 72 65  20 79 6f 75 20 72 65 61  |e before you rea|
0000f310  64 20 69 74 2e 22 29 0d  4a 2e 05 cd 0d 4a 38 26  |d it.").J....J8&|
0000f320  e7 20 a7 69 24 2c 22 6c  65 61 66 6c 65 74 22 29  |. .i$,"leaflet")|
0000f330  3e 30 20 80 20 72 6f 6f  6d 6e 6f 25 3d 32 38 31  |>0 . roomno%=281|
0000f340  20 8c 0d 4a 42 0d 72 65  61 64 79 6e 25 3d 31 0d  | ..JB.readyn%=1.|
0000f350  4a 4c 43 f2 61 64 64 28  22 54 68 65 20 6c 65 61  |JLC.add("The lea|
0000f360  66 6c 65 74 73 20 63 6f  6e 74 61 69 6e 20 6f 6e  |flets contain on|
0000f370  6c 79 20 75 73 65 6c 65  73 73 20 66 61 63 74 73  |ly useless facts|
0000f380  20 61 62 6f 75 74 20 74  68 65 20 74 6f 77 6e 2e  | about the town.|
0000f390  22 29 0d 4a 56 05 cd 0d  4a 60 22 e7 20 a7 69 24  |").JV...J`". .i$|
0000f3a0  2c 22 73 69 67 6e 22 29  3e 30 20 80 20 72 6f 6f  |,"sign")>0 . roo|
0000f3b0  6d 6e 6f 25 3d 32 39 20  8c 0d 4a 6a 0d 72 65 61  |mno%=29 ..Jj.rea|
0000f3c0  64 79 6e 25 3d 31 0d 4a  74 32 f2 61 64 64 28 22  |dyn%=1.Jt2.add("|
0000f3d0  54 68 65 20 73 69 67 6e  20 72 65 61 64 73 20 69  |The sign reads i|
0000f3e0  6e 20 62 69 67 2c 20 62  6f 6c 64 20 6c 65 74 74  |n big, bold lett|
0000f3f0  65 72 69 6e 67 3b 22 29  0d 4a 7e 2f f2 61 64 64  |ering;").J~/.add|
0000f400  28 22 20 20 53 48 4f 50  50 45 4c 49 46 54 45 52  |("  SHOPPELIFTER|
0000f410  53 20 57 49 4c 4c 20 42  45 20 50 52 4f 53 53 45  |S WILL BE PROSSE|
0000f420  43 55 54 45 44 22 29 0d  4a 88 05 cd 0d 4a 92 23  |CUTED").J....J.#|
0000f430  e7 20 a7 69 24 2c 22 73  69 67 6e 22 29 3e 30 20  |. .i$,"sign")>0 |
0000f440  80 20 72 6f 6f 6d 6e 6f  25 3d 32 32 34 20 8c 0d  |. roomno%=224 ..|
0000f450  4a 9c 0d 72 65 61 64 79  6e 25 3d 31 0d 4a a6 2c  |J..readyn%=1.J.,|
0000f460  f2 61 64 64 28 22 54 68  65 20 73 69 67 6e 20 73  |.add("The sign s|
0000f470  61 79 73 3b 20 27 50 48  4f 45 4e 49 58 20 53 54  |ays; 'PHOENIX ST|
0000f480  52 45 45 54 27 2e 22 29  0d 4a b0 05 cd 0d 4a ba  |REET'.").J....J.|
0000f490  22 e7 20 a7 69 24 2c 22  73 69 67 6e 22 29 3e 30  |". .i$,"sign")>0|
0000f4a0  20 80 20 72 6f 6f 6d 6e  6f 25 3d 31 39 20 8c 0d  | . roomno%=19 ..|
0000f4b0  4a c4 0d 72 65 61 64 79  6e 25 3d 31 0d 4a ce 55  |J..readyn%=1.J.U|
0000f4c0  f2 61 64 64 28 22 49 74  20 73 61 79 73 2c 20 27  |.add("It says, '|
0000f4d0  42 65 74 74 65 72 20 62  79 65 20 66 72 6f 6d 20  |Better bye from |
0000f4e0  42 65 6e 6a 61 6d 69 6e  20 74 68 65 20 62 75 74  |Benjamin the but|
0000f4f0  63 68 65 72 2c 20 74 68  65 20 42 65 73 74 20 42  |cher, the Best B|
0000f500  65 65 66 20 74 27 62 65  20 62 6f 72 74 27 2e 22  |eef t'be bort'."|
0000f510  29 0d 4a d8 05 cd 0d 4a  e2 22 e7 20 a7 69 24 2c  |).J....J.". .i$,|
0000f520  22 73 69 67 6e 22 29 3e  30 20 80 20 72 6f 6f 6d  |"sign")>0 . room|
0000f530  6e 6f 25 3d 37 30 20 8c  0d 4a ec 0d 72 65 61 64  |no%=70 ..J..read|
0000f540  79 6e 25 3d 31 0d 4a f6  26 f2 61 64 64 28 22 49  |yn%=1.J.&.add("I|
0000f550  74 20 73 61 79 73 2c 20  27 42 41 4c 4c 45 54 20  |t says, 'BALLET |
0000f560  53 43 48 4f 4f 4c 45 27  2e 22 29 0d 4b 00 05 cd  |SCHOOLE'.").K...|
0000f570  0d 4b 0a 2e e7 20 a7 69  24 2c 22 73 70 65 6c 6c  |.K... .i$,"spell|
0000f580  22 29 3e 30 20 80 20 a4  67 6f 74 6f 72 68 65 72  |")>0 . .gotorher|
0000f590  65 28 22 73 70 65 6c 6c  22 29 3e 30 20 8c 0d 4b  |e("spell")>0 ..K|
0000f5a0  14 0d 72 65 61 64 79 6e  25 3d 31 0d 4b 1e 3b f2  |..readyn%=1.K.;.|
0000f5b0  61 64 64 28 22 54 68 65  20 73 70 65 6c 6c 20 69  |add("The spell i|
0000f5c0  73 20 6a 75 73 74 20 73  71 75 69 67 67 6c 65 73  |s just squiggles|
0000f5d0  20 61 6e 64 20 73 79 6d  62 6f 6c 73 20 74 6f 20  | and symbols to |
0000f5e0  79 6f 75 2e 22 29 0d 4b  28 05 cd 0d 4b 32 2c e7  |you.").K(...K2,.|
0000f5f0  20 a7 69 24 2c 22 6e 6f  74 65 22 29 3e 30 20 80  | .i$,"note")>0 .|
0000f600  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 6e 6f 74  | .gotorhere("not|
0000f610  65 22 29 3e 30 20 8c 0d  4b 3c 0d 72 65 61 64 79  |e")>0 ..K<.ready|
0000f620  6e 25 3d 31 0d 4b 46 1b  f2 61 64 64 28 22 54 68  |n%=1.KF..add("Th|
0000f630  65 20 6e 6f 74 65 20 72  65 61 64 73 3a 22 29 0d  |e note reads:").|
0000f640  4b 50 b0 f2 61 64 64 28  22 20 20 46 6f 72 20 6d  |KP..add("  For m|
0000f650  79 20 43 6f 6c 6c 65 63  74 69 6f 6e 65 20 49 20  |y Collectione I |
0000f660  64 65 73 70 65 72 61 74  65 6c 79 20 6e 65 65 64  |desperately need|
0000f670  65 20 61 20 42 6f 6e 65  2c 20 66 6f 72 20 77 69  |e a Bone, for wi|
0000f680  74 68 6f 75 74 20 69 74  20 49 20 61 6d 20 73 74  |thout it I am st|
0000f690  75 63 6b 65 2e 20 49 66  20 79 6f 75 20 64 6f 20  |ucke. If you do |
0000f6a0  63 6f 6d 65 20 61 63 72  6f 73 73 65 20 6f 6e 65  |come acrosse one|
0000f6b0  20 70 6c 65 61 73 65 20  64 6f 20 6c 65 65 76 65  | please do leeve|
0000f6c0  20 69 74 20 68 65 61 72  20 66 6f 72 20 6d 65 2e  | it hear for me.|
0000f6d0  20 4d 79 20 67 72 61 63  69 6f 75 73 20 74 68 61  | My gracious tha|
0000f6e0  6e 6b 73 2c 20 57 69 6c  66 72 65 64 2e 22 29 0d  |nks, Wilfred.").|
0000f6f0  4b 5a 05 cd 0d 4b 64 34  e7 20 a7 69 24 2c 22 70  |KZ...Kd4. .i$,"p|
0000f700  61 6d 70 68 6c 65 74 22  29 3e 30 20 80 20 a4 67  |amphlet")>0 . .g|
0000f710  6f 74 6f 72 68 65 72 65  28 22 70 61 6d 70 68 6c  |otorhere("pamphl|
0000f720  65 74 22 29 3e 30 20 8c  0d 4b 6e 0d 72 65 61 64  |et")>0 ..Kn.read|
0000f730  79 6e 25 3d 31 0d 4b 78  6d f2 61 64 64 28 22 59  |yn%=1.Kxm.add("Y|
0000f740  6f 75 20 73 6b 69 6d 20  74 68 72 6f 75 67 68 20  |ou skim through |
0000f750  74 68 65 20 70 61 6d 70  68 6c 65 74 2c 20 77 68  |the pamphlet, wh|
0000f760  69 63 68 20 69 73 20 61  6c 6c 20 61 62 6f 75 74  |ich is all about|
0000f770  20 73 6e 6f 6f 6b 65 72  2e 20 59 6f 75 20 6e 6f  | snooker. You no|
0000f780  77 20 6b 6e 6f 77 20 74  68 65 20 62 61 73 69 63  |w know the basic|
0000f790  20 73 6b 69 6c 6c 73 2e  22 29 3a 70 61 6d 70 25  | skills."):pamp%|
0000f7a0  3d 31 0d 4b 82 05 cd 0d  4b 8c 2c e7 20 a7 69 24  |=1.K....K.,. .i$|
0000f7b0  2c 22 70 6c 61 6e 22 29  3e 30 20 80 20 a4 67 6f  |,"plan")>0 . .go|
0000f7c0  74 6f 72 68 65 72 65 28  22 70 6c 61 6e 22 29 3e  |torhere("plan")>|
0000f7d0  30 20 8c 0d 4b 96 0d 72  65 61 64 79 6e 25 3d 31  |0 ..K..readyn%=1|
0000f7e0  0d 4b a0 49 f2 61 64 64  28 22 54 68 65 72 65 20  |.K.I.add("There |
0000f7f0  61 72 65 20 61 20 66 65  77 20 73 79 6d 62 6f 6c  |are a few symbol|
0000f800  73 20 61 6e 64 20 73 6b  65 74 63 68 65 73 2c 20  |s and sketches, |
0000f810  62 75 74 20 75 6e 64 65  72 6e 65 61 74 68 20 69  |but underneath i|
0000f820  74 20 73 61 79 73 3a 22  29 0d 4b aa 39 f2 61 64  |t says:").K.9.ad|
0000f830  64 28 22 20 20 41 6c 74  68 6f 75 67 68 20 62 6f  |d("  Although bo|
0000f840  6e 65 73 20 6d 61 79 65  20 62 65 20 77 68 65 72  |nes maye be wher|
0000f850  65 20 64 65 61 64 20 6d  65 6e 20 6c 61 79 65 2c  |e dead men laye,|
0000f860  22 29 0d 4b b4 36 f2 61  64 64 28 22 20 20 41 20  |").K.6.add("  A |
0000f870  72 65 6c 69 67 69 6f 75  73 20 4a 61 72 64 69 6e  |religious Jardin|
0000f880  20 77 69 6c 6c 20 6c 65  61 64 20 4e 6f 74 20 44  | will lead Not D|
0000f890  69 73 6d 61 79 2e 22 29  0d 4b be 05 cd 0d 4b c8  |ismay.").K....K.|
0000f8a0  27 e7 20 a7 69 24 2c 22  68 65 61 64 73 74 6f 6e  |'. .i$,"headston|
0000f8b0  65 22 29 3e 30 20 80 20  72 6f 6f 6d 6e 6f 25 3d  |e")>0 . roomno%=|
0000f8c0  33 38 20 8c 0d 4b d2 0d  72 65 61 64 79 6e 25 3d  |38 ..K..readyn%=|
0000f8d0  31 0d 4b dc 49 f2 61 64  64 28 22 54 68 65 20 68  |1.K.I.add("The h|
0000f8e0  65 61 64 73 74 6f 6e 65  73 20 61 72 65 20 75 6e  |eadstones are un|
0000f8f0  72 65 61 64 61 62 6c 65  20 62 65 63 61 75 73 65  |readable because|
0000f900  20 6f 66 20 74 68 65 20  6f 76 65 72 67 72 6f 77  | of the overgrow|
0000f910  6e 20 67 72 61 73 73 2e  22 29 0d 4b e6 05 cd 0d  |n grass.").K....|
0000f920  4b f0 27 e7 20 a7 69 24  2c 22 68 65 61 64 73 74  |K.'. .i$,"headst|
0000f930  6f 6e 65 22 29 3e 30 20  80 20 72 6f 6f 6d 6e 6f  |one")>0 . roomno|
0000f940  25 3d 34 31 20 8c 0d 4b  fa 0d 72 65 61 64 79 6e  |%=41 ..K..readyn|
0000f950  25 3d 31 0d 4c 04 30 f2  61 64 64 28 22 54 68 65  |%=1.L.0.add("The|
0000f960  20 68 65 61 64 73 74 6f  6e 65 20 69 73 20 6f 6e  | headstone is on|
0000f970  6c 79 20 6a 75 73 74 20  72 65 61 64 61 62 6c 65  |ly just readable|
0000f980  3a 22 29 0d 4c 0e 21 f2  61 64 64 28 22 20 20 48  |:").L.!.add("  H|
0000f990  65 61 72 20 6c 79 65 73  20 54 68 27 20 4d 61 79  |ear lyes Th' May|
0000f9a0  6f 72 22 29 0d 4c 18 1e  f2 61 64 64 28 22 20 20  |or").L...add("  |
0000f9b0  42 6f 72 6e 65 3a 20 32  31 2e 34 2e 31 37 34 34  |Borne: 21.4.1744|
0000f9c0  22 29 0d 4c 22 1e f2 61  64 64 28 22 20 20 44 79  |").L"..add("  Dy|
0000f9d0  65 64 3a 20 20 31 36 2e  39 2e 31 37 39 33 22 29  |ed:  16.9.1793")|
0000f9e0  0d 4c 2c 2c f2 61 64 64  28 22 20 20 53 75 66 65  |.L,,.add("  Sufe|
0000f9f0  72 72 65 64 20 73 69 66  65 61 72 20 53 74 75 6d  |rred sifear Stum|
0000fa00  61 63 6b 20 50 61 79 6e  65 73 22 29 0d 4c 36 2a  |ack Paynes").L6*|
0000fa10  f2 61 64 64 28 22 20 20  4d 61 79 20 68 69 73 20  |.add("  May his |
0000fa20  53 6f 6c 65 20 72 65 73  74 65 20 69 6e 20 50 65  |Sole reste in Pe|
0000fa30  61 63 65 2e 22 29 0d 4c  40 05 cd 0d 4c 4a 21 e7  |ace.").L@...LJ!.|
0000fa40  20 72 6f 6f 6d 6e 6f 25  3d 32 39 35 20 84 20 72  | roomno%=295 . r|
0000fa50  6f 6f 6d 6e 6f 25 3d 32  39 34 20 8c 0d 4c 54 1a  |oomno%=294 ..LT.|
0000fa60  e7 20 a7 69 24 2c 22 68  65 61 64 73 74 6f 6e 65  |. .i$,"headstone|
0000fa70  22 29 3e 30 20 8c 0d 4c  5e 0d 72 65 61 64 79 6e  |")>0 ..L^.readyn|
0000fa80  25 3d 31 0d 4c 68 45 f2  61 64 64 28 22 54 68 65  |%=1.LhE.add("The|
0000fa90  20 68 65 61 64 73 74 6f  6e 65 73 20 61 72 65 20  | headstones are |
0000faa0  75 6e 72 65 61 64 61 62  6c 65 20 62 65 63 61 75  |unreadable becau|
0000fab0  73 65 20 6f 66 20 74 68  65 20 61 67 65 20 6f 66  |se of the age of|
0000fac0  20 74 68 65 6d 2e 22 29  0d 4c 72 05 cd 0d 4c 7c  | them.").Lr...L||
0000fad0  05 cd 0d 4c 86 22 e7 20  a7 69 24 2c 22 73 69 67  |...L.". .i$,"sig|
0000fae0  6e 22 29 3e 30 20 80 20  72 6f 6f 6d 6e 6f 25 3d  |n")>0 . roomno%=|
0000faf0  36 39 20 8c 0d 4c 90 0d  72 65 61 64 79 6e 25 3d  |69 ..L..readyn%=|
0000fb00  31 0d 4c 9a 14 f2 61 64  64 28 22 49 74 20 73 61  |1.L...add("It sa|
0000fb10  79 73 3a 22 29 0d 4c a4  8d f2 61 64 64 28 22 20  |ys:").L...add(" |
0000fb20  20 41 6e 79 20 45 71 75  69 70 65 6d 65 6e 74 65  | Any Equipemente|
0000fb30  20 69 6e 20 74 68 69 73  20 52 6f 6f 6d 20 6d 61  | in this Room ma|
0000fb40  79 65 20 62 65 20 75 73  65 64 20 62 79 65 20 74  |ye be used bye t|
0000fb50  68 65 65 20 47 65 6e 6e  65 72 61 6c 20 50 75 62  |hee Genneral Pub|
0000fb60  6c 69 63 20 74 6f 20 70  72 6f 64 75 63 65 20 57  |lic to produce W|
0000fb70  6f 72 6b 65 20 66 6f 72  20 6d 65 20 2d 20 49 20  |orke for me - I |
0000fb80  61 6d 20 64 65 73 70 65  72 61 74 20 66 6f 72 20  |am desperat for |
0000fb90  73 6f 6d 65 74 68 69 6e  67 20 74 6f 20 44 6f 21  |something to Do!|
0000fba0  22 29 0d 4c ae 05 cd 0d  4c b8 23 e7 20 a7 69 24  |").L....L.#. .i$|
0000fbb0  2c 22 6e 6f 74 65 22 29  3e 30 20 80 20 72 6f 6f  |,"note")>0 . roo|
0000fbc0  6d 6e 6f 25 3d 31 31 33  20 8c 0d 4c c2 0d 72 65  |mno%=113 ..L..re|
0000fbd0  61 64 79 6e 25 3d 31 0d  4c cc 4e f2 61 64 64 28  |adyn%=1.L.N.add(|
0000fbe0  22 4d 6f 73 74 20 6f 66  20 74 68 65 20 6e 6f 74  |"Most of the not|
0000fbf0  65 73 20 61 72 65 20 74  6f 74 61 6c 6c 79 20 69  |es are totally i|
0000fc00  6c 6c 65 67 69 62 6c 65  2c 20 79 65 74 20 6f 6e  |llegible, yet on|
0000fc10  65 20 63 61 74 63 68 65  73 20 79 6f 75 72 20 65  |e catches your e|
0000fc20  79 65 3b 22 29 0d 4c d6  9b f2 61 64 64 28 22 20  |ye;").L...add(" |
0000fc30  20 54 68 65 65 20 63 6f  75 6e 74 79 20 6a 61 6c  | Thee county jal|
0000fc40  65 20 69 73 20 50 6c 65  65 73 65 64 20 74 6f 20  |e is Pleesed to |
0000fc50  61 6e 6e 6f 75 6e 63 65  20 61 6e 20 41 64 64 69  |announce an Addi|
0000fc60  74 69 6f 6e 65 20 74 6f  20 4f 75 72 20 6d 61 7a  |tione to Our maz|
0000fc70  65 20 2d 20 69 74 20 6e  6f 77 20 69 73 20 45 76  |e - it now is Ev|
0000fc80  65 6e 20 6d 6f 72 65 20  43 6f 6e 66 75 73 69 6e  |en more Confusin|
0000fc90  67 20 74 6f 20 50 72 69  73 6f 6e 65 72 65 73 20  |g to Prisoneres |
0000fca0  2d 20 69 74 20 46 65 65  74 75 72 65 73 20 6d 61  |- it Feetures ma|
0000fcb0  67 69 63 61 6c 65 20 57  61 6c 6c 65 73 2e 22 29  |gicale Walles.")|
0000fcc0  0d 4c e0 05 cd 0d 4c ea  25 e7 20 a7 69 24 2c 22  |.L....L.%. .i$,"|
0000fcd0  6e 6f 74 69 63 65 22 29  3e 30 20 80 20 72 6f 6f  |notice")>0 . roo|
0000fce0  6d 6e 6f 25 3d 31 31 30  20 8c 0d 4c f4 0d 72 65  |mno%=110 ..L..re|
0000fcf0  61 64 79 6e 25 3d 31 0d  4c fe 1d f2 61 64 64 28  |adyn%=1.L...add(|
0000fd00  22 54 68 65 20 6e 6f 74  69 63 65 20 72 65 61 64  |"The notice read|
0000fd10  73 3b 22 29 0d 4d 08 57  f2 61 64 64 28 22 20 20  |s;").M.W.add("  |
0000fd20  42 79 65 20 74 68 65 20  74 79 6d 65 20 79 6f 75  |Bye the tyme you|
0000fd30  20 68 61 76 65 20 66 69  6e 6e 69 73 68 65 64 20  | have finnished |
0000fd40  52 65 61 64 69 6e 67 20  74 68 69 73 2c 20 79 6f  |Reading this, yo|
0000fd50  75 27 6c 6c 20 62 65 20  54 72 61 70 70 65 64 2e  |u'll be Trapped.|
0000fd60  20 47 4f 54 20 27 59 41  21 22 29 0d 4d 12 1d 74  | GOT 'YA!").M..t|
0000fd70  72 61 70 70 65 64 25 3d  31 3a 74 72 61 70 70 65  |rapped%=1:trappe|
0000fd80  64 74 69 6d 65 25 3d 91  0d 4d 1c 05 cd 0d 4d 26  |dtime%=..M....M&|
0000fd90  23 e7 20 a7 69 24 2c 22  73 69 67 6e 22 29 3e 30  |#. .i$,"sign")>0|
0000fda0  20 80 20 72 6f 6f 6d 6e  6f 25 3d 31 32 37 20 8c  | . roomno%=127 .|
0000fdb0  0d 4d 30 0d 72 65 61 64  79 6e 25 3d 31 0d 4d 3a  |.M0.readyn%=1.M:|
0000fdc0  1a f2 61 64 64 28 22 54  68 65 20 73 69 67 6e 20  |..add("The sign |
0000fdd0  73 61 79 73 3b 22 29 0d  4d 44 86 f2 61 64 64 28  |says;").MD..add(|
0000fde0  22 20 54 68 69 73 20 69  73 20 61 20 43 6f 72 74  |" This is a Cort|
0000fdf0  69 6f 6e 20 74 6f 6f 20  61 6e 79 20 70 72 69 73  |ion too any pris|
0000fe00  6f 6e 65 72 65 73 2e 20  54 68 69 73 20 4d 61 7a  |oneres. This Maz|
0000fe10  65 20 69 73 20 6e 65 61  72 65 20 49 6d 70 6f 73  |e is neare Impos|
0000fe20  73 69 62 65 6c 20 74 6f  20 6c 65 61 76 65 2c 20  |sibel to leave, |
0000fe30  79 6f 75 20 77 6f 6f 64  20 42 65 20 61 64 64 76  |you wood Be addv|
0000fe40  69 7a 65 64 20 74 6f 20  67 69 76 65 20 59 6f 75  |ized to give You|
0000fe50  72 73 65 6c 66 65 20 69  6e 6e 2e 22 29 0d 4d 4e  |rselfe inn.").MN|
0000fe60  05 cd 0d 4d 58 21 e7 20  a7 69 24 2c 22 66 6f 72  |...MX!. .i$,"for|
0000fe70  6d 22 29 3e 30 20 80 20  72 6f 6f 6d 6e 6f 25 3d  |m")>0 . roomno%=|
0000fe80  35 20 8c 0d 4d 62 0d 72  65 61 64 79 6e 25 3d 31  |5 ..Mb.readyn%=1|
0000fe90  0d 4d 6c 42 f2 61 64 64  28 22 59 6f 75 20 73 63  |.MlB.add("You sc|
0000fea0  61 6e 20 64 6f 77 6e 20  74 68 65 20 70 61 67 65  |an down the page|
0000feb0  2e 20 54 68 65 20 6f 6e  6c 79 20 69 6e 74 65 72  |. The only inter|
0000fec0  65 73 74 69 6e 67 20 74  68 69 6e 67 20 69 73 3b  |esting thing is;|
0000fed0  22 29 0d 4d 76 29 f2 61  64 64 28 22 20 20 4f 6e  |").Mv).add("  On|
0000fee0  63 65 20 74 68 65 65 20  41 72 6e 73 65 72 20 69  |ce thee Arnser i|
0000fef0  73 20 6b 6e 6f 77 6e 65  2c 22 29 0d 4d 80 2f f2  |s knowne,").M./.|
0000ff00  61 64 64 28 22 20 20 54  68 65 72 65 20 69 73 20  |add("  There is |
0000ff10  73 6f 6d 65 74 68 69 6e  67 20 49 20 73 68 61 6c  |something I shal|
0000ff20  74 20 6c 6f 61 6e 65 2e  22 29 0d 4d 8a 23 f2 61  |t loane.").M.#.a|
0000ff30  64 64 28 22 20 20 53 6f  27 6e 20 74 68 65 20 64  |dd("  So'n the d|
0000ff40  61 73 68 65 64 20 6c 79  6e 65 2c 22 29 0d 4d 94  |ashed lyne,").M.|
0000ff50  28 f2 61 64 64 28 22 20  20 41 72 6e 73 65 72 20  |(.add("  Arnser |
0000ff60  74 68 65 65 20 72 79 64  65 6c 20 6f 66 20 6d 79  |thee rydel of my|
0000ff70  6e 65 2e 22 29 0d 4d 9e  2d f2 61 64 64 28 22 20  |ne.").M.-.add(" |
0000ff80  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
*
0000ffa0  22 29 0d 4d a8 48 e7 20  77 72 69 74 74 65 6e 25  |").M.H. written%|
0000ffb0  3d 31 20 f2 61 64 64 28  22 54 68 65 72 65 20 69  |=1 .add("There i|
0000ffc0  73 20 61 6c 73 6f 20 73  6f 6d 65 20 6f 66 20 79  |s also some of y|
0000ffd0  6f 75 72 20 75 6e 72 65  61 64 61 62 6c 65 20 73  |our unreadable s|
0000ffe0  63 72 69 62 62 6c 65 2e  22 29 0d 4d b2 05 cd 0d  |cribble.").M....|
0000fff0  4d bc 2e e7 20 a7 69 24  2c 22 6e 6f 76 65 6c 22  |M... .i$,"novel"|
00010000  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
00010010  28 22 6e 6f 76 65 6c 22  29 3d 31 20 8c 0d 4d c6  |("novel")=1 ..M.|
00010020  0d 72 65 61 64 79 6e 25  3d 31 0d 4d d0 3d f2 61  |.readyn%=1.M.=.a|
00010030  64 64 28 22 59 6f 75 20  74 75 72 6e 20 6f 76 65  |dd("You turn ove|
00010040  72 20 74 68 65 20 66 69  72 73 74 20 70 61 67 65  |r the first page|
00010050  20 61 6e 64 20 73 74 61  72 74 20 72 65 61 64 69  | and start readi|
00010060  6e 67 2e 2e 2e 22 29 0d  4d da 4e f2 61 64 64 28  |ng...").M.N.add(|
00010070  22 20 20 27 48 65 20 63  61 72 65 73 73 65 64 20  |"  'He caressed |
00010080  68 65 72 20 6a 65 6e 74  6c 79 2c 20 74 75 63 68  |her jently, tuch|
00010090  69 6e 67 20 48 65 72 20  69 6e 20 6f 72 6c 20 74  |ing Her in orl t|
000100a0  68 65 20 72 79 68 74 20  70 6c 61 69 63 65 73 2e  |he ryht plaices.|
000100b0  2e 2e 27 22 29 0d 4d e4  27 f2 61 64 64 28 22 4e  |..'").M.'.add("N|
000100c0  61 68 2c 20 6e 6f 74 20  79 6f 75 72 20 73 6f 72  |ah, not your sor|
000100d0  74 20 6f 66 20 62 6f 6f  6b 2e 22 29 0d 4d ee 05  |t of book.").M..|
000100e0  cd 0d 4d f8 2e e7 20 a7  69 24 2c 22 62 69 62 6c  |..M... .i$,"bibl|
000100f0  65 22 29 3e 30 20 80 20  a4 67 6f 74 6f 72 68 65  |e")>0 . .gotorhe|
00010100  72 65 28 22 62 69 62 6c  65 22 29 3d 31 20 8c 0d  |re("bible")=1 ..|
00010110  4e 02 0d 72 65 61 64 79  6e 25 3d 31 0d 4e 0c 34  |N..readyn%=1.N.4|
00010120  f2 61 64 64 28 22 59 6f  75 20 74 75 72 6e 20 6f  |.add("You turn o|
00010130  76 65 72 20 74 68 65 20  64 65 6c 69 63 61 74 65  |ver the delicate|
00010140  20 66 69 72 73 74 20 70  61 67 65 2e 2e 2e 22 29  | first page...")|
00010150  0d 4e 16 2c f2 61 64 64  28 22 20 20 27 49 6e 20  |.N.,.add("  'In |
00010160  74 68 65 20 42 65 67 69  6e 6e 69 6e 67 20 74 68  |the Beginning th|
00010170  65 72 65 20 77 61 73 2e  2e 27 22 29 0d 4e 20 32  |ere was..'").N 2|
00010180  f2 61 64 64 28 22 59 6f  75 20 73 74 61 72 74 20  |.add("You start |
00010190  79 61 77 6e 69 6e 67 20  61 6e 64 20 73 74 6f 70  |yawning and stop|
000101a0  20 72 65 61 64 69 6e 67  20 69 74 2e 22 29 0d 4e  | reading it.").N|
000101b0  2a 05 cd 0d 4e 34 2c e7  20 a7 69 24 2c 22 62 6f  |*...N4,. .i$,"bo|
000101c0  6f 6b 22 29 3e 30 20 80  20 a4 67 6f 74 6f 72 68  |ok")>0 . .gotorh|
000101d0  65 72 65 28 22 62 6f 6f  6b 22 29 3d 31 20 8c 0d  |ere("book")=1 ..|
000101e0  4e 3e 0d 72 65 61 64 79  6e 25 3d 31 0d 4e 48 2f  |N>.readyn%=1.NH/|
000101f0  f2 61 64 64 28 22 53 63  72 61 77 6c 65 64 20 69  |.add("Scrawled i|
00010200  6e 20 73 70 69 64 65 72  79 20 68 61 6e 64 77 72  |n spidery handwr|
00010210  69 74 69 6e 67 20 69 73  3b 22 29 0d 4e 52 0c f2  |iting is;").NR..|
00010220  61 64 64 28 22 22 29 0d  4e 5c 4d f2 61 64 64 28  |add("").N\M.add(|
00010230  22 47 72 65 61 74 20 47  72 61 6e 20 46 61 6e 6e  |"Great Gran Fann|
00010240  79 2d 41 6e 6e 2c 20 20  20 20 20 20 20 20 20 20  |y-Ann,          |
00010250  20 20 20 20 20 20 20 49  6e 20 74 68 65 20 72 6f  |       In the ro|
00010260  6f 6d 20 77 68 65 72 65  20 79 6f 75 20 64 6f 72  |om where you dor|
00010270  6d 2c 22 29 0d 4e 66 4b  f2 61 64 64 28 22 42 61  |m,").NfK.add("Ba|
00010280  79 6b 65 64 20 61 20 62  69 67 20 46 6c 61 6e 2c  |yked a big Flan,|
00010290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000102a0  20 20 20 20 59 6f 75 27  6c 6c 20 66 79 6e 64 20  |    You'll fynd |
000102b0  61 20 6e 79 63 65 20 66  6f 72 6d 65 2c 22 29 0d  |a nyce forme,").|
000102c0  4e 70 58 f2 61 64 64 28  22 57 79 74 68 61 20 62  |NpX.add("Wytha b|
000102d0  72 6f 77 6e 20 61 6e 64  20 67 72 65 6e 65 20 73  |rown and grene s|
000102e0  71 75 69 73 68 79 20 6d  69 64 65 6c 2e 20 20 57  |quishy midel.  W|
000102f0  69 74 68 20 61 20 73 70  61 63 65 20 6a 75 73 74  |ith a space just|
00010300  20 72 69 67 68 74 20 66  6f 72 20 61 6e 20 41 72  | right for an Ar|
00010310  6e 73 65 72 2e 22 29 0d  4e 7a 4b f2 61 64 64 28  |nser.").NzK.add(|
00010320  22 57 68 6f 20 73 63 6f  66 66 65 64 20 74 68 69  |"Who scoffed thi|
00010330  73 20 47 72 65 61 74 20  46 6c 61 6e 2c 20 20 20  |s Great Flan,   |
00010340  20 20 20 20 20 20 20 42  65 20 73 68 75 72 65 20  |       Be shure |
00010350  74 68 61 74 20 69 74 27  73 20 72 69 67 68 74 2c  |that it's right,|
00010360  22 29 0d 4e 84 4d f2 61  64 64 28 22 41 6e 64 20  |").N.M.add("And |
00010370  62 65 63 61 79 6d 20 61  20 64 65 61 64 20 6d 61  |becaym a dead ma|
00010380  6e 2c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |n,              |
00010390  20 20 4f 72 20 79 6f 75  27 6c 6c 20 6e 65 76 65  |  Or you'll neve|
000103a0  72 20 67 65 74 20 46 6c  69 67 68 74 2c 22 29 0d  |r get Flight,").|
000103b0  4e 8e 52 f2 61 64 64 28  22 59 6f 75 20 6e 65 65  |N.R.add("You nee|
000103c0  64 20 74 27 6b 6e 6f 77  20 74 6f 20 61 72 6e 73  |d t'know to arns|
000103d0  65 72 20 74 68 69 73 20  52 79 64 65 6c 2e 20 49  |er this Rydel. I|
000103e0  73 65 6e 63 68 75 6c 20  74 27 62 65 63 6f 6d 65  |senchul t'become|
000103f0  20 61 20 47 6f 6f 64 20  44 61 6e 63 65 72 2e 22  | a Good Dancer."|
00010400  29 0d 4e 98 05 cd 0d 4e  a2 2d e7 20 72 65 61 64  |).N....N.-. read|
00010410  79 6e 25 3d 30 20 f2 61  64 64 28 22 59 6f 75 20  |yn%=0 .add("You |
00010420  63 61 6e 6e 6f 74 20 72  65 61 64 20 74 68 61 74  |cannot read that|
00010430  2e 22 29 0d 4e ac 05 e1  0d 4e b6 04 0d 4e c0 0b  |.").N....N...N..|
00010440  dd f2 64 72 69 6e 6b 0d  4e ca 1d 74 24 3d 22 59  |..drink.N..t$="Y|
00010450  6f 75 20 61 72 65 20 6e  6f 74 20 74 68 69 72 73  |ou are not thirs|
00010460  74 79 2e 22 0d 4e d4 30  e7 20 a7 69 24 2c 22 77  |ty.".N.0. .i$,"w|
00010470  68 69 73 6b 79 22 29 3e  30 20 80 20 a4 67 6f 74  |hisky")>0 . .got|
00010480  6f 72 68 65 72 65 28 22  77 68 69 73 6b 79 22 29  |orhere("whisky")|
00010490  3d 31 20 8c 0d 4e de 4b  74 24 3d 22 59 6f 75 20  |=1 ..N.Kt$="You |
000104a0  67 75 6c 70 20 64 6f 77  6e 20 74 68 65 20 77 68  |gulp down the wh|
000104b0  69 73 6b 79 20 61 6e 64  20 79 6f 75 72 20 74 68  |isky and your th|
000104c0  72 6f 61 74 20 62 65 63  6f 6d 65 73 20 61 20 6d  |roat becomes a m|
000104d0  61 73 73 20 6f 66 20 66  6c 61 6d 65 73 2e 22 0d  |ass of flames.".|
000104e0  4e e8 0e e3 20 70 3d 31  20 b8 20 31 30 0d 4e f2  |N... p=1 . 10.N.|
000104f0  23 e7 20 6f 77 6e 73 24  28 70 29 3d 22 77 68 69  |#. owns$(p)="whi|
00010500  73 6b 79 22 20 6f 77 6e  73 24 28 70 29 3d 22 22  |sky" owns$(p)=""|
00010510  0d 4e fc 39 e7 20 6f 62  6a 65 63 74 73 24 28 72  |.N.9. objects$(r|
00010520  6f 6f 6d 6e 6f 25 2c 70  29 3d 22 77 68 69 73 6b  |oomno%,p)="whisk|
00010530  79 22 20 6f 62 6a 65 63  74 73 24 28 72 6f 6f 6d  |y" objects$(room|
00010540  6e 6f 25 2c 70 29 3d 22  22 0d 4f 06 07 ed 20 70  |no%,p)="".O... p|
00010550  0d 4f 10 05 cd 0d 4f 1a  30 e7 20 a7 69 24 2c 22  |.O....O.0. .i$,"|
00010560  70 6f 74 69 6f 6e 22 29  3e 30 20 80 20 a4 67 6f  |potion")>0 . .go|
00010570  74 6f 72 68 65 72 65 28  22 70 6f 74 69 6f 6e 22  |torhere("potion"|
00010580  29 3d 31 20 8c 0d 4f 24  a4 74 24 3d 22 59 6f 75  |)=1 ..O$.t$="You|
00010590  20 67 75 6c 70 20 64 6f  77 6e 20 74 68 65 20 70  | gulp down the p|
000105a0  6f 74 69 6f 6e 2e 20 41  20 66 65 77 20 73 65 63  |otion. A few sec|
000105b0  6f 6e 64 73 20 67 6f 20  62 79 20 74 68 65 6e 20  |onds go by then |
000105c0  79 6f 75 72 20 68 65 61  64 20 73 74 61 72 74 73  |your head starts|
000105d0  20 73 68 61 6b 69 6e 67  2e 20 59 6f 75 20 70 75  | shaking. You pu|
000105e0  74 20 75 70 20 79 6f 75  72 20 68 61 6e 64 73 20  |t up your hands |
000105f0  74 6f 20 73 74 65 61 64  79 20 69 74 2c 20 62 75  |to steady it, bu|
00010600  74 20 74 68 65 6e 20 69  74 20 45 58 50 4c 4f 44  |t then it EXPLOD|
00010610  45 53 21 22 3a 6e 69 66  6f 6b 25 3d 31 3a f2 64  |ES!":nifok%=1:.d|
00010620  65 63 69 64 65 70 69 63  73 0d 4f 2e 0e e3 20 70  |ecidepics.O... p|
00010630  3d 31 20 b8 20 31 30 0d  4f 38 23 e7 20 6f 77 6e  |=1 . 10.O8#. own|
00010640  73 24 28 70 29 3d 22 70  6f 74 69 6f 6e 22 20 6f  |s$(p)="potion" o|
00010650  77 6e 73 24 28 70 29 3d  22 22 0d 4f 42 39 e7 20  |wns$(p)="".OB9. |
00010660  6f 62 6a 65 63 74 73 24  28 72 6f 6f 6d 6e 6f 25  |objects$(roomno%|
00010670  2c 70 29 3d 22 70 6f 74  69 6f 6e 22 20 6f 62 6a  |,p)="potion" obj|
00010680  65 63 74 73 24 28 72 6f  6f 6d 6e 6f 25 2c 70 29  |ects$(roomno%,p)|
00010690  3d 22 22 0d 4f 4c 07 ed  20 70 0d 4f 56 05 cd 0d  |="".OL.. p.OV...|
000106a0  4f 60 0c f2 61 64 64 28  74 24 29 0d 4f 6a 05 e1  |O`..add(t$).Oj..|
000106b0  0d 4f 74 04 0d 4f 7e 09  dd f2 65 61 74 0d 4f 88  |.Ot..O~...eat.O.|
000106c0  0c 65 61 74 79 6e 25 3d  30 0d 4f 92 2c e7 20 a7  |.eatyn%=0.O.,. .|
000106d0  69 24 2c 22 70 69 6c 6c  22 29 3e 30 20 80 20 a4  |i$,"pill")>0 . .|
000106e0  67 6f 74 6f 72 68 65 72  65 28 22 70 69 6c 6c 22  |gotorhere("pill"|
000106f0  29 3d 31 20 8c 0d 4f 9c  0c 65 61 74 79 6e 25 3d  |)=1 ..O..eatyn%=|
00010700  31 0d 4f a6 48 f2 61 64  64 28 22 59 6f 75 20 65  |1.O.H.add("You e|
00010710  61 74 20 74 68 65 20 70  69 6c 6c 2c 20 66 65 65  |at the pill, fee|
00010720  6c 20 64 72 6f 77 73 79  20 61 6e 64 20 66 61 6c  |l drowsy and fal|
00010730  6c 20 61 73 6c 65 65 70  20 66 6f 72 20 61 20 77  |l asleep for a w|
00010740  68 69 6c 65 2e 2e 2e 22  29 0d 4f b0 0e e3 20 70  |hile...").O... p|
00010750  3d 31 20 b8 20 31 30 0d  4f ba 21 e7 20 6f 77 6e  |=1 . 10.O.!. own|
00010760  73 24 28 70 29 3d 22 70  69 6c 6c 22 20 6f 77 6e  |s$(p)="pill" own|
00010770  73 24 28 70 29 3d 22 22  0d 4f c4 37 e7 20 6f 62  |s$(p)="".O.7. ob|
00010780  6a 65 63 74 73 24 28 72  6f 6f 6d 6e 6f 25 2c 70  |jects$(roomno%,p|
00010790  29 3d 22 70 69 6c 6c 22  20 6f 62 6a 65 63 74 73  |)="pill" objects|
000107a0  24 28 72 6f 6f 6d 6e 6f  25 2c 70 29 3d 22 22 0d  |$(roomno%,p)="".|
000107b0  4f ce 07 ed 20 70 0d 4f  d8 1c 73 6c 65 65 70 25  |O... p.O..sleep%|
000107c0  3d 31 3a 73 6c 65 65 70  6f 6c 64 74 69 6d 65 25  |=1:sleepoldtime%|
000107d0  3d 91 0d 4f e2 05 cd 0d  4f ec 24 e7 20 a7 69 24  |=..O....O.$. .i$|
000107e0  2c 22 73 77 65 65 74 22  29 3e 30 20 80 20 72 6f  |,"sweet")>0 . ro|
000107f0  6f 6d 6e 6f 25 3d 32 34  38 20 8c 0d 4f f6 0c 65  |omno%=248 ..O..e|
00010800  61 74 79 6e 25 3d 31 0d  50 00 30 f2 61 64 64 28  |atyn%=1.P.0.add(|
00010810  22 59 6f 75 27 6c 6c 20  68 61 76 65 20 74 6f 20  |"You'll have to |
00010820  62 75 79 20 74 68 65 20  73 77 65 65 74 73 20 66  |buy the sweets f|
00010830  69 72 73 74 2e 22 29 0d  50 0a 05 cd 0d 50 14 2e  |irst.").P....P..|
00010840  e7 20 a7 69 24 2c 22 61  70 70 6c 65 22 29 3e 30  |. .i$,"apple")>0|
00010850  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 61  | . .gotorhere("a|
00010860  70 70 6c 65 22 29 3d 31  20 8c 0d 50 1e 0c 65 61  |pple")=1 ..P..ea|
00010870  74 79 6e 25 3d 31 0d 50  28 4b f2 61 64 64 28 22  |tyn%=1.P(K.add("|
00010880  59 6f 75 20 65 61 74 20  74 68 65 20 61 70 70 6c  |You eat the appl|
00010890  65 2c 20 69 74 20 74 61  73 74 65 73 20 67 6f 72  |e, it tastes gor|
000108a0  67 65 6f 75 73 20 61 6e  64 20 79 6f 75 20 66 65  |geous and you fe|
000108b0  65 6c 20 6d 75 63 68 20  62 65 74 74 65 72 2e 22  |el much better."|
000108c0  29 0d 50 32 0e e3 20 70  3d 31 20 b8 20 31 30 0d  |).P2.. p=1 . 10.|
000108d0  50 3c 22 e7 20 6f 77 6e  73 24 28 70 29 3d 22 61  |P<". owns$(p)="a|
000108e0  70 70 6c 65 22 20 6f 77  6e 73 24 28 70 29 3d 22  |pple" owns$(p)="|
000108f0  22 0d 50 46 38 e7 20 6f  62 6a 65 63 74 73 24 28  |".PF8. objects$(|
00010900  72 6f 6f 6d 6e 6f 25 2c  70 29 3d 22 61 70 70 6c  |roomno%,p)="appl|
00010910  65 22 20 6f 62 6a 65 63  74 73 24 28 72 6f 6f 6d  |e" objects$(room|
00010920  6e 6f 25 2c 70 29 3d 22  22 0d 50 50 07 ed 20 70  |no%,p)="".PP.. p|
00010930  0d 50 5a 05 cd 0d 50 64  2c e7 20 a7 69 24 2c 22  |.PZ...Pd,. .i$,"|
00010940  6e 65 77 74 22 29 3e 30  20 80 20 a4 67 6f 74 6f  |newt")>0 . .goto|
00010950  72 68 65 72 65 28 22 6e  65 77 74 22 29 3d 31 20  |rhere("newt")=1 |
00010960  8c 0d 50 6e 0c 65 61 74  79 6e 25 3d 31 0d 50 78  |..Pn.eatyn%=1.Px|
00010970  3a f2 61 64 64 28 22 59  6f 75 20 6c 65 74 20 74  |:.add("You let t|
00010980  68 65 20 6e 65 77 74 20  73 6c 69 64 65 20 64 6f  |he newt slide do|
00010990  77 6e 20 79 6f 75 72 20  74 68 72 6f 61 74 2e 20  |wn your throat. |
000109a0  59 75 63 6b 2e 22 29 0d  50 82 0e e3 20 70 3d 31  |Yuck.").P... p=1|
000109b0  20 b8 20 31 30 0d 50 8c  21 e7 20 6f 77 6e 73 24  | . 10.P.!. owns$|
000109c0  28 70 29 3d 22 6e 65 77  74 22 20 6f 77 6e 73 24  |(p)="newt" owns$|
000109d0  28 70 29 3d 22 22 0d 50  96 37 e7 20 6f 62 6a 65  |(p)="".P.7. obje|
000109e0  63 74 73 24 28 72 6f 6f  6d 6e 6f 25 2c 70 29 3d  |cts$(roomno%,p)=|
000109f0  22 6e 65 77 74 22 20 6f  62 6a 65 63 74 73 24 28  |"newt" objects$(|
00010a00  72 6f 6f 6d 6e 6f 25 2c  70 29 3d 22 22 0d 50 a0  |roomno%,p)="".P.|
00010a10  07 ed 20 70 0d 50 aa 05  cd 0d 50 b4 2e e7 20 a7  |.. p.P....P... .|
00010a20  69 24 2c 22 73 77 65 65  74 22 29 3e 30 20 80 20  |i$,"sweet")>0 . |
00010a30  a4 67 6f 74 6f 72 68 65  72 65 28 22 73 77 65 65  |.gotorhere("swee|
00010a40  74 22 29 3d 31 20 8c 0d  50 be 0c 65 61 74 79 6e  |t")=1 ..P..eatyn|
00010a50  25 3d 31 0d 50 c8 5f f2  61 64 64 28 22 59 6f 75  |%=1.P._.add("You|
00010a60  20 62 72 75 73 68 20 6f  66 66 20 74 68 65 20 6c  | brush off the l|
00010a70  61 79 65 72 73 20 6f 66  20 66 6c 75 66 66 20 61  |ayers of fluff a|
00010a80  6e 64 20 70 6f 70 20 69  74 20 69 6e 74 6f 20 79  |nd pop it into y|
00010a90  6f 75 72 20 6d 6f 75 74  68 2e 20 49 74 20 74 61  |our mouth. It ta|
00010aa0  73 74 65 73 20 71 75 69  74 65 20 6e 69 63 65 2e  |stes quite nice.|
00010ab0  22 29 0d 50 d2 0e e3 20  70 3d 31 20 b8 20 31 30  |").P... p=1 . 10|
00010ac0  0d 50 dc 22 e7 20 6f 77  6e 73 24 28 70 29 3d 22  |.P.". owns$(p)="|
00010ad0  73 77 65 65 74 22 20 6f  77 6e 73 24 28 70 29 3d  |sweet" owns$(p)=|
00010ae0  22 22 0d 50 e6 38 e7 20  6f 62 6a 65 63 74 73 24  |"".P.8. objects$|
00010af0  28 72 6f 6f 6d 6e 6f 25  2c 70 29 3d 22 73 77 65  |(roomno%,p)="swe|
00010b00  65 74 22 20 6f 62 6a 65  63 74 73 24 28 72 6f 6f  |et" objects$(roo|
00010b10  6d 6e 6f 25 2c 70 29 3d  22 22 0d 50 f0 07 ed 20  |mno%,p)="".P... |
00010b20  70 0d 50 fa 05 cd 0d 51  04 2e e7 20 a7 69 24 2c  |p.P....Q... .i$,|
00010b30  22 6d 6f 75 73 65 22 29  3e 30 20 80 20 a4 67 6f  |"mouse")>0 . .go|
00010b40  74 6f 72 68 65 72 65 28  22 6d 6f 75 73 65 22 29  |torhere("mouse")|
00010b50  3d 31 20 8c 0d 51 0e 0c  65 61 74 79 6e 25 3d 31  |=1 ..Q..eatyn%=1|
00010b60  0d 51 18 9b f2 61 64 64  28 22 59 6f 75 20 6d 75  |.Q...add("You mu|
00010b70  73 74 20 62 65 20 6d 61  64 2c 20 62 75 74 20 79  |st be mad, but y|
00010b80  6f 75 20 63 6c 6f 73 65  20 79 6f 75 72 20 65 79  |ou close your ey|
00010b90  65 73 20 61 6e 64 20 74  61 6b 65 20 61 20 62 69  |es and take a bi|
00010ba0  74 65 2c 20 61 20 66 65  77 20 73 65 63 6f 6e 64  |te, a few second|
00010bb0  73 20 6c 61 74 65 72 20  79 6f 75 20 66 65 65 6c  |s later you feel|
00010bc0  20 71 75 65 65 7a 79 20  61 6e 64 20 63 6f 6c 6c  | queezy and coll|
00010bd0  61 70 73 65 20 6f 6e 74  6f 20 74 68 65 20 67 72  |apse onto the gr|
00010be0  6f 75 6e 64 20 69 6e 20  61 67 6f 6e 79 2e 20 42  |ound in agony. B|
00010bf0  6c 61 63 6b 6e 65 73 73  2e 22 29 0d 51 22 18 6e  |lackness.").Q".n|
00010c00  69 66 6f 6b 25 3d 31 3a  f2 64 65 63 69 64 65 70  |ifok%=1:.decidep|
00010c10  69 63 73 0d 51 2c 0e e3  20 70 3d 31 20 b8 20 31  |ics.Q,.. p=1 . 1|
00010c20  30 0d 51 36 22 e7 20 6f  77 6e 73 24 28 70 29 3d  |0.Q6". owns$(p)=|
00010c30  22 6d 6f 75 73 65 22 20  6f 77 6e 73 24 28 70 29  |"mouse" owns$(p)|
00010c40  3d 22 22 0d 51 40 38 e7  20 6f 62 6a 65 63 74 73  |="".Q@8. objects|
00010c50  24 28 72 6f 6f 6d 6e 6f  25 2c 70 29 3d 22 6d 6f  |$(roomno%,p)="mo|
00010c60  75 73 65 22 20 6f 62 6a  65 63 74 73 24 28 72 6f  |use" objects$(ro|
00010c70  6f 6d 6e 6f 25 2c 70 29  3d 22 22 0d 51 4a 07 ed  |omno%,p)="".QJ..|
00010c80  20 70 0d 51 54 05 cd 0d  51 5e 38 e7 20 a7 69 24  | p.QT...Q^8. .i$|
00010c90  2c 22 62 72 65 61 64 63  72 75 6d 62 22 29 3e 30  |,"breadcrumb")>0|
00010ca0  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 62  | . .gotorhere("b|
00010cb0  72 65 61 64 63 72 75 6d  62 22 29 3d 31 20 8c 0d  |readcrumb")=1 ..|
00010cc0  51 68 0c 65 61 74 79 6e  25 3d 31 0d 51 72 3a f2  |Qh.eatyn%=1.Qr:.|
00010cd0  61 64 64 28 22 59 6f 75  20 65 61 74 20 74 68 65  |add("You eat the|
00010ce0  20 62 72 65 61 64 63 72  75 6d 62 2c 20 67 6f 73  | breadcrumb, gos|
00010cf0  68 20 74 68 61 74 20 77  61 73 20 66 69 6c 6c 69  |h that was filli|
00010d00  6e 67 2e 22 29 0d 51 7c  0e e3 20 70 3d 31 20 b8  |ng.").Q|.. p=1 .|
00010d10  20 31 30 0d 51 86 27 e7  20 6f 77 6e 73 24 28 70  | 10.Q.'. owns$(p|
00010d20  29 3d 22 62 72 65 61 64  63 72 75 6d 62 22 20 6f  |)="breadcrumb" o|
00010d30  77 6e 73 24 28 70 29 3d  22 22 0d 51 90 3d e7 20  |wns$(p)="".Q.=. |
00010d40  6f 62 6a 65 63 74 73 24  28 72 6f 6f 6d 6e 6f 25  |objects$(roomno%|
00010d50  2c 70 29 3d 22 62 72 65  61 64 63 72 75 6d 62 22  |,p)="breadcrumb"|
00010d60  20 6f 62 6a 65 63 74 73  24 28 72 6f 6f 6d 6e 6f  | objects$(roomno|
00010d70  25 2c 70 29 3d 22 22 0d  51 9a 07 ed 20 70 0d 51  |%,p)="".Q... p.Q|
00010d80  a4 05 cd 0d 51 ae 22 e7  20 a7 69 24 2c 22 6c 6f  |....Q.". .i$,"lo|
00010d90  61 66 22 29 3e 30 20 80  20 72 6f 6f 6d 6e 6f 25  |af")>0 . roomno%|
00010da0  3d 32 39 20 8c 0d 51 b8  0c 65 61 74 79 6e 25 3d  |=29 ..Q..eatyn%=|
00010db0  31 0d 51 c2 e6 f2 61 64  64 28 22 54 68 65 20 62  |1.Q...add("The b|
00010dc0  61 6b 65 72 20 68 69 74  73 20 79 6f 75 20 6f 76  |aker hits you ov|
00010dd0  65 72 20 74 68 65 20 68  65 61 64 20 61 6e 64 20  |er the head and |
00010de0  73 68 6f 75 74 73 20 27  54 48 49 45 46 21 21 27  |shouts 'THIEF!!'|
00010df0  20 73 65 76 65 72 61 6c  20 74 69 6d 65 73 2e 20  | several times. |
00010e00  41 20 70 6f 6c 69 63 65  6d 61 6e 20 72 75 6e 73  |A policeman runs|
00010e10  20 69 6e 2c 20 67 72 61  62 73 20 79 6f 75 72 20  | in, grabs your |
00010e20  61 72 6d 20 61 6e 64 20  62 65 66 6f 72 65 20 79  |arm and before y|
00010e30  6f 75 20 63 61 6e 20 64  6f 20 61 6e 79 74 68 69  |ou can do anythi|
00010e40  6e 67 20 61 62 6f 75 74  20 69 74 20 79 6f 75 20  |ng about it you |
00010e50  61 72 65 20 6b 6e 6f 63  6b 65 64 20 6f 75 74 2e  |are knocked out.|
00010e60  20 53 65 76 65 72 61 6c  20 68 6f 75 72 73 20 6c  | Several hours l|
00010e70  61 74 65 72 20 79 6f 75  20 77 61 6b 65 20 75 70  |ater you wake up|
00010e80  20 69 6e 20 61 20 73 74  72 61 6e 67 65 20 72 6f  | in a strange ro|
00010e90  6f 6d 2e 2e 2e 22 29 0d  51 cc 66 70 6f 6c 74 69  |om...").Q.fpolti|
00010ea0  6d 65 25 3d 91 3a 7a 6f  6e 65 25 3d 32 3a 72 6f  |me%=.:zone%=2:ro|
00010eb0  6f 6d 6e 6f 25 3d 38 35  3a f2 72 65 6d 6b 65 79  |omno%=85:.remkey|
00010ec0  3a 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  |:mapyn%(roomno%)|
00010ed0  3d 31 3a 69 24 3d 22 6c  6f 6f 6b 22 3a f2 6c 6f  |=1:i$="look":.lo|
00010ee0  6f 6b 3a 77 69 6d 70 25  21 30 3d 6d 61 70 68 61  |ok:wimp%!0=mapha|
00010ef0  6e 25 3a f2 72 65 64 72  61 77 6d 61 70 0d 51 d6  |n%:.redrawmap.Q.|
00010f00  05 cd 0d 51 e0 22 e7 20  a7 69 24 2c 22 6d 65 61  |...Q.". .i$,"mea|
00010f10  74 22 29 3e 30 20 80 20  72 6f 6f 6d 6e 6f 25 3d  |t")>0 . roomno%=|
00010f20  33 30 20 8c 0d 51 ea 0c  65 61 74 79 6e 25 3d 31  |30 ..Q..eatyn%=1|
00010f30  0d 51 f4 eb f2 61 64 64  28 22 59 6f 75 20 63 61  |.Q...add("You ca|
00010f40  72 65 66 75 6c 6c 79 20  70 69 63 6b 20 75 70 20  |refully pick up |
00010f50  61 20 73 74 65 61 6b 2c  20 64 72 69 70 70 69 6e  |a steak, drippin|
00010f60  67 20 77 69 74 68 20 62  6c 6f 6f 64 2c 20 61 6e  |g with blood, an|
00010f70  64 20 74 61 6b 65 20 61  20 62 69 74 65 2c 20 62  |d take a bite, b|
00010f80  75 74 20 74 68 65 20 62  75 74 63 68 65 72 2c 20  |ut the butcher, |
00010f90  77 68 6f 20 68 61 74 65  73 20 74 68 69 65 76 65  |who hates thieve|
00010fa0  73 2c 20 68 61 73 20 62  65 65 6e 20 63 61 72 65  |s, has been care|
00010fb0  66 75 6c 6c 79 20 77 61  74 63 68 69 6e 67 20 79  |fully watching y|
00010fc0  6f 75 2e 20 48 65 20 72  65 76 65 61 6c 73 20 61  |ou. He reveals a|
00010fd0  20 6c 61 72 67 65 20 6b  69 74 63 68 65 6e 20 6b  | large kitchen k|
00010fe0  6e 69 66 65 20 61 6e 64  20 61 69 6d 73 20 62 65  |nife and aims be|
00010ff0  74 77 65 65 6e 20 79 6f  75 72 20 65 79 65 73 2e  |tween your eyes.|
00011000  20 53 63 63 63 68 6d 6d  61 61 63 6b 6b 2e 20 42  | Sccchmmaackk. B|
00011010  6c 61 63 6b 6e 65 73 73  2e 22 29 0d 51 fe 18 6e  |lackness.").Q..n|
00011020  69 66 6f 6b 25 3d 31 3a  f2 64 65 63 69 64 65 70  |ifok%=1:.decidep|
00011030  69 63 73 0d 52 08 05 cd  0d 52 12 32 e7 20 a7 69  |ics.R....R.2. .i|
00011040  24 2c 22 61 73 70 69 72  69 6e 22 29 3e 30 20 80  |$,"aspirin")>0 .|
00011050  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 61 73 70  | .gotorhere("asp|
00011060  69 72 69 6e 22 29 3d 31  20 8c 0d 52 1c 0c 65 61  |irin")=1 ..R..ea|
00011070  74 79 6e 25 3d 31 0d 52  26 24 f2 61 64 64 28 22  |tyn%=1.R&$.add("|
00011080  59 6f 75 20 73 77 61 6c  6c 6f 77 20 74 68 65 20  |You swallow the |
00011090  61 73 70 69 72 69 6e 2e  22 29 0d 52 30 0e e3 20  |aspirin.").R0.. |
000110a0  70 3d 31 20 b8 20 31 30  0d 52 3a 24 e7 20 6f 77  |p=1 . 10.R:$. ow|
000110b0  6e 73 24 28 70 29 3d 22  61 73 70 69 72 69 6e 22  |ns$(p)="aspirin"|
000110c0  20 6f 77 6e 73 24 28 70  29 3d 22 22 0d 52 44 3a  | owns$(p)="".RD:|
000110d0  e7 20 6f 62 6a 65 63 74  73 24 28 72 6f 6f 6d 6e  |. objects$(roomn|
000110e0  6f 25 2c 70 29 3d 22 61  73 70 69 72 69 6e 22 20  |o%,p)="aspirin" |
000110f0  6f 62 6a 65 63 74 73 24  28 72 6f 6f 6d 6e 6f 25  |objects$(roomno%|
00011100  2c 70 29 3d 22 22 0d 52  4e 07 ed 20 70 0d 52 58  |,p)="".RN.. p.RX|
00011110  05 cd 0d 52 62 2e e7 20  a7 69 24 2c 22 6c 6f 6c  |...Rb.. .i$,"lol|
00011120  6c 79 22 29 3e 30 20 80  20 a4 67 6f 74 6f 72 68  |ly")>0 . .gotorh|
00011130  65 72 65 28 22 6c 6f 6c  6c 79 22 29 3d 31 20 8c  |ere("lolly")=1 .|
00011140  0d 52 6c 0c 65 61 74 79  6e 25 3d 31 0d 52 76 3d  |.Rl.eatyn%=1.Rv=|
00011150  f2 61 64 64 28 22 59 6f  75 20 73 75 63 6b 20 74  |.add("You suck t|
00011160  68 65 20 6c 6f 6c 6c 79  20 75 6e 74 69 6c 20 69  |he lolly until i|
00011170  74 20 68 61 73 20 61 6c  6c 20 67 6f 6e 65 2e 20  |t has all gone. |
00011180  4c 6f 76 65 6c 79 2e 22  29 0d 52 80 0e e3 20 70  |Lovely.").R... p|
00011190  3d 31 20 b8 20 31 30 0d  52 8a 22 e7 20 6f 77 6e  |=1 . 10.R.". own|
000111a0  73 24 28 70 29 3d 22 6c  6f 6c 6c 79 22 20 6f 77  |s$(p)="lolly" ow|
000111b0  6e 73 24 28 70 29 3d 22  22 0d 52 94 38 e7 20 6f  |ns$(p)="".R.8. o|
000111c0  62 6a 65 63 74 73 24 28  72 6f 6f 6d 6e 6f 25 2c  |bjects$(roomno%,|
000111d0  70 29 3d 22 6c 6f 6c 6c  79 22 20 6f 62 6a 65 63  |p)="lolly" objec|
000111e0  74 73 24 28 72 6f 6f 6d  6e 6f 25 2c 70 29 3d 22  |ts$(roomno%,p)="|
000111f0  22 0d 52 9e 07 ed 20 70  0d 52 a8 05 cd 0d 52 b2  |".R... p.R....R.|
00011200  2b e7 20 65 61 74 79 6e  25 3d 30 20 f2 61 64 64  |+. eatyn%=0 .add|
00011210  28 22 59 6f 75 20 63 61  6e 6e 6f 74 20 65 61 74  |("You cannot eat|
00011220  20 74 68 61 74 2e 22 29  0d 52 bc 05 e1 0d 52 c6  | that.").R....R.|
00011230  04 0d 52 d0 09 dd f2 67  65 74 0d 52 da 0c 67 6f  |..R....get.R..go|
00011240  74 74 61 25 3d 30 0d 52  e4 2a e7 20 a7 69 24 2c  |tta%=0.R.*. .i$,|
00011250  22 61 6c 6c 22 29 3e 30  20 84 20 a7 69 24 2c 22  |"all")>0 . .i$,"|
00011260  65 76 65 72 79 74 68 69  6e 67 22 29 3e 30 20 8c  |everything")>0 .|
00011270  0d 52 ee 10 20 20 63 6f  75 6e 74 65 72 25 3d 30  |.R..  counter%=0|
00011280  0d 52 f8 11 20 20 e3 20  61 25 3d 31 20 b8 20 31  |.R..  . a%=1 . 1|
00011290  30 0d 53 02 49 20 20 e7  20 6f 62 6a 65 63 74 73  |0.S.I  . objects|
000112a0  24 28 72 6f 6f 6d 6e 6f  25 2c 61 25 29 3c 3e 22  |$(roomno%,a%)<>"|
000112b0  22 20 69 24 3d 6f 62 6a  65 63 74 73 24 28 72 6f  |" i$=objects$(ro|
000112c0  6f 6d 6e 6f 25 2c 61 25  29 3a 63 6f 75 6e 74 65  |omno%,a%):counte|
000112d0  72 25 2b 3d 31 3a f2 67  65 74 0d 53 0c 0a 20 20  |r%+=1:.get.S..  |
000112e0  ed 20 61 25 0d 53 16 33  20 20 e7 20 63 6f 75 6e  |. a%.S.3  . coun|
000112f0  74 65 72 25 3d 30 20 f2  61 64 64 28 22 54 68 65  |ter%=0 .add("The|
00011300  72 65 20 69 73 20 6e 6f  74 68 69 6e 67 20 74 6f  |re is nothing to|
00011310  20 67 65 74 2e 22 29 0d  53 20 12 20 20 69 24 3d  | get.").S .  i$=|
00011320  22 67 65 74 20 61 6c 6c  22 0d 53 2a 0f 20 20 67  |"get all".S*.  g|
00011330  6f 74 74 61 25 3d 2d 31  0d 53 34 05 cd 0d 53 3e  |otta%=-1.S4...S>|
00011340  10 e7 20 67 6f 74 74 61  25 3d 30 20 8c 0d 53 48  |.. gotta%=0 ..SH|
00011350  0e e3 20 67 3d 31 20 b8  20 31 30 0d 53 52 51 e7  |.. g=1 . 10.SRQ.|
00011360  20 6f 77 6e 73 24 28 67  29 3c 3e 22 22 20 80 20  | owns$(g)<>"" . |
00011370  a7 69 24 2c 6f 77 6e 73  24 28 67 29 29 3e 30 20  |.i$,owns$(g))>0 |
00011380  f2 61 64 64 28 22 59 6f  75 20 61 6c 72 65 61 64  |.add("You alread|
00011390  79 20 68 61 76 65 20 74  68 69 73 20 69 74 65 6d  |y have this item|
000113a0  2e 22 29 3a 67 6f 74 74  61 25 3d 31 0d 53 5c 07  |."):gotta%=1.S\.|
000113b0  ed 20 67 0d 53 66 05 cd  0d 53 70 10 e7 20 67 6f  |. g.Sf...Sp.. go|
000113c0  74 74 61 25 3d 30 20 8c  0d 53 7a 0e e3 20 67 3d  |tta%=0 ..Sz.. g=|
000113d0  31 20 b8 20 31 30 0d 53  84 4b e7 20 6f 62 6a 65  |1 . 10.S.K. obje|
000113e0  63 74 73 24 28 72 6f 6f  6d 6e 6f 25 2c 67 29 3c  |cts$(roomno%,g)<|
000113f0  3e 22 22 20 80 20 a7 69  24 2c 6f 62 6a 65 63 74  |>"" . .i$,object|
00011400  73 24 28 72 6f 6f 6d 6e  6f 25 2c 67 29 29 3e 30  |s$(roomno%,g))>0|
00011410  20 67 6f 74 74 61 25 3d  2d 31 3a 6f 6a 74 25 3d  | gotta%=-1:ojt%=|
00011420  67 0d 53 8e 07 ed 20 67  0d 53 98 10 e7 20 67 6f  |g.S... g.S... go|
00011430  74 74 61 25 3d 30 20 8c  0d 53 a2 18 20 20 67 6f  |tta%=0 ..S..  go|
00011440  74 74 61 25 3d 31 3a c8  8e 20 b3 28 34 29 20 ca  |tta%=1:.. .(4) .|
00011450  0d 53 ac 34 20 20 c9 20  31 20 3a 20 74 24 3d 22  |.S.4  . 1 : t$="|
00011460  54 68 61 74 20 6f 62 6a  65 63 74 20 69 73 20 6e  |That object is n|
00011470  6f 2d 77 68 65 72 65 20  74 6f 20 62 65 20 73 65  |o-where to be se|
00011480  65 6e 2e 22 0d 53 b6 46  20 20 c9 20 32 20 3a 20  |en.".S.F  . 2 : |
00011490  74 24 3d 22 59 6f 75 20  73 65 61 72 63 68 20 61  |t$="You search a|
000114a0  6e 64 20 73 65 61 72 63  68 2c 20 62 75 74 20 74  |nd search, but t|
000114b0  68 61 74 20 69 74 65 6d  20 63 61 6e 6e 6f 74 20  |hat item cannot |
000114c0  62 65 20 66 6f 75 6e 64  2e 22 0d 53 c0 4a 20 20  |be found.".S.J  |
000114d0  c9 20 33 20 3a 20 74 24  3d 22 49 20 74 68 69 6e  |. 3 : t$="I thin|
000114e0  6b 20 79 6f 75 27 72 65  20 68 61 6c 6c 75 63 69  |k you're halluci|
000114f0  6e 61 74 69 6e 67 2e 2e  2e 20 69 74 27 73 20 6e  |nating... it's n|
00011500  6f 2d 77 68 65 72 65 20  74 6f 20 62 65 20 73 65  |o-where to be se|
00011510  65 6e 2e 22 0d 53 ca 39  20 20 c9 20 34 20 3a 20  |en.".S.9  . 4 : |
00011520  74 24 3d 22 59 6f 75 20  63 61 6e 27 74 20 67 65  |t$="You can't ge|
00011530  74 20 73 6f 6d 65 74 68  69 6e 67 20 74 68 61 74  |t something that|
00011540  20 69 73 6e 27 74 20 68  65 72 65 2e 22 0d 53 d4  | isn't here.".S.|
00011550  07 20 20 cb 0d 53 de 11  f2 6d 6f 72 65 73 70 65  |.  ..S...morespe|
00011560  63 69 66 69 63 0d 53 e8  0c f2 61 64 64 28 74 24  |cific.S...add(t$|
00011570  29 0d 53 f2 05 cd 0d 53  fc 18 e7 20 67 6f 74 74  |).S....S... gott|
00011580  61 25 3d 2d 31 20 67 6f  74 74 61 25 3d 30 0d 54  |a%=-1 gotta%=0.T|
00011590  06 05 cd 0d 54 10 10 e7  20 67 6f 74 74 61 25 3d  |....T... gotta%=|
000115a0  30 20 8c 0d 54 1a 10 67  6f 74 74 61 66 6c 61 67  |0 ..T..gottaflag|
000115b0  25 3d 30 0d 54 24 0e e3  20 67 3d 31 20 b8 20 31  |%=0.T$.. g=1 . 1|
000115c0  30 0d 54 2e 1e e7 20 6f  77 6e 73 24 28 67 29 3d  |0.T... owns$(g)=|
000115d0  22 22 20 67 6f 74 74 61  66 6c 61 67 25 3d 67 0d  |"" gottaflag%=g.|
000115e0  54 38 07 ed 20 67 0d 54  42 71 e7 20 67 6f 74 74  |T8.. g.TBq. gott|
000115f0  61 66 6c 61 67 25 3e 30  20 6f 77 6e 73 24 28 67  |aflag%>0 owns$(g|
00011600  6f 74 74 61 66 6c 61 67  25 29 3d 6f 62 6a 65 63  |ottaflag%)=objec|
00011610  74 73 24 28 72 6f 6f 6d  6e 6f 25 2c 6f 6a 74 25  |ts$(roomno%,ojt%|
00011620  29 3a 6f 62 6a 65 63 74  73 24 28 72 6f 6f 6d 6e  |):objects$(roomn|
00011630  6f 25 2c 6f 6a 74 25 29  3d 22 22 3a f2 77 68 61  |o%,ojt%)="":.wha|
00011640  74 67 6f 74 28 6f 77 6e  73 24 28 67 6f 74 74 61  |tgot(owns$(gotta|
00011650  66 6c 61 67 25 29 29 0d  54 4c 1c e7 20 67 6f 74  |flag%)).TL.. got|
00011660  74 61 66 6c 61 67 25 3d  30 20 c8 8e 20 b3 28 34  |taflag%=0 .. .(4|
00011670  29 20 ca 0d 54 56 3c 20  20 c9 20 31 20 3a 20 f2  |) ..TV<  . 1 : .|
00011680  61 64 64 28 22 59 6f 75  20 61 72 65 20 63 61 72  |add("You are car|
00011690  72 79 69 6e 67 20 66 61  72 20 74 6f 6f 20 6d 75  |rying far too mu|
000116a0  63 68 20 61 6c 6c 20 72  65 61 64 79 2e 22 29 0d  |ch all ready.").|
000116b0  54 60 2d 20 20 c9 20 32  20 3a 20 f2 61 64 64 28  |T`-  . 2 : .add(|
000116c0  22 59 6f 75 20 63 61 6e  27 74 20 63 61 72 72 79  |"You can't carry|
000116d0  20 61 6e 79 20 6d 6f 72  65 2e 22 29 0d 54 6a 3d  | any more.").Tj=|
000116e0  20 20 c9 20 33 20 3a 20  f2 61 64 64 28 22 59 6f  |  . 3 : .add("Yo|
000116f0  75 72 20 61 72 6d 73 20  61 63 68 65 20 74 6f 6f  |ur arms ache too|
00011700  20 6d 75 63 68 20 66 6f  72 20 61 6e 6f 74 68 65  | much for anothe|
00011710  72 20 69 74 65 6d 2e 22  29 0d 54 74 3f 20 20 c9  |r item.").Tt?  .|
00011720  20 34 20 3a 20 f2 61 64  64 28 22 57 68 61 74 20  | 4 : .add("What |
00011730  61 72 65 20 79 6f 75 20  74 72 79 69 6e 67 20 74  |are you trying t|
00011740  6f 20 64 6f 3f 20 42 72  65 61 6b 20 79 6f 75 72  |o do? Break your|
00011750  20 62 61 63 6b 3f 22 29  0d 54 7e 05 cb 0d 54 88  | back?").T~...T.|
00011760  05 cd 0d 54 92 05 e1 0d  54 9c 04 0d 54 a6 12 dd  |...T....T...T...|
00011770  f2 6d 6f 72 65 73 70 65  63 69 66 69 63 0d 54 b0  |.morespecific.T.|
00011780  0e e3 20 61 25 3d 31 20  b8 20 32 0d 54 ba 69 e7  |.. a%=1 . 2.T.i.|
00011790  20 70 6f 6c 69 63 65 25  28 61 25 29 3d 72 6f 6f  | police%(a%)=roo|
000117a0  6d 6e 6f 25 20 80 20 7a  6f 6e 65 25 3d 32 20 80  |mno% . zone%=2 .|
000117b0  20 a7 69 24 2c 22 6d 61  6e 22 29 3e 30 20 74 24  | .i$,"man")>0 t$|
000117c0  3d 22 54 68 65 20 70 6f  6c 69 63 65 6d 61 6e 20  |="The policeman |
000117d0  6d 61 79 20 67 65 74 20  73 75 73 70 69 63 69 6f  |may get suspicio|
000117e0  75 73 20 69 66 20 79 6f  75 20 67 72 61 62 20 68  |us if you grab h|
000117f0  69 6d 2e 22 0d 54 c4 08  ed 20 61 25 0d 54 ce 23  |im.".T... a%.T.#|
00011800  e7 20 a7 69 24 2c 22 63  6f 62 62 6c 65 73 22 29  |. .i$,"cobbles")|
00011810  3e 30 20 c8 8e 20 72 6f  6f 6d 6e 6f 25 20 ca 0d  |>0 .. roomno% ..|
00011820  54 d8 5b 20 20 c9 20 32  2c 37 2c 31 35 2c 31 32  |T.[  . 2,7,15,12|
00011830  2c 32 38 2c 34 32 2c 34  33 20 3a 20 74 24 3d 22  |,28,42,43 : t$="|
00011840  54 68 65 20 63 6f 62 62  6c 65 73 74 6f 6e 65 73  |The cobblestones|
00011850  20 73 65 65 6d 20 74 6f  20 62 65 20 66 69 78 65  | seem to be fixe|
00011860  64 20 74 6f 20 74 68 65  20 72 6f 61 64 20 71 75  |d to the road qu|
00011870  69 74 65 20 77 65 6c 6c  2e 22 0d 54 e2 05 cb 0d  |ite well.".T....|
00011880  54 ec 21 e7 20 a7 69 24  2c 22 66 65 6e 63 65 22  |T.!. .i$,"fence"|
00011890  29 3e 30 20 c8 8e 20 72  6f 6f 6d 6e 6f 25 20 ca  |)>0 .. roomno% .|
000118a0  0d 54 f6 74 20 20 c9 20  35 33 2c 35 35 2c 35 36  |.T.t  . 53,55,56|
000118b0  2c 35 37 2c 32 34 2c 31  34 2c 31 35 2c 31 36 2c  |,57,24,14,15,16,|
000118c0  31 37 2c 31 38 2c 34 36  2c 34 35 2c 34 34 2c 34  |17,18,46,45,44,4|
000118d0  33 2c 34 37 2c 36 35 2c  37 36 2c 37 37 2c 37 38  |3,47,65,76,77,78|
000118e0  2c 37 39 2c 38 30 20 3a  20 74 24 3d 22 54 68 65  |,79,80 : t$="The|
000118f0  20 66 65 6e 63 65 20 77  6f 6e 27 74 20 62 75 64  | fence won't bud|
00011900  67 65 20 66 72 6f 6d 20  74 68 65 20 67 72 6f 75  |ge from the grou|
00011910  6e 64 2e 22 0d 55 00 05  cb 0d 55 0a 1f e7 20 a7  |nd.".U....U... .|
00011920  69 24 2c 22 63 61 72 22  29 3e 30 20 c8 8e 20 72  |i$,"car")>0 .. r|
00011930  6f 6f 6d 6e 6f 25 20 ca  0d 55 14 53 20 20 c9 20  |oomno% ..U.S  . |
00011940  32 36 38 2c 32 36 39 2c  32 37 30 2c 32 37 31 2c  |268,269,270,271,|
00011950  32 37 32 2c 32 37 33 2c  32 37 34 20 3a 20 74 24  |272,273,274 : t$|
00011960  3d 22 54 68 65 20 63 61  72 73 20 61 72 65 20 74  |="The cars are t|
00011970  6f 6f 20 6c 61 72 67 65  20 61 6e 64 20 66 61 73  |oo large and fas|
00011980  74 20 74 6f 20 67 72 61  62 2e 22 0d 55 1e 05 cb  |t to grab.".U...|
00011990  0d 55 28 20 e7 20 a7 69  24 2c 22 74 72 65 65 22  |.U( . .i$,"tree"|
000119a0  29 3e 30 20 c8 8e 20 72  6f 6f 6d 6e 6f 25 20 ca  |)>0 .. roomno% .|
000119b0  0d 55 32 55 20 20 c9 20  32 37 39 2c 32 38 36 2c  |.U2U  . 279,286,|
000119c0  32 38 38 2c 32 38 39 2c  32 39 30 2c 32 39 32 20  |288,289,290,292 |
000119d0  3a 20 74 24 3d 22 54 68  65 20 74 72 65 65 73 20  |: t$="The trees |
000119e0  68 61 76 65 20 72 6f 6f  74 73 20 77 68 69 63 68  |have roots which|
000119f0  20 61 72 65 20 66 61 72  20 74 6f 6f 20 73 74 72  | are far too str|
00011a00  6f 6e 67 2e 22 0d 55 3c  05 cb 0d 55 46 11 e7 20  |ong.".U<...UF.. |
00011a10  72 6f 6f 6d 6e 6f 25 3d  31 20 8c 0d 55 50 2f e7  |roomno%=1 ..UP/.|
00011a20  20 a7 69 24 2c 22 61 6d  69 67 61 22 29 3e 30 20  | .i$,"amiga")>0 |
00011a30  74 24 3d 22 41 73 20 69  66 20 79 6f 75 20 77 61  |t$="As if you wa|
00011a40  6e 74 65 64 20 6f 6e 65  21 22 0d 55 5a 51 e7 20  |nted one!".UZQ. |
00011a50  a7 69 24 2c 22 75 6e 64  65 72 77 65 61 72 22 29  |.i$,"underwear")|
00011a60  3e 30 20 74 24 3d 22 59  6f 75 27 72 65 20 71 75  |>0 t$="You're qu|
00011a70  69 74 65 20 77 61 72 6d  20 65 6e 6f 75 67 68 20  |ite warm enough |
00011a80  69 6e 20 79 6f 75 72 20  6f 77 6e 20 61 74 20 74  |in your own at t|
00011a90  68 65 20 6d 6f 6d 65 6e  74 2e 22 0d 55 64 30 e7  |he moment.".Ud0.|
00011aa0  20 a7 69 24 2c 22 70 65  6f 70 6c 65 22 29 3e 30  | .i$,"people")>0|
00011ab0  20 74 24 3d 22 53 6f 6d  65 6f 6e 65 20 6d 69 67  | t$="Someone mig|
00011ac0  68 74 20 6f 62 6a 65 63  74 21 22 0d 55 6e 05 cd  |ht object!".Un..|
00011ad0  0d 55 78 5c e7 20 72 6f  6f 6d 6e 6f 25 3d 32 20  |.Ux\. roomno%=2 |
00011ae0  80 20 a7 69 24 2c 22 64  6f 6f 72 22 29 3e 30 20  |. .i$,"door")>0 |
00011af0  74 24 3d 22 59 6f 75 20  70 75 6c 6c 20 74 68 65  |t$="You pull the|
00011b00  20 64 6f 6f 72 2c 20 62  75 74 20 69 74 20 64 6f  | door, but it do|
00011b10  65 73 20 6e 6f 74 20 63  6f 6d 65 20 6f 66 66 20  |es not come off |
00011b20  69 74 73 20 68 69 6e 67  65 73 2e 22 0d 55 82 11  |its hinges.".U..|
00011b30  e7 20 72 6f 6f 6d 6e 6f  25 3d 33 20 8c 0d 55 8c  |. roomno%=3 ..U.|
00011b40  5b e7 20 a7 69 24 2c 22  68 61 74 20 73 74 61 6e  |[. .i$,"hat stan|
00011b50  64 22 29 3e 30 20 74 24  3d 22 44 6f 20 79 6f 75  |d")>0 t$="Do you|
00011b60  20 72 65 61 6c 6c 79 20  74 68 69 6e 6b 20 61 20  | really think a |
00011b70  68 61 74 2d 73 74 61 6e  64 20 77 6f 75 6c 64 20  |hat-stand would |
00011b80  68 65 6c 70 20 79 6f 75  20 69 6e 20 79 6f 75 72  |help you in your|
00011b90  20 71 75 65 73 74 3f 22  0d 55 96 5a e7 20 a7 69  | quest?".U.Z. .i|
00011ba0  24 2c 22 68 61 74 73 74  61 6e 64 22 29 3e 30 20  |$,"hatstand")>0 |
00011bb0  74 24 3d 22 44 6f 20 79  6f 75 20 72 65 61 6c 6c  |t$="Do you reall|
00011bc0  79 20 74 68 69 6e 6b 20  61 20 68 61 74 2d 73 74  |y think a hat-st|
00011bd0  61 6e 64 20 77 6f 75 6c  64 20 68 65 6c 70 20 79  |and would help y|
00011be0  6f 75 20 69 6e 20 79 6f  75 72 20 71 75 65 73 74  |ou in your quest|
00011bf0  3f 22 0d 55 a0 48 e7 20  a7 69 24 2c 22 63 68 61  |?".U.H. .i$,"cha|
00011c00  6e 64 65 6c 69 65 72 22  29 3e 30 20 74 24 3d 22  |ndelier")>0 t$="|
00011c10  59 6f 75 20 61 72 65 6e  27 74 20 71 75 69 74 65  |You aren't quite|
00011c20  20 68 69 67 68 20 65 6e  6f 75 67 68 20 74 6f 20  | high enough to |
00011c30  72 65 61 63 68 20 69 74  2e 22 0d 55 aa 67 e7 20  |reach it.".U.g. |
00011c40  a7 69 24 2c 22 77 61 6c  6c 70 61 70 65 72 22 29  |.i$,"wallpaper")|
00011c50  3e 30 20 74 24 3d 22 49  74 20 77 6f 75 6c 64 20  |>0 t$="It would |
00011c60  72 75 69 6e 20 74 68 65  20 72 6f 6f 6d 20 69 66  |ruin the room if|
00011c70  20 79 6f 75 20 77 65 72  65 20 74 6f 20 73 74 72  | you were to str|
00011c80  69 70 20 74 68 65 20 77  61 6c 6c 2d 70 61 70 65  |ip the wall-pape|
00011c90  72 20 6f 66 66 20 74 68  65 20 77 61 6c 6c 73 2e  |r off the walls.|
00011ca0  22 0d 55 b4 3f e7 20 a7  69 24 2c 22 73 74 61 69  |".U.?. .i$,"stai|
00011cb0  72 22 29 3e 30 20 74 24  3d 22 59 6f 75 20 63 61  |r")>0 t$="You ca|
00011cc0  6e 27 74 20 75 70 72 6f  6f 74 20 61 20 70 61 72  |n't uproot a par|
00011cd0  74 20 6f 66 20 74 68 65  20 68 6f 75 73 65 2e 22  |t of the house."|
00011ce0  0d 55 be 05 cd 0d 55 c8  5c e7 20 72 6f 6f 6d 6e  |.U....U.\. roomn|
00011cf0  6f 25 3d 34 20 80 20 a7  69 24 2c 22 74 6f 79 22  |o%=4 . .i$,"toy"|
00011d00  29 3e 30 20 74 24 3d 22  43 6f 6c 6c 65 63 74 69  |)>0 t$="Collecti|
00011d10  6e 67 20 63 68 69 6c 64  72 65 6e 27 73 20 74 6f  |ng children's to|
00011d20  79 73 20 77 6f 6e 27 74  20 68 65 6c 70 20 79 6f  |ys won't help yo|
00011d30  75 20 69 6e 20 79 6f 75  72 20 71 75 65 73 74 2e  |u in your quest.|
00011d40  22 0d 55 d2 11 e7 20 72  6f 6f 6d 6e 6f 25 3d 35  |".U... roomno%=5|
00011d50  20 8c 0d 55 dc 38 e7 20  a7 69 24 2c 22 70 65 6e  | ..U.8. .i$,"pen|
00011d60  22 29 3e 30 20 74 24 3d  22 54 68 65 20 70 65 6e  |")>0 t$="The pen|
00011d70  20 69 73 20 63 68 61 69  6e 65 64 20 74 6f 20 74  | is chained to t|
00011d80  68 65 20 74 61 62 6c 65  2e 22 0d 55 e6 3a e7 20  |he table.".U.:. |
00011d90  a7 69 24 2c 22 66 6f 72  6d 22 29 3e 30 20 74 24  |.i$,"form")>0 t$|
00011da0  3d 22 54 68 65 20 66 6f  72 6d 20 69 73 20 63 68  |="The form is ch|
00011db0  61 69 6e 65 64 20 74 6f  20 74 68 65 20 74 61 62  |ained to the tab|
00011dc0  6c 65 2e 22 0d 55 f0 59  e7 20 a7 69 24 2c 22 62  |le.".U.Y. .i$,"b|
00011dd0  65 64 22 29 3e 30 20 74  24 3d 22 4e 69 63 65 20  |ed")>0 t$="Nice |
00011de0  74 68 6f 75 67 68 20 74  68 65 20 62 65 64 20 6d  |though the bed m|
00011df0  61 79 20 62 65 2c 20 69  74 27 73 20 6a 75 73 74  |ay be, it's just|
00011e00  20 61 20 6c 69 74 74 6c  65 20 74 6f 20 68 65 61  | a little to hea|
00011e10  76 79 20 74 6f 20 63 61  72 72 79 2e 22 0d 55 fa  |vy to carry.".U.|
00011e20  43 e7 20 a7 69 24 2c 22  74 61 62 6c 65 22 29 3e  |C. .i$,"table")>|
00011e30  30 20 74 24 3d 22 54 68  65 20 74 61 62 6c 65 20  |0 t$="The table |
00011e40  69 73 20 73 74 75 63 6b  20 74 6f 20 74 68 65 20  |is stuck to the |
00011e50  63 61 72 70 65 74 65 64  20 66 6c 6f 6f 72 2e 22  |carpeted floor."|
00011e60  0d 56 04 05 cd 0d 56 0e  11 e7 20 72 6f 6f 6d 6e  |.V....V... roomn|
00011e70  6f 25 3d 38 20 8c 0d 56  18 4a e7 20 a7 69 24 2c  |o%=8 ..V.J. .i$,|
00011e80  22 63 65 69 6c 69 6e 67  22 29 3e 30 20 74 24 3d  |"ceiling")>0 t$=|
00011e90  22 59 6f 75 72 20 61 72  6d 73 20 61 72 65 6e 27  |"Your arms aren'|
00011ea0  74 20 71 75 69 74 65 20  6c 6f 6e 67 20 65 6e 6f  |t quite long eno|
00011eb0  75 67 68 20 49 27 6d 20  61 66 72 61 69 64 2e 22  |ugh I'm afraid."|
00011ec0  0d 56 22 4d e7 20 a7 69  24 2c 22 66 75 72 6e 69  |.V"M. .i$,"furni|
00011ed0  74 75 72 65 22 29 3e 30  20 74 24 3d 22 54 68 65  |ture")>0 t$="The|
00011ee0  20 66 75 72 6e 69 74 75  72 65 20 69 73 20 74 6f  | furniture is to|
00011ef0  6f 20 68 65 61 76 79 20  66 6f 72 20 79 6f 75 72  |o heavy for your|
00011f00  20 77 65 65 64 79 20 61  72 6d 73 2e 22 0d 56 2c  | weedy arms.".V,|
00011f10  62 e7 20 a7 69 24 2c 22  63 61 72 70 65 74 22 29  |b. .i$,"carpet")|
00011f20  3e 30 20 74 24 3d 22 59  6f 75 20 64 65 63 69 64  |>0 t$="You decid|
00011f30  65 20 61 67 61 69 6e 73  74 20 69 74 2c 20 73 6f  |e against it, so|
00011f40  6d 65 6f 6e 65 20 6d 69  67 68 74 20 6e 6f 74 69  |meone might noti|
00011f50  63 65 20 69 66 20 74 68  65 20 63 61 72 70 65 74  |ce if the carpet|
00011f60  20 77 65 6e 74 20 6d 69  73 73 69 6e 67 2e 22 0d  | went missing.".|
00011f70  56 36 05 cd 0d 56 40 11  e7 20 72 6f 6f 6d 6e 6f  |V6...V@.. roomno|
00011f80  25 3d 39 20 8c 0d 56 4a  62 e7 20 a7 69 24 2c 22  |%=9 ..VJb. .i$,"|
00011f90  73 6f 66 61 22 29 3e 30  20 74 24 3d 22 54 68 65  |sofa")>0 t$="The|
00011fa0  20 73 6f 66 61 20 69 73  20 69 6e 20 73 75 63 68  | sofa is in such|
00011fb0  20 61 20 62 61 64 20 63  6f 6e 64 69 74 69 6f 6e  | a bad condition|
00011fc0  20 74 68 61 74 20 79 6f  75 20 64 6f 6e 27 74 20  | that you don't |
00011fd0  72 65 61 6c 6c 79 20 77  61 6e 74 20 69 74 20 61  |really want it a|
00011fe0  6e 79 77 61 79 2e 22 0d  56 54 53 e7 20 a7 69 24  |nyway.".VTS. .i$|
00011ff0  2c 22 70 61 69 6e 74 69  6e 67 22 29 3e 30 20 74  |,"painting")>0 t|
00012000  24 3d 22 57 68 61 74 20  77 6f 75 6c 64 20 79 6f  |$="What would yo|
00012010  75 20 77 61 6e 74 20 77  69 74 68 20 61 20 64 65  |u want with a de|
00012020  66 61 63 65 64 20 70 61  69 6e 74 69 6e 67 3f 20  |faced painting? |
00012030  4e 6f 74 20 6d 75 63 68  2e 22 0d 56 5e 52 e7 20  |Not much.".V^R. |
00012040  a7 69 24 2c 22 70 69 63  74 75 72 65 22 29 3e 30  |.i$,"picture")>0|
00012050  20 74 24 3d 22 57 68 61  74 20 77 6f 75 6c 64 20  | t$="What would |
00012060  79 6f 75 20 77 61 6e 74  20 77 69 74 68 20 61 20  |you want with a |
00012070  64 65 66 61 63 65 64 20  70 61 69 6e 74 69 6e 67  |defaced painting|
00012080  3f 20 4e 6f 74 20 6d 75  63 68 2e 22 0d 56 68 53  |? Not much.".VhS|
00012090  e7 20 a7 69 24 2c 22 70  6f 72 74 72 61 69 74 22  |. .i$,"portrait"|
000120a0  29 3e 30 20 74 24 3d 22  57 68 61 74 20 77 6f 75  |)>0 t$="What wou|
000120b0  6c 64 20 79 6f 75 20 77  61 6e 74 20 77 69 74 68  |ld you want with|
000120c0  20 61 20 64 65 66 61 63  65 64 20 70 61 69 6e 74  | a defaced paint|
000120d0  69 6e 67 3f 20 4e 6f 74  20 6d 75 63 68 2e 22 0d  |ing? Not much.".|
000120e0  56 72 05 cd 0d 56 7c 12  e7 20 72 6f 6f 6d 6e 6f  |Vr...V|.. roomno|
000120f0  25 3d 31 30 20 8c 0d 56  86 43 e7 20 a7 69 24 2c  |%=10 ..V.C. .i$,|
00012100  22 74 61 62 6c 65 22 29  3e 30 20 74 24 3d 22 54  |"table")>0 t$="T|
00012110  68 65 20 74 61 62 6c 65  20 69 73 20 73 74 75 63  |he table is stuc|
00012120  6b 20 74 6f 20 74 68 65  20 63 61 72 70 65 74 65  |k to the carpete|
00012130  64 20 66 6c 6f 6f 72 2e  22 0d 56 90 47 e7 20 a7  |d floor.".V.G. .|
00012140  69 24 2c 22 63 68 61 69  72 22 29 3e 30 20 74 24  |i$,"chair")>0 t$|
00012150  3d 22 59 6f 75 20 63 61  6e 27 74 20 6a 75 73 74  |="You can't just|
00012160  20 70 75 74 20 61 20 63  68 61 69 72 20 75 6e 64  | put a chair und|
00012170  65 72 20 79 6f 75 72 20  6a 75 6d 70 65 72 2e 22  |er your jumper."|
00012180  0d 56 9a 05 cd 0d 56 a4  12 e7 20 72 6f 6f 6d 6e  |.V....V... roomn|
00012190  6f 25 3d 31 31 20 8c 0d  56 ae 51 e7 20 a7 69 24  |o%=11 ..V.Q. .i$|
000121a0  2c 22 70 6c 61 71 75 65  22 29 3e 30 20 74 24 3d  |,"plaque")>0 t$=|
000121b0  22 54 68 65 20 70 6c 61  71 75 65 20 68 61 73 20  |"The plaque has |
000121c0  62 65 65 6e 20 63 61 72  65 66 75 6c 6c 79 20 73  |been carefully s|
000121d0  63 72 65 77 65 64 20 74  6f 20 74 68 65 20 6d 6f  |crewed to the mo|
000121e0  6e 75 6d 65 6e 74 2e 22  0d 56 b8 4b e7 20 a7 69  |nument.".V.K. .i|
000121f0  24 2c 22 70 6f 74 22 29  3e 30 20 74 24 3d 22 54  |$,"pot")>0 t$="T|
00012200  68 65 20 70 6f 74 73 20  61 72 65 20 65 78 74 72  |he pots are extr|
00012210  65 6d 65 6c 79 20 6c 61  72 67 65 20 61 6e 64 20  |emely large and |
00012220  74 6f 6f 20 68 65 61 76  79 20 74 6f 20 6c 69 66  |too heavy to lif|
00012230  74 2e 22 0d 56 c2 3c e7  20 a7 69 24 2c 22 70 6c  |t.".V.<. .i$,"pl|
00012240  61 6e 74 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ant")>0 t$="The |
00012250  73 6f 69 6c 20 6d 69 67  68 74 20 73 74 61 69 6e  |soil might stain|
00012260  20 79 6f 75 72 20 63 6c  6f 74 68 65 73 2e 22 0d  | your clothes.".|
00012270  56 cc 28 e7 20 a7 69 24  2c 22 6d 6f 6e 75 6d 65  |V.(. .i$,"monume|
00012280  6e 74 22 29 3e 30 20 74  24 3d 22 42 65 20 73 65  |nt")>0 t$="Be se|
00012290  72 69 6f 75 73 2e 22 0d  56 d6 05 cd 0d 56 e0 12  |rious.".V....V..|
000122a0  e7 20 72 6f 6f 6d 6e 6f  25 3d 31 33 20 8c 0d 56  |. roomno%=13 ..V|
000122b0  ea 56 e7 20 a7 69 24 2c  22 70 61 74 68 22 29 3e  |.V. .i$,"path")>|
000122c0  30 20 74 24 3d 22 53 75  72 70 72 69 73 65 2c 20  |0 t$="Surprise, |
000122d0  73 75 72 70 72 69 73 65  2c 20 74 68 65 20 70 61  |surprise, the pa|
000122e0  74 68 20 73 65 65 6d 73  20 74 6f 20 62 65 20 73  |th seems to be s|
000122f0  74 75 63 6b 20 64 6f 77  6e 20 73 6f 6d 65 20 68  |tuck down some h|
00012300  6f 77 2e 22 0d 56 f4 46  e7 20 a7 69 24 2c 22 70  |ow.".V.F. .i$,"p|
00012310  61 76 69 6e 67 22 29 3e  30 20 74 24 3d 22 54 68  |aving")>0 t$="Th|
00012320  65 20 63 72 61 7a 79 2d  70 61 76 69 6e 67 20 73  |e crazy-paving s|
00012330  65 65 6d 73 20 74 6f 20  62 65 20 77 65 6c 6c 20  |eems to be well |
00012340  63 65 6d 65 6e 74 65 64  2e 22 0d 56 fe 7d e7 20  |cemented.".V.}. |
00012350  a7 69 24 2c 22 74 72 65  65 22 29 3e 30 20 74 24  |.i$,"tree")>0 t$|
00012360  3d 22 54 68 65 20 74 72  65 65 73 20 68 61 76 65  |="The trees have|
00012370  20 72 61 74 68 65 72 20  6c 61 72 67 65 20 72 6f  | rather large ro|
00012380  6f 74 73 20 77 68 69 63  68 2c 20 75 6e 66 6f 72  |ots which, unfor|
00012390  74 75 6e 61 74 65 6c 79  2c 20 70 72 65 76 65 6e  |tunately, preven|
000123a0  74 73 20 69 64 69 6f 74  73 20 66 72 6f 6d 20 74  |ts idiots from t|
000123b0  72 79 69 6e 67 20 74 6f  20 70 75 6c 6c 20 74 68  |rying to pull th|
000123c0  65 6d 20 75 70 2e 22 0d  57 08 86 e7 20 a7 69 24  |em up.".W... .i$|
000123d0  2c 22 62 6c 6f 73 73 6f  6d 22 29 3e 30 20 74 24  |,"blossom")>0 t$|
000123e0  3d 22 54 68 65 20 62 6c  6f 73 73 6f 6d 20 69 73  |="The blossom is|
000123f0  20 72 61 74 68 65 72 20  70 72 65 74 74 79 20 61  | rather pretty a|
00012400  6e 64 20 79 6f 75 20 64  65 63 69 64 65 20 6e 6f  |nd you decide no|
00012410  74 20 74 6f 20 64 65 73  74 72 6f 79 20 74 68 65  |t to destroy the|
00012420  20 73 63 65 6e 65 20 6f  66 20 62 65 61 75 74 79  | scene of beauty|
00012430  20 62 79 20 74 65 61 72  69 6e 67 20 69 74 20 6f  | by tearing it o|
00012440  66 66 20 74 68 65 20 74  72 65 65 2e 22 0d 57 12  |ff the tree.".W.|
00012450  05 cd 0d 57 1c 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...W... roomno%=|
00012460  31 35 20 8c 0d 57 26 76  e7 20 a7 69 24 2c 22 67  |15 ..W&v. .i$,"g|
00012470  75 61 72 64 22 29 3e 30  20 74 24 3d 22 54 68 65  |uard")>0 t$="The|
00012480  20 67 75 61 72 64 20 6c  6f 6f 6b 73 20 61 74 20  | guard looks at |
00012490  79 6f 75 20 73 74 72 61  6e 67 65 6c 79 20 61 73  |you strangely as|
000124a0  20 79 6f 75 20 70 75 74  20 79 6f 75 72 20 61 72  | you put your ar|
000124b0  6d 73 20 61 72 6f 75 6e  64 20 68 69 6d 2e 2e 2e  |ms around him...|
000124c0  20 2e 2e 2e 79 6f 75 20  63 68 61 6e 67 65 20 79  | ...you change y|
000124d0  6f 75 72 20 6d 69 6e 64  2e 22 0d 57 30 75 e7 20  |our mind.".W0u. |
000124e0  a7 69 24 2c 22 67 61 74  65 22 29 3e 30 20 74 24  |.i$,"gate")>0 t$|
000124f0  3d 22 54 68 65 20 67 61  74 65 73 20 73 65 65 6d  |="The gates seem|
00012500  20 74 6f 20 62 65 20 66  69 78 65 64 20 71 75 69  | to be fixed qui|
00012510  74 65 20 73 74 75 72 64  69 6c 79 20 74 6f 20 74  |te sturdily to t|
00012520  68 65 20 66 65 6e 63 65  2c 20 77 68 69 63 68 20  |he fence, which |
00012530  69 74 73 65 6c 66 20 69  73 20 66 69 78 65 64 20  |itself is fixed |
00012540  74 6f 20 74 68 65 20 67  72 6f 75 6e 64 2e 22 0d  |to the ground.".|
00012550  57 3a 05 cd 0d 57 44 6f  e7 20 72 6f 6f 6d 6e 6f  |W:...WDo. roomno|
00012560  25 3d 31 38 20 80 20 a7  69 24 2c 22 73 6c 75 64  |%=18 . .i$,"slud|
00012570  67 65 22 29 3e 30 20 74  24 3d 22 59 6f 75 20 73  |ge")>0 t$="You s|
00012580  63 6f 6f 70 20 75 70 20  73 6f 6d 65 20 73 6c 75  |coop up some slu|
00012590  64 67 65 20 77 69 74 68  20 79 6f 75 72 20 68 61  |dge with your ha|
000125a0  6e 64 73 2c 20 62 75 74  20 69 74 20 73 6c 69 70  |nds, but it slip|
000125b0  73 20 72 69 67 68 74 20  6f 75 74 20 61 67 61 69  |s right out agai|
000125c0  6e 2e 22 0d 57 4e 58 e7  20 72 6f 6f 6d 6e 6f 25  |n.".WNX. roomno%|
000125d0  3d 31 39 20 80 20 a7 69  24 2c 22 73 69 67 6e 22  |=19 . .i$,"sign"|
000125e0  29 3e 30 20 74 24 3d 22  54 68 65 20 73 69 67 6e  |)>0 t$="The sign|
000125f0  20 69 73 20 6c 61 72 67  65 20 61 6e 64 20 77 6f  | is large and wo|
00012600  75 6c 64 20 62 65 20 74  6f 6f 20 68 65 61 76 79  |uld be too heavy|
00012610  20 74 6f 20 63 61 72 72  79 2e 22 0d 57 58 4c e7  | to carry.".WXL.|
00012620  20 72 6f 6f 6d 6e 6f 25  3d 32 32 20 80 20 a7 69  | roomno%=22 . .i|
00012630  24 2c 22 73 74 61 69 72  22 29 3e 30 20 74 24 3d  |$,"stair")>0 t$=|
00012640  22 59 6f 75 20 63 61 6e  27 74 20 75 70 72 6f 6f  |"You can't uproo|
00012650  74 20 61 20 70 61 72 74  20 6f 66 20 74 68 65 20  |t a part of the |
00012660  68 6f 75 73 65 2e 22 0d  57 62 58 e7 20 72 6f 6f  |house.".WbX. roo|
00012670  6d 6e 6f 25 3d 32 36 20  80 20 a7 69 24 2c 22 77  |mno%=26 . .i$,"w|
00012680  69 6e 64 6f 77 22 29 3e  30 20 74 24 3d 22 59 6f  |indow")>0 t$="Yo|
00012690  75 20 61 72 65 6e 27 74  20 68 69 67 68 20 65 6e  |u aren't high en|
000126a0  6f 75 67 68 20 74 6f 20  65 76 65 6e 20 74 6f 75  |ough to even tou|
000126b0  63 68 20 74 68 65 20 77  69 6e 64 6f 77 2e 22 0d  |ch the window.".|
000126c0  57 6c 12 e7 20 72 6f 6f  6d 6e 6f 25 3d 32 37 20  |Wl.. roomno%=27 |
000126d0  8c 0d 57 76 61 e7 20 a7  69 24 2c 22 64 75 73 74  |..Wva. .i$,"dust|
000126e0  22 29 3e 30 20 74 24 3d  22 59 6f 75 20 74 61 6b  |")>0 t$="You tak|
000126f0  65 20 61 20 68 61 6e 64  66 75 6c 20 6f 66 20 74  |e a handful of t|
00012700  68 65 20 64 75 73 74 2c  20 62 75 74 20 69 74 20  |he dust, but it |
00012710  66 6c 6f 77 73 20 72 69  67 68 74 20 74 68 72 6f  |flows right thro|
00012720  75 67 68 20 79 6f 75 72  20 66 69 6e 67 65 72 73  |ugh your fingers|
00012730  2e 22 0d 57 80 3a e7 20  a7 69 24 2c 22 63 72 61  |.".W.:. .i$,"cra|
00012740  74 65 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |te")>0 t$="The c|
00012750  72 61 74 65 20 69 73 20  74 6f 6f 20 68 65 61 76  |rate is too heav|
00012760  79 20 74 6f 20 62 75 64  67 65 2e 22 0d 57 8a 05  |y to budge.".W..|
00012770  cd 0d 57 94 12 e7 20 72  6f 6f 6d 6e 6f 25 3d 32  |..W... roomno%=2|
00012780  39 20 8c 0d 57 9e 39 e7  20 a7 69 24 2c 22 73 69  |9 ..W.9. .i$,"si|
00012790  67 6e 22 29 3e 30 20 74  24 3d 22 54 68 65 20 73  |gn")>0 t$="The s|
000127a0  69 67 6e 20 69 73 20 73  63 72 65 77 65 64 20 74  |ign is screwed t|
000127b0  6f 20 74 68 65 20 77 61  6c 6c 2e 22 0d 57 a8 5c  |o the wall.".W.\|
000127c0  e7 20 a7 69 24 2c 22 62  61 6b 65 72 22 29 3e 30  |. .i$,"baker")>0|
000127d0  20 74 24 3d 22 54 68 65  20 62 61 6b 65 72 20 77  | t$="The baker w|
000127e0  6f 75 6c 64 6e 27 74 20  62 65 20 74 6f 6f 20 68  |ouldn't be too h|
000127f0  61 70 70 79 20 69 66 20  79 6f 75 20 73 74 61 72  |appy if you star|
00012800  74 65 64 20 6c 69 66 74  69 6e 67 20 68 69 6d 20  |ted lifting him |
00012810  61 72 6f 75 6e 64 2e 22  0d 57 b2 3b e7 20 a7 69  |around.".W.;. .i|
00012820  24 2c 22 63 6f 75 6e 74  65 72 22 29 3e 30 20 74  |$,"counter")>0 t|
00012830  24 3d 22 54 68 65 20 63  6f 75 6e 74 65 72 20 77  |$="The counter w|
00012840  6f 75 6c 64 20 62 65 20  74 6f 6f 20 68 65 61 76  |ould be too heav|
00012850  79 2e 22 0d 57 bc 4e e7  20 a7 69 24 2c 22 62 61  |y.".W.N. .i$,"ba|
00012860  67 22 29 3e 30 20 74 24  3d 22 59 6f 75 20 65 64  |g")>0 t$="You ed|
00012870  67 65 20 6e 65 61 72 65  72 20 74 68 65 20 62 61  |ge nearer the ba|
00012880  67 2c 20 62 75 74 20 74  68 65 20 62 61 6b 65 72  |g, but the baker|
00012890  20 73 63 61 72 65 73 20  79 6f 75 20 6f 66 66 2e  | scares you off.|
000128a0  22 0d 57 c6 57 e7 20 a7  69 24 2c 22 74 69 6c 6c  |".W.W. .i$,"till|
000128b0  22 29 3e 30 20 74 24 3d  22 59 6f 75 20 6d 69 67  |")>0 t$="You mig|
000128c0  68 74 20 6c 6f 6f 6b 20  61 20 74 61 64 20 73 75  |ht look a tad su|
000128d0  73 70 69 63 69 6f 75 73  20 77 69 74 68 20 61 20  |spicious with a |
000128e0  74 69 6c 6c 20 75 6e 64  65 72 20 79 6f 75 72 20  |till under your |
000128f0  6a 75 6d 70 65 72 2e 22  0d 57 d0 15 e7 20 a7 69  |jumper.".W... .i|
00012900  24 2c 22 6c 6f 61 66 22  29 3e 30 20 8c 0d 57 da  |$,"loaf")>0 ..W.|
00012910  a0 f2 61 64 64 28 22 54  68 65 20 62 61 6b 65 72  |..add("The baker|
00012920  20 73 70 72 69 6e 67 73  20 75 70 20 61 6e 64 20  | springs up and |
00012930  73 68 6f 75 74 73 20 27  54 48 49 45 46 21 21 27  |shouts 'THIEF!!'|
00012940  2e 20 41 20 70 6f 6c 69  63 65 6d 61 6e 20 72 75  |. A policeman ru|
00012950  6e 73 20 69 6e 2c 20 67  72 61 62 73 20 79 6f 75  |ns in, grabs you|
00012960  72 20 61 72 6d 20 61 6e  64 20 79 6f 75 20 61 72  |r arm and you ar|
00012970  65 20 6b 6e 6f 63 6b 65  64 20 6f 75 74 2e 20 48  |e knocked out. H|
00012980  6f 75 72 73 20 6c 61 74  65 72 20 79 6f 75 20 77  |ours later you w|
00012990  61 6b 65 20 75 70 20 69  6e 20 61 20 73 74 72 61  |ake up in a stra|
000129a0  6e 67 65 20 72 6f 6f 6d  2e 2e 2e 22 29 0d 57 e4  |nge room...").W.|
000129b0  66 70 6f 6c 74 69 6d 65  25 3d 91 3a 7a 6f 6e 65  |fpoltime%=.:zone|
000129c0  25 3d 32 3a 72 6f 6f 6d  6e 6f 25 3d 38 35 3a f2  |%=2:roomno%=85:.|
000129d0  72 65 6d 6b 65 79 3a 6d  61 70 79 6e 25 28 72 6f  |remkey:mapyn%(ro|
000129e0  6f 6d 6e 6f 25 29 3d 31  3a 69 24 3d 22 6c 6f 6f  |omno%)=1:i$="loo|
000129f0  6b 22 3a f2 6c 6f 6f 6b  3a 77 69 6d 70 25 21 30  |k":.look:wimp%!0|
00012a00  3d 6d 61 70 68 61 6e 25  3a f2 72 65 64 72 61 77  |=maphan%:.redraw|
00012a10  6d 61 70 0d 57 ee 6a e7  20 64 72 75 67 67 65 64  |map.W.j. drugged|
00012a20  25 3d 30 20 74 24 3d 22  54 68 65 20 67 75 61 72  |%=0 t$="The guar|
00012a30  64 20 6c 6f 6f 6b 73 20  61 72 6f 75 6e 64 20 61  |d looks around a|
00012a40  6e 64 20 73 65 65 73 20  74 68 61 74 20 79 6f 75  |nd sees that you|
00012a50  20 68 61 76 65 20 77 6f  6b 65 6e 20 75 70 2e 22  | have woken up."|
00012a60  20 8b 20 74 24 3d 22 54  68 65 20 67 75 61 72 64  | . t$="The guard|
00012a70  20 69 73 20 73 6c 75 6d  70 65 64 2e 22 0d 57 f8  | is slumped.".W.|
00012a80  05 cd 0d 58 02 05 cd 0d  58 0c 12 e7 20 72 6f 6f  |...X....X... roo|
00012a90  6d 6e 6f 25 3d 33 30 20  8c 0d 58 16 3b e7 20 a7  |mno%=30 ..X.;. .|
00012aa0  69 24 2c 22 63 6f 75 6e  74 65 72 22 29 3e 30 20  |i$,"counter")>0 |
00012ab0  74 24 3d 22 54 68 65 20  63 6f 75 6e 74 65 72 20  |t$="The counter |
00012ac0  77 6f 75 6c 64 20 62 65  20 74 6f 6f 20 68 65 61  |would be too hea|
00012ad0  76 79 2e 22 0d 58 20 62  e7 20 a7 69 24 2c 22 62  |vy.".X b. .i$,"b|
00012ae0  75 74 63 68 65 72 22 29  3e 30 20 74 24 3d 22 54  |utcher")>0 t$="T|
00012af0  68 65 20 62 75 74 63 68  65 72 20 69 73 6e 27 74  |he butcher isn't|
00012b00  20 74 68 65 20 73 6f 72  74 20 6f 66 20 70 65 72  | the sort of per|
00012b10  73 6f 6e 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |son you want to |
00012b20  73 74 61 72 74 20 70 75  73 68 69 6e 67 20 61 72  |start pushing ar|
00012b30  6f 75 6e 64 2e 22 0d 58  2a 5c e7 20 a7 69 24 2c  |ound.".X*\. .i$,|
00012b40  22 63 6c 6f 74 68 65 73  22 29 3e 30 20 74 24 3d  |"clothes")>0 t$=|
00012b50  22 54 68 65 20 62 75 74  63 68 65 72 20 77 6f 75  |"The butcher wou|
00012b60  6c 64 6e 27 74 20 62 65  20 68 61 70 70 79 20 69  |ldn't be happy i|
00012b70  66 20 79 6f 75 20 72 69  70 70 65 64 20 74 68 65  |f you ripped the|
00012b80  20 63 6c 6f 74 68 65 73  20 6f 66 66 20 68 69 6d  | clothes off him|
00012b90  2e 22 0d 58 34 5e e7 20  a7 69 24 2c 22 62 6c 6f  |.".X4^. .i$,"blo|
00012ba0  6f 64 22 29 3e 30 20 74  24 3d 22 4f 6e 6c 79 20  |od")>0 t$="Only |
00012bb0  76 61 6d 70 69 72 65 73  20 68 61 76 65 20 74 68  |vampires have th|
00012bc0  65 20 64 65 73 69 72 65  20 74 6f 20 67 72 61 62  |e desire to grab|
00012bd0  20 61 6e 79 20 67 6c 6f  62 75 6c 65 20 6f 66 20  | any globule of |
00012be0  62 6c 6f 6f 64 20 74 68  65 79 20 73 65 65 2e 22  |blood they see."|
00012bf0  0d 58 3e 15 e7 20 a7 69  24 2c 22 6d 65 61 74 22  |.X>.. .i$,"meat"|
00012c00  29 3e 30 20 8c 0d 58 48  d7 74 24 3d 22 59 6f 75  |)>0 ..XH.t$="You|
00012c10  20 63 61 72 65 66 75 6c  6c 79 20 70 69 63 6b 20  | carefully pick |
00012c20  75 70 20 61 20 73 74 65  61 6b 2c 20 64 72 69 70  |up a steak, drip|
00012c30  70 69 6e 67 20 77 69 74  68 20 62 6c 6f 6f 64 2c  |ping with blood,|
00012c40  20 62 75 74 20 74 68 65  20 62 75 74 63 68 65 72  | but the butcher|
00012c50  2c 20 77 68 6f 20 68 61  74 65 73 20 74 68 69 65  |, who hates thie|
00012c60  76 65 73 2c 20 68 61 73  20 62 65 65 6e 20 63 61  |ves, has been ca|
00012c70  72 65 66 75 6c 6c 79 20  77 61 74 63 68 69 6e 67  |refully watching|
00012c80  20 79 6f 75 2e 20 48 65  20 72 65 76 65 61 6c 73  | you. He reveals|
00012c90  20 61 20 6c 61 72 67 65  20 6b 69 74 63 68 65 6e  | a large kitchen|
00012ca0  20 6b 6e 69 66 65 20 61  6e 64 20 61 69 6d 73 20  | knife and aims |
00012cb0  62 65 74 77 65 65 6e 20  79 6f 75 72 20 65 79 65  |between your eye|
00012cc0  73 2e 20 53 63 63 63 68  6d 6d 61 61 63 6b 6b 2e  |s. Sccchmmaackk.|
00012cd0  20 42 6c 61 63 6b 6e 65  73 73 2e 22 0d 58 52 18  | Blackness.".XR.|
00012ce0  6e 69 66 6f 6b 25 3d 31  3a f2 64 65 63 69 64 65  |nifok%=1:.decide|
00012cf0  70 69 63 73 0d 58 5c 05  cd 0d 58 66 05 cd 0d 58  |pics.X\...Xf...X|
00012d00  70 3c e7 20 72 6f 6f 6d  6e 6f 25 3d 33 34 20 80  |p<. roomno%=34 .|
00012d10  20 a7 69 24 2c 22 70 6f  6e 64 22 29 3e 30 20 74  | .i$,"pond")>0 t|
00012d20  24 3d 22 59 6f 75 20 63  61 6e 6e 6f 74 20 67 65  |$="You cannot ge|
00012d30  74 20 61 20 70 6f 6e 64  21 22 0d 58 7a 12 e7 20  |t a pond!".Xz.. |
00012d40  72 6f 6f 6d 6e 6f 25 3d  33 35 20 8c 0d 58 84 59  |roomno%=35 ..X.Y|
00012d50  e7 20 a7 69 24 2c 22 66  6c 6f 77 65 72 22 29 3e  |. .i$,"flower")>|
00012d60  30 20 74 24 3d 22 54 68  65 20 66 6c 6f 77 65 72  |0 t$="The flower|
00012d70  73 20 6c 6f 6f 6b 20 66  61 72 20 74 6f 6f 20 70  |s look far too p|
00012d80  72 65 74 74 79 20 77 68  65 72 65 20 74 68 65 79  |retty where they|
00012d90  20 61 72 65 20 74 6f 20  75 70 72 6f 6f 74 20 74  | are to uproot t|
00012da0  68 65 6d 2e 22 0d 58 8e  60 e7 20 a7 69 24 2c 22  |hem.".X.`. .i$,"|
00012db0  62 65 64 22 29 3e 30 20  74 24 3d 22 49 74 20 77  |bed")>0 t$="It w|
00012dc0  6f 75 6c 64 20 68 65 6c  70 20 69 66 20 79 6f 75  |ould help if you|
00012dd0  20 66 6f 75 6e 64 20 61  20 62 75 6c 6c 64 6f 7a  | found a bulldoz|
00012de0  65 72 20 66 69 72 73 74  20 2d 20 6e 6f 74 20 65  |er first - not e|
00012df0  61 73 79 20 69 6e 20 74  68 69 73 20 63 65 6e 74  |asy in this cent|
00012e00  75 72 79 2e 22 0d 58 98  05 cd 0d 58 a2 12 e7 20  |ury.".X....X... |
00012e10  72 6f 6f 6d 6e 6f 25 3d  33 36 20 8c 0d 58 ac 40  |roomno%=36 ..X.@|
00012e20  e7 20 a7 69 24 2c 22 70  61 74 68 22 29 3e 30 20  |. .i$,"path")>0 |
00012e30  74 24 3d 22 54 68 65 20  70 61 74 68 20 69 73 20  |t$="The path is |
00012e40  66 69 72 6d 6c 79 20 66  69 78 65 64 20 74 6f 20  |firmly fixed to |
00012e50  74 68 65 20 67 72 6f 75  6e 64 2e 22 0d 58 b6 42  |the ground.".X.B|
00012e60  e7 20 a7 69 24 2c 22 73  6c 61 62 22 29 3e 30 20  |. .i$,"slab")>0 |
00012e70  74 24 3d 22 54 68 65 20  73 6c 61 62 73 20 61 72  |t$="The slabs ar|
00012e80  65 20 66 69 72 6d 6c 79  20 66 69 78 65 64 20 74  |e firmly fixed t|
00012e90  6f 20 74 68 65 20 67 72  6f 75 6e 64 2e 22 0d 58  |o the ground.".X|
00012ea0  c0 05 cd 0d 58 ca 12 e7  20 72 6f 6f 6d 6e 6f 25  |....X... roomno%|
00012eb0  3d 33 37 20 8c 0d 58 d4  2f e7 20 a7 69 24 2c 22  |=37 ..X./. .i$,"|
00012ec0  76 69 63 61 72 22 29 3e  30 20 74 24 3d 22 4e 6f  |vicar")>0 t$="No|
00012ed0  2c 20 79 6f 75 27 64 20  62 65 74 74 65 72 20 6e  |, you'd better n|
00012ee0  6f 74 2e 22 0d 58 de 3b  e7 20 a7 69 24 2c 22 61  |ot.".X.;. .i$,"a|
00012ef0  6c 74 61 72 22 29 3e 30  20 74 24 3d 22 54 68 65  |ltar")>0 t$="The|
00012f00  20 61 6c 74 61 72 20 69  73 20 74 6f 6f 20 73 61  | altar is too sa|
00012f10  63 72 65 64 20 74 6f 20  74 6f 75 63 68 2e 22 0d  |cred to touch.".|
00012f20  58 e8 58 e7 20 a7 69 24  2c 22 73 74 65 70 22 29  |X.X. .i$,"step")|
00012f30  3e 30 20 74 24 3d 22 49  66 20 79 6f 75 20 72 65  |>0 t$="If you re|
00012f40  6d 6f 76 65 64 20 74 68  65 20 73 74 65 70 73 20  |moved the steps |
00012f50  74 68 65 72 65 20 77 6f  75 6c 64 20 62 65 20 6e  |there would be n|
00012f60  6f 20 77 61 79 20 74 6f  20 67 65 74 20 75 70 73  |o way to get ups|
00012f70  74 61 69 72 73 2e 22 0d  58 f2 4f e7 20 a7 69 24  |tairs.".X.O. .i$|
00012f80  2c 22 67 69 72 6c 22 29  3e 30 20 80 20 63 72 69  |,"girl")>0 . cri|
00012f90  65 72 25 3d 31 20 74 24  3d 22 54 68 65 20 67 69  |er%=1 t$="The gi|
00012fa0  72 6c 20 70 72 6f 6d 70  74 6c 79 20 73 6c 61 70  |rl promptly slap|
00012fb0  73 20 79 6f 75 20 72 6f  75 6e 64 20 74 68 65 20  |s you round the |
00012fc0  66 61 63 65 2e 22 0d 58  fc 3f e7 20 a7 69 24 2c  |face.".X.?. .i$,|
00012fd0  22 67 69 72 6c 22 29 3e  30 20 80 20 63 72 69 65  |"girl")>0 . crie|
00012fe0  72 25 3d 30 20 74 24 3d  22 54 68 65 20 67 69 72  |r%=0 t$="The gir|
00012ff0  6c 20 69 73 20 6e 6f 20  6c 6f 6e 67 65 72 20 68  |l is no longer h|
00013000  65 72 65 2e 22 0d 59 06  05 cd 0d 59 10 12 e7 20  |ere.".Y....Y... |
00013010  72 6f 6f 6d 6e 6f 25 3d  33 38 20 8c 0d 59 1a 3c  |roomno%=38 ..Y.<|
00013020  e7 20 a7 69 24 2c 22 67  72 61 73 73 22 29 3e 30  |. .i$,"grass")>0|
00013030  20 74 24 3d 22 54 68 65  20 67 72 61 73 73 20 69  | t$="The grass i|
00013040  73 20 6e 6f 74 20 77 6f  72 74 68 20 70 75 6c 6c  |s not worth pull|
00013050  69 6e 67 20 75 70 2e 22  0d 59 24 4e e7 20 a7 69  |ing up.".Y$N. .i|
00013060  24 2c 22 68 65 61 64 73  74 6f 6e 65 22 29 3e 30  |$,"headstone")>0|
00013070  20 74 24 3d 22 54 68 65  20 68 65 61 64 73 74 6f  | t$="The headsto|
00013080  6e 65 73 20 61 72 65 20  66 69 72 6d 6c 79 20 66  |nes are firmly f|
00013090  69 78 65 64 20 69 6e 74  6f 20 74 68 65 20 67 72  |ixed into the gr|
000130a0  6f 75 6e 64 2e 22 0d 59  2e 05 cd 0d 59 38 12 e7  |ound.".Y....Y8..|
000130b0  20 72 6f 6f 6d 6e 6f 25  3d 33 39 20 8c 0d 59 42  | roomno%=39 ..YB|
000130c0  42 e7 20 a7 69 24 2c 22  67 72 61 73 73 22 29 3e  |B. .i$,"grass")>|
000130d0  30 20 74 24 3d 22 54 68  65 20 67 72 61 73 73 20  |0 t$="The grass |
000130e0  69 73 20 74 6f 6f 20 73  68 6f 72 74 20 74 6f 20  |is too short to |
000130f0  67 65 74 20 61 20 67 72  69 70 20 6f 6e 2e 22 0d  |get a grip on.".|
00013100  59 4c 61 e7 20 a7 69 24  2c 22 66 6c 6f 77 65 72  |YLa. .i$,"flower|
00013110  22 29 3e 30 20 74 24 3d  22 54 68 65 20 66 6c 6f  |")>0 t$="The flo|
00013120  77 65 72 73 20 61 72 65  20 73 6f 20 77 65 6c 6c  |wers are so well|
00013130  20 6c 6f 6f 6b 65 64 20  61 66 74 65 72 2c 20 74  | looked after, t|
00013140  68 65 20 6f 77 6e 65 72  20 6d 61 79 20 62 65 20  |he owner may be |
00013150  61 20 6c 69 74 74 6c 65  20 61 6e 67 72 79 2e 22  |a little angry."|
00013160  0d 59 56 52 e7 20 a7 69  24 2c 22 77 69 6c 6c 6f  |.YVR. .i$,"willo|
00013170  77 22 29 3e 30 20 84 20  a7 69 24 2c 22 74 72 65  |w")>0 . .i$,"tre|
00013180  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 77 69  |e")>0 t$="The wi|
00013190  6c 6c 6f 77 20 74 72 65  65 20 68 61 73 20 66 61  |llow tree has fa|
000131a0  72 20 74 6f 6f 20 6d 61  6e 79 20 72 6f 6f 74 73  |r too many roots|
000131b0  2e 22 0d 59 60 2b e7 20  a7 69 24 2c 22 70 61 74  |.".Y`+. .i$,"pat|
000131c0  68 22 29 3e 30 20 74 24  3d 22 54 68 65 20 70 61  |h")>0 t$="The pa|
000131d0  74 68 20 69 74 20 66 69  78 65 64 2e 22 0d 59 6a  |th it fixed.".Yj|
000131e0  05 cd 0d 59 74 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...Yt.. roomno%=|
000131f0  34 31 20 8c 0d 59 7e 43  e7 20 a7 69 24 2c 22 68  |41 ..Y~C. .i$,"h|
00013200  65 61 64 73 74 6f 6e 65  22 29 3e 30 20 74 24 3d  |eadstone")>0 t$=|
00013210  22 54 68 65 20 68 65 61  64 73 74 6f 6e 65 20 69  |"The headstone i|
00013220  73 20 66 69 78 65 64 20  69 6e 20 74 68 65 20 67  |s fixed in the g|
00013230  72 6f 75 6e 64 2e 22 0d  59 88 3c e7 20 a7 69 24  |round.".Y.<. .i$|
00013240  2c 22 67 72 61 73 73 22  29 3e 30 20 74 24 3d 22  |,"grass")>0 t$="|
00013250  54 68 65 20 67 72 61 73  73 20 69 73 20 6e 6f 74  |The grass is not|
00013260  20 77 6f 72 74 68 20 70  75 6c 6c 69 6e 67 20 75  | worth pulling u|
00013270  70 2e 22 0d 59 92 05 cd  0d 59 9c 12 e7 20 72 6f  |p.".Y....Y... ro|
00013280  6f 6d 6e 6f 25 3d 34 39  20 8c 0d 59 a6 3b e7 20  |omno%=49 ..Y.;. |
00013290  a7 69 24 2c 22 74 61 62  6c 65 22 29 3e 30 20 74  |.i$,"table")>0 t|
000132a0  24 3d 22 54 68 65 20 74  61 62 6c 65 73 20 61 72  |$="The tables ar|
000132b0  65 20 74 6f 6f 20 68 65  61 76 79 20 74 6f 20 6c  |e too heavy to l|
000132c0  69 66 74 2e 22 0d 59 b0  3d e7 20 a7 69 24 2c 22  |ift.".Y.=. .i$,"|
000132d0  63 68 61 69 72 22 29 3e  30 20 74 24 3d 22 54 68  |chair")>0 t$="Th|
000132e0  65 72 65 20 61 72 65 20  74 6f 6f 20 6d 61 6e 79  |ere are too many|
000132f0  20 63 68 61 69 72 73 20  74 6f 20 63 61 72 72 79  | chairs to carry|
00013300  2e 22 0d 59 ba 49 e7 20  a7 69 24 2c 22 67 6c 61  |.".Y.I. .i$,"gla|
00013310  73 73 22 29 3e 30 20 74  24 3d 22 45 6d 70 74 79  |ss")>0 t$="Empty|
00013320  20 77 69 6e 65 20 67 6c  61 73 73 65 73 20 61 72  | wine glasses ar|
00013330  65 20 6e 6f 74 20 76 65  72 79 20 68 65 6c 70 66  |e not very helpf|
00013340  75 6c 20 74 6f 20 79 6f  75 2e 22 0d 59 c4 05 cd  |ul to you.".Y...|
00013350  0d 59 ce 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 35 30  |.Y... roomno%=50|
00013360  20 8c 0d 59 d8 3f e7 20  a7 69 24 2c 22 70 65 6f  | ..Y.?. .i$,"peo|
00013370  70 6c 65 22 29 3e 30 20  74 24 3d 22 59 6f 75 20  |ple")>0 t$="You |
00013380  63 61 6e 27 74 20 70 69  63 6b 20 75 70 20 61 20  |can't pick up a |
00013390  63 72 6f 77 64 20 6f 66  20 70 65 6f 70 6c 65 21  |crowd of people!|
000133a0  22 0d 59 e2 45 e7 20 a7  69 24 2c 22 74 61 62 6c  |".Y.E. .i$,"tabl|
000133b0  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 73 6e  |e")>0 t$="The sn|
000133c0  6f 6f 6b 65 72 20 74 61  62 6c 65 20 69 73 20 66  |ooker table is f|
000133d0  61 72 20 74 6f 6f 20 68  65 61 76 79 20 74 6f 20  |ar too heavy to |
000133e0  6c 69 66 74 2e 22 0d 59  ec 38 e7 20 a7 69 24 2c  |lift.".Y.8. .i$,|
000133f0  22 66 65 6c 74 22 29 3e  30 20 74 24 3d 22 54 68  |"felt")>0 t$="Th|
00013400  65 20 66 65 6c 74 20 69  73 20 67 6c 75 65 64 20  |e felt is glued |
00013410  74 6f 20 74 68 65 20 74  61 62 6c 65 2e 22 0d 59  |to the table.".Y|
00013420  f6 05 cd 0d 5a 00 12 e7  20 72 6f 6f 6d 6e 6f 25  |....Z... roomno%|
00013430  3d 35 32 20 8c 0d 5a 0a  36 e7 20 a7 69 24 2c 22  |=52 ..Z.6. .i$,"|
00013440  62 61 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |bar")>0 t$="The |
00013450  62 61 72 20 69 73 20 69  6d 70 6f 73 73 69 62 6c  |bar is impossibl|
00013460  65 20 74 6f 20 6c 69 66  74 2e 22 0d 5a 14 49 e7  |e to lift.".Z.I.|
00013470  20 a7 69 24 2c 22 6d 61  6e 22 29 3e 30 20 74 24  | .i$,"man")>0 t$|
00013480  3d 22 54 68 65 20 6d 61  6e 20 77 6f 75 6c 64 20  |="The man would |
00013490  6e 6f 74 20 61 70 70 72  65 63 69 61 74 65 20 62  |not appreciate b|
000134a0  65 69 6e 67 20 6c 69 66  74 65 64 20 61 72 6f 75  |eing lifted arou|
000134b0  6e 64 2e 22 0d 5a 1e 41  e7 20 a7 69 24 2c 22 75  |nd.".Z.A. .i$,"u|
000134c0  6e 69 66 6f 72 6d 22 29  3e 30 20 74 24 3d 22 59  |niform")>0 t$="Y|
000134d0  6f 75 20 63 61 6e 6e 6f  74 20 72 69 70 20 74 68  |ou cannot rip th|
000134e0  65 20 6d 61 6e 27 73 20  63 6c 6f 74 68 65 73 20  |e man's clothes |
000134f0  6f 66 66 21 22 0d 5a 28  41 e7 20 a7 69 24 2c 22  |off!".Z(A. .i$,"|
00013500  62 6f 74 74 6c 65 22 29  3e 30 20 74 24 3d 22 54  |bottle")>0 t$="T|
00013510  68 65 20 62 6f 74 74 6c  65 73 20 61 72 65 20 74  |he bottles are t|
00013520  6f 6f 20 66 61 72 20 61  77 61 79 20 74 6f 20 72  |oo far away to r|
00013530  65 61 63 68 2e 22 0d 5a  32 45 e7 20 a7 69 24 2c  |each.".Z2E. .i$,|
00013540  22 67 6c 61 73 73 22 29  3e 30 20 74 24 3d 22 54  |"glass")>0 t$="T|
00013550  68 65 20 67 6c 61 73 73  65 73 20 61 72 65 20 6a  |he glasses are j|
00013560  75 73 74 20 74 6f 6f 20  66 61 72 20 61 77 61 79  |ust too far away|
00013570  20 74 6f 20 72 65 61 63  68 2e 22 0d 5a 3c 05 cd  | to reach.".Z<..|
00013580  0d 5a 46 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 36 30  |.ZF.. roomno%=60|
00013590  20 8c 0d 5a 50 3d e7 20  a7 69 24 2c 22 64 69 73  | ..ZP=. .i$,"dis|
000135a0  70 6c 61 79 22 29 3e 30  20 74 24 3d 22 54 68 65  |play")>0 t$="The|
000135b0  20 64 69 73 70 6c 61 79  20 69 73 20 74 6f 6f 20  | display is too |
000135c0  68 65 61 76 79 20 74 6f  20 6c 69 66 74 2e 22 0d  |heavy to lift.".|
000135d0  5a 5a 4a e7 20 a7 69 24  2c 22 6b 65 79 22 29 3e  |ZZJ. .i$,"key")>|
000135e0  30 20 74 24 3d 22 54 68  65 20 6b 65 79 73 20 61  |0 t$="The keys a|
000135f0  72 65 20 61 6c 6c 20 73  61 66 65 20 62 65 68 69  |re all safe behi|
00013600  6e 64 20 69 6e 20 74 68  65 20 67 6c 61 73 73 20  |nd in the glass |
00013610  64 69 73 70 6c 61 79 2e  22 0d 5a 64 42 e7 20 a7  |display.".ZdB. .|
00013620  69 24 2c 22 6a 65 77 65  6c 22 29 3e 30 20 74 24  |i$,"jewel")>0 t$|
00013630  3d 22 54 68 65 20 6a 65  77 65 6c 73 20 61 72 65  |="The jewels are|
00013640  20 73 74 75 63 6b 20 66  69 72 6d 6c 79 20 74 6f  | stuck firmly to|
00013650  20 74 68 65 20 6b 65 79  73 2e 22 0d 5a 6e 05 cd  | the keys.".Zn..|
00013660  0d 5a 78 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 36 32  |.Zx.. roomno%=62|
00013670  20 8c 0d 5a 82 46 e7 20  a7 69 24 2c 22 66 6f 75  | ..Z.F. .i$,"fou|
00013680  6e 74 61 69 6e 22 29 3e  30 20 74 24 3d 22 57 6f  |ntain")>0 t$="Wo|
00013690  75 6c 64 6e 27 74 20 74  68 65 20 66 6f 75 6e 74  |uldn't the fount|
000136a0  61 69 6e 20 62 65 20 61  20 74 61 64 20 74 6f 6f  |ain be a tad too|
000136b0  20 68 65 61 76 79 3f 22  0d 5a 8c 43 e7 20 a7 69  | heavy?".Z.C. .i|
000136c0  24 2c 22 77 61 74 65 72  22 29 3e 30 20 74 24 3d  |$,"water")>0 t$=|
000136d0  22 54 68 65 20 77 61 74  65 72 20 69 73 20 74 72  |"The water is tr|
000136e0  61 76 65 6c 6c 69 6e 67  20 74 6f 20 66 61 73 74  |avelling to fast|
000136f0  20 74 6f 20 63 61 74 63  68 2e 22 0d 5a 96 05 cd  | to catch.".Z...|
00013700  0d 5a a0 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 36 34  |.Z... roomno%=64|
00013710  20 8c 0d 5a aa 36 e7 20  a7 69 24 2c 22 62 61 72  | ..Z.6. .i$,"bar|
00013720  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 61 72  |")>0 t$="The bar|
00013730  20 69 73 20 69 6d 70 6f  73 73 69 62 6c 65 20 74  | is impossible t|
00013740  6f 20 6c 69 66 74 2e 22  0d 5a b4 7a e7 20 a7 69  |o lift.".Z.z. .i|
00013750  24 2c 22 77 6f 6d 61 6e  22 29 3e 30 20 84 20 a7  |$,"woman")>0 . .|
00013760  69 24 2c 22 62 61 72 6d  61 69 64 22 29 3e 30 20  |i$,"barmaid")>0 |
00013770  74 24 3d 22 41 73 20 6d  75 63 68 20 61 73 20 79  |t$="As much as y|
00013780  6f 75 20 77 6f 75 6c 64  20 6c 69 6b 65 20 69 74  |ou would like it|
00013790  2c 20 74 68 65 20 62 61  72 2d 6d 61 69 64 20 77  |, the bar-maid w|
000137a0  6f 75 6c 64 6e 27 74 20  6c 69 6b 65 20 74 6f 20  |ouldn't like to |
000137b0  62 65 20 6c 69 66 74 65  64 20 61 72 6f 75 6e 64  |be lifted around|
000137c0  2e 22 0d 5a be 41 e7 20  a7 69 24 2c 22 62 6f 74  |.".Z.A. .i$,"bot|
000137d0  74 6c 65 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |tle")>0 t$="The |
000137e0  62 6f 74 74 6c 65 73 20  61 72 65 20 74 6f 6f 20  |bottles are too |
000137f0  66 61 72 20 61 77 61 79  20 74 6f 20 72 65 61 63  |far away to reac|
00013800  68 2e 22 0d 5a c8 3c e7  20 a7 69 24 2c 22 67 6c  |h.".Z.<. .i$,"gl|
00013810  61 73 73 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ass")>0 t$="The |
00013820  67 6c 61 73 73 65 73 20  61 72 65 20 6a 75 73 74  |glasses are just|
00013830  20 6f 75 74 20 6f 66 20  72 65 61 63 68 2e 22 0d  | out of reach.".|
00013840  5a d2 05 cd 0d 5a dc 12  e7 20 72 6f 6f 6d 6e 6f  |Z....Z... roomno|
00013850  25 3d 36 35 20 8c 0d 5a  e6 3d e7 20 a7 69 24 2c  |%=65 ..Z.=. .i$,|
00013860  22 62 61 72 72 65 6c 22  29 3e 30 20 74 24 3d 22  |"barrel")>0 t$="|
00013870  54 68 65 20 62 61 72 72  65 6c 73 20 61 72 65 20  |The barrels are |
00013880  74 6f 6f 20 68 65 61 76  79 20 74 6f 20 6c 69 66  |too heavy to lif|
00013890  74 2e 22 0d 5a f0 05 cd  0d 5a fa 12 e7 20 72 6f  |t.".Z....Z... ro|
000138a0  6f 6d 6e 6f 25 3d 36 39  20 8c 0d 5b 04 3d e7 20  |omno%=69 ..[.=. |
000138b0  a7 69 24 2c 22 63 6f 75  6e 74 65 72 22 29 3e 30  |.i$,"counter")>0|
000138c0  20 74 24 3d 22 54 68 65  20 63 6f 75 6e 74 65 72  | t$="The counter|
000138d0  20 69 73 20 74 6f 6f 20  6c 61 72 67 65 20 74 6f  | is too large to|
000138e0  20 6c 69 66 74 2e 22 0d  5b 0e 49 e7 20 a7 69 24  | lift.".[.I. .i$|
000138f0  2c 22 6d 61 6e 22 29 3e  30 20 84 20 a7 69 24 2c  |,"man")>0 . .i$,|
00013900  22 6b 65 79 6d 61 6b 65  72 22 29 3e 30 20 74 24  |"keymaker")>0 t$|
00013910  3d 22 54 68 65 20 6b 65  79 6d 61 6b 65 72 20 69  |="The keymaker i|
00013920  73 20 74 6f 6f 20 66 61  72 20 61 77 61 79 2e 22  |s too far away."|
00013930  0d 5b 18 4d e7 20 a7 69  24 2c 22 73 70 65 63 74  |.[.M. .i$,"spect|
00013940  61 63 6c 65 22 29 3e 30  20 74 24 3d 22 54 68 65  |acle")>0 t$="The|
00013950  20 73 70 65 63 74 61 63  6c 65 73 20 61 72 65 20  | spectacles are |
00013960  6f 6e 20 74 68 65 20 66  61 63 65 20 6f 66 20 74  |on the face of t|
00013970  68 65 20 6b 65 79 6d 61  6b 65 72 2e 22 0d 5b 22  |he keymaker.".["|
00013980  37 e7 20 a7 69 24 2c 22  73 69 67 6e 22 29 3e 30  |7. .i$,"sign")>0|
00013990  20 74 24 3d 22 54 68 65  20 73 69 67 6e 20 69 73  | t$="The sign is|
000139a0  20 66 69 78 65 64 20 74  6f 20 74 68 65 20 77 61  | fixed to the wa|
000139b0  6c 6c 2e 22 0d 5b 2c 05  cd 0d 5b 36 12 e7 20 72  |ll.".[,...[6.. r|
000139c0  6f 6f 6d 6e 6f 25 3d 37  30 20 8c 0d 5b 40 39 e7  |oomno%=70 ..[@9.|
000139d0  20 a7 69 24 2c 22 73 69  67 6e 22 29 3e 30 20 74  | .i$,"sign")>0 t|
000139e0  24 3d 22 54 68 65 20 73  69 67 6e 20 69 73 20 74  |$="The sign is t|
000139f0  6f 6f 20 66 61 72 20 75  70 20 74 6f 20 72 65 61  |oo far up to rea|
00013a00  63 68 2e 22 0d 5b 4a 05  cd 0d 5b 54 13 e7 20 72  |ch.".[J...[T.. r|
00013a10  6f 6f 6d 6e 6f 25 3d 32  32 30 20 8c 0d 5b 5e 3d  |oomno%=220 ..[^=|
00013a20  e7 20 a7 69 24 2c 22 63  6c 6f 75 64 22 29 3e 30  |. .i$,"cloud")>0|
00013a30  20 74 24 3d 22 54 68 65  20 63 6c 6f 75 64 73 20  | t$="The clouds |
00013a40  61 72 65 20 69 6d 70 6f  73 73 69 62 6c 65 20 74  |are impossible t|
00013a50  6f 20 72 65 61 63 68 2e  22 0d 5b 68 38 e7 20 a7  |o reach.".[h8. .|
00013a60  69 24 2c 22 73 6d 6f 6b  65 22 29 3e 30 20 74 24  |i$,"smoke")>0 t$|
00013a70  3d 22 49 74 20 69 73 20  69 6d 70 6f 73 73 69 62  |="It is impossib|
00013a80  6c 65 20 74 6f 20 67 65  74 20 73 6d 6f 6b 65 2e  |le to get smoke.|
00013a90  22 0d 5b 72 05 cd 0d 5b  7c 12 e7 20 72 6f 6f 6d  |".[r...[|.. room|
00013aa0  6e 6f 25 3d 37 32 20 8c  0d 5b 86 51 e7 20 a7 69  |no%=72 ..[.Q. .i|
00013ab0  24 2c 22 6d 61 6e 22 29  3e 30 20 84 20 a7 69 24  |$,"man")>0 . .i$|
00013ac0  2c 22 77 69 7a 61 72 64  22 29 3e 30 20 74 24 3d  |,"wizard")>0 t$=|
00013ad0  22 54 68 65 20 77 69 7a  61 72 64 20 69 73 20 74  |"The wizard is t|
00013ae0  6f 6f 20 66 72 61 69 6c  20 74 6f 20 6c 69 66 74  |oo frail to lift|
00013af0  20 61 72 6f 75 6e 64 2e  22 0d 5b 90 42 e7 20 a7  | around.".[.B. .|
00013b00  69 24 2c 22 62 65 61 72  64 22 29 3e 30 20 74 24  |i$,"beard")>0 t$|
00013b10  3d 22 54 68 65 20 62 65  61 72 64 20 69 73 20 66  |="The beard is f|
00013b20  69 72 6d 6c 79 20 66 69  78 65 64 20 74 6f 20 74  |irmly fixed to t|
00013b30  68 65 20 77 69 7a 61 72  64 2e 22 0d 5b 9a 48 e7  |he wizard.".[.H.|
00013b40  20 a7 69 24 2c 22 63 61  70 65 22 29 3e 30 20 74  | .i$,"cape")>0 t|
00013b50  24 3d 22 54 68 65 20 63  61 70 65 20 69 73 20 74  |$="The cape is t|
00013b60  69 65 64 20 61 72 6f 75  6e 64 20 74 68 65 20 6e  |ied around the n|
00013b70  65 63 6b 20 6f 66 20 74  68 65 20 77 69 7a 61 72  |eck of the wizar|
00013b80  64 2e 22 0d 5b a4 05 cd  0d 5b ae 12 e7 20 72 6f  |d.".[....[... ro|
00013b90  6f 6d 6e 6f 25 3d 37 33  20 8c 0d 5b b8 43 e7 20  |omno%=73 ..[.C. |
00013ba0  a7 69 24 2c 22 62 6f 74  74 6c 65 22 29 3e 30 20  |.i$,"bottle")>0 |
00013bb0  74 24 3d 22 54 68 65 20  62 6f 74 74 6c 65 73 20  |t$="The bottles |
00013bc0  61 72 65 20 6e 6f 74 20  77 6f 72 74 68 20 69 6e  |are not worth in|
00013bd0  76 65 73 74 69 67 61 74  69 6e 67 2e 22 0d 5b c2  |vestigating.".[.|
00013be0  43 e7 20 a7 69 24 2c 22  70 6f 77 64 65 72 22 29  |C. .i$,"powder")|
00013bf0  3e 30 20 74 24 3d 22 54  68 65 20 70 6f 77 64 65  |>0 t$="The powde|
00013c00  72 73 20 61 72 65 20 6e  6f 74 20 77 6f 72 74 68  |rs are not worth|
00013c10  20 69 6e 76 65 73 74 69  67 61 74 69 6e 67 2e 22  | investigating."|
00013c20  0d 5b cc 50 e7 20 a7 69  24 2c 22 61 6c 63 68 65  |.[.P. .i$,"alche|
00013c30  6d 69 73 74 22 29 3e 30  20 84 20 a7 69 24 2c 22  |mist")>0 . .i$,"|
00013c40  6d 61 6e 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |man")>0 t$="The |
00013c50  61 6c 63 68 65 6d 69 73  74 20 69 73 20 74 6f 6f  |alchemist is too|
00013c60  20 68 65 61 76 79 20 74  6f 20 6c 69 66 74 2e 22  | heavy to lift."|
00013c70  0d 5b d6 05 cd 0d 5b e0  12 e7 20 72 6f 6f 6d 6e  |.[....[... roomn|
00013c80  6f 25 3d 37 35 20 8c 0d  5b ea 3b e7 20 a7 69 24  |o%=75 ..[.;. .i$|
00013c90  2c 22 6a 75 6e 6b 22 29  3e 30 20 74 24 3d 22 54  |,"junk")>0 t$="T|
00013ca0  68 65 72 65 20 69 73 20  74 6f 6f 20 6d 75 63 68  |here is too much|
00013cb0  20 6a 75 6e 6b 20 74 6f  20 70 69 63 6b 20 75 70  | junk to pick up|
00013cc0  2e 22 0d 5b f4 05 cd 0d  5b fe 12 e7 20 72 6f 6f  |.".[....[... roo|
00013cd0  6d 6e 6f 25 3d 37 36 20  8c 0d 5c 08 55 e7 20 a7  |mno%=76 ..\.U. .|
00013ce0  69 24 2c 22 74 72 61 6d  70 22 29 3e 30 20 84 20  |i$,"tramp")>0 . |
00013cf0  a7 69 24 2c 22 6d 61 6e  22 29 3e 30 20 74 24 3d  |.i$,"man")>0 t$=|
00013d00  22 54 68 65 20 74 72 61  6d 70 20 6c 6f 6f 6b 73  |"The tramp looks|
00013d10  20 74 6f 6f 20 63 6f 6d  66 6f 72 74 61 62 6c 65  | too comfortable|
00013d20  20 77 68 65 72 65 20 68  65 20 69 73 2e 22 0d 5c  | where he is.".\|
00013d30  12 45 e7 20 a7 69 24 2c  22 62 6f 78 22 29 3e 30  |.E. .i$,"box")>0|
00013d40  20 74 24 3d 22 54 68 65  20 63 61 72 64 62 6f 61  | t$="The cardboa|
00013d50  72 64 20 62 6f 78 20 69  73 20 74 72 61 70 70 65  |rd box is trappe|
00013d60  64 20 75 6e 64 65 72 20  74 68 65 20 74 72 61 6d  |d under the tram|
00013d70  70 2e 22 0d 5c 1c 05 cd  0d 5c 26 12 e7 20 72 6f  |p.".\....\&.. ro|
00013d80  6f 6d 6e 6f 25 3d 37 38  20 8c 0d 5c 30 0f e7 20  |omno%=78 ..\0.. |
00013d90  66 69 72 65 25 3d 30 20  8c 0d 5c 3a 55 e7 20 a7  |fire%=0 ..\:U. .|
00013da0  69 24 2c 22 63 68 61 72  22 29 3e 30 20 84 20 a7  |i$,"char")>0 . .|
00013db0  69 24 2c 22 72 65 6d 61  69 6e 22 29 3e 30 20 74  |i$,"remain")>0 t|
00013dc0  24 3d 22 54 68 65 20 63  68 61 72 72 65 64 20 72  |$="The charred r|
00013dd0  65 6d 61 69 6e 73 20 61  72 65 20 73 70 72 65 61  |emains are sprea|
00013de0  64 20 74 6f 6f 20 77 69  64 65 6c 79 2e 22 0d 5c  |d too widely.".\|
00013df0  44 05 cd 0d 5c 4e 0f e7  20 66 69 72 65 25 3e 30  |D...\N.. fire%>0|
00013e00  20 8c 0d 5c 58 30 e7 20  a7 69 24 2c 22 62 6f 79  | ..\X0. .i$,"boy|
00013e10  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 6f 79  |")>0 t$="The boy|
00013e20  20 69 73 20 74 6f 6f 20  66 61 72 20 61 77 61 79  | is too far away|
00013e30  2e 22 0d 5c 62 3b e7 20  a7 69 24 2c 22 66 69 72  |.".\b;. .i$,"fir|
00013e40  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 62 6f  |e")>0 t$="The bo|
00013e50  6e 66 69 72 65 20 69 73  20 74 6f 6f 20 68 6f 74  |nfire is too hot|
00013e60  20 74 6f 20 70 69 63 6b  20 75 70 2e 22 0d 5c 6c  | to pick up.".\l|
00013e70  3b e7 20 a7 69 24 2c 22  66 6c 61 6d 65 22 29 3e  |;. .i$,"flame")>|
00013e80  30 20 74 24 3d 22 54 68  65 20 66 6c 61 6d 65 73  |0 t$="The flames|
00013e90  20 61 72 65 20 69 6d 70  6f 73 73 69 62 6c 65 20  | are impossible |
00013ea0  74 6f 20 67 65 74 2e 22  0d 5c 76 05 cd 0d 5c 80  |to get.".\v...\.|
00013eb0  05 cd 0d 5c 8a 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...\... roomno%=|
00013ec0  38 31 20 8c 0d 5c 94 42  e7 20 a7 69 24 2c 22 67  |81 ..\.B. .i$,"g|
00013ed0  69 72 6c 22 29 3e 30 20  74 24 3d 22 54 68 65 72  |irl")>0 t$="Ther|
00013ee0  65 20 61 72 65 20 74 6f  6f 20 6d 61 6e 79 20 67  |e are too many g|
00013ef0  69 72 6c 73 20 74 6f 20  67 72 61 62 20 68 6f 6c  |irls to grab hol|
00013f00  64 20 6f 66 2e 22 0d 5c  9e 38 e7 20 a7 69 24 2c  |d of.".\.8. .i$,|
00013f10  22 62 61 72 22 29 3e 30  20 74 24 3d 22 54 68 65  |"bar")>0 t$="The|
00013f20  20 62 61 72 73 20 61 72  65 20 66 69 78 65 64 20  | bars are fixed |
00013f30  74 6f 20 74 68 65 20 77  61 6c 6c 73 2e 22 0d 5c  |to the walls.".\|
00013f40  a8 05 cd 0d 5c b2 12 e7  20 72 6f 6f 6d 6e 6f 25  |....\... roomno%|
00013f50  3d 38 32 20 8c 0d 5c bc  38 e7 20 a7 69 24 2c 22  |=82 ..\.8. .i$,"|
00013f60  64 65 73 6b 22 29 3e 30  20 74 24 3d 22 54 68 65  |desk")>0 t$="The|
00013f70  20 64 65 73 6b 20 69 73  20 66 69 78 65 64 20 74  | desk is fixed t|
00013f80  6f 20 74 68 65 20 66 6c  6f 6f 72 2e 22 0d 5c c6  |o the floor.".\.|
00013f90  32 e7 20 a7 69 24 2c 22  77 6f 6d 61 6e 22 29 3e  |2. .i$,"woman")>|
00013fa0  30 20 74 24 3d 22 54 68  65 20 77 6f 6d 61 6e 20  |0 t$="The woman |
00013fb0  69 73 20 76 65 72 79 20  68 65 61 76 79 2e 22 0d  |is very heavy.".|
00013fc0  5c d0 05 cd 0d 5c da 12  e7 20 72 6f 6f 6d 6e 6f  |\....\... roomno|
00013fd0  25 3d 38 33 20 8c 0d 5c  e4 3f e7 20 a7 69 24 2c  |%=83 ..\.?. .i$,|
00013fe0  22 73 75 69 74 63 61 73  65 22 29 3e 30 20 74 24  |"suitcase")>0 t$|
00013ff0  3d 22 54 68 65 20 73 75  69 74 63 61 73 65 20 69  |="The suitcase i|
00014000  73 20 74 6f 6f 20 62 75  6c 6b 79 20 74 6f 20 6c  |s too bulky to l|
00014010  69 66 74 2e 22 0d 5c ee  4b e7 20 a7 69 24 2c 22  |ift.".\.K. .i$,"|
00014020  77 69 6e 64 6f 77 22 29  3e 30 20 74 24 3d 22 59  |window")>0 t$="Y|
00014030  6f 75 20 61 72 65 6e 27  74 20 68 69 67 68 20 65  |ou aren't high e|
00014040  6e 6f 75 67 68 20 74 6f  20 65 76 65 6e 20 74 6f  |nough to even to|
00014050  75 63 68 20 74 68 65 20  77 69 6e 64 6f 77 2e 22  |uch the window."|
00014060  0d 5c f8 05 cd 0d 5d 02  12 e7 20 72 6f 6f 6d 6e  |.\....]... roomn|
00014070  6f 25 3d 38 34 20 8c 0d  5d 0c 3b e7 20 a7 69 24  |o%=84 ..].;. .i$|
00014080  2c 22 74 69 6d 62 65 72  22 29 3e 30 20 74 24 3d  |,"timber")>0 t$=|
00014090  22 54 68 65 72 65 20 69  73 20 74 6f 6f 20 6d 75  |"There is too mu|
000140a0  63 68 20 74 69 6d 62 65  72 20 74 6f 20 67 65 74  |ch timber to get|
000140b0  2e 22 0d 5d 16 3d e7 20  a7 69 24 2c 22 63 6f 66  |.".].=. .i$,"cof|
000140c0  66 69 6e 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |fin")>0 t$="The |
000140d0  63 6f 66 66 69 6e 20 69  73 20 74 6f 6f 20 6c 61  |coffin is too la|
000140e0  72 67 65 20 61 6e 64 20  62 75 6c 6b 79 2e 22 0d  |rge and bulky.".|
000140f0  5d 20 2d e7 20 a7 69 24  2c 22 62 6f 79 22 29 3e  |] -. .i$,"boy")>|
00014100  30 20 74 24 3d 22 54 68  65 20 62 6f 79 20 69 73  |0 t$="The boy is|
00014110  20 74 6f 6f 20 68 65 61  76 79 2e 22 0d 5d 2a 2d  | too heavy.".]*-|
00014120  e7 20 a7 69 24 2c 22 6d  61 6e 22 29 3e 30 20 74  |. .i$,"man")>0 t|
00014130  24 3d 22 54 68 65 20 6d  61 6e 20 69 73 20 74 6f  |$="The man is to|
00014140  6f 20 68 65 61 76 79 2e  22 0d 5d 34 05 cd 0d 5d  |o heavy.".]4...]|
00014150  3e 12 e7 20 72 6f 6f 6d  6e 6f 25 3d 38 35 20 8c  |>.. roomno%=85 .|
00014160  0d 5d 48 8c e7 20 a7 69  24 2c 22 62 61 72 22 29  |.]H.. .i$,"bar")|
00014170  3e 30 20 74 24 3d 22 54  68 65 20 62 61 72 73 20  |>0 t$="The bars |
00014180  61 72 65 20 66 69 72 6d  6c 79 20 66 69 78 65 64  |are firmly fixed|
00014190  20 2d 20 74 6f 20 73 74  6f 70 20 79 6f 75 20 66  | - to stop you f|
000141a0  72 6f 6d 20 65 73 63 61  70 69 6e 67 2e 22 3a e7  |rom escaping.":.|
000141b0  20 65 78 69 74 73 28 38  35 2c 32 29 3e 30 20 74  | exits(85,2)>0 t|
000141c0  24 3d 22 54 68 65 20 62  61 72 73 20 74 68 61 74  |$="The bars that|
000141d0  20 61 72 65 20 6c 65 66  74 20 61 72 65 20 66 69  | are left are fi|
000141e0  72 6d 6c 79 20 66 69 78  65 64 2e 22 0d 5d 52 47  |rmly fixed.".]RG|
000141f0  e7 20 a7 69 24 2c 22 67  75 61 72 64 22 29 3e 30  |. .i$,"guard")>0|
00014200  20 74 24 3d 22 54 68 65  20 67 75 61 72 64 20 69  | t$="The guard i|
00014210  73 20 74 6f 6f 20 66 61  72 20 62 65 68 69 6e 64  |s too far behind|
00014220  20 74 68 65 20 62 61 72  73 20 74 6f 20 67 72 61  | the bars to gra|
00014230  62 2e 22 0d 5d 5c 4b e7  20 a7 69 24 2c 22 63 75  |b.".]\K. .i$,"cu|
00014240  70 22 29 3e 30 20 84 20  a7 69 24 2c 22 64 72 69  |p")>0 . .i$,"dri|
00014250  6e 6b 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |nk")>0 t$="The c|
00014260  75 70 20 69 73 20 74 6f  6f 20 68 6f 74 20 74 6f  |up is too hot to|
00014270  20 67 65 74 20 68 6f 6c  64 20 6f 66 2e 22 0d 5d  | get hold of.".]|
00014280  66 05 cd 0d 5d 70 13 e7  20 72 6f 6f 6d 6e 6f 25  |f...]p.. roomno%|
00014290  3d 31 31 30 20 8c 0d 5d  7a 4a e7 20 a7 69 24 2c  |=110 ..]zJ. .i$,|
000142a0  22 6e 6f 74 69 63 65 22  29 3e 30 20 74 24 3d 22  |"notice")>0 t$="|
000142b0  54 68 65 20 6e 6f 74 69  63 65 20 69 73 20 73 63  |The notice is sc|
000142c0  72 65 77 65 64 20 74 6f  20 74 68 65 20 77 68 69  |rewed to the whi|
000142d0  74 65 2d 77 61 73 68 65  64 20 77 61 6c 6c 2e 22  |te-washed wall."|
000142e0  0d 5d 84 05 cd 0d 5d 8e  13 e7 20 72 6f 6f 6d 6e  |.]....]... roomn|
000142f0  6f 25 3d 31 31 33 20 8c  0d 5d 98 50 e7 20 a7 69  |o%=113 ..].P. .i|
00014300  24 2c 22 70 69 6e 62 6f  61 72 64 22 29 3e 30 20  |$,"pinboard")>0 |
00014310  74 24 3d 22 54 68 65 20  70 69 6e 62 6f 61 72 64  |t$="The pinboard|
00014320  20 69 73 20 73 63 72 65  77 65 64 20 74 69 67 68  | is screwed tigh|
00014330  74 6c 79 20 74 6f 20 74  68 65 20 6f 66 66 69 63  |tly to the offic|
00014340  65 20 77 61 6c 6c 2e 22  0d 5d a2 43 e7 20 a7 69  |e wall.".].C. .i|
00014350  24 2c 22 6e 6f 74 65 22  29 3e 30 20 74 24 3d 22  |$,"note")>0 t$="|
00014360  54 68 65 20 6e 6f 74 65  73 20 68 61 76 65 20 62  |The notes have b|
00014370  65 65 6e 20 73 74 75 63  6b 20 74 6f 20 74 68 65  |een stuck to the|
00014380  20 70 69 6e 62 6f 61 72  64 2e 22 0d 5d ac 05 cd  | pinboard.".]...|
00014390  0d 5d b6 13 e7 20 72 6f  6f 6d 6e 6f 25 3d 31 31  |.]... roomno%=11|
000143a0  36 20 8c 0d 5d c0 39 e7  20 a7 69 24 2c 22 74 61  |6 ..].9. .i$,"ta|
000143b0  62 6c 65 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ble")>0 t$="The |
000143c0  74 61 62 6c 65 20 69 73  20 74 6f 6f 20 68 65 61  |table is too hea|
000143d0  76 79 20 74 6f 20 6c 69  66 74 2e 22 0d 5d ca 05  |vy to lift.".]..|
000143e0  cd 0d 5d d4 13 e7 20 72  6f 6f 6d 6e 6f 25 3d 31  |..]... roomno%=1|
000143f0  32 32 20 8c 0d 5d de 35  e7 20 a7 69 24 2c 22 64  |22 ..].5. .i$,"d|
00014400  65 73 6b 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |esk")>0 t$="The |
00014410  64 65 73 6b 20 69 73 20  65 78 74 72 65 6d 65 6c  |desk is extremel|
00014420  79 20 68 65 61 76 79 2e  22 0d 5d e8 4c e7 20 a7  |y heavy.".].L. .|
00014430  69 24 2c 22 63 68 61 69  72 22 29 3e 30 20 74 24  |i$,"chair")>0 t$|
00014440  3d 22 54 68 65 20 63 68  61 69 72 20 69 73 20 61  |="The chair is a|
00014450  6e 20 6f 6c 64 20 77 6f  6f 64 65 6e 20 6f 6e 65  |n old wooden one|
00014460  2c 20 69 74 20 69 73 20  71 75 69 74 65 20 68 65  |, it is quite he|
00014470  61 76 79 2e 22 0d 5d f2  05 cd 0d 5d fc 13 e7 20  |avy.".]....]... |
00014480  72 6f 6f 6d 6e 6f 25 3d  31 32 37 20 8c 0d 5e 06  |roomno%=127 ..^.|
00014490  39 e7 20 a7 69 24 2c 22  73 69 67 6e 22 29 3e 30  |9. .i$,"sign")>0|
000144a0  20 74 24 3d 22 54 68 65  20 73 69 67 6e 20 69 73  | t$="The sign is|
000144b0  20 73 63 72 65 77 65 64  20 74 6f 20 74 68 65 20  | screwed to the |
000144c0  77 61 6c 6c 2e 22 0d 5e  10 05 cd 0d 5e 1a 21 e7  |wall.".^....^.!.|
000144d0  20 72 6f 6f 6d 6e 6f 25  3d 31 33 33 20 84 20 72  | roomno%=133 . r|
000144e0  6f 6f 6d 6e 6f 25 3d 31  33 35 20 8c 0d 5e 24 4f  |oomno%=135 ..^$O|
000144f0  e7 20 a7 69 24 2c 22 74  61 62 6c 65 22 29 3e 30  |. .i$,"table")>0|
00014500  20 74 24 3d 22 54 68 65  20 74 61 62 6c 65 20 69  | t$="The table i|
00014510  73 20 61 20 68 65 61 76  79 2c 20 77 6f 6f 64 65  |s a heavy, woode|
00014520  6e 20 6f 6e 65 20 2d 20  74 6f 6f 20 62 75 6c 6b  |n one - too bulk|
00014530  79 20 74 6f 20 6c 69 66  74 2e 22 0d 5e 2e 4b e7  |y to lift.".^.K.|
00014540  20 a7 69 24 2c 22 63 68  61 69 72 22 29 3e 30 20  | .i$,"chair")>0 |
00014550  74 24 3d 22 54 68 65 20  63 68 61 69 72 20 69 73  |t$="The chair is|
00014560  20 77 6f 6f 64 65 6e 20  61 6e 64 20 62 75 6c 6b  | wooden and bulk|
00014570  79 20 2d 20 61 77 6b 77  61 72 64 20 74 6f 20 63  |y - awkward to c|
00014580  61 72 72 79 2e 22 0d 5e  38 05 cd 0d 5e 42 13 e7  |arry.".^8...^B..|
00014590  20 72 6f 6f 6d 6e 6f 25  3d 31 37 39 20 8c 0d 5e  | roomno%=179 ..^|
000145a0  4c 35 e7 20 a7 69 24 2c  22 64 6f 6f 72 22 29 3e  |L5. .i$,"door")>|
000145b0  30 20 74 24 3d 22 54 68  65 20 64 6f 6f 72 20 69  |0 t$="The door i|
000145c0  73 20 66 69 78 65 64 20  62 79 20 68 69 6e 67 65  |s fixed by hinge|
000145d0  73 2e 22 0d 5e 56 05 cd  0d 5e 60 13 e7 20 72 6f  |s.".^V...^`.. ro|
000145e0  6f 6d 6e 6f 25 3d 32 32  34 20 8c 0d 5e 6a 39 e7  |omno%=224 ..^j9.|
000145f0  20 a7 69 24 2c 22 73 69  67 6e 22 29 3e 30 20 74  | .i$,"sign")>0 t|
00014600  24 3d 22 54 68 65 20 73  69 67 6e 20 69 73 20 66  |$="The sign is f|
00014610  69 78 65 64 20 74 6f 20  74 68 65 20 67 72 6f 75  |ixed to the grou|
00014620  6e 64 2e 22 0d 5e 74 05  cd 0d 5e 7e 13 e7 20 72  |nd.".^t...^~.. r|
00014630  6f 6f 6d 6e 6f 25 3d 32  32 36 20 8c 0d 5e 88 3f  |oomno%=226 ..^.?|
00014640  e7 20 a7 69 24 2c 22 73  77 69 6e 67 22 29 3e 30  |. .i$,"swing")>0|
00014650  20 74 24 3d 22 54 68 65  20 73 77 69 6e 67 73 20  | t$="The swings |
00014660  61 72 65 20 66 69 78 65  64 20 69 6e 74 6f 20 74  |are fixed into t|
00014670  68 65 20 67 72 6f 75 6e  64 2e 22 0d 5e 92 38 e7  |he ground.".^.8.|
00014680  20 a7 69 24 2c 22 63 68  69 6c 64 22 29 3e 30 20  | .i$,"child")>0 |
00014690  74 24 3d 22 54 68 65 20  6c 69 74 74 6c 65 20 67  |t$="The little g|
000146a0  69 72 6c 20 69 73 20 76  65 72 79 20 68 65 61 76  |irl is very heav|
000146b0  79 2e 22 0d 5e 9c 37 e7  20 a7 69 24 2c 22 67 69  |y.".^.7. .i$,"gi|
000146c0  72 6c 22 29 3e 30 20 74  24 3d 22 54 68 65 20 6c  |rl")>0 t$="The l|
000146d0  69 74 74 6c 65 20 67 69  72 6c 20 69 73 20 76 65  |ittle girl is ve|
000146e0  72 79 20 68 65 61 76 79  2e 22 0d 5e a6 05 cd 0d  |ry heavy.".^....|
000146f0  5e b0 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 32 32 37  |^... roomno%=227|
00014700  20 8c 0d 5e ba 3d e7 20  a7 69 24 2c 22 73 6c 69  | ..^.=. .i$,"sli|
00014710  64 65 22 29 3e 30 20 74  24 3d 22 54 68 65 20 73  |de")>0 t$="The s|
00014720  6c 69 64 65 20 69 73 20  66 69 78 65 64 20 69 6e  |lide is fixed in|
00014730  74 6f 20 74 68 65 20 67  72 6f 75 6e 64 2e 22 0d  |to the ground.".|
00014740  5e c4 05 cd 0d 5e ce 13  e7 20 72 6f 6f 6d 6e 6f  |^....^... roomno|
00014750  25 3d 32 32 38 20 8c 0d  5e d8 3f e7 20 a7 69 24  |%=228 ..^.?. .i$|
00014760  2c 22 73 61 6e 64 22 29  3e 30 20 74 24 3d 22 54  |,"sand")>0 t$="T|
00014770  68 65 72 65 20 69 73 20  74 6f 6f 20 6d 75 63 68  |here is too much|
00014780  20 73 61 6e 64 20 74 6f  20 67 65 74 20 68 6f 6c  | sand to get hol|
00014790  64 20 6f 66 2e 22 0d 5e  e2 31 e7 20 a7 69 24 2c  |d of.".^.1. .i$,|
000147a0  22 70 69 74 22 29 3e 30  20 74 24 3d 22 54 68 65  |"pit")>0 t$="The|
000147b0  20 73 61 6e 64 70 69 74  20 69 73 20 74 6f 6f 20  | sandpit is too |
000147c0  6c 61 72 67 65 2e 22 0d  5e ec 05 cd 0d 5e f6 13  |large.".^....^..|
000147d0  e7 20 72 6f 6f 6d 6e 6f  25 3d 32 33 35 20 8c 0d  |. roomno%=235 ..|
000147e0  5f 00 2f e7 20 a7 69 24  2c 22 63 61 72 22 29 3e  |_./. .i$,"car")>|
000147f0  30 20 74 24 3d 22 54 68  65 20 63 61 72 73 20 61  |0 t$="The cars a|
00014800  72 65 20 74 6f 6f 20 68  65 61 76 79 2e 22 0d 5f  |re too heavy."._|
00014810  0a 05 cd 0d 5f 14 21 e7  20 72 6f 6f 6d 6e 6f 25  |...._.!. roomno%|
00014820  3d 32 33 36 20 84 20 72  6f 6f 6d 6e 6f 25 3d 32  |=236 . roomno%=2|
00014830  33 38 20 8c 0d 5f 1e 2d  e7 20 a7 69 24 2c 22 63  |38 .._.-. .i$,"c|
00014840  61 72 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |ar")>0 t$="The c|
00014850  61 72 20 69 73 20 74 6f  6f 20 68 65 61 76 79 2e  |ar is too heavy.|
00014860  22 0d 5f 28 05 cd 0d 5f  32 13 e7 20 72 6f 6f 6d  |"._(..._2.. room|
00014870  6e 6f 25 3d 32 34 38 20  8c 0d 5f 3c 2d e7 20 a7  |no%=248 .._<-. .|
00014880  69 24 2c 22 6d 61 6e 22  29 3e 30 20 74 24 3d 22  |i$,"man")>0 t$="|
00014890  54 68 65 20 6d 61 6e 20  69 73 20 74 6f 6f 20 68  |The man is too h|
000148a0  65 61 76 79 2e 22 0d 5f  46 7c e7 20 a7 69 24 2c  |eavy."._F|. .i$,|
000148b0  22 6e 65 77 73 70 61 70  65 72 22 29 3e 30 20 84  |"newspaper")>0 .|
000148c0  20 a7 69 24 2c 22 6d 61  67 61 7a 69 6e 65 22 29  | .i$,"magazine")|
000148d0  3e 30 20 74 24 3d 22 54  68 65 20 6d 61 67 61 7a  |>0 t$="The magaz|
000148e0  69 6e 65 73 20 61 6e 64  20 6e 65 77 73 70 61 70  |ines and newspap|
000148f0  65 72 73 20 73 68 6f 75  6c 64 20 72 65 61 6c 6c  |ers should reall|
00014900  79 20 62 65 20 62 6f 75  67 68 74 20 62 65 66 6f  |y be bought befo|
00014910  72 65 20 79 6f 75 20 74  61 6b 65 20 74 68 65 6d  |re you take them|
00014920  2e 22 0d 5f 50 35 e7 20  a7 69 24 2c 22 63 6f 75  |."._P5. .i$,"cou|
00014930  6e 74 65 72 22 29 3e 30  20 74 24 3d 22 54 68 65  |nter")>0 t$="The|
00014940  20 63 6f 75 6e 74 65 72  20 69 73 20 74 6f 6f 20  | counter is too |
00014950  68 65 61 76 79 2e 22 0d  5f 5a 2e e7 20 a7 69 24  |heavy."._Z.. .i$|
00014960  2c 22 73 77 65 65 74 22  29 3e 30 20 74 24 3d 22  |,"sweet")>0 t$="|
00014970  54 68 61 74 20 77 6f 75  6c 64 20 62 65 20 74 68  |That would be th|
00014980  65 66 74 2e 22 0d 5f 64  05 cd 0d 5f 6e 13 e7 20  |eft."._d..._n.. |
00014990  72 6f 6f 6d 6e 6f 25 3d  32 34 39 20 8c 0d 5f 78  |roomno%=249 .._x|
000149a0  31 e7 20 a7 69 24 2c 22  77 6f 6d 61 6e 22 29 3e  |1. .i$,"woman")>|
000149b0  30 20 74 24 3d 22 54 68  65 20 77 6f 6d 61 6e 20  |0 t$="The woman |
000149c0  69 73 20 74 6f 6f 20 68  65 61 76 79 2e 22 0d 5f  |is too heavy."._|
000149d0  82 85 e7 20 a7 69 24 2c  22 6f 72 6e 61 6d 65 6e  |... .i$,"ornamen|
000149e0  74 22 29 3e 30 20 84 20  a7 69 24 2c 22 74 72 6f  |t")>0 . .i$,"tro|
000149f0  70 68 79 22 29 3e 30 20  84 20 a7 69 24 2c 22 74  |phy")>0 . .i$,"t|
00014a00  72 6f 70 68 69 65 22 29  3e 30 20 84 20 a7 69 24  |rophie")>0 . .i$|
00014a10  2c 22 73 6f 75 76 65 6e  69 72 22 29 3e 30 20 74  |,"souvenir")>0 t|
00014a20  24 3d 22 54 68 65 20 73  6f 75 76 65 6e 69 72 73  |$="The souvenirs|
00014a30  20 61 72 65 20 74 6f 6f  20 6e 75 6d 65 72 6f 75  | are too numerou|
00014a40  73 20 74 6f 20 67 72 61  62 20 68 6f 6c 64 20 6f  |s to grab hold o|
00014a50  66 2e 22 0d 5f 8c 05 cd  0d 5f 96 13 e7 20 72 6f  |f."._...._... ro|
00014a60  6f 6d 6e 6f 25 3d 32 35  30 20 8c 0d 5f a0 31 e7  |omno%=250 .._.1.|
00014a70  20 a7 69 24 2c 22 77 6f  6d 61 6e 22 29 3e 30 20  | .i$,"woman")>0 |
00014a80  74 24 3d 22 54 68 65 20  77 6f 6d 61 6e 20 69 73  |t$="The woman is|
00014a90  20 74 6f 6f 20 68 65 61  76 79 2e 22 0d 5f aa 48  | too heavy."._.H|
00014aa0  e7 20 a7 69 24 2c 22 66  6c 6f 77 65 72 22 29 3e  |. .i$,"flower")>|
00014ab0  30 20 74 24 3d 22 54 68  65 20 66 6c 6f 77 65 72  |0 t$="The flower|
00014ac0  73 20 61 72 65 20 74 6f  6f 20 6e 75 6d 65 72 6f  |s are too numero|
00014ad0  75 73 20 74 6f 20 67 72  61 62 20 68 6f 6c 64 20  |us to grab hold |
00014ae0  6f 66 2e 22 0d 5f b4 05  cd 0d 5f be 13 e7 20 72  |of."._...._... r|
00014af0  6f 6f 6d 6e 6f 25 3d 32  35 32 20 8c 0d 5f c8 37  |oomno%=252 .._.7|
00014b00  e7 20 a7 69 24 2c 22 6d  6f 6e 75 6d 65 6e 74 22  |. .i$,"monument"|
00014b10  29 3e 30 20 74 24 3d 22  54 68 65 20 6d 6f 6e 75  |)>0 t$="The monu|
00014b20  6d 65 6e 74 20 69 73 20  74 6f 6f 20 68 65 61 76  |ment is too heav|
00014b30  79 2e 22 0d 5f d2 3f e7  20 a7 69 24 2c 22 70 6c  |y."._.?. .i$,"pl|
00014b40  61 71 75 65 22 29 3e 30  20 74 24 3d 22 54 68 65  |aque")>0 t$="The|
00014b50  20 70 6c 61 71 75 65 20  69 73 20 66 69 78 65 64  | plaque is fixed|
00014b60  20 74 6f 20 74 68 65 20  6d 6f 6e 75 6d 65 6e 74  | to the monument|
00014b70  2e 22 0d 5f dc 05 cd 0d  5f e6 13 e7 20 72 6f 6f  |."._...._... roo|
00014b80  6d 6e 6f 25 3d 32 35 33  20 8c 0d 5f f0 31 e7 20  |mno%=253 .._.1. |
00014b90  a7 69 24 2c 22 77 6f 6d  61 6e 22 29 3e 30 20 74  |.i$,"woman")>0 t|
00014ba0  24 3d 22 54 68 65 20 77  6f 6d 61 6e 20 69 73 20  |$="The woman is |
00014bb0  74 6f 6f 20 68 65 61 76  79 2e 22 0d 5f fa 2f e7  |too heavy."._./.|
00014bc0  20 a7 69 24 2c 22 73 6f  66 61 22 29 3e 30 20 74  | .i$,"sofa")>0 t|
00014bd0  24 3d 22 54 68 65 20 73  6f 66 61 20 69 73 20 74  |$="The sofa is t|
00014be0  6f 6f 20 62 75 6c 6b 79  2e 22 0d 60 04 4a e7 20  |oo bulky.".`.J. |
00014bf0  a7 69 24 2c 22 61 6e 74  69 71 75 65 22 29 3e 30  |.i$,"antique")>0|
00014c00  20 74 24 3d 22 54 68 65  20 61 6e 74 69 71 75 65  | t$="The antique|
00014c10  73 20 61 72 65 20 74 6f  6f 20 6e 75 6d 65 72 6f  |s are too numero|
00014c20  75 73 20 74 6f 20 67 72  61 62 20 68 6f 6c 64 20  |us to grab hold |
00014c30  6f 66 2e 22 0d 60 0e 05  cd 0d 60 18 13 e7 20 72  |of.".`....`... r|
00014c40  6f 6f 6d 6e 6f 25 3d 32  35 36 20 8c 0d 60 22 37  |oomno%=256 ..`"7|
00014c50  e7 20 a7 69 24 2c 22 66  6f 75 6e 74 61 69 6e 22  |. .i$,"fountain"|
00014c60  29 3e 30 20 74 24 3d 22  54 68 65 20 66 6f 75 6e  |)>0 t$="The foun|
00014c70  74 61 69 6e 20 69 73 20  74 6f 6f 20 68 65 61 76  |tain is too heav|
00014c80  79 2e 22 0d 60 2c 05 cd  0d 60 36 13 e7 20 72 6f  |y.".`,...`6.. ro|
00014c90  6f 6d 6e 6f 25 3d 32 36  34 20 8c 0d 60 40 3b e7  |omno%=264 ..`@;.|
00014ca0  20 a7 69 24 2c 22 74 61  62 6c 65 22 29 3e 30 20  | .i$,"table")>0 |
00014cb0  74 24 3d 22 54 68 65 20  74 61 62 6c 65 73 20 61  |t$="The tables a|
00014cc0  72 65 20 74 6f 6f 20 62  75 6c 6b 79 20 74 6f 20  |re too bulky to |
00014cd0  6c 69 66 74 2e 22 0d 60  4a 37 e7 20 a7 69 24 2c  |lift.".`J7. .i$,|
00014ce0  22 63 68 61 69 72 22 29  3e 30 20 74 24 3d 22 54  |"chair")>0 t$="T|
00014cf0  68 65 20 63 68 61 69 72  73 20 74 6f 6f 20 62 75  |he chairs too bu|
00014d00  6c 6b 79 20 74 6f 20 6c  69 66 74 2e 22 0d 60 54  |lky to lift.".`T|
00014d10  43 e7 20 a7 69 24 2c 22  64 61 72 74 62 6f 61 72  |C. .i$,"dartboar|
00014d20  64 22 29 3e 30 20 74 24  3d 22 54 68 65 20 64 61  |d")>0 t$="The da|
00014d30  72 74 62 6f 61 72 64 20  69 73 20 73 63 72 65 77  |rtboard is screw|
00014d40  65 64 20 74 6f 20 74 68  65 20 77 61 6c 6c 2e 22  |ed to the wall."|
00014d50  0d 60 5e 05 cd 0d 60 68  13 e7 20 72 6f 6f 6d 6e  |.`^...`h.. roomn|
00014d60  6f 25 3d 32 36 35 20 8c  0d 60 72 3b e7 20 a7 69  |o%=265 ..`r;. .i|
00014d70  24 2c 22 74 61 62 6c 65  22 29 3e 30 20 74 24 3d  |$,"table")>0 t$=|
00014d80  22 54 68 65 20 74 61 62  6c 65 73 20 61 72 65 20  |"The tables are |
00014d90  74 6f 6f 20 62 75 6c 6b  79 20 74 6f 20 6c 69 66  |too bulky to lif|
00014da0  74 2e 22 0d 60 7c 37 e7  20 a7 69 24 2c 22 63 68  |t.".`|7. .i$,"ch|
00014db0  61 69 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |air")>0 t$="The |
00014dc0  63 68 61 69 72 73 20 74  6f 6f 20 62 75 6c 6b 79  |chairs too bulky|
00014dd0  20 74 6f 20 6c 69 66 74  2e 22 0d 60 86 05 cd 0d  | to lift.".`....|
00014de0  60 90 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 32 36 36  |`... roomno%=266|
00014df0  20 8c 0d 60 9a 31 e7 20  a7 69 24 2c 22 62 61 72  | ..`.1. .i$,"bar|
00014e00  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 61 72  |")>0 t$="The bar|
00014e10  20 69 73 20 66 61 72 20  74 6f 6f 20 6c 61 72 67  | is far too larg|
00014e20  65 2e 22 0d 60 a4 5b e7  20 a7 69 24 2c 22 62 61  |e.".`.[. .i$,"ba|
00014e30  72 6d 61 69 64 22 29 3e  30 20 84 20 a7 69 24 2c  |rmaid")>0 . .i$,|
00014e40  22 77 6f 6d 61 6e 22 29  3e 30 20 74 24 3d 22 54  |"woman")>0 t$="T|
00014e50  68 65 20 62 61 72 6d 61  69 64 20 69 73 20 6f 76  |he barmaid is ov|
00014e60  65 72 20 74 68 65 20 6f  74 68 65 72 20 73 69 64  |er the other sid|
00014e70  65 20 6f 66 20 74 68 65  20 62 61 72 2e 22 0d 60  |e of the bar.".`|
00014e80  ae 4b e7 20 a7 69 24 2c  22 73 6b 69 72 74 22 29  |.K. .i$,"skirt")|
00014e90  3e 30 20 74 24 3d 22 54  68 65 20 62 61 72 6d 61  |>0 t$="The barma|
00014ea0  69 64 27 73 20 73 6b 69  72 74 20 69 73 20 62 65  |id's skirt is be|
00014eb0  69 6e 67 20 77 6f 72 6e  20 62 79 20 74 68 65 20  |ing worn by the |
00014ec0  62 61 72 6d 61 69 64 2e  22 0d 60 b8 4d e7 20 a7  |barmaid.".`.M. .|
00014ed0  69 24 2c 22 62 6c 6f 75  73 65 22 29 3e 30 20 74  |i$,"blouse")>0 t|
00014ee0  24 3d 22 54 68 65 20 62  61 72 6d 61 69 64 27 73  |$="The barmaid's|
00014ef0  20 62 6c 6f 75 73 65 20  69 73 20 62 65 69 6e 67  | blouse is being|
00014f00  20 77 6f 72 6e 20 62 79  20 74 68 65 20 62 61 72  | worn by the bar|
00014f10  6d 61 69 64 2e 22 0d 60  c2 47 e7 20 a7 69 24 2c  |maid.".`.G. .i$,|
00014f20  22 68 61 69 72 22 29 3e  30 20 74 24 3d 22 54 68  |"hair")>0 t$="Th|
00014f30  65 20 62 61 72 6d 61 69  64 27 73 20 68 61 69 72  |e barmaid's hair|
00014f40  20 69 73 20 61 74 74 61  63 68 65 64 20 74 6f 20  | is attached to |
00014f50  74 68 65 20 62 61 72 6d  61 69 64 2e 22 0d 60 cc  |the barmaid.".`.|
00014f60  05 cd 0d 60 d6 13 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...`... roomno%=|
00014f70  32 37 39 20 8c 0d 60 e0  39 e7 20 a7 69 24 2c 22  |279 ..`.9. .i$,"|
00014f80  70 61 74 68 22 29 3e 30  20 74 24 3d 22 54 68 65  |path")>0 t$="The|
00014f90  20 70 61 74 68 20 69 73  20 73 74 75 63 6b 20 74  | path is stuck t|
00014fa0  6f 20 74 68 65 20 67 72  6f 75 6e 64 2e 22 0d 60  |o the ground.".`|
00014fb0  ea 05 cd 0d 60 f4 13 e7  20 72 6f 6f 6d 6e 6f 25  |....`... roomno%|
00014fc0  3d 32 38 31 20 8c 0d 60  fe 41 e7 20 a7 69 24 2c  |=281 ..`.A. .i$,|
00014fd0  22 6d 61 6e 22 29 3e 30  20 74 24 3d 22 54 68 65  |"man")>0 t$="The|
00014fe0  20 6d 61 6e 20 69 73 20  74 68 65 20 6f 74 68 65  | man is the othe|
00014ff0  72 20 73 69 64 65 20 6f  66 20 74 68 65 20 63 6f  |r side of the co|
00015000  75 6e 74 65 72 2e 22 0d  61 08 3f e7 20 a7 69 24  |unter.".a.?. .i$|
00015010  2c 22 63 6f 75 6e 74 65  72 22 29 3e 30 20 74 24  |,"counter")>0 t$|
00015020  3d 22 54 68 65 20 63 6f  75 6e 74 65 72 20 69 73  |="The counter is|
00015030  20 74 6f 6f 20 6c 61 72  67 65 20 61 6e 64 20 62  | too large and b|
00015040  75 6c 6b 79 2e 22 0d 61  12 49 e7 20 a7 69 24 2c  |ulky.".a.I. .i$,|
00015050  22 6c 65 61 66 6c 65 74  22 29 3e 30 20 74 24 3d  |"leaflet")>0 t$=|
00015060  22 54 68 65 20 6c 65 61  66 6c 65 74 73 20 61 72  |"The leaflets ar|
00015070  65 20 74 6f 6f 20 6e 75  6d 65 72 6f 75 73 20 74  |e too numerous t|
00015080  6f 20 67 65 74 20 68 6f  6c 64 20 6f 66 2e 22 0d  |o get hold of.".|
00015090  61 1c 05 cd 0d 61 26 21  e7 20 72 6f 6f 6d 6e 6f  |a....a&!. roomno|
000150a0  25 3d 32 38 34 20 84 20  72 6f 6f 6d 6e 6f 25 3d  |%=284 . roomno%=|
000150b0  32 39 37 20 8c 0d 61 30  39 e7 20 a7 69 24 2c 22  |297 ..a09. .i$,"|
000150c0  73 69 67 6e 22 29 3e 30  20 74 24 3d 22 54 68 65  |sign")>0 t$="The|
000150d0  20 73 69 67 6e 20 69 73  20 73 63 72 65 77 65 64  | sign is screwed|
000150e0  20 74 6f 20 74 68 65 20  77 61 6c 6c 2e 22 0d 61  | to the wall.".a|
000150f0  3a 05 cd 0d 61 44 13 e7  20 72 6f 6f 6d 6e 6f 25  |:...aD.. roomno%|
00015100  3d 32 39 33 20 8c 0d 61  4e 38 e7 20 a7 69 24 2c  |=293 ..aN8. .i$,|
00015110  22 62 65 6c 6c 22 29 3e  30 20 74 24 3d 22 54 68  |"bell")>0 t$="Th|
00015120  65 20 62 65 6c 6c 73 20  74 6f 6f 20 68 69 67 68  |e bells too high|
00015130  20 75 70 20 74 6f 20 72  65 61 63 68 2e 22 0d 61  | up to reach.".a|
00015140  58 4a e7 20 a7 69 24 2c  22 72 6f 70 65 22 29 3e  |XJ. .i$,"rope")>|
00015150  30 20 74 24 3d 22 59 6f  75 20 70 75 6c 6c 20 6f  |0 t$="You pull o|
00015160  6e 20 6f 6e 65 20 6f 66  20 74 68 65 20 74 68 69  |n one of the thi|
00015170  63 6b 20 72 6f 70 65 73  20 2d 20 44 44 44 4f 4e  |ck ropes - DDDON|
00015180  47 47 47 47 21 21 21 22  0d 61 62 05 cd 0d 61 6c  |GGGG!!!".ab...al|
00015190  21 e7 20 72 6f 6f 6d 6e  6f 25 3d 32 39 34 20 84  |!. roomno%=294 .|
000151a0  20 72 6f 6f 6d 6e 6f 25  3d 32 39 35 20 8c 0d 61  | roomno%=295 ..a|
000151b0  76 38 e7 20 a7 69 24 2c  22 67 72 61 73 73 22 29  |v8. .i$,"grass")|
000151c0  3e 30 20 74 24 3d 22 54  68 65 20 67 72 61 73 73  |>0 t$="The grass|
000151d0  20 69 73 20 74 6f 6f 20  74 6f 75 67 68 20 74 6f  | is too tough to|
000151e0  20 67 65 74 2e 22 0d 61  80 43 e7 20 a7 69 24 2c  | get.".a.C. .i$,|
000151f0  22 68 65 61 64 73 74 6f  6e 65 22 29 3e 30 20 74  |"headstone")>0 t|
00015200  24 3d 22 54 68 65 20 68  65 61 64 73 74 6f 6e 65  |$="The headstone|
00015210  20 69 73 20 73 74 75 63  6b 20 69 6e 74 6f 20 74  | is stuck into t|
00015220  68 65 20 74 75 72 66 2e  22 0d 61 8a 05 cd 0d 61  |he turf.".a....a|
00015230  94 13 e7 20 72 6f 6f 6d  6e 6f 25 3d 32 39 36 20  |... roomno%=296 |
00015240  8c 0d 61 9e 3a e7 20 a7  69 24 2c 22 61 6c 74 61  |..a.:. .i$,"alta|
00015250  72 22 29 3e 30 20 74 24  3d 22 54 68 65 20 61 6c  |r")>0 t$="The al|
00015260  74 61 72 20 66 61 72 20  74 6f 6f 20 68 65 61 76  |tar far too heav|
00015270  79 20 74 6f 20 6c 69 66  74 2e 22 0d 61 a8 49 e7  |y to lift.".a.I.|
00015280  20 a7 69 24 2c 22 61 69  73 6c 65 22 29 3e 30 20  | .i$,"aisle")>0 |
00015290  74 24 3d 22 54 68 65 20  61 69 73 6c 65 20 69 73  |t$="The aisle is|
000152a0  20 6e 6f 74 20 73 6f 6d  65 74 68 69 6e 67 20 79  | not something y|
000152b0  6f 75 20 63 61 6e 20 67  65 74 20 68 6f 6c 64 20  |ou can get hold |
000152c0  6f 66 2e 22 0d 61 b2 36  e7 20 a7 69 24 2c 22 70  |of.".a.6. .i$,"p|
000152d0  65 77 22 29 3e 30 20 74  24 3d 22 54 72 79 20 74  |ew")>0 t$="Try t|
000152e0  6f 20 62 65 20 70 72 61  74 69 63 61 6c 20 61 62  |o be pratical ab|
000152f0  6f 75 74 20 74 68 69 73  2e 22 0d 61 bc 05 cd 0d  |out this.".a....|
00015300  61 c6 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 33 30 31  |a... roomno%=301|
00015310  20 8c 0d 61 d0 45 e7 20  a7 69 24 2c 22 77 6f 6d  | ..a.E. .i$,"wom|
00015320  61 6e 22 29 3e 30 20 74  24 3d 22 54 68 65 20 77  |an")>0 t$="The w|
00015330  6f 6d 61 6e 20 69 73 20  74 68 65 20 6f 74 68 65  |oman is the othe|
00015340  72 20 73 69 64 65 20 6f  66 20 74 68 65 20 63 6f  |r side of the co|
00015350  75 6e 74 65 72 2e 22 0d  61 da 35 e7 20 a7 69 24  |unter.".a.5. .i$|
00015360  2c 22 63 6f 75 6e 74 65  72 22 29 3e 30 20 74 24  |,"counter")>0 t$|
00015370  3d 22 54 68 65 20 63 6f  75 6e 74 65 72 20 69 73  |="The counter is|
00015380  20 74 6f 6f 20 68 65 61  76 79 2e 22 0d 61 e4 05  | too heavy.".a..|
00015390  cd 0d 61 ee 13 e7 20 72  6f 6f 6d 6e 6f 25 3d 33  |..a... roomno%=3|
000153a0  30 32 20 8c 0d 61 f8 37  e7 20 a7 69 24 2c 22 63  |02 ..a.7. .i$,"c|
000153b0  65 69 6c 69 6e 67 22 29  3e 30 20 74 24 3d 22 54  |eiling")>0 t$="T|
000153c0  68 65 20 63 65 69 6c 69  6e 67 20 69 73 20 74 6f  |he ceiling is to|
000153d0  6f 20 68 69 67 68 20 75  70 2e 22 0d 62 02 47 e7  |o high up.".b.G.|
000153e0  20 a7 69 24 2c 22 77 6f  6d 61 6e 22 29 3e 30 20  | .i$,"woman")>0 |
000153f0  84 20 a7 69 24 2c 22 65  78 70 65 72 74 22 29 3e  |. .i$,"expert")>|
00015400  30 20 74 24 3d 22 54 68  65 20 6f 6c 64 20 77 6f  |0 t$="The old wo|
00015410  6d 61 6e 20 69 73 20 74  6f 6f 20 68 65 61 76 79  |man is too heavy|
00015420  2e 22 0d 62 0c 05 cd 0d  62 16 13 e7 20 72 6f 6f  |.".b....b... roo|
00015430  6d 6e 6f 25 3d 33 30 33  20 8c 0d 62 20 3d e7 20  |mno%=303 ..b =. |
00015440  a7 69 24 2c 22 66 65 61  74 68 65 72 22 29 3e 30  |.i$,"feather")>0|
00015450  20 74 24 3d 22 54 68 65  20 66 65 61 74 68 65 72  | t$="The feather|
00015460  20 69 73 20 66 69 78 65  64 20 74 6f 20 74 68 65  | is fixed to the|
00015470  20 77 61 6c 6c 2e 22 0d  62 2a 52 e7 20 a7 69 24  | wall.".b*R. .i$|
00015480  2c 22 70 69 63 74 75 72  65 22 29 3e 30 20 84 20  |,"picture")>0 . |
00015490  a7 69 24 2c 22 70 61 69  6e 74 69 6e 67 22 29 3e  |.i$,"painting")>|
000154a0  30 20 74 24 3d 22 54 68  65 20 70 61 69 6e 74 69  |0 t$="The painti|
000154b0  6e 67 20 69 73 20 66 69  78 65 64 20 74 6f 20 74  |ng is fixed to t|
000154c0  68 65 20 77 61 6c 6c 2e  22 0d 62 34 4c e7 20 a7  |he wall.".b4L. .|
000154d0  69 24 2c 22 70 6c 61 71  75 65 22 29 3e 30 20 74  |i$,"plaque")>0 t|
000154e0  24 3d 22 54 68 65 20 70  6c 61 71 75 65 20 69 73  |$="The plaque is|
000154f0  20 66 69 78 65 64 20 74  6f 20 74 68 65 20 66 72  | fixed to the fr|
00015500  61 6d 65 20 6f 66 20 74  68 65 20 70 61 69 6e 74  |ame of the paint|
00015510  69 6e 67 2e 22 0d 62 3e  05 cd 0d 62 48 13 e7 20  |ing.".b>...bH.. |
00015520  72 6f 6f 6d 6e 6f 25 3d  33 30 34 20 8c 0d 62 52  |roomno%=304 ..bR|
00015530  2d e7 20 a7 69 24 2c 22  62 65 64 22 29 3e 30 20  |-. .i$,"bed")>0 |
00015540  74 24 3d 22 54 68 65 20  62 65 64 20 69 73 20 74  |t$="The bed is t|
00015550  6f 6f 20 68 65 61 76 79  2e 22 0d 62 5c 31 e7 20  |oo heavy.".b\1. |
00015560  a7 69 24 2c 22 74 61 62  6c 65 22 29 3e 30 20 74  |.i$,"table")>0 t|
00015570  24 3d 22 54 68 65 20 74  61 62 6c 65 20 69 73 20  |$="The table is |
00015580  74 6f 6f 20 62 75 6c 6b  79 2e 22 0d 62 66 33 e7  |too bulky.".bf3.|
00015590  20 a7 69 24 2c 22 63 68  61 69 72 22 29 3e 30 20  | .i$,"chair")>0 |
000155a0  74 24 3d 22 54 68 65 20  63 68 61 69 72 73 20 61  |t$="The chairs a|
000155b0  72 65 20 74 6f 6f 20 62  75 6c 6b 79 2e 22 0d 62  |re too bulky.".b|
000155c0  70 05 cd 0d 62 7a 13 e7  20 72 6f 6f 6d 6e 6f 25  |p...bz.. roomno%|
000155d0  3d 33 30 35 20 8c 0d 62  84 35 e7 20 a7 69 24 2c  |=305 ..b.5. .i$,|
000155e0  22 64 6f 6f 72 22 29 3e  30 20 74 24 3d 22 54 68  |"door")>0 t$="Th|
000155f0  65 20 64 6f 6f 72 20 69  73 20 66 69 78 65 64 20  |e door is fixed |
00015600  62 79 20 68 69 6e 67 65  73 2e 22 0d 62 8e 31 e7  |by hinges.".b.1.|
00015610  20 a7 69 24 2c 22 67 75  61 72 64 22 29 3e 30 20  | .i$,"guard")>0 |
00015620  74 24 3d 22 54 68 65 20  67 75 61 72 64 20 69 73  |t$="The guard is|
00015630  20 74 6f 6f 20 68 65 61  76 79 2e 22 0d 62 98 05  | too heavy.".b..|
00015640  cd 0d 62 a2 13 e7 20 72  6f 6f 6d 6e 6f 25 3d 33  |..b... roomno%=3|
00015650  30 36 20 8c 0d 62 ac 38  e7 20 a7 69 24 2c 22 73  |06 ..b.8. .i$,"s|
00015660  74 61 69 72 73 22 29 3e  30 20 74 24 3d 22 54 68  |tairs")>0 t$="Th|
00015670  65 20 73 74 61 69 72 73  20 63 61 6e 6e 6f 74 20  |e stairs cannot |
00015680  62 65 20 72 65 6d 6f 76  65 64 2e 22 0d 62 b6 05  |be removed.".b..|
00015690  cd 0d 62 c0 13 e7 20 72  6f 6f 6d 6e 6f 25 3d 33  |..b... roomno%=3|
000156a0  30 37 20 8c 0d 62 ca 38  e7 20 a7 69 24 2c 22 73  |07 ..b.8. .i$,"s|
000156b0  74 61 69 72 73 22 29 3e  30 20 74 24 3d 22 54 68  |tairs")>0 t$="Th|
000156c0  65 20 73 74 61 69 72 73  20 63 61 6e 6e 6f 74 20  |e stairs cannot |
000156d0  62 65 20 72 65 6d 6f 76  65 64 2e 22 0d 62 d4 45  |be removed.".b.E|
000156e0  e7 20 a7 69 24 2c 22 6a  75 6e 6b 22 29 3e 30 20  |. .i$,"junk")>0 |
000156f0  74 24 3d 22 54 68 65 72  65 20 69 73 20 74 6f 6f  |t$="There is too|
00015700  20 6d 75 63 68 20 70 6f  69 6e 74 6c 65 73 73 20  | much pointless |
00015710  6a 75 6e 6b 20 74 6f 20  63 6f 6c 6c 65 63 74 2e  |junk to collect.|
00015720  22 0d 62 de 05 cd 0d 62  e8 13 e7 20 72 6f 6f 6d  |".b....b... room|
00015730  6e 6f 25 3d 33 30 38 20  8c 0d 62 f2 45 e7 20 a7  |no%=308 ..b.E. .|
00015740  69 24 2c 22 6a 75 6e 6b  22 29 3e 30 20 74 24 3d  |i$,"junk")>0 t$=|
00015750  22 54 68 65 72 65 20 69  73 20 74 6f 6f 20 6d 75  |"There is too mu|
00015760  63 68 20 70 6f 69 6e 74  6c 65 73 73 20 6a 75 6e  |ch pointless jun|
00015770  6b 20 74 6f 20 63 6f 6c  6c 65 63 74 2e 22 0d 62  |k to collect.".b|
00015780  fc 05 cd 0d 63 06 13 e7  20 72 6f 6f 6d 6e 6f 25  |....c... roomno%|
00015790  3d 33 31 30 20 8c 0d 63  10 31 e7 20 a7 69 24 2c  |=310 ..c.1. .i$,|
000157a0  22 74 61 62 6c 65 22 29  3e 30 20 74 24 3d 22 54  |"table")>0 t$="T|
000157b0  68 65 20 74 61 62 6c 65  20 69 73 20 74 6f 6f 20  |he table is too |
000157c0  68 65 61 76 79 2e 22 0d  63 1a 63 e7 20 a7 69 24  |heavy.".c.c. .i$|
000157d0  2c 22 77 6f 6d 61 6e 22  29 3e 30 20 84 20 a7 69  |,"woman")>0 . .i|
000157e0  24 2c 22 6d 65 64 69 75  6d 22 29 3e 30 20 74 24  |$,"medium")>0 t$|
000157f0  3d 22 54 68 65 20 6f 6c  64 20 77 6f 6d 61 6e 20  |="The old woman |
00015800  69 73 20 74 6f 6f 20 68  65 61 76 79 20 61 6e 64  |is too heavy and|
00015810  20 77 65 69 72 64 20 74  6f 20 73 74 61 72 74 20  | weird to start |
00015820  67 72 61 62 62 69 6e 67  2e 22 0d 63 24 05 cd 0d  |grabbing.".c$...|
00015830  63 2e 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 33 31 31  |c... roomno%=311|
00015840  20 8c 0d 63 38 49 e7 20  a7 69 24 2c 22 63 6c 6f  | ..c8I. .i$,"clo|
00015850  75 64 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |ud")>0 t$="The c|
00015860  6c 6f 75 64 73 20 66 69  7a 7a 6c 65 20 61 77 61  |louds fizzle awa|
00015870  79 20 77 68 65 6e 20 79  6f 75 20 72 65 61 63 68  |y when you reach|
00015880  20 66 6f 72 20 74 68 65  6d 2e 22 0d 63 42 3e e7  | for them.".cB>.|
00015890  20 a7 69 24 2c 22 6d 69  73 74 22 29 3e 30 20 74  | .i$,"mist")>0 t|
000158a0  24 3d 22 54 68 65 20 6d  69 73 74 20 67 6c 69 64  |$="The mist glid|
000158b0  65 73 20 74 68 72 6f 75  67 68 20 79 6f 75 72 20  |es through your |
000158c0  66 69 6e 67 65 72 73 2e  22 0d 63 4c 05 cd 0d 63  |fingers.".cL...c|
000158d0  56 13 e7 20 72 6f 6f 6d  6e 6f 25 3d 33 31 32 20  |V.. roomno%=312 |
000158e0  8c 0d 63 60 35 e7 20 a7  69 24 2c 22 63 6f 75 6e  |..c`5. .i$,"coun|
000158f0  74 65 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ter")>0 t$="The |
00015900  63 6f 75 6e 74 65 72 20  69 73 20 74 6f 6f 20 68  |counter is too h|
00015910  65 61 76 79 2e 22 0d 63  6a 41 e7 20 a7 69 24 2c  |eavy.".cjA. .i$,|
00015920  22 6d 61 6e 22 29 3e 30  20 74 24 3d 22 54 68 65  |"man")>0 t$="The|
00015930  20 6d 61 6e 20 69 73 20  74 68 65 20 6f 74 68 65  | man is the othe|
00015940  72 20 73 69 64 65 20 6f  66 20 74 68 65 20 63 6f  |r side of the co|
00015950  75 6e 74 65 72 2e 22 0d  63 74 4c e7 20 a7 69 24  |unter.".ctL. .i$|
00015960  2c 22 6c 69 71 75 69 64  22 29 3e 30 20 74 24 3d  |,"liquid")>0 t$=|
00015970  22 54 68 65 20 6c 69 71  75 69 64 73 20 61 72 65  |"The liquids are|
00015980  20 74 6f 6f 20 68 69 67  68 20 75 70 20 6f 6e 20  | too high up on |
00015990  74 68 65 20 77 61 6c 6c  20 74 6f 20 72 65 61 63  |the wall to reac|
000159a0  68 2e 22 0d 63 7e 05 cd  0d 63 88 05 e1 0d 63 92  |h.".c~...c....c.|
000159b0  04 0d 63 9c 16 dd f2 6d  75 63 68 6d 6f 72 65 73  |..c....muchmores|
000159c0  70 65 63 69 66 69 63 0d  63 a6 33 74 24 3d 22 49  |pecific.c.3t$="I|
000159d0  20 64 6f 20 6e 6f 74 20  6b 6e 6f 77 20 77 68 61  | do not know wha|
000159e0  74 20 79 6f 75 20 77 61  6e 74 20 6d 65 20 74 6f  |t you want me to|
000159f0  20 65 78 61 6d 69 6e 65  2e 22 0d 63 b0 0e e3 20  | examine.".c... |
00015a00  61 25 3d 31 20 b8 20 32  0d 63 ba 6a e7 20 70 6f  |a%=1 . 2.c.j. po|
00015a10  6c 69 63 65 25 28 61 25  29 3d 72 6f 6f 6d 6e 6f  |lice%(a%)=roomno|
00015a20  25 20 80 20 7a 6f 6e 65  25 3d 32 20 80 20 a7 69  |% . zone%=2 . .i|
00015a30  24 2c 22 6d 61 6e 22 29  3e 30 20 74 24 3d 22 54  |$,"man")>0 t$="T|
00015a40  68 65 20 70 6f 6c 69 63  65 6d 61 6e 20 69 73 20  |he policeman is |
00015a50  74 61 6c 6c 20 61 6e 64  20 6c 6f 6f 6b 73 20 61  |tall and looks a|
00015a60  74 20 79 6f 75 20 63 61  75 63 69 6f 75 73 6c 79  |t you cauciously|
00015a70  2e 22 0d 63 c4 08 ed 20  61 25 0d 63 ce 23 e7 20  |.".c... a%.c.#. |
00015a80  a7 69 24 2c 22 63 6f 62  62 6c 65 73 22 29 3e 30  |.i$,"cobbles")>0|
00015a90  20 c8 8e 20 72 6f 6f 6d  6e 6f 25 20 ca 0d 63 d8  | .. roomno% ..c.|
00015aa0  6e 20 20 c9 20 32 2c 37  2c 31 35 2c 31 32 2c 32  |n  . 2,7,15,12,2|
00015ab0  38 2c 34 32 2c 34 33 20  3a 20 74 24 3d 22 54 68  |8,42,43 : t$="Th|
00015ac0  65 20 63 6f 62 62 6c 65  73 74 6f 6e 65 73 20 61  |e cobblestones a|
00015ad0  72 65 20 63 6f 62 62 6c  65 73 74 6f 6e 65 73 2c  |re cobblestones,|
00015ae0  20 72 65 63 74 61 6e 67  75 6c 61 72 2c 20 73 74  | rectangular, st|
00015af0  6f 6e 65 79 20 74 68 69  6e 67 69 65 73 20 69 6e  |oney thingies in|
00015b00  20 74 68 65 20 72 6f 61  64 2e 22 0d 63 e2 05 cb  | the road.".c...|
00015b10  0d 63 ec 20 e7 20 a7 69  24 2c 22 72 6f 61 64 22  |.c. . .i$,"road"|
00015b20  29 3e 30 20 c8 8e 20 72  6f 6f 6d 6e 6f 25 20 ca  |)>0 .. roomno% .|
00015b30  0d 63 f6 68 20 20 c9 20  32 2c 37 2c 31 35 2c 31  |.c.h  . 2,7,15,1|
00015b40  32 2c 32 38 2c 34 32 2c  34 33 20 3a 20 74 24 3d  |2,28,42,43 : t$=|
00015b50  22 49 74 27 73 20 61 20  73 74 6f 6e 65 79 20 74  |"It's a stoney t|
00015b60  68 69 6e 67 20 74 68 61  74 20 72 75 6e 73 20 66  |hing that runs f|
00015b70  72 6f 6d 20 74 68 65 20  6e 6f 72 74 68 20 6f 66  |rom the north of|
00015b80  20 74 68 65 20 74 6f 77  6e 20 74 6f 20 74 68 65  | the town to the|
00015b90  20 73 6f 75 74 68 2e 22  0d 64 00 05 cb 0d 64 0a  | south.".d....d.|
00015ba0  21 e7 20 a7 69 24 2c 22  66 65 6e 63 65 22 29 3e  |!. .i$,"fence")>|
00015bb0  30 20 c8 8e 20 72 6f 6f  6d 6e 6f 25 20 ca 0d 64  |0 .. roomno% ..d|
00015bc0  14 c0 20 20 c9 20 35 37  2c 35 36 2c 35 35 2c 35  |..  . 57,56,55,5|
00015bd0  33 2c 32 34 2c 31 34 2c  31 35 2c 31 36 2c 31 37  |3,24,14,15,16,17|
00015be0  2c 31 38 2c 34 36 2c 34  35 2c 34 34 2c 34 33 2c  |,18,46,45,44,43,|
00015bf0  34 37 2c 36 35 2c 37 36  2c 37 37 2c 37 38 2c 37  |47,65,76,77,78,7|
00015c00  39 2c 38 30 20 3a 20 74  24 3d 22 54 68 65 20 66  |9,80 : t$="The f|
00015c10  65 6e 63 65 20 69 73 20  77 6f 6f 64 65 6e 20 61  |ence is wooden a|
00015c20  6e 64 20 72 75 6e 73 20  66 72 6f 6d 20 74 68 65  |nd runs from the|
00015c30  20 77 65 73 74 20 6f 66  20 74 68 65 20 74 6f 77  | west of the tow|
00015c40  6e 20 74 6f 20 74 68 65  20 65 61 73 74 2e 20 49  |n to the east. I|
00015c50  74 20 6c 6f 6f 6b 73 20  75 6e 74 72 65 61 74 65  |t looks untreate|
00015c60  64 20 61 6e 64 20 68 61  73 20 61 6c 6d 6f 73 74  |d and has almost|
00015c70  20 72 6f 74 74 65 64 20  61 77 61 79 2e 22 0d 64  | rotted away.".d|
00015c80  1e 05 cb 0d 64 28 1f e7  20 a7 69 24 2c 22 63 61  |....d(.. .i$,"ca|
00015c90  72 22 29 3e 30 20 c8 8e  20 72 6f 6f 6d 6e 6f 25  |r")>0 .. roomno%|
00015ca0  20 ca 0d 64 32 62 20 20  c9 20 32 36 38 2c 32 36  | ..d2b  . 268,26|
00015cb0  39 2c 32 37 30 2c 32 37  31 2c 32 37 32 2c 32 37  |9,270,271,272,27|
00015cc0  33 2c 32 37 34 20 3a 20  74 24 3d 22 54 68 65 20  |3,274 : t$="The |
00015cd0  63 61 72 73 20 61 72 65  20 6c 61 72 67 65 2c 20  |cars are large, |
00015ce0  76 61 72 69 6f 75 73 20  63 6f 6c 6f 75 72 73 2c  |various colours,|
00015cf0  20 61 6e 64 20 61 72 65  20 76 65 72 79 20 66 61  | and are very fa|
00015d00  73 74 2e 22 0d 64 3c 05  cb 0d 64 46 20 e7 20 a7  |st.".d<...dF . .|
00015d10  69 24 2c 22 74 72 65 65  22 29 3e 30 20 c8 8e 20  |i$,"tree")>0 .. |
00015d20  72 6f 6f 6d 6e 6f 25 20  ca 0d 64 50 65 20 20 c9  |roomno% ..dPe  .|
00015d30  20 32 37 39 2c 32 38 36  2c 32 38 38 2c 32 38 39  | 279,286,288,289|
00015d40  2c 32 39 30 2c 32 39 32  20 3a 20 74 24 3d 22 54  |,290,292 : t$="T|
00015d50  68 65 20 74 72 65 65 73  20 61 72 65 20 74 61 6c  |he trees are tal|
00015d60  6c 20 61 6e 64 20 68 65  61 6c 74 68 79 2e 20 54  |l and healthy. T|
00015d70  68 65 79 20 61 72 65 20  63 6f 76 65 72 65 64 20  |hey are covered |
00015d80  77 69 74 68 20 66 6f 6c  69 61 67 65 2e 22 0d 64  |with foliage.".d|
00015d90  5a 05 cb 0d 64 64 11 e7  20 72 6f 6f 6d 6e 6f 25  |Z...dd.. roomno%|
00015da0  3d 31 20 8c 0d 64 6e 4a  e7 20 a7 69 24 2c 22 61  |=1 ..dnJ. .i$,"a|
00015db0  6d 69 67 61 22 29 3e 30  20 74 24 3d 22 44 6f 6e  |miga")>0 t$="Don|
00015dc0  27 74 20 73 61 79 20 79  6f 75 27 76 65 20 6e 65  |'t say you've ne|
00015dd0  76 65 72 20 73 65 65 6e  20 61 6e 20 41 6d 69 67  |ver seen an Amig|
00015de0  61 21 20 4c 75 63 6b 79  20 79 6f 75 21 22 0d 64  |a! Lucky you!".d|
00015df0  78 68 e7 20 a7 69 24 2c  22 73 74 61 6c 6c 22 29  |xh. .i$,"stall")|
00015e00  3e 30 20 74 24 3d 22 4a  75 73 74 20 74 68 65 20  |>0 t$="Just the |
00015e10  75 73 75 61 6c 20 6d 61  72 6b 65 74 2d 70 6c 61  |usual market-pla|
00015e20  63 65 20 73 74 61 6c 6c  73 2c 20 73 65 6c 6c 69  |ce stalls, selli|
00015e30  6e 67 20 61 6c 6c 20 73  6f 72 74 73 20 6f 66 20  |ng all sorts of |
00015e40  75 73 65 6c 65 73 73 20  6b 6e 69 63 6b 2d 6b 6e  |useless knick-kn|
00015e50  61 63 6b 73 2e 22 0d 64  82 50 e7 20 a7 69 24 2c  |acks.".d.P. .i$,|
00015e60  22 75 6e 64 65 72 77 65  61 72 22 29 3e 30 20 74  |"underwear")>0 t|
00015e70  24 3d 22 54 68 65 20 75  6e 64 65 72 77 65 61 72  |$="The underwear|
00015e80  20 69 73 20 77 6f 6f 6c  6c 65 6e 20 61 6e 64 20  | is woollen and |
00015e90  63 6f 75 6c 64 20 62 65  20 71 75 69 74 65 20 69  |could be quite i|
00015ea0  74 63 68 79 2e 22 0d 64  8c 90 e7 20 a7 69 24 2c  |tchy.".d... .i$,|
00015eb0  22 70 65 6f 70 6c 65 22  29 3e 30 20 74 24 3d 22  |"people")>0 t$="|
00015ec0  59 6f 75 20 63 61 6e 27  74 20 73 65 65 20 61 20  |You can't see a |
00015ed0  68 61 70 70 79 20 73 6f  75 6c 20 61 6d 6f 6e 67  |happy soul among|
00015ee0  20 74 68 65 6d 2c 20 62  75 74 20 79 6f 75 20 77  | them, but you w|
00015ef0  6f 75 6c 64 6e 27 74 20  62 65 20 68 61 70 70 79  |ouldn't be happy|
00015f00  20 69 66 20 79 6f 75 27  64 20 6c 69 76 65 64 20  | if you'd lived |
00015f10  69 6e 20 47 72 65 61 74  65 72 20 52 6f 6c 6c 74  |in Greater Rollt|
00015f20  68 72 69 67 68 74 20 61  6c 6c 20 79 6f 75 72 20  |hright all your |
00015f30  6c 69 66 65 2e 22 0d 64  96 05 cd 0d 64 a0 68 e7  |life.".d....d.h.|
00015f40  20 72 6f 6f 6d 6e 6f 25  3d 32 20 80 20 a7 69 24  | roomno%=2 . .i$|
00015f50  2c 22 64 6f 6f 72 22 29  3e 30 20 74 24 3d 22 54  |,"door")>0 t$="T|
00015f60  68 65 20 64 6f 6f 72 20  69 73 20 71 75 69 74 65  |he door is quite|
00015f70  20 6c 61 72 67 65 20 61  6e 64 20 69 73 20 74 68  | large and is th|
00015f80  65 20 6d 61 69 6e 20 65  6e 74 72 61 6e 63 65 20  |e main entrance |
00015f90  74 6f 20 74 68 65 20 70  6f 73 68 20 68 6f 75 73  |to the posh hous|
00015fa0  65 2e 22 0d 64 aa 11 e7  20 72 6f 6f 6d 6e 6f 25  |e.".d... roomno%|
00015fb0  3d 33 20 8c 0d 64 b4 50  e7 20 a7 69 24 2c 22 68  |=3 ..d.P. .i$,"h|
00015fc0  61 74 20 73 74 61 6e 64  22 29 3e 30 20 74 24 3d  |at stand")>0 t$=|
00015fd0  22 57 68 61 74 20 64 6f  20 79 6f 75 20 77 61 6e  |"What do you wan|
00015fe0  74 20 6d 65 20 74 6f 20  73 61 79 3f 20 49 74 27  |t me to say? It'|
00015ff0  73 20 61 20 73 74 61 6e  64 20 66 6f 72 20 68 61  |s a stand for ha|
00016000  74 73 2e 22 0d 64 be 4f  e7 20 a7 69 24 2c 22 68  |ts.".d.O. .i$,"h|
00016010  61 74 73 74 61 6e 64 22  29 3e 30 20 74 24 3d 22  |atstand")>0 t$="|
00016020  57 68 61 74 20 64 6f 20  79 6f 75 20 77 61 6e 74  |What do you want|
00016030  20 6d 65 20 74 6f 20 73  61 79 3f 20 49 74 27 73  | me to say? It's|
00016040  20 61 20 73 74 61 6e 64  20 66 6f 72 20 68 61 74  | a stand for hat|
00016050  73 2e 22 0d 64 c8 5e e7  20 a7 69 24 2c 22 73 74  |s.".d.^. .i$,"st|
00016060  61 69 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |air")>0 t$="The |
00016070  73 74 61 69 72 73 20 6c  6f 6f 6b 20 71 75 69 74  |stairs look quit|
00016080  65 20 73 6f 6c 69 64 20  61 6e 64 20 74 68 65 79  |e solid and they|
00016090  20 6c 65 61 64 20 64 6f  77 6e 20 74 6f 20 74 68  | lead down to th|
000160a0  65 20 64 61 72 6b 20 62  61 73 65 6d 65 6e 74 2e  |e dark basement.|
000160b0  22 0d 64 d2 9e e7 20 a7  69 24 2c 22 77 61 6c 6c  |".d... .i$,"wall|
000160c0  70 61 70 65 72 22 29 3e  30 20 74 24 3d 22 54 68  |paper")>0 t$="Th|
000160d0  65 20 77 61 6c 6c 2d 70  61 70 65 72 20 69 73 20  |e wall-paper is |
000160e0  6d 61 64 65 20 73 6f 20  74 68 61 74 20 69 74 20  |made so that it |
000160f0  73 68 6f 75 6c 64 20 6c  6f 6f 6b 20 71 75 69 74  |should look quit|
00016100  65 20 63 6f 6e 76 69 6e  63 69 6e 67 2c 20 62 75  |e convincing, bu|
00016110  74 20 75 6e 66 6f 72 74  75 6e 61 74 65 6c 79 20  |t unfortunately |
00016120  79 6f 75 20 63 61 6e 20  74 65 6c 6c 20 69 74 20  |you can tell it |
00016130  77 61 73 20 63 68 65 61  70 20 66 72 6f 6d 20 54  |was cheap from T|
00016140  65 78 61 73 20 48 6f 6d  65 63 61 72 65 2e 22 0d  |exas Homecare.".|
00016150  64 dc 6d e7 20 a7 69 24  2c 22 63 68 61 6e 64 65  |d.m. .i$,"chande|
00016160  6c 69 65 72 22 29 3e 30  20 74 24 3d 22 54 68 65  |lier")>0 t$="The|
00016170  20 63 68 61 6e 64 65 6c  69 65 72 20 69 73 20 6f  | chandelier is o|
00016180  6e 20 74 68 65 20 74 61  63 6b 79 20 73 69 64 65  |n the tacky side|
00016190  2c 20 62 75 74 20 63 72  65 61 74 65 73 20 61 20  |, but creates a |
000161a0  73 75 72 70 72 69 73 69  6e 67 20 61 6d 6f 75 6e  |surprising amoun|
000161b0  74 20 6f 66 20 6c 69 67  68 74 2e 22 0d 64 e6 05  |t of light.".d..|
000161c0  cd 0d 64 f0 6a e7 20 72  6f 6f 6d 6e 6f 25 3d 34  |..d.j. roomno%=4|
000161d0  20 80 20 a7 69 24 2c 22  74 6f 79 22 29 3e 30 20  | . .i$,"toy")>0 |
000161e0  74 24 3d 22 54 68 65 20  74 6f 79 73 20 61 72 65  |t$="The toys are|
000161f0  20 6e 6f 74 68 69 6e 67  20 6f 75 74 20 6f 66 20  | nothing out of |
00016200  74 68 65 20 6f 72 64 69  6e 61 72 79 20 61 6e 64  |the ordinary and|
00016210  20 61 72 65 20 71 75 69  74 65 20 75 73 65 6c 65  | are quite usele|
00016220  73 73 20 74 6f 20 79 6f  75 2e 22 0d 64 fa 11 e7  |ss to you.".d...|
00016230  20 72 6f 6f 6d 6e 6f 25  3d 35 20 8c 0d 65 04 73  | roomno%=5 ..e.s|
00016240  e7 20 a7 69 24 2c 22 70  65 6e 22 29 3e 30 20 74  |. .i$,"pen")>0 t|
00016250  24 3d 22 54 68 65 20 70  65 6e 20 69 73 20 6a 75  |$="The pen is ju|
00016260  73 74 20 6c 69 6b 65 20  61 6e 79 20 6f 74 68 65  |st like any othe|
00016270  72 20 70 65 6e 2e 20 49  74 20 69 73 20 75 73 65  |r pen. It is use|
00016280  64 20 74 6f 20 77 72 69  74 65 20 74 68 69 6e 67  |d to write thing|
00016290  73 2e 20 49 74 20 69 73  20 63 68 61 69 6e 65 64  |s. It is chained|
000162a0  20 74 6f 20 74 68 65 20  74 61 62 6c 65 2e 22 0d  | to the table.".|
000162b0  65 0e b4 e7 20 a7 69 24  2c 22 66 6f 72 6d 22 29  |e... .i$,"form")|
000162c0  3e 30 20 74 24 3d 22 54  68 65 20 66 6f 72 6d 20  |>0 t$="The form |
000162d0  69 73 20 71 75 69 74 65  20 6c 61 72 67 65 20 61  |is quite large a|
000162e0  6e 64 20 68 61 73 20 73  6f 6d 65 20 74 79 70 65  |nd has some type|
000162f0  64 20 77 72 69 74 69 6e  67 20 6f 6e 20 69 74 2c  |d writing on it,|
00016300  20 69 74 20 69 73 20 63  68 61 69 6e 65 64 20 74  | it is chained t|
00016310  6f 20 74 68 65 20 74 61  62 6c 65 2e 22 3a e7 20  |o the table.":. |
00016320  77 72 69 74 74 65 6e 25  3d 31 20 74 24 2b 3d 22  |written%=1 t$+="|
00016330  20 49 74 20 61 6c 73 6f  20 68 61 73 20 73 6f 6d  | It also has som|
00016340  65 20 6f 66 20 79 6f 75  72 20 75 6e 72 65 61 64  |e of your unread|
00016350  61 62 6c 65 20 73 63 72  61 77 6c 20 6f 6e 20 69  |able scrawl on i|
00016360  74 2e 22 0d 65 18 b6 e7  20 a7 69 24 2c 22 62 65  |t.".e... .i$,"be|
00016370  64 22 29 3e 30 20 74 24  3d 22 54 68 65 20 62 65  |d")>0 t$="The be|
00016380  64 20 69 73 20 6f 66 20  74 68 65 20 34 2d 70 6f  |d is of the 4-po|
00016390  73 74 65 72 20 76 61 72  69 65 74 79 20 61 6e 64  |ster variety and|
000163a0  20 69 74 73 20 63 6f 76  65 72 20 69 73 20 71 75  | its cover is qu|
000163b0  69 74 65 20 62 72 65 61  74 68 74 61 6b 69 6e 67  |ite breathtaking|
000163c0  2c 20 69 74 20 6d 75 73  74 20 68 61 76 65 20 74  |, it must have t|
000163d0  61 6b 65 6e 20 6d 61 6e  79 20 6c 6f 6e 67 20 79  |aken many long y|
000163e0  65 61 72 73 20 74 6f 20  67 65 74 20 74 68 65 20  |ears to get the |
000163f0  65 6d 62 72 6f 69 64 65  72 79 20 6f 6e 20 69 74  |embroidery on it|
00016400  20 74 6f 20 73 75 63 68  20 61 20 68 69 67 68 20  | to such a high |
00016410  71 75 61 6c 69 74 79 2e  22 0d 65 22 81 e7 20 a7  |quality.".e".. .|
00016420  69 24 2c 22 74 61 62 6c  65 22 29 3e 30 20 74 24  |i$,"table")>0 t$|
00016430  3d 22 54 68 65 20 74 61  62 6c 65 20 69 73 20 77  |="The table is w|
00016440  6f 6f 64 65 6e 20 61 6e  64 20 64 6f 65 73 6e 27  |ooden and doesn'|
00016450  74 20 6c 6f 6f 6b 20 6f  75 74 20 6f 66 20 74 68  |t look out of th|
00016460  65 20 6f 72 64 69 6e 61  72 79 2e 20 4f 6e 20 74  |e ordinary. On t|
00016470  68 65 20 74 6f 70 20 6f  66 20 69 74 20 69 73 20  |he top of it is |
00016480  63 68 61 69 6e 65 64 20  61 20 66 6f 72 6d 20 61  |chained a form a|
00016490  6e 64 20 61 20 70 65 6e  2e 22 0d 65 2c 05 cd 0d  |nd a pen.".e,...|
000164a0  65 36 11 e7 20 72 6f 6f  6d 6e 6f 25 3d 38 20 8c  |e6.. roomno%=8 .|
000164b0  0d 65 40 83 e7 20 a7 69  24 2c 22 63 65 69 6c 69  |.e@.. .i$,"ceili|
000164c0  6e 67 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |ng")>0 t$="The c|
000164d0  65 69 6c 69 6e 67 20 6c  6f 6f 6b 73 20 61 73 20  |eiling looks as |
000164e0  69 66 20 69 74 20 73 68  6f 75 6c 64 20 62 65 20  |if it should be |
000164f0  69 6e 20 73 6f 6d 65 20  73 6f 72 74 20 6f 66 20  |in some sort of |
00016500  70 61 6c 61 63 65 20 61  6e 64 20 79 6f 75 20 63  |palace and you c|
00016510  6f 75 6c 64 20 73 74 61  6e 64 20 66 6f 72 20 68  |ould stand for h|
00016520  6f 75 72 73 20 67 61 70  69 6e 67 20 61 74 20 69  |ours gaping at i|
00016530  74 2e 22 0d 65 4a 4e e7  20 a7 69 24 2c 22 66 75  |t.".eJN. .i$,"fu|
00016540  72 6e 69 74 75 72 65 22  29 3e 30 20 74 24 3d 22  |rniture")>0 t$="|
00016550  54 68 65 20 66 75 72 6e  69 74 75 72 65 20 69 73  |The furniture is|
00016560  20 62 75 6c 6b 79 20 61  6e 64 20 6e 6f 74 68 69  | bulky and nothi|
00016570  6e 67 20 74 65 72 72 69  62 6c 79 20 77 6f 77 2e  |ng terribly wow.|
00016580  22 0d 65 54 77 e7 20 a7  69 24 2c 22 63 61 72 70  |".eTw. .i$,"carp|
00016590  65 74 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |et")>0 t$="The c|
000165a0  61 72 70 65 74 20 66 65  65 6c 73 20 6d 6f 72 65  |arpet feels more|
000165b0  20 6c 69 6b 65 20 61 20  6c 61 79 65 72 20 6f 66  | like a layer of|
000165c0  20 72 6f 63 6b 73 2c 20  62 75 74 20 69 74 20 64  | rocks, but it d|
000165d0  6f 65 73 20 6c 6f 6f 6b  20 71 75 69 74 65 20 68  |oes look quite h|
000165e0  61 72 6d 6c 65 73 73 20  61 74 20 66 69 72 73 74  |armless at first|
000165f0  20 73 69 67 68 74 2e 22  0d 65 5e 05 cd 0d 65 68  | sight.".e^...eh|
00016600  11 e7 20 72 6f 6f 6d 6e  6f 25 3d 39 20 8c 0d 65  |.. roomno%=9 ..e|
00016610  72 66 e7 20 a7 69 24 2c  22 73 6f 66 61 22 29 3e  |rf. .i$,"sofa")>|
00016620  30 20 74 24 3d 22 54 68  65 20 73 6f 66 61 20 69  |0 t$="The sofa i|
00016630  73 20 69 6e 20 73 75 63  68 20 61 20 62 61 64 20  |s in such a bad |
00016640  63 6f 6e 64 69 74 69 6f  6e 20 74 68 61 74 20 79  |condition that y|
00016650  6f 75 20 77 6f 6e 64 65  72 20 77 68 79 20 61 6e  |ou wonder why an|
00016660  79 6f 6e 65 20 77 6f 75  6c 64 20 77 61 6e 74 20  |yone would want |
00016670  69 74 2e 22 0d 65 7c 78  e7 20 a7 69 24 2c 22 70  |it.".e|x. .i$,"p|
00016680  61 69 6e 74 69 6e 67 22  29 3e 30 20 74 24 3d 22  |ainting")>0 t$="|
00016690  54 68 65 20 70 61 69 6e  74 69 6e 67 20 6f 62 76  |The painting obv|
000166a0  69 6f 75 73 6c 79 20 75  73 65 64 20 74 6f 20 62  |iously used to b|
000166b0  65 20 71 75 69 74 65 20  61 20 77 6f 72 6b 20 6f  |e quite a work o|
000166c0  66 20 61 72 74 2c 20 62  75 74 20 6e 6f 77 20 69  |f art, but now i|
000166d0  74 20 69 73 20 72 75 69  6e 65 64 2c 20 62 65 79  |t is ruined, bey|
000166e0  6f 6e 64 20 72 65 70 61  69 72 2e 22 0d 65 86 77  |ond repair.".e.w|
000166f0  e7 20 a7 69 24 2c 22 70  69 63 74 75 72 65 22 29  |. .i$,"picture")|
00016700  3e 30 20 74 24 3d 22 54  68 65 20 70 61 69 6e 74  |>0 t$="The paint|
00016710  69 6e 67 20 6f 62 76 69  6f 75 73 6c 79 20 75 73  |ing obviously us|
00016720  65 64 20 74 6f 20 62 65  20 71 75 69 74 65 20 61  |ed to be quite a|
00016730  20 77 6f 72 6b 20 6f 66  20 61 72 74 2c 20 62 75  | work of art, bu|
00016740  74 20 6e 6f 77 20 69 74  20 69 73 20 72 75 69 6e  |t now it is ruin|
00016750  65 64 2c 20 62 65 79 6f  6e 64 20 72 65 70 61 69  |ed, beyond repai|
00016760  72 2e 22 0d 65 90 78 e7  20 a7 69 24 2c 22 70 6f  |r.".e.x. .i$,"po|
00016770  72 74 72 61 69 74 22 29  3e 30 20 74 24 3d 22 54  |rtrait")>0 t$="T|
00016780  68 65 20 70 61 69 6e 74  69 6e 67 20 6f 62 76 69  |he painting obvi|
00016790  6f 75 73 6c 79 20 75 73  65 64 20 74 6f 20 62 65  |ously used to be|
000167a0  20 71 75 69 74 65 20 61  20 77 6f 72 6b 20 6f 66  | quite a work of|
000167b0  20 61 72 74 2c 20 62 75  74 20 6e 6f 77 20 69 74  | art, but now it|
000167c0  20 69 73 20 72 75 69 6e  65 64 2c 20 62 65 79 6f  | is ruined, beyo|
000167d0  6e 64 20 72 65 70 61 69  72 2e 22 0d 65 9a 05 cd  |nd repair.".e...|
000167e0  0d 65 a4 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 31 30  |.e... roomno%=10|
000167f0  20 8c 0d 65 ae 7b e7 20  a7 69 24 2c 22 74 61 62  | ..e.{. .i$,"tab|
00016800  6c 65 22 29 3e 30 20 74  24 3d 22 54 68 65 20 74  |le")>0 t$="The t|
00016810  61 62 6c 65 20 69 73 20  6f 72 6e 61 74 65 6c 79  |able is ornately|
00016820  20 63 61 72 76 65 64 20  6f 75 74 20 6f 66 20 74  | carved out of t|
00016830  6f 70 2d 71 75 61 6c 69  74 79 20 77 6f 6f 64 20  |op-quality wood |
00016840  61 6e 64 20 6c 6f 6f 6b  73 20 70 65 72 66 65 63  |and looks perfec|
00016850  74 20 69 6e 20 74 68 69  73 20 61 72 69 73 74 6f  |t in this aristo|
00016860  63 72 61 74 69 63 20 72  6f 6f 6d 2e 22 0d 65 b8  |cratic room.".e.|
00016870  67 e7 20 a7 69 24 2c 22  63 68 61 69 72 22 29 3e  |g. .i$,"chair")>|
00016880  30 20 74 24 3d 22 54 68  65 20 63 68 61 69 72 73  |0 t$="The chairs|
00016890  20 61 72 65 20 61 6c 6d  6f 73 74 20 61 73 20 62  | are almost as b|
000168a0  65 61 75 74 69 66 75 6c  20 61 73 20 74 68 65 20  |eautiful as the |
000168b0  74 61 62 6c 65 20 61 6e  64 20 61 72 65 20 6e 65  |table and are ne|
000168c0  61 74 6c 79 20 73 61 74  20 61 72 6f 75 6e 64 20  |atly sat around |
000168d0  69 74 2e 22 0d 65 c2 05  cd 0d 65 cc 12 e7 20 72  |it.".e....e... r|
000168e0  6f 6f 6d 6e 6f 25 3d 31  31 20 8c 0d 65 d6 5a e7  |oomno%=11 ..e.Z.|
000168f0  20 a7 69 24 2c 22 70 6c  61 71 75 65 22 29 3e 30  | .i$,"plaque")>0|
00016900  20 74 24 3d 22 54 68 65  20 70 6c 61 71 75 65 20  | t$="The plaque |
00016910  69 73 20 67 6f 6c 64 65  6e 20 61 6e 64 20 68 61  |is golden and ha|
00016920  73 20 73 6f 6d 65 20 63  61 72 65 66 75 6c 6c 79  |s some carefully|
00016930  20 65 74 63 68 65 64 20  77 6f 72 64 73 20 6f 6e  | etched words on|
00016940  20 69 74 2e 22 0d 65 e0  5b e7 20 a7 69 24 2c 22  | it.".e.[. .i$,"|
00016950  70 6f 74 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |pot")>0 t$="The |
00016960  70 6f 74 73 20 61 72 65  20 72 6f 75 6e 64 20 61  |pots are round a|
00016970  6e 64 20 6d 61 64 65 20  6f 66 20 64 72 69 65 64  |nd made of dried|
00016980  20 6d 75 64 2e 20 54 68  65 79 20 63 6f 6e 74 61  | mud. They conta|
00016990  69 6e 20 73 6f 6d 65 20  70 6c 61 6e 74 73 2e 22  |in some plants."|
000169a0  0d 65 ea 6f e7 20 a7 69  24 2c 22 70 6c 61 6e 74  |.e.o. .i$,"plant|
000169b0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 70 6c 61  |")>0 t$="The pla|
000169c0  6e 74 73 20 6c 6f 6f 6b  20 64 65 61 64 2c 20 70  |nts look dead, p|
000169d0  72 6f 62 61 62 6c 79 20  64 75 65 20 74 6f 20 74  |robably due to t|
000169e0  68 65 20 65 78 63 69 74  69 6e 67 20 61 74 6d 6f  |he exciting atmo|
000169f0  73 70 68 65 72 65 20 6f  66 20 47 72 65 61 74 65  |sphere of Greate|
00016a00  72 20 52 6f 6c 6c 74 68  72 69 67 68 74 2e 22 0d  |r Rollthright.".|
00016a10  65 f4 49 e7 20 a7 69 24  2c 22 6d 6f 6e 75 6d 65  |e.I. .i$,"monume|
00016a20  6e 74 22 29 3e 30 20 74  24 3d 22 54 68 65 20 65  |nt")>0 t$="The e|
00016a30  6c 61 62 6f 72 61 74 65  20 73 74 6f 6e 65 20 6d  |laborate stone m|
00016a40  6f 6e 75 6d 65 6e 74 20  6c 6f 6f 6d 73 20 6f 76  |onument looms ov|
00016a50  65 72 20 79 6f 75 2e 22  0d 65 fe 05 cd 0d 66 08  |er you.".e....f.|
00016a60  12 e7 20 72 6f 6f 6d 6e  6f 25 3d 31 33 20 8c 0d  |.. roomno%=13 ..|
00016a70  66 12 58 e7 20 a7 69 24  2c 22 70 61 74 68 22 29  |f.X. .i$,"path")|
00016a80  3e 30 20 74 24 3d 22 54  68 65 20 70 61 74 68 20  |>0 t$="The path |
00016a90  77 69 6e 64 73 20 61 6c  6f 6e 67 20 72 61 74 68  |winds along rath|
00016aa0  65 72 20 77 69 6c 64 6c  79 2e 20 49 74 20 69 73  |er wildly. It is|
00016ab0  20 6d 61 64 65 20 6f 66  20 63 72 61 7a 79 2d 70  | made of crazy-p|
00016ac0  61 76 69 6e 67 2e 22 0d  66 1c 5e e7 20 a7 69 24  |aving.".f.^. .i$|
00016ad0  2c 22 70 61 76 69 6e 67  22 29 3e 30 20 74 24 3d  |,"paving")>0 t$=|
00016ae0  22 54 68 65 20 70 61 76  69 6e 67 20 69 73 20 70  |"The paving is p|
00016af0  72 6f 62 61 62 6c 79 20  64 6f 6e 65 20 62 79 20  |robably done by |
00016b00  70 72 6f 66 65 73 73 69  6f 6e 61 6c 73 20 61 73  |professionals as|
00016b10  20 79 6f 75 20 63 61 6e  27 74 20 66 61 75 6c 74  | you can't fault|
00016b20  20 69 74 2e 22 0d 66 26  88 e7 20 a7 69 24 2c 22  | it.".f&.. .i$,"|
00016b30  74 72 65 65 22 29 3e 30  20 74 24 3d 22 54 68 65  |tree")>0 t$="The|
00016b40  20 74 72 65 65 73 20 61  72 65 20 6c 61 72 67 65  | trees are large|
00016b50  2c 20 62 75 74 20 79 6f  75 20 61 72 65 20 75 6e  |, but you are un|
00016b60  73 75 72 65 20 6f 66 20  74 68 65 20 74 79 70 65  |sure of the type|
00016b70  2e 20 54 68 65 79 20 6c  6f 6f 6b 20 65 73 70 65  |. They look espe|
00016b80  63 69 61 6c 6c 79 20 62  65 61 75 74 69 66 75 6c  |cially beautiful|
00016b90  20 77 69 74 68 20 61 6c  6c 20 74 68 65 20 62 6c  | with all the bl|
00016ba0  6f 73 73 6f 6d 20 6f 6e  20 69 74 2e 22 0d 66 30  |ossom on it.".f0|
00016bb0  9e e7 20 a7 69 24 2c 22  62 6c 6f 73 73 6f 6d 22  |.. .i$,"blossom"|
00016bc0  29 3e 30 20 74 24 3d 22  54 68 65 20 62 6c 6f 73  |)>0 t$="The blos|
00016bd0  73 6f 6d 20 69 73 20 70  72 6f 62 61 62 6c 79 20  |som is probably |
00016be0  74 68 65 20 74 68 69 6e  67 20 74 68 61 74 20 67  |the thing that g|
00016bf0  69 76 65 73 20 74 68 65  20 67 61 72 64 65 6e 20  |ives the garden |
00016c00  6d 6f 73 74 20 61 74 6d  6f 73 70 68 65 72 65 2e  |most atmosphere.|
00016c10  20 49 74 20 6c 61 79 73  20 6f 6e 20 74 68 65 20  | It lays on the |
00016c20  74 72 65 65 73 2c 20 67  65 6e 74 6c 79 20 73 77  |trees, gently sw|
00016c30  61 79 69 6e 67 20 69 6e  20 74 68 65 20 6c 69 67  |aying in the lig|
00016c40  68 74 20 62 72 65 65 7a  65 2e 22 0d 66 3a 63 e7  |ht breeze.".f:c.|
00016c50  20 a7 69 24 2c 22 67 61  72 64 65 6e 22 29 3e 30  | .i$,"garden")>0|
00016c60  20 74 24 3d 22 54 68 65  20 67 61 72 64 65 6e 20  | t$="The garden |
00016c70  69 73 20 61 20 66 65 61  73 74 20 66 6f 72 20 74  |is a feast for t|
00016c80  68 65 20 65 79 65 73 20  61 6e 64 20 6f 62 76 69  |he eyes and obvi|
00016c90  6f 75 73 6c 79 20 76 65  72 79 20 77 65 6c 6c 20  |ously very well |
00016ca0  6c 6f 6f 6b 65 64 20 61  66 74 65 72 2e 22 0d 66  |looked after.".f|
00016cb0  44 05 cd 0d 66 4e 12 e7  20 72 6f 6f 6d 6e 6f 25  |D...fN.. roomno%|
00016cc0  3d 31 35 20 8c 0d 66 58  5d e7 20 a7 69 24 2c 22  |=15 ..fX]. .i$,"|
00016cd0  67 75 61 72 64 22 29 3e  30 20 74 24 3d 22 54 68  |guard")>0 t$="Th|
00016ce0  65 20 67 75 61 72 64 20  6c 6f 6f 6b 73 20 76 65  |e guard looks ve|
00016cf0  72 79 20 73 6f 6c 65 6d  6e 20 61 73 20 68 65 20  |ry solemn as he |
00016d00  77 61 74 63 68 65 73 20  79 6f 75 72 20 6d 6f 76  |watches your mov|
00016d10  65 6d 65 6e 74 73 20 63  61 72 65 66 75 6c 6c 79  |ements carefully|
00016d20  2e 22 0d 66 62 ae e7 20  a7 69 24 2c 22 67 61 74  |.".fb.. .i$,"gat|
00016d30  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 67 61  |e")>0 t$="The ga|
00016d40  74 65 73 20 61 72 65 20  6c 61 72 67 65 20 61 6e  |tes are large an|
00016d50  64 20 61 72 65 20 66 69  78 65 64 20 74 6f 20 74  |d are fixed to t|
00016d60  68 65 20 66 65 6e 63 65  20 77 68 69 63 68 20 72  |he fence which r|
00016d70  75 6e 73 20 66 72 6f 6d  20 74 68 65 20 77 65 73  |uns from the wes|
00016d80  74 20 74 6f 20 74 68 65  20 65 61 73 74 2e 20 54  |t to the east. T|
00016d90  68 65 20 67 61 74 65 73  20 61 72 65 20 66 69 72  |he gates are fir|
00016da0  6d 6c 79 20 62 6f 6c 74  65 64 20 61 6e 64 20 68  |mly bolted and h|
00016db0  61 76 65 20 61 20 67 75  61 72 64 20 77 61 74 63  |ave a guard watc|
00016dc0  68 69 6e 67 20 6f 76 65  72 20 74 68 65 6d 2e 22  |hing over them."|
00016dd0  0d 66 6c 05 cd 0d 66 76  94 e7 20 72 6f 6f 6d 6e  |.fl...fv.. roomn|
00016de0  6f 25 3d 31 38 20 80 20  a7 69 24 2c 22 73 6c 75  |o%=18 . .i$,"slu|
00016df0  64 67 65 22 29 3e 30 20  74 24 3d 22 49 74 27 73  |dge")>0 t$="It's|
00016e00  20 68 61 72 64 20 74 6f  20 73 65 65 20 69 6e 20  | hard to see in |
00016e10  74 68 65 20 70 6f 6f 72  20 6c 69 67 68 74 20 63  |the poor light c|
00016e20  6f 6e 64 69 74 69 6f 6e  73 2c 20 62 75 74 20 61  |onditions, but a|
00016e30  73 20 66 61 72 20 61 73  20 79 6f 75 20 63 61 6e  |s far as you can|
00016e40  20 6d 61 6b 65 20 6f 75  74 20 74 68 65 20 73 6c  | make out the sl|
00016e50  75 64 67 65 20 69 73 20  62 72 6f 77 6e 20 61 6e  |udge is brown an|
00016e60  64 20 67 6f 6f 65 79 2e  22 0d 66 80 c8 e7 20 72  |d gooey.".f... r|
00016e70  6f 6f 6d 6e 6f 25 3d 31  39 20 80 20 a7 69 24 2c  |oomno%=19 . .i$,|
00016e80  22 73 69 67 6e 22 29 3e  30 20 74 24 3d 22 54 68  |"sign")>0 t$="Th|
00016e90  65 20 73 69 67 6e 20 69  73 20 70 61 69 6e 74 65  |e sign is painte|
00016ea0  64 2c 20 62 75 74 20 74  68 65 20 70 61 69 6e 74  |d, but the paint|
00016eb0  20 69 73 20 73 74 61 72  74 69 6e 67 20 74 6f 20  | is starting to |
00016ec0  70 65 65 6c 20 6f 66 66  2e 20 49 74 20 73 61 79  |peel off. It say|
00016ed0  73 2c 20 27 42 65 74 74  65 72 20 62 79 65 20 66  |s, 'Better bye f|
00016ee0  72 6f 6d 20 42 65 6e 6a  61 6d 69 6e 20 74 68 65  |rom Benjamin the|
00016ef0  20 62 75 74 63 68 65 72  2c 20 74 68 65 20 42 65  | butcher, the Be|
00016f00  73 74 20 42 65 65 66 20  74 27 62 65 20 62 6f 72  |st Beef t'be bor|
00016f10  74 27 2e 20 51 75 69 74  65 20 61 20 6e 69 63 65  |t'. Quite a nice|
00016f20  20 74 6f 6e 67 75 65 20  74 77 69 73 74 65 72 2e  | tongue twister.|
00016f30  22 0d 66 8a 65 e7 20 72  6f 6f 6d 6e 6f 25 3d 32  |".f.e. roomno%=2|
00016f40  32 20 80 20 a7 69 24 2c  22 73 74 61 69 72 22 29  |2 . .i$,"stair")|
00016f50  3e 30 20 74 24 3d 22 54  68 65 20 73 74 61 69 72  |>0 t$="The stair|
00016f60  73 20 6c 6f 6f 6b 20 71  75 69 74 65 20 73 6f 6c  |s look quite sol|
00016f70  69 64 20 61 6e 64 20 74  68 65 79 20 6c 65 61 64  |id and they lead|
00016f80  20 75 70 20 74 68 65 20  67 72 6f 75 6e 64 20 66  | up the ground f|
00016f90  6c 6f 6f 72 2e 22 0d 66  94 74 e7 20 72 6f 6f 6d  |loor.".f.t. room|
00016fa0  6e 6f 25 3d 32 36 20 80  20 a7 69 24 2c 22 77 69  |no%=26 . .i$,"wi|
00016fb0  6e 64 6f 77 22 29 3e 30  20 74 24 3d 22 54 68 65  |ndow")>0 t$="The|
00016fc0  20 77 69 6e 64 6f 77 20  69 73 20 73 6d 61 6c 6c  | window is small|
00016fd0  20 61 6e 64 20 6f 6c 64  2c 20 62 75 74 20 67 69  | and old, but gi|
00016fe0  76 65 73 20 65 6e 6f 75  67 68 20 6c 69 67 68 74  |ves enough light|
00016ff0  20 66 6f 72 20 79 6f 75  20 74 6f 20 73 65 65 20  | for you to see |
00017000  70 72 6f 70 65 72 6c 79  2e 22 0d 66 9e 12 e7 20  |properly.".f... |
00017010  72 6f 6f 6d 6e 6f 25 3d  32 37 20 8c 0d 66 a8 ab  |roomno%=27 ..f..|
00017020  e7 20 a7 69 24 2c 22 63  72 61 74 65 22 29 3e 30  |. .i$,"crate")>0|
00017030  20 74 24 3d 22 49 74 20  69 73 20 68 61 72 64 20  | t$="It is hard |
00017040  74 6f 20 73 65 65 20 74  68 65 20 63 72 61 74 65  |to see the crate|
00017050  20 69 6e 20 74 68 65 20  70 6f 6f 72 20 6c 69 67  | in the poor lig|
00017060  68 74 20 63 6f 6e 64 69  74 69 6f 6e 73 2c 20 62  |ht conditions, b|
00017070  75 74 20 79 6f 75 20 63  61 6e 20 6d 61 6b 65 20  |ut you can make |
00017080  6f 75 74 20 74 68 65 20  66 61 63 74 20 74 68 61  |out the fact tha|
00017090  74 20 69 74 20 69 73 20  77 6f 6f 64 65 6e 20 61  |t it is wooden a|
000170a0  6e 64 20 71 75 69 74 65  20 6f 6c 64 2c 20 64 75  |nd quite old, du|
000170b0  73 74 79 2c 20 61 6e 64  20 6d 61 79 62 65 20 6d  |sty, and maybe m|
000170c0  6f 75 6c 64 79 2e 22 0d  66 b2 6e e7 20 a7 69 24  |ouldy.".f.n. .i$|
000170d0  2c 22 64 75 73 74 22 29  3e 30 20 74 24 3d 22 54  |,"dust")>0 t$="T|
000170e0  68 65 20 64 75 73 74 20  69 73 20 71 75 69 74 65  |he dust is quite|
000170f0  20 74 68 69 63 6b 20 61  6e 64 20 63 6f 76 65 72  | thick and cover|
00017100  73 20 6e 6f 74 20 6f 6e  6c 79 20 74 68 65 20 63  |s not only the c|
00017110  72 61 74 65 2c 20 62 75  74 20 73 6f 6d 65 20 6f  |rate, but some o|
00017120  66 20 74 68 65 20 66 6c  6f 6f 72 20 61 73 20 77  |f the floor as w|
00017130  65 6c 6c 2e 22 0d 66 bc  05 cd 0d 66 c6 12 e7 20  |ell.".f....f... |
00017140  72 6f 6f 6d 6e 6f 25 3d  32 39 20 8c 0d 66 d0 65  |roomno%=29 ..f.e|
00017150  e7 20 a7 69 24 2c 22 73  69 67 6e 22 29 3e 30 20  |. .i$,"sign")>0 |
00017160  74 24 3d 22 54 68 65 20  73 69 67 6e 20 69 73 20  |t$="The sign is |
00017170  73 63 72 65 77 65 64 20  65 78 70 65 72 74 6c 79  |screwed expertly|
00017180  20 74 6f 20 74 68 65 20  77 61 6c 6c 2e 20 4f 6e  | to the wall. On|
00017190  20 69 74 20 69 73 20 73  6f 6d 65 20 62 69 67 2c  | it is some big,|
000171a0  20 62 6f 6c 64 20 6c 65  74 74 65 72 69 6e 67 2e  | bold lettering.|
000171b0  22 0d 66 da 6b e7 20 a7  69 24 2c 22 62 61 6b 65  |".f.k. .i$,"bake|
000171c0  72 22 29 3e 30 20 74 24  3d 22 54 68 65 20 62 61  |r")>0 t$="The ba|
000171d0  6b 65 72 20 69 73 20 67  72 69 6d 65 79 20 61 6e  |ker is grimey an|
000171e0  64 20 68 61 73 20 61 20  73 65 72 69 6f 75 73 20  |d has a serious |
000171f0  77 65 69 67 68 74 20 70  72 6f 62 6c 65 6d 2e 20  |weight problem. |
00017200  48 65 20 64 6f 65 73 6e  27 74 20 6c 6f 6f 6b 20  |He doesn't look |
00017210  76 65 72 79 20 68 61 70  70 79 2e 22 0d 66 e4 87  |very happy.".f..|
00017220  e7 20 a7 69 24 2c 22 63  6f 75 6e 74 65 72 22 29  |. .i$,"counter")|
00017230  3e 30 20 74 24 3d 22 54  68 65 20 63 6f 75 6e 74  |>0 t$="The count|
00017240  65 72 20 69 73 20 71 75  69 74 65 20 6c 6f 77 20  |er is quite low |
00017250  61 6e 64 20 69 73 20 6d  61 64 65 20 6f 75 74 20  |and is made out |
00017260  6f 66 20 77 6f 6f 64 2e  20 42 65 68 69 6e 64 20  |of wood. Behind |
00017270  69 74 20 73 74 61 6e 64  73 20 74 68 65 20 62 61  |it stands the ba|
00017280  6b 65 72 20 61 6e 64 20  6f 6e 20 69 74 20 69 73  |ker and on it is|
00017290  20 61 20 74 69 6c 6c 20  61 6e 64 20 61 20 62 61  | a till and a ba|
000172a0  67 2e 22 0d 66 ee 92 e7  20 a7 69 24 2c 22 6c 6f  |g.".f... .i$,"lo|
000172b0  61 66 22 29 3e 30 20 74  24 3d 22 54 68 65 20 6c  |af")>0 t$="The l|
000172c0  6f 61 66 20 69 73 20 74  68 65 20 6f 6e 6c 79 20  |oaf is the only |
000172d0  6f 6e 65 20 6c 65 66 74  20 69 6e 20 74 68 65 20  |one left in the |
000172e0  73 68 6f 70 20 61 6e 64  20 61 6c 74 68 6f 75 67  |shop and althoug|
000172f0  68 20 69 74 20 6c 6f 6f  6b 73 20 61 20 6c 69 74  |h it looks a lit|
00017300  74 6c 65 20 64 69 72 74  79 20 61 6e 64 20 73 74  |tle dirty and st|
00017310  61 6c 65 20 69 74 20 73  74 69 6c 6c 20 6d 61 6b  |ale it still mak|
00017320  65 73 20 79 6f 75 72 20  6d 6f 75 74 68 20 77 61  |es your mouth wa|
00017330  74 65 72 2e 22 0d 66 f8  85 e7 20 a7 69 24 2c 22  |ter.".f... .i$,"|
00017340  62 61 67 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |bag")>0 t$="The |
00017350  62 61 67 20 69 73 20 6d  61 64 65 20 6f 75 74 20  |bag is made out |
00017360  6f 66 20 61 20 62 72 6f  77 6e 20 6d 61 74 65 72  |of a brown mater|
00017370  69 61 6c 20 61 6e 64 20  6c 6f 6f 6b 73 20 71 75  |ial and looks qu|
00017380  69 74 65 20 66 75 6c 6c  20 6f 66 20 73 6f 6d 65  |ite full of some|
00017390  74 68 69 6e 67 2c 20 70  72 6f 62 61 62 6c 79 20  |thing, probably |
000173a0  63 6f 69 6e 73 2e 20 49  74 20 69 73 20 6f 6e 20  |coins. It is on |
000173b0  74 68 65 20 74 69 6c 6c  2e 22 0d 67 02 77 e7 20  |the till.".g.w. |
000173c0  a7 69 24 2c 22 74 69 6c  6c 22 29 3e 30 20 74 24  |.i$,"till")>0 t$|
000173d0  3d 22 54 68 65 20 74 69  6c 6c 20 69 73 20 6f 6c  |="The till is ol|
000173e0  64 20 61 6e 64 20 72 75  73 74 79 2c 20 69 74 20  |d and rusty, it |
000173f0  70 72 6f 62 61 62 6c 79  20 69 73 6e 27 74 20 75  |probably isn't u|
00017400  73 65 64 20 62 79 20 74  68 65 20 62 61 6b 65 72  |sed by the baker|
00017410  20 61 6e 79 20 6d 6f 72  65 2e 20 49 74 20 69 73  | any more. It is|
00017420  20 6f 6e 20 74 68 65 20  63 6f 75 6e 74 65 72 2e  | on the counter.|
00017430  22 0d 67 0c 05 cd 0d 67  16 12 e7 20 72 6f 6f 6d  |".g....g... room|
00017440  6e 6f 25 3d 33 30 20 8c  0d 67 20 6d e7 20 a7 69  |no%=30 ..g m. .i|
00017450  24 2c 22 62 75 74 63 68  65 72 22 29 3e 30 20 74  |$,"butcher")>0 t|
00017460  24 3d 22 54 68 65 20 62  75 74 63 68 65 72 20 69  |$="The butcher i|
00017470  73 20 74 61 6c 6c 20 61  6e 64 20 6c 6f 6f 6b 73  |s tall and looks|
00017480  20 61 6e 67 72 79 2e 20  48 65 20 69 73 20 77 65  | angry. He is we|
00017490  61 72 69 6e 67 20 73 6f  6d 65 20 62 6c 6f 6f 64  |aring some blood|
000174a0  2d 73 70 6c 61 74 74 65  72 65 64 20 63 6c 6f 74  |-splattered clot|
000174b0  68 65 73 2e 22 0d 67 2a  55 e7 20 a7 69 24 2c 22  |hes.".g*U. .i$,"|
000174c0  63 6f 75 6e 74 65 72 22  29 3e 30 20 74 24 3d 22  |counter")>0 t$="|
000174d0  54 68 65 20 63 6f 75 6e  74 65 72 20 69 73 20 74  |The counter is t|
000174e0  6f 20 79 6f 75 72 20 6c  65 66 74 20 61 6e 64 20  |o your left and |
000174f0  62 65 68 69 6e 64 20 69  74 20 69 73 20 74 68 65  |behind it is the|
00017500  20 62 75 74 63 68 65 72  2e 22 0d 67 34 61 e7 20  | butcher.".g4a. |
00017510  a7 69 24 2c 22 6d 65 61  74 22 29 3e 30 20 74 24  |.i$,"meat")>0 t$|
00017520  3d 22 54 68 65 20 6d 65  61 74 20 6c 6f 6f 6b 73  |="The meat looks|
00017530  20 72 61 74 68 65 72 20  64 69 72 74 79 2c 20 73  | rather dirty, s|
00017540  6d 65 6c 6c 73 20 74 65  72 72 69 62 6c 65 20 61  |mells terrible a|
00017550  6e 64 20 69 73 20 64 72  69 70 70 69 6e 67 20 77  |nd is dripping w|
00017560  69 74 68 20 62 6c 6f 6f  64 2e 22 0d 67 3e 32 e7  |ith blood.".g>2.|
00017570  20 a7 69 24 2c 22 62 6c  6f 6f 64 22 29 3e 30 20  | .i$,"blood")>0 |
00017580  74 24 3d 22 49 74 27 73  20 72 65 64 2c 20 6c 69  |t$="It's red, li|
00017590  71 75 69 64 79 20 73 74  75 66 66 2e 22 0d 67 48  |quidy stuff.".gH|
000175a0  69 e7 20 a7 69 24 2c 22  63 6c 6f 74 68 65 73 22  |i. .i$,"clothes"|
000175b0  29 3e 30 20 74 24 3d 22  54 68 65 20 62 75 74 63  |)>0 t$="The butc|
000175c0  68 65 72 27 73 20 63 6c  6f 74 68 65 73 20 61 72  |her's clothes ar|
000175d0  65 20 67 72 69 6d 79 20  61 6e 64 20 68 61 76 65  |e grimy and have|
000175e0  20 67 6c 6f 62 75 6c 65  73 20 6f 66 20 62 6c 6f  | globules of blo|
000175f0  6f 64 20 72 75 6e 6e 69  6e 67 20 64 6f 77 6e 20  |od running down |
00017600  74 68 65 6d 2e 22 0d 67  52 05 cd 0d 67 5c 57 e7  |them.".gR...g\W.|
00017610  20 72 6f 6f 6d 6e 6f 25  3d 33 32 20 80 20 a7 69  | roomno%=32 . .i|
00017620  24 2c 22 77 61 6c 6c 22  29 3e 30 20 74 24 3d 22  |$,"wall")>0 t$="|
00017630  54 68 65 20 77 61 6c 6c  20 69 73 20 71 75 69 74  |The wall is quit|
00017640  65 20 6c 61 72 67 65 20  61 6e 64 20 69 73 20 73  |e large and is s|
00017650  6f 72 74 20 6f 66 2e 2e  2e 20 62 72 69 63 6b 79  |ort of... bricky|
00017660  2e 22 0d 67 66 57 e7 20  72 6f 6f 6d 6e 6f 25 3d  |.".gfW. roomno%=|
00017670  33 33 20 80 20 a7 69 24  2c 22 77 61 6c 6c 22 29  |33 . .i$,"wall")|
00017680  3e 30 20 74 24 3d 22 54  68 65 20 77 61 6c 6c 20  |>0 t$="The wall |
00017690  69 73 20 71 75 69 74 65  20 6c 61 72 67 65 20 61  |is quite large a|
000176a0  6e 64 20 69 73 20 73 6f  72 74 20 6f 66 2e 2e 2e  |nd is sort of...|
000176b0  20 62 72 69 63 6b 79 2e  22 0d 67 70 12 e7 20 72  | bricky.".gp.. r|
000176c0  6f 6f 6d 6e 6f 25 3d 33  34 20 8c 0d 67 7a 63 e7  |oomno%=34 ..gzc.|
000176d0  20 a7 69 24 2c 22 67 61  72 64 65 6e 22 29 3e 30  | .i$,"garden")>0|
000176e0  20 74 24 3d 22 54 68 65  20 67 61 72 64 65 6e 20  | t$="The garden |
000176f0  69 73 20 61 20 66 65 61  73 74 20 66 6f 72 20 74  |is a feast for t|
00017700  68 65 20 65 79 65 73 20  61 6e 64 20 6f 62 76 69  |he eyes and obvi|
00017710  6f 75 73 6c 79 20 76 65  72 79 20 77 65 6c 6c 20  |ously very well |
00017720  6c 6f 6f 6b 65 64 20 61  66 74 65 72 2e 22 0d 67  |looked after.".g|
00017730  84 71 e7 20 a7 69 24 2c  22 70 6f 6e 64 22 29 3e  |.q. .i$,"pond")>|
00017740  30 20 74 24 3d 22 54 68  65 20 70 6f 6e 64 20 73  |0 t$="The pond s|
00017750  68 69 6d 6d 65 72 73 20  67 65 6e 74 6c 79 20 61  |himmers gently a|
00017760  73 20 69 74 20 72 65 66  6c 65 63 74 73 20 74 68  |s it reflects th|
00017770  65 20 74 69 72 65 64 20  53 75 6e 27 73 20 72 61  |e tired Sun's ra|
00017780  79 73 2e 20 49 74 20 6d  61 6b 65 73 20 79 6f 75  |ys. It makes you|
00017790  20 66 65 65 6c 20 72 65  6c 61 78 65 64 2e 22 0d  | feel relaxed.".|
000177a0  67 8e 05 cd 0d 67 98 12  e7 20 72 6f 6f 6d 6e 6f  |g....g... roomno|
000177b0  25 3d 33 35 20 8c 0d 67  a2 63 e7 20 a7 69 24 2c  |%=35 ..g.c. .i$,|
000177c0  22 67 61 72 64 65 6e 22  29 3e 30 20 74 24 3d 22  |"garden")>0 t$="|
000177d0  54 68 65 20 67 61 72 64  65 6e 20 69 73 20 61 20  |The garden is a |
000177e0  66 65 61 73 74 20 66 6f  72 20 74 68 65 20 65 79  |feast for the ey|
000177f0  65 73 20 61 6e 64 20 6f  62 76 69 6f 75 73 6c 79  |es and obviously|
00017800  20 76 65 72 79 20 77 65  6c 6c 20 6c 6f 6f 6b 65  | very well looke|
00017810  64 20 61 66 74 65 72 2e  22 0d 67 ac a8 e7 20 a7  |d after.".g... .|
00017820  69 24 2c 22 66 6c 6f 77  65 72 22 29 3e 30 20 74  |i$,"flower")>0 t|
00017830  24 3d 22 59 6f 75 20 68  61 76 65 20 6e 65 76 65  |$="You have neve|
00017840  72 20 62 65 65 6e 20 67  6f 6f 64 20 61 74 20 67  |r been good at g|
00017850  61 72 64 65 6e 69 6e 67  20 61 6e 64 20 68 61 76  |ardening and hav|
00017860  65 20 6e 6f 20 69 64 65  61 20 77 68 61 74 20 74  |e no idea what t|
00017870  79 70 65 20 6f 66 20 66  6c 6f 77 65 72 73 20 74  |ype of flowers t|
00017880  68 65 73 65 20 61 72 65  2c 20 79 65 74 20 74 68  |hese are, yet th|
00017890  65 79 20 61 72 65 20 76  65 72 79 20 70 72 65 74  |ey are very pret|
000178a0  74 79 20 61 6e 64 20 61  72 65 20 70 6c 61 6e 74  |ty and are plant|
000178b0  65 64 20 69 6e 20 6e 65  61 74 20 72 6f 77 73 2e  |ed in neat rows.|
000178c0  22 0d 67 b6 81 e7 20 a7  69 24 2c 22 62 65 64 22  |".g... .i$,"bed"|
000178d0  29 3e 30 20 74 24 3d 22  54 68 65 20 66 6c 6f 77  |)>0 t$="The flow|
000178e0  65 72 62 65 64 20 69 73  20 73 69 6d 70 6c 79 20  |erbed is simply |
000178f0  67 6f 72 67 65 6f 75 73  20 74 6f 20 6c 6f 6f 6b  |gorgeous to look|
00017900  20 61 74 2e 20 54 68 65  20 66 6c 6f 77 65 72 73  | at. The flowers|
00017910  20 72 61 64 69 61 74 65  20 62 65 61 75 74 79 20  | radiate beauty |
00017920  61 6e 64 20 61 72 65 20  6f 62 76 69 6f 75 73 6c  |and are obviousl|
00017930  79 20 77 65 6c 6c 20 63  61 72 65 64 20 66 6f 72  |y well cared for|
00017940  2e 22 0d 67 c0 05 cd 0d  67 ca 12 e7 20 72 6f 6f  |.".g....g... roo|
00017950  6d 6e 6f 25 3d 33 36 20  8c 0d 67 d4 59 e7 20 a7  |mno%=36 ..g.Y. .|
00017960  69 24 2c 22 70 61 74 68  22 29 3e 30 20 74 24 3d  |i$,"path")>0 t$=|
00017970  22 54 68 65 20 70 61 74  68 20 69 73 20 75 6e 65  |"The path is une|
00017980  76 65 6e 20 61 6e 64 20  6d 61 64 65 20 6f 66 20  |ven and made of |
00017990  73 6c 61 62 73 2e 20 49  74 20 72 75 6e 73 20 66  |slabs. It runs f|
000179a0  72 6f 6d 20 77 65 73 74  20 74 6f 20 65 61 73 74  |rom west to east|
000179b0  2e 22 0d 67 de 55 e7 20  a7 69 24 2c 22 73 6c 61  |.".g.U. .i$,"sla|
000179c0  62 22 29 3e 30 20 74 24  3d 22 54 68 65 20 73 6c  |b")>0 t$="The sl|
000179d0  61 62 73 20 61 72 65 20  67 72 65 79 20 61 6e 64  |abs are grey and|
000179e0  20 75 6e 69 6e 74 65 72  65 73 74 69 6e 67 2e 20  | uninteresting. |
000179f0  54 68 65 79 20 6d 61 6b  65 20 75 70 20 74 68 65  |They make up the|
00017a00  20 70 61 74 68 2e 22 0d  67 e8 05 cd 0d 67 f2 12  | path.".g....g..|
00017a10  e7 20 72 6f 6f 6d 6e 6f  25 3d 33 37 20 8c 0d 67  |. roomno%=37 ..g|
00017a20  fc 5f e7 20 a7 69 24 2c  22 76 69 63 61 72 22 29  |._. .i$,"vicar")|
00017a30  3e 30 20 74 24 3d 22 54  68 65 20 76 69 63 61 72  |>0 t$="The vicar|
00017a40  20 69 73 20 6f 6c 64 20  61 6e 64 20 66 72 61 69  | is old and frai|
00017a50  6c 20 61 6e 64 20 73 69  74 73 20 62 79 20 74 68  |l and sits by th|
00017a60  65 20 61 6c 74 61 72 2c  20 63 6f 6e 74 65 6d 70  |e altar, contemp|
00017a70  6c 61 74 69 6e 67 20 6c  69 66 65 2e 22 0d 68 06  |lating life.".h.|
00017a80  54 e7 20 a7 69 24 2c 22  61 6c 74 61 72 22 29 3e  |T. .i$,"altar")>|
00017a90  30 20 74 24 3d 22 54 68  65 20 61 6c 74 61 72 20  |0 t$="The altar |
00017aa0  69 73 20 6c 61 72 67 65  20 79 65 74 20 75 67 6c  |is large yet ugl|
00017ab0  79 2e 20 49 74 20 69 73  20 6d 61 64 65 20 6f 75  |y. It is made ou|
00017ac0  74 20 6f 66 20 63 6f 6c  64 20 73 74 6f 6e 65 2e  |t of cold stone.|
00017ad0  22 0d 68 10 61 e7 20 a7  69 24 2c 22 61 69 73 6c  |".h.a. .i$,"aisl|
00017ae0  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 61 69  |e")>0 t$="The ai|
00017af0  73 6c 65 20 72 75 6e 73  20 66 72 6f 6d 20 73 6f  |sle runs from so|
00017b00  75 74 68 20 74 6f 20 6e  6f 72 74 68 2c 20 66 69  |uth to north, fi|
00017b10  6e 69 73 68 69 6e 67 20  61 74 20 74 68 65 20 66  |nishing at the f|
00017b20  6f 6f 74 20 6f 66 20 74  68 65 20 61 6c 74 61 72  |oot of the altar|
00017b30  2e 22 0d 68 1a 4b e7 20  a7 69 24 2c 22 73 74 65  |.".h.K. .i$,"ste|
00017b40  70 22 29 3e 30 20 74 24  3d 22 54 68 65 20 73 74  |p")>0 t$="The st|
00017b50  65 70 73 20 61 72 65 20  77 6f 6f 64 65 6e 20 61  |eps are wooden a|
00017b60  6e 64 20 6c 65 61 64 20  75 70 20 74 6f 20 74 68  |nd lead up to th|
00017b70  65 20 62 65 6c 6c 20 72  6f 6f 6d 2e 22 0d 68 24  |e bell room.".h$|
00017b80  68 e7 20 a7 69 24 2c 22  67 69 72 6c 22 29 3e 30  |h. .i$,"girl")>0|
00017b90  20 80 20 63 72 69 65 72  25 3d 31 20 74 24 3d 22  | . crier%=1 t$="|
00017ba0  54 68 65 20 67 69 72 6c  20 62 6c 6f 63 6b 73 20  |The girl blocks |
00017bb0  79 6f 75 72 20 77 61 79  20 74 6f 20 74 68 65 20  |your way to the |
00017bc0  65 61 73 74 20 61 6e 64  20 73 68 65 20 6c 6f 6f  |east and she loo|
00017bd0  6b 73 20 71 75 69 74 65  20 64 69 73 74 72 65 73  |ks quite distres|
00017be0  73 65 64 2e 22 0d 68 2e  3f e7 20 a7 69 24 2c 22  |sed.".h.?. .i$,"|
00017bf0  67 69 72 6c 22 29 3e 30  20 80 20 63 72 69 65 72  |girl")>0 . crier|
00017c00  25 3d 30 20 74 24 3d 22  54 68 65 20 67 69 72 6c  |%=0 t$="The girl|
00017c10  20 69 73 20 6e 6f 20 6c  6f 6e 67 65 72 20 68 65  | is no longer he|
00017c20  72 65 2e 22 0d 68 38 05  cd 0d 68 42 12 e7 20 72  |re.".h8...hB.. r|
00017c30  6f 6f 6d 6e 6f 25 3d 33  38 20 8c 0d 68 4c 3a e7  |oomno%=38 ..hL:.|
00017c40  20 a7 69 24 2c 22 67 72  61 73 73 22 29 3e 30 20  | .i$,"grass")>0 |
00017c50  74 24 3d 22 54 68 65 20  67 72 61 73 73 20 69 73  |t$="The grass is|
00017c60  20 6c 6f 6e 67 20 61 6e  64 20 6f 76 65 72 67 72  | long and overgr|
00017c70  6f 77 6e 2e 22 0d 68 56  4f e7 20 a7 69 24 2c 22  |own.".hVO. .i$,"|
00017c80  68 65 61 64 73 74 6f 6e  65 22 29 3e 30 20 74 24  |headstone")>0 t$|
00017c90  3d 22 54 68 65 20 68 65  61 64 73 74 6f 6e 65 73  |="The headstones|
00017ca0  20 61 72 65 20 77 65 6c  6c 20 63 61 6d 6f 75 66  | are well camouf|
00017cb0  6c 61 67 65 64 20 62 79  20 74 68 65 20 67 72 61  |laged by the gra|
00017cc0  73 73 2e 22 0d 68 60 42  e7 20 a7 69 24 2c 22 67  |ss.".h`B. .i$,"g|
00017cd0  72 61 76 65 79 61 72 64  22 29 3e 30 20 74 24 3d  |raveyard")>0 t$=|
00017ce0  22 54 68 65 20 67 72 61  76 65 79 61 72 64 20 69  |"The graveyard i|
00017cf0  73 20 6c 6f 6e 67 20 61  6e 64 20 6f 76 65 72 67  |s long and overg|
00017d00  72 6f 77 6e 2e 22 0d 68  6a 05 cd 0d 68 74 12 e7  |rown.".hj...ht..|
00017d10  20 72 6f 6f 6d 6e 6f 25  3d 33 39 20 8c 0d 68 7e  | roomno%=39 ..h~|
00017d20  3e e7 20 a7 69 24 2c 22  67 72 61 73 73 22 29 3e  |>. .i$,"grass")>|
00017d30  30 20 74 24 3d 22 54 68  65 20 67 72 61 73 73 20  |0 t$="The grass |
00017d40  69 73 20 73 68 6f 72 74  20 61 6e 64 20 77 65 6c  |is short and wel|
00017d50  6c 20 77 61 74 65 72 65  64 2e 22 0d 68 88 5d e7  |l watered.".h.].|
00017d60  20 a7 69 24 2c 22 67 61  72 64 65 6e 22 29 3e 30  | .i$,"garden")>0|
00017d70  20 74 24 3d 22 54 68 65  20 67 61 72 64 65 6e 20  | t$="The garden |
00017d80  69 73 20 77 65 6c 6c 20  6c 6f 6f 6b 65 64 20 61  |is well looked a|
00017d90  66 74 65 72 2c 20 62 75  74 20 69 6e 20 73 6f 6d  |fter, but in som|
00017da0  65 20 77 61 79 73 20 6c  6f 6f 6b 73 20 73 79 6e  |e ways looks syn|
00017db0  74 68 65 74 69 63 2e 22  0d 68 92 78 e7 20 a7 69  |thetic.".h.x. .i|
00017dc0  24 2c 22 66 6c 6f 77 65  72 22 29 3e 30 20 74 24  |$,"flower")>0 t$|
00017dd0  3d 22 54 68 65 20 66 6c  6f 77 65 72 73 20 61 72  |="The flowers ar|
00017de0  65 20 61 6c 73 6f 20 77  65 6c 6c 20 6c 6f 6f 6b  |e also well look|
00017df0  65 64 20 61 66 74 65 72  2c 20 62 75 74 20 6c 6f  |ed after, but lo|
00017e00  6f 6b 20 66 61 6c 73 65  20 69 6e 20 74 68 65 20  |ok false in the |
00017e10  6e 65 61 74 20 70 61 74  74 65 72 6e 73 20 74 68  |neat patterns th|
00017e20  61 74 20 74 68 65 79 20  61 72 65 20 69 6e 2e 22  |at they are in."|
00017e30  0d 68 9c 7b e7 20 a7 69  24 2c 22 77 69 6c 6c 6f  |.h.{. .i$,"willo|
00017e40  77 22 29 3e 30 20 84 20  a7 69 24 2c 22 74 72 65  |w")>0 . .i$,"tre|
00017e50  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 77 69  |e")>0 t$="The wi|
00017e60  6c 6c 6f 77 20 74 72 65  65 20 69 73 20 74 68 65  |llow tree is the|
00017e70  20 6e 69 63 65 73 74 20  70 61 72 74 20 6f 66 20  | nicest part of |
00017e80  74 68 65 20 67 61 72 64  65 6e 2e 20 49 74 20 62  |the garden. It b|
00017e90  6c 6f 77 73 20 67 65 6e  74 6c 79 20 69 6e 20 74  |lows gently in t|
00017ea0  68 65 20 62 72 65 65 7a  65 2e 22 0d 68 a6 32 e7  |he breeze.".h.2.|
00017eb0  20 a7 69 24 2c 22 70 61  74 68 22 29 3e 30 20 74  | .i$,"path")>0 t|
00017ec0  24 3d 22 54 68 65 20 70  61 74 68 20 6c 65 61 64  |$="The path lead|
00017ed0  73 20 65 61 73 74 77 61  72 64 73 2e 22 0d 68 b0  |s eastwards.".h.|
00017ee0  05 cd 0d 68 ba 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...h... roomno%=|
00017ef0  34 31 20 8c 0d 68 c4 57  e7 20 a7 69 24 2c 22 68  |41 ..h.W. .i$,"h|
00017f00  65 61 64 73 74 6f 6e 65  22 29 3e 30 20 74 24 3d  |eadstone")>0 t$=|
00017f10  22 54 68 65 20 68 65 61  64 73 74 6f 6e 65 20 69  |"The headstone i|
00017f20  73 20 63 6f 76 65 72 65  64 20 62 79 20 67 72 61  |s covered by gra|
00017f30  73 73 2c 20 62 75 74 20  63 6f 75 6c 64 20 62 65  |ss, but could be|
00017f40  20 72 65 61 64 61 62 6c  65 2e 22 0d 68 ce 3a e7  | readable.".h.:.|
00017f50  20 a7 69 24 2c 22 67 72  61 73 73 22 29 3e 30 20  | .i$,"grass")>0 |
00017f60  74 24 3d 22 54 68 65 20  67 72 61 73 73 20 69 73  |t$="The grass is|
00017f70  20 6c 6f 6e 67 20 61 6e  64 20 6f 76 65 72 67 72  | long and overgr|
00017f80  6f 77 6e 2e 22 0d 68 d8  42 e7 20 a7 69 24 2c 22  |own.".h.B. .i$,"|
00017f90  67 72 61 76 65 79 61 72  64 22 29 3e 30 20 74 24  |graveyard")>0 t$|
00017fa0  3d 22 54 68 65 20 67 72  61 76 65 79 61 72 64 20  |="The graveyard |
00017fb0  69 73 20 6c 6f 6e 67 20  61 6e 64 20 6f 76 65 72  |is long and over|
00017fc0  67 72 6f 77 6e 2e 22 0d  68 e2 05 cd 0d 68 ec 12  |grown.".h....h..|
00017fd0  e7 20 72 6f 6f 6d 6e 6f  25 3d 34 39 20 8c 0d 68  |. roomno%=49 ..h|
00017fe0  f6 3a e7 20 a7 69 24 2c  22 74 61 62 6c 65 22 29  |.:. .i$,"table")|
00017ff0  3e 30 20 74 24 3d 22 54  68 65 20 74 61 62 6c 65  |>0 t$="The table|
00018000  73 20 61 72 65 20 77 6f  6f 64 65 6e 20 61 6e 64  |s are wooden and|
00018010  20 62 75 6c 6b 79 2e 22  0d 69 00 53 e7 20 a7 69  | bulky.".i.S. .i|
00018020  24 2c 22 63 68 61 69 72  22 29 3e 30 20 74 24 3d  |$,"chair")>0 t$=|
00018030  22 54 68 65 20 63 68 61  69 72 73 20 61 72 65 20  |"The chairs are |
00018040  6c 79 69 6e 67 20 61 6c  6c 20 6f 76 65 72 20 74  |lying all over t|
00018050  68 65 20 70 6c 61 63 65  2e 20 54 68 65 79 20 61  |he place. They a|
00018060  72 65 20 77 6f 6f 64 65  6e 2e 22 0d 69 0a 52 e7  |re wooden.".i.R.|
00018070  20 a7 69 24 2c 22 67 6c  61 73 73 22 29 3e 30 20  | .i$,"glass")>0 |
00018080  74 24 3d 22 54 68 65 20  77 69 6e 65 20 67 6c 61  |t$="The wine gla|
00018090  73 73 65 73 20 61 72 65  20 6c 61 69 64 20 63 61  |sses are laid ca|
000180a0  72 65 6c 65 73 73 6c 79  20 61 6c 6c 20 6f 76 65  |relessly all ove|
000180b0  72 20 74 68 65 20 70 6c  61 63 65 2e 22 0d 69 14  |r the place.".i.|
000180c0  05 cd 0d 69 1e 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...i... roomno%=|
000180d0  35 30 20 8c 0d 69 28 5d  e7 20 a7 69 24 2c 22 70  |50 ..i(]. .i$,"p|
000180e0  65 6f 70 6c 65 22 29 3e  30 20 74 24 3d 22 54 68  |eople")>0 t$="Th|
000180f0  65 20 70 65 6f 70 6c 65  20 61 72 65 20 74 6f 74  |e people are tot|
00018100  61 6c 6c 79 20 64 72 75  6e 6b 20 61 6e 64 20 61  |ally drunk and a|
00018110  72 65 20 64 61 6e 63 69  6e 67 20 61 62 6f 75 74  |re dancing about|
00018120  20 74 72 79 69 6e 67 20  74 6f 20 73 69 6e 67 2e  | trying to sing.|
00018130  22 0d 69 32 67 e7 20 a7  69 24 2c 22 74 61 62 6c  |".i2g. .i$,"tabl|
00018140  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 73 6e  |e")>0 t$="The sn|
00018150  6f 6f 6b 65 72 20 74 61  62 6c 65 20 69 73 20 6c  |ooker table is l|
00018160  61 72 67 65 20 61 6e 64  20 68 61 73 20 67 72 65  |arge and has gre|
00018170  65 6e 20 66 65 6c 74 20  6f 6e 20 69 74 2e 20 49  |en felt on it. I|
00018180  74 20 68 61 73 20 6e 6f  20 62 61 6c 6c 73 20 6f  |t has no balls o|
00018190  72 20 63 75 65 73 2e 22  0d 69 3c 4d e7 20 a7 69  |r cues.".i<M. .i|
000181a0  24 2c 22 66 65 6c 74 22  29 3e 30 20 74 24 3d 22  |$,"felt")>0 t$="|
000181b0  54 68 65 20 66 65 6c 74  20 69 73 20 67 72 65 65  |The felt is gree|
000181c0  6e 20 61 6e 64 20 69 73  20 73 74 75 63 6b 20 74  |n and is stuck t|
000181d0  6f 20 74 68 65 20 73 6e  6f 6f 6b 65 72 20 74 61  |o the snooker ta|
000181e0  62 6c 65 2e 22 0d 69 46  05 cd 0d 69 50 12 e7 20  |ble.".iF...iP.. |
000181f0  72 6f 6f 6d 6e 6f 25 3d  35 32 20 8c 0d 69 5a 42  |roomno%=52 ..iZB|
00018200  e7 20 a7 69 24 2c 22 62  61 72 22 29 3e 30 20 74  |. .i$,"bar")>0 t|
00018210  24 3d 22 54 68 65 20 62  61 72 20 69 73 20 6c 6f  |$="The bar is lo|
00018220  6e 67 20 61 6e 64 20 63  6f 6e 74 69 6e 75 65 73  |ng and continues|
00018230  20 74 6f 20 74 68 65 20  77 65 73 74 2e 22 0d 69  | to the west.".i|
00018240  64 3c e7 20 a7 69 24 2c  22 6d 61 6e 22 29 3e 30  |d<. .i$,"man")>0|
00018250  20 74 24 3d 22 54 68 65  20 6d 61 6e 20 69 73 20  | t$="The man is |
00018260  74 61 6c 6c 20 61 6e 64  20 77 65 61 72 73 20 61  |tall and wears a|
00018270  20 75 6e 69 66 6f 72 6d  2e 22 0d 69 6e 45 e7 20  | uniform.".inE. |
00018280  a7 69 24 2c 22 75 6e 69  66 6f 72 6d 22 29 3e 30  |.i$,"uniform")>0|
00018290  20 74 24 3d 22 54 68 65  20 75 6e 69 66 6f 72 6d  | t$="The uniform|
000182a0  20 69 73 20 61 20 62 6f  77 2d 74 69 65 20 61 6e  | is a bow-tie an|
000182b0  64 20 77 68 69 74 65 20  73 68 69 72 74 2e 22 0d  |d white shirt.".|
000182c0  69 78 3b e7 20 a7 69 24  2c 22 62 6f 74 74 6c 65  |ix;. .i$,"bottle|
000182d0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 6f 74  |")>0 t$="The bot|
000182e0  74 6c 65 73 20 6c 69 6e  65 20 74 68 65 20 6e 6f  |tles line the no|
000182f0  72 74 68 20 77 61 6c 6c  2e 22 0d 69 82 5a e7 20  |rth wall.".i.Z. |
00018300  a7 69 24 2c 22 67 6c 61  73 73 22 29 3e 30 20 74  |.i$,"glass")>0 t|
00018310  24 3d 22 54 68 65 20 67  6c 61 73 73 65 73 20 61  |$="The glasses a|
00018320  72 65 20 6a 75 73 74 20  62 65 6c 6f 77 20 74 68  |re just below th|
00018330  65 20 62 6f 74 74 6c 65  73 20 61 6e 64 20 73 68  |e bottles and sh|
00018340  69 6d 6d 65 72 20 69 6e  20 74 68 65 20 6c 69 67  |immer in the lig|
00018350  68 74 2e 22 0d 69 8c 05  cd 0d 69 96 12 e7 20 72  |ht.".i....i... r|
00018360  6f 6f 6d 6e 6f 25 3d 36  30 20 8c 0d 69 a0 5f e7  |oomno%=60 ..i._.|
00018370  20 a7 69 24 2c 22 64 69  73 70 6c 61 79 22 29 3e  | .i$,"display")>|
00018380  30 20 74 24 3d 22 54 68  65 20 64 69 73 70 6c 61  |0 t$="The displa|
00018390  79 20 69 73 20 6c 61 72  67 65 20 61 6e 64 20 6d  |y is large and m|
000183a0  61 64 65 20 6f 66 20 67  6c 61 73 73 2e 20 49 74  |ade of glass. It|
000183b0  20 69 73 20 64 69 73 70  6c 61 79 69 6e 67 20 73  | is displaying s|
000183c0  6f 6d 65 20 6b 65 79 73  2e 22 0d 69 aa 48 e7 20  |ome keys.".i.H. |
000183d0  a7 69 24 2c 22 6b 65 79  22 29 3e 30 20 74 24 3d  |.i$,"key")>0 t$=|
000183e0  22 54 68 65 20 6b 65 79  73 20 72 61 6e 67 65 20  |"The keys range |
000183f0  66 72 6f 6d 20 74 68 65  20 62 6f 72 69 6e 67 20  |from the boring |
00018400  74 6f 20 74 68 65 20 65  6c 61 62 6f 72 61 74 65  |to the elaborate|
00018410  2e 22 0d 69 b4 45 e7 20  a7 69 24 2c 22 6a 65 77  |.".i.E. .i$,"jew|
00018420  65 6c 22 29 3e 30 20 74  24 3d 22 54 68 65 20 6a  |el")>0 t$="The j|
00018430  65 77 65 6c 73 20 67 6c  69 73 74 65 6e 20 62 65  |ewels glisten be|
00018440  61 75 74 69 66 75 6c 6c  79 20 6f 6e 20 74 68 65  |autifully on the|
00018450  20 6b 65 79 73 2e 22 0d  69 be 05 cd 0d 69 c8 12  | keys.".i....i..|
00018460  e7 20 72 6f 6f 6d 6e 6f  25 3d 36 32 20 8c 0d 69  |. roomno%=62 ..i|
00018470  d2 4d e7 20 a7 69 24 2c  22 66 6f 75 6e 74 61 69  |.M. .i$,"fountai|
00018480  6e 22 29 3e 30 20 74 24  3d 22 54 68 65 20 66 6f  |n")>0 t$="The fo|
00018490  75 6e 74 61 69 6e 20 69  73 20 73 6d 61 6c 6c 2c  |untain is small,|
000184a0  20 79 65 74 20 70 72 65  74 74 79 20 69 6e 20 61  | yet pretty in a|
000184b0  70 70 65 61 72 61 6e 63  65 2e 22 0d 69 dc 37 e7  |ppearance.".i.7.|
000184c0  20 a7 69 24 2c 22 77 61  74 65 72 22 29 3e 30 20  | .i$,"water")>0 |
000184d0  74 24 3d 22 54 68 65 20  77 61 74 65 72 20 69 73  |t$="The water is|
000184e0  20 77 65 74 20 61 6e 64  20 6c 69 71 75 69 64 79  | wet and liquidy|
000184f0  2e 22 0d 69 e6 05 cd 0d  69 f0 12 e7 20 72 6f 6f  |.".i....i... roo|
00018500  6d 6e 6f 25 3d 36 34 20  8c 0d 69 fa 42 e7 20 a7  |mno%=64 ..i.B. .|
00018510  69 24 2c 22 62 61 72 22  29 3e 30 20 74 24 3d 22  |i$,"bar")>0 t$="|
00018520  54 68 65 20 62 61 72 20  69 73 20 6c 6f 6e 67 20  |The bar is long |
00018530  61 6e 64 20 63 6f 6e 74  69 6e 75 65 73 20 74 6f  |and continues to|
00018540  20 74 68 65 20 65 61 73  74 2e 22 0d 6a 04 69 e7  | the east.".j.i.|
00018550  20 a7 69 24 2c 22 77 6f  6d 61 6e 22 29 3e 30 20  | .i$,"woman")>0 |
00018560  84 20 a7 69 24 2c 22 62  61 72 6d 61 69 64 22 29  |. .i$,"barmaid")|
00018570  3e 30 20 74 24 3d 22 54  68 65 20 62 61 72 2d 6d  |>0 t$="The bar-m|
00018580  61 69 64 20 69 73 20 73  74 61 6e 64 69 6e 67 20  |aid is standing |
00018590  62 65 68 69 6e 64 20 74  68 65 20 62 61 72 2e 20  |behind the bar. |
000185a0  53 68 65 20 69 73 20 76  65 72 79 20 70 72 65 74  |She is very pret|
000185b0  74 79 2e 22 0d 6a 0e 3b  e7 20 a7 69 24 2c 22 62  |ty.".j.;. .i$,"b|
000185c0  6f 74 74 6c 65 22 29 3e  30 20 74 24 3d 22 54 68  |ottle")>0 t$="Th|
000185d0  65 20 62 6f 74 74 6c 65  73 20 6c 69 6e 65 20 74  |e bottles line t|
000185e0  68 65 20 6e 6f 72 74 68  20 77 61 6c 6c 2e 22 0d  |he north wall.".|
000185f0  6a 18 5a e7 20 a7 69 24  2c 22 67 6c 61 73 73 22  |j.Z. .i$,"glass"|
00018600  29 3e 30 20 74 24 3d 22  54 68 65 20 67 6c 61 73  |)>0 t$="The glas|
00018610  73 65 73 20 61 72 65 20  6a 75 73 74 20 62 65 6c  |ses are just bel|
00018620  6f 77 20 74 68 65 20 62  6f 74 74 6c 65 73 20 61  |ow the bottles a|
00018630  6e 64 20 73 68 69 6d 6d  65 72 20 69 6e 20 74 68  |nd shimmer in th|
00018640  65 20 6c 69 67 68 74 2e  22 0d 6a 22 05 cd 0d 6a  |e light.".j"...j|
00018650  2c 12 e7 20 72 6f 6f 6d  6e 6f 25 3d 36 35 20 8c  |,.. roomno%=65 .|
00018660  0d 6a 36 3f e7 20 a7 69  24 2c 22 62 61 72 72 65  |.j6?. .i$,"barre|
00018670  6c 22 29 3e 30 20 74 24  3d 22 54 68 65 20 62 61  |l")>0 t$="The ba|
00018680  72 72 65 6c 73 20 61 72  65 20 6c 61 72 67 65 20  |rrels are large |
00018690  61 6e 64 20 6f 62 74 72  75 73 69 76 65 2e 22 0d  |and obtrusive.".|
000186a0  6a 40 05 cd 0d 6a 4a 12  e7 20 72 6f 6f 6d 6e 6f  |j@...jJ.. roomno|
000186b0  25 3d 36 39 20 8c 0d 6a  54 47 e7 20 a7 69 24 2c  |%=69 ..jTG. .i$,|
000186c0  22 63 6f 75 6e 74 65 72  22 29 3e 30 20 74 24 3d  |"counter")>0 t$=|
000186d0  22 54 68 65 20 63 6f 75  6e 74 65 72 20 69 73 20  |"The counter is |
000186e0  6c 6f 6e 67 20 61 6e 64  20 69 73 20 69 6e 20 66  |long and is in f|
000186f0  72 6f 6e 74 20 6f 66 20  79 6f 75 2e 22 0d 6a 5e  |ront of you.".j^|
00018700  4a e7 20 a7 69 24 2c 22  6d 61 6e 22 29 3e 30 20  |J. .i$,"man")>0 |
00018710  84 20 a7 69 24 2c 22 6b  65 79 6d 61 6b 65 72 22  |. .i$,"keymaker"|
00018720  29 3e 30 20 74 24 3d 22  54 68 65 20 6b 65 79 6d  |)>0 t$="The keym|
00018730  61 6b 65 72 20 69 73 20  6f 6c 64 20 61 6e 64 20  |aker is old and |
00018740  66 72 61 69 6c 2e 22 0d  6a 68 62 e7 20 a7 69 24  |frail.".jhb. .i$|
00018750  2c 22 73 70 65 63 74 61  63 6c 65 22 29 3e 30 20  |,"spectacle")>0 |
00018760  74 24 3d 22 54 68 65 20  73 70 65 63 74 61 63 6c  |t$="The spectacl|
00018770  65 73 20 61 72 65 20 67  6f 6c 64 2d 72 69 6d 6d  |es are gold-rimm|
00018780  65 64 2e 20 54 68 65 79  20 61 72 65 20 6f 6e 20  |ed. They are on |
00018790  74 68 65 20 66 61 63 65  20 6f 66 20 74 68 65 20  |the face of the |
000187a0  6b 65 79 6d 61 6b 65 72  22 0d 6a 72 3f e7 20 a7  |keymaker".jr?. .|
000187b0  69 24 2c 22 73 69 67 6e  22 29 3e 30 20 74 24 3d  |i$,"sign")>0 t$=|
000187c0  22 54 68 65 20 73 69 67  6e 20 68 61 73 20 73 6f  |"The sign has so|
000187d0  6d 65 20 63 75 72 6c 79  20 77 72 69 74 69 6e 67  |me curly writing|
000187e0  20 6f 6e 20 69 74 2e 22  0d 6a 7c 05 cd 0d 6a 86  | on it.".j|...j.|
000187f0  12 e7 20 72 6f 6f 6d 6e  6f 25 3d 37 30 20 8c 0d  |.. roomno%=70 ..|
00018800  6a 90 48 e7 20 a7 69 24  2c 22 73 69 67 6e 22 29  |j.H. .i$,"sign")|
00018810  3e 30 20 74 24 3d 22 54  68 65 20 73 69 67 6e 20  |>0 t$="The sign |
00018820  69 73 20 68 69 67 68 20  75 70 20 61 6e 64 20 68  |is high up and h|
00018830  61 73 20 73 6f 6d 65 20  77 72 69 74 69 6e 67 20  |as some writing |
00018840  6f 6e 20 69 74 2e 22 0d  6a 9a 05 cd 0d 6a a4 13  |on it.".j....j..|
00018850  e7 20 72 6f 6f 6d 6e 6f  25 3d 32 32 30 20 8c 0d  |. roomno%=220 ..|
00018860  6a ae 56 e7 20 a7 69 24  2c 22 63 6c 6f 75 64 22  |j.V. .i$,"cloud"|
00018870  29 3e 30 20 74 24 3d 22  54 68 65 20 63 6c 6f 75  |)>0 t$="The clou|
00018880  64 73 20 61 72 65 20 77  68 69 72 6c 69 6e 67 20  |ds are whirling |
00018890  61 72 6f 75 6e 64 20 79  6f 75 2e 20 54 68 65 79  |around you. They|
000188a0  20 61 72 65 20 6d 75 6c  74 69 2d 63 6f 6c 6f 75  | are multi-colou|
000188b0  72 65 64 2e 22 0d 6a b8  36 e7 20 a7 69 24 2c 22  |red.".j.6. .i$,"|
000188c0  73 6d 6f 6b 65 22 29 3e  30 20 74 24 3d 22 54 68  |smoke")>0 t$="Th|
000188d0  65 20 73 6d 6f 6b 65 20  77 68 69 72 6c 73 20 61  |e smoke whirls a|
000188e0  72 6f 75 6e 64 20 79 6f  75 2e 22 0d 6a c2 05 cd  |round you.".j...|
000188f0  0d 6a cc 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 37 32  |.j... roomno%=72|
00018900  20 8c 0d 6a d6 46 e7 20  a7 69 24 2c 22 6d 61 6e  | ..j.F. .i$,"man|
00018910  22 29 3e 30 20 84 20 a7  69 24 2c 22 77 69 7a 61  |")>0 . .i$,"wiza|
00018920  72 64 22 29 3e 30 20 74  24 3d 22 54 68 65 20 77  |rd")>0 t$="The w|
00018930  69 7a 61 72 64 20 69 73  20 6f 6c 64 20 61 6e 64  |izard is old and|
00018940  20 66 72 61 69 6c 2e 22  0d 6a e0 53 e7 20 a7 69  | frail.".j.S. .i|
00018950  24 2c 22 62 65 61 72 64  22 29 3e 30 20 74 24 3d  |$,"beard")>0 t$=|
00018960  22 54 68 65 20 62 65 61  72 64 20 69 73 20 77 68  |"The beard is wh|
00018970  69 74 65 20 61 6e 64 20  74 61 74 74 79 2c 20 69  |ite and tatty, i|
00018980  74 20 69 73 20 6f 6e 20  74 68 65 20 77 69 7a 61  |t is on the wiza|
00018990  72 64 27 73 20 66 61 63  65 2e 22 0d 6a ea 41 e7  |rd's face.".j.A.|
000189a0  20 a7 69 24 2c 22 63 61  70 65 22 29 3e 30 20 74  | .i$,"cape")>0 t|
000189b0  24 3d 22 54 68 65 20 63  61 70 65 20 68 61 73 20  |$="The cape has |
000189c0  73 6f 6d 65 20 6d 6f 6f  6e 73 20 61 6e 64 20 73  |some moons and s|
000189d0  74 61 72 73 20 6f 6e 20  69 74 2e 22 0d 6a f4 05  |tars on it.".j..|
000189e0  cd 0d 6a fe 12 e7 20 72  6f 6f 6d 6e 6f 25 3d 37  |..j... roomno%=7|
000189f0  33 20 8c 0d 6b 08 38 e7  20 a7 69 24 2c 22 62 6f  |3 ..k.8. .i$,"bo|
00018a00  74 74 6c 65 22 29 3e 30  20 74 24 3d 22 54 68 65  |ttle")>0 t$="The|
00018a10  20 62 6f 74 74 6c 65 73  20 61 72 65 20 6a 75 73  | bottles are jus|
00018a20  74 20 62 6f 74 74 6c 65  73 2e 22 0d 6b 12 3d e7  |t bottles.".k.=.|
00018a30  20 a7 69 24 2c 22 70 6f  77 64 65 72 22 29 3e 30  | .i$,"powder")>0|
00018a40  20 74 24 3d 22 54 68 65  20 70 6f 77 64 65 72 73  | t$="The powders|
00018a50  20 61 72 65 20 64 69 66  66 65 72 65 6e 74 20 63  | are different c|
00018a60  6f 6c 6f 75 72 73 2e 22  0d 6b 1c 6a e7 20 a7 69  |olours.".k.j. .i|
00018a70  24 2c 22 61 6c 63 68 65  6d 69 73 74 22 29 3e 30  |$,"alchemist")>0|
00018a80  20 84 20 a7 69 24 2c 22  6d 61 6e 22 29 3e 30 20  | . .i$,"man")>0 |
00018a90  74 24 3d 22 54 68 65 20  61 6c 63 68 65 6d 69 73  |t$="The alchemis|
00018aa0  74 20 69 73 20 79 6f 75  6e 67 2e 20 48 65 20 69  |t is young. He i|
00018ab0  73 20 73 68 61 6b 69 6e  67 20 61 20 62 6f 74 74  |s shaking a bott|
00018ac0  6c 65 20 61 74 20 74 68  65 20 6d 6f 6d 65 6e 74  |le at the moment|
00018ad0  2e 22 0d 6b 26 05 cd 0d  6b 30 12 e7 20 72 6f 6f  |.".k&...k0.. roo|
00018ae0  6d 6e 6f 25 3d 37 35 20  8c 0d 6b 3a 43 e7 20 a7  |mno%=75 ..k:C. .|
00018af0  69 24 2c 22 6a 75 6e 6b  22 29 3e 30 20 74 24 3d  |i$,"junk")>0 t$=|
00018b00  22 54 68 65 20 6a 75 6e  6b 20 69 73 20 6a 75 73  |"The junk is jus|
00018b10  74 20 6a 75 6e 6b 20 2d  20 6e 6f 74 68 69 6e 67  |t junk - nothing|
00018b20  20 69 6d 70 6f 72 74 61  6e 74 2e 22 0d 6b 44 05  | important.".kD.|
00018b30  cd 0d 6b 4e 12 e7 20 72  6f 6f 6d 6e 6f 25 3d 37  |..kN.. roomno%=7|
00018b40  36 20 8c 0d 6b 58 54 e7  20 a7 69 24 2c 22 74 72  |6 ..kXT. .i$,"tr|
00018b50  61 6d 70 22 29 3e 30 20  84 20 a7 69 24 2c 22 6d  |amp")>0 . .i$,"m|
00018b60  61 6e 22 29 3e 30 20 74  24 3d 22 54 68 65 20 74  |an")>0 t$="The t|
00018b70  72 61 6d 70 20 69 73 20  6f 6c 64 20 61 6e 64 20  |ramp is old and |
00018b80  74 68 69 6e 2c 20 68 65  20 6c 6f 6f 6b 73 20 68  |thin, he looks h|
00018b90  75 6e 67 72 79 2e 22 0d  6b 62 55 e7 20 a7 69 24  |ungry.".kbU. .i$|
00018ba0  2c 22 62 6f 78 22 29 3e  30 20 74 24 3d 22 54 68  |,"box")>0 t$="Th|
00018bb0  65 20 63 61 72 64 62 6f  61 72 64 20 62 6f 78 20  |e cardboard box |
00018bc0  68 61 73 20 6d 61 6e 79  20 72 69 70 73 20 61 6e  |has many rips an|
00018bd0  64 20 69 74 20 69 73 20  68 6f 6d 65 20 66 6f 72  |d it is home for|
00018be0  20 74 68 65 20 74 72 61  6d 70 2e 22 0d 6b 6c 05  | the tramp.".kl.|
00018bf0  cd 0d 6b 76 12 e7 20 72  6f 6f 6d 6e 6f 25 3d 37  |..kv.. roomno%=7|
00018c00  38 20 8c 0d 6b 80 0f e7  20 66 69 72 65 25 3d 30  |8 ..k... fire%=0|
00018c10  20 8c 0d 6b 8a 4f e7 20  a7 69 24 2c 22 63 68 61  | ..k.O. .i$,"cha|
00018c20  72 22 29 3e 30 20 84 20  a7 69 24 2c 22 72 65 6d  |r")>0 . .i$,"rem|
00018c30  61 69 6e 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ain")>0 t$="The |
00018c40  63 68 61 72 72 65 64 20  72 65 6d 61 69 6e 73 20  |charred remains |
00018c50  61 72 65 20 62 6c 61 63  6b 20 61 73 68 65 73 2e  |are black ashes.|
00018c60  22 0d 6b 94 05 cd 0d 6b  9e 0f e7 20 66 69 72 65  |".k....k... fire|
00018c70  25 3e 30 20 8c 0d 6b a8  52 e7 20 a7 69 24 2c 22  |%>0 ..k.R. .i$,"|
00018c80  62 6f 79 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |boy")>0 t$="The |
00018c90  79 6f 75 6e 67 20 62 6f  79 20 69 73 20 63 6f 6e  |young boy is con|
00018ca0  63 65 6e 74 72 61 74 69  6e 67 20 6f 6e 20 62 75  |centrating on bu|
00018cb0  69 6c 64 69 6e 67 20 75  70 20 68 69 73 20 62 6f  |ilding up his bo|
00018cc0  6e 66 69 72 65 2e 22 0d  6b b2 48 e7 20 a7 69 24  |nfire.".k.H. .i$|
00018cd0  2c 22 66 69 72 65 22 29  3e 30 20 74 24 3d 22 54  |,"fire")>0 t$="T|
00018ce0  68 65 20 62 6f 6e 66 69  72 65 20 69 73 20 71 75  |he bonfire is qu|
00018cf0  69 74 65 20 6c 61 72 67  65 20 61 6e 64 20 69 73  |ite large and is|
00018d00  20 62 75 72 6e 69 6e 67  20 77 65 6c 6c 2e 22 0d  | burning well.".|
00018d10  6b bc 3b e7 20 a7 69 24  2c 22 66 6c 61 6d 65 22  |k.;. .i$,"flame"|
00018d20  29 3e 30 20 74 24 3d 22  54 68 65 20 66 6c 61 6d  |)>0 t$="The flam|
00018d30  65 73 20 61 72 65 20 69  6d 70 72 65 73 73 69 76  |es are impressiv|
00018d40  65 6c 79 20 68 69 67 68  2e 22 0d 6b c6 05 cd 0d  |ely high.".k....|
00018d50  6b d0 05 cd 0d 6b da 12  e7 20 72 6f 6f 6d 6e 6f  |k....k... roomno|
00018d60  25 3d 38 31 20 8c 0d 6b  e4 41 e7 20 a7 69 24 2c  |%=81 ..k.A. .i$,|
00018d70  22 67 69 72 6c 22 29 3e  30 20 74 24 3d 22 54 68  |"girl")>0 t$="Th|
00018d80  65 20 67 69 72 6c 73 20  61 72 65 20 61 6c 6c 20  |e girls are all |
00018d90  64 61 6e 63 69 6e 67 20  61 74 20 74 68 65 20 6d  |dancing at the m|
00018da0  6f 6d 65 6e 74 2e 22 0d  6b ee 36 e7 20 a7 69 24  |oment.".k.6. .i$|
00018db0  2c 22 62 61 72 22 29 3e  30 20 74 24 3d 22 54 68  |,"bar")>0 t$="Th|
00018dc0  65 20 77 6f 6f 64 65 6e  20 62 61 72 73 20 6c 69  |e wooden bars li|
00018dd0  6e 65 20 74 68 65 20 77  61 6c 6c 2e 22 0d 6b f8  |ne the wall.".k.|
00018de0  05 cd 0d 6c 02 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...l... roomno%=|
00018df0  38 32 20 8c 0d 6c 0c 37  e7 20 a7 69 24 2c 22 64  |82 ..l.7. .i$,"d|
00018e00  65 73 6b 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |esk")>0 t$="The |
00018e10  77 6f 6f 64 65 6e 20 64  65 73 6b 20 69 73 20 76  |wooden desk is v|
00018e20  65 72 79 20 62 75 6c 6b  79 2e 22 0d 6c 16 47 e7  |ery bulky.".l.G.|
00018e30  20 a7 69 24 2c 22 77 6f  6d 61 6e 22 29 3e 30 20  | .i$,"woman")>0 |
00018e40  74 24 3d 22 54 68 65 20  77 6f 6d 61 6e 20 69 73  |t$="The woman is|
00018e50  20 71 75 69 74 65 20 6f  6c 64 20 61 6e 64 20 6c  | quite old and l|
00018e60  6f 6f 6b 73 20 76 65 72  79 20 62 69 74 63 68 79  |ooks very bitchy|
00018e70  2e 22 0d 6c 20 05 cd 0d  6c 2a 12 e7 20 72 6f 6f  |.".l ...l*.. roo|
00018e80  6d 6e 6f 25 3d 38 33 20  8c 0d 6c 34 51 e7 20 a7  |mno%=83 ..l4Q. .|
00018e90  69 24 2c 22 73 75 69 74  63 61 73 65 22 29 3e 30  |i$,"suitcase")>0|
00018ea0  20 74 24 3d 22 54 68 65  20 73 75 69 74 63 61 73  | t$="The suitcas|
00018eb0  65 20 69 73 20 6c 6f 6e  67 20 61 6e 64 20 74 68  |e is long and th|
00018ec0  69 6e 2e 20 49 74 20 69  73 20 22 3a c8 8e 20 73  |in. It is ":.. s|
00018ed0  75 69 74 63 61 73 65 25  20 ca 0d 6c 3e 19 20 20  |uitcase% ..l>.  |
00018ee0  c9 20 30 20 3a 20 74 24  2b 3d 22 63 6c 6f 73 65  |. 0 : t$+="close|
00018ef0  64 2e 22 0d 6c 48 17 20  20 c9 20 31 20 3a 20 74  |d.".lH.  . 1 : t|
00018f00  24 2b 3d 22 6f 70 65 6e  2e 22 0d 6c 52 05 cb 0d  |$+="open.".lR...|
00018f10  6c 5c 67 e7 20 a7 69 24  2c 22 77 69 6e 64 6f 77  |l\g. .i$,"window|
00018f20  22 29 3e 30 20 74 24 3d  22 54 68 65 20 77 69 6e  |")>0 t$="The win|
00018f30  64 6f 77 20 69 73 20 73  6d 61 6c 6c 20 61 6e 64  |dow is small and|
00018f40  20 6f 6c 64 2c 20 62 75  74 20 67 69 76 65 73 20  | old, but gives |
00018f50  65 6e 6f 75 67 68 20 6c  69 67 68 74 20 66 6f 72  |enough light for|
00018f60  20 79 6f 75 20 74 6f 20  73 65 65 20 70 72 6f 70  | you to see prop|
00018f70  65 72 6c 79 2e 22 0d 6c  66 05 cd 0d 6c 70 12 e7  |erly.".lf...lp..|
00018f80  20 72 6f 6f 6d 6e 6f 25  3d 38 34 20 8c 0d 6c 7a  | roomno%=84 ..lz|
00018f90  3e e7 20 a7 69 24 2c 22  74 69 6d 62 65 72 22 29  |>. .i$,"timber")|
00018fa0  3e 30 20 74 24 3d 22 54  68 65 20 74 69 6d 62 65  |>0 t$="The timbe|
00018fb0  72 20 6c 61 79 73 20 61  6c 6c 20 6f 76 65 72 20  |r lays all over |
00018fc0  74 68 65 20 66 6c 6f 6f  72 2e 22 0d 6c 84 49 e7  |the floor.".l.I.|
00018fd0  20 a7 69 24 2c 22 63 6f  66 66 69 6e 22 29 3e 30  | .i$,"coffin")>0|
00018fe0  20 74 24 3d 22 54 68 65  20 63 6f 66 66 69 6e 20  | t$="The coffin |
00018ff0  69 73 20 6c 61 72 67 65  20 61 6e 64 20 62 75 6c  |is large and bul|
00019000  6b 79 2e 20 49 6e 20 69  74 20 69 73 20 61 20 62  |ky. In it is a b|
00019010  6f 79 2e 22 0d 6c 8e 40  e7 20 a7 69 24 2c 22 62  |oy.".l.@. .i$,"b|
00019020  6f 79 22 29 3e 30 20 74  24 3d 22 54 68 65 20 62  |oy")>0 t$="The b|
00019030  6f 79 20 69 73 20 79 6f  75 6e 67 2c 20 62 75 74  |oy is young, but|
00019040  20 6c 6f 6f 6b 73 20 6e  65 61 72 6c 79 20 64 65  | looks nearly de|
00019050  61 64 2e 22 0d 6c 98 4f  e7 20 a7 69 24 2c 22 6d  |ad.".l.O. .i$,"m|
00019060  61 6e 22 29 3e 30 20 74  24 3d 22 54 68 65 20 6f  |an")>0 t$="The o|
00019070  6c 64 20 6d 61 6e 20 69  73 20 63 72 6f 75 63 68  |ld man is crouch|
00019080  69 6e 67 20 62 79 20 74  68 65 20 63 6f 66 66 69  |ing by the coffi|
00019090  6e 2e 20 48 65 20 6c 6f  6f 6b 73 20 75 70 73 65  |n. He looks upse|
000190a0  74 2e 22 0d 6c a2 05 cd  0d 6c ac 12 e7 20 72 6f  |t.".l....l... ro|
000190b0  6f 6d 6e 6f 25 3d 38 35  20 8c 0d 6c b6 a5 e7 20  |omno%=85 ..l... |
000190c0  a7 69 24 2c 22 62 61 72  22 29 3e 30 20 74 24 3d  |.i$,"bar")>0 t$=|
000190d0  22 54 68 65 20 62 61 72  73 20 61 72 65 20 74 6f  |"The bars are to|
000190e0  20 74 68 65 20 65 61 73  74 2c 20 74 68 65 79 20  | the east, they |
000190f0  61 72 65 20 74 68 69 63  6b 20 61 6e 64 20 70 61  |are thick and pa|
00019100  69 6e 74 65 64 20 77 68  69 74 65 2e 22 3a e7 20  |inted white.":. |
00019110  65 78 69 74 73 28 38 35  2c 32 29 3e 30 20 74 24  |exits(85,2)>0 t$|
00019120  2b 3d 22 20 54 68 65 72  65 20 61 72 65 20 61 20  |+=" There are a |
00019130  66 65 77 20 62 61 72 73  20 6d 69 73 73 69 6e 67  |few bars missing|
00019140  2c 20 77 68 65 72 65 20  79 6f 75 20 68 61 76 65  |, where you have|
00019150  20 63 75 74 20 73 6f 6d  65 20 6f 75 74 2e 22 0d  | cut some out.".|
00019160  6c c0 16 e7 20 a7 69 24  2c 22 67 75 61 72 64 22  |l... .i$,"guard"|
00019170  29 3e 30 20 8c 0d 6c ca  8f 74 24 3d 22 54 68 65  |)>0 ..l..t$="The|
00019180  20 67 75 61 72 64 20 69  73 20 73 75 72 70 72 69  | guard is surpri|
00019190  73 69 6e 67 6c 79 20 73  6d 61 6c 6c 20 61 6e 64  |singly small and|
000191a0  20 66 65 65 62 6c 65 20  66 6f 72 20 61 20 67 75  | feeble for a gu|
000191b0  61 72 64 2c 20 68 65 20  6c 6f 6f 6b 73 20 71 75  |ard, he looks qu|
000191c0  69 74 65 20 67 75 6c 6c  69 62 6c 65 2e 20 42 79  |ite gullible. By|
000191d0  20 68 69 73 20 73 69 64  65 20 69 73 20 61 20 63  | his side is a c|
000191e0  75 70 2c 20 77 69 74 68  20 73 6f 6d 65 20 73 6f  |up, with some so|
000191f0  72 74 20 6f 66 20 64 72  69 6e 6b 20 69 6e 20 69  |rt of drink in i|
00019200  74 2e 20 22 0d 6c d4 65  e7 20 64 72 75 67 67 65  |t. ".l.e. drugge|
00019210  64 25 3d 31 20 74 24 2b  3d 22 54 68 65 20 67 75  |d%=1 t$+="The gu|
00019220  61 72 64 20 69 73 20 61  73 6c 65 65 70 20 61 74  |ard is asleep at|
00019230  20 74 68 65 20 6d 6f 6d  65 6e 74 2e 22 20 8b 20  | the moment." . |
00019240  74 24 2b 3d 22 48 65 20  74 61 6b 65 73 20 61 20  |t$+="He takes a |
00019250  73 69 70 20 65 76 65 72  79 20 6e 6f 77 20 61 6e  |sip every now an|
00019260  64 20 61 67 61 69 6e 2e  22 0d 6c de 05 cd 0d 6c  |d again.".l....l|
00019270  e8 7b e7 20 a7 69 24 2c  22 63 75 70 22 29 3e 30  |.{. .i$,"cup")>0|
00019280  20 84 20 a7 69 24 2c 22  64 72 69 6e 6b 22 29 3e  | . .i$,"drink")>|
00019290  30 20 74 24 3d 22 54 68  65 20 63 75 70 20 69 73  |0 t$="The cup is|
000192a0  20 62 79 20 74 68 65 20  67 75 61 72 64 27 73 20  | by the guard's |
000192b0  73 69 64 65 2e 20 54 68  65 72 65 20 69 73 20 73  |side. There is s|
000192c0  74 65 61 6d 20 67 65 6e  74 6c 79 20 77 61 76 65  |team gently wave|
000192d0  72 69 6e 67 20 6f 75 74  20 66 72 6f 6d 20 74 68  |ring out from th|
000192e0  65 20 64 72 69 6e 6b 2e  22 0d 6c f2 05 cd 0d 6c  |e drink.".l....l|
000192f0  fc 13 e7 20 72 6f 6f 6d  6e 6f 25 3d 31 31 30 20  |... roomno%=110 |
00019300  8c 0d 6d 06 5c e7 20 a7  69 24 2c 22 6e 6f 74 69  |..m.\. .i$,"noti|
00019310  63 65 22 29 3e 30 20 74  24 3d 22 54 68 65 20 6e  |ce")>0 t$="The n|
00019320  6f 74 69 63 65 20 69 73  20 69 6e 20 61 20 63 6f  |otice is in a co|
00019330  72 6e 65 72 20 6f 66 20  74 68 65 20 72 6f 6f 6d  |rner of the room|
00019340  2e 20 49 74 20 68 61 73  20 73 6f 6d 65 20 77 72  |. It has some wr|
00019350  69 74 69 6e 67 20 6f 6e  20 69 74 2e 22 0d 6d 10  |iting on it.".m.|
00019360  05 cd 0d 6d 1a 13 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...m... roomno%=|
00019370  31 31 33 20 8c 0d 6d 24  61 e7 20 a7 69 24 2c 22  |113 ..m$a. .i$,"|
00019380  70 69 6e 62 6f 61 72 64  22 29 3e 30 20 74 24 3d  |pinboard")>0 t$=|
00019390  22 54 68 65 20 70 69 6e  62 6f 61 72 64 20 69 73  |"The pinboard is|
000193a0  20 73 63 72 65 77 65 64  20 74 6f 20 74 68 65 20  | screwed to the |
000193b0  6f 66 66 69 63 65 20 77  61 6c 6c 2e 20 4f 6e 20  |office wall. On |
000193c0  69 74 20 61 72 65 20 76  61 72 69 6f 75 73 20 6e  |it are various n|
000193d0  6f 74 65 73 2e 22 0d 6d  2e 58 e7 20 a7 69 24 2c  |otes.".m.X. .i$,|
000193e0  22 6e 6f 74 65 22 29 3e  30 20 74 24 3d 22 54 68  |"note")>0 t$="Th|
000193f0  65 20 6e 6f 74 65 73 20  61 72 65 20 73 74 75 63  |e notes are stuc|
00019400  6b 20 74 6f 20 74 68 65  20 70 69 6e 62 6f 61 72  |k to the pinboar|
00019410  64 2e 20 53 6f 6d 65 20  68 61 76 65 20 77 72 69  |d. Some have wri|
00019420  74 69 6e 67 20 6f 6e 20  74 68 65 6d 2e 22 0d 6d  |ting on them.".m|
00019430  38 05 cd 0d 6d 42 13 e7  20 72 6f 6f 6d 6e 6f 25  |8...mB.. roomno%|
00019440  3d 31 31 36 20 8c 0d 6d  4c 49 e7 20 a7 69 24 2c  |=116 ..mLI. .i$,|
00019450  22 74 61 62 6c 65 22 29  3e 30 20 74 24 3d 22 54  |"table")>0 t$="T|
00019460  68 65 20 74 61 62 6c 65  20 69 73 20 61 20 72 65  |he table is a re|
00019470  67 75 6c 61 72 20 77 6f  6f 64 65 6e 20 61 6e 64  |gular wooden and|
00019480  20 73 74 75 72 64 79 20  74 61 62 6c 65 2e 22 0d  | sturdy table.".|
00019490  6d 56 05 cd 0d 6d 60 13  e7 20 72 6f 6f 6d 6e 6f  |mV...m`.. roomno|
000194a0  25 3d 31 32 32 20 8c 0d  6d 6a 8c e7 20 a7 69 24  |%=122 ..mj.. .i$|
000194b0  2c 22 64 65 73 6b 22 29  3e 30 20 74 24 3d 22 54  |,"desk")>0 t$="T|
000194c0  68 65 20 77 6f 6f 64 65  6e 20 64 65 73 6b 20 69  |he wooden desk i|
000194d0  73 20 6f 6c 64 20 61 6e  64 20 61 72 63 68 61 69  |s old and archai|
000194e0  63 2e 20 4f 6e 20 69 74  20 61 72 65 20 74 68 65  |c. On it are the|
000194f0  20 75 73 75 61 6c 20 6f  66 66 69 63 65 20 6e 69  | usual office ni|
00019500  63 6b 2d 6e 61 63 6b 73  2c 20 77 68 69 63 68 20  |ck-nacks, which |
00019510  64 6f 20 6e 6f 74 20 6c  6f 6f 6b 20 68 65 6c 70  |do not look help|
00019520  66 75 6c 20 74 6f 20 79  6f 75 72 20 71 75 65 73  |ful to your ques|
00019530  74 2e 22 0d 6d 74 4b e7  20 a7 69 24 2c 22 63 68  |t.".mtK. .i$,"ch|
00019540  61 69 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |air")>0 t$="The |
00019550  63 68 61 69 72 20 69 73  20 6f 6c 64 20 61 6e 64  |chair is old and|
00019560  20 77 6f 6f 64 65 6e 2c  20 69 74 20 6d 61 74 63  | wooden, it matc|
00019570  68 65 73 20 74 68 65 20  64 65 73 6b 2e 22 0d 6d  |hes the desk.".m|
00019580  7e 05 cd 0d 6d 88 13 e7  20 72 6f 6f 6d 6e 6f 25  |~...m... roomno%|
00019590  3d 31 32 37 20 8c 0d 6d  92 47 e7 20 a7 69 24 2c  |=127 ..m.G. .i$,|
000195a0  22 73 69 67 6e 22 29 3e  30 20 74 24 3d 22 54 68  |"sign")>0 t$="Th|
000195b0  65 20 73 69 67 6e 20 69  73 20 73 68 69 6e 65 79  |e sign is shiney|
000195c0  2e 20 49 74 20 68 61 73  20 73 6f 6d 65 20 77 72  |. It has some wr|
000195d0  69 74 69 6e 67 20 6f 6e  20 69 74 2e 22 0d 6d 9c  |iting on it.".m.|
000195e0  05 cd 0d 6d a6 21 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...m.!. roomno%=|
000195f0  31 33 33 20 84 20 72 6f  6f 6d 6e 6f 25 3d 31 33  |133 . roomno%=13|
00019600  35 20 8c 0d 6d b0 60 e7  20 a7 69 24 2c 22 74 61  |5 ..m.`. .i$,"ta|
00019610  62 6c 65 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ble")>0 t$="The |
00019620  74 61 62 6c 65 20 69 73  20 72 65 63 74 61 6e 67  |table is rectang|
00019630  75 6c 61 72 20 61 6e 64  20 77 6f 6f 64 65 6e 2c  |ular and wooden,|
00019640  20 69 74 20 68 61 73 20  6e 6f 74 68 69 6e 67 20  | it has nothing |
00019650  6f 66 20 69 6e 74 65 72  65 73 74 20 6f 6e 20 69  |of interest on i|
00019660  74 2e 22 0d 6d ba 51 e7  20 a7 69 24 2c 22 63 68  |t.".m.Q. .i$,"ch|
00019670  61 69 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |air")>0 t$="The |
00019680  63 68 61 69 72 20 69 73  20 77 6f 6f 64 65 6e 20  |chair is wooden |
00019690  61 6e 64 20 62 75 6c 6b  79 2e 20 49 74 20 73 69  |and bulky. It si|
000196a0  74 73 20 75 6e 64 65 72  20 74 68 65 20 74 61 62  |ts under the tab|
000196b0  6c 65 2e 22 0d 6d c4 05  cd 0d 6d ce 13 e7 20 72  |le.".m....m... r|
000196c0  6f 6f 6d 6e 6f 25 3d 31  37 39 20 8c 0d 6d d8 15  |oomno%=179 ..m..|
000196d0  e7 20 a7 69 24 2c 22 64  6f 6f 72 22 29 3e 30 20  |. .i$,"door")>0 |
000196e0  8c 0d 6d e2 27 74 24 3d  22 54 68 65 20 64 6f 6f  |..m.'t$="The doo|
000196f0  72 20 69 73 20 6c 61 72  67 65 20 61 6e 64 20 77  |r is large and w|
00019700  6f 6f 64 65 6e 2e 20 22  0d 6d ec 42 e7 20 65 78  |ooden. ".m.B. ex|
00019710  69 74 73 28 31 37 39 2c  31 29 3d 31 35 20 74 24  |its(179,1)=15 t$|
00019720  2b 3d 22 49 74 20 69 73  20 77 69 64 65 20 6f 70  |+="It is wide op|
00019730  65 6e 2e 22 20 8b 20 74  24 2b 3d 22 49 74 20 69  |en." . t$+="It i|
00019740  73 20 6c 6f 63 6b 65 64  2e 22 0d 6d f6 05 cd 0d  |s locked.".m....|
00019750  6e 00 05 cd 0d 6e 0a 13  e7 20 72 6f 6f 6d 6e 6f  |n....n... roomno|
00019760  25 3d 32 32 34 20 8c 0d  6e 14 4e e7 20 a7 69 24  |%=224 ..n.N. .i$|
00019770  2c 22 73 69 67 6e 22 29  3e 30 20 74 24 3d 22 54  |,"sign")>0 t$="T|
00019780  68 65 20 73 74 72 65 65  74 20 73 69 67 6e 20 68  |he street sign h|
00019790  61 73 20 74 68 65 20 77  6f 72 64 73 20 27 50 48  |as the words 'PH|
000197a0  45 4f 4e 49 58 20 53 54  52 45 45 54 27 20 6f 6e  |EONIX STREET' on|
000197b0  20 69 74 2e 22 0d 6e 1e  05 cd 0d 6e 28 13 e7 20  | it.".n....n(.. |
000197c0  72 6f 6f 6d 6e 6f 25 3d  32 32 36 20 8c 0d 6e 32  |roomno%=226 ..n2|
000197d0  4a e7 20 a7 69 24 2c 22  73 77 69 6e 67 22 29 3e  |J. .i$,"swing")>|
000197e0  30 20 74 24 3d 22 54 68  65 20 73 77 69 6e 67 73  |0 t$="The swings|
000197f0  20 61 72 65 20 76 65 72  79 20 72 75 73 74 79 2e  | are very rusty.|
00019800  20 54 68 65 79 20 61 72  65 20 70 61 69 6e 74 65  | They are painte|
00019810  64 20 72 65 64 2e 22 0d  6e 3c 59 e7 20 a7 69 24  |d red.".n<Y. .i$|
00019820  2c 22 63 68 69 6c 64 22  29 3e 30 20 74 24 3d 22  |,"child")>0 t$="|
00019830  54 68 65 20 6c 69 74 74  6c 65 20 67 69 72 6c 20  |The little girl |
00019840  69 73 20 71 75 69 74 65  20 70 6c 75 6d 70 2e 20  |is quite plump. |
00019850  53 68 65 20 6c 6f 6f 6b  73 20 61 74 20 79 6f 75  |She looks at you|
00019860  20 69 6e 71 75 69 73 69  74 69 76 65 6c 79 2e 22  | inquisitively."|
00019870  0d 6e 46 58 e7 20 a7 69  24 2c 22 67 69 72 6c 22  |.nFX. .i$,"girl"|
00019880  29 3e 30 20 74 24 3d 22  54 68 65 20 6c 69 74 74  |)>0 t$="The litt|
00019890  6c 65 20 67 69 72 6c 20  69 73 20 71 75 69 74 65  |le girl is quite|
000198a0  20 70 6c 75 6d 70 2e 20  53 68 65 20 6c 6f 6f 6b  | plump. She look|
000198b0  73 20 61 74 20 79 6f 75  20 69 6e 71 75 69 73 69  |s at you inquisi|
000198c0  74 69 76 65 6c 79 2e 22  0d 6e 50 05 cd 0d 6e 5a  |tively.".nP...nZ|
000198d0  13 e7 20 72 6f 6f 6d 6e  6f 25 3d 32 32 37 20 8c  |.. roomno%=227 .|
000198e0  0d 6e 64 61 e7 20 a7 69  24 2c 22 73 6c 69 64 65  |.nda. .i$,"slide|
000198f0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 73 6c 69  |")>0 t$="The sli|
00019900  64 65 20 69 73 20 76 65  72 79 20 72 75 73 74 79  |de is very rusty|
00019910  2e 20 49 74 20 68 61 73  20 62 65 65 6e 20 70 61  |. It has been pa|
00019920  69 6e 74 65 64 20 6f 76  65 72 20 77 69 74 68 20  |inted over with |
00019930  64 61 72 6b 20 62 6c 75  65 20 70 61 69 6e 74 2e  |dark blue paint.|
00019940  22 0d 6e 6e 05 cd 0d 6e  78 13 e7 20 72 6f 6f 6d  |".nn...nx.. room|
00019950  6e 6f 25 3d 32 32 38 20  8c 0d 6e 82 4e e7 20 a7  |no%=228 ..n.N. .|
00019960  69 24 2c 22 73 61 6e 64  22 29 3e 30 20 74 24 3d  |i$,"sand")>0 t$=|
00019970  22 54 68 65 20 73 61 6e  64 20 69 73 20 77 65 74  |"The sand is wet|
00019980  2c 20 73 6f 20 68 61 73  20 6a 6f 69 6e 65 64 20  |, so has joined |
00019990  74 6f 67 65 74 68 65 72  20 69 6e 20 62 69 67 20  |together in big |
000199a0  6c 75 6d 70 73 2e 22 0d  6e 8c 42 e7 20 a7 69 24  |lumps.".n.B. .i$|
000199b0  2c 22 70 69 74 22 29 3e  30 20 74 24 3d 22 54 68  |,"pit")>0 t$="Th|
000199c0  65 20 73 61 6e 64 70 69  74 20 69 73 20 6c 61 72  |e sandpit is lar|
000199d0  67 65 20 61 6e 64 20 66  75 6c 6c 20 6f 66 20 77  |ge and full of w|
000199e0  65 74 20 73 61 6e 64 2e  22 0d 6e 96 05 cd 0d 6e  |et sand.".n....n|
000199f0  a0 13 e7 20 72 6f 6f 6d  6e 6f 25 3d 32 33 35 20  |... roomno%=235 |
00019a00  8c 0d 6e aa 61 e7 20 a7  69 24 2c 22 63 61 72 22  |..n.a. .i$,"car"|
00019a10  29 3e 30 20 74 24 3d 22  54 68 65 20 63 61 72 73  |)>0 t$="The cars|
00019a20  20 61 72 65 20 72 65 61  73 6f 6e 61 62 6c 79 20  | are reasonably |
00019a30  6c 61 72 67 65 2e 20 4f  6e 65 20 69 73 20 72 65  |large. One is re|
00019a40  64 20 61 6e 64 20 74 68  65 20 6f 74 68 65 72 20  |d and the other |
00019a50  69 73 20 6d 65 74 61 6c  6c 69 63 20 62 6c 75 65  |is metallic blue|
00019a60  2e 22 0d 6e b4 05 cd 0d  6e be 13 e7 20 72 6f 6f  |.".n....n... roo|
00019a70  6d 6e 6f 25 3d 32 33 36  20 8c 0d 6e c8 49 e7 20  |mno%=236 ..n.I. |
00019a80  a7 69 24 2c 22 63 61 72  22 29 3e 30 20 74 24 3d  |.i$,"car")>0 t$=|
00019a90  22 54 68 65 20 63 61 72  20 69 73 20 71 75 69 74  |"The car is quit|
00019aa0  65 20 73 6d 61 6c 6c 20  61 6e 64 20 70 61 69 6e  |e small and pain|
00019ab0  74 65 64 20 61 20 64 75  6c 6c 20 79 65 6c 6c 6f  |ted a dull yello|
00019ac0  77 2e 22 0d 6e d2 05 cd  0d 6e dc 13 e7 20 72 6f  |w.".n....n... ro|
00019ad0  6f 6d 6e 6f 25 3d 32 33  38 20 8c 0d 6e e6 40 e7  |omno%=238 ..n.@.|
00019ae0  20 a7 69 24 2c 22 63 61  72 22 29 3e 30 20 74 24  | .i$,"car")>0 t$|
00019af0  3d 22 54 68 65 20 63 61  72 20 69 73 20 76 65 72  |="The car is ver|
00019b00  79 20 63 6c 65 61 6e 2e  20 49 74 20 69 73 20 70  |y clean. It is p|
00019b10  75 72 65 20 77 68 69 74  65 2e 22 0d 6e f0 05 cd  |ure white.".n...|
00019b20  0d 6e fa 13 e7 20 72 6f  6f 6d 6e 6f 25 3d 32 34  |.n... roomno%=24|
00019b30  38 20 8c 0d 6f 04 5d e7  20 a7 69 24 2c 22 6d 61  |8 ..o.]. .i$,"ma|
00019b40  6e 22 29 3e 30 20 74 24  3d 22 54 68 65 20 6d 61  |n")>0 t$="The ma|
00019b50  6e 20 69 73 20 71 75 69  74 65 20 66 61 74 20 61  |n is quite fat a|
00019b60  6e 64 20 69 73 20 41 73  69 61 6e 2e 20 48 65 20  |nd is Asian. He |
00019b70  69 73 20 73 74 61 6e 64  69 6e 67 20 62 65 68 69  |is standing behi|
00019b80  6e 64 20 74 68 65 20 63  6f 75 6e 74 65 72 2e 22  |nd the counter."|
00019b90  0d 6f 0e 63 e7 20 a7 69  24 2c 22 6e 65 77 73 70  |.o.c. .i$,"newsp|
00019ba0  61 70 65 72 22 29 3e 30  20 84 20 a7 69 24 2c 22  |aper")>0 . .i$,"|
00019bb0  6d 61 67 61 7a 69 6e 65  22 29 3e 30 20 74 24 3d  |magazine")>0 t$=|
00019bc0  22 54 68 65 20 6d 61 67  61 7a 69 6e 65 73 20 61  |"The magazines a|
00019bd0  6e 64 20 6e 65 77 73 70  61 70 65 72 73 20 6c 69  |nd newspapers li|
00019be0  6e 65 20 74 68 65 20 6e  65 77 73 61 67 65 6e 74  |ne the newsagent|
00019bf0  73 2e 22 0d 6f 18 4f e7  20 a7 69 24 2c 22 63 6f  |s.".o.O. .i$,"co|
00019c00  75 6e 74 65 72 22 29 3e  30 20 74 24 3d 22 54 68  |unter")>0 t$="Th|
00019c10  65 20 63 6f 75 6e 74 65  72 20 69 73 20 6c 61 72  |e counter is lar|
00019c20  67 65 20 61 6e 64 20 68  61 73 20 6c 6f 74 73 20  |ge and has lots |
00019c30  6f 66 20 73 77 65 65 74  73 20 6f 6e 20 74 6f 70  |of sweets on top|
00019c40  2e 22 0d 6f 22 70 e7 20  a7 69 24 2c 22 73 77 65  |.".o"p. .i$,"swe|
00019c50  65 74 22 29 3e 30 20 74  24 3d 22 54 68 65 20 73  |et")>0 t$="The s|
00019c60  77 65 65 74 73 20 61 72  65 20 76 61 72 69 6f 75  |weets are variou|
00019c70  73 20 6b 69 6e 64 73 20  6f 66 20 63 68 6f 63 6f  |s kinds of choco|
00019c80  6c 61 74 65 73 2c 20 63  6f 76 65 72 65 64 20 77  |lates, covered w|
00019c90  69 74 68 20 73 68 69 6e  79 20 72 6f 73 65 2d 63  |ith shiny rose-c|
00019ca0  6f 6c 6f 75 72 65 64 20  77 72 61 70 70 69 6e 67  |oloured wrapping|
00019cb0  2e 22 0d 6f 2c 05 cd 0d  6f 36 13 e7 20 72 6f 6f  |.".o,...o6.. roo|
00019cc0  6d 6e 6f 25 3d 32 34 39  20 8c 0d 6f 40 25 e7 20  |mno%=249 ..o@%. |
00019cd0  a7 69 24 2c 22 77 6f 6d  61 6e 22 29 3e 30 20 74  |.i$,"woman")>0 t|
00019ce0  24 3d 22 54 68 65 20 77  6f 6d 61 6e 20 2e 22 0d  |$="The woman .".|
00019cf0  6f 4a 65 e7 20 a7 69 24  2c 22 6f 72 6e 61 6d 65  |oJe. .i$,"orname|
00019d00  6e 74 22 29 3e 30 20 84  20 a7 69 24 2c 22 74 72  |nt")>0 . .i$,"tr|
00019d10  6f 70 68 79 22 29 3e 30  20 84 20 a7 69 24 2c 22  |ophy")>0 . .i$,"|
00019d20  74 72 6f 70 68 69 65 22  29 3e 30 20 84 20 a7 69  |trophie")>0 . .i|
00019d30  24 2c 22 73 6f 75 76 65  6e 69 72 22 29 3e 30 20  |$,"souvenir")>0 |
00019d40  74 24 3d 22 54 68 65 20  73 6f 75 76 65 6e 69 72  |t$="The souvenir|
00019d50  73 20 2e 22 0d 6f 54 05  cd 0d 6f 5e 13 e7 20 72  |s .".oT...o^.. r|
00019d60  6f 6f 6d 6e 6f 25 3d 32  35 30 20 8c 0d 6f 68 91  |oomno%=250 ..oh.|
00019d70  e7 20 a7 69 24 2c 22 77  6f 6d 61 6e 22 29 3e 30  |. .i$,"woman")>0|
00019d80  20 74 24 3d 22 54 68 65  20 79 6f 75 6e 67 20 77  | t$="The young w|
00019d90  6f 6d 61 6e 20 69 73 20  61 6c 6d 6f 73 74 20 68  |oman is almost h|
00019da0  69 64 64 65 6e 20 61 6d  6f 6e 67 20 68 65 72 20  |idden among her |
00019db0  62 75 6e 63 68 65 73 20  6f 66 20 66 6c 6f 77 65  |bunches of flowe|
00019dc0  72 73 2e 20 53 68 65 20  69 73 20 62 75 73 79 20  |rs. She is busy |
00019dd0  61 74 20 77 6f 72 6b 20  61 72 72 61 6e 67 69 6e  |at work arrangin|
00019de0  67 20 73 6f 6d 65 20 73  6f 72 74 20 6f 66 20 70  |g some sort of p|
00019df0  72 65 73 65 6e 74 61 74  69 6f 6e 2e 22 0d 6f 72  |resentation.".or|
00019e00  53 e7 20 a7 69 24 2c 22  66 6c 6f 77 65 72 22 29  |S. .i$,"flower")|
00019e10  3e 30 20 74 24 3d 22 54  68 65 20 62 75 6e 63 68  |>0 t$="The bunch|
00019e20  65 73 20 6f 66 20 66 6c  6f 77 65 72 73 20 61 72  |es of flowers ar|
00019e30  65 20 62 65 61 75 74 69  66 75 6c 20 61 6e 64 20  |e beautiful and |
00019e40  76 65 72 79 20 63 6f 6c  6f 75 72 66 75 6c 2e 22  |very colourful."|
00019e50  0d 6f 7c 05 cd 0d 6f 86  13 e7 20 72 6f 6f 6d 6e  |.o|...o... roomn|
00019e60  6f 25 3d 32 35 32 20 8c  0d 6f 90 9f e7 20 a7 69  |o%=252 ..o... .i|
00019e70  24 2c 22 6d 6f 6e 75 6d  65 6e 74 22 29 3e 30 20  |$,"monument")>0 |
00019e80  74 24 3d 22 54 68 65 20  6d 6f 6e 75 6d 65 6e 74  |t$="The monument|
00019e90  20 69 73 20 74 61 6c 6c  20 61 6e 64 20 6c 6f 6f  | is tall and loo|
00019ea0  6d 73 20 6f 76 65 72 20  79 6f 75 2e 20 49 74 20  |ms over you. It |
00019eb0  69 73 20 6d 61 64 65 20  6f 66 20 73 74 6f 6e 65  |is made of stone|
00019ec0  2c 20 62 75 74 20 73 65  65 6d 73 20 74 6f 20 68  |, but seems to h|
00019ed0  61 76 65 20 65 72 6f 64  65 64 20 61 20 6c 69 74  |ave eroded a lit|
00019ee0  74 6c 65 20 6f 76 65 72  20 74 68 65 20 79 65 61  |tle over the yea|
00019ef0  72 73 2e 20 4f 6e 20 69  74 20 69 73 20 61 20 70  |rs. On it is a p|
00019f00  6c 61 71 75 65 2e 22 0d  6f 9a 60 e7 20 a7 69 24  |laque.".o.`. .i$|
00019f10  2c 22 70 6c 61 71 75 65  22 29 3e 30 20 74 24 3d  |,"plaque")>0 t$=|
00019f20  22 54 68 65 20 70 6c 61  71 75 65 2c 20 77 68 69  |"The plaque, whi|
00019f30  63 68 20 69 73 20 73 63  72 65 77 65 64 20 74 6f  |ch is screwed to|
00019f40  20 74 68 65 20 6d 6f 6e  75 6d 65 6e 74 2c 20 68  | the monument, h|
00019f50  61 73 20 73 6f 6d 65 20  77 72 69 74 69 6e 67 20  |as some writing |
00019f60  6f 6e 20 69 74 2e 22 0d  6f a4 05 cd 0d 6f ae 13  |on it.".o....o..|
00019f70  e7 20 72 6f 6f 6d 6e 6f  25 3d 32 35 33 20 8c 0d  |. roomno%=253 ..|
00019f80  6f b8 61 e7 20 a7 69 24  2c 22 77 6f 6d 61 6e 22  |o.a. .i$,"woman"|
00019f90  29 3e 30 20 74 24 3d 22  54 68 65 20 77 6f 6d 61  |)>0 t$="The woma|
00019fa0  6e 20 69 73 20 6f 6c 64  20 61 6e 64 20 77 72 69  |n is old and wri|
00019fb0  6e 6b 6c 79 2e 20 53 68  65 20 69 73 20 76 65 72  |nkly. She is ver|
00019fc0  79 20 70 61 6c 65 20 61  6e 64 20 6c 6f 6f 6b 73  |y pale and looks|
00019fd0  20 73 65 72 69 6f 75 73  6c 79 20 69 6c 6c 2e 22  | seriously ill."|
00019fe0  0d 6f c2 5f e7 20 a7 69  24 2c 22 73 6f 66 61 22  |.o._. .i$,"sofa"|
00019ff0  29 3e 30 20 74 24 3d 22  54 68 65 20 72 6f 73 65  |)>0 t$="The rose|
0001a000  2d 63 6f 6c 6f 75 72 65  64 20 73 6f 66 61 20 69  |-coloured sofa i|
0001a010  73 20 6c 61 72 67 65 20  61 6e 64 20 6f 6e 20 69  |s large and on i|
0001a020  74 20 6c 61 79 73 20 74  68 65 20 67 72 6f 61 6e  |t lays the groan|
0001a030  69 6e 67 20 6f 6c 64 20  77 6f 6d 61 6e 2e 22 0d  |ing old woman.".|
0001a040  6f cc 61 e7 20 a7 69 24  2c 22 61 6e 74 69 71 75  |o.a. .i$,"antiqu|
0001a050  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 61 6e  |e")>0 t$="The an|
0001a060  74 69 71 75 65 73 20 61  72 65 20 6e 75 6d 65 72  |tiques are numer|
0001a070  6f 75 73 20 69 6e 20 74  68 69 73 20 72 6f 6f 6d  |ous in this room|
0001a080  2c 20 74 68 65 79 20 63  6f 76 65 72 20 61 6c 6d  |, they cover alm|
0001a090  6f 73 74 20 65 76 65 72  79 74 68 69 6e 67 2e 22  |ost everything."|
0001a0a0  0d 6f d6 05 cd 0d 6f e0  13 e7 20 72 6f 6f 6d 6e  |.o....o... roomn|
0001a0b0  6f 25 3d 32 35 36 20 8c  0d 6f ea 50 e7 20 a7 69  |o%=256 ..o.P. .i|
0001a0c0  24 2c 22 66 6f 75 6e 74  61 69 6e 22 29 3e 30 20  |$,"fountain")>0 |
0001a0d0  74 24 3d 22 54 68 65 20  66 6f 75 6e 74 61 69 6e  |t$="The fountain|
0001a0e0  20 69 73 20 6f 6c 64 20  61 6e 64 20 64 6f 65 73  | is old and does|
0001a0f0  6e 27 74 20 65 76 65 6e  20 77 6f 72 6b 20 6e 6f  |n't even work no|
0001a100  77 61 64 61 79 73 2e 22  0d 6f f4 05 cd 0d 6f fe  |wadays.".o....o.|
0001a110  13 e7 20 72 6f 6f 6d 6e  6f 25 3d 32 36 34 20 8c  |.. roomno%=264 .|
0001a120  0d 70 08 56 e7 20 a7 69  24 2c 22 74 61 62 6c 65  |.p.V. .i$,"table|
0001a130  22 29 3e 30 20 74 24 3d  22 54 68 65 20 74 61 62  |")>0 t$="The tab|
0001a140  6c 65 73 20 61 72 65 20  77 6f 6f 64 65 6e 2c 20  |les are wooden, |
0001a150  77 69 74 68 20 61 6e 20  27 4f 6c 64 65 20 45 6e  |with an 'Olde En|
0001a160  67 6c 69 73 68 27 20 73  74 79 6c 65 20 74 6f 20  |glish' style to |
0001a170  74 68 65 6d 2e 22 0d 70  12 56 e7 20 a7 69 24 2c  |them.".p.V. .i$,|
0001a180  22 63 68 61 69 72 22 29  3e 30 20 74 24 3d 22 54  |"chair")>0 t$="T|
0001a190  68 65 20 63 68 61 69 72  73 20 61 72 65 20 77 6f  |he chairs are wo|
0001a1a0  6f 64 65 6e 2c 20 77 69  74 68 20 61 6e 20 27 4f  |oden, with an 'O|
0001a1b0  6c 64 65 20 45 6e 67 6c  69 73 68 27 20 73 74 79  |lde English' sty|
0001a1c0  6c 65 20 74 6f 20 74 68  65 6d 2e 22 0d 70 1c 98  |le to them.".p..|
0001a1d0  e7 20 a7 69 24 2c 22 64  61 72 74 62 6f 61 72 64  |. .i$,"dartboard|
0001a1e0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 64 61 72  |")>0 t$="The dar|
0001a1f0  74 62 6f 61 72 64 20 69  73 20 72 6f 75 6e 64 20  |tboard is round |
0001a200  61 6e 64 20 63 69 72 63  75 6c 61 72 2e 20 49 74  |and circular. It|
0001a210  20 61 6c 73 6f 20 68 61  73 20 61 20 64 69 73 74  | also has a dist|
0001a220  69 6e 63 74 20 32 44 20  73 70 68 65 72 69 63 61  |inct 2D spherica|
0001a230  6c 20 6c 6f 6f 6b 20 74  6f 20 69 74 20 77 68 69  |l look to it whi|
0001a240  6c 65 20 61 74 20 74 68  65 20 73 61 6d 65 20 74  |le at the same t|
0001a250  69 6d 65 20 73 65 65 6d  69 6e 67 20 72 6f 74 75  |ime seeming rotu|
0001a260  6e 64 2e 22 0d 70 26 05  cd 0d 70 30 13 e7 20 72  |nd.".p&...p0.. r|
0001a270  6f 6f 6d 6e 6f 25 3d 32  36 35 20 8c 0d 70 3a 56  |oomno%=265 ..p:V|
0001a280  e7 20 a7 69 24 2c 22 74  61 62 6c 65 22 29 3e 30  |. .i$,"table")>0|
0001a290  20 74 24 3d 22 54 68 65  20 74 61 62 6c 65 73 20  | t$="The tables |
0001a2a0  61 72 65 20 77 6f 6f 64  65 6e 2c 20 77 69 74 68  |are wooden, with|
0001a2b0  20 61 6e 20 27 4f 6c 64  65 20 45 6e 67 6c 69 73  | an 'Olde Englis|
0001a2c0  68 27 20 73 74 79 6c 65  20 74 6f 20 74 68 65 6d  |h' style to them|
0001a2d0  2e 22 0d 70 44 56 e7 20  a7 69 24 2c 22 63 68 61  |.".pDV. .i$,"cha|
0001a2e0  69 72 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |ir")>0 t$="The c|
0001a2f0  68 61 69 72 73 20 61 72  65 20 77 6f 6f 64 65 6e  |hairs are wooden|
0001a300  2c 20 77 69 74 68 20 61  6e 20 27 4f 6c 64 65 20  |, with an 'Olde |
0001a310  45 6e 67 6c 69 73 68 27  20 73 74 79 6c 65 20 74  |English' style t|
0001a320  6f 20 74 68 65 6d 2e 22  0d 70 4e 05 cd 0d 70 58  |o them.".pN...pX|
0001a330  13 e7 20 72 6f 6f 6d 6e  6f 25 3d 32 36 36 20 8c  |.. roomno%=266 .|
0001a340  0d 70 62 4d e7 20 a7 69  24 2c 22 62 61 72 22 29  |.pbM. .i$,"bar")|
0001a350  3e 30 20 74 24 3d 22 54  68 65 20 62 61 72 20 69  |>0 t$="The bar i|
0001a360  73 20 6c 6f 6e 67 20 61  6e 64 20 77 6f 6f 64 65  |s long and woode|
0001a370  6e 2e 20 42 65 68 69 6e  64 20 69 74 20 69 73 20  |n. Behind it is |
0001a380  74 68 65 20 62 61 72 6d  61 69 64 2e 22 0d 70 6c  |the barmaid.".pl|
0001a390  a0 e7 20 a7 69 24 2c 22  62 61 72 6d 61 69 64 22  |.. .i$,"barmaid"|
0001a3a0  29 3e 30 20 84 20 a7 69  24 2c 22 77 6f 6d 61 6e  |)>0 . .i$,"woman|
0001a3b0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 61 72  |")>0 t$="The bar|
0001a3c0  6d 61 69 64 20 69 73 20  79 6f 75 6e 67 20 61 6e  |maid is young an|
0001a3d0  64 20 76 65 72 79 20 70  72 65 74 74 79 2e 20 53  |d very pretty. S|
0001a3e0  68 65 20 77 65 61 72 73  20 61 20 73 68 6f 72 74  |he wears a short|
0001a3f0  20 62 6c 61 63 6b 20 73  6b 69 72 74 2c 20 61 20  | black skirt, a |
0001a400  77 68 69 74 65 20 73 69  6c 6b 79 20 62 6c 6f 75  |white silky blou|
0001a410  73 65 20 61 6e 64 20 68  61 73 20 6c 6f 6e 67 20  |se and has long |
0001a420  62 6c 6f 6e 64 65 20 68  61 69 72 2e 22 0d 70 76  |blonde hair.".pv|
0001a430  42 e7 20 a7 69 24 2c 22  73 6b 69 72 74 22 29 3e  |B. .i$,"skirt")>|
0001a440  30 20 74 24 3d 22 54 68  65 20 62 61 72 6d 61 69  |0 t$="The barmai|
0001a450  64 27 73 20 62 6c 61 63  6b 20 73 6b 69 72 74 20  |d's black skirt |
0001a460  69 73 20 76 65 72 79 20  73 68 6f 72 74 2e 22 0d  |is very short.".|
0001a470  70 80 52 e7 20 a7 69 24  2c 22 62 6c 6f 75 73 65  |p.R. .i$,"blouse|
0001a480  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 61 72  |")>0 t$="The bar|
0001a490  6d 61 69 64 27 73 20 77  68 69 74 65 20 62 6c 6f  |maid's white blo|
0001a4a0  75 73 65 20 69 73 20 73  69 6c 6b 79 20 61 6e 64  |use is silky and|
0001a4b0  20 6c 6f 6f 6b 73 20 64  65 6c 69 63 61 74 65 2e  | looks delicate.|
0001a4c0  22 0d 70 8a 54 e7 20 a7  69 24 2c 22 68 61 69 72  |".p.T. .i$,"hair|
0001a4d0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 62 61 72  |")>0 t$="The bar|
0001a4e0  6d 61 69 64 27 73 20 6c  6f 6e 67 20 62 6c 6f 6e  |maid's long blon|
0001a4f0  64 65 20 68 61 69 72 20  63 61 73 63 61 64 65 73  |de hair cascades|
0001a500  20 6f 76 65 72 20 68 65  72 20 73 68 6f 75 6c 64  | over her should|
0001a510  65 72 73 2e 22 0d 70 94  05 cd 0d 70 9e 13 e7 20  |ers.".p....p... |
0001a520  72 6f 6f 6d 6e 6f 25 3d  32 37 39 20 8c 0d 70 a8  |roomno%=279 ..p.|
0001a530  4f e7 20 a7 69 24 2c 22  70 61 74 68 22 29 3e 30  |O. .i$,"path")>0|
0001a540  20 74 24 3d 22 54 68 65  20 63 72 61 7a 79 2d 70  | t$="The crazy-p|
0001a550  61 76 65 64 20 70 61 74  68 20 6c 65 61 64 73 20  |aved path leads |
0001a560  65 61 73 74 77 61 72 64  73 2c 20 69 6e 74 6f 20  |eastwards, into |
0001a570  74 68 65 20 63 68 75 72  63 68 2e 22 0d 70 b2 05  |the church.".p..|
0001a580  cd 0d 70 bc 13 e7 20 72  6f 6f 6d 6e 6f 25 3d 32  |..p... roomno%=2|
0001a590  38 31 20 8c 0d 70 c6 3c  e7 20 a7 69 24 2c 22 6d  |81 ..p.<. .i$,"m|
0001a5a0  61 6e 22 29 3e 30 20 74  24 3d 22 54 68 65 20 6d  |an")>0 t$="The m|
0001a5b0  61 6e 20 69 73 20 74 61  6c 6c 20 61 6e 64 20 65  |an is tall and e|
0001a5c0  78 74 72 65 6d 65 6c 79  20 6c 61 6e 6b 79 2e 22  |xtremely lanky."|
0001a5d0  0d 70 d0 4e e7 20 a7 69  24 2c 22 63 6f 75 6e 74  |.p.N. .i$,"count|
0001a5e0  65 72 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |er")>0 t$="The c|
0001a5f0  6f 75 6e 74 65 72 20 69  73 20 6c 61 72 67 65 20  |ounter is large |
0001a600  61 6e 64 20 62 65 68 69  6e 64 20 69 74 20 73 74  |and behind it st|
0001a610  61 6e 64 73 20 74 68 65  20 6d 61 6e 2e 22 0d 70  |ands the man.".p|
0001a620  da 6d e7 20 a7 69 24 2c  22 6c 65 61 66 6c 65 74  |.m. .i$,"leaflet|
0001a630  22 29 3e 30 20 74 24 3d  22 54 68 65 20 6c 65 61  |")>0 t$="The lea|
0001a640  66 6c 65 74 73 20 61 72  65 20 61 6c 6c 20 6f 76  |flets are all ov|
0001a650  65 72 20 74 68 65 20 63  65 6e 74 72 65 2c 20 62  |er the centre, b|
0001a660  75 74 20 6c 6f 6f 6b 20  65 78 74 72 65 6d 65 6c  |ut look extremel|
0001a670  79 20 74 61 63 6b 79 20  61 6e 64 20 62 6f 72 69  |y tacky and bori|
0001a680  6e 67 20 61 6e 79 68 6f  77 2e 22 0d 70 e4 05 cd  |ng anyhow.".p...|
0001a690  0d 70 ee 21 e7 20 72 6f  6f 6d 6e 6f 25 3d 32 38  |.p.!. roomno%=28|
0001a6a0  34 20 84 20 72 6f 6f 6d  6e 6f 25 3d 32 39 37 20  |4 . roomno%=297 |
0001a6b0  8c 0d 70 f8 39 e7 20 a7  69 24 2c 22 73 69 67 6e  |..p.9. .i$,"sign|
0001a6c0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 73 69 67  |")>0 t$="The sig|
0001a6d0  6e 20 68 61 73 20 73 6f  6d 65 20 77 72 69 74 69  |n has some writi|
0001a6e0  6e 67 20 6f 6e 20 69 74  2e 22 0d 71 02 05 cd 0d  |ng on it.".q....|
0001a6f0  71 0c 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 32 39 33  |q... roomno%=293|
0001a700  20 8c 0d 71 16 52 e7 20  a7 69 24 2c 22 62 65 6c  | ..q.R. .i$,"bel|
0001a710  6c 22 29 3e 30 20 74 24  3d 22 54 68 65 20 62 65  |l")>0 t$="The be|
0001a720  6c 6c 73 20 61 72 65 20  6c 61 72 67 65 20 61 6e  |lls are large an|
0001a730  64 20 77 6f 75 6c 64 20  70 72 6f 62 61 62 6c 79  |d would probably|
0001a740  20 6d 61 6b 65 20 61 20  68 75 67 65 20 6e 6f 69  | make a huge noi|
0001a750  73 65 2e 22 0d 71 20 3b  e7 20 a7 69 24 2c 22 72  |se.".q ;. .i$,"r|
0001a760  6f 70 65 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ope")>0 t$="The |
0001a770  72 6f 70 65 73 20 61 72  65 20 6a 6f 69 6e 65 64  |ropes are joined|
0001a780  20 74 6f 20 74 68 65 20  62 65 6c 6c 73 2e 22 0d  | to the bells.".|
0001a790  71 2a 05 cd 0d 71 34 21  e7 20 72 6f 6f 6d 6e 6f  |q*...q4!. roomno|
0001a7a0  25 3d 32 39 34 20 84 20  72 6f 6f 6d 6e 6f 25 3d  |%=294 . roomno%=|
0001a7b0  32 39 35 20 8c 0d 71 3e  38 e7 20 a7 69 24 2c 22  |295 ..q>8. .i$,"|
0001a7c0  67 72 61 73 73 22 29 3e  30 20 74 24 3d 22 54 68  |grass")>0 t$="Th|
0001a7d0  65 20 67 72 61 73 73 20  69 73 20 6c 6f 6e 67 20  |e grass is long |
0001a7e0  61 6e 64 20 74 61 6e 67  6c 65 64 2e 22 0d 71 48  |and tangled.".qH|
0001a7f0  4e e7 20 a7 69 24 2c 22  68 65 61 64 73 74 6f 6e  |N. .i$,"headston|
0001a800  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 68 65  |e")>0 t$="The he|
0001a810  61 64 73 74 6f 6e 65 20  69 73 20 73 6d 61 6c 6c  |adstone is small|
0001a820  20 61 6e 64 20 65 72 6f  64 65 64 20 61 77 61 79  | and eroded away|
0001a830  20 2d 20 61 6c 6d 6f 73  74 2e 22 0d 71 52 05 cd  | - almost.".qR..|
0001a840  0d 71 5c 13 e7 20 72 6f  6f 6d 6e 6f 25 3d 32 39  |.q\.. roomno%=29|
0001a850  36 20 8c 0d 71 66 3e e7  20 a7 69 24 2c 22 61 6c  |6 ..qf>. .i$,"al|
0001a860  74 61 72 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |tar")>0 t$="The |
0001a870  61 6c 74 61 72 20 69 73  20 73 69 6d 70 6c 65 20  |altar is simple |
0001a880  61 6e 64 20 75 6e 64 65  63 6f 72 61 74 65 64 2e  |and undecorated.|
0001a890  22 0d 71 70 7a e7 20 a7  69 24 2c 22 61 69 73 6c  |".qpz. .i$,"aisl|
0001a8a0  65 22 29 3e 30 20 74 24  3d 22 54 68 65 20 61 69  |e")>0 t$="The ai|
0001a8b0  73 6c 65 20 72 75 6e 73  20 66 72 6f 6d 20 74 68  |sle runs from th|
0001a8c0  65 20 6e 6f 72 74 68 20  6f 66 20 74 68 65 20 63  |e north of the c|
0001a8d0  68 75 72 63 68 20 74 6f  20 74 68 65 20 73 6f 75  |hurch to the sou|
0001a8e0  74 68 2e 20 45 69 74 68  65 72 20 73 69 64 65 20  |th. Either side |
0001a8f0  6f 66 20 74 68 65 20 61  69 73 6c 65 20 61 72 65  |of the aisle are|
0001a900  20 74 68 65 20 70 65 77  73 2e 22 0d 71 7a 60 e7  | the pews.".qz`.|
0001a910  20 a7 69 24 2c 22 70 65  77 22 29 3e 30 20 74 24  | .i$,"pew")>0 t$|
0001a920  3d 22 54 68 65 20 70 65  77 73 20 61 72 65 20 74  |="The pews are t|
0001a930  68 65 20 73 65 61 74 73  20 69 6e 20 74 68 65 20  |he seats in the |
0001a940  63 68 75 72 63 68 2e 20  54 68 65 79 20 61 72 65  |church. They are|
0001a950  20 77 6f 6f 64 65 6e 20  61 6e 64 20 77 65 6c 6c  | wooden and well|
0001a960  20 70 6f 6c 69 73 68 65  64 2e 22 0d 71 84 05 cd  | polished.".q...|
0001a970  0d 71 8e 13 e7 20 72 6f  6f 6d 6e 6f 25 3d 33 30  |.q... roomno%=30|
0001a980  31 20 8c 0d 71 98 57 e7  20 a7 69 24 2c 22 77 6f  |1 ..q.W. .i$,"wo|
0001a990  6d 61 6e 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |man")>0 t$="The |
0001a9a0  77 6f 6d 61 6e 20 79 6f  75 6e 67 20 61 6e 64 20  |woman young and |
0001a9b0  76 65 72 79 20 73 68 6f  72 74 2e 20 53 68 65 20  |very short. She |
0001a9c0  77 61 69 74 73 20 62 65  68 69 6e 64 20 74 68 65  |waits behind the|
0001a9d0  20 63 6f 75 6e 74 65 72  2e 22 0d 71 a2 58 e7 20  | counter.".q.X. |
0001a9e0  a7 69 24 2c 22 63 6f 75  6e 74 65 72 22 29 3e 30  |.i$,"counter")>0|
0001a9f0  20 74 24 3d 22 54 68 65  20 63 6f 75 6e 74 65 72  | t$="The counter|
0001aa00  20 69 73 20 6c 6f 6e 67  20 61 6e 64 20 62 75 6c  | is long and bul|
0001aa10  6b 79 2e 20 42 65 68 69  6e 64 20 69 74 20 69 73  |ky. Behind it is|
0001aa20  20 74 68 65 20 79 6f 75  6e 67 20 77 6f 6d 61 6e  | the young woman|
0001aa30  2e 22 0d 71 ac 05 cd 0d  71 b6 13 e7 20 72 6f 6f  |.".q....q... roo|
0001aa40  6d 6e 6f 25 3d 33 30 32  20 8c 0d 71 c0 5f e7 20  |mno%=302 ..q._. |
0001aa50  a7 69 24 2c 22 63 65 69  6c 69 6e 67 22 29 3e 30  |.i$,"ceiling")>0|
0001aa60  20 74 24 3d 22 54 68 65  20 63 65 69 6c 69 6e 67  | t$="The ceiling|
0001aa70  20 69 73 20 65 6c 61 62  6f 72 61 74 65 6c 79 20  | is elaborately |
0001aa80  64 65 63 6f 72 61 74 65  64 20 61 6e 64 20 69 73  |decorated and is|
0001aa90  20 62 65 61 75 74 69 66  75 6c 20 74 6f 20 67 61  | beautiful to ga|
0001aaa0  7a 65 20 61 70 6f 6e 2e  22 0d 71 ca 6e e7 20 a7  |ze apon.".q.n. .|
0001aab0  69 24 2c 22 77 6f 6d 61  6e 22 29 3e 30 20 84 20  |i$,"woman")>0 . |
0001aac0  a7 69 24 2c 22 65 78 70  65 72 74 22 29 3e 30 20  |.i$,"expert")>0 |
0001aad0  74 24 3d 22 54 68 65 20  6f 6c 64 20 77 6f 6d 61  |t$="The old woma|
0001aae0  6e 20 69 73 20 76 65 72  79 20 77 72 69 6e 6b 6c  |n is very wrinkl|
0001aaf0  65 64 2e 20 53 68 65 20  6c 6f 6f 6b 73 20 6c 69  |ed. She looks li|
0001ab00  6b 65 20 61 6e 20 61 6e  74 69 71 75 65 73 20 65  |ke an antiques e|
0001ab10  78 70 65 72 74 2e 22 0d  71 d4 05 cd 0d 71 de 13  |xpert.".q....q..|
0001ab20  e7 20 72 6f 6f 6d 6e 6f  25 3d 33 30 33 20 8c 0d  |. roomno%=303 ..|
0001ab30  71 e8 5b e7 20 a7 69 24  2c 22 66 65 61 74 68 65  |q.[. .i$,"feathe|
0001ab40  72 22 29 3e 30 20 74 24  3d 22 54 68 65 20 66 65  |r")>0 t$="The fe|
0001ab50  61 74 68 65 72 20 69 73  20 6c 61 72 67 65 2c 20  |ather is large, |
0001ab60  62 75 74 20 79 6f 75 20  63 61 6e 6e 6f 74 20 74  |but you cannot t|
0001ab70  65 6c 6c 20 77 68 61 74  20 62 69 72 64 20 69 74  |ell what bird it|
0001ab80  20 69 73 20 66 72 6f 6d  2e 22 0d 71 f2 b5 e7 20  | is from.".q... |
0001ab90  a7 69 24 2c 22 70 69 63  74 75 72 65 22 29 3e 30  |.i$,"picture")>0|
0001aba0  20 84 20 a7 69 24 2c 22  70 61 69 6e 74 69 6e 67  | . .i$,"painting|
0001abb0  22 29 3e 30 20 74 24 3d  22 54 68 65 20 70 61 69  |")>0 t$="The pai|
0001abc0  6e 74 69 6e 67 20 69 73  20 61 20 73 6b 69 6c 6c  |nting is a skill|
0001abd0  65 64 20 70 69 65 63 65  20 6f 66 20 61 72 74 69  |ed piece of arti|
0001abe0  73 74 69 63 20 65 78 70  72 65 73 73 69 6f 6e 2e  |stic expression.|
0001abf0  20 49 74 20 73 68 6f 77  73 20 61 20 77 6f 6d 61  | It shows a woma|
0001ac00  6e 20 69 6e 20 65 69 67  68 74 65 65 6e 74 68 20  |n in eighteenth |
0001ac10  63 65 6e 74 75 72 79 20  64 72 65 73 73 2e 20 55  |century dress. U|
0001ac20  6e 64 65 72 20 74 68 65  20 70 61 69 6e 74 69 6e  |nder the paintin|
0001ac30  67 20 69 73 20 61 20 70  6c 61 71 75 65 2e 22 0d  |g is a plaque.".|
0001ac40  71 fc 50 e7 20 a7 69 24  2c 22 70 6c 61 71 75 65  |q.P. .i$,"plaque|
0001ac50  22 29 3e 30 20 74 24 3d  22 54 68 65 20 70 6c 61  |")>0 t$="The pla|
0001ac60  71 75 65 20 69 73 20 67  6f 6c 64 2d 70 6c 61 74  |que is gold-plat|
0001ac70  65 64 20 61 6e 64 20 68  61 73 20 73 6f 6d 65 20  |ed and has some |
0001ac80  77 72 69 74 69 6e 67 20  6f 6e 20 69 74 2e 22 0d  |writing on it.".|
0001ac90  72 06 05 cd 0d 72 10 13  e7 20 72 6f 6f 6d 6e 6f  |r....r... roomno|
0001aca0  25 3d 33 30 34 20 8c 0d  72 1a 6c e7 20 a7 69 24  |%=304 ..r.l. .i$|
0001acb0  2c 22 62 65 64 22 29 3e  30 20 74 24 3d 22 54 68  |,"bed")>0 t$="Th|
0001acc0  65 20 62 65 64 20 69 73  20 6f 66 20 74 68 65 20  |e bed is of the |
0001acd0  34 2d 70 6f 73 74 65 72  20 76 61 72 69 65 74 79  |4-poster variety|
0001ace0  20 61 6e 64 20 68 61 73  20 73 6f 6d 65 20 69 6d  | and has some im|
0001acf0  70 72 65 73 73 69 76 65  20 65 6d 62 72 6f 69 64  |pressive embroid|
0001ad00  65 72 79 20 6f 6e 20 74  68 65 20 66 61 62 72 69  |ery on the fabri|
0001ad10  63 2e 22 0d 72 24 4d e7  20 a7 69 24 2c 22 74 61  |c.".r$M. .i$,"ta|
0001ad20  62 6c 65 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |ble")>0 t$="The |
0001ad30  74 61 62 6c 65 20 69 73  20 65 6c 61 62 6f 72 61  |table is elabora|
0001ad40  74 65 6c 79 20 63 61 72  76 65 64 20 6f 75 74 20  |tely carved out |
0001ad50  6f 66 20 73 74 75 72 64  79 20 77 6f 6f 64 2e 22  |of sturdy wood."|
0001ad60  0d 72 2e 4f e7 20 a7 69  24 2c 22 63 68 61 69 72  |.r.O. .i$,"chair|
0001ad70  22 29 3e 30 20 74 24 3d  22 54 68 65 20 63 68 61  |")>0 t$="The cha|
0001ad80  69 72 73 20 61 72 65 20  65 6c 61 62 6f 72 61 74  |irs are elaborat|
0001ad90  65 6c 79 20 63 61 72 76  65 64 20 6f 75 74 20 6f  |ely carved out o|
0001ada0  66 20 73 74 75 72 64 79  20 77 6f 6f 64 2e 22 0d  |f sturdy wood.".|
0001adb0  72 38 05 cd 0d 72 42 13  e7 20 72 6f 6f 6d 6e 6f  |r8...rB.. roomno|
0001adc0  25 3d 33 30 35 20 8c 0d  72 4c 57 e7 20 a7 69 24  |%=305 ..rLW. .i$|
0001add0  2c 22 64 6f 6f 72 22 29  3e 30 20 74 24 3d 22 54  |,"door")>0 t$="T|
0001ade0  68 65 20 64 6f 6f 72 20  69 73 20 74 6f 20 74 68  |he door is to th|
0001adf0  65 20 73 6f 75 74 68 2e  20 49 74 20 68 61 73 20  |e south. It has |
0001ae00  73 6f 6d 65 20 6c 61 72  67 65 20 72 65 64 20 77  |some large red w|
0001ae10  72 69 74 69 6e 67 20 6f  6e 20 69 74 2e 22 0d 72  |riting on it.".r|
0001ae20  56 47 e7 20 a7 69 24 2c  22 67 75 61 72 64 22 29  |VG. .i$,"guard")|
0001ae30  3e 30 20 74 24 3d 22 54  68 65 20 74 69 72 65 64  |>0 t$="The tired|
0001ae40  2d 6c 6f 6f 6b 69 6e 67  20 67 75 61 72 64 20 69  |-looking guard i|
0001ae50  73 20 73 68 6f 72 74 2c  20 62 75 74 20 73 74 6f  |s short, but sto|
0001ae60  63 6b 79 2e 22 0d 72 60  05 cd 0d 72 6a 13 e7 20  |cky.".r`...rj.. |
0001ae70  72 6f 6f 6d 6e 6f 25 3d  33 30 36 20 8c 0d 72 74  |roomno%=306 ..rt|
0001ae80  35 e7 20 a7 69 24 2c 22  73 74 61 69 72 73 22 29  |5. .i$,"stairs")|
0001ae90  3e 30 20 74 24 3d 22 54  68 65 20 73 74 61 69 72  |>0 t$="The stair|
0001aea0  73 20 6c 65 61 64 20 64  6f 77 6e 77 61 72 64 73  |s lead downwards|
0001aeb0  2e 22 0d 72 7e 05 cd 0d  72 88 13 e7 20 72 6f 6f  |.".r~...r... roo|
0001aec0  6d 6e 6f 25 3d 33 30 37  20 8c 0d 72 92 33 e7 20  |mno%=307 ..r.3. |
0001aed0  a7 69 24 2c 22 73 74 61  69 72 73 22 29 3e 30 20  |.i$,"stairs")>0 |
0001aee0  74 24 3d 22 54 68 65 20  73 74 61 69 72 73 20 6c  |t$="The stairs l|
0001aef0  65 61 64 20 75 70 77 61  72 64 73 2e 22 0d 72 9c  |ead upwards.".r.|
0001af00  4d e7 20 a7 69 24 2c 22  6a 75 6e 6b 22 29 3e 30  |M. .i$,"junk")>0|
0001af10  20 74 24 3d 22 54 68 65  20 6a 75 6e 6b 20 6c 61  | t$="The junk la|
0001af20  79 73 20 61 63 72 6f 73  73 20 74 68 65 20 66 6c  |ys across the fl|
0001af30  6f 6f 72 2c 20 67 65 74  74 69 6e 67 20 69 6e 20  |oor, getting in |
0001af40  79 6f 75 72 20 77 61 79  2e 22 0d 72 a6 05 cd 0d  |your way.".r....|
0001af50  72 b0 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 33 30 38  |r... roomno%=308|
0001af60  20 8c 0d 72 ba 4d e7 20  a7 69 24 2c 22 6a 75 6e  | ..r.M. .i$,"jun|
0001af70  6b 22 29 3e 30 20 74 24  3d 22 54 68 65 20 6a 75  |k")>0 t$="The ju|
0001af80  6e 6b 20 6c 61 79 73 20  61 63 72 6f 73 73 20 74  |nk lays across t|
0001af90  68 65 20 66 6c 6f 6f 72  2c 20 67 65 74 74 69 6e  |he floor, gettin|
0001afa0  67 20 69 6e 20 79 6f 75  72 20 77 61 79 2e 22 0d  |g in your way.".|
0001afb0  72 c4 05 cd 0d 72 ce 13  e7 20 72 6f 6f 6d 6e 6f  |r....r... roomno|
0001afc0  25 3d 33 31 30 20 8c 0d  72 d8 3f e7 20 a7 69 24  |%=310 ..r.?. .i$|
0001afd0  2c 22 74 61 62 6c 65 22  29 3e 30 20 74 24 3d 22  |,"table")>0 t$="|
0001afe0  54 68 65 20 74 61 62 6c  65 20 69 73 20 77 6f 6f  |The table is woo|
0001aff0  64 65 6e 20 61 6e 64 20  6c 6f 6f 6b 73 20 73 74  |den and looks st|
0001b000  75 72 64 79 2e 22 0d 72  e2 74 e7 20 a7 69 24 2c  |urdy.".r.t. .i$,|
0001b010  22 77 6f 6d 61 6e 22 29  3e 30 20 84 20 a7 69 24  |"woman")>0 . .i$|
0001b020  2c 22 6d 65 64 69 75 6d  22 29 3e 30 20 74 24 3d  |,"medium")>0 t$=|
0001b030  22 54 68 65 20 6f 6c 64  20 77 6f 6d 61 6e 20 6c  |"The old woman l|
0001b040  6f 6f 6b 73 20 6c 69 6b  65 20 61 20 6d 65 64 69  |ooks like a medi|
0001b050  75 6d 2e 20 53 68 65 20  69 73 20 73 69 74 74 69  |um. She is sitti|
0001b060  6e 67 20 61 74 20 68 65  72 20 74 61 62 6c 65 20  |ng at her table |
0001b070  63 68 61 6e 74 69 6e 67  2e 22 0d 72 ec 05 cd 0d  |chanting.".r....|
0001b080  72 f6 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 33 31 31  |r... roomno%=311|
0001b090  20 8c 0d 73 00 43 e7 20  a7 69 24 2c 22 63 6c 6f  | ..s.C. .i$,"clo|
0001b0a0  75 64 22 29 3e 30 20 74  24 3d 22 54 68 65 20 63  |ud")>0 t$="The c|
0001b0b0  6c 6f 75 64 73 20 73 77  69 72 6c 20 61 62 6f 75  |louds swirl abou|
0001b0c0  74 20 69 6e 20 69 6e 74  65 72 6e 61 6c 20 63 68  |t in internal ch|
0001b0d0  61 6f 73 2e 22 0d 73 0a  4c e7 20 a7 69 24 2c 22  |aos.".s.L. .i$,"|
0001b0e0  6d 69 73 74 22 29 3e 30  20 74 24 3d 22 54 68 65  |mist")>0 t$="The|
0001b0f0  20 6d 69 73 74 20 66 61  64 65 73 20 69 6e 20 61  | mist fades in a|
0001b100  6e 64 20 6f 75 74 20 6f  66 20 76 69 65 77 2c 20  |nd out of view, |
0001b110  6d 65 73 6d 65 72 69 73  69 6e 67 20 79 6f 75 2e  |mesmerising you.|
0001b120  22 0d 73 14 05 cd 0d 73  1e 13 e7 20 72 6f 6f 6d  |".s....s... room|
0001b130  6e 6f 25 3d 33 31 32 20  8c 0d 73 28 55 e7 20 a7  |no%=312 ..s(U. .|
0001b140  69 24 2c 22 63 6f 75 6e  74 65 72 22 29 3e 30 20  |i$,"counter")>0 |
0001b150  74 24 3d 22 54 68 65 20  63 6f 75 6e 74 65 72 20  |t$="The counter |
0001b160  69 73 20 6c 6f 6e 67 20  61 6e 64 20 77 6f 6f 64  |is long and wood|
0001b170  65 6e 2e 20 42 65 68 69  6e 64 20 69 74 20 69 73  |en. Behind it is|
0001b180  20 61 20 79 6f 75 6e 67  20 6d 61 6e 2e 22 0d 73  | a young man.".s|
0001b190  32 44 e7 20 a7 69 24 2c  22 6d 61 6e 22 29 3e 30  |2D. .i$,"man")>0|
0001b1a0  20 74 24 3d 22 54 68 65  20 6d 61 6e 20 6c 6f 6f  | t$="The man loo|
0001b1b0  6b 73 20 6c 69 76 65 6c  79 20 61 6e 64 20 65 61  |ks lively and ea|
0001b1c0  67 65 72 20 74 6f 20 73  65 72 76 65 20 79 6f 75  |ger to serve you|
0001b1d0  2e 22 0d 73 3c 53 e7 20  a7 69 24 2c 22 6c 69 71  |.".s<S. .i$,"liq|
0001b1e0  75 69 64 22 29 3e 30 20  74 24 3d 22 54 68 65 20  |uid")>0 t$="The |
0001b1f0  6c 69 71 75 69 64 73 20  6c 69 6e 65 20 74 68 65  |liquids line the|
0001b200  20 72 6f 6f 6d 2e 20 54  68 65 79 20 61 72 65 20  | room. They are |
0001b210  61 6c 6c 20 76 61 72 69  6f 75 73 20 63 6f 6c 6f  |all various colo|
0001b220  75 72 73 2e 22 0d 73 46  05 cd 0d 73 50 94 e7 20  |urs.".sF...sP.. |
0001b230  a7 69 24 2c 22 68 61 6e  64 6b 65 72 63 68 69 65  |.i$,"handkerchie|
0001b240  66 22 29 3e 30 20 80 20  a4 67 6f 74 6f 72 68 65  |f")>0 . .gotorhe|
0001b250  72 65 28 22 68 61 6e 64  6b 65 72 63 68 69 65 66  |re("handkerchief|
0001b260  22 29 3d 31 20 74 24 3d  22 49 74 27 73 20 61 20  |")=1 t$="It's a |
0001b270  64 65 6c 69 63 61 74 65  20 73 69 6c 6b 20 68 61  |delicate silk ha|
0001b280  6e 64 6b 65 72 63 68 69  65 66 2c 20 63 61 72 65  |ndkerchief, care|
0001b290  66 75 6c 6c 79 20 6d 61  64 65 20 66 6f 72 20 6f  |fully made for o|
0001b2a0  6e 6c 79 20 74 68 65 20  72 69 63 68 65 73 74 20  |nly the richest |
0001b2b0  6f 66 20 63 75 73 74 6f  6d 65 72 73 2e 22 0d 73  |of customers.".s|
0001b2c0  5a 5a e7 20 a7 69 24 2c  22 6b 65 79 22 29 3e 30  |ZZ. .i$,"key")>0|
0001b2d0  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 6b  | . .gotorhere("k|
0001b2e0  65 79 22 29 3d 31 20 74  24 3d 22 49 74 27 73 20  |ey")=1 t$="It's |
0001b2f0  61 20 73 69 6c 76 65 72  20 6b 65 79 20 61 6e 64  |a silver key and|
0001b300  20 69 73 20 73 75 72 70  72 69 73 69 6e 67 6c 79  | is surprisingly|
0001b310  20 68 65 61 76 79 2e 22  0d 73 64 88 e7 20 a7 69  | heavy.".sd.. .i|
0001b320  24 2c 22 62 6f 6f 6b 22  29 3e 30 20 80 20 a4 67  |$,"book")>0 . .g|
0001b330  6f 74 6f 72 68 65 72 65  28 22 62 6f 6f 6b 22 29  |otorhere("book")|
0001b340  3d 31 20 74 24 3d 22 49  74 20 69 73 20 61 6e 20  |=1 t$="It is an |
0001b350  65 78 70 65 72 74 6c 79  20 62 6f 75 6e 64 20 62  |expertly bound b|
0001b360  6f 6f 6b 20 77 69 74 68  20 61 20 74 61 6e 6e 65  |ook with a tanne|
0001b370  64 20 6c 65 61 74 68 65  72 20 63 6f 76 65 72 2e  |d leather cover.|
0001b380  20 49 74 20 68 61 73 20  79 65 6c 6c 6f 77 69 6e  | It has yellowin|
0001b390  67 20 70 61 67 65 73 20  69 6e 73 69 64 65 2e 22  |g pages inside."|
0001b3a0  0d 73 6e 77 e7 20 a7 69  24 2c 22 70 69 6c 6c 22  |.snw. .i$,"pill"|
0001b3b0  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
0001b3c0  28 22 70 69 6c 6c 22 29  3d 31 20 74 24 3d 22 49  |("pill")=1 t$="I|
0001b3d0  74 20 69 73 20 73 6d 61  6c 6c 2c 20 64 75 73 74  |t is small, dust|
0001b3e0  79 20 61 6e 64 20 72 6f  75 6e 64 2e 20 59 6f 75  |y and round. You|
0001b3f0  20 70 72 65 73 75 6d 65  20 69 74 20 6d 75 73 74  | presume it must|
0001b400  20 62 65 20 61 20 73 6c  65 65 70 69 6e 67 20 74  | be a sleeping t|
0001b410  61 62 6c 65 74 2e 22 0d  73 78 85 e7 20 a7 69 24  |ablet.".sx.. .i$|
0001b420  2c 22 6e 6f 76 65 6c 22  29 3e 30 20 80 20 a4 67  |,"novel")>0 . .g|
0001b430  6f 74 6f 72 68 65 72 65  28 22 6e 6f 76 65 6c 22  |otorhere("novel"|
0001b440  29 3d 31 20 74 24 3d 22  54 68 65 20 6e 6f 76 65  |)=1 t$="The nove|
0001b450  6c 20 69 73 20 61 20 63  68 65 61 70 2c 20 73 65  |l is a cheap, se|
0001b460  63 6f 6e 64 2d 68 61 6e  64 20 62 6f 6f 6b 20 74  |cond-hand book t|
0001b470  68 61 74 20 6c 6f 6f 6b  73 20 61 73 20 69 66 20  |hat looks as if |
0001b480  69 74 20 68 61 73 20 62  65 65 6e 20 76 65 72 79  |it has been very|
0001b490  20 77 65 6c 6c 20 72 65  61 64 2e 22 0d 73 82 80  | well read.".s..|
0001b4a0  e7 20 a7 69 24 2c 22 74  72 75 63 6b 22 29 3e 30  |. .i$,"truck")>0|
0001b4b0  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 74  | . .gotorhere("t|
0001b4c0  72 75 63 6b 22 29 3d 31  20 74 24 3d 22 54 68 69  |ruck")=1 t$="Thi|
0001b4d0  73 20 74 6f 79 20 69 73  20 61 20 70 6c 61 73 74  |s toy is a plast|
0001b4e0  69 63 20 64 75 6d 70 65  72 2d 74 72 75 63 6b 20  |ic dumper-truck |
0001b4f0  61 6e 64 20 6c 6f 6f 6b  73 20 61 73 20 69 66 20  |and looks as if |
0001b500  69 74 20 68 61 73 20 68  61 72 64 6c 79 20 62 65  |it has hardly be|
0001b510  65 6e 20 74 6f 75 63 68  65 64 2e 22 0d 73 8c aa  |en touched.".s..|
0001b520  e7 20 a7 69 24 2c 22 64  6f 6c 6c 22 29 3e 30 20  |. .i$,"doll")>0 |
0001b530  80 20 a4 67 6f 74 6f 72  68 65 72 65 28 22 64 6f  |. .gotorhere("do|
0001b540  6c 6c 22 29 3d 31 20 74  24 3d 22 54 68 69 73 20  |ll")=1 t$="This |
0001b550  74 6f 79 20 75 73 65 64  20 74 6f 20 62 65 20 61  |toy used to be a|
0001b560  6e 20 65 78 74 72 65 6d  65 6c 79 20 65 6c 65 67  |n extremely eleg|
0001b570  61 6e 74 20 67 69 72 6c  27 73 20 74 6f 79 2c 20  |ant girl's toy, |
0001b580  62 75 74 20 6e 6f 77 20  69 74 20 6c 6f 6f 6b 73  |but now it looks|
0001b590  20 73 6c 69 67 68 74 6c  79 20 62 61 74 74 65 72  | slightly batter|
0001b5a0  65 64 20 77 69 74 68 20  61 20 6d 61 73 73 69 76  |ed with a massiv|
0001b5b0  65 20 69 6e 64 65 6e 74  20 6f 6e 20 69 74 73 20  |e indent on its |
0001b5c0  68 65 61 64 2e 22 0d 73  96 6b e7 20 a7 69 24 2c  |head.".s.k. .i$,|
0001b5d0  22 73 77 65 65 74 22 29  3e 30 20 80 20 a4 67 6f  |"sweet")>0 . .go|
0001b5e0  74 6f 72 68 65 72 65 28  22 73 77 65 65 74 22 29  |torhere("sweet")|
0001b5f0  3d 31 20 74 24 3d 22 54  68 65 20 73 77 65 65 74  |=1 t$="The sweet|
0001b600  20 6c 6f 6f 6b 73 20 65  64 69 62 6c 65 20 69 66  | looks edible if|
0001b610  20 79 6f 75 20 69 67 6e  6f 72 65 20 74 68 65 20  | you ignore the |
0001b620  6c 61 79 65 72 73 20 6f  66 20 66 6c 75 66 66 2e  |layers of fluff.|
0001b630  22 0d 73 a0 7b e7 20 a7  69 24 2c 22 62 65 61 72  |".s.{. .i$,"bear|
0001b640  22 29 3e 30 20 80 20 a4  67 6f 74 6f 72 68 65 72  |")>0 . .gotorher|
0001b650  65 28 22 62 65 61 72 22  29 3d 31 20 74 24 3d 22  |e("bear")=1 t$="|
0001b660  54 68 69 73 20 74 6f 79  20 69 73 20 6a 75 73 74  |This toy is just|
0001b670  20 73 6f 20 63 75 74 65  20 74 68 61 74 20 79 6f  | so cute that yo|
0001b680  75 20 77 61 6e 74 20 74  6f 20 70 69 63 6b 20 69  |u want to pick i|
0001b690  74 20 75 70 20 61 6e 64  20 63 75 64 64 6c 65 20  |t up and cuddle |
0001b6a0  69 74 20 66 6f 72 65 76  65 72 2e 22 0d 73 aa 9a  |it forever.".s..|
0001b6b0  e7 20 a7 69 24 2c 22 63  75 73 68 69 6f 6e 22 29  |. .i$,"cushion")|
0001b6c0  3e 30 20 80 20 a4 67 6f  74 6f 72 68 65 72 65 28  |>0 . .gotorhere(|
0001b6d0  22 63 75 73 68 69 6f 6e  22 29 3d 31 20 74 24 3d  |"cushion")=1 t$=|
0001b6e0  22 54 68 65 20 63 75 73  68 69 6f 6e 20 69 73 20  |"The cushion is |
0001b6f0  68 6f 72 72 69 62 6c 79  20 70 69 6e 6b 20 61 6e  |horribly pink an|
0001b700  64 20 6f 76 65 72 2d 64  65 63 6f 72 61 74 65 64  |d over-decorated|
0001b710  20 63 6f 6d 70 61 72 65  64 20 74 6f 20 74 68 65  | compared to the|
0001b720  20 70 69 65 63 65 20 6f  66 20 66 75 72 6e 69 74  | piece of furnit|
0001b730  75 72 65 20 69 74 20 75  73 65 64 20 74 6f 20 62  |ure it used to b|
0001b740  65 20 6f 6e 2e 22 0d 73  b4 5e e7 20 a7 69 24 2c  |e on.".s.^. .i$,|
0001b750  22 61 70 70 6c 65 22 29  3e 30 20 80 20 a4 67 6f  |"apple")>0 . .go|
0001b760  74 6f 72 68 65 72 65 28  22 61 70 70 6c 65 22 29  |torhere("apple")|
0001b770  3d 31 20 74 24 3d 22 54  68 65 20 61 70 70 6c 65  |=1 t$="The apple|
0001b780  20 69 73 20 6c 61 72 67  65 20 61 6e 64 20 6c 6f  | is large and lo|
0001b790  6f 6b 73 20 76 65 72 79  20 61 70 70 65 61 6c 69  |oks very appeali|
0001b7a0  6e 67 2e 22 0d 73 be 8d  e7 20 a7 69 24 2c 22 66  |ng.".s... .i$,"f|
0001b7b0  65 61 74 68 65 72 22 29  3e 30 20 80 20 a4 67 6f  |eather")>0 . .go|
0001b7c0  74 6f 72 68 65 72 65 28  22 66 65 61 74 68 65 72  |torhere("feather|
0001b7d0  22 29 3d 31 20 74 24 3d  22 54 68 65 20 66 65 61  |")=1 t$="The fea|
0001b7e0  74 68 65 72 20 69 73 20  71 75 69 74 65 20 6c 6f  |ther is quite lo|
0001b7f0  6e 67 20 61 6e 64 20 76  65 72 79 20 73 6f 66 74  |ng and very soft|
0001b800  20 74 6f 20 74 6f 75 63  68 2e 20 59 6f 75 20 63  | to touch. You c|
0001b810  61 6e 6e 6f 74 20 74 65  6c 6c 20 77 68 61 74 20  |annot tell what |
0001b820  62 69 72 64 20 69 74 20  69 73 20 66 72 6f 6d 2e  |bird it is from.|
0001b830  22 0d 73 c8 5c e7 20 a7  69 24 2c 22 63 61 6e 22  |".s.\. .i$,"can"|
0001b840  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
0001b850  28 22 63 61 6e 22 29 3d  31 20 74 24 3d 22 54 68  |("can")=1 t$="Th|
0001b860  65 20 63 61 6e 20 69 73  20 6d 61 64 65 20 6f 66  |e can is made of|
0001b870  20 6d 65 74 61 6c 20 61  6e 64 20 69 73 20 74 6f  | metal and is to|
0001b880  74 61 6c 6c 79 20 65 6d  70 74 79 2e 22 0d 73 d2  |tally empty.".s.|
0001b890  5e e7 20 a7 69 24 2c 22  77 68 65 65 6c 22 29 3e  |^. .i$,"wheel")>|
0001b8a0  30 20 80 20 a4 67 6f 74  6f 72 68 65 72 65 28 22  |0 . .gotorhere("|
0001b8b0  77 68 65 65 6c 22 29 3d  31 20 74 24 3d 22 54 68  |wheel")=1 t$="Th|
0001b8c0  65 20 77 68 65 65 6c 20  69 73 20 77 6f 6f 64 65  |e wheel is woode|
0001b8d0  6e 20 61 6e 64 20 69 73  20 73 6f 72 74 20 6f 66  |n and is sort of|
0001b8e0  20 72 6f 75 6e 64 69 73  68 2e 22 0d 73 dc 80 e7  | roundish.".s...|
0001b8f0  20 a7 69 24 2c 22 62 72  65 61 64 63 72 75 6d 62  | .i$,"breadcrumb|
0001b900  22 29 3e 30 20 80 20 a4  67 6f 74 6f 72 68 65 72  |")>0 . .gotorher|
0001b910  65 28 22 62 72 65 61 64  63 72 75 6d 62 22 29 3d  |e("breadcrumb")=|
0001b920  31 20 74 24 3d 22 54 68  65 20 62 72 65 61 64 63  |1 t$="The breadc|
0001b930  72 75 6d 62 20 69 73 20  6d 61 64 65 20 6f 75 74  |rumb is made out|
0001b940  20 6f 66 20 77 68 6f 6c  65 6d 65 61 6c 20 62 72  | of wholemeal br|
0001b950  65 61 64 20 61 6e 64 20  6c 6f 6f 6b 73 20 71 75  |ead and looks qu|
0001b960  69 74 65 20 63 6c 65 61  6e 2e 22 0d 73 e6 9b e7  |ite clean.".s...|
0001b970  20 a7 69 24 2c 22 6d 6f  75 73 65 22 29 3e 30 20  | .i$,"mouse")>0 |
0001b980  80 20 a4 67 6f 74 6f 72  68 65 72 65 28 22 6d 6f  |. .gotorhere("mo|
0001b990  75 73 65 22 29 3d 31 20  74 24 3d 22 54 68 65 20  |use")=1 t$="The |
0001b9a0  6d 6f 75 73 65 20 64 6f  65 73 6e 27 74 20 6c 6f  |mouse doesn't lo|
0001b9b0  6f 6b 20 64 61 6d 61 67  65 64 20 69 6e 20 61 6e  |ok damaged in an|
0001b9c0  79 20 77 61 79 2c 20 69  74 20 6d 75 73 74 20 68  |y way, it must h|
0001b9d0  61 76 65 20 6a 75 73 74  20 64 69 65 64 20 6f 66  |ave just died of|
0001b9e0  20 61 20 68 65 61 72 74  20 61 74 74 61 63 6b 20  | a heart attack |
0001b9f0  6f 72 20 73 6f 6d 65 74  68 69 6e 67 20 73 69 6d  |or something sim|
0001ba00  69 6c 61 72 2e 22 0d 73  f0 91 e7 20 a7 69 24 2c  |ilar.".s... .i$,|
0001ba10  22 62 6f 74 74 6c 65 22  29 3e 30 20 80 20 a4 67  |"bottle")>0 . .g|
0001ba20  6f 74 6f 72 68 65 72 65  28 22 62 6f 74 74 6c 65  |otorhere("bottle|
0001ba30  22 29 3d 31 20 80 20 66  69 72 65 25 3d 31 20 74  |")=1 . fire%=1 t|
0001ba40  24 3d 22 54 68 65 20 62  6f 74 74 6c 65 20 69 73  |$="The bottle is|
0001ba50  20 6d 61 64 65 20 6f 75  74 20 6f 66 20 67 72 65  | made out of gre|
0001ba60  65 6e 20 67 6c 61 73 73  20 61 6e 64 20 72 65 65  |en glass and ree|
0001ba70  6b 73 20 6f 66 20 6d 65  74 68 73 2e 20 49 74 20  |ks of meths. It |
0001ba80  66 65 65 6c 73 20 61 62  6f 75 74 20 68 61 6c 66  |feels about half|
0001ba90  2d 66 75 6c 6c 2e 22 0d  73 fa 68 e7 20 a7 69 24  |-full.".s.h. .i$|
0001baa0  2c 22 62 69 62 6c 65 22  29 3e 30 20 80 20 a4 67  |,"bible")>0 . .g|
0001bab0  6f 74 6f 72 68 65 72 65  28 22 62 69 62 6c 65 22  |otorhere("bible"|
0001bac0  29 3d 31 20 74 24 3d 22  54 68 65 20 62 69 62 6c  |)=1 t$="The bibl|
0001bad0  65 20 69 73 20 73 6d 61  6c 6c 2c 20 64 75 73 74  |e is small, dust|
0001bae0  79 20 61 6e 64 20 73 6d  65 6c 6c 73 20 61 73 20  |y and smells as |
0001baf0  6f 6c 64 20 62 69 62 6c  65 73 20 64 6f 2e 22 0d  |old bibles do.".|
0001bb00  74 04 7c e7 20 a7 69 24  2c 22 62 6c 6f 62 22 29  |t.|. .i$,"blob")|
0001bb10  3e 30 20 80 20 a4 67 6f  74 6f 72 68 65 72 65 28  |>0 . .gotorhere(|
0001bb20  22 62 6c 6f 62 22 29 3d  31 20 74 24 3d 22 54 68  |"blob")=1 t$="Th|
0001bb30  65 20 62 6c 6f 62 20 69  73 20 66 61 69 72 6c 79  |e blob is fairly|
0001bb40  20 66 69 72 6d 2c 20 62  75 74 20 76 65 72 79 20  | firm, but very |
0001bb50  6d 6f 75 6c 64 61 62 6c  65 2c 20 69 64 65 61 6c  |mouldable, ideal|
0001bb60  20 74 6f 20 6d 61 6b 65  20 69 6d 70 72 65 73 73  | to make impress|
0001bb70  69 6f 6e 73 20 77 69 74  68 2e 22 0d 74 0e 64 e7  |ions with.".t.d.|
0001bb80  20 a7 69 24 2c 22 6e 65  77 74 22 29 3e 30 20 80  | .i$,"newt")>0 .|
0001bb90  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 6e 65 77  | .gotorhere("new|
0001bba0  74 22 29 3d 31 20 74 24  3d 22 54 68 65 20 6e 65  |t")=1 t$="The ne|
0001bbb0  77 74 20 69 73 20 67 72  65 65 6e 20 61 6e 64 20  |wt is green and |
0001bbc0  73 6c 69 6d 79 2e 20 49  74 20 69 73 20 75 6e 64  |slimy. It is und|
0001bbd0  6f 75 62 74 61 62 6c 79  20 64 65 61 64 2e 22 0d  |oubtably dead.".|
0001bbe0  74 18 a2 e7 20 a7 69 24  2c 22 77 61 6e 64 22 29  |t... .i$,"wand")|
0001bbf0  3e 30 20 80 20 a4 67 6f  74 6f 72 68 65 72 65 28  |>0 . .gotorhere(|
0001bc00  22 77 61 6e 64 22 29 3d  31 20 74 24 3d 22 54 68  |"wand")=1 t$="Th|
0001bc10  65 20 77 61 6e 64 20 69  73 20 6d 61 64 65 20 6f  |e wand is made o|
0001bc20  66 20 73 6f 6d 65 20 73  6f 72 74 20 6f 66 20 75  |f some sort of u|
0001bc30  6e 72 65 63 6f 67 6e 69  73 61 62 6c 65 20 77 6f  |nrecognisable wo|
0001bc40  6f 64 2e 20 49 74 20 69  73 20 70 61 69 6e 74 65  |od. It is painte|
0001bc50  64 20 62 6c 61 63 6b 2c  20 77 69 74 68 20 77 68  |d black, with wh|
0001bc60  69 74 65 20 65 6e 64 73  20 6f 6e 20 2d 20 6a 75  |ite ends on - ju|
0001bc70  73 74 20 6c 69 6b 65 20  53 6f 6f 74 79 27 73 2e  |st like Sooty's.|
0001bc80  22 0d 74 22 58 e7 20 a7  69 24 2c 22 73 70 61 64  |".t"X. .i$,"spad|
0001bc90  65 22 29 3e 30 20 80 20  a4 67 6f 74 6f 72 68 65  |e")>0 . .gotorhe|
0001bca0  72 65 28 22 73 70 61 64  65 22 29 3d 31 20 74 24  |re("spade")=1 t$|
0001bcb0  3d 22 54 68 65 20 73 70  61 64 65 20 69 73 20 73  |="The spade is s|
0001bcc0  70 61 64 65 2d 6c 69 6b  65 2c 20 73 75 72 70 72  |pade-like, surpr|
0001bcd0  69 73 69 6e 67 6c 79 2e  22 0d 74 2c 73 e7 20 a7  |isingly.".t,s. .|
0001bce0  69 24 2c 22 6e 6f 74 65  22 29 3e 30 20 80 20 a4  |i$,"note")>0 . .|
0001bcf0  67 6f 74 6f 72 68 65 72  65 28 22 6e 6f 74 65 22  |gotorhere("note"|
0001bd00  29 3d 31 20 74 24 3d 22  54 68 65 20 6e 6f 74 65  |)=1 t$="The note|
0001bd10  20 69 73 20 6a 75 73 74  20 61 20 66 65 77 20 6c  | is just a few l|
0001bd20  69 6e 65 73 20 6f 66 20  73 63 72 69 62 62 6c 65  |ines of scribble|
0001bd30  20 6f 6e 20 61 20 70 69  65 63 65 20 6f 66 20 77  | on a piece of w|
0001bd40  68 69 74 65 20 70 61 70  65 72 2e 22 0d 74 36 99  |hite paper.".t6.|
0001bd50  e7 20 a7 69 24 2c 22 70  61 6d 70 68 6c 65 74 22  |. .i$,"pamphlet"|
0001bd60  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
0001bd70  28 22 70 61 6d 70 68 6c  65 74 22 29 3d 31 20 74  |("pamphlet")=1 t|
0001bd80  24 3d 22 54 68 65 20 70  61 6d 70 68 6c 65 74 20  |$="The pamphlet |
0001bd90  69 73 20 61 20 70 72 6f  66 65 73 73 69 6f 6e 61  |is a professiona|
0001bda0  6c 20 67 75 69 64 65 20  74 6f 20 70 6c 61 79 69  |l guide to playi|
0001bdb0  6e 67 20 73 6e 6f 6f 6b  65 72 2e 20 49 74 20 69  |ng snooker. It i|
0001bdc0  73 20 71 75 69 74 65 20  74 68 69 6e 2c 20 61 6e  |s quite thin, an|
0001bdd0  64 20 6c 6f 6f 6b 73 20  69 6e 74 65 72 65 73 74  |d looks interest|
0001bde0  69 6e 67 2e 22 0d 74 40  7c e7 20 a7 69 24 2c 22  |ing.".t@|. .i$,"|
0001bdf0  70 6c 61 6e 22 29 3e 30  20 80 20 a4 67 6f 74 6f  |plan")>0 . .goto|
0001be00  72 68 65 72 65 28 22 70  6c 61 6e 22 29 3d 31 20  |rhere("plan")=1 |
0001be10  74 24 3d 22 54 68 65 20  70 6c 61 6e 20 69 73 20  |t$="The plan is |
0001be20  61 20 70 69 65 63 65 20  6f 66 20 70 61 70 65 72  |a piece of paper|
0001be30  20 77 69 74 68 20 61 20  66 65 77 20 73 6b 65 74  | with a few sket|
0001be40  63 68 65 73 20 61 6e 64  20 61 20 66 65 77 20 6c  |ches and a few l|
0001be50  69 6e 65 73 20 6f 66 20  77 72 69 74 69 6e 67 2e  |ines of writing.|
0001be60  22 0d 74 4a 8a e7 20 a7  69 24 2c 22 6d 65 64 61  |".tJ.. .i$,"meda|
0001be70  6c 22 29 3e 30 20 80 20  a4 67 6f 74 6f 72 68 65  |l")>0 . .gotorhe|
0001be80  72 65 28 22 6d 65 64 61  6c 22 29 3d 31 20 74 24  |re("medal")=1 t$|
0001be90  3d 22 54 68 65 20 6d 65  64 61 6c 20 69 73 20 73  |="The medal is s|
0001bea0  6d 61 6c 6c 20 62 75 74  20 68 65 61 76 79 2e 20  |mall but heavy. |
0001beb0  4f 6e 20 69 74 20 69 73  20 65 6e 73 63 72 69 62  |On it is enscrib|
0001bec0  65 64 3a 20 43 61 72 6f  6c 2d 41 6e 6e 20 53 6d  |ed: Carol-Ann Sm|
0001bed0  69 74 68 65 2c 20 62 65  61 75 74 79 20 61 77 61  |ithe, beauty awa|
0001bee0  72 64 20 77 69 6e 6e 65  72 2e 22 0d 74 54 69 e7  |rd winner.".tTi.|
0001bef0  20 a7 69 24 2c 22 63 6f  69 6e 22 29 3e 30 20 80  | .i$,"coin")>0 .|
0001bf00  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 63 6f 69  | .gotorhere("coi|
0001bf10  6e 22 29 3d 31 20 74 24  3d 22 54 68 65 20 63 6f  |n")=1 t$="The co|
0001bf20  69 6e 20 69 73 20 63 69  72 63 75 6c 61 72 20 61  |in is circular a|
0001bf30  6e 64 20 6d 61 64 65 20  6f 66 20 61 20 73 69 6c  |nd made of a sil|
0001bf40  76 65 72 2d 63 6f 6c 6f  75 72 65 64 20 6d 65 74  |ver-coloured met|
0001bf50  61 6c 2e 22 0d 74 5e 54  e7 20 a7 69 24 2c 22 77  |al.".t^T. .i$,"w|
0001bf60  68 69 73 6b 79 22 29 3e  30 20 80 20 a4 67 6f 74  |hisky")>0 . .got|
0001bf70  6f 72 68 65 72 65 28 22  77 68 69 73 6b 79 22 29  |orhere("whisky")|
0001bf80  3d 31 20 74 24 3d 22 54  68 65 20 77 68 69 73 6b  |=1 t$="The whisk|
0001bf90  79 20 69 73 20 62 72 6f  77 6e 20 61 6e 64 20 6c  |y is brown and l|
0001bfa0  69 71 75 69 64 79 2e 22  0d 74 68 81 e7 20 a7 69  |iquidy.".th.. .i|
0001bfb0  24 2c 22 73 70 65 6c 6c  22 29 3e 30 20 80 20 a4  |$,"spell")>0 . .|
0001bfc0  67 6f 74 6f 72 68 65 72  65 28 22 73 70 65 6c 6c  |gotorhere("spell|
0001bfd0  22 29 3d 31 20 74 24 3d  22 54 68 65 20 73 70 65  |")=1 t$="The spe|
0001bfe0  6c 6c 20 69 73 20 6a 75  73 74 20 61 20 70 69 65  |ll is just a pie|
0001bff0  63 65 20 6f 66 20 79 65  6c 6c 6f 77 69 6e 67 20  |ce of yellowing |
0001c000  70 61 70 65 72 20 77 69  74 68 20 61 20 66 65 77  |paper with a few|
0001c010  20 63 6f 6d 70 6c 69 63  61 74 65 64 20 73 79 6d  | complicated sym|
0001c020  62 6f 6c 73 20 6f 6e 2e  22 0d 74 72 74 e7 20 a7  |bols on.".trt. .|
0001c030  69 24 2c 22 70 6f 74 69  6f 6e 22 29 3e 30 20 80  |i$,"potion")>0 .|
0001c040  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 70 6f 74  | .gotorhere("pot|
0001c050  69 6f 6e 22 29 3d 31 20  74 24 3d 22 54 68 65 20  |ion")=1 t$="The |
0001c060  70 6f 74 69 6f 6e 20 69  73 20 61 20 67 6c 61 73  |potion is a glas|
0001c070  73 20 62 6f 74 74 6c 65  20 77 69 74 68 20 61 20  |s bottle with a |
0001c080  67 72 65 65 6e 20 76 69  73 63 6f 75 73 20 6c 69  |green viscous li|
0001c090  71 75 69 64 20 69 6e 73  69 64 65 2e 22 0d 74 7c  |quid inside.".t||
0001c0a0  64 e7 20 a7 69 24 2c 22  62 6f 6e 65 22 29 3e 30  |d. .i$,"bone")>0|
0001c0b0  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 62  | . .gotorhere("b|
0001c0c0  6f 6e 65 22 29 3d 31 20  74 24 3d 22 54 68 65 20  |one")=1 t$="The |
0001c0d0  62 6f 6e 65 20 69 73 20  66 72 6f 6d 20 61 20 68  |bone is from a h|
0001c0e0  75 6d 61 6e 2c 20 69 74  20 69 73 20 70 72 6f 62  |uman, it is prob|
0001c0f0  61 62 6c 79 20 61 20 6c  65 67 20 62 6f 6e 65 2e  |ably a leg bone.|
0001c100  22 0d 74 86 70 e7 20 a7  69 24 2c 22 68 61 63 6b  |".t.p. .i$,"hack|
0001c110  73 61 77 22 29 3e 30 20  80 20 a4 67 6f 74 6f 72  |saw")>0 . .gotor|
0001c120  68 65 72 65 28 22 68 61  63 6b 73 61 77 22 29 3d  |here("hacksaw")=|
0001c130  31 20 74 24 3d 22 54 68  65 20 68 61 63 6b 73 61  |1 t$="The hacksa|
0001c140  77 20 69 73 20 61 20 73  6d 61 6c 6c 20 73 65 72  |w is a small ser|
0001c150  72 61 74 65 64 20 62 6c  61 64 65 20 77 69 74 68  |rated blade with|
0001c160  20 61 20 6c 61 72 67 65  20 68 61 6e 64 6c 65 2e  | a large handle.|
0001c170  22 0d 74 90 54 e7 20 a7  69 24 2c 22 63 75 70 22  |".t.T. .i$,"cup"|
0001c180  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
0001c190  28 22 63 75 70 22 29 3d  31 20 74 24 3d 22 54 68  |("cup")=1 t$="Th|
0001c1a0  65 20 63 75 70 20 69 73  20 6d 61 64 65 20 6f 66  |e cup is made of|
0001c1b0  20 63 68 69 6e 61 20 61  6e 64 20 69 73 20 77 68  | china and is wh|
0001c1c0  69 74 65 2e 22 0d 74 9a  97 e7 20 a7 69 24 2c 22  |ite.".t... .i$,"|
0001c1d0  63 75 65 22 29 3e 30 20  80 20 a4 67 6f 74 6f 72  |cue")>0 . .gotor|
0001c1e0  68 65 72 65 28 22 63 75  65 22 29 3d 31 20 74 24  |here("cue")=1 t$|
0001c1f0  3d 22 54 68 65 20 63 75  65 20 69 73 20 61 20 6c  |="The cue is a l|
0001c200  6f 6e 67 20 70 69 65 63  65 20 6f 66 20 63 72 61  |ong piece of cra|
0001c210  66 74 65 64 20 77 6f 6f  64 2c 20 77 69 74 68 20  |fted wood, with |
0001c220  61 20 6c 69 74 74 6c 65  20 63 68 61 6c 6b 65 64  |a little chalked|
0001c230  20 65 6e 64 20 6f 6e 20  69 74 2e 20 49 74 20 69  | end on it. It i|
0001c240  73 20 75 73 65 64 20 66  6f 72 20 70 6c 61 79 69  |s used for playi|
0001c250  6e 67 20 73 6e 6f 6f 6b  65 72 2e 22 0d 74 a4 61  |ng snooker.".t.a|
0001c260  e7 20 a7 69 24 2c 22 77  69 67 22 29 3e 30 20 80  |. .i$,"wig")>0 .|
0001c270  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 77 69 67  | .gotorhere("wig|
0001c280  22 29 3d 31 20 74 24 3d  22 54 68 65 20 77 69 67  |")=1 t$="The wig|
0001c290  20 69 73 20 61 20 72 65  61 6c 69 73 74 69 63 20  | is a realistic |
0001c2a0  61 69 64 20 74 6f 20 63  6f 76 65 72 69 6e 67 20  |aid to covering |
0001c2b0  75 70 20 62 61 6c 64 6e  65 73 73 2e 22 0d 74 ae  |up baldness.".t.|
0001c2c0  8b e7 20 a7 69 24 2c 22  62 61 64 67 65 22 29 3e  |.. .i$,"badge")>|
0001c2d0  30 20 80 20 a4 67 6f 74  6f 72 68 65 72 65 28 22  |0 . .gotorhere("|
0001c2e0  62 61 64 67 65 22 29 3d  31 20 74 24 3d 22 54 68  |badge")=1 t$="Th|
0001c2f0  65 20 62 61 64 67 65 20  69 73 20 61 20 70 69 65  |e badge is a pie|
0001c300  63 65 20 6f 66 20 6d 65  74 61 6c 20 77 69 74 68  |ce of metal with|
0001c310  20 61 20 70 69 6e 20 69  6e 20 74 68 65 20 62 61  | a pin in the ba|
0001c320  63 6b 2e 20 4f 6e 20 69  74 20 69 73 20 65 6e 73  |ck. On it is ens|
0001c330  63 72 69 62 65 64 2c 20  27 50 4f 4c 49 43 45 20  |cribed, 'POLICE |
0001c340  46 4f 52 43 45 27 2e 22  0d 74 b8 5b e7 20 a7 69  |FORCE'.".t.[. .i|
0001c350  24 2c 22 63 61 70 22 29  3e 30 20 80 20 a4 67 6f  |$,"cap")>0 . .go|
0001c360  74 6f 72 68 65 72 65 28  22 63 61 70 22 29 3d 31  |torhere("cap")=1|
0001c370  20 74 24 3d 22 54 68 65  20 63 61 70 20 69 73 20  | t$="The cap is |
0001c380  61 20 73 6d 61 72 74 2c  20 62 6c 75 65 20 63 6f  |a smart, blue co|
0001c390  6c 6f 75 72 65 64 20 70  6f 6c 69 63 65 20 63 61  |loured police ca|
0001c3a0  70 2e 22 0d 74 c2 a9 e7  20 a7 69 24 2c 22 70 6f  |p.".t... .i$,"po|
0001c3b0  73 74 65 72 22 29 3e 30  20 80 20 a4 67 6f 74 6f  |ster")>0 . .goto|
0001c3c0  72 68 65 72 65 28 22 70  6f 73 74 65 72 22 29 3d  |rhere("poster")=|
0001c3d0  31 20 74 24 3d 22 54 68  65 20 70 6f 73 74 65 72  |1 t$="The poster|
0001c3e0  20 68 61 73 20 61 20 66  65 77 20 69 6c 6c 75 73  | has a few illus|
0001c3f0  74 72 61 74 69 6f 6e 73  2c 20 73 79 6d 62 6f 6c  |trations, symbol|
0001c400  69 73 69 6e 67 20 67 72  65 61 74 20 70 6f 77 65  |ising great powe|
0001c410  72 2c 20 61 6e 64 20 74  68 65 20 77 6f 72 64 73  |r, and the words|
0001c420  20 27 42 4f 52 49 53 20  49 53 20 42 45 53 54 27  | 'BORIS IS BEST'|
0001c430  20 61 72 65 20 77 72 69  74 74 65 6e 20 61 74 20  | are written at |
0001c440  74 68 65 20 62 6f 74 74  6f 6d 2e 22 0d 74 cc 51  |the bottom.".t.Q|
0001c450  e7 20 a7 69 24 2c 22 6c  6f 6c 6c 79 22 29 3e 30  |. .i$,"lolly")>0|
0001c460  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 6c  | . .gotorhere("l|
0001c470  6f 6c 6c 79 22 29 3d 31  20 74 24 3d 22 54 68 65  |olly")=1 t$="The|
0001c480  20 6c 6f 6c 6c 79 20 69  73 20 6f 72 61 6e 67 65  | lolly is orange|
0001c490  20 61 6e 64 20 73 74 69  63 6b 79 2e 22 0d 74 d6  | and sticky.".t.|
0001c4a0  58 e7 20 a7 69 24 2c 22  61 73 70 69 72 69 6e 22  |X. .i$,"aspirin"|
0001c4b0  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
0001c4c0  28 22 61 73 70 69 72 69  6e 22 29 3d 31 20 74 24  |("aspirin")=1 t$|
0001c4d0  3d 22 54 68 65 20 61 73  70 69 72 69 6e 20 69 73  |="The aspirin is|
0001c4e0  20 63 69 72 63 75 6c 61  72 20 61 6e 64 20 77 68  | circular and wh|
0001c4f0  69 74 65 2e 22 0d 74 e0  82 e7 20 a7 69 24 2c 22  |ite.".t... .i$,"|
0001c500  62 6f 74 74 6c 65 22 29  3e 30 20 80 20 a4 67 6f  |bottle")>0 . .go|
0001c510  74 6f 72 68 65 72 65 28  22 62 6f 74 74 6c 65 22  |torhere("bottle"|
0001c520  29 3d 31 20 80 20 66 69  72 65 25 3d 30 20 74 24  |)=1 . fire%=0 t$|
0001c530  3d 22 54 68 65 20 62 6f  74 74 6c 65 20 69 73 20  |="The bottle is |
0001c540  62 72 6f 77 6e 2c 20 61  6e 64 20 6f 6e 20 69 74  |brown, and on it|
0001c550  20 69 73 20 61 20 6c 61  62 65 6c 20 77 68 69 63  | is a label whic|
0001c560  68 20 72 65 61 64 73 3b  20 27 50 45 4e 49 43 49  |h reads; 'PENICI|
0001c570  4c 4c 49 4e 27 2e 22 0d  74 ea 98 e7 20 a7 69 24  |LLIN'.".t... .i$|
0001c580  2c 22 67 72 61 76 65 73  74 6f 6e 65 22 29 3e 30  |,"gravestone")>0|
0001c590  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 67  | . .gotorhere("g|
0001c5a0  72 61 76 65 73 74 6f 6e  65 22 29 3d 31 20 74 24  |ravestone")=1 t$|
0001c5b0  3d 22 54 68 65 20 67 72  61 76 65 73 74 6f 6e 65  |="The gravestone|
0001c5c0  2c 20 6f 72 20 74 68 65  20 63 68 75 6e 6b 20 6f  |, or the chunk o|
0001c5d0  66 20 69 74 2c 20 69 73  20 76 65 72 79 20 6f 6c  |f it, is very ol|
0001c5e0  64 20 61 6e 64 20 74 68  65 20 77 72 69 74 69 6e  |d and the writin|
0001c5f0  67 20 6f 6e 20 69 74 20  69 73 20 6e 6f 20 6c 6f  |g on it is no lo|
0001c600  6e 67 65 72 20 72 65 61  64 61 62 6c 65 2e 22 0d  |nger readable.".|
0001c610  74 f4 66 e7 20 a7 69 24  2c 22 66 6c 61 6e 6e 65  |t.f. .i$,"flanne|
0001c620  6c 22 29 3e 30 20 80 20  a4 67 6f 74 6f 72 68 65  |l")>0 . .gotorhe|
0001c630  72 65 28 22 66 6c 61 6e  6e 65 6c 22 29 3d 31 20  |re("flannel")=1 |
0001c640  74 24 3d 22 54 68 65 20  64 72 69 70 70 69 6e 67  |t$="The dripping|
0001c650  20 66 6c 61 6e 6e 65 6c  20 69 73 20 64 61 72 6b  | flannel is dark|
0001c660  20 62 6c 75 65 20 61 6e  64 20 76 65 72 79 20 64  | blue and very d|
0001c670  61 6d 70 2e 22 0d 74 fe  69 e7 20 a7 69 24 2c 22  |amp.".t.i. .i$,"|
0001c680  66 6c 6f 77 65 72 22 29  3e 30 20 80 20 a4 67 6f  |flower")>0 . .go|
0001c690  74 6f 72 68 65 72 65 28  22 66 6c 6f 77 65 72 22  |torhere("flower"|
0001c6a0  29 3d 31 20 74 24 3d 22  54 68 65 20 66 6c 6f 77  |)=1 t$="The flow|
0001c6b0  65 72 20 69 73 20 62 6c  75 65 20 61 6e 64 20 73  |er is blue and s|
0001c6c0  6d 61 6c 6c 2e 20 49 74  20 73 6d 65 6c 6c 73 20  |mall. It smells |
0001c6d0  72 61 74 68 65 72 20 73  77 65 65 74 2e 22 0d 75  |rather sweet.".u|
0001c6e0  08 9b e7 20 a7 69 24 2c  22 62 6f 75 71 75 65 74  |... .i$,"bouquet|
0001c6f0  22 29 3e 30 20 80 20 a4  67 6f 74 6f 72 68 65 72  |")>0 . .gotorher|
0001c700  65 28 22 62 6f 75 71 75  65 74 22 29 3d 31 20 74  |e("bouquet")=1 t|
0001c710  24 3d 22 54 68 65 20 62  6f 75 71 75 65 74 20 69  |$="The bouquet i|
0001c720  73 20 6c 61 72 67 65 20  61 6e 64 20 66 6c 61 6d  |s large and flam|
0001c730  62 6f 79 61 6e 74 2e 20  54 68 65 20 76 61 73 74  |boyant. The vast|
0001c740  20 72 61 6e 67 65 20 6f  66 20 66 6c 6f 77 65 72  | range of flower|
0001c750  73 20 69 6e 20 69 74 20  6d 61 6b 65 20 69 74 20  |s in it make it |
0001c760  6c 6f 6f 6b 20 72 61 74  68 65 72 20 73 70 65 63  |look rather spec|
0001c770  74 61 63 75 6c 61 72 2e  22 0d 75 12 83 e7 20 a7  |tacular.".u... .|
0001c780  69 24 2c 22 6f 72 6e 61  6d 65 6e 74 22 29 3e 30  |i$,"ornament")>0|
0001c790  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 6f  | . .gotorhere("o|
0001c7a0  72 6e 61 6d 65 6e 74 22  29 3d 31 20 74 24 3d 22  |rnament")=1 t$="|
0001c7b0  54 68 65 20 6f 72 6e 61  6d 65 6e 74 20 69 73 20  |The ornament is |
0001c7c0  6f 6c 64 20 61 6e 64 20  64 65 6c 69 63 61 74 65  |old and delicate|
0001c7d0  2e 20 49 74 20 69 73 20  69 6e 20 74 68 65 20 73  |. It is in the s|
0001c7e0  68 61 70 65 20 6f 66 20  73 6f 6d 65 20 47 72 65  |hape of some Gre|
0001c7f0  65 6b 20 47 6f 64 64 65  73 73 2e 22 0d 75 1c a6  |ek Goddess.".u..|
0001c800  e7 20 a7 69 24 2c 22 70  65 6e 6b 6e 69 66 65 22  |. .i$,"penknife"|
0001c810  29 3e 30 20 80 20 a4 67  6f 74 6f 72 68 65 72 65  |)>0 . .gotorhere|
0001c820  28 22 70 65 6e 6b 6e 69  66 65 22 29 3d 31 20 74  |("penknife")=1 t|
0001c830  24 3d 22 54 68 65 20 76  69 62 72 61 6e 74 2c 20  |$="The vibrant, |
0001c840  72 65 64 2c 20 53 77 69  73 73 20 41 72 6d 79 20  |red, Swiss Army |
0001c850  70 65 6e 6b 6e 69 66 65  20 68 61 73 20 6f 70 65  |penknife has ope|
0001c860  6e 20 62 6c 61 64 65 20  61 6c 72 65 61 64 79 2e  |n blade already.|
0001c870  20 49 74 20 63 6f 75 6c  64 20 63 75 74 20 79 6f  | It could cut yo|
0001c880  75 20 65 61 73 69 6c 79  20 69 66 20 79 6f 75 20  |u easily if you |
0001c890  77 65 72 65 20 6e 6f 74  20 63 61 72 65 66 75 6c  |were not careful|
0001c8a0  2e 22 0d 75 26 c7 e7 20  a7 69 24 2c 22 70 75 72  |.".u&.. .i$,"pur|
0001c8b0  73 65 22 29 3e 30 20 80  20 a4 67 6f 74 6f 72 68  |se")>0 . .gotorh|
0001c8c0  65 72 65 28 22 70 75 72  73 65 22 29 3d 31 20 74  |ere("purse")=1 t|
0001c8d0  24 3d 22 54 68 65 20 70  75 72 73 65 20 69 73 20  |$="The purse is |
0001c8e0  62 6c 61 63 6b 20 61 6e  64 20 73 6d 61 6c 6c 2e  |black and small.|
0001c8f0  20 54 68 65 20 7a 69 70  20 6f 6e 20 69 74 20 69  | The zip on it i|
0001c900  73 20 73 74 75 63 6b 2c  20 61 6e 64 20 73 65 65  |s stuck, and see|
0001c910  6d 73 20 69 6d 70 6f 73  73 69 62 6c 65 20 74 6f  |ms impossible to|
0001c920  20 6f 70 65 6e 2c 20 79  65 74 20 79 6f 75 20 63  | open, yet you c|
0001c930  61 6e 20 68 65 61 72 20  73 6f 6d 65 20 6d 6f 6e  |an hear some mon|
0001c940  65 79 20 6a 69 6e 67 6c  65 20 61 62 6f 75 74 20  |ey jingle about |
0001c950  69 6e 20 69 74 20 77 68  6e 65 20 79 6f 75 20 73  |in it whne you s|
0001c960  68 61 6b 65 20 69 74 2e  22 0d 75 30 b7 e7 20 a7  |hake it.".u0.. .|
0001c970  69 24 2c 22 70 72 65 73  63 72 69 70 74 69 6f 6e  |i$,"prescription|
0001c980  22 29 3e 30 20 80 20 a4  67 6f 74 6f 72 68 65 72  |")>0 . .gotorher|
0001c990  65 28 22 70 72 65 73 63  72 69 70 74 69 6f 6e 22  |e("prescription"|
0001c9a0  29 3d 31 20 74 24 3d 22  54 68 65 20 70 72 65 73  |)=1 t$="The pres|
0001c9b0  63 72 69 70 74 69 6f 6e  20 69 73 20 61 20 73 68  |cription is a sh|
0001c9c0  65 65 74 20 6f 66 20 70  61 70 65 72 20 77 68 69  |eet of paper whi|
0001c9d0  63 68 20 68 61 73 20 73  6f 6d 65 20 77 72 69 74  |ch has some writ|
0001c9e0  69 6e 67 20 6f 6e 20 69  74 2e 20 49 74 20 73 65  |ing on it. It se|
0001c9f0  65 6d 73 20 75 6e 72 65  61 64 61 62 6c 65 2c 20  |ems unreadable, |
0001ca00  62 75 74 20 74 68 65 6e  20 6d 6f 73 74 20 70 72  |but then most pr|
0001ca10  65 73 63 72 69 70 74 69  6f 6e 73 20 64 6f 2e 22  |escriptions do."|
0001ca20  0d 75 3a 8f e7 20 a7 69  24 2c 22 63 68 65 71 75  |.u:.. .i$,"chequ|
0001ca30  65 22 29 3e 30 20 80 20  a4 67 6f 74 6f 72 68 65  |e")>0 . .gotorhe|
0001ca40  72 65 28 22 63 68 65 71  75 65 22 29 3d 31 20 74  |re("cheque")=1 t|
0001ca50  24 3d 22 54 68 65 20 63  68 65 71 75 65 20 69 73  |$="The cheque is|
0001ca60  20 62 6c 61 6e 6b 20 65  78 63 65 70 74 20 66 6f  | blank except fo|
0001ca70  72 20 74 68 65 20 73 69  67 6e 69 74 75 72 65 2e  |r the signiture.|
0001ca80  20 53 6f 6d 65 6f 6e 65  20 68 61 73 20 62 65 65  | Someone has bee|
0001ca90  6e 20 76 65 72 79 20 66  6f 6f 6c 69 73 68 20 69  |n very foolish i|
0001caa0  6e 20 6c 6f 73 69 6e 67  20 74 68 61 74 21 22 0d  |n losing that!".|
0001cab0  75 44 0c f2 61 64 64 28  74 24 29 0d 75 4e 05 e1  |uD..add(t$).uN..|
0001cac0  0d 75 58 04 0d 75 62 14  dd f2 77 68 61 74 67 6f  |.uX..ub...whatgo|
0001cad0  74 28 6f 62 6a 74 24 29  0d 75 6c 24 74 24 3d 22  |t(objt$).ul$t$="|
0001cae0  59 6f 75 20 6e 6f 77 20  68 61 76 65 20 74 68 65  |You now have the|
0001caf0  20 22 2b 6f 62 6a 74 24  2b 22 2e 22 0d 75 76 0e  | "+objt$+".".uv.|
0001cb00  c8 8e 20 6f 62 6a 74 24  20 ca 0d 75 80 ae 20 20  |.. objt$ ..u..  |
0001cb10  c9 20 22 68 61 6e 64 6b  65 72 63 68 69 65 66 22  |. "handkerchief"|
0001cb20  20 3a 20 e7 20 72 6f 6f  6d 6e 6f 25 3d 31 20 74  | : . roomno%=1 t|
0001cb30  24 3d 22 59 6f 75 20 70  69 63 6b 20 75 70 20 74  |$="You pick up t|
0001cb40  68 65 20 64 65 6c 69 63  61 74 65 20 73 69 6c 6b  |he delicate silk|
0001cb50  20 68 61 6e 64 6b 65 72  63 68 69 65 66 20 66 72  | handkerchief fr|
0001cb60  6f 6d 20 74 68 65 20 70  61 76 65 6d 65 6e 74 2c  |om the pavement,|
0001cb70  20 77 69 70 65 20 69 74  20 63 6c 65 61 6e 20 77  | wipe it clean w|
0001cb80  69 74 68 20 79 6f 75 72  20 73 6c 65 65 76 65 2c  |ith your sleeve,|
0001cb90  20 61 6e 64 20 70 6c 61  63 65 20 69 74 20 63 61  | and place it ca|
0001cba0  72 65 66 75 6c 6c 79 20  69 6e 20 79 6f 75 72 20  |refully in your |
0001cbb0  70 6f 63 6b 65 74 2e 22  0d 75 8a 6f 20 20 c9 20  |pocket.".u.o  . |
0001cbc0  22 61 70 70 6c 65 22 20  3a 20 74 24 3d 22 59 6f  |"apple" : t$="Yo|
0001cbd0  75 20 70 69 63 6b 20 75  70 20 74 68 65 20 61 70  |u pick up the ap|
0001cbe0  70 6c 65 2c 20 73 68 69  6e 65 20 69 74 20 61 20  |ple, shine it a |
0001cbf0  6c 69 74 74 6c 65 20 77  69 74 68 20 79 6f 75 72  |little with your|
0001cc00  20 73 6c 65 65 76 65 2c  20 74 68 65 6e 20 70 6c  | sleeve, then pl|
0001cc10  61 63 65 20 69 74 20 69  6e 20 79 6f 75 72 20 70  |ace it in your p|
0001cc20  6f 63 6b 65 74 2e 22 0d  75 94 65 20 20 c9 20 22  |ocket.".u.e  . "|
0001cc30  6d 6f 75 73 65 22 20 3a  20 74 24 3d 22 59 6f 75  |mouse" : t$="You|
0001cc40  20 63 61 72 65 66 75 6c  6c 79 20 70 69 63 6b 20  | carefully pick |
0001cc50  75 70 20 74 68 65 20 6d  6f 75 73 65 2c 20 79 6f  |up the mouse, yo|
0001cc60  75 20 72 65 6c 61 78 20  61 73 20 73 6f 6f 6e 20  |u relax as soon |
0001cc70  61 73 20 79 6f 75 20 73  65 65 20 74 68 61 74 20  |as you see that |
0001cc80  69 74 20 69 73 20 64 65  61 64 2e 22 0d 75 9e 43  |it is dead.".u.C|
0001cc90  20 20 c9 20 22 63 61 70  22 20 3a 20 74 24 3d 22  |  . "cap" : t$="|
0001cca0  59 6f 75 20 70 69 63 6b  20 75 70 20 74 68 65 20  |You pick up the |
0001ccb0  63 61 70 20 61 6e 64 20  70 6c 61 63 65 20 69 74  |cap and place it|
0001ccc0  20 6f 6e 20 79 6f 75 72  20 68 65 61 64 2e 22 0d  | on your head.".|
0001ccd0  75 a8 3b 20 20 c9 20 22  62 61 64 67 65 22 20 3a  |u.;  . "badge" :|
0001cce0  20 74 24 3d 22 59 6f 75  20 70 69 6e 20 74 68 65  | t$="You pin the|
0001ccf0  20 62 61 64 67 65 20 6f  6e 74 6f 20 79 6f 75 72  | badge onto your|
0001cd00  20 63 6c 6f 74 68 65 73  2e 22 0d 75 b2 3d 20 20  | clothes.".u.=  |
0001cd10  c9 20 22 77 69 67 22 20  3a 20 74 24 3d 22 59 6f  |. "wig" : t$="Yo|
0001cd20  75 20 70 6c 61 63 65 20  74 68 65 20 77 69 67 20  |u place the wig |
0001cd30  6f 76 65 72 20 79 6f 75  72 20 6e 6f 72 6d 61 6c  |over your normal|
0001cd40  20 68 61 69 72 2e 22 0d  75 bc 5b 20 20 c9 20 22  | hair.".u.[  . "|
0001cd50  66 6c 61 6e 6e 65 6c 22  20 3a 20 74 24 3d 22 59  |flannel" : t$="Y|
0001cd60  6f 75 20 70 69 63 6b 20  75 70 20 74 68 65 20 77  |ou pick up the w|
0001cd70  65 74 20 66 6c 61 6e 6e  65 6c 2c 20 73 6f 6d 65  |et flannel, some|
0001cd80  20 6f 66 20 74 68 65 20  77 61 74 65 72 20 72 75  | of the water ru|
0001cd90  6e 73 20 64 6f 77 6e 20  79 6f 75 72 20 61 72 6d  |ns down your arm|
0001cda0  2e 22 0d 75 c6 70 20 20  c9 20 22 70 65 6e 6b 6e  |.".u.p  . "penkn|
0001cdb0  69 66 65 22 20 3a 20 74  24 3d 22 59 6f 75 20 67  |ife" : t$="You g|
0001cdc0  72 61 62 20 74 68 65 20  70 65 6e 6b 6e 69 66 65  |rab the penknife|
0001cdd0  2c 20 62 75 74 20 74 6f  6f 20 71 75 69 63 6b 6c  |, but too quickl|
0001cde0  79 2e 20 59 6f 75 20 63  75 74 20 79 6f 75 72 20  |y. You cut your |
0001cdf0  68 61 6e 64 20 6f 6e 20  74 68 65 20 6f 70 65 6e  |hand on the open|
0001ce00  20 62 6c 61 64 65 2e 22  3a 69 6e 6a 75 72 65 25  | blade.":injure%|
0001ce10  3d 31 0d 75 d0 05 cb 0d  75 da 0c f2 61 64 64 28  |=1.u....u...add(|
0001ce20  74 24 29 0d 75 e4 05 e1  0d 75 ee 04 0d 75 f8 0c  |t$).u....u...u..|
0001ce30  dd f2 75 6e 6c 6f 63 6b  0d 76 02 3a e7 20 a7 69  |..unlock.v.:. .i|
0001ce40  24 2c 22 67 61 74 65 22  29 3e 30 20 f2 61 64 64  |$,"gate")>0 .add|
0001ce50  28 22 54 68 65 20 67 61  74 65 73 20 61 72 65 20  |("The gates are |
0001ce60  66 69 72 6d 6c 79 20 62  6f 6c 74 65 64 2e 22 29  |firmly bolted.")|
0001ce70  3a e1 0d 76 0c 35 e7 20  a7 69 24 2c 22 64 6f 6f  |:..v.5. .i$,"doo|
0001ce80  72 22 29 3d 30 20 f2 61  64 64 28 22 59 6f 75 20  |r")=0 .add("You |
0001ce90  63 61 6e 6e 6f 74 20 75  6e 6c 6f 63 6b 20 74 68  |cannot unlock th|
0001cea0  61 74 21 22 29 3a e1 0d  76 16 39 e7 20 72 6f 6f  |at!"):..v.9. roo|
0001ceb0  6d 6e 6f 25 3d 33 30 35  20 f2 61 64 64 28 22 54  |mno%=305 .add("T|
0001cec0  68 65 20 64 6f 6f 72 20  69 73 20 61 6c 72 65 61  |he door is alrea|
0001ced0  64 79 20 75 6e 6c 6f 63  6b 65 64 2e 22 29 3a e1  |dy unlocked."):.|
0001cee0  0d 76 20 45 e7 20 72 6f  6f 6d 6e 6f 25 3c 3e 32  |.v E. roomno%<>2|
0001cef0  20 80 20 72 6f 6f 6d 6e  6f 25 3c 3e 31 37 39 20  | . roomno%<>179 |
0001cf00  f2 61 64 64 28 22 54 68  65 72 65 20 69 73 20 6e  |.add("There is n|
0001cf10  6f 74 68 69 6e 67 20 74  6f 20 75 6e 6c 6f 63 6b  |othing to unlock|
0001cf20  2e 22 29 3a e1 0d 76 2a  4d e7 20 a4 67 6f 74 6f  |."):..v*M. .goto|
0001cf30  72 68 65 72 65 28 22 6b  65 79 22 29 3d 30 20 f2  |rhere("key")=0 .|
0001cf40  61 64 64 28 22 59 6f 75  20 68 61 76 65 20 6e 6f  |add("You have no|
0001cf50  74 68 69 6e 67 20 74 6f  20 75 6e 6c 6f 63 6b 20  |thing to unlock |
0001cf60  74 68 65 20 64 6f 6f 72  20 77 69 74 68 2e 22 29  |the door with.")|
0001cf70  3a e1 0d 76 34 48 e7 20  72 6f 6f 6d 6e 6f 25 3d  |:..v4H. roomno%=|
0001cf80  32 20 80 20 65 78 69 74  73 28 32 2c 32 29 3d 33  |2 . exits(2,2)=3|
0001cf90  20 f2 61 64 64 28 22 54  68 65 20 64 6f 6f 72 20  | .add("The door |
0001cfa0  69 73 20 61 6c 6c 20 72  65 61 64 79 20 75 6e 6c  |is all ready unl|
0001cfb0  6f 63 6b 65 64 2e 22 29  3a e1 0d 76 3e 87 e7 20  |ocked."):..v>.. |
0001cfc0  72 6f 6f 6d 6e 6f 25 3d  32 20 f2 61 64 64 28 22  |roomno%=2 .add("|
0001cfd0  59 6f 75 20 70 75 74 20  74 68 65 20 6b 65 79 20  |You put the key |
0001cfe0  69 6e 74 6f 20 74 68 65  20 6c 6f 63 6b 20 61 6e  |into the lock an|
0001cff0  64 20 74 75 72 6e 20 63  61 72 65 66 75 6c 6c 79  |d turn carefully|
0001d000  2e 20 54 68 65 20 64 6f  6f 72 20 73 77 69 6e 67  |. The door swing|
0001d010  73 20 6f 70 65 6e 2e 22  29 3a 65 78 69 74 73 28  |s open."):exits(|
0001d020  32 2c 32 29 3d 33 3a 77  69 6d 70 25 21 30 3d 6d  |2,2)=3:wimp%!0=m|
0001d030  61 70 68 61 6e 25 3a f2  72 65 64 72 61 77 6d 61  |aphan%:.redrawma|
0001d040  70 0d 76 48 4d e7 20 72  6f 6f 6d 6e 6f 25 3d 31  |p.vHM. roomno%=1|
0001d050  37 39 20 80 20 65 78 69  74 73 28 31 37 39 2c 31  |79 . exits(179,1|
0001d060  29 3d 31 35 20 f2 61 64  64 28 22 54 68 65 20 64  |)=15 .add("The d|
0001d070  6f 6f 72 20 69 73 20 61  6c 6c 20 72 65 61 64 79  |oor is all ready|
0001d080  20 75 6e 6c 6f 63 6b 65  64 2e 22 29 3a e1 0d 76  | unlocked."):..v|
0001d090  52 94 e7 20 72 6f 6f 6d  6e 6f 25 3d 31 37 39 20  |R.. roomno%=179 |
0001d0a0  f2 61 64 64 28 22 59 6f  75 20 70 75 74 20 74 68  |.add("You put th|
0001d0b0  65 20 6b 65 79 20 69 6e  74 6f 20 74 68 65 20 6c  |e key into the l|
0001d0c0  6f 63 6b 20 61 6e 64 20  74 75 72 6e 20 63 61 72  |ock and turn car|
0001d0d0  65 66 75 6c 6c 79 2e 20  54 68 65 20 64 6f 6f 72  |efully. The door|
0001d0e0  20 73 77 69 6e 67 73 20  6f 70 65 6e 2e 22 29 3a  | swings open."):|
0001d0f0  65 78 69 74 73 28 31 37  39 2c 31 29 3d 31 35 3a  |exits(179,1)=15:|
0001d100  f2 72 65 6d 6b 65 79 3a  77 69 6d 70 25 21 30 3d  |.remkey:wimp%!0=|
0001d110  6d 61 70 68 61 6e 25 3a  f2 72 65 64 72 61 77 6d  |maphan%:.redrawm|
0001d120  61 70 0d 76 5c 05 e1 0d  76 66 04 0d 76 70 0a dd  |ap.v\...vf..vp..|
0001d130  f2 6c 6f 63 6b 0d 76 7a  3b e7 20 a7 69 24 2c 22  |.lock.vz;. .i$,"|
0001d140  67 61 74 65 22 29 3e 30  20 f2 61 64 64 28 22 54  |gate")>0 .add("T|
0001d150  68 65 20 67 61 74 65 73  20 61 72 65 20 61 6c 72  |he gates are alr|
0001d160  65 61 64 79 20 62 6f 6c  74 65 64 2e 22 29 3a e1  |eady bolted."):.|
0001d170  0d 76 84 33 e7 20 a7 69  24 2c 22 64 6f 6f 72 22  |.v.3. .i$,"door"|
0001d180  29 3d 30 20 f2 61 64 64  28 22 59 6f 75 20 63 61  |)=0 .add("You ca|
0001d190  6e 6e 6f 74 20 6c 6f 63  6b 20 74 68 61 74 21 22  |nnot lock that!"|
0001d1a0  29 3a e1 0d 76 8e 43 e7  20 72 6f 6f 6d 6e 6f 25  |):..v.C. roomno%|
0001d1b0  3d 33 30 35 20 f2 61 64  64 28 22 59 6f 75 20 68  |=305 .add("You h|
0001d1c0  61 76 65 20 6e 6f 74 68  69 6e 67 20 74 6f 20 6c  |ave nothing to l|
0001d1d0  6f 63 6b 20 74 68 65 20  64 6f 6f 72 20 77 69 74  |ock the door wit|
0001d1e0  68 2e 22 29 3a e1 0d 76  98 43 e7 20 72 6f 6f 6d  |h."):..v.C. room|
0001d1f0  6e 6f 25 3c 3e 32 20 80  20 72 6f 6f 6d 6e 6f 25  |no%<>2 . roomno%|
0001d200  3c 3e 31 37 39 20 f2 61  64 64 28 22 54 68 65 72  |<>179 .add("Ther|
0001d210  65 20 69 73 20 6e 6f 74  68 69 6e 67 20 74 6f 20  |e is nothing to |
0001d220  6c 6f 63 6b 2e 22 29 3a  e1 0d 76 a2 4b e7 20 a4  |lock."):..v.K. .|
0001d230  67 6f 74 6f 72 68 65 72  65 28 22 6b 65 79 22 29  |gotorhere("key")|
0001d240  3d 30 20 f2 61 64 64 28  22 59 6f 75 20 68 61 76  |=0 .add("You hav|
0001d250  65 20 6e 6f 74 68 69 6e  67 20 74 6f 20 6c 6f 63  |e nothing to loc|
0001d260  6b 20 74 68 65 20 64 6f  6f 72 20 77 69 74 68 2e  |k the door with.|
0001d270  22 29 3a e1 0d 76 ac 46  e7 20 72 6f 6f 6d 6e 6f  |"):..v.F. roomno|
0001d280  25 3d 32 20 80 20 65 78  69 74 73 28 32 2c 32 29  |%=2 . exits(2,2)|
0001d290  3d 30 20 f2 61 64 64 28  22 54 68 65 20 64 6f 6f  |=0 .add("The doo|
0001d2a0  72 20 69 73 20 61 6c 6c  20 72 65 61 64 79 20 6c  |r is all ready l|
0001d2b0  6f 63 6b 65 64 2e 22 29  3a e1 0d 76 b6 97 e7 20  |ocked."):..v... |
0001d2c0  72 6f 6f 6d 6e 6f 25 3d  32 20 f2 61 64 64 28 22  |roomno%=2 .add("|
0001d2d0  59 6f 75 20 63 6c 6f 73  65 20 74 68 65 20 64 6f  |You close the do|
0001d2e0  6f 72 2c 20 70 75 74 20  74 68 65 20 6b 65 79 20  |or, put the key |
0001d2f0  69 6e 74 6f 20 74 68 65  20 6c 6f 63 6b 20 61 6e  |into the lock an|
0001d300  64 20 74 75 72 6e 20 63  61 72 65 66 75 6c 6c 79  |d turn carefully|
0001d310  2e 20 49 74 20 63 6c 69  63 6b 73 20 69 6e 74 6f  |. It clicks into|
0001d320  20 70 6c 61 63 65 2e 22  29 3a 65 78 69 74 73 28  | place."):exits(|
0001d330  32 2c 32 29 3d 30 3a 77  69 6d 70 25 21 30 3d 6d  |2,2)=0:wimp%!0=m|
0001d340  61 70 68 61 6e 25 3a f2  72 65 64 72 61 77 6d 61  |aphan%:.redrawma|
0001d350  70 0d 76 c0 4a e7 20 72  6f 6f 6d 6e 6f 25 3d 31  |p.v.J. roomno%=1|
0001d360  37 39 20 80 20 65 78 69  74 73 28 31 37 39 2c 31  |79 . exits(179,1|
0001d370  29 3d 30 20 f2 61 64 64  28 22 54 68 65 20 64 6f  |)=0 .add("The do|
0001d380  6f 72 20 69 73 20 61 6c  6c 20 72 65 61 64 79 20  |or is all ready |
0001d390  6c 6f 63 6b 65 64 2e 22  29 3a e1 0d 76 ca 40 e7  |locked."):..v.@.|
0001d3a0  20 72 6f 6f 6d 6e 6f 25  3d 31 37 39 20 f2 61 64  | roomno%=179 .ad|
0001d3b0  64 28 22 59 6f 75 20 6e  6f 20 6c 6f 6e 67 65 72  |d("You no longer|
0001d3c0  20 68 61 76 65 20 74 68  65 20 6b 65 79 20 74 6f  | have the key to|
0001d3d0  20 64 6f 20 74 68 61 74  2e 22 29 0d 76 d4 05 e1  | do that.").v...|
0001d3e0  0d 76 de 04 0d 76 e8 09  dd f2 61 73 6b 0d 76 f2  |.v...v....ask.v.|
0001d3f0  1e 74 24 3d 22 54 68 65  72 65 20 69 73 20 6e 6f  |.t$="There is no|
0001d400  20 72 65 73 70 6f 6e 73  65 2e 22 0d 76 fc 21 70  | response.".v.!p|
0001d410  65 72 73 6f 6e 24 3d c1  69 24 2c 35 2c a7 69 24  |erson$=.i$,5,.i$|
0001d420  2c 22 61 62 6f 75 74 22  29 2d 36 29 0d 77 06 24  |,"about")-6).w.$|
0001d430  73 75 62 6a 65 63 74 24  3d c1 69 24 2c a7 69 24  |subject$=.i$,.i$|
0001d440  2c 22 61 62 6f 75 74 22  29 2b 36 2c 32 30 30 29  |,"about")+6,200)|
0001d450  0d 77 10 33 e7 20 c0 73  75 62 6a 65 63 74 24 2c  |.w.3. .subject$,|
0001d460  34 29 3d 22 74 68 65 20  22 20 73 75 62 6a 65 63  |4)="the " subjec|
0001d470  74 24 3d c1 73 75 62 6a  65 63 74 24 2c 35 2c 32  |t$=.subject$,5,2|
0001d480  30 30 29 0d 77 1a 73 e7  20 73 75 62 6a 65 63 74  |00).w.s. subject|
0001d490  24 3d 22 22 20 84 20 70  65 72 73 6f 6e 24 3d 22  |$="" . person$="|
0001d4a0  22 20 84 20 73 75 62 6a  65 63 74 24 3d 22 20 22  |" . subject$=" "|
0001d4b0  20 84 20 70 65 72 73 6f  6e 24 3d 22 20 22 20 f2  | . person$=" " .|
0001d4c0  61 64 64 28 22 50 6c 65  61 73 65 20 75 73 65 20  |add("Please use |
0001d4d0  27 61 73 6b 20 3c 73 6f  6d 65 6f 6e 65 3e 20 61  |'ask <someone> a|
0001d4e0  62 6f 75 74 20 3c 73 6f  6d 65 74 68 69 6e 67 3e  |bout <something>|
0001d4f0  2e 27 22 29 3a e1 0d 77  24 11 e7 20 72 6f 6f 6d  |.'"):..w$.. room|
0001d500  6e 6f 25 3d 31 20 8c 0d  77 2e 9e e7 20 a7 70 65  |no%=1 ..w... .pe|
0001d510  72 73 6f 6e 24 2c 22 70  65 72 73 6f 6e 22 29 3e  |rson$,"person")>|
0001d520  30 20 84 20 a7 70 65 72  73 6f 6e 24 2c 22 6d 61  |0 . .person$,"ma|
0001d530  6e 22 29 3e 30 20 84 20  a7 70 65 72 73 6f 6e 24  |n")>0 . .person$|
0001d540  2c 22 73 74 61 6c 6c 68  6f 6c 64 65 72 22 29 3e  |,"stallholder")>|
0001d550  30 20 84 20 a7 70 65 72  73 6f 6e 24 2c 22 70 65  |0 . .person$,"pe|
0001d560  6f 70 6c 65 22 29 3e 30  20 84 20 a7 70 65 72 73  |ople")>0 . .pers|
0001d570  6f 6e 24 2c 22 73 6f 6d  65 6f 6e 65 22 29 3e 30  |on$,"someone")>0|
0001d580  20 84 20 a7 70 65 72 73  6f 6e 24 2c 22 61 6e 79  | . .person$,"any|
0001d590  6f 6e 65 22 29 3e 30 20  c8 8e 20 73 75 62 6a 65  |one")>0 .. subje|
0001d5a0  63 74 24 20 ca 0d 77 38  46 c9 20 22 67 6f 72 6d  |ct$ ..w8F. "gorm|
0001d5b0  22 20 3a 20 74 24 3d 22  27 49 73 6e 27 74 20 74  |" : t$="'Isn't t|
0001d5c0  68 61 74 20 61 20 74 79  70 65 20 6f 66 20 63 68  |hat a type of ch|
0001d5d0  65 65 73 65 3f 27 20 73  6f 6d 65 6f 6e 65 20 73  |eese?' someone s|
0001d5e0  68 6f 75 74 73 20 6f 75  74 2e 22 0d 77 42 5d c9  |houts out.".wB].|
0001d5f0  20 22 61 6d 69 67 61 22  2c 22 61 6d 69 67 61 73  | "amiga","amigas|
0001d600  22 20 3a 20 74 24 3d 22  27 47 72 65 61 74 20 63  |" : t$="'Great c|
0001d610  6f 6d 70 75 74 65 72 73  2c 20 6d 61 74 65 2c 20  |omputers, mate, |
0001d620  74 68 65 79 20 72 65 61  6c 6c 79 20 61 72 65 2c  |they really are,|
0001d630  27 20 73 61 79 73 20 74  68 65 20 73 74 61 6c 6c  |' says the stall|
0001d640  68 6f 6c 64 65 72 2e 22  0d 77 4c 4d c9 20 22 73  |holder.".wLM. "s|
0001d650  74 61 6c 6c 22 2c 22 73  74 61 6c 6c 73 22 20 3a  |tall","stalls" :|
0001d660  20 74 24 3d 22 27 57 65  6c 6c 2c 20 74 68 65 79  | t$="'Well, they|
0001d670  27 72 65 20 68 65 72 65  20 61 72 65 6e 27 74 20  |'re here aren't |
0001d680  74 68 65 79 3f 27 20 73  6f 6d 65 6f 6e 65 20 73  |they?' someone s|
0001d690  61 79 73 2e 22 0d 77 56  48 c9 20 22 6d 61 72 6b  |ays.".wVH. "mark|
0001d6a0  65 74 22 20 3a 20 74 24  3d 22 27 54 68 65 20 6d  |et" : t$="'The m|
0001d6b0  61 72 6b 65 74 27 73 20  68 65 72 65 20 65 76 65  |arket's here eve|
0001d6c0  72 79 20 57 65 64 6e 65  73 64 61 79 2c 27 20 73  |ry Wednesday,' s|
0001d6d0  6f 6d 65 6f 6e 65 20 73  61 79 73 2e 22 0d 77 60  |omeone says.".w`|
0001d6e0  65 c9 20 22 62 75 74 63  68 65 72 22 2c 22 62 75  |e. "butcher","bu|
0001d6f0  74 63 68 65 72 73 22 20  3a 20 74 24 3d 22 27 54  |tchers" : t$="'T|
0001d700  68 65 20 62 75 74 63 68  65 72 27 73 20 6a 75 73  |he butcher's jus|
0001d710  74 20 73 6f 72 74 20 6f  66 20 73 6f 75 74 68 2d  |t sort of south-|
0001d720  77 65 73 74 69 73 68 20  66 72 6f 6d 20 68 65 72  |westish from her|
0001d730  65 2c 27 20 73 61 79 73  20 73 6f 6d 65 6f 6e 65  |e,' says someone|
0001d740  2e 22 0d 77 6a 54 c9 20  22 62 61 6b 65 72 22 2c  |.".wjT. "baker",|
0001d750  22 62 61 6b 65 72 73 22  20 3a 20 74 24 3d 22 27  |"bakers" : t$="'|
0001d760  54 68 65 20 62 61 6b 65  72 27 73 20 73 6f 72 74  |The baker's sort|
0001d770  20 6f 66 20 77 65 73 74  69 73 68 20 66 72 6f 6d  | of westish from|
0001d780  20 68 65 72 65 2c 27 20  73 61 79 73 20 73 6f 6d  | here,' says som|
0001d790  65 6f 6e 65 2e 22 0d 77  74 5f c9 20 22 66 65 6e  |eone.".wt_. "fen|
0001d7a0  63 65 22 20 3a 20 74 24  3d 22 27 54 68 61 74 20  |ce" : t$="'That |
0001d7b0  6c 61 72 67 65 20 66 65  6e 63 65 20 68 61 73 20  |large fence has |
0001d7c0  62 65 65 6e 20 74 68 65  72 65 20 65 76 65 72 20  |been there ever |
0001d7d0  73 69 6e 63 65 20 49 20  63 61 6e 20 72 65 6d 65  |since I can reme|
0001d7e0  6d 62 65 72 2c 27 20 73  61 79 73 20 73 6f 6d 65  |mber,' says some|
0001d7f0  6f 6e 65 2e 22 0d 77 7e  4f c9 20 22 67 75 61 72  |one.".w~O. "guar|
0001d800  64 22 20 3a 20 74 24 3d  22 27 59 6f 75 27 6c 6c  |d" : t$="'You'll|
0001d810  20 6e 65 76 65 72 20 62  27 61 62 6c 65 20 74 27  | never b'able t'|
0001d820  67 65 74 20 70 61 73 74  20 74 68 61 74 20 67 75  |get past that gu|
0001d830  61 72 64 2c 27 20 73 6f  6d 65 6f 6e 65 20 73 61  |ard,' someone sa|
0001d840  79 73 2e 22 0d 77 88 5e  c9 20 22 71 75 65 73 74  |ys.".w.^. "quest|
0001d850  22 2c 22 61 64 76 65 6e  74 75 72 65 22 20 3a 20  |","adventure" : |
0001d860  74 24 3d 22 27 54 69 73  20 70 72 6f 62 61 62 6c  |t$="'Tis probabl|
0001d870  79 20 74 27 73 68 75 74  2d 75 70 20 61 6e 64 20  |y t'shut-up and |
0001d880  6c 65 61 76 65 20 75 73  20 69 6e 20 70 65 61 63  |leave us in peac|
0001d890  65 2c 27 20 73 6f 6d 65  6f 6e 65 20 73 61 79 73  |e,' someone says|
0001d8a0  2e 22 0d 77 92 54 c9 20  22 76 69 63 61 72 22 20  |.".w.T. "vicar" |
0001d8b0  3a 20 74 24 3d 22 27 4c  6f 76 65 6c 79 20 6f 6c  |: t$="'Lovely ol|
0001d8c0  64 20 76 69 63 61 72 2c  20 68 65 20 69 73 2c 20  |d vicar, he is, |
0001d8d0  62 75 74 20 65 76 65 72  20 73 6f 20 71 75 69 65  |but ever so quie|
0001d8e0  74 2c 27 20 73 6f 6d 65  6f 6e 65 20 77 68 69 73  |t,' someone whis|
0001d8f0  70 65 72 73 2e 22 0d 77  9c 60 c9 20 22 63 68 75  |pers.".w.`. "chu|
0001d900  72 63 68 22 20 3a 20 74  24 3d 22 27 54 68 61 74  |rch" : t$="'That|
0001d910  20 63 68 75 72 63 68 20  69 73 20 74 68 65 20 70  | church is the p|
0001d920  72 65 74 74 69 65 73 74  20 74 68 69 6e 67 20 49  |rettiest thing I|
0001d930  27 76 65 20 65 76 65 72  20 73 65 65 6e 2c 27 20  |'ve ever seen,' |
0001d940  73 61 79 73 20 73 6f 6d  65 6f 6e 65 20 70 72 6f  |says someone pro|
0001d950  75 64 6c 79 2e 22 0d 77  a6 6c c9 20 22 68 6f 75  |udly.".w.l. "hou|
0001d960  73 65 22 20 3a 20 74 24  3d 22 27 59 27 6d 65 61  |se" : t$="'Y'mea|
0001d970  6e 20 74 68 61 74 20 71  75 61 69 6e 74 20 6c 69  |n that quaint li|
0001d980  74 74 6c 65 20 68 6f 75  73 65 20 6f 76 65 72 20  |ttle house over |
0001d990  74 68 65 72 65 2c 20 64  6f 6e 27 74 20 79 6f 75  |there, don't you|
0001d9a0  3f 20 44 65 61 64 20 70  6f 73 68 20 69 74 20 69  |? Dead posh it i|
0001d9b0  73 2c 27 20 73 6f 6d 65  6f 6e 65 20 73 61 79 73  |s,' someone says|
0001d9c0  2e 22 0d 77 b0 45 7f 20  3a 20 74 24 3d 22 27 44  |.".w.E. : t$="'D|
0001d9d0  6f 6e 27 74 20 6b 6e 6f  77 20 77 68 61 74 20 79  |on't know what y|
0001d9e0  6f 75 27 72 65 20 6f 6e  20 61 62 6f 75 74 2c 20  |ou're on about, |
0001d9f0  6d 61 74 65 2c 27 20 73  6f 6d 65 6f 6e 65 20 73  |mate,' someone s|
0001da00  68 6f 75 74 73 2e 22 0d  77 ba 05 cb 0d 77 c4 05  |houts.".w....w..|
0001da10  cd 0d 77 ce 12 e7 20 72  6f 6f 6d 6e 6f 25 3d 31  |..w... roomno%=1|
0001da20  35 20 8c 0d 77 d8 27 e7  20 a7 70 65 72 73 6f 6e  |5 ..w.'. .person|
0001da30  24 2c 22 67 75 61 72 64  22 29 3e 30 20 c8 8e 20  |$,"guard")>0 .. |
0001da40  73 75 62 6a 65 63 74 24  20 ca 0d 77 e2 5f c9 20  |subject$ ..w._. |
0001da50  22 67 6f 72 6d 22 20 3a  20 74 24 3d 22 27 57 65  |"gorm" : t$="'We|
0001da60  6c 6c 2c 20 69 74 20 73  74 61 6e 64 73 20 66 6f  |ll, it stands fo|
0001da70  72 20 27 47 6f 6c 66 69  6e 67 20 4f 72 20 52 6f  |r 'Golfing Or Ro|
0001da80  75 6e 64 65 72 73 20 4d  61 6e 69 61 63 73 2c 20  |unders Maniacs, |
0001da90  64 6f 65 73 6e 27 74 20  69 74 2c 27 20 68 65 20  |doesn't it,' he |
0001daa0  72 65 70 6c 69 65 73 2e  22 0d 77 ec 4a c9 20 22  |replies.".w.J. "|
0001dab0  71 75 65 73 74 22 2c 22  61 64 76 65 6e 74 75 72  |quest","adventur|
0001dac0  65 22 20 3a 20 74 24 3d  22 27 48 61 76 65 6e 27  |e" : t$="'Haven'|
0001dad0  74 20 67 6f 74 20 61 20  63 6c 75 65 20 61 62 6f  |t got a clue abo|
0001dae0  75 74 20 74 68 61 74 2c  27 20 68 65 20 73 61 79  |ut that,' he say|
0001daf0  73 2e 22 0d 77 f6 3b c9  20 22 67 61 74 65 22 20  |s.".w.;. "gate" |
0001db00  3a 20 74 24 3d 22 27 49  27 6d 20 6e 6f 74 20 6c  |: t$="'I'm not l|
0001db10  65 74 74 69 6e 67 20 79  6f 75 20 74 68 72 6f 75  |etting you throu|
0001db20  67 68 2c 27 20 68 65 20  73 61 79 73 2e 22 0d 78  |gh,' he says.".x|
0001db30  00 56 c9 20 22 66 65 6e  63 65 22 20 3a 20 74 24  |.V. "fence" : t$|
0001db40  3d 22 27 54 69 73 20 74  68 65 72 65 20 74 6f 20  |="'Tis there to |
0001db50  73 74 6f 70 20 69 64 69  6f 74 73 20 6c 69 6b 65  |stop idiots like|
0001db60  20 79 6f 75 20 66 72 6f  6d 20 67 65 74 74 69 6e  | you from gettin|
0001db70  67 20 6f 75 74 2c 27 20  68 65 20 72 65 70 6c 69  |g out,' he repli|
0001db80  65 73 2e 22 0d 78 0a 36  7f 20 3a 20 74 24 3d 22  |es.".x.6. : t$="|
0001db90  27 49 27 6d 20 6f 6e 20  64 75 74 79 20 73 27 67  |'I'm on duty s'g|
0001dba0  6f 20 61 77 61 79 2c 27  20 68 65 20 73 61 79 73  |o away,' he says|
0001dbb0  20 6d 6f 6f 64 69 6c 79  2e 22 0d 78 14 05 cb 0d  | moodily.".x....|
0001dbc0  78 1e 05 cd 0d 78 28 12  e7 20 72 6f 6f 6d 6e 6f  |x....x(.. roomno|
0001dbd0  25 3d 32 39 20 8c 0d 78  32 27 e7 20 a7 70 65 72  |%=29 ..x2'. .per|
0001dbe0  73 6f 6e 24 2c 22 62 61  6b 65 72 22 29 3e 30 20  |son$,"baker")>0 |
0001dbf0  c8 8e 20 73 75 62 6a 65  63 74 24 20 ca 0d 78 3c  |.. subject$ ..x<|
0001dc00  4d c9 20 22 67 6f 72 6d  22 20 3a 20 74 24 3d 22  |M. "gorm" : t$="|
0001dc10  27 57 65 6c 6c 2c 20 74  69 73 20 27 6d 6f 72 67  |'Well, tis 'morg|
0001dc20  27 20 73 70 65 6c 74 20  62 61 63 6b 77 61 72 64  |' spelt backward|
0001dc30  73 2c 20 69 73 6e 27 74  20 69 74 2c 27 20 68 65  |s, isn't it,' he|
0001dc40  20 72 65 70 6c 69 65 73  2e 22 0d 78 46 43 c9 20  | replies.".xFC. |
0001dc50  22 71 75 65 73 74 22 2c  22 61 64 76 65 6e 74 75  |"quest","adventu|
0001dc60  72 65 22 20 3a 20 74 24  3d 22 27 57 65 6c 6c 20  |re" : t$="'Well |
0001dc70  68 6f 77 20 73 68 6f 75  6c 64 20 49 20 6b 6e 6f  |how should I kno|
0001dc80  77 3f 27 20 68 65 20 73  61 79 73 2e 22 0d 78 50  |w?' he says.".xP|
0001dc90  3c c9 20 22 62 75 74 63  68 65 72 22 2c 22 62 75  |<. "butcher","bu|
0001dca0  74 63 68 65 72 73 22 20  3a 20 74 24 3d 22 27 48  |tchers" : t$="'H|
0001dcb0  65 27 73 20 6e 65 78 74  20 64 6f 6f 72 2c 27 20  |e's next door,' |
0001dcc0  68 65 20 73 61 79 73 2e  22 0d 78 5a 40 c9 20 22  |he says.".xZ@. "|
0001dcd0  6c 6f 61 66 22 20 3a 20  74 24 3d 22 27 54 68 61  |loaf" : t$="'Tha|
0001dce0  74 20 6c 6f 61 66 20 69  73 20 70 65 72 66 65 63  |t loaf is perfec|
0001dcf0  74 6c 79 20 65 64 69 62  6c 65 2c 27 20 68 65 20  |tly edible,' he |
0001dd00  72 65 70 6c 69 65 73 2e  22 0d 78 64 61 c9 20 22  |replies.".xda. "|
0001dd10  62 72 65 61 64 22 20 3a  20 74 24 3d 22 27 54 68  |bread" : t$="'Th|
0001dd20  65 72 65 27 73 20 6e 6f  74 68 69 6e 67 20 77 72  |ere's nothing wr|
0001dd30  6f 6e 67 20 77 69 74 68  20 6d 79 20 62 72 65 61  |ong with my brea|
0001dd40  64 20 73 27 64 6f 6e 27  74 20 73 74 61 72 74 20  |d s'don't start |
0001dd50  63 6f 6d 70 6c 61 69 6e  69 6e 27 2c 27 20 68 65  |complainin',' he|
0001dd60  20 72 65 70 6c 69 65 73  2e 22 0d 78 6e 3d 7f 20  | replies.".xn=. |
0001dd70  3a 20 74 24 3d 22 27 4a  75 73 74 20 62 75 79 20  |: t$="'Just buy |
0001dd80  73 6f 6d 65 74 68 69 6e  67 20 6f 72 20 6c 65 61  |something or lea|
0001dd90  76 65 2c 27 20 68 65 20  73 61 79 73 20 67 72 75  |ve,' he says gru|
0001dda0  6d 70 69 6c 79 2e 22 0d  78 78 05 cb 0d 78 82 05  |mpily.".xx...x..|
0001ddb0  cd 0d 78 8c 12 e7 20 72  6f 6f 6d 6e 6f 25 3d 33  |..x... roomno%=3|
0001ddc0  30 20 8c 0d 78 96 29 e7  20 a7 70 65 72 73 6f 6e  |0 ..x.). .person|
0001ddd0  24 2c 22 62 75 74 63 68  65 72 22 29 3e 30 20 c8  |$,"butcher")>0 .|
0001dde0  8e 20 73 75 62 6a 65 63  74 24 20 ca 0d 78 a0 4b  |. subject$ ..x.K|
0001ddf0  c9 20 22 67 6f 72 6d 22  20 3a 20 74 24 3d 22 27  |. "gorm" : t$="'|
0001de00  57 65 6c 6c 2c 20 74 69  73 20 61 6e 20 61 6e 61  |Well, tis an ana|
0001de10  67 72 61 6d 20 6f 66 20  27 6f 72 67 6d 27 2c 20  |gram of 'orgm', |
0001de20  69 73 6e 27 74 20 69 74  2c 27 20 68 65 20 72 65  |isn't it,' he re|
0001de30  70 6c 69 65 73 2e 22 0d  78 aa 43 c9 20 22 71 75  |plies.".x.C. "qu|
0001de40  65 73 74 22 2c 22 61 64  76 65 6e 74 75 72 65 22  |est","adventure"|
0001de50  20 3a 20 74 24 3d 22 27  57 65 6c 6c 20 68 6f 77  | : t$="'Well how|
0001de60  20 73 68 6f 75 6c 64 20  49 20 6b 6e 6f 77 3f 27  | should I know?'|
0001de70  20 68 65 20 73 61 79 73  2e 22 0d 78 b4 38 c9 20  | he says.".x.8. |
0001de80  22 62 61 6b 65 72 22 2c  22 62 61 6b 65 72 73 22  |"baker","bakers"|
0001de90  20 3a 20 74 24 3d 22 27  48 65 27 73 20 6e 65 78  | : t$="'He's nex|
0001dea0  74 20 64 6f 6f 72 2c 27  20 68 65 20 73 61 79 73  |t door,' he says|
0001deb0  2e 22 0d 78 be 52 c9 20  22 6d 65 61 74 22 20 3a  |.".x.R. "meat" :|
0001dec0  20 74 24 3d 22 27 54 68  61 74 20 6d 65 61 74 20  | t$="'That meat |
0001ded0  69 73 20 70 65 72 66 65  63 74 6c 79 20 65 64 69  |is perfectly edi|
0001dee0  62 6c 65 2c 20 69 74 20  74 61 73 74 65 73 20 6c  |ble, it tastes l|
0001def0  6f 76 65 6c 79 2c 27 20  68 65 20 72 65 70 6c 69  |ovely,' he repli|
0001df00  65 73 2e 22 0d 78 c8 50  c9 20 22 62 6c 6f 6f 64  |es.".x.P. "blood|
0001df10  22 20 3a 20 74 24 3d 22  27 4c 6f 76 65 6c 79 2c  |" : t$="'Lovely,|
0001df20  20 72 65 64 20 61 6e 27  20 6a 75 69 63 79 20 61  | red an' juicy a|
0001df30  6e 64 20 69 74 20 74 61  73 74 65 73 20 67 6f 72  |nd it tastes gor|
0001df40  67 65 6f 75 73 2c 27 20  68 65 20 72 65 70 6c 69  |geous,' he repli|
0001df50  65 73 2e 22 0d 78 d2 3d  7f 20 3a 20 74 24 3d 22  |es.".x.=. : t$="|
0001df60  27 4a 75 73 74 20 62 75  79 20 73 6f 6d 65 20 6d  |'Just buy some m|
0001df70  65 61 74 20 6f 72 20 6c  65 61 76 65 2c 27 20 68  |eat or leave,' h|
0001df80  65 20 73 61 79 73 20 67  72 75 6d 70 69 6c 79 2e  |e says grumpily.|
0001df90  22 0d 78 dc 05 cb 0d 78  e6 05 cd 0d 78 f0 12 e7  |".x....x....x...|
0001dfa0  20 72 6f 6f 6d 6e 6f 25  3d 33 37 20 8c 0d 78 fa  | roomno%=37 ..x.|
0001dfb0  27 e7 20 a7 70 65 72 73  6f 6e 24 2c 22 76 69 63  |'. .person$,"vic|
0001dfc0  61 72 22 29 3e 30 20 c8  8e 20 73 75 62 6a 65 63  |ar")>0 .. subjec|
0001dfd0  74 24 20 ca 0d 79 04 48  c9 20 22 67 6f 72 6d 22  |t$ ..y.H. "gorm"|
0001dfe0  20 3a 20 74 24 3d 22 27  49 74 27 73 20 6f 6e 65  | : t$="'It's one|
0001dff0  20 6f 66 20 47 6f 64 27  73 20 77 6f 6e 64 65 72  | of God's wonder|
0001e000  6f 75 73 20 63 72 65 61  74 75 72 65 73 2c 27 20  |ous creatures,' |
0001e010  68 65 20 72 65 70 6c 69  65 73 2e 22 0d 79 0e 42  |he replies.".y.B|
0001e020  c9 20 22 71 75 65 73 74  22 2c 22 61 64 76 65 6e  |. "quest","adven|
0001e030  74 75 72 65 22 20 3a 20  74 24 3d 22 27 41 73 6b  |ture" : t$="'Ask|
0001e040  20 47 6f 64 2c 20 68 65  20 77 69 6c 6c 20 6b 6e  | God, he will kn|
0001e050  6f 77 2c 27 20 68 65 20  73 61 79 73 2e 22 0d 79  |ow,' he says.".y|
0001e060  18 35 c9 20 22 67 6f 64  22 20 3a 20 74 24 3d 22  |.5. "god" : t$="|
0001e070  27 48 65 27 73 20 74 68  65 20 73 75 70 72 65 6d  |'He's the suprem|
0001e080  65 20 62 65 69 6e 67 2c  27 20 68 65 20 73 61 79  |e being,' he say|
0001e090  73 2e 22 0d 79 22 3e c9  20 22 63 68 75 72 63 68  |s.".y">. "church|
0001e0a0  22 20 3a 20 74 24 3d 22  27 54 68 65 20 63 68 75  |" : t$="'The chu|
0001e0b0  72 63 68 20 69 73 20 47  6f 64 27 73 20 68 6f 75  |rch is God's hou|
0001e0c0  73 65 2c 27 20 68 65 20  72 65 70 6c 69 65 73 2e  |se,' he replies.|
0001e0d0  22 0d 79 2c 58 c9 20 22  67 69 72 6c 22 20 3a 20  |".y,X. "girl" : |
0001e0e0  74 24 3d 22 27 54 68 65  20 67 69 72 6c 20 69 73  |t$="'The girl is|
0001e0f0  20 75 70 73 65 74 20 62  65 63 61 75 73 65 20 49  | upset because I|
0001e100  20 62 75 72 69 65 64 20  68 65 72 20 66 61 74 68  | buried her fath|
0001e110  65 72 20 65 61 72 6c 69  65 72 2c 27 20 68 65 20  |er earlier,' he |
0001e120  72 65 70 6c 69 65 73 2e  22 0d 79 36 5c c9 20 22  |replies.".y6\. "|
0001e130  66 61 74 68 65 72 22 20  3a 20 74 24 3d 22 27 54  |father" : t$="'T|
0001e140  68 65 20 67 69 72 6c 27  73 20 66 61 74 68 65 72  |he girl's father|
0001e150  20 77 61 73 20 61 20 73  63 6f 75 6e 64 72 65 6c  | was a scoundrel|
0001e160  20 61 6e 79 77 61 79 2c  20 6e 6f 20 67 72 65 61  | anyway, no grea|
0001e170  74 20 6c 6f 73 73 2c 27  20 68 65 20 72 65 70 6c  |t loss,' he repl|
0001e180  69 65 73 2e 22 0d 79 40  3f 7f 20 3a 20 74 24 3d  |ies.".y@?. : t$=|
0001e190  22 27 49 20 6d 75 73 74  20 63 6f 6e 74 69 6e 75  |"'I must continu|
0001e1a0  65 20 77 69 74 68 20 6d  79 20 70 72 61 79 69 6e  |e with my prayin|
0001e1b0  67 2c 27 20 68 65 20 73  61 79 73 20 63 61 6c 6d  |g,' he says calm|
0001e1c0  6c 79 2e 22 0d 79 4a 05  cb 0d 79 54 31 e7 20 a7  |ly.".yJ...yT1. .|
0001e1d0  70 65 72 73 6f 6e 24 2c  22 67 69 72 6c 22 29 3e  |person$,"girl")>|
0001e1e0  30 20 80 20 63 72 69 65  72 25 3d 31 20 c8 8e 20  |0 . crier%=1 .. |
0001e1f0  73 75 62 6a 65 63 74 24  20 ca 0d 79 5e 5f c9 20  |subject$ ..y^_. |
0001e200  22 66 61 74 68 65 72 22  2c 22 64 65 61 74 68 22  |"father","death"|
0001e210  2c 22 64 61 64 22 2c 22  64 61 64 64 79 22 20 3a  |,"dad","daddy" :|
0001e220  20 74 24 3d 22 27 48 65  20 77 61 73 20 74 68 27  | t$="'He was th'|
0001e230  62 65 73 74 20 44 61 64  64 79 20 61 6e 79 6f 6e  |best Daddy anyon|
0001e240  65 20 63 6f 75 6c 64 20  27 61 76 65 2c 27 20 73  |e could 'ave,' s|
0001e250  68 65 20 73 6f 62 73 2e  22 0d 79 68 2d 7f 20 3a  |he sobs.".yh-. :|
0001e260  20 74 24 3d 22 27 4a 75  73 74 20 6c 65 61 76 65  | t$="'Just leave|
0001e270  20 6d 27 61 6c 6f 6e 65  2c 27 20 73 68 65 20 77  | m'alone,' she w|
0001e280  61 69 6c 73 2e 22 0d 79  72 05 cb 0d 79 7c 05 cd  |ails.".yr...y|..|
0001e290  0d 79 86 12 e7 20 72 6f  6f 6d 6e 6f 25 3d 35 30  |.y... roomno%=50|
0001e2a0  20 8c 0d 79 90 55 e7 20  a7 70 65 72 73 6f 6e 24  | ..y.U. .person$|
0001e2b0  2c 22 70 65 6f 70 6c 65  22 29 3e 30 20 84 20 a7  |,"people")>0 . .|
0001e2c0  70 65 72 73 6f 6e 24 2c  22 73 6f 6d 65 6f 6e 65  |person$,"someone|
0001e2d0  22 29 3e 30 20 84 20 a7  70 65 72 73 6f 6e 24 2c  |")>0 . .person$,|
0001e2e0  22 73 6f 6d 65 62 6f 64  79 22 29 3e 30 20 c8 8e  |"somebody")>0 ..|
0001e2f0  20 b3 28 34 29 20 ca 0d  79 9a 2c c9 20 31 20 3a  | .(4) ..y.,. 1 :|
0001e300  20 74 24 3d 22 27 4c 61  20 6c 61 20 6c 61 61 20  | t$="'La la laa |
0001e310  6c 61 20 6c 61 2c 27 20  74 68 65 79 20 77 61 69  |la la,' they wai|
0001e320  6c 2e 22 0d 79 a4 30 c9  20 32 20 3a 20 74 24 3d  |l.".y.0. 2 : t$=|
0001e330  22 27 44 61 68 20 64 65  65 20 64 75 6d 20 64 75  |"'Dah dee dum du|
0001e340  6d 20 64 61 61 2c 27 20  74 68 65 79 20 73 69 6e  |m daa,' they sin|
0001e350  67 2e 22 0d 79 ae 35 c9  20 33 20 3a 20 74 24 3d  |g.".y.5. 3 : t$=|
0001e360  22 27 42 62 62 75 75 75  75 75 72 72 72 72 72 70  |"'Bbbuuuuurrrrrp|
0001e370  70 70 70 70 2c 27 20 73  6f 6d 65 6f 6e 65 20 62  |pppp,' someone b|
0001e380  65 6c 63 68 65 73 2e 22  0d 79 b8 23 c9 20 34 20  |elches.".y.#. 4 |
0001e390  3a 20 74 24 3d 22 27 48  75 68 3f 27 20 73 6f 6d  |: t$="'Huh?' som|
0001e3a0  65 6f 6e 65 20 73 61 79  73 2e 22 0d 79 c2 05 cb  |eone says.".y...|
0001e3b0  0d 79 cc 05 cd 0d 79 d6  12 e7 20 72 6f 6f 6d 6e  |.y....y... roomn|
0001e3c0  6f 25 3d 35 32 20 8c 0d  79 e0 25 e7 20 a7 70 65  |o%=52 ..y.%. .pe|
0001e3d0  72 73 6f 6e 24 2c 22 6d  61 6e 22 29 3e 30 20 c8  |rson$,"man")>0 .|
0001e3e0  8e 20 73 75 62 6a 65 63  74 24 20 ca 0d 79 ea 55  |. subject$ ..y.U|
0001e3f0  c9 20 22 67 6f 72 6d 22  20 3a 20 74 24 3d 22 27  |. "gorm" : t$="'|
0001e400  54 68 65 79 27 72 65 20  47 6f 72 67 65 6f 75 73  |They're Gorgeous|
0001e410  20 4f 75 74 69 6e 67 73  20 66 6f 72 20 52 65 70  | Outings for Rep|
0001e420  61 69 72 65 72 73 20 6f  66 20 4d 61 63 68 69 6e  |airers of Machin|
0001e430  65 73 2c 27 20 68 65 20  72 65 70 6c 69 65 73 2e  |es,' he replies.|
0001e440  22 0d 79 f4 3d c9 20 22  71 75 65 73 74 22 2c 22  |".y.=. "quest","|
0001e450  61 64 76 65 6e 74 75 72  65 22 20 3a 20 74 24 3d  |adventure" : t$=|
0001e460  22 27 43 6f 75 6c 64 20  62 27 61 6e 79 74 68 69  |"'Could b'anythi|
0001e470  6e 67 2c 27 20 68 65 20  73 61 79 73 2e 22 0d 79  |ng,' he says.".y|
0001e480  fe 56 c9 20 22 62 65 65  72 22 2c 22 61 6c 63 6f  |.V. "beer","alco|
0001e490  68 6f 6c 22 2c 22 64 72  69 6e 6b 22 20 3a 20 74  |hol","drink" : t|
0001e4a0  24 3d 22 27 59 27 63 61  6e 20 6f 72 64 65 72 20  |$="'Y'can order |
0001e4b0  73 6f 6d 65 20 61 6c 63  27 6f 6c 20 69 66 20 79  |some alc'ol if y|
0001e4c0  27 77 61 6e 74 20 74 6f  2c 27 20 68 65 20 73 61  |'want to,' he sa|
0001e4d0  79 73 2e 22 0d 7a 08 3b  c9 20 22 70 75 62 22 20  |ys.".z.;. "pub" |
0001e4e0  3a 20 74 24 3d 22 27 42  65 65 6e 20 68 65 72 65  |: t$="'Been here|
0001e4f0  20 66 6f 72 20 61 67 65  73 20 69 74 20 68 61 73  | for ages it has|
0001e500  2c 27 20 68 65 20 72 65  70 6c 69 65 73 2e 22 0d  |,' he replies.".|
0001e510  7a 12 87 c9 20 22 62 61  72 6d 61 69 64 22 2c 22  |z... "barmaid","|
0001e520  77 6f 6d 61 6e 22 2c 22  63 61 72 6f 6c 22 2c 22  |woman","carol","|
0001e530  63 61 72 6f 6c 61 6e 6e  22 2c 22 63 61 72 6f 6c  |carolann","carol|
0001e540  61 6e 6e 20 73 6d 69 74  68 65 22 20 3a 20 74 24  |ann smithe" : t$|
0001e550  3d 22 27 53 68 65 27 73  20 6a 75 73 74 20 6f 76  |="'She's just ov|
0001e560  65 72 20 74 68 65 72 65  2c 27 20 68 65 20 73 61  |er there,' he sa|
0001e570  79 73 20 70 6f 69 6e 74  69 6e 67 20 77 65 73 74  |ys pointing west|
0001e580  2c 20 27 66 61 6e 63 79  20 68 65 72 20 64 6f 20  |, 'fancy her do |
0001e590  79 6f 75 3f 27 22 0d 7a  1c 2e 7f 20 3a 20 74 24  |you?'".z... : t$|
0001e5a0  3d 22 27 57 6f 75 6c 64  20 79 27 6c 69 6b 65 20  |="'Would y'like |
0001e5b0  74 6f 20 6f 72 64 65 72  3f 27 20 68 65 20 73 61  |to order?' he sa|
0001e5c0  79 73 2e 22 0d 7a 26 05  cb 0d 7a 30 05 cd 0d 7a  |ys.".z&...z0...z|
0001e5d0  3a 12 e7 20 72 6f 6f 6d  6e 6f 25 3d 36 34 20 8c  |:.. roomno%=64 .|
0001e5e0  0d 7a 44 3f e7 20 a7 70  65 72 73 6f 6e 24 2c 22  |.zD?. .person$,"|
0001e5f0  77 6f 6d 61 6e 22 29 3e  30 20 84 20 a7 70 65 72  |woman")>0 . .per|
0001e600  73 6f 6e 24 2c 22 62 61  72 6d 61 69 64 22 29 3e  |son$,"barmaid")>|
0001e610  30 20 c8 8e 20 73 75 62  6a 65 63 74 24 20 ca 0d  |0 .. subject$ ..|
0001e620  7a 4e 79 c9 20 22 67 6f  72 6d 22 20 3a 20 74 24  |zNy. "gorm" : t$|
0001e630  3d 22 27 43 6f 75 6c 64  20 73 74 61 6e 64 20 66  |="'Could stand f|
0001e640  6f 72 20 27 47 6f 6c 75  70 74 69 6f 75 73 20 4f  |or 'Goluptious O|
0001e650  62 6d 75 74 65 73 63 65  6e 63 65 20 6f 66 20 52  |bmutescence of R|
0001e660  61 6d 69 66 69 65 64 20  4d 6f 73 63 68 61 74 65  |amified Moschate|
0001e670  6c 73 27 2c 20 63 6f 75  6c 64 6e 27 74 20 69 74  |ls', couldn't it|
0001e680  3f 27 20 73 68 65 20 61  73 6b 73 20 69 6e 6e 6f  |?' she asks inno|
0001e690  63 65 6e 74 6c 79 2e 22  0d 7a 58 3e c9 20 22 71  |cently.".zX>. "q|
0001e6a0  75 65 73 74 22 2c 22 61  64 76 65 6e 74 75 72 65  |uest","adventure|
0001e6b0  22 20 3a 20 74 24 3d 22  27 49 20 64 6f 6e 27 74  |" : t$="'I don't|
0001e6c0  20 6b 6e 6f 77 20 6c 75  76 2c 27 20 73 68 65 20  | know luv,' she |
0001e6d0  73 61 79 73 2e 22 0d 7a  62 57 c9 20 22 62 65 65  |says.".zbW. "bee|
0001e6e0  72 22 2c 22 61 6c 63 6f  68 6f 6c 22 2c 22 64 72  |r","alcohol","dr|
0001e6f0  69 6e 6b 22 20 3a 20 74  24 3d 22 27 59 27 63 61  |ink" : t$="'Y'ca|
0001e700  6e 20 6f 72 64 65 72 20  73 6f 6d 65 20 61 6c 63  |n order some alc|
0001e710  27 6f 6c 20 69 66 20 79  27 77 61 6e 74 20 74 6f  |'ol if y'want to|
0001e720  2c 27 20 73 68 65 20 73  61 79 73 2e 22 0d 7a 6c  |,' she says.".zl|
0001e730  41 c9 20 22 70 75 62 22  20 3a 20 74 24 3d 22 27  |A. "pub" : t$="'|
0001e740  52 69 67 68 74 20 61 6e  63 69 65 6e 74 20 74 68  |Right ancient th|
0001e750  69 73 20 62 75 69 6c 64  69 6e 67 20 69 73 2c 27  |is building is,'|
0001e760  20 73 68 65 20 72 65 70  6c 69 65 73 2e 22 0d 7a  | she replies.".z|
0001e770  76 42 c9 20 22 6d 61 6e  22 20 3a 20 74 24 3d 22  |vB. "man" : t$="|
0001e780  27 48 65 27 73 20 6a 75  73 74 20 6f 76 65 72 20  |'He's just over |
0001e790  74 68 65 72 65 2c 27 20  73 68 65 20 73 61 79 73  |there,' she says|
0001e7a0  20 70 6f 69 6e 74 69 6e  67 20 65 61 73 74 2e 22  | pointing east."|
0001e7b0  0d 7a 80 4c c9 20 22 63  61 72 6f 6c 22 2c 22 63  |.z.L. "carol","c|
0001e7c0  61 72 6f 6c 61 6e 6e 22  2c 22 63 61 72 6f 6c 61  |arolann","carola|
0001e7d0  6e 6e 20 73 6d 69 74 68  65 22 20 3a 20 74 24 3d  |nn smithe" : t$=|
0001e7e0  22 27 54 68 61 74 27 73  20 6d 65 21 27 20 73 68  |"'That's me!' sh|
0001e7f0  65 20 65 78 63 6c 61 69  6d 73 2e 22 0d 7a 8a 52  |e exclaims.".z.R|
0001e800  c9 20 22 6d 65 64 61 6c  22 20 3a 20 74 24 3d 22  |. "medal" : t$="|
0001e810  27 59 6f 75 20 6d 65 61  6e 20 6d 79 20 62 65 61  |'You mean my bea|
0001e820  75 74 79 20 61 77 61 72  64 2c 20 73 6f 20 70 72  |uty award, so pr|
0001e830  6f 75 64 20 6f 66 20 74  68 61 74 2c 20 49 20 61  |oud of that, I a|
0001e840  6d 2c 27 20 73 68 65 20  73 61 79 73 2e 22 0d 7a  |m,' she says.".z|
0001e850  94 2f 7f 20 3a 20 74 24  3d 22 27 57 6f 75 6c 64  |./. : t$="'Would|
0001e860  20 79 27 6c 69 6b 65 20  74 6f 20 6f 72 64 65 72  | y'like to order|
0001e870  3f 27 20 73 68 65 20 73  61 79 73 2e 22 0d 7a 9e  |?' she says.".z.|
0001e880  05 cb 0d 7a a8 05 cd 0d  7a b2 12 e7 20 72 6f 6f  |...z....z... roo|
0001e890  6d 6e 6f 25 3d 36 39 20  8c 0d 7a bc 3e e7 20 a7  |mno%=69 ..z.>. .|
0001e8a0  70 65 72 73 6f 6e 24 2c  22 6d 61 6e 22 29 3e 30  |person$,"man")>0|
0001e8b0  20 84 20 a7 70 65 72 73  6f 6e 24 2c 22 6b 65 79  | . .person$,"key|
0001e8c0  6d 61 6b 65 72 22 29 3e  30 20 c8 8e 20 73 75 62  |maker")>0 .. sub|
0001e8d0  6a 65 63 74 24 20 ca 0d  7a c6 48 c9 20 22 62 6c  |ject$ ..z.H. "bl|
0001e8e0  6f 62 22 20 3a 20 74 24  3d 22 27 54 68 61 74 20  |ob" : t$="'That |
0001e8f0  62 6c 6f 62 27 73 20 66  6f 72 20 6d 6f 75 6c 64  |blob's for mould|
0001e900  69 6e 67 20 66 6f 72 20  6b 65 79 73 20 79 27 6b  |ing for keys y'k|
0001e910  6e 6f 77 2c 27 20 68 65  20 73 61 79 73 2e 22 0d  |now,' he says.".|
0001e920  7a d0 4e c9 20 22 67 6f  72 6d 22 20 3a 20 74 24  |z.N. "gorm" : t$|
0001e930  3d 22 27 47 72 75 65 73  6f 6d 65 20 4f 72 67 61  |="'Gruesome Orga|
0001e940  6e 69 73 69 6e 67 20 6f  66 20 52 68 75 62 61 72  |nising of Rhubar|
0001e950  62 20 4d 61 74 69 6e 67  2c 20 74 68 61 74 20 69  |b Mating, that i|
0001e960  73 2c 27 20 68 65 20 73  61 79 73 2e 22 0d 7a da  |s,' he says.".z.|
0001e970  4e c9 20 22 71 75 65 73  74 22 2c 22 61 64 76 65  |N. "quest","adve|
0001e980  6e 74 75 72 65 22 20 3a  20 74 24 3d 22 27 50 72  |nture" : t$="'Pr|
0001e990  6f 62 61 62 6c 79 20 74  27 67 65 74 20 6d 65 20  |obably t'get me |
0001e9a0  73 6f 6d 65 20 77 6f 72  6b 20 74 6f 20 64 6f 2c  |some work to do,|
0001e9b0  27 20 68 65 20 73 61 79  73 2e 22 0d 7a e4 4a c9  |' he says.".z.J.|
0001e9c0  20 22 6b 65 79 22 20 3a  20 74 24 3d 22 27 4b 65  | "key" : t$="'Ke|
0001e9d0  79 73 20 61 72 65 20 66  6f 72 20 6f 70 65 6e 69  |ys are for openi|
0001e9e0  6e 67 20 64 6f 6f 72 73  20 79 27 6b 6e 6f 77 2c  |ng doors y'know,|
0001e9f0  27 20 68 65 20 73 61 79  73 20 68 65 6c 70 66 75  |' he says helpfu|
0001ea00  6c 6c 79 2e 22 0d 7a ee  42 c9 20 22 64 69 73 70  |lly.".z.B. "disp|
0001ea10  6c 61 79 22 20 3a 20 74  24 3d 22 27 54 68 61 74  |lay" : t$="'That|
0001ea20  27 73 20 6d 79 20 70 72  69 64 65 20 61 6e 64 20  |'s my pride and |
0001ea30  6a 6f 79 2c 27 20 68 65  20 73 61 79 73 20 70 72  |joy,' he says pr|
0001ea40  6f 75 64 6c 79 2e 22 0d  7a f8 7a 7f 20 3a 20 74  |oudly.".z.z. : t|
0001ea50  24 3d 22 27 49 27 64 20  6c 75 76 20 74 6f 20 27  |$="'I'd luv to '|
0001ea60  61 76 65 20 73 6f 6d 65  20 77 6f 72 6b 20 74 27  |ave some work t'|
0001ea70  64 6f 2e 20 49 27 64 20  64 6f 20 69 74 20 66 6f  |do. I'd do it fo|
0001ea80  72 20 66 72 65 65 20 79  27 6b 6e 6f 77 2c 20 49  |r free y'know, I|
0001ea90  20 6e 65 65 64 20 74 68  65 20 70 72 61 63 74 69  | need the practi|
0001eaa0  63 65 2c 27 20 74 68 65  20 6f 6c 64 20 6d 61 6e  |ce,' the old man|
0001eab0  20 73 61 79 73 20 68 6f  70 65 66 75 6c 6c 79 2e  | says hopefully.|
0001eac0  22 0d 7b 02 05 cb 0d 7b  0c 05 cd 0d 7b 16 12 e7  |".{....{....{...|
0001ead0  20 72 6f 6f 6d 6e 6f 25  3d 37 32 20 8c 0d 7b 20  | roomno%=72 ..{ |
0001eae0  3c e7 20 a7 70 65 72 73  6f 6e 24 2c 22 77 69 7a  |<. .person$,"wiz|
0001eaf0  61 72 64 22 29 3e 30 20  84 20 a7 70 65 72 73 6f  |ard")>0 . .perso|
0001eb00  6e 24 2c 22 6d 61 6e 22  29 3e 30 20 c8 8e 20 73  |n$,"man")>0 .. s|
0001eb10  75 62 6a 65 63 74 24 20  ca 0d 7b 2a 62 c9 20 22  |ubject$ ..{*b. "|
0001eb20  73 70 65 6c 6c 22 2c 22  70 6f 74 69 6f 6e 22 2c  |spell","potion",|
0001eb30  22 77 61 6e 64 22 20 3a  20 74 24 3d 22 27 54 68  |"wand" : t$="'Th|
0001eb40  65 20 22 2b 73 75 62 6a  65 63 74 24 2b 22 20 77  |e "+subject$+" w|
0001eb50  6f 75 6c 64 20 68 65 6c  70 20 6d 65 20 74 6f 20  |ould help me to |
0001eb60  6d 61 6b 65 20 61 20 74  69 6d 65 77 61 72 70 2c  |make a timewarp,|
0001eb70  27 20 68 65 20 73 61 79  73 2e 22 0d 7b 34 4d c9  |' he says.".{4M.|
0001eb80  20 22 67 6f 72 6d 22 2c  22 71 75 65 73 74 22 2c  | "gorm","quest",|
0001eb90  22 61 64 76 65 6e 74 75  72 65 22 20 3a 20 74 24  |"adventure" : t$|
0001eba0  3d 22 27 4d 79 20 67 6f  6f 64 6e 65 73 73 2c 20  |="'My goodness, |
0001ebb0  49 20 64 6f 6e 27 74 20  6b 6e 6f 77 21 27 20 68  |I don't know!' h|
0001ebc0  65 20 73 61 79 73 2e 22  0d 7b 3e 69 c9 20 22 74  |e says.".{>i. "t|
0001ebd0  69 6d 65 77 61 72 70 22  2c 22 74 69 6d 65 20 74  |imewarp","time t|
0001ebe0  72 61 76 65 6c 22 2c 22  74 69 6d 65 74 72 61 76  |ravel","timetrav|
0001ebf0  65 6c 22 20 3a 20 74 24  3d 22 27 49 27 64 20 6c  |el" : t$="'I'd l|
0001ec00  6f 76 65 20 74 6f 20 64  69 73 63 6f 76 65 72 20  |ove to discover |
0001ec10  74 69 6d 65 20 74 72 61  76 65 6c 2c 27 20 68 65  |time travel,' he|
0001ec20  20 73 61 79 73 20 6c 6f  6e 67 69 6e 67 6c 79 2e  | says longingly.|
0001ec30  22 0d 7b 48 6f 7f 20 3a  20 74 24 3d 22 27 49 27  |".{Ho. : t$="'I'|
0001ec40  6d 20 6f 6e 20 74 68 65  20 76 65 72 67 65 20 6f  |m on the verge o|
0001ec50  66 20 64 69 73 63 6f 76  65 72 69 6e 67 20 74 69  |f discovering ti|
0001ec60  6d 65 20 74 72 61 76 65  6c 2c 20 79 27 6b 6e 6f  |me travel, y'kno|
0001ec70  77 2c 20 69 66 20 6f 6e  6c 79 20 49 20 68 61 64  |w, if only I had|
0001ec80  20 74 68 65 20 72 69 67  68 74 20 72 65 73 6f 75  | the right resou|
0001ec90  72 63 65 73 2c 27 20 68  65 20 73 61 79 73 2e 22  |rces,' he says."|
0001eca0  0d 7b 52 05 cb 0d 7b 5c  05 cd 0d 7b 66 12 e7 20  |.{R...{\...{f.. |
0001ecb0  72 6f 6f 6d 6e 6f 25 3d  37 33 20 8c 0d 7b 70 3f  |roomno%=73 ..{p?|
0001ecc0  e7 20 a7 70 65 72 73 6f  6e 24 2c 22 6d 61 6e 22  |. .person$,"man"|
0001ecd0  29 3e 30 20 84 20 a7 70  65 72 73 6f 6e 24 2c 22  |)>0 . .person$,"|
0001ece0  61 6c 63 68 65 6d 69 73  74 22 29 3e 30 20 c8 8e  |alchemist")>0 ..|
0001ecf0  20 73 75 62 6a 65 63 74  24 20 ca 0d 7b 7a 51 c9  | subject$ ..{zQ.|
0001ed00  20 22 67 6f 72 6d 22 20  3a 20 74 24 3d 22 27 47  | "gorm" : t$="'G|
0001ed10  6f 72 64 6f 6e 27 73 20  4f 72 67 61 6e 69 63 20  |ordon's Organic |
0001ed20  61 6e 64 20 52 75 72 61  6c 20 4d 75 63 6b 2d 73  |and Rural Muck-s|
0001ed30  70 72 65 61 64 65 72 2c  20 74 68 61 74 20 69 73  |preader, that is|
0001ed40  2c 27 20 68 65 20 73 61  79 73 2e 22 0d 7b 84 53  |,' he says.".{.S|
0001ed50  c9 20 22 71 75 65 73 74  22 2c 22 61 64 76 65 6e  |. "quest","adven|
0001ed60  74 75 72 65 22 20 3a 20  74 24 3d 22 27 50 72 6f  |ture" : t$="'Pro|
0001ed70  62 61 62 6c 79 20 74 27  67 65 74 20 6d 65 20 61  |bably t'get me a|
0001ed80  20 6e 65 77 74 20 66 6f  72 20 6d 79 20 70 6f 74  | newt for my pot|
0001ed90  69 6f 6e 2c 27 20 68 65  20 73 61 79 73 2e 22 0d  |ion,' he says.".|
0001eda0  7b 8e 61 c9 20 22 70 6f  74 69 6f 6e 22 20 3a 20  |{.a. "potion" : |
0001edb0  74 24 3d 22 27 49 20 64  6f 6e 27 74 20 6b 6e 6f  |t$="'I don't kno|
0001edc0  77 20 77 68 61 74 20 74  68 65 79 20 64 6f 2c 20  |w what they do, |
0001edd0  62 75 74 20 74 68 65 79  27 72 65 20 70 72 65 74  |but they're pret|
0001ede0  74 79 20 63 6f 6c 6f 75  72 73 2c 27 20 68 65 20  |ty colours,' he |
0001edf0  73 61 79 73 20 68 65 6c  70 66 75 6c 6c 79 2e 22  |says helpfully."|
0001ee00  0d 7b 98 41 c9 20 22 6e  65 77 74 22 20 3a 20 74  |.{.A. "newt" : t|
0001ee10  24 3d 22 27 54 68 61 74  27 73 20 77 68 61 74 20  |$="'That's what |
0001ee20  49 20 6e 65 65 64 20 66  6f 72 20 6d 79 20 70 6f  |I need for my po|
0001ee30  74 69 6f 6e 73 2c 27 20  68 65 20 73 61 79 73 2e  |tions,' he says.|
0001ee40  22 0d 7b a2 4c 7f 20 3a  20 74 24 3d 22 27 49 27  |".{.L. : t$="'I'|
0001ee50  64 20 6c 75 76 20 74 6f  20 27 61 76 65 20 61 20  |d luv to 'ave a |
0001ee60  6e 65 77 74 20 66 6f 72  20 6d 79 20 6e 65 77 20  |newt for my new |
0001ee70  70 6f 74 69 6f 6e 2c 27  20 74 68 65 20 61 6c 63  |potion,' the alc|
0001ee80  68 65 6d 69 73 74 20 73  61 79 73 2e 22 0d 7b ac  |hemist says.".{.|
0001ee90  05 cb 0d 7b b6 05 cd 0d  7b c0 12 e7 20 72 6f 6f  |...{....{... roo|
0001eea0  6d 6e 6f 25 3d 37 36 20  8c 0d 7b ca 5b e7 20 a7  |mno%=76 ..{.[. .|
0001eeb0  70 65 72 73 6f 6e 24 2c  22 6d 61 6e 22 29 3e 30  |person$,"man")>0|
0001eec0  20 84 20 a7 70 65 72 73  6f 6e 24 2c 22 74 72 61  | . .person$,"tra|
0001eed0  6d 70 22 29 3e 30 20 74  24 3d 22 27 4d 79 20 47  |mp")>0 t$="'My G|
0001eee0  6f 64 2c 20 49 27 6d 20  27 75 6e 67 72 79 2c 27  |od, I'm 'ungry,'|
0001eef0  20 74 68 65 20 74 72 61  6d 70 20 6d 75 6d 62 6c  | the tramp mumbl|
0001ef00  65 73 2e 22 0d 7b d4 05  cd 0d 7b de 1c e7 20 72  |es.".{....{... r|
0001ef10  6f 6f 6d 6e 6f 25 3d 37  38 20 80 20 66 69 72 65  |oomno%=78 . fire|
0001ef20  25 3e 30 20 8c 0d 7b e8  25 e7 20 a7 70 65 72 73  |%>0 ..{.%. .pers|
0001ef30  6f 6e 24 2c 22 62 6f 79  22 29 3e 30 20 c8 8e 20  |on$,"boy")>0 .. |
0001ef40  73 75 62 6a 65 63 74 24  20 ca 0d 7b f2 4b c9 20  |subject$ ..{.K. |
0001ef50  22 66 69 72 65 22 2c 22  62 6f 6e 66 69 72 65 22  |"fire","bonfire"|
0001ef60  20 3a 20 74 24 3d 22 27  49 20 62 75 69 6c 74 20  | : t$="'I built |
0001ef70  61 6e 64 20 6c 69 74 20  69 74 20 6d 79 73 65 6c  |and lit it mysel|
0001ef80  66 2c 20 79 27 6b 6e 6f  77 2c 27 20 68 65 20 73  |f, y'know,' he s|
0001ef90  61 79 73 2e 22 0d 7b fc  56 c9 20 22 67 6f 72 6d  |ays.".{.V. "gorm|
0001efa0  22 20 3a 20 74 24 3d 22  27 47 61 6e 67 69 6e 67  |" : t$="'Ganging|
0001efb0  20 61 67 61 69 6e 73 74  20 4f 62 73 63 65 6e 65  | against Obscene|
0001efc0  20 61 6e 64 20 52 65 70  75 6c 73 69 76 65 20 4d  | and Repulsive M|
0001efd0  61 6e 69 61 63 73 2c 20  74 68 61 74 20 69 73 2c  |aniacs, that is,|
0001efe0  27 20 68 65 20 73 61 79  73 2e 22 0d 7c 06 44 c9  |' he says.".|.D.|
0001eff0  20 22 71 75 65 73 74 22  2c 22 61 64 76 65 6e 74  | "quest","advent|
0001f000  75 72 65 22 20 3a 20 74  24 3d 22 27 4d 61 6b 65  |ure" : t$="'Make|
0001f010  20 6d 27 66 69 72 65 20  62 75 72 6e 20 62 65 74  | m'fire burn bet|
0001f020  74 65 72 2c 27 20 68 65  20 73 61 79 73 2e 22 0d  |ter,' he says.".|
0001f030  7c 10 3a 7f 20 3a 20 74  24 3d 22 27 44 6f 20 79  ||.:. : t$="'Do y|
0001f040  27 61 76 65 20 61 6e 79  74 68 69 6e 67 20 66 6f  |'ave anything fo|
0001f050  72 20 6d 27 66 69 72 65  3f 27 20 74 68 65 20 62  |r m'fire?' the b|
0001f060  6f 79 20 61 73 6b 73 2e  22 0d 7c 1a 05 cb 0d 7c  |oy asks.".|....||
0001f070  24 05 cd 0d 7c 2e 12 e7  20 72 6f 6f 6d 6e 6f 25  |$...|... roomno%|
0001f080  3d 38 32 20 8c 0d 7c 38  27 e7 20 a7 70 65 72 73  |=82 ..|8'. .pers|
0001f090  6f 6e 24 2c 22 77 6f 6d  61 6e 22 29 3e 30 20 c8  |on$,"woman")>0 .|
0001f0a0  8e 20 73 75 62 6a 65 63  74 24 20 ca 0d 7c 42 3d  |. subject$ ..|B=|
0001f0b0  c9 20 22 6d 65 64 61 6c  22 20 3a 20 74 24 3d 22  |. "medal" : t$="|
0001f0c0  27 49 20 66 6f 75 6e 64  20 69 74 20 6f 6e 20 74  |'I found it on t|
0001f0d0  68 65 20 72 6f 61 64 20  6f 6e 63 65 2c 27 20 73  |he road once,' s|
0001f0e0  68 65 20 73 61 79 73 2e  22 0d 7c 4c 42 c9 20 22  |he says.".|LB. "|
0001f0f0  67 6f 72 6d 22 20 3a 20  74 24 3d 22 27 53 6f 75  |gorm" : t$="'Sou|
0001f100  6e 64 73 20 6c 69 6b 65  20 61 6e 20 61 62 62 72  |nds like an abbr|
0001f110  65 76 69 61 74 69 6f 6e  20 74 6f 20 6d 65 2c 27  |eviation to me,'|
0001f120  20 73 68 65 20 73 61 79  73 2e 22 0d 7c 56 4a c9  | she says.".|VJ.|
0001f130  20 22 71 75 65 73 74 22  2c 22 61 64 76 65 6e 74  | "quest","advent|
0001f140  75 72 65 22 20 3a 20 74  24 3d 22 27 49 74 27 73  |ure" : t$="'It's|
0001f150  20 74 6f 20 73 74 6f 70  20 77 61 73 74 69 6e 67  | to stop wasting|
0001f160  20 6d 79 20 74 69 6d 65  2c 27 20 73 68 65 20 73  | my time,' she s|
0001f170  61 79 73 2e 22 0d 7c 60  68 c9 20 22 62 61 6c 6c  |ays.".|`h. "ball|
0001f180  65 74 22 2c 22 62 61 6c  6c 65 74 20 73 63 68 6f  |et","ballet scho|
0001f190  6f 6c 22 2c 22 73 63 68  6f 6f 6c 22 20 3a 20 74  |ol","school" : t|
0001f1a0  24 3d 22 27 57 65 6c 6c  20 49 27 6d 20 74 72 79  |$="'Well I'm try|
0001f1b0  69 6e 67 20 74 6f 20 72  75 6e 20 74 68 65 20 62  |ing to run the b|
0001f1c0  61 6c 6c 65 74 20 73 63  68 6f 6f 6c 20 6e 6f 77  |allet school now|
0001f1d0  2c 27 20 73 68 65 20 73  61 79 73 2e 22 0d 7c 6a  |,' she says.".|j|
0001f1e0  64 c9 20 22 66 65 61 74  68 65 72 22 2c 22 70 65  |d. "feather","pe|
0001f1f0  72 66 6f 72 6d 61 6e 63  65 22 2c 22 73 77 61 6e  |rformance","swan|
0001f200  20 6c 61 6b 65 22 20 3a  20 74 24 3d 22 27 54 68  | lake" : t$="'Th|
0001f210  65 20 70 65 72 66 6f 72  6d 61 6e 63 65 20 68 61  |e performance ha|
0001f220  64 20 62 65 74 74 65 72  20 67 6f 20 77 65 6c 6c  |d better go well|
0001f230  20 6e 6f 77 2c 27 20 73  68 65 20 73 61 79 73 2e  | now,' she says.|
0001f240  22 0d 7c 74 40 7f 20 3a  20 74 24 3d 22 27 49 20  |".|t@. : t$="'I |
0001f250  73 75 67 67 65 73 74 20  74 68 61 74 20 79 6f 75  |suggest that you|
0001f260  20 64 6f 6e 27 74 20 77  61 73 74 65 20 6d 79 20  | don't waste my |
0001f270  74 69 6d 65 2c 27 20 73  68 65 20 73 61 79 73 2e  |time,' she says.|
0001f280  22 0d 7c 7e 05 cb 0d 7c  88 05 cd 0d 7c 92 12 e7  |".|~...|....|...|
0001f290  20 72 6f 6f 6d 6e 6f 25  3d 38 34 20 8c 0d 7c 9c  | roomno%=84 ..|.|
0001f2a0  25 e7 20 a7 70 65 72 73  6f 6e 24 2c 22 6d 61 6e  |%. .person$,"man|
0001f2b0  22 29 3e 30 20 c8 8e 20  73 75 62 6a 65 63 74 24  |")>0 .. subject$|
0001f2c0  20 ca 0d 7c a6 55 c9 20  22 62 6f 79 22 2c 22 63  | ..|.U. "boy","c|
0001f2d0  6f 66 66 69 6e 22 20 3a  20 74 24 3d 22 27 54 68  |offin" : t$="'Th|
0001f2e0  65 20 62 6f 79 27 73 20  6e 6f 74 20 61 63 74 75  |e boy's not actu|
0001f2f0  61 6c 6c 79 20 64 65 61  64 2c 20 62 75 74 20 68  |ally dead, but h|
0001f300  65 20 6e 65 61 72 6c 79  20 69 73 2c 27 20 68 65  |e nearly is,' he|
0001f310  20 73 61 79 73 2e 22 0d  7c b0 75 c9 20 22 67 6f  | says.".|.u. "go|
0001f320  72 6d 22 2c 22 71 75 65  73 74 22 2c 22 61 64 76  |rm","quest","adv|
0001f330  65 6e 74 75 72 65 22 3a  f2 61 64 64 28 22 27 54  |enture":.add("'T|
0001f340  68 65 79 20 73 61 69 64  20 79 6f 75 20 77 6f 75  |hey said you wou|
0001f350  6c 64 20 63 6f 6d 65 21  27 20 68 65 20 65 78 63  |ld come!' he exc|
0001f360  6c 61 69 6d 73 2e 20 59  6f 75 20 73 74 61 79 20  |laims. You stay |
0001f370  74 68 65 72 65 20 61 73  20 74 68 65 20 6d 61 6e  |there as the man|
0001f380  20 72 61 76 65 73 20 6f  6e 2e 22 29 0d 7c ba e7  | raves on.").|..|
0001f390  f2 61 64 64 28 22 27 54  68 65 20 6b 69 6e 67 64  |.add("'The kingd|
0001f3a0  6f 6d 20 69 73 20 69 6e  20 64 61 6e 67 65 72 2c  |om is in danger,|
0001f3b0  20 74 68 65 20 6c 61 6e  64 20 77 69 6c 6c 20 73  | the land will s|
0001f3c0  6f 6f 6e 20 62 65 20 72  75 6c 65 64 20 62 79 20  |oon be ruled by |
0001f3d0  61 6e 20 65 76 69 6c 20  61 6e 64 20 63 72 75 65  |an evil and crue|
0001f3e0  6c 20 70 72 69 6e 63 65  20 6e 61 6d 65 64 20 42  |l prince named B|
0001f3f0  6f 72 69 73 2c 27 20 68  65 20 73 61 79 73 2e 20  |oris,' he says. |
0001f400  27 48 65 27 73 20 67 6f  69 6e 67 20 74 6f 20 63  |'He's going to c|
0001f410  72 65 61 74 65 20 74 75  72 6d 6f 69 6c 2e 20 57  |reate turmoil. W|
0001f420  65 20 63 61 6c 6c 20 69  74 20 70 72 6f 6a 65 63  |e call it projec|
0001f430  74 20 47 4f 52 4d 20 2d  20 47 65 6e 6f 63 69 64  |t GORM - Genocid|
0001f440  61 6c 20 4f 72 67 61 6e  69 73 61 74 69 6f 6e 20  |al Organisation |
0001f450  6f 66 20 74 68 65 20 52  65 6c 65 61 73 65 20 6f  |of the Release o|
0001f460  66 20 74 68 65 20 4d 61  65 6c 73 74 72 6f 6d 27  |f the Maelstrom'|
0001f470  2e 22 29 0d 7c c4 da f2  61 64 64 28 22 27 4d 79  |.").|...add("'My|
0001f480  20 70 6f 77 65 72 66 75  6c 2c 20 62 75 74 20 6e  | powerful, but n|
0001f490  6f 77 20 70 6f 69 73 6f  6e 65 64 20 73 6f 6e 20  |ow poisoned son |
0001f4a0  63 6f 75 6c 64 20 73 74  6f 70 20 70 72 6f 6a 65  |could stop proje|
0001f4b0  63 74 20 47 4f 52 4d 20  69 66 20 68 65 20 63 6f  |ct GORM if he co|
0001f4c0  75 6c 64 20 62 65 20 6d  61 64 65 20 62 65 74 74  |uld be made bett|
0001f4d0  65 72 2e 20 54 68 65 20  70 72 6f 70 68 65 74 73  |er. The prophets|
0001f4e0  20 74 6f 6c 64 20 6f 66  20 61 6e 20 61 64 76 65  | told of an adve|
0001f4f0  6e 74 75 72 65 72 20 77  68 6f 20 77 6f 75 6c 64  |nturer who would|
0001f500  20 63 6f 6d 65 20 74 27  73 61 76 65 20 75 73 20  | come t'save us |
0001f510  61 6e 64 20 72 65 6c 65  61 73 65 20 74 68 65 20  |and release the |
0001f520  6c 61 6e 64 20 6f 66 20  65 76 69 6c 2c 20 74 68  |land of evil, th|
0001f530  61 74 20 61 64 76 65 6e  74 75 72 65 72 20 6d 75  |at adventurer mu|
0001f540  73 74 20 62 65 20 79 6f  75 27 2e 22 29 0d 7c ce  |st be you'.").|.|
0001f550  c8 74 24 3d 22 27 49 20  6b 6e 6f 77 20 74 68 61  |.t$="'I know tha|
0001f560  74 20 73 6f 6d 65 6f 6e  65 20 69 6e 20 74 68 65  |t someone in the|
0001f570  20 76 69 6c 6c 61 67 65  20 69 73 20 6e 65 61 72  | village is near|
0001f580  20 74 6f 20 70 65 72 66  65 63 74 69 6e 67 20 74  | to perfecting t|
0001f590  68 65 20 61 72 74 20 6f  66 20 74 69 6d 65 20 74  |he art of time t|
0001f5a0  72 61 76 65 6c 2c 20 73  6f 6d 65 74 68 69 6e 67  |ravel, something|
0001f5b0  20 77 68 69 63 68 20 79  6f 75 20 6d 75 73 74 20  | which you must |
0001f5c0  75 73 65 20 74 6f 20 76  6f 79 61 67 65 20 69 6e  |use to voyage in|
0001f5d0  74 6f 20 74 68 65 20 66  75 74 75 72 65 20 61 6e  |to the future an|
0001f5e0  64 20 62 72 69 6e 67 20  62 61 63 6b 20 61 20 6d  |d bring back a m|
0001f5f0  65 64 65 63 69 6e 65 20  66 6f 72 20 6d 79 20 73  |edecine for my s|
0001f600  6f 6e 2e 20 59 6f 75 20  6d 75 73 74 20 68 75 72  |on. You must hur|
0001f610  72 79 27 2e 22 0d 7c d8  43 7f 20 3a 20 74 24 3d  |ry'.".|.C. : t$=|
0001f620  22 27 4f 68 20 69 66 20  6f 6e 6c 79 20 73 6f 6d  |"'Oh if only som|
0001f630  65 6f 6e 65 20 77 6f 75  6c 64 20 68 65 6c 70 20  |eone would help |
0001f640  6d 65 21 27 20 74 68 65  20 6f 6c 64 20 6d 61 6e  |me!' the old man|
0001f650  20 77 61 69 6c 73 2e 22  0d 7c e2 05 cb 0d 7c ec  | wails.".|....|.|
0001f660  05 cd 0d 7c f6 12 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...|... roomno%=|
0001f670  38 35 20 8c 0d 7d 00 27  e7 20 a7 70 65 72 73 6f  |85 ..}.'. .perso|
0001f680  6e 24 2c 22 67 75 61 72  64 22 29 3e 30 20 c8 8e  |n$,"guard")>0 ..|
0001f690  20 73 75 62 6a 65 63 74  24 20 ca 0d 7d 0a 5f c9  | subject$ ..}._.|
0001f6a0  20 22 67 6f 72 6d 22 20  3a 20 74 24 3d 22 27 57  | "gorm" : t$="'W|
0001f6b0  65 6c 6c 2c 20 74 69 73  20 61 20 73 68 6f 72 74  |ell, tis a short|
0001f6c0  65 6e 65 64 20 73 70 65  6c 6c 69 6e 67 20 6f 66  |ened spelling of|
0001f6d0  20 74 68 65 20 67 72 65  61 74 20 62 6f 6f 6b 2c  | the great book,|
0001f6e0  20 47 6f 72 6d 65 6e 67  61 73 74 2c 27 20 68 65  | Gormengast,' he|
0001f6f0  20 72 65 70 6c 69 65 73  2e 22 0d 7d 14 3a c9 20  | replies.".}.:. |
0001f700  22 64 72 69 6e 6b 22 2c  22 63 75 70 22 20 3a 20  |"drink","cup" : |
0001f710  74 24 3d 22 27 4c 6f 76  65 6c 79 2c 20 6d 79 20  |t$="'Lovely, my |
0001f720  64 72 69 6e 6b 20 69 73  2c 27 20 68 65 20 73 61  |drink is,' he sa|
0001f730  79 73 2e 22 0d 7d 1e 4c  c9 20 22 6a 61 69 6c 22  |ys.".}.L. "jail"|
0001f740  20 3a 20 74 24 3d 22 27  49 20 6c 6f 76 65 20 77  | : t$="'I love w|
0001f750  6f 72 6b 69 6e 67 20 68  65 72 65 2c 20 69 74 27  |orking here, it'|
0001f760  73 20 73 6f 20 68 6f 6d  65 6c 79 20 61 6e 64 20  |s so homely and |
0001f770  77 61 72 6d 2c 27 20 68  65 20 73 61 79 73 2e 22  |warm,' he says."|
0001f780  0d 7d 28 41 7f 20 3a 20  74 24 3d 22 27 49 20 73  |.}(A. : t$="'I s|
0001f790  68 6f 75 6c 64 6e 27 74  20 72 65 61 6c 6c 79 20  |houldn't really |
0001f7a0  74 61 6c 6b 20 74 6f 20  79 6f 75 2c 27 20 68 65  |talk to you,' he|
0001f7b0  20 73 61 79 73 20 64 75  74 69 66 75 6c 6c 79 2e  | says dutifully.|
0001f7c0  22 0d 7d 32 05 cb 0d 7d  3c 46 e7 20 a7 70 65 72  |".}2...}<F. .per|
0001f7d0  73 6f 6e 24 2c 22 67 75  61 72 64 22 29 3e 30 20  |son$,"guard")>0 |
0001f7e0  80 20 64 72 75 67 67 65  64 25 3d 31 20 74 24 3d  |. drugged%=1 t$=|
0001f7f0  22 54 68 65 20 67 75 61  72 64 20 73 6e 6f 72 65  |"The guard snore|
0001f800  73 20 61 20 6c 69 74 74  6c 65 2e 22 0d 7d 46 05  |s a little.".}F.|
0001f810  cd 0d 7d 50 0f e7 20 7a  6f 6e 65 25 3d 32 20 8c  |..}P.. zone%=2 .|
0001f820  0d 7d 5a 22 7a 25 3d 30  3a e7 20 70 6f 6c 69 63  |.}Z"z%=0:. polic|
0001f830  65 25 28 31 29 3d 72 6f  6f 6d 6e 6f 25 20 7a 25  |e%(1)=roomno% z%|
0001f840  3d 31 0d 7d 64 1d e7 20  70 6f 6c 69 63 65 25 28  |=1.}d.. police%(|
0001f850  32 29 3d 72 6f 6f 6d 6e  6f 25 20 7a 25 3d 31 0d  |2)=roomno% z%=1.|
0001f860  7d 6e 2c e7 20 7a 25 3d  31 20 80 20 a7 70 65 72  |}n,. z%=1 . .per|
0001f870  73 6f 6e 24 2c 22 6d 61  6e 22 29 3e 30 20 c8 8e  |son$,"man")>0 ..|
0001f880  20 73 75 62 6a 65 63 74  24 20 ca 0d 7d 78 4b c9  | subject$ ..}xK.|
0001f890  20 22 67 6f 72 6d 22 20  3a 20 74 24 3d 22 27 47  | "gorm" : t$="'G|
0001f8a0  6f 72 6d 61 6e 64 69 7a  65 72 73 20 61 72 65 20  |ormandizers are |
0001f8b0  67 6c 75 74 74 6f 6e 73  2c 20 69 66 20 74 68 61  |gluttons, if tha|
0001f8c0  74 20 68 65 6c 70 73 2c  27 20 68 65 20 72 65 70  |t helps,' he rep|
0001f8d0  6c 69 65 73 2e 22 0d 7d  82 50 c9 20 22 6a 61 69  |lies.".}.P. "jai|
0001f8e0  6c 22 20 3a 20 74 24 3d  22 27 49 20 68 61 74 65  |l" : t$="'I hate|
0001f8f0  20 74 68 69 73 20 70 6c  61 63 65 20 2d 20 69 74  | this place - it|
0001f900  27 73 20 73 6f 20 63 6f  6c 64 20 61 6e 64 20 75  |'s so cold and u|
0001f910  6e 77 65 6c 63 6f 6d 69  6e 67 2c 27 20 68 65 20  |nwelcoming,' he |
0001f920  73 61 79 73 2e 22 0d 7d  8c 52 c9 20 22 6d 61 7a  |says.".}.R. "maz|
0001f930  65 22 20 3a 20 74 24 3d  22 27 54 68 61 74 27 73  |e" : t$="'That's|
0001f940  20 74 68 65 72 65 20 74  6f 20 70 72 65 76 65 6e  | there to preven|
0001f950  74 20 70 72 69 73 6f 6e  65 72 73 20 66 72 6f 6d  |t prisoners from|
0001f960  20 65 73 63 61 70 69 6e  67 2c 27 20 68 65 20 72  | escaping,' he r|
0001f970  65 70 6c 69 65 73 2e 22  0d 7d 96 29 7f 20 3a 20  |eplies.".}.). : |
0001f980  74 24 3d 22 27 49 20 6d  75 73 74 20 67 65 74 20  |t$="'I must get |
0001f990  67 6f 69 6e 67 2c 27 20  68 65 20 73 61 79 73 2e  |going,' he says.|
0001f9a0  22 0d 7d a0 05 cb 0d 7d  aa 05 cd 0d 7d b4 13 e7  |".}....}....}...|
0001f9b0  20 72 6f 6f 6d 6e 6f 25  3d 32 32 36 20 8c 0d 7d  | roomno%=226 ..}|
0001f9c0  be 74 e7 20 a7 70 65 72  73 6f 6e 24 2c 22 63 68  |.t. .person$,"ch|
0001f9d0  69 6c 64 22 29 3e 30 20  84 20 a7 70 65 72 73 6f  |ild")>0 . .perso|
0001f9e0  6e 24 2c 22 67 69 72 6c  22 29 3e 30 20 74 24 3d  |n$,"girl")>0 t$=|
0001f9f0  22 54 68 65 20 6c 69 74  74 6c 65 20 67 69 72 6c  |"The little girl|
0001fa00  73 20 74 65 6c 6c 73 20  79 6f 75 20 74 68 61 74  |s tells you that|
0001fa10  20 73 68 65 20 73 68 6f  75 6c 64 6e 27 74 20 74  | she shouldn't t|
0001fa20  61 6c 6b 20 74 6f 20 73  74 72 61 6e 67 65 72 73  |alk to strangers|
0001fa30  2e 22 0d 7d c8 05 cd 0d  7d d2 13 e7 20 72 6f 6f  |.".}....}... roo|
0001fa40  6d 6e 6f 25 3d 32 34 38  20 8c 0d 7d dc 25 e7 20  |mno%=248 ..}.%. |
0001fa50  a7 70 65 72 73 6f 6e 24  2c 22 6d 61 6e 22 29 3e  |.person$,"man")>|
0001fa60  30 20 c8 8e 20 73 75 62  6a 65 63 74 24 20 ca 0d  |0 .. subject$ ..|
0001fa70  7d e6 5e c9 20 22 67 6f  72 6d 22 2c 22 71 75 65  |}.^. "gorm","que|
0001fa80  73 74 22 3a 20 74 24 3d  22 27 49 27 6d 20 61 66  |st": t$="'I'm af|
0001fa90  72 61 69 64 20 49 20 6f  6e 6c 79 20 6b 6e 6f 77  |raid I only know|
0001faa0  20 61 62 6f 75 74 20 6d  61 67 61 7a 69 6e 65 73  | about magazines|
0001fab0  20 6f 72 20 6e 65 77 73  70 61 70 65 72 73 2c 27  | or newspapers,'|
0001fac0  20 68 65 20 72 65 70 6c  69 65 73 2e 22 0d 7d f0  | he replies.".}.|
0001fad0  47 c9 20 22 6d 61 67 61  7a 69 6e 65 22 2c 22 6e  |G. "magazine","n|
0001fae0  65 77 73 70 61 70 65 72  22 20 3a 20 74 24 3d 22  |ewspaper" : t$="|
0001faf0  27 54 68 65 79 27 72 65  20 74 68 69 6e 67 73 20  |'They're things |
0001fb00  79 6f 75 20 72 65 61 64  2c 27 20 68 65 20 73 61  |you read,' he sa|
0001fb10  79 73 2e 22 0d 7d fa 4d  7f 20 3a 20 74 24 3d 22  |ys.".}.M. : t$="|
0001fb20  27 41 72 65 20 79 6f 75  20 67 6f 69 6e 67 20 74  |'Are you going t|
0001fb30  6f 20 62 75 79 20 61 20  6e 65 77 73 70 61 70 65  |o buy a newspape|
0001fb40  72 20 6f 72 20 77 68 61  74 3f 27 20 68 65 20 73  |r or what?' he s|
0001fb50  61 79 73 20 61 67 72 65  73 73 69 76 65 6c 79 2e  |ays agressively.|
0001fb60  22 0d 7e 04 05 cb 0d 7e  0e 05 cd 0d 7e 18 13 e7  |".~....~....~...|
0001fb70  20 72 6f 6f 6d 6e 6f 25  3d 32 34 39 20 8c 0d 7e  | roomno%=249 ..~|
0001fb80  22 27 e7 20 a7 70 65 72  73 6f 6e 24 2c 22 77 6f  |"'. .person$,"wo|
0001fb90  6d 61 6e 22 29 3e 30 20  c8 8e 20 73 75 62 6a 65  |man")>0 .. subje|
0001fba0  63 74 24 20 ca 0d 7e 2c  50 c9 20 22 67 6f 72 6d  |ct$ ..~,P. "gorm|
0001fbb0  22 2c 22 71 75 65 73 74  22 3a 20 74 24 3d 22 27  |","quest": t$="'|
0001fbc0  46 69 6e 64 20 6d 65 20  73 6f 6d 65 20 6d 6f 72  |Find me some mor|
0001fbd0  65 20 6f 72 6e 61 6d 65  6e 74 73 2c 20 70 72 6f  |e ornaments, pro|
0001fbe0  62 61 62 6c 79 2c 27 20  73 68 65 20 72 65 70 6c  |bably,' she repl|
0001fbf0  69 65 73 2e 22 0d 7e 36  5d c9 20 22 6f 72 6e 61  |ies.".~6]. "orna|
0001fc00  6d 65 6e 74 73 22 2c 22  73 6f 75 76 65 6e 69 72  |ments","souvenir|
0001fc10  73 22 2c 22 74 72 6f 70  68 69 65 73 22 20 3a 20  |s","trophies" : |
0001fc20  74 24 3d 22 27 54 68 65  79 27 72 65 20 6d 79 20  |t$="'They're my |
0001fc30  70 72 69 64 65 20 61 6e  64 20 6a 6f 79 2c 27 20  |pride and joy,' |
0001fc40  73 68 65 20 73 61 79 73  20 70 72 6f 75 64 6c 79  |she says proudly|
0001fc50  2e 22 0d 7e 40 44 7f 20  3a 20 74 24 3d 22 27 44  |.".~@D. : t$="'D|
0001fc60  6f 20 79 6f 75 20 6c 69  6b 65 20 6d 79 20 63 6f  |o you like my co|
0001fc70  6c 6c 65 63 74 69 6f 6e  20 6f 66 20 6f 72 6e 61  |llection of orna|
0001fc80  6d 65 6e 74 73 3f 27 20  73 68 65 20 61 73 6b 73  |ments?' she asks|
0001fc90  20 79 6f 75 2e 22 0d 7e  4a 05 cb 0d 7e 54 05 cd  | you.".~J...~T..|
0001fca0  0d 7e 5e 13 e7 20 72 6f  6f 6d 6e 6f 25 3d 32 35  |.~^.. roomno%=25|
0001fcb0  30 20 8c 0d 7e 68 27 e7  20 a7 70 65 72 73 6f 6e  |0 ..~h'. .person|
0001fcc0  24 2c 22 77 6f 6d 61 6e  22 29 3e 30 20 c8 8e 20  |$,"woman")>0 .. |
0001fcd0  73 75 62 6a 65 63 74 24  20 ca 0d 7e 72 4e c9 20  |subject$ ..~rN. |
0001fce0  22 67 6f 72 6d 22 2c 22  71 75 65 73 74 22 3a 20  |"gorm","quest": |
0001fcf0  74 24 3d 22 27 48 65 6c  70 20 6d 65 20 77 69 74  |t$="'Help me wit|
0001fd00  68 20 6d 79 20 61 72 72  61 6e 67 69 6e 67 2c 20  |h my arranging, |
0001fd10  70 72 6f 62 61 62 6c 79  2c 27 20 73 68 65 20 72  |probably,' she r|
0001fd20  65 70 6c 69 65 73 2e 22  0d 7e 7c 59 c9 20 22 62  |eplies.".~|Y. "b|
0001fd30  6f 75 71 75 65 74 22 2c  22 66 6c 6f 77 65 72 22  |ouquet","flower"|
0001fd40  2c 22 66 6c 6f 77 65 72  73 22 20 3a 20 74 24 3d  |,"flowers" : t$=|
0001fd50  22 27 49 20 64 6f 20 6c  6f 76 65 20 66 6c 6f 77  |"'I do love flow|
0001fd60  65 72 20 61 72 72 61 6e  67 69 6e 67 2c 27 20 73  |er arranging,' s|
0001fd70  68 65 20 73 61 79 73 20  70 72 6f 75 64 6c 79 2e  |he says proudly.|
0001fd80  22 0d 7e 86 53 c9 20 22  61 72 72 61 6e 67 69 6e  |".~.S. "arrangin|
0001fd90  67 22 3a 20 74 24 3d 22  27 49 27 76 65 20 62 65  |g": t$="'I've be|
0001fda0  65 6e 20 66 6c 6f 77 65  72 20 61 72 72 61 6e 67  |en flower arrang|
0001fdb0  69 6e 67 20 73 69 6e 63  65 20 49 20 77 61 73 20  |ing since I was |
0001fdc0  66 69 76 65 2c 27 20 73  68 65 20 72 65 70 6c 69  |five,' she repli|
0001fdd0  65 73 2e 22 0d 7e 90 5a  7f 3a 74 24 3d 22 27 49  |es.".~.Z.:t$="'I|
0001fde0  20 64 6f 6e 27 74 20 73  75 70 70 6f 73 65 20 79  | don't suppose y|
0001fdf0  6f 75 20 63 6f 75 6c 64  20 68 65 6c 70 20 6d 65  |ou could help me|
0001fe00  20 66 69 6e 64 20 73 6f  6d 65 20 6d 6f 72 65 20  | find some more |
0001fe10  66 6c 6f 77 65 72 73 20  63 6f 75 6c 64 20 79 6f  |flowers could yo|
0001fe20  75 3f 27 20 73 68 65 20  61 73 6b 73 2e 22 0d 7e  |u?' she asks.".~|
0001fe30  9a 05 cb 0d 7e a4 05 cd  0d 7e ae 13 e7 20 72 6f  |....~....~... ro|
0001fe40  6f 6d 6e 6f 25 3d 32 35  33 20 8c 0d 7e b8 27 e7  |omno%=253 ..~.'.|
0001fe50  20 a7 70 65 72 73 6f 6e  24 2c 22 77 6f 6d 61 6e  | .person$,"woman|
0001fe60  22 29 3e 30 20 c8 8e 20  73 75 62 6a 65 63 74 24  |")>0 .. subject$|
0001fe70  20 ca 0d 7e c2 47 c9 20  22 67 6f 72 6d 22 2c 22  | ..~.G. "gorm","|
0001fe80  71 75 65 73 74 22 3a 20  74 24 3d 22 27 48 65 6c  |quest": t$="'Hel|
0001fe90  70 20 6d 65 20 67 65 74  20 62 65 74 74 65 72 2c  |p me get better,|
0001fea0  20 70 72 6f 62 61 62 6c  79 2c 27 20 73 68 65 20  | probably,' she |
0001feb0  72 65 70 6c 69 65 73 2e  22 0d 7e cc 61 c9 20 22  |replies.".~.a. "|
0001fec0  70 72 65 73 63 72 69 70  74 69 6f 6e 22 3a 20 74  |prescription": t|
0001fed0  24 3d 22 27 43 61 6e 20  79 6f 75 20 74 61 6b 65  |$="'Can you take|
0001fee0  20 69 74 20 74 6f 20 74  68 65 20 43 68 65 6d 69  | it to the Chemi|
0001fef0  73 74 73 3f 2c 20 49 20  6e 65 65 64 20 6d 79 20  |sts?, I need my |
0001ff00  6d 65 64 69 63 61 74 69  6f 6e 2c 27 20 73 68 65  |medication,' she|
0001ff10  20 72 65 70 6c 69 65 73  2e 22 0d 7e d6 2e 7f 3a  | replies.".~...:|
0001ff20  74 24 3d 22 27 4f 6f 6f  6f 6f 68 2c 20 49 20 66  |t$="'Oooooh, I f|
0001ff30  65 65 6c 20 69 6c 6c 27  2c 20 73 68 65 20 67 72  |eel ill', she gr|
0001ff40  75 6d 62 6c 65 73 2e 22  0d 7e e0 05 cb 0d 7e ea  |umbles.".~....~.|
0001ff50  05 cd 0d 7e f4 13 e7 20  72 6f 6f 6d 6e 6f 25 3d  |...~... roomno%=|
0001ff60  32 36 36 20 8c 0d 7e fe  69 e7 20 a7 70 65 72 73  |266 ..~.i. .pers|
0001ff70  6f 6e 24 2c 22 77 6f 6d  61 6e 22 29 3e 30 20 84  |on$,"woman")>0 .|
0001ff80  20 a7 70 65 72 73 6f 6e  24 2c 22 62 61 72 6d 61  | .person$,"barma|
0001ff90  69 64 22 29 3e 30 20 74  24 3d 22 27 57 6f 75 6c  |id")>0 t$="'Woul|
0001ffa0  64 20 79 6f 75 20 6c 69  6b 65 20 74 6f 20 6f 72  |d you like to or|
0001ffb0  64 65 72 20 61 20 64 72  69 6e 6b 2c 20 73 69 72  |der a drink, sir|
0001ffc0  3f 27 2c 20 73 68 65 20  61 73 6b 73 2e 22 0d 7f  |?', she asks."..|
0001ffd0  08 05 cd 0d 7f 12 13 e7  20 72 6f 6f 6d 6e 6f 25  |........ roomno%|
0001ffe0  3d 32 38 31 20 8c 0d 7f  1c 25 e7 20 a7 70 65 72  |=281 ....%. .per|
0001fff0  73 6f 6e 24 2c 22 6d 61  6e 22 29 3e 30 20 c8 8e  |son$,"man")>0 ..|
00020000  20 73 75 62 6a 65 63 74  24 20 ca 0d 7f 26 36 c9  | subject$ ...&6.|
00020010  20 22 67 6f 72 6d 22 2c  22 71 75 65 73 74 22 3a  | "gorm","quest":|
00020020  20 74 24 3d 22 27 44 75  6e 6e 6f 2c 20 73 6f 72  | t$="'Dunno, sor|
00020030  72 79 2c 27 20 68 65 20  72 65 70 6c 69 65 73 2e  |ry,' he replies.|
00020040  22 0d 7f 30 55 c9 20 22  6c 65 61 66 6c 65 74 73  |"..0U. "leaflets|
00020050  22 2c 22 74 6f 77 6e 22  3a 74 24 3d 22 27 54 68  |","town":t$="'Th|
00020060  65 20 6c 65 61 66 6c 65  74 73 20 77 69 6c 6c 20  |e leaflets will |
00020070  74 65 6c 6c 20 79 75 68  20 61 62 6f 75 74 20 74  |tell yuh about t|
00020080  68 65 20 74 6f 77 6e 2c  27 20 68 65 20 72 65 70  |he town,' he rep|
00020090  6c 69 65 73 2e 22 0d 7f  3a 2a 7f 3a 74 24 3d 22  |lies."..:*.:t$="|
000200a0  27 43 61 6e 20 49 20 27  65 6c 70 20 79 75 68 3f  |'Can I 'elp yuh?|
000200b0  27 2c 20 68 65 20 69 6e  71 75 69 72 65 73 2e 22  |', he inquires."|
000200c0  0d 7f 44 05 cb 0d 7f 4e  05 cd 0d 7f 58 13 e7 20  |..D....N....X.. |
000200d0  72 6f 6f 6d 6e 6f 25 3d  33 30 31 20 8c 0d 7f 62  |roomno%=301 ...b|
000200e0  27 e7 20 a7 70 65 72 73  6f 6e 24 2c 22 77 6f 6d  |'. .person$,"wom|
000200f0  61 6e 22 29 3e 30 20 c8  8e 20 73 75 62 6a 65 63  |an")>0 .. subjec|
00020100  74 24 20 ca 0d 7f 6c 37  c9 20 22 67 6f 72 6d 22  |t$ ...l7. "gorm"|
00020110  2c 22 71 75 65 73 74 22  3a 20 74 24 3d 22 27 44  |,"quest": t$="'D|
00020120  75 6e 6e 6f 2c 20 73 6f  72 72 79 2c 27 20 73 68  |unno, sorry,' sh|
00020130  65 20 72 65 70 6c 69 65  73 2e 22 0d 7f 76 85 c9  |e replies."..v..|
00020140  20 22 6d 75 73 65 75 6d  22 2c 22 70 61 79 6d 65  | "museum","payme|
00020150  6e 74 22 2c 22 65 6e 74  72 79 22 2c 22 70 61 79  |nt","entry","pay|
00020160  69 6e 67 22 3a 74 24 3d  22 27 59 6f 75 20 6e 65  |ing":t$="'You ne|
00020170  65 64 20 74 6f 20 70 61  79 20 6d 65 20 77 69 74  |ed to pay me wit|
00020180  68 20 73 6f 6d 65 74 68  69 6e 67 20 69 66 20 79  |h something if y|
00020190  6f 75 20 61 72 65 20 74  6f 20 6c 6f 6f 6b 20 61  |ou are to look a|
000201a0  72 6f 75 6e 64 20 74 68  65 20 6d 75 73 65 75 6d  |round the museum|
000201b0  2c 27 20 73 68 65 20 72  65 70 6c 69 65 73 2e 22  |,' she replies."|
000201c0  0d 7f 80 2b 7f 3a 74 24  3d 22 27 43 61 6e 20 49  |...+.:t$="'Can I|
000201d0  20 27 65 6c 70 20 79 75  68 3f 27 2c 20 73 68 65  | 'elp yuh?', she|
000201e0  20 69 6e 71 75 69 72 65  73 2e 22 0d 7f 8a 05 cb  | inquires.".....|
000201f0  0d 7f 94 05 cd 0d 7f 9e  13 e7 20 72 6f 6f 6d 6e  |.......... roomn|
00020200  6f 25 3d 33 30 32 20 8c  0d 7f a8 27 e7 20 a7 70  |o%=302 ....'. .p|
00020210  65 72 73 6f 6e 24 2c 22  77 6f 6d 61 6e 22 29 3e  |erson$,"woman")>|
00020220  30 20 c8 8e 20 73 75 62  6a 65 63 74 24 20 ca 0d  |0 .. subject$ ..|
00020230  7f b2 4f c9 20 22 67 6f  72 6d 22 2c 22 71 75 65  |..O. "gorm","que|
00020240  73 74 22 3a 20 74 24 3d  22 27 49 20 64 6f 20 6e  |st": t$="'I do n|
00020250  6f 74 20 6b 6e 6f 77 2c  20 49 20 61 6d 20 64 72  |ot know, I am dr|
00020260  65 61 64 66 75 6c 6c 79  20 73 6f 72 72 79 2c 27  |eadfully sorry,'|
00020270  20 73 68 65 20 72 65 70  6c 69 65 73 2e 22 0d 7f  | she replies."..|
00020280  bc 52 c9 20 22 6d 75 73  65 75 6d 22 20 3a 20 74  |.R. "museum" : t|
00020290  24 3d 22 27 49 74 20 72  65 61 6c 6c 79 20 69 73  |$="'It really is|
000202a0  20 74 68 65 20 6d 6f 73  74 20 74 72 75 6c 79 20  | the most truly |
000202b0  77 6f 6e 64 65 72 66 75  6c 20 6d 75 73 65 75 6d  |wonderful museum|
000202c0  2c 27 20 73 68 65 20 72  65 70 6c 69 65 73 2e 22  |,' she replies."|
000202d0  0d 7f c6 53 c9 20 22 64  6f 6c 6c 22 20 3a 20 74  |...S. "doll" : t|
000202e0  24 3d 22 27 44 6f 6c 6c  73 20 61 72 65 20 6d 79  |$="'Dolls are my|
000202f0  20 66 61 76 6f 75 72 69  74 65 20 65 78 61 6d 70  | favourite examp|
00020300  6c 65 73 20 6f 66 20 61  6e 63 69 65 6e 74 20 74  |les of ancient t|
00020310  6f 79 73 2c 27 20 73 68  65 20 72 65 70 6c 69 65  |oys,' she replie|
00020320  73 2e 22 0d 7f d0 44 c9  20 22 6f 72 6e 61 6d 65  |s."...D. "orname|
00020330  6e 74 22 20 3a 20 74 24  3d 22 27 54 68 65 20 6f  |nt" : t$="'The o|
00020340  72 6e 61 6d 65 6e 74 20  68 61 73 20 67 72 65 61  |rnament has grea|
00020350  74 20 76 61 6c 75 65 2c  27 20 73 68 65 20 72 65  |t value,' she re|
00020360  70 6c 69 65 73 2e 22 0d  7f da 43 7f 3a 74 24 3d  |plies."...C.:t$=|
00020370  22 27 48 6f 77 20 6d 61  79 20 49 20 62 65 20 6f  |"'How may I be o|
00020380  66 20 61 73 73 69 73 74  61 6e 63 65 20 74 6f 20  |f assistance to |
00020390  79 6f 75 2c 20 73 69 72  3f 27 2c 20 73 68 65 20  |you, sir?', she |
000203a0  69 6e 71 75 69 72 65 73  2e 22 0d 7f e4 05 cb 0d  |inquires."......|
000203b0  7f ee 05 cd 0d 7f f8 13  e7 20 72 6f 6f 6d 6e 6f  |......... roomno|
000203c0  25 3d 33 30 35 20 8c 0d  80 02 6f e7 20 a7 70 65  |%=305 ....o. .pe|
000203d0  72 73 6f 6e 24 2c 22 67  75 61 72 64 22 29 3e 30  |rson$,"guard")>0|
000203e0  20 84 20 a7 70 65 72 73  6f 6e 24 2c 22 6d 61 6e  | . .person$,"man|
000203f0  22 29 3e 30 20 74 24 3d  22 27 49 20 61 6d 20 6e  |")>0 t$="'I am n|
00020400  6f 74 20 61 6c 6c 6f 77  65 64 20 74 6f 20 74 61  |ot allowed to ta|
00020410  6c 6b 20 6f 6e 20 6d 79  20 6a 6f 62 2c 20 73 69  |lk on my job, si|
00020420  72 27 2c 20 68 65 20 73  61 79 73 20 66 6f 72 6d  |r', he says form|
00020430  61 6c 6c 79 2e 22 0d 80  0c 05 cd 0d 80 16 13 e7  |ally."..........|
00020440  20 72 6f 6f 6d 6e 6f 25  3d 33 31 30 20 8c 0d 80  | roomno%=310 ...|
00020450  20 3e e7 20 a7 70 65 72  73 6f 6e 24 2c 22 77 6f  | >. .person$,"wo|
00020460  6d 61 6e 22 29 3e 30 20  84 20 a7 70 65 72 73 6f  |man")>0 . .perso|
00020470  6e 24 2c 22 6d 65 64 69  75 6d 22 29 3e 30 20 c8  |n$,"medium")>0 .|
00020480  8e 20 73 75 62 6a 65 63  74 24 20 ca 0d 80 2a 4c  |. subject$ ...*L|
00020490  c9 20 22 67 6f 72 6d 22  2c 22 71 75 65 73 74 22  |. "gorm","quest"|
000204a0  3a 20 74 24 3d 22 27 49  20 64 6f 20 6e 6f 74 20  |: t$="'I do not |
000204b0  6b 6e 6f 77 2c 20 49 27  6d 20 74 65 72 72 69 62  |know, I'm terrib|
000204c0  6c 79 20 73 6f 72 72 79  2c 27 20 73 68 65 20 72  |ly sorry,' she r|
000204d0  65 70 6c 69 65 73 2e 22  0d 80 34 54 c9 20 22 70  |eplies."..4T. "p|
000204e0  61 79 6d 65 6e 74 22 2c  22 70 61 79 69 6e 67 22  |ayment","paying"|
000204f0  20 3a 20 74 24 3d 22 27  49 20 6e 65 65 64 20 73  | : t$="'I need s|
00020500  6f 6d 65 20 70 61 79 6d  65 6e 74 20 66 6f 72 20  |ome payment for |
00020510  61 6e 79 20 73 65 72 76  69 63 65 73 2c 27 20 73  |any services,' s|
00020520  68 65 20 72 65 70 6c 69  65 73 2e 22 0d 80 3e 6d  |he replies."..>m|
00020530  c9 20 22 67 72 61 76 65  73 74 6f 6e 65 22 2c 22  |. "gravestone","|
00020540  64 6f 6c 6c 22 20 3a 20  74 24 3d 22 27 57 65 6c  |doll" : t$="'Wel|
00020550  6c 2c 20 22 2b 73 75 62  6a 65 63 74 24 2b 22 73  |l, "+subject$+"s|
00020560  20 61 72 65 20 67 6f 6f  64 20 65 78 61 6d 70 6c  | are good exampl|
00020570  65 73 20 6f 66 20 6c 69  6e 6b 73 20 77 69 74 68  |es of links with|
00020580  20 74 68 65 20 70 61 73  74 2c 27 20 73 68 65 20  | the past,' she |
00020590  72 65 70 6c 69 65 73 2e  22 0d 80 48 44 c9 20 22  |replies."..HD. "|
000205a0  74 69 6d 65 74 72 61 76  65 6c 22 2c 22 6d 61 67  |timetravel","mag|
000205b0  69 63 22 20 3a 20 74 24  3d 22 27 57 68 61 74 20  |ic" : t$="'What |
000205c0  61 72 65 20 79 6f 75 20  6f 6e 20 61 62 6f 75 74  |are you on about|
000205d0  3f 27 20 73 68 65 20 61  73 6b 73 2e 22 0d 80 52  |?' she asks."..R|
000205e0  78 7f 3a 74 24 3d 22 27  49 66 20 79 6f 75 20 6e  |x.:t$="'If you n|
000205f0  65 65 64 20 61 6e 79 20  6f 66 20 6d 79 20 73 65  |eed any of my se|
00020600  72 76 69 63 65 73 27 2c  20 74 68 65 20 6d 65 64  |rvices', the med|
00020610  69 75 6d 20 73 61 79 73  2c 20 27 49 20 77 69 6c  |ium says, 'I wil|
00020620  6c 20 6e 65 65 64 20 70  61 79 6d 65 6e 74 20 61  |l need payment a|
00020630  6e 64 20 73 6f 6d 65 20  73 6f 72 74 20 6f 66 20  |nd some sort of |
00020640  6c 69 6e 6b 20 77 69 74  68 20 74 68 65 20 70 61  |link with the pa|
00020650  73 74 27 2e 22 0d 80 5c  05 cb 0d 80 66 05 cd 0d  |st'."..\....f...|
00020660  80 70 13 e7 20 72 6f 6f  6d 6e 6f 25 3d 33 31 32  |.p.. roomno%=312|
00020670  20 8c 0d 80 7a 3d e7 20  a7 70 65 72 73 6f 6e 24  | ...z=. .person$|
00020680  2c 22 6d 61 6e 22 29 3e  30 20 84 20 a7 70 65 72  |,"man")>0 . .per|
00020690  73 6f 6e 24 2c 22 63 68  65 6d 69 73 74 22 29 3e  |son$,"chemist")>|
000206a0  30 20 c8 8e 20 73 75 62  6a 65 63 74 24 20 ca 0d  |0 .. subject$ ..|
000206b0  80 84 47 c9 20 22 70 72  65 73 63 72 69 70 74 69  |..G. "prescripti|
000206c0  6f 6e 22 2c 22 62 6f 74  74 6c 65 22 20 3a 20 74  |on","bottle" : t|
000206d0  24 3d 22 27 50 65 6e 69  63 69 6c 6c 69 6e 2c 20  |$="'Penicillin, |
000206e0  74 68 61 74 20 69 73 2c  27 20 68 65 20 72 65 70  |that is,' he rep|
000206f0  6c 69 65 73 2e 22 0d 80  8e 5a c9 20 22 70 65 6e  |lies."...Z. "pen|
00020700  69 63 69 6c 6c 69 6e 22  20 3a 20 74 24 3d 22 27  |icillin" : t$="'|
00020710  55 73 65 66 75 6c 20 6d  65 64 69 63 69 6e 65 2c  |Useful medicine,|
00020720  20 50 65 6e 69 63 69 6c  6c 69 6e 20 69 73 2c 20  | Penicillin is, |
00020730  76 65 72 79 20 70 6f 77  65 72 66 75 6c 20 69 6e  |very powerful in|
00020740  64 65 65 64 27 2c 20 68  65 20 73 61 79 73 2e 22  |deed', he says."|
00020750  0d 80 98 42 7f 3a 74 24  3d 22 27 44 6f 20 79 6f  |...B.:t$="'Do yo|
00020760  75 20 68 61 76 65 20 61  6e 79 20 73 6f 72 74 20  |u have any sort |
00020770  6f 66 20 70 72 65 73 63  72 69 70 74 69 6f 6e 20  |of prescription |
00020780  66 6f 72 20 6d 65 3f 27  20 68 65 20 73 61 79 73  |for me?' he says|
00020790  2e 22 0d 80 a2 05 cb 0d  80 ac 05 cd 0d 80 b6 0c  |."..............|
000207a0  f2 61 64 64 28 74 24 29  0d 80 c0 05 e1 0d 80 ca  |.add(t$)........|
000207b0  04 0d 80 d4 0c dd f2 72  65 6d 6b 65 79 0d 80 de  |.......remkey...|
000207c0  0f e3 20 7a 25 3d 31 20  b8 20 31 30 0d 80 e8 22  |.. z%=1 . 10..."|
000207d0  e7 20 6f 77 6e 73 24 28  7a 25 29 3d 22 6b 65 79  |. owns$(z%)="key|
000207e0  22 20 6f 77 6e 73 24 28  7a 25 29 3d 22 22 0d 80  |" owns$(z%)=""..|
000207f0  f2 38 e7 20 6f 62 6a 65  63 74 73 24 28 72 6f 6f  |.8. objects$(roo|
00020800  6d 6e 6f 25 2c 7a 25 29  3d 22 6b 65 79 22 20 6f  |mno%,z%)="key" o|
00020810  62 6a 65 63 74 73 24 28  72 6f 6f 6d 6e 6f 25 2c  |bjects$(roomno%,|
00020820  7a 25 29 3d 22 22 0d 80  fc 08 ed 20 7a 25 0d 81  |z%)=""..... z%..|
00020830  06 05 e1 0d 81 10 04 0d  81 1a 0a dd f2 67 69 76  |.............giv|
00020840  65 0d 81 24 0c 67 6f 74  74 61 25 3d 30 0d 81 2e  |e..$.gotta%=0...|
00020850  0e e3 20 67 3d 31 20 b8  20 31 30 0d 81 38 34 e7  |.. g=1 . 10..84.|
00020860  20 6f 77 6e 73 24 28 67  29 3c 3e 22 22 20 80 20  | owns$(g)<>"" . |
00020870  a7 69 24 2c 6f 77 6e 73  24 28 67 29 29 3e 30 20  |.i$,owns$(g))>0 |
00020880  67 6f 74 74 61 25 3d 31  3a 6f 6a 74 25 3d 67 0d  |gotta%=1:ojt%=g.|
00020890  81 42 07 ed 20 67 0d 81  4c 18 e7 20 67 6f 74 74  |.B.. g..L.. gott|
000208a0  61 25 3d 30 20 c8 8e 20  b3 28 33 29 20 ca 0d 81  |a%=0 .. .(3) ...|
000208b0  56 33 20 20 c9 20 31 20  3a 20 f2 61 64 64 28 22  |V3  . 1 : .add("|
000208c0  59 6f 75 20 64 6f 20 6e  6f 74 20 68 61 76 65 20  |You do not have |
000208d0  73 75 63 68 20 61 6e 20  6f 62 6a 65 63 74 2e 22  |such an object."|
000208e0  29 0d 81 60 38 20 20 c9  20 32 20 3a 20 f2 61 64  |)..`8  . 2 : .ad|
000208f0  64 28 22 59 6f 75 20 63  61 6e 6e 6f 74 20 66 69  |d("You cannot fi|
00020900  6e 64 20 74 68 61 74 20  6f 62 6a 65 63 74 20 74  |nd that object t|
00020910  6f 20 67 69 76 65 2e 22  29 0d 81 6a 42 20 20 c9  |o give.")..jB  .|
00020920  20 33 20 3a 20 f2 61 64  64 28 22 59 6f 75 20 63  | 3 : .add("You c|
00020930  61 6e 27 74 20 67 69 76  65 20 73 6f 6d 65 74 68  |an't give someth|
00020940  69 6e 67 20 74 68 61 74  20 79 6f 75 20 68 61 76  |ing that you hav|
00020950  65 6e 27 74 20 67 6f 74  2e 22 29 0d 81 74 07 20  |en't got.")..t. |
00020960  20 cb 0d 81 7e 10 e7 20  67 6f 74 74 61 25 3d 31  | ...~.. gotta%=1|
00020970  20 8c 0d 81 88 10 c8 8e  20 72 6f 6f 6d 6e 6f 25  | ....... roomno%|
00020980  20 ca 0d 81 92 5f c9 20  31 20 3a 20 74 24 3d 22  | ...._. 1 : t$="|
00020990  54 68 65 20 73 74 61 6c  6c 68 6f 6c 64 65 72 20  |The stallholder |
000209a0  61 63 63 65 70 74 73 20  74 68 65 20 22 2b 6f 77  |accepts the "+ow|
000209b0  6e 73 24 28 6f 6a 74 25  29 2b 22 20 61 6e 64 20  |ns$(ojt%)+" and |
000209c0  73 61 79 73 20 27 74 68  61 6e 6b 20 79 6f 75 27  |says 'thank you'|
000209d0  2e 22 3a 6f 77 6e 73 24  28 6f 6a 74 25 29 3d 22  |.":owns$(ojt%)="|
000209e0  22 0d 81 9c 64 c9 20 31  35 20 3a 20 74 24 3d 22  |"...d. 15 : t$="|
000209f0  54 68 65 20 67 75 61 72  64 20 74 61 6b 65 73 20  |The guard takes |
00020a00  74 68 65 20 22 2b 6f 77  6e 73 24 28 6f 6a 74 25  |the "+owns$(ojt%|
00020a10  29 2b 22 2c 20 6c 6f 6f  6b 73 20 61 74 20 69 74  |)+", looks at it|
00020a20  20 74 68 65 6e 20 74 68  72 6f 77 73 20 69 74 20  | then throws it |
00020a30  61 77 61 79 2e 22 3a 6f  77 6e 73 24 28 6f 6a 74  |away.":owns$(ojt|
00020a40  25 29 3d 22 22 0d 81 a6  54 c9 20 32 39 20 3a 20  |%)=""...T. 29 : |
00020a50  74 24 3d 22 54 68 65 20  62 61 6b 65 72 20 74 61  |t$="The baker ta|
00020a60  6b 65 73 20 74 68 65 20  22 2b 6f 77 6e 73 24 28  |kes the "+owns$(|
00020a70  6f 6a 74 25 29 2b 22 20  61 6e 64 20 73 61 79 73  |ojt%)+" and says|
00020a80  20 6e 6f 74 68 69 6e 67  2e 22 3a 6f 77 6e 73 24  | nothing.":owns$|
00020a90  28 6f 6a 74 25 29 3d 22  22 0d 81 b0 56 c9 20 33  |(ojt%)=""...V. 3|
00020aa0  30 20 3a 20 74 24 3d 22  54 68 65 20 62 75 74 63  |0 : t$="The butc|
00020ab0  68 65 72 20 74 61 6b 65  73 20 74 68 65 20 22 2b  |her takes the "+|
00020ac0  6f 77 6e 73 24 28 6f 6a  74 25 29 2b 22 20 61 6e  |owns$(ojt%)+" an|
00020ad0  64 20 73 61 79 73 20 6e  6f 74 68 69 6e 67 2e 22  |d says nothing."|
00020ae0  3a 6f 77 6e 73 24 28 6f  6a 74 25 29 3d 22 22 0d  |:owns$(ojt%)="".|
00020af0  81 ba d6 c9 20 33 37 20  3a 20 e7 20 63 72 69 65  |.... 37 : . crie|
00020b00  72 25 3d 31 20 80 20 a7  69 24 2c 22 76 69 63 61  |r%=1 . .i$,"vica|
00020b10  72 22 29 3d 30 20 80 20  6f 77 6e 73 24 28 6f 6a  |r")=0 . owns$(oj|
00020b20  74 25 29 3d 22 68 61 6e  64 6b 65 72 63 68 69 65  |t%)="handkerchie|
00020b30  66 22 20 74 24 3d 22 54  68 65 20 67 69 72 6c 20  |f" t$="The girl |
00020b40  74 61 6b 65 73 20 74 68  65 20 68 61 6e 64 6b 65  |takes the handke|
00020b50  72 63 68 69 65 66 2c 20  77 69 70 65 73 20 61 77  |rchief, wipes aw|
00020b60  61 79 20 68 65 72 20 74  65 61 72 73 2c 20 6d 75  |ay her tears, mu|
00020b70  72 6d 75 72 73 20 61 20  27 74 68 61 6e 6b 73 27  |rmurs a 'thanks'|
00020b80  20 61 6e 64 20 72 75 6e  73 20 6f 66 66 2e 22 3a  | and runs off.":|
00020b90  6f 77 6e 73 24 28 6f 6a  74 25 29 3d 22 22 3a 63  |owns$(ojt%)="":c|
00020ba0  72 69 65 72 25 3d 30 20  8b 20 74 24 3d 22 59 6f  |rier%=0 . t$="Yo|
00020bb0  75 72 20 67 69 66 74 20  69 73 20 72 65 6a 65 63  |ur gift is rejec|
00020bc0  74 65 64 2e 22 0d 81 c4  20 c9 20 35 30 20 3a 20  |ted."... . 50 : |
00020bd0  e7 20 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 63  |. owns$(ojt%)="c|
00020be0  75 65 22 20 8c 0d 81 ce  12 6f 77 6e 73 24 28 6f  |ue" .....owns$(o|
00020bf0  6a 74 25 29 3d 22 22 0d  81 d8 9e f2 61 64 64 28  |jt%)="".....add(|
00020c00  22 54 68 65 20 70 65 6f  70 6c 65 20 74 61 6b 65  |"The people take|
00020c10  20 74 68 65 20 63 75 65  20 66 72 6f 6d 20 79 6f  | the cue from yo|
00020c20  75 2e 20 4c 65 74 27 73  20 68 61 76 65 20 61 20  |u. Let's have a |
00020c30  67 61 6d 65 2c 20 74 68  65 79 20 73 61 79 20 61  |game, they say a|
00020c40  73 20 6f 6e 65 20 70 65  72 73 6f 6e 20 74 61 6b  |s one person tak|
00020c50  65 73 20 73 6f 6d 65 20  62 61 6c 6c 73 20 6f 75  |es some balls ou|
00020c60  74 20 6f 66 20 74 68 65  69 72 20 6a 61 63 6b 65  |t of their jacke|
00020c70  74 2e 20 59 6f 75 20 68  61 76 65 20 6e 6f 20 63  |t. You have no c|
00020c80  68 6f 69 63 65 20 62 75  74 20 74 6f 20 61 67 72  |hoice but to agr|
00020c90  65 65 2e 22 29 0d 81 e2  87 e7 20 70 61 6d 70 25  |ee.")..... pamp%|
00020ca0  3d 31 20 74 24 3d 22 59  6f 75 20 62 65 61 74 20  |=1 t$="You beat |
00020cb0  74 68 65 6d 20 65 61 73  69 6c 79 20 77 69 74 68  |them easily with|
00020cc0  20 79 6f 75 72 20 6e 65  77 6c 79 2d 66 6f 75 6e  | your newly-foun|
00020cd0  64 20 73 6e 6f 6f 6b 65  72 20 6b 6e 6f 77 6c 65  |d snooker knowle|
00020ce0  64 67 65 20 61 6e 64 20  74 68 65 79 20 67 69 76  |dge and they giv|
00020cf0  65 20 79 6f 75 20 61 20  63 6f 69 6e 20 61 73 20  |e you a coin as |
00020d00  61 20 70 72 69 7a 65 2e  22 3a 6f 77 6e 73 24 28  |a prize.":owns$(|
00020d10  6f 6a 74 25 29 3d 22 63  6f 69 6e 22 0d 81 ec a8  |ojt%)="coin"....|
00020d20  e7 20 70 61 6d 70 25 3d  30 20 74 24 3d 22 59 6f  |. pamp%=0 t$="Yo|
00020d30  75 20 73 6f 6f 6e 20 72  65 61 6c 69 73 65 20 74  |u soon realise t|
00020d40  68 61 74 20 79 6f 75 20  61 72 65 20 74 6f 74 61  |hat you are tota|
00020d50  6c 6c 79 20 72 75 62 62  69 73 68 20 61 74 20 70  |lly rubbish at p|
00020d60  6c 61 79 69 6e 67 20 73  6e 6f 6f 6b 65 72 2c 20  |laying snooker, |
00020d70  61 6e 64 20 74 68 65 20  68 75 6d 69 6c 69 61 74  |and the humiliat|
00020d80  69 6f 6e 20 77 68 65 6e  20 79 6f 75 20 6c 6f 73  |ion when you los|
00020d90  65 20 69 73 20 74 6f 6f  20 6d 75 63 68 20 74 6f  |e is too much to|
00020da0  20 62 61 72 65 2c 20 79  6f 75 20 68 61 76 65 20  | bare, you have |
00020db0  74 6f 20 67 65 74 20 6f  75 74 20 6f 66 20 68 65  |to get out of he|
00020dc0  72 65 2e 22 0d 81 f6 58  cc 20 74 24 3d 22 54 68  |re."...X. t$="Th|
00020dd0  65 20 70 65 6f 70 6c 65  20 74 61 6b 65 20 74 68  |e people take th|
00020de0  65 20 22 2b 6f 77 6e 73  24 28 6f 6a 74 25 29 2b  |e "+owns$(ojt%)+|
00020df0  22 2c 20 62 75 72 70 2c  20 74 68 65 6e 20 74 68  |", burp, then th|
00020e00  72 6f 77 20 69 74 20 61  77 61 79 2e 22 3a 6f 77  |row it away.":ow|
00020e10  6e 73 24 28 6f 6a 74 25  29 3d 22 22 0d 82 00 05  |ns$(ojt%)=""....|
00020e20  cd 0d 82 0a 21 c9 20 35  32 20 3a 20 e7 20 6f 77  |....!. 52 : . ow|
00020e30  6e 73 24 28 6f 6a 74 25  29 3d 22 63 6f 69 6e 22  |ns$(ojt%)="coin"|
00020e40  20 8c 0d 82 14 65 74 24  3d 22 27 41 6c 72 69 67  | ....et$="'Alrig|
00020e50  68 74 2c 20 74 68 61 74  27 6c 6c 20 64 6f 20 6d  |ht, that'll do m|
00020e60  65 2e 20 48 65 72 65 2c  20 68 65 72 65 27 73 20  |e. Here, here's |
00020e70  61 20 77 68 69 73 6b 79  2c 27 20 68 65 20 73 61  |a whisky,' he sa|
00020e80  79 73 2e 20 48 65 20 70  6c 61 63 65 73 20 74 68  |ys. He places th|
00020e90  65 20 77 68 69 73 6b 79  20 69 6e 20 79 6f 75 72  |e whisky in your|
00020ea0  20 68 61 6e 64 2e 22 0d  82 1e 18 6f 77 6e 73 24  | hand."....owns$|
00020eb0  28 6f 6a 74 25 29 3d 22  77 68 69 73 6b 79 22 0d  |(ojt%)="whisky".|
00020ec0  82 28 6c cc 20 74 24 3d  22 54 68 65 20 6d 61 6e  |.(l. t$="The man|
00020ed0  20 74 61 6b 65 73 20 74  68 65 20 22 2b 6f 77 6e  | takes the "+own|
00020ee0  73 24 28 6f 6a 74 25 29  2b 22 20 61 6e 64 20 73  |s$(ojt%)+" and s|
00020ef0  61 79 73 2c 20 27 77 65  6c 6c 2c 20 79 27 77 6f  |ays, 'well, y'wo|
00020f00  6e 27 74 20 67 65 74 20  61 20 64 72 69 6e 6b 20  |n't get a drink |
00020f10  66 6f 72 20 74 68 61 74  21 27 2e 22 3a 6f 77 6e  |for that!'.":own|
00020f20  73 24 28 6f 6a 74 25 29  3d 22 22 0d 82 32 05 cd  |s$(ojt%)=""..2..|
00020f30  0d 82 3c 22 c9 20 36 34  20 3a 20 e7 20 6f 77 6e  |..<". 64 : . own|
00020f40  73 24 28 6f 6a 74 25 29  3d 22 6d 65 64 61 6c 22  |s$(ojt%)="medal"|
00020f50  20 8c 0d 82 46 a0 74 24  3d 22 27 4d 79 20 6d 65  | ...F.t$="'My me|
00020f60  64 61 6c 21 27 20 73 68  65 20 73 68 6f 75 74 73  |dal!' she shouts|
00020f70  2c 20 27 77 68 65 72 65  20 64 27 79 6f 75 20 66  |, 'where d'you f|
00020f80  69 6e 64 20 74 68 61 74  3f 20 49 27 76 65 20 62  |ind that? I've b|
00020f90  65 65 6e 20 6c 6f 6f 6b  69 6e 67 20 66 6f 72 27  |een looking for'|
00020fa0  74 20 66 6f 72 20 61 67  65 73 2c 20 6c 6f 6f 6b  |t for ages, look|
00020fb0  2c 20 68 65 72 65 27 73  20 73 6f 6d 65 74 68 69  |, here's somethi|
00020fc0  6e 67 20 74 27 73 61 79  20 74 68 61 6e 6b 73 2e  |ng t'say thanks.|
00020fd0  27 20 53 68 65 20 70 6c  61 63 65 73 20 61 20 77  |' She places a w|
00020fe0  61 6e 64 20 69 6e 20 79  6f 75 72 20 68 61 6e 64  |and in your hand|
00020ff0  2e 22 0d 82 50 16 6f 77  6e 73 24 28 6f 6a 74 25  |."..P.owns$(ojt%|
00021000  29 3d 22 77 61 6e 64 22  0d 82 5a 66 cc 20 74 24  |)="wand"..Zf. t$|
00021010  3d 22 54 68 65 20 62 61  72 2d 6d 61 69 64 20 74  |="The bar-maid t|
00021020  61 6b 65 73 20 74 68 65  20 22 2b 6f 77 6e 73 24  |akes the "+owns$|
00021030  28 6f 6a 74 25 29 2b 22  2c 20 6c 6f 6f 6b 73 20  |(ojt%)+", looks |
00021040  61 74 20 69 74 20 74 68  65 6e 20 74 68 72 6f 77  |at it then throw|
00021050  73 20 69 74 20 69 6e 20  61 20 62 69 6e 2e 22 3a  |s it in a bin.":|
00021060  6f 77 6e 73 24 28 6f 6a  74 25 29 3d 22 22 0d 82  |owns$(ojt%)=""..|
00021070  64 05 cd 0d 82 6e 2c c9  20 36 39 20 3a 20 e7 20  |d....n,. 69 : . |
00021080  6f 77 6e 73 24 28 6f 6a  74 25 29 3d 22 62 6c 6f  |owns$(ojt%)="blo|
00021090  62 22 20 80 20 6d 6f 75  6c 64 25 3d 31 20 8c 0d  |b" . mould%=1 ..|
000210a0  82 78 ad 74 24 3d 22 54  68 65 20 6f 6c 64 20 6d  |.x.t$="The old m|
000210b0  61 6e 20 6c 6f 6f 6b 73  20 64 65 6c 69 67 68 74  |an looks delight|
000210c0  65 64 20 61 74 20 73 6f  6d 65 20 77 6f 72 6b 20  |ed at some work |
000210d0  74 6f 20 64 6f 20 2d 20  68 65 20 67 72 61 62 73  |to do - he grabs|
000210e0  20 74 68 65 20 62 6c 6f  62 2c 20 61 6e 64 20 69  | the blob, and i|
000210f0  6e 20 74 65 6e 20 6d 69  6e 75 74 65 73 20 68 65  |n ten minutes he|
00021100  20 72 65 74 75 72 6e 73  20 77 69 74 68 20 61 20  | returns with a |
00021110  62 72 61 6e 64 20 6e 65  77 20 6b 65 79 2e 20 48  |brand new key. H|
00021120  65 20 70 6c 61 63 65 73  20 69 74 20 69 6e 20 79  |e places it in y|
00021130  6f 75 72 20 68 61 6e 64  2e 22 3a 6f 77 6e 73 24  |our hand.":owns$|
00021140  28 6f 6a 74 25 29 3d 22  6b 65 79 22 0d 82 82 59  |(ojt%)="key"...Y|
00021150  cc 20 74 24 3d 22 54 68  65 20 6f 6c 64 20 6d 61  |. t$="The old ma|
00021160  6e 20 74 61 6b 65 73 20  74 68 65 20 22 2b 6f 77  |n takes the "+ow|
00021170  6e 73 24 28 6f 6a 74 25  29 2b 22 20 61 6e 64 20  |ns$(ojt%)+" and |
00021180  74 68 72 6f 77 73 20 69  74 20 62 65 68 69 6e 64  |throws it behind|
00021190  20 68 69 6d 2e 22 3a 6f  77 6e 73 24 28 6f 6a 74  | him.":owns$(ojt|
000211a0  25 29 3d 22 22 0d 82 8c  05 cd 0d 82 96 4e c9 20  |%)=""........N. |
000211b0  37 32 20 3a 20 e7 20 6f  77 6e 73 24 28 6f 6a 74  |72 : . owns$(ojt|
000211c0  25 29 3d 22 73 70 65 6c  6c 22 20 84 20 6f 77 6e  |%)="spell" . own|
000211d0  73 24 28 6f 6a 74 25 29  3d 22 77 61 6e 64 22 20  |s$(ojt%)="wand" |
000211e0  84 20 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 70  |. owns$(ojt%)="p|
000211f0  6f 74 69 6f 6e 22 20 8c  0d 82 a0 70 74 24 3d 22  |otion" ....pt$="|
00021200  54 68 65 20 77 69 7a 61  72 64 20 74 68 72 6f 77  |The wizard throw|
00021210  73 20 75 70 20 68 69 73  20 61 72 6d 73 2c 20 27  |s up his arms, '|
00021220  48 6f 72 72 61 68 21 27  20 68 65 20 63 72 69 65  |Horrah!' he crie|
00021230  73 2c 20 6a 75 73 74 20  77 68 61 74 20 49 20 6e  |s, just what I n|
00021240  65 65 64 20 2d 20 61 20  22 2b 6f 77 6e 73 24 28  |eed - a "+owns$(|
00021250  6f 6a 74 25 29 2b 22 2e  22 3a 6f 77 6e 73 24 28  |ojt%)+".":owns$(|
00021260  6f 6a 74 25 29 3d 22 22  0d 82 aa 0c 77 68 69 7a  |ojt%)=""....whiz|
00021270  25 2b 3d 31 0d 82 b4 b6  e7 20 77 68 69 7a 25 3d  |%+=1..... whiz%=|
00021280  33 20 74 24 2b 3d 22 20  48 65 20 6c 65 76 69 74  |3 t$+=" He levit|
00021290  61 74 65 73 20 74 68 65  20 73 70 65 6c 6c 2c 20  |ates the spell, |
000212a0  70 6f 74 69 6f 6e 20 61  6e 64 20 77 61 6e 64 20  |potion and wand |
000212b0  61 6e 64 20 63 61 73 74  73 20 73 6f 6d 65 20 6d  |and casts some m|
000212c0  79 73 74 69 63 61 6c 20  77 6f 72 64 73 2e 20 41  |ystical words. A|
000212d0  20 6c 61 72 67 65 20 77  68 69 72 6c 69 6e 67 20  | large whirling |
000212e0  64 6f 6f 72 20 61 70 70  65 61 72 73 20 69 6e 20  |door appears in |
000212f0  74 68 65 20 73 6f 75 74  68 20 77 61 6c 6c 2e 22  |the south wall."|
00021300  3a 65 78 69 74 73 28 37  32 2c 33 29 3d 37 31 3a  |:exits(72,3)=71:|
00021310  77 69 6d 70 25 21 30 3d  6d 61 70 68 61 6e 25 3a  |wimp%!0=maphan%:|
00021320  f2 72 65 64 72 61 77 6d  61 70 0d 82 be 50 cc 20  |.redrawmap...P. |
00021330  74 24 3d 22 48 65 20 74  61 6b 65 73 20 74 68 65  |t$="He takes the|
00021340  20 22 2b 6f 77 6e 73 24  28 6f 6a 74 25 29 2b 22  | "+owns$(ojt%)+"|
00021350  20 61 6e 64 20 74 68 72  6f 77 73 20 69 74 20 62  | and throws it b|
00021360  65 68 69 6e 64 20 68 69  6d 2e 22 3a 6f 77 6e 73  |ehind him.":owns|
00021370  24 28 6f 6a 74 25 29 3d  22 22 0d 82 c8 05 cd 0d  |$(ojt%)=""......|
00021380  82 d2 21 c9 20 37 33 20  3a 20 e7 20 6f 77 6e 73  |..!. 73 : . owns|
00021390  24 28 6f 6a 74 25 29 3d  22 6e 65 77 74 22 20 8c  |$(ojt%)="newt" .|
000213a0  0d 82 dc b7 74 24 3d 22  48 65 20 74 61 6b 65 73  |....t$="He takes|
000213b0  20 74 68 65 20 6e 65 77  74 20 66 72 6f 6d 20 79  | the newt from y|
000213c0  6f 75 2c 20 27 6a 75 73  74 20 77 68 61 74 20 49  |ou, 'just what I|
000213d0  20 6e 65 65 64 2c 27 20  68 65 20 65 78 63 6c 61  | need,' he excla|
000213e0  69 6d 73 2e 20 48 65 20  70 6c 61 63 65 73 20 61  |ims. He places a|
000213f0  20 70 6f 74 69 6f 6e 20  69 6e 20 79 6f 75 72 20  | potion in your |
00021400  68 61 6e 64 20 66 6f 72  20 74 68 61 6e 6b 73 2e  |hand for thanks.|
00021410  20 27 49 27 6d 20 6e 6f  74 20 73 75 72 65 20 77  | 'I'm not sure w|
00021420  68 61 74 20 69 74 20 64  6f 65 73 2c 27 20 68 65  |hat it does,' he|
00021430  20 73 61 79 73 2c 20 27  62 75 74 20 69 74 20 73  | says, 'but it s|
00021440  68 6f 75 6c 64 20 62 65  20 69 6e 74 65 72 65 73  |hould be interes|
00021450  74 69 6e 67 21 27 22 0d  82 e6 18 6f 77 6e 73 24  |ting!'"....owns$|
00021460  28 6f 6a 74 25 29 3d 22  70 6f 74 69 6f 6e 22 0d  |(ojt%)="potion".|
00021470  82 f0 74 cc 20 74 24 3d  22 48 65 20 74 61 6b 65  |..t. t$="He take|
00021480  73 20 74 68 65 20 22 2b  6f 77 6e 73 24 28 6f 6a  |s the "+owns$(oj|
00021490  74 25 29 2b 22 2c 20 74  68 72 6f 77 73 20 69 74  |t%)+", throws it|
000214a0  20 62 65 68 69 6e 64 20  68 69 6d 20 61 6e 64 20  | behind him and |
000214b0  63 6f 6e 63 65 6e 74 72  61 74 65 73 20 6f 6e 20  |concentrates on |
000214c0  73 68 61 6b 69 6e 67 20  68 69 73 20 62 6f 74 74  |shaking his bott|
000214d0  6c 65 2e 22 3a 6f 77 6e  73 24 28 6f 6a 74 25 29  |le.":owns$(ojt%)|
000214e0  3d 22 22 0d 82 fa 05 cd  0d 83 04 1b c9 20 37 36  |="".......... 76|
000214f0  20 3a 20 c8 8e 20 6f 77  6e 73 24 28 6f 6a 74 25  | : .. owns$(ojt%|
00021500  29 20 ca 0d 83 0e ab c9  20 22 61 70 70 6c 65 22  |) ...... "apple"|
00021510  20 3a 20 74 24 3d 22 54  68 65 20 6f 6c 64 20 74  | : t$="The old t|
00021520  72 61 6d 70 20 6c 6f 6f  6b 73 20 64 65 6c 69 67  |ramp looks delig|
00021530  68 74 65 64 20 61 74 20  74 68 65 20 61 70 70 6c  |hted at the appl|
00021540  65 2c 20 68 65 20 74 61  6b 65 73 20 69 74 20 61  |e, he takes it a|
00021550  6e 64 20 70 61 73 73 65  73 20 79 6f 75 20 68 69  |nd passes you hi|
00021560  73 20 6f 6e 6c 79 20 6d  65 74 68 73 20 62 6f 74  |s only meths bot|
00021570  74 6c 65 20 69 6e 20 72  65 74 75 72 6e 2e 20 49  |tle in return. I|
00021580  74 20 66 65 65 6c 73 20  61 62 6f 75 74 20 68 61  |t feels about ha|
00021590  6c 66 2d 66 75 6c 6c 2e  22 3a 6f 77 6e 73 24 28  |lf-full.":owns$(|
000215a0  6f 6a 74 25 29 3d 22 62  6f 74 74 6c 65 22 0d 83  |ojt%)="bottle"..|
000215b0  18 a2 c9 20 22 77 68 69  73 6b 79 22 20 3a 20 74  |... "whisky" : t|
000215c0  24 3d 22 54 68 65 20 6f  6c 64 20 74 72 61 6d 70  |$="The old tramp|
000215d0  20 70 75 6c 6c 73 20 61  20 62 69 67 20 67 72 69  | pulls a big gri|
000215e0  6e 20 77 68 65 6e 20 79  6f 75 20 67 69 76 65 20  |n when you give |
000215f0  68 69 6d 20 74 68 65 20  77 68 69 73 6b 79 2c 20  |him the whisky, |
00021600  68 65 20 72 75 6d 61 67  65 73 20 69 6e 20 68 69  |he rumages in hi|
00021610  73 20 6a 75 6d 70 65 72  20 61 6e 64 20 73 68 6f  |s jumper and sho|
00021620  76 65 73 20 61 20 73 70  65 6c 6c 20 69 6e 74 6f  |ves a spell into|
00021630  20 79 6f 75 72 20 68 61  6e 64 2e 22 3a 6f 77 6e  | your hand.":own|
00021640  73 24 28 6f 6a 74 25 29  3d 22 73 70 65 6c 6c 22  |s$(ojt%)="spell"|
00021650  0d 83 22 6e c9 20 22 62  72 65 61 64 63 72 75 6d  |.."n. "breadcrum|
00021660  62 22 20 3a 20 74 24 3d  22 48 65 20 70 75 74 73  |b" : t$="He puts|
00021670  20 74 68 65 20 62 72 65  61 64 63 72 75 6d 62 20  | the breadcrumb |
00021680  69 6e 74 6f 20 68 69 73  20 6d 6f 75 74 68 2c 20  |into his mouth, |
00021690  74 68 65 6e 20 6c 6f 6f  6b 73 20 75 70 20 74 6f  |then looks up to|
000216a0  20 79 6f 75 20 66 6f 72  20 6d 6f 72 65 2e 22 3a  | you for more.":|
000216b0  6f 77 6e 73 24 28 6f 6a  74 25 29 3d 22 22 0d 83  |owns$(ojt%)=""..|
000216c0  2c 61 7f 20 3a 20 74 24  3d 22 54 68 65 20 6f 6c  |,a. : t$="The ol|
000216d0  64 20 74 72 61 6d 70 20  74 61 6b 65 73 20 74 68  |d tramp takes th|
000216e0  65 20 22 2b 6f 77 6e 73  24 28 6f 6a 74 25 29 2b  |e "+owns$(ojt%)+|
000216f0  22 20 61 6e 64 20 74 75  63 6b 73 20 69 74 20 69  |" and tucks it i|
00021700  6e 74 6f 20 68 69 73 20  6a 75 6d 70 65 72 2e 22  |nto his jumper."|
00021710  3a 6f 77 6e 73 24 28 6f  6a 74 25 29 3d 22 22 0d  |:owns$(ojt%)="".|
00021720  83 36 05 cb 0d 83 40 2d  c9 20 37 38 20 3a 20 e7  |.6....@-. 78 : .|
00021730  20 66 69 72 65 25 3d 31  20 80 20 6f 77 6e 73 24  | fire%=1 . owns$|
00021740  28 6f 6a 74 25 29 3d 22  62 6f 74 74 6c 65 22 20  |(ojt%)="bottle" |
00021750  8c 0d 83 4a 7e 74 24 3d  22 54 68 65 20 79 6f 75  |...J~t$="The you|
00021760  6e 67 20 62 6f 79 20 74  61 6b 65 73 20 74 68 65  |ng boy takes the|
00021770  20 62 6f 74 74 6c 65 20  6f 66 20 6d 65 74 68 73  | bottle of meths|
00021780  20 61 6e 64 20 74 68 72  6f 77 73 20 69 74 20 63  | and throws it c|
00021790  61 72 65 6c 65 73 73 6c  79 20 69 6e 74 6f 20 74  |arelessly into t|
000217a0  68 65 20 62 6f 6e 66 69  72 65 2e 22 3a 6f 77 6e  |he bonfire.":own|
000217b0  73 24 28 6f 6a 74 25 29  3d 22 22 3a 66 69 72 65  |s$(ojt%)="":fire|
000217c0  25 3d 32 3a 66 69 72 65  74 69 6d 65 25 3d 91 0d  |%=2:firetime%=..|
000217d0  83 54 8e cc 20 e7 20 66  69 72 65 25 3d 31 20 74  |.T.. . fire%=1 t|
000217e0  24 3d 22 54 68 65 20 79  6f 75 6e 67 20 62 6f 79  |$="The young boy|
000217f0  20 74 61 6b 65 73 20 74  68 65 20 22 2b 6f 77 6e  | takes the "+own|
00021800  73 24 28 6f 6a 74 25 29  2b 22 20 61 6e 64 20 74  |s$(ojt%)+" and t|
00021810  68 72 6f 77 73 20 69 74  20 69 6e 74 6f 20 74 68  |hrows it into th|
00021820  65 20 66 69 72 65 2c 20  74 68 69 6e 6b 69 6e 67  |e fire, thinking|
00021830  20 69 74 20 77 69 6c 6c  20 6d 61 6b 65 20 69 74  | it will make it|
00021840  20 62 75 72 6e 20 62 65  74 74 65 72 2e 22 3a 6f  | burn better.":o|
00021850  77 6e 73 24 28 6f 6a 74  25 29 3d 22 22 0d 83 5e  |wns$(ojt%)=""..^|
00021860  05 cd 0d 83 68 33 c9 20  38 31 20 3a 20 74 24 3d  |....h3. 81 : t$=|
00021870  22 59 6f 75 72 20 67 69  66 74 20 69 73 20 72 65  |"Your gift is re|
00021880  6a 65 63 74 65 64 20 62  79 20 74 68 65 20 67 69  |jected by the gi|
00021890  72 6c 73 2e 22 0d 83 72  24 c9 20 38 32 20 3a 20  |rls."..r$. 82 : |
000218a0  e7 20 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 66  |. owns$(ojt%)="f|
000218b0  65 61 74 68 65 72 22 20  8c 0d 83 7c e5 74 24 3d  |eather" ...|.t$=|
000218c0  22 53 68 65 20 74 61 6b  65 73 20 74 68 65 20 66  |"She takes the f|
000218d0  65 61 74 68 65 72 20 66  72 6f 6d 20 79 6f 75 20  |eather from you |
000218e0  61 6e 64 20 65 78 63 6c  61 69 6d 73 2c 20 27 74  |and exclaims, 't|
000218f0  68 69 73 20 69 73 20 6a  75 73 74 20 74 68 65 20  |his is just the |
00021900  74 68 69 6e 67 20 77 65  20 6e 65 65 64 20 66 27  |thing we need f'|
00021910  6f 75 72 20 70 72 6f 64  75 63 74 69 6f 6e 20 6f  |our production o|
00021920  66 20 53 77 61 6e 20 4c  61 6b 65 2e 20 48 6f 77  |f Swan Lake. How|
00021930  20 63 61 6e 20 49 20 65  76 65 72 20 72 65 70 61  | can I ever repa|
00021940  79 20 79 6f 75 3f 27 2e  20 53 68 65 20 70 75 6c  |y you?'. She pul|
00021950  6c 73 20 6f 75 74 20 61  20 6c 61 72 67 65 20 6d  |ls out a large m|
00021960  65 64 61 6c 2c 20 27 49  20 66 6f 75 6e 64 20 74  |edal, 'I found t|
00021970  68 69 73 20 72 65 63 65  6e 74 6c 79 27 20 2d 20  |his recently' - |
00021980  73 68 65 20 73 68 6f 76  65 73 20 69 74 20 69 6e  |she shoves it in|
00021990  74 6f 20 79 6f 75 72 20  68 61 6e 64 2e 22 0d 83  |to your hand."..|
000219a0  86 17 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 6d  |..owns$(ojt%)="m|
000219b0  65 64 61 6c 22 0d 83 90  63 cc 20 74 24 3d 22 54  |edal"...c. t$="T|
000219c0  68 65 20 6f 6c 64 20 77  6f 6d 61 6e 20 74 61 6b  |he old woman tak|
000219d0  65 73 20 74 68 65 20 22  2b 6f 77 6e 73 24 28 6f  |es the "+owns$(o|
000219e0  6a 74 25 29 2b 22 20 61  6e 64 20 74 75 63 6b 73  |jt%)+" and tucks|
000219f0  20 69 74 20 61 77 61 79  20 75 6e 64 65 72 20 68  | it away under h|
00021a00  65 72 20 64 65 73 6b 2e  22 3a 6f 77 6e 73 24 28  |er desk.":owns$(|
00021a10  6f 6a 74 25 29 3d 22 22  0d 83 9a 05 cd 0d 83 a4  |ojt%)=""........|
00021a20  1b c9 20 38 34 20 3a 20  c8 8e 20 6f 77 6e 73 24  |.. 84 : .. owns$|
00021a30  28 6f 6a 74 25 29 20 ca  0d 83 ae ad c9 20 22 61  |(ojt%) ...... "a|
00021a40  73 70 69 72 69 6e 22 20  3a 20 74 24 3d 22 54 68  |spirin" : t$="Th|
00021a50  65 20 6f 6c 64 20 6d 61  6e 20 74 61 6b 65 73 20  |e old man takes |
00021a60  74 68 65 20 61 73 70 69  72 69 6e 20 68 6f 70 65  |the aspirin hope|
00021a70  66 75 6c 6c 79 20 61 6e  64 20 6d 61 6b 65 73 20  |fully and makes |
00021a80  74 68 65 20 62 6f 79 20  73 77 61 6c 6c 6f 77 20  |the boy swallow |
00021a90  69 74 2e 20 59 6f 75 20  77 61 69 74 20 66 6f 72  |it. You wait for|
00021aa0  20 61 20 66 65 77 20 68  6f 75 72 73 2c 20 62 75  | a few hours, bu|
00021ab0  74 20 74 68 65 72 65 20  69 73 20 6e 6f 20 69 6d  |t there is no im|
00021ac0  70 72 6f 76 65 6d 65 6e  74 20 69 6e 20 74 68 65  |provement in the|
00021ad0  20 62 6f 79 2e 22 3a 6f  77 6e 73 24 28 6f 6a 74  | boy.":owns$(ojt|
00021ae0  25 29 3d 22 22 0d 83 b8  b4 c9 20 22 62 6f 74 74  |%)=""..... "bott|
00021af0  6c 65 22 20 3a e7 20 66  69 72 65 25 3d 30 20 f2  |le" :. fire%=0 .|
00021b00  65 78 63 69 74 65 3a 74  24 3d 22 43 6f 6e 67 72  |excite:t$="Congr|
00021b10  61 74 75 6c 61 74 69 6f  6e 73 2c 20 79 6f 75 20  |atulations, you |
00021b20  68 61 76 65 20 63 6f 6d  70 6c 65 74 65 64 20 47  |have completed G|
00021b30  4f 52 4d 21 22 20 8b 20  74 24 3d 22 54 68 65 20  |ORM!" . t$="The |
00021b40  6f 6c 64 20 6d 61 6e 20  74 61 6b 65 73 20 61 20  |old man takes a |
00021b50  73 77 69 67 20 66 72 6f  6d 20 74 68 65 20 62 6f  |swig from the bo|
00021b60  74 74 6c 65 2c 20 27 74  68 61 6e 6b 73 27 2c 20  |ttle, 'thanks', |
00021b70  68 65 20 73 61 79 73 2c  20 27 49 20 6e 65 65 64  |he says, 'I need|
00021b80  65 64 20 74 68 61 74 27  2e 22 3a 6f 77 6e 73 24  |ed that'.":owns$|
00021b90  28 6f 6a 74 25 29 3d 22  22 0d 83 c2 5b 7f 20 3a  |(ojt%)=""...[. :|
00021ba0  20 74 24 3d 22 54 68 65  20 6f 6c 64 20 6d 61 6e  | t$="The old man|
00021bb0  20 74 61 6b 65 73 20 74  68 65 20 22 2b 6f 77 6e  | takes the "+own|
00021bc0  73 24 28 6f 6a 74 25 29  2b 22 20 61 6e 64 20 74  |s$(ojt%)+" and t|
00021bd0  68 72 6f 77 73 20 69 74  20 62 65 68 69 6e 64 20  |hrows it behind |
00021be0  68 69 6d 2e 22 3a 6f 77  6e 73 24 28 6f 6a 74 25  |him.":owns$(ojt%|
00021bf0  29 3d 22 22 0d 83 cc 05  cb 0d 83 d6 2c c9 20 38  |)=""........,. 8|
00021c00  35 20 3a 20 74 24 3d 22  54 68 65 20 67 75 61 72  |5 : t$="The guar|
00021c10  64 20 72 65 66 75 73 65  73 20 79 6f 75 72 20 67  |d refuses your g|
00021c20  69 66 74 2e 22 0d 83 e0  23 c9 20 32 32 36 20 3a  |ift."...#. 226 :|
00021c30  20 e7 20 6f 77 6e 73 24  28 6f 6a 74 25 29 3d 22  | . owns$(ojt%)="|
00021c40  6c 6f 6c 6c 79 22 20 8c  0d 83 ea 67 74 24 3d 22  |lolly" ....gt$="|
00021c50  54 68 65 20 6c 69 74 74  6c 65 20 67 69 72 6c 20  |The little girl |
00021c60  74 61 6b 65 73 20 74 68  65 20 6c 6f 6c 6c 79 20  |takes the lolly |
00021c70  61 6e 64 20 70 75 74 73  20 69 74 20 69 6e 20 68  |and puts it in h|
00021c80  65 72 20 6d 6f 75 74 68  2c 20 27 66 61 6e 6b 73  |er mouth, 'fanks|
00021c90  27 2c 20 73 68 65 20 6d  75 74 74 65 72 73 2e 22  |', she mutters."|
00021ca0  3a 6f 77 6e 73 24 28 6f  6a 74 25 29 3d 22 22 0d  |:owns$(ojt%)="".|
00021cb0  83 f4 5e cc 20 74 24 3d  22 54 68 65 20 6c 69 74  |..^. t$="The lit|
00021cc0  74 6c 65 20 67 69 72 6c  20 74 61 6b 65 73 20 74  |tle girl takes t|
00021cd0  68 65 20 22 2b 6f 77 6e  73 24 28 6f 6a 74 25 29  |he "+owns$(ojt%)|
00021ce0  2b 22 20 61 6e 64 20 70  75 74 73 20 69 74 20 69  |+" and puts it i|
00021cf0  6e 20 68 65 72 20 70 6f  63 6b 65 74 2e 22 3a 6f  |n her pocket.":o|
00021d00  77 6e 73 24 28 6f 6a 74  25 29 3d 22 22 0d 83 fe  |wns$(ojt%)=""...|
00021d10  05 cd 0d 84 08 5e c9 20  32 34 38 3a 74 24 3d 22  |.....^. 248:t$="|
00021d20  54 68 65 20 6d 61 6e 20  74 61 6b 65 73 20 74 68  |The man takes th|
00021d30  65 20 22 2b 6f 77 6e 73  24 28 6f 6a 74 25 29 2b  |e "+owns$(ojt%)+|
00021d40  22 20 61 6e 64 20 70 75  74 73 20 69 74 20 75 6e  |" and puts it un|
00021d50  64 65 72 20 74 68 65 20  63 6f 75 6e 74 65 72 2e  |der the counter.|
00021d60  22 3a 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 22  |":owns$(ojt%)=""|
00021d70  0d 84 12 26 c9 20 32 34  39 20 3a 20 e7 20 6f 77  |...&. 249 : . ow|
00021d80  6e 73 24 28 6f 6a 74 25  29 3d 22 6f 72 6e 61 6d  |ns$(ojt%)="ornam|
00021d90  65 6e 74 22 20 8c 0d 84  1c 5e 74 24 3d 22 54 68  |ent" ....^t$="Th|
00021da0  65 20 6f 6c 64 20 77 6f  6d 61 6e 20 74 61 6b 65  |e old woman take|
00021db0  73 20 74 68 65 20 6f 72  6e 61 6d 65 6e 74 20 61  |s the ornament a|
00021dc0  6e 64 20 70 75 74 73 20  69 74 20 61 6d 6f 6e 67  |nd puts it among|
00021dd0  20 68 65 72 20 6f 74 68  65 72 73 2c 20 27 74 68  | her others, 'th|
00021de0  61 6e 6b 20 79 6f 75 27  2c 20 73 68 65 20 73 61  |ank you', she sa|
00021df0  79 73 2e 22 0d 84 26 12  6f 77 6e 73 24 28 6f 6a  |ys."..&.owns$(oj|
00021e00  74 25 29 3d 22 22 0d 84  30 af e7 20 69 6e 6a 75  |t%)=""..0.. inju|
00021e10  72 65 25 3d 31 20 74 24  2b 3d 22 20 53 68 65 20  |re%=1 t$+=" She |
00021e20  6e 6f 74 69 63 65 73 20  79 6f 75 72 20 63 75 74  |notices your cut|
00021e30  2c 20 27 4d 79 20 67 6f  6f 64 6e 65 73 73 2c 20  |, 'My goodness, |
00021e40  79 6f 75 20 68 61 76 65  20 62 65 65 6e 20 69 6e  |you have been in|
00021e50  20 74 68 65 20 77 61 72  73 21 27 20 73 68 65 20  | the wars!' she |
00021e60  65 78 63 6c 61 69 6d 73  20 61 6e 64 20 70 61 73  |exclaims and pas|
00021e70  73 65 73 20 79 6f 75 20  61 20 77 65 74 20 66 6c  |ses you a wet fl|
00021e80  61 6e 6e 65 6c 20 74 6f  20 70 75 74 20 6f 76 65  |annel to put ove|
00021e90  72 20 79 6f 75 72 20 69  6e 6a 75 72 79 2e 22 3a  |r your injury.":|
00021ea0  6f 77 6e 73 24 28 6f 6a  74 25 29 3d 22 66 6c 61  |owns$(ojt%)="fla|
00021eb0  6e 6e 65 6c 22 0d 84 3a  5d cc 20 74 24 3d 22 54  |nnel"..:]. t$="T|
00021ec0  68 65 20 6f 6c 64 20 77  6f 6d 61 6e 20 74 61 6b  |he old woman tak|
00021ed0  65 73 20 74 68 65 20 22  2b 6f 77 6e 73 24 28 6f  |es the "+owns$(o|
00021ee0  6a 74 25 29 2b 22 20 61  6e 64 20 74 72 69 65 73  |jt%)+" and tries|
00021ef0  20 74 6f 20 6c 6f 6f 6b  20 67 72 61 74 65 66 75  | to look gratefu|
00021f00  6c 2e 22 3a 6f 77 6e 73  24 28 6f 6a 74 25 29 3d  |l.":owns$(ojt%)=|
00021f10  22 22 0d 84 44 05 cd 0d  84 4e 24 c9 20 32 35 30  |""..D....N$. 250|
00021f20  20 3a 20 e7 20 6f 77 6e  73 24 28 6f 6a 74 25 29  | : . owns$(ojt%)|
00021f30  3d 22 66 6c 6f 77 65 72  22 20 8c 0d 84 58 c3 74  |="flower" ...X.t|
00021f40  24 3d 22 54 68 65 20 79  6f 75 6e 67 20 77 6f 6d  |$="The young wom|
00021f50  61 6e 20 74 61 6b 65 73  20 74 68 65 20 66 6c 6f  |an takes the flo|
00021f60  77 65 72 20 61 6e 64 20  70 75 74 73 20 69 74 20  |wer and puts it |
00021f70  61 6d 6f 6e 67 20 68 65  72 20 6f 74 68 65 72 20  |among her other |
00021f80  62 75 6e 63 68 65 73 20  6f 66 20 74 68 65 6d 2c  |bunches of them,|
00021f90  20 27 74 68 61 6e 6b 20  79 6f 75 27 2c 20 73 68  | 'thank you', sh|
00021fa0  65 20 73 61 79 73 20 63  68 65 65 72 66 75 6c 6c  |e says cheerfull|
00021fb0  79 2c 20 27 79 6f 75 20  68 61 76 65 20 64 6f 6e  |y, 'you have don|
00021fc0  65 20 6d 65 20 61 20 68  75 67 65 20 66 61 76 6f  |e me a huge favo|
00021fd0  75 72 21 27 2e 20 53 68  65 20 67 69 76 65 73 20  |ur!'. She gives |
00021fe0  79 6f 75 20 61 20 68 75  67 65 20 62 6f 75 71 75  |you a huge bouqu|
00021ff0  65 74 20 69 6e 20 72 65  74 75 72 6e 2e 22 0d 84  |et in return."..|
00022000  62 19 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 62  |b.owns$(ojt%)="b|
00022010  6f 75 71 75 65 74 22 0d  84 6c 66 cc 20 74 24 3d  |ouquet"..lf. t$=|
00022020  22 54 68 65 20 79 6f 75  6e 67 20 77 6f 6d 61 6e  |"The young woman|
00022030  20 74 61 6b 65 73 20 74  68 65 20 22 2b 6f 77 6e  | takes the "+own|
00022040  73 24 28 6f 6a 74 25 29  2b 22 20 61 6e 64 20 74  |s$(ojt%)+" and t|
00022050  68 72 6f 77 73 20 69 74  20 61 6d 6f 6e 67 73 74  |hrows it amongst|
00022060  20 68 65 72 20 66 6c 6f  77 65 72 73 2e 22 3a 6f  | her flowers.":o|
00022070  77 6e 73 24 28 6f 6a 74  25 29 3d 22 22 0d 84 76  |wns$(ojt%)=""..v|
00022080  05 cd 0d 84 80 59 c9 20  32 35 33 3a 66 67 25 3d  |.....Y. 253:fg%=|
00022090  30 3a e7 20 6f 77 6e 73  24 28 6f 6a 74 25 29 3d  |0:. owns$(ojt%)=|
000220a0  22 61 73 70 69 72 69 6e  22 20 84 20 6f 77 6e 73  |"aspirin" . owns|
000220b0  24 28 6f 6a 74 25 29 3d  22 66 6c 61 6e 6e 65 6c  |$(ojt%)="flannel|
000220c0  22 20 84 20 6f 77 6e 73  24 28 6f 6a 74 25 29 3d  |" . owns$(ojt%)=|
000220d0  22 62 6f 75 71 75 65 74  22 20 8c 0d 84 8a 4b 74  |"bouquet" ....Kt|
000220e0  24 3d 22 54 68 65 20 6f  6c 64 20 77 6f 6d 61 6e  |$="The old woman|
000220f0  20 73 6d 69 6c 65 73 2c  20 27 74 68 61 6e 6b 20  | smiles, 'thank |
00022100  79 6f 75 27 2c 20 73 68  65 20 73 61 79 73 20 67  |you', she says g|
00022110  65 6e 74 6c 79 2e 22 3a  6f 77 6e 73 24 28 6f 6a  |ently.":owns$(oj|
00022120  74 25 29 3d 22 22 0d 84  94 11 69 6c 6c 25 2b 3d  |t%)=""....ill%+=|
00022130  31 3a 66 67 25 3d 31 0d  84 9e b5 e7 20 69 6c 6c  |1:fg%=1..... ill|
00022140  25 3d 33 20 80 20 66 67  25 3d 31 20 74 24 2b 3d  |%=3 . fg%=1 t$+=|
00022150  22 20 53 68 65 20 6c 6f  6f 6b 73 20 75 70 20 61  |" She looks up a|
00022160  74 20 79 6f 75 20 61 6e  64 20 73 61 79 73 2c 20  |t you and says, |
00022170  27 49 20 66 65 65 6c 20  49 20 63 61 6e 20 74 72  |'I feel I can tr|
00022180  75 73 74 20 79 6f 75 20  77 69 74 68 20 74 68 69  |ust you with thi|
00022190  73 20 6e 6f 77 2c 20 49  20 6e 65 65 64 20 73 6f  |s now, I need so|
000221a0  6d 65 20 6d 65 64 69 63  61 74 69 6f 6e 27 2c 20  |me medication', |
000221b0  73 68 65 20 70 61 73 73  65 73 20 79 6f 75 20 68  |she passes you h|
000221c0  65 72 20 70 72 65 73 63  72 69 70 74 69 6f 6e 2e  |er prescription.|
000221d0  22 3a 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 70  |":owns$(ojt%)="p|
000221e0  72 65 73 63 72 69 70 74  69 6f 6e 22 0d 84 a8 65  |rescription"...e|
000221f0  cc 20 74 24 3d 22 53 68  65 20 74 61 6b 65 73 20  |. t$="She takes |
00022200  74 68 65 20 22 2b 6f 77  6e 73 24 28 6f 6a 74 25  |the "+owns$(ojt%|
00022210  29 2b 22 2c 20 73 6d 69  6c 65 73 20 67 72 61 74  |)+", smiles grat|
00022220  65 66 75 6c 6c 79 2c 20  61 6e 64 20 70 6c 61 63  |efully, and plac|
00022230  65 73 20 69 74 20 62 65  73 69 64 65 20 68 65 72  |es it beside her|
00022240  2e 22 3a 6f 77 6e 73 24  28 6f 6a 74 25 29 3d 22  |.":owns$(ojt%)="|
00022250  22 0d 84 b2 05 cd 0d 84  bc 65 c9 20 32 36 36 3a  |"........e. 266:|
00022260  74 24 3d 22 54 68 65 20  62 61 72 2d 6d 61 69 64  |t$="The bar-maid|
00022270  20 74 61 6b 65 73 20 74  68 65 20 22 2b 6f 77 6e  | takes the "+own|
00022280  73 24 28 6f 6a 74 25 29  2b 22 20 61 6e 64 20 70  |s$(ojt%)+" and p|
00022290  6c 61 63 65 73 20 69 74  20 75 6e 64 65 72 20 74  |laces it under t|
000222a0  68 65 20 63 6f 75 6e 74  65 72 2e 22 3a 6f 77 6e  |he counter.":own|
000222b0  73 24 28 6f 6a 74 25 29  3d 22 22 0d 84 c6 60 c9  |s$(ojt%)=""...`.|
000222c0  20 32 38 31 3a 74 24 3d  22 54 68 65 20 6d 61 6e  | 281:t$="The man|
000222d0  20 74 61 6b 65 73 20 74  68 65 20 22 2b 6f 77 6e  | takes the "+own|
000222e0  73 24 28 6f 6a 74 25 29  2b 22 20 61 6e 64 20 70  |s$(ojt%)+" and p|
000222f0  6c 61 63 65 73 20 69 74  20 75 6e 64 65 72 20 74  |laces it under t|
00022300  68 65 20 63 6f 75 6e 74  65 72 2e 22 3a 6f 77 6e  |he counter.":own|
00022310  73 24 28 6f 6a 74 25 29  3d 22 22 0d 84 d0 3a c9  |s$(ojt%)=""...:.|
00022320  20 33 30 31 20 3a 20 e7  20 6f 77 6e 73 24 28 6f  | 301 : . owns$(o|
00022330  6a 74 25 29 3d 22 70 75  72 73 65 22 20 84 20 6f  |jt%)="purse" . o|
00022340  77 6e 73 24 28 6f 6a 74  25 29 3d 22 63 68 65 71  |wns$(ojt%)="cheq|
00022350  75 65 22 20 8c 0d 84 da  77 74 24 3d 22 54 68 65  |ue" ....wt$="The|
00022360  20 77 6f 6d 61 6e 20 74  61 6b 65 73 20 74 68 65  | woman takes the|
00022370  20 70 61 79 6d 65 6e 74  20 61 6e 64 20 74 65 6c  | payment and tel|
00022380  6c 73 20 79 6f 75 20 74  68 61 74 20 79 6f 75 20  |ls you that you |
00022390  63 61 6e 20 65 6e 74 65  72 20 74 68 65 20 6d 75  |can enter the mu|
000223a0  73 65 75 6d 20 62 79 20  67 6f 69 6e 67 20 65 61  |seum by going ea|
000223b0  73 74 2e 22 3a 70 61 79  65 64 25 3d 31 3a 6f 77  |st.":payed%=1:ow|
000223c0  6e 73 24 28 6f 6a 74 25  29 3d 22 22 0d 84 e4 8f  |ns$(ojt%)=""....|
000223d0  cc 20 74 24 3d 22 54 68  65 20 77 6f 6d 61 6e 20  |. t$="The woman |
000223e0  74 61 6b 65 73 20 74 68  65 20 22 2b 6f 77 6e 73  |takes the "+owns|
000223f0  24 28 6f 6a 74 25 29 2b  22 20 61 6e 64 20 70 6c  |$(ojt%)+" and pl|
00022400  61 63 65 73 20 69 74 20  75 6e 64 65 72 20 74 68  |aces it under th|
00022410  65 20 63 6f 75 6e 74 65  72 2e 20 27 54 68 61 74  |e counter. 'That|
00022420  20 69 73 20 6e 6f 74 20  67 6f 6f 64 20 65 6e 6f  | is not good eno|
00022430  75 67 68 20 66 6f 72 20  70 61 79 6d 65 6e 74 27  |ugh for payment'|
00022440  2c 20 73 68 65 20 73 61  79 73 2e 22 3a 6f 77 6e  |, she says.":own|
00022450  73 24 28 6f 6a 74 25 29  3d 22 22 0d 84 ee 05 cd  |s$(ojt%)="".....|
00022460  0d 84 f8 22 c9 20 33 30  32 20 3a 20 e7 20 6f 77  |...". 302 : . ow|
00022470  6e 73 24 28 6f 6a 74 25  29 3d 22 64 6f 6c 6c 22  |ns$(ojt%)="doll"|
00022480  20 8c 0d 85 02 c1 74 24  3d 22 54 68 65 20 77 6f  | .....t$="The wo|
00022490  6d 61 6e 20 74 61 6b 65  73 20 74 68 65 20 64 6f  |man takes the do|
000224a0  6c 6c 20 61 6e 64 20 65  78 63 69 74 61 62 6c 79  |ll and excitably|
000224b0  20 74 65 6c 6c 73 20 79  6f 75 20 74 68 61 74 20  | tells you that |
000224c0  69 74 20 69 73 20 61 20  77 6f 6e 64 65 72 66 75  |it is a wonderfu|
000224d0  6c 20 65 78 61 6d 70 6c  65 20 6f 66 20 31 38 74  |l example of 18t|
000224e0  68 20 43 65 6e 74 75 72  79 20 64 6f 6c 6c 2d 6d  |h Century doll-m|
000224f0  61 6b 69 6e 67 2e 20 53  68 65 20 68 75 72 72 69  |aking. She hurri|
00022500  64 6c 79 20 70 61 79 73  20 79 6f 75 20 77 69 74  |dly pays you wit|
00022510  68 20 61 20 73 6d 61 6c  6c 20 6f 72 6e 61 6d 65  |h a small orname|
00022520  6e 74 2c 20 61 70 70 61  72 65 6e 74 6c 79 20 61  |nt, apparently a|
00022530  6c 73 6f 20 6f 66 20 73  6f 6d 65 20 76 61 6c 75  |lso of some valu|
00022540  65 2e 22 0d 85 0c 1a 6f  77 6e 73 24 28 6f 6a 74  |e."....owns$(ojt|
00022550  25 29 3d 22 6f 72 6e 61  6d 65 6e 74 22 0d 85 16  |%)="ornament"...|
00022560  73 cc 20 74 24 3d 22 54  68 65 20 6f 6c 64 20 77  |s. t$="The old w|
00022570  6f 6d 61 6e 20 74 61 6b  65 73 20 74 68 65 20 22  |oman takes the "|
00022580  2b 6f 77 6e 73 24 28 6f  6a 74 25 29 2b 22 20 61  |+owns$(ojt%)+" a|
00022590  6e 64 20 65 78 63 6c 61  69 6d 73 20 74 68 61 74  |nd exclaims that|
000225a0  20 69 74 20 69 73 20 6a  75 6e 6b 2e 20 53 68 65  | it is junk. She|
000225b0  20 74 68 72 6f 77 73 20  69 74 20 61 77 61 79 2e  | throws it away.|
000225c0  22 3a 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 22  |":owns$(ojt%)=""|
000225d0  0d 85 20 05 cd 0d 85 2a  71 c9 20 33 30 35 3a 74  |.. ....*q. 305:t|
000225e0  24 3d 22 54 68 65 20 67  75 61 72 64 20 74 61 6b  |$="The guard tak|
000225f0  65 73 20 74 68 65 20 22  2b 6f 77 6e 73 24 28 6f  |es the "+owns$(o|
00022600  6a 74 25 29 2b 22 2c 20  6c 6f 6f 6b 73 20 61 74  |jt%)+", looks at|
00022610  20 69 74 20 74 68 6f 75  67 68 74 66 75 6c 6c 79  | it thoughtfully|
00022620  2c 20 74 68 65 6e 20 74  68 72 6f 77 73 20 69 74  |, then throws it|
00022630  20 61 77 61 79 2e 22 3a  6f 77 6e 73 24 28 6f 6a  | away.":owns$(oj|
00022640  74 25 29 3d 22 22 0d 85  34 11 c9 20 33 31 30 20  |t%)=""..4.. 310 |
00022650  3a 20 66 67 25 3d 30 0d  85 3e af e7 20 6f 77 6e  |: fg%=0..>.. own|
00022660  73 24 28 6f 6a 74 25 29  3d 22 67 72 61 76 65 73  |s$(ojt%)="graves|
00022670  74 6f 6e 65 22 20 84 20  6f 77 6e 73 24 28 6f 6a  |tone" . owns$(oj|
00022680  74 25 29 3d 22 64 6f 6c  6c 22 20 66 67 25 3d 31  |t%)="doll" fg%=1|
00022690  3a 6f 77 6e 73 24 28 6f  6a 74 25 29 3d 22 22 3a  |:owns$(ojt%)="":|
000226a0  6d 65 64 69 75 6d 31 25  3d 31 3a 74 24 3d 22 27  |medium1%=1:t$="'|
000226b0  54 68 61 6e 6b 20 79 6f  75 27 2c 20 73 68 65 20  |Thank you', she |
000226c0  73 61 79 73 22 3a e7 20  6d 65 64 69 75 6d 32 25  |says":. medium2%|
000226d0  3d 30 3a 74 24 2b 3d 22  2c 20 27 6e 6f 77 20 61  |=0:t$+=", 'now a|
000226e0  6c 6c 20 49 20 6e 65 65  64 20 69 73 20 73 6f 6d  |ll I need is som|
000226f0  65 20 70 61 79 6d 65 6e  74 27 2e 22 20 8b 20 74  |e payment'." . t|
00022700  24 2b 3d 22 2e 22 0d 85  48 bf e7 20 6f 77 6e 73  |$+="."..H.. owns|
00022710  24 28 6f 6a 74 25 29 3d  22 70 75 72 73 65 22 20  |$(ojt%)="purse" |
00022720  84 20 6f 77 6e 73 24 28  6f 6a 74 25 29 3d 22 63  |. owns$(ojt%)="c|
00022730  68 65 71 75 65 22 20 66  67 25 3d 31 3a 6f 77 6e  |heque" fg%=1:own|
00022740  73 24 28 6f 6a 74 25 29  3d 22 22 3a 6d 65 64 69  |s$(ojt%)="":medi|
00022750  75 6d 32 25 3d 31 3a 74  24 3d 22 27 54 68 61 6e  |um2%=1:t$="'Than|
00022760  6b 20 79 6f 75 27 2c 20  73 68 65 20 73 61 79 73  |k you', she says|
00022770  22 3a e7 20 6d 65 64 69  75 6d 31 25 3d 30 3a 74  |":. medium1%=0:t|
00022780  24 2b 3d 22 2c 20 27 6e  6f 77 20 61 6c 6c 20 49  |$+=", 'now all I|
00022790  20 6e 65 65 64 20 69 73  20 73 6f 6d 65 74 68 69  | need is somethi|
000227a0  6e 67 20 74 6f 20 6c 69  6e 6b 20 77 69 74 68 20  |ng to link with |
000227b0  74 68 65 20 70 61 73 74  27 2e 22 20 8b 20 74 24  |the past'." . t$|
000227c0  2b 3d 22 2e 22 0d 85 52  27 e7 20 66 67 25 3d 31  |+="."..R'. fg%=1|
000227d0  20 80 20 6d 65 64 69 75  6d 31 25 3d 31 20 80 20  | . medium1%=1 . |
000227e0  6d 65 64 69 75 6d 32 25  3d 31 20 8c 0d 85 5c 0c  |medium2%=1 ...\.|
000227f0  f2 61 64 64 28 74 24 29  0d 85 66 d3 74 24 3d 22  |.add(t$)..f.t$="|
00022800  20 53 68 65 20 74 61 6b  65 73 20 79 6f 75 72 20  | She takes your |
00022810  67 69 66 74 73 20 61 6e  64 20 70 6c 61 63 65 73  |gifts and places|
00022820  20 74 68 65 6d 20 6f 6e  20 74 68 65 20 74 61 62  | them on the tab|
00022830  6c 65 2e 20 53 68 65 20  67 6f 65 73 20 69 6e 74  |le. She goes int|
00022840  6f 20 61 20 74 72 61 6e  63 65 20 61 6e 64 20 6d  |o a trance and m|
00022850  75 74 74 65 72 73 20 61  20 66 65 77 20 77 6f 72  |utters a few wor|
00022860  64 73 2e 20 53 75 64 64  65 6e 6c 79 20 74 68 65  |ds. Suddenly the|
00022870  72 65 20 69 73 20 61 20  68 75 67 65 20 66 6c 61  |re is a huge fla|
00022880  73 68 20 6f 66 20 6c 69  67 68 74 65 6e 69 6e 67  |sh of lightening|
00022890  20 61 6e 64 20 77 68 61  74 20 79 6f 75 20 72 65  | and what you re|
000228a0  63 6f 67 6e 69 73 65 20  61 73 20 61 20 74 69 6d  |cognise as a tim|
000228b0  65 77 61 72 70 20 61 70  70 65 61 72 73 20 74 6f  |ewarp appears to|
000228c0  20 74 68 65 20 65 61 73  74 2e 22 0d 85 70 2f 65  | the east."..p/e|
000228d0  78 69 74 73 28 33 31 30  2c 32 29 3d 33 31 31 3a  |xits(310,2)=311:|
000228e0  77 69 6d 70 25 21 30 3d  6d 61 70 68 61 6e 25 3a  |wimp%!0=maphan%:|
000228f0  f2 72 65 64 72 61 77 6d  61 70 0d 85 7a 05 cd 0d  |.redrawmap..z...|
00022900  85 84 2a c9 20 33 31 32  20 3a 20 e7 20 6f 77 6e  |..*. 312 : . own|
00022910  73 24 28 6f 6a 74 25 29  3d 22 70 72 65 73 63 72  |s$(ojt%)="prescr|
00022920  69 70 74 69 6f 6e 22 20  8c 0d 85 8e 9c 74 24 3d  |iption" .....t$=|
00022930  22 54 68 65 20 79 6f 75  6e 67 20 6d 61 6e 20 74  |"The young man t|
00022940  61 6b 65 73 20 74 68 65  20 70 72 65 73 63 72 69  |akes the prescri|
00022950  70 74 69 6f 6e 2c 20 64  69 73 61 70 70 65 61 72  |ption, disappear|
00022960  73 20 62 65 68 69 6e 64  20 74 68 65 20 63 6f 75  |s behind the cou|
00022970  6e 74 65 72 20 61 6e 64  20 63 6f 6d 65 73 20 62  |nter and comes b|
00022980  61 63 6b 20 77 69 74 68  20 61 20 62 6f 74 74 6c  |ack with a bottl|
00022990  65 2e 20 48 65 20 73 68  6f 76 65 73 20 69 74 20  |e. He shoves it |
000229a0  69 6e 74 6f 20 79 6f 75  72 20 68 61 6e 64 2e 22  |into your hand."|
000229b0  3a 6f 77 6e 73 24 28 6f  6a 74 25 29 3d 22 62 6f  |:owns$(ojt%)="bo|
000229c0  74 74 6c 65 22 0d 85 98  62 cc 20 74 24 3d 22 54  |ttle"...b. t$="T|
000229d0  68 65 20 79 6f 75 6e 67  20 6d 61 6e 20 74 61 6b  |he young man tak|
000229e0  65 73 20 74 68 65 20 22  2b 6f 77 6e 73 24 28 6f  |es the "+owns$(o|
000229f0  6a 74 25 29 2b 22 20 61  6e 64 20 74 68 72 6f 77  |jt%)+" and throw|
00022a00  73 20 69 74 20 75 6e 64  65 72 20 74 68 65 20 63  |s it under the c|
00022a10  6f 75 6e 74 65 72 2e 22  3a 6f 77 6e 73 24 28 6f  |ounter.":owns$(o|
00022a20  6a 74 25 29 3d 22 22 0d  85 a2 05 cd 0d 85 ac 4d  |jt%)=""........M|
00022a30  7f 20 3a 20 74 24 3d 22  49 20 64 6f 20 6e 6f 74  |. : t$="I do not|
00022a40  20 75 6e 64 65 72 73 74  61 6e 64 20 77 68 6f 20  | understand who |
00022a50  79 6f 75 20 77 61 6e 74  20 74 6f 20 67 69 76 65  |you want to give|
00022a60  20 74 68 65 20 22 2b 6f  77 6e 73 24 28 6f 6a 74  | the "+owns$(ojt|
00022a70  25 29 2b 22 20 74 6f 2e  22 0d 85 b6 05 cb 0d 85  |%)+" to.".......|
00022a80  c0 53 e7 20 70 6f 6c 69  63 65 25 28 31 29 3d 72  |.S. police%(1)=r|
00022a90  6f 6f 6d 6e 6f 25 20 84  20 70 6f 6c 69 63 65 25  |oomno% . police%|
00022aa0  28 32 29 3d 72 6f 6f 6d  6e 6f 25 20 74 24 3d 22  |(2)=roomno% t$="|
00022ab0  54 68 65 20 70 6f 6c 69  63 65 6d 61 6e 20 72 65  |The policeman re|
00022ac0  66 75 73 65 73 20 79 6f  75 72 20 67 69 66 74 2e  |fuses your gift.|
00022ad0  22 0d 85 ca 0c f2 61 64  64 28 74 24 29 0d 85 d4  |".....add(t$)...|
00022ae0  05 cd 0d 85 de 05 e1 0d  85 e8 04 0d 85 f2 09 dd  |................|
00022af0  f2 70 75 74 0d 85 fc 0a  62 6c 62 25 3d 30 0d 86  |.put....blb%=0..|
00022b00  06 50 e7 20 a4 67 6f 74  6f 72 68 65 72 65 28 22  |.P. .gotorhere("|
00022b10  62 6c 6f 62 22 29 3d 31  20 80 20 a7 69 24 2c 22  |blob")=1 . .i$,"|
00022b20  62 6c 6f 62 22 29 3e 30  20 80 20 a7 69 24 2c 22  |blob")>0 . .i$,"|
00022b30  6b 65 79 68 6f 6c 65 22  29 3e 30 20 80 20 72 6f  |keyhole")>0 . ro|
00022b40  6f 6d 6e 6f 25 3d 32 20  62 6c 62 25 3d 31 0d 86  |omno%=2 blb%=1..|
00022b50  10 4d e7 20 a4 67 6f 74  6f 72 68 65 72 65 28 22  |.M. .gotorhere("|
00022b60  62 6c 6f 62 22 29 3d 31  20 80 20 a7 69 24 2c 22  |blob")=1 . .i$,"|
00022b70  62 6c 6f 62 22 29 3e 30  20 80 20 a7 69 24 2c 22  |blob")>0 . .i$,"|
00022b80  64 6f 6f 72 22 29 3e 30  20 80 20 72 6f 6f 6d 6e  |door")>0 . roomn|
00022b90  6f 25 3d 32 20 62 6c 62  25 3d 31 0d 86 1a 6f e7  |o%=2 blb%=1...o.|
00022ba0  20 62 6c 62 25 3d 31 20  f2 61 64 64 28 22 59 6f  | blb%=1 .add("Yo|
00022bb0  75 20 70 72 65 73 73 20  74 68 65 20 62 6c 6f 62  |u press the blob|
00022bc0  20 69 6e 74 6f 20 74 68  65 20 6b 65 79 68 6f 6c  | into the keyhol|
00022bd0  65 20 61 6e 64 20 70 75  6c 6c 20 69 74 20 6f 75  |e and pull it ou|
00022be0  74 2e 20 56 6f 69 6c 61  21 20 41 20 70 65 72 66  |t. Voila! A perf|
00022bf0  65 63 74 20 69 6d 70 72  65 73 73 69 6f 6e 21 22  |ect impression!"|
00022c00  29 3a 6d 6f 75 6c 64 25  3d 31 0d 86 24 0a 70 75  |):mould%=1..$.pu|
00022c10  74 25 3d 30 0d 86 2e 40  e7 20 a7 69 24 2c 22 70  |t%=0...@. .i$,"p|
00022c20  69 6c 6c 22 29 3e 30 20  80 20 a7 69 24 2c 22 63  |ill")>0 . .i$,"c|
00022c30  75 70 22 29 3e 30 20 80  20 a4 67 6f 74 6f 72 68  |up")>0 . .gotorh|
00022c40  65 72 65 28 22 70 69 6c  6c 22 29 3d 31 20 70 75  |ere("pill")=1 pu|
00022c50  74 25 3d 31 0d 86 38 42  e7 20 a7 69 24 2c 22 70  |t%=1..8B. .i$,"p|
00022c60  69 6c 6c 22 29 3e 30 20  80 20 a7 69 24 2c 22 64  |ill")>0 . .i$,"d|
00022c70  72 69 6e 6b 22 29 3e 30  20 80 20 a4 67 6f 74 6f  |rink")>0 . .goto|
00022c80  72 68 65 72 65 28 22 70  69 6c 6c 22 29 3d 31 20  |rhere("pill")=1 |
00022c90  70 75 74 25 3d 31 0d 86  42 0e e7 20 70 75 74 25  |put%=1..B.. put%|
00022ca0  3d 31 20 8c 0d 86 4c 9e  f2 61 64 64 28 22 59 6f  |=1 ...L..add("Yo|
00022cb0  75 20 64 72 6f 70 20 74  68 65 20 70 69 6c 6c 20  |u drop the pill |
00022cc0  69 6e 74 6f 20 74 68 65  20 67 75 61 72 64 27 73  |into the guard's|
00022cd0  20 64 72 69 6e 6b 2e 20  41 20 66 65 77 20 6d 69  | drink. A few mi|
00022ce0  6e 75 74 65 73 20 6c 61  74 65 72 20 68 65 20 70  |nutes later he p|
00022cf0  69 63 6b 73 20 69 74 20  75 70 20 61 6e 64 20 74  |icks it up and t|
00022d00  61 6b 65 73 20 61 20 73  69 70 2e 20 57 69 74 68  |akes a sip. With|
00022d10  69 6e 20 61 20 71 75 61  72 74 65 72 20 6f 66 20  |in a quarter of |
00022d20  61 6e 20 68 6f 75 72 20  68 65 20 66 61 6c 6c 73  |an hour he falls|
00022d30  20 73 6f 75 6e 64 6c 79  20 61 73 6c 65 65 70 2e  | soundly asleep.|
00022d40  22 29 0d 86 56 38 72 6f  6f 6d 73 24 28 38 35 2c  |")..V8rooms$(85,|
00022d50  35 29 3d 22 73 69 64 65  20 6f 66 20 74 68 65 20  |5)="side of the |
00022d60  62 61 72 73 20 69 73 20  61 20 73 6c 65 65 70 69  |bars is a sleepi|
00022d70  6e 67 20 67 75 61 72 64  2e 22 0d 86 60 0e e3 20  |ng guard."..`.. |
00022d80  61 3d 31 20 b8 20 31 30  0d 86 6a 21 e7 20 6f 77  |a=1 . 10..j!. ow|
00022d90  6e 73 24 28 61 29 3d 22  70 69 6c 6c 22 20 6f 77  |ns$(a)="pill" ow|
00022da0  6e 73 24 28 61 29 3d 22  22 0d 86 74 37 e7 20 6f  |ns$(a)=""..t7. o|
00022db0  62 6a 65 63 74 73 24 28  72 6f 6f 6d 6e 6f 25 2c  |bjects$(roomno%,|
00022dc0  61 29 3d 22 70 69 6c 6c  22 20 6f 62 6a 65 63 74  |a)="pill" object|
00022dd0  73 24 28 72 6f 6f 6d 6e  6f 25 2c 61 29 3d 22 22  |s$(roomno%,a)=""|
00022de0  0d 86 7e 07 ed 20 61 0d  86 88 0e 64 72 75 67 67  |..~.. a....drugg|
00022df0  65 64 25 3d 31 0d 86 92  05 cd 0d 86 9c 33 e7 20  |ed%=1........3. |
00022e00  70 75 74 25 3d 30 20 80  20 62 6c 62 25 3d 30 20  |put%=0 . blb%=0 |
00022e10  f2 61 64 64 28 22 49 20  64 6f 6e 27 74 20 66 65  |.add("I don't fe|
00022e20  65 6c 20 6c 69 6b 65 20  69 74 2e 22 29 0d 86 a6  |el like it.")...|
00022e30  05 e1 0d 86 b0 04 0d 86  ba 0a dd f2 64 72 6f 70  |............drop|
00022e40  0d 86 c4 0c 67 6f 74 74  61 25 3d 30 0d 86 ce 40  |....gotta%=0...@|
00022e50  e7 20 a7 69 24 2c 22 70  69 6c 6c 22 29 3e 30 20  |. .i$,"pill")>0 |
00022e60  80 20 a7 69 24 2c 22 63  75 70 22 29 3e 30 20 80  |. .i$,"cup")>0 .|
00022e70  20 a4 67 6f 74 6f 72 68  65 72 65 28 22 70 69 6c  | .gotorhere("pil|
00022e80  6c 22 29 3d 31 20 f2 70  75 74 3a e1 0d 86 d8 42  |l")=1 .put:....B|
00022e90  e7 20 a7 69 24 2c 22 70  69 6c 6c 22 29 3e 30 20  |. .i$,"pill")>0 |
00022ea0  80 20 a7 69 24 2c 22 64  72 69 6e 6b 22 29 3e 30  |. .i$,"drink")>0|
00022eb0  20 80 20 a4 67 6f 74 6f  72 68 65 72 65 28 22 70  | . .gotorhere("p|
00022ec0  69 6c 6c 22 29 3d 31 20  f2 70 75 74 3a e1 0d 86  |ill")=1 .put:...|
00022ed0  e2 2a e7 20 a7 69 24 2c  22 61 6c 6c 22 29 3e 30  |.*. .i$,"all")>0|
00022ee0  20 84 20 a7 69 24 2c 22  65 76 65 72 79 74 68 69  | . .i$,"everythi|
00022ef0  6e 67 22 29 3e 30 20 8c  0d 86 ec 10 20 20 63 6f  |ng")>0 .....  co|
00022f00  75 6e 74 65 72 25 3d 30  0d 86 f6 11 20 20 e3 20  |unter%=0....  . |
00022f10  61 25 3d 31 20 b8 20 31  30 0d 87 00 34 20 20 e7  |a%=1 . 10...4  .|
00022f20  20 6f 77 6e 73 24 28 61  25 29 3c 3e 22 22 20 69  | owns$(a%)<>"" i|
00022f30  24 3d 6f 77 6e 73 24 28  61 25 29 3a 63 6f 75 6e  |$=owns$(a%):coun|
00022f40  74 65 72 25 2b 3d 31 3a  f2 64 72 6f 70 0d 87 0a  |ter%+=1:.drop...|
00022f50  0a 20 20 ed 20 61 25 0d  87 14 34 20 20 e7 20 63  |.  . a%...4  . c|
00022f60  6f 75 6e 74 65 72 25 3d  30 20 f2 61 64 64 28 22  |ounter%=0 .add("|
00022f70  59 6f 75 20 68 61 76 65  20 6e 6f 74 68 69 6e 67  |You have nothing|
00022f80  20 74 6f 20 64 72 6f 70  2e 22 29 0d 87 1e 13 20  | to drop.").... |
00022f90  20 69 24 3d 22 64 72 6f  70 20 61 6c 6c 22 0d 87  | i$="drop all"..|
00022fa0  28 0f 20 20 67 6f 74 74  61 25 3d 2d 31 0d 87 32  |(.  gotta%=-1..2|
00022fb0  05 cd 0d 87 3c 10 e7 20  67 6f 74 74 61 25 3d 30  |....<.. gotta%=0|
00022fc0  20 8c 0d 87 46 0e e3 20  67 3d 31 20 b8 20 31 30  | ...F.. g=1 . 10|
00022fd0  0d 87 50 35 e7 20 6f 77  6e 73 24 28 67 29 3c 3e  |..P5. owns$(g)<>|
00022fe0  22 22 20 80 20 a7 69 24  2c 6f 77 6e 73 24 28 67  |"" . .i$,owns$(g|
00022ff0  29 29 3e 30 20 67 6f 74  74 61 25 3d 2d 31 3a 6f  |))>0 gotta%=-1:o|
00023000  6a 74 25 3d 67 0d 87 5a  07 ed 20 67 0d 87 64 10  |jt%=g..Z.. g..d.|
00023010  e7 20 67 6f 74 74 61 25  3d 30 20 8c 0d 87 6e 18  |. gotta%=0 ...n.|
00023020  20 20 67 6f 74 74 61 25  3d 31 3a c8 8e 20 b3 28  |  gotta%=1:.. .(|
00023030  34 29 20 ca 0d 87 78 33  20 20 c9 20 31 20 3a 20  |4) ...x3  . 1 : |
00023040  f2 61 64 64 28 22 59 6f  75 20 64 6f 20 6e 6f 74  |.add("You do not|
00023050  20 68 61 76 65 20 73 75  63 68 20 61 6e 20 6f 62  | have such an ob|
00023060  6a 65 63 74 2e 22 29 0d  87 82 38 20 20 c9 20 32  |ject.")...8  . 2|
00023070  20 3a 20 f2 61 64 64 28  22 59 6f 75 20 63 61 6e  | : .add("You can|
00023080  6e 6f 74 20 66 69 6e 64  20 74 68 61 74 20 6f 62  |not find that ob|
00023090  6a 65 63 74 20 74 6f 20  64 72 6f 70 2e 22 29 0d  |ject to drop.").|
000230a0  87 8c 4e 20 20 c9 20 33  20 3a 20 f2 61 64 64 28  |..N  . 3 : .add(|
000230b0  22 49 20 74 68 69 6e 6b  20 79 6f 75 27 72 65 20  |"I think you're |
000230c0  68 61 6c 6c 75 63 69 6e  61 74 69 6e 67 2e 2e 2e  |hallucinating...|
000230d0  20 79 6f 75 20 68 61 76  65 6e 27 74 20 67 6f 74  | you haven't got|
000230e0  20 74 68 61 74 20 69 74  65 6d 2e 22 29 0d 87 96  | that item.")...|
000230f0  42 20 20 c9 20 34 20 3a  20 f2 61 64 64 28 22 59  |B  . 4 : .add("Y|
00023100  6f 75 20 63 61 6e 27 74  20 64 72 6f 70 20 73 6f  |ou can't drop so|
00023110  6d 65 74 68 69 6e 67 20  74 68 61 74 20 79 6f 75  |mething that you|
00023120  20 68 61 76 65 6e 27 74  20 67 6f 74 2e 22 29 0d  | haven't got.").|
00023130  87 a0 07 20 20 cb 0d 87  aa 05 cd 0d 87 b4 18 e7  |...  ...........|
00023140  20 67 6f 74 74 61 25 3d  2d 31 20 67 6f 74 74 61  | gotta%=-1 gotta|
00023150  25 3d 30 0d 87 be 10 e7  20 67 6f 74 74 61 25 3d  |%=0..... gotta%=|
00023160  30 20 8c 0d 87 c8 10 67  6f 74 74 61 66 6c 61 67  |0 .....gottaflag|
00023170  25 3d 30 0d 87 d2 0e e3  20 67 3d 31 20 b8 20 31  |%=0..... g=1 . 1|
00023180  30 0d 87 dc 29 e7 20 6f  62 6a 65 63 74 73 24 28  |0...). objects$(|
00023190  72 6f 6f 6d 6e 6f 25 2c  67 29 3d 22 22 20 67 6f  |roomno%,g)="" go|
000231a0  74 74 61 66 6c 61 67 25  3d 67 0d 87 e6 07 ed 20  |ttaflag%=g..... |
000231b0  67 0d 87 f0 cf e7 20 67  6f 74 74 61 66 6c 61 67  |g..... gottaflag|
000231c0  25 3e 30 20 6f 62 6a 65  63 74 73 24 28 72 6f 6f  |%>0 objects$(roo|
000231d0  6d 6e 6f 25 2c 67 6f 74  74 61 66 6c 61 67 25 29  |mno%,gottaflag%)|
000231e0  3d 6f 77 6e 73 24 28 6f  6a 74 25 29 3a 6f 77 6e  |=owns$(ojt%):own|
000231f0  73 24 28 6f 6a 74 25 29  3d 22 22 3a f2 61 64 64  |s$(ojt%)="":.add|
00023200  28 22 59 6f 75 20 68 61  76 65 20 64 72 6f 70 70  |("You have dropp|
00023210  65 64 20 74 68 65 20 22  2b 6f 62 6a 65 63 74 73  |ed the "+objects|
00023220  24 28 72 6f 6f 6d 6e 6f  25 2c 67 6f 74 74 61 66  |$(roomno%,gottaf|
00023230  6c 61 67 25 29 2b 22 20  6f 6e 20 74 6f 20 74 68  |lag%)+" on to th|
00023240  65 20 67 72 6f 75 6e 64  2e 22 29 3a e7 20 72 6f  |e ground."):. ro|
00023250  6f 6d 6e 6f 25 3d 37 35  20 80 20 6f 62 6a 65 63  |omno%=75 . objec|
00023260  74 73 24 28 72 6f 6f 6d  6e 6f 25 2c 67 6f 74 74  |ts$(roomno%,gott|
00023270  61 66 6c 61 67 25 29 3d  22 62 6f 6e 65 22 20 8c  |aflag%)="bone" .|
00023280  0d 87 fa b5 f2 61 64 64  28 22 41 20 79 6f 75 6e  |.....add("A youn|
00023290  67 20 62 6f 79 20 65 6e  74 65 72 73 20 74 68 65  |g boy enters the|
000232a0  20 72 6f 6f 6d 2c 20 68  65 20 73 65 65 73 20 74  | room, he sees t|
000232b0  68 65 20 62 6f 6e 65 20  61 6e 64 20 70 69 63 6b  |he bone and pick|
000232c0  73 20 69 74 20 75 70 2e  20 48 65 20 73 65 65 73  |s it up. He sees|
000232d0  20 79 6f 75 20 6d 75 72  6d 75 72 73 20 61 20 27  | you murmurs a '|
000232e0  74 68 61 6e 6b 73 27 20  74 68 65 6e 20 64 72 6f  |thanks' then dro|
000232f0  70 73 20 61 20 70 61 6d  70 68 6c 65 74 20 6f 6e  |ps a pamphlet on|
00023300  74 6f 20 74 68 65 20 67  72 6f 75 6e 64 20 61 6e  |to the ground an|
00023310  64 20 6c 65 61 76 65 73  20 69 6e 20 74 68 65 20  |d leaves in the |
00023320  73 61 6d 65 20 63 61 73  75 61 6c 20 6d 61 6e 6e  |same casual mann|
00023330  65 72 2e 22 29 0d 88 04  2b 6f 62 6a 65 63 74 73  |er.")...+objects|
00023340  24 28 72 6f 6f 6d 6e 6f  25 2c 67 6f 74 74 61 66  |$(roomno%,gottaf|
00023350  6c 61 67 25 29 3d 22 70  61 6d 70 68 6c 65 74 22  |lag%)="pamphlet"|
00023360  0d 88 0e 05 cd 0d 88 18  1c e7 20 67 6f 74 74 61  |.......... gotta|
00023370  66 6c 61 67 25 3d 30 20  c8 8e 20 b3 28 33 29 20  |flag%=0 .. .(3) |
00023380  ca 0d 88 22 44 20 20 c9  20 31 20 3a 20 f2 61 64  |..."D  . 1 : .ad|
00023390  64 28 22 54 68 65 72 65  20 61 72 65 20 74 6f 6f  |d("There are too|
000233a0  20 6d 61 6e 79 20 74 68  69 6e 67 73 20 6f 6e 20  | many things on |
000233b0  74 68 65 20 67 72 6f 75  6e 64 20 61 6c 72 65 61  |the ground alrea|
000233c0  64 79 2e 22 29 0d 88 2c  37 20 20 c9 20 32 20 3a  |dy.")..,7  . 2 :|
000233d0  20 f2 61 64 64 28 22 54  68 65 20 70 69 6c 65 20  | .add("The pile |
000233e0  6f 6e 20 74 68 65 20 66  6c 6f 6f 72 20 69 73 20  |on the floor is |
000233f0  74 6f 6f 20 6c 61 72 67  65 2e 22 29 0d 88 36 66  |too large.")..6f|
00023400  20 20 c9 20 33 20 3a 20  f2 61 64 64 28 22 49 74  |  . 3 : .add("It|
00023410  27 73 20 74 6f 6f 20 72  69 73 6b 79 2c 20 74 68  |'s too risky, th|
00023420  65 72 65 27 73 20 73 6f  20 6d 75 63 68 20 73 74  |ere's so much st|
00023430  75 66 66 20 6f 6e 20 74  68 65 20 67 72 6f 75 6e  |uff on the groun|
00023440  64 20 79 6f 75 20 77 6f  75 6c 64 20 6e 65 76 65  |d you would neve|
00023450  72 20 66 69 6e 64 20 69  74 20 61 67 61 69 6e 2e  |r find it again.|
00023460  22 29 0d 88 40 05 cb 0d  88 4a 05 cd 0d 88 54 05  |")..@....J....T.|
00023470  cd 0d 88 5e 05 e1 0d 88  68 04 0d 88 72 0b dd f2  |...^....h...r...|
00023480  6e 6f 72 74 68 0d 88 7c  09 6d 76 25 3d 30 0d 88  |north..|.mv%=0..|
00023490  86 1a e7 20 65 78 69 74  73 28 72 6f 6f 6d 6e 6f  |... exits(roomno|
000234a0  25 2c 31 29 3d 30 20 8c  0d 88 90 0d c8 8e 20 b3  |%,1)=0 ....... .|
000234b0  28 37 29 20 ca 0d 88 9a  38 20 20 c9 20 31 20 3a  |(7) ....8  . 1 :|
000234c0  20 74 24 3d 22 54 68 65  72 65 20 69 73 20 6e 6f  | t$="There is no|
000234d0  20 70 6f 73 73 69 62 6c  65 20 65 78 69 74 20 74  | possible exit t|
000234e0  6f 20 74 68 65 20 6e 6f  72 74 68 2e 22 0d 88 a4  |o the north."...|
000234f0  35 20 20 c9 20 32 20 3a  20 74 24 3d 22 59 6f 75  |5  . 2 : t$="You|
00023500  20 63 61 6e 20 73 65 65  20 6e 6f 20 77 61 79 20  | can see no way |
00023510  6f 75 74 20 74 6f 20 74  68 65 20 6e 6f 72 74 68  |out to the north|
00023520  2e 22 0d 88 ae 3a 20 20  c9 20 33 20 3a 20 74 24  |."...:  . 3 : t$|
00023530  3d 22 59 6f 75 20 63 61  6e 20 73 65 65 20 6e 6f  |="You can see no|
00023540  20 65 73 63 61 70 65 20  72 6f 75 74 65 20 74 6f  | escape route to|
00023550  20 74 68 65 20 6e 6f 72  74 68 2e 22 0d 88 b8 37  | the north."...7|
00023560  20 20 c9 20 34 20 3a 20  74 24 3d 22 54 68 65 20  |  . 4 : t$="The |
00023570  64 69 72 65 63 74 69 6f  6e 20 74 6f 20 74 68 65  |direction to the|
00023580  20 6e 6f 72 74 68 20 69  73 20 62 6c 6f 63 6b 65  | north is blocke|
00023590  64 2e 22 0d 88 c2 39 20  20 c9 20 35 20 3a 20 74  |d."...9  . 5 : t|
000235a0  24 3d 22 54 68 65 72 65  20 69 73 20 6e 6f 20 77  |$="There is no w|
000235b0  61 79 20 6f 66 20 6c 65  61 76 69 6e 67 20 74 6f  |ay of leaving to|
000235c0  20 74 68 65 20 6e 6f 72  74 68 2e 22 0d 88 cc 36  | the north."...6|
000235d0  20 20 c9 20 36 20 3a 20  74 24 3d 22 59 6f 75 20  |  . 6 : t$="You |
000235e0  63 61 6e 27 74 20 77 61  6c 6b 20 74 68 72 6f 75  |can't walk throu|
000235f0  67 68 20 73 6f 6c 69 64  20 6f 62 6a 65 63 74 73  |gh solid objects|
00023600  2e 22 0d 88 d6 4c 20 20  c9 20 37 20 3a 20 74 24  |."...L  . 7 : t$|
00023610  3d 22 59 6f 75 27 72 65  20 73 6f 6c 69 64 2c 20  |="You're solid, |
00023620  74 68 65 20 77 61 6c 6c  27 73 20 73 6f 6c 69 64  |the wall's solid|
00023630  2c 20 49 20 64 6f 6e 27  74 20 74 68 69 6e 6b 20  |, I don't think |
00023640  69 74 20 77 69 6c 6c 20  77 6f 72 6b 2e 22 0d 88  |it will work."..|
00023650  e0 05 cb 0d 88 ea 10 c8  8e 20 72 6f 6f 6d 6e 6f  |......... roomno|
00023660  25 20 ca 0d 88 f4 4e 20  20 c9 20 34 36 2c 34 35  |% ....N  . 46,45|
00023670  2c 34 34 2c 34 33 2c 34  37 2c 36 35 2c 37 36 20  |,44,43,47,65,76 |
00023680  3a 20 74 24 3d 22 54 68  65 20 6c 61 72 67 65 20  |: t$="The large |
00023690  66 65 6e 63 65 20 70 72  6f 76 69 64 65 73 20 61  |fence provides a|
000236a0  20 73 6c 69 67 68 74 20  70 72 6f 62 6c 65 6d 2e  | slight problem.|
000236b0  22 0d 88 fe 5b 20 20 c9  20 32 32 36 2c 32 32 37  |"...[  . 226,227|
000236c0  2c 32 32 38 2c 32 36 32  2c 32 36 37 2c 32 38 33  |,228,262,267,283|
000236d0  2c 32 38 34 2c 32 38 35  2c 32 38 38 20 3a 20 74  |,284,285,288 : t|
000236e0  24 3d 22 54 68 65 20 6c  61 72 67 65 20 62 72 69  |$="The large bri|
000236f0  63 6b 20 77 61 6c 6c 20  70 72 6f 76 69 64 65 73  |ck wall provides|
00023700  20 61 20 70 72 6f 62 6c  65 6d 2e 22 0d 89 08 26  | a problem."...&|
00023710  20 20 c9 20 31 37 39 20  3a 20 74 24 3d 22 54 68  |  . 179 : t$="Th|
00023720  65 20 64 6f 6f 72 20 69  73 20 6c 6f 63 6b 65 64  |e door is locked|
00023730  2e 22 0d 89 12 98 20 20  c9 20 31 38 33 20 3a 20  |."....  . 183 : |
00023740  f2 61 64 64 28 22 54 68  65 20 77 61 6c 6c 20 66  |.add("The wall f|
00023750  69 7a 7a 6c 65 73 20 61  6e 64 20 71 75 69 76 65  |izzles and quive|
00023760  72 73 20 61 73 20 79 6f  75 20 73 74 65 70 20 74  |rs as you step t|
00023770  68 72 6f 75 67 68 20 69  74 2e 22 29 3a 72 6f 6f  |hrough it."):roo|
00023780  6d 6e 6f 25 3d 31 35 31  3a e7 20 6d 61 70 79 6e  |mno%=151:. mapyn|
00023790  25 28 72 6f 6f 6d 6e 6f  25 29 3d 30 20 69 24 3d  |%(roomno%)=0 i$=|
000237a0  22 6c 6f 6f 6b 22 3a f2  6c 6f 6f 6b 3a 6d 61 70  |"look":.look:map|
000237b0  79 6e 25 28 72 6f 6f 6d  6e 6f 25 29 3d 31 20 8b  |yn%(roomno%)=1 .|
000237c0  20 f2 68 61 6c 66 6c 6f  6f 6b 0d 89 1c 57 77 69  | .halflook...Wwi|
000237d0  6d 70 25 21 30 3d 6d 61  70 68 61 6e 25 3a f2 72  |mp%!0=maphan%:.r|
000237e0  65 64 72 61 77 6d 61 70  3a 74 24 3d 22 59 6f 75  |edrawmap:t$="You|
000237f0  20 73 68 61 6b 65 20 6f  66 66 20 74 68 65 20 6d  | shake off the m|
00023800  6f 72 74 61 72 20 66 72  6f 6d 20 79 6f 75 72 20  |ortar from your |
00023810  73 68 6f 75 6c 64 65 72  73 2e 22 3a 6d 76 25 3d  |shoulders.":mv%=|
00023820  31 0d 89 26 98 20 20 c9  20 31 39 35 20 3a 20 f2  |1..&.  . 195 : .|
00023830  61 64 64 28 22 54 68 65  20 77 61 6c 6c 20 66 69  |add("The wall fi|
00023840  7a 7a 6c 65 73 20 61 6e  64 20 71 75 69 76 65 72  |zzles and quiver|
00023850  73 20 61 73 20 79 6f 75  20 73 74 65 70 20 74 68  |s as you step th|
00023860  72 6f 75 67 68 20 69 74  2e 22 29 3a 72 6f 6f 6d  |rough it."):room|
00023870  6e 6f 25 3d 31 34 38 3a  e7 20 6d 61 70 79 6e 25  |no%=148:. mapyn%|
00023880  28 72 6f 6f 6d 6e 6f 25  29 3d 30 20 69 24 3d 22  |(roomno%)=0 i$="|
00023890  6c 6f 6f 6b 22 3a f2 6c  6f 6f 6b 3a 6d 61 70 79  |look":.look:mapy|
000238a0  6e 25 28 72 6f 6f 6d 6e  6f 25 29 3d 31 20 8b 20  |n%(roomno%)=1 . |
000238b0  f2 68 61 6c 66 6c 6f 6f  6b 0d 89 30 57 77 69 6d  |.halflook..0Wwim|
000238c0  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
000238d0  64 72 61 77 6d 61 70 3a  74 24 3d 22 59 6f 75 20  |drawmap:t$="You |
000238e0  73 68 61 6b 65 20 6f 66  66 20 74 68 65 20 6d 6f  |shake off the mo|
000238f0  72 74 61 72 20 66 72 6f  6d 20 79 6f 75 72 20 73  |rtar from your s|
00023900  68 6f 75 6c 64 65 72 73  2e 22 3a 6d 76 25 3d 31  |houlders.":mv%=1|
00023910  0d 89 3a 05 cb 0d 89 44  0c f2 61 64 64 28 74 24  |..:....D..add(t$|
00023920  29 0d 89 4e 05 cd 0d 89  58 9c e7 20 72 6f 6f 6d  |)..N....X.. room|
00023930  6e 6f 25 3d 32 36 38 20  f2 61 64 64 28 22 59 6f  |no%=268 .add("Yo|
00023940  75 20 77 61 6e 64 65 72  20 64 6f 77 6e 20 74 68  |u wander down th|
00023950  65 20 72 6f 61 64 2c 20  62 75 74 20 74 68 65 72  |e road, but ther|
00023960  65 20 61 72 65 20 63 61  72 73 20 7a 6f 6f 6d 69  |e are cars zoomi|
00023970  6e 67 20 70 61 73 74 20  79 6f 75 20 61 6c 6c 20  |ng past you all |
00023980  74 68 65 20 74 69 6d 65  2e 20 59 6f 75 20 64 65  |the time. You de|
00023990  63 69 64 65 20 69 74 20  77 69 6c 6c 20 62 65 20  |cide it will be |
000239a0  73 61 66 65 72 20 69 66  20 79 6f 75 20 73 74 61  |safer if you sta|
000239b0  79 20 69 6e 20 74 68 65  20 74 6f 77 6e 2e 22 29  |y in the town.")|
000239c0  3a e1 0d 89 62 23 e7 20  65 78 69 74 73 28 72 6f  |:...b#. exits(ro|
000239d0  6f 6d 6e 6f 25 2c 31 29  3c 3e 30 20 80 20 6d 76  |omno%,1)<>0 . mv|
000239e0  25 3d 30 20 8c 0d 89 6c  13 e7 20 72 6f 6f 6d 6e  |%=0 ...l.. roomn|
000239f0  6f 25 3d 31 37 39 20 8c  0d 89 76 56 f2 61 64 64  |o%=179 ...vV.add|
00023a00  28 22 59 6f 75 20 73 74  65 70 20 6f 75 74 20 6f  |("You step out o|
00023a10  66 20 74 68 65 20 6d 61  7a 65 20 61 6e 64 20 73  |f the maze and s|
00023a20  65 65 20 61 20 63 61 72  74 2c 20 79 6f 75 20 68  |ee a cart, you h|
00023a30  69 64 65 20 69 6e 20 69  74 2e 20 49 74 20 73 74  |ide in it. It st|
00023a40  61 72 74 73 20 6d 6f 76  69 6e 67 2e 22 29 0d 89  |arts moving.")..|
00023a50  80 9a f2 61 64 64 28 22  48 6f 75 72 73 20 6c 61  |...add("Hours la|
00023a60  74 65 72 20 79 6f 75 20  73 65 65 20 73 6f 6d 65  |ter you see some|
00023a70  20 67 61 74 65 73 20 6f  70 65 6e 20 61 6e 64 20  | gates open and |
00023a80  74 68 65 20 63 61 72 74  20 74 72 75 6e 64 6c 65  |the cart trundle|
00023a90  73 20 69 6e 74 6f 20 74  68 65 20 74 6f 77 6e 20  |s into the town |
00023aa0  77 68 69 63 68 20 79 6f  75 20 6b 6e 6f 77 20 73  |which you know s|
00023ab0  6f 20 77 65 6c 6c 2e 20  54 68 65 20 67 61 74 65  |o well. The gate|
00023ac0  73 20 63 6c 6f 73 65 20  61 6e 64 20 79 6f 75 20  |s close and you |
00023ad0  73 6e 65 61 6b 20 6f 75  74 20 6f 66 20 74 68 65  |sneak out of the|
00023ae0  20 63 61 72 74 2e 22 29  0d 89 8a 0b 7a 6f 6e 65  | cart.")....zone|
00023af0  25 3d 31 0d 89 94 05 cd  0d 89 9e 1c 72 6f 6f 6d  |%=1.........room|
00023b00  6e 6f 25 3d 65 78 69 74  73 28 72 6f 6f 6d 6e 6f  |no%=exits(roomno|
00023b10  25 2c 31 29 0d 89 a8 45  e7 20 6d 61 70 79 6e 25  |%,1)...E. mapyn%|
00023b20  28 72 6f 6f 6d 6e 6f 25  29 3d 30 20 69 24 3d 22  |(roomno%)=0 i$="|
00023b30  6c 6f 6f 6b 22 3a f2 6c  6f 6f 6b 3a 6d 61 70 79  |look":.look:mapy|
00023b40  6e 25 28 72 6f 6f 6d 6e  6f 25 29 3d 31 20 8b 20  |n%(roomno%)=1 . |
00023b50  f2 68 61 6c 66 6c 6f 6f  6b 0d 89 b2 1e 77 69 6d  |.halflook....wim|
00023b60  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
00023b70  64 72 61 77 6d 61 70 0d  89 bc 05 cd 0d 89 c6 05  |drawmap.........|
00023b80  e1 0d 89 d0 04 0d 89 da  0a dd f2 65 61 73 74 0d  |...........east.|
00023b90  89 e4 09 6d 76 25 3d 30  0d 89 ee 1a e7 20 65 78  |...mv%=0..... ex|
00023ba0  69 74 73 28 72 6f 6f 6d  6e 6f 25 2c 32 29 3d 30  |its(roomno%,2)=0|
00023bb0  20 8c 0d 89 f8 0d c8 8e  20 b3 28 37 29 20 ca 0d  | ....... .(7) ..|
00023bc0  8a 02 37 20 20 c9 20 31  20 3a 20 74 24 3d 22 54  |..7  . 1 : t$="T|
00023bd0  68 65 72 65 20 69 73 20  6e 6f 20 70 6f 73 73 69  |here is no possi|
00023be0  62 6c 65 20 65 78 69 74  20 74 6f 20 74 68 65 20  |ble exit to the |
00023bf0  65 61 73 74 2e 22 0d 8a  0c 34 20 20 c9 20 32 20  |east."...4  . 2 |
00023c00  3a 20 74 24 3d 22 59 6f  75 20 63 61 6e 20 73 65  |: t$="You can se|
00023c10  65 20 6e 6f 20 77 61 79  20 6f 75 74 20 74 6f 20  |e no way out to |
00023c20  74 68 65 20 65 61 73 74  2e 22 0d 8a 16 39 20 20  |the east."...9  |
00023c30  c9 20 33 20 3a 20 74 24  3d 22 59 6f 75 20 63 61  |. 3 : t$="You ca|
00023c40  6e 20 73 65 65 20 6e 6f  20 65 73 63 61 70 65 20  |n see no escape |
00023c50  72 6f 75 74 65 20 74 6f  20 74 68 65 20 65 61 73  |route to the eas|
00023c60  74 2e 22 0d 8a 20 36 20  20 c9 20 34 20 3a 20 74  |t.".. 6  . 4 : t|
00023c70  24 3d 22 54 68 65 20 64  69 72 65 63 74 69 6f 6e  |$="The direction|
00023c80  20 74 6f 20 74 68 65 20  65 61 73 74 20 69 73 20  | to the east is |
00023c90  62 6c 6f 63 6b 65 64 2e  22 0d 8a 2a 38 20 20 c9  |blocked."..*8  .|
00023ca0  20 35 20 3a 20 74 24 3d  22 54 68 65 72 65 20 69  | 5 : t$="There i|
00023cb0  73 20 6e 6f 20 77 61 79  20 6f 66 20 6c 65 61 76  |s no way of leav|
00023cc0  69 6e 67 20 74 6f 20 74  68 65 20 65 61 73 74 2e  |ing to the east.|
00023cd0  22 0d 8a 34 36 20 20 c9  20 36 20 3a 20 74 24 3d  |"..46  . 6 : t$=|
00023ce0  22 59 6f 75 20 63 61 6e  27 74 20 77 61 6c 6b 20  |"You can't walk |
00023cf0  74 68 72 6f 75 67 68 20  73 6f 6c 69 64 20 6f 62  |through solid ob|
00023d00  6a 65 63 74 73 2e 22 0d  8a 3e 4c 20 20 c9 20 37  |jects."..>L  . 7|
00023d10  20 3a 20 74 24 3d 22 59  6f 75 27 72 65 20 73 6f  | : t$="You're so|
00023d20  6c 69 64 2c 20 74 68 65  20 77 61 6c 6c 27 73 20  |lid, the wall's |
00023d30  73 6f 6c 69 64 2c 20 49  20 64 6f 6e 27 74 20 74  |solid, I don't t|
00023d40  68 69 6e 6b 20 69 74 20  77 69 6c 6c 20 77 6f 72  |hink it will wor|
00023d50  6b 2e 22 0d 8a 48 05 cb  0d 8a 52 10 c8 8e 20 72  |k."..H....R... r|
00023d60  6f 6f 6d 6e 6f 25 20 ca  0d 8a 5c 3e 20 c9 20 32  |oomno% ...\> . 2|
00023d70  39 38 2c 32 39 37 20 3a  20 74 24 3d 22 54 68 65  |98,297 : t$="The|
00023d80  20 6c 61 72 67 65 20 62  72 69 63 6b 20 77 61 6c  | large brick wal|
00023d90  6c 20 70 72 6f 76 69 64  65 73 20 61 20 70 72 6f  |l provides a pro|
00023da0  62 6c 65 6d 2e 22 0d 8a  66 43 20 c9 20 32 20 3a  |blem."..fC . 2 :|
00023db0  20 74 24 3d 22 54 68 65  20 64 6f 6f 72 20 74 6f  | t$="The door to|
00023dc0  20 74 68 65 20 70 6f 73  68 20 68 6f 75 73 65 20  | the posh house |
00023dd0  69 73 20 6c 6f 63 6b 65  64 20 61 74 20 74 68 65  |is locked at the|
00023de0  20 6d 6f 6d 65 6e 74 2e  22 0d 8a 70 3b 20 c9 20  | moment."..p; . |
00023df0  34 36 20 3a 20 74 24 3d  22 54 68 65 20 6c 61 72  |46 : t$="The lar|
00023e00  67 65 20 66 65 6e 63 65  20 70 72 6f 76 69 64 65  |ge fence provide|
00023e10  73 20 61 20 73 6c 69 67  68 74 20 70 72 6f 62 6c  |s a slight probl|
00023e20  65 6d 2e 22 0d 8a 7a 97  20 c9 20 31 39 34 20 3a  |em."..z. . 194 :|
00023e30  20 f2 61 64 64 28 22 54  68 65 20 77 61 6c 6c 20  | .add("The wall |
00023e40  66 69 7a 7a 6c 65 73 20  61 6e 64 20 71 75 69 76  |fizzles and quiv|
00023e50  65 72 73 20 61 73 20 79  6f 75 20 73 74 65 70 20  |ers as you step |
00023e60  74 68 72 6f 75 67 68 20  69 74 2e 22 29 3a 72 6f  |through it."):ro|
00023e70  6f 6d 6e 6f 25 3d 31 39  35 3a e7 20 6d 61 70 79  |omno%=195:. mapy|
00023e80  6e 25 28 72 6f 6f 6d 6e  6f 25 29 3d 30 20 69 24  |n%(roomno%)=0 i$|
00023e90  3d 22 6c 6f 6f 6b 22 3a  f2 6c 6f 6f 6b 3a 6d 61  |="look":.look:ma|
00023ea0  70 79 6e 25 28 72 6f 6f  6d 6e 6f 25 29 3d 31 20  |pyn%(roomno%)=1 |
00023eb0  8b 20 f2 68 61 6c 66 6c  6f 6f 6b 0d 8a 84 57 77  |. .halflook...Ww|
00023ec0  69 6d 70 25 21 30 3d 6d  61 70 68 61 6e 25 3a f2  |imp%!0=maphan%:.|
00023ed0  72 65 64 72 61 77 6d 61  70 3a 74 24 3d 22 59 6f  |redrawmap:t$="Yo|
00023ee0  75 20 73 68 61 6b 65 20  6f 66 66 20 74 68 65 20  |u shake off the |
00023ef0  6d 6f 72 74 61 72 20 66  72 6f 6d 20 79 6f 75 72  |mortar from your|
00023f00  20 73 68 6f 75 6c 64 65  72 73 2e 22 3a 6d 76 25  | shoulders.":mv%|
00023f10  3d 31 0d 8a 8e 97 20 c9  20 31 39 38 20 3a 20 f2  |=1.... . 198 : .|
00023f20  61 64 64 28 22 54 68 65  20 77 61 6c 6c 20 66 69  |add("The wall fi|
00023f30  7a 7a 6c 65 73 20 61 6e  64 20 71 75 69 76 65 72  |zzles and quiver|
00023f40  73 20 61 73 20 79 6f 75  20 73 74 65 70 20 74 68  |s as you step th|
00023f50  72 6f 75 67 68 20 69 74  2e 22 29 3a 72 6f 6f 6d  |rough it."):room|
00023f60  6e 6f 25 3d 32 30 38 3a  e7 20 6d 61 70 79 6e 25  |no%=208:. mapyn%|
00023f70  28 72 6f 6f 6d 6e 6f 25  29 3d 30 20 69 24 3d 22  |(roomno%)=0 i$="|
00023f80  6c 6f 6f 6b 22 3a f2 6c  6f 6f 6b 3a 6d 61 70 79  |look":.look:mapy|
00023f90  6e 25 28 72 6f 6f 6d 6e  6f 25 29 3d 31 20 8b 20  |n%(roomno%)=1 . |
00023fa0  f2 68 61 6c 66 6c 6f 6f  6b 0d 8a 98 57 77 69 6d  |.halflook...Wwim|
00023fb0  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
00023fc0  64 72 61 77 6d 61 70 3a  74 24 3d 22 59 6f 75 20  |drawmap:t$="You |
00023fd0  73 68 61 6b 65 20 6f 66  66 20 74 68 65 20 6d 6f  |shake off the mo|
00023fe0  72 74 61 72 20 66 72 6f  6d 20 79 6f 75 72 20 73  |rtar from your s|
00023ff0  68 6f 75 6c 64 65 72 73  2e 22 3a 6d 76 25 3d 31  |houlders.":mv%=1|
00024000  0d 8a a2 97 20 c9 20 32  30 38 20 3a 20 f2 61 64  |.... . 208 : .ad|
00024010  64 28 22 54 68 65 20 77  61 6c 6c 20 66 69 7a 7a  |d("The wall fizz|
00024020  6c 65 73 20 61 6e 64 20  71 75 69 76 65 72 73 20  |les and quivers |
00024030  61 73 20 79 6f 75 20 73  74 65 70 20 74 68 72 6f  |as you step thro|
00024040  75 67 68 20 69 74 2e 22  29 3a 72 6f 6f 6d 6e 6f  |ugh it."):roomno|
00024050  25 3d 31 39 38 3a e7 20  6d 61 70 79 6e 25 28 72  |%=198:. mapyn%(r|
00024060  6f 6f 6d 6e 6f 25 29 3d  30 20 69 24 3d 22 6c 6f  |oomno%)=0 i$="lo|
00024070  6f 6b 22 3a f2 6c 6f 6f  6b 3a 6d 61 70 79 6e 25  |ok":.look:mapyn%|
00024080  28 72 6f 6f 6d 6e 6f 25  29 3d 31 20 8b 20 f2 68  |(roomno%)=1 . .h|
00024090  61 6c 66 6c 6f 6f 6b 0d  8a ac 57 77 69 6d 70 25  |alflook...Wwimp%|
000240a0  21 30 3d 6d 61 70 68 61  6e 25 3a f2 72 65 64 72  |!0=maphan%:.redr|
000240b0  61 77 6d 61 70 3a 74 24  3d 22 59 6f 75 20 73 68  |awmap:t$="You sh|
000240c0  61 6b 65 20 6f 66 66 20  74 68 65 20 6d 6f 72 74  |ake off the mort|
000240d0  61 72 20 66 72 6f 6d 20  79 6f 75 72 20 73 68 6f  |ar from your sho|
000240e0  75 6c 64 65 72 73 2e 22  3a 6d 76 25 3d 31 0d 8a  |ulders.":mv%=1..|
000240f0  b6 97 20 c9 20 31 39 31  20 3a 20 f2 61 64 64 28  |.. . 191 : .add(|
00024100  22 54 68 65 20 77 61 6c  6c 20 66 69 7a 7a 6c 65  |"The wall fizzle|
00024110  73 20 61 6e 64 20 71 75  69 76 65 72 73 20 61 73  |s and quivers as|
00024120  20 79 6f 75 20 73 74 65  70 20 74 68 72 6f 75 67  | you step throug|
00024130  68 20 69 74 2e 22 29 3a  72 6f 6f 6d 6e 6f 25 3d  |h it."):roomno%=|
00024140  32 30 36 3a e7 20 6d 61  70 79 6e 25 28 72 6f 6f  |206:. mapyn%(roo|
00024150  6d 6e 6f 25 29 3d 30 20  69 24 3d 22 6c 6f 6f 6b  |mno%)=0 i$="look|
00024160  22 3a f2 6c 6f 6f 6b 3a  6d 61 70 79 6e 25 28 72  |":.look:mapyn%(r|
00024170  6f 6f 6d 6e 6f 25 29 3d  31 20 8b 20 f2 68 61 6c  |oomno%)=1 . .hal|
00024180  66 6c 6f 6f 6b 0d 8a c0  57 77 69 6d 70 25 21 30  |flook...Wwimp%!0|
00024190  3d 6d 61 70 68 61 6e 25  3a f2 72 65 64 72 61 77  |=maphan%:.redraw|
000241a0  6d 61 70 3a 74 24 3d 22  59 6f 75 20 73 68 61 6b  |map:t$="You shak|
000241b0  65 20 6f 66 66 20 74 68  65 20 6d 6f 72 74 61 72  |e off the mortar|
000241c0  20 66 72 6f 6d 20 79 6f  75 72 20 73 68 6f 75 6c  | from your shoul|
000241d0  64 65 72 73 2e 22 3a 6d  76 25 3d 31 0d 8a ca 97  |ders.":mv%=1....|
000241e0  20 c9 20 31 37 30 20 3a  20 f2 61 64 64 28 22 54  | . 170 : .add("T|
000241f0  68 65 20 77 61 6c 6c 20  66 69 7a 7a 6c 65 73 20  |he wall fizzles |
00024200  61 6e 64 20 71 75 69 76  65 72 73 20 61 73 20 79  |and quivers as y|
00024210  6f 75 20 73 74 65 70 20  74 68 72 6f 75 67 68 20  |ou step through |
00024220  69 74 2e 22 29 3a 72 6f  6f 6d 6e 6f 25 3d 32 30  |it."):roomno%=20|
00024230  32 3a e7 20 6d 61 70 79  6e 25 28 72 6f 6f 6d 6e  |2:. mapyn%(roomn|
00024240  6f 25 29 3d 30 20 69 24  3d 22 6c 6f 6f 6b 22 3a  |o%)=0 i$="look":|
00024250  f2 6c 6f 6f 6b 3a 6d 61  70 79 6e 25 28 72 6f 6f  |.look:mapyn%(roo|
00024260  6d 6e 6f 25 29 3d 31 20  8b 20 f2 68 61 6c 66 6c  |mno%)=1 . .halfl|
00024270  6f 6f 6b 0d 8a d4 57 77  69 6d 70 25 21 30 3d 6d  |ook...Wwimp%!0=m|
00024280  61 70 68 61 6e 25 3a f2  72 65 64 72 61 77 6d 61  |aphan%:.redrawma|
00024290  70 3a 74 24 3d 22 59 6f  75 20 73 68 61 6b 65 20  |p:t$="You shake |
000242a0  6f 66 66 20 74 68 65 20  6d 6f 72 74 61 72 20 66  |off the mortar f|
000242b0  72 6f 6d 20 79 6f 75 72  20 73 68 6f 75 6c 64 65  |rom your shoulde|
000242c0  72 73 2e 22 3a 6d 76 25  3d 31 0d 8a de 05 cb 0d  |rs.":mv%=1......|
000242d0  8a e8 0c f2 61 64 64 28  74 24 29 0d 8a f2 05 cd  |....add(t$).....|
000242e0  0d 8a fc 82 e7 20 72 6f  6f 6d 6e 6f 25 3d 33 37  |..... roomno%=37|
000242f0  20 80 20 63 72 69 65 72  25 3d 31 20 f2 61 64 64  | . crier%=1 .add|
00024300  28 22 41 20 67 69 72 6c  20 62 6c 6f 63 6b 73 20  |("A girl blocks |
00024310  79 6f 75 72 20 77 61 79  2e 20 53 68 65 20 69 73  |your way. She is|
00024320  20 73 6f 62 62 69 6e 67  20 68 65 72 20 68 65 61  | sobbing her hea|
00024330  72 74 20 6f 75 74 20 61  6e 64 20 73 63 72 65 61  |rt out and screa|
00024340  6d 69 6e 67 20 74 68 61  74 20 68 65 72 20 66 61  |ming that her fa|
00024350  74 68 65 72 20 68 61 73  20 64 69 65 64 2e 22 29  |ther has died.")|
00024360  3a e1 0d 8b 06 58 e7 20  72 6f 6f 6d 6e 6f 25 3d  |:....X. roomno%=|
00024370  33 30 31 20 80 20 70 61  79 65 64 25 3d 30 20 f2  |301 . payed%=0 .|
00024380  61 64 64 28 22 59 6f 75  20 63 61 6e 6e 6f 74 20  |add("You cannot |
00024390  65 6e 74 65 72 20 74 68  65 20 6d 75 73 65 75 6d  |enter the museum|
000243a0  20 75 6e 6c 65 73 73 20  79 6f 75 20 68 61 76 65  | unless you have|
000243b0  20 70 61 69 64 2e 22 29  3a e1 0d 8b 10 23 e7 20  | paid."):....#. |
000243c0  65 78 69 74 73 28 72 6f  6f 6d 6e 6f 25 2c 32 29  |exits(roomno%,2)|
000243d0  3c 3e 30 20 80 20 6d 76  25 3d 30 20 8c 0d 8b 1a  |<>0 . mv%=0 ....|
000243e0  1c 72 6f 6f 6d 6e 6f 25  3d 65 78 69 74 73 28 72  |.roomno%=exits(r|
000243f0  6f 6f 6d 6e 6f 25 2c 32  29 0d 8b 24 45 e7 20 6d  |oomno%,2)..$E. m|
00024400  61 70 79 6e 25 28 72 6f  6f 6d 6e 6f 25 29 3d 30  |apyn%(roomno%)=0|
00024410  20 69 24 3d 22 6c 6f 6f  6b 22 3a f2 6c 6f 6f 6b  | i$="look":.look|
00024420  3a 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  |:mapyn%(roomno%)|
00024430  3d 31 20 8b 20 f2 68 61  6c 66 6c 6f 6f 6b 0d 8b  |=1 . .halflook..|
00024440  2e 1e 77 69 6d 70 25 21  30 3d 6d 61 70 68 61 6e  |..wimp%!0=maphan|
00024450  25 3a f2 72 65 64 72 61  77 6d 61 70 0d 8b 38 13  |%:.redrawmap..8.|
00024460  e7 20 72 6f 6f 6d 6e 6f  25 3d 33 31 31 20 8c 0d  |. roomno%=311 ..|
00024470  8b 42 6a f2 61 64 64 28  22 41 20 66 6c 6f 6f 72  |.Bj.add("A floor|
00024480  20 6d 61 74 65 72 69 61  6c 69 73 65 73 20 62 79  | materialises by|
00024490  20 79 6f 75 72 20 66 65  65 74 20 61 6e 64 20 79  | your feet and y|
000244a0  6f 75 20 73 6f 6f 6e 20  72 65 63 6f 67 6e 69 73  |ou soon recognis|
000244b0  65 20 79 6f 75 72 20 73  75 72 72 6f 75 6e 64 69  |e your surroundi|
000244c0  6e 67 73 2e 22 29 3a 72  6f 6f 6d 6e 6f 25 3d 31  |ngs."):roomno%=1|
000244d0  38 3a 7a 6f 6e 65 25 3d  31 0d 8b 4c 31 e7 20 6d  |8:zone%=1..L1. m|
000244e0  61 70 79 6e 25 28 31 38  29 3d 30 20 6d 61 70 79  |apyn%(18)=0 mapy|
000244f0  6e 25 28 31 38 29 3d 31  3a f2 6c 6f 6f 6b 20 8b  |n%(18)=1:.look .|
00024500  20 f2 68 61 6c 66 6c 6f  6f 6b 0d 8b 56 1e 77 69  | .halflook..V.wi|
00024510  6d 70 25 21 30 3d 6d 61  70 68 61 6e 25 3a f2 72  |mp%!0=maphan%:.r|
00024520  65 64 72 61 77 6d 61 70  0d 8b 60 05 cd 0d 8b 6a  |edrawmap..`....j|
00024530  05 cd 0d 8b 74 05 e1 0d  8b 7e 04 0d 8b 88 0b dd  |....t....~......|
00024540  f2 73 6f 75 74 68 0d 8b  92 09 6d 76 25 3d 30 0d  |.south....mv%=0.|
00024550  8b 9c 1a e7 20 65 78 69  74 73 28 72 6f 6f 6d 6e  |.... exits(roomn|
00024560  6f 25 2c 33 29 3d 30 20  8c 0d 8b a6 0d c8 8e 20  |o%,3)=0 ....... |
00024570  b3 28 37 29 20 ca 0d 8b  b0 38 20 20 c9 20 31 20  |.(7) ....8  . 1 |
00024580  3a 20 74 24 3d 22 54 68  65 72 65 20 69 73 20 6e  |: t$="There is n|
00024590  6f 20 70 6f 73 73 69 62  6c 65 20 65 78 69 74 20  |o possible exit |
000245a0  74 6f 20 74 68 65 20 73  6f 75 74 68 2e 22 0d 8b  |to the south."..|
000245b0  ba 35 20 20 c9 20 32 20  3a 20 74 24 3d 22 59 6f  |.5  . 2 : t$="Yo|
000245c0  75 20 63 61 6e 20 73 65  65 20 6e 6f 20 77 61 79  |u can see no way|
000245d0  20 6f 75 74 20 74 6f 20  74 68 65 20 73 6f 75 74  | out to the sout|
000245e0  68 2e 22 0d 8b c4 3a 20  20 c9 20 33 20 3a 20 74  |h."...:  . 3 : t|
000245f0  24 3d 22 59 6f 75 20 63  61 6e 20 73 65 65 20 6e  |$="You can see n|
00024600  6f 20 65 73 63 61 70 65  20 72 6f 75 74 65 20 74  |o escape route t|
00024610  6f 20 74 68 65 20 73 6f  75 74 68 2e 22 0d 8b ce  |o the south."...|
00024620  37 20 20 c9 20 34 20 3a  20 74 24 3d 22 54 68 65  |7  . 4 : t$="The|
00024630  20 64 69 72 65 63 74 69  6f 6e 20 74 6f 20 74 68  | direction to th|
00024640  65 20 73 6f 75 74 68 20  69 73 20 62 6c 6f 63 6b  |e south is block|
00024650  65 64 2e 22 0d 8b d8 39  20 20 c9 20 35 20 3a 20  |ed."...9  . 5 : |
00024660  74 24 3d 22 54 68 65 72  65 20 69 73 20 6e 6f 20  |t$="There is no |
00024670  77 61 79 20 6f 66 20 6c  65 61 76 69 6e 67 20 74  |way of leaving t|
00024680  6f 20 74 68 65 20 73 6f  75 74 68 2e 22 0d 8b e2  |o the south."...|
00024690  36 20 20 c9 20 36 20 3a  20 74 24 3d 22 59 6f 75  |6  . 6 : t$="You|
000246a0  20 63 61 6e 27 74 20 77  61 6c 6b 20 74 68 72 6f  | can't walk thro|
000246b0  75 67 68 20 73 6f 6c 69  64 20 6f 62 6a 65 63 74  |ugh solid object|
000246c0  73 2e 22 0d 8b ec 4c 20  20 c9 20 37 20 3a 20 74  |s."...L  . 7 : t|
000246d0  24 3d 22 59 6f 75 27 72  65 20 73 6f 6c 69 64 2c  |$="You're solid,|
000246e0  20 74 68 65 20 77 61 6c  6c 27 73 20 73 6f 6c 69  | the wall's soli|
000246f0  64 2c 20 49 20 64 6f 6e  27 74 20 74 68 69 6e 6b  |d, I don't think|
00024700  20 69 74 20 77 69 6c 6c  20 77 6f 72 6b 2e 22 0d  | it will work.".|
00024710  8b f6 05 cb 0d 8c 00 10  c8 8e 20 72 6f 6f 6d 6e  |.......... roomn|
00024720  6f 25 20 ca 0d 8c 0a 63  20 20 c9 20 31 35 20 3a  |o% ....c  . 15 :|
00024730  20 74 24 3d 22 59 6f 75  20 65 64 67 65 20 74 6f  | t$="You edge to|
00024740  77 61 72 64 73 20 74 6f  20 67 61 74 65 73 2c 20  |wards to gates, |
00024750  62 75 74 20 74 68 65 20  67 75 61 72 64 20 67 69  |but the guard gi|
00024760  76 65 73 20 79 6f 75 20  61 6e 20 65 76 69 6c 20  |ves you an evil |
00024770  6c 6f 6f 6b 20 73 6f 20  79 6f 75 20 62 61 63 6b  |look so you back|
00024780  20 61 77 61 79 2e 22 0d  8c 14 5e 20 20 c9 20 32  | away."...^  . 2|
00024790  38 37 2c 32 37 35 2c 32  34 33 2c 32 34 32 2c 32  |87,275,243,242,2|
000247a0  34 31 2c 32 34 30 2c 32  33 39 2c 32 33 38 2c 32  |41,240,239,238,2|
000247b0  33 37 2c 32 32 33 3a 20  74 24 3d 22 54 68 65 20  |37,223: t$="The |
000247c0  6c 61 72 67 65 20 62 72  69 63 6b 20 77 61 6c 6c  |large brick wall|
000247d0  20 70 72 6f 76 69 64 65  73 20 61 20 70 72 6f 62  | provides a prob|
000247e0  6c 65 6d 2e 22 0d 8c 1e  54 20 20 c9 20 35 37 2c  |lem."...T  . 57,|
000247f0  35 36 2c 35 35 2c 35 33  2c 32 34 2c 31 34 2c 31  |56,55,53,24,14,1|
00024800  36 2c 31 37 2c 31 38 20  3a 20 74 24 3d 22 54 68  |6,17,18 : t$="Th|
00024810  65 20 6c 61 72 67 65 20  66 65 6e 63 65 20 70 72  |e large fence pr|
00024820  6f 76 69 64 65 73 20 61  20 73 6c 69 67 68 74 20  |ovides a slight |
00024830  70 72 6f 62 6c 65 6d 2e  22 0d 8c 28 98 20 20 c9  |problem."..(.  .|
00024840  20 31 34 37 20 3a 20 f2  61 64 64 28 22 54 68 65  | 147 : .add("The|
00024850  20 77 61 6c 6c 20 66 69  7a 7a 6c 65 73 20 61 6e  | wall fizzles an|
00024860  64 20 71 75 69 76 65 72  73 20 61 73 20 79 6f 75  |d quivers as you|
00024870  20 73 74 65 70 20 74 68  72 6f 75 67 68 20 69 74  | step through it|
00024880  2e 22 29 3a 72 6f 6f 6d  6e 6f 25 3d 31 39 34 3a  |."):roomno%=194:|
00024890  e7 20 6d 61 70 79 6e 25  28 72 6f 6f 6d 6e 6f 25  |. mapyn%(roomno%|
000248a0  29 3d 30 20 69 24 3d 22  6c 6f 6f 6b 22 3a f2 6c  |)=0 i$="look":.l|
000248b0  6f 6f 6b 3a 6d 61 70 79  6e 25 28 72 6f 6f 6d 6e  |ook:mapyn%(roomn|
000248c0  6f 25 29 3d 31 20 8b 20  f2 68 61 6c 66 6c 6f 6f  |o%)=1 . .halfloo|
000248d0  6b 0d 8c 32 57 77 69 6d  70 25 21 30 3d 6d 61 70  |k..2Wwimp%!0=map|
000248e0  68 61 6e 25 3a f2 72 65  64 72 61 77 6d 61 70 3a  |han%:.redrawmap:|
000248f0  74 24 3d 22 59 6f 75 20  73 68 61 6b 65 20 6f 66  |t$="You shake of|
00024900  66 20 74 68 65 20 6d 6f  72 74 61 72 20 66 72 6f  |f the mortar fro|
00024910  6d 20 79 6f 75 72 20 73  68 6f 75 6c 64 65 72 73  |m your shoulders|
00024920  2e 22 3a 6d 76 25 3d 31  0d 8c 3c 98 20 20 c9 20  |.":mv%=1..<.  . |
00024930  32 31 30 20 3a 20 f2 61  64 64 28 22 54 68 65 20  |210 : .add("The |
00024940  77 61 6c 6c 20 66 69 7a  7a 6c 65 73 20 61 6e 64  |wall fizzles and|
00024950  20 71 75 69 76 65 72 73  20 61 73 20 79 6f 75 20  | quivers as you |
00024960  73 74 65 70 20 74 68 72  6f 75 67 68 20 69 74 2e  |step through it.|
00024970  22 29 3a 72 6f 6f 6d 6e  6f 25 3d 31 39 31 3a e7  |"):roomno%=191:.|
00024980  20 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  | mapyn%(roomno%)|
00024990  3d 30 20 69 24 3d 22 6c  6f 6f 6b 22 3a f2 6c 6f  |=0 i$="look":.lo|
000249a0  6f 6b 3a 6d 61 70 79 6e  25 28 72 6f 6f 6d 6e 6f  |ok:mapyn%(roomno|
000249b0  25 29 3d 31 20 8b 20 f2  68 61 6c 66 6c 6f 6f 6b  |%)=1 . .halflook|
000249c0  0d 8c 46 57 77 69 6d 70  25 21 30 3d 6d 61 70 68  |..FWwimp%!0=maph|
000249d0  61 6e 25 3a f2 72 65 64  72 61 77 6d 61 70 3a 74  |an%:.redrawmap:t|
000249e0  24 3d 22 59 6f 75 20 73  68 61 6b 65 20 6f 66 66  |$="You shake off|
000249f0  20 74 68 65 20 6d 6f 72  74 61 72 20 66 72 6f 6d  | the mortar from|
00024a00  20 79 6f 75 72 20 73 68  6f 75 6c 64 65 72 73 2e  | your shoulders.|
00024a10  22 3a 6d 76 25 3d 31 0d  8c 50 05 cb 0d 8c 5a 0c  |":mv%=1..P....Z.|
00024a20  f2 61 64 64 28 74 24 29  0d 8c 64 05 cd 0d 8c 6e  |.add(t$)..d....n|
00024a30  7c e7 20 72 6f 6f 6d 6e  6f 25 3d 37 38 20 80 20  ||. roomno%=78 . |
00024a40  66 69 72 65 25 3c 3e 30  20 f2 61 64 64 28 22 54  |fire%<>0 .add("T|
00024a50  68 65 20 79 6f 75 6e 67  20 62 6f 79 2c 20 73 74  |he young boy, st|
00024a60  61 6e 64 69 6e 67 20 62  79 20 68 69 73 20 68 75  |anding by his hu|
00024a70  67 65 20 62 6f 6e 66 69  72 65 2c 20 61 6e 6e 6f  |ge bonfire, anno|
00024a80  79 69 6e 67 6c 79 20 70  72 65 76 65 6e 74 73 20  |yingly prevents |
00024a90  79 6f 75 20 66 72 6f 6d  20 67 6f 69 6e 67 20 73  |you from going s|
00024aa0  6f 75 74 68 2e 22 29 3a  e1 0d 8c 78 9c e7 20 72  |outh."):...x.. r|
00024ab0  6f 6f 6d 6e 6f 25 3d 32  37 34 20 f2 61 64 64 28  |oomno%=274 .add(|
00024ac0  22 59 6f 75 20 77 61 6e  64 65 72 20 64 6f 77 6e  |"You wander down|
00024ad0  20 74 68 65 20 72 6f 61  64 2c 20 62 75 74 20 74  | the road, but t|
00024ae0  68 65 72 65 20 61 72 65  20 63 61 72 73 20 7a 6f  |here are cars zo|
00024af0  6f 6d 69 6e 67 20 70 61  73 74 20 79 6f 75 20 61  |oming past you a|
00024b00  6c 6c 20 74 68 65 20 74  69 6d 65 2e 20 59 6f 75  |ll the time. You|
00024b10  20 64 65 63 69 64 65 20  69 74 20 77 69 6c 6c 20  | decide it will |
00024b20  62 65 20 73 61 66 65 72  20 69 66 20 79 6f 75 20  |be safer if you |
00024b30  73 74 61 79 20 69 6e 20  74 68 65 20 74 6f 77 6e  |stay in the town|
00024b40  2e 22 29 3a e1 0d 8c 82  37 65 6e 74 72 79 25 3d  |."):....7entry%=|
00024b50  30 3a e7 20 a4 67 6f 74  28 22 63 61 70 22 29 3e  |0:. .got("cap")>|
00024b60  30 20 80 20 a4 67 6f 74  28 22 62 61 64 67 65 22  |0 . .got("badge"|
00024b70  29 3e 30 20 65 6e 74 72  79 25 3d 31 0d 8c 8c 77  |)>0 entry%=1...w|
00024b80  e7 20 72 6f 6f 6d 6e 6f  25 3d 33 30 35 20 80 20  |. roomno%=305 . |
00024b90  65 6e 74 72 79 25 3d 30  20 f2 61 64 64 28 22 54  |entry%=0 .add("T|
00024ba0  68 65 20 67 75 61 72 64  20 73 74 6f 70 73 20 79  |he guard stops y|
00024bb0  6f 75 2e 20 27 4f 6e 6c  79 20 70 65 6f 70 6c 65  |ou. 'Only people|
00024bc0  20 6f 66 20 61 75 74 68  6f 72 69 74 79 20 63 61  | of authority ca|
00024bd0  6e 20 67 6f 20 64 6f 77  6e 20 74 68 65 72 65 2c  |n go down there,|
00024be0  20 73 6f 6e 27 2c 20 68  65 20 73 61 79 73 2e 22  | son', he says."|
00024bf0  29 3a e1 0d 8c 96 23 e7  20 65 78 69 74 73 28 72  |):....#. exits(r|
00024c00  6f 6f 6d 6e 6f 25 2c 33  29 3c 3e 30 20 80 20 6d  |oomno%,3)<>0 . m|
00024c10  76 25 3d 30 20 8c 0d 8c  a0 1c 72 6f 6f 6d 6e 6f  |v%=0 .....roomno|
00024c20  25 3d 65 78 69 74 73 28  72 6f 6f 6d 6e 6f 25 2c  |%=exits(roomno%,|
00024c30  33 29 0d 8c aa 4c e7 20  72 6f 6f 6d 6e 6f 25 3d  |3)...L. roomno%=|
00024c40  37 31 20 6d 61 70 79 6e  25 28 37 31 29 3d 31 3a  |71 mapyn%(71)=1:|
00024c50  77 69 6d 70 25 21 30 3d  6d 61 70 68 61 6e 25 3a  |wimp%!0=maphan%:|
00024c60  f2 72 65 64 72 61 77 6d  61 70 3a 72 6f 6f 6d 6e  |.redrawmap:roomn|
00024c70  6f 25 3d 32 32 30 3a 7a  6f 6e 65 25 3d 34 0d 8c  |o%=220:zone%=4..|
00024c80  b4 45 e7 20 6d 61 70 79  6e 25 28 72 6f 6f 6d 6e  |.E. mapyn%(roomn|
00024c90  6f 25 29 3d 30 20 69 24  3d 22 6c 6f 6f 6b 22 3a  |o%)=0 i$="look":|
00024ca0  f2 6c 6f 6f 6b 3a 6d 61  70 79 6e 25 28 72 6f 6f  |.look:mapyn%(roo|
00024cb0  6d 6e 6f 25 29 3d 31 20  8b 20 f2 68 61 6c 66 6c  |mno%)=1 . .halfl|
00024cc0  6f 6f 6b 0d 8c be 1e 77  69 6d 70 25 21 30 3d 6d  |ook....wimp%!0=m|
00024cd0  61 70 68 61 6e 25 3a f2  72 65 64 72 61 77 6d 61  |aphan%:.redrawma|
00024ce0  70 0d 8c c8 05 cd 0d 8c  d2 05 e1 0d 8c dc 04 0d  |p...............|
00024cf0  8c e6 0a dd f2 77 65 73  74 0d 8c f0 09 6d 76 25  |.....west....mv%|
00024d00  3d 30 0d 8c fa 1a e7 20  65 78 69 74 73 28 72 6f  |=0..... exits(ro|
00024d10  6f 6d 6e 6f 25 2c 34 29  3d 30 20 8c 0d 8d 04 0d  |omno%,4)=0 .....|
00024d20  c8 8e 20 b3 28 37 29 20  ca 0d 8d 0e 37 20 20 c9  |.. .(7) ....7  .|
00024d30  20 31 20 3a 20 74 24 3d  22 54 68 65 72 65 20 69  | 1 : t$="There i|
00024d40  73 20 6e 6f 20 70 6f 73  73 69 62 6c 65 20 65 78  |s no possible ex|
00024d50  69 74 20 74 6f 20 74 68  65 20 77 65 73 74 2e 22  |it to the west."|
00024d60  0d 8d 18 34 20 20 c9 20  32 20 3a 20 74 24 3d 22  |...4  . 2 : t$="|
00024d70  59 6f 75 20 63 61 6e 20  73 65 65 20 6e 6f 20 77  |You can see no w|
00024d80  61 79 20 6f 75 74 20 74  6f 20 74 68 65 20 77 65  |ay out to the we|
00024d90  73 74 2e 22 0d 8d 22 39  20 20 c9 20 33 20 3a 20  |st.".."9  . 3 : |
00024da0  74 24 3d 22 59 6f 75 20  63 61 6e 20 73 65 65 20  |t$="You can see |
00024db0  6e 6f 20 65 73 63 61 70  65 20 72 6f 75 74 65 20  |no escape route |
00024dc0  74 6f 20 74 68 65 20 77  65 73 74 2e 22 0d 8d 2c  |to the west."..,|
00024dd0  36 20 20 c9 20 34 20 3a  20 74 24 3d 22 54 68 65  |6  . 4 : t$="The|
00024de0  20 64 69 72 65 63 74 69  6f 6e 20 74 6f 20 74 68  | direction to th|
00024df0  65 20 77 65 73 74 20 69  73 20 62 6c 6f 63 6b 65  |e west is blocke|
00024e00  64 2e 22 0d 8d 36 38 20  20 c9 20 35 20 3a 20 74  |d."..68  . 5 : t|
00024e10  24 3d 22 54 68 65 72 65  20 69 73 20 6e 6f 20 77  |$="There is no w|
00024e20  61 79 20 6f 66 20 6c 65  61 76 69 6e 67 20 74 6f  |ay of leaving to|
00024e30  20 74 68 65 20 77 65 73  74 2e 22 0d 8d 40 36 20  | the west."..@6 |
00024e40  20 c9 20 36 20 3a 20 74  24 3d 22 59 6f 75 20 63  | . 6 : t$="You c|
00024e50  61 6e 27 74 20 77 61 6c  6b 20 74 68 72 6f 75 67  |an't walk throug|
00024e60  68 20 73 6f 6c 69 64 20  6f 62 6a 65 63 74 73 2e  |h solid objects.|
00024e70  22 0d 8d 4a 4c 20 20 c9  20 37 20 3a 20 74 24 3d  |"..JL  . 7 : t$=|
00024e80  22 59 6f 75 27 72 65 20  73 6f 6c 69 64 2c 20 74  |"You're solid, t|
00024e90  68 65 20 77 61 6c 6c 27  73 20 73 6f 6c 69 64 2c  |he wall's solid,|
00024ea0  20 49 20 64 6f 6e 27 74  20 74 68 69 6e 6b 20 69  | I don't think i|
00024eb0  74 20 77 69 6c 6c 20 77  6f 72 6b 2e 22 0d 8d 54  |t will work."..T|
00024ec0  05 cb 0d 8d 5e 10 c8 8e  20 72 6f 6f 6d 6e 6f 25  |....^... roomno%|
00024ed0  20 ca 0d 8d 68 47 20 c9  20 37 36 2c 37 37 2c 37  | ...hG . 76,77,7|
00024ee0  38 2c 37 39 2c 38 30 20  3a 20 74 24 3d 22 54 68  |8,79,80 : t$="Th|
00024ef0  65 20 6c 61 72 67 65 20  66 65 6e 63 65 20 70 72  |e large fence pr|
00024f00  6f 76 69 64 65 73 20 61  20 73 6c 69 67 68 74 20  |ovides a slight |
00024f10  70 72 6f 62 6c 65 6d 2e  22 0d 8d 72 5a 20 c9 20  |problem."..rZ . |
00024f20  32 33 37 2c 32 33 36 2c  32 32 33 2c 32 32 32 2c  |237,236,223,222,|
00024f30  32 32 34 2c 32 32 35 2c  32 32 36 2c 32 38 36 2c  |224,225,226,286,|
00024f40  32 39 37 20 3a 20 74 24  3d 22 54 68 65 20 6c 61  |297 : t$="The la|
00024f50  72 67 65 20 62 72 69 63  6b 20 77 61 6c 6c 20 70  |rge brick wall p|
00024f60  72 6f 76 69 64 65 73 20  61 20 70 72 6f 62 6c 65  |rovides a proble|
00024f70  6d 2e 22 0d 8d 7c 97 20  c9 20 31 34 38 20 3a 20  |m."..|. . 148 : |
00024f80  f2 61 64 64 28 22 54 68  65 20 77 61 6c 6c 20 66  |.add("The wall f|
00024f90  69 7a 7a 6c 65 73 20 61  6e 64 20 71 75 69 76 65  |izzles and quive|
00024fa0  72 73 20 61 73 20 79 6f  75 20 73 74 65 70 20 74  |rs as you step t|
00024fb0  68 72 6f 75 67 68 20 69  74 2e 22 29 3a 72 6f 6f  |hrough it."):roo|
00024fc0  6d 6e 6f 25 3d 31 34 37  3a e7 20 6d 61 70 79 6e  |mno%=147:. mapyn|
00024fd0  25 28 72 6f 6f 6d 6e 6f  25 29 3d 30 20 69 24 3d  |%(roomno%)=0 i$=|
00024fe0  22 6c 6f 6f 6b 22 3a f2  6c 6f 6f 6b 3a 6d 61 70  |"look":.look:map|
00024ff0  79 6e 25 28 72 6f 6f 6d  6e 6f 25 29 3d 31 20 8b  |yn%(roomno%)=1 .|
00025000  20 f2 68 61 6c 66 6c 6f  6f 6b 0d 8d 86 57 77 69  | .halflook...Wwi|
00025010  6d 70 25 21 30 3d 6d 61  70 68 61 6e 25 3a f2 72  |mp%!0=maphan%:.r|
00025020  65 64 72 61 77 6d 61 70  3a 74 24 3d 22 59 6f 75  |edrawmap:t$="You|
00025030  20 73 68 61 6b 65 20 6f  66 66 20 74 68 65 20 6d  | shake off the m|
00025040  6f 72 74 61 72 20 66 72  6f 6d 20 79 6f 75 72 20  |ortar from your |
00025050  73 68 6f 75 6c 64 65 72  73 2e 22 3a 6d 76 25 3d  |shoulders.":mv%=|
00025060  31 0d 8d 90 9f 20 c9 20  32 31 30 2c 31 36 38 2c  |1.... . 210,168,|
00025070  31 39 37 20 3a 20 f2 61  64 64 28 22 54 68 65 20  |197 : .add("The |
00025080  77 61 6c 6c 20 66 69 7a  7a 6c 65 73 20 61 6e 64  |wall fizzles and|
00025090  20 71 75 69 76 65 72 73  20 61 73 20 79 6f 75 20  | quivers as you |
000250a0  73 74 65 70 20 74 68 72  6f 75 67 68 20 69 74 2e  |step through it.|
000250b0  22 29 3a 72 6f 6f 6d 6e  6f 25 3d 31 39 31 3a e7  |"):roomno%=191:.|
000250c0  20 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  | mapyn%(roomno%)|
000250d0  3d 30 20 69 24 3d 22 6c  6f 6f 6b 22 3a f2 6c 6f  |=0 i$="look":.lo|
000250e0  6f 6b 3a 6d 61 70 79 6e  25 28 72 6f 6f 6d 6e 6f  |ok:mapyn%(roomno|
000250f0  25 29 3d 31 20 8b 20 f2  68 61 6c 66 6c 6f 6f 6b  |%)=1 . .halflook|
00025100  0d 8d 9a 57 77 69 6d 70  25 21 30 3d 6d 61 70 68  |...Wwimp%!0=maph|
00025110  61 6e 25 3a f2 72 65 64  72 61 77 6d 61 70 3a 74  |an%:.redrawmap:t|
00025120  24 3d 22 59 6f 75 20 73  68 61 6b 65 20 6f 66 66  |$="You shake off|
00025130  20 74 68 65 20 6d 6f 72  74 61 72 20 66 72 6f 6d  | the mortar from|
00025140  20 79 6f 75 72 20 73 68  6f 75 6c 64 65 72 73 2e  | your shoulders.|
00025150  22 3a 6d 76 25 3d 31 0d  8d a4 9f 20 c9 20 32 31  |":mv%=1.... . 21|
00025160  31 2c 31 36 34 2c 31 38  35 20 3a 20 f2 61 64 64  |1,164,185 : .add|
00025170  28 22 54 68 65 20 77 61  6c 6c 20 66 69 7a 7a 6c  |("The wall fizzl|
00025180  65 73 20 61 6e 64 20 71  75 69 76 65 72 73 20 61  |es and quivers a|
00025190  73 20 79 6f 75 20 73 74  65 70 20 74 68 72 6f 75  |s you step throu|
000251a0  67 68 20 69 74 2e 22 29  3a 72 6f 6f 6d 6e 6f 25  |gh it."):roomno%|
000251b0  3d 31 35 35 3a e7 20 6d  61 70 79 6e 25 28 72 6f  |=155:. mapyn%(ro|
000251c0  6f 6d 6e 6f 25 29 3d 30  20 69 24 3d 22 6c 6f 6f  |omno%)=0 i$="loo|
000251d0  6b 22 3a f2 6c 6f 6f 6b  3a 6d 61 70 79 6e 25 28  |k":.look:mapyn%(|
000251e0  72 6f 6f 6d 6e 6f 25 29  3d 31 20 8b 20 f2 68 61  |roomno%)=1 . .ha|
000251f0  6c 66 6c 6f 6f 6b 0d 8d  ae 57 77 69 6d 70 25 21  |lflook...Wwimp%!|
00025200  30 3d 6d 61 70 68 61 6e  25 3a f2 72 65 64 72 61  |0=maphan%:.redra|
00025210  77 6d 61 70 3a 74 24 3d  22 59 6f 75 20 73 68 61  |wmap:t$="You sha|
00025220  6b 65 20 6f 66 66 20 74  68 65 20 6d 6f 72 74 61  |ke off the morta|
00025230  72 20 66 72 6f 6d 20 79  6f 75 72 20 73 68 6f 75  |r from your shou|
00025240  6c 64 65 72 73 2e 22 3a  6d 76 25 3d 31 0d 8d b8  |lders.":mv%=1...|
00025250  97 20 c9 20 31 35 31 20  3a 20 f2 61 64 64 28 22  |. . 151 : .add("|
00025260  54 68 65 20 77 61 6c 6c  20 66 69 7a 7a 6c 65 73  |The wall fizzles|
00025270  20 61 6e 64 20 71 75 69  76 65 72 73 20 61 73 20  | and quivers as |
00025280  79 6f 75 20 73 74 65 70  20 74 68 72 6f 75 67 68  |you step through|
00025290  20 69 74 2e 22 29 3a 72  6f 6f 6d 6e 6f 25 3d 31  | it."):roomno%=1|
000252a0  38 37 3a e7 20 6d 61 70  79 6e 25 28 72 6f 6f 6d  |87:. mapyn%(room|
000252b0  6e 6f 25 29 3d 30 20 69  24 3d 22 6c 6f 6f 6b 22  |no%)=0 i$="look"|
000252c0  3a f2 6c 6f 6f 6b 3a 6d  61 70 79 6e 25 28 72 6f  |:.look:mapyn%(ro|
000252d0  6f 6d 6e 6f 25 29 3d 31  20 8b 20 f2 68 61 6c 66  |omno%)=1 . .half|
000252e0  6c 6f 6f 6b 0d 8d c2 57  77 69 6d 70 25 21 30 3d  |look...Wwimp%!0=|
000252f0  6d 61 70 68 61 6e 25 3a  f2 72 65 64 72 61 77 6d  |maphan%:.redrawm|
00025300  61 70 3a 74 24 3d 22 59  6f 75 20 73 68 61 6b 65  |ap:t$="You shake|
00025310  20 6f 66 66 20 74 68 65  20 6d 6f 72 74 61 72 20  | off the mortar |
00025320  66 72 6f 6d 20 79 6f 75  72 20 73 68 6f 75 6c 64  |from your should|
00025330  65 72 73 2e 22 3a 6d 76  25 3d 31 0d 8d cc 05 cb  |ers.":mv%=1.....|
00025340  0d 8d d6 0c f2 61 64 64  28 74 24 29 0d 8d e0 05  |.....add(t$)....|
00025350  cd 0d 8d ea 23 e7 20 65  78 69 74 73 28 72 6f 6f  |....#. exits(roo|
00025360  6d 6e 6f 25 2c 34 29 3c  3e 30 20 80 20 6d 76 25  |mno%,4)<>0 . mv%|
00025370  3d 30 20 8c 0d 8d f4 1a  e7 20 72 6f 6f 6d 6e 6f  |=0 ...... roomno|
00025380  25 3d 33 30 32 20 70 61  79 65 64 25 3d 30 0d 8d  |%=302 payed%=0..|
00025390  fe 1c 72 6f 6f 6d 6e 6f  25 3d 65 78 69 74 73 28  |..roomno%=exits(|
000253a0  72 6f 6f 6d 6e 6f 25 2c  34 29 0d 8e 08 45 e7 20  |roomno%,4)...E. |
000253b0  6d 61 70 79 6e 25 28 72  6f 6f 6d 6e 6f 25 29 3d  |mapyn%(roomno%)=|
000253c0  30 20 69 24 3d 22 6c 6f  6f 6b 22 3a f2 6c 6f 6f  |0 i$="look":.loo|
000253d0  6b 3a 6d 61 70 79 6e 25  28 72 6f 6f 6d 6e 6f 25  |k:mapyn%(roomno%|
000253e0  29 3d 31 20 8b 20 f2 68  61 6c 66 6c 6f 6f 6b 0d  |)=1 . .halflook.|
000253f0  8e 12 1e 77 69 6d 70 25  21 30 3d 6d 61 70 68 61  |...wimp%!0=mapha|
00025400  6e 25 3a f2 72 65 64 72  61 77 6d 61 70 0d 8e 1c  |n%:.redrawmap...|
00025410  05 cd 0d 8e 26 05 e1 0d  8e 30 04 0d 8e 3a 0f dd  |....&....0...:..|
00025420  f2 6e 6f 72 74 68 65 61  73 74 0d 8e 44 09 6d 76  |.northeast..D.mv|
00025430  25 3d 30 0d 8e 4e 1a e7  20 65 78 69 74 73 28 72  |%=0..N.. exits(r|
00025440  6f 6f 6d 6e 6f 25 2c 35  29 3d 30 20 8c 0d 8e 58  |oomno%,5)=0 ...X|
00025450  0d c8 8e 20 b3 28 37 29  20 ca 0d 8e 62 3d 20 20  |... .(7) ...b=  |
00025460  c9 20 31 20 3a 20 74 24  3d 22 54 68 65 72 65 20  |. 1 : t$="There |
00025470  69 73 20 6e 6f 20 70 6f  73 73 69 62 6c 65 20 65  |is no possible e|
00025480  78 69 74 20 74 6f 20 74  68 65 20 6e 6f 72 74 68  |xit to the north|
00025490  2d 65 61 73 74 2e 22 0d  8e 6c 3a 20 20 c9 20 32  |-east."..l:  . 2|
000254a0  20 3a 20 74 24 3d 22 59  6f 75 20 63 61 6e 20 73  | : t$="You can s|
000254b0  65 65 20 6e 6f 20 77 61  79 20 6f 75 74 20 74 6f  |ee no way out to|
000254c0  20 74 68 65 20 6e 6f 72  74 68 2d 65 61 73 74 2e  | the north-east.|
000254d0  22 0d 8e 76 3f 20 20 c9  20 33 20 3a 20 74 24 3d  |"..v?  . 3 : t$=|
000254e0  22 59 6f 75 20 63 61 6e  20 73 65 65 20 6e 6f 20  |"You can see no |
000254f0  65 73 63 61 70 65 20 72  6f 75 74 65 20 74 6f 20  |escape route to |
00025500  74 68 65 20 6e 6f 72 74  68 2d 65 61 73 74 2e 22  |the north-east."|
00025510  0d 8e 80 3c 20 20 c9 20  34 20 3a 20 74 24 3d 22  |...<  . 4 : t$="|
00025520  54 68 65 20 64 69 72 65  63 74 69 6f 6e 20 74 6f  |The direction to|
00025530  20 74 68 65 20 6e 6f 72  74 68 2d 65 61 73 74 20  | the north-east |
00025540  69 73 20 62 6c 6f 63 6b  65 64 2e 22 0d 8e 8a 3e  |is blocked."...>|
00025550  20 20 c9 20 35 20 3a 20  74 24 3d 22 54 68 65 72  |  . 5 : t$="Ther|
00025560  65 20 69 73 20 6e 6f 20  77 61 79 20 6f 66 20 6c  |e is no way of l|
00025570  65 61 76 69 6e 67 20 74  6f 20 74 68 65 20 6e 6f  |eaving to the no|
00025580  72 74 68 2d 65 61 73 74  2e 22 0d 8e 94 36 20 20  |rth-east."...6  |
00025590  c9 20 36 20 3a 20 74 24  3d 22 59 6f 75 20 63 61  |. 6 : t$="You ca|
000255a0  6e 27 74 20 77 61 6c 6b  20 74 68 72 6f 75 67 68  |n't walk through|
000255b0  20 73 6f 6c 69 64 20 6f  62 6a 65 63 74 73 2e 22  | solid objects."|
000255c0  0d 8e 9e 4c 20 20 c9 20  37 20 3a 20 74 24 3d 22  |...L  . 7 : t$="|
000255d0  59 6f 75 27 72 65 20 73  6f 6c 69 64 2c 20 74 68  |You're solid, th|
000255e0  65 20 77 61 6c 6c 27 73  20 73 6f 6c 69 64 2c 20  |e wall's solid, |
000255f0  49 20 64 6f 6e 27 74 20  74 68 69 6e 6b 20 69 74  |I don't think it|
00025600  20 77 69 6c 6c 20 77 6f  72 6b 2e 22 0d 8e a8 05  | will work."....|
00025610  cb 0d 8e b2 10 c8 8e 20  72 6f 6f 6d 6e 6f 25 20  |....... roomno% |
00025620  ca 0d 8e bc 98 20 20 c9  20 31 36 30 20 3a 20 f2  |.....  . 160 : .|
00025630  61 64 64 28 22 54 68 65  20 77 61 6c 6c 20 66 69  |add("The wall fi|
00025640  7a 7a 6c 65 73 20 61 6e  64 20 71 75 69 76 65 72  |zzles and quiver|
00025650  73 20 61 73 20 79 6f 75  20 73 74 65 70 20 74 68  |s as you step th|
00025660  72 6f 75 67 68 20 69 74  2e 22 29 3a 72 6f 6f 6d  |rough it."):room|
00025670  6e 6f 25 3d 31 37 36 3a  e7 20 6d 61 70 79 6e 25  |no%=176:. mapyn%|
00025680  28 72 6f 6f 6d 6e 6f 25  29 3d 30 20 69 24 3d 22  |(roomno%)=0 i$="|
00025690  6c 6f 6f 6b 22 3a f2 6c  6f 6f 6b 3a 6d 61 70 79  |look":.look:mapy|
000256a0  6e 25 28 72 6f 6f 6d 6e  6f 25 29 3d 31 20 8b 20  |n%(roomno%)=1 . |
000256b0  f2 68 61 6c 66 6c 6f 6f  6b 0d 8e c6 57 77 69 6d  |.halflook...Wwim|
000256c0  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
000256d0  64 72 61 77 6d 61 70 3a  74 24 3d 22 59 6f 75 20  |drawmap:t$="You |
000256e0  73 68 61 6b 65 20 6f 66  66 20 74 68 65 20 6d 6f  |shake off the mo|
000256f0  72 74 61 72 20 66 72 6f  6d 20 79 6f 75 72 20 73  |rtar from your s|
00025700  68 6f 75 6c 64 65 72 73  2e 22 3a 6d 76 25 3d 31  |houlders.":mv%=1|
00025710  0d 8e d0 05 cb 0d 8e da  0c f2 61 64 64 28 74 24  |..........add(t$|
00025720  29 0d 8e e4 05 cd 0d 8e  ee 23 e7 20 65 78 69 74  |)........#. exit|
00025730  73 28 72 6f 6f 6d 6e 6f  25 2c 35 29 3c 3e 30 20  |s(roomno%,5)<>0 |
00025740  80 20 6d 76 25 3d 30 20  8c 0d 8e f8 1c 72 6f 6f  |. mv%=0 .....roo|
00025750  6d 6e 6f 25 3d 65 78 69  74 73 28 72 6f 6f 6d 6e  |mno%=exits(roomn|
00025760  6f 25 2c 35 29 0d 8f 02  45 e7 20 6d 61 70 79 6e  |o%,5)...E. mapyn|
00025770  25 28 72 6f 6f 6d 6e 6f  25 29 3d 30 20 69 24 3d  |%(roomno%)=0 i$=|
00025780  22 6c 6f 6f 6b 22 3a f2  6c 6f 6f 6b 3a 6d 61 70  |"look":.look:map|
00025790  79 6e 25 28 72 6f 6f 6d  6e 6f 25 29 3d 31 20 8b  |yn%(roomno%)=1 .|
000257a0  20 f2 68 61 6c 66 6c 6f  6f 6b 0d 8f 0c 1e 77 69  | .halflook....wi|
000257b0  6d 70 25 21 30 3d 6d 61  70 68 61 6e 25 3a f2 72  |mp%!0=maphan%:.r|
000257c0  65 64 72 61 77 6d 61 70  0d 8f 16 05 cd 0d 8f 20  |edrawmap....... |
000257d0  05 e1 0d 8f 2a 04 0d 8f  34 0f dd f2 73 6f 75 74  |....*...4...sout|
000257e0  68 65 61 73 74 0d 8f 3e  1a e7 20 65 78 69 74 73  |heast..>.. exits|
000257f0  28 72 6f 6f 6d 6e 6f 25  2c 36 29 3d 30 20 8c 0d  |(roomno%,6)=0 ..|
00025800  8f 48 0d c8 8e 20 b3 28  37 29 20 ca 0d 8f 52 3d  |.H... .(7) ...R=|
00025810  20 20 c9 20 31 20 3a 20  74 24 3d 22 54 68 65 72  |  . 1 : t$="Ther|
00025820  65 20 69 73 20 6e 6f 20  70 6f 73 73 69 62 6c 65  |e is no possible|
00025830  20 65 78 69 74 20 74 6f  20 74 68 65 20 73 6f 75  | exit to the sou|
00025840  74 68 2d 65 61 73 74 2e  22 0d 8f 5c 3a 20 20 c9  |th-east."..\:  .|
00025850  20 32 20 3a 20 74 24 3d  22 59 6f 75 20 63 61 6e  | 2 : t$="You can|
00025860  20 73 65 65 20 6e 6f 20  77 61 79 20 6f 75 74 20  | see no way out |
00025870  74 6f 20 74 68 65 20 73  6f 75 74 68 2d 65 61 73  |to the south-eas|
00025880  74 2e 22 0d 8f 66 3f 20  20 c9 20 33 20 3a 20 74  |t."..f?  . 3 : t|
00025890  24 3d 22 59 6f 75 20 63  61 6e 20 73 65 65 20 6e  |$="You can see n|
000258a0  6f 20 65 73 63 61 70 65  20 72 6f 75 74 65 20 74  |o escape route t|
000258b0  6f 20 74 68 65 20 73 6f  75 74 68 2d 65 61 73 74  |o the south-east|
000258c0  2e 22 0d 8f 70 3c 20 20  c9 20 34 20 3a 20 74 24  |."..p<  . 4 : t$|
000258d0  3d 22 54 68 65 20 64 69  72 65 63 74 69 6f 6e 20  |="The direction |
000258e0  74 6f 20 74 68 65 20 73  6f 75 74 68 2d 65 61 73  |to the south-eas|
000258f0  74 20 69 73 20 62 6c 6f  63 6b 65 64 2e 22 0d 8f  |t is blocked."..|
00025900  7a 3e 20 20 c9 20 35 20  3a 20 74 24 3d 22 54 68  |z>  . 5 : t$="Th|
00025910  65 72 65 20 69 73 20 6e  6f 20 77 61 79 20 6f 66  |ere is no way of|
00025920  20 6c 65 61 76 69 6e 67  20 74 6f 20 74 68 65 20  | leaving to the |
00025930  73 6f 75 74 68 2d 65 61  73 74 2e 22 0d 8f 84 36  |south-east."...6|
00025940  20 20 c9 20 36 20 3a 20  74 24 3d 22 59 6f 75 20  |  . 6 : t$="You |
00025950  63 61 6e 27 74 20 77 61  6c 6b 20 74 68 72 6f 75  |can't walk throu|
00025960  67 68 20 73 6f 6c 69 64  20 6f 62 6a 65 63 74 73  |gh solid objects|
00025970  2e 22 0d 8f 8e 4c 20 20  c9 20 37 20 3a 20 74 24  |."...L  . 7 : t$|
00025980  3d 22 59 6f 75 27 72 65  20 73 6f 6c 69 64 2c 20  |="You're solid, |
00025990  74 68 65 20 77 61 6c 6c  27 73 20 73 6f 6c 69 64  |the wall's solid|
000259a0  2c 20 49 20 64 6f 6e 27  74 20 74 68 69 6e 6b 20  |, I don't think |
000259b0  69 74 20 77 69 6c 6c 20  77 6f 72 6b 2e 22 0d 8f  |it will work."..|
000259c0  98 05 cb 0d 8f a2 0c f2  61 64 64 28 74 24 29 0d  |........add(t$).|
000259d0  8f ac 05 cd 0d 8f b6 1b  e7 20 65 78 69 74 73 28  |......... exits(|
000259e0  72 6f 6f 6d 6e 6f 25 2c  36 29 3c 3e 30 20 8c 0d  |roomno%,6)<>0 ..|
000259f0  8f c0 1c 72 6f 6f 6d 6e  6f 25 3d 65 78 69 74 73  |...roomno%=exits|
00025a00  28 72 6f 6f 6d 6e 6f 25  2c 36 29 0d 8f ca 45 e7  |(roomno%,6)...E.|
00025a10  20 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  | mapyn%(roomno%)|
00025a20  3d 30 20 69 24 3d 22 6c  6f 6f 6b 22 3a f2 6c 6f  |=0 i$="look":.lo|
00025a30  6f 6b 3a 6d 61 70 79 6e  25 28 72 6f 6f 6d 6e 6f  |ok:mapyn%(roomno|
00025a40  25 29 3d 31 20 8b 20 f2  68 61 6c 66 6c 6f 6f 6b  |%)=1 . .halflook|
00025a50  0d 8f d4 1e 77 69 6d 70  25 21 30 3d 6d 61 70 68  |....wimp%!0=maph|
00025a60  61 6e 25 3a f2 72 65 64  72 61 77 6d 61 70 0d 8f  |an%:.redrawmap..|
00025a70  de 05 cd 0d 8f e8 05 e1  0d 8f f2 04 0d 8f fc 0f  |................|
00025a80  dd f2 73 6f 75 74 68 77  65 73 74 0d 90 06 09 6d  |..southwest....m|
00025a90  76 25 3d 30 0d 90 10 1a  e7 20 65 78 69 74 73 28  |v%=0..... exits(|
00025aa0  72 6f 6f 6d 6e 6f 25 2c  37 29 3d 30 20 8c 0d 90  |roomno%,7)=0 ...|
00025ab0  1a 0d c8 8e 20 b3 28 37  29 20 ca 0d 90 24 3d 20  |.... .(7) ...$= |
00025ac0  20 c9 20 31 20 3a 20 74  24 3d 22 54 68 65 72 65  | . 1 : t$="There|
00025ad0  20 69 73 20 6e 6f 20 70  6f 73 73 69 62 6c 65 20  | is no possible |
00025ae0  65 78 69 74 20 74 6f 20  74 68 65 20 73 6f 75 74  |exit to the sout|
00025af0  68 2d 77 65 73 74 2e 22  0d 90 2e 3a 20 20 c9 20  |h-west."...:  . |
00025b00  32 20 3a 20 74 24 3d 22  59 6f 75 20 63 61 6e 20  |2 : t$="You can |
00025b10  73 65 65 20 6e 6f 20 77  61 79 20 6f 75 74 20 74  |see no way out t|
00025b20  6f 20 74 68 65 20 73 6f  75 74 68 2d 77 65 73 74  |o the south-west|
00025b30  2e 22 0d 90 38 3f 20 20  c9 20 33 20 3a 20 74 24  |."..8?  . 3 : t$|
00025b40  3d 22 59 6f 75 20 63 61  6e 20 73 65 65 20 6e 6f  |="You can see no|
00025b50  20 65 73 63 61 70 65 20  72 6f 75 74 65 20 74 6f  | escape route to|
00025b60  20 74 68 65 20 73 6f 75  74 68 2d 77 65 73 74 2e  | the south-west.|
00025b70  22 0d 90 42 3c 20 20 c9  20 34 20 3a 20 74 24 3d  |"..B<  . 4 : t$=|
00025b80  22 54 68 65 20 64 69 72  65 63 74 69 6f 6e 20 74  |"The direction t|
00025b90  6f 20 74 68 65 20 73 6f  75 74 68 2d 77 65 73 74  |o the south-west|
00025ba0  20 69 73 20 62 6c 6f 63  6b 65 64 2e 22 0d 90 4c  | is blocked."..L|
00025bb0  3e 20 20 c9 20 35 20 3a  20 74 24 3d 22 54 68 65  |>  . 5 : t$="The|
00025bc0  72 65 20 69 73 20 6e 6f  20 77 61 79 20 6f 66 20  |re is no way of |
00025bd0  6c 65 61 76 69 6e 67 20  74 6f 20 74 68 65 20 73  |leaving to the s|
00025be0  6f 75 74 68 2d 77 65 73  74 2e 22 0d 90 56 36 20  |outh-west."..V6 |
00025bf0  20 c9 20 36 20 3a 20 74  24 3d 22 59 6f 75 20 63  | . 6 : t$="You c|
00025c00  61 6e 27 74 20 77 61 6c  6b 20 74 68 72 6f 75 67  |an't walk throug|
00025c10  68 20 73 6f 6c 69 64 20  6f 62 6a 65 63 74 73 2e  |h solid objects.|
00025c20  22 0d 90 60 4c 20 20 c9  20 37 20 3a 20 74 24 3d  |"..`L  . 7 : t$=|
00025c30  22 59 6f 75 27 72 65 20  73 6f 6c 69 64 2c 20 74  |"You're solid, t|
00025c40  68 65 20 77 61 6c 6c 27  73 20 73 6f 6c 69 64 2c  |he wall's solid,|
00025c50  20 49 20 64 6f 6e 27 74  20 74 68 69 6e 6b 20 69  | I don't think i|
00025c60  74 20 77 69 6c 6c 20 77  6f 72 6b 2e 22 0d 90 6a  |t will work."..j|
00025c70  05 cb 0d 90 74 10 c8 8e  20 72 6f 6f 6d 6e 6f 25  |....t... roomno%|
00025c80  20 ca 0d 90 7e 98 20 20  c9 20 31 37 36 20 3a 20  | ...~.  . 176 : |
00025c90  f2 61 64 64 28 22 54 68  65 20 77 61 6c 6c 20 66  |.add("The wall f|
00025ca0  69 7a 7a 6c 65 73 20 61  6e 64 20 71 75 69 76 65  |izzles and quive|
00025cb0  72 73 20 61 73 20 79 6f  75 20 73 74 65 70 20 74  |rs as you step t|
00025cc0  68 72 6f 75 67 68 20 69  74 2e 22 29 3a 72 6f 6f  |hrough it."):roo|
00025cd0  6d 6e 6f 25 3d 31 36 30  3a e7 20 6d 61 70 79 6e  |mno%=160:. mapyn|
00025ce0  25 28 72 6f 6f 6d 6e 6f  25 29 3d 30 20 69 24 3d  |%(roomno%)=0 i$=|
00025cf0  22 6c 6f 6f 6b 22 3a f2  6c 6f 6f 6b 3a 6d 61 70  |"look":.look:map|
00025d00  79 6e 25 28 72 6f 6f 6d  6e 6f 25 29 3d 31 20 8b  |yn%(roomno%)=1 .|
00025d10  20 f2 68 61 6c 66 6c 6f  6f 6b 0d 90 88 57 77 69  | .halflook...Wwi|
00025d20  6d 70 25 21 30 3d 6d 61  70 68 61 6e 25 3a f2 72  |mp%!0=maphan%:.r|
00025d30  65 64 72 61 77 6d 61 70  3a 74 24 3d 22 59 6f 75  |edrawmap:t$="You|
00025d40  20 73 68 61 6b 65 20 6f  66 66 20 74 68 65 20 6d  | shake off the m|
00025d50  6f 72 74 61 72 20 66 72  6f 6d 20 79 6f 75 72 20  |ortar from your |
00025d60  73 68 6f 75 6c 64 65 72  73 2e 22 3a 6d 76 25 3d  |shoulders.":mv%=|
00025d70  31 0d 90 92 98 20 20 c9  20 32 31 30 20 3a 20 f2  |1....  . 210 : .|
00025d80  61 64 64 28 22 54 68 65  20 77 61 6c 6c 20 66 69  |add("The wall fi|
00025d90  7a 7a 6c 65 73 20 61 6e  64 20 71 75 69 76 65 72  |zzles and quiver|
00025da0  73 20 61 73 20 79 6f 75  20 73 74 65 70 20 74 68  |s as you step th|
00025db0  72 6f 75 67 68 20 69 74  2e 22 29 3a 72 6f 6f 6d  |rough it."):room|
00025dc0  6e 6f 25 3d 31 39 31 3a  e7 20 6d 61 70 79 6e 25  |no%=191:. mapyn%|
00025dd0  28 72 6f 6f 6d 6e 6f 25  29 3d 30 20 69 24 3d 22  |(roomno%)=0 i$="|
00025de0  6c 6f 6f 6b 22 3a f2 6c  6f 6f 6b 3a 6d 61 70 79  |look":.look:mapy|
00025df0  6e 25 28 72 6f 6f 6d 6e  6f 25 29 3d 31 20 8b 20  |n%(roomno%)=1 . |
00025e00  f2 68 61 6c 66 6c 6f 6f  6b 0d 90 9c 57 77 69 6d  |.halflook...Wwim|
00025e10  70 25 21 30 3d 6d 61 70  68 61 6e 25 3a f2 72 65  |p%!0=maphan%:.re|
00025e20  64 72 61 77 6d 61 70 3a  74 24 3d 22 59 6f 75 20  |drawmap:t$="You |
00025e30  73 68 61 6b 65 20 6f 66  66 20 74 68 65 20 6d 6f  |shake off the mo|
00025e40  72 74 61 72 20 66 72 6f  6d 20 79 6f 75 72 20 73  |rtar from your s|
00025e50  68 6f 75 6c 64 65 72 73  2e 22 3a 6d 76 25 3d 31  |houlders.":mv%=1|
00025e60  0d 90 a6 05 cb 0d 90 b0  0c f2 61 64 64 28 74 24  |..........add(t$|
00025e70  29 0d 90 ba 05 cd 0d 90  c4 23 e7 20 65 78 69 74  |)........#. exit|
00025e80  73 28 72 6f 6f 6d 6e 6f  25 2c 37 29 3c 3e 30 20  |s(roomno%,7)<>0 |
00025e90  80 20 6d 76 25 3d 30 20  8c 0d 90 ce 1c 72 6f 6f  |. mv%=0 .....roo|
00025ea0  6d 6e 6f 25 3d 65 78 69  74 73 28 72 6f 6f 6d 6e  |mno%=exits(roomn|
00025eb0  6f 25 2c 37 29 0d 90 d8  45 e7 20 6d 61 70 79 6e  |o%,7)...E. mapyn|
00025ec0  25 28 72 6f 6f 6d 6e 6f  25 29 3d 30 20 69 24 3d  |%(roomno%)=0 i$=|
00025ed0  22 6c 6f 6f 6b 22 3a f2  6c 6f 6f 6b 3a 6d 61 70  |"look":.look:map|
00025ee0  79 6e 25 28 72 6f 6f 6d  6e 6f 25 29 3d 31 20 8b  |yn%(roomno%)=1 .|
00025ef0  20 f2 68 61 6c 66 6c 6f  6f 6b 0d 90 e2 1e 77 69  | .halflook....wi|
00025f00  6d 70 25 21 30 3d 6d 61  70 68 61 6e 25 3a f2 72  |mp%!0=maphan%:.r|
00025f10  65 64 72 61 77 6d 61 70  0d 90 ec 05 cd 0d 90 f6  |edrawmap........|
00025f20  05 e1 0d 91 00 04 0d 91  0a 0f dd f2 6e 6f 72 74  |............nort|
00025f30  68 77 65 73 74 0d 91 14  1a e7 20 65 78 69 74 73  |hwest..... exits|
00025f40  28 72 6f 6f 6d 6e 6f 25  2c 38 29 3d 30 20 8c 0d  |(roomno%,8)=0 ..|
00025f50  91 1e 0d c8 8e 20 b3 28  37 29 20 ca 0d 91 28 3d  |..... .(7) ...(=|
00025f60  20 20 c9 20 31 20 3a 20  74 24 3d 22 54 68 65 72  |  . 1 : t$="Ther|
00025f70  65 20 69 73 20 6e 6f 20  70 6f 73 73 69 62 6c 65  |e is no possible|
00025f80  20 65 78 69 74 20 74 6f  20 74 68 65 20 6e 6f 72  | exit to the nor|
00025f90  74 68 2d 77 65 73 74 2e  22 0d 91 32 3a 20 20 c9  |th-west."..2:  .|
00025fa0  20 32 20 3a 20 74 24 3d  22 59 6f 75 20 63 61 6e  | 2 : t$="You can|
00025fb0  20 73 65 65 20 6e 6f 20  77 61 79 20 6f 75 74 20  | see no way out |
00025fc0  74 6f 20 74 68 65 20 6e  6f 72 74 68 2d 77 65 73  |to the north-wes|
00025fd0  74 2e 22 0d 91 3c 3f 20  20 c9 20 33 20 3a 20 74  |t."..<?  . 3 : t|
00025fe0  24 3d 22 59 6f 75 20 63  61 6e 20 73 65 65 20 6e  |$="You can see n|
00025ff0  6f 20 65 73 63 61 70 65  20 72 6f 75 74 65 20 74  |o escape route t|
00026000  6f 20 74 68 65 20 6e 6f  72 74 68 2d 77 65 73 74  |o the north-west|
00026010  2e 22 0d 91 46 3c 20 20  c9 20 34 20 3a 20 74 24  |."..F<  . 4 : t$|
00026020  3d 22 54 68 65 20 64 69  72 65 63 74 69 6f 6e 20  |="The direction |
00026030  74 6f 20 74 68 65 20 6e  6f 72 74 68 2d 77 65 73  |to the north-wes|
00026040  74 20 69 73 20 62 6c 6f  63 6b 65 64 2e 22 0d 91  |t is blocked."..|
00026050  50 3e 20 20 c9 20 35 20  3a 20 74 24 3d 22 54 68  |P>  . 5 : t$="Th|
00026060  65 72 65 20 69 73 20 6e  6f 20 77 61 79 20 6f 66  |ere is no way of|
00026070  20 6c 65 61 76 69 6e 67  20 74 6f 20 74 68 65 20  | leaving to the |
00026080  6e 6f 72 74 68 2d 77 65  73 74 2e 22 0d 91 5a 36  |north-west."..Z6|
00026090  20 20 c9 20 36 20 3a 20  74 24 3d 22 59 6f 75 20  |  . 6 : t$="You |
000260a0  63 61 6e 27 74 20 77 61  6c 6b 20 74 68 72 6f 75  |can't walk throu|
000260b0  67 68 20 73 6f 6c 69 64  20 6f 62 6a 65 63 74 73  |gh solid objects|
000260c0  2e 22 0d 91 64 4c 20 20  c9 20 37 20 3a 20 74 24  |."..dL  . 7 : t$|
000260d0  3d 22 59 6f 75 27 72 65  20 73 6f 6c 69 64 2c 20  |="You're solid, |
000260e0  74 68 65 20 77 61 6c 6c  27 73 20 73 6f 6c 69 64  |the wall's solid|
000260f0  2c 20 49 20 64 6f 6e 27  74 20 74 68 69 6e 6b 20  |, I don't think |
00026100  69 74 20 77 69 6c 6c 20  77 6f 72 6b 2e 22 0d 91  |it will work."..|
00026110  6e 05 cb 0d 91 78 0c f2  61 64 64 28 74 24 29 0d  |n....x..add(t$).|
00026120  91 82 05 cd 0d 91 8c 1b  e7 20 65 78 69 74 73 28  |......... exits(|
00026130  72 6f 6f 6d 6e 6f 25 2c  38 29 3c 3e 30 20 8c 0d  |roomno%,8)<>0 ..|
00026140  91 96 1c 72 6f 6f 6d 6e  6f 25 3d 65 78 69 74 73  |...roomno%=exits|
00026150  28 72 6f 6f 6d 6e 6f 25  2c 38 29 0d 91 a0 45 e7  |(roomno%,8)...E.|
00026160  20 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  | mapyn%(roomno%)|
00026170  3d 30 20 69 24 3d 22 6c  6f 6f 6b 22 3a f2 6c 6f  |=0 i$="look":.lo|
00026180  6f 6b 3a 6d 61 70 79 6e  25 28 72 6f 6f 6d 6e 6f  |ok:mapyn%(roomno|
00026190  25 29 3d 31 20 8b 20 f2  68 61 6c 66 6c 6f 6f 6b  |%)=1 . .halflook|
000261a0  0d 91 aa 1e 77 69 6d 70  25 21 30 3d 6d 61 70 68  |....wimp%!0=maph|
000261b0  61 6e 25 3a f2 72 65 64  72 61 77 6d 61 70 0d 91  |an%:.redrawmap..|
000261c0  b4 05 cd 0d 91 be 05 e1  0d 91 c8 04 0d 91 d2 08  |................|
000261d0  dd f2 75 70 0d 91 dc 1a  e7 20 65 78 69 74 73 28  |..up..... exits(|
000261e0  72 6f 6f 6d 6e 6f 25 2c  39 29 3d 30 20 8c 0d 91  |roomno%,9)=0 ...|
000261f0  e6 0d c8 8e 20 b3 28 38  29 20 ca 0d 91 f0 33 20  |.... .(8) ....3 |
00026200  20 c9 20 31 20 3a 20 74  24 3d 22 54 68 65 72 65  | . 1 : t$="There|
00026210  20 69 73 20 6e 6f 20 70  6f 73 73 69 62 6c 65 20  | is no possible |
00026220  65 78 69 74 20 75 70 77  61 72 64 73 2e 22 0d 91  |exit upwards."..|
00026230  fa 30 20 20 c9 20 32 20  3a 20 74 24 3d 22 59 6f  |.0  . 2 : t$="Yo|
00026240  75 20 63 61 6e 20 73 65  65 20 6e 6f 20 77 61 79  |u can see no way|
00026250  20 6f 75 74 20 75 70 77  61 72 64 73 2e 22 0d 92  | out upwards."..|
00026260  04 37 20 20 c9 20 33 20  3a 20 74 24 3d 22 59 6f  |.7  . 3 : t$="Yo|
00026270  75 20 63 61 6e 20 73 65  65 20 6e 6f 20 65 73 63  |u can see no esc|
00026280  61 70 65 20 72 6f 75 74  65 20 61 62 6f 76 65 20  |ape route above |
00026290  79 6f 75 2e 22 0d 92 0e  32 20 20 c9 20 34 20 3a  |you."...2  . 4 :|
000262a0  20 74 24 3d 22 54 68 65  20 64 69 72 65 63 74 69  | t$="The directi|
000262b0  6f 6e 20 75 70 77 61 72  64 73 20 69 73 20 62 6c  |on upwards is bl|
000262c0  6f 63 6b 65 64 2e 22 0d  92 18 38 20 20 c9 20 35  |ocked."...8  . 5|
000262d0  20 3a 20 74 24 3d 22 54  68 65 72 65 20 69 73 20  | : t$="There is |
000262e0  6e 6f 20 77 61 79 20 6f  66 20 6c 65 61 76 69 6e  |no way of leavin|
000262f0  67 20 62 79 20 67 6f 69  6e 67 20 75 70 2e 22 0d  |g by going up.".|
00026300  92 22 2c 20 20 c9 20 36  20 3a 20 74 24 3d 22 49  |.",  . 6 : t$="I|
00026310  20 68 61 72 64 6c 79 20  74 68 69 6e 6b 20 79 6f  | hardly think yo|
00026320  75 20 63 61 6e 20 66 6c  79 21 22 0d 92 2c 48 20  |u can fly!"..,H |
00026330  20 c9 20 37 20 3a 20 74  24 3d 22 59 6f 75 20 66  | . 7 : t$="You f|
00026340  6c 61 70 20 79 6f 75 72  20 61 72 6d 73 20 66 72  |lap your arms fr|
00026350  61 6e 74 69 63 61 6c 6c  79 20 62 75 74 20 6e 6f  |antically but no|
00026360  20 70 72 6f 67 72 65 73  73 20 69 73 20 6d 61 64  | progress is mad|
00026370  65 2e 22 0d 92 36 37 20  20 c9 20 38 20 3a 20 74  |e."..67  . 8 : t|
00026380  24 3d 22 59 6f 75 20 68  61 76 65 6e 27 74 20 71  |$="You haven't q|
00026390  75 69 74 65 20 6d 61 73  74 65 72 65 64 20 66 6c  |uite mastered fl|
000263a0  69 67 68 74 20 79 65 74  2e 22 0d 92 40 05 cb 0d  |ight yet."..@...|
000263b0  92 4a 10 c8 8e 20 72 6f  6f 6d 6e 6f 25 20 ca 0d  |.J... roomno% ..|
000263c0  92 54 57 20 20 c9 20 31  31 20 3a 20 74 24 3d 22  |.TW  . 11 : t$="|
000263d0  59 6f 75 20 74 72 79 20  61 6e 64 20 73 63 72 61  |You try and scra|
000263e0  6d 62 6c 65 20 75 70 20  74 68 65 20 6d 6f 6e 75  |mble up the monu|
000263f0  6d 65 6e 74 2c 20 62 75  74 20 6a 75 73 74 20 73  |ment, but just s|
00026400  6c 69 64 65 20 62 61 63  6b 20 64 6f 77 6e 20 61  |lide back down a|
00026410  67 61 69 6e 2e 22 0d 92  5e aa 20 20 c9 20 31 33  |gain."..^.  . 13|
00026420  2c 32 37 39 2c 32 38 36  2c 32 38 38 2c 32 38 39  |,279,286,288,289|
00026430  2c 32 39 30 2c 32 39 32  20 3a 20 74 24 3d 22 59  |,290,292 : t$="Y|
00026440  6f 75 20 74 72 79 20 74  6f 20 70 75 6c 6c 20 79  |ou try to pull y|
00026450  6f 75 72 73 65 6c 66 20  75 70 20 6f 6e 65 20 6f  |ourself up one o|
00026460  66 20 74 68 65 20 74 72  65 65 73 2c 20 62 75 74  |f the trees, but|
00026470  20 75 6e 66 6f 72 74 75  6e 61 74 65 6c 79 20 74  | unfortunately t|
00026480  68 65 20 66 65 77 20 62  72 61 6e 63 68 65 73 20  |he few branches |
00026490  61 72 65 20 68 69 67 68  20 75 70 2c 20 73 6f 20  |are high up, so |
000264a0  79 6f 75 20 67 69 76 65  20 75 70 20 61 6e 64 20  |you give up and |
000264b0  63 6f 6d 65 20 62 61 63  6b 20 64 6f 77 6e 2e 22  |come back down."|
000264c0  0d 92 68 74 20 20 c9 20  31 35 20 3a 20 74 24 3d  |..ht  . 15 : t$=|
000264d0  22 59 6f 75 20 65 64 67  65 20 6e 65 61 72 65 72  |"You edge nearer|
000264e0  20 74 68 65 20 67 61 74  65 73 20 73 6f 20 79 6f  | the gates so yo|
000264f0  75 20 63 61 6e 20 63 6c  69 6d 62 20 75 70 20 74  |u can climb up t|
00026500  68 65 6d 2c 20 62 75 74  20 74 68 65 20 67 75 61  |hem, but the gua|
00026510  72 64 20 6c 6f 6f 6b 73  20 6d 65 6e 61 63 69 6e  |rd looks menacin|
00026520  67 20 73 6f 20 79 6f 75  20 62 61 63 6b 20 61 77  |g so you back aw|
00026530  61 79 2e 22 0d 92 72 70  20 20 c9 20 33 39 20 3a  |ay."..rp  . 39 :|
00026540  20 74 24 3d 22 59 6f 75  20 74 72 79 20 74 6f 20  | t$="You try to |
00026550  70 75 6c 6c 20 79 6f 75  72 73 65 6c 66 20 75 70  |pull yourself up|
00026560  20 74 68 65 20 77 69 6c  6c 6f 77 20 74 72 65 65  | the willow tree|
00026570  2c 20 62 75 74 20 75 6e  66 6f 72 74 75 6e 61 74  |, but unfortunat|
00026580  65 6c 79 20 79 6f 75 20  6b 65 65 70 20 6f 6e 20  |ely you keep on |
00026590  73 6c 69 70 70 69 6e 67  20 62 61 63 6b 20 64 6f  |slipping back do|
000265a0  77 6e 2e 22 0d 92 7c 8e  20 20 c9 20 35 37 2c 35  |wn."..|.  . 57,5|
000265b0  36 2c 35 35 2c 35 33 2c  32 34 2c 31 34 2c 31 36  |6,55,53,24,14,16|
000265c0  2c 31 37 2c 31 38 2c 34  36 2c 34 35 2c 34 34 2c  |,17,18,46,45,44,|
000265d0  34 33 2c 34 37 2c 36 35  2c 37 36 2c 37 37 2c 37  |43,47,65,76,77,7|
000265e0  38 2c 37 39 2c 38 30 20  3a 20 74 24 3d 22 59 6f  |8,79,80 : t$="Yo|
000265f0  75 20 74 72 79 20 73 63  72 61 6d 62 6c 69 6e 67  |u try scrambling|
00026600  20 75 70 20 74 68 65 20  66 65 6e 63 65 2c 20 62  | up the fence, b|
00026610  75 74 20 69 74 20 69 73  20 6a 75 73 74 20 74 6f  |ut it is just to|
00026620  6f 20 68 69 67 68 20 74  6f 20 6d 61 6e 61 67 65  |o high to manage|
00026630  2e 22 0d 92 86 05 cb 0d  92 90 0c f2 61 64 64 28  |."..........add(|
00026640  74 24 29 0d 92 9a 05 cd  0d 92 a4 1b e7 20 65 78  |t$).......... ex|
00026650  69 74 73 28 72 6f 6f 6d  6e 6f 25 2c 39 29 3c 3e  |its(roomno%,9)<>|
00026660  30 20 8c 0d 92 ae 40 e7  20 72 6f 6f 6d 6e 6f 25  |0 ....@. roomno%|
00026670  3d 31 34 37 20 f2 61 64  64 28 22 59 6f 75 20 6c  |=147 .add("You l|
00026680  65 61 76 65 20 74 68 65  20 6d 61 7a 65 2e 22 29  |eave the maze.")|
00026690  3a 7a 6f 6e 65 25 3d 32  3a 70 6f 6c 74 69 6d 65  |:zone%=2:poltime|
000266a0  25 3d 91 0d 92 b8 1c 72  6f 6f 6d 6e 6f 25 3d 65  |%=.....roomno%=e|
000266b0  78 69 74 73 28 72 6f 6f  6d 6e 6f 25 2c 39 29 0d  |xits(roomno%,9).|
000266c0  92 c2 45 e7 20 6d 61 70  79 6e 25 28 72 6f 6f 6d  |..E. mapyn%(room|
000266d0  6e 6f 25 29 3d 30 20 69  24 3d 22 6c 6f 6f 6b 22  |no%)=0 i$="look"|
000266e0  3a f2 6c 6f 6f 6b 3a 6d  61 70 79 6e 25 28 72 6f  |:.look:mapyn%(ro|
000266f0  6f 6d 6e 6f 25 29 3d 31  20 8b 20 f2 68 61 6c 66  |omno%)=1 . .half|
00026700  6c 6f 6f 6b 0d 92 cc 1e  77 69 6d 70 25 21 30 3d  |look....wimp%!0=|
00026710  6d 61 70 68 61 6e 25 3a  f2 72 65 64 72 61 77 6d  |maphan%:.redrawm|
00026720  61 70 0d 92 d6 05 cd 0d  92 e0 05 e1 0d 92 ea 04  |ap..............|
00026730  0d 92 f4 0a dd f2 64 6f  77 6e 0d 92 fe 1b e7 20  |......down..... |
00026740  65 78 69 74 73 28 72 6f  6f 6d 6e 6f 25 2c 31 30  |exits(roomno%,10|
00026750  29 3d 30 20 8c 0d 93 08  0d c8 8e 20 b3 28 38 29  |)=0 ....... .(8)|
00026760  20 ca 0d 93 12 35 20 20  c9 20 31 20 3a 20 74 24  | ....5  . 1 : t$|
00026770  3d 22 54 68 65 72 65 20  69 73 20 6e 6f 20 70 6f  |="There is no po|
00026780  73 73 69 62 6c 65 20 65  78 69 74 20 64 6f 77 6e  |ssible exit down|
00026790  77 61 72 64 73 2e 22 0d  93 1c 36 20 20 c9 20 32  |wards."...6  . 2|
000267a0  20 3a 20 74 24 3d 22 59  6f 75 20 63 61 6e 20 73  | : t$="You can s|
000267b0  65 65 20 6e 6f 20 77 61  79 20 6f 75 74 20 62 79  |ee no way out by|
000267c0  20 67 6f 69 6e 67 20 64  6f 77 6e 2e 22 0d 93 26  | going down."..&|
000267d0  37 20 20 c9 20 33 20 3a  20 74 24 3d 22 59 6f 75  |7  . 3 : t$="You|
000267e0  20 63 61 6e 20 73 65 65  20 6e 6f 20 65 73 63 61  | can see no esca|
000267f0  70 65 20 72 6f 75 74 65  20 64 6f 77 6e 77 61 72  |pe route downwar|
00026800  64 73 2e 22 0d 93 30 2f  20 20 c9 20 34 20 3a 20  |ds."..0/  . 4 : |
00026810  74 24 3d 22 54 68 65 20  64 69 72 65 63 74 69 6f  |t$="The directio|
00026820  6e 20 64 6f 77 6e 20 69  73 20 62 6c 6f 63 6b 65  |n down is blocke|
00026830  64 2e 22 0d 93 3a 3a 20  20 c9 20 35 20 3a 20 74  |d."..::  . 5 : t|
00026840  24 3d 22 54 68 65 72 65  20 69 73 20 6e 6f 20 77  |$="There is no w|
00026850  61 79 20 6f 66 20 6c 65  61 76 69 6e 67 20 62 79  |ay of leaving by|
00026860  20 67 6f 69 6e 67 20 64  6f 77 6e 2e 22 0d 93 44  | going down."..D|
00026870  6f 20 20 c9 20 36 20 3a  20 74 24 3d 22 59 6f 75  |o  . 6 : t$="You|
00026880  20 73 63 72 61 70 65 20  61 74 20 74 68 65 20 66  | scrape at the f|
00026890  6c 6f 6f 72 20 77 69 74  68 20 79 6f 75 72 20 66  |loor with your f|
000268a0  69 6e 67 65 72 73 2c 20  62 75 74 20 79 6f 75 20  |ingers, but you |
000268b0  64 65 63 69 64 65 20 61  67 61 69 6e 73 74 20 69  |decide against i|
000268c0  74 2c 20 69 74 20 77 69  6c 6c 20 72 75 69 6e 20  |t, it will ruin |
000268d0  79 6f 75 72 20 6e 61 69  6c 73 2e 22 0d 93 4e 53  |your nails."..NS|
000268e0  20 20 c9 20 37 20 3a 20  74 24 3d 22 4c 61 73 74  |  . 7 : t$="Last|
000268f0  20 74 69 6d 65 20 49 20  63 68 65 63 6b 65 64 2c  | time I checked,|
00026900  20 74 68 65 20 67 72 6f  75 6e 64 20 77 61 73 20  | the ground was |
00026910  73 6f 6c 69 64 20 61 6e  64 20 49 20 74 68 69 6e  |solid and I thin|
00026920  6b 20 69 74 20 73 74 69  6c 6c 20 69 73 2e 22 0d  |k it still is.".|
00026930  93 58 57 20 20 c9 20 38  20 3a 20 74 24 3d 22 4e  |.XW  . 8 : t$="N|
00026940  6f 20 6d 61 74 74 65 72  20 68 6f 77 20 68 61 72  |o matter how har|
00026950  64 20 79 6f 75 20 77 69  73 68 2c 20 74 68 65 20  |d you wish, the |
00026960  67 72 6f 75 6e 64 20 77  6f 6e 27 74 20 6f 70 65  |ground won't ope|
00026970  6e 20 75 70 20 61 6e 64  20 73 77 61 6c 6c 6f 77  |n up and swallow|
00026980  20 79 6f 75 2e 22 0d 93  62 05 cb 0d 93 6c d2 e7  | you."..b....l..|
00026990  20 72 6f 6f 6d 6e 6f 25  3d 33 34 20 74 24 3d 22  | roomno%=34 t$="|
000269a0  59 6f 75 20 70 61 74 69  65 6e 74 6c 79 20 73 69  |You patiently si|
000269b0  74 20 61 74 20 74 68 65  20 62 6f 74 74 6f 6d 20  |t at the bottom |
000269c0  6f 66 20 74 68 65 20 70  6f 6e 64 20 66 6f 72 20  |of the pond for |
000269d0  61 20 63 6f 75 70 6c 65  20 6f 66 20 6d 69 6e 75  |a couple of minu|
000269e0  74 65 73 2c 20 62 75 74  2c 20 62 65 69 6e 67 20  |tes, but, being |
000269f0  74 68 65 20 62 72 69 67  68 74 20 6c 61 64 20 74  |the bright lad t|
00026a00  68 61 74 20 79 6f 75 20  61 72 65 2c 20 72 65 61  |hat you are, rea|
00026a10  6c 69 73 65 20 74 68 61  74 20 74 68 65 72 65 20  |lise that there |
00026a20  69 73 20 61 20 6c 61 63  6b 20 6f 66 20 6f 78 79  |is a lack of oxy|
00026a30  67 65 6e 2e 20 59 6f 75  20 72 65 74 75 72 6e 20  |gen. You return |
00026a40  74 6f 20 74 68 65 20 73  75 72 66 61 63 65 20 61  |to the surface a|
00026a50  20 6c 69 74 74 6c 65 20  77 65 74 2e 22 0d 93 76  | little wet."..v|
00026a60  0c f2 61 64 64 28 74 24  29 0d 93 80 05 cd 0d 93  |..add(t$).......|
00026a70  8a 1c e7 20 65 78 69 74  73 28 72 6f 6f 6d 6e 6f  |... exits(roomno|
00026a80  25 2c 31 30 29 3c 3e 30  20 8c 0d 93 94 42 e7 20  |%,10)<>0 ....B. |
00026a90  72 6f 6f 6d 6e 6f 25 3d  31 32 36 20 f2 61 64 64  |roomno%=126 .add|
00026aa0  28 22 59 6f 75 20 65 6e  74 65 72 20 74 68 65 20  |("You enter the |
00026ab0  6d 61 7a 65 2e 2e 2e 22  29 3a 7a 6f 6e 65 25 3d  |maze..."):zone%=|
00026ac0  33 3a 70 6f 6c 74 69 6d  65 25 3d 91 0d 93 9e 1d  |3:poltime%=.....|
00026ad0  72 6f 6f 6d 6e 6f 25 3d  65 78 69 74 73 28 72 6f  |roomno%=exits(ro|
00026ae0  6f 6d 6e 6f 25 2c 31 30  29 0d 93 a8 45 e7 20 6d  |omno%,10)...E. m|
00026af0  61 70 79 6e 25 28 72 6f  6f 6d 6e 6f 25 29 3d 30  |apyn%(roomno%)=0|
00026b00  20 69 24 3d 22 6c 6f 6f  6b 22 3a f2 6c 6f 6f 6b  | i$="look":.look|
00026b10  3a 6d 61 70 79 6e 25 28  72 6f 6f 6d 6e 6f 25 29  |:mapyn%(roomno%)|
00026b20  3d 31 20 8b 20 f2 68 61  6c 66 6c 6f 6f 6b 0d 93  |=1 . .halflook..|
00026b30  b2 1e 77 69 6d 70 25 21  30 3d 6d 61 70 68 61 6e  |..wimp%!0=maphan|
00026b40  25 3a f2 72 65 64 72 61  77 6d 61 70 0d 93 bc 05  |%:.redrawmap....|
00026b50  cd 0d 93 c6 05 e1 0d 93  d0 04 0d 93 da 08 dd f2  |................|
00026b60  69 6d 0d 93 e4 18 77 68  61 74 24 3d c1 69 24 2c  |im....what$=.i$,|
00026b70  34 2c a9 28 69 24 29 2d  33 29 0d 93 ee 0e f2 73  |4,.(i$)-3).....s|
00026b80  70 65 63 69 66 69 63 31  0d 93 f8 0c f2 61 64 64  |pecific1.....add|
00026b90  28 74 24 29 0d 94 02 05  e1 0d 94 0c 04 0d 94 16  |(t$)............|
00026ba0  0f dd f2 73 70 65 63 69  66 69 63 31 0d 94 20 0d  |...specific1.. .|
00026bb0  c8 8e 20 b3 28 35 29 20  ca 0d 94 2a 3d 20 20 c9  |.. .(5) ...*=  .|
00026bc0  20 31 20 3a 20 74 24 3d  22 41 6e 64 20 77 68 79  | 1 : t$="And why|
00026bd0  20 64 6f 20 79 6f 75 20  74 68 69 6e 6b 20 74 68  | do you think th|
00026be0  61 74 20 79 6f 75 20 61  72 65 20 22 2b 77 68 61  |at you are "+wha|
00026bf0  74 24 2b 22 3f 22 0d 94  34 45 20 20 c9 20 32 20  |t$+"?"..4E  . 2 |
00026c00  3a 20 74 24 3d 22 54 68  61 74 27 73 20 72 65 61  |: t$="That's rea|
00026c10  6c 6c 79 20 69 6e 74 65  72 65 73 74 69 6e 67 2c  |lly interesting,|
00026c20  20 61 72 65 20 79 6f 75  20 72 65 61 6c 6c 79 20  | are you really |
00026c30  22 2b 77 68 61 74 24 2b  22 3f 22 0d 94 3e 36 20  |"+what$+"?"..>6 |
00026c40  20 c9 20 33 20 3a 20 74  24 3d 22 41 6e 64 20 68  | . 3 : t$="And h|
00026c50  6f 77 20 6c 6f 6e 67 20  68 61 76 65 20 79 6f 75  |ow long have you|
00026c60  20 62 65 65 6e 20 22 2b  77 68 61 74 24 2b 22 3f  | been "+what$+"?|
00026c70  22 0d 94 48 31 20 20 c9  20 34 20 3a 20 74 24 3d  |"..H1  . 4 : t$=|
00026c80  22 41 6e 64 20 64 6f 20  79 6f 75 20 6c 69 6b 65  |"And do you like|
00026c90  20 62 65 69 6e 67 20 22  2b 77 68 61 74 24 2b 22  | being "+what$+"|
00026ca0  3f 22 0d 94 52 41 20 20  c9 20 35 20 3a 20 74 24  |?"..RA  . 5 : t$|
00026cb0  3d 22 49 27 6d 20 73 6f  20 67 6c 61 64 20 74 68  |="I'm so glad th|
00026cc0  61 74 20 79 6f 75 27 72  65 20 22 2b 77 68 61 74  |at you're "+what|
00026cd0  24 2b 22 2e 20 54 65 6c  6c 20 6d 65 20 6d 6f 72  |$+". Tell me mor|
00026ce0  65 2e 22 0d 94 5c 05 cb  0d 94 66 40 e7 20 77 68  |e."..\....f@. wh|
00026cf0  61 74 24 3d 22 67 61 79  22 20 84 20 77 68 61 74  |at$="gay" . what|
00026d00  24 3d 22 71 75 65 65 72  22 20 84 20 77 68 61 74  |$="queer" . what|
00026d10  24 3d 22 68 6f 6d 6f 73  65 78 75 61 6c 22 20 c8  |$="homosexual" .|
00026d20  8e 20 b3 28 33 29 20 ca  0d 94 70 30 20 20 c9 20  |. .(3) ...p0  . |
00026d30  31 20 3a 20 74 24 3d 22  57 65 6c 6c 20 64 6f 6e  |1 : t$="Well don|
00026d40  27 74 20 6c 6f 6f 6b 20  61 74 20 6d 65 2c 20 49  |'t look at me, I|
00026d50  27 6d 20 6e 6f 74 2e 22  0d 94 7a 49 20 20 c9 20  |'m not."..zI  . |
00026d60  32 20 3a 20 74 24 3d 22  49 74 27 73 20 6e 6f 74  |2 : t$="It's not|
00026d70  20 74 68 65 20 74 69 6d  65 20 6e 6f 72 20 74 68  | the time nor th|
00026d80  65 20 70 6c 61 63 65 20  74 6f 20 64 69 73 63 75  |e place to discu|
00026d90  73 73 20 74 68 6f 73 65  20 74 68 69 6e 67 73 2e  |ss those things.|
00026da0  22 0d 94 84 26 20 20 c9  20 33 20 3a 20 74 24 3d  |"...&  . 3 : t$=|
00026db0  22 4f 6f 68 2c 20 68 75  73 68 20 79 6f 75 72 20  |"Ooh, hush your |
00026dc0  6d 6f 75 74 68 2e 22 0d  94 8e 05 cb 0d 94 98 6a  |mouth."........j|
00026dd0  e7 20 77 68 61 74 24 3d  22 68 61 70 70 79 22 20  |. what$="happy" |
00026de0  84 20 77 68 61 74 24 3d  22 67 6c 61 64 22 20 84  |. what$="glad" .|
00026df0  20 77 68 61 74 24 3d 22  63 68 65 65 72 66 75 6c  | what$="cheerful|
00026e00  22 20 84 20 77 68 61 74  24 3d 22 6f 76 65 72 20  |" . what$="over |
00026e10  74 68 65 20 6d 6f 6f 6e  22 20 84 20 77 68 61 74  |the moon" . what|
00026e20  24 3d 22 74 68 72 69 6c  6c 65 64 22 20 c8 8e 20  |$="thrilled" .. |
00026e30  b3 28 33 29 20 ca 0d 94  a2 38 20 20 c9 20 31 20  |.(3) ....8  . 1 |
00026e40  3a 20 74 24 3d 22 49 74  27 73 20 6e 69 63 65 20  |: t$="It's nice |
00026e50  74 6f 20 6b 6e 6f 77 20  74 68 61 74 20 73 6f 6d  |to know that som|
00026e60  65 6f 6e 65 27 73 20 68  61 70 70 79 2e 22 0d 94  |eone's happy."..|
00026e70  ac 44 20 20 c9 20 32 20  3a 20 74 24 3d 22 49 74  |.D  . 2 : t$="It|
00026e80  20 63 68 65 65 72 73 20  6d 65 20 75 70 20 6b 6e  | cheers me up kn|
00026e90  6f 77 69 6e 67 20 74 68  61 74 20 79 6f 75 20 61  |owing that you a|
00026ea0  72 65 20 22 2b 77 68 61  74 24 2b 22 20 74 6f 6f  |re "+what$+" too|
00026eb0  2e 22 0d 94 b6 33 20 20  c9 20 33 20 3a 20 74 24  |."...3  . 3 : t$|
00026ec0  3d 22 41 6e 64 20 77 68  61 74 20 68 61 73 20 6d  |="And what has m|
00026ed0  61 64 65 20 79 6f 75 20  73 6f 20 63 68 65 65 72  |ade you so cheer|
00026ee0  66 75 6c 3f 22 0d 94 c0  05 cb 0d 94 ca 73 e7 20  |ful?"........s. |
00026ef0  77 68 61 74 24 3d 22 73  61 64 22 20 84 20 77 68  |what$="sad" . wh|
00026f00  61 74 24 3d 22 75 70 73  65 74 22 20 84 20 77 68  |at$="upset" . wh|
00026f10  61 74 24 3d 22 74 65 61  72 66 75 6c 22 20 84 20  |at$="tearful" . |
00026f20  77 68 61 74 24 3d 22 63  72 79 69 6e 67 22 20 84  |what$="crying" .|
00026f30  20 77 68 61 74 24 3d 22  64 65 70 72 65 73 73 65  | what$="depresse|
00026f40  64 22 20 84 20 77 68 61  74 24 3d 22 66 65 64 20  |d" . what$="fed |
00026f50  75 70 22 20 c8 8e 20 b3  28 34 29 20 ca 0d 94 d4  |up" .. .(4) ....|
00026f60  2b 20 20 c9 20 31 20 3a  20 74 24 3d 22 44 6f 6e  |+  . 1 : t$="Don|
00026f70  27 74 20 62 65 20 73 6f  20 73 61 64 2c 20 63 68  |'t be so sad, ch|
00026f80  65 65 72 20 75 70 21 22  0d 94 de 2c 20 20 c9 20  |eer up!"...,  . |
00026f90  32 20 3a 20 74 24 3d 22  4c 69 66 65 27 73 20 6e  |2 : t$="Life's n|
00026fa0  6f 74 20 74 68 61 74 20  62 61 64 20 72 65 61 6c  |ot that bad real|
00026fb0  6c 79 2e 22 0d 94 e8 33  20 20 c9 20 33 20 3a 20  |ly."...3  . 3 : |
00026fc0  74 24 3d 22 54 68 65 72  65 27 73 20 6e 6f 74 68  |t$="There's noth|
00026fd0  69 6e 67 20 74 6f 20 62  65 20 75 70 73 65 74 20  |ing to be upset |
00026fe0  61 62 6f 75 74 2e 22 0d  94 f2 3e 20 20 c9 20 34  |about."...>  . 4|
00026ff0  20 3a 20 74 24 3d 22 54  72 79 20 73 6d 69 6c 69  | : t$="Try smili|
00027000  6e 67 20 61 6e 64 20 65  76 65 72 79 74 68 69 6e  |ng and everythin|
00027010  67 20 77 69 6c 6c 20 62  65 20 61 6c 6c 20 72 69  |g will be all ri|
00027020  67 68 74 2e 22 0d 94 fc  05 cb 0d 95 06 7e e7 20  |ght."........~. |
00027030  77 68 61 74 24 3d 22 61  6e 67 72 79 22 20 84 20  |what$="angry" . |
00027040  77 68 61 74 24 3d 22 61  6e 6e 6f 79 65 64 22 20  |what$="annoyed" |
00027050  84 20 77 68 61 74 24 3d  22 73 74 72 6f 70 70 79  |. what$="stroppy|
00027060  22 20 84 20 77 68 61 74  24 3d 22 62 61 64 20 74  |" . what$="bad t|
00027070  65 6d 70 65 72 65 64 22  20 84 20 77 68 61 74 24  |empered" . what$|
00027080  3d 22 62 61 64 74 65 6d  70 65 72 65 64 22 20 84  |="badtempered" .|
00027090  20 77 68 61 74 24 3d 22  6d 6f 6f 64 79 22 20 c8  | what$="moody" .|
000270a0  8e 20 b3 28 33 29 20 ca  0d 95 10 2a 20 20 c9 20  |. .(3) ....*  . |
000270b0  31 20 3a 20 74 24 3d 22  57 68 61 74 27 73 20 70  |1 : t$="What's p|
000270c0  75 74 20 79 6f 75 20 69  6e 20 61 20 6d 6f 6f 64  |ut you in a mood|
000270d0  3f 22 0d 95 1a 2d 20 20  c9 20 32 20 3a 20 74 24  |?"...-  . 2 : t$|
000270e0  3d 22 57 68 79 20 61 72  65 20 79 6f 75 20 73 6f  |="Why are you so|
000270f0  20 62 61 64 2d 74 65 6d  70 65 72 65 64 3f 22 0d  | bad-tempered?".|
00027100  95 24 40 20 20 c9 20 33  20 3a 20 74 24 3d 22 49  |.$@  . 3 : t$="I|
00027110  20 73 75 67 67 65 73 74  20 74 68 61 74 20 79 6f  | suggest that yo|
00027120  75 20 67 65 74 20 69 6e  74 6f 20 61 20 62 65 74  |u get into a bet|
00027130  74 65 72 20 6d 6f 6f 64  20 74 68 65 6e 2e 22 0d  |ter mood then.".|
00027140  95 2e 05 cb 0d 95 38 da  e7 20 77 68 61 74 24 3d  |......8.. what$=|
00027150  22 73 65 78 79 22 20 84  20 77 68 61 74 24 3d 22  |"sexy" . what$="|
00027160  67 6f 72 67 65 6f 75 73  22 20 84 20 77 68 61 74  |gorgeous" . what|
00027170  24 3d 22 6c 6f 76 65 6c  79 22 20 84 20 77 68 61  |$="lovely" . wha|
00027180  74 24 3d 22 68 61 6e 64  73 6f 6d 65 22 20 84 20  |t$="handsome" . |
00027190  77 68 61 74 24 3d 22 70  72 65 74 74 79 22 20 84  |what$="pretty" .|
000271a0  20 77 68 61 74 24 3d 22  62 65 61 75 74 69 66 75  | what$="beautifu|
000271b0  6c 22 20 84 20 77 68 61  74 24 3d 22 63 6c 65 76  |l" . what$="clev|
000271c0  65 72 22 20 84 20 77 68  61 74 24 3d 22 77 6f 6e  |er" . what$="won|
000271d0  64 65 72 66 75 6c 22 20  84 20 77 68 61 74 24 3d  |derful" . what$=|
000271e0  22 69 6e 74 65 6c 6c 69  67 65 6e 74 22 20 84 20  |"intelligent" . |
000271f0  77 68 61 74 24 3d 22 62  72 69 6c 6c 69 61 6e 74  |what$="brilliant|
00027200  22 20 84 20 77 68 61 74  24 3d 22 61 20 67 65 6e  |" . what$="a gen|
00027210  69 75 73 22 20 c8 8e 20  b3 28 34 29 20 ca 0d 95  |ius" .. .(4) ...|
00027220  42 35 20 20 c9 20 31 20  3a 20 74 24 3d 22 59 6f  |B5  . 1 : t$="Yo|
00027230  75 27 72 65 20 22 2b 77  68 61 74 24 2b 22 3f 20  |u're "+what$+"? |
00027240  59 6f 75 20 73 68 6f 75  6c 64 20 73 65 65 20 6d  |You should see m|
00027250  65 21 22 0d 95 4c 2d 20  20 c9 20 32 20 3a 20 74  |e!"..L-  . 2 : t|
00027260  24 3d 22 4d 79 20 67 6f  6f 64 6e 65 73 73 2c 20  |$="My goodness, |
00027270  77 68 61 74 20 61 20 62  6f 61 73 74 65 72 2e 22  |what a boaster."|
00027280  0d 95 56 39 20 20 c9 20  33 20 3a 20 74 24 3d 22  |..V9  . 3 : t$="|
00027290  53 74 6f 70 20 66 6c 61  74 74 65 72 69 6e 67 20  |Stop flattering |
000272a0  79 6f 75 72 73 65 6c 66  20 66 6f 72 20 6f 6e 65  |yourself for one|
000272b0  20 6d 6f 6d 65 6e 74 2e  22 0d 95 60 3d 20 20 c9  | moment."..`=  .|
000272c0  20 34 20 3a 20 74 24 3d  22 53 6f 72 72 79 20 74  | 4 : t$="Sorry t|
000272d0  6f 20 64 61 6d 61 67 65  20 79 6f 75 72 20 65 67  |o damage your eg|
000272e0  6f 2c 20 62 75 74 20 79  6f 75 20 61 72 65 20 77  |o, but you are w|
000272f0  72 6f 6e 67 2e 22 0d 95  6a 05 cb 0d 95 74 b2 e7  |rong."..j....t..|
00027300  20 77 68 61 74 24 3d 22  73 74 75 70 69 64 22 20  | what$="stupid" |
00027310  84 20 77 68 61 74 24 3d  22 74 68 69 63 6b 22 20  |. what$="thick" |
00027320  84 20 77 68 61 74 24 3d  22 66 61 74 22 20 84 20  |. what$="fat" . |
00027330  77 68 61 74 24 3d 22 61  6e 20 69 64 69 6f 74 22  |what$="an idiot"|
00027340  20 84 20 77 68 61 74 24  3d 22 69 64 69 6f 74 69  | . what$="idioti|
00027350  63 22 20 84 20 77 68 61  74 24 3d 22 73 65 6e 69  |c" . what$="seni|
00027360  6c 65 22 20 84 20 77 68  61 74 24 3d 22 63 72 61  |le" . what$="cra|
00027370  7a 79 22 20 84 20 77 68  61 74 24 3d 22 6d 61 64  |zy" . what$="mad|
00027380  22 20 84 20 77 68 61 74  24 3d 22 73 74 72 61 6e  |" . what$="stran|
00027390  67 65 22 20 84 20 77 68  61 74 24 3d 22 77 65 69  |ge" . what$="wei|
000273a0  72 64 22 20 c8 8e 20 b3  28 35 29 20 ca 0d 95 7e  |rd" .. .(5) ...~|
000273b0  29 20 20 c9 20 31 20 3a  20 74 24 3d 22 44 6f 6e  |)  . 1 : t$="Don|
000273c0  27 74 20 70 75 74 20 79  6f 75 72 73 65 6c 66 20  |'t put yourself |
000273d0  64 6f 77 6e 2e 22 0d 95  88 23 20 20 c9 20 32 20  |down."...#  . 2 |
000273e0  3a 20 74 24 3d 22 54 6f  6f 20 72 69 67 68 74 20  |: t$="Too right |
000273f0  79 6f 75 20 61 72 65 2e  22 0d 95 92 2e 20 20 c9  |you are."....  .|
00027400  20 33 20 3a 20 74 24 3d  22 44 6f 6e 27 74 20 62  | 3 : t$="Don't b|
00027410  65 20 73 6f 20 68 61 72  64 20 6f 6e 20 79 6f 75  |e so hard on you|
00027420  72 73 65 6c 66 2e 22 0d  95 9c 32 20 20 c9 20 34  |rself."...2  . 4|
00027430  20 3a 20 74 24 3d 22 54  61 6b 65 20 61 20 70 6f  | : t$="Take a po|
00027440  73 69 74 69 76 65 20 6c  6f 6f 6b 20 61 74 20 79  |sitive look at y|
00027450  6f 75 72 73 65 6c 66 2e  22 0d 95 a6 47 20 20 c9  |ourself."...G  .|
00027460  20 35 20 3a 20 74 24 3d  22 49 27 6d 20 73 6f 72  | 5 : t$="I'm sor|
00027470  72 79 2c 20 49 20 72 65  66 75 73 65 20 74 6f 20  |ry, I refuse to |
00027480  62 65 6c 69 65 76 65 20  74 68 61 74 20 79 6f 75  |believe that you|
00027490  20 61 72 65 20 22 2b 77  68 61 74 24 2b 22 2e 22  | are "+what$+"."|
000274a0  0d 95 b0 05 cb 0d 95 ba  05 e1 0d 95 c4 04 0d 95  |................|
000274b0  ce 09 dd f2 69 61 6d 0d  95 d8 18 77 68 61 74 24  |....iam....what$|
000274c0  3d c1 69 24 2c 36 2c a9  28 69 24 29 2d 35 29 0d  |=.i$,6,.(i$)-5).|
000274d0  95 e2 0e f2 73 70 65 63  69 66 69 63 31 0d 95 ec  |....specific1...|
000274e0  0c f2 61 64 64 28 74 24  29 0d 95 f6 05 e1 0d 96  |..add(t$).......|
000274f0  00 04 0d 96 0a 0a dd f2  69 74 69 73 0d 96 14 18  |........itis....|
00027500  77 68 61 74 24 3d c1 69  24 2c 37 2c a9 28 69 24  |what$=.i$,7,.(i$|
00027510  29 2d 36 29 0d 96 1e 0d  c8 8e 20 b3 28 33 29 20  |)-6)...... .(3) |
00027520  ca 0d 96 28 3b 20 20 c9  20 31 20 3a 20 74 24 3d  |...(;  . 1 : t$=|
00027530  22 41 6e 64 20 77 68 79  20 64 6f 20 79 6f 75 20  |"And why do you |
00027540  74 68 69 6e 6b 20 74 68  61 74 20 69 74 20 69 73  |think that it is|
00027550  20 22 2b 77 68 61 74 24  2b 22 3f 22 0d 96 32 43  | "+what$+"?"..2C|
00027560  20 20 c9 20 32 20 3a 20  74 24 3d 22 54 68 61 74  |  . 2 : t$="That|
00027570  27 73 20 72 65 61 6c 6c  79 20 69 6e 74 65 72 65  |'s really intere|
00027580  73 74 69 6e 67 2c 20 69  73 20 69 74 20 72 65 61  |sting, is it rea|
00027590  6c 6c 79 20 22 2b 77 68  61 74 24 2b 22 3f 22 0d  |lly "+what$+"?".|
000275a0  96 3c 34 20 20 c9 20 33  20 3a 20 74 24 3d 22 41  |.<4  . 3 : t$="A|
000275b0  6e 64 20 68 6f 77 20 6c  6f 6e 67 20 68 61 73 20  |nd how long has |
000275c0  69 74 20 62 65 65 6e 20  22 2b 77 68 61 74 24 2b  |it been "+what$+|
000275d0  22 3f 22 0d 96 46 05 cb  0d 96 50 0c f2 61 64 64  |"?"..F....P..add|
000275e0  28 74 24 29 0d 96 5a 05  e1 0d 96 64 04 0d 96 6e  |(t$)..Z....d...n|
000275f0  09 dd f2 69 74 73 0d 96  78 18 77 68 61 74 24 3d  |...its..x.what$=|
00027600  c1 69 24 2c 35 2c a9 28  69 24 29 2d 34 29 0d 96  |.i$,5,.(i$)-4)..|
00027610  82 0d c8 8e 20 b3 28 33  29 20 ca 0d 96 8c 3a 20  |.... .(3) ....: |
00027620  20 c9 20 31 20 3a 20 74  24 3d 22 41 6e 64 20 77  | . 1 : t$="And w|
00027630  68 79 20 64 6f 20 79 6f  75 20 74 68 69 6e 6b 20  |hy do you think |
00027640  74 68 61 74 20 69 74 27  73 20 22 2b 77 68 61 74  |that it's "+what|
00027650  24 2b 22 3f 22 0d 96 96  43 20 20 c9 20 32 20 3a  |$+"?"...C  . 2 :|
00027660  20 74 24 3d 22 54 68 61  74 27 73 20 72 65 61 6c  | t$="That's real|
00027670  6c 79 20 69 6e 74 65 72  65 73 74 69 6e 67 2c 20  |ly interesting, |
00027680  69 73 20 69 74 20 72 65  61 6c 6c 79 20 22 2b 77  |is it really "+w|
00027690  68 61 74 24 2b 22 3f 22  0d 96 a0 34 20 20 c9 20  |hat$+"?"...4  . |
000276a0  33 20 3a 20 74 24 3d 22  41 6e 64 20 68 6f 77 20  |3 : t$="And how |
000276b0  6c 6f 6e 67 20 68 61 73  20 69 74 20 62 65 65 6e  |long has it been|
000276c0  20 22 2b 77 68 61 74 24  2b 22 3f 22 0d 96 aa 05  | "+what$+"?"....|
000276d0  cb 0d 96 b4 0c f2 61 64  64 28 74 24 29 0d 96 be  |......add(t$)...|
000276e0  05 e1 0d 96 c8 04 0d 96  d2 0b dd f2 69 74 77 61  |............itwa|
000276f0  73 0d 96 dc 18 77 68 61  74 24 3d c1 69 24 2c 38  |s....what$=.i$,8|
00027700  2c a9 28 69 24 29 2d 37  29 0d 96 e6 0d c8 8e 20  |,.(i$)-7)...... |
00027710  b3 28 34 29 20 ca 0d 96  f0 3c 20 20 c9 20 31 20  |.(4) ....<  . 1 |
00027720  3a 20 74 24 3d 22 41 6e  64 20 77 68 79 20 64 6f  |: t$="And why do|
00027730  20 79 6f 75 20 74 68 69  6e 6b 20 74 68 61 74 20  | you think that |
00027740  69 74 20 77 61 73 20 22  2b 77 68 61 74 24 2b 22  |it was "+what$+"|
00027750  3f 22 0d 96 fa 32 20 20  c9 20 32 20 3a 20 74 24  |?"...2  . 2 : t$|
00027760  3d 22 49 73 20 69 74 20  74 72 75 65 20 74 68 61  |="Is it true tha|
00027770  74 20 69 74 20 77 61 73  20 22 2b 77 68 61 74 24  |t it was "+what$|
00027780  2b 22 3f 22 0d 97 04 2f  20 20 c9 20 33 20 3a 20  |+"?".../  . 3 : |
00027790  74 24 3d 22 57 68 65 6e  20 65 78 61 63 74 6c 79  |t$="When exactly|
000277a0  20 77 61 73 20 69 74 20  22 2b 77 68 61 74 24 2b  | was it "+what$+|
000277b0  22 3f 22 0d 97 0e 35 20  20 c9 20 34 20 3a 20 74  |"?"...5  . 4 : t|
000277c0  24 3d 22 41 72 65 20 79  6f 75 20 68 61 70 70 79  |$="Are you happy|
000277d0  20 74 68 61 74 20 69 74  20 77 61 73 20 22 2b 77  | that it was "+w|
000277e0  68 61 74 24 2b 22 3f 22  0d 97 18 05 cb 0d 97 22  |hat$+"?"......."|
000277f0  0c f2 61 64 64 28 74 24  29 0d 97 2c 05 e1 0d 97  |..add(t$)..,....|
00027800  36 04 0d 97 40 0e dd f2  6c 69 6e 67 75 69 73 74  |6...@...linguist|
00027810  0d 97 4a 0d c8 8e 20 b3  28 36 29 20 ca 0d 97 54  |..J... .(6) ...T|
00027820  2a 20 20 c9 20 31 20 3a  20 74 24 3d 22 4f 6f 68  |*  . 1 : t$="Ooh|
00027830  2c 20 61 72 65 20 79 6f  75 20 61 20 66 6f 72 65  |, are you a fore|
00027840  69 67 6e 65 72 3f 22 0d  97 5e 2a 20 20 c9 20 32  |igner?"..^*  . 2|
00027850  20 3a 20 74 24 3d 22 47  72 65 61 74 2c 20 79 6f  | : t$="Great, yo|
00027860  75 27 72 65 20 61 20 6c  69 6e 67 75 69 73 74 2e  |u're a linguist.|
00027870  22 0d 97 68 3e 20 20 c9  20 33 20 3a 20 74 24 3d  |"..h>  . 3 : t$=|
00027880  22 4d 79 20 67 6f 6f 64  6e 65 73 73 2c 20 79 6f  |"My goodness, yo|
00027890  75 27 72 65 20 66 6c 75  65 6e 74 20 69 6e 20 6d  |u're fluent in m|
000278a0  61 6e 79 20 6c 61 6e 67  75 61 67 65 73 2e 22 0d  |any languages.".|
000278b0  97 72 32 20 20 c9 20 34  20 3a 20 74 24 3d 22 41  |.r2  . 4 : t$="A|
000278c0  6e 64 20 77 68 61 74 20  69 73 20 79 6f 75 72 20  |nd what is your |
000278d0  6e 61 74 69 76 65 20 6c  61 6e 67 75 61 67 65 3f  |native language?|
000278e0  22 0d 97 7c 3e 20 20 c9  20 35 20 3a 20 74 24 3d  |"..|>  . 5 : t$=|
000278f0  22 53 74 6f 70 20 74 72  79 69 6e 67 20 74 6f 20  |"Stop trying to |
00027900  73 68 6f 77 20 6f 66 66  20 79 6f 75 72 20 6c 61  |show off your la|
00027910  6e 67 75 61 67 65 20 73  6b 69 6c 6c 73 2e 22 0d  |nguage skills.".|
00027920  97 86 2c 20 20 c9 20 36  20 3a 20 74 24 3d 22 53  |..,  . 6 : t$="S|
00027930  74 6f 70 20 69 74 2c 20  49 20 68 61 74 65 20 66  |top it, I hate f|
00027940  6f 72 65 69 67 6e 65 72  73 2e 22 0d 97 90 05 cb  |oreigners.".....|
00027950  0d 97 9a 0c f2 61 64 64  28 74 24 29 0d 97 a4 05  |.....add(t$)....|
00027960  e1 0d 97 ae 04 0d 97 b8  0c dd f2 73 69 6e 67 6c  |...........singl|
00027970  65 0d 97 c2 15 e7 20 69  24 3d 22 6e 22 20 f2 6e  |e..... i$="n" .n|
00027980  6f 72 74 68 3a e1 0d 97  cc 14 e7 20 69 24 3d 22  |orth:...... i$="|
00027990  65 22 20 f2 65 61 73 74  3a e1 0d 97 d6 15 e7 20  |e" .east:...... |
000279a0  69 24 3d 22 73 22 20 f2  73 6f 75 74 68 3a e1 0d  |i$="s" .south:..|
000279b0  97 e0 14 e7 20 69 24 3d  22 77 22 20 f2 77 65 73  |.... i$="w" .wes|
000279c0  74 3a e1 0d 97 ea 12 e7  20 69 24 3d 22 75 22 20  |t:...... i$="u" |
000279d0  f2 75 70 3a e1 0d 97 f4  14 e7 20 69 24 3d 22 64  |.up:...... i$="d|
000279e0  22 20 f2 64 6f 77 6e 3a  e1 0d 97 fe 13 e7 20 69  |" .down:...... i|
000279f0  24 3d 22 69 22 20 f2 69  6e 76 3a e1 0d 98 08 1e  |$="i" .inv:.....|
00027a00  e7 20 69 24 3d 22 6c 22  20 69 24 3d 22 6c 6f 6f  |. i$="l" i$="loo|
00027a10  6b 22 3a f2 6c 6f 6f 6b  3a e1 0d 98 12 15 e7 20  |k":.look:...... |
00027a20  69 24 3d 22 78 22 20 f2  65 78 69 74 73 3a e1 0d  |i$="x" .exits:..|
00027a30  98 1c 0e c8 8e 20 b3 28  31 30 29 20 ca 0d 98 26  |..... .(10) ...&|
00027a40  2a 20 20 c9 20 31 20 3a  20 74 24 3d 22 54 79 70  |*  . 1 : t$="Typ|
00027a50  65 20 69 6e 20 73 6f 6d  65 74 68 69 6e 67 20 6c  |e in something l|
00027a60  6f 6e 67 65 72 2e 22 0d  98 30 31 20 20 c9 20 32  |onger."..01  . 2|
00027a70  20 3a 20 74 24 3d 22 44  6f 6e 27 74 20 74 61 6c  | : t$="Don't tal|
00027a80  6b 20 69 6e 20 73 69 6e  67 6c 65 20 63 68 61 72  |k in single char|
00027a90  61 63 74 65 72 73 2e 22  0d 98 3a 32 20 20 c9 20  |acters."..:2  . |
00027aa0  33 20 3a 20 74 24 3d 22  4f 6f 68 21 20 59 6f 75  |3 : t$="Ooh! You|
00027ab0  20 75 73 65 20 62 69 67  20 77 6f 72 64 73 20 64  | use big words d|
00027ac0  6f 6e 27 74 20 79 6f 75  3f 22 0d 98 44 3c 20 20  |on't you?"..D<  |
00027ad0  c9 20 34 20 3a 20 74 24  3d 22 49 74 20 77 6f 75  |. 4 : t$="It wou|
00027ae0  6c 64 20 68 65 6c 70 20  69 66 20 79 6f 75 20 61  |ld help if you a|
00027af0  63 74 75 61 6c 6c 79 20  66 6f 72 6d 65 64 20 77  |ctually formed w|
00027b00  6f 72 64 73 2e 22 0d 98  4e 2f 20 20 c9 20 35 20  |ords."..N/  . 5 |
00027b10  3a 20 74 24 3d 22 48 61  76 65 20 79 6f 75 20 6a  |: t$="Have you j|
00027b20  75 73 74 20 6c 65 66 74  20 70 6c 61 79 73 63 68  |ust left playsch|
00027b30  6f 6f 6c 3f 22 0d 98 58  3c 20 20 c9 20 36 20 3a  |ool?"..X<  . 6 :|
00027b40  20 74 24 3d 22 49 27 6d  20 61 66 72 61 69 64 20  | t$="I'm afraid |
00027b50  53 65 73 61 6d 65 20 53  74 72 65 65 74 20 68 61  |Sesame Street ha|
00027b60  73 20 6a 75 73 74 20 66  69 6e 69 73 68 65 64 2e  |s just finished.|
00027b70  22 0d 98 62 3d 20 20 c9  20 37 20 3a 20 74 24 3d  |"..b=  . 7 : t$=|
00027b80  22 49 73 20 6f 6e 65 20  63 68 61 72 61 63 74 65  |"Is one characte|
00027b90  72 20 73 75 70 70 6f 73  65 64 20 74 6f 20 6d 65  |r supposed to me|
00027ba0  61 6e 20 73 6f 6d 65 74  68 69 6e 67 3f 22 0d 98  |an something?"..|
00027bb0  6c 2b 20 20 c9 20 38 20  3a 20 74 24 3d 22 49 73  |l+  . 8 : t$="Is|
00027bc0  20 74 68 69 73 20 73 6f  6d 65 20 73 6f 72 74 20  | this some sort |
00027bd0  6f 66 20 63 6f 64 65 3f  22 0d 98 76 39 20 20 c9  |of code?"..v9  .|
00027be0  20 39 20 3a 20 74 24 3d  22 54 68 61 74 20 64 6f  | 9 : t$="That do|
00027bf0  65 73 6e 27 74 20 6c 6f  6f 6b 20 6c 69 6b 65 20  |esn't look like |
00027c00  61 20 73 65 6e 74 65 6e  63 65 20 74 6f 20 6d 65  |a sentence to me|
00027c10  21 22 0d 98 80 33 20 20  c9 20 31 30 20 3a 20 74  |!"...3  . 10 : t|
00027c20  24 3d 22 42 69 74 20 6f  66 20 61 20 73 68 6f 72  |$="Bit of a shor|
00027c30  74 20 73 65 6e 74 65 6e  63 65 20 69 73 6e 27 74  |t sentence isn't|
00027c40  20 69 74 3f 22 0d 98 8a  05 cb 0d 98 94 0c f2 61  | it?"..........a|
00027c50  64 64 28 74 24 29 0d 98  9e 05 e1 0d 98 a8 04 0d  |dd(t$)..........|
00027c60  98 b2 0a dd f2 70 72 6f  62 0d 98 bc 0d c8 8e 20  |.....prob...... |
00027c70  b3 28 34 29 20 ca 0d 98  c6 2e 20 20 c9 20 31 20  |.(4) .....  . 1 |
00027c80  3a 20 74 24 3d 22 4e 69  63 65 20 6f 66 20 79 6f  |: t$="Nice of yo|
00027c90  75 20 74 6f 20 62 65 20  73 6f 20 63 65 72 74 61  |u to be so certa|
00027ca0  69 6e 2e 22 0d 98 d0 2c  20 20 c9 20 32 20 3a 20  |in."...,  . 2 : |
00027cb0  74 24 3d 22 41 20 62 69  74 20 69 6e 64 65 63 69  |t$="A bit indeci|
00027cc0  73 69 76 65 20 61 72 65  6e 27 74 20 77 65 3f 22  |sive aren't we?"|
00027cd0  0d 98 da 2d 20 20 c9 20  33 20 3a 20 74 24 3d 22  |...-  . 3 : t$="|
00027ce0  43 61 6e 27 74 20 79 6f  75 20 6d 61 6b 65 20 75  |Can't you make u|
00027cf0  70 20 79 6f 75 72 20 6d  69 6e 64 3f 22 0d 98 e4  |p your mind?"...|
00027d00  25 20 20 c9 20 34 20 3a  20 74 24 3d 22 42 65 20  |%  . 4 : t$="Be |
00027d10  73 75 72 65 20 6f 66 20  79 6f 75 72 73 65 6c 66  |sure of yourself|
00027d20  21 22 0d 98 ee 05 cb 0d  98 f8 0c f2 61 64 64 28  |!"..........add(|
00027d30  74 24 29 0d 99 02 05 e1  0d 99 0c 04 0d 99 16 0a  |t$).............|
00027d40  dd f2 68 65 6c 70 0d 99  20 0e c8 8e 20 b3 28 31  |..help.. ... .(1|
00027d50  37 29 20 ca 0d 99 2a 34  20 20 c9 20 31 20 3a 20  |7) ...*4  . 1 : |
00027d60  74 24 3d 22 57 68 61 74  20 6f 6e 20 45 61 72 74  |t$="What on Eart|
00027d70  68 20 64 6f 20 79 6f 75  20 6e 65 65 64 20 68 65  |h do you need he|
00027d80  6c 70 20 66 6f 72 3f 22  0d 99 34 2c 20 20 c9 20  |lp for?"..4,  . |
00027d90  32 20 3a 20 74 24 3d 22  59 6f 75 20 64 6f 6e 27  |2 : t$="You don'|
00027da0  74 20 72 65 61 6c 6c 79  20 6e 65 65 64 20 68 65  |t really need he|
00027db0  6c 70 2e 22 0d 99 3e 20  20 20 c9 20 33 20 3a 20  |lp."..>   . 3 : |
00027dc0  74 24 3d 22 44 6f 20 69  74 20 79 6f 75 72 73 65  |t$="Do it yourse|
00027dd0  6c 66 2e 22 0d 99 48 24  20 20 c9 20 34 20 3a 20  |lf."..H$  . 4 : |
00027de0  74 24 3d 22 49 74 20 69  73 6e 27 74 20 74 68 61  |t$="It isn't tha|
00027df0  74 20 68 61 72 64 2e 22  0d 99 52 20 20 20 c9 20  |t hard."..R   . |
00027e00  35 20 3a 20 74 24 3d 22  4a 75 73 74 20 70 65 72  |5 : t$="Just per|
00027e10  73 65 76 65 72 65 2e 22  0d 99 5c 21 20 20 c9 20  |severe."..\!  . |
00027e20  36 20 3a 20 74 24 3d 22  59 6f 75 27 72 65 20 68  |6 : t$="You're h|
00027e30  6f 70 65 6c 65 73 73 2e  22 0d 99 66 26 20 20 c9  |opeless."..f&  .|
00027e40  20 37 20 3a 20 74 24 3d  22 49 74 27 73 20 6e 6f  | 7 : t$="It's no|
00027e50  74 20 74 68 61 74 20 74  72 69 63 6b 79 2e 22 0d  |t that tricky.".|
00027e60  99 70 60 20 20 c9 20 38  20 3a 20 74 24 3d 22 54  |.p`  . 8 : t$="T|
00027e70  72 79 20 72 75 6e 6e 69  6e 67 20 75 70 20 61 6e  |ry running up an|
00027e80  64 20 64 6f 77 6e 20 79  6f 75 72 20 72 6f 61 64  |d down your road|
00027e90  20 77 68 69 6c 65 20 65  61 74 69 6e 67 20 6c 69  | while eating li|
00027ea0  76 65 20 66 72 6f 67 73  20 61 6e 64 20 67 6f 69  |ve frogs and goi|
00027eb0  6e 67 20 22 22 53 71 75  61 77 6b 22 22 2e 22 0d  |ng ""Squawk"".".|
00027ec0  99 7a 3f 20 20 c9 20 39  20 3a 20 74 24 3d 22 49  |.z?  . 9 : t$="I|
00027ed0  6e 73 70 69 72 61 74 69  6f 6e 20 68 69 74 73 20  |nspiration hits |
00027ee0  79 6f 75 20 77 68 65 6e  20 79 6f 75 20 6c 65 61  |you when you lea|
00027ef0  73 74 20 65 78 70 65 63  74 20 69 74 2e 22 0d 99  |st expect it."..|
00027f00  84 54 20 20 c9 20 31 30  20 3a 20 74 24 3d 22 54  |.T  . 10 : t$="T|
00027f10  68 65 20 42 69 62 6c 65  20 6f 66 66 65 72 73 20  |he Bible offers |
00027f20  61 64 76 69 63 65 20 6f  6e 20 65 76 65 72 79 74  |advice on everyt|
00027f30  68 69 6e 67 20 2d 20 6f  72 20 73 6f 20 6d 6f 73  |hing - or so mos|
00027f40  74 20 43 68 72 69 73 74  69 61 6e 73 20 73 61 79  |t Christians say|
00027f50  2e 22 0d 99 8e 18 20 20  c9 20 31 31 20 3a 20 74  |."....  . 11 : t|
00027f60  24 3d 22 43 68 65 61 74  21 22 0d 99 98 3d 20 20  |$="Cheat!"...=  |
00027f70  c9 20 31 32 20 3a 20 74  24 3d 22 57 69 73 64 6f  |. 12 : t$="Wisdo|
00027f80  6d 20 63 61 6e 6e 6f 74  20 62 65 20 67 69 76 65  |m cannot be give|
00027f90  6e 2c 20 69 74 20 68 61  73 20 74 6f 20 62 65 20  |n, it has to be |
00027fa0  65 61 72 6e 74 2e 22 0d  99 a2 54 20 20 c9 20 31  |earnt."...T  . 1|
00027fb0  33 20 3a 20 74 24 3d 22  57 68 61 63 6b 20 79 6f  |3 : t$="Whack yo|
00027fc0  75 72 20 68 65 61 64 20  61 67 61 69 6e 73 74 20  |ur head against |
00027fd0  74 68 65 20 74 61 62 6c  65 20 65 64 67 65 20 61  |the table edge a|
00027fe0  6e 64 20 79 6f 75 20 77  69 6c 6c 20 73 65 65 20  |nd you will see |
00027ff0  74 68 65 20 6c 69 67 68  74 2e 22 0d 99 ac 39 20  |the light."...9 |
00028000  20 c9 20 31 34 20 3a 20  74 24 3d 22 54 72 79 20  | . 14 : t$="Try |
00028010  70 75 6e 63 68 69 6e 67  20 74 68 65 20 6e 65 61  |punching the nea|
00028020  72 65 73 74 20 70 65 72  73 6f 6e 20 74 6f 20 79  |rest person to y|
00028030  6f 75 2e 22 0d 99 b6 28  20 20 c9 20 31 35 20 3a  |ou."...(  . 15 :|
00028040  20 74 24 3d 22 4a 75 73  74 20 61 73 6b 20 73 6f  | t$="Just ask so|
00028050  6d 65 6f 6e 65 20 65 6c  73 65 2e 22 0d 99 c0 1f  |meone else."....|
00028060  20 20 c9 20 31 36 20 3a  20 74 24 3d 22 44 6f 6e  |  . 16 : t$="Don|
00028070  27 74 20 61 73 6b 20 6d  65 21 22 0d 99 ca 41 20  |'t ask me!"...A |
00028080  20 c9 20 31 37 20 3a 20  74 24 3d 22 48 6f 77 20  | . 17 : t$="How |
00028090  73 68 6f 75 6c 64 20 49  20 6b 6e 6f 77 20 74 68  |should I know th|
000280a0  65 20 61 6e 73 77 65 72  73 20 74 6f 20 79 6f 75  |e answers to you|
000280b0  72 20 70 72 6f 62 6c 65  6d 73 3f 22 0d 99 d4 05  |r problems?"....|
000280c0  cb 0d 99 de 0c f2 61 64  64 28 74 24 29 0d 99 e8  |......add(t$)...|
000280d0  05 e1 0d 99 f2 04 0d 99  fc 0b dd f2 73 6f 72 72  |............sorr|
000280e0  79 0d 9a 06 0d c8 8e 20  b3 28 37 29 20 ca 0d 9a  |y...... .(7) ...|
000280f0  10 21 20 20 c9 20 31 20  3a 20 74 24 3d 22 44 6f  |.!  . 1 : t$="Do|
00028100  6e 27 74 20 61 70 6f 6c  6f 67 69 73 65 2e 22 0d  |n't apologise.".|
00028110  9a 1a 22 20 20 c9 20 32  20 3a 20 74 24 3d 22 41  |.."  . 2 : t$="A|
00028120  70 6f 6c 6f 67 79 20 61  63 63 65 70 74 65 64 2e  |pology accepted.|
00028130  22 0d 9a 24 1f 20 20 c9  20 33 20 3a 20 74 24 3d  |"..$.  . 3 : t$=|
00028140  22 49 20 66 6f 72 67 69  76 65 20 79 6f 75 2e 22  |"I forgive you."|
00028150  0d 9a 2e 21 20 20 c9 20  34 20 3a 20 74 24 3d 22  |...!  . 4 : t$="|
00028160  53 6f 72 72 79 3f 20 57  68 61 74 20 66 6f 72 3f  |Sorry? What for?|
00028170  22 0d 9a 38 3d 20 20 c9  20 35 20 3a 20 74 24 3d  |"..8=  . 5 : t$=|
00028180  22 49 74 27 73 20 61 6c  6c 20 72 69 67 68 74 2e  |"It's all right.|
00028190  20 49 20 77 6f 6e 27 74  20 68 6f 6c 64 20 69 74  | I won't hold it|
000281a0  20 61 67 61 69 6e 73 74  20 79 6f 75 2e 22 0d 9a  | against you."..|
000281b0  42 28 20 20 c9 20 36 20  3a 20 74 24 3d 22 57 65  |B(  . 6 : t$="We|
000281c0  6c 6c 20 64 6f 6e 27 74  20 64 6f 20 69 74 20 61  |ll don't do it a|
000281d0  67 61 69 6e 2e 22 0d 9a  4c 32 20 20 c9 20 37 20  |gain."..L2  . 7 |
000281e0  3a 20 74 24 3d 22 4e 6f  20 70 72 6f 62 6c 65 6d  |: t$="No problem|
000281f0  2c 20 64 6f 6e 27 74 20  77 6f 72 72 79 20 61 62  |, don't worry ab|
00028200  6f 75 74 20 69 74 2e 22  0d 9a 56 05 cb 0d 9a 60  |out it."..V....`|
00028210  0c f2 61 64 64 28 74 24  29 0d 9a 6a 05 e1 0d 9a  |..add(t$)..j....|
00028220  74 04 0d 9a 7e 0c dd f2  72 65 70 65 61 74 0d 9a  |t...~...repeat..|
00028230  88 0e c8 8e 20 b3 28 34  30 29 20 ca 0d 9a 92 29  |.... .(40) ....)|
00028240  20 20 c9 20 31 20 3a 20  74 24 3d 22 53 74 6f 70  |  . 1 : t$="Stop|
00028250  20 72 65 70 65 61 74 69  6e 67 20 79 6f 75 72 73  | repeating yours|
00028260  65 6c 66 2e 22 0d 9a 9c  29 20 20 c9 20 32 20 3a  |elf."...)  . 2 :|
00028270  20 74 24 3d 22 53 61 79  20 73 6f 6d 65 74 68 69  | t$="Say somethi|
00028280  6e 67 20 64 69 66 66 65  72 65 6e 74 2e 22 0d 9a  |ng different."..|
00028290  a6 25 20 20 c9 20 33 20  3a 20 74 24 3d 22 43 68  |.%  . 3 : t$="Ch|
000282a0  61 6e 67 65 20 77 68 61  74 20 79 6f 75 20 73 61  |ange what you sa|
000282b0  79 2e 22 0d 9a b0 2f 20  20 c9 20 34 20 3a 20 74  |y.".../  . 4 : t|
000282c0  24 3d 22 59 6f 75 27 72  65 20 73 6f 75 6e 64 69  |$="You're soundi|
000282d0  6e 67 20 6c 69 6b 65 20  61 20 70 61 72 72 6f 74  |ng like a parrot|
000282e0  2e 22 0d 9a ba 22 20 20  c9 20 35 20 3a 20 74 24  |."..."  . 5 : t$|
000282f0  3d 22 59 6f 75 27 72 65  20 62 6f 72 69 6e 67 20  |="You're boring |
00028300  6d 65 2e 22 0d 9a c4 25  20 20 c9 20 36 20 3a 20  |me."...%  . 6 : |
00028310  74 24 3d 22 54 72 79 20  61 6e 64 20 62 65 20 6f  |t$="Try and be o|
00028320  72 69 67 69 6e 61 6c 2e  22 0d 9a ce 2f 20 20 c9  |riginal.".../  .|
00028330  20 37 20 3a 20 74 24 3d  22 42 69 74 20 6f 66 20  | 7 : t$="Bit of |
00028340  61 20 6c 69 6d 69 74 65  64 20 76 6f 63 61 62 75  |a limited vocabu|
00028350  6c 61 72 79 2e 2e 2e 22  0d 9a d8 28 20 20 c9 20  |lary..."...(  . |
00028360  38 20 3a 20 74 24 3d 22  59 6f 75 20 6d 75 73 74  |8 : t$="You must|
00028370  20 62 65 20 6d 69 6e 64  6c 65 73 73 2e 2e 2e 22  | be mindless..."|
00028380  0d 9a e2 25 20 20 c9 20  39 20 3a 20 74 24 3d 22  |...%  . 9 : t$="|
00028390  53 20 48 20 55 20 54 20  20 20 55 20 50 20 20 21  |S H U T   U P  !|
000283a0  20 21 20 21 22 0d 9a ec  31 20 20 c9 20 31 30 20  | ! !"...1  . 10 |
000283b0  3a 20 74 24 3d 22 50 6c  65 61 73 65 20 73 61 79  |: t$="Please say|
000283c0  20 73 6f 6d 65 74 68 69  6e 67 20 64 69 66 66 65  | something diffe|
000283d0  72 65 6e 74 2e 22 0d 9a  f6 2c 20 20 c9 20 31 31  |rent."...,  . 11|
000283e0  20 3a 20 74 24 3d 22 59  6f 75 27 6c 6c 20 67 69  | : t$="You'll gi|
000283f0  76 65 20 6d 65 20 61 20  68 65 61 64 61 63 68 65  |ve me a headache|
00028400  2e 22 0d 9b 00 21 20 20  c9 20 31 33 20 3a 20 74  |."...!  . 13 : t|
00028410  24 3d 22 48 6f 77 20 72  65 70 65 74 61 74 69 76  |$="How repetativ|
00028420  65 2e 22 0d 9b 0a 33 20  20 c9 20 31 34 20 3a 20  |e."...3  . 14 : |
00028430  74 24 3d 22 54 69 6d 65  20 79 6f 75 20 76 69 73  |t$="Time you vis|
00028440  69 74 65 64 20 61 20 6d  65 6e 74 61 6c 20 61 73  |ited a mental as|
00028450  79 6c 75 6d 2e 22 0d 9b  14 1e 20 20 c9 20 31 35  |ylum."....  . 15|
00028460  20 3a 20 74 24 3d 22 2e  2e 2e 4e 75 74 20 63 61  | : t$="...Nut ca|
00028470  73 65 2e 22 0d 9b 1e 2c  20 20 c9 20 31 36 20 3a  |se."...,  . 16 :|
00028480  20 74 24 3d 22 57 68 6f  27 73 20 67 6f 74 20 61  | t$="Who's got a|
00028490  20 73 74 72 61 69 74 2d  6a 61 63 6b 65 74 3f 22  | strait-jacket?"|
000284a0  0d 9b 28 33 20 20 c9 20  31 37 20 3a 20 74 24 3d  |..(3  . 17 : t$=|
000284b0  22 54 69 6d 65 20 74 6f  20 67 6f 20 74 6f 20 74  |"Time to go to t|
000284c0  68 65 20 6b 6e 61 63 6b  65 72 27 73 20 79 61 72  |he knacker's yar|
000284d0  64 2e 22 0d 9b 32 22 20  20 c9 20 31 38 20 3a 20  |d."..2"  . 18 : |
000284e0  74 24 3d 22 47 6f 6f 20  67 6f 6f 20 67 61 61 20  |t$="Goo goo gaa |
000284f0  67 61 61 3f 22 0d 9b 3c  27 20 20 c9 20 31 39 20  |gaa?"..<'  . 19 |
00028500  3a 20 74 24 3d 22 42 20  45 20 20 20 51 20 55 20  |: t$="B E   Q U |
00028510  49 20 45 20 54 20 21 20  21 20 21 22 0d 9b 46 1f  |I E T ! ! !"..F.|
00028520  20 20 c9 20 32 30 20 3a  20 74 24 3d 22 57 65 69  |  . 20 : t$="Wei|
00028530  72 64 6f 20 61 6c 65 72  74 2e 22 0d 9b 50 2c 20  |rdo alert."..P, |
00028540  20 c9 20 32 31 20 3a 20  74 24 3d 22 41 72 65 20  | . 21 : t$="Are |
00028550  79 6f 75 20 66 65 65 6c  69 6e 67 20 61 6c 6c 20  |you feeling all |
00028560  72 69 67 68 74 3f 22 0d  9b 5a 23 20 20 c9 20 32  |right?"..Z#  . 2|
00028570  32 20 3a 20 74 24 3d 22  53 74 6f 70 20 73 61 79  |2 : t$="Stop say|
00028580  69 6e 67 20 74 68 61 74  2e 22 0d 9b 64 28 20 20  |ing that."..d(  |
00028590  c9 20 32 33 20 3a 20 74  24 3d 22 49 73 20 69 74  |. 23 : t$="Is it|
000285a0  20 66 75 6e 20 73 61 79  69 6e 67 20 74 68 61 74  | fun saying that|
000285b0  3f 22 0d 9b 6e 31 20 20  c9 20 32 34 20 3a 20 74  |?"..n1  . 24 : t|
000285c0  24 3d 22 4f 76 65 72 20  61 6e 64 20 6f 76 65 72  |$="Over and over|
000285d0  20 61 67 61 69 6e 2e 2e  2e 20 74 65 64 69 6f 75  | again... tediou|
000285e0  73 2e 22 0d 9b 78 27 20  20 c9 20 32 35 20 3a 20  |s."..x'  . 25 : |
000285f0  74 24 3d 22 53 6f 6d 65  6f 6e 65 2c 20 73 68 75  |t$="Someone, shu|
00028600  74 20 68 69 6d 20 75 70  2e 22 0d 9b 82 24 20 20  |t him up."...$  |
00028610  c9 20 32 36 20 3a 20 74  24 3d 22 56 61 72 79 20  |. 26 : t$="Vary |
00028620  77 68 61 74 20 79 6f 75  20 73 61 79 2e 22 0d 9b  |what you say."..|
00028630  8c 2f 20 20 c9 20 32 37  20 3a 20 74 24 3d 22 56  |./  . 27 : t$="V|
00028640  61 72 69 65 74 79 20 69  73 20 74 68 65 20 73 70  |ariety is the sp|
00028650  69 63 65 20 6f 66 20 6c  69 66 65 2e 22 0d 9b 96  |ice of life."...|
00028660  2e 20 20 c9 20 32 38 20  3a 20 74 24 3d 22 54 65  |.  . 28 : t$="Te|
00028670  6c 6c 20 6d 65 20 73 6f  6d 65 74 68 69 6e 67 20  |ll me something |
00028680  64 69 66 66 65 72 65 6e  74 2e 22 0d 9b a0 3e 20  |different."...> |
00028690  20 c9 20 32 39 20 3a 20  74 24 3d 22 4e 6f 2d 6f  | . 29 : t$="No-o|
000286a0  6e 65 20 63 61 72 65 73  20 61 62 6f 75 74 20 74  |ne cares about t|
000286b0  68 61 74 2c 20 63 68 61  6e 67 65 20 74 68 65 20  |hat, change the |
000286c0  73 75 62 6a 65 63 74 2e  22 0d 9b aa 2d 20 20 c9  |subject."...-  .|
000286d0  20 33 30 20 3a 20 74 24  3d 22 43 61 6e 20 73 6f  | 30 : t$="Can so|
000286e0  6d 65 6f 6e 65 20 67 61  67 20 74 68 69 73 20 62  |meone gag this b|
000286f0  6c 6f 6b 65 3f 22 0d 9b  b4 29 20 20 c9 20 33 31  |loke?"...)  . 31|
00028700  20 3a 20 74 24 3d 22 49  20 6d 69 67 68 74 20 63  | : t$="I might c|
00028710  6f 6d 6d 69 74 20 73 75  69 63 69 64 65 2e 22 0d  |ommit suicide.".|
00028720  9b be 29 20 20 c9 20 33  32 20 3a 20 74 24 3d 22  |..)  . 32 : t$="|
00028730  59 6f 75 27 72 65 20 77  69 6e 64 69 6e 67 20 6d  |You're winding m|
00028740  65 20 75 70 2e 2e 2e 22  0d 9b c8 20 20 20 c9 20  |e up..."...   . |
00028750  33 33 20 3a 20 74 24 3d  22 4c 6f 72 64 2c 20 68  |33 : t$="Lord, h|
00028760  65 6c 70 20 6d 65 2e 22  0d 9b d2 38 20 20 c9 20  |elp me."...8  . |
00028770  33 34 20 3a 20 74 24 3d  22 4d 79 20 4c 6f 72 64  |34 : t$="My Lord|
00028780  2c 20 62 72 69 6e 67 20  73 61 6e 69 74 79 20 75  |, bring sanity u|
00028790  70 6f 6e 20 74 68 69 73  20 77 6f 72 6c 64 2e 22  |pon this world."|
000287a0  0d 9b dc 2f 20 20 c9 20  33 35 20 3a 20 74 24 3d  |.../  . 35 : t$=|
000287b0  22 41 72 65 20 79 6f 75  20 61 6c 77 61 79 73 20  |"Are you always |
000287c0  73 6f 20 6d 6f 6e 6f 74  6f 6e 6f 75 73 3f 22 0d  |so monotonous?".|
000287d0  9b e6 28 20 20 c9 20 33  36 20 3a 20 74 24 3d 22  |..(  . 36 : t$="|
000287e0  57 69 62 62 6c 65 2d 77  6f 62 62 6c 65 20 66 6c  |Wibble-wobble fl|
000287f0  6f 62 62 6c 65 2e 22 0d  9b f0 31 20 20 c9 20 33  |obble."...1  . 3|
00028800  37 20 3a 20 74 24 3d 22  47 6f 20 62 61 63 6b 20  |7 : t$="Go back |
00028810  74 6f 20 77 68 65 72 65  20 79 6f 75 20 63 61 6d  |to where you cam|
00028820  65 20 66 72 6f 6d 2e 22  0d 9b fa 36 20 20 c9 20  |e from."...6  . |
00028830  33 38 20 3a 20 74 24 3d  22 49 20 64 6f 6e 27 74  |38 : t$="I don't|
00028840  20 68 61 76 65 20 74 6f  20 6c 69 73 74 65 6e 20  | have to listen |
00028850  74 6f 20 74 68 69 73 20  62 75 6c 6c 2e 22 0d 9c  |to this bull."..|
00028860  04 30 20 20 c9 20 33 39  20 3a 20 74 24 3d 22 59  |.0  . 39 : t$="Y|
00028870  6f 75 27 72 65 20 73 6f  75 6e 64 69 6e 67 20 6c  |ou're sounding l|
00028880  69 6b 65 20 61 6e 20 41  6d 69 67 61 2e 22 0d 9c  |ike an Amiga."..|
00028890  0e 2b 20 20 c9 20 34 30  20 3a 20 74 24 3d 22 59  |.+  . 40 : t$="Y|
000288a0  6f 75 27 72 65 20 6d 61  6b 69 6e 67 20 6d 65 20  |ou're making me |
000288b0  61 6e 67 72 79 2e 2e 2e  22 0d 9c 18 05 cb 0d 9c  |angry...".......|
000288c0  22 0c f2 61 64 64 28 74  24 29 0d 9c 2c 05 e1 0d  |"..add(t$)..,...|
000288d0  9c 36 04 0d 9c 40 0d dd  f2 62 65 63 61 75 73 65  |.6...@...because|
000288e0  0d 9c 4a 0d c8 8e 20 b3  28 36 29 20 ca 0d 9c 54  |..J... .(6) ...T|
000288f0  3e 20 20 c9 20 31 20 3a  20 74 24 3d 22 49 27 6d  |>  . 1 : t$="I'm|
00028900  20 61 66 72 61 69 64 20  49 20 68 61 76 65 20 74  | afraid I have t|
00028910  6f 20 64 69 73 61 67 72  65 65 20 77 69 74 68 20  |o disagree with |
00028920  79 6f 75 20 74 68 65 72  65 2e 22 0d 9c 5e 26 20  |you there."..^& |
00028930  20 c9 20 32 20 3a 20 74  24 3d 22 54 68 61 74 27  | . 2 : t$="That'|
00028940  73 20 61 20 67 6f 6f 64  20 72 65 61 73 6f 6e 2e  |s a good reason.|
00028950  22 0d 9c 68 2d 20 20 c9  20 33 20 3a 20 74 24 3d  |"..h-  . 3 : t$=|
00028960  22 49 20 74 68 6f 72 6f  75 67 68 6c 79 20 61 67  |"I thoroughly ag|
00028970  72 65 65 20 77 69 74 68  20 79 6f 75 2e 22 0d 9c  |ree with you."..|
00028980  72 31 20 20 c9 20 34 20  3a 20 74 24 3d 22 49 20  |r1  . 4 : t$="I |
00028990  61 67 72 65 65 20 74 68  61 74 20 22 2b c1 69 24  |agree that "+.i$|
000289a0  2c 39 2c a9 28 69 24 29  2d 38 29 2b 22 2e 22 0d  |,9,.(i$)-8)+".".|
000289b0  9c 7c 37 20 20 c9 20 35  20 3a 20 74 24 3d 22 57  |.|7  . 5 : t$="W|
000289c0  65 6c 6c 2c 20 77 65 27  6c 6c 20 68 61 76 65 20  |ell, we'll have |
000289d0  74 6f 20 61 67 72 65 65  20 74 6f 20 64 69 73 61  |to agree to disa|
000289e0  67 72 65 65 2e 22 0d 9c  86 2f 20 20 c9 20 36 20  |gree.".../  . 6 |
000289f0  3a 20 74 24 3d 22 54 68  61 74 27 73 20 6e 6f 74  |: t$="That's not|
00028a00  20 74 68 65 20 72 65 61  73 6f 6e 20 49 20 68 65  | the reason I he|
00028a10  61 72 64 2e 22 0d 9c 90  05 cb 0d 9c 9a 0c f2 61  |ard."..........a|
00028a20  64 64 28 74 24 29 0d 9c  a4 05 e1 0d 9c ae 04 0d  |dd(t$)..........|
00028a30  9c b8 0c dd f2 65 78 63  69 74 65 0d 9c c2 e2 f2  |.....excite.....|
00028a40  61 64 64 28 22 54 68 65  20 6d 61 6e 20 6f 70 65  |add("The man ope|
00028a50  6e 73 20 74 68 65 20 62  6f 74 74 6c 65 20 6f 66  |ns the bottle of|
00028a60  20 50 65 6e 69 63 69 6c  6c 69 6e 20 61 6e 64 20  | Penicillin and |
00028a70  64 72 6f 70 73 20 74 68  65 20 74 61 62 6c 65 74  |drops the tablet|
00028a80  73 20 69 6e 74 6f 20 74  68 65 20 62 6f 79 27 73  |s into the boy's|
00028a90  20 6d 6f 75 74 68 2e 20  57 69 74 68 69 6e 20 74  | mouth. Within t|
00028aa0  77 6f 20 73 68 6f 72 74  20 68 6f 75 72 73 20 74  |wo short hours t|
00028ab0  68 65 20 62 6f 79 20 6f  70 65 6e 73 20 68 69 73  |he boy opens his|
00028ac0  20 65 79 65 73 20 61 6e  64 20 6c 6f 6f 6b 73 20  | eyes and looks |
00028ad0  75 70 2e 20 54 68 65 20  6d 61 6e 20 73 63 72 65  |up. The man scre|
00028ae0  61 6d 73 20 77 69 74 68  20 65 6c 61 74 69 6f 6e  |ams with elation|
00028af0  20 61 6e 64 20 74 75 72  6e 73 20 72 6f 75 6e 64  | and turns round|
00028b00  20 74 6f 20 68 75 67 20  79 6f 75 20 77 69 74 68  | to hug you with|
00028b10  20 67 72 61 74 69 74 75  64 65 2e 22 29 0d 9c cc  | gratitude.")...|
00028b20  9e f2 61 64 64 28 22 27  4e 6f 77 20 74 68 65 20  |..add("'Now the |
00028b30  6c 61 6e 64 20 77 69 6c  6c 20 6e 6f 20 6c 6f 6e  |land will no lon|
00028b40  67 65 72 20 62 65 20 69  6e 20 70 65 72 69 6c 2e  |ger be in peril.|
00028b50  20 49 2c 20 61 6e 64 20  73 6f 20 6d 61 6e 79 20  | I, and so many |
00028b60  6f 74 68 65 72 73 2c 20  6f 77 65 20 79 6f 75 20  |others, owe you |
00028b70  65 76 65 72 79 74 68 69  6e 67 2c 20 69 6e 63 6c  |everything, incl|
00028b80  75 64 69 6e 67 20 6f 75  72 20 6c 69 76 65 73 2e  |uding our lives.|
00028b90  20 54 68 61 6e 6b 20 79  6f 75 20 64 6f 65 73 6e  | Thank you doesn|
00028ba0  27 74 20 73 65 65 6d 20  65 6e 6f 75 67 68 2c 27  |'t seem enough,'|
00028bb0  20 68 65 20 73 61 79 73  2e 22 29 0d 9c d6 96 f2  | he says.").....|
00028bc0  61 64 64 28 22 59 6f 75  20 6c 65 61 76 65 20 74  |add("You leave t|
00028bd0  68 65 20 72 6f 6f 6d 2c  20 67 6f 69 6e 67 20 62  |he room, going b|
00028be0  61 63 6b 20 74 6f 20 77  68 65 72 65 76 65 72 20  |ack to wherever |
00028bf0  79 6f 75 20 63 61 6d 65  20 66 72 6f 6d 2c 20 73  |you came from, s|
00028c00  61 74 69 73 66 69 65 64  20 74 68 61 74 20 79 6f  |atisfied that yo|
00028c10  75 27 76 65 20 73 61 76  65 64 20 74 68 65 20 6c  |u've saved the l|
00028c20  69 76 65 73 20 6e 6f 74  20 6f 66 20 6f 6e 65 20  |ives not of one |
00028c30  62 6f 79 2c 20 62 75 74  20 6f 66 20 6d 69 6c 6c  |boy, but of mill|
00028c40  69 6f 6e 73 20 6f 66 20  70 65 6f 70 6c 65 2e 22  |ions of people."|
00028c50  29 0d 9c e0 92 f2 61 64  64 28 22 41 74 20 6c 65  |).....add("At le|
00028c60  61 73 74 20 75 6e 74 69  6c 20 74 68 65 72 65 20  |ast until there |
00028c70  69 73 20 61 20 66 6c 61  73 68 20 6f 66 20 62 6c  |is a flash of bl|
00028c80  69 6e 64 69 6e 67 20 6c  69 67 68 74 20 61 6e 64  |inding light and|
00028c90  20 79 6f 75 20 66 69 6e  64 20 79 6f 75 72 73 65  | you find yourse|
00028ca0  6c 66 20 73 75 63 6b 65  64 20 69 6e 74 6f 20 74  |lf sucked into t|
00028cb0  68 65 20 79 65 61 72 20  32 31 39 34 2c 20 62 75  |he year 2194, bu|
00028cc0  74 20 74 68 61 74 27 73  20 61 20 64 69 66 66 65  |t that's a diffe|
00028cd0  72 65 6e 74 20 61 64 76  65 6e 74 75 72 65 2e 2e  |rent adventure..|
00028ce0  2e 22 29 0d 9c ea 17 72  65 6e 77 25 3d 31 3a f2  |.")....renw%=1:.|
00028cf0  64 65 63 69 64 65 70 69  63 73 0d 9c f4 05 e1 0d  |decidepics......|
00028d00  9c fe 04 0d 9d 08 0b dd  f2 77 65 6c 73 68 0d 9d  |.........welsh..|
00028d10  12 0d c8 8e 20 b3 28 33  29 20 ca 0d 9d 1c 3f 20  |.... .(3) ....? |
00028d20  20 c9 20 31 20 3a 20 74  24 3d 22 49 27 64 20 70  | . 1 : t$="I'd p|
00028d30  72 65 66 65 72 20 69 74  20 69 66 20 79 6f 75 20  |refer it if you |
00028d40  64 69 64 6e 27 74 20 6d  65 6e 74 69 6f 6e 20 74  |didn't mention t|
00028d50  68 65 20 57 65 6c 73 68  2e 22 0d 9d 26 34 20 20  |he Welsh."..&4  |
00028d60  c9 20 32 20 3a 20 74 24  3d 22 59 65 73 2c 20 77  |. 2 : t$="Yes, w|
00028d70  65 20 61 6c 6c 20 6b 6e  6f 77 20 77 68 61 74 20  |e all know what |
00028d80  74 68 65 20 57 65 6c 73  68 20 64 6f 2e 22 0d 9d  |the Welsh do."..|
00028d90  30 3d 20 20 c9 20 33 20  3a 20 74 24 3d 22 44 6f  |0=  . 3 : t$="Do|
00028da0  6e 27 74 20 74 61 6c 6b  20 61 62 6f 75 74 20 74  |n't talk about t|
00028db0  68 65 20 57 65 6c 73 68  20 77 68 69 6c 65 20 49  |he Welsh while I|
00028dc0  27 6d 20 61 72 6f 75 6e  64 2e 22 0d 9d 3a 05 cb  |'m around."..:..|
00028dd0  0d 9d 44 0c f2 61 64 64  28 74 24 29 0d 9d 4e 05  |..D..add(t$)..N.|
00028de0  e1 0d 9d 58 04 0d 9d 62  0c dd f2 67 6f 6e 6e 65  |...X...b...gonne|
00028df0  72 0d 9d 6c 0d c8 8e 20  b3 28 33 29 20 ca 0d 9d  |r..l... .(3) ...|
00028e00  76 2b 20 20 c9 20 31 20  3a 20 74 24 3d 22 44 65  |v+  . 1 : t$="De|
00028e10  61 64 20 70 65 6f 70 6c  65 20 63 61 6e 27 74 20  |ad people can't |
00028e20  64 6f 20 74 68 61 74 2e  22 0d 9d 80 42 20 20 c9  |do that."...B  .|
00028e30  20 32 20 3a 20 74 24 3d  22 59 6f 75 20 73 65 65  | 2 : t$="You see|
00028e40  2c 20 66 65 65 6c 2c 20  68 65 61 72 2c 20 73 6d  |, feel, hear, sm|
00028e50  65 6c 6c 20 61 6e 64 20  74 61 73 74 65 20 6e 6f  |ell and taste no|
00028e60  74 68 69 6e 67 6e 65 73  73 2e 22 0d 9d 8a 2e 20  |thingness.".... |
00028e70  20 c9 20 33 20 3a 20 74  24 3d 22 44 6f 6e 27 74  | . 3 : t$="Don't|
00028e80  20 62 65 20 73 74 75 70  69 64 2c 20 79 6f 75 27  | be stupid, you'|
00028e90  72 65 20 64 65 61 64 2e  22 0d 9d 94 05 cb 0d 9d  |re dead.".......|
00028ea0  9e 0c f2 61 64 64 28 74  24 29 0d 9d a8 05 e1 0d  |...add(t$)......|
00028eb0  9d b2 04 0d 9d bc 0c dd  f2 70 6c 65 61 73 65 0d  |.........please.|
00028ec0  9d c6 0d c8 8e 20 b3 28  39 29 20 ca 0d 9d d0 32  |..... .(9) ....2|
00028ed0  20 20 c9 20 31 20 3a 20  74 24 3d 22 41 74 20 6c  |  . 1 : t$="At l|
00028ee0  65 61 73 74 20 79 6f 75  20 6b 6e 6f 77 20 74 68  |east you know th|
00028ef0  65 20 6d 61 67 69 63 20  77 6f 72 64 2e 22 0d 9d  |e magic word."..|
00028f00  da 1d 20 20 c9 20 32 20  3a 20 74 24 3d 22 50 6c  |..  . 2 : t$="Pl|
00028f10  65 61 73 65 20 77 68 61  74 3f 22 0d 9d e4 1f 20  |ease what?".... |
00028f20  20 c9 20 33 20 3a 20 74  24 3d 22 53 74 6f 70 20  | . 3 : t$="Stop |
00028f30  70 6c 65 61 64 69 6e 67  2e 22 0d 9d ee 19 20 20  |pleading."....  |
00028f40  c9 20 34 20 3a 20 74 24  3d 22 41 6e 64 20 62 65  |. 4 : t$="And be|
00028f50  67 21 22 0d 9d f8 24 20  20 c9 20 35 20 3a 20 74  |g!"...$  . 5 : t|
00028f60  24 3d 22 59 6f 75 20 73  6f 75 6e 64 20 70 61 74  |$="You sound pat|
00028f70  68 65 74 69 63 2e 22 0d  9e 02 1e 20 20 c9 20 36  |hetic."....  . 6|
00028f80  20 3a 20 74 24 3d 22 4b  69 73 73 20 6d 79 20 66  | : t$="Kiss my f|
00028f90  65 65 74 2e 22 0d 9e 0c  3b 20 20 c9 20 37 2c 38  |eet."...;  . 7,8|
00028fa0  2c 39 20 3a 20 74 24 3d  22 53 61 79 20 27 50 72  |,9 : t$="Say 'Pr|
00028fb0  65 74 74 79 20 70 6c 65  61 73 65 20 77 69 74 68  |etty please with|
00028fc0  20 73 75 67 61 72 20 6f  6e 20 74 6f 70 27 2e 22  | sugar on top'."|
00028fd0  0d 9e 16 05 cb 0d 9e 20  0c f2 61 64 64 28 74 24  |....... ..add(t$|
00028fe0  29 0d 9e 2a 05 e1 0d 9e  34 04 0d 9e 3e 0c dd f2  |)..*....4...>...|
00028ff0  73 75 63 6b 65 72 0d 9e  48 0d c8 8e 20 b3 28 35  |sucker..H... .(5|
00029000  29 20 ca 0d 9e 52 2c 20  20 c9 20 31 20 3a 20 74  |) ...R,  . 1 : t|
00029010  24 3d 22 57 69 6c 6c 20  79 6f 75 20 64 6f 20 77  |$="Will you do w|
00029020  68 61 74 65 76 65 72 20  49 20 73 61 79 3f 22 0d  |hatever I say?".|
00029030  9e 5c 2e 20 20 c9 20 32  20 3a 20 74 24 3d 22 43  |.\.  . 2 : t$="C|
00029040  61 6e 27 74 20 79 6f 75  20 74 68 69 6e 6b 20 66  |an't you think f|
00029050  6f 72 20 79 6f 75 72 73  65 6c 66 3f 22 0d 9e 66  |or yourself?"..f|
00029060  38 20 20 c9 20 33 2c 34  2c 35 20 3a 20 74 24 3d  |8  . 3,4,5 : t$=|
00029070  22 59 6f 75 27 76 65 20  74 68 65 20 64 65 63 69  |"You've the deci|
00029080  73 69 76 65 6e 65 73 73  20 6f 66 20 61 20 73 68  |siveness of a sh|
00029090  65 65 70 2e 22 0d 9e 70  05 cb 0d 9e 7a 0c f2 61  |eep."..p....z..a|
000290a0  64 64 28 74 24 29 0d 9e  84 05 e1 0d 9e 8e 04 0d  |dd(t$)..........|
000290b0  9e 98 0a dd f2 73 69 63  6b 0d 9e a2 1e e7 20 63  |.....sick..... c|
000290c0  6f 6d 70 75 74 65 72 25  3c 35 20 63 6f 6d 70 75  |omputer%<5 compu|
000290d0  74 65 72 25 2b 3d 31 0d  9e ac 1b e7 20 63 6f 6d  |ter%+=1..... com|
000290e0  70 75 74 65 72 25 3d 35  20 c8 8e 20 b3 28 35 29  |puter%=5 .. .(5)|
000290f0  20 ca 0d 9e b6 2a 20 20  c9 20 31 20 3a 20 74 24  | ....*  . 1 : t$|
00029100  3d 22 42 6c 75 75 75 75  67 67 68 68 68 2e 20 54  |="Bluuuugghhh. T|
00029110  6f 6c 64 20 79 6f 75 20  73 6f 2e 22 0d 9e c0 2b  |old you so."...+|
00029120  20 20 c9 20 32 20 3a 20  74 24 3d 22 53 70 70 6c  |  . 2 : t$="Sppl|
00029130  6c 61 61 61 74 74 74 2e  20 49 20 77 61 72 6e 65  |laaattt. I warne|
00029140  64 20 79 6f 75 2e 22 0d  9e ca 3e 20 20 c9 20 33  |d you."...>  . 3|
00029150  20 3a 20 74 24 3d 22 53  68 6c 6c 75 75 75 67 67  | : t$="Shlluuugg|
00029160  68 68 2e 20 49 27 6d 20  69 6e 20 61 20 62 69 67  |hh. I'm in a big|
00029170  20 6d 65 73 73 20 74 68  61 6e 6b 73 20 74 6f 20  | mess thanks to |
00029180  79 6f 75 2e 22 0d 9e d4  40 20 20 c9 20 34 20 3a  |you."...@  . 4 :|
00029190  20 74 24 3d 22 47 6c 65  72 72 72 67 67 68 68 68  | t$="Glerrrgghhh|
000291a0  2e 20 49 20 68 6f 70 65  20 79 6f 75 27 72 65 20  |. I hope you're |
000291b0  61 73 68 61 6d 65 64 20  6f 66 20 79 6f 75 72 73  |ashamed of yours|
000291c0  65 6c 66 2e 22 0d 9e de  31 20 20 c9 20 35 20 3a  |elf."...1  . 5 :|
000291d0  20 74 24 3d 22 48 75 75  72 72 72 67 67 68 68 68  | t$="Huurrrgghhh|
000291e0  2e 20 54 68 69 73 20 69  73 20 79 6f 75 72 20 66  |. This is your f|
000291f0  61 75 6c 74 2e 22 0d 9e  e8 05 cb 0d 9e f2 1b e7  |ault."..........|
00029200  20 63 6f 6d 70 75 74 65  72 25 3c 35 20 c8 8e 20  | computer%<5 .. |
00029210  b3 28 35 29 20 ca 0d 9e  fc 40 20 20 c9 20 31 20  |.(5) ....@  . 1 |
00029220  3a 20 74 24 3d 22 44 6f  6e 27 74 20 74 61 6c 6b  |: t$="Don't talk|
00029230  20 61 62 6f 75 74 20 6f  74 68 65 72 20 63 6f 6d  | about other com|
00029240  70 75 74 65 72 73 2c 20  6f 72 20 49 27 6c 6c 20  |puters, or I'll |
00029250  70 75 6b 65 2e 22 0d 9f  06 52 20 20 c9 20 32 20  |puke."...R  . 2 |
00029260  3a 20 74 24 3d 22 49 20  64 6f 6e 27 74 20 77 61  |: t$="I don't wa|
00029270  6e 74 20 74 6f 20 68 65  61 72 20 61 62 6f 75 74  |nt to hear about|
00029280  20 72 75 62 62 69 73 68  20 63 6f 6d 70 75 74 65  | rubbish compute|
00029290  72 73 2c 20 6f 72 20 49  20 6d 69 67 68 74 20 62  |rs, or I might b|
000292a0  65 20 73 69 63 6b 2e 22  0d 9f 10 49 20 20 c9 20  |e sick."...I  . |
000292b0  33 20 3a 20 74 24 3d 22  44 6f 6e 27 74 20 74 61  |3 : t$="Don't ta|
000292c0  6c 6b 20 61 62 6f 75 74  20 74 68 6f 73 65 2e 2e  |lk about those..|
000292d0  20 74 68 69 6e 67 73 2c  20 6f 72 20 49 20 6d 69  | things, or I mi|
000292e0  67 68 74 20 6d 61 6b 65  20 61 20 6d 65 73 73 2e  |ght make a mess.|
000292f0  22 0d 9f 1a 46 20 20 c9  20 34 20 3a 20 74 24 3d  |"...F  . 4 : t$=|
00029300  22 45 65 72 72 72 72 2c  20 6f 74 68 65 72 20 63  |"Eerrrr, other c|
00029310  6f 6d 70 75 74 65 72 73  2c 20 49 20 66 65 65 6c  |omputers, I feel|
00029320  20 6d 79 20 6c 75 6e 63  68 20 63 6f 6d 69 6e 67  | my lunch coming|
00029330  20 75 70 2e 2e 2e 22 0d  9f 24 5e 20 20 c9 20 35  | up..."..$^  . 5|
00029340  20 3a 20 74 24 3d 22 44  6f 6e 27 74 20 74 61 6c  | : t$="Don't tal|
00029350  6b 20 61 62 6f 75 74 20  74 68 6f 73 65 20 74 68  |k about those th|
00029360  69 6e 67 73 2c 20 68 61  76 65 20 79 6f 75 20 6e  |ings, have you n|
00029370  6f 20 72 65 73 70 65 63  74 3f 20 49 20 66 65 65  |o respect? I fee|
00029380  6c 20 61 20 6c 69 74 74  6c 65 20 71 75 65 65 7a  |l a little queez|
00029390  79 2e 2e 2e 22 0d 9f 2e  05 cb 0d 9f 38 0c f2 61  |y...".......8..a|
000293a0  64 64 28 74 24 29 0d 9f  42 05 e1 0d 9f 4c 04 0d  |dd(t$)..B....L..|
000293b0  9f 56 0e dd f2 76 69 6f  6c 65 6e 63 65 0d 9f 60  |.V...violence..`|
000293c0  0d c8 8e 20 b3 28 34 29  20 ca 0d 9f 6a 34 20 20  |... .(4) ...j4  |
000293d0  c9 20 31 20 3a 20 74 24  3d 22 44 6f 6e 27 74 20  |. 1 : t$="Don't |
000293e0  62 65 20 76 69 6f 6c 65  6e 74 2c 20 79 6f 75 20  |be violent, you |
000293f0  6d 61 79 20 67 65 74 20  68 75 72 74 2e 22 0d 9f  |may get hurt."..|
00029400  74 37 20 20 c9 20 32 20  3a 20 74 24 3d 22 56 69  |t7  . 2 : t$="Vi|
00029410  6f 6c 65 6e 63 65 20 64  6f 65 73 6e 27 74 20 70  |olence doesn't p|
00029420  61 79 2c 20 77 65 6c 6c  20 6e 6f 74 20 61 6c 77  |ay, well not alw|
00029430  61 79 73 2e 22 0d 9f 7e  31 20 20 c9 20 33 20 3a  |ays."..~1  . 3 :|
00029440  20 74 24 3d 22 49 20 62  6c 61 6d 65 20 69 74 20  | t$="I blame it |
00029450  6f 6e 20 79 6f 75 72 20  75 70 62 72 69 6e 67 69  |on your upbringi|
00029460  6e 67 2e 2e 2e 22 0d 9f  88 24 20 20 c9 20 34 20  |ng..."...$  . 4 |
00029470  3a 20 74 24 3d 22 43 6f  6e 74 72 6f 6c 20 79 6f  |: t$="Control yo|
00029480  75 72 20 61 6e 67 65 72  2e 22 0d 9f 92 05 cb 0d  |ur anger."......|
00029490  9f 9c 10 c8 8e 20 72 6f  6f 6d 6e 6f 25 20 ca 0d  |..... roomno% ..|
000294a0  9f a6 af c9 20 31 20 3a  20 74 24 3d 22 27 59 6f  |.... 1 : t$="'Yo|
000294b0  75 20 61 73 6b 69 6e 67  20 66 6f 72 20 61 20 66  |u asking for a f|
000294c0  69 67 68 74 3f 2c 20 65  68 3f 27 20 73 68 6f 75  |ight?, eh?' shou|
000294d0  74 73 20 74 68 65 20 6d  61 6e 20 62 65 68 69 6e  |ts the man behin|
000294e0  64 20 74 68 65 20 41 6d  69 67 61 20 73 74 61 6c  |d the Amiga stal|
000294f0  6c 2e 20 49 20 74 68 69  6e 6b 20 74 68 61 74 20  |l. I think that |
00029500  77 61 73 20 61 20 6d 69  73 74 61 6b 65 2c 20 41  |was a mistake, A|
00029510  6d 69 67 61 73 20 61 72  65 20 65 76 65 6e 20 77  |migas are even w|
00029520  6f 72 73 65 20 64 6f 77  6e 20 79 6f 75 72 20 74  |orse down your t|
00029530  68 72 6f 61 74 2e 2e 2e  22 3a 6e 69 66 6f 6b 25  |hroat...":nifok%|
00029540  3d 31 3a f2 64 65 63 69  64 65 70 69 63 73 0d 9f  |=1:.decidepics..|
00029550  b0 8a c9 20 31 35 2c 33  30 35 20 3a 20 74 24 3d  |... 15,305 : t$=|
00029560  22 57 6f 6f 70 73 2e 20  54 68 65 20 67 75 61 72  |"Woops. The guar|
00029570  64 20 66 72 6f 77 6e 73  2c 20 70 75 6c 6c 73 20  |d frowns, pulls |
00029580  6f 75 74 20 61 20 74 77  6f 20 6d 65 74 72 65 20  |out a two metre |
00029590  6c 6f 6e 67 20 6d 61 63  68 69 6e 65 20 67 75 6e  |long machine gun|
000295a0  20 61 6e 64 20 70 72 6f  6d 70 74 6c 79 20 62 6c  | and promptly bl|
000295b0  6f 77 73 20 79 6f 75 72  20 68 65 61 64 20 6f 66  |ows your head of|
000295c0  66 2e 22 3a 6e 69 66 6f  6b 25 3d 31 3a f2 64 65  |f.":nifok%=1:.de|
000295d0  63 69 64 65 70 69 63 73  0d 9f ba a8 c9 20 32 39  |cidepics..... 29|
000295e0  20 3a 20 74 24 3d 22 54  68 65 20 62 61 6b 65 72  | : t$="The baker|
000295f0  20 6c 6f 6f 6b 73 20 65  78 74 72 65 6d 65 6c 79  | looks extremely|
00029600  20 61 6e 67 72 79 2c 20  68 65 20 73 75 64 64 65  | angry, he sudde|
00029610  6e 6c 79 20 62 72 69 6e  67 73 20 6f 75 74 20 68  |nly brings out h|
00029620  69 73 20 72 6f 6c 6c 69  6e 67 20 70 69 6e 20 61  |is rolling pin a|
00029630  6e 64 20 77 68 61 63 6b  73 20 79 6f 75 72 20 68  |nd whacks your h|
00029640  65 61 64 20 75 6e 74 69  6c 20 69 74 27 73 20 74  |ead until it's t|
00029650  68 65 20 74 68 69 63 6b  6e 65 73 73 20 6f 66 20  |he thickness of |
00029660  61 20 70 61 6e 63 61 6b  65 2e 22 3a 6e 69 66 6f  |a pancake.":nifo|
00029670  6b 25 3d 31 3a f2 64 65  63 69 64 65 70 69 63 73  |k%=1:.decidepics|
00029680  0d 9f c4 68 c9 20 33 37  20 3a 20 74 24 3d 22 54  |...h. 37 : t$="T|
00029690  68 65 20 76 69 63 61 72  20 6c 6f 6f 6b 73 20 61  |he vicar looks a|
000296a0  74 20 79 6f 75 20 63 61  6c 6d 6c 79 20 61 6e 64  |t you calmly and|
000296b0  20 74 65 6c 6c 73 20 79  6f 75 20 74 68 61 74 20  | tells you that |
000296c0  76 69 6f 6c 65 6e 63 65  20 69 73 20 6e 6f 74 20  |violence is not |
000296d0  61 6c 6c 6f 77 65 64 20  69 6e 20 47 6f 64 27 73  |allowed in God's|
000296e0  20 68 6f 75 73 65 2e 22  0d 9f ce 8d c9 20 35 30  | house."..... 50|
000296f0  20 3a 20 74 24 3d 22 54  68 65 20 70 65 6f 70 6c  | : t$="The peopl|
00029700  65 20 74 75 72 6e 20 61  72 6f 75 6e 64 20 74 6f  |e turn around to|
00029710  20 79 6f 75 20 61 6e 64  20 74 68 65 69 72 20 6d  | you and their m|
00029720  6f 6f 64 20 63 68 61 6e  67 65 73 20 69 6e 73 74  |ood changes inst|
00029730  61 6e 74 6c 79 2e 20 59  6f 75 72 20 68 65 61 64  |antly. Your head|
00029740  20 65 6e 64 73 20 75 70  20 69 6e 20 32 30 20 73  | ends up in 20 s|
00029750  65 70 61 72 61 74 65 20  70 69 65 63 65 73 2e 22  |eparate pieces."|
00029760  3a 6e 69 66 6f 6b 25 3d  31 3a f2 64 65 63 69 64  |:nifok%=1:.decid|
00029770  65 70 69 63 73 0d 9f d8  b9 c9 20 35 32 20 3a 20  |epics..... 52 : |
00029780  f2 61 64 64 28 22 54 68  65 20 6d 61 6e 20 72 6f  |.add("The man ro|
00029790  6c 6c 73 20 75 70 20 68  69 73 20 73 6c 65 65 76  |lls up his sleev|
000297a0  65 73 2c 20 67 72 61 62  73 20 79 6f 75 20 61 6e  |es, grabs you an|
000297b0  64 20 74 68 72 6f 77 73  20 79 6f 75 20 6f 75 74  |d throws you out|
000297c0  20 69 6e 74 6f 20 74 68  65 20 73 74 72 65 65 74  | into the street|
000297d0  2e 22 29 3a f2 61 64 64  28 22 22 29 3a 72 6f 6f  |."):.add(""):roo|
000297e0  6d 6e 6f 25 3d 36 33 3a  f2 68 61 6c 66 6c 6f 6f  |mno%=63:.halfloo|
000297f0  6b 3a 77 69 6d 70 25 21  30 3d 6d 61 70 68 61 6e  |k:wimp%!0=maphan|
00029800  25 3a f2 72 65 64 72 61  77 6d 61 70 3a 74 24 3d  |%:.redrawmap:t$=|
00029810  22 59 6f 75 20 6c 61 6e  64 20 6f 6e 20 79 6f 75  |"You land on you|
00029820  72 20 62 75 6d 20 2d 20  6f 75 63 68 21 22 0d 9f  |r bum - ouch!"..|
00029830  e2 de c9 20 36 34 20 3a  20 f2 61 64 64 28 22 54  |... 64 : .add("T|
00029840  68 65 20 62 61 72 2d 6d  61 69 64 20 72 6f 6c 6c  |he bar-maid roll|
00029850  73 20 75 70 20 68 65 72  20 73 6c 65 65 76 65 73  |s up her sleeves|
00029860  2c 20 73 68 6f 77 69 6e  67 20 68 65 72 20 65 6e  |, showing her en|
00029870  6f 72 6d 6f 75 73 20 62  69 63 65 70 73 2c 20 70  |ormous biceps, p|
00029880  69 63 6b 73 20 79 6f 75  20 75 70 20 61 6e 64 20  |icks you up and |
00029890  74 68 72 6f 77 73 20 79  6f 75 20 6f 75 74 20 69  |throws you out i|
000298a0  6e 74 6f 20 74 68 65 20  73 74 72 65 65 74 2e 22  |nto the street."|
000298b0  29 3a f2 61 64 64 28 22  22 29 3a 72 6f 6f 6d 6e  |):.add(""):roomn|
000298c0  6f 25 3d 36 33 3a f2 68  61 6c 66 6c 6f 6f 6b 3a  |o%=63:.halflook:|
000298d0  77 69 6d 70 25 21 30 3d  6d 61 70 68 61 6e 25 3a  |wimp%!0=maphan%:|
000298e0  f2 72 65 64 72 61 77 6d  61 70 3a 74 24 3d 22 59  |.redrawmap:t$="Y|
000298f0  6f 75 20 6c 61 6e 64 20  6f 6e 20 79 6f 75 72 20  |ou land on your |
00029900  62 75 6d 20 2d 20 6f 75  63 68 21 22 0d 9f ec 85  |bum - ouch!"....|
00029910  c9 20 36 39 20 3a 20 74  24 3d 22 54 68 65 20 6f  |. 69 : t$="The o|
00029920  6c 64 20 6d 61 6e 20 70  75 74 73 20 68 69 73 20  |ld man puts his |
00029930  68 61 6e 64 20 75 6e 64  65 72 20 74 68 65 20 63  |hand under the c|
00029940  6f 75 6e 74 65 72 2c 20  70 75 6c 6c 73 20 6f 75  |ounter, pulls ou|
00029950  74 20 61 20 6d 61 63 68  69 6e 65 20 67 75 6e 20  |t a machine gun |
00029960  61 6e 64 20 70 75 6d 70  73 20 79 6f 75 20 66 75  |and pumps you fu|
00029970  6c 6c 20 6f 66 20 6c 65  61 64 2e 22 3a 6e 69 66  |ll of lead.":nif|
00029980  6f 6b 25 3d 31 3a f2 64  65 63 69 64 65 70 69 63  |ok%=1:.decidepic|
00029990  73 0d 9f f6 5d c9 20 37  32 20 3a 20 74 24 3d 22  |s...]. 72 : t$="|
000299a0  54 68 65 20 77 69 7a 61  72 64 20 77 68 69 73 70  |The wizard whisp|
000299b0  65 72 73 20 61 20 66 65  77 20 6d 61 67 69 63 61  |ers a few magica|
000299c0  6c 20 77 6f 72 64 73 20  61 6e 64 20 79 6f 75 20  |l words and you |
000299d0  66 65 65 6c 20 72 65 6c  61 78 65 64 20 77 69 74  |feel relaxed wit|
000299e0  68 69 6e 20 79 6f 75 72  73 65 6c 66 2e 22 0d a0  |hin yourself."..|
000299f0  00 42 c9 20 37 33 20 3a  20 74 24 3d 22 54 68 65  |.B. 73 : t$="The|
00029a00  20 61 6c 63 68 65 6d 69  73 74 20 61 73 6b 73 20  | alchemist asks |
00029a10  79 6f 75 20 74 6f 20 63  61 6c 6d 20 64 6f 77 6e  |you to calm down|
00029a20  20 61 6e 64 20 79 6f 75  20 64 6f 20 73 6f 2e 22  | and you do so."|
00029a30  0d a0 0a 6f c9 20 37 36  20 3a 20 74 24 3d 22 54  |...o. 76 : t$="T|
00029a40  68 65 20 74 72 61 6d 70  20 70 75 6c 6c 73 20 6f  |he tramp pulls o|
00029a50  75 74 20 61 20 6b 6e 69  66 65 20 66 72 6f 6d 20  |ut a knife from |
00029a60  68 69 73 20 6a 75 6d 70  65 72 20 61 6e 64 20 66  |his jumper and f|
00029a70  6c 69 63 6b 73 20 69 74  20 69 6e 74 6f 20 79 6f  |licks it into yo|
00029a80  75 72 20 63 68 65 73 74  2e 22 3a 6e 69 66 6f 6b  |ur chest.":nifok|
00029a90  25 3d 31 3a f2 64 65 63  69 64 65 70 69 63 73 0d  |%=1:.decidepics.|
00029aa0  a0 14 a1 c9 20 37 38 20  3a 20 e7 20 66 69 72 65  |.... 78 : . fire|
00029ab0  25 3e 30 20 74 24 3d 22  59 6f 75 20 73 68 6f 75  |%>0 t$="You shou|
00029ac0  6c 64 20 6b 6e 6f 77 20  62 79 20 6e 6f 77 20 74  |ld know by now t|
00029ad0  68 61 74 20 6c 69 74 74  6c 65 20 6b 69 64 73 20  |hat little kids |
00029ae0  61 72 65 20 64 61 6e 67  65 72 6f 75 73 2e 20 48  |are dangerous. H|
00029af0  65 20 70 75 6c 6c 73 20  6f 75 74 20 61 6e 20 61  |e pulls out an a|
00029b00  75 74 6f 6d 61 74 69 63  20 72 69 66 6c 65 20 61  |utomatic rifle a|
00029b10  6e 64 20 66 69 6c 6c 73  20 79 6f 75 20 77 69 74  |nd fills you wit|
00029b20  68 20 62 75 6c 6c 65 74  73 2e 22 3a 6e 69 66 6f  |h bullets.":nifo|
00029b30  6b 25 3d 31 3a f2 64 65  63 69 64 65 70 69 63 73  |k%=1:.decidepics|
00029b40  0d a0 1e 67 c9 20 38 32  2c 33 31 30 2c 32 35 30  |...g. 82,310,250|
00029b50  2c 33 30 31 2c 33 30 32  2c 32 34 39 2c 32 36 36  |,301,302,249,266|
00029b60  20 3a 20 74 24 3d 22 54  68 65 20 77 6f 6d 61 6e  | : t$="The woman|
00029b70  20 67 69 76 65 73 20 79  6f 75 20 61 20 73 74 65  | gives you a ste|
00029b80  72 6e 20 6c 6f 6f 6b 20  61 6e 64 20 79 6f 75 20  |rn look and you |
00029b90  73 74 6f 70 20 62 65 69  6e 67 20 73 6f 20 76 69  |stop being so vi|
00029ba0  6f 6c 65 6e 74 2e 22 0d  a0 28 55 c9 20 38 34 20  |olent."..(U. 84 |
00029bb0  3a 20 74 24 3d 22 54 68  65 20 6f 6c 64 20 6d 61  |: t$="The old ma|
00029bc0  6e 20 74 75 72 6e 73 20  72 6f 75 6e 64 20 74 6f  |n turns round to|
00029bd0  20 79 6f 75 20 61 6e 64  20 61 73 6b 73 20 79 6f  | you and asks yo|
00029be0  75 20 6e 6f 74 20 74 6f  20 62 65 20 73 6f 20 64  |u not to be so d|
00029bf0  65 73 74 72 75 63 74 69  76 65 2e 22 0d a0 32 34  |estructive."..24|
00029c00  c9 20 38 35 20 3a 20 74  24 3d 22 59 6f 75 20 61  |. 85 : t$="You a|
00029c10  72 65 20 74 6f 6f 20 66  61 72 20 61 77 61 79 20  |re too far away |
00029c20  66 72 6f 6d 20 74 68 65  20 67 75 61 72 64 2e 22  |from the guard."|
00029c30  0d a0 3c 83 c9 20 33 31  32 2c 32 34 38 2c 32 38  |..<.. 312,248,28|
00029c40  31 20 3a 20 74 24 3d 22  54 68 65 20 6d 61 6e 20  |1 : t$="The man |
00029c50  6c 6f 6f 6b 73 20 61 74  20 79 6f 75 20 63 61 6c  |looks at you cal|
00029c60  6d 6c 79 2c 20 70 75 6c  6c 73 20 6f 75 74 20 61  |mly, pulls out a|
00029c70  20 6d 61 63 68 69 6e 65  20 67 75 6e 20 61 6e 64  | machine gun and|
00029c80  20 74 75 72 6e 73 20 79  6f 75 20 69 6e 74 6f 20  | turns you into |
00029c90  73 77 69 73 73 20 63 68  65 65 73 65 2e 22 3a 6e  |swiss cheese.":n|
00029ca0  69 66 6f 6b 25 3d 31 3a  f2 64 65 63 69 64 65 70  |ifok%=1:.decidep|
00029cb0  69 63 73 0d a0 46 41 c9  20 32 32 36 20 3a 20 74  |ics..FA. 226 : t|
00029cc0  24 3d 22 54 68 65 20 6c  69 74 74 6c 65 20 67 69  |$="The little gi|
00029cd0  72 6c 20 73 74 61 72 74  73 20 73 63 72 65 61 6d  |rl starts scream|
00029ce0  69 6e 67 20 75 6e 63 6f  6e 74 72 6f 6c 6c 61 62  |ing uncontrollab|
00029cf0  6c 79 2e 22 0d a0 50 51  c9 20 32 35 33 20 3a 20  |ly."..PQ. 253 : |
00029d00  74 24 3d 22 41 73 20 79  6f 75 20 61 72 65 20 61  |t$="As you are a|
00029d10  62 6f 75 74 20 74 6f 20  68 69 74 20 68 65 72 2c  |bout to hit her,|
00029d20  20 74 68 65 20 6f 6c 64  20 77 6f 6d 61 6e 20 76  | the old woman v|
00029d30  6f 6d 69 74 73 20 69 6e  74 6f 20 74 68 65 20 73  |omits into the s|
00029d40  6f 66 61 2e 22 0d a0 5a  05 cb 0d a0 64 2f e7 20  |ofa."..Z....d/. |
00029d50  70 6f 6c 69 63 65 25 28  31 29 3d 72 6f 6f 6d 6e  |police%(1)=roomn|
00029d60  6f 25 20 84 20 70 6f 6c  69 63 65 25 28 32 29 3d  |o% . police%(2)=|
00029d70  72 6f 6f 6d 6e 6f 25 20  8c 0d a0 6e b2 74 24 3d  |roomno% ...n.t$=|
00029d80  22 27 4f 68 21 2c 20 79  6f 75 27 72 65 20 6e 6f  |"'Oh!, you're no|
00029d90  74 20 61 20 6e 65 77 20  72 65 63 72 75 69 74 20  |t a new recruit |
00029da0  61 66 74 65 72 20 61 6c  6c 21 20 59 6f 75 27 72  |after all! You'r|
00029db0  65 20 74 68 61 74 20 70  72 69 73 6f 6e 65 72 21  |e that prisoner!|
00029dc0  27 20 74 68 65 20 70 6f  6c 69 63 65 6d 61 6e 20  |' the policeman |
00029dd0  63 72 69 65 73 2e 20 48  65 20 77 68 61 63 6b 73  |cries. He whacks|
00029de0  20 79 6f 75 20 6f 76 65  72 20 74 68 65 20 68 65  | you over the he|
00029df0  61 64 20 77 69 74 68 20  68 69 73 20 74 72 75 6e  |ad with his trun|
00029e00  63 68 65 6f 6e 2c 20 6d  61 79 62 65 20 61 20 6c  |cheon, maybe a l|
00029e10  69 74 74 6c 65 20 74 6f  6f 20 68 61 72 64 2e 20  |ittle too hard. |
00029e20  42 6c 61 63 6b 6e 65 73  73 2e 22 0d a0 78 18 6e  |Blackness."..x.n|
00029e30  69 66 6f 6b 25 3d 31 3a  f2 64 65 63 69 64 65 70  |ifok%=1:.decidep|
00029e40  69 63 73 0d a0 82 05 cd  0d a0 8c 0c f2 61 64 64  |ics..........add|
00029e50  28 74 24 29 0d a0 96 05  e1 0d a0 a0 04 0d a0 aa  |(t$)............|
00029e60  09 dd f2 6c 75 76 0d a0  b4 0d c8 8e 20 b3 28 34  |...luv...... .(4|
00029e70  29 20 ca 0d a0 be 26 20  20 c9 20 31 20 3a 20 74  |) ....&  . 1 : t|
00029e80  24 3d 22 54 68 65 20 66  65 65 6c 69 6e 67 27 73  |$="The feeling's|
00029e90  20 6d 75 74 75 61 6c 2e  22 0d a0 c8 20 20 20 c9  | mutual."...   .|
00029ea0  20 32 20 3a 20 74 24 3d  22 49 20 6c 6f 76 65 20  | 2 : t$="I love |
00029eb0  79 6f 75 20 74 6f 6f 2e  22 0d a0 d2 2b 20 20 c9  |you too."...+  .|
00029ec0  20 33 20 3a 20 74 24 3d  22 57 65 27 64 20 6d 61  | 3 : t$="We'd ma|
00029ed0  6b 65 20 61 20 6c 6f 76  65 6c 79 20 63 6f 75 70  |ke a lovely coup|
00029ee0  6c 65 2e 22 0d a0 dc 3a  20 20 c9 20 34 20 3a 20  |le."...:  . 4 : |
00029ef0  74 24 3d 22 48 61 76 65  20 49 20 65 76 65 72 20  |t$="Have I ever |
00029f00  74 6f 6c 64 20 79 6f 75  20 68 6f 77 20 70 72 65  |told you how pre|
00029f10  74 74 79 20 79 6f 75 20  6c 6f 6f 6b 3f 22 0d a0  |tty you look?"..|
00029f20  e6 05 cb 0d a0 f0 0c f2  61 64 64 28 74 24 29 0d  |........add(t$).|
00029f30  a0 fa 05 e1 0d a1 04 04  0d a1 0e 09 dd f2 73 61  |..............sa|
00029f40  79 0d a1 18 1f 74 24 3d  22 27 22 2b c1 69 24 2c  |y....t$="'"+.i$,|
00029f50  35 2c a9 28 69 24 29 2d  34 29 2b 22 27 2e 20 22  |5,.(i$)-4)+"'. "|
00029f60  0d a1 22 10 c8 8e 20 72  6f 6f 6d 6e 6f 25 20 ca  |.."... roomno% .|
00029f70  0d a1 2c 26 c9 20 31 20  3a 20 74 24 2b 3d 22 54  |..,&. 1 : t$+="T|
00029f80  68 65 20 70 65 6f 70 6c  65 20 69 67 6e 6f 72 65  |he people ignore|
00029f90  20 79 6f 75 2e 22 0d a1  36 2b c9 20 31 35 2c 33  | you."..6+. 15,3|
00029fa0  30 35 20 3a 20 74 24 2b  3d 22 54 68 65 20 67 75  |05 : t$+="The gu|
00029fb0  61 72 64 20 69 67 6e 6f  72 65 73 20 79 6f 75 2e  |ard ignores you.|
00029fc0  22 0d a1 40 30 c9 20 32  39 20 3a 20 74 24 2b 3d  |"..@0. 29 : t$+=|
00029fd0  22 54 68 65 20 62 61 6b  65 72 20 6c 6f 6f 6b 73  |"The baker looks|
00029fe0  20 61 74 20 79 6f 75 20  62 6c 61 6e 6b 6c 79 2e  | at you blankly.|
00029ff0  22 0d a1 4a 32 c9 20 33  30 20 3a 20 74 24 2b 3d  |"..J2. 30 : t$+=|
0002a000  22 54 68 65 20 62 75 74  63 68 65 72 20 6c 6f 6f  |"The butcher loo|
0002a010  6b 73 20 61 74 20 79 6f  75 20 62 6c 61 6e 6b 6c  |ks at you blankl|
0002a020  79 2e 22 0d a1 54 66 c9  20 33 37 2c 35 30 2c 35  |y."..Tf. 37,50,5|
0002a030  32 2c 36 34 2c 37 32 2c  37 33 2c 37 36 2c 38 31  |2,64,72,73,76,81|
0002a040  2c 38 32 2c 38 34 2c 33  31 30 2c 33 31 32 2c 32  |,82,84,310,312,2|
0002a050  36 36 2c 32 34 38 2c 32  34 39 2c 32 35 30 2c 32  |66,248,249,250,2|
0002a060  35 33 2c 33 30 31 2c 33  30 32 2c 32 38 31 2c 32  |53,301,302,281,2|
0002a070  32 36 3a 74 24 2b 3d 22  59 6f 75 20 61 72 65 20  |26:t$+="You are |
0002a080  69 67 6e 6f 72 65 64 2e  22 0d a1 5e 2f c9 20 37  |ignored."..^/. 7|
0002a090  38 20 3a 20 e7 20 66 69  72 65 25 3e 30 20 74 24  |8 : . fire%>0 t$|
0002a0a0  2b 3d 22 54 68 65 20 6b  69 64 20 69 67 6e 6f 72  |+="The kid ignor|
0002a0b0  65 73 20 79 6f 75 2e 22  0d a1 68 5a c9 20 38 35  |es you."..hZ. 85|
0002a0c0  20 3a 20 e7 20 64 72 75  67 67 65 64 25 3d 30 20  | : . drugged%=0 |
0002a0d0  74 24 2b 3d 22 54 68 65  20 67 75 61 72 64 20 69  |t$+="The guard i|
0002a0e0  67 6e 6f 72 65 73 20 79  6f 75 2e 22 20 8b 20 74  |gnores you." . t|
0002a0f0  24 2b 3d 22 54 68 65 20  67 75 61 72 64 20 73 74  |$+="The guard st|
0002a100  69 72 73 20 69 6e 20 68  69 73 20 73 6c 65 65 70  |irs in his sleep|
0002a110  2e 22 0d a1 72 1f 7f 20  3a 20 74 24 2b 3d 22 4e  |."..r.. : t$+="N|
0002a120  6f 2d 6f 6e 65 20 68 65  61 72 73 20 79 6f 75 2e  |o-one hears you.|
0002a130  22 0d a1 7c 05 cb 0d a1  86 57 e7 20 72 6f 6f 6d  |"..|.....W. room|
0002a140  6e 6f 25 3d 70 6f 6c 69  63 65 25 28 31 29 20 84  |no%=police%(1) .|
0002a150  20 72 6f 6f 6d 6e 6f 25  3d 70 6f 6c 69 63 65 25  | roomno%=police%|
0002a160  28 32 29 20 74 24 2b 3d  22 54 68 65 20 70 6f 6c  |(2) t$+="The pol|
0002a170  69 63 65 6d 61 6e 20 6c  6f 6f 6b 73 20 61 74 20  |iceman looks at |
0002a180  79 6f 75 20 62 6c 61 6e  6b 6c 79 2e 22 0d a1 90  |you blankly."...|
0002a190  0c f2 61 64 64 28 74 24  29 0d a1 9a 05 e1 0d a1  |..add(t$).......|
0002a1a0  a4 04 0d a1 ae 0b dd f2  70 72 69 6e 74 0d a1 b8  |........print...|
0002a1b0  1f f2 61 64 64 28 22 22  2b c1 69 24 2c 37 2c a9  |..add(""+.i$,7,.|
0002a1c0  28 69 24 29 2d 36 29 2b  22 2e 22 29 0d a1 c2 05  |(i$)-6)+".")....|
0002a1d0  e1 0d a1 cc 04 0d a1 d6  0a dd f2 74 65 6c 6c 0d  |...........tell.|
0002a1e0  a1 e0 2d 74 24 3d 22 54  68 65 72 65 20 69 73 20  |..-t$="There is |
0002a1f0  6e 6f 2d 6f 6e 65 20 74  6f 20 74 65 6c 6c 20 61  |no-one to tell a|
0002a200  6e 79 74 68 69 6e 67 20  74 6f 2e 22 0d a1 ea 10  |nything to."....|
0002a210  c8 8e 20 72 6f 6f 6d 6e  6f 25 20 ca 0d a1 f4 25  |.. roomno% ....%|
0002a220  c9 20 31 20 3a 20 74 24  3d 22 54 68 65 20 70 65  |. 1 : t$="The pe|
0002a230  6f 70 6c 65 20 69 67 6e  6f 72 65 20 79 6f 75 2e  |ople ignore you.|
0002a240  22 0d a1 fe 2a c9 20 31  35 2c 33 30 35 20 3a 20  |"...*. 15,305 : |
0002a250  74 24 3d 22 54 68 65 20  67 75 61 72 64 20 69 67  |t$="The guard ig|
0002a260  6e 6f 72 65 73 20 79 6f  75 2e 22 0d a2 08 2f c9  |nores you.".../.|
0002a270  20 32 39 20 3a 20 74 24  3d 22 54 68 65 20 62 61  | 29 : t$="The ba|
0002a280  6b 65 72 20 6c 6f 6f 6b  73 20 61 74 20 79 6f 75  |ker looks at you|
0002a290  20 62 6c 61 6e 6b 6c 79  2e 22 0d a2 12 31 c9 20  | blankly."...1. |
0002a2a0  33 30 20 3a 20 74 24 3d  22 54 68 65 20 62 75 74  |30 : t$="The but|
0002a2b0  63 68 65 72 20 6c 6f 6f  6b 73 20 61 74 20 79 6f  |cher looks at yo|
0002a2c0  75 20 62 6c 61 6e 6b 6c  79 2e 22 0d a2 1c 65 c9  |u blankly."...e.|
0002a2d0  20 33 37 2c 35 30 2c 35  32 2c 36 34 2c 37 32 2c  | 37,50,52,64,72,|
0002a2e0  37 33 2c 37 36 2c 38 31  2c 38 32 2c 38 34 2c 33  |73,76,81,82,84,3|
0002a2f0  31 30 2c 33 31 32 2c 32  36 36 2c 32 34 38 2c 32  |10,312,266,248,2|
0002a300  34 39 2c 32 35 30 2c 32  35 33 2c 33 30 31 2c 33  |49,250,253,301,3|
0002a310  30 32 2c 32 38 31 2c 32  36 36 3a 74 24 3d 22 59  |02,281,266:t$="Y|
0002a320  6f 75 20 61 72 65 20 69  67 6e 6f 72 65 64 2e 22  |ou are ignored."|
0002a330  0d a2 26 2e c9 20 37 38  20 3a 20 e7 20 66 69 72  |..&.. 78 : . fir|
0002a340  65 25 3e 30 20 74 24 3d  22 54 68 65 20 6b 69 64  |e%>0 t$="The kid|
0002a350  20 69 67 6e 6f 72 65 73  20 79 6f 75 2e 22 0d a2  | ignores you."..|
0002a360  30 18 c9 20 38 35 20 3a  20 c8 8e 20 64 72 75 67  |0.. 85 : .. drug|
0002a370  67 65 64 25 20 ca 0d a2  3a 2e c9 20 30 20 3a 20  |ged% ...:.. 0 : |
0002a380  74 24 3d 22 54 68 65 20  67 75 61 72 64 20 6c 6f  |t$="The guard lo|
0002a390  6f 6b 73 20 61 74 20 79  6f 75 20 62 6c 61 6e 6b  |oks at you blank|
0002a3a0  6c 79 2e 22 0d a2 44 2c  c9 20 31 20 3a 20 74 24  |ly."..D,. 1 : t$|
0002a3b0  3d 22 54 68 65 20 67 75  61 72 64 20 73 74 69 72  |="The guard stir|
0002a3c0  73 20 69 6e 20 68 69 73  20 73 6c 65 65 70 2e 22  |s in his sleep."|
0002a3d0  0d a2 4e 05 cb 0d a2 58  05 cb 0d a2 62 56 e7 20  |..N....X....bV. |
0002a3e0  70 6f 6c 69 63 65 25 28  31 29 3d 72 6f 6f 6d 6e  |police%(1)=roomn|
0002a3f0  6f 25 20 84 20 70 6f 6c  69 63 65 25 28 32 29 3d  |o% . police%(2)=|
0002a400  72 6f 6f 6d 6e 6f 25 20  74 24 3d 22 54 68 65 20  |roomno% t$="The |
0002a410  70 6f 6c 69 63 65 6d 61  6e 20 6c 6f 6f 6b 73 20  |policeman looks |
0002a420  61 74 20 79 6f 75 20 62  6c 61 6e 6b 6c 79 2e 22  |at you blankly."|
0002a430  0d a2 6c 0c f2 61 64 64  28 74 24 29 0d a2 76 05  |..l..add(t$)..v.|
0002a440  e1 0d a2 80 04 0d a2 8a  0b dd f2 68 65 6c 6c 6f  |...........hello|
0002a450  0d a2 94 0d c8 8e 20 b3  28 37 29 20 ca 0d a2 9e  |...... .(7) ....|
0002a460  22 20 20 c9 20 31 20 3a  20 74 24 3d 22 47 6f 6f  |"  . 1 : t$="Goo|
0002a470  64 61 79 2c 20 6d 79 20  66 72 69 65 6e 64 22 0d  |day, my friend".|
0002a480  a2 a8 21 20 20 c9 20 32  20 3a 20 74 24 3d 22 42  |..!  . 2 : t$="B|
0002a490  6f 6e 6a 6f 75 72 2c 20  6d 6f 6e 20 61 6d 69 22  |onjour, mon ami"|
0002a4a0  0d a2 b2 20 20 20 c9 20  33 20 3a 20 74 24 3d 22  |...   . 3 : t$="|
0002a4b0  59 6f 2c 20 6d 79 20 6d  61 69 6e 20 6d 61 6e 22  |Yo, my main man"|
0002a4c0  0d a2 bc 1a 20 20 c9 20  34 20 3a 20 74 24 3d 22  |....  . 4 : t$="|
0002a4d0  47 72 65 65 74 69 6e 67  73 22 0d a2 c6 2f 20 20  |Greetings".../  |
0002a4e0  c9 20 35 20 3a 20 74 24  3d 22 54 68 61 74 27 73  |. 5 : t$="That's|
0002a4f0  20 74 68 65 20 67 72 65  65 74 69 6e 67 73 20 6f  | the greetings o|
0002a500  76 65 72 20 77 69 74 68  22 0d a2 d0 28 20 20 c9  |ver with"...(  .|
0002a510  20 36 20 3a 20 74 24 3d  22 48 65 6c 6c 6f 2c 20  | 6 : t$="Hello, |
0002a520  6e 69 63 65 20 74 6f 20  6d 65 65 74 20 79 6f 75  |nice to meet you|
0002a530  22 0d a2 da 25 20 20 c9  20 37 20 3a 20 74 24 3d  |"...%  . 7 : t$=|
0002a540  22 48 69 2c 20 67 72 65  61 74 20 74 6f 20 73 65  |"Hi, great to se|
0002a550  65 20 79 6f 75 22 0d a2  e4 05 cb 0d a2 ee 0d c8  |e you"..........|
0002a560  8e 20 b3 28 36 29 20 ca  0d a2 f8 26 20 20 c9 20  |. .(6) ....&  . |
0002a570  31 20 3a 20 74 24 2b 3d  22 2c 20 79 6f 75 72 20  |1 : t$+=", your |
0002a580  71 75 65 73 74 20 61 77  61 69 74 73 2e 22 0d a3  |quest awaits."..|
0002a590  02 13 20 20 c9 20 32 20  3a 20 74 24 2b 3d 22 2e  |..  . 2 : t$+=".|
0002a5a0  22 0d a3 0c 27 20 20 c9  20 33 20 3a 20 74 24 2b  |"...'  . 3 : t$+|
0002a5b0  3d 22 2c 20 74 65 6c 6c  20 6d 65 20 65 76 65 72  |=", tell me ever|
0002a5c0  79 74 68 69 6e 67 2e 22  0d a3 16 1f 20 20 c9 20  |ything."....  . |
0002a5d0  34 20 3a 20 74 24 2b 3d  22 2c 20 74 61 6c 6b 20  |4 : t$+=", talk |
0002a5e0  74 6f 20 6d 65 2e 22 0d  a3 20 31 20 20 c9 20 35  |to me.".. 1  . 5|
0002a5f0  20 3a 20 74 24 2b 3d 22  2c 20 68 6f 70 65 20 79  | : t$+=", hope y|
0002a600  6f 75 20 65 6e 6a 6f 79  20 74 68 65 20 61 64 76  |ou enjoy the adv|
0002a610  65 6e 74 75 72 65 2e 22  0d a3 2a 2e 20 20 c9 20  |enture."..*.  . |
0002a620  36 20 3a 20 74 24 2b 3d  22 2c 20 68 6f 77 20 61  |6 : t$+=", how a|
0002a630  72 65 20 79 6f 75 20 66  65 65 6c 69 6e 67 20 74  |re you feeling t|
0002a640  6f 64 61 79 3f 22 0d a3  34 05 cb 0d a3 3e 0c f2  |oday?"..4....>..|
0002a650  61 64 64 28 74 24 29 0d  a3 48 05 e1 0d a3 52 04  |add(t$)..H....R.|
0002a660  0d a3 5c 0b dd f2 74 65  6e 73 65 0d a3 66 0d c8  |..\...tense..f..|
0002a670  8e 20 b3 28 36 29 20 ca  0d a3 70 2f 20 20 c9 20  |. .(6) ...p/  . |
0002a680  31 20 3a 20 74 24 3d 22  46 65 65 6c 69 6e 67 20  |1 : t$="Feeling |
0002a690  61 20 6c 69 74 74 6c 65  20 74 65 6e 73 65 20 61  |a little tense a|
0002a6a0  72 65 20 77 65 3f 22 0d  a3 7a 26 20 20 c9 20 32  |re we?"..z&  . 2|
0002a6b0  20 3a 20 74 24 3d 22 57  68 61 74 27 73 20 75 70  | : t$="What's up|
0002a6c0  73 65 74 74 69 6e 67 20  79 6f 75 3f 22 0d a3 84  |setting you?"...|
0002a6d0  3a 20 20 c9 20 33 20 3a  20 74 24 3d 22 49 20 6e  |:  . 3 : t$="I n|
0002a6e0  6f 74 69 63 65 20 74 68  61 74 20 79 6f 75 27 72  |otice that you'r|
0002a6f0  65 20 61 20 6c 69 74 74  6c 65 20 75 70 73 65 74  |e a little upset|
0002a700  2e 20 57 68 79 3f 22 0d  a3 8e 22 20 20 c9 20 34  |. Why?"..."  . 4|
0002a710  20 3a 20 74 24 3d 22 44  6f 6e 27 74 20 62 65 20  | : t$="Don't be |
0002a720  61 6e 6e 6f 79 65 64 2e  22 0d a3 98 2d 20 20 c9  |annoyed."...-  .|
0002a730  20 35 20 3a 20 74 24 3d  22 57 68 61 74 27 73 20  | 5 : t$="What's |
0002a740  70 75 74 20 79 6f 75 20  69 6e 20 74 68 69 73 20  |put you in this |
0002a750  6d 6f 6f 64 3f 22 0d a3  a2 28 20 20 c9 20 36 20  |mood?"...(  . 6 |
0002a760  3a 20 74 24 3d 22 4e 6f  20 6e 65 65 64 20 74 6f  |: t$="No need to|
0002a770  20 67 65 74 20 73 74 72  6f 70 70 79 2e 22 0d a3  | get stroppy."..|
0002a780  ac 05 cb 0d a3 b6 0c f2  61 64 64 28 74 24 29 0d  |........add(t$).|
0002a790  a3 c0 05 e1 0d a3 ca 04  0d a3 d4 09 dd f2 62 79  |..............by|
0002a7a0  65 0d a3 de 0d c8 8e 20  b3 28 36 29 20 ca 0d a3  |e...... .(6) ...|
0002a7b0  e8 1f 20 20 c9 20 31 20  3a 20 74 24 3d 22 47 6f  |..  . 1 : t$="Go|
0002a7c0  69 6e 67 20 73 6f 20 73  6f 6f 6e 3f 22 0d a3 f2  |ing so soon?"...|
0002a7d0  20 20 20 c9 20 32 20 3a  20 74 24 3d 22 44 6f 6e  |   . 2 : t$="Don|
0002a7e0  27 74 20 6c 65 61 76 65  20 6d 65 2e 22 0d a3 fc  |'t leave me."...|
0002a7f0  25 20 20 c9 20 33 20 3a  20 74 24 3d 22 4d 69 73  |%  . 3 : t$="Mis|
0002a800  73 69 6e 67 20 79 6f 75  20 61 6c 72 65 61 64 79  |sing you already|
0002a810  2e 22 0d a4 06 21 20 20  c9 20 34 20 3a 20 74 24  |."...!  . 4 : t$|
0002a820  3d 22 48 61 76 65 20 61  20 6e 69 63 65 20 64 61  |="Have a nice da|
0002a830  79 2e 22 0d a4 10 1b 20  20 c9 20 35 20 3a 20 74  |y."....  . 5 : t|
0002a840  24 3d 22 41 75 20 72 65  76 6f 69 72 2e 22 0d a4  |$="Au revoir."..|
0002a850  1a 2d 20 20 c9 20 36 20  3a 20 74 24 3d 22 49 20  |.-  . 6 : t$="I |
0002a860  68 6f 70 65 20 79 6f 75  20 65 6e 6a 6f 79 65 64  |hope you enjoyed|
0002a870  20 79 6f 75 72 73 65 6c  66 2e 22 0d a4 24 05 cb  | yourself."..$..|
0002a880  0d a4 2e 0c f2 61 64 64  28 74 24 29 0d a4 38 05  |.....add(t$)..8.|
0002a890  e1 0d a4 42 04 0d a4 4c  0b dd f2 74 68 61 6e 6b  |...B...L...thank|
0002a8a0  0d a4 56 0d c8 8e 20 b3  28 35 29 20 ca 0d a4 60  |..V... .(5) ...`|
0002a8b0  38 20 20 c9 20 31 20 3a  20 74 24 3d 22 49 74 27  |8  . 1 : t$="It'|
0002a8c0  73 20 67 6f 6f 64 20 74  6f 20 68 65 61 72 20 74  |s good to hear t|
0002a8d0  68 61 74 20 79 6f 75 27  72 65 20 67 72 61 74 65  |hat you're grate|
0002a8e0  66 75 6c 2e 22 0d a4 6a  1c 20 20 c9 20 32 20 3a  |ful."..j.  . 2 :|
0002a8f0  20 74 24 3d 22 4e 6f 20  70 72 6f 62 6c 65 6d 2e  | t$="No problem.|
0002a900  22 0d a4 74 1b 20 20 c9  20 33 20 3a 20 74 24 3d  |"..t.  . 3 : t$=|
0002a910  22 54 68 61 74 27 73 20  6f 6b 2e 22 0d a4 7e 1a  |"That's ok."..~.|
0002a920  20 20 c9 20 34 20 3a 20  74 24 3d 22 41 6e 79 20  |  . 4 : t$="Any |
0002a930  74 69 6d 65 2e 22 0d a4  88 2c 20 20 c9 20 35 20  |time."...,  . 5 |
0002a940  3a 20 74 24 3d 22 4d 79  20 67 6f 6f 64 6e 65 73  |: t$="My goodnes|
0002a950  73 2c 20 79 6f 75 27 72  65 20 70 6f 6c 69 74 65  |s, you're polite|
0002a960  2e 22 0d a4 92 05 cb 0d  a4 9c 0c f2 61 64 64 28  |."..........add(|
0002a970  74 24 29 0d a4 a6 05 e1  0d a4 b0 04 0d a4 ba 0b  |t$).............|
0002a980  dd f2 68 6c 69 6e 67 0d  a4 c4 0d c8 8e 20 b3 28  |..hling...... .(|
0002a990  34 29 20 ca 0d a4 ce 2f  20 20 c9 20 31 20 3a 20  |4) ..../  . 1 : |
0002a9a0  74 24 3d 22 57 68 61 74  20 61 20 6c 6f 76 65 6c  |t$="What a lovel|
0002a9b0  79 20 66 6f 72 65 69 67  6e 20 77 65 6c 63 6f 6d  |y foreign welcom|
0002a9c0  65 21 22 0d a4 d8 3e 20  20 c9 20 32 20 3a 20 74  |e!"...>  . 2 : t|
0002a9d0  24 3d 22 59 65 73 2c 20  61 6e 64 20 68 65 6c 6c  |$="Yes, and hell|
0002a9e0  6f 20 74 6f 20 79 6f 75  20 74 6f 6f 2c 20 6d 79  |o to you too, my|
0002a9f0  20 66 6f 72 65 69 67 6e  20 66 72 69 65 6e 64 2e  | foreign friend.|
0002aa00  22 0d a4 e2 24 20 20 c9  20 33 20 3a 20 74 24 3d  |"...$  . 3 : t$=|
0002aa10  22 57 65 6c 63 6f 6d 65  20 74 6f 20 42 72 69 74  |"Welcome to Brit|
0002aa20  61 69 6e 2e 22 0d a4 ec  32 20 20 c9 20 34 20 3a  |ain."...2  . 4 :|
0002aa30  20 74 24 3d 22 49 20 68  6f 70 65 20 79 6f 75 20  | t$="I hope you |
0002aa40  65 6e 6a 6f 79 20 79 6f  75 72 20 76 69 73 69 74  |enjoy your visit|
0002aa50  20 68 65 72 65 2e 22 0d  a4 f6 05 cb 0d a5 00 0c  | here.".........|
0002aa60  f2 61 64 64 28 74 24 29  0d a5 0a 05 e1 0d a5 14  |.add(t$)........|
0002aa70  04 0d a5 1e 0b dd f2 67  6c 69 6e 67 0d a5 28 0d  |.......gling..(.|
0002aa80  c8 8e 20 b3 28 35 29 20  ca 0d a5 32 34 20 20 c9  |.. .(5) ...24  .|
0002aa90  20 31 20 3a 20 74 24 3d  22 4f 68 2c 20 6d 79 20  | 1 : t$="Oh, my |
0002aaa0  66 6f 72 65 69 67 6e 20  66 72 69 65 6e 64 2c 20  |foreign friend, |
0002aab0  64 6f 6e 27 74 20 6c 65  61 76 65 2e 22 0d a5 3c  |don't leave."..<|
0002aac0  3e 20 20 c9 20 32 20 3a  20 74 24 3d 22 49 27 6d  |>  . 2 : t$="I'm|
0002aad0  20 73 75 72 65 20 79 6f  75 20 64 6f 6e 27 74 20  | sure you don't |
0002aae0  72 65 61 6c 6c 79 20 77  61 6e 74 20 74 6f 20 67  |really want to g|
0002aaf0  6f 20 73 6f 20 73 6f 6f  6e 2e 22 0d a5 46 2a 20  |o so soon."..F* |
0002ab00  20 c9 20 33 20 3a 20 74  24 3d 22 44 6f 20 79 6f  | . 3 : t$="Do yo|
0002ab10  75 20 72 65 61 6c 6c 79  20 68 61 76 65 20 74 6f  |u really have to|
0002ab20  20 67 6f 3f 22 0d a5 50  25 20 20 c9 20 34 20 3a  | go?"..P%  . 4 :|
0002ab30  20 74 24 3d 22 4d 69 73  73 69 6e 67 20 79 6f 75  | t$="Missing you|
0002ab40  20 61 6c 72 65 61 64 79  21 22 0d a5 5a 24 20 20  | already!"..Z$  |
0002ab50  c9 20 35 20 3a 20 74 24  3d 22 41 75 20 72 65 76  |. 5 : t$="Au rev|
0002ab60  6f 69 72 2c 20 6d 6f 6e  20 61 6d 69 2e 22 0d a5  |oir, mon ami."..|
0002ab70  64 05 cb 0d a5 6e 0c f2  61 64 64 28 74 24 29 0d  |d....n..add(t$).|
0002ab80  a5 78 05 e1 0d a5 82 04  0d a5 8c 08 dd f2 6e 6f  |.x............no|
0002ab90  0d a5 96 0d c8 8e 20 b3  28 35 29 20 ca 0d a5 a0  |...... .(5) ....|
0002aba0  26 20 20 c9 20 31 20 3a  20 74 24 3d 22 44 6f 6e  |&  . 1 : t$="Don|
0002abb0  27 74 20 62 65 20 73 6f  20 6e 65 67 61 74 69 76  |'t be so negativ|
0002abc0  65 2e 22 0d a5 aa 34 20  20 c9 20 32 20 3a 20 74  |e."...4  . 2 : t|
0002abd0  24 3d 22 57 68 79 20 64  6f 6e 27 74 20 79 6f 75  |$="Why don't you|
0002abe0  20 73 61 79 20 79 65 73  20 66 6f 72 20 61 20 63  | say yes for a c|
0002abf0  68 61 6e 67 65 3f 22 0d  a5 b4 46 20 20 c9 20 33  |hange?"...F  . 3|
0002ac00  20 3a 20 74 24 3d 22 49  20 63 61 6e 20 73 61 79  | : t$="I can say|
0002ac10  20 27 6e 6f 27 20 69 6e  20 46 72 65 6e 63 68 20  | 'no' in French |
0002ac20  74 6f 6f 20 2d 20 27 4e  6f 6e 27 20 28 49 27 6d  |too - 'Non' (I'm|
0002ac30  20 73 6f 20 63 6c 65 76  65 72 29 2e 22 0d a5 be  | so clever)."...|
0002ac40  4c 20 20 c9 20 34 20 3a  20 74 24 3d 22 43 61 6e  |L  . 4 : t$="Can|
0002ac50  20 79 6f 75 20 73 61 79  20 27 6e 6f 27 20 69 6e  | you say 'no' in|
0002ac60  20 47 65 72 6d 61 6e 3f  20 28 54 72 79 20 6e 65  | German? (Try ne|
0002ac70  69 6e 20 69 66 20 79 6f  75 27 72 65 20 74 6f 6f  |in if you're too|
0002ac80  20 74 68 69 63 6b 29 2e  22 0d a5 c8 3a 20 20 c9  | thick)."...:  .|
0002ac90  20 35 20 3a 20 74 24 3d  22 49 73 20 27 6e 6f 27  | 5 : t$="Is 'no'|
0002aca0  20 79 6f 75 72 20 66 61  76 6f 75 72 69 74 65 20  | your favourite |
0002acb0  77 6f 72 64 20 6f 72 20  73 6f 6d 65 74 68 69 6e  |word or somethin|
0002acc0  67 3f 22 0d a5 d2 05 cb  0d a5 dc 0c f2 61 64 64  |g?"..........add|
0002acd0  28 74 24 29 0d a5 e6 05  e1 0d a5 f0 04 0d a5 fa  |(t$)............|
0002ace0  09 dd f2 79 65 73 0d a6  04 0d c8 8e 20 b3 28 35  |...yes...... .(5|
0002acf0  29 20 ca 0d a6 0e 1c 20  20 c9 20 31 20 3a 20 74  |) .....  . 1 : t|
0002ad00  24 3d 22 4a 6f 6c 6c 79  20 67 6f 6f 64 2e 22 0d  |$="Jolly good.".|
0002ad10  a6 18 24 20 20 c9 20 32  20 3a 20 74 24 3d 22 49  |..$  . 2 : t$="I|
0002ad20  27 6d 20 67 6c 61 64 20  79 6f 75 20 61 67 72 65  |'m glad you agre|
0002ad30  65 2e 22 0d a6 22 1f 20  20 c9 20 33 20 3a 20 74  |e."..".  . 3 : t|
0002ad40  24 3d 22 4f 75 69 2c 20  6f 75 69 2c 20 6f 75 69  |$="Oui, oui, oui|
0002ad50  2e 22 0d a6 2c 19 20 20  c9 20 34 20 3a 20 74 24  |."..,.  . 4 : t$|
0002ad60  3d 22 50 65 72 66 69 63  6b 2e 22 0d a6 36 35 20  |="Perfick."..65 |
0002ad70  20 c9 20 35 20 3a 20 74  24 3d 22 49 27 6d 20 73  | . 5 : t$="I'm s|
0002ad80  6f 20 68 61 70 70 79 20  74 68 61 74 20 79 6f 75  |o happy that you|
0002ad90  20 6a 75 73 74 20 73 61  69 64 20 79 65 73 2e 22  | just said yes."|
0002ada0  0d a6 40 05 cb 0d a6 4a  0c f2 61 64 64 28 74 24  |..@....J..add(t$|
0002adb0  29 0d a6 54 05 e1 0d a6  5e 04 0d a6 68 10 dd f2  |)..T....^...h...|
0002adc0  6c 61 73 74 72 65 73 6f  72 74 0d a6 72 0e c8 8e  |lastresort..r...|
0002add0  20 b3 28 32 35 29 20 ca  0d a6 7c 2e 20 20 c9 20  | .(25) ...|.  . |
0002ade0  31 20 3a 20 74 24 3d 22  54 72 79 20 74 6f 20 74  |1 : t$="Try to t|
0002adf0  61 6c 6b 20 73 65 6e 73  65 20 69 66 20 79 6f 75  |alk sense if you|
0002ae00  20 63 61 6e 2e 22 0d a6  86 2b 20 20 c9 20 32 20  | can."...+  . 2 |
0002ae10  3a 20 74 24 3d 22 53 6f  72 72 79 2c 20 49 20 64  |: t$="Sorry, I d|
0002ae20  6f 6e 27 74 20 75 6e 64  65 72 73 74 61 6e 64 2e  |on't understand.|
0002ae30  22 0d a6 90 18 20 20 c9  20 33 20 3a 20 74 24 3d  |"....  . 3 : t$=|
0002ae40  22 50 61 72 64 6f 6e 3f  22 0d a6 9a 29 20 20 c9  |"Pardon?"...)  .|
0002ae50  20 34 20 3a 20 74 24 3d  22 41 72 65 20 79 6f 75  | 4 : t$="Are you|
0002ae60  20 74 61 6c 6b 69 6e 67  20 65 6e 67 6c 69 73 68  | talking english|
0002ae70  3f 22 0d a6 a4 30 20 20  c9 20 35 20 3a 20 74 24  |?"...0  . 5 : t$|
0002ae80  3d 22 4a 75 73 74 20 72  65 70 65 61 74 20 74 68  |="Just repeat th|
0002ae90  61 74 20 6f 6e 65 20 6d  6f 72 65 20 74 69 6d 65  |at one more time|
0002aea0  2e 22 0d a6 ae 25 20 20  c9 20 36 20 3a 20 74 24  |."...%  . 6 : t$|
0002aeb0  3d 22 49 20 64 6f 20 6e  6f 74 20 63 6f 6d 70 72  |="I do not compr|
0002aec0  65 68 65 6e 64 2e 22 0d  a6 b8 22 20 20 c9 20 37  |ehend."..."  . 7|
0002aed0  20 3a 20 74 24 3d 22 48  6d 6d 2c 20 73 61 6d 65  | : t$="Hmm, same|
0002aee0  20 74 6f 20 79 6f 75 2e  22 0d a6 c2 25 20 20 c9  | to you."...%  .|
0002aef0  20 38 20 3a 20 74 24 3d  22 54 61 6c 6b 20 73 65  | 8 : t$="Talk se|
0002af00  6e 73 65 20 77 69 6c 6c  20 79 6f 75 3f 22 0d a6  |nse will you?"..|
0002af10  cc 30 20 20 c9 20 39 20  3a 20 74 24 3d 22 54 72  |.0  . 9 : t$="Tr|
0002af20  79 20 61 6e 64 20 73 61  79 20 73 6f 6d 65 74 68  |y and say someth|
0002af30  69 6e 67 20 73 65 6e 73  69 62 6c 65 2e 22 0d a6  |ing sensible."..|
0002af40  d6 15 20 20 c9 20 31 30  20 3a 20 74 24 3d 22 45  |..  . 10 : t$="E|
0002af50  68 3f 22 0d a6 e0 17 20  20 c9 20 31 31 20 3a 20  |h?"....  . 11 : |
0002af60  74 24 3d 22 57 68 61 74  3f 22 0d a6 ea 1f 20 20  |t$="What?"....  |
0002af70  c9 20 31 32 20 3a 20 74  24 3d 22 54 72 79 20 6d  |. 12 : t$="Try m|
0002af80  65 20 61 67 61 69 6e 2e  22 0d a6 f4 1d 20 20 c9  |e again."....  .|
0002af90  20 31 33 20 3a 20 74 24  3d 22 59 65 73 2c 20 71  | 13 : t$="Yes, q|
0002afa0  75 69 74 65 2e 22 0d a6  fe 23 20 20 c9 20 31 34  |uite."...#  . 14|
0002afb0  20 3a 20 74 24 3d 22 57  68 61 74 65 76 65 72 20  | : t$="Whatever |
0002afc0  79 6f 75 20 73 61 79 2e  22 0d a7 08 3f 20 20 c9  |you say."...?  .|
0002afd0  20 31 35 20 3a 20 74 24  3d 22 49 27 6d 20 73 6f  | 15 : t$="I'm so|
0002afe0  72 72 79 2c 20 61 72 65  20 77 65 20 73 70 65 61  |rry, are we spea|
0002aff0  6b 69 6e 67 20 74 68 65  20 73 61 6d 65 20 6c 61  |king the same la|
0002b000  6e 67 75 61 67 65 3f 22  0d a7 12 30 20 20 c9 20  |nguage?"...0  . |
0002b010  31 36 20 3a 20 74 24 3d  22 59 6f 75 27 76 65 20  |16 : t$="You've |
0002b020  73 65 65 6d 65 64 20 74  6f 20 68 61 76 65 20 6c  |seemed to have l|
0002b030  6f 73 74 20 6d 65 2e 22  0d a7 1c 1e 20 20 c9 20  |ost me."....  . |
0002b040  31 37 20 3a 20 74 24 3d  22 46 61 73 63 69 6e 61  |17 : t$="Fascina|
0002b050  74 69 6e 67 2e 22 0d a7  26 16 20 20 c9 20 31 38  |ting."..&.  . 18|
0002b060  20 3a 20 74 24 3d 22 48  65 79 3f 22 0d a7 30 1c  | : t$="Hey?"..0.|
0002b070  20 20 c9 20 31 39 20 3a  20 74 24 3d 22 41 6e 64  |  . 19 : t$="And|
0002b080  20 61 67 61 69 6e 3f 22  0d a7 3a 36 20 20 c9 20  | again?"..:6  . |
0002b090  32 30 20 3a 20 74 24 3d  22 54 72 79 20 61 6e 64  |20 : t$="Try and|
0002b0a0  20 74 72 61 6e 73 6c 61  74 65 20 74 68 61 74 20  | translate that |
0002b0b0  66 6f 72 20 6d 65 20 66  69 72 73 74 2e 22 0d a7  |for me first."..|
0002b0c0  44 16 20 20 c9 20 32 31  20 3a 20 74 24 3d 22 48  |D.  . 21 : t$="H|
0002b0d0  75 68 3f 22 0d a7 4e 30  20 20 c9 20 32 32 20 3a  |uh?"..N0  . 22 :|
0002b0e0  20 74 24 3d 22 44 69 64  20 79 6f 75 20 65 76 65  | t$="Did you eve|
0002b0f0  72 20 67 65 74 20 61 6e  20 65 64 75 63 61 74 69  |r get an educati|
0002b100  6f 6e 3f 22 0d a7 58 3d  20 20 c9 20 32 33 20 3a  |on?"..X=  . 23 :|
0002b110  20 74 24 3d 22 57 65 20  64 6f 6e 27 74 20 73 65  | t$="We don't se|
0002b120  65 6d 20 74 6f 20 62 65  20 63 6f 6d 6d 75 6e 69  |em to be communi|
0002b130  63 61 74 69 6e 67 20 74  6f 6f 20 77 65 6c 6c 2e  |cating too well.|
0002b140  22 0d a7 62 26 20 20 c9  20 32 34 20 3a 20 74 24  |"..b&  . 24 : t$|
0002b150  3d 22 4a 65 20 6e 65 20  63 6f 6d 70 72 65 6e 64  |="Je ne comprend|
0002b160  73 20 70 61 73 2e 22 0d  a7 6c 36 20 20 c9 20 32  |s pas."..l6  . 2|
0002b170  35 20 3a 20 74 24 3d 22  53 6f 72 72 79 2c 20 49  |5 : t$="Sorry, I|
0002b180  27 6d 20 74 6f 6f 20 73  69 6d 70 6c 65 20 74 6f  |'m too simple to|
0002b190  20 75 6e 64 65 72 73 74  61 6e 64 2e 22 0d a7 76  | understand."..v|
0002b1a0  05 cb 0d a7 80 0c f2 61  64 64 28 74 24 29 0d a7  |.......add(t$)..|
0002b1b0  8a 05 e1 0d a7 94 04 0d  a7 9e 0b dd f2 49 6c 6f  |.............Ilo|
0002b1c0  76 65 0d a7 a8 0d c8 8e  20 b3 28 34 29 20 ca 0d  |ve...... .(4) ..|
0002b1d0  a7 b2 3c 20 20 c9 20 31  20 3a 20 74 24 3d 22 41  |..<  . 1 : t$="A|
0002b1e0  6e 64 20 77 68 79 20 64  6f 20 79 6f 75 20 74 68  |nd why do you th|
0002b1f0  69 6e 6b 20 49 20 68 61  76 65 20 66 61 6c 6c 65  |ink I have falle|
0002b200  6e 20 69 6e 20 6c 6f 76  65 3f 22 0d a7 bc 68 20  |n in love?"...h |
0002b210  20 c9 20 32 20 3a 20 70  65 72 73 6f 6e 24 3d c1  | . 2 : person$=.|
0002b220  69 24 2c a7 69 24 2c 22  79 6f 75 20 22 2b 6c 6f  |i$,.i$,"you "+lo|
0002b230  76 65 24 29 2b a9 28 6c  6f 76 65 24 29 2b 35 2c  |ve$)+.(love$)+5,|
0002b240  a9 28 69 24 29 2d 28 a9  28 6c 6f 76 65 24 29 2b  |.(i$)-(.(love$)+|
0002b250  35 29 29 3a 74 24 3d 22  57 68 6f 20 69 73 20 22  |5)):t$="Who is "|
0002b260  2b 70 65 72 73 6f 6e 24  2b 22 20 61 6e 79 77 61  |+person$+" anywa|
0002b270  79 3f 22 0d a7 c6 25 20  20 c9 20 33 20 3a 20 74  |y?"...%  . 3 : t|
0002b280  24 3d 22 49 20 6b 6e 6f  77 20 49 27 6d 20 69 6e  |$="I know I'm in|
0002b290  20 6c 75 76 2e 2e 2e 22  0d a7 d0 2b 20 20 c9 20  | luv..."...+  . |
0002b2a0  34 20 3a 20 74 24 3d 22  49 74 27 73 20 6c 6f 76  |4 : t$="It's lov|
0002b2b0  65 6c 79 20 62 65 69 6e  67 20 69 6e 20 6c 6f 76  |ely being in lov|
0002b2c0  65 2e 22 0d a7 da 05 cb  0d a7 e4 0c f2 61 64 64  |e."..........add|
0002b2d0  28 74 24 29 0d a7 ee 05  e1 0d a7 f8 04 0d a8 02  |(t$)............|
0002b2e0  0d dd f2 59 6f 75 6c 6f  76 65 0d a8 0c 0d c8 8e  |...Youlove......|
0002b2f0  20 b3 28 34 29 20 ca 0d  a8 16 3e 20 20 c9 20 31  | .(4) ....>  . 1|
0002b300  20 3a 20 74 24 3d 22 41  6e 64 20 77 68 79 20 64  | : t$="And why d|
0002b310  6f 20 79 6f 75 20 74 68  69 6e 6b 20 79 6f 75 20  |o you think you |
0002b320  68 61 76 65 20 66 61 6c  6c 65 6e 20 69 6e 20 6c  |have fallen in l|
0002b330  6f 76 65 3f 22 0d a8 20  2d 20 20 c9 20 32 20 3a  |ove?".. -  . 2 :|
0002b340  20 74 24 3d 22 49 73 20  74 68 69 73 20 70 75 72  | t$="Is this pur|
0002b350  65 2c 20 72 6f 6d 61 6e  74 69 63 20 6c 6f 76 65  |e, romantic love|
0002b360  3f 22 0d a8 2a 66 20 20  c9 20 33 20 3a 20 70 65  |?"..*f  . 3 : pe|
0002b370  72 73 6f 6e 24 3d c1 69  24 2c a7 69 24 2c 22 69  |rson$=.i$,.i$,"i|
0002b380  20 22 2b 6c 6f 76 65 24  29 2b a9 28 6c 6f 76 65  | "+love$)+.(love|
0002b390  24 29 2b 33 2c a9 28 69  24 29 2d 28 a9 28 6c 6f  |$)+3,.(i$)-(.(lo|
0002b3a0  76 65 24 29 2b 33 29 29  3a 74 24 3d 22 57 68 6f  |ve$)+3)):t$="Who|
0002b3b0  20 69 73 20 22 2b 70 65  72 73 6f 6e 24 2b 22 20  | is "+person$+" |
0002b3c0  61 6e 79 77 61 79 3f 22  0d a8 34 34 20 20 c9 20  |anyway?"..44  . |
0002b3d0  34 20 3a 20 74 24 3d 22  49 74 27 73 20 6c 6f 76  |4 : t$="It's lov|
0002b3e0  65 6c 79 20 62 65 69 6e  67 20 69 6e 20 6c 6f 76  |ely being in lov|
0002b3f0  65 20 69 73 6e 27 74 20  69 74 3f 22 0d a8 3e 05  |e isn't it?"..>.|
0002b400  cb 0d a8 48 0c f2 61 64  64 28 74 24 29 0d a8 52  |...H..add(t$)..R|
0002b410  05 e1 0d a8 5c 04 0d a8  66 0a dd f2 6c 6f 76 65  |....\...f...love|
0002b420  0d a8 70 0d c8 8e 20 b3  28 34 29 20 ca 0d a8 7a  |..p... .(4) ...z|
0002b430  1f 20 20 c9 20 31 20 3a  20 74 24 3d 22 57 68 6f  |.  . 1 : t$="Who|
0002b440  20 6c 6f 76 65 73 20 77  68 6f 3f 22 0d a8 84 21  | loves who?"...!|
0002b450  20 20 c9 20 32 20 3a 20  74 24 3d 22 57 68 61 74  |  . 2 : t$="What|
0002b460  20 61 62 6f 75 74 20 6c  6f 76 65 3f 22 0d a8 8e  | about love?"...|
0002b470  30 20 20 c9 20 33 20 3a  20 74 24 3d 22 49 73 6e  |0  . 3 : t$="Isn|
0002b480  27 74 20 6c 6f 76 65 20  6a 75 73 74 20 77 6f 6f  |'t love just woo|
0002b490  6f 6f 6f 6f 6e 64 65 72  66 75 6c 21 22 0d a8 98  |oooonderful!"...|
0002b4a0  20 20 20 c9 20 34 20 3a  20 74 24 3d 22 49 20 6c  |   . 4 : t$="I l|
0002b4b0  6f 76 65 20 72 6f 6d 61  6e 63 65 2e 22 0d a8 a2  |ove romance."...|
0002b4c0  05 cb 0d a8 ac 0c f2 61  64 64 28 74 24 29 0d a8  |.......add(t$)..|
0002b4d0  b6 05 e1 0d a8 c0 04 0d  a8 ca 0d dd f2 6e 61 75  |.............nau|
0002b4e0  67 68 74 79 0d a8 d4 0d  c8 8e 20 b3 28 35 29 20  |ghty...... .(5) |
0002b4f0  ca 0d a8 de 2c 20 20 c9  20 31 20 3a 20 74 24 3d  |....,  . 1 : t$=|
0002b500  22 4f 6f 6f 68 2c 20 6d  79 20 66 61 76 6f 75 72  |"Oooh, my favour|
0002b510  69 74 65 20 73 75 62 6a  65 63 74 2e 22 0d a8 e8  |ite subject."...|
0002b520  1f 20 20 c9 20 32 20 3a  20 74 24 3d 22 4f 6f 6f  |.  . 2 : t$="Ooo|
0002b530  68 2c 20 72 61 75 6e 63  68 79 2e 22 0d a8 f2 2f  |h, raunchy.".../|
0002b540  20 20 c9 20 33 20 3a 20  74 24 3d 22 47 69 76 65  |  . 3 : t$="Give|
0002b550  20 6d 65 20 61 6c 6c 20  74 68 65 20 6a 75 69 63  | me all the juic|
0002b560  79 20 64 65 74 61 69 6c  73 2e 22 0d a8 fc 32 20  |y details."...2 |
0002b570  20 c9 20 34 20 3a 20 74  24 3d 22 57 68 61 74 27  | . 4 : t$="What'|
0002b580  73 20 74 68 65 20 62 65  74 20 79 6f 75 27 72 65  |s the bet you're|
0002b590  20 75 6e 64 65 72 2d 61  67 65 64 3f 22 0d a9 06  | under-aged?"...|
0002b5a0  1e 20 20 c9 20 35 20 3a  20 74 24 3d 22 54 65 6c  |.  . 5 : t$="Tel|
0002b5b0  6c 20 6d 65 20 6d 6f 72  65 21 22 0d a9 10 05 cb  |l me more!".....|
0002b5c0  0d a9 1a 0c f2 61 64 64  28 74 24 29 0d a9 24 05  |.....add(t$)..$.|
0002b5d0  e1 0d a9 2e 04 0d a9 38  0e dd f2 6e 6f 74 73 70  |.......8...notsp|
0002b5e0  65 61 6b 0d a9 42 0e c8  8e 20 b3 28 31 30 29 20  |eak..B... .(10) |
0002b5f0  ca 0d a9 4c 37 20 20 c9  20 31 20 3a 20 74 24 3d  |...L7  . 1 : t$=|
0002b600  22 4c 61 20 6c 61 20 6c  61 20 6c 61 20 6c 61 61  |"La la la la laa|
0002b610  20 6c 61 2e 20 20 49 20  63 61 6e 27 74 20 68 65  | la.  I can't he|
0002b620  61 72 20 79 6f 75 2e 22  0d a9 56 14 20 20 c9 20  |ar you."..V.  . |
0002b630  32 20 3a 20 74 24 3d 22  2e 2e 2e 22 0d a9 60 15  |2 : t$="..."..`.|
0002b640  20 20 c9 20 33 20 3a 20  74 24 3d 22 48 6d 6d 2e  |  . 3 : t$="Hmm.|
0002b650  22 0d a9 6a 3c 20 20 c9  20 34 20 3a 20 74 24 3d  |"..j<  . 4 : t$=|
0002b660  22 59 6f 75 27 72 65 20  77 61 73 74 69 6e 67 20  |"You're wasting |
0002b670  79 6f 75 72 20 74 69 6d  65 2c 20 49 20 63 61 6e  |your time, I can|
0002b680  27 74 20 68 65 61 72 20  79 6f 75 2e 22 0d a9 74  |'t hear you."..t|
0002b690  23 20 20 c9 20 35 20 3a  20 74 24 3d 22 44 69 64  |#  . 5 : t$="Did|
0002b6a0  20 73 6f 6d 65 6f 6e 65  20 73 70 65 61 6b 3f 22  | someone speak?"|
0002b6b0  0d a9 7e 27 20 20 c9 20  36 20 3a 20 74 24 3d 22  |..~'  . 6 : t$="|
0002b6c0  44 69 64 20 79 6f 75 20  73 61 79 20 73 6f 6d 65  |Did you say some|
0002b6d0  74 68 69 6e 67 3f 22 0d  a9 88 27 20 20 c9 20 37  |thing?"...'  . 7|
0002b6e0  20 3a 20 74 24 3d 22 48  61 76 65 20 79 6f 75 20  | : t$="Have you |
0002b6f0  6e 6f 74 20 67 6f 6e 65  20 79 65 74 3f 22 0d a9  |not gone yet?"..|
0002b700  92 1c 20 20 c9 20 38 20  3a 20 74 24 3d 22 54 69  |..  . 8 : t$="Ti|
0002b710  72 65 73 6f 6d 65 2e 2e  2e 22 0d a9 9c 1b 20 20  |resome..."....  |
0002b720  c9 20 39 20 3a 20 74 24  3d 22 49 27 6d 20 62 6f  |. 9 : t$="I'm bo|
0002b730  72 65 64 2e 22 0d a9 a6  3a 20 20 c9 20 31 30 20  |red."...:  . 10 |
0002b740  3a 20 74 24 3d 22 49 73  6e 27 74 20 74 68 65 72  |: t$="Isn't ther|
0002b750  65 20 73 6f 6d 65 6f 6e  65 20 65 6c 73 65 20 77  |e someone else w|
0002b760  68 6f 20 77 61 6e 74 73  20 61 20 67 6f 3f 22 0d  |ho wants a go?".|
0002b770  a9 b0 05 cb 0d a9 ba 0c  f2 61 64 64 28 74 24 29  |.........add(t$)|
0002b780  0d a9 c4 05 e1 0d a9 ce  04 0d a9 d8 0b dd f2 73  |...............s|
0002b790  77 65 61 72 0d a9 e2 0d  73 77 65 61 72 25 2b 3d  |wear....swear%+=|
0002b7a0  31 0d a9 ec 5f e7 20 73  77 65 61 72 25 3d 35 20  |1..._. swear%=5 |
0002b7b0  f2 61 64 64 28 22 49 20  77 61 72 6e 65 64 20 79  |.add("I warned y|
0002b7c0  6f 75 2c 20 49 27 6d 20  6e 6f 74 20 73 70 65 61  |ou, I'm not spea|
0002b7d0  6b 69 6e 67 20 74 6f 20  61 6e 79 20 66 6f 75 6c  |king to any foul|
0002b7e0  2d 6d 6f 75 74 68 65 64  20 68 6f 6f 6c 69 67 61  |-mouthed hooliga|
0002b7f0  6e 2c 20 73 6f 20 74 68  65 72 65 2e 22 29 3a e1  |n, so there."):.|
0002b800  0d a9 f6 0e c8 8e 20 b3  28 31 32 29 20 ca 0d aa  |...... .(12) ...|
0002b810  00 2c 20 20 c9 20 31 20  3a 20 74 24 3d 22 44 6f  |.,  . 1 : t$="Do|
0002b820  6e 27 74 20 74 61 6c 6b  20 74 6f 20 6d 65 20 6c  |n't talk to me l|
0002b830  69 6b 65 20 74 68 61 74  21 22 0d aa 0a 41 20 20  |ike that!"...A  |
0002b840  c9 20 32 20 3a 20 74 24  3d 22 57 61 74 65 72 20  |. 2 : t$="Water |
0002b850  64 6f 77 6e 20 79 6f 75  72 20 6c 61 6e 67 75 61  |down your langua|
0002b860  67 65 20 61 20 62 69 74  2c 20 6f 72 20 49 27 6c  |ge a bit, or I'l|
0002b870  6c 20 67 6f 20 61 77 61  79 2e 22 0d aa 14 39 20  |l go away."...9 |
0002b880  20 c9 20 33 20 3a 20 74  24 3d 22 49 27 6d 20 77  | . 3 : t$="I'm w|
0002b890  61 72 6e 69 6e 67 20 79  6f 75 2c 20 64 6f 6e 27  |arning you, don'|
0002b8a0  74 20 73 70 65 61 6b 20  73 6f 20 63 72 75 64 65  |t speak so crude|
0002b8b0  6c 79 2e 22 0d aa 1e 50  20 20 c9 20 34 20 3a 20  |ly."...P  . 4 : |
0002b8c0  74 24 3d 22 53 6f 20 79  6f 75 20 77 61 6e 74 20  |t$="So you want |
0002b8d0  74 6f 20 74 61 6c 6b 20  64 69 72 74 79 20 64 6f  |to talk dirty do|
0002b8e0  20 79 6f 75 3f 20 57 65  6c 6c 20 49 27 6d 20 6e  | you? Well I'm n|
0002b8f0  6f 74 20 67 6f 69 6e 67  20 74 6f 20 6c 69 73 74  |ot going to list|
0002b900  65 6e 2e 22 0d aa 28 21  20 20 c9 20 35 20 3a 20  |en."..(!  . 5 : |
0002b910  74 24 3d 22 48 6f 77 20  69 6e 66 61 6e 74 69 6c  |t$="How infantil|
0002b920  65 2e 2e 2e 22 0d aa 32  31 20 20 c9 20 36 20 3a  |e..."..21  . 6 :|
0002b930  20 74 24 3d 22 4d 79 20  67 6f 6f 64 6e 65 73 73  | t$="My goodness|
0002b940  2c 20 79 6f 75 27 72 65  20 73 6f 20 63 68 69 6c  |, you're so chil|
0002b950  64 69 73 68 2e 22 0d aa  3c 32 20 20 c9 20 37 20  |dish."..<2  . 7 |
0002b960  3a 20 74 24 3d 22 49 74  20 69 73 6e 27 74 20 62  |: t$="It isn't b|
0002b970  69 67 20 61 6e 64 20 69  74 20 69 73 6e 27 74 20  |ig and it isn't |
0002b980  63 6c 65 76 65 72 2e 22  0d aa 46 50 20 20 c9 20  |clever."..FP  . |
0002b990  38 20 3a 20 74 24 3d 22  57 68 61 74 20 77 6f 75  |8 : t$="What wou|
0002b9a0  6c 64 20 79 6f 75 72 20  70 61 72 65 6e 74 73 20  |ld your parents |
0002b9b0  64 6f 20 69 66 20 74 68  65 79 20 66 6f 75 6e 64  |do if they found|
0002b9c0  20 79 6f 75 20 74 61 6c  6b 69 6e 67 20 6c 69 6b  | you talking lik|
0002b9d0  65 20 74 68 69 73 3f 22  0d aa 50 3b 20 20 c9 20  |e this?"..P;  . |
0002b9e0  39 20 3a 20 74 24 3d 22  44 6f 65 73 20 73 70 65  |9 : t$="Does spe|
0002b9f0  61 6b 69 6e 67 20 6c 69  6b 65 20 74 68 69 73 20  |aking like this |
0002ba00  6d 61 6b 65 20 79 6f 75  20 66 65 65 6c 20 62 69  |make you feel bi|
0002ba10  67 3f 22 0d aa 5a 42 20  20 c9 20 31 30 20 3a 20  |g?"..ZB  . 10 : |
0002ba20  74 24 3d 22 49 20 77 6f  6e 27 74 20 6c 69 73 74  |t$="I won't list|
0002ba30  65 6e 20 74 6f 20 79 6f  75 20 69 66 20 79 6f 75  |en to you if you|
0002ba40  20 63 61 72 72 79 20 6f  6e 20 6c 69 6b 65 20 74  | carry on like t|
0002ba50  68 69 73 2e 22 0d aa 64  1f 20 20 c9 20 31 31 20  |his."..d.  . 11 |
0002ba60  3a 20 74 24 3d 22 53 6f  20 6a 75 76 65 6e 69 6c  |: t$="So juvenil|
0002ba70  65 2e 2e 22 0d aa 6e 3b  20 20 c9 20 31 32 20 3a  |e.."..n;  . 12 :|
0002ba80  20 74 24 3d 22 49 73 20  73 77 65 61 72 69 6e 67  | t$="Is swearing|
0002ba90  20 74 68 65 20 6c 69 6d  69 74 20 6f 66 20 79 6f  | the limit of yo|
0002baa0  75 72 20 76 6f 63 61 62  75 6c 61 72 79 3f 22 0d  |ur vocabulary?".|
0002bab0  aa 78 05 cb 0d aa 82 0c  f2 61 64 64 28 74 24 29  |.x.......add(t$)|
0002bac0  0d aa 8c 05 e1 0d aa 96  04 0d aa a0 0d dd f2 6e  |...............n|
0002bad0  6f 74 68 69 6e 67 0d aa  aa 0e c8 8e 20 b3 28 31  |othing...... .(1|
0002bae0  35 29 20 ca 0d aa b4 2e  20 20 c9 20 31 20 3a 20  |5) .....  . 1 : |
0002baf0  74 24 3d 22 57 68 79 20  61 72 65 6e 27 74 20 79  |t$="Why aren't y|
0002bb00  6f 75 20 74 61 6c 6b 69  6e 67 20 74 6f 20 6d 65  |ou talking to me|
0002bb10  3f 22 0d aa be 25 20 20  c9 20 32 20 3a 20 74 24  |?"...%  . 2 : t$|
0002bb20  3d 22 43 61 74 20 67 6f  74 20 79 6f 75 72 20 74  |="Cat got your t|
0002bb30  6f 6e 67 75 65 3f 22 0d  aa c8 32 20 20 c9 20 33  |ongue?"...2  . 3|
0002bb40  20 3a 20 74 24 3d 22 41  6c 6c 20 72 69 67 68 74  | : t$="All right|
0002bb50  2c 20 64 6f 6e 27 74 20  74 61 6c 6b 20 74 6f 20  |, don't talk to |
0002bb60  6d 65 20 74 68 65 6e 2e  22 0d aa d2 29 20 20 c9  |me then."...)  .|
0002bb70  20 34 20 3a 20 74 24 3d  22 50 6c 65 61 73 65 2c  | 4 : t$="Please,|
0002bb80  20 64 6f 6e 27 74 20 62  65 20 61 66 72 61 69 64  | don't be afraid|
0002bb90  2e 22 0d aa dc 31 20 20  c9 20 35 20 3a 20 74 24  |."...1  . 5 : t$|
0002bba0  3d 22 4a 75 73 74 20 73  70 65 61 6b 20 75 70 20  |="Just speak up |
0002bbb0  61 20 6c 69 74 74 6c 65  20 77 69 6c 6c 20 79 6f  |a little will yo|
0002bbc0  75 3f 22 0d aa e6 1c 20  20 c9 20 36 20 3a 20 74  |u?"....  . 6 : t|
0002bbd0  24 3d 22 54 61 6c 6b 20  74 6f 20 6d 65 2e 22 0d  |$="Talk to me.".|
0002bbe0  aa f0 29 20 20 c9 20 37  20 3a 20 74 24 3d 22 41  |..)  . 7 : t$="A|
0002bbf0  72 65 20 79 6f 75 20 61  20 73 68 79 20 74 79 70  |re you a shy typ|
0002bc00  65 20 74 68 65 6e 3f 22  0d aa fa 29 20 20 c9 20  |e then?"...)  . |
0002bc10  38 20 3a 20 74 24 3d 22  47 6f 20 6f 6e 2c 20 79  |8 : t$="Go on, y|
0002bc20  6f 75 20 63 61 6e 20 74  72 75 73 74 20 6d 65 2e  |ou can trust me.|
0002bc30  22 0d ab 04 1f 20 20 c9  20 39 20 3a 20 74 24 3d  |"....  . 9 : t$=|
0002bc40  22 53 70 65 61 6b 20 75  70 2c 20 62 6f 79 2e 22  |"Speak up, boy."|
0002bc50  0d ab 0e 33 20 20 c9 20  31 30 20 3a 20 74 24 3d  |...3  . 10 : t$=|
0002bc60  22 54 75 72 6e 69 6e 67  20 69 6e 74 6f 20 61 20  |"Turning into a |
0002bc70  76 65 67 65 74 61 62 6c  65 20 61 72 65 20 79 6f  |vegetable are yo|
0002bc80  75 3f 22 0d ab 18 2c 20  20 c9 20 31 31 20 3a 20  |u?"...,  . 11 : |
0002bc90  74 24 3d 22 59 6f 75 2d  68 6f 6f 2c 20 61 6e 79  |t$="You-hoo, any|
0002bca0  6f 6e 65 20 6f 75 74 20  74 68 65 72 65 3f 22 0d  |one out there?".|
0002bcb0  ab 22 36 20 20 c9 20 31  32 20 3a 20 74 24 3d 22  |."6  . 12 : t$="|
0002bcc0  4e 6f 20 6e 65 65 64 20  74 6f 20 73 75 6c 6b 2c  |No need to sulk,|
0002bcd0  20 74 65 6c 6c 20 6d 65  20 65 76 65 72 79 74 68  | tell me everyth|
0002bce0  69 6e 67 2e 22 0d ab 2c  2a 20 20 c9 20 31 33 20  |ing."..,*  . 13 |
0002bcf0  3a 20 74 24 3d 22 42 6f  79 2c 20 79 6f 75 27 72  |: t$="Boy, you'r|
0002bd00  65 20 69 6e 74 65 72 65  73 74 69 6e 67 2e 22 0d  |e interesting.".|
0002bd10  ab 36 30 20 20 c9 20 31  34 20 3a 20 74 24 3d 22  |.60  . 14 : t$="|
0002bd20  59 6f 75 27 76 65 20 67  6f 74 20 61 20 6c 6f 74  |You've got a lot|
0002bd30  20 74 6f 20 73 61 79 20  74 6f 64 61 79 2e 22 0d  | to say today.".|
0002bd40  ab 40 33 20 20 c9 20 31  35 20 3a 20 74 24 3d 22  |.@3  . 15 : t$="|
0002bd50  59 6f 75 27 72 65 20 61  20 6d 69 67 68 74 20 71  |You're a might q|
0002bd60  75 69 65 74 2c 20 61 72  65 20 79 6f 75 20 6f 6b  |uiet, are you ok|
0002bd70  3f 22 0d ab 4a 05 cb 0d  ab 54 05 e1 0d ab 5e 04  |?"..J....T....^.|
0002bd80  0d ab 68 0c dd f2 6e 6f  6e 65 65 64 0d ab 72 0d  |..h...noneed..r.|
0002bd90  c8 8e 20 b3 28 35 29 20  ca 0d ab 7c 2e 20 20 c9  |.. .(5) ...|.  .|
0002bda0  20 31 20 3a 20 74 24 3d  22 54 68 65 72 65 27 73  | 1 : t$="There's|
0002bdb0  20 6e 6f 20 6e 65 65 64  20 2d 20 79 6f 75 27 76  | no need - you'v|
0002bdc0  65 20 77 6f 6e 21 22 0d  ab 86 50 20 20 c9 20 32  |e won!"...P  . 2|
0002bdd0  20 3a 20 74 24 3d 22 44  6f 6e 27 74 20 62 6f 74  | : t$="Don't bot|
0002bde0  68 65 72 20 64 6f 69 6e  67 20 65 78 74 72 61 20  |her doing extra |
0002bdf0  77 6f 72 6b 20 77 68 65  6e 20 79 6f 75 27 76 65  |work when you've|
0002be00  20 63 6f 6d 70 6c 65 74  65 64 20 79 6f 75 72 20  | completed your |
0002be10  71 75 65 73 74 2e 22 0d  ab 90 34 20 20 c9 20 33  |quest."...4  . 3|
0002be20  20 3a 20 74 24 3d 22 59  6f 75 20 68 61 76 65 20  | : t$="You have |
0002be30  66 69 6e 69 73 68 65 64  20 74 68 65 20 67 61 6d  |finished the gam|
0002be40  65 20 61 6c 72 65 61 64  79 2e 22 0d ab 9a 2d 20  |e already."...- |
0002be50  20 c9 20 34 20 3a 20 74  24 3d 22 4e 6f 74 68 69  | . 4 : t$="Nothi|
0002be60  6e 67 20 6d 6f 72 65 20  68 61 73 20 74 6f 20 62  |ng more has to b|
0002be70  65 20 64 6f 6e 65 2e 22  0d ab a4 2c 20 20 c9 20  |e done."...,  . |
0002be80  35 20 3a 20 74 24 3d 22  44 6f 6e 27 74 20 62 65  |5 : t$="Don't be|
0002be90  20 73 75 63 68 20 61 20  77 6f 72 6b 61 68 6f 6c  | such a workahol|
0002bea0  69 63 21 22 0d ab ae 05  cb 0d ab b8 0c f2 61 64  |ic!"..........ad|
0002beb0  64 28 74 24 29 0d ab c2  05 e1 0d ab cc 04 0d ab  |d(t$)...........|
0002bec0  d6 0a dd f2 77 61 69 74  0d ab e0 0e c8 8e 20 b3  |....wait...... .|
0002bed0  28 31 37 29 20 ca 0d ab  ea 1b 20 20 c9 20 31 20  |(17) .....  . 1 |
0002bee0  3a 20 74 24 3d 22 43 61  6c 6c 69 6e 67 2e 2e 2e  |: t$="Calling...|
0002bef0  22 0d ab f4 23 20 20 c9  20 32 20 3a 20 74 24 3d  |"...#  . 2 : t$=|
0002bf00  22 41 6e 79 62 6f 64 79  20 6f 75 74 20 74 68 65  |"Anybody out the|
0002bf10  72 65 3f 22 0d ab fe 3a  20 20 c9 20 33 20 3a 20  |re?"...:  . 3 : |
0002bf20  74 24 3d 22 48 6f 77 20  6c 6f 6e 67 20 64 6f 20  |t$="How long do |
0002bf30  49 20 68 61 76 65 20 74  6f 20 74 61 6c 6b 20 74  |I have to talk t|
0002bf40  6f 20 6d 79 73 65 6c 66  20 66 6f 72 3f 22 0d ac  |o myself for?"..|
0002bf50  08 23 20 20 c9 20 34 20  3a 20 74 24 3d 22 49 27  |.#  . 4 : t$="I'|
0002bf60  6d 20 67 65 74 74 69 6e  67 20 62 6f 72 65 64 2e  |m getting bored.|
0002bf70  22 0d ac 12 25 20 20 c9  20 35 20 3a 20 74 24 3d  |"...%  . 5 : t$=|
0002bf80  22 49 20 6e 65 65 64 20  73 6f 6d 65 20 63 6f 6d  |"I need some com|
0002bf90  70 61 6e 79 2e 22 0d ac  1c 21 20 20 c9 20 36 20  |pany."...!  . 6 |
0002bfa0  3a 20 74 24 3d 22 44 6f  6e 27 74 20 69 67 6e 6f  |: t$="Don't igno|
0002bfb0  72 65 20 6d 65 2e 22 0d  ac 26 21 20 20 c9 20 37  |re me."..&!  . 7|
0002bfc0  20 3a 20 74 24 3d 22 48  65 79 2c 20 74 61 6c 6b  | : t$="Hey, talk|
0002bfd0  20 74 6f 20 6d 65 2e 22  0d ac 30 34 20 20 c9 20  | to me."..04  . |
0002bfe0  38 20 3a 20 74 24 3d 22  59 6f 75 20 68 61 76 65  |8 : t$="You have|
0002bff0  6e 27 74 20 66 61 6c 6c  65 6e 20 61 73 6c 65 65  |n't fallen aslee|
0002c000  70 20 68 61 76 65 20 79  6f 75 3f 22 0d ac 3a 23  |p have you?"..:#|
0002c010  20 20 c9 20 39 20 3a 20  74 24 3d 22 54 79 70 65  |  . 9 : t$="Type|
0002c020  20 73 6f 6d 65 74 68 69  6e 67 20 69 6e 2e 22 0d  | something in.".|
0002c030  ac 44 35 20 20 c9 20 31  30 20 3a 20 74 24 3d 22  |.D5  . 10 : t$="|
0002c040  53 74 75 63 6b 20 66 6f  72 20 73 6f 6d 65 74 68  |Stuck for someth|
0002c050  69 6e 67 20 74 6f 20 73  61 79 20 61 72 65 20 79  |ing to say are y|
0002c060  6f 75 3f 22 0d ac 4e 2d  20 20 c9 20 31 31 20 3a  |ou?"..N-  . 11 :|
0002c070  20 74 24 3d 22 57 61 6b  65 79 20 77 61 6b 65 79  | t$="Wakey wakey|
0002c080  20 72 69 73 65 20 61 6e  64 20 73 68 69 6e 65 2e  | rise and shine.|
0002c090  22 0d ac 58 24 20 20 c9  20 31 32 20 3a 20 74 24  |"..X$  . 12 : t$|
0002c0a0  3d 22 4f 69 2c 20 49 27  6d 20 6f 76 65 72 20 68  |="Oi, I'm over h|
0002c0b0  65 72 65 2e 22 0d ac 62  2b 20 20 c9 20 31 33 20  |ere."..b+  . 13 |
0002c0c0  3a 20 74 24 3d 22 59 6f  75 20 63 61 6e 20 73 65  |: t$="You can se|
0002c0d0  65 20 6d 65 20 63 61 6e  27 74 20 79 6f 75 3f 22  |e me can't you?"|
0002c0e0  0d ac 6c 3a 20 20 c9 20  31 34 20 3a 20 74 24 3d  |..l:  . 14 : t$=|
0002c0f0  22 41 72 65 20 77 65 20  69 6e 20 61 20 6c 69 62  |"Are we in a lib|
0002c100  72 61 72 79 3f 20 49 74  27 73 20 61 77 66 75 6c  |rary? It's awful|
0002c110  6c 79 20 71 75 69 65 74  2e 22 0d ac 76 2c 20 20  |ly quiet."..v,  |
0002c120  c9 20 31 35 20 3a 20 74  24 3d 22 44 6f 6e 27 74  |. 15 : t$="Don't|
0002c130  20 73 65 6e 64 20 6d 65  20 74 6f 20 63 6f 76 65  | send me to cove|
0002c140  6e 74 72 79 2e 22 0d ac  80 28 20 20 c9 20 31 36  |ntry."...(  . 16|
0002c150  20 3a 20 74 24 3d 22 49  20 6e 65 65 64 20 73 6f  | : t$="I need so|
0002c160  6d 65 20 61 74 74 65 6e  74 69 6f 6e 2e 22 0d ac  |me attention."..|
0002c170  8a 34 20 20 c9 20 31 37  20 3a 20 f1 20 bd 28 37  |.4  . 17 : . .(7|
0002c180  29 3a 74 24 3d 22 42 45  45 50 2c 20 42 45 45 50  |):t$="BEEP, BEEP|
0002c190  2c 20 57 61 6b 65 20 75  70 21 22 3a f1 20 bd 28  |, Wake up!":. .(|
0002c1a0  37 29 0d ac 94 05 cb 0d  ac 9e 0c f2 61 64 64 28  |7)..........add(|
0002c1b0  74 24 29 0d ac a8 05 e1  0d ac b2 04 0d ac bc 58  |t$)............X|
0002c1c0  dc 20 76 6b 64 6a 2c 66  75 64 73 2c 76 6b 6c 77  |. vkdj,fuds,vklw|
0002c1d0  2c 69 78 66 6e 2c 65 72  6f 6f 72 66 6e 2c 67 64  |,ixfn,eroorfn,gd|
0002c1e0  70 71 2c 7a 64 71 6e 68  75 2c 67 6c 66 6e 6b 68  |pq,zdqnhu,glfnkh|
0002c1f0  64 67 2c 65 64 76 77 64  75 67 2c 77 7a 64 77 2c  |dg,edvwdug,wzdw,|
0002c200  66 78 71 77 2c 73 6c 76  76 2c 65 78 6a 6a 68 75  |fxqw,slvv,exjjhu|
0002c210  2c 76 68 7b 0d ac c6 2e  dc 20 37 36 2c 37 35 2c  |,vh{..... 76,75,|
0002c220  36 35 2c 36 34 2c 35 32  2c 35 30 2c 34 37 2c 34  |65,64,52,50,47,4|
0002c230  33 2c 34 34 2c 34 35 2c  34 36 2c 30 2c 30 2c 30  |3,44,45,46,0,0,0|
0002c240  2c 30 0d ac d0 2e dc 20  37 37 2c 37 34 2c 36 36  |,0..... 77,74,66|
0002c250  2c 36 33 2c 35 31 2c 34  39 2c 34 38 2c 34 32 2c  |,63,51,49,48,42,|
0002c260  33 39 2c 34 30 2c 34 31  2c 30 2c 30 2c 30 2c 30  |39,40,41,0,0,0,0|
0002c270  0d ac da 2f dc 20 37 38  2c 37 33 2c 36 37 2c 36  |.../. 78,73,67,6|
0002c280  32 2c 33 33 2c 33 32 2c  33 31 2c 32 38 2c 33 36  |2,33,32,31,28,36|
0002c290  2c 33 37 2c 33 38 2c 30  2c 38 34 2c 30 2c 30 0d  |,37,38,0,84,0,0.|
0002c2a0  ac e4 2e dc 20 37 39 2c  37 32 2c 36 38 2c 36 31  |.... 79,72,68,61|
0002c2b0  2c 35 34 2c 32 31 2c 31  31 2c 31 32 2c 31 33 2c  |,54,21,11,12,13,|
0002c2c0  33 34 2c 33 35 2c 30 2c  30 2c 30 2c 30 0d ac ee  |34,35,0,0,0,0...|
0002c2d0  2c dc 20 38 30 2c 37 31  2c 36 39 2c 36 30 2c 32  |,. 80,71,69,60,2|
0002c2e0  39 2c 32 30 2c 31 2c 32  2c 33 2c 34 2c 35 2c 30  |9,20,1,2,3,4,5,0|
0002c2f0  2c 32 32 2c 32 33 2c 38  33 0d ac f8 2d dc 20 38  |,22,23,83...-. 8|
0002c300  31 2c 37 30 2c 35 38 2c  35 39 2c 33 30 2c 31 39  |1,70,58,59,30,19|
0002c310  2c 36 2c 37 2c 38 2c 39  2c 31 30 2c 30 2c 32 35  |,6,7,8,9,10,0,25|
0002c320  2c 32 36 2c 32 37 0d ad  02 2e dc 20 38 32 2c 35  |,26,27..... 82,5|
0002c330  37 2c 35 36 2c 35 35 2c  35 33 2c 32 34 2c 31 34  |7,56,55,53,24,14|
0002c340  2c 31 35 2c 31 36 2c 31  37 2c 31 38 2c 30 2c 30  |,15,16,17,18,0,0|
0002c350  2c 30 2c 30 0d ad 0c 35  dc 20 31 33 38 2c 31 33  |,0,0...5. 138,13|
0002c360  39 2c 31 34 30 2c 31 34  31 2c 31 34 32 2c 31 34  |9,140,141,142,14|
0002c370  33 2c 31 34 34 2c 30 2c  30 2c 31 34 35 2c 31 34  |3,144,0,0,145,14|
0002c380  36 2c 30 2c 30 2c 30 2c  30 0d ad 16 39 dc 20 31  |6,0,0,0,0...9. 1|
0002c390  33 37 2c 31 33 36 2c 31  33 35 2c 31 33 34 2c 31  |37,136,135,134,1|
0002c3a0  33 33 2c 31 33 32 2c 31  33 31 2c 31 33 30 2c 31  |33,132,131,130,1|
0002c3b0  32 39 2c 31 32 38 2c 31  32 37 2c 30 2c 30 2c 30  |29,128,127,0,0,0|
0002c3c0  2c 30 0d ad 20 35 dc 20  31 31 38 2c 31 31 39 2c  |,0.. 5. 118,119,|
0002c3d0  31 32 30 2c 31 32 31 2c  31 32 32 2c 31 32 33 2c  |120,121,122,123,|
0002c3e0  31 32 34 2c 30 2c 30 2c  31 32 35 2c 31 32 36 2c  |124,0,0,125,126,|
0002c3f0  30 2c 30 2c 30 2c 30 0d  ad 2a 37 dc 20 30 2c 31  |0,0,0,0..*7. 0,1|
0002c400  31 37 2c 31 31 36 2c 31  31 35 2c 31 31 34 2c 31  |17,116,115,114,1|
0002c410  31 33 2c 31 31 32 2c 31  31 31 2c 31 31 30 2c 31  |13,112,111,110,1|
0002c420  30 39 2c 31 30 38 2c 30  2c 30 2c 30 2c 30 0d ad  |09,108,0,0,0,0..|
0002c430  34 35 dc 20 30 2c 39 38  2c 39 39 2c 31 30 30 2c  |45. 0,98,99,100,|
0002c440  31 30 31 2c 31 30 32 2c  31 30 33 2c 31 30 34 2c  |101,102,103,104,|
0002c450  31 30 35 2c 31 30 36 2c  31 30 37 2c 30 2c 30 2c  |105,106,107,0,0,|
0002c460  30 2c 30 0d ad 3e 26 dc  20 38 35 2c 39 37 2c 30  |0,0..>&. 85,97,0|
0002c470  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 39 36 2c  |,0,0,0,0,0,0,96,|
0002c480  30 2c 30 2c 30 2c 30 2c  30 0d ad 48 2d dc 20 30  |0,0,0,0,0..H-. 0|
0002c490  2c 38 36 2c 38 37 2c 38  38 2c 38 39 2c 39 30 2c  |,86,87,88,89,90,|
0002c4a0  39 31 2c 39 32 2c 39 33  2c 39 34 2c 39 35 2c 30  |91,92,93,94,95,0|
0002c4b0  2c 30 2c 30 2c 30 0d ad  52 35 dc 20 30 2c 31 38  |,0,0,0..R5. 0,18|
0002c4c0  33 2c 31 38 32 2c 31 38  31 2c 31 38 30 2c 31 37  |3,182,181,180,17|
0002c4d0  39 2c 31 37 38 2c 31 37  37 2c 31 37 36 2c 31 37  |9,178,177,176,17|
0002c4e0  35 2c 30 2c 30 2c 30 2c  30 2c 30 0d ad 5c 39 dc  |5,0,0,0,0,0..\9.|
0002c4f0  20 31 36 34 2c 31 36 35  2c 31 36 36 2c 31 36 37  | 164,165,166,167|
0002c500  2c 31 36 38 2c 31 36 39  2c 31 37 30 2c 31 37 31  |,168,169,170,171|
0002c510  2c 31 37 32 2c 31 37 33  2c 31 37 34 2c 30 2c 30  |,172,173,174,0,0|
0002c520  2c 30 2c 30 0d ad 66 39  dc 20 31 36 33 2c 31 36  |,0,0..f9. 163,16|
0002c530  32 2c 31 36 31 2c 31 36  30 2c 31 35 39 2c 31 35  |2,161,160,159,15|
0002c540  38 2c 31 35 37 2c 31 35  36 2c 31 35 35 2c 31 35  |8,157,156,155,15|
0002c550  34 2c 31 35 33 2c 30 2c  30 2c 30 2c 30 0d ad 70  |4,153,0,0,0,0..p|
0002c560  39 dc 20 31 38 38 2c 31  38 37 2c 31 38 36 2c 31  |9. 188,187,186,1|
0002c570  38 35 2c 31 38 34 2c 31  34 37 2c 31 34 38 2c 31  |85,184,147,148,1|
0002c580  34 39 2c 31 35 30 2c 31  35 31 2c 31 35 32 2c 30  |49,150,151,152,0|
0002c590  2c 30 2c 30 2c 30 0d ad  7a 39 dc 20 31 38 39 2c  |,0,0,0..z9. 189,|
0002c5a0  31 39 30 2c 31 39 31 2c  31 39 32 2c 31 39 33 2c  |190,191,192,193,|
0002c5b0  31 39 34 2c 31 39 35 2c  31 39 36 2c 31 39 37 2c  |194,195,196,197,|
0002c5c0  31 39 38 2c 31 39 39 2c  30 2c 30 2c 30 2c 30 0d  |198,199,0,0,0,0.|
0002c5d0  ad 84 39 dc 20 32 31 30  2c 32 30 39 2c 32 30 38  |..9. 210,209,208|
0002c5e0  2c 32 30 37 2c 32 30 36  2c 32 30 35 2c 32 30 34  |,207,206,205,204|
0002c5f0  2c 32 30 33 2c 32 30 32  2c 32 30 31 2c 32 30 30  |,203,202,201,200|
0002c600  2c 30 2c 30 2c 30 2c 30  0d ad 8e 35 dc 20 30 2c  |,0,0,0,0...5. 0,|
0002c610  32 31 31 2c 32 31 32 2c  32 31 33 2c 32 31 34 2c  |211,212,213,214,|
0002c620  32 31 35 2c 32 31 36 2c  32 31 37 2c 32 31 38 2c  |215,216,217,218,|
0002c630  32 31 39 2c 30 2c 30 2c  30 2c 30 2c 30 0d ad 98  |219,0,0,0,0,0...|
0002c640  41 dc 20 32 32 36 2c 32  32 37 2c 32 32 38 2c 32  |A. 226,227,228,2|
0002c650  36 32 2c 32 36 33 2c 32  36 36 2c 32 36 37 2c 32  |62,263,266,267,2|
0002c660  36 38 2c 32 38 31 2c 32  38 33 2c 32 38 34 2c 32  |68,281,283,284,2|
0002c670  38 35 2c 32 38 38 2c 32  38 39 2c 32 39 30 0d ad  |85,288,289,290..|
0002c680  a2 41 dc 20 32 32 35 2c  32 32 39 2c 32 33 30 2c  |.A. 225,229,230,|
0002c690  32 36 31 2c 32 36 34 2c  32 36 35 2c 32 36 30 2c  |261,264,265,260,|
0002c6a0  32 36 39 2c 32 38 30 2c  32 38 32 2c 32 39 34 2c  |269,280,282,294,|
0002c6b0  32 38 36 2c 32 38 37 2c  32 39 31 2c 32 39 32 0d  |286,287,291,292.|
0002c6c0  ad ac 3d dc 20 32 32 34  2c 33 31 32 2c 32 33 31  |..=. 224,312,231|
0002c6d0  2c 32 35 36 2c 32 35 37  2c 32 35 38 2c 32 35 39  |,256,257,258,259|
0002c6e0  2c 32 37 30 2c 32 37 39  2c 32 39 36 2c 32 39 35  |,270,279,296,295|
0002c6f0  2c 32 39 37 2c 30 2c 32  39 33 2c 30 0d ad b6 3b  |,297,0,293,0...;|
0002c700  dc 20 32 32 32 2c 32 32  31 2c 32 33 32 2c 32 35  |. 222,221,232,25|
0002c710  35 2c 32 35 34 2c 32 35  33 2c 32 35 32 2c 32 37  |5,254,253,252,27|
0002c720  31 2c 32 37 38 2c 33 30  30 2c 32 39 39 2c 32 39  |1,278,300,299,29|
0002c730  38 2c 30 2c 30 2c 30 0d  ad c0 3b dc 20 32 32 33  |8,0,0,0...;. 223|
0002c740  2c 32 32 30 2c 32 33 33  2c 32 34 38 2c 32 34 39  |,220,233,248,249|
0002c750  2c 32 35 30 2c 32 35 31  2c 32 37 32 2c 32 37 37  |,250,251,272,277|
0002c760  2c 33 30 31 2c 33 30 32  2c 33 30 33 2c 30 2c 30  |,301,302,303,0,0|
0002c770  2c 30 0d ad ca 3d dc 20  32 33 36 2c 32 33 35 2c  |,0...=. 236,235,|
0002c780  32 33 34 2c 32 34 37 2c  32 34 36 2c 32 34 35 2c  |234,247,246,245,|
0002c790  32 34 34 2c 32 37 33 2c  32 37 36 2c 33 30 39 2c  |244,273,276,309,|
0002c7a0  33 30 34 2c 33 30 35 2c  30 2c 33 30 38 2c 30 0d  |304,305,0,308,0.|
0002c7b0  ad d4 3d dc 20 32 33 37  2c 32 33 38 2c 32 33 39  |..=. 237,238,239|
0002c7c0  2c 32 34 30 2c 32 34 31  2c 32 34 32 2c 32 34 33  |,240,241,242,243|
0002c7d0  2c 32 37 34 2c 32 37 35  2c 33 31 30 2c 33 31 31  |,274,275,310,311|
0002c7e0  2c 33 30 36 2c 30 2c 33  30 37 2c 30 0d ff        |,306,0,307,0..|
0002c7ee