1 IFPEEK(828)<>173THENLOAD"DR",8,1
2 POKE53280,0:POKE53281,0:PRINT"[147][155]"CHR$(14)
3 DIMQ$(29),Q%(56),BB$(15),H$(24)
4 R=RND(-TI)
5 GOTO727
6 FORI=1TO14:IFB$=BB$(I)THENCX=I:RETURN
7 NEXT:IFKD=0THENPRINT"[215]HERE?"
8 YY=1:CX=0:RETURN
9 PRINT"[212]HE ROOM IS COMPLETELY DARK.  [204]IKE A    TOMB.":RETURN
10 AA$="":A$="":PRINT"[159]? [158]";
11 PRINT">[157]";:FORT=1TO20:NEXT:PRINT"[219][157]";:FORT=1TO20:NEXT:PRINT"<[157]";:FORT=1TO20:NEXT
12 GETAA$:IFAA$=""THEN11
13 IFAA$=CHR$(13)THEN20
14 IFAA$=CHR$(20)THENIFLEN(A$)THENPRINTAA$;:A$=LEFT$(A$,LEN(A$)-1):GOTO11
15 IFAA$>="A"ANDAA$<="Z"ORAA$=" "ORAA$="*"THEN19
16 IFAA$>="[193]"ANDAA$<="[218]"THENAA$=CHR$(ASC(AA$)-128):GOTO19
17 IFAA$>="0"ANDAA$<="9"THEN19
18 GOTO11
19 A$=A$+AA$:PRINTAA$;:GOTO11
20 PRINT" [155]":CX=1:RETURN
21 KD=0:YY=0:GOSUB72:GOSUB10:GOSUB77:CX=0:RETURN
22 FL=0:IFC$="UP"THENQ%(34+K)=K:PRINTZ$(1):Q%(39)=0:GOSUB99:YY=1:RETURN
23 IFC$="DO"THENQ%(34+K)=0:PRINTZ$(0):Q%(39)=0:GOSUB99:YY=1:RETURN
24 IFA$="LOSW"THENPRINTZ$(-(Q%(34+K)>0)):IFVB=0THENF$="FM":GOSUB106:PRINT:YY=1
25 RETURN
26 IFQ%(45)ANDQ%(46)ANDQ%(47)ANDQ%(48)THENQ%(49)=1
27 RETURN
28 FL=0:IFA$="TAKN"ANDQ%(26)=0ANDQ%(49)THENGOSUB30:Q%(26)=1:FL=1:RETURN
29 RETURN
30 R=FNAA(3):PRINTFF$(R):RETURN
31 FORI=10TO13:IFQ%(I)=5THENQ$(I)=G$(1,I-10)+" KEY"
32 NEXT:GOTO34
33 PRINT
34 ONQ%(0)+1GOTO752,543,553,620,654,638,693,125,117,178,187,201,206
35 ONQ%(0)-12GOTO218,227,238,251,269,278,292,301,310,318,329,337
36 ONQ%(0)-24GOTO354,363,377,382,392,401,411,427,444,453,467,472
37 ONQ%(0)-36GOTO479,488,499,507,674,700,710,593,604,568
38 M=M+1:IFM>4THENM=1
39 PRINTSPC(40*ABS((LEN(A$)=1)))M$(M):RETURN
40 A$="":PRINT"[129][198]ILENAME[158]";:GOSUB10:IFA$=""THENPRINT"[155][145]":RETURN
41 OPEN15,8,15:OPEN2,8,2,A$+",P,W":FORI=0TO56:PRINT#2,Q%(I):NEXT:CLOSE2:PRINT"[155]"
42 I=0:INPUT#15,A,A$:IFA=0THENPRINT"[211]AVED":CLOSE15:YY=1:KD=1:RETURN
43 PRINT""A$
44 I=I+1:IFI<100THENPRINT"[144][145]"A$"[145]":GOTO43
45 PRINT#15,"I0":CLOSE15:YY=1:RETURN
46 A$="":PRINT"[129][198]ILENAME[158]";:GOSUB10:IFA$=""THENPRINT"[155]":GOTO34
47 OPEN15,8,15:OPEN2,8,2,A$+",P,R":FORI=0TO56
48 INPUT#2,Q%(I)
49 NEXT:CLOSE2:PRINT"[155]":I=0
50 INPUT#15,A$,A$:IFA$="OK"THENCLOSE15:GOTO31
51 PRINT""A$
52 I=I+1:IFI<100THENPRINT"[144][145]"A$"[145]":GOTO51
53 PRINT#15,"I0"
54 CLOSE15:YY=1:RETURN
55 PRINT"[212]HE SIGNS SAY, '";:RETURN
56 PRINT"[212]WO SIGNS SAY, '";:RETURN
57 PRINT"[212]HE OTHER SIGN IS QUITE ILLEGIBLE.":RETURN
58 PRINT"[215]HETHER IT'S PARALYSIS OR RIGOR MORTIS,"
59 PRINT"THAT NOTE IS WELL CLUTCHED.":RETURN
60 PRINT"  [217]OU'RE IN A SMALL TRIANGULAR ROOM.":RETURN
61 PRINT"  [217]OU'RE IN A LARGE TRIANGULAR ROOM.":RETURN
62 PRINT"[212]HERE ARE TWO DOORS, A SIGN ABOVE EACH.":RETURN
63 PRINT"[212]HERE ARE THREE DOORS WITH SIGNS ABOVE.":RETURN
64 PRINT"[212]HE SCROLL IS BLANK AND IS APPARENTLY A SCROLL-KEY.":RETURN
65 PRINT"[207]N THE WALL IS AN [213]P/[196]OWN LIGHT SWITCH.":RETURN
66 PRINT"[217]OU CAN'T READ [204]ATIN, LA [205]ORT.":RETURN
67 PRINT"[193] MESSAGE IN [204]ATIN IS CARVED BELOW IT.":RETURN
68 D$="[210][207][207][205] OF THE "+D$:PRINT"[129]"SPC(INT(40-LEN(D$))/2)D$"[155]":D$="":I=FRE(1):RETURN
69 PRINT"[217]OU ARE IN A SMALL TRIANGULAR ROOM, THE"
70 PRINT"ONE DOOR CLOSED SNUGLY BEHIND YOU.":RETURN
71 PRINT"[193]BOVE THE DOOR IT SAYS, '";:RETURN
72 R=FNAA(4)+1
73 PRINT:PRINT"[159][145]";P$(R)"[158]";:RETURN
74 IFC$="PA"ORC$="FO"ORC$="CI"ORC$="GO"THENIFQ%(32)=0THEN76
75 RETURN
76 IFKD=0THENPRINT"[217]OU HAVEN'T EARNED ENTRANCE YET.":YY=1:RETURN
77 IFLEFT$(A$,1)=" "ANDLEN(A$)>1THENA$=RIGHT$(A$,LEN(A$)-1):GOTO77
78 PRINT"[155]";:FORI=3TOLEN(A$):IFMID$(A$,I,1)=" "THENB$=MID$(A$,I+1,2):BH=1
79 IFBHTHENBH=0:BH$=RIGHT$(A$,LEN(A$)-I):GOTO93
80 NEXT
81 IFLEN(A$)=1THENB$="":C$="":RETURN
82 A$=LEFT$(A$,3):IFA$="QUI"THENGOSUB934:RETURN
83 IFA$="LOO"ORA$="LO"THENA$="L":GOTO81
84 IFA$="VER"THENVB=0:C$="":PRINT"[214]ERBOSE YOU GOT.":YY=1:RETURN
85 IFA$="BRI"THENVB=1:C$="":PRINT"[194]RIEF YOU GOT.":YY=1:RETURN
86 IFA$="SAV"THENGOSUB40:YY=1:RETURN
87 IFA$="LOA"THEN46
88 IFA$="INV"THENGOSUB785:YY=1:RETURN
89 IFA$="FON"THENDF=DF+1:DF=DFAND1:POKE53272,19+3*DF:YY=1:RETURN
90 IFA$<>"HEL"THEN93
91 PRINT"[147]";:F$="H1":GOSUB106:PRINT:GOSUB110:PRINT
92 PRINT"[147]":F$="H2":GOSUB106:PRINT:YY=1:RETURN
93 PRINT"[155]":C$=LEFT$(A$,2)
94 IFC$="EX"THENC$="LO"
95 IFC$="GE"THENC$="TA"
96 IFC$="PR"THENC$=B$:A$="PQ":YY=1:RETURN
97 A$=C$+B$
98 RETURN
99 H=0:FORI=35TO38:H=H+Q%(I):NEXT:IFH<>Q%(56)THEN101
100 PRINT"[212]HE WHOLE [204]IBRARY IS LIT!":Q%(39)=1:RETURN
101 Q%(39)=0
102 IFQ%(39)THEN105
103 PRINT"[193]T THIS TIME ONLY THE ROOMS OF THE"
104 PRINT"[207][212][212][197][210], [212][207][193][196], [199][201][210][193][198][198][197] AND [208][201][199] ARE LIT."
105 RETURN
106 B=951:POKEB,4:POKEB+3,44:POKEB+4,80
107 FORI=0TO1:POKEB+1+I,ASC(MID$(F$,I+1,1)):NEXT:POKE909,1
108 SYS828
109 F$="":RETURN
110 PRINT:PRINTTAB(7)"[158][208]RESS ANY KEY TO CONTINUE[155]"
111 GETA$:IFA$=""THEN111
112 RETURN
113 IFA$<>"D"ANDA$<>"GOTU"THEN125
114 PRINT"[212]HE TUNNEL LEADS TO A WELL IN THE COURT-
115 [153]"ONYARD IN THE CENTER OF THE (null)IBRARY.
116 GOTO119
117 PRINT"     [129][212][200][197] [195][207][213][210][212][217][193][210][196] OF THE [195][200][201][205][197][210][193][155]"
118 IFQ%(40)=0THENPRINT"[217]OU SEE A WELL WITH A PEWTER BUCKET.
119 [153]"(null)HERE ARE DOORS TO THE NORTH, EAST,"
120 [153]"SOUTH AND WEST WITH SIGNS ABOVE SAYING,"
121 [153]"'(null)(null)(null)VAL(null)', '(null)(null)ATNSTR$', 'CHR$RIGHT$(null)ATNASCASCVAL' AND '(null)RIGHT$CHR$',"
122 [153]"RESPECTIVELY.  VALACH DOOR IS FASTENED    WITH A HOLY-LOCK."
123 [139]Q%(54)[178]0[167][153][163]19)"ON(null)N THE EDGE OF THE   WELL IS A CHALICE."
124 Q%(0)[178]8:[141]21:[137]131
125 [139]VB[167][153]"(null)IBRARY":[137]127
126 [153]"LOAD":F$[178]"LI":[141]106
127 Q%(0)[178]7:[141]21
128 [139]C$[178]"GO"[167][141]6:[139]CX[167]548
129 [139]A$[178]"L"[167][153]:[137]125
130 [141]784:[137]127
131 [139]A$[178]"L"[167][153]:[137]117
132 [145][171](C$[178]"OT")[171]2[172](C$[178]"TO")[171]3[172](C$[178]"GI")[171]4[172](C$[178]"PI")[137]178,269,354,444
133 [139]A$[178]"GOTU"[167]620
134 [139]A$[178]"CLRO"[176]A$[178]"GORO"[176]A$[178]"CLBE"[176]A$[178]"GOBE"[175]Q%(50)[177]1[167]A$[178]"GOWE"
135 [139]A$[179][177]"GOWE"[167]140
136 [139]Q%(50)[178]0[167]620
137 [139]Q%(50)[178]2[167]Q%(50)[178]3:[153]"LENLIMBING DOWN THE ROPE YOU SEE A PRIEST HOLE.":[137]124
138 [153]"(null)HE KNOT SLIPS WHEN YOU PUT TENSION ON  THE ROPE ";
139 [153]"AND YOU ALMOST FALL INTO THE   WELL.":Q%(50)[178]0:[137]124
140 [139](A$[178]"GOHO"[176]A$[178]"GOPR")[175](Q%(50)[178]3)[167]529
141 [139]A$[179][177]"LOBU"[167]144
142 [139]Q%(40)[167][153]"(null)HE BUCKET IS GONE.":[137]124
143 [153]"(null)HERE'S SOMETHING ETCHED IN THE BOTTOM  TOO SMALL TO MAKE OUT.":[137]124
144 [139]A$[179][177]"LORO"[175]A$[179][177]"TARO"[167]147
145 [139]Q%(40)[175](Q%(50)[178]0)[167][153]"(null)HERE'S NO ROPE.":[137]124
146 [153]"(null)HE ROPE IS TIED TO THE WELL BEAM.":[137]124
147 [139]A$[178]"TABU"[175]Q%(40)[178]0[167][153]"RIGHT$T'S TOO HEAVY TO TAKE.":[137]124
148 [139]A$[179][177]"LOSP"[176]Q%(54)[178]0[167]150
149 F$[178]"DC":[141]106:[153]:[137]124
150 [139]A$[179][177]"FIBU"[176]Q%(40)[167]152
151 F$[178]"BU":[141]106:[153]:Q%(40)[178]1:[137]124
152 [139]A$[179][177]"LOWE"[167]161
153 F$[178]"WE":[141]106:[153]
154 [139]Q%(40)[178]0[167]157
155 [153]"MID$UST ABOVE THE WATER LINE THERE IS"
156 [153]"SOMETHING YOU CAN'T QUITE MAKE OUT."
157 [139]Q%(50)[178]0[167]124
158 [153]"(null)HE BELLROPE IS TIED AT THE TOP AND IS"
159 [153]"DANGLING INTO THE WELL."
160 [137]124
161 [139]A$[179][177]"REIN"[175]A$[179][177]"LOIN"[167]166
162 [139]Q%(8)[178]0[167]165
163 [153][163]10)"FOR(null)HE (null)ELL OF (null)T (null)PURIOUS"
164 [153]"LIST(null)HE WELL IS THE CENTER OF ALL KNOWLEDGE.ONON":[137]124
165 [153]"(null)ATIN HAS NEVER BEEN YOUR STRONG SUIT,  RIGHT$NSPECTOR.":[137]124
166 [139]A$[179][177]"TIBE"[175]A$[179][177]"TIRO"[176]Q%(25)[178]0[167]170
167 Q%(25)[178]0:[153]"FOR(null)HICH KNOT DO YOU PREFER";:[141]10
168 [139][200](A$,2)[178]"SL"[167][153]"LISTATN WISE CHOICE.":Q%(50)[178]2:[137]124
169 [153]"LISTRIGHT$F YOU SAY SO.":Q%(50)[178]1:[137]124
170 [139]A$[179][177]"TACH"[176]Q%(54)[167]175
171 [153]"(null)OOPS!  (null)HE CHALICE, WHICH APPEARED TO"
172 [153]"BE FILLED WITH "Z$(3[170]Q%(33))", FALLS INTO THE":Q%(54)[178]1
173 [153]"WELL.  (null)HERE'S A SPOT ON THE WELL WHERE"
174 [153]"THE CHALICE WAS.":[137]124
175 [139]A$[178]"LOCH"[175]Q%(54)[178]0[167][153]"(null)HE CHALICE HAS SOMETHING IN IT.":[137]124
176 [139]C$[178]"GO"[167][153]"(null)HE FOUR DOORS ARE LOCKED WITH          HOLY-LOCKS.":[137]124
177 [141]784:[137]124
178 D$[178]"(null)(null)(null)VAL(null)":[141]68
179 [141]60:[141]62:[141]55:[153]"LENLEFT$RIGHT$(null)VAL(null)ATN' 'LENATN(null)'.":[141]65:[141]67
180 Q%(0)[178]9:[141]21
181 [145][171](C$[178]"CA")[171]2[172](C$[178]"CH")[171]3[172](A$[178]"L")[137]187,117,33
182 [139]A$[179][177]"LOME"[175]A$[179][177]"REME"[167]185
183 [139]Q%(8)[167][153]"'(null)HERE ARE 100000 ROOMS IN THE (null)IBRARY.'ONON":[137]180
184 [141]66:[137]180
185 K[178]1:[141]22
186 [141]784:[137]180
187 [139]Q%(39)[178]0[167][141]9:[137]192
188 D$[178]"LENATN(null)":[141]68:[141]60:[141]63
189 [141]56:[153]"(null)(null)(null)VAL(null)'  '  VAL(null) ATN (null)'.":[141]57
190 [139]Q%(10)[167]192
191 [153]"ATN SCROLL ENTITLED '(null)PEEK(null)(null)ATNPEEK' WRITTEN BY   (null)T ATNNAGRAMAS IS ON A TABLE.
192 Q%(0)=10:GOSUB21
193 IFC$<>"EL"THEN196
194 IFQ%(12)<2THENPRINT"[212]HE DOOR HAS A SCROLL-LOCK.":GOTO192
195 IFQ%(39)THEN201
196 ON-(C$="OT")-2*(C$="BE")-3*(A$="L")GOTO178,329,33
197 IFQ%(39)=0THEN187
198 IFA$="TASC"ANDQ%(10)=0THENQ%(10)=1:GOSUB30:GOTO192
199 IFA$="LOSC"ANDQ%(10)=0THENGOSUB64:GOTO192
200 GOSUB784:GOTO192
201 D$="[197][204][197][208][200][193][206][212]":GOSUB68:GOSUB61:GOSUB63
202 GOSUB55:PRINT"[195][193][212]' [160]'[199][206][213]'  '[194][207][193][210]'.
203 Q%(0)[178]11:[141]21
204 [145][171](C$[178]"CA")[171]2[172](C$[178]"BO")[171]3[172](C$[178]"GN")[171]4[172](A$[178]"L")[137]187,206,218,33
205 [141]784:[137]203
206 D$[178]"PEEK(null)ATN(null)":[141]68
207 [141]69
208 [141]71:[153]"VAL(null)VAL(null)LEFT$ATN(null)(null)'."
209 [139]U[178]0[167][153]"ATN THICK, ACRID SMOG MAKES YOU FEEL A BITSTRANGE.
210 Q%(0)=12:GOSUB21:IFC$="EL"THEN201
211 IFA$="L"THEN33
212 IFA$="TABU"ANDQ%(9)=0THENQ%(9)=1:U=0:GOSUB30:GOTO210
213 IFA$="LOBU"ANDQ%(9)=0THENPRINT"[201]T LOOKS LIKE YOUR AVERAGE [208]APAL [194]ULL.":GOTO210
214 IFA$<>"HOBR"ANDU=0THENGOSUB38:GOTO210
215 IFU=0THENPRINT"[212]HE HALLUCINATIONS DIMINISH A LITTLE.":U=1
216 IFUTHENIFQ%(9)=0THENPRINT"[217]OU SEE THE [208]APAL [194]ULL OF 303 [193][196].":GOTO210
217 GOSUB784:GOTO210
218 D$="[199][206][213]":GOSUB68:GOSUB61:GOSUB62
219 GOSUB55:PRINT"[207][216]'  '[197][204][197][208][200][193][206][212]'."
220 IFQ%(41)THEN224
221 PRINT"[212]HROUGH THE WINDOW OVERLOOKING THE
222 [153]"(null)OVICES' (null)UARTERS, YOU SEE A LIGHT IN
223 PRINT"[206]OVICE [211]COTIA'S ROOM.":Q%(41)=1
224 Q%(0)=13:GOSUB21
225 ON-(C$="OX")-2*(C$="EL")-3*(A$="L")GOTO227,201,33
226 GOSUB784:GOTO224
227 D$="[207][216]":GOSUB68:GOSUB61:GOSUB63
228 GOSUB56:PRINT"[199][206][213]'  '[210][193][205]'.
229 [153]"ATNBOVE THE OTHER DOOR IT SAYS, '(null)O ENTER THE (null)OOM OF THE (null)ATN(null)(null)LEFT$VAL(null), ";
230 [153]"YOU MUST SOLVE THE (null)WO (null)UZZLES OF (null)T LENALIBAN.
231 IFQ%(8)THEN233
232 PRINT"[212]HE REST OF THE SIGN IS IN [204]ATIN.":GOTO235
233 PRINT"[212]HE [210]OOM OF THE [198]IRST [208]UZZLE MUST BE"
234 PRINT"ENTERED FROM THE [210]OOM OF THE [194]EAR.'
235 KD[178]0:Q%(0)[178]14:[141]21:[141]74:[139]A$[178]"L"[167]33
236 [145][171](C$[178]"GN")[171]2[172](C$[178]"RA")[170]3[172]((C$[178]"PA")[175]Q%(32))[137]218,238,251
237 [141]784:[137]235
238 D$[178]"(null)ATN(null)":[141]68:[141]60:[141]62
239 [153]"(null)NE SAYS '(null)(null)', THE OTHER IS ILLEGIBLE."
240 [139]Q%(22)[167]243
241 [153]"PEEKEHIND SOME BOOKS YOU FIND A PORNSCROLL ILLUSTRATED WITH A ";
242 [153]"RATHER (null)ISTER STR$EBBIE-LIKE FIGURE.
243 Q%(0)=15:GOSUB21
244 ON-(C$="OX")-2*(C$="BE")-3*(A$="L")GOTO227,453,33
245 IFA$="TAPO"THENIFQ%(22)=0THENQ%(22)=1:GOSUB30:GOTO243
246 IFA$="LOPO"ANDQ%(22)=0THENPRINT"[217]OUR AVERAGE PORNSCROLL.":GOTO243
247 IFA$<>"LORU"THEN250
248 IFQ%(43)THEN764
249 PRINT"[200]MMM.  [212]HIS RUG, ALSO SIGNED BY [211]T [195]AL  HIMSELF, IS DIFFERENT.":GOTO243
250 GOSUB784:GOTO243
251 D$="[208][193][206][212][200][197][210]":GOSUB68:GOSUB69:GOSUB71:PRINT"[207][216]'."
252 PRINT"[207]N THE FLOOR LIES [211]ISTER [196]EBBIE, A NOTE
253 [153]"CLUTCHED IN HER HAND.  (null)HE NOTE SAYS,
254 GOSUB526
255 PRINT"[208]ANTHER'.
256 [141]528
257 [139]Q%(45)[178]0[167][153][163]11)"ON(null)ISTER STR$EBBIE GASPS, '(null)LEASE HEAR MY CONFESSION?'"
258 Q%(0)[178]16:[141]21
259 [139]C$[178]"OX"[167]227
260 [139]A$[178]"L"[167]33
261 [139]A$[179][177]"HECO"[176]Q%(45)[167]266
262 Q%(45)[178]1:[141]26
263 [153]"(null)ISTER STR$EBBIE WHISPERS IN YOUR EAR,":[129]T[178]0[164]3000:[130]
264 [153]"LOAD":F$[178]"SD":[141]106:[153]
265 [141]524:[137]258
266 [139]A$[178]"TANO"[176]A$[178]"LONO"[167][141]58:[137]258
267 [141]28:[139]FL[167]FL[178]0:[137]258
268 [141]784:[137]258
269 D$[178]"(null)(null)ATNSTR$":[141]68
270 [141]60:[141]62:[141]55:[153]"'LENLEFT$RIGHT$(null)VAL(null)ATN'  'STR$VALVAL(null)'.":[141]65:[141]67
271 Q%(0)[178]17:[141]21
272 [145][171](C$[178]"DE")[171]2[172](C$[178]"CH")[171]3[172](A$[178]"L")[137]278,117,33
273 [139]A$[179][177]"LOME"[175]A$[179][177]"REME"[167]276
274 [139]Q%(8)[167][153]"'(null)HERE ARE 1100 SMALL TRIANGULAR ROOMS'":[137]271
275 [141]66:[137]271
276 K[178]2:[141]22
277 [141]784:[137]271
278 [139]Q%(39)[178]0[167][141]9:[137]283
279 D$[178]"STR$VALVAL(null)":[141]68:[141]60:[141]63
280 [141]56:[153]"(null)(null)ATNSTR$'   '  (null) ATN(null)'.":[141]57
281 [139]Q%(11)[167]283
282 [153]"ATN SCROLL ENTITLED 'VAL(null)(null)CHR$ATNVAL(null)' WRITTEN BY  (null)T ATNNAGRAMAS IS ON A TABLE.
283 Q%(0)=18:GOSUB21:IFC$="CO"THENQ%(44)=1:GOTO411
284 IFC$<>"WO"THEN287
285 IFQ%(13)<2THENPRINT"[193] SCROLL-LOCK BARS THE WAY.":GOTO283
286 IFQ%(39)THEN292
287 ON-(C$="TO")-2*(A$="L")GOTO269,33
288 IFQ%(39)=0THEN278
289 IFA$="TASC"ANDQ%(11)=0THENQ%(11)=1:GOSUB30:GOTO283
290 IFA$="LOSC"ANDQ%(11)=0THENGOSUB64:GOTO283
291 GOSUB784:GOTO283
292 D$="[215][207][205][194][193][212]":GOSUB68:GOSUB61:GOSUB63
293 GOSUB55:PRINT"[196][197][197][210]'  '[215][207][204][198]'  '[197][204][203]'."
294 IFQ%(24)THEN297
295 PRINT"[213]NDER ONE OF THE MANY RUGS FOUND IN THE
296 [153]"(null)IBRARY YOU SPY A LITTLE BLACK BOOK.
297 Q%(0)=19:GOSUB21
298 ON-(C$="DE")-2*(C$="WO")-3*(C$="EL")-4*(A$="L")GOTO278,301,310,33
299 IFA$="TABO"ANDQ%(24)=0THENQ%(24)=1:GOSUB30:GOTO297
300 GOSUB784:GOTO297
301 D$="[215][207][204][198]":GOSUB68:GOSUB69
302 GOSUB71:PRINT"[215][207][205][194][193][212]'."
303 IFQ%(15)=0THENPRINT"[193] CRUET OF WINE SITS ON A TABLE.
304 Q%(0)[178]20:[141]21
305 [145][171](C$[178]"WO")[171]2[172](A$[178]"L")[137]292,33
306 [139]A$[179][177]"TACR"[175]A$[179][177]"TAWI"[176]Q%(15)[167]308
307 [153]"(null)NDER THE CRUET YOU FIND A NOTE.":Q%(15)[178]1:[137]304
308 [139]A$[178]"TANO"[175]Q%(18)[178]0[167]Q%(18)[178]1:[141]30:[137]304
309 [141]784:[137]304
310 D$[178]"VAL(null)(null)":[141]68:[141]61:[141]62
311 [141]55:[153]"(null)(null)(null)PEEKATN(null)'  'LEFT$(null)VAL(null)ATN'."
312 [139]Q%(42)[167]315
313 [153]"(null)HROUGH THE WINDOW OVERLOOKING THE
314 PRINT"[195]HURCH YOU SEE A GLOW IN THE BELFRY.":Q%(42)=1
315 Q%(0)=21:GOSUB21
316 ON-(C$="WO")-2*(C$="HY")-3*(A$="L")GOTO292,318,33
317 GOSUB784:GOTO315
318 D$="[200][217][197][206][193]":GOSUB68:GOSUB61:GOSUB63
319 GOSUB56:PRINT"[197][204][203]'  '[194][197][193][214][197][210]'."
320 PRINT"[193]BOVE THE OTHER DOOR IT SAYS, '[212]O ENTER THE [210]OOM OF THE [198][207][216], ";
321 PRINT"YOU MUST SOLVE THE [212]WO [208]UZZLES OF [211]T [195]ALIBAN.
322 [139]Q%(8)[167]324
323 [153]"(null)HE REST OF THE SIGN IS IN (null)ATIN.":[137]326
324 [153]"(null)HE (null)OOM OF THE ASCIRST (null)UZZLE SHARES A"
325 [153]"WALL WITH THE (null)OOM OF THE (null)TTER.'
326 KD=0:Q%(0)=22:GOSUB21:GOSUB74:IFA$="L"THEN33
327 ON-(C$="EL")-2*(C$="BE")+3*((C$="FO")ANDQ%(32))GOTO310,329,337
328 GOSUB784:GOTO326
329 D$="[194][197][193][214][197][210]":GOSUB68:GOSUB60:GOSUB62
330 PRINT"[207]NE SAYS '[200][217][197][206][193]', ONE IS ILLEGIBLE."
331 IFQ%(23)=0THENPRINT"[207]N AN ALTAR IS A GREY CANDLE."
332 Q%(0)=23:GOSUB21
333 ON-(C$="HY")-2*(C$="CA")-3*(A$="L")GOTO318,187,33
334 IFA$="TACA"ANDQ%(23)=0THENQ%(23)=1:GOSUB30:GOTO332
335 IFA$="LOCA"ANDQ%(23)=0THENPRINT"[212]HERE'S SOMETHING ODD ABOUT IT.":GOTO332
336 GOSUB784:GOTO332
337 D$="[198][207][216]":GOSUB68:GOSUB69:GOSUB71:PRINT"[200][217][197][206][193]'."
338 PRINT"[201]N A CORNER LIES [206]OVICE [211]COTIA, A NOTE
339 [153]"CLUTCHED IN HIS HAND.  (null)HE NOTE SAYS,
340 GOSUB526
341 PRINT"[198]OX.'
342 [141]528
343 [139]Q%(46)[178]0[167][153][163]11)"ON(null)OVICE (null)COTIA GASPS, '(null)ILL   YOU HEAR MY CONFESSION?'"
344 Q%(0)[178]24:[141]21
345 [145][171](C$[178]"HY")[171]2[172](A$[178]"L")[137]318,33
346 [139]A$[179][177]"HECO"[176]Q%(46)[167]351
347 Q%(46)[178]1:[141]26
348 [153]"(null)OVICE (null)COTIA WHISPERS IN YOUR EAR,":[129]T[178]0[164]3000:[130]
349 [153]"LOAD":F$[178]"NS":[141]106:[153]
350 [141]524:[137]344
351 [139]A$[178]"TANO"[176]A$[178]"LONO"[167][141]58:[137]344
352 [141]28:[139]FL[167]FL[178]0:[137]344
353 [141]784:[137]344
354 D$[178]"CHR$RIGHT$(null)ATNASCASCVAL":[141]68
355 [141]60:[141]62:[141]55:[153]"LENLEFT$RIGHT$(null)VAL(null)ATN'  '(null)RIGHT$(null)(null)'.":[141]65:[141]67
356 Q%(0)[178]25:[141]21
357 [145][171](C$[178]"LI")[171]2[172](A$[178]"L")[171]3[172](C$[178]"CH")[137]363,33,117
358 [139]A$[179][177]"LOME"[175]A$[179][177]"REME"[167]361
359 [139]Q%(8)[167][153]"'10 WALLS IN EACH ROOM ARE EQUAL IN     LENGTH.'":[137]356
360 [141]66:[137]356
361 K[178]3:[141]22
362 [141]784:[137]356
363 [139]Q%(39)[178]0[167][141]9:[137]368
364 D$[178]"(null)RIGHT$(null)(null)":[141]68:[141]60:[141]63
365 [141]56:[153]"CHR$RIGHT$(null)ATNASCASCVAL'   '  PEEK(null) (null)'.":[141]57
366 [139]Q%(12)[167]368
367 [153]"ATN SCROLL ENTITLED '(null)VAL(null)(null)ATNLEFT$(null)VAL(null)' WRITTEN BY(null)T ATNNAGRAMAS IS ON A TABLE.
368 Q%(0)=26:GOSUB21
369 IFC$<>"BA"THEN372
370 IFQ%(10)<2THENPRINT"[201]'M AFRAID THERE IS A SCROLL-LOCK.":GOTO368
371 IFQ%(39)THEN377
372 ON-(C$="GI")-2*(A$="L")-3*(C$="HO")GOTO354,33,499
373 IFQ%(39)=0THEN363
374 IFA$="TASC"ANDQ%(12)=0THENQ%(12)=1:GOSUB30:GOTO368
375 IFA$="LOSC"ANDQ%(12)=0THENGOSUB64:GOTO368
376 GOSUB784:GOTO368
377 D$="[194][193][194][207][207][206]":GOSUB68:GOSUB61:GOSUB63
378 GOSUB55:PRINT"[204][201][207][206]' '[193][210][205][193][196][201][204][204][207]'[160]'[210][193][212]'."
379 Q%(0)=27:GOSUB21
380 ON-(C$="LI")-2*(C$="AR")-3*(C$="RA")-4*(A$="L")GOTO363,382,392,33
381 GOSUB784:GOTO379
382 D$="[193][210][205][193][196][201][204][204][207]":GOSUB68:GOSUB69
383 GOSUB71:PRINT"[194][193][194][207][207][206]'."
384 PRINT"[193] DEEP RED LIGHT PERMEATES THE ROOM.
385 [139]Q%(19)[178]0[167][153]"(null)N A TABLE IS A MISSAL."
386 Q%(0)[178]28:[141]21
387 [145][171](C$[178]"BA")[171]2[172](A$[178]"L")[137]377,33
388 [139]A$[179][177]"LOMI"[175]A$[179][177]"REMI"[167]390
389 [153]"(null)THER THAN THE TYPICAL PRAYERS, IT SEEMSTO BE BLANK.":[137]386
390 [139]A$[178]"TAMI"[175]Q%(19)[178]0[167]Q%(19)[178]1:[141]30:[137]386
391 [141]784:[137]386
392 D$[178]"(null)ATN(null)":[141]68:[141]61:[141]62
393 [141]55:[153]"PEEKATNPEEK(null)(null)(null)CLOSE   (null)VAL(null)(null)ATN(null)STR$'.
394 IFQ%(14)THEN398
395 PRINT"[212]HROUGH THE WINDOW OVERLOOKING THE
396 [153]"LENLOISTER YOU SEE A LIGHT IN (null)OTHER"
397 [153]"(null)ULEZE'S WINDOW.":Q%(14)[178]2
398 Q%(0)[178]29:[141]21
399 [145][171](C$[178]"BA")[171]2[172](C$[178]"LE")[171]3[172](A$[178]"L")[137]377,401,33
400 [141]784:[137]398
401 D$[178]"(null)VAL(null)(null)ATN(null)STR$":[141]68:[141]61:[141]63
402 [141]56:[153]"(null)ATN(null)'  'LEN(null)(null)'."
403 [153]"ATNBOVE THE OTHER DOOR IT SAYS, '(null)O ENTER THE (null)OOM OF THE LENRIGHT$(null)VAL(null), ";
404 [153]"YOU MUST SOLVE   THE (null)WO (null)UZZLES OF (null)T LENALIBAN.
405 IFQ%(8)THEN407
406 PRINT"[212]HE REST OF THE SIGN IS IN [204]ATIN.":GOTO408
407 PRINT"[212]HE [211]ECOND [208]UZZLE IS NEAR THE [210]OOM OF   THE [199]IRAFFE.'
408 KD[178]0:Q%(0)[178]30:[141]21:[141]74:[139]A$[178]"L"[167]33
409 [145][171](C$[178]"RA")[171]2[172](C$[178]"CO")[170]3[172]((C$[178]"CI")[175]Q%(32))[137]392,411,427
410 [141]784:[137]408
411 D$[178]"LEN(null)(null)":[141]68:[141]60:[141]62
412 [153]"(null)NE SAYS '(null)VAL(null)(null)ATN(null)STR$', ONE IS ILLEGIBLE."
413 [139]Q%(53)[167]417
414 [153]"RIGHT$N THE FIREPLACE YOU SPY THE ASH OF AN"
415 [153]"OFFICIAL SUMMONS FROM THE (null)ATICAN TO"
416 [153]"ATNBBOT LENOSTELLO."
417 Q%(0)[178]31:[141]21
418 [145][171](C$[178]"LE")[171]2[172](C$[178]"DE")[171]3[172](A$[178]"L")[137]401,278,33
419 [139]A$[178]"TASU"[176]A$[178]"TAAS"[167][153]"RIGHT$T CRUMBLES INTO POWDER.":Q%(53)[178]1:[137]417
420 [139]A$[179][177]"LOSU"[175]A$[179][177]"LOAS"[175]A$[179][177]"RESU"[176]Q%(53)[167]423
421 [153]"'(null)NDER PENALTY OF EXCOMMUNICATION YOU"
422 [153]"SHALL BRING THE PEEKULL TO (null)OME WHERE IT   BELONGS.'":[137]417
423 [139]A$[179][177]"LORU"[167]426
424 [139]Q%(44)[167]775
425 [153]"(null)HERE'S SOMETHING DIFFERENT ABOUT THIS  RUG BY (null)T LENALIBAN.":[137]417
426 [141]784:[137]417
427 D$[178]"LENRIGHT$(null)VAL(null)":[141]68:[141]69:[141]71:[153]"(null)VAL(null)(null)ATN(null)STR$'."
428 [153]"(null)N THE FLOOR LIES ASCATHER (null)OSTER, A NOTE
429 PRINT"CLUTCHED IN HIS HAND.  [212]HE NOTE SAYS,
430 [141]526
431 [153]"LENIVET.'
432 GOSUB528
433 IFQ%(47)=0THENPRINTTAB(11)"[145][198]ATHER [206]OSTER GASPS, '[215]ILL   YOU HEAR MY CONFESSION?'"
434 Q%(0)=32:GOSUB21
435 ON-(C$="LE")-2*(A$="L")GOTO401,33
436 IFA$<>"HECO"ORQ%(47)THEN441
437 Q%(47)=1:GOSUB26
438 PRINT"[198]ATHER [206]OSTER WHISPERS IN YOUR EAR,":FORT=0TO3000:NEXT
439 PRINT"[147]":F$="FN":GOSUB106:PRINT
440 GOSUB524:GOTO434
441 IFA$="TANO"ORA$="LONO"THENGOSUB58:GOTO434
442 GOSUB28:IFFLTHENFL=0:GOTO434
443 GOSUB784:GOTO434
444 D$="[208][201][199]":GOSUB68
445 GOSUB60:GOSUB62:GOSUB55:PRINT"[195][200][201][205][197][210][193]'  '[194][197][193][210]'.":GOSUB65:GOSUB67
446 Q%(0)=33:GOSUB21
447 ON-(C$="BE")-2*(A$="L")-3*(C$="CH")GOTO453,33,117
448 IFA$<>"LOME"ANDA$<>"REME"THEN451
449 IFQ%(8)THENPRINT"'[195]ARVINGS BY [211]T [194]INARIUS.'":GOTO446
450 GOSUB66:GOTO446
451 K=4:GOSUB22
452 GOSUB784:GOTO446
453 IFQ%(39)=0THENGOSUB9:GOTO458
454 D$="[194][197][193][210]":GOSUB68:GOSUB60:GOSUB63
455 GOSUB56:PRINT"[208][201][199]'  ' [193] [197] [204][197]'.":GOSUB57
456 IFQ%(13)THEN458
457 PRINT"[193] SCROLL ENTITLED '[205][212][193][215][194][207]' WRITTEN BY   [211]T [193]NAGRAMAS IS ON A TABLE.
458 Q%(0)[178]34:[141]21:[139]C$[178]"RA"[167]Q%(43)[178]1:[137]238
459 [139]C$[179][177]"GA"[167]462
460 [139]Q%(11)[179]2[167][153]"(null)H OH.  ATN SCROLL-LOCK.":[137]458
461 [139]Q%(39)[167]467
462 [145][171](C$[178]"PI")[171]2[172](A$[178]"L")[137]444,33
463 [139]Q%(39)[178]0[167]453
464 [139]A$[178]"TASC"[175]Q%(13)[178]0[167]Q%(13)[178]1:[141]30:[137]458
465 [139]A$[178]"LOSC"[175]Q%(13)[178]0[167][141]64:[137]458
466 [141]784:[137]458
467 D$[178]"CHR$ATN(null)VAL(null)(null)VAL":[141]68:[141]61:[141]63
468 [141]55:[153]"PEEKVALATN(null)'  '(null)RIGHT$CHR$VAL(null)'  '(null)LEFT$RIGHT$(null)(null)'.ONON"
469 Q%(0)[178]35:[141]21
470 [145][171](C$[178]"BE")[171]2[172](C$[178]"TI")[171]3[172](C$[178]"RH")[171]4[172](A$[178]"L")[137]453,472,479,33
471 [141]784:[137]469
472 D$[178]"(null)RIGHT$CHR$VAL(null)":[141]68:[141]69
473 [141]71:[153]"CHR$ATN(null)VAL(null)(null)VAL'."
474 [139]Q%(20)[178]0[167][153]"(null)N A TABLE IS A CRUET OF WATER."
475 Q%(0)[178]36:[141]21
476 [145][171](C$[178]"GA")[171]2[172](A$[178]"L")[137]467,33
477 [139]A$[178]"TAWA"[176]A$[178]"TACR"[175]Q%(20)[178]0[167]Q%(20)[178]1:[141]30:[137]475
478 [141]784:[137]475
479 D$[178]"(null)LEFT$RIGHT$(null)(null)LENVAL(null)(null)(null)":[141]68:[141]61:[141]62
480 [141]55:[153]"CHR$ATN(null)VAL(null)(null)VAL'  'STR$(null)CHR$'."
481 [139]Q%(21)[167]485
482 [153]"(null)HROUGH THE WINDOW OVERLOOKING THE"
483 [153]"MONKS' QUARTERS YOU SEE A LIGHT IN"
484 [153]"ASCATHER (null)OSTER'S OFFICE.":Q%(21)[178]2
485 Q%(0)[178]37:[141]21
486 [145][171](C$[178]"GA")[171]2[172](C$[178]"DO")[171]3[172](A$[178]"L")[137]467,488,33
487 [141]784:[137]485
488 D$[178]"STR$(null)CHR$":[141]68:[141]61:[141]63
489 [153]"'(null)LEFT$RIGHT$(null)(null)LENVAL(null)(null)(null)'  'LEFT$(null)(null)(null)VAL'."
490 [153]"ATNBOVE THE OTHER DOOR IT SAYS, '(null)O ENTER THE (null)OOM OF THE CHR$(null)(null)RIGHT$(null)(null)ATN,
491 PRINTTAB(25)"[145]YOU MUST SOLVE THE [212]WO [208]UZZLES OF [211]T [195]ALIBAN.
492 [139]Q%(8)[167]494
493 [153]"(null)HE REST OF THE SIGN IS IN (null)ATIN.":[137]496
494 [153]"(null)HE ROOM OF THE (null)ECOND (null)UZZLE MUST BE"
495 [153]"ENTERED VIA THE (null)OOM OF THE STR$EER.'
496 KD=0:Q%(0)=38:GOSUB21:GOSUB74:IFA$="L"THEN33
497 ON-(C$="RH")-2*(C$="HO")+3*((C$="GO")ANDQ%(32))GOTO479,499,507
498 GOSUB784:GOTO496
499 D$="[200][207][210][211][197]":GOSUB68:GOSUB60:GOSUB62
500 PRINT"[207]NE SAYS '[196][207][199]', THE OTHER IS ILLEGIBLE.":IFQ%(17)THEN502
501 IFQ%(17)=0THENPRINT"[213]NDER A DESK YOU SPY A TORN PAGE."
502 Q%(0)=39:GOSUB21
503 ON-(C$="DO")-2*(C$="LI")-3*(A$="L")GOTO488,363,33
504 IFA$="TAPA"ANDQ%(17)=0THENQ%(17)=1:GOSUB30:GOTO502
505 IFA$="LOPA"ANDQ%(17)=0THENPRINT"[201]T'S HARD TO SEE UNDER THE DESK.":GOTO502
506 GOSUB784:GOTO502
507 D$="[199][207][210][201][204][204][193]":GOSUB68:GOSUB69:GOSUB71:PRINT"[196][207][199]'."
508 PRINT"[201]N A CORNER LIES [205]OTHER [208]ULEZE, A NOTE
509 [153]"CLUTCHED IN HER HAND.  (null)HE NOTE SAYS,
510 GOSUB526
511 PRINT"[199]ORILLA.'
512 [141]528
513 [139]Q%(48)[178]0[167][153][163]11)"ON(null)OTHER (null)ULEZE GASPS, '(null)LEASE HEAR MY CONFESSION.'"
514 Q%(0)[178]40:[141]21
515 [145][171](C$[178]"DO")[171]2[172](A$[178]"L")[137]488,33
516 [139]A$[179][177]"HECO"[176]Q%(48)[167]521
517 Q%(48)[178]1:[141]26
518 [153]"(null)OTHER (null)ULEZE WHISPERS IN YOUR EAR,":[129]T[178]0[164]3000:[130]
519 [153]"LOAD":F$[178]"MP":[141]106:[153]
520 [141]524:[137]514
521 [139]A$[178]"TANO"[176]A$[178]"LONO"[167][141]58:[137]514
522 [141]28:[139]FL[167]FL[178]0:[137]514
523 [141]784:[137]514
524 [139]Q%(49)[178]0[176]Q%(26)[167][142]
525 [153]"ATNS YOU HEAR BELLS TOLL YOU SPY A KNIFE  LYING UNDER THE BODY.":[142]
526 [153]"'RIGHT$T IS EXTREMELY IMPORTANT THAT YOU"
527 [153]"MEET ME IN THE (null)OOM OF THE ";:[142]
528 [153]"RIGHT$T'S SIGNED WITH THE SEAL OF ATNBBOT      LENOSTELLO.":[142]
529 [153]"LOAD":F$[178]"F1":[141]106:[153]:[141]110
530 [153]"LOAD":F$[178]"F2":[141]106:[153]:[141]110
531 [153]"OPEN(null)HICH ONE WILL YOU HELP, (null)A (null)ORT?"
532 [153][163]8)"(SYSLENLIST)ARDINAL (null)USIAL"
533 [153][163]8)"(SYSSTR$LIST)OCTOR STR$EELIST"
534 [161]A$
535 [139]A$[178]"LEN"[167]A$[178]"C"
536 [139]A$[178]"STR$"[167]A$[178]"D"
537 [139]A$[179][177]"C"[175]A$[179][177]"D"[167]534
538 [139]Q%(33)[175]A$[178]"C"[167]F$[178]"C1":[153]"LOAD":[141]106
539 [139]Q%(33)[175]A$[178]"D"[167]F$[178]"C2":[153]"LOAD":[141]106
540 [139]Q%(33)[178]0[175]A$[178]"C"[167]F$[178]"C3":[153]"LOAD":[141]106
541 [139]Q%(33)[178]0[175]A$[178]"D"[167]F$[178]"C4":[153]"LOAD":[141]106
542 [153]:[137]933
543 [139]VB[167][153]"LEFT$OUSE":[137]545
544 F$[178]"AH":[141]106:[153]
545 [139]Q%(3)[178]0[167][153]"(null)N A SMALL TABLE IS A DIARY."
546 Q%(0)[178]1:[141]21
547 [139]C$[178]"GO"[167][141]6:[139]CX[167]548
548 [145]CX[137]752,543,553,620,638,654,693,113,568,674,593,604,710,700
549 [139]A$[178]"L"[167]33
550 [139]A$[178]"TADI"[175]Q%(3)[178]0[167]Q%(3)[178]1:[141]30:[137]546
551 [139]A$[178]"LODI"[175]Q%(3)[178]0[167][153]"RIGHT$T'S A WEEKLY DIARY.":[137]546
552 [141]784:[137]546
553 [139]VB[167][153]"LENHURCH":[137]555
554 F$[178]"CH":[141]106:[153]
555 Q%(0)[178]2:[141]21
556 [139]A$[179][177]"LOST"[167]559
557 [153]"PEEKENEATH THE STATUE IS AN INSCRIPTION,"
558 [153]"'(null)HERE IS KNOWLEDGE NIL UNTIL YOU FILL'. ONON":[137]555
559 [139]C$[178]"GO"[167][141]6:[139]CX[167]548
560 [139]A$[178]"L"[167]33
561 [139]A$[179][177]"LOAL"[167]563
562 [153]"(null)HE ALTAR HAS BEEN BOMBED.  (null)NDER IT IS A SMALL CATACOMB.":[137]555
563 [139]A$[179][177]"LOCA"[167]566
564 [139]Q%(42)[167][153]"RIGHT$N THE CATACOMB IS A PERFECT FOOTPRINT.":[137]555
565 [153]"(null)HE CATACOMB IS NOW EMPTY.":[137]555
566 [139]A$[178]"LOFO"[175]Q%(42)[167][153]"(null)HERE'S A"W$(Q%(33))"ETCHED IN THE HEEL.":[137]555
567 [141]784:[137]555
568 [139]VB[175]Q%(55)[178]0[167][153]"PEEKELFRY":[137]571
569 Q%(0)[178]46:F$[178]"BF":[141]106:[153]
570 [139]Q%(42)[167][153]"(null)OMEONE'S BEEN CUTTING THE BELLROPES!"
571 [141]21
572 [139]C$[178]"GO"[167][141]6:[139]CX[167]548
573 [139]A$[178]"L"[167]33
574 [139]A$[179][177]"TABE"[175]A$[179][177]"TARO"[176]Q%(55)[178]0[167]576
575 [153]"(null)HE BELLROPES ARE TIED TIGHTLY.":[137]571
576 [139]A$[179][177]"CURO"[175]A$[179][177]"CUBE"[167]581
577 [139]Q%(26)[178]0[167][153]"(null)ITH YOUR BARE HANDS?":[137]571
578 [139]Q%(55)[175]Q%(25)[178]0[167]Q%(25)[178]1:[141]950:[137]571
579 [139]Q%(55)[178]0[167][153]"(null)OU'RE ALL OUT OF BELLROPES.":[137]571
580 [153]"(null)OU CAN ONLY CARRY ONE BELLROPE AT A    TIME.":[137]571
581 [139]A$[179][177]"LOBE"[167]584
582 [153]"VALACH BELL IS CAST IN SOLID MOLYBDENUM"
583 [153]"AND HAS A BELLROPE MADE FROM THE FINEST LEFT$AWAIIAN HEMP.":[137]571
584 [139]A$[179][177]"RIBE"[167]592
585 [153]"FORRIGHT$N WHAT ORDER (E.G. 12345)SYS";:[141]10:[153]"LIST"
586 [139]A$[178]"52413"[176]A$[178]"53142"[167]Q%(52)[178]1:[137]590
587 R[178][165]AA(2)[170]1:[145]R[137]588,589
588 [153]"(null)A (null)ORT, YOU EXCEL IN CACOPHANY.":[137]571
589 [153]"PEEKETTER STICK TO THE TUBA, LA (null)ORT.":[137]571
590 [153]"ATNS THE (null)ATINS ARE RUNG, A LOUD WHINNY IS
591 PRINT"[145]HEARD FROM THE STABLES.":GOTO571
592 GOSUB784:GOTO571
593 IFVBTHENPRINT"[206]ORTH [195]ONFESSIONAL":GOTO598
594 PRINT"[217]OUR AVERAGE CONFESSIONAL."
595 IFQ%(4)THEN598
596 PRINTTAB(28)"[145][207]N THE      CONFESSOR'S SIDE IS A BREVIARY WITH A"
597 PRINT"RIBBON MARKING PAGE NINE."
598 Q%(0)=44:GOSUB21
599 IFC$="GO"THENGOSUB6:IFCXTHEN548
600 IFA$="L"THEN33
601 IFA$="TABR"ANDQ%(4)=0THENQ%(4)=1:GOSUB30:GOTO598
602 IFA$="LOBR"ANDQ%(4)=0THENPRINT"[193] TYPICAL PRAYERBOOK.":GOTO598
603 GOSUB784:GOTO598
604 IFVBTHENPRINT"[211]OUTH [195]ONFESSIONAL":GOTO609
605 PRINT"[212]HERE ARE TWO PARTS TO THE CONFESSIONAL,SEPARATED BY A PARTITION"
606 PRINTTAB(25)"[145]WITH A WICKER  SCREEN. [193]BBOT [195]OSTELLO WAS FOUND ON THE FLOOR
607 Y$[178]"E":[139]Q%(33)[167]Y$[178]"O"
608 [153][163]6)"ONON THE CONFESS"Y$"R'S SIDE. (null)HERE IS A KNEELER ON THE OTHER.
609 Q%(0)=45:GOSUB21
610 IFA$="L"THEN33
611 IFC$="GO"THENGOSUB6:IFCXTHEN548
612 IFA$="LOSC"THENPRINT"[200]ARD TO SEE THROUGH BUT QUITE POROUS.":GOTO609
613 IFA$<>"LOKN"ORQ%(7)THEN616
614 PRINT"[213]NDERNEATH YOU FIND A ROSARY WITH THE"
615 PRINT"INITIALS, [205].[208].":GOTO609
616 IFA$="LORO"ANDQ%(7)=0THENPRINT"[201]T'S HARD TO SEE UNDER THE KNEELER.":GOTO609
617 IFA$="TAKN"THENPRINT"[199]ET SERIOUS, [204]A [205]ORT!":GOTO609
618 IFA$="TARO"ANDQ%(7)=0THENQ%(7)=1:GOSUB30:GOTO609
619 GOSUB784:GOTO609
620 IFVBTHENPRINT"[211]TABLES":GOTO623
621 F$="ST":GOSUB106:PRINT
622 IFQ%(52)THENPRINT"[193]N OPEN TRAPDOOR LEADS TO A TUNNEL."
623 Q%(0)=3:GOSUB21
624 IFA$<>"GOTR"ANDA$<>"GOTU"THEN627
625 IFQ%(52)THEN117
626 PRINT"[201]T'S LOCKED, [201]NSPECTOR.":GOTO623
627 IFC$="GO"THENGOSUB6:IFCXTHEN548
628 IFA$<>"LOTR"ANDA$<>"LODO"THEN631
629 IFQ%(52)THENPRINT"[201]T'S OPEN.":GOTO623
630 PRINT"[212]HE TRAPDOOR HAS A SOUND-SENSITIVE LOCK ON IT.":GOTO623
631 IFA$="L"THEN33
632 IFA$<>"LOGE"ANDA$<>"LOST"THEN635
633 IFQ%(52)THENPRINT"[212]HE GELDING IS OMINOUSLY EYEING THE     TRAPDOOR.":GOTO623
634 PRINT"[212]HE GELDING HAS MADE A MESS OF THE      STALL.":GOTO623
635 IFA$<>"CLST"THEN637
636 PRINT"[193]S YOU CARRY OUT THE ORDURE OF THE DAY  YOU SEE A TRAPDOOR.":GOTO623
637 GOSUB784:GOTO623
638 IFVBTHENPRINT"[194]ARRACKS":GOTO644
639 F$="NB":GOSUB106:PRINT
640 IFQ%(41)=0THEN644
641 PRINT"[217]OUR BLOODHOUND NOSE CATCHES THE FAINT  SPOOR OF ";
642 IFQ%(33)THENPRINT"ALCOHOL.":GOTO644
643 PRINT"INCENSE."
644 Q%(0)=5:GOSUB21
645 IFC$="GO"THENGOSUB6:IFCXTHEN548
646 IFA$="L"THEN33
647 IFA$<>"LOCU"ORQ%(6)THEN651
648 PRINT"[207]N THE BED YOU FIND A MEMO FROM [193]BBOT"
649 PRINT"[195]OSTELLO TO [206]OVICE [211]COTIA."
650 GOTO644
651 IFA$="TAME"ANDQ%(6)=0THENQ%(6)=1:GOSUB30:GOTO644
652 IFA$="LOME"ANDQ%(6)=0THENPRINT"[193] TYPICAL INTRA-[193]BBEY MEMO.":GOTO644
653 GOSUB784:GOTO644
654 IFVBTHENPRINT"[209]UARTERS":GOTO662
655 F$="MQ":GOSUB106:PRINT
656 IFCBTHEN662
657 CB=1:PRINT"[217]OU NOTICE THAT THE [193]BBEY IS EQUIPPED"
658 PRINT"WITH [198]ATHER [205]URPHY'S CLEVER INVENTION,"
659 PRINT"SOUL-DETECTING LIGHTS.  [193] GREAT ENERGY"
660 PRINT"SAVER.  [204]IGHTS ARE ONLY ON WHEN A SOUL"
661 PRINT"IS IN THE ROOM."
662 Q%(0)=4:GOSUB21
663 IFC$="GO"THENGOSUB6:IFCXTHEN548
664 IFA$="L"THEN33
665 IFA$="TATE"THENPRINT"[211]ORRY, BUT THE TEXTBOOKS ARE TOO HEAVY  TO CARRY.":GOTO662
666 IFA$<>"LOTE"ANDA$<>"RETE"THEN673
667 A$="":PRINT"[129][215]HICH BOOK[158]";:GOSUB10
668 IFA$=""THEN662
669 IFLEFT$(A$,2)<>"HO"THEN672
670 PRINT"[155][201]N [198]ATHER [205]URPHY'S SCRAWL IS THE CRYPTIC"
671 PRINT"[145]MESSAGE:[157][157][157][157][157] 'N1 E2 S3 W4  -  UPS ADDED EQ";Q%(56)"[157]'.":GOTO662
672 PRINT"[155][193] JOLLY GOOD READ BUT NO CLUES.":GOTO662
673 GOSUB784:GOTO662
674 IFVBANDQ%(21)=0THENPRINT"[207]FFICE":GOTO677
675 PRINT"[198]ATHER [206]OSTER HAS ONE OF THE WORLD'S    FIRST HOT TUBS."
676 IFQ%(21)=2THENPRINTTAB(17)"[145][217]OU SPY A SUITCASE IN ADARK CORNER."
677 Q%(0)=41:GOSUB21
678 IFC$="GO"ANDB$<>"TU"THENGOSUB6:IFCXTHEN548
679 IFA$="TASU"ANDQ%(21)=2THENQ%(21)=1:GOSUB30:GOTO677
680 IFA$="L"THEN33
681 IFA$="LOTU"THENPRINT"[212]HERE'S SOMETHING IN THE DEEP END.":GOTO677
682 IFA$="TAST"THENPRINT"[201]T'S CHAINED TO THE TUB.":GOTO677
683 IFA$="TARE"ANDQ%(51)=2ANDQ%(5)=0THENQ%(5)=1:GOSUB30:GOTO677
684 IFA$<>"GOTU"THEN688
685 PRINT"[212]HE WATER IS GREAT BUT TOO BAD ABOUT"
686 PRINT"YOUR SUIT.  [201]N THE DEEP END YOU FIND A"
687 PRINT"WATERPROOF STRONGBOX.":Q%(51)=1:GOTO677
688 IFA$<>"OPST"ANDA$<>"OPBO"ANDA$<>"LOST"THEN692
689 Q%(51)=2
690 IFQ%(5)THENPRINT"[212]HE STRONGBOX IS EMPTY.":GOTO677
691 PRINT"[212]HE STRONGBOX IS FILLED WITH RECEIPTS   FOR 'ART REPRINTS'.":GOTO677
692 GOSUB784:GOTO677
693 IFVBTHENPRINT"[195]LOISTER":GOTO695
694 F$="CL":GOSUB106:PRINT
695 Q%(0)=6:GOSUB21
696 IFA$="LOCE"THENPRINT"[212]HE DOORS TO THE CELLS ARE NAILED OPEN.":GOTO695
697 IFA$="L"THEN33
698 IFC$="GO"THENGOSUB6:IFCXTHEN548
699 GOSUB784:GOTO695
700 Q%(0)=42:IFQ%(1)THENPRINT"[211]QUALID NUN'S CELLS.":GOTO704
701 PRINT"[211]ISTER [196]EBBIE'S CELL IS DECORATED IN"
702 PRINT"RATHER DULL EARLY GULAG.  [193] HANDBOOK BY"
703 PRINT"THE BED IS ENTITLED '[203]NOTS OF A [212]RAPPIST[212]RAPPER' BY [198]RIAR [202]OHN."
704 GOSUB21
705 IFA$="L"THEN33
706 IFC$="GO"THENGOSUB6:IFCXTHEN548
707 IFA$="TAHA"ANDQ%(1)=0THENQ%(1)=1:GOSUB30:GOTO704
708 IFA$="LOHA"ANDQ%(1)=0THENPRINT"[201]T'S WELL-THUMBED.":GOTO704
709 GOSUB784:GOTO704
710 IFVBANDQ%(14)<>2THENPRINT"[194]OUDOIR":GOTO713
711 PRINTTAB(10)"[205]OTHER [208]ULEZE'S [194]OUDOIR
712 [153]"PEEKY THE WATERBED IS A BRASSBOUND LEDGER."
713 Q%(0)[178]43:[141]21
714 [139]A$[178]"L"[167]33
715 [139]C$[178]"GO"[167][141]6:[139]CX[167]548
716 [139]A$[179][177]"LOWA"[175]A$[179][177]"LOBE"[167]719
717 [139]Q%(14)[179][177]2[167][153]"(null)OUR AVERAGE NUN'S WATERBED.":[137]713
718 [153]"(null)N THE BED IS A PERFUME ATOMIZER.":[137]713
719 [139]A$[179][177]"OPLE"[175]A$[179][177]"RELE"[175]A$[179][177]"LOLE"[167]722
720 [139]Q%(2)[178]0[167][153]"RIGHT$T'S LOCKED, LA (null)ORT.":[137]713
721 F$[178]"LG":[141]106:[153]:[137]713
722 [139]A$[178]"TALE"[167][153]"(null)HE BOOK IS CHAINED TO THE BED.":[137]713
723 [139]A$[178]"TAAT"[175]Q%(14)[178]2[167]Q%(14)[178]1:[141]30:[137]713
724 [139]A$[179][177]"SNAT"[175]A$[179][177]"SMAT"[175]A$[179][177]"SQAT"[176]Q%(14)[179][177]2[167]726
725 [153]"(null)HERE IS SOMETHING OMINOUS ABOUT THE    ATOMIZER'S SPOOR.":[137]713
726 [141]784:[137]713
727 [129]I[178]1[164]29:[135]Q$(I):[130]:X[178][187]([171]TI)
728 [129]I[178]0[164]3:[129]J[178]0[164]1:[135]G$(J,I):[130]:[130]
729 [129]I[178]0[164]56:Q%(I)[178]0:[130]:Q%(55)[178]6
730 [129]I[178]1[164]14:[135]BB$(I):[130]
731 [129]I[178]0[164]23:[135]H$(I):[130]
732 Q%(29)[178]1:Q%(27)[178]1:Q%(33)[178][181]([187](1)[170].5):CB[178]0
733 Q%(29)[178]1:Q%(27)[178]1:Q%(33)[178][181]([187](1)[170].5)
734 Z$(1)[178]"(null)HE SWITCH IS UP.":Z$(0)[178]"(null)HE SWITCH IS DOWN."
735 Z$(3)[178]"WAFERS":Z$(4)[178]"LIQUID"
736 M$(1)[178]"(null)AISLEY SQUIDS BEGIN ATTACHING THEM-    SELVES TO YOUR LEGS.
737 M$(2)="[208]ACKS OF TIE-DIED GERBILS BEGIN EATING  YOUR MUSTACHE.
738 M$(3)[178]"(null)HE ROOM STARTS RAINING LENTIL SOUP AND CHIVES.
739 M$(4)="[201]T'S THE SMOKE, [201]NSPECTOR, GET OUT OR DOSOMETHING."
740 FF$(0)="[207]KAY.":FF$(1)="[217]OU GOT IT, [201]NSPECTOR.":FF$(2)="[201]T'S YOURS."
741 PP$="[158]      [208]RESS ANY KEY TO CONTINUE[155]"
742 P$(1)="[215]HAT NOW, [201]NSPECTOR"
743 P$(2)="[215]HAT NEXT, LA [205]ORT"
744 P$(3)="[215]HAT'LL YOU DO NOW"
745 P$(4)="[206]OW WHAT"
746 DEF FNAA(X)=INT(RND(1)*X)
747 E$(0)="[200]UH?":E$(1)="[215]HAT DO YOU MEAN?":E$(2)="[215]HAT ARE YOU SAYING?
748 W$(0)[178]" CROSS ":W$(1)[178]" CADUCEUS "
749 Q%(56)[178][165]AA(10)[170]1
750 [153][199](8)"FOR       (null)(null)(null)STR$VAL(null) RIGHT$(null) (null)LEFT$VAL (null)(null)(null)ATN(null)(null)VAL(null)(null)LIST"
751 F$[178]"GA":[141]106:[153]:[137]757
752 [139]VB[167][153]"CHR$ATE":[137]758
753 [153]"(null)OU ARE AT THE ATNBBEY GATE, A SPLENDID"
754 [153]"EXAMPLE OF MEDIEVAL MODERNISM."
755 [139]Q%(28)[178]0[167][153][163]32)"ON(null)NDER A BUSH YOU SPY A NEWSPAPER CLIPPING."
756 [153]"(null)OU HAVE A POLICE INFO SHEET AND A MAP."
757 [153]"VALNTER 'HELP' AT ANY TIME FOR PROTOCOL."
758 Q%(0)[178]0:[141]21
759 [139]C$[178]"GO"[167][141]6:[139]CX[167]548
760 [139]A$[178]"L"[167]33
761 [139]A$[178]"TACL"[167][139]Q%(28)[178]0[167]Q%(28)[178]1:[141]30:[137]758
762 [139]A$[178]"LOCL"[175]Q%(28)[178]0[167][153]"RIGHT$T'S FROM THE ATNBBEY CHR$AZETTE.":[137]758
763 [141]784:[137]758
764 [153]"LOAD":F$[178]"R1":[141]106
765 [153]:[153]"FOR(null)HE THREE STAFFS (E.G. ABC)";:[141]10
766 [129]I[178]0[164]23
767 [139]A$[178]H$(I)[167]769
768 [130]:[137]773
769 [153]"LIST(null)OU SURPRISE ME, LA (null)ORT.  (null)OU HAVE"
770 [153]"SOLVED THE ASCIRST (null)UZZLE OF (null)T LENALIBAN."
771 Q%(30)[178]1:Q%(32)[178]Q%(30)[175]Q%(31)
772 [137]243
773 [153]"LIST(null)OT QUITE, LA (null)ORT."
774 [137]243
775 [153]"LOAD":F$[178]"R2":[141]106
776 [153]:[153]"FOR(null)HE TWO STAFFS (E.G. AB)";:[141]10
777 [139]A$[179][177]"BO"[175]A$[179][177]"OB"[167]782
778 [153]"LISTCHR$OOD SHOW, RIGHT$NSPECTOR, YOU'VE SOLVED THE
779 PRINT"THE [211]ECOND [208]UZZLE OF [211]T [195]ALIBAN."
780 Q%(31)=1:Q%(32)=Q%(30)ANDQ%(31)
781 GOTO417
782 PRINT"[155][201]'M AFRAID YOU'RE WRONG, LA [205]ORT."
783 GOTO417
784 IFA$<>"I"THEN791
785 PRINT"[153]":FL=0:FORI=1TO29
786 IFQ%(I)<>1ANDQ%(I)<>5THEN789
787 FL=FL+1:FL=FLAND1:IFFLTHENPRINTTAB(6)Q$(I):GOTO789
788 PRINT"[145]"TAB(24)Q$(I)
789 NEXT
790 RETURN
791 IFA$<>"LOBR"ANDA$<>"REBR"ORQ%(4)=0THEN794
792 PRINT"[211]OMEONE HAS SCRIBBLED IN THE MARGIN,"
793 PRINT"'[212]HRICE THREE AND TWO ARE THE [204]AWS OF   THE [200]OLY [212]ABLETS.'":RETURN
794 IFA$<>"RECL"ANDA$<>"LOCL"ORQ%(28)=0THEN797
795 PRINT"[193]N ARTICLE ABOUT [198]ATHER [205]URPHY'S LATEST"
796 PRINT"BEST-SELLING BOOK, '[200]OW TO [195]HANGE A     [204]IGHT [194]ULB'.":RETURN
797 IFA$<>"LORE"ANDA$<>"RERE"ORQ%(5)=0THEN800
798 PRINT"[193]PPARENTLY [198]ATHER [206]OSTER RECEIVES $20 A"
799 PRINT"SCROLL FROM A [195]APITOL [200]ILL BOOKSTORE.":RETURN
800 IFA$<>"LOME"ANDA$<>"REME"ORQ%(6)=0THEN805
801 PRINT"'[206]OVICE [211]COTIA, YOU ARE BELLRINGER FOR"
802 PRINT"THE WEEK.'  [201]T IS SIGNED '[193].[195].' [207]N THE"
803 PRINT"BACK IS WRITTEN, '[198]OR [205]ATINS, DO NOT"
804 PRINT"RING ADJACENT BELLS CONSECUTIVELY.'":RETURN
805 IFA$="LOGL"ORA$="FIGL"THENPRINT"[211]ORRY.  [217]OU LEFT YOUR BIFOCALS AT HOME.":RETURN
806 IFA$<>"LORI"ORQ%(4)=0THEN808
807 PRINT"[201]T CRYPTICALLY SAYS, '[194]ULL IN [194]OAR'.":RETURN
808 IFA$="LOAB"THENF$="AB":GOSUB106:PRINT:RETURN
809 IFA$="LORO"ANDQ%(7)THENPRINT"[217]OUR AVERAGE ROSARY.  [195]ROSS AND BEADS.":RETURN
810 IFA$<>"LODI"ANDA$<>"REDI"ORQ%(3)=0THEN817
811 PRINT"[147]":F$="A1":GOSUB106
812 PRINT:PRINTPP$
813 GETA$:IFA$=""THEN813
814 PRINT"[147]":F$="A2":GOSUB106:PRINT"[145][145]"
815 PRINT:PRINT
816 RETURN
817 IFA$<>"LOSC"ANDA$<>"RESC"THEN833
818 FORI=10TO13:IFQ%(I)THEN820
819 NEXT:GOTO833
820 PRINT"[217]OU HAVE THE"
821 FORI=10TO13
822 IFQ%(I)THENPRINTTAB(5)G$(ABS((Q%(I)=5)),I-10);" SCROLL"
823 NEXT
824 PRINT"[193] SCROLL WILL BE ACTIVATED IF YOU ENTER"
825 PRINT"THE CORRECT NAME."
826 PRINT"[129][212]HE NAME[158]";:GOSUB10
827 FORI=0TO3
828 IFA$=G$(1,I)THEN831
829 NEXT
830 PRINT"[155][201]'M AFRAID THAT'S NOT RIGHT.":GOTO832
831 Q%(10+I)=5:Q$(10+I)=G$(1,I)+" KEY":PRINT"[155][212]HAT'S IT!"
832 RETURN
833 IFA$<>"LOPA"ANDA$<>"REPA"ORQ%(17)=0THEN837
834 PRINT"'...IF THE [194]ULL IS AS SUBVERSIVE AS [201]"
835 PRINT"SUSPECT, YOU AND [201] BETTER UPDATE OUR"
836 PRINT"RESUMES.'  [201]T IS SIGNED '[212].[208].'":RETURN
837 IFA$<>"LONO"ANDA$<>"RENO"ORQ%(18)=0THEN842
838 IFQ%(34)=2THEN841
839 PRINT"[212]HE NOTE IS ON A SACRAMENTAL NAPKIN."
840 PRINT"[217]OU'LL NEED TO DIP THE NOTE IN A MIXTUREOF WATER AND WINE.":RETURN
841 F$="NO":GOSUB106:PRINT:RETURN
842 IFA$<>"DINO"THEN846
843 IFQ%(18)ANDQ%(20)ANDQ%(15)THENQ%(34)=2:PRINT"[207]KEY-DOKEY.":RETURN
844 IFQ%(18)THENPRINT"[201]T ONLY WORKS WITH HOLY WATER AND WINE.":RETURN
845 IFPRINT"[195]ONSIDER IT DIPPED, FOR ALL THE GOOD IT WILL DO YOU.":RETURN
846 IFA$<>"REMI"ANDA$<>"LOMI"ORQ%(19)=0THEN849
847 PRINT"[201]N [211]ISTER [196]EBBIE'S FAVORITE INK, PASSION"
848 PRINT"[145]RED, '[201]F THE BOAR GETS STRANGE, HOLD    YOUR BREATH.'":RETURN
849 IFA$<>"OPSU"THEN853
850 IFQ%(8)THENPRINT"[201]T'S EMPTY.":RETURN
851 PRINT"[213]NDER A FALSE BOTTOM YOU SPY A HANDY"
852 PRINT"[204]ATIN-[197]NGLISH TRANSLATOR.":RETURN
853 IFA$<>"TATR"THEN856
854 IFQ%(21)=0OR(Q%(21)=2ANDQ%(0)<>41)THEN856
855 IFQ%(8)=0THENQ%(8)=1:GOSUB30:RETURN
856 IFA$<>"LOSU"ORQ%(21)=0THEN859
857 IFQ%(21)=2ANDQ%(0)<>41THEN859
858 PRINT"[212]HE SUITCASE IS MADE OF RICH [195]ORINTHIAN LEATHER.":RETURN
859 IFA$<>"LOPO"ANDA$<>"REPO"ORQ%(22)=0THEN861
860 F$="SK":GOSUB106:PRINT:RETURN
861 IFA$<>"LOCA"ORQ%(23)=0THEN868
862 PRINT"[200]MMM. [212]HE CANDLE IS PUTTY-LIKE WITH A"
863 PRINT"RATHER LARGE WICK.  [215]HAT THE DUECE DO"
864 PRINT"YOU DEDUCE, LA [205]ORT?"
865 PRINT"[129][212]HE CANDLE IS REALLY...[158]";:GOSUB10:C$=LEFT$(A$,2)
866 IFC$="EX"ORC$="DY"THENQ%(23)=2:Q%(16)=1:PRINT"[155][212]HAT'S EXACTLY RIGHT!":RETURN
867 PRINT"[155][207]H WELL, IT'S PROBABLY NOT IMPORTANT,   ANYWAY.":RETURN
868 IFA$<>"LICA"ANDA$<>"LIEX"ANDA$<>"LIDY"THEN872
869 IFQ%(16)=0THEN871
870 F$="EX":GOSUB106:PRINT:RETURN
871 PRINT"[198]OR SOME PROBABLY LUCKY REASON, THEY    WON'T LIGHT.":RETURN
872 IFA$<>"LOBU"ANDA$<>"REBU"ORQ%(9)=0THEN874
873 PRINT"[147]":F$="PB":GOSUB106:PRINT:RETURN
874 IFA$<>"LOCO"ANDA$<>"RECO"ORQ%(9)=0THEN876
875 F$="CV":GOSUB106:PRINT:RETURN
876 IFQ%(14)<>1THEN880
877 IFA$<>"SNPE"ANDA$<>"SMPE"ANDA$<>"SNAT"ANDA$<>"SMAT"THEN880
878 PRINT"[217]OUR FERRET NOSE SMELLS A POWERFUL"
879 PRINT"POISON, ARSENIC DI-CYANIDE.":RETURN
880 IFA$<>"LOBO"ANDA$<>"REBO"ORQ%(24)=0THEN884
881 PRINT"[212]WO ENTRIES ARE INTERESTING:
882 [153]"  '(null)UBTRACT ONE FROM CODE.'
883 PRINT"  '[198]IND WHO STOLE MY PERFUME ATOMIZER.'":RETURN
884 IFA$<>"LOBE"ORQ%(25)=0THEN886
885 PRINT"[212]HE BELLROPE IS A STOUT FOUR METER      LENGTH OF ROPE.":RETURN
886 IFA$<>"LOSH"ANDA$<>"RESH"THEN890
887 PRINT"[147]":F$="IS":GOSUB106:PRINT:GOSUB110
888 PRINT"[147]":F$="MD":GOSUB106:PRINT:RETURN
889 RETURN
890 IFA$<>"LOMA"ANDA$<>"REMA"THEN892
891 PRINT"[147]";:F$="MA":GOSUB106:PRINT:RETURN
892 IFA$<>"LORU"THEN894
893 PRINT"[212]HE RUG IS HAND-WOVEN AND SIGNED BY     [211]T [195]ALIBAN.":RETURN
894 IFA$<>"LOCR"ORQ%(7)=0ORQ%(2)THEN896
895 PRINT"[211]ACRE BLEU!  [212]HE CRUCIFIX IS ACTUALLY   A KEY.":Q%(2)=1:RETURN
896 IFA$<>"LOHA"ANDA$<>"REHA"ORQ%(1)=0THEN902
897 PRINT"[212]HERE ARE KNOTS FOR ALL OCCASIONS."
898 PRINT"[129][215]HICH KNOT DO YOU LIKE";:GOSUB10
899 PRINT"[155]":IFLEFT$(A$,2)<>"SL"THEN901
900 F$="KN":GOSUB106:PRINT:RETURN
901 PRINT"[193]N INTERESTING KNOT, BUT IRRELEVANT.":RETURN
902 IFA$="DRWA"ANDQ%(20)=1THENPRINT"[200]MMM. [212]ASTES LIKE HOLY WATER.":Q%(20)=2:RETURN
903 IFA$="DRWI"ANDQ%(15)=1THENQ%(15)=2:PRINT"[200]MMM. [212]ASTES LIKE [212]HUNDERBIRD.":RETURN
904 IFA$<>"RESI"ORQ%(8)THEN906
905 PRINT"[201]'M AFRAID YOUR BARROOM [204]ATIN ISN'T UP  TO THIS JOB, [201]NSPECTOR.":RETURN
906 IFA$="PQ"THENPRINT"[217]OUR PRAYER IS APPARENTLY IGNORED.":RETURN
907 IFYYTHENYY=0:RETURN
908 IFC$<>"HI"ANDC$<>"BR"ANDC$<>"KI"THEN911
909 IFFNAA(3)>1THENPRINT"[212]HAT BORDERS ON SACRILEGE, [204]A [205]ORT!":RETURN
910 PRINT"[214]IOLENCE WILL GET YOU NOWHERE, LA [205]ORT.":RETURN
911 IFLEN(A$)<>1THEN915
912 IFA$<>"N"ANDA$<>"E"ANDA$<>"S"ANDA$<>"W"ANDA$<>"U"ANDA$<>"D"THEN914
913 PRINT"[212]O GO SOMEWHERE ENTER 'GO (PLACE)'.":RETURN
914 PRINT"[212]HE ONE-LETTER COMMANDS ARE L FOR LOOK  AND I FOR INVENTORY.":RETURN
915 IFC$="RE"THENPRINT"[215]ITH YOUR MYOPIA, [201]NSPECTOR?":RETURN
916 IFC$="GO"THENPRINT"[195]AN'T GO THERE FROM HERE.":RETURN
917 IFC$<>"TA"THEN921
918 FORI=1TO29
919 IFB$=LEFT$(Q$(I),2)ANDQ%(I)=1THENPRINT"[217]OU ALREADY HAVE IT.":RETURN
920 :NEXT:PRINT"[195]AN'T TAKE THAT.":RETURN
921 IFC$="OP"THENR=FNAA(3):PRINT"[195]AN'T DO IT, LA [205]ORT.":RETURN
922 IFA$=""THENPRINT"[206]OTHING WILL GET YOU NOWHERE, LA [205]ORT.":RETURN
923 IFA$="L"ORC$="LO"THENPRINT"[212]HE '"BH$"' YIELDS NO CLUES.":RETURN
924 R=FNAA(3):PRINTE$(R):RETURN
925 DATAHANDBOOK,KEY,DIARY,BREVIARY,RECEIPTS,MEMO,ROSARY,TRANSLATOR
926 DATAPAPAL BULL,SCROLL 1,SCROLL 2,SCROLL 3,SCROLL 4,ATOMIZER,WINE
927 DATADYNAMITE,PAGE,NOTE,MISSAL,WATER,SUITCASE,PORNSCROLL
928 DATACANDLE,BOOK,BELLROPE,KNIFE,MAP,CLIPPING,SHEET
929 DATAOABNOB,BABOON,ZLAELGE,GAZELLE,NPEHALET,ELEPHANT,MTAWBO,WOMBAT
930 DATAGA,HO,CH,ST,BA,QU,CL,LI,BE,OF,NO,SO,BO,CE
931 DATAJNP,JPN,NJP,NPJ,PJN,PNJ,JNM,JMN,NMJ,NJM,MNJ,MJN
932 DATAMPN,MNP,NPM,NMP,PMN,PNM,MPJ,MJP,JPM,JMP,PMJ,PJM
933 GOSUB110
934 PRINT"[204]A [205]ORT, YOU MAY RETURN TO:"
935 PRINTTAB(8)"([158][194][155])[193][211][201][195]
936 [153][163]8)"(SYS(null)LIST)OAD(null)TAR"
937 [153][163]8)"(SYS(null)LIST)ONASTERY"
938 [161]A$
939 [139]A$[178]"B"[176]A$[178]"PEEK"[167][158]64738
940 [139]A$[178]"L"[176]A$[178]"(null)"[167]943
941 [139]A$[178]"M"[176]A$[178]"(null)"[167][138]2
942 [137]938
943 [151]44,8:[151]8[172]256,0:[151]53272,21
944 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
945 [153]""
946 [151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13
947 [162]
950 [153]"(null)OU'VE GOT YOURSELF A BELLROPE.  (null)HAT   LEAVES"Q%(55)[171]1"LEFT."
951 Q%(55)[178]Q%(55)[171]1:[142]