RATHBONE fffP59999_:C=0:410:P=60000`60135:O:C=C+O:P,O:P 42*,79O,92\,1,15,0,9 ,1,121y,234,113q,35#,112p,1,3,0,9 ,546,83S,33!,26,92\,546,16,201,229,197,213,245,205,133,234,241,209,193,225,201,502,203,234,254,65A,568,568,58:,203,234,254,91[,480,491,58:,69E,92\,95_,58:,70F,92\,87W,33!,184,11 ,124|,186,32 ,4,125},187,40(,14,35#,62>,19,188,32 ,242,62>,136,189,32 ,237,195,196,234,58:,203,234,214,65A,79O,6,0,33!,204,234,9 ,126~,502,203,234,58:,203,234,205,244,9 ,201,65A,68D,79O,71G,85U,74J,77M,65A,73I,81Q,88X,69E,78N,84T,66B,89Y,90Z,87W,70F,75K,80P,67C,86V,82R,72H,83S,76L 0,0 :C14412L8"SORRY, THERE'S AN ERROR IN THE DATA!": 60000`  500 1:1:7: &23658j\,8 X 9000(# * MAIN CONTROL ROUTINE ON=1:OFF=0   2400` copy=1 C$=S$(copy,1)  1300 TRUE=01022 C$=S$(copy,1) 1600@:flag=0 O1010*(line=1)+1020*(line=2)+1050*(line=3)  2000 $ .UJ$="00":"COULD YOU REPHRASE THAT OLD CHAPDIDN'T QUITE GET THE GIST.":1050 8(J$)13 1140t BPS1=1 L8L$(local,PS1PS1+1)="00"1140t VSL$(local,PS1PS1+1)J$PS1=PS1+4:1100L `8local=(L$(local,PS1+2PS1+3)) jPS1=1:1010 tcopy=1 ~ 1500 O1010*(line=1)+1020*(line=2)+1170*(line=3)  1300 TRUE=01150~  1600@ copy=1 1010*(line=1)+1020*(line=2)+1050*(line=3)+1210*(line=4)+1150~*(line=5) * INITIALISE NEW GAME * ":"WOULD YOU LIKE ANOTHER GAME?" "Y"1220  * TEST STATUS * TRUE=0 (PS3=1 2#C$(PS3)="*"TRUE=1: <code1=C$(PS3) F6code2=C$(PS3+1PS3+2) P!1390n+10 *code1 Z7TRUE=1PS3=PS3+3:13302 dcopy=copy+1 n xTRUE=(code2=local): 7TRUE=(O(code2)=localO(code2)=-1): 6TRUE=(O(code2)localO(code2)0): "TRUE=(O(code2)=-1): TRUE=(F(code2)=ON): TRUE=(F(code2)=OFF): !TRUE=(C(code2)=1): * MATCH INPUT * copy>action1560 <E$(copy,12)J$copy=copy+1:1510 \(E$(copy,34)K$E$(copy,34)"00")copy=copy+1:1510 C$=E$(copy,5) line=3: ,flag=1line=2:flag=0: "&::"'FRAID NOT OLD CHAP YOU CAN'T"; ,!J$<13 " GO THAT WAY"; 6".":line=1: @* PERFORM ACTIONS * Jflag=1 TPS3=PS3+1 ^C$(PS3)="*" h'code1=(C$(PS3))-64@ r'C$(PS3+1)="*"1670 |8code2=(C$(PS3+1PS3+2)) line=5 !2580 +20*code1 line5 PS3=PS3+3  1630^ * INPUT COMMAND * 23692\,255 I$=""::">"; A$=:A$=""2020 ""2025 A$=(13 )2080  A$; I$=I$+A$:A$=" "I$=I$+" "  1I$>32 :"COMMAND TOO LONG.":2010  2020  I$=""2020 %.I$(1)=" "I$=I$(2):2085% *,C(1)=C(1)-(C(1)>0) /I$=I$+" " 4PS2=0 >J$="00":K$="00" HPS2=PS2+1 RPS2>I$ \I$(PS2)=" "2120H fPS2=12170z p3I$(PS2-(PS2>1))" "2120H zCIF LEN I$<4 THEN LET W$=I$(PS2 TO ): GO TO 2180 $W$=I$(PS2PS2+3) PS2=PS2+3 N=1words W$=D$(N,3)2220 N:2120H /J$="00"J$=D$(N,12):2120H K$=D$(N,12)  `* LOCATION DESCRIPTION eF(1)=OFF2440 f,C(2)=C(2)-(C(2)>0) jF(2)=ON2440 t,C(3)=C(3)-(C(3)>0) ~A:"FRIGHTFULLY DARK HERE SKIPPER CAN'T SEE A DASHED THING.": : V(local)=12455 ):3480 +20*local:2460 +"YOU ARE IN ";:3490 +20*local V(local)=1 N=1tnobs O(N)=local2490 N: :"ALSO HERE IS:-": N=Ntnobs O(N)=localO$(N,1) N: * PERFORM ACTIONS * (: - 2995 +5*code2 2 <&:"OK SKIPPER, ROGER,WILCO AND OUT." Pline=2: dline=3: x"line=1:V(local)=0: N=1tnobs O(N)<02708 N E"YOU DON'T APPEAR TO BE CARRYING ANYTHING SKIPPER.":line=1: :"YOU HAVE WITH YOU:-": N=1tnobs O(N)<0O$(N,1) N line=1: local=code2: qnobj5"SORRY SKIPPER 'FRAID THE OLD BOMB BAYS ARE FULL, YOU CAN'T CARRY ANY MORE.":line=1: ^O(code2)=-1"THINK YOU'LL FIND YOU ALREADY HAVE IT OLD CHAP.":line=1: O(code2)=-1 nobj=nobj+1  SO(code2)-1"'FRAID YOU DON'T HAVE ";O$(code2):line=1: O(code2)=local nobj=nobj-1  O(code2)=local: %O(code2)"MXK QXBZK NBBSUGYK YQHLCY WBDLA MB WKVKGZ G YKUWKM WBBF.": 0\"HM'Y RDZZ BR UBZA QGMKW (QXGM AHA OBD KJTKUM) GLA G ZBM BR LGYMO YIDHCCZO MXHLCY.": 5"OBD CKM GNYBZDMKZO, CZBWHBDYZO, WBGWHLCZO, MBMGZZO NZBMMB GLA KVKL NKMMKW OBD ABL'M QGSK DT QHMX G XGLCBVKW. MXGM'Y NKUGDYK OBD ABL'M QGSK DT." 6"OBD'WK UGTMDWKA GLA YXBM.": :$"OBD'WK GZWKGAO YMGLAHLC BL HM.": ? "MXK YSOZHCXM HY QHAK BTKL.": D?"MXKWK HY G NBBSUGYK YQDLC BTKL WKVKGZHLC G XHAAKL GMMHU.": I8"QXGM AB OBD FKGL XKZT? OBD'VK BLZO EDYM YMGWMKA.": N_"MXK FGLHU FHLKW CBKY RDWHBDYZO MB QBWS GLA AHCY OBD GL KYUGTK MDLLKZ HL LB MHFK GM GZZ.": S"GRMKW G CWKGM AKGZ BR MBHZ BR G FGCLHMDAK UBFTGWGNZK BLZO MB MOTHLC HL MXHY TWBCWGF OBD FGLGCK MB UBLYMWDUM G FBMBWUOUZKYMDLM WGFT.": X"MBLO YUBRRY MXK UBWLRZGSKY HL KJGUMZO 3.5 FHUWBYKUBLAY. 'MXGLSY H LKKAKA MXGM H GZFBYM RGAKA GQGO MB GL KZKTXGLM'.": ]"WBCKW FGSKY G TKWKRKUM EDFT BVKWMXK QGZZ MB RWKKABF. GRMKW G RKQAGOY OBD WKUKHVK G TBYMUGWA QHMXMXK HFFBWMGZ QBWAY 'FGAK HM NGUS MB NZHCXMO UXGTY'.": b"QHMX G CWKGM AKGZ BR XDRRHLC GLA TDRRHLC, MBLO UZHFNY BVKW MXK NGMMZKFKLMY GLA KYUGTKY MB RWKKABF. (ZGYM YKKL FBAKZZHLC RBW MXK PKTTKZHL GHWYXHT UB.)": g"MGZZO-XB UXGTY, UXBUSY GQGO (ABL'M RBWCKM MXK RWDHM CDFY MBB)WBCKW, QHZUB, WKA-ZKGAKW MB MBQKW UZKGW RBW MGSK-BRR, TGLAG1MB MKAAONKGW4 NGLAHMY GM 3 B'UZBUS, UWBYYWBGAY 6:30 GLA GLO BMXKW YTHRRHLC, EBZZO-XBUSKOYMHUS TXWGYKY OBD UGL MXHLS BR." hV"TKMKW QHLCY XHY QGO MB RWKKABF LKVKW MB WKMDWL MB MXK AWKGAKA UGYMZK WGMXNBLK.": l["TKMKW CHVKY G QBLAKWRDZ WKLAKWHLC BR QK'ZZ FKKM GCGHL AWKYYKA GY VKWG ZOLL.": q}"MXK SLHCXM YGOY 'MG VKWO FDUX HM'Y FO AGO BRR GLA H'F CBHLC MBFKKM MXK AGQL(FO CHWZRWHKLA) YB OBD UGL XGVK FO XKZFKM.": v"MXK AWGCBL MDWLY WBDLA YZBQZO, CHVKY OBD GL KVHZ ZBBS GLA MXKL YZBQZO CWHZZY OBD DLMHZ OBD'WK G LHUK UWHYTO ZDFT BR UXGWUBGZ. YBFKXBQ H MXHLS OBD GWK IDHMK AKGA.": {4"HM GHL'M XGZR XBM XKWK GLA MXGMYYXBQ NHPPLKYY.": ;"OBD LKKA YBFK YBWM BR AHVKWYHBL MB 'YXBQ' MXK CDGWAY.": A"QXO ABL'M OBD CKM SLBMMKA GLA XKZT OBDWYKZR RBW G UXGLCK.": 0"HR OBD XGA G UBFTGYY OBD'A CKM MXK TBHLM.": &"QXGM OBD LKKA HY G ZHMMZK NBBYM.": -"MWO WKTXWGYHLC MXHLCY GLA ZBBS GWBDLA.": 5"QXGM'Y MXK RHWYM MXHLC OBD AB QXKL QGSHLC DT?": 3"MXKWK'Y LBMXHLC FDUX BR HLMKWKYMXKWK YSHTTKW.": -"MXKWK HY G MDLLKZ WKGAO RBW OBDWKYUGTK.": 1"MXKWK HY G WBTK RHJKA MB MXK NGMMZKFKLMY": /"MXKWK HY G FBMBWUOUZK WGFT FGAK BR KGWMX.": d"TKMKW HY CHVHLC G CWKGM TKWRBWFGLUK GY VKWG ZOL GLA SKKTHLC MXK CDGWAY AHYMWGUMKA.": A"MXKWK HY G AKGA AWGCBL QHMX G YGNWK NDWHKA HL HMY UXKYM": d"MBLO CKMY YMDUS ABQL MXK XBZK GLA MXQGWMY MXK QXBZK KYUGTK. OBD GWK GZZ UGTMDWKA GLA YXBM.": "XHT! XHT! XBBWGO. QK'WK BL BDW QGO. NO EBVK MXGM QGY G UZBYK MXHLC BZA UXGT NDM OBD FGLGCKA MB UBFTZKMK OBDW FHYYHBL KX QXGM": Z"MDM! MDM! YSHTTKW MXGM'Y EDYM LBM UWHUSKM, MXK BMXKW UXGTY XGVKL'M CBM BDM OKM.": ."'KGM XKWK' OBD FDYM NK EBSHLC YSHTTKW.": N"H YGO YSHTTKW, MXGM'Y G NHM CWKKAO. KFKWCKLUO WGMHBLY KX QXGM!": +"OBD UGL'M ADFFO MXK MOWKY GWK RZGM.": ڸ"MBLO HY XKWK UXGHLKA MB MXK QGZZMXK RHKLAHYX CDGWAY BR UGYMZK WGMXNBLK XGVK NKKL MBWMDWHLC XHFNO YXBQHLC XHF VHAKBY BR UWKGF UGSKY. XK HY XBQZHLC HL GCBLO QHMX XDLCKW TGHLY.": y"GZZ MXK FKL QKGWHLC DLHRBWF GWK CDGWAY QBDZA OBD NKZHKVK!! GLA MXKO'WK GZZ QGMUXHLC WKWDLY BR GDR-QHKAKWYKL TKM.": 2"GZZ MXK CDGWAY GWK BDM QGMUXHLC TKMK'Y YXBQ.": -"OBD UGL'M MXKWK GWK MBB FGLO CDGWAY.": "MXGM'Y NKMMKW. LBM FDUX NDM GM ZKGYM OBD UGL YKK MXK RHZMX GLA YIDGZBW MXGM YDWWBDLAY OBD. OBD'WK HL MXK KAHMBWHGZ BRRHUK GLA GZBLK, QXHUX FKGLY HM'Y" "ZDLUXMHFK - MXBDCX HM UBDZA KIDGZZO NK FBWLHLC BW GRMKWLBBL.OBD'VK NKKL RGYM GYZKKT - GZYB LBM DLDYDGZ HL MXHY BRRHUK.": "MXK KAHMBW'Y BRRHUK.": C"OBD'WK HL XGWWO MXK XGUSKWY WBBFMXBDCX XK'Y LBQXKWK MB NK YKKL." a"MXKWK GWK CGFKY KVKWOQXKWK, BL MXK RZBBW, AKYS, UXGHW, BL MBT BR MXK ABBW...... BDUX! MXKO" "QKWK BL MBT BR MXK ABBW. VHYHNZKKJHMY ZKGA L,Y,K,Q. MXKWK'Y GZYBGL HLVHYHNZK KJHM NDM H QBDZAL'MQBWWO GNBDM HM GY OBD UGL'M" $"YKK HM. (HMY HLVHYHNZK ADFFO.)": ""XGWWO MXK XGUSKW'Y BRRHUK.": _"MXHY HY MXK UGYMZK SHMUXKL. HM'YQGWF GLA YMKGFO - FDYM NK MXK TWHFKVGZ YBDT BL MXK YMBVK." ^"OBD YKK G TZGMK BR YGZFBLKZZG GLA UDUDFNKW YGLAQHUXKY QHMX G YZDC MWGHZ ZKGAHLC MB HM." Y"HM'Y XGWA MB MKZZ HR MXK YZDC XGY KLMKWKA MXK YGWLHKY, BW EDYMFGAK CBBA XHY KYUGTK." Y"MXKWK'Y FBWK YBDT HL MXK YHLS MXBDCX MXHY MHFK HM'Y NKHLC DYKARBW MXK QGYXHLC DT.": "MXK SHMUXKL.": -"OBD GWK HL MXK UBFFGLAGLM'Y IDGWMKWY." v"KVKWOMXHLC'Y HL G MKWWHNZK FKYY NDM GM ZKGYM HM ABKYL'M YFKZZ. QKZZ MXK UBFFGLAGLM'Y LBM BLK BRMXK WGLS GLA RHZK." )"(GZMXBDCX XK ABKY XGVK G 'TKL & HLS')" Q"BL XHY AKYS MXKWK HY G NHC FGU GLA G MKZKTXBLK. MB MXK YBDMX HYG QGWAWBNK.": ,"MXK UBFFGLAGLM'Y TWHVGMK IDGWMKWY.": 6"AB OBD BRMKL QGZS HLMB BMXKW TKBTZKY QGWAWBNKY?" j"MXHY BLK'Y BNVHBDYZO MXK UBFFGLAGLMY QHRK'Y GY HM'Y RDZZ BR XKW AWKYYKY GLA XHCX XKKZKA YXBKY." J"GM ZKGYM QK TWKYDFK HM'Y XHY QHRK'Y (OBD LKVKW UGL MKZZ MXKYKAGOY.)"  $"MXK UBFFGLAGLM'Y QGWAWBNK.": n"OBD'VK EDYM RGZZKL HL MXK UBFFGLAGLMY YQHFFHLC TBBZ. OBD LBMHUK MXGM MXKWK'Y UXZBWHLK HL MXK QGMKW." &"OBD QGVK NDM YXK ABKYLM YKK OBD.": -"MXK UBFFGLAGLM'Y TWHVGMK YQHFFHLC TBBZ.": $>"OBD'WK HL G YFGZZ QGZZKA CGWAKL QHMX G QKZZ HL MXK UKLMWK." &"QXGM LB CLBFKY?" ."MXK UGYMZK CGWAKLY.": 8"OBD GWK HL MXK CDGWAWBBF.": B"MXK UGYMZK CDGWAWBBFY": La"OBD'VK EDYM KLMKWKA MXK TGWGAK CWBDLA NDM ZDUSHZO RBW OBD LB- BLK'Y TGWGAHLC GM MXK FBFKLM." N_"MXK QGZZ YDWWBDLAHLC MXK CWBDLA HY VKWO XHCX YB OBD UGL RBWCKM GNBDM MWOHLC MB UZHFN HM.": V"MXK TGWGAK CWBDLA.": `U"OBD GWK HL MXK CGWGCK QXKWK MXK UBFFGLAGLM SKKTY XHY NWGLA YTGLSHLC LKQ....." b:"'QKZZ, HM'Y G TKWS BR MXK EBN - QXGM A'OG FKGL TGO RBW FO BQL AHKYKZ, AHA OBD SLBQ HM'Y CBM 72FHUWB-UXHTY GLA MXGM'Y EDYM RBW MXK UHCGW ZHCXMKW. MGJ-AKADUMGNZK TGLPKW FS.JJHHH.'" dX:"QXGM A'OG FKGL H'F EKGZBDY? XBQ UGL G UBFTDMKW CGFK NK EKGZBDY, YMDTHA?": j"MXK UGYMZK CGWGCK.": tR"MXK ZGWAKW OBD'VK EDYM KLMKWKA HY EGF-TGUSKA QHMX MKFTMHLC MGYMO FBWYKZY." vl"MXGM'Y TWBVHAHLC OBD'WK KHMXKW G UBUSWBGUX BW G WGM, YMHZZ HM'YNKMMKW MXGL YUXBBZ AHLLKWY H YDTTBYK." xf"OBD CWGN G XGLARDZ BR YDZMGLGY, KGM G RKQ GLA MXKL QGMUX GY MXK WKYM BR MXK TGUSKM YUDMMZKY BRR.": ~"MXK ZGWAKW.": e"OBD WKGZZO GWK RBW MXK XHCX EDFTHL XKWK. HM'Y MXK COF!! (L.N. LBEBSKY GNBDM NBN GLA YHA TZKGYK)": "MXK COFLGYHDF.": "OBD GWK HL MXK UGYMZK UGLMKKL. MBAGO'Y MGZZO BR RBBA TBHYBLHLC (YHU. KA) VHUMHFY XGY GZWKGAO NKKL UGWMKA BRR GLA MXKO'WK LBQ YKWVHLC MXK YKUBLA YHMMHLC......MXK WGMY!!!": "MXK UGLMKKL.": O"AGXZHLCY. UGXL'M OBD EDYM YFKZZ MXK CWKGYKTGHLM. HM'Y GZZ MBB. MBB AHVHLK." 7"QKZUBFK MB BDW XDFNZK MXKGMWK RKZZBQ MXKYTHGLY.": "MXK MXKGMWK.": "G FGPK BR YKUWKM TGYYGCKY":  "G FGPK BR YKUWKM TGYYGCKY.": ؁"OBD GWK HL G YFGZZ YKUWKM UBDWM-OGWA. HM'Y YB YKUWKM H AHAL'M KVKL SLBQ HM QGY XKWK GLA H ABL'M SLBQ XBQ OBD CKM BDM.": "G YKUWKM UBDWMOGWA.": n" * OBD GWK UZHFNHLC/AKYUKLAHLC G ZBLC, ZBLC, ZBLC YTHWGZ YMGHWUGYK." "QBWL YFBBMX NO MXK MWDACK,MWDACKMWDACK (OGQL,OGQL,OGQL...NBWHLC HYL'M HM?) BR MXK DLRBWMDLGMK UGTMHVKY BR UGYMZK WGMXNBLK BVKWUBDLMZKYY GKBLY, YHLUK MHFK HFFKFBWHGZ KMU,KMU." :"*" R" AKZKMK GY GTTZHUGNZK, AKTKLAHLCBL MXK AHWKUMHBL OBD GWK UBFHLC RWBF/CBHLC MB." X"(YKK UZGDYK HHH,YDN-YKUMHBL 4, TGWG.35 BR MXK YHLUZGHW 2010 TWBCWGFFHLC CDHAK)": "MXK YTHWGZ YMGHWUGYK.": a"OBD'VK EDYM KLMKWKA GL HZZ-ZHM MBQKW QHMX BLZO G UXHLS BR ZHCXMUBFHLC MXWBDCX G YZHM QHLABQ." L"HL MXK AHF ZHCXM OBD UGL EDYM FGSK BDM G UXGHW GLA MQB FBWK ABBWY.":  "MXK UGYMZK MBQKW.": )"QXB'Y GRWGHA BR MXK NHC NGA QDZR?" T"QKZZ MXKWK'Y LB LKKA MB NK, UBY XHY XKGA HY XDLC BL MXK QGZZ BR MXK MWBTXO WBBF." g"XK'Y QKGWHLC MXGM YZHCXMZO YMGWMZKA ZBBS MXGM QK GZZ CKM QXKL YBFKBLK HY GNBDM MB YXBBM DY." S"MXKWK'Y G MKZZO HL MXK UBWLKW YXBQHLC G TWBCWGF GNBDM NHC CGFK XDLMHLC.": )"MXK MWBTXO WBBF GL KJHM ZKGAY YBDMX": (0"OBD GWK HL G NKQHZAKWHLC FGPK BR UBWWHABWY": 2&"G NKQHZAKWHLC FGPK BR UBWWHABWY.": <}"OBD'WK HL G ZBLC CGZZKWO (HM'Y GZFBYM GY ZBLC GY MXK QGHM RBW FO TGO UXKIDK) XDLC QHMX MXK TBWMWGHMY BR BZA FGYMKWY." >P"MXKO ZBBS GZFBYM GY UWDKZ GLA XKGWMZKYY GY MXK RGUKY BR OBDW LKQ FGYMKWY." @="MXKWK'Y GL BZA BGS ABBW GM MXK RGW KLA BR MXK CGZZKWO.": F"MXK ZBLC CGZZKWO.": P4"OBD'WK LBQ HL MXK ZHNWGWO BR UGYMZK WGMXNBLK." R"MXK YXKZVKY GWK CWBGLHLC DLAKW QKHCXM BR GZZ MXK NBBSY. QKZZ, MWBDNZYXBBMHL TKMK'Y NBBSYGWK XKWK GLA KVKWOBLK CWBGLY GM MXKF." T+"OBD GZYB LBMHUK G ZKVKW BL OBDW ZKRM.": Z""MXK UGYMZK WGMXNBLK ZHNWGWO.": d>"OBD GWK LBQ KLMKWHLC MXK GMMHU, YB NKQGWK BR GMHU GMGUY." f"MXK WBBF HY NGWK KJUKTM RBW MXK WKCDZGMHBL AKTMX BR WBBR HLYDZGMHBL, G UBZA QGMKW MGLS GLA GL KJMWG ZGWCK YSOZHCXM.": n"MXK GMHU.": x"OBD GWK BL MXK NGMMZKFKLMY BR MXK FBLYMBWBDY UGYMZK WGMXNBLK QXKWK G UXHZZ QHLA NZBQY GLA KVHZ YMGZSY HL MXK LHCXM.": "MXK NGMMZKFKLMY.": "OBD'WK HL MXK UKZZGW. MXK QGZZY GWK ZHLKA QHMX YBFK BR MXK RHLKYM QHLKY HL KDWBTK. MXKWK'Y G MKYUB '77, G YGHLYNDWO WKA 1984 GLA MXKWK'Y KVKL G UXKKSO ZHMMZK NKEBZZO GM GYAG TWHUKY.": "MXK YFKZZO UKZZGW.": "OBD'WK HL MXK ADLCKBLY BR G 1000GAVKLMDWKY BLZO MXKWK'Y YBFK MXHLC G NHM BAA GNBDM MXHY BLK MXK SLHCXM RHCXMHLC MXK AWGCBL HY QKGWHLC G UWGYX XKZFKM," 5"GLA XK ZBBSY GY HR XK UBDZA AB QHMX YBFK XKZT.": "MXK AGWS AGLS ADLCKBLY.": u"MXHY TZGUK HY MXK THMY FGL GLA TKMK'Y DYDGZZO HL HM (GY BTTBYKAMB NKHLC HL YBFKMXHLC MXGM WXOFKY QHMX THM)." :"GY DYDGZ XK'Y XGWA GM QBWS TZGOHLC FGLHU FHLKW.": "TKMK'Y THM.": "GGGGGGGGGGGWWWWCCXX!!!" "MXGM'Y NKMMKW. H XGA G RWBC HL FO MXWBGM. HLUHAKLMZO BZA UXGT H QBDZAL'M QHYX MB QBWWO OBD LKKAZKYYZO NDM MXHY HY MXK MBWMDWK UXGFNKW GLA MXKWK'Y LBMXHLC H LKKA ZKYY MXGL THGLB ZKYYBLY QKGWHLC MXDFNYUWKQY.": "MXK MBWMDWK UXGFNKW.": U"HM'Y YB XBM GLA YMKGFO HL XKWK OBD UGL'M YKK G MXHLC MXHY FDYM NK MXK ZGDLAWO.": "MXK ZGDLAWO.": "OBD GWK GM MXK NBMMBF BR MXK QKZZ. OBD RKKZ G AWGDCXM NZBQHLCGUWBYYY OBDW RGUK NDM HM'Y AGWS YB OBD UGL'M YKK QXKWK OBD'WK CBHLC.": +"OBD GWK GM MXK NBMMBF BR MXK QKZZ.": #(**** SET UP ARRAYS *** #*action=109m #-status=15 #2locate=30 #7words=105i #<tnobs=25:nobj=0 #Alocal=1 #F"E$(action,40():EVENT TABLE #K+S$(status+1,16):STATUS TABLE #P+L$(locate,24):LOCATION CONNECTIONS #UD$(words,6):DICTIONARY #Z)O$(tnobs,32 ):OBJECT DESCRIPTIONS #_ V(locate) #dO(tnobs):OBJECT LOCATIONS #iF(21):C(10 ) #jF(1)=1 #kF(3)=1 #n**** EVENT TABLE ***** #sN=1action #xX$:E$(N)=X$ #}N #~"0100101601*G02E*" #"0300122511*G23E*" #'"0400108519*G09E*","0400108619*A62D*" #!"1320219*H19B*","1338214*H14B*" #!"1334201*H01B*","1323202*H02B*" #1"1322215*H15B*","1322216*H16B*","1332204*H04B*" #!"1335205*H05B*","1336208*H08B*" #!"1330217*H17B*","1318211*H11B*" #7"1319128503*H10N03B*","1319210*H10B*","1337213*H13B*" #:"1339203*H03B*","1339225*H25B*","1372122221*M11A24K21D*" #A"1376220*H20B*","1331212*H12B*","1321206*A58D*","1321207*H07B*" #"1387218*H18D*" #!"1420419*I19B*","1438414*I14B*" #!"1434401*I01B*","1423402*I02B*" #1"1422415*I15B*","1422416*I16B*","1432404*I04B*" #!"1435405*I05B*","1436408*I08B*" #!"1430417*I17B*","14184II*I11B*" #!"1419410*I10B*","1437413*I13B*" #!"1431412*I12B*","1438414*I14B*" #A"1439403*I03B*","1439425*I25B*","1476420*I20D*","1421407*I07B*" #"1487418*I18D*" #:"1500111609*A09J15D*","1563110*A15D*","1500119314*J14E*" #7"1500101601*A05D*","1564107*A12D*","1565610*A16J06D*" #'"1569118608*A18D*","1569118508*A20D*" #!"1574123*A25D*","1536112*A17D*" #"1500126520*A52D*","1500*E*" #*"1617101501*N01E*","1673123612*M12A28D*" #"2526104*A01D*" #w"2600101621*A30M21D*","2600101*A46D*","2600114*A40D*","2600108*A41D*","2600129*A42D*","2600115*A43D*","2600123*A44D*" #"2600*A45D*" #<"2728123202216201507*J09K02K16E*","2748109225*A32K25M17D*" #$"2930217*L17E*","2987124218*M18E*" #"311814211204*A37M19D*" #"3549205206*L06E*" #"4041104*A01B*" #6"4388114211204*A37M19I11I04D*","4419215210*A33L15D*" #"4546116212*A31J24K12M16D*" #"4737213*M07A23D*" #-"5152126214*A38J22H22D*","5152126314*A39Q*" #"5455122*A04A22J21J13B*" #A"5657101*A06Q*","5662104*A10D*","5622215*A57D*","5600113*A56D*" #"5880101*A07D*" #;"6100111609*A09J15D*","6100101601*A05D*","61119314*J14E*" #"6764107*A14G30E*" #4"6863110*A15D*","6865610*A16J06D*","6836112*A17D*" #'"7071118608*M08B*","7071118508*A27D*" #"8200*F*","8384119*A21D*" #'"7576220*A20Q*","7919128503*J10N03B*" #("851812351351409512211*A36M15K11K09D*" #G"8520109219207222517*A34K19K07K22M13D*","8519124518210513*A35K0M14D*" #F"8519116516210*A53Q*","8500116516513514515*A54Q*","8500116516*A55D*" #"8687124218*M18B*" #"8939116224203*K24K03J25E*" #***** STATUS TABLE **** #N=1status $X$:S$(N)=X$ $N $$S$(N)="*D*":status=status+1 $""123512*A28D*","101501*A03D*" $$"118508*A19D*","122511*A29D*" $&."116516*A48D*","124518*A49D*","109517*A50D*" $("114519*A51D*","126520*A52D*" $4="128503*A59D*","117508*N08D*","119508*N08D*","124508*N08D*" $6"108619*A60D*","108519*A61D*" $T$***** LOCATIONS CONNECTIONS ****** $^N=1locate $hX$ $r L$(N)=X$ $|N $"00","011202010317040300" $#"01110302040700","01070205040600" $"010400","030400" $"011002040303040800","030700" $"030800","020700" $"020300","0113020200" $"02120315041400","031300" $"011502150315041300","041500" $'"04020518062500","011903200524061700" $"021800","012002200321041900" $"0322042000","042100" $"042200","061800" $!"02260329051700","012503280427" $"032600","0129042600" $"0228042500","011600" $***** DICTIONARY ****** $N=1words $X$:D$(N)=X$ $N $Y"01NORT","01N","02SOUT","02S","03EAST","03E","04WEST","04W","05UP","05U","06DOWN","06D" $6"13TAKE","13GET","13GET ","14DROP","14LEAV","15LOOK" $7"68EXAM","16OPEN","17EYES","18PETE","19TONY","20ROGE" $-"21MOTO","21BIKE","22BOX","22CORN","23SQUE" $7"24TELE","25CALL","26HELP","27BUIL","27MAKE","28PLAN" $O"29TIE","30SHEE","31MANI","31MINE","32DRES","32SEXY","34JET","34PAC","35PUMP" $7"36VAUL","36HORS","37BLUE","37BOOK","38SABR","39SACK" $>"40USE","41PHON","42HELP","43GIVE","44FEED","45DIG","46HOLE" $I"47READ","48RAMP","49TYRE","50RIDE","51KILL","52DRAG","54PULL","55LEVE" $i"56EAT","56EAT","57SARN","58TYPE","59GAME","60TURK","61SEAR","62BIG","62MAC","63PANZ","64WELL","65GARA" $d"66ROOM","67GO ","67ENTE","68EXAM","69CHIN","70CLIM","71CHAI","72MANU","73SKYL","74TANK","75DRIN" $7"76WINE","77SQUE","78HELM","79FREE","80MESS","81LARD" %?"82INVE","82STAT","83WATC","84TELL","85ESCA","86FIX","87ROPE" %%"88SHOW","88PERF","89FILL","90QUIT" %**** OBJECTS **** %&N=1tnobs %0X$,X %:O$(N)=X$:O(N)=X %DN %N:"A JET PAC CARTRIDGE",2,"A SQUEEZY BOTTLE",3 %PB"A CANVAS SACK",11 ,"A SEXY DRESS",5,"A PUMP",6 %R>"A MOTORBIKE WITH FLAT TYRES",10 ,"A MOTORBIKE",0 %T0"A HORSE",12 ,"A HOME-MADE PLANE",0 %V_"BIG TONY SAMUELS",0,"TROUBL'SHOOTIN' PETE",27,"THE MANIC MINER HIMSELF",27 %X;"A BLUE PETER BOOK",0,"SABRE WULF'S SABRE",19 %ZB"A BOX OF CORNFLAKES",11 ,"AN EMPTY CORNFLAKES BOX",0 %\="A PILE OF SHEETS",29,"A ROPE MADE OF SHEETS",0 %^"ROGER WILLIS",24,"A BOTTLE CHATEAU COLLAPSO",25,"AN OLD MANUSCRIPT",0,"A MOTOR CYCLE HELMET",0,"A SHOVEL",6 %`:"A PILE OF EARTH",0,"A SACK FULL OF EARTH",0 % CEFCRdecode%e%'!S$="DOGUJMAIQXENTBYZWFKPCVRHSL" )loc=23635S\+256*23636T\ #lno=(loc+1)+256*loc loc=loc+2 (#lln=loc+256*(loc+1) -loc=loc+2 .'#0;0,0;"LINE ";lno 2'lno<3000 loc=loc+lln:20 <lno>5000 Floc=24590Z Ploc=loc+lln:20 Z*f=loc+2:f=245f=f+2 dch=f:f=f+1 n$ch<65Ach>90Z200 xf-1,S$(ch-64@) ch=34" 100d , ;