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 5Z � 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 N4�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 � Peatyn%=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 � Pneatyn%=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 � Qeatyn%=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 � Qheatyn%=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 � Reatyn%=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 � Rleatyn%=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 � l7� �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."):� v5� �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