commit d327e7626dbfacc5d634d7d7ee40d95ddb5fddf2
Author: historicalsource <historicalsoftware@textfiles.com>
Date:   Tue Apr 16 09:16:28 2019 -0400

    Release Version

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..2336f69
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# sherlock
diff --git a/armor b/armor
new file mode 100644
index 0000000..b325a2e
Binary files /dev/null and b/armor differ
diff --git a/badv.was-mid b/badv.was-mid
new file mode 100644
index 0000000..496adbf
Binary files /dev/null and b/badv.was-mid differ
diff --git a/badvio b/badvio
new file mode 100644
index 0000000..5ec5b20
Binary files /dev/null and b/badvio differ
diff --git a/bank.zabstr b/bank.zabstr
new file mode 100644
index 0000000..bfbce22
--- /dev/null
+++ b/bank.zabstr
@@ -0,0 +1,43 @@
+
+<CONSTANT K-GEM-BOX-NUM 600> 
+<DEFINE-ROUTINE RT-KIDNAP> 
+<DEFINE-ROUTINE RT-WIGGINS-HELP-MSG> 
+<GLOBAL BOX-KEY-COLD? <> %<> WORD> 
+<DEFINE-ROUTINE RT-STEAL-KEY> 
+<OBJECT TH-INTNUM (LOC GLOBAL-OBJECTS) (DESC "number") (FLAGS FL-NODESC FL-SEEN
+) (SYNONYM INTNUM NUMBER) (GENERIC RT-GN-INTNUM) (ACTION RT-AC-TH-INTNUM)> 
+<OBJECT TH-SAFETY-DEPOSIT-BOX (LOC RM-BANK-VAULT) (DESC "safety deposit box") (
+FLAGS FL-NODESC FL-CONTAINER FL-OPENABLE FL-LOCKED FL-HAS-DESCFCN) (SYNONYM
+INTNUM BOX) (ADJECTIVE SAFETY DEPOSIT BOX NUMBER) (SIZE 0 CAPACITY 10) (GENERIC
+RT-GN-INTNUM) (ACTION RT-AC-TH-SAFETY-DEPOSIT-BOX)> 
+<OBJECT TH-RING (LOC LOCAL-GLOBALS) (DESC "ring") (FLAGS FL-TAKEABLE FL-NOALL
+FL-CLOTHING) (SYNONYM RING) (ADJECTIVE SIGNET) (VALUE 1) (SIZE 1 MASS 1) (
+ACTION RT-AC-TH-RING)> 
+<OBJECT TH-SHILLING (DESC "shilling") (FLAGS FL-TAKEABLE FL-MONEY) (SYNONYM
+SHILLING COIN) (VALUE 0) (SIZE 1 MASS 1)> 
+<OBJECT TH-BOX-KEY (LOC TH-GUARDS-POCKET) (DESC "key") (FLAGS FL-TAKEABLE
+FL-HAS-DESCFCN) (SYNONYM KEY) (ADJECTIVE MASTER) (SIZE 1) (VALUE 1) (ACTION
+RT-AC-TH-BOX-KEY)> 
+<OBJECT TH-BOX-LOCK (LOC RM-BANK-VAULT) (DESC "lock") (FLAGS FL-NODESC
+FL-CONTAINER FL-OPENED) (SYNONYM INTNUM) (ADJECTIVE LOCK NUMBER) (GENERIC
+RT-GN-INTNUM) (ACTION RT-AC-TH-BOX-LOCK)> 
+<OBJECT TH-BOXES (LOC RM-BANK-VAULT) (DESC "safety deposit boxes") (FLAGS
+FL-NODESC FL-PLURAL FL-OPENABLE FL-CONTAINER FL-HAS-DESCFCN) (SYNONYM BOXES) (
+ADJECTIVE SAFETY DEPOSIT) (ACTION RT-AC-TH-BOXES)> 
+<OBJECT TH-GUARDS-POCKET (LOC CH-BANK-GUARD) (DESC "guard's pocket") (FLAGS
+FL-NODESC FL-CONTAINER FL-OPENED FL-TRYTAKE) (SYNONYM POCKET) (ADJECTIVE HIS
+GUARD\'S) (SIZE 0 CAPACITY 10) (ACTION RT-AC-TH-GUARDS-POCKET)> 
+<DEFINE-ROUTINE RT-AC-TH-INTNUM> 
+<DEFINE-ROUTINE RT-AC-TH-RING> 
+<DEFINE-ROUTINE RT-AC-TH-BOX-KEY> 
+<DEFINE-ROUTINE RT-AC-TH-BOX-LOCK> 
+<DEFINE-ROUTINE RT-AC-TH-SAFETY-DEPOSIT-BOX> 
+<DEFINE-ROUTINE RT-AC-TH-DIAL> 
+<DEFINE-ROUTINE RT-AC-TH-BOXES> 
+<DEFINE-ROUTINE RT-AC-TH-GUARDS-POCKET> 
+<DEFINE-ROUTINE RT-AC-CH-BANK-GUARD> 
+<GLOBAL WIGGINS-COLD? <> %<> WORD> 
+<DEFINE-ROUTINE RT-AC-CH-WIGGINS> 
+<DEFINE-ROUTINE RT-AC-CH-BUTLER> 
+<DEFINE-ROUTINE RT-AC-LG-BANK-VAULT-DOOR> 
+<DEFINE-ROUTINE RT-TOPAZ-MSG> 
\ No newline at end of file
diff --git a/bank.zap b/bank.zap
new file mode 100644
index 0000000..5c6a320
--- /dev/null
+++ b/bank.zap
@@ -0,0 +1,887 @@
+
+
+	.FUNCT	RT-KIDNAP
+	MOVE	CH-HOLMES,RM-LAIR
+	MOVE	TH-ROPE,CH-HOLMES
+	FSET	CH-HOLMES,FL-LOCKED
+	SET	'TH-ROPE-AUX1,CH-HOLMES
+	BAND	MYCROFT-STATE,-2 >MYCROFT-STATE
+	SET	'GL-PUPPY,FALSE-VALUE
+	CRLF	
+	PRINTI	"Suddenly, someone grabs you from behind, pins your arms to your sides, and covers up your head. You struggle fiercely to get loose, but to no avail. Then you hear a voice shout, ""Let him go, we've got the other one."""
+	CRLF	
+	CRLF	
+	PRINTI	"The person holding you knocks you on the head and flings you to the ground. You lose consciousness for a few moments, and when you awake, you are alone."
+	CRLF	
+	CRLF	
+	PRINTR	"Sherlock Holmes has been kidnapped."
+
+
+	.FUNCT	RT-WIGGINS-HELP-MSG
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	PRINTI	" says, ""I saw it all, guv'nor. But it was over before I could lift a finger. Mr 'Olmes was a friend to me, 'e was. And I'd do anyfing to 'elp you get 'im back."""
+	CRLF	
+	SET	'GL-PUPPY,CH-WIGGINS
+	FCLEAR	CH-WIGGINS,FL-NODESC
+	FCLEAR	CH-WIGGINS,FL-BROKEN
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	RETURN	GL-PUPPY-MSG?
+
+
+	.FUNCT	RT-STEAL-KEY
+	ZERO?	BOX-KEY-COLD? \?CCL3
+	SET	'BOX-KEY-COLD?,TRUE-VALUE
+	MOVE	TH-BOX-KEY,CH-PLAYER
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	PRINTI	" casually strolls past the guard and says, ""Cor blimey. That bird isn't 'alf built, is she?"" While the guard's attention is diverted, Wiggins's hand flashes in and out of his pocket. Then just as casually as before, he strolls back to you, slips something into your hand, and whispers, ""Sorry I couldn't get everything, guv. I 'ope this is enough."""
+	CRLF	
+	GETP	TH-BOX-KEY,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-BOX-KEY,P?VALUE,0
+	RTRUE	
+?CCL3:	PRINTR	"""Sorry, guv. 'E'll never go for it twice."""
+
+
+	.FUNCT	RT-AC-TH-INTNUM,CONTEXT
+	EQUAL?	GL-PRSA,V?WAIT-FOR,V?WAIT,V?VERIFY /FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL5
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	EQUAL?	GL-PLACE-CUR,RM-BANK-VAULT /FALSE
+	EQUAL?	GL-P-NUMBER,-1 \?CCL10
+	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTR	"not see that here."
+?CCL10:	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTR	"not need to use a number here."
+
+
+	.FUNCT	RT-AC-TH-RING,CONTEXT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?WEAR \FALSE
+	PRINTR	"It's the wrong size."
+
+
+	.FUNCT	RT-AC-TH-BOX-KEY,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	IN?	TH-BOX-KEY,TH-GUARDS-POCKET /?CTR5
+	IN?	TH-BOX-KEY,CH-BANK-GUARD \?CCL6
+?CTR5:	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't see it. The guard has it."
+?CCL6:	ICALL2	RT-CTHEO-PRINT,TH-BOX-KEY
+	PRINTR	" has the word ""Master"" written on it."
+?CCL3:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TURN \?CCL15
+	IN?	TH-BOX-KEY,TH-BOX-LOCK \FALSE
+	EQUAL?	TH-BOX-KEY-AUX1,K-GEM-BOX-NUM \?CCL21
+	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED \?CCL24
+	PRINTR	"The box is already open."
+?CCL24:	SET	'TH-SAFETY-DEPOSIT-BOX-AUX1,TH-BOX-KEY-AUX1
+	ICALL	RT-CYOU-MSG,STR?227,STR?707
+	PRINTI	"the box with the key."
+	FIRST?	TH-SAFETY-DEPOSIT-BOX \?CND25
+	PRINTI	" Inside you see "
+	ICALL2	RT-PRINT-CONTENTS-2,TH-SAFETY-DEPOSIT-BOX
+	PRINTC	46
+?CND25:	FSET	TH-SAFETY-DEPOSIT-BOX,FL-OPENED
+	FCLEAR	TH-SAFETY-DEPOSIT-BOX,FL-LOCKED
+	CRLF	
+	RTRUE	
+?CCL21:	ICALL	RT-CYOU-MSG,STR?227,STR?707
+	PRINT	K-NOTHING-INSIDE-MSG
+	ICALL	RT-YOU-MSG,STR?808,STR?809
+	PRINTR	"it back up again."
+?CCL15:	EQUAL?	GL-PRSA,V?READ \FALSE
+	IN?	TH-BOX-KEY,TH-GUARDS-POCKET /?CTR30
+	IN?	TH-BOX-KEY,CH-BANK-GUARD \?CCL31
+?CTR30:	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't see it. The guard has it."
+?CCL31:	PRINTR	"It says, Master."""
+
+
+	.FUNCT	RT-AC-TH-BOX-LOCK,CONTEXT,NUM
+	EQUAL?	GL-P-NUMBER,-1 \?CCL3
+	ZERO?	TH-BOX-LOCK-AUX1 \?CND1
+	PRINT	K-SPECIFY-MSG
+	PRINTR	"lock by number."
+?CCL3:	LESS?	GL-P-NUMBER,1 /?CTR6
+	GRTR?	GL-P-NUMBER,999 \?CCL7
+?CTR6:	PRINTI	"There is no lock number "
+	PRINTN	GL-P-NUMBER
+	PRINTR	"."
+?CCL7:	SET	'TH-BOX-LOCK-AUX1,GL-P-NUMBER
+?CND1:	SET	'NUM,TH-BOX-LOCK-AUX1
+	ZERO?	GL-NOW-PRSI? /?CCL12
+	EQUAL?	GL-PRSA,V?PUT \?CCL15
+	EQUAL?	GL-PRSO,TH-BOX-KEY \?CCL18
+	MOVE	TH-BOX-KEY,TH-BOX-LOCK
+	SET	'TH-BOX-KEY-AUX1,TH-BOX-LOCK-AUX1
+	PRINTR	"The key fits nicely."
+?CCL18:	CALL1	RT-CANT-PUT-IN-ON-MSG
+	RSTACK	
+?CCL15:	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	EQUAL?	GL-PRSO,TH-BOX-KEY \FALSE
+	IN?	TH-BOX-KEY,TH-BOX-LOCK \FALSE
+	MOVE	TH-BOX-KEY,GL-WINNER
+	SET	'TH-BOX-KEY-AUX1,0
+	PRINTR	"The key comes out smoothly."
+?CCL12:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-SAFETY-DEPOSIT-BOX,CONTEXT,NUM
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	SET	'NUM,TH-SAFETY-DEPOSIT-BOX-AUX1
+	PRINTR	"It looks the same as all the other boxes."
+?CCL3:	EQUAL?	GL-P-NUMBER,-1 \?CCL5
+	ZERO?	TH-SAFETY-DEPOSIT-BOX-AUX1 \?CCL8
+	PRINT	K-SPECIFY-MSG
+	PRINTR	"box by number."
+?CCL8:	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED \?CND1
+	SET	'TH-SAFETY-DEPOSIT-BOX-AUX1,600
+	JUMP	?CND1
+?CCL5:	LESS?	GL-P-NUMBER,1 /?CTR10
+	GRTR?	GL-P-NUMBER,999 \?CCL11
+?CTR10:	PRINTI	"There is no box number "
+	PRINTN	GL-P-NUMBER
+	PRINTR	"."
+?CCL11:	SET	'TH-SAFETY-DEPOSIT-BOX-AUX1,GL-P-NUMBER
+?CND1:	SET	'NUM,TH-SAFETY-DEPOSIT-BOX-AUX1
+	ZERO?	GL-NOW-PRSI? /?CCL16
+	EQUAL?	GL-PRSA,V?TAKE,V?PUT,V?FILL /?CCL19
+	EQUAL?	GL-PRSA,V?EMPTY-INTO,V?POUR-FROM \FALSE
+?CCL19:	EQUAL?	NUM,K-GEM-BOX-NUM \?CCL24
+	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED /FALSE
+?CCL24:	ICALL1	RT-CTHEI-PRINT
+	PRINTR	" is closed."
+?CCL16:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?UNLOCK,V?OPEN,V?OPEN-WITH \?CCL31
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-BOX-KEY /?CCL34
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL34:	IN?	TH-BOX-KEY,GL-WINNER /?CCL36
+	EQUAL?	NUM,TH-BOX-KEY-AUX1 /?CCL36
+	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTR	"not have the key."
+?CCL36:	EQUAL?	NUM,K-GEM-BOX-NUM \?CCL40
+	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED \?CCL43
+	PRINTR	"It is already open."
+?CCL43:	ICALL	RT-CYOU-MSG,STR?227,STR?707
+	PRINTI	"the box with the key."
+	FIRST?	TH-SAFETY-DEPOSIT-BOX \?CND44
+	PRINTI	" Inside you see "
+	ICALL2	RT-PRINT-CONTENTS-2,TH-SAFETY-DEPOSIT-BOX
+	PRINTC	46
+?CND44:	FSET	TH-SAFETY-DEPOSIT-BOX,FL-OPENED
+	FCLEAR	TH-SAFETY-DEPOSIT-BOX,FL-LOCKED
+	CRLF	
+	RTRUE	
+?CCL40:	ICALL	RT-CYOU-MSG,STR?227,STR?707
+	PRINT	K-NOTHING-INSIDE-MSG
+	ICALL	RT-YOU-MSG,STR?808,STR?809
+	PRINTR	"it back up again."
+?CCL31:	EQUAL?	GL-PRSA,V?LOCK,V?CLOSE \?CCL47
+	EQUAL?	NUM,K-GEM-BOX-NUM \?CCL50
+	IN?	TH-BOX-KEY,GL-WINNER /?CCL53
+	EQUAL?	NUM,TH-BOX-KEY-AUX1 /?CCL53
+	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTR	"not have the key."
+?CCL53:	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED /?CCL57
+	PRINT	K-CLOSED-AND-LOCKED-MSG
+	CRLF	
+	RTRUE	
+?CCL57:	ICALL	RT-CYOU-MSG,STR?810,STR?811
+	PRINTI	"the box with the key."
+	FCLEAR	TH-SAFETY-DEPOSIT-BOX,FL-OPENED
+	FSET	TH-SAFETY-DEPOSIT-BOX,FL-LOCKED
+	CRLF	
+	RTRUE	
+?CCL50:	PRINT	K-CLOSED-AND-LOCKED-MSG
+	CRLF	
+	RTRUE	
+?CCL47:	EQUAL?	GL-PRSA,V?READ \?CCL59
+	PRINTN	TH-SAFETY-DEPOSIT-BOX-AUX1
+	CRLF	
+	RTRUE	
+?CCL59:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL61
+	EQUAL?	NUM,K-GEM-BOX-NUM \?CTR63
+	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED /?CCL64
+?CTR63:	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is closed."
+?CCL64:	PRINTI	"Inside "
+	ICALL1	RT-THEO-PRINT
+	ICALL	RT-YOU-MSG,STR?665,STR?666
+	ICALL2	RT-PRINT-CONTENTS-2,TH-SAFETY-DEPOSIT-BOX
+	PRINTR	"."
+?CCL61:	EQUAL?	GL-PRSA,V?EMPTY,V?REACH-IN \?CCL68
+	EQUAL?	NUM,K-GEM-BOX-NUM \?CCL71
+	FSET?	TH-SAFETY-DEPOSIT-BOX,FL-OPENED /FALSE
+?CCL71:	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is closed."
+?CCL68:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-DIAL,CONTEXT,LOCK?,WHO,PTS
+	ZERO?	CONTEXT \FALSE
+	ZERO?	TH-DIAL-AUX1 \?CND1
+	SET	'TH-DIAL-AUX1,TH-RIGHT
+?CND1:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TUNE-TO \?CCL12
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-LEFT,TH-RIGHT /?CCL12
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL2	RT-THEO-PRINT,TH-DIAL
+	PRINTI	" to "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL12:	EQUAL?	GL-PRSA,V?TUNE-TO,V?SPIN,V?TURN \?CCL16
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-LEFT,TH-RIGHT /?CTR18
+	EQUAL?	GL-PRSI,TH-HANDS \?CCL19
+?CTR18:	FSET?	TH-STETHOSCOPE,FL-WORN /?CCL24
+	SET	'LOCK?,1
+	PRINTI	"The dial turns smoothly."
+	CRLF	
+	JUMP	?CND22
+?CCL24:	EQUAL?	GL-LISTEN-OBJ,TH-DIAL,LG-BANK-VAULT-DOOR,RM-BANK-VAULT /?CCL26
+	SET	'LOCK?,1
+	PRINTI	"The dial turns quietly."
+	CRLF	
+	JUMP	?CND22
+?CCL26:	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL28
+	SET	'LOCK?,1
+	PRINTI	"The dial turns with a series of muffled clicks."
+	CRLF	
+	JUMP	?CND22
+?CCL28:	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL30
+	SET	'LOCK?,2
+	PRINTI	"Clunk."
+	CRLF	
+	JUMP	?CND22
+?CCL30:	EQUAL?	TH-DIAL-AUX1,GL-PRSI /?CCL32
+	SET	'LOCK?,1
+	PRINTI	"Clunk."
+	CRLF	
+	JUMP	?CND22
+?CCL32:	INC	'TH-DIAL-AUX2
+?CND22:	EQUAL?	LOCK?,1 /?CND17
+	EQUAL?	TH-DIAL-AUX2,1 \?CCL37
+	SET	'TH-DIAL-AUX1,TH-RIGHT
+	PRINTI	"Whirr."
+	CRLF	
+	JUMP	?CND17
+?CCL37:	EQUAL?	TH-DIAL-AUX2,2 \?CCL39
+	SET	'TH-DIAL-AUX1,TH-LEFT
+	PRINTI	"Click."
+	CRLF	
+	JUMP	?CND17
+?CCL39:	EQUAL?	TH-DIAL-AUX2,3 \?CCL41
+	SET	'TH-DIAL-AUX1,TH-RIGHT
+	PRINTI	"Click."
+	CRLF	
+	JUMP	?CND17
+?CCL41:	EQUAL?	TH-DIAL-AUX2,4 \?CCL43
+	SET	'TH-DIAL-AUX1,TH-RIGHT
+	PRINTI	"Whirr."
+	CRLF	
+	JUMP	?CND17
+?CCL43:	EQUAL?	TH-DIAL-AUX2,5 \?CND17
+	SET	'LOCK?,2
+	PRINTI	"Click. Kerchunk. The vault door swings open."
+	CRLF	
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CND45
+	CRLF	
+	PRINTI	"Holmes says, ""Splendid, Watson. The net is drawing ever tighter around our quarry."""
+	CRLF	
+?CND45:	GETP	LG-BANK-VAULT-DOOR,P?VALUE >PTS
+	ZERO?	PTS /?CND17
+	ICALL2	RT-UPDATE-SCORE,PTS
+	PUTP	LG-BANK-VAULT-DOOR,P?VALUE,0
+	JUMP	?CND17
+?CCL19:	ICALL1	RT-IMPOSSIBLE-MSG
+?CND17:	EQUAL?	LOCK?,1 \?CCL51
+	SET	'TH-DIAL-AUX1,0
+	SET	'TH-DIAL-AUX2,0
+	RTRUE	
+?CCL51:	EQUAL?	LOCK?,2 \TRUE
+	SET	'TH-DIAL-AUX1,-1
+	SET	'TH-DIAL-AUX2,-1
+	FCLEAR	LG-BANK-VAULT-DOOR,FL-LOCKED
+	FSET	LG-BANK-VAULT-DOOR,FL-OPENED
+	RTRUE	
+?CCL16:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-BOXES,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"There are rows and rows of safety deposit boxes, all alike, numbered from 1 to 999."
+?CCL3:	EQUAL?	GL-PRSA,V?UNLOCK,V?LOCK,V?OPEN /?CTR4
+	EQUAL?	GL-PRSA,V?CLOSE,V?READ \?CCL5
+?CTR4:	PRINT	K-SPECIFY-MSG
+	PRINTI	"box by number."
+	CRLF	
+	RETURN	2
+?CCL5:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-GUARDS-POCKET
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?EXAMINE,V?SEARCH \?CCL3
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't see inside the guard's pocket."
+?CCL3:	EQUAL?	GL-PRSA,V?PUT \?CCL5
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	EQUAL?	GL-PRSA,V?TAKE,V?EMPTY,V?REACH-IN /?CCL7
+	EQUAL?	GL-PRSA,V?STEAL \FALSE
+?CCL7:	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTR	" slaps the offending hand away and says, ""Keep your hands to yourself, mate."""
+
+
+	.FUNCT	RT-AC-CH-BANK-GUARD,CONTEXT,GEMCNT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-BANK-GUARD
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTR	" is lounging against the wall, idly jangling some keys in his pocket and waiting for girls to walk by."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-BANK-GUARD
+	ZERO?	STACK /?CCL5
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL8
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND6
+?CCL8:	SET	'OBJ,GL-PRSI
+?CND6:	PRINT	K-GUARD-IGNORES-MSG
+	CRLF	
+	RTRUE	
+?CCL5:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL10
+	RETURN	2
+?CCL10:	EQUAL?	CONTEXT,K-M-WINNER \?CCL12
+	EQUAL?	GL-PRSA,V?GIVE \?CCL15
+	EQUAL?	GL-PRSO,TH-BOX-KEY,TH-GUARDS-KEYS \?CCL18
+	PRINT	K-SORRY-MATE-MSG
+	CRLF	
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSO,TH-OPAL,TH-RUBY,TH-SAPPHIRE /?CCL20
+	EQUAL?	GL-PRSO,TH-EMERALD \FALSE
+?CCL20:	PRINT	K-ILL-HOLD-IT-MSG
+	CRLF	
+	RTRUE	
+?CCL15:	PRINT	K-GUARD-IGNORES-MSG
+	CRLF	
+	RTRUE	
+?CCL12:	ZERO?	GL-NOW-PRSI? /?CCL24
+	EQUAL?	GL-PRSA,V?GIVE \?CCL27
+	EQUAL?	GL-PRSO,TH-OPAL,TH-RUBY,TH-SAPPHIRE /?CTR29
+	EQUAL?	GL-PRSO,TH-EMERALD \?CCL30
+?CTR29:	MOVE	GL-PRSO,CH-BANK-GUARD
+	FSET	GL-PRSO,FL-NOALL
+	INC	'CH-BANK-GUARD-AUX1
+	SET	'GEMCNT,CH-BANK-GUARD-AUX1
+	EQUAL?	GEMCNT,1 \?CCL35
+	PRINTR	"""Now this is very nice. But I think I would need more than just one to make letting you in worth my while. I'll hold this for you until you come back."""
+?CCL35:	EQUAL?	GEMCNT,2 \?CCL37
+	PRINTR	"""This is even more beautiful than the other one. But it isn't worth taking the risk for only two of them."""
+?CCL37:	EQUAL?	GEMCNT,3 \?CCL39
+	PRINTR	"""One more and you're in."""
+?CCL39:	EQUAL?	GEMCNT,4 \TRUE
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTI	" looks furtively up and down the street. Then he whispers to you out of the side of his mouth, ""Good enough. Go on in."""
+	CRLF	
+	ICALL2	RT-UPDATE-SCORE,3
+	RTRUE	
+?CCL30:	EQUAL?	GL-PRSO,TH-BOX-KEY \?CCL42
+	MOVE	TH-BOX-KEY,TH-GUARDS-POCKET
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTR	" looks surprised and says, ""Ta, mate. I didn't know I dropped it. I'll have to keep it in a safer place."" He puts the key into one of his inside pockets."
+?CCL42:	EQUAL?	GL-PRSO,TH-RED-GLASS \?CCL44
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTI	" looks at it carefully and then hands it back to you, saying, ""For a moment there, I thought this was a ruby. But it's only a piece of glass."""
+	CRLF	
+	CRLF	
+	PRINT	K-MORE-VALUABLE-MSG
+	CRLF	
+	RTRUE	
+?CCL44:	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTI	" examines what you are offering and then declines your bribe."
+	CRLF	
+	CRLF	
+	PRINT	K-MORE-VALUABLE-MSG
+	CRLF	
+	RTRUE	
+?CCL27:	EQUAL?	GL-PRSA,V?TAKE \?CCL46
+	EQUAL?	GL-PRSO,TH-OPAL,TH-RUBY,TH-SAPPHIRE /?CTR48
+	EQUAL?	GL-PRSO,TH-EMERALD \?CCL49
+?CTR48:	PRINT	K-ILL-HOLD-IT-MSG
+	CRLF	
+	RTRUE	
+?CCL49:	EQUAL?	GL-PRSO,TH-BOX-KEY,TH-GUARDS-KEYS \?CCL53
+	PRINT	K-SORRY-MATE-MSG
+	CRLF	
+	RTRUE	
+?CCL53:	EQUAL?	GL-PRSO,CH-BANK-GUARD \FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINT	K-MUST-WEIGH-MSG
+	CRLF	
+	RTRUE	
+?CCL46:	EQUAL?	GL-PRSA,V?SHOW \FALSE
+	EQUAL?	GL-PRSO,TH-OPAL,TH-RUBY,TH-SAPPHIRE /?CTR59
+	EQUAL?	GL-PRSO,TH-EMERALD,TH-RED-GLASS \?CCL60
+?CTR59:	PRINTR	"""My, what a loverly gem!"""
+?CCL60:	EQUAL?	GL-PRSO,TH-BOX-KEY \FALSE
+	MOVE	TH-BOX-KEY,TH-GUARDS-POCKET
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTR	" looks surprised and says, ""Oh! Thank you. I must have dropped it. I'll be sure to keep it in a safer place."" He takes the key and puts it in one of his inside pockets."
+?CCL24:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL69
+	EQUAL?	GL-PRSI,FALSE-VALUE \FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINT	K-MUST-WEIGH-MSG
+	CRLF	
+	RTRUE	
+?CCL69:	EQUAL?	GL-PRSA,V?ASK-FOR \FALSE
+	EQUAL?	GL-PRSI,TH-BOX-KEY,TH-GUARDS-KEYS \?CCL77
+	PRINT	K-SORRY-MATE-MSG
+	CRLF	
+	RTRUE	
+?CCL77:	EQUAL?	GL-PRSI,TH-OPAL,TH-RUBY,TH-SAPPHIRE /?CCL79
+	EQUAL?	GL-PRSI,TH-EMERALD \FALSE
+?CCL79:	PRINT	K-ILL-HOLD-IT-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-CH-WIGGINS,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-WIGGINS
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	FSET?	GL-WINNER,FL-ASLEEP \?CCL3
+	ICALL2	RT-NO-CONDITION-MSG,GL-WINNER
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-CONT \?CCL7
+	FSET?	CH-WIGGINS,FL-ASLEEP \?CCL7
+	PRINTI	"It's bad enough that you wasted the etherium; using it to steal from your friends is quite unsporting. "
+	RTRUE	
+?CCL7:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL11
+	FSET?	CH-WIGGINS,FL-ASLEEP \?CCL14
+	PRINTR	"Wiggins is still suffering from the effects of the etherium gas."
+?CCL14:	FSET?	CH-WIGGINS,FL-BROKEN \?CND12
+	FCLEAR	CH-WIGGINS,FL-BROKEN
+	FCLEAR	CH-WIGGINS,FL-NODESC
+	FSET	CH-WIGGINS,FL-SEEN
+	PRINTI	"After staring at his dirty face for a few moments, you suddenly recognize the boy. He is Wiggins, the head of the Baker Street Irregulars, which is Holmes's unofficial army of street urchins who ""go everywhere and do everything."""
+	CRLF	
+?CND12:	CALL2	RT-PICK-NEXT,GL-WIGGINS-DESC-TXT
+	PRINT	STACK
+	IN?	CH-WIGGINS,TH-BOAT \?CCL18
+	PRINT	K-ENJOYING-RIDE-MSG
+	JUMP	?CND16
+?CCL18:	IN?	CH-WIGGINS,TH-HANSOM-CAB /?CTR19
+	IN?	CH-WIGGINS,TH-GROWLER-CAB \?CCL20
+?CTR19:	PRINT	K-FIDGETING-MSG
+	JUMP	?CND16
+?CCL20:	CALL2	RT-PICK-NEXT,GL-WIGGINS-LOOK-TXT
+	PRINT	STACK
+?CND16:	PRINTC	46
+	CRLF	
+	RETURN	2
+?CCL11:	CALL2	RT-TELL-ABOUT?,CH-WIGGINS
+	ZERO?	STACK /?CCL24
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL27
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND25
+?CCL27:	SET	'OBJ,GL-PRSI
+?CND25:	FSET?	CH-WIGGINS,FL-ASLEEP \?CCL30
+	CALL2	RT-NO-CONDITION-MSG,CH-WIGGINS
+	RSTACK	
+?CCL30:	EQUAL?	GL-PRSA,V?WHO \?CCL32
+	EQUAL?	OBJ,CH-WIGGINS \?CCL32
+	PRINTR	"""I'm Wiggins, 'ead o' the Baker Street Irregulars."""
+?CCL32:	EQUAL?	OBJ,CH-HOLMES \?CCL36
+	PRINTR	"""E's a good man, guv'nor. Best as ever was."""
+?CCL36:	PRINTR	"""Beats me. What do you think?"""
+?CCL24:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL38
+	RETURN	2
+?CCL38:	EQUAL?	CONTEXT,K-M-WINNER \?CCL40
+	EQUAL?	GL-PRSA,V?HELLO \?CCL43
+	PRINTR	"""'Ello."""
+?CCL43:	EQUAL?	GL-PRSA,V?GOODBYE \?CCL45
+	PRINTR	"""Ta ta."""
+?CCL45:	EQUAL?	GL-PRSA,V?THANK \?CCL47
+	PRINTR	"""Anytime, mate."""
+?CCL47:	EQUAL?	GL-PRSA,V?WHERE \?CCL49
+	PRINTR	"""Beats me. What do you think?"""
+?CCL49:	ZERO?	CH-WIGGINS-AUX1 \?CCL51
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	PRINT	K-WOUNDED-PRIDE-MSG
+	CRLF	
+	RTRUE	
+?CCL51:	EQUAL?	GL-PRSA,V?ENTER \?CCL53
+	EQUAL?	GL-PRSO,TH-BUTT-OF-MALMSEY \?CCL56
+	FSET?	GL-PRSO,FL-BROKEN /?CCL56
+	SET	'WIGGINS-COLD?,TRUE-VALUE
+	PRINTR	"Wiggins dutifully climbs into the full butt of malmsey and has a nice bath and gets out again."
+?CCL56:	EQUAL?	GL-PRSO,TH-BUTT-OF-MALMSEY \?CCL60
+	IN?	TH-GARNET,TH-BUTT-OF-MALMSEY \?CCL63
+	MOVE	TH-GARNET,CH-PLAYER
+	ICALL2	RT-THIS-IS-IT,TH-GARNET
+	SET	'WIGGINS-COLD?,TRUE-VALUE
+	FSET	TH-GARNET,FL-SEEN
+	FSET	TH-GARNET,FL-TOUCHED
+	FCLEAR	TH-GARNET,FL-NODESC
+	PRINTI	"Wiggins climbs into the empty butt of malmsey, gets the gem, gets out and gives it to you."
+	CRLF	
+	GETP	TH-GARNET,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-GARNET,P?VALUE,0
+	RTRUE	
+?CCL63:	PRINTR	"Wiggins says, ""Once was enough, thank you."""
+?CCL60:	EQUAL?	GL-PRSO,TH-HANSOM-CAB,TH-GROWLER-CAB,TH-BOAT \?CCL65
+	IN?	CH-HOLMES,RM-LAIR \?CCL68
+	IN?	CH-PLAYER,GL-PRSO \?CCL71
+	PRINTI	"Wiggins climbs in next to you."
+	CRLF	
+	MOVE	CH-WIGGINS,GL-PRSO
+	JUMP	?CND69
+?CCL71:	PRINT	K-AFTER-YOU-MSG
+	CRLF	
+?CND69:	SET	'GL-PUPPY,CH-WIGGINS
+	FCLEAR	CH-WIGGINS,FL-NODESC
+	FCLEAR	CH-WIGGINS,FL-BROKEN
+	RTRUE	
+?CCL68:	PRINT	K-CANT-LEAVE-MSG
+	CRLF	
+	RTRUE	
+?CCL65:	EQUAL?	GL-PRSO,LG-WATER \FALSE
+	PRINTR	"""I ain't no bleedin' mermaid. Besides, bathing ain't 'ealthy."""
+?CCL53:	EQUAL?	GL-PRSA,V?TAKE,V?STEAL \?CCL75
+	EQUAL?	GL-PRSO,TH-GARNET \?CCL78
+	IN?	TH-GARNET,TH-BUTT-OF-MALMSEY \?CCL78
+	MOVE	TH-GARNET,CH-PLAYER
+	ICALL2	RT-THIS-IS-IT,TH-GARNET
+	SET	'WIGGINS-COLD?,TRUE-VALUE
+	FSET	TH-GARNET,FL-SEEN
+	FSET	TH-GARNET,FL-TOUCHED
+	FCLEAR	TH-GARNET,FL-NODESC
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	IN?	CH-WIGGINS,TH-BUTT-OF-MALMSEY /?CND81
+	PRINTI	" climbs into the empty butt of malsey,"
+?CND81:	PRINTI	" gets the gem, gets out, and gives it to you."
+	CRLF	
+	GETP	TH-GARNET,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-GARNET,P?VALUE,0
+	RTRUE	
+?CCL78:	EQUAL?	GL-PRSO,TH-GUARDS-POCKET,TH-BOX-KEY,TH-GUARDS-KEYS /?CTR83
+	EQUAL?	GL-PRSI,TH-GUARDS-POCKET,CH-BANK-GUARD \?CCL84
+?CTR83:	ICALL1	RT-STEAL-KEY
+	RTRUE	
+?CCL84:	EQUAL?	GL-PRSA,V?STEAL \FALSE
+	PRINTR	"""I would if I could, guv. But I don't see 'ow to do it."""
+?CCL75:	EQUAL?	GL-PRSA,V?ROB \?CCL90
+	EQUAL?	GL-PRSO,CH-BANK-GUARD \?CCL90
+	CALL1	RT-STEAL-KEY
+	RSTACK	
+?CCL90:	EQUAL?	GL-PRSA,V?EMPTY,V?REACH-IN,V?SEARCH \?CCL94
+	EQUAL?	GL-PRSO,TH-GUARDS-POCKET,CH-BANK-GUARD /?CTR96
+	EQUAL?	GL-PRSI,TH-GUARDS-POCKET,CH-BANK-GUARD \?CCL97
+?CTR96:	ICALL1	RT-STEAL-KEY
+	RTRUE	
+?CCL97:	PRINTR	"""I would if I could, guv. But I don't see 'ow to do it."""
+?CCL94:	EQUAL?	GL-PRSA,V?FOLLOW \?CCL101
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL104
+	IN?	CH-HOLMES,RM-LAIR \?CCL107
+	PRINTI	"""After you, guv."""
+	CRLF	
+	SET	'GL-PUPPY,CH-WIGGINS
+	FCLEAR	CH-WIGGINS,FL-NODESC
+	FCLEAR	CH-WIGGINS,FL-BROKEN
+	RTRUE	
+?CCL107:	PRINT	K-CANT-LEAVE-MSG
+	CRLF	
+	RTRUE	
+?CCL104:	PRINTR	"""I'm not a bleedin' bloodhound."""
+?CCL101:	EQUAL?	GL-PRSA,V?WAIT \?CCL109
+	EQUAL?	GL-PUPPY,CH-WIGGINS \?CCL112
+	SET	'GL-PUPPY,FALSE-VALUE
+	PRINTR	"""Right. I'm glued to this spot."""
+?CCL112:	PRINTR	"""Whatever you say, guv."""
+?CCL109:	EQUAL?	GL-PRSA,V?EXIT \?CCL114
+	PRINT	K-AFTER-YOU-MSG
+	CRLF	
+	RTRUE	
+?CCL114:	EQUAL?	GL-PRSA,V?PULL \?CCL116
+	EQUAL?	GL-PRSO,TH-PORTCULLIS-CHAIN \?CCL116
+	PRINTR	"""I can't reach it, guv."""
+?CCL116:	PRINTR	"Wiggins looks at you and scratches his head."
+?CCL40:	ZERO?	GL-NOW-PRSI? /?CCL120
+	EQUAL?	GL-PRSA,V?GIVE \?CCL123
+	FSET?	CH-WIGGINS,FL-ASLEEP \?CCL126
+	ICALL	RT-NO-CONDITION-MSG,CH-WIGGINS,STR?812
+	RTRUE	
+?CCL126:	EQUAL?	GL-PRSO,TH-SHILLING \?CCL128
+	MOVE	TH-SHILLING,CH-WIGGINS
+	FSET	TH-SHILLING,FL-NOALL
+	SET	'CH-WIGGINS-AUX1,1
+	ZERO?	GL-P-CONT \?CND129
+	SET	'WINNER-IS-WIGGINS,TRUE-VALUE
+?CND129:	SET	'GL-P-QCONTEXT-TH,CH-WIGGINS
+	SET	'GL-P-QCONTEXT-RM,GL-PLACE-CUR
+	PRINTI	"Wiggins looks at "
+	ICALL2	RT-THEO-PRINT,TH-SHILLING
+	PRINTR	" and then at you. After a few moments he stuffs it deep into the recesses of his clothing and says, ""I'm all yours. Wot's the plan?"""
+?CCL128:	EQUAL?	GL-PRSO,TH-EMERALD,TH-SAPPHIRE,TH-RUBY /?CTR131
+	EQUAL?	GL-PRSO,TH-OPAL,TH-TOPAZ,TH-GARNET /?CTR131
+	EQUAL?	GL-PRSO,TH-POUND-NOTE,TH-SIXPENCE \?CCL132
+?CTR131:	PRINTI	"Wiggins glances at your offer and"
+	PRINT	K-WOUNDED-PRIDE-MSG
+	CRLF	
+	RTRUE	
+?CCL132:	PRINTR	"Wiggins looks at the item you have handed him and then returns it to you. Clearly it was not of interest to him."
+?CCL123:	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	EQUAL?	GL-PRSO,TH-SHILLING \FALSE
+	FSET?	CH-WIGGINS,FL-ASLEEP \?CCL142
+	PRINTI	"He must have hidden it very well. "
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't find it."
+?CCL142:	PRINTR	"""Sorry, guv'nor. A deal's a deal."""
+?CCL120:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?SMELL \FALSE
+	ZERO?	WIGGINS-COLD? /?CCL150
+	PRINT	K-EAU-DE-MSG
+	CRLF	
+	RTRUE	
+?CCL150:	PRINTR	"Yuck. Eau de urchin."
+
+
+	.FUNCT	RT-AC-CH-BUTLER,CONTEXT,WORD-NUM
+	ICALL2	RT-THIS-IS-IT,CH-BUTLER
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	FSET?	CH-BUTLER,FL-ASLEEP \?CCL6
+	CALL2	RT-NO-CONDITION-MSG,CH-BUTLER
+	RSTACK	
+?CCL6:	EQUAL?	GL-PRSA,V?TAKE,V?FIND \?CCL8
+	CALL	RT-IDENTIFY-EVENT?,W?MYCROFT,GL-PRSO
+	ZERO?	STACK /?CCL8
+	SET	'GL-WINNER,CH-PLAYER
+	ICALL	RT-PERFORM,V?ASK-FOR,CH-BUTLER,TH-EVENT
+	RTRUE	
+?CCL8:	EQUAL?	GL-PRSA,V?HELLO \?CCL12
+	PRINTC	34
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL15
+	PRINTI	"How do you do?"
+	JUMP	?CND13
+?CCL15:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2 \?CCL17
+	PRINTI	"Good day."
+	JUMP	?CND13
+?CCL17:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CND13
+	PRINTI	"Good evening."
+?CND13:	PRINTR	""""
+?CCL12:	EQUAL?	GL-PRSA,V?GOODBYE \?CCL20
+	PRINTC	34
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL23
+	PRINTI	"Good night"
+	JUMP	?CND21
+?CCL23:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2 \?CCL25
+	PRINTI	"Good day"
+	JUMP	?CND21
+?CCL25:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CND21
+	PRINTI	"Good evening"
+?CND21:	PRINTR	"."""
+?CCL20:	EQUAL?	GL-PRSA,V?THANK \?CCL28
+	PRINTR	"""You're quite welcome."""
+?CCL28:	EQUAL?	GL-PRSA,V?WHO \?CCL30
+	EQUAL?	GL-PRSO,CH-BUTLER \?CCL30
+	PRINTR	"""I am one of the staff of this fine establishment."""
+?CCL30:	EQUAL?	GL-PRSA,V?WHO,V?WHAT,V?WHERE \?CCL34
+	PRINTR	"""I'm far too discreet to respond."""
+?CCL34:	EQUAL?	GL-PRSA,V?YES,V?NO \?CCL36
+	ICALL2	RT-CTHEO-PRINT,CH-BUTLER
+	PRINTR	" looks at you expectantly."
+?CCL36:	EQUAL?	GL-PRSA,V?RESCUE \?CCL38
+	PRINTR	"""What can I do for you?"""
+?CCL38:	PRINTR	"""I'm afraid I am unable to do that."""
+?CCL3:	ZERO?	GL-NOW-PRSI? \?CCL40
+	EQUAL?	GL-PRSA,V?ASK-FOR,V?ASK-ABOUT \FALSE
+	FSET?	CH-BUTLER,FL-ASLEEP \?CCL46
+	CALL2	RT-NO-CONDITION-MSG,CH-BUTLER
+	RSTACK	
+?CCL46:	CALL	RT-IDENTIFY-EVENT?,W?MYCROFT,GL-PRSI
+	ZERO?	STACK /?CCL48
+	BTST	MYCROFT-STATE,1 \?CCL51
+	PRINTR	"""I am very sorry but Mr Mycroft Holmes is not available at this time. Perhaps you would care to come back later?"""
+?CCL51:	BTST	MYCROFT-STATE,2 \?CCL53
+	BAND	MYCROFT-STATE,-3 >MYCROFT-STATE
+	PRINTI	"The butler listens to you and then leaves. He comes back shortly."
+	CRLF	
+	CRLF	
+	PRINTR	"""Mr Mycroft Holmes requires that you offer some token to verify that you are indeed the person you claim to be. Give whatever it is to me and I will take it to him."""
+?CCL53:	PRINTR	"The butler listens politely but insists that he can do nothing more for you than to deliver the token to Mr Mycroft Holmes."
+?CCL48:	EQUAL?	GL-PRSI,CH-HOLMES \?CCL55
+	PRINTR	"""I am afraid that I know the younger Mr Holmes only by his somewhat colourful reputation."""
+?CCL55:	EQUAL?	GL-PRSI,CH-BUTLER \?CCL57
+	PRINTR	"""I am well, sir. Thank you for asking."""
+?CCL57:	EQUAL?	GL-PRSI,CH-PLAYER,CH-ME \?CCL59
+	PRINTR	"He looks down his nose at you and sniffs, ""I don't believe we've been introduced."""
+?CCL59:	EQUAL?	GL-PRSI,CH-MEMBERS \?CCL61
+	PRINTR	"""They seem livelier than usual for this time of year."""
+?CCL61:	EQUAL?	GL-PRSI,RM-DIOGENES-CLUB \?CCL63
+	PRINTR	"The butler coughs deferentially, ""It is one of the most exclusive clubs in London, sir."" He glances at your clothes. ""Membership is by invitation only."""
+?CCL63:	FSET?	GL-PRSI,FL-PERSON \?CCL65
+	FSET?	GL-PRSI,FL-PLURAL \?CCL68
+	PRINTR	"""Unfortunately, I can say nothing about them."""
+?CCL68:	FSET?	GL-PRSI,FL-FEMALE \?CCL70
+	PRINTR	"""I am sorry but I can tell you nothing about her."""
+?CCL70:	PRINTR	"""Much to my regret I can tell you nothing about him."""
+?CCL65:	PRINTR	"""I'm afraid I wouldn't know anything about that."""
+?CCL40:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?GIVE \FALSE
+	FSET?	CH-BUTLER,FL-ASLEEP \?CCL78
+	CALL	RT-NO-CONDITION-MSG,CH-BUTLER,STR?812
+	RSTACK	
+?CCL78:	BTST	MYCROFT-STATE,1 \?CCL80
+	PRINTR	"The butler politely declines to take the gift you have offered."
+?CCL80:	BTST	MYCROFT-STATE,2 \?CCL82
+	PRINTR	"The butler refuses to take the item you have offered and asks if you have come to speak with someone here in the club."
+?CCL82:	EQUAL?	GL-PRSO,TH-RING \?CCL84
+	BOR	MYCROFT-STATE,5 >MYCROFT-STATE
+	REMOVE	TH-RING
+	PRINT	K-BUTLER-ACCEPTS-MSG
+	CRLF	
+	CRLF	
+	PRINTI	"After a few moments, Mycroft Holmes appears. He looks very worried."
+	CRLF	
+	CRLF	
+	PRINTI	"""Sherlock warned me that you might come,"" he says. ""And the fact that you are here indicates that he is indeed in trouble. I believe that in order to solve this mystery, you are going to have to go to the Tower of London. It will be closed, but you can give the password '"
+	RANDOM	6 >WORD-NUM
+	SET	'PASSWORD-ID,WORD-NUM
+	EQUAL?	WORD-NUM,1 \?CCL87
+	PRINTI	"Boleyn"
+	JUMP	?CND85
+?CCL87:	EQUAL?	WORD-NUM,2 \?CCL89
+	PRINTI	"Cleves"
+	JUMP	?CND85
+?CCL89:	EQUAL?	WORD-NUM,3 \?CCL91
+	PRINTI	"Howard"
+	JUMP	?CND85
+?CCL91:	EQUAL?	WORD-NUM,4 \?CCL93
+	PRINTI	"Parr"
+	JUMP	?CND85
+?CCL93:	EQUAL?	WORD-NUM,5 \?CCL95
+	PRINTI	"Aragon"
+	JUMP	?CND85
+?CCL95:	EQUAL?	WORD-NUM,6 \?CND85
+	PRINTI	"Seymour"
+?CND85:	PRINTI	"' to the guard at the Byward Tower. He will let you in. Good luck."""
+	CRLF	
+	CRLF	
+	PRINTI	"Mycroft pauses before he goes and looks at you meditatively, as if trying to decide if he can put his faith in you to rescue his brother. After a moment he gives his head an unconscious nod, then turns around and disappears back into the club."
+	CRLF	
+	ICALL2	RT-UPDATE-SCORE,1
+	RTRUE	
+?CCL84:	PRINT	K-BUTLER-ACCEPTS-MSG
+	CRLF	
+	CRLF	
+	PRINTI	"The butler soon returns looking concerned."
+	CRLF	
+	CRLF	
+	PRINTR	"""I am sorry but Mr Mycroft Holmes says this will not do. Do you have anything else?"""
+
+
+	.FUNCT	RT-AC-LG-BANK-VAULT-DOOR,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-BANK-OF-ENGLAND \?CCL6
+	ICALL2	RT-OPEN-CLOSED-MSG,LG-BANK-VAULT-DOOR
+	CRLF	
+	CRLF	
+	PRINTR	"In the middle of the door you see a big shiny dial."
+?CCL6:	ICALL2	RT-OPEN-CLOSED-MSG,LG-BANK-VAULT-DOOR
+	CRLF	
+	CRLF	
+	PRINTR	"The inside of the door is shiny and flat."
+?CCL3:	EQUAL?	GL-PRSA,V?OPEN \?CCL8
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL11
+	PRINTR	"The vault door is already open."
+?CCL11:	FSET?	LG-BANK-VAULT-DOOR,FL-LOCKED \?CCL13
+	PRINTR	"The vault door is locked."
+?CCL13:	FSET	LG-BANK-VAULT-DOOR,FL-OPENED
+	PRINTR	"The vault door swings open."
+?CCL8:	EQUAL?	GL-PRSA,V?CLOSE \?CCL15
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED /?CCL18
+	PRINTR	"The vault door is already closed."
+?CCL18:	FCLEAR	LG-BANK-VAULT-DOOR,FL-OPENED
+	FSET	LG-BANK-VAULT-DOOR,FL-LOCKED
+	SET	'TH-DIAL-AUX1,0
+	SET	'TH-DIAL-AUX2,0
+	PRINTI	"The vault door swings closed and locks"
+	IN?	CH-PLAYER,RM-BANK-VAULT \?CCL21
+	PRINTI	" you in. Whoops!"
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+?CCL21:	PRINTR	"."
+?CCL15:	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \?CCL23
+	EQUAL?	GL-PLACE-CUR,RM-BANK-VAULT \?CCL26
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+?CCL26:	EQUAL?	GL-PLACE-CUR,RM-BANK-OF-ENGLAND \FALSE
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+?CCL23:	EQUAL?	GL-PRSA,V?LOOK-INSIDE \?CCL30
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL33
+	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	PRINTI	"row upon row of "
+	ICALL2	DPRINT,TH-BOXES
+	PRINTR	"."
+?CCL33:	ICALL2	RT-CTHEO-PRINT,LG-BANK-VAULT-DOOR
+	PRINTR	" is closed."
+?CCL30:	EQUAL?	GL-PRSA,V?UNLOCK \?CCL35
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL38
+	ICALL2	RT-CTHEO-PRINT,LG-BANK-VAULT-DOOR
+	PRINTR	" is already opened."
+?CCL38:	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+?CCL35:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-TOPAZ-MSG
+	EQUAL?	GL-PRSO,TH-TOPAZ \FALSE
+	EQUAL?	GL-PUPPY,CH-HOLMES \FALSE
+	CRLF	
+	PRINTI	"Holmes plucks you by the sleeve and reaches into the box. ""Observe, Watson."" He pulls out an almost invisible thread and examines it with glittering eyes. ""Muslin,"" he declares, more to himself than to you. ""Of Indian origin, and of the type used almost exclusively in the manufacture of turbans."" He looks at you in triumph. ""Our case is almost complete, Doctor. The Agra gems, the Trichinopoly cigar, and now this strand of muslin."""
+	CRLF	
+	CRLF	
+	PRINTR	"Holmes puts the strand into his pocket and explains. ""Moriarty - for reasons as yet unknown to us - has stolen the Crown Jewels. The Agra gems have somehow passed into his hands by way of this Indian accomplice, and he is using small pieces of it to lure me into a rendezvous with him. It's a dangerous game we play, Watson, but if we are to recover the regalia we have no choice."""
+
+	.ENDI
diff --git a/bank.zil b/bank.zil
new file mode 100644
index 0000000..b7c9797
--- /dev/null
+++ b/bank.zil
@@ -0,0 +1,972 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : BANK.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   28 Oct 1987 17:47:38  $"
+; "revs : $Revision:   1.89  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<CONSTANT K-GEM-BOX-NUM 600>	;"Box number containing the gem."
+
+<ROUTINE RT-KIDNAP ()
+	<MOVE ,CH-HOLMES ,RM-LAIR>
+	<MOVE ,TH-ROPE ,CH-HOLMES>
+	<MC-MAKE ,CH-HOLMES ,FL-LOCKED>
+	<SETG TH-ROPE-AUX1 ,CH-HOLMES>
+	<SET-MYCROFT-STATE CLEAR ,MYCROFT-LOCKED>
+	<SETG GL-PUPPY <>>
+	<TELL
+CR
+"Suddenly, someone grabs you from behind, pins your arms to your sides, and
+covers up your head. You struggle fiercely to get loose, but to no
+avail. Then you hear a voice shout, \"Let him go, we've got the other
+one.\"" CR CR
+
+"The person holding you knocks you on the head and flings you to the
+ground. You lose consciousness for a few moments, and when you awake, you
+are alone." CR CR
+
+"Sherlock Holmes has been kidnapped." CR>
+	<RTRUE>>
+
+<ROUTINE RT-WIGGINS-HELP-MSG ()
+	<TELL
+CTHE ,CH-WIGGINS " says, \"I saw it all, guv'nor. But it was over before I
+could lift a finger. Mr 'Olmes was a friend to me, 'e was. And I'd do
+anyfing to 'elp you get 'im back.\"" CR>
+	<SETG GL-PUPPY ,CH-WIGGINS>
+	<MC-UNMAKE ,CH-WIGGINS ,FL-NODESC>
+	<MC-UNMAKE ,CH-WIGGINS ,FL-BROKEN>
+	<SETG GL-PUPPY-MSG? <>>>
+
+<GLOBAL BOX-KEY-COLD? <>>
+
+<ROUTINE RT-STEAL-KEY ()
+	<COND (<F? ,BOX-KEY-COLD?>
+	       <SETG BOX-KEY-COLD? T>
+	       <MOVE ,TH-BOX-KEY ,CH-PLAYER>
+	       <TELL 
+CTHE ,CH-WIGGINS " casually strolls past the guard and says, \"Cor blimey.
+That bird isn't 'alf built, is she?\" While the guard's attention is diverted,
+Wiggins's hand flashes in and out of his pocket. Then just as casually as
+before, he strolls back to you, slips something into your hand, and whispers,
+\"Sorry I couldn't get everything, guv. I 'ope this is enough.\"" CR>
+	       <RT-UPDATE-SCORE <GETP ,TH-BOX-KEY ,P?VALUE>>
+	       <PUTP ,TH-BOX-KEY ,P?VALUE 0>)
+	      (T
+	       <TELL "\"Sorry, guv. 'E'll never go for it twice.\"" CR>)>
+	<RTRUE>>
+
+<OBJECT TH-INTNUM
+   (LOC GLOBAL-OBJECTS)
+   (DESC "number")
+   (FLAGS FL-NODESC FL-SEEN)
+   (SYNONYM INTNUM NUMBER)
+   (GENERIC RT-GN-INTNUM)
+   (ACTION RT-AC-TH-INTNUM)>
+
+<OBJECT TH-SAFETY-DEPOSIT-BOX
+   (LOC RM-BANK-VAULT)
+   (DESC "safety deposit box")
+   (FLAGS FL-NODESC FL-CONTAINER FL-OPENABLE FL-LOCKED FL-HAS-DESCFCN)
+   (SYNONYM INTNUM BOX)
+   (ADJECTIVE SAFETY DEPOSIT BOX NUMBER)
+   (SIZE 0 CAPACITY 10)
+   (GENERIC RT-GN-INTNUM)
+   (ACTION RT-AC-TH-SAFETY-DEPOSIT-BOX)>
+
+<OBJECT TH-RING
+   (LOC LOCAL-GLOBALS)
+   (DESC "ring")
+   (FLAGS FL-TAKEABLE FL-NOALL FL-CLOTHING)
+   (SYNONYM RING)
+   (ADJECTIVE SIGNET)
+   (VALUE 1)
+   (SIZE 1 MASS 1)
+   (ACTION RT-AC-TH-RING)>
+
+<OBJECT TH-SHILLING
+   (DESC "shilling")
+   (FLAGS FL-TAKEABLE FL-MONEY)
+   (SYNONYM SHILLING COIN)
+   (VALUE 0)
+   (SIZE 1 MASS 1)>
+
+<OBJECT TH-BOX-KEY
+   (LOC TH-GUARDS-POCKET)
+   (DESC "key")
+   (FLAGS FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM KEY)
+   (ADJECTIVE MASTER)
+   (SIZE 1)
+   (VALUE 1)
+   (ACTION RT-AC-TH-BOX-KEY)>
+
+<OBJECT TH-BOX-LOCK
+	(LOC RM-BANK-VAULT)
+	(DESC "lock")
+	(FLAGS FL-NODESC FL-CONTAINER FL-OPENED)
+	(SYNONYM INTNUM)
+	(ADJECTIVE LOCK NUMBER)
+	(GENERIC RT-GN-INTNUM)
+	(ACTION RT-AC-TH-BOX-LOCK)>
+
+<OBJECT TH-BOXES
+	(LOC RM-BANK-VAULT)
+	(DESC "safety deposit boxes")
+	(FLAGS FL-NODESC FL-PLURAL FL-OPENABLE FL-CONTAINER
+	       FL-HAS-DESCFCN)
+	(SYNONYM BOXES)
+	(ADJECTIVE SAFETY DEPOSIT)
+	(ACTION RT-AC-TH-BOXES)>
+
+<OBJECT TH-GUARDS-POCKET
+	(LOC CH-BANK-GUARD)
+	(DESC "guard's pocket")
+	(FLAGS FL-NODESC FL-CONTAINER FL-OPENED FL-TRYTAKE)
+	(SYNONYM POCKET)
+	(ADJECTIVE HIS GUARD\'S)
+	(SIZE 0 CAPACITY 10)
+	(ACTION RT-AC-TH-GUARDS-POCKET)>
+
+<ROUTINE RT-AC-TH-INTNUM ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-INTNUM" .CONTEXT>>
+	<COND (<MC-VERB? WAIT-FOR WAIT VERIFY>
+	       <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<NOT <MC-HERE? ,RM-BANK-VAULT>>
+	       <COND (<EQUAL? ,GL-P-NUMBER -1>
+		      <RT-CYOU-MSG "do" "does">
+		      <TELL "not see that here." CR>)
+		     (T
+		      <RT-CYOU-MSG "do" "does">
+		      <TELL "not need to use a number here." CR>)>)>>
+
+<ROUTINE RT-AC-TH-RING ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-RING" .CONTEXT>>
+	<COND (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? WEAR>
+		      <TELL "It's the wrong size." CR>)>)>>
+
+<ROUTINE RT-AC-TH-BOX-KEY ("OPTIONAL" (CONTEXT <>))
+  <DEBUGGING? <RT-DEBUG-TH-AC "TH-BOX-KEY" .CONTEXT>>
+  <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	 <COND (<OR <IN? ,TH-BOX-KEY ,TH-GUARDS-POCKET>
+		    <IN? ,TH-BOX-KEY ,CH-BANK-GUARD>>
+		<RT-CYOU-MSG>
+		<TELL "can't see it. The guard has it." CR>
+		<RTRUE>)
+	       (T
+		<TELL
+CTHE ,TH-BOX-KEY " has the word \"Master\" written on it." CR>)>)
+	(<MC-THIS-PRSI?>
+	 <RFALSE>)
+	(<MC-THIS-PRSO?>
+	 <COND (<MC-VERB? TURN>
+		<COND (<IN? ,TH-BOX-KEY ,TH-BOX-LOCK>
+		       <COND (<EQUAL? ,TH-BOX-KEY-AUX1 ,K-GEM-BOX-NUM>
+			      <COND (<MC-IS? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+				     <TELL "The box is already open." CR>)
+				    (T
+				     <SETG TH-SAFETY-DEPOSIT-BOX-AUX1 ,TH-BOX-KEY-AUX1>
+				     <RT-CYOU-MSG "open" "opens">
+				     <TELL "the box with the key.">
+				     <COND (<FIRST? ,TH-SAFETY-DEPOSIT-BOX>
+					    <TELL " Inside you see ">
+					    <RT-PRINT-CONTENTS-2 ,TH-SAFETY-DEPOSIT-BOX>
+					    <TELL ".">)>
+				     <MC-MAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+				     <MC-UNMAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-LOCKED>
+				     <CRLF>)>)
+			     (T
+			      <RT-CYOU-MSG "open" "opens">
+			      <TELL ,K-NOTHING-INSIDE-MSG>
+			      <RT-YOU-MSG "lock" "locks">
+			      <TELL "it back up again." CR>)>)>)
+	       (<MC-VERB? READ>
+		<COND (<OR <IN? ,TH-BOX-KEY ,TH-GUARDS-POCKET>
+			   <IN? ,TH-BOX-KEY ,CH-BANK-GUARD>>
+		       <RT-CYOU-MSG>
+		       <TELL "can't see it. The guard has it." CR>)
+		      (T
+		       <TELL "It says, \Master.\"" CR>)>)>)>>
+
+<ROUTINE RT-AC-TH-BOX-LOCK ("OPTIONAL" (CONTEXT <>) "AUX" NUM)
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-BOX-LOCK" .CONTEXT>>
+	<COND (<EQUAL? ,GL-P-NUMBER -1>
+	       <COND (<ZERO? ,TH-BOX-LOCK-AUX1>
+		      <TELL ,K-SPECIFY-MSG "lock by number." CR>
+		      <RTRUE>)>)
+	      (<OR <L? ,GL-P-NUMBER 1>
+		   <G? ,GL-P-NUMBER 999>>
+	       <TELL "There is no lock number " N ,GL-P-NUMBER "." CR>
+	       <RTRUE>)
+	      (T
+	       <SETG TH-BOX-LOCK-AUX1 ,GL-P-NUMBER>)>
+	<SET NUM ,TH-BOX-LOCK-AUX1>
+	<COND (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? PUT>
+		      <COND (<MC-PRSO? ,TH-BOX-KEY>
+			     <MOVE ,TH-BOX-KEY ,TH-BOX-LOCK>
+			     <SETG TH-BOX-KEY-AUX1 ,TH-BOX-LOCK-AUX1>
+			     <TELL "The key fits nicely." CR>)
+			    (T
+			     <RT-CANT-PUT-IN-ON-MSG>)>)
+		     (<MC-VERB? TAKE>
+		      <COND (<NOT <MC-PRSO? ,TH-BOX-KEY>>
+			     <RFALSE>)
+			    (<IN? ,TH-BOX-KEY ,TH-BOX-LOCK>
+			     <MOVE ,TH-BOX-KEY ,GL-WINNER>
+			     <SETG TH-BOX-KEY-AUX1 0>
+			     <TELL "The key comes out smoothly." CR>)>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-SAFETY-DEPOSIT-BOX ("OPTIONAL" (CONTEXT <>) "AUX" NUM)
+      <DEBUGGING? <RT-DEBUG-TH-AC "TH-SAFETY-DEPOSIT-BOX" .CONTEXT>>
+      <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	     <SET NUM ,TH-SAFETY-DEPOSIT-BOX-AUX1>
+	     <TELL "It looks the same as all the other boxes." CR>
+	     <RTRUE>)
+	    (<EQUAL? ,GL-P-NUMBER -1>
+	     <COND (<ZERO? ,TH-SAFETY-DEPOSIT-BOX-AUX1>
+		    <TELL ,K-SPECIFY-MSG "box by number." CR>
+		    <RTRUE>)
+		   (<MC-IS? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+		    <SETG TH-SAFETY-DEPOSIT-BOX-AUX1 600>)>)
+	    (<OR <L? ,GL-P-NUMBER 1>
+		 <G? ,GL-P-NUMBER 999>>
+	     <TELL "There is no box number " N ,GL-P-NUMBER "." CR>
+	     <RTRUE>)
+	    (T
+	     <SETG TH-SAFETY-DEPOSIT-BOX-AUX1 ,GL-P-NUMBER>)>
+      <SET NUM ,TH-SAFETY-DEPOSIT-BOX-AUX1>
+      <COND (<MC-THIS-PRSI?>
+	     <COND (<MC-VERB? TAKE PUT FILL EMPTY-INTO POUR-FROM>
+		    <COND (<OR <NOT <EQUAL? .NUM ,K-GEM-BOX-NUM>>
+			       <MC-ISNOT? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>>
+			   <TELL CTHEI " is closed." CR>)>)>)
+	    (<MC-THIS-PRSO?>
+	     <COND (<MC-VERB? UNLOCK OPEN OPEN-WITH>
+		    <COND (<NOT <MC-PRSI? <> ,TH-BOX-KEY>>
+			   <RT-CYOU-MSG>
+			   <TELL "can't " VW " " THEO " with " THEI "." CR>)
+			  (<AND <NOT <IN? ,TH-BOX-KEY ,GL-WINNER>>
+				<NOT <EQUAL? .NUM ,TH-BOX-KEY-AUX1>>>
+			   <RT-CYOU-MSG "do" "does">
+			   <TELL "not have the key." CR>)
+			  (<EQUAL? .NUM ,K-GEM-BOX-NUM>
+			   <COND (<MC-IS? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+				  <TELL "It is already open." CR>)
+				 (T
+				  <RT-CYOU-MSG "open" "opens">
+				  <TELL "the box with the key.">
+				  <COND (<FIRST? ,TH-SAFETY-DEPOSIT-BOX>
+					 <TELL " Inside you see ">
+					 <RT-PRINT-CONTENTS-2 ,TH-SAFETY-DEPOSIT-BOX>
+					 <TELL ".">)>
+				  <MC-MAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+				  <MC-UNMAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-LOCKED>
+				  <CRLF>)>)
+			  (T
+			   <RT-CYOU-MSG "open" "opens">
+			   <TELL ,K-NOTHING-INSIDE-MSG>
+			   <RT-YOU-MSG "lock" "locks">
+			   <TELL "it back up again." CR>)>
+		    <RTRUE>)
+		   (<MC-VERB? LOCK CLOSE>
+		    <COND (<EQUAL? .NUM ,K-GEM-BOX-NUM>
+			   <COND (<AND <NOT <IN? ,TH-BOX-KEY ,GL-WINNER>>
+				       <NOT <EQUAL? .NUM ,TH-BOX-KEY-AUX1>>>
+				  <RT-CYOU-MSG "do" "does">
+				  <TELL "not have the key." CR>)
+				 (<MC-ISNOT? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+				  <TELL ,K-CLOSED-AND-LOCKED-MSG CR>)
+				 (T
+				  <RT-CYOU-MSG "close and lock"
+					       "closes and locks">
+				  <TELL "the box with the key.">
+				  <MC-UNMAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>
+				  <MC-MAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-LOCKED>
+				  <CRLF>)>)
+			  (T
+			   <TELL ,K-CLOSED-AND-LOCKED-MSG CR>)>
+		    <RTRUE>)
+		   (<MC-VERB? READ>
+		    <TELL N ,TH-SAFETY-DEPOSIT-BOX-AUX1 CR>)
+		   (<MC-VERB? LOOK-INSIDE SEARCH>
+		    <COND (<OR <NOT <EQUAL? .NUM ,K-GEM-BOX-NUM>>
+			       <MC-ISNOT? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>>
+			   <TELL CTHEO " is closed." CR>)
+			  (T
+			   <TELL "Inside " THEO>
+			   <RT-YOU-MSG "see" "sees">
+			   <RT-PRINT-CONTENTS-2 ,TH-SAFETY-DEPOSIT-BOX>
+			   <TELL "." CR>)>)
+		   (<MC-VERB? EMPTY REACH-IN>
+		    <COND (<OR <NOT <EQUAL? .NUM ,K-GEM-BOX-NUM>>
+			       <MC-ISNOT? ,TH-SAFETY-DEPOSIT-BOX ,FL-OPENED>>
+			   <TELL CTHEO " is closed." CR>)>)
+		   (<MC-VERB? SHOOT>
+		    <TELL ,K-RICOCHET-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-DIAL ("OPTIONAL" (CONTEXT <>) "AUX" (LOCK? 0) WHO PTS)
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-DIAL" .CONTEXT>>
+	<COND (<MC-T? .CONTEXT> <RFALSE>)
+	      (<ZERO? ,TH-DIAL-AUX1>
+	       <SETG TH-DIAL-AUX1 ,TH-RIGHT>)>
+	<COND (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-VERB? TUNE-TO>
+			   <NOT <MC-PRSI? <> TH-LEFT TH-RIGHT>>>
+		      <RT-CYOU-MSG>
+		      <TELL "can't " VW " " THE ,TH-DIAL " to " THEI "." CR>)
+		     (<MC-VERB? TUNE-TO SPIN TURN>
+		      <COND (<MC-PRSI? <> TH-LEFT TH-RIGHT TH-HANDS>
+			     <COND (<MC-ISNOT? ,TH-STETHOSCOPE ,FL-WORN>
+				    <SET LOCK? 1>
+				    <TELL "The dial turns smoothly." CR>)
+				   (<NOT <MC-LISTEN? ,TH-DIAL
+						     ,LG-BANK-VAULT-DOOR
+						     ,RM-BANK-VAULT>>
+				    <SET LOCK? 1>
+				    <TELL "The dial turns quietly." CR>)
+				   (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+				    <SET LOCK? 1>
+				    <TELL "The dial turns with a series of muffled clicks." CR>)
+				   (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+				    <SET LOCK? 2>
+				    <TELL "Clunk." CR>)
+				   (<NOT <EQUAL? ,TH-DIAL-AUX1 ,GL-PRSI>>
+				    <SET LOCK? 1>
+				    <TELL "Clunk." CR>)
+				   (T
+				    <SETG TH-DIAL-AUX2 <+ ,TH-DIAL-AUX2 1>>)>
+			     <COND (<EQUAL? .LOCK? 1> T)
+				   (<EQUAL? ,TH-DIAL-AUX2 1>
+				    <SETG TH-DIAL-AUX1 ,TH-RIGHT>
+				    <TELL "Whirr." CR>)
+				   (<EQUAL? ,TH-DIAL-AUX2 2>
+				    <SETG TH-DIAL-AUX1 ,TH-LEFT>
+				    <TELL "Click." CR>)
+				   (<EQUAL? ,TH-DIAL-AUX2 3>
+				    <SETG TH-DIAL-AUX1 ,TH-RIGHT>
+				    <TELL "Click." CR>)
+				   (<EQUAL? ,TH-DIAL-AUX2 4>
+				    <SETG TH-DIAL-AUX1 ,TH-RIGHT>
+				    <TELL "Whirr." CR>)
+				   (<EQUAL? ,TH-DIAL-AUX2 5>
+				    <SET LOCK? 2>
+				    <TELL "Click. Kerchunk. The vault door swings open." CR>
+				    <SET WHO <RT-WHO-SAYS?>>
+				    <COND (<EQUAL? .WHO ,CH-HOLMES>
+					   <TELL CR
+"Holmes says, \"Splendid, Watson. The net is drawing ever tighter
+around our quarry.\"" CR>)>
+				    <SET PTS <GETP ,LG-BANK-VAULT-DOOR
+						   ,P?VALUE>>
+				    <COND (<NOT <ZERO? .PTS>>
+					   <RT-UPDATE-SCORE .PTS>
+					   <PUTP ,LG-BANK-VAULT-DOOR
+						 ,P?VALUE 0>)>)>)
+			    (T
+			     <RT-IMPOSSIBLE-MSG>)>
+		      <COND (<EQUAL? .LOCK? 1>
+			     <SETG TH-DIAL-AUX1 0>
+			     <SETG TH-DIAL-AUX2 0>)
+			    (<EQUAL? .LOCK? 2>
+			     <SETG TH-DIAL-AUX1 -1>
+			     <SETG TH-DIAL-AUX2 -1>
+			     <MC-UNMAKE ,LG-BANK-VAULT-DOOR ,FL-LOCKED>
+			     <MC-MAKE ,LG-BANK-VAULT-DOOR ,FL-OPENED>)>
+		      <RTRUE>)
+		     (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-BOXES ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BOXES">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"There are rows and rows of safety deposit boxes, all alike, numbered from 1
+to 999." CR>)
+	      (<MC-VERB? UNLOCK LOCK OPEN CLOSE READ>
+	       <TELL ,K-SPECIFY-MSG "box by number." CR>
+	       <RFATAL>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-GUARDS-POCKET ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-GUARDS-POCKET">>
+	<COND (<MC-VERB? LOOK-INSIDE EXAMINE SEARCH>
+	       <RT-CYOU-MSG>
+	       <TELL "can't see inside the guard's pocket." CR>
+	       <RTRUE>)
+	      (<MC-VERB? PUT>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<MC-VERB? TAKE EMPTY REACH-IN STEAL>
+	       <TELL
+CTHE ,CH-BANK-GUARD " slaps the offending hand away and says, \"Keep your
+hands to yourself, mate.\"" CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-CH-BANK-GUARD ("OPTIONAL" (CONTEXT <>) "AUX" GEMCNT OBJ)
+  <DEBUGGING? <RT-DEBUG-CH-AC "CH-BANK-GUARD" .CONTEXT>>
+  <RT-THIS-IS-IT ,CH-BANK-GUARD>
+  <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	 <TELL
+CTHE ,CH-BANK-GUARD " is lounging against the wall, idly jangling some keys
+in his pocket and waiting for girls to walk by." CR>
+	 <RTRUE>)
+	(<RT-TELL-ABOUT? ,CH-BANK-GUARD>
+	 <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			 ,GL-PRSO)
+			(T
+			 ,GL-PRSI)>>
+	 <TELL ,K-GUARD-IGNORES-MSG CR>)
+	(<RT-WHO-WHAT-FAIL?>
+	 <RFATAL>)
+	(<MC-THIS-WINNER?>
+	 <COND (<MC-VERB? GIVE>
+		<COND (<MC-PRSO? ,TH-BOX-KEY ,TH-GUARDS-KEYS>
+		       <TELL ,K-SORRY-MATE-MSG CR>)
+		      (<MC-PRSO? ,TH-OPAL ,TH-RUBY ,TH-SAPPHIRE ,TH-EMERALD>
+		       <TELL ,K-ILL-HOLD-IT-MSG CR>)>)
+	       (T
+		<TELL ,K-GUARD-IGNORES-MSG CR>)>)
+	(<MC-THIS-PRSI?>
+	 <COND (<MC-VERB? GIVE>
+		<COND (<MC-PRSO? ,TH-OPAL ,TH-RUBY ,TH-SAPPHIRE ,TH-EMERALD>
+		       <MOVE ,GL-PRSO ,CH-BANK-GUARD>
+		       <MC-MAKE ,GL-PRSO ,FL-NOALL>
+		       <SET GEMCNT ,CH-BANK-GUARD-AUX1>
+		       <INC GEMCNT>
+		       <SETG CH-BANK-GUARD-AUX1 .GEMCNT>
+		       <COND (<EQUAL? .GEMCNT 1>
+			      ;<COND (<MC-F? <BAND ,CH-HOLMES-AUX1
+						  ,K-HOLMES-GEM?>>
+				     <SETG CH-HOLMES-AUX1 <BOR ,CH-HOLMES-AUX1
+							       ,K-HOLMES-GEM?>>
+				     <MOVE ,TH-RING ,CH-PLAYER>
+				     <MC-MAKE ,TH-RING ,FL-SEEN>
+				     <MC-MAKE ,TH-RING ,FL-TOUCHED>
+				     <MC-UNMAKE ,TH-RING ,FL-NODESC>
+				     <TELL
+"Holmes intercepts the gem on it's way to the guard. He">
+				     <RT-HOLMES-SAYS-AGRA-MSG>
+				     <RT-UPDATE-SCORE <GETP ,TH-RING ,P?VALUE>>
+				     <PUTP ,TH-RING ,P?VALUE 0>)>
+			      <TELL
+"\"Now this is very nice. But I think I would need more than just one to make
+letting you in worth my while. I'll hold this for you until you come back.\""
+CR>)
+			     (<EQUAL? .GEMCNT 2>
+			      <TELL
+"\"This is even more beautiful than the other one. But it isn't worth taking
+the risk for only two of them.\"" CR>)
+			     (<EQUAL? .GEMCNT 3>
+			      <TELL "\"One more and you're in.\"" CR>)
+			     (<EQUAL? .GEMCNT 4>
+			      <TELL
+CTHE ,CH-BANK-GUARD " looks furtively up and down the street. Then he
+whispers to you out of the side of his mouth, \"Good enough. Go on in.\"" CR>
+			      <RT-UPDATE-SCORE 3>)>
+		       <RTRUE>)
+		      (<MC-PRSO? ,TH-BOX-KEY>
+		       <MOVE ,TH-BOX-KEY ,TH-GUARDS-POCKET>
+		       <TELL
+CTHE ,CH-BANK-GUARD " looks surprised and says, \"Ta, mate. I didn't know
+I dropped it. I'll have to keep it in a safer place.\" He puts the key
+into one of his inside pockets." CR>)
+		      (<MC-PRSO? ,TH-RED-GLASS>
+		       <TELL
+CTHE ,CH-BANK-GUARD " looks at it carefully and then hands it back
+to you, saying, \"For a moment there, I thought this was a ruby. But
+it's only a piece of glass.\"" CR CR ,K-MORE-VALUABLE-MSG CR>)
+		      (T
+		       <TELL
+CTHE ,CH-BANK-GUARD " examines what you are offering and then declines
+your bribe." CR CR ,K-MORE-VALUABLE-MSG CR>)>)
+	       (<MC-VERB? TAKE>
+		<COND (<MC-PRSO? ,TH-OPAL ,TH-RUBY ,TH-SAPPHIRE ,TH-EMERALD>
+		       <TELL ,K-ILL-HOLD-IT-MSG CR>)
+		      (<MC-PRSO? ,TH-BOX-KEY ,TH-GUARDS-KEYS>
+		       <TELL ,K-SORRY-MATE-MSG CR>)
+		      (<MC-PRSO? CH-BANK-GUARD>
+		       <TELL CTHE ,CH-BANK-GUARD ,K-MUST-WEIGH-MSG CR>)>)
+	       (<MC-VERB? SHOW>
+		<COND (<MC-PRSO? ,TH-OPAL ,TH-RUBY ,TH-SAPPHIRE ,TH-EMERALD
+				 ,TH-RED-GLASS>
+		       <TELL "\"My, what a loverly gem!\"" CR>)
+		      (<MC-PRSO? ,TH-BOX-KEY>
+		       <MOVE ,TH-BOX-KEY ,TH-GUARDS-POCKET>
+		       <TELL
+CTHE ,CH-BANK-GUARD " looks surprised and says, \"Oh! Thank you. I must have
+dropped it. I'll be sure to keep it in a safer place.\" He takes the key and
+puts it in one of his inside pockets." CR>)>)>)
+	(<MC-THIS-PRSO?>
+	 <COND (<MC-VERB? TAKE>
+		<COND (<MC-PRSI? <>>
+		       <TELL CTHE ,CH-BANK-GUARD ,K-MUST-WEIGH-MSG CR>)>)
+	       (<MC-VERB? ASK-FOR>
+		<COND (<MC-PRSI? ,TH-BOX-KEY ,TH-GUARDS-KEYS>
+		       <TELL ,K-SORRY-MATE-MSG CR>)
+		      (<MC-PRSI? ,TH-OPAL ,TH-RUBY ,TH-SAPPHIRE ,TH-EMERALD>
+		       <TELL ,K-ILL-HOLD-IT-MSG CR>)>)>)>>
+
+<GLOBAL WIGGINS-COLD? <>>
+
+<ROUTINE RT-AC-CH-WIGGINS ("OPTIONAL" (CONTEXT <>) OBJ)
+  <DEBUGGING? <RT-DEBUG-CH-AC "CH-WIGGINS" .CONTEXT>>
+  <RT-THIS-IS-IT ,CH-WIGGINS>
+  <COND (<AND <MC-THIS-WINNER?>
+	      <FSET? ,GL-WINNER ,FL-ASLEEP>>
+	 <RT-NO-CONDITION-MSG ,GL-WINNER>
+	 <RTRUE>)
+	(<AND <==? .CONTEXT ,K-M-CONT>
+	      <FSET? ,CH-WIGGINS ,FL-ASLEEP>>
+	 <TELL "It's bad enough that you wasted the etherium; using it to
+steal from your friends is quite unsporting. ">
+	 <RTRUE>)
+	(<==? .CONTEXT ,K-M-DESCFCN>
+	 <COND (<FSET? ,CH-WIGGINS ,FL-ASLEEP>
+		<TELL "Wiggins is still suffering from the effects of the
+etherium gas." CR>
+		<RTRUE>)
+	       (<MC-IS? ,CH-WIGGINS ,FL-BROKEN>
+		<MC-UNMAKE ,CH-WIGGINS ,FL-BROKEN>
+		<MC-UNMAKE ,CH-WIGGINS ,FL-NODESC>
+		<MC-MAKE ,CH-WIGGINS ,FL-SEEN>
+		<TELL
+"After staring at his dirty face for a few moments, you suddenly
+recognize the boy. He is Wiggins, the head of the Baker Street
+Irregulars, which is Holmes's unofficial army of street urchins
+who \"go everywhere and do everything.\"" CR>)>
+	 <TELL <RT-PICK-NEXT ,GL-WIGGINS-DESC-TXT>>
+	 <COND (<IN? ,CH-WIGGINS ,TH-BOAT>
+		<TELL ,K-ENJOYING-RIDE-MSG>)
+	       (<OR <IN? ,CH-WIGGINS ,TH-HANSOM-CAB>
+		    <IN? ,CH-WIGGINS ,TH-GROWLER-CAB>>
+		<TELL ,K-FIDGETING-MSG>)
+	       (T
+		<TELL <RT-PICK-NEXT ,GL-WIGGINS-LOOK-TXT>>)>
+	 <TELL "." CR>
+	 <RETURN 2>)
+	(<RT-TELL-ABOUT? ,CH-WIGGINS>
+	 <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			 ,GL-PRSO)
+			(T
+			 ,GL-PRSI)>>
+	 <COND (<MC-IS? ,CH-WIGGINS ,FL-ASLEEP>
+		<RT-NO-CONDITION-MSG ,CH-WIGGINS>)
+	       (<AND <MC-VERB? WHO>
+		     <EQUAL? .OBJ ,CH-WIGGINS>>
+		<TELL
+		 "\"I'm Wiggins, 'ead o' the Baker Street Irregulars.\""
+		 CR>)
+	       (<EQUAL? .OBJ ,CH-HOLMES>
+		<TELL "\"E's a good man, guv'nor. Best as ever was.\"" CR>)
+	       (T
+		<TELL "\"Beats me. What do you think?\"" CR>)>)
+	(<RT-WHO-WHAT-FAIL?>
+	 <RFATAL>)
+	(<MC-THIS-WINNER?>
+	 <COND (<MC-VERB? HELLO>
+		<TELL "\"'Ello.\"" CR>)
+	       (<MC-VERB? GOODBYE>
+		<TELL "\"Ta ta.\"" CR>)
+	       (<MC-VERB? THANK>
+		<TELL "\"Anytime, mate.\"" CR>)
+	       (<MC-VERB? WHERE>
+		<TELL "\"Beats me. What do you think?\"" CR>)
+	       (<ZERO? ,CH-WIGGINS-AUX1>
+		<TELL CTHE ,CH-WIGGINS ,K-WOUNDED-PRIDE-MSG CR>)
+	       (<MC-VERB? ENTER>
+		<COND (<AND <MC-PRSO? ,TH-BUTT-OF-MALMSEY>
+			    <NOT <FSET? ,GL-PRSO ,FL-BROKEN>>>
+		       ;<COND (<IN? ,CH-WIGGINS ,TH-BUTT-OF-MALMSEY>
+			      <TELL "He's already up to his ears in malmsey."
+				    CR>)
+			     (T)>
+		       <SETG WIGGINS-COLD? T>
+		       <TELL
+"Wiggins dutifully climbs into the full butt of malmsey and has a
+nice bath and gets out again." CR>)
+		      (<MC-PRSO? ,TH-BUTT-OF-MALMSEY>
+		       <COND ;(<IN? ,CH-WIGGINS ,TH-BUTT-OF-MALMSEY>
+			      <TELL "He's already in it." CR>)
+			     (<IN? ,TH-GARNET ,TH-BUTT-OF-MALMSEY>
+			      <MOVE ,TH-GARNET ,CH-PLAYER>
+			      <RT-THIS-IS-IT ,TH-GARNET>
+			      <SETG WIGGINS-COLD? T>
+			      <MC-MAKE ,TH-GARNET ,FL-SEEN>
+			      <MC-MAKE ,TH-GARNET ,FL-TOUCHED>
+			      <MC-UNMAKE ,TH-GARNET ,FL-NODESC>
+			      <TELL
+"Wiggins climbs into the empty butt of malmsey, gets the gem, gets
+out and gives it to you." CR>
+			      <RT-UPDATE-SCORE <GETP ,TH-GARNET ,P?VALUE>>
+			      <PUTP ,TH-GARNET ,P?VALUE 0>
+			      <RTRUE>)
+			     (T
+			      <TELL
+			       "Wiggins says, \"Once was enough, thank you.\""
+			       CR>)>)
+		      (<MC-PRSO? ,TH-HANSOM-CAB ,TH-GROWLER-CAB ,TH-BOAT>
+		       <COND (<IN? ,CH-HOLMES ,RM-LAIR>
+			      <COND (<IN? ,CH-PLAYER ,GL-PRSO>
+				     <TELL "Wiggins climbs in next to you."
+					   CR>
+				     <MOVE ,CH-WIGGINS ,GL-PRSO>)
+				    (T
+				     <TELL ,K-AFTER-YOU-MSG CR>)>
+			      <SETG GL-PUPPY ,CH-WIGGINS>
+			      <MC-UNMAKE ,CH-WIGGINS ,FL-NODESC>
+			      <MC-UNMAKE ,CH-WIGGINS ,FL-BROKEN>)
+			     (T
+			      <TELL ,K-CANT-LEAVE-MSG CR>)>)
+		      (<MC-PRSO? LG-WATER>
+		       <TELL
+"\"I ain't no bleedin' mermaid. Besides, bathing ain't 'ealthy.\"" CR>)>)
+	       (<MC-VERB? TAKE STEAL>
+		<COND (<AND <MC-PRSO? ,TH-GARNET>
+			    <IN? ,TH-GARNET ,TH-BUTT-OF-MALMSEY>>
+		       <MOVE ,TH-GARNET ,CH-PLAYER>
+		       <RT-THIS-IS-IT ,TH-GARNET>
+		       <SETG WIGGINS-COLD? T>
+		       <MC-MAKE ,TH-GARNET ,FL-SEEN>
+		       <MC-MAKE ,TH-GARNET ,FL-TOUCHED>
+		       <MC-UNMAKE ,TH-GARNET ,FL-NODESC>
+		       <TELL CTHE ,CH-WIGGINS>
+		       <COND (<NOT <IN? ,CH-WIGGINS ,TH-BUTT-OF-MALMSEY>>
+			      <TELL " climbs into the empty butt of malsey,">)>
+		       <TELL " gets the gem, gets out, and gives it to you."
+			     CR>
+		       <RT-UPDATE-SCORE <GETP ,TH-GARNET ,P?VALUE>>
+		       <PUTP ,TH-GARNET ,P?VALUE 0>
+		       <RTRUE>)
+		      (<OR <MC-PRSO? ,TH-GUARDS-POCKET ,TH-BOX-KEY
+				     ,TH-GUARDS-KEYS>
+			   <MC-PRSI? ,TH-GUARDS-POCKET ,CH-BANK-GUARD>>
+		       <RT-STEAL-KEY>
+		       <RTRUE>)
+		      (<MC-VERB? STEAL>
+		       <TELL
+"\"I would if I could, guv. But I don't see 'ow to do it.\"" CR>)>)
+	       (<AND <MC-VERB? ROB>
+		     <MC-PRSO? ,CH-BANK-GUARD>>
+		<RT-STEAL-KEY>)
+	       (<MC-VERB? EMPTY REACH-IN SEARCH>
+		<COND (<OR <MC-PRSO? ,TH-GUARDS-POCKET ,CH-BANK-GUARD>
+			   <MC-PRSI? ,TH-GUARDS-POCKET ,CH-BANK-GUARD>>
+		       <RT-STEAL-KEY>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"\"I would if I could, guv. But I don't see 'ow to do it.\"" CR>)>)
+	       (<MC-VERB? FOLLOW>
+		<COND (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+		       <COND (<IN? ,CH-HOLMES ,RM-LAIR>
+			      <TELL "\"After you, guv.\"" CR>
+			      <SETG GL-PUPPY ,CH-WIGGINS>
+			      <MC-UNMAKE ,CH-WIGGINS ,FL-NODESC>
+			      <MC-UNMAKE ,CH-WIGGINS ,FL-BROKEN>)
+			     (T
+			      <TELL ,K-CANT-LEAVE-MSG CR>)>)
+		      (T
+		       <TELL "\"I'm not a bleedin' bloodhound.\"" CR>)>)
+	       (<MC-VERB? WAIT>
+		<COND (<EQUAL? ,GL-PUPPY ,CH-WIGGINS>
+		       <SETG GL-PUPPY <>>
+		       <TELL "\"Right. I'm glued to this spot.\"" CR>)
+		      (T
+		       <TELL "\"Whatever you say, guv.\"" CR>)>)
+	       (<MC-VERB? EXIT>
+		;<COND (<EQUAL? ,GL-PUPPY ,CH-WIGGINS>
+		       <SETG GL-PUPPY <>>
+		       <TELL ,K-CAN-LEAVE-MSG CR>)
+		      (T
+		       <TELL ,K-CAN-LEAVE-MSG CR>)>
+		<TELL ,K-AFTER-YOU-MSG CR>)
+	       (<AND <MC-VERB? PULL>
+		     <MC-PRSO? ,TH-PORTCULLIS-CHAIN>>
+		<TELL "\"I can't reach it, guv.\"" CR>)
+	       (T
+		<TELL "Wiggins looks at you and scratches his head." CR>
+		<RTRUE>)>)
+	(<MC-THIS-PRSI?>
+	 <COND (<MC-VERB? GIVE>
+		<COND (<MC-IS? ,CH-WIGGINS ,FL-ASLEEP>
+		       <RT-NO-CONDITION-MSG ,CH-WIGGINS "accept your offer">)
+		      (<MC-PRSO? ,TH-SHILLING>
+		       <MOVE ,TH-SHILLING ,CH-WIGGINS>
+		       <MC-MAKE ,TH-SHILLING ,FL-NOALL>
+		       <SETG CH-WIGGINS-AUX1 1>
+		       <COND (<F? ,GL-P-CONT>
+			      <SETG WINNER-IS-WIGGINS T>)>
+		       <SETG GL-P-QCONTEXT-TH ,CH-WIGGINS>
+		       <SETG GL-P-QCONTEXT-RM ,GL-PLACE-CUR>
+		       <TELL
+"Wiggins looks at " THE ,TH-SHILLING " and then at you. After a few
+moments he stuffs it deep into the recesses of his clothing and says, \"I'm
+all yours. Wot's the plan?\"" CR>)
+		      (<MC-PRSO? ,TH-EMERALD
+				 ,TH-SAPPHIRE
+				 ,TH-RUBY
+				 ,TH-OPAL
+				 ,TH-TOPAZ
+				 ,TH-GARNET
+				 ,TH-POUND-NOTE
+				 ,TH-SIXPENCE>
+		       <TELL "Wiggins glances at your offer and"
+			     ,K-WOUNDED-PRIDE-MSG CR>)
+		      (T
+		       <TELL
+"Wiggins looks at the item you have handed him and then returns it
+to you. Clearly it was not of interest to him." CR>)>
+		<RTRUE>)
+	       (<AND <MC-VERB? TAKE>
+		     <MC-PRSO? ,TH-SHILLING>>
+		<COND (<MC-IS? ,CH-WIGGINS ,FL-ASLEEP>
+		       <TELL "He must have hidden it very well. ">
+		       <RT-CYOU-MSG>
+		       <TELL "can't find it." CR>)
+		      (T
+		       <TELL "\"Sorry, guv'nor. A deal's a deal.\"" CR>)>)>)
+	(<MC-THIS-PRSO?>
+	 <COND (<MC-VERB? SMELL>
+		<COND (<T? ,WIGGINS-COLD?>
+		       <TELL ,K-EAU-DE-MSG CR>)
+		      (T
+		       <TELL "Yuck. Eau de urchin." CR>)>)>)>>
+
+<ROUTINE RT-AC-CH-BUTLER ("OPTIONAL" (CONTEXT <>) "AUX" WORD-NUM)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-BUTLER" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-BUTLER>
+	<COND (<MC-THIS-WINNER?>
+	       <COND (<MC-IS? ,CH-BUTLER ,FL-ASLEEP>
+		      <RT-NO-CONDITION-MSG ,CH-BUTLER>)
+		     (<AND <MC-VERB? TAKE FIND>
+			   <RT-IDENTIFY-EVENT? ,W?MYCROFT ,GL-PRSO>>
+		      <SETG GL-WINNER ,CH-PLAYER>
+		      <RT-PERFORM ,V?ASK-FOR ,CH-BUTLER ,TH-EVENT>
+		      <RTRUE>)
+		     (<MC-VERB? HELLO>
+		      <TELL "\"">
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+			     <TELL "How do you do?">)
+			    (<EQUAL? <RT-TIME-OF-DAY> 1 2>
+			     <TELL "Good day.">)
+			    (<EQUAL? <RT-TIME-OF-DAY> 3>
+			     <TELL "Good evening.">)>
+		      <TELL "\"" CR>)
+		     (<MC-VERB? GOODBYE>
+		      <TELL "\"">
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+			     <TELL "Good night">)
+			    (<EQUAL? <RT-TIME-OF-DAY> 1 2>
+			     <TELL "Good day">)
+			    (<EQUAL? <RT-TIME-OF-DAY> 3>
+			     <TELL "Good evening">)>
+		      <TELL ".\"" CR>)
+		     (<MC-VERB? THANK>
+		      <TELL "\"You're quite welcome.\"" CR>)
+		     (<AND <MC-VERB? WHO>
+			   <MC-PRSO? ,CH-BUTLER>>
+		      <TELL
+"\"I am one of the staff of this fine establishment.\"" CR>)
+		     (<MC-VERB? WHO WHAT WHERE>
+		      <TELL
+"\"I'm far too discreet to respond.\"" CR>)
+		     (<MC-VERB? YES NO>
+		      <TELL
+CTHE ,CH-BUTLER " looks at you expectantly." CR>)
+		     (<MC-VERB? RESCUE>
+		      <TELL "\"What can I do for you?\"" CR>)
+		     (T
+		      <TELL
+"\"I'm afraid I am unable to do that.\"" CR>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? ASK-FOR ASK-ABOUT>
+		      <COND (<MC-IS? ,CH-BUTLER ,FL-ASLEEP>
+			     <RT-NO-CONDITION-MSG ,CH-BUTLER>)
+			    (<RT-IDENTIFY-EVENT? ,W?MYCROFT ,GL-PRSI>
+			     <COND (<NOT <0? <ANDB ,MYCROFT-STATE 
+							,MYCROFT-LOCKED>>>
+				    <TELL
+"\"I am very sorry but Mr Mycroft Holmes is not available at this time.
+Perhaps you would care to come back later?\"" CR>)
+				   (<NOT <0? <ANDB ,MYCROFT-STATE
+							 ,MYCROFT-ASLEEP>>>
+				    <SET-MYCROFT-STATE CLEAR ,MYCROFT-ASLEEP>
+				    <TELL
+"The butler listens to you and then leaves. He comes back shortly." CR CR
+"\"Mr Mycroft Holmes requires that you offer some token to verify that you
+are indeed the person you claim to be. Give whatever it is to me and I will
+take it to him.\"" CR>)
+				   (T
+				    <TELL
+"The butler listens politely but insists that he can do nothing more for you
+than to deliver the token to Mr Mycroft Holmes." CR>)>)
+			    (<MC-PRSI? ,CH-HOLMES>
+			     <TELL
+"\"I am afraid that I know the younger Mr Holmes only by his somewhat
+colourful reputation.\"" CR>)
+			    (<MC-PRSI? ,CH-BUTLER>
+			     <TELL
+"\"I am well, sir. Thank you for asking.\"" CR>)
+			    (<MC-PRSI? ,CH-PLAYER ,CH-ME>
+			     <TELL
+"He looks down his nose at you and sniffs, \"I don't believe we've been
+introduced.\"" CR>)
+			    (<MC-PRSI? ,CH-MEMBERS>
+			     <TELL
+"\"They seem livelier than usual for this time of year.\"" CR>)
+			    (<MC-PRSI? ,RM-DIOGENES-CLUB>
+			     <TELL
+"The butler coughs deferentially, \"It is one of the most exclusive
+clubs in London, sir.\" He glances at your clothes. \"Membership is by
+invitation only.\"" CR>)
+			    (<MC-IS? ,GL-PRSI ,FL-PERSON>
+			     <COND (<MC-IS? ,GL-PRSI ,FL-PLURAL>
+				    <TELL
+"\"Unfortunately, I can say nothing about them.\"" CR>)
+				   (<MC-IS? ,GL-PRSI ,FL-FEMALE>
+				    <TELL
+"\"I am sorry but I can tell you nothing about her.\"" CR>)
+				   (T
+				    <TELL
+"\"Much to my regret I can tell you nothing about him.\"" CR>)>)
+			    (T
+			     <TELL
+"\"I'm afraid I wouldn't know anything about that.\"" CR>)>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? GIVE>
+		      <COND (<MC-IS? ,CH-BUTLER ,FL-ASLEEP>
+			     <RT-NO-CONDITION-MSG ,CH-BUTLER "accept your offer">)
+			    (<NOT <0? <ANDB ,MYCROFT-STATE ,MYCROFT-LOCKED>>>
+			     <TELL
+"The butler politely declines to take the gift you have offered." CR>)
+			    (<NOT <0? <ANDB ,MYCROFT-STATE ,MYCROFT-ASLEEP>>>
+			     <TELL
+"The butler refuses to take the item you have offered and asks if you
+have come to speak with someone here in the club." CR>)
+			    (<MC-PRSO? ,TH-RING>
+			     <SET-MYCROFT-STATE SET ,MYCROFT-LOCKED
+							 ,MYCROFT-SEEN>
+			     <REMOVE ,TH-RING>
+			     <TELL ,K-BUTLER-ACCEPTS-MSG CR CR
+"After a few moments, Mycroft Holmes appears. He looks very worried." CR CR 
+"\"Sherlock warned me that you might come,\" he says. \"And the fact
+that you are here indicates that he is indeed in trouble. I believe that
+in order to solve this mystery, you are going to have to go to the Tower
+of London. It will be closed, but you can give the password '">
+			     <SET WORD-NUM <RANDOM 6>>
+			     <SETG PASSWORD-ID .WORD-NUM>
+			     <COND (<EQUAL? .WORD-NUM 1>
+				    <TELL "Boleyn">)
+				   (<EQUAL? .WORD-NUM 2>
+				    <TELL "Cleves">)
+				   (<EQUAL? .WORD-NUM 3>
+				    <TELL "Howard">)
+				   (<EQUAL? .WORD-NUM 4>
+				    <TELL "Parr">)
+				   (<EQUAL? .WORD-NUM 5>
+				    <TELL "Aragon">)
+				   (<EQUAL? .WORD-NUM 6>
+				    <TELL "Seymour">)>
+			     <TELL
+"' to the guard at the Byward Tower. He will let you in. Good luck.\"" CR CR
+"Mycroft pauses before he goes and looks at you meditatively, as if
+trying to decide if he can put his faith in you to rescue his
+brother. After a moment he gives his head an unconscious nod, then
+turns around and disappears back into the club." CR>
+			     <RT-UPDATE-SCORE 1>
+			     <RTRUE>)
+			    (T
+			     <TELL ,K-BUTLER-ACCEPTS-MSG CR CR
+"The butler soon returns looking concerned." CR CR
+"\"I am sorry but Mr Mycroft Holmes says this will not do. Do you have
+anything else?\"" CR>)>)>)>>
+
+<ROUTINE RT-AC-LG-BANK-VAULT-DOOR ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-BANK-VAULT-DOOR" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<EQUAL? ,GL-PLACE-CUR ,RM-BANK-OF-ENGLAND>
+		      <RT-OPEN-CLOSED-MSG ,LG-BANK-VAULT-DOOR>
+		      <CRLF> <CRLF>
+		      <TELL "In the middle of the door you see a big shiny dial." CR>
+		      <RTRUE>)
+		     (T
+		      <RT-OPEN-CLOSED-MSG ,LG-BANK-VAULT-DOOR>
+		      <CRLF> <CRLF>
+		      <TELL "The inside of the door is shiny and flat." CR>
+		      <RTRUE>)>)
+	      (<MC-VERB? OPEN>
+	       <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+		      <TELL "The vault door is already open." CR>)
+		     (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-LOCKED>
+		      <TELL "The vault door is locked." CR>)
+		     (T
+		      <MC-MAKE ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+		      <TELL "The vault door swings open." CR>)>)
+	      (<MC-VERB? CLOSE>
+	       <COND (<MC-ISNOT? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+		      <TELL "The vault door is already closed." CR>)
+		     (T
+		      <MC-UNMAKE ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+		      <MC-MAKE ,LG-BANK-VAULT-DOOR ,FL-LOCKED>
+		      <SETG TH-DIAL-AUX1 0>
+		      <SETG TH-DIAL-AUX2 0>
+		      <TELL "The vault door swings closed and locks">
+		      <COND (<IN? ,CH-PLAYER ,RM-BANK-VAULT>
+			     <TELL " you in. Whoops!" CR CR>
+			     <RT-QSR>)
+			    (T
+			     <TELL "." CR>)>)>)
+	      (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-BANK-VAULT>
+		      <RT-DO-WALK ,P?EAST>)
+		     (<MC-HERE? ,RM-BANK-OF-ENGLAND>
+		      <RT-DO-WALK ,P?WEST>)>)
+	      (<MC-VERB? LOOK-INSIDE>
+	       <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+		      <RT-CYOU-MSG "see" "sees">
+		      <TELL "row upon row of " D ,TH-BOXES "." CR>)
+		     (T
+		      <TELL CTHE ,LG-BANK-VAULT-DOOR " is closed." CR>)>)
+	      (<MC-VERB? UNLOCK>
+	       <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+		      <TELL CTHE ,LG-BANK-VAULT-DOOR " is already opened." CR>)
+		     (T
+		      <TELL ,K-HOW-TO-MSG CR>)>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)>>
+
+<ROUTINE RT-TOPAZ-MSG ()
+	 <COND (<AND <==? ,GL-PRSO ,TH-TOPAZ>
+		     <==? ,GL-PUPPY ,CH-HOLMES>>
+		<TELL CR "Holmes plucks you by the sleeve and reaches into
+the box. \"Observe, Watson.\" He pulls out an almost invisible thread and
+examines it with glittering eyes. \"Muslin,\" he declares, more to himself
+than to you. \"Of Indian origin, and of the type used almost exclusively in
+the manufacture of turbans.\" He looks at you in triumph. \"Our case is
+almost complete, Doctor. The Agra gems, the Trichinopoly cigar, and now this
+strand of muslin.\"" CR CR
+
+"Holmes puts the strand into his pocket and explains. \"Moriarty - for reasons
+as yet unknown to us - has stolen the Crown Jewels. The Agra gems have somehow
+passed into his hands by way of this Indian accomplice, and he is using small
+pieces of it to lure me into a rendezvous with him. It's a dangerous game we
+play, Watson, but if we are to recover the regalia we have no choice.\"" CR>)>>
+
+
+
+	    
\ No newline at end of file
diff --git a/bark.bin b/bark.bin
new file mode 100644
index 0000000..e7a91c3
Binary files /dev/null and b/bark.bin differ
diff --git a/ben2 b/ben2
new file mode 100644
index 0000000..f470e47
Binary files /dev/null and b/ben2 differ
diff --git a/benclk b/benclk
new file mode 100644
index 0000000..3e95dee
Binary files /dev/null and b/benclk differ
diff --git a/benclk-ss1 b/benclk-ss1
new file mode 100644
index 0000000..32aefd1
Binary files /dev/null and b/benclk-ss1 differ
diff --git a/boot.zabstr b/boot.zabstr
new file mode 100644
index 0000000..f459e3d
--- /dev/null
+++ b/boot.zabstr
@@ -0,0 +1,32 @@
+
+<DEFINE-ROUTINE RT-META-IN?> 
+<DEFINE-ROUTINE RT-SEE-INSIDE?> 
+<DEFINE-ROUTINE RT-VISIBLE?> 
+<GLOBAL LAST-PSEUDO-LOC <> %<> WORD> 
+<DEFINE-ROUTINE CLOSED?> 
+<DEFINE-ROUTINE RT-ACCESSIBLE?> 
+<DEFINE-ROUTINE RT-DONT-ALL?> 
+<DEFINE-ROUTINE DPRINT> 
+<DEFINE-ROUTINE RT-A-PRINT> 
+<DEFINE-ROUTINE RT-THEO-PRINT> 
+<DEFINE-ROUTINE RT-CTHEO-PRINT> 
+<DEFINE-ROUTINE RT-THEI-PRINT> 
+<DEFINE-ROUTINE RT-CTHEI-PRINT> 
+<DEFINE-ROUTINE RT-PRINT-SPACES> 
+<DEFINE-ROUTINE SAY-NUMBER> 
+<DEFINE-ROUTINE RT-UPDATE-STATUS-LINE> 
+<DEFINE-ROUTINE RT-REFER-TO-MSG> 
+<DEFINE-ROUTINE RT-SAY-ROOM-NAME-IF-LIT> 
+<DEFINE-ROUTINE RT-DESCRIBE-PLACE> 
+<DEFINE-ROUTINE RT-EXEC-RM-DESCFCN> 
+<DEFINE-ROUTINE RT-DESCFCN-CONTEXT> 
+<DEFINE-ROUTINE RT-DESC-ALL> 
+<DEFINE-ROUTINE RT-GOTO> 
+<DEFINE-ROUTINE RT-RESET-THEM> 
+<DEFINE-ROUTINE RT-UPDATE-SCORE> 
+<DEFINE-ROUTINE RT-UPDATE-MOVES> 
+<DEFINE-ROUTINE RT-UPDATE-CLOCK> 
+<DEFINE-ROUTINE RT-MAIN-LOOP> 
+<DEFINE-ROUTINE RT-TOUCH-VERB?> 
+<DEFINE-ROUTINE RT-TALK-VERB?> 
+<DEFINE-ROUTINE RT-AC-CH-PLAYER> 
\ No newline at end of file
diff --git a/boot.zap b/boot.zap
new file mode 100644
index 0000000..3649197
--- /dev/null
+++ b/boot.zap
@@ -0,0 +1,737 @@
+
+
+	.FUNCT	RT-META-IN?,OBJ1,OBJ2
+?PRG1:	ZERO?	OBJ1 /FALSE
+	IN?	OBJ1,ROOMS /FALSE
+	IN?	OBJ1,LOCAL-GLOBALS /FALSE
+	EQUAL?	OBJ1,OBJ2 /TRUE
+	LOC	OBJ1 >OBJ1
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-SEE-INSIDE?,THING
+	ZERO?	THING /FALSE
+	FSET?	THING,FL-SURFACE /TRUE
+	FSET?	THING,FL-CONTAINER \?CCL7
+	FSET?	THING,FL-OPENED /TRUE
+	FSET?	THING,FL-TRANSPARENT /TRUE
+?CCL7:	FSET?	THING,FL-PERSON /?PRD15
+	FSET?	THING,FL-ALIVE \FALSE
+?PRD15:	EQUAL?	THING,CH-PLAYER /FALSE
+	RTRUE	
+
+
+	.FUNCT	RT-VISIBLE?,OBJ
+	CALL	RT-ACCESSIBLE?,OBJ,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	CLOSED?,WLOC,VISIBLE?
+	ZERO?	WLOC /FALSE
+	FSET?	WLOC,FL-OPENED /FALSE
+	ZERO?	VISIBLE? /?PRD7
+	FSET?	WLOC,FL-TRANSPARENT /FALSE
+?PRD7:	FSET?	WLOC,FL-SURFACE /FALSE
+	FSET?	WLOC,FL-ALIVE /FALSE
+	IN?	WLOC,ROOMS \TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-ACCESSIBLE?,OBJ,VISIBLE?,LOC,OLOC,WLOC,RMG,RMGL
+	GETPT	GL-PLACE-CUR,P?GLOBAL >RMG
+	PTSIZE	RMG >RMGL
+	ZERO?	OBJ \?CCL3
+	SET	'GL-CLOSED-OBJECT,FALSE-VALUE
+	RFALSE	
+?CCL3:	EQUAL?	OBJ,ROOMS /TRUE
+	EQUAL?	OBJ,PSEUDO-OBJECT \?CND1
+	EQUAL?	LAST-PSEUDO-LOC,GL-PLACE-CUR /TRUE
+	RFALSE	
+?CND1:	LOC	GL-WINNER >WLOC
+?PRG9:	IN?	WLOC,ROOMS /?REP10
+	CALL	CLOSED?,WLOC,VISIBLE?
+	ZERO?	STACK \?REP10
+	LOC	WLOC >WLOC
+	JUMP	?PRG9
+?REP10:	SET	'OLOC,OBJ
+	EQUAL?	OLOC,WLOC /TRUE
+?PRG18:	ZERO?	OLOC /FALSE
+	IN?	OLOC,GLOBAL-OBJECTS /?CCL23
+	INTBL?	OLOC,RMG,RMGL,1 \?CND22
+?CCL23:	IN?	OLOC,ROOMS \TRUE
+	EQUAL?	OLOC,OBJ /TRUE
+	RFALSE	
+?CND22:	IN?	OLOC,ROOMS /FALSE
+	LOC	OLOC >OLOC
+	EQUAL?	OLOC,WLOC /TRUE
+	CALL	CLOSED?,OLOC,VISIBLE?
+	ZERO?	STACK /?PRG18
+	IN?	OLOC,GLOBAL-OBJECTS /TRUE
+	INTBL?	OLOC,RMG,RMGL,1 /TRUE
+	SET	'GL-CLOSED-OBJECT,OLOC
+	SET	'GL-IN-OUT,TRUE-VALUE
+	RFALSE	
+
+
+	.FUNCT	RT-DONT-ALL?,O,I,L
+	LOC	O >L
+	ZERO?	L /TRUE
+	EQUAL?	O,I /TRUE
+	FSET?	O,FL-BODYPART /TRUE
+	FSET?	O,FL-NOALL /TRUE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL11
+	ZERO?	I \?CCL14
+	CALL	RT-META-IN?,O,GL-WINNER
+	ZERO?	STACK /?CCL14
+	IN?	O,GL-WINNER /TRUE
+	GET	GL-P-NAMW,0
+	ZERO?	STACK /TRUE
+	GET	GL-P-BUTS,K-P-MATCHLEN
+	ZERO?	STACK \TRUE
+?CCL14:	FSET?	O,FL-TAKEABLE /?CCL22
+	FSET?	O,FL-TRYTAKE \TRUE
+?CCL22:	FSET?	L,FL-PERSON \?CCL26
+	EQUAL?	L,I \TRUE
+?CCL26:	FSET?	L,FL-CONTAINER \?CCL30
+	FSET?	L,FL-OPENED \TRUE
+?CCL30:	ZERO?	I /?CCL34
+	EQUAL?	L,I \TRUE
+	CALL2	RT-SEE-INSIDE?,I
+	ZERO?	STACK /TRUE
+	RFALSE	
+?CCL34:	EQUAL?	L,GL-PLACE-CUR /FALSE
+	CALL2	RT-SEE-INSIDE?,L
+	ZERO?	STACK /TRUE
+	RFALSE	
+?CCL11:	EQUAL?	GL-PRSA,V?DROP,V?PUT,V?PUT-ON /?CTR44
+	EQUAL?	GL-PRSA,V?THROW,V?THROW-OVER \FALSE
+?CTR44:	EQUAL?	O,TH-POCKET /TRUE
+	EQUAL?	L,TH-POCKET /TRUE
+	FSET?	O,FL-WORN /TRUE
+	EQUAL?	L,GL-WINNER /FALSE
+	RTRUE	
+
+
+	.FUNCT	DPRINT,O,X
+	FSET?	O,FL-HAS-SDESC \?CCL3
+	GETP	O,P?ACTION >X
+	ZERO?	X /?CCL3
+	CALL	X,K-M-SDESC
+	RSTACK	
+?CCL3:	PRINTD	O
+	RTRUE	
+
+
+	.FUNCT	RT-A-PRINT,O
+	ICALL	RT-THEO-PRINT,O,FALSE-VALUE,K-DESC-A
+	RTRUE	
+
+
+	.FUNCT	RT-THEO-PRINT,O,CAP?,CLASS,?TMP1
+	ASSIGNED?	'CLASS /?CND1
+	SET	'CLASS,K-DESC-THE
+?CND1:	ZERO?	O \?CND3
+	SET	'O,GL-PRSO
+?CND3:	ZERO?	CAP? /?PRG7
+	DIROUT	K-D-SCR-OFF
+	DIROUT	K-D-TBL-ON,GL-DIROUT-TBL
+?PRG7:	FSET?	O,FL-NOARTC /?CCL11
+	FSET?	O,FL-YOUR \?CCL14
+	PRINTI	"your"
+	JUMP	?CND12
+?CCL14:	EQUAL?	CLASS,K-DESC-ANY \?CCL16
+	PRINTI	"any"
+	JUMP	?CND12
+?CCL16:	EQUAL?	CLASS,K-DESC-THE /?CTR17
+	FSET?	O,FL-PLURAL \?CCL18
+	FSET?	O,FL-PERSON \?CCL18
+?CTR17:	PRINTI	"the"
+	JUMP	?CND12
+?CCL18:	FSET?	O,FL-PLURAL \?CCL24
+	FSET?	O,FL-PERSON /?CCL24
+	PRINTI	"some"
+	JUMP	?CND12
+?CCL24:	EQUAL?	O,LG-WATER /?CND12
+	FSET?	O,FL-VOWEL \?CCL30
+	PRINTI	"an"
+	JUMP	?CND12
+?CCL30:	PRINTC	97
+?CND12:	PRINTC	32
+?CND9:	EQUAL?	O,CH-ME \?CCL34
+	ZERO?	CAP? /?CCL34
+	PRINTI	"you"
+	JUMP	?REP8
+?CCL11:	FSET?	O,FL-HAS-SDESC \?CND9
+	GETP	O,P?ACTION
+	ICALL	STACK,K-M-SDESC,CLASS
+	JUMP	?REP8
+?CCL34:	ICALL2	DPRINT,O
+?REP8:	ZERO?	CAP? /TRUE
+	DIROUT	K-D-TBL-OFF
+	DIROUT	K-D-SCR-ON
+	GETB	GL-DIROUT-TBL,2 >CAP?
+	LESS?	CAP?,97 /?CND39
+	GRTR?	CAP?,122 /?CND39
+	SUB	CAP?,32
+	PUTB	GL-DIROUT-TBL,2,STACK
+?CND39:	ADD	GL-DIROUT-TBL,2 >?TMP1
+	GET	GL-DIROUT-TBL,0
+	PRINTT	?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	RT-CTHEO-PRINT,O
+	CALL	RT-THEO-PRINT,O,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	RT-THEI-PRINT,I
+	ZERO?	I \?CND1
+	SET	'I,GL-PRSI
+?CND1:	CALL2	RT-THEO-PRINT,I
+	RSTACK	
+
+
+	.FUNCT	RT-CTHEI-PRINT,I
+	ZERO?	I \?CND1
+	SET	'I,GL-PRSI
+?CND1:	CALL	RT-THEO-PRINT,I,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	RT-PRINT-SPACES,N,AMT
+?PRG1:	GRTR?	N,GL-BLANKS-LEN \?CCL5
+	SET	'AMT,GL-BLANKS-LEN
+	JUMP	?CND3
+?CCL5:	SET	'AMT,N
+?CND3:	PRINTT	GL-BLANKS,AMT
+	SUB	N,AMT >N
+	GRTR?	N,0 /?PRG1
+	RTRUE	
+
+
+	.FUNCT	SAY-NUMBER,N,X
+	SET	'X,10000
+?PRG1:	LESS?	N,X \?REP2
+	PRINTC	32
+	DIV	X,10 >X
+	LESS?	X,10 \?PRG1
+?REP2:	PRINTN	N
+	RTRUE	
+
+
+	.FUNCT	RT-UPDATE-STATUS-LINE
+	GET	0,8
+	BTST	STACK,4 \?CND1
+	ICALL2	RT-INIT-SCREEN,TRUE-VALUE
+	GET	0,8
+	BAND	STACK,-5
+	PUT	0,8,STACK
+?CND1:	SCREEN	K-S-WIN
+	HLIGHT	K-H-INV
+	EQUAL?	GL-PLACE-CUR,GL-PLACE-STS /?CND3
+	ZERO?	GL-SHORT-STAT? /?CCL7
+	CURSET	GL-SPLIT-ROW,1
+	JUMP	?CND5
+?CCL7:	CURSET	GL-SPLIT-ROW,2
+?CND5:	ICALL2	RT-PRINT-SPACES,GL-STAT-MAX-ROOM
+	CURSET	GL-SPLIT-ROW,2
+	CALL	RT-SAY-ROOM-NAME-IF-LIT,GL-PLACE-CUR,FALSE-VALUE,TRUE-VALUE
+	ZERO?	STACK /?CCL10
+	SET	'GL-PLACE-STS,GL-PLACE-CUR
+	JUMP	?CND3
+?CCL10:	SET	'GL-PLACE-STS,-1
+?CND3:	EQUAL?	GL-SCORE-CUR,GL-SCORE-STS /?CND11
+	SET	'GL-SCORE-STS,GL-SCORE-CUR
+	ADD	GL-SCORE-HEADER-LEN,GL-STAT-S-POS
+	CURSET	GL-SPLIT-ROW,STACK
+	ICALL2	SAY-NUMBER,GL-SCORE-CUR
+?CND11:	CURSET	GL-SPLIT-ROW,GL-STAT-T-POS
+	ZERO?	GL-SHORT-STAT? /?CCL15
+	ICALL2	RT-CLK-DOW-MSG,3
+	PRINTC	32
+	ICALL2	RT-CLK-NTI-MSG,22
+	JUMP	?CND13
+?CCL15:	ICALL2	RT-CLK-DOW-MSG,5
+	ADD	10,GL-STAT-T-POS
+	CURSET	GL-SPLIT-ROW,STACK
+	ICALL2	RT-CLK-NTI-MSG,7
+?CND13:	HLIGHT	K-H-NRM
+	SCREEN	K-S-NOR
+	RTRUE	
+
+
+	.FUNCT	RT-REFER-TO-MSG
+	PRINTR	"[To what are you referring?]"
+
+
+	.FUNCT	RT-SAY-ROOM-NAME-IF-LIT,HERE,FORCE?,SL?,LEN,MAXLEN,LC,X,CNT
+	ASSIGNED?	'HERE /?CND1
+	SET	'HERE,GL-PLACE-CUR
+?CND1:	SET	'MAXLEN,300
+	SET	'CNT,2
+	ZERO?	SL? /?CND3
+	SET	'MAXLEN,GL-STAT-MAX-ROOM
+?CND3:	ZERO?	FORCE? \?CTR6
+	ZERO?	GL-NOW-LIT? /?CCL7
+?CTR6:	DIROUT	K-D-SCR-OFF
+	DIROUT	K-D-TBL-ON,GL-DIROUT-TBL
+	ICALL2	DPRINT,HERE
+	DIROUT	K-D-TBL-OFF
+	DIROUT	K-D-SCR-ON
+	GET	GL-DIROUT-TBL,0 >LEN
+	INC	'LEN
+	PUT	GL-DIROUT-TBL,0,0
+	GRTR?	LEN,1 \?CCL12
+	SET	'LC,32
+?PRG13:	GETB	GL-DIROUT-TBL,CNT >X
+	LESS?	X,97 /?CND15
+	GRTR?	X,122 /?CND15
+	EQUAL?	CNT,2 /?CCL20
+	EQUAL?	LC,32 \?CND15
+?CCL20:	SUB	X,32 >X
+?CND15:	PRINTC	X
+	SET	'LC,X
+	IGRTR?	'CNT,LEN /TRUE
+	GRTR?	CNT,MAXLEN \?PRG13
+	RTRUE	
+?CCL12:	GET	GL-DIROUT-TBL,2
+	PRINTC	STACK
+	RTRUE	
+?CCL7:	PRINTI	"Darkness"
+	RFALSE	
+
+
+	.FUNCT	RT-DESCRIBE-PLACE,PLACE,LOOK
+	ZERO?	PLACE \?CND1
+	SET	'PLACE,GL-PLACE-CUR
+?CND1:	CALL	RT-IS-LIT?,PLACE,TRUE-VALUE
+	ZERO?	STACK \?CND3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RTRUE	
+?CND3:	HLIGHT	K-H-BLD
+	ICALL	RT-SAY-ROOM-NAME-IF-LIT,PLACE,TRUE-VALUE
+	CRLF	
+	CRLF	
+	HLIGHT	K-H-NRM
+	ZERO?	LOOK /?CCL7
+	CALL	RT-EXEC-RM-DESCFCN,PLACE,K-M-DESC-3
+	RSTACK	
+?CCL7:	FSET?	PLACE,FL-TOUCHED /?CCL9
+	FSET	PLACE,FL-TOUCHED
+	CALL	RT-EXEC-RM-DESCFCN,PLACE,K-M-DESC-1
+	RSTACK	
+?CCL9:	EQUAL?	GL-DESC-LEVEL,2 \?CCL11
+	CALL	RT-EXEC-RM-DESCFCN,PLACE,K-M-DESC-2
+	RSTACK	
+?CCL11:	EQUAL?	GL-DESC-LEVEL,1 /TRUE
+	ZERO?	GL-DESC-LEVEL /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-EXEC-RM-DESCFCN,PLACE,CONTEXT,DF
+	FSET?	PLACE,FL-HAS-DESCFCN \TRUE
+	GETP	PLACE,P?ACTION
+	CALL	STACK,CONTEXT
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-DESCFCN-CONTEXT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-DESC-ALL,PLACE,LOOK,HOLMES-IN-HOUSE?
+	CALL	RT-DESCRIBE-PLACE,PLACE,LOOK
+	ZERO?	STACK /?CND1
+	ICALL	RT-DESCRIBE-PLACE-CONTENTS,PLACE,LOOK
+?CND1:	CALL	RT-IS-LIT?,PLACE,TRUE-VALUE
+	ZERO?	STACK /TRUE
+	ZERO?	GL-PUPPY-MSG? \?CCL7
+	SET	'GL-PUPPY-MSG?,TRUE-VALUE
+	RTRUE	
+?CCL7:	ZERO?	GL-PUPPY /TRUE
+	EQUAL?	GL-PUPPY,CH-HOLMES \?CCL11
+	CRLF	
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL,RM-PARLOUR,RM-VESTIBULE /?CCL13
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY,RM-HOLMES-BEDROOM \?CND12
+?CCL13:	SET	'HOLMES-IN-HOUSE?,TRUE-VALUE
+?CND12:	ZERO?	LOOK /?CCL18
+	IN?	CH-HOLMES,TH-BOAT \?CCL21
+	PRINT	K-SEASICK-MSG
+	JUMP	?CND19
+?CCL21:	IN?	CH-HOLMES,TH-HANSOM-CAB /?CTR22
+	IN?	CH-HOLMES,TH-GROWLER-CAB \?CCL23
+?CTR22:	PRINT	K-SITTING-QUIETLY-MSG
+	JUMP	?CND19
+?CCL23:	ZERO?	HOLMES-IN-HOUSE? /?CCL27
+	CALL2	RT-PICK-NEXT,GL-HOLMES-HOUSE-LOOK-TXT
+	PRINT	STACK
+	JUMP	?CND19
+?CCL27:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL29
+	CALL2	RT-PICK-NEXT,GL-HOLMES-INDOORS-LOOK-TXT
+	PRINT	STACK
+	JUMP	?CND19
+?CCL29:	CALL2	RT-PICK-NEXT,GL-HOLMES-OUTDOORS-LOOK-TXT
+	PRINT	STACK
+?CND19:	PRINTR	"."
+?CCL18:	EQUAL?	GL-DESC-LEVEL,2,1 \TRUE
+	ZERO?	HOLMES-IN-HOUSE? /?CCL33
+	CALL2	RT-PICK-NEXT,GL-HOLMES-HOUSE-ENTER-TXT
+	PRINT	STACK
+	JUMP	?CND31
+?CCL33:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL35
+	CALL2	RT-PICK-NEXT,GL-HOLMES-INDOORS-ENTER-TXT
+	PRINT	STACK
+	JUMP	?CND31
+?CCL35:	CALL2	RT-PICK-NEXT,GL-HOLMES-OUTDOORS-ENTER-TXT
+	PRINT	STACK
+?CND31:	PRINTR	"."
+?CCL11:	EQUAL?	GL-PUPPY,CH-WIGGINS \TRUE
+	CRLF	
+	CALL2	RT-PICK-NEXT,GL-WIGGINS-DESC-TXT
+	PRINT	STACK
+	ZERO?	LOOK /?CCL39
+	IN?	CH-WIGGINS,TH-BOAT \?CCL42
+	PRINT	K-ENJOYING-RIDE-MSG
+	JUMP	?CND40
+?CCL42:	IN?	CH-WIGGINS,TH-HANSOM-CAB /?CTR43
+	IN?	CH-WIGGINS,TH-GROWLER-CAB \?CCL44
+?CTR43:	PRINT	K-FIDGETING-MSG
+	JUMP	?CND40
+?CCL44:	CALL2	RT-PICK-NEXT,GL-WIGGINS-LOOK-TXT
+	PRINT	STACK
+?CND40:	PRINTR	"."
+?CCL39:	EQUAL?	GL-DESC-LEVEL,2,1 \TRUE
+	CALL2	RT-PICK-NEXT,GL-WIGGINS-ENTER-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-GOTO,NEWPLACE,X,NEWLIT?,OLDPLACE,AMP?,SS?
+	SET	'OLDPLACE,GL-PLACE-CUR
+	MOVE	CH-PLAYER,NEWPLACE
+	SET	'GL-PLACE-CUR,NEWPLACE
+	CALL1	RT-IS-LIT? >NEWLIT?
+	MOVE	CH-PLAYER,OLDPLACE
+	SET	'GL-PLACE-CUR,OLDPLACE
+	ZERO?	NEWLIT? \?CND1
+	ICALL2	TOO-DARK-TO-GO,NEWPLACE
+	RTRUE	
+?CND1:	GETP	GL-PLACE-CUR,P?ACTION
+	CALL	STACK,K-M-EXIT >X
+	FSET?	OLDPLACE,FL-INDOORS /?CND3
+	FSET?	NEWPLACE,FL-INDOORS /?CND3
+	ICALL	RT-CLOCK-JMP,0,5,0
+?CND3:	SET	'GL-PLACE-PRV,OLDPLACE
+	SET	'GL-PLACE-CUR,NEWPLACE
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	MOVE	CH-PLAYER,GL-PLACE-CUR
+	GETP	GL-PLACE-CUR,P?ACTION
+	CALL	STACK,K-M-ENTERING >X
+	ZERO?	GL-PUPPY /?CCL9
+	LOC	CH-PLAYER
+	MOVE	GL-PUPPY,STACK
+	JUMP	?CND7
+?CCL9:	ZERO?	GL-FORMER-PUPPY /?CND7
+	IN?	GL-FORMER-PUPPY,GL-PLACE-CUR \?CND7
+	FSET?	GL-FORMER-PUPPY,FL-ASLEEP /?CND7
+	SET	'GL-PUPPY,GL-FORMER-PUPPY
+	SET	'GL-FORMER-PUPPY,FALSE-VALUE
+?CND7:	ICALL1	RT-DESC-ALL
+	IN?	TH-ETHERIUM-AMPOULE,CH-PLAYER \?PST15
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN /?PRD18
+	SET	'AMP?,1
+	JUMP	?PEN14
+?PRD18:	SET	'AMP?,0
+	JUMP	?PEN14
+?PST15:	SET	'AMP?,0
+?PEN14:	FSET?	TH-STETHOSCOPE,FL-WORN /?PRD20
+	PUSH	0
+	JUMP	?PRD21
+?PRD20:	PUSH	1
+?PRD21:	SET	'SS?,STACK
+	ZERO?	AMP? \?CCL23
+	ZERO?	SS? /?CND22
+?CCL23:	ICALL	HOLMES-COMPLAINS,AMP?,SS?
+?CND22:	GETP	GL-PLACE-CUR,P?ACTION
+	CALL	STACK,K-M-ENTERED >X
+	ICALL1	RT-RESET-THEM
+	IN?	TH-ETHERIUM-GAS,GL-PLACE-CUR \TRUE
+	ICALL1	RT-SMELL-ETHERIUM?
+	RTRUE	
+
+
+	.FUNCT	RT-RESET-THEM
+	CALL2	RT-VISIBLE?,GL-P-IT-OBJECT
+	ZERO?	STACK \?CND1
+	SET	'GL-P-IT-OBJECT,TH-NOT-HERE-OBJECT
+?CND1:	CALL2	RT-VISIBLE?,GL-P-THEM-OBJECT
+	ZERO?	STACK \?CND3
+	SET	'GL-P-THEM-OBJECT,TH-NOT-HERE-OBJECT
+?CND3:	CALL2	RT-VISIBLE?,GL-P-HIM-OBJECT
+	ZERO?	STACK \?CND5
+	SET	'GL-P-HIM-OBJECT,TH-NOT-HERE-OBJECT
+?CND5:	CALL2	RT-VISIBLE?,GL-P-HER-OBJECT
+	ZERO?	STACK \TRUE
+	SET	'GL-P-HER-OBJECT,TH-NOT-HERE-OBJECT
+	RTRUE	
+
+
+	.FUNCT	RT-UPDATE-SCORE,PTS
+	ASSIGNED?	'PTS /?CND1
+	SET	'PTS,1
+?CND1:	ADD	GL-SCORE-CUR,PTS >GL-SCORE-CUR
+	CALL2	RT-NEW-SCORE-MSG,PTS
+	RSTACK	
+
+
+	.FUNCT	RT-UPDATE-MOVES,MVS
+	ASSIGNED?	'MVS /?CND1
+	SET	'MVS,1
+?CND1:	ZERO?	GL-CLOCK-WAIT \FALSE
+	ZERO?	GL-CLOCK-STOP \FALSE
+	ADD	GL-MOVES-CUR,MVS >GL-MOVES-CUR
+	RETURN	GL-MOVES-CUR
+
+
+	.FUNCT	RT-UPDATE-CLOCK,HRS,MIN,SEC
+	ZERO?	HRS \?CCL2
+	ZERO?	MIN \?CCL2
+	ZERO?	SEC /?CND1
+?CCL2:	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,HRS,MIN,SEC
+?CND1:	CALL1	RT-CLOCK-INC
+	RSTACK	
+
+
+	.FUNCT	RT-MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,X,TOUCH-VERB?,MYCROFT?,TV,?TMP1
+?PRG1:	SET	'CNT,0
+	SET	'OBJ,FALSE-VALUE
+	SET	'PTBL,TRUE-VALUE
+	SET	'GL-P-MULT?,FALSE-VALUE
+	EQUAL?	GL-PLACE-CUR,GL-P-QCONTEXT-RM /?CND3
+	SET	'GL-P-QCONTEXT-TH,FALSE-VALUE
+?CND3:	CALL1	RT-PARSER >GL-P-GOOD
+	ZERO?	GL-P-GOOD /?CCL7
+	GET	GL-P-PRSI,K-P-MATCHLEN >ICNT
+	GET	GL-P-PRSO,K-P-MATCHLEN >OCNT
+	ZERO?	GL-P-IT-OBJECT /?CND8
+	CALL2	RT-ACCESSIBLE?,GL-P-IT-OBJECT
+	ZERO?	STACK /?CND8
+	SET	'TMP,FALSE-VALUE
+?PRG12:	IGRTR?	'CNT,ICNT /?REP13
+	GET	GL-P-PRSI,CNT
+	EQUAL?	STACK,TH-IT \?PRG12
+	PUT	GL-P-PRSI,CNT,GL-P-IT-OBJECT
+	SET	'TMP,TRUE-VALUE
+?REP13:	ZERO?	TMP \?CND19
+	SET	'CNT,0
+?PRG21:	IGRTR?	'CNT,OCNT /?CND19
+	GET	GL-P-PRSO,CNT
+	EQUAL?	STACK,TH-IT \?PRG21
+	PUT	GL-P-PRSO,CNT,GL-P-IT-OBJECT
+?CND19:	SET	'CNT,0
+?CND8:	ZERO?	OCNT \?CCL30
+	SET	'NUM,OCNT
+	JUMP	?CND28
+?CCL30:	GRTR?	OCNT,1 \?CCL32
+	SET	'TBL,GL-P-PRSO
+	ZERO?	ICNT \?CCL35
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND33
+?CCL35:	GET	GL-P-PRSI,1 >OBJ
+?CND33:	SET	'NUM,OCNT
+	JUMP	?CND28
+?CCL32:	GRTR?	ICNT,1 \?CCL37
+	SET	'PTBL,FALSE-VALUE
+	SET	'TBL,GL-P-PRSI
+	GET	GL-P-PRSO,1 >OBJ
+	SET	'NUM,ICNT
+	JUMP	?CND28
+?CCL37:	SET	'NUM,1
+?CND28:	ZERO?	OBJ \?CND38
+	EQUAL?	ICNT,1 \?CND38
+	GET	GL-P-PRSI,1 >OBJ
+?CND38:	EQUAL?	GL-PRSA,V?WALK \?CCL44
+	CALL	RT-PERFORM,GL-PRSA,GL-PRSO >V
+	JUMP	?CND42
+?CCL44:	ZERO?	NUM \?CCL46
+	GETB	GL-P-SYNTAX,0
+	SHIFT	STACK,-6
+	ZERO?	STACK \?CCL49
+	CALL2	RT-PERFORM,GL-PRSA >V
+	SET	'GL-PRSO,FALSE-VALUE
+	JUMP	?CND42
+?CCL49:	ZERO?	GL-NOW-LIT? \?CCL51
+	ICALL1	RT-P-CLEAR
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	JUMP	?CND42
+?CCL51:	ICALL1	RT-P-CLEAR
+	PRINTI	"[There isn't anything to "
+	GET	GL-P-ITBL,K-P-VERBN >TMP
+	CALL1	RT-TALK-VERB?
+	ZERO?	STACK /?CCL54
+	PRINTI	"talk to"
+	JUMP	?CND52
+?CCL54:	ZERO?	GL-P-MERGED \?CTR55
+	ZERO?	GL-P-ORPH /?CCL56
+?CTR55:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND52
+?CCL56:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	RT-WORD-PRINT,?TMP1,STACK >V
+?CND52:	PRINTI	".]"
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND42
+?CCL46:	SET	'X,0
+	GRTR?	NUM,1 \?CND59
+	SET	'GL-P-MULT?,TRUE-VALUE
+?CND59:	SET	'TMP,FALSE-VALUE
+?PRG61:	IGRTR?	'CNT,NUM \?CCL65
+	GRTR?	X,0 \?CCL68
+	PRINTI	"[The "
+	EQUAL?	X,NUM /?CND69
+	PRINTI	"other "
+?CND69:	PRINTI	"object"
+	EQUAL?	X,1 /?CND71
+	PRINTC	115
+?CND71:	PRINTI	" that you mentioned "
+	EQUAL?	X,1 /?CCL75
+	PRINTI	"are"
+	JUMP	?CND73
+?CCL75:	PRINTI	"is"
+?CND73:	PRINTI	"n't here.]"
+	CRLF	
+	JUMP	?REP62
+?CCL68:	ZERO?	TMP \?REP62
+	ICALL1	RT-REFER-TO-MSG
+	JUMP	?REP62
+?CCL65:	ZERO?	PTBL /?CCL79
+	GET	GL-P-PRSO,CNT >OBJ1
+	JUMP	?CND77
+?CCL79:	GET	GL-P-PRSI,CNT >OBJ1
+?CND77:	GRTR?	NUM,1 /?CCL81
+	GET	GL-P-ITBL,K-P-NC1
+	GET	STACK,0
+	EQUAL?	STACK,W?ALL,W?EVERYTHING \?CND80
+?CCL81:	EQUAL?	OBJ1,TH-NOT-HERE-OBJECT \?CCL86
+	INC	'X
+	JUMP	?PRG61
+?CCL86:	EQUAL?	GL-P-GET-FLAGS,K-P-ALL \?CCL88
+	CALL	RT-DONT-ALL?,OBJ1,OBJ
+	ZERO?	STACK \?PRG61
+?CCL88:	CALL2	RT-ACCESSIBLE?,OBJ1
+	ZERO?	STACK /?PRG61
+	EQUAL?	OBJ1,CH-PLAYER /?PRG61
+	EQUAL?	OBJ1,TH-IT \?CCL97
+	ICALL2	RT-CTHEO-PRINT,GL-P-IT-OBJECT
+	JUMP	?CND95
+?CCL97:	ICALL2	RT-CTHEO-PRINT,OBJ1
+?CND95:	PRINTI	": "
+?CND80:	SET	'TMP,TRUE-VALUE
+	ZERO?	PTBL /?CCL100
+	SET	'GL-PRSO,OBJ1
+	JUMP	?CND98
+?CCL100:	SET	'GL-PRSO,OBJ
+?CND98:	ZERO?	PTBL /?CCL103
+	SET	'GL-PRSI,OBJ
+	JUMP	?CND101
+?CCL103:	SET	'GL-PRSI,OBJ1
+?CND101:	EQUAL?	GL-WINNER,CH-BUTLER \?CND104
+	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?HOLMES,W?MYCROFT \?CND104
+	SET	'MYCROFT?,TRUE-VALUE
+	SET	'TOUCH-VERB?,FALSE-VALUE
+?CND104:	ZERO?	MYCROFT? \?CND108
+	EQUAL?	GL-PRSA,V?FIND /?CND108
+	CALL1	RT-TOUCH-VERB? >TOUCH-VERB?
+	ZERO?	TOUCH-VERB? \?CCL109
+	INTBL?	GL-PRSA,GL-SEE-VERBS+2,20 >TV \?CND108
+?CCL109:	ZERO?	GL-PRSO /?CCL117
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK \?CCL117
+	ICALL2	RT-CANT-SEE-ANY-MSG,GL-PRSO
+	GRTR?	OCNT,1 /?PRG61
+	SET	'V,FATAL-VALUE
+	JUMP	?REP62
+?CCL117:	ZERO?	GL-PRSI /?CND108
+	CALL2	RT-VISIBLE?,GL-PRSI
+	ZERO?	STACK \?CND108
+	ICALL2	RT-CANT-SEE-ANY-MSG,GL-PRSI
+	GRTR?	ICNT,1 /?PRG61
+	SET	'V,FATAL-VALUE
+	JUMP	?REP62
+?CND108:	ZERO?	TOUCH-VERB? /?CND127
+	ZERO?	GL-PRSO /?CCL131
+	CALL2	RT-ACCESSIBLE?,GL-PRSO
+	ZERO?	STACK \?CCL131
+	ICALL	RT-CANT-TOUCH-MSG,GL-PRSO,GL-CLOSED-OBJECT,GL-IN-OUT
+	GRTR?	OCNT,1 /?PRG61
+	SET	'V,FATAL-VALUE
+	JUMP	?REP62
+?CCL131:	ZERO?	GL-PRSI /?CND127
+	CALL2	RT-ACCESSIBLE?,GL-PRSI
+	ZERO?	STACK \?CND127
+	ICALL	RT-CANT-TOUCH-MSG,GL-PRSI,GL-CLOSED-OBJECT,GL-IN-OUT
+	GRTR?	ICNT,1 /?PRG61
+	SET	'V,FATAL-VALUE
+	JUMP	?REP62
+?CND127:	CALL	RT-PERFORM,GL-PRSA,GL-PRSO,GL-PRSI >V
+	EQUAL?	V,FATAL-VALUE \?PRG61
+?REP62:	ZERO?	GL-P-OVERFLOW /?CND42
+	CRLF	
+	PRINTI	"[Note: There are so many objects here that a few may have been overlooked. Please double check to make sure you have accomplished what you intended.]"
+	CRLF	
+?CND42:	EQUAL?	V,FATAL-VALUE \?CND5
+	SET	'GL-P-CONT,FALSE-VALUE
+	JUMP	?CND5
+?CCL7:	SET	'GL-P-CONT,FALSE-VALUE
+?CND5:	ZERO?	GL-P-GOOD /?CND147
+	EQUAL?	V,FATAL-VALUE /?CND147
+	INTBL?	GL-PRSA,GL-GAME-VERBS+2,10 >TV /?CND147
+	ICALL1	RT-UPDATE-MOVES
+	ICALL1	RT-UPDATE-CLOCK
+	ICALL1	RT-ALARM-CHK
+?CND147:	ICALL1	RT-TIME-OF-DAY-MSG
+	SET	'GL-PRSA,FALSE-VALUE
+	SET	'GL-PRSO,FALSE-VALUE
+	SET	'GL-PRSI,FALSE-VALUE
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-TOUCH-VERB?
+	INTBL?	GL-PRSA,GL-TOUCH-VERBS+2,69 /?BOGUS1
+?BOGUS1:	RSTACK	
+
+
+	.FUNCT	RT-TALK-VERB?
+	INTBL?	GL-PRSA,GL-TALK-VERBS+2,19 /?BOGUS1
+?BOGUS1:	RSTACK	
+
+
+	.FUNCT	RT-AC-CH-PLAYER,CONTEXT
+	SET	'GL-WAIT-BELL,FALSE-VALUE
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	EQUAL?	GL-PRSA,V?TELL \?CCL6
+	SET	'GL-CLOCK-WAIT,FALSE-VALUE
+	RFALSE	
+?CCL6:	EQUAL?	GL-PRSO,TH-HANDS /?PRD10
+	EQUAL?	GL-PRSI,TH-HANDS \?CCL8
+?PRD10:	CALL1	RT-CHECK-HANDS
+	ZERO?	STACK \FALSE
+?CCL8:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	FSET?	TH-HANDS,FL-LOCKED \FALSE
+	CALL1	RT-HANDS-COVERING-EARS
+	RSTACK	
+?CCL3:	CALL1	RT-AC-CH-PLAYER-AUX
+	RSTACK	
+
+	.ENDI
diff --git a/boot.zil b/boot.zil
new file mode 100644
index 0000000..6648b40
--- /dev/null
+++ b/boot.zil
@@ -0,0 +1,743 @@
+<ROUTINE RT-META-IN? (OBJ1 OBJ2)
+  <REPEAT ()
+    <COND (<OR <MC-F? .OBJ1>
+	       <IN? .OBJ1 ,ROOMS>
+	       <IN? .OBJ1 ,LOCAL-GLOBALS>>
+	   <RFALSE>)
+	  (<EQUAL? .OBJ1 .OBJ2>
+	   <RTRUE>)>
+    <SET OBJ1 <LOC .OBJ1>>>>
+
+<ROUTINE RT-SEE-INSIDE? (THING)
+  <COND (<MC-F? .THING>
+	 <RFALSE>)
+	(<MC-IS? .THING ,FL-SURFACE>
+	 <RTRUE>)
+	(<AND <MC-IS? .THING ,FL-CONTAINER>
+	      ; "All vehicles are also containers"
+	      ;<OR <MC-IS? .THING ,FL-CONTAINER>
+		  <MC-IS? .THING ,FL-VEHICLE>>
+	      <OR <MC-IS? .THING ,FL-OPENED>
+		  <MC-IS? .THING ,FL-TRANSPARENT>>>
+	 <RTRUE>)
+	(<AND <OR <MC-IS? .THING ,FL-PERSON>
+		  <MC-IS? .THING ,FL-ALIVE>>
+	      <NOT <EQUAL? .THING ,CH-PLAYER>>>
+	 <RTRUE>)
+	(T
+	 <RFALSE>)>>
+
+<ROUTINE RT-VISIBLE? (OBJ)
+  <RT-ACCESSIBLE? .OBJ T>>
+
+<GLOBAL LAST-PSEUDO-LOC <>>
+
+<ROUTINE CLOSED? (WLOC VISIBLE?)
+  <COND (<AND <T? .WLOC>
+	      <MC-ISNOT? .WLOC ,FL-OPENED>
+	      <OR <NOT .VISIBLE?>
+		  <MC-ISNOT? .WLOC ,FL-TRANSPARENT>>
+	      <MC-ISNOT? .WLOC ,FL-SURFACE>
+	      <MC-ISNOT? .WLOC ,FL-ALIVE>
+	      <NOT <IN? .WLOC ,ROOMS>>>
+	 T)>>
+
+<ROUTINE RT-ACCESSIBLE? (OBJ "OPT" (VISIBLE? <>) "AUX" LOC OLOC WLOC
+		    (RMG <GETPT ,GL-PLACE-CUR ,P?GLOBAL>) (RMGL <PTSIZE .RMG>))
+  ; "See if it's a simple case"
+  <COND (<F? .OBJ>
+	 <SETG GL-CLOSED-OBJECT <>>
+	 <RFALSE>)
+	(<==? .OBJ ,ROOMS>
+	 <RTRUE>)
+	(<==? .OBJ ,PSEUDO-OBJECT>
+	 <RETURN <==? ,LAST-PSEUDO-LOC ,GL-PLACE-CUR>>)>
+  ; "Now get the winner's effective room"
+  <SET WLOC <LOC ,GL-WINNER>>
+  <REPEAT ()
+    <COND (<AND <NOT <IN? .WLOC ,ROOMS>>
+		<NOT <CLOSED? .WLOC .VISIBLE?>>>
+	   ; "If he's in a vehicle, then if the vehicle's open
+	      he can reach stuff in the room as well"
+	   <SET WLOC <LOC .WLOC>>)
+	  (T
+	   <RETURN>)>>
+  <SET OLOC .OBJ>
+  <COND (<==? .OLOC .WLOC> <RTRUE>)>
+  <REPEAT ()
+    <COND (<F? .OLOC> <RFALSE>)>
+    ; "We've hit a room, a global object, or a local global FOR THIS ROOM"
+    <COND (<OR <IN? .OLOC ,GLOBAL-OBJECTS>
+	       <INTBL? .OLOC .RMG .RMGL 1>>
+	   <COND (<AND <IN? .OLOC ,ROOMS>
+		       <N==? .OLOC .OBJ>>
+		  <RFALSE>)>
+	   <RTRUE>)>
+    <COND (<IN? .OLOC ,ROOMS> <RFALSE>)>
+    ; "Move up a step, see if we've run into the winner yet"
+    <COND (<==? <SET OLOC <LOC .OLOC>> .WLOC> <RTRUE>)>
+    ; "Nope, see if this level is closed"
+    <COND (<CLOSED? .OLOC .VISIBLE?>
+	   <COND (<OR <IN? .OLOC ,GLOBAL-OBJECTS>
+		      <INTBL? .OLOC .RMG .RMGL 1>>
+		  <RTRUE>)>
+	   ; "If the new thing is closed, we've lost"
+	   <SETG GL-CLOSED-OBJECT .OLOC>
+	   <SETG GL-IN-OUT T>
+	   <RFALSE>)>>>
+
+;<ROUTINE RT-ACCESSIBLE? (OBJ "OPT" (VISIBLE? <>) "AUX" WLOC OLOC (CLSD-PTR <>)
+			 PTR (CNT 0) TEMP TBL END)
+	<COND (<MC-F? .OBJ>
+	       <SETG GL-CLOSED-OBJECT <>>
+	       <RFALSE>)
+	      (<EQUAL? .OBJ ,ROOMS>
+	       <RTRUE>)
+	      (<EQUAL? .OBJ ,PSEUDO-OBJECT>
+	       <RETURN <==? ,LAST-PSEUDO-LOC ,GL-PLACE-CUR>>)>
+	<SET PTR ,GL-LOC-TRAIL>
+	<SET OLOC .OBJ>
+	; "Check the object to see if it's in a closed container"
+	<REPEAT ()
+	  <PUT .PTR 0 .OLOC>
+	  <INC CNT>
+	  <COND (<OR <MC-F? .OLOC>
+		     <IN? .OLOC ,ROOMS>
+		     <IN? .OLOC ,LOCAL-GLOBALS>
+		     <IN? .OLOC ,GLOBAL-OBJECTS>>
+		 <RETURN>)>
+	  <SET OLOC <LOC .OLOC>>
+	  <SET PTR <REST .PTR 2>>
+	  <COND (<CLOSED? .OLOC .VISIBLE?>
+		 <SETG GL-CLOSED-OBJECT .OLOC>
+		 <SETG GL-IN-OUT T>
+		 <COND (<MC-F? .CLSD-PTR>
+			<SET CLSD-PTR .PTR>)>)>>
+	<SET PTR <>>
+	<SET WLOC ,GL-WINNER>
+	; "Now see if the winner's in a closed thing that doesn't enclose
+	   anything that encloses the object in question"
+	<REPEAT ()
+	  <COND (<MC-F? .WLOC>
+		 <SETG GL-CLOSED-OBJECT <>>
+		 <SETG GL-IN-OUT <>>
+		 <RFALSE>)
+		(<SET PTR <INTBL? .WLOC ,GL-LOC-TRAIL .CNT>>
+		 <RETURN>)
+		(<IN? .WLOC ,ROOMS>
+		 <RETURN>)>
+	  <SET WLOC <LOC .WLOC>>
+	  <COND (<CLOSED? .WLOC .VISIBLE?>
+		 <SETG GL-CLOSED-OBJECT .WLOC>
+		 <SETG GL-IN-OUT <>>
+		 <RFALSE>)>>
+	<COND (<MC-F? .PTR>
+	       <RFALSE>)
+	      (<AND <MC-T? .CLSD-PTR>
+		    <G? .PTR .CLSD-PTR>>
+	       <RFALSE>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE RT-DONT-ALL? (O I "AUX" L)
+  <SET L <LOC .O>>
+  <COND  (<OR <MC-F? .L>
+	      <EQUAL? .O .I>>
+	  <RTRUE>)
+	 (<MC-IS? .O ,FL-BODYPART>
+	  <RTRUE>)
+	 (<MC-IS? .O ,FL-NOALL>
+	  <RTRUE>)
+	 (<MC-VERB? TAKE>
+	  <COND (<AND <MC-F? .I>
+		      <RT-META-IN? .O ,GL-WINNER>
+		      ; "Let take find things in pockets and stuff if loser
+			 gave a name"
+		      <OR <IN? .O ,GL-WINNER>
+			  <F? <ZGET ,GL-P-NAMW 0>>
+			  <NOT <0? <ZGET ,GL-P-BUTS ,K-P-MATCHLEN>>>>>
+		 <RTRUE>)
+		(<AND <MC-ISNOT? .O ,FL-TAKEABLE>
+		     <MC-ISNOT? .O ,FL-TRYTAKE>>
+		 <RTRUE>)
+		(<AND <MC-IS? .L ,FL-PERSON>
+		      <N==? .L .I>>
+		 <RTRUE>)
+		(<AND <MC-IS? .L ,FL-CONTAINER>
+		      <MC-ISNOT? .L ,FL-OPENED>>
+		 <RTRUE>)
+		(<MC-T? .I>
+		 <COND (<NOT <EQUAL? .L .I>>
+			<RTRUE>)
+		       (<RT-SEE-INSIDE? .I>
+			<RFALSE>)
+		       (T
+			<RTRUE>)>)
+		(<OR <EQUAL? .L ,GL-PLACE-CUR>
+		     <RT-SEE-INSIDE? .L>>
+		 <RFALSE>)
+		(T
+		 <RTRUE>)>)
+	 (<MC-VERB? DROP PUT PUT-ON THROW THROW-OVER>
+	  <COND (<EQUAL? .O ,TH-POCKET>
+		 <RTRUE>)
+		(<EQUAL? .L ,TH-POCKET>
+		 <RTRUE>)
+		(<MC-IS? .O ,FL-WORN>
+		 <RTRUE>)
+		(<EQUAL? .L ,GL-WINNER>
+		 <RFALSE>)
+		(T
+		 <RTRUE>)>)
+	 (T
+	  <RFALSE>)>>
+
+; "tell token output routines"
+
+<ROUTINE DPRINT (O "AUX" X)
+	 <COND (<AND <FSET? .O ,FL-HAS-SDESC>
+		     <T? <SET X <GETP .O ,P?ACTION>>>>
+		<ZAPPLY .X ,K-M-SDESC>)
+	       (T
+		<PRINTD .O>)>>
+
+<ROUTINE RT-A-PRINT ("OPTIONAL" (O <>))
+   <RT-THEO-PRINT .O <> ,K-DESC-A>
+   <RTRUE>>
+
+<ROUTINE RT-THEO-PRINT ("OPTIONAL" (O <>) (CAP? <>) (CLASS ,K-DESC-THE))
+   <COND (<MC-F? .O>
+	  <SET O ,GL-PRSO>)>
+   <COND (.CAP?
+	  <DIROUT ,K-D-SCR-OFF>
+	  <DIROUT ,K-D-TBL-ON ,GL-DIROUT-TBL>)>
+   <PROG ()
+     <COND (<MC-ISNOT? .O ,FL-NOARTC>
+	    <COND (<MC-IS? .O ,FL-YOUR>
+		   <TELL "your">)
+		  (<==? .CLASS ,K-DESC-ANY>
+		   <TELL "any">)
+		  (<OR <==? .CLASS ,K-DESC-THE>
+		       <AND <MC-IS? .O ,FL-PLURAL>
+			    <MC-IS? .O ,FL-PERSON>>>
+		   <TELL "the">)
+		  (<AND <MC-IS? .O ,FL-PLURAL>
+			<MC-ISNOT? .O ,FL-PERSON>>
+		   <TELL "some">)
+		  (<N==? .O ,LG-WATER>
+		   <COND (<MC-IS? .O ,FL-VOWEL>
+			  <TELL "an">)
+			 (T
+			  <TELL "a">)>)>
+	    <PRINTC !\ >)
+	   (<MC-IS? .O ,FL-HAS-SDESC>
+	    ; "Know we have NOARTC set here"
+	    <APPLY <GETP .O ,P?ACTION> ,K-M-SDESC .CLASS>
+	    <RETURN>)>
+     <COND (<AND <==? .O ,CH-ME> .CAP?> ;"to print YOU instead of YOURSELF"
+	    <TELL "you">)               ;"at beginning of sentence - GTB"
+	   (T 
+	    <TELL D .O>)>>
+   <COND (.CAP?
+	  <DIROUT ,K-D-TBL-OFF>
+	  <DIROUT ,K-D-SCR-ON>
+	  <COND (<AND <G=? <SET CAP? <GETB ,GL-DIROUT-TBL 2>> !\a>
+		      <L=? .CAP? !\z>>
+		 <PUTB ,GL-DIROUT-TBL 2 <- .CAP? 32>>)>
+	  <PRINTT <ZREST ,GL-DIROUT-TBL 2> <ZGET ,GL-DIROUT-TBL 0>>)>
+   <RTRUE>>
+
+<ROUTINE RT-CTHEO-PRINT ("OPTIONAL" (O <>))
+   <RT-THEO-PRINT .O T>>
+
+<ROUTINE RT-THEI-PRINT ("OPTIONAL" (I <>))
+   <COND (<MC-F? .I>
+	  <SET I ,GL-PRSI>)>
+   <RT-THEO-PRINT .I>>
+
+<ROUTINE RT-CTHEI-PRINT	("OPTIONAL" (I <>))
+   <COND (<MC-F? .I>
+	  <SET I ,GL-PRSI>)>
+   <RT-THEO-PRINT .I T>>
+
+
+<ROUTINE RT-PRINT-SPACES (N "AUX" AMT) 
+  <REPEAT ()
+    <COND (<G? .N ,GL-BLANKS-LEN>
+	   <SET AMT ,GL-BLANKS-LEN>)
+	  (T
+	   <SET AMT .N>)>
+    <PRINTT ,GL-BLANKS .AMT>
+    <COND (<L=? <SET N <- .N .AMT>> 0>
+	   <RTRUE>)>>>
+
+<ROUTINE SAY-NUMBER (N)
+  <REPEAT ((X 10000))
+    <COND (<L? .N .X>
+	   <TELL " ">)
+	  (T
+	   <RETURN>)>
+    <COND (<L? <SET X </ .X 10>> 10>
+	   <RETURN>)>>
+  <TELL N .N>>
+
+<ROUTINE RT-UPDATE-STATUS-LINE ()
+  <COND (<BTST <LOWCORE FLAGS> 4>
+	 <RT-INIT-SCREEN T>
+	 <LOWCORE FLAGS <BAND <LOWCORE FLAGS> <XORB 4 -1>>>)>
+  <SCREEN ,K-S-WIN>
+  <HLIGHT ,K-H-INV>
+  <COND (<NOT <EQUAL? ,GL-PLACE-CUR ,GL-PLACE-STS>>
+	 <COND (,GL-SHORT-STAT?
+		<CURSET ,GL-SPLIT-ROW 1>)
+	       (T
+		<CURSET ,GL-SPLIT-ROW 2>)>
+	 <RT-PRINT-SPACES ,GL-STAT-MAX-ROOM>
+	 <CURSET ,GL-SPLIT-ROW 2>
+	 <COND (<RT-SAY-ROOM-NAME-IF-LIT ,GL-PLACE-CUR <> T>
+		<SETG GL-PLACE-STS ,GL-PLACE-CUR>)
+	       (T
+		<SETG GL-PLACE-STS -1>)>)>
+  <COND (<N==? ,GL-SCORE-CUR ,GL-SCORE-STS>
+	 <SETG GL-SCORE-STS ,GL-SCORE-CUR>
+	 <CURSET ,GL-SPLIT-ROW <+ ,GL-SCORE-HEADER-LEN ,GL-STAT-S-POS>>
+	 <SAY-NUMBER ,GL-SCORE-CUR>)>
+  <CURSET ,GL-SPLIT-ROW ,GL-STAT-T-POS>
+  <COND (,GL-SHORT-STAT?
+	 <RT-CLK-DOW-MSG <+ ,K-DOW-DW ,K-DOW-SN>>
+	 <TELL " ">
+	 <RT-CLK-NTI-MSG <+ ,K-NTI-SM ,K-NTI-HH ,K-NTI-MM>>)
+	(T
+	 <RT-CLK-DOW-MSG <+ ,K-DOW-DW ,K-DOW-EN>>
+	 <CURSET ,GL-SPLIT-ROW <+ 10 ,GL-STAT-T-POS>>
+	 <RT-CLK-NTI-MSG <+ ,K-NTI-HH ,K-NTI-MM ,K-NTI-SS>>)>
+  <HLIGHT ,K-H-NRM>
+  <SCREEN ,K-S-NOR>
+  <RTRUE>>
+
+<ROUTINE RT-REFER-TO-MSG ()
+	 <TELL "[To what are you referring?]" CR>
+	 <RTRUE>>
+
+<ROUTINE RT-SAY-ROOM-NAME-IF-LIT ("OPT" (HERE ,GL-PLACE-CUR) (FORCE? <>)
+				        (SL? <>) "AUX" LEN (MAXLEN 300))
+   <COND (.SL?
+	  <SET MAXLEN ,GL-STAT-MAX-ROOM>)>
+   <COND (<OR .FORCE? <MC-T? ,GL-NOW-LIT?>>
+	  <DIROUT ,K-D-SCR-OFF>
+	  <DIROUT ,K-D-TBL-ON ,GL-DIROUT-TBL>
+	  <TELL D .HERE>
+	  <DIROUT ,K-D-TBL-OFF>
+	  <DIROUT ,K-D-SCR-ON>
+	  <SET LEN <ZGET ,GL-DIROUT-TBL 0>>
+	  <SET LEN <+ .LEN 1>>
+	  <ZPUT ,GL-DIROUT-TBL 0 0>
+	  <COND (<G? .LEN 1>
+		 <REPEAT ((LC !\ ) X (CNT 2))
+			 <SET X <GETB ,GL-DIROUT-TBL .CNT>>
+			 <COND (<AND <G=? .X !\a>
+				     <L=? .X !\z>>
+				<COND (<OR <==? .CNT 2>
+					   <==? .LC !\ >>
+				       <SET X <- .X 32>>)>)>
+			 <PRINTC .X>
+			 <SET LC .X>
+			 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
+				<RETURN>)>
+			 <COND (<G? .CNT .MAXLEN> <RETURN>)>>)
+		(T
+		 <PRINTC <ZGET ,GL-DIROUT-TBL 2>>)>
+	  <RTRUE>)
+	 (T
+	  <TELL "Darkness">
+	  <RFALSE>)>>
+
+<ROUTINE RT-DESCRIBE-PLACE ("OPTIONAL" (PLACE <>) (LOOK <>))
+  ; "if no place is passed as an argument use gl-place-cur"
+  <COND (<MC-F? .PLACE>
+	 <SET PLACE ,GL-PLACE-CUR>)>
+  ; "check if this place is lit"
+  <COND (<MC-F? <RT-IS-LIT? .PLACE T>>
+	 <TELL ,K-TOO-DARK-MSG CR>
+	 <RTRUE>)>
+  ; "display room description (DESC) in bold"
+  <HLIGHT ,K-H-BLD>
+  <RT-SAY-ROOM-NAME-IF-LIT .PLACE T>
+  <TELL CR CR>
+  <HLIGHT ,K-H-NRM>
+  ; "determine description context"
+  <COND (<MC-T? .LOOK>
+	 <RT-EXEC-RM-DESCFCN .PLACE ,K-M-DESC-3>)
+	(<MC-ISNOT? .PLACE ,FL-TOUCHED>
+	 <MC-MAKE .PLACE ,FL-TOUCHED>
+	 <RT-EXEC-RM-DESCFCN .PLACE ,K-M-DESC-1>)
+	(<EQUAL? ,GL-DESC-LEVEL 2>
+	 <RT-EXEC-RM-DESCFCN .PLACE ,K-M-DESC-2>)
+	(<EQUAL? ,GL-DESC-LEVEL 1>
+	 <RTRUE>)
+	(<EQUAL? ,GL-DESC-LEVEL 0>
+	 <RFALSE>)>>
+
+<ROUTINE RT-EXEC-RM-DESCFCN (PLACE CONTEXT "AUX" DF)
+	<COND (<FSET? .PLACE ,FL-HAS-DESCFCN>
+	       <RETURN <NOT <APPLY <GETP .PLACE ,P?ACTION> .CONTEXT>>>)
+	      (T <RTRUE>)>>
+
+<ROUTINE RT-DESCFCN-CONTEXT (CONTEXT)
+  <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	 <RTRUE>)
+	(T
+	 <RFALSE>)>>
+
+<ROUTINE RT-DESC-ALL ("OPTIONAL" (PLACE <>) (LOOK <>)
+		      "AUX" (HOLMES-IN-HOUSE? <>))
+	<COND (<RT-DESCRIBE-PLACE .PLACE .LOOK>
+	       <RT-DESCRIBE-PLACE-CONTENTS .PLACE .LOOK>)>
+	<COND (<MC-F? <RT-IS-LIT? .PLACE T>>
+	       <RTRUE>)
+	      (<MC-F? ,GL-PUPPY-MSG?>
+	       <SETG GL-PUPPY-MSG? T>)
+	      (<MC-T? ,GL-PUPPY>
+	       <COND (<EQUAL? ,GL-PUPPY ,CH-HOLMES>
+		      <TELL CR
+			    <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>>
+		      <COND (<MC-HERE? ,RM-ENTRY-HALL
+				       ,RM-PARLOUR
+				       ,RM-VESTIBULE
+				       ,RM-HOLMES-STUDY
+				       ,RM-HOLMES-BEDROOM>
+			     <SET HOLMES-IN-HOUSE? T>)>
+		      <COND (<MC-T? .LOOK>
+			     <COND (<IN? ,CH-HOLMES ,TH-BOAT>
+				    <TELL ,K-SEASICK-MSG>)
+				   (<OR <IN? ,CH-HOLMES ,TH-HANSOM-CAB>
+					<IN? ,CH-HOLMES ,TH-GROWLER-CAB>>
+				    <TELL ,K-SITTING-QUIETLY-MSG>)
+				   (.HOLMES-IN-HOUSE?
+				    <TELL <RT-PICK-NEXT
+					   ,GL-HOLMES-HOUSE-LOOK-TXT>>)
+				   (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+				    <TELL <RT-PICK-NEXT
+					   ,GL-HOLMES-INDOORS-LOOK-TXT>>)
+				   (T
+				    <TELL <RT-PICK-NEXT
+					   ,GL-HOLMES-OUTDOORS-LOOK-TXT>>)>
+			     <TELL "." CR>)
+			    (<EQUAL? ,GL-DESC-LEVEL 2 1>
+			     <COND (.HOLMES-IN-HOUSE?
+				    <TELL <RT-PICK-NEXT
+					   ,GL-HOLMES-HOUSE-ENTER-TXT>>)
+				   (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+				    <TELL <RT-PICK-NEXT
+					   ,GL-HOLMES-INDOORS-ENTER-TXT>>)
+				   (T
+				    <TELL <RT-PICK-NEXT
+					   ,GL-HOLMES-OUTDOORS-ENTER-TXT>>)>
+			     <TELL "." CR>)>)
+		     (<EQUAL? ,GL-PUPPY ,CH-WIGGINS>
+		      <TELL CR
+			    <RT-PICK-NEXT ,GL-WIGGINS-DESC-TXT>>
+		      <COND (<MC-T? .LOOK>
+			     <COND (<IN? ,CH-WIGGINS ,TH-BOAT>
+				    <TELL ,K-ENJOYING-RIDE-MSG>)
+				   (<OR <IN? ,CH-WIGGINS ,TH-HANSOM-CAB>
+					<IN? ,CH-WIGGINS ,TH-GROWLER-CAB>>
+				    <TELL ,K-FIDGETING-MSG>)
+				   (T
+				    <TELL <RT-PICK-NEXT
+					   ,GL-WIGGINS-LOOK-TXT>>)>
+			     <TELL "." CR>)
+			    (<EQUAL? ,GL-DESC-LEVEL 2 1>
+			     <TELL <RT-PICK-NEXT
+				    ,GL-WIGGINS-ENTER-TXT> "." CR>)>)>)>
+	<RTRUE>>
+
+<ROUTINE RT-GOTO (NEWPLACE "AUX" X NEWLIT? OLDPLACE AMP? SS?)
+  <SET OLDPLACE ,GL-PLACE-CUR>
+  <MOVE ,CH-PLAYER .NEWPLACE>
+  <SETG GL-PLACE-CUR .NEWPLACE>
+  <SET NEWLIT? <RT-IS-LIT?>>
+  <MOVE ,CH-PLAYER .OLDPLACE>
+  <SETG GL-PLACE-CUR .OLDPLACE>
+  <COND (<MC-F? .NEWLIT?>
+	 ; "Moved to get it out of preload"
+	 <TOO-DARK-TO-GO .NEWPLACE>
+	 <RTRUE>)>
+  <SET X <APPLY <GETP ,GL-PLACE-CUR ,P?ACTION> ,K-M-EXIT>>
+  <COND (<AND <MC-ISNOT? .OLDPLACE ,FL-INDOORS>
+	      <MC-ISNOT? .NEWPLACE ,FL-INDOORS>>
+	 <RT-CLOCK-JMP 0 5 0>)>
+  <SETG GL-PLACE-PRV .OLDPLACE>
+  <SETG GL-PLACE-CUR .NEWPLACE>
+  <SETG GL-NOW-LIT? <RT-IS-LIT?>>
+  <MOVE ,CH-PLAYER ,GL-PLACE-CUR>
+  <SET X <APPLY <GETP ,GL-PLACE-CUR ,P?ACTION> ,K-M-ENTERING>>
+  <COND (<MC-T? ,GL-PUPPY>
+	 <MOVE ,GL-PUPPY <LOC ,CH-PLAYER>>)
+	(<AND <MC-T? ,GL-FORMER-PUPPY>
+	      <IN? ,GL-FORMER-PUPPY ,GL-PLACE-CUR>
+	      <NOT <FSET? ,GL-FORMER-PUPPY ,FL-ASLEEP>>>
+	 <SETG GL-PUPPY ,GL-FORMER-PUPPY>
+	 <SETG GL-FORMER-PUPPY <>>)>
+  <RT-DESC-ALL>
+  <SET AMP? <AND <IN? ,TH-ETHERIUM-AMPOULE ,CH-PLAYER>
+		 <NOT <FSET? ,TH-ETHERIUM-AMPOULE ,FL-BROKEN>>>>
+  <SET SS? <MC-IS? ,TH-STETHOSCOPE ,FL-WORN>>
+  <COND (<OR .AMP? .SS?>
+	 <HOLMES-COMPLAINS .AMP? .SS?>)>
+  <SET X <APPLY <GETP ,GL-PLACE-CUR ,P?ACTION> ,K-M-ENTERED>>
+  <RT-RESET-THEM>
+  <COND (<IN? ,TH-ETHERIUM-GAS ,GL-PLACE-CUR>
+	 <RT-SMELL-ETHERIUM?>)>
+  ;"Check if etherium is in the room."
+  <RTRUE>>
+
+<ROUTINE RT-RESET-THEM ()
+	<COND (<NOT <RT-VISIBLE? ,GL-P-IT-OBJECT>>
+	       <SETG GL-P-IT-OBJECT ,TH-NOT-HERE-OBJECT>)>
+	<COND (<NOT <RT-VISIBLE? ,GL-P-THEM-OBJECT>>
+	       <SETG GL-P-THEM-OBJECT ,TH-NOT-HERE-OBJECT>)>
+	<COND (<NOT <RT-VISIBLE? ,GL-P-HIM-OBJECT>>
+	       <SETG GL-P-HIM-OBJECT ,TH-NOT-HERE-OBJECT>)>
+	<COND (<NOT <RT-VISIBLE? ,GL-P-HER-OBJECT>>
+	       <SETG GL-P-HER-OBJECT ,TH-NOT-HERE-OBJECT>)>
+	<RTRUE>>
+
+<ROUTINE RT-UPDATE-SCORE ("OPTIONAL" (PTS 1))
+	<SETG GL-SCORE-CUR <+ ,GL-SCORE-CUR .PTS>>
+	<RT-NEW-SCORE-MSG .PTS>>
+
+<ROUTINE RT-UPDATE-MOVES ("OPTIONAL" (MVS 1))
+	<COND (<MC-T? ,GL-CLOCK-WAIT>
+	       <RFALSE>)
+	      (<MC-T? ,GL-CLOCK-STOP>
+	       <RFALSE>)>
+	<SETG GL-MOVES-CUR <+ ,GL-MOVES-CUR .MVS>>>
+
+<ROUTINE RT-UPDATE-CLOCK ("OPTIONAL" (HRS 0) (MIN 0) (SEC 0))
+	<COND (<OR <MC-NOTZERO? .HRS>
+		   <MC-NOTZERO? .MIN>
+		   <MC-NOTZERO? .SEC>>
+	       <RT-CLOCK-INC-SET .HRS .MIN .SEC>)>
+	<RT-CLOCK-INC>>
+
+<ROUTINE RT-MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL (V <>) PTBL OBJ1
+			 TMP X (TOUCH-VERB? <>) (MYCROFT? <>) TV)
+  <REPEAT ()
+    <SET CNT 0>
+    <SET OBJ <>>
+    <SET PTBL T>
+    <SETG GL-P-MULT? <>>
+    <COND (<NOT <MC-HERE? GL-P-QCONTEXT-RM>>
+	   <SETG GL-P-QCONTEXT-TH <>>)>
+    <SETG GL-P-GOOD <RT-PARSER>>
+    <COND (<MC-T? ,GL-P-GOOD>
+	   <SET ICNT <GET ,GL-P-PRSI ,K-P-MATCHLEN>>
+	   <SET OCNT <GET ,GL-P-PRSO ,K-P-MATCHLEN>>
+	   <COND (<AND <MC-T? ,GL-P-IT-OBJECT>
+		       <RT-ACCESSIBLE? ,GL-P-IT-OBJECT>>
+		  <SET TMP <>>
+		  <REPEAT ()
+		     <COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
+			    <RETURN>)
+			   (T
+			    <COND (<EQUAL? <GET ,GL-P-PRSI .CNT> ,TH-IT>
+				   <PUT ,GL-P-PRSI .CNT ,GL-P-IT-OBJECT>
+				   <SET TMP T>
+				   <RETURN>)>)>>
+		  <COND (<ZERO? .TMP>
+			 <SET CNT 0>
+			 <REPEAT ()
+			    <COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
+				   <RETURN>)
+				  (T
+				   <COND (<EQUAL? <GET ,GL-P-PRSO .CNT> ,TH-IT>
+					  <PUT ,GL-P-PRSO .CNT ,GL-P-IT-OBJECT>
+					  <RETURN>)>)>>)>
+		  <SET CNT 0>)>
+	   <SET NUM <COND (<ZERO? .OCNT>
+			   .OCNT)
+			  (<G? .OCNT 1>
+			   <SET TBL ,GL-P-PRSO>
+			   <COND (<ZERO? .ICNT>
+				  <SET OBJ <>>)
+				 (T
+				  <SET OBJ <GET ,GL-P-PRSI 1>>)>
+			   .OCNT)
+			  (<G? .ICNT 1>
+			   <SET PTBL <>>
+			   <SET TBL ,GL-P-PRSI>
+			   <SET OBJ <GET ,GL-P-PRSO 1>>
+			   .ICNT)
+			  (T 1)>>
+	   <COND (<AND <ZERO? .OBJ>
+		       <EQUAL? .ICNT 1>>
+		  <SET OBJ <GET ,GL-P-PRSI 1>>)>
+	   <COND (<MC-VERB? WALK>
+		  <SET V <RT-PERFORM ,GL-PRSA ,GL-PRSO>>)
+		 (<ZERO? .NUM>
+		  <COND (<0? <P-SONUMS ,GL-P-SYNTAX>>
+			 <SET V <RT-PERFORM ,GL-PRSA>>
+			 <SETG GL-PRSO <>>)
+			(<ZERO? ,GL-NOW-LIT?>
+			 <RT-P-CLEAR>
+			 <TELL ,K-TOO-DARK-MSG CR>)
+			(T
+			 <RT-P-CLEAR>
+			 <TELL "[There isn't anything to ">
+			 <SET TMP <GET ,GL-P-ITBL ,K-P-VERBN>>
+			 <COND (<RT-TALK-VERB?>
+				<TELL "talk to">)
+			       (<OR <MC-T? ,GL-P-MERGED>
+				    <MC-T? ,GL-P-ORPH>>
+				<PRINTB <GET .TMP 0>>)
+			       (T
+				<SET V <RT-WORD-PRINT <GETB .TMP 2>
+						      <GETB .TMP 3>>>)>
+			 <TELL ".]" CR>
+			 <SET V <>>)>)
+		 (T
+		  <SET X 0>
+		  <COND (<G? .NUM 1>
+			 <SETG GL-P-MULT? T>)>
+		  <SET TMP <>>
+		  <REPEAT ()
+		    <COND (<G? <SET CNT <+ .CNT 1>> .NUM>
+			   <COND (<G? .X 0>
+				  <TELL "[The ">
+				  <COND (<NOT <EQUAL? .X .NUM>>
+					 <TELL "other ">)>
+				  <TELL "object">
+				  <COND (<NOT <EQUAL? .X 1>>
+					 <TELL "s">)>
+				  <TELL " that you mentioned ">
+				  <COND (<NOT <EQUAL? .X 1>>
+					 <TELL "are">)
+					(T
+					 <TELL "is">)>
+				  <TELL "n't here.]" CR>)
+				 (<ZERO? .TMP>
+				  <RT-REFER-TO-MSG>)>
+			   <RETURN>)
+			  (T
+			   <COND (<MC-T? .PTBL>
+				  <SET OBJ1 <GET ,GL-P-PRSO .CNT>>)
+				 (T
+				  <SET OBJ1 <GET ,GL-P-PRSI .CNT>>)>
+			   <COND (<OR <G? .NUM 1>
+				      <EQUAL? <GET <GET ,GL-P-ITBL ,K-P-NC1> 0>
+					      ,W?ALL ,W?EVERYTHING>>
+				  <COND (<EQUAL? .OBJ1 ,TH-NOT-HERE-OBJECT>
+					 <INC X>
+					 <AGAIN>)
+					(<AND <EQUAL? ,GL-P-GET-FLAGS ,K-P-ALL>
+					      <RT-DONT-ALL? .OBJ1 .OBJ>>
+					 <AGAIN>)
+					(<NOT <RT-ACCESSIBLE? .OBJ1>>
+					 <AGAIN>)
+					(<EQUAL? .OBJ1 ,CH-PLAYER>
+					 <AGAIN>)
+					(T
+					 <COND (<EQUAL? .OBJ1 ,TH-IT>
+						<TELL CTHE ,GL-P-IT-OBJECT>)
+					       (T
+						<TELL CTHE .OBJ1>)>
+					 <TELL ": ">)>)>
+			   <SET TMP T>
+			   <SETG GL-PRSO <COND (<MC-T? .PTBL>
+						.OBJ1)
+					       (T
+						.OBJ)>>
+			   <SETG GL-PRSI <COND (<MC-T? .PTBL>
+						.OBJ)
+					       (T
+						.OBJ1)>>
+		 ; "DEB -- Do real visibility or accessibility tests here."
+			   <COND (<AND <==? ,GL-WINNER ,CH-BUTLER>
+				       <EQUAL? <ZGET ,GL-P-NAMW 0>
+					       ,W?HOLMES ,W?MYCROFT>>
+				  <SET MYCROFT? T>
+				  <SET TOUCH-VERB? <>>)>
+			   <COND (<AND <F? .MYCROFT?>
+				       <N==? ,GL-PRSA ,V?FIND>
+				       <OR <SET TOUCH-VERB? <RT-TOUCH-VERB?>>
+					   <SET TV <INTBL? ,GL-PRSA <REST ,GL-SEE-VERBS 2>
+						      <GET ,GL-SEE-VERBS 0>>>>>
+				  <COND (<AND <MC-T? ,GL-PRSO>
+					      <NOT <RT-VISIBLE? ,GL-PRSO>>>
+					 <RT-CANT-SEE-ANY-MSG ,GL-PRSO>
+					 <COND (<L=? .OCNT 1>
+						<SET V ,FATAL-VALUE>
+						<RETURN>)>
+					 <AGAIN>)
+					(<AND <MC-T? ,GL-PRSI>
+					      <NOT <RT-VISIBLE? ,GL-PRSI>>>
+					 <RT-CANT-SEE-ANY-MSG ,GL-PRSI>
+					 <COND (<L=? .ICNT 1>
+						<SET V ,FATAL-VALUE>
+						<RETURN>)>
+					 <AGAIN>)>)>
+			   <COND (.TOUCH-VERB?
+				  <COND (<AND <MC-T? ,GL-PRSO>
+					      <NOT <RT-ACCESSIBLE? ,GL-PRSO>>>
+					 <RT-CANT-TOUCH-MSG ,GL-PRSO ,GL-CLOSED-OBJECT ,GL-IN-OUT>
+					 <COND (<L=? .OCNT 1>
+						<SET V ,FATAL-VALUE>
+						<RETURN>)>
+					 <AGAIN>)
+					(<AND <MC-T? ,GL-PRSI>
+					      <NOT <RT-ACCESSIBLE? ,GL-PRSI>>>
+					 <RT-CANT-TOUCH-MSG ,GL-PRSI ,GL-CLOSED-OBJECT ,GL-IN-OUT>
+					 <COND (<L=? .ICNT 1>
+						<SET V ,FATAL-VALUE>
+						<RETURN>)>
+					 <AGAIN>)>)>
+		  ; "DEB -- End real visibility and accessibility tests."
+			   <SET V <RT-PERFORM ,GL-PRSA ,GL-PRSO ,GL-PRSI>>
+			   <COND (<EQUAL? .V ,FATAL-VALUE>
+				  <RETURN>)>)>>
+		  <COND (,GL-P-OVERFLOW
+			 <TELL CR
+"[Note: There are so many objects here that a few may have been overlooked.
+Please double check to make sure you have accomplished what you intended.]"
+CR>)>)>
+	   <COND (<EQUAL? .V ,FATAL-VALUE>
+		  <SETG GL-P-CONT <>>)>)
+	  (T
+	   <SETG GL-P-CONT <>>)>
+    <COND (<AND <MC-T? ,GL-P-GOOD>
+		<NOT <EQUAL? .V ,FATAL-VALUE>>
+		<NOT <SET TV <INTBL? ,GL-PRSA <REST ,GL-GAME-VERBS 2>
+				     <GET ,GL-GAME-VERBS 0>>>>>
+	   <RT-UPDATE-MOVES>
+	   <RT-UPDATE-CLOCK>
+	   <RT-ALARM-CHK>)>
+    <RT-TIME-OF-DAY-MSG>
+    <SETG GL-PRSA <>>
+    <SETG GL-PRSO <>>
+    <SETG GL-PRSI <>>>>
+
+<ROUTINE RT-TOUCH-VERB? ()
+  <INTBL? ,GL-PRSA <REST ,GL-TOUCH-VERBS 2> <GET ,GL-TOUCH-VERBS 0>>>
+
+<ROUTINE RT-TALK-VERB? ()
+  <INTBL? ,GL-PRSA <REST ,GL-TALK-VERBS 2> <GET ,GL-TALK-VERBS 0>>>
+
+; "RT-AC-CH-PLAYER has to be here because called every turn, more or less."
+
+<ROUTINE RT-AC-CH-PLAYER ("OPTIONAL" (CONTEXT <>))
+  <DEBUGGING? <RT-DEBUG-CH-AC "CH-PLAYER" .CONTEXT>>
+  <SETG GL-WAIT-BELL <>>
+  <COND (<MC-THIS-WINNER?>
+	 <COND (<MC-VERB? TELL>
+		<SETG GL-CLOCK-WAIT <>>
+		<RFALSE>)
+	       (<AND <OR <MC-PRSO? ,TH-HANDS>
+			 <MC-PRSI? ,TH-HANDS>>
+		     <RT-CHECK-HANDS>>
+		<RFALSE>)
+	       (<AND <RT-TOUCH-VERB?>
+		     <MC-IS? ,TH-HANDS ,FL-LOCKED>>
+		<RT-HANDS-COVERING-EARS>)>)
+	(T
+	 <RT-AC-CH-PLAYER-AUX>)>>
diff --git a/cab.zabstr b/cab.zabstr
new file mode 100644
index 0000000..3806769
--- /dev/null
+++ b/cab.zabstr
@@ -0,0 +1,46 @@
+
+<OBJECT CH-HANSOM-CABBIE (LOC TH-HANSOM-CAB) (DESC "hansom cabbie") (FLAGS
+FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL) (SYNONYM CABBIE DRIVER) (
+ADJECTIVE HANSOM) (SIZE 99) (ACTION RT-AC-CH-HANSOM-CABBIE)> 
+<OBJECT CH-GROWLER-CABBIE (LOC TH-GROWLER-CAB) (DESC "growler cabbie") (FLAGS
+FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL) (SYNONYM CABBIE DRIVER) (
+ADJECTIVE GROWLER) (SIZE 99) (ACTION RT-AC-CH-GROWLER-CABBIE)> 
+<DEFINE-ROUTINE RT-AC-CH-HANSOM-CABBIE> 
+<DEFINE-ROUTINE RT-AC-CH-GROWLER-CABBIE> 
+<CONSTANT CAB-ROOM-IDS-LEN 37> 
+<CONSTANT CAB-ROOM-IDS <TABLE (PURE BYTE) RM-221B-BAKER-ST RM-YORK-PLACE
+RM-MARYLEBONE-RD RM-TOTTENHAM-COURT-RD RM-ST-GILES-CIRCUS RM-OXFORD-ST
+RM-ORCHARD-ST RM-AUDLEY-ST RM-HYDE-PARK-CORNER RM-KENSINGTON-GARDENS
+RM-TRAFALGAR-SQUARE RM-GREAT-RUSSELL-ST RM-GROSVENOR-PLACE RM-VICTORIA-SQUARE
+RM-VICTORIA-STREET RM-BROAD-SANCTUARY RM-PARLIAMENT-SQUARE
+RM-BUCKINGHAM-PALACE-RD RM-QUEENS-GARDENS RM-BIRDCAGE-WALK RM-THE-MALL
+RM-WHITEHALL RM-NEW-OXFORD-ST RM-COVENT-GARDEN RM-THE-STRAND RM-FLEET-STREET
+RM-THE-EMBANKMENT RM-UPPER-THAMES-ST 0 RM-PINCHIN-LANE RM-CHEAPSIDE
+RM-THREADNEEDLE-ST RM-KING-WILLIAM-ST RM-MONUMENT RM-LOWER-THAMES-ST
+RM-LONDON-BRIDGE RM-TOWER-ENTRANCE>> 
+<DEFINE-ROUTINE RT-GET-ROOM-ID> 
+<DEFINE-ROUTINE RT-CAB-DIST> 
+<DEFINE-ROUTINE RT-I-CAB-ARRIVE> 
+<DEFINE-ROUTINE RT-I-HANSOM-LEAVE> 
+<DEFINE-ROUTINE RT-I-HANSOM-TO?> 
+<DEFINE-ROUTINE RT-I-GROWLER-LEAVE> 
+<DEFINE-ROUTINE RT-I-GROWLER-TO?> 
+<DEFINE-ROUTINE RT-MOVE-HANSOM> 
+<DEFINE-ROUTINE RT-MOVE-GROWLER> 
+<DEFINE-ROUTINE RT-CF-TH-HANSOM-CAB> 
+<DEFINE-ROUTINE RT-CF-TH-GROWLER-CAB> 
+<DEFINE-ROUTINE RT-BLOW-WHISTLE> 
+<OBJECT TH-HANSOM-CAB (LOC RM-VICTORIA-SQUARE) (DESC "hansom cab") (FLAGS
+FL-VEHICLE FL-CONTAINER FL-TRYTAKE FL-OPENED FL-LIGHTED FL-HAS-DESCFCN) (
+SYNONYM CAB) (ADJECTIVE HANSOM) (SIZE 0 CAPACITY 999) (ACTION
+RT-AC-TH-HANSOM-CAB) (CONTFCN RT-CF-TH-HANSOM-CAB)> 
+<OBJECT TH-GROWLER-CAB (LOC RM-OXFORD-ST) (DESC "growler cab") (FLAGS
+FL-VEHICLE FL-CONTAINER FL-TRYTAKE FL-OPENED FL-LIGHTED FL-HAS-DESCFCN) (
+SYNONYM CAB) (ADJECTIVE GROWLER) (SIZE 0 CAPACITY 999) (ACTION
+RT-AC-TH-GROWLER-CAB) (CONTFCN RT-CF-TH-GROWLER-CAB)> 
+<OBJECT TH-CAB-WHISTLE (LOC CH-PLAYER) (DESC "whistle") (FLAGS FL-TAKEABLE
+FL-CLOTHING FL-WORN) (SYNONYM WHISTLE) (SIZE 1 MASS 1) (ACTION
+RT-AC-TH-CAB-WHISTLE)> 
+<DEFINE-ROUTINE RT-AC-TH-HANSOM-CAB> 
+<DEFINE-ROUTINE RT-AC-TH-GROWLER-CAB> 
+<DEFINE-ROUTINE RT-AC-TH-CAB-WHISTLE> 
\ No newline at end of file
diff --git a/cab.zap b/cab.zap
new file mode 100644
index 0000000..537ecb1
--- /dev/null
+++ b/cab.zap
@@ -0,0 +1,823 @@
+
+
+	.FUNCT	RT-AC-CH-HANSOM-CABBIE,CONTEXT
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	EQUAL?	GL-PRSA,V?WAIT \?CCL6
+	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,FALSE-VALUE
+	PRINTI	"""Right-o."""
+	CRLF	
+	SET	'TH-HANSOM-CAB-AUX2,1
+	ICALL2	RT-ALARM-CLR,RT-I-HANSOM-LEAVE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,30,0
+	CALL	RT-ALARM-SET-REL,RT-I-HANSOM-LEAVE,STACK
+	RSTACK	
+?CCL6:	EQUAL?	GL-PRSA,V?DRIVE,V?WALK-TO \?CCL8
+	CALL1	RT-CF-TH-HANSOM-CAB
+	RSTACK	
+?CCL8:	EQUAL?	GL-PRSA,V?HELLO,V?GOODBYE,V?THANK \?CCL10
+	SET	'GL-WINNER,CH-PLAYER
+	CALL	RT-PERFORM,GL-PRSA,CH-HANSOM-CABBIE
+	RSTACK	
+?CCL10:	PRINTR	"""Sorry, guv. All I does is drives a cab."""
+?CCL3:	EQUAL?	GL-PRSA,V?PAY \?PRD14
+	ZERO?	GL-NOW-PRSI? /?CTR11
+?PRD14:	EQUAL?	GL-PRSA,V?GIVE \?CCL12
+	ZERO?	GL-NOW-PRSI? /?CCL12
+	FSET?	GL-PRSO,FL-MONEY \?CCL12
+?CTR11:	PRINTR	"""No thanks, guv'nor. It'll go on Mr 'Olmes's monthly account."""
+?CCL12:	EQUAL?	GL-PRSA,V?TELL \?CCL21
+	ZERO?	GL-NOW-PRSI? \?CCL21
+	ZERO?	GL-P-CONT \FALSE
+?CCL21:	EQUAL?	GL-PRSA,V?HELLO \?CCL26
+	PRINTR	"""'Ello."""
+?CCL26:	EQUAL?	GL-PRSA,V?GOODBYE \?CCL28
+	PRINTR	"""Ta ta."""
+?CCL28:	EQUAL?	GL-PRSA,V?THANK \?CCL30
+	PRINTR	"""Anytime, mate."""
+?CCL30:	CALL1	RT-TALK-VERB?
+	ZERO?	STACK /FALSE
+	PRINTR	"""Sorry, sir. No time to chat."""
+
+
+	.FUNCT	RT-AC-CH-GROWLER-CABBIE,CONTEXT
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	EQUAL?	GL-PRSA,V?WAIT \?CCL6
+	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,FALSE-VALUE
+	ICALL2	RT-CTHEO-PRINT,CH-GROWLER-CABBIE
+	PRINTR	" says brightly, ""Okay."""
+?CCL6:	EQUAL?	GL-PRSA,V?DRIVE,V?WALK-TO \?CCL8
+	CALL1	RT-CF-TH-GROWLER-CAB
+	RSTACK	
+?CCL8:	ICALL2	RT-CTHEO-PRINT,CH-GROWLER-CABBIE
+	PRINTR	" says brightly, ""Hello,"" and looks at you expectantly."
+?CCL3:	EQUAL?	GL-PRSA,V?PAY \?PRD12
+	ZERO?	GL-NOW-PRSI? /?CTR9
+?PRD12:	EQUAL?	GL-PRSA,V?GIVE \?CCL10
+	ZERO?	GL-NOW-PRSI? /?CCL10
+	FSET?	GL-PRSO,FL-MONEY \?CCL10
+?CTR9:	ICALL2	RT-CTHEO-PRINT,CH-GROWLER-CABBIE
+	PRINTR	" says brightly, ""No thanks. I'm not in it for the money. I just like to meet new people."""
+?CCL10:	EQUAL?	GL-PRSA,V?TELL \?CCL19
+	ZERO?	GL-NOW-PRSI? \?CCL19
+	ZERO?	GL-P-CONT \FALSE
+?CCL19:	CALL1	RT-TALK-VERB?
+	ZERO?	STACK /FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-GROWLER-CABBIE
+	PRINTR	" says brightly, ""Hello,"" and looks at you expectantly."
+
+
+	.FUNCT	RT-GET-ROOM-ID,HERE,TBL
+	INTBL?	HERE,CAB-ROOM-IDS,CAB-ROOM-IDS-LEN,1 >TBL \FALSE
+	LESS?	CAB-ROOM-IDS,0 \?CCL6
+	SUB	TBL,CAB-ROOM-IDS
+	ADD	STACK,1
+	RSTACK	
+?CCL6:	SUB	CAB-ROOM-IDS,TBL
+	ADD	STACK,1
+	RSTACK	
+
+
+	.FUNCT	RT-CAB-DIST,HERE,THERE,NUM1,NUM2,PTR,TMP
+	CALL2	RT-GET-ROOM-ID,HERE >NUM1
+	CALL2	RT-GET-ROOM-ID,THERE >NUM2
+	EQUAL?	HERE,THERE /FALSE
+	EQUAL?	NUM1,NUM2 /FALSE
+	LESS?	NUM1,NUM2 \?CND5
+	SET	'TMP,NUM1
+	SET	'NUM1,NUM2
+	SET	'NUM2,TMP
+?CND5:	SUB	NUM1,2 >NUM1
+?PRG7:	LESS?	NUM1,1 /?REP8
+	ADD	PTR,NUM1 >PTR
+	DEC	'NUM1
+	JUMP	?PRG7
+?REP8:	SUB	NUM2,1
+	ADD	PTR,STACK >PTR
+	GETB	GL-CAB-DIST-TBL,PTR
+	RSTACK	
+
+
+	.FUNCT	RT-I-CAB-ARRIVE,CAB,PLACE,NUM,SCORE,AUX1
+	SET	'NUM,TH-CAB-WHISTLE-AUX1
+	SET	'PLACE,TH-CAB-WHISTLE-AUX2
+	SET	'TH-CAB-WHISTLE-AUX1,0
+	SET	'TH-CAB-WHISTLE-AUX2,0
+	EQUAL?	GL-PLACE-CUR,PLACE \FALSE
+	EQUAL?	GL-PRSA,V?WALK /FALSE
+	EQUAL?	NUM,1 \?CCL8
+	SET	'CAB,TH-GROWLER-CAB
+	SET	'SCORE,0
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,5,0
+	ICALL	RT-ALARM-SET-REL,RT-I-GROWLER-LEAVE,STACK
+	ICALL2	RT-REMOVE-ALL,TH-GROWLER-CAB
+	MOVE	CH-GROWLER-CABBIE,TH-GROWLER-CAB
+	FSET	CH-GROWLER-CABBIE,FL-SEEN
+	JUMP	?CND6
+?CCL8:	EQUAL?	NUM,2 \FALSE
+	SET	'CAB,TH-HANSOM-CAB
+	SET	'SCORE,5
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,5,0
+	ICALL	RT-ALARM-SET-REL,RT-I-HANSOM-LEAVE,STACK
+	ICALL2	RT-REMOVE-ALL,TH-HANSOM-CAB
+	MOVE	CH-HANSOM-CABBIE,TH-HANSOM-CAB
+	FSET	CH-HANSOM-CABBIE,FL-SEEN
+?CND6:	ZERO?	SOUND-QUEUED? \?CND11
+	SET	'CAB-RAMP,2
+	ICALL1	RT-S-CAB-ARRIVES
+?CND11:	CRLF	
+	PRINTI	"A "
+	ICALL2	DPRINT,CAB
+	PRINTI	" pulls up beside you."
+	CRLF	
+	MOVE	CAB,GL-PLACE-CUR
+	EQUAL?	CAB,TH-HANSOM-CAB \?CCL15
+	SET	'AUX1,TH-HANSOM-CAB-AUX1
+	JUMP	?CND13
+?CCL15:	SET	'AUX1,TH-GROWLER-CAB-AUX1
+?CND13:	ZERO?	AUX1 \TRUE
+	EQUAL?	CAB,TH-HANSOM-CAB \?CCL20
+	SET	'TH-HANSOM-CAB-AUX1,1
+	JUMP	?CND18
+?CCL20:	SET	'TH-GROWLER-CAB-AUX1,1
+?CND18:	ZERO?	SCORE /TRUE
+	ICALL2	RT-UPDATE-SCORE,SCORE
+	RTRUE	
+
+
+	.FUNCT	RT-I-HANSOM-LEAVE
+	EQUAL?	GL-PLACE-CUR,RM-VICTORIA-SQUARE /?CND1
+	CALL2	RT-VISIBLE?,TH-HANSOM-CAB
+	ZERO?	STACK /?CND3
+	ICALL1	RT-S-CAB-LEAVES
+	ICALL2	RT-CTHEO-PRINT,TH-HANSOM-CAB
+	PRINTI	" drives off."
+	CRLF	
+?CND3:	MOVE	TH-HANSOM-CAB,RM-VICTORIA-SQUARE
+	ICALL2	RT-REMOVE-ALL,TH-HANSOM-CAB
+	MOVE	CH-HANSOM-CABBIE,TH-HANSOM-CAB
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+?CND1:	SET	'TH-HANSOM-CAB-AUX2,0
+	RFALSE	
+
+
+	.FUNCT	RT-I-HANSOM-TO?
+	IN?	CH-PLAYER,TH-HANSOM-CAB \FALSE
+	PRINTI	"""Where to mister?"""
+	CRLF	
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	CALL	RT-ALARM-SET-REL,RT-I-HANSOM-TO?,STACK
+	RSTACK	
+
+
+	.FUNCT	RT-I-GROWLER-LEAVE
+	EQUAL?	GL-PLACE-CUR,RM-OXFORD-ST /FALSE
+	CALL2	RT-VISIBLE?,TH-GROWLER-CAB
+	ZERO?	STACK /?CND3
+	ICALL1	RT-S-CAB-LEAVES
+	ICALL2	RT-CTHEO-PRINT,TH-GROWLER-CAB
+	PRINTI	" drives off."
+	CRLF	
+?CND3:	MOVE	TH-GROWLER-CAB,RM-OXFORD-ST
+	ICALL2	RT-REMOVE-ALL,TH-GROWLER-CAB
+	MOVE	CH-GROWLER-CABBIE,TH-GROWLER-CAB
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	RFALSE	
+
+
+	.FUNCT	RT-I-GROWLER-TO?
+	IN?	CH-PLAYER,TH-GROWLER-CAB \FALSE
+	CRLF	
+	PRINTI	"Suddenly the cabbie - who seems to have a low threshold of boredom - pipes up and says, ""I know where we can go!"""
+	CRLF	
+	CRLF	
+	PRINT	K-WILD-RIDE-MSG
+	CRLF	
+	ICALL1	RT-MOVE-GROWLER
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,5,0
+	ICALL	RT-ALARM-SET-REL,RT-I-GROWLER-TO?,STACK
+	CRLF	
+	CALL1	RT-DESC-ALL
+	RSTACK	
+
+
+	.FUNCT	RT-MOVE-HANSOM,ROOM,MIN
+	EQUAL?	GL-PLACE-CUR,ROOM \?CCL3
+	PRINTR	"""We're already here, guv."""
+?CCL3:	ZERO?	ROOM /FALSE
+	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,FALSE-VALUE
+	CALL	RT-CAB-DIST,GL-PLACE-CUR,ROOM
+	MUL	STACK,K-HANSOM-TIME >MIN
+	PRINTI	"""Right-o."""
+	CRLF	
+	CRLF	
+	MOVE	TH-HANSOM-CAB,ROOM
+	SET	'GL-PLACE-PRV,GL-PLACE-CUR
+	SET	'GL-PLACE-CUR,ROOM
+	IN?	CH-PLAYER,TH-HANSOM-CAB \?CCL8
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	EQUAL?	ROOM,RM-COVENT-GARDEN \?CCL11
+	SET	'LOOPING?,S-CROWD
+	SET	'LOOP-VOL,8
+	JUMP	?CND9
+?CCL11:	SET	'LOOPING?,FALSE-VALUE
+?CND9:	ICALL	SOUNDS,S-HORSE,S-START,4,6
+	PRINTI	"The cab speeds through the streets, "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND12
+	PRINTI	"deftly weaving in and out of the jubilee traffic and "
+?CND12:	PRINTI	"whizzing past famous landmarks. Only a few minutes later, you arrive at your destination."
+	CRLF	
+	CRLF	
+	ICALL1	RT-DESC-ALL
+	JUMP	?CND6
+?CCL8:	ICALL1	RT-S-CAB-LEAVES
+	PRINTI	"The cab drives off."
+	CRLF	
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,30,0
+	ICALL	RT-ALARM-SET-REL,RT-I-HANSOM-LEAVE,STACK
+?CND6:	ICALL2	RT-ALARM-CLR,RT-I-HANSOM-LEAVE
+	ICALL	RT-CLOCK-JMP,0,MIN,0
+	RTRUE	
+
+
+	.FUNCT	RT-MOVE-GROWLER,ROOM,NUM,MIN
+	RANDOM	37 >NUM
+	EQUAL?	NUM,1 \?CCL3
+	SET	'ROOM,RM-AUDLEY-ST
+	JUMP	?CND1
+?CCL3:	EQUAL?	NUM,2 \?CCL5
+	SET	'ROOM,RM-221B-BAKER-ST
+	JUMP	?CND1
+?CCL5:	EQUAL?	NUM,3 \?CCL7
+	SET	'ROOM,RM-BIRDCAGE-WALK
+	JUMP	?CND1
+?CCL7:	EQUAL?	NUM,5 \?CCL9
+	SET	'ROOM,RM-BROAD-SANCTUARY
+	JUMP	?CND1
+?CCL9:	EQUAL?	NUM,6 \?CCL11
+	SET	'ROOM,RM-BUCKINGHAM-PALACE-RD
+	JUMP	?CND1
+?CCL11:	EQUAL?	NUM,7 \?CCL13
+	SET	'ROOM,RM-CHEAPSIDE
+	JUMP	?CND1
+?CCL13:	EQUAL?	NUM,8 \?CCL15
+	SET	'ROOM,RM-COVENT-GARDEN
+	JUMP	?CND1
+?CCL15:	EQUAL?	NUM,9 \?CCL17
+	SET	'ROOM,RM-THE-EMBANKMENT
+	JUMP	?CND1
+?CCL17:	EQUAL?	NUM,10 \?CCL19
+	SET	'ROOM,RM-FLEET-STREET
+	JUMP	?CND1
+?CCL19:	EQUAL?	NUM,11 \?CCL21
+	SET	'ROOM,RM-GREAT-RUSSELL-ST
+	JUMP	?CND1
+?CCL21:	EQUAL?	NUM,12 \?CCL23
+	SET	'ROOM,RM-GROSVENOR-PLACE
+	JUMP	?CND1
+?CCL23:	EQUAL?	NUM,13 \?CCL25
+	SET	'ROOM,RM-HYDE-PARK-CORNER
+	JUMP	?CND1
+?CCL25:	EQUAL?	NUM,14 \?CCL27
+	SET	'ROOM,RM-KENSINGTON-GARDENS
+	JUMP	?CND1
+?CCL27:	EQUAL?	NUM,15 \?CCL29
+	SET	'ROOM,RM-KING-WILLIAM-ST
+	JUMP	?CND1
+?CCL29:	EQUAL?	NUM,16 \?CCL31
+	SET	'ROOM,RM-LONDON-BRIDGE
+	JUMP	?CND1
+?CCL31:	EQUAL?	NUM,17 \?CCL33
+	SET	'ROOM,RM-LOWER-THAMES-ST
+	JUMP	?CND1
+?CCL33:	EQUAL?	NUM,18 \?CCL35
+	SET	'ROOM,RM-THE-MALL
+	JUMP	?CND1
+?CCL35:	EQUAL?	NUM,19 \?CCL37
+	SET	'ROOM,RM-MARYLEBONE-RD
+	JUMP	?CND1
+?CCL37:	EQUAL?	NUM,20 \?CCL39
+	SET	'ROOM,RM-MONUMENT
+	JUMP	?CND1
+?CCL39:	EQUAL?	NUM,21 \?CCL41
+	SET	'ROOM,RM-NEW-OXFORD-ST
+	JUMP	?CND1
+?CCL41:	EQUAL?	NUM,22 \?CCL43
+	SET	'ROOM,RM-OXFORD-ST
+	JUMP	?CND1
+?CCL43:	EQUAL?	NUM,23 \?CCL45
+	SET	'ROOM,RM-ORCHARD-ST
+	JUMP	?CND1
+?CCL45:	EQUAL?	NUM,24 \?CCL47
+	SET	'ROOM,RM-PARLIAMENT-SQUARE
+	JUMP	?CND1
+?CCL47:	EQUAL?	NUM,25 \?CCL49
+	SET	'ROOM,RM-PINCHIN-LANE
+	JUMP	?CND1
+?CCL49:	EQUAL?	NUM,26 \?CCL51
+	SET	'ROOM,RM-QUEENS-GARDENS
+	JUMP	?CND1
+?CCL51:	EQUAL?	NUM,27 \?CCL53
+	SET	'ROOM,RM-ST-GILES-CIRCUS
+	JUMP	?CND1
+?CCL53:	EQUAL?	NUM,28 \?CCL55
+	SET	'ROOM,RM-THE-STRAND
+	JUMP	?CND1
+?CCL55:	EQUAL?	NUM,29 \?CCL57
+	SET	'ROOM,RM-THREADNEEDLE-ST
+	JUMP	?CND1
+?CCL57:	EQUAL?	NUM,30 \?CCL59
+	SET	'ROOM,RM-TOTTENHAM-COURT-RD
+	JUMP	?CND1
+?CCL59:	EQUAL?	NUM,31 \?CCL61
+	SET	'ROOM,RM-TOWER-ENTRANCE
+	JUMP	?CND1
+?CCL61:	EQUAL?	NUM,32 \?CCL63
+	SET	'ROOM,RM-TRAFALGAR-SQUARE
+	JUMP	?CND1
+?CCL63:	EQUAL?	NUM,33 \?CCL65
+	SET	'ROOM,RM-UPPER-THAMES-ST
+	JUMP	?CND1
+?CCL65:	EQUAL?	NUM,34 \?CCL67
+	SET	'ROOM,RM-VICTORIA-STREET
+	JUMP	?CND1
+?CCL67:	EQUAL?	NUM,35 \?CCL69
+	SET	'ROOM,RM-VICTORIA-SQUARE
+	JUMP	?CND1
+?CCL69:	EQUAL?	NUM,36 \?CCL71
+	SET	'ROOM,RM-WHITEHALL
+	JUMP	?CND1
+?CCL71:	EQUAL?	NUM,37 \?CCL73
+	SET	'ROOM,RM-YORK-PLACE
+	JUMP	?CND1
+?CCL73:	PRINTI	"This is odd..."
+	CRLF	
+	CRLF	
+	SET	'ROOM,RM-KENSINGTON-GARDENS
+?CND1:	CALL	RT-CAB-DIST,GL-PLACE-CUR,ROOM
+	MUL	STACK,K-GROWLER-TIME >MIN
+	EQUAL?	ROOM,RM-COVENT-GARDEN \?CCL76
+	SET	'LOOPING?,S-CROWD
+	SET	'LOOP-VOL,8
+	JUMP	?CND74
+?CCL76:	SET	'LOOPING?,FALSE-VALUE
+?CND74:	ICALL	SOUNDS,S-HORSE,S-START,4,6
+	MOVE	TH-GROWLER-CAB,ROOM
+	SET	'GL-PLACE-PRV,GL-PLACE-CUR
+	SET	'GL-PLACE-CUR,ROOM
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	CALL	RT-CLOCK-JMP,0,MIN,0
+	RSTACK	
+
+
+	.FUNCT	RT-CF-TH-HANSOM-CAB,CONTEXT,WRD,ADJ
+	IN?	CH-PLAYER,TH-HANSOM-CAB \?CND1
+	SET	'GL-WHERE-TO-PROMPT?,TRUE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,TRUE-VALUE
+?CND1:	EQUAL?	GL-PRSA,V?WALK \?CCL5
+	EQUAL?	GL-P-WALK-DIR,P?OUT \?CCL5
+	CALL	RT-PERFORM,V?EXIT,TH-HANSOM-CAB
+	RSTACK	
+?CCL5:	EQUAL?	GL-PRSA,V?WALK \?PRD11
+	EQUAL?	GL-WINNER,CH-PLAYER /?CTR8
+?PRD11:	EQUAL?	GL-PRSA,V?ENTER \?CCL9
+	EQUAL?	GL-PRSO,TH-HANSOM-CAB /?CCL9
+?CTR8:	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?797,TH-HANSOM-CAB
+	PRINTR	" first."
+?CCL9:	EQUAL?	GL-PRSA,V?DRIVE,V?WALK-TO \?CCL17
+	GET	GL-P-NAMW,0 >WRD
+	GET	GL-P-ADJW,0 >ADJ
+	EQUAL?	GL-PRSO,RM-AUDLEY-ST \?CCL20
+	CALL2	RT-MOVE-HANSOM,RM-AUDLEY-ST
+	RSTACK	
+?CCL20:	EQUAL?	GL-PRSO,RM-221B-BAKER-ST,RM-ENTRY-HALL \?CCL22
+	CALL2	RT-MOVE-HANSOM,RM-221B-BAKER-ST
+	RSTACK	
+?CCL22:	EQUAL?	GL-PRSO,RM-BIRDCAGE-WALK \?CCL24
+	CALL2	RT-MOVE-HANSOM,RM-BIRDCAGE-WALK
+	RSTACK	
+?CCL24:	EQUAL?	GL-PRSO,RM-BROAD-SANCTUARY,LG-TOMBS-ABBEY \?CCL26
+	CALL2	RT-MOVE-HANSOM,RM-BROAD-SANCTUARY
+	RSTACK	
+?CCL26:	EQUAL?	GL-PRSO,RM-BUCKINGHAM-PALACE-RD \?CCL28
+	CALL2	RT-MOVE-HANSOM,RM-BUCKINGHAM-PALACE-RD
+	RSTACK	
+?CCL28:	EQUAL?	GL-PRSO,RM-CHEAPSIDE \?CCL30
+	CALL2	RT-MOVE-HANSOM,RM-CHEAPSIDE
+	RSTACK	
+?CCL30:	EQUAL?	GL-PRSO,RM-COVENT-GARDEN \?CCL32
+	CALL2	RT-MOVE-HANSOM,RM-COVENT-GARDEN
+	RSTACK	
+?CCL32:	EQUAL?	GL-PRSO,RM-THE-EMBANKMENT,LG-WATER \?CCL34
+	CALL2	RT-MOVE-HANSOM,RM-THE-EMBANKMENT
+	RSTACK	
+?CCL34:	EQUAL?	GL-PRSO,RM-FLEET-STREET \?CCL36
+	CALL2	RT-MOVE-HANSOM,RM-FLEET-STREET
+	RSTACK	
+?CCL36:	EQUAL?	GL-PRSO,RM-GREAT-RUSSELL-ST,RM-BRITISH-MUSEUM \?CCL38
+	CALL2	RT-MOVE-HANSOM,RM-GREAT-RUSSELL-ST
+	RSTACK	
+?CCL38:	EQUAL?	GL-PRSO,RM-GROSVENOR-PLACE \?CCL40
+	CALL2	RT-MOVE-HANSOM,RM-GROSVENOR-PLACE
+	RSTACK	
+?CCL40:	EQUAL?	GL-PRSO,RM-HYDE-PARK-CORNER \?CCL42
+	CALL2	RT-MOVE-HANSOM,RM-HYDE-PARK-CORNER
+	RSTACK	
+?CCL42:	EQUAL?	GL-PRSO,RM-KENSINGTON-GARDENS \?CCL44
+	CALL2	RT-MOVE-HANSOM,RM-KENSINGTON-GARDENS
+	RSTACK	
+?CCL44:	EQUAL?	GL-PRSO,RM-KING-WILLIAM-ST \?CCL46
+	CALL2	RT-MOVE-HANSOM,RM-KING-WILLIAM-ST
+	RSTACK	
+?CCL46:	EQUAL?	GL-PRSO,RM-LONDON-BRIDGE \?CCL48
+	CALL2	RT-MOVE-HANSOM,RM-LONDON-BRIDGE
+	RSTACK	
+?CCL48:	EQUAL?	GL-PRSO,RM-LOWER-THAMES-ST,RM-BAR-OF-GOLD,RM-SWAN-LANE \?CCL50
+	CALL2	RT-MOVE-HANSOM,RM-LOWER-THAMES-ST
+	RSTACK	
+?CCL50:	EQUAL?	GL-PRSO,RM-THE-MALL \?CCL52
+	CALL2	RT-MOVE-HANSOM,RM-THE-MALL
+	RSTACK	
+?CCL52:	EQUAL?	GL-PRSO,RM-MARYLEBONE-RD,RM-MADAME-TUSSAUDS \?CCL54
+	CALL2	RT-MOVE-HANSOM,RM-MARYLEBONE-RD
+	RSTACK	
+?CCL54:	EQUAL?	WRD,W?MONUMENT \?PRD58
+	EQUAL?	ADJ,FALSE-VALUE /?CTR55
+?PRD58:	EQUAL?	GL-PRSO,RM-MONUMENT \?CCL56
+?CTR55:	CALL2	RT-MOVE-HANSOM,RM-MONUMENT
+	RSTACK	
+?CCL56:	EQUAL?	GL-PRSO,RM-NEW-OXFORD-ST \?CCL62
+	CALL2	RT-MOVE-HANSOM,RM-NEW-OXFORD-ST
+	RSTACK	
+?CCL62:	EQUAL?	WRD,W?STREET,W?ST \?PRD66
+	EQUAL?	ADJ,W?OXFORD /?CTR63
+?PRD66:	EQUAL?	GL-PRSO,RM-OXFORD-ST \?CCL64
+?CTR63:	CALL2	RT-MOVE-HANSOM,RM-OXFORD-ST
+	RSTACK	
+?CCL64:	EQUAL?	GL-PRSO,RM-ORCHARD-ST \?CCL70
+	CALL2	RT-MOVE-HANSOM,RM-ORCHARD-ST
+	RSTACK	
+?CCL70:	EQUAL?	GL-PRSO,RM-PARLIAMENT-SQUARE,RM-PARLIAMENT,TH-BELL \?CCL72
+	CALL2	RT-MOVE-HANSOM,RM-PARLIAMENT-SQUARE
+	RSTACK	
+?CCL72:	EQUAL?	GL-PRSO,RM-PINCHIN-LANE,RM-SHERMANS-HOUSE \?CCL74
+	CALL2	RT-MOVE-HANSOM,RM-PINCHIN-LANE
+	RSTACK	
+?CCL74:	EQUAL?	GL-PRSO,RM-QUEENS-GARDENS,RM-BUCKINGHAM-PALACE \?CCL76
+	CALL2	RT-MOVE-HANSOM,RM-QUEENS-GARDENS
+	RSTACK	
+?CCL76:	EQUAL?	GL-PRSO,RM-ST-GILES-CIRCUS \?CCL78
+	CALL2	RT-MOVE-HANSOM,RM-ST-GILES-CIRCUS
+	RSTACK	
+?CCL78:	EQUAL?	GL-PRSO,RM-THE-STRAND \?CCL80
+	CALL2	RT-MOVE-HANSOM,RM-THE-STRAND
+	RSTACK	
+?CCL80:	EQUAL?	GL-PRSO,RM-THREADNEEDLE-ST,RM-BANK-OF-ENGLAND \?CCL82
+	CALL2	RT-MOVE-HANSOM,RM-THREADNEEDLE-ST
+	RSTACK	
+?CCL82:	EQUAL?	GL-PRSO,RM-TOTTENHAM-COURT-RD \?CCL84
+	CALL2	RT-MOVE-HANSOM,RM-TOTTENHAM-COURT-RD
+	RSTACK	
+?CCL84:	EQUAL?	WRD,W?TOWER /?CTR85
+	EQUAL?	GL-PRSO,RM-TOWER-ENTRANCE,LG-TOWER,RM-DRAWBRIDGE \?CCL86
+?CTR85:	CALL2	RT-MOVE-HANSOM,RM-TOWER-ENTRANCE
+	RSTACK	
+?CCL86:	EQUAL?	GL-PRSO,RM-TRAFALGAR-SQUARE,RM-DIOGENES-CLUB \?CCL90
+	CALL2	RT-MOVE-HANSOM,RM-TRAFALGAR-SQUARE
+	RSTACK	
+?CCL90:	EQUAL?	GL-PRSO,RM-UPPER-THAMES-ST \?CCL92
+	CALL2	RT-MOVE-HANSOM,RM-UPPER-THAMES-ST
+	RSTACK	
+?CCL92:	EQUAL?	GL-PRSO,RM-VICTORIA-STREET \?CCL94
+	CALL2	RT-MOVE-HANSOM,RM-VICTORIA-STREET
+	RSTACK	
+?CCL94:	EQUAL?	GL-PRSO,RM-VICTORIA-SQUARE \?CCL96
+	CALL2	RT-MOVE-HANSOM,RM-VICTORIA-SQUARE
+	RSTACK	
+?CCL96:	EQUAL?	GL-PRSO,RM-WHITEHALL,RM-SCOTLAND-YARD \?CCL98
+	CALL2	RT-MOVE-HANSOM,RM-WHITEHALL
+	RSTACK	
+?CCL98:	EQUAL?	GL-PRSO,RM-YORK-PLACE \FALSE
+	CALL2	RT-MOVE-HANSOM,RM-YORK-PLACE
+	RSTACK	
+?CCL17:	EQUAL?	GL-PRSA,V?STAND,V?STAND-ON,V?LEAP \?CCL102
+	PRINT	K-ENOUGH-ROOM-MSG
+	CRLF	
+	RTRUE	
+?CCL102:	EQUAL?	GL-PRSA,V?SIT \?CCL104
+	PRINTR	"You're already seated."
+?CCL104:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	EQUAL?	GL-PRSO,FALSE-VALUE,ROOMS /?CND107
+	IN?	GL-PRSO,GLOBAL-OBJECTS /?CND107
+	CALL	RT-META-IN?,GL-PRSO,TH-HANSOM-CAB
+	ZERO?	STACK \?CND107
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot reach "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CND107:	EQUAL?	GL-PRSI,FALSE-VALUE,ROOMS /FALSE
+	IN?	GL-PRSI,GLOBAL-OBJECTS /FALSE
+	FSET?	GL-PRSI,FL-PERSON \?CCL119
+	IN?	GL-PRSI,GL-PLACE-CUR /FALSE
+?CCL119:	CALL	RT-META-IN?,GL-PRSI,TH-HANSOM-CAB
+	ZERO?	STACK \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot reach "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-CF-TH-GROWLER-CAB,CONTEXT
+	IN?	CH-PLAYER,TH-GROWLER-CAB \?CND1
+	SET	'GL-WHERE-TO-PROMPT?,TRUE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,TRUE-VALUE
+?CND1:	EQUAL?	GL-PRSA,V?WALK \?CCL5
+	EQUAL?	GL-P-WALK-DIR,P?OUT \?CCL5
+	CALL	RT-PERFORM,V?EXIT,TH-GROWLER-CAB
+	RSTACK	
+?CCL5:	EQUAL?	GL-PRSA,V?WALK \?PRD11
+	EQUAL?	GL-WINNER,CH-PLAYER /?CTR8
+?PRD11:	EQUAL?	GL-PRSA,V?ENTER \?CCL9
+	EQUAL?	GL-PRSO,TH-GROWLER-CAB /?CCL9
+?CTR8:	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?797,TH-GROWLER-CAB
+	PRINTR	" first."
+?CCL9:	EQUAL?	GL-PRSA,V?DRIVE,V?WALK-TO \?CCL17
+	PRINTI	"""Oh good! I've never been THERE before."""
+	CRLF	
+	CRLF	
+	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,FALSE-VALUE
+	ICALL2	RT-ALARM-CLR,RT-I-GROWLER-TO?
+	ICALL2	RT-ALARM-CLR,RT-I-GROWLER-LEAVE
+	ICALL1	RT-MOVE-GROWLER
+	IN?	CH-PLAYER,TH-GROWLER-CAB \?CCL20
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	PRINT	K-WILD-RIDE-MSG
+	CRLF	
+	CRLF	
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,5,0
+	ICALL	RT-ALARM-SET-REL,RT-I-GROWLER-TO?,STACK
+	ICALL1	RT-DESC-ALL
+	RTRUE	
+?CCL20:	PRINTI	"The cab drives off."
+	CRLF	
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,30,0
+	ICALL	RT-ALARM-SET-REL,RT-I-GROWLER-LEAVE,STACK
+	RTRUE	
+?CCL17:	EQUAL?	GL-PRSA,V?STAND,V?STAND-ON,V?LEAP \?CCL22
+	PRINT	K-ENOUGH-ROOM-MSG
+	CRLF	
+	RTRUE	
+?CCL22:	EQUAL?	GL-PRSA,V?SIT \?CCL24
+	PRINTR	"You're already seated."
+?CCL24:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	EQUAL?	GL-PRSO,FALSE-VALUE,ROOMS /?CND27
+	IN?	GL-PRSO,GLOBAL-OBJECTS /?CND27
+	CALL	RT-META-IN?,GL-PRSO,TH-GROWLER-CAB
+	ZERO?	STACK \?CND27
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot reach "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CND27:	EQUAL?	GL-PRSI,FALSE-VALUE,ROOMS /FALSE
+	IN?	GL-PRSI,GLOBAL-OBJECTS /FALSE
+	CALL	RT-META-IN?,GL-PRSI,TH-GROWLER-CAB
+	ZERO?	STACK \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot reach "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-BLOW-WHISTLE,WHO,WHO2,L,?TMP1
+	LOC	TH-HANSOM-CAB >?TMP1
+	LOC	TH-GROWLER-CAB
+	EQUAL?	GL-PLACE-CUR,?TMP1,STACK \?CCL3
+	PRINT	K-CAB-HERE-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	PRINTI	"Tweeeeeeeeee!"
+	CRLF	
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL6
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CND7
+	FSET?	CH-HOLMES,FL-ASLEEP \?CND7
+	PRINT	K-HOLMES-DISTRACTION-MSG
+	CRLF	
+	RTRUE	
+?CND7:	CALL1	RT-ANYONE-HERE? >WHO
+	ZERO?	WHO /TRUE
+	LOC	WHO >L
+	REMOVE	WHO
+	CALL1	RT-ANYONE-HERE? >WHO2
+	ZERO?	WHO2 /?CCL15
+	PRINTI	"Everyone holds their hands to their "
+	JUMP	?CND13
+?CCL15:	ICALL2	RT-CTHEO-PRINT,WHO
+	PRINTI	" hold"
+	ICALL2	RT-S-NOS-MSG,WHO
+	PRINTC	32
+	ICALL2	RT-YOUR-MSG,WHO
+	PRINTI	"hands to "
+	ICALL2	RT-YOUR-MSG,WHO
+?CND13:	MOVE	WHO,L
+	PRINTI	"ears and glare"
+	ICALL2	RT-S-NOS-MSG,WHO
+	PRINTR	" at you."
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-TOWER-GREEN,RM-OUTER-WARD,RM-BYWARD-TOWER /TRUE
+	EQUAL?	GL-PLACE-CUR,RM-INSIDE-TRAITORS-GATE,RM-OUTSIDE-TRAITORS-GATE,RM-DRAWBRIDGE /TRUE
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-ONE,RM-THAMES-TWO,RM-THAMES-THREE /TRUE
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-FOUR,RM-THAMES-FIVE,RM-SWAN-LANE /TRUE
+	INC	'TH-CAB-WHISTLE-AUX1
+	SET	'TH-CAB-WHISTLE-AUX2,GL-PLACE-CUR
+	CALL2	RT-ALARM-SET?,RT-I-CAB-ARRIVE
+	ZERO?	STACK \TRUE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-CAB-ARRIVE,STACK
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-HANSOM-CAB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It is a small cab with two wheels and room for only two persons, drawn by a single horse."
+?CCL3:	EQUAL?	GL-PRSA,V?ENTER \?CCL5
+	EQUAL?	GL-PRSO,ROOMS,TH-HANSOM-CAB \?CCL5
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CCL10
+	PRINT	K-HEAVY-ARMOUR-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	IN?	GL-WINNER,TH-HANSOM-CAB /FALSE
+	MOVE	GL-WINNER,TH-HANSOM-CAB
+	ZERO?	GL-PUPPY /?CCL15
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL15
+	MOVE	GL-PUPPY,TH-HANSOM-CAB
+	PRINTI	"You and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND13
+?CCL15:	ICALL	RT-CYOU-MSG,STR?753,STR?754
+?CND13:	FSET	TH-HANSOM-CAB,FL-NODESC
+	ICALL2	RT-ALARM-CLR,RT-I-HANSOM-LEAVE
+	SET	'TH-HANSOM-CAB-AUX2,0
+	SET	'GL-WHERE-TO-PROMPT?,TRUE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,TRUE-VALUE
+	PRINTR	"into the cab."
+?CCL5:	EQUAL?	GL-PRSA,V?EXIT \?CCL19
+	EQUAL?	GL-PRSO,ROOMS,TH-HANSOM-CAB \?CCL19
+	IN?	CH-PLAYER,TH-HANSOM-CAB \FALSE
+	MOVE	GL-WINNER,GL-PLACE-CUR
+	ZERO?	GL-PUPPY /?CCL27
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL27
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+	PRINTI	"You and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND25
+?CCL27:	ICALL	RT-CYOU-MSG,STR?753,STR?754
+?CND25:	PRINTI	"out of the cab."
+	FCLEAR	TH-HANSOM-CAB,FL-NODESC
+	ZERO?	TH-HANSOM-CAB-AUX2 \?CND30
+	IN?	CH-PLAYER,TH-HANSOM-CAB /?CND30
+	ZERO?	GL-PUPPY /?PRD35
+	IN?	GL-PUPPY,TH-HANSOM-CAB /?CND30
+?PRD35:	EQUAL?	GL-PLACE-CUR,RM-VICTORIA-SQUARE /?CND30
+	PRINTI	" After"
+	ICALL	RT-YOU-MSG,STR?753,STR?754
+	PRINTI	"out, it drives off."
+	ICALL1	RT-S-CAB-LEAVES
+	MOVE	TH-HANSOM-CAB,RM-VICTORIA-SQUARE
+	ICALL2	RT-REMOVE-ALL,TH-HANSOM-CAB
+	MOVE	CH-HANSOM-CABBIE,TH-HANSOM-CAB
+	ICALL2	RT-ALARM-CLR,RT-I-HANSOM-LEAVE
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+?CND30:	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,FALSE-VALUE
+	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	GL-PRSA,V?LOOK-ON \?CCL39
+	PRINTR	"There is a cab driver sitting on the hansom."
+?CCL39:	EQUAL?	GL-PRSA,V?TAKE,V?PUSH-TO \?CCL41
+	ZERO?	GL-NOW-PRSI? \?CCL41
+	PRINT	K-TAKE-CAB-MSG
+	CRLF	
+	RETURN	2
+?CCL41:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-GROWLER-CAB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It is a large cab with four wheels and room for four persons, drawn by a single horse."
+?CCL3:	EQUAL?	GL-PRSA,V?ENTER \?CCL5
+	EQUAL?	GL-PRSO,ROOMS,TH-GROWLER-CAB \?CCL5
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CCL10
+	PRINT	K-HEAVY-ARMOUR-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	IN?	GL-WINNER,TH-GROWLER-CAB /FALSE
+	MOVE	GL-WINNER,TH-GROWLER-CAB
+	ZERO?	GL-PUPPY /?CCL15
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL15
+	MOVE	GL-PUPPY,TH-GROWLER-CAB
+	PRINTI	"You and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND13
+?CCL15:	ICALL	RT-CYOU-MSG,STR?753,STR?754
+?CND13:	FSET	TH-GROWLER-CAB,FL-NODESC
+	ICALL2	RT-ALARM-CLR,RT-I-GROWLER-LEAVE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,5,0
+	ICALL	RT-ALARM-SET-REL,RT-I-GROWLER-TO?,STACK
+	SET	'GL-WHERE-TO-PROMPT?,TRUE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,TRUE-VALUE
+	PRINTR	"into the cab."
+?CCL5:	EQUAL?	GL-PRSA,V?EXIT \?CCL19
+	EQUAL?	GL-PRSO,ROOMS,TH-GROWLER-CAB \?CCL19
+	IN?	CH-PLAYER,TH-GROWLER-CAB \FALSE
+	MOVE	GL-WINNER,GL-PLACE-CUR
+	ZERO?	GL-PUPPY /?CCL27
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL27
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+	PRINTI	"You and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND25
+?CCL27:	ICALL	RT-CYOU-MSG,STR?753,STR?754
+?CND25:	PRINTI	"out of the cab."
+	FCLEAR	TH-GROWLER-CAB,FL-NODESC
+	IN?	CH-PLAYER,TH-GROWLER-CAB /?CND30
+	ZERO?	GL-PUPPY /?PRD34
+	IN?	GL-PUPPY,TH-GROWLER-CAB /?CND30
+?PRD34:	EQUAL?	GL-PLACE-CUR,RM-OXFORD-ST /?CND30
+	PRINTI	" After"
+	ICALL	RT-YOU-MSG,STR?753,STR?754
+	PRINTI	"out, it drives off."
+	ICALL1	RT-S-CAB-LEAVES
+	MOVE	TH-GROWLER-CAB,RM-OXFORD-ST
+	ICALL2	RT-REMOVE-ALL,TH-GROWLER-CAB
+	MOVE	CH-GROWLER-CABBIE,TH-GROWLER-CAB
+	ICALL2	RT-ALARM-CLR,RT-I-GROWLER-LEAVE
+	ICALL2	RT-ALARM-CLR,RT-I-GROWLER-TO?
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+?CND30:	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	SET	'GL-WHERE-TO-ORPH?,FALSE-VALUE
+	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	GL-PRSA,V?LOOK-ON \?CCL38
+	PRINTR	"There is a cab driver sitting on the growler."
+?CCL38:	EQUAL?	GL-PRSA,V?TAKE,V?PUSH-TO \?CCL40
+	ZERO?	GL-NOW-PRSI? \?CCL40
+	PRINT	K-TAKE-CAB-MSG
+	CRLF	
+	RETURN	2
+?CCL40:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-CAB-WHISTLE
+	EQUAL?	GL-PRSA,V?BLOW-INTO \?CCL3
+	ZERO?	GL-NOW-PRSI? \?CCL3
+	CALL1	RT-BLOW-WHISTLE
+	RSTACK	
+?CCL3:	EQUAL?	GL-PRSA,V?CALL \?CCL7
+	ZERO?	GL-NOW-PRSI? /?CCL7
+	EQUAL?	GL-PRSO,TH-HANSOM-CAB \?CCL12
+	ICALL1	RT-BLOW-WHISTLE
+	CALL2	RT-ALARM-SET?,RT-I-CAB-ARRIVE
+	ZERO?	STACK /TRUE
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,0,2,0
+	ICALL1	RT-BLOW-WHISTLE
+	RTRUE	
+?CCL12:	EQUAL?	GL-PRSO,TH-GROWLER-CAB \?CCL16
+	ICALL1	RT-BLOW-WHISTLE
+	CALL2	RT-ALARM-SET?,RT-I-CAB-ARRIVE
+	ZERO?	STACK /TRUE
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,0,2,0
+	RTRUE	
+?CCL16:	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?CAB \?CCL20
+	CALL1	RT-BLOW-WHISTLE
+	RSTACK	
+?CCL20:	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-A-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL7:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+	.ENDI
diff --git a/cab.zil b/cab.zil
new file mode 100644
index 0000000..246830a
--- /dev/null
+++ b/cab.zil
@@ -0,0 +1,786 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : CAB.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   28 Oct 1987  4:35:40  $"
+; "rev  : $Revision:   1.63  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<OBJECT CH-HANSOM-CABBIE
+	(LOC TH-HANSOM-CAB)
+	(DESC "hansom cabbie")
+	(FLAGS FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL)
+	(SYNONYM CABBIE DRIVER)
+	(ADJECTIVE HANSOM)
+	(SIZE 99)
+	(ACTION RT-AC-CH-HANSOM-CABBIE)>
+
+<OBJECT CH-GROWLER-CABBIE
+	(LOC TH-GROWLER-CAB)
+	(DESC "growler cabbie")
+	(FLAGS FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL)
+	(SYNONYM CABBIE DRIVER ;FLOYD)
+	(ADJECTIVE GROWLER)
+	(SIZE 99)
+	(ACTION RT-AC-CH-GROWLER-CABBIE)>
+
+<ROUTINE RT-AC-CH-HANSOM-CABBIE ("OPTIONAL" (CONTEXT <>))
+     <DEBUGGING? <RT-DEBUG-CH-AC "CH-HANSOM-CABBIE" .CONTEXT>>
+     <COND (<MC-THIS-WINNER?>
+	    <COND (<MC-VERB? WAIT>
+		   <SETG GL-WHERE-TO-PROMPT? <>>
+		   <SETG GL-WHERE-TO-ORPH? <>>
+		   <TELL "\"Right-o.\"" CR>
+		   <SETG TH-HANSOM-CAB-AUX2 1>
+		   <RT-ALARM-CLR ,RT-I-HANSOM-LEAVE>
+		   <RT-ALARM-SET-REL ,RT-I-HANSOM-LEAVE <RT-PARM-SET 0 30 0>>)
+		  (<MC-VERB? DRIVE WALK-TO>
+		   <RT-CF-TH-HANSOM-CAB>)
+		  (<MC-VERB? HELLO GOODBYE THANK>
+		   <SETG GL-WINNER ,CH-PLAYER>
+		   <RT-PERFORM ,GL-PRSA ,CH-HANSOM-CABBIE>)
+		  (T
+		   <TELL "\"Sorry, guv. All I does is drives a cab.\"" CR>)>)
+	   (<OR <AND <MC-VERB? PAY>
+		     <MC-THIS-PRSO?>>
+		<AND <MC-VERB? GIVE>
+		     <MC-THIS-PRSI?>
+		     <MC-IS? ,GL-PRSO ,FL-MONEY>>>
+	    <TELL
+"\"No thanks, guv'nor. It'll go on Mr 'Olmes's monthly account.\"" CR>)
+	   (<AND <MC-VERB? TELL>
+		 <MC-THIS-PRSO?>
+		 ,GL-P-CONT>
+	    <RFALSE>)
+	   (<MC-VERB? HELLO>
+	    <TELL "\"'Ello.\"" CR>)
+	   (<MC-VERB? GOODBYE>
+	    <TELL "\"Ta ta.\"" CR>)
+	   (<MC-VERB? THANK>
+	    <TELL "\"Anytime, mate.\"" CR>)
+	   (<RT-TALK-VERB?>
+	    <TELL "\"Sorry, sir. No time to chat.\"" CR>)>>
+
+<ROUTINE RT-AC-CH-GROWLER-CABBIE ("OPTIONAL" (CONTEXT <>))
+   <DEBUGGING? <RT-DEBUG-CH-AC "CH-GROWLER-CABBIE" .CONTEXT>>
+   <COND (<MC-THIS-WINNER?>
+	  <COND (<MC-VERB? WAIT>
+		 <SETG GL-WHERE-TO-PROMPT? <>>
+		 <SETG GL-WHERE-TO-ORPH? <>>
+		 <TELL CTHE ,CH-GROWLER-CABBIE " says brightly, \"Okay.\"" CR>)
+		(<MC-VERB? DRIVE WALK-TO>
+		 <RT-CF-TH-GROWLER-CAB>)
+		(T
+		 <TELL CTHE ,CH-GROWLER-CABBIE " says brightly, \"Hello,\"
+and looks at you expectantly." CR>)>)
+	 (<OR <AND <MC-VERB? PAY>
+		   <MC-THIS-PRSO?>>
+	      <AND <MC-VERB? GIVE>
+		   <MC-THIS-PRSI?>
+		   <MC-IS? ,GL-PRSO ,FL-MONEY>>>
+	  <TELL
+CTHE ,CH-GROWLER-CABBIE " says brightly, \"No thanks. I'm not in it for the
+money. I just like to meet new people.\"" CR>)
+	 (<AND <MC-VERB? TELL>
+	       <MC-THIS-PRSO?>
+	       ,GL-P-CONT>
+	  <RFALSE>)
+	 (<RT-TALK-VERB?>
+	  <TELL CTHE ,CH-GROWLER-CABBIE " says brightly, \"Hello,\" and looks
+at you expectantly." CR>)>>
+
+; "This was formerly contained in the AUX1 properties of the rooms in the
+   table.  Since it's just the numbers from 1 to 37, we can play horrible
+   games by subtracting the initial pointer and the INTBL? pointer instead.
+   It's a byte table because we order objects ROOMS-FIRST"
+
+<CONSTANT CAB-ROOM-IDS-LEN 37>
+
+<CONSTANT CAB-ROOM-IDS
+  <TABLE (PURE BYTE)
+	 RM-221B-BAKER-ST ;1
+	 RM-YORK-PLACE ;2
+	 RM-MARYLEBONE-RD ;3
+	 RM-TOTTENHAM-COURT-RD ;4
+	 RM-ST-GILES-CIRCUS ;5
+	 RM-OXFORD-ST ;6
+	 RM-ORCHARD-ST ;7
+	 RM-AUDLEY-ST ;8
+	 RM-HYDE-PARK-CORNER ;9
+	 RM-KENSINGTON-GARDENS ;10
+	 RM-TRAFALGAR-SQUARE ;11
+	 RM-GREAT-RUSSELL-ST ;12
+	 RM-GROSVENOR-PLACE ;13
+	 RM-VICTORIA-SQUARE ;14
+	 RM-VICTORIA-STREET ;15
+	 RM-BROAD-SANCTUARY ;16
+	 RM-PARLIAMENT-SQUARE ;17
+	 RM-BUCKINGHAM-PALACE-RD ;18
+	 RM-QUEENS-GARDENS ;19
+	 RM-BIRDCAGE-WALK ;20
+	 RM-THE-MALL ;21
+	 RM-WHITEHALL ;22
+	 RM-NEW-OXFORD-ST ;23
+	 RM-COVENT-GARDEN ;24
+	 RM-THE-STRAND ;25
+	 RM-FLEET-STREET ;26
+	 RM-THE-EMBANKMENT ;27
+	 RM-UPPER-THAMES-ST ;28
+	 0;RM-BLIND-ALLEY ;29
+	 RM-PINCHIN-LANE ;30
+	 RM-CHEAPSIDE ;31
+	 RM-THREADNEEDLE-ST ;32
+	 RM-KING-WILLIAM-ST ;33
+	 RM-MONUMENT ;34
+	 RM-LOWER-THAMES-ST ;35
+	 RM-LONDON-BRIDGE ;36
+	 RM-TOWER-ENTRANCE ;37>>
+
+<ROUTINE RT-GET-ROOM-ID (HERE "AUX" TBL)
+  <COND (<SET TBL <INTBL? .HERE ,CAB-ROOM-IDS ,CAB-ROOM-IDS-LEN 1>>
+	 <COND (<L? ,CAB-ROOM-IDS 0>
+		<+ <- .TBL ,CAB-ROOM-IDS> 1>)
+	       (T
+		<+ <- ,CAB-ROOM-IDS .TBL> 1>)>)
+	(T 0)>>
+
+<ROUTINE RT-CAB-DIST (HERE THERE "AUX" NUM1 NUM2 (PTR 0) TMP)
+	<SET NUM1 <RT-GET-ROOM-ID .HERE>>
+	<SET NUM2 <RT-GET-ROOM-ID .THERE>>
+	<COND ;(<OR <ZERO? .NUM1>
+		    <ZERO? .NUM2>>
+		<TELL "*** ERROR: Missing room number ***" CR D .HERE " to " D .THERE "." CR>
+		<RETURN 0>)
+	      (<OR <EQUAL? .HERE .THERE>
+		   <EQUAL? .NUM1 .NUM2>>
+	       <RETURN 0>)>
+	<COND (<L? .NUM1 .NUM2>
+	       <SET TMP .NUM1>
+	       <SET NUM1 .NUM2>
+	       <SET NUM2 .TMP>)>
+	<SET NUM1 <- .NUM1 2>>
+	<REPEAT ()
+		<COND (<L? .NUM1 1>
+		       <RETURN>)
+		      (T
+		       <SET PTR <+ .PTR .NUM1>>
+		       <DEC NUM1>)>>
+	<SET PTR <+ .PTR <- .NUM2 1>>>
+	<RETURN <GETB ,GL-CAB-DIST-TBL .PTR>>>
+
+<ROUTINE RT-I-CAB-ARRIVE ("AUX" (CAB <>) (PLACE <>) NUM SCORE AUX1)
+       <SET NUM ,TH-CAB-WHISTLE-AUX1>
+       <SET PLACE ,TH-CAB-WHISTLE-AUX2>
+       <SETG TH-CAB-WHISTLE-AUX1 0>
+       <SETG TH-CAB-WHISTLE-AUX2 0>
+       <COND (<AND <MC-HERE? .PLACE>
+		   <NOT <MC-VERB? WALK>>>
+	      <COND (<EQUAL? .NUM 1>
+		     <SET CAB ,TH-GROWLER-CAB>
+		     <SET SCORE 0>
+		     <RT-ALARM-SET-REL ,RT-I-GROWLER-LEAVE <RT-PARM-SET 0 5 0>>
+		     <RT-REMOVE-ALL ,TH-GROWLER-CAB>
+		     <MOVE ,CH-GROWLER-CABBIE ,TH-GROWLER-CAB>
+		     <MC-MAKE ,CH-GROWLER-CABBIE ,FL-SEEN>
+		     ;<IFSOUND <COND (<F? ,SOUND-QUEUED?>
+			             <SETG CAB-RAMP 2>
+			             <RT-S-CAB-ARRIVES>)>>)
+		    (<EQUAL? .NUM 2>
+		     <SET CAB ,TH-HANSOM-CAB>
+		     <SET SCORE 5>
+		     <RT-ALARM-SET-REL ,RT-I-HANSOM-LEAVE <RT-PARM-SET 0 5 0>>
+		     <RT-REMOVE-ALL ,TH-HANSOM-CAB>
+		     <MOVE ,CH-HANSOM-CABBIE ,TH-HANSOM-CAB>
+		     <MC-MAKE ,CH-HANSOM-CABBIE ,FL-SEEN>)
+		    (T
+		     <RFALSE>)>
+	      <IFSOUND <COND (<F? ,SOUND-QUEUED?>
+			      <SETG CAB-RAMP 2>
+			      <RT-S-CAB-ARRIVES>)>>
+	      <TELL CR "A " D .CAB " pulls up beside you." CR>
+	      <MOVE .CAB ,GL-PLACE-CUR>
+	      <COND (<==? .CAB ,TH-HANSOM-CAB>
+		     <SET AUX1 ,TH-HANSOM-CAB-AUX1>)
+		    (T
+		     <SET AUX1 ,TH-GROWLER-CAB-AUX1>)>
+	      <COND (<ZERO? .AUX1>
+		     <COND (<==? .CAB ,TH-HANSOM-CAB>
+			    <SETG TH-HANSOM-CAB-AUX1 1>)
+			   (T
+			    <SETG TH-GROWLER-CAB-AUX1 1>)>
+		     <COND (<NOT <ZERO? .SCORE>>
+			    <RT-UPDATE-SCORE .SCORE>)>)>
+	      <RTRUE>)>>
+
+<ROUTINE RT-I-HANSOM-LEAVE ()
+	<COND (<NOT <MC-HERE? ,RM-VICTORIA-SQUARE>>
+	       <COND (<RT-VISIBLE? ,TH-HANSOM-CAB>
+		      <IFSOUND <RT-S-CAB-LEAVES>>
+		      <TELL CTHE ,TH-HANSOM-CAB " drives off." CR>)>
+	       <MOVE ,TH-HANSOM-CAB ,RM-VICTORIA-SQUARE>
+	       <RT-REMOVE-ALL ,TH-HANSOM-CAB>
+	       <MOVE ,CH-HANSOM-CABBIE ,TH-HANSOM-CAB>
+	       <SETG GL-NOW-LIT? <RT-IS-LIT?>>)>
+	<SETG TH-HANSOM-CAB-AUX2 0>
+	<RFALSE>>
+
+<ROUTINE RT-I-HANSOM-TO? ()
+	<COND (<IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+	       <TELL "\"Where to mister?\"" CR>
+	       <RT-ALARM-SET-REL ,RT-I-HANSOM-TO? <RT-PARM-SET 0 1 0>>)>>
+
+<ROUTINE RT-I-GROWLER-LEAVE ()
+	<COND (<NOT <MC-HERE? ,RM-OXFORD-ST>>
+	       <COND (<RT-VISIBLE? ,TH-GROWLER-CAB>
+		      <IFSOUND <RT-S-CAB-LEAVES>>
+		      <TELL CTHE ,TH-GROWLER-CAB " drives off." CR>)>
+	       <MOVE ,TH-GROWLER-CAB ,RM-OXFORD-ST>
+	       <RT-REMOVE-ALL ,TH-GROWLER-CAB>
+	       <MOVE ,CH-GROWLER-CABBIE ,TH-GROWLER-CAB>
+	       <SETG GL-NOW-LIT? <RT-IS-LIT?>>)>
+	<RFALSE>>
+
+<ROUTINE RT-I-GROWLER-TO? ()
+	<COND (<IN? ,CH-PLAYER ,TH-GROWLER-CAB>
+	       <TELL CR
+"Suddenly the cabbie - who seems to have a low threshold of boredom - pipes
+up and says, \"I know where we can go!\"" CR CR ,K-WILD-RIDE-MSG CR>
+	       <RT-MOVE-GROWLER>
+	       <RT-ALARM-SET-REL ,RT-I-GROWLER-TO? <RT-PARM-SET 0 5 0>>
+	       <CRLF>
+	       <RT-DESC-ALL>)>>
+
+<ROUTINE RT-MOVE-HANSOM ("OPTIONAL" (ROOM <>) MIN)
+    <COND (<MC-HERE? .ROOM>
+	   <TELL "\"We're already here, guv.\"" CR>)
+	  (<MC-T? .ROOM>
+	   <SETG GL-WHERE-TO-PROMPT? <>>
+	   <SETG GL-WHERE-TO-ORPH? <>>
+	   <SET MIN <* <RT-CAB-DIST ,GL-PLACE-CUR .ROOM> ,K-HANSOM-TIME>>
+	   <TELL "\"Right-o.\"" CR CR>
+	   <MOVE ,TH-HANSOM-CAB .ROOM>
+	   <SETG GL-PLACE-PRV ,GL-PLACE-CUR>
+	   <SETG GL-PLACE-CUR .ROOM>
+	   <COND (<IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+		  <SETG GL-PUPPY-MSG? <>>
+		  <IFSOUND <COND (<==? .ROOM ,RM-COVENT-GARDEN>
+				  <SETG LOOPING? ,S-CROWD>
+				  <SETG LOOP-VOL 8>)
+				 (T 
+				  <SETG LOOPING? <>>)>
+			   <SOUNDS ,S-HORSE ,S-START 4 6>>
+		  <TELL "The cab speeds through the streets, ">
+		  <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+			 <TELL "deftly weaving in and out of the
+jubilee traffic and ">)>
+		  <TELL "whizzing past famous landmarks. Only a few minutes
+later, you arrive at your destination." CR CR>
+		  <RT-DESC-ALL>)
+		 (T
+		  <IFSOUND <RT-S-CAB-LEAVES>>
+		  <TELL "The cab drives off." CR>
+		  <SETG GL-NOW-LIT? <RT-IS-LIT?>>
+		  <RT-ALARM-SET-REL ,RT-I-HANSOM-LEAVE <RT-PARM-SET 0 30 0>>)>
+	   <RT-ALARM-CLR ,RT-I-HANSOM-LEAVE>
+	   <RT-CLOCK-JMP 0 .MIN 0>
+	   <RTRUE>)>>
+
+<ROUTINE RT-MOVE-GROWLER ("AUX" ROOM NUM MIN)
+	<SET NUM <RANDOM 37>>
+	<COND (<EQUAL? .NUM 1>
+	       <SET ROOM ,RM-AUDLEY-ST>)
+	      (<EQUAL? .NUM 2>
+	       <SET ROOM ,RM-221B-BAKER-ST>)
+	      (<EQUAL? .NUM 3>
+	       <SET ROOM ,RM-BIRDCAGE-WALK>)
+	      ;(<EQUAL? .NUM 4>
+	       <SET ROOM ,RM-BLIND-ALLEY>)
+	      (<EQUAL? .NUM 5>
+	       <SET ROOM ,RM-BROAD-SANCTUARY>)
+	      (<EQUAL? .NUM 6>
+	       <SET ROOM ,RM-BUCKINGHAM-PALACE-RD>)
+	      (<EQUAL? .NUM 7>
+	       <SET ROOM ,RM-CHEAPSIDE>)
+	      (<EQUAL? .NUM 8>
+	       <SET ROOM ,RM-COVENT-GARDEN>)
+	      (<EQUAL? .NUM 9>
+	       <SET ROOM ,RM-THE-EMBANKMENT>)
+	      (<EQUAL? .NUM 10>
+	       <SET ROOM ,RM-FLEET-STREET>)
+	      (<EQUAL? .NUM 11>
+	       <SET ROOM ,RM-GREAT-RUSSELL-ST>)
+	      (<EQUAL? .NUM 12>
+	       <SET ROOM ,RM-GROSVENOR-PLACE>)
+	      (<EQUAL? .NUM 13>
+	       <SET ROOM ,RM-HYDE-PARK-CORNER>)
+	      (<EQUAL? .NUM 14>
+	       <SET ROOM ,RM-KENSINGTON-GARDENS>)
+	      (<EQUAL? .NUM 15>
+	       <SET ROOM ,RM-KING-WILLIAM-ST>)
+	      (<EQUAL? .NUM 16>
+	       <SET ROOM ,RM-LONDON-BRIDGE>)
+	      (<EQUAL? .NUM 17>
+	       <SET ROOM ,RM-LOWER-THAMES-ST>)
+	      (<EQUAL? .NUM 18>
+	       <SET ROOM ,RM-THE-MALL>)
+	      (<EQUAL? .NUM 19>
+	       <SET ROOM ,RM-MARYLEBONE-RD>)
+	      (<EQUAL? .NUM 20>
+	       <SET ROOM ,RM-MONUMENT>)
+	      (<EQUAL? .NUM 21>
+	       <SET ROOM ,RM-NEW-OXFORD-ST>)
+	      (<EQUAL? .NUM 22>
+	       <SET ROOM ,RM-OXFORD-ST>)
+	      (<EQUAL? .NUM 23>
+	       <SET ROOM ,RM-ORCHARD-ST>)
+	      (<EQUAL? .NUM 24>
+	       <SET ROOM ,RM-PARLIAMENT-SQUARE>)
+	      (<EQUAL? .NUM 25>
+	       <SET ROOM ,RM-PINCHIN-LANE>)
+	      (<EQUAL? .NUM 26>
+	       <SET ROOM ,RM-QUEENS-GARDENS>)
+	      (<EQUAL? .NUM 27>
+	       <SET ROOM ,RM-ST-GILES-CIRCUS>)
+	      (<EQUAL? .NUM 28>
+	       <SET ROOM ,RM-THE-STRAND>)
+	      (<EQUAL? .NUM 29>
+	       <SET ROOM ,RM-THREADNEEDLE-ST>)
+	      (<EQUAL? .NUM 30>
+	       <SET ROOM ,RM-TOTTENHAM-COURT-RD>)
+	      (<EQUAL? .NUM 31>
+	       <SET ROOM ,RM-TOWER-ENTRANCE>)
+	      (<EQUAL? .NUM 32>
+	       <SET ROOM ,RM-TRAFALGAR-SQUARE>)
+	      (<EQUAL? .NUM 33>
+	       <SET ROOM ,RM-UPPER-THAMES-ST>)
+	      (<EQUAL? .NUM 34>
+	       <SET ROOM ,RM-VICTORIA-STREET>)
+	      (<EQUAL? .NUM 35>
+	       <SET ROOM ,RM-VICTORIA-SQUARE>)
+	      (<EQUAL? .NUM 36>
+	       <SET ROOM ,RM-WHITEHALL>)
+	      (<EQUAL? .NUM 37>
+	       <SET ROOM ,RM-YORK-PLACE>)
+	      (T
+	       <TELL "This is odd..." CR CR>
+	       <SET ROOM ,RM-KENSINGTON-GARDENS>)>
+	<SET MIN <* <RT-CAB-DIST ,GL-PLACE-CUR .ROOM> ,K-GROWLER-TIME>>
+	<IFSOUND <COND (<==? .ROOM ,RM-COVENT-GARDEN>
+			<SETG LOOPING? ,S-CROWD>
+			<SETG LOOP-VOL 8>)
+		       (T 
+			<SETG LOOPING? <>>)>
+		 <SOUNDS ,S-HORSE ,S-START 4 6>>
+	<MOVE ,TH-GROWLER-CAB .ROOM>
+	<SETG GL-PLACE-PRV ,GL-PLACE-CUR>
+	<SETG GL-PLACE-CUR .ROOM>
+	<SETG GL-PUPPY-MSG? <>>
+	<RT-CLOCK-JMP 0 .MIN 0>>
+
+<ROUTINE RT-CF-TH-HANSOM-CAB ("OPTIONAL" (CONTEXT <>) "AUX" WRD ADJ)
+	<COND (<IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+	       <SETG GL-WHERE-TO-PROMPT? T>
+	       <SETG GL-WHERE-TO-ORPH? T>)>
+	<COND (<AND <MC-VERB? WALK>
+		    <EQUAL? ,GL-P-WALK-DIR ,P?OUT>>
+	       <RT-PERFORM ,V?EXIT ,TH-HANSOM-CAB>)
+	      (<OR <AND <MC-VERB? WALK>
+			<EQUAL? ,GL-WINNER ,CH-PLAYER>>
+		   <AND <MC-VERB? ENTER>
+			<NOT <MC-PRSO? ,TH-HANSOM-CAB>>>>
+	       <RT-CYOU-MSG>
+	       <RT-WOULD-HAVE-TO-MSG "get out of" ,TH-HANSOM-CAB>
+	       <TELL " first." CR>
+	       <RTRUE>)
+	      (<MC-VERB? DRIVE WALK-TO>
+	       <SET WRD <GET ,GL-P-NAMW 0>>
+	       <SET ADJ <GET ,GL-P-ADJW 0>>
+	       <COND (<MC-PRSO? ,RM-AUDLEY-ST>
+		      <RT-MOVE-HANSOM ,RM-AUDLEY-ST>)
+		     (<MC-PRSO? ,RM-221B-BAKER-ST ,RM-ENTRY-HALL>
+		      <RT-MOVE-HANSOM ,RM-221B-BAKER-ST>)
+		     (<MC-PRSO? ,RM-BIRDCAGE-WALK>
+		      <RT-MOVE-HANSOM ,RM-BIRDCAGE-WALK>)
+		     ;(<MC-PRSO? ,RM-BLIND-ALLEY ,RM-SIGN-OF-RED-HERRING>
+		       <RT-MOVE-HANSOM ,RM-BLIND-ALLEY>)
+		     (<MC-PRSO? ,RM-BROAD-SANCTUARY ,LG-TOMBS-ABBEY>
+		      <RT-MOVE-HANSOM ,RM-BROAD-SANCTUARY>)
+		     (<MC-PRSO? ,RM-BUCKINGHAM-PALACE-RD>
+		      <RT-MOVE-HANSOM ,RM-BUCKINGHAM-PALACE-RD>)
+		     (<MC-PRSO? ,RM-CHEAPSIDE>
+		      <RT-MOVE-HANSOM ,RM-CHEAPSIDE>)
+		     (<MC-PRSO? ,RM-COVENT-GARDEN>
+		      <RT-MOVE-HANSOM ,RM-COVENT-GARDEN>)
+		     (<MC-PRSO? ,RM-THE-EMBANKMENT ,LG-WATER>
+		      <RT-MOVE-HANSOM ,RM-THE-EMBANKMENT>)
+		     (<MC-PRSO? ,RM-FLEET-STREET>
+		      <RT-MOVE-HANSOM ,RM-FLEET-STREET>)
+		     (<MC-PRSO? ,RM-GREAT-RUSSELL-ST ,RM-BRITISH-MUSEUM>
+		      <RT-MOVE-HANSOM ,RM-GREAT-RUSSELL-ST>)
+		     (<MC-PRSO? ,RM-GROSVENOR-PLACE>
+		      <RT-MOVE-HANSOM ,RM-GROSVENOR-PLACE>)
+		     (<MC-PRSO? ,RM-HYDE-PARK-CORNER>
+		      <RT-MOVE-HANSOM ,RM-HYDE-PARK-CORNER>)
+		     (<MC-PRSO? ,RM-KENSINGTON-GARDENS>
+		      <RT-MOVE-HANSOM ,RM-KENSINGTON-GARDENS>)
+		     (<MC-PRSO? ,RM-KING-WILLIAM-ST>
+		      <RT-MOVE-HANSOM ,RM-KING-WILLIAM-ST>)
+		     (<MC-PRSO? ,RM-LONDON-BRIDGE>
+		      <RT-MOVE-HANSOM ,RM-LONDON-BRIDGE>)
+		     (<MC-PRSO? ,RM-LOWER-THAMES-ST ,RM-BAR-OF-GOLD
+							 ,RM-SWAN-LANE>
+		      <RT-MOVE-HANSOM ,RM-LOWER-THAMES-ST>)
+		     (<MC-PRSO? ,RM-THE-MALL>
+		      <RT-MOVE-HANSOM ,RM-THE-MALL>)
+		     (<MC-PRSO? ,RM-MARYLEBONE-RD ,RM-MADAME-TUSSAUDS>
+		      <RT-MOVE-HANSOM ,RM-MARYLEBONE-RD>)
+		     (<OR <AND <EQUAL? .WRD ,W?MONUMENT>
+			       <EQUAL? .ADJ <>>>
+			  <MC-PRSO? ,RM-MONUMENT>>
+		      <RT-MOVE-HANSOM ,RM-MONUMENT>)
+		     (<MC-PRSO? ,RM-NEW-OXFORD-ST>
+		      <RT-MOVE-HANSOM ,RM-NEW-OXFORD-ST>)
+		     (<OR <AND <EQUAL? .WRD ,W?STREET ,W?ST>
+			       <EQUAL? .ADJ ,W?OXFORD>>
+			  <MC-PRSO? ,RM-OXFORD-ST>>
+		      <RT-MOVE-HANSOM ,RM-OXFORD-ST>)
+		     (<MC-PRSO? ,RM-ORCHARD-ST>
+		      <RT-MOVE-HANSOM ,RM-ORCHARD-ST>)
+		     (<MC-PRSO? ,RM-PARLIAMENT-SQUARE ,RM-PARLIAMENT ,TH-BELL>
+		      <RT-MOVE-HANSOM ,RM-PARLIAMENT-SQUARE>)
+		     (<MC-PRSO? ,RM-PINCHIN-LANE ,RM-SHERMANS-HOUSE>
+		      <RT-MOVE-HANSOM ,RM-PINCHIN-LANE>)
+		     (<MC-PRSO? ,RM-QUEENS-GARDENS ,RM-BUCKINGHAM-PALACE>
+		      <RT-MOVE-HANSOM ,RM-QUEENS-GARDENS>)
+		     (<MC-PRSO? ,RM-ST-GILES-CIRCUS>
+		      <RT-MOVE-HANSOM ,RM-ST-GILES-CIRCUS>)
+		     (<MC-PRSO? ,RM-THE-STRAND>
+		      <RT-MOVE-HANSOM ,RM-THE-STRAND>)
+		     (<MC-PRSO? ,RM-THREADNEEDLE-ST ,RM-BANK-OF-ENGLAND>
+		      <RT-MOVE-HANSOM ,RM-THREADNEEDLE-ST>)
+		     (<MC-PRSO? ,RM-TOTTENHAM-COURT-RD>
+		      <RT-MOVE-HANSOM ,RM-TOTTENHAM-COURT-RD>)
+		     (<OR <EQUAL? .WRD ,W?TOWER>
+			  <MC-PRSO? ,RM-TOWER-ENTRANCE ,LG-TOWER
+                                    ,RM-DRAWBRIDGE>>
+		      <RT-MOVE-HANSOM ,RM-TOWER-ENTRANCE>)
+		     (<MC-PRSO? ,RM-TRAFALGAR-SQUARE ,RM-DIOGENES-CLUB>
+		      <RT-MOVE-HANSOM ,RM-TRAFALGAR-SQUARE>)
+		     (<MC-PRSO? ,RM-UPPER-THAMES-ST>
+		      <RT-MOVE-HANSOM ,RM-UPPER-THAMES-ST>)
+		     (<MC-PRSO? ,RM-VICTORIA-STREET>
+		      <RT-MOVE-HANSOM ,RM-VICTORIA-STREET>)
+		     (<MC-PRSO? ,RM-VICTORIA-SQUARE>
+		      <RT-MOVE-HANSOM ,RM-VICTORIA-SQUARE>)
+		     (<MC-PRSO? ,RM-WHITEHALL ,RM-SCOTLAND-YARD>
+		      <RT-MOVE-HANSOM ,RM-WHITEHALL>)
+		     (<MC-PRSO? ,RM-YORK-PLACE>
+		      <RT-MOVE-HANSOM ,RM-YORK-PLACE>)>)
+	      (<MC-VERB? STAND STAND-ON LEAP>
+	       <TELL ,K-ENOUGH-ROOM-MSG CR>
+	       <RTRUE>)
+	      (<MC-VERB? SIT>
+	       <TELL "You're already seated." CR>
+	       <RTRUE>)
+	      (<RT-TOUCH-VERB?>
+	       <COND (<MC-PRSO? <> ,ROOMS>
+		      T)
+		     (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+		      T)
+		     (<NOT <RT-META-IN? ,GL-PRSO ,TH-HANSOM-CAB>>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot reach " THEO "." CR>
+		      <RTRUE>)>
+	       <COND (<MC-PRSI? <> ,ROOMS>
+		      <RFALSE>)
+		     (<IN? ,GL-PRSI ,GLOBAL-OBJECTS>
+		      <RFALSE>)
+		     (<AND <FSET? ,GL-PRSI ,FL-PERSON>
+			   <IN? ,GL-PRSI ,GL-PLACE-CUR>>
+		      <RFALSE>)
+		     (<NOT <RT-META-IN? ,GL-PRSI ,TH-HANSOM-CAB>>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot reach " THEI "." CR>)>)>>
+
+<ROUTINE RT-CF-TH-GROWLER-CAB ("OPTIONAL" (CONTEXT <>))
+	<COND (<IN? ,CH-PLAYER ,TH-GROWLER-CAB>
+	       <SETG GL-WHERE-TO-PROMPT? T>
+	       <SETG GL-WHERE-TO-ORPH? T>)>
+	<COND (<AND <MC-VERB? WALK>
+		    <EQUAL? ,GL-P-WALK-DIR ,P?OUT>>
+	       <RT-PERFORM ,V?EXIT ,TH-GROWLER-CAB>)
+	      (<OR <AND <MC-VERB? WALK>
+			<EQUAL? ,GL-WINNER ,CH-PLAYER>>
+		   <AND <MC-VERB? ENTER>
+			<NOT <MC-PRSO? ,TH-GROWLER-CAB>>>>
+	       <RT-CYOU-MSG>
+	       <RT-WOULD-HAVE-TO-MSG "get out of" ,TH-GROWLER-CAB>
+	       <TELL " first." CR>
+	       <RTRUE>)
+	      (<MC-VERB? DRIVE WALK-TO>
+	       <TELL "\"Oh good! I've never been THERE before.\"" CR CR>
+	       <SETG GL-WHERE-TO-PROMPT? <>>
+	       <SETG GL-WHERE-TO-ORPH? <>>
+	       <RT-ALARM-CLR ,RT-I-GROWLER-TO?>
+	       <RT-ALARM-CLR ,RT-I-GROWLER-LEAVE>
+	       <RT-MOVE-GROWLER>
+	       <COND (<IN? ,CH-PLAYER ,TH-GROWLER-CAB>
+		      <SETG GL-PUPPY-MSG? <>>
+		      <TELL ,K-WILD-RIDE-MSG CR CR>
+		      <RT-ALARM-SET-REL ,RT-I-GROWLER-TO? <RT-PARM-SET 0 5 0>>
+		      <RT-DESC-ALL>)
+		     (T
+		      <TELL "The cab drives off." CR>
+		      <SETG GL-NOW-LIT? <RT-IS-LIT?>>
+		      <RT-ALARM-SET-REL ,RT-I-GROWLER-LEAVE <RT-PARM-SET 0 30 0>>)>
+	       <RTRUE>)
+	      (<MC-VERB? STAND STAND-ON LEAP>
+	       <TELL ,K-ENOUGH-ROOM-MSG CR>
+	       <RTRUE>)
+	      (<MC-VERB? SIT>
+	       <TELL "You're already seated." CR>
+	       <RTRUE>)
+	      (<RT-TOUCH-VERB?>
+	       <COND (<MC-PRSO? <> ,ROOMS> T)
+		     (<IN? ,GL-PRSO ,GLOBAL-OBJECTS> T)
+		     (<NOT <RT-META-IN? ,GL-PRSO ,TH-GROWLER-CAB>>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot reach " THEO "." CR>
+		      <RTRUE>)>
+	       <COND (<MC-PRSI? <> ,ROOMS>
+		      <RFALSE>)
+		     (<IN? ,GL-PRSI ,GLOBAL-OBJECTS>
+		      <RFALSE>)
+		     (<NOT <RT-META-IN? ,GL-PRSI ,TH-GROWLER-CAB>>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot reach " THEI "." CR>)>)>>
+
+<ROUTINE RT-BLOW-WHISTLE ("AUX" WHO WHO2 L)
+    <COND (<MC-HERE? <LOC ,TH-HANSOM-CAB> <LOC ,TH-GROWLER-CAB>>
+	   <TELL ,K-CAB-HERE-MSG CR>
+	   <RTRUE>)
+	  (T
+	   ;<IFSOUND <SOUNDS ,S-WHISTLE ,S-START 8 1
+			      <COND (,TH-CAB-WHISTLE-AUX1
+				     <RT-S-WHISTLE-TWICE>)
+				    (T CHECK-LOOPING)>>>
+	   <TELL "Tweeeeeeeeee!" CR>)>
+    <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+	   <COND (<AND <MC-HERE? ,RM-HOLMES-STUDY>
+		       <MC-IS? ,CH-HOLMES ,FL-ASLEEP>>
+		  <TELL ,K-HOLMES-DISTRACTION-MSG CR>
+		  <RTRUE>)>
+	   <SET WHO <RT-ANYONE-HERE?>>
+	   <COND (<MC-T? .WHO>
+		  <SET L <LOC .WHO>>
+		  <REMOVE .WHO>
+		  <SET WHO2 <RT-ANYONE-HERE?>>
+		  <COND (;AND .WHO2 ;<MC-ISNOT? .WHO2 ,FL-ASLEEP> ;"RFP"
+			 <TELL "Everyone holds their hands to their ">)
+			(T
+			 <TELL CTHE .WHO " hold">
+			 <RT-S-NOS-MSG .WHO>
+			 <TELL " ">
+			 <RT-YOUR-MSG .WHO>
+			 <TELL "hands to ">
+			 <RT-YOUR-MSG .WHO>)>
+		  <MOVE .WHO .L>
+		  <TELL "ears and glare">
+		  <RT-S-NOS-MSG .WHO>
+		  <TELL " at you." CR>)>)
+	  (<NOT <MC-HERE? ,RM-TOWER-GREEN ,RM-OUTER-WARD
+			  ,RM-BYWARD-TOWER ,RM-INSIDE-TRAITORS-GATE
+			  ,RM-OUTSIDE-TRAITORS-GATE ,RM-DRAWBRIDGE
+			  ,RM-THAMES-ONE ,RM-THAMES-TWO
+			  ,RM-THAMES-THREE ,RM-THAMES-FOUR
+			  ,RM-THAMES-FIVE ,RM-SWAN-LANE>>
+	   <SETG TH-CAB-WHISTLE-AUX1 <+ ,TH-CAB-WHISTLE-AUX1 1>>
+	   <SETG TH-CAB-WHISTLE-AUX2 ,GL-PLACE-CUR>
+	   <COND (<NOT <RT-ALARM-SET? ,RT-I-CAB-ARRIVE>>
+		  <RT-ALARM-SET-REL ,RT-I-CAB-ARRIVE <RT-PARM-SET 0 1 0>>)>)>
+    <RTRUE>>
+
+<OBJECT TH-HANSOM-CAB
+   (LOC RM-VICTORIA-SQUARE)
+   (DESC "hansom cab")
+   (FLAGS FL-VEHICLE FL-CONTAINER FL-TRYTAKE FL-OPENED FL-LIGHTED
+	  FL-HAS-DESCFCN)
+   (SYNONYM CAB)
+   (ADJECTIVE HANSOM)
+   (SIZE 0 CAPACITY 999)
+   (ACTION RT-AC-TH-HANSOM-CAB)
+   (CONTFCN RT-CF-TH-HANSOM-CAB)>
+
+<OBJECT TH-GROWLER-CAB
+   (LOC RM-OXFORD-ST)
+   (DESC "growler cab")
+   (FLAGS FL-VEHICLE FL-CONTAINER FL-TRYTAKE FL-OPENED FL-LIGHTED
+	  FL-HAS-DESCFCN)
+   (SYNONYM CAB)
+   (ADJECTIVE GROWLER)
+   (SIZE 0 CAPACITY 999)
+   (ACTION RT-AC-TH-GROWLER-CAB)
+   (CONTFCN RT-CF-TH-GROWLER-CAB)>
+
+<OBJECT TH-CAB-WHISTLE
+   (LOC CH-PLAYER)
+   (DESC "whistle")
+   (FLAGS FL-TAKEABLE FL-CLOTHING FL-WORN)
+   (SYNONYM WHISTLE)
+   (SIZE 1 MASS 1)
+   (ACTION RT-AC-TH-CAB-WHISTLE)>
+
+<ROUTINE RT-AC-TH-HANSOM-CAB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-HANSOM-CAB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It is a small cab with two wheels and room for only two persons,
+drawn by a single horse." CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? ENTER>
+		    <MC-PRSO? ,ROOMS ,TH-HANSOM-CAB>>
+	       <COND (<MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+		      <TELL ,K-HEAVY-ARMOUR-MSG CR>)
+		     (<NOT <IN? ,GL-WINNER ,TH-HANSOM-CAB>>
+		      <MOVE ,GL-WINNER ,TH-HANSOM-CAB>
+		      <COND (<AND <MC-T? ,GL-PUPPY>
+				  <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			     <MOVE ,GL-PUPPY ,TH-HANSOM-CAB>
+			     <TELL "You and " THE ,GL-PUPPY " get ">)
+			    (T
+			     <RT-CYOU-MSG "get" "gets">)>
+		      <MC-MAKE ,TH-HANSOM-CAB ,FL-NODESC>
+		      <RT-ALARM-CLR ,RT-I-HANSOM-LEAVE>
+		      <SETG TH-HANSOM-CAB-AUX2 0>
+		      ;<RT-ALARM-SET-REL ,RT-I-HANSOM-TO? <RT-PARM-SET 0 5 0>>
+		      <SETG GL-WHERE-TO-PROMPT? T>
+		      <SETG GL-WHERE-TO-ORPH? T>
+		      <TELL "into the cab." CR>)>)
+	      (<AND <MC-VERB? EXIT>
+		    <MC-PRSO? ,ROOMS ,TH-HANSOM-CAB>>
+	       <COND (<IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+		      <MOVE ,GL-WINNER ,GL-PLACE-CUR>
+		      <COND (<AND <MC-T? ,GL-PUPPY>
+				  <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			     <MOVE ,GL-PUPPY ,GL-PLACE-CUR>
+			     <TELL "You and " THE ,GL-PUPPY " get ">)
+			    (T
+			     <RT-CYOU-MSG "get" "gets">)>
+		      <TELL "out of the cab.">
+		      <MC-UNMAKE ,TH-HANSOM-CAB ,FL-NODESC>
+		      <COND (<AND <ZERO? ,TH-HANSOM-CAB-AUX2>
+				  <NOT <IN? ,CH-PLAYER ,TH-HANSOM-CAB>>
+				  <OR <MC-F? ,GL-PUPPY>
+				      <NOT <IN? ,GL-PUPPY ,TH-HANSOM-CAB>>>
+				  <NOT <MC-HERE? ,RM-VICTORIA-SQUARE>>>
+			     <TELL " After">
+			     <RT-YOU-MSG "get" "gets">
+			     <TELL "out, it drives off.">
+			     <IFSOUND <RT-S-CAB-LEAVES>>
+			     <MOVE ,TH-HANSOM-CAB ,RM-VICTORIA-SQUARE>
+			     <RT-REMOVE-ALL ,TH-HANSOM-CAB>
+			     <MOVE ,CH-HANSOM-CABBIE ,TH-HANSOM-CAB>
+			     <RT-ALARM-CLR ,RT-I-HANSOM-LEAVE>
+			     ;<RT-ALARM-CLR ,RT-I-HANSOM-TO?>
+			     <SETG GL-NOW-LIT? <RT-IS-LIT?>>)>
+		      <SETG GL-WHERE-TO-PROMPT? <>>
+		      <SETG GL-WHERE-TO-ORPH? <>>
+		      <CRLF>)>)
+	      (<MC-VERB? LOOK-ON>
+	       <TELL "There is a cab driver sitting on the hansom." CR>)
+	      (<AND <MC-VERB? TAKE PUSH-TO>
+		    <MC-THIS-PRSO?>>
+	       <TELL ,K-TAKE-CAB-MSG CR>
+	       <RFATAL>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-GROWLER-CAB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-GROWLER-CAB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It is a large cab with four wheels and room for four persons,
+drawn by a single horse." CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? ENTER>
+		    <MC-PRSO? ,ROOMS ,TH-GROWLER-CAB>>
+	       <COND (<MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+		      <TELL ,K-HEAVY-ARMOUR-MSG CR>)
+		     (<NOT <IN? ,GL-WINNER ,TH-GROWLER-CAB>>
+		      <MOVE ,GL-WINNER ,TH-GROWLER-CAB>
+		      <COND (<AND <MC-T? ,GL-PUPPY>
+				  <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			     <MOVE ,GL-PUPPY ,TH-GROWLER-CAB>
+			     <TELL "You and " THE ,GL-PUPPY " get ">)
+			    (T
+			     <RT-CYOU-MSG "get" "gets">)>
+		      <MC-MAKE ,TH-GROWLER-CAB ,FL-NODESC>
+		      <RT-ALARM-CLR ,RT-I-GROWLER-LEAVE>
+		      <RT-ALARM-SET-REL ,RT-I-GROWLER-TO? <RT-PARM-SET 0 5 0>>
+		      <SETG GL-WHERE-TO-PROMPT? T>
+		      <SETG GL-WHERE-TO-ORPH? T>
+		      <TELL "into the cab." CR>)>)
+	      (<AND <MC-VERB? EXIT>
+		    <MC-PRSO? ,ROOMS ,TH-GROWLER-CAB>>
+	       <COND (<IN? ,CH-PLAYER ,TH-GROWLER-CAB>
+		      <MOVE ,GL-WINNER ,GL-PLACE-CUR>
+		      <COND (<AND <MC-T? ,GL-PUPPY>
+				  <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			     <MOVE ,GL-PUPPY ,GL-PLACE-CUR>
+			     <TELL "You and " THE ,GL-PUPPY " get ">)
+			    (T
+			     <RT-CYOU-MSG "get" "gets">)>
+		      <TELL "out of the cab.">
+		      <MC-UNMAKE ,TH-GROWLER-CAB ,FL-NODESC>
+		      <COND (<AND <NOT <IN? ,CH-PLAYER ,TH-GROWLER-CAB>>
+				  <OR <MC-F? ,GL-PUPPY>
+				      <NOT <IN? ,GL-PUPPY ,TH-GROWLER-CAB>>>
+				  <NOT <MC-HERE? ,RM-OXFORD-ST>>>
+			     <TELL " After">
+			     <RT-YOU-MSG "get" "gets">
+			     <TELL "out, it drives off.">
+			     <IFSOUND <RT-S-CAB-LEAVES>>
+			     <MOVE ,TH-GROWLER-CAB ,RM-OXFORD-ST>
+			     <RT-REMOVE-ALL ,TH-GROWLER-CAB>
+			     <MOVE ,CH-GROWLER-CABBIE ,TH-GROWLER-CAB>
+			     <RT-ALARM-CLR ,RT-I-GROWLER-LEAVE>
+			     <RT-ALARM-CLR ,RT-I-GROWLER-TO?>
+			     <SETG GL-NOW-LIT? <RT-IS-LIT?>>)>
+		      <SETG GL-WHERE-TO-PROMPT? <>>
+		      <SETG GL-WHERE-TO-ORPH? <>>
+		      <CRLF>)>)
+	      (<MC-VERB? LOOK-ON>
+	       <TELL "There is a cab driver sitting on the growler." CR>)
+	      (<AND <MC-VERB? TAKE PUSH-TO>
+		    <MC-THIS-PRSO?>>
+	       <TELL ,K-TAKE-CAB-MSG CR>
+	       <RFATAL>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-CAB-WHISTLE ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CAB-WHISTLE">>
+	<COND (<AND <MC-VERB? BLOW-INTO>
+		    <MC-THIS-PRSO?>>
+	       <RT-BLOW-WHISTLE>)
+	      (<AND <MC-VERB? CALL>
+		    <MC-THIS-PRSI?>>
+	       <COND (<MC-PRSO? ,TH-HANSOM-CAB>
+		      <RT-BLOW-WHISTLE>
+		      <COND (<RT-ALARM-SET? ,RT-I-CAB-ARRIVE>
+			     <RT-CLOCK-INC-SET 0 2 0>
+			     <RT-BLOW-WHISTLE>)>
+		      <RTRUE>)
+		     (<MC-PRSO? ,TH-GROWLER-CAB>
+		      <RT-BLOW-WHISTLE>
+		      <COND (<RT-ALARM-SET? ,RT-I-CAB-ARRIVE>
+			     <RT-CLOCK-INC-SET 0 2 0>)>
+		      <RTRUE>)
+		     (<EQUAL? <GET ,GL-P-NAMW 0> ,W?CAB>
+		      <RT-BLOW-WHISTLE>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <TELL "can't " VW " " AO " with " THEI "." CR>)>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
diff --git a/charles.zabstr b/charles.zabstr
new file mode 100644
index 0000000..a922b01
--- /dev/null
+++ b/charles.zabstr
@@ -0,0 +1,53 @@
+
+<OBJECT TH-WAX-HEAD (LOC TH-CHARLES-STATUE) (FLAGS FL-TAKEABLE FL-TRYTAKE
+FL-NODESC FL-NOALL FL-HAS-SDESC FL-HAS-DESCFCN) (SYNONYM HEAD WAX) (ADJECTIVE
+HEAD WAX) (SIZE 1 CAPACITY 1 MASS 0) (GENERIC RT-GN-WAX) (ACTION
+RT-AC-TH-WAX-HEAD)> 
+<VOC "POOL" NOUN> 
+<VOC "POOL" ADJ> 
+<OBJECT TH-WAX-AX (LOC TH-CHARLES-STATUE) (FLAGS FL-TAKEABLE FL-VOWEL FL-NODESC
+FL-NOALL FL-WEAPON FL-HAS-DESCFCN FL-HAS-SDESC) (SYNONYM BLADE AX AXE WAX) (
+ADJECTIVE WAX WAX) (SIZE 12 CAPACITY 0 MASS 0) (GENERIC RT-GN-WAX) (ACTION
+DESC-WAX-AX)> 
+<VOC "MELTED" ADJ> 
+<OBJECT TH-EMERALD (FLAGS FL-READABLE FL-TAKEABLE FL-VOWEL FL-SURFACE FL-MONEY
+FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY) (OBJ-ADJ 0) (
+OBJ-NOUN 0) (SYNONYM EMERALD GEM GEMS SCRATCH) (ADJECTIVE GREEN EMERALD
+EMERALD\'S) (VALUE 5) (SIZE 1 MASS 1 CAPACITY 1) (GENERIC RT-GN-GEM) (ACTION
+RT-AC-TH-EMERALD)> 
+<OBJECT TH-TORCH (LOC TH-FAWKES-STATUE) (FLAGS FL-BURNABLE FL-TAKEABLE
+FL-NODESC FL-NOALL FL-HAS-SDESC FL-HAS-DESCFCN) (SYNONYM TORCH) (ADJECTIVE ZZZP
+) (SIZE 1) (ACTION RT-AC-TH-TORCH)> 
+<VOC "BURNT" ADJ> 
+<OBJECT TH-TOBACCO (LOC TH-PERSIAN-SLIPPER) (DESC "tobacco") (FLAGS FL-TAKEABLE
+FL-BURNABLE FL-PLURAL FL-COLLECTIVE FL-NOALL FL-HAS-DESCFCN) (SYNONYM TOBACCO
+SHAG) (ADJECTIVE SHAG) (VALUE 1) (SIZE 1) (ACTION RT-AC-TH-TOBACCO)> 
+<DEFINE-ROUTINE BURN-OUT-MATCH> 
+<DEFINE-ROUTINE RT-AC-TH-MATCH> 
+<DEFINE-ROUTINE CLEAR-ALL-FLAGS> 
+<DEFINE-ROUTINE RT-AC-TH-TORCH> 
+<DEFINE-ROUTINE RT-LIGHT-PIPE> 
+<DEFINE-ROUTINE RT-AC-TH-TOBACCO> 
+<DEFINE-ROUTINE RT-AC-TH-PIPE> 
+<DEFINE-ROUTINE RT-AC-TH-MAIL> 
+<DEFINE-ROUTINE RT-AC-TH-NEWSPAPER> 
+<DEFINE-ROUTINE RT-AC-TH-WESTMINSTER-CLUE> 
+<CONSTANT K-HOLMES-HEAD? 1> 
+<CONSTANT K-HOLMES-GEM? 2> 
+<DEFINE-ROUTINE RT-AC-TH-WAX-HEAD> 
+<DEFINE-ROUTINE DESC-WAX-AX> 
+<DEFINE-ROUTINE RT-GUARD-TAKE-ITEM> 
+<DEFINE-ROUTINE RT-GUARD-STOP-ENTRANCE> 
+<DEFINE-ROUTINE RT-EX-RM-EXIT-TUSSAUDS> 
+<DEFINE-ROUTINE RT-EX-RM-MATCH-SNIFFING-DOG> 
+<DEFINE-ROUTINE RT-PUT-OUT> 
+<DEFINE-ROUTINE RT-I-MATCH-OUT> 
+<DEFINE-ROUTINE BURN-MATCH-OUT> 
+<DEFINE-ROUTINE RT-I-PIPE-OUT> 
+<DEFINE-ROUTINE RT-I-TORCH-OUT> 
+<DEFINE-ROUTINE RT-I-NEWSPAPER-OUT> 
+<DEFINE-ROUTINE RT-I-CLUE-OUT> 
+<DEFINE-ROUTINE RT-I-MAIL-OUT> 
+<DEFINE-ROUTINE RT-I-MATCHBOOK-OUT> 
+<DEFINE-ROUTINE PRE-LIGHT-WITH> 
+<DEFINE-ROUTINE RT-GN-WAX> 
\ No newline at end of file
diff --git a/charles.zap b/charles.zap
new file mode 100644
index 0000000..fb24988
--- /dev/null
+++ b/charles.zap
@@ -0,0 +1,994 @@
+
+
+	.FUNCT	BURN-OUT-MATCH
+	FCLEAR	TH-MATCH,FL-BURNABLE
+	ICALL2	CLEAR-ALL-FLAGS,TH-MATCH
+	FSET	TH-MATCH,FL-TAKEABLE
+	FSET	TH-MATCH,FL-BROKEN
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-MATCH,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	FSET?	TH-MATCH,FL-BROKEN \?CCL6
+	PRINTI	"burnt match"
+	RTRUE	
+?CCL6:	PRINTI	"match"
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL8
+	FSET?	TH-MATCH,FL-BROKEN /FALSE
+	FSET?	TH-MATCH,FL-LIGHTED \FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-MATCH
+	PRINTR	" is burning."
+?CCL8:	ZERO?	CONTEXT \FALSE
+	FSET?	TH-MATCH,FL-BROKEN \?CCL17
+	EQUAL?	GL-PRSA,V?LAMP-OFF,V?LIGHT,V?STRIKE /?CCL20
+	EQUAL?	GL-PRSA,V?BURN-WITH,V?LIGHT-WITH \FALSE
+?CCL20:	PRINTR	"The match is already burned out."
+?CCL17:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH,V?STRIKE /?PRD26
+	EQUAL?	GL-PRSA,V?LIGHT \?CCL24
+?PRD26:	EQUAL?	GL-PRSO,TH-MATCH \?CCL24
+	FSET?	TH-MATCH,FL-LIGHTED \?CCL31
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL31:	FSET?	TH-MATCH,FL-BURNABLE /?CCL33
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is burned out."
+?CCL33:	EQUAL?	GL-PRSI,TH-HANDS,FALSE-VALUE /?CCL35
+	FSET?	GL-PRSI,FL-LIGHTED \FALSE
+	FSET?	GL-PRSI,FL-BURNABLE \FALSE
+?CCL35:	FSET	TH-MATCH,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,2,0
+	ICALL	RT-ALARM-SET-REL,RT-I-MATCH-OUT,STACK
+	MOVE	TH-MATCH,GL-WINNER
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" flares to life."
+?CCL24:	EQUAL?	GL-PRSA,V?LAMP-OFF \FALSE
+	FSET?	TH-MATCH,FL-LIGHTED /?CCL44
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" isn't lit."
+?CCL44:	FCLEAR	TH-MATCH,FL-LIGHTED
+	ICALL1	BURN-OUT-MATCH
+	ICALL2	RT-ALARM-CLR,RT-I-MATCH-OUT
+	ICALL	RT-CYOU-MSG,STR?802,STR?803
+	PRINTR	"out the match."
+
+
+	.FUNCT	CLEAR-ALL-FLAGS,OBJ,N
+	SET	'N,1
+?PRG1:	EQUAL?	N,FL-HAS-SDESC,FL-HAS-DESCFCN,FL-NEEDS-IDENTITY /?CND3
+	EQUAL?	N,FL-LOSE-IDENTITY /?CND3
+	FCLEAR	OBJ,N
+?CND3:	IGRTR?	'N,48 \?PRG1
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-TORCH,CONTEXT,WHO
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	FSET?	TH-TORCH,FL-BROKEN \?CCL6
+	PRINTI	"burnt torch"
+	RTRUE	
+?CCL6:	PRINTI	"torch"
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL8
+	FSET?	TH-TORCH,FL-BROKEN /FALSE
+	FSET?	TH-TORCH,FL-LIGHTED \FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-TORCH
+	PRINTR	" is burning."
+?CCL8:	FSET?	TH-TORCH,FL-BROKEN /FALSE
+	EQUAL?	GL-PRSA,V?MELT,V?HEAT,V?LIGHT-WITH /?PRD18
+	EQUAL?	GL-PRSA,V?BURN-WITH \?CCL16
+?PRD18:	EQUAL?	GL-PRSI,TH-TORCH \?CCL16
+	FSET?	TH-TORCH,FL-LIGHTED /?CCL23
+	ICALL2	RT-CTHEO-PRINT,TH-TORCH
+	PRINTR	" is not lit."
+?CCL23:	EQUAL?	GL-PRSO,TH-TORCH \?CCL25
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL25:	EQUAL?	GL-PRSO,TH-WAX-HEAD \?CCL27
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" melts into a pool of wax on the floor. You see a gem glittering in the wax."
+	CRLF	
+	MOVE	TH-WAX-HEAD,GL-PLACE-CUR
+	MOVE	TH-EMERALD,TH-WAX-HEAD
+	ICALL2	CLEAR-ALL-FLAGS,TH-WAX-HEAD
+	FSET	TH-WAX-HEAD,FL-OPENED
+	FSET	TH-WAX-HEAD,FL-TRANSPARENT
+	FSET	TH-WAX-HEAD,FL-CONTAINER
+	FSET	TH-WAX-HEAD,FL-BROKEN
+	ICALL2	SET-MASS-TO-ONE,TH-WAX-HEAD
+	GETPT	TH-WAX-HEAD,P?SYNONYM
+	PUT	STACK,0,W?POOL
+	GETPT	TH-WAX-HEAD,P?ADJECTIVE
+	PUT	STACK,0,W?POOL
+	CALL2	RT-THIS-IS-IT,TH-EMERALD
+	RSTACK	
+?CCL27:	EQUAL?	GL-PRSO,TH-WAX-AX \?CCL29
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" melts into a pool of wax on the floor."
+	CRLF	
+	MOVE	TH-WAX-AX,GL-PLACE-CUR
+	ICALL2	CLEAR-ALL-FLAGS,TH-WAX-AX
+	FSET	TH-WAX-AX,FL-OPENED
+	FSET	TH-WAX-AX,FL-TRANSPARENT
+	FSET	TH-WAX-AX,FL-CONTAINER
+	FSET	TH-WAX-AX,FL-BROKEN
+	ICALL2	SET-SIZE-TO-ONE,TH-WAX-AX
+	ICALL2	SET-CAPACITY-TO-ONE,TH-WAX-AX
+	ICALL2	SET-MASS-TO-ONE,TH-WAX-AX
+	GETPT	TH-WAX-AX,P?SYNONYM
+	PUT	STACK,0,W?AX
+	GETPT	TH-WAX-AX,P?ADJECTIVE
+	PUT	STACK,0,W?MELTED
+	RTRUE	
+?CCL29:	FSET?	GL-PRSO,FL-BURNABLE /FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL16:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
+	EQUAL?	GL-PRSO,TH-TORCH \FALSE
+	EQUAL?	GL-PRSI,TH-TOBACCO,TH-PIPE \?CCL38
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL38
+	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSI
+	PRINTI	"put out enough heat to light "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL38:	FSET?	GL-PRSI,FL-BURNABLE /?CCL42
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot light "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL42:	FSET?	GL-PRSI,FL-LIGHTED /?CCL44
+	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"burning."
+?CCL44:	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" catches fire quickly."
+	CRLF	
+	FSET	TH-TORCH,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,1,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-TORCH-OUT,STACK
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CND45
+	CRLF	
+	PRINTI	"Holmes looks at you and says, ""An ingenious solution, Watson. My compliments, old chap."""
+	CRLF	
+?CND45:	CALL2	RT-UPDATE-SCORE,4
+	RSTACK	
+
+
+	.FUNCT	RT-LIGHT-PIPE,FIRE
+	FSET?	FIRE,FL-BURNABLE /?CCL3
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot light "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL3:	FSET?	FIRE,FL-LIGHTED /?CCL5
+	ICALL2	RT-CTHEO-PRINT,FIRE
+	PRINTR	" is not burning."
+?CCL5:	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL7
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL7:	IN?	TH-TOBACCO,TH-PIPE \FALSE
+	FSET	TH-TOBACCO,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,15,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PIPE-OUT,STACK
+	PRINTI	"After a few puffs, "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" fires right up."
+
+
+	.FUNCT	RT-AC-TH-TOBACCO,CONTEXT,I
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL6
+	ICALL2	RT-CTHEO-PRINT,TH-TOBACCO
+	PRINTR	" is burning."
+?CCL6:	PRINTR	"It's Holmes's favorite brand of shag tobacco."
+?CCL3:	ZERO?	GL-NOW-PRSI? \?CND1
+	SET	'GL-P-IT-OBJECT,TH-TOBACCO
+?CND1:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \?CCL10
+	EQUAL?	GL-PRSO,TH-TOBACCO \?CCL10
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-HANDS \?CCL15
+	SET	'I,TH-MATCH
+	JUMP	?CND13
+?CCL15:	SET	'I,GL-PRSI
+?CND13:	IN?	I,GL-WINNER /?CCL18
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-A-PRINT,I
+	PRINTR	"."
+?CCL18:	IN?	TH-PIPE,GL-WINNER /?CCL20
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-THEO-PRINT,TH-PIPE
+	PRINTR	"."
+?CCL20:	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL22
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL22:	CALL2	RT-LIGHT-PIPE,I
+	ZERO?	STACK \TRUE
+	ICALL1	RT-CTHEO-PRINT
+	PRINTC	32
+	PRINT	K-SMOULDERS-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	EQUAL?	GL-PRSA,V?TAKE,V?TOUCH \?CCL26
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL26
+	PRINTR	"Yeeeeouch! That's hot!"
+?CCL26:	EQUAL?	GL-PRSA,V?SMOKE \?CCL30
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL33
+	PRINT	K-BRAND-MSG
+	CRLF	
+	RTRUE	
+?CCL33:	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is not lit."
+?CCL30:	EQUAL?	GL-PRSA,V?SMELL \FALSE
+	PRINTR	"The shag has a strong, but pleasant smell."
+
+
+	.FUNCT	RT-AC-TH-PIPE,CONTEXT,I,DEST
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL6
+	IN?	TH-TOBACCO,TH-PIPE \?CCL6
+	PRINTI	"Smoke gently wafts from "
+	ICALL2	RT-THEO-PRINT,TH-PIPE
+	PRINTR	"."
+?CCL6:	PRINTR	"It is an old and oily black clay pipe, the companion of Holmes's deepest meditations."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CCL12
+	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \?CCL15
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-HANDS \?CCL18
+	SET	'I,TH-MATCH
+	JUMP	?CND16
+?CCL18:	SET	'I,GL-PRSI
+?CND16:	IN?	I,GL-WINNER /?CCL21
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-A-PRINT,I
+	PRINTR	"."
+?CCL21:	IN?	TH-PIPE,GL-WINNER /?CCL23
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-THEO-PRINT,TH-PIPE
+	PRINTR	"."
+?CCL23:	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL25
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL25:	CALL2	RT-LIGHT-PIPE,I
+	ZERO?	STACK \TRUE
+	PRINTR	"There is nothing in the pipe to light."
+?CCL15:	EQUAL?	GL-PRSA,V?PUT \?CCL29
+	EQUAL?	GL-PRSI,TH-PLAYER-BODY \?CCL29
+	GET	GL-P-NAMW,1
+	EQUAL?	STACK,W?MOUTH \?CCL29
+	CALL	RT-PERFORM,V?SMOKE,TH-PIPE
+	RSTACK	
+?CCL29:	EQUAL?	GL-PRSA,V?SMOKE \?CCL34
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL37
+	PRINT	K-BRAND-MSG
+	CRLF	
+	RTRUE	
+?CCL37:	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is not lit."
+?CCL34:	EQUAL?	GL-PRSA,V?EMPTY-INTO,V?POUR \FALSE
+	IN?	TH-TOBACCO,TH-PIPE \FALSE
+	FSET?	TH-TOBACCO,FL-LIGHTED \FALSE
+	EQUAL?	GL-PRSA,V?POUR \?CCL45
+	FCLEAR	TH-TOBACCO,FL-LIGHTED
+	MOVE	TH-TOBACCO,GL-PLACE-CUR
+	ICALL2	RT-CTHEO-PRINT,TH-TOBACCO
+	PRINTI	" falls "
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-ONE,RM-THAMES-TWO,RM-THAMES-THREE /?CTR47
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-FOUR,RM-THAMES-FIVE \?CCL48
+?CTR47:	REMOVE	TH-TOBACCO
+	PRINTR	"into the water."
+?CCL48:	PRINTI	"to "
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL53
+	ICALL1	TELL-THE-FLOOR
+	JUMP	?CND51
+?CCL53:	ICALL1	TELL-THE-GROUND
+?CND51:	PRINTI	", "
+	PRINT	K-SMOULDERS-MSG
+	CRLF	
+	RTRUE	
+?CCL45:	EQUAL?	GL-PRSA,V?EMPTY-INTO \FALSE
+	CALL	RT-ROOM-IN-ON-MSG?,TH-TOBACCO,GL-PRSI
+	ZERO?	STACK \TRUE
+	CALL	RT-CHECK-MOVE-MSG?,TH-TOBACCO,GL-PRSI
+	ZERO?	STACK \TRUE
+	FCLEAR	TH-TOBACCO,FL-LIGHTED
+	MOVE	TH-TOBACCO,GL-PRSI
+	ICALL2	RT-CTHEO-PRINT,TH-TOBACCO
+	PRINTI	" falls "
+	FSET?	GL-PRSI,FL-CONTAINER \?CCL63
+	PRINTI	"into"
+	JUMP	?CND61
+?CCL63:	PRINTI	"onto"
+?CND61:	PRINTC	32
+	ICALL1	RT-THEI-PRINT
+	PRINTI	", "
+	PRINT	K-SMOULDERS-MSG
+	CRLF	
+	RTRUE	
+?CCL12:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT \?CCL68
+	EQUAL?	GL-PRSO,TH-TOBACCO /?CCL68
+	PRINTI	"Putting "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" in "
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" would"
+	CALL1	RT-WASTE-OF-TIME-MSG
+	RSTACK	
+?CCL68:	EQUAL?	GL-PRSA,V?POUR-FROM \FALSE
+	EQUAL?	GL-PRSO,TH-TOBACCO \FALSE
+	IN?	TH-TOBACCO,TH-PIPE \FALSE
+	FSET?	TH-TOBACCO,FL-LIGHTED \FALSE
+	FCLEAR	TH-TOBACCO,FL-LIGHTED
+	MOVE	TH-TOBACCO,GL-PLACE-CUR
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" falls to "
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL79
+	ICALL1	TELL-THE-FLOOR
+	JUMP	?CND77
+?CCL79:	ICALL1	TELL-THE-GROUND
+?CND77:	PRINTI	", "
+	PRINT	K-SMOULDERS-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-MAIL,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-MAIL,FL-LIGHTED \FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-MAIL
+	PRINTR	" is burning."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CND1
+	SET	'GL-P-IT-OBJECT,TH-MAIL
+?CND1:	EQUAL?	GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON /?CTR11
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?OPEN,V?SEARCH /?CTR11
+	EQUAL?	GL-PRSA,V?OPEN-WITH \?CCL12
+?CTR11:	PRINTR	"You should not read other people's mail."
+?CCL12:	EQUAL?	GL-PRSA,V?CLOSE \?CCL17
+	PRINTR	"The mail hasn't been opened."
+?CCL17:	EQUAL?	GL-PRSA,V?TAKE \?CCL19
+	ZERO?	KNIFE-COLD? /?CCL19
+	SET	'KNIFE-COLD?,FALSE-VALUE
+	MOVE	TH-KNIFE,GL-WINNER
+	PRINTI	"[Taking the knife first]"
+	ZERO?	GL-P-MULT? /?CCL24
+	PRINTC	32
+	RFALSE	
+?CCL24:	CRLF	
+	RFALSE	
+?CCL19:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	FSET?	TH-MAIL,FL-LIGHTED \?CCL31
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL31:	FSET?	GL-PRSI,FL-BURNABLE /?CCL33
+	EQUAL?	GL-PRSI,TH-PIPE \FALSE
+?CCL33:	FSET?	GL-PRSI,FL-LIGHTED \?PRD39
+	FSET?	GL-PRSI,FL-BURNABLE /?CTR36
+?PRD39:	EQUAL?	GL-PRSI,TH-PIPE \?CCL37
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL37
+?CTR36:	ICALL2	RT-CTHEO-PRINT,TH-MAIL
+	PRINTI	" lights up."
+	CRLF	
+	FSET	TH-MAIL,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,3,0
+	CALL	RT-ALARM-SET-REL,RT-I-MAIL-OUT,STACK
+	RSTACK	
+?CCL37:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"burning."
+
+
+	.FUNCT	RT-AC-TH-NEWSPAPER,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-NEWSPAPER,FL-LIGHTED \?CCL6
+	ICALL2	RT-CTHEO-PRINT,TH-NEWSPAPER
+	PRINTR	" is burning."
+?CCL6:	PRINTR	"It's the newspaper that came in your game package."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?READ-TO,V?SHOW /?CCL10
+	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH,V?GIVE /?CCL10
+	EQUAL?	GL-PRSA,V?TELL-ABOUT \FALSE
+?CCL10:	IN?	TH-NEWSPAPER,CH-PLAYER /?CCL15
+	PRINTR	"The newspaper will not leap into your hand by itself."
+?CCL15:	EQUAL?	GL-PRSA,V?READ \?CCL17
+	CALL1	RT-READ-NEWSPAPER
+	RSTACK	
+?CCL17:	EQUAL?	GL-PRSA,V?READ-TO,V?SHOW,V?GIVE \?PRD21
+	ZERO?	GL-NOW-PRSI? /?CTR18
+?PRD21:	EQUAL?	GL-PRSA,V?TELL-ABOUT \?CCL19
+	ZERO?	GL-NOW-PRSI? /?CCL19
+?CTR18:	FSET?	GL-PRSI,FL-PERSON \FALSE
+	FSET?	TH-NEWSPAPER,FL-ASLEEP /?CCL29
+	FSET?	TH-NEWSPAPER,FL-OPENED \?CND26
+?CCL29:	ICALL1	RT-READ-NEWSPAPER
+	CRLF	
+?CND26:	EQUAL?	GL-PRSA,V?READ-TO,V?SHOW,V?GIVE \?PRD36
+	EQUAL?	GL-PRSI,CH-HOLMES /?CTR33
+?PRD36:	EQUAL?	GL-PRSA,V?TELL-ABOUT \?CCL34
+	EQUAL?	GL-PRSO,CH-HOLMES \?CCL34
+?CTR33:	FSET?	CH-HOLMES,FL-ASLEEP \FALSE
+	ICALL1	RT-WAKE-UP-HOLMES
+	EQUAL?	GL-PRSA,V?GIVE \TRUE
+	MOVE	TH-NEWSPAPER,CH-HOLMES
+	RTRUE	
+?CCL34:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSI
+	PRINTR	"seem to be interested."
+?CCL19:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	FSET?	TH-NEWSPAPER,FL-LIGHTED \?CCL52
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL52:	FSET?	GL-PRSI,FL-BURNABLE /?CCL54
+	EQUAL?	GL-PRSI,TH-PIPE \FALSE
+?CCL54:	FSET?	GL-PRSI,FL-LIGHTED \?PRD60
+	FSET?	GL-PRSI,FL-BURNABLE /?CTR57
+?PRD60:	EQUAL?	GL-PRSI,TH-PIPE \?CCL58
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL58
+?CTR57:	ICALL2	RT-CTHEO-PRINT,TH-NEWSPAPER
+	PRINTI	" lights up."
+	CRLF	
+	FSET	TH-NEWSPAPER,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,3,0
+	ICALL	RT-ALARM-SET-REL,RT-I-NEWSPAPER-OUT,STACK
+	RTRUE	
+?CCL58:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"burning."
+
+
+	.FUNCT	RT-AC-TH-WESTMINSTER-CLUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-MAIL,FL-LIGHTED \FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-MAIL
+	PRINTR	" is burning."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE \?CCL10
+	IN?	TH-WESTMINSTER-CLUE,CH-PLAYER /?CCL13
+	PRINTR	"The paper will not leap into your hand by itself."
+?CCL13:	GETP	TH-WESTMINSTER-CLUE,P?FLIPPED
+	ZERO?	STACK \?CCL15
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Mortality, behold and fear!"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"What a change of flesh is here!"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Think how many royal bones"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Sleep within this heap of stones:"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Here they lie, had realms and lands,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Who now want strength"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"to stir their hands."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"For two-score years I reigned alone,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"A virgin queen on England's throne."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"My navy caused Armada's shame,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"And with me died the Tudor name."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"The apple sorely tempted Eve,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"And Tell another aimed to cleave."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"But when one fell, it showed to me,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"The mighty pull of gravity."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"My father, it was said, would die,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Beneath the Holy City's sky."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Jerusalem his body claimed,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"And it is after him I'm named."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"O stately Holmes of England,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"In Baker Street abide."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"For even you must surely fail,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTR	"To save your country's pride."
+?CCL15:	PRINTR	"This side appears to be blank."
+?CCL10:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \?CCL17
+	ZERO?	GL-NOW-PRSI? \?CCL17
+	FSET?	TH-WESTMINSTER-CLUE,FL-LIGHTED \?CCL22
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is already lit."
+?CCL22:	FSET?	GL-PRSI,FL-BURNABLE /?CCL24
+	EQUAL?	GL-PRSI,TH-PIPE \FALSE
+?CCL24:	FSET?	GL-PRSI,FL-LIGHTED \?PRD30
+	FSET?	GL-PRSI,FL-BURNABLE /?CTR27
+?PRD30:	EQUAL?	GL-PRSI,TH-PIPE \?CCL28
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL28
+?CTR27:	ICALL2	RT-CTHEO-PRINT,TH-WESTMINSTER-CLUE
+	PRINTI	" lights up."
+	CRLF	
+	FSET	TH-WESTMINSTER-CLUE,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,3,0
+	ICALL	RT-ALARM-SET-REL,RT-I-CLUE-OUT,STACK
+	RTRUE	
+?CCL28:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"burning."
+?CCL17:	EQUAL?	GL-PRSA,V?FLIP \?CCL36
+	IN?	TH-WESTMINSTER-CLUE,GL-WINNER /?CCL39
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-THEO-PRINT,TH-WESTMINSTER-CLUE
+	PRINTR	"."
+?CCL39:	GETP	TH-WESTMINSTER-CLUE,P?FLIPPED
+	SUB	1,STACK
+	PUTP	TH-WESTMINSTER-CLUE,P?FLIPPED,STACK
+	ICALL	RT-CYOU-MSG,STR?804,STR?805
+	ICALL2	RT-THEO-PRINT,TH-WESTMINSTER-CLUE
+	PRINTR	" over."
+?CCL36:	EQUAL?	GL-PRSA,V?LOOK-THRU \FALSE
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS \FALSE
+	PRINTR	"It's been wiped clean."
+
+
+	.FUNCT	RT-AC-TH-WAX-HEAD,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	FSET?	TH-WAX-HEAD,FL-BROKEN \?CCL6
+	PRINTI	"wax pool"
+	RTRUE	
+?CCL6:	PRINTI	"wax head"
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL8
+	FSET?	TH-WAX-HEAD,FL-BROKEN \FALSE
+	FIRST?	TH-WAX-HEAD /FALSE
+	PRINTI	"Looks like any other "
+	ICALL2	DPRINT,TH-WAX-HEAD
+	PRINTR	"."
+?CCL8:	FSET?	TH-WAX-HEAD,FL-BROKEN /FALSE
+	IN?	TH-WAX-HEAD,TH-CHARLES-STATUE \?CCL18
+	EQUAL?	GL-PRSA,V?TAKE,V?UNSCREW-FROM \?CCL21
+	MOVE	TH-WAX-HEAD,GL-WINNER
+	FSET	TH-WAX-HEAD,FL-SEEN
+	FCLEAR	TH-WAX-HEAD,FL-NODESC
+	FCLEAR	TH-WAX-HEAD,FL-NOALL
+	ZERO?	GL-P-MULT? /?CCL24
+	PRINTR	"Taken."
+?CCL24:	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	ICALL2	RT-THEO-PRINT,TH-WAX-HEAD
+	PRINTR	"."
+?CCL21:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	FSET	TH-WAX-HEAD,FL-SEEN
+	ICALL2	RT-CTHEO-PRINT,TH-WAX-HEAD
+	PRINTI	" wobbles slightly."
+	BTST	CH-HOLMES-AUX1,1 /?CND27
+	PRINTC	32
+	ICALL2	RT-THEO-PRINT,CH-HOLMES
+	PRINTI	" says, ""Even when he was alive, he didn't have his head screwed on right."""
+	BOR	CH-HOLMES-AUX1,K-HOLMES-HEAD? >CH-HOLMES-AUX1
+?CND27:	CRLF	
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSA,V?MELT,V?HEAT \?CCL30
+	ZERO?	GL-NOW-PRSI? \?CCL30
+	FSET?	GL-PRSI,FL-BURNABLE \?PRD35
+	FSET?	GL-PRSI,FL-LIGHTED /?CTR29
+?PRD35:	EQUAL?	GL-PRSI,TH-PIPE \?CCL30
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL30
+?CTR29:	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" softens, but "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	" does not put out enough heat to melt it."
+?CCL30:	EQUAL?	GL-PRSA,V?MUNG,V?KILL,V?OPEN \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't break into the head."
+
+
+	.FUNCT	DESC-WAX-AX,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	FSET?	TH-WAX-AX,FL-BROKEN \?CCL6
+	PRINTI	"melted axe"
+	RTRUE	
+?CCL6:	PRINTI	"axe"
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	FSET?	TH-WAX-AX,FL-BROKEN \FALSE
+	FIRST?	TH-WAX-AX /FALSE
+	PRINTI	"Looks like any other "
+	ICALL2	DPRINT,TH-WAX-AX
+	PRINTR	"."
+
+
+	.FUNCT	RT-GUARD-TAKE-ITEM,OBJ1,OBJ2,OBJ3,STR
+	ICALL2	RT-CTHEO-PRINT,CH-TUSSAUDS-GUARD
+	PRINTI	" says, ""I'm sorry, but "
+	ICALL2	RT-THEO-PRINT,OBJ1
+	ZERO?	OBJ2 /?CCL3
+	ZERO?	OBJ3 /?CCL3
+	PRINTI	", "
+	ICALL2	RT-THEO-PRINT,OBJ2
+	PRINTI	" and "
+	ICALL2	RT-THEO-PRINT,OBJ3
+	PRINTI	" are"
+	SET	'STR,STR?806
+	JUMP	?CND1
+?CCL3:	ZERO?	OBJ2 /?CCL7
+	PRINTI	" and "
+	ICALL2	RT-THEO-PRINT,OBJ2
+	PRINTI	" are"
+	SET	'STR,STR?806
+	JUMP	?CND1
+?CCL7:	PRINTI	" is"
+	SET	'STR,STR?807
+?CND1:	PRINTI	" not to be removed."" He takes "
+	PRINT	STR
+	PRINTI	" and returns "
+	PRINT	STR
+	PRINTI	" to the proper place."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-GUARD-STOP-ENTRANCE,OBJ,WHO
+	CALL1	RT-WHO-SAYS? >WHO
+	ICALL	SOUNDS,S-BARK,S-START,8,4
+	ICALL2	RT-CTHEO-PRINT,CH-MATCH-SNIFFING-DOG
+	PRINTI	" barks loudly and "
+	ICALL2	RT-THEO-PRINT,CH-TUSSAUDS-GUARD
+	PRINTI	" says, ""Seeing as how it's you, "
+	EQUAL?	WHO,CH-HOLMES \?CCL3
+	PRINTI	"Mr Holmes"
+	JUMP	?CND1
+?CCL3:	PRINTI	"Doctor Watson"
+?CND1:	PRINTI	", I don't mind letting you in. But as you know we are very afraid of fire here, so we have trained this dog to detect matches or open flames. I'm afraid I can't allow you"
+	EQUAL?	WHO,CH-HOLMES,CH-WIGGINS \?CND4
+	PRINTI	" or your companion"
+?CND4:	PRINTI	" to enter until "
+	ICALL2	RT-THEO-PRINT,OBJ
+	PRINTR	" has been discarded."""
+
+
+	.FUNCT	RT-EX-RM-EXIT-TUSSAUDS,IN1,IN2,IN3,TORCH
+	EQUAL?	GL-PRSO,P?SOUTH,P?OUT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
+	CALL	RT-META-IN?,TH-TORCH,GL-WINNER
+	ZERO?	STACK \?CCL8
+	CALL	RT-META-IN?,TH-TORCH,GL-PUPPY
+	ZERO?	STACK \?CCL8
+	SET	'IN1,0
+	JUMP	?CND6
+?CCL8:	SET	'TORCH,TH-TORCH
+	SET	'IN1,1
+?CND6:	CALL	RT-META-IN?,TH-WAX-HEAD,GL-WINNER >IN2
+	ZERO?	IN2 \?PEN11
+	CALL	RT-META-IN?,TH-WAX-HEAD,GL-PUPPY >IN2
+?PEN11:	CALL	RT-META-IN?,TH-WAX-AX,GL-WINNER >IN3
+	ZERO?	IN3 \?PEN14
+	CALL	RT-META-IN?,TH-WAX-AX,GL-PUPPY >IN3
+?PEN14:	ZERO?	IN1 /?CCL19
+	ZERO?	IN2 /?CCL19
+	ZERO?	IN3 /?CCL19
+	ICALL	RT-GUARD-TAKE-ITEM,TH-TORCH,TH-WAX-HEAD,TH-WAX-AX
+	JUMP	?CND17
+?CCL19:	ZERO?	IN1 /?CCL24
+	ZERO?	IN2 /?CCL24
+	ICALL	RT-GUARD-TAKE-ITEM,TH-TORCH,TH-WAX-HEAD
+	JUMP	?CND17
+?CCL24:	ZERO?	IN1 /?CCL28
+	ZERO?	IN3 /?CCL28
+	ICALL	RT-GUARD-TAKE-ITEM,TH-TORCH,TH-WAX-AX
+	JUMP	?CND17
+?CCL28:	ZERO?	IN2 /?CCL32
+	ZERO?	IN3 /?CCL32
+	ICALL	RT-GUARD-TAKE-ITEM,TH-WAX-HEAD,TH-WAX-AX
+	JUMP	?CND17
+?CCL32:	ZERO?	IN1 /?CCL36
+	ICALL2	RT-GUARD-TAKE-ITEM,TH-TORCH
+	JUMP	?CND17
+?CCL36:	ZERO?	IN2 /?CCL38
+	ICALL2	RT-GUARD-TAKE-ITEM,TH-WAX-HEAD
+	JUMP	?CND17
+?CCL38:	ZERO?	IN3 /?CND17
+	ICALL2	RT-GUARD-TAKE-ITEM,TH-WAX-AX
+?CND17:	ZERO?	IN1 /?CND40
+	MOVE	TORCH,TH-FAWKES-STATUE
+	FSET	TORCH,FL-NODESC
+	FSET?	TORCH,FL-LIGHTED \?CND40
+	ICALL2	RT-ALARM-CLR,RT-I-TORCH-OUT
+	ICALL1	RT-I-TORCH-OUT
+	FSET	TH-TORCH,FL-NODESC
+?CND40:	ZERO?	IN2 /?CND44
+	MOVE	TH-WAX-HEAD,TH-CHARLES-STATUE
+	FSET	TH-WAX-HEAD,FL-NODESC
+?CND44:	ZERO?	IN3 /?CND46
+	MOVE	TH-WAX-AX,TH-CHARLES-STATUE
+	FSET	TH-WAX-AX,FL-NODESC
+?CND46:	RETURN	RM-MARYLEBONE-RD
+
+
+	.FUNCT	RT-EX-RM-MATCH-SNIFFING-DOG,OBJ,FLAME?,FIRST,LAMP?,MATCH?
+	SET	'FIRST,TRUE-VALUE
+	EQUAL?	GL-PRSO,P?NORTH,P?IN \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MARYLEBONE-RD \FALSE
+?PRG6:	FIRST?	GL-WINNER >OBJ /?PRG9
+?PRG9:	ZERO?	OBJ /?REP10
+	FSET?	OBJ,FL-BURNABLE \?CND11
+	FSET?	OBJ,FL-LIGHTED \?CND11
+	EQUAL?	OBJ,TH-TOBACCO /?CND11
+	SET	'FLAME?,OBJ
+?REP10:	ZERO?	FLAME? \?REP7
+	ZERO?	FIRST /?REP7
+	ZERO?	GL-PUPPY /?REP7
+	FIRST?	GL-PUPPY >OBJ /?BOGUS25
+?BOGUS25:	SET	'FIRST,FALSE-VALUE
+	JUMP	?PRG6
+?CND11:	NEXT?	OBJ >OBJ /?PRG9
+	JUMP	?PRG9
+?REP7:	CALL	RT-META-IN?,TH-MATCH,CH-PLAYER
+	ZERO?	STACK \?PRD32
+	CALL	RT-META-IN?,TH-MATCH,GL-PUPPY
+	ZERO?	STACK /?PST31
+?PRD32:	FSET?	TH-MATCH,FL-BURNABLE /?PST36
+	FSET?	TH-MATCH,FL-LIGHTED /?PRD38
+	PUSH	0
+	JUMP	?PRD39
+?PRD38:	PUSH	1
+?PRD39:	SET	'MATCH?,STACK
+	JUMP	?PEN30
+?PST36:	SET	'MATCH?,1
+	JUMP	?PEN30
+?PST31:	SET	'MATCH?,0
+?PEN30:	ZERO?	MATCH? \?CCL27
+	CALL	RT-META-IN?,TH-LAMP,CH-PLAYER >LAMP?
+	ZERO?	LAMP? \?PEN41
+	CALL	RT-META-IN?,TH-LAMP,GL-PUPPY >LAMP?
+?PEN41:	ZERO?	LAMP? \?CCL27
+	ZERO?	FLAME? /?CND26
+?CCL27:	ZERO?	FLAME? /?CCL46
+	SET	'OBJ,FLAME?
+	JUMP	?CND44
+?CCL46:	ZERO?	LAMP? /?CCL48
+	SET	'OBJ,TH-LAMP
+	JUMP	?CND44
+?CCL48:	ZERO?	MATCH? \?CCL50
+	SET	'OBJ,0
+	JUMP	?CND44
+?CCL50:	SET	'OBJ,TH-MATCH
+?CND44:	ICALL2	RT-GUARD-STOP-ENTRANCE,OBJ
+	RFALSE	
+?CND26:	FSET?	TH-WAX-HEAD,FL-BROKEN /?CCL52
+	FSET?	TH-WAX-AX,FL-BROKEN /?CCL52
+	RETURN	RM-MADAME-TUSSAUDS
+?CCL52:	PRINTI	"The guard blocks your path and says, ""Oh no you don't, laddie. When I let you in earlier you made a proper mess of my museum. I won't let you do that again."" After you promise to pay for the damage and plead with him for a few moments, he finally steps aside."
+	CRLF	
+	CRLF	
+	RETURN	RM-MADAME-TUSSAUDS
+
+
+	.FUNCT	RT-PUT-OUT,THING
+	FSET?	THING,FL-BURNABLE \FALSE
+	FSET?	THING,FL-LIGHTED \FALSE
+	EQUAL?	THING,TH-MATCH \?CCL7
+	ICALL2	RT-ALARM-CLR,RT-I-MATCH-OUT
+	CALL1	RT-I-MATCH-OUT
+	RSTACK	
+?CCL7:	EQUAL?	THING,TH-PIPE \?CCL9
+	ICALL2	RT-ALARM-CLR,RT-I-PIPE-OUT
+	CALL1	RT-I-PIPE-OUT
+	RSTACK	
+?CCL9:	EQUAL?	THING,TH-TORCH \?CCL11
+	ICALL2	RT-ALARM-CLR,RT-I-TORCH-OUT
+	CALL1	RT-I-TORCH-OUT
+	RSTACK	
+?CCL11:	EQUAL?	THING,TH-NEWSPAPER \?CCL13
+	ICALL2	RT-ALARM-CLR,RT-I-NEWSPAPER-OUT
+	CALL1	RT-I-NEWSPAPER-OUT
+	RSTACK	
+?CCL13:	EQUAL?	THING,TH-WESTMINSTER-CLUE \?CCL15
+	ICALL2	RT-ALARM-CLR,RT-I-CLUE-OUT
+	CALL1	RT-I-CLUE-OUT
+	RSTACK	
+?CCL15:	EQUAL?	THING,TH-MAIL \?CCL17
+	ICALL2	RT-ALARM-CLR,RT-I-MAIL-OUT
+	CALL1	RT-I-MAIL-OUT
+	RSTACK	
+?CCL17:	EQUAL?	THING,TH-MATCHBOOK \?CCL19
+	ICALL2	RT-ALARM-CLR,RT-I-MATCHBOOK-OUT
+	CALL1	RT-I-MATCHBOOK-OUT
+	RSTACK	
+?CCL19:	REMOVE	THING
+	FCLEAR	THING,FL-WORN
+	FCLEAR	THING,FL-LIGHTED
+	FCLEAR	THING,FL-BURNABLE
+	ICALL2	RT-CTHEO-PRINT,THING
+	PRINTI	" burn"
+	ICALL2	RT-S-NOS-MSG,THING
+	PRINTR	" up and disappears."
+
+
+	.FUNCT	RT-I-MATCH-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-MATCH
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-MATCH
+	PRINTI	" flickers and dies."
+	CRLF	
+	SET	'RESULT,TRUE-VALUE
+?CND1:	FCLEAR	TH-MATCH,FL-LIGHTED
+	ICALL1	BURN-MATCH-OUT
+	RETURN	RESULT
+
+
+	.FUNCT	BURN-MATCH-OUT
+	FCLEAR	TH-MATCH,FL-BURNABLE
+	FSET	TH-MATCH,FL-BROKEN
+	GETPT	TH-MATCH,P?ADJECTIVE
+	PUT	STACK,0,W?BURNT
+	RTRUE	
+
+
+	.FUNCT	RT-I-PIPE-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-TOBACCO
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-PIPE
+	PRINTI	" has gone out."
+	CRLF	
+?CND1:	FCLEAR	TH-TOBACCO,FL-LIGHTED
+	FCLEAR	TH-TOBACCO,FL-BURNABLE
+	REMOVE	TH-TOBACCO
+	RETURN	RESULT
+
+
+	.FUNCT	RT-I-TORCH-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-TORCH
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-TORCH
+	PRINTI	" sputters and dies."
+	CRLF	
+	SET	'RESULT,TRUE-VALUE
+?CND1:	ICALL2	CLEAR-ALL-FLAGS,TH-TORCH
+	GETPT	TH-TORCH,P?ADJECTIVE
+	PUT	STACK,0,W?BURNT
+	FSET	TH-TORCH,FL-TAKEABLE
+	FSET	TH-TORCH,FL-BROKEN
+	RETURN	RESULT
+
+
+	.FUNCT	RT-I-NEWSPAPER-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-NEWSPAPER
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-NEWSPAPER
+	PRINTI	" disappears into a cloud of fine ash, which itself disappears."
+	CRLF	
+	SET	'RESULT,TRUE-VALUE
+?CND1:	FCLEAR	TH-NEWSPAPER,FL-LIGHTED
+	FCLEAR	TH-NEWSPAPER,FL-BURNABLE
+	REMOVE	TH-NEWSPAPER
+	RETURN	RESULT
+
+
+	.FUNCT	RT-I-CLUE-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-WESTMINSTER-CLUE
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-WESTMINSTER-CLUE
+	PRINTI	" disappears in a puff of oily black smoke."
+	CRLF	
+	SET	'RESULT,TRUE-VALUE
+?CND1:	FCLEAR	TH-WESTMINSTER-CLUE,FL-LIGHTED
+	FCLEAR	TH-WESTMINSTER-CLUE,FL-BURNABLE
+	REMOVE	TH-WESTMINSTER-CLUE
+	RETURN	RESULT
+
+
+	.FUNCT	RT-I-MAIL-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-MAIL
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-MAIL
+	PRINTI	" disappears in a flash of light."
+	CRLF	
+	SET	'RESULT,TRUE-VALUE
+?CND1:	FCLEAR	TH-MAIL,FL-LIGHTED
+	FCLEAR	TH-MAIL,FL-BURNABLE
+	REMOVE	TH-MAIL
+	RETURN	RESULT
+
+
+	.FUNCT	RT-I-MATCHBOOK-OUT,RESULT
+	CALL2	RT-VISIBLE?,TH-MATCHBOOK
+	ZERO?	STACK /?CND1
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,TH-MATCHBOOK
+	PRINTI	" burns up and disappears."
+	CRLF	
+	SET	'RESULT,TRUE-VALUE
+?CND1:	FCLEAR	TH-MATCHBOOK,FL-LIGHTED
+	FCLEAR	TH-MATCHBOOK,FL-BURNABLE
+	REMOVE	TH-MATCHBOOK
+	RETURN	RESULT
+
+
+	.FUNCT	PRE-LIGHT-WITH
+	EQUAL?	GL-PRSO,TH-MATCH,TH-TOBACCO /FALSE
+	IN?	GL-PRSO,GL-WINNER /FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?738,GL-PRSO
+	PRINTI	" to light "
+	ICALL2	RT-SAY-HIM-HER-THEM-IT-MSG,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	RT-GN-WAX,TBL,LEN
+	PUTP	PSEUDO-OBJECT,P?ACTION,RT-DF-LG-WAX-STATUES
+	SET	'LAST-PSEUDO-LOC,GL-PLACE-CUR
+	RETURN	PSEUDO-OBJECT
+
+	.ENDI
diff --git a/charles.zil b/charles.zil
new file mode 100644
index 0000000..314ffd0
--- /dev/null
+++ b/charles.zil
@@ -0,0 +1,943 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : CHARLES.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   28 Oct 1987 19:34:20  $"
+; "rev  : $Revision:   1.76  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+;-----------------------------------------------------------------------------
+; "TH-WAX-HEAD commented out of THINGS1.ZIL"
+; "TH-WAX-AX commented out of THINGS1.ZIL"
+; "TH-EMERALD commented out of THINGS1.ZIL"
+; "TH-TORCH commented out of THINGS1.ZIL"
+; "TH-TOBACCO commented out of THINGS1.ZIL"
+;-----------------------------------------------------------------------------
+; "RT-AC-TH-MATCH commented out of THINGS2.ZIL"
+; "RT-AC-TH-TORCH commented out of THINGS2.ZIL"
+; "RT-AC-TH-TOBACCO commented out of THINGS2.ZIL"
+; "RT-AC-TH-PIPE commented out of THINGS2.ZIL"
+; "RT-AC-TH-MAIL commented out of THINGS2.ZIL"
+; "RT-AC-TH-NEWSPAPER commented out of THINGS2.ZIL"
+; "RT-AC-TH-WESTMINSTER-CLUE commented out of THINGS2.ZIL"
+;-----------------------------------------------------------------------------
+; "RT-DF-TH-MAIL commented out of THINGS3.ZIL"
+; "RT-DF-TH-NEWSPAPER commented out of THINGS3.ZIL"
+; "RT-DF-TH-WESTMINSTER-CLUE commented out of THINGS3.ZIL"
+; "RT-DF-TH-TOBACCO commented out of THINGS3.ZIL"
+; "RT-DF-TH-PIPE commented out of THINGS3.ZIL"
+; "RT-DF-TH-MATCH commented out of THINGS3.ZIL"
+; "RT-DF-TH-TORCH commented out of THINGS3.ZIL"
+;-----------------------------------------------------------------------------
+
+<OBJECT TH-WAX-HEAD
+   (LOC TH-CHARLES-STATUE)
+   (FLAGS FL-TAKEABLE FL-TRYTAKE FL-NODESC FL-NOALL FL-HAS-SDESC
+	  FL-HAS-DESCFCN)
+   (SYNONYM HEAD WAX)
+   (ADJECTIVE HEAD WAX)
+   (SIZE 1 CAPACITY 1 MASS 0)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-WAX-HEAD)>
+
+<VOC "POOL" NOUN>
+<VOC "POOL" ADJ>
+
+<OBJECT TH-WAX-AX
+   (LOC TH-CHARLES-STATUE)
+   ;(DESC "axe")
+   (FLAGS FL-TAKEABLE FL-VOWEL FL-NODESC FL-NOALL FL-WEAPON
+	  FL-HAS-DESCFCN FL-HAS-SDESC)
+   (SYNONYM BLADE AX AXE WAX)
+   (ADJECTIVE WAX WAX)
+   (SIZE 12 CAPACITY 0 MASS 0)
+   (GENERIC RT-GN-WAX)
+   (ACTION DESC-WAX-AX)>
+
+<VOC "MELTED" ADJ>
+
+<OBJECT TH-EMERALD
+   (FLAGS FL-READABLE FL-TAKEABLE FL-VOWEL FL-SURFACE FL-MONEY
+	  FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (SYNONYM EMERALD GEM GEMS SCRATCH)
+   (ADJECTIVE GREEN EMERALD EMERALD\'S)
+   (VALUE 5)
+   (SIZE 1 MASS 1 CAPACITY 1)
+   (GENERIC RT-GN-GEM)
+   (ACTION RT-AC-TH-EMERALD)>
+
+<OBJECT TH-TORCH
+   (LOC TH-FAWKES-STATUE)
+   ;(DESC "torch")
+   (FLAGS FL-BURNABLE FL-TAKEABLE FL-NODESC FL-NOALL FL-HAS-SDESC
+	  FL-HAS-DESCFCN)
+   (SYNONYM TORCH)
+   (ADJECTIVE ZZZP)
+   (SIZE 1)
+   (ACTION RT-AC-TH-TORCH)>
+
+<VOC "BURNT" ADJ>
+
+<OBJECT TH-TOBACCO
+   (LOC TH-PERSIAN-SLIPPER)
+   (DESC "tobacco")
+   (FLAGS FL-TAKEABLE FL-BURNABLE FL-PLURAL FL-COLLECTIVE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOBACCO SHAG)
+   (ADJECTIVE SHAG)
+   (VALUE 1)
+   (SIZE 1)
+   (ACTION RT-AC-TH-TOBACCO)>
+
+<ROUTINE BURN-OUT-MATCH ()
+  <FCLEAR ,TH-MATCH ,FL-BURNABLE>
+  <CLEAR-ALL-FLAGS ,TH-MATCH>
+  <FSET ,TH-MATCH ,FL-TAKEABLE>
+  <FSET ,TH-MATCH ,FL-BROKEN>>
+
+<ROUTINE RT-AC-TH-MATCH ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-MATCH">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <COND (<FSET? ,TH-MATCH ,FL-BROKEN>
+		      <TELL "burnt match">)
+		     (T
+		      <TELL "match">)>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<FSET? ,TH-MATCH ,FL-BROKEN>
+		      <RFALSE>)
+		     (<MC-IS? ,TH-MATCH ,FL-LIGHTED>
+		      <TELL CTHE ,TH-MATCH " is burning." CR>)
+		     (T <RFALSE>)>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<FSET? ,TH-MATCH ,FL-BROKEN>
+	       <COND (<MC-VERB? LAMP-OFF LIGHT STRIKE BURN-WITH LIGHT-WITH>
+		      <TELL "The match is already burned out." CR>)>)
+	      (<AND <MC-VERB? LIGHT-WITH BURN-WITH STRIKE LIGHT>
+		    <MC-PRSO? ,TH-MATCH>>
+	       <COND (<MC-IS? ,TH-MATCH ,FL-LIGHTED>
+		      <TELL CTHEO " is already lit." CR>)
+		     (<MC-ISNOT? ,TH-MATCH ,FL-BURNABLE>
+		      <TELL CTHEO " is burned out." CR>)
+		     (<OR <MC-PRSI? ,TH-HANDS <>>
+			  <AND <MC-IS? ,GL-PRSI ,FL-LIGHTED>
+			       <MC-IS? ,GL-PRSI ,FL-BURNABLE>>>
+		      <MC-MAKE ,TH-MATCH ,FL-LIGHTED>
+		      <RT-ALARM-SET-REL ,RT-I-MATCH-OUT
+					<RT-PARM-SET 0 2 0>>
+		      <MOVE ,TH-MATCH ,GL-WINNER>
+		      <TELL CTHEO " flares to life." CR>)>)
+	      (<MC-VERB? LAMP-OFF>
+	       <COND (<MC-ISNOT? ,TH-MATCH ,FL-LIGHTED>
+		      <TELL CTHEO " isn't lit." CR>)
+		     (T
+		      <MC-UNMAKE ,TH-MATCH ,FL-LIGHTED>
+		      ;<MC-UNMAKE ,TH-MATCH ,FL-BURNABLE>
+		      <BURN-OUT-MATCH>
+		      ;<MOVE ,TH-BURNT-MATCH <LOC ,TH-MATCH>>
+		      ;<REMOVE ,TH-MATCH>
+		      <RT-ALARM-CLR ,RT-I-MATCH-OUT>
+		      <RT-CYOU-MSG "blow" "blows">
+		      <TELL "out the match." CR>)>)>>
+
+<ROUTINE CLEAR-ALL-FLAGS (OBJ)
+  <REPEAT ((N 1))
+    <COND (<NOT <EQUAL? .N ,FL-HAS-SDESC ,FL-HAS-DESCFCN ,FL-NEEDS-IDENTITY
+			,FL-LOSE-IDENTITY>>
+	   <FCLEAR .OBJ .N>)>
+    <COND (<G? <SET N <+ .N 1>> 48> <RETURN>)>>>
+
+<ROUTINE RT-AC-TH-TORCH ("OPTIONAL" (CONTEXT <>) "AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-TORCH">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <COND (<FSET? ,TH-TORCH ,FL-BROKEN>
+		      <TELL "burnt torch">)
+		     (T
+		      <TELL "torch">)>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<FSET? ,TH-TORCH ,FL-BROKEN>
+		      <RFALSE>)
+		     (<MC-IS? ,TH-TORCH ,FL-LIGHTED>
+		      <TELL CTHE ,TH-TORCH " is burning." CR>
+		      <RTRUE>)>
+	       <RFALSE>)
+	      (<FSET? ,TH-TORCH ,FL-BROKEN>
+	       <RFALSE>
+	       ;<RT-AC-TH-BURNT-TORCH .CONTEXT>)
+	      (<AND <MC-VERB? MELT HEAT LIGHT-WITH BURN-WITH>
+		    <MC-PRSI? ,TH-TORCH>>
+	       <COND (<MC-ISNOT? ,TH-TORCH ,FL-LIGHTED>
+		      <TELL CTHE ,TH-TORCH " is not lit." CR>)
+		     (<MC-PRSO? ,TH-TORCH>
+		      <TELL CTHEO " is already lit." CR>)
+		     (<MC-PRSO? ,TH-WAX-HEAD>
+		      ;<REMOVE ,TH-WAX-HEAD>
+		      ;<MOVE ,TH-WAX-POOL ,GL-PLACE-CUR>
+		      <TELL
+CTHEO " melts into a pool of wax on the floor. You see
+a gem glittering in the wax." CR>
+		      <MOVE ,TH-WAX-HEAD ,GL-PLACE-CUR>
+		      <MOVE ,TH-EMERALD ,TH-WAX-HEAD>
+		      <CLEAR-ALL-FLAGS ,TH-WAX-HEAD>
+		      <FSET ,TH-WAX-HEAD ,FL-OPENED>
+		      <FSET ,TH-WAX-HEAD ,FL-TRANSPARENT>
+		      <FSET ,TH-WAX-HEAD ,FL-CONTAINER>
+		      <FSET ,TH-WAX-HEAD ,FL-BROKEN>
+		      <SET-MASS-TO-ONE ,TH-WAX-HEAD>
+		      <PUT <GETPT ,TH-WAX-HEAD ,P?SYNONYM> 0 ,W?POOL>
+		      <PUT <GETPT ,TH-WAX-HEAD ,P?ADJECTIVE> 0 ,W?POOL>
+		      <RT-THIS-IS-IT ,TH-EMERALD>)
+		     (<MC-PRSO? ,TH-WAX-AX>
+		      ;<REMOVE ,TH-WAX-AX>
+		      ;<MOVE ,TH-MELTED-AX ,GL-PLACE-CUR>
+		      <TELL CTHEO " melts into a pool of wax on the floor." CR>
+		      <MOVE ,TH-WAX-AX ,GL-PLACE-CUR>
+		      <CLEAR-ALL-FLAGS ,TH-WAX-AX>
+		      <FSET ,TH-WAX-AX ,FL-OPENED>
+		      <FSET ,TH-WAX-AX ,FL-TRANSPARENT>
+		      <FSET ,TH-WAX-AX ,FL-CONTAINER>
+		      <FSET ,TH-WAX-AX ,FL-BROKEN>
+		      <SET-SIZE-TO-ONE ,TH-WAX-AX>
+		      <SET-CAPACITY-TO-ONE ,TH-WAX-AX>
+		      <SET-MASS-TO-ONE ,TH-WAX-AX>
+		      <PUT <GETPT ,TH-WAX-AX ,P?SYNONYM> 0 ,W?AX>
+		      <PUT <GETPT ,TH-WAX-AX ,P?ADJECTIVE> 0 ,W?MELTED>)
+		     (<MC-ISNOT? ,GL-PRSO ,FL-BURNABLE>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot " VW " " THEO " with " THEI "." CR>)>)
+	      (<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+		    <MC-PRSO? ,TH-TORCH>>
+	       <COND (<AND <MC-PRSI? ,TH-TOBACCO ,TH-PIPE>
+			   <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+		      <TELL CTHEI>
+		      <RT-DONT-DOESNT-MSG ,GL-PRSI>
+		      <TELL "put out enough heat to light " THEO "." CR>)
+		     (<MC-ISNOT? ,GL-PRSI ,FL-BURNABLE>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot light " THEO " with " THEI "." CR>)
+		     (<MC-ISNOT? ,GL-PRSI ,FL-LIGHTED>
+		      <TELL CTHEI>
+		      <RT-ISNT-ARENT-MSG ,GL-PRSI>
+		      <TELL "burning." CR>)
+		     (T
+		      <TELL CTHEO " catches fire quickly." CR>
+		      <MC-MAKE ,TH-TORCH ,FL-LIGHTED>
+		      <RT-ALARM-SET-REL ,RT-I-TORCH-OUT <RT-PARM-SET 1 0 0>>
+		      <SET WHO <RT-WHO-SAYS?>>
+		      <COND (<EQUAL? .WHO ,CH-HOLMES>
+			     <TELL CR
+"Holmes looks at you and says, \"An ingenious solution, Watson. My
+compliments, old chap.\"" CR>)>
+		      <RT-UPDATE-SCORE 4>)>)>>
+
+<ROUTINE RT-LIGHT-PIPE (FIRE)
+	<COND (<MC-ISNOT? .FIRE ,FL-BURNABLE>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot light " THEO " with " THEI "." CR>)
+	      (<MC-ISNOT? .FIRE ,FL-LIGHTED>
+	       <TELL CTHE .FIRE " is not burning." CR>)
+	      (<MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+	       <TELL CTHEO " is already lit." CR>)
+	      (<IN? ,TH-TOBACCO ,TH-PIPE>
+	       <MC-MAKE ,TH-TOBACCO ,FL-LIGHTED>
+	       <RT-ALARM-SET-REL ,RT-I-PIPE-OUT <RT-PARM-SET 0 15 0>>
+	       <TELL "After a few puffs, " THEO " fires right up." CR>)>>
+
+<ROUTINE RT-AC-TH-TOBACCO ("OPTIONAL" (CONTEXT <>) "AUX" I)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-TOBACCO">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+		      <TELL CTHE ,TH-TOBACCO " is burning." CR>)
+		     (T
+		      <TELL "It's Holmes's favorite brand of shag tobacco." CR>)>
+	       <RTRUE>)
+	      (<MC-THIS-PRSO?>
+	       <SETG GL-P-IT-OBJECT ,TH-TOBACCO>)>
+	<COND (<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+		    <MC-PRSO? ,TH-TOBACCO>>
+	       <COND (<MC-PRSI? <> ,TH-HANDS>
+		      <SET I ,TH-MATCH>)
+		     (T
+		      <SET I ,GL-PRSI>)>
+	       <COND (<NOT <IN? .I ,GL-WINNER>>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not holding " A .I "." CR>)
+		     (<NOT <IN? ,TH-PIPE ,GL-WINNER>>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not holding " THE ,TH-PIPE "." CR>)
+		     (<MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+		      <TELL CTHEO " is already lit." CR>)
+		     (<RT-LIGHT-PIPE .I>
+		      <RTRUE>)
+		     (T
+		      <TELL CTHEO " " ,K-SMOULDERS-MSG CR>)>)
+	      (<AND <MC-VERB? TAKE TOUCH>
+		    <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+	       <TELL "Yeeeeouch! That's hot!" CR>)
+	      ;(<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+		     <MC-PRSI? ,TH-TOBACCO>
+		     <MC-IS? ,GL-PRSO ,FL-BURNABLE>>
+		<COND (<MC-PRSO? ,TH-TORCH>
+		       <RFALSE>)
+		      (<MC-ISNOT? ,TH-TOBACCO ,FL-LIGHTED>
+		       <TELL CTHEI " is not lit." CR>)
+		      (<MC-IS? ,GL-PRSO ,FL-LIGHTED>
+		       <TELL CTHEO " is already burning." CR>)
+		      (<MC-PRSO? ,TH-NEWSPAPER ,TH-WESTMINSTER-CLUE ,TH-MAIL>
+		       <TELL CTHEO " lights right up." CR>
+		       <MC-MAKE ,GL-PRSO ,FL-LIGHTED> 
+		       <COND (<MC-PRSO? ,TH-NEWSPAPER>
+			      <RT-ALARM-SET-REL ,RT-I-NEWSPAPER-OUT <RT-PARM-SET 0 3 0>>)
+			     (<MC-PRSO? ,TH-WESTMINSTER-CLUE>
+			      <RT-ALARM-SET-REL ,RT-I-CLUE-OUT <RT-PARM-SET 0 3 0>>)
+			     (<MC-PRSO? ,TH-MAIL>
+			      <RT-ALARM-SET-REL ,RT-I-MAIL-OUT <RT-PARM-SET 0 3 0>>)>)
+		      (T
+		       <TELL "Unfortunately, " THEI " doesn't put out enough heat to light " THEO "." CR>)>)
+	      (<MC-VERB? SMOKE>
+	       <COND (<MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+		      <TELL ,K-BRAND-MSG CR>)
+		     (T
+		      <TELL CTHEO " is not lit." CR>)>)
+	      (<MC-VERB? SMELL>
+	       <TELL "The shag has a strong, but pleasant smell." CR>)>>
+
+<ROUTINE RT-AC-TH-PIPE ("OPTIONAL" (CONTEXT <>) "AUX" I DEST)
+	 <DEBUGGING? <RT-DEBUG-OB-AC "TH-PIPE">>
+	 <COND (<==? .CONTEXT ,K-M-DESCFCN>
+		<COND (<AND <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+			    <IN? ,TH-TOBACCO ,TH-PIPE>>
+		       <TELL "Smoke gently wafts from " THE ,TH-PIPE "." CR>)
+		      (T
+		       <TELL "It is an old and oily black clay pipe, the companion of Holmes's deepest meditations." CR>)>)
+	       (<MC-T? .CONTEXT> <RFALSE>)
+	       (<MC-THIS-PRSO?>
+		<COND (<MC-VERB? LIGHT-WITH BURN-WITH>
+		       <COND (<MC-PRSI? <> ,TH-HANDS>
+			      <SET I ,TH-MATCH>)
+			     (T
+			      <SET I ,GL-PRSI>)>
+		       <COND (<NOT <IN? .I ,GL-WINNER>>
+			      <RT-CYOU-MSG "are" "is">
+			      <TELL "not holding " A .I "." CR>)
+			     (<NOT <IN? ,TH-PIPE ,GL-WINNER>>
+			      <RT-CYOU-MSG "are" "is">
+			      <TELL "not holding " THE ,TH-PIPE "." CR>)
+			     (<MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+			      <TELL CTHEO " is already lit." CR>)
+			     (<RT-LIGHT-PIPE .I>
+			      <RTRUE>)
+			     ;(<FIRST? ,TH-PIPE>
+			      <RT-CYOU-MSG>
+			      <TELL "cannot light " THE <FIRST? ,TH-PIPE>
+				    " in " THE ,TH-PIPE "." CR>)
+			     (T
+			      <TELL "There is nothing in the pipe to light." CR>)>)
+		      (<AND <MC-VERB? PUT>
+			    <MC-PRSI? ,TH-PLAYER-BODY>
+			    <==? <ZGET ,GL-P-NAMW 1> ,W?MOUTH>>
+		       <RT-PERFORM ,V?SMOKE ,TH-PIPE>)
+		      (<MC-VERB? SMOKE>
+		       <COND (<MC-IS? ,TH-TOBACCO ,FL-LIGHTED>
+			      <TELL ,K-BRAND-MSG CR>)
+			     (T
+			      <TELL CTHEO " is not lit." CR>)>)
+		      (<AND <MC-VERB? EMPTY-INTO POUR>
+			    <IN? ,TH-TOBACCO ,TH-PIPE>
+			    <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+		       <COND (<MC-VERB? POUR>
+			      <MC-UNMAKE ,TH-TOBACCO ,FL-LIGHTED>
+			      <MOVE ,TH-TOBACCO ,GL-PLACE-CUR>
+			      <TELL CTHE ,TH-TOBACCO " falls ">
+			      <COND (<MC-HERE? ,RM-THAMES-ONE ,RM-THAMES-TWO
+					      ,RM-THAMES-THREE ,RM-THAMES-FOUR
+					      ,RM-THAMES-FIVE>
+				     <REMOVE ,TH-TOBACCO>
+				     <TELL "into the water." CR>)
+				    (T
+				     <TELL "to ">
+				     <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+					    <TELL-THE-FLOOR>)
+					   (T
+					    <TELL-THE-GROUND>)>
+				     <TELL ", " ,K-SMOULDERS-MSG CR>)>)
+			     (<MC-VERB? EMPTY-INTO>
+			      <COND (<RT-ROOM-IN-ON-MSG? ,TH-TOBACCO ,GL-PRSI>
+				     <RTRUE>)
+				    (<RT-CHECK-MOVE-MSG? ,TH-TOBACCO ,GL-PRSI>
+				     <RTRUE>)
+				    (T
+				     <MC-UNMAKE ,TH-TOBACCO ,FL-LIGHTED>
+				     <MOVE ,TH-TOBACCO ,GL-PRSI>
+				     <TELL CTHE ,TH-TOBACCO " falls ">
+				     <COND (<MC-IS? ,GL-PRSI ,FL-CONTAINER>
+					    <TELL "into">)
+					   (T
+					    <TELL "onto">)>
+				     <TELL " " THEI ", " ,K-SMOULDERS-MSG CR>)>)>)>)
+	       (<MC-THIS-PRSI?>
+		<COND (<AND <MC-VERB? PUT>
+			    <NOT <MC-PRSO? ,TH-TOBACCO>>>
+		       <TELL "Putting " THEO " in " THEI " would">
+		       <RT-WASTE-OF-TIME-MSG>)
+		      (<AND <MC-VERB? POUR-FROM>
+			    <MC-PRSO? ,TH-TOBACCO>
+			    <IN? ,TH-TOBACCO ,TH-PIPE>
+			    <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+		       <MC-UNMAKE ,TH-TOBACCO ,FL-LIGHTED>
+		       <MOVE ,TH-TOBACCO ,GL-PLACE-CUR>
+		       <TELL CTHEO " falls to ">
+		       <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+			      <TELL-THE-FLOOR>)
+			     (T
+			      <TELL-THE-GROUND>)>
+		       <TELL ", " ,K-SMOULDERS-MSG CR>)
+		      ;(<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+			     <MC-THIS-PRSI?>
+			     <MC-IS? ,GL-PRSO ,FL-BURNABLE>>
+			<COND (<MC-PRSO? ,TH-TORCH>
+			       <RFALSE>)
+			      (<MC-ISNOT? ,TH-TOBACCO ,FL-LIGHTED>
+			       <TELL CTHEI " is not lit." CR>)
+			      (<MC-IS? ,GL-PRSO ,FL-LIGHTED>
+			       <TELL CTHEO " is already burning." CR>)
+			      (<MC-PRSO? ,TH-NEWSPAPER ,TH-WESTMINSTER-CLUE ,TH-MAIL>
+			       <TELL CTHEO " lights right up." CR>
+			       <MC-MAKE ,GL-PRSO ,FL-LIGHTED>
+			       <COND (<MC-PRSO? ,TH-NEWSPAPER>
+				      <RT-ALARM-SET-REL ,RT-I-NEWSPAPER-OUT <RT-PARM-SET 0 3 0>>)
+				     (<MC-PRSO? ,TH-WESTMINSTER-CLUE>
+				      <RT-ALARM-SET-REL ,RT-I-CLUE-OUT <RT-PARM-SET 0 3 0>>)
+				     (<MC-PRSO? ,TH-MAIL>
+				      <RT-ALARM-SET-REL ,RT-I-MAIL-OUT <RT-PARM-SET 0 3 0>>)>)
+			      (T
+			       <TELL "Unfortunately, " THEI " doesn't put out
+				      enough heat to light " THEO "." CR>)>)>)>>
+
+<ROUTINE RT-AC-TH-MAIL ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-MAIL">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-MAIL ,FL-LIGHTED>
+		      <TELL CTHE ,TH-MAIL " is burning." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <SETG GL-P-IT-OBJECT ,TH-MAIL>)>
+	<COND (<MC-VERB? READ EXAMINE LOOK-ON LOOK-INSIDE OPEN SEARCH OPEN-WITH>
+	       <TELL "You should not read other people's mail." CR>)
+	      (<MC-VERB? CLOSE>
+	       <TELL "The mail hasn't been opened." CR>)
+	      (<AND <MC-VERB? TAKE>
+		    <T? ,KNIFE-COLD?>>
+	       <SETG KNIFE-COLD? <>>
+	       <MOVE ,TH-KNIFE ,GL-WINNER>
+	       <TELL "[Taking the knife first]">
+	       <COND (,GL-P-MULT?
+		      <TELL " ">)
+		     (T
+		      <CRLF>)>
+	       <RFALSE>)
+	      (<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+		    <MC-THIS-PRSO?>>
+	       <COND (<MC-IS? ,TH-MAIL ,FL-LIGHTED>
+		      <TELL CTHEO " is already lit." CR>)
+		     (<AND <MC-ISNOT? ,GL-PRSI ,FL-BURNABLE>
+			   <NOT <MC-PRSI? ,TH-PIPE>>>
+		      <RFALSE>)
+		     (<OR <AND <MC-IS? ,GL-PRSI ,FL-LIGHTED>
+			       <MC-IS? ,GL-PRSI ,FL-BURNABLE>>
+			  <AND <MC-PRSI? ,TH-PIPE>
+			       <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>>
+		      <TELL CTHE ,TH-MAIL " lights up." CR>
+		      <MC-MAKE ,TH-MAIL ,FL-LIGHTED>
+		      <RT-ALARM-SET-REL ,RT-I-MAIL-OUT <RT-PARM-SET 0 3 0>>)
+		     (T
+		      <TELL CTHEI>
+		      <RT-ISNT-ARENT-MSG ,GL-PRSI>
+		      <TELL "burning." CR>)>)>>
+
+<ROUTINE RT-AC-TH-NEWSPAPER ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-NEWSPAPER">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-NEWSPAPER ,FL-LIGHTED>
+		      <TELL CTHE ,TH-NEWSPAPER " is burning." CR>)
+		     (T
+		      <TELL
+		       "It's the newspaper that came in your game package."
+		       CR>)>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<NOT <MC-VERB? READ READ-TO SHOW LIGHT-WITH BURN-WITH
+			      GIVE TELL-ABOUT>>
+	       <RFALSE>)
+	      (<NOT <IN? ,TH-NEWSPAPER ,CH-PLAYER>>
+	       <TELL "The newspaper will not leap into your hand by itself." CR>)
+	      (<MC-VERB? READ>
+	       <RT-READ-NEWSPAPER>)
+	      (<OR <AND <MC-VERB? READ-TO SHOW GIVE>
+			<MC-THIS-PRSO?>>
+		   <AND <MC-VERB? TELL-ABOUT>
+			<MC-THIS-PRSI?>>>
+	       <COND (<MC-ISNOT? ,GL-PRSI ,FL-PERSON>
+		      <RFALSE>)
+		     (<OR <MC-IS? ,TH-NEWSPAPER ,FL-ASLEEP>
+			  <MC-IS? ,TH-NEWSPAPER ,FL-OPENED>>
+		      <RT-READ-NEWSPAPER>
+		      <CRLF>)>
+	       <COND (<OR <AND <MC-VERB? READ-TO SHOW GIVE>
+			       <MC-PRSI? ,CH-HOLMES>>
+			  <AND <MC-VERB? TELL-ABOUT>
+			       <MC-PRSO? ,CH-HOLMES>>>
+		      <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			     <RT-WAKE-UP-HOLMES>
+			     <COND 
+			      (<MC-VERB? GIVE>
+			       <MOVE ,TH-NEWSPAPER ,CH-HOLMES>)>
+			     <RTRUE>)
+			    ;(T
+			      <TELL "\"Don't be tedious, Watson. You have ">
+			      <COND (<MC-VERB? READ-TO>
+				     <TELL "read">)
+				    (<MC-VERB? SHOW>
+				     <TELL "shown">)
+				    (<MC-VERB? GIVE>
+				     <TELL "given">)
+				    (<MC-VERB? TELL-ABOUT>
+				     <TELL "mentioned">)>
+			      <TELL " that to me already.\"" CR>)>)
+		     (T
+		      <TELL CTHEI>
+		      <RT-DONT-DOESNT-MSG ,GL-PRSI>
+		      <TELL "seem to be interested." CR>)>)
+	      (<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+		    <MC-THIS-PRSO?>>
+	       <COND (<MC-IS? ,TH-NEWSPAPER ,FL-LIGHTED>
+		      <TELL CTHEO " is already lit." CR>)
+		     (<AND <MC-ISNOT? ,GL-PRSI ,FL-BURNABLE>
+			   <NOT <MC-PRSI? ,TH-PIPE>>>
+		      <RFALSE>)
+		     (<OR <AND <MC-IS? ,GL-PRSI ,FL-LIGHTED>
+			       <MC-IS? ,GL-PRSI ,FL-BURNABLE>>
+			  <AND <MC-PRSI? ,TH-PIPE>
+			       <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>>
+		      <TELL CTHE ,TH-NEWSPAPER " lights up." CR>
+		      <MC-MAKE ,TH-NEWSPAPER ,FL-LIGHTED>
+		      <RT-ALARM-SET-REL ,RT-I-NEWSPAPER-OUT <RT-PARM-SET 0 3 0>>
+		      <RTRUE>)
+		     (T
+		      <TELL CTHEI>
+		      <RT-ISNT-ARENT-MSG ,GL-PRSI>
+		      <TELL "burning." CR>)>)>>
+
+<ROUTINE RT-AC-TH-WESTMINSTER-CLUE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WESTMINSTER-CLUE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-MAIL ,FL-LIGHTED>
+		      <TELL CTHE ,TH-MAIL " is burning." CR>
+		      <RTRUE>)
+		     (T <RFALSE>)>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? READ EXAMINE>
+	       <COND (<NOT <IN? ,TH-WESTMINSTER-CLUE ,CH-PLAYER>>
+		      <TELL "The paper will not leap into your hand by itself." CR>)
+		     (<ZERO? <GETP ,TH-WESTMINSTER-CLUE ,P?FLIPPED>>
+		      <TELL 
+INDENT "Mortality, behold and fear!" CR
+INDENT "What a change of flesh is here!" CR
+INDENT "Think how many royal bones" CR
+INDENT "Sleep within this heap of stones:" CR
+INDENT "Here they lie, had realms and lands," CR
+INDENT "Who now want strength" WRAP "to stir their hands." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+		      
+INDENT "For two-score years I reigned alone," CR
+INDENT "A virgin queen on England's throne." CR
+INDENT "My navy caused Armada's shame," CR
+INDENT "And with me died the Tudor name." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT "The apple sorely tempted Eve," CR
+INDENT "And Tell another aimed to cleave." CR
+INDENT "But when one fell, it showed to me," CR
+INDENT "The mighty pull of gravity." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT "My father, it was said, would die," CR
+INDENT "Beneath the Holy City's sky." CR
+INDENT "Jerusalem his body claimed," CR
+INDENT "And it is after him I'm named." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT "O stately Holmes of England," CR
+INDENT "In Baker Street abide." CR
+INDENT "For even you must surely fail," CR
+INDENT "To save your country's pride." CR>)
+		     (T
+		      <TELL "This side appears to be blank." CR>)>)
+	      (<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+		    <MC-THIS-PRSO?>>
+	       <COND (<MC-IS? ,TH-WESTMINSTER-CLUE ,FL-LIGHTED>
+		      <TELL CTHEO " is already lit." CR>)
+		     (<AND <MC-ISNOT? ,GL-PRSI ,FL-BURNABLE>
+			   <NOT <MC-PRSI? ,TH-PIPE>>>
+		      <RFALSE>)
+		     (<OR <AND <MC-IS? ,GL-PRSI ,FL-LIGHTED>
+			       <MC-IS? ,GL-PRSI ,FL-BURNABLE>>
+			  <AND <MC-PRSI? ,TH-PIPE>
+			       <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>>
+		      <TELL CTHE ,TH-WESTMINSTER-CLUE " lights up." CR>
+		      <MC-MAKE ,TH-WESTMINSTER-CLUE ,FL-LIGHTED>
+		      <RT-ALARM-SET-REL ,RT-I-CLUE-OUT <RT-PARM-SET 0 3 0>>)
+		     (T
+		      <TELL CTHEI>
+		      <RT-ISNT-ARENT-MSG ,GL-PRSI>
+		      <TELL "burning." CR>)>
+	       <RTRUE>)
+	      (<MC-VERB? FLIP>
+	       <COND (<NOT <IN? ,TH-WESTMINSTER-CLUE ,GL-WINNER>>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not holding " THE ,TH-WESTMINSTER-CLUE "." CR>)
+		     (T
+		      <PUTP ,TH-WESTMINSTER-CLUE ,P?FLIPPED <- 1 <GETP ,TH-WESTMINSTER-CLUE ,P?FLIPPED>>>
+		      <RT-CYOU-MSG "turn" "turns">
+		      <TELL THE ,TH-WESTMINSTER-CLUE " over." CR>)>)
+	      (<AND <MC-VERB? LOOK-THRU>
+		    <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+	       <TELL "It's been wiped clean." CR>)>>
+
+<CONSTANT K-HOLMES-HEAD? 1> ; "Has Holmes made comment about Charles I head?"
+<CONSTANT K-HOLMES-GEM?	 2> ; "Has Holmes made comment about gem?"
+
+<ROUTINE RT-AC-TH-WAX-HEAD ("OPTIONAL" (CONTEXT <>))
+   <DEBUGGING? <RT-DEBUG-OB-AC "TH-WAX-HEAD">>
+   <COND (<==? .CONTEXT ,K-M-SDESC>
+	  <COND (<FSET? ,TH-WAX-HEAD ,FL-BROKEN>
+		 <TELL "wax pool">)
+		(T
+		 <TELL "wax head">)>)
+	 (<==? .CONTEXT ,K-M-DESCFCN>
+	  <COND (<NOT <FSET? ,TH-WAX-HEAD ,FL-BROKEN>>
+		 <RFALSE>)
+		(<NOT <FIRST? ,TH-WAX-HEAD>>
+		 <TELL "Looks like any other " D ,TH-WAX-HEAD "." CR>)>)
+	 (<NOT <FSET? ,TH-WAX-HEAD ,FL-BROKEN>>  ; "STILL THE HEAD"
+	  <COND (<IN? ,TH-WAX-HEAD ,TH-CHARLES-STATUE>
+		 <COND (<MC-VERB? TAKE ;UNSCREW UNSCREW-FROM>
+			<MOVE ,TH-WAX-HEAD ,GL-WINNER>
+			<MC-MAKE ,TH-WAX-HEAD ,FL-SEEN>
+			<MC-UNMAKE ,TH-WAX-HEAD ,FL-NODESC>
+			<MC-UNMAKE ,TH-WAX-HEAD ,FL-NOALL>
+			<COND (,GL-P-MULT?
+			       <TELL "Taken." CR>)
+			      (T
+			       <RT-CYOU-MSG "take" "takes">
+			       <TELL THE ,TH-WAX-HEAD "." CR>)>)
+		       (<RT-TOUCH-VERB?>
+			<MC-MAKE ,TH-WAX-HEAD ,FL-SEEN>
+			<TELL CTHE ,TH-WAX-HEAD " wobbles slightly.">
+			<COND (<MC-F? <BAND ,CH-HOLMES-AUX1 ,K-HOLMES-HEAD?>>
+			       <TELL " " THE ,CH-HOLMES
+" says, \"Even when he was alive, he didn't have his head screwed on right.\"">
+			       <SETG CH-HOLMES-AUX1 <BOR ,CH-HOLMES-AUX1 ,K-HOLMES-HEAD?>>)>
+			<CRLF>)>)
+		(<AND <MC-VERB? MELT HEAT>
+		      <MC-THIS-PRSO?>
+		      <OR <AND <MC-IS? ,GL-PRSI ,FL-BURNABLE>
+			       <MC-IS? ,GL-PRSI ,FL-LIGHTED>>
+			  <AND <MC-PRSI? ,TH-PIPE>
+			       <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>>>
+		 <TELL CTHEO " softens, but " THEI
+" does not put out enough heat to melt it." CR>)
+		(<MC-VERB? MUNG KILL OPEN>
+		 <RT-CYOU-MSG>
+		 <TELL "can't break into the head." CR>)>)
+	 (T ; "NOW THE POOL"
+	  <RFALSE>)>>
+
+<ROUTINE DESC-WAX-AX ("OPTIONAL" (CONTEXT <>))
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <COND (<FSET? ,TH-WAX-AX ,FL-BROKEN>
+		      <TELL "melted axe">)
+		     (T
+		      <TELL "axe">)>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<NOT <FSET? ,TH-WAX-AX ,FL-BROKEN>> <RFALSE>)
+		     (<NOT <FIRST? ,TH-WAX-AX>>
+		      <TELL "Looks like any other " D ,TH-WAX-AX "." CR>)>)>>
+
+<ROUTINE RT-GUARD-TAKE-ITEM (OBJ1 "OPTIONAL" (OBJ2 <>) (OBJ3 <>) "AUX" STR)
+	<TELL CTHE ,CH-TUSSAUDS-GUARD " says, \"I'm sorry, but " THE .OBJ1>
+	<COND (<AND .OBJ2 .OBJ3>
+	       <TELL ", " THE .OBJ2 " and " THE .OBJ3 " are">
+	       <SET STR "them">)
+	      (<MC-T? .OBJ2>
+	       <TELL " and " THE .OBJ2 " are">
+	       <SET STR "them">)
+	      (T
+	       <TELL " is">
+	       <SET STR "it">)>
+	<TELL
+" not to be removed.\" He takes " .STR " and returns " .STR " to the proper
+place." CR CR>>
+
+<ROUTINE RT-GUARD-STOP-ENTRANCE ("OPTIONAL" (OBJ <>) "AUX" WHO)
+	<SET WHO <RT-WHO-SAYS?>>
+	<IFSOUND <SOUNDS ,S-BARK ,S-START 8 4>>
+	<TELL CTHE ,CH-MATCH-SNIFFING-DOG " barks loudly and " THE
+,CH-TUSSAUDS-GUARD " says, \"Seeing as how it's you, ">
+	<COND (<EQUAL? .WHO ,CH-HOLMES>
+	       <TELL "Mr Holmes">)
+	      (T
+	       <TELL "Doctor Watson">)>
+	<TELL
+", I don't mind letting you in. But as you know we are very afraid of
+fire here, so we have trained this dog to detect matches or open
+flames. I'm afraid I can't allow you">
+	<COND (<EQUAL? .WHO ,CH-HOLMES ,CH-WIGGINS>
+	       <TELL " or your companion">)>
+	<TELL " to enter until " THE .OBJ " has been discarded.\"" CR>
+        ;<COND (<AND .OBJ 	;"COND ALWAYS TRUE"
+		    <OR <IN? .OBJ ,CH-PLAYER>
+			<AND ,GL-PUPPY
+			     <IN? .OBJ ,GL-PUPPY>>>>
+	        <TELL THE .OBJ>)
+	       (T
+		<TELL "the item">
+		<COND (<NOT .OBJ>
+		       <TELL "s">)>
+		<TELL " to which the dog objects">)>
+	;<TELL " ha">
+	;<COND (.OBJ
+		<TELL "s">)
+	       (T
+		<TELL "ve">)>
+	;<TELL " been discarded.\"" CR>>
+
+<ROUTINE RT-EX-RM-EXIT-TUSSAUDS ("AUX" IN1 IN2 IN3 TORCH)
+	<COND (<AND <EQUAL? ,GL-PRSO ,P?SOUTH ,P?OUT>
+		    <MC-HERE? ,RM-MADAME-TUSSAUDS>>
+	       <SET IN1
+		    <COND (<OR <RT-META-IN? ,TH-TORCH ,GL-WINNER>
+			       <RT-META-IN? ,TH-TORCH ,GL-PUPPY>>
+			   <SET TORCH ,TH-TORCH>)
+			  ;(<OR <RT-META-IN? ,TH-BURNT-TORCH ,GL-WINNER>
+				<RT-META-IN? ,TH-BURNT-TORCH ,GL-PUPPY>>
+			    <SET TORCH ,TH-BURNT-TORCH>)>>
+	       <SET IN2 <OR <RT-META-IN? ,TH-WAX-HEAD ,GL-WINNER>
+			    <RT-META-IN? ,TH-WAX-HEAD ,GL-PUPPY>>>
+	       <SET IN3 <OR <RT-META-IN? ,TH-WAX-AX ,GL-WINNER>
+			    <RT-META-IN? ,TH-WAX-AX ,GL-PUPPY>>>
+	       <COND (<AND .IN1 .IN2 .IN3>
+		      <RT-GUARD-TAKE-ITEM ,TH-TORCH ,TH-WAX-HEAD ,TH-WAX-AX>)
+		     (<AND .IN1 .IN2>
+		      <RT-GUARD-TAKE-ITEM ,TH-TORCH ,TH-WAX-HEAD>)
+		     (<AND .IN1 .IN3>
+		      <RT-GUARD-TAKE-ITEM ,TH-TORCH ,TH-WAX-AX>)
+		     (<AND .IN2 .IN3>
+		      <RT-GUARD-TAKE-ITEM ,TH-WAX-HEAD ,TH-WAX-AX>)
+		     (<MC-T? .IN1>
+		      <RT-GUARD-TAKE-ITEM ,TH-TORCH>)
+		     (<MC-T? .IN2>
+		      <RT-GUARD-TAKE-ITEM ,TH-WAX-HEAD>)
+		     (<MC-T? .IN3>
+		      <RT-GUARD-TAKE-ITEM ,TH-WAX-AX>)>
+	       <COND (<MC-T? .IN1>
+		      <MOVE .TORCH ,TH-FAWKES-STATUE>
+		      <MC-MAKE .TORCH ,FL-NODESC>
+		      <COND (<MC-IS? .TORCH ,FL-LIGHTED>
+			     <RT-ALARM-CLR ,RT-I-TORCH-OUT>
+			     <RT-I-TORCH-OUT>
+			     <MC-MAKE ,TH-TORCH ,FL-NODESC>
+			     ;<MC-MAKE ,TH-BURNT-TORCH ,FL-NODESC>)>)>
+	       <COND (<MC-T? .IN2>
+		      <MOVE ,TH-WAX-HEAD ,TH-CHARLES-STATUE>
+		      <MC-MAKE ,TH-WAX-HEAD ,FL-NODESC>)>
+	       <COND (<MC-T? .IN3>
+		      <MOVE ,TH-WAX-AX ,TH-CHARLES-STATUE>
+		      <MC-MAKE ,TH-WAX-AX ,FL-NODESC>)>
+	       <RETURN ,RM-MARYLEBONE-RD>)>>
+
+; "NORTH from RM-MARYLEBONE-RD to RM-MADAME-TUSSAUDS"
+
+<ROUTINE RT-EX-RM-MATCH-SNIFFING-DOG ("AUX" OBJ (FLAME? <>) (FIRST T) LAMP? MATCH?)
+     <COND (<AND <EQUAL? ,GL-PRSO ,P?NORTH ,P?IN>
+		 <MC-HERE? ,RM-MARYLEBONE-RD>>
+	    <REPEAT ()
+		    <SET OBJ <FIRST? ,GL-WINNER>>
+		    <REPEAT ()
+			    <COND (<MC-F? .OBJ>
+				   <RETURN>)
+				  (<AND <MC-IS? .OBJ ,FL-BURNABLE>
+					<MC-IS? .OBJ ,FL-LIGHTED>
+					<NOT <EQUAL? .OBJ ,TH-TOBACCO>>>
+				   <SET FLAME? .OBJ>
+				   <RETURN>)>
+			    <SET OBJ <NEXT? .OBJ>>>
+		    <COND (<AND <MC-F? .FLAME?>
+				<MC-T? .FIRST>
+				<MC-T? ,GL-PUPPY>>
+			   <SET OBJ <FIRST? ,GL-PUPPY>>
+			   <SET FIRST <>>)
+			  (T
+			   <RETURN>)>>
+	    <COND (<OR <SET MATCH? <AND <OR <RT-META-IN? ,TH-MATCH ,CH-PLAYER>
+					    <RT-META-IN? ,TH-MATCH ,GL-PUPPY>>
+					<OR <MC-IS? ,TH-MATCH ,FL-BURNABLE>
+					    <MC-IS? ,TH-MATCH ,FL-LIGHTED>>>>
+		       <SET LAMP? <OR <RT-META-IN? ,TH-LAMP ,CH-PLAYER>
+				      <RT-META-IN? ,TH-LAMP ,GL-PUPPY>>>
+		       .FLAME?>
+		   <SET OBJ <COND (.FLAME?
+				   .FLAME?)
+				  (.LAMP?
+				   ,TH-LAMP)
+				  (.MATCH?
+				   ,TH-MATCH)>>
+		   <RT-GUARD-STOP-ENTRANCE .OBJ>
+		   <RFALSE>)>
+	    <COND (<OR <FSET? ,TH-WAX-HEAD ,FL-BROKEN>
+		       ;<MC-F? <LOC ,TH-WAX-HEAD>>
+		       <FSET? ,TH-WAX-AX ,FL-BROKEN>
+		       ;<MC-F? <LOC ,TH-WAX-AX>>>
+		   <TELL
+"The guard blocks your path and says, \"Oh no you don't, laddie. When I let
+you in earlier you made a proper mess of my museum. I won't let you do that
+again.\" After you promise to pay for the damage and plead with him for a few
+moments, he finally steps aside." CR CR>)>
+	    <RETURN ,RM-MADAME-TUSSAUDS>)>>
+
+<ROUTINE RT-PUT-OUT (THING)
+	 <COND (<MC-ISNOT? .THING ,FL-BURNABLE>
+		<RFALSE>)
+	       (<MC-ISNOT? .THING ,FL-LIGHTED>
+		<RFALSE>)
+	       (<EQUAL? .THING ,TH-MATCH>
+		<RT-ALARM-CLR ,RT-I-MATCH-OUT>
+		<RT-I-MATCH-OUT>)
+	       (<EQUAL? .THING ,TH-PIPE>
+		<RT-ALARM-CLR ,RT-I-PIPE-OUT>
+		<RT-I-PIPE-OUT>)
+	       (<EQUAL? .THING ,TH-TORCH>
+		<RT-ALARM-CLR ,RT-I-TORCH-OUT>
+		<RT-I-TORCH-OUT>)
+	       (<EQUAL? .THING ,TH-NEWSPAPER>
+		<RT-ALARM-CLR ,RT-I-NEWSPAPER-OUT>
+		<RT-I-NEWSPAPER-OUT>)
+	       (<EQUAL? .THING ,TH-WESTMINSTER-CLUE>
+		<RT-ALARM-CLR ,RT-I-CLUE-OUT>
+		<RT-I-CLUE-OUT>)
+	       (<EQUAL? .THING ,TH-MAIL>
+		<RT-ALARM-CLR ,RT-I-MAIL-OUT>
+		<RT-I-MAIL-OUT>)
+	       (<EQUAL? .THING ,TH-MATCHBOOK>
+		<RT-ALARM-CLR ,RT-I-MATCHBOOK-OUT>
+		<RT-I-MATCHBOOK-OUT>)
+	       (T
+		<REMOVE .THING>
+		<FCLEAR .THING ,FL-WORN>
+		<MC-UNMAKE .THING ,FL-LIGHTED>
+		<MC-UNMAKE .THING ,FL-BURNABLE>
+		<TELL CTHE .THING " burn">
+		<RT-S-NOS-MSG .THING>
+		<TELL " up and disappears." CR>)>>
+
+<ROUTINE RT-I-MATCH-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-MATCH>
+	       <TELL CR CTHE ,TH-MATCH " flickers and dies." CR>
+	       <SET RESULT T>)>
+	<MC-UNMAKE ,TH-MATCH ,FL-LIGHTED>
+	<BURN-MATCH-OUT>
+	;<MC-UNMAKE ,TH-MATCH ,FL-BURNABLE>
+	;<MOVE ,TH-BURNT-MATCH <LOC ,TH-MATCH>>
+	;<REMOVE ,TH-MATCH>
+	<RETURN .RESULT>>
+
+<ROUTINE BURN-MATCH-OUT ()
+	<FCLEAR ,TH-MATCH ,FL-BURNABLE>
+	<FSET ,TH-MATCH ,FL-BROKEN>
+	<PUT <GETPT ,TH-MATCH ,P?ADJECTIVE> 0 ,W?BURNT>>
+
+<ROUTINE RT-I-PIPE-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-TOBACCO>
+	       <TELL CR CTHE ,TH-PIPE " has gone out." CR>)>
+	<MC-UNMAKE ,TH-TOBACCO ,FL-LIGHTED>
+	<MC-UNMAKE ,TH-TOBACCO ,FL-BURNABLE>
+	<REMOVE ,TH-TOBACCO>
+	<RETURN .RESULT>>
+
+<ROUTINE RT-I-TORCH-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-TORCH>
+	       <TELL CR CTHE ,TH-TORCH " sputters and dies." CR>
+	       <SET RESULT T>)>
+	<CLEAR-ALL-FLAGS ,TH-TORCH>
+	<PUT <GETPT ,TH-TORCH ,P?ADJECTIVE> 0 ,W?BURNT>
+	<FSET ,TH-TORCH ,FL-TAKEABLE>
+	<FSET ,TH-TORCH ,FL-BROKEN>
+	;<MC-UNMAKE ,TH-TORCH ,FL-LIGHTED>
+	;<MC-UNMAKE ,TH-TORCH ,FL-BURNABLE>
+	;<MOVE ,TH-BURNT-TORCH <LOC ,TH-TORCH>>
+	;<REMOVE ,TH-TORCH>
+	<RETURN .RESULT>>
+
+<ROUTINE RT-I-NEWSPAPER-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-NEWSPAPER>
+	       <TELL CR CTHE ,TH-NEWSPAPER " disappears into a cloud of fine ash, which itself disappears." CR>
+	       <SET RESULT T>)>
+	<MC-UNMAKE ,TH-NEWSPAPER ,FL-LIGHTED>
+	<MC-UNMAKE ,TH-NEWSPAPER ,FL-BURNABLE>
+	<REMOVE ,TH-NEWSPAPER>
+	<RETURN .RESULT>>
+
+<ROUTINE RT-I-CLUE-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-WESTMINSTER-CLUE>
+	       <TELL CR CTHE ,TH-WESTMINSTER-CLUE
+		     " disappears in a puff of oily black smoke." CR>
+	       <SET RESULT T>)>
+	<MC-UNMAKE ,TH-WESTMINSTER-CLUE ,FL-LIGHTED>
+	<MC-UNMAKE ,TH-WESTMINSTER-CLUE ,FL-BURNABLE>
+	<REMOVE ,TH-WESTMINSTER-CLUE>
+	<RETURN .RESULT>>
+
+<ROUTINE RT-I-MAIL-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-MAIL>
+	       <TELL CR CTHE ,TH-MAIL " disappears in a flash of light." CR>
+	       <SET RESULT T>)>
+	<MC-UNMAKE ,TH-MAIL ,FL-LIGHTED>
+	<MC-UNMAKE ,TH-MAIL ,FL-BURNABLE>
+	<REMOVE ,TH-MAIL>
+	<RETURN .RESULT>>
+
+<ROUTINE RT-I-MATCHBOOK-OUT ("AUX" (RESULT <>))
+	<COND (<RT-VISIBLE? ,TH-MATCHBOOK>
+	       <TELL CR CTHE ,TH-MATCHBOOK " burns up and disappears." CR>
+	       <SET RESULT T>)>
+	<MC-UNMAKE ,TH-MATCHBOOK ,FL-LIGHTED>
+	<MC-UNMAKE ,TH-MATCHBOOK ,FL-BURNABLE>
+	<REMOVE ,TH-MATCHBOOK>
+	<RETURN .RESULT>>
+
+<ROUTINE PRE-LIGHT-WITH ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-LIGHT-WITH">>
+	<COND (<AND <NOT <MC-PRSO? ,TH-MATCH ,TH-TOBACCO>>
+		    <NOT <IN? ,GL-PRSO ,GL-WINNER>>>
+	       <RT-CYOU-MSG>
+	       <RT-WOULD-HAVE-TO-MSG "be holding" ,GL-PRSO>
+	       <TELL " to light ">
+	       <RT-SAY-HIM-HER-THEM-IT-MSG ,GL-PRSO>
+	       <TELL "." CR>)>>
+
+<ROUTINE RT-GN-WAX (TBL "OPTIONAL" (LEN 0))
+	<PUTP ,PSEUDO-OBJECT ,P?ACTION ,RT-DF-LG-WAX-STATUES>
+	<SETG LAST-PSEUDO-LOC ,GL-PLACE-CUR>
+	<RETURN ,PSEUDO-OBJECT>>
+
diff --git a/clk.was-mid b/clk.was-mid
new file mode 100644
index 0000000..06489e8
Binary files /dev/null and b/clk.was-mid differ
diff --git a/constants.zil b/constants.zil
new file mode 100644
index 0000000..77ddafd
--- /dev/null
+++ b/constants.zil
@@ -0,0 +1,1222 @@
+<GLOBAL PLAYER-IN-ABBEY <>>
+
+<GLOBAL GL-SHORT-STAT? <>>
+<GLOBAL GL-SCORE-HEADER-LEN 6>
+<GLOBAL GL-STAT-S-POS 11>	; "offset from right for stat score"
+<GLOBAL GL-STAT-T-POS 40>	; "offset from right for stat time"
+<GLOBAL GL-STAT-MAX-ROOM 39>
+
+<CONSTANT K-SUNRISE 630> ; "6:30am for <RT-TIME>"
+<CONSTANT K-DAYTIME 700> ; "7:00am for <RT-TIME>"
+<CONSTANT K-SUNSET 1930> ; "7:30pm for <RT-TIME>"
+<CONSTANT K-NIGHT  2000> ; "8:00pm for <RT-TIME>"
+
+; "hardware control codes"
+
+<CONSTANT K-S-NOR 0>
+<CONSTANT K-S-WIN 1>
+
+<CONSTANT K-H-NRM 0>
+<CONSTANT K-H-INV 1>
+<CONSTANT K-H-BLD 2>
+<CONSTANT K-H-ITL 4>
+
+<CONSTANT K-D-SCR-ON   1>
+<CONSTANT K-D-SCR-OFF -1>
+<CONSTANT K-D-PRN-ON   2>
+<CONSTANT K-D-PRN-OFF -2>
+<CONSTANT K-D-TBL-ON   3>
+<CONSTANT K-D-TBL-OFF -3>
+<CONSTANT K-D-REC-ON   4>
+<CONSTANT K-D-REC-OFF -4>
+
+; "exit type codes"
+
+<CONSTANT K-UEXIT 1>	; "uncond"
+<CONSTANT K-NEXIT 4>	; "no exit"
+<CONSTANT K-PEXIT 2>	; "cond via routine"
+<CONSTANT K-CEXIT 5>	; "cond via obj"
+<CONSTANT K-DEXIT 3>	; "cond via door"
+
+; "exit type object access codes"
+
+<CONSTANT K-REXIT    0>	; "destination"
+<CONSTANT K-NEXITSTR 0>	; "no exit text"
+<CONSTANT K-PEXITRTN 0>	; "via routine text"
+<CONSTANT K-CEXITFLG 1>	; "via obj object"
+<CONSTANT K-DEXITOBJ 1>	; "via door object"
+<CONSTANT K-DEXITSTR 2>	; "via door text"
+
+
+<CONSTANT GL-GAME-VERBS:TABLE
+   <PLTABLE
+      V?DESC-LEVEL
+      V?QUIT
+      V?RESTART
+      V?DIAGNOSE
+      V?INVENTORY
+      V?NOTIFY
+      V?SAVE
+      V?RESTORE
+      V?SCRIPT
+      V?VERSION>>
+
+<GLOBAL GL-DEBUG-FLAG:FLAG  <>>		; "debug flag"
+
+<GLOBAL GL-SPLIT-ROW:NUMBER  1>		; "screen split row"
+<GLOBAL GL-ALLSCREEN:NUMBER  0>		; "width of full screen"
+<GLOBAL GL-MIDSCREEN:NUMBER  0>		; "width of half screen"
+
+<GLOBAL GL-DESC-LEVEL:NUMBER 2>		; "verbosity level (0 1 2)"
+
+;<GLOBAL GL-CLOCK-DSP:FLAG   <>>	; "clock display flag"
+<GLOBAL GL-CLOCK-FMT:NUMBER  0>		; "clock display format"
+
+;<GLOBAL GL-SCORE-DSP:FLAG   <>>	; "score display flag"
+<GLOBAL GL-SCORE-MSG:FLAG    T>		; "score message flag"
+<GLOBAL GL-SCORE-MAX:NUMBER  0>		; "score maximum count"
+<GLOBAL GL-SCORE-CUR:NUMBER  0>		; "score current count"
+<GLOBAL GL-SCORE-STS:NUMBER  0>		; "score status  count"
+
+;<GLOBAL GL-MOVES-DSP:FLAG   <>>	; "move display flag" 
+<GLOBAL GL-MOVES-CUR:NUMBER  0> 	; "move current count" 
+<GLOBAL GL-MOVES-STS:NUMBER  0> 	; "move status  count" 
+
+<GLOBAL GL-PLACE-CUR:OBJECT  0>		; "current  player location"
+<GLOBAL GL-PLACE-PRV:OBJECT  0>		; "previous player location"
+<GLOBAL GL-PLACE-STS:OBJECT  0>		; "status   player location"
+
+<GLOBAL GL-WINNER:OBJECT     0> 	; "current character"
+
+<GLOBAL GL-PUPPY:OBJECT     <>>		; "object to follow player"
+<GLOBAL GL-FORMER-PUPPY:OBJECT <>>	; "Was following, but knocked out"
+<GLOBAL GL-PUPPY-MSG?:FLAG   T>		; "Give default puppy message?"
+
+<CONSTANT GL-YES-IBUF:TABLE		; "for RT-GET-YES-NO"
+	<ITABLE BYTE 12>>
+<CONSTANT GL-YES-LEXV:TABLE		; "for RT-GET-YES-NO"
+	<ITABLE BYTE 10>>
+
+<CONSTANT GL-BLANKS-LEN 10>
+<CONSTANT GL-BLANKS <ITABLE ,GL-BLANKS-LEN (BYTE) !\ >>
+
+<GLOBAL GL-CLOSED-OBJECT:OBJECT <>>	; "Closed object preventing touch."
+<GLOBAL GL-IN-OUT:FLAG <>>		; "T=Inside, <>=Outside"
+<CONSTANT GL-LOC-TRAIL:TABLE <ITABLE 10 0>>	; "Temporary table used by RT-SEEABLE? and RT-TOUCHABLE?"
+
+<SETG20 FATAL-VALUE 2>
+
+;<GLOBAL GL-TIME-OF-DAY:NUMBER    0> ; "0=Night, 1=Day, 2=Sunrise, 3=Sunset"
+<GLOBAL GL-LAST-OUT-TOD:NUMBER   0> ; "see above"
+
+<GLOBAL GL-NOW-LIT?:FLAG T>	; "GL-WINNER's room lighting status"
+<GLOBAL GL-ALW-LIT?:FLAG <>> 
+
+<GLOBAL GL-PRSA:VERB	0>	
+<GLOBAL GL-PRSI:OBJECT	0>	
+<GLOBAL GL-PRSO:OBJECT	0>	
+
+<GLOBAL GL-P-IT-OBJECT:OBJECT   <>>	
+<GLOBAL GL-P-HER-OBJECT:OBJECT  <>>	
+<GLOBAL GL-P-HIM-OBJECT:OBJECT  <>>	
+<GLOBAL GL-P-THEM-OBJECT:OBJECT <>>	
+
+<GLOBAL GL-P-QCONTEXT-TH:OBJECT <>>	
+<GLOBAL GL-P-QCONTEXT-RM:OBJECT <>>	
+
+<GLOBAL GL-P-TABLE:NUMBER	0>	
+<GLOBAL GL-P-SYNTAX:NUMBER	0>	
+<GLOBAL GL-P-LEN:NUMBER		0>	
+<GLOBAL GL-P-DIR:NUMBER		0>	
+
+<GLOBAL GL-P-GOOD:FLAG	 <>>	; "parser successful"
+<GLOBAL GL-P-CONT:FLAG	 <>>    ; "parser continue"
+<GLOBAL GL-P-QUOT:FLAG	 <>>	; "quote"
+<GLOBAL GL-P-ORPH:FLAG	 <>>    ; "orphan"
+
+<GLOBAL GL-P-MERGED	  <>>	
+<GLOBAL GL-P-ACLAUSE	  <>>	
+<GLOBAL GL-P-ANAM	  <>>	
+<GLOBAL GL-P-AADJ	  <>>	
+
+<GLOBAL GL-P-NCN	0>	
+
+<GLOBAL GL-P-MULT?:FLAG	  <>>	
+<GLOBAL GL-NOW-PRSI?:FLAG  <>>	
+;<GLOBAL GL-P-DOLLAR-FLAG:FLAG	  <>>	
+<GLOBAL GL-P-TIME-FLAG:FLAG	  <>> ; "a time was entered ##:##:##"
+<GLOBAL GL-P-GET-FLAGS	   0>   
+<GLOBAL GL-P-END-ON-PREP  <>>	
+<GLOBAL GL-RESERVE-PTR	  <>>	
+<GLOBAL GL-P-DIRECTION	   0>	
+<GLOBAL GL-P-WALK-DIR:DIRECTION <>>	
+<GLOBAL GL-AGAIN-DIR:DIRECTION  <>>	
+<GLOBAL GL-P-DIR-WORD:WORD	  <>>	
+<GLOBAL GL-P-PRSA-WORD:WORD	  <>>	
+<GLOBAL GL-P-NUMBER:NUMBER	  -1>	
+;<GLOBAL GL-P-AMOUNT:NUMBER	0>	
+<GLOBAL GL-P-SLOCBITS		0>      
+<GLOBAL GL-P-GWIMBIT		0>	
+<GLOBAL GL-P-PHR		0> ; "which noun phrase is being parsed?"
+<GLOBAL GL-P-AND		  <>>	
+<GLOBAL GL-P-MOBY-FOUND		  <>>	
+;<GLOBAL GL-P-MOBY-FLAG		  <>> ; "needed only for ZIL"
+
+;-----------------------------------------------------------------------------
+; "parser tables (mostly)"
+;-----------------------------------------------------------------------------
+
+;<GLOBAL GL-INSAVE-A:TABLE   <ITABLE BYTE 81>>
+;<GLOBAL GL-INSAVE-B:TABLE   <ITABLE BYTE 81>>
+;<GLOBAL GL-INSAVE-C:TABLE   <ITABLE BYTE 81>>
+
+<CONSTANT GL-P-P-LEX:TABLE    <ITABLE 59 (LEXV) 0 0>>
+<CONSTANT GL-P-S-LEX:TABLE    <ITABLE 59 (LEXV) 0 0>>
+<CONSTANT GL-P-T-LEX:TABLE    <ITABLE 59 (LEXV) 0 0>>
+
+<CONSTANT K-P-INBUF-SIZE 80>
+<CONSTANT GL-P-PIBUF:TABLE    <ITABLE ,K-P-INBUF-SIZE (BYTE LENGTH) 0>>
+<CONSTANT GL-P-RIBUF:TABLE    <ITABLE ,K-P-INBUF-SIZE (BYTE LENGTH) 0>>
+
+<CONSTANT GL-P-ITBL:TABLE     <TABLE 0 0 0 0 0 0 0 0 0 0>>
+<CONSTANT GL-P-OTBL:TABLE     <TABLE 0 0 0 0 0 0 0 0 0 0>>
+<CONSTANT GL-P-VTBL:TABLE     <TABLE 0 0 0 0>>
+<CONSTANT GL-P-OVTBL:TABLE    <TABLE 0 0 0 0>>
+
+<CONSTANT GL-OOPS-INBUF:TABLE <ITABLE ,K-P-INBUF-SIZE (BYTE LENGTH) 0>>
+<CONSTANT GL-OOPS-TABLE:TABLE <TABLE <> <> <> <>>>
+
+<GLOBAL GL-P-NAM				 <>>
+<GLOBAL GL-P-XNAM				 <>>
+<CONSTANT GL-P-NAMW:TABLE     <TABLE 0 0>>
+
+<GLOBAL GL-P-ADJ				 <>>
+<GLOBAL GL-P-XADJ				 <>>
+<CONSTANT GL-P-ADJW:TABLE     <TABLE 0 0>>
+
+<GLOBAL GL-P-OF <>>
+<CONSTANT GL-P-OFW:TABLE      <TABLE 0 0>>
+
+<CONSTANT K-P-OBJ-TBL-LEN 45>		; "Size of parser object tables."
+<GLOBAL GL-P-OVERFLOW:FLAG <>>	; "Object tables overflowed."
+<CONSTANT GL-P-PRSO:TABLE     <ITABLE NONE ,K-P-OBJ-TBL-LEN>>
+<CONSTANT GL-P-PRSI:TABLE     <ITABLE NONE ,K-P-OBJ-TBL-LEN>>   
+<CONSTANT GL-P-BUTS:TABLE     <ITABLE NONE ,K-P-OBJ-TBL-LEN>>   
+<CONSTANT GL-P-MERGE:TABLE    <ITABLE NONE ,K-P-OBJ-TBL-LEN>>  
+<CONSTANT GL-P-OCLAUSE:TABLE  <ITABLE NONE ,K-P-OBJ-TBL-LEN>>
+
+<CONSTANT GL-P-TIME:TABLE     <TABLE (BYTE) 0 0 0>>
+
+<GLOBAL GL-CAN-UNDO:NUMBER 0>
+
+; "message tables"
+
+<CONSTANT GL-HOLMES-DESC-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	       <BYTE 1>
+	       <PLTABLE
+		"Holmes"
+		"Your friend"
+		"The detective"
+		"Your companion">>>
+
+<CONSTANT GL-HOLMES-DESPAIR-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		"grimly"
+		"sharply"
+		"in despair"
+		"severely"
+		"for a moment">>>
+
+<CONSTANT GL-HOLMES-IMPOSSIBLE-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	   <BYTE 1>
+	   <PLTABLE 
+		"I thought you had more sense than that, Watson"
+		"That can't be done, Watson"
+		"That's impossible, Doctor"
+		"You can't do that, Watson"
+		"You should know better, Doctor"
+		"Impossible"
+		"Don't be ridiculous, Watson">>>
+
+<CONSTANT GL-WIGGINS-DESC-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+		"Wiggins"
+		"The boy"
+		"The urchin"
+		"Your companion"
+		"Your assistant">>>
+
+<CONSTANT GL-WIGGINS-IMPOSSIBLE-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		"You must be out of your bleedin' mind"
+		"That's ruddy impossible"
+		"Not bloody likely"
+		"For a toff, you're not too bright"
+		"Nice try, Guv"
+		"I thought doctors was smart">>>
+
+<CONSTANT GL-IMPOSSIBLE-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+		"That's impossible"
+		"You can't do that"
+		"That can't be done"
+		"That won't work"
+		"You try, but fail">>>
+
+<CONSTANT GL-NOT-LIKELY-TXT:TABLE 
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+	   " is not likely"
+	   " seems doubtful"
+	   " seems unlikely">>>
+
+<CONSTANT GL-LOOKS-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		"looks"
+		"appears"
+		"seem to be">>>
+
+<CONSTANT GL-PUZZLED-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+		"puzzled"
+		"bewildered"
+		"confused"
+		"perplexed">>>
+
+<CONSTANT GL-BORING-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		"unusual"
+		"interesting"
+		"extraordinary"
+		"special">>>
+
+<CONSTANT GL-NO-POINT-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+		" not do anything useful"
+		" accomplish nothing"
+		" have no desirable effect"
+		" not be very productive"
+		" serve no purpose"
+		" be pointless">>>
+
+<CONSTANT GL-FOG-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	 <BYTE 1>
+	 <PLTABLE 
+		"The fog swirls around you"
+		"You can barely see through the thick fog"
+		"The fog turns everything into an indistinct blur"
+		"Wisps of fog creep along the ground"
+		"The fog clings to everything like a shroud"
+		"Fog blankets everything around you">>>
+
+;<CONSTANT GL-BUZZ-TABLE:TABLE
+   <PTABLE
+      <PLTABLE
+         <VOC "WHY" <>> <VOC "HOW" <>> <VOC "HOW\'S" <>>
+         <VOC "WHEN" <>> <VOC "WHEN\'S" <>> <VOC "WOULD" <>>
+         <VOC "COULD" <>> <VOC "SHOULD" <>>>
+      <PLTABLE
+         <VOC "THAT\'S" <>> <VOC "IT\'S" <>> <VOC "I\'M" <>>
+         <VOC "DID" <>> <VOC "THEY\'RE" <>> <VOC "SHALL" <>>
+         <VOC "DO" <>> <VOC "HAVE" <>> <VOC "ANY" <>>
+         <VOC "I\'LL" <>> <VOC "WHICH" <>> <VOC "WE\'RE" <>>
+         <VOC "I\'VE" <>> <VOC "WON\'T" <>> <VOC "HAS" <>>
+         <VOC "YOU\'RE" <>> <VOC "HE\'S" <>> <VOC "SHE\'S" <>>
+         <VOC "WILL" <>> <VOC "WERE" <>>>
+      <PLTABLE
+         <VOC "ZERO" <>> <VOC "EIGHT" <>> <VOC "NINE" <>>
+         <VOC "TEN" <>> <VOC "ELEVEN" <>> <VOC "TWELVE" <>>
+         <VOC "THIRTEEN" <>> <VOC "FOURTEEN" <>> <VOC "FIFTEEN" <>>
+         <VOC "SIXTEEN" <>> <VOC "SEVENTEEN" <>> <VOC "EIGHTEEN" <>>
+         <VOC "NINETEEN" <>> <VOC "TWENTY" <>> <VOC "THIRTY" <>>
+         <VOC "FORTY" <>> <VOC "FIFTY" <>> <VOC "SIXTY" <>>
+         <VOC "SEVENTY" <>> <VOC "EIGHTY" <>> <VOC "NINETY" <>>
+         <VOC "HUNDRED" <>> <VOC "THOUSAND" <>> <VOC "MILLION" <>>
+         <VOC "BILLION" <>>>
+      <PLTABLE
+         <VOC "QUIETLY" <>> <VOC "SILENTLY" <>> <VOC "PRIVATELY" <>>
+         <VOC "CAREFULLY" <>> <VOC "SLOWLY" <>> <VOC "CLOSELY" <>>
+         <VOC "CAUTIOUSLY" <>> <VOC "WARILY" <>> <VOC "GENTLY" <>>
+         <VOC "QUICKLY" <>> <VOC "RAPIDLY" <>> <VOC "SWIFTLY" <>>
+         <VOC "SUDDENLY" <>> <VOC "BRIEFLY" <>> <VOC "HASTILY" <>>
+         <VOC "HURRIEDLY" <>> <VOC "RECKLESSLY" <>>
+         <VOC "CARELESSLY" <>>>
+      <PLTABLE
+         <VOC "CURSE" <>> <VOC "GODDAMNED" <>> <VOC "CUSS" <>>
+         <VOC "DAMN" <>> <VOC "SHIT" <>> <VOC "FUCK" <>>
+         <VOC "SHITHEAD" <>> <VOC "BASTARD" <>> <VOC "ASS" <>>
+         <VOC "FUCKING" <>> <VOC "BITCH" <>> <VOC "DAMNED" <>>
+         ;<VOC "COCKSUCKER" <>> <VOC "FUCKED" <>> <VOC "PISS" <>>
+         ;<VOC "CUNT" <>> <VOC "ASSHOLE" <>> <VOC "PEE" <>>>
+      ;<PLTABLE
+         <VOC "ZORK" <>> <VOC "XYZZY" <>> <VOC "GRUE" <>>
+         <VOC "PLUGH" <>> <VOC "OZMOO" <>> <VOC "GNUSTO" <>>
+         <VOC "GRUES" <>> <VOC "WISHBRINGER" <>> <VOC "FROTZ" <>>
+         <VOC "MAGICK" <>> <VOC "QUENDOR" <>> <VOC "FROBOZZ" <>>>>>
+
+<CONSTANT K-CAPS:TABLE
+   <PLTABLE
+      <VOC "N" <>>
+      <VOC "E" <>>
+      <VOC "S" <>>
+      <VOC "W" <>>
+      <VOC "I" <>>
+      <VOC "MR" <>>
+      <VOC "MRS" <>>
+      <VOC "MISS" <>>
+      <VOC "HOLMES" <>>
+      <VOC "WATSON" <>>
+      <VOC "ELIZA" <>>
+      <VOC "HUDSON" <>>
+      <VOC "WIGGINS" <>>
+      <VOC "AKBAR" <>>
+      <VOC "MORIARTY" <>>
+      <VOC "TOBY" <>>
+      <VOC "MYCROFT" <>>
+      <VOC "SHERMAN" <>>>>
+
+<CONSTANT GL-SEE-VERBS:TABLE
+   <PLTABLE
+      V?LOOK
+      V?EXAMINE
+      V?LOOK-INSIDE
+      V?LOOK-ON
+      V?READ
+      V?FIND
+      V?SEARCH
+      V?SHOW
+      V?LOOK-UNDER
+      V?LOOK-BEHIND
+      V?LOOK-THRU 
+      V?LOOK-DOWN
+      V?LOOK-UP
+      V?READ-TO
+      V?LOOK-OUTSIDE
+      V?COUNT
+      V?WATCH
+      V?FOCUS-ON
+      V?ADJUST
+      V?POINT>>
+
+<CONSTANT GL-TALK-VERBS:TABLE
+   <PLTABLE
+      V?ALARM
+      V?ASK-ABOUT
+      V?ASK-FOR
+      V?GOODBYE
+      V?HELLO
+      V?NO
+      V?PASSWORD
+      V?QUESTION
+      V?REPLY
+      V?SAY
+      V?TELL
+      V?TELL-ABOUT
+      V?THANK
+      V?WAVE-AT
+      V?WHAT
+      V?WHERE
+      V?WHO
+      V?YELL
+      V?YES>>
+
+<CONSTANT GL-TOUCH-VERBS:TABLE
+   <PLTABLE
+      V?ADJUST
+      V?BLOW-INTO
+      V?BURN-WITH
+      V?CLEAN
+      V?CLEAN-OFF
+      V?CLOSE
+      V?COVER
+      V?CUT
+      V?DETONATE
+      ;V?DIG
+      V?DRINK
+      V?DRINK-FROM
+      V?EAT
+      V?EMPTY-INTO
+      V?FEED
+      V?FILL
+      V?FOLD
+      V?GIVE
+      V?HIT
+      V?KICK
+      V?KNOCK
+      V?LAMP-ON
+      V?LAMP-OFF
+      V?LIE-DOWN
+      V?LIGHT-WITH
+      V?LOCK
+      V?LOOSEN
+      V?LOWER
+      V?MELT
+      V?MOVE
+      V?MUNG
+      V?OPEN
+      V?OPEN-WITH
+      V?PICK
+      V?PLAY
+      V?PLUG
+      V?PULL
+      V?PUSH
+      V?PUSH-TO
+      V?PUT
+      V?PUT-BEHIND
+      V?PUT-ON
+      V?PUT-UNDER
+      V?RAISE
+      V?REACH-IN
+      V?REPAIR
+      V?REPLACE
+      V?RIP
+      ;V?SCREW
+      ;V?SCREW-WITH
+      V?SHAKE
+      V?SIT
+      V?SPIN
+      ;V?SQUEEZE
+      V?STAND-ON
+      V?STRIKE
+      V?SWING
+      V?TAKE
+      V?TAKE-OFF
+      V?TASTE
+      V?TIE
+      V?TOUCH
+      V?TOUCH-TO
+      V?TUNE-TO
+      V?TURN
+      V?TURN-TO
+      V?UNFOLD
+      V?UNLOCK
+      ;V?UNSCREW
+      V?UNPLUG
+      V?UNSCREW-FROM
+      V?UNTIE
+      V?WIND
+      V?WRAP-AROUND>>
+
+;<CONSTANT K-WISH-MSG "Gesundheit">
+
+<CONSTANT K-TOO-DARK-MSG "It is too dark to see.">
+
+<CONSTANT K-DONT-UNDERSTAND-MSG "[Please try to express that another way.]">
+
+<CONSTANT K-BE-MORE-SPECIFIC-MSG "[You must be more specific.]">
+
+<CONSTANT K-BE-SPECIFIC-MSG "[Be specific: what do you want to ">
+
+<CONSTANT K-TO-COMPLETE-MSG " to complete this story.]">
+
+"CAB STUFF"
+<GLOBAL GL-WHERE-TO-PROMPT?:FLAG <>>	;"Display 'Where to?' before prompt?"
+<GLOBAL GL-WHERE-TO-ORPH?:FLAG <>>	;"Orphan drive verb?"
+
+<CONSTANT K-HANSOM-TIME  2>	;"Minutes for Hansom  to travel one room."
+<CONSTANT K-GROWLER-TIME 4>	;"Minutes for Growler to travel one room."
+
+<CONSTANT K-CAB-HERE-MSG "There is a cab here already.">
+<CONSTANT K-TAKE-CAB-MSG
+"[To take a cab, get in and tell the cabbie to drive to your destination.]">
+
+<CONSTANT GL-CAB-DIST-TBL:TABLE
+	<PTABLE (BYTE)
+ 1
+ 2  1
+ 3  2  1
+ 3  3  2  1
+ 2  3  3  2  1
+ 1  2  3  3  2  1
+ 2  3  4  4  3  2  1
+ 3  4  5  5  4  3  2  1
+ 4  5  6  6  5  4  3  2  1
+ 4  4  3  2  1  2  3  4  5  6
+ 4  4  3  2  1  2  3  4  5  6  2
+ 4  5  6  6  5  4  3  2  1  2  5  6
+ 5  6  7  6  5  5  4  3  2  3  4  6  1
+ 6  7  7  6  5  6  5  4  3  4  4  6  2  1
+ 7  7  6  5  4  5  6  5  4  5  3  5  3  2  1
+ 6  6  5  4  3  4  5  6  5  6  2  4  4  3  2  1
+ 6  7  6  5  4  5  5  4  3  4  3  5  2  1  2  3  3
+ 6  6  5  4  3  4  5  5  4  5  2  4  3  2  3  3  2  1
+ 7  7  6  5  4  5  6  6  5  6  3  5  4  3  3  2  1  2  1
+ 5  5  4  3  2  3  4  5  5  6  1  3  4  3  4  4  3  2  1  2
+ 5  5  4  3  2  3  4  5  6  7  1  3  5  4  3  2  1  4  3  2  2
+ 4  4  3  2  1  2  3  4  5  6  2  2  6  6  6  5  4  5  4  5  3  3
+ 5  5  4  3  2  3  4  5  6  7  2  3  7  6  6  5  4  5  4  5  3  3  1
+ 5  5  4  3  2  3  4  5  6  7  1  3  6  5  5  4  3  4  3  4  2  2  2  1
+ 6  6  5  4  3  4  5  6  7  8  2  4  7  6  6  5  4  5  4  5  3  3  3  2  1
+ 7  7  6  5  4  5  6  7  8  9  3  5  8  7  7  6  5  6  5  6  4  4  4  3  2  1
+ 8  8  7  6  5  6  7  8  9 10  4  6  9  8  8  7  6  7  6  7  5  5  5  4  3  2  1
+ 7  7  6  5  4  5  6  7  8  9  3  5  8  7  7  6  5  6  5  6  4  4  4  3  2  1  2  3
+ 6  6  5  4  3  4  5  6  7  8  4  4  8  8  8  7  6  7  6  7  5  5  2  3  4  5  6  6  6
+ 5  5  4  3  2  3  4  5  6  7  3  3  7  7  7  6  5  6  5  6  4  4  1  2  3  4  5  5  5  1
+ 6  6  5  4  3  4  5  6  7  8  4  4  8  8  8  7  6  7  6  7  5  5  2  3  4  5  5  4  6  2  1
+ 7  7  6  5  4  5  6  7  8  9  5  5  9  9  9  8  7  8  7  8  6  6  3  4  5  5  4  3  6  3  2  1
+ 8  8  7  6  5  6  7  8  9 10  6  6 10 10 10  9  8  9  8  9  7  7  4  5  5  4  3  2  5  4  3  2  1
+ 9  9  8  7  6  7  8  9 10 11  5  7 10  9  9  8  7  8  7  8  6  6  5  5  4  3  2  1  4  5  4  3  2  1
+10 10  9  8  7  8  9 10 11 12  6  8 11 10 10  9  8  9  8  9  7  7  6  6  5  4  3  2  5  6  5  4  3  2  1
+10 10  9  8  7  8  9 10 11 12  6  8 11 10 10  9  8  9  8  9  7  7  6  6  5  4  3  2  5  6  5  4  3  2  1  2>>
+
+;<GLOBAL GL-CAB-ROOMS:TABLE
+	<PLTABLE
+		,RM-221B-BAKER-ST
+		,RM-YORK-PLACE
+		,RM-MARYLEBONE-RD
+		,RM-TOTTENHAM-COURT-RD
+		,RM-ST-GILES-CIRCUS
+		,RM-OXFORD-ST
+		,RM-ORCHARD-ST
+		,RM-AUDLEY-ST
+		,RM-HYDE-PARK-CORNER
+		,RM-KENSINGTON-GARDENS
+		,RM-TRAFALGAR-SQUARE
+		,RM-GREAT-RUSSELL-ST
+		,RM-GROSVENOR-PLACE
+		,RM-VICTORIA-SQUARE
+		,RM-VICTORIA-STREET
+		,RM-BROAD-SANCTUARY
+		,RM-PARLIAMENT-SQUARE
+		,RM-BUCKINGHAM-PALACE-RD
+		,RM-QUEENS-GARDENS
+		,RM-BIRDCAGE-WALK
+		,RM-THE-MALL
+		,RM-WHITEHALL
+		,RM-NEW-OXFORD-ST
+		,RM-COVENT-GARDEN
+		,RM-THE-STRAND
+		,RM-FLEET-STREET
+		,RM-THE-EMBANKMENT
+		,RM-UPPER-THAMES-ST
+		,RM-BLIND-ALLEY
+		,RM-PINCHIN-LANE
+		,RM-CHEAPSIDE
+		,RM-THREADNEEDLE-ST
+		,RM-KING-WILLIAM-ST
+		,RM-MONUMENT
+		,RM-LOWER-THAMES-ST
+		,RM-LONDON-BRIDGE
+		,RM-TOWER-ENTRANCE>>
+
+
+; "GL-LASTFOC"
+
+<GLOBAL GL-LASTFOC:OBJECT <>> 			; "last object focused on"
+
+<GLOBAL GL-LISTEN-OBJ:OBJECT <>>
+
+<CONSTANT GL-HOLMES-INDOORS-LOOK-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+		"'s brow is furrowed in intense concentration"
+		" is pacing back and forth nervously"
+		"'s eyes are half-closed, but they miss nothing"
+		" is looking around with interest"
+		" appears lost in deep thought"
+		"'s lean, severe face gives away none of his thoughts"
+		" is here, awaiting your next move">>>
+
+<CONSTANT GL-HOLMES-INDOORS-ENTER-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		" trails along after you"
+		" walks into the room alongside you"
+		" enters and begins pacing back and forth nervously"
+		" follows you"
+		" joins you and starts looking around with interest"
+		" drifts in after you, apparently lost in thought">>>
+
+<CONSTANT GL-HOLMES-HOUSE-LOOK-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		" is pacing back and forth nervously"
+		" appears lost in thought"
+		" is here, awaiting your next move">>>
+
+<CONSTANT GL-HOLMES-HOUSE-ENTER-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		" walks into the room alongside you"
+		" enters and begins pacing back and forth nervously"
+		" drifts in after you, apparently lost in thought">>>
+
+<CONSTANT GL-HOLMES-OUTDOORS-LOOK-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		" is staring at the sky, as if he might find a clue there"
+		" is looking around with interest"
+		" is pacing back and forth nervously"
+		"'s lean, severe face gives away none of his thoughts"
+		" appears lost in thought"
+		" is here"
+		"'s eyes are half-closed, but they miss nothing">>>
+
+<CONSTANT GL-HOLMES-OUTDOORS-ENTER-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		" walks alongside you"
+		" trails along after you"
+		" follows you and begins pacing back and forth nervously"
+		" joins you and starts looking around with interest"
+		" follows you"
+		" drifts along after you, apparently lost in thought">>>
+
+<CONSTANT GL-WIGGINS-LOOK-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE
+		" is shifting his weight from one foot to the other"
+		" appears eager to help"
+		" is standing around, waiting for you to do something"
+		" is looking around with interest"
+		" is here"
+		" appears fascinated by everything">>>
+
+<CONSTANT GL-WIGGINS-ENTER-TXT:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+		" follows you"
+		" walks alongside you"
+		" joins you and starts looking around with interest"
+		" drifts along after you">>>
+
+<CONSTANT K-BUTLER-ACCEPTS-MSG
+"The butler accepts the item and asks you to wait while he takes it to Mr
+Mycroft Holmes.">
+
+<CONSTANT K-MUST-WEIGH-MSG
+" must weigh twice what you do. You won't be able to lift him.">
+
+<CONSTANT K-NOTHING-INSIDE-MSG
+"the box with the key. You rummage around inside for a few moments
+but discover nothing that would help you, so">
+
+<CONSTANT K-FIDGETING-MSG
+" is fidgeting nervously on the seat next to you">
+
+<CONSTANT K-SPECIFY-MSG
+"You must specify a particular ">
+
+<CONSTANT K-SORRY-MATE-MSG
+"\"Sorry, mate. I've me own plans, you know.\"">
+
+<CONSTANT K-ENJOYING-RIDE-MSG
+" looks like he is enjoying the boat ride">
+
+<CONSTANT K-ILL-HOLD-IT-MSG
+"\"Don't worry. I'll hold it for you.\"">
+
+<CONSTANT K-CLOSED-AND-LOCKED-MSG
+"It is already closed and locked.">
+
+<CONSTANT K-MORE-VALUABLE-MSG
+"\"If you expect me to let you in there, you'll have to offer me something a
+lot more valuable than that.\"">
+
+<CONSTANT K-RICOCHET-MSG
+"The bullet ricochets wildly.">
+
+<CONSTANT K-EAU-DE-MSG
+"Mmmmmm. Eau de malmsey.">
+
+;<CONSTANT K-CAN-LEAVE-MSG
+"\"You can leave if you want to, guv. I'm waiting right here.\"">
+
+<CONSTANT K-AFTER-YOU-MSG
+"\"After you, guv.\"">
+
+<CONSTANT K-CANT-LEAVE-MSG
+"Wiggins sidles up next to you and whispers, \"I'd like to, guv. But Mr
+'Olmes done give me clear instructions not to leave this spot. Is there
+anyfing else I can do for you?\"">
+
+<CONSTANT K-WOUNDED-PRIDE-MSG
+" says with wounded pride, \"Sorry, guv. Me and Mr 'Olmes has a deal. One
+shilling's me price. Nothing more. Nothing less.\"">
+
+<CONSTANT K-GUARD-IGNORES-MSG
+"The guard ignores you.">
+
+<CONSTANT K-HOLMES-LICKS-MSG
+"Holmes absentmindedly licks his fingers and then wipes his hands on his
+smoking jacket. His ">
+
+<CONSTANT K-ANOTHER-PHIAL-MSG
+"Holmes takes another phial out of his pocket and stares at it in the same
+way as before.">
+
+<CONSTANT K-HOT-MSG
+"Yeeeeeeeeeeeeeeeeeeeouch!!! Hot, hot, hot, hot...">
+
+<CONSTANT K-ANCHOR-ALREADY-OUT-MSG
+"The anchor is already out of the water.">
+
+<CONSTANT K-MUST-BE-IN-BOAT-MSG
+"You would have to be in the boat to ">
+
+<CONSTANT K-NOT-SEE-HERE-MSG
+"You do not see that here.">
+
+<CONSTANT K-NO-RESTING-MSG
+"This is no time for resting.">
+
+<CONSTANT K-DIZZY-MSG
+"You begin to feel a little dizzy.">
+
+<CONSTANT K-LESTRADE-ARRESTS-MSG
+"Lestrade arrests you and puts you in handcuffs. You will spend the rest of
+your life in Dartmoor, trying to understand where you went wrong.">
+
+<CONSTANT K-PLUG-HIM-MYSELF-MSG
+" \"I don't blame you a bit, Dr Watson. Said \"Elementary\" one too many
+times did 'e? Many's the time I've wanted to plug him myself. Still, I've
+got to take you away. Come along now.\"">
+
+<CONSTANT K-ANNIE-OAKELEY-MSG
+"Who do you think you are, Annie Oakley?">
+
+<CONSTANT K-SHATTER-MSG
+" shatters and disappears.">
+
+<CONSTANT K-CUSTOMARILY-KEEP-MSG
+"\"Have you looked in your hat, old fellow? That is where you customarily
+keep it.\"">
+
+<CONSTANT K-PLEASE-KEEP-IT-MSG
+"\"Please keep it, dear fellow. You may need it.\"">
+
+<CONSTANT K-SEEMS-TO-HEAR-MSG
+" seems to hear you, but he does not respond.">
+
+<CONSTANT K-DROP-IT-FIRST-MSG
+"Don't you think you should drop it first?">
+
+<CONSTANT K-GNAWS-MSG
+" gnaws on your leg briefly in response.">
+
+<CONSTANT K-WORK-OUT-YOURSELF-MSG
+"\"I'm afraid you'll have to work that out yourself, old boy.\"">
+
+<CONSTANT K-NEVER-THEORIZE-MSG
+"\"Never theorize in advance of the facts, Watson.\"">
+
+<CONSTANT K-ON-DUTY-MSG
+"The guard says, \"Sorry, sir. On duty, you know.\"">
+
+<CONSTANT K-CONFUSED-MSG
+"The pigeon looks at you with a confused expression.">
+
+<CONSTANT K-TOO-HAUGHTY-MSG
+"The nannies are too haughty to acknowledge your presence.">
+
+<CONSTANT K-BETTER-SUCCESS-MSG
+"You'd have better success if you launched the boat first.">
+
+<CONSTANT K-REFERRING-MSG "[To what are you referring?]">
+
+<CONSTANT K-DO-IT-YOURSELF-MSG "You will have to do that yourself.">
+
+<CONSTANT K-INAPPROPRIATE-MSG "That would hardly be an appropriate thing to do.">
+
+<CONSTANT K-HOW-TO-MSG "How do you intend to do that?">
+
+<CONSTANT K-NO-SWIM-MSG "There is no place to swim here.">
+
+<CONSTANT K-PROFANITY-MSG "A proper Victorian would never use such a vulgar word.">
+
+<CONSTANT K-SUICIDE-MSG "Suicide is frowned upon in medical circles.">
+
+<CONSTANT K-THEFT-MSG
+"Thievery, outside of established limits, is frowned upon by the medical
+profession.">
+
+<CONSTANT K-SPECIFY-DIR-MSG "[You must specify a direction.]">
+
+<CONSTANT K-WONT-HELP-MSG " is not likely to help matters.">
+
+<CONSTANT K-GOOD-SHOW-MSG
+"\"Good show!\"">
+
+<CONSTANT K-PITY-MSG
+"\"Pity.\"">
+
+<CONSTANT K-MAYBE-MSG
+"\"Be more decisive!\"">
+
+<CONSTANT K-SIMPLE-TOMB-MSG
+"It's a simple tomb, with a brief inscription written on it.">
+
+<CONSTANT K-BREATH-TAKING-MSG
+"The ceiling is breathtakingly beautiful.">
+
+<CONSTANT K-GLINT-MSG
+"Now that you know what to look for, you see a glint coming from Nelson's
+blind eye.">
+
+<CONSTANT K-NELSON-STATUE-MSG
+" a statue of Nelson on the top and a bronze relief on the pedestal at
+the bottom.">
+
+<CONSTANT K-HEAVY-ARMOUR-MSG
+"You cannot take another step in that heavy suit of armour.">
+
+<CONSTANT K-WELL-WORN-MSG
+"The door to the parlour is to the north, and
+a flight of well-worn stairs leads up to the first floor.">
+
+<CONSTANT K-URCHIN-MSG
+"One of the urchins looks strangely familiar to you.">
+
+<CONSTANT GL-LIBRARIAN-TXT1:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+	   "The vases of the fourth dynasty of the ancient Sumerians differed
+significantly from those of the third dynasty. The most pronounced change
+involved a slight flaring of the handles from one dynasty to the next. Most
+experts agree that this symbolized a drastic change in the Sumerians'
+perception of the goddess Ashtoreth. Others however, believe it made the
+vases easier to carry"
+	   "Monocotyledonous plants produce an embryo with a single cotyledon,
+which functions primarily to make available the food which is
+stored in the endosperm, as opposed to the more common dicotyledons,
+which include most of the woody, deciduous plants of the temperate
+climates"
+	   "The Beaker People of prehistoric Britain are remembered primarily
+for the reddish-brown pottery from which they take their name, and for
+interring their dead in single graves under round barrows. This culture
+disappeared in the Middle Bronze Age (circa 1800 B.C.) and has been annoying
+British schoolchildren ever since"
+	   "Perhaps you would be interested in something on the Punic Wars? I
+believe I have a nineteen-volume history of them here somewhere"
+	   "Stanislaw Leszczynski was crowned king of Poland in 1704, but was
+deposed only five years later because no one could pronounce his name"
+	   "The yin and yang philosophy of nature was developed around 2800
+B.C. by the Chinese emperor Fu Hsi. According to Fu, health and tranquility
+require a harmonious balance among all the body's elements. This theory
+has always been ridiculed by the British, whose ancestors at this time
+were still painting themselves blue and naming their children Og">>>
+
+<CONSTANT GL-LIBRARIAN-TXT2:TABLE
+	<TABLE (PATTERN (BYTE WORD))
+	  <BYTE 1>
+	  <PLTABLE 
+	   "Louis I, son of Charlemagne, ascended France's throne in 814 A.D.
+He was the first to implement that country's secret policy of naming all their
+kings Louis in order to confuse enemy agents, historians, and their own
+peasants." 
+	   "The first workers' strike on record took place in Egypt in 1170
+B.C., when labourers building a new pyramid in Thebes learned that their
+payroll had been delayed. They organized a protest, stopped working, and
+picketed the construction site carrying papyrus signs that read, 'Cash on
+the line, or you don't get your shrine.' Tradition also has it that the
+slogan they chanted was 'Stuff the crypt...We've been gypped...Ra Ra Ra.'"
+	   "The confusion between the usage of the present subjunctive and the
+past subjunctive is easily resolved as long as one remembers that the terms
+refer not to different times, but to differing sorts of uncertainty. Reference
+to time itself is only implied by the use of the past perfect subjunctive.
+While no deaths have as yet resulted from incorrect usage, it would be
+prudent not to take chances."
+	   "While uncovering one's head is a symbol of respect in many
+cultures, in others the opposite is true. Some Indian religions, for example,
+require that a man's head remain covered at all times, giving rise to the use
+of the turban, or 'imamah.' The tabu against removing one's turban eventually
+became so strong that thieves who thought nothing of stealing a victim's
+clothes would nevertheless leave his turban undisturbed."
+	   "Most historians ascribe Catherine de Medicis's poor reputation
+among the French to her ordering the wholesale massacre of French citizens in
+1572. Recent research, however, has revealed that years before, in 1533,
+she brought into the country such vegetables as broccoli, artichokes,
+cabbage and haricot beans - and it is now widely accepted that this
+alone was sufficient to make the French hate her."
+	   "Are you sure I can't get you something on the Punic Wars?">>>
+
+<CONSTANT K-SEASICK-MSG
+" looks a little green from the motion of the boat">
+
+<CONSTANT K-SITTING-QUIETLY-MSG
+" is sitting quietly on the seat next to you">
+
+<CONSTANT K-SECURELY-BOUND-MSG
+" is securely bound to a chair with a thick rope">
+
+<CONSTANT K-SIGN-HERE-MSG
+"There is a sign on the wall.">
+
+<CONSTANT K-YUCK-MSG
+"Yuck! Have you looked at that stuff?">
+
+<CONSTANT K-BRIGHTENS-UP-MSG
+", and it brightens up an otherwise gloomy interior">
+
+<CONSTANT K-SHAFT-OF-LIGHT-MSG
+"A shaft of sunlight comes through the stained-glass window, lighting up one
+of the tombs, and relieving the general gloom of the Abbey's dark interior.">
+
+<CONSTANT K-HUDSON-WORRIED-MSG
+" apologetically stands in front of the closed door. \"I'm terribly worried
+about Mr Holmes, Doctor. Won't you please attend to him right away?\"">
+
+<CONSTANT K-ASTERISK-MSG "         **********">
+
+<CONSTANT K-TWINKLE-MSG
+"Twinkle, twinkle, son of Mars,">
+
+<CONSTANT K-TRANSEPT-MSG
+"Transept of the Abbey, which is dominated by a beautiful rose window set
+high into the wall.">
+
+<CONSTANT K-EYES-HINGED-MSG
+"Your eyes must be hinged a very interesting way if you think you can do
+that.">
+
+<CONSTANT K-AMBULATORY-MSG
+"This is a narrow corridor lined with tombs.">
+
+<CONSTANT K-EVERYONE-OUT-MSG
+"Everyone here has been knocked out by the etherium, although it's hard to tell.">
+
+<CONSTANT K-SAPPHIRE-MSG
+", to which is glued a beautiful, deep-blue sapphire.">
+
+<CONSTANT K-BRAVO-MSG
+"Holmes looks at you approvingly and says, \"Bravo, Watson. Well done,
+old chap.\"">
+
+<CONSTANT K-GOOD-LOOK-MSG
+" to get a really good look at it.">
+
+<CONSTANT K-FOUGHT-WELL-MSG
+"\"You fought well, Doctor. But you have lost.\"">
+
+<CONSTANT K-WAKE-UP-MSG
+"Sometime later you awaken and stumble back to your feet.">
+
+<CONSTANT K-GET-OUT-FIRST-MSG
+"You would have to get out of the boat first.">
+
+<CONSTANT K-BRAND-MSG
+"It's not your brand, but it's pleasant nonetheless.">
+
+<CONSTANT K-SMOULDERS-MSG
+"smoulders for a few seconds, then goes out.">
+
+<CONSTANT K-OUTRAGED-CROWD-MSG
+"The crowd is outraged that you would try to rob the ailing girl, and
+they beat you about the head and shoulders with their shopping bags.">
+
+<CONSTANT K-GOOD-HEALTH-MSG
+" He looks suprised that you didn't try to haggle with him,
+says, \"Thank you, guv'nor. Enjoy it in good 'ealth,\"">
+
+<CONSTANT K-TIPSY-MSG
+"You start to drink the wine and get a little tipsy. But even in your
+altered state of consciousness you soon realize you'll never be able
+to drink all of it.">
+
+<CONSTANT K-BULLET-MSG
+"The bullet knocks out the bung, which">
+
+<CONSTANT K-CANT-WAIT-MSG
+"can't wait for that.">
+
+<CONSTANT K-ENOUGH-ROOM-MSG
+"There isn't enough room in the cab to do that.">
+
+<CONSTANT K-HOLMES-DISTRACTION-MSG
+"Holmes ignores the distraction and continues staring at the phial.">
+
+<CONSTANT K-WILD-RIDE-MSG
+"After a wild ride through the streets of London, the cab finally careens
+to a halt and the cabbie says brightly, \"Here we are!\"">
+
+
+"NAMES FOR TH-EVENT OBJECT"
+
+; "This table consists of quads.  The first element is the table of possible
+   synonyms for a use of this; the second is adjectives.  The adjective table
+   may be null.  The first word in the synonym table identifies the case we're
+   interested in.  The third element is the string to use as the desc.  If
+   it's null, use the first word of the name instead.  The fourth element
+   specifies the setting of FL-NOARTC, FL-ALIVE, FL-PERSON, and FL-VOWEL."
+
+<CONSTANT EN-NOARTC 1>
+<CONSTANT EN-ALIVE 2>
+<CONSTANT EN-PERSON 4>
+<CONSTANT EN-VOWEL 8>
+
+<CONSTANT EN-ENTLEN 4>
+
+<CONSTANT TH-EVENT-NAMES
+  <PLTABLE <PLTABLE <VOC "THEFT" NOUN>
+		    <VOC "CHASE" NOUN>>	; "TH-THEFT"
+	   <PLTABLE <VOC "MERRY" ADJ>>
+	   <>
+	   0
+	   <PLTABLE <VOC "JUBILEE" NOUN>
+		    <VOC "CELEBRATION" NOUN>
+		    <VOC "PARADE" NOUN>>	; "TH-JUBILEE"
+	   <>
+	   "Jubilee"
+	   0
+	   <PLTABLE <VOC "HENRY" NOUN>
+		    <VOC "IV" NOUN>>	; "TH-HENRY-IV"
+	   <PLTABLE <VOC "HENRY" ADJ>>
+	   "Henry IV"
+	   0
+	   <PLTABLE <VOC "WELLINGTON" NOUN>
+		    <VOC "DUKE" NOUN>>	; "TH-DUKE-OF-WELLINGTON"
+	   <PLTABLE <VOC "IRON" ADJ>>
+	   "Duke of Wellington"
+	   0
+	   <PLTABLE <VOC "TOBY" NOUN>
+		    <VOC "HOUND" NOUN>
+		    <VOC "BLOODHOUND" NOUN>
+		    <VOC "DOG" NOUN>>	; "TH-TOBY"
+	   <>
+	   "Toby"
+	   0
+	   <PLTABLE <VOC "MYCROFT" NOUN> <VOC "HOLMES" NOUN>
+		    <VOC "BROTHER" NOUN>>	; "CH-MYCROFT-HOLMES"
+	   <PLTABLE <VOC "MYCROFT" ADJ>>
+	   "Mycroft Holmes"
+	   <+ ,EN-NOARTC ,EN-ALIVE ,EN-PERSON>
+	   <PLTABLE <VOC "PASSWORD" NOUN>
+		    <VOC "SWORDFISH" NOUN>
+		    <VOC "GIN" NOUN>
+		    <VOC "PARR" NOUN>
+		    <VOC "CLEVES" NOUN>
+		    <VOC "ARAGON" NOUN>
+		    <VOC "HOWARD" NOUN>
+		    <VOC "SEYMOUR" NOUN>
+		    <VOC "BOLEYN" NOUN>>	;"TH-PASSWORD-OBJ"
+	   <>
+	   <>
+	   0
+	   <PLTABLE <VOC "AGRA" NOUN> <VOC "TREASURE" NOUN>>
+	   	;"TH-AGRA-TREASURE-OBJ"
+	   <PLTABLE <VOC "AGRA" ADJ>>
+	   "Agra treasure"
+	   ,EN-VOWEL
+	   <PLTABLE <VOC "KIDNAPPING" NOUN> <VOC "ABDUCTION" NOUN>
+		    <VOC "ATTACK" NOUN>>	; "TH-KIDNAPPING-OBJ"
+	   <PLTABLE <VOC "HOLMES'" ADJ> <VOC "HOLMES'S" ADJ>
+		    <VOC "SHERLOCK" ADJ>>
+	   <>
+	   0
+	   <PLTABLE <VOC "LESTRADE" NOUN>>	; "CH-LESTRADE"
+	   <PLTABLE <VOC "INSPECTOR" ADJ>>
+	   "Lestrade"
+	   <+ ,EN-NOARTC ,EN-ALIVE ,EN-PERSON>
+	   >>
+
+<GLOBAL ALLOW-IN-TOWER <>>	; "Allow into tower w/o password"
+<GLOBAL PASSWORD-ID 0>		; "FORMERLY AUX1 PROPERTY OF CH-MYCROFT-HOLMES"
+<GLOBAL MYCROFT-STATE 3>	; "FL-LOCKED FLAG of MYCROFT"
+
+; "1 BIT MEANS LOCKED, 2 MEANS ASLEEP"
+<CONSTANT MYCROFT-LOCKED 1>
+<CONSTANT MYCROFT-ASLEEP 2>
+<CONSTANT MYCROFT-SEEN 4>
+
+<DEFMAC SET-MYCROFT-STATE (OPER "TUPLE" FLAG)
+  <COND (<==? .OPER SET>
+	 <FORM SETG MYCROFT-STATE <FORM ORB ',MYCROFT-STATE <ORB !.FLAG>>>)
+	(T
+	 <FORM SETG MYCROFT-STATE
+	       <FORM ANDB ',MYCROFT-STATE <XORB <ORB !.FLAG> -1>>>)>>
+
+; "Syntax structure"
+<DEFMAC P-SONUMS ('SYNTAX)
+  <FORM LSH <FORM GETB .SYNTAX 0> -6>>
+
+<CONSTANT K-P-SLEN-0 2>
+<CONSTANT K-P-SLEN-1 4>
+<CONSTANT K-P-SLEN-2 7>
+
+<CONSTANT K-P-SPREP1 0>
+<CONSTANT K-P-SPREP2 4>
+
+<CONSTANT K-P-SFWIM1 2>
+<CONSTANT K-P-SLOC1 3>
+<CONSTANT K-P-SFWIM2 5>
+<CONSTANT K-P-SLOC2 6>
+<CONSTANT K-P-SACTION 1>
+
+;<CONSTANT K-P-SBITS    0>
+;<CONSTANT K-P-SPREP1   1>
+;<CONSTANT K-P-SPREP2   2>
+;<CONSTANT K-P-SFWIM1   3>
+;<CONSTANT K-P-SONUMS   3>
+;<CONSTANT K-P-SFWIM2   4>
+;<CONSTANT K-P-SLOC1    5>
+;<CONSTANT K-P-SLOC2    6>
+;<CONSTANT K-P-SACTION  7>
+;<CONSTANT K-P-SYNLEN   8>
+
+; "time/date display control - used by rt-clk-nti-msg routines"
+
+<CONSTANT K-NTI-SS 1>		; "disp sec - hh:mm:SS" 
+<CONSTANT K-NTI-MM 2>		; "disp min - hh:MM:ss"
+<CONSTANT K-NTI-HH 4>		; "disp hrs - HH:mm:ss"
+<CONSTANT K-NTI-MT 8>		; "disp 24hr time instead of 12hr am/pm"
+<CONSTANT K-NTI-SM 16>		; "disp AM/PM instead of a.m./p.m."
+
+; "time/date display control - used by rt-clk-ndt-msg"
+
+<CONSTANT K-NDT-YY 1>		; "disp yrs - mm/dd/YY"
+<CONSTANT K-NDT-DD 2>		; "disp day - mm/DD/yy"
+<CONSTANT K-NDT-MM 4>		; "disp mon - MM/dd/YY"
+
+; "time/date display control - used by rt-clk-wdt-msg"
+
+<CONSTANT K-WDT-YY  1>		; "disp yrs - month, dd YYYY"
+<CONSTANT K-WDT-DD  2>		; "disp day - month, DD yyyy"
+<CONSTANT K-WDT-MM  4>		; "disp mon - MONTH, dd yyyy"
+<CONSTANT K-WDT-DS  8>		; "disp day suffix (DDst, DDnd, DDrd, DDth)"
+<CONSTANT K-WDT-SN 16>		; "disp short month name"
+<CONSTANT K-WDT-EN 32>		; "disp equal month name"
+
+; "time/date display control - used by rt-clk-dow-msg"
+
+<CONSTANT K-DOW-DW 1>		; "disp dow"
+<CONSTANT K-DOW-SN 2>		; "disp short dow name"
+<CONSTANT K-DOW-EN 4>		; "disp equal dow name"
+
+<CONSTANT FIND-NO-LOCS <PLTABLE TH-PHIAL TH-SYRINGE TH-ASH>>
+
+; "Stuff for calls to SDESC-type routines"
+<CONSTANT K-DESC-ANY 1>		; "any foo"
+<CONSTANT K-DESC-THE 2>		; "the/your/some foo"
+<CONSTANT K-DESC-A 5>		; "a foo"
+
+<GLOBAL KNIFE-COLD? T>	; "Formerly FL-COLD flag"
+			  ;"FL-COLD means the knife is stuck to the mail."
\ No newline at end of file
diff --git a/crowd-ss1 b/crowd-ss1
new file mode 100644
index 0000000..d3cbbb8
Binary files /dev/null and b/crowd-ss1 differ
diff --git a/crowd.was-mid b/crowd.was-mid
new file mode 100644
index 0000000..ec28d32
Binary files /dev/null and b/crowd.was-mid differ
diff --git a/crowd1 b/crowd1
new file mode 100644
index 0000000..51f4112
Binary files /dev/null and b/crowd1 differ
diff --git a/eliza.zabstr b/eliza.zabstr
new file mode 100644
index 0000000..e965ce8
--- /dev/null
+++ b/eliza.zabstr
@@ -0,0 +1,22 @@
+
+<OBJECT TH-BLUE-PILL-BOTTLE (LOC TH-BLACK-BAG) (DESC "blue bottle") (FLAGS
+FL-CONTAINER FL-OPENABLE FL-READABLE FL-TAKEABLE) (SYNONYM BOTTLE BOTTLES LABEL
+) (ADJECTIVE BLUE) (SIZE 3 MASS 2 CAPACITY 2) (GENERIC RT-GN-BOTTLE) (ACTION
+RT-AC-TH-BLUE-PILL-BOTTLE)> 
+<OBJECT TH-BROWN-PILL-BOTTLE (LOC TH-BLACK-BAG) (DESC "brown bottle") (FLAGS
+FL-CONTAINER FL-OPENABLE FL-READABLE FL-TAKEABLE) (SYNONYM BOTTLE BOTTLES LABEL
+) (ADJECTIVE BROWN) (SIZE 3 MASS 2 CAPACITY 2) (GENERIC RT-GN-BOTTLE) (ACTION
+RT-AC-TH-BROWN-PILL-BOTTLE)> 
+<OBJECT TH-ORANGE-PILL (LOC TH-BLUE-PILL-BOTTLE) (DESC "orange pill") (FLAGS
+FL-TAKEABLE FL-READABLE FL-FOOD FL-VOWEL) (SYNONYM PILL PILLS) (ADJECTIVE
+ORANGE) (SIZE 1 MASS 1) (GENERIC RT-GN-PILL) (ACTION RT-AC-TH-ORANGE-PILL)> 
+<OBJECT TH-YELLOW-PILL (LOC TH-BROWN-PILL-BOTTLE) (DESC "yellow pill") (FLAGS
+FL-TAKEABLE FL-READABLE FL-FOOD) (SYNONYM PILL PILLS) (ADJECTIVE YELLOW) (SIZE
+1 MASS 1) (GENERIC RT-GN-PILL) (ACTION RT-AC-TH-YELLOW-PILL)> 
+<DEFINE-ROUTINE RT-AC-TH-BLUE-PILL-BOTTLE> 
+<DEFINE-ROUTINE RT-AC-TH-BROWN-PILL-BOTTLE> 
+<DEFINE-ROUTINE RT-AC-TH-ORANGE-PILL> 
+<DEFINE-ROUTINE RT-AC-TH-YELLOW-PILL> 
+<DEFINE-ROUTINE RT-AC-CH-ELIZA-DOOLITTLE> 
+<DEFINE-ROUTINE RT-LISTEN-ELIZA> 
+<DEFINE-ROUTINE RT-CURE-ELIZA> 
\ No newline at end of file
diff --git a/eliza.zap b/eliza.zap
new file mode 100644
index 0000000..0db2396
--- /dev/null
+++ b/eliza.zap
@@ -0,0 +1,210 @@
+
+
+	.FUNCT	RT-AC-TH-BLUE-PILL-BOTTLE,CONTEXT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL6
+	PRINTR	"The label on the bottle reads: ""Digitalis leaf. For tachycardia and other accelerated arrhythmias."""
+?CCL6:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	REMOVE	TH-BLUE-PILL-BOTTLE
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-BROWN-PILL-BOTTLE,CONTEXT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL6
+	PRINTR	"The label on the bottle reads: ""Belladonna. For bradycardia and other decelerated arrhythmias."""
+?CCL6:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	REMOVE	TH-BROWN-PILL-BOTTLE
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-ORANGE-PILL,CONTEXT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?EAT \?CCL6
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL6
+	PRINTI	"You swallow the pill. For a few moments everything seems to move much slower."
+	CRLF	
+	REMOVE	GL-PRSO
+	RTRUE	
+?CCL6:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	REMOVE	TH-ORANGE-PILL
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-YELLOW-PILL,CONTEXT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?EAT \?CCL6
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL6
+	PRINTI	"You swallow the pill. For a few moments everything seems to move much faster."
+	CRLF	
+	REMOVE	GL-PRSO
+	RTRUE	
+?CCL6:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	REMOVE	TH-YELLOW-PILL
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-CH-ELIZA-DOOLITTLE,CONTEXT
+	GETP	CH-ELIZA-DOOLITTLE,P?OBJ-NOUN
+	EQUAL?	STACK,W?HEART,W?HEARTBEAT \?CCL3
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	PRINTI	"girl's heart"
+	RTRUE	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL8
+	PRINTR	"You don't have X-ray vision."
+?CCL8:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LISTEN \?CCL12
+	ICALL1	RT-LISTEN-ELIZA
+	RTRUE	
+?CCL12:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL16
+	PRINTI	"girl"
+	RTRUE	
+?CCL16:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL18
+	ICALL2	RT-THIS-IS-IT,CH-ELIZA-DOOLITTLE
+	PRINTR	"The flower girl is lying on the ground in a dead faint. She is very beautiful, but her clothes indicate that she must be poor."
+?CCL18:	EQUAL?	CONTEXT,K-M-WINNER \?CCL20
+	ICALL2	RT-CTHEO-PRINT,CH-ELIZA-DOOLITTLE
+	PRINTR	" is unconscious. She cannot do anything."
+?CCL20:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LISTEN \?PRD26
+	ZERO?	GL-NOW-PRSI? /?CTR23
+?PRD26:	EQUAL?	GL-PRSA,V?USE-ON,V?TOUCH-TO \?PRD29
+	EQUAL?	GL-PRSO,TH-STETHOSCOPE \?PRD29
+	ZERO?	GL-NOW-PRSI? \?CTR23
+?PRD29:	EQUAL?	GL-PRSA,V?DIAGNOSE \?PRD33
+	ZERO?	GL-NOW-PRSI? /?CTR23
+?PRD33:	EQUAL?	GL-PRSA,V?LOOK-THRU \?CCL24
+	EQUAL?	GL-P-PRSA-WORD,W?EXAMINE \?CCL24
+	ZERO?	GL-NOW-PRSI? \?CCL24
+	EQUAL?	GL-PRSI,TH-STETHOSCOPE \?CCL24
+?CTR23:	CALL1	RT-LISTEN-ELIZA
+	RSTACK	
+?CCL24:	EQUAL?	GL-PRSA,V?GIVE,V?FEED \?CCL41
+	CALL2	RT-CURE-ELIZA,GL-PRSO
+	RSTACK	
+?CCL41:	EQUAL?	GL-PRSA,V?TAKE,V?RAISE,V?MOVE \?CCL43
+	EQUAL?	GL-PRSO,TH-ELIZAS-FLOWERS \?CCL46
+	PRINT	K-OUTRAGED-CROWD-MSG
+	CRLF	
+	RTRUE	
+?CCL46:	EQUAL?	GL-PRSO,CH-ELIZA-DOOLITTLE \FALSE
+	PRINTR	"The girl is too sick to be moved."
+?CCL43:	EQUAL?	GL-PRSA,V?RESCUE \?CCL50
+	PRINTR	"A noble thought, worthy of someone who has taken the Hippocratic oath."
+?CCL50:	EQUAL?	GL-PRSA,V?ALARM \?CCL52
+	PRINTR	"Your medical expertise tells you she's not just asleep. It's more serious than that."
+?CCL52:	EQUAL?	GL-PRSA,V?SEARCH \FALSE
+	PRINT	K-OUTRAGED-CROWD-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-LISTEN-ELIZA,?TMP1
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL3
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot hear a thing with "
+	ICALL2	RT-THEO-PRINT,TH-COTTON-BALLS
+	PRINTI	" in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL3:	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL5
+	LOC	CH-PLAYER >?TMP1
+	LOC	CH-ELIZA-DOOLITTLE
+	EQUAL?	?TMP1,STACK /?CND6
+	PRINTR	"You can't reach the girl from where you are."
+?CND6:	ZERO?	CH-ELIZA-DOOLITTLE-AUX1 \?CND8
+	RANDOM	100
+	LESS?	50,STACK /?CCL12
+	SET	'CH-ELIZA-DOOLITTLE-AUX1,1
+	JUMP	?CND8
+?CCL12:	SET	'CH-ELIZA-DOOLITTLE-AUX1,2
+?CND8:	EQUAL?	CH-ELIZA-DOOLITTLE-AUX1,1 \?CCL15
+	ICALL	SOUNDS,S-HEART3,S-START,6,10
+	PRINTR	"Her heartbeat is incredibly fast."
+?CCL15:	EQUAL?	CH-ELIZA-DOOLITTLE-AUX1,2 \FALSE
+	ICALL	SOUNDS,S-HEART1,S-START,6,6
+	PRINTR	"Her heartbeat is incredibly slow."
+?CCL5:	EQUAL?	GL-PRSO,TH-STETHOSCOPE /?CTR18
+	EQUAL?	GL-PRSI,TH-STETHOSCOPE \?CCL19
+?CTR18:	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not wearing "
+	ICALL2	RT-THEO-PRINT,TH-STETHOSCOPE
+	PRINTR	"."
+?CCL19:	PRINTR	"The city noises are too loud for you to make an accurate diagnosis."
+
+
+	.FUNCT	RT-CURE-ELIZA,CURE
+	EQUAL?	CURE,TH-ORANGE-PILL \?CCL3
+	REMOVE	TH-ORANGE-PILL
+	EQUAL?	CH-ELIZA-DOOLITTLE-AUX1,1 \?CCL6
+	SET	'CH-ELIZA-DOOLITTLE-AUX1,3
+	JUMP	?CND4
+?CCL6:	SET	'CH-ELIZA-DOOLITTLE-AUX1,4
+?CND4:	PRINTI	"You give her "
+	ICALL2	RT-THEO-PRINT,CURE
+	PRINTC	46
+	CRLF	
+	CRLF	
+	JUMP	?CND1
+?CCL3:	EQUAL?	CURE,TH-YELLOW-PILL \?CCL8
+	REMOVE	TH-YELLOW-PILL
+	EQUAL?	CH-ELIZA-DOOLITTLE-AUX1,2 \?CCL11
+	SET	'CH-ELIZA-DOOLITTLE-AUX1,3
+	JUMP	?CND9
+?CCL11:	SET	'CH-ELIZA-DOOLITTLE-AUX1,4
+?CND9:	PRINTI	"You give her "
+	ICALL2	RT-THEO-PRINT,CURE
+	PRINTC	46
+	CRLF	
+	CRLF	
+?CND1:	EQUAL?	CH-ELIZA-DOOLITTLE-AUX1,3 \?CCL14
+	MOVE	TH-CARNATION,TH-LAPEL
+	REMOVE	CH-ELIZA-DOOLITTLE
+	FCLEAR	CH-ELIZA-DOOLITTLE,FL-ASLEEP
+	PRINTI	"Nothing happens for a moment, but then her eyelids flutter briefly and she opens her eyes."
+	CRLF	
+	CRLF	
+	PRINTI	"The crowd breaks into applause, and they help her to her feet. When she is standing, she smiles at you shyly and puts a lovely carnation in your lapel as a gesture of thanks."
+	CRLF	
+	CRLF	
+	PRINTI	"Just then, a distinguished-looking gentleman appears on the scene, takes her by the arm, and says, ""Come, Eliza. We mustn't be late for the ball."""
+	CRLF	
+	CRLF	
+	PRINTI	"He escorts her away, but as she leaves, she glances back at you once more with a grateful expression in her lovely eyes."
+	CRLF	
+	GETP	TH-CARNATION,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-CARNATION,P?VALUE,0
+	RTRUE	
+?CCL8:	PRINTR	"That would not do her much good."
+?CCL14:	EQUAL?	CH-ELIZA-DOOLITTLE-AUX1,4 \FALSE
+	FCLEAR	CH-ELIZA-DOOLITTLE,FL-ALIVE
+	PRINTI	"Nothing happens for a moment, but then suddenly her body goes limp. It must have been the wrong pill."
+	CRLF	
+	CRLF	
+	PRINTI	"By this time, the large crowd has gathered the attention of the police. Inspector Lestrade pushes his way through the crowd, sees the dead girl, and says, ""I'm sorry, Doctor Watson. I know you must have tried to save her. I'm afraid you'll have to come along with me to fill out the death certificate."""
+	CRLF	
+	CRLF	
+	PRINTI	"Unfortunately, by the time you finish filling out the forms associated with the girl's death, the news of theft of the Crown Jewels leaks to the press, and all is lost."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+	.ENDI
diff --git a/eliza.zil b/eliza.zil
new file mode 100644
index 0000000..b2ac0c8
--- /dev/null
+++ b/eliza.zil
@@ -0,0 +1,250 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : ELIZA.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   26 Oct 1987  4:07:18  $"
+; "revs : $Revision:   1.34  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<OBJECT TH-BLUE-PILL-BOTTLE
+	(LOC TH-BLACK-BAG)
+	(DESC "blue bottle")
+	(FLAGS FL-CONTAINER FL-OPENABLE FL-READABLE FL-TAKEABLE)
+	(SYNONYM BOTTLE BOTTLES LABEL)
+	(ADJECTIVE BLUE)
+	(SIZE 3 MASS 2 CAPACITY 2)
+	(GENERIC RT-GN-BOTTLE)
+	(ACTION RT-AC-TH-BLUE-PILL-BOTTLE)>
+
+<OBJECT TH-BROWN-PILL-BOTTLE
+	(LOC TH-BLACK-BAG)
+	(DESC "brown bottle")
+	(FLAGS FL-CONTAINER FL-OPENABLE FL-READABLE FL-TAKEABLE)
+	(SYNONYM BOTTLE BOTTLES LABEL)
+	(ADJECTIVE BROWN) 
+	(SIZE 3 MASS 2 CAPACITY 2)
+	(GENERIC RT-GN-BOTTLE)
+	(ACTION RT-AC-TH-BROWN-PILL-BOTTLE)>
+
+<OBJECT TH-ORANGE-PILL
+	(LOC TH-BLUE-PILL-BOTTLE)
+	(DESC "orange pill")
+	(FLAGS FL-TAKEABLE FL-READABLE FL-FOOD FL-VOWEL)
+	(SYNONYM PILL PILLS)
+	(ADJECTIVE ORANGE)
+	(SIZE 1 MASS 1)
+	(GENERIC RT-GN-PILL)
+	(ACTION RT-AC-TH-ORANGE-PILL)>
+
+<OBJECT TH-YELLOW-PILL
+	(LOC TH-BROWN-PILL-BOTTLE)
+	(DESC "yellow pill")
+	(FLAGS FL-TAKEABLE FL-READABLE FL-FOOD)
+	(SYNONYM PILL PILLS)
+	(ADJECTIVE YELLOW)
+	(SIZE 1 MASS 1)
+	(GENERIC RT-GN-PILL)
+	(ACTION RT-AC-TH-YELLOW-PILL)>
+
+<ROUTINE RT-AC-TH-BLUE-PILL-BOTTLE ("OPTIONAL" (CONTEXT<>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-BLUE-PILL-BOTTLE" .CONTEXT>>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? READ EXAMINE LOOK-ON>
+		      <TELL
+"The label on the bottle reads: \"Digitalis leaf. For tachycardia and
+other accelerated arrhythmias.\"" CR>)
+		     (<MC-VERB? SHOOT>
+		      <REMOVE ,TH-BLUE-PILL-BOTTLE>
+		      <TELL CTHEO ,K-SHATTER-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-BROWN-PILL-BOTTLE ("OPTIONAL" (CONTEXT<>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-BROWN-PILL-BOTTLE" .CONTEXT>>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? READ EXAMINE LOOK-ON>
+		      <TELL
+"The label on the bottle reads: \"Belladonna. For bradycardia and
+other decelerated arrhythmias.\"" CR>)
+		     (<MC-VERB? SHOOT>
+		      <REMOVE ,TH-BROWN-PILL-BOTTLE>
+		      <TELL CTHEO ,K-SHATTER-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-ORANGE-PILL ("OPTIONAL" (CONTEXT<>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-ORANGE-PILL" .CONTEXT>>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-VERB? EAT>
+			   <==? ,GL-WINNER ,CH-PLAYER>>
+		      <TELL "You swallow the pill. For a few moments everything
+seems to move much slower." CR>
+		      <REMOVE ,GL-PRSO>
+		      T)
+		     (<MC-VERB? SHOOT>
+		      <REMOVE ,TH-ORANGE-PILL>
+		      <TELL CTHEO ,K-SHATTER-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-YELLOW-PILL ("OPTIONAL" (CONTEXT<>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-YELLOW-PILL" .CONTEXT>>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-VERB? EAT>
+			   <==? ,GL-WINNER ,CH-PLAYER>>
+		      <TELL "You swallow the pill. For a few moments everything
+seems to move much faster." CR>
+		      <REMOVE ,GL-PRSO>
+		      T)
+		     (<MC-VERB? SHOOT>
+		      <REMOVE ,TH-YELLOW-PILL>
+		      <TELL CTHEO ,K-SHATTER-MSG CR>)>)>>
+
+<ROUTINE RT-AC-CH-ELIZA-DOOLITTLE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-ELIZA-DOOLITTLE" .CONTEXT>>
+	<COND (<EQUAL? <GETP ,CH-ELIZA-DOOLITTLE ,P?OBJ-NOUN>
+		       ,W?HEART ,W?HEARTBEAT>
+	       <COND (<==? .CONTEXT ,K-M-SDESC>
+		      <TELL "girl's heart">
+		      <RTRUE>)
+		     (<==? .CONTEXT ,K-M-DESCFCN>
+		      <TELL "You don't have X-ray vision." CR>
+		      <RTRUE>)
+		     (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? LISTEN>
+		      <RT-LISTEN-ELIZA>
+		      <RTRUE>)
+		     (<RT-TOUCH-VERB?>
+		      <RT-IMPOSSIBLE-MSG>
+		      <RTRUE>)>)
+	      (<==? .CONTEXT ,K-M-SDESC>
+	       <TELL "girl">)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <RT-THIS-IS-IT ,CH-ELIZA-DOOLITTLE>
+	       <TELL
+"The flower girl is lying on the ground in a dead faint. She is very
+beautiful, but her clothes indicate that she must be poor." CR>
+	       <RTRUE>)
+	      (<MC-THIS-WINNER?>
+	       <TELL
+CTHE ,CH-ELIZA-DOOLITTLE " is unconscious. She cannot do anything." CR>
+	       <RTRUE>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<OR <AND <MC-VERB? LISTEN>
+			<MC-THIS-PRSO?>>
+		   <AND <MC-VERB? USE-ON TOUCH-TO>
+			<MC-PRSO? ,TH-STETHOSCOPE>
+			<MC-THIS-PRSI?>>
+		   <AND <MC-VERB? DIAGNOSE>
+			<MC-THIS-PRSO?>>
+		   <AND <MC-VERB? LOOK-THRU>
+			<EQUAL? ,GL-P-PRSA-WORD ,W?EXAMINE>
+			<MC-THIS-PRSO?>
+			<MC-PRSI? ,TH-STETHOSCOPE>>>
+	       <RT-LISTEN-ELIZA>)
+	      (<MC-VERB? GIVE FEED>
+	       <RT-CURE-ELIZA ,GL-PRSO>)
+	      (<MC-VERB? TAKE RAISE MOVE>
+	       <COND (<MC-PRSO? ,TH-ELIZAS-FLOWERS>
+		      <TELL ,K-OUTRAGED-CROWD-MSG CR>
+		      <RTRUE>)
+		     (<MC-PRSO? CH-ELIZA-DOOLITTLE>
+		      <TELL "The girl is too sick to be moved." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+		(<MC-VERB? RESCUE>
+		 <TELL
+"A noble thought, worthy of someone who has taken the Hippocratic oath." CR>
+		 <RTRUE>)
+		(<MC-VERB? ALARM>
+		 <TELL
+"Your medical expertise tells you she's not just asleep. It's more serious
+than that." CR>
+		 <RTRUE>)
+		(<MC-VERB? SEARCH>
+		 <TELL ,K-OUTRAGED-CROWD-MSG CR>
+		 <RTRUE>)
+		(T
+		 <RFALSE>)>>
+
+<ROUTINE RT-LISTEN-ELIZA ()
+	<COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+	       <RT-CYOU-MSG>
+	       <TELL
+"cannot hear a thing with " THE ,TH-COTTON-BALLS " in " THE ,TH-EARS "." CR>)
+	      (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+	       <COND (<N==? <LOC ,CH-PLAYER> <LOC ,CH-ELIZA-DOOLITTLE>>
+		      <TELL "You can't reach the girl from where you are."
+			    CR>
+		      <RTRUE>)>
+	       <COND (<ZERO? ,CH-ELIZA-DOOLITTLE-AUX1>
+		      <COND (<MC-PROB 50>
+			     <SETG CH-ELIZA-DOOLITTLE-AUX1 1>)
+			    (T
+			     <SETG CH-ELIZA-DOOLITTLE-AUX1 2>)>)>
+	       <COND (<EQUAL? ,CH-ELIZA-DOOLITTLE-AUX1 1>
+		      <IFSOUND <SOUNDS ,S-HEART3 ,S-START 6 10>>
+		      <TELL "Her heartbeat is incredibly fast." CR>)
+		     (<EQUAL? ,CH-ELIZA-DOOLITTLE-AUX1 2>
+		      <IFSOUND <SOUNDS ,S-HEART1 ,S-START 6 6>>
+		      <TELL "Her heartbeat is incredibly slow." CR>)>)
+	      (<OR <MC-PRSO? ,TH-STETHOSCOPE>
+		   <MC-PRSI? ,TH-STETHOSCOPE>>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "not wearing " THE ,TH-STETHOSCOPE "." CR>)
+	      (T
+	       <TELL 
+"The city noises are too loud for you to make an accurate diagnosis." CR>)>>
+
+<ROUTINE RT-CURE-ELIZA (CURE)
+	<COND (<EQUAL? .CURE ,TH-ORANGE-PILL>
+	       <REMOVE ,TH-ORANGE-PILL>
+	       <COND (<EQUAL? ,CH-ELIZA-DOOLITTLE-AUX1 1>
+		      <SETG CH-ELIZA-DOOLITTLE-AUX1 3>)
+		     (T
+		      <SETG CH-ELIZA-DOOLITTLE-AUX1 4>)>
+	       <TELL "You give her " THE .CURE "." CR CR>)
+	      (<EQUAL? .CURE ,TH-YELLOW-PILL>
+	       <REMOVE ,TH-YELLOW-PILL>
+	       <COND (<EQUAL? ,CH-ELIZA-DOOLITTLE-AUX1 2>
+		      <SETG CH-ELIZA-DOOLITTLE-AUX1 3>)
+		     (T
+		      <SETG CH-ELIZA-DOOLITTLE-AUX1 4>)>
+	       <TELL "You give her " THE .CURE "." CR CR>)
+	      (T
+	       <TELL "That would not do her much good." CR>
+	       <RTRUE>)>
+	<COND (<EQUAL? ,CH-ELIZA-DOOLITTLE-AUX1 3>
+	       <MOVE ,TH-CARNATION ,TH-LAPEL>
+	       <REMOVE ,CH-ELIZA-DOOLITTLE>
+	       <MC-UNMAKE ,CH-ELIZA-DOOLITTLE ,FL-ASLEEP>
+	       <TELL
+"Nothing happens for a moment, but then her eyelids flutter briefly and
+she opens her eyes." CR CR
+
+"The crowd breaks into applause, and they help her to her feet. When she
+is standing, she smiles at you shyly and puts a lovely carnation in your
+lapel as a gesture of thanks." CR CR
+
+"Just then, a distinguished-looking gentleman appears on the scene, takes
+her by the arm, and says, \"Come, Eliza. We mustn't be late for the
+ball.\"" CR CR
+
+"He escorts her away, but as she leaves, she glances back at you once
+more with a grateful expression in her lovely eyes." CR>
+	       <RT-UPDATE-SCORE <GETP ,TH-CARNATION ,P?VALUE>>
+	       <PUTP ,TH-CARNATION ,P?VALUE 0>
+	       <RTRUE>)
+	      (<EQUAL? ,CH-ELIZA-DOOLITTLE-AUX1 4>
+	       <MC-UNMAKE ,CH-ELIZA-DOOLITTLE ,FL-ALIVE>
+	       <TELL
+"Nothing happens for a moment, but then suddenly her body goes limp. It
+must have been the wrong pill." CR CR
+
+"By this time, the large crowd has gathered the attention of the
+police. Inspector Lestrade pushes his way through the crowd, sees the
+dead girl, and says, \"I'm sorry, Doctor Watson. I know you must have
+tried to save her. I'm afraid you'll have to come along with me to fill
+out the death certificate.\"" CR CR
+
+"Unfortunately, by the time you finish filling out the forms associated
+with the girl's death, the news of theft of the Crown Jewels leaks to the
+press, and all is lost." CR CR>
+	       <RT-QSR>)>>
+
diff --git a/fan.was-mid b/fan.was-mid
new file mode 100644
index 0000000..fc72e2b
Binary files /dev/null and b/fan.was-mid differ
diff --git a/fanfare.bin b/fanfare.bin
new file mode 100644
index 0000000..fa24c3f
Binary files /dev/null and b/fanfare.bin differ
diff --git a/gamesound.chart b/gamesound.chart
new file mode 100644
index 0000000..1d57eb7
--- /dev/null
+++ b/gamesound.chart
@@ -0,0 +1,28 @@
+-date-  -rel-	-size-	-pre-	-obj-	-glo-	-voc-
+12/23     1	182622	30979	314	240	1194
+12/23     2	189426	30979	314	240	1194
+12/24     3	189410	30977	314	240	1194
+ 1/07     3	189410	30977	314	240	1194
+ 1/08     4	189402	30977	314	240	1194
+ 1/11     5	189402	30977	314	240	1194
+ 1/12     6	189522	30977	314	240	1194
+ 1/12     7	189554	30977	314	240	1194
+ 1/12     8	189606	30977	314	240	1194
+ 1/13     9	189614	30977	314	240	1194
+ 1/15     10	190390	30983	314	240	1194
+ 1/18     11	190390	30983	314	240	1194
+ 1/18     12	190402	30983	314	240	1194
+ 1/18     13	190410	30983	314	240	1194
+ 1/18     14	190410	30983	314	240	1194
+ 1/19     15	190414	30983	314	240	1194
+ 1/19     16	190478	30983	314	240	1194
+ 1/19     17	190502	30983	314	240	1194
+ 1/19     18	190474	30977	314	240	1194
+ 1/20     19	190378	30977	314	240	1194
+ 1/20     20	190362	30977	314	240	1194
+ 1/22     21	190362	30977	314	240	1194
+ 1/23     22	190366	30977	314	240	1194
+ 1/26     23	190174	30977	314	240	1194
+ 1/26     24	190138	30973	314	240	1194
+ 1/26     25	190130	30973	314	240	1194
+ 1/27     26	190178	30973	314	240	1194
diff --git a/gamesound.errors b/gamesound.errors
new file mode 100644
index 0000000..85f35b0
--- /dev/null
+++ b/gamesound.errors
@@ -0,0 +1,36 @@
+Assembling GAMESOUND.ZAP.26 on Wednesday, January 27, 1988 15:52:06
+Release: 26
+
+    64	Inserting GAMESOUNDFREQ.ZAP.1	   (620 bytes)
+   684	Inserting GAMESOUNDDAT.ZAP.26	 (30289 bytes)
+ 30973	Inserting SCHED.ZAP.140	  (1253 bytes)
+ 32226	Inserting BOOT.ZAP.159	  (2610 bytes)
+ 34836	Inserting PARSER.ZAP.184	  (9985 bytes)
+ 44821	Inserting GAMESOUNDPUR.ZAP.26	  (3202 bytes)
+ 48023	Inserting OTHER-MISC.ZAP.138	  (4317 bytes)
+ 52340	Inserting DEBUG.ZAP.147	    (58 bytes)
+ 52398	Inserting HINTS.ZAP.140	  (1650 bytes)
+ 54048	Inserting VERBS.ZAP.84	 (18296 bytes)
+ 72344	Inserting PEOPLE.ZAP.71	 (15680 bytes)
+ 88024	Inserting GENERIC.ZAP.120	   (871 bytes)
+ 88895	Inserting PLACES3.ZAP.137	 (14899 bytes)
+103794	Inserting PLACES2.ZAP.129	  (8415 bytes)
+112209	Inserting THINGS2.ZAP.145	 (17725 bytes)
+129934	Inserting THINGS1.ZAP.125	  (1601 bytes)
+131535	Inserting CAB.ZAP.142	  (3875 bytes)
+135410	Inserting TOWER.ZAP.125	  (2311 bytes)
+137721	Inserting SCOPE.ZAP.122	  (1533 bytes)
+139254	Inserting ELIZA.ZAP.124	  (1801 bytes)
+141055	Inserting CHARLES.ZAP.131	  (5059 bytes)
+146114	Inserting BANK.ZAP.128	  (7526 bytes)
+153640	Inserting PUZZLES.ZAP.133	 (14468 bytes)
+168108	Inserting LOCALS.ZAP.65	  (3365 bytes)
+171473	Inserting GAMESOUNDSTR.ZAP.26	 (18705 bytes)
+314 objects.
+240 globals.
+1194 word vocabulary.
+
+190178 bytes (186K).
+ 30973 bytes of preload.
+ 16443 bytes of impure.
+Outputting symbol tables
diff --git a/gamesound.lowcore b/gamesound.lowcore
new file mode 100644
index 0000000..f2cc37e
--- /dev/null
+++ b/gamesound.lowcore
@@ -0,0 +1,2 @@
+
+0 
\ No newline at end of file
diff --git a/gamesound.record b/gamesound.record
new file mode 100644
index 0000000..8c8799e
--- /dev/null
+++ b/gamesound.record
@@ -0,0 +1,1319 @@
+
+Combined ZIL Compiler Ver 2.0 (MIM)
+-----------------------------------
+Input file: PS:<SHERLOCK>GAMESOUND.ZIL.6
+[XZIP instructions]
+
+[Funny globals and constants]
+
+[Object numbers assigned rooms and local globals first]
+
+Loading PS:<SHERLOCK>CONSTANTS.ZIL.66 and compiling it.
+Loading PS:<SHERLOCK>MACROS.ZIL.23 and compiling it.
+Loading PS:<SHERLOCK>SYNTAX.ZIL.42 and compiling it.
+Loading PS:<SHERLOCK>SCHED.ZIL.19 and compiling it.
+Compiling routine: RT-COPY-TIME
+Compiling routine: RT-NORM-TIME
+Compiling routine: RT-DO-CLOCK-SET
+Compiling routine: RT-CLOCK-INC
+Compiling routine: RT-CLOCK-CMP
+Compiling routine: RT-CLOCK-JMP
+Compiling routine: RT-CLK-NTI-MSG
+Compiling routine: RT-CLK-DOW-MSG
+Compiling routine: RT-ALARM-SET?
+Compiling routine: RT-ALARM-SET-REL
+Compiling routine: RT-ALARM-SET-ABS
+Compiling routine: RT-ALARM-CLR
+Compiling routine: RT-ALARM-CHK
+Abstracting PS:<SHERLOCK>SCHED.
+Loading PS:<SHERLOCK>BOOT.ZIL.86 and compiling it.
+Compiling routine: RT-META-IN?
+Compiling routine: RT-SEE-INSIDE?
+Compiling routine: RT-VISIBLE?
+Compiling routine: CLOSED?
+Compiling routine: RT-ACCESSIBLE?
+Compiling routine: RT-DONT-ALL?
+Compiling routine: DPRINT
+Compiling routine: RT-A-PRINT
+Compiling routine: RT-THEO-PRINT
+Compiling routine: RT-CTHEO-PRINT
+Compiling routine: RT-THEI-PRINT
+Compiling routine: RT-CTHEI-PRINT
+Compiling routine: RT-PRINT-SPACES
+Compiling routine: SAY-NUMBER
+Compiling routine: RT-UPDATE-STATUS-LINE
+Compiling routine: RT-REFER-TO-MSG
+Compiling routine: RT-SAY-ROOM-NAME-IF-LIT
+Compiling routine: RT-DESCRIBE-PLACE
+Compiling routine: RT-EXEC-RM-DESCFCN
+Compiling routine: RT-DESCFCN-CONTEXT
+Compiling routine: RT-DESC-ALL
+Compiling routine: RT-GOTO
+Compiling routine: RT-RESET-THEM
+Compiling routine: RT-UPDATE-SCORE
+Compiling routine: RT-UPDATE-MOVES
+Compiling routine: RT-UPDATE-CLOCK
+Compiling routine: RT-MAIN-LOOP
+Compiling routine: RT-TOUCH-VERB?
+Compiling routine: RT-TALK-VERB?
+Compiling routine: RT-AC-CH-PLAYER
+Abstracting PS:<SHERLOCK>BOOT.
+Loading PS:<SHERLOCK>PARSER.ZIL.116 and compiling it.
+Compiling routine: RT-CAPITALIZE
+Compiling routine: RT-WORD-PRINT
+Compiling routine: RT-VERB-PRINT
+Compiling routine: RT-PREP-PRINT
+Compiling routine: RT-CLAUSE-PRINT
+Compiling routine: RT-BUFFER-PRINT
+Compiling routine: RT-DONT-KNOW-WORD-MSG
+Compiling routine: RT-DONT-KNOW-WORD-USE-MSG
+Compiling routine: RT-CANT-SEE-ANY-MSG
+Compiling routine: RT-TH-NOT-HERE-OBJECT
+Compiling routine: RT-FAKE-ORPHAN-MSG
+Compiling routine: RT-TIME-OF-DAY-MSG
+Compiling routine: RT-TIME-OF-DAY
+Compiling routine: RT-SPOKEN-TO-MSG
+Compiling routine: RT-GET-PREP
+Compiling routine: RT-SYNTAX-CHECK
+Compiling routine: RT-CLAUSE
+Compiling routine: RT-GET-WHAT-I-MEAN
+Compiling routine: RT-P-CLEAR
+Compiling routine: RT-PICK-NEXT
+Compiling routine: RT-QCONTEXT-GOOD?
+Compiling routine: RT-FIND-PERSON
+Compiling routine: RT-ANYONE-HERE?
+Compiling routine: RT-MOVE-ALL
+Compiling routine: RT-GOT?
+Compiling routine: RT-HELD?
+Compiling routine: RT-THIS-IS-IT
+Compiling routine: RT-CHANGE-LEXV
+Compiling routine: RT-WT?
+Compiling routine: RT-VERB-DIR-ONLY?
+Compiling routine: RT-STUFF
+Compiling routine: RT-INBUF-ADD
+Compiling routine: RT-ACLAUSE-WIN
+Compiling routine: RT-NCLAUSE-WIN
+Compiling routine: RT-ORPHAN-VERB
+Compiling routine: RT-ORPHAN
+Compiling routine: RT-ORPHAN-MERGE
+Compiling routine: RT-ADJ-CHECK
+Compiling routine: RT-CLAUSE-COPY
+Compiling routine: RT-CLAUSE-ADD
+Compiling routine: RT-PREP-FIND
+Compiling routine: RT-SYNTAX-FOUND
+Compiling routine: RT-BUT-MERGE
+Compiling routine: RT-SNARF-OBJECTS
+Compiling routine: RT-SNARF
+Compiling routine: RT-GET-OBJECT
+Compiling routine: RT-MOBY-FIND
+Compiling routine: RT-MATCH-PSEUDO
+Compiling routine: RT-GLOBAL-CHECK
+Compiling routine: RT-DO-SL
+Compiling routine: RT-SEARCH-LIST
+Compiling routine: RT-THIS-IT?
+Compiling routine: RT-OBJ-FOUND
+Compiling routine: RT-ITAKE
+Compiling routine: RT-ITAKE-CHECK
+Compiling routine: RT-MANY-CHECK
+Compiling routine: RT-IS-LIT?
+Compiling routine: RT-PERFORM
+Compiling routine: RT-SET-GL-PLACE-CUR
+Compiling routine: RT-PARSER
+Compiling routine: RT-WHICH-PRINT
+Compiling routine: RT-FIND-NOT-HERE
+Compiling routine: RT-NOT-HERE-PRINT
+Abstracting PS:<SHERLOCK>PARSER.
+Loading PS:<SHERLOCK>OTHER-MISC.ZIL.54 and compiling it.
+Compiling routine: SET-SIZE-TO-ONE
+Compiling routine: GET-SIZE
+Compiling routine: SET-MASS-TO-ONE
+Compiling routine: GET-MASS
+Compiling routine: GET-CAPACITY
+Compiling routine: SET-CAPACITY-TO-ONE
+Compiling routine: RT-SEE-ANYTHING-IN?
+Compiling routine: RT-CANT-TOUCH-MSG
+Compiling routine: RT-TOTAL-SIZE-IN-OBJ
+Compiling routine: RT-TOTAL-MASS-OF-OBJ
+Compiling routine: RT-TOTAL-COUNT-IN-OBJ
+Compiling routine: RT-OBJ-TOO-LARGE?
+Compiling routine: RT-OBJ-TOO-HEAVY?
+Compiling routine: RT-OBJ-TOO-MANY?
+Compiling routine: RT-REMOVE-ALL
+Compiling routine: RT-MOVE-ALL-BUT-WORN
+Compiling routine: RT-MOVE-NODESC-OBJS
+Compiling routine: RT-FIND-IN?
+Compiling routine: RT-GET-ANY-KEY
+Compiling routine: RT-GET-YES-NO?
+Compiling routine: RT-INIT-SCREEN
+Compiling routine: RT-GAMETITLE-MSG
+Compiling routine: RT-COPYRIGHT-MSG
+Compiling routine: RT-TRADEMARK-MSG
+Compiling routine: RT-ID-MSG
+Compiling routine: RT-VERSION-MSG
+Compiling routine: RT-DESC-PL-CONT-1
+Compiling routine: RT-DESCRIBE-PLACE-CONTENTS
+Compiling routine: RT-RANK-STR
+Compiling routine: RT-NEW-SCORE-MSG
+Compiling routine: RT-PARSE-EVENT?
+Compiling routine: RT-IDENTIFY-EVENT?
+Compiling routine: RT-DESC-EVENT
+Compiling routine: RT-AC-TH-EVENT
+Compiling routine: RT-TO-DO-THING-USE-MSG
+Compiling routine: RT-NOT-IN-SENTENCE-MSG
+Compiling routine: RT-IMPOSSIBLE-MSG
+Compiling routine: RT-NOT-LIKELY-MSG
+Compiling routine: RT-LOOKS-PUZZLED-MSG
+Compiling routine: RT-WINNER-NOT-HOLDING-MSG
+Compiling routine: RT-YOUD-HAVE-TO-MSG
+Compiling routine: RT-WOULD-HAVE-TO-MSG
+Compiling routine: RT-NOBODY-TO-ASK-MSG
+Compiling routine: RT-TALK-TO-SELF-MSG
+Compiling routine: RT-WAY-TO-TALK-MSG
+Compiling routine: RT-I-SUN-UP-DOWN-MSG
+Compiling routine: RT-NO-OTHER?
+Compiling routine: RT-GLOBAL-IN?
+Compiling routine: RT-META-LOC
+Compiling routine: GO
+Compiling routine: RT-NUMBER?
+Compiling routine: V-WAIT-FOR
+Compiling routine: RT-WAIT-TOD-MSG
+Compiling routine: RT-WINDOW
+Compiling routine: HOLMES-COMPLAINS
+Compiling routine: TOO-DARK-TO-GO
+Compiling routine: RT-AC-CH-PLAYER-AUX
+Compiling routine: RT-CHECK-HANDS
+Compiling routine: RT-HANDS-COVERING-EARS
+Loading PS:<SHERLOCK>SOUNDS.ZIL.38 and compiling it.
+Loading PS:<SHERLOCK>DEBUG.ZIL.35 and compiling it.
+Compiling routine: V-VERIFY
+Compiling routine: V-REFRESH
+Loading PS:<SHERLOCK>HINTS.ZIL.52 and compiling it.
+Compiling routine: V-HINTS-NO
+Compiling routine: V-HINT
+Compiling routine: RT-PICK-QUESTION
+Compiling routine: RT-ERASE-CURSOR
+Compiling routine: RT-NEW-CURSOR
+Compiling routine: RT-INVERSE-LINE
+Compiling routine: RT-DISPLAY-HINT
+Compiling routine: RT-PUT-UP-QUESTIONS
+Compiling routine: RT-PUT-UP-CHAPTERS
+Compiling routine: RT-INIT-HINT-SCREEN
+Compiling routine: RT-CENTER-LINE
+Compiling routine: RT-LEFT-LINE
+Compiling routine: RT-RIGHT-LINE
+Abstracting PS:<SHERLOCK>HINTS.
+Loading PS:<SHERLOCK>VERBS.ZIL.127 and compiling it.
+Compiling routine: SOUNDS
+Compiling routine: CHECK-LOOPING
+Compiling routine: RT-S-CAB-ARRIVES
+ ** Note: Atomic argument to routine assumed constant - RT-S-CAB-ARRIVES
+
+Compiling routine: RT-S-CAB-LEAVES
+Compiling routine: RT-S-CAB-GOES
+ ** Note: Atomic argument to routine assumed constant - RT-S-CAB-GOES
+
+Compiling routine: END-FANFARE
+Compiling routine: KILL-SOUNDS
+Compiling routine: V-$SOUND
+Compiling routine: PRE-CALL
+Compiling routine: PRE-DROP
+Compiling routine: PRE-DUMB-EXAMINE
+Compiling routine: PRE-EXAMINE
+Compiling routine: PRE-FEED
+Compiling routine: PRE-GIVE
+Compiling routine: PRE-LISTEN
+Compiling routine: PRE-POCKET
+Compiling routine: PRE-PUT
+Compiling routine: PRE-PUT-ON
+Compiling routine: PRE-SHOW
+Compiling routine: PRE-SHOOT
+Compiling routine: PRE-TAKE
+Compiling routine: PRE-THROW
+Compiling routine: PRE-THROW-OVER
+Compiling routine: PRE-WATCH
+Compiling routine: V-ADJUST
+Compiling routine: V-ALARM
+Compiling routine: V-ARREST
+Compiling routine: V-ASK-ABOUT-1
+Compiling routine: V-ASK-ABOUT
+Compiling routine: V-ASK-FOR-1
+Compiling routine: V-ASK-FOR
+Compiling routine: V-BLOW-INTO
+Compiling routine: V-BOW
+Compiling routine: V-BURN
+Compiling routine: V-BURN-WITH
+Compiling routine: V-BUY
+Compiling routine: V-BUY-FROM
+Compiling routine: V-CALL
+Compiling routine: V-CAST-OFF
+Compiling routine: V-CLEAN
+Compiling routine: V-CLEAN-OFF
+Compiling routine: V-CLIMB-DOWN
+Compiling routine: V-CLIMB-ON
+Compiling routine: V-CLIMB-OVER
+Compiling routine: V-CLIMB-UP
+Compiling routine: V-CLOSE
+Compiling routine: V-COUNT
+Compiling routine: V-COVER
+Compiling routine: V-CROSS
+Compiling routine: V-CUT
+Compiling routine: V-DETONATE
+Compiling routine: V-DIAGNOSE
+Compiling routine: V-DIVE
+Compiling routine: V-DRESS
+Compiling routine: V-DRINK
+Compiling routine: V-DRINK-FROM
+Compiling routine: V-DRIVE
+Compiling routine: V-DROP
+Compiling routine: V-DUMB-EXAMINE
+Compiling routine: V-EAT
+Compiling routine: V-EMPTY
+Compiling routine: V-EMPTY-INTO
+Compiling routine: V-ENTER
+Compiling routine: V-ESCAPE
+Compiling routine: V-EXAMINE
+Compiling routine: V-EXHALE
+Compiling routine: V-EXIT
+Compiling routine: V-FEED
+Compiling routine: V-FEED-SWP
+Compiling routine: V-FILL
+Compiling routine: V-FIND
+Compiling routine: V-FLIP
+Compiling routine: V-FLY
+Compiling routine: V-FOCUS-ON
+Compiling routine: V-FOLD
+Compiling routine: V-FOLLOW
+Compiling routine: V-FOO
+Compiling routine: V-GET-FOR
+Compiling routine: V-GET-FOR-SWP
+Compiling routine: V-GIN
+Compiling routine: V-GIVE
+Compiling routine: V-GIVE-SWP
+Compiling routine: V-GOODBYE
+Compiling routine: V-GUESS
+Compiling routine: V-HAGGLE
+Compiling routine: V-HAUL
+Compiling routine: V-HEAT
+Compiling routine: V-HELLO
+Compiling routine: V-HIDE
+Compiling routine: V-HIT
+Compiling routine: V-HOLD-OVER
+Compiling routine: V-HUSH
+Compiling routine: V-INHALE
+Compiling routine: V-KICK
+Compiling routine: V-KILL
+Compiling routine: V-KISS
+Compiling routine: V-KNOCK
+Compiling routine: V-LEAP
+Compiling routine: V-LIE-DOWN
+Compiling routine: V-LIGHT
+Compiling routine: V-LIGHT-WITH
+Compiling routine: V-LISTEN
+Compiling routine: V-LOCK
+Compiling routine: V-LOOK
+Compiling routine: V-LOOK-BEHIND
+Compiling routine: V-LOOK-DOWN
+Compiling routine: V-LOOK-INSIDE
+Compiling routine: V-LOOK-ON
+Compiling routine: V-LOOK-OUTSIDE
+Compiling routine: V-LOOK-THRU
+Compiling routine: V-LOOK-THRU-SWP
+Compiling routine: V-LOOK-UNDER
+Compiling routine: V-LOOK-UP
+Compiling routine: V-LOOSEN
+Compiling routine: V-LOWER
+Compiling routine: V-LAND
+Compiling routine: RT-LAND-BOAT
+Compiling routine: V-LAMP-OFF
+Compiling routine: V-LAMP-ON
+Compiling routine: V-LAUNCH
+Compiling routine: RT-LAUNCH-BOAT
+Compiling routine: V-MAKE
+Compiling routine: V-ECHO
+Compiling routine: V-MELT
+Compiling routine: V-MOVE
+Compiling routine: V-MUNG
+Compiling routine: V-OPEN
+Compiling routine: V-OPEN-WITH
+Compiling routine: V-PADDLE
+Compiling routine: V-PADDLE-WITH
+Compiling routine: V-PASSWORD
+Compiling routine: V-PAY
+Compiling routine: V-PICK
+Compiling routine: V-PLAY
+Compiling routine: V-PLUG
+Compiling routine: V-POCKET
+Compiling routine: V-POINT
+Compiling routine: V-POINT-AT
+Compiling routine: V-POINT-AT-SWP
+Compiling routine: V-POUR
+Compiling routine: V-POUR-FROM
+Compiling routine: V-PRAY
+Compiling routine: V-PULL
+Compiling routine: V-PUSH
+Compiling routine: V-PUSH-TO
+Compiling routine: V-PUT
+Compiling routine: V-PUT-BEHIND
+Compiling routine: V-PUT-ON
+Compiling routine: V-PUT-UNDER
+Compiling routine: V-QUESTION
+Compiling routine: V-RAISE
+Compiling routine: V-REACH-IN
+Compiling routine: V-READ
+Compiling routine: V-READ-TO
+Compiling routine: V-READ-TO-SWP
+Compiling routine: V-REFUSE
+Compiling routine: V-RELEASE
+Compiling routine: V-REPAIR
+Compiling routine: V-REPLACE
+Compiling routine: V-REPLY
+Compiling routine: V-RESCUE
+Compiling routine: V-RIDE
+Compiling routine: V-RING
+Compiling routine: V-RIP
+Compiling routine: V-ROB
+Compiling routine: V-ROW
+Compiling routine: V-RUB-WITH
+Compiling routine: V-SAY
+Compiling routine: V-SEARCH
+Compiling routine: V-SELL
+Compiling routine: V-SELL-SWP
+Compiling routine: V-SHAKE
+Compiling routine: V-SHINE-AT
+Compiling routine: V-SHINE-AT-SWP
+Compiling routine: V-SHOOT
+Compiling routine: V-SHOOT-SWP
+Compiling routine: V-SHOW
+Compiling routine: V-SHOW-SWP
+Compiling routine: V-SIT
+Compiling routine: V-SMELL
+Compiling routine: V-SMOKE
+Compiling routine: V-SPIN
+Compiling routine: V-STAND
+Compiling routine: V-STAND-ON
+Compiling routine: V-STAND-UNDER
+Compiling routine: V-STEAL
+Compiling routine: V-STRIKE
+Compiling routine: V-SWIM
+Compiling routine: V-SWING
+Compiling routine: V-TAKE
+Compiling routine: V-TAKE-OFF
+Compiling routine: V-TAKE-WITH
+Compiling routine: V-TASTE
+Compiling routine: V-TELL
+Compiling routine: V-TELL-ABOUT
+Compiling routine: V-TELL-WHO
+Compiling routine: V-THANK
+Compiling routine: V-THROUGH
+Compiling routine: V-THROW
+Compiling routine: V-THROW-SWP
+Compiling routine: V-THROW-OVER
+Compiling routine: V-TIE
+Compiling routine: V-TIE-UP
+Compiling routine: V-TIP
+Compiling routine: V-TOUCH
+Compiling routine: V-TOUCH-TO
+Compiling routine: V-TOUCH-TO-SWP
+Compiling routine: V-TRANSLATE
+Compiling routine: V-TUNE-TO
+Compiling routine: V-TURN
+Compiling routine: V-TURN-DOWN
+Compiling routine: V-TURN-TO
+Compiling routine: V-TURN-UP
+Compiling routine: V-UNDRESS
+Compiling routine: V-UNFOLD
+Compiling routine: V-UNLOCK
+Compiling routine: V-UNPLUG
+Compiling routine: V-UNSCREW-FROM
+Compiling routine: V-UNTIE
+Compiling routine: V-USE
+Compiling routine: V-USE-ON
+Compiling routine: V-WAIT
+Compiling routine: V-WALK
+Compiling routine: V-WALK-AROUND
+Compiling routine: V-WALK-TO
+Compiling routine: V-WATCH
+Compiling routine: V-WAVE-AT
+Compiling routine: V-WEAR
+Compiling routine: V-WEDGE
+Compiling routine: V-WEIGH
+Compiling routine: V-WHAT
+Compiling routine: V-WHERE
+Compiling routine: V-WHO
+Compiling routine: V-WIND
+Compiling routine: V-WRAP-AROUND
+Compiling routine: V-WRAP-AROUND-SWP
+Compiling routine: V-YELL
+Compiling routine: RT-CANT-SEE-MUCH-MSG
+Compiling routine: RT-NO-MONEY-MSG
+Compiling routine: RT-IN-VEHICLE-MSG
+Compiling routine: RT-DRIVE-WALK-MSG?
+Compiling routine: RT-ALREADY-IN-ROOM-MSG
+Compiling routine: RT-NOT-IN-ROOM-MSG
+Compiling routine: RT-OBJECT-IS-LOCKED-MSG
+Compiling routine: RT-NOTHING-INTERESTING-MSG
+Compiling routine: RT-WASTE-OF-TIME-MSG
+Compiling routine: RT-FOG-MSG
+Compiling routine: RT-ITS-RIGHT-HERE-MSG
+Compiling routine: RT-WHO-WHAT-WHERE-MSG
+Compiling routine: RT-HI-BYE-MSG
+Compiling routine: RT-NO-RESPONSE-MSG
+Compiling routine: RT-TAKE-OFF-PRSO-FIRST-MSG
+Compiling routine: RT-SAY-DROPPED-MSG
+Compiling routine: RT-FOOLISH-TO-TALK-MSG
+Compiling routine: RT-YOU-MSG
+Compiling routine: RT-CYOU-MSG
+Compiling routine: RT-ITS-ALREADY-MSG
+Compiling routine: RT-YOURE-NOT-A-MSG
+Compiling routine: RT-NO-POINT-MSG
+Compiling routine: RT-IS-ARE-MSG
+Compiling routine: RT-ISNT-ARENT-MSG
+Compiling routine: RT-S-NOS-MSG
+Compiling routine: RT-ES-NOES-MSG
+Compiling routine: RT-DONT-DOESNT-MSG
+Compiling routine: RT-SAY-ITS-MSG
+Compiling routine: RT-SAY-HIM-HER-THEM-IT-MSG
+Compiling routine: RT-YOUR-MSG
+Compiling routine: RT-ITS-CLOSED-MSG
+Compiling routine: RT-WHY-SHOOT-MSG
+Compiling routine: RT-HOW-READ-MSG
+Compiling routine: RT-ALREADY-HAVE-PRSO-MSG
+Compiling routine: RT-CANT-OPEN-PRSO-MSG
+Compiling routine: RT-CANT-CLOSE-THAT-MSG
+Compiling routine: RT-NO-GOOD-SURFACE-MSG
+Compiling routine: RT-LANDS-AT-YOUR-FEET-MSG
+Compiling routine: RT-OPEN-CLOSED-MSG
+Compiling routine: RT-YOU-OPEN-MSG
+Compiling routine: RT-YOU-CLOSE-MSG
+Compiling routine: RT-IN-ON-MSG
+Compiling routine: RT-CIN-CON-MSG
+Compiling routine: RT-OUT-OFF-MSG
+Compiling routine: RT-CANT-LOCK-MSG
+Compiling routine: RT-THING-WONT-LOCK-MSG
+Compiling routine: RT-DONT-HAVE-MSG
+Compiling routine: RT-ROOM-IN-ON-MSG?
+Compiling routine: RT-IMPOSSIBLE-PUT-IN-ON-MSG
+Compiling routine: RT-CANT-PUT-IN-ON-MSG
+Compiling routine: RT-CHECK-MOVE-MSG?
+Compiling routine: RT-EMPTY-PRSO-MSG
+Compiling routine: RT-IDROP-MSG
+Compiling routine: RT-PRINT-CONTENTS-1
+Compiling routine: RT-PRINT-CONTENTS-2
+Compiling routine: RT-PRINT-CONTENTS-3
+Compiling routine: RT-DO-WALK
+Compiling routine: RT-WHO-SAYS?
+Compiling routine: RT-TRANSCRIPT
+Compiling routine: RT-QSR
+Compiling routine: V-YES
+Compiling routine: V-NO
+Compiling routine: V-MAYBE
+Compiling routine: V-DESC-LEVEL
+Compiling routine: V-QUIT
+Compiling routine: V-RESTART
+Compiling routine: V-SAVE
+Compiling routine: V-RESTORE
+Compiling routine: V-SCRIPT
+Compiling routine: V-VERSION
+Compiling routine: V-INVENTORY
+Compiling routine: V-NOTIFY
+Compiling routine: V-SCORE
+Compiling routine: V-UNDO
+Loading PS:<SHERLOCK>PEOPLE.ZIL.83 and compiling it.
+Compiling routine: RT-LIBRARIAN-SAYS-MSG
+Compiling routine: RT-TELL-ABOUT?
+Compiling routine: RT-WHO-WHAT-FAIL?
+Compiling routine: RT-NO-CONDITION-MSG
+Compiling routine: RT-AC-CH-HOLMES
+Compiling routine: RT-HOLMES-SAYS-AGRA-MSG
+Compiling routine: RT-HOLMES-DESCRIBE-MSG?
+Compiling routine: RT-AC-CH-MATCH-SNIFFING-DOG
+Compiling routine: RT-AC-CH-TUSSAUDS-GUARD
+Compiling routine: RT-PIGEON-PANIC
+Compiling routine: RT-PIGEON-FLY
+Compiling routine: RT-AC-CH-TRAINED-PIGEON
+Compiling routine: RT-AC-CH-SHERMAN
+Compiling routine: RT-AC-CH-PRIME-MINISTER
+Compiling routine: RT-AC-CH-AKBAR
+Compiling routine: RT-AC-CH-MORIARTY
+Compiling routine: RT-AC-CH-HUDSON
+Compiling routine: RT-AC-CH-DENKEEPER
+Compiling routine: RT-AC-CH-LIBRARIAN
+Compiling routine: RT-AC-CH-NANNIES
+Compiling routine: RT-AC-CH-HOUSEWIVES
+Compiling routine: RT-AC-CH-PALACE-GUARD
+ ** Note: Atomic argument to routine assumed constant - END-FANFARE
+
+Compiling routine: RT-AC-CH-URCHINS
+Compiling routine: RT-AC-CH-MEMBERS
+Abstracting PS:<SHERLOCK>PEOPLE.
+Loading PS:<SHERLOCK>GENERIC.ZIL.17 and compiling it.
+Compiling routine: RT-GN-PAPER
+Compiling routine: RT-GN-GEM
+Compiling routine: RT-GN-PIGEON
+Compiling routine: RT-GN-OAR
+Compiling routine: RT-GN-BOX
+Compiling routine: RT-GN-DOOR
+Compiling routine: RT-GN-BOTTLE
+Compiling routine: RT-GN-PILL
+Compiling routine: RT-GN-TH-CLOTHES
+Compiling routine: RT-GN-BODY
+Compiling routine: RT-GN-INTNUM
+Compiling routine: RT-GN-ETHERIUM
+Compiling routine: RT-GN-TOWER
+Abstracting PS:<SHERLOCK>GENERIC.
+Loading PS:<SHERLOCK>PLACES3.ZIL.83 and compiling it.
+Compiling routine: RT-AC-RM-221B-BAKER-ST
+Compiling routine: RT-AC-RM-ENTRY-HALL
+Compiling routine: RT-AC-RM-PARLOUR
+Compiling routine: RT-AC-RM-VESTIBULE
+Compiling routine: RT-AC-RM-HOLMES-STUDY
+Compiling routine: RT-AC-RM-HOLMES-BEDROOM
+Compiling routine: RT-AC-RM-YORK-PLACE
+Compiling routine: RT-AC-RM-MARYLEBONE-RD
+Compiling routine: RT-AC-RM-CHAMBER-OF-HORRORS
+Compiling routine: RT-AC-RM-TOTTENHAM-COURT-RD
+Compiling routine: RT-AC-RM-ST-GILES-CIRCUS
+Compiling routine: RT-AC-RM-OXFORD-ST
+Compiling routine: RT-AC-RM-ORCHARD-ST
+Compiling routine: RT-AC-RM-AUDLEY-ST
+Compiling routine: RT-AC-RM-HYDE-PARK-CORNER
+Compiling routine: RT-AC-RM-KENSINGTON-GARDENS
+Compiling routine: RT-AC-RM-TRAFALGAR-SQUARE
+Compiling routine: RT-AC-RM-DIOGENES-CLUB
+Compiling routine: RT-AC-RM-GREAT-RUSSELL-ST
+Compiling routine: RT-AC-RM-BRITISH-MUSEUM
+Compiling routine: RT-AC-RM-GROSVENOR-PLACE
+Compiling routine: RT-AC-RM-VICTORIA-SQUARE
+Compiling routine: RT-AC-RM-BROAD-SANCTUARY
+Compiling routine: RT-AC-RM-PARLIAMENT-SQUARE
+Compiling routine: RT-AC-RM-PARLIAMENT
+Compiling routine: RT-AC-RM-BUCKINGHAM-PALACE-RD
+Compiling routine: RT-AC-RM-QUEENS-GARDENS
+Compiling routine: RT-AC-RM-BIRDCAGE-WALK
+Compiling routine: RT-AC-RM-THE-MALL
+Compiling routine: RT-AC-RM-WHITEHALL
+Compiling routine: RT-AC-RM-SCOTLAND-YARD
+Compiling routine: RT-AC-RM-THE-BLACK-MUSEUM
+Compiling routine: RT-AC-RM-NEW-OXFORD-ST
+Compiling routine: RT-AC-RM-COVENT-GARDEN
+Compiling routine: RT-AC-RM-THE-STRAND
+Compiling routine: RT-AC-RM-FLEET-STREET
+Compiling routine: RT-AC-RM-THE-EMBANKMENT
+Compiling routine: RT-AC-RM-UPPER-THAMES-ST
+Compiling routine: RT-AC-RM-PINCHIN-LANE
+Compiling routine: RT-AC-RM-CHEAPSIDE
+Compiling routine: RT-AC-RM-BANK-OF-ENGLAND
+Compiling routine: RT-AC-RM-BANK-VAULT
+Compiling routine: RT-AC-RM-KING-WILLIAM-ST
+Compiling routine: RT-AC-RM-MONUMENT
+Compiling routine: RT-AC-RM-LOWER-THAMES-ST
+Compiling routine: RT-AC-RM-TOWER-ENTRANCE
+Compiling routine: RT-DF-RM-SOUTH-AISLE
+Compiling routine: RT-DF-RM-JERICHO-PARLOUR
+Compiling routine: RT-DF-RM-JERUSALEM-CHAMBER
+Compiling routine: RT-DF-RM-NORTH-CLOISTER
+Compiling routine: RT-DF-RM-SOUTH-TRANSEPT
+Compiling routine: RT-DF-RM-NORTH-TRANSEPT
+Compiling routine: RT-DF-RM-POETS-CORNER
+Compiling routine: RT-DF-RM-SOUTH-AMBULATORY
+Compiling routine: RT-DF-RM-SANCTUARY
+Compiling routine: RT-DF-RM-NORTH-AMBULATORY
+Compiling routine: RT-DF-RM-CONFESSOR-CHAPEL
+Compiling routine: RT-DF-RM-SOUTH-CHAPEL-AISLE
+Compiling routine: RT-DF-RM-NORTH-CHAPEL-AISLE
+Compiling routine: RT-DF-RM-INNOCENTS-CORNER
+Compiling routine: RT-AC-RM-DRAWBRIDGE
+Compiling routine: RT-DF-RM-BYWARD-TOWER
+Compiling routine: RT-DF-RM-OUTER-WARD
+Compiling routine: RT-DF-RM-BLOODY-TOWER
+Compiling routine: RT-DF-RM-WAKEFIELD-TOWER
+Compiling routine: RT-DF-RM-JEWEL-ROOM
+Compiling routine: RT-DF-RM-DUNGEON
+Compiling routine: RT-DF-RM-TORTURE-ROOM
+Compiling routine: RT-DF-RM-WHITE-TOWER
+Compiling routine: RT-DF-RM-TOWER-GREEN
+Compiling routine: RT-DF-RM-BOWYER-TOWER
+Compiling routine: RT-DF-RM-INSIDE-TRAITORS-GATE
+Compiling routine: RT-DF-RM-OUTSIDE-TRAITORS-GATE
+Abstracting PS:<SHERLOCK>PLACES3.
+Loading PS:<SHERLOCK>PLACES2.ZIL.61 and compiling it.
+Compiling routine: RT-SURGE
+Compiling routine: RT-AC-RM-MADAME-TUSSAUDS
+Compiling routine: RT-AC-RM-MANUSCRIPT-ROOM
+Compiling routine: RT-AC-RM-VICTORIA-STREET
+Compiling routine: RT-AC-RM-CLOCK-TOWER
+Compiling routine: RT-AC-RM-THAMES-ONE
+Compiling routine: RT-AC-RM-THAMES-TWO
+Compiling routine: RT-AC-RM-THAMES-THREE
+Compiling routine: RT-AC-RM-THAMES-FOUR
+Compiling routine: RT-AC-RM-THAMES-FIVE
+Compiling routine: RT-AC-RM-SHERMANS-HOUSE
+Compiling routine: RT-AC-RM-THREADNEEDLE-ST
+Compiling routine: RT-AC-RM-LONDON-BRIDGE
+Compiling routine: RT-AC-RM-SWAN-LANE
+Compiling routine: RT-AC-RM-BAR-OF-GOLD
+Compiling routine: RT-AC-RM-LAIR
+Compiling routine: RT-AC-RM-NAVE
+Compiling routine: RT-AC-RM-EVANGELIST-CHAPEL
+Compiling routine: RT-AC-RM-HENRY-VII-CHAPEL
+Compiling routine: RT-EX-ENTER-BANK-OF-ENGLAND
+Compiling routine: RT-AC-RM-BUCKINGHAM-PALACE
+Compiling routine: RT-EX-RM-ENTER-BUCKINGHAM-PALACE
+Compiling routine: RT-EX-RM-STEER-BOAT
+Compiling routine: RT-EX-RM-LAND-BOAT
+Compiling routine: RT-EX-RM-LAUNCH-BOAT
+Compiling routine: RT-EX-PARLOUR-ENTRY
+Compiling routine: RT-EX-LEAVE-EMBANKMENT
+Abstracting PS:<SHERLOCK>PLACES2.
+Loading PS:<SHERLOCK>PLACES1.ZIL.52 and compiling it.
+Loading PS:<SHERLOCK>THINGS2.ZIL.149 and compiling it.
+Compiling routine: RT-DF-TH-ROOM
+Compiling routine: RT-AC-TH-NOT-HERE-OBJECT
+Compiling routine: RT-AC-TH-INTDIR
+Compiling routine: RT-AC-TH-TIME
+Compiling routine: RT-AC-TH-HANDS
+Compiling routine: RT-AC-TH-WATSONS-HEART
+Compiling routine: RT-AC-TH-EARS
+Compiling routine: RT-AC-TH-HEAD
+Compiling routine: RT-AC-TH-BREATH
+Compiling routine: RT-AC-TH-CLOTHES
+Compiling routine: RT-AC-TH-WATERMARK
+Compiling routine: RT-AC-TH-SESAME
+Compiling routine: RT-AC-TH-RIGHT
+Compiling routine: RT-AC-TH-LEFT
+Compiling routine: RT-AC-TH-BULLET-HOLE
+Compiling routine: RT-AC-TH-GENERIC-BODY
+Compiling routine: RT-AC-TH-POCKET
+Compiling routine: RT-AC-TH-GUN
+Compiling routine: RT-AC-TH-KNIFE
+Compiling routine: RT-AC-TH-MAGNIFYING-GLASS
+Compiling routine: RT-AC-TH-VIOLIN
+Compiling routine: RT-AC-TH-PHIAL
+Compiling routine: RT-HOLMES-HITS
+Compiling routine: RT-AC-TH-GREEN-PAPER
+Compiling routine: RT-AC-TH-WHITE-PAPER
+Compiling routine: RT-AC-TH-BLUE-PAPER
+Compiling routine: RT-AC-TH-ORANGE-PAPER
+Compiling routine: RT-AC-TH-YELLOW-PAPER
+Compiling routine: RT-AC-TH-BROWN-PAPER
+Compiling routine: RT-AC-TH-ELIZABETH-TOMB
+Compiling routine: RT-AC-TH-NEWTON-TOMB
+Compiling routine: PRINT-SDESC
+Compiling routine: RT-AC-TH-HENRY-V-TOMB
+Compiling routine: RT-AC-TH-EDWARD-TOMB
+Compiling routine: RT-AC-TH-POPE-TOMB
+Compiling routine: RT-AC-TH-DICKENS-TOMB
+Compiling routine: RT-AC-TH-CHAUCER-TOMB
+Compiling routine: RT-AC-TH-ANNE-OF-CLEVES-TOMB
+Compiling routine: RT-AC-TH-LITTLE-PRINCES-TOMB
+Compiling routine: RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB
+Compiling routine: RT-AC-TH-HENRY-VII-TOMB
+Compiling routine: RT-AC-TH-PITT-TOMB
+Compiling routine: RT-AC-TH-FIGURES
+Compiling routine: RT-AC-TH-VERE-TOMB
+Compiling routine: RT-AC-TH-LAMP
+Compiling routine: RT-LAMP-SEALED
+Compiling routine: RT-BREAK-LAMP
+Compiling routine: RT-AC-TH-BLACK-BAG
+Compiling routine: RT-AC-TH-CHARLES-STATUE
+Compiling routine: RT-AC-TH-WILLIAM-STATUE
+Compiling routine: RT-AC-TH-WALTER-STATUE
+Compiling routine: RT-AC-TH-ELIZABETH-STATUE
+Compiling routine: RT-AC-TH-THOMAS-STATUE
+Compiling routine: RT-AC-TH-DRAKE-STATUE
+Compiling routine: RT-AC-TH-JOHN-STATUE
+Compiling routine: RT-AC-TH-FAWKES-STATUE
+Compiling routine: RT-AC-TH-NELSON-COLUMN
+Compiling routine: RT-AC-TH-BOAT
+Compiling routine: RT-AC-TH-OAR-1
+Compiling routine: RT-AC-TH-OAR-LOCK
+Compiling routine: RT-AC-TH-CLAPPER
+Compiling routine: RT-AC-TH-COTTON-BALLS
+Compiling routine: RT-AC-TH-BELL
+Compiling routine: RT-AC-TH-STETHOSCOPE
+Compiling routine: RT-AC-TH-WATSONS-HAT
+Compiling routine: RT-AC-TH-ELIZAS-FLOWERS
+Compiling routine: RT-AC-TH-CARNATION
+Compiling routine: RT-AC-TH-EMERALD
+Compiling routine: RT-AC-TH-SAPPHIRE
+Compiling routine: RT-AC-TH-OPAL
+Compiling routine: RT-AC-TH-RUBY
+Compiling routine: RT-AC-TH-TOPAZ
+Compiling routine: RT-AC-TH-CRAYON
+Compiling routine: RT-AC-TH-WATSONS-COAT
+Compiling routine: RT-AC-TH-LAPEL
+Compiling routine: RT-AC-TH-CLUMP-OF-MOSS
+Compiling routine: RT-AC-TH-BLIGH-BOAT
+Compiling routine: RT-AC-TH-ANCHOR
+Compiling routine: RT-AC-TH-NELSON-STATUE
+Compiling routine: RT-AC-TH-CROWN-JEWELS
+Compiling routine: RT-AC-TH-ETHERIUM-AMPOULE
+Compiling routine: RT-AC-TH-BROKEN-AMPOULE
+Compiling routine: RT-AC-TH-ETHERIUM-GAS
+Compiling routine: RT-AC-TH-LAB-EQUIPMENT
+Compiling routine: RT-AC-TH-ROPE
+Compiling routine: RT-AC-TH-LIQUID
+Compiling routine: RT-AC-TH-SYRINGE
+Compiling routine: RT-AC-TH-MOROCCO-CASE
+Compiling routine: RT-AC-TH-DEAD-PIGEON
+Compiling routine: RT-AC-TH-PIGEONS
+Compiling routine: RT-SHOOT-BIRDS
+Compiling routine: RT-AC-TH-RED-GLASS
+Compiling routine: RT-AC-TH-BED
+Compiling routine: RT-AC-TH-MATCHBOOK
+Compiling routine: RT-AC-TH-PICTURES
+Compiling routine: RT-AC-TH-CLUE-BOOK
+Compiling routine: RT-AC-TH-BOOK-PAGE
+Compiling routine: RT-READ-CLUE-BOOK
+Compiling routine: RT-AC-TH-BANK-OF-CANDLES
+Compiling routine: RT-AC-TH-PRAMS
+Compiling routine: RT-AC-TH-PARK-FLOWERS
+Compiling routine: RT-AC-TH-ARCH
+Compiling routine: RT-AC-TH-SHAFT
+Compiling routine: RT-AC-TH-FIREPLACE
+Compiling routine: RT-AC-TH-GAS-LIGHT
+Compiling routine: RT-AC-TH-CHARIOT
+Compiling routine: RT-AC-TH-JEWEL-CASE
+Compiling routine: RT-AC-TH-ELIZAS-MOUTH
+Compiling routine: RT-AC-TH-RUBBINGS
+Compiling routine: RT-AC-TH-SOFA
+Compiling routine: RT-AC-TH-MARQUEES
+Compiling routine: RT-AC-TH-SUPPORTS
+Compiling routine: RT-AC-TH-ASH
+Compiling routine: RT-AC-TH-CIGARETTE
+Compiling routine: RT-AC-TH-TURBAN
+Compiling routine: RT-AC-TH-ANCHOR-CHAIN
+Compiling routine: RT-SAY-LOWER-ANCHOR
+Compiling routine: RT-SAY-RAISE-ANCHOR
+Compiling routine: RT-AC-TH-WAX-OBJECT-1
+Compiling routine: RT-AC-TH-LIBRARY-OBJ
+Compiling routine: RT-AC-TH-RAILING
+Compiling routine: RT-AC-TH-OPIUM-GAS
+Compiling routine: RT-AC-TH-PRODUCE
+Compiling routine: RT-AC-TH-TRINKETS
+Compiling routine: RT-AC-TH-GUARDS-KEYS
+Compiling routine: RT-AC-TH-NELSON-EYE
+Compiling routine: RT-AC-TH-PANELLING
+Compiling routine: RT-AC-TH-INSTRUMENTS
+Compiling routine: RT-AC-TH-PLAYER-BODY
+Abstracting PS:<SHERLOCK>THINGS2.
+Loading PS:<SHERLOCK>THINGS1.ZIL.91 and compiling it.
+Compiling routine: RT-IDENTIFY-FLOOR?
+Compiling routine: TELL-THE-FLOOR
+Compiling routine: TELL-THE-GROUND
+Compiling routine: RT-AC-TH-FLOOR-ETC
+Compiling routine: RT-AC-TH-WALL
+Compiling routine: RT-AC-TH-CROWDS
+Abstracting PS:<SHERLOCK>THINGS1.
+Loading PS:<SHERLOCK>CAB.ZIL.68 and compiling it.
+Compiling routine: RT-AC-CH-HANSOM-CABBIE
+Compiling routine: RT-AC-CH-GROWLER-CABBIE
+Compiling routine: RT-GET-ROOM-ID
+Compiling routine: RT-CAB-DIST
+Compiling routine: RT-I-CAB-ARRIVE
+Compiling routine: RT-I-HANSOM-LEAVE
+Compiling routine: RT-I-HANSOM-TO?
+Compiling routine: RT-I-GROWLER-LEAVE
+Compiling routine: RT-I-GROWLER-TO?
+Compiling routine: RT-MOVE-HANSOM
+Compiling routine: RT-MOVE-GROWLER
+Compiling routine: RT-CF-TH-HANSOM-CAB
+Compiling routine: RT-CF-TH-GROWLER-CAB
+Compiling routine: RT-BLOW-WHISTLE
+Compiling routine: RT-AC-TH-HANSOM-CAB
+Compiling routine: RT-AC-TH-GROWLER-CAB
+Compiling routine: RT-AC-TH-CAB-WHISTLE
+Abstracting PS:<SHERLOCK>CAB.
+Loading PS:<SHERLOCK>TOWER.ZIL.38 and compiling it.
+Compiling routine: RT-EX-RM-EXIT-BYWARD-TOWER
+Compiling routine: RT-AC-CH-TOWER-GUARD
+Compiling routine: RT-AC-TH-MALMSEY
+Compiling routine: RT-AC-TH-MALMSEY-POOL
+Compiling routine: RT-AC-TH-BUTT-OF-MALMSEY
+Compiling routine: RT-AC-TH-EMPTY-BUTT-OF-MALMSEY
+Compiling routine: RT-EMPTY-BUTT-MSG
+Compiling routine: RT-AC-TH-BUNG
+Compiling routine: RT-AC-TH-GARNET
+Compiling routine: RT-AC-TH-MACE
+Compiling routine: RT-AC-TH-PORTCULLIS-CHAIN
+Compiling routine: RT-AC-TH-SUIT-OF-ARMOUR
+Compiling routine: RT-AC-LG-PORTCULLIS-DOOR
+Abstracting PS:<SHERLOCK>TOWER.
+Loading PS:<SHERLOCK>SCOPE.ZIL.18 and compiling it.
+Compiling routine: RT-AC-CH-VENDOR
+Compiling routine: RT-AC-TH-POUND-NOTE
+Compiling routine: RT-AC-TH-TELESCOPE
+Compiling routine: RT-AC-TH-SIXPENCE
+Abstracting PS:<SHERLOCK>SCOPE.
+Loading PS:<SHERLOCK>ELIZA.ZIL.28 and compiling it.
+Compiling routine: RT-AC-TH-BLUE-PILL-BOTTLE
+Compiling routine: RT-AC-TH-BROWN-PILL-BOTTLE
+Compiling routine: RT-AC-TH-ORANGE-PILL
+Compiling routine: RT-AC-TH-YELLOW-PILL
+Compiling routine: RT-AC-CH-ELIZA-DOOLITTLE
+Compiling routine: RT-LISTEN-ELIZA
+Compiling routine: RT-CURE-ELIZA
+Abstracting PS:<SHERLOCK>ELIZA.
+Loading PS:<SHERLOCK>CHARLES.ZIL.71 and compiling it.
+Compiling routine: BURN-OUT-MATCH
+Compiling routine: RT-AC-TH-MATCH
+Compiling routine: CLEAR-ALL-FLAGS
+Compiling routine: RT-AC-TH-TORCH
+Compiling routine: RT-LIGHT-PIPE
+Compiling routine: RT-AC-TH-TOBACCO
+Compiling routine: RT-AC-TH-PIPE
+Compiling routine: RT-AC-TH-MAIL
+Compiling routine: RT-AC-TH-NEWSPAPER
+Compiling routine: RT-AC-TH-WESTMINSTER-CLUE
+Compiling routine: RT-AC-TH-WAX-HEAD
+Compiling routine: DESC-WAX-AX
+Compiling routine: RT-GUARD-TAKE-ITEM
+Compiling routine: RT-GUARD-STOP-ENTRANCE
+Compiling routine: RT-EX-RM-EXIT-TUSSAUDS
+Compiling routine: RT-EX-RM-MATCH-SNIFFING-DOG
+Compiling routine: RT-PUT-OUT
+Compiling routine: RT-I-MATCH-OUT
+Compiling routine: BURN-MATCH-OUT
+Compiling routine: RT-I-PIPE-OUT
+Compiling routine: RT-I-TORCH-OUT
+Compiling routine: RT-I-NEWSPAPER-OUT
+Compiling routine: RT-I-CLUE-OUT
+Compiling routine: RT-I-MAIL-OUT
+Compiling routine: RT-I-MATCHBOOK-OUT
+Compiling routine: PRE-LIGHT-WITH
+Compiling routine: RT-GN-WAX
+Abstracting PS:<SHERLOCK>CHARLES.
+Loading PS:<SHERLOCK>BANK.ZIL.63 and compiling it.
+Compiling routine: RT-KIDNAP
+Compiling routine: RT-WIGGINS-HELP-MSG
+Compiling routine: RT-STEAL-KEY
+Compiling routine: RT-AC-TH-INTNUM
+Compiling routine: RT-AC-TH-RING
+Compiling routine: RT-AC-TH-BOX-KEY
+Compiling routine: RT-AC-TH-BOX-LOCK
+Compiling routine: RT-AC-TH-SAFETY-DEPOSIT-BOX
+Compiling routine: RT-AC-TH-DIAL
+Compiling routine: RT-AC-TH-BOXES
+Compiling routine: RT-AC-TH-GUARDS-POCKET
+Compiling routine: RT-AC-CH-BANK-GUARD
+Compiling routine: RT-AC-CH-WIGGINS
+Compiling routine: RT-AC-CH-BUTLER
+Compiling routine: RT-AC-LG-BANK-VAULT-DOOR
+Compiling routine: RT-TOPAZ-MSG
+Abstracting PS:<SHERLOCK>BANK.
+Loading PS:<SHERLOCK>PUZZLES.ZIL.86 and compiling it.
+Compiling routine: RT-EXAMINE-GEM
+Compiling routine: RT-HANDLE-SCRATCH
+Compiling routine: RT-HOLE?
+Compiling routine: RT-WASTE-OF-BULLETS-MSG
+Compiling routine: RT-SHOOT-DEAD-MSG
+Compiling routine: RT-READ-NEWSPAPER
+Compiling routine: RT-WAKE-UP-HOLMES
+Compiling routine: RT-I-PM-HALL
+Compiling routine: RT-I-PM-VESTIBULE
+Compiling routine: RT-I-HUDSON
+Compiling routine: RT-I-PM-LEAVE
+Compiling routine: RT-I-PM-QUITS
+Compiling routine: RT-GET-PIGEON
+Compiling routine: RT-PIGEON-INTEREST
+Compiling routine: RT-KILL-PIGEON
+Compiling routine: RT-PIGEON-OBJ
+Compiling routine: RT-SHERMAN-RAGE
+Compiling routine: RT-I-PIGEON-LOSE-INTEREST
+Compiling routine: RT-I-PIGEON-IMPATIENT
+Compiling routine: RT-I-PIGEON-CIRCLE
+Compiling routine: RT-I-SHERMANS-REVENGE
+Compiling routine: RT-IMPOLITE-MSG
+Compiling routine: RT-I-BIGBEN
+Compiling routine: RT-I-SWING-BELL
+Compiling routine: RT-RELIEF
+Compiling routine: RT-ZERO-SECONDS
+Compiling routine: RT-I-EXHALE
+Compiling routine: RT-I-INHALE
+Compiling routine: RT-I-TAKE-WATSONS-STUFF
+Compiling routine: RT-I-OUT-OF-TIME
+Compiling routine: RT-ETHERIUM-EFFECT
+Compiling routine: RT-I-WAKE-UP
+Compiling routine: RT-SMELL-ETHERIUM?
+Compiling routine: RT-FIND-FLAME
+Compiling routine: RT-DOES-MORIARTY-WIN
+Compiling routine: RT-PROCESS-PASSWORD
+Compiling routine: V-SWORDFISH
+Compiling routine: RT-ROPE-MSG
+Compiling routine: RT-INSCRIPTION-APPEARS-MSG
+Compiling routine: RT-PROCESS-TOMB
+Compiling routine: RT-READ-INSCRIPTION
+Compiling routine: RT-READ-PAPER
+Compiling routine: RT-PROCESS-PAPER
+Compiling routine: RT-PAPER-WARMING
+Compiling routine: RT-I-FLASH-WESTMINSTER-LIGHTS
+Compiling routine: RT-I-WESTMINSTER-LIGHTS-ON
+Compiling routine: RT-I-WESTMINSTER-LIGHTS-OFF
+Compiling routine: RT-I-LOCKED-IN-END-GAME
+Compiling routine: RT-I-OPEN-WESTMINSTER-DOOR
+Compiling routine: RT-I-CLOSE-WESTMINSTER-DOOR
+Compiling routine: RT-CF-TH-BOAT
+Compiling routine: RT-PROCESS-BOAT-ON-THAMES
+Compiling routine: RT-I-MOVE-DOWNSTREAM
+Compiling routine: RT-MOVE-UPSTREAM
+Compiling routine: RT-THAMES-TIDE
+Compiling routine: RT-TOWER-PASSWORD
+Compiling routine: V-BOLEYN
+Compiling routine: V-CLEVES
+Compiling routine: V-HOWARD
+Compiling routine: V-PARR
+Compiling routine: V-ARAGON
+Compiling routine: V-SEYMOUR
+Compiling routine: RT-I-OPEN-MUSEUM-DOOR
+Compiling routine: RT-I-CLOSE-MUSEUM-DOOR
+Compiling routine: RT-INDENT-PRINT
+Compiling routine: RT-WRAP-PRINT
+Abstracting PS:<SHERLOCK>PUZZLES.
+Loading PS:<SHERLOCK>LOCALS.ZIL.34 and compiling it.
+Compiling routine: RT-AC-LG-BAKER-ST-DOOR
+Compiling routine: RT-AC-LG-PARLOUR-DOOR
+Compiling routine: RT-AC-LG-HOLMES-STUDY-DOOR
+Compiling routine: RT-AC-LG-HOLMES-BEDROOM-DOOR
+Compiling routine: RT-AC-LG-BAR-OF-GOLD-DOOR
+Compiling routine: RT-AC-LG-LAIR-DOOR
+Compiling routine: RT-AC-LG-JERICHO-PARLOUR-DOOR
+Compiling routine: RT-AC-LG-SHOPS
+Compiling routine: RT-AC-LG-WATER
+Compiling routine: RT-AC-LG-UP-DOWN-STREAM
+Compiling routine: RT-AC-LG-BRITISH-MUSEUM-DOOR
+Compiling routine: RT-AC-LG-WESTMINSTER-DOOR
+Compiling routine: RT-AC-LG-PLAQUES
+Compiling routine: RT-DF-LG-WAX-STATUES
+Compiling routine: RT-AC-LG-WINDOW
+Compiling routine: RT-AC-LG-TOMBS-ABBEY
+Compiling routine: RT-AC-LG-STREETLIGHT
+Compiling routine: RT-AC-LG-STAIRWAY
+Compiling routine: RT-AC-LG-SHAFT-OF-LIGHT
+Compiling routine: RT-AC-LG-RAVENS
+Compiling routine: RT-DF-LG-BOATS
+Compiling routine: RT-AC-LG-HOLMES-HOUSE
+Compiling routine: RT-AC-LG-PEDESTAL
+Compiling routine: RT-AC-LG-TOWER
+Abstracting PS:<SHERLOCK>LOCALS.
+ ** Note: OBJECT has no properties: LOCAL-GLOBALS
+ ** Note: OBJECT has no properties: GLOBAL-OBJECTS
+ ** Note: OBJECT has no properties: TH-X-OBJECT
+ ** Note: OBJECT has no properties: TH-Y-OBJECT
+Vocabulary: 1194
+
+Prepositions: 23
+
+ABOUT	 AROUND	  BEFORE   FOR	    IN	     OUT      TO       UP
+AGAINST	 AT	  BEHIND   FROM	    OFF	     OVER     UNDER    WITH
+APART	 AWAY	  DOWN	   GO	    ON	     THROUGH  UNTIL
+
+Real globals: 240
+
+ALLOW-IN-TOWER		     GL-PRSO
+BELIEVE-WAIT-TIME?	     GL-PUPPY
+BOX-KEY-COLD?		     GL-PUPPY-MSG?
+CAB-RAMP		     GL-QUEST-NUM
+CAB-ROOM-IDS		     GL-RESERVE-PTR
+CH-BANK-GUARD-AUX1	     GL-SCORE-CUR
+CH-ELIZA-DOOLITTLE-AUX1	     GL-SCORE-HEADER-LEN
+CH-HOLMES-AUX1		     GL-SCORE-MAX
+CH-TRAINED-PIGEON-AUX1	     GL-SCORE-MSG
+CH-TRAINED-PIGEON-AUX2	     GL-SCORE-STS
+CH-TRAINED-PIGEON-AUX3	     GL-SHORT-STAT?
+CH-VENDOR-AUX1		     GL-SPLIT-ROW
+CH-WIGGINS-AUX1		     GL-STAT-MAX-ROOM
+GL-A-ROUT		     GL-STAT-S-POS
+GL-A-TIME		     GL-STAT-T-POS
+GL-AGAIN-DIR		     GL-TEMP-TIME
+GL-ALARM-EXEC		     GL-TIME
+GL-ALARM-WAIT		     GL-TIME-PARM
+GL-ALLSCREEN		     GL-TIME-UPDT-DEF
+GL-ALW-LIT?		     GL-TIME-UPDT-INC
+GL-BORING-TXT		     GL-WAIT-BELL
+GL-CAN-UNDO		     GL-WHERE-TO-ORPH?
+GL-CHAPT-NUM		     GL-WHERE-TO-PROMPT?
+GL-CLOCK-FMT		     GL-WIGGINS-DESC-TXT
+GL-CLOCK-STOP		     GL-WIGGINS-LOOK-TXT
+GL-CLOCK-WAIT		     GL-WINDOW
+GL-CLOSED-OBJECT	     GL-WINNER
+GL-COLUMN-TABLE		     GL-YES-IBUF
+GL-CUR-POS		     GL-YES-LEXV
+GL-DAY-NAME		     GLOBAL-VARS-TABLE
+GL-DEBUG-FLAG		     HEARD-SWING?
+GL-DESC-LEVEL		     INHIBIT-ROOMS
+GL-DIROUT-TBL		     K-AFTER-YOU-MSG
+GL-FORMER-PUPPY		     K-AMBULATORY-MSG
+GL-FUNNY-CLAUSE?	     K-ANCHOR-ALREADY-OUT-MSG
+GL-HINT-WARNING		     K-ANNIE-OAKELEY-MSG
+GL-HINTS-OFF		     K-ANOTHER-PHIAL-MSG
+GL-HOLES		     K-ASTERISK-MSG
+GL-HOLMES-DESC-TXT	     K-BE-MORE-SPECIFIC-MSG
+GL-HOLMES-HOUSE-LOOK-TXT     K-BETTER-SUCCESS-MSG
+GL-HOLMES-INDOORS-LOOK-TXT   K-BRAND-MSG
+GL-HOLMES-OUTDOORS-LOOK-TXT  K-BRAVO-MSG
+GL-IN-OUT		     K-BREATH-TAKING-MSG
+GL-LAST-OUT-TOD		     K-BRIGHTENS-UP-MSG
+GL-LASTFOC		     K-BULLET-MSG
+GL-LINE-TABLE		     K-BUTLER-ACCEPTS-MSG
+GL-LISTEN-OBJ		     K-CAB-HERE-MSG
+GL-LOC-TRAIL		     K-CANT-LEAVE-MSG
+GL-LONG-OOPS		     K-CANT-WAIT-MSG
+GL-MIDSCREEN		     K-CLOSED-AND-LOCKED-MSG
+GL-MOVES-CUR		     K-CONFUSED-MSG
+GL-MOVES-STS		     K-CUSTOMARILY-KEEP-MSG
+GL-NO-POINT-TXT		     K-DIZZY-MSG
+GL-NOT-LIKELY-TXT	     K-DO-IT-YOURSELF-MSG
+GL-NOW-LIT?		     K-DONT-UNDERSTAND-MSG
+GL-NOW-PRSI?		     K-DROP-IT-FIRST-MSG
+GL-OOPS-INBUF		     K-EAU-DE-MSG
+GL-OOPS-TABLE		     K-ENJOYING-RIDE-MSG
+GL-P-AADJ		     K-ENOUGH-ROOM-MSG
+GL-P-ACLAUSE		     K-EVERYONE-OUT-MSG
+GL-P-ADJ		     K-EYES-HINGED-MSG
+GL-P-ADJW		     K-FIDGETING-MSG
+GL-P-ANAM		     K-FOUGHT-WELL-MSG
+GL-P-AND		     K-GET-OUT-FIRST-MSG
+GL-P-BUTS		     K-GOOD-LOOK-MSG
+GL-P-CONT		     K-GOOD-SHOW-MSG
+GL-P-DIR		     K-HEAVY-ARMOUR-MSG
+GL-P-DIR-WORD		     K-HINTS
+GL-P-DIRECTION		     K-HOW-TO-MSG
+GL-P-END-ON-PREP	     K-ILL-HOLD-IT-MSG
+GL-P-GET-FLAGS		     K-INAPPROPRIATE-MSG
+GL-P-GOOD		     K-MAYBE-MSG
+GL-P-GWIMBIT		     K-MUST-BE-IN-BOAT-MSG
+GL-P-HER-OBJECT		     K-NO-RESTING-MSG
+GL-P-HIM-OBJECT		     K-PITY-MSG
+GL-P-IT-OBJECT		     K-RICOCHET-MSG
+GL-P-ITBL		     K-SEEMS-TO-HEAR-MSG
+GL-P-LEN		     K-SHATTER-MSG
+GL-P-MERGE		     K-SIGN-HERE-MSG
+GL-P-MERGED		     K-SIMPLE-TOMB-MSG
+GL-P-MOBY-FOUND		     K-SMOULDERS-MSG
+GL-P-MULT?		     K-SORRY-MATE-MSG
+GL-P-NAM		     K-SPECIFY-DIR-MSG
+GL-P-NAMW		     K-SPECIFY-MSG
+GL-P-NCN		     K-SUICIDE-MSG
+GL-P-NUMBER		     K-THEFT-MSG
+GL-P-OCLAUSE		     K-TOO-DARK-MSG
+GL-P-OF			     K-WELL-WORN-MSG
+GL-P-OFW		     KNIFE-COLD?
+GL-P-ORPH		     LAST-PSEUDO-LOC
+GL-P-OTBL		     LOOP-VOL
+GL-P-OVERFLOW		     LOOPING?
+GL-P-OVTBL		     MYCROFT-STATE
+GL-P-P-LEX		     PASSWORD-ID
+GL-P-PHR		     PLAYER-IN-ABBEY
+GL-P-PIBUF		     RM-HOLMES-STUDY-AUX1
+GL-P-PRSA-WORD		     RUN-SMELL-ETHERIUM?
+GL-P-PRSI		     SOUND-ON?
+GL-P-PRSO		     SOUND-QUEUED?
+GL-P-QCONTEXT-RM	     TH-BELL-AUX1
+GL-P-QCONTEXT-TH	     TH-BELL-AUX2
+GL-P-QUOT		     TH-BOAT-AUX1
+GL-P-RIBUF		     TH-BOX-KEY-AUX1
+GL-P-S-LEX		     TH-BOX-LOCK-AUX1
+GL-P-SLOCBITS		     TH-CAB-WHISTLE-AUX1
+GL-P-SYNTAX		     TH-CAB-WHISTLE-AUX2
+GL-P-T-LEX		     TH-DIAL-AUX1
+GL-P-TABLE		     TH-DIAL-AUX2
+GL-P-THEM-OBJECT	     TH-GROWLER-CAB-AUX1
+GL-P-TIME		     TH-GUN-AUX1
+GL-P-TIME-FLAG		     TH-HANSOM-CAB-AUX1
+GL-P-VTBL		     TH-HANSOM-CAB-AUX2
+GL-P-WALK-DIR		     TH-PACKET-OF-PAPER-AUX1
+GL-P-XADJ		     TH-PHIAL-AUX1
+GL-P-XNAM		     TH-ROPE-AUX1
+GL-PLACE-CUR		     TH-ROPE-AUX2
+GL-PLACE-PRV		     TH-SAFETY-DEPOSIT-BOX-AUX1
+GL-PLACE-STS		     TH-SAPPHIRE-AUX1
+GL-PRSA			     WIGGINS-COLD?
+GL-PRSI			     WINNER-IS-WIGGINS
+
+Objects: 314
+
+CH-AKBAR		     TH-BED
+CH-BANK-GUARD		     TH-BEDSIDE-TABLE
+CH-BUTLER		     TH-BELL
+CH-DENKEEPER		     TH-BLACK-BAG
+CH-ELIZA-DOOLITTLE	     TH-BLIGH-BOAT
+CH-GROWLER-CABBIE	     TH-BLUE-PAPER
+CH-HANSOM-CABBIE	     TH-BLUE-PILL-BOTTLE
+CH-HER			     TH-BOAT
+CH-HIM			     TH-BOOK-PAGE
+CH-HOLMES		     TH-BOX-KEY
+CH-HOUSEWIVES		     TH-BOX-LOCK
+CH-HUDSON		     TH-BOXES
+CH-LIBRARIAN		     TH-BREATH
+CH-MATCH-SNIFFING-DOG	     TH-BROWN-PAPER
+CH-ME			     TH-BROWN-PILL-BOTTLE
+CH-MEMBERS		     TH-BULLET-HOLE
+CH-MORIARTY		     TH-BUNG
+CH-NANNIES		     TH-BUTT-OF-MALMSEY
+CH-PALACE-GUARD		     TH-CAB-WHISTLE
+CH-PLAYER		     TH-CARNATION
+CH-PRIME-MINISTER	     TH-CHARLES-STATUE
+CH-QUEEN		     TH-CHAUCER-TOMB
+CH-SHERMAN		     TH-CIGARETTE
+CH-THEM			     TH-CLAPPER
+CH-TOWER-GUARD		     TH-CLOTHES
+CH-TRAINED-PIGEON	     TH-CLUE-BOOK
+CH-TUSSAUDS-GUARD	     TH-CLUMP-OF-MOSS
+CH-URCHINS		     TH-COTTON-BALLS
+CH-VENDOR		     TH-CRAYON
+CH-WIGGINS		     TH-CROWDS
+CH-YOU			     TH-CROWN-JEWELS
+GLOBAL-OBJECTS		     TH-DEAD-PIGEON
+LG-BAKER-ST-DOOR	     TH-DIAL
+LG-BANK-VAULT-DOOR	     TH-DICKENS-TOMB
+LG-BAR-OF-GOLD-DOOR	     TH-DRAKE-STATUE
+LG-BOATS		     TH-EARS
+LG-BRITISH-MUSEUM-DOOR	     TH-EDWARD-TOMB
+LG-COLUMNS		     TH-ELIZABETH-STATUE
+LG-HOLMES-BEDROOM-DOOR	     TH-ELIZABETH-TOMB
+LG-HOLMES-STUDY-DOOR	     TH-ELIZAS-FLOWERS
+LG-JERICHO-PARLOUR-DOOR	     TH-ELIZAS-MOUTH
+LG-LAIR-DOOR		     TH-EMERALD
+LG-MARBLE		     TH-ETHERIUM-AMPOULE
+LG-PARLOUR-DOOR		     TH-ETHERIUM-GAS
+LG-PLAQUES		     TH-EVENT
+LG-PORTCULLIS-DOOR	     TH-FAWKES-STATUE
+LG-RAVENS		     TH-FEET
+LG-SHAFT-OF-LIGHT	     TH-FIGURES
+LG-SHOPS		     TH-FLOOR-ETC
+LG-STAIRWAY		     TH-GARNET
+LG-STREETLIGHT		     TH-GENERIC-BODY
+LG-TOMBS-ABBEY		     TH-GREEN-PAPER
+LG-TOWER		     TH-GROWLER-CAB
+LG-UP-DOWN-STREAM	     TH-GUARDS-KEYS
+LG-WATER		     TH-GUARDS-POCKET
+LG-WESTMINSTER-DOOR	     TH-GUN
+LG-WINDOW		     TH-HANDS
+LOCAL-GLOBALS		     TH-HANSOM-CAB
+PSEUDO-OBJECT		     TH-HEAD
+RM-221B-BAKER-ST	     TH-HENRY-V-TOMB
+RM-AUDLEY-ST		     TH-HENRY-VII-TOMB
+RM-BANK-OF-ENGLAND	     TH-INTDIR
+RM-BANK-VAULT		     TH-INTNUM
+RM-BAR-OF-GOLD		     TH-IT
+RM-BIRDCAGE-WALK	     TH-JEWEL-CASE
+RM-BLOODY-TOWER		     TH-JOHN-STATUE
+RM-BOWYER-TOWER		     TH-KNIFE
+RM-BRITISH-MUSEUM	     TH-LAB-EQUIPMENT
+RM-BROAD-SANCTUARY	     TH-LAIR-KEY
+RM-BUCKINGHAM-PALACE	     TH-LAMP
+RM-BUCKINGHAM-PALACE-RD	     TH-LAPEL
+RM-BYWARD-TOWER		     TH-LEFT
+RM-CHAMBER-OF-HORRORS	     TH-LIBRARY-TABLE
+RM-CHEAPSIDE		     TH-LIQUID
+RM-CLOCK-TOWER		     TH-LITTLE-PRINCES-TOMB
+RM-CONFESSOR-CHAPEL	     TH-MACE
+RM-COVENT-GARDEN	     TH-MAGNIFYING-GLASS
+RM-DIOGENES-CLUB	     TH-MAIL
+RM-DRAWBRIDGE		     TH-MALMSEY
+RM-DUNGEON		     TH-MALMSEY-POOL
+RM-ENTRY-HALL		     TH-MANTELPIECE
+RM-EVANGELIST-CHAPEL	     TH-MARY-QUEEN-OF-SCOTS-TOMB
+RM-FLEET-STREET		     TH-MATCH
+RM-GREAT-RUSSELL-ST	     TH-MATCHBOOK
+RM-GROSVENOR-PLACE	     TH-MORIARTY-DESK
+RM-HENRY-VII-CHAPEL	     TH-MOROCCO-CASE
+RM-HOLMES-BEDROOM	     TH-NELSON-COLUMN
+RM-HOLMES-STUDY		     TH-NELSON-EYE
+RM-HYDE-PARK-CORNER	     TH-NELSON-STATUE
+RM-INNOCENTS-CORNER	     TH-NEWSPAPER
+RM-INSIDE-TRAITORS-GATE	     TH-NEWTON-TOMB
+RM-JERICHO-PARLOUR	     TH-NOT-HERE-OBJECT
+RM-JERUSALEM-CHAMBER	     TH-OAR-1
+RM-JEWEL-ROOM		     TH-OAR-2
+RM-KENSINGTON-GARDENS	     TH-OAR-LOCK
+RM-KING-WILLIAM-ST	     TH-OPAL
+RM-LAIR			     TH-OPIUM-GAS
+RM-LONDON-BRIDGE	     TH-ORANGE-PAPER
+RM-LOWER-THAMES-ST	     TH-ORANGE-PILL
+RM-MADAME-TUSSAUDS	     TH-PACKET-OF-PAPER
+RM-MANUSCRIPT-ROOM	     TH-PADDLE
+RM-MARYLEBONE-RD	     TH-PARK-FLOWERS
+RM-MONUMENT		     TH-PERSIAN-SLIPPER
+RM-NAVE			     TH-PHIAL
+RM-NEW-OXFORD-ST	     TH-PIGEONS
+RM-NORTH-AMBULATORY	     TH-PIPE
+RM-NORTH-CHAPEL-AISLE	     TH-PITT-TOMB
+RM-NORTH-CLOISTER	     TH-PLAYER-BODY
+RM-NORTH-TRANSEPT	     TH-POCKET
+RM-ORCHARD-ST		     TH-POPE-TOMB
+RM-OUTER-WARD		     TH-PORTCULLIS-CHAIN
+RM-OUTSIDE-TRAITORS-GATE     TH-POUND-NOTE
+RM-OXFORD-ST		     TH-PRAMS
+RM-PARLIAMENT		     TH-RAILING
+RM-PARLIAMENT-SQUARE	     TH-RED-GLASS
+RM-PARLOUR		     TH-RIGHT
+RM-PINCHIN-LANE		     TH-RING
+RM-POETS-CORNER		     TH-ROOM
+RM-QUEENS-GARDENS	     TH-ROPE
+RM-SANCTUARY		     TH-RUBBINGS
+RM-SCOTLAND-YARD	     TH-RUBY
+RM-SHERMANS-HOUSE	     TH-SAFETY-DEPOSIT-BOX
+RM-SOUTH-AISLE		     TH-SAPPHIRE
+RM-SOUTH-AMBULATORY	     TH-SESAME
+RM-SOUTH-CHAPEL-AISLE	     TH-SHAFT
+RM-SOUTH-TRANSEPT	     TH-SHILLING
+RM-ST-GILES-CIRCUS	     TH-SIXPENCE
+RM-SWAN-LANE		     TH-SOFA
+RM-THAMES-FIVE		     TH-STETHOSCOPE
+RM-THAMES-FOUR		     TH-SUIT-OF-ARMOUR
+RM-THAMES-ONE		     TH-SYRINGE
+RM-THAMES-THREE		     TH-TELESCOPE
+RM-THAMES-TWO		     TH-THOMAS-STATUE
+RM-THE-BLACK-MUSEUM	     TH-TIME
+RM-THE-EMBANKMENT	     TH-TOBACCO
+RM-THE-MALL		     TH-TOPAZ
+RM-THE-STRAND		     TH-TORCH
+RM-THREADNEEDLE-ST	     TH-TRINKETS
+RM-TORTURE-ROOM		     TH-TURBAN
+RM-TOTTENHAM-COURT-RD	     TH-VERE-TOMB
+RM-TOWER-ENTRANCE	     TH-VIOLIN
+RM-TOWER-GREEN		     TH-WALL
+RM-TRAFALGAR-SQUARE	     TH-WALTER-STATUE
+RM-UPPER-THAMES-ST	     TH-WATERMARK
+RM-VESTIBULE		     TH-WATSONS-COAT
+RM-VICTORIA-SQUARE	     TH-WATSONS-HAT
+RM-VICTORIA-STREET	     TH-WATSONS-HEART
+RM-WAKEFIELD-TOWER	     TH-WAX-AX
+RM-WHITE-TOWER		     TH-WAX-HEAD
+RM-WHITEHALL		     TH-WESTMINSTER-CLUE
+RM-YORK-PLACE		     TH-WHITE-PAPER
+ROOMS			     TH-WILLIAM-STATUE
+TH-ANCHOR		     TH-WORKBENCH
+TH-ANCHOR-CHAIN		     TH-X-OBJECT
+TH-ANNE-OF-CLEVES-TOMB	     TH-Y-OBJECT
+TH-ASH			     TH-YELLOW-PAPER
+TH-BANK-OF-CANDLES	     TH-YELLOW-PILL
+
+Properties: 28
+
+P?ACTION       P?FLIPPED      P?NE	     P?PSEUDOS	    P?SYNONYM
+P?ADJECTIVE    P?GENERIC      P?NORTH	     P?SE	    P?UP
+P?CONTFCN      P?GLOBAL	      P?NW	     P?SIZE	    P?VALUE
+P?DEXTERITY    P?HEATED	      P?OBJ-ADJ	     P?SOUTH	    P?WEST
+P?DOWN	       P?IN	      P?OBJ-NOUN     P?STRENGTH
+P?EAST	       P?INSCRIPTION  P?OUT	     P?SW
+
+Flags: 48
+
+FL-ALIVE	   FL-FOOD	      FL-MONEY		 FL-SEEN
+FL-ASLEEP	   FL-HAS-DESCFCN     FL-NEEDS-IDENTITY	 FL-SURFACE
+FL-BODYPART	   FL-HAS-SDESC	      FL-NO-CROWDS	 FL-TAKEABLE
+FL-BROKEN	   FL-HOLMES-TOLD     FL-NO-ETHERIUM	 FL-TOOL
+FL-BURNABLE	   FL-INDOORS	      FL-NOALL		 FL-TOUCHED
+FL-BUYABLE	   FL-KEY	      FL-NOARTC		 FL-TRANSPARENT
+FL-BYHAND	   FL-KNIFE	      FL-NODESC		 FL-TRYTAKE
+FL-CLOTHING	   FL-LAMP	      FL-OPENABLE	 FL-VEHICLE
+FL-COLLECTIVE	   FL-LIGHTED	      FL-OPENED		 FL-VOWEL
+FL-CONTAINER	   FL-LOCATION	      FL-PERSON		 FL-WEAPON
+FL-DOOR		   FL-LOCKED	      FL-PLURAL		 FL-WORN
+FL-FEMALE	   FL-LOSE-IDENTITY   FL-READABLE	 FL-YOUR
+
+Fake globals: 1
+
+GL-ALARM-STOP
diff --git a/gamesound.serial b/gamesound.serial
new file mode 100644
index 0000000..f64f5d8
--- /dev/null
+++ b/gamesound.serial
@@ -0,0 +1 @@
+27
diff --git a/gamesound.zap b/gamesound.zap
new file mode 100644
index 0000000..adaab71
--- /dev/null
+++ b/gamesound.zap
@@ -0,0 +1,63 @@
+	.NEW 5
+; Low core locations
+%ZVERSION::	.BYTE	5
+		.BYTE	FLAGS
+%ZORKID::	ZORKID
+%ENDLOD::	ENDLOD
+%START::	START
+%VOCAB::	VOCAB
+%OBJECT::	OBJECT
+%GLOBAL::	GLOBAL
+%PURBOT::	IMPURE
+%FLAGS::	.WORD 144
+%SERIAL::	.WORD	0
+%SERI1::	.WORD	0
+%SERI2::	.WORD	0
+%FWORDS::	WORDS
+%PLENTH::	.WORD	0
+%PCHKSM::	.WORD	0
+%INTWRD::	.WORD	0
+%SCRWRD::	.WORD	0
+%HWRD::	.WORD	0
+%VWRD::	.WORD	0
+%FWRD::	.WORD	0
+%LMRG::	.WORD	0
+%RMRG::	.WORD	0
+%CLRWRD::	.WORD	0
+%TCHAR::	TCHARS
+%CRCNT::	.WORD	0
+%CRFUNC::	.WORD	0
+%CHRSET::	.WORD	0
+%EXTAB::	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.INSERT "PS:<SHERLOCK>GAMESOUNDFREQ"	;Frequent word table
+	.INSERT "PS:<SHERLOCK>GAMESOUNDDAT"	; Data file
+	.INSERT "PS:<SHERLOCK>SCHED"
+	.INSERT "PS:<SHERLOCK>BOOT"
+	.INSERT "PS:<SHERLOCK>PARSER"
+	.INSERT "PS:<SHERLOCK>GAMESOUNDPUR"
+	.INSERT "PS:<SHERLOCK>OTHER-MISC"
+	.INSERT "PS:<SHERLOCK>DEBUG"
+	.INSERT "PS:<SHERLOCK>HINTS"
+	.INSERT "PS:<SHERLOCK>VERBS"
+	.INSERT "PS:<SHERLOCK>PEOPLE"
+	.INSERT "PS:<SHERLOCK>GENERIC"
+	.INSERT "PS:<SHERLOCK>PLACES3"
+	.INSERT "PS:<SHERLOCK>PLACES2"
+	.INSERT "PS:<SHERLOCK>THINGS2"
+	.INSERT "PS:<SHERLOCK>THINGS1"
+	.INSERT "PS:<SHERLOCK>CAB"
+	.INSERT "PS:<SHERLOCK>TOWER"
+	.INSERT "PS:<SHERLOCK>SCOPE"
+	.INSERT "PS:<SHERLOCK>ELIZA"
+	.INSERT "PS:<SHERLOCK>CHARLES"
+	.INSERT "PS:<SHERLOCK>BANK"
+	.INSERT "PS:<SHERLOCK>PUZZLES"
+	.INSERT "PS:<SHERLOCK>LOCALS"
+
+	.INSERT "PS:<SHERLOCK>GAMESOUNDSTR"
+
+	.END
diff --git a/gamesound.zil b/gamesound.zil
new file mode 100644
index 0000000..4a8ad1c
--- /dev/null
+++ b/gamesound.zil
@@ -0,0 +1,185 @@
+<PRINC "
+******************************************************************************
+******************************* SHERLOCK 1.00 ********************************
+******************************************************************************
+">
+
+<VERSION XZIP>
+
+ON!-INITIAL
+OFF!-INITIAL
+ENABLE!-INITIAL
+DISABLE!-INITIAL
+
+<SET REDEFINE T>
+
+<SETG SIBREAKS ".,\"!?">
+
+<OR <GASSIGNED? ZILCH>
+	<SETG WBREAKS <STRING !\" !,WBREAKS>>>
+
+<COND
+	(<GASSIGNED? PREDGEN>
+		<SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>)>
+
+<SETG GL-DEBUG? <>>
+
+<FUNNY-GLOBALS?>
+
+<FREQUENT-WORDS?>
+
+<ORDER-OBJECTS? ROOMS-AND-LGS-FIRST> ; "So we can use byte tables for rooms"
+
+<SETG COMPACT-VOCABULARY? T>	; "Saves a byte/word"
+
+<SETG COMPACT-SYNTAXES? T>	; "Seriously cram syntaxes"
+
+<SETG DO-PURE-TABLE-NTHS? T>	; "Minor optimization"
+
+<ZIP-OPTIONS SOUND UNDO>	; "Set UNDO bit in FLAGS"
+
+; "GLOBAL property should make byte tables instead of word tables, due to
+   ROOMS-AND-LGS-FIRST.  DIRECTION properties redefined to take advantage
+   of single-byte room pointers, and to make more common exit types take
+   less space."
+<PROPDEF GLOBAL <>
+	 (GLOBAL "MANY" LG:OBJECT = <> "MANY" <ROOM .LG>)>
+
+<PROPDEF DIRECTIONS <>
+	 (DIR TO R:ROOM =
+	  (UEXIT 1)		#SEMI "UNCONDITIONAL EXIT"
+	  (REXIT <ROOM .R>)	#SEMI "TO ROOM")
+	 (DIR PER F:FCN =	; "Changed because most common case"
+	  (FEXIT 2)		#SEMI "CONDITIONAL EXIT"
+	  (FEXITFCN <WORD .F>)	#SEMI "PER FUNCTION")
+	 (DIR TO R:ROOM IF O:OBJECT IS OPEN =
+	  (DEXIT 3)		#SEMI "CONDITIONAL EXIT"
+	  (REXIT <ROOM .R>)	#SEMI "TO ROOM"
+	  (DEXITOBJ <OBJECT .O>)	#SEMI "IF DOOR IS OPEN")
+	 (DIR SORRY S:STRING =
+	  (NEXIT 4)		#SEMI "IMPOSSIBLE EXIT"
+	  (NEXITSTR <STRING .S>)	#SEMI "FAILURE MESSAGE"
+	  <BYTE 0>
+	  <BYTE 0>)
+	 (DIR TO R:ROOM IF F:GLOBAL =
+	  (CEXIT 5)		#SEMI "CONDITIONAL EXIT"
+	  (REXIT <ROOM .R>)	#SEMI "TO ROOM"
+	  (CEXITFLAG <GLOBAL .F>) #SEMI "IF FLAG IS TRUE"
+	  <BYTE 0> <BYTE 0> <BYTE 0>)
+	 >
+
+<DIRECTIONS NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<PUTPROP PSEUDOS PROPSPEC HACK-PSEUDOS>
+
+<DEFINE20 HACK-PSEUDOS (LIST "AUX" (N 0) (CT 0) NL)
+  <SET LIST <REST .LIST>>
+  <SET LIST
+    <MAPF ,LIST
+      <FUNCTION (X)
+        <COND (<0? .N>
+	       <SET CT <+ .CT 1>>
+	       <SET N 1>
+	       <COND (<TYPE? .X ATOM>
+		      <TABLE (PURE PATTERN (BYTE [REST WORD]))
+			     1
+			     <VOC <SPNAME .X> ADJ>>)
+		     (<TYPE? .X LIST>
+		      <EVAL <CHTYPE (TABLE (PURE PATTERN (BYTE [REST WORD]))
+				     <LENGTH .X>
+				     !<MAPF ,LIST
+				       <FUNCTION (Y)
+				         <VOC <SPNAME .Y> ADJ>>
+				       .X>) FORM>>)
+		     (T 0)>)
+	      (<1? .N>
+	       <SET N 2>
+	       <COND (<TYPE? .X ATOM>
+		      <TABLE (PURE PATTERN (BYTE [REST WORD]))
+			     1 <VOC <SPNAME .X> NOUN>>)
+		     (<TYPE? .X LIST>
+		      <EVAL <CHTYPE (TABLE (PURE PATTERN (BYTE [REST WORD]))
+				     <LENGTH .X>
+				     !<MAPF ,LIST
+				       <FUNCTION (Y)
+				         <VOC <SPNAME .Y> NOUN>>
+				       .X>) FORM>>)
+		     (T 0)>)
+	      (T
+	       <SET N 0>
+	       .X)>>
+      .LIST>>
+  (<> <EVAL <CHTYPE (TABLE (PURE PATTERN (BYTE [REST WORD]))
+		     .CT !.LIST) FORM>>)>
+
+<PUTPROP SIZE PROPSPEC HACK-SIZE>
+
+<SETG20 SIZE-VALS 13>
+<SETG20 MASS-VALS 11>
+<SETG20 CAPACITY-VALS 102>
+
+<DEFINE20 HACK-SIZE (LIST "AUX" (VAL 0) TL TN)
+  <COND (<SET TL <MEMQ SIZE .LIST>>
+	 <SET TN <2 .TL>>
+	 <COND (<L? .TN 6>
+		<SET VAL .TN>)
+	       (<==? .TN 10> <SET VAL 6>)
+	       (<==? .TN 12> <SET VAL 7>)
+	       (<==? .TN 15> <SET VAL 8>)
+	       (<==? .TN 20> <SET VAL 9>)
+	       (<==? .TN 50> <SET VAL 10>)
+	       (<==? .TN 99> <SET VAL 11>)
+	       (<==? .TN 100> <SET VAL 12>)
+	       (T <ERROR UNKNOWN-SIZE!-ERRORS .TN .LIST>)>)>
+  <COND (<SET TL <MEMQ MASS .LIST>>
+	 <SET TN <2 .TL>>
+	 <COND (<L? .TN 6>)
+	       (<==? .TN 10> <SET TN 6>)
+	       (<==? .TN 15> <SET TN 7>)
+	       (<==? .TN 50> <SET TN 8>)
+	       (<==? .TN 100> <SET TN 9>)
+	       (<==? .TN 250> <SET TN 10>)
+	       (T <ERROR UNKNOWN-MASS!-ERRORS .TN .NAME .LIST>)>
+	 <SET VAL <+ .VAL <* .TN ,SIZE-VALS>>>)>
+  <COND (<SET TL <MEMQ CAPACITY .LIST>>
+	 <SET TN <2 .TL>>
+	 <COND (<L? .TN 101>)
+	       (<==? .TN 999> <SET TN 101>)
+	       (T <ERROR UNKNOWN CAPACITY!-ERRORS .TN .NAME .LIST>)>
+	 <SET VAL <+ .VAL <* .TN <* ,SIZE-VALS ,MASS-VALS>>>>)>
+  (<> .VAL)>
+
+<DEFMAC IFSOUND ("ARGS" X)
+	<COND (<LENGTH? .X 1> <1 .X>)
+	      (T <CHTYPE (!.X) SPLICE>)>>
+
+<INSERT-FILE "CONSTANTS" T>
+<INSERT-FILE "MACROS"    T>   ;"AUXES MERGED INTO MACROS"
+<INSERT-FILE "SYNTAX" T>      ;"MISC (BETA/GAMMA STUFF) DELETED"
+<INSERT-FILE "SCHED"      T>
+<INSERT-FILE "BOOT"       T>
+<INSERT-FILE "PARSER"     T>
+; "If PARSER doesn't end before 44800, you'll lose on the C64."
+<PUT-PURE-HERE>
+<INSERT-FILE "OTHER-MISC" T>  ;"GO & WAIT & WINDOW MERGED INTO OTHER-MISC"
+<INSERT-FILE "SOUNDS"	 T>
+<INSERT-FILE "DEBUG"     T>
+<INSERT-FILE "HINTS"     T>
+<INSERT-FILE "VERBS"	 T>
+<INSERT-FILE "PEOPLE"	 T>
+<INSERT-FILE "GENERIC"   T>
+<INSERT-FILE "PLACES3"   T>
+<INSERT-FILE "PLACES2"   T>
+<INSERT-FILE "PLACES1"   T>
+<INSERT-FILE "THINGS2"   T>
+<INSERT-FILE "THINGS1"   T>
+<INSERT-FILE "CAB"       T>
+<INSERT-FILE "TOWER"     T>
+<INSERT-FILE "SCOPE"     T>
+<INSERT-FILE "ELIZA"     T>
+<INSERT-FILE "CHARLES"   T>
+<INSERT-FILE "BANK"      T>
+<INSERT-FILE "PUZZLES"   T>
+<INSERT-FILE "LOCALS"    T>   ;"MERGED LOCALS1 AND LOCALS2"
+
+
diff --git a/gamesound.zip b/gamesound.zip
new file mode 100644
index 0000000..2f87cd8
Binary files /dev/null and b/gamesound.zip differ
diff --git a/gamesounddat.zap b/gamesounddat.zap
new file mode 100644
index 0000000..5a16e25
--- /dev/null
+++ b/gamesounddat.zap
@@ -0,0 +1,16688 @@
+
+
+; TOP LEVEL DEFINITIONS
+
+	TRUE-VALUE=1
+	FALSE-VALUE=0
+	FATAL-VALUE=2
+
+	O?ANY=1
+
+	PS?OBJECT=128
+	PS?VERB=64
+	PS?ADJECTIVE=32
+	PS?DIRECTION=16
+	PS?PREPOSITION=8
+	PS?BUZZ-WORD=4
+
+	P1?NONE=0
+	P1?OBJECT=0
+	P1?VERB=1
+	P1?ADJECTIVE=2
+	P1?DIRECTION=3
+
+
+; OBJECT FLAGS ARE DEFINED HERE
+
+
+	FL-YOUR=0
+	FX?FL-YOUR=32768
+
+	FL-VEHICLE=1
+	FX?FL-VEHICLE=16384
+
+	FL-TRANSPARENT=2
+	FX?FL-TRANSPARENT=8192
+
+	FL-TOUCHED=3
+	FX?FL-TOUCHED=4096
+
+	FL-SEEN=4
+	FX?FL-SEEN=2048
+
+	FL-OPENED=5
+	FX?FL-OPENED=1024
+
+	FL-KEY=6
+	FX?FL-KEY=512
+
+	FL-HOLMES-TOLD=7
+	FX?FL-HOLMES-TOLD=256
+
+	FL-DOOR=8
+	FX?FL-DOOR=128
+
+	FL-CONTAINER=9
+	FX?FL-CONTAINER=64
+
+	FL-COLLECTIVE=10
+	FX?FL-COLLECTIVE=32
+
+	FL-CLOTHING=11
+	FX?FL-CLOTHING=16
+
+	FL-BUYABLE=12
+	FX?FL-BUYABLE=8
+
+	FL-BURNABLE=13
+	FX?FL-BURNABLE=4
+
+	FL-BODYPART=14
+	FX?FL-BODYPART=2
+
+	FL-LOCKED=15
+	FX?FL-LOCKED=1
+
+	FL-SURFACE=16
+	FX?FL-SURFACE=32768
+
+	FL-NO-CROWDS=17
+	FX?FL-NO-CROWDS=16384
+
+	FL-NO-ETHERIUM=18
+	FX?FL-NO-ETHERIUM=8192
+
+	FL-VOWEL=19
+	FX?FL-VOWEL=4096
+
+	FL-INDOORS=20
+	FX?FL-INDOORS=2048
+
+	FL-LOSE-IDENTITY=21
+	FX?FL-LOSE-IDENTITY=1024
+
+	FL-BROKEN=22
+	FX?FL-BROKEN=512
+
+	FL-HAS-DESCFCN=23
+	FX?FL-HAS-DESCFCN=256
+
+	FL-ASLEEP=24
+	FX?FL-ASLEEP=128
+
+	FL-NOALL=25
+	FX?FL-NOALL=64
+
+	FL-TRYTAKE=26
+	FX?FL-TRYTAKE=32
+
+	FL-FEMALE=27
+	FX?FL-FEMALE=16
+
+	FL-PLURAL=28
+	FX?FL-PLURAL=8
+
+	FL-NOARTC=29
+	FX?FL-NOARTC=4
+
+	FL-HAS-SDESC=30
+	FX?FL-HAS-SDESC=2
+
+	FL-NEEDS-IDENTITY=31
+	FX?FL-NEEDS-IDENTITY=1
+
+	FL-NODESC=32
+	FX?FL-NODESC=32768
+
+	FL-WEAPON=33
+	FX?FL-WEAPON=16384
+
+	FL-WORN=34
+	FX?FL-WORN=8192
+
+	FL-READABLE=35
+	FX?FL-READABLE=4096
+
+	FL-TOOL=36
+	FX?FL-TOOL=2048
+
+	FL-MONEY=37
+	FX?FL-MONEY=1024
+
+	FL-LIGHTED=38
+	FX?FL-LIGHTED=512
+
+	FL-TAKEABLE=39
+	FX?FL-TAKEABLE=256
+
+	FL-ALIVE=40
+	FX?FL-ALIVE=128
+
+	FL-FOOD=41
+	FX?FL-FOOD=64
+
+	FL-LAMP=42
+	FX?FL-LAMP=32
+
+	FL-KNIFE=43
+	FX?FL-KNIFE=16
+
+	FL-OPENABLE=44
+	FX?FL-OPENABLE=8
+
+	FL-BYHAND=45
+	FX?FL-BYHAND=4
+
+	FL-LOCATION=46
+	FX?FL-LOCATION=2
+
+	FL-PERSON=47
+	FX?FL-PERSON=1
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?REFRESH=0
+	V?VERIFY=1
+	V?ADJUST=2
+	V?POINT-AT-SWP=3
+	V?POINT-AT=4
+	V?REPLY=5
+	V?WALK-TO=6
+	V?ARAGON=7
+	V?ARREST=8
+	V?CLIMB-UP=9
+	V?ASK-ABOUT-1=10
+	V?ASK-FOR-1=11
+	V?QUESTION=12
+	V?ASK-ABOUT=13
+	V?ASK-FOR=14
+	V?KILL=15
+	V?WALK-AROUND=16
+	V?ESCAPE=17
+	V?BLOW-INTO=18
+	V?DETONATE=19
+	V?LAMP-OFF=20
+	V?ENTER=21
+	V?BOLEYN=22
+	V?BOW=23
+	V?MUNG=24
+	V?INHALE=25
+	V?EXHALE=26
+	V?DESC-LEVEL=27
+	V?GET-FOR=28
+	V?GET-FOR-SWP=29
+	V?BURN=30
+	V?BURN-WITH=31
+	V?BUY=32
+	V?BUY-FROM=33
+	V?GOODBYE=34
+	V?CALL=35
+	V?CAST-OFF=36
+	V?CLEAN=37
+	V?CLEAN-OFF=38
+	V?CLEVES=39
+	V?CLIMB-ON=40
+	V?CLIMB-DOWN=41
+	V?CLIMB-OVER=42
+	V?THROUGH=43
+	V?EXIT=44
+	V?CLOSE=45
+	V?PUT=46
+	V?PUT-BEHIND=47
+	V?PUT-UNDER=48
+	V?COUNT=49
+	V?COVER=50
+	V?CUT=51
+	V?DIAGNOSE=52
+	V?DIVE=53
+	V?LEAP=54
+	V?DRESS=55
+	V?DRINK=56
+	V?DRINK-FROM=57
+	V?DRIVE=58
+	V?DROP=59
+	V?PUT-ON=60
+	V?EAT=61
+	V?EMPTY=62
+	V?TAKE=63
+	V?EMPTY-INTO=64
+	V?EXAMINE=65
+	V?LOOK-INSIDE=66
+	V?FIND=67
+	V?LOOK-THRU=68
+	V?FEED-SWP=69
+	V?FEED=70
+	V?TOUCH=71
+	V?REACH-IN=72
+	V?FILL=73
+	V?REPAIR=74
+	V?FLIP=75
+	V?FLY=76
+	V?FOCUS-ON=77
+	V?FOLD=78
+	V?WRAP-AROUND=79
+	V?WRAP-AROUND-SWP=80
+	V?UNFOLD=81
+	V?FOLLOW=82
+	V?FOO=83
+	V?RAISE=84
+	V?LOWER=85
+	V?STAND-UNDER=86
+	V?TAKE-WITH=87
+	V?TAKE-OFF=88
+	V?GIN=89
+	V?WALK=90
+	V?STAND-ON=91
+	V?CROSS=92
+	V?GUESS=93
+	V?HAGGLE=94
+	V?GIVE=95
+	V?GIVE-SWP=96
+	V?HAUL=97
+	V?LISTEN=98
+	V?HEAT=99
+	V?HELLO=100
+	V?HINT=101
+	V?RESCUE=102
+	V?HINTS-NO=103
+	V?HIDE=104
+	V?HIT=105
+	V?TOUCH-TO=106
+	V?HOLD-OVER=107
+	V?OPEN=108
+	V?HOWARD=109
+	V?HUSH=110
+	V?SHINE-AT-SWP=111
+	V?INVENTORY=112
+	V?KICK=113
+	V?KISS=114
+	V?KNOCK=115
+	V?LAND=116
+	V?LAUNCH=117
+	V?PUSH=118
+	V?RELEASE=119
+	V?LIE-DOWN=120
+	V?LIGHT=121
+	V?LIGHT-WITH=122
+	V?LOCK=123
+	V?LOOK=124
+	V?LOOK-DOWN=125
+	V?LOOK-UP=126
+	V?DUMB-EXAMINE=127
+	V?LOOK-THRU-SWP=128
+	V?LOOK-UNDER=129
+	V?LOOK-BEHIND=130
+	V?LOOK-ON=131
+	V?LOOK-OUTSIDE=132
+	V?LOOSEN=133
+	V?MAKE=134
+	V?ECHO=135
+	V?MAYBE=136
+	V?MELT=137
+	V?MOVE=138
+	V?PUSH-TO=139
+	V?NO=140
+	V?WAVE-AT=141
+	V?NOTIFY=142
+	V?OPEN-WITH=143
+	V?PADDLE=144
+	V?PADDLE-WITH=145
+	V?PARR=146
+	V?PASSWORD=147
+	V?PAY=148
+	V?PICK=149
+	V?PLAY=150
+	V?POCKET=151
+	V?POINT=152
+	V?POUR=153
+	V?POUR-FROM=154
+	V?PRAY=155
+	V?PULL=156
+	V?UNPLUG=157
+	V?PLUG=158
+	V?THROW=159
+	V?WEAR=160
+	V?QUIT=161
+	V?TOUCH-TO-SWP=162
+	V?READ=163
+	V?READ-TO=164
+	V?READ-TO-SWP=165
+	V?REFUSE=166
+	V?REPLACE=167
+	V?RESTART=168
+	V?RESTORE=169
+	V?RIDE=170
+	V?RING=171
+	V?RIP=172
+	V?ROB=173
+	V?STEAL=174
+	V?ROW=175
+	V?RUB-WITH=176
+	V?SAVE=177
+	V?SAY=178
+	V?TELL=179
+	V?SCORE=180
+	V?SCRIPT=181
+	V?SEARCH=182
+	V?SELL=183
+	V?SELL-SWP=184
+	V?TUNE-TO=185
+	V?SEYMOUR=186
+	V?SHAKE=187
+	V?SHINE-AT=188
+	V?SHOOT=189
+	V?SHOOT-SWP=190
+	V?SHOW=191
+	V?SHOW-SWP=192
+	V?SIT=193
+	V?SMELL=194
+	V?SMOKE=195
+	V?SPIN=196
+	V?STAND=197
+	V?LAMP-ON=198
+	V?STRIKE=199
+	V?SWIM=200
+	V?SWING=201
+	V?SWORDFISH=202
+	V?TASTE=203
+	V?TELL-ABOUT=204
+	V?TELL-WHO=205
+	V?THANK=206
+	V?THROW-OVER=207
+	V?THROW-SWP=208
+	V?TIE=209
+	V?TIE-UP=210
+	V?TIP=211
+	V?TRANSLATE=212
+	V?TURN=213
+	V?TURN-TO=214
+	V?TURN-DOWN=215
+	V?TURN-UP=216
+	V?UNDRESS=217
+	V?UNLOCK=218
+	V?UNSCREW-FROM=219
+	V?UNTIE=220
+	V?USE=221
+	V?USE-ON=222
+	V?VERSION=223
+	V?WAIT=224
+	V?WAIT-FOR=225
+	V?ALARM=226
+	V?WATCH=227
+	V?WEDGE=228
+	V?WEIGH=229
+	V?WHAT=230
+	V?WHERE=231
+	V?WHO=232
+	V?WIND=233
+	V?YELL=234
+	V?YES=235
+	V?$SOUND=236
+
+; PROPERTIES ARE DEFINED HERE
+
+	P?NORTH=63
+	P?NE=62
+	P?EAST=61
+	P?SE=60
+	P?SOUTH=59
+	P?SW=58
+	P?WEST=57
+	P?NW=56
+	P?UP=55
+	P?DOWN=54
+	P?IN=53
+	P?OUT=52
+	P?VALUE=51
+	P?SIZE=50
+	P?STRENGTH=49
+	P?DEXTERITY=48
+	P?OBJ-ADJ=47
+	P?OBJ-NOUN=46
+	P?ACTION=45
+	P?SYNONYM=44
+	P?ADJECTIVE=43
+	P?GENERIC=42
+	P?CONTFCN=41
+	P?GLOBAL=40
+	P?PSEUDOS=39
+	P?FLIPPED=38
+	P?INSCRIPTION=37
+	P?HEATED=36
+
+; ADJECTIVES ARE DEFINED HERE
+
+
+; BUZZ WORDS ARE DEFINED HERE
+
+
+; PREPOSITIONS ARE DEFINED HERE
+
+	PR?AT=255
+	PR?WITH=254
+	PR?TO=253
+	PR?ABOUT=252
+	PR?FOR=251
+	PR?AWAY=250
+	PR?IN=249
+	PR?ON=248
+	PR?THROUGH=247
+	PR?UP=246
+	PR?OUT=245
+	PR?BEFORE=244
+	PR?OFF=243
+	PR?DOWN=242
+	PR?FROM=241
+	PR?OVER=240
+	PR?UNDER=239
+	PR?BEHIND=238
+	PR?AROUND=237
+	PR?AGAINST=236
+	PR?APART=235
+	PR?GO=234
+	PR?UNTIL=233
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+	ACT?KISS=255
+	ACT?SHUT=254
+	ACT?PULL=253
+	ACT?PUT=252
+	ACT?BRING=251
+	ACT?DIAL=250
+	ACT?VERBOSE=249
+	ACT?WALK=248
+	ACT?SHINE=247
+	ACT?QUIT=246
+	ACT?SEYMOUR=245
+	ACT?FIND=244
+	ACT?HEAR=243
+	ACT?YES=242
+	ACT?TRANSLATE=241
+	ACT?STOP=240
+	ACT?$SOUND=239
+	ACT?UNLOCK=238
+	ACT?READ=237
+	ACT?SAY=236
+	ACT?BREAK=235
+	ACT?JUMP=234
+	ACT?POUR=233
+	ACT?POCKET=232
+	ACT?WAIT=231
+	ACT?DIVE=230
+	ACT?TAKE=229
+	ACT?HAGGLE=228
+	ACT?NO=227
+	ACT?COUNT=226
+	ACT?INHALE=225
+	ACT?RAISE=224
+	ACT?CALL=223
+	ACT?SWORDFISH=222
+	ACT?FOLLOW=221
+	ACT?REFUSE=220
+	ACT?FLY=219
+	ACT?BOLEYN=218
+	ACT?$REFRESH=217
+	ACT?RESCUE=216
+	ACT?DRIVE=215
+	ACT?VERSION=214
+	ACT?WIND=213
+	ACT?ARAGON=212
+	ACT?LIGHT=211
+	ACT?LIE=210
+	ACT?MOVE=209
+	ACT?ARREST=208
+	ACT?LET=207
+	ACT?PLAY=206
+	ACT?OPEN=205
+	ACT?TASTE=204
+	ACT?BUY=203
+	ACT?HAUL=202
+	ACT?STEAL=201
+	ACT?TOUCH=200
+	ACT?APPROACH=199
+	ACT?BLOW=198
+	ACT?SHOOT=197
+	ACT?KNOCK=196
+	ACT?PADDLE=195
+	ACT?PICK=194
+	ACT?RIDE=193
+	ACT?LAND=192
+	ACT?SMOKE=191
+	ACT?BOARD=190
+	ACT?ESCAPE=189
+	ACT?PRAY=188
+	ACT?AIM=187
+	ACT?STAND=186
+	ACT?UNDRESS=185
+	ACT?LISTEN=184
+	ACT?TIE=183
+	ACT?WHERE=182
+	ACT?SHOW=181
+	ACT?UNSCREW=180
+	ACT?FOO=179
+	ACT?NOD=178
+	ACT?HELP=177
+	ACT?SAVE=176
+	ACT?TELL=175
+	ACT?THROW=174
+	ACT?FEED=173
+	ACT?DRESS=172
+	ACT?LOWER=171
+	ACT?USE=170
+	ACT?HIDE=169
+	ACT?SHAKE=168
+	ACT?INVENTORY=167
+	ACT?ATTACK=166
+	ACT?HUSH=165
+	ACT?KILL=164
+	ACT?ENTER=163
+	ACT?GIN=162
+	ACT?RENT=161
+	ACT?SEARCH=160
+	ACT?WEAR=159
+	ACT?PAY=158
+	ACT?DISEMBARK=157
+	ACT?ROB=156
+	ACT?SWIM=155
+	ACT?UNTIE=154
+	ACT?CUT=153
+	ACT?HOLD=152
+	ACT?TIP=151
+	ACT?ASCEND=150
+	ACT?SELL=149
+	ACT?SET=148
+	ACT?MELT=147
+	ACT?UNSCRIPT=146
+	ACT?ILLUMINATE=145
+	ACT?RING=144
+	ACT?PUSH=143
+	ACT?RUB=142
+	ACT?SIT=141
+	ACT?SUPER=140
+	ACT?RETREAT=139
+	ACT?BYE=138
+	ACT?LOOSEN=137
+	ACT?REACH=136
+	ACT?REPLACE=135
+	ACT?GUESS=134
+	ACT?SCORE=133
+	ACT?WEIGH=132
+	ACT?EXHALE=131
+	ACT?COVER=130
+	ACT?LOOK=129
+	ACT?EMPTY=128
+	ACT?FOLD=127
+	ACT?RIP=126
+	ACT?PARR=125
+	ACT?WORK=124
+	ACT?CAST=123
+	ACT?BOW=122
+	ACT?HOWARD=121
+	ACT?DROP=120
+	ACT?BACK=119
+	ACT?FEEL=118
+	ACT?LEAVE=117
+	ACT?HAND=116
+	ACT?HIT=115
+	ACT?NOTIFY=114
+	ACT?SCALE=113
+	ACT?PAT=112
+	ACT?SCRIPT=111
+	ACT?SPIN=110
+	ACT?$VERIFY=109
+	ACT?DESCEND=108
+	ACT?EXTINGUISH=107
+	ACT?SWING=106
+	ACT?RESTART=105
+	ACT?POKE=104
+	ACT?DETONATE=103
+	ACT?REPAIR=102
+	ACT?SMELL=101
+	ACT?BREATHE=100
+	ACT?BRIEF=99
+	ACT?ECHO=98
+	ACT?REPLY=97
+	ACT?GET=96
+	ACT?DIAGNOSE=95
+	ACT?SLEEP=94
+	ACT?WAKE=93
+	ACT?DRINK=92
+	ACT?PET=91
+	ACT?RETRACT=90
+	ACT?REMOVE=89
+	ACT?ANSWER=88
+	ACT?WHAT=87
+	ACT?YELL=86
+	ACT?LOCK=85
+	ACT?ADJUST=84
+	ACT?BURN=83
+	ACT?KICK=82
+	ACT?CLEVES=81
+	ACT?POINT=80
+	ACT?TURN=79
+	ACT?START=78
+	ACT?CLEAN=77
+	ACT?WHO=76
+	ACT?MAYBE=75
+	ACT?MAKE=74
+	ACT?FELL=73
+	ACT?RESTORE=72
+	ACT?CLOSE=71
+	ACT?STRIKE=70
+	ACT?FIX=69
+	ACT?GO=68
+	ACT?HEAT=67
+	ACT?SLIDE=66
+	ACT?WAVE=65
+	ACT?EXIT=64
+	ACT?EXAMINE=63
+	ACT?RELEASE=62
+	ACT?EMBARK=61
+	ACT?ROW=60
+	ACT?WEDGE=59
+	ACT?EAT=58
+	ACT?FILL=57
+	ACT?LEAN=56
+	ACT?FLIP=55
+	ACT?CLIMB=54
+	ACT?CONCEAL=53
+	ACT?FOCUS=52
+	ACT?LAUNCH=51
+	ACT?PASSWORD=50
+	ACT?THANK=49
+	ACT?WATCH=48
+	ACT?ASK=47
+	ACT?HELLO=46
+	ACT?UNFOLD=45
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	K-DEXIT=3
+	K-DOW-SN=2
+	SOG=16
+	MYCROFT-SEEN=4
+	K-O-PTR=0
+	K-NEXITSTR=0
+	SIR=32
+	DEXITSTR=2
+	K-D-PRN-OFF=-2
+	XEQUAL?=4
+	K-SIGN-HORRORS=2
+	K-P-SPREP1=0
+	K-P-ITBLLEN=9
+	K-P-P1OFF=7
+	S-ARMOR=3
+	K-P-SPREP2=4
+	K-P-ALL=1
+	S-FANFARE=9
+	K-P-SLEN-0=2
+	K-P-SLEN-1=4
+	K-NTI-MT=8
+	K-NIGHT=2000
+	K-P-SLEN-2=7
+	K-NDT-DD=2
+	K-NTI-MM=2
+	K-P-WORDLEN=4
+	DEXITOBJ=0
+	K-SEC=0
+	K-M-CANT=11
+	K-M-END=5
+	K-SIGN-ABBEY=0
+	S-START=2
+	S-HEART2=12
+	K-SIGN-HENRY=11
+	K-DAY=3
+	K-O-START=1
+	CAPACITY-VALS=102
+	K-D-REC-OFF=-4
+	K-P-SRCBOT=2
+	K-CEXIT=5
+	K-DOW-BASE=12
+	SERIAL=0
+	FEXIT=2
+	S-VIOLIN=15
+	K-H-BLD=2
+	K-GEM-BOX-NUM=600
+	K-WDT-MM=4
+	K-P-PREP1N=3
+	K-SIGN-BANK=6
+	K-NDT-MM=4
+	K-MIN=1
+	K-P-SFWIM1=2
+	K-P-SFWIM2=5
+	K-M-NLOOK=7
+	K-P-LEXSTART=1
+	K-M-ENTERING=2
+	K-D-SCR-OFF=-1
+	K-REXIT=0
+	K-P-NC1=6
+	K-P-OBJ-TBL-LEN=45
+	K-HOLMES-GEM?=2
+	K-SIGN-QUIET=1
+	Q-MAIN-MENU-LEN=13
+	S-BARK=5
+	K-NDT-YY=1
+	K-BELL-AWAY=0
+	XDIV=3
+	S-BOATING=6
+	K-NEXIT=4
+	K-M-FLOOK=6
+	XGRTR?=5
+	NEXITSTR=0
+	K-P-SRCALL=1
+	NEXIT=4
+	K-D-TBL-ON=3
+	SC=64
+	S-CLEANUP=4
+	K-PIGEON-TIRED=4
+	EN-ENTLEN=4
+	S-INIT=1
+	CAB-ROOM-IDS-LEN=37
+	K-HOLMES-HEAD?=1
+	XLESS?=6
+	MYCROFT-ASLEEP=2
+	S-HEART1=11
+	S-BEEP=1
+	S-CLOCK=7
+	K-P-VERBN=1
+	K-H-ITL=4
+	K-DEXITOBJ=1
+	K-SIGN-NELSON=8
+	K-P-NC2L=9
+	DEXIT=3
+	SHAVE=2
+	K-SIGN-BLANK=13
+	K-P-P1BITS=3
+	K-SIGN-MONUMENT=4
+	K-P-SLOC2=6
+	K-M-SDESC=13
+	K-P-LEXWORDS=1
+	K-D-REC-ON=4
+	SMANY=4
+	MASS-VALS=11
+	K-UEXIT=1
+	K-NTI-SM=16
+	STAKE=8
+	K-M-DESCFCN=12
+	XSUB=1
+	S-BOOP=2
+	K-H-NRM=0
+	K-M-WINNER=8
+	K-DESC-A=5
+	XADD=0
+	K-P-MATCHLEN=0
+	K-SUNSET=1930
+	K-O-LENGTH=2
+	K-DEXITSTR=2
+	CEXIT=5
+	EN-NOARTC=1
+	K-SIGN-MUSEUM=3
+	UEXIT=1
+	K-P-PREP2=4
+	K-D-PRN-ON=2
+	K-O-END=3
+	K-DAYTIME=700
+	K-M-DESC-3=16
+	K-M-EXIT=4
+	K-WDT-EN=32
+	K-M-DESC-2=15
+	SIZE-VALS=13
+	XMUL=2
+	K-WDT-DS=8
+	K-M-DESC-1=14
+	S-HORSE=14
+	S-FARBEN=17
+	K-A-TWDTH=4
+	S-GROWL=10
+	K-DOW-EN=4
+	K-S-WIN=1
+	K-GROWLER-TIME=4
+	K-P-INHIBIT=4
+	MYCROFT-LOCKED=1
+	K-H-INV=1
+	K-HANSOM-TIME=2
+	K-DESC-THE=2
+	CEXITFLAG=1
+	K-WDT-YY=1
+	K-M-BEG=1
+	S-STOP=3
+	K-A-TSIZE=120
+	K-BELL-TOWARDS=1
+	EN-VOWEL=8
+	K-WDT-DD=2
+	K-A-RSIZE=30
+	K-NTI-SS=1
+	K-P-INBUF-SIZE=80
+	K-P-SLOC1=3
+	K-SIGN-TOWER=7
+	K-PIGEON-GET-RUBY=2
+	FEXITFCN=0
+	K-CEXITFLG=1
+	EN-PERSON=4
+	K-P-ONE=2
+	K-SUNRISE=630
+	S-SNORE=16
+	K-P-VERB=0
+	RETURN-SEE-HINT-LEN=18
+	K-SIGN-GOLDBAR=10
+	GL-BLANKS-LEN=10
+	K-P-PSOFF=6
+	K-D-TBL-OFF=-3
+	K-M-CONT=9
+	CEXITSTR=1
+	K-DOW-DW=1
+	S-CROWD=8
+	K-DESC-ANY=1
+	K-HRS=2
+	K-PEXIT=2
+	LOW-DIRECTION=52
+	K-P-PREP1=2
+	K-SIGN-BLIGH=5
+	K-P-LEXELEN=2
+	K-P-SACTION=1
+	K-P-NC2=8
+	K-NTI-HH=4
+	K-M-ENTERED=3
+	K-SIGN-LOITER=9
+	S-BADVIOL=4
+	S-HEART3=13
+	K-D-SCR-ON=1
+	K-P-NC1L=7
+	K-P-SRCTOP=0
+	K-S-NOR=0
+	REXIT=0
+	EN-ALIVE=2
+	SH=128
+	K-WDT-SN=16
+	K-SIGN-MARQUEES=12
+	K-PEXITRTN=0
+	K-M-OBJDESC=10
+	K-PIGEON-SHOWN-RUBY=1
+	GL-ALARM-STOP-OFFSET=0
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR TH-BOX-LOCK-AUX1=0
+	.GVAR K-EAU-DE-MSG=STR?100
+	.GVAR TH-CAB-WHISTLE-AUX2=0
+	.GVAR GL-HOLES=T?125
+	.GVAR GL-P-ACLAUSE=0
+	.GVAR K-ENJOYING-RIDE-MSG=STR?95
+	.GVAR GL-P-NCN=0
+	.GVAR GL-P-BUTS=T?2101
+	.GVAR GL-HINT-WARNING=0
+	.GVAR GL-NOT-LIKELY-TXT=T?3101
+	.GVAR GL-P-TIME-FLAG=0,FLAG
+	.GVAR TH-ROPE-AUX1=-1
+	.GVAR GL-STAT-T-POS=40
+	.GVAR K-DONT-UNDERSTAND-MSG=STR?59
+	.GVAR GL-CHAPT-NUM=1
+	.GVAR GL-OOPS-TABLE=T?1501
+	.GVAR GL-WIGGINS-DESC-TXT=T?2801
+	.GVAR GL-FORMER-PUPPY=0,OBJECT
+	.GVAR GL-P-PRSO=T?1901
+	.GVAR GL-DEBUG-FLAG=0,FLAG
+	.GVAR K-SMOULDERS-MSG=STR?181
+	.GVAR GL-P-AADJ=0
+	.GVAR GL-P-AND=0
+	.GVAR GL-P-END-ON-PREP=0
+	.GVAR K-HINTS=PT?10710
+	.GVAR GL-P-QUOT=0,FLAG
+	.GVAR GL-SCORE-STS=0,NUMBER
+	.GVAR GL-P-HIM-OBJECT=0,OBJECT
+	.GVAR K-EYES-HINGED-MSG=STR?171
+	.GVAR K-ASTERISK-MSG=STR?168
+	.GVAR GL-BORING-TXT=T?3401
+	.GVAR K-WELL-WORN-MSG=STR?146
+	.GVAR GL-P-MERGED=0
+	.GVAR GL-P-ITBL=T?1001
+	.GVAR GL-PLACE-PRV=0,OBJECT
+	.GVAR K-BRAND-MSG=STR?180
+	.GVAR K-CUSTOMARILY-KEEP-MSG=STR?117
+	.GVAR K-FIDGETING-MSG=STR?92
+	.GVAR MYCROFT-STATE=3
+	.GVAR K-GOOD-LOOK-MSG=STR?176
+	.GVAR GL-WHERE-TO-PROMPT?=0,FLAG
+	.GVAR GL-TIME-UPDT-INC=T?404
+	.GVAR K-FOUGHT-WELL-MSG=STR?177
+	.GVAR K-HOW-TO-MSG=STR?131
+	.GVAR K-PITY-MSG=STR?139
+	.GVAR LAST-PSEUDO-LOC=0
+	.GVAR CH-VENDOR-AUX1=0
+	.GVAR K-DO-IT-YOURSELF-MSG=STR?129
+	.GVAR K-RICOCHET-MSG=STR?99
+	.GVAR TH-DIAL-AUX1=0
+	.GVAR GL-P-QCONTEXT-TH=0,OBJECT
+	.GVAR GL-P-DIR=0,NUMBER
+	.GVAR K-BETTER-SUCCESS-MSG=STR?127
+	.GVAR GL-P-GWIMBIT=0
+	.GVAR CH-WIGGINS-AUX1=0
+	.GVAR GL-LINE-TABLE=PT?110,TABLE
+	.GVAR TH-BOAT-AUX1=0
+	.GVAR K-BE-MORE-SPECIFIC-MSG=STR?60
+	.GVAR CH-TRAINED-PIGEON-AUX2=0
+	.GVAR RUN-SMELL-ETHERIUM?=0
+	.GVAR GL-P-WALK-DIR=0,PROPERTY
+	.GVAR GL-FUNNY-CLAUSE?=0
+	.GVAR GL-WAIT-BELL=0,FLAG
+	.GVAR GL-P-TIME=T?2401
+	.GVAR GL-CLOSED-OBJECT=0,OBJECT
+	.GVAR GL-LONG-OOPS=3
+	.GVAR K-AMBULATORY-MSG=STR?172
+	.GVAR GLOBAL-VARS-TABLE=T?126,TABLE
+	.GVAR BELIEVE-WAIT-TIME?=0
+	.GVAR K-GET-OUT-FIRST-MSG=STR?179
+	.GVAR TH-SAFETY-DEPOSIT-BOX-AUX1=0
+	.GVAR PLAYER-IN-ABBEY=0
+	.GVAR K-CLOSED-AND-LOCKED-MSG=STR?97
+	.GVAR SOUND-QUEUED?=0
+	.GVAR GL-DESC-LEVEL=2,NUMBER
+	.GVAR K-ANCHOR-ALREADY-OUT-MSG=STR?108
+	.GVAR K-CAB-HERE-MSG=STR?63
+	.GVAR GL-P-XADJ=0
+	.GVAR CH-BANK-GUARD-AUX1=0
+	.GVAR K-SIGN-HERE-MSG=STR?163
+	.GVAR GL-P-P-LEX=T?501
+	.GVAR GL-P-SYNTAX=0,NUMBER
+	.GVAR GL-P-MOBY-FOUND=0
+	.GVAR K-ANOTHER-PHIAL-MSG=STR?106
+	.GVAR GL-P-PRSA-WORD=0,TABLE
+	.GVAR HEARD-SWING?=0
+	.GVAR GL-HOLMES-OUTDOORS-LOOK-TXT=T?4101
+	.GVAR K-BUTLER-ACCEPTS-MSG=STR?89
+	.GVAR GL-P-OCLAUSE=T?2301
+	.GVAR GL-HOLMES-HOUSE-LOOK-TXT=T?3901
+	.GVAR K-SPECIFY-DIR-MSG=STR?136
+	.GVAR K-MUST-BE-IN-BOAT-MSG=STR?109
+	.GVAR GL-PUPPY=0,OBJECT
+	.GVAR GL-TIME=T?104
+	.GVAR GL-P-ANAM=0
+	.GVAR GL-RESERVE-PTR=0
+	.GVAR TH-HANSOM-CAB-AUX2=0
+	.GVAR K-ANNIE-OAKELEY-MSG=STR?115
+	.GVAR TH-BELL-AUX2=0
+	.GVAR GL-SCORE-MSG=1,FLAG
+	.GVAR GL-PLACE-CUR=0,OBJECT
+	.GVAR K-DIZZY-MSG=STR?112
+	.GVAR GL-P-TABLE=0,NUMBER
+	.GVAR PASSWORD-ID=0
+	.GVAR RM-HOLMES-STUDY-AUX1=0
+	.GVAR K-SHATTER-MSG=STR?116
+	.GVAR K-CANT-LEAVE-MSG=STR?102
+	.GVAR GL-NOW-PRSI?=0,FLAG
+	.GVAR GL-P-HER-OBJECT=0,OBJECT
+	.GVAR GL-COLUMN-TABLE=PT?210
+	.GVAR GL-LISTEN-OBJ=0,OBJECT
+	.GVAR TH-GUN-AUX1=6
+	.GVAR GL-PRSO=0,OBJECT
+	.GVAR GL-P-NUMBER=-1,NUMBER
+	.GVAR WIGGINS-COLD?=0
+	.GVAR K-CANT-WAIT-MSG=STR?186
+	.GVAR GL-HOLMES-INDOORS-LOOK-TXT=T?3701
+	.GVAR GL-STAT-MAX-ROOM=39
+	.GVAR GL-YES-IBUF=T?101
+	.GVAR GL-PRSI=0,OBJECT
+	.GVAR SOUND-ON?=1
+	.GVAR GL-P-CONT=0,FLAG
+	.GVAR GL-P-PHR=0
+	.GVAR K-NO-RESTING-MSG=STR?111
+	.GVAR GL-ALARM-WAIT=0,FLAG
+	.GVAR K-EVERYONE-OUT-MSG=STR?173
+	.GVAR GL-LAST-OUT-TOD=0,NUMBER
+	.GVAR K-SORRY-MATE-MSG=STR?94
+	.GVAR WINNER-IS-WIGGINS=0
+	.GVAR GL-AGAIN-DIR=0,PROPERTY
+	.GVAR GL-ALW-LIT?=0,FLAG
+	.GVAR K-ENOUGH-ROOM-MSG=STR?187
+	.GVAR GL-P-ORPH=0,FLAG
+	.GVAR GL-PUPPY-MSG?=1,FLAG
+	.GVAR GL-P-OFW=T?1801
+	.GVAR GL-IN-OUT=0,FLAG
+	.GVAR GL-LOC-TRAIL=T?401
+	.GVAR TH-PACKET-OF-PAPER-AUX1=0
+	.GVAR LOOPING?=-1
+	.GVAR LOOP-VOL=0
+	.GVAR KNIFE-COLD?=1
+	.GVAR GL-DAY-NAME=PT?104
+	.GVAR GL-P-PRSI=T?2001
+	.GVAR GL-P-ADJW=T?1701
+	.GVAR GL-WHERE-TO-ORPH?=0,FLAG
+	.GVAR GL-P-MERGE=T?2201
+	.GVAR GL-P-OVTBL=T?1301
+	.GVAR GL-NOW-LIT?=1,FLAG
+	.GVAR TH-ROPE-AUX2=-1
+	.GVAR K-BULLET-MSG=STR?185
+	.GVAR GL-PRSA=0,VERB
+	.GVAR GL-SCORE-MAX=0,NUMBER
+	.GVAR GL-SHORT-STAT?=0
+	.GVAR GL-DIROUT-TBL=T?1910
+	.GVAR TH-BOX-KEY-AUX1=0
+	.GVAR GL-SCORE-CUR=0,NUMBER
+	.GVAR GL-HINTS-OFF=0
+	.GVAR TH-SAPPHIRE-AUX1=2
+	.GVAR GL-STAT-S-POS=11
+	.GVAR GL-P-THEM-OBJECT=0,OBJECT
+	.GVAR GL-MOVES-CUR=0,NUMBER
+	.GVAR GL-P-NAMW=T?1601
+	.GVAR GL-ALARM-EXEC=0,FLAG
+	.GVAR GL-CLOCK-STOP=0,FLAG
+	.GVAR GL-P-XNAM=0
+	.GVAR GL-SCORE-HEADER-LEN=6
+	.GVAR GL-A-TIME=T?704
+	.GVAR GL-MIDSCREEN=0,NUMBER
+	.GVAR TH-HANSOM-CAB-AUX1=0
+	.GVAR GL-HOLMES-DESC-TXT=T?2501
+	.GVAR GL-P-S-LEX=T?601
+	.GVAR GL-P-OF=0
+	.GVAR GL-P-PIBUF=T?801
+	.GVAR K-SUICIDE-MSG=STR?134
+	.GVAR GL-CLOCK-FMT=0,NUMBER
+	.GVAR K-SPECIFY-MSG=STR?93
+	.GVAR GL-P-ADJ=0
+	.GVAR GL-P-LEN=0,NUMBER
+	.GVAR TH-DIAL-AUX2=0
+	.GVAR INHIBIT-ROOMS=0
+	.GVAR K-AFTER-YOU-MSG=STR?101
+	.GVAR K-DROP-IT-FIRST-MSG=STR?120
+	.GVAR K-TOO-DARK-MSG=STR?58
+	.GVAR TH-CAB-WHISTLE-AUX1=0
+	.GVAR TH-GROWLER-CAB-AUX1=0
+	.GVAR GL-P-OVERFLOW=0,FLAG
+	.GVAR K-SIMPLE-TOMB-MSG=STR?141
+	.GVAR GL-P-SLOCBITS=0
+	.GVAR CH-TRAINED-PIGEON-AUX3=0
+	.GVAR GL-ALLSCREEN=0,NUMBER
+	.GVAR GL-A-ROUT=T?604
+	.GVAR BOX-KEY-COLD?=0
+	.GVAR TH-PHIAL-AUX1=0
+	.GVAR GL-P-NAM=0
+	.GVAR GL-CAN-UNDO=0,NUMBER
+	.GVAR GL-P-T-LEX=T?701
+	.GVAR K-HEAVY-ARMOUR-MSG=STR?145
+	.GVAR K-ILL-HOLD-IT-MSG=STR?96
+	.GVAR CH-TRAINED-PIGEON-AUX1=0
+	.GVAR GL-P-OTBL=T?1101
+	.GVAR GL-WINNER=0,OBJECT
+	.GVAR GL-P-DIRECTION=0
+	.GVAR GL-P-VTBL=T?1201
+	.GVAR K-INAPPROPRIATE-MSG=STR?130
+	.GVAR K-BRIGHTENS-UP-MSG=STR?165
+	.GVAR K-BREATH-TAKING-MSG=STR?142
+	.GVAR K-MAYBE-MSG=STR?140
+	.GVAR CAB-ROOM-IDS=PT?119
+	.GVAR GL-YES-LEXV=T?201
+	.GVAR GL-WIGGINS-LOOK-TXT=T?4301
+	.GVAR GL-QUEST-NUM=1
+	.GVAR K-SEEMS-TO-HEAR-MSG=STR?119
+	.GVAR GL-WINDOW=0,NUMBER
+	.GVAR GL-MOVES-STS=0,NUMBER
+	.GVAR CH-HOLMES-AUX1=0
+	.GVAR GL-PLACE-STS=0,OBJECT
+	.GVAR TH-BELL-AUX1=0
+	.GVAR GL-LASTFOC=0,OBJECT
+	.GVAR GL-CUR-POS=0
+	.GVAR GL-P-QCONTEXT-RM=0,OBJECT
+	.GVAR K-GOOD-SHOW-MSG=STR?138
+	.GVAR GL-TIME-UPDT-DEF=T?504
+	.GVAR GL-CLOCK-WAIT=0,FLAG
+	.GVAR K-BRAVO-MSG=STR?175
+	.GVAR GL-P-MULT?=0,FLAG
+	.GVAR GL-P-GOOD=0,FLAG
+	.GVAR ALLOW-IN-TOWER=0
+	.GVAR GL-P-RIBUF=T?901
+	.GVAR GL-P-GET-FLAGS=0
+	.GVAR GL-TEMP-TIME=T?204
+	.GVAR CAB-RAMP=0
+	.GVAR K-THEFT-MSG=STR?135
+	.GVAR GL-P-IT-OBJECT=0,OBJECT
+	.GVAR CH-ELIZA-DOOLITTLE-AUX1=0
+	.GVAR GL-NO-POINT-TXT=T?3501
+	.GVAR GL-TIME-PARM=T?304
+	.GVAR GL-P-DIR-WORD=0,TABLE
+	.GVAR GL-OOPS-INBUF=T?1401
+	.GVAR K-CONFUSED-MSG=STR?125
+	.GVAR GL-SPLIT-ROW=1,NUMBER
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+OBJECT::.TABLE 
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;(P?HEATED)
+	0			;(P?INSCRIPTION)
+	0			;(P?FLIPPED)
+	0			;(P?PSEUDOS)
+	0			;(P?GLOBAL)
+	0			;(P?CONTFCN)
+	0			;(P?GENERIC)
+	0			;(P?ADJECTIVE)
+	0			;(P?SYNONYM)
+	0			;(P?ACTION)
+	0			;(P?OBJ-NOUN)
+	0			;(P?OBJ-ADJ)
+	10			;(P?DEXTERITY)
+	10			;(P?STRENGTH)
+	0			;(P?SIZE)
+	0			;(P?VALUE)
+	0			;(P?OUT)
+	0			;(P?IN)
+	0			;(P?DOWN)
+	0			;(P?UP)
+	0			;(P?NW)
+	0			;(P?WEST)
+	0			;(P?SW)
+	0			;(P?SOUTH)
+	0			;(P?SE)
+	0			;(P?EAST)
+	0			;(P?NE)
+	0			;(P?NORTH)
+	.OBJECT RM-CHAMBER-OF-HORRORS,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,0,ROOMS,RM-MADAME-TUSSAUDS,TH-FAWKES-STATUE,T?RM-CHAMBER-OF-HORRORS
+	.OBJECT LG-BAR-OF-GOLD-DOOR,FX?FL-OPENED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-BANK-VAULT-DOOR,0,T?LG-BAR-OF-GOLD-DOOR
+	.OBJECT RM-VESTIBULE,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-PARLOUR,0,T?RM-VESTIBULE
+	.OBJECT LG-BRITISH-MUSEUM-DOOR,FX?FL-LOCKED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-JERICHO-PARLOUR-DOOR,0,T?LG-BRITISH-MUSEUM-DOOR
+	.OBJECT RM-MARYLEBONE-RD,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-YORK-PLACE,CH-TUSSAUDS-GUARD,T?RM-MARYLEBONE-RD
+	.OBJECT RM-AUDLEY-ST,0,FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-ORCHARD-ST,0,T?RM-AUDLEY-ST
+	.OBJECT RM-NORTH-TRANSEPT,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-SOUTH-TRANSEPT,TH-FIGURES,T?RM-NORTH-TRANSEPT
+	.OBJECT LG-WINDOW,FX?FL-TRANSPARENT,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-PLAQUES,0,T?LG-WINDOW
+	.OBJECT LG-JERICHO-PARLOUR-DOOR,FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-LAIR-DOOR,0,T?LG-JERICHO-PARLOUR-DOOR
+	.OBJECT RM-JERICHO-PARLOUR,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-SOUTH-AISLE,0,T?RM-JERICHO-PARLOUR
+	.OBJECT RM-KENSINGTON-GARDENS,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-HYDE-PARK-CORNER,TH-PARK-FLOWERS,T?RM-KENSINGTON-GARDENS
+	.OBJECT RM-PARLIAMENT,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-PARLIAMENT-SQUARE,0,T?RM-PARLIAMENT
+	.OBJECT RM-NEW-OXFORD-ST,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-THE-BLACK-MUSEUM,0,T?RM-NEW-OXFORD-ST
+	.OBJECT LG-TOMBS-ABBEY,0,FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-PLURAL+FX?FL-TRYTAKE,0,LOCAL-GLOBALS,LG-WINDOW,0,T?LG-TOMBS-ABBEY
+	.OBJECT RM-NAVE,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-LAIR,TH-NEWTON-TOMB,T?RM-NAVE
+	.OBJECT RM-SHERMANS-HOUSE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-ASLEEP+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-PINCHIN-LANE,CH-SHERMAN,T?RM-SHERMANS-HOUSE
+	.OBJECT RM-SANCTUARY,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-SOUTH-AMBULATORY,TH-ANNE-OF-CLEVES-TOMB,T?RM-SANCTUARY
+	.OBJECT RM-BRITISH-MUSEUM,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-GREAT-RUSSELL-ST,0,T?RM-BRITISH-MUSEUM
+	.OBJECT RM-SOUTH-AMBULATORY,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-POETS-CORNER,0,T?RM-SOUTH-AMBULATORY
+	.OBJECT RM-POETS-CORNER,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-NORTH-TRANSEPT,TH-CHAUCER-TOMB,T?RM-POETS-CORNER
+	.OBJECT RM-THE-BLACK-MUSEUM,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-INDOORS,0,ROOMS,RM-SCOTLAND-YARD,TH-BLIGH-BOAT,T?RM-THE-BLACK-MUSEUM
+	.OBJECT RM-DIOGENES-CLUB,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-TRAFALGAR-SQUARE,CH-MEMBERS,T?RM-DIOGENES-CLUB
+	.OBJECT RM-QUEENS-GARDENS,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-BUCKINGHAM-PALACE-RD,CH-PALACE-GUARD,T?RM-QUEENS-GARDENS
+	.OBJECT RM-TOWER-ENTRANCE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN,0,ROOMS,RM-LONDON-BRIDGE,0,T?RM-TOWER-ENTRANCE
+	.OBJECT RM-SWAN-LANE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-TOWER-ENTRANCE,0,T?RM-SWAN-LANE
+	.OBJECT LG-UP-DOWN-STREAM,0,FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC,FX?FL-NODESC,LOCAL-GLOBALS,LG-WATER,0,T?LG-UP-DOWN-STREAM
+	.OBJECT RM-BIRDCAGE-WALK,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-BUCKINGHAM-PALACE,CH-VENDOR,T?RM-BIRDCAGE-WALK
+	.OBJECT RM-BANK-OF-ENGLAND,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-THREADNEEDLE-ST,0,T?RM-BANK-OF-ENGLAND
+	.OBJECT RM-OUTER-WARD,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL,0,ROOMS,RM-BYWARD-TOWER,0,T?RM-OUTER-WARD
+	.OBJECT RM-JERUSALEM-CHAMBER,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-JERICHO-PARLOUR,0,T?RM-JERUSALEM-CHAMBER
+	.OBJECT RM-BOWYER-TOWER,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-TOWER-GREEN,TH-BUTT-OF-MALMSEY,T?RM-BOWYER-TOWER
+	.OBJECT LG-SHOPS,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,0,LOCAL-GLOBALS,LG-WESTMINSTER-DOOR,0,T?LG-SHOPS
+	.OBJECT RM-HOLMES-BEDROOM,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-HOLMES-STUDY,TH-BED,T?RM-HOLMES-BEDROOM
+	.OBJECT LG-STAIRWAY,0,FX?FL-NOALL+FX?FL-TRYTAKE,0,LOCAL-GLOBALS,LG-STREETLIGHT,0,T?LG-STAIRWAY
+	.OBJECT LG-BAKER-ST-DOOR,FX?FL-LOCKED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,TH-RING,0,T?LG-BAKER-ST-DOOR
+	.OBJECT RM-HENRY-VII-CHAPEL,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-EVANGELIST-CHAPEL,TH-HENRY-VII-TOMB,T?RM-HENRY-VII-CHAPEL
+	.OBJECT RM-PARLOUR,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-ENTRY-HALL,TH-MATCHBOOK,T?RM-PARLOUR
+	.OBJECT RM-221B-BAKER-ST,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,FX?FL-LIGHTED,ROOMS,0,0,T?RM-221B-BAKER-ST
+	.OBJECT RM-VICTORIA-STREET,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-VICTORIA-SQUARE,0,T?RM-VICTORIA-STREET
+	.OBJECT RM-COVENT-GARDEN,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-NEW-OXFORD-ST,CH-HOUSEWIVES,T?RM-COVENT-GARDEN
+	.OBJECT RM-BAR-OF-GOLD,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-SWAN-LANE,TH-OPIUM-GAS,T?RM-BAR-OF-GOLD
+	.OBJECT RM-DRAWBRIDGE,0,FX?FL-NO-CROWDS+FX?FL-SURFACE+FX?FL-HAS-DESCFCN,0,ROOMS,RM-INNOCENTS-CORNER,0,T?RM-DRAWBRIDGE
+	.OBJECT LG-BANK-VAULT-DOOR,FX?FL-LOCKED+FX?FL-DOOR,FX?FL-HAS-DESCFCN,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-HOLMES-BEDROOM-DOOR,TH-DIAL,T?LG-BANK-VAULT-DOOR
+	.OBJECT RM-THAMES-TWO,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-THAMES-ONE,0,T?RM-THAMES-TWO
+	.OBJECT RM-OXFORD-ST,0,FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-ST-GILES-CIRCUS,TH-GROWLER-CAB,T?RM-OXFORD-ST
+	.OBJECT RM-GROSVENOR-PLACE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-MANUSCRIPT-ROOM,0,T?RM-GROSVENOR-PLACE
+	.OBJECT RM-KING-WILLIAM-ST,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-BANK-VAULT,0,T?RM-KING-WILLIAM-ST
+	.OBJECT LG-BOATS,0,FX?FL-HAS-DESCFCN,FX?FL-NODESC,LOCAL-GLOBALS,LG-RAVENS,0,T?LG-BOATS
+	.OBJECT RM-NORTH-CHAPEL-AISLE,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-SOUTH-CHAPEL-AISLE,TH-ELIZABETH-TOMB,T?RM-NORTH-CHAPEL-AISLE
+	.OBJECT LG-TOWER,0,0,0,LOCAL-GLOBALS,LG-BOATS,0,T?LG-TOWER
+	.OBJECT RM-MANUSCRIPT-ROOM,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-BRITISH-MUSEUM,TH-LIBRARY-TABLE,T?RM-MANUSCRIPT-ROOM
+	.OBJECT RM-WHITEHALL,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-THE-MALL,0,T?RM-WHITEHALL
+	.OBJECT RM-CONFESSOR-CHAPEL,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-HENRY-VII-CHAPEL,TH-HENRY-V-TOMB,T?RM-CONFESSOR-CHAPEL
+	.OBJECT RM-BLOODY-TOWER,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-OUTER-WARD,0,T?RM-BLOODY-TOWER
+	.OBJECT RM-TOWER-GREEN,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN,0,ROOMS,RM-WHITE-TOWER,0,T?RM-TOWER-GREEN
+	.OBJECT RM-BYWARD-TOWER,FX?FL-LOCKED,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-DRAWBRIDGE,CH-TOWER-GUARD,T?RM-BYWARD-TOWER
+	.OBJECT RM-SCOTLAND-YARD,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-WHITEHALL,0,T?RM-SCOTLAND-YARD
+	.OBJECT RM-EVANGELIST-CHAPEL,0,FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-NORTH-AMBULATORY,TH-VERE-TOMB,T?RM-EVANGELIST-CHAPEL
+	.OBJECT RM-JEWEL-ROOM,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-WAKEFIELD-TOWER,TH-MACE,T?RM-JEWEL-ROOM
+	.OBJECT RM-CHEAPSIDE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-SHERMANS-HOUSE,0,T?RM-CHEAPSIDE
+	.OBJECT RM-ORCHARD-ST,0,FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-OXFORD-ST,0,T?RM-ORCHARD-ST
+	.OBJECT RM-BANK-VAULT,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-BANK-OF-ENGLAND,TH-BOXES,T?RM-BANK-VAULT
+	.OBJECT RM-BROAD-SANCTUARY,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-VICTORIA-STREET,0,T?RM-BROAD-SANCTUARY
+	.OBJECT RM-INNOCENTS-CORNER,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-NORTH-CHAPEL-AISLE,TH-LITTLE-PRINCES-TOMB,T?RM-INNOCENTS-CORNER
+	.OBJECT RM-THAMES-THREE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-THAMES-TWO,TH-CLUMP-OF-MOSS,T?RM-THAMES-THREE
+	.OBJECT LG-PLAQUES,0,FX?FL-HAS-DESCFCN+FX?FL-SURFACE+FX?FL-NOALL+FX?FL-TRYTAKE,0,LOCAL-GLOBALS,LG-UP-DOWN-STREAM,0,T?LG-PLAQUES
+	.OBJECT RM-BUCKINGHAM-PALACE-RD,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-CLOCK-TOWER,0,T?RM-BUCKINGHAM-PALACE-RD
+	.OBJECT RM-LAIR,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-BAR-OF-GOLD,TH-MORIARTY-DESK,T?RM-LAIR
+	.OBJECT RM-PARLIAMENT-SQUARE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-BROAD-SANCTUARY,0,T?RM-PARLIAMENT-SQUARE
+	.OBJECT LG-HOLMES-STUDY-DOOR,FX?FL-OPENED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-PARLOUR-DOOR,0,T?LG-HOLMES-STUDY-DOOR
+	.OBJECT RM-YORK-PLACE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-HOLMES-BEDROOM,0,T?RM-YORK-PLACE
+	.OBJECT RM-THE-EMBANKMENT,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-FLEET-STREET,TH-BOAT,T?RM-THE-EMBANKMENT
+	.OBJECT RM-MADAME-TUSSAUDS,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-MARYLEBONE-RD,TH-ASH,T?RM-MADAME-TUSSAUDS
+	.OBJECT RM-HYDE-PARK-CORNER,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-AUDLEY-ST,0,T?RM-HYDE-PARK-CORNER
+	.OBJECT RM-WAKEFIELD-TOWER,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-BLOODY-TOWER,0,T?RM-WAKEFIELD-TOWER
+	.OBJECT RM-THE-MALL,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-BIRDCAGE-WALK,0,T?RM-THE-MALL
+	.OBJECT LG-SHAFT-OF-LIGHT,0,FX?FL-HAS-DESCFCN,FX?FL-NODESC,LOCAL-GLOBALS,LG-STAIRWAY,0,T?LG-SHAFT-OF-LIGHT
+	.OBJECT RM-PINCHIN-LANE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-UPPER-THAMES-ST,0,T?RM-PINCHIN-LANE
+	.OBJECT LG-WATER,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-NOARTC+FX?FL-HAS-SDESC+FX?FL-SURFACE,FX?FL-NODESC,LOCAL-GLOBALS,LG-SHOPS,TH-ANCHOR,T?LG-WATER
+	.OBJECT LG-RAVENS,0,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-ALIVE+FX?FL-NODESC,LOCAL-GLOBALS,LG-COLUMNS,0,T?LG-RAVENS
+	.OBJECT RM-CLOCK-TOWER,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-PARLIAMENT,TH-RAILING,T?RM-CLOCK-TOWER
+	.OBJECT RM-THREADNEEDLE-ST,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-CHEAPSIDE,CH-URCHINS,T?RM-THREADNEEDLE-ST
+	.OBJECT LG-LAIR-DOOR,FX?FL-LOCKED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-BAR-OF-GOLD-DOOR,0,T?LG-LAIR-DOOR
+	.OBJECT RM-LOWER-THAMES-ST,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-MONUMENT,0,T?RM-LOWER-THAMES-ST
+	.OBJECT RM-TOTTENHAM-COURT-RD,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-CHAMBER-OF-HORRORS,0,T?RM-TOTTENHAM-COURT-RD
+	.OBJECT RM-LONDON-BRIDGE,0,FX?FL-SURFACE+FX?FL-HAS-DESCFCN+FX?FL-NOARTC,FX?FL-NODESC,ROOMS,RM-LOWER-THAMES-ST,0,T?RM-LONDON-BRIDGE
+	.OBJECT RM-MONUMENT,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-KING-WILLIAM-ST,0,T?RM-MONUMENT
+	.OBJECT RM-SOUTH-CHAPEL-AISLE,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-CONFESSOR-CHAPEL,TH-MARY-QUEEN-OF-SCOTS-TOMB,T?RM-SOUTH-CHAPEL-AISLE
+	.OBJECT RM-INSIDE-TRAITORS-GATE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-BOWYER-TOWER,TH-PORTCULLIS-CHAIN,T?RM-INSIDE-TRAITORS-GATE
+	.OBJECT LG-MARBLE,0,0,FX?FL-NODESC,LOCAL-GLOBALS,LG-SHAFT-OF-LIGHT,0,T?LG-MARBLE
+	.OBJECT RM-ST-GILES-CIRCUS,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-TOTTENHAM-COURT-RD,0,T?RM-ST-GILES-CIRCUS
+	.OBJECT RM-THAMES-FOUR,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-THAMES-THREE,0,T?RM-THAMES-FOUR
+	.OBJECT RM-HOLMES-STUDY,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-VESTIBULE,TH-SOFA,T?RM-HOLMES-STUDY
+	.OBJECT RM-WHITE-TOWER,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-TORTURE-ROOM,0,T?RM-WHITE-TOWER
+	.OBJECT RM-DUNGEON,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-JEWEL-ROOM,TH-SUIT-OF-ARMOUR,T?RM-DUNGEON
+	.OBJECT RM-VICTORIA-SQUARE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-GROSVENOR-PLACE,TH-HANSOM-CAB,T?RM-VICTORIA-SQUARE
+	.OBJECT LG-STREETLIGHT,FX?FL-TRANSPARENT,FX?FL-NOALL+FX?FL-TRYTAKE,0,LOCAL-GLOBALS,LG-TOMBS-ABBEY,0,T?LG-STREETLIGHT
+	.OBJECT LG-PORTCULLIS-DOOR,FX?FL-TRANSPARENT+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,0,0,T?LG-PORTCULLIS-DOOR
+	.OBJECT LG-WESTMINSTER-DOOR,FX?FL-LOCKED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-BRITISH-MUSEUM-DOOR,0,T?LG-WESTMINSTER-DOOR
+	.OBJECT RM-NORTH-AMBULATORY,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-SANCTUARY,0,T?RM-NORTH-AMBULATORY
+	.OBJECT RM-UPPER-THAMES-ST,0,FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-THAMES-FIVE,0,T?RM-UPPER-THAMES-ST
+	.OBJECT LG-PARLOUR-DOOR,FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-BAKER-ST-DOOR,0,T?LG-PARLOUR-DOOR
+	.OBJECT RM-TORTURE-ROOM,0,FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-DUNGEON,0,T?RM-TORTURE-ROOM
+	.OBJECT LG-HOLMES-BEDROOM-DOOR,FX?FL-LOCKED+FX?FL-DOOR,0,FX?FL-OPENABLE,LOCAL-GLOBALS,LG-HOLMES-STUDY-DOOR,0,T?LG-HOLMES-BEDROOM-DOOR
+	.OBJECT RM-THE-STRAND,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-COVENT-GARDEN,0,T?RM-THE-STRAND
+	.OBJECT LG-COLUMNS,0,FX?FL-NOALL+FX?FL-PLURAL+FX?FL-TRYTAKE,0,LOCAL-GLOBALS,LG-MARBLE,0,T?LG-COLUMNS
+	.OBJECT RM-THAMES-ONE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-THE-EMBANKMENT,0,T?RM-THAMES-ONE
+	.OBJECT RM-BUCKINGHAM-PALACE,0,FX?FL-NO-ETHERIUM+FX?FL-NOARTC+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-QUEENS-GARDENS,CH-QUEEN,T?RM-BUCKINGHAM-PALACE
+	.OBJECT TH-RING,FX?FL-CLOTHING,FX?FL-NOALL,FX?FL-TAKEABLE,LOCAL-GLOBALS,LG-PORTCULLIS-DOOR,0,T?TH-RING
+	.OBJECT RM-THAMES-FIVE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-THAMES-FOUR,0,T?RM-THAMES-FIVE
+	.OBJECT RM-ENTRY-HALL,0,FX?FL-NEEDS-IDENTITY+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-221B-BAKER-ST,CH-HUDSON,T?RM-ENTRY-HALL
+	.OBJECT RM-TRAFALGAR-SQUARE,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,FX?FL-LIGHTED,ROOMS,RM-KENSINGTON-GARDENS,TH-PIGEONS,T?RM-TRAFALGAR-SQUARE
+	.OBJECT RM-OUTSIDE-TRAITORS-GATE,0,FX?FL-NO-CROWDS+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-NOARTC,0,ROOMS,RM-INSIDE-TRAITORS-GATE,0,T?RM-OUTSIDE-TRAITORS-GATE
+	.OBJECT RM-NORTH-CLOISTER,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-JERUSALEM-CHAMBER,TH-RUBBINGS,T?RM-NORTH-CLOISTER
+	.OBJECT RM-SOUTH-TRANSEPT,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-NORTH-CLOISTER,TH-DICKENS-TOMB,T?RM-SOUTH-TRANSEPT
+	.OBJECT RM-FLEET-STREET,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-THE-STRAND,0,T?RM-FLEET-STREET
+	.OBJECT RM-SOUTH-AISLE,0,FX?FL-NO-ETHERIUM+FX?FL-HAS-DESCFCN+FX?FL-INDOORS,FX?FL-LIGHTED,ROOMS,RM-NAVE,TH-POPE-TOMB,T?RM-SOUTH-AISLE
+	.OBJECT RM-GREAT-RUSSELL-ST,0,FX?FL-HAS-DESCFCN+FX?FL-NOARTC,0,ROOMS,RM-DIOGENES-CLUB,0,T?RM-GREAT-RUSSELL-ST
+	.OBJECT TH-PORTCULLIS-CHAIN,0,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE,FX?FL-NODESC,RM-INSIDE-TRAITORS-GATE,TH-PADDLE,0,T?TH-PORTCULLIS-CHAIN
+	.OBJECT TH-CHARLES-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-CHAMBER-OF-HORRORS,0,TH-WAX-AX,T?TH-CHARLES-STATUE
+	.OBJECT CH-BANK-GUARD,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-THREADNEEDLE-ST,0,TH-GUARDS-POCKET,T?CH-BANK-GUARD
+	.OBJECT TH-GUN,0,FX?FL-HAS-DESCFCN,FX?FL-WEAPON+FX?FL-TAKEABLE,TH-MANTELPIECE,0,0,T?TH-GUN
+	.OBJECT TH-ELIZAS-FLOWERS,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,FX?FL-TAKEABLE,CH-ELIZA-DOOLITTLE,0,0,T?TH-ELIZAS-FLOWERS
+	.OBJECT CH-ELIZA-DOOLITTLE,0,FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-ASLEEP+FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-FEMALE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-COVENT-GARDEN,0,TH-ELIZAS-MOUTH,T?CH-ELIZA-DOOLITTLE
+	.OBJECT TH-HANDS,FX?FL-YOUR+FX?FL-BODYPART+FX?FL-TOUCHED+FX?FL-SEEN,FX?FL-NOALL+FX?FL-PLURAL,FX?FL-TOOL+FX?FL-BYHAND+FX?FL-NODESC,GLOBAL-OBJECTS,TH-FLOOR-ETC,0,T?TH-HANDS
+	.OBJECT TH-RUBBINGS,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,FX?FL-READABLE+FX?FL-NODESC,RM-NORTH-CLOISTER,TH-CRAYON,0,T?TH-RUBBINGS
+	.OBJECT TH-CHAUCER-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-POETS-CORNER,0,0,T?TH-CHAUCER-TOMB
+	.OBJECT TH-PHIAL,FX?FL-TRANSPARENT+FX?FL-CONTAINER,FX?FL-NOALL+FX?FL-TRYTAKE,0,CH-HOLMES,0,TH-LIQUID,T?TH-PHIAL
+	.OBJECT TH-YELLOW-PAPER,FX?FL-BURNABLE,FX?FL-SURFACE,FX?FL-TAKEABLE+FX?FL-READABLE,TH-PACKET-OF-PAPER,TH-ORANGE-PAPER,0,T?TH-YELLOW-PAPER
+	.OBJECT TH-FAWKES-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-CHAMBER-OF-HORRORS,TH-THOMAS-STATUE,TH-TORCH,T?TH-FAWKES-STATUE
+	.OBJECT CH-HER,0,FX?FL-FEMALE+FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,GLOBAL-OBJECTS,CH-HIM,0,T?CH-HER
+	.OBJECT TH-RIGHT,FX?FL-SEEN,FX?FL-NOARTC,FX?FL-NODESC,GLOBAL-OBJECTS,TH-IT,0,T?TH-RIGHT
+	.OBJECT CH-YOU,0,FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,GLOBAL-OBJECTS,CH-ME,0,T?CH-YOU
+	.OBJECT TH-CRAYON,0,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,RM-NORTH-CLOISTER,TH-PACKET-OF-PAPER,0,T?TH-CRAYON
+	.OBJECT TH-BROWN-PILL-BOTTLE,FX?FL-CONTAINER,0,FX?FL-TAKEABLE+FX?FL-READABLE+FX?FL-OPENABLE,TH-BLACK-BAG,TH-BLUE-PILL-BOTTLE,TH-YELLOW-PILL,T?TH-BROWN-PILL-BOTTLE
+	.OBJECT TH-BUNG,0,FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-TAKEABLE,TH-BUTT-OF-MALMSEY,TH-MALMSEY,0,T?TH-BUNG
+	.OBJECT TH-SAFETY-DEPOSIT-BOX,FX?FL-LOCKED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN,FX?FL-OPENABLE+FX?FL-NODESC,RM-BANK-VAULT,0,TH-TOPAZ,T?TH-SAFETY-DEPOSIT-BOX
+	.OBJECT TH-MARY-QUEEN-OF-SCOTS-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-SOUTH-CHAPEL-AISLE,0,0,T?TH-MARY-QUEEN-OF-SCOTS-TOMB
+	.OBJECT TH-ETHERIUM-GAS,FX?FL-TRANSPARENT,FX?FL-HAS-DESCFCN+FX?FL-VOWEL,FX?FL-NODESC,TH-ETHERIUM-AMPOULE,0,0,T?TH-ETHERIUM-GAS
+	.OBJECT TH-ETHERIUM-AMPOULE,FX?FL-CONTAINER,FX?FL-HAS-SDESC+FX?FL-VOWEL,FX?FL-READABLE+FX?FL-TAKEABLE+FX?FL-OPENABLE,TH-WORKBENCH,0,TH-ETHERIUM-GAS,T?TH-ETHERIUM-AMPOULE
+	.OBJECT TH-NOT-HERE-OBJECT,FX?FL-SEEN,FX?FL-NOARTC,FX?FL-NODESC,0,0,0,T?TH-NOT-HERE-OBJECT
+	.OBJECT TH-ORANGE-PAPER,FX?FL-BURNABLE,FX?FL-SURFACE+FX?FL-VOWEL,FX?FL-TAKEABLE+FX?FL-READABLE,TH-PACKET-OF-PAPER,TH-BLUE-PAPER,0,T?TH-ORANGE-PAPER
+	.OBJECT CH-SHERMAN,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-SHERMANS-HOUSE,0,CH-TRAINED-PIGEON,T?CH-SHERMAN
+	.OBJECT TH-SYRINGE,0,0,0,TH-MOROCCO-CASE,0,0,T?TH-SYRINGE
+	.OBJECT TH-ANCHOR-CHAIN,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-VOWEL,FX?FL-NODESC,TH-BOAT,TH-OAR-LOCK,0,T?TH-ANCHOR-CHAIN
+	.OBJECT TH-OAR-1,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL,FX?FL-TAKEABLE,TH-BOAT,0,0,T?TH-OAR-1
+	.OBJECT CH-MATCH-SNIFFING-DOG,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-ALIVE+FX?FL-NODESC,RM-MARYLEBONE-RD,0,0,T?CH-MATCH-SNIFFING-DOG
+	.OBJECT TH-WALL,0,FX?FL-HAS-SDESC+FX?FL-NEEDS-IDENTITY+FX?FL-NOALL+FX?FL-TRYTAKE,0,GLOBAL-OBJECTS,TH-GENERIC-BODY,0,T?TH-WALL
+	.OBJECT TH-MALMSEY,FX?FL-COLLECTIVE,FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-FOOD,TH-BUTT-OF-MALMSEY,0,0,T?TH-MALMSEY
+	.OBJECT TH-POUND-NOTE,FX?FL-BURNABLE,FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-MONEY+FX?FL-READABLE+FX?FL-TAKEABLE,TH-POCKET,0,0,T?TH-POUND-NOTE
+	.OBJECT TH-KNIFE,FX?FL-OPENED,FX?FL-HAS-DESCFCN,FX?FL-OPENABLE+FX?FL-KNIFE+FX?FL-WEAPON+FX?FL-TAKEABLE,TH-MANTELPIECE,TH-MAIL,0,T?TH-KNIFE
+	.OBJECT ROOMS,FX?FL-SEEN,FX?FL-NOARTC,FX?FL-NODESC,0,0,RM-OUTSIDE-TRAITORS-GATE,T?ROOMS
+	.OBJECT TH-GARNET,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-MONEY+FX?FL-READABLE+FX?FL-TAKEABLE,0,0,0,T?TH-GARNET
+	.OBJECT CH-PALACE-GUARD,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-PERSON+FX?FL-ALIVE,RM-QUEENS-GARDENS,0,0,T?CH-PALACE-GUARD
+	.OBJECT CH-TUSSAUDS-GUARD,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-MARYLEBONE-RD,CH-MATCH-SNIFFING-DOG,TH-CIGARETTE,T?CH-TUSSAUDS-GUARD
+	.OBJECT TH-FIGURES,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL+FX?FL-VOWEL+FX?FL-NOALL,FX?FL-NODESC,RM-NORTH-TRANSEPT,TH-PITT-TOMB,0,T?TH-FIGURES
+	.OBJECT TH-MORIARTY-DESK,0,FX?FL-SURFACE+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC,RM-LAIR,TH-ROPE,TH-LAIR-KEY,T?TH-MORIARTY-DESK
+	.OBJECT TH-EDWARD-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-VOWEL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-CONFESSOR-CHAPEL,0,0,T?TH-EDWARD-TOMB
+	.OBJECT TH-OAR-LOCK,FX?FL-OPENED+FX?FL-CONTAINER,0,FX?FL-NODESC,TH-BOAT,TH-OAR-1,0,T?TH-OAR-LOCK
+	.OBJECT TH-TORCH,FX?FL-BURNABLE,FX?FL-HAS-DESCFCN+FX?FL-HAS-SDESC+FX?FL-NOALL,FX?FL-NODESC+FX?FL-TAKEABLE,TH-FAWKES-STATUE,0,0,T?TH-TORCH
+	.OBJECT LOCAL-GLOBALS,0,0,0,GLOBAL-OBJECTS,PSEUDO-OBJECT,LG-TOWER,T?LOCAL-GLOBALS
+	.OBJECT TH-JOHN-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-MADAME-TUSSAUDS,TH-DRAKE-STATUE,0,T?TH-JOHN-STATUE
+	.OBJECT TH-INTDIR,FX?FL-SEEN,0,FX?FL-NODESC,GLOBAL-OBJECTS,TH-ROOM,0,T?TH-INTDIR
+	.OBJECT TH-WESTMINSTER-CLUE,FX?FL-BURNABLE,FX?FL-HAS-DESCFCN,FX?FL-READABLE+FX?FL-TAKEABLE,CH-PRIME-MINISTER,0,0,T?TH-WESTMINSTER-CLUE
+	.OBJECT TH-BLUE-PAPER,FX?FL-BURNABLE,FX?FL-SURFACE,FX?FL-TAKEABLE+FX?FL-READABLE,TH-PACKET-OF-PAPER,TH-WHITE-PAPER,0,T?TH-BLUE-PAPER
+	.OBJECT TH-LAMP,0,FX?FL-HAS-DESCFCN+FX?FL-ASLEEP,FX?FL-TAKEABLE+FX?FL-LAMP,TH-BEDSIDE-TABLE,TH-MAGNIFYING-GLASS,0,T?TH-LAMP
+	.OBJECT TH-PRAMS,FX?FL-CONTAINER,FX?FL-PLURAL,FX?FL-NODESC+FX?FL-OPENABLE,RM-KENSINGTON-GARDENS,CH-NANNIES,0,T?TH-PRAMS
+	.OBJECT CH-ME,0,FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,GLOBAL-OBJECTS,CH-THEM,0,T?CH-ME
+	.OBJECT CH-VENDOR,0,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-BIRDCAGE-WALK,0,TH-TELESCOPE,T?CH-VENDOR
+	.OBJECT TH-BUTT-OF-MALMSEY,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-HAS-SDESC+FX?FL-TRYTAKE,FX?FL-NODESC,RM-BOWYER-TOWER,0,TH-BUNG,T?TH-BUTT-OF-MALMSEY
+	.OBJECT TH-VERE-TOMB,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-EVANGELIST-CHAPEL,TH-BANK-OF-CANDLES,0,T?TH-VERE-TOMB
+	.OBJECT TH-BLACK-BAG,FX?FL-SEEN+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE+FX?FL-OPENABLE,CH-PLAYER,TH-WATSONS-COAT,TH-BROWN-PILL-BOTTLE,T?TH-BLACK-BAG
+	.OBJECT TH-CAB-WHISTLE,FX?FL-CLOTHING,0,FX?FL-WORN+FX?FL-TAKEABLE,CH-PLAYER,TH-BLACK-BAG,0,T?TH-CAB-WHISTLE
+	.OBJECT TH-LAPEL,FX?FL-YOUR+FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-SEEN,FX?FL-TRYTAKE+FX?FL-NOALL,FX?FL-NODESC,TH-WATSONS-COAT,TH-POCKET,0,T?TH-LAPEL
+	.OBJECT TH-PLAYER-BODY,FX?FL-BODYPART+FX?FL-SEEN,FX?FL-NOALL+FX?FL-NOARTC,FX?FL-NODESC,GLOBAL-OBJECTS,TH-HEAD,0,T?TH-PLAYER-BODY
+	.OBJECT TH-ROPE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL,FX?FL-TAKEABLE,RM-LAIR,CH-MORIARTY,0,T?TH-ROPE
+	.OBJECT GLOBAL-OBJECTS,FX?FL-YOUR+FX?FL-VEHICLE+FX?FL-TRANSPARENT+FX?FL-TOUCHED+FX?FL-SEEN+FX?FL-OPENED+FX?FL-LOCKED+FX?FL-KEY+FX?FL-HOLMES-TOLD+FX?FL-DOOR+FX?FL-CONTAINER+FX?FL-COLLECTIVE+FX?FL-CLOTHING+FX?FL-BUYABLE+FX?FL-BURNABLE+FX?FL-BODYPART,FX?FL-NO-ETHERIUM+FX?FL-NO-CROWDS+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-PLURAL+FX?FL-NOARTC+FX?FL-NOALL+FX?FL-INDOORS+FX?FL-FEMALE+FX?FL-BROKEN+FX?FL-ASLEEP,FX?FL-WORN+FX?FL-WEAPON+FX?FL-TOOL+FX?FL-TAKEABLE+FX?FL-READABLE+FX?FL-PERSON+FX?FL-OPENABLE+FX?FL-NODESC+FX?FL-MONEY+FX?FL-LOCATION+FX?FL-LIGHTED+FX?FL-LAMP+FX?FL-KNIFE+FX?FL-FOOD+FX?FL-BYHAND+FX?FL-ALIVE,0,0,TH-INTNUM,T?GLOBAL-OBJECTS
+	.OBJECT TH-BOX-KEY,0,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,TH-GUARDS-POCKET,TH-GUARDS-KEYS,0,T?TH-BOX-KEY
+	.OBJECT TH-WAX-HEAD,0,FX?FL-HAS-DESCFCN+FX?FL-HAS-SDESC+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-TAKEABLE,TH-CHARLES-STATUE,0,0,T?TH-WAX-HEAD
+	.OBJECT CH-PRIME-MINISTER,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,0,0,TH-WESTMINSTER-CLUE,T?CH-PRIME-MINISTER
+	.OBJECT TH-RUBY,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-MONEY+FX?FL-READABLE+FX?FL-TAKEABLE,TH-NELSON-STATUE,0,0,T?TH-RUBY
+	.OBJECT CH-TOWER-GUARD,FX?FL-LOCKED,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-BYWARD-TOWER,0,0,T?CH-TOWER-GUARD
+	.OBJECT TH-CLOTHES,FX?FL-YOUR+FX?FL-CLOTHING+FX?FL-SEEN,FX?FL-NOALL,FX?FL-WORN+FX?FL-NODESC,GLOBAL-OBJECTS,TH-BREATH,0,T?TH-CLOTHES
+	.OBJECT CH-HUDSON,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-FEMALE+FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,RM-ENTRY-HALL,0,0,T?CH-HUDSON
+	.OBJECT TH-TELESCOPE,FX?FL-BUYABLE+FX?FL-TRANSPARENT,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,CH-VENDOR,TH-TRINKETS,0,T?TH-TELESCOPE
+	.OBJECT TH-RED-GLASS,0,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,0,0,0,T?TH-RED-GLASS
+	.OBJECT TH-X-OBJECT,0,0,0,0,0,0,T?TH-X-OBJECT
+	.OBJECT TH-WATSONS-HAT,FX?FL-YOUR+FX?FL-CONTAINER+FX?FL-CLOTHING+FX?FL-SEEN,FX?FL-HAS-DESCFCN,FX?FL-WORN+FX?FL-TAKEABLE,CH-PLAYER,0,TH-STETHOSCOPE,T?TH-WATSONS-HAT
+	.OBJECT TH-ASH,FX?FL-COLLECTIVE,FX?FL-HAS-DESCFCN+FX?FL-PLURAL+FX?FL-VOWEL+FX?FL-ASLEEP+FX?FL-NOALL,FX?FL-TAKEABLE+FX?FL-NODESC,RM-MADAME-TUSSAUDS,TH-JOHN-STATUE,0,T?TH-ASH
+	.OBJECT TH-EVENT,0,FX?FL-NOARTC+FX?FL-HAS-SDESC+FX?FL-NEEDS-IDENTITY,FX?FL-NODESC,0,0,0,T?TH-EVENT
+	.OBJECT CH-BUTLER,0,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-DIOGENES-CLUB,0,0,T?CH-BUTLER
+	.OBJECT TH-GENERIC-BODY,0,FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-NOARTC,FX?FL-NODESC,GLOBAL-OBJECTS,TH-BULLET-HOLE,0,T?TH-GENERIC-BODY
+	.OBJECT TH-OAR-2,0,FX?FL-NOALL+FX?FL-NOARTC,FX?FL-TAKEABLE,TH-BLIGH-BOAT,0,0,T?TH-OAR-2
+	.OBJECT TH-BLIGH-BOAT,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-NOARTC+FX?FL-TRYTAKE,FX?FL-NODESC,RM-THE-BLACK-MUSEUM,0,TH-OAR-2,T?TH-BLIGH-BOAT
+	.OBJECT TH-PIGEONS,0,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-ALIVE+FX?FL-NODESC,RM-TRAFALGAR-SQUARE,TH-NELSON-COLUMN,0,T?TH-PIGEONS
+	.OBJECT TH-LAIR-KEY,FX?FL-KEY,FX?FL-NOARTC,FX?FL-TAKEABLE,TH-MORIARTY-DESK,TH-CROWN-JEWELS,0,T?TH-LAIR-KEY
+	.OBJECT TH-GUARDS-KEYS,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,FX?FL-TAKEABLE,TH-GUARDS-POCKET,0,0,T?TH-GUARDS-KEYS
+	.OBJECT CH-DENKEEPER,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-BAR-OF-GOLD,0,0,T?CH-DENKEEPER
+	.OBJECT TH-POPE-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-SOUTH-AISLE,0,0,T?TH-POPE-TOMB
+	.OBJECT CH-HIM,0,FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,GLOBAL-OBJECTS,CH-YOU,0,T?CH-HIM
+	.OBJECT TH-BOAT,FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-VEHICLE,FX?FL-HAS-DESCFCN+FX?FL-VOWEL,0,RM-THE-EMBANKMENT,0,TH-ANCHOR-CHAIN,T?TH-BOAT
+	.OBJECT TH-Y-OBJECT,0,0,0,0,0,0,T?TH-Y-OBJECT
+	.OBJECT TH-MAIL,FX?FL-BURNABLE+FX?FL-COLLECTIVE,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,FX?FL-OPENABLE+FX?FL-READABLE+FX?FL-TAKEABLE,TH-MANTELPIECE,TH-GUN,0,T?TH-MAIL
+	.OBJECT TH-BLUE-PILL-BOTTLE,FX?FL-CONTAINER,0,FX?FL-TAKEABLE+FX?FL-READABLE+FX?FL-OPENABLE,TH-BLACK-BAG,0,TH-ORANGE-PILL,T?TH-BLUE-PILL-BOTTLE
+	.OBJECT TH-EARS,FX?FL-YOUR+FX?FL-BODYPART+FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-SEEN,FX?FL-NOALL+FX?FL-PLURAL+FX?FL-SURFACE,FX?FL-NODESC,GLOBAL-OBJECTS,TH-FEET,0,T?TH-EARS
+	.OBJECT TH-CLUE-BOOK,FX?FL-BURNABLE+FX?FL-CONTAINER,FX?FL-VOWEL+FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-READABLE+FX?FL-TAKEABLE+FX?FL-OPENABLE,TH-LIBRARY-TABLE,0,TH-BOOK-PAGE,T?TH-CLUE-BOOK
+	.OBJECT TH-VIOLIN,0,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,RM-HOLMES-STUDY,TH-NEWSPAPER,0,T?TH-VIOLIN
+	.OBJECT TH-BOOK-PAGE,FX?FL-BURNABLE,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-SURFACE,FX?FL-NODESC+FX?FL-READABLE,TH-CLUE-BOOK,0,0,T?TH-BOOK-PAGE
+	.OBJECT TH-SESAME,0,0,FX?FL-NODESC,GLOBAL-OBJECTS,TH-TIME,0,T?TH-SESAME
+	.OBJECT TH-CIGARETTE,FX?FL-BURNABLE,FX?FL-TRYTAKE,FX?FL-LIGHTED,CH-TUSSAUDS-GUARD,0,0,T?TH-CIGARETTE
+	.OBJECT CH-HOUSEWIVES,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-COVENT-GARDEN,CH-ELIZA-DOOLITTLE,0,T?CH-HOUSEWIVES
+	.OBJECT TH-RAILING,0,FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-CLOCK-TOWER,TH-SHAFT,0,T?TH-RAILING
+	.OBJECT CH-GROWLER-CABBIE,0,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,TH-GROWLER-CAB,0,0,T?CH-GROWLER-CABBIE
+	.OBJECT TH-LIBRARY-TABLE,0,FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-MANUSCRIPT-ROOM,CH-LIBRARIAN,TH-CLUE-BOOK,T?TH-LIBRARY-TABLE
+	.OBJECT TH-TURBAN,0,FX?FL-NOALL,FX?FL-NODESC,CH-AKBAR,0,0,T?TH-TURBAN
+	.OBJECT TH-THOMAS-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-CHAMBER-OF-HORRORS,TH-CHARLES-STATUE,0,T?TH-THOMAS-STATUE
+	.OBJECT TH-JEWEL-CASE,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC,RM-JEWEL-ROOM,0,0,T?TH-JEWEL-CASE
+	.OBJECT TH-PIPE,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,TH-MANTELPIECE,TH-PERSIAN-SLIPPER,0,T?TH-PIPE
+	.OBJECT CH-AKBAR,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,RM-LAIR,0,TH-TURBAN,T?CH-AKBAR
+	.OBJECT TH-BANK-OF-CANDLES,FX?FL-BURNABLE,FX?FL-TRYTAKE,FX?FL-LIGHTED+FX?FL-NODESC,RM-EVANGELIST-CHAPEL,0,0,T?TH-BANK-OF-CANDLES
+	.OBJECT TH-TRINKETS,FX?FL-BUYABLE,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-PLURAL+FX?FL-TRYTAKE,FX?FL-NODESC,CH-VENDOR,0,0,T?TH-TRINKETS
+	.OBJECT TH-BOXES,FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,FX?FL-OPENABLE+FX?FL-NODESC,RM-BANK-VAULT,TH-BOX-LOCK,0,T?TH-BOXES
+	.OBJECT CH-NANNIES,0,FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-KENSINGTON-GARDENS,0,0,T?CH-NANNIES
+	.OBJECT TH-EMERALD,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-SURFACE+FX?FL-VOWEL,FX?FL-MONEY+FX?FL-TAKEABLE+FX?FL-READABLE,0,0,0,T?TH-EMERALD
+	.OBJECT TH-HENRY-VII-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-HENRY-VII-CHAPEL,0,0,T?TH-HENRY-VII-TOMB
+	.OBJECT TH-CROWN-JEWELS,0,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE+FX?FL-NOARTC+FX?FL-PLURAL,FX?FL-MONEY+FX?FL-TAKEABLE,TH-MORIARTY-DESK,0,0,T?TH-CROWN-JEWELS
+	.OBJECT TH-FLOOR-ETC,FX?FL-SEEN,FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-NEEDS-IDENTITY+FX?FL-SURFACE,FX?FL-NODESC,GLOBAL-OBJECTS,TH-LEFT,0,T?TH-FLOOR-ETC
+	.OBJECT TH-PERSIAN-SLIPPER,FX?FL-OPENED+FX?FL-CONTAINER,0,FX?FL-TAKEABLE,TH-MANTELPIECE,TH-KNIFE,TH-TOBACCO,T?TH-PERSIAN-SLIPPER
+	.OBJECT TH-ORANGE-PILL,0,FX?FL-VOWEL,FX?FL-FOOD+FX?FL-READABLE+FX?FL-TAKEABLE,TH-BLUE-PILL-BOTTLE,TH-COTTON-BALLS,0,T?TH-ORANGE-PILL
+	.OBJECT TH-MATCH,FX?FL-BURNABLE,FX?FL-HAS-DESCFCN+FX?FL-HAS-SDESC,FX?FL-TAKEABLE,TH-MATCHBOOK,0,0,T?TH-MATCH
+	.OBJECT TH-CLUMP-OF-MOSS,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE,FX?FL-TAKEABLE+FX?FL-NODESC,RM-THAMES-THREE,0,0,T?TH-CLUMP-OF-MOSS
+	.OBJECT CH-PLAYER,0,FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,0,0,TH-CAB-WHISTLE,T?CH-PLAYER
+	.OBJECT TH-IT,FX?FL-TOUCHED+FX?FL-SEEN,FX?FL-VOWEL+FX?FL-NOARTC,FX?FL-NODESC,GLOBAL-OBJECTS,TH-SESAME,0,T?TH-IT
+	.OBJECT TH-WILLIAM-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-MADAME-TUSSAUDS,0,0,T?TH-WILLIAM-STATUE
+	.OBJECT TH-CROWDS,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,0,GLOBAL-OBJECTS,TH-WALL,0,T?TH-CROWDS
+	.OBJECT TH-MATCHBOOK,FX?FL-BURNABLE+FX?FL-CONTAINER,0,FX?FL-READABLE+FX?FL-OPENABLE+FX?FL-TAKEABLE,RM-PARLOUR,0,TH-MATCH,T?TH-MATCHBOOK
+	.OBJECT TH-YELLOW-PILL,0,0,FX?FL-FOOD+FX?FL-READABLE+FX?FL-TAKEABLE,TH-BROWN-PILL-BOTTLE,0,0,T?TH-YELLOW-PILL
+	.OBJECT TH-LITTLE-PRINCES-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-READABLE+FX?FL-NODESC,RM-INNOCENTS-CORNER,0,0,T?TH-LITTLE-PRINCES-TOMB
+	.OBJECT TH-SOFA,0,FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-HOLMES-STUDY,TH-MANTELPIECE,TH-MOROCCO-CASE,T?TH-SOFA
+	.OBJECT TH-WORKBENCH,0,FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-HOLMES-BEDROOM,0,TH-LAB-EQUIPMENT,T?TH-WORKBENCH
+	.OBJECT TH-ELIZAS-MOUTH,FX?FL-OPENED+FX?FL-CONTAINER,0,FX?FL-OPENABLE+FX?FL-NODESC,CH-ELIZA-DOOLITTLE,TH-ELIZAS-FLOWERS,0,T?TH-ELIZAS-MOUTH
+	.OBJECT TH-SAPPHIRE,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-MONEY+FX?FL-NODESC+FX?FL-READABLE+FX?FL-TAKEABLE,TH-CLAPPER,0,0,T?TH-SAPPHIRE
+	.OBJECT CH-LIBRARIAN,0,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-MANUSCRIPT-ROOM,0,0,T?CH-LIBRARIAN
+	.OBJECT TH-FEET,FX?FL-YOUR+FX?FL-BODYPART+FX?FL-SEEN,FX?FL-NOALL+FX?FL-PLURAL,FX?FL-NODESC,GLOBAL-OBJECTS,TH-WATSONS-HEART,0,T?TH-FEET
+	.OBJECT TH-LAB-EQUIPMENT,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-PLURAL+FX?FL-TRYTAKE,0,TH-WORKBENCH,TH-ETHERIUM-AMPOULE,0,T?TH-LAB-EQUIPMENT
+	.OBJECT TH-PITT-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-NORTH-TRANSEPT,0,0,T?TH-PITT-TOMB
+	.OBJECT TH-ROOM,FX?FL-SEEN,FX?FL-HAS-DESCFCN,FX?FL-NODESC,GLOBAL-OBJECTS,LOCAL-GLOBALS,0,T?TH-ROOM
+	.OBJECT TH-TOBACCO,FX?FL-COLLECTIVE+FX?FL-BURNABLE,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-PLURAL,FX?FL-TAKEABLE,TH-PERSIAN-SLIPPER,0,0,T?TH-TOBACCO
+	.OBJECT TH-CLAPPER,0,FX?FL-HAS-DESCFCN+FX?FL-SURFACE+FX?FL-TRYTAKE,FX?FL-NODESC,TH-BELL,0,TH-SAPPHIRE,T?TH-CLAPPER
+	.OBJECT TH-BREATH,FX?FL-BODYPART+FX?FL-YOUR+FX?FL-SEEN,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC,GLOBAL-OBJECTS,TH-PLAYER-BODY,0,T?TH-BREATH
+	.OBJECT TH-DEAD-PIGEON,0,0,FX?FL-TAKEABLE,0,0,0,T?TH-DEAD-PIGEON
+	.OBJECT TH-ANCHOR,0,FX?FL-HAS-DESCFCN+FX?FL-VOWEL+FX?FL-TRYTAKE,FX?FL-TAKEABLE,LG-WATER,0,0,T?TH-ANCHOR
+	.OBJECT TH-TOPAZ,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-MONEY+FX?FL-READABLE+FX?FL-TAKEABLE,TH-SAFETY-DEPOSIT-BOX,0,0,T?TH-TOPAZ
+	.OBJECT TH-BED,0,FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-HOLMES-BEDROOM,TH-BEDSIDE-TABLE,0,T?TH-BED
+	.OBJECT CH-URCHINS,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-THREADNEEDLE-ST,CH-WIGGINS,0,T?CH-URCHINS
+	.OBJECT TH-ELIZABETH-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-VOWEL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-NORTH-CHAPEL-AISLE,0,0,T?TH-ELIZABETH-TOMB
+	.OBJECT CH-MORIARTY,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,RM-LAIR,CH-AKBAR,0,T?CH-MORIARTY
+	.OBJECT TH-GREEN-PAPER,FX?FL-BURNABLE,FX?FL-SURFACE,FX?FL-READABLE+FX?FL-TAKEABLE,TH-PACKET-OF-PAPER,0,0,T?TH-GREEN-PAPER
+	.OBJECT TH-WAX-AX,0,FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-VOWEL,FX?FL-WEAPON+FX?FL-NODESC+FX?FL-TAKEABLE,TH-CHARLES-STATUE,TH-WAX-HEAD,0,T?TH-WAX-AX
+	.OBJECT TH-WATSONS-HEART,FX?FL-YOUR+FX?FL-BODYPART+FX?FL-SEEN,FX?FL-NOALL,FX?FL-NODESC,GLOBAL-OBJECTS,TH-HANDS,0,T?TH-WATSONS-HEART
+	.OBJECT TH-MACE,0,FX?FL-HAS-DESCFCN,FX?FL-WEAPON+FX?FL-TAKEABLE,RM-JEWEL-ROOM,TH-JEWEL-CASE,0,T?TH-MACE
+	.OBJECT TH-STETHOSCOPE,FX?FL-CLOTHING,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,TH-WATSONS-HAT,0,0,T?TH-STETHOSCOPE
+	.OBJECT TH-SHILLING,0,0,FX?FL-MONEY+FX?FL-TAKEABLE,0,0,0,T?TH-SHILLING
+	.OBJECT TH-BOX-LOCK,FX?FL-OPENED+FX?FL-CONTAINER,0,FX?FL-NODESC,RM-BANK-VAULT,TH-SAFETY-DEPOSIT-BOX,0,T?TH-BOX-LOCK
+	.OBJECT TH-NELSON-EYE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-NODESC,TH-NELSON-COLUMN,TH-NELSON-STATUE,0,T?TH-NELSON-EYE
+	.OBJECT TH-INTNUM,FX?FL-SEEN,0,FX?FL-NODESC,GLOBAL-OBJECTS,TH-CROWDS,0,T?TH-INTNUM
+	.OBJECT TH-MALMSEY-POOL,0,FX?FL-TRYTAKE,FX?FL-FOOD,0,0,0,T?TH-MALMSEY-POOL
+	.OBJECT TH-NELSON-STATUE,FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-NODESC,TH-NELSON-COLUMN,0,TH-RUBY,T?TH-NELSON-STATUE
+	.OBJECT CH-MEMBERS,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-PLURAL,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,RM-DIOGENES-CLUB,CH-BUTLER,0,T?CH-MEMBERS
+	.OBJECT TH-MAGNIFYING-GLASS,FX?FL-TRANSPARENT,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,TH-BEDSIDE-TABLE,0,0,T?TH-MAGNIFYING-GLASS
+	.OBJECT TH-NEWTON-TOMB,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-NAVE,0,0,T?TH-NEWTON-TOMB
+	.OBJECT TH-HEAD,FX?FL-YOUR+FX?FL-BODYPART+FX?FL-SEEN,FX?FL-NOALL+FX?FL-SURFACE,FX?FL-NODESC,GLOBAL-OBJECTS,TH-EARS,0,T?TH-HEAD
+	.OBJECT CH-HANSOM-CABBIE,0,FX?FL-NOALL+FX?FL-TRYTAKE,FX?FL-PERSON+FX?FL-ALIVE+FX?FL-NODESC,TH-HANSOM-CAB,0,0,T?CH-HANSOM-CABBIE
+	.OBJECT TH-WATERMARK,0,FX?FL-HAS-DESCFCN,FX?FL-NODESC,GLOBAL-OBJECTS,TH-CLOTHES,0,T?TH-WATERMARK
+	.OBJECT TH-BEDSIDE-TABLE,0,FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-HOLMES-BEDROOM,TH-WORKBENCH,TH-LAMP,T?TH-BEDSIDE-TABLE
+	.OBJECT TH-SIXPENCE,0,0,FX?FL-MONEY+FX?FL-TAKEABLE,0,0,0,T?TH-SIXPENCE
+	.OBJECT TH-BULLET-HOLE,0,0,0,GLOBAL-OBJECTS,TH-WATERMARK,0,T?TH-BULLET-HOLE
+	.OBJECT TH-GUARDS-POCKET,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-TRYTAKE,FX?FL-NODESC,CH-BANK-GUARD,0,TH-BOX-KEY,T?TH-GUARDS-POCKET
+	.OBJECT TH-NELSON-COLUMN,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC+FX?FL-SURFACE,FX?FL-READABLE+FX?FL-NODESC,RM-TRAFALGAR-SQUARE,0,TH-NELSON-EYE,T?TH-NELSON-COLUMN
+	.OBJECT TH-BELL,FX?FL-OPENED+FX?FL-CONTAINER,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-NODESC,RM-CLOCK-TOWER,0,TH-CLAPPER,T?TH-BELL
+	.OBJECT TH-DICKENS-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-SOUTH-TRANSEPT,0,0,T?TH-DICKENS-TOMB
+	.OBJECT TH-DRAKE-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-MADAME-TUSSAUDS,TH-ELIZABETH-STATUE,0,T?TH-DRAKE-STATUE
+	.OBJECT TH-HENRY-V-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-CONFESSOR-CHAPEL,TH-EDWARD-TOMB,0,T?TH-HENRY-V-TOMB
+	.OBJECT CH-THEM,0,FX?FL-PLURAL+FX?FL-NOARTC,0,GLOBAL-OBJECTS,0,0,T?CH-THEM
+	.OBJECT TH-PADDLE,0,0,FX?FL-TAKEABLE,RM-INSIDE-TRAITORS-GATE,0,0,T?TH-PADDLE
+	.OBJECT TH-TIME,0,FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC,0,GLOBAL-OBJECTS,TH-INTDIR,0,T?TH-TIME
+	.OBJECT TH-POCKET,FX?FL-YOUR+FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-SEEN,FX?FL-NOALL,FX?FL-NODESC,TH-WATSONS-COAT,0,TH-POUND-NOTE,T?TH-POCKET
+	.OBJECT TH-WALTER-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-MADAME-TUSSAUDS,TH-WILLIAM-STATUE,0,T?TH-WALTER-STATUE
+	.OBJECT TH-NEWSPAPER,FX?FL-BURNABLE,FX?FL-HAS-DESCFCN+FX?FL-SURFACE,FX?FL-READABLE+FX?FL-TAKEABLE,RM-HOLMES-STUDY,0,0,T?TH-NEWSPAPER
+	.OBJECT CH-TRAINED-PIGEON,0,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE+FX?FL-ALIVE,CH-SHERMAN,0,0,T?CH-TRAINED-PIGEON
+	.OBJECT TH-WHITE-PAPER,FX?FL-BURNABLE,FX?FL-SURFACE,FX?FL-READABLE+FX?FL-TAKEABLE,TH-PACKET-OF-PAPER,TH-GREEN-PAPER,0,T?TH-WHITE-PAPER
+	.OBJECT TH-MANTELPIECE,0,FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-HOLMES-STUDY,TH-VIOLIN,TH-PIPE,T?TH-MANTELPIECE
+	.OBJECT CH-HOLMES,0,FX?FL-HAS-DESCFCN+FX?FL-ASLEEP+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-PERSON+FX?FL-ALIVE,TH-SOFA,0,TH-PHIAL,T?CH-HOLMES
+	.OBJECT CH-WIGGINS,0,FX?FL-HAS-DESCFCN+FX?FL-BROKEN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-NODESC+FX?FL-PERSON+FX?FL-ALIVE,RM-THREADNEEDLE-ST,CH-BANK-GUARD,0,T?CH-WIGGINS
+	.OBJECT TH-HANSOM-CAB,FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-VEHICLE,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE,FX?FL-LIGHTED,RM-VICTORIA-SQUARE,0,CH-HANSOM-CABBIE,T?TH-HANSOM-CAB
+	.OBJECT TH-CARNATION,FX?FL-CLOTHING,0,FX?FL-TAKEABLE,0,0,0,T?TH-CARNATION
+	.OBJECT TH-DIAL,FX?FL-LOCKED,0,FX?FL-READABLE+FX?FL-NODESC,LG-BANK-VAULT-DOOR,0,0,T?TH-DIAL
+	.OBJECT TH-OPIUM-GAS,FX?FL-COLLECTIVE+FX?FL-BUYABLE+FX?FL-TRANSPARENT,FX?FL-HAS-DESCFCN+FX?FL-PLURAL+FX?FL-VOWEL,FX?FL-NODESC,RM-BAR-OF-GOLD,CH-DENKEEPER,0,T?TH-OPIUM-GAS
+	.OBJECT CH-QUEEN,0,FX?FL-FEMALE+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-NOARTC,FX?FL-ALIVE+FX?FL-PERSON,RM-BUCKINGHAM-PALACE,0,0,T?CH-QUEEN
+	.OBJECT TH-GROWLER-CAB,FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-VEHICLE,FX?FL-HAS-DESCFCN+FX?FL-TRYTAKE,FX?FL-LIGHTED,RM-OXFORD-ST,0,CH-GROWLER-CABBIE,T?TH-GROWLER-CAB
+	.OBJECT TH-SUIT-OF-ARMOUR,FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-CLOTHING,FX?FL-HAS-DESCFCN,FX?FL-TAKEABLE,RM-DUNGEON,0,0,T?TH-SUIT-OF-ARMOUR
+	.OBJECT TH-WATSONS-COAT,FX?FL-YOUR+FX?FL-OPENED+FX?FL-CONTAINER+FX?FL-SEEN+FX?FL-CLOTHING,FX?FL-HAS-DESCFCN,FX?FL-WORN+FX?FL-TAKEABLE,CH-PLAYER,TH-WATSONS-HAT,TH-LAPEL,T?TH-WATSONS-COAT
+	.OBJECT TH-ELIZABETH-STATUE,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-TRYTAKE+FX?FL-SURFACE,FX?FL-NODESC,RM-MADAME-TUSSAUDS,TH-WALTER-STATUE,0,T?TH-ELIZABETH-STATUE
+	.OBJECT TH-MOROCCO-CASE,FX?FL-CONTAINER+FX?FL-OPENED,FX?FL-NOALL,FX?FL-OPENABLE+FX?FL-TAKEABLE,TH-SOFA,CH-HOLMES,TH-SYRINGE,T?TH-MOROCCO-CASE
+	.OBJECT TH-PARK-FLOWERS,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL+FX?FL-TRYTAKE,FX?FL-NODESC,RM-KENSINGTON-GARDENS,TH-PRAMS,0,T?TH-PARK-FLOWERS
+	.OBJECT TH-LIQUID,0,FX?FL-HAS-DESCFCN,0,TH-PHIAL,0,0,T?TH-LIQUID
+	.OBJECT TH-BROWN-PAPER,FX?FL-BURNABLE,FX?FL-SURFACE,FX?FL-TAKEABLE+FX?FL-READABLE,TH-PACKET-OF-PAPER,TH-YELLOW-PAPER,0,T?TH-BROWN-PAPER
+	.OBJECT TH-OPAL,0,FX?FL-LOSE-IDENTITY+FX?FL-NEEDS-IDENTITY+FX?FL-HAS-SDESC+FX?FL-HAS-DESCFCN+FX?FL-SURFACE+FX?FL-VOWEL,FX?FL-MONEY+FX?FL-READABLE+FX?FL-TAKEABLE,0,0,0,T?TH-OPAL
+	.OBJECT TH-ANNE-OF-CLEVES-TOMB,0,FX?FL-HAS-DESCFCN+FX?FL-NOALL+FX?FL-VOWEL+FX?FL-TRYTAKE+FX?FL-SURFACE+FX?FL-NOARTC,FX?FL-READABLE+FX?FL-NODESC,RM-SANCTUARY,0,0,T?TH-ANNE-OF-CLEVES-TOMB
+	.OBJECT TH-SHAFT,FX?FL-CONTAINER,FX?FL-NOALL,FX?FL-NODESC,RM-CLOCK-TOWER,TH-BELL,0,T?TH-SHAFT
+	.OBJECT TH-LEFT,FX?FL-SEEN,FX?FL-NOARTC,FX?FL-NODESC,GLOBAL-OBJECTS,TH-RIGHT,0,T?TH-LEFT
+	.OBJECT TH-PACKET-OF-PAPER,FX?FL-CONTAINER,0,FX?FL-READABLE+FX?FL-OPENABLE+FX?FL-TAKEABLE,RM-NORTH-CLOISTER,0,TH-BROWN-PAPER,T?TH-PACKET-OF-PAPER
+	.OBJECT PSEUDO-OBJECT,0,FX?FL-HAS-DESCFCN+FX?FL-HAS-SDESC+FX?FL-NOARTC,0,GLOBAL-OBJECTS,CH-HER,0,T?PSEUDO-OBJECT
+	.OBJECT TH-COTTON-BALLS,0,FX?FL-HAS-DESCFCN+FX?FL-PLURAL,FX?FL-TAKEABLE,TH-BLUE-PILL-BOTTLE,0,0,T?TH-COTTON-BALLS
+	.ENDT
+
+	LAST-OBJECT=314
+
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+OBJPRP::
+
+T?RM-CHAMBER-OF-HORRORS::	.TABLE			; TABLE FOR OBJECT RM-CHAMBER-OF-HORRORS
+	.STRL "Chamber of Horrors"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-MADAME-TUSSAUDS		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-MADAME-TUSSAUDS		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-CHAMBER-OF-HORRORS
+	.PROP 4,P?SYNONYM
+	W?CHAMBER
+	W?HORRORS
+	.PROP 4,P?ADJECTIVE
+	W?CHAMBER
+	W?HORRORS
+	.PROP 2,P?PSEUDOS
+	PT?1716
+	.BYTE	0
+	.ENDT
+
+T?TH-PORTCULLIS-CHAIN::	.TABLE			; TABLE FOR OBJECT TH-PORTCULLIS-CHAIN
+	.STRL "chain"
+	.PROP 2,P?ACTION
+	RT-AC-TH-PORTCULLIS-CHAIN
+	.PROP 2,P?SYNONYM
+	W?CHAIN
+	.PROP 2,P?ADJECTIVE
+	W?PORTCULLIS
+	.BYTE	0
+	.ENDT
+
+T?TH-CHARLES-STATUE::	.TABLE			; TABLE FOR OBJECT TH-CHARLES-STATUE
+	.STRL "statue of Charles I"
+	.PROP 2,P?ACTION
+	RT-AC-TH-CHARLES-STATUE
+	.PROP 10,P?SYNONYM
+	W?CHARLES
+	W?CHARLES'
+	W?STATUE
+	W?I
+	W?WAX
+	.PROP 4,P?ADJECTIVE
+	W?CHARLES
+	W?WAX
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?LG-BAR-OF-GOLD-DOOR::	.TABLE			; TABLE FOR OBJECT LG-BAR-OF-GOLD-DOOR
+	.STRL "door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-BAR-OF-GOLD-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CH-BANK-GUARD::	.TABLE			; TABLE FOR OBJECT CH-BANK-GUARD
+	.STRL "guard"
+	.PROP 2,P?SIZE
+	8591
+	.PROP 2,P?ACTION
+	RT-AC-CH-BANK-GUARD
+	.PROP 2,P?SYNONYM
+	W?GUARD
+	.PROP 2,P?ADJECTIVE
+	W?BANK
+	.BYTE	0
+	.ENDT
+
+T?TH-GUN::	.TABLE			; TABLE FOR OBJECT TH-GUN
+	.STRL "pistol"
+	.PROP 2,P?SIZE
+	83
+	.PROP 2,P?ACTION
+	RT-AC-TH-GUN
+	.PROP 6,P?SYNONYM
+	W?GUN
+	W?PISTOL
+	W?REVOLVER
+	.BYTE	0
+	.ENDT
+
+T?RM-VESTIBULE::	.TABLE			; TABLE FOR OBJECT RM-VESTIBULE
+	.STRL "vestibule"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	.BYTE RM-HOLMES-STUDY		; TO ROOM
+	LG-HOLMES-STUDY-DOOR		; IF DOOR IS OPEN
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-ENTRY-HALL		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-HOLMES-STUDY		; TO ROOM
+	LG-HOLMES-STUDY-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-VESTIBULE
+	.PROP 2,P?SYNONYM
+	W?VESTIBULE
+	.PROP 4,P?GLOBAL
+	.BYTE LG-HOLMES-STUDY-DOOR
+	.BYTE LG-STAIRWAY
+	.BYTE RM-HOLMES-STUDY
+	.BYTE RM-ENTRY-HALL
+	.BYTE	0
+	.ENDT
+
+T?TH-ELIZAS-FLOWERS::	.TABLE			; TABLE FOR OBJECT TH-ELIZAS-FLOWERS
+	.STRL "flowers"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-ELIZAS-FLOWERS
+	.PROP 6,P?SYNONYM
+	W?FLOWERS
+	W?FLOWER
+	W?CARNATION
+	.PROP 6,P?ADJECTIVE
+	W?HER
+	W?ELIZA'S
+	W?GIRL'S
+	.BYTE	0
+	.ENDT
+
+T?LG-BRITISH-MUSEUM-DOOR::	.TABLE			; TABLE FOR OBJECT LG-BRITISH-MUSEUM-DOOR
+	.STRL "door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-BRITISH-MUSEUM-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CH-ELIZA-DOOLITTLE::	.TABLE			; TABLE FOR OBJECT CH-ELIZA-DOOLITTLE
+	.STRL ""
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	1441
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-CH-ELIZA-DOOLITTLE
+	.PROP 10,P?SYNONYM
+	W?ELIZA
+	W?DOOLITTLE
+	W?GIRL
+	W?HEART
+	W?HEARTBEAT
+	.PROP 6,P?ADJECTIVE
+	W?HER
+	W?ELIZA'S
+	W?GIRL'S
+	.BYTE	0
+	.ENDT
+
+T?TH-HANDS::	.TABLE			; TABLE FOR OBJECT TH-HANDS
+	.STRL "hands"
+	.PROP 2,P?ACTION
+	RT-AC-TH-HANDS
+	.PROP 8,P?SYNONYM
+	W?HAND
+	W?HANDS
+	W?FINGER
+	W?FINGERS
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?TH-RUBBINGS::	.TABLE			; TABLE FOR OBJECT TH-RUBBINGS
+	.STRL "rubbings"
+	.PROP 2,P?ACTION
+	RT-AC-TH-RUBBINGS
+	.PROP 4,P?SYNONYM
+	W?RUBBING
+	W?RUBBINGS
+	.PROP 2,P?ADJECTIVE
+	W?BRASS
+	.BYTE	0
+	.ENDT
+
+T?TH-CHAUCER-TOMB::	.TABLE			; TABLE FOR OBJECT TH-CHAUCER-TOMB
+	.STRL "Geoffrey Chaucer's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-CHAUCER-TOMB
+	.PROP 6,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	W?SARCOPHAGUS
+	.PROP 4,P?ADJECTIVE
+	W?CHAUCER
+	W?CHAUCER'S
+	.BYTE	0
+	.ENDT
+
+T?RM-MARYLEBONE-RD::	.TABLE			; TABLE FOR OBJECT RM-MARYLEBONE-RD
+	.STRL "Marylebone Road"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-RM-MATCH-SNIFFING-DOG		; PER FUNCTION
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-TOTTENHAM-COURT-RD		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-YORK-PLACE		; TO ROOM
+	.PROP 2,P?IN		; CONDITIONAL EXIT
+	RT-EX-RM-MATCH-SNIFFING-DOG		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-MARYLEBONE-RD
+	.PROP 2,P?SYNONYM
+	W?ROAD
+	.PROP 2,P?ADJECTIVE
+	W?MARYLEBONE
+	.PROP 2,P?GLOBAL
+	.BYTE RM-MARYLEBONE-RD
+	.BYTE RM-MADAME-TUSSAUDS
+	.BYTE	0
+	.ENDT
+
+T?TH-PHIAL::	.TABLE			; TABLE FOR OBJECT TH-PHIAL
+	.STRL "phial"
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-PHIAL
+	.PROP 4,P?SYNONYM
+	W?PHIAL
+	W?VIAL
+	.BYTE	0
+	.ENDT
+
+T?TH-YELLOW-PAPER::	.TABLE			; TABLE FOR OBJECT TH-YELLOW-PAPER
+	.STRL "yellow piece of paper"
+	.PROP 2,P?SIZE
+	1574
+	.PROP 2,P?ACTION
+	RT-AC-TH-YELLOW-PAPER
+	.PROP 6,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?BACK
+	.PROP 6,P?ADJECTIVE
+	W?PIECE
+	W?YELLOW
+	W?BACK
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.PROP 2,P?INSCRIPTION
+	0
+	.PROP 2,P?HEATED
+	0
+	.BYTE	0
+	.ENDT
+
+T?RM-AUDLEY-ST::	.TABLE			; TABLE FOR OBJECT RM-AUDLEY-ST
+	.STRL "Audley Street"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-ORCHARD-ST		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-HYDE-PARK-CORNER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-AUDLEY-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 2,P?ADJECTIVE
+	W?AUDLEY
+	.BYTE	0
+	.ENDT
+
+T?TH-FAWKES-STATUE::	.TABLE			; TABLE FOR OBJECT TH-FAWKES-STATUE
+	.STRL "statue of Guy Fawkes"
+	.PROP 2,P?ACTION
+	RT-AC-TH-FAWKES-STATUE
+	.PROP 6,P?SYNONYM
+	W?FAWKES
+	W?STATUE
+	W?WAX
+	.PROP 8,P?ADJECTIVE
+	W?GUY
+	W?WAX
+	W?FAWKES'
+	W?GUY'S
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?RM-NORTH-TRANSEPT::	.TABLE			; TABLE FOR OBJECT RM-NORTH-TRANSEPT
+	.STRL "North Transept"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-EVANGELIST-CHAPEL		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-NAVE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-NORTH-TRANSEPT
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WINDOW
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-SHAFT-OF-LIGHT
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?CH-HER::	.TABLE			; TABLE FOR OBJECT CH-HER
+	.STRL "her"
+	.PROP 4,P?SYNONYM
+	W?HER
+	W?HERSELF
+	.BYTE	0
+	.ENDT
+
+T?TH-RIGHT::	.TABLE			; TABLE FOR OBJECT TH-RIGHT
+	.STRL "right"
+	.PROP 2,P?ACTION
+	RT-AC-TH-RIGHT
+	.PROP 8,P?SYNONYM
+	W?RIGHT
+	W?FORWARD
+	W?AHEAD
+	W?CLOCKWISE
+	.BYTE	0
+	.ENDT
+
+T?LG-WINDOW::	.TABLE			; TABLE FOR OBJECT LG-WINDOW
+	.STRL "window"
+	.PROP 2,P?ACTION
+	RT-AC-LG-WINDOW
+	.PROP 2,P?SYNONYM
+	W?WINDOW
+	.PROP 2,P?ADJECTIVE
+	W?BOW
+	.BYTE	0
+	.ENDT
+
+T?CH-YOU::	.TABLE			; TABLE FOR OBJECT CH-YOU
+	.STRL "myself"
+	.PROP 4,P?SYNONYM
+	W?YOU
+	W?YOURSELF
+	.BYTE	0
+	.ENDT
+
+T?TH-CRAYON::	.TABLE			; TABLE FOR OBJECT TH-CRAYON
+	.STRL "crayon"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-CRAYON
+	.PROP 2,P?SYNONYM
+	W?CRAYON
+	.BYTE	0
+	.ENDT
+
+T?LG-JERICHO-PARLOUR-DOOR::	.TABLE			; TABLE FOR OBJECT LG-JERICHO-PARLOUR-DOOR
+	.STRL "door to the Jericho Parlour"
+	.PROP 2,P?ACTION
+	RT-AC-LG-JERICHO-PARLOUR-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	W?JERICHO
+	W?PARLOUR
+	W?PARLOR
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?RM-JERICHO-PARLOUR::	.TABLE			; TABLE FOR OBJECT RM-JERICHO-PARLOUR
+	.STRL "Jericho Parlour"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	.BYTE RM-SOUTH-AISLE		; TO ROOM
+	LG-JERICHO-PARLOUR-DOOR		; IF DOOR IS OPEN
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-JERUSALEM-CHAMBER		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-JERUSALEM-CHAMBER		; TO ROOM
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-SOUTH-AISLE		; TO ROOM
+	LG-JERICHO-PARLOUR-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-DF-RM-JERICHO-PARLOUR
+	.PROP 3,P?GLOBAL
+	.BYTE LG-JERICHO-PARLOUR-DOOR
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE RM-JERUSALEM-CHAMBER
+	.BYTE	0
+	.ENDT
+
+T?TH-BROWN-PILL-BOTTLE::	.TABLE			; TABLE FOR OBJECT TH-BROWN-PILL-BOTTLE
+	.STRL "brown bottle"
+	.PROP 2,P?SIZE
+	315
+	.PROP 2,P?ACTION
+	RT-AC-TH-BROWN-PILL-BOTTLE
+	.PROP 6,P?SYNONYM
+	W?BOTTLE
+	W?BOTTLES
+	W?LABEL
+	.PROP 2,P?ADJECTIVE
+	W?BROWN
+	.PROP 2,P?GENERIC
+	RT-GN-BOTTLE
+	.BYTE	0
+	.ENDT
+
+T?RM-KENSINGTON-GARDENS::	.TABLE			; TABLE FOR OBJECT RM-KENSINGTON-GARDENS
+	.STRL "Kensington Gardens"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?NE		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-HYDE-PARK-CORNER		; TO ROOM
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?SW		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?NW		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-KENSINGTON-GARDENS
+	.PROP 2,P?SYNONYM
+	W?GARDENS
+	.PROP 2,P?ADJECTIVE
+	W?KENSINGTON
+	.PROP 1,P?GLOBAL
+	.BYTE RM-HYDE-PARK-CORNER
+	.BYTE	0
+	.ENDT
+
+T?TH-BUNG::	.TABLE			; TABLE FOR OBJECT TH-BUNG
+	.STRL "bung"
+	.PROP 2,P?SIZE
+	42
+	.PROP 2,P?ACTION
+	RT-AC-TH-BUNG
+	.PROP 6,P?SYNONYM
+	W?BUNG
+	W?STOPPER
+	W?CORK
+	.BYTE	0
+	.ENDT
+
+T?TH-SAFETY-DEPOSIT-BOX::	.TABLE			; TABLE FOR OBJECT TH-SAFETY-DEPOSIT-BOX
+	.STRL "safety deposit box"
+	.PROP 2,P?SIZE
+	1430
+	.PROP 2,P?ACTION
+	RT-AC-TH-SAFETY-DEPOSIT-BOX
+	.PROP 4,P?SYNONYM
+	W?INTNUM
+	W?BOX
+	.PROP 8,P?ADJECTIVE
+	W?SAFETY
+	W?DEPOSIT
+	W?BOX
+	W?NUMBER
+	.PROP 2,P?GENERIC
+	RT-GN-INTNUM
+	.BYTE	0
+	.ENDT
+
+T?TH-MARY-QUEEN-OF-SCOTS-TOMB::	.TABLE			; TABLE FOR OBJECT TH-MARY-QUEEN-OF-SCOTS-TOMB
+	.STRL "Mary, Queen of Scots' tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB
+	.PROP 8,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	W?SARCOPHAGUS
+	W?EFFIGY
+	.PROP 10,P?ADJECTIVE
+	W?MARY
+	W?SCOTS
+	W?SCOTS'
+	W?MARY'S
+	W?QUEEN
+	.BYTE	0
+	.ENDT
+
+T?TH-ETHERIUM-GAS::	.TABLE			; TABLE FOR OBJECT TH-ETHERIUM-GAS
+	.STRL "etherium gas"
+	.PROP 2,P?ACTION
+	RT-AC-TH-ETHERIUM-GAS
+	.PROP 4,P?SYNONYM
+	W?GAS
+	W?ETHERIUM
+	.PROP 4,P?ADJECTIVE
+	W?ETHERIUM
+	W?GAS
+	.PROP 2,P?GENERIC
+	RT-GN-ETHERIUM
+	.BYTE	0
+	.ENDT
+
+T?RM-PARLIAMENT::	.TABLE			; TABLE FOR OBJECT RM-PARLIAMENT
+	.STRL "Houses of Parliament"
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT-SQUARE		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-CLOCK-TOWER		; TO ROOM
+	.PROP 2,P?IN		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT-SQUARE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-PARLIAMENT
+	.PROP 8,P?SYNONYM
+	W?HOUSE
+	W?HOUSES
+	W?PARLIAMENT
+	W?COMMONS
+	.PROP 6,P?ADJECTIVE
+	W?HOUSES
+	W?HOUSE
+	W?PARLIAMENT
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE RM-PARLIAMENT-SQUARE
+	.BYTE	0
+	.ENDT
+
+T?RM-NEW-OXFORD-ST::	.TABLE			; TABLE FOR OBJECT RM-NEW-OXFORD-ST
+	.STRL "New Oxford Street"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-CHEAPSIDE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-COVENT-GARDEN		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-ST-GILES-CIRCUS		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-NEW-OXFORD-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 4,P?ADJECTIVE
+	W?NEW
+	W?OXFORD
+	.BYTE	0
+	.ENDT
+
+T?LG-TOMBS-ABBEY::	.TABLE			; TABLE FOR OBJECT LG-TOMBS-ABBEY
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-LG-TOMBS-ABBEY
+	.PROP 10,P?SYNONYM
+	W?TOMBS
+	W?SCULPTURES
+	W?STATUES
+	W?TOMB
+	W?ABBEY
+	.PROP 2,P?ADJECTIVE
+	W?WESTMINSTER
+	.BYTE	0
+	.ENDT
+
+T?RM-NAVE::	.TABLE			; TABLE FOR OBJECT RM-NAVE
+	.STRL "Nave"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-TRANSEPT		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-SANCTUARY		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-TRANSEPT		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AISLE		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	.BYTE RM-BROAD-SANCTUARY		; TO ROOM
+	LG-WESTMINSTER-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-BROAD-SANCTUARY		; TO ROOM
+	LG-WESTMINSTER-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-NAVE
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WESTMINSTER-DOOR
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-MARBLE
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?TH-ETHERIUM-AMPOULE::	.TABLE			; TABLE FOR OBJECT TH-ETHERIUM-AMPOULE
+	.STRL ""
+	.PROP 2,P?SIZE
+	15
+	.PROP 2,P?ACTION
+	RT-AC-TH-ETHERIUM-AMPOULE
+	.PROP 8,P?SYNONYM
+	W?AMPOULE
+	W?ETHERIUM
+	W?AMPULE
+	W?LABEL
+	.PROP 4,P?ADJECTIVE
+	W?ETHERIUM
+	W?ETHERIUM
+	.PROP 2,P?GENERIC
+	RT-GN-ETHERIUM
+	.BYTE	0
+	.ENDT
+
+T?RM-SHERMANS-HOUSE::	.TABLE			; TABLE FOR OBJECT RM-SHERMANS-HOUSE
+	.STRL "Sherman's Shop"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-PINCHIN-LANE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-PINCHIN-LANE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-SHERMANS-HOUSE
+	.PROP 4,P?SYNONYM
+	W?HOUSE
+	W?SHOP
+	.PROP 4,P?ADJECTIVE
+	W?SHERMAN'
+	W?PET
+	.PROP 1,P?GLOBAL
+	.BYTE RM-PINCHIN-LANE
+	.BYTE	0
+	.ENDT
+
+T?RM-SANCTUARY::	.TABLE			; TABLE FOR OBJECT RM-SANCTUARY
+	.STRL "Sanctuary"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-AMBULATORY		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AMBULATORY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-NAVE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-SANCTUARY
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?TH-NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT TH-NOT-HERE-OBJECT
+	.STRL "that"
+	.PROP 2,P?ACTION
+	RT-AC-TH-NOT-HERE-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?TH-ORANGE-PAPER::	.TABLE			; TABLE FOR OBJECT TH-ORANGE-PAPER
+	.STRL "orange piece of paper"
+	.PROP 2,P?SIZE
+	1574
+	.PROP 2,P?ACTION
+	RT-AC-TH-ORANGE-PAPER
+	.PROP 6,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?BACK
+	.PROP 6,P?ADJECTIVE
+	W?PIECE
+	W?ORANGE
+	W?BACK
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.PROP 2,P?INSCRIPTION
+	0
+	.PROP 2,P?HEATED
+	0
+	.BYTE	0
+	.ENDT
+
+T?CH-SHERMAN::	.TABLE			; TABLE FOR OBJECT CH-SHERMAN
+	.STRL "Sherman"
+	.PROP 2,P?SIZE
+	8591
+	.PROP 2,P?ACTION
+	RT-AC-CH-SHERMAN
+	.PROP 4,P?SYNONYM
+	W?SHERMAN
+	W?TRAINER
+	.PROP 2,P?ADJECTIVE
+	W?OLD
+	.BYTE	0
+	.ENDT
+
+T?RM-BRITISH-MUSEUM::	.TABLE			; TABLE FOR OBJECT RM-BRITISH-MUSEUM
+	.STRL "British Museum"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-MANUSCRIPT-ROOM		; TO ROOM
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE RM-GREAT-RUSSELL-ST		; TO ROOM
+	LG-BRITISH-MUSEUM-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-MANUSCRIPT-ROOM		; TO ROOM
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-GREAT-RUSSELL-ST		; TO ROOM
+	LG-BRITISH-MUSEUM-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-BRITISH-MUSEUM
+	.PROP 2,P?SYNONYM
+	W?MUSEUM
+	.PROP 2,P?ADJECTIVE
+	W?BRITISH
+	.PROP 3,P?GLOBAL
+	.BYTE LG-BRITISH-MUSEUM-DOOR
+	.BYTE LG-STAIRWAY
+	.BYTE RM-GREAT-RUSSELL-ST
+	.BYTE	0
+	.ENDT
+
+T?TH-SYRINGE::	.TABLE			; TABLE FOR OBJECT TH-SYRINGE
+	.STRL "syringe"
+	.PROP 2,P?SIZE
+	716
+	.PROP 2,P?ACTION
+	RT-AC-TH-SYRINGE
+	.PROP 4,P?SYNONYM
+	W?SYRINGE
+	W?NEEDLE
+	.PROP 2,P?ADJECTIVE
+	W?HYPODERMIC
+	.BYTE	0
+	.ENDT
+
+T?TH-ANCHOR-CHAIN::	.TABLE			; TABLE FOR OBJECT TH-ANCHOR-CHAIN
+	.STRL "anchor chain"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-ANCHOR-CHAIN
+	.PROP 2,P?SYNONYM
+	W?CHAIN
+	.PROP 2,P?ADJECTIVE
+	W?ANCHOR
+	.BYTE	0
+	.ENDT
+
+T?RM-SOUTH-AMBULATORY::	.TABLE			; TABLE FOR OBJECT RM-SOUTH-AMBULATORY
+	.STRL "South Ambulatory"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-SANCTUARY		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-CHAPEL-AISLE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-POETS-CORNER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-SOUTH-AMBULATORY
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?TH-OAR-1::	.TABLE			; TABLE FOR OBJECT TH-OAR-1
+	.STRL "weathered old oar"
+	.PROP 2,P?SIZE
+	9
+	.PROP 2,P?ACTION
+	RT-AC-TH-OAR-1
+	.PROP 2,P?SYNONYM
+	W?OAR
+	.PROP 4,P?ADJECTIVE
+	W?OLD
+	W?WEATHERED
+	.PROP 2,P?GENERIC
+	RT-GN-OAR
+	.BYTE	0
+	.ENDT
+
+T?CH-MATCH-SNIFFING-DOG::	.TABLE			; TABLE FOR OBJECT CH-MATCH-SNIFFING-DOG
+	.STRL "dog"
+	.PROP 2,P?SIZE
+	2153
+	.PROP 2,P?ACTION
+	RT-AC-CH-MATCH-SNIFFING-DOG
+	.PROP 2,P?SYNONYM
+	W?DOG
+	.PROP 2,P?ADJECTIVE
+	W?TRAINED
+	.BYTE	0
+	.ENDT
+
+T?TH-WALL::	.TABLE			; TABLE FOR OBJECT TH-WALL
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-WALL
+	.PROP 4,P?SYNONYM
+	W?WALL
+	W?WALLS
+	.PROP 8,P?ADJECTIVE
+	W?NORTH
+	W?SOUTH
+	W?EAST
+	W?WEST
+	.BYTE	0
+	.ENDT
+
+T?RM-POETS-CORNER::	.TABLE			; TABLE FOR OBJECT RM-POETS-CORNER
+	.STRL "Poets' Corner"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AMBULATORY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-TRANSEPT		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-POETS-CORNER
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE	0
+	.ENDT
+
+T?TH-MALMSEY::	.TABLE			; TABLE FOR OBJECT TH-MALMSEY
+	.STRL "malmsey"
+	.PROP 2,P?ACTION
+	RT-AC-TH-MALMSEY
+	.PROP 4,P?SYNONYM
+	W?MALMSEY
+	W?WINE
+	.BYTE	0
+	.ENDT
+
+T?TH-POUND-NOTE::	.TABLE			; TABLE FOR OBJECT TH-POUND-NOTE
+	.STRL "pound note"
+	.PROP 2,P?SIZE
+	157
+	.PROP 2,P?ACTION
+	RT-AC-TH-POUND-NOTE
+	.PROP 6,P?SYNONYM
+	W?POUND
+	W?NOTE
+	W?QUID
+	.PROP 2,P?ADJECTIVE
+	W?POUND
+	.BYTE	0
+	.ENDT
+
+T?RM-THE-BLACK-MUSEUM::	.TABLE			; TABLE FOR OBJECT RM-THE-BLACK-MUSEUM
+	.STRL "The Black Museum"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-SCOTLAND-YARD		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-THE-BLACK-MUSEUM
+	.PROP 2,P?SYNONYM
+	W?MUSEUM
+	.PROP 2,P?ADJECTIVE
+	W?BLACK
+	.PROP 3,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.BYTE LG-STAIRWAY
+	.BYTE RM-SCOTLAND-YARD
+	.BYTE	0
+	.ENDT
+
+T?RM-DIOGENES-CLUB::	.TABLE			; TABLE FOR OBJECT RM-DIOGENES-CLUB
+	.STRL "Diogenes Club"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-TRAFALGAR-SQUARE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-TRAFALGAR-SQUARE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-DIOGENES-CLUB
+	.PROP 2,P?SYNONYM
+	W?CLUB
+	.PROP 2,P?ADJECTIVE
+	W?DIOGENES
+	.PROP 1,P?GLOBAL
+	.BYTE RM-TRAFALGAR-SQUARE
+	.BYTE	0
+	.ENDT
+
+T?RM-QUEENS-GARDENS::	.TABLE			; TABLE FOR OBJECT RM-QUEENS-GARDENS
+	.STRL "Queens Gardens"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-MALL		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-BIRDCAGE-WALK		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-BUCKINGHAM-PALACE-RD		; TO ROOM
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-ENTER-BUCKINGHAM-PALACE		; PER FUNCTION
+	.PROP 2,P?IN		; CONDITIONAL EXIT
+	RT-EX-RM-ENTER-BUCKINGHAM-PALACE		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-QUEENS-GARDENS
+	.PROP 2,P?SYNONYM
+	W?GARDENS
+	.PROP 4,P?ADJECTIVE
+	W?QUEENS
+	W?QUEEN'S
+	.PROP 1,P?GLOBAL
+	.BYTE RM-BUCKINGHAM-PALACE
+	.BYTE	0
+	.ENDT
+
+T?TH-KNIFE::	.TABLE			; TABLE FOR OBJECT TH-KNIFE
+	.STRL "knife"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-KNIFE
+	.PROP 4,P?SYNONYM
+	W?KNIFE
+	W?JACKKNIFE
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL "rooms"
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE ROOMS		; TO ROOM
+	.BYTE	0
+	.ENDT
+
+T?TH-GARNET::	.TABLE			; TABLE FOR OBJECT TH-GARNET
+	.STRL "garnet"
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	157
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-GARNET
+	.PROP 8,P?SYNONYM
+	W?GARNET
+	W?GEM
+	W?GEMS
+	W?SCRATCH
+	.PROP 4,P?ADJECTIVE
+	W?GARNET
+	W?GARNET'S
+	.PROP 2,P?GENERIC
+	RT-GN-GEM
+	.BYTE	0
+	.ENDT
+
+T?CH-PALACE-GUARD::	.TABLE			; TABLE FOR OBJECT CH-PALACE-GUARD
+	.STRL "Palace guard"
+	.PROP 2,P?SIZE
+	2871
+	.PROP 2,P?ACTION
+	RT-AC-CH-PALACE-GUARD
+	.PROP 2,P?SYNONYM
+	W?GUARD
+	.PROP 2,P?ADJECTIVE
+	W?PALACE
+	.BYTE	0
+	.ENDT
+
+T?RM-TOWER-ENTRANCE::	.TABLE			; TABLE FOR OBJECT RM-TOWER-ENTRANCE
+	.STRL "Tower of London entrance"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-DRAWBRIDGE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-LOWER-THAMES-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-TOWER-ENTRANCE
+	.PROP 2,P?SYNONYM
+	W?ENTRANCE
+	.PROP 2,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?CH-TUSSAUDS-GUARD::	.TABLE			; TABLE FOR OBJECT CH-TUSSAUDS-GUARD
+	.STRL "guard"
+	.PROP 2,P?SIZE
+	8591
+	.PROP 2,P?ACTION
+	RT-AC-CH-TUSSAUDS-GUARD
+	.PROP 2,P?SYNONYM
+	W?GUARD
+	.PROP 2,P?ADJECTIVE
+	W?TUSSAUDS
+	.BYTE	0
+	.ENDT
+
+T?TH-FIGURES::	.TABLE			; TABLE FOR OBJECT TH-FIGURES
+	.STRL "allegorical figures"
+	.PROP 2,P?ACTION
+	RT-AC-TH-FIGURES
+	.PROP 4,P?SYNONYM
+	W?FIGURES
+	W?FIGURE
+	.PROP 2,P?ADJECTIVE
+	W?ALLEGORICAL
+	.BYTE	0
+	.ENDT
+
+T?TH-MORIARTY-DESK::	.TABLE			; TABLE FOR OBJECT TH-MORIARTY-DESK
+	.STRL "desk"
+	.PROP 2,P?SIZE
+	7158
+	.PROP 4,P?SYNONYM
+	W?DESK
+	W?TABLE
+	.PROP 2,P?ADJECTIVE
+	W?MORIARTY
+	.BYTE	0
+	.ENDT
+
+T?TH-EDWARD-TOMB::	.TABLE			; TABLE FOR OBJECT TH-EDWARD-TOMB
+	.STRL "Edward the Confessor's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-EDWARD-TOMB
+	.PROP 6,P?SYNONYM
+	W?TOMB
+	W?CONFESSOR
+	W?INSCRIPTION
+	.PROP 4,P?ADJECTIVE
+	W?EDWARD
+	W?EDWARD'S
+	.BYTE	0
+	.ENDT
+
+T?TH-OAR-LOCK::	.TABLE			; TABLE FOR OBJECT TH-OAR-LOCK
+	.STRL "oarlock"
+	.PROP 2,P?SIZE
+	14300
+	.PROP 2,P?ACTION
+	RT-AC-TH-OAR-LOCK
+	.PROP 2,P?SYNONYM
+	W?OARLOCK
+	.BYTE	0
+	.ENDT
+
+T?RM-SWAN-LANE::	.TABLE			; TABLE FOR OBJECT RM-SWAN-LANE
+	.STRL "Swan Lane"
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	.BYTE RM-BAR-OF-GOLD		; TO ROOM
+	LG-BAR-OF-GOLD-DOOR		; IF DOOR IS OPEN
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-LOWER-THAMES-ST		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-BAR-OF-GOLD		; TO ROOM
+	LG-BAR-OF-GOLD-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-SWAN-LANE
+	.PROP 4,P?SYNONYM
+	W?LANE
+	W?ALLEY
+	.PROP 2,P?ADJECTIVE
+	W?SWAN
+	.PROP 7,P?GLOBAL
+	.BYTE LG-BAR-OF-GOLD-DOOR
+	.BYTE LG-PLAQUES
+	.BYTE LG-STAIRWAY
+	.BYTE LG-WATER
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE RM-BAR-OF-GOLD
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?TH-TORCH::	.TABLE			; TABLE FOR OBJECT TH-TORCH
+	.STRL ""
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-TORCH
+	.PROP 2,P?SYNONYM
+	W?TORCH
+	.PROP 2,P?ADJECTIVE
+	W?ZZZP
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+T?TH-JOHN-STATUE::	.TABLE			; TABLE FOR OBJECT TH-JOHN-STATUE
+	.STRL "statue of King John"
+	.PROP 2,P?ACTION
+	RT-AC-TH-JOHN-STATUE
+	.PROP 6,P?SYNONYM
+	W?JOHN
+	W?STATUE
+	W?WAX
+	.PROP 8,P?ADJECTIVE
+	W?KING
+	W?JOHN
+	W?WAX
+	W?JOHN'S
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?TH-INTDIR::	.TABLE			; TABLE FOR OBJECT TH-INTDIR
+	.STRL "direction"
+	.PROP 2,P?ACTION
+	RT-AC-TH-INTDIR
+	.PROP 2,P?SYNONYM
+	W?DIRECTION
+	.PROP 24,P?ADJECTIVE
+	W?NORTH
+	W?EAST
+	W?SOUTH
+	W?WEST
+	W?NE
+	W?NW
+	W?SE
+	W?SW
+	W?UP
+	W?DOWN
+	W?IN
+	W?OUT
+	.BYTE	0
+	.ENDT
+
+T?TH-WESTMINSTER-CLUE::	.TABLE			; TABLE FOR OBJECT TH-WESTMINSTER-CLUE
+	.STRL "clue paper"
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-WESTMINSTER-CLUE
+	.PROP 8,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?VERSE
+	W?POEM
+	.PROP 2,P?ADJECTIVE
+	W?CLUE
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.BYTE	0
+	.ENDT
+
+T?TH-BLUE-PAPER::	.TABLE			; TABLE FOR OBJECT TH-BLUE-PAPER
+	.STRL "blue piece of paper"
+	.PROP 2,P?SIZE
+	1574
+	.PROP 2,P?ACTION
+	RT-AC-TH-BLUE-PAPER
+	.PROP 6,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?BACK
+	.PROP 6,P?ADJECTIVE
+	W?PIECE
+	W?BLUE
+	W?BACK
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.PROP 2,P?INSCRIPTION
+	0
+	.PROP 2,P?HEATED
+	0
+	.BYTE	0
+	.ENDT
+
+T?LG-UP-DOWN-STREAM::	.TABLE			; TABLE FOR OBJECT LG-UP-DOWN-STREAM
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-LG-UP-DOWN-STREAM
+	.PROP 4,P?SYNONYM
+	W?UPSTREAM
+	W?DOWNSTREAM
+	.BYTE	0
+	.ENDT
+
+T?TH-LAMP::	.TABLE			; TABLE FOR OBJECT TH-LAMP
+	.STRL "lamp"
+	.PROP 2,P?VALUE
+	3
+	.PROP 2,P?SIZE
+	57
+	.PROP 2,P?ACTION
+	RT-AC-TH-LAMP
+	.PROP 6,P?SYNONYM
+	W?LAMP
+	W?LANTERN
+	W?LIGHT
+	.PROP 4,P?ADJECTIVE
+	W?BRASS
+	W?LIGHT
+	.BYTE	0
+	.ENDT
+
+T?TH-PRAMS::	.TABLE			; TABLE FOR OBJECT TH-PRAMS
+	.STRL "prams"
+	.PROP 2,P?SIZE
+	2860
+	.PROP 2,P?ACTION
+	RT-AC-TH-PRAMS
+	.PROP 6,P?SYNONYM
+	W?PRAMS
+	W?PERAMBULATOR
+	W?PRAM
+	.BYTE	0
+	.ENDT
+
+T?CH-ME::	.TABLE			; TABLE FOR OBJECT CH-ME
+	.STRL "yourself"
+	.PROP 10,P?SYNONYM
+	W?I
+	W?ME
+	W?MYSELF
+	W?BODY
+	W?SELF
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?CH-VENDOR::	.TABLE			; TABLE FOR OBJECT CH-VENDOR
+	.STRL "vendor"
+	.PROP 2,P?SIZE
+	8591
+	.PROP 2,P?ACTION
+	RT-AC-CH-VENDOR
+	.PROP 6,P?SYNONYM
+	W?VENDOR
+	W?SALESMAN
+	W?MAN
+	.BYTE	0
+	.ENDT
+
+T?TH-BUTT-OF-MALMSEY::	.TABLE			; TABLE FOR OBJECT TH-BUTT-OF-MALMSEY
+	.STRL ""
+	.PROP 2,P?SIZE
+	7264
+	.PROP 2,P?ACTION
+	RT-AC-TH-BUTT-OF-MALMSEY
+	.PROP 6,P?SYNONYM
+	W?BUTT
+	W?KEG
+	W?BARREL
+	.PROP 8,P?ADJECTIVE
+	W?BUTT
+	W?KEG
+	W?BARREL
+	W?MALMSEY
+	.BYTE	0
+	.ENDT
+
+T?TH-VERE-TOMB::	.TABLE			; TABLE FOR OBJECT TH-VERE-TOMB
+	.STRL ""
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-VERE-TOMB
+	.PROP 16,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	W?EFFIGY
+	W?KNIGHT
+	W?KNIGHTS
+	W?ARMOR
+	W?ARMOUR
+	W?SUIT
+	.PROP 10,P?ADJECTIVE
+	W?VERE
+	W?VERE'S
+	W?SUIT
+	W?ARMOUR
+	W?ARMOR
+	.BYTE	0
+	.ENDT
+
+T?TH-BLACK-BAG::	.TABLE			; TABLE FOR OBJECT TH-BLACK-BAG
+	.STRL "black bag"
+	.PROP 2,P?SIZE
+	14451
+	.PROP 2,P?ACTION
+	RT-AC-TH-BLACK-BAG
+	.PROP 2,P?SYNONYM
+	W?BAG
+	.PROP 4,P?ADJECTIVE
+	W?BLACK
+	W?MEDICAL
+	.BYTE	0
+	.ENDT
+
+T?TH-CAB-WHISTLE::	.TABLE			; TABLE FOR OBJECT TH-CAB-WHISTLE
+	.STRL "whistle"
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-CAB-WHISTLE
+	.PROP 2,P?SYNONYM
+	W?WHISTLE
+	.BYTE	0
+	.ENDT
+
+T?RM-BIRDCAGE-WALK::	.TABLE			; TABLE FOR OBJECT RM-BIRDCAGE-WALK
+	.STRL "Birdcage Walk"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT-SQUARE		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-QUEENS-GARDENS		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-BIRDCAGE-WALK
+	.PROP 2,P?SYNONYM
+	W?WALK
+	.PROP 2,P?ADJECTIVE
+	W?BIRDCAGE
+	.BYTE	0
+	.ENDT
+
+T?TH-LAPEL::	.TABLE			; TABLE FOR OBJECT TH-LAPEL
+	.STRL "lapel"
+	.PROP 2,P?SIZE
+	432
+	.PROP 2,P?ACTION
+	RT-AC-TH-LAPEL
+	.PROP 2,P?SYNONYM
+	W?LAPEL
+	.BYTE	0
+	.ENDT
+
+T?TH-PLAYER-BODY::	.TABLE			; TABLE FOR OBJECT TH-PLAYER-BODY
+	.STRL "that part of your body"
+	.PROP 2,P?ACTION
+	RT-AC-TH-PLAYER-BODY
+	.PROP 32,P?SYNONYM
+	W?ARM
+	W?ARMS
+	W?SHOULDER
+	W?SHOULDERS
+	W?LEG
+	W?LEGS
+	W?FACE
+	W?MOUTH
+	W?LIPS
+	W?THROAT
+	W?EYE
+	W?EYES
+	W?NOSE
+	W?HAIR
+	W?STOMACH
+	W?BODY
+	.PROP 6,P?ADJECTIVE
+	W?MY
+	W?LEFT
+	W?RIGHT
+	.BYTE	0
+	.ENDT
+
+T?TH-ROPE::	.TABLE			; TABLE FOR OBJECT TH-ROPE
+	.STRL "rope"
+	.PROP 2,P?SIZE
+	47
+	.PROP 2,P?ACTION
+	RT-AC-TH-ROPE
+	.PROP 2,P?SYNONYM
+	W?ROPE
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+T?RM-BANK-OF-ENGLAND::	.TABLE			; TABLE FOR OBJECT RM-BANK-OF-ENGLAND
+	.STRL "Bank of England"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-THREADNEEDLE-ST		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	.BYTE RM-BANK-VAULT		; TO ROOM
+	LG-BANK-VAULT-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-BANK-VAULT		; TO ROOM
+	LG-BANK-VAULT-DOOR		; IF DOOR IS OPEN
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-THREADNEEDLE-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-BANK-OF-ENGLAND
+	.PROP 4,P?SYNONYM
+	W?BANK
+	W?ENGLAND
+	.PROP 2,P?ADJECTIVE
+	W?ENGLAND
+	.PROP 3,P?GLOBAL
+	.BYTE LG-BANK-VAULT-DOOR
+	.BYTE RM-THREADNEEDLE-ST
+	.BYTE RM-BANK-VAULT
+	.BYTE	0
+	.ENDT
+
+T?TH-BOX-KEY::	.TABLE			; TABLE FOR OBJECT TH-BOX-KEY
+	.STRL "key"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-BOX-KEY
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ADJECTIVE
+	W?MASTER
+	.BYTE	0
+	.ENDT
+
+T?TH-WAX-HEAD::	.TABLE			; TABLE FOR OBJECT TH-WAX-HEAD
+	.STRL ""
+	.PROP 2,P?SIZE
+	144
+	.PROP 2,P?ACTION
+	RT-AC-TH-WAX-HEAD
+	.PROP 4,P?SYNONYM
+	W?HEAD
+	W?WAX
+	.PROP 4,P?ADJECTIVE
+	W?HEAD
+	W?WAX
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?RM-OUTER-WARD::	.TABLE			; TABLE FOR OBJECT RM-OUTER-WARD
+	.STRL "Outer Ward"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-BLOODY-TOWER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-INSIDE-TRAITORS-GATE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-BYWARD-TOWER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-OUTER-WARD
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOWER
+	.BYTE LG-RAVENS
+	.BYTE	0
+	.ENDT
+
+T?CH-PRIME-MINISTER::	.TABLE			; TABLE FOR OBJECT CH-PRIME-MINISTER
+	.STRL "Prime Minister"
+	.PROP 2,P?SIZE
+	8
+	.PROP 2,P?ACTION
+	RT-AC-CH-PRIME-MINISTER
+	.PROP 8,P?SYNONYM
+	W?MINISTER
+	W?OFFICIAL
+	W?VISITOR
+	W?MAN
+	.PROP 2,P?ADJECTIVE
+	W?PRIME
+	.PROP 2,P?CONTFCN
+	RT-AC-CH-PRIME-MINISTER
+	.BYTE	0
+	.ENDT
+
+T?RM-JERUSALEM-CHAMBER::	.TABLE			; TABLE FOR OBJECT RM-JERUSALEM-CHAMBER
+	.STRL "Jerusalem Chamber"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-JERICHO-PARLOUR		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-JERICHO-PARLOUR		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-JERUSALEM-CHAMBER
+	.PROP 2,P?SYNONYM
+	W?CHAMBER
+	.PROP 2,P?ADJECTIVE
+	W?JERUSALEM
+	.PROP 2,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.BYTE LG-TOMBS-ABBEY
+	.PROP 2,P?PSEUDOS
+	PT?3516
+	.BYTE	0
+	.ENDT
+
+T?TH-RUBY::	.TABLE			; TABLE FOR OBJECT TH-RUBY
+	.STRL ""
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	157
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-RUBY
+	.PROP 8,P?SYNONYM
+	W?RUBY
+	W?GEM
+	W?GEMS
+	W?SCRATCH
+	.PROP 6,P?ADJECTIVE
+	W?RUBY
+	W?RED
+	W?RUBY'S
+	.PROP 2,P?GENERIC
+	RT-GN-GEM
+	.BYTE	0
+	.ENDT
+
+T?RM-BOWYER-TOWER::	.TABLE			; TABLE FOR OBJECT RM-BOWYER-TOWER
+	.STRL "Bowyer Tower"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-TORTURE-ROOM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-BOWYER-TOWER
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?CH-TOWER-GUARD::	.TABLE			; TABLE FOR OBJECT CH-TOWER-GUARD
+	.STRL "beefeater"
+	.PROP 2,P?SIZE
+	2871
+	.PROP 2,P?ACTION
+	RT-AC-CH-TOWER-GUARD
+	.PROP 6,P?SYNONYM
+	W?GUARD
+	W?YEOMAN
+	W?BEEFEATER
+	.PROP 2,P?ADJECTIVE
+	W?TOWER
+	.BYTE	0
+	.ENDT
+
+T?TH-CLOTHES::	.TABLE			; TABLE FOR OBJECT TH-CLOTHES
+	.STRL "clothes"
+	.PROP 2,P?SIZE
+	12
+	.PROP 2,P?ACTION
+	RT-AC-TH-CLOTHES
+	.PROP 4,P?SYNONYM
+	W?CLOTHES
+	W?CLOTHING
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.PROP 2,P?GENERIC
+	RT-GN-TH-CLOTHES
+	.BYTE	0
+	.ENDT
+
+T?LG-SHOPS::	.TABLE			; TABLE FOR OBJECT LG-SHOPS
+	.STRL "shops"
+	.PROP 2,P?ACTION
+	RT-AC-LG-SHOPS
+	.PROP 14,P?SYNONYM
+	W?SHOPS
+	W?STORES
+	W?EMPORIUMS
+	W?WINDOWS
+	W?WINDOW
+	W?SHOP
+	W?STORE
+	.BYTE	0
+	.ENDT
+
+T?RM-HOLMES-BEDROOM::	.TABLE			; TABLE FOR OBJECT RM-HOLMES-BEDROOM
+	.STRL "Holmes's bedroom"
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	.BYTE RM-HOLMES-STUDY		; TO ROOM
+	LG-HOLMES-BEDROOM-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-HOLMES-STUDY		; TO ROOM
+	LG-HOLMES-BEDROOM-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-HOLMES-BEDROOM
+	.PROP 2,P?SYNONYM
+	W?BEDROOM
+	.PROP 3,P?GLOBAL
+	.BYTE LG-HOLMES-BEDROOM-DOOR
+	.BYTE RM-HOLMES-STUDY
+	.BYTE RM-ENTRY-HALL
+	.PROP 2,P?PSEUDOS
+	PT?716
+	.BYTE	0
+	.ENDT
+
+T?LG-STAIRWAY::	.TABLE			; TABLE FOR OBJECT LG-STAIRWAY
+	.STRL "stairway"
+	.PROP 2,P?ACTION
+	RT-AC-LG-STAIRWAY
+	.PROP 10,P?SYNONYM
+	W?STAIRWAY
+	W?STAIR
+	W?STAIRS
+	W?STEP
+	W?STEPS
+	.BYTE	0
+	.ENDT
+
+T?CH-HUDSON::	.TABLE			; TABLE FOR OBJECT CH-HUDSON
+	.STRL "Mrs Hudson"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-HUDSON
+	.PROP 6,P?SYNONYM
+	W?MRS
+	W?HUDSON
+	W?HOUSEKEEPER
+	.PROP 2,P?ADJECTIVE
+	W?MRS
+	.PROP 2,P?CONTFCN
+	RT-AC-CH-HUDSON
+	.BYTE	0
+	.ENDT
+
+T?TH-TELESCOPE::	.TABLE			; TABLE FOR OBJECT TH-TELESCOPE
+	.STRL "telescope"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-TELESCOPE
+	.PROP 4,P?SYNONYM
+	W?TELESCOPE
+	W?SCOPE
+	.BYTE	0
+	.ENDT
+
+T?TH-RED-GLASS::	.TABLE			; TABLE FOR OBJECT TH-RED-GLASS
+	.STRL "red piece of glass"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-RED-GLASS
+	.PROP 2,P?SYNONYM
+	W?GLASS
+	.PROP 2,P?ADJECTIVE
+	W?RED
+	.BYTE	0
+	.ENDT
+
+T?LG-BAKER-ST-DOOR::	.TABLE			; TABLE FOR OBJECT LG-BAKER-ST-DOOR
+	.STRL "front door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-BAKER-ST-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 8,P?ADJECTIVE
+	W?FRONT
+	W?HOLMES'
+	W?HOLMES'S
+	W?SHERLOCK
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?RM-HENRY-VII-CHAPEL::	.TABLE			; TABLE FOR OBJECT RM-HENRY-VII-CHAPEL
+	.STRL "Henry VII Chapel"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-CHAPEL-AISLE		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-INNOCENTS-CORNER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-CHAPEL-AISLE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AMBULATORY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-CONFESSOR-CHAPEL		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-AMBULATORY		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-CONFESSOR-CHAPEL		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-HENRY-VII-CHAPEL
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE	0
+	.ENDT
+
+T?TH-X-OBJECT::	.TABLE			; TABLE FOR OBJECT TH-X-OBJECT
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+T?TH-WATSONS-HAT::	.TABLE			; TABLE FOR OBJECT TH-WATSONS-HAT
+	.STRL "hat"
+	.PROP 2,P?SIZE
+	291
+	.PROP 2,P?ACTION
+	RT-AC-TH-WATSONS-HAT
+	.PROP 4,P?SYNONYM
+	W?HAT
+	W?BOWLER
+	.BYTE	0
+	.ENDT
+
+T?TH-ASH::	.TABLE			; TABLE FOR OBJECT TH-ASH
+	.STRL "cigar ash"
+	.PROP 2,P?ACTION
+	RT-AC-TH-ASH
+	.PROP 4,P?SYNONYM
+	W?SPECK
+	W?ASH
+	.PROP 10,P?ADJECTIVE
+	W?TRICHINOPOLY
+	W?FLAKE
+	W?CIGAR
+	W?SPECK
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?TH-EVENT::	.TABLE			; TABLE FOR OBJECT TH-EVENT
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-EVENT
+	.BYTE	0
+	.ENDT
+
+T?RM-PARLOUR::	.TABLE			; TABLE FOR OBJECT RM-PARLOUR
+	.STRL "parlour"
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE RM-ENTRY-HALL		; TO ROOM
+	LG-PARLOUR-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-ENTRY-HALL		; TO ROOM
+	LG-PARLOUR-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-PARLOUR
+	.PROP 4,P?SYNONYM
+	W?PARLOUR
+	W?PARLOR
+	.PROP 2,P?GLOBAL
+	.BYTE LG-PARLOUR-DOOR
+	.BYTE RM-ENTRY-HALL
+	.BYTE	0
+	.ENDT
+
+T?CH-BUTLER::	.TABLE			; TABLE FOR OBJECT CH-BUTLER
+	.STRL "butler"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-BUTLER
+	.PROP 4,P?SYNONYM
+	W?BUTLER
+	W?MAN
+	.BYTE	0
+	.ENDT
+
+T?RM-221B-BAKER-ST::	.TABLE			; TABLE FOR OBJECT RM-221B-BAKER-ST
+	.STRL "221-B Baker Street"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-YORK-PLACE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-ORCHARD-ST		; TO ROOM
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	.BYTE RM-ENTRY-HALL		; TO ROOM
+	LG-BAKER-ST-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-ENTRY-HALL		; TO ROOM
+	LG-BAKER-ST-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-221B-BAKER-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 6,P?ADJECTIVE
+	W?221-B
+	W?221B
+	W?BAKER
+	.PROP 4,P?GLOBAL
+	.BYTE LG-BAKER-ST-DOOR
+	.BYTE LG-WINDOW
+	.BYTE RM-ENTRY-HALL
+	.BYTE LG-STREETLIGHT
+	.BYTE	0
+	.ENDT
+
+T?RM-VICTORIA-STREET::	.TABLE			; TABLE FOR OBJECT RM-VICTORIA-STREET
+	.STRL "Victoria Street"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-BROAD-SANCTUARY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-VICTORIA-SQUARE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-VICTORIA-STREET
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 2,P?ADJECTIVE
+	W?VICTORIA
+	.PROP 2,P?GLOBAL
+	.BYTE LG-SHOPS
+	.BYTE LG-PLAQUES
+	.BYTE	0
+	.ENDT
+
+T?TH-GENERIC-BODY::	.TABLE			; TABLE FOR OBJECT TH-GENERIC-BODY
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-GENERIC-BODY
+	.PROP 50,P?SYNONYM
+	W?ARM
+	W?ARMS
+	W?SHOULDER
+	W?SHOULDERS
+	W?LEG
+	W?LEGS
+	W?HAND
+	W?HANDS
+	W?FOOT
+	W?FEET
+	W?HEAD
+	W?FACE
+	W?MOUTH
+	W?LIPS
+	W?THROAT
+	W?EYE
+	W?EYES
+	W?EAR
+	W?EARS
+	W?NOSE
+	W?HAIR
+	W?HEART
+	W?STOMACH
+	W?BODY
+	W?CLOTHES
+	.PROP 18,P?ADJECTIVE
+	W?WIGGINS'
+	W?HOLMES'
+	W?HOLMES'S
+	W?HUDSON'S
+	W?LEFT
+	W?RIGHT
+	W?HER
+	W?ELIZA'S
+	W?GIRL'S
+	.PROP 2,P?GENERIC
+	RT-GN-BODY
+	.BYTE	0
+	.ENDT
+
+T?TH-OAR-2::	.TABLE			; TABLE FOR OBJECT TH-OAR-2
+	.STRL "Captain Bligh's oar"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	9
+	.PROP 2,P?SYNONYM
+	W?OAR
+	.PROP 4,P?ADJECTIVE
+	W?CAPTAIN'S
+	W?BLIGH'S
+	.PROP 2,P?GENERIC
+	RT-GN-OAR
+	.BYTE	0
+	.ENDT
+
+T?TH-BLIGH-BOAT::	.TABLE			; TABLE FOR OBJECT TH-BLIGH-BOAT
+	.STRL "Captain Bligh's boat"
+	.PROP 2,P?SIZE
+	14453
+	.PROP 2,P?ACTION
+	RT-AC-TH-BLIGH-BOAT
+	.PROP 4,P?SYNONYM
+	W?BOAT
+	W?ROWBOAT
+	.PROP 4,P?ADJECTIVE
+	W?BLIGH
+	W?BLIGH'S
+	.BYTE	0
+	.ENDT
+
+T?TH-PIGEONS::	.TABLE			; TABLE FOR OBJECT TH-PIGEONS
+	.STRL "pigeons"
+	.PROP 2,P?SIZE
+	140
+	.PROP 2,P?ACTION
+	RT-AC-TH-PIGEONS
+	.PROP 4,P?SYNONYM
+	W?PIGEONS
+	W?BIRDS
+	.PROP 4,P?ADJECTIVE
+	W?FLOCK
+	W?GROUP
+	.BYTE	0
+	.ENDT
+
+T?RM-COVENT-GARDEN::	.TABLE			; TABLE FOR OBJECT RM-COVENT-GARDEN
+	.STRL "Covent Garden"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-NEW-OXFORD-ST		; TO ROOM
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-STRAND		; TO ROOM
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-COVENT-GARDEN
+	.PROP 2,P?SYNONYM
+	W?GARDEN
+	.PROP 2,P?ADJECTIVE
+	W?COVENT
+	.PROP 2,P?PSEUDOS
+	PT?2916
+	.BYTE	0
+	.ENDT
+
+T?RM-BAR-OF-GOLD::	.TABLE			; TABLE FOR OBJECT RM-BAR-OF-GOLD
+	.STRL "Bar of Gold"
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	.BYTE RM-SWAN-LANE		; TO ROOM
+	LG-BAR-OF-GOLD-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-SWAN-LANE		; TO ROOM
+	LG-BAR-OF-GOLD-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-BAR-OF-GOLD
+	.PROP 4,P?SYNONYM
+	W?BAR
+	W?GOLD
+	.PROP 4,P?ADJECTIVE
+	W?BAR
+	W?GOLD
+	.PROP 2,P?GLOBAL
+	.BYTE LG-BAR-OF-GOLD-DOOR
+	.BYTE RM-SWAN-LANE
+	.BYTE	0
+	.ENDT
+
+T?TH-LAIR-KEY::	.TABLE			; TABLE FOR OBJECT TH-LAIR-KEY
+	.STRL "Moriarty's key"
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ADJECTIVE
+	W?MORIARTY
+	.BYTE	0
+	.ENDT
+
+T?TH-GUARDS-KEYS::	.TABLE			; TABLE FOR OBJECT TH-GUARDS-KEYS
+	.STRL "keys"
+	.PROP 2,P?ACTION
+	RT-AC-TH-GUARDS-KEYS
+	.PROP 2,P?SYNONYM
+	W?KEYS
+	.PROP 4,P?ADJECTIVE
+	W?HIS
+	W?GUARD'S
+	.BYTE	0
+	.ENDT
+
+T?CH-DENKEEPER::	.TABLE			; TABLE FOR OBJECT CH-DENKEEPER
+	.STRL "denkeeper"
+	.PROP 2,P?SIZE
+	2871
+	.PROP 2,P?ACTION
+	RT-AC-CH-DENKEEPER
+	.PROP 6,P?SYNONYM
+	W?DENKEEPER
+	W?PROPRIETOR
+	W?MAN
+	.BYTE	0
+	.ENDT
+
+T?TH-POPE-TOMB::	.TABLE			; TABLE FOR OBJECT TH-POPE-TOMB
+	.STRL "Alexander Pope's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-POPE-TOMB
+	.PROP 4,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	.PROP 4,P?ADJECTIVE
+	W?POPE
+	W?POPE'S
+	.BYTE	0
+	.ENDT
+
+T?CH-HIM::	.TABLE			; TABLE FOR OBJECT CH-HIM
+	.STRL "him"
+	.PROP 4,P?SYNONYM
+	W?HIM
+	W?HIMSELF
+	.BYTE	0
+	.ENDT
+
+T?RM-DRAWBRIDGE::	.TABLE			; TABLE FOR OBJECT RM-DRAWBRIDGE
+	.STRL "drawbridge"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-BYWARD-TOWER		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-ENTRANCE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-DRAWBRIDGE
+	.PROP 2,P?SYNONYM
+	W?DRAWBRIDGE
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?LG-BANK-VAULT-DOOR::	.TABLE			; TABLE FOR OBJECT LG-BANK-VAULT-DOOR
+	.STRL "vault door"
+	.PROP 2,P?VALUE
+	3
+	.PROP 2,P?ACTION
+	RT-AC-LG-BANK-VAULT-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	W?VAULT
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?TH-BOAT::	.TABLE			; TABLE FOR OBJECT TH-BOAT
+	.STRL "old boat"
+	.PROP 2,P?SIZE
+	14453
+	.PROP 2,P?ACTION
+	RT-AC-TH-BOAT
+	.PROP 4,P?SYNONYM
+	W?BOAT
+	W?ROWBOAT
+	.PROP 2,P?ADJECTIVE
+	W?OLD
+	.PROP 2,P?CONTFCN
+	RT-CF-TH-BOAT
+	.BYTE	0
+	.ENDT
+
+T?TH-Y-OBJECT::	.TABLE			; TABLE FOR OBJECT TH-Y-OBJECT
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+T?TH-MAIL::	.TABLE			; TABLE FOR OBJECT TH-MAIL
+	.STRL "mail"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-MAIL
+	.PROP 6,P?SYNONYM
+	W?MAIL
+	W?LETTER
+	W?LETTERS
+	.PROP 4,P?ADJECTIVE
+	W?HOLMES'
+	W?HOLMES'S
+	.BYTE	0
+	.ENDT
+
+T?TH-BLUE-PILL-BOTTLE::	.TABLE			; TABLE FOR OBJECT TH-BLUE-PILL-BOTTLE
+	.STRL "blue bottle"
+	.PROP 2,P?SIZE
+	315
+	.PROP 2,P?ACTION
+	RT-AC-TH-BLUE-PILL-BOTTLE
+	.PROP 6,P?SYNONYM
+	W?BOTTLE
+	W?BOTTLES
+	W?LABEL
+	.PROP 2,P?ADJECTIVE
+	W?BLUE
+	.PROP 2,P?GENERIC
+	RT-GN-BOTTLE
+	.BYTE	0
+	.ENDT
+
+T?TH-EARS::	.TABLE			; TABLE FOR OBJECT TH-EARS
+	.STRL "ears"
+	.PROP 2,P?SIZE
+	143
+	.PROP 2,P?ACTION
+	RT-AC-TH-EARS
+	.PROP 4,P?SYNONYM
+	W?EAR
+	W?EARS
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?TH-CLUE-BOOK::	.TABLE			; TABLE FOR OBJECT TH-CLUE-BOOK
+	.STRL "old book"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-CLUE-BOOK
+	.PROP 2,P?SYNONYM
+	W?BOOK
+	.PROP 2,P?ADJECTIVE
+	W?OLD
+	.BYTE	0
+	.ENDT
+
+T?TH-VIOLIN::	.TABLE			; TABLE FOR OBJECT TH-VIOLIN
+	.STRL "violin"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-VIOLIN
+	.PROP 4,P?SYNONYM
+	W?VIOLIN
+	W?FIDDLE
+	.BYTE	0
+	.ENDT
+
+T?RM-THAMES-TWO::	.TABLE			; TABLE FOR OBJECT RM-THAMES-TWO
+	.STRL "On the Thames"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAND-BOAT		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THAMES-TWO
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE RM-LONDON-BRIDGE
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?TH-BOOK-PAGE::	.TABLE			; TABLE FOR OBJECT TH-BOOK-PAGE
+	.STRL "book page"
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?ACTION
+	RT-AC-TH-BOOK-PAGE
+	.PROP 4,P?SYNONYM
+	W?PAGE
+	W?INTRODUCTION
+	.PROP 2,P?ADJECTIVE
+	W?BOOK
+	.BYTE	0
+	.ENDT
+
+T?TH-SESAME::	.TABLE			; TABLE FOR OBJECT TH-SESAME
+	.STRL "sesame"
+	.PROP 2,P?ACTION
+	RT-AC-TH-SESAME
+	.PROP 2,P?SYNONYM
+	W?SESAME
+	.BYTE	0
+	.ENDT
+
+T?TH-CIGARETTE::	.TABLE			; TABLE FOR OBJECT TH-CIGARETTE
+	.STRL "cigarette"
+	.PROP 2,P?ACTION
+	RT-AC-TH-CIGARETTE
+	.PROP 4,P?SYNONYM
+	W?CIGARETTE
+	W?CIGARET
+	.PROP 2,P?ADJECTIVE
+	W?GUARD'S
+	.BYTE	0
+	.ENDT
+
+T?RM-OXFORD-ST::	.TABLE			; TABLE FOR OBJECT RM-OXFORD-ST
+	.STRL "Oxford Street"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-ST-GILES-CIRCUS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-ORCHARD-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-OXFORD-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 2,P?ADJECTIVE
+	W?OXFORD
+	.PROP 1,P?GLOBAL
+	.BYTE LG-SHOPS
+	.BYTE	0
+	.ENDT
+
+T?CH-HOUSEWIVES::	.TABLE			; TABLE FOR OBJECT CH-HOUSEWIVES
+	.STRL "women"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-HOUSEWIVES
+	.PROP 14,P?SYNONYM
+	W?HOUSEWIVES
+	W?WIVES
+	W?WOMEN
+	W?PEOPLE
+	W?CROWDS
+	W?CROWD
+	W?SHOPPERS
+	.BYTE	0
+	.ENDT
+
+T?RM-GROSVENOR-PLACE::	.TABLE			; TABLE FOR OBJECT RM-GROSVENOR-PLACE
+	.STRL "Grosvenor Place"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-VICTORIA-SQUARE		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-HYDE-PARK-CORNER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-GROSVENOR-PLACE
+	.PROP 2,P?SYNONYM
+	W?PLACE
+	.PROP 2,P?ADJECTIVE
+	W?GROSVENOR
+	.BYTE	0
+	.ENDT
+
+T?TH-RAILING::	.TABLE			; TABLE FOR OBJECT TH-RAILING
+	.STRL "railing"
+	.PROP 2,P?SIZE
+	7160
+	.PROP 2,P?ACTION
+	RT-AC-TH-RAILING
+	.PROP 4,P?SYNONYM
+	W?RAILING
+	W?RAIL
+	.BYTE	0
+	.ENDT
+
+T?CH-GROWLER-CABBIE::	.TABLE			; TABLE FOR OBJECT CH-GROWLER-CABBIE
+	.STRL "growler cabbie"
+	.PROP 2,P?SIZE
+	11
+	.PROP 2,P?ACTION
+	RT-AC-CH-GROWLER-CABBIE
+	.PROP 4,P?SYNONYM
+	W?CABBIE
+	W?DRIVER
+	.PROP 2,P?ADJECTIVE
+	W?GROWLER
+	.BYTE	0
+	.ENDT
+
+T?RM-KING-WILLIAM-ST::	.TABLE			; TABLE FOR OBJECT RM-KING-WILLIAM-ST
+	.STRL "King William Street"
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-MONUMENT		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-THREADNEEDLE-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-KING-WILLIAM-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 4,P?ADJECTIVE
+	W?KING
+	W?WILLIAM
+	.BYTE	0
+	.ENDT
+
+T?TH-LIBRARY-TABLE::	.TABLE			; TABLE FOR OBJECT TH-LIBRARY-TABLE
+	.STRL "table"
+	.PROP 2,P?SIZE
+	7158
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.BYTE	0
+	.ENDT
+
+T?TH-TURBAN::	.TABLE			; TABLE FOR OBJECT TH-TURBAN
+	.STRL "turban"
+	.PROP 2,P?ACTION
+	RT-AC-TH-TURBAN
+	.PROP 2,P?SYNONYM
+	W?TURBAN
+	.BYTE	0
+	.ENDT
+
+T?LG-BOATS::	.TABLE			; TABLE FOR OBJECT LG-BOATS
+	.STRL "boats"
+	.PROP 2,P?ACTION
+	RT-DF-LG-BOATS
+	.PROP 4,P?SYNONYM
+	W?BOATS
+	W?SHIPS
+	.PROP 2,P?ADJECTIVE
+	W?PLEASURE
+	.BYTE	0
+	.ENDT
+
+T?RM-NORTH-CHAPEL-AISLE::	.TABLE			; TABLE FOR OBJECT RM-NORTH-CHAPEL-AISLE
+	.STRL "North Chapel Aisle"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-INNOCENTS-CORNER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-AMBULATORY		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-NORTH-CHAPEL-AISLE
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-MARBLE
+	.BYTE	0
+	.ENDT
+
+T?TH-THOMAS-STATUE::	.TABLE			; TABLE FOR OBJECT TH-THOMAS-STATUE
+	.STRL "statue of Saint Thomas Becket"
+	.PROP 2,P?ACTION
+	RT-AC-TH-THOMAS-STATUE
+	.PROP 8,P?SYNONYM
+	W?THOMAS
+	W?BECKET
+	W?STATUE
+	W?WAX
+	.PROP 10,P?ADJECTIVE
+	W?SAINT
+	W?THOMAS
+	W?BECKET
+	W?WAX
+	W?BECKET'S
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?TH-JEWEL-CASE::	.TABLE			; TABLE FOR OBJECT TH-JEWEL-CASE
+	.STRL "jewel case"
+	.PROP 2,P?SIZE
+	7158
+	.PROP 2,P?ACTION
+	RT-AC-TH-JEWEL-CASE
+	.PROP 2,P?SYNONYM
+	W?CASE
+	.PROP 2,P?ADJECTIVE
+	W?JEWEL
+	.BYTE	0
+	.ENDT
+
+T?LG-TOWER::	.TABLE			; TABLE FOR OBJECT LG-TOWER
+	.STRL "Tower"
+	.PROP 2,P?ACTION
+	RT-AC-LG-TOWER
+	.PROP 4,P?SYNONYM
+	W?TOWER
+	W?LONDON
+	.PROP 4,P?ADJECTIVE
+	W?TOWER
+	W?LONDON
+	.PROP 2,P?GENERIC
+	RT-GN-TOWER
+	.BYTE	0
+	.ENDT
+
+T?RM-MANUSCRIPT-ROOM::	.TABLE			; TABLE FOR OBJECT RM-MANUSCRIPT-ROOM
+	.STRL "Manuscript Room"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-BRITISH-MUSEUM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-BRITISH-MUSEUM		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-MANUSCRIPT-ROOM
+	.PROP 2,P?SYNONYM
+	W?ROOM
+	.PROP 2,P?ADJECTIVE
+	W?MANUSCRIPT
+	.PROP 1,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.PROP 2,P?PSEUDOS
+	PT?2616
+	.BYTE	0
+	.ENDT
+
+T?TH-PIPE::	.TABLE			; TABLE FOR OBJECT TH-PIPE
+	.STRL "pipe"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-PIPE
+	.PROP 2,P?SYNONYM
+	W?PIPE
+	.BYTE	0
+	.ENDT
+
+T?CH-AKBAR::	.TABLE			; TABLE FOR OBJECT CH-AKBAR
+	.STRL "Akbar"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	2871
+	.PROP 2,P?ACTION
+	RT-AC-CH-AKBAR
+	.PROP 2,P?SYNONYM
+	W?AKBAR
+	.BYTE	0
+	.ENDT
+
+T?TH-BANK-OF-CANDLES::	.TABLE			; TABLE FOR OBJECT TH-BANK-OF-CANDLES
+	.STRL "bank of candles"
+	.PROP 2,P?ACTION
+	RT-AC-TH-BANK-OF-CANDLES
+	.PROP 8,P?SYNONYM
+	W?BANK
+	W?CANDLES
+	W?CANDLE
+	W?FLAME
+	.PROP 4,P?ADJECTIVE
+	W?BANK
+	W?CANDLES
+	.BYTE	0
+	.ENDT
+
+T?TH-TRINKETS::	.TABLE			; TABLE FOR OBJECT TH-TRINKETS
+	.STRL "trinkets"
+	.PROP 2,P?SIZE
+	8
+	.PROP 2,P?ACTION
+	RT-AC-TH-TRINKETS
+	.PROP 6,P?SYNONYM
+	W?TRINKETS
+	W?BAUBLES
+	W?TRINKET
+	.BYTE	0
+	.ENDT
+
+T?TH-BOXES::	.TABLE			; TABLE FOR OBJECT TH-BOXES
+	.STRL "safety deposit boxes"
+	.PROP 2,P?ACTION
+	RT-AC-TH-BOXES
+	.PROP 2,P?SYNONYM
+	W?BOXES
+	.PROP 4,P?ADJECTIVE
+	W?SAFETY
+	W?DEPOSIT
+	.BYTE	0
+	.ENDT
+
+T?RM-WHITEHALL::	.TABLE			; TABLE FOR OBJECT RM-WHITEHALL
+	.STRL "Whitehall"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-TRAFALGAR-SQUARE		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-SCOTLAND-YARD		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT-SQUARE		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-SCOTLAND-YARD		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-WHITEHALL
+	.PROP 2,P?SYNONYM
+	W?WHITEHALL
+	.PROP 1,P?GLOBAL
+	.BYTE RM-SCOTLAND-YARD
+	.BYTE	0
+	.ENDT
+
+T?RM-CONFESSOR-CHAPEL::	.TABLE			; TABLE FOR OBJECT RM-CONFESSOR-CHAPEL
+	.STRL "Confessor Chapel"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-CONFESSOR-CHAPEL
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE	0
+	.ENDT
+
+T?RM-BLOODY-TOWER::	.TABLE			; TABLE FOR OBJECT RM-BLOODY-TOWER
+	.STRL "Bloody Tower"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-OUTER-WARD		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-BLOODY-TOWER
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?RM-TOWER-GREEN::	.TABLE			; TABLE FOR OBJECT RM-TOWER-GREEN
+	.STRL "Tower Green"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-BOWYER-TOWER		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-WHITE-TOWER		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-WAKEFIELD-TOWER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-BLOODY-TOWER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-TOWER-GREEN
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOWER
+	.BYTE LG-RAVENS
+	.BYTE	0
+	.ENDT
+
+T?CH-NANNIES::	.TABLE			; TABLE FOR OBJECT CH-NANNIES
+	.STRL "nannies"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-NANNIES
+	.PROP 2,P?SYNONYM
+	W?NANNIES
+	.BYTE	0
+	.ENDT
+
+T?RM-BYWARD-TOWER::	.TABLE			; TABLE FOR OBJECT RM-BYWARD-TOWER
+	.STRL "Byward Tower"
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-RM-EXIT-BYWARD-TOWER		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-EXIT-BYWARD-TOWER		; PER FUNCTION
+	.PROP 2,P?IN		; CONDITIONAL EXIT
+	RT-EX-RM-EXIT-BYWARD-TOWER		; PER FUNCTION
+	.PROP 2,P?OUT		; CONDITIONAL EXIT
+	RT-EX-RM-EXIT-BYWARD-TOWER		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-DF-RM-BYWARD-TOWER
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOWER
+	.BYTE LG-RAVENS
+	.BYTE	0
+	.ENDT
+
+T?TH-EMERALD::	.TABLE			; TABLE FOR OBJECT TH-EMERALD
+	.STRL ""
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	157
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-EMERALD
+	.PROP 8,P?SYNONYM
+	W?EMERALD
+	W?GEM
+	W?GEMS
+	W?SCRATCH
+	.PROP 6,P?ADJECTIVE
+	W?GREEN
+	W?EMERALD
+	W?EMERALD'S
+	.PROP 2,P?GENERIC
+	RT-GN-GEM
+	.BYTE	0
+	.ENDT
+
+T?TH-HENRY-VII-TOMB::	.TABLE			; TABLE FOR OBJECT TH-HENRY-VII-TOMB
+	.STRL "Henry VII's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-HENRY-VII-TOMB
+	.PROP 4,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	.PROP 12,P?ADJECTIVE
+	W?HENRY
+	W?VII
+	W?HENRY'S
+	W?VII'S
+	W?ELIZABETH
+	W?YORK
+	.BYTE	0
+	.ENDT
+
+T?TH-CROWN-JEWELS::	.TABLE			; TABLE FOR OBJECT TH-CROWN-JEWELS
+	.STRL "the Crown Jewels"
+	.PROP 2,P?VALUE
+	10
+	.PROP 2,P?SIZE
+	84
+	.PROP 2,P?ACTION
+	RT-AC-TH-CROWN-JEWELS
+	.PROP 6,P?SYNONYM
+	W?JEWELS
+	W?REGALIA
+	W?DIAMOND
+	.PROP 2,P?ADJECTIVE
+	W?CROWN
+	.BYTE	0
+	.ENDT
+
+T?RM-SCOTLAND-YARD::	.TABLE			; TABLE FOR OBJECT RM-SCOTLAND-YARD
+	.STRL "Scotland Yard"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-WHITEHALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-BLACK-MUSEUM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-WHITEHALL		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-SCOTLAND-YARD
+	.PROP 2,P?SYNONYM
+	W?YARD
+	.PROP 2,P?ADJECTIVE
+	W?SCOTLAND
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE RM-WHITEHALL
+	.BYTE	0
+	.ENDT
+
+T?TH-FLOOR-ETC::	.TABLE			; TABLE FOR OBJECT TH-FLOOR-ETC
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-FLOOR-ETC
+	.PROP 16,P?SYNONYM
+	W?FLOOR
+	W?CEILING
+	W?SURFACE
+	W?GROUND
+	W?SKY
+	W?CLOUD
+	W?CLOUDS
+	W?FOG
+	.BYTE	0
+	.ENDT
+
+T?TH-PERSIAN-SLIPPER::	.TABLE			; TABLE FOR OBJECT TH-PERSIAN-SLIPPER
+	.STRL "persian slipper"
+	.PROP 2,P?SIZE
+	291
+	.PROP 2,P?SYNONYM
+	W?SLIPPER
+	.PROP 2,P?ADJECTIVE
+	W?PERSIAN
+	.BYTE	0
+	.ENDT
+
+T?RM-EVANGELIST-CHAPEL::	.TABLE			; TABLE FOR OBJECT RM-EVANGELIST-CHAPEL
+	.STRL "Evangelist Chapel"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-AMBULATORY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-TRANSEPT		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-EVANGELIST-CHAPEL
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-MARBLE
+	.BYTE	0
+	.ENDT
+
+T?RM-JEWEL-ROOM::	.TABLE			; TABLE FOR OBJECT RM-JEWEL-ROOM
+	.STRL "Jewel Room"
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-WAKEFIELD-TOWER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-JEWEL-ROOM
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?TH-ORANGE-PILL::	.TABLE			; TABLE FOR OBJECT TH-ORANGE-PILL
+	.STRL "orange pill"
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-ORANGE-PILL
+	.PROP 4,P?SYNONYM
+	W?PILL
+	W?PILLS
+	.PROP 2,P?ADJECTIVE
+	W?ORANGE
+	.PROP 2,P?GENERIC
+	RT-GN-PILL
+	.BYTE	0
+	.ENDT
+
+T?RM-CHEAPSIDE::	.TABLE			; TABLE FOR OBJECT RM-CHEAPSIDE
+	.STRL "Cheapside"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-THREADNEEDLE-ST		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-PINCHIN-LANE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-NEW-OXFORD-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-CHEAPSIDE
+	.PROP 2,P?SYNONYM
+	W?CHEAPSIDE
+	.BYTE	0
+	.ENDT
+
+T?TH-MATCH::	.TABLE			; TABLE FOR OBJECT TH-MATCH
+	.STRL ""
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-MATCH
+	.PROP 2,P?SYNONYM
+	W?MATCH
+	.PROP 2,P?ADJECTIVE
+	W?ZZZP
+	.BYTE	0
+	.ENDT
+
+T?TH-CLUMP-OF-MOSS::	.TABLE			; TABLE FOR OBJECT TH-CLUMP-OF-MOSS
+	.STRL "clump of moss"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-CLUMP-OF-MOSS
+	.PROP 4,P?SYNONYM
+	W?MOSS
+	W?CLUMP
+	.PROP 4,P?ADJECTIVE
+	W?CLUMP
+	W?MOSS
+	.BYTE	0
+	.ENDT
+
+T?CH-PLAYER::	.TABLE			; TABLE FOR OBJECT CH-PLAYER
+	.STRL "you"
+	.PROP 2,P?SIZE
+	8591
+	.PROP 2,P?STRENGTH
+	999
+	.PROP 2,P?DEXTERITY
+	15
+	.PROP 2,P?ACTION
+	RT-AC-CH-PLAYER
+	.PROP 4,P?SYNONYM
+	W?DOCTOR
+	W?WATSON
+	.PROP 2,P?ADJECTIVE
+	W?DOCTOR
+	.BYTE	0
+	.ENDT
+
+T?RM-ORCHARD-ST::	.TABLE			; TABLE FOR OBJECT RM-ORCHARD-ST
+	.STRL "Orchard Street"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-221B-BAKER-ST		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-OXFORD-ST		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-AUDLEY-ST		; TO ROOM
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-ORCHARD-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 2,P?ADJECTIVE
+	W?ORCHARD
+	.BYTE	0
+	.ENDT
+
+T?RM-BANK-VAULT::	.TABLE			; TABLE FOR OBJECT RM-BANK-VAULT
+	.STRL "bank vault"
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	.BYTE RM-BANK-OF-ENGLAND		; TO ROOM
+	LG-BANK-VAULT-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-BANK-OF-ENGLAND		; TO ROOM
+	LG-BANK-VAULT-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-BANK-VAULT
+	.PROP 2,P?SYNONYM
+	W?VAULT
+	.PROP 2,P?GLOBAL
+	.BYTE LG-BANK-VAULT-DOOR
+	.BYTE RM-BANK-OF-ENGLAND
+	.BYTE	0
+	.ENDT
+
+T?RM-BROAD-SANCTUARY::	.TABLE			; TABLE FOR OBJECT RM-BROAD-SANCTUARY
+	.STRL "Broad Sanctuary"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT-SQUARE		; TO ROOM
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	.BYTE RM-NAVE		; TO ROOM
+	LG-WESTMINSTER-DOOR		; IF DOOR IS OPEN
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-VICTORIA-STREET		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-NAVE		; TO ROOM
+	LG-WESTMINSTER-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-BROAD-SANCTUARY
+	.PROP 2,P?SYNONYM
+	W?SANCTUARY
+	.PROP 2,P?ADJECTIVE
+	W?BROAD
+	.PROP 3,P?GLOBAL
+	.BYTE LG-WESTMINSTER-DOOR
+	.BYTE LG-PLAQUES
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE	0
+	.ENDT
+
+T?TH-IT::	.TABLE			; TABLE FOR OBJECT TH-IT
+	.STRL "it"
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 6,P?SYNONYM
+	W?IT
+	W?THAT
+	W?ITSELF
+	.BYTE	0
+	.ENDT
+
+T?RM-INNOCENTS-CORNER::	.TABLE			; TABLE FOR OBJECT RM-INNOCENTS-CORNER
+	.STRL "Innocents Corner"
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-CHAPEL-AISLE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-INNOCENTS-CORNER
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE	0
+	.ENDT
+
+T?TH-WILLIAM-STATUE::	.TABLE			; TABLE FOR OBJECT TH-WILLIAM-STATUE
+	.STRL "statue of William the Conqueror"
+	.PROP 2,P?ACTION
+	RT-AC-TH-WILLIAM-STATUE
+	.PROP 8,P?SYNONYM
+	W?WILLIAM
+	W?CONQUEROR
+	W?STATUE
+	W?WAX
+	.PROP 6,P?ADJECTIVE
+	W?WILLIAM
+	W?WAX
+	W?WILLIAM'S
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?TH-CROWDS::	.TABLE			; TABLE FOR OBJECT TH-CROWDS
+	.STRL "crowds"
+	.PROP 2,P?ACTION
+	RT-AC-TH-CROWDS
+	.PROP 12,P?SYNONYM
+	W?CROWDS
+	W?CROWD
+	W?TOURISTS
+	W?SHOPPERS
+	W?WOMEN
+	W?PEOPLE
+	.BYTE	0
+	.ENDT
+
+T?TH-MATCHBOOK::	.TABLE			; TABLE FOR OBJECT TH-MATCHBOOK
+	.STRL "matchbook"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-MATCHBOOK
+	.PROP 6,P?SYNONYM
+	W?BOOK
+	W?MATCHES
+	W?MATCHBOOK
+	.BYTE	0
+	.ENDT
+
+T?TH-YELLOW-PILL::	.TABLE			; TABLE FOR OBJECT TH-YELLOW-PILL
+	.STRL "yellow pill"
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-YELLOW-PILL
+	.PROP 4,P?SYNONYM
+	W?PILL
+	W?PILLS
+	.PROP 2,P?ADJECTIVE
+	W?YELLOW
+	.PROP 2,P?GENERIC
+	RT-GN-PILL
+	.BYTE	0
+	.ENDT
+
+T?RM-THAMES-THREE::	.TABLE			; TABLE FOR OBJECT RM-THAMES-THREE
+	.STRL "On the Thames"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAND-BOAT		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THAMES-THREE
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE RM-LONDON-BRIDGE
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE LG-BOATS
+	.PROP 2,P?PSEUDOS
+	PT?3316
+	.BYTE	0
+	.ENDT
+
+T?TH-LITTLE-PRINCES-TOMB::	.TABLE			; TABLE FOR OBJECT TH-LITTLE-PRINCES-TOMB
+	.STRL "tomb of the Little Princes in the Tower"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-LITTLE-PRINCES-TOMB
+	.PROP 8,P?SYNONYM
+	W?TOMB
+	W?URN
+	W?INSCRIPTION
+	W?SARCOPHAGUS
+	.PROP 6,P?ADJECTIVE
+	W?LITTLE
+	W?PRINCES
+	W?PRINCES'
+	.BYTE	0
+	.ENDT
+
+T?LG-PLAQUES::	.TABLE			; TABLE FOR OBJECT LG-PLAQUES
+	.STRL "sign"
+	.PROP 2,P?SIZE
+	14443
+	.PROP 2,P?ACTION
+	RT-AC-LG-PLAQUES
+	.PROP 8,P?SYNONYM
+	W?PLAQUE
+	W?PLATE
+	W?SIGN
+	W?RELIEF
+	.BYTE	0
+	.ENDT
+
+T?TH-SOFA::	.TABLE			; TABLE FOR OBJECT TH-SOFA
+	.STRL "sofa"
+	.PROP 2,P?SIZE
+	14451
+	.PROP 2,P?ACTION
+	RT-AC-TH-SOFA
+	.PROP 4,P?SYNONYM
+	W?SOFA
+	W?COUCH
+	.BYTE	0
+	.ENDT
+
+T?TH-WORKBENCH::	.TABLE			; TABLE FOR OBJECT TH-WORKBENCH
+	.STRL "workbench"
+	.PROP 2,P?SIZE
+	7160
+	.PROP 4,P?SYNONYM
+	W?WORKBENCH
+	W?BENCH
+	.PROP 2,P?ADJECTIVE
+	W?WORK
+	.BYTE	0
+	.ENDT
+
+T?TH-ELIZAS-MOUTH::	.TABLE			; TABLE FOR OBJECT TH-ELIZAS-MOUTH
+	.STRL "girl's mouth"
+	.PROP 2,P?SIZE
+	143
+	.PROP 2,P?ACTION
+	RT-AC-TH-ELIZAS-MOUTH
+	.PROP 2,P?SYNONYM
+	W?MOUTH
+	.PROP 6,P?ADJECTIVE
+	W?HER
+	W?ELIZA'S
+	W?GIRL'S
+	.PROP 2,P?GENERIC
+	RT-GN-BODY
+	.BYTE	0
+	.ENDT
+
+T?RM-BUCKINGHAM-PALACE-RD::	.TABLE			; TABLE FOR OBJECT RM-BUCKINGHAM-PALACE-RD
+	.STRL "Buckingham Palace Road"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-QUEENS-GARDENS		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-VICTORIA-SQUARE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-BUCKINGHAM-PALACE-RD
+	.PROP 2,P?SYNONYM
+	W?ROAD
+	.PROP 4,P?ADJECTIVE
+	W?BUCKINGHAM
+	W?PALACE
+	.BYTE	0
+	.ENDT
+
+T?TH-SAPPHIRE::	.TABLE			; TABLE FOR OBJECT TH-SAPPHIRE
+	.STRL ""
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	144
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-SAPPHIRE
+	.PROP 8,P?SYNONYM
+	W?SAPPHIRE
+	W?GEM
+	W?GEMS
+	W?SCRATCH
+	.PROP 4,P?ADJECTIVE
+	W?SAPPHIRE
+	W?BLUE
+	.PROP 2,P?GENERIC
+	RT-GN-GEM
+	.BYTE	0
+	.ENDT
+
+T?RM-LAIR::	.TABLE			; TABLE FOR OBJECT RM-LAIR
+	.STRL "lair"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	.BYTE RM-LONDON-BRIDGE		; TO ROOM
+	LG-LAIR-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-LONDON-BRIDGE		; TO ROOM
+	LG-LAIR-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-LAIR
+	.PROP 2,P?SYNONYM
+	W?LAIR
+	.PROP 1,P?GLOBAL
+	.BYTE LG-LAIR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CH-LIBRARIAN::	.TABLE			; TABLE FOR OBJECT CH-LIBRARIAN
+	.STRL "lonely librarian"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-LIBRARIAN
+	.PROP 4,P?SYNONYM
+	W?LIBRARIAN
+	W?MAN
+	.PROP 2,P?ADJECTIVE
+	W?LONELY
+	.BYTE	0
+	.ENDT
+
+T?TH-FEET::	.TABLE			; TABLE FOR OBJECT TH-FEET
+	.STRL "feet"
+	.PROP 4,P?SYNONYM
+	W?FEET
+	W?FOOT
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?TH-LAB-EQUIPMENT::	.TABLE			; TABLE FOR OBJECT TH-LAB-EQUIPMENT
+	.STRL "laboratory equipment"
+	.PROP 2,P?ACTION
+	RT-AC-TH-LAB-EQUIPMENT
+	.PROP 10,P?SYNONYM
+	W?EQUIPMENT
+	W?BEAKERS
+	W?TESTUBES
+	W?PIPETTES
+	W?EXPERIMENT
+	.PROP 4,P?ADJECTIVE
+	W?LABORATORY
+	W?LAB
+	.BYTE	0
+	.ENDT
+
+T?RM-PARLIAMENT-SQUARE::	.TABLE			; TABLE FOR OBJECT RM-PARLIAMENT-SQUARE
+	.STRL "Parliament Square"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-WHITEHALL		; TO ROOM
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-BROAD-SANCTUARY		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-BIRDCAGE-WALK		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-PARLIAMENT-SQUARE
+	.PROP 2,P?SYNONYM
+	W?SQUARE
+	.PROP 2,P?ADJECTIVE
+	W?PARLIAMENT
+	.PROP 1,P?GLOBAL
+	.BYTE RM-PARLIAMENT
+	.BYTE	0
+	.ENDT
+
+T?TH-PITT-TOMB::	.TABLE			; TABLE FOR OBJECT TH-PITT-TOMB
+	.STRL "Pitt the Younger's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-PITT-TOMB
+	.PROP 4,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	.PROP 6,P?ADJECTIVE
+	W?PITT
+	W?YOUNGER
+	W?PITT'S
+	.BYTE	0
+	.ENDT
+
+T?LG-HOLMES-STUDY-DOOR::	.TABLE			; TABLE FOR OBJECT LG-HOLMES-STUDY-DOOR
+	.STRL "study door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-HOLMES-STUDY-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 8,P?ADJECTIVE
+	W?STUDY
+	W?HOLMES'S
+	W?HOLMES'
+	W?SHERLOCK
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?TH-ROOM::	.TABLE			; TABLE FOR OBJECT TH-ROOM
+	.STRL "room"
+	.PROP 2,P?ACTION
+	RT-DF-TH-ROOM
+	.PROP 2,P?SYNONYM
+	W?ROOM
+	.BYTE	0
+	.ENDT
+
+T?TH-TOBACCO::	.TABLE			; TABLE FOR OBJECT TH-TOBACCO
+	.STRL "tobacco"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-TOBACCO
+	.PROP 4,P?SYNONYM
+	W?TOBACCO
+	W?SHAG
+	.PROP 2,P?ADJECTIVE
+	W?SHAG
+	.BYTE	0
+	.ENDT
+
+T?RM-YORK-PLACE::	.TABLE			; TABLE FOR OBJECT RM-YORK-PLACE
+	.STRL "York Place"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-MARYLEBONE-RD		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-221B-BAKER-ST		; TO ROOM
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-YORK-PLACE
+	.PROP 2,P?SYNONYM
+	W?PLACE
+	.PROP 2,P?ADJECTIVE
+	W?YORK
+	.BYTE	0
+	.ENDT
+
+T?RM-THE-EMBANKMENT::	.TABLE			; TABLE FOR OBJECT RM-THE-EMBANKMENT
+	.STRL "the Embankment"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-LEAVE-EMBANKMENT		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-LEAVE-EMBANKMENT		; PER FUNCTION
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAUNCH-BOAT		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THE-EMBANKMENT
+	.PROP 2,P?SYNONYM
+	W?EMBANKMENT
+	.PROP 3,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?RM-MADAME-TUSSAUDS::	.TABLE			; TABLE FOR OBJECT RM-MADAME-TUSSAUDS
+	.STRL "Madame Tussaud's"
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-EXIT-TUSSAUDS		; PER FUNCTION
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-CHAMBER-OF-HORRORS		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-CHAMBER-OF-HORRORS		; TO ROOM
+	.PROP 2,P?OUT		; CONDITIONAL EXIT
+	RT-EX-RM-EXIT-TUSSAUDS		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-MADAME-TUSSAUDS
+	.PROP 6,P?SYNONYM
+	W?TUSSAUDS
+	W?TUSSAUD'S
+	W?MUSEUM
+	.PROP 4,P?ADJECTIVE
+	W?MADAME
+	W?WAX
+	.PROP 1,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.PROP 2,P?PSEUDOS
+	PT?1216
+	.BYTE	0
+	.ENDT
+
+T?RM-HYDE-PARK-CORNER::	.TABLE			; TABLE FOR OBJECT RM-HYDE-PARK-CORNER
+	.STRL "Hyde Park Corner"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-AUDLEY-ST		; TO ROOM
+	.PROP 2,P?NE		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-GROSVENOR-PLACE		; TO ROOM
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?SW		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-KENSINGTON-GARDENS		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-HYDE-PARK-CORNER
+	.PROP 2,P?SYNONYM
+	W?CORNER
+	.PROP 4,P?ADJECTIVE
+	W?HYDE
+	W?PARK
+	.PROP 2,P?PSEUDOS
+	PT?2116
+	.BYTE	0
+	.ENDT
+
+T?RM-WAKEFIELD-TOWER::	.TABLE			; TABLE FOR OBJECT RM-WAKEFIELD-TOWER
+	.STRL "Wakefield Tower"
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-JEWEL-ROOM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-WAKEFIELD-TOWER
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?TH-CLAPPER::	.TABLE			; TABLE FOR OBJECT TH-CLAPPER
+	.STRL "clapper"
+	.PROP 2,P?ACTION
+	RT-AC-TH-CLAPPER
+	.PROP 2,P?SYNONYM
+	W?CLAPPER
+	.BYTE	0
+	.ENDT
+
+T?TH-BREATH::	.TABLE			; TABLE FOR OBJECT TH-BREATH
+	.STRL "breath"
+	.PROP 2,P?ACTION
+	RT-AC-TH-BREATH
+	.PROP 2,P?SYNONYM
+	W?BREATH
+	.PROP 4,P?ADJECTIVE
+	W?MY
+	W?DEEP
+	.BYTE	0
+	.ENDT
+
+T?TH-DEAD-PIGEON::	.TABLE			; TABLE FOR OBJECT TH-DEAD-PIGEON
+	.STRL "dead pigeon"
+	.PROP 2,P?VALUE
+	0
+	.PROP 2,P?SIZE
+	70
+	.PROP 2,P?ACTION
+	RT-AC-TH-DEAD-PIGEON
+	.PROP 4,P?SYNONYM
+	W?PIGEON
+	W?BIRD
+	.PROP 2,P?ADJECTIVE
+	W?DEAD
+	.PROP 2,P?GENERIC
+	RT-GN-PIGEON
+	.BYTE	0
+	.ENDT
+
+T?RM-THE-MALL::	.TABLE			; TABLE FOR OBJECT RM-THE-MALL
+	.STRL "The Mall"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-TRAFALGAR-SQUARE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-QUEENS-GARDENS		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-THE-MALL
+	.PROP 2,P?SYNONYM
+	W?MALL
+	.BYTE	0
+	.ENDT
+
+T?LG-SHAFT-OF-LIGHT::	.TABLE			; TABLE FOR OBJECT LG-SHAFT-OF-LIGHT
+	.STRL "shaft of light"
+	.PROP 2,P?ACTION
+	RT-AC-LG-SHAFT-OF-LIGHT
+	.PROP 6,P?SYNONYM
+	W?SHAFT
+	W?LIGHT
+	W?SUNLIGHT
+	.PROP 6,P?ADJECTIVE
+	W?SHAFT
+	W?LIGHT
+	W?SUNLIGHT
+	.BYTE	0
+	.ENDT
+
+T?RM-PINCHIN-LANE::	.TABLE			; TABLE FOR OBJECT RM-PINCHIN-LANE
+	.STRL "Pinchin Lane"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-CHEAPSIDE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-SHERMANS-HOUSE		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-SHERMANS-HOUSE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-PINCHIN-LANE
+	.PROP 4,P?SYNONYM
+	W?LANE
+	W?ALLEY
+	.PROP 2,P?ADJECTIVE
+	W?PINCHIN
+	.PROP 1,P?GLOBAL
+	.BYTE RM-SHERMANS-HOUSE
+	.BYTE	0
+	.ENDT
+
+T?LG-WATER::	.TABLE			; TABLE FOR OBJECT LG-WATER
+	.STRL ""
+	.PROP 2,P?SIZE
+	14300
+	.PROP 2,P?ACTION
+	RT-AC-LG-WATER
+	.PROP 6,P?SYNONYM
+	W?WATER
+	W?RIVER
+	W?THAMES
+	.BYTE	0
+	.ENDT
+
+T?LG-RAVENS::	.TABLE			; TABLE FOR OBJECT LG-RAVENS
+	.STRL "ravens"
+	.PROP 2,P?SIZE
+	140
+	.PROP 2,P?ACTION
+	RT-AC-LG-RAVENS
+	.PROP 12,P?SYNONYM
+	W?RAVENS
+	W?BIRDS
+	W?ROOKS
+	W?RAVEN
+	W?ROOK
+	W?BIRD
+	.PROP 8,P?ADJECTIVE
+	W?FLOCK
+	W?GROUP
+	W?BUNCH
+	W?GAGGLE
+	.BYTE	0
+	.ENDT
+
+T?TH-ANCHOR::	.TABLE			; TABLE FOR OBJECT TH-ANCHOR
+	.STRL "anchor"
+	.PROP 2,P?SIZE
+	70
+	.PROP 2,P?ACTION
+	RT-AC-TH-ANCHOR
+	.PROP 2,P?SYNONYM
+	W?ANCHOR
+	.BYTE	0
+	.ENDT
+
+T?TH-TOPAZ::	.TABLE			; TABLE FOR OBJECT TH-TOPAZ
+	.STRL "topaz"
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	157
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-TOPAZ
+	.PROP 8,P?SYNONYM
+	W?TOPAZ
+	W?GEM
+	W?GEMS
+	W?SCRATCH
+	.PROP 4,P?ADJECTIVE
+	W?TOPAZ
+	W?TOPAZ'S
+	.PROP 2,P?GENERIC
+	RT-GN-GEM
+	.BYTE	0
+	.ENDT
+
+T?TH-BED::	.TABLE			; TABLE FOR OBJECT TH-BED
+	.STRL "bed"
+	.PROP 2,P?SIZE
+	14451
+	.PROP 2,P?ACTION
+	RT-AC-TH-BED
+	.PROP 2,P?SYNONYM
+	W?BED
+	.PROP 6,P?ADJECTIVE
+	W?SHERLOCK
+	W?HOLMES'
+	W?HOLMES'S
+	.BYTE	0
+	.ENDT
+
+T?CH-URCHINS::	.TABLE			; TABLE FOR OBJECT CH-URCHINS
+	.STRL "urchins"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-URCHINS
+	.PROP 2,P?SYNONYM
+	W?URCHINS
+	.BYTE	0
+	.ENDT
+
+T?TH-ELIZABETH-TOMB::	.TABLE			; TABLE FOR OBJECT TH-ELIZABETH-TOMB
+	.STRL "Elizabeth's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-ELIZABETH-TOMB
+	.PROP 4,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	.PROP 6,P?ADJECTIVE
+	W?ELIZABETH
+	W?MARY
+	W?TUDOR
+	.BYTE	0
+	.ENDT
+
+T?CH-MORIARTY::	.TABLE			; TABLE FOR OBJECT CH-MORIARTY
+	.STRL "Moriarty"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	2871
+	.PROP 2,P?ACTION
+	RT-AC-CH-MORIARTY
+	.PROP 6,P?SYNONYM
+	W?PROFESSOR
+	W?PROF
+	W?MORIARTY
+	.PROP 6,P?ADJECTIVE
+	W?JAMES
+	W?PROFESSOR
+	W?PROF
+	.BYTE	0
+	.ENDT
+
+T?RM-CLOCK-TOWER::	.TABLE			; TABLE FOR OBJECT RM-CLOCK-TOWER
+	.STRL "Clock Tower"
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-PARLIAMENT		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-CLOCK-TOWER
+	.PROP 1,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE	0
+	.ENDT
+
+T?TH-GREEN-PAPER::	.TABLE			; TABLE FOR OBJECT TH-GREEN-PAPER
+	.STRL "green piece of paper"
+	.PROP 2,P?SIZE
+	1574
+	.PROP 2,P?ACTION
+	RT-AC-TH-GREEN-PAPER
+	.PROP 6,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?BACK
+	.PROP 6,P?ADJECTIVE
+	W?PIECE
+	W?GREEN
+	W?BACK
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.PROP 2,P?INSCRIPTION
+	0
+	.PROP 2,P?HEATED
+	0
+	.BYTE	0
+	.ENDT
+
+T?TH-WAX-AX::	.TABLE			; TABLE FOR OBJECT TH-WAX-AX
+	.STRL ""
+	.PROP 2,P?SIZE
+	7
+	.PROP 2,P?ACTION
+	DESC-WAX-AX
+	.PROP 8,P?SYNONYM
+	W?BLADE
+	W?AX
+	W?AXE
+	W?WAX
+	.PROP 4,P?ADJECTIVE
+	W?WAX
+	W?WAX
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?RM-THREADNEEDLE-ST::	.TABLE			; TABLE FOR OBJECT RM-THREADNEEDLE-ST
+	.STRL "Threadneedle Street"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-ENTER-BANK-OF-ENGLAND		; PER FUNCTION
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-KING-WILLIAM-ST		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-CHEAPSIDE		; TO ROOM
+	.PROP 2,P?IN		; CONDITIONAL EXIT
+	RT-EX-ENTER-BANK-OF-ENGLAND		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THREADNEEDLE-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 2,P?ADJECTIVE
+	W?THREADNEEDLE
+	.PROP 2,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.BYTE RM-BANK-OF-ENGLAND
+	.BYTE	0
+	.ENDT
+
+T?TH-WATSONS-HEART::	.TABLE			; TABLE FOR OBJECT TH-WATSONS-HEART
+	.STRL "heart"
+	.PROP 2,P?ACTION
+	RT-AC-TH-WATSONS-HEART
+	.PROP 4,P?SYNONYM
+	W?HEART
+	W?HEARTBEAT
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?TH-MACE::	.TABLE			; TABLE FOR OBJECT TH-MACE
+	.STRL "mace"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	99
+	.PROP 2,P?ACTION
+	RT-AC-TH-MACE
+	.PROP 4,P?SYNONYM
+	W?MACE
+	W?WEAPON
+	.BYTE	0
+	.ENDT
+
+T?TH-STETHOSCOPE::	.TABLE			; TABLE FOR OBJECT TH-STETHOSCOPE
+	.STRL "stethoscope"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-STETHOSCOPE
+	.PROP 6,P?SYNONYM
+	W?STETHOSCOPE
+	W?SS
+	W?STETH
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?LG-LAIR-DOOR::	.TABLE			; TABLE FOR OBJECT LG-LAIR-DOOR
+	.STRL "door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-LAIR-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?RM-LOWER-THAMES-ST::	.TABLE			; TABLE FOR OBJECT RM-LOWER-THAMES-ST
+	.STRL "Lower Thames Street"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-MONUMENT		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-ENTRANCE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-LONDON-BRIDGE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-UPPER-THAMES-ST		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-SWAN-LANE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-LOWER-THAMES-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 4,P?ADJECTIVE
+	W?LOWER
+	W?THAMES
+	.PROP 1,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE	0
+	.ENDT
+
+T?TH-SHILLING::	.TABLE			; TABLE FOR OBJECT TH-SHILLING
+	.STRL "shilling"
+	.PROP 2,P?VALUE
+	0
+	.PROP 2,P?SIZE
+	14
+	.PROP 4,P?SYNONYM
+	W?SHILLING
+	W?COIN
+	.BYTE	0
+	.ENDT
+
+T?TH-BOX-LOCK::	.TABLE			; TABLE FOR OBJECT TH-BOX-LOCK
+	.STRL "lock"
+	.PROP 2,P?ACTION
+	RT-AC-TH-BOX-LOCK
+	.PROP 2,P?SYNONYM
+	W?INTNUM
+	.PROP 4,P?ADJECTIVE
+	W?LOCK
+	W?NUMBER
+	.PROP 2,P?GENERIC
+	RT-GN-INTNUM
+	.BYTE	0
+	.ENDT
+
+T?RM-TOTTENHAM-COURT-RD::	.TABLE			; TABLE FOR OBJECT RM-TOTTENHAM-COURT-RD
+	.STRL "Tottenham Court Road"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-ST-GILES-CIRCUS		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-MARYLEBONE-RD		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-TOTTENHAM-COURT-RD
+	.PROP 2,P?SYNONYM
+	W?ROAD
+	.PROP 4,P?ADJECTIVE
+	W?TOTTENHAM
+	W?COURT
+	.PROP 1,P?GLOBAL
+	.BYTE LG-SHOPS
+	.BYTE	0
+	.ENDT
+
+T?RM-LONDON-BRIDGE::	.TABLE			; TABLE FOR OBJECT RM-LONDON-BRIDGE
+	.STRL "London Bridge"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-LOWER-THAMES-ST		; TO ROOM
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?SIZE
+	14300
+	.PROP 2,P?ACTION
+	RT-AC-RM-LONDON-BRIDGE
+	.PROP 2,P?SYNONYM
+	W?BRIDGE
+	.PROP 2,P?ADJECTIVE
+	W?LONDON
+	.PROP 2,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?RM-MONUMENT::	.TABLE			; TABLE FOR OBJECT RM-MONUMENT
+	.STRL "the Monument"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-LOWER-THAMES-ST		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-KING-WILLIAM-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-MONUMENT
+	.PROP 4,P?SYNONYM
+	W?MONUMENT
+	W?OBELISK
+	.PROP 1,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.BYTE	0
+	.ENDT
+
+T?RM-SOUTH-CHAPEL-AISLE::	.TABLE			; TABLE FOR OBJECT RM-SOUTH-CHAPEL-AISLE
+	.STRL "South Chapel Aisle"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AMBULATORY		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-SOUTH-CHAPEL-AISLE
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-MARBLE
+	.BYTE	0
+	.ENDT
+
+T?TH-NELSON-EYE::	.TABLE			; TABLE FOR OBJECT TH-NELSON-EYE
+	.STRL "Nelson's blind eye"
+	.PROP 2,P?ACTION
+	RT-AC-TH-NELSON-EYE
+	.PROP 2,P?SYNONYM
+	W?EYE
+	.PROP 10,P?ADJECTIVE
+	W?NELSON
+	W?ADMIRAL
+	W?LORD
+	W?NELSON'S
+	W?BLIND
+	.BYTE	0
+	.ENDT
+
+T?RM-INSIDE-TRAITORS-GATE::	.TABLE			; TABLE FOR OBJECT RM-INSIDE-TRAITORS-GATE
+	.STRL "Inside Traitors Gate"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-OUTER-WARD		; TO ROOM
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE RM-OUTSIDE-TRAITORS-GATE		; TO ROOM
+	LG-PORTCULLIS-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-OUTSIDE-TRAITORS-GATE		; TO ROOM
+	LG-PORTCULLIS-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-DF-RM-INSIDE-TRAITORS-GATE
+	.PROP 3,P?GLOBAL
+	.BYTE LG-PORTCULLIS-DOOR
+	.BYTE LG-TOWER
+	.BYTE LG-RAVENS
+	.BYTE	0
+	.ENDT
+
+T?TH-INTNUM::	.TABLE			; TABLE FOR OBJECT TH-INTNUM
+	.STRL "number"
+	.PROP 2,P?ACTION
+	RT-AC-TH-INTNUM
+	.PROP 4,P?SYNONYM
+	W?INTNUM
+	W?NUMBER
+	.PROP 2,P?GENERIC
+	RT-GN-INTNUM
+	.BYTE	0
+	.ENDT
+
+T?LG-MARBLE::	.TABLE			; TABLE FOR OBJECT LG-MARBLE
+	.STRL "marble"
+	.PROP 2,P?SYNONYM
+	W?MARBLE
+	.BYTE	0
+	.ENDT
+
+T?RM-ST-GILES-CIRCUS::	.TABLE			; TABLE FOR OBJECT RM-ST-GILES-CIRCUS
+	.STRL "St Giles Circus"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-TOTTENHAM-COURT-RD		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-GREAT-RUSSELL-ST		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-NEW-OXFORD-ST		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-TRAFALGAR-SQUARE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-OXFORD-ST		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-ST-GILES-CIRCUS
+	.PROP 4,P?SYNONYM
+	W?GILES
+	W?CIRCUS
+	.PROP 6,P?ADJECTIVE
+	W?ST
+	W?SAINT
+	W?GILES
+	.BYTE	0
+	.ENDT
+
+T?TH-MALMSEY-POOL::	.TABLE			; TABLE FOR OBJECT TH-MALMSEY-POOL
+	.STRL "pool of malmsey"
+	.PROP 2,P?ACTION
+	RT-AC-TH-MALMSEY-POOL
+	.PROP 6,P?SYNONYM
+	W?MALMSEY
+	W?WINE
+	W?POOL
+	.PROP 2,P?ADJECTIVE
+	W?POOL
+	.BYTE	0
+	.ENDT
+
+T?TH-NELSON-STATUE::	.TABLE			; TABLE FOR OBJECT TH-NELSON-STATUE
+	.STRL "statue of Admiral Lord Nelson"
+	.PROP 2,P?SIZE
+	715
+	.PROP 2,P?ACTION
+	RT-AC-TH-NELSON-STATUE
+	.PROP 4,P?SYNONYM
+	W?NELSON
+	W?STATUE
+	.PROP 8,P?ADJECTIVE
+	W?NELSON
+	W?ADMIRAL
+	W?LORD
+	W?NELSON'S
+	.BYTE	0
+	.ENDT
+
+T?CH-MEMBERS::	.TABLE			; TABLE FOR OBJECT CH-MEMBERS
+	.STRL "members"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 2,P?ACTION
+	RT-AC-CH-MEMBERS
+	.PROP 2,P?SYNONYM
+	W?MEMBERS
+	.PROP 4,P?ADJECTIVE
+	W?CLUB
+	W?AGING
+	.BYTE	0
+	.ENDT
+
+T?RM-THAMES-FOUR::	.TABLE			; TABLE FOR OBJECT RM-THAMES-FOUR
+	.STRL "On the Thames"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAND-BOAT		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THAMES-FOUR
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE RM-LONDON-BRIDGE
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?TH-MAGNIFYING-GLASS::	.TABLE			; TABLE FOR OBJECT TH-MAGNIFYING-GLASS
+	.STRL "magnifying glass"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	57
+	.PROP 2,P?ACTION
+	RT-AC-TH-MAGNIFYING-GLASS
+	.PROP 4,P?SYNONYM
+	W?GLASS
+	W?LENS
+	.PROP 6,P?ADJECTIVE
+	W?MAGNIFYING
+	W?HOLMES'
+	W?HOLMES'S
+	.BYTE	0
+	.ENDT
+
+T?TH-NEWTON-TOMB::	.TABLE			; TABLE FOR OBJECT TH-NEWTON-TOMB
+	.STRL ""
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-NEWTON-TOMB
+	.PROP 20,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	W?SARCOPHAGUS
+	W?STATUE
+	W?CHERUB
+	W?CHERUBS
+	W?ANGELS
+	W?ANGEL
+	W?DIAGRAM
+	W?SYSTEM
+	.PROP 6,P?ADJECTIVE
+	W?NEWTON'S
+	W?NEWTON
+	W?SOLAR
+	.BYTE	0
+	.ENDT
+
+T?RM-HOLMES-STUDY::	.TABLE			; TABLE FOR OBJECT RM-HOLMES-STUDY
+	.STRL "Holmes's study"
+	.PROP 4,P?NORTH		; IMPOSSIBLE EXIT
+	STR?724		; FAILURE MESSAGE
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?EAST		; IMPOSSIBLE EXIT
+	STR?725		; FAILURE MESSAGE
+	.BYTE 0
+	.BYTE 0
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE RM-VESTIBULE		; TO ROOM
+	LG-HOLMES-STUDY-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	.BYTE RM-HOLMES-BEDROOM		; TO ROOM
+	LG-HOLMES-BEDROOM-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-HOLMES-BEDROOM		; TO ROOM
+	LG-HOLMES-BEDROOM-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-VESTIBULE		; TO ROOM
+	LG-HOLMES-STUDY-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-HOLMES-STUDY
+	.PROP 2,P?SYNONYM
+	W?STUDY
+	.PROP 6,P?GLOBAL
+	.BYTE LG-HOLMES-STUDY-DOOR
+	.BYTE LG-HOLMES-BEDROOM-DOOR
+	.BYTE LG-WINDOW
+	.BYTE RM-HOLMES-BEDROOM
+	.BYTE RM-VESTIBULE
+	.BYTE RM-ENTRY-HALL
+	.PROP 2,P?PSEUDOS
+	PT?516
+	.BYTE	0
+	.ENDT
+
+T?RM-WHITE-TOWER::	.TABLE			; TABLE FOR OBJECT RM-WHITE-TOWER
+	.STRL "White Tower"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE RM-DUNGEON		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE RM-TOWER-GREEN		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-WHITE-TOWER
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?TH-HEAD::	.TABLE			; TABLE FOR OBJECT TH-HEAD
+	.STRL "head"
+	.PROP 2,P?ACTION
+	RT-AC-TH-HEAD
+	.PROP 2,P?SYNONYM
+	W?HEAD
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?CH-HANSOM-CABBIE::	.TABLE			; TABLE FOR OBJECT CH-HANSOM-CABBIE
+	.STRL "hansom cabbie"
+	.PROP 2,P?SIZE
+	11
+	.PROP 2,P?ACTION
+	RT-AC-CH-HANSOM-CABBIE
+	.PROP 4,P?SYNONYM
+	W?CABBIE
+	W?DRIVER
+	.PROP 2,P?ADJECTIVE
+	W?HANSOM
+	.BYTE	0
+	.ENDT
+
+T?TH-WATERMARK::	.TABLE			; TABLE FOR OBJECT TH-WATERMARK
+	.STRL "watermark"
+	.PROP 2,P?ACTION
+	RT-AC-TH-WATERMARK
+	.PROP 4,P?SYNONYM
+	W?WATERMARK
+	W?MARK
+	.BYTE	0
+	.ENDT
+
+T?TH-BEDSIDE-TABLE::	.TABLE			; TABLE FOR OBJECT TH-BEDSIDE-TABLE
+	.STRL "bedside table"
+	.PROP 2,P?SIZE
+	7158
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.PROP 2,P?ADJECTIVE
+	W?BEDSIDE
+	.BYTE	0
+	.ENDT
+
+T?TH-SIXPENCE::	.TABLE			; TABLE FOR OBJECT TH-SIXPENCE
+	.STRL "sixpence"
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-SIXPENCE
+	.PROP 2,P?SYNONYM
+	W?SIXPENCE
+	.BYTE	0
+	.ENDT
+
+T?RM-DUNGEON::	.TABLE			; TABLE FOR OBJECT RM-DUNGEON
+	.STRL "Dungeon"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-WHITE-TOWER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-DUNGEON
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE LG-TOWER
+	.BYTE	0
+	.ENDT
+
+T?RM-VICTORIA-SQUARE::	.TABLE			; TABLE FOR OBJECT RM-VICTORIA-SQUARE
+	.STRL "Victoria Square"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-BUCKINGHAM-PALACE-RD		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-VICTORIA-STREET		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-GROSVENOR-PLACE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-VICTORIA-SQUARE
+	.PROP 2,P?SYNONYM
+	W?SQUARE
+	.PROP 2,P?ADJECTIVE
+	W?VICTORIA
+	.PROP 1,P?GLOBAL
+	.BYTE LG-SHOPS
+	.BYTE	0
+	.ENDT
+
+T?TH-BULLET-HOLE::	.TABLE			; TABLE FOR OBJECT TH-BULLET-HOLE
+	.STRL "bullet hole"
+	.PROP 2,P?ACTION
+	RT-AC-TH-BULLET-HOLE
+	.PROP 4,P?SYNONYM
+	W?HOLE
+	W?HOLES
+	.PROP 2,P?ADJECTIVE
+	W?BULLET
+	.BYTE	0
+	.ENDT
+
+T?LG-STREETLIGHT::	.TABLE			; TABLE FOR OBJECT LG-STREETLIGHT
+	.STRL "streetlight"
+	.PROP 2,P?ACTION
+	RT-AC-LG-STREETLIGHT
+	.PROP 14,P?SYNONYM
+	W?LIGHT
+	W?LAMP
+	W?STREETLIGHT
+	W?STREETLAMP
+	W?STREET-LIGHT
+	W?GASLIGHT
+	W?GAS-LIGHT
+	.PROP 2,P?ADJECTIVE
+	W?GAS
+	.BYTE	0
+	.ENDT
+
+T?TH-GUARDS-POCKET::	.TABLE			; TABLE FOR OBJECT TH-GUARDS-POCKET
+	.STRL "guard's pocket"
+	.PROP 2,P?SIZE
+	1430
+	.PROP 2,P?ACTION
+	RT-AC-TH-GUARDS-POCKET
+	.PROP 2,P?SYNONYM
+	W?POCKET
+	.PROP 4,P?ADJECTIVE
+	W?HIS
+	W?GUARD'S
+	.BYTE	0
+	.ENDT
+
+T?TH-NELSON-COLUMN::	.TABLE			; TABLE FOR OBJECT TH-NELSON-COLUMN
+	.STRL "Nelson's Column"
+	.PROP 2,P?SIZE
+	14429
+	.PROP 2,P?ACTION
+	RT-AC-TH-NELSON-COLUMN
+	.PROP 4,P?SYNONYM
+	W?COLUMN
+	W?MONUMENT
+	.PROP 4,P?ADJECTIVE
+	W?NELSON
+	W?NELSON'S
+	.BYTE	0
+	.ENDT
+
+T?TH-BELL::	.TABLE			; TABLE FOR OBJECT TH-BELL
+	.STRL "Big Ben"
+	.PROP 2,P?SIZE
+	114
+	.PROP 2,P?ACTION
+	RT-AC-TH-BELL
+	.PROP 6,P?SYNONYM
+	W?BEN
+	W?BELL
+	W?TOWER
+	.PROP 6,P?ADJECTIVE
+	W?BIG
+	W?CLOCK
+	W?BELL
+	.PROP 2,P?GENERIC
+	RT-GN-TOWER
+	.BYTE	0
+	.ENDT
+
+T?TH-DICKENS-TOMB::	.TABLE			; TABLE FOR OBJECT TH-DICKENS-TOMB
+	.STRL "Charles Dickens's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-DICKENS-TOMB
+	.PROP 4,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	.PROP 4,P?ADJECTIVE
+	W?DICKENS
+	W?DICKENS'
+	.BYTE	0
+	.ENDT
+
+T?TH-DRAKE-STATUE::	.TABLE			; TABLE FOR OBJECT TH-DRAKE-STATUE
+	.STRL "statue of Sir Francis Drake"
+	.PROP 2,P?ACTION
+	RT-AC-TH-DRAKE-STATUE
+	.PROP 8,P?SYNONYM
+	W?FRANCIS
+	W?DRAKE
+	W?STATUE
+	W?WAX
+	.PROP 10,P?ADJECTIVE
+	W?SIR
+	W?FRANCIS
+	W?DRAKE
+	W?WAX
+	W?DRAKE'S
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?LG-PORTCULLIS-DOOR::	.TABLE			; TABLE FOR OBJECT LG-PORTCULLIS-DOOR
+	.STRL "portcullis"
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-LG-PORTCULLIS-DOOR
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?PORTCULLIS
+	.PROP 6,P?ADJECTIVE
+	W?IRON
+	W?GATE
+	W?TRAITOR'S
+	.BYTE	0
+	.ENDT
+
+T?LG-WESTMINSTER-DOOR::	.TABLE			; TABLE FOR OBJECT LG-WESTMINSTER-DOOR
+	.STRL "Abbey door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-WESTMINSTER-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?RM-NORTH-AMBULATORY::	.TABLE			; TABLE FOR OBJECT RM-NORTH-AMBULATORY
+	.STRL "North Ambulatory"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-EVANGELIST-CHAPEL		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-CHAPEL-AISLE		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-HENRY-VII-CHAPEL		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-SANCTUARY		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-NORTH-AMBULATORY
+	.PROP 2,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?TH-HENRY-V-TOMB::	.TABLE			; TABLE FOR OBJECT TH-HENRY-V-TOMB
+	.STRL "Henry V's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-HENRY-V-TOMB
+	.PROP 8,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	W?COFFIN
+	W?EFFIGY
+	.PROP 8,P?ADJECTIVE
+	W?HENRY
+	W?HENRY'S
+	W?V
+	W?V'S
+	.BYTE	0
+	.ENDT
+
+T?RM-UPPER-THAMES-ST::	.TABLE			; TABLE FOR OBJECT RM-UPPER-THAMES-ST
+	.STRL "Upper Thames Street"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-LOWER-THAMES-ST		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-EMBANKMENT		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-UPPER-THAMES-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 4,P?ADJECTIVE
+	W?UPPER
+	W?THAMES
+	.BYTE	0
+	.ENDT
+
+T?CH-THEM::	.TABLE			; TABLE FOR OBJECT CH-THEM
+	.STRL "them"
+	.PROP 4,P?SYNONYM
+	W?THEM
+	W?THEMSELVES
+	.BYTE	0
+	.ENDT
+
+T?TH-PADDLE::	.TABLE			; TABLE FOR OBJECT TH-PADDLE
+	.STRL "paddle"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	8
+	.PROP 2,P?SYNONYM
+	W?PADDLE
+	.BYTE	0
+	.ENDT
+
+T?LG-PARLOUR-DOOR::	.TABLE			; TABLE FOR OBJECT LG-PARLOUR-DOOR
+	.STRL "parlour door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-PARLOUR-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	W?PARLOUR
+	W?PARLOR
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?TH-TIME::	.TABLE			; TABLE FOR OBJECT TH-TIME
+	.STRL ""
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-TIME
+	.PROP 8,P?SYNONYM
+	W?MINUTE
+	W?MINUTES
+	W?HOUR
+	W?HOURS
+	.PROP 2,P?ADJECTIVE
+	W?INTNUM
+	.BYTE	0
+	.ENDT
+
+T?TH-POCKET::	.TABLE			; TABLE FOR OBJECT TH-POCKET
+	.STRL "pocket"
+	.PROP 2,P?SIZE
+	1430
+	.PROP 2,P?ACTION
+	RT-AC-TH-POCKET
+	.PROP 4,P?SYNONYM
+	W?POCKET
+	W?POCKETS
+	.PROP 2,P?ADJECTIVE
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?TH-WALTER-STATUE::	.TABLE			; TABLE FOR OBJECT TH-WALTER-STATUE
+	.STRL "statue of Sir Walter Raleigh"
+	.PROP 2,P?ACTION
+	RT-AC-TH-WALTER-STATUE
+	.PROP 8,P?SYNONYM
+	W?WALTER
+	W?RALEIGH
+	W?STATUE
+	W?WAX
+	.PROP 12,P?ADJECTIVE
+	W?SIR
+	W?WALTER
+	W?RALEIGH
+	W?WAX
+	W?WALTER'S
+	W?RALEIGH'S
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?RM-TORTURE-ROOM::	.TABLE			; TABLE FOR OBJECT RM-TORTURE-ROOM
+	.STRL "Torture Room"
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-BOWYER-TOWER		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-TORTURE-ROOM
+	.PROP 2,P?GLOBAL
+	.BYTE LG-STAIRWAY
+	.BYTE LG-TOWER
+	.PROP 2,P?PSEUDOS
+	PT?3716
+	.BYTE	0
+	.ENDT
+
+T?LG-HOLMES-BEDROOM-DOOR::	.TABLE			; TABLE FOR OBJECT LG-HOLMES-BEDROOM-DOOR
+	.STRL "bedroom door"
+	.PROP 2,P?ACTION
+	RT-AC-LG-HOLMES-BEDROOM-DOOR
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 8,P?ADJECTIVE
+	W?BEDROOM
+	W?HOLMES'S
+	W?HOLMES'
+	W?SHERLOCK
+	.PROP 2,P?GENERIC
+	RT-GN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?TH-NEWSPAPER::	.TABLE			; TABLE FOR OBJECT TH-NEWSPAPER
+	.STRL "newspaper"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	1435
+	.PROP 2,P?ACTION
+	RT-AC-TH-NEWSPAPER
+	.PROP 6,P?SYNONYM
+	W?NEWSPAPER
+	W?PAPER
+	W?PAPERS
+	.PROP 4,P?ADJECTIVE
+	W?NEWSPAPER
+	W?NEWS
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.BYTE	0
+	.ENDT
+
+T?CH-TRAINED-PIGEON::	.TABLE			; TABLE FOR OBJECT CH-TRAINED-PIGEON
+	.STRL "pigeon"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	786
+	.PROP 2,P?ACTION
+	RT-AC-CH-TRAINED-PIGEON
+	.PROP 4,P?SYNONYM
+	W?PIGEON
+	W?BIRD
+	.PROP 2,P?ADJECTIVE
+	W?TRAINED
+	.PROP 2,P?GENERIC
+	RT-GN-PIGEON
+	.BYTE	0
+	.ENDT
+
+T?TH-WHITE-PAPER::	.TABLE			; TABLE FOR OBJECT TH-WHITE-PAPER
+	.STRL "white piece of paper"
+	.PROP 2,P?SIZE
+	1574
+	.PROP 2,P?ACTION
+	RT-AC-TH-WHITE-PAPER
+	.PROP 6,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?BACK
+	.PROP 6,P?ADJECTIVE
+	W?PIECE
+	W?WHITE
+	W?BACK
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.PROP 2,P?INSCRIPTION
+	0
+	.PROP 2,P?HEATED
+	0
+	.BYTE	0
+	.ENDT
+
+T?RM-THE-STRAND::	.TABLE			; TABLE FOR OBJECT RM-THE-STRAND
+	.STRL "The Strand"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-COVENT-GARDEN		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-FLEET-STREET		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-TRAFALGAR-SQUARE		; TO ROOM
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THE-STRAND
+	.PROP 2,P?SYNONYM
+	W?STRAND
+	.PROP 2,P?PSEUDOS
+	PT?3116
+	.BYTE	0
+	.ENDT
+
+T?LG-COLUMNS::	.TABLE			; TABLE FOR OBJECT LG-COLUMNS
+	.STRL "columns"
+	.PROP 4,P?SYNONYM
+	W?COLUMNS
+	W?COLUMN
+	.PROP 2,P?ADJECTIVE
+	W?PURBECK
+	.BYTE	0
+	.ENDT
+
+T?TH-MANTELPIECE::	.TABLE			; TABLE FOR OBJECT TH-MANTELPIECE
+	.STRL "mantelpiece"
+	.PROP 2,P?SIZE
+	7160
+	.PROP 8,P?SYNONYM
+	W?MANTELPIECE
+	W?MANTEL
+	W?MANTLEPIECE
+	W?MANTLE
+	.BYTE	0
+	.ENDT
+
+T?CH-HOLMES::	.TABLE			; TABLE FOR OBJECT CH-HOLMES
+	.STRL "Holmes"
+	.PROP 2,P?SIZE
+	8591
+	.PROP 2,P?STRENGTH
+	999
+	.PROP 2,P?DEXTERITY
+	10
+	.PROP 2,P?ACTION
+	RT-AC-CH-HOLMES
+	.PROP 10,P?SYNONYM
+	W?HOLMES
+	W?SHERLOCK
+	W?DETECTIVE
+	W?FRIEND
+	W?COMPANION
+	.PROP 2,P?ADJECTIVE
+	W?SHERLOCK
+	.BYTE	0
+	.ENDT
+
+T?RM-THAMES-ONE::	.TABLE			; TABLE FOR OBJECT RM-THAMES-ONE
+	.STRL "On the Thames"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAND-BOAT		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THAMES-ONE
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE RM-THE-EMBANKMENT
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?CH-WIGGINS::	.TABLE			; TABLE FOR OBJECT CH-WIGGINS
+	.STRL "Wiggins"
+	.PROP 2,P?SIZE
+	2154
+	.PROP 2,P?STRENGTH
+	999
+	.PROP 2,P?DEXTERITY
+	10
+	.PROP 2,P?ACTION
+	RT-AC-CH-WIGGINS
+	.PROP 8,P?SYNONYM
+	W?WIGGINS
+	W?URCHIN
+	W?BOY
+	W?COMPANION
+	.PROP 2,P?CONTFCN
+	RT-AC-CH-WIGGINS
+	.BYTE	0
+	.ENDT
+
+T?TH-HANSOM-CAB::	.TABLE			; TABLE FOR OBJECT TH-HANSOM-CAB
+	.STRL "hansom cab"
+	.PROP 2,P?SIZE
+	14443
+	.PROP 2,P?ACTION
+	RT-AC-TH-HANSOM-CAB
+	.PROP 2,P?SYNONYM
+	W?CAB
+	.PROP 2,P?ADJECTIVE
+	W?HANSOM
+	.PROP 2,P?CONTFCN
+	RT-CF-TH-HANSOM-CAB
+	.BYTE	0
+	.ENDT
+
+T?RM-BUCKINGHAM-PALACE::	.TABLE			; TABLE FOR OBJECT RM-BUCKINGHAM-PALACE
+	.STRL "Buckingham Palace"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-QUEENS-GARDENS		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-BUCKINGHAM-PALACE
+	.PROP 2,P?SYNONYM
+	W?PALACE
+	.PROP 2,P?ADJECTIVE
+	W?BUCKINGHAM
+	.PROP 1,P?GLOBAL
+	.BYTE RM-QUEENS-GARDENS
+	.BYTE	0
+	.ENDT
+
+T?TH-RING::	.TABLE			; TABLE FOR OBJECT TH-RING
+	.STRL "ring"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-RING
+	.PROP 2,P?SYNONYM
+	W?RING
+	.PROP 2,P?ADJECTIVE
+	W?SIGNET
+	.BYTE	0
+	.ENDT
+
+T?RM-THAMES-FIVE::	.TABLE			; TABLE FOR OBJECT RM-THAMES-FIVE
+	.STRL "On the Thames"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAND-BOAT		; PER FUNCTION
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-EX-RM-STEER-BOAT		; PER FUNCTION
+	.PROP 2,P?ACTION
+	RT-AC-RM-THAMES-FIVE
+	.PROP 3,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?TH-CARNATION::	.TABLE			; TABLE FOR OBJECT TH-CARNATION
+	.STRL "carnation"
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	14
+	.PROP 2,P?ACTION
+	RT-AC-TH-CARNATION
+	.PROP 4,P?SYNONYM
+	W?CARNATION
+	W?FLOWER
+	.PROP 4,P?ADJECTIVE
+	W?GIRL'S
+	W?ELIZA'S
+	.BYTE	0
+	.ENDT
+
+T?TH-DIAL::	.TABLE			; TABLE FOR OBJECT TH-DIAL
+	.STRL "dial"
+	.PROP 2,P?ACTION
+	RT-AC-TH-DIAL
+	.PROP 2,P?SYNONYM
+	W?DIAL
+	.BYTE	0
+	.ENDT
+
+T?TH-OPIUM-GAS::	.TABLE			; TABLE FOR OBJECT TH-OPIUM-GAS
+	.STRL "opium"
+	.PROP 2,P?ACTION
+	RT-AC-TH-OPIUM-GAS
+	.PROP 6,P?SYNONYM
+	W?GAS
+	W?OPIUM
+	W?FUMES
+	.BYTE	0
+	.ENDT
+
+T?RM-ENTRY-HALL::	.TABLE			; TABLE FOR OBJECT RM-ENTRY-HALL
+	.STRL "entry hall"
+	.PROP 2,P?NORTH		; CONDITIONAL EXIT
+	RT-EX-PARLOUR-ENTRY		; PER FUNCTION
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	.BYTE RM-221B-BAKER-ST		; TO ROOM
+	LG-BAKER-ST-DOOR		; IF DOOR IS OPEN
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE RM-VESTIBULE		; TO ROOM
+	.PROP 2,P?IN		; CONDITIONAL EXIT
+	RT-EX-PARLOUR-ENTRY		; PER FUNCTION
+	.PROP 3,P?OUT		; CONDITIONAL EXIT
+	.BYTE RM-221B-BAKER-ST		; TO ROOM
+	LG-BAKER-ST-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-RM-ENTRY-HALL
+	.PROP 4,P?SYNONYM
+	W?HALL
+	W?HOUSE
+	.PROP 6,P?ADJECTIVE
+	W?ENTRY
+	W?HOLMES'
+	W?HOLMES'S
+	.PROP 5,P?GLOBAL
+	.BYTE LG-BAKER-ST-DOOR
+	.BYTE LG-PARLOUR-DOOR
+	.BYTE LG-STAIRWAY
+	.BYTE RM-PARLOUR
+	.BYTE RM-221B-BAKER-ST
+	.PROP 2,P?PSEUDOS
+	PT?316
+	.BYTE	0
+	.ENDT
+
+T?RM-TRAFALGAR-SQUARE::	.TABLE			; TABLE FOR OBJECT RM-TRAFALGAR-SQUARE
+	.STRL "Trafalgar Square"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-ST-GILES-CIRCUS		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-STRAND		; TO ROOM
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-WHITEHALL		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-MALL		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-DIOGENES-CLUB		; TO ROOM
+	.PROP 4,P?UP		; IMPOSSIBLE EXIT
+	STR?726		; FAILURE MESSAGE
+	.BYTE 0
+	.BYTE 0
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE RM-DIOGENES-CLUB		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-TRAFALGAR-SQUARE
+	.PROP 2,P?SYNONYM
+	W?SQUARE
+	.PROP 2,P?ADJECTIVE
+	W?TRAFALGAR
+	.PROP 2,P?GLOBAL
+	.BYTE LG-PLAQUES
+	.BYTE RM-DIOGENES-CLUB
+	.PROP 2,P?PSEUDOS
+	PT?2316
+	.BYTE	0
+	.ENDT
+
+T?CH-QUEEN::	.TABLE			; TABLE FOR OBJECT CH-QUEEN
+	.STRL "Queen Victoria"
+	.PROP 2,P?SIZE
+	14168
+	.PROP 4,P?SYNONYM
+	W?QUEEN
+	W?VICTORIA
+	.PROP 2,P?ADJECTIVE
+	W?QUEEN
+	.BYTE	0
+	.ENDT
+
+T?TH-GROWLER-CAB::	.TABLE			; TABLE FOR OBJECT TH-GROWLER-CAB
+	.STRL "growler cab"
+	.PROP 2,P?SIZE
+	14443
+	.PROP 2,P?ACTION
+	RT-AC-TH-GROWLER-CAB
+	.PROP 2,P?SYNONYM
+	W?CAB
+	.PROP 2,P?ADJECTIVE
+	W?GROWLER
+	.PROP 2,P?CONTFCN
+	RT-CF-TH-GROWLER-CAB
+	.BYTE	0
+	.ENDT
+
+T?TH-SUIT-OF-ARMOUR::	.TABLE			; TABLE FOR OBJECT TH-SUIT-OF-ARMOUR
+	.STRL "suit of armour"
+	.PROP 2,P?SIZE
+	14455
+	.PROP 2,P?ACTION
+	RT-AC-TH-SUIT-OF-ARMOUR
+	.PROP 6,P?SYNONYM
+	W?ARMOUR
+	W?SUIT
+	W?ARMOR
+	.PROP 6,P?ADJECTIVE
+	W?SUIT
+	W?ARMOUR
+	W?ARMOR
+	.BYTE	0
+	.ENDT
+
+T?TH-WATSONS-COAT::	.TABLE			; TABLE FOR OBJECT TH-WATSONS-COAT
+	.STRL "coat"
+	.PROP 2,P?SIZE
+	2150
+	.PROP 2,P?ACTION
+	RT-AC-TH-WATSONS-COAT
+	.PROP 2,P?SYNONYM
+	W?COAT
+	.BYTE	0
+	.ENDT
+
+T?RM-OUTSIDE-TRAITORS-GATE::	.TABLE			; TABLE FOR OBJECT RM-OUTSIDE-TRAITORS-GATE
+	.STRL "Outside Traitors Gate"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	.BYTE RM-INSIDE-TRAITORS-GATE		; TO ROOM
+	LG-PORTCULLIS-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?SOUTH		; CONDITIONAL EXIT
+	RT-EX-RM-LAUNCH-BOAT		; PER FUNCTION
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-INSIDE-TRAITORS-GATE		; TO ROOM
+	LG-PORTCULLIS-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-DF-RM-OUTSIDE-TRAITORS-GATE
+	.PROP 6,P?GLOBAL
+	.BYTE LG-WATER
+	.BYTE LG-UP-DOWN-STREAM
+	.BYTE RM-LONDON-BRIDGE
+	.BYTE LG-PORTCULLIS-DOOR
+	.BYTE LG-TOWER
+	.BYTE LG-BOATS
+	.BYTE	0
+	.ENDT
+
+T?TH-ELIZABETH-STATUE::	.TABLE			; TABLE FOR OBJECT TH-ELIZABETH-STATUE
+	.STRL "figure of Queen Elizabeth"
+	.PROP 2,P?ACTION
+	RT-AC-TH-ELIZABETH-STATUE
+	.PROP 6,P?SYNONYM
+	W?FIGURE
+	W?ELIZABETH
+	W?WAX
+	.PROP 2,P?ADJECTIVE
+	W?QUEEN
+	.PROP 2,P?GENERIC
+	RT-GN-WAX
+	.BYTE	0
+	.ENDT
+
+T?TH-MOROCCO-CASE::	.TABLE			; TABLE FOR OBJECT TH-MOROCCO-CASE
+	.STRL "morocco case"
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	RT-AC-TH-MOROCCO-CASE
+	.PROP 2,P?SYNONYM
+	W?CASE
+	.PROP 2,P?ADJECTIVE
+	W?MOROCCO
+	.BYTE	0
+	.ENDT
+
+T?TH-PARK-FLOWERS::	.TABLE			; TABLE FOR OBJECT TH-PARK-FLOWERS
+	.STRL "flowers"
+	.PROP 2,P?ACTION
+	RT-AC-TH-PARK-FLOWERS
+	.PROP 18,P?SYNONYM
+	W?FLOWERS
+	W?FLOWER
+	W?ROSE
+	W?ROSES
+	W?DAISIES
+	W?PETUNIAS
+	W?PEONIES
+	W?MARIGOLDS
+	W?DAFFODILS
+	.BYTE	0
+	.ENDT
+
+T?TH-LIQUID::	.TABLE			; TABLE FOR OBJECT TH-LIQUID
+	.STRL "clear, colourless liquid"
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-LIQUID
+	.PROP 6,P?SYNONYM
+	W?LIQUID
+	W?DRUG
+	W?COCAINE
+	.PROP 4,P?ADJECTIVE
+	W?CLEAR
+	W?COLOURLESS
+	.BYTE	0
+	.ENDT
+
+T?TH-BROWN-PAPER::	.TABLE			; TABLE FOR OBJECT TH-BROWN-PAPER
+	.STRL "brown piece of paper"
+	.PROP 2,P?SIZE
+	1574
+	.PROP 2,P?ACTION
+	RT-AC-TH-BROWN-PAPER
+	.PROP 6,P?SYNONYM
+	W?PAPER
+	W?PAPERS
+	W?BACK
+	.PROP 6,P?ADJECTIVE
+	W?PIECE
+	W?BROWN
+	W?BACK
+	.PROP 2,P?GENERIC
+	RT-GN-PAPER
+	.PROP 2,P?FLIPPED
+	0
+	.PROP 2,P?INSCRIPTION
+	0
+	.PROP 2,P?HEATED
+	0
+	.BYTE	0
+	.ENDT
+
+T?RM-NORTH-CLOISTER::	.TABLE			; TABLE FOR OBJECT RM-NORTH-CLOISTER
+	.STRL "North Cloister"
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AISLE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-NORTH-CLOISTER
+	.PROP 1,P?GLOBAL
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE	0
+	.ENDT
+
+T?TH-OPAL::	.TABLE			; TABLE FOR OBJECT TH-OPAL
+	.STRL "opal"
+	.PROP 2,P?VALUE
+	5
+	.PROP 2,P?SIZE
+	157
+	.PROP 2,P?OBJ-ADJ
+	0
+	.PROP 2,P?OBJ-NOUN
+	0
+	.PROP 2,P?ACTION
+	RT-AC-TH-OPAL
+	.PROP 8,P?SYNONYM
+	W?OPAL
+	W?GEM
+	W?GEMS
+	W?SCRATCH
+	.PROP 6,P?ADJECTIVE
+	W?OPAL
+	W?OPAL
+	'S
+	.PROP 2,P?GENERIC
+	RT-GN-GEM
+	.BYTE	0
+	.ENDT
+
+T?RM-SOUTH-TRANSEPT::	.TABLE			; TABLE FOR OBJECT RM-SOUTH-TRANSEPT
+	.STRL "South Transept"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-POETS-CORNER		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-AISLE		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE RM-NAVE		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-DF-RM-SOUTH-TRANSEPT
+	.PROP 4,P?GLOBAL
+	.BYTE LG-WINDOW
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-SHAFT-OF-LIGHT
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?RM-FLEET-STREET::	.TABLE			; TABLE FOR OBJECT RM-FLEET-STREET
+	.STRL "Fleet Street"
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-EMBANKMENT		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE RM-THE-STRAND		; TO ROOM
+	.PROP 2,P?ACTION
+	RT-AC-RM-FLEET-STREET
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 2,P?ADJECTIVE
+	W?FLEET
+	.BYTE	0
+	.ENDT
+
+T?RM-SOUTH-AISLE::	.TABLE			; TABLE FOR OBJECT RM-SOUTH-AISLE
+	.STRL "South Aisle"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE RM-NAVE		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE RM-SOUTH-TRANSEPT		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE RM-NORTH-CLOISTER		; TO ROOM
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE RM-JERICHO-PARLOUR		; TO ROOM
+	LG-JERICHO-PARLOUR-DOOR		; IF DOOR IS OPEN
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-JERICHO-PARLOUR		; TO ROOM
+	LG-JERICHO-PARLOUR-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-DF-RM-SOUTH-AISLE
+	.PROP 3,P?GLOBAL
+	.BYTE LG-JERICHO-PARLOUR-DOOR
+	.BYTE LG-TOMBS-ABBEY
+	.BYTE LG-COLUMNS
+	.BYTE	0
+	.ENDT
+
+T?TH-ANNE-OF-CLEVES-TOMB::	.TABLE			; TABLE FOR OBJECT TH-ANNE-OF-CLEVES-TOMB
+	.STRL "Anne of Cleve's tomb"
+	.PROP 2,P?SIZE
+	148
+	.PROP 2,P?ACTION
+	RT-AC-TH-ANNE-OF-CLEVES-TOMB
+	.PROP 8,P?SYNONYM
+	W?TOMB
+	W?INSCRIPTION
+	W?ANNE
+	W?CLEVES
+	.PROP 10,P?ADJECTIVE
+	W?ANNE
+	W?CLEVES
+	W?CLEVES'
+	W?ANNE'S
+	W?ANNES
+	.BYTE	0
+	.ENDT
+
+T?TH-SHAFT::	.TABLE			; TABLE FOR OBJECT TH-SHAFT
+	.STRL "shaft"
+	.PROP 2,P?SIZE
+	14443
+	.PROP 2,P?ACTION
+	RT-AC-TH-SHAFT
+	.PROP 2,P?SYNONYM
+	W?SHAFT
+	.BYTE	0
+	.ENDT
+
+T?RM-GREAT-RUSSELL-ST::	.TABLE			; TABLE FOR OBJECT RM-GREAT-RUSSELL-ST
+	.STRL "Great Russell Street"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	.BYTE RM-BRITISH-MUSEUM		; TO ROOM
+	LG-BRITISH-MUSEUM-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?EAST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE RM-ST-GILES-CIRCUS		; TO ROOM
+	.PROP 2,P?WEST		; CONDITIONAL EXIT
+	RT-SURGE		; PER FUNCTION
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	.BYTE RM-BRITISH-MUSEUM		; TO ROOM
+	LG-BRITISH-MUSEUM-DOOR		; IF DOOR IS OPEN
+	.PROP 2,P?ACTION
+	RT-AC-RM-GREAT-RUSSELL-ST
+	.PROP 4,P?SYNONYM
+	W?STREET
+	W?ST
+	.PROP 4,P?ADJECTIVE
+	W?GREAT
+	W?RUSSELL
+	.PROP 4,P?GLOBAL
+	.BYTE LG-BRITISH-MUSEUM-DOOR
+	.BYTE LG-PLAQUES
+	.BYTE LG-STAIRWAY
+	.BYTE RM-BRITISH-MUSEUM
+	.BYTE	0
+	.ENDT
+
+T?TH-LEFT::	.TABLE			; TABLE FOR OBJECT TH-LEFT
+	.STRL "left"
+	.PROP 2,P?ACTION
+	RT-AC-TH-LEFT
+	.PROP 8,P?SYNONYM
+	W?LEFT
+	W?BACKWARD
+	W?BEHIND
+	W?COUNTERCL
+	.BYTE	0
+	.ENDT
+
+T?TH-PACKET-OF-PAPER::	.TABLE			; TABLE FOR OBJECT TH-PACKET-OF-PAPER
+	.STRL "pacquet of paper"
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	1435
+	.PROP 10,P?SYNONYM
+	W?PACK
+	W?PAPER
+	W?PACQUET
+	W?PACKET
+	W?BOX
+	.PROP 8,P?ADJECTIVE
+	W?PACK
+	W?PAPER
+	W?PACKET
+	W?PACQUET
+	.PROP 2,P?GENERIC
+	RT-GN-BOX
+	.BYTE	0
+	.ENDT
+
+T?PSEUDO-OBJECT::	.TABLE			; TABLE FOR OBJECT PSEUDO-OBJECT
+	.STRL ""
+	.PROP 2,P?ACTION
+	0
+	.BYTE	0
+	.ENDT
+
+T?TH-COTTON-BALLS::	.TABLE			; TABLE FOR OBJECT TH-COTTON-BALLS
+	.STRL "cotton balls"
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?ACTION
+	RT-AC-TH-COTTON-BALLS
+	.PROP 6,P?SYNONYM
+	W?BALL
+	W?BALLS
+	W?COTTONBALL
+	.PROP 2,P?ADJECTIVE
+	W?COTTON
+	.BYTE	0
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+IMPTBL::
+
+T?101::
+T?GL-YES-IBUF::	.TABLE
+	3072
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?201::
+T?GL-YES-LEXV::	.TABLE
+	2560
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?301::
+GL-BLANKS::	.TABLE
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?401::
+T?GL-LOC-TRAIL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?501::
+T?GL-P-P-LEX::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?601::
+T?GL-P-S-LEX::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?701::
+T?GL-P-T-LEX::	.TABLE
+	.BYTE 59
+	.BYTE 0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?801::
+T?GL-P-PIBUF::	.TABLE
+	.BYTE 80
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?901::
+T?GL-P-RIBUF::	.TABLE
+	.BYTE 80
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1001::
+T?GL-P-ITBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1101::
+T?GL-P-OTBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1201::
+T?GL-P-VTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1301::
+T?GL-P-OVTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1401::
+T?GL-OOPS-INBUF::	.TABLE
+	.BYTE 80
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1501::
+T?GL-OOPS-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1601::
+T?GL-P-NAMW::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1701::
+T?GL-P-ADJW::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1801::
+T?GL-P-OFW::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1901::
+T?GL-P-PRSO::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2001::
+T?GL-P-PRSI::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2101::
+T?GL-P-BUTS::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2201::
+T?GL-P-MERGE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2301::
+T?GL-P-OCLAUSE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2401::
+T?GL-P-TIME::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?2501::
+T?GL-HOLMES-DESC-TXT::	.TABLE
+	.BYTE 1
+	PT?201
+	.ENDT
+
+T?2601::
+GL-HOLMES-DESPAIR-TXT::	.TABLE
+	.BYTE 1
+	PT?301
+	.ENDT
+
+T?2701::
+GL-HOLMES-IMPOSSIBLE-TXT::	.TABLE
+	.BYTE 1
+	PT?401
+	.ENDT
+
+T?2801::
+T?GL-WIGGINS-DESC-TXT::	.TABLE
+	.BYTE 1
+	PT?501
+	.ENDT
+
+T?2901::
+GL-WIGGINS-IMPOSSIBLE-TXT::	.TABLE
+	.BYTE 1
+	PT?601
+	.ENDT
+
+T?3001::
+GL-IMPOSSIBLE-TXT::	.TABLE
+	.BYTE 1
+	PT?701
+	.ENDT
+
+T?3101::
+T?GL-NOT-LIKELY-TXT::	.TABLE
+	.BYTE 1
+	PT?801
+	.ENDT
+
+T?3201::
+GL-LOOKS-TXT::	.TABLE
+	.BYTE 1
+	PT?901
+	.ENDT
+
+T?3301::
+GL-PUZZLED-TXT::	.TABLE
+	.BYTE 1
+	PT?1001
+	.ENDT
+
+T?3401::
+T?GL-BORING-TXT::	.TABLE
+	.BYTE 1
+	PT?1101
+	.ENDT
+
+T?3501::
+T?GL-NO-POINT-TXT::	.TABLE
+	.BYTE 1
+	PT?1201
+	.ENDT
+
+T?3601::
+GL-FOG-TXT::	.TABLE
+	.BYTE 1
+	PT?1301
+	.ENDT
+
+T?3701::
+T?GL-HOLMES-INDOORS-LOOK-TXT::	.TABLE
+	.BYTE 1
+	PT?1901
+	.ENDT
+
+T?3801::
+GL-HOLMES-INDOORS-ENTER-TXT::	.TABLE
+	.BYTE 1
+	PT?2001
+	.ENDT
+
+T?3901::
+T?GL-HOLMES-HOUSE-LOOK-TXT::	.TABLE
+	.BYTE 1
+	PT?2101
+	.ENDT
+
+T?4001::
+GL-HOLMES-HOUSE-ENTER-TXT::	.TABLE
+	.BYTE 1
+	PT?2201
+	.ENDT
+
+T?4101::
+T?GL-HOLMES-OUTDOORS-LOOK-TXT::	.TABLE
+	.BYTE 1
+	PT?2301
+	.ENDT
+
+T?4201::
+GL-HOLMES-OUTDOORS-ENTER-TXT::	.TABLE
+	.BYTE 1
+	PT?2401
+	.ENDT
+
+T?4301::
+T?GL-WIGGINS-LOOK-TXT::	.TABLE
+	.BYTE 1
+	PT?2501
+	.ENDT
+
+T?4401::
+GL-WIGGINS-ENTER-TXT::	.TABLE
+	.BYTE 1
+	PT?2601
+	.ENDT
+
+T?4501::
+GL-LIBRARIAN-TXT1::	.TABLE
+	.BYTE 1
+	PT?2701
+	.ENDT
+
+T?4601::
+GL-LIBRARIAN-TXT2::	.TABLE
+	.BYTE 1
+	PT?2801
+	.ENDT
+
+T?104::
+T?GL-TIME::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?204::
+T?GL-TEMP-TIME::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?304::
+T?GL-TIME-PARM::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?404::
+T?GL-TIME-UPDT-INC::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?504::
+T?GL-TIME-UPDT-DEF::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?604::
+T?GL-A-ROUT::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?704::
+T?GL-A-TIME::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?110::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?210::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?310::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?410::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?510::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?610::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?710::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?810::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?910::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1010::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1110::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?1210::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1310::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?1410::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?1510::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1610::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1710::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?1810::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1910::
+T?GL-DIROUT-TBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?125::
+T?GL-HOLES::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?126::
+T?GLOBAL-VARS-TABLE::	.TABLE
+	0
+	.ENDT
+
+
+; END OF IMPURENESS
+
+IMPURE::
+
+
+
+; VERB TABLE IS DEFINED HERE
+
+VERBS::
+VTBL::	.TABLE
+	ST?KISS
+	ST?SHUT
+	ST?PULL
+	ST?PUT
+	ST?BRING
+	ST?DIAL
+	ST?VERBOSE
+	ST?WALK
+	ST?SHINE
+	ST?QUIT
+	ST?SEYMOUR
+	ST?FIND
+	ST?HEAR
+	ST?YES
+	ST?TRANSLATE
+	ST?STOP
+	ST?$SOUND
+	ST?UNLOCK
+	ST?READ
+	ST?SAY
+	ST?BREAK
+	ST?JUMP
+	ST?POUR
+	ST?POCKET
+	ST?WAIT
+	ST?DIVE
+	ST?TAKE
+	ST?HAGGLE
+	ST?NO
+	ST?COUNT
+	ST?INHALE
+	ST?RAISE
+	ST?CALL
+	ST?SWORDFISH
+	ST?FOLLOW
+	ST?REFUSE
+	ST?FLY
+	ST?BOLEYN
+	ST?$REFRESH
+	ST?RESCUE
+	ST?DRIVE
+	ST?VERSION
+	ST?WIND
+	ST?ARAGON
+	ST?LIGHT
+	ST?LIE
+	ST?MOVE
+	ST?ARREST
+	ST?LET
+	ST?PLAY
+	ST?OPEN
+	ST?TASTE
+	ST?BUY
+	ST?HAUL
+	ST?STEAL
+	ST?TOUCH
+	ST?APPROACH
+	ST?BLOW
+	ST?SHOOT
+	ST?KNOCK
+	ST?PADDLE
+	ST?PICK
+	ST?RIDE
+	ST?LAND
+	ST?SMOKE
+	ST?BOARD
+	ST?ESCAPE
+	ST?PRAY
+	ST?AIM
+	ST?STAND
+	ST?UNDRESS
+	ST?LISTEN
+	ST?TIE
+	ST?WHERE
+	ST?SHOW
+	ST?UNSCREW
+	ST?FOO
+	ST?NOD
+	ST?HELP
+	ST?SAVE
+	ST?TELL
+	ST?THROW
+	ST?FEED
+	ST?DRESS
+	ST?LOWER
+	ST?USE
+	ST?HIDE
+	ST?SHAKE
+	ST?INVENTORY
+	ST?ATTACK
+	ST?HUSH
+	ST?KILL
+	ST?ENTER
+	ST?GIN
+	ST?RENT
+	ST?SEARCH
+	ST?WEAR
+	ST?PAY
+	ST?DISEMBARK
+	ST?ROB
+	ST?SWIM
+	ST?UNTIE
+	ST?CUT
+	ST?HOLD
+	ST?TIP
+	ST?ASCEND
+	ST?SELL
+	ST?SET
+	ST?MELT
+	ST?UNSCRIPT
+	ST?ILLUMINATE
+	ST?RING
+	ST?PUSH
+	ST?RUB
+	ST?SIT
+	ST?SUPER
+	ST?RETREAT
+	ST?BYE
+	ST?LOOSEN
+	ST?REACH
+	ST?REPLACE
+	ST?GUESS
+	ST?SCORE
+	ST?WEIGH
+	ST?EXHALE
+	ST?COVER
+	ST?LOOK
+	ST?EMPTY
+	ST?FOLD
+	ST?RIP
+	ST?PARR
+	ST?WORK
+	ST?CAST
+	ST?BOW
+	ST?HOWARD
+	ST?DROP
+	ST?BACK
+	ST?FEEL
+	ST?LEAVE
+	ST?HAND
+	ST?HIT
+	ST?NOTIFY
+	ST?SCALE
+	ST?PAT
+	ST?SCRIPT
+	ST?SPIN
+	ST?$VERIFY
+	ST?DESCEND
+	ST?EXTINGUISH
+	ST?SWING
+	ST?RESTART
+	ST?POKE
+	ST?DETONATE
+	ST?REPAIR
+	ST?SMELL
+	ST?BREATHE
+	ST?BRIEF
+	ST?ECHO
+	ST?REPLY
+	ST?GET
+	ST?DIAGNOSE
+	ST?SLEEP
+	ST?WAKE
+	ST?DRINK
+	ST?PET
+	ST?RETRACT
+	ST?REMOVE
+	ST?ANSWER
+	ST?WHAT
+	ST?YELL
+	ST?LOCK
+	ST?ADJUST
+	ST?BURN
+	ST?KICK
+	ST?CLEVES
+	ST?POINT
+	ST?TURN
+	ST?START
+	ST?CLEAN
+	ST?WHO
+	ST?MAYBE
+	ST?MAKE
+	ST?FELL
+	ST?RESTORE
+	ST?CLOSE
+	ST?STRIKE
+	ST?FIX
+	ST?GO
+	ST?HEAT
+	ST?SLIDE
+	ST?WAVE
+	ST?EXIT
+	ST?EXAMINE
+	ST?RELEASE
+	ST?EMBARK
+	ST?ROW
+	ST?WEDGE
+	ST?EAT
+	ST?FILL
+	ST?LEAN
+	ST?FLIP
+	ST?CLIMB
+	ST?CONCEAL
+	ST?FOCUS
+	ST?LAUNCH
+	ST?PASSWORD
+	ST?THANK
+	ST?WATCH
+	ST?ASK
+	ST?HELLO
+	ST?UNFOLD
+	.ENDT
+
+; SYNTAX DEFINITION TABLES ARE DEFINED HERE
+
+ST?KISS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?KISS
+	.BYTE FL-PERSON
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?SHUT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?LAMP-OFF
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?CLOSE
+	.BYTE FL-OPENABLE
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?HUSH
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?PULL::	.TABLE
+	.BYTE 14	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?UNPLUG
+	.BYTE 0
+	.BYTE 0
+	.BYTE 107	; 1 PR?APART
+	.BYTE V?OPEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 178	; 2 PR?DOWN
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LOWER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?RAISE
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 184	; 2 PR?ON
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?PULL
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?PULL
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?PUT::	.TABLE
+	.BYTE 11	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?LAMP-OFF
+	.BYTE 0
+	.BYTE SOG+SIR+SC+SH
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-BEHIND
+	.BYTE 0
+	.BYTE SH+SC+SMANY+SHAVE
+	.BYTE 46	;PR?BEHIND
+	.BYTE 0
+	.BYTE SOG+SIR+SC
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?WEAR
+	.BYTE 0
+	.BYTE SOG+SIR+SC
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-UNDER
+	.BYTE 0
+	.BYTE SH+SHAVE+SC+SMANY
+	.BYTE 47	;PR?UNDER
+	.BYTE 0
+	.BYTE SOG+SIR+SC
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?DROP
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+SMANY
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-ON
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?THROW
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE SOG+SIR+SC
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 44	;PR?AGAINST
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-ON
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+SMANY
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+SMANY
+	.BYTE 50	;PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SMANY
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?BRING::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?GET-FOR-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?GET-FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 59	;PR?FOR
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?GET-FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?DIAL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?VERBOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?DESC-LEVEL
+	.ENDT
+
+ST?WALK::	.TABLE
+	.BYTE 15	;NUMBER OF SYNTAXES
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?ESCAPE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?WALK-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 110	; 1 PR?BEHIND
+	.BYTE V?WALK-AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 109	; 1 PR?AROUND
+	.BYTE V?WALK-AROUND
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?CROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?STAND-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?ENTER
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?WALK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?WALK-AROUND
+	.ENDT
+
+ST?SHINE::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 176	; 2 PR?OVER
+	.BYTE V?SHINE-AT-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LIGHTED
+	.BYTE SH+SC+SHAVE
+	.BYTE 185	; 2 PR?IN
+	.BYTE V?SHINE-AT-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LIGHTED
+	.BYTE SH+SC+SHAVE
+	.BYTE 184	; 2 PR?ON
+	.BYTE V?SHINE-AT-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LIGHTED
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?SHINE-AT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?SHINE-AT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?SHINE-AT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?SHINE-AT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?QUIT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?QUIT
+	.ENDT
+
+ST?SEYMOUR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?SEYMOUR
+	.ENDT
+
+ST?FIND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?FIND
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?HEAR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?LISTEN
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?YES::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?YES
+	.ENDT
+
+ST?TRANSLATE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?TRANSLATE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?STOP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?LAMP-OFF
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?$SOUND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?$SOUND
+	.ENDT
+
+ST?UNLOCK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?UNLOCK
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE 0
+	.ENDT
+
+ST?READ::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?READ-TO-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	;0
+	.BYTE FL-READABLE
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?READ-TO
+	.BYTE 0
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.BYTE 61	;PR?TO
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?READ
+	.BYTE FL-READABLE
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?READ
+	.BYTE FL-READABLE
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.ENDT
+
+ST?SAY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?TELL
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?SAY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?SAY
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?BREAK::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 183	; 2 PR?THROUGH
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SHAVE+SH+SC
+	.BYTE 185	; 2 PR?IN
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SHAVE+SH+SC
+	.BYTE 178	; 2 PR?DOWN
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SHAVE+SH+SC
+	.BYTE 128	; 2 0
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 51	;PR?OFF
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SHAVE+SH+SC
+	.ENDT
+
+ST?JUMP::	.TABLE
+	.BYTE 11	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?CLIMB-DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?ENTER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?ENTER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?LEAP
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?CLIMB-OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?STAND-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?LEAP
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?POUR::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?POUR-FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?POUR-FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?POUR-FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?POUR
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?POUR
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?POCKET::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?POCKET
+	.BYTE 0
+	.BYTE SH+SC
+	.ENDT
+
+ST?WAIT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 105	; 1 PR?UNTIL
+	.BYTE V?WAIT-FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 123	; 1 PR?FOR
+	.BYTE V?WAIT-FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?WAIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?DIVE::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?LEAP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?DIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?DIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?DIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?DIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?TAKE::	.TABLE
+	.BYTE 12	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?TAKE-OFF
+	.BYTE FL-WORN
+	.BYTE SH+SC
+	.BYTE 107	; 1 PR?APART
+	.BYTE V?OPEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE-WITH
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 51	;PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LOWER
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?RAISE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE SOG+SIR+SC+SMANY
+	.ENDT
+
+ST?HAGGLE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 126	; 1 PR?WITH
+	.BYTE V?HAGGLE
+	.BYTE FL-PERSON
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?NO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?NO
+	.ENDT
+
+ST?COUNT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?COUNT
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?INHALE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?INHALE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?RAISE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?RAISE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?RAISE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?CALL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?CALL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?CALL
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?SWORDFISH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?SWORDFISH
+	.ENDT
+
+ST?FOLLOW::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?FOLLOW
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?REFUSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?REFUSE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?FLY::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?FLY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 126	; 1 PR?WITH
+	.BYTE V?FLY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?FLY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?FLY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?FLY
+	.ENDT
+
+ST?BOLEYN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?BOLEYN
+	.ENDT
+
+ST?$REFRESH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?REFRESH
+	.ENDT
+
+ST?RESCUE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?RESCUE
+	.BYTE FL-PERSON
+	.BYTE 0
+	.ENDT
+
+ST?DRIVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?DRIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?DRIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?VERSION::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?VERSION
+	.ENDT
+
+ST?WIND::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?WRAP-AROUND-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?WRAP-AROUND-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?WRAP-AROUND
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 45	;PR?AROUND
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?WIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?WIND
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?ARAGON::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?ARAGON
+	.ENDT
+
+ST?LIGHT::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?LIGHT-WITH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?LIGHT-WITH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?LIGHT-WITH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?LIGHT-WITH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?LIGHT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?LIE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?LIE-DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?LIE-DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LIE-DOWN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?MOVE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?MOVE
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?ARREST::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?ARREST
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?LET::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?RELEASE
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 42	;PR?GO
+	.BYTE FL-BYHAND
+	.BYTE 0
+	.BYTE 106	; 1 PR?GO
+	.BYTE V?RELEASE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?PLAY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 126	; 1 PR?WITH
+	.BYTE V?PLAY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?PLAY
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?OPEN::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?OPEN-WITH
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?OPEN-WITH
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?OPEN
+	.BYTE FL-OPENABLE
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?OPEN
+	.BYTE FL-OPENABLE
+	.BYTE STAKE+SH+SC+SOG+SIR
+	.ENDT
+
+ST?TASTE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?TASTE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?BUY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?BUY-FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?BUY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?BUY
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?HAUL::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?HAUL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?HAUL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?HAUL
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?STEAL::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?STEAL
+	.BYTE 0
+	.BYTE SMANY
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?STEAL
+	.BYTE 0
+	.BYTE SMANY
+	.BYTE 49	;PR?FROM
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?STEAL
+	.BYTE 0
+	.BYTE SMANY
+	.ENDT
+
+ST?TOUCH::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?TOUCH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?APPROACH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?WALK-TO
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?BLOW::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?LAMP-OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?DETONATE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?BLOW-INTO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?BLOW-INTO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?BLOW-INTO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?BLOW-INTO
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?SHOOT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?SHOOT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-WEAPON
+	.BYTE SHAVE+STAKE+SH+SC
+	.BYTE 128	; 2 0
+	.BYTE V?SHOOT-SWP
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH+SC
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?SHOOT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?KNOCK::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?HIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?HIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.BYTE 178	; 2 PR?DOWN
+	.BYTE V?HIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?KNOCK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?KNOCK
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?PADDLE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?PADDLE-WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 126	; 1 PR?WITH
+	.BYTE V?PADDLE-WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?PADDLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?PICK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE SOG+SMANY
+	.BYTE 128	; 2 0
+	.BYTE V?PICK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE SOG+SMANY
+	.ENDT
+
+ST?RIDE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?RIDE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?RIDE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?RIDE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?LAND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?LAND
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?SMOKE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?SMOKE
+	.BYTE 0
+	.BYTE SHAVE+SH+SC
+	.ENDT
+
+ST?BOARD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?ENTER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?ESCAPE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?ESCAPE
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?PRAY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?PRAY
+	.ENDT
+
+ST?AIM::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?POINT-AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?POINT-AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 191	; 2 PR?AT
+	.BYTE V?POINT-AT-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?STAND::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?STAND-UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?STAND-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?STAND-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?STAND
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?STAND
+	.ENDT
+
+ST?UNDRESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?UNDRESS
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?LISTEN::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 189	; 2 PR?TO
+	.BYTE V?LISTEN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 189	; 2 PR?TO
+	.BYTE V?LISTEN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 123	; 1 PR?FOR
+	.BYTE V?LISTEN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?LISTEN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?LISTEN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?LISTEN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?TIE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?TIE-UP
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 128	; 2 0
+	.BYTE V?TIE-UP
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 128	; 2 0
+	.BYTE V?TIE
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 61	;PR?TO
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?TIE
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.ENDT
+
+ST?WHERE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?WHERE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?SHOW::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?SHOW-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?SHOW
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 61	;PR?TO
+	.BYTE FL-PERSON
+	.BYTE SH+SC+SIR+SOG
+	.ENDT
+
+ST?UNSCREW::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?UNSCREW-FROM
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?UNSCREW-FROM
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?FOO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?FOO
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?NOD::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?WAVE-AT
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?WAVE-AT
+	.BYTE FL-PERSON
+	.BYTE 0
+	.ENDT
+
+ST?HELP::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?HINTS-NO
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?RESCUE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?HINT
+	.ENDT
+
+ST?SAVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?RESCUE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?SAVE
+	.ENDT
+
+ST?TELL::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 124	; 1 PR?ABOUT
+	.BYTE V?TELL-WHO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TELL-ABOUT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 60	;PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?TELL
+	.BYTE FL-PERSON
+	.BYTE SIR
+	.ENDT
+
+ST?THROW::	.TABLE
+	.BYTE 11	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?THROW-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?DROP
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SMANY+SC
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 50	;PR?DOWN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?THROW-OVER
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?THROW-OVER
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 51	;PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?THROW
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?THROW
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?DROP
+	.BYTE 0
+	.BYTE SH+SMANY+SC+SHAVE
+	.ENDT
+
+ST?FEED::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?FEED-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE FL-FOOD
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?FEED
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 61	;PR?TO
+	.BYTE FL-ALIVE
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?FEED-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-FOOD
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?DRESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?DRESS
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?LOWER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?LOWER
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?USE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?USE-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?USE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?HIDE::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?STAND-UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?ENTER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-UNDER
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 47	;PR?UNDER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-BEHIND
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 46	;PR?BEHIND
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 110	; 1 PR?BEHIND
+	.BYTE V?HIDE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?HIDE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?SHAKE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?POUR-FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EMPTY
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?SHAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?INVENTORY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?INVENTORY
+	.ENDT
+
+ST?ATTACK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?KILL
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?HUSH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?HUSH
+	.ENDT
+
+ST?KILL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?KILL
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?ENTER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?ENTER
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?GIN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?GIN
+	.ENDT
+
+ST?RENT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?FOO
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?SEARCH::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?SEARCH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?LOOK-UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 123	; 1 PR?FOR
+	.BYTE V?FIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?SEARCH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?SEARCH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?WEAR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?WEAR
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?PAY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?GIVE-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE+SMANY
+	.BYTE 128	; 2 0
+	.BYTE V?GIVE
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE+SMANY
+	.BYTE 61	;PR?TO
+	.BYTE FL-MONEY
+	.BYTE SIR+SOG
+	.BYTE 128	; 2 0
+	.BYTE V?PAY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-MONEY
+	.BYTE STAKE+SHAVE+SH+SC
+	.ENDT
+
+ST?DISEMBARK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?EXIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?ROB::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?STEAL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?ROB
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?SWIM::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?DIVE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?SWIM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?SWIM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?SWIM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?SWIM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?DIVE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?SWIM
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?UNTIE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?UNTIE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?CUT::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 179	; 2 PR?OFF
+	.BYTE V?CUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-KNIFE
+	.BYTE SC+SH+SHAVE+STAKE
+	.BYTE 178	; 2 PR?DOWN
+	.BYTE V?CUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-KNIFE
+	.BYTE SC+SH+SHAVE+STAKE
+	.BYTE 183	; 2 PR?THROUGH
+	.BYTE V?CUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-KNIFE
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?CUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-KNIFE
+	.BYTE SC+SH+SHAVE+STAKE
+	.BYTE 128	; 2 0
+	.BYTE V?CUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-KNIFE
+	.BYTE SC+SH+SHAVE+STAKE
+	.ENDT
+
+ST?HOLD::	.TABLE
+	.BYTE 11	;NUMBER OF SYNTAXES
+	.BYTE 107	; 1 PR?APART
+	.BYTE V?OPEN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LOWER
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 54	;PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 44	;PR?AGAINST
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?HOLD-OVER
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?RAISE
+	.BYTE FL-LOCATION
+	.BYTE SH+SC+SHAVE
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE SOG+SIR+SMANY
+	.ENDT
+
+ST?TIP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?TIP
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?ASCEND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?SELL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?SELL-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 128	; 2 0
+	.BYTE V?SELL
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 61	;PR?TO
+	.BYTE FL-PERSON
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?SET::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?DETONATE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?MELT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?MELT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LIGHTED
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?UNSCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?SCRIPT
+	.ENDT
+
+ST?ILLUMINATE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?SHINE-AT-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-LIGHTED
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?RING::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?RING
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?PUSH::	.TABLE
+	.BYTE 16	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-UNDER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 47	;PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 184	; 2 PR?ON
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 178	; 2 PR?DOWN
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?PLUG
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LOWER
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?RAISE
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?LAUNCH
+	.BYTE FL-LOCATION
+	.BYTE SIR+SOG
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?PUSH
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 64	; 1 0
+	.BYTE V?PUSH
+	.BYTE 0
+	.BYTE SIR+SOG
+	.ENDT
+
+ST?RUB::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?RUB-WITH
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?SIT::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?SIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?ENTER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?SIT
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?SIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?SIT
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?SUPER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?DESC-LEVEL
+	.ENDT
+
+ST?RETREAT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?ESCAPE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?WALK-AROUND
+	.ENDT
+
+ST?BYE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?GOODBYE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?LOOSEN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE+STAKE
+	.ENDT
+
+ST?REACH::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?REACH-IN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?REACH-IN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 189	; 2 PR?TO
+	.BYTE V?TOUCH-TO-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-TOOL
+	.BYTE 0
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?TOUCH-TO-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-TOOL
+	.BYTE 0
+	.BYTE 187	; 2 PR?FOR
+	.BYTE V?TOUCH-TO-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-TOOL
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TOUCH-TO-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-TOOL
+	.BYTE 0
+	.ENDT
+
+ST?REPLACE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?REPLACE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?GUESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?GUESS
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?SCORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?SCORE
+	.ENDT
+
+ST?WEIGH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?WEIGH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?EXHALE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?EXHALE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?COVER::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 176	; 2 PR?OVER
+	.BYTE V?COVER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?COVER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?COVER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?LOOK::	.TABLE
+	.BYTE 20	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?EXAMINE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 123	; 1 PR?FOR
+	.BYTE V?FIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?LOOK-OUTSIDE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 185	; 2 PR?IN
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 185	; 2 PR?IN
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 191	; 2 PR?AT
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 191	; 2 PR?AT
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?LOOK-ON
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?LOOK-INSIDE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 110	; 1 PR?BEHIND
+	.BYTE V?LOOK-BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?LOOK-UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 183	; 2 PR?THROUGH
+	.BYTE V?LOOK-THRU-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?LOOK-INSIDE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?DUMB-EXAMINE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?LOOK-UP
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?EXAMINE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LOOK-DOWN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 109	; 1 PR?AROUND
+	.BYTE V?LOOK
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?EXAMINE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0	; 0 0
+	.BYTE V?LOOK
+	.ENDT
+
+ST?EMPTY::	.TABLE
+	.BYTE 10	;NUMBER OF SYNTAXES
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?EMPTY-INTO
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?EMPTY
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EMPTY
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?EMPTY
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?FOLD::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?UNFOLD
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?WRAP-AROUND-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?WRAP-AROUND-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?WRAP-AROUND
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 45	;PR?AROUND
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?FOLD
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?FOLD
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?RIP::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE 0
+	.BYTE 183	; 2 PR?THROUGH
+	.BYTE V?RIP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?RIP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SC+SH+SHAVE+STAKE
+	.ENDT
+
+ST?PARR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?PARR
+	.ENDT
+
+ST?WORK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 184	; 2 PR?ON
+	.BYTE V?REPAIR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?CAST::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?CAST-OFF
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?BOW::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 116	; 1 PR?BEFORE
+	.BYTE V?BOW
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?BOW
+	.BYTE FL-PERSON
+	.BYTE 0
+	.ENDT
+
+ST?HOWARD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?HOWARD
+	.ENDT
+
+ST?DROP::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-ON
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 50	;PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?DROP
+	.BYTE 0
+	.BYTE SH+SMANY
+	.ENDT
+
+ST?BACK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?WALK-AROUND
+	.ENDT
+
+ST?FEEL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?REACH-IN
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?TOUCH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?LEAVE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-ON
+	.BYTE 0
+	.BYTE SH+SC+SMANY
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE SOG+SIR+SC
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SMANY
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SOG+SIR+SC
+	.BYTE 64	; 1 0
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?HAND::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?GIVE-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE+SMANY
+	.BYTE 128	; 2 0
+	.BYTE V?GIVE
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE+SMANY
+	.BYTE 61	;PR?TO
+	.BYTE FL-PERSON
+	.BYTE SIR+SOG
+	.ENDT
+
+ST?HIT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 191	; 2 PR?AT
+	.BYTE V?HIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?HIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?NOTIFY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?NOTIFY
+	.ENDT
+
+ST?SCALE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?CLIMB-OVER
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?PAT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?TOUCH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?SCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?SCRIPT
+	.ENDT
+
+ST?SPIN::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?SPIN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?$VERIFY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?VERIFY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?VERIFY
+	.ENDT
+
+ST?DESCEND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?EXTINGUISH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?LAMP-OFF
+	.BYTE FL-LAMP
+	.BYTE 0
+	.ENDT
+
+ST?SWING::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?CLIMB-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?SWING
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 63	;PR?AT
+	.BYTE FL-PERSON
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?SWING
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?RESTART::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?RESTART
+	.ENDT
+
+ST?POKE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?DETONATE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?DETONATE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?REPAIR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?REPAIR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?SMELL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?SMELL
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?BREATHE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXHALE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?INHALE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?INHALE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?BRIEF::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?DESC-LEVEL
+	.ENDT
+
+ST?ECHO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?ECHO
+	.ENDT
+
+ST?REPLY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?REPLY
+	.BYTE FL-PERSON
+	.BYTE 0
+	.ENDT
+
+ST?GET::	.TABLE
+	.BYTE 18	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?GET-FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?GET-FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 59	;PR?FOR
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?GET-FOR-SWP
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?TAKE-OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE-WITH
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 51	;PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 53	;PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?STAND-UNDER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?LOWER
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?RAISE
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?CLIMB-ON
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?ENTER
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?TAKE
+	.BYTE FL-TAKEABLE
+	.BYTE SOG+SIR+SC+SMANY
+	.ENDT
+
+ST?DIAGNOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?DIAGNOSE
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE 0
+	.ENDT
+
+ST?SLEEP::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?LIE-DOWN
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?LIE-DOWN
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0	; 0 0
+	.BYTE V?LIE-DOWN
+	.ENDT
+
+ST?WAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?ALARM
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?ALARM
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?DRINK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?DRINK-FROM
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 64	; 1 0
+	.BYTE V?DRINK
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?PET::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?TOUCH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?RETRACT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?FOLD
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?REMOVE::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE-WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TAKE
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 49	;PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?TAKE-OFF
+	.BYTE FL-WORN
+	.BYTE SH+SC
+	.ENDT
+
+ST?ANSWER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?REPLY
+	.BYTE FL-PERSON
+	.BYTE 0
+	.ENDT
+
+ST?WHAT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 124	; 1 PR?ABOUT
+	.BYTE V?WHAT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?WHAT
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?YELL::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?YELL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?YELL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?YELL
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?LOCK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?LOCK
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE 0
+	.ENDT
+
+ST?ADJUST::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?ADJUST
+	.BYTE 0
+	.BYTE SH+SC
+	.ENDT
+
+ST?BURN::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?BURN-WITH
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 178	; 2 PR?DOWN
+	.BYTE V?BURN-WITH
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 128	; 2 0
+	.BYTE V?BURN-WITH
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 64	; 1 0
+	.BYTE V?BURN
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH
+	.ENDT
+
+ST?KICK::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?KICK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?MUNG
+	.BYTE 0
+	.BYTE 0
+	.BYTE 109	; 1 PR?AROUND
+	.BYTE V?KICK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?KICK
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?CLEVES::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?CLEVES
+	.ENDT
+
+ST?POINT::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?POINT-AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?POINT-AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 191	; 2 PR?AT
+	.BYTE V?POINT-AT-SWP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 181	; 2 PR?OUT
+	.BYTE V?POINT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE FL-ALIVE
+	.BYTE 0
+	.BYTE 189	; 2 PR?TO
+	.BYTE V?POINT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 59	;PR?FOR
+	.BYTE FL-ALIVE
+	.BYTE 0
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?POINT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 191	; 2 PR?AT
+	.BYTE V?POINT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 59	;PR?FOR
+	.BYTE FL-ALIVE
+	.BYTE 0
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?POINT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?POINT
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?TURN::	.TABLE
+	.BYTE 11	;NUMBER OF SYNTAXES
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?TURN-UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?TURN-DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TUNE-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?FLIP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 109	; 1 PR?AROUND
+	.BYTE V?SPIN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?LAMP-OFF
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?LAMP-ON
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?TURN-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?READ
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?TURN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE+STAKE
+	.ENDT
+
+ST?START::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?LAMP-ON
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 64	; 1 0
+	.BYTE V?LAMP-ON
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?CLEAN::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 179	; 2 PR?OFF
+	.BYTE V?CLEAN-OFF
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?CLEAN-OFF
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 179	; 2 PR?OFF
+	.BYTE V?CLEAN-OFF
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?CLEAN-OFF
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 51	;PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?CLEAN-OFF
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?CLEAN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?CLEAN
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?WHO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?WHO
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?MAYBE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?MAYBE
+	.ENDT
+
+ST?MAKE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?MAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	;0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?MAKE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?MAKE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?FELL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?CUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-KNIFE
+	.BYTE SC+SH+SHAVE+STAKE
+	.ENDT
+
+ST?RESTORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	; 0 0
+	.BYTE V?RESTORE
+	.ENDT
+
+ST?CLOSE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 115	; 1 PR?OFF
+	.BYTE V?LAMP-OFF
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?CLOSE
+	.BYTE FL-OPENABLE
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?STRIKE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?STRIKE
+	.BYTE 0
+	.BYTE STAKE+SH+SC
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?FIX::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?REPAIR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?REPAIR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+ST?GO::	.TABLE
+	.BYTE 15	;NUMBER OF SYNTAXES
+	.BYTE 113	; 1 PR?FROM
+	.BYTE V?ESCAPE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 122	; 1 PR?AWAY
+	.BYTE V?ESCAPE
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?WALK-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 110	; 1 PR?BEHIND
+	.BYTE V?WALK-AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 109	; 1 PR?AROUND
+	.BYTE V?WALK-AROUND
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?CROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?STAND-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?ENTER
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?WALK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?WALK-AROUND
+	.ENDT
+
+ST?HEAT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?HEAT
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH+SC+SOG+SIR
+	.BYTE 48	;PR?OVER
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?HEAT
+	.BYTE 0
+	.BYTE SHAVE+STAKE+SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?SLIDE::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 50	;PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-UNDER
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 47	;PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?PUSH-TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61	;PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?MOVE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?WAVE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 125	; 1 PR?TO
+	.BYTE V?WAVE-AT
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 127	; 1 PR?AT
+	.BYTE V?WAVE-AT
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?SWING
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?EXIT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?EXAMINE::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 123	; 1 PR?FOR
+	.BYTE V?FIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?EXAMINE
+	.BYTE 0
+	.BYTE SH+SC+SIR+SOG
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?LOOK-INSIDE
+	.BYTE 0
+	.BYTE SH+SC+SIR+SOG
+	.BYTE 64	; 1 0
+	.BYTE V?EXAMINE
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?RELEASE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?RELEASE
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 49	;PR?FROM
+	.BYTE FL-BYHAND
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?RELEASE
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 62	;PR?WITH
+	.BYTE FL-BYHAND
+	.BYTE SHAVE
+	.ENDT
+
+ST?EMBARK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?ENTER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?ENTER
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?ROW::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?ROW
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	;0
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?WEDGE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 182	; 2 PR?UP
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?LOOSEN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 128	; 2 0
+	.BYTE V?WEDGE
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?EAT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?EAT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?FILL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?FILL
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?FILL
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?LEAN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?PUSH
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?FLIP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?FLIP
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?CLIMB::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 117	; 1 PR?OUT
+	.BYTE V?EXIT
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.BYTE 119	; 1 PR?THROUGH
+	.BYTE V?THROUGH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 121	; 1 PR?IN
+	.BYTE V?ENTER
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 111	; 1 PR?UNDER
+	.BYTE V?THROUGH
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 112	; 1 PR?OVER
+	.BYTE V?CLIMB-OVER
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 114	; 1 PR?DOWN
+	.BYTE V?CLIMB-DOWN
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 118	; 1 PR?UP
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?CLIMB-ON
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 64	; 1 0
+	.BYTE V?CLIMB-UP
+	.BYTE FL-LOCATION
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?CONCEAL::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-UNDER
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 47	;PR?UNDER
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUT-BEHIND
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 46	;PR?BEHIND
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 128	; 2 0
+	.BYTE V?PUT
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 57	;PR?IN
+	.BYTE 0
+	.BYTE SOG+SIR
+	.ENDT
+
+ST?FOCUS::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?FOCUS-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63	;PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?FOCUS-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 56	;PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 120	; 1 PR?ON
+	.BYTE V?FOCUS-ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?ADJUST
+	.BYTE 0
+	.BYTE SH+SC
+	.ENDT
+
+ST?LAUNCH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?LAUNCH
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?PASSWORD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?PASSWORD
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?THANK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?THANK
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0	; 0 0
+	.BYTE V?THANK
+	.ENDT
+
+ST?WATCH::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 62	;PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?LOOK-THRU
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 55	;PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?WATCH
+	.BYTE FL-LOCATION
+	.BYTE SH+SC+SOG+SIR
+	.ENDT
+
+ST?ASK::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 128	; 2 0
+	.BYTE V?ASK-FOR
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 59	;PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128	; 2 0
+	.BYTE V?ASK-ABOUT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 60	;PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64	; 1 0
+	.BYTE V?QUESTION
+	.BYTE FL-PERSON
+	.BYTE 0
+	.BYTE 123	; 1 PR?FOR
+	.BYTE V?ASK-FOR-1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 124	; 1 PR?ABOUT
+	.BYTE V?ASK-ABOUT-1
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?HELLO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?HELLO
+	.BYTE FL-LOCATION
+	.BYTE 0
+	.ENDT
+
+ST?UNFOLD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 64	; 1 0
+	.BYTE V?UNFOLD
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ACTIONS::
+ATBL::	.TABLE
+	V-REFRESH
+	V-VERIFY
+	V-ADJUST
+	V-POINT-AT-SWP
+	V-POINT-AT
+	V-REPLY
+	V-WALK-TO
+	V-ARAGON
+	V-ARREST
+	V-CLIMB-UP
+	V-ASK-ABOUT-1
+	V-ASK-FOR-1
+	V-QUESTION
+	V-ASK-ABOUT
+	V-ASK-FOR
+	V-KILL
+	V-WALK-AROUND
+	V-ESCAPE
+	V-BLOW-INTO
+	V-DETONATE
+	V-LAMP-OFF
+	V-ENTER
+	V-BOLEYN
+	V-BOW
+	V-MUNG
+	V-INHALE
+	V-EXHALE
+	V-DESC-LEVEL
+	V-GET-FOR
+	V-GET-FOR-SWP
+	V-BURN
+	V-BURN-WITH
+	V-BUY
+	V-BUY-FROM
+	V-GOODBYE
+	V-CALL
+	V-CAST-OFF
+	V-CLEAN
+	V-CLEAN-OFF
+	V-CLEVES
+	V-CLIMB-ON
+	V-CLIMB-DOWN
+	V-CLIMB-OVER
+	V-THROUGH
+	V-EXIT
+	V-CLOSE
+	V-PUT
+	V-PUT-BEHIND
+	V-PUT-UNDER
+	V-COUNT
+	V-COVER
+	V-CUT
+	V-DIAGNOSE
+	V-DIVE
+	V-LEAP
+	V-DRESS
+	V-DRINK
+	V-DRINK-FROM
+	V-DRIVE
+	V-DROP
+	V-PUT-ON
+	V-EAT
+	V-EMPTY
+	V-TAKE
+	V-EMPTY-INTO
+	V-EXAMINE
+	V-LOOK-INSIDE
+	V-FIND
+	V-LOOK-THRU
+	V-FEED-SWP
+	V-FEED
+	V-TOUCH
+	V-REACH-IN
+	V-FILL
+	V-REPAIR
+	V-FLIP
+	V-FLY
+	V-FOCUS-ON
+	V-FOLD
+	V-WRAP-AROUND
+	V-WRAP-AROUND-SWP
+	V-UNFOLD
+	V-FOLLOW
+	V-FOO
+	V-RAISE
+	V-LOWER
+	V-STAND-UNDER
+	V-TAKE-WITH
+	V-TAKE-OFF
+	V-GIN
+	V-WALK
+	V-STAND-ON
+	V-CROSS
+	V-GUESS
+	V-HAGGLE
+	V-GIVE
+	V-GIVE-SWP
+	V-HAUL
+	V-LISTEN
+	V-HEAT
+	V-HELLO
+	V-HINT
+	V-RESCUE
+	V-HINTS-NO
+	V-HIDE
+	V-HIT
+	V-TOUCH-TO
+	V-HOLD-OVER
+	V-OPEN
+	V-HOWARD
+	V-HUSH
+	V-SHINE-AT-SWP
+	V-INVENTORY
+	V-KICK
+	V-KISS
+	V-KNOCK
+	V-LAND
+	V-LAUNCH
+	V-PUSH
+	V-RELEASE
+	V-LIE-DOWN
+	V-LIGHT
+	V-LIGHT-WITH
+	V-LOCK
+	V-LOOK
+	V-LOOK-DOWN
+	V-LOOK-UP
+	V-DUMB-EXAMINE
+	V-LOOK-THRU-SWP
+	V-LOOK-UNDER
+	V-LOOK-BEHIND
+	V-LOOK-ON
+	V-LOOK-OUTSIDE
+	V-LOOSEN
+	V-MAKE
+	V-ECHO
+	V-MAYBE
+	V-MELT
+	V-MOVE
+	V-PUSH-TO
+	V-NO
+	V-WAVE-AT
+	V-NOTIFY
+	V-OPEN-WITH
+	V-PADDLE
+	V-PADDLE-WITH
+	V-PARR
+	V-PASSWORD
+	V-PAY
+	V-PICK
+	V-PLAY
+	V-POCKET
+	V-POINT
+	V-POUR
+	V-POUR-FROM
+	V-PRAY
+	V-PULL
+	V-UNPLUG
+	V-PLUG
+	V-THROW
+	V-WEAR
+	V-QUIT
+	V-TOUCH-TO-SWP
+	V-READ
+	V-READ-TO
+	V-READ-TO-SWP
+	V-REFUSE
+	V-REPLACE
+	V-RESTART
+	V-RESTORE
+	V-RIDE
+	V-RING
+	V-RIP
+	V-ROB
+	V-STEAL
+	V-ROW
+	V-RUB-WITH
+	V-SAVE
+	V-SAY
+	V-TELL
+	V-SCORE
+	V-SCRIPT
+	V-SEARCH
+	V-SELL
+	V-SELL-SWP
+	V-TUNE-TO
+	V-SEYMOUR
+	V-SHAKE
+	V-SHINE-AT
+	V-SHOOT
+	V-SHOOT-SWP
+	V-SHOW
+	V-SHOW-SWP
+	V-SIT
+	V-SMELL
+	V-SMOKE
+	V-SPIN
+	V-STAND
+	V-LAMP-ON
+	V-STRIKE
+	V-SWIM
+	V-SWING
+	V-SWORDFISH
+	V-TASTE
+	V-TELL-ABOUT
+	V-TELL-WHO
+	V-THANK
+	V-THROW-OVER
+	V-THROW-SWP
+	V-TIE
+	V-TIE-UP
+	V-TIP
+	V-TRANSLATE
+	V-TURN
+	V-TURN-TO
+	V-TURN-DOWN
+	V-TURN-UP
+	V-UNDRESS
+	V-UNLOCK
+	V-UNSCREW-FROM
+	V-UNTIE
+	V-USE
+	V-USE-ON
+	V-VERSION
+	V-WAIT
+	V-WAIT-FOR
+	V-ALARM
+	V-WATCH
+	V-WEDGE
+	V-WEIGH
+	V-WHAT
+	V-WHERE
+	V-WHO
+	V-WIND
+	V-YELL
+	V-YES
+	V-$SOUND
+	.ENDT
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PREACTIONS::
+PATBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-CALL
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-DROP
+	PRE-PUT-ON
+	0
+	0
+	PRE-TAKE
+	0
+	PRE-EXAMINE
+	0
+	0
+	0
+	0
+	PRE-FEED
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-GIVE
+	0
+	0
+	PRE-LISTEN
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-LIGHT-WITH
+	0
+	0
+	0
+	0
+	PRE-DUMB-EXAMINE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-POCKET
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-THROW
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-SHOOT
+	0
+	PRE-SHOW
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-THROW-OVER
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-WATCH
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; PREPOSITION TABLE IS DEFINED HERE
+
+PREPOSITIONS::
+PRTBL::	.TABLE
+	.WORD 65
+	W?UNTIL
+	.BYTE PR?UNTIL
+	W?GO
+	.BYTE PR?GO
+	W?APART
+	.BYTE PR?APART
+	W?AGAINST
+	.BYTE PR?AGAINST
+	W?AROUND
+	.BYTE PR?AROUND
+	W?BEHIND
+	.BYTE PR?BEHIND
+	W?UNDER
+	.BYTE PR?UNDER
+	W?OVER
+	.BYTE PR?OVER
+	W?FROM
+	.BYTE PR?FROM
+	W?DOWN
+	.BYTE PR?DOWN
+	W?OFF
+	.BYTE PR?OFF
+	W?BEFORE
+	.BYTE PR?BEFORE
+	W?OUT
+	.BYTE PR?OUT
+	W?UP
+	.BYTE PR?UP
+	W?THROUGH
+	.BYTE PR?THROUGH
+	W?ON
+	.BYTE PR?ON
+	W?IN
+	.BYTE PR?IN
+	W?AWAY
+	.BYTE PR?AWAY
+	W?FOR
+	.BYTE PR?FOR
+	W?ABOUT
+	.BYTE PR?ABOUT
+	W?TO
+	.BYTE PR?TO
+	W?WITH
+	.BYTE PR?WITH
+	W?AT
+	.BYTE PR?AT
+	W?TILL
+	.BYTE PR?UNTIL
+	W?TIL
+	.BYTE PR?UNTIL
+	W?NEAR
+	.BYTE PR?AGAINST
+	W?BEYOND
+	.BYTE PR?BEHIND
+	W?ACROSS
+	.BYTE PR?OVER
+	W?ALONG
+	.BYTE PR?AROUND
+	W?UNDERNEATH
+	.BYTE PR?UNDER
+	W?BENEATH
+	.BYTE PR?UNDER
+	W?BELOW
+	.BYTE PR?UNDER
+	W?OUTSIDE
+	.BYTE PR?OUT
+	W?WITHIN
+	.BYTE PR?IN
+	W?BETWEEN
+	.BYTE PR?IN
+	W?INTO
+	.BYTE PR?IN
+	W?INSIDE
+	.BYTE PR?IN
+	W?UPON
+	.BYTE PR?ON
+	W?ABOARD
+	.BYTE PR?ON
+	W?ONTO
+	.BYTE PR?ON
+	W?THRU
+	.BYTE PR?THROUGH
+	W?USING
+	.BYTE PR?WITH
+	W?TOWARDS
+	.BYTE PR?TO
+	W?TOWARD
+	.BYTE PR?TO
+	W?AGAINST
+	.BYTE PR?AGAINST
+	W?APART
+	.BYTE PR?APART
+	W?GO
+	.BYTE PR?GO
+	W?BEHIND
+	.BYTE PR?BEHIND
+	W?AROUND
+	.BYTE PR?AROUND
+	W?AWAY
+	.BYTE PR?AWAY
+	W?FROM
+	.BYTE PR?FROM
+	W?UNDER
+	.BYTE PR?UNDER
+	W?OVER
+	.BYTE PR?OVER
+	W?ON
+	.BYTE PR?ON
+	W?OFF
+	.BYTE PR?OFF
+	W?UP
+	.BYTE PR?UP
+	W?DOWN
+	.BYTE PR?DOWN
+	W?OUT
+	.BYTE PR?OUT
+	W?THROUGH
+	.BYTE PR?THROUGH
+	W?IN
+	.BYTE PR?IN
+	W?TO
+	.BYTE PR?TO
+	W?WITH
+	.BYTE PR?WITH
+	W?FOR
+	.BYTE PR?FOR
+	W?ABOUT
+	.BYTE PR?ABOUT
+	W?AT
+	.BYTE PR?AT
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 5
+	.BYTE 46
+	.BYTE 44
+	.BYTE 34
+	.BYTE 33
+	.BYTE 63
+	.BYTE 8
+	1194
+W?$REFRESH::	.ZWORD "$refresh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$REFRESH
+W?$SOUND::	.ZWORD "$sound"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$SOUND
+W?$VER::	.ZWORD "$ver"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+W?$VERIFY::	.ZWORD "$verify"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+W?221-B::	.ZWORD "221-b"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?221B::	.ZWORD "221b"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PERIOD::	.ZWORD "."
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?COMMA::	.ZWORD ","
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?!::	.ZWORD "!"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W??::	.ZWORD "?"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?QUOTE::	.ZWORD """"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?A::	.ZWORD "a"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?ABBEY::	.ZWORD "abbey"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ABDUCTION::	.ZWORD "abduction"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ABOARD::	.ZWORD "aboard"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ABOUT::	.ZWORD "about"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ACROSS::	.ZWORD "across"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ADJUST::	.ZWORD "adjust"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ADJUST
+W?ADMIRAL::	.ZWORD "admiral"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?AGAIN::	.ZWORD "again"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?AGAINST::	.ZWORD "against"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?AGING::	.ZWORD "aging"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?AGRA::	.ZWORD "agra"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?AHEAD::	.ZWORD "ahead"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?AID::	.ZWORD "aid"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESCUE
+W?AIM::	.ZWORD "aim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?AIM
+W?AKBAR::	.ZWORD "akbar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ALL::	.ZWORD "all"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?ALLEGORICAL::	.ZWORD "allegoric"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ALLEY::	.ZWORD "alley"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ALONG::	.ZWORD "along"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ALTAR::	.ZWORD "altar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?AM::	.ZWORD "am"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?AMPOULE::	.ZWORD "ampoule"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?AMPULE::	.ZWORD "ampule"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?AN::	.ZWORD "an"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?ANCHOR::	.ZWORD "anchor"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?AND::	.ZWORD "and"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?ANGEL::	.ZWORD "angel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ANGELS::	.ZWORD "angels"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ANNE::	.ZWORD "anne"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ANNE'S::	.ZWORD "anne's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ANNES::	.ZWORD "annes"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ANSWER::	.ZWORD "answer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+W?APART::	.ZWORD "apart"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?APPLES::	.ZWORD "apples"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?APPROACH::	.ZWORD "approach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPROACH
+W?ARAGON::	.ZWORD "aragon"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ARAGON
+W?ARCH::	.ZWORD "arch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ARE::	.ZWORD "are"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?ARM::	.ZWORD "arm"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ARMOR::	.ZWORD "armor"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ARMOUR::	.ZWORD "armour"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ARMS::	.ZWORD "arms"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?AROUND::	.ZWORD "around"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ARREST::	.ZWORD "arrest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ARREST
+W?ASCEND::	.ZWORD "ascend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASCEND
+W?ASH::	.ZWORD "ash"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ASK::	.ZWORD "ask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+W?ASSIST::	.ZWORD "assist"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESCUE
+W?AT::	.ZWORD "at"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ATTACK::	.ZWORD "attack"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+W?AUDLEY::	.ZWORD "audley"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?AWAKE::	.ZWORD "awake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+W?AWAKEN::	.ZWORD "awaken"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+W?AWAY::	.ZWORD "away"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?AX::	.ZWORD "ax"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?AXE::	.ZWORD "axe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BACK::	.ZWORD "back"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?BACK
+W?BACKWARD::	.ZWORD "backward"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BAG::	.ZWORD "bag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BAKER::	.ZWORD "baker"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BALL::	.ZWORD "ball"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BALLS::	.ZWORD "balls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BANK::	.ZWORD "bank"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BAR::	.ZWORD "bar"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BARGAIN::	.ZWORD "bargain"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAGGLE
+W?BARREL::	.ZWORD "barrel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BARRELS::	.ZWORD "barrels"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BATHE::	.ZWORD "bathe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+W?BAUBLES::	.ZWORD "baubles"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BE::	.ZWORD "be"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?BEAKERS::	.ZWORD "beakers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BECKET::	.ZWORD "becket"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BECKET'S::	.ZWORD "becket's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BED::	.ZWORD "bed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BEDROOM::	.ZWORD "bedroom"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BEDSIDE::	.ZWORD "bedside"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BEEFEATER::	.ZWORD "beefeater"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BEFORE::	.ZWORD "before"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?BEHIND::	.ZWORD "behind"
+	.BYTE PS?OBJECT+PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?BELL::	.ZWORD "bell"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BELOW::	.ZWORD "below"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?BEN::	.ZWORD "ben"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BENCH::	.ZWORD "bench"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BENEATH::	.ZWORD "beneath"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?BETWEEN::	.ZWORD "between"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?BEYOND::	.ZWORD "beyond"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?BIG::	.ZWORD "big"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BIRD::	.ZWORD "bird"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BIRDCAGE::	.ZWORD "birdcage"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BIRDS::	.ZWORD "birds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BITE::	.ZWORD "bite"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+W?BLACK::	.ZWORD "black"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BLADE::	.ZWORD "blade"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BLIGH::	.ZWORD "bligh"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BLIGH'S::	.ZWORD "bligh's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BLIND::	.ZWORD "blind"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?POKE
+W?BLOCK::	.ZWORD "block"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?COVER
+W?BLOODHOUND::	.ZWORD "bloodhoun"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BLOW::	.ZWORD "blow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BLOW
+W?BLUE::	.ZWORD "blue"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BOARD::	.ZWORD "board"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOARD
+W?BOAT::	.ZWORD "boat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOATS::	.ZWORD "boats"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BODY::	.ZWORD "body"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOLEYN::	.ZWORD "boleyn"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?BOLEYN
+W?BOOK::	.ZWORD "book"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BOOKCASE::	.ZWORD "bookcase"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOOKS::	.ZWORD "books"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOOKSHELVES::	.ZWORD "bookshelv"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOTH::	.ZWORD "both"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?BOTTLE::	.ZWORD "bottle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOTTLES::	.ZWORD "bottles"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOUND::	.ZWORD "bound"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+W?BOW::	.ZWORD "bow"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?BOW
+W?BOWLER::	.ZWORD "bowler"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOWLS::	.ZWORD "bowls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOX::	.ZWORD "box"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BOXES::	.ZWORD "boxes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BOY::	.ZWORD "boy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BRASS::	.ZWORD "brass"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BREAK::	.ZWORD "break"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?BREATH::	.ZWORD "breath"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BREATHE::	.ZWORD "breathe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREATHE
+W?BRIBE::	.ZWORD "bribe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PAY
+W?BRIDGE::	.ZWORD "bridge"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BRIEF::	.ZWORD "brief"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRIEF
+W?BRING::	.ZWORD "bring"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRING
+W?BRITISH::	.ZWORD "british"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BROAD::	.ZWORD "broad"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BROKEN::	.ZWORD "broken"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BROTHER::	.ZWORD "brother"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BROWN::	.ZWORD "brown"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BROWSE::	.ZWORD "browse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+W?BRUSH::	.ZWORD "brush"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+W?BUCKINGHAM::	.ZWORD "buckingha"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BULLET::	.ZWORD "bullet"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BUNCH::	.ZWORD "bunch"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BUNG::	.ZWORD "bung"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BURN::	.ZWORD "burn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BURN
+W?BURNT::	.ZWORD "burnt"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BUT::	.ZWORD "but"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?BUTLER::	.ZWORD "butler"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?BUTT::	.ZWORD "butt"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?BUY::	.ZWORD "buy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BUY
+W?BYE::	.ZWORD "bye"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BYE
+W?CAB::	.ZWORD "cab"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CABBIE::	.ZWORD "cabbie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CALL::	.ZWORD "call"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CALL
+W?CANDLE::	.ZWORD "candle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CANDLES::	.ZWORD "candles"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CAPTAIN'S::	.ZWORD "captain's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CARNATION::	.ZWORD "carnation"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CARRY::	.ZWORD "carry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?CASE::	.ZWORD "case"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CASES::	.ZWORD "cases"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CAST::	.ZWORD "cast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CAST
+W?CATCH::	.ZWORD "catch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?CEDAR::	.ZWORD "cedar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CEILING::	.ZWORD "ceiling"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CELEBRATION::	.ZWORD "celebrati"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHAIN::	.ZWORD "chain"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHAMBER::	.ZWORD "chamber"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CHARIOT::	.ZWORD "chariot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHARLES::	.ZWORD "charles"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CHARLES'::	.ZWORD "charles'"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHASE::	.ZWORD "chase"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+W?CHAUCER::	.ZWORD "chaucer"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CHAUCER'S::	.ZWORD "chaucer's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CHEAPSIDE::	.ZWORD "cheapside"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHECK::	.ZWORD "check"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?CHERUB::	.ZWORD "cherub"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHERUBS::	.ZWORD "cherubs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CHICO::	.ZWORD "chico"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?CHOP::	.ZWORD "chop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+W?CHUCK::	.ZWORD "chuck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+W?CIGAR::	.ZWORD "cigar"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CIGARET::	.ZWORD "cigaret"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CIGARETTE::	.ZWORD "cigarette"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CIRCUS::	.ZWORD "circus"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLAPPER::	.ZWORD "clapper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLEAN::	.ZWORD "clean"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+W?CLEAR::	.ZWORD "clear"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?EMPTY
+W?CLEVES::	.ZWORD "cleves"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?CLEVES
+W?CLEVES'::	.ZWORD "cleves'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CLIMB::	.ZWORD "climb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+W?CLOAK::	.ZWORD "cloak"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLOCK::	.ZWORD "clock"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CLOCKWISE::	.ZWORD "clockwise"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLOSE::	.ZWORD "close"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+W?CLOTHES::	.ZWORD "clothes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLOTHING::	.ZWORD "clothing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLOUD::	.ZWORD "cloud"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLOUDS::	.ZWORD "clouds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CLUB::	.ZWORD "club"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CLUE::	.ZWORD "clue"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?HELP
+W?CLUES::	.ZWORD "clues"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+W?CLUMP::	.ZWORD "clump"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?COAT::	.ZWORD "coat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COCAINE::	.ZWORD "cocaine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COFFIN::	.ZWORD "coffin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COIN::	.ZWORD "coin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COLOURLESS::	.ZWORD "colourles"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?COLUMN::	.ZWORD "column"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COLUMNS::	.ZWORD "columns"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COMMONS::	.ZWORD "commons"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COMPANION::	.ZWORD "companion"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CONCEAL::	.ZWORD "conceal"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONCEAL
+W?CONFESSOR::	.ZWORD "confessor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CONQUEROR::	.ZWORD "conqueror"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CORK::	.ZWORD "cork"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CORNER::	.ZWORD "corner"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COTTON::	.ZWORD "cotton"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?COTTONBALL::	.ZWORD "cottonbal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COUCH::	.ZWORD "couch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COUNT::	.ZWORD "count"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COUNT
+W?COUNTERCL::	.ZWORD "countercl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?COURT::	.ZWORD "court"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?COVENT::	.ZWORD "covent"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?COVER::	.ZWORD "cover"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COVER
+W?CRAYON::	.ZWORD "crayon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CRIMINAL::	.ZWORD "criminal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CRIMINALS::	.ZWORD "criminals"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CROSSBARS::	.ZWORD "crossbars"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CROUCH::	.ZWORD "crouch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+W?CROWD::	.ZWORD "crowd"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CROWDS::	.ZWORD "crowds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?CROWN::	.ZWORD "crown"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?CRY::	.ZWORD "cry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+W?CUT::	.ZWORD "cut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+W?D::	.ZWORD "d"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 54
+W?DAFFODILS::	.ZWORD "daffodils"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DAISIES::	.ZWORD "daisies"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DAMAGE::	.ZWORD "damage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?DEAD::	.ZWORD "dead"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DEAL::	.ZWORD "deal"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAGGLE
+W?DEEP::	.ZWORD "deep"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DELIVER::	.ZWORD "deliver"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+W?DENKEEPER::	.ZWORD "denkeeper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DEPART::	.ZWORD "depart"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+W?DEPOSIT::	.ZWORD "deposit"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DESCEND::	.ZWORD "descend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESCEND
+W?DESCRIBE::	.ZWORD "describe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?DESK::	.ZWORD "desk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DESTROY::	.ZWORD "destroy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?DETECTIVE::	.ZWORD "detective"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DETONATE::	.ZWORD "detonate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DETONATE
+W?DIAGNOSE::	.ZWORD "diagnose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIAGNOSE
+W?DIAGRAM::	.ZWORD "diagram"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DIAL::	.ZWORD "dial"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?DIAL
+W?DIAMOND::	.ZWORD "diamond"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DICKENS::	.ZWORD "dickens"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DICKENS'::	.ZWORD "dickens'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DICKER::	.ZWORD "dicker"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAGGLE
+W?DIOGENES::	.ZWORD "diogenes"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DIRECTION::	.ZWORD "direction"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DISCOVER::	.ZWORD "discover"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+W?DISEMBARK::	.ZWORD "disembark"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISEMBARK
+W?DISLOCATE::	.ZWORD "dislocate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+W?DISPLAY::	.ZWORD "display"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+W?DISROBE::	.ZWORD "disrobe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+W?DISTURB::	.ZWORD "disturb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TOUCH
+W?DIVE::	.ZWORD "dive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIVE
+W?DOCTOR::	.ZWORD "doctor"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DOG::	.ZWORD "dog"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DON::	.ZWORD "don"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+W?DOOLITTLE::	.ZWORD "doolittle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DOOR::	.ZWORD "door"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DOUSE::	.ZWORD "douse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+W?DOWN::	.ZWORD "down"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 54
+W?DOWNSTREAM::	.ZWORD "downstrea"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DR::	.ZWORD "dr"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?DRAG::	.ZWORD "drag"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+W?DRAKE::	.ZWORD "drake"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DRAKE'S::	.ZWORD "drake's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?DRAWBRIDGE::	.ZWORD "drawbridg"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DRESS::	.ZWORD "dress"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRESS
+W?DRINK::	.ZWORD "drink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+W?DRIVE::	.ZWORD "drive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRIVE
+W?DRIVER::	.ZWORD "driver"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DROP::	.ZWORD "drop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+W?DRUG::	.ZWORD "drug"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DUKE::	.ZWORD "duke"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?DUMP::	.ZWORD "dump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+W?DUSTY::	.ZWORD "dusty"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?E::	.ZWORD "e"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+W?EAR::	.ZWORD "ear"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EARS::	.ZWORD "ears"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EAST::	.ZWORD "east"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+W?EAT::	.ZWORD "eat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+W?ECHO::	.ZWORD "echo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?EDWARD::	.ZWORD "edward"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EDWARD'S::	.ZWORD "edward's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EFFIGY::	.ZWORD "effigy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ELEVATE::	.ZWORD "elevate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+W?ELIZA::	.ZWORD "eliza"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ELIZA'S::	.ZWORD "eliza's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ELIZABETH::	.ZWORD "elizabeth"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EMBANKMENT::	.ZWORD "embankmen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EMBARK::	.ZWORD "embark"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMBARK
+W?EMERALD::	.ZWORD "emerald"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EMERALD'S::	.ZWORD "emerald's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EMPLOY::	.ZWORD "employ"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?USE
+W?EMPORIUMS::	.ZWORD "emporiums"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EMPTY::	.ZWORD "empty"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMPTY
+W?ENGLAND::	.ZWORD "england"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ENTER::	.ZWORD "enter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENTER
+W?ENTICE::	.ZWORD "entice"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PAY
+W?ENTRANCE::	.ZWORD "entrance"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ENTRY::	.ZWORD "entry"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EQUIPMENT::	.ZWORD "equipment"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ERASE::	.ZWORD "erase"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?ESCAPE::	.ZWORD "escape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ESCAPE
+W?ETHERIUM::	.ZWORD "etherium"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?EVERYTHING::	.ZWORD "everythin"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?EXAMINE::	.ZWORD "examine"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?EXCEPT::	.ZWORD "except"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?EXECUTIONER::	.ZWORD "execution"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EXHALE::	.ZWORD "exhale"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXHALE
+W?EXIT::	.ZWORD "exit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+W?EXPERIMENT::	.ZWORD "experimen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EXPLODE::	.ZWORD "explode"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DETONATE
+W?EXPLOIT::	.ZWORD "exploit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?USE
+W?EXTEND::	.ZWORD "extend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNFOLD
+W?EXTINGUISH::	.ZWORD "extinguis"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+W?EYE::	.ZWORD "eye"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?EYES::	.ZWORD "eyes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FACE::	.ZWORD "face"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FAREWELL::	.ZWORD "farewell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BYE
+W?FASTEN::	.ZWORD "fasten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+W?FAWKES::	.ZWORD "fawkes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FAWKES'::	.ZWORD "fawkes'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?FEED::	.ZWORD "feed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FEED
+W?FEEL::	.ZWORD "feel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FEEL
+W?FEET::	.ZWORD "feet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FELL::	.ZWORD "fell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FELL
+W?FIDDLE::	.ZWORD "fiddle"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+W?FIGHT::	.ZWORD "fight"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+W?FIGURE::	.ZWORD "figure"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FIGURES::	.ZWORD "figures"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FILL::	.ZWORD "fill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FILL
+W?FIND::	.ZWORD "find"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+W?FINGER::	.ZWORD "finger"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FINGERS::	.ZWORD "fingers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FIRE::	.ZWORD "fire"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SHOOT
+W?FIREPLACE::	.ZWORD "fireplace"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FIX::	.ZWORD "fix"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+W?FLAKE::	.ZWORD "flake"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?FLAME::	.ZWORD "flame"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FLEE::	.ZWORD "flee"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ESCAPE
+W?FLEET::	.ZWORD "fleet"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?FLING::	.ZWORD "fling"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+W?FLIP::	.ZWORD "flip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FLIP
+W?FLOCK::	.ZWORD "flock"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?FLOOR::	.ZWORD "floor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FLOWER::	.ZWORD "flower"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FLOWERS::	.ZWORD "flowers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FLY::	.ZWORD "fly"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FLY
+W?FOCUS::	.ZWORD "focus"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOCUS
+W?FOG::	.ZWORD "fog"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FOLD::	.ZWORD "fold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLD
+W?FOLLOW::	.ZWORD "follow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+W?FOO::	.ZWORD "foo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOO
+W?FOOT::	.ZWORD "foot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FOR::	.ZWORD "for"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?FORCE::	.ZWORD "force"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEDGE
+W?FORWARD::	.ZWORD "forward"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FRANCIS::	.ZWORD "francis"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?FREE::	.ZWORD "free"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+W?FRIEND::	.ZWORD "friend"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FRISK::	.ZWORD "frisk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+W?FROM::	.ZWORD "from"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?FRONT::	.ZWORD "front"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?FRUIT::	.ZWORD "fruit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FRUITS::	.ZWORD "fruits"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?FUMES::	.ZWORD "fumes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?G::	.ZWORD "g"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?GAGGLE::	.ZWORD "gaggle"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GARDEN::	.ZWORD "garden"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GARDENS::	.ZWORD "gardens"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GARNET::	.ZWORD "garnet"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GARNET'S::	.ZWORD "garnet's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GAS::	.ZWORD "gas"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GAS-LIGHT::	.ZWORD "gas-light"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GASLIGHT::	.ZWORD "gaslight"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GATE::	.ZWORD "gate"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GAZE::	.ZWORD "gaze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+W?GEM::	.ZWORD "gem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GEMS::	.ZWORD "gems"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GENUFLECT::	.ZWORD "genuflect"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOW
+W?GET::	.ZWORD "get"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GET
+W?GIANT::	.ZWORD "giant"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GILES::	.ZWORD "giles"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GIN::	.ZWORD "gin"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?GIN
+W?GIRL::	.ZWORD "girl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GIRL'S::	.ZWORD "girl's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GIVE::	.ZWORD "give"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+W?GLASS::	.ZWORD "glass"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GO::	.ZWORD "go"
+	.BYTE PS?VERB+PS?PREPOSITION+P1?VERB
+	.BYTE ACT?GO
+W?GOLD::	.ZWORD "gold"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GOODBYE::	.ZWORD "goodbye"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BYE
+W?GRAB::	.ZWORD "grab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?GREAT::	.ZWORD "great"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GREEN::	.ZWORD "green"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GREET::	.ZWORD "greet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+W?GREETINGS::	.ZWORD "greetings"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+W?GRIN::	.ZWORD "grin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+W?GROPE::	.ZWORD "grope"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REACH
+W?GROSVENOR::	.ZWORD "grosvenor"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GROUCHO::	.ZWORD "groucho"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?GROUND::	.ZWORD "ground"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GROUP::	.ZWORD "group"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GROUPINGS::	.ZWORD "groupings"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GROWLER::	.ZWORD "growler"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GUARD::	.ZWORD "guard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GUARD'S::	.ZWORD "guard's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GUESS::	.ZWORD "guess"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GUESS
+W?GUMMO::	.ZWORD "gummo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?GUN::	.ZWORD "gun"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GUNPOWDER::	.ZWORD "gunpowder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?GUY::	.ZWORD "guy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GUY'S::	.ZWORD "guy's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?GUZZLE::	.ZWORD "guzzle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+W?HAGGLE::	.ZWORD "haggle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAGGLE
+W?HAIL::	.ZWORD "hail"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CALL
+W?HAIR::	.ZWORD "hair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HALL::	.ZWORD "hall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HAND::	.ZWORD "hand"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+W?HANDS::	.ZWORD "hands"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HANSOM::	.ZWORD "hansom"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HARPO::	.ZWORD "harpo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?HAT::	.ZWORD "hat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HAUL::	.ZWORD "haul"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAUL
+W?HEAD::	.ZWORD "head"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HEAR::	.ZWORD "hear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAR
+W?HEART::	.ZWORD "heart"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HEARTBEAT::	.ZWORD "heartbeat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HEAT::	.ZWORD "heat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAT
+W?HELLO::	.ZWORD "hello"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+W?HELP::	.ZWORD "help"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+W?HENRY::	.ZWORD "henry"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HENRY'S::	.ZWORD "henry's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HER::	.ZWORD "her"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HERE::	.ZWORD "here"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?HERSELF::	.ZWORD "herself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HI::	.ZWORD "hi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+W?HIDE::	.ZWORD "hide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIDE
+W?HIKE::	.ZWORD "hike"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+W?HIM::	.ZWORD "him"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HIMSELF::	.ZWORD "himself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HINT::	.ZWORD "hint"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+W?HINTS::	.ZWORD "hints"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+W?HIS::	.ZWORD "his"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HIT::	.ZWORD "hit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIT
+W?HOIST::	.ZWORD "hoist"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+W?HOLD::	.ZWORD "hold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HOLD
+W?HOLE::	.ZWORD "hole"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOLES::	.ZWORD "holes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOLMES::	.ZWORD "holmes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOLMES'::	.ZWORD "holmes'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HOLMES'S::	.ZWORD "holmes's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HOOK::	.ZWORD "hook"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOSEN
+W?HORRORS::	.ZWORD "horrors"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HOUND::	.ZWORD "hound"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOUR::	.ZWORD "hour"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOURS::	.ZWORD "hours"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOUSE::	.ZWORD "house"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HOUSEKEEPER::	.ZWORD "housekeep"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOUSES::	.ZWORD "houses"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HOUSEWIVES::	.ZWORD "housewive"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HOWARD::	.ZWORD "howard"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HOWARD
+W?HOWL::	.ZWORD "howl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+W?HUDSON::	.ZWORD "hudson"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?HUDSON'S::	.ZWORD "hudson's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HUM::	.ZWORD "hum"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?HURDLE::	.ZWORD "hurdle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+W?HURL::	.ZWORD "hurl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+W?HURT::	.ZWORD "hurt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+W?HUSH::	.ZWORD "hush"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?HYDE::	.ZWORD "hyde"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?HYPERVENT::	.ZWORD "hypervent"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INHALE
+W?HYPODERMIC::	.ZWORD "hypodermi"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?I::	.ZWORD "i"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?INVENTORY
+W?IGNITE::	.ZWORD "ignite"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BURN
+W?ILLUMINATE::	.ZWORD "illuminat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ILLUMINATE
+W?IMBIBE::	.ZWORD "imbibe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+W?IN::	.ZWORD "in"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+W?INHALE::	.ZWORD "inhale"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INHALE
+W?INSCRIPTION::	.ZWORD "inscripti"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?INSERT::	.ZWORD "insert"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+W?INSIDE::	.ZWORD "inside"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?INSPECT::	.ZWORD "inspect"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?INSPECTOR::	.ZWORD "inspector"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?INSTRUMENTS::	.ZWORD "instrumen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?INTERROGATE::	.ZWORD "interroga"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+W?INTNUM::	.ZWORD "intnum"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?INTO::	.ZWORD "into"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?INTRODUCTION::	.ZWORD "introduct"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?INVENTORY::	.ZWORD "inventory"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INVENTORY
+W?INVISICLUES::	.ZWORD "invisiclu"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+W?IRON::	.ZWORD "iron"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?IS::	.ZWORD "is"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?IT::	.ZWORD "it"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ITSELF::	.ZWORD "itself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?IV::	.ZWORD "iv"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?JAB::	.ZWORD "jab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POKE
+W?JACKKNIFE::	.ZWORD "jackknife"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?JAMES::	.ZWORD "james"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?JERICHO::	.ZWORD "jericho"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?JERUSALEM::	.ZWORD "jerusalem"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?JEWEL::	.ZWORD "jewel"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?JEWELS::	.ZWORD "jewels"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?JIGGLE::	.ZWORD "jiggle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOSEN
+W?JOHN::	.ZWORD "john"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?JOHN'S::	.ZWORD "john's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?JUBILEE::	.ZWORD "jubilee"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?JUMP::	.ZWORD "jump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+W?KEEP::	.ZWORD "keep"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?KEG::	.ZWORD "keg"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?KENSINGTON::	.ZWORD "kensingto"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?KEY::	.ZWORD "key"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?KEYS::	.ZWORD "keys"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?KICK::	.ZWORD "kick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KICK
+W?KIDNAPPING::	.ZWORD "kidnappin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?KILL::	.ZWORD "kill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+W?KINDLE::	.ZWORD "kindle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BURN
+W?KING::	.ZWORD "king"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?KISS::	.ZWORD "kiss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KISS
+W?KNEEL::	.ZWORD "kneel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOW
+W?KNIFE::	.ZWORD "knife"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?KNIGHT::	.ZWORD "knight"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?KNIGHTS::	.ZWORD "knights"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?KNOCK::	.ZWORD "knock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+W?L::	.ZWORD "l"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+W?LAB::	.ZWORD "lab"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LABEL::	.ZWORD "label"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LABORATORY::	.ZWORD "laborator"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LAIR::	.ZWORD "lair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LAMP::	.ZWORD "lamp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LAND::	.ZWORD "land"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LAND
+W?LANE::	.ZWORD "lane"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LANTERN::	.ZWORD "lantern"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LAPEL::	.ZWORD "lapel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LAUGH::	.ZWORD "laugh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+W?LAUNCH::	.ZWORD "launch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LAUNCH
+W?LAY::	.ZWORD "lay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+W?LEAF::	.ZWORD "leaf"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+W?LEAN::	.ZWORD "lean"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAN
+W?LEAP::	.ZWORD "leap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+W?LEAVE::	.ZWORD "leave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+W?LEFT::	.ZWORD "left"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LEG::	.ZWORD "leg"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LEGS::	.ZWORD "legs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LEND::	.ZWORD "lend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+W?LENS::	.ZWORD "lens"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LESTRADE::	.ZWORD "lestrade"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LET::	.ZWORD "let"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LET
+W?LET'S::	.ZWORD "let's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?LETTER::	.ZWORD "letter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LETTERS::	.ZWORD "letters"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LIBRARIAN::	.ZWORD "librarian"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LICK::	.ZWORD "lick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TASTE
+W?LIE::	.ZWORD "lie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LIE
+W?LIFT::	.ZWORD "lift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+W?LIGHT::	.ZWORD "light"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?LIGHT
+W?LIPS::	.ZWORD "lips"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LIQUID::	.ZWORD "liquid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?LISTEN::	.ZWORD "listen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LISTEN
+W?LITTLE::	.ZWORD "little"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LOAN::	.ZWORD "loan"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+W?LOCK::	.ZWORD "lock"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?LOCK
+W?LOITER::	.ZWORD "loiter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+W?LONDON::	.ZWORD "london"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LONELY::	.ZWORD "lonely"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LOOK::	.ZWORD "look"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+W?LOOSEN::	.ZWORD "loosen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOSEN
+W?LORD::	.ZWORD "lord"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?LOWER::	.ZWORD "lower"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?LOWER
+W?MACE::	.ZWORD "mace"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MADAME::	.ZWORD "madame"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MAGNIFYING::	.ZWORD "magnifyin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MAIL::	.ZWORD "mail"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MAKE::	.ZWORD "make"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAKE
+W?MALL::	.ZWORD "mall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MALMSEY::	.ZWORD "malmsey"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MAN::	.ZWORD "man"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MANTEL::	.ZWORD "mantel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MANTELPIECE::	.ZWORD "mantelpie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MANTLE::	.ZWORD "mantle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MANTLEPIECE::	.ZWORD "mantlepie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MANUSCRIPT::	.ZWORD "manuscrip"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MARBLE::	.ZWORD "marble"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MARIGOLDS::	.ZWORD "marigolds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MARK::	.ZWORD "mark"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MARQUEE::	.ZWORD "marquee"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MARQUEES::	.ZWORD "marquees"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MARX::	.ZWORD "marx"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?MARY::	.ZWORD "mary"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MARY'S::	.ZWORD "mary's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MARYLEBONE::	.ZWORD "marylebon"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MASTER::	.ZWORD "master"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MATCH::	.ZWORD "match"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MATCHBOOK::	.ZWORD "matchbook"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MATCHES::	.ZWORD "matches"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MAYBE::	.ZWORD "maybe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAYBE
+W?ME::	.ZWORD "me"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MEADOW::	.ZWORD "meadow"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MEDICAL::	.ZWORD "medical"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MELT::	.ZWORD "melt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MELT
+W?MELTED::	.ZWORD "melted"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MEMBERS::	.ZWORD "members"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MERRY::	.ZWORD "merry"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MINISTER::	.ZWORD "minister"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MINUTE::	.ZWORD "minute"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MINUTES::	.ZWORD "minutes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MISS::	.ZWORD "miss"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?MONEY::	.ZWORD "money"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?MONUMENT::	.ZWORD "monument"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MORIARTY::	.ZWORD "moriarty"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MOROCCO::	.ZWORD "morocco"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MOSS::	.ZWORD "moss"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MOTION::	.ZWORD "motion"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+W?MOUNT::	.ZWORD "mount"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOARD
+W?MOUTH::	.ZWORD "mouth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MOVE::	.ZWORD "move"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+W?MR::	.ZWORD "mr"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?MRS::	.ZWORD "mrs"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MUD::	.ZWORD "mud"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MURDER::	.ZWORD "murder"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+W?MUSEUM::	.ZWORD "museum"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?MY::	.ZWORD "my"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MYCROFT::	.ZWORD "mycroft"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?MYSELF::	.ZWORD "myself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?N::	.ZWORD "n"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+W?NANNIES::	.ZWORD "nannies"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?NAP::	.ZWORD "nap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+W?NE::	.ZWORD "ne"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 62
+W?NEAR::	.ZWORD "near"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?NEEDLE::	.ZWORD "needle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?NEGOTIATE::	.ZWORD "negotiate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAGGLE
+W?NELSON::	.ZWORD "nelson"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NELSON'S::	.ZWORD "nelson's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NEW::	.ZWORD "new"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NEWS::	.ZWORD "news"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NEWSPAPER::	.ZWORD "newspaper"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NEWTON::	.ZWORD "newton"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NEWTON'S::	.ZWORD "newton's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NO::	.ZWORD "no"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+W?NOD::	.ZWORD "nod"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+W?NORTH::	.ZWORD "north"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+W?NORTHEAST::	.ZWORD "northeast"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 62
+W?NORTHWEST::	.ZWORD "northwest"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 56
+W?NOSE::	.ZWORD "nose"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?NOTE::	.ZWORD "note"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?NOTIFY::	.ZWORD "notify"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOTIFY
+W?NUDGE::	.ZWORD "nudge"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+W?NUMBER::	.ZWORD "number"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?NW::	.ZWORD "nw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 56
+W?O::	.ZWORD "o"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?OAK::	.ZWORD "oak"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?OAR::	.ZWORD "oar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?OARLOCK::	.ZWORD "oarlock"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?OBELISK::	.ZWORD "obelisk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?OBSERVE::	.ZWORD "observe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WATCH
+W?OF::	.ZWORD "of"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?OFF::	.ZWORD "off"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?OFFER::	.ZWORD "offer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+W?OFFICIAL::	.ZWORD "official"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?OLD::	.ZWORD "old"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ON::	.ZWORD "on"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?ONTO::	.ZWORD "onto"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?OOPS::	.ZWORD "oops"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?OPAL::	.ZWORD "opal"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?OPEN::	.ZWORD "open"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+W?OPERATE::	.ZWORD "operate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?USE
+W?OPIUM::	.ZWORD "opium"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ORANGE::	.ZWORD "orange"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?ORANGES::	.ZWORD "oranges"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ORCHARD::	.ZWORD "orchard"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?OUT::	.ZWORD "out"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 52
+W?OUTSIDE::	.ZWORD "outside"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?OVER::	.ZWORD "over"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?OXFORD::	.ZWORD "oxford"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PACK::	.ZWORD "pack"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PACKET::	.ZWORD "packet"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PACQUET::	.ZWORD "pacquet"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PADDLE::	.ZWORD "paddle"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PADDLE
+W?PAGE::	.ZWORD "page"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PALACE::	.ZWORD "palace"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PANELLING::	.ZWORD "panelling"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PAPER::	.ZWORD "paper"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PAPERS::	.ZWORD "papers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PARADE::	.ZWORD "parade"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PARK::	.ZWORD "park"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PARLIAMENT::	.ZWORD "parliamen"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PARLOR::	.ZWORD "parlor"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PARLOUR::	.ZWORD "parlour"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PARR::	.ZWORD "parr"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PARR
+W?PASSWORD::	.ZWORD "password"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PASSWORD
+W?PAT::	.ZWORD "pat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PAT
+W?PAY::	.ZWORD "pay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PAY
+W?PEAS::	.ZWORD "peas"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PEDESTAL::	.ZWORD "pedestal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PEEK::	.ZWORD "peek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+W?PEER::	.ZWORD "peer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+W?PEONIES::	.ZWORD "peonies"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PEOPLE::	.ZWORD "people"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PERAMBULATOR::	.ZWORD "perambula"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PERSIAN::	.ZWORD "persian"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PET::	.ZWORD "pet"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?PET
+W?PETUNIAS::	.ZWORD "petunias"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PHIAL::	.ZWORD "phial"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PICK::	.ZWORD "pick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PICK
+W?PICTURE::	.ZWORD "picture"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PICTURES::	.ZWORD "pictures"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PIECE::	.ZWORD "piece"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PIGEON::	.ZWORD "pigeon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PIGEONS::	.ZWORD "pigeons"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PILL::	.ZWORD "pill"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PILLS::	.ZWORD "pills"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PINCH::	.ZWORD "pinch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STEAL
+W?PINCHIN::	.ZWORD "pinchin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PIPE::	.ZWORD "pipe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PIPETTES::	.ZWORD "pipettes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PISTOL::	.ZWORD "pistol"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PITCH::	.ZWORD "pitch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+W?PITT::	.ZWORD "pitt"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PITT'S::	.ZWORD "pitt's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PLACE::	.ZWORD "place"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+W?PLAQUE::	.ZWORD "plaque"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PLATE::	.ZWORD "plate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PLAY::	.ZWORD "play"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+W?PLEASE::	.ZWORD "please"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?PLEASURE::	.ZWORD "pleasure"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PM::	.ZWORD "pm"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?POCKET::	.ZWORD "pocket"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?POCKET
+W?POCKETS::	.ZWORD "pockets"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?POEM::	.ZWORD "poem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?POINT::	.ZWORD "point"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+W?POKE::	.ZWORD "poke"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POKE
+W?POLISH::	.ZWORD "polish"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+W?POOL::	.ZWORD "pool"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?POPE::	.ZWORD "pope"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?POPE'S::	.ZWORD "pope's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PORTCULLIS::	.ZWORD "portculli"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?POUND::	.ZWORD "pound"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?KNOCK
+W?POUR::	.ZWORD "pour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+W?PRAM::	.ZWORD "pram"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PRAMS::	.ZWORD "prams"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PRAY::	.ZWORD "pray"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PRAY
+W?PRESERVE::	.ZWORD "preserve"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESCUE
+W?PRESS::	.ZWORD "press"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+W?PRIME::	.ZWORD "prime"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PRINCES::	.ZWORD "princes"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PRINCES'::	.ZWORD "princes'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PROCEED::	.ZWORD "proceed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+W?PROCLAIM::	.ZWORD "proclaim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+W?PRODUCE::	.ZWORD "produce"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PROF::	.ZWORD "prof"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PROFESSOR::	.ZWORD "professor"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PROPRIETOR::	.ZWORD "proprieto"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?PULL::	.ZWORD "pull"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+W?PUNCH::	.ZWORD "punch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+W?PUNT::	.ZWORD "punt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?PURBECK::	.ZWORD "purbeck"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?PURSUE::	.ZWORD "pursue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+W?PUSH::	.ZWORD "push"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+W?PUT::	.ZWORD "put"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+W?Q::	.ZWORD "q"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+W?QUAFF::	.ZWORD "quaff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+W?QUEEN::	.ZWORD "queen"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?QUEEN'S::	.ZWORD "queen's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?QUEENS::	.ZWORD "queens"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?QUENCH::	.ZWORD "quench"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+W?QUERY::	.ZWORD "query"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+W?QUESTION::	.ZWORD "question"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+W?QUID::	.ZWORD "quid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?QUIET::	.ZWORD "quiet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?QUIT::	.ZWORD "quit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+W?RAIL::	.ZWORD "rail"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RAILING::	.ZWORD "railing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RAISE::	.ZWORD "raise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+W?RALEIGH::	.ZWORD "raleigh"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?RALEIGH'S::	.ZWORD "raleigh's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?RANSACK::	.ZWORD "ransack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+W?RAP::	.ZWORD "rap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+W?RAVEN::	.ZWORD "raven"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RAVENS::	.ZWORD "ravens"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?REACH::	.ZWORD "reach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REACH
+W?READ::	.ZWORD "read"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+W?RED::	.ZWORD "red"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?REFUSE::	.ZWORD "refuse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REFUSE
+W?REGALIA::	.ZWORD "regalia"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RELEASE::	.ZWORD "release"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+W?RELIEF::	.ZWORD "relief"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?REMOVE::	.ZWORD "remove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+W?RENT::	.ZWORD "rent"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RENT
+W?REPAIR::	.ZWORD "repair"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPAIR
+W?REPLACE::	.ZWORD "replace"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPLACE
+W?REPLY::	.ZWORD "reply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPLY
+W?RESCUE::	.ZWORD "rescue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESCUE
+W?RESPOND::	.ZWORD "respond"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPLY
+W?REST::	.ZWORD "rest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+W?RESTART::	.ZWORD "restart"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTART
+W?RESTORE::	.ZWORD "restore"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+W?RETRACT::	.ZWORD "retract"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RETRACT
+W?RETREAT::	.ZWORD "retreat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RETREAT
+W?RETRIEVE::	.ZWORD "retrieve"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?REVIVE::	.ZWORD "revive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+W?REVOLVER::	.ZWORD "revolver"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RIDE::	.ZWORD "ride"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RIDE
+W?RIGHT::	.ZWORD "right"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?RING::	.ZWORD "ring"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?RING
+W?RIP::	.ZWORD "rip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RIP
+W?RISE::	.ZWORD "rise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+W?RIVER::	.ZWORD "river"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROAD::	.ZWORD "road"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROB::	.ZWORD "rob"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ROB
+W?ROLL::	.ZWORD "roll"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+W?ROOK::	.ZWORD "rook"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROOKS::	.ZWORD "rooks"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROOM::	.ZWORD "room"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROPE::	.ZWORD "rope"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROSE::	.ZWORD "rose"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROSES::	.ZWORD "roses"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?ROTATE::	.ZWORD "rotate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+W?ROUSE::	.ZWORD "rouse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+W?ROW::	.ZWORD "row"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ROW
+W?ROWBOAT::	.ZWORD "rowboat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RUB::	.ZWORD "rub"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+W?RUBBING::	.ZWORD "rubbing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RUBBINGS::	.ZWORD "rubbings"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?RUBY::	.ZWORD "ruby"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?RUBY'S::	.ZWORD "ruby's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?RUMMAGE::	.ZWORD "rummage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+W?RUSSELL::	.ZWORD "russell"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?S::	.ZWORD "s"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+W?SAFETY::	.ZWORD "safety"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SAINT::	.ZWORD "saint"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SALESMAN::	.ZWORD "salesman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SALUTE::	.ZWORD "salute"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+W?SANCTUARY::	.ZWORD "sanctuary"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SAND::	.ZWORD "sand"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SAPPHIRE::	.ZWORD "sapphire"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SARCOPHAGUS::	.ZWORD "sarcophag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SAVE::	.ZWORD "save"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAVE
+W?SAY::	.ZWORD "say"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+W?SCALE::	.ZWORD "scale"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCALE
+W?SCENES::	.ZWORD "scenes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SCOPE::	.ZWORD "scope"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SCORE::	.ZWORD "score"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+W?SCOTLAND::	.ZWORD "scotland"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SCOTS::	.ZWORD "scots"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SCOTS'::	.ZWORD "scots'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SCRAM::	.ZWORD "scram"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+W?SCRATCH::	.ZWORD "scratch"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?TOUCH
+W?SCREAM::	.ZWORD "scream"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+W?SCRIPT::	.ZWORD "script"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCRIPT
+W?SCULPTURES::	.ZWORD "sculpture"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SE::	.ZWORD "se"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 60
+W?SEARCH::	.ZWORD "search"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+W?SECURE::	.ZWORD "secure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+W?SEE::	.ZWORD "see"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?SEEK::	.ZWORD "seek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+W?SEIZE::	.ZWORD "seize"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?SELF::	.ZWORD "self"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SELL::	.ZWORD "sell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SELL
+W?SERVICE::	.ZWORD "service"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPAIR
+W?SESAME::	.ZWORD "sesame"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SET::	.ZWORD "set"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SET
+W?SETTLE::	.ZWORD "settle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+W?SEYMOUR::	.ZWORD "seymour"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SEYMOUR
+W?SHAFT::	.ZWORD "shaft"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SHAG::	.ZWORD "shag"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SHAKE::	.ZWORD "shake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHAKE
+W?SHERLOCK::	.ZWORD "sherlock"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SHERMAN::	.ZWORD "sherman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHERMAN'::	.ZWORD "sherman'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SHH::	.ZWORD "shh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?SHHH::	.ZWORD "shhh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?SHHHH::	.ZWORD "shhhh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?SHIELD::	.ZWORD "shield"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COVER
+W?SHIFT::	.ZWORD "shift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+W?SHILLING::	.ZWORD "shilling"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHINE::	.ZWORD "shine"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHINE
+W?SHIPS::	.ZWORD "ships"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHOOT::	.ZWORD "shoot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOOT
+W?SHOP::	.ZWORD "shop"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHOPPERS::	.ZWORD "shoppers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHOPS::	.ZWORD "shops"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHOULDER::	.ZWORD "shoulder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHOULDERS::	.ZWORD "shoulders"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SHOUT::	.ZWORD "shout"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+W?SHOVE::	.ZWORD "shove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+W?SHOW::	.ZWORD "show"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+W?SHUSH::	.ZWORD "shush"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?SHUT::	.ZWORD "shut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHUT
+W?SIFT::	.ZWORD "sift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+W?SIGN::	.ZWORD "sign"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SIGNET::	.ZWORD "signet"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SING::	.ZWORD "sing"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?SIP::	.ZWORD "sip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+W?SIR::	.ZWORD "sir"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SIT::	.ZWORD "sit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+W?SIXPENCE::	.ZWORD "sixpence"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SKIM::	.ZWORD "skim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+W?SKY::	.ZWORD "sky"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SLAM::	.ZWORD "slam"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+W?SLAP::	.ZWORD "slap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIT
+W?SLASH::	.ZWORD "slash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+W?SLEEP::	.ZWORD "sleep"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+W?SLIDE::	.ZWORD "slide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLIDE
+W?SLIPPER::	.ZWORD "slipper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SMASH::	.ZWORD "smash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?SMEAR::	.ZWORD "smear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+W?SMELL::	.ZWORD "smell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+W?SMILE::	.ZWORD "smile"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+W?SMOKE::	.ZWORD "smoke"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMOKE
+W?SMOOCH::	.ZWORD "smooch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KISS
+W?SNATCH::	.ZWORD "snatch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?SNEER::	.ZWORD "sneer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+W?SNIFF::	.ZWORD "sniff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+W?SNOOZE::	.ZWORD "snooze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+W?SNUFF::	.ZWORD "snuff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+W?SO::	.ZWORD "so"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?SOFA::	.ZWORD "sofa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SOLAR::	.ZWORD "solar"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SOME::	.ZWORD "some"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?SOUTH::	.ZWORD "south"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+W?SOUTHEAST::	.ZWORD "southeast"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 60
+W?SOUTHWEST::	.ZWORD "southwest"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 58
+W?SPEAK::	.ZWORD "speak"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+W?SPECK::	.ZWORD "speck"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SPILL::	.ZWORD "spill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+W?SPIN::	.ZWORD "spin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPIN
+W?SPRINKLE::	.ZWORD "sprinkle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+W?SQUARE::	.ZWORD "square"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SQUAT::	.ZWORD "squat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+W?SS::	.ZWORD "ss"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SSHH::	.ZWORD "sshh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?SSHHH::	.ZWORD "sshhh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HUSH
+W?ST::	.ZWORD "st"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?STAB::	.ZWORD "stab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+W?STAIR::	.ZWORD "stair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STAIRS::	.ZWORD "stairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STAIRWAY::	.ZWORD "stairway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STAND::	.ZWORD "stand"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+W?STARE::	.ZWORD "stare"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+W?START::	.ZWORD "start"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+W?STATUE::	.ZWORD "statue"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STATUES::	.ZWORD "statues"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STAY::	.ZWORD "stay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+W?STEAL::	.ZWORD "steal"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STEAL
+W?STEP::	.ZWORD "step"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+W?STEPS::	.ZWORD "steps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STETH::	.ZWORD "steth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STETHOSCOPE::	.ZWORD "stethosco"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STICK::	.ZWORD "stick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+W?STOMACH::	.ZWORD "stomach"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STOP::	.ZWORD "stop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STOP
+W?STOPPER::	.ZWORD "stopper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STORE::	.ZWORD "store"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STORES::	.ZWORD "stores"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STRAND::	.ZWORD "strand"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STREET::	.ZWORD "street"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STREET-LIGHT::	.ZWORD "street-li"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STREETLAMP::	.ZWORD "streetlam"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STREETLIGHT::	.ZWORD "streetlig"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STRIKE::	.ZWORD "strike"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STRIKE
+W?STRIP::	.ZWORD "strip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+W?STRUTS::	.ZWORD "struts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?STUDY::	.ZWORD "study"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?EXAMINE
+W?STUFF::	.ZWORD "stuff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+W?SUIT::	.ZWORD "suit"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SUNLIGHT::	.ZWORD "sunlight"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SUPER::	.ZWORD "super"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+W?SUPERBRIEF::	.ZWORD "superbrie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+W?SUPPORTS::	.ZWORD "supports"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SURFACE::	.ZWORD "surface"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SURVEY::	.ZWORD "survey"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?SW::	.ZWORD "sw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 58
+W?SWALLOW::	.ZWORD "swallow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+W?SWAN::	.ZWORD "swan"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?SWAT::	.ZWORD "swat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIT
+W?SWEEP::	.ZWORD "sweep"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+W?SWILL::	.ZWORD "swill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+W?SWIM::	.ZWORD "swim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+W?SWING::	.ZWORD "swing"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWING
+W?SWORD::	.ZWORD "sword"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SWORDFISH::	.ZWORD "swordfish"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWORDFISH
+W?SWORDS::	.ZWORD "swords"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SYRINGE::	.ZWORD "syringe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?SYSTEM::	.ZWORD "system"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TABLE::	.ZWORD "table"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TAKE::	.ZWORD "take"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+W?TALK::	.ZWORD "talk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+W?TALLY::	.ZWORD "tally"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COUNT
+W?TAP::	.ZWORD "tap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+W?TAPESTRIES::	.ZWORD "tapestrie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TASTE::	.ZWORD "taste"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TASTE
+W?TEAR::	.ZWORD "tear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RIP
+W?TELESCOPE::	.ZWORD "telescope"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TELL::	.ZWORD "tell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+W?TESTUBES::	.ZWORD "testubes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THAMES::	.ZWORD "thames"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?THANK::	.ZWORD "thank"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANK
+W?THANKS::	.ZWORD "thanks"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANK
+W?THAT::	.ZWORD "that"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THE::	.ZWORD "the"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?THEATER::	.ZWORD "theater"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEATERS::	.ZWORD "theaters"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEATRE::	.ZWORD "theatre"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEATRES::	.ZWORD "theatres"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEFT::	.ZWORD "theft"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEM::	.ZWORD "them"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEMSELVES::	.ZWORD "themselve"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THEN::	.ZWORD "then"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?THOMAS::	.ZWORD "thomas"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?THREADNEEDLE::	.ZWORD "threadnee"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?THROAT::	.ZWORD "throat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?THROUGH::	.ZWORD "through"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?THROW::	.ZWORD "throw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+W?THRU::	.ZWORD "thru"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?THRUST::	.ZWORD "thrust"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+W?TIE::	.ZWORD "tie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+W?TIL::	.ZWORD "til"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?TILL::	.ZWORD "till"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?TIP::	.ZWORD "tip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIP
+W?TO::	.ZWORD "to"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?TOBACCO::	.ZWORD "tobacco"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TOBY::	.ZWORD "toby"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TOGGLE::	.ZWORD "toggle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+W?TOMB::	.ZWORD "tomb"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TOMBS::	.ZWORD "tombs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TOPAZ::	.ZWORD "topaz"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TOPAZ'S::	.ZWORD "topaz's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TORCH::	.ZWORD "torch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TOSS::	.ZWORD "toss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+W?TOTTENHAM::	.ZWORD "tottenham"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TOUCH::	.ZWORD "touch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TOUCH
+W?TOURISTS::	.ZWORD "tourists"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TOWARD::	.ZWORD "toward"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?TOWARDS::	.ZWORD "towards"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?TOWER::	.ZWORD "tower"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TOY::	.ZWORD "toy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+W?TRACE::	.ZWORD "trace"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?TRAFALGAR::	.ZWORD "trafalgar"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TRAINED::	.ZWORD "trained"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TRAINER::	.ZWORD "trainer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TRAITOR'S::	.ZWORD "traitor's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TRANSLATE::	.ZWORD "translate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TRANSLATE
+W?TRASH::	.ZWORD "trash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?TREASURE::	.ZWORD "treasure"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TRICHINOPOLY::	.ZWORD "trichinop"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TRINKET::	.ZWORD "trinket"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TRINKETS::	.ZWORD "trinkets"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TRIUMPHAL::	.ZWORD "triumphal"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TRUDGE::	.ZWORD "trudge"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+W?TUDOR::	.ZWORD "tudor"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TUG::	.ZWORD "tug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+W?TURBAN::	.ZWORD "turban"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TURN::	.ZWORD "turn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+W?TUSSAUD'S::	.ZWORD "tussaud's"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?TUSSAUDS::	.ZWORD "tussauds"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?TWIST::	.ZWORD "twist"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+W?U::	.ZWORD "u"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 55
+W?UNDER::	.ZWORD "under"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?UNDERNEATH::	.ZWORD "underneat"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?UNDO::	.ZWORD "undo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+W?UNDRESS::	.ZWORD "undress"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+W?UNFASTEN::	.ZWORD "unfasten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+W?UNFLATTEN::	.ZWORD "unflatten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNFOLD
+W?UNFOLD::	.ZWORD "unfold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNFOLD
+W?UNHOOK::	.ZWORD "unhook"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+W?UNJAM::	.ZWORD "unjam"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+W?UNLOCK::	.ZWORD "unlock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNLOCK
+W?UNSCREW::	.ZWORD "unscrew"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNSCREW
+W?UNSCRIPT::	.ZWORD "unscript"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNSCRIPT
+W?UNTIE::	.ZWORD "untie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+W?UNTIL::	.ZWORD "until"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?UP::	.ZWORD "up"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 55
+W?UPON::	.ZWORD "upon"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?UPPER::	.ZWORD "upper"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?UPSTREAM::	.ZWORD "upstream"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?URCHIN::	.ZWORD "urchin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?URCHINS::	.ZWORD "urchins"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?URN::	.ZWORD "urn"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?USE::	.ZWORD "use"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?USE
+W?USING::	.ZWORD "using"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?UTTER::	.ZWORD "utter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+W?V::	.ZWORD "v"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?V'S::	.ZWORD "v's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?VAULT::	.ZWORD "vault"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?JUMP
+W?VEGETABLES::	.ZWORD "vegetable"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?VENDOR::	.ZWORD "vendor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?VERBOSE::	.ZWORD "verbose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERBOSE
+W?VERE::	.ZWORD "vere"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?VERE'S::	.ZWORD "vere's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?VERSE::	.ZWORD "verse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?VERSION::	.ZWORD "version"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERSION
+W?VESTIBULE::	.ZWORD "vestibule"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?VIAL::	.ZWORD "vial"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?VICTORIA::	.ZWORD "victoria"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?VII::	.ZWORD "vii"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?VII'S::	.ZWORD "vii's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?VIOLIN::	.ZWORD "violin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?VISITOR::	.ZWORD "visitor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?W::	.ZWORD "w"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+W?WADE::	.ZWORD "wade"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+W?WAIT::	.ZWORD "wait"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+W?WAKE::	.ZWORD "wake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+W?WALK::	.ZWORD "walk"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+W?WALL::	.ZWORD "wall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WALLS::	.ZWORD "walls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WALTER::	.ZWORD "walter"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WALTER'S::	.ZWORD "walter's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WARM::	.ZWORD "warm"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAT
+W?WAS::	.ZWORD "was"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+W?WATCH::	.ZWORD "watch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WATCH
+W?WATER::	.ZWORD "water"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WATERMARK::	.ZWORD "watermark"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WATSON::	.ZWORD "watson"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WAVE::	.ZWORD "wave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAVE
+W?WAX::	.ZWORD "wax"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WEAPON::	.ZWORD "weapon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WEAR::	.ZWORD "wear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+W?WEATHERED::	.ZWORD "weathered"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WEDGE::	.ZWORD "wedge"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEDGE
+W?WEIGH::	.ZWORD "weigh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEIGH
+W?WELLINGTON::	.ZWORD "wellingto"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WEST::	.ZWORD "west"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+W?WESTMINSTER::	.ZWORD "westminst"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WHACK::	.ZWORD "whack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIT
+W?WHAT::	.ZWORD "what"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+W?WHAT'S::	.ZWORD "what's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+W?WHATS::	.ZWORD "whats"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+W?WHERE::	.ZWORD "where"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHERE
+W?WHERE'S::	.ZWORD "where's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHERE
+W?WHERES::	.ZWORD "wheres"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHERE
+W?WHIFF::	.ZWORD "whiff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+W?WHIRL::	.ZWORD "whirl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPIN
+W?WHISTLE::	.ZWORD "whistle"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?WHITE::	.ZWORD "white"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WHITEHALL::	.ZWORD "whitehall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WHO::	.ZWORD "who"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHO
+W?WHO'S::	.ZWORD "who's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHO
+W?WHOS::	.ZWORD "whos"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHO
+W?WIGGINS::	.ZWORD "wiggins"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WIGGINS'::	.ZWORD "wiggins'"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WIGGLE::	.ZWORD "wiggle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOSEN
+W?WILLIAM::	.ZWORD "william"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WILLIAM'S::	.ZWORD "william's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?WIND::	.ZWORD "wind"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WIND
+W?WINDOW::	.ZWORD "window"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WINDOWS::	.ZWORD "windows"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WINE::	.ZWORD "wine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WIPE::	.ZWORD "wipe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+W?WITH::	.ZWORD "with"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?WITHDRAW::	.ZWORD "withdraw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+W?WITHIN::	.ZWORD "within"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 0
+W?WIVES::	.ZWORD "wives"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WOBBLE::	.ZWORD "wobble"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOSEN
+W?WOMEN::	.ZWORD "women"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WORK::	.ZWORD "work"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?WORK
+W?WORKBENCH::	.ZWORD "workbench"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?WOUND::	.ZWORD "wound"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+W?WRAP::	.ZWORD "wrap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLD
+W?WRECK::	.ZWORD "wreck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREAK
+W?X::	.ZWORD "x"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+W?Y::	.ZWORD "y"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+W?YANK::	.ZWORD "yank"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+W?YARD::	.ZWORD "yard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?YELL::	.ZWORD "yell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+W?YELLOW::	.ZWORD "yellow"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?YEOMAN::	.ZWORD "yeoman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?YES::	.ZWORD "yes"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+W?YORK::	.ZWORD "york"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?YOU::	.ZWORD "you"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?YOUNGER::	.ZWORD "younger"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+W?YOURSELF::	.ZWORD "yourself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+W?Z::	.ZWORD "z"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+W?ZEPPO::	.ZWORD "zeppo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ECHO
+W?ZZZP::	.ZWORD "zzzp"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+	.ENDI
diff --git a/gamesoundfreq.zap b/gamesoundfreq.zap
new file mode 100644
index 0000000..6bd233f
--- /dev/null
+++ b/gamesoundfreq.zap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;3108	1555
+	.FSTR FSTR?2,"you "	;1300	651
+	.FSTR FSTR?3,", "	;1172	1173
+	.FSTR FSTR?4,"You "	;1104	369
+	.FSTR FSTR?5,"and "	;1074	538
+	.FSTR FSTR?6,"The "	;1014	339
+	.FSTR FSTR?7,"to "	;724	725
+	.FSTR FSTR?8,". "	;707	708
+	.FSTR FSTR?9,"of "	;619	620
+	.FSTR FSTR?10,"is "	;539	540
+	.FSTR FSTR?11,"Holmes "	;534	90
+	.FSTR FSTR?12,"that "	;531	178
+	.FSTR FSTR?13,"your "	;477	160
+	.FSTR FSTR?14,"with "	;429	144
+	.FSTR FSTR?15,"cannot "	;420	85
+	.FSTR FSTR?16,"already "	;414	70
+	.FSTR FSTR?17,"Watson"	;390	79
+	.FSTR FSTR?18,"in "	;387	388
+	.FSTR FSTR?19,"are "	;378	190
+	.FSTR FSTR?20,"have "	;372	125
+	.FSTR FSTR?21,"It's "	;350	71
+	.FSTR FSTR?22,"into "	;345	116
+	.FSTR FSTR?23,"can't "	;330	67
+	.FSTR FSTR?24,"from "	;321	108
+	.FSTR FSTR?25,"for "	;316	159
+	.FSTR FSTR?26,"not "	;270	136
+	.FSTR FSTR?27,"There "	;270	55
+	.FSTR FSTR?28,"his "	;238	120
+	.FSTR FSTR?29,"looks "	;224	57
+	.FSTR FSTR?30,"anything "	;224	33
+	.FSTR FSTR?31,"says"	;210	106
+	.FSTR FSTR?32,"about "	;204	52
+	.FSTR FSTR?33,"I "	;203	204
+	.FSTR FSTR?34,"He "	;202	102
+	.FSTR FSTR?35,"see "	;196	99
+	.FSTR FSTR?36,"out "	;192	97
+	.FSTR FSTR?37,"through "	;192	33
+	.FSTR FSTR?38,"something "	;192	25
+	.FSTR FSTR?39,"Holmes's "	;189	22
+	.FSTR FSTR?40,"which "	;188	48
+	.FSTR FSTR?41,"on "	;180	181
+	.FSTR FSTR?42,"it "	;176	177
+	.FSTR FSTR?43,"but "	;176	89
+	.FSTR FSTR?44,"would "	;176	45
+	.FSTR FSTR?45,"don't "	;175	36
+	.FSTR FSTR?46,"nothing "	;162	28
+	.FSTR FSTR?47,"I'm "	;156	40
+	.FSTR FSTR?48,"around "	;155	32
+	.FSTR FSTR?49,"doesn't "	;154	23
+	.FSTR FSTR?50,"at "	;153	154
+	.FSTR FSTR?51,"It "	;150	76
+	.FSTR FSTR?52,"get "	;144	73
+	.FSTR FSTR?53,"door "	;144	49
+	.FSTR FSTR?54,"back "	;144	49
+	.FSTR FSTR?55,"this "	;141	48
+	.FSTR FSTR?56,"How "	;141	48
+	.FSTR FSTR?57,"other "	;140	36
+	.FSTR FSTR?58,"Wiggins "	;140	21
+	.FSTR FSTR?59,"then "	;138	47
+	.FSTR FSTR?60,"will "	;135	46
+	.FSTR FSTR?61,"you"	;132	133
+	.FSTR FSTR?62,"has "	;132	67
+	.FSTR FSTR?63,"holding "	;132	23
+	.FSTR FSTR?64,"looking "	;126	22
+	.FSTR FSTR?65,"appears "	;126	22
+	.FSTR FSTR?66,"disappears "	;126	15
+	.FSTR FSTR?67,"just "	;123	42
+	.FSTR FSTR?68,"been "	;120	41
+	.FSTR FSTR?69,"Street"	;120	25
+	.FSTR FSTR?70,"Holmes"	;120	25
+	.FSTR FSTR?71,"you're "	;120	21
+	.FSTR FSTR?72,"You're "	;119	18
+	.FSTR FSTR?73,"everything "	;117	14
+	.FSTR FSTR?74,"do "	;116	117
+	.FSTR FSTR?75,"there "	;116	30
+	.FSTR FSTR?76,"That "	;116	30
+	.FSTR FSTR?77,"one "	;114	58
+	.FSTR FSTR?78,"can "	;114	58
+	.FSTR FSTR?79,"be "	;113	114
+	.FSTR FSTR?80,"Tower"	;112	29
+	.FSTR FSTR?81,"This "	;112	29
+	.FSTR FSTR?82,"Lestrade "	;112	15
+	.FSTR FSTR?83,"only "	;111	38
+	.FSTR FSTR?84,"he "	;110	111
+	.FSTR FSTR?85,"Tower "	;110	23
+	.FSTR FSTR?86,"must "	;108	37
+	.FSTR FSTR?87,"look "	;108	37
+	.FSTR FSTR?88,"like "	;108	37
+	.FSTR FSTR?89,"Have "	;108	28
+	.FSTR FSTR?90,"London "	;108	19
+	.FSTR FSTR?91,"After "	;105	22
+	.FSTR FSTR?92,"Crown "	;105	22
+	.FSTR FSTR?93,"Hudson "	;102	18
+	.FSTR FSTR?94,"Don't "	;102	18
+	.FSTR FSTR?95,"as "	;100	101
+	.FSTR FSTR?96,"too "	;100	51
+
+
+;word frequency table of 96 most common words
+
+WORDS::	.TABLE
+	FSTR?1
+	FSTR?2
+	FSTR?3
+	FSTR?4
+	FSTR?5
+	FSTR?6
+	FSTR?7
+	FSTR?8
+	FSTR?9
+	FSTR?10
+	FSTR?11
+	FSTR?12
+	FSTR?13
+	FSTR?14
+	FSTR?15
+	FSTR?16
+	FSTR?17
+	FSTR?18
+	FSTR?19
+	FSTR?20
+	FSTR?21
+	FSTR?22
+	FSTR?23
+	FSTR?24
+	FSTR?25
+	FSTR?26
+	FSTR?27
+	FSTR?28
+	FSTR?29
+	FSTR?30
+	FSTR?31
+	FSTR?32
+	FSTR?33
+	FSTR?34
+	FSTR?35
+	FSTR?36
+	FSTR?37
+	FSTR?38
+	FSTR?39
+	FSTR?40
+	FSTR?41
+	FSTR?42
+	FSTR?43
+	FSTR?44
+	FSTR?45
+	FSTR?46
+	FSTR?47
+	FSTR?48
+	FSTR?49
+	FSTR?50
+	FSTR?51
+	FSTR?52
+	FSTR?53
+	FSTR?54
+	FSTR?55
+	FSTR?56
+	FSTR?57
+	FSTR?58
+	FSTR?59
+	FSTR?60
+	FSTR?61
+	FSTR?62
+	FSTR?63
+	FSTR?64
+	FSTR?65
+	FSTR?66
+	FSTR?67
+	FSTR?68
+	FSTR?69
+	FSTR?70
+	FSTR?71
+	FSTR?72
+	FSTR?73
+	FSTR?74
+	FSTR?75
+	FSTR?76
+	FSTR?77
+	FSTR?78
+	FSTR?79
+	FSTR?80
+	FSTR?81
+	FSTR?82
+	FSTR?83
+	FSTR?84
+	FSTR?85
+	FSTR?86
+	FSTR?87
+	FSTR?88
+	FSTR?89
+	FSTR?90
+	FSTR?91
+	FSTR?92
+	FSTR?93
+	FSTR?94
+	FSTR?95
+	FSTR?96
+	.ENDT
+
+	.ENDI
diff --git a/gamesoundglobals.dat b/gamesoundglobals.dat
new file mode 100644
index 0000000..5f12752
--- /dev/null
+++ b/gamesoundglobals.dat
@@ -0,0 +1,311 @@
+(GL-PRSO	; 885
+GL-PRSA	; 787
+GL-PRSI	; 400
+GL-PLACE-CUR	; 381
+GL-WINNER	; 232
+GL-NOW-PRSI?	; 167
+GL-PUPPY	; 80
+GL-P-PRSA-WORD	; 60
+GL-P-IT-OBJECT	; 45
+GL-P-ITBL	; 81
+GL-PLACE-PRV	; 40
+GL-P-LEN	; 39
+GL-NOW-LIT?	; 36
+GL-P-ADJ	; 32
+GL-P-NCN	; 30
+GL-TIME-PARM	; 60
+GL-P-P-LEX	; 57
+GL-P-NAM	; 28
+GL-P-ORPH	; 23
+GL-P-OTBL	; 39
+CH-TRAINED-PIGEON-AUX1	; 19
+GL-CUR-POS	; 18
+GL-P-SLOCBITS	; 18
+GL-WINDOW	; 18
+SOUND-QUEUED?	; 17
+GL-P-NUMBER	; 16
+GL-QUEST-NUM	; 15
+GL-TIME	; 30
+GL-CHAPT-NUM	; 14
+GL-P-GET-FLAGS	; 14
+CH-ELIZA-DOOLITTLE-AUX1	; 13
+GL-P-CONT	; 13
+GL-P-MULT?	; 13
+GL-P-QUOT	; 13
+GL-P-WALK-DIR	; 13
+GL-SCORE-CUR	; 13
+GL-WHERE-TO-ORPH?	; 13
+LOOPING?	; 13
+GL-P-NAMW	; 25
+CH-HOLMES-AUX1	; 12
+CH-TRAINED-PIGEON-AUX2	; 12
+GL-FORMER-PUPPY	; 12
+GL-P-ACLAUSE	; 12
+GL-P-HER-OBJECT	; 12
+GL-P-HIM-OBJECT	; 12
+GL-P-MERGED	; 12
+GL-P-THEM-OBJECT	; 12
+GL-SPLIT-ROW	; 12
+GL-WHERE-TO-PROMPT?	; 12
+GL-CLOCK-WAIT	; 11
+GL-P-SYNTAX	; 11
+MYCROFT-STATE	; 11
+CAB-RAMP	; 10
+CH-TRAINED-PIGEON-AUX3	; 10
+GL-ALLSCREEN	; 10
+GL-DESC-LEVEL	; 10
+GL-P-PRSO	; 20
+GL-P-QCONTEXT-TH	; 10
+GL-PUPPY-MSG?	; 10
+TH-DIAL-AUX1	; 10
+TH-DIAL-AUX2	; 10
+K-RICOCHET-MSG	; 19
+GL-P-VTBL	; 18
+HEARD-SWING?	; 9
+SOUND-ON?	; 9
+TH-BELL-AUX1	; 9
+TH-ROPE-AUX2	; 9
+GL-P-PRSI	; 17
+GL-LISTEN-OBJ	; 8
+GL-P-DIRECTION	; 8
+GL-P-GOOD	; 8
+GL-P-GWIMBIT	; 8
+GL-P-PHR	; 8
+GL-SCORE-MSG	; 8
+TH-BELL-AUX2	; 8
+TH-PACKET-OF-PAPER-AUX1	; 8
+TH-ROPE-AUX1	; 8
+K-TOO-DARK-MSG	; 15
+CH-VENDOR-AUX1	; 7
+GL-LAST-OUT-TOD	; 7
+GL-OOPS-TABLE	; 14
+GL-P-QCONTEXT-RM	; 7
+GL-P-TABLE	; 7
+GL-PLACE-STS	; 7
+PLAYER-IN-ABBEY	; 7
+TH-SAFETY-DEPOSIT-BOX-AUX1	; 7
+GL-FUNNY-CLAUSE?	; 6
+GL-P-OF	; 6
+GL-P-XNAM	; 6
+GL-RESERVE-PTR	; 6
+GL-TIME-UPDT-INC	; 12
+TH-BOX-KEY-AUX1	; 6
+GL-A-TIME	; 11
+GL-HOLMES-DESC-TXT	; 11
+GL-P-ADJW	; 11
+GL-P-MERGE	; 11
+GL-P-PIBUF	; 11
+GL-P-S-LEX	; 11
+GL-A-ROUT	; 10
+GL-P-XADJ	; 5
+GL-SCORE-MAX	; 5
+GL-SCORE-STS	; 5
+GL-STAT-S-POS	; 5
+GL-STAT-T-POS	; 5
+GL-WAIT-BELL	; 5
+INHIBIT-ROOMS	; 5
+K-HOW-TO-MSG	; 10
+RUN-SMELL-ETHERIUM?	; 5
+GL-BORING-TXT	; 9
+GL-P-OCLAUSE	; 9
+GL-P-TIME	; 9
+BELIEVE-WAIT-TIME?	; 4
+GL-CAN-UNDO	; 4
+GL-CLOSED-OBJECT	; 4
+GL-LASTFOC	; 4
+GL-LINE-TABLE	; 4
+GL-MOVES-CUR	; 4
+GL-OOPS-INBUF	; 8
+GL-P-END-ON-PREP	; 4
+GL-P-MOBY-FOUND	; 4
+GL-SHORT-STAT?	; 4
+K-ASTERISK-MSG	; 8
+K-GOOD-SHOW-MSG	; 8
+K-MAYBE-MSG	; 8
+K-PITY-MSG	; 8
+LOOP-VOL	; 4
+TH-BOX-LOCK-AUX1	; 4
+TH-CAB-WHISTLE-AUX1	; 4
+TH-HANSOM-CAB-AUX2	; 4
+WIGGINS-COLD?	; 4
+GL-P-BUTS	; 7
+GL-P-OFW	; 7
+GL-TEMP-TIME	; 7
+K-SHATTER-MSG	; 7
+ALLOW-IN-TOWER	; 3
+CH-BANK-GUARD-AUX1	; 3
+GL-AGAIN-DIR	; 3
+GL-ALARM-EXEC	; 3
+GL-DEBUG-FLAG	; 3
+GL-IN-OUT	; 3
+GL-LONG-OOPS	; 3
+GL-MOVES-STS	; 3
+GL-P-ANAM	; 3
+GL-P-AND	; 3
+GL-P-OVERFLOW	; 3
+GL-P-OVTBL	; 6
+GL-P-TIME-FLAG	; 3
+GL-STAT-MAX-ROOM	; 3
+KNIFE-COLD?	; 3
+LAST-PSEUDO-LOC	; 3
+PASSWORD-ID	; 3
+RM-HOLMES-STUDY-AUX1	; 3
+TH-BOAT-AUX1	; 3
+TH-CAB-WHISTLE-AUX2	; 3
+TH-GUN-AUX1	; 3
+WINNER-IS-WIGGINS	; 3
+K-ANNIE-OAKELEY-MSG	; 5
+K-BE-MORE-SPECIFIC-MSG	; 5
+K-HINTS	; 5
+BOX-KEY-COLD?	; 2
+CAB-ROOM-IDS	; 4
+CH-WIGGINS-AUX1	; 2
+GL-ALARM-WAIT	; 2
+GL-CLOCK-STOP	; 2
+GL-COLUMN-TABLE	; 4
+GL-DIROUT-TBL	; 4
+GL-HINT-WARNING	; 2
+GL-HINTS-OFF	; 2
+GL-MIDSCREEN	; 2
+GL-P-DIR-WORD	; 2
+GL-SCORE-HEADER-LEN	; 2
+GL-YES-LEXV	; 4
+K-DONT-UNDERSTAND-MSG	; 4
+K-INAPPROPRIATE-MSG	; 4
+K-SMOULDERS-MSG	; 4
+K-SPECIFY-DIR-MSG	; 4
+K-SUICIDE-MSG	; 4
+K-THEFT-MSG	; 4
+TH-GROWLER-CAB-AUX1	; 2
+TH-HANSOM-CAB-AUX1	; 2
+TH-PHIAL-AUX1	; 2
+TH-SAPPHIRE-AUX1	; 2
+GL-DAY-NAME	; 3
+GL-HOLES	; 3
+GL-NO-POINT-TXT	; 3
+GL-WIGGINS-DESC-TXT	; 3
+K-BULLET-MSG	; 3
+K-DO-IT-YOURSELF-MSG	; 3
+K-FOUGHT-WELL-MSG	; 3
+K-GOOD-LOOK-MSG	; 3
+K-HEAVY-ARMOUR-MSG	; 3
+K-ILL-HOLD-IT-MSG	; 3
+K-MUST-BE-IN-BOAT-MSG	; 3
+K-NO-RESTING-MSG	; 3
+K-SEEMS-TO-HEAR-MSG	; 3
+K-SIGN-HERE-MSG	; 3
+K-SIMPLE-TOMB-MSG	; 3
+K-SORRY-MATE-MSG	; 3
+K-SPECIFY-MSG	; 3
+K-WELL-WORN-MSG	; 3
+GL-ALW-LIT?	; 1
+GL-CLOCK-FMT	; 1
+GL-HOLMES-HOUSE-LOOK-TXT	; 2
+GL-HOLMES-INDOORS-LOOK-TXT	; 2
+GL-HOLMES-OUTDOORS-LOOK-TXT	; 2
+GL-LOC-TRAIL	; 2
+GL-NOT-LIKELY-TXT	; 2
+GL-P-AADJ	; 1
+GL-P-DIR	; 1
+GL-P-RIBUF	; 2
+GL-P-T-LEX	; 2
+GL-TIME-UPDT-DEF	; 2
+GL-WIGGINS-LOOK-TXT	; 2
+GL-YES-IBUF	; 2
+K-AFTER-YOU-MSG	; 2
+K-AMBULATORY-MSG	; 2
+K-ANCHOR-ALREADY-OUT-MSG	; 2
+K-ANOTHER-PHIAL-MSG	; 2
+K-BETTER-SUCCESS-MSG	; 2
+K-BRAND-MSG	; 2
+K-BRAVO-MSG	; 2
+K-BREATH-TAKING-MSG	; 2
+K-BRIGHTENS-UP-MSG	; 2
+K-BUTLER-ACCEPTS-MSG	; 2
+K-CAB-HERE-MSG	; 2
+K-CANT-LEAVE-MSG	; 2
+K-CANT-WAIT-MSG	; 2
+K-CLOSED-AND-LOCKED-MSG	; 2
+K-CONFUSED-MSG	; 2
+K-CUSTOMARILY-KEEP-MSG	; 2
+K-DIZZY-MSG	; 2
+K-DROP-IT-FIRST-MSG	; 2
+K-EAU-DE-MSG	; 2
+K-ENJOYING-RIDE-MSG	; 2
+K-ENOUGH-ROOM-MSG	; 2
+K-EVERYONE-OUT-MSG	; 2
+K-EYES-HINGED-MSG	; 2
+K-FIDGETING-MSG	; 2
+K-GET-OUT-FIRST-MSG	; 2
+)(
+K-GLINT-MSG	; 2
+K-GNAWS-MSG	; 2
+K-GOOD-HEALTH-MSG	; 2
+K-GUARD-IGNORES-MSG	; 2
+K-HOLMES-DISTRACTION-MSG	; 2
+K-HOLMES-LICKS-MSG	; 2
+K-HOT-MSG	; 2
+K-HUDSON-WORRIED-MSG	; 2
+K-LESTRADE-ARRESTS-MSG	; 2
+K-MORE-VALUABLE-MSG	; 2
+K-MUST-WEIGH-MSG	; 2
+K-NELSON-STATUE-MSG	; 2
+K-NEVER-THEORIZE-MSG	; 2
+K-NOT-SEE-HERE-MSG	; 2
+K-NOTHING-INSIDE-MSG	; 2
+K-ON-DUTY-MSG	; 2
+K-OUTRAGED-CROWD-MSG	; 2
+K-PLEASE-KEEP-IT-MSG	; 2
+K-PLUG-HIM-MYSELF-MSG	; 2
+K-REFERRING-MSG	; 2
+K-SAPPHIRE-MSG	; 2
+K-SEASICK-MSG	; 2
+K-SECURELY-BOUND-MSG	; 2
+K-SHAFT-OF-LIGHT-MSG	; 2
+K-SITTING-QUIETLY-MSG	; 2
+K-TAKE-CAB-MSG	; 2
+K-TIPSY-MSG	; 2
+K-TOO-HAUGHTY-MSG	; 2
+K-TRANSEPT-MSG	; 2
+K-TWINKLE-MSG	; 2
+K-URCHIN-MSG	; 2
+K-WAKE-UP-MSG	; 2
+K-WILD-RIDE-MSG	; 2
+K-WONT-HELP-MSG	; 2
+K-WORK-OUT-YOURSELF-MSG	; 2
+K-WOUNDED-PRIDE-MSG	; 2
+K-YUCK-MSG	; 2
+GL-ALARM-STOP	; 1
+GL-BLANKS	; 1
+GL-CAB-DIST-TBL	; 1
+GL-FOG-TXT	; 1
+GL-HOLMES-DESPAIR-TXT	; 1
+GL-HOLMES-HOUSE-ENTER-TXT	; 1
+GL-HOLMES-IMPOSSIBLE-TXT	; 1
+GL-HOLMES-INDOORS-ENTER-TXT	; 1
+GL-HOLMES-OUTDOORS-ENTER-TXT	; 1
+GL-IMPOSSIBLE-TXT	; 1
+GL-LIBRARIAN-TXT1	; 1
+GL-LIBRARIAN-TXT2	; 1
+GL-LOOKS-TXT	; 1
+GL-PUZZLED-TXT	; 1
+GL-WIGGINS-ENTER-TXT	; 1
+GL-WIGGINS-IMPOSSIBLE-TXT	; 1
+K-BE-SPECIFIC-MSG	; 1
+K-HINT-COUNTS	; 1
+K-NO-SWIM-MSG	; 1
+K-PROFANITY-MSG	; 1
+MASS-TABLE	; 1
+Q-MAIN-MENU	; 1
+RETURN-SEE-HINT	; 1
+SIZE-TABLE	; 1
+FIND-NO-LOCS	; 0
+GL-GAME-VERBS	; 0
+GL-QUOTES	; 0
+GL-SEE-VERBS	; 0
+GL-TALK-VERBS	; 0
+GL-TOUCH-VERBS	; 0
+K-CAPS	; 0
+K-TO-COMPLETE-MSG	; 0
+TH-EVENT-NAMES	; 0
+)
\ No newline at end of file
diff --git a/gamesoundpur.zap b/gamesoundpur.zap
new file mode 100644
index 0000000..99b1547
--- /dev/null
+++ b/gamesoundpur.zap
@@ -0,0 +1,2622 @@
+
+
+; PURE TABLES ARE DEFINED HERE
+
+PURTBL::
+
+PT?101::
+GL-GAME-VERBS::	.TABLE
+	10
+	V?DESC-LEVEL
+	V?QUIT
+	V?RESTART
+	V?DIAGNOSE
+	V?INVENTORY
+	V?NOTIFY
+	V?SAVE
+	V?RESTORE
+	V?SCRIPT
+	V?VERSION
+	.ENDT
+
+PT?201::	.TABLE
+	4
+	STR?1
+	STR?2
+	STR?3
+	STR?4
+	.ENDT
+
+PT?301::	.TABLE
+	5
+	STR?5
+	STR?6
+	STR?7
+	STR?8
+	STR?9
+	.ENDT
+
+PT?401::	.TABLE
+	7
+	STR?10
+	STR?11
+	STR?12
+	STR?13
+	STR?14
+	STR?15
+	STR?16
+	.ENDT
+
+PT?501::	.TABLE
+	5
+	STR?17
+	STR?18
+	STR?19
+	STR?4
+	STR?20
+	.ENDT
+
+PT?601::	.TABLE
+	6
+	STR?21
+	STR?22
+	STR?23
+	STR?24
+	STR?25
+	STR?26
+	.ENDT
+
+PT?701::	.TABLE
+	5
+	STR?27
+	STR?28
+	STR?29
+	STR?30
+	STR?31
+	.ENDT
+
+PT?801::	.TABLE
+	3
+	STR?32
+	STR?33
+	STR?34
+	.ENDT
+
+PT?901::	.TABLE
+	3
+	STR?35
+	STR?36
+	STR?37
+	.ENDT
+
+PT?1001::	.TABLE
+	4
+	STR?38
+	STR?39
+	STR?40
+	STR?41
+	.ENDT
+
+PT?1101::	.TABLE
+	4
+	STR?42
+	STR?43
+	STR?44
+	STR?45
+	.ENDT
+
+PT?1201::	.TABLE
+	6
+	STR?46
+	STR?47
+	STR?48
+	STR?49
+	STR?50
+	STR?51
+	.ENDT
+
+PT?1301::	.TABLE
+	6
+	STR?52
+	STR?53
+	STR?54
+	STR?55
+	STR?56
+	STR?57
+	.ENDT
+
+PT?1401::
+K-CAPS::	.TABLE
+	18
+	W?N
+	W?E
+	W?S
+	W?W
+	W?I
+	W?MR
+	W?MRS
+	W?MISS
+	W?HOLMES
+	W?WATSON
+	W?ELIZA
+	W?HUDSON
+	W?WIGGINS
+	W?AKBAR
+	W?MORIARTY
+	W?TOBY
+	W?MYCROFT
+	W?SHERMAN
+	.ENDT
+
+PT?1501::
+GL-SEE-VERBS::	.TABLE
+	20
+	V?LOOK
+	V?EXAMINE
+	V?LOOK-INSIDE
+	V?LOOK-ON
+	V?READ
+	V?FIND
+	V?SEARCH
+	V?SHOW
+	V?LOOK-UNDER
+	V?LOOK-BEHIND
+	V?LOOK-THRU
+	V?LOOK-DOWN
+	V?LOOK-UP
+	V?READ-TO
+	V?LOOK-OUTSIDE
+	V?COUNT
+	V?WATCH
+	V?FOCUS-ON
+	V?ADJUST
+	V?POINT
+	.ENDT
+
+PT?1601::
+GL-TALK-VERBS::	.TABLE
+	19
+	V?ALARM
+	V?ASK-ABOUT
+	V?ASK-FOR
+	V?GOODBYE
+	V?HELLO
+	V?NO
+	V?PASSWORD
+	V?QUESTION
+	V?REPLY
+	V?SAY
+	V?TELL
+	V?TELL-ABOUT
+	V?THANK
+	V?WAVE-AT
+	V?WHAT
+	V?WHERE
+	V?WHO
+	V?YELL
+	V?YES
+	.ENDT
+
+PT?1701::
+GL-TOUCH-VERBS::	.TABLE
+	69
+	V?ADJUST
+	V?BLOW-INTO
+	V?BURN-WITH
+	V?CLEAN
+	V?CLEAN-OFF
+	V?CLOSE
+	V?COVER
+	V?CUT
+	V?DETONATE
+	V?DRINK
+	V?DRINK-FROM
+	V?EAT
+	V?EMPTY-INTO
+	V?FEED
+	V?FILL
+	V?FOLD
+	V?GIVE
+	V?HIT
+	V?KICK
+	V?KNOCK
+	V?LAMP-ON
+	V?LAMP-OFF
+	V?LIE-DOWN
+	V?LIGHT-WITH
+	V?LOCK
+	V?LOOSEN
+	V?LOWER
+	V?MELT
+	V?MOVE
+	V?MUNG
+	V?OPEN
+	V?OPEN-WITH
+	V?PICK
+	V?PLAY
+	V?PLUG
+	V?PULL
+	V?PUSH
+	V?PUSH-TO
+	V?PUT
+	V?PUT-BEHIND
+	V?PUT-ON
+	V?PUT-UNDER
+	V?RAISE
+	V?REACH-IN
+	V?REPAIR
+	V?REPLACE
+	V?RIP
+	V?SHAKE
+	V?SIT
+	V?SPIN
+	V?STAND-ON
+	V?STRIKE
+	V?SWING
+	V?TAKE
+	V?TAKE-OFF
+	V?TASTE
+	V?TIE
+	V?TOUCH
+	V?TOUCH-TO
+	V?TUNE-TO
+	V?TURN
+	V?TURN-TO
+	V?UNFOLD
+	V?UNLOCK
+	V?UNPLUG
+	V?UNSCREW-FROM
+	V?UNTIE
+	V?WIND
+	V?WRAP-AROUND
+	.ENDT
+
+PT?1801::
+GL-CAB-DIST-TBL::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 1
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 3
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 2
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 6
+	.BYTE 1
+	.BYTE 6
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 4
+	.BYTE 6
+	.BYTE 2
+	.BYTE 1
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 3
+	.BYTE 5
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 2
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 6
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 3
+	.BYTE 5
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 3
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 2
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 3
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 1
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 6
+	.BYTE 1
+	.BYTE 3
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 1
+	.BYTE 3
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 2
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 2
+	.BYTE 2
+	.BYTE 6
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 3
+	.BYTE 3
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 2
+	.BYTE 3
+	.BYTE 7
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 3
+	.BYTE 3
+	.BYTE 1
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 1
+	.BYTE 3
+	.BYTE 6
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 2
+	.BYTE 2
+	.BYTE 2
+	.BYTE 1
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 2
+	.BYTE 4
+	.BYTE 7
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 3
+	.BYTE 3
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 3
+	.BYTE 5
+	.BYTE 8
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 4
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 8
+	.BYTE 8
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 10
+	.BYTE 4
+	.BYTE 6
+	.BYTE 9
+	.BYTE 8
+	.BYTE 8
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 5
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 3
+	.BYTE 5
+	.BYTE 8
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 4
+	.BYTE 4
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 4
+	.BYTE 4
+	.BYTE 8
+	.BYTE 8
+	.BYTE 8
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 5
+	.BYTE 5
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 3
+	.BYTE 3
+	.BYTE 7
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 4
+	.BYTE 4
+	.BYTE 1
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 5
+	.BYTE 1
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 4
+	.BYTE 4
+	.BYTE 8
+	.BYTE 8
+	.BYTE 8
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 5
+	.BYTE 5
+	.BYTE 2
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 6
+	.BYTE 2
+	.BYTE 1
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 5
+	.BYTE 5
+	.BYTE 9
+	.BYTE 9
+	.BYTE 9
+	.BYTE 8
+	.BYTE 7
+	.BYTE 8
+	.BYTE 7
+	.BYTE 8
+	.BYTE 6
+	.BYTE 6
+	.BYTE 3
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 6
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 8
+	.BYTE 8
+	.BYTE 7
+	.BYTE 6
+	.BYTE 5
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 10
+	.BYTE 6
+	.BYTE 6
+	.BYTE 10
+	.BYTE 10
+	.BYTE 10
+	.BYTE 9
+	.BYTE 8
+	.BYTE 9
+	.BYTE 8
+	.BYTE 9
+	.BYTE 7
+	.BYTE 7
+	.BYTE 4
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 9
+	.BYTE 9
+	.BYTE 8
+	.BYTE 7
+	.BYTE 6
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 10
+	.BYTE 11
+	.BYTE 5
+	.BYTE 7
+	.BYTE 10
+	.BYTE 9
+	.BYTE 9
+	.BYTE 8
+	.BYTE 7
+	.BYTE 8
+	.BYTE 7
+	.BYTE 8
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 4
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 10
+	.BYTE 10
+	.BYTE 9
+	.BYTE 8
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 10
+	.BYTE 11
+	.BYTE 12
+	.BYTE 6
+	.BYTE 8
+	.BYTE 11
+	.BYTE 10
+	.BYTE 10
+	.BYTE 9
+	.BYTE 8
+	.BYTE 9
+	.BYTE 8
+	.BYTE 9
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 10
+	.BYTE 10
+	.BYTE 9
+	.BYTE 8
+	.BYTE 7
+	.BYTE 8
+	.BYTE 9
+	.BYTE 10
+	.BYTE 11
+	.BYTE 12
+	.BYTE 6
+	.BYTE 8
+	.BYTE 11
+	.BYTE 10
+	.BYTE 10
+	.BYTE 9
+	.BYTE 8
+	.BYTE 9
+	.BYTE 8
+	.BYTE 9
+	.BYTE 7
+	.BYTE 7
+	.BYTE 6
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 5
+	.BYTE 6
+	.BYTE 5
+	.BYTE 4
+	.BYTE 3
+	.BYTE 2
+	.BYTE 1
+	.BYTE 2
+	.ENDT
+
+PT?1901::	.TABLE
+	7
+	STR?65
+	STR?66
+	STR?67
+	STR?68
+	STR?69
+	STR?70
+	STR?71
+	.ENDT
+
+PT?2001::	.TABLE
+	6
+	STR?72
+	STR?73
+	STR?74
+	STR?75
+	STR?76
+	STR?77
+	.ENDT
+
+PT?2101::	.TABLE
+	3
+	STR?66
+	STR?78
+	STR?71
+	.ENDT
+
+PT?2201::	.TABLE
+	3
+	STR?73
+	STR?74
+	STR?77
+	.ENDT
+
+PT?2301::	.TABLE
+	7
+	STR?79
+	STR?68
+	STR?66
+	STR?70
+	STR?78
+	STR?80
+	STR?67
+	.ENDT
+
+PT?2401::	.TABLE
+	6
+	STR?81
+	STR?72
+	STR?82
+	STR?76
+	STR?75
+	STR?83
+	.ENDT
+
+PT?2501::	.TABLE
+	6
+	STR?84
+	STR?85
+	STR?86
+	STR?68
+	STR?80
+	STR?87
+	.ENDT
+
+PT?2601::	.TABLE
+	4
+	STR?75
+	STR?81
+	STR?76
+	STR?88
+	.ENDT
+
+PT?2701::	.TABLE
+	6
+	STR?148
+	STR?149
+	STR?150
+	STR?151
+	STR?152
+	STR?153
+	.ENDT
+
+PT?2801::	.TABLE
+	6
+	STR?154
+	STR?155
+	STR?156
+	STR?157
+	STR?158
+	STR?159
+	.ENDT
+
+PT?2901::	.TABLE
+	2
+	W?THEFT
+	W?CHASE
+	.ENDT
+
+PT?3001::	.TABLE
+	1
+	W?MERRY
+	.ENDT
+
+PT?3101::	.TABLE
+	3
+	W?JUBILEE
+	W?CELEBRATION
+	W?PARADE
+	.ENDT
+
+PT?3201::	.TABLE
+	2
+	W?HENRY
+	W?IV
+	.ENDT
+
+PT?3301::	.TABLE
+	1
+	W?HENRY
+	.ENDT
+
+PT?3401::	.TABLE
+	2
+	W?WELLINGTON
+	W?DUKE
+	.ENDT
+
+PT?3501::	.TABLE
+	1
+	W?IRON
+	.ENDT
+
+PT?3601::	.TABLE
+	4
+	W?TOBY
+	W?HOUND
+	W?BLOODHOUND
+	W?DOG
+	.ENDT
+
+PT?3701::	.TABLE
+	3
+	W?MYCROFT
+	W?HOLMES
+	W?BROTHER
+	.ENDT
+
+PT?3801::	.TABLE
+	1
+	W?MYCROFT
+	.ENDT
+
+PT?3901::	.TABLE
+	9
+	W?PASSWORD
+	W?SWORDFISH
+	W?GIN
+	W?PARR
+	W?CLEVES
+	W?ARAGON
+	W?HOWARD
+	W?SEYMOUR
+	W?BOLEYN
+	.ENDT
+
+PT?4001::	.TABLE
+	2
+	W?AGRA
+	W?TREASURE
+	.ENDT
+
+PT?4101::	.TABLE
+	1
+	W?AGRA
+	.ENDT
+
+PT?4201::	.TABLE
+	3
+	W?KIDNAPPING
+	W?ABDUCTION
+	W?ATTACK
+	.ENDT
+
+PT?4301::	.TABLE
+	3
+	W?HOLMES'
+	W?HOLMES'S
+	W?SHERLOCK
+	.ENDT
+
+PT?4401::	.TABLE
+	1
+	W?LESTRADE
+	.ENDT
+
+PT?4501::	.TABLE
+	1
+	W?INSPECTOR
+	.ENDT
+
+PT?4601::
+TH-EVENT-NAMES::	.TABLE
+	40
+	PT?2901
+	PT?3001
+	0
+	0
+	PT?3101
+	0
+	STR?190
+	0
+	PT?3201
+	PT?3301
+	STR?191
+	0
+	PT?3401
+	PT?3501
+	STR?192
+	0
+	PT?3601
+	0
+	STR?193
+	0
+	PT?3701
+	PT?3801
+	STR?194
+	7
+	PT?3901
+	0
+	0
+	0
+	PT?4001
+	PT?4101
+	STR?195
+	8
+	PT?4201
+	PT?4301
+	0
+	0
+	PT?4401
+	PT?4501
+	STR?196
+	7
+	.ENDT
+
+PT?4701::
+FIND-NO-LOCS::	.TABLE
+	3
+	TH-PHIAL
+	TH-SYRINGE
+	TH-ASH
+	.ENDT
+
+PT?104::
+T?GL-DAY-NAME::	.TABLE
+	STR?197
+	STR?198
+	STR?199
+	STR?200
+	STR?201
+	STR?202
+	STR?203
+	STR?204
+	STR?205
+	STR?206
+	STR?207
+	STR?208
+	STR?209
+	STR?210
+	STR?211
+	STR?212
+	STR?213
+	STR?200
+	STR?214
+	STR?215
+	STR?216
+	.ENDT
+
+PT?107::
+SIZE-TABLE::	.TABLE
+	.BYTE 10
+	.BYTE 12
+	.BYTE 15
+	.BYTE 20
+	.BYTE 50
+	.BYTE 99
+	.BYTE 100
+	.ENDT
+
+PT?207::
+MASS-TABLE::	.TABLE
+	.BYTE 10
+	.BYTE 15
+	.BYTE 50
+	.BYTE 100
+	.BYTE 250
+	.ENDT
+
+PT?307::	.TABLE
+	2
+	38
+	STR?239
+	.ENDT
+
+PT?407::	.TABLE
+	2
+	18
+	STR?240
+	.ENDT
+
+PT?507::	.TABLE
+	3
+	36
+	STR?241
+	STR?242
+	.ENDT
+
+PT?607::	.TABLE
+	2
+	32
+	STR?243
+	.ENDT
+
+PT?707::	.TABLE
+	2
+	8
+	STR?244
+	.ENDT
+
+PT?807::	.TABLE
+	7
+	38
+	STR?245
+	STR?246
+	STR?247
+	STR?248
+	STR?249
+	STR?250
+	.ENDT
+
+PT?907::	.TABLE
+	5
+	38
+	STR?251
+	STR?252
+	STR?253
+	STR?254
+	.ENDT
+
+PT?1007::	.TABLE
+	6
+	38
+	STR?255
+	0
+	STR?256
+	0
+	STR?257
+	.ENDT
+
+PT?1107::	.TABLE
+	11
+	38
+	STR?258
+	STR?259
+	STR?260
+	STR?261
+	STR?262
+	STR?263
+	STR?264
+	STR?265
+	STR?266
+	STR?267
+	.ENDT
+
+PT?1207::	.TABLE
+	4
+	17
+	STR?268
+	0
+	STR?269
+	.ENDT
+
+PT?1307::	.TABLE
+	2
+	13
+	STR?270
+	.ENDT
+
+PT?1407::	.TABLE
+	17
+	38
+	STR?271
+	STR?272
+	STR?273
+	STR?274
+	STR?275
+	0
+	STR?276
+	STR?277
+	STR?278
+	STR?279
+	STR?280
+	STR?281
+	STR?282
+	STR?283
+	0
+	STR?284
+	.ENDT
+
+PT?1507::	.TABLE
+	6
+	17
+	STR?285
+	0
+	STR?286
+	0
+	STR?287
+	.ENDT
+
+PT?1607::	.TABLE
+	2
+	39
+	STR?288
+	.ENDT
+
+PT?1707::
+GL-QUOTES::	.TABLE
+	PT?307
+	PT?407
+	PT?507
+	PT?607
+	PT?707
+	PT?807
+	PT?907
+	PT?1007
+	PT?1107
+	PT?1207
+	PT?1307
+	PT?1407
+	PT?1507
+	PT?1607
+	.ENDT
+
+PT?110::
+T?GL-LINE-TABLE::	.TABLE
+	5
+	6
+	7
+	8
+	9
+	10
+	11
+	12
+	13
+	14
+	15
+	16
+	17
+	18
+	19
+	20
+	21
+	22
+	.ENDT
+
+PT?210::
+T?GL-COLUMN-TABLE::	.TABLE
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	.ENDT
+
+PT?310::	.TABLE
+	4
+	STR?291
+	STR?292
+	STR?293
+	STR?294
+	.ENDT
+
+PT?410::	.TABLE
+	3
+	STR?295
+	STR?296
+	STR?297
+	.ENDT
+
+PT?510::	.TABLE
+	6
+	STR?298
+	STR?299
+	STR?300
+	STR?301
+	STR?302
+	STR?303
+	.ENDT
+
+PT?610::	.TABLE
+	3
+	STR?304
+	STR?305
+	STR?306
+	.ENDT
+
+PT?710::	.TABLE
+	2
+	STR?307
+	STR?308
+	.ENDT
+
+PT?810::	.TABLE
+	4
+	STR?309
+	STR?310
+	STR?311
+	STR?312
+	.ENDT
+
+PT?910::	.TABLE
+	5
+	STR?313
+	STR?314
+	STR?315
+	STR?316
+	STR?317
+	.ENDT
+
+PT?1010::	.TABLE
+	4
+	STR?318
+	STR?319
+	STR?320
+	STR?321
+	.ENDT
+
+PT?1110::	.TABLE
+	4
+	STR?322
+	STR?323
+	STR?324
+	STR?325
+	.ENDT
+
+PT?1210::	.TABLE
+	4
+	STR?326
+	STR?327
+	STR?328
+	STR?329
+	.ENDT
+
+PT?1310::	.TABLE
+	3
+	STR?330
+	STR?331
+	STR?332
+	.ENDT
+
+PT?1410::	.TABLE
+	4
+	STR?333
+	STR?334
+	STR?335
+	STR?336
+	.ENDT
+
+PT?1510::	.TABLE
+	2
+	STR?337
+	STR?338
+	.ENDT
+
+PT?1610::	.TABLE
+	2
+	STR?339
+	STR?340
+	.ENDT
+
+PT?1710::	.TABLE
+	2
+	STR?341
+	STR?342
+	.ENDT
+
+PT?1810::	.TABLE
+	4
+	STR?343
+	STR?344
+	STR?345
+	STR?346
+	.ENDT
+
+PT?1910::	.TABLE
+	3
+	STR?347
+	STR?348
+	STR?349
+	.ENDT
+
+PT?2010::	.TABLE
+	2
+	STR?350
+	STR?351
+	.ENDT
+
+PT?2110::	.TABLE
+	3
+	STR?352
+	STR?353
+	STR?354
+	.ENDT
+
+PT?2210::	.TABLE
+	10
+	STR?355
+	STR?356
+	STR?357
+	STR?358
+	STR?359
+	STR?360
+	STR?361
+	STR?362
+	STR?363
+	STR?364
+	.ENDT
+
+PT?2310::	.TABLE
+	2
+	STR?365
+	STR?366
+	.ENDT
+
+PT?2410::	.TABLE
+	2
+	STR?367
+	STR?368
+	.ENDT
+
+PT?2510::	.TABLE
+	2
+	STR?369
+	STR?370
+	.ENDT
+
+PT?2610::	.TABLE
+	2
+	STR?371
+	STR?372
+	.ENDT
+
+PT?2710::	.TABLE
+	2
+	STR?373
+	STR?374
+	.ENDT
+
+PT?2810::	.TABLE
+	2
+	STR?375
+	STR?376
+	.ENDT
+
+PT?2910::	.TABLE
+	5
+	STR?377
+	STR?378
+	STR?379
+	STR?380
+	STR?381
+	.ENDT
+
+PT?3010::	.TABLE
+	2
+	STR?382
+	STR?383
+	.ENDT
+
+PT?3110::	.TABLE
+	5
+	STR?384
+	STR?385
+	STR?386
+	STR?387
+	STR?388
+	.ENDT
+
+PT?3210::	.TABLE
+	2
+	STR?389
+	STR?390
+	.ENDT
+
+PT?3310::	.TABLE
+	2
+	STR?391
+	STR?392
+	.ENDT
+
+PT?3410::	.TABLE
+	3
+	STR?393
+	STR?394
+	STR?395
+	.ENDT
+
+PT?3510::	.TABLE
+	2
+	STR?396
+	STR?397
+	.ENDT
+
+PT?3610::	.TABLE
+	5
+	STR?398
+	STR?349
+	STR?399
+	STR?400
+	STR?401
+	.ENDT
+
+PT?3710::	.TABLE
+	3
+	STR?402
+	STR?349
+	STR?403
+	.ENDT
+
+PT?3810::	.TABLE
+	2
+	STR?404
+	STR?405
+	.ENDT
+
+PT?3910::	.TABLE
+	7
+	STR?406
+	STR?407
+	STR?408
+	STR?409
+	STR?410
+	STR?411
+	STR?412
+	.ENDT
+
+PT?4010::	.TABLE
+	3
+	STR?413
+	STR?414
+	STR?415
+	.ENDT
+
+PT?4110::	.TABLE
+	4
+	STR?416
+	STR?417
+	STR?418
+	STR?419
+	.ENDT
+
+PT?4210::	.TABLE
+	3
+	STR?420
+	STR?421
+	STR?422
+	.ENDT
+
+PT?4310::	.TABLE
+	5
+	STR?423
+	STR?424
+	STR?425
+	STR?426
+	STR?427
+	.ENDT
+
+PT?4410::	.TABLE
+	2
+	STR?428
+	STR?429
+	.ENDT
+
+PT?4510::	.TABLE
+	3
+	STR?430
+	STR?431
+	STR?432
+	.ENDT
+
+PT?4610::	.TABLE
+	2
+	STR?433
+	STR?434
+	.ENDT
+
+PT?4710::	.TABLE
+	2
+	STR?435
+	STR?436
+	.ENDT
+
+PT?4810::	.TABLE
+	4
+	STR?437
+	STR?438
+	STR?439
+	STR?440
+	.ENDT
+
+PT?4910::	.TABLE
+	10
+	STR?441
+	STR?442
+	STR?443
+	STR?444
+	STR?445
+	STR?446
+	STR?447
+	STR?448
+	STR?449
+	STR?450
+	.ENDT
+
+PT?5010::	.TABLE
+	5
+	STR?451
+	STR?452
+	STR?453
+	STR?454
+	STR?455
+	.ENDT
+
+PT?5110::	.TABLE
+	8
+	STR?456
+	STR?457
+	STR?458
+	STR?459
+	STR?460
+	STR?461
+	STR?462
+	STR?463
+	.ENDT
+
+PT?5210::	.TABLE
+	2
+	STR?464
+	STR?465
+	.ENDT
+
+PT?5310::	.TABLE
+	4
+	STR?466
+	STR?467
+	STR?468
+	STR?469
+	.ENDT
+
+PT?5410::	.TABLE
+	4
+	STR?470
+	STR?471
+	STR?472
+	STR?473
+	.ENDT
+
+PT?5510::	.TABLE
+	5
+	STR?474
+	STR?475
+	STR?476
+	STR?477
+	STR?478
+	.ENDT
+
+PT?5610::	.TABLE
+	8
+	STR?479
+	STR?480
+	STR?481
+	STR?482
+	STR?483
+	STR?484
+	STR?485
+	STR?486
+	.ENDT
+
+PT?5710::	.TABLE
+	3
+	STR?487
+	STR?488
+	STR?489
+	.ENDT
+
+PT?5810::	.TABLE
+	8
+	STR?490
+	STR?491
+	STR?492
+	STR?493
+	STR?494
+	STR?495
+	STR?496
+	STR?497
+	.ENDT
+
+PT?5910::	.TABLE
+	4
+	STR?498
+	STR?499
+	STR?500
+	STR?501
+	.ENDT
+
+PT?6010::	.TABLE
+	4
+	STR?502
+	STR?503
+	STR?504
+	STR?505
+	.ENDT
+
+PT?6110::	.TABLE
+	2
+	STR?506
+	STR?507
+	.ENDT
+
+PT?6210::	.TABLE
+	8
+	STR?508
+	STR?509
+	STR?510
+	STR?511
+	STR?512
+	STR?513
+	STR?514
+	STR?515
+	.ENDT
+
+PT?6310::	.TABLE
+	6
+	STR?516
+	STR?517
+	STR?518
+	STR?519
+	STR?520
+	STR?521
+	.ENDT
+
+PT?6410::	.TABLE
+	2
+	STR?522
+	STR?523
+	.ENDT
+
+PT?6510::	.TABLE
+	2
+	STR?524
+	STR?525
+	.ENDT
+
+PT?6610::	.TABLE
+	3
+	STR?526
+	STR?527
+	STR?528
+	.ENDT
+
+PT?6710::	.TABLE
+	7
+	STR?529
+	STR?530
+	STR?531
+	STR?532
+	STR?533
+	STR?534
+	STR?535
+	.ENDT
+
+PT?6810::	.TABLE
+	6
+	STR?536
+	STR?537
+	STR?538
+	STR?539
+	STR?540
+	STR?541
+	.ENDT
+
+PT?6910::	.TABLE
+	9
+	STR?542
+	STR?543
+	STR?544
+	STR?545
+	STR?546
+	STR?547
+	STR?548
+	STR?549
+	STR?550
+	.ENDT
+
+PT?7010::	.TABLE
+	5
+	STR?551
+	STR?552
+	STR?553
+	STR?554
+	STR?555
+	.ENDT
+
+PT?7110::	.TABLE
+	6
+	STR?556
+	STR?557
+	STR?558
+	STR?559
+	STR?560
+	STR?561
+	.ENDT
+
+PT?7210::	.TABLE
+	4
+	STR?562
+	STR?563
+	STR?564
+	STR?565
+	.ENDT
+
+PT?7310::	.TABLE
+	3
+	STR?566
+	STR?567
+	STR?568
+	.ENDT
+
+PT?7410::	.TABLE
+	3
+	STR?569
+	STR?570
+	STR?571
+	.ENDT
+
+PT?7510::	.TABLE
+	5
+	STR?572
+	STR?573
+	STR?574
+	STR?575
+	STR?576
+	.ENDT
+
+PT?7610::	.TABLE
+	2
+	STR?577
+	STR?578
+	.ENDT
+
+PT?7710::	.TABLE
+	5
+	STR?579
+	STR?580
+	STR?581
+	STR?582
+	STR?583
+	.ENDT
+
+PT?7810::	.TABLE
+	4
+	STR?584
+	STR?585
+	STR?586
+	STR?587
+	.ENDT
+
+PT?7910::	.TABLE
+	2
+	STR?588
+	STR?589
+	.ENDT
+
+PT?8010::	.TABLE
+	3
+	STR?590
+	STR?591
+	STR?592
+	.ENDT
+
+PT?8110::	.TABLE
+	8
+	STR?593
+	STR?594
+	STR?595
+	STR?596
+	STR?597
+	STR?598
+	STR?599
+	STR?600
+	.ENDT
+
+PT?8210::	.TABLE
+	6
+	STR?601
+	STR?602
+	STR?603
+	STR?604
+	STR?605
+	STR?606
+	.ENDT
+
+PT?8310::	.TABLE
+	6
+	STR?607
+	STR?608
+	STR?609
+	STR?610
+	STR?611
+	STR?612
+	.ENDT
+
+PT?8410::	.TABLE
+	4
+	STR?613
+	STR?614
+	STR?615
+	STR?616
+	.ENDT
+
+PT?8510::	.TABLE
+	2
+	STR?617
+	STR?618
+	.ENDT
+
+PT?8610::	.TABLE
+	2
+	STR?619
+	STR?620
+	.ENDT
+
+PT?8710::	.TABLE
+	2
+	STR?621
+	STR?622
+	.ENDT
+
+PT?8810::	.TABLE
+	15
+	STR?623
+	PT?310
+	PT?410
+	PT?510
+	PT?610
+	PT?710
+	PT?810
+	PT?910
+	PT?1010
+	PT?1110
+	PT?1210
+	PT?1310
+	PT?1410
+	PT?1510
+	PT?1610
+	.ENDT
+
+PT?8910::	.TABLE
+	3
+	STR?624
+	PT?1710
+	PT?1810
+	.ENDT
+
+PT?9010::	.TABLE
+	13
+	STR?625
+	PT?1910
+	PT?2010
+	PT?2110
+	PT?2210
+	PT?2310
+	PT?2410
+	PT?2510
+	PT?2610
+	PT?2710
+	PT?2810
+	PT?2910
+	PT?3010
+	.ENDT
+
+PT?9110::	.TABLE
+	2
+	STR?626
+	PT?3110
+	.ENDT
+
+PT?9210::	.TABLE
+	4
+	STR?627
+	PT?3210
+	PT?3310
+	PT?3410
+	.ENDT
+
+PT?9310::	.TABLE
+	5
+	STR?628
+	PT?3510
+	PT?3610
+	PT?3710
+	PT?3810
+	.ENDT
+
+PT?9410::	.TABLE
+	7
+	STR?629
+	PT?3910
+	PT?4010
+	PT?4110
+	PT?4210
+	PT?4310
+	PT?4410
+	.ENDT
+
+PT?9510::	.TABLE
+	4
+	STR?630
+	PT?4510
+	PT?4610
+	PT?4710
+	.ENDT
+
+PT?9610::	.TABLE
+	4
+	STR?631
+	PT?4810
+	PT?4910
+	PT?5010
+	.ENDT
+
+PT?9710::	.TABLE
+	4
+	STR?632
+	PT?5110
+	PT?5210
+	PT?5310
+	.ENDT
+
+PT?9810::	.TABLE
+	2
+	STR?633
+	PT?5410
+	.ENDT
+
+PT?9910::	.TABLE
+	6
+	STR?634
+	PT?5510
+	PT?5610
+	PT?5710
+	PT?5810
+	PT?5910
+	.ENDT
+
+PT?10010::	.TABLE
+	3
+	STR?635
+	PT?6010
+	PT?6110
+	.ENDT
+
+PT?10110::	.TABLE
+	3
+	STR?636
+	PT?6210
+	PT?6310
+	.ENDT
+
+PT?10210::	.TABLE
+	11
+	STR?637
+	PT?6410
+	PT?6510
+	PT?6610
+	PT?6710
+	PT?6810
+	PT?6910
+	PT?7010
+	PT?7110
+	PT?7210
+	PT?7310
+	.ENDT
+
+PT?10310::	.TABLE
+	10
+	STR?638
+	PT?7410
+	PT?7510
+	PT?7610
+	PT?7710
+	PT?7810
+	PT?7910
+	PT?8010
+	PT?8110
+	PT?8210
+	.ENDT
+
+PT?10410::	.TABLE
+	3
+	STR?639
+	PT?8310
+	PT?8410
+	.ENDT
+
+PT?10510::	.TABLE
+	4
+	STR?640
+	PT?8510
+	PT?8610
+	PT?8710
+	.ENDT
+
+PT?10610::
+K-HINT-COUNTS::	.TABLE
+	T?110
+	T?210
+	T?310
+	T?410
+	T?510
+	T?610
+	T?710
+	T?810
+	T?910
+	T?1010
+	T?1110
+	T?1210
+	T?1310
+	T?1410
+	T?1510
+	T?1610
+	T?1710
+	T?1810
+	.ENDT
+
+PT?10710::
+T?K-HINTS::	.TABLE
+	18
+	PT?8810
+	PT?8910
+	PT?9010
+	PT?9110
+	PT?9210
+	PT?9310
+	PT?9410
+	PT?9510
+	PT?9610
+	PT?9710
+	PT?9810
+	PT?9910
+	PT?10010
+	PT?10110
+	PT?10210
+	PT?10310
+	PT?10410
+	PT?10510
+	.ENDT
+
+PT?116::	.TABLE
+	.BYTE 1
+	W?GAS
+	.ENDT
+
+PT?216::	.TABLE
+	.BYTE 2
+	W?LIGHT
+	W?GASLIGHT
+	.ENDT
+
+PT?316::	.TABLE
+	.BYTE 1
+	PT?116
+	PT?216
+	RT-AC-TH-GAS-LIGHT
+	.ENDT
+
+PT?416::	.TABLE
+	.BYTE 3
+	W?FIREPLACE
+	W?FIRE
+	W?FLAME
+	.ENDT
+
+PT?516::	.TABLE
+	.BYTE 1
+	0
+	PT?416
+	RT-AC-TH-FIREPLACE
+	.ENDT
+
+PT?616::	.TABLE
+	.BYTE 4
+	W?PICTURES
+	W?CRIMINAL
+	W?PICTURE
+	W?CRIMINALS
+	.ENDT
+
+PT?716::	.TABLE
+	.BYTE 1
+	0
+	PT?616
+	RT-AC-TH-PICTURES
+	.ENDT
+
+PT?816::
+PT?1016::
+PT?1316::
+PT?1516::	.TABLE
+	.BYTE 1
+	W?WAX
+	.ENDT
+
+PT?916::	.TABLE
+	.BYTE 6
+	W?SAND
+	W?BOWLS
+	W?CLOAK
+	W?MUD
+	W?MEADOW
+	W?WAX
+	.ENDT
+
+PT?1116::
+PT?1616::	.TABLE
+	.BYTE 7
+	W?GROUPINGS
+	W?STATUES
+	W?FIGURES
+	W?SCULPTURES
+	W?STATUE
+	W?SCENES
+	W?WAX
+	.ENDT
+
+PT?1216::	.TABLE
+	.BYTE 2
+	PT?816
+	PT?916
+	RT-AC-TH-WAX-OBJECT-1
+	PT?1016
+	PT?1116
+	RT-DF-LG-WAX-STATUES
+	.ENDT
+
+PT?1416::	.TABLE
+	.BYTE 12
+	W?BARREL
+	W?BARRELS
+	W?BLOCK
+	W?EXECUTIONER
+	W?MUD
+	W?KNIGHTS
+	W?KNIGHT
+	W?SWORD
+	W?SWORDS
+	W?ALTAR
+	W?GUNPOWDER
+	W?WAX
+	.ENDT
+
+PT?1716::	.TABLE
+	.BYTE 2
+	PT?1316
+	PT?1416
+	RT-AC-TH-WAX-OBJECT-1
+	PT?1516
+	PT?1616
+	RT-DF-LG-WAX-STATUES
+	.ENDT
+
+PT?1816::	.TABLE
+	.BYTE 1
+	W?TRIUMPHAL
+	.ENDT
+
+PT?1916::	.TABLE
+	.BYTE 1
+	W?ARCH
+	.ENDT
+
+PT?2016::	.TABLE
+	.BYTE 1
+	W?CHARIOT
+	.ENDT
+
+PT?2116::	.TABLE
+	.BYTE 2
+	PT?1816
+	PT?1916
+	RT-AC-TH-ARCH
+	0
+	PT?2016
+	RT-AC-TH-CHARIOT
+	.ENDT
+
+PT?2216::	.TABLE
+	.BYTE 1
+	W?PEDESTAL
+	.ENDT
+
+PT?2316::	.TABLE
+	.BYTE 1
+	0
+	PT?2216
+	RT-AC-LG-PEDESTAL
+	.ENDT
+
+PT?2416::	.TABLE
+	.BYTE 1
+	W?DUSTY
+	.ENDT
+
+PT?2516::	.TABLE
+	.BYTE 6
+	W?DESK
+	W?BOOKS
+	W?CASES
+	W?CASE
+	W?BOOKSHELVES
+	W?BOOKCASE
+	.ENDT
+
+PT?2616::	.TABLE
+	.BYTE 1
+	PT?2416
+	PT?2516
+	RT-AC-TH-LIBRARY-OBJ
+	.ENDT
+
+PT?2716::	.TABLE
+	.BYTE 1
+	W?GIANT
+	.ENDT
+
+PT?2816::	.TABLE
+	.BYTE 7
+	W?PRODUCE
+	W?APPLES
+	W?ORANGES
+	W?FRUIT
+	W?FRUITS
+	W?VEGETABLES
+	W?PEAS
+	.ENDT
+
+PT?2916::	.TABLE
+	.BYTE 1
+	PT?2716
+	PT?2816
+	RT-AC-TH-PRODUCE
+	.ENDT
+
+PT?3016::	.TABLE
+	.BYTE 6
+	W?MARQUEES
+	W?THEATRES
+	W?THEATRE
+	W?MARQUEE
+	W?THEATER
+	W?THEATERS
+	.ENDT
+
+PT?3116::	.TABLE
+	.BYTE 1
+	0
+	PT?3016
+	RT-AC-TH-MARQUEES
+	.ENDT
+
+PT?3216::	.TABLE
+	.BYTE 3
+	W?SUPPORTS
+	W?CROSSBARS
+	W?STRUTS
+	.ENDT
+
+PT?3316::	.TABLE
+	.BYTE 1
+	0
+	PT?3216
+	RT-AC-TH-SUPPORTS
+	.ENDT
+
+PT?3416::	.TABLE
+	.BYTE 4
+	W?PANELLING
+	W?OAK
+	W?CEDAR
+	W?TAPESTRIES
+	.ENDT
+
+PT?3516::	.TABLE
+	.BYTE 1
+	0
+	PT?3416
+	RT-AC-TH-PANELLING
+	.ENDT
+
+PT?3616::	.TABLE
+	.BYTE 1
+	W?INSTRUMENTS
+	.ENDT
+
+PT?3716::	.TABLE
+	.BYTE 1
+	0
+	PT?3616
+	RT-AC-TH-INSTRUMENTS
+	.ENDT
+
+PT?119::
+T?CAB-ROOM-IDS::	.TABLE
+	.BYTE RM-221B-BAKER-ST
+	.BYTE RM-YORK-PLACE
+	.BYTE RM-MARYLEBONE-RD
+	.BYTE RM-TOTTENHAM-COURT-RD
+	.BYTE RM-ST-GILES-CIRCUS
+	.BYTE RM-OXFORD-ST
+	.BYTE RM-ORCHARD-ST
+	.BYTE RM-AUDLEY-ST
+	.BYTE RM-HYDE-PARK-CORNER
+	.BYTE RM-KENSINGTON-GARDENS
+	.BYTE RM-TRAFALGAR-SQUARE
+	.BYTE RM-GREAT-RUSSELL-ST
+	.BYTE RM-GROSVENOR-PLACE
+	.BYTE RM-VICTORIA-SQUARE
+	.BYTE RM-VICTORIA-STREET
+	.BYTE RM-BROAD-SANCTUARY
+	.BYTE RM-PARLIAMENT-SQUARE
+	.BYTE RM-BUCKINGHAM-PALACE-RD
+	.BYTE RM-QUEENS-GARDENS
+	.BYTE RM-BIRDCAGE-WALK
+	.BYTE RM-THE-MALL
+	.BYTE RM-WHITEHALL
+	.BYTE RM-NEW-OXFORD-ST
+	.BYTE RM-COVENT-GARDEN
+	.BYTE RM-THE-STRAND
+	.BYTE RM-FLEET-STREET
+	.BYTE RM-THE-EMBANKMENT
+	.BYTE RM-UPPER-THAMES-ST
+	.BYTE 0
+	.BYTE RM-PINCHIN-LANE
+	.BYTE RM-CHEAPSIDE
+	.BYTE RM-THREADNEEDLE-ST
+	.BYTE RM-KING-WILLIAM-ST
+	.BYTE RM-MONUMENT
+	.BYTE RM-LOWER-THAMES-ST
+	.BYTE RM-LONDON-BRIDGE
+	.BYTE RM-TOWER-ENTRANCE
+	.ENDT
+
+PURTND::
+	.ENDI
diff --git a/gamesoundstr.zap b/gamesoundstr.zap
new file mode 100644
index 0000000..9572430
--- /dev/null
+++ b/gamesoundstr.zap
@@ -0,0 +1,878 @@
+
+
+; STRINGS ARE DEFINED HERE
+
+STRBEG::
+
+	.GSTR STR?1,"Holmes"
+	.GSTR STR?2,"Your friend"
+	.GSTR STR?3,"The detective"
+	.GSTR STR?4,"Your companion"
+	.GSTR STR?5,"grimly"
+	.GSTR STR?6,"sharply"
+	.GSTR STR?7,"in despair"
+	.GSTR STR?8,"severely"
+	.GSTR STR?9,"for a moment"
+	.GSTR STR?10,"I thought you had more sense than that, Watson"
+	.GSTR STR?11,"That can't be done, Watson"
+	.GSTR STR?12,"That's impossible, Doctor"
+	.GSTR STR?13,"You can't do that, Watson"
+	.GSTR STR?14,"You should know better, Doctor"
+	.GSTR STR?15,"Impossible"
+	.GSTR STR?16,"Don't be ridiculous, Watson"
+	.GSTR STR?17,"Wiggins"
+	.GSTR STR?18,"The boy"
+	.GSTR STR?19,"The urchin"
+	.GSTR STR?20,"Your assistant"
+	.GSTR STR?21,"You must be out of your bleedin' mind"
+	.GSTR STR?22,"That's ruddy impossible"
+	.GSTR STR?23,"Not bloody likely"
+	.GSTR STR?24,"For a toff, you're not too bright"
+	.GSTR STR?25,"Nice try, Guv"
+	.GSTR STR?26,"I thought doctors was smart"
+	.GSTR STR?27,"That's impossible"
+	.GSTR STR?28,"You can't do that"
+	.GSTR STR?29,"That can't be done"
+	.GSTR STR?30,"That won't work"
+	.GSTR STR?31,"You try, but fail"
+	.GSTR STR?32," is not likely"
+	.GSTR STR?33," seems doubtful"
+	.GSTR STR?34," seems unlikely"
+	.GSTR STR?35,"looks"
+	.GSTR STR?36,"appears"
+	.GSTR STR?37,"seem to be"
+	.GSTR STR?38,"puzzled"
+	.GSTR STR?39,"bewildered"
+	.GSTR STR?40,"confused"
+	.GSTR STR?41,"perplexed"
+	.GSTR STR?42,"unusual"
+	.GSTR STR?43,"interesting"
+	.GSTR STR?44,"extraordinary"
+	.GSTR STR?45,"special"
+	.GSTR STR?46," not do anything useful"
+	.GSTR STR?47," accomplish nothing"
+	.GSTR STR?48," have no desirable effect"
+	.GSTR STR?49," not be very productive"
+	.GSTR STR?50," serve no purpose"
+	.GSTR STR?51," be pointless"
+	.GSTR STR?52,"The fog swirls around you"
+	.GSTR STR?53,"You can barely see through the thick fog"
+	.GSTR STR?54,"The fog turns everything into an indistinct blur"
+	.GSTR STR?55,"Wisps of fog creep along the ground"
+	.GSTR STR?56,"The fog clings to everything like a shroud"
+	.GSTR STR?57,"Fog blankets everything around you"
+	.GSTR STR?58,"It is too dark to see."
+	.GSTR STR?59,"[Please try to express that another way.]"
+	.GSTR STR?60,"[You must be more specific.]"
+	.GSTR STR?61,"[Be specific: what do you want to "
+K-BE-SPECIFIC-MSG=STR?61
+	.GSTR STR?62," to complete this story.]"
+K-TO-COMPLETE-MSG=STR?62
+	.GSTR STR?63,"There is a cab here already."
+	.GSTR STR?64,"[To take a cab, get in and tell the cabbie to drive to your destination.]"
+K-TAKE-CAB-MSG=STR?64
+	.GSTR STR?65,"'s brow is furrowed in intense concentration"
+	.GSTR STR?66," is pacing back and forth nervously"
+	.GSTR STR?67,"'s eyes are half-closed, but they miss nothing"
+	.GSTR STR?68," is looking around with interest"
+	.GSTR STR?69," appears lost in deep thought"
+	.GSTR STR?70,"'s lean, severe face gives away none of his thoughts"
+	.GSTR STR?71," is here, awaiting your next move"
+	.GSTR STR?72," trails along after you"
+	.GSTR STR?73," walks into the room alongside you"
+	.GSTR STR?74," enters and begins pacing back and forth nervously"
+	.GSTR STR?75," follows you"
+	.GSTR STR?76," joins you and starts looking around with interest"
+	.GSTR STR?77," drifts in after you, apparently lost in thought"
+	.GSTR STR?78," appears lost in thought"
+	.GSTR STR?79," is staring at the sky, as if he might find a clue there"
+	.GSTR STR?80," is here"
+	.GSTR STR?81," walks alongside you"
+	.GSTR STR?82," follows you and begins pacing back and forth nervously"
+	.GSTR STR?83," drifts along after you, apparently lost in thought"
+	.GSTR STR?84," is shifting his weight from one foot to the other"
+	.GSTR STR?85," appears eager to help"
+	.GSTR STR?86," is standing around, waiting for you to do something"
+	.GSTR STR?87," appears fascinated by everything"
+	.GSTR STR?88," drifts along after you"
+	.GSTR STR?89,"The butler accepts the item and asks you to wait while he takes it to Mr Mycroft Holmes."
+	.GSTR STR?90," must weigh twice what you do. You won't be able to lift him."
+K-MUST-WEIGH-MSG=STR?90
+	.GSTR STR?91,"the box with the key. You rummage around inside for a few moments but discover nothing that would help you, so"
+K-NOTHING-INSIDE-MSG=STR?91
+	.GSTR STR?92," is fidgeting nervously on the seat next to you"
+	.GSTR STR?93,"You must specify a particular "
+	.GSTR STR?94,"""Sorry, mate. I've me own plans, you know."""
+	.GSTR STR?95," looks like he is enjoying the boat ride"
+	.GSTR STR?96,"""Don't worry. I'll hold it for you."""
+	.GSTR STR?97,"It is already closed and locked."
+	.GSTR STR?98,"""If you expect me to let you in there, you'll have to offer me something a lot more valuable than that."""
+K-MORE-VALUABLE-MSG=STR?98
+	.GSTR STR?99,"The bullet ricochets wildly."
+	.GSTR STR?100,"Mmmmmm. Eau de malmsey."
+	.GSTR STR?101,"""After you, guv."""
+	.GSTR STR?102,"Wiggins sidles up next to you and whispers, ""I'd like to, guv. But Mr 'Olmes done give me clear instructions not to leave this spot. Is there anyfing else I can do for you?"""
+	.GSTR STR?103," says with wounded pride, ""Sorry, guv. Me and Mr 'Olmes has a deal. One shilling's me price. Nothing more. Nothing less."""
+K-WOUNDED-PRIDE-MSG=STR?103
+	.GSTR STR?104,"The guard ignores you."
+K-GUARD-IGNORES-MSG=STR?104
+	.GSTR STR?105,"Holmes absentmindedly licks his fingers and then wipes his hands on his smoking jacket. His "
+K-HOLMES-LICKS-MSG=STR?105
+	.GSTR STR?106,"Holmes takes another phial out of his pocket and stares at it in the same way as before."
+	.GSTR STR?107,"Yeeeeeeeeeeeeeeeeeeeouch!!! Hot, hot, hot, hot..."
+K-HOT-MSG=STR?107
+	.GSTR STR?108,"The anchor is already out of the water."
+	.GSTR STR?109,"You would have to be in the boat to "
+	.GSTR STR?110,"You do not see that here."
+K-NOT-SEE-HERE-MSG=STR?110
+	.GSTR STR?111,"This is no time for resting."
+	.GSTR STR?112,"You begin to feel a little dizzy."
+	.GSTR STR?113,"Lestrade arrests you and puts you in handcuffs. You will spend the rest of your life in Dartmoor, trying to understand where you went wrong."
+K-LESTRADE-ARRESTS-MSG=STR?113
+	.GSTR STR?114," ""I don't blame you a bit, Dr Watson. Said ""Elementary"" one too many times did 'e? Many's the time I've wanted to plug him myself. Still, I've got to take you away. Come along now."""
+K-PLUG-HIM-MYSELF-MSG=STR?114
+	.GSTR STR?115,"Who do you think you are, Annie Oakley?"
+	.GSTR STR?116," shatters and disappears."
+	.GSTR STR?117,"""Have you looked in your hat, old fellow? That is where you customarily keep it."""
+	.GSTR STR?118,"""Please keep it, dear fellow. You may need it."""
+K-PLEASE-KEEP-IT-MSG=STR?118
+	.GSTR STR?119," seems to hear you, but he does not respond."
+	.GSTR STR?120,"Don't you think you should drop it first?"
+	.GSTR STR?121," gnaws on your leg briefly in response."
+K-GNAWS-MSG=STR?121
+	.GSTR STR?122,"""I'm afraid you'll have to work that out yourself, old boy."""
+K-WORK-OUT-YOURSELF-MSG=STR?122
+	.GSTR STR?123,"""Never theorize in advance of the facts, Watson."""
+K-NEVER-THEORIZE-MSG=STR?123
+	.GSTR STR?124,"The guard says, ""Sorry, sir. On duty, you know."""
+K-ON-DUTY-MSG=STR?124
+	.GSTR STR?125,"The pigeon looks at you with a confused expression."
+	.GSTR STR?126,"The nannies are too haughty to acknowledge your presence."
+K-TOO-HAUGHTY-MSG=STR?126
+	.GSTR STR?127,"You'd have better success if you launched the boat first."
+	.GSTR STR?128,"[To what are you referring?]"
+K-REFERRING-MSG=STR?128
+	.GSTR STR?129,"You will have to do that yourself."
+	.GSTR STR?130,"That would hardly be an appropriate thing to do."
+	.GSTR STR?131,"How do you intend to do that?"
+	.GSTR STR?132,"There is no place to swim here."
+K-NO-SWIM-MSG=STR?132
+	.GSTR STR?133,"A proper Victorian would never use such a vulgar word."
+K-PROFANITY-MSG=STR?133
+	.GSTR STR?134,"Suicide is frowned upon in medical circles."
+	.GSTR STR?135,"Thievery, outside of established limits, is frowned upon by the medical profession."
+	.GSTR STR?136,"[You must specify a direction.]"
+	.GSTR STR?137," is not likely to help matters."
+K-WONT-HELP-MSG=STR?137
+	.GSTR STR?138,"""Good show!"""
+	.GSTR STR?139,"""Pity."""
+	.GSTR STR?140,"""Be more decisive!"""
+	.GSTR STR?141,"It's a simple tomb, with a brief inscription written on it."
+	.GSTR STR?142,"The ceiling is breathtakingly beautiful."
+	.GSTR STR?143,"Now that you know what to look for, you see a glint coming from Nelson's blind eye."
+K-GLINT-MSG=STR?143
+	.GSTR STR?144," a statue of Nelson on the top and a bronze relief on the pedestal at the bottom."
+K-NELSON-STATUE-MSG=STR?144
+	.GSTR STR?145,"You cannot take another step in that heavy suit of armour."
+	.GSTR STR?146,"The door to the parlour is to the north, and a flight of well-worn stairs leads up to the first floor."
+	.GSTR STR?147,"One of the urchins looks strangely familiar to you."
+K-URCHIN-MSG=STR?147
+	.GSTR STR?148,"The vases of the fourth dynasty of the ancient Sumerians differed significantly from those of the third dynasty. The most pronounced change involved a slight flaring of the handles from one dynasty to the next. Most experts agree that this symbolized a drastic change in the Sumerians' perception of the goddess Ashtoreth. Others however, believe it made the vases easier to carry"
+	.GSTR STR?149,"Monocotyledonous plants produce an embryo with a single cotyledon, which functions primarily to make available the food which is stored in the endosperm, as opposed to the more common dicotyledons, which include most of the woody, deciduous plants of the temperate climates"
+	.GSTR STR?150,"The Beaker People of prehistoric Britain are remembered primarily for the reddish-brown pottery from which they take their name, and for interring their dead in single graves under round barrows. This culture disappeared in the Middle Bronze Age (circa 1800 B.C.) and has been annoying British schoolchildren ever since"
+	.GSTR STR?151,"Perhaps you would be interested in something on the Punic Wars? I believe I have a nineteen-volume history of them here somewhere"
+	.GSTR STR?152,"Stanislaw Leszczynski was crowned king of Poland in 1704, but was deposed only five years later because no one could pronounce his name"
+	.GSTR STR?153,"The yin and yang philosophy of nature was developed around 2800 B.C. by the Chinese emperor Fu Hsi. According to Fu, health and tranquility require a harmonious balance among all the body's elements. This theory has always been ridiculed by the British, whose ancestors at this time were still painting themselves blue and naming their children Og"
+	.GSTR STR?154,"Louis I, son of Charlemagne, ascended France's throne in 814 A.D. He was the first to implement that country's secret policy of naming all their kings Louis in order to confuse enemy agents, historians, and their own peasants."
+	.GSTR STR?155,"The first workers' strike on record took place in Egypt in 1170 B.C., when labourers building a new pyramid in Thebes learned that their payroll had been delayed. They organized a protest, stopped working, and picketed the construction site carrying papyrus signs that read, 'Cash on the line, or you don't get your shrine.' Tradition also has it that the slogan they chanted was 'Stuff the crypt...We've been gypped...Ra Ra Ra.'"
+	.GSTR STR?156,"The confusion between the usage of the present subjunctive and the past subjunctive is easily resolved as long as one remembers that the terms refer not to different times, but to differing sorts of uncertainty. Reference to time itself is only implied by the use of the past perfect subjunctive. While no deaths have as yet resulted from incorrect usage, it would be prudent not to take chances."
+	.GSTR STR?157,"While uncovering one's head is a symbol of respect in many cultures, in others the opposite is true. Some Indian religions, for example, require that a man's head remain covered at all times, giving rise to the use of the turban, or 'imamah.' The tabu against removing one's turban eventually became so strong that thieves who thought nothing of stealing a victim's clothes would nevertheless leave his turban undisturbed."
+	.GSTR STR?158,"Most historians ascribe Catherine de Medicis's poor reputation among the French to her ordering the wholesale massacre of French citizens in 1572. Recent research, however, has revealed that years before, in 1533, she brought into the country such vegetables as broccoli, artichokes, cabbage and haricot beans - and it is now widely accepted that this alone was sufficient to make the French hate her."
+	.GSTR STR?159,"Are you sure I can't get you something on the Punic Wars?"
+	.GSTR STR?160," looks a little green from the motion of the boat"
+K-SEASICK-MSG=STR?160
+	.GSTR STR?161," is sitting quietly on the seat next to you"
+K-SITTING-QUIETLY-MSG=STR?161
+	.GSTR STR?162," is securely bound to a chair with a thick rope"
+K-SECURELY-BOUND-MSG=STR?162
+	.GSTR STR?163,"There is a sign on the wall."
+	.GSTR STR?164,"Yuck! Have you looked at that stuff?"
+K-YUCK-MSG=STR?164
+	.GSTR STR?165,", and it brightens up an otherwise gloomy interior"
+	.GSTR STR?166,"A shaft of sunlight comes through the stained-glass window, lighting up one of the tombs, and relieving the general gloom of the Abbey's dark interior."
+K-SHAFT-OF-LIGHT-MSG=STR?166
+	.GSTR STR?167," apologetically stands in front of the closed door. ""I'm terribly worried about Mr Holmes, Doctor. Won't you please attend to him right away?"""
+K-HUDSON-WORRIED-MSG=STR?167
+	.GSTR STR?168,"         **********"
+	.GSTR STR?169,"Twinkle, twinkle, son of Mars,"
+K-TWINKLE-MSG=STR?169
+	.GSTR STR?170,"Transept of the Abbey, which is dominated by a beautiful rose window set high into the wall."
+K-TRANSEPT-MSG=STR?170
+	.GSTR STR?171,"Your eyes must be hinged a very interesting way if you think you can do that."
+	.GSTR STR?172,"This is a narrow corridor lined with tombs."
+	.GSTR STR?173,"Everyone here has been knocked out by the etherium, although it's hard to tell."
+	.GSTR STR?174,", to which is glued a beautiful, deep-blue sapphire."
+K-SAPPHIRE-MSG=STR?174
+	.GSTR STR?175,"Holmes looks at you approvingly and says, ""Bravo, Watson. Well done, old chap."""
+	.GSTR STR?176," to get a really good look at it."
+	.GSTR STR?177,"""You fought well, Doctor. But you have lost."""
+	.GSTR STR?178,"Sometime later you awaken and stumble back to your feet."
+K-WAKE-UP-MSG=STR?178
+	.GSTR STR?179,"You would have to get out of the boat first."
+	.GSTR STR?180,"It's not your brand, but it's pleasant nonetheless."
+	.GSTR STR?181,"smoulders for a few seconds, then goes out."
+	.GSTR STR?182,"The crowd is outraged that you would try to rob the ailing girl, and they beat you about the head and shoulders with their shopping bags."
+K-OUTRAGED-CROWD-MSG=STR?182
+	.GSTR STR?183," He looks suprised that you didn't try to haggle with him, says, ""Thank you, guv'nor. Enjoy it in good 'ealth,"""
+K-GOOD-HEALTH-MSG=STR?183
+	.GSTR STR?184,"You start to drink the wine and get a little tipsy. But even in your altered state of consciousness you soon realize you'll never be able to drink all of it."
+K-TIPSY-MSG=STR?184
+	.GSTR STR?185,"The bullet knocks out the bung, which"
+	.GSTR STR?186,"can't wait for that."
+	.GSTR STR?187,"There isn't enough room in the cab to do that."
+	.GSTR STR?188,"Holmes ignores the distraction and continues staring at the phial."
+K-HOLMES-DISTRACTION-MSG=STR?188
+	.GSTR STR?189,"After a wild ride through the streets of London, the cab finally careens to a halt and the cabbie says brightly, ""Here we are!"""
+K-WILD-RIDE-MSG=STR?189
+	.GSTR STR?190,"Jubilee"
+	.GSTR STR?191,"Henry IV"
+	.GSTR STR?192,"Duke of Wellington"
+	.GSTR STR?193,"Toby"
+	.GSTR STR?194,"Mycroft Holmes"
+	.GSTR STR?195,"Agra treasure"
+	.GSTR STR?196,"Lestrade"
+	.GSTR STR?197,"Sunday"
+	.GSTR STR?198,"Monday"
+	.GSTR STR?199,"Tuesday"
+	.GSTR STR?200,"Wednesday"
+	.GSTR STR?201,"Thursday"
+	.GSTR STR?202,"Friday"
+	.GSTR STR?203,"Saturday"
+	.GSTR STR?204,"Sun"
+	.GSTR STR?205,"Mon"
+	.GSTR STR?206,"Tue"
+	.GSTR STR?207,"Wed"
+	.GSTR STR?208,"Thu"
+	.GSTR STR?209,"Fri"
+	.GSTR STR?210,"Sat"
+	.GSTR STR?211,"Sunday   "
+	.GSTR STR?212,"Monday   "
+	.GSTR STR?213,"Tuesday  "
+	.GSTR STR?214,"Thursday "
+	.GSTR STR?215,"Friday   "
+	.GSTR STR?216,"Saturday "
+	.GSTR STR?217,"0"
+	.GSTR STR?218," "
+	.GSTR STR?219," AM"
+	.GSTR STR?220," a.m."
+	.GSTR STR?221," PM"
+	.GSTR STR?222," p.m."
+	.GSTR STR?223,"notice"
+	.GSTR STR?224,"notices"
+	.GSTR STR?225,"any verbs"
+	.GSTR STR?226,"enough nouns"
+	.GSTR STR?227,"open"
+	.GSTR STR?228,"are"
+	.GSTR STR?229,"is"
+	.GSTR STR?230,"would respond"
+	.GSTR STR?231,"Chief Superintendent of Scotland Yard"
+	.GSTR STR?232,"Inspector"
+	.GSTR STR?233,"Detective"
+	.GSTR STR?234,"Lieutenant"
+	.GSTR STR?235,"Sergeant"
+	.GSTR STR?236,"Private"
+	.GSTR STR?237,"Patrolman"
+	.GSTR STR?238,"Consulting Detective"
+	.GSTR STR?239,"Visiting Hours: 7:00 a.m - 6:00 p.m."
+	.GSTR STR?240,"""Quiet, please."""
+	.GSTR STR?241,"        CHAMBER OF HORRORS        "
+	.GSTR STR?242,"ABANDON HOPE ALL YE WHO ENTER HERE"
+	.GSTR STR?243,"MUSEUM HOURS:  8 a.m. - 6 p.m."
+	.GSTR STR?244,"""1666"""
+	.GSTR STR?245,"This a replica of the rowboat in    "
+	.GSTR STR?246,"which Captain Bligh was set adrift  "
+	.GSTR STR?247,"after the infamous Mutiny on the    "
+	.GSTR STR?248,"Bounty. Bligh and his men rowed 3600"
+	.GSTR STR?249,"miles in 45 days, and lived to see  "
+	.GSTR STR?250,"the mutineers brought to justice.   "
+	.GSTR STR?251,"For your convenience, the Bank shall"
+	.GSTR STR?252,"be closed for the entire Jubilee    "
+	.GSTR STR?253,"weekend. Thank you for your         "
+	.GSTR STR?254,"patronage.                          "
+	.GSTR STR?255,"        THE TOWER IS CLOSED.        "
+	.GSTR STR?256,"    WE REGRET ANY INCONVENIENCE.    "
+	.GSTR STR?257,"          HAVE A NICE DAY.          "
+	.GSTR STR?258,"During the battle of Copenhagen,    "
+	.GSTR STR?259,"Lord Nelson's commander-in-chief ran"
+	.GSTR STR?260,"the signal to ""discontinue action""  "
+	.GSTR STR?261,"up his mast. Knowing the battle     "
+	.GSTR STR?262,"could yet be won, Nelson clapped his"
+	.GSTR STR?263,"telescope to his blind eye and said,"
+	.GSTR STR?264,"""I do not see the signal."" His      "
+	.GSTR STR?265,"subsequent attack led to victory and"
+	.GSTR STR?266,"a secure place for Nelson in British"
+	.GSTR STR?267,"history.                            "
+	.GSTR STR?268," No Loitering. "
+	.GSTR STR?269,"This means YOU!"
+	.GSTR STR?270,"BAR OF GOLD"
+	.GSTR STR?271,"""Many monarchs are buried in        "
+	.GSTR STR?272,"Westminster. But only one died here."
+	.GSTR STR?273,"It happened on March 20th, 1413, and"
+	.GSTR STR?274,"the event was later made famous in a"
+	.GSTR STR?275,"scene written by Shakespeare:""      "
+	.GSTR STR?276,"""It hath been prophesied to me many "
+	.GSTR STR?277,"   years                            "
+	.GSTR STR?278,"I should not die but in Jerusalem,  "
+	.GSTR STR?279,"Which vainly I supposed the Holy    "
+	.GSTR STR?280,"   Land.                            "
+	.GSTR STR?281,"But bear me to that chamber, there  "
+	.GSTR STR?282,"   I'll lie,                        "
+	.GSTR STR?283,"In that Jerusalem shall Harry die."" "
+	.GSTR STR?284,"""Henry IV, Part II, Act V""          "
+	.GSTR STR?285,"   HELD OVER   "
+	.GSTR STR?286,"SIXTH BIG WEEK!"
+	.GSTR STR?287,"THE MOUSETRAP!!"
+	.GSTR STR?288,"This sign unintentionally left blank."
+	.GSTR STR?289," RETURN = see hint"
+RETURN-SEE-HINT=STR?289
+	.GSTR STR?290,"Q = main menu"
+Q-MAIN-MENU=STR?290
+	.GSTR STR?291,"How do I get into the house?"
+	.GSTR STR?292,"Mrs Hudson is expecting you, so you shouldn't have to do anything too unusual."
+	.GSTR STR?293,"Have you tried kicking down the door?"
+	.GSTR STR?294,"KNOCK ON THE DOOR."
+	.GSTR STR?295,"How do I get into the parlour?"
+	.GSTR STR?296,"Mrs Hudson wants you to attend to something first."
+	.GSTR STR?297,"Get Holmes's mind off the drug."
+	.GSTR STR?298,"How do I get into the kitchen?"
+	.GSTR STR?299,"Don't look at the next clue until you have opened the trap door in the hall."
+	.GSTR STR?300,"You're cheating, aren't you?"
+	.GSTR STR?301,"There is no trap door."
+	.GSTR STR?302,"There is no kitchen."
+	.GSTR STR?303,"Don't let the existence of these questions influence your playing of the game."
+	.GSTR STR?304,"How do I get into the bedroom?"
+	.GSTR STR?305,"Only Holmes can open that door."
+	.GSTR STR?306,"When the visitor leaves, Holmes will open it."
+	.GSTR STR?307,"How do I get onto the roof?"
+	.GSTR STR?308,"The same way you got into the kitchen."
+	.GSTR STR?309,"Will Mrs Hudson do anything for me?"
+	.GSTR STR?310,"Have you tried kissing her?"
+	.GSTR STR?311,"Have you tried bribing her?"
+	.GSTR STR?312,"The sad fact is that she won't do anything for you."
+	.GSTR STR?313,"Can I get Holmes out of his stupor?"
+	.GSTR STR?314,"Holmes is bored with the commonplace events of everyday life."
+	.GSTR STR?315,"He needs some mental excitement."
+	.GSTR STR?316,"Newspapers generally contain interesting items."
+	.GSTR STR?317,"For a doctor, you're not too bright. Read him the newspaper. (Or tell him about the visitor)."
+	.GSTR STR?318,"Why does the clue paper exist?"
+	.GSTR STR?319,"It looks like the thief is challenging Sherlock Holmes to a duel of wits."
+	.GSTR STR?320,"Unlike yourself, Sherlock is not unarmed for such a duel."
+	.GSTR STR?321,"The thief is laying down a trail of clues for Holmes to follow."
+	.GSTR STR?322,"What's the answer to the 1st riddle?"
+	.GSTR STR?323,"The verse refers to a particular place."
+	.GSTR STR?324,"The place is the spot where most English royalty is buried."
+	.GSTR STR?325,"Westminster Abbey."
+	.GSTR STR?326,"What's the answer to the 2nd riddle?"
+	.GSTR STR?327,"The verse refers to the last of the Tudor monarchs."
+	.GSTR STR?328,"She was called the ""Virgin Queen."""
+	.GSTR STR?329,"Elizabeth I."
+	.GSTR STR?330,"What's the answer to the 3rd riddle?"
+	.GSTR STR?331,"The discoverer of the law of gravity."
+	.GSTR STR?332,"Sir Isaac Newton."
+	.GSTR STR?333,"What's the answer to the 4th riddle?"
+	.GSTR STR?334,"Don't read the next clue until you have thoroughly explored Westminster Abbey."
+	.GSTR STR?335,"Have you looked around in the Jerusalem Chamber?"
+	.GSTR STR?336,"The fourth verse refers to Henry V."
+	.GSTR STR?337,"Where is the lamp?"
+	.GSTR STR?338,"It's in Holmes's bedroom."
+	.GSTR STR?339,"Who is the thief?"
+	.GSTR STR?340,"Who do you think?"
+	.GSTR STR?341,"How do I hail a cab?"
+	.GSTR STR?342,"Consult the sample transcript in your game manual."
+	.GSTR STR?343,"Why does the growler cab get lost?"
+	.GSTR STR?344,"The driver is friendly, but stupid."
+	.GSTR STR?345,"The driver is stupid, but friendly."
+	.GSTR STR?346,"Give up. He'll never take you where you want to go."
+	.GSTR STR?347,"Are the tombs important?"
+	.GSTR STR?348,"They are to the people buried in them."
+	.GSTR STR?349,"Yes."
+	.GSTR STR?350,"How do I make a brass rubbing?"
+	.GSTR STR?351,"Take a piece of paper from the pacquet of paper, put it on the tomb of your choice, and then rub it with the crayon."
+	.GSTR STR?352,"What should I make rubbings of?"
+	.GSTR STR?353,"Do not read the next clue until you have solved the verses on the thief's clue paper."
+	.GSTR STR?354,"The tombs of Queen Elizabeth, Sir Isaac Newton and Henry V."
+	.GSTR STR?355,"Why am I making brass rubbings?"
+	.GSTR STR?356,"The thief is trying to send messages to Sherlock."
+	.GSTR STR?357,"He wouldn't want his messages to be visible to everyone, now would he?"
+	.GSTR STR?358,"Have you visited the British Museum yet?"
+	.GSTR STR?359,"The book on the table in the British Museum contains a clue that will help you."
+	.GSTR STR?360,"There is some invisible writing on some of the tombs."
+	.GSTR STR?361,"When you make a rubbing, the invisible ink is transferred onto the back of the paper."
+	.GSTR STR?362,"Invisible ink usually becomes visible when heated."
+	.GSTR STR?363,"Heat the paper over the candles in the Evangelist Chapel."
+	.GSTR STR?364,"Turn the paper over."
+	.GSTR STR?365,"Where is the Stone of Scone?"
+	.GSTR STR?366,"It belongs under the Coronation Chair in Edward the Confessor's Chapel - but we knew it was going to be stolen in 1950 and then returned several months later. We figured that was enough excitement for any one rock, so we left it out of the game, safe from your grubby paws."
+	.GSTR STR?367,"What's the Son of Mars answer?"
+	.GSTR STR?368,"Admiral Lord Nelson."
+	.GSTR STR?369,"What's the Chopper answer?"
+	.GSTR STR?370,"Charles I."
+	.GSTR STR?371,"What's the London Bridge answer?"
+	.GSTR STR?372,"Under London Bridge."
+	.GSTR STR?373,"What's the answer to life's riddle?"
+	.GSTR STR?374,"If we knew that, do you think we'd be sitting around writing games?"
+	.GSTR STR?375,"What's the Pussycat answer?"
+	.GSTR STR?376,"Go to the Tower of London."
+	.GSTR STR?377,"What's the Number answer?"
+	.GSTR STR?378,"Have you looked at the statue of William the Conqueror?"
+	.GSTR STR?379,"Have you read the sign on the Monument?"
+	.GSTR STR?380,"Have you ever read the Charge of the Light Brigade?"
+	.GSTR STR?381,"600."
+	.GSTR STR?382,"How about Hickory Dickory Dock?"
+	.GSTR STR?383,"Big Ben."
+	.GSTR STR?384,"How do I get past the librarian?"
+	.GSTR STR?385,"Think of the room not as a museum, but as a library."
+	.GSTR STR?386,"Have you read the sign on the librarian's desk?"
+	.GSTR STR?387,"Has it occurred to you that he's doing an awful lot of talking?"
+	.GSTR STR?388,"Tell him to be quiet."
+	.GSTR STR?389,"What is a Whispering Gallery?"
+	.GSTR STR?390,"It is a place where you can eavesdrop on other people from far away."
+	.GSTR STR?391,"How do I get up there?"
+	.GSTR STR?392,"Take the stairs up from the clerestory."
+	.GSTR STR?393,"How do I get to the clerestory?"
+	.GSTR STR?394,"You can't. St Paul's isn't even in the game."
+	.GSTR STR?395,"We just like the word clerestory."
+	.GSTR STR?396,"Are the pigeons important?"
+	.GSTR STR?397,"Only to other pigeons."
+	.GSTR STR?398,"Is the statue important?"
+	.GSTR STR?399,"Have you looked at it?"
+	.GSTR STR?400,"Have you looked at it closely?"
+	.GSTR STR?401,"Have you looked at it through a telescope?"
+	.GSTR STR?402,"Is the column important?"
+	.GSTR STR?403,"If it wasn't there, we'd have to come up with some other way of keeping the statue out of your reach."
+	.GSTR STR?404,"Is anything important?"
+	.GSTR STR?405,"Like, wow, man. Heavy question!"
+	.GSTR STR?406,"How do I stop rowing in circles?"
+	.GSTR STR?407,"Has anyone told you you're not playing with a full deck?"
+	.GSTR STR?408,"Has anyone told you you're not rowing with both oars in the water?"
+	.GSTR STR?409,"You need two oars to steer the boat."
+	.GSTR STR?410,"Don't read the next two clues unless you want to know where the other oar is."
+	.GSTR STR?411,"The other oar is in another boat."
+	.GSTR STR?412,"It's in Captain Bligh's boat in the Black Museum."
+	.GSTR STR?413,"How do I stop the boat?"
+	.GSTR STR?414,"Type, 'Whoa, Boat!'"
+	.GSTR STR?415,"Just kidding. Drop the anchor."
+	.GSTR STR?416,"How do I launch the boat?"
+	.GSTR STR?417,"Got any rocket fuel?"
+	.GSTR STR?418,"Type, 'Launch boat.'"
+	.GSTR STR?419,"(Make sure you're in the boat and the anchor's up first.)"
+	.GSTR STR?420,"How do I land the boat?"
+	.GSTR STR?421,"You can only land the boat at the Embankment or outside Traitor's Gate."
+	.GSTR STR?422,"Type: N or LAND BOAT."
+	.GSTR STR?423,"How do I get the paddle?"
+	.GSTR STR?424,"You can't get the paddle when you're outside Traitor's Gate."
+	.GSTR STR?425,"If you don't have the paddle, you need two oars to row back up the river."
+	.GSTR STR?426,"If you're on the river without a paddle or both oars, you're making a big mistake."
+	.GSTR STR?427,"You can only take the paddle after you've entered the Tower."
+	.GSTR STR?428,"Can I stop the man taking the boat?"
+	.GSTR STR?429,"No, you can't. But after all, it's his boat."
+	.GSTR STR?430,"What time does the last train leave?"
+	.GSTR STR?431,"The timetable is posted on the wall."
+	.GSTR STR?432,"9:15 p.m."
+	.GSTR STR?433,"What track does it leave from?"
+	.GSTR STR?434,"Track 29."
+	.GSTR STR?435,"How much is a round-trip ticket?"
+	.GSTR STR?436,"Why are you reading clues about a place that isn't even in the game?"
+	.GSTR STR?437,"What is the matter with the girl?"
+	.GSTR STR?438,"She has a bad heart."
+	.GSTR STR?439,"Perhaps some medicine...."
+	.GSTR STR?440,"Be careful. Drugs are dangerous."
+	.GSTR STR?441,"How do I revive her?"
+	.GSTR STR?442,"Have you made a positive diagnosis?"
+	.GSTR STR?443,"Listen to the girl with your stethoscope."
+	.GSTR STR?444,"If her heart is abnormally fast, give her something to slow it down."
+	.GSTR STR?445,"An unusually fast heartbeat is known as tachycardia."
+	.GSTR STR?446,"If her heart is abnormally slow, give her something to speed it up."
+	.GSTR STR?447,"An unusually slow heartbeat is know as bradycardia."
+	.GSTR STR?448,"Belladonna will speed up a slow heart."
+	.GSTR STR?449,"Digitalis will slow down a fast heart."
+	.GSTR STR?450,"The drugs are in your medicine bag."
+	.GSTR STR?451,"Where is the stethoscope?"
+	.GSTR STR?452,"Where do most doctors carry their stethoscopes?"
+	.GSTR STR?453,"You are not most doctors."
+	.GSTR STR?454,"You have it when you start the game."
+	.GSTR STR?455,"Sorry about this. It turns out that Watson always carries his stethoscope in his hat. Really. (Read ""A Scandal in Bohemia."")"
+	.GSTR STR?456,"How do I get past the guard dog?"
+	.GSTR STR?457,"He won't let you carry any matches inside."
+	.GSTR STR?458,"OK. So you already knew that."
+	.GSTR STR?459,"He won't let you carry in any flames that he can see."
+	.GSTR STR?460,"Alright, so you knew that too. How about flames that he can't see?"
+	.GSTR STR?461,"Something that burns without a flame, for example."
+	.GSTR STR?462,"Like tobacco maybe."
+	.GSTR STR?463,"Light the pipe, drop the match, and go on in."
+	.GSTR STR?464,"What do I do with the axe?"
+	.GSTR STR?465,"The axe doesn't do much except cut down on the number of other things you can carry."
+	.GSTR STR?466,"How can I light the torch?"
+	.GSTR STR?467,"Light it from something that's already burning."
+	.GSTR STR?468,"Light it from a burning piece of paper."
+	.GSTR STR?469,"Light a piece of paper from the pipe, and then use it to light the torch."
+	.GSTR STR?470,"Will Lestrade talk to me in his office?"
+	.GSTR STR?471,"He doesn't like you."
+	.GSTR STR?472,"He really doesn't like you."
+	.GSTR STR?473,"What office?"
+	.GSTR STR?474,"How do I get inside the bank?"
+	.GSTR STR?475,"Despite the guard's assertions to the contrary, he can be bribed."
+	.GSTR STR?476,"Give him something valuable."
+	.GSTR STR?477,"Some gems might do the trick."
+	.GSTR STR?478,"Give him the ruby, the sapphire, the emerald and the opal."
+	.GSTR STR?479,"How do I get inside the vault?"
+	.GSTR STR?480,"The door has a combination lock on it."
+	.GSTR STR?481,"The tumblers turn too quietly for you to hear without amplification."
+	.GSTR STR?482,"Listen to the door with the stethoscope, and then turn the dial left or right."
+	.GSTR STR?483,"A 'clunk' means you're going the wrong way."
+	.GSTR STR?484,"A 'whirr' means you're going the right way."
+	.GSTR STR?485,"A 'click' means you should reverse directions."
+	.GSTR STR?486,"The combination is right twice, left once, right twice."
+	.GSTR STR?487,"Which box should I open?"
+	.GSTR STR?488,"Have you solved the second clue on Sir Isaac Newton's tomb?"
+	.GSTR STR?489,"Open box 600."
+	.GSTR STR?490,"How do I open safety deposit boxes?"
+	.GSTR STR?491,"Do you have any dynamite?"
+	.GSTR STR?492,"Try using a key."
+	.GSTR STR?493,"The bank guard has it."
+	.GSTR STR?494,"It's in his pocket."
+	.GSTR STR?495,"How good a pickpocket are you?"
+	.GSTR STR?496,"How good a pickpocket are the people you know?"
+	.GSTR STR?497,"Ask Wiggins to steal it."
+	.GSTR STR?498,"How can I stop the kidnapping?"
+	.GSTR STR?499,"Hire bodyguards."
+	.GSTR STR?500,"Put Holmes in your medical bag."
+	.GSTR STR?501,"You can't."
+	.GSTR STR?502,"What does Mycroft want from me?"
+	.GSTR STR?503,"Your blood?"
+	.GSTR STR?504,"Your first-born male child?"
+	.GSTR STR?505,"Sherlock's ring."
+	.GSTR STR?506,"How do I get the token?"
+	.GSTR STR?507,"Show any of the gems you have found to Sherlock."
+	.GSTR STR?508,"How do I get into the Tower?"
+	.GSTR STR?509,"Give the password to the beefeater."
+	.GSTR STR?510,"You must get the password from someone who has government connections."
+	.GSTR STR?511,"Mycroft Holmes knows the password."
+	.GSTR STR?512,"Don't continue unless Sherlock Holmes has been kidnapped."
+	.GSTR STR?513,"Go to the Diogenes Club and ask for Mycroft. The butler will ask you for a token. Give him the token. Mycroft will appear and give you the password."
+	.GSTR STR?514,"Return to the Tower and give the guard the password."
+	.GSTR STR?515,"Just type GUARD, [PASSWORD]."
+	.GSTR STR?516,"How do I get out of the Tower?"
+	.GSTR STR?517,"The beefeater won't let you out. You must find another exit."
+	.GSTR STR?518,"The only other way out is through Traitor's Gate."
+	.GSTR STR?519,"The portcullis is operated by the chain above it."
+	.GSTR STR?520,"You do not weigh enough to pull down the chain."
+	.GSTR STR?521,"Put on the suit of armour in the dungeon of the White Tower and then pull on the chain."
+	.GSTR STR?522,"Where is the diamond?"
+	.GSTR STR?523,"What diamond?"
+	.GSTR STR?524,"How do I get the diamond?"
+	.GSTR STR?525,"See previous hint."
+	.GSTR STR?526,"Where is the sapphire?"
+	.GSTR STR?527,"Did you solve the Hickory Dickory Dock riddle?"
+	.GSTR STR?528,"It's stuck to the clapper of Big Ben."
+	.GSTR STR?529,"How do I get the sapphire?"
+	.GSTR STR?530,"Have you tried driving a hook into the ceiling, throwing a rope over the hook, climbing up onto the rail, swinging across the hollow shaft while screaming like Tarzan, and grabbing the sapphire as you swing by?"
+	.GSTR STR?531,"Just asking."
+	.GSTR STR?532,"Wait until the hour strikes. The clapper will swing your way."
+	.GSTR STR?533,"You need to use your hands while the bell is ringing."
+	.GSTR STR?534,"Put the cotton balls in your ears before the bell starts to ring."
+	.GSTR STR?535,"The cotton balls are in the blue pill bottle."
+	.GSTR STR?536,"Where is the ruby?"
+	.GSTR STR?537,"Did you solve the Son of Mars riddle?"
+	.GSTR STR?538,"It's somewhere in Trafalgar Square."
+	.GSTR STR?539,"It's on the statue in Trafalgar Square."
+	.GSTR STR?540,"It's in Nelson's blind eye."
+	.GSTR STR?541,"You can discover it only by looking through the telescope."
+	.GSTR STR?542,"How do I get the ruby?"
+	.GSTR STR?543,"You can't get up there."
+	.GSTR STR?544,"Someone - or something - else will have to get it for you."
+	.GSTR STR?545,"Some kind of trained bird might do it."
+	.GSTR STR?546,"Old Sherman, who lives in Pinchin Lane, trains animals."
+	.GSTR STR?547,"Get the bird from Sherman. Take it to Trafalgar Square. Show the ruby to the pigeon, ask him to get it, and then let him go."
+	.GSTR STR?548,"Do not read the next clue until you have done all of the above."
+	.GSTR STR?549,"Did we mention that it's a homing pigeon?"
+	.GSTR STR?550,"Return to Sherman's shop and ask him about the bird."
+	.GSTR STR?551,"Where is the emerald?"
+	.GSTR STR?552,"Did you solve the Chopper riddle?"
+	.GSTR STR?553,"It's in the Chamber of Horrors."
+	.GSTR STR?554,"It's hidden in one of the statues."
+	.GSTR STR?555,"It's in the wax head of Charles I."
+	.GSTR STR?556,"How do I get the emerald?"
+	.GSTR STR?557,"It's encased in wax. What springs to mind?"
+	.GSTR STR?558,"You need to melt the head."
+	.GSTR STR?559,"You can't melt the head unless you remove it from the statue."
+	.GSTR STR?560,"You need something that puts out enough heat to melt a big gob of wax."
+	.GSTR STR?561,"The torch will melt the wax head."
+	.GSTR STR?562,"Where is the sceptre?"
+	.GSTR STR?563,"In the sceptre tank?"
+	.GSTR STR?564,"Sorry about that."
+	.GSTR STR?565,"There is no sceptre."
+	.GSTR STR?566,"How do I get the sceptre?"
+	.GSTR STR?567,"Dive into the sceptre tank."
+	.GSTR STR?568,"Don't blame us. You're the one who keeps reading these bogus clues."
+	.GSTR STR?569,"Where is the opal?"
+	.GSTR STR?570,"Have you solved the London Bridge riddle?"
+	.GSTR STR?571,"It's in the clump of moss under London Bridge."
+	.GSTR STR?572,"How do I get the opal?"
+	.GSTR STR?573,"Can you lower the bridge?"
+	.GSTR STR?574,"Can you raise the water?"
+	.GSTR STR?575,"Wait for high tide."
+	.GSTR STR?576,"The newspaper that came with your game contains the tide tables for the weekend."
+	.GSTR STR?577,"Where is the zorkmid?"
+	.GSTR STR?578,"It's in the... oops. Sorry. Wrong game."
+	.GSTR STR?579,"How do I get the zorkmid?"
+	.GSTR STR?580,"Buy Zork I."
+	.GSTR STR?581,"Buy Enchanter."
+	.GSTR STR?582,"Buy Sorcerer."
+	.GSTR STR?583,"You get the idea."
+	.GSTR STR?584,"Where is the topaz?"
+	.GSTR STR?585,"In a safety deposit box in the Bank of England."
+	.GSTR STR?586,"Have you solved the number riddle?"
+	.GSTR STR?587,"It's in box 600."
+	.GSTR STR?588,"How do I get the topaz?"
+	.GSTR STR?589,"See the clues for the Bank of England."
+	.GSTR STR?590,"Where is the garnet?"
+	.GSTR STR?591,"Did you solve the Tower of London riddle?"
+	.GSTR STR?592,"It's in the butt of malmsey in the Bowyer Tower."
+	.GSTR STR?593,"How do I get the garnet?"
+	.GSTR STR?594,"Have you tried drinking the wine?"
+	.GSTR STR?595,"Pretty tasty stuff, isn't it?"
+	.GSTR STR?596,"You need to drain the keg somehow."
+	.GSTR STR?597,"You need to remove the bung."
+	.GSTR STR?598,"Knock out the bung with the mace."
+	.GSTR STR?599,"Don't read the next clue until you have done all of the above."
+	.GSTR STR?600,"Ask Wiggins to get the garnet for you."
+	.GSTR STR?601,"Why are the gems important?"
+	.GSTR STR?602,"You don't think the thief has been hiding gems all over London just for the fun of it, do you?"
+	.GSTR STR?603,"Perhaps he is trying to send Sherlock yet another message."
+	.GSTR STR?604,"Have you looked at any of the gems?"
+	.GSTR STR?605,"Have you looked at any of them closely?"
+	.GSTR STR?606,"Look at each of the gems through the magnifying glass."
+	.GSTR STR?607,"Can I stop Akbar's knocking me out?"
+	.GSTR STR?608,"Knock him out first."
+	.GSTR STR?609,"Perhaps you could smuggle something in."
+	.GSTR STR?610,"Have you noticed the henchman's religion?"
+	.GSTR STR?611,"He probably won't disturb your hat."
+	.GSTR STR?612,"Perhaps the etherium ampoule...."
+	.GSTR STR?613,"Can I stop Moriarty when I wake up?"
+	.GSTR STR?614,"If he is free to move around, he will always win."
+	.GSTR STR?615,"Tie him up."
+	.GSTR STR?616,"Don't forget to tie up the henchman, too."
+	.GSTR STR?617,"Why do I finish without 100 points?"
+	.GSTR STR?618,"If you play the game from start to finish and solve all the puzzles, you will end up with 100 points. If, however, you start the game and play through it using information you acquired in a previous session, you may have neglected to perform a few actions for which you received points. This should not be of concern to anyone who is content with failing to discover the highest ranking available to the game player."
+	.GSTR STR?619,"Can I abbreviate ""stethoscope""?"
+	.GSTR STR?620,"Yes. It can be abbreviated to STETH or SS."
+	.GSTR STR?621,"What is the square root of 64?"
+	.GSTR STR?622,"Eight."
+	.GSTR STR?623,"STARTERS"
+	.GSTR STR?624,"CABS"
+	.GSTR STR?625,"WESTMINSTER ABBEY"
+	.GSTR STR?626,"BRITISH MUSEUM"
+	.GSTR STR?627,"ST PAUL'S"
+	.GSTR STR?628,"TRAFALGAR SQUARE"
+	.GSTR STR?629,"ON THE THAMES"
+	.GSTR STR?630,"VICTORIA STATION"
+	.GSTR STR?631,"COVENT GARDEN"
+	.GSTR STR?632,"MADAME TUSSAUD'S"
+	.GSTR STR?633,"SCOTLAND YARD"
+	.GSTR STR?634,"BANK OF ENGLAND"
+	.GSTR STR?635,"DIOGENES CLUB"
+	.GSTR STR?636,"TOWER OF LONDON"
+	.GSTR STR?637,"GEMS"
+	.GSTR STR?638,"MORE GEMS"
+	.GSTR STR?639,"THE LAIR"
+	.GSTR STR?640,"MISCELLANEOUS"
+	.GSTR STR?641,"INVISICLUES (tm)"
+	.GSTR STR?642,"RETURN = see new hint"
+	.GSTR STR?643,"Q = see hint menu"
+	.GSTR STR?644," N = Next"
+	.GSTR STR?645,"P = Previous"
+	.GSTR STR?646," RETURN = See hint"
+	.GSTR STR?647,"Q = Resume story"
+	.GSTR STR?648,"wave"
+	.GSTR STR?649,"waves"
+	.GSTR STR?650,"shout"
+	.GSTR STR?651,"shouts"
+	.GSTR STR?652,"would fit very well"
+	.GSTR STR?653,"do not"
+	.GSTR STR?654,"does not"
+	.GSTR STR?655,"do"
+	.GSTR STR?656,"does"
+	.GSTR STR?657,"Blowing"
+	.GSTR STR?658,"Paying respect to"
+	.GSTR STR?659,"could not"
+	.GSTR STR?660,"cannot"
+	.GSTR STR?661,"is looking for a fight"
+	.GSTR STR?662,"closed"
+	.GSTR STR?663,"become"
+	.GSTR STR?664,"becomes"
+	.GSTR STR?665,"see"
+	.GSTR STR?666,"sees"
+	.GSTR STR?667,"would agree with you"
+	.GSTR STR?668,"inhale first.
+"
+	.GSTR STR?669,"Flipping"
+	.GSTR STR?670,"Folding"
+	.GSTR STR?671,"would accept your offer"
+	.GSTR STR?672,"Heating"
+	.GSTR STR?673,"Kicking"
+	.GSTR STR?674,"close"
+	.GSTR STR?675,"surgeon"
+	.GSTR STR?676,"veterinarian"
+	.GSTR STR?677,"Trying to destroy"
+	.GSTR STR?678,"locksmith"
+	.GSTR STR?679,"Playing with"
+	.GSTR STR?680,"Pointing at"
+	.GSTR STR?681,"Pointing"
+	.GSTR STR?682,"take off"
+	.GSTR STR?683,"Pulling on"
+	.GSTR STR?684,"Pushing around"
+	.GSTR STR?685,"put"
+	.GSTR STR?686,"puts"
+	.GSTR STR?687,"ask about"
+	.GSTR STR?688,"ASK CHARACTER ABOUT"
+	.GSTR STR?689,"Toying in this way with"
+	.GSTR STR?690,"would appreciate your reading"
+	.GSTR STR?691,"wants to play piggyback"
+	.GSTR STR?692,"Rubbing"
+	.GSTR STR?693,"is interested in selling anything"
+	.GSTR STR?694,"would buy anything"
+	.GSTR STR?695,"salesperson"
+	.GSTR STR?696,"Shaking"
+	.GSTR STR?697,"take"
+	.GSTR STR?698,"takes"
+	.GSTR STR?699,"whisper"
+	.GSTR STR?700,"whispers"
+	.GSTR STR?701,"Fiddling with"
+	.GSTR STR?702,"Turning"
+	.GSTR STR?703,"drop"
+	.GSTR STR?704,"drops"
+	.GSTR STR?705,"already have"
+	.GSTR STR?706,"already has"
+	.GSTR STR?707,"opens"
+	.GSTR STR?708,"closes"
+	.GSTR STR?709,"ON"
+	.GSTR STR?710,"OFF"
+	.GSTR STR?711,"give"
+	.GSTR STR?712,"gives"
+	.GSTR STR?713,"shoot"
+	.GSTR STR?714,"shoots"
+	.GSTR STR?715,"take things"
+	.GSTR STR?716,"asking"
+	.GSTR STR?717,"let"
+	.GSTR STR?718,"lets"
+	.GSTR STR?719,"will do you any favours"
+	.GSTR STR?720,"untie"
+	.GSTR STR?721,"unties"
+	.GSTR STR?722,"tie"
+	.GSTR STR?723,"ties"
+	.GSTR STR?724,"The fireplace is in the way."
+	.GSTR STR?725,"You would fly out the bow window."
+	.GSTR STR?726,"You were thinking maybe you had wings?"
+	.GSTR STR?727,"take out"
+	.GSTR STR?728,"feel"
+	.GSTR STR?729,"feels"
+	.GSTR STR?730,"Wiggins's"
+	.GSTR STR?731,"Holmes's"
+	.GSTR STR?732,"Mrs Hudson"
+	.GSTR STR?733,"Mrs Hudson's"
+	.GSTR STR?734,"the girl"
+	.GSTR STR?735,"the girl's"
+	.GSTR STR?736,"yourself"
+	.GSTR STR?737,"your"
+	.GSTR STR?738,"be holding"
+	.GSTR STR?739,"make"
+	.GSTR STR?740,"makes"
+	.GSTR STR?741,"statue of Sir Isaac Newton"
+	.GSTR STR?742,"cherubs"
+	.GSTR STR?743,"diagram"
+	.GSTR STR?744,"Newton's tomb"
+	.GSTR STR?745,"any"
+	.GSTR STR?746,"the"
+	.GSTR STR?747,"some"
+	.GSTR STR?748,"an"
+	.GSTR STR?749,"a"
+	.GSTR STR?750,"knights"
+	.GSTR STR?751,"armour"
+	.GSTR STR?752,"Sir Francis Vere's tomb"
+	.GSTR STR?753,"get"
+	.GSTR STR?754,"gets"
+	.GSTR STR?755,"try"
+	.GSTR STR?756,"tries"
+	.GSTR STR?757,"struggle"
+	.GSTR STR?758,"struggles"
+	.GSTR STR?759,"remove"
+	.GSTR STR?760,"removes"
+	.GSTR STR?761,"tug"
+	.GSTR STR?762,"tugs"
+	.GSTR STR?763,"knock"
+	.GSTR STR?764,"knocks"
+	.GSTR STR?765,"hit"
+	.GSTR STR?766,"hits"
+	.GSTR STR?767,"touch"
+	.GSTR STR?768,"touches"
+	.GSTR STR?769,"reach"
+	.GSTR STR?770,"reaches"
+	.GSTR STR?771,"recall"
+	.GSTR STR?772,"recalls"
+	.GSTR STR?773,"quickly withdraw"
+	.GSTR STR?774,"quickly withdraws"
+	.GSTR STR?775,"release"
+	.GSTR STR?776,"releases"
+	.GSTR STR?777,"cut"
+	.GSTR STR?778,"cuts"
+	.GSTR STR?779,"strutting around"
+	.GSTR STR?780,"pictures"
+	.GSTR STR?781,"open it first."
+	.GSTR STR?782,"triumphal arch"
+	.GSTR STR?783,"fireplace"
+	.GSTR STR?784,"gas light"
+	.GSTR STR?785,"chariot"
+	.GSTR STR?786,"marquees"
+	.GSTR STR?787,"supports"
+	.GSTR STR?788,"lower"
+	.GSTR STR?789,"lowers"
+	.GSTR STR?790,"raise"
+	.GSTR STR?791,"raises"
+	.GSTR STR?792,"that part of the statue"
+	.GSTR STR?793,"things in the library"
+	.GSTR STR?794,"produce"
+	.GSTR STR?795,"walls"
+	.GSTR STR?796,"instruments of torture"
+	.GSTR STR?797,"get out of"
+	.GSTR STR?798,"stick"
+	.GSTR STR?799,"sticks"
+	.GSTR STR?800,"come"
+	.GSTR STR?801,"comes"
+	.GSTR STR?802,"blow"
+	.GSTR STR?803,"blows"
+	.GSTR STR?804,"turn"
+	.GSTR STR?805,"turns"
+	.GSTR STR?806,"them"
+	.GSTR STR?807,"it"
+	.GSTR STR?808,"lock"
+	.GSTR STR?809,"locks"
+	.GSTR STR?810,"close and lock"
+	.GSTR STR?811,"closes and locks"
+	.GSTR STR?812,"accept your offer"
+	.GSTR STR?813,"jump"
+	.GSTR STR?814,"jumps"
+	.GSTR STR?815,"pull"
+	.GSTR STR?816,"pulls"
+	.GSTR STR?817,"row"
+	.GSTR STR?818,"rows"
+	.GSTR STR?819,"paddle"
+	.GSTR STR?820,"paddles"
+	.GSTR STR?821,"unlock"
+	.GSTR STR?822,"unlocks"
+	.GSTR STR?823,"water"
+	.GSTR STR?824,"statues"
+	.GSTR STR?825,"staring at you"
+	.GSTR STR?826,"pedestal"
+
+	.ENDI
diff --git a/generic.zabstr b/generic.zabstr
new file mode 100644
index 0000000..53bd7f4
--- /dev/null
+++ b/generic.zabstr
@@ -0,0 +1,14 @@
+
+<DEFINE-ROUTINE RT-GN-PAPER> 
+<DEFINE-ROUTINE RT-GN-GEM> 
+<DEFINE-ROUTINE RT-GN-PIGEON> 
+<DEFINE-ROUTINE RT-GN-OAR> 
+<DEFINE-ROUTINE RT-GN-BOX> 
+<DEFINE-ROUTINE RT-GN-DOOR> 
+<DEFINE-ROUTINE RT-GN-BOTTLE> 
+<DEFINE-ROUTINE RT-GN-PILL> 
+<DEFINE-ROUTINE RT-GN-TH-CLOTHES> 
+<DEFINE-ROUTINE RT-GN-BODY> 
+<DEFINE-ROUTINE RT-GN-INTNUM> 
+<DEFINE-ROUTINE RT-GN-ETHERIUM> 
+<DEFINE-ROUTINE RT-GN-TOWER> 
\ No newline at end of file
diff --git a/generic.zap b/generic.zap
new file mode 100644
index 0000000..9d68a14
--- /dev/null
+++ b/generic.zap
@@ -0,0 +1,301 @@
+
+
+	.FUNCT	RT-GN-PAPER,TBL,LEN,PTR,OBJ,PAPER,CONT,C-PAPER,HELD,H-PAPER,GND,G-PAPER
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+	INTBL?	GL-P-IT-OBJECT,PTR,LEN \?PRG6
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,GL-P-IT-OBJECT
+	PRINTC	93
+	CRLF	
+	RETURN	GL-P-IT-OBJECT
+?PRG6:	MUL	LEN,2
+	ADD	TBL,STACK
+	GRTR?	PTR,STACK /?REP7
+	GET	PTR,0 >OBJ
+	LOC	OBJ
+	FSET?	STACK,FL-SURFACE /?REP7
+	LOC	OBJ
+	EQUAL?	STACK,CH-PLAYER \?CCL15
+	ZERO?	HELD \?CCL18
+	SET	'HELD,TRUE-VALUE
+	SET	'H-PAPER,OBJ
+	JUMP	?CND11
+?CCL18:	SET	'H-PAPER,FALSE-VALUE
+	JUMP	?CND11
+?CCL15:	LOC	OBJ
+	EQUAL?	STACK,GL-PLACE-CUR \?CCL20
+	ZERO?	GND \?CCL23
+	SET	'GND,TRUE-VALUE
+	SET	'G-PAPER,OBJ
+	JUMP	?CND11
+?CCL23:	SET	'G-PAPER,FALSE-VALUE
+	JUMP	?CND11
+?CCL20:	ZERO?	CONT \?CCL25
+	LOC	OBJ
+	FSET?	STACK,FL-CONTAINER \?CCL25
+	LOC	OBJ >CONT
+	SET	'C-PAPER,OBJ
+	JUMP	?CND11
+?CCL25:	LOC	OBJ
+	FSET?	STACK,FL-CONTAINER \?CND11
+	ZERO?	CONT /?CND11
+	LOC	OBJ
+	EQUAL?	STACK,CONT /?CND11
+	SET	'C-PAPER,FALSE-VALUE
+?CND11:	ADD	PTR,2 >PTR
+	JUMP	?PRG6
+?REP7:	ZERO?	OBJ /?CCL34
+	LOC	OBJ
+	FSET?	STACK,FL-SURFACE \?CCL34
+	SET	'PAPER,OBJ
+	JUMP	?CND32
+?CCL34:	ZERO?	H-PAPER /?CCL38
+	SET	'PAPER,H-PAPER
+	JUMP	?CND32
+?CCL38:	ZERO?	G-PAPER /?CCL40
+	SET	'PAPER,G-PAPER
+	JUMP	?CND32
+?CCL40:	ZERO?	C-PAPER /FALSE
+	SET	'PAPER,C-PAPER
+?CND32:	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,PAPER
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	PAPER
+
+
+	.FUNCT	RT-GN-GEM,TBL,LEN,PTR,OBJ,GEM,CONT,C-GEM,HELD,H-GEM,GND,G-GEM
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+	INTBL?	GL-P-IT-OBJECT,PTR,LEN \?CCL5
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,GL-P-IT-OBJECT
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	GL-P-IT-OBJECT
+?CCL5:	EQUAL?	GL-PLACE-CUR,RM-CLOCK-TOWER \?PRG10
+	IN?	TH-SAPPHIRE,TH-CLAPPER \?PRG10
+	RETURN	TH-SAPPHIRE
+?PRG10:	MUL	LEN,2
+	ADD	TBL,STACK
+	GRTR?	PTR,STACK /?REP11
+	GET	PTR,0 >OBJ
+	LOC	OBJ
+	EQUAL?	STACK,CH-PLAYER \?CCL17
+	ZERO?	HELD \?CCL20
+	SET	'HELD,TRUE-VALUE
+	SET	'H-GEM,OBJ
+	JUMP	?CND15
+?CCL20:	SET	'H-GEM,FALSE-VALUE
+	JUMP	?CND15
+?CCL17:	LOC	OBJ
+	EQUAL?	STACK,GL-PLACE-CUR \?CCL22
+	ZERO?	GND \?CCL25
+	SET	'GND,TRUE-VALUE
+	SET	'G-GEM,OBJ
+	JUMP	?CND15
+?CCL25:	SET	'G-GEM,FALSE-VALUE
+	JUMP	?CND15
+?CCL22:	LOC	OBJ
+	ZERO?	STACK /?CCL27
+	ZERO?	CONT \?CCL27
+	LOC	OBJ
+	FSET?	STACK,FL-CONTAINER \?CCL27
+	LOC	OBJ >CONT
+	SET	'C-GEM,OBJ
+	JUMP	?CND15
+?CCL27:	LOC	OBJ
+	ZERO?	STACK /?CND15
+	LOC	OBJ
+	FSET?	STACK,FL-CONTAINER \?CND15
+	ZERO?	CONT /?CND15
+	LOC	OBJ
+	EQUAL?	STACK,CONT /?CND15
+	SET	'C-GEM,FALSE-VALUE
+?CND15:	ADD	PTR,2 >PTR
+	JUMP	?PRG10
+?REP11:	ZERO?	H-GEM /?CCL38
+	SET	'GEM,H-GEM
+	JUMP	?CND36
+?CCL38:	ZERO?	G-GEM /?CCL40
+	SET	'GEM,G-GEM
+	JUMP	?CND36
+?CCL40:	ZERO?	C-GEM /FALSE
+	SET	'GEM,C-GEM
+?CND36:	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,GEM
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	GEM
+
+
+	.FUNCT	RT-GN-PIGEON,TBL,LEN
+	FSET?	CH-TRAINED-PIGEON,FL-ALIVE /?CCL3
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,TH-DEAD-PIGEON
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	TH-DEAD-PIGEON
+?CCL3:	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	CH-TRAINED-PIGEON
+
+
+	.FUNCT	RT-GN-OAR,TBL,LEN
+	EQUAL?	GL-P-IT-OBJECT,TH-OAR-1,TH-OAR-2 \?CCL3
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,GL-P-IT-OBJECT
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	GL-P-IT-OBJECT
+?CCL3:	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,TH-OAR-2
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	TH-OAR-2
+
+
+	.FUNCT	RT-GN-BOX,TBL,LEN,PTR
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+	INTBL?	GL-P-IT-OBJECT,PTR,LEN \FALSE
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,GL-P-IT-OBJECT
+	PRINTC	93
+	CRLF	
+	CRLF	
+	RETURN	GL-P-IT-OBJECT
+
+
+	.FUNCT	RT-GN-DOOR,TBL,LEN,PTR,OBJ,DOOR
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+?PRG3:	MUL	LEN,2
+	ADD	TBL,STACK
+	GRTR?	PTR,STACK /?REP4
+	GET	PTR,0 >OBJ
+	EQUAL?	GL-PRSA,V?OPEN \?CCL10
+	FSET?	OBJ,FL-OPENED /?CND8
+	ZERO?	DOOR \FALSE
+	SET	'DOOR,OBJ
+	JUMP	?CND8
+?CCL10:	EQUAL?	GL-PRSA,V?CLOSE \?CND8
+	FSET?	OBJ,FL-OPENED \?CND8
+	ZERO?	DOOR \FALSE
+	SET	'DOOR,OBJ
+?CND8:	ADD	PTR,2 >PTR
+	JUMP	?PRG3
+?REP4:	ZERO?	DOOR /?CND22
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,DOOR
+	PRINTC	93
+	CRLF	
+	CRLF	
+?CND22:	RETURN	DOOR
+
+
+	.FUNCT	RT-GN-BOTTLE,TBL,LEN,PTR,OBJ,BOTTLE
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+?PRG3:	MUL	LEN,2
+	ADD	TBL,STACK
+	GRTR?	PTR,STACK /?REP4
+	GET	PTR,0 >OBJ
+	EQUAL?	GL-PRSA,V?OPEN \?PRD11
+	ZERO?	GL-NOW-PRSI? \?PRD11
+	FSET?	OBJ,FL-OPENED \?CCL9
+?PRD11:	EQUAL?	GL-PRSA,V?CLOSE \?PRD15
+	ZERO?	GL-NOW-PRSI? \?PRD15
+	FSET?	OBJ,FL-OPENED /?CCL9
+?PRD15:	EQUAL?	GL-PRSA,V?PUT \?CND8
+	ZERO?	GL-NOW-PRSI? /?CND8
+	FSET?	OBJ,FL-OPENED \?CND8
+?CCL9:	ZERO?	BOTTLE \FALSE
+	SET	'BOTTLE,OBJ
+?CND8:	ADD	PTR,2 >PTR
+	JUMP	?PRG3
+?REP4:	ZERO?	BOTTLE /?CND25
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,BOTTLE
+	PRINTC	93
+	CRLF	
+	CRLF	
+?CND25:	RETURN	BOTTLE
+
+
+	.FUNCT	RT-GN-PILL,TBL,LEN,PTR,OBJ,PILL
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CND3
+?PRG5:	MUL	LEN,2
+	ADD	TBL,STACK
+	GRTR?	PTR,STACK /?CND3
+	GET	PTR,0 >OBJ
+	CALL2	RT-ACCESSIBLE?,OBJ
+	ZERO?	STACK /?CND10
+	ZERO?	PILL \FALSE
+	SET	'PILL,OBJ
+?CND10:	ADD	PTR,2 >PTR
+	JUMP	?PRG5
+?CND3:	ZERO?	PILL /?CND15
+	PRINTC	91
+	ICALL2	RT-CTHEO-PRINT,PILL
+	PRINTC	93
+	CRLF	
+	CRLF	
+?CND15:	RETURN	PILL
+
+
+	.FUNCT	RT-GN-TH-CLOTHES,TBL,LEN
+	RETURN	TH-CLOTHES
+
+
+	.FUNCT	RT-GN-BODY,TBL,LEN,PTR,OBJ
+	ZERO?	LEN \?CND1
+	GET	TBL,0 >LEN
+?CND1:	ADD	TBL,2 >PTR
+	INTBL?	TH-CLOTHES,PTR,LEN \?PRG5
+	RETURN	TH-CLOTHES
+?PRG5:	ZERO?	LEN /FALSE
+	GET	PTR,0 >OBJ
+	FSET?	OBJ,FL-BODYPART \?CND7
+	RETURN	OBJ
+?CND7:	ADD	PTR,2 >PTR
+	DEC	'LEN
+	JUMP	?PRG5
+
+
+	.FUNCT	RT-GN-INTNUM,TBL,LEN
+	EQUAL?	GL-PRSA,V?WAIT,V?WAIT-FOR /?CTR2
+	RETURN	TH-SAFETY-DEPOSIT-BOX
+?CTR2:	RETURN	TH-INTNUM
+
+
+	.FUNCT	RT-GN-ETHERIUM,TBL,LEN
+	EQUAL?	GL-PRSA,V?SMELL,V?INHALE \?CCL3
+	RETURN	TH-ETHERIUM-GAS
+?CCL3:	EQUAL?	GL-PRSA,V?MUNG,V?OPEN,V?LOOK-INSIDE \FALSE
+	RETURN	TH-ETHERIUM-AMPOULE
+
+
+	.FUNCT	RT-GN-TOWER,TBL,LEN
+	RETURN	LG-TOWER
+
+	.ENDI
diff --git a/generic.zil b/generic.zil
new file mode 100644
index 0000000..5471445
--- /dev/null
+++ b/generic.zil
@@ -0,0 +1,253 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : GENERIC.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   28 Oct 1987 15:50:50  $"
+; "rev  : $Revision:   1.25  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<ROUTINE RT-GN-PAPER
+	(TBL "OPTIONAL" (LEN 0) "AUX" PTR OBJ PAPER
+		(CONT <>) (C-PAPER <>)
+		(HELD <>) (H-PAPER <>)
+		(GND <>)  (G-PAPER <>))
+	<COND (<ZERO? .LEN>
+	       <SET LEN <GET .TBL 0>>)>
+	<SET PTR <REST .TBL 2>>
+	<COND (<INTBL? ,GL-P-IT-OBJECT .PTR .LEN>
+	       <TELL "[" CTHE ,GL-P-IT-OBJECT "]" CR ;CR>
+	       <RETURN ,GL-P-IT-OBJECT>)
+	      (T
+	       <REPEAT ()
+		       <COND (<G? .PTR <REST .TBL <* .LEN 2>>>
+			      <RETURN>)
+			     (T
+			      <SET OBJ <GET .PTR 0>>)>
+; "If the paper is on a surface (i.e. tomb), use it."		       
+		       <COND (<MC-IS? <LOC .OBJ> ,FL-SURFACE>
+			      <RETURN>)
+; "Check for single held paper."
+			     (<EQUAL? <LOC .OBJ> ,CH-PLAYER>
+			      <COND (<MC-F? .HELD>
+				     <SET HELD T>
+				     <SET H-PAPER .OBJ>)
+				    (T
+				     <SET H-PAPER <>>)>)
+; "Check for single paper on ground/floor."
+			    (<EQUAL? <LOC .OBJ> ,GL-PLACE-CUR>
+			     <COND (<MC-F? .GND>
+				    <SET GND T>
+				    <SET G-PAPER .OBJ>)
+				   (T
+				    <SET G-PAPER <>>)>)
+; "Find first contained paper."
+			    (<AND <MC-F? .CONT>
+				  <MC-IS? <LOC .OBJ> ,FL-CONTAINER>>
+			     <SET CONT <LOC .OBJ>>
+			     <SET C-PAPER .OBJ>)
+; "Check for paper in a different container."
+			    (<AND <MC-IS? <LOC .OBJ> ,FL-CONTAINER>
+				  <MC-T? .CONT>
+				  <NOT <EQUAL? <LOC .OBJ> .CONT>>>
+			     <SET C-PAPER <>>)>
+		       <SET PTR <REST .PTR 2>>>
+	       <COND (<AND <MC-T? .OBJ>
+			   <MC-IS? <LOC .OBJ> ,FL-SURFACE>>
+		      <SET PAPER .OBJ>)
+		     (<MC-T? .H-PAPER>
+		      <SET PAPER .H-PAPER>)
+		     (<MC-T? .G-PAPER>
+		      <SET PAPER .G-PAPER>)
+		     (<MC-T? .C-PAPER>
+		      <SET PAPER .C-PAPER>)
+		     (T
+		      <RFALSE>)>
+	       <TELL "[" CTHE .PAPER "]" CR CR>
+	       <RETURN .PAPER>)>		
+	<RFALSE>>
+
+<ROUTINE RT-GN-GEM (TBL "OPTIONAL" (LEN 0) "AUX" PTR OBJ GEM (CONT <>)
+		 	(C-GEM <>) (HELD <>) (H-GEM <>)(GND <>) (G-GEM <>))
+	 <COND (<ZERO? .LEN>
+		<SET LEN <GET .TBL 0>>)>
+	 <SET PTR <REST .TBL 2>>
+	 <COND (<INTBL? ,GL-P-IT-OBJECT .PTR .LEN>
+		<TELL "[" CTHE ,GL-P-IT-OBJECT "]" CR CR>
+		<RETURN ,GL-P-IT-OBJECT>)
+	       (<AND <MC-HERE? RM-CLOCK-TOWER>
+		     <IN? ,TH-SAPPHIRE ,TH-CLAPPER>>
+		<RETURN ,TH-SAPPHIRE>)
+	       (T
+		<REPEAT ()
+			<COND (<G? .PTR <REST .TBL <* .LEN 2>>>
+			       <RETURN>)
+			      (T
+			       <SET OBJ <GET .PTR 0>>)>
+; "Check for single held gem."
+                        <COND (<EQUAL? <LOC .OBJ> ,CH-PLAYER>
+			       <COND (<MC-F? .HELD>
+				      <SET HELD T>
+				      <SET H-GEM .OBJ>)
+				     (T
+				      <SET H-GEM <>>)>)
+; "Check for single gem on ground/floor."
+		              (<EQUAL? <LOC .OBJ> ,GL-PLACE-CUR>
+			       <COND (<MC-F? .GND>
+				      <SET GND T>
+				      <SET G-GEM .OBJ>)
+				     (T
+				      <SET G-GEM <>>)>)
+; "Find first contained gem."
+			      (<AND <MC-T? <LOC .OBJ>>
+				    <MC-F? .CONT>
+				    <MC-IS? <LOC .OBJ> ,FL-CONTAINER>>
+			       <SET CONT <LOC .OBJ>>
+			       <SET C-GEM .OBJ>)
+; "Check for gem in a different container."
+		              (<AND <MC-T? <LOC .OBJ>>
+				    <MC-IS? <LOC .OBJ> ,FL-CONTAINER>
+				    <MC-T? .CONT>
+				    <NOT <EQUAL? <LOC .OBJ> .CONT>>>
+			       <SET C-GEM <>>)>
+			<SET PTR <REST .PTR 2>>>
+		<COND (<MC-T? .H-GEM>  ; "Return single held gem."
+		       <SET GEM .H-GEM>)
+		      (<MC-T? .G-GEM>  ; "Return single gem on ground/floor."
+		       <SET GEM .G-GEM>)
+		      (<MC-T? .C-GEM>  ; "Return first gem in container."
+		       <SET GEM .C-GEM>)
+		      (T
+		       <RFALSE>)>
+		<TELL "[" CTHE .GEM "]" CR CR>
+		<RETURN .GEM>)>
+	 <RFALSE>>
+
+<ROUTINE RT-GN-PIGEON (TBL "OPTIONAL" (LEN 0))
+	<COND (<MC-ISNOT? ,CH-TRAINED-PIGEON ,FL-ALIVE>
+	       <TELL "[" CTHE ,TH-DEAD-PIGEON "]" CR CR>
+	       <RETURN ,TH-DEAD-PIGEON>)
+	      (T
+	       <TELL "[" CTHE ,CH-TRAINED-PIGEON "]" CR CR>
+	       <RETURN ,CH-TRAINED-PIGEON>)>>
+
+<ROUTINE RT-GN-OAR (TBL "OPTIONAL" (LEN 0))
+	<COND (<EQUAL? ,GL-P-IT-OBJECT ,TH-OAR-1 ,TH-OAR-2>
+	       <TELL "[" CTHE ,GL-P-IT-OBJECT "]" CR CR>
+	       <RETURN ,GL-P-IT-OBJECT>)
+	      (T
+	       <TELL "[" CTHE ,TH-OAR-2 "]" CR CR>
+	       <RETURN ,TH-OAR-2>)>>
+
+<ROUTINE RT-GN-BOX (TBL "OPTIONAL" (LEN 0) "AUX" PTR)
+	<COND (<ZERO? .LEN>
+	       <SET LEN <GET .TBL 0>>)>
+	<SET PTR <REST .TBL 2>>
+	<COND (<INTBL? ,GL-P-IT-OBJECT .PTR .LEN>
+	       <TELL "[" CTHE ,GL-P-IT-OBJECT "]" CR CR>
+	       <RETURN ,GL-P-IT-OBJECT>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-GN-DOOR (TBL "OPTIONAL" (LEN 0) "AUX" PTR (OBJ <>) (DOOR <>))
+	<COND (<ZERO? .LEN>
+	       <SET LEN <GET .TBL 0>>)>
+	<SET PTR <REST .TBL 2>>
+	<REPEAT ()
+		<COND (<G? .PTR <REST .TBL <* .LEN 2>>>
+		       <RETURN>)
+		      (T
+		       <SET OBJ <GET .PTR 0>>)>
+		<COND (<MC-VERB? OPEN>
+		       <COND (<MC-ISNOT? .OBJ ,FL-OPENED>
+			      <COND (<MC-F? .DOOR>
+				     <SET DOOR .OBJ>)
+				    (T
+				     <RFALSE>)>)>)
+		      (<MC-VERB? CLOSE>
+		       <COND (<MC-IS? .OBJ ,FL-OPENED>
+			      <COND (<MC-F? .DOOR>
+				     <SET DOOR .OBJ>)
+				    (T
+				     <RFALSE>)>)>)>
+		<SET PTR <REST .PTR 2>>>
+	<COND (<MC-T? .DOOR>
+	       <TELL "[" CTHE .DOOR "]" CR CR>)>
+	<RETURN .DOOR>>
+
+<ROUTINE RT-GN-BOTTLE (TBL "OPTIONAL" (LEN 0) "AUX" PTR OBJ (BOTTLE <>))
+	<COND (<ZERO? .LEN>
+	       <SET LEN <GET .TBL 0>>)>
+	<SET PTR <REST .TBL 2>>
+	<REPEAT ()
+		<COND (<G? .PTR <REST .TBL <* .LEN 2>>>
+		       <RETURN>)
+		      (T
+		       <SET OBJ <GET .PTR 0>>)>
+		<COND (<OR <AND <MC-VERB? OPEN>
+				<MC-THIS-PRSO?>
+				<MC-ISNOT? .OBJ ,FL-OPENED>>
+			   <AND <MC-VERB? CLOSE>
+				<MC-THIS-PRSO?>
+				<MC-IS? .OBJ ,FL-OPENED>>
+			   <AND <MC-VERB? PUT>
+				<MC-THIS-PRSI?>
+				<MC-IS? .OBJ ,FL-OPENED>>>
+		       <COND (<MC-F? .BOTTLE>
+			      <SET BOTTLE .OBJ>)
+			     (T
+			      <RFALSE>)>)>
+		<SET PTR <REST .PTR 2>>>
+	<COND (<MC-T? .BOTTLE>
+	       <TELL "[" CTHE .BOTTLE "]" CR CR>)>
+	<RETURN .BOTTLE>>
+
+<ROUTINE RT-GN-PILL (TBL "OPTIONAL" (LEN 0) "AUX" PTR OBJ (PILL <>))
+	<COND (<ZERO? .LEN>
+	       <SET LEN <GET .TBL 0>>)>
+	<SET PTR <REST .TBL 2>>
+	<COND (<RT-TOUCH-VERB?>
+	       <REPEAT ()
+		       <COND (<G? .PTR <REST .TBL <* .LEN 2>>>
+			      <RETURN>)
+			     (T
+			      <SET OBJ <GET .PTR 0>>)>
+		       <COND (<RT-ACCESSIBLE? .OBJ>
+			      <COND (<MC-F? .PILL>
+				     <SET PILL .OBJ>)
+				    (T
+				     <RFALSE>)>)>
+		       <SET PTR <REST .PTR 2>>>)>
+	<COND (<MC-T? .PILL>
+	       <TELL "[" CTHE .PILL "]" CR CR>)>
+	<RETURN .PILL>>
+
+<ROUTINE RT-GN-TH-CLOTHES (TBL "OPTIONAL" (LEN 0))
+  ,TH-CLOTHES>
+
+<ROUTINE RT-GN-BODY (TBL "OPTIONAL" (LEN 0) "AUX" PTR (OBJ <>))
+	<COND (<ZERO? .LEN>
+	       <SET LEN <GET .TBL 0>>)>
+	<SET PTR <REST .TBL 2>>
+	<COND (<INTBL? ,TH-CLOTHES .PTR .LEN>
+	       <RETURN ,TH-CLOTHES>)>
+	<REPEAT ()
+	  <COND (<ZERO? .LEN>
+		 <RETURN <>>)
+		(<MC-IS? <SET OBJ <GET .PTR 0>> ,FL-BODYPART>
+		 <RETURN .OBJ>)>
+	  <SET PTR <REST .PTR 2>>
+	  <DEC LEN>>>
+
+<ROUTINE RT-GN-INTNUM (TBL "OPTIONAL" (LEN 0))
+	<COND (<MC-VERB? WAIT WAIT-FOR>
+	       <RETURN ,TH-INTNUM>)
+	      (T
+	       <RETURN ,TH-SAFETY-DEPOSIT-BOX>)>>
+
+<ROUTINE RT-GN-ETHERIUM (TBL "OPT" (LEN 0))
+  <COND (<MC-VERB? SMELL INHALE> ,TH-ETHERIUM-GAS)
+	(<MC-VERB? MUNG OPEN LOOK-INSIDE> ,TH-ETHERIUM-AMPOULE)>>
+
+<ROUTINE RT-GN-TOWER (TBL "OPTIONAL" (LEN 0))
+	,LG-TOWER>
\ No newline at end of file
diff --git a/growl b/growl
new file mode 100644
index 0000000..7763ff0
Binary files /dev/null and b/growl differ
diff --git a/growl-ss1 b/growl-ss1
new file mode 100644
index 0000000..7e50e1f
Binary files /dev/null and b/growl-ss1 differ
diff --git a/growl.was-mid b/growl.was-mid
new file mode 100644
index 0000000..0045a87
Binary files /dev/null and b/growl.was-mid differ
diff --git a/heart b/heart
new file mode 100644
index 0000000..4315b23
Binary files /dev/null and b/heart differ
diff --git a/heart-ss1 b/heart-ss1
new file mode 100644
index 0000000..caf3815
Binary files /dev/null and b/heart-ss1 differ
diff --git a/heart1.was-mid b/heart1.was-mid
new file mode 100644
index 0000000..779339d
Binary files /dev/null and b/heart1.was-mid differ
diff --git a/heart3.was-mid b/heart3.was-mid
new file mode 100644
index 0000000..cd0af5e
Binary files /dev/null and b/heart3.was-mid differ
diff --git a/hints.zabstr b/hints.zabstr
new file mode 100644
index 0000000..27737e4
--- /dev/null
+++ b/hints.zabstr
@@ -0,0 +1,298 @@
+
+<FILE-FLAGS CLEAN-STACK?> 
+<GLOBAL GL-HINT-WARNING <> %<> WORD> 
+<GLOBAL GL-HINTS-OFF <> %<> WORD> 
+<DEFINE-ROUTINE V-HINTS-NO> 
+<CONSTANT RETURN-SEE-HINT " RETURN = see hint"> 
+<CONSTANT RETURN-SEE-HINT-LEN <LENGTH " RETURN = see hint">> 
+<CONSTANT Q-MAIN-MENU "Q = main menu"> 
+<CONSTANT Q-MAIN-MENU-LEN <LENGTH "Q = main menu">> 
+<GLOBAL GL-LINE-TABLE <PTABLE 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22>
+%<> WORD> 
+<CONSTANT GL-COLUMN-TABLE <PTABLE 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4>> 
+<DEFINE20 CONSTRUCT-HINTS (COUNT-NAME "TUPLE" STUFF "AUX" (SS <>) (HL (T)) (HLL
+.HL) V (CL (T)) (CLL .CL) TCL TCLL) <REPEAT ((CT 0)) <COND (<OR <EMPTY? .STUFF>
+<TYPE? <1 .STUFF> STRING>> <COND (<NOT .SS> <SET SS .STUFF> <SET TCL (T)> <SET
+TCLL .TCL> <SET CT 0>) (T <SET V <SUBSTRUC .SS 0 <- <LENGTH .SS> <LENGTH .STUFF
+>>>> <SET HLL <REST <PUTREST .HLL (<EVAL <FORM PLTABLE !.V>>)>>> <COND (.
+COUNT-NAME <SET CLL <REST <PUTREST .CLL (<EVAL <FORM TABLE (BYTE) !<REST .TCL!>
+>>)>>> <SET TCL (T)> <SET TCLL .TCL> <SET CT 0>)> <SET SS .STUFF>)> <COND (<
+EMPTY? .STUFF> <RETURN>)> <SET STUFF <REST .STUFF>>) (T <COND (.COUNT-NAME <
+COND (<1? <MOD <SET CT <+ .CT 1>> 2>> <SET TCLL <REST <PUTREST .TCLL (0)>>>)>)>
+<SET STUFF <REST .STUFF>>)>> <COND (.COUNT-NAME <EVAL <FORM CONSTANT .
+COUNT-NAME <EVAL <FORM PTABLE !<REST .CL!>>>>>)> <EVAL <FORM PLTABLE !<REST .HL
+!>>>> 
+<CONSTANT K-HINTS <CONSTRUCT-HINTS K-HINT-COUNTS "STARTERS" <PLTABLE
+"How do I get into the house?"
+"Mrs Hudson is expecting you, so you shouldn't have to do
+anything too unusual." "Have you tried kicking down the door?"
+"KNOCK ON THE DOOR."> <PLTABLE "How do I get into the parlour?"
+"Mrs Hudson wants you to attend to something first."
+"Get Holmes's mind off the drug."> <PLTABLE "How do I get into the kitchen?"
+"Don't look at the next clue until you have opened the trap door in the hall."
+"You're cheating, aren't you?" "There is no trap door." "There is no kitchen."
+"Don't let the existence of these questions influence your playing of the game."
+> <PLTABLE "How do I get into the bedroom?" "Only Holmes can open that door."
+"When the visitor leaves, Holmes will open it."> <PLTABLE
+"How do I get onto the roof?" "The same way you got into the kitchen."> <
+PLTABLE "Will Mrs Hudson do anything for me?" "Have you tried kissing her?"
+"Have you tried bribing her?"
+"The sad fact is that she won't do anything for you."> <PLTABLE
+"Can I get Holmes out of his stupor?"
+"Holmes is bored with the commonplace events of everyday life."
+"He needs some mental excitement."
+"Newspapers generally contain interesting items."
+"For a doctor, you're not too bright. Read him the newspaper. (Or tell him about the visitor)."
+> <PLTABLE "Why does the clue paper exist?"
+"It looks like the thief is challenging Sherlock Holmes to a duel of wits."
+"Unlike yourself, Sherlock is not unarmed for such a duel."
+"The thief is laying down a trail of clues for Holmes to follow."> <PLTABLE
+"What's the answer to the 1st riddle?"
+"The verse refers to a particular place."
+"The place is the spot where most English royalty is buried."
+"Westminster Abbey."> <PLTABLE "What's the answer to the 2nd riddle?"
+"The verse refers to the last of the Tudor monarchs."
+"She was called the \"Virgin Queen.\"" "Elizabeth I."> <PLTABLE
+"What's the answer to the 3rd riddle?" "The discoverer of the law of gravity."
+"Sir Isaac Newton."> <PLTABLE "What's the answer to the 4th riddle?"
+"Don't read the next clue until you have thoroughly explored Westminster Abbey."
+"Have you looked around in the Jerusalem Chamber?"
+"The fourth verse refers to Henry V."> <PLTABLE "Where is the lamp?"
+"It's in Holmes's bedroom."> <PLTABLE "Who is the thief?" "Who do you think?">
+"CABS" <PLTABLE "How do I hail a cab?"
+"Consult the sample transcript in your game manual."> <PLTABLE
+"Why does the growler cab get lost?" "The driver is friendly, but stupid."
+"The driver is stupid, but friendly."
+"Give up. He'll never take you where you want to go."> "WESTMINSTER ABBEY" <
+PLTABLE "Are the tombs important?" "They are to the people buried in them."
+"Yes."> <PLTABLE "How do I make a brass rubbing?"
+"Take a piece of paper from the pacquet of paper, put it on the
+tomb of your choice, and then rub it with the crayon."> <PLTABLE
+"What should I make rubbings of?"
+"Do not read the next clue until you have solved the verses on
+the thief's clue paper."
+"The tombs of Queen Elizabeth, Sir Isaac Newton and Henry V."> <PLTABLE
+"Why am I making brass rubbings?"
+"The thief is trying to send messages to Sherlock."
+"He wouldn't want his messages to be visible to everyone, now would he?"
+"Have you visited the British Museum yet?"
+"The book on the table in the British Museum contains a clue
+that will help you." "There is some invisible writing on some of the tombs."
+"When you make a rubbing, the invisible ink is transferred
+onto the back of the paper."
+"Invisible ink usually becomes visible when heated."
+"Heat the paper over the candles in the Evangelist Chapel."
+"Turn the paper over."> <PLTABLE "Where is the Stone of Scone?"
+"It belongs under the Coronation Chair in Edward the Confessor's
+Chapel - but we knew it was going to be stolen in 1950 and then returned
+several months later.  We figured that was enough excitement for any one rock,
+so we left it out of the game, safe from your grubby paws."> <PLTABLE
+"What's the Son of Mars answer?" "Admiral Lord Nelson."> <PLTABLE
+"What's the Chopper answer?" "Charles I."> <PLTABLE
+"What's the London Bridge answer?" "Under London Bridge."> <PLTABLE
+"What's the answer to life's riddle?"
+"If we knew that, do you think we'd be sitting around writing games?"> <PLTABLE
+"What's the Pussycat answer?" "Go to the Tower of London."> <PLTABLE
+"What's the Number answer?"
+"Have you looked at the statue of William the Conqueror?"
+"Have you read the sign on the Monument?"
+"Have you ever read the Charge of the Light Brigade?" "600."> <PLTABLE
+"How about Hickory Dickory Dock?" "Big Ben."> "BRITISH MUSEUM" <PLTABLE
+"How do I get past the librarian?"
+"Think of the room not as a museum, but as a library."
+"Have you read the sign on the librarian's desk?"
+"Has it occurred to you that he's doing an awful lot of talking?"
+"Tell him to be quiet."> "ST PAUL'S" <PLTABLE "What is a Whispering Gallery?"
+"It is a place where you can eavesdrop on other people from
+far away."> <PLTABLE "How do I get up there?"
+"Take the stairs up from the clerestory."> <PLTABLE
+"How do I get to the clerestory?"
+"You can't. St Paul's isn't even in the game."
+"We just like the word clerestory."> "TRAFALGAR SQUARE" <PLTABLE
+"Are the pigeons important?" "Only to other pigeons."> <PLTABLE
+"Is the statue important?" "Yes." "Have you looked at it?"
+"Have you looked at it closely?" "Have you looked at it through a telescope?">
+<PLTABLE "Is the column important?" "Yes."
+"If it wasn't there, we'd have to come up with some other way
+of keeping the statue out of your reach."> <PLTABLE "Is anything important?"
+"Like, wow, man.  Heavy question!"> "ON THE THAMES" <PLTABLE
+"How do I stop rowing in circles?"
+"Has anyone told you you're not playing with a full deck?"
+"Has anyone told you you're not rowing with both oars in the water?"
+"You need two oars to steer the boat."
+"Don't read the next two clues unless you want to know where the other oar is."
+"The other oar is in another boat."
+"It's in Captain Bligh's boat in the Black Museum."> <PLTABLE
+"How do I stop the boat?" "Type, 'Whoa, Boat!'"
+"Just kidding. Drop the anchor."> <PLTABLE "How do I launch the boat?"
+"Got any rocket fuel?" "Type, 'Launch boat.'"
+"(Make sure you're in the boat and the anchor's up first.)"> <PLTABLE
+"How do I land the boat?"
+"You can only land the boat at the Embankment or outside Traitor's Gate."
+"Type: N or LAND BOAT."> <PLTABLE "How do I get the paddle?"
+"You can't get the paddle when you're outside Traitor's Gate."
+"If you don't have the paddle, you need two oars to row back up the river."
+"If you're on the river without a paddle or both oars, you're making a big mistake."
+"You can only take the paddle after you've entered the Tower."> <PLTABLE
+"Can I stop the man taking the boat?"
+"No, you can't. But after all, it's his boat."> "VICTORIA STATION" <PLTABLE
+"What time does the last train leave?" "The timetable is posted on the wall."
+"9:15 p.m."> <PLTABLE "What track does it leave from?" "Track 29."> <PLTABLE
+"How much is a round-trip ticket?"
+"Why are you reading clues about a place that isn't even in the game?">
+"COVENT GARDEN" <PLTABLE "What is the matter with the girl?"
+"She has a bad heart." "Perhaps some medicine...."
+"Be careful. Drugs are dangerous."> <PLTABLE "How do I revive her?"
+"Have you made a positive diagnosis?"
+"Listen to the girl with your stethoscope."
+"If her heart is abnormally fast, give her something to slow it down."
+"An unusually fast heartbeat is known as tachycardia."
+"If her heart is abnormally slow, give her something to speed it up."
+"An unusually slow heartbeat is know as bradycardia."
+"Belladonna will speed up a slow heart."
+"Digitalis will slow down a fast heart." "The drugs are in your medicine bag.">
+<PLTABLE "Where is the stethoscope?"
+"Where do most doctors carry their stethoscopes?" "You are not most doctors."
+"You have it when you start the game."
+"Sorry about this. It turns out that Watson always carries his
+stethoscope in his hat. Really. (Read \"A Scandal in Bohemia.\")">
+"MADAME TUSSAUD'S" <PLTABLE "How do I get past the guard dog?"
+"He won't let you carry any matches inside." "OK. So you already knew that."
+"He won't let you carry in any flames that he can see."
+"Alright, so you knew that too.  How about flames that he can't see?"
+"Something that burns without a flame, for example." "Like tobacco maybe."
+"Light the pipe, drop the match, and go on in."> <PLTABLE
+"What do I do with the axe?"
+"The axe doesn't do much except cut down on the number of other things you can carry."
+> <PLTABLE "How can I light the torch?"
+"Light it from something that's already burning."
+"Light it from a burning piece of paper."
+"Light a piece of paper from the pipe, and then use it to light the torch.">
+"SCOTLAND YARD" <PLTABLE "Will Lestrade talk to me in his office?"
+"He doesn't like you." "He really doesn't like you." "What office?">
+"BANK OF ENGLAND" <PLTABLE "How do I get inside the bank?"
+"Despite the guard's assertions to the contrary, he can be bribed."
+"Give him something valuable." "Some gems might do the trick."
+"Give him the ruby, the sapphire, the emerald and the opal."> <PLTABLE
+"How do I get inside the vault?" "The door has a combination lock on it."
+"The tumblers turn too quietly for you to hear without amplification."
+"Listen to the door with the stethoscope, and then turn the dial left or right."
+"A 'clunk' means you're going the wrong way."
+"A 'whirr' means you're going the right way."
+"A 'click' means you should reverse directions."
+"The combination is right twice, left once, right twice."> <PLTABLE
+"Which box should I open?"
+"Have you solved the second clue on Sir Isaac Newton's tomb?" "Open box 600.">
+<PLTABLE "How do I open safety deposit boxes?" "Do you have any dynamite?"
+"Try using a key." "The bank guard has it." "It's in his pocket."
+"How good a pickpocket are you?"
+"How good a pickpocket are the people you know?" "Ask Wiggins to steal it."> <
+PLTABLE "How can I stop the kidnapping?" "Hire bodyguards."
+"Put Holmes in your medical bag." "You can't."> "DIOGENES CLUB" <PLTABLE
+"What does Mycroft want from me?" "Your blood?" "Your first-born male child?"
+"Sherlock's ring."> <PLTABLE "How do I get the token?"
+"Show any of the gems you have found to Sherlock."> "TOWER OF LONDON" <PLTABLE
+"How do I get into the Tower?" "Give the password to the beefeater."
+"You must get the password from someone who has government connections."
+"Mycroft Holmes knows the password."
+"Don't continue unless Sherlock Holmes has been kidnapped."
+"Go to the Diogenes Club and ask for Mycroft. The butler will
+ask you for a token. Give him the token. Mycroft will appear and give
+you the password." "Return to the Tower and give the guard the password."
+"Just type GUARD, [PASSWORD]."> <PLTABLE "How do I get out of the Tower?"
+"The beefeater won't let you out. You must find another exit."
+"The only other way out is through Traitor's Gate."
+"The portcullis is operated by the chain above it."
+"You do not weigh enough to pull down the chain."
+"Put on the suit of armour in the dungeon of the White Tower and then pull on the chain."
+> "GEMS" <PLTABLE "Where is the diamond?" "What diamond?"> <PLTABLE
+"How do I get the diamond?" "See previous hint."> <PLTABLE
+"Where is the sapphire?" "Did you solve the Hickory Dickory Dock riddle?"
+"It's stuck to the clapper of Big Ben."> <PLTABLE "How do I get the sapphire?"
+"Have you tried driving a hook into the ceiling, throwing a rope
+over the hook, climbing up onto the rail, swinging across the hollow shaft
+while screaming like Tarzan, and grabbing the sapphire as you swing by?"
+"Just asking." "Wait until the hour strikes. The clapper will swing your way."
+"You need to use your hands while the bell is ringing."
+"Put the cotton balls in your ears before the bell starts to ring."
+"The cotton balls are in the blue pill bottle."> <PLTABLE "Where is the ruby?"
+"Did you solve the Son of Mars riddle?" "It's somewhere in Trafalgar Square."
+"It's on the statue in Trafalgar Square." "It's in Nelson's blind eye."
+"You can discover it only by looking through the telescope."> <PLTABLE
+"How do I get the ruby?" "You can't get up there."
+"Someone - or something - else will have to get it for you."
+"Some kind of trained bird might do it."
+"Old Sherman, who lives in Pinchin Lane, trains animals."
+"Get the bird from Sherman. Take it to Trafalgar Square. Show
+the ruby to the pigeon, ask him to get it, and then let him go."
+"Do not read the next clue until you have done all of the above."
+"Did we mention that it's a homing pigeon?"
+"Return to Sherman's shop and ask him about the bird."> <PLTABLE
+"Where is the emerald?" "Did you solve the Chopper riddle?"
+"It's in the Chamber of Horrors." "It's hidden in one of the statues."
+"It's in the wax head of Charles I."> <PLTABLE "How do I get the emerald?"
+"It's encased in wax. What springs to mind?" "You need to melt the head."
+"You can't melt the head unless you remove it from the statue."
+"You need something that puts out enough heat to melt a big gob of wax."
+"The torch will melt the wax head."> <PLTABLE "Where is the sceptre?"
+"In the sceptre tank?" "Sorry about that." "There is no sceptre."> <PLTABLE
+"How do I get the sceptre?" "Dive into the sceptre tank."
+"Don't blame us. You're the one who keeps reading these bogus clues.">
+"MORE GEMS" <PLTABLE "Where is the opal?"
+"Have you solved the London Bridge riddle?"
+"It's in the clump of moss under London Bridge."> <PLTABLE
+"How do I get the opal?" "Can you lower the bridge?" "Can you raise the water?"
+"Wait for high tide."
+"The newspaper that came with your game contains the tide tables for the weekend."
+> <PLTABLE "Where is the zorkmid?" "It's in the... oops.  Sorry.  Wrong game.">
+<PLTABLE "How do I get the zorkmid?" "Buy Zork I." "Buy Enchanter."
+"Buy Sorcerer." "You get the idea."> <PLTABLE "Where is the topaz?"
+"In a safety deposit box in the Bank of England."
+"Have you solved the number riddle?" "It's in box 600."> <PLTABLE
+"How do I get the topaz?" "See the clues for the Bank of England."> <PLTABLE
+"Where is the garnet?" "Did you solve the Tower of London riddle?"
+"It's in the butt of malmsey in the Bowyer Tower."> <PLTABLE
+"How do I get the garnet?" "Have you tried drinking the wine?"
+"Pretty tasty stuff, isn't it?" "You need to drain the keg somehow."
+"You need to remove the bung." "Knock out the bung with the mace."
+"Don't read the next clue until you have done all of the above."
+"Ask Wiggins to get the garnet for you."> <PLTABLE
+"Why are the gems important?"
+"You don't think the thief has been hiding gems all over London just for the fun of it, do you?"
+"Perhaps he is trying to send Sherlock yet another message."
+"Have you looked at any of the gems?" "Have you looked at any of them closely?"
+"Look at each of the gems through the magnifying glass."> "THE LAIR" <PLTABLE
+"Can I stop Akbar's knocking me out?" "Knock him out first."
+"Perhaps you could smuggle something in."
+"Have you noticed the henchman's religion?"
+"He probably won't disturb your hat." "Perhaps the etherium ampoule...."> <
+PLTABLE "Can I stop Moriarty when I wake up?"
+"If he is free to move around, he will always win." "Tie him up."
+"Don't forget to tie up the henchman, too."> "MISCELLANEOUS" <PLTABLE
+"Why do I finish without 100 points?"
+"If you play the game from start to finish and solve all
+the puzzles, you will end up with 100 points. If, however, you start the
+game and play through it using information you acquired in a previous
+session, you may have neglected to perform a few actions for which you
+received points. This should not be of concern to anyone who is content
+with failing to discover the highest ranking available to the game player."> <
+PLTABLE "Can I abbreviate \"stethoscope\"?"
+"Yes. It can be abbreviated to STETH or SS."> <PLTABLE
+"What is the square root of 64?" "Eight.">>> 
+<GLOBAL GL-CUR-POS 0 %<> WORD> 
+<GLOBAL GL-QUEST-NUM 1 %<> WORD> 
+<GLOBAL GL-CHAPT-NUM 1 %<> WORD> 
+<CONSTANT GL-DIROUT-TBL <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>> 
+<DEFINE-ROUTINE V-HINT> 
+<DEFINE-ROUTINE RT-PICK-QUESTION> 
+<DEFINE-ROUTINE RT-ERASE-CURSOR> 
+<DEFINE-ROUTINE RT-NEW-CURSOR> 
+<DEFINE-ROUTINE RT-INVERSE-LINE> 
+<DEFINE-ROUTINE RT-DISPLAY-HINT> 
+<DEFINE-ROUTINE RT-PUT-UP-QUESTIONS> 
+<DEFINE-ROUTINE RT-PUT-UP-CHAPTERS> 
+<DEFINE-ROUTINE RT-INIT-HINT-SCREEN> 
+<DEFINE-ROUTINE RT-CENTER-LINE> 
+<DEFINE-ROUTINE RT-LEFT-LINE> 
+<DEFINE-ROUTINE RT-RIGHT-LINE> 
\ No newline at end of file
diff --git a/hints.zap b/hints.zap
new file mode 100644
index 0000000..e41bc39
--- /dev/null
+++ b/hints.zap
@@ -0,0 +1,368 @@
+
+
+	.FUNCT	V-HINTS-NO
+	EQUAL?	GL-PRSO,ROOMS /?CCL3
+	PRINT	K-DONT-UNDERSTAND-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	SET	'GL-HINTS-OFF,TRUE-VALUE
+	PRINTI	"[Hints have been disallowed for this session.]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-HINT,CHR,MAXC,C,Q,WHO
+?FCN:	ZERO?	GL-HINTS-OFF /?CCL3
+	ICALL	RT-PERFORM,V?HINTS-NO,ROOMS
+	RETURN	2
+?CCL3:	ZERO?	GL-HINT-WARNING \?CCL5
+	SET	'GL-HINT-WARNING,TRUE-VALUE
+	PRINTI	"[Warning: It is recognized that the temptation for help may at times be so exceedingly strong that you might fetch hints prematurely. Therefore, you may at any time during the story type HINTS OFF, and this will disallow the seeking out of help for the present session of the story. If you still want a hint now, indicate HINT.]"
+	CRLF	
+	RETURN	2
+?CCL5:	ZERO?	WHO \?CND1
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES,CH-WIGGINS \?CND1
+	EQUAL?	WHO,CH-HOLMES \?CCL11
+	PRINTI	"Holmes looks at you impatiently and sighs, ""Very well, Watson. If you must."""
+	JUMP	?CND9
+?CCL11:	PRINTI	"Wiggins looks up at you with relief and says, ""Good idea, guv. We'll never work this out on our own."""
+?CND9:	CRLF	
+	CRLF	
+	PRINTI	"[Press any key to continue.]"
+	CRLF	
+	INPUT	1
+?CND1:	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ICALL1	KILL-SOUNDS
+	SET	'MAXC,18
+	ICALL1	RT-INIT-HINT-SCREEN
+	CURSET	5,1
+	ICALL1	RT-PUT-UP-CHAPTERS
+	SUB	GL-CHAPT-NUM,1 >GL-CUR-POS
+	ICALL1	RT-NEW-CURSOR
+?PRG12:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL16
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP13
+?CCL16:	EQUAL?	CHR,78,110 \?CCL18
+	ICALL1	RT-ERASE-CURSOR
+	EQUAL?	GL-CHAPT-NUM,MAXC \?CCL21
+	SET	'GL-CUR-POS,0
+	SET	'GL-CHAPT-NUM,1
+	SET	'GL-QUEST-NUM,1
+	JUMP	?CND19
+?CCL21:	INC	'GL-CUR-POS
+	INC	'GL-CHAPT-NUM
+	SET	'GL-QUEST-NUM,1
+?CND19:	ICALL1	RT-NEW-CURSOR
+	JUMP	?PRG12
+?CCL18:	EQUAL?	CHR,80,112 \?CCL23
+	ICALL1	RT-ERASE-CURSOR
+	EQUAL?	GL-CHAPT-NUM,1 \?CCL26
+	SET	'GL-CHAPT-NUM,MAXC
+	SUB	MAXC,1 >GL-CUR-POS
+	JUMP	?CND24
+?CCL26:	DEC	'GL-CUR-POS
+	DEC	'GL-CHAPT-NUM
+?CND24:	SET	'GL-QUEST-NUM,1
+	ICALL1	RT-NEW-CURSOR
+	JUMP	?PRG12
+?CCL23:	EQUAL?	CHR,13,10 \?PRG12
+	ICALL1	RT-PICK-QUESTION
+?REP13:	ZERO?	Q /?FCN
+	CLEAR	-1
+	ICALL1	V-REFRESH
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL32
+	CRLF	
+	PRINTI	"Holmes barely glances at you and snaps, ""At last. Now may we proceed?"""
+	CRLF	
+	JUMP	?CND30
+?CCL32:	EQUAL?	WHO,CH-WIGGINS \?CCL34
+	CRLF	
+	PRINTI	"Wiggins tugs your sleeve and asks hopefully, ""Learn anything?"""
+	CRLF	
+	JUMP	?CND30
+?CCL34:	CRLF	
+	PRINTI	"Back to the story..."
+	CRLF	
+?CND30:	ZERO?	SOUND-ON? \?CCL36
+	RETURN	2
+?CCL36:	ICALL1	CHECK-LOOPING
+	RETURN	2
+
+
+	.FUNCT	RT-PICK-QUESTION,CHR,MAXQ,Q
+?FCN:	ICALL2	RT-INIT-HINT-SCREEN,FALSE-VALUE
+	ICALL	RT-LEFT-LINE,3,RETURN-SEE-HINT,RETURN-SEE-HINT-LEN
+	ICALL	RT-RIGHT-LINE,3,Q-MAIN-MENU,Q-MAIN-MENU-LEN
+	GET	K-HINTS,GL-CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MAXQ
+	CURSET	5,1
+	ICALL1	RT-PUT-UP-QUESTIONS
+	SUB	GL-QUEST-NUM,1 >GL-CUR-POS
+	ICALL1	RT-NEW-CURSOR
+?PRG1:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL5
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP2
+?CCL5:	EQUAL?	CHR,78,110 \?CCL7
+	ICALL1	RT-ERASE-CURSOR
+	EQUAL?	GL-QUEST-NUM,MAXQ \?CCL10
+	SET	'GL-CUR-POS,0
+	SET	'GL-QUEST-NUM,1
+	JUMP	?CND8
+?CCL10:	INC	'GL-CUR-POS
+	INC	'GL-QUEST-NUM
+?CND8:	ICALL1	RT-NEW-CURSOR
+	JUMP	?PRG1
+?CCL7:	EQUAL?	CHR,80,112 \?CCL12
+	ICALL1	RT-ERASE-CURSOR
+	EQUAL?	GL-QUEST-NUM,1 \?CCL15
+	SET	'GL-QUEST-NUM,MAXQ
+	SUB	MAXQ,1 >GL-CUR-POS
+	JUMP	?CND13
+?CCL15:	DEC	'GL-CUR-POS
+	DEC	'GL-QUEST-NUM
+?CND13:	ICALL1	RT-NEW-CURSOR
+	JUMP	?PRG1
+?CCL12:	EQUAL?	CHR,13,10 \?PRG1
+	ICALL1	RT-DISPLAY-HINT
+?REP2:	ZERO?	Q /?FCN
+	RFALSE	
+
+
+	.FUNCT	RT-ERASE-CURSOR,?TMP1
+	GET	GL-LINE-TABLE,GL-CUR-POS >?TMP1
+	GET	GL-COLUMN-TABLE,GL-CUR-POS
+	SUB	STACK,2
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	RT-NEW-CURSOR,?TMP1
+	GET	GL-LINE-TABLE,GL-CUR-POS >?TMP1
+	GET	GL-COLUMN-TABLE,GL-CUR-POS
+	SUB	STACK,2
+	CURSET	?TMP1,STACK
+	PRINTC	62
+	RTRUE	
+
+
+	.FUNCT	RT-INVERSE-LINE,CENTER-HALF
+	HLIGHT	K-H-INV
+	GETB	0,33
+	ICALL2	RT-PRINT-SPACES,STACK
+	HLIGHT	K-H-NRM
+	RTRUE	
+
+
+	.FUNCT	RT-DISPLAY-HINT,H,MX,CNT,CHR,FLG,N,CV,SHIFT?,COUNT-OFFS,CURCX,CURC,?TMP1
+	SET	'CNT,2
+	SET	'FLG,TRUE-VALUE
+	CLEAR	-1
+	SPLIT	3
+	SCREEN	K-S-WIN
+	CURSET	1,1
+	ICALL1	RT-INVERSE-LINE
+	ICALL	RT-CENTER-LINE,1,STR?641,16
+	CURSET	3,1
+	ICALL1	RT-INVERSE-LINE
+	ICALL	RT-LEFT-LINE,3,STR?642
+	ICALL	RT-RIGHT-LINE,3,STR?643,17
+	CURSET	2,1
+	ICALL1	RT-INVERSE-LINE
+	HLIGHT	K-H-BLD
+	GET	K-HINTS,GL-CHAPT-NUM >?TMP1
+	ADD	GL-QUEST-NUM,1
+	GET	?TMP1,STACK >H
+	SUB	GL-CHAPT-NUM,1
+	GET	K-HINT-COUNTS,STACK >CV
+	GET	H,1
+	ICALL	RT-CENTER-LINE,2,STACK
+	HLIGHT	K-H-NRM
+	GET	H,0 >MX
+	SCREEN	K-S-NOR
+	CRLF	
+	MOD	GL-QUEST-NUM,2 >SHIFT?
+	SUB	GL-QUEST-NUM,1
+	DIV	STACK,2 >COUNT-OFFS
+	GETB	CV,COUNT-OFFS >CURCX
+	ZERO?	SHIFT? /?CCL3
+	SHIFT	CURCX,-4
+	JUMP	?CND1
+?CCL3:	PUSH	CURCX
+?CND1:	BAND	STACK,15
+	ADD	2,STACK >CURC
+?PRG4:	EQUAL?	CNT,CURC /?PRG9
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	INC	'CNT
+	JUMP	?PRG4
+?PRG9:	ZERO?	FLG /?CCL13
+	GRTR?	CNT,MX \?CCL13
+	SET	'FLG,FALSE-VALUE
+	PRINTI	"[That's all.]"
+	CRLF	
+	JUMP	?CND11
+?CCL13:	ZERO?	FLG /?CND11
+	SUB	MX,CNT
+	ADD	STACK,1 >N
+	PRINTC	91
+	PRINTN	N
+	PRINTI	" hint"
+	EQUAL?	N,1 /?CND17
+	PRINTC	115
+?CND17:	PRINTI	" left.]"
+	PRINTI	" -> "
+	SET	'FLG,FALSE-VALUE
+?CND11:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL21
+	ZERO?	SHIFT? /?CCL24
+	GETB	CV,COUNT-OFFS
+	BAND	STACK,15 >?TMP1
+	SUB	CNT,2
+	SHIFT	STACK,4
+	BOR	?TMP1,STACK
+	PUTB	CV,COUNT-OFFS,STACK
+	RTRUE	
+?CCL24:	GETB	CV,COUNT-OFFS
+	BAND	STACK,240 >?TMP1
+	SUB	CNT,2
+	BOR	?TMP1,STACK
+	PUTB	CV,COUNT-OFFS,STACK
+	RTRUE	
+?CCL21:	EQUAL?	CHR,13,10 \?PRG9
+	GRTR?	CNT,MX /?PRG9
+	SET	'FLG,TRUE-VALUE
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	IGRTR?	'CNT,MX \?PRG9
+	SET	'FLG,FALSE-VALUE
+	PRINTI	"[Final hint]"
+	CRLF	
+	JUMP	?PRG9
+
+
+	.FUNCT	RT-PUT-UP-QUESTIONS,ST,MXQ,MXL,?TMP1
+	SET	'ST,1
+	GET	K-HINTS,GL-CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MXQ
+	GETB	0,32
+	SUB	STACK,1 >MXL
+?PRG1:	GRTR?	ST,MXQ /TRUE
+	SUB	ST,1
+	GET	GL-LINE-TABLE,STACK >?TMP1
+	SUB	ST,1
+	GET	GL-COLUMN-TABLE,STACK
+	SUB	STACK,1
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	GET	K-HINTS,GL-CHAPT-NUM >?TMP1
+	ADD	ST,1
+	GET	?TMP1,STACK
+	GET	STACK,1
+	PRINT	STACK
+	INC	'ST
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-PUT-UP-CHAPTERS,ST,MXC,MXL,?TMP1
+	SET	'ST,1
+	SET	'MXC,18
+	GETB	0,32
+	SUB	STACK,1 >MXL
+?PRG1:	GRTR?	ST,MXC /TRUE
+	SUB	ST,1
+	GET	GL-LINE-TABLE,STACK >?TMP1
+	SUB	ST,1
+	GET	GL-COLUMN-TABLE,STACK
+	SUB	STACK,1
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	GET	K-HINTS,ST
+	GET	STACK,1
+	PRINT	STACK
+	INC	'ST
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-INIT-HINT-SCREEN,THIRD
+	ASSIGNED?	'THIRD /?CND1
+	SET	'THIRD,TRUE-VALUE
+?CND1:	CLEAR	-1
+	GETB	0,32
+	SUB	STACK,1
+	SPLIT	STACK
+	SCREEN	K-S-WIN
+	CURSET	1,1
+	ICALL1	RT-INVERSE-LINE
+	CURSET	2,1
+	ICALL1	RT-INVERSE-LINE
+	CURSET	3,1
+	ICALL1	RT-INVERSE-LINE
+	ICALL	RT-CENTER-LINE,1,STR?641,16
+	ICALL	RT-LEFT-LINE,2,STR?644
+	ICALL	RT-RIGHT-LINE,2,STR?645,12
+	ZERO?	THIRD /FALSE
+	ICALL	RT-LEFT-LINE,3,STR?646
+	CALL	RT-RIGHT-LINE,3,STR?647,16
+	RSTACK	
+
+
+	.FUNCT	RT-CENTER-LINE,LN,STR,LEN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	ZERO?	LEN \?CND3
+	DIROUT	K-D-TBL-ON,GL-DIROUT-TBL
+	PRINT	STR
+	DIROUT	K-D-TBL-OFF
+	GET	GL-DIROUT-TBL,0 >LEN
+?CND3:	GETB	0,33
+	SUB	STACK,LEN
+	DIV	STACK,2
+	CURSET	LN,STACK
+	ZERO?	INV /?CND5
+	HLIGHT	K-H-INV
+?CND5:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	K-H-NRM
+	RTRUE	
+
+
+	.FUNCT	RT-LEFT-LINE,LN,STR,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	CURSET	LN,1
+	ZERO?	INV /?CND3
+	HLIGHT	K-H-INV
+?CND3:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	K-H-NRM
+	RTRUE	
+
+
+	.FUNCT	RT-RIGHT-LINE,LN,STR,LEN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	ZERO?	LEN \?CND3
+	DIROUT	3,GL-DIROUT-TBL
+	PRINT	STR
+	DIROUT	-3
+	GET	GL-DIROUT-TBL,0 >LEN
+?CND3:	GETB	0,33
+	SUB	STACK,LEN
+	CURSET	LN,STACK
+	ZERO?	INV /?CND5
+	HLIGHT	K-H-INV
+?CND5:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	K-H-NRM
+	RTRUE	
+
+	.ENDI
diff --git a/hints.zil b/hints.zil
new file mode 100644
index 0000000..d75131a
--- /dev/null
+++ b/hints.zil
@@ -0,0 +1,747 @@
+;"HINTS for SHERLOCK"
+ 
+<FILE-FLAGS CLEAN-STACK?>
+
+<GLOBAL GL-HINT-WARNING <>>
+<GLOBAL GL-HINTS-OFF <>>
+
+<ROUTINE V-HINTS-NO ()
+	<COND (<NOT <MC-PRSO? ,ROOMS>>
+	       <TELL ,K-DONT-UNDERSTAND-MSG CR>)
+	      (T
+	       <SETG GL-HINTS-OFF T>
+	       <TELL "[Hints have been disallowed for this session.]" CR>)>
+	<RFATAL>>
+
+<CONSTANT RETURN-SEE-HINT " RETURN = see hint">
+<CONSTANT RETURN-SEE-HINT-LEN <LENGTH " RETURN = see hint">>
+<CONSTANT Q-MAIN-MENU "Q = main menu">
+<CONSTANT Q-MAIN-MENU-LEN <LENGTH "Q = main menu">>
+
+;"zeroth (first) element is 5"
+<GLOBAL GL-LINE-TABLE
+	<PTABLE
+	  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22>>
+
+;"zeroth (first) element is 4"
+<CONSTANT GL-COLUMN-TABLE
+	<PTABLE
+	  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4>>
+
+; "If the first argument is non-false, build a parallel impure table
+   for storing the count of answers already seen; make it a constant
+   under the given name."
+
+<DEFINE20 CONSTRUCT-HINTS (COUNT-NAME "TUPLE" STUFF "AUX" (SS <>)
+			   (HL (T)) (HLL .HL) V
+			   (CL (T)) (CLL .CL)
+			   TCL TCLL)
+   <REPEAT ((CT 0))
+     <COND (<OR <EMPTY? .STUFF>
+		<TYPE? <1 .STUFF> STRING>>
+	    ; "Chapter break"
+	    <COND
+	     (<NOT .SS>
+	      ; "First one, just do setup"
+	      <SET SS .STUFF>
+	      <SET TCL (T)>
+	      <SET TCLL .TCL>
+	      <SET CT 0>)
+	     (T
+	      <SET V <SUBSTRUC .SS 0 <- <LENGTH .SS> <LENGTH .STUFF>>>>
+	      ; "One chapter's worth"
+	      <SET HLL <REST <PUTREST .HLL (<EVAL <FORM PLTABLE !.V>>)>>>
+	      <COND (.COUNT-NAME
+		     <SET CLL <REST <PUTREST .CLL
+					     (<EVAL <FORM TABLE (BYTE)
+							  !<REST .TCL>>>)>>>
+		     <SET TCL (T)>
+		     <SET TCLL .TCL>
+		     <SET CT 0>)>
+	      <SET SS .STUFF>)>
+	    <COND (<EMPTY? .STUFF> <RETURN>)>
+	    <SET STUFF <REST .STUFF>>)
+	   (T
+	    <COND (.COUNT-NAME
+		   <COND (<1? <MOD <SET CT <+ .CT 1>> 2>>
+			  <SET TCLL <REST <PUTREST .TCLL
+						   (0)>>>)>)>
+	    <SET STUFF <REST .STUFF>>)>>
+   <COND (.COUNT-NAME
+	  <EVAL <FORM CONSTANT .COUNT-NAME
+		      <EVAL <FORM PTABLE !<REST .CL>>>>>)>
+   <EVAL <FORM PLTABLE !<REST .HL>>>>
+
+;"longest hint topic can be 17 chars"
+
+<CONSTANT K-HINTS
+  <CONSTRUCT-HINTS K-HINT-COUNTS
+    "STARTERS"
+    <PLTABLE "How do I get into the house?"
+	     "Mrs Hudson is expecting you, so you shouldn't have to do
+anything too unusual."
+	     "Have you tried kicking down the door?"
+	     "KNOCK ON THE DOOR.">
+    <PLTABLE "How do I get into the parlour?"
+	     "Mrs Hudson wants you to attend to something first."
+	     "Get Holmes's mind off the drug.">
+    <PLTABLE "How do I get into the kitchen?"
+	     "Don't look at the next clue until you have opened the trap door in the hall."
+	     "You're cheating, aren't you?"
+	     "There is no trap door."
+	     "There is no kitchen."
+	     "Don't let the existence of these questions influence your playing of the game.">
+    <PLTABLE "How do I get into the bedroom?"
+	     "Only Holmes can open that door."
+	     "When the visitor leaves, Holmes will open it.">
+    <PLTABLE "How do I get onto the roof?"
+	     "The same way you got into the kitchen.">
+    <PLTABLE "Will Mrs Hudson do anything for me?"
+	     "Have you tried kissing her?"
+	     "Have you tried bribing her?"
+	     "The sad fact is that she won't do anything for you.">
+    <PLTABLE "Can I get Holmes out of his stupor?"
+	     "Holmes is bored with the commonplace events of everyday life."
+	     "He needs some mental excitement."
+	     "Newspapers generally contain interesting items."
+	     "For a doctor, you're not too bright. Read him the newspaper. (Or tell him about the visitor).">
+    <PLTABLE "Why does the clue paper exist?"
+	     "It looks like the thief is challenging Sherlock Holmes to a duel of wits."
+	     "Unlike yourself, Sherlock is not unarmed for such a duel."
+	     "The thief is laying down a trail of clues for Holmes to follow.">
+    <PLTABLE "What's the answer to the 1st riddle?"
+	     "The verse refers to a particular place."
+	     "The place is the spot where most English royalty is buried."
+	     "Westminster Abbey.">
+    <PLTABLE "What's the answer to the 2nd riddle?"
+	     "The verse refers to the last of the Tudor monarchs."
+	     "She was called the \"Virgin Queen.\""
+	     "Elizabeth I.">
+    <PLTABLE "What's the answer to the 3rd riddle?"
+	     "The discoverer of the law of gravity."
+	     "Sir Isaac Newton.">
+    <PLTABLE "What's the answer to the 4th riddle?"
+	     "Don't read the next clue until you have thoroughly explored Westminster Abbey."
+	     "Have you looked around in the Jerusalem Chamber?"
+	     "The fourth verse refers to Henry V.">
+    <PLTABLE "Where is the lamp?"
+	     "It's in Holmes's bedroom.">
+    <PLTABLE "Who is the thief?"
+	     "Who do you think?">
+    "CABS"
+    <PLTABLE "How do I hail a cab?"
+	     "Consult the sample transcript in your game manual.">
+    <PLTABLE "Why does the growler cab get lost?"
+	     "The driver is friendly, but stupid."
+	     "The driver is stupid, but friendly."
+	     "Give up. He'll never take you where you want to go.">
+    "WESTMINSTER ABBEY"
+    <PLTABLE "Are the tombs important?"
+	     "They are to the people buried in them."
+	     "Yes.">
+    <PLTABLE "How do I make a brass rubbing?"
+	     "Take a piece of paper from the pacquet of paper, put it on the
+tomb of your choice, and then rub it with the crayon.">
+    <PLTABLE "What should I make rubbings of?"
+	     "Do not read the next clue until you have solved the verses on
+the thief's clue paper."
+	     "The tombs of Queen Elizabeth, Sir Isaac Newton and Henry V.">
+    <PLTABLE "Why am I making brass rubbings?"
+	     "The thief is trying to send messages to Sherlock."
+	     "He wouldn't want his messages to be visible to everyone, now would he?"
+	     "Have you visited the British Museum yet?"
+	     "The book on the table in the British Museum contains a clue
+that will help you."
+	     "There is some invisible writing on some of the tombs."
+	     "When you make a rubbing, the invisible ink is transferred
+onto the back of the paper."
+	     "Invisible ink usually becomes visible when heated."
+	     "Heat the paper over the candles in the Evangelist Chapel."
+	     "Turn the paper over.">
+    <PLTABLE "Where is the Stone of Scone?"
+	     "It belongs under the Coronation Chair in Edward the Confessor's
+Chapel - but we knew it was going to be stolen in 1950 and then returned
+several months later.  We figured that was enough excitement for any one rock,
+so we left it out of the game, safe from your grubby paws.">
+    <PLTABLE "What's the Son of Mars answer?"
+	     "Admiral Lord Nelson.">
+    <PLTABLE "What's the Chopper answer?"
+	     "Charles I.">
+    <PLTABLE "What's the London Bridge answer?"
+	     "Under London Bridge.">
+    <PLTABLE "What's the answer to life's riddle?"
+	     "If we knew that, do you think we'd be sitting around writing games?">
+    <PLTABLE "What's the Pussycat answer?"
+	     "Go to the Tower of London.">
+    <PLTABLE "What's the Number answer?"
+	     "Have you looked at the statue of William the Conqueror?"
+	     "Have you read the sign on the Monument?"
+	     "Have you ever read the Charge of the Light Brigade?"
+	     "600.">
+    <PLTABLE "How about Hickory Dickory Dock?"
+	     "Big Ben.">
+    "BRITISH MUSEUM"
+    <PLTABLE "How do I get past the librarian?"
+	     "Think of the room not as a museum, but as a library."
+	     "Have you read the sign on the librarian's desk?"
+	     "Has it occurred to you that he's doing an awful lot of talking?"
+	     "Tell him to be quiet.">
+    "ST PAUL'S"
+    <PLTABLE "What is a Whispering Gallery?"
+	     "It is a place where you can eavesdrop on other people from
+far away.">
+    <PLTABLE "How do I get up there?"
+	     "Take the stairs up from the clerestory.">
+    <PLTABLE "How do I get to the clerestory?"
+	     "You can't. St Paul's isn't even in the game."
+	     "We just like the word clerestory.">
+    "TRAFALGAR SQUARE"
+    <PLTABLE "Are the pigeons important?"
+	     "Only to other pigeons.">
+    <PLTABLE "Is the statue important?"
+	     "Yes."
+	     "Have you looked at it?"
+	     "Have you looked at it closely?"
+	     "Have you looked at it through a telescope?">
+    <PLTABLE "Is the column important?"
+	     "Yes."
+	     "If it wasn't there, we'd have to come up with some other way
+of keeping the statue out of your reach.">
+    <PLTABLE "Is anything important?"
+	     "Like, wow, man.  Heavy question!">
+    "ON THE THAMES"
+    <PLTABLE "How do I stop rowing in circles?"
+	     "Has anyone told you you're not playing with a full deck?"
+	     "Has anyone told you you're not rowing with both oars in the water?"
+	     "You need two oars to steer the boat."
+	     "Don't read the next two clues unless you want to know where the other oar is."
+	     "The other oar is in another boat."
+	     "It's in Captain Bligh's boat in the Black Museum.">
+    <PLTABLE "How do I stop the boat?"
+	     "Type, 'Whoa, Boat!'"
+	     "Just kidding. Drop the anchor.">
+    <PLTABLE "How do I launch the boat?"
+	     "Got any rocket fuel?"
+	     "Type, 'Launch boat.'"
+	     "(Make sure you're in the boat and the anchor's up first.)">
+    <PLTABLE "How do I land the boat?"
+	     "You can only land the boat at the Embankment or outside Traitor's Gate."
+	     "Type: N or LAND BOAT.">
+    <PLTABLE "How do I get the paddle?"
+	     "You can't get the paddle when you're outside Traitor's Gate."
+	     "If you don't have the paddle, you need two oars to row back up the river."
+	     "If you're on the river without a paddle or both oars, you're making a big mistake."
+	     "You can only take the paddle after you've entered the Tower.">
+    <PLTABLE "Can I stop the man taking the boat?"
+	     "No, you can't. But after all, it's his boat.">
+    "VICTORIA STATION"
+    <PLTABLE "What time does the last train leave?"
+	     "The timetable is posted on the wall."
+	     "9:15 p.m.">
+    <PLTABLE "What track does it leave from?"
+	     "Track 29.">
+    <PLTABLE "How much is a round-trip ticket?"
+	     "Why are you reading clues about a place that isn't even in the game?">
+    "COVENT GARDEN"
+    <PLTABLE "What is the matter with the girl?"
+	     "She has a bad heart."
+	     "Perhaps some medicine...."
+	     "Be careful. Drugs are dangerous.">
+    <PLTABLE "How do I revive her?"
+	     "Have you made a positive diagnosis?"
+	     "Listen to the girl with your stethoscope."
+	     "If her heart is abnormally fast, give her something to slow it down."
+	     "An unusually fast heartbeat is known as tachycardia."
+	     "If her heart is abnormally slow, give her something to speed it up."
+	     "An unusually slow heartbeat is know as bradycardia."
+	     "Belladonna will speed up a slow heart."
+	     "Digitalis will slow down a fast heart."
+	     "The drugs are in your medicine bag.">
+    <PLTABLE "Where is the stethoscope?"
+	     "Where do most doctors carry their stethoscopes?"
+	     "You are not most doctors."
+	     "You have it when you start the game."
+	     "Sorry about this. It turns out that Watson always carries his
+stethoscope in his hat. Really. (Read \"A Scandal in Bohemia.\")">
+    "MADAME TUSSAUD'S"
+    <PLTABLE "How do I get past the guard dog?"
+	     "He won't let you carry any matches inside."
+	     "OK. So you already knew that."
+	     "He won't let you carry in any flames that he can see."
+	     "Alright, so you knew that too.  How about flames that he can't see?"
+	     "Something that burns without a flame, for example."
+	     "Like tobacco maybe."
+	     "Light the pipe, drop the match, and go on in.">
+    <PLTABLE "What do I do with the axe?"
+	     "The axe doesn't do much except cut down on the number of other things you can carry.">
+    <PLTABLE "How can I light the torch?"
+	     "Light it from something that's already burning."
+	     "Light it from a burning piece of paper."
+	     "Light a piece of paper from the pipe, and then use it to light the torch.">
+    "SCOTLAND YARD"
+    <PLTABLE "Will Lestrade talk to me in his office?"
+	      "He doesn't like you."
+	      "He really doesn't like you."
+	      "What office?">
+    "BANK OF ENGLAND"
+    <PLTABLE "How do I get inside the bank?"
+	     "Despite the guard's assertions to the contrary, he can be bribed."
+	     "Give him something valuable."
+	     "Some gems might do the trick."
+	     "Give him the ruby, the sapphire, the emerald and the opal.">
+    <PLTABLE "How do I get inside the vault?"
+	     "The door has a combination lock on it."
+	     "The tumblers turn too quietly for you to hear without amplification."
+	     "Listen to the door with the stethoscope, and then turn the dial left or right."
+	     "A 'clunk' means you're going the wrong way."
+	     "A 'whirr' means you're going the right way."
+	     "A 'click' means you should reverse directions."
+	     "The combination is right twice, left once, right twice.">
+    <PLTABLE "Which box should I open?"
+	     "Have you solved the second clue on Sir Isaac Newton's tomb?"
+	     "Open box 600.">
+    <PLTABLE "How do I open safety deposit boxes?"
+	     "Do you have any dynamite?"
+	     "Try using a key."
+	     "The bank guard has it."
+	     "It's in his pocket."
+	     "How good a pickpocket are you?"
+	     "How good a pickpocket are the people you know?"
+	     "Ask Wiggins to steal it.">
+    <PLTABLE "How can I stop the kidnapping?"
+	     "Hire bodyguards."
+	     "Put Holmes in your medical bag."
+	     "You can't.">
+    "DIOGENES CLUB"
+    <PLTABLE "What does Mycroft want from me?"
+	     "Your blood?"
+	     "Your first-born male child?"
+	     "Sherlock's ring.">
+    <PLTABLE "How do I get the token?"
+	     "Show any of the gems you have found to Sherlock.">
+    "TOWER OF LONDON"
+    <PLTABLE "How do I get into the Tower?"
+	     "Give the password to the beefeater."
+	     "You must get the password from someone who has government connections."
+	     "Mycroft Holmes knows the password."
+	     "Don't continue unless Sherlock Holmes has been kidnapped."
+	     "Go to the Diogenes Club and ask for Mycroft. The butler will
+ask you for a token. Give him the token. Mycroft will appear and give
+you the password."
+	     "Return to the Tower and give the guard the password."
+	     "Just type GUARD, [PASSWORD].">
+    <PLTABLE "How do I get out of the Tower?"
+	     "The beefeater won't let you out. You must find another exit."
+	     "The only other way out is through Traitor's Gate."
+	     "The portcullis is operated by the chain above it."
+	     "You do not weigh enough to pull down the chain."
+	     "Put on the suit of armour in the dungeon of the White Tower and then pull on the chain.">
+    "GEMS"
+    <PLTABLE "Where is the diamond?"
+	     "What diamond?">
+    <PLTABLE "How do I get the diamond?"
+	     "See previous hint.">
+    <PLTABLE "Where is the sapphire?"
+	     "Did you solve the Hickory Dickory Dock riddle?"
+	     "It's stuck to the clapper of Big Ben.">
+    <PLTABLE "How do I get the sapphire?"
+	     "Have you tried driving a hook into the ceiling, throwing a rope
+over the hook, climbing up onto the rail, swinging across the hollow shaft
+while screaming like Tarzan, and grabbing the sapphire as you swing by?"
+	     "Just asking."
+	     "Wait until the hour strikes. The clapper will swing your way."
+	     "You need to use your hands while the bell is ringing."
+	     "Put the cotton balls in your ears before the bell starts to ring."
+	     "The cotton balls are in the blue pill bottle.">
+    <PLTABLE "Where is the ruby?"
+	     "Did you solve the Son of Mars riddle?"
+	     "It's somewhere in Trafalgar Square."
+	     "It's on the statue in Trafalgar Square."
+	     "It's in Nelson's blind eye."
+	     "You can discover it only by looking through the telescope.">
+    <PLTABLE "How do I get the ruby?"
+	     "You can't get up there."
+	     "Someone - or something - else will have to get it for you."
+	     "Some kind of trained bird might do it."
+	     "Old Sherman, who lives in Pinchin Lane, trains animals."
+	     "Get the bird from Sherman. Take it to Trafalgar Square. Show
+the ruby to the pigeon, ask him to get it, and then let him go."
+	     "Do not read the next clue until you have done all of the above."
+	     "Did we mention that it's a homing pigeon?"
+	     "Return to Sherman's shop and ask him about the bird.">
+    <PLTABLE "Where is the emerald?"
+	     "Did you solve the Chopper riddle?"
+	     "It's in the Chamber of Horrors."
+	     "It's hidden in one of the statues."
+	     "It's in the wax head of Charles I.">
+    <PLTABLE "How do I get the emerald?"
+	     "It's encased in wax. What springs to mind?"
+	     "You need to melt the head."
+	     "You can't melt the head unless you remove it from the statue."
+	     "You need something that puts out enough heat to melt a big gob of wax."
+	     "The torch will melt the wax head.">
+    <PLTABLE "Where is the sceptre?"
+	     "In the sceptre tank?"
+	     "Sorry about that."
+	     "There is no sceptre.">
+    <PLTABLE "How do I get the sceptre?"
+	     "Dive into the sceptre tank."
+	     "Don't blame us. You're the one who keeps reading these bogus clues.">
+    "MORE GEMS"
+    <PLTABLE "Where is the opal?"
+	     "Have you solved the London Bridge riddle?"
+	     "It's in the clump of moss under London Bridge.">
+    <PLTABLE "How do I get the opal?"
+	     "Can you lower the bridge?"
+	     "Can you raise the water?"
+	     "Wait for high tide."
+	     "The newspaper that came with your game contains the tide tables for the weekend.">
+    <PLTABLE "Where is the zorkmid?"
+	      "It's in the... oops.  Sorry.  Wrong game.">
+    <PLTABLE "How do I get the zorkmid?"
+	      "Buy Zork I."
+	      "Buy Enchanter."
+	      "Buy Sorcerer."
+	      "You get the idea.">
+    <PLTABLE "Where is the topaz?"
+	     "In a safety deposit box in the Bank of England."
+	     "Have you solved the number riddle?"
+	     "It's in box 600.">
+    <PLTABLE "How do I get the topaz?"
+	     "See the clues for the Bank of England.">
+    <PLTABLE "Where is the garnet?"
+	     "Did you solve the Tower of London riddle?"
+	     "It's in the butt of malmsey in the Bowyer Tower.">
+    <PLTABLE "How do I get the garnet?"
+	     "Have you tried drinking the wine?"
+	     "Pretty tasty stuff, isn't it?"
+	     "You need to drain the keg somehow."
+	     "You need to remove the bung."
+	     "Knock out the bung with the mace."
+	     "Don't read the next clue until you have done all of the above."
+	     "Ask Wiggins to get the garnet for you.">
+    <PLTABLE "Why are the gems important?"
+	     "You don't think the thief has been hiding gems all over London just for the fun of it, do you?"
+	     "Perhaps he is trying to send Sherlock yet another message."
+	     "Have you looked at any of the gems?"
+	     "Have you looked at any of them closely?"
+	     "Look at each of the gems through the magnifying glass.">
+    "THE LAIR"
+    <PLTABLE "Can I stop Akbar's knocking me out?"
+	     "Knock him out first."
+	     "Perhaps you could smuggle something in."
+	     "Have you noticed the henchman's religion?"
+	     "He probably won't disturb your hat."
+	     "Perhaps the etherium ampoule....">
+    <PLTABLE "Can I stop Moriarty when I wake up?"
+	     "If he is free to move around, he will always win."
+	     "Tie him up."
+	     "Don't forget to tie up the henchman, too.">
+    "MISCELLANEOUS"
+    <PLTABLE "Why do I finish without 100 points?"
+	     "If you play the game from start to finish and solve all
+the puzzles, you will end up with 100 points. If, however, you start the
+game and play through it using information you acquired in a previous
+session, you may have neglected to perform a few actions for which you
+received points. This should not be of concern to anyone who is content
+with failing to discover the highest ranking available to the game player.">
+    <PLTABLE "Can I abbreviate \"stethoscope\"?"
+	     "Yes. It can be abbreviated to STETH or SS.">
+    <PLTABLE "What is the square root of 64?"
+	      "Eight.">>>
+
+<GLOBAL GL-CUR-POS 0>	;"determines where to place the highlight cursor
+			  Can go up to 17 Questions"
+
+<GLOBAL GL-QUEST-NUM 1> ;"shows in HINT-TBL ltable which QUESTION it's on"
+
+<GLOBAL GL-CHAPT-NUM 1>	;"shows in HINT-TBL ltable which CHAPTER it's on"
+
+<CONSTANT GL-DIROUT-TBL
+	  <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 >>
+
+<ROUTINE V-HINT ("AUX" CHR MAXC (C <>) Q (WHO <>))
+  <COND (,GL-HINTS-OFF
+	 <RT-PERFORM ,V?HINTS-NO ,ROOMS>
+	 <RFATAL>)
+	(<NOT ,GL-HINT-WARNING>
+	 <SETG GL-HINT-WARNING T>
+	 <TELL
+"[Warning: It is recognized that the temptation for help may at times be so
+exceedingly strong that you might fetch hints prematurely. Therefore, you may
+at any time during the story type HINTS OFF, and this will disallow the
+seeking out of help for the present session of the story. If you still want a
+hint now, indicate HINT.]" CR>
+	 <RFATAL>)
+	(<NOT .WHO>
+	 <SET WHO <RT-WHO-SAYS?>>
+	 <COND (<EQUAL? .WHO ,CH-HOLMES ,CH-WIGGINS>
+		<COND (<EQUAL? .WHO ,CH-HOLMES>
+		       <TELL
+"Holmes looks at you impatiently and sighs, \"Very well, Watson. If you
+must.\"">)
+		      (T
+		       <TELL
+"Wiggins looks up at you with relief and says, \"Good idea, guv. We'll never
+work this out on our own.\"">)>
+		<TELL CR CR "[Press any key to continue.]" CR>
+		<INPUT 1>)>)>
+  <IFSOUND ;<SET X <GET ,SOUND-FLAG 0>>
+	   <SETG SOUND-QUEUED? <>>
+	   <KILL-SOUNDS>>
+  ;<BUFOUT <>>
+  <SET MAXC <GET ,K-HINTS 0>>
+  <RT-INIT-HINT-SCREEN>
+  <CURSET 5 1>
+  <RT-PUT-UP-CHAPTERS>
+  <SETG GL-CUR-POS <- ,GL-CHAPT-NUM 1>>
+  <RT-NEW-CURSOR>
+  <REPEAT ()
+	  <SET CHR <INPUT 1>>
+	  <COND (<EQUAL? .CHR !\Q !\q>
+		 <SET Q T>
+		 <RETURN>)
+		(<EQUAL? .CHR !\N !\n>
+		 <RT-ERASE-CURSOR>
+		 <COND (<EQUAL? ,GL-CHAPT-NUM .MAXC>
+			<SETG GL-CUR-POS 0>
+			<SETG GL-CHAPT-NUM 1>
+			<SETG GL-QUEST-NUM 1>)
+		       (T
+			<SETG GL-CUR-POS <+ ,GL-CUR-POS 1>>
+			<SETG GL-CHAPT-NUM <+ ,GL-CHAPT-NUM 1>>
+			<SETG GL-QUEST-NUM 1>)>
+		 <RT-NEW-CURSOR>)
+		(<EQUAL? .CHR !\P !\p>
+		 <RT-ERASE-CURSOR>
+		 <COND (<EQUAL? ,GL-CHAPT-NUM 1>
+			<SETG GL-CHAPT-NUM .MAXC>
+			<SETG GL-CUR-POS <- .MAXC 1>>)
+		       (T
+			<SETG GL-CUR-POS <- ,GL-CUR-POS 1>>
+			<SETG GL-CHAPT-NUM <- ,GL-CHAPT-NUM 1>>)>
+		 <SETG GL-QUEST-NUM 1>
+		 <RT-NEW-CURSOR>)
+		(<EQUAL? .CHR 13 10>
+		 <RT-PICK-QUESTION>
+		 <RETURN>)>>
+  <COND (<NOT .Q>
+	 <AGAIN>	;"AGAIN does whole routine?")>
+  <CLEAR -1>
+  <V-REFRESH>
+  <SET WHO <RT-WHO-SAYS?>>
+  <COND (<EQUAL? .WHO ,CH-HOLMES>
+	 <TELL CR
+"Holmes barely glances at you and snaps, \"At last. Now may we proceed?\"" CR>)
+	(<EQUAL? .WHO ,CH-WIGGINS>
+	 <TELL CR
+"Wiggins tugs your sleeve and asks hopefully, \"Learn anything?\"" CR>)
+	(T
+	 <TELL CR "Back to the story..." CR>)>
+  <IFSOUND <COND (,SOUND-ON?
+		  <CHECK-LOOPING>)>>
+  ;<IFSOUND <COND (<G? .X 1>
+		  <SOUNDS </ .X 16> ,S-START <MOD .X 16>>)>>
+  <RFATAL>>
+
+<ROUTINE RT-PICK-QUESTION ("AUX" CHR MAXQ (Q <>))
+  <RT-INIT-HINT-SCREEN <>>
+  <RT-LEFT-LINE 3 ,RETURN-SEE-HINT ,RETURN-SEE-HINT-LEN>
+  <RT-RIGHT-LINE 3 ,Q-MAIN-MENU ,Q-MAIN-MENU-LEN>
+  <SET MAXQ <- <GET <GET ,K-HINTS ,GL-CHAPT-NUM> 0> 1>>
+  <CURSET 5 1>
+  <RT-PUT-UP-QUESTIONS>
+  <SETG GL-CUR-POS <- ,GL-QUEST-NUM 1>>
+  <RT-NEW-CURSOR>
+  <REPEAT ()
+    <SET CHR <INPUT 1>>
+    <COND (<EQUAL? .CHR !\Q !\q>
+	   <SET Q T>
+	   <RETURN>)
+	  (<EQUAL? .CHR !\N !\n>
+	   <RT-ERASE-CURSOR>
+	   <COND (<EQUAL? ,GL-QUEST-NUM .MAXQ> ; "Wrap around on N"
+		  <SETG GL-CUR-POS 0>
+		  <SETG GL-QUEST-NUM 1>)
+		 (T
+		  <SETG GL-CUR-POS <+ ,GL-CUR-POS 1>>
+		  <SETG GL-QUEST-NUM <+ ,GL-QUEST-NUM 1>>)>
+	   <RT-NEW-CURSOR>)
+	  (<EQUAL? .CHR !\P !\p>
+	   <RT-ERASE-CURSOR>
+	   <COND (<EQUAL? ,GL-QUEST-NUM 1>
+		  <SETG GL-QUEST-NUM .MAXQ>
+		  <SETG GL-CUR-POS <- .MAXQ 1>>)
+		 (T
+		  <SETG GL-CUR-POS <- ,GL-CUR-POS 1>>
+		  <SETG GL-QUEST-NUM <- ,GL-QUEST-NUM 1>>)>
+	   <RT-NEW-CURSOR>)
+	  (<EQUAL? .CHR 13 10>
+	   <RT-DISPLAY-HINT>
+	   <RETURN>)>>
+  <COND (<NOT .Q>
+	 <AGAIN>)>>
+
+<ROUTINE RT-ERASE-CURSOR ()
+	<CURSET <GET ,GL-LINE-TABLE ,GL-CUR-POS>
+		<- <GET ,GL-COLUMN-TABLE ,GL-CUR-POS> 2>>
+	<TELL " ">	;"erase previous highlight cursor">
+
+;"go back 2 spaces from question text, print cursor and flash is between
+the cursor and text"
+
+<ROUTINE RT-NEW-CURSOR ()
+	<CURSET <GET ,GL-LINE-TABLE ,GL-CUR-POS>
+		<- <GET ,GL-COLUMN-TABLE ,GL-CUR-POS> 2 ;1>>
+	<TELL ">">	;"print the new cursor">
+
+<ROUTINE RT-INVERSE-LINE ("AUX" (CENTER-HALF <>)) 
+	<HLIGHT ,K-H-INV>
+	<RT-PRINT-SPACES <LOWCORE SCRH>>
+	<HLIGHT ,K-H-NRM>>
+
+<ROUTINE RT-DISPLAY-HINT ("AUX" H MX (CNT 2) CHR (FLG T) N CV
+			  SHIFT? COUNT-OFFS)
+  <CLEAR -1>
+  <SPLIT 3>
+  <SCREEN ,K-S-WIN>
+  <CURSET 1 1>
+  <RT-INVERSE-LINE>
+  <RT-CENTER-LINE 1 "INVISICLUES (tm)" <STRLENGTH "INVISICLUES (tm)">>
+  <CURSET 3 1>
+  <RT-INVERSE-LINE>
+  <RT-LEFT-LINE 3 "RETURN = see new hint">
+  <RT-RIGHT-LINE 3 "Q = see hint menu" <STRLENGTH "Q = see hint menu">>
+  <CURSET 2 1>
+  <RT-INVERSE-LINE>
+  <HLIGHT ,K-H-BLD>
+  <SET H <GET <GET ,K-HINTS ,GL-CHAPT-NUM> <+ ,GL-QUEST-NUM 1>>>
+  ; "Byte table to use for showing questions already seen"
+  ; "Actually a nibble table.  The high four bits of each byte are for
+     quest-num odd; the low for bits are for quest-num even.  See SHIFT?
+     and COUNT-OFFS."
+  <SET CV <GET ,K-HINT-COUNTS <- ,GL-CHAPT-NUM 1>>>
+  <RT-CENTER-LINE 2 <GET .H 1 ;,K-HINT-QUESTION>>
+  <HLIGHT ,K-H-NRM>
+  <SET MX <GET .H 0>>
+  <SCREEN ,K-S-NOR>
+  <CRLF>
+  <SET SHIFT? <MOD ,GL-QUEST-NUM 2>>
+  <SET COUNT-OFFS </ <- ,GL-QUEST-NUM 1> 2>>
+  <REPEAT ((CURCX <GETB .CV .COUNT-OFFS>)
+	   (CURC <+ 2 <ANDB <COND (.SHIFT? <LSH .CURCX -4>)
+				  (T .CURCX)> *17*>>))
+    <COND (<==? .CNT .CURC>
+	   <RETURN>)
+	  (T
+	   <TELL <GET .H .CNT> CR ;CR>
+	   <SET CNT <+ .CNT 1>>)>>
+  <REPEAT ()
+     <COND (<AND .FLG <G? .CNT .MX>>
+	    <SET FLG <>>
+	    <TELL "[That's all.]" CR>)
+	   (.FLG
+	    <SET N <+ <- .MX .CNT> 1>>
+	    <TELL "[" N .N " hint">
+	    <COND (<NOT <EQUAL? .N 1>>
+		   <TELL "s">)>
+	    <TELL " left.]" ;CR ;CR " -> ">
+	    <SET FLG <>>)>
+     <SET CHR <INPUT 1>>
+     <COND (<EQUAL? .CHR !\Q !\q>
+	    <COND (.SHIFT?
+		   <PUTB .CV .COUNT-OFFS
+			 <ORB <ANDB <GETB .CV .COUNT-OFFS> *17*>
+			      <LSH <- .CNT 2> 4>>>)
+		  (T
+		   <PUTB .CV .COUNT-OFFS
+			 <ORB <ANDB <GETB .CV .COUNT-OFFS> *360*>
+			      <- .CNT 2>>>)>
+	    <RETURN>)
+	   (<EQUAL? .CHR 13 10>
+	    <COND (<L=? .CNT .MX>
+		   <SET FLG T>	;".cnt starts as 2"
+		   <TELL <GET .H .CNT> ;CR CR>
+		   ; "3rd = line 7, 4th = line 9, ect"
+		   <COND (<G? <SET CNT <+ .CNT 1>> .MX>
+			  <SET FLG <>>
+			  <TELL "[Final hint]" CR>)>)>)>>>
+
+<ROUTINE RT-PUT-UP-QUESTIONS ("AUX" (ST 1) MXQ MXL)
+  <SET MXQ <- <GET <GET ,K-HINTS ,GL-CHAPT-NUM> 0> 1>>
+  <SET MXL <- <LOWCORE SCRV> 1>>
+  <REPEAT ()
+	  <COND (<G? .ST .MXQ>
+		 <RETURN>)
+		(T                        ;"zeroth"
+		 <CURSET <GET ,GL-LINE-TABLE <- .ST 1>>
+				<- <GET ,GL-COLUMN-TABLE <- .ST 1>> 1>>)>
+	  <TELL " " <GET <GET <GET ,K-HINTS ,GL-CHAPT-NUM> <+ .ST 1>> 1>>
+	  <SET ST <+ .ST 1>>>>
+
+<ROUTINE RT-PUT-UP-CHAPTERS ("AUX" (ST 1) MXC MXL)
+  <SET MXC <GET ,K-HINTS 0>>
+  <SET MXL <- <LOWCORE SCRV> 1>>
+  <REPEAT ()
+    <COND (<G? .ST .MXC>
+	   <RETURN>)
+	  (T                        ;"zeroth"
+	   <CURSET
+	    <GET ,GL-LINE-TABLE <- .ST 1>>
+	    <- <GET ,GL-COLUMN-TABLE <- .ST 1>> 1>>)>
+    <TELL " " <GET <GET ,K-HINTS .ST> 1 ;,GL-HINT-QUEST>>
+    <SET ST <+ .ST 1>>>>
+
+<ROUTINE RT-INIT-HINT-SCREEN ("OPTIONAL" (THIRD T))
+  <CLEAR -1>
+  <SPLIT <- <LOWCORE SCRV> 1>>
+  <SCREEN ,K-S-WIN>
+  <CURSET 1 1>
+  <RT-INVERSE-LINE>
+  <CURSET 2 1>
+  <RT-INVERSE-LINE>
+  <CURSET 3 1>
+  <RT-INVERSE-LINE>
+  <RT-CENTER-LINE 1 "INVISICLUES (tm)" <STRLENGTH "INVISICLUES (tm)">>
+  <RT-LEFT-LINE 2 " N = Next">
+  <RT-RIGHT-LINE 2 "P = Previous" <STRLENGTH "P = Previous">>
+  <COND (<MC-T? .THIRD>
+	 <RT-LEFT-LINE 3 " RETURN = See hint">
+	 <RT-RIGHT-LINE 3 "Q = Resume story" <STRLENGTH "Q = Resume story">>)>>
+
+<ROUTINE RT-CENTER-LINE (LN STR "OPTIONAL" (LEN 0) (INV T))
+  <COND (<ZERO? .LEN>
+	 <DIROUT ,K-D-TBL-ON ,GL-DIROUT-TBL ;,SLINE>
+	 <TELL .STR>
+	 <DIROUT ,K-D-TBL-OFF>
+	 <SET LEN <GET ,GL-DIROUT-TBL ;,SLINE 0>>)>
+  <CURSET .LN </ <- <LOWCORE SCRH> .LEN> 2>>
+  <COND (.INV
+	 <HLIGHT ,K-H-INV>)>
+  <TELL .STR>
+  <COND (.INV
+	 <HLIGHT ,K-H-NRM>)>>
+
+<ROUTINE RT-LEFT-LINE (LN STR "OPTIONAL" (INV T))
+	<CURSET .LN 1>
+	<COND (.INV
+	       <HLIGHT ,K-H-INV>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,K-H-NRM>)>>
+
+<ROUTINE RT-RIGHT-LINE (LN STR "OPTIONAL" (LEN 0) (INV T))
+	<COND (<ZERO? .LEN>
+	       <DIROUT 3 ,GL-DIROUT-TBL ;,SLINE>
+	       <TELL .STR>
+	       <DIROUT -3>
+	       <SET LEN <GET ,GL-DIROUT-TBL ;,SLINE 0>>)>
+	<CURSET .LN <- <LOWCORE SCRH> .LEN>>
+	<COND (.INV
+	       <HLIGHT ,K-H-INV>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,K-H-NRM>)>>
+
+
diff --git a/horse b/horse
new file mode 100644
index 0000000..ddb083a
Binary files /dev/null and b/horse differ
diff --git a/horse-ss1 b/horse-ss1
new file mode 100644
index 0000000..b6467bd
Binary files /dev/null and b/horse-ss1 differ
diff --git a/horse.was-mid b/horse.was-mid
new file mode 100644
index 0000000..ec28d32
Binary files /dev/null and b/horse.was-mid differ
diff --git a/locals.zabstr b/locals.zabstr
new file mode 100644
index 0000000..fc10d1e
--- /dev/null
+++ b/locals.zabstr
@@ -0,0 +1,98 @@
+
+<OBJECT LG-BAKER-ST-DOOR (LOC LOCAL-GLOBALS) (DESC "front door") (FLAGS FL-DOOR
+FL-OPENABLE FL-LOCKED) (SYNONYM DOOR) (ADJECTIVE FRONT HOLMES\' HOLMES\'S
+SHERLOCK) (GENERIC RT-GN-DOOR) (ACTION RT-AC-LG-BAKER-ST-DOOR)> 
+<OBJECT LG-PARLOUR-DOOR (LOC LOCAL-GLOBALS) (DESC "parlour door") (FLAGS
+FL-DOOR FL-OPENABLE) (SYNONYM DOOR) (ADJECTIVE PARLOUR PARLOR) (GENERIC
+RT-GN-DOOR) (ACTION RT-AC-LG-PARLOUR-DOOR)> 
+<OBJECT LG-HOLMES-STUDY-DOOR (LOC LOCAL-GLOBALS) (DESC "study door") (FLAGS
+FL-DOOR FL-OPENABLE FL-OPENED) (SYNONYM DOOR) (ADJECTIVE STUDY HOLMES\'S
+HOLMES\' SHERLOCK) (GENERIC RT-GN-DOOR) (ACTION RT-AC-LG-HOLMES-STUDY-DOOR)> 
+<OBJECT LG-HOLMES-BEDROOM-DOOR (LOC LOCAL-GLOBALS) (DESC "bedroom door") (FLAGS
+FL-DOOR FL-OPENABLE FL-LOCKED) (SYNONYM DOOR) (ADJECTIVE BEDROOM HOLMES\'S
+HOLMES\' SHERLOCK) (GENERIC RT-GN-DOOR) (ACTION RT-AC-LG-HOLMES-BEDROOM-DOOR)> 
+<OBJECT LG-BANK-VAULT-DOOR (LOC LOCAL-GLOBALS) (DESC "vault door") (FLAGS
+FL-DOOR FL-OPENABLE FL-LOCKED FL-HAS-DESCFCN) (SYNONYM DOOR) (ADJECTIVE VAULT)
+(VALUE 3) (GENERIC RT-GN-DOOR) (ACTION RT-AC-LG-BANK-VAULT-DOOR)> 
+<OBJECT LG-BAR-OF-GOLD-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (FLAGS FL-DOOR
+FL-OPENABLE FL-OPENED) (SYNONYM DOOR) (GENERIC RT-GN-DOOR) (ACTION
+RT-AC-LG-BAR-OF-GOLD-DOOR)> 
+<OBJECT LG-LAIR-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (FLAGS FL-DOOR
+FL-OPENABLE FL-LOCKED) (SYNONYM DOOR) (GENERIC RT-GN-DOOR) (ACTION
+RT-AC-LG-LAIR-DOOR)> 
+<OBJECT LG-JERICHO-PARLOUR-DOOR (LOC LOCAL-GLOBALS) (DESC
+"door to the Jericho Parlour") (FLAGS FL-DOOR FL-OPENABLE) (SYNONYM DOOR) (
+ADJECTIVE JERICHO PARLOUR PARLOR) (GENERIC RT-GN-DOOR) (ACTION
+RT-AC-LG-JERICHO-PARLOUR-DOOR)> 
+<OBJECT LG-BRITISH-MUSEUM-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (FLAGS FL-DOOR
+FL-LOCKED FL-OPENABLE) (SYNONYM DOOR) (GENERIC RT-GN-DOOR) (ACTION
+RT-AC-LG-BRITISH-MUSEUM-DOOR)> 
+<OBJECT LG-WESTMINSTER-DOOR (LOC LOCAL-GLOBALS) (DESC "Abbey door") (FLAGS
+FL-DOOR FL-LOCKED FL-OPENABLE) (SYNONYM DOOR) (GENERIC RT-GN-DOOR) (ACTION
+RT-AC-LG-WESTMINSTER-DOOR)> 
+<OBJECT LG-SHOPS (LOC LOCAL-GLOBALS) (DESC "shops") (FLAGS FL-PLURAL
+FL-HAS-DESCFCN) (SYNONYM SHOPS STORES EMPORIUMS WINDOWS WINDOW SHOP STORE) (
+ACTION RT-AC-LG-SHOPS)> 
+<OBJECT LG-WATER (LOC LOCAL-GLOBALS) (FLAGS FL-NODESC FL-CONTAINER FL-OPENED
+FL-SURFACE FL-HAS-SDESC FL-NOARTC) (SYNONYM WATER RIVER THAMES) (SIZE 0
+CAPACITY 100) (ACTION RT-AC-LG-WATER)> 
+<OBJECT LG-UP-DOWN-STREAM (LOC LOCAL-GLOBALS) (FLAGS FL-NODESC FL-HAS-SDESC
+FL-NEEDS-IDENTITY) (OBJ-NOUN 0) (OBJ-ADJ 0) (SYNONYM UPSTREAM DOWNSTREAM) (
+ACTION RT-AC-LG-UP-DOWN-STREAM)> 
+<OBJECT LG-PLAQUES (LOC LOCAL-GLOBALS) (DESC "sign") (FLAGS FL-TRYTAKE FL-NOALL
+FL-SURFACE FL-HAS-DESCFCN) (SYNONYM PLAQUE PLATE SIGN RELIEF) (SIZE 0 CAPACITY
+999) (ACTION RT-AC-LG-PLAQUES)> 
+<OBJECT LG-WINDOW (LOC LOCAL-GLOBALS) (DESC "window") (FLAGS FL-TRYTAKE
+FL-NOALL FL-HAS-DESCFCN FL-OPENABLE FL-TRANSPARENT) (SYNONYM WINDOW) (ADJECTIVE
+BOW) (ACTION RT-AC-LG-WINDOW)> 
+<OBJECT LG-TOMBS-ABBEY (LOC LOCAL-GLOBALS) (FLAGS FL-TRYTAKE FL-PLURAL FL-NOALL
+FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY) (OBJ-ADJ 0) (OBJ-NOUN 0) (
+ADJECTIVE WESTMINSTER) (SYNONYM TOMBS SCULPTURES STATUES TOMB ABBEY) (ACTION
+RT-AC-LG-TOMBS-ABBEY)> 
+<OBJECT LG-STREETLIGHT (LOC LOCAL-GLOBALS) (DESC "streetlight") (FLAGS
+FL-TRYTAKE FL-NOALL FL-TRANSPARENT) (SYNONYM LIGHT LAMP STREETLIGHT STREETLAMP
+STREET-LIGHT GASLIGHT GAS-LIGHT) (ADJECTIVE GAS) (ACTION RT-AC-LG-STREETLIGHT)>
+
+<OBJECT LG-STAIRWAY (LOC LOCAL-GLOBALS) (DESC "stairway") (FLAGS FL-TRYTAKE
+FL-NOALL) (SYNONYM STAIRWAY STAIR STAIRS STEP STEPS) (ACTION RT-AC-LG-STAIRWAY)
+> 
+<OBJECT LG-SHAFT-OF-LIGHT (LOC LOCAL-GLOBALS) (DESC "shaft of light") (FLAGS
+FL-NODESC FL-HAS-DESCFCN) (SYNONYM SHAFT LIGHT SUNLIGHT) (ADJECTIVE SHAFT LIGHT
+SUNLIGHT) (ACTION RT-AC-LG-SHAFT-OF-LIGHT)> 
+<OBJECT LG-MARBLE (LOC LOCAL-GLOBALS) (DESC "marble") (FLAGS FL-NODESC) (
+SYNONYM MARBLE)> 
+<OBJECT LG-COLUMNS (LOC LOCAL-GLOBALS) (DESC "columns") (FLAGS FL-TRYTAKE
+FL-PLURAL FL-NOALL) (SYNONYM COLUMNS COLUMN) (ADJECTIVE PURBECK)> 
+<OBJECT LG-RAVENS (LOC LOCAL-GLOBALS) (DESC "ravens") (FLAGS FL-NODESC
+FL-PLURAL FL-ALIVE FL-TRYTAKE FL-HAS-DESCFCN) (SYNONYM RAVENS BIRDS ROOKS RAVEN
+ROOK BIRD) (ADJECTIVE FLOCK GROUP BUNCH GAGGLE) (SIZE 50 MASS 250) (ACTION
+RT-AC-LG-RAVENS)> 
+<OBJECT LG-BOATS (LOC LOCAL-GLOBALS) (DESC "boats") (FLAGS FL-NODESC
+FL-HAS-DESCFCN) (SYNONYM BOATS SHIPS) (ADJECTIVE PLEASURE) (ACTION
+RT-DF-LG-BOATS)> 
+<OBJECT LG-TOWER (LOC LOCAL-GLOBALS) (DESC "Tower") (SYNONYM TOWER LONDON) (
+ADJECTIVE TOWER LONDON) (GENERIC RT-GN-TOWER) (ACTION RT-AC-LG-TOWER)> 
+<DEFINE-ROUTINE RT-AC-LG-BAKER-ST-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-PARLOUR-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-HOLMES-STUDY-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-HOLMES-BEDROOM-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-BAR-OF-GOLD-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-LAIR-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-JERICHO-PARLOUR-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-SHOPS> 
+<DEFINE-ROUTINE RT-AC-LG-WATER> 
+<DEFINE-ROUTINE RT-AC-LG-UP-DOWN-STREAM> 
+<DEFINE-ROUTINE RT-AC-LG-BRITISH-MUSEUM-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-WESTMINSTER-DOOR> 
+<DEFINE-ROUTINE RT-AC-LG-PLAQUES> 
+<DEFINE-ROUTINE RT-DF-LG-WAX-STATUES> 
+<DEFINE-ROUTINE RT-AC-LG-WINDOW> 
+<DEFINE-ROUTINE RT-AC-LG-TOMBS-ABBEY> 
+<DEFINE-ROUTINE RT-AC-LG-STREETLIGHT> 
+<DEFINE-ROUTINE RT-AC-LG-STAIRWAY> 
+<DEFINE-ROUTINE RT-AC-LG-SHAFT-OF-LIGHT> 
+<DEFINE-ROUTINE RT-AC-LG-RAVENS> 
+<DEFINE-ROUTINE RT-DF-LG-BOATS> 
+<DEFINE-ROUTINE RT-AC-LG-HOLMES-HOUSE> 
+<DEFINE-ROUTINE RT-AC-LG-PEDESTAL> 
+<DEFINE-ROUTINE RT-AC-LG-TOWER> 
\ No newline at end of file
diff --git a/locals.zap b/locals.zap
new file mode 100644
index 0000000..cf41e39
--- /dev/null
+++ b/locals.zap
@@ -0,0 +1,524 @@
+
+
+	.FUNCT	RT-AC-LG-BAKER-ST-DOOR
+	EQUAL?	GL-PRSA,V?KNOCK \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \?CCL6
+	PRINTR	"You are already inside."
+?CCL6:	FSET?	LG-BAKER-ST-DOOR,FL-OPENED \?CCL8
+	PRINTR	"The door is already open."
+?CCL8:	FSET?	CH-HUDSON,FL-ASLEEP \?CCL10
+	PRINTR	"There is no answer."
+?CCL10:	FSET?	LG-BAKER-ST-DOOR,FL-LOCKED /?CCL12
+	FSET	LG-BAKER-ST-DOOR,FL-OPENED
+	MOVE	CH-HUDSON,RM-ENTRY-HALL
+	ICALL2	RT-THIS-IS-IT,CH-HUDSON
+	PRINTR	"Mrs Hudson appears and says, ""Please come in Dr Watson."" She steps back into the hall to allow room for you to pass."
+?CCL12:	FCLEAR	LG-BAKER-ST-DOOR,FL-LOCKED
+	SET	'GL-PLACE-CUR,RM-ENTRY-HALL
+	MOVE	CH-HUDSON,GL-PLACE-CUR
+	MOVE	CH-PLAYER,GL-PLACE-CUR
+	ICALL2	RT-THIS-IS-IT,CH-HUDSON
+	PRINTI	"You hear a bolt sliding back and the door opens to reveal a worried Mrs Hudson."
+	CRLF	
+	CRLF	
+	PRINTI	"""Oh Doctor Watson, I'm so glad to see you. It's Mr Holmes, sir. Three days have come and gone since he's been out of his rooms. He won't eat and I know he hasn't slept. Now there's a visitor who says he's here about some important government business. I tried to send him away, but he insisted on waiting in the parlour. That's when I sent for you. Thank God you've come."""
+	CRLF	
+	ICALL	RT-EXEC-RM-DESCFCN,RM-ENTRY-HALL,K-M-DESC-1
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?KICK,V?HIT,V?MUNG \?CCL14
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL /FALSE
+	FSET?	LG-BAKER-ST-DOOR,FL-OPENED /FALSE
+	PRINTR	"Mrs Hudson pokes her head out the door and says, ""I'm not opening the door until you knock like a proper gentleman."" She slams the door in your face."
+?CCL14:	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL24
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+?CCL24:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-PARLOUR-DOOR
+	EQUAL?	GL-PRSA,V?OPEN \?CCL3
+	FSET?	CH-HOLMES,FL-ASLEEP \FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-HUDSON
+	PRINT	K-HUDSON-WORRIED-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-PARLOUR \?CCL11
+	CALL2	RT-DO-WALK,P?SOUTH
+	RSTACK	
+?CCL11:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	CALL2	RT-DO-WALK,P?NORTH
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-HOLMES-STUDY-DOOR
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-VESTIBULE \?CCL6
+	CALL2	RT-DO-WALK,P?NORTH
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
+	CALL2	RT-DO-WALK,P?SOUTH
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-HOLMES-BEDROOM-DOOR
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL6
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-BEDROOM \FALSE
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-BAR-OF-GOLD-DOOR
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD \?CCL6
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-SWAN-LANE \FALSE
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-LAIR-DOOR
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH,V?OPEN /?PRD8
+	EQUAL?	GL-PRSA,V?CLOSE,V?UNLOCK,V?LOCK \?CCL6
+?PRD8:	FSET?	CH-AKBAR,FL-LOCKED /?CCL6
+	FSET?	CH-AKBAR,FL-ASLEEP /?CCL6
+	PRINTI	"Akbar"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND12
+	PRINTI	" says, ""Forgive me, sir,"" and"
+?CND12:	PRINTR	" stops you as you move toward the door."
+?CCL6:	EQUAL?	GL-PRSA,V?OPEN \?CCL15
+	FSET?	CH-HOLMES,FL-LOCKED \?CCL15
+	PRINTR	"Holmes calls out, ""Watson! I'm still tied up!"" You pause and look back, torn by indecision."
+?CCL15:	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \?CCL19
+	EQUAL?	GL-PLACE-CUR,RM-LAIR \FALSE
+	CALL2	RT-DO-WALK,P?OUT
+	RSTACK	
+?CCL19:	EQUAL?	GL-PRSA,V?UNLOCK \?CCL24
+	EQUAL?	GL-PRSI,TH-LAIR-KEY \?CCL24
+	FSET?	LG-LAIR-DOOR,FL-LOCKED \?CCL24
+	FCLEAR	LG-LAIR-DOOR,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?821,STR?822
+	ICALL2	RT-THEO-PRINT,LG-LAIR-DOOR
+	PRINTR	"."
+?CCL24:	EQUAL?	GL-PRSA,V?LOCK \FALSE
+	EQUAL?	GL-PRSI,TH-LAIR-KEY \FALSE
+	FSET?	LG-LAIR-DOOR,FL-OPENED /FALSE
+	FSET?	LG-LAIR-DOOR,FL-LOCKED /FALSE
+	FSET	LG-LAIR-DOOR,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?808,STR?809
+	ICALL2	RT-THEO-PRINT,LG-LAIR-DOOR
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-LG-JERICHO-PARLOUR-DOOR
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-SOUTH-AISLE \?CCL6
+	CALL2	RT-DO-WALK,P?SOUTH
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-JERICHO-PARLOUR \FALSE
+	CALL2	RT-DO-WALK,P?NORTH
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-SHOPS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The shops are closed for the Jubilee."
+?CCL3:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \FALSE
+	PRINTR	"The shops are all closed for the Jubilee."
+
+
+	.FUNCT	RT-AC-LG-WATER,CONTEXT,CLASS,CAP?
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	EQUAL?	CLASS,K-DESC-A \?CCL6
+	PUSH	TRUE-VALUE
+	JUMP	?CND4
+?CCL6:	PUSH	FALSE-VALUE
+?CND4:	ICALL	PRINT-SDESC,STR?823,CLASS,STACK,FALSE-VALUE
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CCL10
+	EQUAL?	GL-PRSA,V?ENTER,V?LEAP \?CCL13
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL16
+	PRINTR	"You may not remember this, but you can't swim."
+?CCL16:	PRINTR	"That's not very polite."
+?CCL13:	EQUAL?	GL-PRSA,V?DRINK \?CCL18
+	PRINT	K-YUCK-MSG
+	CRLF	
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSA,V?EXAMINE \?CCL20
+	PRINTR	"The water is black, oily, slimy, dirty, and otherwise unwholesome-looking."
+?CCL20:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL22
+	PRINTR	"The water is so black and oily that you can't see a thing."
+?CCL22:	EQUAL?	GL-PRSA,V?REACH-IN,V?SEARCH \?CCL24
+	PRINTR	"Slimy things brush up against your hand, so you quickly pull it back."
+?CCL24:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+?CCL10:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	FSET?	GL-PRSO,FL-BODYPART /?CTR33
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL34
+?CTR33:	PRINT	K-YUCK-MSG
+	CRLF	
+	RTRUE	
+?CCL34:	EQUAL?	GL-PRSO,TH-ANCHOR,PSEUDO-OBJECT /?CTR38
+	LOC	GL-PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CCL39
+?CTR38:	ICALL	RT-PERFORM,V?DROP,GL-PRSO
+	RTRUE	
+?CCL39:	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON \?CCL43
+	REMOVE	GL-PRSO
+	ICALL1	RT-KILL-PIGEON
+	PRINTI	"The pigeon struggles briefly, its feathers too wet to fly, then sinks below the water."
+	RTRUE	
+?CCL43:	REMOVE	GL-PRSO
+	FCLEAR	GL-PRSO,FL-WORN
+	PRINTR	"Plop."
+
+
+	.FUNCT	RT-AC-LG-UP-DOWN-STREAM,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	GETP	LG-UP-DOWN-STREAM,P?OBJ-NOUN
+	PRINTB	STACK
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-AC-LG-BRITISH-MUSEUM-DOOR
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL6
+	CALL2	RT-DO-WALK,P?NORTH
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-BRITISH-MUSEUM \FALSE
+	CALL2	RT-DO-WALK,P?SOUTH
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-WESTMINSTER-DOOR
+	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY \?CCL6
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-NAVE \FALSE
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-PLAQUES,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It looks mighty like a plaque."
+?CCL3:	EQUAL?	GL-PRSA,V?TAKE \?CCL5
+	PRINTI	"The plaque is firmly attached to the "
+	EQUAL?	GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \?CCL8
+	PRINTI	"desk"
+	JUMP	?CND6
+?CCL8:	PRINTI	"wall"
+?CND6:	PRINTR	". You can't remove it."
+?CCL5:	EQUAL?	GL-PRSA,V?READ,V?EXAMINE \?CCL10
+	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY \?CCL13
+	SET	'GL-WINDOW,PT?307
+	JUMP	?CND11
+?CCL13:	EQUAL?	GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \?CCL15
+	SET	'GL-WINDOW,PT?407
+	JUMP	?CND11
+?CCL15:	EQUAL?	GL-PLACE-CUR,RM-MADAME-TUSSAUDS \?CCL17
+	SET	'GL-WINDOW,PT?507
+	JUMP	?CND11
+?CCL17:	EQUAL?	GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL19
+	SET	'GL-WINDOW,PT?607
+	JUMP	?CND11
+?CCL19:	EQUAL?	GL-PLACE-CUR,RM-MONUMENT \?CCL21
+	SET	'GL-WINDOW,PT?707
+	JUMP	?CND11
+?CCL21:	EQUAL?	GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \?CCL23
+	SET	'GL-WINDOW,PT?807
+	JUMP	?CND11
+?CCL23:	EQUAL?	GL-PLACE-CUR,RM-THREADNEEDLE-ST \?CCL25
+	SET	'GL-WINDOW,PT?907
+	JUMP	?CND11
+?CCL25:	EQUAL?	GL-PLACE-CUR,RM-TOWER-ENTRANCE \?CCL27
+	SET	'GL-WINDOW,PT?1007
+	JUMP	?CND11
+?CCL27:	EQUAL?	GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \?CCL29
+	SET	'GL-WINDOW,PT?1107
+	JUMP	?CND11
+?CCL29:	EQUAL?	GL-PLACE-CUR,RM-VICTORIA-STREET \?CCL31
+	SET	'GL-WINDOW,PT?1207
+	JUMP	?CND11
+?CCL31:	EQUAL?	GL-PLACE-CUR,RM-SWAN-LANE \?CCL33
+	SET	'GL-WINDOW,PT?1307
+	JUMP	?CND11
+?CCL33:	EQUAL?	GL-PLACE-CUR,RM-JERUSALEM-CHAMBER \?CCL35
+	SET	'GL-WINDOW,PT?1407
+	JUMP	?CND11
+?CCL35:	SET	'GL-WINDOW,PT?1607
+?CND11:	ICALL2	RT-WINDOW,GL-WINDOW
+	SET	'GL-WINDOW,FALSE-VALUE
+	RTRUE	
+?CCL10:	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	PRINTI	"Putting anything on "
+	ICALL2	RT-THEO-PRINT,LG-PLAQUES
+	PRINTI	" would"
+	CALL1	RT-WASTE-OF-TIME-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-DF-LG-WAX-STATUES,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?824,CLASS,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MADAME-TUSSAUDS \?CCL8
+	PRINTR	"The statues are of King John, Sir Francis Drake, Sir Walter Raleigh, and William the Conqueror."
+?CCL8:	EQUAL?	GL-PLACE-CUR,RM-CHAMBER-OF-HORRORS \FALSE
+	PRINTR	"The statues are of Guy Fawkes, Charles I, and Saint Thomas Becket."
+
+
+	.FUNCT	RT-AC-LG-WINDOW,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL6
+	PRINTR	"It is a bow window, far above your head."
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-SOUTH-TRANSEPT \?CCL8
+	PRINTI	"It is the largest rose window in all England"
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND9
+	PRINT	K-BRIGHTENS-UP-MSG
+?CND9:	PRINTR	"."
+?CCL8:	EQUAL?	GL-PLACE-CUR,RM-NORTH-TRANSEPT \FALSE
+	PRINTI	"It is set high in the north wall of the Abbey"
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND13
+	PRINT	K-BRIGHTENS-UP-MSG
+?CND13:	PRINTR	"."
+?CCL3:	EQUAL?	GL-PRSA,V?SHOOT \?CCL16
+	ZERO?	GL-NOW-PRSI? \?CCL16
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+?CCL16:	IN?	GL-WINNER,RM-SOUTH-TRANSEPT /?CTR19
+	IN?	GL-WINNER,RM-NORTH-TRANSEPT \?CCL20
+?CTR19:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-OUTSIDE \?CCL25
+	PRINTR	"You cannot see through the stained-glass window."
+?CCL25:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	ICALL2	RT-CTHEO-PRINT,LG-WINDOW
+	PRINTR	" is too high."
+?CCL20:	IN?	GL-WINNER,RM-221B-BAKER-ST \?CCL29
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL32
+	ICALL2	RT-CTHEO-PRINT,LG-WINDOW
+	PRINTR	" is too high."
+?CCL32:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE,V?SEARCH \FALSE
+	ICALL2	RT-CTHEO-PRINT,LG-WINDOW
+	PRINTR	" is too high to see in."
+?CCL29:	IN?	GL-WINNER,RM-HOLMES-STUDY \FALSE
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE,V?SEARCH \?CCL39
+	PRINTI	"You look down into Baker Street."
+	CRLF	
+	CALL2	RT-DESCRIBE-PLACE-CONTENTS,RM-221B-BAKER-ST
+	RSTACK	
+?CCL39:	EQUAL?	GL-PRSA,V?MUNG \?CCL41
+	ICALL2	RT-CTHEO-PRINT,LG-WINDOW
+	PRINTR	" is made of reinforced glass. It can't be broken."
+?CCL41:	EQUAL?	GL-PRSA,V?OPEN \FALSE
+	ICALL2	RT-CTHEO-PRINT,LG-WINDOW
+	PRINTR	" is jammed shut. It can't be opened."
+
+
+	.FUNCT	RT-AC-LG-TOMBS-ABBEY,CONTEXT
+	GETP	LG-TOMBS-ABBEY,P?OBJ-NOUN
+	EQUAL?	STACK,W?ABBEY \?CCL3
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	PRINTI	"Abbey"
+	RTRUE	
+?CCL6:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL10
+	EQUAL?	GL-PLACE-CUR,RM-NAVE \?CCL13
+	CALL1	RT-ALREADY-IN-ROOM-MSG
+	RSTACK	
+?CCL13:	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY \FALSE
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+?CCL10:	EQUAL?	GL-PRSA,V?EXIT \?CCL17
+	EQUAL?	GL-PLACE-CUR,RM-NAVE \?CCL20
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+?CCL20:	CALL1	RT-NOT-IN-ROOM-MSG
+	RSTACK	
+?CCL17:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL25
+	PRINTI	"tombs"
+	RTRUE	
+?CCL25:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CTR26
+	EQUAL?	GL-PLACE-CUR,RM-JERICHO-PARLOUR,RM-JERUSALEM-CHAMBER,RM-NORTH-CLOISTER \?CCL27
+?CTR26:	ICALL2	RT-CANT-SEE-ANY-MSG,LG-TOMBS-ABBEY
+	RTRUE	
+?CCL27:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL31
+	EQUAL?	GL-PLACE-CUR,RM-SOUTH-AMBULATORY,RM-NORTH-AMBULATORY \?CCL34
+	PRINTR	"There are so many of them! None stands out in particular."
+?CCL34:	EQUAL?	GL-PLACE-CUR,RM-CONFESSOR-CHAPEL \?CCL36
+	PRINTR	"Two of them are especially interesting. One is the tomb of Edward the Confessor. The other is of Henry V."
+?CCL36:	PRINTR	"One tomb in particular catches your eye."
+?CCL31:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-SHOOT-DEAD-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-STREETLIGHT
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL3
+	ICALL2	RT-CTHEO-PRINT,LG-STREETLIGHT
+	PRINTR	" is too high."
+?CCL3:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-STAIRWAY
+	EQUAL?	GL-PRSA,V?CLIMB-UP \?CCL3
+	CALL2	RT-DO-WALK,P?UP
+	RSTACK	
+?CCL3:	EQUAL?	GL-PRSA,V?CLIMB-DOWN \FALSE
+	CALL2	RT-DO-WALK,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-SHAFT-OF-LIGHT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"Well, it's not really a shaft of light. It's more like a diffused murkiness. But any light that penetrates an English church from the outside counts as a shaft."
+?CCL3:	ZERO?	GL-NOW-PRSI? \?CCL5
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+?CCL5:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT \FALSE
+	EQUAL?	GL-PRSO,TH-MAGNIFYING-GLASS \?CCL16
+	CALL1	RT-WHO-SAYS?
+	EQUAL?	STACK,CH-HOLMES \?CCL19
+	PRINTR	"""Your Afghan experience is showing, Watson. The hot sun there would surely produce rays capable, when focused, of producing a flame. Alas, our English sun is too weak to produce such an effect."""
+?CCL19:	PRINTR	"The rays from England's sun are too weak to focus."
+?CCL16:	EQUAL?	GL-PRSO,TH-GREEN-PAPER,TH-WHITE-PAPER,TH-BLUE-PAPER /FALSE
+	EQUAL?	GL-PRSO,TH-ORANGE-PAPER,TH-YELLOW-PAPER,TH-BROWN-PAPER /FALSE
+	PRINTI	"Putting "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" in "
+	ICALL1	RT-THEI-PRINT
+	CALL1	RT-WASTE-OF-TIME-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-LG-RAVENS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The ravens stare at you with baleful eyes."
+?CCL3:	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+	ICALL2	RT-CTHEO-PRINT,LG-RAVENS
+	PRINTR	" caw raucously in response."
+?CCL5:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL10
+	ICALL2	RT-CTHEO-PRINT,LG-RAVENS
+	PRINTR	" fly out of reach."
+?CCL10:	EQUAL?	GL-PRSA,V?SHOOT \?CCL12
+	ICALL	RT-SHOOT-BIRDS,LG-RAVENS,STR?825
+	RTRUE	
+?CCL12:	EQUAL?	GL-PRSA,V?LISTEN \FALSE
+	PRINTR	"None of the ravens is quothing ""Nevermore."""
+
+
+	.FUNCT	RT-DF-LG-BOATS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL5
+	ICALL2	RT-CTHEO-PRINT,LG-BOATS
+	PRINTR	" are shrouded in fog."
+?CCL5:	ICALL2	RT-CTHEO-PRINT,LG-BOATS
+	PRINTR	" bob merrily on the river."
+
+
+	.FUNCT	RT-AC-LG-HOLMES-HOUSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL,RM-PARLOUR,RM-VESTIBULE /?CTR5
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY,RM-HOLMES-BEDROOM \?CCL6
+?CTR5:	ICALL1	RT-ALREADY-IN-ROOM-MSG
+	RTRUE	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \?CCL15
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL15:	EQUAL?	GL-PLACE-CUR,RM-PARLOUR,RM-VESTIBULE,RM-HOLMES-STUDY /?CTR16
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-BEDROOM \?CCL17
+?CTR16:	PRINT	K-SPECIFY-DIR-MSG
+	CRLF	
+	RTRUE	
+?CCL17:	ICALL1	RT-NOT-IN-ROOM-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-AC-LG-PEDESTAL,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?826,CLASS,FALSE-VALUE,FALSE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \FALSE
+	PRINTR	"On the pedestal you see a bronze relief."
+
+
+	.FUNCT	RT-AC-LG-TOWER
+	EQUAL?	GL-PRSA,V?ENTER \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-BYWARD-TOWER,RM-BLOODY-TOWER,RM-WAKEFIELD-TOWER /?CTR5
+	EQUAL?	GL-PLACE-CUR,RM-JEWEL-ROOM,RM-DUNGEON,RM-TORTURE-ROOM /?CTR5
+	EQUAL?	GL-PLACE-CUR,RM-WHITE-TOWER,RM-BOWYER-TOWER \?CCL6
+?CTR5:	CALL1	RT-ALREADY-IN-ROOM-MSG
+	RSTACK	
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-OUTER-WARD,RM-TOWER-GREEN \?CCL11
+	PRINT	K-SPECIFY-DIR-MSG
+	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	GL-PLACE-CUR,RM-OUTSIDE-TRAITORS-GATE \?CCL13
+	CALL2	RT-DO-WALK,P?NORTH
+	RSTACK	
+?CCL13:	EQUAL?	GL-PLACE-CUR,RM-DRAWBRIDGE,RM-TOWER-ENTRANCE \FALSE
+	CALL2	RT-DO-WALK,P?EAST
+	RSTACK	
+?CCL3:	EQUAL?	GL-PRSA,V?EXIT \?CCL17
+	EQUAL?	GL-PLACE-CUR,RM-BLOODY-TOWER,RM-WAKEFIELD-TOWER,RM-WHITE-TOWER /?CTR19
+	EQUAL?	GL-PLACE-CUR,RM-BOWYER-TOWER,RM-BYWARD-TOWER \?CCL20
+?CTR19:	CALL2	RT-DO-WALK,P?OUT
+	RSTACK	
+?CCL20:	EQUAL?	GL-PLACE-CUR,RM-DUNGEON,RM-TORTURE-ROOM \?CCL24
+	CALL2	RT-DO-WALK,P?UP
+	RSTACK	
+?CCL24:	EQUAL?	GL-PLACE-CUR,RM-JEWEL-ROOM \?CCL26
+	CALL2	RT-DO-WALK,P?DOWN
+	RSTACK	
+?CCL26:	EQUAL?	GL-PLACE-CUR,RM-INSIDE-TRAITORS-GATE \?CCL28
+	CALL2	RT-DO-WALK,P?SOUTH
+	RSTACK	
+?CCL28:	EQUAL?	GL-PLACE-CUR,RM-OUTER-WARD,RM-TOWER-GREEN \?CCL30
+	PRINT	K-SPECIFY-DIR-MSG
+	CRLF	
+	RTRUE	
+?CCL30:	CALL1	RT-NOT-IN-ROOM-MSG
+	RSTACK	
+?CCL17:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+
+	.ENDI
diff --git a/locals.zil b/locals.zil
new file mode 100644
index 0000000..3f98ddf
--- /dev/null
+++ b/locals.zil
@@ -0,0 +1,691 @@
+;******************************************************************************
+; "game : SHERLOCK!"
+; "file : LOCALS.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   26 Oct 1987  7:15:02  $"
+; "rev  : $Revision:   1.51  $"
+; "vers : 1.00"
+;******************************************************************************
+
+<OBJECT LG-BAKER-ST-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "front door")
+   (FLAGS FL-DOOR FL-OPENABLE FL-LOCKED)
+   (SYNONYM DOOR)
+   (ADJECTIVE FRONT HOLMES\' HOLMES\'S SHERLOCK)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-BAKER-ST-DOOR)>
+
+<OBJECT LG-PARLOUR-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "parlour door")
+   (FLAGS FL-DOOR FL-OPENABLE)
+   (SYNONYM DOOR)
+   (ADJECTIVE PARLOUR PARLOR)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-PARLOUR-DOOR)>
+
+<OBJECT LG-HOLMES-STUDY-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "study door")
+   (FLAGS FL-DOOR FL-OPENABLE FL-OPENED)
+   (SYNONYM DOOR)
+   (ADJECTIVE STUDY HOLMES\'S HOLMES\' SHERLOCK)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-HOLMES-STUDY-DOOR)>
+
+<OBJECT LG-HOLMES-BEDROOM-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "bedroom door")
+   (FLAGS FL-DOOR FL-OPENABLE FL-LOCKED)
+   (SYNONYM DOOR)
+   (ADJECTIVE BEDROOM HOLMES\'S HOLMES\' SHERLOCK)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-HOLMES-BEDROOM-DOOR)>
+
+<OBJECT LG-BANK-VAULT-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "vault door")
+   (FLAGS FL-DOOR FL-OPENABLE FL-LOCKED FL-HAS-DESCFCN)
+   (SYNONYM DOOR)
+   (ADJECTIVE VAULT)
+   (VALUE 3)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-BANK-VAULT-DOOR)>
+
+<OBJECT LG-BAR-OF-GOLD-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "door")
+   (FLAGS FL-DOOR FL-OPENABLE FL-OPENED)
+   (SYNONYM DOOR)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-BAR-OF-GOLD-DOOR)>
+
+<OBJECT LG-LAIR-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "door")
+   (FLAGS FL-DOOR FL-OPENABLE FL-LOCKED)
+   (SYNONYM DOOR)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-LAIR-DOOR)>
+
+<OBJECT LG-JERICHO-PARLOUR-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "door to the Jericho Parlour")
+   (FLAGS FL-DOOR FL-OPENABLE)
+   (SYNONYM DOOR)
+   (ADJECTIVE JERICHO PARLOUR PARLOR)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-JERICHO-PARLOUR-DOOR)>
+
+<OBJECT LG-BRITISH-MUSEUM-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "door")
+   (FLAGS FL-DOOR FL-LOCKED FL-OPENABLE)
+   (SYNONYM DOOR)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-BRITISH-MUSEUM-DOOR)>
+
+<OBJECT LG-WESTMINSTER-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "Abbey door")
+   (FLAGS FL-DOOR FL-LOCKED FL-OPENABLE)
+   (SYNONYM DOOR)
+   (GENERIC RT-GN-DOOR)
+   (ACTION RT-AC-LG-WESTMINSTER-DOOR)>
+
+<OBJECT LG-SHOPS
+   (LOC LOCAL-GLOBALS)
+   (DESC "shops")
+   (FLAGS FL-PLURAL FL-HAS-DESCFCN)
+   (SYNONYM SHOPS STORES EMPORIUMS WINDOWS WINDOW SHOP STORE)
+   (ACTION RT-AC-LG-SHOPS)>
+
+<OBJECT LG-WATER
+   (LOC LOCAL-GLOBALS)
+   (FLAGS FL-NODESC FL-CONTAINER FL-OPENED FL-SURFACE FL-HAS-SDESC
+	  FL-NOARTC)
+   (SYNONYM WATER RIVER THAMES)
+   (SIZE 0 CAPACITY 100)
+   (ACTION RT-AC-LG-WATER)>
+
+<OBJECT LG-UP-DOWN-STREAM
+   (LOC LOCAL-GLOBALS)
+   (FLAGS FL-NODESC FL-HAS-SDESC FL-NEEDS-IDENTITY)
+   (OBJ-NOUN 0)
+   (OBJ-ADJ 0)
+   (SYNONYM UPSTREAM DOWNSTREAM)
+   (ACTION RT-AC-LG-UP-DOWN-STREAM)>
+
+<OBJECT LG-PLAQUES
+   (LOC LOCAL-GLOBALS)
+   (DESC "sign")
+   (FLAGS FL-TRYTAKE FL-NOALL FL-SURFACE FL-HAS-DESCFCN)
+   (SYNONYM PLAQUE PLATE SIGN RELIEF)
+   (SIZE 0 CAPACITY 999)
+   (ACTION RT-AC-LG-PLAQUES)>
+
+<OBJECT LG-WINDOW
+   (LOC LOCAL-GLOBALS)
+   (DESC "window")
+   (FLAGS FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN FL-OPENABLE FL-TRANSPARENT)
+   (SYNONYM WINDOW)
+   (ADJECTIVE BOW)
+   (ACTION RT-AC-LG-WINDOW)>
+
+<OBJECT LG-TOMBS-ABBEY
+   (LOC LOCAL-GLOBALS)
+   (FLAGS FL-TRYTAKE FL-PLURAL FL-NOALL FL-HAS-DESCFCN
+	  FL-HAS-SDESC FL-NEEDS-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (ADJECTIVE WESTMINSTER)
+   (SYNONYM TOMBS SCULPTURES STATUES TOMB ABBEY)
+   (ACTION RT-AC-LG-TOMBS-ABBEY)>
+
+<OBJECT LG-STREETLIGHT
+   (LOC LOCAL-GLOBALS)
+   (DESC "streetlight")
+   (FLAGS FL-TRYTAKE FL-NOALL FL-TRANSPARENT)
+   (SYNONYM LIGHT LAMP STREETLIGHT STREETLAMP STREET-LIGHT GASLIGHT GAS-LIGHT)
+   (ADJECTIVE GAS)
+   (ACTION RT-AC-LG-STREETLIGHT)>
+
+<OBJECT LG-STAIRWAY
+   (LOC LOCAL-GLOBALS)
+   (DESC "stairway")
+   (FLAGS FL-TRYTAKE FL-NOALL)
+   (SYNONYM STAIRWAY STAIR STAIRS STEP STEPS)
+   (ACTION RT-AC-LG-STAIRWAY)>
+
+<OBJECT LG-SHAFT-OF-LIGHT
+   (LOC LOCAL-GLOBALS)
+   (DESC "shaft of light")
+   (FLAGS FL-NODESC FL-HAS-DESCFCN)
+   (SYNONYM SHAFT LIGHT SUNLIGHT)
+   (ADJECTIVE SHAFT LIGHT SUNLIGHT)
+   (ACTION RT-AC-LG-SHAFT-OF-LIGHT)>
+
+<OBJECT LG-MARBLE
+   (LOC LOCAL-GLOBALS)
+   (DESC "marble")
+   (FLAGS FL-NODESC)
+   (SYNONYM MARBLE)>
+
+<OBJECT LG-COLUMNS
+   (LOC LOCAL-GLOBALS)
+   (DESC "columns")
+   (FLAGS FL-TRYTAKE FL-PLURAL FL-NOALL)
+   (SYNONYM COLUMNS COLUMN)
+   (ADJECTIVE PURBECK)>
+
+<OBJECT LG-RAVENS
+   (LOC LOCAL-GLOBALS)
+   (DESC "ravens")
+   (FLAGS FL-NODESC FL-PLURAL FL-ALIVE FL-TRYTAKE FL-HAS-DESCFCN)
+   (SYNONYM RAVENS BIRDS ROOKS RAVEN ROOK BIRD)
+   (ADJECTIVE FLOCK GROUP BUNCH GAGGLE)
+   (SIZE 50 MASS 250)
+   (ACTION RT-AC-LG-RAVENS)>
+
+<OBJECT LG-BOATS
+   (LOC LOCAL-GLOBALS)
+   (DESC "boats")
+   (FLAGS FL-NODESC FL-HAS-DESCFCN)
+   (SYNONYM BOATS SHIPS)
+   (ADJECTIVE PLEASURE)
+   (ACTION RT-DF-LG-BOATS)>
+
+<OBJECT LG-TOWER
+   (LOC LOCAL-GLOBALS)
+   (DESC "Tower")
+   (SYNONYM TOWER LONDON)
+   (ADJECTIVE TOWER LONDON)
+   (GENERIC RT-GN-TOWER)
+   (ACTION RT-AC-LG-TOWER)>
+
+<ROUTINE RT-AC-LG-BAKER-ST-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-BAKER-ST-DOOR">>
+	<COND (<MC-VERB? KNOCK>
+	       <COND (<MC-HERE? ,RM-ENTRY-HALL>
+		      <TELL "You are already inside." CR>)
+		     (<MC-IS? ,LG-BAKER-ST-DOOR ,FL-OPENED>
+		      <TELL "The door is already open." CR>)
+		     (<MC-IS? ,CH-HUDSON ,FL-ASLEEP>
+		      <TELL "There is no answer." CR>)
+		     (<MC-ISNOT? ,LG-BAKER-ST-DOOR ,FL-LOCKED>
+		      <MC-MAKE ,LG-BAKER-ST-DOOR ,FL-OPENED>
+		      <MOVE ,CH-HUDSON ,RM-ENTRY-HALL>
+		      <RT-THIS-IS-IT ,CH-HUDSON>
+		      <TELL
+"Mrs Hudson appears and says, \"Please come in Dr Watson.\" She
+steps back into the hall to allow room for you to pass." CR>)
+		     (T
+		      <MC-UNMAKE ,LG-BAKER-ST-DOOR ,FL-LOCKED>
+		      <SETG GL-PLACE-CUR ,RM-ENTRY-HALL>
+		      <MOVE ,CH-HUDSON ,GL-PLACE-CUR>
+		      <MOVE ,CH-PLAYER ,GL-PLACE-CUR>
+		      <RT-THIS-IS-IT ,CH-HUDSON>
+		      <TELL
+"You hear a bolt sliding back and the door opens to reveal a worried
+Mrs Hudson." CR CR
+
+"\"Oh Doctor Watson, I'm so glad to see you. It's Mr
+Holmes, sir. Three days have come and gone since he's been out of his
+rooms. He won't eat and I know he hasn't slept. Now there's a visitor
+who says he's here about some important government business. I tried
+to send him away, but he insisted on waiting in the parlour. That's
+when I sent for you. Thank God you've come.\"" CR>
+		      <RT-EXEC-RM-DESCFCN ,RM-ENTRY-HALL ,K-M-DESC-1>
+		      <CRLF>)>)
+	      (<MC-VERB? KICK HIT MUNG>
+	       <COND (<MC-HERE? ,RM-ENTRY-HALL>
+		      <RFALSE>)
+		     (<MC-ISNOT? ,LG-BAKER-ST-DOOR ,FL-OPENED>
+		      <TELL
+"Mrs Hudson pokes her head out the door and says, \"I'm not opening the door
+until you knock like a proper gentleman.\" She slams the door in your
+face." CR>)>)
+	      (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-221B-BAKER-ST>
+		      <RT-DO-WALK ,P?WEST>)
+		     (<MC-HERE? ,RM-ENTRY-HALL>
+		      <RT-DO-WALK ,P?EAST>)>)>>
+
+<ROUTINE RT-AC-LG-PARLOUR-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-PARLOUR-DOOR">>
+	<COND (<MC-VERB? OPEN>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <TELL CTHE ,CH-HUDSON ,K-HUDSON-WORRIED-MSG CR>)>)
+	      (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-PARLOUR>
+		      <RT-DO-WALK ,P?SOUTH>)
+		     (<MC-HERE? ,RM-ENTRY-HALL>
+		      <RT-DO-WALK ,P?NORTH>)>)>>
+
+<ROUTINE RT-AC-LG-HOLMES-STUDY-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-HOLMES-STUDY-DOOR">>
+	<COND (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-VESTIBULE>
+		      <RT-DO-WALK ,P?NORTH>)
+		     (<MC-HERE? ,RM-HOLMES-STUDY>
+		      <RT-DO-WALK ,P?SOUTH>)>)>>
+
+<ROUTINE RT-AC-LG-HOLMES-BEDROOM-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-HOLMES-BEDROOM-DOOR">>
+	<COND (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-HOLMES-STUDY>
+		      <RT-DO-WALK ,P?WEST>)
+		     (<MC-HERE? ,RM-HOLMES-BEDROOM>
+		      <RT-DO-WALK ,P?EAST>)>)>>
+
+<ROUTINE RT-AC-LG-BAR-OF-GOLD-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-BAR-OF-GOLD-DOOR">>
+	<COND (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-BAR-OF-GOLD>
+		      <RT-DO-WALK ,P?EAST>)
+		     (<MC-HERE? ,RM-SWAN-LANE>
+		      <RT-DO-WALK ,P?WEST>)>)>>
+
+<ROUTINE RT-AC-LG-LAIR-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-LAIR-DOOR">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-VERB? ENTER THROUGH OPEN CLOSE UNLOCK LOCK>
+			   <MC-ISNOT? ,CH-AKBAR ,FL-LOCKED>
+			   <MC-ISNOT? ,CH-AKBAR ,FL-ASLEEP>>
+		      <TELL "Akbar">
+		      <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			     <TELL " says, \"Forgive me, sir,\" and">)>
+		      <TELL " stops you as you move toward the door." CR>)
+		     (<AND <MC-VERB? OPEN>
+			   <MC-IS? ,CH-HOLMES ,FL-LOCKED>>
+		      <TELL
+"Holmes calls out, \"Watson! I'm still tied up!\" You pause and look back,
+torn by indecision." CR>)
+		     (<MC-VERB? ENTER THROUGH>
+		      <COND (<MC-HERE? ,RM-LAIR>
+			     <RT-DO-WALK ,P?OUT>)>)
+		     (<AND <MC-VERB? UNLOCK>
+			   <MC-PRSI? ,TH-LAIR-KEY>
+			   <MC-IS? ,LG-LAIR-DOOR ,FL-LOCKED>>
+		      <MC-UNMAKE ,LG-LAIR-DOOR ,FL-LOCKED>
+		      <RT-CYOU-MSG "unlock" "unlocks">
+		      <TELL THE ,LG-LAIR-DOOR "." CR>)
+		     (<AND <MC-VERB? LOCK>
+			   <MC-PRSI? ,TH-LAIR-KEY>
+			   <MC-ISNOT? ,LG-LAIR-DOOR ,FL-OPENED>
+			   <MC-ISNOT? ,LG-LAIR-DOOR ,FL-LOCKED>>
+		      <MC-MAKE ,LG-LAIR-DOOR ,FL-LOCKED>
+		      <RT-CYOU-MSG "lock" "locks">
+		      <TELL THE ,LG-LAIR-DOOR "." CR>)>)>>
+
+<ROUTINE RT-AC-LG-JERICHO-PARLOUR-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-JERICHO-PARLOUR-DOOR">>
+	<COND (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-SOUTH-AISLE>
+		      <RT-DO-WALK ,P?SOUTH>)
+		     (<MC-HERE? ,RM-JERICHO-PARLOUR>
+		      <RT-DO-WALK ,P?NORTH>)>)>>
+
+<ROUTINE RT-AC-LG-SHOPS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-SHOPS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The shops are closed for the Jubilee." CR>)
+	      (<MC-VERB? LOOK-INSIDE SEARCH>
+	       <TELL "The shops are all closed for the Jubilee." CR>)>>
+
+<ROUTINE RT-AC-LG-WATER ("OPT" (CONTEXT <>) (CLASS <>) (CAP? <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-WATER">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "water" .CLASS
+			    <COND (<==? .CLASS ,K-DESC-A> T)
+				  (T <>)>
+			    <>>
+	       <RTRUE>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? ENTER LEAP>
+		      <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+			     <TELL "You may not remember this, but you can't swim." CR>)
+			    (T
+			     <TELL "That's not very polite." CR>)>)
+		     (<MC-VERB? DRINK>
+		      <TELL ,K-YUCK-MSG CR>)
+		     (<MC-VERB? EXAMINE>
+		      <TELL "The water is black, oily, slimy, dirty, and
+otherwise unwholesome-looking." CR>)
+		     (<MC-VERB? LOOK-INSIDE SEARCH>
+		      <TELL
+"The water is so black and oily that you can't see a thing." CR>)
+		     (<MC-VERB? REACH-IN SEARCH>
+		      <TELL
+"Slimy things brush up against your hand, so you quickly pull it back." CR>)
+		     (<MC-VERB? SHOOT>
+		      <RT-WASTE-OF-BULLETS-MSG>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? PUT PUT-ON>
+		      <COND (<OR <MC-IS? ,GL-PRSO ,FL-BODYPART>
+				 <MC-PRSO? ,CH-ME ,CH-PLAYER>>
+			     <TELL ,K-YUCK-MSG CR>)
+			    (T
+			     <COND (<OR <MC-PRSO? ,TH-ANCHOR ,PSEUDO-OBJECT>
+					<EQUAL? <LOC ,GL-PRSO>
+						,GLOBAL-OBJECTS
+						,LOCAL-GLOBALS>>
+				    <RT-PERFORM ,V?DROP ,GL-PRSO>
+				    <RTRUE>)
+				   (<MC-PRSO? ,CH-TRAINED-PIGEON>
+				    <REMOVE ,GL-PRSO>
+				    <RT-KILL-PIGEON>
+				    <TELL "The pigeon struggles briefly,
+its feathers too wet to fly, then sinks below the water.">
+				    <RTRUE>)
+				   (T
+				    <REMOVE ,GL-PRSO>
+				    <FCLEAR ,GL-PRSO ,FL-WORN>
+				    <TELL "Plop." CR>
+				    <RTRUE>)>)>)>)>>
+
+<ROUTINE RT-AC-LG-UP-DOWN-STREAM ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-UPSTREAM">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINTB <GETP ,LG-UP-DOWN-STREAM ,P?OBJ-NOUN>>)
+	      (<MC-VERB? SHOOT>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-LG-BRITISH-MUSEUM-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-BRITISH-MUSEUM-DOOR">>
+	<COND (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-GREAT-RUSSELL-ST>
+		      <RT-DO-WALK ,P?NORTH>)
+		     (<MC-HERE? ,RM-BRITISH-MUSEUM>
+		      <RT-DO-WALK ,P?SOUTH>)>)>>
+
+<ROUTINE RT-AC-LG-WESTMINSTER-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-WESTMINSTER-DOOR">>
+	<COND (<MC-VERB? ENTER THROUGH>
+	       <COND (<MC-HERE? ,RM-BROAD-SANCTUARY>
+		      <RT-DO-WALK ,P?EAST>)
+		     (<MC-HERE? ,RM-NAVE>
+		      <RT-DO-WALK ,P?WEST>)>)>>
+
+<ROUTINE RT-AC-LG-PLAQUES ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-PLAQUES">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It looks mighty like a plaque." CR>)
+	      (<MC-VERB? TAKE>
+	       <TELL "The plaque is firmly attached to the ">
+	       <COND (<EQUAL? ,GL-PLACE-CUR ,RM-MANUSCRIPT-ROOM>
+		      <TELL "desk">)
+		     (T
+		      <TELL "wall">)>
+	       <TELL ". You can't remove it." CR>)
+	      (<MC-VERB? READ EXAMINE>
+	       <COND (<EQUAL? ,GL-PLACE-CUR ,RM-BROAD-SANCTUARY>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-ABBEY>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-MANUSCRIPT-ROOM>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-QUIET>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-MADAME-TUSSAUDS>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-HORRORS>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-GREAT-RUSSELL-ST>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-MUSEUM>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-MONUMENT>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-MONUMENT>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-THE-BLACK-MUSEUM>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-BLIGH>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-THREADNEEDLE-ST>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-BANK>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-TOWER-ENTRANCE>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-TOWER>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-TRAFALGAR-SQUARE>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-NELSON>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-VICTORIA-STREET>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-LOITER>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-SWAN-LANE>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-GOLDBAR>>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-JERUSALEM-CHAMBER>
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-HENRY>>)
+		     ;(<EQUAL? ,GL-PLACE-CUR ,RM-BLIND-ALLEY>
+		       <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-HERRING>>)
+		     (T
+		      <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-BLANK>>)>
+	       <RT-WINDOW ,GL-WINDOW>
+	       <SETG GL-WINDOW <>>
+	       <RTRUE>)
+	      (<AND <MC-VERB? PUT PUT-ON>
+		    <MC-THIS-PRSI?>>
+	       <TELL "Putting anything on " THE ,LG-PLAQUES " would">
+	       <RT-WASTE-OF-TIME-MSG>)>>
+
+<ROUTINE RT-DF-LG-WAX-STATUES ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-LG-DF "LG-WAX-STATUES">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "statues" .CLASS <> T>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<EQUAL? ,GL-PLACE-CUR ,RM-MADAME-TUSSAUDS>
+		      <TELL "The statues are of King John, Sir Francis Drake,
+Sir Walter Raleigh, and William the Conqueror." CR>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-CHAMBER-OF-HORRORS>
+		      <TELL "The statues are of Guy Fawkes, Charles I, and
+Saint Thomas Becket." CR>)>)>>
+
+<ROUTINE RT-AC-LG-WINDOW ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-WINDOW">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<EQUAL? ,GL-PLACE-CUR ,RM-221B-BAKER-ST>
+		      <TELL "It is a bow window, far above your head." CR>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-SOUTH-TRANSEPT>
+		      <TELL "It is the largest rose window in all England">
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+			     <TELL ,K-BRIGHTENS-UP-MSG>)>
+		      <TELL "." CR>)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-NORTH-TRANSEPT>
+		      <TELL "It is set high in the north wall of the Abbey">
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+			     <TELL ,K-BRIGHTENS-UP-MSG>)>
+		      <TELL "." CR>)>)
+	      (<AND <MC-VERB? SHOOT>
+		    <MC-THIS-PRSO?>>
+	       <RT-WASTE-OF-BULLETS-MSG>)
+	      (<OR <IN? ,GL-WINNER ,RM-SOUTH-TRANSEPT>
+		   <IN? ,GL-WINNER ,RM-NORTH-TRANSEPT>>
+	       <COND (<MC-VERB? LOOK-INSIDE SEARCH LOOK-OUTSIDE>
+		      <TELL "You cannot see through the stained-glass window." CR>)
+		     (<RT-TOUCH-VERB?>
+		      <TELL CTHE ,LG-WINDOW " is too high." CR>)>)
+	      (<IN? ,GL-WINNER ,RM-221B-BAKER-ST>
+	       <COND (<RT-TOUCH-VERB?>
+		      <TELL CTHE ,LG-WINDOW " is too high." CR>)
+		     (<MC-VERB? LOOK-INSIDE LOOK-OUTSIDE SEARCH>
+		      <TELL CTHE ,LG-WINDOW " is too high to see in." CR>)>)
+	      (<IN? ,GL-WINNER ,RM-HOLMES-STUDY>
+	       <COND (<MC-VERB? LOOK-INSIDE LOOK-OUTSIDE SEARCH>
+		      <TELL "You look down into Baker Street." CR>
+		      <RT-DESCRIBE-PLACE-CONTENTS ,RM-221B-BAKER-ST>)
+		     (<MC-VERB? MUNG>
+		      <TELL CTHE ,LG-WINDOW
+" is made of reinforced glass. It can't be broken." CR>)
+		     (<MC-VERB? OPEN>
+		      <TELL CTHE ,LG-WINDOW
+" is jammed shut. It can't be opened." CR>)>)>>
+
+<ROUTINE RT-AC-LG-TOMBS-ABBEY ("OPT" (CONTEXT <>))
+  <COND (<==? <GETP ,LG-TOMBS-ABBEY ,P?OBJ-NOUN> ,W?ABBEY>
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "Abbey">)
+	       (<T? .CONTEXT> <RFALSE>)
+	       (<MC-VERB? ENTER>
+		<COND (<MC-HERE? ,RM-NAVE>
+		       <RT-ALREADY-IN-ROOM-MSG>)
+		      (<MC-HERE? ,RM-BROAD-SANCTUARY>
+		       <RT-DO-WALK ,P?EAST>)>)
+	       (<MC-VERB? EXIT>
+		<COND (<MC-HERE? ,RM-NAVE>
+		       <RT-DO-WALK ,P?WEST>)
+		      (T
+		       <RT-NOT-IN-ROOM-MSG>)>)
+	       (<MC-VERB? SHOOT>
+		<RT-IMPOSSIBLE-MSG>)>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "tombs">)
+	       (<OR <NOT <FSET? ,GL-PLACE-CUR ,FL-INDOORS>>
+		    <EQUAL? ,GL-PLACE-CUR ,RM-JERICHO-PARLOUR
+			    ,RM-JERUSALEM-CHAMBER
+			    ,RM-NORTH-CLOISTER>>
+		<RT-CANT-SEE-ANY-MSG ,LG-TOMBS-ABBEY>
+		<RTRUE>)
+	       (<==? .CONTEXT ,K-M-DESCFCN>
+		<COND
+		 (<EQUAL? ,GL-PLACE-CUR ,RM-SOUTH-AMBULATORY
+			  ,RM-NORTH-AMBULATORY>
+		  <TELL
+"There are so many of them! None stands out in particular." CR>)
+		 (<EQUAL? ,GL-PLACE-CUR ,RM-CONFESSOR-CHAPEL>
+		  <TELL
+"Two of them are especially interesting. One is the tomb of Edward
+the Confessor. The other is of Henry V." CR>)
+		 (T
+		  <TELL "One tomb in particular catches your eye." CR>)>)
+	       (<MC-THIS-PRSO?>
+		<COND (<MC-VERB? SHOOT>
+		       <RT-SHOOT-DEAD-MSG>)>)>)>>
+
+<ROUTINE RT-AC-LG-STREETLIGHT ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-STREETLIGHT">>
+	<COND (<RT-TOUCH-VERB?>
+	       <TELL CTHE ,LG-STREETLIGHT " is too high." CR>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? SHOOT>
+		      <RT-WASTE-OF-BULLETS-MSG>)>)>>
+
+<ROUTINE RT-AC-LG-STAIRWAY ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-STAIRWAY">>
+	<COND (<MC-VERB? CLIMB-UP>
+	       <RT-DO-WALK ,P?UP>)
+	      (<MC-VERB? CLIMB-DOWN>
+	       <RT-DO-WALK ,P?DOWN>)>>
+
+<ROUTINE RT-AC-LG-SHAFT-OF-LIGHT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-SHAFT-OF-LIGHT">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"Well, it's not really a shaft of light. It's more like a diffused
+murkiness. But any light that penetrates an English church from the outside
+counts as a shaft." CR>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? SHOOT>
+		      <RT-WASTE-OF-BULLETS-MSG>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? PUT>
+		      <COND (<MC-PRSO? ,TH-MAGNIFYING-GLASS>
+			     <COND (<EQUAL? <RT-WHO-SAYS?> ,CH-HOLMES>
+				    <TELL
+"\"Your Afghan experience is showing, Watson. The hot sun there would surely
+produce rays capable, when focused, of producing a flame. Alas, our English
+sun is too weak to produce such an effect.\"">)
+				   (T
+				    <TELL
+"The rays from England's sun are too weak to focus.">)>
+			     <CRLF>)
+			    (<MC-PRSO? ,TH-GREEN-PAPER
+				       ,TH-WHITE-PAPER
+				       ,TH-BLUE-PAPER
+				       ,TH-ORANGE-PAPER
+				       ,TH-YELLOW-PAPER
+				       ,TH-BROWN-PAPER>
+			     <RFALSE>)
+			    (T
+			     <TELL "Putting " THEO " in " THEI>
+			     <RT-WASTE-OF-TIME-MSG>)>)>)>>
+
+<ROUTINE RT-AC-LG-RAVENS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "LG-RAVENS" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The ravens stare at you with baleful eyes." CR>)
+	      (<MC-THIS-WINNER?>
+	       <TELL CTHE ,LG-RAVENS " caw raucously in response." CR>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? TAKE>
+		      <TELL CTHE ,LG-RAVENS " fly out of reach." CR>)
+		     (<MC-VERB? SHOOT>
+		      <RT-SHOOT-BIRDS ,LG-RAVENS "staring at you">
+		      <RTRUE>)
+		     (<MC-VERB? LISTEN>
+		      <TELL "None of the ravens is quothing \"Nevermore.\"" CR>)>)>>
+
+<ROUTINE RT-DF-LG-BOATS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "LG-BOATS" .CONTEXT>>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL CTHE ,LG-BOATS " are shrouded in fog." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL CTHE ,LG-BOATS " bob merrily on the river." CR>)>>
+
+<ROUTINE RT-AC-LG-HOLMES-HOUSE ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-HOLMES-HOUSE">>
+	<COND (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-ENTRY-HALL ,RM-PARLOUR
+				,RM-VESTIBULE ,RM-HOLMES-STUDY
+				,RM-HOLMES-BEDROOM>
+		      <RT-ALREADY-IN-ROOM-MSG>
+		      <RTRUE>)
+		     (<MC-HERE? ,RM-221B-BAKER-ST>
+		      <RT-DO-WALK ,P?WEST>
+		      <RTRUE>)>)
+		(<MC-VERB? EXIT>
+		 <COND (<MC-HERE? ,RM-ENTRY-HALL>
+			<RT-DO-WALK ,P?EAST>
+			<RTRUE>)
+		       (<MC-HERE? ,RM-PARLOUR ,RM-VESTIBULE
+				  ,RM-HOLMES-STUDY ,RM-HOLMES-BEDROOM>
+			<TELL ,K-SPECIFY-DIR-MSG CR>
+			<RTRUE>)
+		       (T
+			<RT-NOT-IN-ROOM-MSG>
+			<RTRUE>)>)>>
+
+<ROUTINE RT-AC-LG-PEDESTAL ("OPT" (CONTEXT <>) (CLASS <>))
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "pedestal" .CLASS <> <>>
+	       <RTRUE>)
+	      (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)
+	      (<EQUAL? ,GL-PLACE-CUR ,RM-TRAFALGAR-SQUARE>
+	       <TELL "On the pedestal you see a bronze relief." CR>)>>
+
+<ROUTINE RT-AC-LG-TOWER ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-TOWER">>
+	<COND (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-BYWARD-TOWER ,RM-BLOODY-TOWER
+			        ,RM-WAKEFIELD-TOWER ,RM-JEWEL-ROOM
+			        ,RM-DUNGEON ,RM-TORTURE-ROOM ,RM-WHITE-TOWER
+ 			        ,RM-BOWYER-TOWER>
+		      <RT-ALREADY-IN-ROOM-MSG>)
+		     (<MC-HERE? ,RM-OUTER-WARD ,RM-TOWER-GREEN>
+		      <TELL ,K-SPECIFY-DIR-MSG CR>)
+		     (<MC-HERE? ,RM-OUTSIDE-TRAITORS-GATE>
+		      <RT-DO-WALK ,P?NORTH>)
+		     (<MC-HERE? ,RM-DRAWBRIDGE ,RM-TOWER-ENTRANCE>
+		      <RT-DO-WALK ,P?EAST>)>)
+	      (<MC-VERB? EXIT>
+	       <COND (<MC-HERE? ,RM-BLOODY-TOWER ,RM-WAKEFIELD-TOWER
+			        ,RM-WHITE-TOWER ,RM-BOWYER-TOWER
+			        ,RM-BYWARD-TOWER>
+		      <RT-DO-WALK ,P?OUT>)
+		     (<MC-HERE? ,RM-DUNGEON ,RM-TORTURE-ROOM>
+		      <RT-DO-WALK ,P?UP>)
+		     (<MC-HERE? ,RM-JEWEL-ROOM>
+		      <RT-DO-WALK ,P?DOWN>)
+		     (<MC-HERE? ,RM-INSIDE-TRAITORS-GATE>
+		      <RT-DO-WALK ,P?SOUTH>)
+		     (<MC-HERE? ,RM-OUTER-WARD RM-TOWER-GREEN>
+		      <TELL ,K-SPECIFY-DIR-MSG CR>)
+		     (T
+		      <RT-NOT-IN-ROOM-MSG>)>)
+	      (<MC-VERB? SHOOT>
+	       <RT-IMPOSSIBLE-MSG>)>>
+
+
diff --git a/macros.zil b/macros.zil
new file mode 100644
index 0000000..aef7e25
--- /dev/null
+++ b/macros.zil
@@ -0,0 +1,409 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : MACROS.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   24 Sep 1987 21:15:56  $"
+; "rev  : $Revision:   1.4  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+;-----------------------------------------------------------------------------
+; "default property values"
+;-----------------------------------------------------------------------------
+
+<PROPDEF VALUE			0>
+<PROPDEF SIZE			0>
+<PROPDEF STRENGTH		10>
+<PROPDEF DEXTERITY	10>
+
+;*****************************************************************************
+; "tell-tokens"
+;*****************************************************************************
+
+<TELL-TOKENS
+	CR			<CRLF>
+	N		*	<PRINTN .X>
+	C		*	<PRINTC .X>
+	D		*	<DPRINT .X>
+	A		*	<RT-A-PRINT .X>
+	CA		*	<RT-THEO-PRINT .X T ,K-DESC-A>
+	AO			<RT-A-PRINT>
+	ANY		*	<RT-THEO-PRINT .X <> ,K-DESC-ANY>
+	THE	*	<RT-THEO-PRINT .X>
+	THEO		<RT-THEO-PRINT>
+	THEI		<RT-THEI-PRINT>
+	CTHE	*	<RT-CTHEO-PRINT .X>
+	CTHEO		<RT-CTHEO-PRINT>
+	CTHEI		<RT-CTHEI-PRINT>
+	VW			<RT-VW-PRINT>
+	INDENT	<RT-INDENT-PRINT>
+	WRAP		<RT-WRAP-PRINT>
+>
+
+<DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (LL (T)) (L .LL) ATM)
+	<REPEAT ()
+		<COND
+			(<EMPTY? .ATMS>
+				<RETURN!-
+					<COND
+						(<LENGTH? .OO 1>
+							<ERROR .X>
+						)
+						(<LENGTH? .OO 2>
+							<NTH .OO 2>
+						)
+						(ELSE
+							<CHTYPE .OO FORM>
+						)
+					>
+				>
+			)
+		>
+		<REPEAT ()
+			<COND
+				(<EMPTY? .ATMS>
+					<RETURN!->
+				)
+			>
+			<SET ATM <NTH .ATMS 1>>
+			<SET L <REST <PUTREST .L
+				(<COND
+					(<TYPE? .ATM ATOM>
+						<CHTYPE
+							<COND
+								(<==? .X GL-PRSA>
+									<PARSE <STRING "V?" <SPNAME .ATM>>>
+								)
+								(<==? .X GL-P-PRSA-WORD>
+									<PARSE <STRING "W?" <SPNAME .ATM>>>
+								)
+								(T
+									.ATM
+								)
+							>
+							GVAL
+						>
+					)
+					(ELSE
+						.ATM
+					)
+				>)
+			>>>
+			<SET ATMS <REST .ATMS>>
+			<COND
+				(<==? <LENGTH .LL> 4>
+					<RETURN!->
+				)
+			>
+		>
+		<SET O <REST <PUTREST .O
+			(<FORM EQUAL? <CHTYPE .X GVAL> !<REST .LL>>)
+		>>>
+		<SET LL (T)>
+		<SET L .LL>
+	>
+>
+
+;*****************************************************************************
+; "macro definitions"
+;*****************************************************************************
+
+;-----------------------------------------------------------------------------
+; "MC-VERB?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-VERB? ("ARGS" ATMS)
+	<MULTIFROB GL-PRSA .ATMS>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-VERB-WORD?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-VERB-WORD? ("ARGS" ATMS)
+	<MULTIFROB GL-P-PRSA-WORD .ATMS>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-PRSO?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-PRSO? ("ARGS" ATMS)
+	<MULTIFROB GL-PRSO .ATMS>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-PRSI?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-PRSI? ("ARGS" ATMS)
+	<MULTIFROB GL-PRSI .ATMS>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-THIS-PRSO?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-THIS-PRSO? ()
+	<FORM ZERO? <CHTYPE GL-NOW-PRSI? GVAL>>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-THIS-PRSI?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-THIS-PRSI? ()
+	<FORM NOT <FORM ZERO? <CHTYPE GL-NOW-PRSI? GVAL>>>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-HERE?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-HERE? ("ARGS" ATMS)
+	<MULTIFROB GL-PLACE-CUR .ATMS>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-LISTEN?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-LISTEN? ("ARGS" ATMS)
+	<MULTIFROB GL-LISTEN-OBJ .ATMS>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-PROB"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-PROB ('BASE?)
+	<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-GET/B"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-GET/B ('TBL 'PTR)
+	<FORM GET .TBL .PTR>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-ABS"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-ABS ('NUM)
+	<FORM COND
+      (<FORM L? .NUM 0>
+   	  	<FORM - 0 .NUM>
+  		)
+  		(T
+  			.NUM
+  		)
+	>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-SPACE"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-SPACE ()
+	<FORM PRINTC 32>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-QUOTE?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-QUOTE? ()
+	<FORM
+		COND
+			(<FORM NOT <FORM EQUAL?
+					<CHTYPE GL-WINNER GVAL>
+					<CHTYPE CH-PLAYER GVAL>>
+					>
+					    <FORM PRINTC 34>
+			)
+	>
+> 
+
+;-----------------------------------------------------------------------------
+; "MC-MAKE"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-MAKE ('OBJ 'FLAG)
+	<FORM FSET .OBJ .FLAG>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-UNMAKE"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-UNMAKE ('OBJ 'FLAG)
+	<FORM FCLEAR .OBJ .FLAG>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-IS?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-IS? ('OBJ 'FLAG)
+	<FORM FSET? .OBJ .FLAG>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-ISNOT?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-ISNOT? ('OBJ 'FLAG)
+	<FORM NOT <FORM FSET? .OBJ .FLAG>>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-NOTZERO?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-NOTZERO? ('TERM)
+	<FORM NOT <FORM ZERO? .TERM>>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-T?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-T? ('TERM)
+	<FORM NOT <FORM ZERO? .TERM>>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-THIS-WINNER?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-THIS-WINNER? ()
+	<FORM EQUAL? '.CONTEXT ',K-M-WINNER>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-F?"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-F? ('TERM)
+	<FORM ZERO? .TERM>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-GET-RM-EXIT-DEST"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-GET-RM-EXIT-DEST ('PT)
+	<FORM GETB .PT ',K-REXIT>
+>
+
+;-----------------------------------------------------------------------------
+; "MC-GET-RM-EXIT-DOOR"
+;-----------------------------------------------------------------------------
+
+<DEFMAC MC-GET-RM-EXIT-DOOR ('PT)
+	<FORM GET <FORM REST .PT> '<- ,K-DEXITOBJ 1>>>
+
+<DEFMAC DEBUGGING? ('X "OPT" 'Y)
+  <COND (,GL-DEBUG?
+	 <COND (<TYPE? .X LIST>
+		<CHTYPE .X SPLICE>)
+	       (T .X)>)
+	(T
+	 <COND (<ASSIGNED? Y>
+		<COND (<TYPE? .Y LIST>
+		       <CHTYPE .Y SPLICE>)
+		      (T .Y)>)
+	       (T #SPLICE ())>)>>
+
+<DEFMAC STRLENGTH (X)
+  <LENGTH .X>>
+
+<DEFMAC RT-VW-PRINT ()
+	<FORM PRINTB ',GL-P-PRSA-WORD>>
+
+<DEFMAC RT-CLOCK-INC-SET ("ARGS" STUFF)
+  <FORM RT-DO-CLOCK-SET ',GL-TIME-UPDT-INC !.STUFF>>
+
+<DEFMAC RT-CLOCK-DEF-SET ("ARGS" STUFF)
+  <FORM RT-DO-CLOCK-SET ',GL-TIME-UPDT-DEF !.STUFF>>
+
+<DEFMAC RT-CLOCK-SET ("ARGS" STUFF)
+  <FORM RT-DO-CLOCK-SET ',GL-TIME !.STUFF>>
+
+<DEFMAC RT-PARM-SET ("ARGS" STUFF)
+  <FORM RT-DO-CLOCK-SET ',GL-TIME-PARM !.STUFF>>
+
+; "Generate an appropriate BTST to test the part of speech in cases where
+   we can get away with it.  Otherwise, call RT-WT?.
+   EXTRA-BIT is used to test two parts of speech at the same time.  Note
+   that all arguments after the first are evaluated at compile time, so had
+   better be PS? or P1? type constants."
+<DEFMAC WT? ('PTR BIT "OPT" (B1:<OR FIX FALSE> 5) EXTRA-BIT)
+  <COND (<OR <NOT .B1>
+	     <G? .B1 4>>
+	 <COND (<ASSIGNED? EXTRA-BIT>
+		; "Handle an OR test of two parts of speech"
+		<FORM NOT <FORM 0? <FORM ANDB <FORM GETB .PTR ,K-P-PSOFF>
+					 <+ .BIT .EXTRA-BIT>>>>)
+	       (T
+		<FORM BTST <FORM GETB .PTR ,K-P-PSOFF> .BIT>)>)
+	(<ASSIGNED? EXTRA-BIT>
+	 <ERROR CANT-TEST-FOR-TWO-PARTS-OF-SPEECH-WITH-VALUE!-ERRORS
+		.BIT .EXTRA-BIT WT?>)
+	(T
+	 <FORM RT-WT? .PTR .BIT .B1>)>>
+
+;"Structures created by eliminating the AUXn properties."
+
+<GLOBAL TH-ROPE-AUX1 -1>	; "First person tied up"
+<GLOBAL TH-ROPE-AUX2 -1>	; "Second person tied up"
+
+<GLOBAL CH-BANK-GUARD-AUX1 0 <> BYTE>	; "Number of gems used to bribe him"
+
+<GLOBAL CH-HOLMES-AUX1 0 <> BYTE>	; "Seems to be flags for holmes"
+
+<GLOBAL CH-TRAINED-PIGEON-AUX1 0 <> BYTE>	; "Flags"
+<GLOBAL CH-TRAINED-PIGEON-AUX2 0 <> BYTE>
+<GLOBAL CH-TRAINED-PIGEON-AUX3 0>	; "An object"
+
+<GLOBAL RM-HOLMES-STUDY-AUX1 0 <> BYTE>	; "Minutes out of study after
+					   waking holmes"
+
+<GLOBAL TH-BELL-AUX1 0 <> BYTE>		; "Number of times to ring Ben"
+<GLOBAL TH-BELL-AUX2 0 <> BYTE>		; "Bell position?"
+
+<GLOBAL TH-PACKET-OF-PAPER-AUX1 0 <> BYTE>
+
+<GLOBAL TH-BOX-KEY-AUX1 0>		; "Box the key is in (number)"
+
+<GLOBAL TH-SAFETY-DEPOSIT-BOX-AUX1 0>	; "Box number"
+
+<GLOBAL TH-BOX-LOCK-AUX1 0>
+
+<GLOBAL TH-DIAL-AUX1 0>			;"Direction being turned, or some such"
+<GLOBAL TH-DIAL-AUX2 0>
+
+<GLOBAL CH-WIGGINS-AUX1 0 <> BYTE>		; "True if `activated'"
+
+<GLOBAL CH-ELIZA-DOOLITTLE-AUX1 0 <> BYTE>
+
+<GLOBAL CH-VENDOR-AUX1 0 <> BYTE>		; "Number of haggles"
+
+<GLOBAL TH-CAB-WHISTLE-AUX1 0 <> BYTE>	; "Number of whistles"
+<GLOBAL TH-CAB-WHISTLE-AUX2 0 <> BYTE>	; "Where"
+
+<GLOBAL TH-HANSOM-CAB-AUX1 0 <> BYTE>		; "Called before?"
+<GLOBAL TH-HANSOM-CAB-AUX2 0 <> BYTE>		; "Waiting?"
+
+<GLOBAL TH-GROWLER-CAB-AUX1 0 <> BYTE>
+
+<GLOBAL TH-GUN-AUX1 6 <> BYTE>		; "Bullets left"
+
+<GLOBAL TH-PHIAL-AUX1 0 <> BYTE>
+
+<GLOBAL TH-BOAT-AUX1 0 <> BYTE>
+
+<GLOBAL TH-SAPPHIRE-AUX1 2>		; "Number of grabs left"ct
\ No newline at end of file
diff --git a/misc.zil b/misc.zil
new file mode 100644
index 0000000..6dc2dea
--- /dev/null
+++ b/misc.zil
@@ -0,0 +1,22 @@
+;<REPLACE-DEFINITION DEBUGGING-CODE T>
+
+;<REPLACE-DEFINITION TRADEMARK-MSG
+ <CONSTANT GAMMA-TESTERS
+	   <PLTABLE "Steve Barone"
+		    "Geoff Cohen"
+		    "Robby Kumar"
+		    "Joshua Mandel"
+		    "Kelly Marold"
+		    "Michael Milgram"
+		    "Martin Rubenstein"
+		    "John Schappert"
+		    "Ron Tison"
+		    "Steve Watkins"
+		    "Jeff Bailey"
+		    "Michael Stein">>
+ <ROUTINE RT-TRADEMARK-MSG ()
+   <COND (<AND <G? ,SERIAL 0>
+	       <L? ,SERIAL <ZGET ,GAMMA-TESTERS 0>>>
+	  <TELL "Gamma test copy for "
+		<ZGET ,GAMMA-TESTERS ,SERIAL>
+		CR>)>>>
diff --git a/other-misc.zap b/other-misc.zap
new file mode 100644
index 0000000..16410ca
--- /dev/null
+++ b/other-misc.zap
@@ -0,0 +1,1073 @@
+
+
+	.FUNCT	SET-SIZE-TO-ONE,OBJ,NUM
+	GETP	OBJ,P?SIZE >NUM
+	DIV	NUM,SIZE-VALS
+	MUL	STACK,SIZE-VALS
+	ADD	1,STACK
+	PUTP	OBJ,P?SIZE,STACK
+	RTRUE	
+
+
+	.FUNCT	GET-SIZE,OBJ,NUM
+	GETP	OBJ,P?SIZE >NUM
+	MOD	NUM,SIZE-VALS >NUM
+	LESS?	NUM,6 \?CCL3
+	RETURN	NUM
+?CCL3:	SUB	NUM,6
+	GETB	SIZE-TABLE,STACK
+	RSTACK	
+
+
+	.FUNCT	SET-MASS-TO-ONE,OBJ,NUM,?TMP1
+	GETP	OBJ,P?SIZE >NUM
+	MOD	NUM,SIZE-VALS
+	ADD	SIZE-VALS,STACK >?TMP1
+	DIV	NUM,143
+	MUL	STACK,143
+	ADD	?TMP1,STACK
+	PUTP	OBJ,P?SIZE,STACK
+	RTRUE	
+
+
+	.FUNCT	GET-MASS,OBJ,NUM
+	GETP	OBJ,P?SIZE >NUM
+	DIV	NUM,SIZE-VALS
+	MOD	STACK,MASS-VALS >NUM
+	LESS?	NUM,6 \?CCL3
+	RETURN	NUM
+?CCL3:	SUB	NUM,6
+	GETB	MASS-TABLE,STACK
+	RSTACK	
+
+
+	.FUNCT	GET-CAPACITY,OBJ,NUM
+	GETP	OBJ,P?SIZE >NUM
+	DIV	NUM,143 >NUM
+	GRTR?	NUM,100 \?CCL3
+	RETURN	999
+?CCL3:	RETURN	NUM
+
+
+	.FUNCT	SET-CAPACITY-TO-ONE,OBJ,NUM
+	GETP	OBJ,P?SIZE >NUM
+	MOD	NUM,143
+	ADD	143,STACK
+	PUTP	OBJ,P?SIZE,STACK
+	RTRUE	
+
+
+	.FUNCT	RT-SEE-ANYTHING-IN?,THING,OBJ
+	FIRST?	THING >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /FALSE
+	FSET?	OBJ,FL-NODESC /?CCL8
+	EQUAL?	OBJ,GL-WINNER \TRUE
+?CCL8:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+
+
+	.FUNCT	RT-CANT-TOUCH-MSG,OBJ,CLSD,IN-OUT
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL2	RT-THEO-PRINT,OBJ
+	ZERO?	CLSD /?CND1
+	PRINTI	" because "
+	FSET?	OBJ,FL-PLURAL \?CCL5
+	FSET?	OBJ,FL-COLLECTIVE /?CCL5
+	PRINTI	"they are"
+	JUMP	?CND3
+?CCL5:	PRINTI	"it is"
+?CND3:	PRINTC	32
+	ZERO?	IN-OUT /?CCL10
+	PRINTI	"inside"
+	JUMP	?CND8
+?CCL10:	PRINTI	"outside"
+?CND8:	PRINTC	32
+	ICALL2	RT-THEO-PRINT,CLSD
+	PRINTI	", which is closed"
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	RT-TOTAL-SIZE-IN-OBJ,OBJ1,OBJ,TOTSIZ
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	CALL2	GET-SIZE,OBJ
+	ADD	TOTSIZ,STACK >TOTSIZ
+	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	RETURN	TOTSIZ
+
+
+	.FUNCT	RT-TOTAL-MASS-OF-OBJ,OBJ1,OBJ,TOTMAS
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	CALL2	RT-TOTAL-MASS-OF-OBJ,OBJ
+	ADD	TOTMAS,STACK >TOTMAS
+	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	CALL2	GET-MASS,OBJ1
+	ADD	TOTMAS,STACK >TOTMAS
+	RETURN	TOTMAS
+
+
+	.FUNCT	RT-TOTAL-COUNT-IN-OBJ,OBJ1,OBJ,TOTCNT
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	FSET?	OBJ,FL-WORN \?CCL8
+	IN?	OBJ,CH-PLAYER /?CND4
+?CCL8:	FSET?	OBJ,FL-BODYPART /?CND4
+	INC	'TOTCNT
+?CND4:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	RETURN	TOTCNT
+
+
+	.FUNCT	RT-OBJ-TOO-LARGE?,OBJ1,OBJ2,?TMP1,?TMP2
+	CALL2	GET-SIZE,OBJ1 >?TMP2
+	CALL2	RT-TOTAL-SIZE-IN-OBJ,OBJ2
+	ADD	?TMP2,STACK >?TMP1
+	CALL2	GET-CAPACITY,OBJ2
+	GRTR?	?TMP1,STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-OBJ-TOO-HEAVY?,OBJ1,OBJ2,?TMP1,?TMP2
+	CALL2	RT-TOTAL-MASS-OF-OBJ,OBJ1 >?TMP2
+	CALL2	RT-TOTAL-MASS-OF-OBJ,OBJ2
+	ADD	?TMP2,STACK >?TMP1
+	GETP	OBJ2,P?STRENGTH
+	GRTR?	?TMP1,STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-OBJ-TOO-MANY?,OBJ1,OBJ2,?TMP1
+	CALL2	RT-TOTAL-COUNT-IN-OBJ,OBJ2
+	ADD	1,STACK >?TMP1
+	GETP	OBJ2,P?DEXTERITY
+	GRTR?	?TMP1,STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-REMOVE-ALL,OBJ1,OBJ,NXT,CNT
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	NEXT?	OBJ >NXT /?BOGUS6
+?BOGUS6:	REMOVE	OBJ
+	INC	'CNT
+	SET	'OBJ,NXT
+	JUMP	?PRG2
+?REP3:	RETURN	CNT
+
+
+	.FUNCT	RT-MOVE-ALL-BUT-WORN,OBJ1,OBJ2,OBJ,NXT,CNT
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	NEXT?	OBJ >NXT /?BOGUS6
+?BOGUS6:	FSET?	OBJ,FL-WORN /?CND7
+	EQUAL?	OBJ,TH-POCKET /?CND7
+	MOVE	OBJ,OBJ2
+	INC	'CNT
+?CND7:	SET	'OBJ,NXT
+	JUMP	?PRG2
+?REP3:	RETURN	CNT
+
+
+	.FUNCT	RT-MOVE-NODESC-OBJS,OBJ1,OBJ2,OBJ,NXT,CNT
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	NEXT?	OBJ >NXT /?BOGUS6
+?BOGUS6:	FSET?	OBJ,FL-NODESC \?CND7
+	MOVE	OBJ,OBJ2
+	INC	'CNT
+?CND7:	SET	'OBJ,NXT
+	JUMP	?PRG2
+?REP3:	RETURN	CNT
+
+
+	.FUNCT	RT-FIND-IN?,OBJ1,FLG,OBJ
+	FIRST?	OBJ1 >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /FALSE
+	FSET?	OBJ,FLG \?CND4
+	RETURN	OBJ
+?CND4:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+
+
+	.FUNCT	RT-GET-ANY-KEY,X
+	PRINTI	"[Press any key.]"
+	CRLF	
+	INPUT	1 >X
+	RTRUE	
+
+
+	.FUNCT	RT-GET-YES-NO?,WORD
+?PRG1:	CRLF	
+	PRINTI	"Please type YES or NO > "
+	PUTB	GL-YES-LEXV,0,4
+	PUTB	GL-YES-IBUF,1,0
+	READ	GL-YES-IBUF,GL-YES-LEXV
+	GET	GL-YES-LEXV,K-P-LEXSTART >WORD
+	GETB	GL-YES-LEXV,K-P-LEXWORDS
+	ZERO?	STACK /?PRG1
+	ZERO?	WORD /?PRG1
+	EQUAL?	WORD,W?Y,W?YES /TRUE
+	EQUAL?	WORD,W?N,W?NO \?PRG1
+	RFALSE	
+
+
+	.FUNCT	RT-INIT-SCREEN,FAST?
+	ZERO?	FAST? /?CCL3
+	SPLIT	GL-SPLIT-ROW
+	CLEAR	1
+	JUMP	?CND1
+?CCL3:	CLEAR	-1
+	SPLIT	GL-SPLIT-ROW
+?CND1:	SCREEN	K-S-WIN
+	HLIGHT	K-H-INV
+	CURSET	GL-SPLIT-ROW,1
+	ICALL2	RT-PRINT-SPACES,GL-ALLSCREEN
+	SET	'GL-PLACE-STS,-1
+	SET	'GL-MOVES-STS,-1
+	SET	'GL-SCORE-STS,-1
+	CURSET	GL-SPLIT-ROW,GL-STAT-S-POS
+	ZERO?	GL-SHORT-STAT? \?CND4
+	PRINTI	"Score:"
+?CND4:	HLIGHT	K-H-NRM
+	SCREEN	K-S-NOR
+	RTRUE	
+
+
+	.FUNCT	RT-GAMETITLE-MSG
+	PRINTR	"Sherlock: The Riddle of the Crown Jewels"
+
+
+	.FUNCT	RT-COPYRIGHT-MSG
+	PRINTR	"Copyright 1987 Infocom, Inc."
+
+
+	.FUNCT	RT-TRADEMARK-MSG
+	PRINTR	"Sherlock: The Riddle of the Crown Jewels is a trademark of Infocom, Inc."
+
+
+	.FUNCT	RT-ID-MSG,IDX
+	SET	'IDX,18
+	PRINTI	"Release "
+	GET	0,1
+	BAND	STACK,2047
+	PRINTN	STACK
+	PRINTI	" Interpreter "
+	GETB	0,30
+	PRINTN	STACK
+	PRINTI	" Version "
+	GETB	0,31
+	PRINTC	STACK
+	PRINTI	" Serial Number "
+?PRG1:	GETB	0,IDX
+	PRINTC	STACK
+	IGRTR?	'IDX,23 \?PRG1
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-VERSION-MSG
+	HLIGHT	K-H-BLD
+	ICALL1	RT-GAMETITLE-MSG
+	ICALL1	RT-COPYRIGHT-MSG
+	ICALL1	RT-TRADEMARK-MSG
+	ICALL1	RT-ID-MSG
+	HLIGHT	K-H-NRM
+	RTRUE	
+
+
+	.FUNCT	RT-DESC-PL-CONT-1,SURFACE,CNT,OBJ,NXT,FIRST,PERSON-COUNT,PERSON-PLURAL
+	FIRST?	SURFACE >OBJ /?BOGUS1
+?BOGUS1:	SET	'FIRST,TRUE-VALUE
+?PRG2:	ZERO?	OBJ /?REP3
+	FSET?	OBJ,FL-NODESC /?CTR7
+	EQUAL?	OBJ,GL-PUPPY \?CCL8
+?CTR7:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?CCL8:	FSET?	OBJ,FL-PERSON \?CCL13
+	INC	'PERSON-COUNT
+	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?CCL13:	ZERO?	FIRST /?CND4
+	GRTR?	CNT,0 \?CCL18
+	PRINTC	32
+	JUMP	?CND16
+?CCL18:	CRLF	
+?CND16:	PRINTI	"You see "
+	SET	'FIRST,FALSE-VALUE
+?CND4:	ICALL2	RT-A-PRINT,OBJ
+	INC	'CNT
+	NEXT?	OBJ >OBJ /?PRG20
+?PRG20:	ZERO?	OBJ /?REP21
+	EQUAL?	OBJ,GL-PUPPY /?CND22
+	FSET?	OBJ,FL-NODESC /?CND22
+	FSET?	OBJ,FL-PERSON \?REP21
+	FSET?	OBJ,FL-NODESC /?REP21
+	INC	'PERSON-COUNT
+?CND22:	NEXT?	OBJ >OBJ /?PRG20
+	JUMP	?PRG20
+?REP21:	ZERO?	OBJ /?CCL36
+	NEXT?	OBJ >NXT /?PRG38
+?PRG38:	ZERO?	NXT /?REP39
+	FSET?	NXT,FL-NODESC /?CND40
+	EQUAL?	NXT,GL-PUPPY /?CND40
+	FSET?	NXT,FL-PERSON \?REP39
+?CND40:	NEXT?	NXT >NXT /?PRG38
+	JUMP	?PRG38
+?REP39:	ZERO?	NXT \?CCL50
+	PRINTI	" and "
+	JUMP	?PRG2
+?CCL50:	PRINTI	", "
+	JUMP	?PRG2
+?CCL36:	IN?	SURFACE,ROOMS /?CND51
+	PRINTI	" on "
+	ICALL2	RT-THEO-PRINT,SURFACE
+?CND51:	PRINTC	46
+	JUMP	?PRG2
+?REP3:	GRTR?	PERSON-COUNT,0 \?CND53
+	GRTR?	CNT,0 \?CCL57
+	PRINTC	32
+	JUMP	?CND55
+?CCL57:	CRLF	
+?CND55:	ADD	CNT,PERSON-COUNT >CNT
+	GRTR?	PERSON-COUNT,1 \?CND58
+	SET	'PERSON-PLURAL,TRUE-VALUE
+?CND58:	FIRST?	SURFACE >OBJ /?BOGUS60
+?BOGUS60:	SET	'FIRST,TRUE-VALUE
+?PRG61:	FSET?	OBJ,FL-NODESC /?CND63
+	EQUAL?	OBJ,GL-PUPPY /?CND63
+	FSET?	OBJ,FL-PERSON \?CND63
+	ZERO?	FIRST /?CCL71
+	ICALL	RT-THEO-PRINT,OBJ,TRUE-VALUE,K-DESC-A
+	JUMP	?CND69
+?CCL71:	ICALL2	RT-A-PRINT,OBJ
+?CND69:	SET	'FIRST,FALSE-VALUE
+	FSET?	OBJ,FL-PLURAL \?CND72
+	SET	'PERSON-PLURAL,TRUE-VALUE
+?CND72:	DEC	'PERSON-COUNT
+	ZERO?	PERSON-COUNT \?CCL76
+	ZERO?	PERSON-PLURAL /?CCL79
+	PRINTI	" are"
+	JUMP	?CND77
+?CCL79:	PRINTI	" is"
+?CND77:	PRINTI	" here."
+?CND53:	FIRST?	SURFACE >OBJ /?PRG84
+?PRG84:	ZERO?	OBJ /?REP85
+	FSET?	OBJ,FL-SURFACE \?CND86
+	CALL	RT-DESC-PL-CONT-1,OBJ,CNT >CNT
+?CND86:	NEXT?	OBJ >OBJ /?PRG84
+	JUMP	?PRG84
+?CCL76:	EQUAL?	PERSON-COUNT,1 \?CCL81
+	PRINTI	" and "
+	JUMP	?CND63
+?CCL81:	PRINTI	", "
+?CND63:	NEXT?	OBJ >OBJ /?PRG61
+	JUMP	?PRG61
+?REP85:	RETURN	CNT
+
+
+	.FUNCT	RT-DESCRIBE-PLACE-CONTENTS,PLACE,LOOK,OBJ,PREV,CNT,LIGHT
+	ZERO?	PLACE \?CND1
+	SET	'PLACE,GL-PLACE-CUR
+?CND1:	CALL	RT-DESC-PL-CONT-1,PLACE,0
+	ZERO?	STACK /TRUE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-RANK-STR,PTS
+	LESS?	PTS,1 \?CCL3
+	RETURN	STR?231
+?CCL3:	LESS?	PTS,21 \?CCL5
+	RETURN	STR?232
+?CCL5:	LESS?	PTS,41 \?CCL7
+	RETURN	STR?233
+?CCL7:	LESS?	PTS,61 \?CCL9
+	RETURN	STR?234
+?CCL9:	LESS?	PTS,81 \?CCL11
+	RETURN	STR?235
+?CCL11:	LESS?	PTS,91 \?CCL13
+	RETURN	STR?236
+?CCL13:	LESS?	PTS,100 /?CTR14
+	RETURN	STR?238
+?CTR14:	RETURN	STR?237
+
+
+	.FUNCT	RT-NEW-SCORE-MSG,PTS
+	ZERO?	PTS /FALSE
+	HLIGHT	K-H-BLD
+	ZERO?	GL-SCORE-MSG /?CND3
+	CRLF	
+	PRINTI	"[Your score just went up by "
+	PRINTN	PTS
+	PRINTI	" point"
+	GRTR?	PTS,1 \?CND5
+	PRINTC	115
+?CND5:	PRINTI	". The total is now "
+	PRINTN	GL-SCORE-CUR
+	PRINTI	" out of "
+	PRINTN	GL-SCORE-MAX
+	PRINTI	".]"
+	CRLF	
+?CND3:	HLIGHT	K-H-NRM
+	RTRUE	
+
+
+	.FUNCT	RT-PARSE-EVENT?,NOUN,ADJ,OBJ,N,TB,NTB,ATB,FLGS,?TMP1
+	SET	'OBJ,TH-EVENT
+	SET	'N,10
+	SET	'TB,TH-EVENT-NAMES+2
+?PRG1:	GET	TB,0 >NTB
+	ADD	NTB,2 >?TMP1
+	GET	NTB,0
+	INTBL?	NOUN,?TMP1,STACK \?CND3
+	ZERO?	ADJ /?CTR6
+	GET	TB,1 >ATB
+	ZERO?	ATB /FALSE
+	ADD	ATB,2 >?TMP1
+	GET	ATB,0
+	INTBL?	ADJ,?TMP1,STACK \FALSE
+?CTR6:	GET	NTB,1
+	PUTP	OBJ,P?OBJ-NOUN,STACK
+	GET	TB,3 >FLGS
+	BTST	FLGS,2 \?CCL14
+	FSET	OBJ,FL-ALIVE
+	JUMP	?CND12
+?CCL14:	FCLEAR	OBJ,FL-ALIVE
+?CND12:	BTST	FLGS,4 \?CCL17
+	FSET	OBJ,FL-PERSON
+	JUMP	?CND15
+?CCL17:	FCLEAR	OBJ,FL-PERSON
+?CND15:	BTST	FLGS,8 \?CCL20
+	FSET	OBJ,FL-VOWEL
+	RETURN	OBJ
+?CCL20:	FCLEAR	OBJ,FL-VOWEL
+	RETURN	OBJ
+?CND3:	DLESS?	'N,1 /FALSE
+	ADD	TB,8 >TB
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-IDENTIFY-EVENT?,WD,OBJ,NAM,N,TB,NTB,?TMP1
+	GETP	TH-EVENT,P?OBJ-NOUN >NAM
+	ZERO?	OBJ /?CND1
+	EQUAL?	OBJ,TH-EVENT \FALSE
+?CND1:	SET	'N,10
+	SET	'TB,TH-EVENT-NAMES+2
+?PRG5:	GET	TB,0 >NTB
+	GET	NTB,1
+	EQUAL?	WD,STACK \?CND7
+	ADD	NTB,2 >?TMP1
+	GET	NTB,0
+	INTBL?	NAM,?TMP1,STACK /TRUE
+	RFALSE	
+?CND7:	DLESS?	'N,1 /FALSE
+	ADD	TB,8 >TB
+	JUMP	?PRG5
+
+
+	.FUNCT	RT-DESC-EVENT,CLASS,WD,FLAGS,N,TB,?TMP1,?TMP2,?TMP3
+	GETP	TH-EVENT,P?OBJ-NOUN >WD
+	SET	'N,10
+	SET	'TB,TH-EVENT-NAMES+2
+?PRG1:	GET	TB,0
+	GET	STACK,1
+	EQUAL?	WD,STACK \?CND3
+	GET	TB,3 >FLAGS
+	GET	TB,2
+	ZERO?	STACK /?CCL7
+	GET	TB,2 >?TMP3
+	BTST	FLAGS,1 \?PRF10
+	SET	'?TMP2,1
+	JUMP	?PEN8
+?PRF10:	SET	'?TMP2,0
+?PEN8:	FSET?	TH-EVENT,FL-PLURAL /?PRD11
+	PUSH	0
+	JUMP	?PRD12
+?PRD11:	PUSH	1
+?PRD12:	SET	'?TMP1,STACK
+	FSET?	TH-EVENT,FL-VOWEL /?PRD13
+	PUSH	0
+	JUMP	?PRD14
+?PRD13:	PUSH	1
+?PRD14:	ICALL	PRINT-SDESC,?TMP3,CLASS,?TMP2,?TMP1,STACK
+	RTRUE	
+?CCL7:	BTST	FLAGS,1 \?PRF17
+	SET	'?TMP2,1
+	JUMP	?PEN15
+?PRF17:	SET	'?TMP2,0
+?PEN15:	FSET?	TH-EVENT,FL-PLURAL /?PRD18
+	PUSH	0
+	JUMP	?PRD19
+?PRD18:	PUSH	1
+?PRD19:	SET	'?TMP1,STACK
+	FSET?	TH-EVENT,FL-VOWEL /?PRD20
+	PUSH	0
+	JUMP	?PRD21
+?PRD20:	PUSH	1
+?PRD21:	ICALL	PRINT-SDESC,WD,CLASS,?TMP2,?TMP1,STACK,TRUE-VALUE
+	RTRUE	
+?CND3:	DLESS?	'N,1 /FALSE
+	ADD	TB,8 >TB
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-AC-TH-EVENT,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	CALL2	RT-DESC-EVENT,CLASS
+	RSTACK	
+?CCL3:	CALL1	RT-TALK-VERB?
+	ZERO?	STACK \FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-TO-DO-THING-USE-MSG,STR1,STR2
+	PRINTI	"[To "
+	PRINT	STR1
+	PRINTI	" something, use the command: "
+	PRINT	STR2
+	PRINTR	" THING.]"
+
+
+	.FUNCT	RT-NOT-IN-SENTENCE-MSG,STR
+	PRINTI	"[There are not "
+	PRINT	STR
+	PRINTR	" in that sentence.]"
+
+
+	.FUNCT	RT-IMPOSSIBLE-MSG,WHO
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES,CH-WIGGINS \?CCL3
+	EQUAL?	WHO,CH-HOLMES \?CCL6
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINTI	" looks at you "
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESPAIR-TXT
+	PRINT	STACK
+	PRINTI	" and says, """
+	CALL2	RT-PICK-NEXT,GL-HOLMES-IMPOSSIBLE-TXT
+	PRINT	STACK
+	JUMP	?CND4
+?CCL6:	EQUAL?	WHO,CH-WIGGINS \?CND4
+	CALL2	RT-PICK-NEXT,GL-WIGGINS-DESC-TXT
+	PRINT	STACK
+	PRINTI	" says, """
+	CALL2	RT-PICK-NEXT,GL-WIGGINS-IMPOSSIBLE-TXT
+	PRINT	STACK
+?CND4:	PRINTR	"."""
+?CCL3:	CALL2	RT-PICK-NEXT,GL-IMPOSSIBLE-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-NOT-LIKELY-MSG,THING,STR
+	PRINTI	"It"
+	CALL2	RT-PICK-NEXT,GL-NOT-LIKELY-TXT
+	PRINT	STACK
+	PRINTI	" that "
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTC	32
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	RT-LOOKS-PUZZLED-MSG,WHO
+	ICALL2	RT-CTHEO-PRINT,WHO
+	PRINTC	32
+	CALL2	RT-PICK-NEXT,GL-LOOKS-TXT
+	PRINT	STACK
+	PRINTC	32
+	CALL2	RT-PICK-NEXT,GL-PUZZLED-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-WINNER-NOT-HOLDING-MSG
+	ICALL2	RT-CTHEO-PRINT,GL-WINNER
+	ICALL2	RT-ISNT-ARENT-MSG,GL-WINNER
+	PRINTI	"holding "
+	RTRUE	
+
+
+	.FUNCT	RT-YOUD-HAVE-TO-MSG,STR,THING
+	PRINTI	"You would have to "
+	PRINT	STR
+	PRINTC	32
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTI	" to do that."
+	CRLF	
+	ICALL2	RT-THIS-IS-IT,THING
+	RTRUE	
+
+
+	.FUNCT	RT-WOULD-HAVE-TO-MSG,STR,THING
+	PRINTI	"would have to "
+	PRINT	STR
+	PRINTC	32
+	ZERO?	THING /?CND1
+	ICALL2	RT-THEO-PRINT,THING
+?CND1:	ICALL2	RT-THIS-IS-IT,THING
+	RTRUE	
+
+
+	.FUNCT	RT-NOBODY-TO-ASK-MSG
+	PRINTI	"[There is nobody here to ask.]"
+	CRLF	
+	ICALL1	RT-P-CLEAR
+	RTRUE	
+
+
+	.FUNCT	RT-TALK-TO-SELF-MSG
+	PRINTI	"[You must address characters directly.]"
+	CRLF	
+	ICALL1	RT-P-CLEAR
+	RTRUE	
+
+
+	.FUNCT	RT-WAY-TO-TALK-MSG
+	PRINTI	"[Refer to your instruction manual for the correct way to address characters.]"
+	CRLF	
+	ICALL1	RT-P-CLEAR
+	RETURN	2
+
+
+	.FUNCT	RT-I-SUN-UP-DOWN-MSG,TOD
+	FSET?	GL-PLACE-CUR,FL-INDOORS /FALSE
+	CALL	RT-CLOCK-CMP,6,30,0
+	ZERO?	STACK \?CCL5
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,30,0
+	ICALL	RT-ALARM-SET-REL,RT-I-SUN-UP-DOWN-MSG,STACK
+	SET	'GL-LAST-OUT-TOD,1
+	CRLF	
+	PRINTI	"Visibility increases in the gathering light of the new day."
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-ONE,RM-THAMES-TWO,RM-THAMES-THREE /?CND6
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-FOUR,RM-THAMES-FIVE /?CND6
+	PRINTR	" Tourists are beginning to crowd into the streets."
+?CND6:	CRLF	
+	RTRUE	
+?CCL5:	CALL	RT-CLOCK-CMP,7,0,0
+	ZERO?	STACK \?CCL11
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,12,30,0
+	ICALL	RT-ALARM-SET-REL,RT-I-SUN-UP-DOWN-MSG,STACK
+	SET	'GL-LAST-OUT-TOD,2
+	CRLF	
+	PRINTI	"The sun comes up, as much as it ever comes up in England."
+	CRLF	
+	RFALSE	
+?CCL11:	CALL	RT-CLOCK-CMP,19,30,0
+	ZERO?	STACK \?CCL13
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,30,0
+	ICALL	RT-ALARM-SET-REL,RT-I-SUN-UP-DOWN-MSG,STACK
+	SET	'GL-LAST-OUT-TOD,3
+	CRLF	
+	PRINTR	"Daylight begins to fade. Soon it will be dark."
+?CCL13:	CALL	RT-CLOCK-CMP,20,0,0
+	ZERO?	STACK \FALSE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,10,30,0
+	ICALL	RT-ALARM-SET-REL,RT-I-SUN-UP-DOWN-MSG,STACK
+	SET	'GL-LAST-OUT-TOD,0
+	CRLF	
+	PRINTI	"Darkness falls and the mists come in."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-NO-OTHER?,FEMALE?,OBJ
+	FIRST?	GL-PLACE-CUR >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	EQUAL?	OBJ,GL-WINNER /?CND7
+	FSET?	OBJ,FL-PERSON \?CND7
+	ZERO?	FEMALE? /?CCL13
+	FSET?	OBJ,FL-FEMALE /?REP3
+?CCL13:	ZERO?	FEMALE? \?CND7
+	FSET?	OBJ,FL-FEMALE \?REP3
+?CND7:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	ZERO?	OBJ /FALSE
+	ICALL2	RT-LOOKS-PUZZLED-MSG,GL-WINNER
+	PRINTR	"To whom are you referring?"
+
+
+	.FUNCT	RT-GLOBAL-IN?,OBJ1,OBJ2,TBL
+	GETPT	OBJ2,P?GLOBAL >TBL
+	ZERO?	TBL /FALSE
+	GRTR?	OBJ1,255 /FALSE
+	PTSIZE	TBL
+	INTBL?	OBJ1,TBL,STACK,1 /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-META-LOC,OBJ
+?PRG1:	ZERO?	OBJ /FALSE
+	IN?	OBJ,GLOBAL-OBJECTS \?CCL7
+	RETURN	GLOBAL-OBJECTS
+?CCL7:	IN?	OBJ,ROOMS \?CCL9
+	RETURN	OBJ
+?CCL9:	LOC	OBJ >OBJ
+	JUMP	?PRG1
+
+
+	.FUNCT	GO
+START::
+
+?FCN:	SET	'GL-CLOCK-FMT,0
+	SET	'GL-SCORE-MSG,TRUE-VALUE
+	SET	'GL-SCORE-MAX,100
+	SET	'GL-PLACE-CUR,RM-221B-BAKER-ST
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,0,1,0
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-DEF,0,1,0
+	ICALL	RT-DO-CLOCK-SET,GL-TIME,5,0,0,18
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,6,0,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-BIGBEN,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,6,30,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-SUN-UP-DOWN-MSG,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,6,30,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-PM-QUITS,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,7,0,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-OPEN-WESTMINSTER-DOOR,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,6,55,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-WESTMINSTER-LIGHTS-ON,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,17,50,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-FLASH-WESTMINSTER-LIGHTS,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,18,5,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-WESTMINSTER-LIGHTS-OFF,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,6,55,0,19
+	ICALL	RT-ALARM-SET-ABS,RT-I-WESTMINSTER-LIGHTS-ON,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,17,50,0,19
+	ICALL	RT-ALARM-SET-ABS,RT-I-FLASH-WESTMINSTER-LIGHTS,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,18,1,0,19
+	ICALL	RT-ALARM-SET-ABS,RT-I-LOCKED-IN-END-GAME,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,8,0,0,18
+	ICALL	RT-ALARM-SET-ABS,RT-I-OPEN-MUSEUM-DOOR,STACK
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,9,0,0,20
+	ICALL	RT-ALARM-SET-ABS,RT-I-OUT-OF-TIME,STACK
+	SET	'GL-SCORE-CUR,0
+	SET	'GL-MOVES-CUR,0
+	SET	'GL-SCORE-STS,-1
+	SET	'GL-MOVES-STS,-1
+	SET	'GL-PLACE-STS,-1
+	SET	'GL-PLACE-PRV,-1
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	SET	'GL-WINNER,CH-PLAYER
+	GETB	0,33 >GL-ALLSCREEN
+	DIV	GL-ALLSCREEN,2 >GL-MIDSCREEN
+	LESS?	GL-ALLSCREEN,60 \?CND1
+	SET	'GL-SHORT-STAT?,TRUE-VALUE
+	SET	'GL-STAT-S-POS,4
+	SET	'GL-STAT-T-POS,17
+	SET	'GL-SCORE-HEADER-LEN,0
+	SUB	GL-ALLSCREEN,19 >GL-STAT-MAX-ROOM
+?CND1:	SUB	GL-ALLSCREEN,GL-STAT-S-POS >GL-STAT-S-POS
+	SUB	GL-ALLSCREEN,GL-STAT-T-POS >GL-STAT-T-POS
+	SET	'GL-SPLIT-ROW,1
+	MOVE	CH-PLAYER,GL-PLACE-CUR
+	CLEAR	-1
+	CRLF	
+	ICALL1	RT-GAMETITLE-MSG
+	ICALL1	RT-COPYRIGHT-MSG
+	ICALL1	RT-TRADEMARK-MSG
+	ICALL1	RT-ID-MSG
+	CRLF	
+	ICALL1	RT-GET-ANY-KEY
+	ICALL1	RT-INIT-SCREEN
+	ICALL1	RT-UPDATE-STATUS-LINE
+	ICALL1	RT-DESC-ALL
+	ICALL1	RT-P-CLEAR
+	ICALL1	RT-MAIN-LOOP
+	JUMP	?FCN
+
+
+	.FUNCT	RT-NUMBER?,PTR,TMP,CNT,BPTR,TPTR,CHR,SUM,TIM,AM-PM?,?TMP1
+	SET	'TPTR,K-HRS
+	MUL	PTR,2
+	ADD	GL-P-P-LEX,STACK >TMP
+	GET	TMP,K-P-LEXELEN >CNT
+	EQUAL?	CNT,W?AM \?CCL3
+	SET	'AM-PM?,1
+	JUMP	?CND1
+?CCL3:	EQUAL?	CNT,W?PM \?CND1
+	SET	'AM-PM?,2
+?CND1:	ZERO?	AM-PM? /?CCL7
+	SET	'BELIEVE-WAIT-TIME?,TRUE-VALUE
+	JUMP	?CND5
+?CCL7:	SET	'BELIEVE-WAIT-TIME?,FALSE-VALUE
+?CND5:	GETB	TMP,2 >CNT
+	GETB	TMP,3 >BPTR
+?PRG8:	DLESS?	'CNT,0 /?REP9
+	GETB	GL-P-PIBUF,BPTR >CHR
+	EQUAL?	CHR,58 \?CCL15
+	PUTB	GL-P-TIME,TPTR,SUM
+	EQUAL?	TPTR,K-HRS \?CCL18
+	GRTR?	SUM,23 /FALSE
+	EQUAL?	AM-PM?,2 \?CND21
+	LESS?	SUM,12 \?CND21
+	ADD	SUM,12 >SUM
+	PUTB	GL-P-TIME,K-HRS,SUM
+?CND21:	SET	'TPTR,K-MIN
+	JUMP	?CND16
+?CCL18:	EQUAL?	TPTR,K-MIN /FALSE
+	ZERO?	TPTR /FALSE
+?CND16:	SET	'TIM,TRUE-VALUE
+	SET	'SUM,0
+	JUMP	?CND13
+?CCL15:	GRTR?	SUM,9999 /FALSE
+	GRTR?	CHR,57 /FALSE
+	LESS?	CHR,48 /FALSE
+	MUL	SUM,10 >?TMP1
+	SUB	CHR,48
+	ADD	?TMP1,STACK >SUM
+?CND13:	INC	'BPTR
+	JUMP	?PRG8
+?REP9:	ZERO?	TIM /?CCL36
+	PUTB	GL-P-TIME,TPTR,SUM
+	EQUAL?	TPTR,K-HRS /FALSE
+	EQUAL?	TPTR,K-MIN \?CCL41
+	LESS?	SUM,0 /FALSE
+	GRTR?	SUM,59 \?CND34
+	RFALSE	
+?CCL41:	ZERO?	TPTR \?CND34
+	RFALSE	
+?CCL36:	EQUAL?	AM-PM?,2 \?CND47
+	LESS?	SUM,12 \?CND47
+	ADD	SUM,12 >SUM
+?CND47:	PUTB	GL-P-TIME,K-HRS,SUM
+	PUTB	GL-P-TIME,K-MIN,0
+	PUTB	GL-P-TIME,K-SEC,0
+?CND34:	ICALL	RT-CHANGE-LEXV,PTR,W?INTNUM
+	GRTR?	SUM,9999 /FALSE
+	ZERO?	TIM /?CND51
+	SET	'SUM,0
+?CND51:	SET	'GL-P-TIME-FLAG,TIM
+	SET	'GL-P-NUMBER,SUM
+	RETURN	W?INTNUM
+
+
+	.FUNCT	V-WAIT-FOR,H,M,S,N
+	EQUAL?	GL-PRSO,TH-TIME \?CCL3
+	SET	'N,GL-P-NUMBER
+	EQUAL?	N,-1 \?CND4
+	SET	'N,1
+?CND4:	GETP	GL-PRSO,P?OBJ-NOUN
+	EQUAL?	STACK,W?MINUTE,W?MINUTES \?CCL8
+	SET	'H,0
+	SET	'M,N
+	JUMP	?CND6
+?CCL8:	SET	'H,N
+	SET	'M,0
+?CND6:	SET	'S,0
+	PRINTI	"Time passes..."
+	CRLF	
+	CALL	RT-CLOCK-JMP,H,M,S
+	RSTACK	
+?CCL3:	ZERO?	GL-P-TIME-FLAG \?CCL10
+	EQUAL?	GL-PRSO,TH-INTNUM /?CCL10
+	ICALL1	RT-CYOU-MSG
+	PRINT	K-CANT-WAIT-MSG
+	CRLF	
+	RETURN	2
+?CCL10:	GETB	GL-P-TIME,K-HRS >H
+	GETB	GL-P-TIME,K-MIN >M
+	GETB	GL-P-TIME,K-SEC >S
+	EQUAL?	GL-PRSO,TH-INTNUM \?CND13
+	ZERO?	GL-P-TIME-FLAG \?CND13
+	PRINTC	91
+	PRINTN	H
+	PRINTI	":00]"
+	CRLF	
+	CRLF	
+?CND13:	GRTR?	H,23 \?CCL19
+	ICALL1	RT-CYOU-MSG
+	PRINT	K-CANT-WAIT-MSG
+	CRLF	
+	RETURN	2
+?CCL19:	ZERO?	BELIEVE-WAIT-TIME? \?CTR20
+	GRTR?	H,12 \?CCL21
+?CTR20:	GETB	GL-TIME,K-HRS
+	SUB	H,STACK >H
+	GETB	GL-TIME,K-MIN
+	SUB	M,STACK >M
+	GETB	GL-TIME,K-SEC
+	SUB	S,STACK >S
+	JUMP	?CND17
+?CCL21:	GETB	GL-TIME,K-HRS
+	SUB	STACK,1
+	MOD	STACK,12
+	ADD	STACK,1
+	SUB	H,STACK >H
+	GETB	GL-TIME,K-MIN
+	SUB	M,STACK >M
+	GETB	GL-TIME,K-SEC
+	SUB	S,STACK >S
+?CND17:	SUB	S,59
+	DIV	STACK,60 >N
+	ADD	M,N >M
+	MUL	N,60
+	SUB	S,STACK >S
+	SUB	M,59
+	DIV	STACK,60 >N
+	ADD	H,N >H
+	MUL	N,60
+	SUB	M,STACK >M
+?PRG24:	LESS?	H,0 \?REP25
+	ZERO?	BELIEVE-WAIT-TIME? /?CCL30
+	ADD	H,24 >H
+	JUMP	?PRG24
+?CCL30:	ADD	H,12 >H
+	JUMP	?PRG24
+?REP25:	ZERO?	H \?CCL33
+	ZERO?	M \?CCL33
+	ZERO?	S \?CCL33
+	PRINTI	"It is"
+	GETB	GL-TIME,K-HRS
+	SUB	STACK,1
+	MOD	STACK,12
+	ADD	STACK,1
+	GRTR?	STACK,9 \?CND37
+	PRINTC	32
+?CND37:	ICALL2	RT-CLK-NTI-MSG,6
+	PRINTI	" now."
+	CRLF	
+	ICALL2	RT-TIME-OF-DAY-MSG,TRUE-VALUE
+	RETURN	2
+?CCL33:	PRINTI	"Time passes..."
+	CRLF	
+	ICALL	RT-CLOCK-JMP,H,M,S
+	ICALL2	RT-TIME-OF-DAY-MSG,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-WAIT-TOD-MSG,TOD
+	CRLF	
+	PRINTI	"While you were waiting, "
+	ZERO?	TOD \?CCL3
+	PRINTR	"the sun set and the mists rolled in."
+?CCL3:	EQUAL?	TOD,1 \?CCL5
+	PRINTR	"the sky started to lighten. Soon it will be sunrise."
+?CCL5:	EQUAL?	TOD,2 \?CCL7
+	PRINTR	"the sun rose... as much as it ever does here."
+?CCL7:	PRINTR	"the sun set. Soon it will be dark."
+
+
+	.FUNCT	RT-WINDOW,TABLE,MARGIN,Y,I,WIDTH,LINES,STR,PLINES
+	SET	'Y,8
+	SET	'I,2
+	GET	TABLE,0 >LINES
+	GET	TABLE,1 >WIDTH
+	SET	'PLINES,LINES
+	GRTR?	WIDTH,GL-ALLSCREEN \?CND1
+	PRINTR	"[*** Window too wide ***]"
+?CND1:	ZERO?	MARGIN \?CND3
+	DIV	WIDTH,2
+	SUB	GL-MIDSCREEN,STACK >MARGIN
+?CND3:	ADD	LINES,6
+	SPLIT	STACK
+	SCREEN	K-S-WIN
+	HLIGHT	K-H-INV
+	CURSET	Y,MARGIN
+	ICALL2	RT-PRINT-SPACES,WIDTH
+?PRG5:	INC	'Y
+	CURSET	Y,MARGIN
+	DEC	'LINES
+	ZERO?	LINES \?CND7
+	ICALL2	RT-PRINT-SPACES,WIDTH
+	HLIGHT	K-H-NRM
+	SCREEN	K-S-NOR
+	SPLIT	1
+	DIROUT	K-D-SCR-OFF
+	SET	'I,2
+	CRLF	
+	PRINTC	91
+?PRG12:	DEC	'PLINES
+	ZERO?	PLINES /?REP13
+	GET	TABLE,I >STR
+	ZERO?	STR /?CND16
+	EQUAL?	I,2 /?CND18
+	PRINTC	32
+?CND18:	PRINT	STR
+	EQUAL?	PLINES,1 \?CND16
+	PRINTC	93
+?CND16:	CRLF	
+	INC	'I
+	JUMP	?PRG12
+?CND7:	GET	TABLE,I >STR
+	ZERO?	STR \?CCL11
+	ICALL2	RT-PRINT-SPACES,WIDTH
+	JUMP	?CND9
+?CCL11:	PRINTC	32
+	PRINT	STR
+	PRINTC	32
+?CND9:	INC	'I
+	JUMP	?PRG5
+?REP13:	CRLF	
+	DIROUT	K-D-SCR-ON
+	RTRUE	
+
+
+	.FUNCT	HOLMES-COMPLAINS,AMP?,SS?
+	ZERO?	AMP? /?CND1
+	CALL1	RT-ANYONE-HERE?
+	EQUAL?	STACK,FALSE-VALUE,CH-HOLMES \?CND1
+	SET	'AMP?,FALSE-VALUE
+?CND1:	ZERO?	SS? \?PRD9
+	ZERO?	AMP? /FALSE
+?PRD9:	CALL1	RT-WHO-SAYS?
+	EQUAL?	STACK,CH-HOLMES \FALSE
+	CRLF	
+	PRINTI	"Holmes "
+	ZERO?	AMP? /?CND12
+	PRINTI	"takes you aside and whispers, ""Watson, you must keep the ampoule hidden"
+?CND12:	ZERO?	SS? /?CND14
+	ZERO?	AMP? /?CCL18
+	PRINTI	", and"
+	JUMP	?CND16
+?CCL18:	PRINTI	"says, ""Watson,"
+?CND16:	PRINTI	" take that ridiculous thing out of your ears"
+?CND14:	PRINTR	"."""
+
+
+	.FUNCT	TOO-DARK-TO-GO,NEWPLACE
+	PRINTI	"You start off into the "
+	FSET?	NEWPLACE,FL-INDOORS \?CCL3
+	PRINTI	"darkness"
+	JUMP	?CND1
+?CCL3:	PRINTI	"fog"
+?CND1:	PRINTR	", but think better of it when you realize you have no light to guide your way."
+
+
+	.FUNCT	RT-AC-CH-PLAYER-AUX
+	ZERO?	GL-NOW-PRSI? /?CCL3
+	EQUAL?	GL-WINNER,CH-PLAYER \FALSE
+	EQUAL?	GL-PRSA,V?GIVE \FALSE
+	ICALL	RT-PERFORM,V?TAKE,GL-PRSO
+	RTRUE	
+?CCL3:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON,V?SEARCH \FALSE
+	PRINTR	"You don't look any uglier than usual."
+
+
+	.FUNCT	RT-CHECK-HANDS
+	EQUAL?	GL-PRSA,V?TAKE-OFF \?CCL3
+	EQUAL?	GL-PRSO,TH-HANDS /TRUE
+?CCL3:	EQUAL?	GL-PRSA,V?PUT-ON,V?TAKE \?CCL7
+	EQUAL?	GL-PRSO,TH-HANDS \?CCL7
+	EQUAL?	GL-PRSI,TH-EARS /TRUE
+?CCL7:	EQUAL?	GL-PRSA,V?COVER \FALSE
+	EQUAL?	GL-PRSI,TH-HANDS \FALSE
+	EQUAL?	GL-PRSO,TH-EARS /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-HANDS-COVERING-EARS
+	PRINTI	"You cannot do that because "
+	ICALL2	RT-THEO-PRINT,TH-HANDS
+	PRINTI	" are covering "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+
+	.ENDI
diff --git a/other-misc.zil b/other-misc.zil
new file mode 100644
index 0000000..01ee4e1
--- /dev/null
+++ b/other-misc.zil
@@ -0,0 +1,1049 @@
+<DEFAULTS-DEFINED TRADEMARK-MSG>
+
+<REPLACE-DEFINITION DEBUGGING-CODE T>
+
+<REPLACE-DEFINITION COMMAND-CODE T>
+
+<CONSTANT SIZE-VALS 13>
+<CONSTANT MASS-VALS 11>
+<CONSTANT CAPACITY-VALS 102>
+
+<CONSTANT SIZE-TABLE <TABLE (PURE BYTE) 10 12 15 20 50 99 100>>
+
+<ROUTINE SET-SIZE-TO-ONE (OBJ "AUX" (NUM <GETP .OBJ ,P?SIZE>))
+  <PUTP .OBJ ,P?SIZE <+ 1 <* </ .NUM ,SIZE-VALS> ,SIZE-VALS>>>>
+
+<ROUTINE GET-SIZE (OBJ "AUX" (NUM <GETP .OBJ ,P?SIZE>))
+  <SET NUM <MOD .NUM ,SIZE-VALS>>
+  <COND (<L? .NUM 6> .NUM)
+	(T
+	 <GETB ,SIZE-TABLE <- .NUM 6>>)>>
+
+<CONSTANT MASS-TABLE <TABLE (PURE BYTE) 10 15 50 100 250>>
+
+<ROUTINE SET-MASS-TO-ONE (OBJ "AUX" (NUM <GETP .OBJ ,P?SIZE>))
+  <PUTP .OBJ ,P?SIZE <+ ,SIZE-VALS <MOD .NUM ,SIZE-VALS>
+			<* </ .NUM <* ,SIZE-VALS ,MASS-VALS>>
+			   <* ,SIZE-VALS ,MASS-VALS>>>>>
+
+<ROUTINE GET-MASS (OBJ "AUX" (NUM <GETP .OBJ ,P?SIZE>))
+  <SET NUM <MOD </ .NUM ,SIZE-VALS> ,MASS-VALS>>
+  <COND (<L? .NUM 6> .NUM)
+	(T
+	 <GETB ,MASS-TABLE <- .NUM 6>>)>>
+
+<ROUTINE GET-CAPACITY (OBJ "AUX" (NUM <GETP .OBJ ,P?SIZE>))
+  <COND (<G? <SET NUM </ .NUM <* ,SIZE-VALS ,MASS-VALS>>> 100> 999)
+	(T .NUM)>>
+
+<ROUTINE SET-CAPACITY-TO-ONE (OBJ "AUX" (NUM <GETP .OBJ ,P?SIZE>))
+  <PUTP .OBJ ,P?SIZE <+ <* ,SIZE-VALS ,MASS-VALS>
+			<MOD .NUM <* ,SIZE-VALS ,MASS-VALS>>>>>
+
+<ROUTINE RT-SEE-ANYTHING-IN? (THING "AUX" OBJ)
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RFALSE>)
+		      (<AND <MC-ISNOT? .OBJ ,FL-NODESC>
+			    <NOT <EQUAL? .OBJ ,GL-WINNER>>>
+		       <RTRUE>)
+		      (T
+		       <SET OBJ <NEXT? .OBJ>>)>>>
+
+<ROUTINE RT-CANT-TOUCH-MSG (OBJ CLSD IN-OUT)
+	<RT-CYOU-MSG>
+	<TELL "cannot " VW " " THE .OBJ>
+	<COND (<MC-T? .CLSD>
+	       <TELL " because ">
+	       <COND (<AND <MC-IS? .OBJ ,FL-PLURAL>
+			   <MC-ISNOT? .OBJ ,FL-COLLECTIVE>>
+		      <TELL "they are">)
+		     (T
+		      <TELL "it is">)>
+	       <TELL " ">
+	       <COND (<MC-T? .IN-OUT>
+		      <TELL "inside">)
+		     (T
+		      <TELL "outside">)>
+	       <TELL " " THE .CLSD ", which is closed">)>
+	<TELL "." CR>>
+
+<ROUTINE RT-TOTAL-SIZE-IN-OBJ (OBJ1 "AUX" OBJ (TOTSIZ 0))
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <SET TOTSIZ <+ .TOTSIZ <GET-SIZE .OBJ>>>)>
+		<SET OBJ <NEXT? .OBJ>>>
+	<RETURN .TOTSIZ>>
+
+<ROUTINE RT-TOTAL-MASS-OF-OBJ (OBJ1 "AUX" OBJ (TOTMAS 0))
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <SET TOTMAS <+ .TOTMAS <RT-TOTAL-MASS-OF-OBJ .OBJ>>>)>
+		<SET OBJ <NEXT? .OBJ>>>
+	<SET TOTMAS <+ .TOTMAS <GET-MASS .OBJ1>>>
+	<RETURN .TOTMAS>>
+
+<ROUTINE RT-TOTAL-COUNT-IN-OBJ (OBJ1 "AUX" OBJ (TOTCNT 0))
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (<AND <MC-IS? .OBJ ,FL-WORN>
+			    <IN? .OBJ ,CH-PLAYER>>
+		       T)
+		      (<MC-IS? .OBJ ,FL-BODYPART>
+		       T)
+		      (T
+		       <INC TOTCNT>)>
+		<SET OBJ <NEXT? .OBJ>>>
+	<RETURN .TOTCNT>>
+
+<ROUTINE RT-OBJ-TOO-LARGE? (OBJ1 OBJ2)
+	<G? <+ <GET-SIZE .OBJ1> <RT-TOTAL-SIZE-IN-OBJ .OBJ2>>
+	    <GET-CAPACITY .OBJ2>>>
+
+<ROUTINE RT-OBJ-TOO-HEAVY? (OBJ1 OBJ2)
+	<G? <+ <RT-TOTAL-MASS-OF-OBJ .OBJ1> <RT-TOTAL-MASS-OF-OBJ .OBJ2>>
+	    <GETP .OBJ2 ,P?STRENGTH>>>
+
+<ROUTINE RT-OBJ-TOO-MANY? (OBJ1 OBJ2)
+	<G? <+ 1 <RT-TOTAL-COUNT-IN-OBJ .OBJ2>>
+	    <GETP .OBJ2 ,P?DEXTERITY>>>
+
+<ROUTINE RT-REMOVE-ALL (OBJ1 "AUX" OBJ NXT (CNT 0))
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)>
+		<SET NXT <NEXT? .OBJ>>
+		<REMOVE .OBJ>
+		<INC CNT>
+		<SET OBJ .NXT>>
+	<RETURN .CNT>>
+
+<ROUTINE RT-MOVE-ALL-BUT-WORN (OBJ1 OBJ2 "AUX" OBJ NXT (CNT 0))
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)>
+		<SET NXT <NEXT? .OBJ>>
+		<COND (<AND <MC-ISNOT? .OBJ ,FL-WORN>
+			    <NOT <EQUAL? .OBJ ,TH-POCKET>>>
+		       <MOVE .OBJ .OBJ2>
+		       <INC CNT>)>
+		<SET OBJ .NXT>>
+	<RETURN .CNT>>
+
+<ROUTINE RT-MOVE-NODESC-OBJS (OBJ1 OBJ2 "AUX" OBJ NXT (CNT 0)) 
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)>
+		<SET NXT <NEXT? .OBJ>>
+		<COND (<MC-IS? .OBJ ,FL-NODESC>
+		       <MOVE .OBJ .OBJ2>
+		       <INC CNT>)>
+		<SET OBJ .NXT>>
+	<RETURN .CNT>>
+
+<ROUTINE RT-FIND-IN? (OBJ1 FLG "AUX" OBJ) 
+	<SET OBJ <FIRST? .OBJ1>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RFALSE>)
+		      (<MC-IS? .OBJ .FLG>
+		       <RETURN .OBJ>)>
+		<SET OBJ <NEXT? .OBJ>>>>
+
+<ROUTINE RT-GET-ANY-KEY ("AUX" X)
+	<TELL "[Press any key.]" CR>
+	<SET X <INPUT 1>>
+	<RTRUE>>
+
+<ROUTINE RT-GET-YES-NO? ("AUX" WORD)
+	<REPEAT ()
+		<TELL CR "Please type YES or NO > ">
+		<PUTB ,GL-YES-LEXV 0 4>
+		<PUTB ,GL-YES-IBUF 1 0>
+		<READ ,GL-YES-IBUF ,GL-YES-LEXV>
+		<SET WORD <GET ,GL-YES-LEXV ,K-P-LEXSTART>>
+		<COND (<ZERO? <GETB ,GL-YES-LEXV ,K-P-LEXWORDS>>
+		       T)
+		      (<MC-T? .WORD>
+		       <COND (<EQUAL? .WORD ,W?Y ,W?YES>
+			      <RTRUE>)
+			     (<EQUAL? .WORD ,W?N ,W?NO>
+			      <RFALSE>)>)>>>
+
+<ROUTINE RT-INIT-SCREEN ("OPT" (FAST? <>))
+  <COND (.FAST?
+	 <SPLIT ,GL-SPLIT-ROW>
+	 <CLEAR 1>)
+	(T
+	 <CLEAR -1>
+	 <SPLIT ,GL-SPLIT-ROW>)>
+  <SCREEN ,K-S-WIN>
+  ;<BUFOUT <>>
+  <HLIGHT ,K-H-INV>
+  <CURSET ,GL-SPLIT-ROW 1>
+  <RT-PRINT-SPACES ,GL-ALLSCREEN>
+  <SETG GL-PLACE-STS -1>
+  <SETG GL-MOVES-STS -1>
+  <SETG GL-SCORE-STS -1>
+  <CURSET ,GL-SPLIT-ROW ,GL-STAT-S-POS>
+  <COND (<NOT ,GL-SHORT-STAT?>
+	 <TELL "Score:">)>
+  <HLIGHT ,K-H-NRM>
+  ;<BUFOUT T>
+  <SCREEN ,K-S-NOR>
+  <RTRUE>>
+
+<ROUTINE RT-GAMETITLE-MSG ()
+	<TELL "Sherlock: The Riddle of the Crown Jewels" CR>
+	<RTRUE>>
+
+<ROUTINE RT-COPYRIGHT-MSG ()
+	<TELL "Copyright 1987 Infocom, Inc." CR>
+	<RTRUE>>
+
+<DEFAULT-DEFINITION TRADEMARK-MSG
+ <ROUTINE RT-TRADEMARK-MSG ()
+	<TELL "Sherlock: The Riddle of the Crown Jewels is a trademark of Infocom, Inc." CR>
+	<RTRUE>>>
+
+<ROUTINE RT-ID-MSG ()
+	<TELL "Release " N <BAND <LOWCORE ZORKID> *3777*>>
+	<TELL " Interpreter " N <LOWCORE INTID>>
+	<TELL " Version " C <LOWCORE INTVR>>
+	<TELL " Serial Number ">
+	<LOWCORE-TABLE SERIAL 6 PRINTC>
+	<CRLF>
+	<RTRUE>>
+
+<ROUTINE RT-VERSION-MSG ()
+	<HLIGHT ,K-H-BLD>
+	<RT-GAMETITLE-MSG>
+	<RT-COPYRIGHT-MSG>
+	<RT-TRADEMARK-MSG>
+	<RT-ID-MSG>
+	<HLIGHT ,K-H-NRM>
+	<RTRUE>>
+
+<ROUTINE RT-DESC-PL-CONT-1 (SURFACE CNT "AUX" OBJ NXT FIRST
+			    (PERSON-COUNT 0) (PERSON-PLURAL <>))
+  <SET OBJ <FIRST? .SURFACE>>
+  <SET FIRST T>
+  <REPEAT ()
+    <COND (<MC-F? .OBJ>
+	   <RETURN>)
+	  (<OR <MC-IS? .OBJ ,FL-NODESC>
+	       <EQUAL? .OBJ ,GL-PUPPY>>
+	   <SET OBJ <NEXT? .OBJ>>
+	   <AGAIN>)
+	  (<MC-IS? .OBJ ,FL-PERSON>
+	   <SET PERSON-COUNT <+ .PERSON-COUNT 1>>
+	   <SET OBJ <NEXT? .OBJ>>
+	   <AGAIN>)
+	  (<MC-T? .FIRST>
+	   <COND (<G? .CNT 0>
+		  <TELL " ">)
+		 (T
+		  <CRLF>)>
+	   <TELL "You see ">
+	   <SET FIRST <>>)>
+    <TELL A .OBJ>
+    <INC CNT>
+    <SET OBJ <NEXT? .OBJ>>
+    <REPEAT ()
+      <COND (<MC-F? .OBJ>
+	     <RETURN>)
+	    (<OR <==? .OBJ ,GL-PUPPY>
+		 <FSET? .OBJ ,FL-NODESC>> T)
+	    (<AND <MC-IS? .OBJ ,FL-PERSON>
+		  <MC-ISNOT? .OBJ ,FL-NODESC>>
+	     <SET PERSON-COUNT <+ .PERSON-COUNT 1>>)
+	    (T
+	     <RETURN>)>
+      <SET OBJ <NEXT? .OBJ>>>
+    <COND (<MC-T? .OBJ>
+	   <SET NXT <NEXT? .OBJ>>
+	   <REPEAT ()
+	     <COND (<MC-F? .NXT>
+		    <RETURN>)
+		   (<AND <MC-ISNOT? .NXT ,FL-NODESC>
+			 <NOT <EQUAL? .NXT ,GL-PUPPY>>
+			 <MC-ISNOT? .NXT ,FL-PERSON>>
+		    <RETURN>)>
+	     <SET NXT <NEXT? .NXT>>>
+	   <COND (<MC-F? .NXT>
+		  <TELL " and ">)
+		 (T
+		  <TELL ", ">)>)
+	  (T
+	   <COND (<NOT <IN? .SURFACE ,ROOMS>>
+		  <TELL " on " THE .SURFACE>)>
+	   <TELL ".">)>>
+  <COND (<G? .PERSON-COUNT 0>
+	 <COND (<G? .CNT 0>
+		<TELL " ">)
+	       (T
+		<CRLF>)>
+	 <SET CNT <+ .CNT .PERSON-COUNT>>
+	 <COND (<G? .PERSON-COUNT 1>
+		<SET PERSON-PLURAL T>)>
+	 <SET OBJ <FIRST? .SURFACE>>
+	 <SET FIRST T>
+	 <REPEAT ()
+	   <COND (<OR <MC-IS? .OBJ ,FL-NODESC>
+		      <EQUAL? .OBJ ,GL-PUPPY>> T)
+		 (<MC-IS? .OBJ ,FL-PERSON>
+		  <COND (.FIRST
+			 <TELL CA .OBJ>)
+			(T
+			 <TELL A .OBJ>)>
+		  <SET FIRST <>>
+		  <COND (<MC-IS? .OBJ ,FL-PLURAL>
+			 <SET PERSON-PLURAL T>)>
+		  <COND (<0? <SET PERSON-COUNT <- .PERSON-COUNT 1>>>
+			 <COND (.PERSON-PLURAL
+				<TELL " are">)
+			       (T
+				<TELL " is">)>
+			 <TELL " here.">
+			 <RETURN>)
+			(<1? .PERSON-COUNT>
+			 <TELL " and ">)
+			(T
+			 <TELL ", ">)>)>
+	   <SET OBJ <NEXT? .OBJ>>>)>
+  <SET OBJ <FIRST? .SURFACE>>
+  <REPEAT ()
+    <COND (<MC-F? .OBJ>
+	   <RETURN>)
+	  (<MC-IS? .OBJ ,FL-SURFACE>
+	   <SET CNT <RT-DESC-PL-CONT-1 .OBJ .CNT>>)>
+    <SET OBJ <NEXT? .OBJ>>>
+  <RETURN .CNT>>
+
+<ROUTINE RT-DESCRIBE-PLACE-CONTENTS ("OPTIONAL" (PLACE <>) (LOOK <>) "AUX" OBJ
+					         PREV (CNT 0) LIGHT)
+	<COND (<MC-F? .PLACE>          ;"if no place is passed as an argument"
+	       <SET PLACE ,GL-PLACE-CUR>)>   ;"use gl-place-cur"
+	<COND (<MC-T? <RT-DESC-PL-CONT-1 .PLACE 0>>
+	       <CRLF>)>; "describe each object"
+	<RTRUE>>
+
+<ROUTINE RT-RANK-STR (PTS)
+	<COND (<L? .PTS 1>
+	       <RETURN "Chief Superintendent of Scotland Yard">)
+	      (<L? .PTS 21>
+	       <RETURN "Inspector">)
+	      (<L? .PTS 41>
+	       <RETURN "Detective">)
+	      (<L? .PTS 61>
+	       <RETURN "Lieutenant">)
+	      (<L? .PTS 81>
+	       <RETURN "Sergeant">)
+	      (<L? .PTS 91>
+	       <RETURN "Private">)
+	      (<L? .PTS 100>
+	       <RETURN "Patrolman">)
+	      (T
+	       <RETURN "Consulting Detective">)>>
+
+<ROUTINE RT-NEW-SCORE-MSG (PTS)
+	<COND (<0? .PTS> <RFALSE>)>
+	<HLIGHT ,K-H-BLD>
+	<COND (<MC-T? ,GL-SCORE-MSG>
+	       <TELL CR "[Your score just went up by " N .PTS " point">
+	       <COND (<G? .PTS 1>
+		      <TELL "s">)>
+	       <TELL
+". The total is now " N ,GL-SCORE-CUR " out of " N ,GL-SCORE-MAX ".]" CR>)>
+	<HLIGHT ,K-H-NRM>>
+
+
+; "All words for this are in the table TH-EVENT-NAMES in CONSTANTS.
+   This will only ever be found by MOBY-FIND."
+
+<OBJECT TH-EVENT
+	(FLAGS FL-NODESC FL-NEEDS-IDENTITY FL-HAS-SDESC FL-NOARTC)
+	(OBJ-ADJ 0)
+	(OBJ-NOUN 0)
+	(ACTION RT-AC-TH-EVENT)>
+
+; "Given noun and adjective, see if TH-EVENT can be a match"
+<ROUTINE RT-PARSE-EVENT? (NOUN ADJ "AUX" (OBJ ,TH-EVENT))
+  <REPEAT ((N </ <ZGET ,TH-EVENT-NAMES 0> ,EN-ENTLEN>)
+	   (TB <ZREST ,TH-EVENT-NAMES 2>)
+	   NTB ATB FLGS)
+    <COND (<INTBL? .NOUN <ZREST <SET NTB <ZGET .TB 0>> 2>
+		   <ZGET .NTB 0>>
+	   <COND (<OR <NOT .ADJ>
+		      <AND <SET ATB <ZGET .TB 1>>
+			   <INTBL? .ADJ <ZREST .ATB 2> <ZGET .ATB 0>>>>
+		  <PUTP .OBJ ,P?OBJ-NOUN
+			<ZGET .NTB 1>>
+		  <SET FLGS <ZGET .TB 3>>
+		  ; "NOARTC is handled by RT-DESC-EVENT"
+		  <COND (<T? <ANDB .FLGS ,EN-ALIVE>>
+			 <FSET .OBJ ,FL-ALIVE>)
+			(T
+			 <FCLEAR .OBJ ,FL-ALIVE>)>
+		  <COND (<T? <ANDB .FLGS ,EN-PERSON>>
+			 <FSET .OBJ ,FL-PERSON>)
+			(T
+			 <FCLEAR .OBJ ,FL-PERSON>)>
+		  <COND (<T? <ANDB .FLGS ,EN-VOWEL>>
+			 <FSET .OBJ ,FL-VOWEL>)
+			(T
+			 <FCLEAR .OBJ ,FL-VOWEL>)>
+		  <RETURN .OBJ>)
+		 (T
+		  <RFALSE>)>)>
+    <COND (<L? <SET N <- .N 1>> 1> <RFALSE>)>
+    <SET TB <ZREST .TB <* ,EN-ENTLEN 2>>>>>
+
+<ROUTINE RT-IDENTIFY-EVENT? (WD "OPT" (OBJ <>)
+			     "AUX" (NAM <GETP ,TH-EVENT ,P?OBJ-NOUN>))
+  <COND (<AND .OBJ <N==? .OBJ ,TH-EVENT>>
+	 <RFALSE>)>
+  <REPEAT ((N </ <ZGET ,TH-EVENT-NAMES 0> ,EN-ENTLEN>)
+	   (TB <ZREST ,TH-EVENT-NAMES 2>) NTB)
+    <COND (<==? .WD <ZGET <SET NTB <ZGET .TB 0>> 1>>
+	   ; "This is the case we're interested in"
+	   <COND (<INTBL? .NAM <ZREST .NTB 2> <ZGET .NTB 0>>
+		  <RTRUE>)
+		 (T
+		  <RFALSE>)>)>
+    <COND (<L? <SET N <- .N 1>> 1> <RFALSE>)>
+    <SET TB <ZREST .TB <* ,EN-ENTLEN 2>>>>>
+	
+<ROUTINE RT-DESC-EVENT ("OPT" (CLASS <>)
+			"AUX" (WD <GETP ,TH-EVENT ,P?OBJ-NOUN>)
+			FLAGS)
+  <REPEAT ((N </ <ZGET ,TH-EVENT-NAMES 0> ,EN-ENTLEN>)
+	   (TB <ZREST ,TH-EVENT-NAMES 2>))
+     <COND (<==? .WD <ZGET <ZGET .TB 0> 1>>
+	    <SET FLAGS <ZGET .TB 3>>
+	    <COND (<ZGET .TB 2>
+		   <PRINT-SDESC <ZGET .TB 2> .CLASS
+				<NOT <0? <ANDB .FLAGS ,EN-NOARTC>>>
+				<FSET? ,TH-EVENT ,FL-PLURAL>
+				<FSET? ,TH-EVENT ,FL-VOWEL>>)
+		  (T
+		   <PRINT-SDESC .WD .CLASS
+				<NOT <0? <ANDB .FLAGS ,EN-NOARTC>>>
+				<FSET? ,TH-EVENT ,FL-PLURAL>
+				<FSET? ,TH-EVENT ,FL-VOWEL>
+				T>)>
+	    <RTRUE>)>
+     <COND (<L? <SET N <- .N 1>> 1> <RFALSE>)>
+     <SET TB <ZREST .TB <* ,EN-ENTLEN 2>>>>>
+
+<ROUTINE RT-AC-TH-EVENT ("OPT" (CONTEXT <>) (CLASS <>))
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <RT-DESC-EVENT .CLASS>)
+	      (<NOT <RT-TALK-VERB?>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-TO-DO-THING-USE-MSG (STR1 STR2)
+       <TELL "[To " .STR1 " something, use the command: " .STR2 " THING.]" CR>
+       <RTRUE>>
+
+<ROUTINE RT-NOT-IN-SENTENCE-MSG (STR)
+	 <TELL "[There are not " .STR " in that sentence.]" CR>
+	 <RTRUE>>
+
+<ROUTINE RT-IMPOSSIBLE-MSG ("AUX" WHO)
+	<SET WHO <RT-WHO-SAYS?>>
+	<COND (<EQUAL? .WHO ,CH-HOLMES ,CH-WIGGINS>
+	       <COND (<EQUAL? .WHO ,CH-HOLMES>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+			    " looks at you "
+			    <RT-PICK-NEXT ,GL-HOLMES-DESPAIR-TXT>
+			    " and says, \""
+			    <RT-PICK-NEXT ,GL-HOLMES-IMPOSSIBLE-TXT>>)
+		     (<EQUAL? .WHO ,CH-WIGGINS>
+		      <TELL <RT-PICK-NEXT ,GL-WIGGINS-DESC-TXT>
+			    " says, \""
+			    <RT-PICK-NEXT ,GL-WIGGINS-IMPOSSIBLE-TXT>>)>
+	       <TELL ".\"">)
+	      (T
+	       <TELL <RT-PICK-NEXT ,GL-IMPOSSIBLE-TXT> ".">)>
+	<CRLF>
+	<RTRUE>>
+
+<ROUTINE RT-NOT-LIKELY-MSG (THING STR)
+	<TELL "It" <RT-PICK-NEXT ,GL-NOT-LIKELY-TXT> " that " THE .THING>
+	<TELL " " .STR "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-LOOKS-PUZZLED-MSG (WHO)
+	<TELL CTHE .WHO " ">
+	<TELL <RT-PICK-NEXT ,GL-LOOKS-TXT> " ">
+	<TELL <RT-PICK-NEXT ,GL-PUZZLED-TXT> "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-WINNER-NOT-HOLDING-MSG ()
+	<TELL CTHE ,GL-WINNER>
+	<RT-ISNT-ARENT-MSG ,GL-WINNER>
+	<TELL "holding ">
+        <RTRUE>>
+
+<ROUTINE RT-YOUD-HAVE-TO-MSG (STR THING)
+	<TELL "You would have to " .STR " " THE .THING " to do that." CR>
+	<RT-THIS-IS-IT .THING>
+	<RTRUE>>
+
+<ROUTINE RT-WOULD-HAVE-TO-MSG ("OPTIONAL" (STR <>) (THING <>))   
+	<TELL "would have to " .STR " ">
+	<COND (<MC-T? .THING>
+	       <TELL THE .THING>)>
+	<RT-THIS-IS-IT .THING>
+	<RTRUE>>
+
+<ROUTINE RT-NOBODY-TO-ASK-MSG ()
+   <TELL "[There is nobody here to ask.]" CR>
+   <RT-P-CLEAR>
+   <RTRUE>>
+
+<ROUTINE RT-TALK-TO-SELF-MSG ()
+   <TELL "[You must address characters directly.]" CR>
+   <RT-P-CLEAR>
+   <RTRUE>>
+
+<ROUTINE RT-WAY-TO-TALK-MSG ()
+   <TELL
+"[Refer to your instruction manual for the correct way to address
+characters.]" CR>
+   <RT-P-CLEAR>
+   <RFATAL>>
+
+<ROUTINE RT-I-SUN-UP-DOWN-MSG ("AUX" TOD)
+    <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+	   <RFALSE>)
+	  (<EQUAL? <RT-CLOCK-CMP 6 30 0> 0>
+	   <RT-ALARM-SET-REL ,RT-I-SUN-UP-DOWN-MSG <RT-PARM-SET 0 30 0>>
+	   <SETG GL-LAST-OUT-TOD 1>
+	   <TELL CR
+"Visibility increases in the gathering light of the new day.">
+	   <COND (<NOT <EQUAL? ,GL-PLACE-CUR ,RM-THAMES-ONE ,RM-THAMES-TWO ,RM-THAMES-THREE ,RM-THAMES-FOUR ,RM-THAMES-FIVE>>
+		  <TELL " Tourists are beginning to crowd into the streets.">)>
+	   <CRLF>)
+	  (<EQUAL? <RT-CLOCK-CMP 7 0 0> 0>
+	   <RT-ALARM-SET-REL ,RT-I-SUN-UP-DOWN-MSG <RT-PARM-SET 12 30 0>>
+	   <SETG GL-LAST-OUT-TOD 2>
+	   <TELL CR
+"The sun comes up, as much as it ever comes up in England." CR>
+	   <RFALSE>)
+	  (<EQUAL? <RT-CLOCK-CMP 19 30 0> 0>
+	   <RT-ALARM-SET-REL ,RT-I-SUN-UP-DOWN-MSG <RT-PARM-SET 0 30 0>>
+	   <SETG GL-LAST-OUT-TOD 3>
+	   <TELL CR
+"Daylight begins to fade. Soon it will be dark." CR>)
+	  (<EQUAL? <RT-CLOCK-CMP 20 0 0> 0>
+	   <RT-ALARM-SET-REL ,RT-I-SUN-UP-DOWN-MSG <RT-PARM-SET 10 30 0>>
+	   <SETG GL-LAST-OUT-TOD 0>
+	   <TELL CR "Darkness falls and the mists come in." CR>
+	   <RFALSE>)>>
+
+<ROUTINE RT-NO-OTHER? ("OPTIONAL" (FEMALE? <>) "AUX" OBJ)
+	<SET OBJ <FIRST? ,GL-PLACE-CUR>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <COND (<AND <NOT <EQUAL? .OBJ ,GL-WINNER>>
+				   <MC-IS? .OBJ ,FL-PERSON>>
+			      <COND (<AND <MC-T? .FEMALE?>
+					  <MC-IS? .OBJ ,FL-FEMALE>>
+				     <RETURN>)
+				    (<AND <MC-F? .FEMALE?>
+					  <MC-ISNOT? .OBJ ,FL-FEMALE>>
+				     <RETURN>)>)>
+		       <SET OBJ <NEXT? .OBJ>>)>>
+	<COND (<MC-F? .OBJ>
+	       <RFALSE>)
+	      (T
+	       <RT-LOOKS-PUZZLED-MSG ,GL-WINNER>
+	       <TELL "To whom are you referring?" CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-GLOBAL-IN? (OBJ1 OBJ2 "AUX" TBL)
+	<SET TBL <GETPT .OBJ2 ,P?GLOBAL>>
+	<COND (<MC-F? .TBL>
+	       <RFALSE>)
+	      (<AND <L=? .OBJ1 255>
+		    <INTBL? .OBJ1 .TBL <PTSIZE .TBL> 1>>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-META-LOC (OBJ)
+   <REPEAT ()
+      <COND (<MC-F? .OBJ>
+	     <RFALSE>)
+	    (<IN? .OBJ ,GLOBAL-OBJECTS>
+	     <RETURN ,GLOBAL-OBJECTS>)
+	    (<IN? .OBJ ,ROOMS>
+	     <RETURN .OBJ>)
+	    (T
+	     <SET OBJ <LOC .OBJ>>)>>>
+
+<ROUTINE GO ()
+  ;<SETG GL-CLOCK-DSP  T >
+  <SETG GL-CLOCK-FMT  0 >
+  ;<SETG GL-MOVES-DSP <> >	; "There's no way to set these, ever"
+  ;<SETG GL-SCORE-DSP  T >
+  <SETG GL-SCORE-MSG  T >
+  <SETG GL-SCORE-MAX 100>
+  <SETG GL-PLACE-CUR ,RM-221B-BAKER-ST>
+  <RT-CLOCK-INC-SET 0 1 0>				; "hrs min sec"
+  <RT-CLOCK-DEF-SET 0 1 0>				; "hrs min sec"
+  <RT-CLOCK-SET 5 0 0 18 ;6>		; "hrs min sec yrs mon day dow"
+  <RT-ALARM-SET-ABS ,RT-I-BIGBEN <RT-PARM-SET 6 0 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-SUN-UP-DOWN-MSG <RT-PARM-SET 6 30 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-PM-QUITS <RT-PARM-SET 6 30 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-OPEN-WESTMINSTER-DOOR    <RT-PARM-SET  7  0 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-WESTMINSTER-LIGHTS-ON    <RT-PARM-SET  6 55 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-FLASH-WESTMINSTER-LIGHTS <RT-PARM-SET 17 50 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-WESTMINSTER-LIGHTS-OFF   <RT-PARM-SET 18  5 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-WESTMINSTER-LIGHTS-ON    <RT-PARM-SET  6 55 0 19>>
+  <RT-ALARM-SET-ABS ,RT-I-FLASH-WESTMINSTER-LIGHTS <RT-PARM-SET 17 50 0 19>>
+  <RT-ALARM-SET-ABS ,RT-I-LOCKED-IN-END-GAME       <RT-PARM-SET 18  1 0 19>>
+  <RT-ALARM-SET-ABS ,RT-I-OPEN-MUSEUM-DOOR <RT-PARM-SET 8 0 0 18>>
+  <RT-ALARM-SET-ABS ,RT-I-OUT-OF-TIME <RT-PARM-SET 9 0 0 20>>
+
+; "the following will normally not have to changed from game to game"
+
+  <SETG GL-SCORE-CUR   0>
+  <SETG GL-MOVES-CUR   0>
+  <SETG GL-SCORE-STS  -1>
+  <SETG GL-MOVES-STS  -1>
+  <SETG GL-PLACE-STS  -1>
+  <SETG GL-PLACE-PRV  -1>
+  <SETG GL-NOW-LIT? <RT-IS-LIT?>>
+  <SETG GL-WINNER ,CH-PLAYER>
+  <SETG GL-ALLSCREEN <LOWCORE SCRH>>
+  <SETG GL-MIDSCREEN </ ,GL-ALLSCREEN 2>>
+  <COND (<L? ,GL-ALLSCREEN 60>
+	 ; "Short status line"
+	 <SETG GL-SHORT-STAT? T>
+	 <SETG GL-STAT-S-POS 4>
+	 <SETG GL-STAT-T-POS 17>
+	 <SETG GL-SCORE-HEADER-LEN 0>
+	 <SETG GL-STAT-MAX-ROOM <- ,GL-ALLSCREEN 19>>)>
+  <SETG GL-STAT-S-POS <- ,GL-ALLSCREEN ,GL-STAT-S-POS>>
+  <SETG GL-STAT-T-POS <- ,GL-ALLSCREEN ,GL-STAT-T-POS>>
+  <SETG GL-SPLIT-ROW 1>
+  <MOVE ,CH-PLAYER ,GL-PLACE-CUR>
+  <CLEAR -1>
+  <CRLF>
+  <RT-GAMETITLE-MSG>
+  <RT-COPYRIGHT-MSG>
+  <RT-TRADEMARK-MSG>
+  <RT-ID-MSG>
+  <CRLF>
+  <RT-GET-ANY-KEY>
+  <RT-INIT-SCREEN>
+  <RT-UPDATE-STATUS-LINE>
+  <RT-DESC-ALL>
+  <RT-P-CLEAR>
+  <RT-MAIN-LOOP>
+  <AGAIN>>
+
+;"wait stuff"
+
+<GLOBAL BELIEVE-WAIT-TIME? <>>
+
+<ROUTINE RT-NUMBER? (PTR "AUX" TMP CNT BPTR (TPTR ,K-HRS) CHR (SUM 0) (TIM <>)
+		     (AM-PM? 0))
+  <SET TMP <REST ,GL-P-P-LEX <* .PTR 2>>>
+  <COND (<==? <SET CNT <GET .TMP ,K-P-LEXELEN>> ,W?AM>
+	 <SET AM-PM? 1>)
+	(<==? .CNT ,W?PM>
+	 <SET AM-PM? 2>)>
+  <COND (<T? .AM-PM?>
+	 <SETG BELIEVE-WAIT-TIME? T>)
+	(T
+	 <SETG BELIEVE-WAIT-TIME? <>>)>
+  <SET CNT <GETB .TMP 2>>
+  <SET BPTR <GETB .TMP 3>>
+  <REPEAT ()
+    <COND (<DLESS? CNT 0>
+	   <RETURN>)
+	  (T
+	   <SET CHR <GETB ,GL-P-PIBUF .BPTR>>
+	   <COND (<EQUAL? .CHR !\:>
+		  <PUTB ,GL-P-TIME .TPTR .SUM>
+		  <COND (<EQUAL? .TPTR ,K-HRS>
+			 <COND (<G? .SUM 23>
+				<RFALSE>)>
+			 <COND (<AND <==? .AM-PM? 2>
+				     <L? .SUM 12>>
+				<SET SUM <+ .SUM 12>>
+				<PUTB ,GL-P-TIME ,K-HRS .SUM>)>
+			 <SET TPTR ,K-MIN>)
+			(<EQUAL? .TPTR ,K-MIN>
+			 <RFALSE>)
+			(<EQUAL? .TPTR ,K-SEC>
+			 <RFALSE>)>
+		  <SET TIM T>
+                  <SET SUM 0>)
+		 (<G? .SUM 9999>
+		  <RFALSE>)
+		 (<OR  <G? .CHR !\9>
+		       <L? .CHR !\0>>
+		  <RFALSE>)
+		 (T
+		  <SET SUM <+ <* .SUM 10> <- .CHR !\0>>>)>
+	   <SET BPTR <+ .BPTR 1>>)>>
+  <COND (<MC-T? .TIM>
+	 <PUTB ,GL-P-TIME .TPTR .SUM>
+	 <COND (<EQUAL? .TPTR ,K-HRS>
+		<RFALSE>)
+	       (<EQUAL? .TPTR ,K-MIN>
+		<COND (<OR <L? .SUM 0>
+			   <G? .SUM 59>>
+		       <RFALSE>)>)
+	       (<EQUAL? .TPTR ,K-SEC>
+		<RFALSE>)>)
+	(T
+	 <COND (<AND <==? .AM-PM? 2>
+		     <L? .SUM 12>>
+		<SET SUM <+ .SUM 12>>)>
+	 <PUTB ,GL-P-TIME ,K-HRS .SUM>
+	 <PUTB ,GL-P-TIME ,K-MIN 0>
+	 <PUTB ,GL-P-TIME ,K-SEC 0>)>
+  <RT-CHANGE-LEXV .PTR ,W?INTNUM>
+  <COND (<G? .SUM 9999>
+	 <RFALSE>)
+	(<MC-T? .TIM>
+         <SET SUM 0>)>
+  <SETG GL-P-TIME-FLAG .TIM>
+  <SETG GL-P-NUMBER .SUM>
+  ,W?INTNUM>
+
+
+<ROUTINE V-WAIT-FOR ("AUX" H M S N)
+	<DEBUGGING? <RT-DEBUG-VERB "V-WAIT-FOR">>
+	<COND (<MC-PRSO? ,TH-TIME>
+	       <SET N ,GL-P-NUMBER>
+	       <COND (<EQUAL? .N -1>
+		      <SET N 1>)>
+	       <COND (<EQUAL? <GETP ,GL-PRSO ,P?OBJ-NOUN> ,W?MINUTE ,W?MINUTES>
+		      <SET H 0>
+		      <SET M .N>)
+		     (T
+		      <SET H .N>
+		      <SET M 0>)>
+	       <SET S 0>
+	       <TELL "Time passes..." CR>
+	       <RT-CLOCK-JMP .H .M .S>)
+	      (<AND <MC-F? ,GL-P-TIME-FLAG>
+		    <NOT <MC-PRSO? ,TH-INTNUM>>>
+	       <RT-CYOU-MSG>
+	       <TELL ,K-CANT-WAIT-MSG CR>
+	       <RFATAL>)
+	      (T
+	       <SET H <GETB ,GL-P-TIME ,K-HRS>>
+	       <SET M <GETB ,GL-P-TIME ,K-MIN>>
+	       <SET S <GETB ,GL-P-TIME ,K-SEC>>
+	       <COND (<AND <MC-PRSO? ,TH-INTNUM>
+			   <MC-F? ,GL-P-TIME-FLAG>>
+		      <TELL "[" N .H ":00]" CR CR>)>
+	       <COND (<G? .H 23>
+		      <RT-CYOU-MSG>
+		      <TELL ,K-CANT-WAIT-MSG CR>
+		      <RFATAL>)
+		     (<OR ,BELIEVE-WAIT-TIME?
+			  <G? .H 12>>
+			; "24 hour notation"
+		      <SET H <- .H <GETB ,GL-TIME ,K-HRS>>>
+		      <SET M <- .M <GETB ,GL-TIME ,K-MIN>>>
+		      <SET S <- .S <GETB ,GL-TIME ,K-SEC>>>)
+		     (T
+		     ; "12 hour notation"
+		     <SET H <- .H <+ <MOD <- <GETB ,GL-TIME ,K-HRS> 1> 12>
+				     1>>>
+		     <SET M <- .M <GETB ,GL-TIME ,K-MIN>>>
+		     <SET S <- .S <GETB ,GL-TIME ,K-SEC>>>)>
+	       ; "Normalize seconds"
+	       <SET N </ <- .S 59> 60>>
+	       <SET M <+ .M .N>>
+	       <SET S <- .S <* .N 60>>>
+	       <SET N </ <- .M 59> 60>>
+	       <SET H <+ .H .N>>
+	       <SET M <- .M <* .N 60>>>
+	       <REPEAT ()
+		       <COND (<G=? .H 0>
+			      <RETURN>)>
+		       <COND (,BELIEVE-WAIT-TIME?
+			      <SET H <+ .H 24>>)
+			     (T
+			      <SET H <+ .H 12>>)>>
+	       <COND (<AND <ZERO? .H>
+			   <ZERO? .M>
+			   <ZERO? .S>>
+		      <TELL "It is">
+		      <COND (<G? <+ <MOD <- <GETB ,GL-TIME ,K-HRS> 1> 12> 1>
+				   9>
+			     <TELL " ">)>
+		      <RT-CLK-NTI-MSG <BOR ,K-NTI-HH ,K-NTI-MM>>
+		      <TELL " now." CR>
+		      <RT-TIME-OF-DAY-MSG T>
+		      <RFATAL>)
+		     (T
+		      <TELL "Time passes..." CR>
+		      <RT-CLOCK-JMP .H .M .S>
+		      <RT-TIME-OF-DAY-MSG T>)>
+	       <RTRUE>)>>
+
+<ROUTINE RT-WAIT-TOD-MSG (TOD)
+  <CRLF>
+  <TELL "While you were waiting, ">
+  <COND (<0? .TOD>
+	 <TELL "the sun set and the mists rolled in." CR>)
+	(<1? .TOD>
+	 <TELL "the sky started to lighten. Soon it will be sunrise." CR>)
+	(<==? .TOD 2>
+	 <TELL "the sun rose... as much as it ever does here." CR>)
+	(T
+	 <TELL "the sun set. Soon it will be dark." CR>)>>
+
+;"window routines"
+
+;" RT-WINDOW [table] [left-margin]"
+;"   where [table] is a global PLTABLE with the 1st element = width of window"
+;"   followed by strings (0 for a blank line)"
+;"   if [left-margin] is not specified, window is centered"
+
+<ROUTINE RT-WINDOW (TABLE "OPTIONAL" (MARGIN 0) "AUX" (Y 8) (I 2) WIDTH LINES
+			 STR PLINES)
+	 <SET LINES <GET .TABLE 0>>
+	 <SET WIDTH <GET .TABLE 1>>
+	 <SET PLINES .LINES>
+	 <COND (<G? .WIDTH ,GL-ALLSCREEN>
+		<TELL "[*** Window too wide ***]" CR>
+		<RTRUE>)>
+	 <COND (<ZERO? .MARGIN>
+		<SET MARGIN <- ,GL-MIDSCREEN </ .WIDTH 2>>>)>
+	 ;<BUFOUT <>>
+	 <SPLIT <+ .LINES 6>>
+	 <SCREEN ,K-S-WIN>
+	 <HLIGHT ,K-H-INV>
+	 <CURSET .Y .MARGIN>
+	 <RT-PRINT-SPACES .WIDTH>
+	 <REPEAT ()
+		<INC Y>
+		<CURSET .Y .MARGIN>
+		<DEC LINES>
+		<COND (<ZERO? .LINES>
+		       <RT-PRINT-SPACES .WIDTH>
+		       <RETURN>)>
+		<SET STR <GET .TABLE .I>>
+		<COND (<ZERO? .STR>
+		       <RT-PRINT-SPACES .WIDTH>)
+		      (T
+		       <TELL " " .STR " ">)>
+		<INC I>>
+	 <HLIGHT ,K-H-NRM>
+	 <SCREEN ,K-S-NOR>
+	 <SPLIT 1>
+	 ;<BUFOUT T>
+	 <DIROUT ,K-D-SCR-OFF> ; "send window to printer"
+	 <SET I 2>
+	 <TELL CR "[">
+	 <REPEAT ()
+		<DEC PLINES>
+		<COND (<ZERO? .PLINES>
+		       <RETURN>)>
+		<SET STR <GET .TABLE .I>>
+		<COND (<NOT <ZERO? .STR>>
+		       <COND (<NOT <EQUAL? .I 2>>
+			      <TELL " ">)>
+		       <TELL .STR>
+		       <COND (<EQUAL? .PLINES 1>
+			      <TELL "]">)>)>
+		<CRLF>
+		<INC I>>
+	 <CRLF>
+	 <DIROUT ,K-D-SCR-ON>
+	 <RTRUE>>
+
+; "constants used with table"
+
+<CONSTANT K-SIGN-ABBEY     0>
+<CONSTANT K-SIGN-QUIET     1>
+<CONSTANT K-SIGN-HORRORS   2>
+<CONSTANT K-SIGN-MUSEUM    3>
+<CONSTANT K-SIGN-MONUMENT  4>
+<CONSTANT K-SIGN-BLIGH     5>
+<CONSTANT K-SIGN-BANK      6>
+<CONSTANT K-SIGN-TOWER     7>
+<CONSTANT K-SIGN-NELSON    8>
+<CONSTANT K-SIGN-LOITER    9>
+<CONSTANT K-SIGN-GOLDBAR  10>
+<CONSTANT K-SIGN-HENRY    11>
+<CONSTANT K-SIGN-MARQUEES 12>
+<CONSTANT K-SIGN-BLANK    13>
+;<CONSTANT K-SIGN-HERRING 14>
+
+
+; "extra space added to each line that ends in a period followed by a space."
+
+<CONSTANT GL-QUOTES:TABLE
+	<PTABLE
+		<PLTABLE 38
+			"Visiting Hours: 7:00 a.m - 6:00 p.m.">
+		<PLTABLE 18
+			"\"Quiet, please.\"">
+		<PLTABLE 36
+			"        CHAMBER OF HORRORS        "
+			"ABANDON HOPE ALL YE WHO ENTER HERE">
+		<PLTABLE 32
+			"MUSEUM HOURS:  8 a.m. - 6 p.m.">
+		<PLTABLE 8
+			"\"1666\"">
+		<PLTABLE 38
+			"This a replica of the rowboat in    "
+			"which Captain Bligh was set adrift  "
+			"after the infamous Mutiny on the    "
+			"Bounty. Bligh and his men rowed 3600"
+			"miles in 45 days, and lived to see  "
+			"the mutineers brought to justice.    ">
+		<PLTABLE 38
+			"For your convenience, the Bank shall"
+			"be closed for the entire Jubilee    "
+			"weekend. Thank you for your         "
+			"patronage.                           ">
+		<PLTABLE 38
+			"        THE TOWER IS CLOSED.         "
+			0
+			"    WE REGRET ANY INCONVENIENCE.     "
+			0
+			"          HAVE A NICE DAY.           ">
+		<PLTABLE 38
+			"During the battle of Copenhagen,    "
+			"Lord Nelson's commander-in-chief ran"
+			"the signal to \"discontinue action\"  "
+			"up his mast. Knowing the battle     "
+			"could yet be won, Nelson clapped his"
+			"telescope to his blind eye and said,"
+			"\"I do not see the signal.\" His      "
+			"subsequent attack led to victory and"
+			"a secure place for Nelson in British"
+			"history.                             ">
+		<PLTABLE 17
+			" No Loitering. "
+			0
+			"This means YOU!">
+		<PLTABLE 13
+			"BAR OF GOLD">
+		<PLTABLE 38
+			"\"Many monarchs are buried in        "
+			"Westminster. But only one died here."
+			"It happened on March 20th, 1413, and"
+			"the event was later made famous in a"
+			"scene written by Shakespeare:\"      "
+			0
+			"\"It hath been prophesied to me many "
+			"   years                            "
+			"I should not die but in Jerusalem,  "
+			"Which vainly I supposed the Holy    "
+			"   Land.                             "
+			"But bear me to that chamber, there  "
+			"   I'll lie,                        "
+			"In that Jerusalem shall Harry die.\" "
+			0
+			"\"Henry IV, Part II, Act V\"          ">
+		<PLTABLE 17
+			"   HELD OVER   "
+			0
+			"SIXTH BIG WEEK!"
+			0
+			"THE MOUSETRAP!!">
+		<PLTABLE 39
+			"This sign unintentionally left blank.">
+		;<PLTABLE 29
+			"THE SIGN OF THE RED HERRING">>>
+
+; "global used by invocation code fragment"
+
+<GLOBAL GL-WINDOW:NUMBER 0>
+
+; "setting of global with value from table"
+
+;<SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-HENRY>>
+
+; "invocation code fragment"
+
+
+;<COND (<MC-T? ,GL-WINDOW>
+	<RT-WINDOW ,GL-WINDOW>
+	<SETG GL-WINDOW <>>
+	<CRLF>)>
+
+<ROUTINE HOLMES-COMPLAINS (AMP? SS?)
+  <COND (.AMP?
+	 <COND (<==? <RT-ANYONE-HERE?> <> ,CH-HOLMES>
+		<SET AMP? <>>)>)>
+  <COND (<AND <OR .SS? .AMP?>
+	      <==? <RT-WHO-SAYS?> ,CH-HOLMES>>
+	 <TELL CR "Holmes ">
+	 <COND (.AMP?
+		<TELL
+"takes you aside and whispers, \"Watson, you must keep the ampoule hidden">)>
+	 <COND (.SS?
+		<COND (.AMP?
+		       <TELL ", and">)
+		      (T
+		       <TELL "says, \"Watson,">)>
+		<TELL " take that ridiculous thing out of your ears">)>
+	 <TELL ".\"" CR>)>>
+
+<ROUTINE TOO-DARK-TO-GO (NEWPLACE)
+  <TELL "You start off into the ">
+  <COND (<MC-IS? .NEWPLACE ,FL-INDOORS>
+	 <TELL "darkness">)
+	(T
+	 <TELL "fog">)>
+  <TELL ", but think better of it when you realize you have no light
+to guide your way." CR>>
+
+<ROUTINE RT-AC-CH-PLAYER-AUX ()
+  <COND (<MC-THIS-PRSI?>
+	 <COND (<AND <==? ,GL-WINNER ,CH-PLAYER>
+		     <MC-VERB? GIVE>>
+		<RT-PERFORM ,V?TAKE ,GL-PRSO>
+		<RTRUE>)>
+	 <RFALSE>)
+	(<MC-THIS-PRSO?>
+	 <COND (<MC-VERB? EXAMINE LOOK-ON SEARCH>
+		<TELL "You don't look any uglier than usual." CR>)>)>>
+
+<ROUTINE RT-CHECK-HANDS ()
+  <COND (<AND <MC-VERB? TAKE-OFF>
+	      <MC-PRSO? ,TH-HANDS>>
+	 <RTRUE>)
+	(<AND <MC-VERB? PUT-ON TAKE>
+	      <MC-PRSO? ,TH-HANDS>
+	      <MC-PRSI? ,TH-EARS>>
+	 <RTRUE>)
+	(<AND <MC-VERB? COVER>
+	      <MC-PRSI? ,TH-HANDS>
+	      <MC-PRSO? ,TH-EARS>>
+	 <RTRUE>)>>
+
+<ROUTINE RT-HANDS-COVERING-EARS ()
+  <TELL "You cannot do that because " THE ,TH-HANDS
+	" are covering " THE ,TH-EARS "." CR>>
diff --git a/parser.zabstr b/parser.zabstr
new file mode 100644
index 0000000..a20cfb5
--- /dev/null
+++ b/parser.zabstr
@@ -0,0 +1,120 @@
+
+<GLOBAL INHIBIT-ROOMS <> %<> WORD> 
+<GLOBAL GL-FUNNY-CLAUSE? <> %<> WORD> 
+<CONSTANT SH 128> 
+<CONSTANT SC 64> 
+<CONSTANT SIR 32> 
+<CONSTANT SOG 16> 
+<CONSTANT STAKE 8> 
+<CONSTANT SMANY 4> 
+<CONSTANT SHAVE 2> 
+<CONSTANT LAST-OBJECT 0> 
+<CONSTANT K-M-BEG 1> 
+<CONSTANT K-M-ENTERING 2> 
+<CONSTANT K-M-ENTERED 3> 
+<CONSTANT K-M-EXIT 4> 
+<CONSTANT K-M-END 5> 
+<CONSTANT K-M-FLOOK 6> 
+<CONSTANT K-M-NLOOK 7> 
+<CONSTANT K-M-WINNER 8> 
+<CONSTANT K-M-CONT 9> 
+<CONSTANT K-M-OBJDESC 10> 
+<CONSTANT K-M-CANT 11> 
+<CONSTANT K-M-DESCFCN 12> 
+<CONSTANT K-M-SDESC 13> 
+<CONSTANT K-M-DESC-1 14> 
+<CONSTANT K-M-DESC-2 15> 
+<CONSTANT K-M-DESC-3 16> 
+<CONSTANT K-P-LEXWORDS 1> 
+<CONSTANT K-P-LEXSTART 1> 
+<CONSTANT K-P-LEXELEN 2> 
+<CONSTANT K-P-WORDLEN 4> 
+<CONSTANT K-P-PSOFF 6> 
+<CONSTANT K-P-P1OFF 7> 
+<CONSTANT K-P-P1BITS 3> 
+<CONSTANT K-P-ITBLLEN 9> 
+<CONSTANT K-P-VERB 0> 
+<CONSTANT K-P-VERBN 1> 
+<CONSTANT K-P-PREP1 2> 
+<CONSTANT K-P-PREP1N 3> 
+<CONSTANT K-P-PREP2 4> 
+<CONSTANT K-P-NC1 6> 
+<CONSTANT K-P-NC1L 7> 
+<CONSTANT K-P-NC2 8> 
+<CONSTANT K-P-NC2L 9> 
+<CONSTANT K-O-PTR 0> 
+<CONSTANT K-O-START 1> 
+<CONSTANT K-O-LENGTH 2> 
+<CONSTANT K-O-END 3> 
+<CONSTANT K-P-MATCHLEN 0> 
+<CONSTANT K-P-ALL 1> 
+<CONSTANT K-P-ONE 2> 
+<CONSTANT K-P-INHIBIT 4> 
+<CONSTANT K-P-SRCBOT 2> 
+<CONSTANT K-P-SRCTOP 0> 
+<CONSTANT K-P-SRCALL 1> 
+<DEFINE-ROUTINE RT-CAPITALIZE> 
+<DEFINE-ROUTINE RT-WORD-PRINT> 
+<DEFINE-ROUTINE RT-VERB-PRINT> 
+<DEFINE-ROUTINE RT-PREP-PRINT> 
+<DEFINE-ROUTINE RT-CLAUSE-PRINT> 
+<DEFINE-ROUTINE RT-BUFFER-PRINT> 
+<GLOBAL GL-LONG-OOPS 3 %<> WORD> 
+<DEFINE-ROUTINE RT-DONT-KNOW-WORD-MSG> 
+<DEFINE-ROUTINE RT-DONT-KNOW-WORD-USE-MSG> 
+<DEFINE-ROUTINE RT-CANT-SEE-ANY-MSG> 
+<DEFINE-ROUTINE RT-TH-NOT-HERE-OBJECT> 
+<DEFINE-ROUTINE RT-FAKE-ORPHAN-MSG> 
+<DEFINE-ROUTINE RT-TIME-OF-DAY-MSG> 
+<DEFINE-ROUTINE RT-TIME-OF-DAY> 
+<DEFINE-ROUTINE RT-SPOKEN-TO-MSG> 
+<DEFINE-ROUTINE RT-GET-PREP> 
+<DEFINE-ROUTINE RT-SYNTAX-CHECK> 
+<DEFINE-ROUTINE RT-CLAUSE> 
+<DEFINE-ROUTINE RT-GET-WHAT-I-MEAN> 
+<DEFINE-ROUTINE RT-P-CLEAR> 
+<DEFINE-ROUTINE RT-PICK-NEXT> 
+<DEFINE-ROUTINE RT-QCONTEXT-GOOD?> 
+<DEFINE-ROUTINE RT-FIND-PERSON> 
+<DEFINE-ROUTINE RT-ANYONE-HERE?> 
+<DEFINE-ROUTINE RT-MOVE-ALL> 
+<DEFINE-ROUTINE RT-GOT?> 
+<DEFINE-ROUTINE RT-HELD?> 
+<DEFINE-ROUTINE RT-THIS-IS-IT> 
+<DEFINE-ROUTINE RT-CHANGE-LEXV> 
+<DEFINE-ROUTINE RT-WT?> 
+<DEFINE-ROUTINE RT-VERB-DIR-ONLY?> 
+<DEFINE-ROUTINE RT-STUFF> 
+<DEFINE-ROUTINE RT-INBUF-ADD> 
+<DEFINE-ROUTINE RT-ACLAUSE-WIN> 
+<DEFINE-ROUTINE RT-NCLAUSE-WIN> 
+<DEFINE-ROUTINE RT-ORPHAN-VERB> 
+<DEFINE-ROUTINE RT-ORPHAN> 
+<DEFINE-ROUTINE RT-ORPHAN-MERGE> 
+<DEFINE-ROUTINE RT-ADJ-CHECK> 
+<DEFINE-ROUTINE RT-CLAUSE-COPY> 
+<DEFINE-ROUTINE RT-CLAUSE-ADD> 
+<DEFINE-ROUTINE RT-PREP-FIND> 
+<DEFINE-ROUTINE RT-SYNTAX-FOUND> 
+<DEFINE-ROUTINE RT-BUT-MERGE> 
+<DEFINE-ROUTINE RT-SNARF-OBJECTS> 
+<DEFINE-ROUTINE RT-SNARF> 
+<DEFINE-ROUTINE RT-GET-OBJECT> 
+<DEFINE-ROUTINE RT-MOBY-FIND> 
+<DEFINE-ROUTINE RT-MATCH-PSEUDO> 
+<DEFINE-ROUTINE RT-GLOBAL-CHECK> 
+<DEFINE-ROUTINE RT-DO-SL> 
+<DEFINE-ROUTINE RT-SEARCH-LIST> 
+<DEFINE-ROUTINE RT-THIS-IT?> 
+<DEFINE-ROUTINE RT-OBJ-FOUND> 
+<DEFINE-ROUTINE RT-ITAKE> 
+<DEFINE-ROUTINE RT-ITAKE-CHECK> 
+<DEFINE-ROUTINE RT-MANY-CHECK> 
+<DEFINE-ROUTINE RT-IS-LIT?> 
+<GLOBAL WINNER-IS-WIGGINS <> %<> WORD> 
+<DEFINE-ROUTINE RT-PERFORM> 
+<DEFINE-ROUTINE RT-SET-GL-PLACE-CUR> 
+<DEFINE-ROUTINE RT-PARSER> 
+<DEFINE-ROUTINE RT-WHICH-PRINT> 
+<DEFINE-ROUTINE RT-FIND-NOT-HERE> 
+<DEFINE-ROUTINE RT-NOT-HERE-PRINT> 
\ No newline at end of file
diff --git a/parser.zap b/parser.zap
new file mode 100644
index 0000000..255412e
--- /dev/null
+++ b/parser.zap
@@ -0,0 +1,2588 @@
+
+
+	.FUNCT	RT-CAPITALIZE,PTR,?TMP1
+	ZERO?	GL-P-ORPH \?CTR2
+	ZERO?	GL-P-MERGED /?CCL3
+?CTR2:	GET	PTR,0
+	PRINTB	STACK
+	RTRUE	
+?CCL3:	GETB	PTR,3
+	GETB	GL-P-PIBUF,STACK
+	SUB	STACK,32
+	PRINTC	STACK
+	GETB	PTR,2
+	SUB	STACK,1 >?TMP1
+	GETB	PTR,3
+	ADD	STACK,1
+	CALL	RT-WORD-PRINT,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	RT-WORD-PRINT,CNT,BUF
+	ADD	GL-P-PIBUF,BUF
+	PRINTT	STACK,CNT
+	RTRUE	
+
+
+	.FUNCT	RT-VERB-PRINT,TMP,?TMP1
+	GET	GL-P-ITBL,K-P-VERBN >TMP
+	ZERO?	TMP \?CCL3
+	PRINTI	"tell"
+	RTRUE	
+?CCL3:	GETB	GL-P-VTBL,2
+	ZERO?	STACK \?CCL5
+	GET	TMP,0
+	PRINTB	STACK
+	RTRUE	
+?CCL5:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	RT-WORD-PRINT,?TMP1,STACK
+	PUTB	GL-P-VTBL,2,0
+	RTRUE	
+
+
+	.FUNCT	RT-PREP-PRINT,PREP,SP?,WRD
+	ASSIGNED?	'SP? /?CND1
+	SET	'SP?,TRUE-VALUE
+?CND1:	ZERO?	PREP /FALSE
+	ZERO?	GL-P-END-ON-PREP \FALSE
+	ZERO?	SP? /?CND8
+	PRINTC	32
+?CND8:	CALL2	RT-PREP-FIND,PREP >WRD
+	PRINTB	WRD
+	GET	GL-P-ITBL,K-P-VERBN
+	GET	STACK,0
+	EQUAL?	W?SIT,STACK \?CND10
+	EQUAL?	W?DOWN,WRD \?CND10
+	PRINTI	" on"
+?CND10:	GET	GL-P-ITBL,K-P-VERBN
+	GET	STACK,0
+	EQUAL?	W?GET,STACK \TRUE
+	EQUAL?	W?OUT,WRD \TRUE
+	PRINTI	" of"
+	RTRUE	
+
+
+	.FUNCT	RT-CLAUSE-PRINT,BPTR,EPTR,THE?,?TMP1
+	ASSIGNED?	'THE? /?CND1
+	SET	'THE?,TRUE-VALUE
+?CND1:	GET	GL-P-ITBL,BPTR >?TMP1
+	GET	GL-P-ITBL,EPTR
+	CALL	RT-BUFFER-PRINT,?TMP1,STACK,THE?
+	RSTACK	
+
+
+	.FUNCT	RT-BUFFER-PRINT,BEG,END,CP,NOSP,WRD,FIRST??,PN,?TMP1
+	SET	'FIRST??,TRUE-VALUE
+?PRG1:	EQUAL?	BEG,END /TRUE
+	ZERO?	NOSP /?CCL8
+	SET	'NOSP,FALSE-VALUE
+	JUMP	?CND6
+?CCL8:	PRINTC	32
+?CND6:	GET	BEG,0 >WRD
+	EQUAL?	WRD,W?HIM \?PRD12
+	CALL2	RT-VISIBLE?,GL-P-HIM-OBJECT
+	ZERO?	STACK /?CCL10
+?PRD12:	EQUAL?	WRD,W?HER \?PRD15
+	CALL2	RT-VISIBLE?,GL-P-HER-OBJECT
+	ZERO?	STACK /?CCL10
+?PRD15:	EQUAL?	WRD,W?THEM \?CND9
+	CALL2	RT-VISIBLE?,GL-P-THEM-OBJECT
+	ZERO?	STACK \?CND9
+?CCL10:	SET	'PN,TRUE-VALUE
+?CND9:	EQUAL?	WRD,W?PERIOD \?CCL22
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND3
+?CCL22:	EQUAL?	WRD,W?ALL,W?OF /?CCL24
+	GETB	WRD,6
+	BAND	STACK,12
+	ZERO?	STACK /?CCL24
+	GETB	WRD,6
+	BAND	STACK,160
+	ZERO?	STACK \?CCL24
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND3
+?CCL24:	EQUAL?	WRD,W?ME \?CCL29
+	ICALL2	DPRINT,CH-PLAYER
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?CCL29:	INTBL?	WRD,K-CAPS+2,18 \?CCL31
+	ICALL2	RT-CAPITALIZE,BEG
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?CCL31:	ZERO?	FIRST?? /?CND32
+	ZERO?	PN \?CND32
+	ZERO?	CP /?CND32
+	PRINTI	"the "
+?CND32:	ZERO?	GL-P-ORPH \?CTR38
+	ZERO?	GL-P-MERGED /?CCL39
+?CTR38:	PRINTB	WRD
+	JUMP	?CND37
+?CCL39:	EQUAL?	WRD,W?IT \?CCL43
+	CALL2	RT-VISIBLE?,GL-P-IT-OBJECT
+	ZERO?	STACK /?CCL43
+	ICALL2	DPRINT,GL-P-IT-OBJECT
+	JUMP	?CND37
+?CCL43:	EQUAL?	WRD,W?HER \?CCL47
+	ZERO?	PN \?CCL47
+	ICALL2	DPRINT,GL-P-HER-OBJECT
+	JUMP	?CND37
+?CCL47:	EQUAL?	WRD,W?THEM \?CCL51
+	ZERO?	PN \?CCL51
+	ICALL2	DPRINT,GL-P-THEM-OBJECT
+	JUMP	?CND37
+?CCL51:	EQUAL?	WRD,W?HIM \?CCL55
+	ZERO?	PN \?CCL55
+	ICALL2	DPRINT,GL-P-HIM-OBJECT
+	JUMP	?CND37
+?CCL55:	GETB	BEG,2 >?TMP1
+	GETB	BEG,3
+	ICALL	RT-WORD-PRINT,?TMP1,STACK
+?CND37:	SET	'FIRST??,FALSE-VALUE
+?CND3:	ADD	BEG,K-P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-DONT-KNOW-WORD-MSG,PTR,BUF,MSG,?TMP1
+	ZERO?	GL-LONG-OOPS \?CCL3
+	PRINTI	"[You don't need to use the word """
+	JUMP	?CND1
+?CCL3:	DEC	'GL-LONG-OOPS
+	PRINTI	"[You can play the game from start to finish, solve all the puzzles, get all the points, and STILL never need to use the word """
+?CND1:	MUL	PTR,2 >BUF
+	ADD	GL-P-P-LEX,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	GL-P-P-LEX,BUF
+	GETB	STACK,3
+	ICALL	RT-WORD-PRINT,?TMP1,STACK
+	PRINTI	""".]"
+	CRLF	
+	PUT	GL-OOPS-TABLE,K-O-PTR,PTR
+	SET	'GL-P-QUOT,FALSE-VALUE
+	SET	'GL-P-ORPH,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-DONT-KNOW-WORD-USE-MSG,PTR,BUF,?TMP1
+	PRINTI	"[This story cannot understand the word """
+	MUL	PTR,2 >BUF
+	ADD	GL-P-P-LEX,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	GL-P-P-LEX,BUF
+	GETB	STACK,3
+	ICALL	RT-WORD-PRINT,?TMP1,STACK
+	PRINTI	""" when you use it that way.]"
+	CRLF	
+	SET	'GL-P-QUOT,FALSE-VALUE
+	SET	'GL-P-ORPH,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-CANT-SEE-ANY-MSG,THING,STRING?,PRSO?,WRD
+	ASSIGNED?	'PRSO? /?CND1
+	SET	'PRSO?,TRUE-VALUE
+?CND1:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	EQUAL?	GL-PRSA,V?LISTEN \?CCL5
+	PRINTI	"hear"
+	JUMP	?CND3
+?CCL5:	EQUAL?	GL-PRSA,V?SMELL \?CCL7
+	PRINTI	"smell"
+	JUMP	?CND3
+?CCL7:	PRINTI	"see"
+?CND3:	ZERO?	STRING? /?CCL10
+	PRINT	STRING?
+	JUMP	?CND8
+?CCL10:	ZERO?	THING /?CCL12
+	EQUAL?	THING,TH-NOT-HERE-OBJECT /?CCL12
+	PRINTC	32
+	ICALL	RT-THEO-PRINT,THING,FALSE-VALUE,K-DESC-ANY
+	JUMP	?CND8
+?CCL12:	ZERO?	THING /?CND15
+	EQUAL?	GL-PRSI,TH-NOT-HERE-OBJECT \?CND15
+	SET	'PRSO?,FALSE-VALUE
+?CND15:	ZERO?	PRSO? /?CCL21
+	PUSH	0
+	JUMP	?CND19
+?CCL21:	PUSH	1
+?CND19:	GET	GL-P-NAMW,STACK >WRD
+	INTBL?	WRD,K-CAPS+2,18 /?CND22
+	PRINTI	" any"
+?CND22:	ICALL2	RT-NOT-HERE-PRINT,PRSO?
+?CND8:	PRINTI	" here."
+	CRLF	
+	SET	'GL-P-IT-OBJECT,TH-NOT-HERE-OBJECT
+	ICALL1	RT-P-CLEAR
+	RTRUE	
+
+
+	.FUNCT	RT-TH-NOT-HERE-OBJECT,TBL,PRSO?,OBJ
+	SET	'PRSO?,TRUE-VALUE
+	EQUAL?	GL-PRSO,TH-NOT-HERE-OBJECT \?CCL3
+	EQUAL?	GL-PRSI,TH-NOT-HERE-OBJECT \?CCL3
+	PRINTR	"Those things aren't here."
+?CCL3:	EQUAL?	GL-PRSO,TH-NOT-HERE-OBJECT \?CCL7
+	SET	'TBL,GL-P-PRSO
+	JUMP	?CND1
+?CCL7:	SET	'TBL,GL-P-PRSI
+	SET	'PRSO?,FALSE-VALUE
+?CND1:	ZERO?	PRSO? /?CCL10
+	EQUAL?	GL-PRSA,V?FIND,V?WHO,V?WHAT /?CCL12
+	EQUAL?	GL-PRSA,V?WHERE,V?WAIT-FOR,V?WAIT /?CCL12
+	EQUAL?	GL-PRSA,V?SAY,V?DRIVE,V?CALL /?CCL12
+	EQUAL?	GL-PRSA,V?MAKE,V?PASSWORD,V?WALK-TO /?CCL12
+	EQUAL?	GL-PRSA,V?TAKE \?CND8
+	EQUAL?	GL-PLACE-CUR,RM-DIOGENES-CLUB \?PRD21
+	EQUAL?	GL-WINNER,CH-BUTLER /?CCL12
+?PRD21:	EQUAL?	GL-PLACE-CUR,RM-SHERMANS-HOUSE \?CND8
+	EQUAL?	GL-WINNER,CH-SHERMAN \?CND8
+?CCL12:	CALL	RT-FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,TH-NOT-HERE-OBJECT /?CND8
+	RETURN	2
+?CCL10:	EQUAL?	GL-PRSA,V?TELL-ABOUT,V?ASK-ABOUT,V?ASK-FOR \?CND8
+	CALL	RT-FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,TH-NOT-HERE-OBJECT /?CND8
+	RETURN	2
+?CND8:	PRINTC	91
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	EQUAL?	GL-PRSA,V?LISTEN \?CCL40
+	PRINTI	"hear"
+	JUMP	?CND38
+?CCL40:	EQUAL?	GL-PRSA,V?SMELL \?CCL42
+	PRINTI	"smell"
+	JUMP	?CND38
+?CCL42:	PRINTI	"see"
+?CND38:	INTBL?	GL-P-XNAM,K-CAPS+2,18 /?CND43
+	PRINTI	" any"
+?CND43:	ICALL2	RT-NOT-HERE-PRINT,PRSO?
+	PRINTI	" here.]"
+	CRLF	
+	ICALL1	RT-P-CLEAR
+	RETURN	2
+
+
+	.FUNCT	RT-FAKE-ORPHAN-MSG,TMP,?TMP1
+	ICALL	RT-ORPHAN,GL-P-SYNTAX,FALSE-VALUE
+	PRINT	K-BE-SPECIFIC-MSG
+	GET	GL-P-OTBL,K-P-VERBN >TMP
+	ZERO?	TMP \?CCL3
+	PRINTI	"tell"
+	JUMP	?CND1
+?CCL3:	GETB	GL-P-VTBL,2
+	ZERO?	STACK \?CCL5
+	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND1
+?CCL5:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	RT-WORD-PRINT,?TMP1,STACK
+	PUTB	GL-P-VTBL,2,0
+?CND1:	PRINTI	"?]"
+	CRLF	
+	SET	'GL-P-ORPH,TRUE-VALUE
+	SET	'GL-P-GOOD,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-TIME-OF-DAY-MSG,WAIT?,TOD
+	CALL1	RT-TIME-OF-DAY >TOD
+	FSET?	GL-PLACE-CUR,FL-INDOORS /FALSE
+	EQUAL?	GL-LAST-OUT-TOD,TOD /FALSE
+	ZERO?	WAIT? /?CCL9
+	ICALL2	RT-WAIT-TOD-MSG,TOD
+	JUMP	?CND7
+?CCL9:	CRLF	
+	ICALL	RT-CYOU-MSG,STR?223,STR?224
+	PRINTI	"that "
+	EQUAL?	TOD,1 \?CCL12
+	PRINTI	"the sky is lighter. Soon it will be sunrise."
+	CRLF	
+	JUMP	?CND7
+?CCL12:	EQUAL?	TOD,2 \?CCL14
+	PRINTI	"the sun has risen... as much as it ever does in England."
+	CRLF	
+	JUMP	?CND7
+?CCL14:	EQUAL?	TOD,3 \?CCL16
+	PRINTI	"the setting sun marks the end of another day. Soon it will be dark."
+	CRLF	
+	JUMP	?CND7
+?CCL16:	PRINTI	"the sun has set and the mists have rolled in."
+	CRLF	
+?CND7:	SET	'GL-LAST-OUT-TOD,TOD
+	RETURN	GL-LAST-OUT-TOD
+
+
+	.FUNCT	RT-TIME-OF-DAY,TOD
+	CALL	RT-CLOCK-CMP,6,30,0
+	EQUAL?	STACK,1 \?CCL3
+	SET	'TOD,0
+	RETURN	TOD
+?CCL3:	CALL	RT-CLOCK-CMP,7,0,0
+	EQUAL?	STACK,1 \?CCL5
+	SET	'TOD,1
+	RETURN	TOD
+?CCL5:	CALL	RT-CLOCK-CMP,19,30,0
+	EQUAL?	STACK,1 \?CCL7
+	SET	'TOD,2
+	RETURN	TOD
+?CCL7:	CALL	RT-CLOCK-CMP,20,0,0
+	EQUAL?	STACK,1 \?CCL9
+	SET	'TOD,3
+	RETURN	TOD
+?CCL9:	SET	'TOD,0
+	RETURN	TOD
+
+
+	.FUNCT	RT-SPOKEN-TO-MSG,WHO
+	EQUAL?	WHO,GL-P-QCONTEXT-TH \?CCL2
+	EQUAL?	GL-PLACE-CUR,GL-P-QCONTEXT-RM /TRUE
+?CCL2:	SET	'GL-P-QCONTEXT-TH,WHO
+	LOC	WHO >GL-P-QCONTEXT-RM
+	ICALL2	RT-THIS-IS-IT,WHO
+	PRINTI	"[spoken to "
+	ICALL2	RT-THEO-PRINT,WHO
+	PRINTR	"]"
+
+
+	.FUNCT	RT-GET-PREP,SYN,WHICH,PREP
+	EQUAL?	WHICH,1 \?CCL3
+	GETB	SYN,K-P-SPREP1 >PREP
+	JUMP	?CND1
+?CCL3:	GETB	SYN,K-P-SPREP2 >PREP
+?CND1:	BAND	PREP,63 >PREP
+	ZERO?	PREP /FALSE
+	ADD	PREP,192
+	RSTACK	
+
+
+	.FUNCT	RT-SYNTAX-CHECK,SYN,LEN,NUM,OBJ,DRIVE1,DRIVE2,PREP,VERB,TPREP,?TMP2,?TMP1
+	GET	GL-P-ITBL,K-P-VERB >VERB
+	ZERO?	VERB \?CND1
+	ICALL2	RT-NOT-IN-SENTENCE-MSG,STR?225
+	RFALSE	
+?CND1:	SUB	255,VERB
+	GET	VERBS,STACK >SYN
+	GETB	SYN,0 >LEN
+	INC	'SYN
+?PRG3:	GETB	SYN,0
+	SHIFT	STACK,-6 >NUM
+	GRTR?	GL-P-NCN,NUM /?CND5
+	LESS?	NUM,1 /?CCL9
+	ZERO?	GL-P-NCN \?CCL9
+	GET	GL-P-ITBL,K-P-PREP1 >PREP
+	ZERO?	PREP /?CTR8
+	CALL	RT-GET-PREP,SYN,1
+	EQUAL?	PREP,STACK \?CCL9
+?CTR8:	SET	'DRIVE1,SYN
+	JUMP	?CND5
+?CCL9:	CALL	RT-GET-PREP,SYN,1 >?TMP1
+	GET	GL-P-ITBL,K-P-PREP1
+	EQUAL?	?TMP1,STACK \?CND5
+	EQUAL?	NUM,2 \?CCL18
+	EQUAL?	GL-P-NCN,1 \?CCL18
+	SET	'DRIVE2,SYN
+	JUMP	?CND5
+?CCL18:	GRTR?	NUM,1 /?CCL22
+	GET	GL-P-ITBL,K-P-PREP2
+	ZERO?	STACK \?CND5
+?CCL22:	GRTR?	NUM,1 \?CCL25
+	CALL	RT-GET-PREP,SYN,2 >?TMP1
+	GET	GL-P-ITBL,K-P-PREP2
+	EQUAL?	?TMP1,STACK \?CND5
+?CCL25:	ICALL2	RT-SYNTAX-FOUND,SYN
+	RTRUE	
+?CND5:	DLESS?	'LEN,1 \?CCL30
+	ZERO?	DRIVE1 \?REP4
+	ZERO?	DRIVE2 \?REP4
+	EQUAL?	GL-P-NCN,2 \?CCL37
+	ZERO?	GL-FUNNY-CLAUSE? /?CCL37
+	SET	'GL-P-NCN,1
+	SET	'GL-FUNNY-CLAUSE?,FALSE-VALUE
+	GET	GL-P-ITBL,K-P-NC2L
+	PUT	GL-P-ITBL,K-P-NC1L,STACK
+	CALL1	RT-SYNTAX-CHECK
+	RSTACK	
+?CCL37:	PRINT	K-DONT-UNDERSTAND-MSG
+	CRLF	
+	RFALSE	
+?CCL30:	ZERO?	NUM \?CCL42
+	ADD	SYN,K-P-SLEN-0 >SYN
+	JUMP	?PRG3
+?CCL42:	EQUAL?	NUM,1 \?CCL44
+	ADD	SYN,K-P-SLEN-1 >SYN
+	JUMP	?PRG3
+?CCL44:	ADD	SYN,K-P-SLEN-2 >SYN
+	JUMP	?PRG3
+?REP4:	ZERO?	DRIVE1 /?CCL47
+	GETB	DRIVE1,K-P-SFWIM1 >?TMP2
+	GETB	DRIVE1,K-P-SLOC1 >?TMP1
+	CALL	RT-GET-PREP,DRIVE1,1
+	CALL	RT-GET-WHAT-I-MEAN,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL47
+	PUT	GL-P-PRSO,K-P-MATCHLEN,1
+	PUT	GL-P-PRSO,1,OBJ
+	ICALL2	RT-SYNTAX-FOUND,DRIVE1
+	RTRUE	
+?CCL47:	ZERO?	DRIVE2 /?CCL51
+	GETB	DRIVE2,K-P-SFWIM2 >?TMP2
+	GETB	DRIVE2,K-P-SLOC2 >?TMP1
+	CALL	RT-GET-PREP,DRIVE2,2
+	CALL	RT-GET-WHAT-I-MEAN,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL51
+	PUT	GL-P-PRSI,K-P-MATCHLEN,1
+	PUT	GL-P-PRSI,1,OBJ
+	ICALL2	RT-SYNTAX-FOUND,DRIVE2
+	RTRUE	
+?CCL51:	EQUAL?	VERB,ACT?FIND \?CCL55
+	PRINT	K-DO-IT-YOURSELF-MSG
+	CRLF	
+	RFALSE	
+?CCL55:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL58
+	ICALL	RT-ORPHAN,DRIVE1,DRIVE2
+	PRINTI	"[Wh"
+	JUMP	?CND56
+?CCL58:	PRINTI	"[Your command was not complete. Type wh"
+?CND56:	EQUAL?	VERB,ACT?WALK,ACT?GO \?CCL61
+	PRINTI	"ere"
+	JUMP	?CND59
+?CCL61:	ZERO?	DRIVE1 /?PRD65
+	GETB	DRIVE1,K-P-SFWIM1
+	EQUAL?	STACK,FL-PERSON /?CTR62
+?PRD65:	ZERO?	DRIVE2 /?CCL63
+	GETB	DRIVE2,K-P-SFWIM2
+	EQUAL?	STACK,FL-PERSON \?CCL63
+?CTR62:	PRINTI	"om"
+	JUMP	?CND59
+?CCL63:	PRINTI	"at"
+?CND59:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL72
+	PRINTI	" do you want to "
+	JUMP	?CND70
+?CCL72:	PRINTI	" you want "
+	ICALL2	RT-THEO-PRINT,GL-WINNER
+	PRINTI	" to "
+?CND70:	ICALL1	RT-VERB-PRINT
+	ZERO?	DRIVE2 /?CND73
+	ICALL	RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
+?CND73:	SET	'GL-P-END-ON-PREP,FALSE-VALUE
+	ZERO?	DRIVE1 /?CCL77
+	CALL	RT-GET-PREP,DRIVE1,1
+	JUMP	?CND75
+?CCL77:	CALL	RT-GET-PREP,DRIVE2,2
+?CND75:	ICALL2	RT-PREP-PRINT,STACK
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL80
+	SET	'GL-P-ORPH,TRUE-VALUE
+	PRINTI	"?]"
+	CRLF	
+	RFALSE	
+?CCL80:	SET	'GL-P-ORPH,FALSE-VALUE
+	PRINTI	".]"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-CLAUSE,PTR,VAL,WRD,OFF,NUM,ANDFLG,FIRST??,NW,LW,TPTR,TMP,?TMP1
+	SET	'FIRST??,TRUE-VALUE
+	SUB	GL-P-NCN,1
+	MUL	STACK,2 >OFF
+	ZERO?	VAL /?CCL3
+	ADD	K-P-PREP1,OFF >NUM
+	PUT	GL-P-ITBL,NUM,VAL
+	ADD	NUM,1
+	PUT	GL-P-ITBL,STACK,WRD
+	ADD	PTR,K-P-LEXELEN >PTR
+	JUMP	?CND1
+?CCL3:	INC	'GL-P-LEN
+?CND1:	ZERO?	GL-P-LEN \?CND4
+	DEC	'GL-P-NCN
+	RETURN	-1
+?CND4:	ADD	K-P-NC1,OFF >NUM
+	MUL	PTR,2
+	ADD	GL-P-P-LEX,STACK
+	PUT	GL-P-ITBL,NUM,STACK
+	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?THE,W?A,W?AN \?PRG8
+	GET	GL-P-ITBL,NUM
+	ADD	STACK,4
+	PUT	GL-P-ITBL,NUM,STACK
+?PRG8:	DLESS?	'GL-P-LEN,0 \?CND10
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	GL-P-P-LEX,STACK
+	PUT	GL-P-ITBL,?TMP1,STACK
+	RETURN	-1
+?CND10:	GET	GL-P-P-LEX,PTR >WRD
+	ZERO?	WRD \?CTR13
+	CALL2	RT-NUMBER?,PTR >WRD
+	ZERO?	WRD /?CCL14
+?CTR13:	ZERO?	GL-P-LEN \?CCL19
+	SET	'NW,0
+	JUMP	?CND17
+?CCL19:	ADD	PTR,K-P-LEXELEN >TPTR
+	GET	GL-P-P-LEX,TPTR >NW
+	ZERO?	NW \?CND17
+	EQUAL?	WRD,W?INTNUM /?CND17
+	CALL2	RT-NUMBER?,TPTR >NW
+	PUT	GL-P-P-LEX,TPTR,NW
+?CND17:	EQUAL?	WRD,W?PERIOD \?CCL26
+	EQUAL?	LW,W?MR,W?MRS,W?MISS /?CTR25
+	EQUAL?	LW,W?DR \?CCL26
+?CTR25:	SET	'LW,0
+	JUMP	?CND12
+?CCL26:	EQUAL?	WRD,W?AND,W?COMMA \?CCL32
+	SET	'ANDFLG,TRUE-VALUE
+	JUMP	?CND12
+?CCL32:	EQUAL?	WRD,W?ALL,W?BOTH,W?EVERYTHING \?CCL34
+	EQUAL?	NW,W?OF \?CND12
+	DEC	'GL-P-LEN
+	ADD	PTR,K-P-LEXELEN >PTR
+	JUMP	?CND12
+?CCL34:	EQUAL?	WRD,W?THEN,W?PERIOD /?CTR37
+	GETB	WRD,6
+	BTST	STACK,8 \?CCL38
+	GET	GL-P-ITBL,K-P-VERB
+	ZERO?	STACK /?CCL38
+	ZERO?	FIRST?? \?CCL38
+?CTR37:	INC	'GL-P-LEN
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	GL-P-P-LEX,STACK
+	PUT	GL-P-ITBL,?TMP1,STACK
+	SUB	PTR,K-P-LEXELEN
+	RSTACK	
+?CCL38:	ZERO?	ANDFLG /?CCL45
+	GET	GL-P-ITBL,K-P-VERBN
+	ZERO?	STACK /?CTR44
+	CALL2	RT-VERB-DIR-ONLY?,WRD
+	ZERO?	STACK /?CCL45
+?CTR44:	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	ICALL	RT-CHANGE-LEXV,STACK,W?THEN
+	ADD	GL-P-LEN,2 >GL-P-LEN
+	JUMP	?CND12
+?CCL45:	GETB	WRD,6
+	BTST	STACK,128 \?CCL51
+	GRTR?	GL-P-LEN,0 \?CCL54
+	EQUAL?	NW,W?OF \?CCL54
+	EQUAL?	WRD,W?ALL,W?EVERYTHING /?CCL54
+	SUB	GL-P-NCN,1
+	PUT	GL-P-OFW,STACK,WRD
+	JUMP	?CND12
+?CCL54:	GETB	WRD,6
+	BTST	STACK,32 \?CCL59
+	ZERO?	NW /?CCL59
+	GETB	NW,6
+	BTST	STACK,128 \?CCL59
+	EQUAL?	WRD,W?INTNUM \?CCL65
+	EQUAL?	NW,W?HOUR,W?HOURS,W?MINUTE /?CND12
+	EQUAL?	NW,W?MINUTES /?CND12
+?CCL65:	EQUAL?	NW,W?TOMB /?CND12
+	EQUAL?	WRD,W?BOX \?CCL74
+	EQUAL?	NW,W?INTNUM /?CND72
+	SET	'TMP,TRUE-VALUE
+	JUMP	?CND72
+?CCL74:	EQUAL?	WRD,W?TOMB \?CND72
+	SET	'TMP,TRUE-VALUE
+?CND72:	ZERO?	TMP /?CND12
+	SET	'GL-FUNNY-CLAUSE?,TRUE-VALUE
+	INC	'NUM
+	SET	'?TMP1,1
+	ADD	PTR,2
+	MUL	STACK,2
+	ADD	GL-P-P-LEX,STACK
+	PUT	GL-P-ITBL,?TMP1,STACK
+	RETURN	PTR
+?CCL59:	ZERO?	ANDFLG \?CCL81
+	EQUAL?	NW,W?BUT,W?EXCEPT /?CCL81
+	EQUAL?	NW,W?AND,W?COMMA /?CCL81
+	ADD	NUM,1 >?TMP1
+	ADD	PTR,2
+	MUL	STACK,2
+	ADD	GL-P-P-LEX,STACK
+	PUT	GL-P-ITBL,?TMP1,STACK
+	RETURN	PTR
+?CCL81:	SET	'ANDFLG,FALSE-VALUE
+	JUMP	?CND12
+?CCL51:	ZERO?	GL-P-MERGED \?PRD87
+	ZERO?	GL-P-ORPH \?PRD87
+	GET	GL-P-ITBL,K-P-VERB
+	ZERO?	STACK /?CCL85
+?PRD87:	GETB	WRD,6
+	BAND	STACK,36
+	ZERO?	STACK \?CND12
+?CCL85:	ZERO?	ANDFLG /?CCL92
+	GET	GL-P-ITBL,K-P-VERB
+	ZERO?	STACK \?CCL92
+	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	ICALL	RT-CHANGE-LEXV,STACK,W?THEN
+	ADD	GL-P-LEN,2 >GL-P-LEN
+?CND12:	SET	'LW,WRD
+	SET	'FIRST??,FALSE-VALUE
+	ADD	PTR,K-P-LEXELEN >PTR
+	JUMP	?PRG8
+?CCL92:	GETB	WRD,6
+	BTST	STACK,8 /?CND12
+	ICALL2	RT-DONT-KNOW-WORD-USE-MSG,PTR
+	RFALSE	
+?CCL14:	ICALL2	RT-DONT-KNOW-WORD-MSG,PTR
+	RFALSE	
+
+
+	.FUNCT	RT-GET-WHAT-I-MEAN,GBIT,LBIT,PREP,NO-ROOMS?,SILENT?,OBJ
+	EQUAL?	GBIT,FL-LOCATION \?CCL3
+	RETURN	ROOMS
+?CCL3:	ZERO?	GL-P-IT-OBJECT /?CND1
+	FSET?	GL-P-IT-OBJECT,GBIT \?CND1
+	ZERO?	SILENT? /?CCL8
+	RETURN	GL-P-IT-OBJECT
+?CCL8:	PRINTC	91
+	ICALL2	RT-THEO-PRINT,GL-P-IT-OBJECT
+	PRINTC	93
+	CRLF	
+	RETURN	GL-P-IT-OBJECT
+?CND1:	SET	'INHIBIT-ROOMS,NO-ROOMS?
+	SET	'GL-P-GWIMBIT,GBIT
+	SET	'GL-P-SLOCBITS,LBIT
+	PUT	GL-P-MERGE,K-P-MATCHLEN,0
+	CALL	RT-GET-OBJECT,GL-P-MERGE,FALSE-VALUE
+	ZERO?	STACK /?CCL11
+	SET	'GL-P-GWIMBIT,0
+	GET	GL-P-MERGE,K-P-MATCHLEN
+	EQUAL?	STACK,1 \FALSE
+	GET	GL-P-MERGE,1 >OBJ
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND15
+	EQUAL?	OBJ,TH-HANDS /?CND15
+	ZERO?	SILENT? \?CND15
+	PRINTC	91
+	CALL	RT-PREP-PRINT,PREP,FALSE-VALUE
+	ZERO?	STACK /?CND20
+	PRINTC	32
+?CND20:	ICALL2	RT-THEO-PRINT,OBJ
+	PRINTC	93
+	CRLF	
+?CND15:	SET	'INHIBIT-ROOMS,FALSE-VALUE
+	RETURN	OBJ
+?CCL11:	SET	'GL-P-GWIMBIT,0
+	SET	'INHIBIT-ROOMS,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	RT-P-CLEAR
+	SET	'GL-P-CONT,FALSE-VALUE
+	SET	'GL-P-QUOT,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-PICK-NEXT,TBL,CNT,STR,NT
+	GETB	TBL,0 >CNT
+	ADD	TBL,1
+	GET	STACK,0 >NT
+	GET	NT,CNT >STR
+	GET	NT,0
+	IGRTR?	'CNT,STACK \?CND1
+	SET	'CNT,1
+?CND1:	PUTB	TBL,0,CNT
+	RETURN	STR
+
+
+	.FUNCT	RT-QCONTEXT-GOOD?
+	ZERO?	GL-WHERE-TO-ORPH? \FALSE
+	ZERO?	GL-P-QCONTEXT-TH /FALSE
+	FSET?	GL-P-QCONTEXT-TH,FL-PERSON \FALSE
+	EQUAL?	GL-PLACE-CUR,GL-P-QCONTEXT-RM \FALSE
+	CALL2	RT-VISIBLE?,GL-P-QCONTEXT-TH
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	RT-FIND-PERSON,THING,OBJ,OBJ1,WHO-P,WHO-A
+	FIRST?	THING >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	FSET?	OBJ,FL-PERSON \?CCL8
+	FSET?	OBJ,FL-PLURAL /?CND4
+	EQUAL?	OBJ,CH-PLAYER,GL-WINNER /?CND4
+	FSET?	OBJ,FL-ASLEEP /?CND4
+	EQUAL?	OBJ,GL-PUPPY \?REP3
+	SET	'WHO-P,OBJ
+	JUMP	?CND4
+?CCL8:	FSET?	OBJ,FL-SURFACE /?CCL17
+	FSET?	OBJ,FL-CONTAINER \?CND4
+	FSET?	OBJ,FL-OPENED \?CND4
+?CCL17:	SET	'OBJ1,OBJ
+	CALL2	RT-FIND-PERSON,OBJ >OBJ
+	ZERO?	OBJ /?CND22
+	FSET?	OBJ,FL-ASLEEP /?CND22
+	EQUAL?	OBJ,GL-PUPPY \?REP3
+	SET	'WHO-P,OBJ
+?CND22:	SET	'OBJ,OBJ1
+?CND4:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	ZERO?	OBJ /?CCL31
+	RETURN	OBJ
+?CCL31:	ZERO?	WHO-P /FALSE
+	RETURN	WHO-P
+
+
+	.FUNCT	RT-ANYONE-HERE?
+	CALL1	RT-QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL3
+	RETURN	GL-P-QCONTEXT-TH
+?CCL3:	CALL2	RT-FIND-PERSON,GL-PLACE-CUR
+	RSTACK	
+
+
+	.FUNCT	RT-MOVE-ALL,FROM,TO,OBJ,NXT
+	FIRST?	FROM >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /TRUE
+	NEXT?	OBJ >NXT /?BOGUS6
+?BOGUS6:	MOVE	OBJ,TO
+	SET	'OBJ,NXT
+	JUMP	?PRG2
+
+
+	.FUNCT	RT-GOT?,OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL5
+	IN?	OBJ,TH-POCKET /TRUE
+?CCL5:	CALL2	RT-HELD?,OBJ
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	RT-HELD?,OBJ,L
+	ZERO?	OBJ /FALSE
+	FSET?	OBJ,FL-TAKEABLE /?CND1
+	FSET?	OBJ,FL-TRYTAKE \FALSE
+?CND1:	LOC	OBJ >L
+	EQUAL?	L,FALSE-VALUE,ROOMS,GLOBAL-OBJECTS /FALSE
+	EQUAL?	L,GL-WINNER /TRUE
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL13
+	EQUAL?	L,TH-POCKET /FALSE
+?CCL13:	CALL2	RT-HELD?,L
+	RSTACK	
+
+
+	.FUNCT	RT-THIS-IS-IT,OBJ
+	EQUAL?	OBJ,FALSE-VALUE,CH-PLAYER,TH-NOT-HERE-OBJECT /TRUE
+	EQUAL?	OBJ,TH-INTDIR,TH-INTNUM /TRUE
+	EQUAL?	OBJ,TH-LEFT,TH-RIGHT /TRUE
+	EQUAL?	GL-PRSA,V?WALK,V?WALK-TO \?CCL8
+	EQUAL?	OBJ,GL-PRSO /TRUE
+?CCL8:	FSET?	OBJ,FL-PERSON \?CCL12
+	FSET?	OBJ,FL-FEMALE \?CCL12
+	SET	'GL-P-HER-OBJECT,OBJ
+	RTRUE	
+?CCL12:	FSET?	OBJ,FL-PERSON \?CCL16
+	FSET?	OBJ,FL-FEMALE /?CCL16
+	SET	'GL-P-HIM-OBJECT,OBJ
+	RTRUE	
+?CCL16:	FSET?	OBJ,FL-COLLECTIVE \?CCL20
+	SET	'GL-P-THEM-OBJECT,OBJ
+	SET	'GL-P-IT-OBJECT,OBJ
+	RTRUE	
+?CCL20:	FSET?	OBJ,FL-PLURAL \?CCL22
+	SET	'GL-P-THEM-OBJECT,OBJ
+	RTRUE	
+?CCL22:	FSET?	OBJ,FL-NEEDS-IDENTITY \?CCL25
+	GETP	OBJ,P?OBJ-NOUN
+	PUTP	TH-IT,P?OBJ-NOUN,STACK
+	GETP	OBJ,P?OBJ-ADJ
+	PUTP	TH-IT,P?OBJ-ADJ,STACK
+	JUMP	?CND23
+?CCL25:	PUTP	TH-IT,P?OBJ-NOUN,0
+	PUTP	TH-IT,P?OBJ-ADJ,0
+?CND23:	SET	'GL-P-IT-OBJECT,OBJ
+	RTRUE	
+
+
+	.FUNCT	RT-CHANGE-LEXV,PTR,WRD,PTRS?,X,Y,Z
+	ZERO?	PTRS? /?CND1
+	SUB	PTR,K-P-LEXELEN
+	MUL	2,STACK
+	ADD	2,STACK >X
+	GETB	GL-P-P-LEX,X >Y
+	MUL	2,PTR
+	ADD	2,STACK >Z
+	PUTB	GL-P-P-LEX,Z,Y
+	PUTB	GL-P-S-LEX,Z,Y
+	ADD	1,X
+	GETB	GL-P-P-LEX,STACK >Y
+	MUL	2,PTR
+	ADD	3,STACK >Z
+	PUTB	GL-P-P-LEX,Z,Y
+	PUTB	GL-P-S-LEX,Z,Y
+?CND1:	PUT	GL-P-P-LEX,PTR,WRD
+	PUT	GL-P-S-LEX,PTR,WRD
+	RTRUE	
+
+
+	.FUNCT	RT-WT?,PTR,BIT,B1,OFFS,TYP,TBL,?TMP1
+	ASSIGNED?	'B1 /?CND1
+	SET	'B1,5
+?CND1:	SET	'OFFS,K-P-P1OFF
+	GETB	PTR,K-P-PSOFF >TYP
+	BTST	TYP,BIT \FALSE
+	GRTR?	B1,4 /TRUE
+	EQUAL?	BIT,8 \?CCL10
+	ADD	PREPOSITIONS,2 >?TMP1
+	GET	PREPOSITIONS,0
+	INTBL?	PTR,?TMP1,STACK,131 >TBL \FALSE
+	GETB	TBL,2
+	RSTACK	
+?CCL10:	BAND	TYP,K-P-P1BITS >TYP
+	GETB	PTR,OFFS
+	RSTACK	
+
+
+	.FUNCT	RT-VERB-DIR-ONLY?,WRD
+	GETB	WRD,6
+	BAND	STACK,160
+	ZERO?	STACK \FALSE
+	GETB	WRD,6
+	BAND	STACK,80
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	RT-STUFF,DEST,SRC,MAX
+	ASSIGNED?	'MAX /?CND1
+	SET	'MAX,29
+?CND1:	MUL	MAX,K-P-WORDLEN
+	ADD	K-P-LEXSTART,STACK
+	COPYT	SRC,DEST,STACK
+	RTRUE	
+
+
+	.FUNCT	RT-INBUF-ADD,LEN,BEG,SLOT,DBEG,CTR,TMP,?TMP1
+	GET	GL-OOPS-TABLE,K-O-END >TMP
+	ZERO?	TMP /?CCL3
+	SET	'DBEG,TMP
+	JUMP	?CND1
+?CCL3:	GET	GL-OOPS-TABLE,K-O-LENGTH >TMP
+	GETB	GL-P-S-LEX,TMP >?TMP1
+	ADD	TMP,1
+	GETB	GL-P-S-LEX,STACK
+	ADD	?TMP1,STACK >DBEG
+?CND1:	ADD	DBEG,LEN
+	PUT	GL-OOPS-TABLE,K-O-END,STACK
+	ADD	GL-P-PIBUF,BEG >?TMP1
+	ADD	GL-OOPS-INBUF,DBEG
+	COPYT	?TMP1,STACK,LEN
+	PUTB	GL-P-S-LEX,SLOT,DBEG
+	SUB	SLOT,1
+	PUTB	GL-P-S-LEX,STACK,LEN
+	RTRUE	
+
+
+	.FUNCT	RT-ACLAUSE-WIN,ADJ,X
+	GET	GL-P-OTBL,K-P-VERB
+	PUT	GL-P-ITBL,K-P-VERB,STACK
+	ADD	GL-P-ACLAUSE,1 >X
+	ICALL	RT-CLAUSE-COPY,GL-P-OTBL,GL-P-OTBL,GL-P-ACLAUSE,X,GL-P-ACLAUSE,X,ADJ
+	GET	GL-P-OTBL,K-P-NC2
+	ZERO?	STACK /?PEN1
+	SET	'GL-P-NCN,2
+?PEN1:	SET	'GL-P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-NCLAUSE-WIN
+	ADD	GL-P-ACLAUSE,1
+	ICALL	RT-CLAUSE-COPY,GL-P-ITBL,GL-P-OTBL,K-P-NC1,K-P-NC1L,GL-P-ACLAUSE,STACK
+	GET	GL-P-OTBL,K-P-NC2
+	ZERO?	STACK /?PEN1
+	SET	'GL-P-NCN,2
+?PEN1:	SET	'GL-P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-ORPHAN-VERB,VERB,PREVERB
+	PUT	GL-P-VTBL,0,VERB
+	PUT	GL-P-OTBL,K-P-VERB,PREVERB
+	PUT	GL-P-OTBL,K-P-VERBN,GL-P-VTBL
+	PUT	GL-P-OTBL,K-P-PREP1,0
+	PUT	GL-P-OTBL,K-P-PREP1N,0
+	PUT	GL-P-OTBL,K-P-PREP2,0
+	PUT	GL-P-OTBL,5,0
+	PUT	GL-P-OTBL,K-P-NC1,1
+	PUT	GL-P-OTBL,K-P-NC1L,0
+	PUT	GL-P-OTBL,K-P-NC2,0
+	PUT	GL-P-OTBL,K-P-NC2L,0
+	SET	'GL-P-ORPH,TRUE-VALUE
+	RETURN	GL-P-ORPH
+
+
+	.FUNCT	RT-ORPHAN,D1,D2,CNT
+	SET	'CNT,-1
+	ZERO?	GL-P-MERGED \?CND1
+	PUT	GL-P-OCLAUSE,K-P-MATCHLEN,0
+?CND1:	GET	GL-P-VTBL,0
+	PUT	GL-P-OVTBL,0,STACK
+	GETB	GL-P-VTBL,2
+	PUTB	GL-P-OVTBL,2,STACK
+	GETB	GL-P-VTBL,3
+	PUTB	GL-P-OVTBL,3,STACK
+	COPYT	GL-P-ITBL,GL-P-OTBL,20
+	EQUAL?	GL-P-NCN,2 \?CND3
+	ICALL	RT-CLAUSE-COPY,GL-P-ITBL,GL-P-OTBL,K-P-NC2,K-P-NC2L,K-P-NC2,K-P-NC2L
+?CND3:	LESS?	GL-P-NCN,1 /?CND5
+	ICALL	RT-CLAUSE-COPY,GL-P-ITBL,GL-P-OTBL,K-P-NC1,K-P-NC1L,K-P-NC1,K-P-NC1L
+?CND5:	ZERO?	D1 /?CCL9
+	CALL	RT-GET-PREP,D1,1
+	PUT	GL-P-OTBL,K-P-PREP1,STACK
+	PUT	GL-P-OTBL,K-P-NC1,1
+	RTRUE	
+?CCL9:	ZERO?	D2 /FALSE
+	CALL	RT-GET-PREP,D2,2
+	PUT	GL-P-OTBL,K-P-PREP2,STACK
+	PUT	GL-P-OTBL,K-P-NC2,1
+	RTRUE	
+
+
+	.FUNCT	RT-ORPHAN-MERGE,CNT,TEMP,VERB,BEG,END,ADJ,WRD,?TMP1
+	SET	'CNT,-1
+	SET	'GL-P-ORPH,FALSE-VALUE
+	GET	GL-P-ITBL,K-P-VERBN >WRD
+	ZERO?	WRD /?CND1
+	GET	WRD,0 >WRD
+	ZERO?	WRD /?CND1
+	GET	GL-P-ITBL,K-P-VERBN
+	GET	STACK,0 >WRD
+	CALL	RT-WT?,WRD,64,1 >?TMP1
+	GET	GL-P-OTBL,K-P-VERB
+	EQUAL?	?TMP1,STACK /?CTR6
+	GETB	WRD,6
+	BTST	STACK,32 \?CCL7
+?CTR6:	SET	'ADJ,TRUE-VALUE
+	JUMP	?CND1
+?CCL7:	GET	GL-P-ITBL,K-P-VERBN
+	GET	STACK,0 >WRD
+	GETB	WRD,6
+	BTST	STACK,32 \?CCL11
+	SET	'ADJ,TRUE-VALUE
+	JUMP	?CND1
+?CCL11:	GETB	WRD,6
+	BTST	STACK,128 \?CND1
+	ZERO?	GL-P-NCN \?CND1
+	GET	GL-P-ITBL,K-P-VERB >VERB
+	ZERO?	VERB /?CND1
+	PUT	GL-P-ITBL,K-P-VERB,0
+	PUT	GL-P-ITBL,K-P-VERBN,0
+	PUT	GL-P-ITBL,K-P-NC1,T?GL-P-P-LEX+2
+	PUT	GL-P-ITBL,K-P-NC1L,T?GL-P-P-LEX+6
+	SET	'GL-P-NCN,1
+?CND1:	GET	GL-P-ITBL,K-P-VERB >VERB
+	ZERO?	VERB /?CCL18
+	ZERO?	ADJ \?CCL18
+	GET	GL-P-OTBL,K-P-VERB
+	EQUAL?	VERB,STACK \FALSE
+?CCL18:	EQUAL?	GL-P-NCN,2 \?CCL23
+	ZERO?	GL-FUNNY-CLAUSE? /FALSE
+	SET	'GL-P-NCN,1
+	SET	'GL-FUNNY-CLAUSE?,FALSE-VALUE
+	GET	GL-P-ITBL,K-P-NC2L
+	PUT	GL-P-ITBL,K-P-NC1L,STACK
+	CALL1	RT-ORPHAN-MERGE
+	RSTACK	
+?CCL23:	GET	GL-P-OTBL,K-P-NC1
+	EQUAL?	STACK,1 \?CCL27
+	GET	GL-P-ITBL,K-P-PREP1 >TEMP
+	GET	GL-P-OTBL,K-P-PREP1
+	EQUAL?	TEMP,STACK /?CTR29
+	ZERO?	TEMP \FALSE
+?CTR29:	ZERO?	ADJ /?CCL35
+	PUT	GL-P-OTBL,K-P-NC1,T?GL-P-P-LEX+2
+	GET	GL-P-ITBL,K-P-NC1L
+	ZERO?	STACK \?CND36
+	PUT	GL-P-ITBL,K-P-NC1L,T?GL-P-P-LEX+6
+?CND36:	ZERO?	GL-P-NCN \?CND33
+	SET	'GL-P-NCN,1
+	JUMP	?CND33
+?CCL35:	GET	GL-P-ITBL,K-P-NC1
+	PUT	GL-P-OTBL,K-P-NC1,STACK
+?CND33:	GET	GL-P-ITBL,K-P-NC1L
+	PUT	GL-P-OTBL,K-P-NC1L,STACK
+	JUMP	?CND16
+?CCL27:	GET	GL-P-OTBL,K-P-NC2
+	EQUAL?	STACK,1 \?CCL41
+	GET	GL-P-ITBL,K-P-PREP1 >TEMP
+	GET	GL-P-OTBL,K-P-PREP2
+	EQUAL?	TEMP,STACK /?CTR43
+	ZERO?	TEMP \FALSE
+?CTR43:	ZERO?	ADJ /?CND47
+	PUT	GL-P-ITBL,K-P-NC1,T?GL-P-P-LEX+2
+	GET	GL-P-ITBL,K-P-NC1L
+	ZERO?	STACK \?CND47
+	PUT	GL-P-ITBL,K-P-NC1L,T?GL-P-P-LEX+6
+?CND47:	GET	GL-P-ITBL,K-P-NC1
+	PUT	GL-P-OTBL,K-P-NC2,STACK
+	GET	GL-P-ITBL,K-P-NC1L
+	PUT	GL-P-OTBL,K-P-NC2L,STACK
+	SET	'GL-P-NCN,2
+	JUMP	?CND16
+?CCL41:	ZERO?	GL-P-ACLAUSE /?CND16
+	EQUAL?	GL-P-NCN,1 /?CCL54
+	ZERO?	ADJ \?CCL54
+	SET	'GL-P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL54:	GET	GL-P-ITBL,K-P-NC1 >BEG
+	ZERO?	ADJ /?CND57
+	SET	'BEG,T?GL-P-P-LEX+2
+	SET	'ADJ,FALSE-VALUE
+?CND57:	GET	GL-P-ITBL,K-P-NC1L >END
+?PRG59:	GET	BEG,0 >WRD
+	EQUAL?	BEG,END \?CCL63
+	ZERO?	ADJ /?CCL66
+	ICALL2	RT-ACLAUSE-WIN,ADJ
+	JUMP	?CND16
+?CCL66:	SET	'GL-P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL63:	GETB	WRD,K-P-PSOFF
+	BTST	STACK,32 \?PRD71
+	CALL	RT-ADJ-CHECK,WRD,ADJ
+	ZERO?	STACK \?CTR67
+?PRD71:	EQUAL?	WRD,W?ALL,W?EVERYTHING \?CCL68
+?CTR67:	SET	'ADJ,WRD
+?CND61:	ADD	BEG,K-P-WORDLEN >BEG
+	ZERO?	END \?PRG59
+	SET	'END,BEG
+	SET	'GL-P-NCN,1
+	SUB	BEG,4
+	PUT	GL-P-ITBL,K-P-NC1,STACK
+	PUT	GL-P-ITBL,K-P-NC1L,BEG
+	JUMP	?PRG59
+?CCL68:	GETB	WRD,K-P-PSOFF
+	BTST	STACK,128 \?CND61
+	EQUAL?	WRD,GL-P-ANAM \?CCL77
+	ICALL2	RT-ACLAUSE-WIN,ADJ
+	JUMP	?CND16
+?CCL77:	ICALL1	RT-NCLAUSE-WIN
+?CND16:	GET	GL-P-OVTBL,0
+	PUT	GL-P-VTBL,0,STACK
+	GETB	GL-P-OVTBL,2
+	PUTB	GL-P-VTBL,2,STACK
+	GETB	GL-P-OVTBL,3
+	PUTB	GL-P-VTBL,3,STACK
+	PUT	GL-P-OTBL,K-P-VERBN,GL-P-VTBL
+	PUTB	GL-P-VTBL,2,0
+	COPYT	GL-P-OTBL,GL-P-ITBL,20
+	SET	'GL-P-MERGED,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-ADJ-CHECK,WRD,ADJ
+	EQUAL?	WRD,W?BROWN,W?BLUE /TRUE
+	ZERO?	ADJ /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-CLAUSE-COPY,SRC,DEST,SRCBEG,SRCEND,DESTBEG,DESTEND,INSRT,BEG,END
+	GET	SRC,SRCBEG >BEG
+	GET	SRC,SRCEND >END
+	GET	GL-P-OCLAUSE,K-P-MATCHLEN
+	MUL	STACK,K-P-LEXELEN
+	ADD	STACK,2
+	ADD	GL-P-OCLAUSE,STACK
+	PUT	DEST,DESTBEG,STACK
+?PRG1:	EQUAL?	BEG,END \?CCL5
+	GET	GL-P-OCLAUSE,K-P-MATCHLEN
+	MUL	STACK,K-P-LEXELEN
+	ADD	2,STACK
+	ADD	GL-P-OCLAUSE,STACK
+	PUT	DEST,DESTEND,STACK
+	RTRUE	
+?CCL5:	ZERO?	INSRT /?CND6
+	GET	BEG,0
+	EQUAL?	GL-P-ANAM,STACK \?CND6
+	ICALL2	RT-CLAUSE-ADD,INSRT
+?CND6:	GET	BEG,0
+	ICALL2	RT-CLAUSE-ADD,STACK
+	ADD	BEG,K-P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-CLAUSE-ADD,WRD,PTR
+	GET	GL-P-OCLAUSE,K-P-MATCHLEN
+	ADD	STACK,2 >PTR
+	SUB	PTR,1
+	PUT	GL-P-OCLAUSE,STACK,WRD
+	PUT	GL-P-OCLAUSE,PTR,0
+	PUT	GL-P-OCLAUSE,K-P-MATCHLEN,PTR
+	RTRUE	
+
+
+	.FUNCT	RT-PREP-FIND,PREP,CNT,SIZE,TBL,?TMP1
+	ADD	PREPOSITIONS,4 >?TMP1
+	GET	PREPOSITIONS,0
+	INTBL?	PREP,?TMP1,STACK,3 >TBL \FALSE
+	SUB	TBL,2
+	GET	STACK,0
+	RSTACK	
+
+
+	.FUNCT	RT-SYNTAX-FOUND,SYN
+	SET	'GL-P-SYNTAX,SYN
+	GETB	SYN,K-P-SACTION >GL-PRSA
+	RETURN	GL-PRSA
+
+
+	.FUNCT	RT-BUT-MERGE,TBL,LEN,BUTLEN,CNT,MATCHES,OBJ,NTBL
+	SET	'CNT,1
+	GET	TBL,K-P-MATCHLEN >LEN
+	PUT	GL-P-MERGE,K-P-MATCHLEN,0
+?PRG1:	DLESS?	'LEN,0 /?REP2
+	GET	TBL,CNT >OBJ
+	GET	GL-P-BUTS,0
+	INTBL?	OBJ,T?GL-P-BUTS+2,STACK /?CND5
+	ADD	MATCHES,1
+	PUT	GL-P-MERGE,STACK,OBJ
+	INC	'MATCHES
+?CND5:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	PUT	GL-P-MERGE,K-P-MATCHLEN,MATCHES
+	SET	'NTBL,GL-P-MERGE
+	SET	'GL-P-MERGE,TBL
+	RETURN	NTBL
+
+
+	.FUNCT	RT-SNARF-OBJECTS,PTR,NUM
+	GETB	GL-P-SYNTAX,0
+	SHIFT	STACK,-6 >NUM
+	GRTR?	NUM,0 \?CND1
+	GET	GL-P-ITBL,K-P-NC1 >PTR
+	ZERO?	PTR /?CND1
+	SET	'GL-P-PHR,0
+	GETB	GL-P-SYNTAX,K-P-SLOC1 >GL-P-SLOCBITS
+	GET	GL-P-ITBL,K-P-NC1L
+	CALL	RT-SNARF,PTR,STACK,GL-P-PRSO
+	ZERO?	STACK /FALSE
+	GET	GL-P-BUTS,K-P-MATCHLEN
+	ZERO?	STACK /?CND1
+	CALL2	RT-BUT-MERGE,GL-P-PRSO >GL-P-PRSO
+?CND1:	GRTR?	NUM,1 \TRUE
+	GET	GL-P-ITBL,K-P-NC2 >PTR
+	ZERO?	PTR /TRUE
+	SET	'GL-P-PHR,1
+	GETB	GL-P-SYNTAX,K-P-SLOC2 >GL-P-SLOCBITS
+	GET	GL-P-ITBL,K-P-NC2L
+	CALL	RT-SNARF,PTR,STACK,GL-P-PRSI
+	ZERO?	STACK /FALSE
+	GET	GL-P-BUTS,K-P-MATCHLEN
+	ZERO?	STACK /TRUE
+	GET	GL-P-PRSI,K-P-MATCHLEN
+	EQUAL?	STACK,1 \?CCL19
+	CALL2	RT-BUT-MERGE,GL-P-PRSO >GL-P-PRSO
+	RTRUE	
+?CCL19:	CALL2	RT-BUT-MERGE,GL-P-PRSI >GL-P-PRSI
+	RTRUE	
+
+
+	.FUNCT	RT-SNARF,PTR,EPTR,TBL,BUT,LEN,WV,WRD,NW,WAS-ALL?,ONEOBJ
+	SET	'GL-P-AND,FALSE-VALUE
+	EQUAL?	GL-P-GET-FLAGS,K-P-ALL \?CND1
+	SET	'WAS-ALL?,TRUE-VALUE
+?CND1:	SET	'GL-P-GET-FLAGS,0
+	PUT	GL-P-BUTS,K-P-MATCHLEN,0
+	PUT	TBL,K-P-MATCHLEN,0
+	GET	PTR,0 >WRD
+?PRG3:	EQUAL?	PTR,EPTR \?CCL7
+	ZERO?	BUT /?PRD10
+	PUSH	BUT
+	JUMP	?PEN8
+?PRD10:	PUSH	TBL
+?PEN8:	CALL2	RT-GET-OBJECT,STACK >WV
+	ZERO?	WAS-ALL? /?CND11
+	SET	'GL-P-GET-FLAGS,K-P-ALL
+?CND11:	RETURN	WV
+?CCL7:	ADD	PTR,K-P-WORDLEN
+	EQUAL?	EPTR,STACK \?CCL15
+	SET	'NW,0
+	JUMP	?CND13
+?CCL15:	GET	PTR,K-P-LEXELEN >NW
+?CND13:	EQUAL?	WRD,W?ALL,W?BOTH,W?EVERYTHING \?CCL18
+	SET	'GL-P-GET-FLAGS,K-P-ALL
+	EQUAL?	NW,W?OF \?CND5
+	ADD	PTR,K-P-WORDLEN >PTR
+	JUMP	?CND5
+?CCL18:	EQUAL?	WRD,W?BUT,W?EXCEPT \?CCL22
+	ZERO?	BUT /?PRD27
+	PUSH	BUT
+	JUMP	?PEN25
+?PRD27:	PUSH	TBL
+?PEN25:	CALL2	RT-GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	SET	'BUT,GL-P-BUTS
+	PUT	BUT,K-P-MATCHLEN,0
+	JUMP	?CND5
+?CCL22:	EQUAL?	WRD,W?A \?CCL29
+	ZERO?	GL-P-ADJ \?CCL32
+	SET	'GL-P-GET-FLAGS,K-P-ONE
+	EQUAL?	NW,W?OF \?CND5
+	ADD	PTR,K-P-WORDLEN >PTR
+	JUMP	?CND5
+?CCL32:	SET	'GL-P-NAM,ONEOBJ
+	ZERO?	BUT /?PRD39
+	PUSH	BUT
+	JUMP	?PEN37
+?PRD39:	PUSH	TBL
+?PEN37:	CALL2	RT-GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	ZERO?	NW \?CND5
+	RTRUE	
+?CCL29:	EQUAL?	WRD,W?AND,W?COMMA \?CCL43
+	EQUAL?	NW,W?AND,W?COMMA /?CCL43
+	SET	'GL-P-AND,TRUE-VALUE
+	ZERO?	BUT /?PRD50
+	PUSH	BUT
+	JUMP	?PEN48
+?PRD50:	PUSH	TBL
+?PEN48:	CALL2	RT-GET-OBJECT,STACK
+	ZERO?	STACK \?CND5
+	RFALSE	
+?CCL43:	GETB	WRD,6
+	BTST	STACK,4 /?CND5
+	EQUAL?	WRD,W?AND,W?COMMA /?CND5
+	EQUAL?	WRD,W?OF \?CCL54
+	ZERO?	GL-P-GET-FLAGS \?CND5
+	SET	'GL-P-GET-FLAGS,K-P-INHIBIT
+	JUMP	?CND5
+?CCL54:	GETB	WRD,6
+	BTST	STACK,32 \?CCL58
+	ZERO?	GL-P-ADJ \?CCL58
+	EQUAL?	NW,W?OF /?CCL58
+	SET	'GL-P-ADJ,WRD
+	JUMP	?CND5
+?CCL58:	GETB	WRD,6
+	BTST	STACK,128 \?CND5
+	SET	'GL-P-NAM,WRD
+	SET	'ONEOBJ,WRD
+?CND5:	EQUAL?	PTR,EPTR /?PRG3
+	ADD	PTR,K-P-WORDLEN >PTR
+	SET	'WRD,NW
+	JUMP	?PRG3
+
+
+	.FUNCT	RT-GET-OBJECT,TBL,VRB,NO-ROOMS?,BTS,LEN,XBITS,TLEN,GCHECK,OLEN,OBJ,ADJ,X
+	ASSIGNED?	'VRB /?CND1
+	SET	'VRB,TRUE-VALUE
+?CND1:	SET	'XBITS,GL-P-SLOCBITS
+	GET	TBL,K-P-MATCHLEN >TLEN
+	BTST	GL-P-GET-FLAGS,K-P-INHIBIT /TRUE
+	SET	'ADJ,GL-P-ADJ
+	ZERO?	GL-P-NAM \?CND5
+	ZERO?	GL-P-ADJ /?CND5
+	GETB	GL-P-ADJ,6
+	BTST	STACK,128 \?CCL11
+	SET	'GL-P-NAM,GL-P-ADJ
+	SET	'GL-P-ADJ,FALSE-VALUE
+?CND5:	ZERO?	GL-P-NAM \?CND13
+	ZERO?	GL-P-ADJ \?CND13
+	EQUAL?	GL-P-GET-FLAGS,K-P-ALL /?CND13
+	ZERO?	GL-P-GWIMBIT \?CND13
+	ZERO?	VRB /FALSE
+	ICALL2	RT-NOT-IN-SENTENCE-MSG,STR?226
+	RFALSE	
+?CCL11:	CALL	RT-WT?,GL-P-ADJ,16,3 >BTS
+	ZERO?	BTS /?CND5
+	SET	'GL-P-ADJ,FALSE-VALUE
+	PUT	TBL,K-P-MATCHLEN,1
+	PUT	TBL,1,TH-INTDIR
+	SET	'GL-P-DIRECTION,BTS
+	RTRUE	
+?CND13:	EQUAL?	GL-P-GET-FLAGS,K-P-ALL \?CCL22
+	ZERO?	GL-P-SLOCBITS \?CND21
+?CCL22:	SET	'GL-P-SLOCBITS,-1
+?CND21:	EQUAL?	TBL,GL-P-PRSO \?CCL27
+	GET	GL-P-OFW,0 >GL-P-OF
+	JUMP	?CND25
+?CCL27:	GET	GL-P-OFW,1 >GL-P-OF
+?CND25:	SET	'GL-P-TABLE,TBL
+?PRG28:	ZERO?	GCHECK /?CCL32
+	ICALL2	RT-GLOBAL-CHECK,TBL
+	JUMP	?CND30
+?CCL32:	ZERO?	GL-NOW-LIT? /?CND33
+	FCLEAR	CH-PLAYER,FL-TRANSPARENT
+	ICALL	RT-DO-SL,GL-PLACE-CUR,SOG,SIR
+	FSET	CH-PLAYER,FL-TRANSPARENT
+?CND33:	ICALL	RT-DO-SL,CH-PLAYER,SH,SC
+?CND30:	GET	TBL,K-P-MATCHLEN
+	SUB	STACK,TLEN >LEN
+	BTST	GL-P-GET-FLAGS,K-P-ALL /?CND35
+	BTST	GL-P-GET-FLAGS,K-P-ONE \?CCL38
+	ZERO?	LEN /?CCL38
+	EQUAL?	LEN,1 /?CND41
+	RANDOM	LEN
+	GET	TBL,STACK
+	PUT	TBL,1,STACK
+	PRINTI	"[How about "
+	GET	TBL,1
+	ICALL2	RT-THEO-PRINT,STACK
+	PRINTI	"?]"
+	CRLF	
+?CND41:	PUT	TBL,K-P-MATCHLEN,1
+?CND35:	ADD	TLEN,1
+	GET	TBL,STACK >X
+	ZERO?	GL-P-ADJ /?CND86
+	ZERO?	GL-P-NAM \?CND86
+	ZERO?	X /?CND86
+	PRINTC	91
+	ICALL2	RT-THEO-PRINT,X
+	PRINTC	93
+	CRLF	
+	CRLF	
+?CND86:	SET	'GL-P-SLOCBITS,XBITS
+	PUT	GL-P-NAMW,GL-P-PHR,GL-P-NAM
+	PUT	GL-P-ADJW,GL-P-PHR,GL-P-ADJ
+	SET	'GL-P-NAM,FALSE-VALUE
+	SET	'GL-P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL38:	GRTR?	LEN,1 /?CTR43
+	ZERO?	LEN \?CCL44
+	EQUAL?	GL-P-SLOCBITS,-1 /?CCL44
+?CTR43:	EQUAL?	GL-P-SLOCBITS,-1 \?CCL51
+	SET	'GL-P-SLOCBITS,XBITS
+	SET	'OLEN,LEN
+	GET	TBL,K-P-MATCHLEN
+	SUB	STACK,LEN
+	PUT	TBL,K-P-MATCHLEN,STACK
+	JUMP	?PRG28
+?CCL51:	PUT	GL-P-NAMW,GL-P-PHR,GL-P-NAM
+	PUT	GL-P-ADJW,GL-P-PHR,GL-P-ADJ
+	ZERO?	LEN \?CND52
+	SET	'LEN,OLEN
+?CND52:	ZERO?	GL-P-NAM /?CCL56
+	ADD	TLEN,1
+	GET	TBL,STACK >OBJ
+	ZERO?	OBJ /?CCL56
+	GETP	OBJ,P?GENERIC
+	CALL	STACK,TBL,LEN >OBJ
+	ZERO?	OBJ /?CCL56
+	EQUAL?	OBJ,TH-NOT-HERE-OBJECT /FALSE
+	PUT	TBL,1,OBJ
+	PUT	TBL,K-P-MATCHLEN,1
+	SET	'GL-P-NAM,FALSE-VALUE
+	SET	'GL-P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL56:	ZERO?	VRB /?CCL63
+	EQUAL?	GL-WINNER,CH-PLAYER /?CCL63
+	PRINT	K-DONT-UNDERSTAND-MSG
+	CRLF	
+	RFALSE	
+?CCL63:	ZERO?	VRB /?CCL67
+	ZERO?	GL-P-NAM /?CCL67
+	ICALL	RT-WHICH-PRINT,TLEN,LEN,TBL
+	EQUAL?	TBL,GL-P-PRSO \?CCL72
+	SET	'GL-P-ACLAUSE,K-P-NC1
+	JUMP	?CND70
+?CCL72:	SET	'GL-P-ACLAUSE,K-P-NC2
+?CND70:	SET	'GL-P-AADJ,GL-P-ADJ
+	SET	'GL-P-ANAM,GL-P-NAM
+	ICALL	RT-ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'GL-P-ORPH,TRUE-VALUE
+	JUMP	?CND54
+?CCL67:	ZERO?	VRB /?CND54
+	ICALL2	RT-NOT-IN-SENTENCE-MSG,STR?226
+?CND54:	SET	'GL-P-NAM,FALSE-VALUE
+	SET	'GL-P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL44:	ZERO?	LEN \?CCL75
+	ZERO?	GCHECK /?CCL75
+	PUT	GL-P-NAMW,GL-P-PHR,GL-P-NAM
+	PUT	GL-P-ADJW,GL-P-PHR,GL-P-ADJ
+	ZERO?	VRB /?CND78
+	SET	'GL-P-SLOCBITS,XBITS
+	ZERO?	GL-NOW-LIT? \?CTR81
+	CALL1	RT-TALK-VERB?
+	ZERO?	STACK /?CCL82
+?CTR81:	ICALL	RT-OBJ-FOUND,TH-NOT-HERE-OBJECT,TBL
+	SET	'GL-P-XNAM,GL-P-NAM
+	SET	'GL-P-NAM,FALSE-VALUE
+	SET	'GL-P-XADJ,GL-P-ADJ
+	SET	'GL-P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL82:	PRINT	K-TOO-DARK-MSG
+	CRLF	
+?CND78:	SET	'GL-P-NAM,FALSE-VALUE
+	SET	'GL-P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL75:	ZERO?	LEN \?CND35
+	SET	'GCHECK,TRUE-VALUE
+	JUMP	?PRG28
+
+
+	.FUNCT	RT-MOBY-FIND,TBL,OBJ,LEN,FOO,NAM,ADJ,TTBL,COBJ-GOOD?,CT,?TMP1
+	SET	'OBJ,1
+	SET	'NAM,GL-P-NAM
+	SET	'ADJ,GL-P-ADJ
+	SET	'GL-P-NAM,GL-P-XNAM
+	SET	'GL-P-ADJ,GL-P-XADJ
+	PUT	TBL,K-P-MATCHLEN,0
+?PRG1:	CALL2	RT-THIS-IT?,OBJ
+	ZERO?	STACK /?CND3
+	LOC	OBJ
+	ZERO?	STACK /?CTR6
+	LOC	OBJ
+	CALL2	RT-THIS-IT?,STACK
+	ZERO?	STACK \?CCL7
+?CTR6:	GET	TBL,K-P-MATCHLEN >CT
+	LOC	OBJ
+	ZERO?	STACK \?CTR11
+	FSET?	OBJ,FL-PERSON /?CTR11
+	INTBL?	OBJ,FIND-NO-LOCS+2,3 \?CCL12
+?CTR11:	EQUAL?	CT,1 \?CCL18
+	ZERO?	COBJ-GOOD? \?CCL18
+	SET	'COBJ-GOOD?,TRUE-VALUE
+	PUT	TBL,K-P-MATCHLEN,0
+	JUMP	?CND16
+?CCL18:	ZERO?	CT \?CND16
+	SET	'COBJ-GOOD?,TRUE-VALUE
+?CND16:	ICALL	RT-OBJ-FOUND,OBJ,TBL
+	JUMP	?CND3
+?CCL12:	ZERO?	CT \?CND3
+	CALL	RT-OBJ-FOUND,OBJ,TBL >FOO
+	JUMP	?CND3
+?CCL7:	IN?	OBJ,ROOMS \?CND3
+	GET	TBL,K-P-MATCHLEN
+	ZERO?	STACK \?CND3
+	CALL2	RT-MATCH-PSEUDO,OBJ
+	ZERO?	STACK /?CND3
+	CALL	RT-OBJ-FOUND,OBJ,TBL >FOO
+?CND3:	IGRTR?	'OBJ,LAST-OBJECT \?PRG1
+	GET	TBL,K-P-MATCHLEN >CT
+	ZERO?	CT /?CCL30
+	ZERO?	COBJ-GOOD? /?CCL30
+	EQUAL?	GL-PLACE-CUR,RM-DIOGENES-CLUB \?CND29
+	ADD	TBL,2 >?TMP1
+	GET	TBL,K-P-MATCHLEN
+	INTBL?	CH-HOLMES,?TMP1,STACK >TTBL \?CND29
+?CCL30:	CALL	RT-PARSE-EVENT?,GL-P-NAM,GL-P-ADJ >OBJ
+	ZERO?	OBJ /?CND29
+	ZERO?	TTBL /?CCL40
+	PUT	TTBL,0,OBJ
+	JUMP	?CND38
+?CCL40:	ZERO?	COBJ-GOOD? \?CND41
+	GRTR?	CT,0 \?CND41
+	SUB	CT,1
+	PUT	TBL,K-P-MATCHLEN,STACK
+?CND41:	ICALL	RT-OBJ-FOUND,OBJ,TBL
+?CND38:	SET	'COBJ-GOOD?,TRUE-VALUE
+?CND29:	GET	TBL,K-P-MATCHLEN >LEN
+	EQUAL?	LEN,1 \?CND45
+	ZERO?	COBJ-GOOD? \?CCL49
+	SET	'GL-P-MOBY-FOUND,TH-NOT-HERE-OBJECT
+	JUMP	?CND45
+?CCL49:	GET	TBL,1 >GL-P-MOBY-FOUND
+?CND45:	SET	'GL-P-NAM,NAM
+	SET	'GL-P-ADJ,ADJ
+	RETURN	LEN
+
+
+	.FUNCT	RT-MATCH-PSEUDO,OBJ,RMG,RMGL,TTBL,?TMP1
+	GETP	OBJ,P?PSEUDOS >RMG
+	ZERO?	RMG /FALSE
+	GETB	RMG,0 >RMGL
+	INC	'RMG
+?PRG3:	GET	RMG,1 >TTBL
+	ZERO?	TTBL /?CND5
+	ADD	TTBL,1 >?TMP1
+	GETB	TTBL,0
+	INTBL?	GL-P-NAM,?TMP1,STACK \?CND5
+	ZERO?	GL-P-ADJ \?PRD11
+	RETURN	RMG
+?PRD11:	GET	RMG,0 >TTBL
+	ZERO?	TTBL /?CND5
+	ADD	TTBL,1 >?TMP1
+	GETB	TTBL,0
+	INTBL?	GL-P-ADJ,?TMP1,STACK \?CND5
+	RETURN	RMG
+?CND5:	ADD	RMG,6 >RMG
+	DLESS?	'RMGL,1 \?PRG3
+	RFALSE	
+
+
+	.FUNCT	RT-GLOBAL-CHECK,TBL,LEN,RMG,RMGL,CNT,OBJ,OBITS,FOO
+	GET	TBL,K-P-MATCHLEN >LEN
+	SET	'OBITS,GL-P-SLOCBITS
+	CALL2	RT-THIS-IT?,GL-PLACE-CUR
+	ZERO?	STACK /?CND1
+	ICALL	RT-OBJ-FOUND,GL-PLACE-CUR,TBL
+?CND1:	GETPT	GL-PLACE-CUR,P?GLOBAL >RMG
+	ZERO?	RMG /?CND3
+	PTSIZE	RMG >RMGL
+	DEC	'RMGL
+?PRG5:	GETB	RMG,CNT >OBJ
+	FIRST?	OBJ \?CND7
+	IN?	OBJ,ROOMS /?CND7
+	ICALL	RT-SEARCH-LIST,OBJ,TBL,K-P-SRCALL
+?CND7:	CALL2	RT-THIS-IT?,OBJ
+	ZERO?	STACK /?CND11
+	ICALL	RT-OBJ-FOUND,OBJ,TBL
+?CND11:	IGRTR?	'CNT,RMGL \?PRG5
+?CND3:	GET	TBL,K-P-MATCHLEN
+	ZERO?	STACK \?CND15
+	CALL2	RT-MATCH-PSEUDO,GL-PLACE-CUR >RMG
+	ZERO?	RMG /?CND15
+	SET	'LAST-PSEUDO-LOC,GL-PLACE-CUR
+	GET	RMG,2
+	PUTP	PSEUDO-OBJECT,P?ACTION,STACK
+	ICALL	RT-OBJ-FOUND,PSEUDO-OBJECT,TBL
+?CND15:	GET	TBL,K-P-MATCHLEN
+	EQUAL?	STACK,LEN \FALSE
+	SET	'GL-P-SLOCBITS,-1
+	SET	'GL-P-TABLE,TBL
+	ICALL	RT-DO-SL,GLOBAL-OBJECTS,1,1
+	SET	'GL-P-SLOCBITS,OBITS
+	GET	TBL,K-P-MATCHLEN
+	ZERO?	STACK \FALSE
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-INSIDE /?PRD29
+	EQUAL?	GL-PRSA,V?FIND,V?FOLLOW,V?EXIT /?PRD29
+	EQUAL?	GL-PRSA,V?SEARCH,V?SMELL,V?WALK-TO /?PRD29
+	EQUAL?	GL-PRSA,V?THROUGH,V?WAIT-FOR,V?WAIT \FALSE
+?PRD29:	ZERO?	INHIBIT-ROOMS \FALSE
+	CALL	RT-DO-SL,ROOMS,1,1
+	RSTACK	
+
+
+	.FUNCT	RT-DO-SL,OBJ,BIT1,BIT2,BITS
+	ADD	BIT1,BIT2
+	BTST	GL-P-SLOCBITS,STACK \?CCL3
+	CALL	RT-SEARCH-LIST,OBJ,GL-P-TABLE,K-P-SRCALL
+	RSTACK	
+?CCL3:	BTST	GL-P-SLOCBITS,BIT1 \?CCL6
+	CALL	RT-SEARCH-LIST,OBJ,GL-P-TABLE,K-P-SRCTOP
+	RSTACK	
+?CCL6:	BTST	GL-P-SLOCBITS,BIT2 \TRUE
+	CALL	RT-SEARCH-LIST,OBJ,GL-P-TABLE,K-P-SRCBOT
+	RSTACK	
+
+
+	.FUNCT	RT-SEARCH-LIST,OBJ,TBL,LVL
+	FIRST?	OBJ >OBJ /?BOGUS1
+?BOGUS1:	ZERO?	OBJ /FALSE
+?PRG5:	EQUAL?	LVL,K-P-SRCBOT /?CND7
+	GETPT	OBJ,P?SYNONYM
+	ZERO?	STACK /?CND7
+	CALL2	RT-THIS-IT?,OBJ
+	ZERO?	STACK /?CND7
+	ICALL	RT-OBJ-FOUND,OBJ,TBL
+?CND7:	ZERO?	LVL \?PRD15
+	FSET?	OBJ,FL-SURFACE /?PRD15
+	FSET?	OBJ,FL-PERSON \?CND12
+?PRD15:	FIRST?	OBJ \?CND12
+	CALL2	RT-SEE-INSIDE?,OBJ
+	ZERO?	STACK /?CND12
+	FSET?	OBJ,FL-SURFACE /?CTR21
+	FSET?	OBJ,FL-PERSON \?CCL22
+?CTR21:	PUSH	K-P-SRCALL
+	JUMP	?CND20
+?CCL22:	FSET?	OBJ,FL-CONTAINER \?CCL26
+	FSET?	OBJ,FL-OPENED /?CTR25
+	FSET?	OBJ,FL-TRANSPARENT \?CCL26
+?CTR25:	PUSH	K-P-SRCALL
+	JUMP	?CND20
+?CCL26:	PUSH	K-P-SRCTOP
+?CND20:	ICALL	RT-SEARCH-LIST,OBJ,TBL,STACK
+?CND12:	NEXT?	OBJ >OBJ /?BOGUS31
+?BOGUS31:	ZERO?	OBJ \?PRG5
+	RTRUE	
+
+
+	.FUNCT	RT-THIS-IT?,OBJ,SYNS,SYNSIZE,ADJS,ADJSIZE
+	ZERO?	GL-P-NAM /?CCL3
+	GETPT	OBJ,P?SYNONYM >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	DIV	STACK,2 >SYNSIZE
+	INTBL?	GL-P-NAM,SYNS,SYNSIZE \FALSE
+?CCL3:	ZERO?	GL-P-ADJ /?CND1
+	GETPT	OBJ,P?ADJECTIVE >ADJS
+	ZERO?	ADJS /FALSE
+	PTSIZE	ADJS
+	DIV	STACK,2 >ADJSIZE
+	INTBL?	GL-P-ADJ,ADJS,ADJSIZE \FALSE
+?CND1:	ZERO?	INHIBIT-ROOMS /?CCL15
+	IN?	OBJ,ROOMS /FALSE
+?CCL15:	ZERO?	GL-P-OF /?CND13
+	ZERO?	ADJS /?CND19
+	INTBL?	GL-P-OF,ADJS,ADJSIZE /TRUE
+?CND19:	ZERO?	SYNS /FALSE
+	INTBL?	GL-P-OF,SYNS,SYNSIZE /TRUE
+	RFALSE	
+?CND13:	ZERO?	GL-P-GWIMBIT /TRUE
+	FSET?	OBJ,GL-P-GWIMBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-OBJ-FOUND,OBJ,TBL,PTR
+	GET	TBL,K-P-MATCHLEN
+	ADD	STACK,1 >PTR
+	LESS?	PTR,K-P-OBJ-TBL-LEN /?CCL3
+	SET	'GL-P-OVERFLOW,TRUE-VALUE
+	RFALSE	
+?CCL3:	LESS?	PTR,K-P-OBJ-TBL-LEN \TRUE
+	SET	'GL-P-OVERFLOW,FALSE-VALUE
+	PUT	TBL,PTR,OBJ
+	PUT	TBL,K-P-MATCHLEN,PTR
+	FSET?	OBJ,FL-NEEDS-IDENTITY \TRUE
+	PUTP	OBJ,P?OBJ-ADJ,GL-P-ADJ
+	EQUAL?	OBJ,TH-EVENT /TRUE
+	PUTP	OBJ,P?OBJ-NOUN,GL-P-NAM
+	RTRUE	
+
+
+	.FUNCT	RT-ITAKE,VB,L
+	ASSIGNED?	'VB /?CND1
+	SET	'VB,TRUE-VALUE
+?CND1:	ZERO?	GL-PRSO /?CCL4
+	LOC	GL-PRSO
+	ZERO?	STACK \?CND3
+?CCL4:	ICALL1	RT-CANT-SEE-ANY-MSG
+	RFALSE	
+?CND3:	LOC	GL-PRSO >L
+	ICALL2	RT-THIS-IS-IT,GL-PRSO
+	FSET?	GL-PRSO,FL-TAKEABLE /?CCL9
+	ZERO?	VB /FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RFALSE	
+?CCL9:	FSET?	L,FL-CONTAINER \?CCL13
+	FSET?	L,FL-OPENABLE \?CCL13
+	FSET?	L,FL-OPENED /?CCL13
+	ZERO?	VB /FALSE
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?227,L
+	RFALSE	
+?CCL13:	IN?	L,GL-WINNER /?CCL20
+	CALL	RT-OBJ-TOO-HEAVY?,GL-PRSO,GL-WINNER
+	ZERO?	STACK /?CCL20
+	ZERO?	VB /FALSE
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	PRINTI	"too heavy."
+	CRLF	
+	RFALSE	
+?CCL20:	CALL	RT-OBJ-TOO-MANY?,GL-PRSO,GL-WINNER
+	ZERO?	STACK /?CCL26
+	ZERO?	VB /FALSE
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"holding too much already."
+	CRLF	
+	RFALSE	
+?CCL26:	FSET	GL-PRSO,FL-SEEN
+	FSET	GL-PRSO,FL-TOUCHED
+	FCLEAR	GL-PRSO,FL-WORN
+	FCLEAR	GL-PRSO,FL-NODESC
+	FCLEAR	GL-PRSO,FL-NOALL
+	MOVE	GL-PRSO,GL-WINNER
+	RETURN	L
+
+
+	.FUNCT	RT-ITAKE-CHECK,TBL,BITS,PRSO?,PTR,LEN,OBJ,L,GOT,TRIED-TAKE?,NEED-TAKE?
+	SET	'PTR,1
+	GET	TBL,K-P-MATCHLEN >LEN
+	ZERO?	LEN /TRUE
+	BAND	BITS,10
+	ZERO?	STACK /TRUE
+?PRG5:	GET	TBL,PTR >OBJ
+	EQUAL?	OBJ,TH-IT \?CCL9
+	CALL2	RT-ACCESSIBLE?,GL-P-IT-OBJECT
+	ZERO?	STACK \?CND10
+	PRINT	K-BE-MORE-SPECIFIC-MSG
+	CRLF	
+	RFALSE	
+?CND10:	FSET?	OBJ,FL-NEEDS-IDENTITY \?CND12
+	GETP	TH-IT,P?OBJ-NOUN
+	PUTP	OBJ,P?OBJ-NOUN,STACK
+	GETP	TH-IT,P?OBJ-ADJ
+	PUTP	OBJ,P?OBJ-ADJ,STACK
+?CND12:	SET	'OBJ,GL-P-IT-OBJECT
+	JUMP	?CND7
+?CCL9:	EQUAL?	OBJ,CH-THEM \?CCL15
+	CALL2	RT-ACCESSIBLE?,GL-P-THEM-OBJECT
+	ZERO?	STACK \?CND16
+	PRINT	K-BE-MORE-SPECIFIC-MSG
+	CRLF	
+	RFALSE	
+?CND16:	SET	'OBJ,GL-P-THEM-OBJECT
+	JUMP	?CND7
+?CCL15:	EQUAL?	OBJ,CH-HER \?CCL19
+	CALL2	RT-ACCESSIBLE?,GL-P-HER-OBJECT
+	ZERO?	STACK \?CND20
+	PRINT	K-BE-MORE-SPECIFIC-MSG
+	CRLF	
+	RFALSE	
+?CND20:	SET	'OBJ,GL-P-HER-OBJECT
+	JUMP	?CND7
+?CCL19:	EQUAL?	OBJ,CH-HIM \?CND7
+	CALL2	RT-ACCESSIBLE?,GL-P-HIM-OBJECT
+	ZERO?	STACK \?CND23
+	PRINT	K-BE-MORE-SPECIFIC-MSG
+	CRLF	
+	RFALSE	
+?CND23:	SET	'OBJ,GL-P-HIM-OBJECT
+?CND7:	EQUAL?	OBJ,TH-POCKET,TH-HANDS,TH-FEET /?CND25
+	EQUAL?	OBJ,CH-ME,CH-PLAYER,CH-YOU /?CND25
+	EQUAL?	OBJ,ROOMS,TH-PLAYER-BODY /?CND25
+	EQUAL?	OBJ,TH-INTDIR,TH-RIGHT,TH-LEFT /?CND25
+	BTST	BITS,SC /?CCL34
+	BTST	BITS,SH \?CCL34
+	IN?	OBJ,GL-WINNER /?CND32
+	SET	'NEED-TAKE?,TRUE-VALUE
+	JUMP	?CND32
+?CCL34:	CALL2	RT-HELD?,OBJ
+	ZERO?	STACK \?CND32
+	ZERO?	PRSO? /?PRD46
+	GET	GL-P-NAMW,0
+	ZERO?	STACK /?PRD44
+?PRD46:	ZERO?	PRSO? \?CCL42
+	GET	GL-P-NAMW,1
+	ZERO?	STACK \?CCL42
+?PRD44:	IN?	OBJ,TH-POCKET /?CND32
+?CCL42:	SET	'NEED-TAKE?,TRUE-VALUE
+?CND32:	ZERO?	NEED-TAKE? /?CND25
+	SET	'NEED-TAKE?,FALSE-VALUE
+	SET	'GL-PRSO,OBJ
+	LOC	OBJ >L
+	ZERO?	L \?CCL55
+	SET	'GOT,FALSE-VALUE
+	JUMP	?CND53
+?CCL55:	FSET?	OBJ,FL-TRYTAKE \?CCL57
+	FSET?	OBJ,FL-TAKEABLE /?CCL57
+	SET	'GOT,FALSE-VALUE
+	JUMP	?CND53
+?CCL57:	EQUAL?	GL-WINNER,CH-PLAYER /?CCL61
+	SET	'GOT,FALSE-VALUE
+	JUMP	?CND53
+?CCL61:	EQUAL?	L,GL-WINNER \?CCL63
+	BTST	BITS,SHAVE \?CCL63
+	SET	'GOT,TRUE-VALUE
+	JUMP	?CND53
+?CCL63:	CALL	RT-META-IN?,L,GL-WINNER
+	ZERO?	STACK /?CCL67
+	ZERO?	GL-P-MULT? \?CCL67
+	BTST	BITS,STAKE \?CCL67
+	PRINTI	"[taking "
+	ICALL2	RT-THEO-PRINT,OBJ
+	ZERO?	L /?CND71
+	FSET?	L,FL-CONTAINER \?CCL75
+	PRINTI	" out of "
+	JUMP	?CND73
+?CCL75:	FSET?	L,FL-SURFACE \?CCL77
+	PRINTI	" off "
+	JUMP	?CND73
+?CCL77:	PRINTI	" from "
+?CND73:	ICALL2	RT-THEO-PRINT,L
+?CND71:	PRINTI	" first]."
+	CRLF	
+	SET	'NEED-TAKE?,TRUE-VALUE
+	CALL1	RT-ITAKE >GOT
+	JUMP	?CND53
+?CCL67:	SET	'GOT,FALSE-VALUE
+?CND53:	ZERO?	GOT \?CND25
+	BTST	BITS,SHAVE \?CND25
+	ZERO?	NEED-TAKE? \FALSE
+	EQUAL?	LEN,PTR \?PRD88
+	ZERO?	GL-P-MULT? \?CCL86
+?PRD88:	EQUAL?	OBJ,TH-NOT-HERE-OBJECT /?CCL86
+	LOC	OBJ
+	EQUAL?	STACK,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CCL86
+	PRINTI	"Don't be silly"
+	JUMP	?CND84
+?CCL86:	ICALL1	RT-WINNER-NOT-HOLDING-MSG
+	EQUAL?	LEN,PTR \?CCL94
+	ZERO?	GL-P-MULT? /?CCL94
+	PRINTI	"all of those things"
+	JUMP	?CND84
+?CCL94:	EQUAL?	OBJ,TH-NOT-HERE-OBJECT \?CCL98
+	SET	'GL-P-IT-OBJECT,OBJ
+	ICALL2	DPRINT,OBJ
+	JUMP	?CND84
+?CCL98:	ICALL2	RT-THIS-IS-IT,OBJ
+	FSET?	OBJ,FL-PLURAL \?CCL101
+	PRINTI	"any "
+	ICALL2	DPRINT,OBJ
+	JUMP	?CND84
+?CCL101:	ICALL2	RT-A-PRINT,OBJ
+?CND84:	PRINTC	46
+	CRLF	
+	RFALSE	
+?CND25:	IGRTR?	'PTR,LEN \?PRG5
+	RTRUE	
+
+
+	.FUNCT	RT-MANY-CHECK,LOSS,TMP,?TMP1
+	GET	GL-P-PRSO,K-P-MATCHLEN
+	GRTR?	STACK,1 \?CCL3
+	GETB	GL-P-SYNTAX,K-P-SLOC1
+	BTST	STACK,SMANY /?CCL3
+	SET	'LOSS,1
+	JUMP	?CND1
+?CCL3:	GET	GL-P-PRSI,K-P-MATCHLEN
+	GRTR?	STACK,1 \?CND1
+	GETB	GL-P-SYNTAX,K-P-SLOC2
+	BTST	STACK,SMANY /?CND1
+	SET	'LOSS,2
+?CND1:	ZERO?	LOSS /TRUE
+	PRINTI	"[You cannot refer to more than one object at a time with """
+	GET	GL-P-ITBL,K-P-VERBN >TMP
+	ZERO?	TMP \?CCL14
+	PRINTI	"tell"
+	JUMP	?CND12
+?CCL14:	ZERO?	GL-P-ORPH \?CTR15
+	ZERO?	GL-P-MERGED /?CCL16
+?CTR15:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND12
+?CCL16:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	RT-WORD-PRINT,?TMP1,STACK
+?CND12:	PRINTI	".""]"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-IS-LIT?,RM,RMFLG,OHERE,LIT
+	ASSIGNED?	'RMFLG /?CND1
+	SET	'RMFLG,TRUE-VALUE
+?CND1:	ZERO?	RM \?CND3
+	SET	'RM,GL-PLACE-CUR
+?CND3:	ZERO?	RMFLG /?CCL7
+	FSET?	RM,FL-LIGHTED /TRUE
+?CCL7:	ZERO?	GL-ALW-LIT? /?CND5
+	EQUAL?	GL-WINNER,CH-PLAYER /TRUE
+?CND5:	FSET?	RM,FL-INDOORS /?CND13
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \TRUE
+?CND13:	SET	'GL-P-GWIMBIT,FL-LIGHTED
+	SET	'OHERE,GL-PLACE-CUR
+	SET	'GL-PLACE-CUR,RM
+	PUT	GL-P-MERGE,K-P-MATCHLEN,0
+	SET	'GL-P-TABLE,GL-P-MERGE
+	SET	'GL-P-SLOCBITS,-1
+	SET	'GL-P-OF,FALSE-VALUE
+	EQUAL?	OHERE,RM \?CND17
+	ICALL	RT-DO-SL,GL-WINNER,1,1
+	EQUAL?	GL-WINNER,CH-PLAYER /?CND17
+	IN?	CH-PLAYER,RM \?CND17
+	ICALL	RT-DO-SL,CH-PLAYER,1,1
+?CND17:	ICALL	RT-DO-SL,RM,1,1
+	GET	GL-P-TABLE,K-P-MATCHLEN
+	GRTR?	STACK,0 \?CND23
+	SET	'LIT,TRUE-VALUE
+?CND23:	SET	'GL-PLACE-CUR,OHERE
+	SET	'GL-P-GWIMBIT,0
+	RETURN	LIT
+
+
+	.FUNCT	RT-PERFORM,A,O,I,W-ROOM,W-LOC,I-LOC,O-LOC,V,OA,OO,OI,ONP,WHO
+	ZERO?	WINNER-IS-WIGGINS /?CND1
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND1
+	EQUAL?	GL-PRSA,V?TELL /?CND1
+	SET	'GL-WINNER,CH-WIGGINS
+	ICALL2	RT-SPOKEN-TO-MSG,GL-WINNER
+?CND1:	SET	'WINNER-IS-WIGGINS,FALSE-VALUE
+	FSET?	GL-WINNER,FL-ALIVE /?CND6
+	ICALL	RT-NOT-LIKELY-MSG,GL-WINNER,STR?230
+	ICALL1	RT-P-CLEAR
+	RETURN	2
+?CND6:	INTBL?	A,GL-SEE-VERBS+2,20 \?CND8
+	ZERO?	GL-NOW-LIT? \?CND8
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CND8:	SET	'OA,GL-PRSA
+	SET	'OO,GL-PRSO
+	SET	'OI,GL-PRSI
+	SET	'ONP,GL-NOW-PRSI?
+	CALL1	RT-ANYONE-HERE? >WHO
+	SET	'V,0
+	EQUAL?	A,V?WALK /?CND12
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL16
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT,V?WHERE \?CCL16
+	ZERO?	WHO \?CCL21
+	ICALL1	RT-NOBODY-TO-ASK-MSG
+	RETURN	2
+?CCL21:	SET	'GL-WINNER,WHO
+	ICALL2	RT-SPOKEN-TO-MSG,WHO
+	JUMP	?CND14
+?CCL16:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL23
+	EQUAL?	GL-PRSA,V?ASK-FOR-1,V?ASK-ABOUT-1 \?CCL23
+	ZERO?	WHO \?CCL28
+	ICALL1	RT-NOBODY-TO-ASK-MSG
+	RETURN	2
+?CCL28:	ICALL2	RT-SPOKEN-TO-MSG,WHO
+	SET	'GL-PRSI,GL-PRSO
+	SET	'GL-PRSO,WHO
+	EQUAL?	GL-PRSA,V?ASK-FOR-1 \?CCL31
+	SET	'GL-PRSA,V?ASK-FOR
+	JUMP	?CND29
+?CCL31:	EQUAL?	GL-PRSA,V?ASK-ABOUT-1 \?CND29
+	SET	'GL-PRSA,V?ASK-ABOUT
+?CND29:	SET	'A,GL-PRSA
+	SET	'O,GL-PRSO
+	SET	'I,GL-PRSI
+	JUMP	?CND14
+?CCL23:	EQUAL?	GL-WINNER,CH-PLAYER \?CND14
+	EQUAL?	O,CH-ME,CH-PLAYER \?CND14
+	EQUAL?	GL-PRSA,V?TELL,V?TELL-ABOUT,V?ASK-ABOUT /?CCL33
+	EQUAL?	GL-PRSA,V?ASK-FOR,V?QUESTION,V?REPLY /?CCL33
+	EQUAL?	GL-PRSA,V?THANK,V?YELL,V?HELLO /?CCL33
+	EQUAL?	GL-PRSA,V?GOODBYE,V?SAY,V?ALARM /?CCL33
+	EQUAL?	GL-PRSA,V?PASSWORD \?CND14
+?CCL33:	ZERO?	WHO \?CCL44
+	ICALL1	RT-TALK-TO-SELF-MSG
+	RETURN	2
+?CCL44:	SET	'GL-WINNER,WHO
+	ICALL2	RT-SPOKEN-TO-MSG,WHO
+?CND14:	EQUAL?	CH-YOU,I,O \?CND45
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL49
+	ZERO?	WHO \?CCL52
+	ICALL1	RT-TALK-TO-SELF-MSG
+	RETURN	2
+?CCL52:	SET	'GL-WINNER,WHO
+	ICALL2	RT-SPOKEN-TO-MSG,WHO
+	JUMP	?CND47
+?CCL49:	SET	'GL-P-QCONTEXT-TH,GL-WINNER
+	SET	'GL-P-QCONTEXT-RM,GL-PLACE-CUR
+	SET	'WHO,GL-WINNER
+?CND47:	EQUAL?	I,CH-YOU \?CND53
+	SET	'I,WHO
+?CND53:	EQUAL?	O,CH-YOU \?CND45
+	SET	'O,WHO
+?CND45:	EQUAL?	TH-IT,I,O \?CND57
+	CALL2	RT-ACCESSIBLE?,GL-P-IT-OBJECT
+	ZERO?	STACK \?CND57
+	ZERO?	I \?CCL63
+	ICALL1	RT-FAKE-ORPHAN-MSG
+	RETURN	2
+?CCL63:	ICALL2	RT-CANT-SEE-ANY-MSG,GL-P-IT-OBJECT
+	RETURN	2
+?CND57:	EQUAL?	CH-THEM,I,O \?CND64
+	CALL2	RT-VISIBLE?,GL-P-THEM-OBJECT
+	ZERO?	STACK /?CCL68
+	EQUAL?	CH-THEM,O \?CND69
+	SET	'O,GL-P-THEM-OBJECT
+?CND69:	EQUAL?	CH-THEM,I \?CND64
+	SET	'I,GL-P-THEM-OBJECT
+?CND64:	EQUAL?	CH-HER,I,O \?CND76
+	CALL2	RT-VISIBLE?,GL-P-HER-OBJECT
+	ZERO?	STACK /?CCL80
+	EQUAL?	GL-P-HER-OBJECT,GL-WINNER \?CND81
+	CALL2	RT-NO-OTHER?,TRUE-VALUE
+	ZERO?	STACK /?CND81
+	RETURN	2
+?CCL68:	ZERO?	I \?CCL75
+	ICALL1	RT-FAKE-ORPHAN-MSG
+	RETURN	2
+?CCL75:	ICALL2	RT-CANT-SEE-ANY-MSG,GL-P-THEM-OBJECT
+	RETURN	2
+?CND81:	EQUAL?	CH-HER,O \?CND85
+	SET	'O,GL-P-HER-OBJECT
+?CND85:	EQUAL?	CH-HER,I \?CND76
+	SET	'I,GL-P-HER-OBJECT
+?CND76:	EQUAL?	CH-HIM,I,O \?CND92
+	CALL2	RT-VISIBLE?,GL-P-HIM-OBJECT
+	ZERO?	STACK /?CCL96
+	EQUAL?	GL-P-HIM-OBJECT,GL-WINNER \?CND97
+	CALL1	RT-NO-OTHER?
+	ZERO?	STACK /?CND97
+	RETURN	2
+?CCL80:	ZERO?	I \?CCL91
+	ICALL1	RT-FAKE-ORPHAN-MSG
+	RETURN	2
+?CCL91:	ICALL2	RT-CANT-SEE-ANY-MSG,GL-P-HER-OBJECT
+	RETURN	2
+?CND97:	EQUAL?	CH-HIM,O \?CND101
+	SET	'O,GL-P-HIM-OBJECT
+?CND101:	EQUAL?	CH-HIM,I \?CND92
+	SET	'I,GL-P-HIM-OBJECT
+?CND92:	EQUAL?	O,TH-IT \?CND108
+	SET	'O,GL-P-IT-OBJECT
+?CND108:	EQUAL?	I,TH-IT \?CND12
+	SET	'I,GL-P-IT-OBJECT
+?CND12:	EQUAL?	A,V?TAKE \?CND112
+	ZERO?	O /?CND112
+	ZERO?	I \?CND112
+	LOC	O
+	ZERO?	STACK /?CND112
+	LOC	O >I
+?CND112:	SET	'GL-PRSA,A
+	SET	'GL-PRSI,I
+	SET	'GL-PRSO,O
+	EQUAL?	A,V?WALK /?CND118
+	EQUAL?	TH-NOT-HERE-OBJECT,O,I \?CND118
+	CALL	RT-TH-NOT-HERE-OBJECT >V
+	ZERO?	V /?CND118
+	SET	'GL-P-GOOD,FALSE-VALUE
+?CND118:	ICALL2	RT-THIS-IS-IT,GL-PRSI
+	ICALL2	RT-THIS-IS-IT,GL-PRSO
+	SET	'I,GL-PRSI
+	SET	'O,GL-PRSO
+	EQUAL?	O,ROOMS \?CND124
+	SET	'O,FALSE-VALUE
+?CND124:	LOC	GL-WINNER >W-LOC
+	FSET?	W-LOC,FL-VEHICLE /?CTR127
+	FSET?	W-LOC,FL-CONTAINER /?CTR127
+	FSET?	W-LOC,FL-SURFACE \?CCL128
+?CTR127:	LOC	W-LOC >W-ROOM
+	JUMP	?CND126
+?CCL96:	ZERO?	I \?CCL107
+	ICALL1	RT-FAKE-ORPHAN-MSG
+	RETURN	2
+?CCL107:	ICALL2	RT-CANT-SEE-ANY-MSG,GL-P-HIM-OBJECT
+	RETURN	2
+?CCL128:	SET	'W-ROOM,W-LOC
+?CND126:	ZERO?	V \?CND132
+	GETP	GL-WINNER,P?ACTION
+	CALL	STACK,K-M-WINNER >V
+?CND132:	ZERO?	V \?CND134
+	GETP	W-ROOM,P?ACTION
+	CALL	STACK,K-M-BEG >V
+?CND134:	ZERO?	V \?CND136
+	GET	PREACTIONS,A
+	CALL	STACK >V
+?CND136:	ZERO?	V \?CND138
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND138
+	FSET?	W-LOC,FL-VEHICLE /?CCL139
+	FSET?	W-LOC,FL-CONTAINER /?CCL139
+	FSET?	W-LOC,FL-SURFACE \?CND138
+?CCL139:	GETP	W-LOC,P?CONTFCN
+	CALL	STACK,K-M-CANT >V
+?CND138:	ZERO?	V \?CND146
+	EQUAL?	A,V?WALK /?CND146
+	EQUAL?	A,V?TELL-ABOUT,V?ASK-ABOUT,V?ASK-FOR /?CND146
+	ZERO?	I /?CND151
+	LOC	I >I-LOC
+	ZERO?	I-LOC /?CND151
+	FSET?	I-LOC,FL-VEHICLE /?CCL152
+	FSET?	I-LOC,FL-CONTAINER /?CCL152
+	FSET?	I-LOC,FL-SURFACE /?CCL152
+	FSET?	I-LOC,FL-ALIVE \?CND151
+?CCL152:	SET	'GL-NOW-PRSI?,TRUE-VALUE
+	GETP	I-LOC,P?CONTFCN
+	CALL	STACK,K-M-CONT >V
+?CND151:	ZERO?	O /?CND160
+	LOC	O >O-LOC
+	ZERO?	O-LOC /?CND160
+	FSET?	O-LOC,FL-VEHICLE /?CCL161
+	FSET?	O-LOC,FL-CONTAINER /?CCL161
+	FSET?	O-LOC,FL-SURFACE /?CCL161
+	FSET?	O-LOC,FL-ALIVE \?CND160
+?CCL161:	SET	'GL-NOW-PRSI?,FALSE-VALUE
+	GETP	O-LOC,P?CONTFCN
+	CALL	STACK,K-M-CONT >V
+?CND160:	ZERO?	I /?CND146
+	SET	'GL-NOW-PRSI?,TRUE-VALUE
+	GETP	I,P?ACTION
+	CALL	STACK >V
+?CND146:	ZERO?	V \?CND171
+	ZERO?	O /?CND171
+	EQUAL?	A,V?WALK /?CND171
+	SET	'GL-NOW-PRSI?,FALSE-VALUE
+	GETP	O,P?ACTION
+	CALL	STACK >V
+?CND171:	ZERO?	V \?CND176
+	GET	ACTIONS,A
+	CALL	STACK >V
+?CND176:	ZERO?	V \?CND178
+	GETP	W-LOC,P?ACTION
+	CALL	STACK,K-M-END >V
+?CND178:	ZERO?	GL-PRSI /?CND180
+	FSET?	GL-PRSI,FL-LOSE-IDENTITY \?CND180
+	PUTP	GL-PRSI,P?OBJ-NOUN,FALSE-VALUE
+	PUTP	GL-PRSI,P?OBJ-ADJ,FALSE-VALUE
+?CND180:	ZERO?	GL-PRSO /?CND184
+	FSET?	GL-PRSO,FL-LOSE-IDENTITY \?CND184
+	PUTP	GL-PRSO,P?OBJ-NOUN,FALSE-VALUE
+	PUTP	GL-PRSO,P?OBJ-ADJ,FALSE-VALUE
+?CND184:	SET	'GL-PRSA,OA
+	SET	'GL-PRSO,OO
+	SET	'GL-PRSI,OI
+	SET	'GL-NOW-PRSI?,ONP
+	RETURN	V
+
+
+	.FUNCT	RT-SET-GL-PLACE-CUR
+	LOC	GL-WINNER
+	FSET?	STACK,FL-VEHICLE \?CCL3
+	LOC	GL-WINNER
+	LOC	STACK >GL-PLACE-CUR
+	RETURN	GL-PLACE-CUR
+?CCL3:	LOC	GL-WINNER >GL-PLACE-CUR
+	RETURN	GL-PLACE-CUR
+
+
+	.FUNCT	RT-PARSER,PTR,WRD,VAL,VERB,OF-FLAG,LEN,DIR,NW,LW,CNT,OWINNER,OMERGED,TMP1,?TMP2,?TMP1
+?FCN:	SET	'PTR,K-P-LEXSTART
+	SET	'GL-FUNNY-CLAUSE?,FALSE-VALUE
+	ZERO?	GL-P-ORPH \?CND1
+	COPYT	GL-P-ITBL,GL-P-OTBL,20
+?CND1:	COPYT	GL-P-ITBL,0,20
+	SET	'GL-P-NAM,FALSE-VALUE
+	SET	'GL-P-ADJ,FALSE-VALUE
+	SET	'GL-P-XNAM,FALSE-VALUE
+	SET	'GL-P-XADJ,FALSE-VALUE
+	SET	'GL-P-DIR-WORD,FALSE-VALUE
+	ZERO?	GL-P-ORPH \?CND3
+	PUT	GL-P-NAMW,0,FALSE-VALUE
+	PUT	GL-P-NAMW,1,FALSE-VALUE
+	PUT	GL-P-ADJW,0,FALSE-VALUE
+	PUT	GL-P-ADJW,1,FALSE-VALUE
+	PUT	GL-P-OFW,0,FALSE-VALUE
+	PUT	GL-P-OFW,1,FALSE-VALUE
+?CND3:	SET	'OMERGED,GL-P-MERGED
+	SET	'OWINNER,GL-WINNER
+	SET	'GL-P-MERGED,FALSE-VALUE
+	SET	'GL-P-END-ON-PREP,FALSE-VALUE
+	PUT	GL-P-PRSO,K-P-MATCHLEN,0
+	PUT	GL-P-PRSI,K-P-MATCHLEN,0
+	PUT	GL-P-BUTS,K-P-MATCHLEN,0
+	ZERO?	GL-P-QUOT \?CND5
+	EQUAL?	GL-WINNER,CH-PLAYER /?CND5
+	SET	'GL-WINNER,CH-PLAYER
+	ICALL1	RT-SET-GL-PLACE-CUR
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+?CND5:	ZERO?	GL-RESERVE-PTR /?CCL11
+	SET	'PTR,GL-RESERVE-PTR
+	ICALL	RT-STUFF,GL-P-P-LEX,GL-P-T-LEX
+	COPYT	GL-P-RIBUF,GL-P-PIBUF,K-P-INBUF-SIZE
+	ZERO?	GL-DESC-LEVEL /?CND12
+	EQUAL?	CH-PLAYER,GL-WINNER \?CND12
+	CRLF	
+?CND12:	SET	'GL-RESERVE-PTR,FALSE-VALUE
+	SET	'GL-P-CONT,FALSE-VALUE
+	JUMP	?CND9
+?CCL11:	ZERO?	GL-P-CONT /?CCL17
+	SET	'PTR,GL-P-CONT
+	SET	'GL-P-CONT,FALSE-VALUE
+	ZERO?	GL-DESC-LEVEL /?CND9
+	EQUAL?	CH-PLAYER,GL-WINNER \?CND9
+	CRLF	
+	JUMP	?CND9
+?CCL17:	SET	'GL-WINNER,CH-PLAYER
+	SET	'GL-P-QUOT,FALSE-VALUE
+	ICALL1	RT-SET-GL-PLACE-CUR
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	GET	0,8
+	BTST	STACK,4 \?CND22
+	GET	0,8
+	BAND	STACK,-5
+	PUT	0,8,STACK
+	ICALL1	RT-INIT-SCREEN
+?CND22:	ICALL1	RT-UPDATE-STATUS-LINE
+	ZERO?	GL-WHERE-TO-PROMPT? /?CND24
+	CRLF	
+	PRINTI	"""Where to, guv'nor?"""
+	CRLF	
+?CND24:	ZERO?	GL-WHERE-TO-ORPH? /?CND26
+	SET	'GL-WINNER,CH-PLAYER
+	ICALL	RT-ORPHAN-VERB,W?DRIVE,ACT?DRIVE
+?CND26:	CRLF	
+	PRINTC	62
+	PUTB	GL-P-P-LEX,0,59
+	PUTB	GL-P-PIBUF,1,0
+	READ	GL-P-PIBUF,GL-P-P-LEX
+?CND9:	GETB	GL-P-P-LEX,K-P-LEXWORDS >GL-P-LEN
+	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?QUOTE,W?PERIOD,W?THEN /?CCL29
+	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?PLEASE,W?SO \?CND28
+?CCL29:	ADD	PTR,K-P-LEXELEN >PTR
+	DEC	'GL-P-LEN
+?CND28:	GET	GL-P-P-LEX,PTR >TMP1
+	LESS?	1,GL-P-LEN \?CND32
+	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?GO \?CND32
+	ADD	PTR,K-P-LEXELEN
+	GET	GL-P-P-LEX,STACK >NW
+	ZERO?	NW /?CND32
+	GETB	NW,6
+	BTST	STACK,64 \?CND32
+	ADD	PTR,K-P-LEXELEN >PTR
+	DEC	'GL-P-LEN
+?CND32:	ZERO?	GL-P-LEN \?CND38
+	PRINTI	"[What?]"
+	CRLF	
+	RFALSE	
+?CND38:	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?UNDO \?CCL42
+	ICALL1	V-UNDO
+	RFALSE	
+?CCL42:	ISAVE	 >GL-CAN-UNDO
+	EQUAL?	GL-CAN-UNDO,2 \?CND40
+	ICALL1	V-REFRESH
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ZERO?	SOUND-ON? /?CND45
+	ICALL1	CHECK-LOOPING
+?CND45:	PRINTI	"[UNDO completed.]"
+	CRLF	
+	JUMP	?FCN
+?CND40:	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?OOPS,W?O \?CCL49
+	ADD	PTR,K-P-LEXELEN
+	GET	GL-P-P-LEX,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA \?CND50
+	ADD	PTR,K-P-LEXELEN >PTR
+	DEC	'GL-P-LEN
+?CND50:	GRTR?	GL-P-LEN,1 /?CCL54
+	PRINTI	"[You cannot use OOPS that way.]"
+	CRLF	
+	RFALSE	
+?CCL54:	GET	GL-OOPS-TABLE,K-O-PTR
+	ZERO?	STACK /?CCL56
+	GRTR?	GL-P-LEN,2 \?CND57
+	PRINTI	"[Only the first word after OOPS is used.]"
+	CRLF	
+?CND57:	GET	GL-OOPS-TABLE,K-O-PTR >?TMP1
+	ADD	PTR,K-P-LEXELEN
+	GET	GL-P-P-LEX,STACK
+	PUT	GL-P-S-LEX,?TMP1,STACK
+	SET	'GL-WINNER,OWINNER
+	MUL	PTR,K-P-LEXELEN
+	ADD	STACK,6
+	GETB	GL-P-P-LEX,STACK >?TMP2
+	MUL	PTR,K-P-LEXELEN
+	ADD	STACK,7
+	GETB	GL-P-P-LEX,STACK >?TMP1
+	GET	GL-OOPS-TABLE,K-O-PTR
+	MUL	STACK,K-P-LEXELEN
+	ADD	STACK,3
+	ICALL	RT-INBUF-ADD,?TMP2,?TMP1,STACK
+	ICALL	RT-STUFF,GL-P-P-LEX,GL-P-S-LEX
+	GETB	GL-P-P-LEX,K-P-LEXWORDS >GL-P-LEN
+	GET	GL-OOPS-TABLE,K-O-START >PTR
+	COPYT	GL-OOPS-INBUF,GL-P-PIBUF,K-P-INBUF-SIZE
+	JUMP	?CND47
+?CCL56:	PUT	GL-OOPS-TABLE,K-O-END,FALSE-VALUE
+	PRINTI	"[There was no word to replace in that sentence.]"
+	CRLF	
+	RFALSE	
+?CCL49:	PUT	GL-OOPS-TABLE,K-O-END,FALSE-VALUE
+?CND47:	GET	GL-P-P-LEX,PTR
+	EQUAL?	STACK,W?AGAIN,W?G \?CCL61
+	ZERO?	GL-P-ORPH \?CTR63
+	ZERO?	GL-P-GOOD /?CTR63
+	GETB	GL-OOPS-INBUF,1
+	ZERO?	STACK \?CCL64
+?CTR63:	PRINTI	"[You cannot use AGAIN that way.]"
+	CRLF	
+	RFALSE	
+?CCL64:	GRTR?	GL-P-LEN,1 \?CCL69
+	ADD	PTR,K-P-LEXELEN
+	GET	GL-P-P-LEX,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA,W?THEN /?CTR71
+	ADD	PTR,K-P-LEXELEN
+	GET	GL-P-P-LEX,STACK
+	EQUAL?	STACK,W?AND \?CCL72
+?CTR71:	ADD	PTR,4 >PTR
+	GETB	GL-P-P-LEX,K-P-LEXWORDS
+	SUB	STACK,2
+	PUTB	GL-P-P-LEX,K-P-LEXWORDS,STACK
+	JUMP	?CND62
+?CCL72:	PRINT	K-DONT-UNDERSTAND-MSG
+	CRLF	
+	RFALSE	
+?CCL69:	ADD	PTR,K-P-LEXELEN >PTR
+	GETB	GL-P-P-LEX,K-P-LEXWORDS
+	SUB	STACK,1
+	PUTB	GL-P-P-LEX,K-P-LEXWORDS,STACK
+?CND62:	GETB	GL-P-P-LEX,K-P-LEXWORDS
+	GRTR?	STACK,0 \?CCL77
+	ICALL	RT-STUFF,GL-P-T-LEX,GL-P-P-LEX
+	COPYT	GL-P-PIBUF,GL-P-RIBUF,K-P-INBUF-SIZE
+	SET	'GL-RESERVE-PTR,PTR
+	JUMP	?CND75
+?CCL77:	SET	'GL-RESERVE-PTR,FALSE-VALUE
+?CND75:	CALL2	RT-VISIBLE?,OWINNER
+	ZERO?	STACK /?CCL80
+	SET	'GL-WINNER,OWINNER
+	SET	'GL-P-MERGED,OMERGED
+	COPYT	GL-OOPS-INBUF,GL-P-PIBUF,K-P-INBUF-SIZE
+	ICALL	RT-STUFF,GL-P-P-LEX,GL-P-S-LEX
+	SET	'CNT,-1
+	SET	'DIR,GL-AGAIN-DIR
+	COPYT	GL-P-OTBL,GL-P-ITBL,20
+	JUMP	?CND59
+?CCL80:	ICALL2	RT-CTHEO-PRINT,OWINNER
+	ICALL2	RT-ISNT-ARENT-MSG,OWINNER
+	PRINTI	"here anymore."
+	CRLF	
+	RFALSE	
+?CCL61:	ZERO?	GL-P-ORPH \?CND81
+	SET	'GL-P-NUMBER,-1
+?CND81:	ICALL	RT-STUFF,GL-P-S-LEX,GL-P-P-LEX
+	COPYT	GL-P-PIBUF,GL-OOPS-INBUF,K-P-INBUF-SIZE
+	PUT	GL-OOPS-TABLE,K-O-START,PTR
+	MUL	4,GL-P-LEN
+	PUT	GL-OOPS-TABLE,K-O-LENGTH,STACK
+	GETB	GL-P-P-LEX,K-P-LEXWORDS
+	MUL	K-P-LEXELEN,STACK
+	ADD	PTR,STACK
+	MUL	2,STACK >LEN
+	SUB	LEN,1
+	GETB	GL-P-P-LEX,STACK >?TMP1
+	SUB	LEN,2
+	GETB	GL-P-P-LEX,STACK
+	ADD	?TMP1,STACK
+	PUT	GL-OOPS-TABLE,K-O-END,STACK
+	SET	'GL-RESERVE-PTR,FALSE-VALUE
+	SET	'LEN,GL-P-LEN
+	SET	'GL-P-DIR,FALSE-VALUE
+	SET	'GL-P-NCN,0
+	SET	'GL-P-GET-FLAGS,0
+	PUT	GL-P-ITBL,K-P-VERBN,0
+?PRG83:	DLESS?	'GL-P-LEN,0 \?CCL87
+	SET	'GL-P-QUOT,FALSE-VALUE
+	JUMP	?CND59
+?CCL87:	GET	GL-P-P-LEX,PTR >WRD
+	ZERO?	WRD \?CTR88
+	CALL2	RT-NUMBER?,PTR >WRD
+	ZERO?	WRD /?CCL89
+?CTR88:	ZERO?	GL-P-LEN \?CCL94
+	SET	'NW,0
+	JUMP	?CND92
+?CCL94:	ADD	PTR,K-P-LEXELEN
+	GET	GL-P-P-LEX,STACK >NW
+?CND92:	EQUAL?	WRD,W?TO \?CCL97
+	EQUAL?	VERB,ACT?TELL,ACT?ASK \?CCL97
+	PUT	GL-P-ITBL,K-P-VERB,ACT?TELL
+	SET	'WRD,W?QUOTE
+	JUMP	?CND95
+?CCL97:	EQUAL?	WRD,W?THEN \?CCL101
+	GRTR?	GL-P-LEN,0 \?CCL101
+	ZERO?	VERB \?CCL101
+	ZERO?	GL-P-QUOT \?CCL101
+	PUT	GL-P-ITBL,K-P-VERB,ACT?TELL
+	PUT	GL-P-ITBL,K-P-VERBN,0
+	SET	'WRD,W?QUOTE
+	SET	'GL-P-ORPH,FALSE-VALUE
+	JUMP	?CND95
+?CCL101:	EQUAL?	WRD,W?PERIOD \?CND95
+	EQUAL?	LW,W?MR,W?MRS,W?MISS /?CCL106
+	EQUAL?	LW,W?DR \?CND95
+?CCL106:	DEC	'GL-P-NCN
+	ICALL	RT-CHANGE-LEXV,PTR,LW,TRUE-VALUE
+	SET	'WRD,LW
+	SET	'LW,0
+?CND95:	EQUAL?	WRD,W?THEN,W?PERIOD,W?QUOTE \?CCL113
+	EQUAL?	WRD,W?QUOTE \?CND114
+	ZERO?	GL-P-QUOT /?CCL118
+	SET	'GL-P-QUOT,FALSE-VALUE
+	JUMP	?CND114
+?CCL118:	SET	'GL-P-QUOT,TRUE-VALUE
+?CND114:	ZERO?	GL-P-LEN /?PEN119
+	ADD	PTR,K-P-LEXELEN >GL-P-CONT
+?PEN119:	PUTB	GL-P-P-LEX,K-P-LEXWORDS,GL-P-LEN
+	JUMP	?CND59
+?CCL113:	CALL	RT-WT?,WRD,16,3 >VAL
+	ZERO?	VAL /?CCL122
+	EQUAL?	VERB,FALSE-VALUE,ACT?WALK,ACT?GO \?CCL122
+	EQUAL?	LEN,1 /?CTR121
+	EQUAL?	LEN,2 \?PRD128
+	EQUAL?	VERB,ACT?WALK,ACT?GO /?CTR121
+?PRD128:	EQUAL?	NW,W?THEN,W?PERIOD,W?QUOTE \?PRD131
+	GRTR?	LEN,1 /?CTR121
+?PRD131:	ZERO?	GL-P-QUOT /?PRD134
+	EQUAL?	LEN,2 \?PRD134
+	EQUAL?	NW,W?QUOTE /?CTR121
+?PRD134:	GRTR?	LEN,2 \?CCL122
+	EQUAL?	NW,W?COMMA,W?AND \?CCL122
+?CTR121:	SET	'DIR,VAL
+	SET	'GL-P-DIR-WORD,WRD
+	EQUAL?	NW,W?COMMA,W?AND \?CND140
+	ADD	PTR,K-P-LEXELEN
+	ICALL	RT-CHANGE-LEXV,STACK,W?THEN
+?CND140:	GRTR?	LEN,2 /?CND85
+	SET	'GL-P-QUOT,FALSE-VALUE
+	JUMP	?CND59
+?CCL122:	CALL	RT-WT?,WRD,64,1 >VAL
+	ZERO?	VAL /?CCL145
+	ZERO?	VERB \?CCL145
+	SET	'GL-P-PRSA-WORD,WRD
+	SET	'VERB,VAL
+	PUT	GL-P-ITBL,K-P-VERB,VAL
+	PUT	GL-P-ITBL,K-P-VERBN,GL-P-VTBL
+	PUT	GL-P-VTBL,0,WRD
+	MUL	PTR,2
+	ADD	STACK,2 >TMP1
+	GETB	GL-P-P-LEX,TMP1
+	PUTB	GL-P-VTBL,2,STACK
+	ADD	TMP1,1
+	GETB	GL-P-P-LEX,STACK
+	PUTB	GL-P-VTBL,3,STACK
+	JUMP	?CND85
+?CCL145:	CALL	RT-WT?,WRD,8,0 >VAL
+	ZERO?	VAL \?CTR148
+	EQUAL?	WRD,W?A,W?EVERYTHING /?CTR148
+	EQUAL?	WRD,W?BOTH,W?ALL /?CTR148
+	GETB	WRD,6
+	BAND	STACK,160
+	ZERO?	STACK /?CCL149
+?CTR148:	GRTR?	GL-P-LEN,1 \?CCL156
+	EQUAL?	NW,W?OF \?CCL156
+	EQUAL?	VERB,ACT?TAKE /?CCL156
+	ZERO?	VAL \?CCL156
+	EQUAL?	WRD,W?A /?CCL156
+	EQUAL?	WRD,W?ALL,W?BOTH,W?EVERYTHING /?CCL156
+	PUT	GL-P-OFW,GL-P-NCN,WRD
+	SET	'OF-FLAG,TRUE-VALUE
+	JUMP	?CND85
+?CCL156:	ZERO?	VAL /?CCL164
+	ZERO?	GL-P-LEN /?CTR163
+	EQUAL?	NW,W?THEN,W?PERIOD \?CCL164
+?CTR163:	SET	'GL-P-END-ON-PREP,TRUE-VALUE
+	LESS?	GL-P-NCN,2 \?CND85
+	PUT	GL-P-ITBL,K-P-PREP1,VAL
+	PUT	GL-P-ITBL,K-P-PREP1N,WRD
+	JUMP	?CND85
+?CCL164:	EQUAL?	GL-P-NCN,2 \?CCL172
+	PRINTI	"[There are too many nouns in that sentence.]"
+	CRLF	
+	RFALSE	
+?CCL172:	INC	'GL-P-NCN
+	CALL	RT-CLAUSE,PTR,VAL,WRD >PTR
+	ZERO?	PTR /FALSE
+	LESS?	PTR,0 \?CND85
+	SET	'GL-P-QUOT,FALSE-VALUE
+?CND59:	PUT	GL-OOPS-TABLE,K-O-PTR,FALSE-VALUE
+	ZERO?	DIR /?CND191
+	SET	'GL-PRSA,V?WALK
+	SET	'GL-P-WALK-DIR,DIR
+	SET	'GL-AGAIN-DIR,DIR
+	SET	'GL-PRSO,DIR
+	SET	'GL-P-ORPH,FALSE-VALUE
+	RTRUE	
+?CCL149:	EQUAL?	WRD,W?OF \?CCL178
+	ZERO?	OF-FLAG /?CTR180
+	EQUAL?	NW,W?PERIOD,W?THEN \?CCL181
+?CTR180:	ICALL2	RT-DONT-KNOW-WORD-USE-MSG,PTR
+	RFALSE	
+?CCL181:	SET	'OF-FLAG,FALSE-VALUE
+	JUMP	?CND85
+?CCL178:	GETB	WRD,6
+	BTST	STACK,4 /?CND85
+	EQUAL?	WRD,W?MARX /?CND85
+	EQUAL?	VERB,ACT?TELL \?CCL188
+	GETB	WRD,6
+	BTST	STACK,64 \?CCL188
+	ICALL1	RT-WAY-TO-TALK-MSG
+	RFALSE	
+?CCL188:	ICALL2	RT-DONT-KNOW-WORD-USE-MSG,PTR
+	RFALSE	
+?CCL89:	ICALL2	RT-DONT-KNOW-WORD-MSG,PTR
+	RFALSE	
+?CND85:	SET	'LW,WRD
+	ADD	PTR,K-P-LEXELEN >PTR
+	JUMP	?PRG83
+?CND191:	SET	'GL-P-WALK-DIR,FALSE-VALUE
+	SET	'GL-AGAIN-DIR,FALSE-VALUE
+	ZERO?	GL-P-ORPH /?CND193
+	CALL1	RT-ORPHAN-MERGE
+	ZERO?	STACK /?CND193
+	ZERO?	GL-WHERE-TO-ORPH? \?CND193
+	SET	'GL-WINNER,OWINNER
+?CND193:	CALL1	RT-SYNTAX-CHECK
+	ZERO?	STACK /FALSE
+	CALL1	RT-SNARF-OBJECTS
+	ZERO?	STACK /FALSE
+	CALL1	RT-MANY-CHECK
+	ZERO?	STACK /FALSE
+	GETB	GL-P-SYNTAX,0
+	SHIFT	STACK,-6 >TMP1
+	GRTR?	TMP1,0 \TRUE
+	GETB	GL-P-SYNTAX,K-P-SLOC1
+	CALL	RT-ITAKE-CHECK,GL-P-PRSO,STACK,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	GRTR?	TMP1,1 \TRUE
+	GETB	GL-P-SYNTAX,K-P-SLOC2
+	CALL	RT-ITAKE-CHECK,GL-P-PRSI,STACK
+	RSTACK	
+
+
+	.FUNCT	RT-WHICH-PRINT,TLEN,LEN,TBL,OBJ,RLEN
+	SET	'RLEN,LEN
+	PRINTI	"Which"
+	ZERO?	GL-P-ORPH \?CTR2
+	ZERO?	GL-P-MERGED \?CTR2
+	ZERO?	GL-P-AND /?CCL3
+?CTR2:	PRINTC	32
+	PRINTB	GL-P-NAM
+	JUMP	?CND1
+?CCL3:	EQUAL?	TBL,GL-P-PRSO \?CCL8
+	ICALL	RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L,FALSE-VALUE
+	JUMP	?CND1
+?CCL8:	ICALL	RT-CLAUSE-PRINT,K-P-NC2,K-P-NC2L,FALSE-VALUE
+?CND1:	PRINTI	" do you mean,"
+?PRG9:	INC	'TLEN
+	GET	TBL,TLEN >OBJ
+	PRINTC	32
+	ICALL2	RT-THEO-PRINT,OBJ
+	EQUAL?	LEN,2 \?CCL13
+	EQUAL?	RLEN,2 /?CND14
+	PRINTC	44
+?CND14:	PRINTI	" or"
+	JUMP	?CND11
+?CCL13:	GRTR?	LEN,2 \?CND11
+	PRINTC	44
+?CND11:	DLESS?	'LEN,1 \?PRG9
+	PRINTR	"?"
+
+
+	.FUNCT	RT-FIND-NOT-HERE,TBL,PRSO?,M-F,OBJ
+	CALL2	RT-MOBY-FIND,TBL >M-F
+	ZERO?	M-F \?CCL3
+	PRINTI	"[There is no"
+	ICALL2	RT-NOT-HERE-PRINT,PRSO?
+	PRINTR	" in this story.]"
+?CCL3:	EQUAL?	M-F,1 \?CCL5
+	ZERO?	PRSO? /?CCL8
+	SET	'GL-PRSO,GL-P-MOBY-FOUND
+	RFALSE	
+?CCL8:	SET	'GL-PRSI,GL-P-MOBY-FOUND
+	RFALSE	
+?CCL5:	GRTR?	M-F,1 \?CCL10
+	GET	TBL,1 >OBJ
+	GETP	OBJ,P?GENERIC
+	CALL	STACK,TBL >OBJ
+	ZERO?	OBJ /?CCL10
+	EQUAL?	OBJ,TH-NOT-HERE-OBJECT /TRUE
+	ZERO?	PRSO? /?CCL17
+	SET	'GL-PRSO,OBJ
+	RFALSE	
+?CCL17:	SET	'GL-PRSI,OBJ
+	RFALSE	
+?CCL10:	EQUAL?	GL-PRSA,V?ASK-ABOUT,V?TELL-ABOUT,V?ASK-FOR /FALSE
+	EQUAL?	GL-PRSA,V?SAY,V?DRIVE,V?CALL /FALSE
+	EQUAL?	GL-PRSA,V?MAKE,V?WHO,V?WHAT /FALSE
+	EQUAL?	GL-PRSA,V?WHERE,V?FIND,V?FOLLOW /FALSE
+	EQUAL?	GL-PRSA,V?TELL,V?PASSWORD /FALSE
+	ZERO?	PRSO? \?CCL26
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"would not find any"
+	ICALL2	RT-NOT-HERE-PRINT,PRSO?
+	PRINTR	" there."
+?CCL26:	RETURN	TH-NOT-HERE-OBJECT
+
+
+	.FUNCT	RT-NOT-HERE-PRINT,PRSO?,?TMP1
+	ZERO?	GL-P-ORPH \?CTR2
+	ZERO?	GL-P-MERGED /?CCL3
+?CTR2:	ZERO?	GL-P-XADJ /?CND6
+	PRINTC	32
+	PRINTB	GL-P-XADJ
+?CND6:	ZERO?	GL-P-XNAM /FALSE
+	PRINTC	32
+	PRINTB	GL-P-XNAM
+	RTRUE	
+?CCL3:	ZERO?	PRSO? /?CCL12
+	GET	GL-P-ITBL,K-P-NC1 >?TMP1
+	GET	GL-P-ITBL,K-P-NC1L
+	CALL	RT-BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	RSTACK	
+?CCL12:	GET	GL-P-ITBL,K-P-NC2 >?TMP1
+	GET	GL-P-ITBL,K-P-NC2L
+	CALL	RT-BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	RSTACK	
+
+	.ENDI
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..b03a700
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,2559 @@
+;******************************************************************************
+; "game : SHERLOCK!"
+; "file : PARSER.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   27 Oct 1987 19:00:52  $"
+; "rev  : $Revision:   1.55  $"
+; "vers : 1.00"
+;******************************************************************************
+
+<GLOBAL INHIBIT-ROOMS <>>
+
+<GLOBAL GL-FUNNY-CLAUSE? <>>
+
+<CONSTANT SH		 128>		; "held"
+<CONSTANT SC		  64>		; "carried"
+<CONSTANT SIR		  32>		; "in room"
+<CONSTANT SOG		  16>		; "on ground"
+<CONSTANT STAKE		   8>		; "take"
+<CONSTANT SMANY		   4>		; "many"
+<CONSTANT SHAVE		   2>		; "have"
+
+<CONSTANT LAST-OBJECT      0>		; "the number of the last object"
+
+;<CONSTANT K-CURRENCY-SYMBOL !\$>
+
+<CONSTANT K-M-BEG      1>	; "room action context begin case"
+<CONSTANT K-M-ENTERING 2>	; "room action context entering case"
+<CONSTANT K-M-ENTERED  3>	; "room action routine entered case"
+<CONSTANT K-M-EXIT     4>	; "room action routine exit case"
+<CONSTANT K-M-END      5>	; "room action routine end case"
+<CONSTANT K-M-FLOOK    6>	
+<CONSTANT K-M-NLOOK    7>	
+<CONSTANT K-M-WINNER   8>	
+<CONSTANT K-M-CONT     9>	; "for container routine general case"
+<CONSTANT K-M-OBJDESC 10>	
+<CONSTANT K-M-CANT    11>       ; "for container routine limitations"
+<CONSTANT K-M-DESCFCN 12>	; "replaces DESCFCN property"
+<CONSTANT K-M-SDESC   13>	; "replaces SDESC"
+
+<CONSTANT K-M-DESC-1 14>
+<CONSTANT K-M-DESC-2 15>
+<CONSTANT K-M-DESC-3 16>
+
+<CONSTANT K-P-LEXWORDS 1>           ; "byte offset to # of entries in LEXV"
+<CONSTANT K-P-LEXSTART 1>           ; "word offset to start of LEXV entries"
+<CONSTANT K-P-LEXELEN  2>           ; "number of words per LEXV entry"
+<CONSTANT K-P-WORDLEN  4>           
+<CONSTANT K-P-PSOFF    6>           ; "offset to parts of speech byte"
+<CONSTANT K-P-P1OFF    7>           ; "offset to first parts of speech"
+<CONSTANT K-P-P1BITS   3>           ; "first part of speech mask in PSOFF byte"
+<CONSTANT K-P-ITBLLEN  9>           
+
+<CONSTANT K-P-VERB     0>	
+<CONSTANT K-P-VERBN    1>	
+<CONSTANT K-P-PREP1    2>	
+<CONSTANT K-P-PREP1N   3>	
+<CONSTANT K-P-PREP2    4>	
+<CONSTANT K-P-NC1      6>	
+<CONSTANT K-P-NC1L     7>	
+<CONSTANT K-P-NC2      8>	
+<CONSTANT K-P-NC2L     9>	
+
+<CONSTANT K-O-PTR      0>	
+<CONSTANT K-O-START    1>	
+<CONSTANT K-O-LENGTH   2>	
+<CONSTANT K-O-END      3>	
+
+<CONSTANT K-P-MATCHLEN 0>	
+<CONSTANT K-P-ALL      1>	
+<CONSTANT K-P-ONE      2>	
+<CONSTANT K-P-INHIBIT  4>	
+<CONSTANT K-P-SRCBOT   2>	
+<CONSTANT K-P-SRCTOP   0>	
+<CONSTANT K-P-SRCALL   1>
+
+<ROUTINE RT-CAPITALIZE (PTR)
+  <COND (<OR <MC-T? ,GL-P-ORPH>
+	    <MC-T? ,GL-P-MERGED>>
+	 <PRINTB <GET .PTR 0>>)
+	(T
+	 <PRINTC <- <GETB ,GL-P-PIBUF <GETB .PTR 3>> 32>>
+	 <RT-WORD-PRINT <- <GETB .PTR 2> 1> <+ <GETB .PTR 3> 1>>)>>
+
+<ROUTINE RT-WORD-PRINT (CNT BUF)
+   <PRINTT <ZREST ,GL-P-PIBUF .BUF> .CNT>
+   ;<REPEAT ()
+      <COND (<DLESS? CNT 0>
+	     <RTRUE>)
+	   (T
+            <PRINTC <GETB ,GL-P-PIBUF .BUF>>
+            <SET BUF <+ .BUF 1>>)>>>
+
+<ROUTINE RT-VERB-PRINT ("AUX" TMP)
+	<SET TMP <GET ,GL-P-ITBL ,K-P-VERBN>>
+	<COND (<ZERO? .TMP>
+	       <TELL "tell">)
+	      (<ZERO? <GETB ,GL-P-VTBL 2>>
+	       <PRINTB <GET .TMP 0>>)
+	      (T
+	       <RT-WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+	       <PUTB ,GL-P-VTBL 2 0>)>>
+
+<ROUTINE RT-PREP-PRINT (PREP "OPTIONAL" (SP? T) "AUX" WRD) 
+	<COND (<AND <MC-T? .PREP>
+		    <ZERO? ,GL-P-END-ON-PREP>>
+	       <COND (<MC-T? .SP?>
+		      <TELL " ">)>
+	       <SET WRD <RT-PREP-FIND .PREP>>
+	       <PRINTB .WRD>
+	       <COND (<AND <EQUAL? ,W?SIT <GET <GET ,GL-P-ITBL ,K-P-VERBN> 0>>
+			   <EQUAL? ,W?DOWN .WRD>>
+		      <TELL " on">)>
+	       <COND (<AND <EQUAL? ,W?GET <GET <GET ,GL-P-ITBL ,K-P-VERBN> 0>>
+			   <EQUAL? ,W?OUT .WRD>>
+		      <TELL " of">)>
+	       <RTRUE>)>>
+
+<ROUTINE RT-CLAUSE-PRINT (BPTR EPTR "OPTIONAL" (THE? T)) 
+	<RT-BUFFER-PRINT <GET ,GL-P-ITBL .BPTR> <GET ,GL-P-ITBL .EPTR> .THE?>> 
+
+<ROUTINE RT-BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+  <REPEAT ()
+    <COND (<EQUAL? .BEG .END>
+	   <RETURN>)
+	  (T
+	   <COND (<MC-T? .NOSP>
+		  <SET NOSP <>>)
+		 (T
+		  <TELL " ">)>
+	   <SET WRD <GET .BEG 0>>
+	   <COND (<OR <AND <EQUAL? .WRD ,W?HIM>
+			   <NOT <RT-VISIBLE? ,GL-P-HIM-OBJECT>>>
+		      <AND <EQUAL? .WRD ,W?HER>
+			   <NOT <RT-VISIBLE? ,GL-P-HER-OBJECT>>>
+		      <AND <EQUAL? .WRD ,W?THEM>
+			   <NOT <RT-VISIBLE? ,GL-P-THEM-OBJECT>>>>
+		  <SET PN T>)>
+	   <COND (<EQUAL? .WRD ,W?PERIOD>
+		  <SET NOSP T>)
+		 (<NOT <OR <EQUAL? .WRD ,W?ALL ,W?OF>
+			   <NOT <WT? .WRD ,PS?BUZZ-WORD <> ,PS?PREPOSITION>>
+			   <WT? .WRD ,PS?ADJECTIVE <> ,PS?OBJECT>>>
+		  <SET NOSP T>)
+		 (<EQUAL? .WRD ,W?ME>
+		  <TELL D ,CH-PLAYER>
+		  <SET PN T>)
+		 (<INTBL? .WRD <ZREST ,K-CAPS 2> <ZGET ,K-CAPS 0>>
+		  <RT-CAPITALIZE .BEG>
+		  <SET PN T>)
+		 (T
+		  <COND (<AND <MC-T? .FIRST??>
+			      <ZERO? .PN>
+			      <MC-T? .CP>>
+			 <TELL "the ">)>
+		  <COND (<OR <MC-T? ,GL-P-ORPH>
+			     <MC-T? ,GL-P-MERGED>>
+			 <PRINTB .WRD>)
+			(<AND <EQUAL? .WRD ,W?IT>
+			      <RT-VISIBLE? ,GL-P-IT-OBJECT>>
+			 <TELL D ,GL-P-IT-OBJECT>)
+			(<AND <EQUAL? .WRD ,W?HER>
+			      <ZERO? .PN>>
+			 <TELL D ,GL-P-HER-OBJECT>)
+			(<AND <EQUAL? .WRD ,W?THEM>
+			      <ZERO? .PN>>
+			 <TELL D ,GL-P-THEM-OBJECT>)
+			(<AND <EQUAL? .WRD ,W?HIM>
+			      <ZERO? .PN>>
+			 <TELL D ,GL-P-HIM-OBJECT>)
+			(T
+			 <RT-WORD-PRINT <GETB .BEG 2> <GETB .BEG 3>>)>
+		  <SET FIRST?? <>>)>)>
+    <SET BEG <REST .BEG ,K-P-WORDLEN>>>>
+
+<GLOBAL GL-LONG-OOPS 3>
+
+<ROUTINE RT-DONT-KNOW-WORD-MSG (PTR "AUX" BUF MSG)
+	<COND (<0? ,GL-LONG-OOPS>
+	       <TELL "[You don't need to use the word \"">)
+	      (T
+	       <SETG GL-LONG-OOPS <- ,GL-LONG-OOPS 1>>
+	       <TELL "[You can play the game from start to finish, solve all the puzzles, get all the points, and STILL never need to use the word \"">)>
+	<RT-WORD-PRINT <GETB <REST ,GL-P-P-LEX <SET BUF <* .PTR 2>>> 2>
+		       <GETB <REST ,GL-P-P-LEX .BUF> 3>>
+	<TELL "\".]" CR>
+	<PUT ,GL-OOPS-TABLE ,K-O-PTR .PTR>
+	<SETG GL-P-QUOT <>>
+	<SETG GL-P-ORPH <>>
+	<RTRUE>>
+
+<ROUTINE RT-DONT-KNOW-WORD-USE-MSG (PTR "AUX" BUF) 
+	<TELL "[This story cannot understand the word \"">
+	<RT-WORD-PRINT <GETB <REST ,GL-P-P-LEX <SET BUF <* .PTR 2>>> 2>
+		       <GETB <REST ,GL-P-P-LEX .BUF> 3>>
+	<TELL "\" when you use it that way.]" CR>
+	<SETG GL-P-QUOT <>>
+	<SETG GL-P-ORPH <>>
+	<RTRUE>>
+
+<ROUTINE RT-CANT-SEE-ANY-MSG ("OPTIONAL" (THING <>) (STRING? <>) (PRSO? T)
+			      "AUX" WRD)
+	<RT-CYOU-MSG>
+	<TELL "cannot ">
+	<COND (<MC-VERB? LISTEN>
+	       <TELL "hear">)
+	      (<MC-VERB? SMELL>
+	       <TELL "smell">)
+	      (T
+	       <TELL "see">)>
+	<COND (<MC-T? .STRING?>
+	       <TELL .STRING?>)
+	      (<AND <MC-T? .THING>
+		    <NOT <EQUAL? .THING ,TH-NOT-HERE-OBJECT>>>
+	       <TELL " ">
+	       <TELL ANY .THING>)
+	      (T
+	       <COND (<AND .THING
+			   <MC-PRSI? ,TH-NOT-HERE-OBJECT>>
+		      <SET PRSO? <>>)>
+	       <SET WRD <GET ,GL-P-NAMW <COND (.PRSO? 0) (T 1)>>>
+	       <COND (<NOT <INTBL? .WRD <ZREST ,K-CAPS 2>
+				   <ZGET ,K-CAPS 0>>>
+		      <TELL " any">)>
+	       <RT-NOT-HERE-PRINT .PRSO?>)>
+	<TELL " here." CR>
+	<SETG GL-P-IT-OBJECT ,TH-NOT-HERE-OBJECT>
+	<RT-P-CLEAR>
+	<RTRUE>>
+
+<ROUTINE RT-TH-NOT-HERE-OBJECT ("AUX" TBL (PRSO? T) OBJ ; (X <>))
+	<COND (<AND <MC-PRSO? ,TH-NOT-HERE-OBJECT>
+		    <MC-PRSI? ,TH-NOT-HERE-OBJECT>>
+	       <TELL "Those things aren't here." CR>
+	       <RTRUE>)
+	      (<MC-PRSO? ,TH-NOT-HERE-OBJECT>
+	       <SET TBL ,GL-P-PRSO>)
+	      (T
+	       <SET TBL ,GL-P-PRSI>
+	       <SET PRSO? <>>)>
+	<COND (<MC-T? .PRSO?>
+	       <COND (<OR <MC-VERB? FIND WHO WHAT WHERE WAIT-FOR WAIT SAY DRIVE
+				    CALL MAKE PASSWORD WALK-TO>
+			  <AND <MC-VERB? TAKE>
+			       <OR <AND <MC-HERE? ,RM-DIOGENES-CLUB>
+					<==? ,GL-WINNER ,CH-BUTLER>>
+				   <AND <MC-HERE? ,RM-SHERMANS-HOUSE>
+					<==? ,GL-WINNER ,CH-SHERMAN>>>>>
+		      <SET OBJ <RT-FIND-NOT-HERE .TBL .PRSO?>>
+		      <COND (<MC-T? .OBJ>
+			     <COND (<NOT <EQUAL? .OBJ ,TH-NOT-HERE-OBJECT>>
+				    <RFATAL>)>)
+			    (T
+			     <RFALSE>)>)>)
+	      (T
+	       <COND (<MC-VERB? TELL-ABOUT ASK-ABOUT ASK-FOR>
+		      <SET OBJ <RT-FIND-NOT-HERE .TBL .PRSO?>>
+		      <COND (<MC-T? .OBJ>
+			     <COND (<NOT <EQUAL? .OBJ ,TH-NOT-HERE-OBJECT>>
+				    <RFATAL>)>)
+			    (T
+			     <RFALSE>)>)>)>
+	<TELL "[">
+	<RT-CYOU-MSG>
+	<TELL "cannot ">
+	<COND (<MC-VERB? LISTEN>
+	       <TELL "hear">)
+	      (<MC-VERB? SMELL>
+	       <TELL "smell">)
+	      (T
+	       <TELL "see">)>
+	<COND (<NOT <INTBL? ,GL-P-XNAM <ZREST ,K-CAPS 2>
+			    <ZGET ,K-CAPS 0>>>
+	       <TELL " any">)>
+	<RT-NOT-HERE-PRINT .PRSO?>
+	<TELL " here.]" CR>
+	<RT-P-CLEAR>
+	<RFATAL>>
+
+<ROUTINE RT-FAKE-ORPHAN-MSG ("AUX" TMP)
+   <RT-ORPHAN ,GL-P-SYNTAX <>>
+   <TELL ,K-BE-SPECIFIC-MSG>
+   <SET TMP <GET ,GL-P-OTBL ,K-P-VERBN>>
+   <COND (<ZERO? .TMP>
+	  <TELL "tell">)
+	 (<ZERO? <GETB ,GL-P-VTBL 2>>
+	  <PRINTB <GET .TMP 0>>)
+	  (T
+	   <RT-WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+	   <PUTB ,GL-P-VTBL 2 0>)>
+   <TELL "?]" CR>
+   <SETG GL-P-ORPH T>
+   <SETG GL-P-GOOD <>>
+   <RTRUE>>
+
+<ROUTINE RT-TIME-OF-DAY-MSG ("OPT" (WAIT? <>) "AUX" TOD)
+  <SET TOD <RT-TIME-OF-DAY>>
+  <COND (<NOT <MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>>
+	 <COND (<NOT <EQUAL? ,GL-LAST-OUT-TOD .TOD>>
+		<COND
+		 (.WAIT?
+		  <RT-WAIT-TOD-MSG .TOD>)
+		 (T
+		  <CRLF>
+		  ;<CRLF>
+		  <RT-CYOU-MSG "notice" "notices">
+		  <TELL "that ">
+		  <COND
+		 (<EQUAL? .TOD 1>
+		  <TELL
+		     "the sky is lighter. Soon it will be sunrise." CR>)
+		 (<EQUAL? .TOD 2>
+		  <TELL
+"the sun has risen... as much as it ever does in England." CR>)
+		 (<EQUAL? .TOD 3>
+		  <TELL
+		     "the setting sun marks the end of another day. Soon it will be dark." CR>)
+		 (T
+		  <TELL
+		   "the sun has set and the mists have rolled in." CR>)>)>
+	 <SETG GL-LAST-OUT-TOD .TOD>)>)>>
+
+<ROUTINE RT-TIME-OF-DAY ("AUX" (TOD <>))
+	<COND
+		(<EQUAL? <RT-CLOCK-CMP 6 30 0> 1>
+			<SET TOD 0>)
+		(<EQUAL? <RT-CLOCK-CMP 7 0 0> 1>
+			<SET TOD 1>)
+		(<EQUAL? <RT-CLOCK-CMP 19 30 0> 1>
+			<SET TOD 2>)
+		(<EQUAL? <RT-CLOCK-CMP 20 0 0> 1>
+			<SET TOD 3>)
+		(T
+			<SET TOD 0>
+		)
+	>
+	<RETURN .TOD>
+>
+
+;------------------------------------------------------------------------------
+; "RT-SPOKEN-TO-MSG"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-SPOKEN-TO-MSG (WHO)
+   <COND (<OR <NOT <EQUAL? .WHO ,GL-P-QCONTEXT-TH>>
+	      <NOT <EQUAL? ,GL-PLACE-CUR ,GL-P-QCONTEXT-RM>>>
+	  <SETG GL-P-QCONTEXT-TH .WHO>
+	  <SETG GL-P-QCONTEXT-RM <LOC .WHO>>
+	  <RT-THIS-IS-IT .WHO>
+	  <TELL "[spoken to " THE .WHO "]" CR>)>
+   <RTRUE>>
+
+;------------------------------------------------------------------------------
+; "RT-SYNTAX-CHECK"
+; "Perform syntax matching operations, using GL-P-ITBL as the source of"
+; "the verb and adjectives for this input.  Returns false if no"
+; "syntax matches, and does it's own orphaning.  If return is true,"
+; "the syntax is saved in GL-P-SYNTAX"
+;------------------------------------------------------------------------------
+ 
+<ROUTINE RT-GET-PREP (SYN WHICH "AUX" PREP)
+  <COND (<1? .WHICH>
+	 <SET PREP <GETB .SYN ,K-P-SPREP1>>)
+	(T
+	 <SET PREP <GETB .SYN ,K-P-SPREP2>>)>
+  <COND (<0? <SET PREP <ANDB .PREP *77*>>> 0)
+	(T <+ .PREP *300*>)>>
+
+<ROUTINE RT-SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ (DRIVE1 <>) (DRIVE2 <>)
+				PREP VERB TPREP) 
+  <SET VERB <GET ,GL-P-ITBL ,K-P-VERB>>
+  <COND (<ZERO? .VERB>
+	 <RT-NOT-IN-SENTENCE-MSG "any verbs">
+	 <RFALSE>)>
+  <SET SYN <GET ,VERBS <- 255 .VERB>>>
+  <SET LEN <GETB .SYN 0>>
+  <SET SYN <REST .SYN>>
+  <REPEAT ()
+    ;<SET NUM <BAND <GETB .SYN ,K-P-SBITS> ,K-P-SONUMS>>
+    <SET NUM <P-SONUMS .SYN>>
+    <COND (<G? ,GL-P-NCN .NUM>
+	   T)
+	  (<AND	<G=? .NUM 1>
+		<ZERO? ,GL-P-NCN>
+		<OR <ZERO? <SET PREP <GET ,GL-P-ITBL ,K-P-PREP1>>>
+		    <EQUAL? .PREP ;<GETB .SYN ,K-P-SPREP1>
+				  <RT-GET-PREP .SYN 1>>>>
+	   <SET DRIVE1 .SYN>)
+	  (<EQUAL? ;<GETB .SYN ,K-P-SPREP1>
+		   <RT-GET-PREP .SYN 1>
+		   <GET ,GL-P-ITBL ,K-P-PREP1>>
+	   <COND (<AND <EQUAL? .NUM 2>
+		       <EQUAL? ,GL-P-NCN 1>>
+		  <SET DRIVE2 .SYN>)
+		 (<AND <L=? .NUM 1>
+		       <T? <GET ,GL-P-ITBL ,K-P-PREP2>>> T)
+		 (<OR <L=? .NUM 1>
+		      <EQUAL? ;<GETB .SYN ,K-P-SPREP2>
+			  <RT-GET-PREP .SYN 2>
+			  <GET ,GL-P-ITBL ,K-P-PREP2>>>
+		  <RT-SYNTAX-FOUND .SYN>
+		  <RTRUE>)>)>
+    <COND (<DLESS? LEN 1>
+	   <COND (<OR <MC-T? .DRIVE1>
+		      <MC-T? .DRIVE2>>
+		  <RETURN>)
+		 (<AND <==? ,GL-P-NCN 2>
+		       ,GL-FUNNY-CLAUSE?>
+		  <SETG GL-P-NCN 1>
+		  <SETG GL-FUNNY-CLAUSE? <>>
+		  <PUT ,GL-P-ITBL ,K-P-NC1L <GET ,GL-P-ITBL ,K-P-NC2L>>
+		  <RETURN <RT-SYNTAX-CHECK>>)
+		 (T
+		  <TELL ,K-DONT-UNDERSTAND-MSG CR>
+		  <RFALSE>)>)
+	  (T
+	   <COND (<0? .NUM>
+		  <SET SYN <REST .SYN ,K-P-SLEN-0>>)
+		 (<1? .NUM>
+		  <SET SYN <REST .SYN ,K-P-SLEN-1>>)
+		 (T
+		  <SET SYN <REST .SYN ,K-P-SLEN-2>>)>
+	   ;<SET SYN <REST .SYN ,K-P-SYNLEN>>)>>
+  <COND (<AND <MC-T? .DRIVE1>
+	      <SET OBJ <RT-GET-WHAT-I-MEAN <GETB .DRIVE1 ,K-P-SFWIM1>
+					   <GETB .DRIVE1 ,K-P-SLOC1>
+					   <RT-GET-PREP .DRIVE1 1>
+					   ;<GETB .DRIVE1 ,K-P-SPREP1>>>>
+	 <PUT ,GL-P-PRSO ,K-P-MATCHLEN 1>
+	 <PUT ,GL-P-PRSO 1 .OBJ>
+	 <RT-SYNTAX-FOUND .DRIVE1>
+	 <RTRUE>)
+	(<AND <MC-T? .DRIVE2>
+	      <SET OBJ <RT-GET-WHAT-I-MEAN <GETB .DRIVE2 ,K-P-SFWIM2>
+					   <GETB .DRIVE2 ,K-P-SLOC2>
+					   <RT-GET-PREP .DRIVE2 2>
+					   ;<GETB .DRIVE2 ,K-P-SPREP2>>>>
+	 <PUT ,GL-P-PRSI ,K-P-MATCHLEN 1>
+	 <PUT ,GL-P-PRSI 1 .OBJ>
+	 <RT-SYNTAX-FOUND .DRIVE2>
+	 <RTRUE>)
+	(<EQUAL? .VERB ,ACT?FIND ; ,ACT?WHAT>
+	 <TELL ,K-DO-IT-YOURSELF-MSG CR>
+	 <RFALSE>)
+	(T
+	 <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+		<RT-ORPHAN .DRIVE1 .DRIVE2>
+		<TELL "[Wh">)
+	       (T
+		<TELL "[Your command was not complete. Type wh">)>
+	 <COND (<EQUAL? .VERB ,ACT?WALK ,ACT?GO>
+		<TELL "ere">)
+	       (<OR <AND <MC-T? .DRIVE1>
+			 <EQUAL? <GETB .DRIVE1 ,K-P-SFWIM1> ,FL-PERSON>>
+		    <AND <MC-T? .DRIVE2>
+			 <EQUAL? <GETB .DRIVE2 ,K-P-SFWIM2> ,FL-PERSON>>>
+		<TELL "om">)
+	       (T
+		<TELL "at">)>
+	 <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+		<TELL " do you want to ">)
+	       (T
+		<TELL " you want " THE ,GL-WINNER " to ">)>
+	 <RT-VERB-PRINT>
+	 <COND (<MC-T? .DRIVE2>
+		<RT-CLAUSE-PRINT ,K-P-NC1 ,K-P-NC1L>)>
+	 <SETG GL-P-END-ON-PREP <>>
+	 <RT-PREP-PRINT <COND (<MC-T? .DRIVE1>
+			       <RT-GET-PREP .DRIVE1 1>
+			       ;<GETB .DRIVE1 ,K-P-SPREP1>)
+			      (T
+			       <RT-GET-PREP .DRIVE2 2>
+			       ;<GETB .DRIVE2 ,K-P-SPREP2>)>>
+	 <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+		<SETG GL-P-ORPH T>
+		<TELL "?]" CR>)
+	       (T
+		<SETG GL-P-ORPH <>>
+		<TELL ".]" CR>)>
+	 <RFALSE>)>>
+
+;------------------------------------------------------------------------------
+; "RT-CLAUSE"
+; "scan through a noun phrase, leaving a pointer to its starting location"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-CLAUSE (PTR VAL WRD
+		    "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0) TPTR
+			  TMP)
+  <SET OFF <* <- ,GL-P-NCN 1> 2>>
+  <COND (<MC-T? .VAL>
+         <PUT ,GL-P-ITBL <SET NUM <+ ,K-P-PREP1 .OFF>> .VAL>
+         <PUT ,GL-P-ITBL <+ .NUM 1> .WRD>
+         <SET PTR <+ .PTR ,K-P-LEXELEN>>)
+	(T
+         <SETG GL-P-LEN <+ ,GL-P-LEN 1>>)>
+  <COND (<ZERO? ,GL-P-LEN>
+         <SETG GL-P-NCN <- ,GL-P-NCN 1>>
+         <RETURN -1>)>
+  <PUT ,GL-P-ITBL <SET NUM <+ ,K-P-NC1 .OFF>> <REST ,GL-P-P-LEX <* .PTR 2>>>
+  <COND (<EQUAL? <GET ,GL-P-P-LEX .PTR> ,W?THE ,W?A ,W?AN>
+         <PUT ,GL-P-ITBL .NUM <REST <GET ,GL-P-ITBL .NUM> 4>>)>
+  <REPEAT ()
+    <COND (<L? <SETG GL-P-LEN <- ,GL-P-LEN 1>> 0>
+	   <PUT ,GL-P-ITBL <+ .NUM 1> <REST ,GL-P-P-LEX <* .PTR 2>>>
+	   <RETURN -1>)>
+    <COND ;(<RT-BUZZ-WORD-MSG? <SET WRD <GET ,GL-P-P-LEX .PTR>>>
+            <RFALSE>)
+	  (<OR <MC-T? <SET WRD <GET ,GL-P-P-LEX .PTR>>>
+               <SET WRD <RT-NUMBER? .PTR>>
+               ;<SET WRD <NAME? .PTR>>>
+	   <COND (<ZERO? ,GL-P-LEN>
+		  <SET NW 0>)
+		 (T
+		  <COND (<F? <SET NW <GET ,GL-P-P-LEX
+					  <SET TPTR <+ .PTR ,K-P-LEXELEN>>>>>
+			 <COND (<N==? .WRD ,W?INTNUM>
+				<SET NW <RT-NUMBER? .TPTR>>
+				<PUT ,GL-P-P-LEX .TPTR .NW>)>)>)>
+	   ;<COND (<AND <EQUAL? .WRD ,W?OF>
+			<EQUAL? <GET ,GL-P-ITBL ,K-P-VERB>
+				,ACT?MAKE ,ACT?TAKE>>
+		   <RT-CHANGE-LEXV .PTR ,W?WITH>
+		   <SET WRD ,W?WITH>)>
+	   <COND (<AND <EQUAL? .WRD ,W?PERIOD>
+		       <OR <EQUAL? .LW ,W?MR ,W?MRS ,W?MISS>
+			   <EQUAL? .LW ,W?DR>>>
+		  <SET LW 0>)
+		 (<EQUAL? .WRD ,W?AND ,W?COMMA>
+		  <SET ANDFLG T>)
+		 (<EQUAL? .WRD ,W?ALL ,W?BOTH ,W?EVERYTHING>
+		  <COND (<EQUAL? .NW ,W?OF>
+			 <SETG GL-P-LEN <- ,GL-P-LEN 1>>
+			 <SET PTR <+ .PTR ,K-P-LEXELEN>>)>)
+		 (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+		      <AND <WT? .WRD ,PS?PREPOSITION>
+			   <GET ,GL-P-ITBL ,K-P-VERB>
+			   <NOT .FIRST??>>>
+		  <SETG GL-P-LEN <+ ,GL-P-LEN 1>>
+		  <PUT ,GL-P-ITBL <+ .NUM 1>
+		       <REST ,GL-P-P-LEX <* .PTR 2>>>
+		  <RETURN <- .PTR ,K-P-LEXELEN>>)
+		 (<AND <MC-T? .ANDFLG>
+		       <OR <ZERO? <GET ,GL-P-ITBL ,K-P-VERBN>>
+			   <RT-VERB-DIR-ONLY? .WRD>>>
+		  <SET PTR <- .PTR 4>>
+		  <RT-CHANGE-LEXV <+ .PTR 2> ,W?THEN>
+		  <SETG GL-P-LEN <+ ,GL-P-LEN 2>>)
+		 (<WT? .WRD ,PS?OBJECT>
+		  <COND (<AND <G? ,GL-P-LEN 0>
+			      <EQUAL? .NW ,W?OF>
+			      <NOT <EQUAL? .WRD ,W?ALL ,W?EVERYTHING>>>
+			 <PUT ,GL-P-OFW <- ,GL-P-NCN 1> .WRD>)
+			(<AND <WT? .WRD ,PS?ADJECTIVE>
+			      <MC-T? .NW>
+			      <WT? .NW ,PS?OBJECT>>
+			 <COND (<AND <EQUAL? .WRD ,W?INTNUM>
+				     <EQUAL? .NW ,W?HOUR ,W?HOURS
+						  ,W?MINUTE ,W?MINUTES>>
+				T)
+			       (<==? .NW ,W?TOMB> T)
+			       (T
+				<COND (<==? .WRD ,W?BOX>
+				       <COND (<N==? .NW ,W?INTNUM>
+					      <SET TMP T>)>)
+				      (<==? .WRD ,W?TOMB>
+				       <SET TMP T>)>
+				<COND
+				 (.TMP
+				  <SETG GL-FUNNY-CLAUSE? T>
+				  <ZPUT ,GL-P-ITBL <SET NUM <+ .NUM 1>>
+					<ZREST ,GL-P-P-LEX
+					       <* <+ .PTR 2> 2>>>
+				  <RETURN .PTR>)>)>
+			 T)
+			(<AND <ZERO? .ANDFLG>
+			      <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <PUT ,GL-P-ITBL <+ .NUM 1>
+			      <REST ,GL-P-P-LEX <* <+ .PTR 2> 2>>>
+			 <RETURN .PTR>)
+			(T
+			 <SET ANDFLG <>>)>)
+		 (<AND <OR <MC-T? ,GL-P-MERGED>
+			   <MC-T? ,GL-P-ORPH>
+			   <MC-T? <GET ,GL-P-ITBL ,K-P-VERB>>>
+		       <WT? .WRD ,PS?ADJECTIVE <> ,PS?BUZZ-WORD>>)
+		 (<AND <MC-T? .ANDFLG>
+		       <ZERO? <GET ,GL-P-ITBL ,K-P-VERB>>>
+		  <SET PTR <- .PTR 4>>
+		  <RT-CHANGE-LEXV <+ .PTR 2> ,W?THEN>
+		  <SETG GL-P-LEN <+ ,GL-P-LEN 2>>)
+		 (<WT? .WRD ,PS?PREPOSITION>
+		  T)
+		 (T
+		  <RT-DONT-KNOW-WORD-USE-MSG .PTR>
+		  <RFALSE>)>)
+	  (T
+	   <RT-DONT-KNOW-WORD-MSG .PTR>
+	   <RFALSE>)>
+    <SET LW .WRD>
+    <SET FIRST?? <>>
+    <SET PTR <+ .PTR ,K-P-LEXELEN>>>>
+
+;------------------------------------------------------------------------------
+; "RT-GET-WHAT-I-MEAN"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-GET-WHAT-I-MEAN (GBIT LBIT PREP "OPT" (NO-ROOMS? <>)
+			     (SILENT? <>) "AUX" OBJ)
+  <COND (<EQUAL? .GBIT ,FL-LOCATION>
+	 <RETURN ,ROOMS>)
+	(<AND <MC-T? ,GL-P-IT-OBJECT>
+	      <MC-IS? ,GL-P-IT-OBJECT .GBIT>>
+	 <COND (<F? .SILENT?> <TELL "[" THE ,GL-P-IT-OBJECT "]" CR>)>
+	 <RETURN ,GL-P-IT-OBJECT>)>
+  <SETG INHIBIT-ROOMS .NO-ROOMS?>
+  <SETG GL-P-GWIMBIT .GBIT>
+  <SETG GL-P-SLOCBITS .LBIT>
+  <PUT ,GL-P-MERGE ,K-P-MATCHLEN 0>
+  <COND (<RT-GET-OBJECT ,GL-P-MERGE <>>
+	 <SETG GL-P-GWIMBIT 0>
+	 <COND (<EQUAL? <GET ,GL-P-MERGE ,K-P-MATCHLEN> 1>
+		<SET OBJ <GET ,GL-P-MERGE 1>>
+		<COND (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+			    <NOT <EQUAL? .OBJ ,TH-HANDS>>
+			    <F? .SILENT?>>
+		       <TELL "[">
+		       <COND (<RT-PREP-PRINT .PREP <>>
+			      <MC-SPACE>)>
+		       <TELL THE .OBJ>
+		       <TELL "]" CR>)>
+		<SETG INHIBIT-ROOMS <>>
+		<RETURN .OBJ>)>)
+	(T
+	 <SETG GL-P-GWIMBIT 0>
+	 <SETG INHIBIT-ROOMS <>>
+	 <RFALSE>)>>
+
+;*****************************************************************************
+; "routines with no screen output"
+;*****************************************************************************
+
+;-----------------------------------------------------------------------------
+; "RT-P-CLEAR"
+;-----------------------------------------------------------------------------
+
+<ROUTINE RT-P-CLEAR ()
+	 <SETG GL-P-CONT <>>
+	 <SETG GL-P-QUOT <>>
+	 <RTRUE>
+>
+
+;------------------------------------------------------------------------------
+; "RT-PICK-NEXT"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-PICK-NEXT (TBL "AUX" CNT STR NT)
+	<SET CNT <GETB .TBL 0>>
+	<SET NT <ZGET <REST .TBL 1> 0>>
+	<SET STR <ZGET .NT .CNT>>       
+	<COND (<G? <SET CNT <+ .CNT 1>> <GET .NT 0>>
+	       <SET CNT 1>)>
+	<PUTB .TBL 0 .CNT>
+	<RETURN .STR>>
+
+<ROUTINE RT-QCONTEXT-GOOD? ()
+	<COND (<AND <F? ,GL-WHERE-TO-ORPH?>
+		    <MC-T? ,GL-P-QCONTEXT-TH>
+		    <MC-IS? ,GL-P-QCONTEXT-TH ,FL-PERSON>
+		    <EQUAL? ,GL-PLACE-CUR ,GL-P-QCONTEXT-RM>
+		    <RT-VISIBLE? ,GL-P-QCONTEXT-TH>>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-FIND-PERSON (THING "AUX" OBJ OBJ1 (WHO-P <>) (WHO-A <>))
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<ZERO? .OBJ>
+		       <RETURN>)
+		      (<MC-IS? .OBJ ,FL-PERSON>
+		       <COND (<AND <MC-ISNOT? .OBJ ,FL-PLURAL>
+				   <NOT <EQUAL? .OBJ ,CH-PLAYER ,GL-WINNER>>>
+			      <COND (<MC-IS? .OBJ ,FL-ASLEEP>) ;"RFP"
+				    (<EQUAL? .OBJ ,GL-PUPPY>
+				     <SET WHO-P .OBJ>)
+				    (T
+				     <RETURN>)>)>)
+		      (<OR <MC-IS? .OBJ ,FL-SURFACE>
+			   <AND <MC-IS? .OBJ ,FL-CONTAINER>
+				<MC-IS? .OBJ ,FL-OPENED>>>
+		       <SET OBJ1 .OBJ>
+		       <COND (<SET OBJ <RT-FIND-PERSON .OBJ>>
+			      <COND (<MC-IS? .OBJ ,FL-ASLEEP>) ;"RFP"
+				    (<EQUAL? .OBJ ,GL-PUPPY>
+				     <SET WHO-P .OBJ>)
+				    (T
+				     <RETURN>)>)>
+		       <SET OBJ .OBJ1>)>
+		<SET OBJ <NEXT? .OBJ>>>
+	<COND (<MC-T? .OBJ>
+	       <RETURN .OBJ>)
+	      (<MC-T? .WHO-P>
+	       <RETURN .WHO-P>)
+	      ;(<MC-T? .WHO-A>   ;"RFP"
+	       <RETURN .WHO-A>)>
+	<RFALSE>>
+
+<ROUTINE RT-ANYONE-HERE? ()
+	<COND (<RT-QCONTEXT-GOOD?>
+	       <RETURN ,GL-P-QCONTEXT-TH>)
+	      (T
+	       <RETURN <RT-FIND-PERSON ,GL-PLACE-CUR>>)>>
+
+<ROUTINE RT-MOVE-ALL (FROM TO "AUX" OBJ NXT)
+	<SET OBJ <FIRST? .FROM>>
+	<REPEAT ()
+		<COND (<ZERO? .OBJ>
+		       <RTRUE>)>
+		<SET NXT <NEXT? .OBJ>>
+		<MOVE .OBJ .TO>
+		<SET OBJ .NXT>>
+	<RTRUE>>
+
+<ROUTINE RT-GOT? (OBJ)
+	<COND (<ZERO? .OBJ>
+	       <RFALSE>)
+	      (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+		    <IN? .OBJ ,TH-POCKET>>
+	       <RTRUE>)
+	      (<RT-HELD? .OBJ>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-HELD? (OBJ "AUX" L)
+	<COND (<ZERO? .OBJ>
+	       <RFALSE>)
+	      (<AND <NOT <MC-IS? .OBJ ,FL-TAKEABLE>>
+		    <NOT <MC-IS? .OBJ ,FL-TRYTAKE>>>
+	       <RFALSE>)>
+	<SET L <LOC .OBJ>>
+	<COND (<EQUAL? .L <> ,ROOMS ,GLOBAL-OBJECTS>
+	       <RFALSE>)
+	      (<EQUAL? .L ,GL-WINNER>
+	       <RTRUE>)
+	      (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+		    <EQUAL? .L ,TH-POCKET>>
+	       <RFALSE>)
+	      (T
+	       <RT-HELD? .L>)>>
+
+<ROUTINE RT-THIS-IS-IT (OBJ)
+   <COND (<OR <EQUAL? .OBJ <> ,CH-PLAYER ,TH-NOT-HERE-OBJECT>
+	      <EQUAL? .OBJ ,TH-INTDIR ,TH-INTNUM>
+	      <EQUAL? .OBJ ,TH-LEFT ,TH-RIGHT>>
+	  <RTRUE>)
+	 (<AND <MC-VERB? WALK WALK-TO>
+	       <EQUAL? .OBJ ,GL-PRSO>>
+	  <RTRUE>)
+	 (<AND <MC-IS? .OBJ ,FL-PERSON>
+	       <MC-IS? .OBJ ,FL-FEMALE>>
+	  <SETG GL-P-HER-OBJECT .OBJ>
+	  <RTRUE>)
+	 (<AND <MC-IS? .OBJ ,FL-PERSON>
+	       <MC-ISNOT? .OBJ ,FL-FEMALE>>
+	  <SETG GL-P-HIM-OBJECT .OBJ>
+	  <RTRUE>)
+	 (<MC-IS? .OBJ ,FL-COLLECTIVE>
+	  <SETG GL-P-THEM-OBJECT .OBJ>
+	  <SETG GL-P-IT-OBJECT .OBJ>
+	  <RTRUE>)
+	 (<MC-IS? .OBJ ,FL-PLURAL>
+	  <SETG GL-P-THEM-OBJECT .OBJ>
+	  <RTRUE>)
+	 (T
+	  <COND (<FSET? .OBJ ,FL-NEEDS-IDENTITY>
+		 <PUTP ,TH-IT ,P?OBJ-NOUN <GETP .OBJ ,P?OBJ-NOUN>>
+		 <PUTP ,TH-IT ,P?OBJ-ADJ <GETP .OBJ ,P?OBJ-ADJ>>)
+		(T
+		 <PUTP ,TH-IT ,P?OBJ-NOUN 0>
+		 <PUTP ,TH-IT ,P?OBJ-ADJ 0>)>
+	  <SETG GL-P-IT-OBJECT .OBJ>
+	  <RTRUE>)>>
+
+<ROUTINE RT-CHANGE-LEXV (PTR WRD "OPTIONAL" (PTRS? <>) "AUX" X Y Z)
+   <COND (<MC-T? .PTRS?>
+	  <SET X <+ 2 <* 2 <- .PTR ,K-P-LEXELEN>>>>
+	  <SET Y <GETB ,GL-P-P-LEX .X>>
+	  <SET Z <+ 2 <* 2 .PTR>>>
+	  <PUTB ,GL-P-P-LEX .Z .Y>
+	  <PUTB ,GL-P-S-LEX .Z .Y>
+	  <SET Y <GETB ,GL-P-P-LEX <+ 1 .X>>>
+	  <SET Z <+ 3 <* 2 .PTR>>>
+	  <PUTB ,GL-P-P-LEX .Z .Y>
+	  <PUTB ,GL-P-S-LEX .Z .Y>)>
+   <PUT ,GL-P-P-LEX .PTR .WRD>
+   <PUT ,GL-P-S-LEX .PTR .WRD>
+   <RTRUE>>
+
+;------------------------------------------------------------------------------
+; "RT-WT?"
+;  "Check whether word pointed at by PTR is the correct part of speech."
+;  "The second argument is the part of speech (,PS?<part of speech>).  The"
+;  "3rd argument (,P1?<part of speech>), if given, causes the value"
+;  "for that part of speech to be returned."
+;------------------------------------------------------------------------------
+
+; "This is only called through the WT? macro, when it doesn't generate
+   a BTST directly..."
+
+<ROUTINE RT-WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFS ,K-P-P1OFF) TYP
+		 TBL)
+   <COND (<BTST <SET TYP <GETB .PTR ,K-P-PSOFF>> .BIT>
+	  <COND (<G? .B1 4>
+		 <RTRUE>)
+		(<==? .BIT ,PS?PREPOSITION>
+		 ; "We have to get the preposition ID out of PREPOSITIONS
+		    rather than the word"
+		 <COND (<SET TBL <INTBL? .PTR <ZREST ,PREPOSITIONS 2>
+					 <ZGET ,PREPOSITIONS 0> *203*>>
+			<GETB .TBL 2>)>)
+		(T
+		 <SET TYP <BAND .TYP ,K-P-P1BITS>>
+		 ; "Following no longer applies, since there's only
+		    one byte defined for all this"
+		 ;<COND (<NOT <EQUAL? .TYP .B1>>
+			<SET OFFS <+ .OFFS 1>>)>
+		 <GETB .PTR .OFFS>)>)>>
+
+;------------------------------------------------------------------------------
+; "RT-VERB-DIR-ONLY?"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-VERB-DIR-ONLY? (WRD)
+   <COND
+      (<NOT <OR <WT? .WRD ,PS?OBJECT <> ,PS?ADJECTIVE>
+		<NOT <WT? .WRD ,PS?DIRECTION <> ,PS?VERB>>>>
+       <RTRUE>)
+      (T
+         <RFALSE>
+      )
+   >
+>
+
+;------------------------------------------------------------------------------
+; "RT-STUFF"
+; "for AGAIN purposes, put contents of one LEXV table into another"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-STUFF (DEST SRC "OPTIONAL" (MAX 29))
+   <COPYT .SRC .DEST <+ ,K-P-LEXSTART <* .MAX ,K-P-WORDLEN ;,K-P-LEXELEN>>>>
+
+;------------------------------------------------------------------------------
+; "RT-INBUF-ADD"
+; "put the word in the positions specified from GL-P-PIBUF to the end of"
+; "GL-OOPS-INBUF, leaving the appropriate pointers in GL-P-S-LEX"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-INBUF-ADD (LEN BEG SLOT "AUX" DBEG (CTR 0) TMP)
+   <SET TMP <GET ,GL-OOPS-TABLE ,K-O-END>>
+   <COND
+      (<MC-T? .TMP>
+         <SET DBEG .TMP>
+      )
+      (T
+         <SET DBEG <+ <GETB ,GL-P-S-LEX
+            <SET TMP <GET ,GL-OOPS-TABLE ,K-O-LENGTH>>>
+			     <GETB ,GL-P-S-LEX <+ .TMP 1>>>>
+      )
+   >
+
+   <PUT ,GL-OOPS-TABLE ,K-O-END <+ .DBEG .LEN>>
+
+   <COPYT <ZREST ,GL-P-PIBUF .BEG> <ZREST ,GL-OOPS-INBUF .DBEG> .LEN>
+   ;<REPEAT ()
+      <PUTB ,GL-OOPS-INBUF <+ .DBEG .CTR>
+	    <GETB ,GL-P-PIBUF <+ .BEG .CTR>>>
+      <INC CTR>
+      <COND (<EQUAL? .CTR .LEN>
+	     <RETURN>)>>
+   <PUTB ,GL-P-S-LEX .SLOT .DBEG>
+   <PUTB ,GL-P-S-LEX <- .SLOT 1> .LEN>
+   <RTRUE>
+>
+
+;------------------------------------------------------------------------------
+; "RT-ACLAUSE-WIN"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-ACLAUSE-WIN (ADJ "AUX" X) 
+   <PUT ,GL-P-ITBL ,K-P-VERB <GET ,GL-P-OTBL ,K-P-VERB>>
+   <SET X <+ ,GL-P-ACLAUSE 1>>
+   <RT-CLAUSE-COPY ,GL-P-OTBL ,GL-P-OTBL ,GL-P-ACLAUSE .X
+      ,GL-P-ACLAUSE .X .ADJ
+	>
+   <AND <MC-T? <GET ,GL-P-OTBL ,K-P-NC2>> <SETG GL-P-NCN 2>>
+   <SETG GL-P-ACLAUSE <>>
+   <RTRUE>
+>
+
+;------------------------------------------------------------------------------
+; "RT-NCLAUSE-WIN"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-NCLAUSE-WIN ()
+   <RT-CLAUSE-COPY ,GL-P-ITBL ,GL-P-OTBL ,K-P-NC1 ,K-P-NC1L
+      ,GL-P-ACLAUSE <+ ,GL-P-ACLAUSE 1>
+	>
+   <AND <MC-T? <GET ,GL-P-OTBL ,K-P-NC2>> <SETG GL-P-NCN 2>>
+	<SETG GL-P-ACLAUSE <>>
+	<RTRUE>
+>
+
+;-----------------------------------------------------------------------------
+; "RT-ORPHAN-VERB"
+;-----------------------------------------------------------------------------
+
+<ROUTINE RT-ORPHAN-VERB (VERB PREVERB)
+	<PUT ,GL-P-VTBL	0				.VERB>
+
+	<PUT ,GL-P-OTBL	,K-P-VERB	.PREVERB>
+	<PUT ,GL-P-OTBL	,K-P-VERBN	,GL-P-VTBL>
+	<PUT ,GL-P-OTBL	,K-P-PREP1	0>
+	<PUT ,GL-P-OTBL	,K-P-PREP1N	0>
+	<PUT ,GL-P-OTBL	,K-P-PREP2	0>
+	<PUT ,GL-P-OTBL	5 				0>
+	<PUT ,GL-P-OTBL	,K-P-NC1		1>
+	<PUT ,GL-P-OTBL	,K-P-NC1L	0>
+	<PUT ,GL-P-OTBL	,K-P-NC2		0>
+	<PUT ,GL-P-OTBL	,K-P-NC2L	0>
+
+	<SETG GL-P-ORPH	T>
+>
+
+;------------------------------------------------------------------------------
+; "RT-ORPHAN"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-ORPHAN (D1 D2 "AUX" (CNT -1)) 
+	<COND (<ZERO? ,GL-P-MERGED>
+	       <PUT ,GL-P-OCLAUSE ,K-P-MATCHLEN 0>)>
+	<PUT ,GL-P-OVTBL 0 <GET ,GL-P-VTBL 0>>
+	<PUTB ,GL-P-OVTBL 2 <GETB ,GL-P-VTBL 2>>
+	<PUTB ,GL-P-OVTBL 3 <GETB ,GL-P-VTBL 3>>
+	<COPYT ,GL-P-ITBL ,GL-P-OTBL <* 2 <+ ,K-P-ITBLLEN 1>>>
+	;<REPEAT ()
+	  <COND (<IGRTR? CNT ,K-P-ITBLLEN>
+		 <RETURN>)
+		(T
+		 <PUT ,GL-P-OTBL .CNT <GET ,GL-P-ITBL .CNT>>)>>
+	<COND (<EQUAL? ,GL-P-NCN 2>
+	       <RT-CLAUSE-COPY ,GL-P-ITBL ,GL-P-OTBL ,K-P-NC2
+			       ,K-P-NC2L ,K-P-NC2 ,K-P-NC2L>)>
+	<COND (<NOT <L? ,GL-P-NCN 1>>
+	       <RT-CLAUSE-COPY ,GL-P-ITBL ,GL-P-OTBL
+			       ,K-P-NC1 ,K-P-NC1L ,K-P-NC1 ,K-P-NC1L>)>
+	<COND (<MC-T? .D1>
+	       <PUT ,GL-P-OTBL ,K-P-PREP1 <RT-GET-PREP .D1 1>>
+	       <PUT ,GL-P-OTBL ,K-P-NC1 1>)
+	      (<MC-T? .D2>
+	       <PUT ,GL-P-OTBL ,K-P-PREP2 <RT-GET-PREP .D2 2>>
+	       <PUT ,GL-P-OTBL ,K-P-NC2 1>)>> 
+
+;------------------------------------------------------------------------------
+; "RT-ORPHAN-MERGE"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+  <SETG GL-P-ORPH <>>
+  <COND (<OR <F? <SET WRD <GET ,GL-P-ITBL ,K-P-VERBN>>>
+	     <F? <SET WRD <GET .WRD 0>>>>
+	 T) 
+	(<OR <EQUAL? <WT? <SET WRD <GET <GET ,GL-P-ITBL ,K-P-VERBN> 0>>
+			  ,PS?VERB ,P1?VERB>
+		     <GET ,GL-P-OTBL ,K-P-VERB>>
+	     <WT? .WRD ,PS?ADJECTIVE>>
+	 <SET ADJ T>)
+	(<WT? <SET WRD <GET <GET ,GL-P-ITBL ,K-P-VERBN> 0>>
+	      ,PS?ADJECTIVE>
+	 <SET ADJ T>)
+	(<AND <WT? .WRD ,PS?OBJECT>
+	      <ZERO? ,GL-P-NCN>
+	      <MC-T? <SET VERB <GET ,GL-P-ITBL ,K-P-VERB>>>
+	      ; "ADDED 8/24/87 PER SWG">
+	 <PUT ,GL-P-ITBL ,K-P-VERB 0>
+	 <PUT ,GL-P-ITBL ,K-P-VERBN 0>
+	 <PUT ,GL-P-ITBL ,K-P-NC1 <REST ,GL-P-P-LEX 2>>
+	 <PUT ,GL-P-ITBL ,K-P-NC1L <REST ,GL-P-P-LEX 6>>
+	 <SETG GL-P-NCN 1>)>
+  <COND (<AND <MC-T? <SET VERB <GET ,GL-P-ITBL ,K-P-VERB>>>
+	      <ZERO? .ADJ>
+	      <NOT <EQUAL? .VERB <GET ,GL-P-OTBL ,K-P-VERB>>>>
+	 <RFALSE>)
+	(<EQUAL? ,GL-P-NCN 2>
+	 <COND (<T? ,GL-FUNNY-CLAUSE?>
+		<SETG GL-P-NCN 1>
+		<SETG GL-FUNNY-CLAUSE? <>>
+		<PUT ,GL-P-ITBL ,K-P-NC1L <GET ,GL-P-ITBL ,K-P-NC2L>>
+		<RETURN <RT-ORPHAN-MERGE>>)>
+	 <RFALSE>)
+	(<EQUAL? <GET ,GL-P-OTBL ,K-P-NC1> 1>
+	 <COND (<OR <EQUAL? <SET TEMP <GET ,GL-P-ITBL ,K-P-PREP1>>
+			    <GET ,GL-P-OTBL ,K-P-PREP1>>
+		    <ZERO? .TEMP>>
+		<COND (<MC-T? .ADJ>
+		       <PUT ,GL-P-OTBL ,K-P-NC1 <REST ,GL-P-P-LEX 2>>
+		       <COND (<ZERO? <GET ,GL-P-ITBL ,K-P-NC1L>>
+			      <PUT ,GL-P-ITBL ,K-P-NC1L <REST ,GL-P-P-LEX 6>>)>
+		       <COND (<ZERO? ,GL-P-NCN>
+			      <SETG GL-P-NCN 1>)>)
+		      (T
+		       <PUT ,GL-P-OTBL ,K-P-NC1 <GET ,GL-P-ITBL ,K-P-NC1>>
+		       ;<PUT ,GL-P-OTBL ,K-P-NC1L <GET ,GL-P-ITBL ,K-P-NC1L>>)>
+		<PUT ,GL-P-OTBL ,K-P-NC1L <GET ,GL-P-ITBL ,K-P-NC1L>>)
+	       (T
+		<RFALSE>)>)
+	(<EQUAL? <GET ,GL-P-OTBL ,K-P-NC2> 1>
+	 <COND (<OR <EQUAL? <SET TEMP <GET ,GL-P-ITBL ,K-P-PREP1>>
+			    <GET ,GL-P-OTBL ,K-P-PREP2>>
+		    <ZERO? .TEMP>>
+		<COND (<MC-T? .ADJ>
+		       <PUT ,GL-P-ITBL ,K-P-NC1 <REST ,GL-P-P-LEX 2>>
+		       <COND (<ZERO? <GET ,GL-P-ITBL ,K-P-NC1L>>
+			      <PUT ,GL-P-ITBL ,K-P-NC1L
+				   <REST ,GL-P-P-LEX 6>>)>)>
+		<PUT ,GL-P-OTBL ,K-P-NC2 <GET ,GL-P-ITBL ,K-P-NC1>>
+		<PUT ,GL-P-OTBL ,K-P-NC2L <GET ,GL-P-ITBL ,K-P-NC1L>>
+		<SETG GL-P-NCN 2>)
+	       (T
+		<RFALSE>)>)
+	(<MC-T? ,GL-P-ACLAUSE>
+	 <COND (<AND <NOT <EQUAL? ,GL-P-NCN 1>> <NOT .ADJ>>
+		<SETG GL-P-ACLAUSE <>>
+		<RFALSE>)
+	       (T
+		<SET BEG <GET ,GL-P-ITBL ,K-P-NC1>>
+		<COND (<MC-T? .ADJ>
+		       <SET BEG <REST ,GL-P-P-LEX 2>>
+		       <SET ADJ <>>)>
+		<SET END <GET ,GL-P-ITBL ,K-P-NC1L>>
+		<REPEAT ()
+		 <SET WRD <GET .BEG 0>>
+		 <COND (<EQUAL? .BEG .END>
+			<COND (<MC-T? .ADJ>
+			       <RT-ACLAUSE-WIN .ADJ>
+			       <RETURN>)
+			      (T
+			       <SETG GL-P-ACLAUSE <>>
+			       <RFALSE>)>)
+		       (<AND ;<ZERO? .ADJ>
+			     <OR <AND <BTST <GETB .WRD ,K-P-PSOFF>
+					    ,PS?ADJECTIVE>
+				      <RT-ADJ-CHECK .WRD .ADJ>>
+				 <EQUAL? .WRD ,W?ALL ,W?EVERYTHING>>>
+			<SET ADJ .WRD>)
+		       ;(<EQUAL? .WRD ,W?ONE>
+			 <RT-ACLAUSE-WIN .ADJ>
+			 <RETURN>)
+		       (<BTST <GETB .WRD ,K-P-PSOFF> ,PS?OBJECT>
+			<COND (<EQUAL? .WRD ,GL-P-ANAM>
+			       <RT-ACLAUSE-WIN .ADJ>)
+			      (T
+			       <RT-NCLAUSE-WIN>)>
+			<RETURN>)>
+		 <SET BEG <REST .BEG ,K-P-WORDLEN>>
+		 <COND (<ZERO? .END>
+			<SET END .BEG>
+			<SETG GL-P-NCN 1>
+			<PUT ,GL-P-ITBL ,K-P-NC1 <BACK .BEG 4>>
+			<PUT ,GL-P-ITBL ,K-P-NC1L .BEG>)>>)>)>
+  <PUT ,GL-P-VTBL 0 <GET ,GL-P-OVTBL 0>>
+  <PUTB ,GL-P-VTBL 2 <GETB ,GL-P-OVTBL 2>>
+  <PUTB ,GL-P-VTBL 3 <GETB ,GL-P-OVTBL 3>>
+  <PUT ,GL-P-OTBL ,K-P-VERBN ,GL-P-VTBL>
+  <PUTB ,GL-P-VTBL 2 0>
+  ;<AND <NOT <EQUAL? <GET ,GL-P-OTBL ,K-P-NC2> 0>> <SETG GL-P-NCN 2>>
+  <COPYT ,GL-P-OTBL ,GL-P-ITBL <* 2 <+ ,K-P-ITBLLEN 1>>>
+  <SETG GL-P-MERGED T>
+  <RTRUE>>
+
+
+
+;-----------------------------------------------------------------------------
+; "RT-ADJ-CHECK    Per SWG 8/27/87"
+;-----------------------------------------------------------------------------
+
+<ROUTINE RT-ADJ-CHECK (WRD ADJ)
+	<COND
+		(<EQUAL? .WRD ,W?BROWN ,W?BLUE>
+			<RTRUE>
+		)
+		(<ZERO? .ADJ>
+			<RTRUE>
+		)
+	>
+>
+
+;------------------------------------------------------------------------------
+; "RT-CLAUSE-COPY"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-CLAUSE-COPY (SRC DEST SRCBEG SRCEND DESTBEG DESTEND
+									"OPTIONAL" (INSRT <>) "AUX" BEG END)
+
+	<SET BEG <GET .SRC .SRCBEG>>
+	<SET END <GET .SRC .SRCEND>>
+	<PUT .DEST .DESTBEG <REST ,GL-P-OCLAUSE
+		<+ <* <GET ,GL-P-OCLAUSE ,K-P-MATCHLEN> ,K-P-LEXELEN> 2>>>
+
+	<REPEAT ()
+		<COND
+			(<EQUAL? .BEG .END>
+				<PUT .DEST .DESTEND <REST ,GL-P-OCLAUSE
+					<+ 2 <* <GET ,GL-P-OCLAUSE ,K-P-MATCHLEN> ,K-P-LEXELEN>>>>
+				<RETURN>
+			)
+			(T
+				<COND
+					(<AND	<MC-T? .INSRT>
+							<EQUAL? ,GL-P-ANAM <GET .BEG 0>>
+							>
+								<RT-CLAUSE-ADD .INSRT>
+					)
+				>
+				<RT-CLAUSE-ADD <GET .BEG 0>>
+			)
+		>
+		<SET BEG <REST .BEG ,K-P-WORDLEN>>
+	>
+>
+
+;------------------------------------------------------------------------------
+; "RT-CLAUSE-ADD"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-CLAUSE-ADD (WRD "AUX" PTR) 
+	<SET PTR <+ <GET ,GL-P-OCLAUSE ,K-P-MATCHLEN> 2>>
+	<PUT ,GL-P-OCLAUSE <- .PTR 1> .WRD>
+	<PUT ,GL-P-OCLAUSE .PTR 0>
+	<PUT ,GL-P-OCLAUSE ,K-P-MATCHLEN .PTR>> 
+
+<ROUTINE RT-PREP-FIND (PREP "AUX" (CNT 0) SIZE TBL) 
+	; "Use INTBL? to wander down PREPOSITIONS.  Rest off the table
+	   length (two bytes) and the first word, so we're looking at
+	   the first prep (which is a byte value).  Then look at three-
+	   byte records, and return the word just BEFORE the record that
+	   matches."
+	<COND (<SET TBL <INTBL? .PREP <ZREST ,PREPOSITIONS 4>
+				<ZGET ,PREPOSITIONS 0>
+				*003*>>
+	       <ZGET <BACK .TBL 2> 0>)>
+	;<SET SIZE <* <ZGET ,PREPOSITIONS 0> 2>>
+	;<REPEAT ()
+	  <COND (<IGRTR? CNT .SIZE>
+		 <RFALSE>)
+		(<EQUAL? <GET ,PREPOSITIONS .CNT> .PREP>
+		 <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>
+ 
+;------------------------------------------------------------------------------
+; "RT-SYNTAX-FOUND"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-SYNTAX-FOUND (SYN) 
+	<SETG GL-P-SYNTAX .SYN>
+	<SETG GL-PRSA <GETB .SYN ,K-P-SACTION>>>
+ 
+;------------------------------------------------------------------------------
+; "RT-BUT-MERGE"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL) 
+	<SET LEN <GET .TBL ,K-P-MATCHLEN>>
+	<PUT ,GL-P-MERGE ,K-P-MATCHLEN 0>
+	<REPEAT ()
+		<COND
+			(<DLESS? LEN 0>
+				<RETURN>
+			)
+		>
+		<SET OBJ <GET .TBL .CNT>>
+		<COND
+			(<INTBL? .OBJ <REST ,GL-P-BUTS 2> <GET ,GL-P-BUTS 0>>
+;				<ZMEMQ <SET OBJ <GET .TBL .CNT>> ,GL-P-BUTS>
+				T
+			)
+			(T
+				<PUT ,GL-P-MERGE <+ .MATCHES 1> .OBJ>
+				<SET MATCHES <+ .MATCHES 1>>
+			)
+		>
+		<SET CNT <+ .CNT 1>>
+	>
+	<PUT ,GL-P-MERGE ,K-P-MATCHLEN .MATCHES>
+	<SET NTBL ,GL-P-MERGE>
+	<SETG GL-P-MERGE .TBL>
+	.NTBL
+>
+
+;------------------------------------------------------------------------------
+; "RT-SNARF-OBJECTS"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-SNARF-OBJECTS ("AUX" PTR (NUM <P-SONUMS ,GL-P-SYNTAX>)) 
+	<COND (<AND <G? .NUM 0>
+		    <MC-T? <SET PTR <GET ,GL-P-ITBL ,K-P-NC1>>>>
+	       <SETG GL-P-PHR 0>
+	       <SETG GL-P-SLOCBITS <GETB ,GL-P-SYNTAX ,K-P-SLOC1>>
+	       <OR <RT-SNARF .PTR <GET ,GL-P-ITBL ,K-P-NC1L> ,GL-P-PRSO>
+		   <RFALSE>>
+	       <OR <ZERO? <GET ,GL-P-BUTS ,K-P-MATCHLEN>>
+		   <SETG GL-P-PRSO <RT-BUT-MERGE ,GL-P-PRSO>>>)>
+	<COND (<AND <G? .NUM 1>
+		    <MC-T? <SET PTR <GET ,GL-P-ITBL ,K-P-NC2>>>>
+	       <SETG GL-P-PHR 1>
+	       <SETG GL-P-SLOCBITS <GETB ,GL-P-SYNTAX ,K-P-SLOC2>>
+	       <OR <RT-SNARF .PTR <GET ,GL-P-ITBL ,K-P-NC2L> ,GL-P-PRSI>
+		   <RFALSE>>
+	       <COND (<MC-T? <GET ,GL-P-BUTS ,K-P-MATCHLEN>>
+		      <COND (<EQUAL? <GET ,GL-P-PRSI ,K-P-MATCHLEN> 1>
+			     <SETG GL-P-PRSO <RT-BUT-MERGE ,GL-P-PRSO>>)
+			    (T
+			     <SETG GL-P-PRSI <RT-BUT-MERGE ,GL-P-PRSI>>)>)>)>
+	<RTRUE>>
+
+<ROUTINE RT-SNARF (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW (WAS-ALL? <>)
+							ONEOBJ)
+	 <SETG GL-P-AND <>>
+	 <COND (<EQUAL? ,GL-P-GET-FLAGS ,K-P-ALL>
+		<SET WAS-ALL? T>)>
+	 <SETG GL-P-GET-FLAGS 0>
+	 <PUT ,GL-P-BUTS ,K-P-MATCHLEN 0>
+	 <PUT .TBL ,K-P-MATCHLEN 0>
+	 <SET WRD <GET .PTR 0>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .PTR .EPTR>
+			<SET WV <RT-GET-OBJECT <OR .BUT .TBL>>>
+			<COND (<MC-T? .WAS-ALL?>
+			       <SETG GL-P-GET-FLAGS ,K-P-ALL>)>
+			<RETURN .WV>)
+		       (T
+			<COND (<==? .EPTR <REST .PTR ,K-P-WORDLEN>>
+			       <SET NW 0>)
+			      (T
+			       <SET NW <GET .PTR ,K-P-LEXELEN>>)>
+			<COND (<EQUAL? .WRD ,W?ALL ,W?BOTH ,W?EVERYTHING>
+			       <SETG GL-P-GET-FLAGS ,K-P-ALL>
+			       <COND (<EQUAL? .NW ,W?OF>
+				      <SET PTR <REST .PTR ,K-P-WORDLEN>>)>)
+			      (<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
+			       <OR <RT-GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			       <SET BUT ,GL-P-BUTS>
+			       <PUT .BUT ,K-P-MATCHLEN 0>)
+			      ;(<RT-BUZZ-WORD-MSG? .WRD>
+				<RFALSE>)
+			      (<EQUAL? .WRD ,W?A ; ,W?ONE>
+			       <COND (<ZERO? ,GL-P-ADJ>
+				      <SETG GL-P-GET-FLAGS ,K-P-ONE>
+				      <COND (<EQUAL? .NW ,W?OF>
+					     <SET PTR <REST .PTR ,K-P-WORDLEN>>)>)
+				     (T
+				      <SETG GL-P-NAM .ONEOBJ>
+				      <OR <RT-GET-OBJECT <OR .BUT .TBL>>
+					  <RFALSE>>
+				      <AND <ZERO? .NW> <RTRUE>>)>)
+			      (<AND <EQUAL? .WRD ,W?AND ,W?COMMA>
+				    <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			       <SETG GL-P-AND T>
+			       <OR <RT-GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			       T)
+			      (<WT? .WRD ,PS?BUZZ-WORD>)
+			      (<EQUAL? .WRD ,W?AND ,W?COMMA>)
+			      (<EQUAL? .WRD ,W?OF>
+			       <COND (<ZERO? ,GL-P-GET-FLAGS>
+				      <SETG GL-P-GET-FLAGS ,K-P-INHIBIT>)>)
+			      (<AND <WT? .WRD ,PS?ADJECTIVE>
+				    <ZERO? ,GL-P-ADJ>
+				    <NOT <EQUAL? .NW ,W?OF>>>
+			       <SETG GL-P-ADJ .WRD>)
+			      (<WT? .WRD ,PS?OBJECT ;,P1?OBJECT>
+			       <SETG GL-P-NAM .WRD>
+			       <SET ONEOBJ .WRD>)>)>
+		 <COND (<NOT <EQUAL? .PTR .EPTR>>
+			<SET PTR <REST .PTR ,K-P-WORDLEN>>
+			<SET WRD .NW>)>>>
+
+<ROUTINE RT-GET-OBJECT (TBL "OPTIONAL" (VRB T) (NO-ROOMS? <>)
+		       "AUX" BTS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ ADJ X)
+  <SET XBITS ,GL-P-SLOCBITS>
+  <SET TLEN <GET .TBL ,K-P-MATCHLEN>>
+  <COND (<BTST ,GL-P-GET-FLAGS ,K-P-INHIBIT>
+	 <RTRUE>)>
+  <SET ADJ ,GL-P-ADJ>
+  <COND (<AND <ZERO? ,GL-P-NAM>
+	      <MC-T? ,GL-P-ADJ>>
+	 <COND (<WT? ,GL-P-ADJ ,PS?OBJECT>
+		<SETG GL-P-NAM ,GL-P-ADJ>
+		<SETG GL-P-ADJ <>>)
+	       (<SET BTS <WT? ,GL-P-ADJ ,PS?DIRECTION ,P1?DIRECTION>>
+		<SETG GL-P-ADJ <>>
+		<PUT .TBL ,K-P-MATCHLEN 1>
+		<PUT .TBL 1 ,TH-INTDIR>
+		<SETG GL-P-DIRECTION .BTS>
+		<RTRUE>)>)>
+  <COND (<AND <ZERO? ,GL-P-NAM>
+	      <ZERO? ,GL-P-ADJ>
+	      <NOT <EQUAL? ,GL-P-GET-FLAGS ,K-P-ALL>>
+	      <ZERO? ,GL-P-GWIMBIT>>
+	 <COND (<MC-T? .VRB> 
+		<RT-NOT-IN-SENTENCE-MSG "enough nouns">)>
+	 <RFALSE>)>
+  <COND (<OR <NOT <EQUAL? ,GL-P-GET-FLAGS ,K-P-ALL>>
+	     <ZERO? ,GL-P-SLOCBITS>>
+	 <SETG GL-P-SLOCBITS -1>)>
+  <COND (<==? .TBL ,GL-P-PRSO>
+	 <SETG GL-P-OF <ZGET ,GL-P-OFW 0>>)
+	(T
+	 <SETG GL-P-OF <ZGET ,GL-P-OFW 1>>)>
+  <SETG GL-P-TABLE .TBL>
+  <PROG ()
+    <COND (<MC-T? .GCHECK>
+	   <RT-GLOBAL-CHECK .TBL>)
+	  (T
+	   <COND (<MC-T? ,GL-NOW-LIT?>
+		  <MC-UNMAKE ,CH-PLAYER ,FL-TRANSPARENT>
+		  <RT-DO-SL ,GL-PLACE-CUR ,SOG ,SIR>
+		  <MC-MAKE ,CH-PLAYER ,FL-TRANSPARENT>)>
+	   <RT-DO-SL ,CH-PLAYER ,SH ,SC>)>
+    <SET LEN <- <GET .TBL ,K-P-MATCHLEN> .TLEN>>
+    <COND (<BTST ,GL-P-GET-FLAGS ,K-P-ALL>)
+	  (<AND	<BTST ,GL-P-GET-FLAGS ,K-P-ONE>
+		<MC-T? .LEN>>
+	   <COND (<NOT <EQUAL? .LEN 1>>
+		  <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+		  <TELL "[How about " THE <GET .TBL 1> "?]" CR>)>
+	   <PUT .TBL ,K-P-MATCHLEN 1>)
+	  (<OR <G? .LEN 1>
+	       <AND <ZERO? .LEN>
+		    <NOT <EQUAL? ,GL-P-SLOCBITS -1>>>>
+	   <COND (<EQUAL? ,GL-P-SLOCBITS -1>
+		  <SETG GL-P-SLOCBITS .XBITS>
+		  <SET OLEN .LEN>
+		  <PUT .TBL ,K-P-MATCHLEN <- <GET .TBL ,K-P-MATCHLEN> .LEN>>
+		  <AGAIN>)
+		 (T
+		  <PUT ,GL-P-NAMW ,GL-P-PHR ,GL-P-NAM>
+		  <PUT ,GL-P-ADJW ,GL-P-PHR ,GL-P-ADJ>
+		  <COND (<ZERO? .LEN>
+			 <SET LEN .OLEN>)>
+		  <COND (<AND <MC-T? ,GL-P-NAM>
+			      <SET OBJ <GET .TBL <+ .TLEN 1>>>
+			      <SET OBJ <APPLY <GETP .OBJ ,P?GENERIC>
+					      .TBL .LEN>>>
+			 <COND (<EQUAL? .OBJ ,TH-NOT-HERE-OBJECT>
+				<RFALSE>)>
+			 <PUT .TBL 1 .OBJ>
+			 <PUT .TBL ,K-P-MATCHLEN 1>
+			 <SETG GL-P-NAM <>>
+			 <SETG GL-P-ADJ <>>
+			 <RTRUE>)
+			(<AND <MC-T? .VRB>
+			      <NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>>
+			 <TELL ,K-DONT-UNDERSTAND-MSG CR>
+			 <RFALSE>)
+			(<AND <MC-T? .VRB>
+			      <MC-T? ,GL-P-NAM>>
+			 <RT-WHICH-PRINT .TLEN .LEN .TBL>
+			 <SETG GL-P-ACLAUSE
+			       <COND (<EQUAL? .TBL ,GL-P-PRSO>
+				      ,K-P-NC1)
+				     (T
+				      ,K-P-NC2)>>
+			 <SETG GL-P-AADJ ,GL-P-ADJ>
+			 <SETG GL-P-ANAM ,GL-P-NAM>
+			 <RT-ORPHAN <> <>>
+			 <SETG GL-P-ORPH T>)
+			(<MC-T? .VRB>
+			 <RT-NOT-IN-SENTENCE-MSG "enough nouns">)>
+		  <SETG GL-P-NAM <>>
+		  <SETG GL-P-ADJ <>>
+		  <RFALSE>)>)
+	  (<AND	<ZERO? .LEN>
+		<MC-T? .GCHECK>>
+	   <PUT ,GL-P-NAMW ,GL-P-PHR ,GL-P-NAM>
+	   <PUT ,GL-P-ADJW ,GL-P-PHR ,GL-P-ADJ>
+	   <COND (<MC-T? .VRB>
+		  <SETG GL-P-SLOCBITS .XBITS>
+		  <COND (<OR <MC-T? ,GL-NOW-LIT?>
+			     <RT-TALK-VERB?>>
+			 <RT-OBJ-FOUND ,TH-NOT-HERE-OBJECT .TBL>
+			 <SETG GL-P-XNAM ,GL-P-NAM>
+			 <SETG GL-P-NAM <>>
+			 <SETG GL-P-XADJ ,GL-P-ADJ>
+			 <SETG GL-P-ADJ <>>
+			 <RTRUE>)
+			(T
+			 <TELL ,K-TOO-DARK-MSG CR>)>)>
+	   <SETG GL-P-NAM <>>
+	   <SETG GL-P-ADJ <>>
+	   <RFALSE>)
+	  (<ZERO? .LEN>
+	   <SET GCHECK T>
+	   <AGAIN>)>
+    <SET X <GET .TBL <+ .TLEN 1>>>
+    <COND (<AND <MC-T? ,GL-P-ADJ>
+		<ZERO? ,GL-P-NAM>
+		<MC-T? .X>>
+	   <TELL "[" THE .X "]" CR CR>)>
+    <SETG GL-P-SLOCBITS .XBITS>
+    <PUT ,GL-P-NAMW ,GL-P-PHR ,GL-P-NAM>
+    <PUT ,GL-P-ADJW ,GL-P-PHR ,GL-P-ADJ>
+    <SETG GL-P-NAM <>>
+    <SETG GL-P-ADJ <>>
+    <RTRUE>>>
+
+;------------------------------------------------------------------------------
+; "RT-MOBY-FIND"
+; "This RT-MOBY-FIND works in both ZIL and ZIP"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-MOBY-FIND (TBL "AUX" (OBJ 1) LEN FOO NAM ADJ (TTBL <>)
+		       (COBJ-GOOD? <>) (CT 0))
+	<SET NAM ,GL-P-NAM>
+	<SET ADJ ,GL-P-ADJ>
+	<SETG GL-P-NAM ,GL-P-XNAM>
+	<SETG GL-P-ADJ ,GL-P-XADJ>
+	<PUT .TBL ,K-P-MATCHLEN 0>
+	<REPEAT ()
+	    <COND
+	     (<RT-THIS-IT? .OBJ>
+	      <COND
+	       (<OR <F? <LOC .OBJ>>
+		    <F? <RT-THIS-IT? <LOC .OBJ>>>>
+		<SET CT <ZGET .TBL ,K-P-MATCHLEN>>
+		<COND (<OR <T? <LOC .OBJ>>
+			   <FSET? .OBJ ,FL-PERSON>
+			   <INTBL? .OBJ <ZREST ,FIND-NO-LOCS 2>
+				   <ZGET ,FIND-NO-LOCS 0>>>
+		       <COND (<AND <1? .CT>
+				   <F? .COBJ-GOOD?>>
+			      ; "We don't like what we've already found,
+				 so kill it"
+			      <SET COBJ-GOOD? T>
+			      <ZPUT .TBL ,K-P-MATCHLEN 0>)
+			     (<0? .CT>
+			      ;"First thing found, so OK"
+			      <SET COBJ-GOOD? T>)>
+		       <RT-OBJ-FOUND .OBJ .TBL>)
+		      (<0? .CT>
+		       <SET FOO <RT-OBJ-FOUND .OBJ .TBL>>)>)
+	       (<AND <IN? .OBJ ,ROOMS>
+		     <0? <ZGET .TBL ,K-P-MATCHLEN>>
+		     <RT-MATCH-PSEUDO .OBJ>>
+		<SET FOO <RT-OBJ-FOUND .OBJ .TBL>>)>)>
+	    <COND (<IGRTR? OBJ ,LAST-OBJECT>
+		   <RETURN>)>>
+	<COND (<OR <0? <SET CT <GET .TBL ,K-P-MATCHLEN>>>
+		   <F? .COBJ-GOOD?>
+		   <AND <MC-HERE? ,RM-DIOGENES-CLUB>
+			<SET TTBL
+			     <INTBL? ,CH-HOLMES <ZREST .TBL 2>
+				     <ZGET .TBL ,K-P-MATCHLEN>>>>>
+	       ; "See if it's one of the things that can only be asked
+		  about"
+	       <COND (<SET OBJ <RT-PARSE-EVENT? ,GL-P-NAM ,GL-P-ADJ>>
+		      <COND (.TTBL
+			     <ZPUT .TTBL 0 .OBJ>)
+			    (T
+			     <COND (<AND <F? .COBJ-GOOD?>
+					 <G? .CT 0>>
+				    <ZPUT .TBL ,K-P-MATCHLEN <- .CT 1>>)>
+			     <RT-OBJ-FOUND .OBJ .TBL>)>
+		      <SET COBJ-GOOD? T>)>)>
+	<COND (<EQUAL? <SET LEN <GET .TBL ,K-P-MATCHLEN>> 1>
+	       <COND (<F? .COBJ-GOOD?>
+		      <SETG GL-P-MOBY-FOUND ,TH-NOT-HERE-OBJECT>)
+		     (T
+		      <SETG GL-P-MOBY-FOUND <GET .TBL 1>>)>)>
+	<SETG GL-P-NAM .NAM>
+	<SETG GL-P-ADJ .ADJ>
+	<RETURN .LEN>>
+
+<ROUTINE RT-MATCH-PSEUDO (OBJ "AUX" (RMG <GETP .OBJ ,P?PSEUDOS>)
+			  RMGL)
+  <COND (<F? .RMG> <RFALSE>)>
+  <SET RMGL <GETB .RMG 0>>
+  <SET RMG <REST .RMG>>
+  <REPEAT (TTBL)
+    <COND (<AND <SET TTBL <GET .RMG 1>>
+		<INTBL? ,GL-P-NAM <REST .TTBL 1> <GETB .TTBL 0>>
+		<OR <NOT ,GL-P-ADJ>
+		    <AND <SET TTBL <GET .RMG 0>>
+			 <INTBL? ,GL-P-ADJ <REST .TTBL 1>
+				 <GETB .TTBL 0>>>>>
+	   <RETURN .RMG>)>
+    <SET RMG <REST .RMG 6>>
+    <COND (<L? <SET RMGL <- .RMGL 1>> 1> <RFALSE>)>>>
+
+;------------------------------------------------------------------------------
+; "RT-GLOBAL-CHECK"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO) 
+  <SET LEN <GET .TBL ,K-P-MATCHLEN>>
+  <SET OBITS ,GL-P-SLOCBITS>
+  <COND (<RT-THIS-IT? ,GL-PLACE-CUR>
+	 <RT-OBJ-FOUND ,GL-PLACE-CUR .TBL>)>
+  <COND (<SET RMG <GETPT ,GL-PLACE-CUR ,P?GLOBAL>>
+	 ; "These are now byte tables"
+	 <SET RMGL <PTSIZE .RMG>>
+	 ; "To work correctly with the IGRTR? below"
+	 <SET RMGL <- .RMGL 1>>
+	 <REPEAT ()
+	   <SET OBJ <GETB .RMG .CNT>>
+	   <COND (<AND <FIRST? .OBJ>
+		       <NOT <IN? .OBJ ,ROOMS>>>
+		  ; "We don't want to accidentally search some
+		     non-local room here..."
+		  <RT-SEARCH-LIST .OBJ .TBL ,K-P-SRCALL>)>
+	   <COND (<RT-THIS-IT? .OBJ>
+		  <RT-OBJ-FOUND .OBJ .TBL>)>
+	   <COND (<IGRTR? CNT .RMGL>
+		  <RETURN>)>>)>
+  <COND (<AND <0? <GET .TBL ,K-P-MATCHLEN>>
+	      <SET RMG <RT-MATCH-PSEUDO ,GL-PLACE-CUR>>>
+	 <SETG LAST-PSEUDO-LOC ,GL-PLACE-CUR>
+	 <PUTP ,PSEUDO-OBJECT ,P?ACTION <GET .RMG 2>>
+	 <RT-OBJ-FOUND ,PSEUDO-OBJECT .TBL>)>
+  <COND (<EQUAL? <GET .TBL ,K-P-MATCHLEN> .LEN>
+	 <SETG GL-P-SLOCBITS -1>
+	 <SETG GL-P-TABLE .TBL>
+	 <RT-DO-SL ,GLOBAL-OBJECTS 1 1>
+	 <SETG GL-P-SLOCBITS .OBITS>
+	 <COND (<ZERO? <GET .TBL ,K-P-MATCHLEN>>
+		<COND (<AND <MC-VERB? EXAMINE LOOK-ON LOOK-INSIDE FIND FOLLOW
+				 EXIT SEARCH SMELL WALK-TO THROUGH WAIT-FOR
+				 WAIT>
+			    <NOT ,INHIBIT-ROOMS>>
+		       <RT-DO-SL ,ROOMS 1 1>)>)>)>>
+
+;------------------------------------------------------------------------------
+; "RT-DO-SL"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-DO-SL (OBJ BIT1 BIT2 "AUX" BITS) 
+	<COND
+		(<BTST ,GL-P-SLOCBITS <+ .BIT1 .BIT2>>
+			<RT-SEARCH-LIST .OBJ ,GL-P-TABLE ,K-P-SRCALL>
+		)
+		(T
+			<COND
+				(<BTST ,GL-P-SLOCBITS .BIT1>
+					<RT-SEARCH-LIST .OBJ ,GL-P-TABLE ,K-P-SRCTOP>
+				)
+				(<BTST ,GL-P-SLOCBITS .BIT2>
+					<RT-SEARCH-LIST .OBJ ,GL-P-TABLE ,K-P-SRCBOT>
+				)
+				(T
+					<RTRUE>
+				)
+			>
+		)
+	>
+>
+
+;------------------------------------------------------------------------------
+; "RT-SEARCH-LIST"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-SEARCH-LIST (OBJ TBL LVL)
+  <SET OBJ <FIRST? .OBJ>>
+  <COND (<MC-T? .OBJ>
+	 <REPEAT ()
+	   <COND (<AND <NOT <EQUAL? .LVL ,K-P-SRCBOT>>
+		       <GETPT .OBJ ,P?SYNONYM>
+		       <RT-THIS-IT? .OBJ>>
+		  <RT-OBJ-FOUND .OBJ .TBL>)>
+	   <COND (<AND	<OR <NOT <EQUAL? .LVL ,K-P-SRCTOP>>
+			    <MC-IS? .OBJ ,FL-SURFACE>
+			    <MC-IS? .OBJ ,FL-PERSON>>
+			<FIRST? .OBJ>
+			<RT-SEE-INSIDE? .OBJ>>
+		  <RT-SEARCH-LIST .OBJ .TBL
+				  <COND (<OR <MC-IS? .OBJ ,FL-SURFACE>
+					     <MC-IS? .OBJ ,FL-PERSON>>
+					 ,K-P-SRCALL)
+					(<AND <MC-IS? .OBJ ,FL-CONTAINER>
+					      <OR <MC-IS? .OBJ ,FL-OPENED>
+						  <MC-IS? .OBJ
+							  ,FL-TRANSPARENT>>>
+					 ,K-P-SRCALL)
+					(T
+					 ,K-P-SRCTOP)>>)>
+	   <SET OBJ <NEXT? .OBJ>>
+	   <COND (<ZERO? .OBJ>
+		  <RETURN>)>>)>>
+
+;------------------------------------------------------------------------------
+; "RT-THIS-IT?"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-THIS-IT? (OBJ
+		      "AUX" (SYNS <>) SYNSIZE (ADJS <>) ADJSIZE) 
+  <COND (<AND <MC-T? ,GL-P-NAM>
+	      <OR <NOT <SET SYNS <GETPT .OBJ ,P?SYNONYM>>>
+		  <NOT <INTBL? ,GL-P-NAM .SYNS <SET SYNSIZE
+						    </ <PTSIZE .SYNS> 2>>>>>>
+	 <RFALSE>)
+	(<AND <MC-T? ,GL-P-ADJ>
+	      <OR <NOT <SET ADJS <GETPT .OBJ ,P?ADJECTIVE>>>
+		  <NOT <INTBL? ,GL-P-ADJ .ADJS <SET ADJSIZE
+						    </ <PTSIZE .ADJS> 2>>>>>>
+	 <RFALSE>)>
+  <COND (<AND ,INHIBIT-ROOMS
+	      <IN? .OBJ ,ROOMS>>
+	 <RFALSE>)
+	(<MC-T? ,GL-P-OF>
+	 <COND (<AND .ADJS
+		     <INTBL? ,GL-P-OF .ADJS .ADJSIZE>>
+		<RTRUE>)>
+	 <COND (<AND .SYNS
+		     <INTBL? ,GL-P-OF .SYNS .SYNSIZE>>
+		<RTRUE>)>
+	 <RFALSE>)>
+  <COND (<AND <MC-T? ,GL-P-GWIMBIT>
+	      <NOT <FSET? .OBJ ,GL-P-GWIMBIT>>>
+	 <RFALSE>)>
+  <RTRUE>>
+
+;------------------------------------------------------------------------------
+; "RT-OBJ-FOUND"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-OBJ-FOUND (OBJ TBL "AUX" PTR) 
+	<SET PTR <+ <GET .TBL ,K-P-MATCHLEN> 1>>
+	<COND
+		(<G=? .PTR ,K-P-OBJ-TBL-LEN>
+			<SETG GL-P-OVERFLOW T>
+			<RFALSE>
+		)
+		(<L? .PTR ,K-P-OBJ-TBL-LEN>
+		 <SETG GL-P-OVERFLOW <>>
+		 <PUT .TBL .PTR .OBJ>
+		 <PUT .TBL ,K-P-MATCHLEN .PTR>
+		 <COND (<FSET? .OBJ ,FL-NEEDS-IDENTITY>
+			<PUTP .OBJ ,P?OBJ-ADJ ,GL-P-ADJ>
+			<COND (<N==? .OBJ ,TH-EVENT>
+			       <PUTP .OBJ ,P?OBJ-NOUN ,GL-P-NAM>)>)>)>
+	<RTRUE>>
+
+<ROUTINE RT-ITAKE ("OPTIONAL" (VB T) "AUX" L)
+	<COND (<OR <MC-F? ,GL-PRSO>
+		   <MC-F? <LOC ,GL-PRSO>>>
+	       <RT-CANT-SEE-ANY-MSG>
+	       <RFALSE>)>
+	<SET L <LOC ,GL-PRSO>>
+	<RT-THIS-IS-IT ,GL-PRSO>
+	<COND (<MC-ISNOT? ,GL-PRSO ,FL-TAKEABLE>
+	       <COND (<MC-T? .VB>
+		      <RT-IMPOSSIBLE-MSG>)>
+	       <RFALSE>)
+	      (<AND <MC-IS? .L ,FL-CONTAINER>
+		    <MC-IS? .L ,FL-OPENABLE>
+		    <MC-ISNOT? .L ,FL-OPENED>>
+	       <COND (<MC-T? .VB>
+		      <RT-YOUD-HAVE-TO-MSG "open" .L>)>
+	       <RFALSE>)
+	      (<AND <NOT <IN? .L ,GL-WINNER>>
+		    <RT-OBJ-TOO-HEAVY? ,GL-PRSO ,GL-WINNER>>
+	       <COND (<MC-T? .VB>
+		      <TELL CTHEO>
+		      <RT-IS-ARE-MSG ,GL-PRSO>
+		      <TELL "too heavy." CR>)>
+	       <RFALSE>)
+	      (<RT-OBJ-TOO-MANY? ,GL-PRSO ,GL-WINNER>
+	       <COND (<MC-T? .VB>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "holding too much already." CR>)>
+	       <RFALSE>)
+	      (T
+	       <MC-MAKE ,GL-PRSO ,FL-SEEN>
+	       <MC-MAKE ,GL-PRSO ,FL-TOUCHED>
+	       <FCLEAR ,GL-PRSO ,FL-WORN>
+	       <MC-UNMAKE ,GL-PRSO ,FL-NODESC>
+	       <MC-UNMAKE ,GL-PRSO ,FL-NOALL>
+	       <MOVE ,GL-PRSO ,GL-WINNER>
+	       <RETURN .L>)>>
+ 
+
+<ROUTINE RT-ITAKE-CHECK (TBL BITS "OPT" (PRSO? <>) "AUX" (PTR 1) LEN OBJ L GOT
+			 (TRIED-TAKE? <>) (NEED-TAKE? <>))
+  <SET LEN <GET .TBL ,K-P-MATCHLEN>>
+  <COND (<ZERO? .LEN>
+	 <RTRUE>)
+	(<NOT <0? <ANDB .BITS <+ ,SHAVE ,STAKE>>>>
+	 <REPEAT ()
+	   <SET OBJ <GET .TBL .PTR>>
+	   <COND (<EQUAL? .OBJ ,TH-IT>
+		  <COND (<NOT <RT-ACCESSIBLE? ,GL-P-IT-OBJECT>>
+			 <TELL ,K-BE-MORE-SPECIFIC-MSG CR>
+			 <RFALSE>)>
+		  <COND (<FSET? .OBJ ,FL-NEEDS-IDENTITY>
+			 ; "Restore these settings if needed"
+			 <PUTP .OBJ ,P?OBJ-NOUN <GETP ,TH-IT ,P?OBJ-NOUN>>
+			 <PUTP .OBJ ,P?OBJ-ADJ <GETP ,TH-IT ,P?OBJ-ADJ>>)>
+		  <SET OBJ ,GL-P-IT-OBJECT>)
+		 (<EQUAL? .OBJ ,CH-THEM>
+		  <COND (<NOT <RT-ACCESSIBLE? ,GL-P-THEM-OBJECT>>
+			 <TELL ,K-BE-MORE-SPECIFIC-MSG CR>
+			 <RFALSE>)>
+		  <SET OBJ ,GL-P-THEM-OBJECT>)
+		 (<EQUAL? .OBJ ,CH-HER>
+		  <COND (<NOT <RT-ACCESSIBLE? ,GL-P-HER-OBJECT>>
+			 <TELL ,K-BE-MORE-SPECIFIC-MSG CR>
+			 <RFALSE>)>
+		  <SET OBJ ,GL-P-HER-OBJECT>)
+		 (<EQUAL? .OBJ ,CH-HIM>
+		  <COND (<NOT <RT-ACCESSIBLE? ,GL-P-HIM-OBJECT>>
+			 <TELL ,K-BE-MORE-SPECIFIC-MSG CR>
+			 <RFALSE>)>
+		  <SET OBJ ,GL-P-HIM-OBJECT>)>
+	   <COND (<AND <NOT <EQUAL? .OBJ ,TH-POCKET ,TH-HANDS ,TH-FEET>>
+		       <NOT <EQUAL? .OBJ ,CH-ME ,CH-PLAYER ,CH-YOU ,ROOMS
+				    ,TH-PLAYER-BODY>>
+		       <NOT <EQUAL? .OBJ ,TH-INTDIR ,TH-RIGHT ,TH-LEFT>>>
+		  <COND (<AND <NOT <BTST .BITS ,SC>>
+			      <BTST .BITS ,SH>>
+			 ; "Wants held, not carried"
+			 <COND (<NOT <IN? .OBJ ,GL-WINNER>>
+				<SET NEED-TAKE? T>)>)
+			(<NOT <RT-HELD? .OBJ>>
+			 <COND (<AND <OR <AND .PRSO? <F? <ZGET ,GL-P-NAMW 0>>>
+					 <AND <F? .PRSO?>
+					      <F? <ZGET ,GL-P-NAMW 1>>>>
+				     <IN? .OBJ ,TH-POCKET>> T)
+			       (T
+				<SET NEED-TAKE? T>)>)>
+		  <COND
+		   (.NEED-TAKE?
+		    <SET NEED-TAKE? <>>
+		    <SETG GL-PRSO .OBJ>
+		    <SET L <LOC .OBJ>>
+		    <COND (<ZERO? .L>
+			   <SET GOT <>>)
+			  (<AND <MC-IS? .OBJ ,FL-TRYTAKE>
+				<NOT <MC-IS? .OBJ ,FL-TAKEABLE>>>
+			   <SET GOT <>>)
+			  (<NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			   <SET GOT <>>)
+			  (<AND <EQUAL? .L ,GL-WINNER>
+				<BTST .BITS ,SHAVE>>
+			   <SET GOT T>)
+			  (<AND <RT-META-IN? .L ,GL-WINNER>
+				<ZERO? ,GL-P-MULT?>
+				<BTST .BITS ,STAKE>>
+			   <TELL "[taking " THE .OBJ>
+			   <COND (<MC-T? .L>
+				  <COND (<MC-IS? .L ,FL-CONTAINER>
+					 <TELL " out of ">)
+					(<MC-IS? .L ,FL-SURFACE>
+					 <TELL " off ">)
+					(T
+					 <TELL " from ">)>
+				  <TELL THE .L>)>
+			   <TELL " first]." CR>
+			   <SET NEED-TAKE? T>
+			   <SET GOT <RT-ITAKE>>)
+			  (T
+			   <SET GOT <>>)>
+		    <COND (<AND <ZERO? .GOT>
+				;<NOT <EQUAL? .L ,TH-POCKET>>
+				<BTST .BITS ,SHAVE>>
+			   <COND
+			    (<NOT .NEED-TAKE?>
+			     <COND
+			      (<AND <OR <N==? .LEN .PTR>
+					<F? ,GL-P-MULT?>>
+				    <N==? .OBJ ,TH-NOT-HERE-OBJECT>
+				    <EQUAL? <LOC .OBJ> ,GLOBAL-OBJECTS
+					    ,LOCAL-GLOBALS>>
+			       <TELL "Don't be silly">)
+			      (T
+			       <RT-WINNER-NOT-HOLDING-MSG>
+			       <COND (<AND <EQUAL? .LEN .PTR>
+					   <MC-T? ,GL-P-MULT?>>
+				      <TELL "all of those things">)
+				     (<EQUAL? .OBJ ,TH-NOT-HERE-OBJECT>
+				      <SETG GL-P-IT-OBJECT .OBJ>
+				      <TELL D .OBJ>)
+				     (T
+				      <RT-THIS-IS-IT .OBJ>
+				      <COND (<MC-IS? .OBJ ,FL-PLURAL>
+					     <TELL "any " D .OBJ>)
+					    (T
+					     <TELL A .OBJ>)>)>)>
+			     <TELL "." CR>)>
+			   <RFALSE>)>)>)>
+	   <COND (<IGRTR? PTR .LEN>
+		  <RTRUE>)>>)>
+	 <RTRUE>>
+
+<ROUTINE RT-MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	<COND (<AND <G? <GET ,GL-P-PRSO ,K-P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,GL-P-SYNTAX ,K-P-SLOC1> ,SMANY>>>
+	       <SET LOSS 1>)
+	      (<AND <G? <GET ,GL-P-PRSI ,K-P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,GL-P-SYNTAX ,K-P-SLOC2> ,SMANY>>>
+	       <SET LOSS 2>)>
+	<COND (<MC-T? .LOSS>
+	       <TELL "[You cannot refer to more than one object at a time with \"">
+	       <SET TMP <GET ,GL-P-ITBL ,K-P-VERBN>>
+	       <COND (<ZERO? .TMP>
+		      <TELL "tell">)
+		     (<OR <MC-T? ,GL-P-ORPH>
+			  <MC-T? ,GL-P-MERGED>>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <RT-WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL ".\"]" CR>
+	       <RFALSE>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE RT-IS-LIT? ("OPTIONAL" (RM <>) (RMFLG T) "AUX" OHERE (LIT <>))
+  <COND (<MC-F? .RM>
+	 <SET RM ,GL-PLACE-CUR>)>
+  <COND (<AND <MC-T? .RMFLG>
+	      <MC-IS? .RM ,FL-LIGHTED>>
+	 <RTRUE>)
+	(<AND <MC-T? ,GL-ALW-LIT?>
+	      <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+	 <RTRUE>)>
+  <COND (<MC-ISNOT? .RM ,FL-INDOORS>
+	 <COND (<MC-NOTZERO? <RT-TIME-OF-DAY>>
+		<RTRUE>)>)>
+  <SETG GL-P-GWIMBIT ,FL-LIGHTED>
+  <SET OHERE ,GL-PLACE-CUR>
+  <SETG GL-PLACE-CUR .RM>
+  <PUT ,GL-P-MERGE ,K-P-MATCHLEN 0>
+  <SETG GL-P-TABLE ,GL-P-MERGE>
+  <SETG GL-P-SLOCBITS -1>
+  <SETG GL-P-OF <>>
+  <COND (<EQUAL? .OHERE .RM>
+	 <RT-DO-SL ,GL-WINNER 1 1>
+	 <COND (<AND <NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+		     <IN? ,CH-PLAYER .RM>>
+		<RT-DO-SL ,CH-PLAYER 1 1>)>)>
+  <RT-DO-SL .RM 1 1>
+  <COND (<G? <GET ,GL-P-TABLE ,K-P-MATCHLEN> 0>
+	 <SET LIT T>)>
+  <SETG GL-PLACE-CUR .OHERE>
+  <SETG GL-P-GWIMBIT 0>
+  <RETURN .LIT>>
+
+<GLOBAL WINNER-IS-WIGGINS <>>
+
+<ROUTINE RT-PERFORM (A "OPTIONAL" (O <>) (I <>)
+		     "AUX" W-ROOM W-LOC I-LOC O-LOC V OA OO OI ONP WHO)
+  <COND (<AND ,WINNER-IS-WIGGINS   ; "beg - winner is not person processing"
+	      <==? ,GL-WINNER ,CH-PLAYER>
+	      <NOT <MC-VERB? TELL>>>
+	 <SETG GL-WINNER ,CH-WIGGINS>
+	 <RT-SPOKEN-TO-MSG ,GL-WINNER>)>
+  <SETG WINNER-IS-WIGGINS <>>
+  <COND (<MC-ISNOT? ,GL-WINNER ,FL-ALIVE>
+	 <RT-NOT-LIKELY-MSG ,GL-WINNER "would respond">
+	 <RT-P-CLEAR>
+	 <RFATAL>)>
+  <COND (<AND <INTBL? .A <REST ,GL-SEE-VERBS 2> <GET ,GL-SEE-VERBS 0>>
+	      <MC-F? ,GL-NOW-LIT?>>  ; "beg - verb is a 'see' processing"
+	 <TELL ,K-TOO-DARK-MSG CR>
+	 <RFATAL>)>
+  <SET OA ,GL-PRSA> ;"save globals for potential recursive call of rt-perform"
+  <SET OO ,GL-PRSO>
+  <SET OI ,GL-PRSI>
+  <SET ONP ,GL-NOW-PRSI?>
+  <SET WHO <RT-ANYONE-HERE?>>  ; "set up some locals need below"
+  <SET V 0>
+  <COND (<NOT <EQUAL? .A ,V?WALK>>
+	 <COND (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+		     <MC-VERB? WHO WHAT WHERE>>
+		<COND (<ZERO? .WHO>
+		       <RT-NOBODY-TO-ASK-MSG>
+		       <RFATAL>)
+		      (T
+		       <SETG GL-WINNER .WHO>
+		       <RT-SPOKEN-TO-MSG .WHO>)>)
+	       (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+		     <MC-VERB? ASK-FOR-1 ASK-ABOUT-1>>
+		<COND (<MC-F? .WHO>
+		       <RT-NOBODY-TO-ASK-MSG>
+		       <RFATAL>)
+		      (T
+		       <RT-SPOKEN-TO-MSG .WHO>
+		       <SETG GL-PRSI ,GL-PRSO>
+		       <SETG GL-PRSO .WHO>
+		       <COND (<MC-VERB? ASK-FOR-1>
+			      <SETG GL-PRSA ,V?ASK-FOR>)
+			     (<MC-VERB? ASK-ABOUT-1>
+			      <SETG GL-PRSA ,V?ASK-ABOUT>)>
+		       <SET A ,GL-PRSA>
+		       <SET O ,GL-PRSO>
+		       <SET I ,GL-PRSI>)>)
+	       (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+		     <EQUAL? .O ,CH-ME ,CH-PLAYER>
+		     <MC-VERB? TELL TELL-ABOUT ASK-ABOUT ASK-FOR QUESTION
+			       REPLY THANK YELL HELLO GOODBYE SAY ALARM
+			       PASSWORD>>
+		<COND (<ZERO? .WHO>
+		       <RT-TALK-TO-SELF-MSG>
+		       <RFATAL>)
+		      (T
+		       <SETG GL-WINNER .WHO>
+		       <RT-SPOKEN-TO-MSG .WHO>)>)>
+	 <COND (<EQUAL? ,CH-YOU .I .O>
+		<COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+		       <COND (<ZERO? .WHO>
+			      <RT-TALK-TO-SELF-MSG>
+			      <RFATAL>)
+			     (T
+			      <SETG GL-WINNER .WHO>
+			      <RT-SPOKEN-TO-MSG .WHO>)>)
+		      (T
+		       <SETG GL-P-QCONTEXT-TH ,GL-WINNER>
+		       <SETG GL-P-QCONTEXT-RM ,GL-PLACE-CUR>
+		       <SET WHO ,GL-WINNER>)>
+		<COND (<EQUAL? .I ,CH-YOU>
+		       <SET I .WHO>)>
+		<COND (<EQUAL? .O ,CH-YOU>
+		       <SET O .WHO>)>)>
+	 <COND (<AND <EQUAL? ,TH-IT .I .O>
+		     <NOT <RT-ACCESSIBLE? ,GL-P-IT-OBJECT>>>
+		<COND (<ZERO? .I>
+		       <RT-FAKE-ORPHAN-MSG>)
+		      (T
+		       <RT-CANT-SEE-ANY-MSG ,GL-P-IT-OBJECT>)>
+		<RFATAL>)>
+	 <COND (<EQUAL? ,CH-THEM .I .O>
+		<COND (<RT-VISIBLE? ,GL-P-THEM-OBJECT>
+		       <COND (<EQUAL? ,CH-THEM .O>
+			      <SET O ,GL-P-THEM-OBJECT>)>
+		       <COND (<EQUAL? ,CH-THEM .I>
+			      <SET I ,GL-P-THEM-OBJECT>)>)
+		      (T
+		       <COND (<ZERO? .I>
+			      <RT-FAKE-ORPHAN-MSG>)
+			     (T
+			      <RT-CANT-SEE-ANY-MSG ,GL-P-THEM-OBJECT>)>
+		       <RFATAL>)>)>
+	 <COND (<EQUAL? ,CH-HER .I .O>
+		<COND (<RT-VISIBLE? ,GL-P-HER-OBJECT>
+		       <COND (<AND <EQUAL? ,GL-P-HER-OBJECT ,GL-WINNER>
+				   <RT-NO-OTHER? T>>
+			      <RFATAL>)>
+		       <COND (<EQUAL? ,CH-HER .O>
+			      <SET O ,GL-P-HER-OBJECT>)>
+		       <COND (<EQUAL? ,CH-HER .I>
+			      <SET I ,GL-P-HER-OBJECT>)>)
+		      (T
+		       <COND (<ZERO? .I>
+			      <RT-FAKE-ORPHAN-MSG>)
+			     (T 
+			      <RT-CANT-SEE-ANY-MSG ,GL-P-HER-OBJECT>)>
+		       <RFATAL>)>)>
+	 <COND (<EQUAL? ,CH-HIM .I .O>
+		<COND (<RT-VISIBLE? ,GL-P-HIM-OBJECT>
+		       <COND (<AND <EQUAL? ,GL-P-HIM-OBJECT ,GL-WINNER>
+				   <RT-NO-OTHER?>>
+			      <RFATAL>)>
+		       <COND (<EQUAL? ,CH-HIM .O>
+			      <SET O ,GL-P-HIM-OBJECT>)>
+		       <COND (<EQUAL? ,CH-HIM .I>
+			      <SET I ,GL-P-HIM-OBJECT>)>)
+		      (T
+		       <COND (<ZERO? .I>
+			      <RT-FAKE-ORPHAN-MSG>)
+			     (T 
+			      <RT-CANT-SEE-ANY-MSG ,GL-P-HIM-OBJECT>)>
+		       <RFATAL>)>)>
+	 <COND (<EQUAL? .O ,TH-IT>
+		<SET O ,GL-P-IT-OBJECT>)>
+	 <COND (<EQUAL? .I ,TH-IT>
+		<SET I ,GL-P-IT-OBJECT>)>)>
+  ; "FCW - temp fix for TAKE OBJECT syntax to supply implied FROM object"
+  <COND (<AND <EQUAL? .A ,V?TAKE>
+	      <MC-T? .O>
+	      <MC-F? .I>
+	      <MC-T? <LOC .O>>>
+	 <SET I <LOC .O>>)>
+  <SETG GL-PRSA .A>
+  <SETG GL-PRSI .I>
+  <SETG GL-PRSO .O>
+  <COND (<AND <NOT <EQUAL? .A ,V?WALK>>
+	      <EQUAL? ,TH-NOT-HERE-OBJECT .O .I>>
+	 <COND (<SET V <APPLY ,RT-TH-NOT-HERE-OBJECT>>
+		<SETG GL-P-GOOD <>>)>)>
+  <RT-THIS-IS-IT ,GL-PRSI>
+  <RT-THIS-IS-IT ,GL-PRSO>
+  <SET I ,GL-PRSI>
+  <SET O ,GL-PRSO>
+  <COND (<EQUAL? .O ,ROOMS>
+	 <SET O <>>)>
+  <SET W-LOC <LOC ,GL-WINNER>>
+  <COND (<OR <MC-IS? .W-LOC ,FL-VEHICLE>
+	     <MC-IS? .W-LOC ,FL-CONTAINER>
+	     <MC-IS? .W-LOC ,FL-SURFACE>>
+	 <SET W-ROOM <LOC .W-LOC>>)
+	(T
+	 <SET W-ROOM .W-LOC>)>
+  <COND (<ZERO? .V>
+	 <SET V <APPLY <GETP ,GL-WINNER ,P?ACTION> ,K-M-WINNER>>)>
+  <COND (<ZERO? .V>
+	 <SET V <APPLY <GETP .W-ROOM ,P?ACTION> ,K-M-BEG>>)>
+  <COND (<ZERO? .V>
+	 <SET V <APPLY <GET ,PREACTIONS .A>>>)>
+  <COND (<AND <ZERO? .V>
+	      <EQUAL? ,GL-WINNER ,CH-PLAYER>
+	      <OR <MC-IS? .W-LOC ,FL-VEHICLE>
+		  <MC-IS? .W-LOC ,FL-CONTAINER>
+		  <MC-IS? .W-LOC ,FL-SURFACE>>>
+	 <SET V <APPLY <GETP .W-LOC ,P?CONTFCN> ,K-M-CANT>>)>
+  <COND (<AND <ZERO? .V>
+	      <NOT <EQUAL? .A ,V?WALK>>
+	      <NOT <EQUAL? .A ,V?TELL-ABOUT ,V?ASK-ABOUT ,V?ASK-FOR>>>
+	 <COND (<AND <MC-T? .I>
+		     <SET I-LOC <LOC .I>>
+		     <OR <MC-IS? .I-LOC ,FL-VEHICLE>
+			 <MC-IS? .I-LOC ,FL-CONTAINER>
+			 <MC-IS? .I-LOC ,FL-SURFACE>
+			 <MC-IS? .I-LOC ,FL-ALIVE>>>
+		<SETG GL-NOW-PRSI? T>
+		<SET V <APPLY <GETP .I-LOC ,P?CONTFCN> ,K-M-CONT>>)>
+	 <COND (<AND <MC-T? .O>
+		     <SET O-LOC <LOC .O>>
+		     <OR <MC-IS? .O-LOC ,FL-VEHICLE>
+			 <MC-IS? .O-LOC ,FL-CONTAINER>
+			 <MC-IS? .O-LOC ,FL-SURFACE>
+			 <MC-IS? .O-LOC ,FL-ALIVE>>>
+		<SETG GL-NOW-PRSI? <>>
+		<SET V <APPLY <GETP .O-LOC ,P?CONTFCN> ,K-M-CONT>>)>
+	 <COND (<MC-T? .I>
+		<SETG GL-NOW-PRSI? T>
+		<SET V <APPLY <GETP .I ,P?ACTION>>>)>)>
+  ; "if v is 0 & verb is not walk & there is an o-object call o-object action routine"
+  <COND (<AND <ZERO? .V>
+	      <MC-T? .O>
+	      <NOT <EQUAL? .A ,V?WALK>>>
+	 <SETG GL-NOW-PRSI? <>>
+	 <SET V <APPLY <GETP .O ,P?ACTION>>>)>
+  ; "if v is 0 call verb routine"
+  <COND (<ZERO? .V>
+	 <SET V <APPLY <GET ,ACTIONS .A>>>)>
+  ; "if v is 0 call the location action routine with the end context"
+  <COND (<ZERO? .V>
+	 <SET V <APPLY <GETP .W-LOC ,P?ACTION> ,K-M-END>>)>
+  ; "restore globals from locals saved for potential recursive call"
+  <COND (<AND ,GL-PRSI
+	      <FSET? ,GL-PRSI ,FL-LOSE-IDENTITY>>
+	 <PUTP ,GL-PRSI ,P?OBJ-NOUN <>>
+	 <PUTP ,GL-PRSI ,P?OBJ-ADJ <>>)>
+  <COND (<AND ,GL-PRSO
+	      <FSET? ,GL-PRSO ,FL-LOSE-IDENTITY>>
+	 <PUTP ,GL-PRSO ,P?OBJ-NOUN <>>
+	 <PUTP ,GL-PRSO ,P?OBJ-ADJ <>>)>
+  <SETG GL-PRSA .OA>
+  <SETG GL-PRSO .OO>
+  <SETG GL-PRSI .OI>
+  <SETG GL-NOW-PRSI? .ONP>
+  ; "return value of first routine above which returned other than zero"
+  <RETURN .V>>
+
+<ROUTINE RT-SET-GL-PLACE-CUR ()
+	<COND
+		(<MC-IS? <LOC ,GL-WINNER> ,FL-VEHICLE>
+			<SETG GL-PLACE-CUR <LOC <LOC ,GL-WINNER>>>
+		)
+		(T
+			<SETG GL-PLACE-CUR <LOC ,GL-WINNER>>
+		)
+	>
+>
+
+;------------------------------------------------------------------------------
+; "RT-PARSER"
+; "Grovel down the input finding the verb, prepositions, and noun clauses."
+; "If the input is <direction> or <walk> <direction>, fall out immediately"
+; "setting PRSA to ,V?WALK and PRSO to <direction>.  Otherwise, perform"
+; "all required orphaning, syntax checking, and noun clause lookup."
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-PARSER ("AUX" (PTR ,K-P-LEXSTART) WRD (VAL 0) (VERB <>)
+		    (OF-FLAG <>) (LEN 0) (DIR <>) (NW 0) (LW 0) (CNT 0)
+		    OWINNER OMERGED (TMP1 0))
+  <SETG GL-FUNNY-CLAUSE? <>>
+  <COND (<F? ,GL-P-ORPH>
+	 <COPYT ,GL-P-ITBL ,GL-P-OTBL <* 2 <+ ,K-P-ITBLLEN 1>>>)>
+  <COPYT ,GL-P-ITBL 0 <* 2 <+ ,K-P-ITBLLEN 1>>>
+  <SETG GL-P-NAM			<>>
+  <SETG GL-P-ADJ			<>>
+  <SETG GL-P-XNAM		<>>
+  <SETG GL-P-XADJ		<>>
+  <SETG GL-P-DIR-WORD	<>>
+  <COND (<MC-F? ,GL-P-ORPH>
+	 <PUT ,GL-P-NAMW 0 <>>
+	 <PUT ,GL-P-NAMW 1 <>>
+	 <PUT ,GL-P-ADJW 0 <>>
+	 <PUT ,GL-P-ADJW 1 <>>
+	 <PUT ,GL-P-OFW  0 <>>
+	 <PUT ,GL-P-OFW  1 <>>)>
+  <SET OMERGED ,GL-P-MERGED>
+  <SET OWINNER ,GL-WINNER>
+  <SETG GL-P-MERGED			<>>
+  <SETG GL-P-END-ON-PREP	<>>
+  <PUT ,GL-P-PRSO ,K-P-MATCHLEN 0>
+  <PUT ,GL-P-PRSI ,K-P-MATCHLEN 0>
+  <PUT ,GL-P-BUTS ,K-P-MATCHLEN 0>
+  <COND (<AND <ZERO? ,GL-P-QUOT>
+	      <NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>>
+	 <SETG GL-WINNER ,CH-PLAYER>
+	 <RT-SET-GL-PLACE-CUR>
+	 <SETG GL-NOW-LIT? <RT-IS-LIT?>>)>
+  <COND (<MC-T? ,GL-RESERVE-PTR>
+	 <SET PTR ,GL-RESERVE-PTR>
+	 <RT-STUFF ,GL-P-P-LEX ,GL-P-T-LEX>
+	 <COPYT ,GL-P-RIBUF ,GL-P-PIBUF ,K-P-INBUF-SIZE>
+	 <COND (<AND <MC-T? ,GL-DESC-LEVEL>
+		     <EQUAL? ,CH-PLAYER ,GL-WINNER>>
+		<CRLF>)>
+	 <SETG GL-RESERVE-PTR <>>
+	 <SETG GL-P-CONT <>>)
+	(<MC-T? ,GL-P-CONT>
+	 <SET PTR ,GL-P-CONT>
+	 <SETG GL-P-CONT <>>
+	 <COND (<AND <MC-T? ,GL-DESC-LEVEL>
+		     <EQUAL? ,CH-PLAYER ,GL-WINNER>>
+		<CRLF>)>)
+	(T
+	 <SETG GL-WINNER ,CH-PLAYER>
+	 <SETG GL-P-QUOT <>>
+	 <RT-SET-GL-PLACE-CUR>
+	 <SETG GL-NOW-LIT? <RT-IS-LIT?>>
+	 <COND (<BTST <LOWCORE FLAGS> 4>
+		<LOWCORE FLAGS <BAND <LOWCORE FLAGS> -5>>
+		<RT-INIT-SCREEN>)>
+	 <RT-UPDATE-STATUS-LINE>
+	 <COND (,GL-WHERE-TO-PROMPT?
+		<TELL CR "\"Where to, guv'nor?\"" CR>)>
+	 <COND (,GL-WHERE-TO-ORPH?
+		<SETG GL-WINNER ,CH-PLAYER>
+		<RT-ORPHAN-VERB ,W?DRIVE ,ACT?DRIVE>)>
+	 <TELL CR ">">
+	 <PUTB ,GL-P-P-LEX 0 59>
+	 <PUTB ,GL-P-PIBUF 1 0>
+	 <READ ,GL-P-PIBUF ,GL-P-P-LEX>)>
+  <SETG GL-P-LEN <GETB ,GL-P-P-LEX ,K-P-LEXWORDS>>
+  <COND (<EQUAL? <GET ,GL-P-P-LEX .PTR>
+		 ,W?QUOTE
+		 ,W?PERIOD
+		 ,W?THEN
+		 ,W?PLEASE
+		 ,W?SO>
+	 <SET PTR <+ .PTR ,K-P-LEXELEN>>
+	 <SETG GL-P-LEN <- ,GL-P-LEN 1>>)>
+  <SET TMP1 <GET ,GL-P-P-LEX .PTR>>
+  ; "if first word is GO followed by a verb, ignore it"
+  <COND (<AND <L? 1 ,GL-P-LEN>
+	      <EQUAL? <GET ,GL-P-P-LEX .PTR> ,W?GO>
+	      <SET NW <GET ,GL-P-P-LEX <+ .PTR ,K-P-LEXELEN>>>
+	      <WT? .NW ,PS?VERB ;,P1?VERB>>
+	 <SET PTR <+ .PTR ,K-P-LEXELEN>>
+	 <SETG GL-P-LEN <- ,GL-P-LEN 1>>)>
+  <COND (<ZERO? ,GL-P-LEN>
+	 <TELL "[What?]" CR>
+	 <RFALSE>)>
+  <COND (<EQUAL? <GET ,GL-P-P-LEX .PTR> ,W?UNDO>
+	 <V-UNDO>
+	 <RFALSE>)
+	(T
+	 <SETG GL-CAN-UNDO <ISAVE>>
+	 <COND (<EQUAL? ,GL-CAN-UNDO 2>
+		<V-REFRESH>
+		<IFSOUND <SETG SOUND-QUEUED? <>>
+			 <COND (,SOUND-ON?
+				<CHECK-LOOPING>)>>
+		<TELL "[UNDO completed.]" CR>
+		<AGAIN>)>)>
+  <COND (<EQUAL? <GET ,GL-P-P-LEX .PTR> ,W?OOPS W?O>
+	 <COND (<EQUAL? <GET ,GL-P-P-LEX <+ .PTR ,K-P-LEXELEN>>
+			,W?PERIOD ,W?COMMA>
+		<SET PTR <+ .PTR ,K-P-LEXELEN>>
+		<SETG GL-P-LEN <- ,GL-P-LEN 1>>)>
+	 <COND (<NOT <G? ,GL-P-LEN 1>>
+		<TELL "[You cannot use OOPS that way.]" CR>
+		<RFALSE>)
+	       (<GET ,GL-OOPS-TABLE ,K-O-PTR>
+		<COND
+		 (<G? ,GL-P-LEN 2>
+		  <TELL "[Only the first word after OOPS is used.]" CR>)>
+		<PUT ,GL-P-S-LEX <GET ,GL-OOPS-TABLE ,K-O-PTR>
+		     <GET ,GL-P-P-LEX <+ .PTR ,K-P-LEXELEN>>>
+		<SETG GL-WINNER .OWINNER>
+		<RT-INBUF-ADD <GETB ,GL-P-P-LEX <+ <* .PTR ,K-P-LEXELEN> 6>>
+			      <GETB ,GL-P-P-LEX <+ <* .PTR ,K-P-LEXELEN> 7>>
+			      <+ <* <GET ,GL-OOPS-TABLE ,K-O-PTR> ,K-P-LEXELEN> 3>>
+		<RT-STUFF ,GL-P-P-LEX ,GL-P-S-LEX>
+		<SETG GL-P-LEN <GETB ,GL-P-P-LEX ,K-P-LEXWORDS>>
+		<SET PTR <GET ,GL-OOPS-TABLE ,K-O-START>>
+		<COPYT ,GL-OOPS-INBUF ,GL-P-PIBUF ,K-P-INBUF-SIZE>)
+	       (T
+		<PUT ,GL-OOPS-TABLE ,K-O-END <>>
+		<TELL "[There was no word to replace in that sentence.]" CR>
+		<RFALSE>)>)
+	(T
+	 <PUT ,GL-OOPS-TABLE ,K-O-END <>>)>
+  <COND (<EQUAL? <GET ,GL-P-P-LEX .PTR> ,W?AGAIN ,W?G>
+	 <COND (<OR  <MC-T? ,GL-P-ORPH>
+		     <ZERO? ,GL-P-GOOD>
+		     <ZERO? <GETB ,GL-OOPS-INBUF 1>>>
+		<TELL "[You cannot use AGAIN that way.]" CR>
+		<RFALSE>)
+	       (<G? ,GL-P-LEN 1>
+		<COND (<OR <EQUAL? <GET ,GL-P-P-LEX <+ .PTR ,K-P-LEXELEN>>
+				   ,W?PERIOD ,W?COMMA ,W?THEN>
+			   <EQUAL? <GET ,GL-P-P-LEX <+ .PTR ,K-P-LEXELEN>>
+				   ,W?AND>>
+		       <SET PTR <+ .PTR <* 2 ,K-P-LEXELEN>>>
+		       <PUTB ,GL-P-P-LEX ,K-P-LEXWORDS
+			     <- <GETB ,GL-P-P-LEX ,K-P-LEXWORDS> 2>>)
+		      (T
+		       <TELL ,K-DONT-UNDERSTAND-MSG CR>
+		       <RFALSE>)>)
+	       (T
+		<SET PTR <+ .PTR ,K-P-LEXELEN>>
+		<PUTB ,GL-P-P-LEX ,K-P-LEXWORDS 
+		      <- <GETB ,GL-P-P-LEX ,K-P-LEXWORDS> 1>>)>
+	 <COND (<G? <GETB ,GL-P-P-LEX ,K-P-LEXWORDS> 0>
+		<RT-STUFF ,GL-P-T-LEX ,GL-P-P-LEX>
+		<COPYT ,GL-P-PIBUF ,GL-P-RIBUF ,K-P-INBUF-SIZE>
+		<SETG GL-RESERVE-PTR .PTR>)
+	       (T
+		<SETG GL-RESERVE-PTR <>>)>
+	 ; "Following cond per discussion with SWG."
+	 <COND (<RT-VISIBLE? .OWINNER>
+		<SETG GL-WINNER .OWINNER>)
+	       (T
+		<TELL CTHE .OWINNER>
+		<RT-ISNT-ARENT-MSG .OWINNER>
+		<TELL "here anymore." CR>
+		<RFALSE>)>
+	 <SETG GL-P-MERGED .OMERGED>
+	 <COPYT ,GL-OOPS-INBUF ,GL-P-PIBUF ,K-P-INBUF-SIZE>
+	 <RT-STUFF ,GL-P-P-LEX ,GL-P-S-LEX>
+	 <SET CNT -1>
+	 <SET DIR ,GL-AGAIN-DIR>
+	 <COPYT ,GL-P-OTBL ,GL-P-ITBL <* 2 <+ 1 ,K-P-ITBLLEN>>>)
+	(T
+	 ; "This COND created around the SETG per SWG to prevent the number
+	    value from disappearing when the parser orphans something.
+	    I.e. Which # do you mean?"
+	 <COND (<NOT ,GL-P-ORPH>
+		<SETG GL-P-NUMBER -1>)>
+	 <RT-STUFF ,GL-P-S-LEX ,GL-P-P-LEX>
+	 <COPYT ,GL-P-PIBUF ,GL-OOPS-INBUF ,K-P-INBUF-SIZE>
+	 <PUT ,GL-OOPS-TABLE ,K-O-START .PTR>
+	 <PUT ,GL-OOPS-TABLE ,K-O-LENGTH <* 4 ,GL-P-LEN>>
+	 <SET LEN <* 2 <+ .PTR <* ,K-P-LEXELEN
+				  <GETB ,GL-P-P-LEX ,K-P-LEXWORDS>>>>>
+	 <PUT ,GL-OOPS-TABLE ,K-O-END <+ <GETB ,GL-P-P-LEX <- .LEN 1>>
+					 <GETB ,GL-P-P-LEX <- .LEN 2>>>>
+	 <SETG GL-RESERVE-PTR <>>
+	 <SET LEN ,GL-P-LEN>
+	 <SETG GL-P-DIR <>>
+	 <SETG GL-P-NCN 0>
+	 <SETG GL-P-GET-FLAGS 0>
+	 <PUT ,GL-P-ITBL ,K-P-VERBN 0>
+	 <REPEAT ()
+	    <COND (<L? <SETG GL-P-LEN <- ,GL-P-LEN 1>> 0>
+		   <SETG GL-P-QUOT <>>
+		   <RETURN>)
+		  (<OR <MC-T? <SET WRD <GET ,GL-P-P-LEX .PTR>>>
+		       <SET WRD <RT-NUMBER? .PTR>>>
+		   <COND (<0? ,GL-P-LEN>
+			  <SET NW 0>)
+			 (T
+			  <SET NW <GET ,GL-P-P-LEX <+ .PTR ,K-P-LEXELEN>>>)>
+		   <COND (<AND <EQUAL? .WRD ,W?TO>
+			       <EQUAL? .VERB ,ACT?TELL ,ACT?ASK>>
+			  <PUT ,GL-P-ITBL ,K-P-VERB ,ACT?TELL>
+			  <SET WRD ,W?QUOTE>)
+			 (<AND <EQUAL? .WRD ,W?THEN ; ,W?PERIOD>
+			       <G? ,GL-P-LEN 0>
+			       <ZERO? .VERB>
+			       <ZERO? ,GL-P-QUOT>>
+			  <PUT ,GL-P-ITBL ,K-P-VERB ,ACT?TELL>
+			  <PUT ,GL-P-ITBL ,K-P-VERBN 0>
+			  <SET WRD ,W?QUOTE>
+			  <SETG GL-P-ORPH <>> ; "PER SWG 8/28/87")
+			 (<AND <EQUAL? .WRD ,W?PERIOD>
+			       <OR <EQUAL? .LW ,W?MR ,W?MRS ,W?MISS>
+				   <EQUAL? .LW ,W?DR>>>
+			  <SETG GL-P-NCN <- ,GL-P-NCN 1>>
+			  <RT-CHANGE-LEXV .PTR .LW T>
+			  <SET WRD .LW>
+			  <SET LW 0>)>
+		   <COND (<EQUAL? .WRD ,W?THEN ,W?PERIOD ,W?QUOTE>
+			  <COND (<EQUAL? .WRD ,W?QUOTE>
+				 <COND
+				  (<MC-T? ,GL-P-QUOT>
+				   <SETG GL-P-QUOT <>>)
+				  (T
+				   <SETG GL-P-QUOT T>)>)>
+			  <OR <ZERO? ,GL-P-LEN>
+			      <SETG GL-P-CONT <+ .PTR ,K-P-LEXELEN>>>
+			  <PUTB ,GL-P-P-LEX ,K-P-LEXWORDS ,GL-P-LEN>
+			  <RETURN>)
+			 (<AND <SET VAL
+				    <WT? .WRD ,PS?DIRECTION ,P1?DIRECTION>>
+			       <EQUAL? .VERB <> ,ACT?WALK ,ACT?GO>
+			       <OR <EQUAL? .LEN 1>
+				   <AND  <EQUAL? .LEN 2>
+					 <EQUAL? .VERB ,ACT?WALK ,ACT?GO>>
+				   <AND  <EQUAL? .NW ,W?THEN ,W?PERIOD ,W?QUOTE>
+					 <G? .LEN 1 ;2>>
+				   <AND  <MC-T? ,GL-P-QUOT>
+					 <EQUAL? .LEN 2>
+					 <EQUAL? .NW ,W?QUOTE>>
+				   <AND  <G? .LEN 2>
+					 <EQUAL? .NW ,W?COMMA ,W?AND>>>>
+			  <SET DIR .VAL>
+			  <SETG GL-P-DIR-WORD .WRD>
+			  <COND (<EQUAL? .NW ,W?COMMA ,W?AND>
+				 <RT-CHANGE-LEXV <+ .PTR ,K-P-LEXELEN>
+						 ,W?THEN>)>
+			  <COND (<NOT <G? .LEN 2>>
+				 <SETG GL-P-QUOT <>>
+				 <RETURN>)>)
+			 (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
+			       <ZERO? .VERB>>
+			  <SETG GL-P-PRSA-WORD .WRD>
+			  <SET VERB .VAL>
+			  <PUT ,GL-P-ITBL ,K-P-VERB .VAL>
+			  <PUT ,GL-P-ITBL ,K-P-VERBN ,GL-P-VTBL>
+			  <PUT ,GL-P-VTBL 0 .WRD>
+			  <PUTB ,GL-P-VTBL 2 <GETB ,GL-P-P-LEX
+						   <SET TMP1 <+ <* .PTR 2> 2>>>>
+			  <PUTB ,GL-P-VTBL 3 <GETB ,GL-P-P-LEX
+						   <+ .TMP1 1>>>)
+			 (<OR	<SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
+				<EQUAL? .WRD ,W?A ,W?EVERYTHING>
+				<EQUAL? .WRD ,W?BOTH ,W?ALL>
+				<WT? .WRD ,PS?ADJECTIVE <> ,PS?OBJECT>>
+			  <COND
+			   (<AND <G? ,GL-P-LEN 1>
+				 <EQUAL? .NW ,W?OF>
+				 <NOT <EQUAL? .VERB ,ACT?TAKE>>
+				 <ZERO? .VAL>
+				 <NOT <EQUAL? .WRD ,W?A>>
+				 <NOT <EQUAL? .WRD ,W?ALL ,W?BOTH
+					      ,W?EVERYTHING>>>
+			    <PUT ,GL-P-OFW ,GL-P-NCN .WRD>
+			    <SET OF-FLAG T>)
+			   (<AND <MC-T? .VAL>
+				 <OR <ZERO? ,GL-P-LEN>
+				     <EQUAL? .NW ,W?THEN ,W?PERIOD>>>
+			    <SETG GL-P-END-ON-PREP T>
+			    <COND
+			     (<L? ,GL-P-NCN 2>
+			      <PUT ,GL-P-ITBL ,K-P-PREP1 .VAL>
+			      <PUT ,GL-P-ITBL ,K-P-PREP1N .WRD>)>)
+			   (<EQUAL? ,GL-P-NCN 2>
+			    <TELL
+			     "[There are too many nouns in that sentence.]" CR>
+			    <RFALSE>)
+			   (T
+			    <SETG GL-P-NCN <+ ,GL-P-NCN 1>>
+			    <OR <SET PTR <RT-CLAUSE .PTR .VAL .WRD>>
+				<RFALSE>>
+			    <COND
+			     (<L? .PTR 0>
+			      <SETG GL-P-QUOT <>>
+			      <RETURN>)>)>)
+			 (<EQUAL? .WRD ,W?OF>
+			  <COND
+			   (<OR  <ZERO? .OF-FLAG>
+				 <EQUAL? .NW ,W?PERIOD ,W?THEN>>
+			    <RT-DONT-KNOW-WORD-USE-MSG .PTR>
+			    <RFALSE>)
+			   (T
+			    <SET OF-FLAG <>>)>)
+			 (<OR <WT? .WRD ,PS?BUZZ-WORD>
+			      <==? .WRD ,W?MARX>>)
+			 (<AND <EQUAL? .VERB ,ACT?TELL>
+			       <WT? .WRD ,PS?VERB ;,P1?VERB>>
+			  <RT-WAY-TO-TALK-MSG>
+			  <RFALSE>)
+			 (T
+			  <RT-DONT-KNOW-WORD-USE-MSG .PTR>
+			  <RFALSE>)>)
+		  (T
+		   <RT-DONT-KNOW-WORD-MSG .PTR>
+		   <RFALSE>)>
+	    <SET LW .WRD>
+	    <SET PTR <+ .PTR ,K-P-LEXELEN>>>)>
+  <PUT ,GL-OOPS-TABLE ,K-O-PTR <>>
+  <COND
+   (<MC-T? .DIR>
+    <SETG GL-PRSA ,V?WALK>
+    <SETG GL-P-WALK-DIR .DIR>
+    <SETG GL-AGAIN-DIR .DIR>
+    <SETG GL-PRSO .DIR>
+    <SETG GL-P-ORPH <>>
+    <RTRUE>)>
+  <SETG GL-P-WALK-DIR <>>
+  <SETG GL-AGAIN-DIR <>>
+  <COND (<AND <MC-T? ,GL-P-ORPH>
+	      <RT-ORPHAN-MERGE>
+	      <F? ,GL-WHERE-TO-ORPH?>>
+	 <SETG GL-WINNER .OWINNER>)>
+  <COND (<AND <RT-SYNTAX-CHECK>
+	      <RT-SNARF-OBJECTS>
+	      <RT-MANY-CHECK>>
+	 <SET TMP1 <P-SONUMS ,GL-P-SYNTAX>>
+	 <COND (<G? .TMP1 0>
+		<COND (<RT-ITAKE-CHECK ,GL-P-PRSO
+				       <GETB ,GL-P-SYNTAX ,K-P-SLOC1>
+				       T>
+		       <COND (<G? .TMP1 1>
+			      <RT-ITAKE-CHECK ,GL-P-PRSI
+					      <GETB ,GL-P-SYNTAX ,K-P-SLOC2>>)
+			     (T
+			      <RTRUE>)>)>)
+	       (T <RTRUE>)>)>>
+
+;------------------------------------------------------------------------------
+; "RT-WHICH-PRINT"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN)
+	<SET RLEN .LEN>
+	<TELL "Which">
+	<COND
+		(<OR	<MC-T? ,GL-P-ORPH>
+				<MC-T? ,GL-P-MERGED>
+				<MC-T? ,GL-P-AND>
+				>
+					<TELL " ">
+					<PRINTB ,GL-P-NAM>
+		)
+		(<EQUAL? .TBL ,GL-P-PRSO>
+			<RT-CLAUSE-PRINT ,K-P-NC1 ,K-P-NC1L <>>
+		)
+		(T
+			<RT-CLAUSE-PRINT ,K-P-NC2 ,K-P-NC2L <>>
+		)
+	>
+	<TELL " do you mean,">
+	<REPEAT ()
+		<SET TLEN <+ .TLEN 1>>
+		<SET OBJ <GET .TBL .TLEN>>
+		<TELL " " THE .OBJ>
+		<COND
+			(<EQUAL? .LEN 2>
+				<COND
+					(<NOT <EQUAL? .RLEN 2>>
+						<TELL ",">
+					)
+				>
+				<TELL " or">
+			)
+			(<G? .LEN 2>
+				<TELL ",">
+			)
+		>
+		<COND
+			(<L? <SET LEN <- .LEN 1>> 1>
+				<TELL "?" CR>
+				<RETURN>
+			)
+		>
+	>
+>
+
+;------------------------------------------------------------------------------
+; "RT-FIND-NOT-HERE"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-FIND-NOT-HERE (TBL PRSO? "AUX" M-F OBJ)
+	<SET M-F <RT-MOBY-FIND .TBL>>
+	<COND
+		(<ZERO? .M-F>
+			<TELL "[There is no">
+			<RT-NOT-HERE-PRINT .PRSO?>
+			<TELL " in this story.]" CR>
+			<RTRUE>
+		)
+		(<EQUAL? .M-F 1>
+			<COND
+				(<MC-T? .PRSO?>
+					<SETG GL-PRSO ,GL-P-MOBY-FOUND>
+				)
+				(T
+					<SETG GL-PRSI ,GL-P-MOBY-FOUND>
+				)
+			>
+			<RFALSE>
+		)
+		(<AND	<G? .M-F 1>
+				<SET OBJ <APPLY <GETP <SET OBJ <GET .TBL 1>> ,P?GENERIC> .TBL>>
+				>
+					<COND
+						(<EQUAL? .OBJ ,TH-NOT-HERE-OBJECT>
+							<RTRUE>
+						)
+						(<MC-T? .PRSO?>
+							<SETG GL-PRSO .OBJ>
+						)
+						(T
+							<SETG GL-PRSI .OBJ>
+						)
+					>
+					<RFALSE>
+		)
+		(<MC-VERB? ASK-ABOUT TELL-ABOUT ASK-FOR SAY DRIVE CALL MAKE WHO WHAT WHERE FIND FOLLOW TELL PASSWORD>
+			<RFALSE>
+		)
+		(<ZERO? .PRSO?>
+			<RT-CYOU-MSG>
+			<TELL "would not find any">
+			<RT-NOT-HERE-PRINT .PRSO?>
+			<TELL " there." CR>
+			<RTRUE>
+		)
+		(T
+			,TH-NOT-HERE-OBJECT
+		)
+	>
+>
+
+;------------------------------------------------------------------------------
+; "RT-NOT-HERE-PRINT"
+;------------------------------------------------------------------------------
+
+<ROUTINE RT-NOT-HERE-PRINT ("OPTIONAL" (PRSO? <>))
+  <COND (<OR <MC-T? ,GL-P-ORPH>
+	     <MC-T? ,GL-P-MERGED>>
+	 <COND (<MC-T? ,GL-P-XADJ>
+		<PRINTC 32>
+		<PRINTB ,GL-P-XADJ>)>
+	 <COND (<MC-T? ,GL-P-XNAM>
+		<PRINTC 32>
+		<PRINTB ,GL-P-XNAM>)>)
+	(<MC-T? .PRSO?>
+	 <RT-BUFFER-PRINT <GET ,GL-P-ITBL ,K-P-NC1>
+			  <GET ,GL-P-ITBL ,K-P-NC1L> <>>)
+	(T
+	 <RT-BUFFER-PRINT <GET ,GL-P-ITBL ,K-P-NC2>
+			  <GET ,GL-P-ITBL ,K-P-NC2L> <>>)>>
+
+
diff --git a/people.zabstr b/people.zabstr
new file mode 100644
index 0000000..8f6727b
--- /dev/null
+++ b/people.zabstr
@@ -0,0 +1,112 @@
+
+<OBJECT CH-THEM (LOC GLOBAL-OBJECTS) (DESC "them") (FLAGS FL-NOARTC FL-PLURAL)
+(SYNONYM THEM THEMSELVES)> 
+<OBJECT CH-ME (LOC GLOBAL-OBJECTS) (DESC "yourself") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON) (SYNONYM I ME MYSELF BODY SELF) (ADJECTIVE MY)> 
+<OBJECT CH-YOU (LOC GLOBAL-OBJECTS) (DESC "myself") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON) (SYNONYM YOU YOURSELF)> 
+<OBJECT CH-HIM (LOC GLOBAL-OBJECTS) (DESC "him") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON) (SYNONYM HIM HIMSELF)> 
+<OBJECT CH-HER (LOC GLOBAL-OBJECTS) (DESC "her") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON FL-FEMALE) (SYNONYM HER HERSELF)> 
+<OBJECT CH-PLAYER (DESC "you") (FLAGS FL-NOARTC FL-NODESC FL-ALIVE FL-PERSON) (
+SYNONYM DOCTOR WATSON) (ADJECTIVE DOCTOR) (SIZE 99 MASS 0 CAPACITY 60) (
+STRENGTH 999) (DEXTERITY 15) (ACTION RT-AC-CH-PLAYER)> 
+<OBJECT CH-HOLMES (LOC TH-SOFA) (DESC "Holmes") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-ASLEEP FL-HAS-DESCFCN) (SYNONYM HOLMES
+SHERLOCK DETECTIVE FRIEND COMPANION) (ADJECTIVE SHERLOCK) (SIZE 99 CAPACITY 60)
+(STRENGTH 999) (DEXTERITY 10) (ACTION RT-AC-CH-HOLMES)> 
+<OBJECT CH-MATCH-SNIFFING-DOG (LOC RM-MARYLEBONE-RD) (DESC "dog") (FLAGS
+FL-NODESC FL-ALIVE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM DOG) (ADJECTIVE
+TRAINED) (SIZE 15 CAPACITY 15) (ACTION RT-AC-CH-MATCH-SNIFFING-DOG)> 
+<OBJECT CH-TUSSAUDS-GUARD (LOC RM-MARYLEBONE-RD) (DESC "guard") (FLAGS
+FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM GUARD
+) (ADJECTIVE TUSSAUDS) (SIZE 99 CAPACITY 60) (ACTION RT-AC-CH-TUSSAUDS-GUARD)> 
+<OBJECT CH-TRAINED-PIGEON (LOC CH-SHERMAN) (DESC "pigeon") (FLAGS FL-ALIVE
+FL-TAKEABLE FL-HAS-DESCFCN) (SYNONYM PIGEON BIRD) (ADJECTIVE TRAINED) (SIZE 10
+CAPACITY 5 MASS 5) (VALUE 1) (GENERIC RT-GN-PIGEON) (ACTION
+RT-AC-CH-TRAINED-PIGEON)> 
+<OBJECT CH-SHERMAN (LOC RM-SHERMANS-HOUSE) (DESC "Sherman") (FLAGS FL-NODESC
+FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM
+SHERMAN TRAINER) (ADJECTIVE OLD) (SIZE 99 CAPACITY 60) (ACTION RT-AC-CH-SHERMAN
+)> 
+<OBJECT CH-BANK-GUARD (LOC RM-THREADNEEDLE-ST) (DESC "guard") (FLAGS FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC FL-HAS-DESCFCN) (SYNONYM GUARD) (
+ADJECTIVE BANK) (SIZE 99 CAPACITY 60) (ACTION RT-AC-CH-BANK-GUARD)> 
+<OBJECT CH-WIGGINS (LOC RM-THREADNEEDLE-ST) (DESC "Wiggins") (FLAGS FL-NOARTC
+FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC FL-BROKEN FL-HAS-DESCFCN) (
+SYNONYM WIGGINS URCHIN BOY COMPANION) (SIZE 20 CAPACITY 15) (STRENGTH 999) (
+DEXTERITY 10) (CONTFCN RT-AC-CH-WIGGINS) (ACTION RT-AC-CH-WIGGINS)> 
+<OBJECT CH-ELIZA-DOOLITTLE (LOC RM-COVENT-GARDEN) (FLAGS FL-ALIVE FL-PERSON
+FL-FEMALE FL-TRYTAKE FL-NOALL FL-NEEDS-IDENTITY FL-LOSE-IDENTITY FL-ASLEEP
+FL-NODESC FL-HAS-DESCFCN FL-HAS-SDESC) (OBJ-ADJ 0) (OBJ-NOUN 0) (ADJECTIVE HER
+ELIZA\'S GIRL\'S) (SYNONYM ELIZA DOOLITTLE GIRL HEART HEARTBEAT) (SIZE 99
+CAPACITY 10) (VALUE 5) (ACTION RT-AC-CH-ELIZA-DOOLITTLE)> 
+<OBJECT CH-PRIME-MINISTER (DESC "Prime Minister") (FLAGS FL-ALIVE FL-PERSON
+FL-TRYTAKE FL-NOALL FL-NODESC FL-HAS-DESCFCN) (SYNONYM MINISTER OFFICIAL
+VISITOR MAN) (ADJECTIVE PRIME) (SIZE 15) (CONTFCN RT-AC-CH-PRIME-MINISTER) (
+ACTION RT-AC-CH-PRIME-MINISTER)> 
+<OBJECT CH-AKBAR (LOC RM-LAIR) (DESC "Akbar") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM AKBAR) (SIZE 99 CAPACITY
+20) (VALUE 1) (ACTION RT-AC-CH-AKBAR)> 
+<OBJECT CH-MORIARTY (LOC RM-LAIR) (DESC "Moriarty") (FLAGS FL-NOARTC FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM PROFESSOR PROF MORIARTY)
+(ADJECTIVE JAMES PROFESSOR PROF) (SIZE 99 CAPACITY 20) (VALUE 1) (ACTION
+RT-AC-CH-MORIARTY)> 
+<OBJECT CH-HUDSON (LOC RM-ENTRY-HALL) (DESC "Mrs Hudson") (FLAGS FL-NOARTC
+FL-ALIVE FL-PERSON FL-FEMALE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM MRS
+HUDSON HOUSEKEEPER) (ADJECTIVE MRS) (SIZE 99 CAPACITY 99) (CONTFCN
+RT-AC-CH-HUDSON) (ACTION RT-AC-CH-HUDSON)> 
+<OBJECT CH-DENKEEPER (LOC RM-BAR-OF-GOLD) (DESC "denkeeper") (FLAGS FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC FL-HAS-DESCFCN) (SYNONYM DENKEEPER
+PROPRIETOR MAN) (SIZE 99 CAPACITY 20) (ACTION RT-AC-CH-DENKEEPER)> 
+<OBJECT CH-LIBRARIAN (LOC RM-MANUSCRIPT-ROOM) (DESC "lonely librarian") (FLAGS
+FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC) (SYNONYM LIBRARIAN MAN) (
+ADJECTIVE LONELY) (SIZE 99 CAPACITY 99) (ACTION RT-AC-CH-LIBRARIAN)> 
+<OBJECT CH-BUTLER (LOC RM-DIOGENES-CLUB) (DESC "butler") (FLAGS FL-NODESC
+FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL) (SYNONYM BUTLER MAN) (SIZE 99 CAPACITY
+99) (ACTION RT-AC-CH-BUTLER)> 
+<OBJECT CH-NANNIES (LOC RM-KENSINGTON-GARDENS) (DESC "nannies") (FLAGS
+FL-NODESC FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL) (SYNONYM NANNIES) (
+SIZE 99 CAPACITY 99) (ACTION RT-AC-CH-NANNIES)> 
+<OBJECT CH-QUEEN (LOC RM-BUCKINGHAM-PALACE) (DESC "Queen Victoria") (FLAGS
+FL-NOARTC FL-PERSON FL-ALIVE FL-TRYTAKE FL-NOALL FL-FEMALE) (SYNONYM QUEEN
+VICTORIA) (ADJECTIVE QUEEN) (SIZE 99 CAPACITY 99)> 
+<OBJECT CH-HOUSEWIVES (LOC RM-COVENT-GARDEN) (DESC "women") (FLAGS FL-NODESC
+FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM
+HOUSEWIVES WIVES WOMEN PEOPLE CROWDS CROWD SHOPPERS) (SIZE 99 CAPACITY 99) (
+ACTION RT-AC-CH-HOUSEWIVES)> 
+<OBJECT CH-PALACE-GUARD (LOC RM-QUEENS-GARDENS) (DESC "Palace guard") (FLAGS
+FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM GUARD) (
+ADJECTIVE PALACE) (SIZE 99 CAPACITY 20) (ACTION RT-AC-CH-PALACE-GUARD)> 
+<OBJECT CH-URCHINS (LOC RM-THREADNEEDLE-ST) (DESC "urchins") (FLAGS FL-NODESC
+FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM
+URCHINS) (SIZE 99 CAPACITY 99) (ACTION RT-AC-CH-URCHINS)> 
+<OBJECT CH-MEMBERS (LOC RM-DIOGENES-CLUB) (DESC "members") (FLAGS FL-NODESC
+FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM
+MEMBERS) (ADJECTIVE CLUB AGING) (SIZE 99 CAPACITY 99) (ACTION RT-AC-CH-MEMBERS)
+> 
+<DEFINE-ROUTINE RT-LIBRARIAN-SAYS-MSG> 
+<DEFINE-ROUTINE RT-TELL-ABOUT?> 
+<DEFINE-ROUTINE RT-WHO-WHAT-FAIL?> 
+<DEFINE-ROUTINE RT-NO-CONDITION-MSG> 
+<DEFINE-ROUTINE RT-AC-CH-HOLMES> 
+<DEFINE-ROUTINE RT-HOLMES-SAYS-AGRA-MSG> 
+<DEFINE-ROUTINE RT-HOLMES-DESCRIBE-MSG?> 
+<DEFINE-ROUTINE RT-AC-CH-MATCH-SNIFFING-DOG> 
+<DEFINE-ROUTINE RT-AC-CH-TUSSAUDS-GUARD> 
+<DEFINE-ROUTINE RT-PIGEON-PANIC> 
+<DEFINE-ROUTINE RT-PIGEON-FLY> 
+<DEFINE-ROUTINE RT-AC-CH-TRAINED-PIGEON> 
+<DEFINE-ROUTINE RT-AC-CH-SHERMAN> 
+<DEFINE-ROUTINE RT-AC-CH-PRIME-MINISTER> 
+<DEFINE-ROUTINE RT-AC-CH-AKBAR> 
+<DEFINE-ROUTINE RT-AC-CH-MORIARTY> 
+<DEFINE-ROUTINE RT-AC-CH-HUDSON> 
+<DEFINE-ROUTINE RT-AC-CH-DENKEEPER> 
+<DEFINE-ROUTINE RT-AC-CH-LIBRARIAN> 
+<DEFINE-ROUTINE RT-AC-CH-NANNIES> 
+<DEFINE-ROUTINE RT-AC-CH-HOUSEWIVES> 
+<DEFINE-ROUTINE RT-AC-CH-PALACE-GUARD> 
+<DEFINE-ROUTINE RT-AC-CH-URCHINS> 
+<DEFINE-ROUTINE RT-AC-CH-MEMBERS> 
\ No newline at end of file
diff --git a/people.zap b/people.zap
new file mode 100644
index 0000000..fdfbf13
--- /dev/null
+++ b/people.zap
@@ -0,0 +1,1475 @@
+
+
+	.FUNCT	RT-LIBRARIAN-SAYS-MSG
+	FSET?	CH-LIBRARIAN,FL-OPENED /?CCL3
+	PRINTC	34
+	CALL2	RT-PICK-NEXT,GL-LIBRARIAN-TXT1
+	PRINT	STACK
+	PRINTR	"."""
+?CCL3:	PRINTC	34
+	CALL2	RT-PICK-NEXT,GL-LIBRARIAN-TXT2
+	PRINT	STACK
+	PRINTR	""""
+
+
+	.FUNCT	RT-TELL-ABOUT?,PERSON
+	EQUAL?	GL-PRSA,V?ASK-ABOUT \?PRD3
+	EQUAL?	GL-PRSO,PERSON /TRUE
+?PRD3:	EQUAL?	GL-PRSA,V?TELL-ABOUT \?PRD6
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?PRD6
+	EQUAL?	GL-WINNER,PERSON /TRUE
+?PRD6:	EQUAL?	GL-PRSA,V?WHO \?PRD10
+	FSET?	GL-PRSO,FL-PERSON \?PRD10
+	EQUAL?	GL-WINNER,PERSON /TRUE
+?PRD10:	EQUAL?	GL-PRSA,V?WHAT \FALSE
+	EQUAL?	GL-WINNER,PERSON /TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-WHO-WHAT-FAIL?
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \FALSE
+	PRINTR	"""Sorry. I don't know what you're talking about."""
+
+
+	.FUNCT	RT-NO-CONDITION-MSG,PERSON,STR
+	ICALL2	RT-CTHEO-PRINT,PERSON
+	ICALL2	RT-IS-ARE-MSG,PERSON
+	PRINTI	"in no condition to "
+	ZERO?	STR /?CCL3
+	PRINT	STR
+	JUMP	?CND1
+?CCL3:	PRINTI	"respond"
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	RT-AC-CH-HOLMES,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-HOLMES
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	ICALL2	RT-THIS-IS-IT,CH-HOLMES
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL6
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINTR	" is slouched on the sofa, lost in a black mood of despair. He is pale and emaciated, and his sharp eyes burn with fever. He is staring at a phial that he holds in one hand. His free hand rests near a hypodermic syringe in a neat morocco case at his side. You realize that he is fighting a depression brought on by what he calls ""the dull routine of existence."""
+?CCL6:	FSET?	CH-HOLMES,FL-LOCKED \?CCL8
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINT	K-SECURELY-BOUND-MSG
+	JUMP	?CND4
+?CCL8:	FSET?	CH-MORIARTY,FL-LOCKED \?CCL10
+	PRINTI	"Despite his cool exterior, you can tell that Holmes is excited about nearing the end of the chase"
+	JUMP	?CND4
+?CCL10:	IN?	CH-HOLMES,TH-BOAT \?CCL12
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINT	K-SEASICK-MSG
+	JUMP	?CND4
+?CCL12:	IN?	CH-HOLMES,TH-HANSOM-CAB /?CTR13
+	IN?	CH-HOLMES,TH-GROWLER-CAB \?CCL14
+?CTR13:	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINT	K-SITTING-QUIETLY-MSG
+	JUMP	?CND4
+?CCL14:	IN?	CH-HOLMES,TH-SOFA \?CCL18
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINTI	" is sitting on the sofa, gazing intently at you"
+	JUMP	?CND4
+?CCL18:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL,RM-PARLOUR,RM-VESTIBULE /?CTR19
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY,RM-HOLMES-BEDROOM \?CCL20
+?CTR19:	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	CALL2	RT-PICK-NEXT,GL-HOLMES-HOUSE-LOOK-TXT
+	PRINT	STACK
+	JUMP	?CND4
+?CCL20:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL24
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	CALL2	RT-PICK-NEXT,GL-HOLMES-INDOORS-LOOK-TXT
+	PRINT	STACK
+	JUMP	?CND4
+?CCL24:	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	CALL2	RT-PICK-NEXT,GL-HOLMES-OUTDOORS-LOOK-TXT
+	PRINT	STACK
+?CND4:	PRINTC	46
+	CRLF	
+	RETURN	2
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-HOLMES
+	ZERO?	STACK /?CCL26
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL29
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND27
+?CCL29:	SET	'OBJ,GL-PRSI
+?CND27:	CALL2	RT-HOLMES-DESCRIBE-MSG?,OBJ
+	ZERO?	STACK \TRUE
+	PRINTR	"""You must draw your own inferences, Watson."""
+?CCL26:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL34
+	RETURN	2
+?CCL34:	EQUAL?	CONTEXT,K-M-WINNER \?CCL36
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL39
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINT	K-SEEMS-TO-HEAR-MSG
+	CRLF	
+	RTRUE	
+?CCL39:	EQUAL?	GL-PRSA,V?HELLO \?CCL41
+	PRINTR	"Holmes returns your greeting."
+?CCL41:	EQUAL?	GL-PRSA,V?GOODBYE \?CCL43
+	PRINTR	"""Farewell for now, Watson."""
+?CCL43:	EQUAL?	GL-PRSA,V?THANK \?CCL45
+	PRINTR	"""No need for thanks, Watson. The work itself is my reward."""
+?CCL45:	EQUAL?	GL-PRSA,V?WHERE \?CCL47
+	EQUAL?	GL-PRSO,TH-STETHOSCOPE \?CCL50
+	FSET?	TH-STETHOSCOPE,FL-TOUCHED /?CCL50
+	PRINT	K-CUSTOMARILY-KEEP-MSG
+	CRLF	
+	RTRUE	
+?CCL50:	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK /?CCL54
+	PRINTI	"""There's your problem in a nutshell, Watson. You see, but you do not observe. "
+	EQUAL?	GL-PRSO,CH-HOLMES \?CCL57
+	PRINTI	"I am "
+	JUMP	?CND55
+?CCL57:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL59
+	PRINTI	"You are "
+	JUMP	?CND55
+?CCL59:	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+?CND55:	PRINTR	"right here!"""
+?CCL54:	PRINT	K-WORK-OUT-YOURSELF-MSG
+	CRLF	
+	RTRUE	
+?CCL47:	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL61
+	PRINT	K-WORK-OUT-YOURSELF-MSG
+	CRLF	
+	RTRUE	
+?CCL61:	EQUAL?	GL-PRSA,V?YES \?CCL63
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RTRUE	
+?CCL63:	EQUAL?	GL-PRSA,V?NO \?CCL65
+	PRINT	K-PITY-MSG
+	CRLF	
+	RTRUE	
+?CCL65:	EQUAL?	GL-PRSA,V?MAYBE \?CCL67
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RTRUE	
+?CCL67:	EQUAL?	GL-PRSA,V?TAKE \?PRD71
+	EQUAL?	GL-PRSO,TH-BREATH /?CTR68
+?PRD71:	EQUAL?	GL-PRSA,V?INHALE \?CCL69
+?CTR68:	FSET?	TH-BREATH,FL-LOCKED \?CND74
+	PRINTR	"Holmes seems to be holding his breath already."
+?CND74:	PRINTI	"Holmes hears your whispered instruction, and as you draw a deep breath, he surreptitiously does the same."
+	CRLF	
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,2,0
+	ICALL	RT-ALARM-SET-REL,RT-I-EXHALE,STACK
+	FSET	TH-BREATH,FL-LOCKED
+	SET	'GL-CLOCK-WAIT,TRUE-VALUE
+	RTRUE	
+?CCL69:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL77
+	FSET?	CH-HOLMES,FL-LOCKED \?CCL77
+	PRINTR	"Holmes can't do that. He is tied up."
+?CCL77:	EQUAL?	GL-PRSA,V?TAKE,V?WEAR \?CCL81
+	EQUAL?	GL-PRSO,TH-RING /?CTR80
+	EQUAL?	GL-PRSO,TH-ETHERIUM-AMPOULE \?CCL81
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN /?CCL81
+?CTR80:	PRINT	K-PLEASE-KEEP-IT-MSG
+	CRLF	
+	RTRUE	
+?CCL81:	EQUAL?	GL-PRSA,V?RAISE,V?TAKE \?CCL89
+	EQUAL?	GL-PRSO,CH-PLAYER,CH-ME \?CCL89
+	PRINTI	"Holmes struggles to lift you"
+	IN?	CH-PLAYER,TH-BOAT \?CND92
+	PRINTI	", the boat starts to rock violently"
+?CND92:	PRINTR	", then he thinks better of it and abandons the attempt."
+?CCL89:	EQUAL?	GL-PRSA,V?TAKE,V?GUESS,V?DROP /FALSE
+	EQUAL?	GL-PRSA,V?GIVE-SWP /FALSE
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON /?PRD101
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?OPEN,V?SEARCH \?CCL99
+?PRD101:	EQUAL?	GL-PRSO,TH-MAIL \?CCL99
+	PRINTR	"Holmes glances at the envelopes and shrugs. ""They are of no consequence, Watson."""
+?CCL99:	EQUAL?	GL-PRSA,V?PLAY \?CCL105
+	EQUAL?	GL-PRSO,TH-VIOLIN \?CCL105
+	IN?	TH-VIOLIN,CH-HOLMES /?CCL110
+	PRINTI	"Holmes is not holding "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL110:	ICALL2	SOUNDS,S-VIOLIN
+	PRINTR	"Holmes pauses for a moment in meditation, then lifts the violin to his chin and plays a brief, haunting melody whose melancholy notes fill the air with beauty. Then, just as quickly, he is finished."
+?CCL105:	EQUAL?	GL-PRSA,V?GIVE \?CCL112
+	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL112
+	IN?	GL-PRSO,CH-HOLMES \?CCL117
+	MOVE	GL-PRSO,CH-PLAYER
+	PRINTI	"Holmes gives you "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL117:	EQUAL?	GL-PRSO,TH-RING \?CCL119
+	IN?	TH-RING,LOCAL-GLOBALS \?CCL119
+	PRINTR	"Holmes says, ""I haven't mentioned any ring, Watson."""
+?CCL119:	PRINTI	"Holmes says, ""I do not have "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."""
+?CCL112:	EQUAL?	GL-PRSA,V?FOLLOW \?CCL123
+	IN?	CH-HOLMES,TH-SOFA \?CCL126
+	PRINTR	"Holmes says, ""We shouldn't leave until we have spoken with our visitor."""
+?CCL126:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL128
+	PRINTI	"Holmes says, ""Lead the way, Watson."""
+	CRLF	
+	SET	'GL-PUPPY,CH-HOLMES
+	RETURN	GL-PUPPY
+?CCL128:	PRINTR	"Holmes says, ""We should remain together, Watson."""
+?CCL123:	PRINTR	"""Come now, Watson. You must try it yourself."""
+?CCL36:	ZERO?	GL-NOW-PRSI? /?CCL130
+	EQUAL?	GL-PRSA,V?GIVE \?CCL133
+	EQUAL?	GL-PRSO,TH-NEWSPAPER \?CCL136
+	FSET?	CH-HOLMES,FL-ASLEEP /FALSE
+?CCL136:	FSET?	CH-HOLMES,FL-ASLEEP \?CCL140
+	PRINTI	"Holmes glances at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", but it doesn't seem to arouse his interest."
+?CCL140:	FSET?	CH-HOLMES,FL-LOCKED \?CCL142
+	PRINTR	"Holmes's hands aren't free. You can't give him anything."
+?CCL142:	EQUAL?	GL-PRSO,TH-RING /?CTR143
+	EQUAL?	GL-PRSO,TH-ETHERIUM-AMPOULE \?CCL144
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN /?CCL144
+?CTR143:	PRINT	K-PLEASE-KEEP-IT-MSG
+	CRLF	
+	RTRUE	
+?CCL144:	MOVE	GL-PRSO,CH-HOLMES
+	ICALL	RT-CYOU-MSG,STR?711,STR?712
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" to him. He examines it briefly and says, "
+	CALL2	RT-HOLMES-DESCRIBE-MSG?,GL-PRSO
+	ZERO?	STACK \TRUE
+	PRINTR	"""Hmmph."""
+?CCL133:	EQUAL?	GL-PRSA,V?SHOW \FALSE
+	EQUAL?	GL-PRSO,TH-NEWSPAPER \?CCL156
+	FSET?	CH-HOLMES,FL-ASLEEP /FALSE
+?CCL156:	CALL2	RT-HOLMES-DESCRIBE-MSG?,GL-PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"Holmes glances at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", but makes no comment."
+?CCL130:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?DIAGNOSE \?CCL165
+	FSET?	CH-HOLMES,FL-ASLEEP \FALSE
+	PRINTR	"He is in a trance-like state as he stares at the phial. You quickly realize that unless he hears something of interest, he will turn to the deadly drug to relieve his boredom."
+?CCL165:	EQUAL?	GL-PRSA,V?HIT,V?ALARM \?CCL170
+	FSET?	CH-HOLMES,FL-ASLEEP \FALSE
+	PRINT	K-HOLMES-DISTRACTION-MSG
+	CRLF	
+	RTRUE	
+?CCL170:	EQUAL?	GL-PRSA,V?ASK-FOR \?CCL175
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL178
+	PRINTR	"Holmes does not respond."
+?CCL178:	FSET?	CH-HOLMES,FL-LOCKED \?CCL180
+	PRINTR	"Holmes can't give you anything. He is tied up."
+?CCL180:	EQUAL?	GL-PRSI,TH-RING \?CCL182
+	IN?	TH-RING,LOCAL-GLOBALS \?CCL182
+	PRINTR	"Holmes says, ""I haven't mentioned any ring, Watson."""
+?CCL182:	IN?	GL-PRSI,CH-HOLMES \?CCL186
+	MOVE	GL-PRSI,CH-PLAYER
+	PRINTI	"Holmes gives you "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL186:	PRINTI	"Holmes says, ""I do not have "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."""
+?CCL175:	EQUAL?	GL-PRSA,V?TELL-ABOUT \FALSE
+	EQUAL?	GL-PRSI,LG-TOWER,TH-NEWSPAPER,CH-PRIME-MINISTER \?CCL191
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL191
+	FSET	GL-PRSI,FL-HOLMES-TOLD
+	CALL1	RT-WAKE-UP-HOLMES
+	RSTACK	
+?CCL191:	FSET?	CH-HOLMES,FL-ASLEEP \?CCL195
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINT	K-SEEMS-TO-HEAR-MSG
+	CRLF	
+	RTRUE	
+?CCL195:	FSET?	GL-PRSI,FL-HOLMES-TOLD /?CCL197
+	FSET	GL-PRSI,FL-HOLMES-TOLD
+	PRINTR	"Holmes nods thoughtfully and says, ""Most interesting, old fellow."""
+?CCL197:	PRINTI	"""Don't be tedious, Watson. You have mentioned "
+	ICALL2	RT-SAY-HIM-HER-THEM-IT-MSG,GL-PRSI
+	PRINTR	" to me already."""
+
+
+	.FUNCT	RT-HOLMES-SAYS-AGRA-MSG
+	PRINTI	" says, ""It's obviously not one of the Crown Jewels, Watson. In fact, this gem belongs to the Agra treasure, which was stolen in India many years ago and has never been recovered."""
+	CRLF	
+	CRLF	
+	PRINTR	"""The case grows more complex, Watson. We are in more danger than I had at first suspected."" He removes a ring from one of his long, slender fingers and hands it to you. ""Here, Watson. Take this signet ring of mine. If anything should happen to me, take it to my brother Mycroft at the Diogenes Club. He'll tell you what to do."""
+
+
+	.FUNCT	RT-HOLMES-DESCRIBE-MSG?,OBJ,WRD
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINT	K-SEEMS-TO-HEAR-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	FSET?	CH-MORIARTY,FL-LOCKED \?CCL5
+	PRINTR	"""There is no time for questions, Watson. We must get the Crown Jewels to Buckingham Palace before nine o'clock."""
+?CCL5:	EQUAL?	GL-PRSA,V?WHO \?CCL7
+	EQUAL?	GL-PRSO,CH-HOLMES \?CCL7
+	PRINTR	"""Watson, as my biographer, you know me as well as anyone."""
+?CCL7:	EQUAL?	OBJ,CH-MORIARTY \?CCL11
+	FSET?	CH-HOLMES,FL-LOCKED \?CCL14
+	PRINTR	"""He appears to have the upper hand, Watson."""
+?CCL14:	PRINTR	"""He is the Napoleon of crime, Watson. He is the organizer of half that is evil and of nearly all that is undetected in this great city."""
+?CCL11:	CALL	RT-IDENTIFY-EVENT?,W?MYCROFT,OBJ
+	ZERO?	STACK /?CCL16
+	PRINTR	"""Mycroft is my older brother, of whom you have heard me speak. As you know, he is a highly placed official within Her Majesty's government. Because of the confidential nature of his work, you cannot call upon him in his offices. However, he is usually to be found in his club, just off Trafalgar Square."""
+?CCL16:	EQUAL?	OBJ,CH-HOLMES \?CCL18
+	PRINTR	"""I'm well, Watson. Thank you for asking."""
+?CCL18:	EQUAL?	OBJ,CH-PRIME-MINISTER \?CCL20
+	IN?	CH-PRIME-MINISTER,RM-HOLMES-STUDY \?CCL23
+	PRINTR	"""Hush, my friend. Wait until we're alone."""
+?CCL23:	FSET?	CH-PRIME-MINISTER,FL-SEEN /?CCL25
+	PRINTR	"""I haven't seen this visitor of whom you speak, Watson, but surely it is obvious that he has come because the Crown Jewels have been stolen from the Tower of London."""
+?CCL25:	PRINTR	"""Surely you recognized him, old fellow. He is the Prime Minister of England."""
+?CCL20:	EQUAL?	OBJ,CH-QUEEN \?CCL27
+	PRINTR	"""She must be worried, Watson. We must get the gems back for her."""
+?CCL27:	EQUAL?	OBJ,CH-WIGGINS \?CCL29
+	PRINTR	"""Surely you remember him, dear fellow. He is the head of the Baker Street Irregulars."""
+?CCL29:	CALL	RT-IDENTIFY-EVENT?,W?LESTRADE,OBJ
+	ZERO?	STACK /?CCL31
+	PRINTR	"""Be kind to him, Watson. He has delusions of adequacy."""
+?CCL31:	CALL	RT-IDENTIFY-EVENT?,W?THEFT,OBJ
+	ZERO?	STACK /?CCL33
+	PRINTR	"""We must recover the jewels and return them to the Palace. The alternative is too horrible to consider."""
+?CCL33:	EQUAL?	OBJ,TH-CROWN-JEWELS \?CCL35
+	PRINTR	"""We must recover them and return them to the Palace. The alternative is too horrible to consider."""
+?CCL35:	EQUAL?	OBJ,LG-TOWER /?CTR36
+	CALL	RT-IDENTIFY-EVENT?,W?THEFT,OBJ
+	ZERO?	STACK /?CCL37
+?CTR36:	PRINTR	"""The Tower is the safest stronghold in the nation. Our adversary must be formidable indeed."""
+?CCL37:	CALL	RT-IDENTIFY-EVENT?,W?JUBILEE,OBJ
+	ZERO?	STACK /?CCL41
+	PRINTR	"""The Coronation Day festivities begin Monday morning at 9:00. We must recover the Crown Jewels before then."""
+?CCL41:	EQUAL?	OBJ,LG-TOMBS-ABBEY \?CCL43
+	PRINTR	"""It is the burial place of our royalty, Watson. The spiritual centre of the empire."""
+?CCL43:	CALL	RT-IDENTIFY-EVENT?,W?PASSWORD,OBJ
+	ZERO?	STACK /?CCL45
+	FSET?	CH-HOLMES,FL-LOCKED \?CCL48
+	PRINTR	"""Obviously you were able to deduce it without my help, Watson. Good show!"""
+?CCL48:	PRINTR	"""Patience, old fellow. We are not yet in possession of all the facts."""
+?CCL45:	EQUAL?	OBJ,TH-WALL /?CTR49
+	CALL	RT-IDENTIFY-FLOOR?,W?GROUND,OBJ
+	ZERO?	STACK \?CTR49
+	CALL	RT-IDENTIFY-FLOOR?,W?FLOOR,OBJ
+	ZERO?	STACK /?CCL50
+?CTR49:	PRINTR	"""No need to ask about that, old fellow. I'll tell you straight away if I find anything of interest."""
+?CCL50:	CALL	RT-IDENTIFY-FLOOR?,W?SKY,OBJ
+	ZERO?	STACK /?CCL55
+	PRINTI	"Holmes glances up and says, ""It's an uncommonly fine "
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL58
+	PRINTI	"night"
+	JUMP	?CND56
+?CCL58:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL60
+	PRINTI	"morning"
+	JUMP	?CND56
+?CCL60:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,2 \?CCL62
+	PRINTI	"day"
+	JUMP	?CND56
+?CCL62:	PRINTI	"evening"
+?CND56:	PRINTR	", Watson."""
+?CCL55:	EQUAL?	OBJ,TH-STETHOSCOPE \?CCL64
+	FSET?	TH-STETHOSCOPE,FL-TOUCHED /?CCL64
+	PRINT	K-CUSTOMARILY-KEEP-MSG
+	CRLF	
+	RTRUE	
+?CCL64:	CALL	RT-IDENTIFY-EVENT?,W?HENRY,OBJ
+	ZERO?	STACK /?CCL68
+	PRINTR	"""He was the son of John of Gaunt, and the father of Henry V."""
+?CCL68:	CALL	RT-IDENTIFY-EVENT?,W?WELLINGTON,OBJ
+	ZERO?	STACK /?CCL70
+	PRINTR	"""My dear fellow, your memory is fading prematurely. Surely you remember that the Duke of Wellington was the hero of the battle of Waterloo."""
+?CCL70:	CALL	RT-IDENTIFY-EVENT?,W?TOBY,OBJ
+	ZERO?	STACK /?CCL72
+	PRINTI	"""He is a noble hound whose olfactory prowess is unrivaled."
+	FSET?	CH-SHERMAN,FL-SEEN \?CND73
+	PRINTI	" It is unfortunate that he is unavailable to help us in our quest."
+?CND73:	PRINTR	""""
+?CCL72:	CALL	RT-IDENTIFY-EVENT?,W?AGRA,OBJ
+	ZERO?	STACK /?CCL76
+	PRINTR	"""The Agra treasure disappeared during the Sepoy rebellion in India. Clearly it has found its way to London."""
+?CCL76:	CALL	RT-IDENTIFY-EVENT?,W?KIDNAPPING,OBJ
+	ZERO?	STACK /?CCL78
+	BTST	MYCROFT-STATE,4 /?CCL81
+	PRINT	K-NEVER-THEORIZE-MSG
+	CRLF	
+	RTRUE	
+?CCL81:	PRINTR	"""The professor was as surprised as we, Watson. Evidently it was a mistake on the part of one of his minions."""
+?CCL78:	EQUAL?	OBJ,CH-HUDSON \?CCL83
+	PRINTR	"""A splendid housekeeper, Watson, although she worries about me too much."""
+?CCL83:	EQUAL?	OBJ,CH-PLAYER,CH-ME \?CCL85
+	PRINTR	"""Good old Watson! You are the one fixed point in a changing age. I am honoured that you have become my biographer."""
+?CCL85:	EQUAL?	OBJ,TH-PHIAL,TH-SYRINGE,TH-LIQUID \?CCL87
+	PRINTR	"Holmes gives you a grateful look and says, ""We need no longer worry about that, Watson, thanks to your timely intervention."""
+?CCL87:	FSET?	OBJ,FL-SEEN /?CCL89
+	PRINT	K-NEVER-THEORIZE-MSG
+	CRLF	
+	RTRUE	
+?CCL89:	EQUAL?	OBJ,CH-MATCH-SNIFFING-DOG \?CCL91
+	PRINTR	"""It's not the Hound of the Baskervilles. But I certainly wouldn't care to make it angry."""
+?CCL91:	EQUAL?	OBJ,CH-TUSSAUDS-GUARD \?CCL93
+	PRINTR	"""Beyond the obvious facts that he is left-handed, ate kippers for breakfast, and had a poor night's sleep, I can tell you that he is a good, honest workman. Britain could use more like him."""
+?CCL93:	EQUAL?	OBJ,CH-TRAINED-PIGEON \?CCL95
+	PRINTI	"""A fine bird, Watson."
+	CALL2	RT-VISIBLE?,CH-TRAINED-PIGEON
+	ZERO?	STACK /?CND96
+	PRINTI	" Note the broad band on his wing that distinguishes his breed from all others."
+?CND96:	PRINTR	""""
+?CCL95:	EQUAL?	OBJ,CH-SHERMAN \?CCL99
+	PRINTR	"""Oh, he's an old friend of mine. He has an extraordinary bloodhound named Toby who has been of invaluable assistance to me in the past."""
+?CCL99:	EQUAL?	OBJ,CH-BANK-GUARD \?CCL101
+	PRINTR	"""Watch him carefully, Watson. He is a petty criminal on the lowest rung of Moriarty's organization. He's not to be trusted."""
+?CCL101:	EQUAL?	OBJ,CH-AKBAR \?CCL103
+	PRINTR	"""He is the gentleman from India whom we discussed earlier."""
+?CCL103:	EQUAL?	OBJ,CH-DENKEEPER \?CCL105
+	PRINTR	"""Be careful of him Watson. He is one of Moriarty's minions."""
+?CCL105:	EQUAL?	OBJ,CH-LIBRARIAN \?CCL107
+	PRINTR	"""He's just a harmless old fellow who is starved for companionship. It's a wonder he hasn't retired and joined his twin brother who lives in New Zealand."""
+?CCL107:	EQUAL?	OBJ,CH-URCHINS \?CCL109
+	PRINTR	"""They're all members of the Baker Street Irregulars."""
+?CCL109:	EQUAL?	OBJ,CH-VENDOR \?CCL111
+	PRINTR	"""He's harmless enough, although his goods are terribly overpriced."""
+?CCL111:	EQUAL?	OBJ,CH-GROWLER-CABBIE \?CCL113
+	PRINTR	"""He doesn't seem very bright, does he?"""
+?CCL113:	EQUAL?	OBJ,CH-HANSOM-CABBIE \?CCL115
+	PRINTR	"""It's clear that he has a loving wife and that he is a retired marine sergeant. Beyond that I can tell you little."""
+?CCL115:	EQUAL?	OBJ,CH-BUTLER \?CCL117
+	PRINTR	"""He's a supercilious old coot who ought to be stuffed."""
+?CCL117:	EQUAL?	OBJ,CH-NANNIES \?CCL119
+	PRINTR	"""They are the backbone of the empire, Watson."""
+?CCL119:	EQUAL?	OBJ,CH-PALACE-GUARD \?CCL121
+	PRINTR	"""He is obviously one of the Queen's finest - dedicated, loyal, and completely incorruptible."""
+?CCL121:	EQUAL?	OBJ,CH-TOWER-GUARD \?CCL123
+	PRINTR	"""I can tell you little about him, other than that he is incorruptible, he lives near Wandsworth Common, and he once worked in a tin mine."""
+?CCL123:	EQUAL?	OBJ,CH-ELIZA-DOOLITTLE \?CCL125
+	FSET?	CH-ELIZA-DOOLITTLE,FL-ASLEEP \?CCL128
+	PRINTR	"""I bow to your medical expertise, doctor. What is your diagnosis?"""
+?CCL128:	PRINTR	"""You saved her life, Watson. Professor Higgins will be most grateful."""
+?CCL125:	EQUAL?	OBJ,LG-RAVENS \?CCL130
+	PRINTR	"""According to the legend, when the ravens leave the Tower of London, the British Empire will fall."""
+?CCL130:	EQUAL?	OBJ,TH-GUN,TH-TOBACCO,TH-PERSIAN-SLIPPER /?CTR131
+	EQUAL?	OBJ,TH-MAGNIFYING-GLASS,TH-LAMP,TH-BED /?CTR131
+	EQUAL?	OBJ,TH-BEDSIDE-TABLE,TH-PIPE \?CCL132
+?CTR131:	PRINTR	"""Surely you remember it, Watson. Little has changed in the time since you left."""
+?CCL132:	EQUAL?	OBJ,TH-WATSONS-HAT,TH-STETHOSCOPE,TH-POCKET /?CTR136
+	EQUAL?	OBJ,TH-WATSONS-COAT,TH-BLACK-BAG,TH-CAB-WHISTLE \?CCL137
+?CTR136:	PRINTR	"""Other than the obvious fact that it belongs to you, I can tell you nothing."""
+?CCL137:	EQUAL?	OBJ,TH-BLUE-PILL-BOTTLE,TH-BROWN-PILL-BOTTLE,TH-ORANGE-PILL /?CTR140
+	EQUAL?	OBJ,TH-YELLOW-PILL \?CCL141
+?CTR140:	PRINTR	"""Surely you know more about it than I, Doctor."""
+?CCL141:	EQUAL?	OBJ,TH-LAB-EQUIPMENT,TH-ETHERIUM-GAS,TH-ETHERIUM-AMPOULE /?CTR144
+	EQUAL?	OBJ,TH-WORKBENCH \?CCL145
+?CTR144:	PRINTR	"Holmes glances around quickly and then whispers, ""I know I can trust your discretion, Watson, but you must promise to keep this under your hat. I have been conducting secret experiments for the government at Mycroft's request, and I have developed a new knockout gas that I call 'etherium.' It is an extremely powerful derivative of ether, and one ampoule of it will render unconscious an entire room of people for several hours. It has no harmful side effects, but it is highly explosive and extremely dangerous to use near open flames. You may keep it if you wish, but please carry it in a secure place, safe from prying eyes."""
+?CCL145:	EQUAL?	OBJ,TH-CHARLES-STATUE \?CCL149
+	PRINTR	"""He is the only English king to have been beheaded."""
+?CCL149:	EQUAL?	OBJ,TH-WILLIAM-STATUE \?CCL151
+	PRINTR	"""They say when he first came ashore, he stumbled and fell, and his soldiers took it as a bad omen. But then he arose with two fistfuls of sand and shouted, 'See! Already I have taken my kingdom into my grasp.' His men cheered and they marched on to victory at the Battle of Hastings."""
+?CCL151:	EQUAL?	OBJ,TH-WALTER-STATUE \?CCL153
+	PRINTR	"""His chivalry did him no good. Although a favourite of the Queen for many years, his life ended on the executioner's block."""
+?CCL153:	EQUAL?	OBJ,TH-VIOLIN \?CCL155
+	PRINTR	"""It's a Stradivarius."""
+?CCL155:	EQUAL?	OBJ,TH-RING \?CCL157
+	PRINTR	"""It's an heirloom that's been in my family for generations."""
+?CCL157:	EQUAL?	OBJ,TH-TRINKETS \?CCL159
+	PRINTR	"""They've been marked up for the Jubilee. I certainly wouldn't pay full price for them."""
+?CCL159:	EQUAL?	OBJ,TH-WESTMINSTER-CLUE \?CCL161
+	PRINTR	"""Most curious, don't you agree Watson? All thieves unintentionaly leave behind clues that are discernable to the trained eye. But it is highly irregular for a thief to taunt the authorities with an actual message. Especially one with references as obvious as this."""
+?CCL161:	EQUAL?	OBJ,TH-RUBY,TH-EMERALD,TH-SAPPHIRE /?CTR162
+	EQUAL?	OBJ,TH-GARNET,TH-OPAL,TH-TOPAZ \?CCL163
+?CTR162:	BAND	CH-HOLMES-AUX1,K-HOLMES-GEM?
+	ZERO?	STACK /?CCL168
+	PRINTR	"""We have already discussed the significance of these gems, Watson."""
+?CCL168:	FSET?	OBJ,FL-TOUCHED \?CCL170
+	BOR	CH-HOLMES-AUX1,K-HOLMES-GEM? >CH-HOLMES-AUX1
+	MOVE	TH-RING,CH-PLAYER
+	FSET	TH-RING,FL-SEEN
+	FSET	TH-RING,FL-TOUCHED
+	FCLEAR	TH-RING,FL-NODESC
+	PRINTI	"Holmes"
+	ICALL1	RT-HOLMES-SAYS-AGRA-MSG
+	GETP	TH-RING,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-RING,P?VALUE,0
+	RTRUE	
+?CCL170:	PRINTR	"""We haven't had a good enough look at it yet, old fellow."""
+?CCL163:	EQUAL?	OBJ,TH-ASH \FALSE
+	PRINTC	34
+	CALL2	RT-VISIBLE?,TH-ASH
+	ZERO?	STACK /?CND173
+	PRINTI	"Note the characteristic texture, Watson. "
+?CND173:	PRINTI	"It is the ash of a Trichinopoly cigar, which is made from the dark tobacco that grows only in the Madras district of India."
+	CRLF	
+	CRLF	
+	PRINTR	"Unless I miss my guess, Watson, our mastermind friend has joined forces with an Indian accomplice who does his dirty work for him."""
+
+
+	.FUNCT	RT-AC-CH-MATCH-SNIFFING-DOG,CONTEXT
+	ICALL2	RT-THIS-IS-IT,CH-MATCH-SNIFFING-DOG
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CND1
+	ICALL2	RT-CTHEO-PRINT,CH-MATCH-SNIFFING-DOG
+	PRINTR	" glares back at you menacingly."
+?CND1:	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+	ICALL2	RT-CTHEO-PRINT,CH-MATCH-SNIFFING-DOG
+	PRINT	K-GNAWS-MSG
+	CRLF	
+	RTRUE	
+?CCL5:	ZERO?	GL-NOW-PRSI? /?CCL7
+	EQUAL?	GL-PRSA,V?GIVE,V?SHOW \FALSE
+	EQUAL?	GL-PRSO,TH-TOBACCO /?PRD14
+	FSET?	GL-PRSO,FL-BURNABLE \?PRD14
+	FSET?	GL-PRSO,FL-LIGHTED /?CTR9
+?PRD14:	EQUAL?	GL-PRSO,TH-MATCH \?PRD18
+	FSET?	GL-PRSO,FL-BURNABLE /?CTR9
+?PRD18:	EQUAL?	GL-PRSO,TH-LAMP \FALSE
+?CTR9:	ICALL	SOUNDS,S-BARK,S-START,8,4
+	ICALL1	RT-CTHEI-PRINT
+	PRINTI	" barks loudly at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL7:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TOUCH,V?KICK \?CCL25
+	PRINTR	"A quick snap and a glimpse of flashing teeth changes your mind."
+?CCL25:	EQUAL?	GL-PRSA,V?LISTEN \?CCL27
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" growls at you."
+	CRLF	
+	ICALL2	SOUNDS,S-GROWL
+	RTRUE	
+?CCL27:	EQUAL?	GL-PRSA,V?ASK-FOR,V?ASK-ABOUT \?CCL29
+	ICALL2	RT-CTHEO-PRINT,CH-MATCH-SNIFFING-DOG
+	PRINT	K-GNAWS-MSG
+	CRLF	
+	RTRUE	
+?CCL29:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	EQUAL?	GL-PRSO,CH-MATCH-SNIFFING-DOG \FALSE
+	ICALL	RT-CYOU-MSG,STR?713,STR?714
+	PRINTI	"the unfortunate dog. The guard, enraged by this callous behavior, wrestles you to the ground and calls for a policeman. Lestrade pops up out of nowhere and says, ""Tut, tut. Killing a poor defenceless dog now, is it? You should be ashamed of yourself."""
+	CRLF	
+	CRLF	
+	PRINTI	"He hauls you away and enrolls you in a six-month course sponsored by the RSPCA which teaches you to love animals and eat vegetables. You emerge from the course a better man. Unfortunately no one cares because by then the country has gone to the dogs."
+	CRLF	
+	CRLF	
+	ICALL1	RT-QSR
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-TUSSAUDS-GUARD,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-TUSSAUDS-GUARD
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-TUSSAUDS-GUARD
+	PRINTR	" has his collar turned up against the cold. He is pacing back and forth, puffing on a cigarette, and stamping his feet, all in a futile effort to keep warm."
+?CCL3:	EQUAL?	GL-PRSA,V?ASK-FOR \?CCL5
+	EQUAL?	GL-PRSI,TH-CIGARETTE \?CCL5
+	PRINTR	"""Sorry, sir. I'm running low."""
+?CCL5:	EQUAL?	GL-PRSA,V?ASK-ABOUT \?CCL9
+	EQUAL?	GL-PRSI,TH-CIGARETTE \?CCL9
+	PRINTR	"""I'm a chain smoker. Fortunately, the dog doesn't seem to mind."""
+?CCL9:	CALL2	RT-TELL-ABOUT?,CH-TUSSAUDS-GUARD
+	ZERO?	STACK /?CCL13
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL16
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND14
+?CCL16:	SET	'OBJ,GL-PRSI
+?CND14:	PRINT	K-ON-DUTY-MSG
+	CRLF	
+	RTRUE	
+?CCL13:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL18
+	RETURN	2
+?CCL18:	EQUAL?	CONTEXT,K-M-WINNER \?CCL20
+	EQUAL?	GL-PRSA,V?WHERE \?CCL23
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK /?CCL23
+	PRINTR	"""Right here, sir."""
+?CCL23:	EQUAL?	GL-PRSA,V?YES \?CCL27
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RTRUE	
+?CCL27:	EQUAL?	GL-PRSA,V?NO \?CCL29
+	PRINT	K-PITY-MSG
+	CRLF	
+	RTRUE	
+?CCL29:	EQUAL?	GL-PRSA,V?MAYBE \?CCL31
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RTRUE	
+?CCL31:	PRINT	K-ON-DUTY-MSG
+	CRLF	
+	RTRUE	
+?CCL20:	ZERO?	GL-NOW-PRSI? /?CCL33
+	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	CALL	RT-IMPOLITE-MSG,STR?715,STR?716
+	RSTACK	
+?CCL33:	ZERO?	GL-NOW-PRSI? /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-PIGEON-PANIC
+	MOVE	CH-TRAINED-PIGEON,CH-PLAYER
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTR	" flies about in a panic for a few moments and then flies right back into your hands."
+
+
+	.FUNCT	RT-PIGEON-FLY
+	PRINTI	" flies up into the air"
+	EQUAL?	GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \?CND1
+	SET	'CH-TRAINED-PIGEON-AUX3,TH-RED-GLASS
+	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-SHOWN-RUBY
+	ZERO?	STACK /?CCL5
+	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-GET-RUBY
+	ZERO?	STACK /?CCL5
+	PRINTI	", gets "
+	ICALL2	RT-THEO-PRINT,TH-RUBY
+	PRINTC	44
+	SET	'CH-TRAINED-PIGEON-AUX3,TH-RUBY
+	JUMP	?CND1
+?CCL5:	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-SHOWN-RUBY
+	ZERO?	STACK /?CCL9
+	PRINTI	", sees "
+	ICALL2	RT-THEO-PRINT,TH-RUBY
+	PRINTI	" and "
+	ICALL2	RT-A-PRINT,TH-RED-GLASS
+	PRINTI	" that you didn't see, chooses "
+	ICALL2	RT-THEO-PRINT,TH-RED-GLASS
+	PRINTC	44
+	JUMP	?CND1
+?CCL9:	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-GET-RUBY
+	ZERO?	STACK /?CND1
+	PRINTI	", sees "
+	ICALL2	RT-A-PRINT,TH-RED-GLASS
+	PRINTI	" that you didn't see, gets it,"
+?CND1:	ZERO?	CH-TRAINED-PIGEON-AUX3 /?CND11
+	FSET	CH-TRAINED-PIGEON-AUX3,FL-TAKEABLE
+	MOVE	CH-TRAINED-PIGEON-AUX3,CH-TRAINED-PIGEON
+?CND11:	MOVE	CH-TRAINED-PIGEON,GL-PLACE-CUR
+	FSET	CH-TRAINED-PIGEON,FL-NODESC
+	SET	'CH-TRAINED-PIGEON-AUX2,1
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PIGEON-CIRCLE,STACK
+	PRINTR	" and starts to circle high over your head."
+
+
+	.FUNCT	RT-AC-CH-TRAINED-PIGEON,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-TRAINED-PIGEON
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	IN?	CH-TRAINED-PIGEON,CH-SHERMAN \?CCL6
+	ICALL2	DPRINT,CH-SHERMAN
+	PRINTI	" is holding "
+	ICALL2	RT-THEO-PRINT,CH-TRAINED-PIGEON
+	JUMP	?CND4
+?CCL6:	ZERO?	CH-TRAINED-PIGEON-AUX2 \TRUE
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-SHOWN-RUBY
+	ZERO?	STACK /?CCL11
+	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-GET-RUBY
+	ZERO?	STACK /?CCL11
+	PRINTI	" trembles with excitement"
+	JUMP	?CND4
+?CCL11:	ADD	K-PIGEON-SHOWN-RUBY,K-PIGEON-GET-RUBY
+	BAND	CH-TRAINED-PIGEON-AUX1,STACK
+	ZERO?	STACK /?CCL15
+	PRINTI	" looks interested"
+	JUMP	?CND4
+?CCL15:	PRINTI	" doesn't seem interested in anything"
+?CND4:	PRINTR	"."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-TRAINED-PIGEON
+	ZERO?	STACK /?CCL17
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL20
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND18
+?CCL20:	SET	'OBJ,GL-PRSI
+?CND18:	PRINT	K-CONFUSED-MSG
+	CRLF	
+	RTRUE	
+?CCL17:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL22
+	RETURN	2
+?CCL22:	EQUAL?	CONTEXT,K-M-WINNER \?CCL24
+	EQUAL?	GL-PRSA,V?TAKE \?CCL27
+	EQUAL?	GL-PRSO,TH-RUBY \?CCL27
+	ICALL2	RT-THIS-IS-IT,TH-RUBY
+	ICALL2	RT-PIGEON-INTEREST,K-PIGEON-GET-RUBY
+	RTRUE	
+?CCL27:	PRINT	K-CONFUSED-MSG
+	CRLF	
+	RTRUE	
+?CCL24:	EQUAL?	GL-PRSA,V?PUT \?CCL31
+	ZERO?	GL-NOW-PRSI? \?CCL31
+	EQUAL?	GL-PRSI,TH-SHAFT \?CCL36
+	SET	'CH-TRAINED-PIGEON-AUX1,0
+	ICALL1	RT-PIGEON-PANIC
+	RTRUE	
+?CCL36:	EQUAL?	GL-PRSI,TH-POCKET \?CTR37
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL38
+?CTR37:	ICALL1	RT-PIGEON-PANIC
+	RTRUE	
+?CCL38:	PRINTI	"As soon as"
+	ICALL	RT-YOU-MSG,STR?717,STR?718
+	PRINTI	"go of it, the pigeon"
+	ICALL1	RT-PIGEON-FLY
+	RTRUE	
+?CCL31:	EQUAL?	GL-PRSA,V?DROP,V?RELEASE,V?THROW \?CCL42
+	ZERO?	GL-NOW-PRSI? \?CCL42
+	IN?	CH-TRAINED-PIGEON,CH-PLAYER \?CCL47
+	ICALL2	RT-ALARM-CLR,RT-I-PIGEON-LOSE-INTEREST
+	ICALL2	RT-ALARM-CLR,RT-I-PIGEON-IMPATIENT
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL50
+	ICALL1	RT-PIGEON-PANIC
+	SET	'CH-TRAINED-PIGEON-AUX1,0
+	RTRUE	
+?CCL50:	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	ICALL1	RT-PIGEON-FLY
+	RTRUE	
+?CCL47:	ICALL1	RT-CYOU-MSG
+	PRINTR	"would have to be holding the pigeon."
+?CCL42:	EQUAL?	GL-PRSA,V?TAKE \?CCL52
+	ZERO?	CH-TRAINED-PIGEON-AUX2 /?CCL55
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot reach "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL55:	IN?	CH-TRAINED-PIGEON,CH-SHERMAN \FALSE
+	ICALL	RT-IMPOLITE-MSG,STR?715,STR?716
+	RTRUE	
+?CCL52:	EQUAL?	GL-PRSA,V?ASK-FOR \?CCL59
+	ZERO?	GL-NOW-PRSI? /?CCL59
+	ICALL1	RT-GET-PIGEON
+	RTRUE	
+?CCL59:	EQUAL?	GL-PRSA,V?SHOW \?CCL63
+	ZERO?	GL-NOW-PRSI? /?CCL63
+	EQUAL?	GL-PRSO,TH-RUBY \?CCL68
+	ICALL2	RT-THIS-IS-IT,TH-RUBY
+	ICALL2	RT-PIGEON-INTEREST,K-PIGEON-SHOWN-RUBY
+	RTRUE	
+?CCL68:	PRINTI	"The pigeon doesn't seem to be interested in "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL63:	EQUAL?	GL-PRSA,V?KILL,V?SHOOT \?CCL70
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON \?CCL70
+	EQUAL?	GL-PRSI,TH-GUN /?CTR74
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL75
+?CTR74:	CALL	RT-META-IN?,GL-PRSO,CH-PLAYER
+	ZERO?	STACK /?CCL80
+	PRINT	K-DROP-IT-FIRST-MSG
+	CRLF	
+	RTRUE	
+?CCL80:	ZERO?	CH-TRAINED-PIGEON-AUX2 /?CCL83
+	PRINTI	"Flap. Flap. Flap. Thud."
+	CRLF	
+	JUMP	?CND73
+?CCL83:	PRINTI	"You shoot "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" and it dies."
+	CRLF	
+	JUMP	?CND73
+?CCL75:	EQUAL?	GL-PRSI,TH-KNIFE /?CTR84
+	EQUAL?	GL-P-PRSA-WORD,W?STAB \?CCL85
+?CTR84:	ZERO?	CH-TRAINED-PIGEON-AUX2 /?CCL90
+	PRINTI	"You throw "
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" at "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	". Fortunately, it misses and falls on the ground nearby."
+	CRLF	
+	MOVE	GL-PRSI,GL-PLACE-CUR
+	RTRUE	
+?CCL90:	PRINTI	"You slice "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" into luncheon meat and cry out, ""Squab, anyone?"""
+	CRLF	
+	JUMP	?CND73
+?CCL85:	EQUAL?	GL-PRSI,TH-HANDS \?CCL92
+	ZERO?	CH-TRAINED-PIGEON-AUX2 /?CCL95
+	PRINTR	"You can't reach the pigeon."
+?CCL95:	PRINTI	"You throttle the poor bird."
+	CRLF	
+?CND73:	ZERO?	CH-TRAINED-PIGEON-AUX2 /?CND96
+	ZERO?	CH-TRAINED-PIGEON-AUX3 /?CND96
+	MOVE	CH-TRAINED-PIGEON-AUX3,GL-PLACE-CUR
+?CND96:	ICALL1	RT-KILL-PIGEON
+	RTRUE	
+?CCL92:	PRINTI	"You can't kill "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL70:	EQUAL?	GL-PRSA,V?TOUCH \?CCL101
+	ZERO?	GL-NOW-PRSI? \?CCL101
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" coos and nuzzles your hand."
+?CCL101:	EQUAL?	GL-PRSA,V?CALL \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	CALL	RT-META-IN?,CH-TRAINED-PIGEON,GL-WINNER
+	ZERO?	STACK /?CCL110
+	ICALL	RT-CYOU-MSG,STR?705,STR?706
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL110:	ZERO?	CH-TRAINED-PIGEON-AUX2 /?CCL112
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" ignores "
+	EQUAL?	GL-WINNER,CH-PLAYER,CH-ME \?CCL115
+	PRINTI	"you"
+	JUMP	?CND113
+?CCL115:	ICALL2	RT-THEO-PRINT,GL-WINNER
+?CND113:	PRINTR	", intent on its task."
+?CCL112:	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" looks at"
+	ICALL1	RT-YOU-MSG
+	PRINTR	"briefly, then loses interest."
+
+
+	.FUNCT	RT-AC-CH-SHERMAN,CONTEXT,OBJ,OBJ1,P-OBJ,WHO
+	ICALL2	RT-THIS-IS-IT,CH-SHERMAN
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CND1
+	FSET?	CH-SHERMAN,FL-ASLEEP \FALSE
+	PRINTR	"Sherman is quite unconscious."
+?CND1:	SET	'P-OBJ,CH-TRAINED-PIGEON-AUX3
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL7
+	FSET?	CH-SHERMAN,FL-ASLEEP \?CCL7
+	CALL2	RT-NO-CONDITION-MSG,GL-WINNER
+	RSTACK	
+?CCL7:	CALL2	RT-TELL-ABOUT?,CH-SHERMAN
+	ZERO?	STACK /?CCL11
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL14
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND12
+?CCL14:	SET	'OBJ,GL-PRSI
+?CND12:	FSET?	CH-SHERMAN,FL-ASLEEP \?CCL17
+	ICALL2	RT-NO-CONDITION-MSG,CH-SHERMAN
+	RTRUE	
+?CCL17:	EQUAL?	OBJ,CH-TRAINED-PIGEON \?CCL19
+	BAND	CH-TRAINED-PIGEON-AUX1,K-PIGEON-TIRED
+	ZERO?	STACK /?CCL22
+	IN?	P-OBJ,CH-SHERMAN \?CCL25
+	PRINTI	"Sherman says, ""He came back with "
+	ICALL2	RT-A-PRINT,P-OBJ
+	PRINTI	". I don't know where he found it."" He gives you "
+	ICALL2	RT-THEO-PRINT,P-OBJ
+	PRINTC	46
+	CRLF	
+	ICALL2	RT-PIGEON-OBJ,P-OBJ
+	RTRUE	
+?CCL25:	PRINTR	"""He's resting now."""
+?CCL22:	PRINTR	"""He's a wonderful bird. All you have to do is show him something and tell him to get it, and away he goes. The only catch is, he only seems to like things that are red."""
+?CCL19:	CALL	RT-IDENTIFY-EVENT?,W?TOBY,OBJ
+	ZERO?	STACK /?CCL27
+	PRINTR	"""He seems to have a cold, which in his line of work renders him completely useless."""
+?CCL27:	EQUAL?	OBJ,CH-SHERMAN \?CCL29
+	PRINTR	"""I'm well. Thank you for asking."""
+?CCL29:	EQUAL?	OBJ,CH-HOLMES \?CCL31
+	PRINTR	"""Sherlock and me? We've been mates for years."""
+?CCL31:	EQUAL?	OBJ,P-OBJ \?CCL33
+	IN?	P-OBJ,CH-SHERMAN \?CCL33
+	PRINTI	"Sherman says, ""The pigeon came back with "
+	ICALL2	RT-A-PRINT,P-OBJ
+	PRINTI	". I don't know where he found it."" He gives you "
+	ICALL2	RT-THEO-PRINT,P-OBJ
+	PRINTC	46
+	CRLF	
+	ICALL2	RT-PIGEON-OBJ,P-OBJ
+	RTRUE	
+?CCL33:	PRINTI	"""I don't know anything about "
+	ICALL2	RT-THEO-PRINT,OBJ
+	PRINTR	"."""
+?CCL11:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL37
+	RETURN	2
+?CCL37:	EQUAL?	CONTEXT,K-M-WINNER \?CCL39
+	EQUAL?	GL-PRSA,V?TAKE \?CCL39
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON /?CTR38
+	CALL	RT-IDENTIFY-EVENT?,W?TOBY,GL-PRSO
+	ZERO?	STACK /?CCL39
+?CTR38:	SET	'GL-WINNER,CH-PLAYER
+	ICALL	RT-PERFORM,V?ASK-FOR,CH-SHERMAN,GL-PRSO
+	RTRUE	
+?CCL39:	EQUAL?	GL-PRSA,V?ASK-FOR \?PRD48
+	ZERO?	GL-NOW-PRSI? \?PRD48
+	SET	'OBJ1,GL-PRSI
+	ZERO?	OBJ1 \?CTR45
+?PRD48:	EQUAL?	GL-PRSA,V?GIVE \?CCL46
+	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL46
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL46
+	SET	'OBJ1,GL-PRSO
+	ZERO?	OBJ1 /?CCL46
+?CTR45:	FSET?	CH-SHERMAN,FL-ASLEEP \?CCL58
+	ICALL2	RT-NO-CONDITION-MSG,CH-SHERMAN
+	RTRUE	
+?CCL58:	EQUAL?	OBJ1,CH-TRAINED-PIGEON \?CCL60
+	ICALL1	RT-GET-PIGEON
+	RTRUE	
+?CCL60:	CALL	RT-IDENTIFY-EVENT?,W?TOBY,OBJ1
+	ZERO?	STACK /?CCL62
+	PRINTR	"""He's not well enough to work."""
+?CCL62:	EQUAL?	OBJ1,P-OBJ \?CCL64
+	IN?	P-OBJ,CH-SHERMAN \?CCL67
+	PRINTI	"Sherman says, ""Oh, yes. The pigeon came back with "
+	ICALL2	RT-A-PRINT,P-OBJ
+	PRINTI	". I don't know where he found it."" He gives you "
+	ICALL2	RT-THEO-PRINT,P-OBJ
+	PRINTC	46
+	CRLF	
+	ICALL2	RT-PIGEON-OBJ,P-OBJ
+	RTRUE	
+?CCL67:	PRINTR	"""I already gave it to you."""
+?CCL64:	IN?	GL-PRSI,CH-SHERMAN \?CCL69
+	PRINTI	"He gives you "
+	ICALL2	RT-THEO-PRINT,OBJ1
+	PRINTC	46
+	CRLF	
+	MOVE	OBJ1,CH-PLAYER
+	ICALL2	RT-THIS-IS-IT,OBJ1
+	FSET	OBJ1,FL-SEEN
+	FSET	OBJ1,FL-TOUCHED
+	FCLEAR	OBJ1,FL-NODESC
+	RTRUE	
+?CCL69:	PRINTI	"""I don't have "
+	ICALL2	RT-A-PRINT,OBJ1
+	PRINTR	"."""
+?CCL46:	EQUAL?	GL-PRSA,V?TAKE \?CCL71
+	ZERO?	GL-NOW-PRSI? /?CCL71
+	ICALL	RT-IMPOLITE-MSG,STR?715,STR?716
+	RTRUE	
+?CCL71:	EQUAL?	CONTEXT,K-M-WINNER \FALSE
+	EQUAL?	GL-PRSA,V?HELLO \?CCL78
+	PRINTR	"""Hello, Dr Watson."""
+?CCL78:	EQUAL?	GL-PRSA,V?GOODBYE \?CCL80
+	PRINTR	"""Goodbye, Dr Watson."""
+?CCL80:	EQUAL?	GL-PRSA,V?THANK \?CCL82
+	PRINTR	"""You're welcome."""
+?CCL82:	EQUAL?	GL-PRSA,V?GIVE-SWP /FALSE
+	EQUAL?	GL-PRSA,V?YES \?CCL86
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RTRUE	
+?CCL86:	EQUAL?	GL-PRSA,V?WHERE \?CCL88
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK /?CCL88
+	PRINTR	"""Right here, Doctor."""
+?CCL88:	EQUAL?	GL-PRSA,V?NO \?CCL92
+	PRINT	K-PITY-MSG
+	CRLF	
+	RTRUE	
+?CCL92:	EQUAL?	GL-PRSA,V?MAYBE \?CCL94
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RTRUE	
+?CCL94:	ICALL2	RT-CTHEO-PRINT,CH-SHERMAN
+	PRINTR	" says, ""Unfortunately, I won't be able to help you with that."""
+
+
+	.FUNCT	RT-AC-CH-PRIME-MINISTER,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-PRIME-MINISTER
+	EQUAL?	CONTEXT,K-M-CONT \?CCL3
+	PRINTR	"You should be ashamed of yourself."
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTI	"He is an elderly man with bushy eyebrows and muttonchop whiskers."
+	FSET?	CH-PRIME-MINISTER,FL-ASLEEP \?CND6
+	PRINTR	" He is also unconscious, thanks to you."
+?CND6:	CRLF	
+	RTRUE	
+?CCL5:	EQUAL?	CONTEXT,K-M-WINNER \?CCL9
+	FSET?	GL-WINNER,FL-ASLEEP \?CCL9
+	ICALL2	RT-NO-CONDITION-MSG,GL-WINNER
+	RFALSE	
+?CCL9:	CALL2	RT-TELL-ABOUT?,CH-PRIME-MINISTER
+	ZERO?	STACK /?CCL13
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL16
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND14
+?CCL16:	SET	'OBJ,GL-PRSI
+?CND14:	EQUAL?	OBJ,CH-QUEEN \?CCL19
+	PRINTR	"""It was she herself who suggested consulting Mr Holmes."""
+?CCL19:	EQUAL?	OBJ,TH-WESTMINSTER-CLUE \?CCL21
+	PRINTR	"""We are all baffled by it. That is why we have come to Mr Holmes."""
+?CCL21:	EQUAL?	OBJ,LG-TOWER \?CCL23
+	PRINTR	"""Naturally we have closed it until the investigation is terminated. No one has been allowed to leave since the theft was discovered."""
+?CCL23:	EQUAL?	OBJ,CH-HOLMES \?CCL25
+	PRINTR	"""We learned of his talents from his brother, Mycroft."""
+?CCL25:	CALL	RT-IDENTIFY-EVENT?,W?MYCROFT,OBJ
+	ZERO?	STACK /?CCL27
+	PRINTR	"""As you are no doubt aware, his involvement with the government is too sensitive for me to discuss."""
+?CCL27:	EQUAL?	OBJ,CH-HUDSON \?CCL29
+	PRINTR	"""She was good enough to serve me tea while I waited. Splendid woman."""
+?CCL29:	EQUAL?	OBJ,CH-MORIARTY \?CCL31
+	PRINTR	"""I don't believe I'm familiar with that name."""
+?CCL31:	EQUAL?	OBJ,TH-CROWN-JEWELS /?CTR32
+	CALL	RT-IDENTIFY-EVENT?,W?THEFT,OBJ
+	ZERO?	STACK /?CCL33
+?CTR32:	PRINTR	"""If the theft is discovered, the public's faith in this government will be shattered. I shall be forced to resign."""
+?CCL33:	PRINTR	"""Come, Doctor. Let us stick to the essentials."""
+?CCL13:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL37
+	RETURN	2
+?CCL37:	EQUAL?	CONTEXT,K-M-WINNER \FALSE
+	EQUAL?	GL-PRSA,V?YES \?CCL41
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RFALSE	
+?CCL41:	EQUAL?	GL-PRSA,V?NO \?CCL43
+	PRINT	K-PITY-MSG
+	CRLF	
+	RFALSE	
+?CCL43:	EQUAL?	GL-PRSA,V?MAYBE \?CCL45
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RFALSE	
+?CCL45:	PRINTR	"""Surely, Doctor, we should not waste our time on such trivial activities."""
+
+
+	.FUNCT	RT-AC-CH-AKBAR,CONTEXT,HAT,OBJ,WRD,ADJ
+	ICALL2	RT-THIS-IS-IT,CH-AKBAR
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"He is a tall, dark-skinned Indian who wears a white turban."
+?CCL3:	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+	FSET?	GL-WINNER,FL-ASLEEP \?CCL5
+	CALL2	RT-NO-CONDITION-MSG,GL-WINNER
+	RSTACK	
+?CCL5:	CALL2	RT-TELL-ABOUT?,CH-AKBAR
+	ZERO?	STACK /?CCL9
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL12
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND10
+?CCL12:	SET	'OBJ,GL-PRSI
+?CND10:	FSET?	CH-AKBAR,FL-ASLEEP \?CCL15
+	CALL2	RT-NO-CONDITION-MSG,CH-AKBAR
+	RSTACK	
+?CCL15:	PRINTI	"""I know little"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND16
+	PRINTI	", honoured sir"
+?CND16:	PRINTR	". I have only been in your country a short distance."""
+?CCL9:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL19
+	RETURN	2
+?CCL19:	EQUAL?	CONTEXT,K-M-WINNER \?CCL21
+	FSET?	CH-AKBAR,FL-ASLEEP \?CCL24
+	CALL2	RT-NO-CONDITION-MSG,CH-AKBAR
+	RSTACK	
+?CCL24:	EQUAL?	GL-PRSA,V?YES \?CCL26
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RTRUE	
+?CCL26:	EQUAL?	GL-PRSA,V?NO \?CCL28
+	PRINT	K-PITY-MSG
+	CRLF	
+	RTRUE	
+?CCL28:	EQUAL?	GL-PRSA,V?MAYBE \?CCL30
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RTRUE	
+?CCL30:	CALL	RT-NOT-LIKELY-MSG,CH-AKBAR,STR?719
+	RSTACK	
+?CCL21:	ZERO?	GL-NOW-PRSI? \?CCL32
+	EQUAL?	GL-PRSA,V?CALL \?CCL35
+	FSET?	CH-AKBAR,FL-ASLEEP \?CCL38
+	CALL2	RT-NO-CONDITION-MSG,CH-AKBAR
+	RSTACK	
+?CCL38:	PRINTI	"""I am here"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND39
+	PRINTI	", sahib"
+?CND39:	PRINTR	". What is it you wish?"""
+?CCL35:	EQUAL?	GL-PRSA,V?TELL-ABOUT \FALSE
+	GET	GL-P-NAMW,1 >WRD
+	GET	GL-P-ADJW,1 >ADJ
+	FSET?	CH-AKBAR,FL-ASLEEP \?CCL45
+	CALL2	RT-NO-CONDITION-MSG,CH-AKBAR
+	RSTACK	
+?CCL45:	EQUAL?	WRD,W?SWORDFISH,W?PASSWORD,W?HUSH \?CCL47
+	PRINTR	"""Passwords are for others. I must have something tangible."""
+?CCL47:	EQUAL?	WRD,W?GIN \?CCL49
+	PRINTR	"""No thank you. My religion forbids alcoholic beverages."""
+?CCL49:	CALL	RT-IDENTIFY-EVENT?,W?PASSWORD,GL-PRSI
+	ZERO?	STACK /?CCL51
+	PRINTR	"""She sounds interesting. Can she make curried mongoose?"""
+?CCL51:	EQUAL?	GL-PRSI,TH-GARNET \?CCL53
+	PRINTR	"""I must see it before I believe it."""
+?CCL53:	EQUAL?	GL-PRSI,TH-ASH \?CCL55
+	PRINTR	"Akbar hesitates, then says, ""I do not know what you are talking about."""
+?CCL55:	PRINTC	34
+	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSI
+	PRINTR	"interest me."""
+?CCL32:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?GIVE,V?SHOW \FALSE
+	EQUAL?	GL-PRSO,TH-GARNET \FALSE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,50,0
+	ICALL	RT-ALARM-SET-REL,RT-I-OUT-OF-TIME,STACK
+	FSET?	TH-WATSONS-HAT,FL-WORN /?PRD63
+	PUSH	0
+	JUMP	?PRD64
+?PRD63:	PUSH	1
+?PRD64:	SET	'HAT,STACK
+	CALL	RT-META-IN?,TH-BOX-KEY,CH-PLAYER
+	ZERO?	STACK /?CND65
+	REMOVE	TH-BOX-KEY
+?CND65:	ICALL	RT-MOVE-ALL,CH-PLAYER,RM-LAIR
+	ICALL	RT-MOVE-ALL,TH-LAPEL,RM-LAIR
+	ICALL	RT-MOVE-ALL,TH-POCKET,RM-LAIR
+	ICALL	RT-MOVE-ALL,TH-WATSONS-COAT,RM-LAIR
+	ICALL	RT-MOVE-ALL,TH-EARS,RM-LAIR
+	MOVE	TH-LAPEL,TH-WATSONS-COAT
+	MOVE	TH-POCKET,TH-WATSONS-COAT
+	MOVE	TH-WATSONS-COAT,CH-PLAYER
+	ZERO?	HAT /?CCL69
+	MOVE	TH-WATSONS-HAT,CH-PLAYER
+	JUMP	?CND67
+?CCL69:	FCLEAR	TH-WATSONS-HAT,FL-WORN
+?CND67:	FCLEAR	TH-CAB-WHISTLE,FL-WORN
+	FCLEAR	TH-STETHOSCOPE,FL-WORN
+	MOVE	CH-AKBAR,RM-LAIR
+	REMOVE	CH-WIGGINS
+	PRINTI	"Akbar takes "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" and examines it closely. Then he "
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CCL72
+	PRINTI	"says, ""I must ask you to come with me, sir. But first, I ask that you give me all that you carry."" He takes everything you give him, and then apologizes as he places a blindfold over your eyes. He"
+	JUMP	?CND70
+?CCL72:	PRINTI	"grabs you by the arm and drags you into a back room. He frisks you and takes away everything you are carrying. Then he blindfolds you and"
+?CND70:	PRINTI	" leads you down a series of long winding corridors. You hear a door close behind you, and when he finally removes the blindfold, you are standing in Moriarty's lair. Akbar locks the door behind you, drops the key on Moriarty's desk, and piles most of what you were carrying onto the floor."
+	CRLF	
+	ICALL2	RT-UPDATE-SCORE,5
+	CRLF	
+	CALL2	RT-GOTO,RM-LAIR
+	RSTACK	
+
+
+	.FUNCT	RT-AC-CH-MORIARTY,CONTEXT,OBJ,WRD,ADJ,OFF
+	ICALL2	RT-THIS-IS-IT,CH-MORIARTY
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The Professor has a high domed forehead that rises above heavily lidded, almost reptilian eyes."
+?CCL3:	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+	FSET?	GL-WINNER,FL-ASLEEP \?CCL5
+	CALL2	RT-NO-CONDITION-MSG,GL-WINNER
+	RSTACK	
+?CCL5:	CALL2	RT-TELL-ABOUT?,CH-MORIARTY
+	ZERO?	STACK /?CCL9
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL12
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND10
+?CCL12:	SET	'OBJ,GL-PRSI
+?CND10:	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL15
+	SET	'OFF,0
+	JUMP	?CND13
+?CCL15:	SET	'OFF,1
+?CND13:	GET	GL-P-NAMW,OFF >WRD
+	GET	GL-P-ADJW,OFF >ADJ
+	FSET?	CH-MORIARTY,FL-ASLEEP \?CCL18
+	CALL2	RT-NO-CONDITION-MSG,CH-MORIARTY
+	RSTACK	
+?CCL18:	FSET?	CH-MORIARTY,FL-LOCKED \?CCL20
+	PRINTR	"The Professor's cold, reptilian eyes glare at you in silent hatred."
+?CCL20:	EQUAL?	OBJ,CH-MORIARTY \?CCL22
+	PRINTR	"""I am a mathematical machine, Doctor. I think. I plan. And as you and the 'great' Sherlock Holmes have now learned, all who oppose me suffer inexorable destruction."""
+?CCL22:	EQUAL?	OBJ,CH-HOLMES,CH-BANK-GUARD /?CTR23
+	CALL	RT-IDENTIFY-EVENT?,W?KIDNAPPING,OBJ
+	ZERO?	STACK /?CCL24
+?CTR23:	PRINTR	"""Holmes is a worthy adversary, Doctor. And his kidnapping was purely accidental. It was nothing more than a blunder on the part of an overeager subordinate. The guard at the bank knew nothing of my plan. He merely saw a chance to capture and deliver to me the famous Sherlock Holmes, and he took it."""
+?CCL24:	EQUAL?	OBJ,CH-AKBAR \?CCL28
+	PRINTR	"""A trusted associate who was sensible enough to see the advantages of joining forces with me."""
+?CCL28:	EQUAL?	OBJ,TH-CROWN-JEWELS /?CTR29
+	CALL	RT-IDENTIFY-EVENT?,W?THEFT,OBJ
+	ZERO?	STACK /?CCL30
+?CTR29:	EQUAL?	OBJ,TH-CROWN-JEWELS \?CCL35
+	PRINTI	"""Pretty, are they not? I purloined them"
+	JUMP	?CND33
+?CCL35:	PRINTI	"I purloined the Crown Jewels"
+?CND33:	PRINTR	" at the request of a foreign government whose identity need not concern you. My clients care nothing about the Crown Jewels themselves - they wish only to undermine confidence in the British monarchy as a first step towards weakening and ultimately destroying the British Empire."""
+?CCL30:	EQUAL?	OBJ,TH-SAPPHIRE,TH-EMERALD,TH-RUBY /?CTR36
+	EQUAL?	OBJ,TH-OPAL,TH-GARNET,TH-TOPAZ /?CTR36
+	CALL	RT-IDENTIFY-EVENT?,W?AGRA,OBJ
+	ZERO?	STACK /?CCL37
+?CTR36:	PRINTR	"""Merely bait to be used in the hunting of a greater prey."""
+?CCL37:	EQUAL?	OBJ,CH-QUEEN \?CCL42
+	PRINTR	"""A foolish old woman. Her empire deserves to fail."""
+?CCL42:	PRINTI	"""Your lives and the fate of your precious monarchy hang in the balance, Doctor. Have you nothing better to do than to query me about "
+	ICALL2	RT-THEO-PRINT,OBJ
+	PRINTR	"?"""
+?CCL9:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL44
+	RETURN	2
+?CCL44:	EQUAL?	CONTEXT,K-M-WINNER \?CCL46
+	FSET?	CH-MORIARTY,FL-ASLEEP \?CCL49
+	CALL2	RT-NO-CONDITION-MSG,CH-MORIARTY
+	RSTACK	
+?CCL49:	EQUAL?	GL-PRSA,V?YES \?CCL51
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RTRUE	
+?CCL51:	EQUAL?	GL-PRSA,V?NO \?CCL53
+	PRINT	K-PITY-MSG
+	CRLF	
+	RTRUE	
+?CCL53:	EQUAL?	GL-PRSA,V?MAYBE \?CCL55
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RTRUE	
+?CCL55:	ICALL	RT-NOT-LIKELY-MSG,CH-MORIARTY,STR?719
+	RTRUE	
+?CCL46:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-HUDSON,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-HUDSON
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL6
+	PRINTR	"Mrs Hudson appears agitated. She looks at you and says, ""Mr Holmes is upstairs, Doctor. Please see what you can do for him."""
+?CCL6:	PRINTR	"Mrs Hudson appears happy that things are back to normal."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-HUDSON
+	ZERO?	STACK /?CCL8
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL11
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND9
+?CCL11:	SET	'OBJ,GL-PRSI
+?CND9:	FSET?	CH-HOLMES,FL-ASLEEP \?CCL14
+	EQUAL?	OBJ,CH-HOLMES \?CCL17
+	PRINTR	"""He doesn't eat. He doesn't drink. He doesn't read the newspaper. I'm very worried about him."""
+?CCL17:	EQUAL?	OBJ,CH-PRIME-MINISTER \?CCL19
+	PRINTR	"""He seems very worried. I gave him some tea."""
+?CCL19:	ICALL2	RT-CTHEO-PRINT,CH-HUDSON
+	PRINTR	" wrings her hands and looks at you anxiously. ""I'm too worried to think, Doctor. Won't you see what you can do for Mr Holmes?"""
+?CCL14:	EQUAL?	OBJ,CH-HOLMES \?CCL22
+	PRINTR	"""He seems much better now, Doctor. Thank you so much."""
+?CCL22:	PRINTR	"""Shouldn't you be asking Mr Holmes?"""
+?CCL8:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL24
+	RETURN	2
+?CCL24:	EQUAL?	CONTEXT,K-M-WINNER \FALSE
+	EQUAL?	GL-PRSA,V?HELLO \?CCL29
+	PRINTR	"""Hello, Dr Watson."""
+?CCL29:	EQUAL?	GL-PRSA,V?GOODBYE \?CCL31
+	PRINTR	"""Goodbye, Dr Watson."""
+?CCL31:	EQUAL?	GL-PRSA,V?YES \?CCL33
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RTRUE	
+?CCL33:	EQUAL?	GL-PRSA,V?NO \?CCL35
+	PRINT	K-PITY-MSG
+	CRLF	
+	RTRUE	
+?CCL35:	EQUAL?	GL-PRSA,V?MAYBE \?CCL37
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RTRUE	
+?CCL37:	EQUAL?	GL-PRSA,V?THANK \?CCL39
+	PRINTR	"""You're quite welcome, Dr Watson."""
+?CCL39:	FSET?	CH-HOLMES,FL-ASLEEP \?CCL41
+	PRINTR	"""I'm sorry Doctor, but I cannot do anything for you until you have attended to Mr Holmes."""
+?CCL41:	PRINTR	"""I'm sorry. I must get back to my other duties."""
+
+
+	.FUNCT	RT-AC-CH-DENKEEPER,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-DENKEEPER
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"He is a scrawny character with a weasel-like face and shifty eyes."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-DENKEEPER
+	ZERO?	STACK /?CCL5
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL8
+	SET	'OBJ,GL-PRSO
+	RFALSE	
+?CCL8:	SET	'OBJ,GL-PRSI
+	RFALSE	
+?CCL5:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL10
+	RETURN	2
+?CCL10:	EQUAL?	GL-PRSA,V?CALL \?PRD14
+	EQUAL?	GL-PRSO,CH-AKBAR /?CTR11
+?PRD14:	EQUAL?	GL-PRSA,V?ASK-FOR,V?ASK-ABOUT \?CCL12
+	EQUAL?	GL-PRSI,CH-AKBAR \?CCL12
+?CTR11:	FSET?	CH-AKBAR,FL-SEEN \?CTR20
+	IN?	CH-AKBAR,RM-BAR-OF-GOLD /?CCL21
+?CTR20:	ICALL2	RT-CTHEO-PRINT,CH-DENKEEPER
+	PRINTI	" gives"
+	ICALL1	RT-YOU-MSG
+	PRINTR	"a sideways look and says, ""He might be here, and then again he might not. What's the password?"""
+?CCL21:	ICALL2	RT-CTHEO-PRINT,CH-DENKEEPER
+	PRINTR	" says, ""He's right there in front of you."""
+?CCL12:	EQUAL?	GL-PRSA,V?GIVE \?CCL25
+	FCLEAR	GL-PRSO,FL-WORN
+	REMOVE	GL-PRSO
+	PRINTI	"The denkeeper gives you a quick look of surprise, then he shrugs his shoulders and disappears briefly into a back room, returning moments later without "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL25:	EQUAL?	CONTEXT,K-M-WINNER \FALSE
+	EQUAL?	GL-PRSA,V?SWORDFISH,V?PASSWORD /FALSE
+	ICALL	RT-NOT-LIKELY-MSG,CH-DENKEEPER,STR?719
+	RTRUE	
+
+
+	.FUNCT	RT-AC-CH-LIBRARIAN,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-LIBRARIAN
+	CALL2	RT-TELL-ABOUT?,CH-LIBRARIAN
+	ZERO?	STACK /?CCL3
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL6
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND4
+?CCL6:	SET	'OBJ,GL-PRSI
+?CND4:	PRINTR	"""Let me finish telling you about this first."""
+?CCL3:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL8
+	RETURN	2
+?CCL8:	EQUAL?	CONTEXT,K-M-WINNER \?CCL10
+	EQUAL?	GL-PRSA,V?HUSH /?CCL10
+	PRINTR	"""I will in a moment, but first let me finish telling you about this."""
+?CCL10:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-NANNIES,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-NANNIES
+	CALL2	RT-TELL-ABOUT?,CH-NANNIES
+	ZERO?	STACK /?CCL3
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL6
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND4
+?CCL6:	SET	'OBJ,GL-PRSI
+?CND4:	PRINT	K-TOO-HAUGHTY-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL8
+	RETURN	2
+?CCL8:	EQUAL?	CONTEXT,K-M-WINNER \?CCL10
+	PRINT	K-TOO-HAUGHTY-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-HOUSEWIVES,CONTEXT,OBJ
+	ICALL2	RT-THIS-IS-IT,CH-HOUSEWIVES
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	IN?	CH-ELIZA-DOOLITTLE,RM-COVENT-GARDEN \?CCL6
+	PRINTR	"The women have gathered in a circle around the girl. They keep looking at you as if they expect you to do something."
+?CCL6:	PRINTR	"The housewives mill among the stalls, haggling with merchants over prices and looking for bargains."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-HOUSEWIVES
+	ZERO?	STACK /?CCL8
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT \?CCL11
+	SET	'OBJ,GL-PRSO
+	JUMP	?CND9
+?CCL11:	SET	'OBJ,GL-PRSI
+?CND9:	PRINTR	"The women do not respond."
+?CCL8:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL13
+	RETURN	2
+?CCL13:	EQUAL?	CONTEXT,K-M-WINNER \?CCL15
+	IN?	CH-ELIZA-DOOLITTLE,RM-COVENT-GARDEN \?CCL18
+	PRINTR	"The women are too upset about the girl to respond."
+?CCL18:	PRINTR	"The housewives, intent on a bargain, ignore you."
+?CCL15:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?LISTEN \FALSE
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" are making a lot of noise."
+
+
+	.FUNCT	RT-AC-CH-PALACE-GUARD,CONTEXT
+	ICALL2	RT-THIS-IS-IT,CH-PALACE-GUARD
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTI	"Looks like any other "
+	ICALL2	DPRINT,CH-PALACE-GUARD
+	PRINTR	"."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-PALACE-GUARD
+	ZERO?	STACK \?CTR4
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+?CTR4:	ICALL2	RT-CTHEO-PRINT,CH-PALACE-GUARD
+	PRINTR	" stares straight ahead."
+?CCL5:	CALL1	RT-WHO-WHAT-FAIL?
+	ZERO?	STACK /?CCL9
+	RETURN	2
+?CCL9:	EQUAL?	GL-PRSA,V?GIVE,V?SHOW \?PRD12
+	EQUAL?	GL-PRSO,TH-CROWN-JEWELS /?CCL10
+?PRD12:	EQUAL?	CONTEXT,K-M-WINNER \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	EQUAL?	GL-PRSO,TH-CROWN-JEWELS \FALSE
+?CCL10:	ICALL2	RT-CTHEO-PRINT,CH-PALACE-GUARD
+	PRINTI	" examines the regalia closely and then disappears inside the palace. Moments later, he reappears with the Prime Minister, who quickly ushers you and Holmes into the presence of the Queen."
+	CRLF	
+	CRLF	
+	PRINTI	"Overcome by emotion, for a few moments she says nothing. Finally she smiles and says, ""Once again, Mr Holmes, we find ourselves in your debt. Until now you have always refused our offers of gratitude. Do you intend to refuse your Queen yet again?"""
+	CRLF	
+	CRLF	
+	PRINTI	"Holmes returns her smile. ""I do, Your Majesty. But only because your thanks would be misdirected. It is Doctor Watson here who deserves your gratitude."""
+	CRLF	
+	CRLF	
+	PRINTI	"The Queen turns her gaze towards you. ""Indeed? And what reward would you ask of us, Doctor?"""
+	CRLF	
+	CRLF	
+	PRINTI	"Flustered, you stammer something about the service itself being reward enough, and before you know it you have been royally thanked and ushered back out of the palace into Queens Gardens. There, you and Holmes join the cheering multitudes who greet the Queen when, promptly at 9:00 and wearing the full regalia, she steps onto the balcony to begin the Coronation Day festivities."
+	CRLF	
+	ICALL	SOUNDS,S-FANFARE,S-START,8,1,END-FANFARE
+	ICALL2	RT-UPDATE-SCORE,1
+	CRLF	
+	PRINTI	"[Your score is "
+	PRINTN	GL-SCORE-CUR
+	PRINTI	" out of "
+	PRINTN	GL-SCORE-MAX
+	PRINTI	", which earns you a ranking of "
+	CALL2	RT-RANK-STR,GL-SCORE-CUR
+	PRINT	STACK
+	PRINTI	".]"
+	CRLF	
+	CRLF	
+	ICALL1	RT-UPDATE-STATUS-LINE
+	ICALL1	RT-QSR
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-URCHINS,CONTEXT
+	ICALL2	RT-THIS-IS-IT,CH-URCHINS
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL6
+	PRINTI	"Despite the hour, the"
+	JUMP	?CND4
+?CCL6:	PRINTI	"The"
+?CND4:	PRINTI	" urchins are playing games in the street."
+	CRLF	
+	FSET?	CH-WIGGINS,FL-BROKEN \FALSE
+	CRLF	
+	PRINT	K-URCHIN-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-URCHINS
+	ZERO?	STACK \?CTR10
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL11
+?CTR10:	ICALL2	RT-CTHEO-PRINT,CH-URCHINS
+	PRINTR	" ignore you."
+?CCL11:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-MEMBERS,CONTEXT
+	ICALL2	RT-THIS-IS-IT,CH-MEMBERS
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-MEMBERS
+	PRINTR	" are all asleep."
+?CCL3:	CALL2	RT-TELL-ABOUT?,CH-MEMBERS
+	ZERO?	STACK \?CTR4
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+?CTR4:	ICALL2	RT-CTHEO-PRINT,CH-MEMBERS
+	PRINTR	" are all asleep."
+?CCL5:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?ALARM \?CCL14
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't. No one can."
+?CCL14:	EQUAL?	GL-PRSA,V?LISTEN \FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-MEMBERS
+	PRINTR	" are all asleep."
+
+	.ENDI
diff --git a/people.zil b/people.zil
new file mode 100644
index 0000000..b6f23f5
--- /dev/null
+++ b/people.zil
@@ -0,0 +1,1782 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : PEOPLE1.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   23 Oct 1987 20:09:34  $"
+; "rev  : $Revision:   1.26  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<OBJECT CH-THEM
+   (LOC GLOBAL-OBJECTS)
+   (DESC "them")
+   (FLAGS FL-NOARTC FL-PLURAL)
+   (SYNONYM THEM THEMSELVES)>
+
+<OBJECT CH-ME
+   (LOC GLOBAL-OBJECTS)
+   (DESC "yourself")
+   (FLAGS FL-NOARTC FL-ALIVE FL-PERSON)
+   (SYNONYM I ME MYSELF BODY SELF)
+   (ADJECTIVE MY)>
+
+<OBJECT CH-YOU
+   (LOC GLOBAL-OBJECTS)
+   (DESC "myself")
+   (FLAGS FL-NOARTC FL-ALIVE FL-PERSON)
+   (SYNONYM YOU YOURSELF)>
+
+<OBJECT CH-HIM
+   (LOC GLOBAL-OBJECTS)
+   (DESC "him")
+   (FLAGS FL-NOARTC FL-ALIVE FL-PERSON)
+   (SYNONYM HIM HIMSELF)>
+
+<OBJECT CH-HER
+   (LOC GLOBAL-OBJECTS)
+   (DESC "her")
+   (FLAGS FL-NOARTC FL-ALIVE FL-PERSON FL-FEMALE)
+   (SYNONYM HER HERSELF)>
+
+<OBJECT CH-PLAYER
+   (DESC "you")
+   (FLAGS FL-NOARTC FL-NODESC FL-ALIVE FL-PERSON)
+   (SYNONYM DOCTOR WATSON)
+   (ADJECTIVE DOCTOR)
+   (SIZE 99 MASS 0 CAPACITY 60)
+   (STRENGTH 999)
+   (DEXTERITY 15)
+   (ACTION RT-AC-CH-PLAYER)>
+
+<OBJECT CH-HOLMES
+   (LOC TH-SOFA)
+   (DESC "Holmes")
+   (FLAGS FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-ASLEEP
+    	  FL-HAS-DESCFCN)
+   (SYNONYM HOLMES SHERLOCK DETECTIVE FRIEND COMPANION)
+   (ADJECTIVE SHERLOCK)
+   (SIZE 99 CAPACITY 60)
+   (STRENGTH 999)
+   (DEXTERITY 10)
+   (ACTION RT-AC-CH-HOLMES)>
+
+<OBJECT CH-MATCH-SNIFFING-DOG
+	(LOC RM-MARYLEBONE-RD)
+	(DESC "dog")
+	(FLAGS FL-NODESC FL-ALIVE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+	(SYNONYM DOG)
+	(ADJECTIVE TRAINED)
+	(SIZE 15 CAPACITY 15)
+	(ACTION RT-AC-CH-MATCH-SNIFFING-DOG)>
+
+<OBJECT CH-TUSSAUDS-GUARD
+	(LOC RM-MARYLEBONE-RD)
+	(DESC "guard")
+	(FLAGS FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL
+	       FL-HAS-DESCFCN)
+	(SYNONYM GUARD)
+	(ADJECTIVE TUSSAUDS)
+	(SIZE 99 CAPACITY 60)
+	(ACTION RT-AC-CH-TUSSAUDS-GUARD)>
+
+<OBJECT CH-TRAINED-PIGEON
+	(LOC CH-SHERMAN)
+	(DESC "pigeon")
+	(FLAGS FL-ALIVE FL-TAKEABLE FL-HAS-DESCFCN)
+	(SYNONYM PIGEON BIRD)
+	(ADJECTIVE TRAINED)
+	(SIZE 10 CAPACITY 5 MASS 5)
+	(VALUE 1)
+	(GENERIC RT-GN-PIGEON)
+	(ACTION RT-AC-CH-TRAINED-PIGEON)>
+
+<OBJECT CH-SHERMAN
+	(LOC RM-SHERMANS-HOUSE)
+	(DESC "Sherman")
+	(FLAGS FL-NODESC FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL
+	       FL-HAS-DESCFCN)
+	(SYNONYM SHERMAN TRAINER)
+	(ADJECTIVE OLD)
+	(SIZE 99 CAPACITY 60)
+	(ACTION RT-AC-CH-SHERMAN)>
+
+<OBJECT CH-BANK-GUARD
+	(LOC RM-THREADNEEDLE-ST)
+	(DESC "guard")
+	(FLAGS FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC
+	       FL-HAS-DESCFCN)
+	(SYNONYM GUARD)
+	(ADJECTIVE BANK)
+	(SIZE 99 CAPACITY 60)
+	(ACTION RT-AC-CH-BANK-GUARD)>
+
+<OBJECT CH-WIGGINS
+	(LOC RM-THREADNEEDLE-ST)
+	(DESC "Wiggins")
+	(FLAGS FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC
+	       FL-BROKEN FL-HAS-DESCFCN)
+	(SYNONYM WIGGINS URCHIN BOY COMPANION)
+	(SIZE 20 CAPACITY 15)
+	(STRENGTH 999)
+	(DEXTERITY 10)
+	(CONTFCN RT-AC-CH-WIGGINS)
+	(ACTION RT-AC-CH-WIGGINS)>
+
+<OBJECT CH-ELIZA-DOOLITTLE
+	(LOC RM-COVENT-GARDEN)
+	(FLAGS FL-ALIVE FL-PERSON FL-FEMALE FL-TRYTAKE FL-NOALL
+	       FL-NEEDS-IDENTITY FL-LOSE-IDENTITY
+	       FL-ASLEEP FL-NODESC FL-HAS-DESCFCN FL-HAS-SDESC)
+	(OBJ-ADJ 0)
+	(OBJ-NOUN 0)
+	(ADJECTIVE HER ELIZA\'S GIRL\'S)
+	(SYNONYM ELIZA DOOLITTLE GIRL HEART HEARTBEAT)
+	(SIZE 99 CAPACITY 10)
+	(VALUE 5)
+	(ACTION RT-AC-CH-ELIZA-DOOLITTLE)>
+
+<OBJECT CH-PRIME-MINISTER
+	(DESC "Prime Minister")
+	(FLAGS ;FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC
+	       FL-HAS-DESCFCN)
+	(SYNONYM MINISTER OFFICIAL VISITOR MAN)
+	(ADJECTIVE PRIME)
+	(SIZE 15)
+	(CONTFCN RT-AC-CH-PRIME-MINISTER)
+	(ACTION RT-AC-CH-PRIME-MINISTER)>
+
+<OBJECT CH-AKBAR
+	(LOC RM-LAIR)
+	(DESC "Akbar")
+	(FLAGS FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+	(SYNONYM AKBAR)
+	(SIZE 99 CAPACITY 20)
+	(VALUE 1)
+	(ACTION RT-AC-CH-AKBAR)>
+
+<OBJECT CH-MORIARTY
+	(LOC RM-LAIR)
+	(DESC "Moriarty")
+	(FLAGS FL-NOARTC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL
+	       FL-HAS-DESCFCN)
+	(SYNONYM PROFESSOR PROF MORIARTY)
+	(ADJECTIVE JAMES PROFESSOR PROF)
+	(SIZE 99 CAPACITY 20)
+	(VALUE 1)
+	(ACTION RT-AC-CH-MORIARTY)>
+
+<OBJECT CH-HUDSON
+   (LOC RM-ENTRY-HALL)
+   (DESC "Mrs Hudson")
+   (FLAGS FL-NOARTC FL-ALIVE FL-PERSON FL-FEMALE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM MRS HUDSON HOUSEKEEPER)
+   (ADJECTIVE MRS)
+   (SIZE 99 CAPACITY 99)
+   (CONTFCN RT-AC-CH-HUDSON)
+   (ACTION RT-AC-CH-HUDSON)>
+
+<OBJECT CH-DENKEEPER
+	(LOC RM-BAR-OF-GOLD)
+	(DESC "denkeeper")
+	(FLAGS FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC
+	       FL-HAS-DESCFCN)
+	(SYNONYM DENKEEPER PROPRIETOR MAN)
+	(SIZE 99 CAPACITY 20)
+	(ACTION RT-AC-CH-DENKEEPER)>
+
+<OBJECT CH-LIBRARIAN
+	(LOC RM-MANUSCRIPT-ROOM)
+	(DESC "lonely librarian")
+	(FLAGS FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC)
+	(SYNONYM LIBRARIAN MAN)
+	(ADJECTIVE LONELY)
+	(SIZE 99 CAPACITY 99)
+	(ACTION RT-AC-CH-LIBRARIAN)>
+
+<OBJECT CH-BUTLER
+	(LOC RM-DIOGENES-CLUB)
+	(DESC "butler")
+	(FLAGS FL-NODESC FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL)
+	(SYNONYM BUTLER MAN)
+	(SIZE 99 CAPACITY 99)
+	(ACTION RT-AC-CH-BUTLER)>
+
+<OBJECT CH-NANNIES
+	(LOC RM-KENSINGTON-GARDENS)
+	(DESC "nannies")
+	(FLAGS FL-NODESC FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL)
+	(SYNONYM NANNIES)
+	(SIZE 99 CAPACITY 99)
+	(ACTION RT-AC-CH-NANNIES)>
+
+<OBJECT CH-QUEEN
+	(LOC RM-BUCKINGHAM-PALACE)
+	(DESC "Queen Victoria")
+	(FLAGS FL-NOARTC FL-PERSON FL-ALIVE FL-TRYTAKE FL-NOALL FL-FEMALE)
+	(SYNONYM QUEEN VICTORIA)
+	(ADJECTIVE QUEEN)
+	(SIZE 99 CAPACITY 99)>
+
+<OBJECT CH-HOUSEWIVES
+	(LOC RM-COVENT-GARDEN)
+	(DESC "women")
+	(FLAGS FL-NODESC FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL
+	       FL-HAS-DESCFCN)
+	(SYNONYM HOUSEWIVES WIVES WOMEN PEOPLE CROWDS CROWD SHOPPERS)
+	(SIZE 99 CAPACITY 99)
+	(ACTION RT-AC-CH-HOUSEWIVES)>
+
+<OBJECT CH-PALACE-GUARD
+	(LOC RM-QUEENS-GARDENS)
+	(DESC "Palace guard")
+	(FLAGS FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+	(SYNONYM GUARD)
+	(ADJECTIVE PALACE)
+	(SIZE 99 CAPACITY 20)
+	(ACTION RT-AC-CH-PALACE-GUARD)>
+
+<OBJECT CH-URCHINS
+	(LOC RM-THREADNEEDLE-ST)
+	(DESC "urchins")
+	(FLAGS FL-NODESC FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL
+	       FL-HAS-DESCFCN)
+	(SYNONYM URCHINS)
+	(SIZE 99 CAPACITY 99)
+	(ACTION RT-AC-CH-URCHINS)>
+
+<OBJECT CH-MEMBERS
+	(LOC RM-DIOGENES-CLUB)
+	(DESC "members")
+	(FLAGS FL-NODESC FL-PLURAL FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL
+	       FL-HAS-DESCFCN)
+	(SYNONYM MEMBERS)
+	(ADJECTIVE CLUB AGING)
+	(SIZE 99 CAPACITY 99)
+	(ACTION RT-AC-CH-MEMBERS)>
+
+<ROUTINE RT-LIBRARIAN-SAYS-MSG ()
+	<COND (<MC-ISNOT? ,CH-LIBRARIAN ,FL-OPENED>
+	       <TELL "\"" <RT-PICK-NEXT ,GL-LIBRARIAN-TXT1> ".\"" CR>)
+	      (T
+	       <TELL "\"" <RT-PICK-NEXT ,GL-LIBRARIAN-TXT2> "\"" CR>)>
+	<RTRUE>>
+
+<ROUTINE RT-TELL-ABOUT? (PERSON)
+	 <OR <AND <MC-VERB? ASK-ABOUT>
+		  <MC-PRSO? .PERSON>>
+	     <AND <MC-VERB? TELL-ABOUT>
+		  <MC-PRSO? ,CH-ME ,CH-PLAYER>
+		  <EQUAL? ,GL-WINNER .PERSON>>
+	     <AND <MC-VERB? WHO>
+		  <MC-IS? ,GL-PRSO ,FL-PERSON>
+		  <EQUAL? ,GL-WINNER .PERSON>>
+	     <AND <MC-VERB? WHAT>
+		  ;<MC-ISNOT? ,GL-PRSO ,FL-PERSON>
+		  <EQUAL? ,GL-WINNER .PERSON>>>>
+
+<ROUTINE RT-WHO-WHAT-FAIL? ()
+      <COND (<MC-VERB? WHO WHAT>
+	     <TELL "\"Sorry. I don't know what you're talking about.\"" CR>)>>
+
+<ROUTINE RT-NO-CONDITION-MSG (PERSON "OPTIONAL" (STR <>))
+	<TELL CTHE .PERSON>
+	<RT-IS-ARE-MSG .PERSON>
+	<TELL "in no condition to ">
+	<COND (.STR
+	       <TELL .STR>)
+	      (T
+	       <TELL "respond">)>
+	<TELL "." CR>>
+
+<ROUTINE RT-AC-CH-HOLMES ("OPTIONAL" (CONTEXT <>) "AUX" OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-HOLMES" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-HOLMES>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <RT-THIS-IS-IT ,CH-HOLMES>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+" is slouched on the sofa, lost in a black mood of despair. He is pale and
+emaciated, and his sharp eyes burn with fever. He is staring at a phial that
+he holds in one hand. His free hand rests near a hypodermic syringe in a neat
+morocco case at his side. You realize that he is fighting a depression brought
+on by what he calls \"the dull routine of existence.\"" CR>
+		      <RTRUE>)
+		     (<MC-IS? ,CH-HOLMES ,FL-LOCKED>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT> 
+						,K-SECURELY-BOUND-MSG>)
+		     (<MC-IS? ,CH-MORIARTY ,FL-LOCKED>
+		      <TELL
+"Despite his cool exterior, you can tell that Holmes is excited
+about nearing the end of the chase">)
+		     (<IN? ,CH-HOLMES ,TH-BOAT>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT> ,K-SEASICK-MSG>)
+		     (<OR <IN? ,CH-HOLMES ,TH-HANSOM-CAB>
+			  <IN? ,CH-HOLMES ,TH-GROWLER-CAB>>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+						,K-SITTING-QUIETLY-MSG>)
+		     (<IN? ,CH-HOLMES ,TH-SOFA>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+" is sitting on the sofa, gazing intently at you">)
+		     (<MC-HERE? ,RM-ENTRY-HALL ,RM-PARLOUR ,RM-VESTIBULE
+		                ,RM-HOLMES-STUDY ,RM-HOLMES-BEDROOM>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+			    <RT-PICK-NEXT ,GL-HOLMES-HOUSE-LOOK-TXT>>)
+		     (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+			    <RT-PICK-NEXT ,GL-HOLMES-INDOORS-LOOK-TXT>>)
+		     (T
+		      <TELL <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+			    <RT-PICK-NEXT ,GL-HOLMES-OUTDOORS-LOOK-TXT>>)>
+	       <TELL "." CR>
+	       <RETURN 2>)
+	      (<RT-TELL-ABOUT? ,CH-HOLMES>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <COND (<RT-HOLMES-DESCRIBE-MSG? .OBJ>
+		      <RTRUE>)
+		     (T
+		      <TELL
+"\"You must draw your own inferences, Watson.\"" CR>)>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<MC-THIS-WINNER?>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <TELL CTHE ,CH-HOLMES ,K-SEEMS-TO-HEAR-MSG CR>)
+		     (<MC-VERB? HELLO>
+		      <TELL "Holmes returns your greeting." CR>)
+		     (<MC-VERB? GOODBYE>
+		      <TELL "\"Farewell for now, Watson.\"" CR>)
+		     (<MC-VERB? THANK>
+		      <TELL
+"\"No need for thanks, Watson. The work itself is my reward.\"" CR>)
+		     (<MC-VERB? WHERE>
+		      <COND (<AND <MC-PRSO? ,TH-STETHOSCOPE>
+				  <MC-ISNOT? ,TH-STETHOSCOPE ,FL-TOUCHED>>
+			     <TELL ,K-CUSTOMARILY-KEEP-MSG CR>)
+			    (<RT-VISIBLE? ,GL-PRSO>
+			     <TELL
+"\"There's your problem in a nutshell, Watson. You see, but you do not
+observe. ">
+			     <COND (<MC-PRSO? ,CH-HOLMES>
+				    <TELL "I am ">)
+				   (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+				    <TELL "You are ">)
+				   (T
+				    <TELL CTHEO>
+				    <RT-IS-ARE-MSG>)>
+			     <TELL "right here!\"" CR>)
+			    (T
+			     <TELL ,K-WORK-OUT-YOURSELF-MSG CR>)>)
+		     (<MC-VERB? WHO WHAT>
+		      <TELL ,K-WORK-OUT-YOURSELF-MSG CR>)
+		     (<MC-VERB? YES>
+		      <TELL ,K-GOOD-SHOW-MSG CR>)
+		     (<MC-VERB? NO>
+		      <TELL ,K-PITY-MSG CR>)
+		     (<MC-VERB? MAYBE>
+		      <TELL ,K-MAYBE-MSG CR>)
+		     (<OR <AND <MC-VERB? TAKE>
+			       <MC-PRSO? TH-BREATH>>
+			  <MC-VERB? INHALE>>
+		      <COND (<MC-IS? ,TH-BREATH ,FL-LOCKED>
+			     <TELL "Holmes seems to be holding his breath
+already." CR>
+			     <RTRUE>)>
+		      <TELL
+		       "Holmes hears your whispered instruction, and as you
+draw a deep breath, he surreptitiously does the same." CR>
+		      <RT-ALARM-SET-REL ,RT-I-EXHALE <RT-PARM-SET 0 2 0>>
+		      <MC-MAKE ,TH-BREATH ,FL-LOCKED>
+		      <SETG GL-CLOCK-WAIT T>
+		      <RTRUE>)
+		     (<AND <RT-TOUCH-VERB?>
+			   <MC-IS? ,CH-HOLMES ,FL-LOCKED>>
+		      <TELL "Holmes can't do that. He is tied up." CR>)
+		     (<AND <MC-VERB? TAKE WEAR>
+			   <OR <MC-PRSO? ,TH-RING>
+			       <AND <MC-PRSO? ,TH-ETHERIUM-AMPOULE>
+				    <MC-ISNOT? ,TH-ETHERIUM-AMPOULE 
+							,FL-BROKEN>>>>
+		      <TELL ,K-PLEASE-KEEP-IT-MSG CR>)
+		     (<AND <MC-VERB? RAISE TAKE>
+			   <MC-PRSO? ,CH-PLAYER ,CH-ME>>
+		      <TELL "Holmes struggles to lift you">
+		      <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+			     <TELL ", the boat starts to rock violently">)>
+		      <TELL
+", then he thinks better of it and abandons the attempt." CR>)
+		     (<MC-VERB? TAKE GUESS DROP GIVE-SWP>
+		      <RFALSE>)
+		     (<AND <MC-VERB? READ EXAMINE LOOK-ON LOOK-INSIDE OPEN SEARCH>
+			   <MC-PRSO? ,TH-MAIL>>
+		      <TELL
+"Holmes glances at the envelopes and shrugs. \"They are of no
+consequence, Watson.\"" CR>)
+		     (<AND <MC-VERB? PLAY>
+			   <MC-PRSO? ,TH-VIOLIN>>
+		      <COND (<NOT <IN? ,TH-VIOLIN ,CH-HOLMES>>
+			     <TELL "Holmes is not holding " THEO "." CR>)
+			    (T
+			     <IFSOUND <SOUNDS ,S-VIOLIN>>
+			     <TELL
+"Holmes pauses for a moment in meditation, then lifts the violin to his chin
+and plays a brief, haunting melody whose melancholy notes fill the air with
+beauty. Then, just as quickly, he is finished." CR>)>)
+		     (<AND <MC-VERB? GIVE>
+			   <MC-PRSI? ,CH-ME ,CH-PLAYER>>
+		      <COND (<IN? ,GL-PRSO ,CH-HOLMES>
+			     <MOVE ,GL-PRSO ,CH-PLAYER>
+			     <TELL "Holmes gives you " THEO "." CR>)
+			    (<AND <MC-PRSO? ,TH-RING>
+				  <IN? ,TH-RING ,LOCAL-GLOBALS>>
+			     <TELL
+"Holmes says, \"I haven't mentioned any ring, Watson.\"" CR>)
+			    (T
+			     <TELL
+"Holmes says, \"I do not have " THEO ".\"" CR>)>)
+		     (<MC-VERB? FOLLOW>
+		      <COND (<IN? ,CH-HOLMES ,TH-SOFA>
+			     <TELL
+"Holmes says, \"We shouldn't leave until we have spoken with our
+visitor.\"" CR>)
+			    (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+			     <TELL
+"Holmes says, \"Lead the way, Watson.\"" CR>
+			     <SETG GL-PUPPY ,CH-HOLMES>)
+			    (T
+			     <TELL
+"Holmes says, \"We should remain together, Watson.\"" CR>)>)
+		     (T
+		      <TELL "\"Come now, Watson. You must try it yourself.\"" CR>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? GIVE>
+		      <COND (<AND <MC-PRSO? ,TH-NEWSPAPER>
+				  <MC-IS? ,CH-HOLMES ,FL-ASLEEP>>
+			     <RFALSE>)
+			    (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			     <TELL
+"Holmes glances at " THEO ", but it doesn't seem to arouse his interest." CR>)
+			    (<MC-IS? ,CH-HOLMES ,FL-LOCKED>
+			     <TELL
+"Holmes's hands aren't free. You can't give him anything." CR>)
+			    (<OR <MC-PRSO? ,TH-RING>
+				 <AND <MC-PRSO? ,TH-ETHERIUM-AMPOULE>
+				      <MC-ISNOT? ,TH-ETHERIUM-AMPOULE 
+							,FL-BROKEN>>>
+			     <TELL ,K-PLEASE-KEEP-IT-MSG CR>)
+			    (T
+			     <MOVE ,GL-PRSO ,CH-HOLMES>
+			     <RT-CYOU-MSG "give" "gives">
+			     <TELL THEO
+" to him. He examines it briefly and says, ">
+			     <COND (<RT-HOLMES-DESCRIBE-MSG? ,GL-PRSO>
+				    <RTRUE>)
+				   (T
+				    <TELL "\"Hmmph.\"" CR>)>)>)
+		     (<MC-VERB? SHOW>
+		      <COND (<AND <MC-PRSO? ,TH-NEWSPAPER>
+				  <MC-IS? ,CH-HOLMES ,FL-ASLEEP>>
+			     <RFALSE>)
+			    (<RT-HOLMES-DESCRIBE-MSG? ,GL-PRSO>
+			     <RTRUE>)
+			    (T
+			     <TELL
+"Holmes glances at " THEO ", but makes no comment." CR>)>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? DIAGNOSE>
+		      <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			     <TELL "He is in a trance-like state as he stares
+at the phial. You quickly realize that unless he hears something of
+interest, he will turn to the deadly drug to relieve his boredom." CR>)>)
+		     (<MC-VERB? HIT ALARM>
+		      <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			     <TELL ,K-HOLMES-DISTRACTION-MSG CR>)>)
+		     (<MC-VERB? ASK-FOR>
+		      <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			     <TELL "Holmes does not respond." CR>)
+			    (<MC-IS? ,CH-HOLMES ,FL-LOCKED>
+			     <TELL
+"Holmes can't give you anything. He is tied up." CR>)
+			    (<AND <MC-PRSI? ,TH-RING>
+				  <IN? ,TH-RING ,LOCAL-GLOBALS>>
+			     <TELL
+"Holmes says, \"I haven't mentioned any ring, Watson.\"" CR>)
+			    (<IN? ,GL-PRSI ,CH-HOLMES>
+			     <MOVE ,GL-PRSI ,CH-PLAYER>
+			     <TELL "Holmes gives you " THEI "." CR>)
+			    (T
+			     <TELL
+"Holmes says, \"I do not have " THEI ".\"" CR>)>)
+		     (<MC-VERB? TELL-ABOUT>
+		      <COND (<AND <MC-PRSI? ,LG-TOWER ,TH-NEWSPAPER
+							 ,CH-PRIME-MINISTER>
+				  <MC-IS? ,CH-HOLMES ,FL-ASLEEP>>
+			     <MC-MAKE ,GL-PRSI ,FL-HOLMES-TOLD>
+			     <RT-WAKE-UP-HOLMES>)
+			    (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			     <TELL CTHE ,CH-HOLMES ,K-SEEMS-TO-HEAR-MSG CR>)
+			    (<MC-ISNOT? ,GL-PRSI ,FL-HOLMES-TOLD>
+			     <MC-MAKE ,GL-PRSI ,FL-HOLMES-TOLD>
+			     <TELL
+"Holmes nods thoughtfully and says, \"Most interesting, old fellow.\"" CR>)
+			    (T
+			     <TELL
+"\"Don't be tedious, Watson. You have mentioned ">
+			     <RT-SAY-HIM-HER-THEM-IT-MSG ,GL-PRSI>
+			     <TELL " to me already.\"" CR>)>)>)>>
+
+<ROUTINE RT-HOLMES-SAYS-AGRA-MSG ()
+	<TELL
+" says, \"It's obviously not one of the Crown Jewels, Watson. In fact,
+this gem belongs to the Agra treasure, which was stolen in India many years
+ago and has never been recovered.\"" CR CR
+
+"\"The case grows more complex, Watson. We are in more danger than I
+had at first suspected.\" He removes a ring from one of his long, slender
+fingers and hands it to you. \"Here, Watson. Take this signet ring of
+mine. If anything should happen to me, take it to my brother Mycroft
+at the Diogenes Club. He'll tell you what to do.\"" CR>>
+
+<ROUTINE RT-HOLMES-DESCRIBE-MSG? (OBJ "AUX" WRD)
+	<COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+	       <TELL CTHE ,CH-HOLMES ,K-SEEMS-TO-HEAR-MSG CR>)
+	      (<MC-IS? ,CH-MORIARTY ,FL-LOCKED>
+	       <TELL
+"\"There is no time for questions, Watson. We must get the Crown Jewels to
+Buckingham Palace before nine o'clock.\"" CR>)
+	      (<AND <MC-VERB? WHO>
+		    <MC-PRSO? ,CH-HOLMES>>
+	       <TELL
+"\"Watson, as my biographer, you know me as well as anyone.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-MORIARTY>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-LOCKED>
+		      <TELL
+"\"He appears to have the upper hand, Watson.\"" CR>)
+		     (T
+		      <TELL
+"\"He is the Napoleon of crime, Watson. He is the organizer of half that is
+evil and of nearly all that is undetected in this great city.\"" CR>)>)
+	      (<RT-IDENTIFY-EVENT? ,W?MYCROFT .OBJ>
+	       <TELL
+"\"Mycroft is my older brother, of whom you have heard me speak. As you know,
+he is a highly placed official within Her Majesty's government. Because of
+the confidential nature of his work, you cannot call upon him in his offices.
+However, he is usually to be found in his club, just off Trafalgar
+Square.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-HOLMES>
+	       <TELL "\"I'm well, Watson. Thank you for asking.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-PRIME-MINISTER>
+	       <COND (<IN? ,CH-PRIME-MINISTER ,RM-HOLMES-STUDY>
+		      <TELL "\"Hush, my friend. Wait until we're alone.\"" CR>)
+		     (<MC-ISNOT? ,CH-PRIME-MINISTER ,FL-SEEN>
+		      <TELL
+"\"I haven't seen this visitor of whom you speak, Watson, but surely it is
+obvious that he has come because the Crown Jewels have been stolen from the
+Tower of London.\"" CR>) 
+		     (T
+		      <TELL
+"\"Surely you recognized him, old fellow. He is the Prime Minister of
+England.\"" CR>)>)
+	      (<EQUAL? .OBJ ,CH-QUEEN>
+	       <TELL
+"\"She must be worried, Watson. We must get the gems back for her.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-WIGGINS>
+	       <TELL
+"\"Surely you remember him, dear fellow. He is the head of the Baker Street
+Irregulars.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?LESTRADE .OBJ>
+	       <TELL
+"\"Be kind to him, Watson. He has delusions of adequacy.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?THEFT .OBJ>
+	       <TELL
+"\"We must recover the jewels and return them to the Palace. The
+alternative is too horrible to consider.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-CROWN-JEWELS>
+	       <TELL
+"\"We must recover them and return them to the Palace. The
+alternative is too horrible to consider.\"" CR>)
+	      (<OR <EQUAL? .OBJ ,LG-TOWER>
+		   <RT-IDENTIFY-EVENT? ,W?THEFT .OBJ>>
+	       <TELL
+"\"The Tower is the safest stronghold in the nation. Our adversary
+must be formidable indeed.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?JUBILEE .OBJ>
+	       <TELL
+"\"The Coronation Day festivities begin Monday morning at 9:00. We must
+recover the Crown Jewels before then.\"" CR>)
+	      (<EQUAL? .OBJ ,LG-TOMBS-ABBEY>
+	       <TELL
+"\"It is the burial place of our royalty, Watson. The spiritual centre
+of the empire.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?PASSWORD .OBJ>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-LOCKED>
+		      <TELL
+"\"Obviously you were able to deduce it without my help, Watson. Good show!\"" CR>)
+		     (T
+		      <TELL
+"\"Patience, old fellow. We are not yet in possession of all the facts.\"" CR>)>)
+	      (<OR <EQUAL? .OBJ ,TH-WALL>
+		   <RT-IDENTIFY-FLOOR? ,W?GROUND .OBJ>
+		   <RT-IDENTIFY-FLOOR? ,W?FLOOR .OBJ>>
+	       <TELL
+"\"No need to ask about that, old fellow. I'll tell you straight away if
+I find anything of interest.\"" CR>)
+	      (<RT-IDENTIFY-FLOOR? ,W?SKY .OBJ>
+	       <TELL "Holmes glances up and says, \"It's an uncommonly fine ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "night">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 1>
+		      <TELL "morning">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 2>
+		      <TELL "day">)
+		     (T 
+		      <TELL "evening">)>
+	       <TELL ", Watson.\"" CR>)
+	      (<AND <EQUAL? .OBJ ,TH-STETHOSCOPE>
+		    <MC-ISNOT? ,TH-STETHOSCOPE ,FL-TOUCHED>>
+	       <TELL ,K-CUSTOMARILY-KEEP-MSG CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?HENRY .OBJ>
+	       <TELL
+"\"He was the son of John of Gaunt, and the father of Henry V.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?WELLINGTON .OBJ>
+	       <TELL
+"\"My dear fellow, your memory is fading prematurely. Surely you
+remember that the Duke of Wellington was the hero of the battle of
+Waterloo.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?TOBY .OBJ>
+	       <TELL
+"\"He is a noble hound whose olfactory prowess is unrivaled.">
+	       <COND (<MC-IS? ,CH-SHERMAN ,FL-SEEN>
+		      <TELL
+" It is unfortunate that he is unavailable to help us in our quest.">)>
+	       <TELL "\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?AGRA .OBJ>
+	       <TELL
+"\"The Agra treasure disappeared during the Sepoy rebellion in
+India. Clearly it has found its way to London.\"" CR>)
+	      (<RT-IDENTIFY-EVENT? ,W?KIDNAPPING .OBJ>
+	       <COND (<0? <ANDB ,MYCROFT-STATE ,MYCROFT-SEEN>>
+		      <TELL ,K-NEVER-THEORIZE-MSG CR>)
+		     (T
+		      <TELL
+"\"The professor was as surprised as we, Watson. Evidently it was a mistake
+on the part of one of his minions.\"" CR>)>)
+	      (<EQUAL? .OBJ ,CH-HUDSON>
+	       <TELL
+"\"A splendid housekeeper, Watson, although she worries about me too
+much.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-PLAYER ,CH-ME>
+	       <TELL
+"\"Good old Watson! You are the one fixed point in a changing age. I am
+honoured that you have become my biographer.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-PHIAL ,TH-SYRINGE ,TH-LIQUID>
+	       <TELL
+"Holmes gives you a grateful look and says, \"We need no longer worry
+about that, Watson, thanks to your timely intervention.\"" CR>)
+	      (<MC-ISNOT? .OBJ ,FL-SEEN>
+	       <TELL ,K-NEVER-THEORIZE-MSG CR>)
+	      (<EQUAL? .OBJ ,CH-MATCH-SNIFFING-DOG>
+	       <TELL
+"\"It's not the Hound of the Baskervilles. But I certainly wouldn't
+care to make it angry.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-TUSSAUDS-GUARD>
+	       <TELL
+"\"Beyond the obvious facts that he is left-handed, ate kippers for
+breakfast, and had a poor night's sleep, I can tell you that he is
+a good, honest workman. Britain could use more like him.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-TRAINED-PIGEON>
+	       <TELL "\"A fine bird, Watson.">
+	       <COND (<RT-VISIBLE? ,CH-TRAINED-PIGEON>
+		      <TELL
+" Note the broad band on his wing that distinguishes his breed from all
+others.">)>
+	       <TELL "\"" CR>)
+	      (<EQUAL? .OBJ ,CH-SHERMAN>
+	       <TELL
+"\"Oh, he's an old friend of mine. He has an extraordinary bloodhound
+named Toby who has been of invaluable assistance to me in the past.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-BANK-GUARD>
+	       <TELL
+"\"Watch him carefully, Watson. He is a petty criminal on the lowest
+rung of Moriarty's organization. He's not to be trusted.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-AKBAR>
+	       <TELL
+"\"He is the gentleman from India whom we discussed earlier.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-DENKEEPER>
+	       <TELL
+"\"Be careful of him Watson. He is one of Moriarty's minions.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-LIBRARIAN>
+	       <TELL
+"\"He's just a harmless old fellow who is starved for companionship. It's
+a wonder he hasn't retired and joined his twin brother who lives in
+New Zealand.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-URCHINS>
+	       <TELL
+"\"They're all members of the Baker Street Irregulars.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-VENDOR>
+	       <TELL
+"\"He's harmless enough, although his goods are terribly overpriced.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-GROWLER-CABBIE>
+	       <TELL
+"\"He doesn't seem very bright, does he?\"" CR>)
+	      (<EQUAL? .OBJ ,CH-HANSOM-CABBIE>
+	       <TELL
+"\"It's clear that he has a loving wife and that he is a retired marine
+sergeant. Beyond that I can tell you little.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-BUTLER>
+	       <TELL
+"\"He's a supercilious old coot who ought to be stuffed.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-NANNIES>
+	       <TELL
+"\"They are the backbone of the empire, Watson.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-PALACE-GUARD>
+	       <TELL
+"\"He is obviously one of the Queen's finest - dedicated, loyal, and
+completely incorruptible.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-TOWER-GUARD>
+	       <TELL
+"\"I can tell you little about him, other than that he is incorruptible,
+he lives near Wandsworth Common, and he once worked in a tin mine.\"" CR>)
+	      (<EQUAL? .OBJ ,CH-ELIZA-DOOLITTLE>
+	       <COND (<MC-IS? ,CH-ELIZA-DOOLITTLE ,FL-ASLEEP>
+		      <TELL
+"\"I bow to your medical expertise, doctor. What is your diagnosis?\"" CR>)
+		     (T
+		      <TELL
+"\"You saved her life, Watson. Professor Higgins will be most grateful.\"" CR>)>)
+	      (<EQUAL? .OBJ ,LG-RAVENS>
+	       <TELL
+"\"According to the legend, when the ravens leave the Tower of London,
+the British Empire will fall.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-GUN ,TH-TOBACCO ,TH-PERSIAN-SLIPPER
+		       ,TH-MAGNIFYING-GLASS ,TH-LAMP ,TH-BED
+		       ,TH-BEDSIDE-TABLE ,TH-PIPE>
+	       <TELL
+"\"Surely you remember it, Watson. Little has changed in the time since you
+left.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-WATSONS-HAT ,TH-STETHOSCOPE ,TH-POCKET
+		            ,TH-WATSONS-COAT ,TH-BLACK-BAG ,TH-CAB-WHISTLE>
+	       <TELL "\"Other than the obvious fact that it belongs to you, I can tell you nothing.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-BLUE-PILL-BOTTLE ,TH-BROWN-PILL-BOTTLE
+			    ,TH-ORANGE-PILL ,TH-YELLOW-PILL>
+	       <TELL 
+"\"Surely you know more about it than I, Doctor.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-LAB-EQUIPMENT ,TH-ETHERIUM-GAS
+		            ,TH-ETHERIUM-AMPOULE ,TH-WORKBENCH>
+	       <TELL
+"Holmes glances around quickly and then whispers, \"I know I can trust
+your discretion, Watson, but you must promise to keep this under your
+hat. I have been conducting secret experiments for the government at Mycroft's
+request, and I have developed a new knockout gas that I call 'etherium.' It
+is an extremely powerful derivative of ether, and one ampoule
+of it will render unconscious an entire room of people for several hours. It
+has no harmful side effects, but it is highly explosive and extremely
+dangerous to use near open flames. You may keep it if you wish, but please
+carry it in a secure place, safe from prying eyes.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-CHARLES-STATUE>
+	       <TELL
+"\"He is the only English king to have been beheaded.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-WILLIAM-STATUE>
+	       <TELL
+"\"They say when he first came ashore, he stumbled and fell, and his soldiers
+took it as a bad omen. But then he arose with two fistfuls of sand and
+shouted, 'See! Already I have taken my kingdom into my grasp.' His men
+cheered and they marched on to victory at the Battle of Hastings.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-WALTER-STATUE>
+	       <TELL
+"\"His chivalry did him no good. Although a favourite of the Queen for many
+years, his life ended on the executioner's block.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-VIOLIN>
+	       <TELL "\"It's a Stradivarius.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-RING>
+	       <TELL
+"\"It's an heirloom that's been in my family for generations.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-TRINKETS>
+	       <TELL
+"\"They've been marked up for the Jubilee. I certainly wouldn't pay full
+price for them.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-WESTMINSTER-CLUE>
+	       <TELL
+"\"Most curious, don't you agree Watson? All thieves unintentionaly leave
+behind clues that are discernable to the trained eye. But it is highly
+irregular for a thief to taunt the authorities with an actual message.
+Especially one with references as obvious as this.\"" CR>)
+	      (<EQUAL? .OBJ ,TH-RUBY ,TH-EMERALD ,TH-SAPPHIRE
+		            ,TH-GARNET ,TH-OPAL ,TH-TOPAZ>
+	       <COND (<BAND ,CH-HOLMES-AUX1 ,K-HOLMES-GEM?>
+		      <TELL
+"\"We have already discussed the significance of these gems, Watson.\"" CR>)
+		     (<MC-IS? .OBJ ,FL-TOUCHED>
+		      <SETG CH-HOLMES-AUX1
+			    <BOR ,CH-HOLMES-AUX1 ,K-HOLMES-GEM?>>
+		      <MOVE ,TH-RING ,CH-PLAYER>
+		      <MC-MAKE ,TH-RING ,FL-SEEN>
+		      <MC-MAKE ,TH-RING ,FL-TOUCHED>
+		      <MC-UNMAKE ,TH-RING ,FL-NODESC>
+		      <TELL "Holmes">
+		      <RT-HOLMES-SAYS-AGRA-MSG>
+		      <RT-UPDATE-SCORE <GETP ,TH-RING ,P?VALUE>>
+		      <PUTP ,TH-RING ,P?VALUE 0>
+		      <RTRUE>)
+		     (T
+		      <TELL
+"\"We haven't had a good enough look at it yet, old fellow.\"" CR>)>)
+	      (<EQUAL? .OBJ ,TH-ASH>
+	       <TELL "\"">
+	       <COND (<RT-VISIBLE? ,TH-ASH>
+		      <TELL "Note the characteristic texture, Watson. ">)>
+	       <TELL
+"It is the ash of a Trichinopoly cigar, which is made from the dark tobacco
+that grows only in the Madras district of India." CR CR
+
+"Unless I miss my guess, Watson, our mastermind friend has joined forces
+with an Indian accomplice who does his dirty work for him.\"" CR>)
+	      ;(<EQUAL? .OBJ ,TH-UNINTERESTING-OBJECT>
+		<TELL
+"\"Quite outside my experience, Watson. I've never seen anything like
+it. Not very interesting, though, is it?\"" CR>)>>
+
+<ROUTINE RT-AC-CH-MATCH-SNIFFING-DOG ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-MATCH-SNIFFING-DOG" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-MATCH-SNIFFING-DOG>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL CTHE ,CH-MATCH-SNIFFING-DOG
+" glares back at you menacingly." CR>
+	       <RTRUE>)>
+	<COND (<MC-THIS-WINNER?>
+	       <TELL CTHE ,CH-MATCH-SNIFFING-DOG ,K-GNAWS-MSG CR>
+	       <RTRUE>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<AND <MC-VERB? GIVE SHOW>
+		           <OR <AND <NOT <MC-PRSO? ,TH-TOBACCO>>
+				    <FSET? ,GL-PRSO ,FL-BURNABLE>
+				    <FSET? ,GL-PRSO ,FL-LIGHTED>>
+			       <AND <MC-PRSO? ,TH-MATCH>
+				    <FSET? ,GL-PRSO ,FL-BURNABLE>>
+			       <MC-PRSO? ,TH-LAMP>>>
+		      <IFSOUND <SOUNDS ,S-BARK ,S-START 8 4>>
+		      <TELL CTHEI " barks loudly at " THEO "." CR>
+		      <RTRUE>)	      
+		     (T
+		      <RFALSE>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? TOUCH KICK>
+		      <TELL
+"A quick snap and a glimpse of flashing teeth changes your mind." CR>
+		      <RTRUE>)
+		     (<MC-VERB? LISTEN>
+		      <TELL CTHEO " growls at you." CR>
+		      <IFSOUND <SOUNDS ,S-GROWL>>
+		      <RTRUE>)
+		     (<MC-VERB? ASK-FOR ASK-ABOUT>
+		      <TELL CTHE ,CH-MATCH-SNIFFING-DOG ,K-GNAWS-MSG CR>
+		      <RTRUE>)
+		     (<AND <MC-VERB? SHOOT>
+			   <MC-PRSO? CH-MATCH-SNIFFING-DOG>>
+		      <RT-CYOU-MSG "shoot" "shoots">
+		      <TELL
+"the unfortunate dog. The guard, enraged by this
+callous behavior, wrestles you to the ground and calls for a
+policeman. Lestrade pops up out of nowhere and says, \"Tut, tut. Killing
+a poor defenceless dog now, is it? You should be ashamed of yourself.\"" CR CR
+"He hauls you away and enrolls you in a six-month course sponsored by
+the RSPCA which teaches you to love animals and eat vegetables. You emerge
+from the course a better man. Unfortunately no one cares because by then
+the country has gone to the dogs." CR CR>
+		      <RT-QSR>)>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-CH-TUSSAUDS-GUARD ("OPTIONAL" (CONTEXT <>) OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-TUSSAUDS-GUARD" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-TUSSAUDS-GUARD>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+CTHE ,CH-TUSSAUDS-GUARD " has his collar turned up against the cold. He is
+pacing back and forth, puffing on a cigarette, and stamping his feet, all
+in a futile effort to keep warm." CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? ASK-FOR>
+		    <MC-PRSI? ,TH-CIGARETTE>>
+	       <TELL "\"Sorry, sir. I'm running low.\"" CR>)
+	      (<AND <MC-VERB? ASK-ABOUT>
+		    <MC-PRSI? ,TH-CIGARETTE>>
+	       <TELL "\"I'm a chain smoker. Fortunately, the dog doesn't seem to mind.\"" CR>)
+	      (<RT-TELL-ABOUT? ,CH-TUSSAUDS-GUARD>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <TELL ,K-ON-DUTY-MSG CR>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<MC-THIS-WINNER?>
+	       <COND (<AND <MC-VERB? WHERE>
+			   <RT-VISIBLE? ,GL-PRSO>>
+		      <TELL "\"Right here, sir.\"" CR>
+		      <RTRUE>)
+		     (<MC-VERB? YES>
+		      <TELL ,K-GOOD-SHOW-MSG CR>)
+		     (<MC-VERB? NO>
+		      <TELL ,K-PITY-MSG CR>)
+		     (<MC-VERB? MAYBE>
+		      <TELL ,K-MAYBE-MSG CR>)
+		     (T
+		      <TELL ,K-ON-DUTY-MSG CR>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? TAKE>
+		      <RT-IMPOLITE-MSG "take things" "asking">)>)
+	      (<MC-THIS-PRSO?>
+	       <RFALSE>)>>
+
+<ROUTINE RT-PIGEON-PANIC ()
+	<MOVE ,CH-TRAINED-PIGEON ,CH-PLAYER>
+	<TELL
+CTHE ,CH-TRAINED-PIGEON " flies about in a panic for a few moments and then
+flies right back into your hands." CR>>
+
+<ROUTINE RT-PIGEON-FLY ()
+	<TELL " flies up into the air">
+	<COND (<==? ,GL-PLACE-CUR ,RM-TRAFALGAR-SQUARE>
+	       <SETG CH-TRAINED-PIGEON-AUX3 ,TH-RED-GLASS>
+	       <COND (<AND <BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-SHOWN-RUBY>
+			   <BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-GET-RUBY>>
+		      <TELL ", gets " THE ,TH-RUBY ",">
+		      <SETG CH-TRAINED-PIGEON-AUX3 ,TH-RUBY>)
+		     (<BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-SHOWN-RUBY>
+		      <TELL ", sees " THE ,TH-RUBY " and " A ,TH-RED-GLASS
+" that you didn't see, chooses " THE ,TH-RED-GLASS ",">)
+		     (<BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-GET-RUBY>
+		      <TELL ", sees " A ,TH-RED-GLASS " that you didn't see,
+gets it,">)>)>
+	<COND (<NOT <0? ,CH-TRAINED-PIGEON-AUX3>>
+	       <MC-MAKE ,CH-TRAINED-PIGEON-AUX3 ,FL-TAKEABLE>
+	       <MOVE ,CH-TRAINED-PIGEON-AUX3 ,CH-TRAINED-PIGEON>)>
+	<MOVE ,CH-TRAINED-PIGEON ,GL-PLACE-CUR>
+	<MC-MAKE ,CH-TRAINED-PIGEON ,FL-NODESC>
+	<SETG CH-TRAINED-PIGEON-AUX2 1>
+	<RT-ALARM-SET-REL ,RT-I-PIGEON-CIRCLE <RT-PARM-SET 0 1 0>>
+	<TELL " and starts to circle high over your head." CR>>
+
+<ROUTINE RT-AC-CH-TRAINED-PIGEON ("OPTIONAL" (CONTEXT <>) OBJ)
+      <DEBUGGING? <RT-DEBUG-CH-AC "CH-TRAINED-PIGEON" .CONTEXT>>
+      <RT-THIS-IS-IT ,CH-TRAINED-PIGEON>
+      <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	     <COND (<IN? ,CH-TRAINED-PIGEON ,CH-SHERMAN>
+		    <TELL D ,CH-SHERMAN " is holding " THE ,CH-TRAINED-PIGEON>)
+		   (<MC-T? ,CH-TRAINED-PIGEON-AUX2>
+		    <RTRUE>)
+		   (T
+		    <TELL CTHE ,CH-TRAINED-PIGEON>
+		    <COND (<AND <BAND ,CH-TRAINED-PIGEON-AUX1
+					    ,K-PIGEON-SHOWN-RUBY>
+				<BAND ,CH-TRAINED-PIGEON-AUX1
+					    ,K-PIGEON-GET-RUBY>>
+			   <TELL " trembles with excitement">)
+			  (<T? <BAND ,CH-TRAINED-PIGEON-AUX1 
+				      	    <+ ,K-PIGEON-SHOWN-RUBY
+						 ,K-PIGEON-GET-RUBY>>>
+			   <TELL " looks interested">)
+			  (T
+			   <TELL " doesn't seem interested in anything">)>)>
+	     <TELL "." CR>
+	     <RTRUE>)
+	    (<RT-TELL-ABOUT? ,CH-TRAINED-PIGEON>
+	     <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			     ,GL-PRSO)
+			    (T
+			     ,GL-PRSI)>>
+	     <TELL ,K-CONFUSED-MSG CR>)
+	    (<RT-WHO-WHAT-FAIL?>
+	     <RFATAL>)
+	    (<MC-THIS-WINNER?>
+	     <COND (<AND <MC-VERB? TAKE>
+			 <MC-PRSO? ,TH-RUBY>>
+		    <RT-THIS-IS-IT ,TH-RUBY>
+		    <RT-PIGEON-INTEREST ,K-PIGEON-GET-RUBY>)
+		   (T
+		    <TELL ,K-CONFUSED-MSG CR>)>
+	     <RTRUE>)
+	    (<AND <MC-VERB? PUT>
+		  <MC-THIS-PRSO?>>
+	     <COND (<MC-PRSI? ,TH-SHAFT>
+		    <SETG CH-TRAINED-PIGEON-AUX1 0>
+		    <RT-PIGEON-PANIC>)
+		   (<OR <NOT <MC-PRSI? ,TH-POCKET>>
+			<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>>
+		    <RT-PIGEON-PANIC>)
+		   (T
+		    <TELL "As soon as">
+		    <RT-YOU-MSG "let" "lets">
+		    <TELL "go of it, the pigeon">
+		    <RT-PIGEON-FLY>)>
+	     <RTRUE>)
+	    (<AND <MC-VERB? DROP RELEASE THROW>
+		  <MC-THIS-PRSO?>>
+	     <COND (<IN? ,CH-TRAINED-PIGEON ,CH-PLAYER>
+		    <RT-ALARM-CLR ,RT-I-PIGEON-LOSE-INTEREST>
+		    <RT-ALARM-CLR ,RT-I-PIGEON-IMPATIENT>
+		    <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+			   <RT-PIGEON-PANIC>
+			   <SETG CH-TRAINED-PIGEON-AUX1 0>)
+			  (T
+			   <TELL CTHE ,CH-TRAINED-PIGEON>
+			   <RT-PIGEON-FLY>)>)
+		   (T
+		    <RT-CYOU-MSG>
+		    <TELL "would have to be holding the pigeon." CR>)>
+	     <RTRUE>)
+	    (<MC-VERB? TAKE>
+	     <COND (<MC-T? ,CH-TRAINED-PIGEON-AUX2>
+		    <RT-CYOU-MSG>
+		    <TELL "cannot reach " THEO "." CR>
+		    <RTRUE>)
+		   (<IN? ,CH-TRAINED-PIGEON ,CH-SHERMAN>
+		    <RT-IMPOLITE-MSG "take things" "asking">
+		    <RTRUE>)>)
+	    (<AND <MC-VERB? ASK-FOR>
+		  <MC-THIS-PRSI?>>
+	     <RT-GET-PIGEON>
+	     <RTRUE>)
+	    (<AND <MC-VERB? SHOW>
+		  <MC-THIS-PRSI?>>
+	     <COND (<MC-PRSO? ,TH-RUBY>
+		    <RT-THIS-IS-IT ,TH-RUBY>
+		    <RT-PIGEON-INTEREST ,K-PIGEON-SHOWN-RUBY>)
+		   (T
+		    <TELL
+"The pigeon doesn't seem to be interested in " THEO "." CR>)>
+	     <RTRUE>)
+	    (<AND <MC-VERB? KILL SHOOT>
+		  <MC-PRSO? CH-TRAINED-PIGEON>>
+	     <COND (<OR	<MC-PRSI? ,TH-GUN>
+			<MC-VERB? SHOOT>>
+		    <COND (<RT-META-IN? ,GL-PRSO ,CH-PLAYER>
+			   <TELL ,K-DROP-IT-FIRST-MSG CR>
+			   <RTRUE>)
+			  (T
+			   <COND (<MC-T? ,CH-TRAINED-PIGEON-AUX2>
+				  <TELL "Flap. Flap. Flap. Thud." CR>)
+				 (T
+				  <TELL "You shoot " THEO " and it dies." CR>)>)>)
+		   (<OR <MC-PRSI? ,TH-KNIFE>
+			<==? ,GL-P-PRSA-WORD ,W?STAB>>
+		    <COND (<MC-T? ,CH-TRAINED-PIGEON-AUX2>
+			   <TELL "You throw " THEI " at " THEO
+". Fortunately, it misses and falls on the ground nearby." CR>
+			   <MOVE ,GL-PRSI ,GL-PLACE-CUR>
+			   <RTRUE>)
+			  (T
+			   <TELL "You slice " THEO " into luncheon meat and cry
+out, \"Squab, anyone?\"" CR>)>)
+		   (<MC-PRSI? ,TH-HANDS>
+		    <COND (<MC-T? ,CH-TRAINED-PIGEON-AUX2>
+			   <TELL "You can't reach the pigeon." CR>
+			   <RTRUE>)
+			  (T
+			   <TELL "You throttle the poor bird." CR>)>)
+		   (T
+		    <TELL "You can't kill " THEO " with " THEI "." CR>
+		    <RTRUE>)>
+	     <COND (<AND <MC-T? ,CH-TRAINED-PIGEON-AUX2>
+			 <MC-T? ,CH-TRAINED-PIGEON-AUX3>>
+		    <MOVE ,CH-TRAINED-PIGEON-AUX3 ,GL-PLACE-CUR>)>
+	     <RT-KILL-PIGEON>
+	     <RTRUE>)
+	    (<AND <MC-VERB? TOUCH>
+		  <MC-THIS-PRSO?>>
+	     <TELL CTHEO " coos and nuzzles your hand." CR>)
+	    (<AND <MC-VERB? CALL>
+		  <MC-THIS-PRSO?>>
+	     <COND (<RT-META-IN? ,CH-TRAINED-PIGEON ,GL-WINNER>
+		    <RT-CYOU-MSG "already have" "already has">
+		    <TELL THEO "." CR>
+		    <RTRUE>)
+		   (<MC-T? ,CH-TRAINED-PIGEON-AUX2>
+		    <TELL CTHEO " ignores ">
+		    <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER ,CH-ME>
+			   <TELL "you">)
+			  (T
+			   <TELL THE ,GL-WINNER>)>
+		    <TELL ", intent on its task." CR>
+		    <RTRUE>)
+		   (T
+		    <TELL CTHEO " looks at">
+		    <RT-YOU-MSG>
+		    <TELL "briefly, then loses interest." CR>
+		    <RTRUE>)>)>>
+
+<ROUTINE RT-AC-CH-SHERMAN ("OPTIONAL" (CONTEXT <>) "AUX" OBJ OBJ1 P-OBJ WHO)
+	<RT-THIS-IS-IT ,CH-SHERMAN>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<FSET? ,CH-SHERMAN ,FL-ASLEEP>
+		      <TELL "Sherman is quite unconscious." CR>
+		      <RTRUE>)>
+	       <RFALSE>)>
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-SHERMAN" .CONTEXT>>
+	<SET P-OBJ ,CH-TRAINED-PIGEON-AUX3>
+	<COND (<AND <MC-THIS-WINNER?>
+		    <FSET? ,CH-SHERMAN ,FL-ASLEEP>>
+	       <RT-NO-CONDITION-MSG ,GL-WINNER>)
+	      (<RT-TELL-ABOUT? ,CH-SHERMAN>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <COND (<MC-IS? ,CH-SHERMAN ,FL-ASLEEP>
+		      <RT-NO-CONDITION-MSG ,CH-SHERMAN>)
+		     (<EQUAL? .OBJ ,CH-TRAINED-PIGEON>
+		      <COND (<BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-TIRED>
+			     <COND (<IN? .P-OBJ ,CH-SHERMAN>
+				    <TELL
+"Sherman says, \"He came back with " A .P-OBJ ". I don't know where he
+found it.\" He gives you " THE .P-OBJ "." CR>
+				    <RT-PIGEON-OBJ .P-OBJ>)
+				   (T
+				    <TELL "\"He's resting now.\"" CR>)>)
+			    (T
+			     <TELL
+"\"He's a wonderful bird. All you have to do is show him something and tell
+him to get it, and away he goes. The only catch is, he only seems to like
+things that are red.\"" CR>
+			     <RTRUE>)>)
+		     (<RT-IDENTIFY-EVENT? ,W?TOBY .OBJ>
+		      <TELL
+"\"He seems to have a cold, which in his line of work renders him completely
+useless.\"" CR>
+		      <RTRUE>)
+		     (<EQUAL? .OBJ ,CH-SHERMAN>
+		      <TELL "\"I'm well. Thank you for asking.\"" CR>) 
+		     (<EQUAL? .OBJ ,CH-HOLMES>
+		      <TELL
+"\"Sherlock and me? We've been mates for years.\"" CR>
+		      <RTRUE>)
+		     (<AND <EQUAL? .OBJ .P-OBJ>
+			   <IN? .P-OBJ ,CH-SHERMAN>>
+		      <TELL
+"Sherman says, \"The pigeon came back with " A .P-OBJ ". I don't know where
+he found it.\" He gives you " THE .P-OBJ "." CR>
+		      <RT-PIGEON-OBJ .P-OBJ>)
+		     (T
+		      <TELL "\"I don't know anything about " THE .OBJ ".\"" CR>)>
+	       <RTRUE>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<AND <MC-THIS-WINNER?>
+		    <MC-VERB? TAKE>
+		    <OR <MC-PRSO? ,CH-TRAINED-PIGEON>
+			<RT-IDENTIFY-EVENT? ,W?TOBY ,GL-PRSO>>>
+	       <SETG GL-WINNER ,CH-PLAYER>
+	       <RT-PERFORM ,V?ASK-FOR ,CH-SHERMAN ,GL-PRSO>
+	       <RTRUE>)
+	      (<OR <AND <MC-VERB? ASK-FOR>
+			<MC-THIS-PRSO?>
+			<SET OBJ1 ,GL-PRSI>>
+		   <AND <MC-VERB? GIVE>
+			<MC-PRSI? ,CH-ME ,CH-PLAYER>
+			<MC-THIS-WINNER?>
+			<SET OBJ1 ,GL-PRSO>>>
+	       <COND (<MC-IS? ,CH-SHERMAN ,FL-ASLEEP>
+		      <RT-NO-CONDITION-MSG ,CH-SHERMAN>)
+		     (<EQUAL? .OBJ1 ,CH-TRAINED-PIGEON>
+		      <RT-GET-PIGEON>)
+		     (<RT-IDENTIFY-EVENT? ,W?TOBY .OBJ1>
+		      <TELL "\"He's not well enough to work.\"" CR>)
+		     (<EQUAL? .OBJ1 .P-OBJ>
+		      <COND (<IN? .P-OBJ ,CH-SHERMAN>
+			     <TELL
+"Sherman says, \"Oh, yes. The pigeon came back with " A .P-OBJ ". I don't
+know where he found it.\" He gives you " THE .P-OBJ "." CR>
+			     <RT-PIGEON-OBJ .P-OBJ>)
+			    (T
+			     <TELL "\"I already gave it to you.\"" CR>)>)
+		     (<IN? ,GL-PRSI ,CH-SHERMAN>
+		      <TELL "He gives you " THE .OBJ1 "." CR>
+		      <MOVE .OBJ1 ,CH-PLAYER>
+		      <RT-THIS-IS-IT .OBJ1>
+		      <MC-MAKE .OBJ1 ,FL-SEEN>
+		      <MC-MAKE .OBJ1 ,FL-TOUCHED>
+		      <MC-UNMAKE .OBJ1 ,FL-NODESC>)
+		     (T
+		      <TELL "\"I don't have " A .OBJ1 ".\"" CR>)>
+	       <RTRUE>)
+	      (<AND <MC-VERB? TAKE>
+		    <MC-THIS-PRSI?>>
+	       <RT-IMPOLITE-MSG "take things" "asking">
+	       <RTRUE>)
+	      (<MC-THIS-WINNER?>
+	       <COND (<MC-VERB? HELLO>
+		      <TELL "\"Hello, Dr Watson.\"" CR>)
+		     (<MC-VERB? GOODBYE>
+		      <TELL "\"Goodbye, Dr Watson.\"" CR>)
+		     (<MC-VERB? THANK>
+		      <TELL "\"You're welcome.\"" CR>)
+		     (<MC-VERB? GIVE-SWP>
+		      <RFALSE>)
+		     (<MC-VERB? YES>
+		      <TELL ,K-GOOD-SHOW-MSG CR>)
+		     (<AND <MC-VERB? WHERE>
+			   <RT-VISIBLE? ,GL-PRSO>>
+		      <TELL "\"Right here, Doctor.\"" CR>
+		      <RTRUE>)
+		     (<MC-VERB? NO>
+		      <TELL ,K-PITY-MSG CR>)
+		     (<MC-VERB? MAYBE>
+		      <TELL ,K-MAYBE-MSG CR>)
+		     (T
+		      <TELL
+CTHE ,CH-SHERMAN " says, \"Unfortunately, I won't be able to help you with
+that.\"" CR>)>)>>
+
+<ROUTINE RT-AC-CH-PRIME-MINISTER ("OPTIONAL" (CONTEXT <>) "AUX" OBJ)
+	<RT-THIS-IS-IT ,CH-PRIME-MINISTER>
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-PRIME-MINISTER" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-CONT>
+	       <TELL "You should be ashamed of yourself." CR>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"He is an elderly man with bushy eyebrows and muttonchop whiskers.">
+	       <COND (<FSET? ,CH-PRIME-MINISTER ,FL-ASLEEP>
+		      <TELL " He is also unconscious, thanks to you.">)>
+	       <CRLF>
+	       <RTRUE>)
+	      (<AND <MC-THIS-WINNER?>
+		    <FSET? ,GL-WINNER ,FL-ASLEEP>>
+	       <RT-NO-CONDITION-MSG ,GL-WINNER>)
+	      (<RT-TELL-ABOUT? ,CH-PRIME-MINISTER>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <COND (<EQUAL? .OBJ ,CH-QUEEN>
+		      <TELL "\"It was she herself who suggested consulting
+Mr Holmes.\"" CR>)
+		     (<EQUAL? .OBJ ,TH-WESTMINSTER-CLUE>
+		      <TELL "\"We are all baffled by it. That is why we
+have come to Mr Holmes.\"" CR>)
+		     (<EQUAL? .OBJ ,LG-TOWER>
+		      <TELL "\"Naturally we have closed it until the
+investigation is terminated. No one has been allowed to leave since
+the theft was discovered.\"" CR>)
+		     (<EQUAL? .OBJ ,CH-HOLMES>
+		      <TELL "\"We learned of his talents from his brother,
+Mycroft.\"" CR>)
+		     (<RT-IDENTIFY-EVENT? ,W?MYCROFT .OBJ>
+		      <TELL "\"As you are no doubt aware, his involvement with
+the government is too sensitive for me to discuss.\"" CR>)
+		     (<EQUAL? .OBJ ,CH-HUDSON>
+		      <TELL "\"She was good enough to serve me tea while I
+waited. Splendid woman.\"" CR>)
+		     (<EQUAL? .OBJ ,CH-MORIARTY>
+		      <TELL "\"I don't believe I'm familiar with that name.\"" CR>)
+		     (<OR <EQUAL? .OBJ ,TH-CROWN-JEWELS>
+			  <RT-IDENTIFY-EVENT? ,W?THEFT .OBJ>>
+		      <TELL "\"If the theft is discovered, the public's faith
+in this government will be shattered. I shall be forced to resign.\"" CR>)
+		     (T
+		      <TELL "\"Come, Doctor. Let us stick to the essentials.\"" CR>)>
+	       <RTRUE>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<MC-THIS-WINNER?>
+	       <COND (<MC-VERB? YES>
+		      <TELL ,K-GOOD-SHOW-MSG CR>)
+		     (<MC-VERB? NO>
+		      <TELL ,K-PITY-MSG CR>)
+		     (<MC-VERB? MAYBE>
+		      <TELL ,K-MAYBE-MSG CR>)
+		     (T
+		      <TELL "\"Surely, Doctor, we should not waste our time
+on such trivial activities.\"" CR>
+		      <RTRUE>)>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-CH-AKBAR ("OPTIONAL" (CONTEXT <>) "AUX" (HAT <>) OBJ WRD ADJ)
+     <RT-THIS-IS-IT ,CH-AKBAR>
+     <DEBUGGING? <RT-DEBUG-CH-AC "CH-AKBAR" .CONTEXT>>
+     <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	    <TELL
+"He is a tall, dark-skinned Indian who wears a white turban." CR>
+	    <RTRUE>)
+	   (<AND <MC-THIS-WINNER?>
+		 <FSET? ,GL-WINNER ,FL-ASLEEP>>
+	    <RT-NO-CONDITION-MSG ,GL-WINNER>)
+	   (<RT-TELL-ABOUT? ,CH-AKBAR>
+	    <SET OBJ <COND (<MC-VERB? WHO WHAT> ,GL-PRSO)
+			   (T ,GL-PRSI)>>
+	    <COND (<MC-IS? ,CH-AKBAR ,FL-ASLEEP>
+		   <RT-NO-CONDITION-MSG ,CH-AKBAR>)
+		  (T
+		   <TELL "\"I know little">
+		   <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			  <TELL ", honoured sir">)>
+		   <TELL
+". I have only been in your country a short distance.\"" CR>)>)
+	   (<RT-WHO-WHAT-FAIL?>
+	    <RFATAL>)
+	   (<MC-THIS-WINNER?>
+	     <COND (<MC-IS? ,CH-AKBAR ,FL-ASLEEP>
+		    <RT-NO-CONDITION-MSG ,CH-AKBAR>)
+		   (<MC-VERB? YES>
+		    <TELL ,K-GOOD-SHOW-MSG CR>)
+		   (<MC-VERB? NO>
+		    <TELL ,K-PITY-MSG CR>)
+		   (<MC-VERB? MAYBE>
+		    <TELL ,K-MAYBE-MSG CR>)
+		   (T
+		    <RT-NOT-LIKELY-MSG ,CH-AKBAR "will do you any favours">)>)
+	   (<MC-THIS-PRSO?>
+	    <COND (<MC-VERB? CALL>
+		   <COND ;(<MC-ISNOT? ,CH-AKBAR ,FL-SEEN>
+			  <MC-MAKE ,CH-AKBAR ,FL-SEEN>
+			  <MOVE ,CH-AKBAR ,RM-BAR-OF-GOLD>
+			  <TELL
+"A door in the back of the room opens and a swarthy looking man walks out. He
+looks at you and says, \"What do you want?\"" CR>)
+		        (<MC-IS? ,CH-AKBAR ,FL-ASLEEP>
+			 <RT-NO-CONDITION-MSG ,CH-AKBAR>)
+		        (T
+			 <TELL "\"I am here">
+			 <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			        <TELL ", sahib">)>
+			 <TELL ". What is it you wish?\"" CR>)>)
+		  (<MC-VERB? TELL-ABOUT>
+		   <SET WRD <GET ,GL-P-NAMW 1>>
+		   <SET ADJ <GET ,GL-P-ADJW 1>>
+		   <COND (<MC-IS? ,CH-AKBAR ,FL-ASLEEP>
+			  <RT-NO-CONDITION-MSG ,CH-AKBAR>)
+			 (<EQUAL? .WRD ,W?SWORDFISH ,W?PASSWORD ,W?HUSH>
+			  <TELL
+"\"Passwords are for others. I must have something tangible.\"" CR>)
+			 (<EQUAL? .WRD ,W?GIN>
+			  <TELL
+"\"No thank you. My religion forbids alcoholic beverages.\"" CR>)
+			 (<RT-IDENTIFY-EVENT? ,W?PASSWORD ,GL-PRSI>
+			  <TELL
+"\"She sounds interesting. Can she make curried mongoose?\"" CR>)
+			 (<MC-PRSI? ,TH-GARNET>
+			  <TELL "\"I must see it before I believe it.\"" CR>)
+			 (<MC-PRSI? ,TH-ASH>
+			  <TELL "Akbar hesitates, then says, \"I do not know
+what you are talking about.\"" CR>)
+			 (T
+			  <TELL "\"" CTHEI>
+			  <RT-DONT-DOESNT-MSG ,GL-PRSI>
+			  <TELL "interest me.\"" CR>)>)>)
+	   (<MC-THIS-PRSI?>
+	    <COND (<AND <MC-VERB? GIVE SHOW>
+			<MC-PRSO? ,TH-GARNET>>
+		   <RT-ALARM-SET-REL ,RT-I-OUT-OF-TIME <RT-PARM-SET 0 50 0>>
+		   <SET HAT <MC-IS? ,TH-WATSONS-HAT ,FL-WORN>>
+		   <COND (<RT-META-IN? ,TH-BOX-KEY ,CH-PLAYER>
+			  <REMOVE ,TH-BOX-KEY>)>
+		   <RT-MOVE-ALL ,CH-PLAYER ,RM-LAIR>
+		   <RT-MOVE-ALL ,TH-LAPEL ,RM-LAIR>
+		   <RT-MOVE-ALL ,TH-POCKET ,RM-LAIR>
+		   <RT-MOVE-ALL ,TH-WATSONS-COAT ,RM-LAIR>
+		   <RT-MOVE-ALL ,TH-EARS ,RM-LAIR>
+		   <MOVE ,TH-LAPEL ,TH-WATSONS-COAT>
+		   <MOVE ,TH-POCKET ,TH-WATSONS-COAT>
+		   <MOVE ,TH-WATSONS-COAT ,CH-PLAYER>
+		   <COND (<MC-T? .HAT>
+			  <MOVE ,TH-WATSONS-HAT ,CH-PLAYER>)
+			 (T
+			  <MC-UNMAKE ,TH-WATSONS-HAT ,FL-WORN>)>
+		   <MC-UNMAKE ,TH-CAB-WHISTLE ,FL-WORN>
+		   <MC-UNMAKE ,TH-STETHOSCOPE ,FL-WORN>
+		   <MOVE ,CH-AKBAR ,RM-LAIR>
+		   <REMOVE ,CH-WIGGINS>
+		   <TELL "Akbar takes " THEO " and examines it closely. Then he ">
+		   <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			  <TELL
+"says, \"I must ask you to come with me, sir. But first, I ask that you give
+me all that you carry.\" He takes everything you give him, and then apologizes
+as he places a blindfold over your eyes. He">)
+			 (T
+			  <TELL
+"grabs you by the arm and drags you into a back room. He frisks you and takes
+away everything you are carrying. Then he blindfolds you and">)>
+		   <TELL
+" leads you down a series of long winding corridors. You hear a door close
+behind you, and when he finally removes the blindfold, you are standing in
+Moriarty's lair. Akbar locks the door behind you, drops the key on Moriarty's
+desk, and piles most of what you were carrying onto the floor." CR>
+		   <RT-UPDATE-SCORE 5>
+		   <CRLF>
+		   <RT-GOTO ,RM-LAIR>)>)>>
+
+<ROUTINE RT-AC-CH-MORIARTY ("OPTIONAL" (CONTEXT <>) OBJ WRD ADJ OFF)
+       <DEBUGGING? <RT-DEBUG-CH-AC "CH-MORIARTY" .CONTEXT>>
+       <RT-THIS-IS-IT ,CH-MORIARTY>
+       <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	      <TELL
+"The Professor has a high domed forehead that rises above heavily
+lidded, almost reptilian eyes." CR>
+	      <RTRUE>)
+	     (<AND <MC-THIS-WINNER?>
+		   <FSET? ,GL-WINNER ,FL-ASLEEP>>
+	      <RT-NO-CONDITION-MSG ,GL-WINNER>)
+	     (<RT-TELL-ABOUT? ,CH-MORIARTY>
+	      <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			      ,GL-PRSO)
+			     (T
+			      ,GL-PRSI)>>
+	      <SET OFF <COND (<MC-VERB? WHO WHAT> 0) (T 1)>>
+	      <SET WRD <GET ,GL-P-NAMW .OFF>>
+	      <SET ADJ <GET ,GL-P-ADJW .OFF>>
+	      <COND (<MC-IS? ,CH-MORIARTY ,FL-ASLEEP>
+		     <RT-NO-CONDITION-MSG ,CH-MORIARTY>)
+		    (<MC-IS? ,CH-MORIARTY ,FL-LOCKED>
+		     <TELL
+"The Professor's cold, reptilian eyes glare at you in silent hatred." CR>)
+		    (<EQUAL? .OBJ ,CH-MORIARTY>
+		     <TELL  
+"\"I am a mathematical machine, Doctor. I think. I plan. And as you and the
+'great' Sherlock Holmes have now learned, all who oppose me suffer inexorable
+destruction.\"" CR>)
+		    (<OR <EQUAL? .OBJ ,CH-HOLMES ,CH-BANK-GUARD>
+			 <RT-IDENTIFY-EVENT? ,W?KIDNAPPING .OBJ>>
+		     <TELL
+"\"Holmes is a worthy adversary, Doctor. And his kidnapping was purely
+accidental. It was nothing more than a blunder on the part of an overeager
+subordinate. The guard at the bank knew nothing of my plan. He merely saw a
+chance to capture and deliver to me the famous Sherlock Holmes, and he took
+it.\"" CR>)
+		    (<EQUAL? .OBJ ,CH-AKBAR>
+		     <TELL
+"\"A trusted associate who was sensible enough to see the advantages of
+joining forces with me.\"" CR>)
+		    (<OR <EQUAL? .OBJ ,TH-CROWN-JEWELS>
+			 <RT-IDENTIFY-EVENT? ,W?THEFT .OBJ>>
+		     <COND (<==? .OBJ ,TH-CROWN-JEWELS>
+			    <TELL
+"\"Pretty, are they not? I purloined them">)
+			   (T
+			    <TELL "I purloined the Crown Jewels">)>
+		     <TELL " at the request of a foreign
+government whose identity need not concern you. My clients care nothing
+about the Crown Jewels themselves - they wish only to undermine confidence
+in the British monarchy as a first step towards weakening and ultimately
+destroying the British Empire.\"" CR>)
+		    (<OR <EQUAL? .OBJ ,TH-SAPPHIRE ,TH-EMERALD ,TH-RUBY
+				      ,TH-OPAL ,TH-GARNET ,TH-TOPAZ>
+			 <RT-IDENTIFY-EVENT? ,W?AGRA .OBJ>>
+		     <TELL
+"\"Merely bait to be used in the hunting of a greater prey.\"" CR>)
+		    (<EQUAL? .OBJ ,CH-QUEEN>
+		     <TELL
+"\"A foolish old woman. Her empire deserves to fail.\"" CR>)
+		    (T
+		     <TELL
+"\"Your lives and the fate of your precious monarchy hang in the balance,
+Doctor. Have you nothing better to do than to query me about " THE .OBJ "?\""
+CR>)>)
+	     (<RT-WHO-WHAT-FAIL?>
+	      <RFATAL>)
+	     (<MC-THIS-WINNER?>
+	      <COND (<MC-IS? ,CH-MORIARTY ,FL-ASLEEP>
+		     <RT-NO-CONDITION-MSG ,CH-MORIARTY>)
+		    (<MC-VERB? YES>
+		     <TELL ,K-GOOD-SHOW-MSG CR>)
+		    (<MC-VERB? NO>
+		     <TELL ,K-PITY-MSG CR>)
+		    (<MC-VERB? MAYBE>
+		     <TELL ,K-MAYBE-MSG CR>)
+		    (T
+		     <RT-NOT-LIKELY-MSG ,CH-MORIARTY "will do you any favours">
+		     <RTRUE>)>)
+	     (<MC-THIS-PRSI?>
+	      <RFALSE>)
+	     (<MC-THIS-PRSO?>
+	      <RFALSE>)>>
+
+<ROUTINE RT-AC-CH-HUDSON ("OPTIONAL" (CONTEXT <>) "AUX" OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-HUDSON" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-HUDSON>
+	<COND ;(<AND <MC-THIS-WINNER?>
+		    <FSET? ,GL-WINNER ,FL-ASLEEP>>
+	       <RT-NO-CONDITION-MSG ,GL-WINNER>)
+	      ;(<AND <==? .CONTEXT ,K-M-CONT>
+		    <FSET? ,CH-HUDSON ,FL-ASLEEP>>
+	       <TELL "You should be ashamed! After all Mrs Hudson has done
+for you, you could at least not steal from her. ">
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND ;(<MC-IS? ,CH-HUDSON ,FL-ASLEEP>
+		      <TELL "Mrs Hudson is quite unconscious." CR>
+		      <RTRUE>)
+		     (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <TELL "Mrs Hudson appears agitated. She looks at you
+and says, \"Mr Holmes is upstairs, Doctor. Please see what you can do for
+him.\"" CR>)
+		     (T
+		      <TELL "Mrs Hudson appears happy that things are back to
+normal." CR>)>
+	       <RTRUE>)
+	      (<RT-TELL-ABOUT? ,CH-HUDSON>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <COND (<EQUAL? .OBJ ,CH-HOLMES>
+			     <TELL
+"\"He doesn't eat. He doesn't drink. He doesn't read the newspaper. I'm very
+worried about him.\"" CR>)
+			    (<EQUAL? .OBJ ,CH-PRIME-MINISTER>
+			     <TELL
+"\"He seems very worried. I gave him some tea.\"" CR>)
+			    (T
+			     <TELL 
+CTHE ,CH-HUDSON " wrings her hands and looks at you anxiously. \"I'm too
+worried to think, Doctor. Won't you see what you can do for Mr Holmes?\""
+CR>)>
+		      <RTRUE>)
+		     (T
+		      <COND (<EQUAL? .OBJ ,CH-HOLMES>
+			     <TELL
+"\"He seems much better now, Doctor. Thank you so much.\"" CR>)
+			    (T
+			     <TELL
+"\"Shouldn't you be asking Mr Holmes?\"" CR>)>
+		      <RTRUE>)>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<MC-THIS-WINNER?>
+	       <COND (<MC-VERB? HELLO>
+		      <TELL "\"Hello, Dr Watson.\"" CR>)
+		     (<MC-VERB? GOODBYE>
+		      <TELL "\"Goodbye, Dr Watson.\"" CR>)
+		     (<MC-VERB? YES>
+		      <TELL ,K-GOOD-SHOW-MSG CR>)
+		     (<MC-VERB? NO>
+		      <TELL ,K-PITY-MSG CR>)
+		     (<MC-VERB? MAYBE>
+		      <TELL ,K-MAYBE-MSG CR>)
+		     (<MC-VERB? THANK>
+		      <TELL "\"You're quite welcome, Dr Watson.\"" CR>)
+		     (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <TELL
+"\"I'm sorry Doctor, but I cannot do anything for you until you have attended
+to Mr Holmes.\"" CR>)
+		     (T
+		      <TELL "\"I'm sorry. I must get back to my other
+duties.\"" CR>)>)>>
+
+<ROUTINE RT-AC-CH-DENKEEPER ("OPTIONAL" (CONTEXT <>) OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-DENKEEPER" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-DENKEEPER>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"He is a scrawny character with a weasel-like face and shifty eyes." CR>
+	       <RTRUE>)
+	      (<RT-TELL-ABOUT? ,CH-DENKEEPER>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <RFALSE>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<OR <AND <MC-VERB? CALL>
+			<MC-PRSO? ,CH-AKBAR>>
+		   <AND <MC-VERB? ASK-FOR ASK-ABOUT>
+			<MC-PRSI? ,CH-AKBAR>>>
+	       <COND (<OR <MC-ISNOT? ,CH-AKBAR ,FL-SEEN>
+			  <NOT <IN? ,CH-AKBAR ,RM-BAR-OF-GOLD>>>
+		      <TELL CTHE ,CH-DENKEEPER " gives">
+		      <RT-YOU-MSG>
+		      <TELL
+"a sideways look and says, \"He might be here, and then again he might not.
+What's the password?\"" CR>)
+		     (T
+		      <TELL
+CTHE ,CH-DENKEEPER " says, \"He's right there in front of you.\"" CR>)>
+	       <RTRUE>)
+	      (<MC-VERB? GIVE>
+	       <FCLEAR ,GL-PRSO ,FL-WORN>
+	       <REMOVE ,GL-PRSO>
+	       <TELL
+"The denkeeper gives you a quick look of surprise, then he shrugs his
+shoulders and disappears briefly into a back room, returning moments later
+without " THEO "." CR>
+	       <RTRUE>)
+	      (<AND <MC-THIS-WINNER?>
+		    <NOT <MC-VERB? SWORDFISH PASSWORD>>>
+	       <RT-NOT-LIKELY-MSG ,CH-DENKEEPER "will do you any favours">
+	       <RTRUE>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-CH-LIBRARIAN ("OPTIONAL" (CONTEXT <>) OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-LIBRARIAN" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-LIBRARIAN>
+	<COND (<RT-TELL-ABOUT? ,CH-LIBRARIAN>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <TELL "\"Let me finish telling you about this first.\"" CR>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<AND <MC-THIS-WINNER?>
+		    <NOT <MC-VERB? HUSH>>>
+	       <TELL "\"I will in a moment, but first let me finish telling you
+about this.\"" CR>
+	       <RTRUE>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-CH-NANNIES ("OPTIONAL" (CONTEXT <>) OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-NANNIES" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-NANNIES>
+	<COND (<RT-TELL-ABOUT? ,CH-NANNIES>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <TELL ,K-TOO-HAUGHTY-MSG CR>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<MC-THIS-WINNER?>
+	       <TELL ,K-TOO-HAUGHTY-MSG CR>
+	       <RTRUE>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-CH-HOUSEWIVES ("OPTIONAL" (CONTEXT <>) OBJ)
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-HOUSEWIVES" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-HOUSEWIVES>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<IN? ,CH-ELIZA-DOOLITTLE ,RM-COVENT-GARDEN>
+		      <TELL "The women have gathered in a circle around the
+girl. They keep looking at you as if they expect you to do something." CR>)
+		     (T
+		      <TELL "The housewives mill among the stalls, haggling
+with merchants over prices and looking for bargains." CR>)>
+	       <RTRUE>)
+	      (<RT-TELL-ABOUT? ,CH-HOUSEWIVES>
+	       <SET OBJ <COND (<MC-VERB? WHO WHAT>
+			       ,GL-PRSO)
+			      (T
+			       ,GL-PRSI)>>
+	       <TELL "The women do not respond." CR>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<MC-THIS-WINNER?>
+	       <COND (<IN? ,CH-ELIZA-DOOLITTLE ,RM-COVENT-GARDEN>
+		      <TELL "The women are too upset about the girl to respond." CR>)
+		     (T
+		      <TELL "The housewives, intent on a bargain, ignore you." CR>)>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? LISTEN>
+		      <TELL CTHEO " are making a lot of noise." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)>>
+
+<ROUTINE RT-AC-CH-PALACE-GUARD ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-PALACE-GUARD" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-PALACE-GUARD>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "Looks like any other " D ,CH-PALACE-GUARD "." CR>
+	       <RTRUE>)
+	      (<OR <RT-TELL-ABOUT? ,CH-PALACE-GUARD>
+		   <MC-THIS-WINNER?>>
+	       <TELL CTHE ,CH-PALACE-GUARD " stares straight ahead." CR>
+	       <RTRUE>)
+	      (<RT-WHO-WHAT-FAIL?>
+	       <RFATAL>)
+	      (<OR <AND <MC-VERB? GIVE SHOW>
+			<MC-PRSO? ,TH-CROWN-JEWELS>>
+		   <AND <EQUAL? .CONTEXT ,K-M-WINNER>
+			<MC-VERB? TAKE>
+			<MC-PRSO? ,TH-CROWN-JEWELS>>>
+	       <TELL
+CTHE ,CH-PALACE-GUARD " examines the regalia closely and then disappears
+inside the palace. Moments later, he reappears with the Prime Minister, who
+quickly ushers you and Holmes into the presence of the Queen." CR CR
+
+"Overcome by emotion, for a few moments she says nothing. Finally she smiles
+and says, \"Once again, Mr Holmes, we find ourselves in your debt. Until
+now you have always refused our offers of gratitude. Do you intend to refuse
+your Queen yet again?\"" CR CR
+
+"Holmes returns her smile. \"I do, Your Majesty. But only because your thanks
+would be misdirected. It is Doctor Watson here who deserves your
+gratitude.\"" CR CR
+
+"The Queen turns her gaze towards you. \"Indeed? And what reward would you
+ask of us, Doctor?\"" CR CR
+
+"Flustered, you stammer something about the service itself being reward
+enough, and before you know it you have been royally thanked and ushered back
+out of the palace into Queens Gardens. There, you and Holmes join the
+cheering multitudes who greet the Queen when, promptly at 9:00 and wearing
+the full regalia, she steps onto the balcony to begin the Coronation Day
+festivities." CR>
+	       <IFSOUND <SOUNDS ,S-FANFARE ,S-START 8 1 END-FANFARE>>
+	       <RT-UPDATE-SCORE 1>
+	       <TELL
+CR "[Your score is " N ,GL-SCORE-CUR " out of " N ,GL-SCORE-MAX ", which
+earns you a ranking of " <RT-RANK-STR ,GL-SCORE-CUR> ".]" CR CR>
+	       <RT-UPDATE-STATUS-LINE>
+	       <RT-QSR>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-CH-URCHINS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-URCHINS" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-URCHINS>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "Despite the hour, the">)
+		     (T
+		      <TELL "The">)>
+	       <TELL " urchins are playing games in the street." CR>
+	       <COND (<MC-IS? ,CH-WIGGINS ,FL-BROKEN>
+		      <TELL CR ,K-URCHIN-MSG CR>
+		      <RTRUE>)>)
+	      (<OR <RT-TELL-ABOUT? ,CH-URCHINS>
+		   <MC-THIS-WINNER?>>
+	       <TELL CTHE ,CH-URCHINS " ignore you." CR>
+	       <RTRUE>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-CH-MEMBERS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-CH-AC "CH-MEMBERS" .CONTEXT>>
+	<RT-THIS-IS-IT ,CH-MEMBERS>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL CTHE ,CH-MEMBERS " are all asleep." CR>
+	       ;<COND (<MC-ISNOT? ,CH-BUTLER ,FL-ASLEEP> ;"ALWAYS TRUE"
+		      <TELL "asleep">)
+		     (T
+		      <TELL "knocked out by the etherium, although it's hard to tell">)>
+	       ;<TELL "." CR>
+	       <RTRUE>)
+	      (<OR <RT-TELL-ABOUT? ,CH-MEMBERS>
+		   <MC-THIS-WINNER?>>
+	       ;<COND (<MC-IS? ,CH-MEMBERS ,FL-ASLEEP>
+		      <RT-NO-CONDITION-MSG ,CH-MEMBERS>)
+		     (T
+		      <TELL CTHE ,CH-MEMBERS " are all asleep." CR>)>
+	       <TELL CTHE ,CH-MEMBERS " are all asleep." CR>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? ALARM>
+		      <RT-CYOU-MSG>
+		      <TELL "can't. No one can." CR>)
+		     (<MC-VERB? LISTEN>
+		      <TELL CTHE ,CH-MEMBERS " are all asleep." CR>)>)>>
+
diff --git a/places1.zil b/places1.zil
new file mode 100644
index 0000000..0b5cd01
--- /dev/null
+++ b/places1.zil
@@ -0,0 +1,1101 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : PLACES1.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   25 Oct 1987 19:04:04  $"
+; "rev  : $Revision:   1.49  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+; "FORMERLY SHADOWED BY LG-BAKER-ST"
+
+<OBJECT RM-221B-BAKER-ST
+   (LOC ROOMS)
+   (DESC "221-B Baker Street")
+   (SYNONYM STREET ST)
+   (ADJECTIVE 221-B 221B BAKER)
+   (NORTH TO RM-YORK-PLACE)
+   (SOUTH TO RM-ORCHARD-ST)
+   (WEST  TO RM-ENTRY-HALL IF LG-BAKER-ST-DOOR IS OPEN)
+   (IN    TO RM-ENTRY-HALL IF LG-BAKER-ST-DOOR IS OPEN)
+   (FLAGS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL  LG-BAKER-ST-DOOR LG-WINDOW
+	    RM-ENTRY-HALL LG-STREETLIGHT)
+   (ACTION RT-AC-RM-221B-BAKER-ST)>
+
+<OBJECT RM-ENTRY-HALL
+   (LOC ROOMS)
+   (DESC "entry hall")
+   (NORTH PER RT-EX-PARLOUR-ENTRY)
+   (EAST  TO RM-221B-BAKER-ST IF LG-BAKER-ST-DOOR IS OPEN)
+   (UP    TO RM-VESTIBULE)
+   (IN    PER RT-EX-PARLOUR-ENTRY)
+   (OUT   TO RM-221B-BAKER-ST IF LG-BAKER-ST-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-VOWEL FL-HAS-DESCFCN FL-NEEDS-IDENTITY)
+   (GLOBAL  LG-BAKER-ST-DOOR LG-PARLOUR-DOOR LG-STAIRWAY RM-PARLOUR
+	    RM-221B-BAKER-ST)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (PSEUDOS GAS (LIGHT GASLIGHT) RT-AC-TH-GAS-LIGHT)
+   (SYNONYM HALL HOUSE)
+   (ADJECTIVE ENTRY HOLMES\' HOLMES\'S)
+   (ACTION RT-AC-RM-ENTRY-HALL)>
+
+<OBJECT RM-PARLOUR
+   (LOC ROOMS)
+   (DESC "parlour")
+   (SOUTH TO RM-ENTRY-HALL IF LG-PARLOUR-DOOR IS OPEN)
+   (OUT   TO RM-ENTRY-HALL IF LG-PARLOUR-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-PARLOUR-DOOR RM-ENTRY-HALL)
+   (SYNONYM PARLOUR PARLOR)
+   (ACTION RT-AC-RM-PARLOUR)>
+
+<OBJECT RM-VESTIBULE
+   (LOC ROOMS)
+   (DESC "vestibule")
+   (NORTH TO RM-HOLMES-STUDY IF LG-HOLMES-STUDY-DOOR IS OPEN)
+   (IN	 TO RM-HOLMES-STUDY IF LG-HOLMES-STUDY-DOOR IS OPEN)
+   (DOWN  TO RM-ENTRY-HALL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-HOLMES-STUDY-DOOR LG-STAIRWAY RM-HOLMES-STUDY
+    	   RM-ENTRY-HALL)
+   (SYNONYM VESTIBULE)
+   (ACTION RT-AC-RM-VESTIBULE)>
+
+<OBJECT RM-HOLMES-STUDY
+   (LOC ROOMS)
+   (DESC "Holmes's study")
+   (NORTH SORRY "The fireplace is in the way.")
+   (EAST SORRY "You would fly out the bow window.")
+   (SOUTH TO RM-VESTIBULE IF LG-HOLMES-STUDY-DOOR IS OPEN)
+   (IN	 TO RM-HOLMES-BEDROOM IF LG-HOLMES-BEDROOM-DOOR IS OPEN)
+   (OUT	 TO RM-VESTIBULE IF LG-HOLMES-STUDY-DOOR IS OPEN)
+   (WEST TO RM-HOLMES-BEDROOM IF LG-HOLMES-BEDROOM-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL  LG-HOLMES-STUDY-DOOR LG-HOLMES-BEDROOM-DOOR
+	    LG-WINDOW RM-HOLMES-BEDROOM RM-VESTIBULE RM-ENTRY-HALL)
+   (SYNONYM STUDY)
+   (PSEUDOS <> (FIREPLACE FIRE FLAME) RT-AC-TH-FIREPLACE)
+   (ACTION RT-AC-RM-HOLMES-STUDY)>
+
+<OBJECT RM-HOLMES-BEDROOM
+   (LOC ROOMS)
+   (DESC "Holmes's bedroom")
+   (EAST TO RM-HOLMES-STUDY IF LG-HOLMES-BEDROOM-DOOR IS OPEN)
+   (OUT	 TO RM-HOLMES-STUDY IF LG-HOLMES-BEDROOM-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-HOLMES-BEDROOM-DOOR RM-HOLMES-STUDY RM-ENTRY-HALL)
+   (PSEUDOS <> (PICTURES CRIMINAL PICTURE CRIMINALS) RT-AC-TH-PICTURES)
+   (SYNONYM BEDROOM)
+   (ACTION RT-AC-RM-HOLMES-BEDROOM)>
+
+<OBJECT RM-YORK-PLACE
+   (LOC ROOMS)
+   (DESC "York Place")
+   (NORTH PER RT-SURGE)
+   (EAST TO RM-MARYLEBONE-RD)
+   (SOUTH TO RM-221B-BAKER-ST)
+   (WEST PER RT-SURGE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM PLACE)
+   (ADJECTIVE YORK)
+   (ACTION RT-AC-RM-YORK-PLACE)>
+
+<OBJECT RM-MARYLEBONE-RD
+   (LOC ROOMS)
+   (DESC "Marylebone Road")
+   (NORTH PER RT-EX-RM-MATCH-SNIFFING-DOG)
+   (EAST  TO RM-TOTTENHAM-COURT-RD)
+   (WEST  TO RM-YORK-PLACE)
+   (IN    PER RT-EX-RM-MATCH-SNIFFING-DOG)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-MARYLEBONE-RD RM-MADAME-TUSSAUDS)
+   (SYNONYM ROAD)
+   (ADJECTIVE MARYLEBONE)
+   (ACTION RT-AC-RM-MARYLEBONE-RD)>
+
+<OBJECT RM-MADAME-TUSSAUDS
+   (LOC ROOMS)
+   (DESC "Madame Tussaud's")
+   (SOUTH PER RT-EX-RM-EXIT-TUSSAUDS)
+   (WEST  TO RM-CHAMBER-OF-HORRORS)
+   (IN    TO RM-CHAMBER-OF-HORRORS)
+   (OUT   PER RT-EX-RM-EXIT-TUSSAUDS)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN
+	  FL-NO-ETHERIUM)
+   (GLOBAL LG-PLAQUES)
+   (PSEUDOS WAX (SAND BOWLS CLOAK MUD MEADOW WAX) RT-AC-TH-WAX-OBJECT-1
+	    WAX (GROUPINGS STATUES FIGURES SCULPTURES STATUE SCENES WAX)
+	    RT-DF-LG-WAX-STATUES)
+   (SYNONYM TUSSAUDS TUSSAUD\'S MUSEUM)
+   (ADJECTIVE MADAME WAX)
+   (ACTION RT-AC-RM-MADAME-TUSSAUDS)>
+
+<OBJECT RM-CHAMBER-OF-HORRORS
+   (LOC ROOMS)
+   (DESC "Chamber of Horrors")
+   (EAST  TO RM-MADAME-TUSSAUDS)
+   (OUT   TO RM-MADAME-TUSSAUDS)
+   (FLAGS FL-INDOORS FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (SYNONYM CHAMBER HORRORS)
+   (ADJECTIVE CHAMBER HORRORS)
+   (PSEUDOS WAX (BARREL BARRELS BLOCK EXECUTIONER MUD KNIGHTS
+		 KNIGHT SWORD SWORDS ALTAR GUNPOWDER WAX)
+	    RT-AC-TH-WAX-OBJECT-1
+	    WAX (GROUPINGS STATUES FIGURES SCULPTURES STATUE SCENES WAX)
+	    RT-DF-LG-WAX-STATUES)
+   (ACTION RT-AC-RM-CHAMBER-OF-HORRORS)>
+
+<OBJECT RM-TOTTENHAM-COURT-RD
+   (LOC ROOMS)
+   (DESC "Tottenham Court Road")
+   (NORTH PER RT-SURGE)
+   (EAST  PER RT-SURGE)
+   (SOUTH TO RM-ST-GILES-CIRCUS)
+   (WEST  TO RM-MARYLEBONE-RD)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-SHOPS)
+   (SYNONYM ROAD)
+   (ADJECTIVE TOTTENHAM COURT)
+   (ACTION RT-AC-RM-TOTTENHAM-COURT-RD)>
+
+<OBJECT RM-ST-GILES-CIRCUS
+   (LOC ROOMS)
+   (DESC "St Giles Circus")
+   (NORTH TO RM-TOTTENHAM-COURT-RD)
+   (EAST  TO RM-NEW-OXFORD-ST)
+   (SOUTH TO RM-TRAFALGAR-SQUARE)
+   (WEST  TO RM-OXFORD-ST)
+   (NE    TO RM-GREAT-RUSSELL-ST)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM GILES CIRCUS)
+   (ADJECTIVE ST SAINT GILES)
+   (ACTION RT-AC-RM-ST-GILES-CIRCUS)>
+
+<OBJECT RM-OXFORD-ST
+   (LOC ROOMS)
+   (DESC "Oxford Street")
+   (EAST  TO RM-ST-GILES-CIRCUS)
+   (WEST  TO RM-ORCHARD-ST)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN)
+   (GLOBAL LG-SHOPS)
+   (ADJECTIVE OXFORD)
+   (SYNONYM STREET ST)
+   (ACTION RT-AC-RM-OXFORD-ST)>
+
+<OBJECT RM-ORCHARD-ST
+   (LOC ROOMS)
+   (DESC "Orchard Street")
+   (NORTH TO RM-221B-BAKER-ST)
+   (EAST  TO RM-OXFORD-ST)
+   (SOUTH TO RM-AUDLEY-ST)
+   (WEST  PER RT-SURGE)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN)
+   (ADJECTIVE ORCHARD)
+   (SYNONYM STREET ST)
+   (ACTION RT-AC-RM-ORCHARD-ST)>
+
+<OBJECT RM-AUDLEY-ST
+   (LOC ROOMS)
+   (DESC "Audley Street")
+   (NORTH TO RM-ORCHARD-ST)
+   (SOUTH TO RM-HYDE-PARK-CORNER)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN)
+   (ADJECTIVE AUDLEY)
+   (SYNONYM STREET ST)
+   (ACTION RT-AC-RM-AUDLEY-ST)>
+
+<OBJECT RM-HYDE-PARK-CORNER
+   (LOC ROOMS)
+   (DESC "Hyde Park Corner")
+   (NORTH TO RM-AUDLEY-ST)
+   (EAST  PER RT-SURGE)
+   (SOUTH PER RT-SURGE)
+   (WEST  PER RT-SURGE)
+   (NE    PER RT-SURGE)
+   (NW    TO RM-KENSINGTON-GARDENS)
+   (SE    TO RM-GROSVENOR-PLACE)
+   (SW    PER RT-SURGE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM CORNER)
+   (ADJECTIVE HYDE PARK)
+   (PSEUDOS TRIUMPHAL ARCH RT-AC-TH-ARCH
+	    <> CHARIOT RT-AC-TH-CHARIOT)
+   (ACTION RT-AC-RM-HYDE-PARK-CORNER)>
+
+<OBJECT RM-KENSINGTON-GARDENS
+   (LOC ROOMS)
+   (DESC "Kensington Gardens")
+   (NORTH PER RT-SURGE)
+   (EAST  PER RT-SURGE)
+   (SOUTH PER RT-SURGE)
+   (WEST  PER RT-SURGE)
+   (NE    PER RT-SURGE)
+   (NW    PER RT-SURGE)
+   (SE    TO RM-HYDE-PARK-CORNER)
+   (SW    PER RT-SURGE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-HYDE-PARK-CORNER)
+   (SYNONYM GARDENS)
+   (ADJECTIVE KENSINGTON)
+   (ACTION RT-AC-RM-KENSINGTON-GARDENS)>
+
+<OBJECT RM-TRAFALGAR-SQUARE
+   (LOC ROOMS)
+   (DESC "Trafalgar Square")
+   (NORTH TO RM-ST-GILES-CIRCUS)
+   (EAST  PER RT-SURGE)
+   (SOUTH TO RM-WHITEHALL)
+   (WEST  TO RM-DIOGENES-CLUB)
+   (IN    TO RM-DIOGENES-CLUB)
+   (NE    TO RM-THE-STRAND)
+   (SW    TO RM-THE-MALL)
+   (UP    SORRY "You were thinking maybe you had wings?")
+   (FLAGS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-PLAQUES RM-DIOGENES-CLUB)
+   (SYNONYM SQUARE)
+   (ADJECTIVE TRAFALGAR)
+   (PSEUDOS <> PEDESTAL RT-AC-LG-PEDESTAL)
+   (ACTION RT-AC-RM-TRAFALGAR-SQUARE)>
+
+<OBJECT RM-DIOGENES-CLUB
+   (LOC ROOMS)
+   (DESC "Diogenes Club")
+   (EAST  TO RM-TRAFALGAR-SQUARE)
+   (OUT	 TO RM-TRAFALGAR-SQUARE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL RM-TRAFALGAR-SQUARE)
+   (SYNONYM CLUB)
+   (ADJECTIVE DIOGENES)
+   (ACTION RT-AC-RM-DIOGENES-CLUB)>
+
+<OBJECT RM-GREAT-RUSSELL-ST
+   (LOC ROOMS)
+   (DESC "Great Russell Street")
+   (NORTH TO RM-BRITISH-MUSEUM IF LG-BRITISH-MUSEUM-DOOR IS OPEN)
+   (EAST  PER RT-SURGE)
+   (WEST  PER RT-SURGE)
+   (SW    TO RM-ST-GILES-CIRCUS)
+   (IN    TO RM-BRITISH-MUSEUM IF LG-BRITISH-MUSEUM-DOOR IS OPEN)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL  LG-BRITISH-MUSEUM-DOOR LG-PLAQUES LG-STAIRWAY
+	    RM-BRITISH-MUSEUM)
+   (SYNONYM STREET ST)
+   (ADJECTIVE GREAT RUSSELL)
+   (ACTION RT-AC-RM-GREAT-RUSSELL-ST)>
+
+<OBJECT RM-BRITISH-MUSEUM
+   (LOC ROOMS)
+   (DESC "British Museum")
+   (EAST  TO RM-MANUSCRIPT-ROOM)
+   (SOUTH TO RM-GREAT-RUSSELL-ST IF LG-BRITISH-MUSEUM-DOOR IS OPEN)
+   (IN    TO RM-MANUSCRIPT-ROOM)
+   (OUT   TO RM-GREAT-RUSSELL-ST IF LG-BRITISH-MUSEUM-DOOR IS OPEN)
+   (NORTH  PER RT-SURGE)
+   (WEST   PER RT-SURGE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-BRITISH-MUSEUM-DOOR LG-STAIRWAY RM-GREAT-RUSSELL-ST)
+   (SYNONYM MUSEUM)
+   (ADJECTIVE BRITISH)
+   (ACTION RT-AC-RM-BRITISH-MUSEUM)>
+
+<OBJECT RM-MANUSCRIPT-ROOM
+   (LOC ROOMS)
+   (DESC "Manuscript Room")
+   (WEST  TO RM-BRITISH-MUSEUM)
+   (OUT  TO RM-BRITISH-MUSEUM)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-PLAQUES)
+   (SYNONYM ROOM)
+   (ADJECTIVE MANUSCRIPT)
+   (PSEUDOS DUSTY (DESK BOOKS CASES CASE BOOKSHELVES BOOKCASE)
+	    RT-AC-TH-LIBRARY-OBJ)
+   (ACTION RT-AC-RM-MANUSCRIPT-ROOM)>
+
+<OBJECT RM-GROSVENOR-PLACE
+   (LOC ROOMS)
+   (DESC "Grosvenor Place")
+   (NW    TO RM-HYDE-PARK-CORNER)
+   (SE    TO RM-VICTORIA-SQUARE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM PLACE)
+   (ADJECTIVE GROSVENOR)
+   (ACTION RT-AC-RM-GROSVENOR-PLACE)>
+
+<OBJECT RM-VICTORIA-SQUARE
+   (LOC ROOMS)
+   (DESC "Victoria Square")
+   (EAST  TO RM-VICTORIA-STREET)
+   (NE    TO RM-BUCKINGHAM-PALACE-RD)
+   (NW    TO RM-GROSVENOR-PLACE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-SHOPS)
+   (SYNONYM SQUARE)
+   (ADJECTIVE VICTORIA)
+   (ACTION RT-AC-RM-VICTORIA-SQUARE)>
+
+<OBJECT RM-VICTORIA-STREET
+   (LOC ROOMS)
+   (DESC "Victoria Street")
+   (EAST  TO RM-BROAD-SANCTUARY)
+   (WEST  TO RM-VICTORIA-SQUARE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-SHOPS LG-PLAQUES)
+   (SYNONYM STREET ST)
+   (ADJECTIVE VICTORIA)
+   (ACTION RT-AC-RM-VICTORIA-STREET)>
+
+<OBJECT RM-BROAD-SANCTUARY
+   (LOC ROOMS)
+   (DESC "Broad Sanctuary")
+   (EAST  TO RM-NAVE IF LG-WESTMINSTER-DOOR IS OPEN)
+   (WEST  TO RM-VICTORIA-STREET)
+   (NE    TO RM-PARLIAMENT-SQUARE)
+   (IN    TO RM-NAVE IF LG-WESTMINSTER-DOOR IS OPEN)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-WESTMINSTER-DOOR LG-PLAQUES LG-TOMBS-ABBEY)
+   (SYNONYM SANCTUARY)
+   (ADJECTIVE BROAD)
+   (ACTION RT-AC-RM-BROAD-SANCTUARY)>
+
+<OBJECT RM-PARLIAMENT-SQUARE
+   (LOC ROOMS)
+   (DESC "Parliament Square")
+   (NORTH TO RM-WHITEHALL)
+   (EAST  PER RT-SURGE)
+   (WEST  TO RM-BIRDCAGE-WALK)
+   (SE    TO RM-PARLIAMENT)
+   (SW    TO RM-BROAD-SANCTUARY)
+   (IN    TO RM-PARLIAMENT)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-PARLIAMENT)
+   (SYNONYM SQUARE)
+   (ADJECTIVE PARLIAMENT)
+   (ACTION RT-AC-RM-PARLIAMENT-SQUARE)>
+
+<OBJECT RM-PARLIAMENT
+   (LOC ROOMS)
+   (DESC "Houses of Parliament")
+   (IN    PER RT-SURGE)
+   (NW    TO RM-PARLIAMENT-SQUARE)
+   (UP    TO RM-CLOCK-TOWER)
+   (OUT   TO RM-PARLIAMENT-SQUARE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-STAIRWAY RM-PARLIAMENT-SQUARE)
+   (SYNONYM HOUSE HOUSES PARLIAMENT COMMONS)
+   (ADJECTIVE HOUSES HOUSE PARLIAMENT)
+   (ACTION RT-AC-RM-PARLIAMENT)>
+
+<OBJECT RM-CLOCK-TOWER
+   (LOC ROOMS)
+   (DESC "Clock Tower")
+   (DOWN  TO RM-PARLIAMENT)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY)
+   ;(LOOKDN TH-SHAFT)
+   (ACTION RT-AC-RM-CLOCK-TOWER)>
+
+<OBJECT RM-BUCKINGHAM-PALACE-RD
+   (LOC ROOMS)
+   (DESC "Buckingham Palace Road")
+   (NE    TO RM-QUEENS-GARDENS)
+   (SW    TO RM-VICTORIA-SQUARE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM ROAD)
+   (ADJECTIVE BUCKINGHAM PALACE)
+   (ACTION RT-AC-RM-BUCKINGHAM-PALACE-RD)>
+
+<OBJECT RM-QUEENS-GARDENS
+   (LOC ROOMS)
+   (DESC "Queens Gardens")
+   (WEST  PER RT-EX-RM-ENTER-BUCKINGHAM-PALACE)
+   (NE    TO RM-THE-MALL)
+   (SE    TO RM-BIRDCAGE-WALK)
+   (SW    TO RM-BUCKINGHAM-PALACE-RD)
+   (IN    PER RT-EX-RM-ENTER-BUCKINGHAM-PALACE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-BUCKINGHAM-PALACE)
+   (SYNONYM GARDENS)
+   (ADJECTIVE QUEENS QUEEN\'S)
+   (ACTION RT-AC-RM-QUEENS-GARDENS)>
+
+<OBJECT RM-BUCKINGHAM-PALACE
+   (LOC ROOMS)
+   (DESC "Buckingham Palace")
+   (EAST  TO RM-QUEENS-GARDENS)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-NO-ETHERIUM)
+   (SYNONYM PALACE)
+   (ADJECTIVE BUCKINGHAM)
+   (GLOBAL RM-QUEENS-GARDENS)
+   (ACTION RT-AC-RM-BUCKINGHAM-PALACE)>
+
+<OBJECT RM-BIRDCAGE-WALK
+   (LOC ROOMS)
+   (DESC "Birdcage Walk")
+   (EAST  TO RM-PARLIAMENT-SQUARE)
+   (NW    TO RM-QUEENS-GARDENS)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM WALK)
+   (ADJECTIVE BIRDCAGE)
+   (ACTION RT-AC-RM-BIRDCAGE-WALK)>
+
+<OBJECT RM-THE-MALL
+   (LOC ROOMS)
+   (DESC "The Mall")
+   (NE    TO RM-TRAFALGAR-SQUARE)
+   (SW    TO RM-QUEENS-GARDENS)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM MALL)
+   (ACTION RT-AC-RM-THE-MALL)>
+
+<OBJECT RM-WHITEHALL
+   (LOC ROOMS)
+   (DESC "Whitehall")
+   (EAST  TO RM-SCOTLAND-YARD)
+   (IN    TO RM-SCOTLAND-YARD)
+   (NORTH TO RM-TRAFALGAR-SQUARE)
+   (SOUTH TO RM-PARLIAMENT-SQUARE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-SCOTLAND-YARD)
+   (SYNONYM WHITEHALL)
+   (ACTION RT-AC-RM-WHITEHALL)>
+
+<OBJECT RM-SCOTLAND-YARD
+   (LOC ROOMS)
+   (DESC "Scotland Yard")
+   (WEST  TO RM-WHITEHALL)
+   (DOWN  TO RM-THE-BLACK-MUSEUM)
+   (OUT   TO RM-WHITEHALL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-STAIRWAY RM-WHITEHALL)
+   (SYNONYM YARD)
+   (ADJECTIVE SCOTLAND)
+   (ACTION RT-AC-RM-SCOTLAND-YARD)>
+
+<OBJECT RM-THE-BLACK-MUSEUM
+   (LOC ROOMS)
+   (DESC "The Black Museum")
+   (UP    TO RM-SCOTLAND-YARD)
+   (FLAGS FL-INDOORS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-PLAQUES LG-STAIRWAY RM-SCOTLAND-YARD)
+   (SYNONYM MUSEUM)
+   (ADJECTIVE BLACK)
+   (ACTION RT-AC-RM-THE-BLACK-MUSEUM)>
+
+<OBJECT RM-NEW-OXFORD-ST
+   (LOC ROOMS)
+   (DESC "New Oxford Street")
+   (EAST  TO RM-CHEAPSIDE)
+   (SOUTH TO RM-COVENT-GARDEN)
+   (WEST  TO RM-ST-GILES-CIRCUS)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM STREET ST)
+   (ADJECTIVE NEW OXFORD)
+   (ACTION RT-AC-RM-NEW-OXFORD-ST)>
+
+<OBJECT RM-COVENT-GARDEN
+   (LOC ROOMS)
+   (DESC "Covent Garden")
+   (NORTH TO RM-NEW-OXFORD-ST)
+   (SOUTH TO RM-THE-STRAND)
+   (EAST PER RT-SURGE)
+   (WEST PER RT-SURGE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN FL-NO-CROWDS)
+   (SYNONYM GARDEN)
+   (ADJECTIVE COVENT)
+   (PSEUDOS GIANT (PRODUCE APPLES ORANGES FRUIT FRUITS VEGETABLES PEAS)
+	    RT-AC-TH-PRODUCE)
+   (ACTION RT-AC-RM-COVENT-GARDEN)>
+
+<OBJECT RM-THE-STRAND
+   (LOC ROOMS)
+   (DESC "The Strand")
+   (NORTH TO RM-COVENT-GARDEN)
+   (EAST  TO RM-FLEET-STREET)
+   (WEST  PER RT-SURGE)
+   (SW    TO RM-TRAFALGAR-SQUARE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (PSEUDOS <> (MARQUEES THEATRES THEATRE MARQUEE THEATER THEATERS)
+	    RT-AC-TH-MARQUEES)
+   (SYNONYM STRAND)
+   (ACTION RT-AC-RM-THE-STRAND)>
+
+<OBJECT RM-FLEET-STREET
+   (LOC ROOMS)
+   (DESC "Fleet Street")
+   (EAST PER RT-SURGE)
+   ;(EAST  TO RM-BLIND-ALLEY)
+   (SOUTH TO RM-THE-EMBANKMENT)
+   (WEST  TO RM-THE-STRAND)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM STREET ST)
+   (ADJECTIVE FLEET)
+   (ACTION RT-AC-RM-FLEET-STREET)>
+
+<OBJECT RM-THE-EMBANKMENT
+   (LOC ROOMS)
+   (DESC "the Embankment")
+   (NORTH PER RT-EX-LEAVE-EMBANKMENT)
+   (EAST  PER RT-EX-LEAVE-EMBANKMENT)
+   (SOUTH PER RT-EX-RM-LAUNCH-BOAT)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-WATER LG-UP-DOWN-STREAM LG-BOATS)
+   (SYNONYM EMBANKMENT)
+   (ACTION RT-AC-RM-THE-EMBANKMENT)>
+
+<OBJECT RM-THAMES-ONE
+   (LOC ROOMS)
+   (DESC "On the Thames")
+   (NORTH PER RT-EX-RM-LAND-BOAT)
+   (EAST  PER RT-EX-RM-STEER-BOAT)
+   (SOUTH PER RT-EX-RM-STEER-BOAT)
+   (WEST  PER RT-EX-RM-STEER-BOAT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-WATER LG-UP-DOWN-STREAM RM-THE-EMBANKMENT LG-BOATS)
+   (ACTION RT-AC-RM-THAMES-ONE)>
+
+<OBJECT RM-THAMES-TWO
+   (LOC ROOMS)
+   (DESC "On the Thames")
+   (NORTH PER RT-EX-RM-LAND-BOAT)
+   (EAST  PER RT-EX-RM-STEER-BOAT)
+   (SOUTH PER RT-EX-RM-STEER-BOAT)
+   (WEST  PER RT-EX-RM-STEER-BOAT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-WATER RM-LONDON-BRIDGE LG-UP-DOWN-STREAM LG-BOATS)
+   (ACTION RT-AC-RM-THAMES-TWO)>
+
+<OBJECT RM-THAMES-THREE
+   (LOC ROOMS)
+   (DESC "On the Thames")
+   (NORTH PER RT-EX-RM-LAND-BOAT)
+   (EAST  PER RT-EX-RM-STEER-BOAT)
+   (SOUTH PER RT-EX-RM-STEER-BOAT)
+   (WEST  PER RT-EX-RM-STEER-BOAT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-WATER RM-LONDON-BRIDGE LG-UP-DOWN-STREAM LG-BOATS)
+   (PSEUDOS <> (SUPPORTS CROSSBARS STRUTS) RT-AC-TH-SUPPORTS)
+   (ACTION RT-AC-RM-THAMES-THREE)>
+
+<OBJECT RM-THAMES-FOUR
+   (LOC ROOMS)
+   (DESC "On the Thames")
+   (NORTH PER RT-EX-RM-LAND-BOAT)
+   (EAST  PER RT-EX-RM-STEER-BOAT)
+   (SOUTH PER RT-EX-RM-STEER-BOAT)
+   (WEST  PER RT-EX-RM-STEER-BOAT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-WATER RM-LONDON-BRIDGE LG-UP-DOWN-STREAM LG-BOATS)
+   (ACTION RT-AC-RM-THAMES-FOUR)>
+
+<OBJECT RM-THAMES-FIVE
+   (LOC ROOMS)
+   (DESC "On the Thames")
+   (NORTH PER RT-EX-RM-LAND-BOAT)
+   (EAST  PER RT-EX-RM-STEER-BOAT)
+   (SOUTH PER RT-EX-RM-STEER-BOAT)
+   (WEST  PER RT-EX-RM-STEER-BOAT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-WATER LG-UP-DOWN-STREAM LG-BOATS)
+   (ACTION RT-AC-RM-THAMES-FIVE)>
+
+<OBJECT RM-UPPER-THAMES-ST
+   (LOC ROOMS)
+   (DESC "Upper Thames Street")
+   (EAST  TO RM-LOWER-THAMES-ST)
+   (WEST  TO RM-THE-EMBANKMENT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN)
+   (SYNONYM STREET ST)
+   (ADJECTIVE UPPER THAMES)
+   (ACTION RT-AC-RM-UPPER-THAMES-ST)>
+
+;<OBJECT RM-BLIND-ALLEY
+   (LOC ROOMS)
+   (DESC "Blind Alley")
+   (EAST  TO RM-SIGN-OF-RED-HERRING)
+   (WEST  TO RM-FLEET-STREET)
+   (IN    TO RM-SIGN-OF-RED-HERRING)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL  RM-SIGN-OF-RED-HERRING LG-PLAQUES)
+   (SYNONYM ALLEY)
+   (ADJECTIVE BLIND)
+   (ACTION RT-AC-RM-BLIND-ALLEY)>
+
+;<OBJECT RM-SIGN-OF-RED-HERRING
+   (LOC ROOMS)
+   (DESC "The Sign of the Red Herring")
+   (WEST  TO RM-BLIND-ALLEY)
+   (OUT   TO RM-BLIND-ALLEY)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-BLIND-ALLEY)
+   (SYNONYM HERRING)
+   (ADJECTIVE OLD PUB RED)
+   (ACTION RT-AC-RM-SIGN-OF-RED-HERRING)>
+
+<OBJECT RM-PINCHIN-LANE
+   (LOC ROOMS)
+   (DESC "Pinchin Lane")
+   (NORTH TO RM-CHEAPSIDE)
+   (WEST  TO RM-SHERMANS-HOUSE)
+   (IN    TO RM-SHERMANS-HOUSE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-SHERMANS-HOUSE)
+   (SYNONYM LANE ALLEY)
+   (ADJECTIVE PINCHIN)
+   (ACTION RT-AC-RM-PINCHIN-LANE)>
+
+<OBJECT RM-SHERMANS-HOUSE
+   (LOC ROOMS)
+   (DESC "Sherman's Shop")
+   (EAST  TO RM-PINCHIN-LANE)
+   (OUT   TO RM-PINCHIN-LANE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-ASLEEP FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL RM-PINCHIN-LANE)
+   (SYNONYM HOUSE SHOP)
+   (ADJECTIVE SHERMAN\' PET)
+   (ACTION RT-AC-RM-SHERMANS-HOUSE)>
+
+<OBJECT RM-CHEAPSIDE
+   (LOC ROOMS)
+   (DESC "Cheapside")
+   (EAST  TO RM-THREADNEEDLE-ST)
+   (SOUTH TO RM-PINCHIN-LANE)
+   (WEST  TO RM-NEW-OXFORD-ST)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM CHEAPSIDE)
+   (ACTION RT-AC-RM-CHEAPSIDE)>
+
+<OBJECT RM-THREADNEEDLE-ST
+   (LOC ROOMS)
+   (DESC "Threadneedle Street")
+   (NORTH PER RT-EX-ENTER-BANK-OF-ENGLAND)
+   (IN    PER RT-EX-ENTER-BANK-OF-ENGLAND)
+   (WEST  TO RM-CHEAPSIDE)
+   (SE    TO RM-KING-WILLIAM-ST)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-PLAQUES RM-BANK-OF-ENGLAND)
+   (SYNONYM STREET ST)
+   (ADJECTIVE THREADNEEDLE)
+   (ACTION RT-AC-RM-THREADNEEDLE-ST)>
+
+<OBJECT RM-BANK-OF-ENGLAND
+   (LOC ROOMS)
+   (DESC "Bank of England")
+   (SOUTH TO RM-THREADNEEDLE-ST)
+   (OUT   TO RM-THREADNEEDLE-ST)
+   (WEST  TO RM-BANK-VAULT IF LG-BANK-VAULT-DOOR IS OPEN)
+   (IN    TO RM-BANK-VAULT IF LG-BANK-VAULT-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN ;FL-NO-ETHERIUM)
+   (GLOBAL LG-BANK-VAULT-DOOR RM-THREADNEEDLE-ST RM-BANK-VAULT)
+   (ADJECTIVE ENGLAND)
+   (SYNONYM BANK ENGLAND)
+   (ACTION RT-AC-RM-BANK-OF-ENGLAND)>
+
+<OBJECT RM-BANK-VAULT
+   (LOC ROOMS)
+   (DESC "bank vault")
+   (EAST  TO RM-BANK-OF-ENGLAND IF LG-BANK-VAULT-DOOR IS OPEN)
+   (OUT   TO RM-BANK-OF-ENGLAND IF LG-BANK-VAULT-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-BANK-VAULT-DOOR RM-BANK-OF-ENGLAND)
+   (SYNONYM VAULT)
+   (ACTION RT-AC-RM-BANK-VAULT)>
+
+<OBJECT RM-KING-WILLIAM-ST
+   (LOC ROOMS)
+   (DESC "King William Street")
+   (NW    TO RM-THREADNEEDLE-ST)
+   (SE    TO RM-MONUMENT)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (SYNONYM STREET ST)
+   (ADJECTIVE KING WILLIAM)
+   (ACTION RT-AC-RM-KING-WILLIAM-ST)>
+
+<OBJECT RM-MONUMENT
+   (LOC ROOMS)
+   (DESC "the Monument")
+;  (EAST  TO RM-TOWER-STREET)
+   (SOUTH TO RM-LOWER-THAMES-ST)
+   (NW    TO RM-KING-WILLIAM-ST)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-PLAQUES)
+   (SYNONYM MONUMENT OBELISK) 
+   (ACTION RT-AC-RM-MONUMENT)>
+
+<OBJECT RM-LOWER-THAMES-ST
+   (LOC ROOMS)
+   (DESC "Lower Thames Street")
+   (NORTH TO RM-MONUMENT)
+   (EAST  TO RM-TOWER-ENTRANCE)
+   (SOUTH TO RM-LONDON-BRIDGE)
+   (WEST  TO RM-UPPER-THAMES-ST)
+   (DOWN  TO RM-SWAN-LANE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY)
+   (SYNONYM STREET ST)
+   (ADJECTIVE LOWER THAMES)
+   (ACTION RT-AC-RM-LOWER-THAMES-ST)>
+
+<OBJECT RM-LONDON-BRIDGE
+   (LOC ROOMS)
+   (DESC "London Bridge")
+   (NORTH TO RM-LOWER-THAMES-ST)
+   (SOUTH PER RT-SURGE)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN FL-NODESC FL-SURFACE)
+   (GLOBAL LG-WATER LG-BOATS)
+   (SIZE 0 CAPACITY 100)
+   (SYNONYM BRIDGE)
+   (ADJECTIVE LONDON)
+   (ACTION RT-AC-RM-LONDON-BRIDGE)>
+
+<OBJECT RM-TOWER-ENTRANCE
+   (LOC ROOMS)
+   (DESC "Tower of London entrance")
+   (EAST  TO RM-DRAWBRIDGE)
+   (WEST  TO RM-LOWER-THAMES-ST)
+   (FLAGS FL-HAS-DESCFCN FL-NO-CROWDS)
+;  (NW    TO RM-TOWER-STREET)
+   (GLOBAL LG-PLAQUES LG-TOWER)
+   (SYNONYM ENTRANCE)
+   (ACTION RT-AC-RM-TOWER-ENTRANCE)>
+
+<OBJECT RM-SWAN-LANE
+   (LOC ROOMS)
+   (DESC "Swan Lane")
+   (WEST  TO RM-BAR-OF-GOLD IF LG-BAR-OF-GOLD-DOOR IS OPEN)
+   (UP    TO RM-LOWER-THAMES-ST)
+   (IN    TO RM-BAR-OF-GOLD IF LG-BAR-OF-GOLD-DOOR IS OPEN)
+   (FLAGS FL-NOARTC FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL  LG-BAR-OF-GOLD-DOOR LG-PLAQUES LG-STAIRWAY
+            LG-WATER LG-UP-DOWN-STREAM RM-BAR-OF-GOLD LG-BOATS)
+   (SYNONYM LANE ALLEY)
+   (ADJECTIVE SWAN)
+   (ACTION RT-AC-RM-SWAN-LANE)>
+
+<OBJECT RM-BAR-OF-GOLD
+   (LOC ROOMS)
+   (DESC "Bar of Gold")
+   (EAST  TO RM-SWAN-LANE IF LG-BAR-OF-GOLD-DOOR IS OPEN)
+   (OUT   TO RM-SWAN-LANE IF LG-BAR-OF-GOLD-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-BAR-OF-GOLD-DOOR RM-SWAN-LANE)
+   (SYNONYM BAR GOLD)
+   (ADJECTIVE BAR GOLD)
+   (ACTION RT-AC-RM-BAR-OF-GOLD)>
+
+<OBJECT RM-LAIR
+   (LOC ROOMS)
+   (DESC "lair")
+   (NORTH TO RM-LONDON-BRIDGE IF LG-LAIR-DOOR IS OPEN)
+   (OUT   TO RM-LONDON-BRIDGE IF LG-LAIR-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-LAIR-DOOR)
+   (SYNONYM LAIR)
+   (ACTION RT-AC-RM-LAIR)>
+
+<OBJECT RM-NAVE
+   (LOC ROOMS)
+   (DESC "Nave")
+   (EAST  TO RM-SANCTUARY)
+   (SOUTH TO RM-SOUTH-AISLE)
+   (WEST  TO RM-BROAD-SANCTUARY IF LG-WESTMINSTER-DOOR IS OPEN)
+   (NE    TO RM-NORTH-TRANSEPT)
+   (SE    TO RM-SOUTH-TRANSEPT)
+   (OUT   TO RM-BROAD-SANCTUARY IF LG-WESTMINSTER-DOOR IS OPEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-WESTMINSTER-DOOR LG-TOMBS-ABBEY LG-MARBLE LG-COLUMNS)
+   (ACTION RT-AC-RM-NAVE)>
+
+<OBJECT RM-SOUTH-AISLE
+   (LOC ROOMS)
+   (DESC "South Aisle")
+   (EAST  TO RM-SOUTH-TRANSEPT)
+   (NORTH TO RM-NAVE)
+   (SOUTH TO RM-JERICHO-PARLOUR IF LG-JERICHO-PARLOUR-DOOR IS OPEN)
+   (IN    TO RM-JERICHO-PARLOUR IF LG-JERICHO-PARLOUR-DOOR IS OPEN)
+   (SE    TO RM-NORTH-CLOISTER)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-JERICHO-PARLOUR-DOOR LG-TOMBS-ABBEY LG-COLUMNS)
+   (ACTION RT-DF-RM-SOUTH-AISLE)>
+
+<OBJECT RM-JERICHO-PARLOUR
+   (LOC ROOMS)
+   (DESC "Jericho Parlour")
+   (NORTH TO RM-SOUTH-AISLE IF LG-JERICHO-PARLOUR-DOOR IS OPEN)
+   (OUT   TO RM-SOUTH-AISLE IF LG-JERICHO-PARLOUR-DOOR IS OPEN)
+   (WEST  TO RM-JERUSALEM-CHAMBER)
+   (IN    TO RM-JERUSALEM-CHAMBER)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-JERICHO-PARLOUR-DOOR LG-TOMBS-ABBEY RM-JERUSALEM-CHAMBER)
+   (ACTION RT-DF-RM-JERICHO-PARLOUR)>
+
+<OBJECT RM-JERUSALEM-CHAMBER
+   (LOC ROOMS)
+   (DESC "Jerusalem Chamber")
+   (EAST  TO RM-JERICHO-PARLOUR)
+   (OUT   TO RM-JERICHO-PARLOUR)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-PLAQUES LG-TOMBS-ABBEY)
+   (SYNONYM CHAMBER)
+   (ADJECTIVE JERUSALEM)
+   (PSEUDOS <> (PANELLING OAK CEDAR TAPESTRIES) RT-AC-TH-PANELLING)
+   (ACTION RT-DF-RM-JERUSALEM-CHAMBER)>
+
+<OBJECT RM-NORTH-CLOISTER
+   (LOC ROOMS)
+   (DESC "North Cloister")
+   (NW    TO RM-SOUTH-AISLE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY)
+   (ACTION RT-DF-RM-NORTH-CLOISTER)>
+
+<OBJECT RM-SOUTH-TRANSEPT
+   (LOC ROOMS)
+   (DESC "South Transept")
+   (EAST  TO RM-POETS-CORNER)
+   (WEST  TO RM-SOUTH-AISLE)
+   (NW    TO RM-NAVE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-WINDOW LG-TOMBS-ABBEY LG-SHAFT-OF-LIGHT LG-COLUMNS)
+   (ACTION RT-DF-RM-SOUTH-TRANSEPT)>
+
+<OBJECT RM-NORTH-TRANSEPT
+   (LOC ROOMS)
+   (DESC "North Transept")
+   (EAST  TO RM-EVANGELIST-CHAPEL)
+   (SW    TO RM-NAVE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-WINDOW LG-TOMBS-ABBEY LG-SHAFT-OF-LIGHT LG-COLUMNS)
+   (ACTION RT-DF-RM-NORTH-TRANSEPT)>
+
+<OBJECT RM-POETS-CORNER
+   (LOC ROOMS)
+   (DESC "Poets' Corner")
+   (NORTH TO RM-SOUTH-AMBULATORY)
+   (WEST  TO RM-SOUTH-TRANSEPT)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY)
+   (ACTION RT-DF-RM-POETS-CORNER)>
+
+<OBJECT RM-SOUTH-AMBULATORY
+   (LOC ROOMS)
+   (DESC "South Ambulatory")
+   (EAST  TO RM-SOUTH-CHAPEL-AISLE)
+   (NORTH TO RM-SANCTUARY)
+   (SOUTH TO RM-POETS-CORNER)
+   (NE    TO RM-HENRY-VII-CHAPEL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY LG-COLUMNS)
+   (ACTION RT-DF-RM-SOUTH-AMBULATORY)>
+
+<OBJECT RM-SANCTUARY
+   (LOC ROOMS)
+   (DESC "Sanctuary")
+   (NORTH TO RM-NORTH-AMBULATORY)
+   (SOUTH TO RM-SOUTH-AMBULATORY)
+   (WEST  TO RM-NAVE)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY LG-COLUMNS)
+   (ACTION RT-DF-RM-SANCTUARY)>
+
+<OBJECT RM-NORTH-AMBULATORY
+   (LOC ROOMS)
+   (DESC "North Ambulatory")
+   (EAST  TO RM-NORTH-CHAPEL-AISLE)
+   (NORTH TO RM-EVANGELIST-CHAPEL)
+   (SOUTH TO RM-SANCTUARY)
+   (SE    TO RM-HENRY-VII-CHAPEL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY LG-COLUMNS)
+   (ACTION RT-DF-RM-NORTH-AMBULATORY)>
+
+<OBJECT RM-EVANGELIST-CHAPEL
+   (LOC ROOMS)
+   (DESC "Evangelist Chapel")
+   (SOUTH TO RM-NORTH-AMBULATORY)
+   (WEST  TO RM-NORTH-TRANSEPT)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-VOWEL FL-HAS-DESCFCN ;FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY LG-MARBLE)
+   (ACTION RT-AC-RM-EVANGELIST-CHAPEL)>
+
+<OBJECT RM-HENRY-VII-CHAPEL
+   (LOC ROOMS)
+   (DESC "Henry VII Chapel")
+   (NORTH TO RM-NORTH-CHAPEL-AISLE)
+   (SOUTH TO RM-SOUTH-CHAPEL-AISLE)
+   (WEST  TO RM-CONFESSOR-CHAPEL)
+   (IN    TO RM-CONFESSOR-CHAPEL)
+   (NE    TO RM-INNOCENTS-CORNER)
+   (NW    TO RM-NORTH-AMBULATORY)
+   (SW    TO RM-SOUTH-AMBULATORY)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY)
+   (ACTION RT-AC-RM-HENRY-VII-CHAPEL)>
+
+<OBJECT RM-CONFESSOR-CHAPEL
+   (LOC ROOMS)
+   (DESC "Confessor Chapel")
+   (EAST  TO RM-HENRY-VII-CHAPEL)
+   (OUT   TO RM-HENRY-VII-CHAPEL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY)
+   (ACTION RT-DF-RM-CONFESSOR-CHAPEL)>
+
+<OBJECT RM-SOUTH-CHAPEL-AISLE
+   (LOC ROOMS)
+   (DESC "South Chapel Aisle")
+   (WEST  TO RM-SOUTH-AMBULATORY)
+   (NORTH TO RM-HENRY-VII-CHAPEL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY LG-MARBLE)
+   (ACTION RT-DF-RM-SOUTH-CHAPEL-AISLE)>
+
+<OBJECT RM-NORTH-CHAPEL-AISLE
+   (LOC ROOMS)
+   (DESC "North Chapel Aisle")
+   (EAST  TO RM-INNOCENTS-CORNER)
+   (WEST  TO RM-NORTH-AMBULATORY)
+   (SOUTH TO RM-HENRY-VII-CHAPEL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY LG-MARBLE)
+   (ACTION RT-DF-RM-NORTH-CHAPEL-AISLE)>
+
+<OBJECT RM-INNOCENTS-CORNER
+   (LOC ROOMS)
+   (DESC "Innocents Corner")
+   (WEST  TO RM-NORTH-CHAPEL-AISLE)
+   (SW    TO RM-HENRY-VII-CHAPEL)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-NOARTC FL-VOWEL FL-HAS-DESCFCN
+          FL-NO-ETHERIUM)
+   (GLOBAL LG-TOMBS-ABBEY)
+   (ACTION RT-DF-RM-INNOCENTS-CORNER)>
+
+<OBJECT RM-DRAWBRIDGE
+   (LOC ROOMS)
+   (DESC "drawbridge")
+   (EAST  TO RM-BYWARD-TOWER)
+   (WEST  TO RM-TOWER-ENTRANCE)
+   (GLOBAL LG-TOWER)
+   (FLAGS FL-HAS-DESCFCN FL-SURFACE FL-NO-CROWDS)
+   (SYNONYM DRAWBRIDGE)
+   (ACTION RT-AC-RM-DRAWBRIDGE)>
+
+<OBJECT RM-BYWARD-TOWER
+   (LOC ROOMS)
+   (DESC "Byward Tower")
+   (EAST  PER RT-EX-RM-EXIT-BYWARD-TOWER)
+   (WEST  PER RT-EX-RM-EXIT-BYWARD-TOWER)
+   (IN	 PER RT-EX-RM-EXIT-BYWARD-TOWER)
+   (OUT	 PER RT-EX-RM-EXIT-BYWARD-TOWER)
+   (FLAGS FL-LOCKED FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-TOWER LG-RAVENS)
+   (ACTION RT-DF-RM-BYWARD-TOWER)>
+
+<OBJECT RM-OUTER-WARD
+   (LOC ROOMS)
+   (DESC "Outer Ward")
+   (NORTH TO RM-BLOODY-TOWER)
+   (SOUTH TO RM-INSIDE-TRAITORS-GATE)
+   (WEST  TO RM-BYWARD-TOWER)
+   (FLAGS FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-TOWER LG-RAVENS)
+   (ACTION RT-DF-RM-OUTER-WARD)>
+
+<OBJECT RM-BLOODY-TOWER
+   (LOC ROOMS)
+   (DESC "Bloody Tower")
+   (NORTH TO RM-TOWER-GREEN)
+   (SOUTH TO RM-OUTER-WARD)
+   (OUT   TO RM-TOWER-GREEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-TOWER)
+   (ACTION RT-DF-RM-BLOODY-TOWER)>
+
+<OBJECT RM-WAKEFIELD-TOWER
+   (LOC ROOMS)
+   (DESC "Wakefield Tower")
+   (NW    TO RM-TOWER-GREEN)
+   (UP    TO RM-JEWEL-ROOM)
+   (OUT   TO RM-TOWER-GREEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY LG-TOWER)
+   (ACTION RT-DF-RM-WAKEFIELD-TOWER)>
+
+<OBJECT RM-JEWEL-ROOM
+   (LOC ROOMS)
+   (DESC "Jewel Room")
+   (DOWN  TO RM-WAKEFIELD-TOWER)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY LG-TOWER)
+   (ACTION RT-DF-RM-JEWEL-ROOM)>
+
+<OBJECT RM-DUNGEON
+   (LOC ROOMS)
+   (DESC "Dungeon")
+   (UP    TO RM-WHITE-TOWER)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY LG-TOWER)
+   (ACTION RT-DF-RM-DUNGEON)>
+
+<OBJECT RM-TORTURE-ROOM
+   (LOC ROOMS)
+   (DESC "Torture Room")
+   (UP    TO RM-BOWYER-TOWER)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY LG-TOWER)
+   (PSEUDOS <> INSTRUMENTS RT-AC-TH-INSTRUMENTS)
+   (ACTION RT-DF-RM-TORTURE-ROOM)>
+
+<OBJECT RM-WHITE-TOWER
+   (LOC ROOMS)
+   (DESC "White Tower")
+   (WEST  TO RM-TOWER-GREEN)
+   (DOWN  TO RM-DUNGEON)
+   (OUT   TO RM-TOWER-GREEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY LG-TOWER)
+   (ACTION RT-DF-RM-WHITE-TOWER)>
+
+<OBJECT RM-TOWER-GREEN
+   (LOC ROOMS)
+   (DESC "Tower Green")
+   (EAST  TO RM-WHITE-TOWER)
+   (SOUTH TO RM-BLOODY-TOWER)
+   (NE    TO RM-BOWYER-TOWER)
+   (SE    TO RM-WAKEFIELD-TOWER)
+;  (SW    TO RM-OUTSIDE-BELL-TOWER)
+   (FLAGS FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-TOWER LG-RAVENS)
+   (ACTION RT-DF-RM-TOWER-GREEN)>
+
+<OBJECT RM-BOWYER-TOWER
+   (LOC ROOMS)
+   (DESC "Bowyer Tower")
+   (SW    TO RM-TOWER-GREEN)
+   (DOWN  TO RM-TORTURE-ROOM)
+   (OUT   TO RM-TOWER-GREEN)
+   (FLAGS FL-INDOORS FL-LIGHTED FL-HAS-DESCFCN)
+   (GLOBAL LG-STAIRWAY LG-TOWER)
+   (ACTION RT-DF-RM-BOWYER-TOWER)>
+
+<OBJECT RM-INSIDE-TRAITORS-GATE
+   (LOC ROOMS)
+   (DESC "Inside Traitors Gate")
+   (NORTH TO RM-OUTER-WARD)
+   (OUT   TO RM-OUTSIDE-TRAITORS-GATE IF LG-PORTCULLIS-DOOR IS OPEN)
+   (SOUTH TO RM-OUTSIDE-TRAITORS-GATE IF LG-PORTCULLIS-DOOR IS OPEN)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-PORTCULLIS-DOOR LG-TOWER LG-RAVENS)
+   (ACTION RT-DF-RM-INSIDE-TRAITORS-GATE)>
+
+<OBJECT RM-OUTSIDE-TRAITORS-GATE
+   (LOC ROOMS)
+   (DESC "Outside Traitors Gate")
+   (IN    TO RM-INSIDE-TRAITORS-GATE IF LG-PORTCULLIS-DOOR IS OPEN)
+   (NORTH TO RM-INSIDE-TRAITORS-GATE IF LG-PORTCULLIS-DOOR IS OPEN)
+   (SOUTH PER RT-EX-RM-LAUNCH-BOAT)
+   (FLAGS FL-NOARTC FL-VOWEL FL-HAS-DESCFCN FL-NO-CROWDS)
+   (GLOBAL LG-WATER LG-UP-DOWN-STREAM RM-LONDON-BRIDGE
+	   LG-PORTCULLIS-DOOR LG-TOWER LG-BOATS)
+   (ACTION RT-DF-RM-OUTSIDE-TRAITORS-GATE)>
diff --git a/places2.zabstr b/places2.zabstr
new file mode 100644
index 0000000..387cf80
--- /dev/null
+++ b/places2.zabstr
@@ -0,0 +1,28 @@
+
+<DEFINE-ROUTINE RT-SURGE> 
+<DEFINE-ROUTINE RT-AC-RM-MADAME-TUSSAUDS> 
+<DEFINE-ROUTINE RT-AC-RM-MANUSCRIPT-ROOM> 
+<DEFINE-ROUTINE RT-AC-RM-VICTORIA-STREET> 
+<DEFINE-ROUTINE RT-AC-RM-CLOCK-TOWER> 
+<DEFINE-ROUTINE RT-AC-RM-THAMES-ONE> 
+<DEFINE-ROUTINE RT-AC-RM-THAMES-TWO> 
+<DEFINE-ROUTINE RT-AC-RM-THAMES-THREE> 
+<DEFINE-ROUTINE RT-AC-RM-THAMES-FOUR> 
+<DEFINE-ROUTINE RT-AC-RM-THAMES-FIVE> 
+<DEFINE-ROUTINE RT-AC-RM-SHERMANS-HOUSE> 
+<DEFINE-ROUTINE RT-AC-RM-THREADNEEDLE-ST> 
+<DEFINE-ROUTINE RT-AC-RM-LONDON-BRIDGE> 
+<DEFINE-ROUTINE RT-AC-RM-SWAN-LANE> 
+<DEFINE-ROUTINE RT-AC-RM-BAR-OF-GOLD> 
+<DEFINE-ROUTINE RT-AC-RM-LAIR> 
+<DEFINE-ROUTINE RT-AC-RM-NAVE> 
+<DEFINE-ROUTINE RT-AC-RM-EVANGELIST-CHAPEL> 
+<DEFINE-ROUTINE RT-AC-RM-HENRY-VII-CHAPEL> 
+<DEFINE-ROUTINE RT-EX-ENTER-BANK-OF-ENGLAND> 
+<DEFINE-ROUTINE RT-AC-RM-BUCKINGHAM-PALACE> 
+<DEFINE-ROUTINE RT-EX-RM-ENTER-BUCKINGHAM-PALACE> 
+<DEFINE-ROUTINE RT-EX-RM-STEER-BOAT> 
+<DEFINE-ROUTINE RT-EX-RM-LAND-BOAT> 
+<DEFINE-ROUTINE RT-EX-RM-LAUNCH-BOAT> 
+<DEFINE-ROUTINE RT-EX-PARLOUR-ENTRY> 
+<DEFINE-ROUTINE RT-EX-LEAVE-EMBANKMENT> 
\ No newline at end of file
diff --git a/places2.zap b/places2.zap
new file mode 100644
index 0000000..6c9a7f7
--- /dev/null
+++ b/places2.zap
@@ -0,0 +1,855 @@
+
+
+	.FUNCT	RT-SURGE
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL3
+	PRINTI	"The fog is so thick that even your light cannot penetrate it, so you retrace your steps."
+	CRLF	
+	RFALSE	
+?CCL3:	PRINTI	"Surging crowds of "
+	EQUAL?	GL-PLACE-CUR,RM-KENSINGTON-GARDENS \?CCL6
+	PRINTI	"haughty nannies"
+	JUMP	?CND4
+?CCL6:	EQUAL?	GL-PLACE-CUR,RM-COVENT-GARDEN \?CCL8
+	PRINTI	"housewives intent on a bargain"
+	JUMP	?CND4
+?CCL8:	PRINTI	"tourists"
+?CND4:	PRINTI	" block your path."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-MADAME-TUSSAUDS,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND4
+	FSET	TH-ASH,FL-SEEN
+	FSET	TH-WILLIAM-STATUE,FL-SEEN
+	FSET	TH-WALTER-STATUE,FL-SEEN
+	FSET	TH-ELIZABETH-STATUE,FL-SEEN
+	FSET	TH-DRAKE-STATUE,FL-SEEN
+	FSET	TH-JOHN-STATUE,FL-SEEN
+?CND4:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL8
+	EQUAL?	GL-PLACE-PRV,RM-MARYLEBONE-RD \?CCL11
+	PRINTI	"You come in off the street and are now standing in"
+	JUMP	?CND6
+?CCL11:	PRINTI	"You leave the Chamber of Horrors and go back into"
+	JUMP	?CND6
+?CCL8:	PRINTI	"You are in"
+?CND6:	PRINTI	" the lobby."
+	CRLF	
+	CRLF	
+	PRINTI	"All around you are wax statues of famous people. To the west is a dark and ominous-looking doorway with a sign over it. The exit to the street is to the south."
+	CRLF	
+	FSET?	TH-ASH,FL-ASLEEP \FALSE
+	IN?	CH-HOLMES,GL-PLACE-CUR \FALSE
+	FSET	TH-ASH,FL-SEEN
+	FCLEAR	TH-ASH,FL-ASLEEP
+	FCLEAR	TH-ASH,FL-NODESC
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINTI	" drops to his hands and knees and begins a minute examination of the floor. After a few moments he cries, ""Aha! Look here, Watson."" He points to a miniscule speck of ash on the floor."
+	CRLF	
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-ENTERED \?CCL18
+	FSET?	TH-TOBACCO,FL-ASLEEP /?CCL18
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL18
+	ICALL2	RT-UPDATE-SCORE,1
+	FSET	TH-TOBACCO,FL-ASLEEP
+	RFALSE	
+?CCL18:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MARYLEBONE-RD \?CCL27
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL27:	EQUAL?	GL-PLACE-CUR,RM-CHAMBER-OF-HORRORS \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-MANUSCRIPT-ROOM,CONTEXT,VALUE
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL6
+	PRINTI	"The deserted corridor leads to"
+	JUMP	?CND4
+?CCL6:	PRINTI	"You are in"
+?CND4:	PRINTI	" the manuscript room, which contains a dusty collection of old books on obscure subjects. "
+	IN?	CH-LIBRARIAN,RM-MANUSCRIPT-ROOM \?CND7
+	PRINTI	"There is an old librarian here, on whose desk sits a handwritten sign that reads ""Quiet, please."" "
+?CND7:	PRINTI	"There are thousands of books behind glass cases"
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND9
+	PRINTI	", but one is lying unattended on a table"
+?CND9:	PRINTI	". The only exit is to the west."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	CH-LIBRARIAN,FL-SEEN
+	FSET	TH-CLUE-BOOK,FL-SEEN
+	FSET	TH-LIBRARY-TABLE,FL-SEEN
+	CRLF	
+	PRINTI	"The librarian - who is as dusty as the books - looks up in surprise as you come in. He "
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL16
+	PRINTI	"whispers"
+	JUMP	?CND14
+?CCL16:	PRINTI	"says loudly"
+?CND14:	PRINTI	", ""Oh, I say! Hello! I don't get many visitors here. Is there something I can help you with? Some information about the Jubilee, perhaps? It's quite rare, you know, for a British ruler to celebrate 50 years on the throne. Unique, in fact. The closest anyone else came was Elizabeth, who ruled 45 years - although our records are somewhat vague before the year 900. The Anglo-Saxon chronicles do get rather sketchy, what? Still, they're the best we have. I think I can find a copy for you somewhere here."""
+	CRLF	
+	CRLF	
+	PRINTR	"The librarian's voice trails off as he bustles from shelf to shelf, squinting at the books to find the one he thinks you want."
+?CCL3:	ZERO?	CONTEXT /?CCL18
+	IN?	CH-LIBRARIAN,RM-MANUSCRIPT-ROOM \?CCL18
+	FSET?	CH-LIBRARIAN,FL-ASLEEP /?CCL18
+	EQUAL?	CONTEXT,K-M-ENTERED \?CCL24
+	FSET?	CH-LIBRARIAN,FL-OPENED \?CCL24
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-LIBRARIAN
+	PRINTR	" says, ""Welcome back! I have more interesting things to tell you!"""
+?CCL24:	EQUAL?	CONTEXT,K-M-EXIT \?CCL28
+	PRINTI	"As you leave, the librarian calls out, ""Must you be going? I have so many other interesting things to tell you."""
+	CRLF	
+	CRLF	
+	FSET	CH-LIBRARIAN,FL-OPENED
+	RTRUE	
+?CCL28:	EQUAL?	CONTEXT,K-M-BEG \FALSE
+	EQUAL?	GL-PRSA,V?WALK,V?EXIT /FALSE
+	INTBL?	GL-PRSA,GL-GAME-VERBS+2,10 /FALSE
+	EQUAL?	GL-PRSA,V?WAIT,V?LISTEN \?CCL37
+	PRINTI	"The librarian says "
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL40
+	PRINTI	"softly"
+	JUMP	?CND38
+?CCL40:	PRINTI	"loudly"
+?CND38:	PRINTI	", "
+	ICALL1	RT-LIBRARIAN-SAYS-MSG
+	RTRUE	
+?CCL37:	EQUAL?	GL-PRSA,V?HUSH \?CCL42
+	PRINTI	"The librarian stops in midsentence and gets an embarrassed look on his face. ""Oh, I say. I'm sorry to have rambled on like this, but I do so enjoy speaking with visitors. I get them so seldom, you know. Thank you for listening."""
+	CRLF	
+	CRLF	
+	PRINTI	"He leaves the room, mumbling something to himself about the articulation of the third joint of the hind leg of an extinct species of dung beetle."
+	CRLF	
+	REMOVE	CH-LIBRARIAN
+	RTRUE	
+?CCL42:	EQUAL?	GL-PRSA,V?LOOK \?CCL44
+	ICALL	RT-DESC-ALL,FALSE-VALUE,TRUE-VALUE
+	CRLF	
+	PRINTI	"As you look around, the librarian says "
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL47
+	PRINTI	"softly"
+	JUMP	?CND45
+?CCL47:	PRINTI	"loudly"
+?CND45:	PRINTI	", "
+	ICALL1	RT-LIBRARIAN-SAYS-MSG
+	RTRUE	
+?CCL44:	EQUAL?	GL-PRSA,V?TELL \?CCL49
+	EQUAL?	GL-PRSO,CH-LIBRARIAN /FALSE
+?CCL49:	CALL1	RT-TALK-VERB?
+	ZERO?	STACK /?CCL53
+	PRINTI	"The librarian interrupts you as you attempt to speak, and "
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL56
+	PRINTI	"whispers"
+	JUMP	?CND54
+?CCL56:	PRINTI	"says"
+?CND54:	PRINTI	", "
+	ICALL1	RT-LIBRARIAN-SAYS-MSG
+	RETURN	2
+?CCL53:	PRINTI	"The librarian launches off into another speech, and it distracts you from what you wanted to do. "
+	ICALL1	RT-LIBRARIAN-SAYS-MSG
+	RTRUE	
+?CCL18:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL61
+	EQUAL?	GL-PLACE-CUR,RM-BRITISH-MUSEUM \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL61:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-VICTORIA-STREET,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL6
+	PRINTI	"You enter"
+	JUMP	?CND4
+?CCL6:	PRINTI	"You are loitering in"
+?CND4:	PRINTI	" Victoria Street, which runs east and west between Victoria Square and Broad Sanctuary."
+	CRLF	
+	CRLF	
+	PRINTI	"You see a sign outside one of the shops."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-BEG \?CCL8
+	EQUAL?	GL-PRSA,V?WAIT \?CCL8
+	FSET?	RM-VICTORIA-STREET,FL-ASLEEP /?CCL13
+	FSET	RM-VICTORIA-STREET,FL-ASLEEP
+	PRINTR	"After a few moments, a constable strolls by, bops you on the head with his billy club, and says, ""Move along, you."""
+?CCL13:	PRINTI	"The same constable as before walks by and says, ""You again? That's it, mate. Come along with me."" He bops you on the head again and arrests you on a charge of vagrancy."
+	CRLF	
+	CRLF	
+	PRINTI	"You spend the night in gaol, and in the morning Inspector Lestrade drops by to tell you that there has been a mix-up in the paperwork and you are to be deported to Australia the following day. He gives you a letter to deliver to his sister in Melbourne and wishes you luck."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+?CCL8:	ZERO?	CONTEXT \FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-CLOCK-TOWER,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL6
+	PRINTI	"The stairs seem to wind up forever. Finally, you emerge into"
+	JUMP	?CND4
+?CCL6:	PRINTI	"You are in"
+?CND4:	PRINTI	" the interior of the clock tower, high above the Houses of Parliament."
+	CRLF	
+	CRLF	
+	PRINTI	"The immense bell known as Big Ben is hanging from the ceiling, suspended over a hollow shaft that is so deep it might as well be bottomless. A wooden railing runs around the shaft for safety."
+	CRLF	
+	CRLF	
+	PRINTI	"Inside the bell, you see an enormous clapper"
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL9
+	FSET	TH-BELL,FL-SEEN
+	FSET	TH-SAPPHIRE,FL-SEEN
+	FSET	TH-CLAPPER,FL-SEEN
+	FSET	TH-SHAFT,FL-SEEN
+	FSET	TH-RAILING,FL-SEEN
+	PRINT	K-SAPPHIRE-MSG
+	CRLF	
+	RTRUE	
+?CCL9:	IN?	TH-SAPPHIRE,TH-CLAPPER \?CCL12
+	PRINT	K-SAPPHIRE-MSG
+	CRLF	
+	RFALSE	
+?CCL12:	PRINTC	46
+	CRLF	
+	RFALSE	
+?CCL3:	CALL2	RT-ALARM-SET?,RT-I-SWING-BELL
+	ZERO?	STACK \FALSE
+	ICALL1	RT-ZERO-SECONDS
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-THAMES-ONE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"on the Thames, just south of the Embankment."
+	CRLF	
+	RFALSE	
+?CCL3:	CALL1	RT-PROCESS-BOAT-ON-THAMES
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-THAMES-TWO,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"on the Thames. Downstream you can see London Bridge."
+	CRLF	
+	RFALSE	
+?CCL3:	CALL1	RT-PROCESS-BOAT-ON-THAMES
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-THAMES-THREE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"underneath London Bridge."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-UNDER \?PRD7
+	EQUAL?	GL-PRSO,RM-LONDON-BRIDGE /?CTR4
+?PRD7:	EQUAL?	GL-PRSA,V?LOOK-UP \?CCL5
+	EQUAL?	GL-PRSO,ROOMS,RM-LONDON-BRIDGE \?CCL5
+?CTR4:	PRINTI	"You see nothing of interest"
+	IN?	TH-CLUMP-OF-MOSS,RM-THAMES-THREE \?CCL14
+	FSET	TH-CLUMP-OF-MOSS,FL-SEEN
+	PRINTI	", other than a clump of moss lodged among the supports overhead."
+	CRLF	
+	JUMP	?CND12
+?CCL14:	PRINTC	46
+	CRLF	
+?CND12:	ICALL1	RT-PROCESS-BOAT-ON-THAMES
+	RTRUE	
+?CCL5:	CALL1	RT-PROCESS-BOAT-ON-THAMES
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-THAMES-FOUR,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"on the Thames, just south of Traitor's Gate."
+	CRLF	
+	RFALSE	
+?CCL3:	CALL1	RT-PROCESS-BOAT-ON-THAMES
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-THAMES-FIVE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"on the Thames, in danger of drifting out to sea."
+	CRLF	
+	RFALSE	
+?CCL3:	CALL1	RT-PROCESS-BOAT-ON-THAMES
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-SHERMANS-HOUSE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL6
+	ICALL2	RT-THIS-IS-IT,CH-SHERMAN
+	FSET	CH-SHERMAN,FL-SEEN
+	FSET	RM-SHERMANS-HOUSE,FL-SEEN
+	PRINTI	"You enter the cramped quarters of Sherman's shop. The old animal-trainer's eyes brighten up when he sees you."
+	CRLF	
+	CRLF	
+	PRINTR	"""You've probably come looking for Toby,"" he says. ""But I'm afraid I won't be able to help you this time. Toby's not feeling too well, and all my other animals are already out on loan. All I have left is a half-trained pigeon."""
+?CCL6:	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 \FALSE
+	PRINTI	"Sherman's shop is dingy and cramped. Dozens of empty cages are stacked up against the walls."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-ENTERED \?CCL10
+	FSET?	RM-SHERMANS-HOUSE,FL-ASLEEP \?CCL13
+	FCLEAR	RM-SHERMANS-HOUSE,FL-ASLEEP
+	RFALSE	
+?CCL13:	FSET?	CH-SHERMAN,FL-ASLEEP /FALSE
+	FSET?	CH-TRAINED-PIGEON,FL-ALIVE \?CCL17
+	CRLF	
+	PRINTI	"Sherman says, ""Welcome back. It's a pleasure to see you again."""
+	CRLF	
+	CALL2	RT-THIS-IS-IT,CH-SHERMAN
+	RSTACK	
+?CCL17:	CALL2	RT-SHERMAN-RAGE,TRUE-VALUE
+	RSTACK	
+?CCL10:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL21
+	EQUAL?	GL-PLACE-CUR,RM-PINCHIN-LANE \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL21:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-SHERMANS-HOUSE \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-THREADNEEDLE-ST,CONTEXT
+	ZERO?	CONTEXT \?CND1
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BANK-OF-ENGLAND \FALSE
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL9
+	FSET	CH-BANK-GUARD,FL-SEEN
+	FSET	CH-URCHINS,FL-SEEN
+	FSET	TH-GUARDS-POCKET,FL-SEEN
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL12
+	EQUAL?	GL-PLACE-PRV,RM-BANK-OF-ENGLAND \?CCL15
+	PRINTI	"You emerge into"
+	JUMP	?CND13
+?CCL15:	PRINTI	"You enter"
+?CND13:	PRINTI	" Threadneedle Street and are now"
+	JUMP	?CND10
+?CCL12:	PRINTI	"You are"
+?CND10:	PRINTI	" in front of the Bank of England. The entrance to the bank is to the north, Cheapside leads off to the west, and King William Street "
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL18
+	PRINTI	"disappears off into the darkness"
+	JUMP	?CND16
+?CCL18:	PRINTI	"continues"
+?CND16:	PRINTI	" to the southeast. On the wall is a small sign."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 /?CTR20
+	IN?	CH-BANK-GUARD,RM-THREADNEEDLE-ST \?CCL21
+?CTR20:	CRLF	
+	PRINTI	"A bank guard is lounging up against the wall, idly jangling some keys in his pocket while he watches a group of urchins playing in the street."
+	CRLF	
+	FSET?	CH-WIGGINS,FL-BROKEN \FALSE
+	CRLF	
+	PRINT	K-URCHIN-MSG
+	CRLF	
+	RTRUE	
+?CCL21:	CRLF	
+	PRINTI	"A group of urchins is playing in the street."
+	CRLF	
+	RFALSE	
+?CCL9:	EQUAL?	CONTEXT,K-M-BEG \?CCL27
+	IN?	CH-HOLMES,RM-LAIR \?CCL27
+	FSET?	TH-TOPAZ,FL-LOCKED /?CCL27
+	ICALL1	RT-WIGGINS-HELP-MSG
+	CRLF	
+	FSET	TH-TOPAZ,FL-LOCKED
+	RFALSE	
+?CCL27:	EQUAL?	CONTEXT,K-M-ENTERED \FALSE
+	EQUAL?	GL-PLACE-PRV,RM-BANK-OF-ENGLAND \FALSE
+	FSET?	TH-TOPAZ,FL-ASLEEP /FALSE
+	ICALL1	RT-KIDNAP
+	FSET	TH-TOPAZ,FL-ASLEEP
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-LONDON-BRIDGE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL6
+	EQUAL?	GL-PLACE-PRV,RM-LAIR \?CCL9
+	PRINTR	"When you emerge from the lair you are momentarily disoriented, blinking your eyes in the bright sunlight. After a few moments, you realize you are standing on London bridge, but you have no idea from which direction you came."
+?CCL9:	PRINTI	"You"
+	ICALL1	RT-DRIVE-WALK-MSG?
+	PRINTI	"up onto"
+	JUMP	?CND4
+?CCL6:	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"on"
+?CND4:	PRINTI	" London Bridge. "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL12
+	PRINTI	"The view of the river from here is spectacular, and hoards of sightseers are here with you to share the view."
+	CRLF	
+	RFALSE	
+?CCL12:	PRINTI	"The fog is so dense you can barely see the river from here."
+	CRLF	
+	RFALSE	
+?CCL3:	ZERO?	CONTEXT \?PRD16
+	EQUAL?	GL-PRSA,V?LOOK-UNDER,V?LOOK-DOWN \?PRD16
+	EQUAL?	GL-PRSO,RM-LONDON-BRIDGE /?CTR13
+?PRD16:	EQUAL?	CONTEXT,K-M-BEG \?CCL14
+	EQUAL?	GL-PRSA,V?LOOK-DOWN \?CCL14
+	EQUAL?	GL-PRSO,ROOMS \?CCL14
+?CTR13:	PRINTR	"You see the Thames flowing slowly by, just as it has done for centuries past."
+?CCL14:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CCL26
+	EQUAL?	GL-PRSA,V?ENTER \?CCL29
+	EQUAL?	GL-PLACE-CUR,RM-LOWER-THAMES-ST \?CCL32
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CCL32:	EQUAL?	GL-PLACE-CUR,RM-THAMES-THREE \FALSE
+	PRINTR	"You can't climb onto the bridge."
+?CCL29:	EQUAL?	GL-PRSA,V?EXIT \?CCL36
+	EQUAL?	GL-PLACE-CUR,RM-LONDON-BRIDGE \FALSE
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL36:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL26:	ZERO?	GL-NOW-PRSI? /FALSE
+	IN?	CH-PLAYER,TH-BOAT \FALSE
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	PRINTR	"You can't attach anything to the bridge."
+
+
+	.FUNCT	RT-AC-RM-SWAN-LANE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL6
+	EQUAL?	GL-PLACE-PRV,RM-LOWER-THAMES-ST \?CCL9
+	PRINTI	"With increasing apprehension, you descend"
+	JUMP	?CND7
+?CCL9:	PRINTI	"With considerable relief, you emerge"
+?CND7:	PRINTI	" into"
+	JUMP	?CND4
+?CCL6:	PRINTI	"With increasing apprehension, you are standing in"
+?CND4:	PRINTI	" Swan Lane, which runs along the waterfront of the Thames."
+	CRLF	
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND10
+	PRINTI	"It is a seedy, disreputable, run-down part of town that normally you wouldn't be caught dead in. After a moment's reflection, you wish you hadn't thought of it in quite those terms."
+	CRLF	
+	CRLF	
+?CND10:	PRINTI	"To the west is the entrance to one of the least savory buildings you have ever seen. There is a faded sign above the door that informs you that the establishment was, in better days, known as the Bar of Gold."
+	CRLF	
+	CRLF	
+	PRINTI	"Fortunately, it is only a short walk back up the stairs to Lower Thames Street."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-ENTERED \?CCL13
+	EQUAL?	GL-PLACE-PRV,RM-BAR-OF-GOLD \?CCL13
+	IN?	CH-WIGGINS,RM-SWAN-LANE \?CCL13
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	PRINTI	" says, ""Blimey!! I didn't think you would make it out of there alive."""
+	CRLF	
+	SET	'GL-PUPPY,CH-WIGGINS
+	RETURN	GL-PUPPY
+?CCL13:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-BAR-OF-GOLD,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND4
+	FSET	CH-DENKEEPER,FL-SEEN
+	FSET	TH-OPIUM-GAS,FL-SEEN
+?CND4:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL8
+	PRINTI	"After fighting the urge to turn and run, you enter and find yourself "
+	JUMP	?CND6
+?CCL8:	PRINTI	"You are standing - rather nervously - "
+?CND6:	PRINTI	"in the Bar of Gold, the most infamous opium den in London. The proprietor is a most unsavory character who "
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	PRINTI	"gives you a sidelong glance as you enter and then ignores you"
+	JUMP	?CND9
+?CCL11:	PRINTI	"hasn't given you a second look since you came in"
+?CND9:	PRINTC	46
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-ENTERING \?CCL13
+	EQUAL?	GL-PUPPY,CH-WIGGINS \?CCL13
+	ICALL2	RT-THEO-PRINT,CH-WIGGINS
+	PRINTI	" says, ""You must be stark raving bonkers. That's the most dangerous place in London. I'll wait out here, thank you very much!"""
+	CRLF	
+	CRLF	
+	SET	'GL-PUPPY,FALSE-VALUE
+	RETURN	GL-PUPPY
+?CCL13:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL19
+	EQUAL?	GL-PLACE-CUR,RM-SWAN-LANE \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL19:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-LAIR,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL6
+	FSET	CH-MORIARTY,FL-SEEN
+	FSET	TH-LAIR-KEY,FL-SEEN
+	FSET	TH-CROWN-JEWELS,FL-SEEN
+	FSET	TH-MORIARTY-DESK,FL-SEEN
+	FSET	TH-ROPE,FL-SEEN
+	PRINTI	"At last you come face to face with the evil Professor. He is sitting placidly behind his desk, looking at you as if you were some botanical specimen."
+	CRLF	
+	CRLF	
+	PRINTI	"As you look around the room, you see Sherlock Holmes tied to a chair. He is only inches away from the Crown Jewels, which Moriarty has spread out on his desk, the better to taunt Holmes."
+	CRLF	
+	CRLF	
+	PRINTI	"Holmes looks up and says, ""Ah, there you are Watson."" He turns his head towards Moriarty and says, ""You see, Professor, you grossly underestimate the intelligence and determination of your fellow countrymen."""
+	CRLF	
+	CRLF	
+	PRINTR	"""Watson,"" he continues. ""The Professor and I have just been chatting about why he led us on this merry chase. If you care to ask him, I'm sure he would be happy to fill you in as well."""
+?CCL6:	EQUAL?	CONTEXT,K-M-DESC-3 \FALSE
+	PRINTI	"The room is simply, but elegantly, furnished."
+	FSET?	CH-HOLMES,FL-LOCKED \?CND8
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	PRINTC	32
+	CALL2	RT-PICK-NEXT,GL-HOLMES-DESC-TXT
+	PRINT	STACK
+	PRINT	K-SECURELY-BOUND-MSG
+	PRINTC	46
+?CND8:	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-ENTERED \?CND1
+	SET	'GL-PUPPY,CH-HOLMES
+?CND1:	EQUAL?	CONTEXT,K-M-BEG \FALSE
+	EQUAL?	GL-PRSA,V?TAKE,V?SHOW \?CCL16
+	EQUAL?	GL-PRSO,TH-BREATH /FALSE
+	FSET?	GL-PRSO,FL-BODYPART /FALSE
+	FSET?	GL-PRSO,FL-WORN /FALSE
+	FSET?	CH-MORIARTY,FL-LOCKED /FALSE
+	FSET?	CH-MORIARTY,FL-ASLEEP /FALSE
+	CALL	RT-META-IN?,GL-PRSO,GL-WINNER
+	ZERO?	STACK /?CCL30
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-TAKE-WATSONS-STUFF,STACK
+	MOVE	GL-PRSO,GL-WINNER
+	PRINTI	"Moriarty's normally emotionless features dissolve in rage. He shouts at Akbar, ""Why didn't you take that from him when you brought him in?"""
+	CRLF	
+	CRLF	
+	PRINTR	"The outburst startles Akbar into momentary inaction, but he quickly recovers and starts to come towards you with a violent look in his eyes."
+?CCL30:	PRINTI	"Akbar steps in your way"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND31
+	PRINTI	", says, ""Pardon me, honourable sir,"""
+?CND31:	PRINTI	" and stops you from taking "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL16:	EQUAL?	GL-PRSA,V?RELEASE \?CCL34
+	EQUAL?	GL-PRSO,TH-BREATH /FALSE
+?CCL34:	EQUAL?	GL-PRSA,V?UNTIE,V?RELEASE \?CCL38
+	EQUAL?	GL-PRSO,TH-ROPE /FALSE
+	FSET?	GL-PRSO,FL-LOCKED \?CCL43
+	FSET?	CH-AKBAR,FL-ASLEEP /?CTR45
+	FSET?	CH-AKBAR,FL-LOCKED \?CCL46
+?CTR45:	FCLEAR	GL-PRSO,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?720,STR?721
+	ICALL1	RT-THEO-PRINT
+	EQUAL?	GL-PRSO,TH-ROPE-AUX1 \?CCL51
+	SET	'TH-ROPE-AUX1,TH-ROPE-AUX2
+	SET	'TH-ROPE-AUX2,-1
+	EQUAL?	TH-ROPE-AUX1,-1 \?CND49
+	MOVE	TH-ROPE,CH-PLAYER
+	FCLEAR	TH-ROPE,FL-NODESC
+	PRINTI	", keeping "
+	ICALL2	RT-THEO-PRINT,TH-ROPE
+	JUMP	?CND49
+?CCL51:	EQUAL?	GL-PRSO,TH-ROPE-AUX2 \?CND49
+	SET	'TH-ROPE-AUX2,-1
+?CND49:	PRINTC	46
+	CRLF	
+	EQUAL?	GL-PRSO,CH-MORIARTY,CH-AKBAR \TRUE
+	FSET?	CH-AKBAR,FL-ASLEEP /TRUE
+	CRLF	
+	EQUAL?	GL-PRSO,CH-MORIARTY \?CCL61
+	PRINTI	"Bad move. As soon as he is free, Moriarty"
+	JUMP	?CND59
+?CCL61:	PRINTI	"Akbar immediately unties Moriarty, who"
+?CND59:	PRINTI	" unlocks his desk and pulls out a pistol. ""Thank you for releasing me, gentlemen,"" he says, waving the gun at you. ""Very sporting of you."" He glances at his pocketwatch. ""We shouldn't have too long to wait."" Minutes later you hear newsboys running through the streets shouting about the resignation of the Prime Minister."
+	CRLF	
+	ICALL1	RT-QSR
+	RTRUE	
+?CCL46:	CALL1	RT-ROPE-MSG
+	RSTACK	
+?CCL43:	EQUAL?	GL-PRSA,V?RELEASE /FALSE
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSO
+	PRINTR	"tied up."
+?CCL38:	EQUAL?	GL-PRSA,V?TIE-UP \?CCL65
+	EQUAL?	GL-PRSI,TH-ROPE,ROOMS /?CCL65
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL65:	EQUAL?	GL-PRSA,V?TIE,V?TIE-UP \?CCL69
+	EQUAL?	GL-PRSO,CH-PLAYER,CH-ME /?CTR68
+	EQUAL?	GL-PRSI,CH-PLAYER,CH-ME \?CCL69
+?CTR68:	PRINTR	"We'll assume you're joking."
+?CCL69:	EQUAL?	GL-PRSA,V?TIE,V?TIE-UP \FALSE
+	CALL2	RT-VISIBLE?,TH-ROPE
+	ZERO?	STACK /?CCL78
+	FSET?	CH-AKBAR,FL-ASLEEP /?CTR80
+	FSET?	CH-AKBAR,FL-LOCKED \?CCL81
+?CTR80:	EQUAL?	CH-HOLMES,GL-PRSI,GL-PRSO \?CND84
+	PRINTR	"Surely you jest."
+?CND84:	EQUAL?	TH-ROPE-AUX1,-1 \?CCL88
+	SET	'TH-ROPE-AUX1,GL-PRSO
+	JUMP	?CND86
+?CCL88:	EQUAL?	TH-ROPE-AUX2,-1 \?CCL90
+	SET	'TH-ROPE-AUX2,GL-PRSO
+?CND86:	EQUAL?	GL-PRSI,ROOMS \?CND91
+	SET	'GL-PRSI,FALSE-VALUE
+?CND91:	MOVE	TH-ROPE,GL-PLACE-CUR
+	FSET	TH-ROPE,FL-NODESC
+	FSET	GL-PRSO,FL-LOCKED
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-ROPE \?CCL95
+	ICALL	RT-CYOU-MSG,STR?722,STR?723
+	PRINTI	"up "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL90:	ICALL2	RT-CTHEO-PRINT,TH-ROPE
+	PRINTR	" is not long enough."
+?CCL95:	EQUAL?	TH-ROPE-AUX2,-1 /?CCL97
+	ICALL	RT-CYOU-MSG,STR?722,STR?723
+	PRINTI	"up "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	", but "
+	ICALL2	RT-THEO-PRINT,TH-ROPE
+	PRINTI	" is not long enough to tie up "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	" as well."
+?CCL97:	FSET	GL-PRSI,FL-LOCKED
+	PRINTI	"You tie "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" to "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL81:	CALL1	RT-ROPE-MSG
+	RSTACK	
+?CCL78:	PRINTI	"You don't have "
+	ICALL2	RT-A-PRINT,TH-ROPE
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-RM-NAVE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL6
+	FSET	TH-NEWTON-TOMB,FL-SEEN
+	PRINTI	"You enter the Abbey and pause in the Nave, struck by the sheer magnificence of the building. Massive Purbeck columns march the length of the Nave, and they rise in perfect proportion to meet each other in a series of pointed arches that are the hallmark of the Gothic style."
+	CRLF	
+	CRLF	
+	PRINTR	"The interior of the Abbey is dark, cold, and gloomy - but after a few moments your eyes adjust and you can make out a tomb at the far end of the room."
+?CCL6:	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 \FALSE
+	EQUAL?	CONTEXT,K-M-DESC-2 \?CCL10
+	EQUAL?	GL-PLACE-PRV,RM-BROAD-SANCTUARY \?CCL13
+	PRINTI	"You walk through the massive door and find yourself once again in"
+	JUMP	?CND8
+?CCL13:	PRINTI	"You return to"
+	JUMP	?CND8
+?CCL10:	EQUAL?	CONTEXT,K-M-DESC-3 \?CND8
+	PRINTI	"You are standing in"
+?CND8:	PRINTI	" the Nave. Amidst the massive columns, one tomb in particular catches your attention."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-ENTERED \?CCL16
+	SET	'PLAYER-IN-ABBEY,TRUE-VALUE
+	RFALSE	
+?CCL16:	EQUAL?	CONTEXT,K-M-EXIT \FALSE
+	EQUAL?	GL-P-WALK-DIR,P?OUT,P?WEST \FALSE
+	SET	'PLAYER-IN-ABBEY,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-EVANGELIST-CHAPEL,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL6
+	FSET	TH-BANK-OF-CANDLES,FL-SEEN
+	FSET	TH-VERE-TOMB,FL-SEEN
+	PRINTI	"You enter the Evangelist Chapel and wonder what it is about this room that makes you feel it is somehow different from the rest of the Abbey."
+	CRLF	
+	RFALSE	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESC-2 \?CCL8
+	PRINTI	"You return to the welcome warmth provided by the array of candles in the Evangelist Chapel."
+	CRLF	
+	RFALSE	
+?CCL8:	PRINTI	"Light! Warmth! There is a bank of candles here lit by devoted worshippers. The candles warm the room so effectively that after a few moments you actually become uncomfortable."
+	CRLF	
+	CRLF	
+	PRINTI	"One of the most unusual tombs in the Abbey is here."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-BEG \FALSE
+	ICALL2	RT-PAPER-WARMING,TH-WHITE-PAPER
+	ICALL2	RT-PAPER-WARMING,TH-BLUE-PAPER
+	ICALL2	RT-PAPER-WARMING,TH-ORANGE-PAPER
+	ICALL2	RT-PAPER-WARMING,TH-YELLOW-PAPER
+	ICALL2	RT-PAPER-WARMING,TH-BROWN-PAPER
+	ICALL2	RT-PAPER-WARMING,TH-GREEN-PAPER
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-HENRY-VII-CHAPEL,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /?CCL3
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND4
+	FSET	TH-HENRY-VII-TOMB,FL-SEEN
+?CND4:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL8
+	PRINTI	"You enter"
+	JUMP	?CND6
+?CCL8:	PRINTI	"You are in"
+?CND6:	PRINTI	" Henry VII's chapel, which is one of the most beautiful chapels in the world. The ceiling is a masterpiece of delicate fan vaulting, and the Renaissance gilt-bronze tomb is obviously the work of one of the Italian masters."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	GL-PRSA,V?LOOK-UP \FALSE
+	PRINT	K-BREATH-TAKING-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-EX-ENTER-BANK-OF-ENGLAND
+	LESS?	CH-BANK-GUARD-AUX1,4 \?CCL3
+	PRINTI	"The guard stops you as you try to enter. ""Excuse me, sir. You can't go in there. And don't even THINK about trying to bribe me."""
+	CRLF	
+	ICALL2	RT-THIS-IS-IT,CH-BANK-GUARD
+	RFALSE	
+?CCL3:	IN?	TH-BOX-KEY,TH-GUARDS-POCKET \?CCL5
+	PRINTI	"Holmes takes you to one side and whispers, ""It is obvious, dear fellow, that it would be pointless to enter the bank with no means of unlocking anything we may find inside."""
+	CRLF	
+	RFALSE	
+?CCL5:	IN?	CH-BANK-GUARD,RM-THREADNEEDLE-ST /?CCL7
+	RETURN	RM-BANK-OF-ENGLAND
+?CCL7:	PRINTI	"As soon as you enter, the guard leaves."
+	CRLF	
+	CRLF	
+	REMOVE	CH-BANK-GUARD
+	RETURN	RM-BANK-OF-ENGLAND
+
+
+	.FUNCT	RT-AC-RM-BUCKINGHAM-PALACE,CONTEXT
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL5
+	EQUAL?	GL-PLACE-CUR,RM-QUEENS-GARDENS \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL5:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BUCKINGHAM-PALACE \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+
+
+	.FUNCT	RT-EX-RM-ENTER-BUCKINGHAM-PALACE
+	EQUAL?	GL-PRSO,P?WEST,P?IN \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-QUEENS-GARDENS \FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-PALACE-GUARD
+	PRINTI	" steps into your path and says, ""I'm sorry, but I've been instructed to let no one into the Palace unless I receive certain items of interest to the Crown."""
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-EX-RM-STEER-BOAT
+	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	PRINTI	"[To move the boat, ROW or PADDLE in a given direction, or LAND it.]"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-EX-RM-LAND-BOAT
+	PRINTI	"[Land the Boat.]"
+	CRLF	
+	ICALL1	RT-LAND-BOAT
+	RFALSE	
+
+
+	.FUNCT	RT-EX-RM-LAUNCH-BOAT
+	IN?	CH-PLAYER,TH-BOAT \?CCL3
+	PRINTI	"[Launch the Boat.]"
+	CRLF	
+	ICALL1	RT-LAUNCH-BOAT
+	RFALSE	
+?CCL3:	PRINTI	"The last man who walked on water was killed by a bunch of Romans. Why don't you play it safe and use a boat?"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-EX-PARLOUR-ENTRY
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-HUDSON
+	PRINT	K-HUDSON-WORRIED-MSG
+	CRLF	
+	RFALSE	
+?CCL3:	FSET?	LG-PARLOUR-DOOR,FL-OPENED /?CCL5
+	ICALL2	RT-CTHEO-PRINT,LG-PARLOUR-DOOR
+	PRINTI	" is closed."
+	CRLF	
+	RFALSE	
+?CCL5:	EQUAL?	GL-PRSO,P?NORTH,P?IN \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	RETURN	RM-PARLOUR
+
+
+	.FUNCT	RT-EX-LEAVE-EMBANKMENT
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	PRINT	K-HEAVY-ARMOUR-MSG
+	CRLF	
+	RFALSE	
+?CND1:	IN?	GL-WINNER,TH-BOAT \?CND3
+	ICALL	RT-PERFORM,V?EXIT,TH-BOAT
+	IN?	GL-WINNER,RM-THE-EMBANKMENT \FALSE
+?CND3:	EQUAL?	GL-PRSO,P?NORTH \?CCL9
+	EQUAL?	GL-PLACE-CUR,RM-THE-EMBANKMENT \?CCL9
+	RETURN	RM-FLEET-STREET
+?CCL9:	EQUAL?	GL-PRSO,P?EAST \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-THE-EMBANKMENT \FALSE
+	RETURN	RM-UPPER-THAMES-ST
+
+	.ENDI
diff --git a/places2.zil b/places2.zil
new file mode 100644
index 0000000..837cf90
--- /dev/null
+++ b/places2.zil
@@ -0,0 +1,901 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : PLACES2.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   28 Oct 1987  4:31:22  $"
+; "rev  : $Revision:   1.72  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<ROUTINE RT-SURGE ()
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL
+"The fog is so thick that even your light cannot penetrate it,
+so you retrace your steps." CR>
+	       <RFALSE>)
+	      (T
+	       <TELL "Surging crowds of ">
+	       <COND (<EQUAL? ,GL-PLACE-CUR ,RM-KENSINGTON-GARDENS>
+		      <TELL "haughty nannies">)
+		     (<EQUAL? ,GL-PLACE-CUR ,RM-COVENT-GARDEN>
+		      <TELL "housewives intent on a bargain">)
+		     (T
+		      <TELL "tourists">)>
+	       <TELL " block your path." CR>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-MADAME-TUSSAUDS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-MADAME-TUSSAUDS" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,TH-ASH ,FL-SEEN>
+		      <MC-MAKE ,TH-WILLIAM-STATUE ,FL-SEEN>
+		      <MC-MAKE ,TH-WALTER-STATUE ,FL-SEEN>
+		      <MC-MAKE ,TH-ELIZABETH-STATUE ,FL-SEEN>
+		      <MC-MAKE ,TH-DRAKE-STATUE ,FL-SEEN>
+		      <MC-MAKE ,TH-JOHN-STATUE ,FL-SEEN>)>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <COND (<EQUAL? ,GL-PLACE-PRV ,RM-MARYLEBONE-RD>
+			     <TELL "You come in off the street and are now standing in">)
+			    (T
+			     <TELL "You leave the Chamber of Horrors and go back into">)>)
+		     (T
+		      <TELL "You are in">)>
+	       <TELL " the lobby." CR CR "All around you are wax statues of
+famous people. To the west is a dark and ominous-looking doorway with a sign
+over it. The exit to the street is to the south." CR>
+	       <COND (<AND <MC-IS? ,TH-ASH ,FL-ASLEEP>
+			   <IN? ,CH-HOLMES ,GL-PLACE-CUR>>
+		      <MC-MAKE ,TH-ASH ,FL-SEEN>
+		      <MC-UNMAKE ,TH-ASH ,FL-ASLEEP>
+		      <MC-UNMAKE ,TH-ASH ,FL-NODESC>
+		      <TELL CR CTHE ,CH-HOLMES 
+" drops to his hands and knees and begins a minute examination of the floor.
+After a few moments he cries, \"Aha! Look here, Watson.\" He points to a
+miniscule speck of ash on the floor." CR>
+		      <SETG GL-PUPPY-MSG? <>>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<AND <EQUAL? .CONTEXT ,K-M-ENTERED>
+		    <MC-ISNOT? ,TH-TOBACCO ,FL-ASLEEP>
+		    <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+	       <RT-UPDATE-SCORE 1>
+	       <MC-MAKE ,TH-TOBACCO ,FL-ASLEEP>)
+	      (<F? .CONTEXT>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-MARYLEBONE-RD>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-CHAMBER-OF-HORRORS>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)>)>
+	<RFALSE>>
+
+; "FL-OPENED = player exited room while librarian was talking to him"
+<ROUTINE RT-AC-RM-MANUSCRIPT-ROOM ("OPTIONAL" (CONTEXT <>) "AUX" VALUE)
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-MANUSCRIPT-ROOM" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL "The deserted corridor leads to">)
+		     (T
+		      <TELL "You are in">)>
+	       <TELL
+" the manuscript room, which contains a dusty collection of
+old books on obscure subjects. ">
+	       <COND (<IN? ,CH-LIBRARIAN ,RM-MANUSCRIPT-ROOM>
+		      <TELL
+"There is an old librarian here, on whose desk sits a handwritten sign that
+reads \"Quiet, please.\" ">)>
+	       <TELL "There are thousands of books behind glass cases">
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <TELL ", but one is lying unattended on a table">)>
+	       <TELL ". The only exit is to the west." CR>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,CH-LIBRARIAN ,FL-SEEN>
+		      <MC-MAKE ,TH-CLUE-BOOK ,FL-SEEN>
+		      ;<MC-MAKE ,TH-LIBRARY-OBJ ,FL-SEEN>
+		      <MC-MAKE ,TH-LIBRARY-TABLE ,FL-SEEN>
+		      <TELL
+CR "The librarian - who is as dusty as the books - looks up in surprise as
+you come in. He ">
+		      <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+			     <TELL "whispers">)
+			    (T
+			     <TELL "says loudly">)>
+		      <TELL
+", \"Oh, I say! Hello! I don't get many visitors here. Is there
+something I can help you with? Some information about the Jubilee,
+perhaps? It's quite rare, you know, for a British ruler to
+celebrate 50 years on the throne. Unique, in fact. The closest anyone
+else came was Elizabeth, who ruled 45 years - although our records are
+somewhat vague before the year 900. The Anglo-Saxon chronicles do get rather
+sketchy, what? Still, they're the best we have. I think I can find a copy
+for you somewhere here.\"" CR CR
+
+"The librarian's voice trails off as he bustles from shelf to shelf,
+squinting at the books to find the one he thinks you want." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<AND .CONTEXT
+		    <IN? ,CH-LIBRARIAN ,RM-MANUSCRIPT-ROOM>
+		    <MC-ISNOT? ,CH-LIBRARIAN ,FL-ASLEEP>>
+	       <COND (<AND <EQUAL? .CONTEXT ,K-M-ENTERED>
+			   <MC-IS? ,CH-LIBRARIAN ,FL-OPENED>>
+		      <TELL CR
+CTHE ,CH-LIBRARIAN " says, \"Welcome back! I have more interesting things to
+tell you!\"" CR>
+		      <RTRUE>)
+		     (<EQUAL? .CONTEXT ,K-M-EXIT>
+		      <TELL
+"As you leave, the librarian calls out, \"Must you be going? I have
+so many other interesting things to tell you.\"" CR CR>
+		      <MC-MAKE ,CH-LIBRARIAN ,FL-OPENED>)
+		     (<EQUAL? .CONTEXT ,K-M-BEG>
+		      <COND (<OR <MC-VERB? WALK EXIT> 
+				 <INTBL? ,GL-PRSA <REST ,GL-GAME-VERBS 2> <GET ,GL-GAME-VERBS 0>>>
+			     <RFALSE>)
+			    (<MC-VERB? WAIT LISTEN>
+			     <TELL "The librarian says ">
+			     <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+				    <TELL "softly">)
+				   (T
+				    <TELL "loudly">)>
+			     <TELL ", ">
+			     <RT-LIBRARIAN-SAYS-MSG>
+			     <RTRUE>)
+			    (<MC-VERB? HUSH>
+			     <TELL
+"The librarian stops in midsentence and gets an embarrassed look on
+his face. \"Oh, I say. I'm sorry to have rambled on like this, but I do
+so enjoy speaking with visitors. I get them so seldom, you know. Thank
+you for listening.\"" CR CR
+
+"He leaves the room, mumbling something to himself about the articulation of
+the third joint of the hind leg of an extinct species of dung beetle." CR>
+			     <REMOVE ,CH-LIBRARIAN>
+			     <RTRUE>)
+			    (<MC-VERB? LOOK>
+			     <RT-DESC-ALL <> T>
+			     <TELL CR "As you look around, the librarian says ">
+			     <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+				    <TELL "softly">)
+				   (T
+				    <TELL "loudly">)>
+			     <TELL ", ">
+			     <RT-LIBRARIAN-SAYS-MSG>
+			     <RTRUE>)
+			    (<AND <MC-VERB? TELL>
+				  <MC-PRSO? ,CH-LIBRARIAN>>
+			     <RFALSE>)
+			    ;(<EQUAL? ,GL-P-PRSA-WORD ,W?ECHO>
+			      <TELL
+"The librarian pauses for a second as if he is finally going to stop
+talking...but then he continues ">
+			      <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+				     <TELL "quietly">)
+				    (T
+				     <TELL "noisily">)>
+			      <TELL " and says, ">
+			      <RT-LIBRARIAN-SAYS-MSG>
+			      <RTRUE>)
+			    (<RT-TALK-VERB?>
+			     <TELL
+"The librarian interrupts you as you attempt to speak, and ">
+			     <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+				    <TELL "whispers">)
+				   (T
+				    <TELL "says">)>
+			     <TELL ", ">
+			     <RT-LIBRARIAN-SAYS-MSG>
+			     <RFATAL>)
+			    (T
+			     <TELL "The librarian launches off into another
+speech, and it distracts you from what you wanted to do. ">
+			     <RT-LIBRARIAN-SAYS-MSG>
+			     <RTRUE>)>)>)
+	      (.CONTEXT <RFALSE>)
+	      (T
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-BRITISH-MUSEUM>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-MANUSCRIPT-ROOM>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)>)>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-VICTORIA-STREET ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-VICTORIA-STREET" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL "You enter">)
+		     (T
+		      <TELL "You are loitering in">)>
+	       <TELL
+" Victoria Street, which runs east and west between Victoria Square
+and Broad Sanctuary." CR CR
+
+"You see a sign outside one of the shops." CR>
+	       <RFALSE>)
+	      (<AND <==? .CONTEXT ,K-M-BEG>
+		    <MC-VERB? WAIT>>
+	       <COND (<MC-ISNOT? ,RM-VICTORIA-STREET ,FL-ASLEEP>
+		      <MC-MAKE ,RM-VICTORIA-STREET ,FL-ASLEEP>
+		      <TELL
+"After a few moments, a constable strolls by, bops you on the head
+with his billy club, and says, \"Move along, you.\"" CR>
+		      <RTRUE>)
+		     (T
+		      <TELL
+"The same constable as before walks by and says, \"You again? That's it,
+mate. Come along with me.\" He bops you on the head again and arrests you
+on a charge of vagrancy." CR CR
+
+"You spend the night in gaol, and in the morning Inspector Lestrade drops
+by to tell you that there has been a mix-up in the paperwork and you are
+to be deported to Australia the following day. He gives you a letter to
+deliver to his sister in Melbourne and wishes you luck." CR CR>
+		      <RT-QSR>)>)
+	      (<T? .CONTEXT> <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-CLOCK-TOWER ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-CLOCK-TOWER" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL
+"The stairs seem to wind up forever. Finally, you emerge into">)
+		     (T
+		      <TELL "You are in">)>
+	       <TELL " the interior of the clock tower, high above the Houses
+of Parliament." CR CR
+
+"The immense bell known as Big Ben is hanging from the
+ceiling, suspended over a hollow shaft that is so deep it might as
+well be bottomless. A wooden railing runs around the shaft
+for safety." CR CR
+
+"Inside the bell, you see an enormous clapper">
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,TH-BELL ,FL-SEEN>
+		      <MC-MAKE ,TH-SAPPHIRE ,FL-SEEN>
+		      <MC-MAKE ,TH-CLAPPER ,FL-SEEN>
+		      <MC-MAKE ,TH-SHAFT ,FL-SEEN>
+		      <MC-MAKE ,TH-RAILING ,FL-SEEN>
+		      <TELL ,K-SAPPHIRE-MSG CR>
+		      <RTRUE>)
+		     (T
+		      <COND (<IN? ,TH-SAPPHIRE ,TH-CLAPPER>
+			     <TELL ,K-SAPPHIRE-MSG CR>)
+			    (T
+			     <TELL "." CR>)>
+		      <RFALSE>)>)
+	      (<NOT <RT-ALARM-SET? ,RT-I-SWING-BELL>>
+	       <RT-ZERO-SECONDS>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-THAMES-ONE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-THAMES-ONE" .CONTEXT>>
+	;<IFSOUND <COND (<==? .CONTEXT ,K-M-BEG>
+			<SOUNDS ,S-BOATING ,S-START>)>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "on the Thames, just south of the Embankment." CR>
+	       <RFALSE>)
+	      (T
+	       <RT-PROCESS-BOAT-ON-THAMES>)>>
+
+<ROUTINE RT-AC-RM-THAMES-TWO ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-THAMES-TWO" .CONTEXT>>
+	;<IFSOUND <COND (<==? .CONTEXT ,K-M-BEG>
+			<SOUNDS ,S-BOATING ,S-START>)>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "on the Thames. Downstream you can see London Bridge." CR>
+	       <RFALSE>)
+	      (T
+	       <RT-PROCESS-BOAT-ON-THAMES>)>>
+
+<ROUTINE RT-AC-RM-THAMES-THREE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-THAMES-THREE" .CONTEXT>>
+	;<IFSOUND <COND (<==? .CONTEXT ,K-M-BEG>
+			<SOUNDS ,S-BOATING ,S-START>)>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "underneath London Bridge." CR>
+	       <RFALSE>)
+		(<OR <AND <MC-VERB? EXAMINE LOOK-UNDER>
+			  <MC-PRSO? ,RM-LONDON-BRIDGE>>
+		     <AND <MC-VERB? LOOK-UP>
+			  <MC-PRSO? ,ROOMS ,RM-LONDON-BRIDGE>>>
+		 <TELL "You see nothing of interest">
+		 <COND (<IN? ,TH-CLUMP-OF-MOSS ,RM-THAMES-THREE>
+			<MC-MAKE ,TH-CLUMP-OF-MOSS ,FL-SEEN>
+			<TELL
+", other than a clump of moss lodged among the supports overhead." CR>)
+		       (T
+			<TELL "." CR>)>
+		 <RT-PROCESS-BOAT-ON-THAMES>
+		 <RTRUE>)
+		(T
+		 <RT-PROCESS-BOAT-ON-THAMES>)>>
+
+<ROUTINE RT-AC-RM-THAMES-FOUR ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-THAMES-FOUR" .CONTEXT>>
+	;<IFSOUND <COND (<==? .CONTEXT ,K-M-BEG>
+			<SOUNDS ,S-BOATING ,S-START>)>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "on the Thames, just south of Traitor's Gate." CR>
+	       <RFALSE>)
+	      (T
+	       <RT-PROCESS-BOAT-ON-THAMES>)>>
+
+<ROUTINE RT-AC-RM-THAMES-FIVE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-THAMES-FIVE" .CONTEXT>>
+	;<IFSOUND <COND (<==? .CONTEXT ,K-M-BEG>
+			<SOUNDS ,S-BOATING ,S-START>)>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "on the Thames, in danger of drifting out to sea." CR>
+	       <RFALSE>)
+	      (T
+	       <RT-PROCESS-BOAT-ON-THAMES>)>>
+
+<ROUTINE RT-AC-RM-SHERMANS-HOUSE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-SHERMANS-HOUSE" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <RT-THIS-IS-IT ,CH-SHERMAN>
+		      <MC-MAKE ,CH-SHERMAN ,FL-SEEN>
+		      <MC-MAKE ,RM-SHERMANS-HOUSE ,FL-SEEN>
+		      <TELL "You enter the cramped quarters of Sherman's
+shop. The old animal-trainer's eyes brighten up when he sees you." CR CR
+
+"\"You've probably come looking for Toby,\" he says. \"But I'm afraid I
+won't be able to help you this time. Toby's not feeling too well, and all my
+other animals are already out on loan. All I have left is a half-trained
+pigeon.\"" CR>
+		      <RTRUE>)
+		     (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+		      <TELL "Sherman's shop is dingy and cramped. Dozens of
+empty cages are stacked up against the walls." CR>
+		      <RFALSE>)>)
+	      (<EQUAL? .CONTEXT ,K-M-ENTERED>
+; "If the house is asleep, then the player has entered it for the first time,
+	and Sherman should not act -- DEB"
+	       <COND (<MC-IS? ,RM-SHERMANS-HOUSE ,FL-ASLEEP>
+		      <MC-UNMAKE ,RM-SHERMANS-HOUSE ,FL-ASLEEP>
+		      <RFALSE>)
+; "If the house is not asleep, then the player has entered it more than once,
+  and Sherman should act based on whether or not the trained pigeon is alive
+	-- DEB"
+              (<MC-IS? ,CH-SHERMAN ,FL-ASLEEP>
+	       <RFALSE>)
+	      (<MC-IS? ,CH-TRAINED-PIGEON ,FL-ALIVE>
+	       <TELL CR
+"Sherman says, \"Welcome back. It's a pleasure to see you again.\"" CR>
+	       <RT-THIS-IS-IT ,CH-SHERMAN>)
+	      (T
+	       <RT-SHERMAN-RAGE T>)>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-PINCHIN-LANE>
+		      <RT-DO-WALK ,P?WEST>
+		      <RTRUE>)>)
+	      (<MC-VERB? EXIT>
+	       <COND (<MC-HERE? ,RM-SHERMANS-HOUSE>
+		      <RT-DO-WALK ,P?EAST>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-RM-THREADNEEDLE-ST ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-THREADNEEDLE-ST" .CONTEXT>>
+	<COND (<F? .CONTEXT>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-BANK-OF-ENGLAND>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)>)>
+	       <RFALSE>)>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <MC-MAKE ,CH-BANK-GUARD ,FL-SEEN>
+	<MC-MAKE ,CH-URCHINS ,FL-SEEN>
+	<MC-MAKE ,TH-GUARDS-POCKET ,FL-SEEN>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-BANK-OF-ENGLAND>
+		      <TELL "You emerge into">)
+		     (T
+		      <TELL "You enter">)>
+	       <TELL " Threadneedle Street and are now">)
+	      (T
+	       <TELL "You are">)>
+	<TELL " in front of the Bank of England. The entrance to
+the bank is to the north, Cheapside leads off to the west, and King
+William Street ">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL "disappears off into the darkness">)
+	      (T
+	       <TELL "continues">)>
+	<TELL " to the southeast. On the wall is a small sign." CR>
+	<COND (<OR <EQUAL? .CONTEXT ,K-M-DESC-1>
+		   <IN? ,CH-BANK-GUARD ,RM-THREADNEEDLE-ST>>
+	       <TELL
+CR "A bank guard is lounging up against the wall, idly jangling some keys
+in his pocket while he watches a group of urchins playing in the street." CR>
+	       <COND (<MC-IS? ,CH-WIGGINS ,FL-BROKEN>
+		      <TELL CR ,K-URCHIN-MSG CR>
+		      <RTRUE>)>)
+	      (T
+	       <TELL CR "A group of urchins is playing in the street." CR>)>
+	<RFALSE>)
+	      (<AND <EQUAL? .CONTEXT ,K-M-BEG>
+		    <IN? ,CH-HOLMES ,RM-LAIR>
+		    <MC-ISNOT? ,TH-TOPAZ ,FL-LOCKED>>
+	       <RT-WIGGINS-HELP-MSG>
+	       <CRLF>
+	       <MC-MAKE ,TH-TOPAZ ,FL-LOCKED>)
+	      (<AND <EQUAL? .CONTEXT ,K-M-ENTERED>
+		    <EQUAL? ,GL-PLACE-PRV ,RM-BANK-OF-ENGLAND>
+		    <MC-ISNOT? ,TH-TOPAZ ,FL-ASLEEP>>
+	       <RT-KIDNAP>
+	       <MC-MAKE ,TH-TOPAZ ,FL-ASLEEP>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-LONDON-BRIDGE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-LONDON-BRIDGE" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <COND (<EQUAL? ,GL-PLACE-PRV ,RM-LAIR>
+			     <TELL
+"When you emerge from the lair you are momentarily disoriented, blinking
+your eyes in the bright sunlight. After a few moments, you realize you
+are standing on London bridge, but you have no idea from which direction
+you came." CR>
+			     <RTRUE>)
+			    (T
+			     <TELL "You">
+			     <RT-DRIVE-WALK-MSG?>
+			     <TELL "up onto">)>)
+		     (T
+		      <TELL "You are">
+		      <RT-IN-VEHICLE-MSG>
+		      <TELL "on">)>
+	       <TELL " London Bridge. ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+		      <TELL "The view of the river from here is spectacular,
+and hoards of sightseers are here with you to share the view." CR>)
+		     (T
+		      <TELL
+"The fog is so dense you can barely see the river from here." CR>)>
+	       <RFALSE>)
+	      (<OR <AND <F? .CONTEXT>
+			<MC-VERB? LOOK-UNDER LOOK-DOWN>
+			<MC-PRSO? ,RM-LONDON-BRIDGE>>
+		   <AND <==? .CONTEXT ,K-M-BEG>
+			<MC-VERB? LOOK-DOWN>
+			<MC-PRSO? ,ROOMS>>>
+	       <TELL "You see the Thames flowing slowly by, just as it has
+done for centuries past." CR>
+	       <RTRUE>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-LOWER-THAMES-ST>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-THAMES-THREE>
+			     <TELL "You can't climb onto the bridge." CR>
+			     <RTRUE>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-LONDON-BRIDGE>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)>)
+		     (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>
+		      <RTRUE>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<AND <IN? ,CH-PLAYER ,TH-BOAT>
+			   <MC-VERB? PUT PUT-ON>>
+		      <TELL "You can't attach anything to the bridge." CR>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-RM-SWAN-LANE ("OPTIONAL" (CONTEXT <>))
+     <DEBUGGING? <RT-DEBUG-RM-AC "RM-SWAN-LANE" .CONTEXT>>
+     <COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	    <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		   <COND (<EQUAL? ,GL-PLACE-PRV ,RM-LOWER-THAMES-ST>
+			  <TELL "With increasing apprehension, you descend">)
+			 (T
+			  <TELL "With considerable relief, you emerge">)>
+		   <TELL " into">)
+		  (T
+		   <TELL "With increasing apprehension, you are standing in">)>
+	    <TELL " Swan Lane, which runs along the waterfront of the Thames." CR CR>
+	    <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		   <TELL "It is a seedy, disreputable, run-down part of town
+that normally you wouldn't be caught dead in. After a moment's reflection,
+you wish you hadn't thought of it in quite those terms." CR CR>)>	
+	    <TELL
+"To the west is the entrance to one of the least savory buildings
+you have ever seen. There is a faded sign above the door that informs
+you that the establishment was, in better days, known as the Bar
+of Gold." CR CR
+
+"Fortunately, it is only a short walk back up the stairs to Lower
+Thames Street." CR>
+	    <RFALSE>)
+	   (<AND <EQUAL? .CONTEXT ,K-M-ENTERED>
+		 <EQUAL? ,GL-PLACE-PRV ,RM-BAR-OF-GOLD>
+		 <IN? ,CH-WIGGINS ,RM-SWAN-LANE>>
+	    <TELL CR
+CTHE ,CH-WIGGINS " says, \"Blimey!! I didn't think you would make it
+out of there alive.\"" CR>
+	    <SETG GL-PUPPY ,CH-WIGGINS>
+	    ;<MC-UNMAKE ,CH-WIGGINS ,FL-NODESC> ;"FLAGS NEVER SET"
+	    ;<MC-UNMAKE ,CH-WIGGINS ,FL-BROKEN>)
+	   (<T? .CONTEXT> <RFALSE>)
+	   (<MC-VERB? ENTER>
+	    <COND (<MC-HERE? ,RM-BAR-OF-GOLD>
+		   <RT-DO-WALK ,P?EAST>
+		   <RTRUE>)>)>>
+
+<ROUTINE RT-AC-RM-BAR-OF-GOLD ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-BAR-OF-GOLD" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,CH-DENKEEPER ,FL-SEEN>
+		      <MC-MAKE ,TH-OPIUM-GAS ,FL-SEEN>)>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL
+"After fighting the urge to turn and run, you enter and find yourself ">)
+		     (T
+		      <TELL "You are standing - rather nervously - ">)>
+	       <TELL
+"in the Bar of Gold, the most infamous opium den in London. The
+proprietor is a most unsavory character who ">
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL
+"gives you a sidelong glance as you enter and then ignores you">)
+		     (T
+		      <TELL "hasn't given you a second look since you came in">)>
+	       <TELL "." CR>
+	       <RFALSE>)
+	      (<AND <EQUAL? .CONTEXT ,K-M-ENTERING>
+		    <EQUAL? ,GL-PUPPY ,CH-WIGGINS>>
+	       <TELL THE ,CH-WIGGINS " says, \"You must be stark raving
+bonkers. That's the most dangerous place in London. I'll wait
+out here, thank you very much!\"" CR CR>
+	       <SETG GL-PUPPY <>>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-SWAN-LANE>
+		      <RT-DO-WALK ,P?WEST>
+		      <RTRUE>)>)
+	      (<MC-VERB? EXIT>
+	       <COND (<MC-HERE? ,RM-BAR-OF-GOLD>
+		      <RT-DO-WALK ,P?EAST>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-RM-LAIR ("OPTIONAL" (CONTEXT <>))
+  <DEBUGGING? <RT-DEBUG-RM-AC "RM-LAIR" .CONTEXT>>
+  <COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	 <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		<MC-MAKE ,CH-MORIARTY ,FL-SEEN>
+		<MC-MAKE ,TH-LAIR-KEY ,FL-SEEN>
+		<MC-MAKE ,TH-CROWN-JEWELS ,FL-SEEN>
+		<MC-MAKE ,TH-MORIARTY-DESK ,FL-SEEN>
+		<MC-MAKE ,TH-ROPE ,FL-SEEN>
+		<TELL "At last you come face to face with the evil
+Professor. He is sitting placidly behind his desk, looking at you as if
+you were some botanical specimen." CR CR
+
+"As you look around the room, you see Sherlock Holmes tied to a
+chair. He is only inches away from the Crown Jewels, which Moriarty has
+spread out on his desk, the better to taunt Holmes." CR CR
+
+"Holmes looks up and says, \"Ah, there you are Watson.\" He turns his head
+towards Moriarty and says, \"You see, Professor, you grossly underestimate
+the intelligence and determination of your fellow countrymen.\"" CR CR
+
+"\"Watson,\" he continues. \"The Professor and I have just been chatting about
+why he led us on this merry chase. If you care to ask him, I'm sure he would
+be happy to fill you in as well.\"" CR>
+		<RTRUE>)
+	       (<EQUAL? .CONTEXT ,K-M-DESC-3>
+		<TELL "The room is simply, but elegantly, furnished.">
+		<COND (<MC-IS? ,CH-HOLMES ,FL-LOCKED>
+		       <SETG GL-PUPPY-MSG? <>>
+		       <TELL " " <RT-PICK-NEXT ,GL-HOLMES-DESC-TXT>
+				   	       ,K-SECURELY-BOUND-MSG ".">)>
+		<CRLF>)>
+	 <RFALSE>)
+	(<EQUAL? .CONTEXT ,K-M-ENTERED>
+	 <SETG GL-PUPPY ,CH-HOLMES>)>
+  <COND (<==? .CONTEXT ,K-M-BEG>
+	 <COND (<MC-VERB? TAKE SHOW>
+		<COND (<MC-PRSO? ,TH-BREATH>
+		       <RFALSE>)
+		      (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+		       <RFALSE>)
+		      (<MC-IS? ,GL-PRSO ,FL-WORN>
+		       <RFALSE>)
+		      (<AND <MC-ISNOT? ,CH-MORIARTY ,FL-LOCKED>
+			    <MC-ISNOT? ,CH-MORIARTY ,FL-ASLEEP>>
+		       <COND (<RT-META-IN? ,GL-PRSO ,GL-WINNER>
+			      <RT-ALARM-SET-REL ,RT-I-TAKE-WATSONS-STUFF
+						     <RT-PARM-SET 0 1 0>>
+			      <MOVE ,GL-PRSO ,GL-WINNER>
+			      <TELL
+"Moriarty's normally emotionless features dissolve in rage. He shouts at
+Akbar, \"Why didn't you take that from him when you brought him
+in?\"" CR CR
+
+"The outburst startles Akbar into momentary inaction, but he quickly recovers
+and starts to come towards you with a violent look in his eyes." CR>)
+			     (T
+			      <TELL "Akbar steps in your way">
+			      <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+				     <TELL ", says, \"Pardon me, honourable sir,\"">)>
+			      <TELL " and stops you from taking " THEO "." CR>)>)>)
+	       (<AND <MC-VERB? RELEASE>
+		     <MC-PRSO? ,TH-BREATH>>
+		<RFALSE>)
+	       (<MC-VERB? UNTIE RELEASE>
+		<COND (<==? ,GL-PRSO ,TH-ROPE>
+		       <RFALSE>)
+		      (<MC-IS? ,GL-PRSO ,FL-LOCKED>
+		       <COND (<OR <MC-IS? ,CH-AKBAR ,FL-ASLEEP>
+				  <MC-IS? ,CH-AKBAR ,FL-LOCKED>>
+			      <MC-UNMAKE ,GL-PRSO ,FL-LOCKED>
+			      <RT-CYOU-MSG "untie" "unties">
+			      <TELL THEO>
+			      <COND (<EQUAL? ,GL-PRSO ,TH-ROPE-AUX1>
+				     <SETG TH-ROPE-AUX1 ,TH-ROPE-AUX2>
+				     <SETG TH-ROPE-AUX2 -1>
+				     <COND (<EQUAL? ,TH-ROPE-AUX1 -1>
+					    <MOVE ,TH-ROPE ,CH-PLAYER>
+					    <MC-UNMAKE ,TH-ROPE ,FL-NODESC>
+					    <TELL ", keeping " THE ,TH-ROPE>)>)
+				    (<EQUAL? ,GL-PRSO ,TH-ROPE-AUX2>
+				     <SETG TH-ROPE-AUX2 -1>)>
+			      <TELL "." CR>
+			      <COND (<AND <MC-PRSO? ,CH-MORIARTY ,CH-AKBAR>
+					  <MC-ISNOT? ,CH-AKBAR ,FL-ASLEEP>>
+				     <CRLF>
+				     <COND (<EQUAL? ,GL-PRSO ,CH-MORIARTY>
+					    <TELL
+"Bad move. As soon as he is free, Moriarty">)
+					   (T
+					    <TELL	
+"Akbar immediately unties Moriarty, who">)>
+				     <TELL
+" unlocks his desk and pulls out a pistol. \"Thank you for releasing
+me, gentlemen,\" he says, waving the gun at you. \"Very sporting of
+you.\" He glances at his pocketwatch. \"We shouldn't have too long to
+wait.\" Minutes later you hear newsboys running through the
+streets shouting about the resignation of the Prime Minister." CR>
+				     <RT-QSR>)>
+			      <RTRUE>)
+			     (T
+			      <RT-ROPE-MSG>)>)
+		      (<MC-VERB? RELEASE>
+		       <RFALSE>)
+		      (T
+		       <TELL CTHEO>
+		       <RT-ISNT-ARENT-MSG ,GL-PRSO>
+		       <TELL "tied up." CR>)>)
+	       (<AND <MC-VERB? TIE-UP>
+		     <NOT <MC-PRSI? ,TH-ROPE ROOMS>>>
+		<RT-IMPOSSIBLE-MSG>)
+	       (<AND <MC-VERB? TIE TIE-UP>
+		     <OR <MC-PRSO? ,CH-PLAYER ,CH-ME>
+			 <MC-PRSI? ,CH-PLAYER ,CH-ME>>>
+		<TELL "We'll assume you're joking." CR>
+		<RTRUE>)
+	       (<MC-VERB? TIE TIE-UP>
+		<COND (<RT-VISIBLE? ,TH-ROPE>
+		       <COND (<OR <MC-IS? ,CH-AKBAR ,FL-ASLEEP>
+				  <MC-IS? ,CH-AKBAR ,FL-LOCKED>>
+			      <COND (<EQUAL? ,CH-HOLMES ,GL-PRSI ,GL-PRSO>
+				     <TELL "Surely you jest." CR>
+				     <RTRUE>)>
+			      <COND (<EQUAL? ,TH-ROPE-AUX1 -1>
+				     <SETG TH-ROPE-AUX1 ,GL-PRSO>)
+				    (<EQUAL? ,TH-ROPE-AUX2 -1>
+				     <SETG TH-ROPE-AUX2 ,GL-PRSO>)
+				    (T
+				     <TELL CTHE ,TH-ROPE " is not long enough." CR>
+				     <RTRUE>)>
+			      <COND (<EQUAL? ,GL-PRSI ,ROOMS>
+				     <SETG GL-PRSI <>>)>
+			      <MOVE ,TH-ROPE ,GL-PLACE-CUR>
+			      <MC-MAKE ,TH-ROPE ,FL-NODESC>
+			      <MC-MAKE ,GL-PRSO ,FL-LOCKED>
+			      <COND (<MC-PRSI? <> ,TH-ROPE>
+				     <RT-CYOU-MSG "tie" "ties">
+				     <TELL "up " THEO "." CR>)
+				    (<NOT <EQUAL? ,TH-ROPE-AUX2 -1>>
+				     <RT-CYOU-MSG "tie" "ties">
+				     <TELL "up " THEO ", but "
+THE ,TH-ROPE " is not long enough to tie up " THEI " as well." CR>)
+				    (T
+				     <MC-MAKE ,GL-PRSI ,FL-LOCKED>
+				     <TELL "You tie " THEO " to " THEI "." CR>)>)
+			     (T
+			      <RT-ROPE-MSG>)>)
+		      (T
+		       <TELL "You don't have " A ,TH-ROPE "." CR>)>)>)>>
+
+<ROUTINE RT-AC-RM-NAVE ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-NAVE" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,TH-NEWTON-TOMB ,FL-SEEN>
+		      <TELL
+"You enter the Abbey and pause in the Nave, struck by the sheer magnificence
+of the building. Massive Purbeck columns march the length of the Nave, and
+they rise in perfect proportion to meet each other in a series of pointed
+arches that are the hallmark of the Gothic style." CR CR
+
+"The interior of the Abbey is dark, cold, and gloomy - but after a few
+moments your eyes adjust and you can make out a tomb at the far end of
+the room." CR>
+		      <RTRUE>)
+		     (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+		      <COND (<EQUAL? .CONTEXT ,K-M-DESC-2>
+			     <COND (<EQUAL? ,GL-PLACE-PRV ,RM-BROAD-SANCTUARY>
+				    <TELL
+"You walk through the massive door and find yourself once again in">)
+				   (T
+				    <TELL "You return to">)>)
+			    (<EQUAL? .CONTEXT ,K-M-DESC-3>
+			     <TELL "You are standing in">)>
+		      <TELL
+" the Nave. Amidst the massive columns, one tomb in particular catches your
+attention." CR>
+		      <RFALSE>)>)
+	      (<EQUAL? .CONTEXT ,K-M-ENTERED>
+	       <SETG PLAYER-IN-ABBEY T>)
+	      (<AND <EQUAL? .CONTEXT ,K-M-EXIT>
+		    <EQUAL? ,GL-P-WALK-DIR ,P?OUT ,P?WEST>>
+	       <SETG PLAYER-IN-ABBEY <>>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-EVANGELIST-CHAPEL ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-EVANGELIST-CHAPEL" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,TH-BANK-OF-CANDLES ,FL-SEEN>
+		      <MC-MAKE ,TH-VERE-TOMB ,FL-SEEN>
+		      <TELL
+"You enter the Evangelist Chapel and wonder what it is
+about this room that makes you feel it is somehow different from the
+rest of the Abbey." CR>)
+		     (<EQUAL? .CONTEXT ,K-M-DESC-2>
+		      <TELL "You return to the welcome warmth provided by
+the array of candles in the Evangelist Chapel." CR>)
+		     (T
+		      <TELL "Light! Warmth! There is a bank of candles
+here lit by devoted worshippers. The candles warm the room so effectively
+that after a few moments you actually become uncomfortable." CR CR
+
+"One of the most unusual tombs in the Abbey is here." CR>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-BEG>
+	       <RT-PAPER-WARMING ,TH-WHITE-PAPER>
+	       <RT-PAPER-WARMING ,TH-BLUE-PAPER>
+	       <RT-PAPER-WARMING ,TH-ORANGE-PAPER>
+	       <RT-PAPER-WARMING ,TH-YELLOW-PAPER>
+	       <RT-PAPER-WARMING ,TH-BROWN-PAPER>
+	       <RT-PAPER-WARMING ,TH-GREEN-PAPER>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-HENRY-VII-CHAPEL ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-AC "RM-HENRY-VII-CHAPEL" .CONTEXT>>
+	<COND (<RT-DESCFCN-CONTEXT .CONTEXT>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,TH-HENRY-VII-TOMB ,FL-SEEN>)>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL "You enter">)
+		     (T
+		      <TELL "You are in">)>
+	       <TELL
+" Henry VII's chapel, which is one of the most beautiful chapels
+in the world. The ceiling is a masterpiece of delicate fan vaulting, and
+the Renaissance gilt-bronze tomb is obviously the work of one of the
+Italian masters." CR>
+	       <RFALSE>)
+	      (<MC-VERB? LOOK-UP>
+	       <TELL ,K-BREATH-TAKING-MSG CR>)>>
+
+<ROUTINE RT-EX-ENTER-BANK-OF-ENGLAND ()
+	 <COND (<L? ,CH-BANK-GUARD-AUX1 4>
+		<TELL 
+"The guard stops you as you try to enter. \"Excuse me, sir. You can't go
+in there. And don't even THINK about trying to bribe me.\"" CR>
+		<RT-THIS-IS-IT ,CH-BANK-GUARD>
+		<RFALSE>)
+	       (<IN? ,TH-BOX-KEY ,TH-GUARDS-POCKET>
+		<TELL
+"Holmes takes you to one side and whispers, \"It is obvious, dear fellow, that
+it would be pointless to enter the bank with no means of unlocking anything we
+may find inside.\"" CR>
+		<RFALSE>)
+	       (T
+		<COND (<IN? ,CH-BANK-GUARD ,RM-THREADNEEDLE-ST>
+		       <TELL "As soon as you enter, the guard leaves." CR CR>
+		       <REMOVE ,CH-BANK-GUARD>)>
+		<RETURN ,RM-BANK-OF-ENGLAND>)>>
+
+<ROUTINE RT-AC-RM-BUCKINGHAM-PALACE ("OPT" (CONTEXT <>))
+	<COND (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-QUEENS-GARDENS>
+		      <RT-DO-WALK ,P?WEST>
+		      <RTRUE>)>)
+	      (<MC-VERB? EXIT>
+	       <COND (<MC-HERE? ,RM-BUCKINGHAM-PALACE>
+		      <RT-DO-WALK ,P?EAST>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-EX-RM-ENTER-BUCKINGHAM-PALACE ()
+	 <COND (<AND <EQUAL? ,GL-PRSO ,P?WEST ,P?IN>
+		     <MC-HERE? ,RM-QUEENS-GARDENS>>
+		<TELL CTHE ,CH-PALACE-GUARD
+" steps into your path and says, \"I'm sorry, but I've
+been instructed to let no one into the Palace unless I receive certain items
+of interest to the Crown.\"" CR>
+		<RFALSE>)>>
+
+<ROUTINE RT-EX-RM-STEER-BOAT ()
+	 <RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+	 <TELL
+"[To move the boat, ROW or PADDLE in a given direction, or LAND it.]" CR>
+	 <RFALSE>>
+
+<ROUTINE RT-EX-RM-LAND-BOAT ()
+	<TELL "[Land the Boat.]" CR>
+	<RT-LAND-BOAT>
+	<RFALSE>>
+
+<ROUTINE RT-EX-RM-LAUNCH-BOAT ()
+	<COND (<IN? ,CH-PLAYER ,TH-BOAT>
+	       <TELL "[Launch the Boat.]" CR>
+	       <RT-LAUNCH-BOAT>)
+	      (T
+	       <TELL
+"The last man who walked on water was killed by a bunch of Romans. Why
+don't you play it safe and use a boat?" CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-EX-PARLOUR-ENTRY ()
+	<COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+	       <TELL CTHE ,CH-HUDSON ,K-HUDSON-WORRIED-MSG CR>
+	       <RFALSE>)
+	      (<MC-ISNOT? ,LG-PARLOUR-DOOR ,FL-OPENED>
+	       <TELL CTHE ,LG-PARLOUR-DOOR " is closed." CR>
+	       <RFALSE>)
+	      (<AND <MC-PRSO? ,P?NORTH ,P?IN>
+		    <MC-HERE? ,RM-ENTRY-HALL>>
+	       <RETURN ,RM-PARLOUR>)>>
+
+<ROUTINE RT-EX-LEAVE-EMBANKMENT ()
+	<COND (<MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+	       <TELL ,K-HEAVY-ARMOUR-MSG CR>
+	       <RFALSE>)>
+	<COND (<IN? ,GL-WINNER ,TH-BOAT>
+	       <RT-PERFORM ,V?EXIT ,TH-BOAT>
+	       <COND (<NOT <IN? ,GL-WINNER ,RM-THE-EMBANKMENT>>
+		      <RFALSE>)>)>
+	<COND (<AND <EQUAL? ,GL-PRSO ,P?NORTH>
+		    <MC-HERE? ,RM-THE-EMBANKMENT>>
+	       <RETURN ,RM-FLEET-STREET>)
+	      (<AND <EQUAL? ,GL-PRSO ,P?EAST>
+		    <MC-HERE? ,RM-THE-EMBANKMENT>>
+	       <RETURN ,RM-UPPER-THAMES-ST>)>>
diff --git a/places3.zabstr b/places3.zabstr
new file mode 100644
index 0000000..60b4356
--- /dev/null
+++ b/places3.zabstr
@@ -0,0 +1,74 @@
+
+<DEFINE-ROUTINE RT-AC-RM-221B-BAKER-ST> 
+<DEFINE-ROUTINE RT-AC-RM-ENTRY-HALL> 
+<DEFINE-ROUTINE RT-AC-RM-PARLOUR> 
+<DEFINE-ROUTINE RT-AC-RM-VESTIBULE> 
+<DEFINE-ROUTINE RT-AC-RM-HOLMES-STUDY> 
+<DEFINE-ROUTINE RT-AC-RM-HOLMES-BEDROOM> 
+<DEFINE-ROUTINE RT-AC-RM-YORK-PLACE> 
+<DEFINE-ROUTINE RT-AC-RM-MARYLEBONE-RD> 
+<DEFINE-ROUTINE RT-AC-RM-CHAMBER-OF-HORRORS> 
+<DEFINE-ROUTINE RT-AC-RM-TOTTENHAM-COURT-RD> 
+<DEFINE-ROUTINE RT-AC-RM-ST-GILES-CIRCUS> 
+<DEFINE-ROUTINE RT-AC-RM-OXFORD-ST> 
+<DEFINE-ROUTINE RT-AC-RM-ORCHARD-ST> 
+<DEFINE-ROUTINE RT-AC-RM-AUDLEY-ST> 
+<DEFINE-ROUTINE RT-AC-RM-HYDE-PARK-CORNER> 
+<DEFINE-ROUTINE RT-AC-RM-KENSINGTON-GARDENS> 
+<DEFINE-ROUTINE RT-AC-RM-TRAFALGAR-SQUARE> 
+<DEFINE-ROUTINE RT-AC-RM-DIOGENES-CLUB> 
+<DEFINE-ROUTINE RT-AC-RM-GREAT-RUSSELL-ST> 
+<DEFINE-ROUTINE RT-AC-RM-BRITISH-MUSEUM> 
+<DEFINE-ROUTINE RT-AC-RM-GROSVENOR-PLACE> 
+<DEFINE-ROUTINE RT-AC-RM-VICTORIA-SQUARE> 
+<DEFINE-ROUTINE RT-AC-RM-BROAD-SANCTUARY> 
+<DEFINE-ROUTINE RT-AC-RM-PARLIAMENT-SQUARE> 
+<DEFINE-ROUTINE RT-AC-RM-PARLIAMENT> 
+<DEFINE-ROUTINE RT-AC-RM-BUCKINGHAM-PALACE-RD> 
+<DEFINE-ROUTINE RT-AC-RM-QUEENS-GARDENS> 
+<DEFINE-ROUTINE RT-AC-RM-BIRDCAGE-WALK> 
+<DEFINE-ROUTINE RT-AC-RM-THE-MALL> 
+<DEFINE-ROUTINE RT-AC-RM-WHITEHALL> 
+<DEFINE-ROUTINE RT-AC-RM-SCOTLAND-YARD> 
+<DEFINE-ROUTINE RT-AC-RM-THE-BLACK-MUSEUM> 
+<DEFINE-ROUTINE RT-AC-RM-NEW-OXFORD-ST> 
+<DEFINE-ROUTINE RT-AC-RM-COVENT-GARDEN> 
+<DEFINE-ROUTINE RT-AC-RM-THE-STRAND> 
+<DEFINE-ROUTINE RT-AC-RM-FLEET-STREET> 
+<DEFINE-ROUTINE RT-AC-RM-THE-EMBANKMENT> 
+<DEFINE-ROUTINE RT-AC-RM-UPPER-THAMES-ST> 
+<DEFINE-ROUTINE RT-AC-RM-PINCHIN-LANE> 
+<DEFINE-ROUTINE RT-AC-RM-CHEAPSIDE> 
+<DEFINE-ROUTINE RT-AC-RM-BANK-OF-ENGLAND> 
+<DEFINE-ROUTINE RT-AC-RM-BANK-VAULT> 
+<DEFINE-ROUTINE RT-AC-RM-KING-WILLIAM-ST> 
+<DEFINE-ROUTINE RT-AC-RM-MONUMENT> 
+<DEFINE-ROUTINE RT-AC-RM-LOWER-THAMES-ST> 
+<DEFINE-ROUTINE RT-AC-RM-TOWER-ENTRANCE> 
+<DEFINE-ROUTINE RT-DF-RM-SOUTH-AISLE> 
+<DEFINE-ROUTINE RT-DF-RM-JERICHO-PARLOUR> 
+<DEFINE-ROUTINE RT-DF-RM-JERUSALEM-CHAMBER> 
+<DEFINE-ROUTINE RT-DF-RM-NORTH-CLOISTER> 
+<DEFINE-ROUTINE RT-DF-RM-SOUTH-TRANSEPT> 
+<DEFINE-ROUTINE RT-DF-RM-NORTH-TRANSEPT> 
+<DEFINE-ROUTINE RT-DF-RM-POETS-CORNER> 
+<DEFINE-ROUTINE RT-DF-RM-SOUTH-AMBULATORY> 
+<DEFINE-ROUTINE RT-DF-RM-SANCTUARY> 
+<DEFINE-ROUTINE RT-DF-RM-NORTH-AMBULATORY> 
+<DEFINE-ROUTINE RT-DF-RM-CONFESSOR-CHAPEL> 
+<DEFINE-ROUTINE RT-DF-RM-SOUTH-CHAPEL-AISLE> 
+<DEFINE-ROUTINE RT-DF-RM-NORTH-CHAPEL-AISLE> 
+<DEFINE-ROUTINE RT-DF-RM-INNOCENTS-CORNER> 
+<DEFINE-ROUTINE RT-AC-RM-DRAWBRIDGE> 
+<DEFINE-ROUTINE RT-DF-RM-BYWARD-TOWER> 
+<DEFINE-ROUTINE RT-DF-RM-OUTER-WARD> 
+<DEFINE-ROUTINE RT-DF-RM-BLOODY-TOWER> 
+<DEFINE-ROUTINE RT-DF-RM-WAKEFIELD-TOWER> 
+<DEFINE-ROUTINE RT-DF-RM-JEWEL-ROOM> 
+<DEFINE-ROUTINE RT-DF-RM-DUNGEON> 
+<DEFINE-ROUTINE RT-DF-RM-TORTURE-ROOM> 
+<DEFINE-ROUTINE RT-DF-RM-WHITE-TOWER> 
+<DEFINE-ROUTINE RT-DF-RM-TOWER-GREEN> 
+<DEFINE-ROUTINE RT-DF-RM-BOWYER-TOWER> 
+<DEFINE-ROUTINE RT-DF-RM-INSIDE-TRAITORS-GATE> 
+<DEFINE-ROUTINE RT-DF-RM-OUTSIDE-TRAITORS-GATE> 
\ No newline at end of file
diff --git a/places3.zap b/places3.zap
new file mode 100644
index 0000000..52b7a0b
--- /dev/null
+++ b/places3.zap
@@ -0,0 +1,1704 @@
+
+
+	.FUNCT	RT-AC-RM-221B-BAKER-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-2 \?CND1
+	EQUAL?	GL-PLACE-PRV,RM-ENTRY-HALL \?CCL14
+	PRINTI	"You emerge from the house into"
+	JUMP	?CND12
+?CCL14:	PRINTI	"You"
+	ICALL1	RT-DRIVE-WALK-MSG?
+	PRINTI	"into"
+?CND12:	PRINTI	" Baker Street."
+	CRLF	
+	CRLF	
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND15
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,0,1,3 \?CND17
+	PRINTI	"in the spill of a gas streetlight "
+?CND17:	PRINTI	"outside Holmes's house. The street "
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL21
+	PRINTI	"disappears into the fog"
+	JUMP	?CND19
+?CCL21:	PRINTI	"continues"
+?CND19:	PRINTI	" to the north and south. The door to the house is to the west."
+	CRLF	
+?CND15:	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL24
+	FSET	LG-BAKER-ST-DOOR,FL-SEEN
+	FSET	CH-PLAYER,FL-SEEN
+	CRLF	
+	PRINTR	"You have come in response to an urgent summons from your old landlady, Mrs Hudson. As the fog swirls around you, you huddle into your coat and shiver in the predawn chill."
+?CCL24:	EQUAL?	CONTEXT,K-M-DESC-3,K-M-DESC-2 \?CCL26
+	IN?	CH-HOLMES,RM-221B-BAKER-ST \FALSE
+	ZERO?	GL-PUPPY \FALSE
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINTI	" says, ""Ah, there you are Watson. While you were inside I gave our little problem some thought. Obviously the person who stole the Crown Jewels wanted the authorities to turn to me for help, and it is equally obvious that the thief has laid down a trail for me to follow, in hopes of somehow entrapping me."
+	CRLF	
+	CRLF	
+	PRINTI	"""So let's play his game, Doctor. But let's play it by our rules. The thief will have tried to anticipate the sequence of my actions, and I'm sure he has laid his trap accordingly. But if "
+	HLIGHT	K-H-ITL
+	PRINTI	"you"
+	HLIGHT	K-H-NRM
+	PRINTI	" were to guide the course of our investigations, he will certainly be thrown off the scent."
+	CRLF	
+	CRLF	
+	PRINTI	"""Therefore, let us take surprise onto our side and rely on your instincts as the man of action I know you to be - despite your frequent modest assertions to the contrary."" He steps to one side and says, ""Lead on, good Doctor. I will follow."" Holmes gestures for you to lead the way."
+	CRLF	
+	SET	'GL-PUPPY,CH-HOLMES
+	SET	'GL-PUPPY-MSG?,FALSE-VALUE
+	RTRUE	
+?CCL26:	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-ENTRY-HALL,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL10
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL10:	EQUAL?	GL-PLACE-CUR,RM-PARLOUR \?CCL12
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CCL12:	EQUAL?	GL-PLACE-CUR,RM-VESTIBULE \?CCL14
+	ICALL2	RT-DO-WALK,P?DOWN
+	RTRUE	
+?CCL14:	PRINTI	"You'll have to be more explicit."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL16
+	FSET	CH-HUDSON,FL-SEEN
+	FSET	RM-ENTRY-HALL,FL-TOUCHED
+	CRLF	
+	PRINTI	"You step inside and Mrs Hudson closes the door behind you. The entry hall is just as you remember it - small, underheated, and lit by a feeble gas light. "
+	PRINT	K-WELL-WORN-MSG
+	RTRUE	
+?CCL16:	EQUAL?	CONTEXT,K-M-DESC-2 \?CCL18
+	EQUAL?	GL-PLACE-PRV,RM-221B-BAKER-ST \?CCL21
+	PRINTI	"You enter the house and pause in the entry hall. "
+	PRINT	K-WELL-WORN-MSG
+	CRLF	
+	RFALSE	
+?CCL21:	EQUAL?	GL-PLACE-PRV,RM-VESTIBULE \?CCL23
+	PRINTI	"You descend the stairs into the entry hall. The parlour door is to the north. "
+	ICALL2	RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
+	CRLF	
+	RFALSE	
+?CCL23:	PRINTI	"You walk out into the entry hall. "
+	ICALL2	RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
+	CRLF	
+	RFALSE	
+?CCL18:	EQUAL?	CONTEXT,K-M-DESC-3 \?CCL25
+	PRINT	K-WELL-WORN-MSG
+	PRINTC	32
+	ICALL2	RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
+	CRLF	
+	RFALSE	
+?CCL25:	GETP	RM-ENTRY-HALL,P?OBJ-NOUN
+	EQUAL?	STACK,W?HOUSE \FALSE
+	CALL1	RT-AC-LG-HOLMES-HOUSE
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-PARLOUR,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL8
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL8:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-PARLOUR \FALSE
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-MATCHBOOK,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
+	PRINTI	"You walk into"
+	JUMP	?CND15
+?CCL17:	EQUAL?	CONTEXT,K-M-DESC-3 \?CND15
+	PRINTI	"You are in"
+?CND15:	PRINTI	" a dreary, late Victorian Era parlour."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-VESTIBULE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL10
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CCL10:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	ICALL2	RT-DO-WALK,P?UP
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND1
+	EQUAL?	GL-PLACE-PRV,RM-ENTRY-HALL \?CCL15
+	PRINTI	"You climb the stairs"
+	JUMP	?CND13
+?CCL15:	PRINTI	"You leave the study"
+?CND13:	PRINTI	" and pause outside the door"
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL18
+	FSET	LG-HOLMES-STUDY-DOOR,FL-SEEN
+	PRINTI	" to Holmes's study, nervous about what you might find inside. "
+	JUMP	?CND1
+?CCL18:	PRINTI	". "
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 \?CND19
+	PRINTI	"You are on a landing at the top of the stairs."
+?CND19:	CRLF	
+	CRLF	
+	PRINTI	"Holmes's study is to the north."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-HOLMES-STUDY,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-VESTIBULE \?CCL10
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL10:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-BEDROOM \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	PRINTI	"You step back through time to your bachelor days, when you shared these cluttered digs with the world's only consulting detective. Despite the mess, you can see that the room is unchanged. The fireplace to the north has a pile of letters transfixed to its mantelpiece by a jackknife. Next to them lies Holmes's six-shot revolver, the tobacco slipper, and Holmes's favorite pipe. The violin has been carelessly tossed onto a stack of obviously unread newspapers."
+	CRLF	
+	CRLF	
+	ICALL2	RT-AC-CH-HOLMES,K-M-DESCFCN
+	CRLF	
+	FSET	TH-MANTELPIECE,FL-SEEN
+	FSET	TH-VIOLIN,FL-SEEN
+	FSET	TH-NEWSPAPER,FL-SEEN
+	FSET	TH-SYRINGE,FL-SEEN
+	FSET	TH-PHIAL,FL-SEEN
+	FSET	TH-MAIL,FL-SEEN
+	FSET	TH-GUN,FL-SEEN
+	FSET	TH-KNIFE,FL-SEEN
+	FSET	TH-PERSIAN-SLIPPER,FL-SEEN
+	FSET	TH-PIPE,FL-SEEN
+	FSET	TH-LIQUID,FL-SEEN
+	FSET	TH-MOROCCO-CASE,FL-SEEN
+	FSET	TH-SOFA,FL-SEEN
+	FSET	CH-HOLMES,FL-SEEN
+	FSET	LG-HOLMES-BEDROOM-DOOR,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-2 \?CCL15
+	PRINTI	"You return to Holmes's study, which"
+	JUMP	?CND13
+?CCL15:	EQUAL?	CONTEXT,K-M-DESC-3 \?CND13
+	PRINTI	"The study"
+?CND13:	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 \?CND17
+	PRINTI	" is in its usual disarray."
+	CRLF	
+	FSET?	CH-HOLMES,FL-ASLEEP \?CND19
+	CRLF	
+	ICALL2	RT-AC-CH-HOLMES,K-M-DESCFCN
+?CND19:	IN?	CH-PRIME-MINISTER,RM-HOLMES-STUDY \?CCL23
+	CRLF	
+	FSET?	CH-PRIME-MINISTER,FL-SEEN /?CCL26
+	FSET	CH-PRIME-MINISTER,FL-SEEN
+	ICALL2	RT-THIS-IS-IT,CH-PRIME-MINISTER
+	PRINTI	"You see a distinguished-looking visitor sitting in the armchair. "
+	JUMP	?CND17
+?CCL26:	PRINTI	"The visitor fidgets nervously in his chair. "
+	JUMP	?CND17
+?CCL23:	CRLF	
+?CND17:	ICALL2	RT-CTHEO-PRINT,LG-HOLMES-BEDROOM-DOOR
+	PRINTI	" to the west is "
+	FSET?	LG-HOLMES-BEDROOM-DOOR,FL-OPENED \?CCL29
+	PRINTI	"open"
+	JUMP	?CND27
+?CCL29:	PRINTI	"closed"
+?CND27:	PRINTI	". The only other exit is the door to the south."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 /TRUE
+	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-HOLMES-BEDROOM,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CND1
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CND1:	PRINTI	"This is a sparsely furnished room, whose walls are adorned only by scores of pictures of famous criminals. On a disorderly workbench in the corner, a jumble of laboratory equipment suggests that Holmes is in the middle of one of his chemical experiments. "
+	IN?	TH-ETHERIUM-AMPOULE,TH-WORKBENCH \?CND9
+	PRINTI	"Set off to one side is a single ampoule with a neatly lettered label affixed to it. "
+?CND9:	PRINTI	"The room's only exit is to the east."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL13
+	FSET	TH-BED,FL-SEEN
+	FSET	TH-BEDSIDE-TABLE,FL-SEEN
+	FSET	TH-ETHERIUM-AMPOULE,FL-SEEN
+	FSET	TH-LAB-EQUIPMENT,FL-SEEN
+	FSET	TH-WORKBENCH,FL-SEEN
+	FSET	TH-LAMP,FL-SEEN
+	FSET	TH-MAGNIFYING-GLASS,FL-SEEN
+	CRLF	
+	PRINTR	"Next to the bed there is a table, on which you see a lamp and Holmes's favorite magnifying glass. "
+?CCL13:	EQUAL?	CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-YORK-PLACE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND1
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL7
+	PRINTI	"Through the mist you see"
+	JUMP	?CND5
+?CCL7:	PRINTI	"This is"
+?CND5:	PRINTI	" a quiet, residential street, lined with undistinguished, four storey Georgian houses. To the south, York Place opens up into Baker Street, and Marylebone Road comes in from the east."
+	CRLF	
+?CND1:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \FALSE
+	CRLF	
+	PRINTI	"The street isn't as quiet as usual, due to the surging crowds of tourists."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-MARYLEBONE-RD,CONTEXT,WHO
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CND1
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CND1:	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	EQUAL?	GL-PLACE-PRV,RM-MADAME-TUSSAUDS \?CCL14
+	PRINTI	"You go out the door and are now"
+	JUMP	?CND9
+?CCL14:	PRINTI	"You find yourself"
+	JUMP	?CND9
+?CCL11:	PRINTI	"You are"
+?CND9:	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"in front of Madame Tussaud's famous wax museum. From here the street continues east and west."
+	CRLF	
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
+	PRINTI	"The museum is closed for renovations, and there is a guard and a dog patrolling the street outside the entrance, which is just to the north of you. The guard "
+	RANDOM	100
+	LESS?	33,STACK /?CCL20
+	PRINTI	"lights"
+	JUMP	?CND18
+?CCL20:	RANDOM	100
+	LESS?	50,STACK /?CCL22
+	PRINTI	"puffs on"
+	JUMP	?CND18
+?CCL22:	PRINTI	"puts out"
+?CND18:	PRINTI	" a cigarette, tips his hat, and says, """
+	EQUAL?	GL-PLACE-PRV,RM-MADAME-TUSSAUDS \?CCL25
+	PRINTI	"Goodbye"
+	JUMP	?CND23
+?CCL25:	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL27
+	PRINTI	"Hello"
+	JUMP	?CND23
+?CCL27:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL29
+	PRINTI	"Top of the morning to you"
+	JUMP	?CND23
+?CCL29:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,2 \?CCL31
+	PRINTI	"Good day"
+	JUMP	?CND23
+?CCL31:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CND23
+	PRINTI	"Good evening"
+?CND23:	EQUAL?	WHO,CH-HOLMES \?CCL35
+	PRINTI	", Mr Holmes"
+	JUMP	?CND33
+?CCL35:	PRINTI	", Doctor Watson"
+?CND33:	PRINTI	"."""
+	CRLF	
+	JUMP	?CND15
+?CCL17:	EQUAL?	CONTEXT,K-M-DESC-3 \?CND15
+	PRINTI	"The guard and the dog are still here, and they show no signs of leaving."
+	CRLF	
+?CND15:	IN?	CH-PLAYER,TH-HANSOM-CAB /?CND37
+	IN?	CH-PLAYER,TH-GROWLER-CAB /?CND37
+	ICALL2	SOUNDS,S-GROWL
+	CRLF	
+	PRINTI	"The dog growls at you."
+	CRLF	
+?CND37:	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	CH-TUSSAUDS-GUARD,FL-SEEN
+	FSET	CH-MATCH-SNIFFING-DOG,FL-SEEN
+	FSET	TH-CIGARETTE,FL-SEEN
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-CHAMBER-OF-HORRORS,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL8
+	EQUAL?	GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL8:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-CHAMBER-OF-HORRORS \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-CHARLES-STATUE,FL-SEEN
+	FSET	TH-THOMAS-STATUE,FL-SEEN
+	FSET	TH-FAWKES-STATUE,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
+	PRINTI	"You enter"
+	JUMP	?CND15
+?CCL17:	PRINTI	"You are in"
+?CND15:	PRINTI	" the Chamber of Horrors. Scattered around the room are wax groupings of some of the most gruesome scenes from English history. The only exit is to the east."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-TOTTENHAM-COURT-RD,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	LG-SHOPS,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND5
+	PRINTI	"This part of London is known for its furniture dealers, but all the shops seem to be closed for the Jubilee."
+	CRLF	
+	CRLF	
+	PRINTI	"Marylebone Road goes off to the west here, and Tottenham Court Road continues to the south."
+	CRLF	
+?CND5:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL9
+	CRLF	
+	PRINTI	"Throngs of shoppers peer in the windows of the closed shops."
+	CRLF	
+	RFALSE	
+?CCL9:	CRLF	
+	ICALL1	RT-FOG-MSG
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-ST-GILES-CIRCUS,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"in St Giles Circus. Roads lead off in many directions."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-OXFORD-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"Oxford Street is London's busiest shopping thoroughfare"
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CND3
+	PRINTI	", although at this hour the street is deserted"
+?CND3:	PRINTI	". Fashionable emporiums line the street on either side, offering goods from all over the British Empire. Unfortunately, they all seem to be closed for the Jubilee."
+	CRLF	
+	CRLF	
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND5
+	PRINTI	"Hoards of frustrated tourists mill about, peering in the windows of the closed shops."
+	CRLF	
+	CRLF	
+?CND5:	PRINTI	"The street continues to the east and west."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	LG-SHOPS,FL-SEEN
+	CALL2	RT-META-LOC,TH-GROWLER-CAB
+	EQUAL?	STACK,RM-OXFORD-ST \TRUE
+	IN?	CH-PLAYER,TH-GROWLER-CAB /TRUE
+	FSET	TH-GROWLER-CAB,FL-SEEN
+	CRLF	
+	PRINTR	"At a cabstand along the curb you see a growler cab."
+
+
+	.FUNCT	RT-AC-RM-ORCHARD-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND1
+	PRINTI	"Orchard Street is the southern extension of Baker Street. From here you can see Oxford Street off to the east, Baker Street to the north, and Audley Street "
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL7
+	PRINTI	"fading into the mists"
+	JUMP	?CND5
+?CCL7:	PRINTI	"continuing"
+?CND5:	PRINTI	" to the south."
+	CRLF	
+	CRLF	
+?CND1:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2 \?CCL10
+	PRINTI	"Crowds of tourists stream eastward, "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL13
+	PRINTI	"looking forward to spending the day in the shops along Oxford Street."
+	CRLF	
+	RFALSE	
+?CCL13:	PRINTI	"intent on finding some bargains in the shops on Oxford Street."
+	CRLF	
+	RFALSE	
+?CCL10:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CCL15
+	PRINTI	"Frustrated tourists stream westward, angered by the closed shops in Oxford Street."
+	CRLF	
+	RFALSE	
+?CCL15:	ICALL1	RT-FOG-MSG
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-AUDLEY-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"This is a pleasant street that winds through Mayfair, a fashionable district which takes its name from an ancient fair held there in May of each year."
+	CRLF	
+	CRLF	
+	PRINTI	"To the south is Hyde Park Corner, and to the north is Orchard Street."
+	CRLF	
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \FALSE
+	CRLF	
+	ICALL1	RT-FOG-MSG
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-HYDE-PARK-CORNER,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CND1
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-KENSINGTON-GARDENS \FALSE
+	ICALL2	RT-DO-WALK,P?SE
+	RTRUE	
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND9
+	PRINTI	"Hyde Park Corner is dominated by the Wellington Arch, a soaring monument to the ""Iron Duke,"" who defeated Napoleon at the Battle of Waterloo."
+	CRLF	
+	CRLF	
+?CND9:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL13
+	PRINTI	"Huge crowds of tourists gape up at the Arch."
+	CRLF	
+	CRLF	
+	JUMP	?CND11
+?CCL13:	PRINTI	"The arch is enshrouded in fog."
+	CRLF	
+	CRLF	
+?CND11:	PRINTI	"Roads lead off in many directions."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-KENSINGTON-GARDENS,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HYDE-PARK-CORNER \FALSE
+	ICALL2	RT-DO-WALK,P?NW
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	CH-NANNIES,FL-SEEN
+	FSET	TH-PRAMS,FL-SEEN
+	FSET	TH-PARK-FLOWERS,FL-SEEN
+?CND1:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL13
+	PRINTI	"A tide of perambulators pushed by well-starched nannies surges along the crowded walk. Everywhere you look there are rows and rows of beautiful flowers."
+	CRLF	
+	RFALSE	
+?CCL13:	PRINTI	"The flower gardens are deserted."
+	CRLF	
+	CRLF	
+	ICALL1	RT-FOG-MSG
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-TRAFALGAR-SQUARE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-DIOGENES-CLUB \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-PIGEONS,FL-SEEN
+	FSET	TH-NELSON-COLUMN,FL-SEEN
+	FSET	TH-NELSON-EYE,FL-SEEN
+	FSET	TH-NELSON-STATUE,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND11
+	PRINTI	"Pigeons, pigeons, everywhere. You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"in one of the great open spaces of London, named for Nelson's naval victory over Napoleon in 1805. Streets come in and go out at all angles, and everywhere you look there are "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND13
+	PRINTI	"people feeding "
+?CND13:	PRINTI	"pigeons."
+	CRLF	
+	CRLF	
+	PRINTI	"The square is dominated by Nelson's Column, a 167 foot tall Corinthian column with"
+	PRINT	K-NELSON-STATUE-MSG
+	CRLF	
+	CRLF	
+	PRINTI	"The entrance to the Diogenes Club is to the west."
+	CRLF	
+?CND11:	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \FALSE
+	CRLF	
+	ICALL1	RT-FOG-MSG
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-DIOGENES-CLUB,CONTEXT
+	EQUAL?	CONTEXT,K-M-ENTERED \?CCL3
+	ICALL	SOUNDS,S-SNORE,S-START
+	JUMP	?CND1
+?CCL3:	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	ICALL	SOUNDS,S-SNORE,S-STOP
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL7
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL7:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL15
+	PRINTI	"You enter the hushed atmosphere of the Diogenes Club. The furnishings are aging and opulent. The members are aging and asleep. The only exit is to the east."
+	CRLF	
+	CRLF	
+	FSET?	CH-BUTLER,FL-ASLEEP /?CCL18
+	PRINTI	"An ancient butler totters forward to greet you and says in a barely audible whisper, ""May I be of some assistance?"""
+	CRLF	
+	JUMP	?CND5
+?CCL18:	PRINT	K-EVERYONE-OUT-MSG
+	CRLF	
+	JUMP	?CND5
+?CCL15:	PRINTI	"You are in the Diogenes Club. "
+	FSET?	CH-BUTLER,FL-ASLEEP /?CCL21
+	PRINTI	"The butler is here, waiting to serve you."
+	JUMP	?CND19
+?CCL21:	PRINT	K-EVERYONE-OUT-MSG
+?CND19:	CRLF	
+?CND5:	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	CH-BUTLER,FL-SEEN
+	FSET	CH-MEMBERS,FL-SEEN
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-GREAT-RUSSELL-ST,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
+	PRINTI	"Great Russell Street is the home of the British Museum, the entrance of which is to the north. There is a sign next to the door."
+	CRLF	
+	CRLF	
+	PRINTI	"To the southwest you can see St Giles Circus."
+	CRLF	
+	RFALSE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BRITISH-MUSEUM \FALSE
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-BRITISH-MUSEUM,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL10
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL10:	EQUAL?	GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL13
+	EQUAL?	GL-PLACE-PRV,RM-GREAT-RUSSELL-ST \?CCL16
+	PRINTI	"You walk up the grand staircase and into"
+	JUMP	?CND1
+?CCL16:	PRINTI	"You walk back down the long corridor and return to"
+	JUMP	?CND1
+?CCL13:	PRINTI	"You are standing in"
+?CND1:	PRINTI	" the entrance hall of the museum. All the corridors leading to the exhibit halls are packed with tourists, and there is a steady stream of people going in and out of the street entrance to the south. Only the corridor to the east seems to be of no interest to the sightseers."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-GROSVENOR-PLACE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"This is a pleasant but out-of-the-way street that runs northwest to southeast. Few tourists ever visit here. "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,3 \?CCL5
+	PRINTI	"Despite the "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL8
+	PRINTI	"early"
+	JUMP	?CND6
+?CCL8:	PRINTI	"late"
+?CND6:	PRINTI	" hour, some"
+	JUMP	?CND3
+?CCL5:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,2 \?CND3
+	PRINTI	"Some"
+?CND3:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL12
+	PRINTI	" people are standing on the corner."
+	CRLF	
+	RFALSE	
+?CCL12:	ICALL1	RT-FOG-MSG
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-VICTORIA-SQUARE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	PRINTI	"You come upon"
+	JUMP	?CND1
+?CCL5:	PRINTI	"You are in"
+?CND1:	PRINTI	" Victoria Square. Streets go off in many directions."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-BROAD-SANCTUARY,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
+	FSET	LG-WESTMINSTER-DOOR,FL-SEEN
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND4
+	PRINTI	"in the midst of a crowd of tourists "
+?CND4:	PRINTI	"in front of the west door of Westminster Abbey. The towers of the Abbey"
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL8
+	PRINTI	" loom in the fog"
+	JUMP	?CND6
+?CCL8:	PRINTI	" soar high"
+?CND6:	PRINTI	" above you, and you marvel at this perfect example of Gothic architecture, as generations have done before you."
+	CRLF	
+	CRLF	
+	ICALL2	RT-OPEN-CLOSED-MSG,LG-WESTMINSTER-DOOR
+	CRLF	
+	CRLF	
+	PRINTI	"On the wall next to the door is a small, discreet sign."
+	CRLF	
+	RFALSE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-NAVE \FALSE
+	CALL2	RT-DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	RT-AC-RM-PARLIAMENT-SQUARE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
+	PRINTI	"This is an attractive square at the foot of Whitehall. "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL6
+	PRINTI	"Large crowds mill around"
+	JUMP	?CND4
+?CCL6:	PRINTI	"Through the mist you see"
+?CND4:	PRINTI	" the entrance to the Houses of Parliament to the southeast. To the west is Birdcage Walk. Broad Sanctuary goes off to the southwest, and Whitehall "
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL9
+	PRINTI	"disappears into the gloom"
+	JUMP	?CND7
+?CCL9:	PRINTI	"is"
+?CND7:	PRINTI	" to the north."
+	CRLF	
+	RFALSE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-PARLIAMENT \FALSE
+	ICALL2	RT-DO-WALK,P?NW
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-PARLIAMENT,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-PARLIAMENT-SQUARE \FALSE
+	ICALL2	RT-DO-WALK,P?SE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	EQUAL?	GL-PLACE-PRV,RM-PARLIAMENT-SQUARE \?CCL14
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL17
+	PRINTI	"You enter"
+	JUMP	?CND1
+?CCL17:	PRINTI	"You push your way into"
+	JUMP	?CND1
+?CCL14:	PRINTI	"You descend the stairs into"
+	JUMP	?CND1
+?CCL11:	PRINTI	"You are standing in"
+?CND1:	PRINTI	" the "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND18
+	PRINTI	"jam-packed "
+?CND18:	PRINTI	"entrance hall of the House of Commons."
+	CRLF	
+	CRLF	
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CCL22
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,3 \?CCL25
+	PRINTI	"Despite the "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL28
+	PRINTI	"early"
+	JUMP	?CND26
+?CCL28:	PRINTI	"late"
+?CND26:	PRINTI	" hour, there"
+	JUMP	?CND23
+?CCL25:	PRINTI	"There"
+?CND23:	PRINTI	" are hundreds of people lined up to get in. But"
+	JUMP	?CND20
+?CCL22:	PRINTI	"The Chamber is closed, but"
+?CND20:	PRINTI	" off to one side you see a flight of old stone steps leading up into the darkness."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-BUCKINGHAM-PALACE-RD,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"Buckingham Palace Road connects Queens Gardens to the northeast with Victoria Square to the southwest."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-QUEENS-GARDENS,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	CH-PALACE-GUARD,FL-SEEN
+?CND1:	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"outside the gate to Buckingham Palace."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-BIRDCAGE-WALK,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	PRINTI	"As you enter Birdcage Walk, your attention is diverted to"
+	JUMP	?CND1
+?CCL5:	PRINTI	"You see"
+?CND1:	PRINTI	" a man who has set up a small souvenir stand near where the parade will pass on Tuesday. "
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL8
+	PRINTI	"Oblivious to the fact that there are no crowds here to buy his wares"
+	JUMP	?CND6
+?CCL8:	PRINTI	"Hoping to attract the attention of the crowd"
+?CND6:	PRINTI	", he is waving a handful of overpriced trinkets over his head."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	CH-VENDOR,FL-SEEN
+	FSET	TH-TELESCOPE,FL-SEEN
+	FSET	TH-TRINKETS,FL-SEEN
+	CRLF	
+	PRINTI	"As soon as he sees you, the salesman "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2,3 \?CND12
+	PRINTI	"ignores everyone else and "
+?CND12:	PRINTR	"says, ""'Ere, Guv. Come early for the parade, 'ave you? There'll be thousands of people, you know. Now at the last Jubilee - about a year and a 'alf ago, as I remembers it - I could 'ardly see a fing. But if you was to buy one of my telescopes, you wouldn't 'ardly 'ave any problem, now would you? 'Ow 'bout it, Guv?"""
+
+
+	.FUNCT	RT-AC-RM-THE-MALL,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"The Mall runs southwest to northeast between the Queens Gardens and Trafalgar Square."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-WHITEHALL,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
+	PRINTI	"Impressive government buildings line the street on either side. The street continues north and south, and the entrance to Scotland Yard is to the east."
+	CRLF	
+	RFALSE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-SCOTLAND-YARD \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-SCOTLAND-YARD,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL8
+	EQUAL?	GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \?CCL11
+	ICALL1	RT-ALREADY-IN-ROOM-MSG
+	RTRUE	
+?CCL11:	EQUAL?	GL-PLACE-CUR,RM-WHITEHALL \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL8:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-SCOTLAND-YARD \?CCL16
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL16:	EQUAL?	GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \FALSE
+	ICALL2	RT-DO-WALK,P?UP
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL19
+	EQUAL?	GL-PLACE-PRV,RM-WHITEHALL \?CCL22
+	PRINTI	"You walk up the steps and into the building. Inside, it"
+	JUMP	?CND1
+?CCL22:	EQUAL?	GL-PLACE-PRV,RM-THE-BLACK-MUSEUM \?CND1
+	PRINTI	"You return to the ground floor. It"
+	JUMP	?CND1
+?CCL19:	PRINTI	"It"
+?CND1:	PRINTI	" looks just like any other government building - drab and worn. The door to the street is to the west, and you see some steps leading down."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-THE-BLACK-MUSEUM,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CND1
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL7
+	EQUAL?	GL-PLACE-CUR,RM-SCOTLAND-YARD \FALSE
+	ICALL2	RT-DO-WALK,P?DOWN
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \FALSE
+	ICALL2	RT-DO-WALK,P?UP
+	RTRUE	
+?CND1:	FSET	TH-BLIGH-BOAT,FL-SEEN
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
+	PRINTI	"This is the Black Museum, where the Yard keeps relics and mementos of famous crimes."
+	CRLF	
+	CRLF	
+	PRINTI	"Along one wall is a full-size rowboat with a small sign attached to it."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-NEW-OXFORD-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	EQUAL?	GL-PLACE-PRV,RM-CHEAPSIDE,RM-ST-GILES-CIRCUS \?CCL8
+	PRINTI	"The quality of the neighborhood seems to be "
+	EQUAL?	GL-PLACE-PRV,RM-ST-GILES-CIRCUS \?CCL11
+	PRINTI	"deteriorating"
+	JUMP	?CND9
+?CCL11:	PRINTI	"improving"
+?CND9:	PRINTI	" as you"
+	ICALL1	RT-DRIVE-WALK-MSG?
+	EQUAL?	GL-PLACE-PRV,RM-ST-GILES-CIRCUS \?CCL14
+	PRINTI	"eastward"
+	JUMP	?CND12
+?CCL14:	PRINTI	"westward"
+?CND12:	PRINTI	" along"
+	JUMP	?CND1
+?CCL8:	EQUAL?	GL-PLACE-PRV,RM-COVENT-GARDEN \?CCL16
+	PRINTI	"You leave Covent Garden and enter"
+	JUMP	?CND1
+?CCL16:	PRINTI	"The cab stops in"
+	JUMP	?CND1
+?CCL5:	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"in"
+?CND1:	PRINTI	" New Oxford Street."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-COVENT-GARDEN,CONTEXT
+	EQUAL?	CONTEXT,K-M-ENTERED \?CCL3
+	ICALL	SOUNDS,S-CROWD,S-START
+	JUMP	?CND1
+?CCL3:	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	ICALL	SOUNDS,S-CROWD,S-STOP
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
+	PRINTI	"You enter"
+	JUMP	?CND5
+?CCL9:	PRINTI	"You are in"
+?CND5:	PRINTI	" Covent Garden, which is the central market for all of London. Everywhere you look there are stalls packed with produce from the English countryside."
+	CRLF	
+	CRLF	
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL12
+	PRINTI	"Despite the hour, the"
+	JUMP	?CND10
+?CCL12:	PRINTI	"The"
+?CND10:	PRINTI	" open-air market is crowded with housewives who are shopping for fruits and vegetables."
+	CRLF	
+	IN?	CH-ELIZA-DOOLITTLE,RM-COVENT-GARDEN \?CND13
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
+	PRINTI	"After looking around for a few moments, you"
+	JUMP	?CND15
+?CCL17:	PRINTI	"You"
+?CND15:	PRINTI	" see a crowd of women gathered around a girl who has collapsed on the ground. Her lifeless hand clutches a bunch of flowers."
+	CRLF	
+?CND13:	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	CH-ELIZA-DOOLITTLE,FL-SEEN
+	FSET	CH-HOUSEWIVES,FL-SEEN
+	FSET	TH-ELIZAS-FLOWERS,FL-SEEN
+	FSET	TH-ELIZAS-MOUTH,FL-SEEN
+	RTRUE	
+
+
+	.FUNCT	RT-AC-RM-THE-STRAND,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	PRINTI	"You enter"
+	JUMP	?CND3
+?CCL5:	PRINTI	"You are lingering in"
+?CND3:	PRINTI	" the Strand, which is the heart of London's theatre district"
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CCL8
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	PRINTI	", and fight your way through"
+	JUMP	?CND9
+?CCL11:	PRINTI	", and you are enjoying being in the midst of"
+?CND9:	PRINTI	" the crowds of happy theatre goers"
+	JUMP	?CND6
+?CCL8:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1,2 \?CND6
+	PRINTC	46
+	CRLF	
+	CRLF	
+	PRINTI	"Crowds are gathering in front of the theatres, trying to select a show to see later in the day"
+?CND6:	PRINTI	". Streets lead off to the north, east, and southwest."
+	CRLF	
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \FALSE
+	CRLF	
+	PRINTI	"As you"
+	ICALL1	RT-DRIVE-WALK-MSG?
+	PRINTI	"through the fog, the empty streets seem haunted by the ghosts of actors from years gone by."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-FLEET-STREET,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"Fleet Street is the centre of London's thriving newspaper industry"
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL5
+	PRINTI	". The presses roar all night, turning out papers that will be delivered by train around the country the next day."
+	CRLF	
+	JUMP	?CND3
+?CCL5:	PRINTI	", and it is crowded with the thousands of people who put out the nation's newspapers."
+	CRLF	
+?CND3:	CRLF	
+	PRINTI	"A street leads off to the west, and there is a passage south to the Embankment."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-THE-EMBANKMENT,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-ONE \FALSE
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	PRINTI	"You arrive at"
+	JUMP	?CND1
+?CCL11:	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"on"
+?CND1:	PRINTI	" the Victoria Embankment, on the left bank of the Thames. "
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL14
+	PRINTI	"The early morning mist clings to the water and muffles the sounds of the river."
+	JUMP	?CND12
+?CCL14:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,2 \?CCL16
+	PRINTI	"The river is crowded with pleasure boats here for the Jubilee."
+	JUMP	?CND12
+?CCL16:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CCL18
+	PRINTI	"The river looks quiet and peaceful in the fading light."
+	JUMP	?CND12
+?CCL18:	PRINTI	"The river is barely visible through the thick fog."
+?CND12:	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	TH-BOAT,FL-SEEN
+	FSET	TH-OAR-1,FL-SEEN
+	FSET	TH-OAR-LOCK,FL-SEEN
+	CRLF	
+	PRINTR	"There is an incredibly old rowboat here. It's got one empty oarlock, and it probably leaks, but it looks as if it might float."
+
+
+	.FUNCT	RT-AC-RM-UPPER-THAMES-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"Upper Thames Street runs east and west between the Embankment and Lower Thames Street."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-PINCHIN-LANE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-SHERMANS-HOUSE \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	EQUAL?	GL-PLACE-PRV,RM-CHEAPSIDE \?CCL14
+	PRINTI	"You enter"
+	JUMP	?CND1
+?CCL14:	EQUAL?	GL-PLACE-PRV,RM-SHERMANS-HOUSE \?CCL16
+	PRINTI	"You emerge from Sherman's shop into"
+	JUMP	?CND1
+?CCL16:	PRINTI	"The cab stops in"
+	JUMP	?CND1
+?CCL11:	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"in"
+?CND1:	PRINTI	" Pinchin Lane, a dingy little alley that runs"
+	EQUAL?	GL-PLACE-PRV,RM-CHEAPSIDE \?CCL19
+	PRINTI	" south from"
+	JUMP	?CND17
+?CCL19:	PRINTI	" north to"
+?CND17:	PRINTI	" Cheapside."
+	CRLF	
+	CRLF	
+	PRINTI	"To the west is the entrance to "
+	EQUAL?	CONTEXT,K-M-DESC-1 /?CTR21
+	FSET?	RM-SHERMANS-HOUSE,FL-SEEN /?CCL22
+?CTR21:	PRINTI	"what looks like a pet shop"
+	JUMP	?CND20
+?CCL22:	PRINTI	"Sherman's shop"
+?CND20:	PRINTC	46
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL27
+	EQUAL?	GL-PLACE-PRV,RM-SHERMANS-HOUSE /?CCL27
+	PRINTI	" Despite the hour, you see a light shining inside."
+	CRLF	
+	RFALSE	
+?CCL27:	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-CHEAPSIDE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
+	PRINTI	"This is a ramshackle part of town, with dark alleys leading off the main street, which continues east and west. Pinchin Lane leads off to the south."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-BANK-OF-ENGLAND,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CND1
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL7
+	EQUAL?	GL-PLACE-CUR,RM-THREADNEEDLE-ST \FALSE
+	ICALL2	RT-DO-WALK,P?NORTH
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BANK-OF-ENGLAND \?CCL13
+	ICALL2	RT-DO-WALK,P?SOUTH
+	RTRUE	
+?CCL13:	EQUAL?	GL-PLACE-CUR,RM-BANK-VAULT \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CND1:	FSET	LG-BANK-VAULT-DOOR,FL-SEEN
+	FSET	TH-DIAL,FL-SEEN
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
+	PRINTI	"The bank has the eerie silence that normally crowded places have when no one is there. The door to the vault is set into the west wall."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-BANK-VAULT,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK \?CCL3
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL6
+	EQUAL?	GL-PLACE-CUR,RM-BANK-OF-ENGLAND \?CCL9
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL12
+	ICALL2	RT-AC-RM-BANK-VAULT,K-M-DESC-3
+	ICALL2	RT-DESCRIBE-PLACE-CONTENTS,RM-BANK-VAULT
+	RTRUE	
+?CCL12:	PRINTI	"It's a huge, reinforced-steel door that's set firmly into the wall."
+	CRLF	
+	CRLF	
+	PRINTR	"In the middle of the door you see a big shiny dial."
+?CCL9:	ICALL2	RT-AC-RM-BANK-VAULT,K-M-DESC-3
+	ICALL2	RT-DESCRIBE-PLACE-CONTENTS,RM-BANK-VAULT
+	RTRUE	
+?CCL6:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL18
+	EQUAL?	GL-PLACE-CUR,RM-BANK-OF-ENGLAND \FALSE
+	ICALL2	RT-DO-WALK,P?WEST
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSA,V?EXIT \?CCL22
+	EQUAL?	GL-PLACE-CUR,RM-BANK-VAULT \FALSE
+	ICALL2	RT-DO-WALK,P?EAST
+	RTRUE	
+?CCL22:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL26
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL29
+	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	PRINTI	"row upon row of "
+	ICALL2	DPRINT,TH-BOXES
+	PRINTR	"."
+?CCL29:	ICALL2	RT-CTHEO-PRINT,LG-BANK-VAULT-DOOR
+	PRINTR	" is closed."
+?CCL26:	EQUAL?	GL-PRSA,V?UNLOCK \?CCL31
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL34
+	ICALL2	RT-CTHEO-PRINT,LG-BANK-VAULT-DOOR
+	PRINTR	" is already opened."
+?CCL34:	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+?CCL31:	EQUAL?	GL-PRSA,V?OPEN \?CCL36
+	FSET?	LG-BANK-VAULT-DOOR,FL-OPENED \?CCL39
+	PRINTR	"The vault door is already open."
+?CCL39:	FSET?	TH-DIAL,FL-LOCKED \?CCL41
+	PRINTR	"The vault door is locked."
+?CCL41:	FSET	LG-BANK-VAULT-DOOR,FL-OPENED
+	PRINTR	"The vault door swings open."
+?CCL36:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-BOXES,FL-SEEN
+	FSET	TH-BOX-LOCK,FL-SEEN
+	FSET	TH-SAFETY-DEPOSIT-BOX,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL46
+	PRINTI	"Upon entering, you"
+	JUMP	?CND44
+?CCL46:	PRINTI	"You"
+?CND44:	PRINTI	" see rows and rows of safety deposit boxes."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-KING-WILLIAM-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"King William Street runs northwest to southeast, from Threadneedle Street to Monument."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-MONUMENT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
+	PRINTI	"The intersection is dominated by the Monument, a huge obelisk that commemorates the Great Fire of London. On the side of the monument is a plaque."
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTR	"It's a huge obelisk designed by Christopher Wren that towers 202 feet in the air."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?ENTER \?CCL9
+	EQUAL?	GL-PLACE-CUR,RM-MONUMENT \FALSE
+	PRINTI	"You can't go inside "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL9:	EQUAL?	GL-PRSA,V?EXIT \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-MONUMENT \FALSE
+	PRINTI	"You're not in "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-RM-LOWER-THAMES-ST,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	PRINTI	"You enter"
+	JUMP	?CND1
+?CCL5:	PRINTI	"You are in"
+?CND1:	PRINTI	" Lower Thames Street. Roads lead off in many directions, some more savory than others. There is a set of particularly slovenly stairs leading down to an alley that runs alongside the river."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-TOWER-ENTRANCE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
+	PRINTI	"You are"
+	ICALL1	RT-IN-VEHICLE-MSG
+	PRINTI	"outside the entrance to the Tower of London. Next to the entrance there is a sign."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-SOUTH-AISLE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-POPE-TOMB,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
+	PRINTI	"You enter"
+	JUMP	?CND5
+?CCL7:	PRINTI	"You are in"
+?CND5:	PRINTI	" the South Aisle of the Nave. "
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND8
+	PRINTI	"In the gloom, you bump into one of the tombs. "
+?CND8:	PRINTI	"There is an exit to the southeast and a door set into the south wall."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-JERICHO-PARLOUR,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	EQUAL?	GL-PLACE-PRV,RM-SOUTH-AISLE \?CCL8
+	PRINTI	"From the vastness of the Nave, you pass into"
+	JUMP	?CND6
+?CCL8:	PRINTI	"You leave the Chamber for"
+?CND6:	PRINTI	" the more intimate"
+	JUMP	?CND1
+?CCL5:	PRINTI	"You are in the"
+?CND1:	PRINTI	" Jericho Parlour"
+	EQUAL?	CONTEXT,K-M-DESC-2 \?CCL11
+	EQUAL?	GL-PLACE-PRV,RM-JERUSALEM-CHAMBER \?CCL11
+	PRINTC	46
+	CRLF	
+	JUMP	?CND9
+?CCL11:	PRINTI	", which is the anteroom to the famous Jerusalem Chamber just to the west."
+	CRLF	
+?CND9:	CRLF	
+	PRINTI	"The exit to the Nave is to the north."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-JERUSALEM-CHAMBER,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
+	PRINTI	"You enter"
+	JUMP	?CND3
+?CCL5:	PRINTI	"You are standing in"
+?CND3:	PRINTI	" the Jerusalem Chamber, one of the oldest parts of the Abbey. In contrast to the cold and forbidding stone elsewhere in the Abbey, this room is panelled in oak and cedar. Just inside the entrance you see a small sign."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-NORTH-CLOISTER,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL5
+	FSET	TH-PACKET-OF-PAPER,FL-SEEN
+	FSET	TH-CRAYON,FL-SEEN
+	FSET	TH-RUBBINGS,FL-SEEN
+	PRINTI	"You enter"
+	JUMP	?CND1
+?CCL5:	PRINTI	"You are now in"
+?CND1:	PRINTI	" the North Cloister, which is the brass-rubbing centre of the abbey. On the walls are completed rubbings that others have made."
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL8
+	PRINTR	" Someone has left a pacquet of paper and a rubbing crayon here."
+?CCL8:	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-SOUTH-TRANSEPT,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-DICKENS-TOMB,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
+	PRINTI	"You enter"
+	JUMP	?CND5
+?CCL7:	PRINTI	"You are in"
+?CND5:	PRINTI	" the South "
+	PRINT	K-TRANSEPT-MSG
+	CRLF	
+	CRLF	
+	PRINT	K-SHAFT-OF-LIGHT-MSG
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-NORTH-TRANSEPT,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-PITT-TOMB,FL-SEEN
+	FSET	TH-FIGURES,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
+	PRINTI	"You enter"
+	JUMP	?CND5
+?CCL7:	PRINTI	"You are in"
+?CND5:	PRINTI	" the North "
+	PRINT	K-TRANSEPT-MSG
+	CRLF	
+	CRLF	
+	PRINT	K-SHAFT-OF-LIGHT-MSG
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-POETS-CORNER,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-CHAUCER-TOMB,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
+	PRINTI	"You walk into"
+	JUMP	?CND5
+?CCL7:	PRINTI	"You are in"
+?CND5:	PRINTI	" the hushed, secluded part of the Abbey known as Poets' Corner. The monuments here are dedicated to Britain's literary giants. The oldest of the tombs is that of Geoffrey Chaucer, who died in the year 1400."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-SOUTH-AMBULATORY,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINT	K-AMBULATORY-MSG
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-SANCTUARY,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-ANNE-OF-CLEVES-TOMB,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
+	PRINTI	"You walk into"
+	JUMP	?CND5
+?CCL7:	PRINTI	"You are in"
+?CND5:	PRINTI	" the Sanctuary. This is where the actual Coronation Ceremony takes place whenever a new monarch is crowned. A modest tomb is near the south wall."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-NORTH-AMBULATORY,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINT	K-AMBULATORY-MSG
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-CONFESSOR-CHAPEL,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-EDWARD-TOMB,FL-SEEN
+	FSET	TH-HENRY-V-TOMB,FL-SEEN
+?CND1:	PRINTI	"The Confessor Chapel is dominated by the tomb of the founder of the Abbey, although there are several other tombs here. It is this chapel that first gave Westminster the name ""Burial place of kings."""
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-SOUTH-CHAPEL-AISLE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-MARY-QUEEN-OF-SCOTS-TOMB,FL-SEEN
+?CND1:	PRINTI	"The South Chapel Aisle is the final resting place of Mary, Queen of Scots."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-NORTH-CHAPEL-AISLE,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-ELIZABETH-TOMB,FL-SEEN
+?CND1:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL7
+	PRINTI	"You enter"
+	JUMP	?CND5
+?CCL7:	PRINTI	"You are in"
+?CND5:	PRINTI	" the North Chapel Aisle. There is a very large tomb here."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-INNOCENTS-CORNER,CONTEXT
+	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND1
+	FSET	TH-LITTLE-PRINCES-TOMB,FL-SEEN
+?CND1:	PRINTI	"This is Innocents' corner, the traditional burial site of royalty who die in infancy. There are several tombs here."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-RM-DRAWBRIDGE,CONTEXT
+	EQUAL?	CONTEXT,K-M-ENTERED \?CCL3
+	SET	'ALLOW-IN-TOWER,FALSE-VALUE
+	RFALSE	
+?CCL3:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL7
+	PRINTI	"So far, so good. No one has challenged your right to be here. Maybe the Tower has been left unguarded."
+	JUMP	?CND1
+?CCL7:	EQUAL?	CONTEXT,K-M-DESC-2 \?CCL9
+	EQUAL?	GL-PLACE-PRV,RM-TOWER-ENTRANCE \?CCL12
+	PRINTI	"You walk back up onto the drawbridge."
+	JUMP	?CND1
+?CCL12:	PRINTI	"Stung by the guard's rejection, you retrace your steps to the drawbridge."
+	JUMP	?CND1
+?CCL9:	PRINTI	"You are standing on the drawbridge to the Tower of London."
+?CND1:	CRLF	
+	CRLF	
+	PRINTI	"To the east you see the Byward Tower, and to the west is the Tower Entrance."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-BYWARD-TOWER,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND5
+	FSET	CH-TOWER-GUARD,FL-SEEN
+	FSET	LG-RAVENS,FL-SEEN
+	PRINTI	"Your luck runs out. "
+?CND5:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND9
+	PRINTI	"A costumed Yeoman of the Guard steps forward to challenge you."
+	CRLF	
+?CND9:	EQUAL?	CONTEXT,K-M-DESC-3 \?CND11
+	PRINTI	"You are standing in the Byward Tower, which was built by Edward I in the thirteenth century to control access to the fortress. A burly Beefeater stands in your path."
+	CRLF	
+?CND11:	CRLF	
+	PRINTI	"A few of the Tower's famous ravens are perched here, watching your every move."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-OUTER-WARD,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"This is the Outer Ward. From here you can go north, south, or west."
+	CRLF	
+	CRLF	
+	PRINTI	"A few of the Tower's famous ravens are perched here, watching your every move."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-BLOODY-TOWER,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
+	PRINTI	"You enter"
+	JUMP	?CND5
+?CCL9:	PRINTI	"You are in"
+?CND5:	PRINTI	" the Bloody Tower where, allegedly, the ""Little Princes in the Tower"" met their death. One exit leads north. The other leads south."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-WAKEFIELD-TOWER,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	GL-PLACE-PRV,RM-TOWER-GREEN \?CCL9
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND5
+	PRINTI	"You leave the"
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,0,1,3 \?CND12
+	PRINTI	" gloom of the"
+?CND12:	PRINTI	" Tower Green for the gloom of the Wakefield Tower."
+	JUMP	?CND5
+?CCL9:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND5
+	PRINTI	"You descend the stairs into the ground floor of the Wakefield Tower."
+?CND5:	EQUAL?	CONTEXT,K-M-DESC-3 \?CND16
+	PRINTI	"You see only the thick stone walls of the Wakefield Tower."
+?CND16:	CRLF	
+	CRLF	
+	PRINTI	"There is a dark stone staircase leading up, and the only other exit is to the northwest."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-JEWEL-ROOM,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
+	PRINTI	"The stairs take you up to"
+	JUMP	?CND5
+?CCL9:	PRINTI	"You are in"
+?CND5:	PRINTI	" the Jewel Room of the Tower of London. The case that once held the Regalia is twisted and smashed"
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CCL12
+	FSET	TH-MACE,FL-SEEN
+	FSET	TH-JEWEL-CASE,FL-SEEN
+	PRINTR	", and the weapon that the thief used is lying on the ground nearby."
+?CCL12:	PRINTC	46
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-DUNGEON,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
+	PRINTI	"You inch your way down the dark stairs and arrive"
+	JUMP	?CND5
+?CCL9:	PRINTI	"You are"
+?CND5:	PRINTI	" in the oldest part of the Tower, the Dungeon."
+	CRLF	
+	EQUAL?	CONTEXT,K-M-DESC-1 \FALSE
+	FSET	TH-SUIT-OF-ARMOUR,FL-SEEN
+	ICALL	SOUNDS,S-ARMOR,S-INIT
+	CRLF	
+	PRINTR	"The room has been converted into museum space, and prominently featured is a man-size suit of armour."
+
+
+	.FUNCT	RT-DF-RM-TORTURE-ROOM,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
+	PRINTI	"You enter"
+	JUMP	?CND7
+?CCL9:	PRINTI	"You are in"
+?CND7:	PRINTI	" the torture room below the Bowyer Tower. Around the walls are hung various instruments of torture. The stairs leading up are the only way out."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-WHITE-TOWER,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"This is the White Tower, which was started by William the Conqueror in 1078. Exits lead out and down."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-TOWER-GREEN,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	PRINTI	"You are on Tower Green, which is at the centre of the Tower of London. Entrances to various towers lie to the northeast, east, southeast, and south. A few ravens are strolling around the green, eyeing you with interest."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-BOWYER-TOWER,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND5
+	FSET	TH-BUNG,FL-SEEN
+	FSET	TH-BUTT-OF-MALMSEY,FL-SEEN
+	FSET	TH-MALMSEY,FL-SEEN
+?CND5:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	PRINTI	"You enter"
+	JUMP	?CND9
+?CCL11:	PRINTI	"You are in"
+?CND9:	PRINTI	" the Bowyer Tower. It was in this room that the Duke of Clarence was drowned in a Butt of Malmsey in 1478. The keg still stands over in the corner."
+	CRLF	
+	CRLF	
+	PRINTI	"Exits lead out and down."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-INSIDE-TRAITORS-GATE,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1 \?CND5
+	FSET	TH-PORTCULLIS-CHAIN,FL-SEEN
+?CND5:	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
+	EQUAL?	GL-PLACE-PRV,RM-OUTSIDE-TRAITORS-GATE \?CCL14
+	PRINTI	"You pass under the portcullis"
+	JUMP	?CND12
+?CCL14:	PRINTI	"You walk south from the Outer Ward"
+?CND12:	PRINTI	" and find yourself"
+	JUMP	?CND9
+?CCL11:	PRINTI	"You are"
+?CND9:	PRINTI	" just north of Traitors Gate. The portcullis is "
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \?CCL17
+	PRINTI	"up"
+	JUMP	?CND15
+?CCL17:	PRINTI	"down"
+?CND15:	PRINTI	". From the wall near the portcullis hangs a chain, and perched on top of the wall are some ravens."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-DF-RM-OUTSIDE-TRAITORS-GATE,CONTEXT
+	EQUAL?	CONTEXT,K-M-EXIT \?CND1
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND1
+	ICALL2	SOUNDS,S-ARMOR
+?CND1:	CALL2	RT-DESCFCN-CONTEXT,CONTEXT
+	ZERO?	STACK /FALSE
+	EQUAL?	CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
+	EQUAL?	GL-PLACE-PRV,RM-INSIDE-TRAITORS-GATE \?CCL12
+	PRINTI	"You pass under the portcullis"
+	JUMP	?CND10
+?CCL12:	PRINTI	"You leave the boat"
+?CND10:	PRINTI	" and find yourself"
+	JUMP	?CND5
+?CCL9:	PRINTI	"You are"
+?CND5:	PRINTI	" just south of Traitors Gate, through which condemned prisoners were brought in to the Tower prior to being executed. The massive iron portcullis is "
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \?CCL15
+	PRINTI	"up"
+	JUMP	?CND13
+?CCL15:	PRINTI	"down"
+?CND13:	PRINTC	46
+	CRLF	
+	RFALSE	
+
+	.ENDI
diff --git a/places3.zil b/places3.zil
new file mode 100644
index 0000000..80caf21
--- /dev/null
+++ b/places3.zil
@@ -0,0 +1,1733 @@
+; "context value meanings for descfcn (so far):"
+; "  1 = The desc upon entering when the room is not touched (first time)"
+; "  2 = The desc upon entering when the room is touched & the desc-level is verbose"
+; "  3 = The desc of the room when the player types LOOK"
+; "return value meanings for descfcn routines (so far):"
+; "  RTRUE  means RT-DESCRIBE-PLACE-CONTENTS will NOT be executed"
+; "  RFALSE means RT-DESCRIBE-PLACE-CONTENTS will     be executed"
+
+; "TIME-OF-DAY-NUMBERS: 0=DARK 1=SUNRISE 2=DAY 3=SUNSET"
+
+<ROUTINE RT-AC-RM-221B-BAKER-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-221B-BAKER-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (T
+		      ; "former shadow object code"
+		      <COND (<MC-VERB? ENTER>
+			     <COND (<MC-HERE? ,RM-ENTRY-HALL>
+				    <RT-DO-WALK ,P?EAST>
+				    <RTRUE>)>)>
+		      <RFALSE>)>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-ENTRY-HALL>
+		      <TELL "You emerge from the house into">)
+		     (T
+		      <TELL "You">
+		      <RT-DRIVE-WALK-MSG?>
+		      <TELL "into">)>
+	       <TELL " Baker Street." CR CR>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0 1 3>
+		      <TELL "in the spill of a gas streetlight ">)>
+	       <TELL "outside Holmes's house. The street ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "disappears into the fog">)
+		     (T
+		      <TELL "continues">)>
+	       <TELL " to the north and south. The door to the house is to
+the west." CR>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,LG-BAKER-ST-DOOR ,FL-SEEN>
+	       <MC-MAKE ,CH-PLAYER ,FL-SEEN>
+	       <TELL CR
+"You have come in response to an urgent summons from your old landlady,
+Mrs Hudson. As the fog swirls around you, you huddle into your coat and
+shiver in the predawn chill." CR>
+	       <RTRUE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-3 ,K-M-DESC-2>
+	       <COND (<IN? ,CH-HOLMES ,RM-221B-BAKER-ST>
+		      <COND (<MC-F? ,GL-PUPPY>
+			     <TELL CR
+CTHE ,CH-HOLMES " says, \"Ah, there you are Watson. While you were inside
+I gave our little problem some thought. Obviously the person who stole the
+Crown Jewels wanted the authorities to turn to me for help, and it is equally
+obvious that the thief has laid down a trail for me to follow, in hopes of
+somehow entrapping me." CR CR
+
+"\"So let's play his game, Doctor. But let's play it by our rules. The thief
+will have tried to anticipate the sequence of my actions, and I'm sure he has
+laid his trap accordingly. But if ">
+			     <HLIGHT ,K-H-ITL>
+			     <TELL "you">
+			     <HLIGHT ,K-H-NRM>
+			     <TELL " were to guide the course of our
+investigations, he will certainly be thrown off the scent." CR CR
+"\"Therefore, let us take surprise onto our side and rely on your instincts
+as the man of action I know you to be - despite your frequent modest
+assertions to the contrary.\" He steps to one side and says, \"Lead on, good
+Doctor. I will follow.\" Holmes gestures for you to lead the way." CR>
+			     <SETG GL-PUPPY ,CH-HOLMES>
+			     <SETG GL-PUPPY-MSG? <>>
+			     <RTRUE>)
+			    (T
+			     <RFALSE>)>)
+		     (T
+		      <RFALSE>)>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-ENTRY-HALL ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-ENTRY-HALL" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-221B-BAKER-ST>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-PARLOUR>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-VESTIBULE>
+			     <RT-DO-WALK ,P?DOWN>
+			     <RTRUE>)
+			    (T
+			     <TELL "You'll have to be more explicit." CR>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-HUDSON ,FL-SEEN>
+	       ;<MC-MAKE ,TH-GAS-LIGHT ,FL-SEEN>
+	       ;<MC-MAKE ,TH-HUDSON-BODY ,FL-SEEN>
+	       <MC-MAKE ,RM-ENTRY-HALL ,FL-TOUCHED>
+	       <TELL CR "You step inside and Mrs Hudson closes the door behind
+you. The entry hall is just as you remember it - small, underheated, and lit
+by a feeble gas light. " ,K-WELL-WORN-MSG>
+	       <RTRUE>) 
+	      (<EQUAL? .CONTEXT ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-221B-BAKER-ST>
+		      <TELL
+"You enter the house and pause in the entry hall. " ,K-WELL-WORN-MSG CR>)
+		     (<EQUAL? ,GL-PLACE-PRV ,RM-VESTIBULE>
+		      <TELL
+"You descend the stairs into the entry hall. The parlour door is to
+the north. ">
+		      <RT-OPEN-CLOSED-MSG ,LG-BAKER-ST-DOOR>
+		      <CRLF>)
+		     (T
+		      <TELL "You walk out into the entry hall. ">
+		      <RT-OPEN-CLOSED-MSG ,LG-BAKER-ST-DOOR>
+		      <CRLF>)>
+	       <RFALSE>)
+	      (<==? .CONTEXT ,K-M-DESC-3>
+	       <TELL ,K-WELL-WORN-MSG " ">
+	       <RT-OPEN-CLOSED-MSG ,LG-BAKER-ST-DOOR>
+	       <CRLF>
+	       <RFALSE>)
+	      (<==? <GETP ,RM-ENTRY-HALL ,P?OBJ-NOUN> ,W?HOUSE>
+	       <RETURN <RT-AC-LG-HOLMES-HOUSE>>)>>
+
+<ROUTINE RT-AC-RM-PARLOUR ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-PARLOUR" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-ENTRY-HALL>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-PARLOUR>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-MATCHBOOK ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You walk into">)
+	      (<==? .CONTEXT ,K-M-DESC-3>
+	       <TELL "You are in">)>
+	<TELL " a dreary, late Victorian Era parlour." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-VESTIBULE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-VESTIBULE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-HOLMES-STUDY>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-ENTRY-HALL>
+			     <RT-DO-WALK ,P?UP>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-ENTRY-HALL>
+		      <TELL "You climb the stairs">)
+		     (T
+		      <TELL "You leave the study">)>
+	       <TELL " and pause outside the door">
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+		      <MC-MAKE ,LG-HOLMES-STUDY-DOOR ,FL-SEEN>
+		      <TELL " to Holmes's study, nervous about what you might
+find inside. ">)
+		     (T
+		      <TELL ". ">)>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "You are on a landing at the top of the stairs.">)>
+	<TELL CR CR "Holmes's study is to the north." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-HOLMES-STUDY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-HOLMES-STUDY" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-VESTIBULE>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-HOLMES-BEDROOM>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <TELL
+"You step back through time to your bachelor days, when you shared
+these cluttered digs with the world's only consulting detective. Despite
+the mess, you can see that the room is unchanged. The fireplace to the
+north has a pile of letters transfixed to its mantelpiece by a jackknife.
+Next to them lies Holmes's six-shot revolver, the tobacco slipper,
+and Holmes's favorite pipe. The violin has been carelessly tossed onto a
+stack of obviously unread newspapers." CR CR>
+	       <RT-AC-CH-HOLMES ,K-M-DESCFCN>
+	       <CRLF>
+	       <MC-MAKE ,TH-MANTELPIECE ,FL-SEEN>
+	       <MC-MAKE ,TH-VIOLIN ,FL-SEEN>
+	       <MC-MAKE ,TH-NEWSPAPER ,FL-SEEN>
+	       <MC-MAKE ,TH-SYRINGE ,FL-SEEN>
+	       <MC-MAKE ,TH-PHIAL ,FL-SEEN>
+	       <MC-MAKE ,TH-MAIL ,FL-SEEN>
+	       ;<MC-MAKE ,TH-FIREPLACE ,FL-SEEN>
+	       <MC-MAKE ,TH-GUN ,FL-SEEN>
+	       <MC-MAKE ,TH-KNIFE ,FL-SEEN>
+	       <MC-MAKE ,TH-PERSIAN-SLIPPER ,FL-SEEN>
+	       <MC-MAKE ,TH-PIPE ,FL-SEEN>
+	       <MC-MAKE ,TH-LIQUID ,FL-SEEN>
+	       <MC-MAKE ,TH-MOROCCO-CASE ,FL-SEEN>
+	       <MC-MAKE ,TH-SOFA ,FL-SEEN>
+	       <MC-MAKE ,CH-HOLMES ,FL-SEEN>
+	       ;<MC-MAKE ,TH-HOLMES-BODY ,FL-SEEN>
+	       <MC-MAKE ,LG-HOLMES-BEDROOM-DOOR ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-2>
+	       <TELL "You return to Holmes's study, which">)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-3>
+	       <TELL "The study">)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL " is in its usual disarray." CR>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <CRLF>
+		      <RT-AC-CH-HOLMES ,K-M-DESCFCN>)>
+	       <COND (<IN? ,CH-PRIME-MINISTER ,RM-HOLMES-STUDY>
+		      <CRLF>
+		      <COND (<MC-ISNOT? ,CH-PRIME-MINISTER ,FL-SEEN>
+			     <MC-MAKE ,CH-PRIME-MINISTER ,FL-SEEN>
+			     <RT-THIS-IS-IT ,CH-PRIME-MINISTER>
+			     <TELL
+"You see a distinguished-looking visitor sitting in the armchair. ">)
+			    (T
+			     <TELL "The visitor fidgets nervously in his chair. ">)>)
+		     (T
+		      <CRLF>)>)>
+	<TELL CTHE ,LG-HOLMES-BEDROOM-DOOR>
+	<TELL " to the west is ">
+	<COND (<MC-IS? ,LG-HOLMES-BEDROOM-DOOR ,FL-OPENED>
+	       <TELL "open">)
+	      (T
+	       <TELL "closed">)>
+	<TELL ". The only other exit is the door to the south." CR>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <RTRUE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-HOLMES-BEDROOM ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-HOLMES-BEDROOM" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-HOLMES-STUDY>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)>)>
+	       <RFALSE>)>
+	<TELL
+"This is a sparsely furnished room, whose walls are adorned
+only by scores of pictures of famous criminals. On a disorderly workbench
+in the corner, a jumble of laboratory equipment suggests that Holmes is in
+the middle of one of his chemical experiments. ">
+	<COND (<IN? ,TH-ETHERIUM-AMPOULE ,TH-WORKBENCH>
+	       <TELL
+"Set off to one side is a single ampoule with a neatly lettered label
+affixed to it. ">)>
+	<TELL "The room's only exit is to the east." CR>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-BED ,FL-SEEN>
+	       <MC-MAKE ,TH-BEDSIDE-TABLE ,FL-SEEN>
+	       <MC-MAKE ,TH-ETHERIUM-AMPOULE ,FL-SEEN>
+	       <MC-MAKE ,TH-LAB-EQUIPMENT ,FL-SEEN>
+	       <MC-MAKE ,TH-WORKBENCH ,FL-SEEN>
+	       <MC-MAKE ,TH-LAMP ,FL-SEEN>
+	       <MC-MAKE ,TH-MAGNIFYING-GLASS ,FL-SEEN>
+	       ;<MC-MAKE ,TH-PICTURES ,FL-SEEN>
+	       <TELL CR "Next to the bed there is a table, on which you see a
+lamp and Holmes's favorite magnifying glass. " CR>
+	       <RTRUE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-2 ,K-M-DESC-3>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-YORK-PLACE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-YORK-PLACE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "Through the mist you see">)
+		     (T
+		      <TELL "This is">)>
+	       <TELL " a quiet, residential street, lined with
+undistinguished, four storey Georgian houses. To the south, York Place
+opens up into Baker Street, and Marylebone Road comes in from the east." CR>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL CR "The street isn't as quiet as usual, due to the surging
+crowds of tourists." CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-MARYLEBONE-RD ("OPT" (CONTEXT <>) "AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-MARYLEBONE-RD" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-MADAME-TUSSAUDS>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)>)>
+	       <RFALSE>)>
+	<SET WHO <RT-WHO-SAYS?>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-MADAME-TUSSAUDS>
+		      <TELL "You go out the door and are now">)
+		     (T
+		      <TELL "You find yourself">)>)
+	      (T
+	       <TELL "You are">)>
+	<RT-IN-VEHICLE-MSG>
+	<TELL "in front of Madame Tussaud's famous wax
+museum. From here the street continues east and west."  CR CR>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "The museum is closed for renovations, and there is a
+guard and a dog patrolling the street outside the entrance, which is just
+to the north of you. The guard ">
+	       <COND (<MC-PROB 33>
+		      <TELL "lights">)
+		     (<MC-PROB 50>
+		      <TELL "puffs on">)
+		     (T
+		      <TELL "puts out">)>
+	       <TELL " a cigarette, tips his hat, and says, \"">
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-MADAME-TUSSAUDS>
+		      <TELL "Goodbye">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "Hello">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 1>
+		      <TELL "Top of the morning to you">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 2>
+		      <TELL "Good day">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 3>
+		      <TELL "Good evening">)>
+	       <COND (<EQUAL? .WHO ,CH-HOLMES>
+		      <TELL ", Mr Holmes">)
+		     (T
+		      <TELL ", Doctor Watson">)>
+	       <TELL ".\"" CR>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-3>
+	       <TELL "The guard and the dog are still here, and they show
+no signs of leaving." CR>)>
+	<COND (<NOT <OR <IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+			<IN? ,CH-PLAYER ,TH-GROWLER-CAB>>>
+	       <IFSOUND <SOUNDS ,S-GROWL>>
+	       <TELL CR "The dog growls at you." CR>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-TUSSAUDS-GUARD ,FL-SEEN>
+	       <MC-MAKE ,CH-MATCH-SNIFFING-DOG ,FL-SEEN>
+	       <MC-MAKE ,TH-CIGARETTE ,FL-SEEN>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-CHAMBER-OF-HORRORS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-CHAMBER-OF-HORRORS" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-MADAME-TUSSAUDS>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-CHAMBER-OF-HORRORS>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-CHARLES-STATUE ,FL-SEEN>
+	       <MC-MAKE ,TH-THOMAS-STATUE ,FL-SEEN>
+	       <MC-MAKE ,TH-FAWKES-STATUE ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " the Chamber of Horrors. Scattered around the room are wax
+groupings of some of the most gruesome scenes from English history. The
+only exit is to the east." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-TOTTENHAM-COURT-RD ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-TOTTENHAM-COURT-RD" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,LG-SHOPS ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "This part of London is known for its furniture dealers,
+but all the shops seem to be closed for the Jubilee." CR CR
+
+"Marylebone Road goes off to the west here, and Tottenham Court
+Road continues to the south." CR>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL CR "Throngs of shoppers peer in the windows of the
+closed shops." CR>)
+	      (T
+	       <CRLF>
+	       <RT-FOG-MSG>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-ST-GILES-CIRCUS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-ST-GILES-CIRCUS" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL
+"in St Giles Circus. Roads lead off in many directions." CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-OXFORD-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-OXFORD-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL "Oxford Street is London's busiest shopping thoroughfare">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL ", although at this hour the street is deserted">)>
+	<TELL ". Fashionable emporiums line the street on either side, offering
+goods from all over the British Empire. Unfortunately, they all seem
+to be closed for the Jubilee." CR CR>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL "Hoards of frustrated tourists mill about, peering in the
+windows of the closed shops." CR CR>)>
+	<TELL "The street continues to the east and west." CR>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,LG-SHOPS ,FL-SEEN>
+	       <COND (<AND <==? <RT-META-LOC ,TH-GROWLER-CAB> ,RM-OXFORD-ST>
+			   <NOT <IN? ,CH-PLAYER ,TH-GROWLER-CAB>>>
+		      <MC-MAKE ,TH-GROWLER-CAB ,FL-SEEN>
+		      <TELL CR "At a cabstand along the curb you see a growler cab." CR>)>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-ORCHARD-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-ORCHARD-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "Orchard Street is the southern extension of Baker Street.
+From here you can see Oxford Street off to the east,
+Baker Street to the north, and Audley Street ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "fading into the mists">)
+		     (T
+		      <TELL "continuing">)>
+	       <TELL " to the south." CR CR>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2>
+	       <TELL "Crowds of tourists stream eastward, ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1>
+		      <TELL "looking forward to spending the day in the shops
+along Oxford Street." CR>)
+		     (T
+		      <TELL "intent on finding some bargains in the shops on
+Oxford Street." CR>)>)
+	      (<EQUAL? <RT-TIME-OF-DAY> 3>
+	       <TELL "Frustrated tourists stream westward, angered by the
+closed shops in Oxford Street." CR>)
+	      (T
+	       <RT-FOG-MSG>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-AUDLEY-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-AUDLEY-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)>
+	<TELL "This is a pleasant street that winds through Mayfair,
+a fashionable district which takes its name from an ancient fair
+held there in May of each year." CR CR
+
+"To the south is Hyde Park Corner, and to the north is Orchard
+Street." CR>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <CRLF>
+	       <RT-FOG-MSG>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-HYDE-PARK-CORNER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-HYDE-PARK-CORNER" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-KENSINGTON-GARDENS>
+			     <RT-DO-WALK ,P?SE>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      ;(<EQUAL? .CONTEXT ,K-M-DESC-1>
+		<MC-MAKE ,TH-ARCH ,FL-SEEN>
+		<MC-MAKE ,TH-CHARIOT ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "Hyde Park Corner is dominated by the Wellington Arch, a
+soaring monument to the \"Iron Duke,\" who defeated Napoleon at the Battle
+of Waterloo." CR CR>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL "Huge crowds of tourists gape up at the Arch." CR CR>)
+	      (T
+	       <TELL "The arch is enshrouded in fog." CR CR>)>
+	<TELL "Roads lead off in many directions." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-KENSINGTON-GARDENS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-KENSINGTON-GARDENS" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)>
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-HYDE-PARK-CORNER>
+			     <RT-DO-WALK ,P?NW>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-NANNIES ,FL-SEEN>
+	       <MC-MAKE ,TH-PRAMS ,FL-SEEN>
+	       <MC-MAKE ,TH-PARK-FLOWERS ,FL-SEEN>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL "A tide of perambulators pushed by well-starched nannies
+surges along the crowded walk. Everywhere you look there are rows and rows
+of beautiful flowers." CR>)
+	      (T
+	       <TELL "The flower gardens are deserted." CR>
+	       <CRLF>
+	       <RT-FOG-MSG>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-TRAFALGAR-SQUARE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-TRAFALGAR-SQUARE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-DIOGENES-CLUB>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-PIGEONS ,FL-SEEN>
+	       <MC-MAKE ,TH-NELSON-COLUMN ,FL-SEEN>
+	       <MC-MAKE ,TH-NELSON-EYE ,FL-SEEN>
+	       <MC-MAKE ,TH-NELSON-STATUE ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "Pigeons, pigeons, everywhere. You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "in one of the great open spaces of London, named for
+Nelson's naval victory over Napoleon in 1805. Streets come in and go
+out at all angles, and everywhere you look there are ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+		      <TELL "people feeding ">)>
+	       <TELL "pigeons." CR CR
+
+"The square is dominated by Nelson's Column, a 167 foot tall
+Corinthian column with" ,K-NELSON-STATUE-MSG CR CR
+
+"The entrance to the Diogenes Club is to the west." CR>)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <CRLF>
+	       <RT-FOG-MSG>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-DIOGENES-CLUB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-DIOGENES-CLUB" .CONTEXT>>
+	<IFSOUND <COND (<==? .CONTEXT ,K-M-ENTERED>
+			<SOUNDS ,S-SNORE ,S-START>)
+		       (<==? .CONTEXT ,K-M-EXIT>
+			<SOUNDS ,S-SNORE ,S-STOP>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-TRAFALGAR-SQUARE>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL
+"You enter the hushed atmosphere of the Diogenes Club. The furnishings are
+aging and opulent. The members are aging and asleep. The only exit is
+to the east." CR CR>
+	       <COND (<MC-ISNOT? ,CH-BUTLER ,FL-ASLEEP>
+		      <TELL 
+"An ancient butler totters forward to greet you and says in a barely audible
+whisper, \"May I be of some assistance?\"" CR>)
+		     (T
+		      <TELL ,K-EVERYONE-OUT-MSG CR>)>)
+	      (T
+	       <TELL "You are in the Diogenes Club. ">
+	       <COND (<MC-ISNOT? ,CH-BUTLER ,FL-ASLEEP>
+		      <TELL "The butler is here, waiting to serve you.">)
+		     (T
+		      <TELL ,K-EVERYONE-OUT-MSG>)>
+	       <TELL CR>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-BUTLER ,FL-SEEN>
+	       <MC-MAKE ,CH-MEMBERS ,FL-SEEN>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-GREAT-RUSSELL-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-GREAT-RUSSELL-ST" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "Great Russell Street is the home of the British Museum,
+the entrance of which is to the north. There is a sign next to the door." CR CR
+
+"To the southwest you can see St Giles Circus." CR>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (T
+	       <COND (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-BRITISH-MUSEUM>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)>)>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-BRITISH-MUSEUM ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BRITISH-MUSEUM" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-GREAT-RUSSELL-ST>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-MANUSCRIPT-ROOM>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-GREAT-RUSSELL-ST>
+		      <TELL "You walk up the grand staircase and into">)
+		     (T
+		      <TELL "You walk back down the long corridor and return to">)>)
+	      (T
+	       <TELL "You are standing in">)>
+	<TELL " the entrance hall of the museum. All the corridors
+leading to the exhibit halls are packed with tourists, and there is a
+steady stream of people going in and out of the street entrance to the
+south. Only the corridor to the east seems to be of no interest to
+the sightseers." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-GROSVENOR-PLACE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-GROSVENOR-PLACE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL
+"This is a pleasant but out-of-the-way street that runs northwest to
+southeast. Few tourists ever visit here. ">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 3>
+	       <TELL "Despite the ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1>
+		      <TELL "early">)
+		     (T
+		      <TELL "late">)>
+	       <TELL " hour, some">)
+	      (<EQUAL? <RT-TIME-OF-DAY> 2>
+	       <TELL "Some">)>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL " people are standing on the corner." CR>)
+	      (T
+	       <RT-FOG-MSG>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-VICTORIA-SQUARE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-VICTORIA-SQUARE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You come upon">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " Victoria Square. Streets go off in many directions." CR> 
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-BROAD-SANCTUARY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BROAD-SANCTUARY" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <MC-MAKE ,LG-WESTMINSTER-DOOR ,FL-SEEN>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+		      <TELL "in the midst of a crowd of tourists ">)>
+	       <TELL "in front of the west door of Westminster
+Abbey. The towers of the Abbey">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL " loom in the fog">)
+		     (T
+		      <TELL " soar high">)>
+	       <TELL " above you, and you marvel at this perfect example of
+Gothic architecture, as generations have done before you." CR CR>
+	       <RT-OPEN-CLOSED-MSG ,LG-WESTMINSTER-DOOR>
+	       <CRLF>
+	       <CRLF>
+	       <TELL "On the wall next to the door is a small, discreet sign." CR>
+	       <RFALSE>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-NAVE>
+		      <RT-DO-WALK ,P?WEST>)>)>>
+
+<ROUTINE RT-AC-RM-PARLIAMENT-SQUARE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-PARLIAMENT-SQUARE" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "This is an attractive square at the foot of Whitehall. ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+		      <TELL "Large crowds mill around">)
+		     (T
+		      <TELL "Through the mist you see">)>
+	       <TELL " the entrance to the Houses of Parliament to the
+southeast. To the west is Birdcage Walk. Broad Sanctuary goes off to
+the southwest, and Whitehall ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "disappears into the gloom">)
+		     (T
+		      <TELL "is">)>
+	       <TELL " to the north." CR>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-PARLIAMENT>
+		      <RT-DO-WALK ,P?NW>)>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-PARLIAMENT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-PARLIAMENT" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-PARLIAMENT-SQUARE>
+			     <RT-DO-WALK ,P?SE>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-PARLIAMENT-SQUARE>
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+			     <TELL "You enter">)
+			    (T
+			     <TELL "You push your way into">)>)
+		     (T
+		      <TELL "You descend the stairs into">)>)
+	      (T
+	       <TELL "You are standing in">)>
+	<TELL " the ">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <TELL "jam-packed ">)>
+	<TELL "entrance hall of the House of Commons." CR CR>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1 3>
+		      <TELL "Despite the ">
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 1>
+			     <TELL "early">)
+			    (T
+			     <TELL "late">)>
+		      <TELL " hour, there">)
+		     (T
+		      <TELL "There">)>
+	       <TELL " are hundreds of people lined up to get in. But">)
+	      (T
+	       <TELL "The Chamber is closed, but">)>
+	<TELL " off to one side you see a flight of old stone steps leading
+up into the darkness." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-BUCKINGHAM-PALACE-RD ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BUCKINGHAM-PALACE-RD" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL
+"Buckingham Palace Road connects Queens Gardens to the northeast
+with Victoria Square to the southwest." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-QUEENS-GARDENS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-QUEENS-GARDENS" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-PALACE-GUARD ,FL-SEEN>)>
+	<TELL "You are">
+	<RT-IN-VEHICLE-MSG>
+	<TELL "outside the gate to Buckingham Palace." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-BIRDCAGE-WALK ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BIRDCAGE-WALK" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "As you enter Birdcage Walk, your attention is diverted
+to">)
+	      (T
+	       <TELL "You see">)>
+	<TELL " a man who has set up a small souvenir stand near where the
+parade will pass on Tuesday. ">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL "Oblivious to the fact that there are no crowds here to
+buy his wares">)
+	      (T
+	       <TELL "Hoping to attract the attention of the crowd">)>
+	<TELL
+", he is waving a handful of overpriced trinkets over his head." CR>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-VENDOR ,FL-SEEN>
+	       <MC-MAKE ,TH-TELESCOPE ,FL-SEEN>
+	       <MC-MAKE ,TH-TRINKETS ,FL-SEEN>
+	       <TELL CR "As soon as he sees you, the salesman ">
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 1 2 3>
+		      <TELL "ignores everyone else and ">)>
+	       <TELL "says, \"'Ere, Guv. Come early for the parade, 'ave
+you? There'll be thousands of people, you know. Now at the last
+Jubilee - about a year and a 'alf ago, as I remembers it - I could 'ardly
+see a fing. But if you was to buy one of my telescopes, you wouldn't
+'ardly 'ave any problem, now would you? 'Ow 'bout it, Guv?\"" CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>	 	
+
+<ROUTINE RT-AC-RM-THE-MALL ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-THE-MALL" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL
+"The Mall runs southwest to northeast between the Queens Gardens
+and Trafalgar Square." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-WHITEHALL ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-WHITEHALL" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "Impressive government buildings line the street on either
+side. The street continues north and south, and the entrance to
+Scotland Yard is to the east." CR>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-SCOTLAND-YARD>
+		      <RT-DO-WALK ,P?WEST>
+		      <RTRUE>)>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-SCOTLAND-YARD ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SCOTLAND-YARD" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-THE-BLACK-MUSEUM>
+			     <RT-ALREADY-IN-ROOM-MSG>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-WHITEHALL>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-SCOTLAND-YARD>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-THE-BLACK-MUSEUM>
+			     <RT-DO-WALK ,P?UP>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-WHITEHALL>
+		      <TELL
+"You walk up the steps and into the building. Inside, it">)
+		     (<EQUAL? ,GL-PLACE-PRV ,RM-THE-BLACK-MUSEUM>
+		      <TELL "You return to the ground floor. It">)>)
+	      (T
+	       <TELL "It">)>
+	<TELL " looks just like any other government building - drab and
+worn. The door to the street is to the west, and you see some steps
+leading down." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-THE-BLACK-MUSEUM ("OPT" (CONTEXT <>))
+	 <DEBUGGING? <RT-DEBUG-RM-DF "RM-THE-BLACK-MUSEUM" .CONTEXT>>
+	 <COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+		<COND (<T? .CONTEXT> <RFALSE>)
+		      (<MC-VERB? ENTER>
+		       <COND (<MC-HERE? ,RM-SCOTLAND-YARD>
+			      <RT-DO-WALK ,P?DOWN>
+			      <RTRUE>)>)
+		      (<MC-VERB? EXIT>
+		       <COND (<MC-HERE? ,RM-THE-BLACK-MUSEUM>
+			      <RT-DO-WALK ,P?UP>
+			      <RTRUE>)>)>
+		<RFALSE>)>
+	 <MC-MAKE ,TH-BLIGH-BOAT ,FL-SEEN>
+	 <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+		<TELL "This is the Black Museum, where the Yard keeps relics
+and mementos of famous crimes." CR CR
+
+"Along one wall is a full-size rowboat with a small sign attached to
+it." CR>)>
+	 <RFALSE>>
+
+<ROUTINE RT-AC-RM-NEW-OXFORD-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-NEW-OXFORD-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-CHEAPSIDE ,RM-ST-GILES-CIRCUS>
+		      <TELL "The quality of the neighborhood seems to be ">
+		      <COND (<EQUAL? ,GL-PLACE-PRV ,RM-ST-GILES-CIRCUS>
+			     <TELL "deteriorating">)
+			    (T
+			     <TELL "improving">)>
+		      <TELL " as you">
+		      <RT-DRIVE-WALK-MSG?>
+		      <COND (<EQUAL? ,GL-PLACE-PRV ,RM-ST-GILES-CIRCUS>
+			     <TELL "eastward">)
+			    (T
+			     <TELL "westward">)>
+		      <TELL " along">)
+		     (<EQUAL? ,GL-PLACE-PRV ,RM-COVENT-GARDEN>
+		      <TELL "You leave Covent Garden and enter">)
+		     (T
+		      <TELL "The cab stops in">)>)		
+	      (T
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "in">)>
+	<TELL " New Oxford Street." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-COVENT-GARDEN ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-COVENT-GARDEN" .CONTEXT>>
+	<IFSOUND <COND (<==? .CONTEXT ,K-M-ENTERED>
+			<SOUNDS ,S-CROWD ,S-START>)
+		       (<==? .CONTEXT ,K-M-EXIT>
+			<SOUNDS ,S-CROWD ,S-STOP>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " Covent Garden, which is the central market for all of
+London. Everywhere you look there are stalls packed with produce
+from the English countryside." CR CR>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL "Despite the hour, the">)
+	      (T
+	       <TELL "The">)>
+	<TELL " open-air market is crowded with housewives who are shopping
+for fruits and vegetables." CR>
+	<COND (<IN? ,CH-ELIZA-DOOLITTLE ,RM-COVENT-GARDEN>
+	       <CRLF>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL "After looking around for a few moments, you">)
+		     (T
+		      <TELL "You">)>
+	       <TELL " see a crowd of women gathered around a girl who
+has collapsed on the ground. Her lifeless hand clutches a bunch of
+flowers." CR>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-ELIZA-DOOLITTLE ,FL-SEEN>
+	       <MC-MAKE ,CH-HOUSEWIVES ,FL-SEEN>
+	       <MC-MAKE ,TH-ELIZAS-FLOWERS ,FL-SEEN>
+	       ;<MC-MAKE ,TH-ELIZA-BODY ,FL-SEEN>
+	       <MC-MAKE ,TH-ELIZAS-MOUTH ,FL-SEEN>
+	       ;<MC-MAKE ,TH-PRODUCE ,FL-SEEN>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-THE-STRAND ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-THE-STRAND" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      ;(<EQUAL? .CONTEXT ,K-M-DESC-1>
+		<MC-MAKE ,TH-MARQUEES ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are lingering in">)>
+	<TELL " the Strand, which is the heart of London's theatre district">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 3>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL ", and fight your way through">)
+		     (T
+		      <TELL ", and you are enjoying being in the midst of">)>
+	       <TELL " the crowds of happy theatre goers">)
+	      (<EQUAL? <RT-TIME-OF-DAY> 1 2>
+	       <TELL "." CR CR "Crowds are gathering in front of the theatres,
+trying to select a show to see later in the day">)>
+	<TELL ". Streets lead off to the north, east, and southwest." CR>
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL CR "As you">
+	       <RT-DRIVE-WALK-MSG?>
+	       <TELL "through the fog, the empty streets seem
+haunted by the ghosts of actors from years gone by." CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-FLEET-STREET ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-FLEET-STREET" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL
+"Fleet Street is the centre of London's thriving newspaper industry">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+	       <TELL
+". The presses roar all night, turning out papers that will
+be delivered by train around the country the next day." CR>)
+	      (T
+	       <TELL ", and it is crowded with the thousands of people
+who put out the nation's newspapers." CR>)>	
+	<TELL CR
+"A street leads off to the west, and there is a passage
+south to the Embankment." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-THE-EMBANKMENT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-THE-EMBANKMENT" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-THAMES-ONE>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You arrive at">)
+	      (T
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "on">)>
+	<TELL " the Victoria Embankment, on the left bank of the Thames. ">
+	<COND (<EQUAL? <RT-TIME-OF-DAY> 1>
+	       <TELL
+"The early morning mist clings to the water and muffles
+the sounds of the river.">)
+	      (<EQUAL? <RT-TIME-OF-DAY> 2>
+	       <TELL
+"The river is crowded with pleasure boats here for the Jubilee.">)
+	      (<EQUAL? <RT-TIME-OF-DAY> 3>
+	       <TELL
+"The river looks quiet and peaceful in the fading light.">)
+	      (T
+	       <TELL
+"The river is barely visible through the thick fog.">)>
+	<CRLF>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-BOAT ,FL-SEEN>
+	       <MC-MAKE ,TH-OAR-1 ,FL-SEEN>
+	       <MC-MAKE ,TH-OAR-LOCK ,FL-SEEN>
+	       <TELL CR
+"There is an incredibly old rowboat here. It's got one empty oarlock, and
+it probably leaks, but it looks as if it might float." CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-RM-UPPER-THAMES-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-UPPER-THAMES-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL
+"Upper Thames Street runs east and west between the Embankment and Lower
+Thames Street." CR>
+	<RFALSE>>
+
+;<ROUTINE RT-AC-RM-BLIND-ALLEY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BLIND-ALLEY" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-SIGN-OF-RED-HERRING>
+			     <RT-DO-WALK ,P?WEST>
+			     <RTRUE>)>)>
+	       <RFALSE>)>
+	<TELL
+"This is a sinister-looking alley that runs west from Fleet Street to what
+looks like an abandoned pub. On the wall above you is a faded sign." CR>
+	<RFALSE>>
+
+;<ROUTINE RT-AC-RM-SIGN-OF-RED-HERRING ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SIGN-OF-RED-HERRING" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-BLIND-ALLEY>
+			     <RT-DO-WALK ,P?EAST>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-SIGN-OF-RED-HERRING>
+			     <RT-DO-WALK P?WEST>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-UNINTERESTING-OBJECT ,FL-SEEN>)>
+	<TELL
+"You peer through the gloom and discover that all the furnishings of the
+alehouse have been removed. Nothing remains except an uninteresting object
+on the floor.">
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-PINCHIN-LANE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-PINCHIN-LANE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-SHERMANS-HOUSE>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)>
+	        <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-CHEAPSIDE>
+		      <TELL "You enter">)
+		     (<EQUAL? ,GL-PLACE-PRV ,RM-SHERMANS-HOUSE>
+		      <TELL "You emerge from Sherman's shop into">)
+		     (T
+		      <TELL "The cab stops in">)>)
+	      (T
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "in">)>
+	<TELL " Pinchin Lane, a dingy little alley that runs">
+	<COND (<EQUAL? ,GL-PLACE-PRV ,RM-CHEAPSIDE>
+	       <TELL " south from">)
+	      (T
+	       <TELL " north to">)>
+	<TELL " Cheapside." CR CR "To the west is the entrance to ">	
+	<COND (<OR <EQUAL? .CONTEXT ,K-M-DESC-1>
+		   <MC-ISNOT? ,RM-SHERMANS-HOUSE ,FL-SEEN>>
+	       <TELL "what looks like a pet shop">)
+	      (T
+	       <TELL "Sherman's shop">)>
+	<TELL ".">
+	<COND (<AND <EQUAL? <RT-TIME-OF-DAY> 0>
+		    <NOT <EQUAL? ,GL-PLACE-PRV ,RM-SHERMANS-HOUSE>>>
+	       <TELL " Despite the hour, you see a light shining inside." CR>)
+	      (T
+	       <CRLF>)>			
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-CHEAPSIDE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-CHEAPSIDE" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "This is a ramshackle part of town, with dark alleys
+leading off the main street, which continues east and west. Pinchin Lane
+leads off to the south." CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-BANK-OF-ENGLAND ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BANK-OF-ENGLAND" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<T? .CONTEXT> <RFALSE>)
+		     (<MC-VERB? ENTER>
+		      <COND (<MC-HERE? ,RM-THREADNEEDLE-ST>
+			     <RT-DO-WALK ,P?NORTH>
+			     <RTRUE>)>)
+		     (<MC-VERB? EXIT>
+		      <COND (<MC-HERE? ,RM-BANK-OF-ENGLAND>
+			     <RT-DO-WALK ,P?SOUTH>
+			     <RTRUE>)
+			    (<MC-HERE? ,RM-BANK-VAULT>
+			     <RT-DO-WALK ,P?EAST>
+			     <RTRUE>)>)>
+	        <RFALSE>)>
+	<MC-MAKE ,LG-BANK-VAULT-DOOR ,FL-SEEN>
+	<MC-MAKE ,TH-DIAL ,FL-SEEN>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "The bank has the eerie silence that normally crowded
+places have when no one is there. The door to the vault is set into
+the west wall." CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-BANK-VAULT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BANK-VAULT" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <COND (<==? .CONTEXT ,K-M-DESCFCN>
+		      <COND (<EQUAL? ,GL-PLACE-CUR ,RM-BANK-OF-ENGLAND>
+			     <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+				    <RT-AC-RM-BANK-VAULT ,K-M-DESC-3>
+				    <RT-DESCRIBE-PLACE-CONTENTS ,RM-BANK-VAULT>
+				    <RTRUE>)
+				   (T
+				    <TELL
+"It's a huge, reinforced-steel door that's set firmly into the wall."
+CR CR "In the middle of the door you see a big shiny dial." CR>
+				    <RTRUE>)>)
+			    (T
+			     <RT-AC-RM-BANK-VAULT ,K-M-DESC-3>
+			     <RT-DESCRIBE-PLACE-CONTENTS ,RM-BANK-VAULT>
+			     <RTRUE>)>)
+		     (<T? .CONTEXT> <RFALSE>)
+		     (<MC-THIS-PRSO?>
+		      <COND (<MC-VERB? ENTER>
+			     <COND (<MC-HERE? ,RM-BANK-OF-ENGLAND>
+				    <RT-DO-WALK ,P?WEST>
+				    <RTRUE>)>)
+			    (<MC-VERB? EXIT>
+			     <COND (<MC-HERE? ,RM-BANK-VAULT>
+				    <RT-DO-WALK ,P?EAST>
+				    <RTRUE>)>)
+			    (<MC-VERB? LOOK-INSIDE SEARCH>
+			     <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+				    <RT-CYOU-MSG "see" "sees">
+				    <TELL "row upon row of " D ,TH-BOXES
+					  "." CR>
+				    <RTRUE>)
+				   (T
+				    <TELL CTHE ,LG-BANK-VAULT-DOOR
+					  " is closed." CR>
+				    <RTRUE>)>)
+			    (<MC-VERB? UNLOCK>
+			     <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+				    <TELL CTHE ,LG-BANK-VAULT-DOOR
+					  " is already opened." CR>)
+				   (T
+				    <TELL ,K-HOW-TO-MSG CR>)>
+			     <RTRUE>)
+			    (<MC-VERB? OPEN>
+			     <COND (<MC-IS? ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+				    <TELL "The vault door is already open." CR>
+				    <RTRUE>)
+				   (<MC-IS? ,TH-DIAL ,FL-LOCKED>
+				    <TELL "The vault door is locked." CR>
+				    <RTRUE>)
+				   (T
+				    <MC-MAKE ,LG-BANK-VAULT-DOOR ,FL-OPENED>
+				    <TELL "The vault door swings open." CR>
+				    <RTRUE>)>)
+			    (<MC-VERB? SHOOT>
+			     <TELL ,K-RICOCHET-MSG CR>
+			     <RTRUE>)>)>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-BOXES ,FL-SEEN>
+	       <MC-MAKE ,TH-BOX-LOCK ,FL-SEEN>
+	       <MC-MAKE ,TH-SAFETY-DEPOSIT-BOX ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "Upon entering, you">)
+	      (T
+	       <TELL "You">)>
+	<TELL " see rows and rows of safety deposit boxes." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-KING-WILLIAM-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-KING-WILLIAM-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)>
+	<TELL
+"King William Street runs northwest to southeast, from Threadneedle
+Street to Monument." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-MONUMENT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-MONUMENT" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "The intersection is dominated by the Monument, a
+huge obelisk that commemorates the Great Fire of London. On the side of
+the monument is a plaque." CR>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's a huge obelisk designed by Christopher Wren that towers
+202 feet in the air." CR>
+	       <RTRUE>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? ENTER>
+	       <COND (<MC-HERE? ,RM-MONUMENT>
+		      <TELL "You can't go inside " THEO "." CR>
+		      <RTRUE>)>)
+	      (<MC-VERB? EXIT>
+	       <COND (<MC-HERE? ,RM-MONUMENT>
+		      <TELL "You're not in " THEO "." CR>
+		      <RTRUE>)>)>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-LOWER-THAMES-ST ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-LOWER-THAMES-ST" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" Lower Thames Street. Roads lead off in many directions, some
+more savory than others. There is a set of particularly slovenly stairs
+leading down to an alley that runs alongside the river." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-TOWER-ENTRANCE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-TOWER-ENTRANCE" .CONTEXT>>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2 ,K-M-DESC-3>
+	       <TELL "You are">
+	       <RT-IN-VEHICLE-MSG>
+	       <TELL "outside the entrance to the Tower of
+London. Next to the entrance there is a sign." CR>)>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-SOUTH-AISLE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SOUTH-AISLE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-POPE-TOMB ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " the South Aisle of the Nave. ">
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "In the gloom, you bump into one of the tombs. ">)>
+	<TELL
+"There is an exit to the southeast and a door set into the south wall." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-JERICHO-PARLOUR ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-JERICHO-PARLOUR" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-SOUTH-AISLE>
+		      <TELL
+"From the vastness of the Nave, you pass into">)
+		     (T
+		      <TELL "You leave the Chamber for">)>
+	       <TELL " the more intimate">)
+	      (T
+	       <TELL "You are in the">)>
+	<TELL " Jericho Parlour">
+	<COND (<AND <EQUAL? .CONTEXT ,K-M-DESC-2>
+		    <EQUAL? ,GL-PLACE-PRV ,RM-JERUSALEM-CHAMBER>>
+	       <TELL "." CR>)
+	      (T
+	       <TELL
+", which is the anteroom to the famous Jerusalem Chamber just to the west." CR>)>
+	<TELL CR "The exit to the Nave is to the north." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-JERUSALEM-CHAMBER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-JERUSALEM-CHAMBER" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      ;(<EQUAL? .CONTEXT ,K-M-DESC-1>
+		<MC-MAKE ,TH-PANELLING ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are standing in">)>
+	<TELL " the Jerusalem Chamber, one of the oldest
+parts of the Abbey. In contrast to the cold and forbidding stone
+elsewhere in the Abbey, this room is panelled in oak and cedar. Just
+inside the entrance you see a small sign." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-NORTH-CLOISTER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-NORTH-CLOISTER" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-PACKET-OF-PAPER ,FL-SEEN>
+	       <MC-MAKE ,TH-CRAYON ,FL-SEEN>
+	       <MC-MAKE ,TH-RUBBINGS ,FL-SEEN>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are now in">)>
+	<TELL
+" the North Cloister, which is the brass-rubbing centre of the
+abbey. On the walls are completed rubbings that others have
+made.">
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <TELL
+" Someone has left a pacquet of paper and a rubbing crayon here." CR>
+	       <RTRUE>)
+	      (T
+	       <CRLF>
+	       <RFALSE>)>>
+
+<ROUTINE RT-DF-RM-SOUTH-TRANSEPT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SOUTH-TRANSEPT" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-DICKENS-TOMB ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " the South " ,K-TRANSEPT-MSG CR CR ,K-SHAFT-OF-LIGHT-MSG CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-NORTH-TRANSEPT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-NORTH-TRANSEPT" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-PITT-TOMB ,FL-SEEN>
+	       <MC-MAKE ,TH-FIGURES ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " the North " ,K-TRANSEPT-MSG CR CR ,K-SHAFT-OF-LIGHT-MSG CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-POETS-CORNER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-POETS-CORNER" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-CHAUCER-TOMB ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You walk into">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" the hushed, secluded part of the Abbey known as Poets' Corner. The
+monuments here are dedicated to Britain's literary giants. The oldest
+of the tombs is that of Geoffrey Chaucer, who died in the year 1400." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-SOUTH-AMBULATORY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SOUTH-AMBULATORY" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)>
+	<TELL ,K-AMBULATORY-MSG CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-SANCTUARY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SANCTUARY" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-ANNE-OF-CLEVES-TOMB ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You walk into">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" the Sanctuary. This is where the actual Coronation Ceremony
+takes place whenever a new monarch is crowned. A modest tomb is near
+the south wall." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-NORTH-AMBULATORY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-NORTH-AMBULATORY" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)>
+	<TELL ,K-AMBULATORY-MSG CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-CONFESSOR-CHAPEL ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-CONFESSOR-CHAPEL" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-EDWARD-TOMB ,FL-SEEN>
+	       <MC-MAKE ,TH-HENRY-V-TOMB ,FL-SEEN>)>
+	<TELL
+"The Confessor Chapel is dominated by the tomb of the founder
+of the Abbey, although there are several other tombs here. It is this
+chapel that first gave Westminster the name \"Burial place of kings.\"" CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-SOUTH-CHAPEL-AISLE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-SOUTH-CHAPEL-AISLE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-MARY-QUEEN-OF-SCOTS-TOMB ,FL-SEEN>)>
+	<TELL
+"The South Chapel Aisle is the final resting place of Mary, Queen
+of Scots." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-NORTH-CHAPEL-AISLE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-NORTH-CHAPEL-AISLE" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-ELIZABETH-TOMB ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL " the North Chapel Aisle. There is a very large tomb here." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-INNOCENTS-CORNER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-INNOCENTS-CORNER" .CONTEXT>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-LITTLE-PRINCES-TOMB ,FL-SEEN>)>
+	<TELL
+"This is Innocents' corner, the traditional burial site of
+royalty who die in infancy. There are several tombs here." CR>
+	<RFALSE>>
+
+<ROUTINE RT-AC-RM-DRAWBRIDGE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-DRAWBRIDGE" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-ENTERED>
+	       <SETG ALLOW-IN-TOWER <>>
+	       <RFALSE>)
+	      (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>>
+	       <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <TELL
+"So far, so good. No one has challenged your right to be here. Maybe the
+Tower has been left unguarded.">)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-TOWER-ENTRANCE>
+		      <TELL "You walk back up onto the drawbridge.">)
+		     (T
+		      <TELL
+"Stung by the guard's rejection, you retrace your steps to the drawbridge.">)>)
+	      (T
+	       <TELL
+"You are standing on the drawbridge to the Tower of London.">)>
+	<TELL CR CR
+"To the east you see the Byward Tower, and to the west is the Tower
+Entrance." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-BYWARD-TOWER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BYWARD-TOWER" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,CH-TOWER-GUARD ,FL-SEEN>
+	       <MC-MAKE ,LG-RAVENS ,FL-SEEN>
+	       <TELL "Your luck runs out. ">)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL
+"A costumed Yeoman of the Guard steps forward to challenge you." CR>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-3>
+	       <TELL
+"You are standing in the Byward Tower, which was built by Edward I in the
+thirteenth century to control access to the fortress. A burly Beefeater
+stands in your path." CR>)>
+	<TELL CR "A few of the Tower's famous ravens are perched here,
+watching your every move." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-OUTER-WARD ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-OUTER-WARD" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)>
+	<TELL
+"This is the Outer Ward. From here you can go north, south, or west." CR CR
+
+"A few of the Tower's famous ravens are perched here, watching your
+every move." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-BLOODY-TOWER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BLOODY-TOWER" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" the Bloody Tower where, allegedly, the \"Little Princes in the
+Tower\" met their death. One exit leads north. The other leads south." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-WAKEFIELD-TOWER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-WAKEFIELD-TOWER" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? ,GL-PLACE-PRV ,RM-TOWER-GREEN>
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL "You leave the">
+		      <COND (<EQUAL? <RT-TIME-OF-DAY> 0 1 3>
+			     <TELL " gloom of the">)>
+		      <TELL " Tower Green for the gloom of the Wakefield Tower.">)>)
+	      (T
+	       <COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+		      <TELL "You descend the stairs into the ground floor
+of the Wakefield Tower.">)>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-3>
+	       <TELL "You see only the thick stone walls of the Wakefield Tower.">)>
+	<CRLF>
+	<CRLF>
+	<TELL "There is a dark stone staircase leading up, and the only other
+exit is to the northwest." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-JEWEL-ROOM ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-JEWEL-ROOM" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "The stairs take you up to">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" the Jewel Room of the Tower of London. The case that once
+held the Regalia is twisted and smashed">
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-MACE ,FL-SEEN>
+	       <MC-MAKE ,TH-JEWEL-CASE ,FL-SEEN>
+	       <TELL
+", and the weapon that the thief used is lying on the ground nearby." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL "." CR>
+	       <RFALSE>)>>
+
+<ROUTINE RT-DF-RM-DUNGEON ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-DUNGEON" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You inch your way down the dark stairs and arrive">)
+	      (T
+	       <TELL "You are">)>
+	<TELL " in the oldest part of the Tower, the Dungeon." CR>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-SUIT-OF-ARMOUR ,FL-SEEN>
+	       <IFSOUND <SOUNDS ,S-ARMOR ,S-INIT>>
+	       <TELL
+CR "The room has been converted into museum space, and prominently featured
+is a man-size suit of armour." CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-DF-RM-TORTURE-ROOM ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-TORTURE-ROOM" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      ;(<EQUAL? .CONTEXT ,K-M-DESC-1>
+		<MC-MAKE ,TH-INSTRUMENTS ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" the torture room below the Bowyer Tower. Around the walls are hung
+various instruments of torture. The stairs leading up are the only way
+out." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-WHITE-TOWER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-WHITE-TOWER" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)>
+	<TELL
+"This is the White Tower, which was started by William the
+Conqueror in 1078. Exits lead out and down." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-TOWER-GREEN ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-TOWER-GREEN" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)>
+	<TELL
+"You are on Tower Green, which is at the centre of the Tower of
+London. Entrances to various towers lie to the northeast, east, southeast,
+and south. A few ravens are strolling around the green, eyeing you with
+interest." CR> 
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-BOWYER-TOWER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-BOWYER-TOWER" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-BUNG ,FL-SEEN>
+	       <MC-MAKE ,TH-BUTT-OF-MALMSEY ,FL-SEEN>
+	       <MC-MAKE ,TH-MALMSEY ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <TELL "You enter">)
+	      (T
+	       <TELL "You are in">)>
+	<TELL
+" the Bowyer Tower. It was in this room that the Duke of Clarence
+was drowned in a Butt of Malmsey in 1478. The keg still stands over in
+the corner." CR CR>
+	<TELL "Exits lead out and down." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-INSIDE-TRAITORS-GATE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-INSIDE-TRAITORS-GATE" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1>
+	       <MC-MAKE ,TH-PORTCULLIS-CHAIN ,FL-SEEN>)>
+	<COND (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-OUTSIDE-TRAITORS-GATE>
+		      <TELL "You pass under the portcullis">)
+		     (T
+		      <TELL "You walk south from the Outer Ward">)>
+	       <TELL " and find yourself">)
+	      (T
+	       <TELL "You are">)>
+	<TELL " just north of Traitors Gate. The portcullis is ">
+	<COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+	       <TELL "up">)
+	      (T
+	       <TELL "down">)>
+	<TELL ". From the wall near the portcullis hangs a chain, and perched
+on top of the wall are some ravens." CR>
+	<RFALSE>>
+
+<ROUTINE RT-DF-RM-OUTSIDE-TRAITORS-GATE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-RM-DF "RM-OUTSIDE-TRAITORS-GATE" .CONTEXT>>
+	<IFSOUND <COND (<AND <==? .CONTEXT ,K-M-EXIT>
+			     <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+			<SOUNDS ,S-ARMOR>)>>
+	<COND (<NOT <RT-DESCFCN-CONTEXT .CONTEXT>> <RFALSE>)
+	      (<EQUAL? .CONTEXT ,K-M-DESC-1 ,K-M-DESC-2>
+	       <COND (<EQUAL? ,GL-PLACE-PRV ,RM-INSIDE-TRAITORS-GATE>
+		      <TELL "You pass under the portcullis">)
+		     (T
+		      <TELL "You leave the boat">)>
+	       <TELL " and find yourself">)
+	      (T
+	       <TELL "You are">)>
+	<TELL
+" just south of Traitors Gate, through which condemned prisoners
+were brought in to the Tower prior to being executed. The massive iron
+portcullis is ">
+	<COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+	       <TELL "up">)
+	      (T
+	       <TELL "down">)>
+	<TELL "." CR>
+	<RFALSE>>
diff --git a/puzzles.zabstr b/puzzles.zabstr
new file mode 100644
index 0000000..fcc3cc7
--- /dev/null
+++ b/puzzles.zabstr
@@ -0,0 +1,75 @@
+
+<DEFINE-ROUTINE RT-EXAMINE-GEM> 
+<DEFINE-ROUTINE RT-HANDLE-SCRATCH> 
+<CONSTANT GL-HOLES:TABLE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0>> 
+<DEFINE-ROUTINE RT-HOLE?> 
+<DEFINE-ROUTINE RT-WASTE-OF-BULLETS-MSG> 
+<DEFINE-ROUTINE RT-SHOOT-DEAD-MSG> 
+<DEFINE-ROUTINE RT-READ-NEWSPAPER> 
+<DEFINE-ROUTINE RT-WAKE-UP-HOLMES> 
+<DEFINE-ROUTINE RT-I-PM-HALL> 
+<DEFINE-ROUTINE RT-I-PM-VESTIBULE> 
+<DEFINE-ROUTINE RT-I-HUDSON> 
+<DEFINE-ROUTINE RT-I-PM-LEAVE> 
+<DEFINE-ROUTINE RT-I-PM-QUITS> 
+<CONSTANT K-PIGEON-SHOWN-RUBY 1> 
+<CONSTANT K-PIGEON-GET-RUBY 2> 
+<CONSTANT K-PIGEON-TIRED 4> 
+<DEFINE-ROUTINE RT-GET-PIGEON> 
+<DEFINE-ROUTINE RT-PIGEON-INTEREST> 
+<DEFINE-ROUTINE RT-KILL-PIGEON> 
+<DEFINE-ROUTINE RT-PIGEON-OBJ> 
+<DEFINE-ROUTINE RT-SHERMAN-RAGE> 
+<DEFINE-ROUTINE RT-I-PIGEON-LOSE-INTEREST> 
+<DEFINE-ROUTINE RT-I-PIGEON-IMPATIENT> 
+<DEFINE-ROUTINE RT-I-PIGEON-CIRCLE> 
+<DEFINE-ROUTINE RT-I-SHERMANS-REVENGE> 
+<DEFINE-ROUTINE RT-IMPOLITE-MSG> 
+<CONSTANT K-BELL-AWAY 0> 
+<CONSTANT K-BELL-TOWARDS 1> 
+<GLOBAL GL-WAIT-BELL:FLAG <> %<> WORD> 
+<DEFINE-ROUTINE RT-I-BIGBEN> 
+<GLOBAL HEARD-SWING? <> %<> WORD> 
+<DEFINE-ROUTINE RT-I-SWING-BELL> 
+<DEFINE-ROUTINE RT-RELIEF> 
+<DEFINE-ROUTINE RT-ZERO-SECONDS> 
+<DEFINE-ROUTINE RT-I-EXHALE> 
+<DEFINE-ROUTINE RT-I-INHALE> 
+<DEFINE-ROUTINE RT-I-TAKE-WATSONS-STUFF> 
+<DEFINE-ROUTINE RT-I-OUT-OF-TIME> 
+<DEFINE-ROUTINE RT-ETHERIUM-EFFECT> 
+<DEFINE-ROUTINE RT-I-WAKE-UP> 
+<DEFINE-ROUTINE RT-SMELL-ETHERIUM?> 
+<DEFINE-ROUTINE RT-FIND-FLAME> 
+<DEFINE-ROUTINE RT-DOES-MORIARTY-WIN> 
+<DEFINE-ROUTINE RT-PROCESS-PASSWORD> 
+<DEFINE-ROUTINE V-SWORDFISH> 
+<DEFINE-ROUTINE RT-ROPE-MSG> 
+<DEFINE-ROUTINE RT-INSCRIPTION-APPEARS-MSG> 
+<DEFINE-ROUTINE RT-PROCESS-TOMB> 
+<DEFINE-ROUTINE RT-READ-INSCRIPTION> 
+<DEFINE-ROUTINE RT-READ-PAPER> 
+<DEFINE-ROUTINE RT-PROCESS-PAPER> 
+<DEFINE-ROUTINE RT-PAPER-WARMING> 
+<DEFINE-ROUTINE RT-I-FLASH-WESTMINSTER-LIGHTS> 
+<DEFINE-ROUTINE RT-I-WESTMINSTER-LIGHTS-ON> 
+<DEFINE-ROUTINE RT-I-WESTMINSTER-LIGHTS-OFF> 
+<DEFINE-ROUTINE RT-I-LOCKED-IN-END-GAME> 
+<DEFINE-ROUTINE RT-I-OPEN-WESTMINSTER-DOOR> 
+<DEFINE-ROUTINE RT-I-CLOSE-WESTMINSTER-DOOR> 
+<DEFINE-ROUTINE RT-CF-TH-BOAT> 
+<DEFINE-ROUTINE RT-PROCESS-BOAT-ON-THAMES> 
+<DEFINE-ROUTINE RT-I-MOVE-DOWNSTREAM> 
+<DEFINE-ROUTINE RT-MOVE-UPSTREAM> 
+<DEFINE-ROUTINE RT-THAMES-TIDE> 
+<DEFINE-ROUTINE RT-TOWER-PASSWORD> 
+<DEFINE-ROUTINE V-BOLEYN> 
+<DEFINE-ROUTINE V-CLEVES> 
+<DEFINE-ROUTINE V-HOWARD> 
+<DEFINE-ROUTINE V-PARR> 
+<DEFINE-ROUTINE V-ARAGON> 
+<DEFINE-ROUTINE V-SEYMOUR> 
+<DEFINE-ROUTINE RT-I-OPEN-MUSEUM-DOOR> 
+<DEFINE-ROUTINE RT-I-CLOSE-MUSEUM-DOOR> 
+<DEFINE-ROUTINE RT-INDENT-PRINT> 
+<DEFINE-ROUTINE RT-WRAP-PRINT> 
\ No newline at end of file
diff --git a/puzzles.zap b/puzzles.zap
new file mode 100644
index 0000000..d0080fe
--- /dev/null
+++ b/puzzles.zap
@@ -0,0 +1,1800 @@
+
+
+	.FUNCT	RT-EXAMINE-GEM,GEM
+	EQUAL?	GEM,TH-SAPPHIRE \?CCL3
+	IN?	TH-SAPPHIRE,TH-CLAPPER \?CCL3
+	PRINTR	"The sapphire is hanging from the end of the clapper."
+?CCL3:	LOC	GEM
+	EQUAL?	STACK,CH-PLAYER \?CCL7
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \?CCL10
+	PRINTI	"It looks as if there is a scratch on "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL10:	EQUAL?	GL-PRSA,V?READ \?CCL12
+	PRINTI	"All you can see on "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" is a scratch."
+?CCL12:	EQUAL?	GL-PRSA,V?LOOK-THRU \FALSE
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS \FALSE
+	IN?	TH-MAGNIFYING-GLASS,GL-WINNER \?CCL19
+	PRINTI	"You see """
+	EQUAL?	GEM,TH-SAPPHIRE \?CCL22
+	PRINTI	"2:00 a.m."
+	JUMP	?CND20
+?CCL22:	EQUAL?	GEM,TH-EMERALD \?CCL24
+	PRINTI	"20/6/87"
+	JUMP	?CND20
+?CCL24:	EQUAL?	GEM,TH-OPAL \?CCL26
+	PRINTI	"Password: Swordfish"
+	JUMP	?CND20
+?CCL26:	EQUAL?	GEM,TH-RUBY \?CCL28
+	PRINTI	"Wear a carnation"
+	JUMP	?CND20
+?CCL28:	EQUAL?	GEM,TH-TOPAZ \?CCL30
+	PRINTI	"Bar of Gold"
+	JUMP	?CND20
+?CCL30:	EQUAL?	GEM,TH-GARNET \?CND20
+	PRINTI	"Give me to Akbar"
+?CND20:	PRINTI	""" scratched into the surface of "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+	BTST	CH-HOLMES-AUX1,2 /TRUE
+	BOR	CH-HOLMES-AUX1,K-HOLMES-GEM? >CH-HOLMES-AUX1
+	MOVE	TH-RING,CH-PLAYER
+	FSET	TH-RING,FL-SEEN
+	FSET	TH-RING,FL-TOUCHED
+	FCLEAR	TH-RING,FL-NODESC
+	CRLF	
+	PRINTI	"Holmes"
+	ICALL1	RT-HOLMES-SAYS-AGRA-MSG
+	GETP	TH-RING,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-RING,P?VALUE,0
+	RTRUE	
+?CCL19:	ICALL	RT-YOUD-HAVE-TO-MSG,STR?738,TH-MAGNIFYING-GLASS
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?READ \?CCL36
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?738,GL-PRSO
+	PRINTI	" to read "
+	ICALL2	RT-SAY-HIM-HER-THEM-IT-MSG,GL-PRSO
+	PRINTR	"."
+?CCL36:	EQUAL?	GL-PRSA,V?LOOK-THRU \?CCL38
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS \?CCL38
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?738,GL-PRSO
+	PRINT	K-GOOD-LOOK-MSG
+	CRLF	
+	RTRUE	
+?CCL38:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?738,GL-PRSO
+	PRINT	K-GOOD-LOOK-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-HANDLE-SCRATCH,GEM,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	PUTP	GEM,P?OBJ-NOUN,0
+	ICALL2	DPRINT,GEM
+	PUTP	GEM,P?OBJ-NOUN,W?SCRATCH
+	PRINTI	"'s scratch"
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN /?CND1
+?CND1:	LOC	GEM
+	EQUAL?	STACK,CH-PLAYER \?CCL7
+	EQUAL?	GL-PRSA,V?EXAMINE \?CCL10
+	PRINTR	"It looks like very tiny writing."
+?CCL10:	EQUAL?	GL-PRSA,V?READ \?CCL12
+	PRINTR	"It is too tiny."
+?CCL12:	EQUAL?	GL-PRSA,V?LOOK-THRU \FALSE
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS \FALSE
+	IN?	TH-MAGNIFYING-GLASS,GL-WINNER \?CCL19
+	PRINTI	"You see """
+	EQUAL?	GEM,TH-SAPPHIRE \?CCL22
+	PRINTI	"2:00 a.m"
+	JUMP	?CND20
+?CCL22:	EQUAL?	GEM,TH-EMERALD \?CCL24
+	PRINTI	"20/6/87"
+	JUMP	?CND20
+?CCL24:	EQUAL?	GEM,TH-OPAL \?CCL26
+	PRINTI	"Password: Swordfish"
+	JUMP	?CND20
+?CCL26:	EQUAL?	GEM,TH-RUBY \?CCL28
+	PRINTI	"Wear a carnation"
+	JUMP	?CND20
+?CCL28:	EQUAL?	GEM,TH-TOPAZ \?CCL30
+	PRINTI	"Bar of Gold"
+	JUMP	?CND20
+?CCL30:	EQUAL?	GEM,TH-GARNET \?CND20
+	PRINTI	"Give me to Akbar"
+?CND20:	PRINTI	"."""
+	CRLF	
+	BTST	CH-HOLMES-AUX1,2 /TRUE
+	BOR	CH-HOLMES-AUX1,K-HOLMES-GEM? >CH-HOLMES-AUX1
+	MOVE	TH-RING,CH-PLAYER
+	FSET	TH-RING,FL-SEEN
+	FSET	TH-RING,FL-TOUCHED
+	FCLEAR	TH-RING,FL-NODESC
+	CRLF	
+	PRINTI	"Holmes"
+	ICALL1	RT-HOLMES-SAYS-AGRA-MSG
+	GETP	TH-RING,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-RING,P?VALUE,0
+	RTRUE	
+?CCL19:	ICALL	RT-YOUD-HAVE-TO-MSG,STR?738,TH-MAGNIFYING-GLASS
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?LOOK-THRU \?PRD38
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS /?CCL36
+?PRD38:	EQUAL?	GL-PRSA,V?EXAMINE,V?READ \FALSE
+?CCL36:	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?738,GEM
+	EQUAL?	GL-PRSA,V?READ \?CCL43
+	PRINTR	" to read the scratch."
+?CCL43:	PRINT	K-GOOD-LOOK-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-HOLE?,OBJ,OFF,CNT,NUM,PLACE
+?PRG1:	MUL	NUM,2 >OFF
+	GET	GL-HOLES,0
+	EQUAL?	NUM,STACK /?REP2
+	ADD	OFF,1
+	GET	GL-HOLES,STACK
+	EQUAL?	OBJ,STACK \?CND3
+	ADD	OFF,2
+	GET	GL-HOLES,STACK >PLACE
+	ZERO?	PLACE /?CCL8
+	EQUAL?	GL-PLACE-CUR,PLACE \?CND3
+?CCL8:	INC	'CNT
+?CND3:	INC	'NUM
+	JUMP	?PRG1
+?REP2:	RETURN	CNT
+
+
+	.FUNCT	RT-WASTE-OF-BULLETS-MSG,WHO
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL3
+	PRINTR	"Holmes glances at you and says, ""Save your ammunition, Watson. More danger may lie ahead."""
+?CCL3:	EQUAL?	WHO,CH-WIGGINS \?CCL5
+	PRINTI	"Wiggins looks at you impatiently and says, ""'Ow in the name of Dick Whittington is shooting "
+	ICALL1	RT-A-PRINT
+	PRINTR	" going to help Mr 'Olmes?"""
+?CCL5:	PRINTR	"That would be a waste of bullets."
+
+
+	.FUNCT	RT-SHOOT-DEAD-MSG,WHO
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL3
+	PRINTR	"Holmes lifts an eyebrow and says sardonically, ""Is shooting dead people a new trend in medical research, Doctor?"""
+?CCL3:	EQUAL?	WHO,CH-WIGGINS \?CCL5
+	PRINTR	"Wiggins tugs at your sleeve and whispers nervously, ""Everyone here is already dead... aren't they?"""
+?CCL5:	PRINTR	"Have you no decency? Have you no shame? No? Then a bright future awaits you in the legal profession. Apply now to the law school of your choice."
+
+
+	.FUNCT	RT-READ-NEWSPAPER
+	PRINTR	"It's the newspaper that came in your game package."
+
+
+	.FUNCT	RT-WAKE-UP-HOLMES
+	FCLEAR	CH-HOLMES,FL-ASLEEP
+	FSET	LG-PARLOUR-DOOR,FL-OPENED
+	REMOVE	TH-PHIAL
+	REMOVE	TH-MOROCCO-CASE
+	REMOVE	TH-SYRINGE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PM-HALL,STACK
+	ICALL2	RT-ALARM-CLR,RT-I-PM-QUITS
+	PRINTI	"Holmes "
+	EQUAL?	TH-NEWSPAPER,GL-PRSO,GL-PRSI \?CND1
+	PRINTI	"glances at the paper and his eye falls on the notice about the Tower of London. He "
+?CND1:	PRINTI	"immediately leaps to his feet and hurls the phial and the case into the fireplace. The phial and the syringe shatter, and the liquid evaporates instantly, but the detective does not even notice. "
+	EQUAL?	GL-PRSI,CH-PRIME-MINISTER \?CCL5
+	PRINTI	"""A client?"" he exclaims. ""On government business? Most interesting."""
+	JUMP	?CND3
+?CCL5:	PRINTI	"""They've closed the Tower?"" he exclaims. ""Most singular."""
+?CND3:	CRLF	
+	ICALL2	RT-UPDATE-SCORE,5
+	CRLF	
+	PRINTI	"Holmes strides to the door and calls down to Mrs Hudson to bring up a tray of food. Then he plops back down on the sofa, "
+	EQUAL?	GL-PRSI,CH-PRIME-MINISTER \?CND6
+	CALL	RT-META-IN?,TH-NEWSPAPER,CH-PLAYER
+	ZERO?	STACK \?CND6
+	CALL2	RT-META-LOC,TH-NEWSPAPER
+	EQUAL?	STACK,RM-HOLMES-STUDY \?CND6
+	PRINTI	"glances at the newspaper, and then "
+?CND6:	PRINTR	"makes a steeple of his fingertips and focuses his intense gaze upon you."
+
+
+	.FUNCT	RT-I-PM-HALL
+	FSET	CH-HUDSON,FL-NODESC
+	MOVE	CH-PRIME-MINISTER,RM-ENTRY-HALL
+	MOVE	CH-HUDSON,RM-ENTRY-HALL
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PM-VESTIBULE,STACK
+	EQUAL?	GL-PLACE-CUR,RM-VESTIBULE \FALSE
+	CRLF	
+	PRINTR	"Mrs Hudson and the visitor emerge from the parlour and appear to be on their way upstairs."
+
+
+	.FUNCT	RT-I-PM-VESTIBULE
+	MOVE	CH-PRIME-MINISTER,RM-VESTIBULE
+	MOVE	CH-HUDSON,RM-VESTIBULE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-HUDSON,STACK
+	EQUAL?	GL-PLACE-CUR,RM-VESTIBULE \?CCL3
+	EQUAL?	GL-PLACE-PRV,RM-ENTRY-HALL /?CCL3
+	CRLF	
+	PRINTR	"Mrs Hudson and the visitor arrive at the top of the stairs on their way into Holmes's study."
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
+	EQUAL?	GL-PLACE-PRV,RM-VESTIBULE \FALSE
+	CRLF	
+	PRINTR	"Mrs Hudson and the visitor passed you on the stairs."
+
+
+	.FUNCT	RT-I-HUDSON,NUM
+	MOVE	CH-PRIME-MINISTER,RM-HOLMES-STUDY
+	REMOVE	CH-HUDSON
+	FCLEAR	CH-HUDSON,FL-NODESC
+	SET	'NUM,RM-HOLMES-STUDY-AUX1
+	ZERO?	NUM \?CND1
+	EQUAL?	GL-PLACE-CUR,RM-VESTIBULE \?CCL5
+	CRLF	
+	PRINTI	"Mrs Hudson ushers the visitor into "
+	ICALL2	RT-THEO-PRINT,RM-HOLMES-STUDY
+	PRINTI	" and goes downstairs."
+	CRLF	
+	JUMP	?CND1
+?CCL5:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \?CND1
+	CRLF	
+	PRINTI	"You see Mrs Hudson come down the stairway."
+	CRLF	
+?CND1:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY /?CTR8
+	EQUAL?	RM-HOLMES-STUDY-AUX1,3 \?CCL9
+?CTR8:	MOVE	TH-WESTMINSTER-CLUE,CH-PLAYER
+	FSET	TH-WESTMINSTER-CLUE,FL-SEEN
+	FSET	CH-PRIME-MINISTER,FL-SEEN
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,3,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PM-LEAVE,STACK
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL14
+	ZERO?	NUM \?CCL14
+	CRLF	
+	PRINTI	"Mrs Hudson appears at the door, accompanied by a worried-looking gentleman."
+	CRLF	
+	CRLF	
+	PRINTI	"Holmes jumps up and ushers the gentleman to the armchair, dismissing Mrs Hudson at the same time. ""Watson,"" he says, ""I am sure you recognize our distinguished visitor. "
+	JUMP	?CND12
+?CCL14:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL18
+	EQUAL?	NUM,1,2 \?CCL18
+	CRLF	
+	PRINTI	"Holmes has seated his visitor and is exchanging pleasantries with him. As you walk in Holmes looks up and says, ""Ah, here you are Watson. Now we can get down to business."" He turns to the gentleman seated in the armchair and says, """
+	JUMP	?CND12
+?CCL18:	CRLF	
+	PRINTI	"Holmes appears and says, ""Come with me, Watson. We have an important visitor."" He takes you by the arm and ushers you back to his study. Once inside, he gestures to the guest seated in the armchair and says, """
+	MOVE	CH-PLAYER,RM-HOLMES-STUDY
+	SET	'GL-PLACE-PRV,GL-PLACE-CUR
+	SET	'GL-PLACE-CUR,RM-HOLMES-STUDY
+?CND12:	PRINTI	"I presume, sir, that you have come about the Jewels."""
+	CRLF	
+	CRLF	
+	PRINTI	"The visitor half rises from his chair in protest and sputters, ""But...but, how...?"""
+	CRLF	
+	CRLF	
+	PRINTI	"Holmes calms him with a glance. ""Come, sir. What else could it be? The Tower is suddenly closed, and within hours I receive a call from the highest official of Her Majesty's government. A simple deduction. Now then, tell me about the theft."""
+	CRLF	
+	CRLF	
+	PRINTI	"The visitor settles back into his chair and says, ""We know very little. Only that the Crown Jewels were stolen from the Tower sometime Thursday night. The theft was discovered Friday morning, and we immediately closed and searched the Tower. All we found was this verse which was left behind in the empty jewel case."""
+	CRLF	
+	CRLF	
+	PRINTI	"The visitor removes a folded piece of paper from his pocket and gives it to Holmes, who glances at it and passes it on to you."
+	CRLF	
+	ICALL2	RT-THIS-IS-IT,TH-WESTMINSTER-CLUE
+	ICALL2	RT-THIS-IS-IT,CH-PRIME-MINISTER
+	RTRUE	
+?CCL9:	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-HUDSON,STACK
+	ADD	NUM,1 >RM-HOLMES-STUDY-AUX1
+	ZERO?	NUM \TRUE
+	CRLF	
+	PRINTR	"You hear Holmes call you to come back into his study..."
+
+
+	.FUNCT	RT-I-PM-LEAVE
+	FCLEAR	LG-HOLMES-BEDROOM-DOOR,FL-LOCKED
+	FSET	LG-HOLMES-BEDROOM-DOOR,FL-OPENED
+	REMOVE	CH-PRIME-MINISTER
+	MOVE	CH-HOLMES,RM-221B-BAKER-ST
+	LOC	CH-PLAYER
+	EQUAL?	STACK,RM-HOLMES-STUDY \?CCL3
+	CRLF	
+	PRINTI	"The visitor looks at his pocket watch and stands up. ""Thank you, gentlemen. I must go now. Remember, this calamity can only be hidden from the public until Monday morning at nine o'clock. If the Regalia is not at Buckingham Palace in time for the Coronation Day festivities, then all is lost."""
+	CRLF	
+	CRLF	
+	PRINTI	"The gentleman leaves, and Holmes unlocks the door to the bedroom, goes in, and reappears moments later wearing his Inverness cape and deerstalker hat."
+	CRLF	
+	CRLF	
+	PRINTR	"""Come when you're ready, Watson. I'll wait for you outside."""
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL5
+	CRLF	
+	PRINTR	"You see Holmes and the visitor emerge from the house. They confer briefly, shake hands, and then the Minister walks off into the fog."
+?CCL5:	CRLF	
+	PRINTR	"Holmes and the visitor brush past you as they leave the house. Holmes says to you, ""Come when you're ready, Watson. I'll wait for you outside."""
+
+
+	.FUNCT	RT-I-PM-QUITS
+	CRLF	
+	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL3
+	PRINTI	"You see "
+	ICALL2	RT-THEO-PRINT,LG-BAKER-ST-DOOR
+	PRINTI	" open, and a dejected-looking man comes out. He slowly walks away into the fog."
+	CRLF	
+	CRLF	
+	JUMP	?CND1
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY,RM-VESTIBULE \?CCL5
+	PRINTI	"From downstairs you hear the sound of a door closing. You go down and open "
+	ICALL2	RT-THEO-PRINT,LG-BAKER-ST-DOOR
+	PRINTI	" in time to see a dejected-looking man disappearing into the fog."
+	CRLF	
+	CRLF	
+	JUMP	?CND1
+?CCL5:	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \?CND1
+	PRINTI	"Suddenly "
+	ICALL2	RT-THEO-PRINT,LG-PARLOUR-DOOR
+	PRINTI	" opens and a dejected-looking man appears. ""Thank you for trying, Mrs Hudson, but without Sherlock Holmes, there is no hope."" He opens "
+	ICALL2	RT-THEO-PRINT,LG-BAKER-ST-DOOR
+	PRINTI	" and disappears into the fog."
+	CRLF	
+	CRLF	
+?CND1:	PRINTI	"Moments later you see newsboys running through the streets shouting, ""Crown Jewels stolen! Prime Minister resigns in disgrace!"""
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-GET-PIGEON,OBJ,WHO
+	BTST	CH-TRAINED-PIGEON-AUX1,4 \?CCL3
+	PRINTI	"""He's too young to fly too often."
+	SET	'OBJ,CH-TRAINED-PIGEON-AUX3
+	IN?	OBJ,CH-SHERMAN \?CCL6
+	PRINTI	" He did come back with "
+	ICALL2	RT-A-PRINT,OBJ
+	PRINTI	", however,"" he says, giving it to you."
+	CRLF	
+	MOVE	OBJ,CH-PLAYER
+	ICALL2	RT-THIS-IS-IT,OBJ
+	FSET	OBJ,FL-SEEN
+	FSET	OBJ,FL-TOUCHED
+	FCLEAR	OBJ,FL-NODESC
+	GETP	OBJ,P?VALUE
+	ZERO?	STACK /FALSE
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CND10
+	CRLF	
+	PRINT	K-BRAVO-MSG
+	CRLF	
+?CND10:	GETP	OBJ,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	OBJ,P?VALUE,0
+	RTRUE	
+?CCL6:	PRINTR	" Come back next week."""
+?CCL3:	IN?	CH-TRAINED-PIGEON,CH-SHERMAN \?CCL13
+	PRINTI	"Sherman hands you the bird. ""Take good care of him, now. I've grown fond of him."""
+	CRLF	
+	MOVE	CH-TRAINED-PIGEON,CH-PLAYER
+	FSET	CH-TRAINED-PIGEON,FL-SEEN
+	FSET	CH-TRAINED-PIGEON,FL-TOUCHED
+	FCLEAR	CH-TRAINED-PIGEON,FL-NODESC
+	GETP	CH-TRAINED-PIGEON,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	CH-TRAINED-PIGEON,P?VALUE,0
+	RTRUE	
+?CCL13:	PRINTR	"""I've already given him to you."""
+
+
+	.FUNCT	RT-PIGEON-INTEREST,ATT-BIT
+	EQUAL?	ATT-BIT,K-PIGEON-GET-RUBY \?CND1
+	BTST	CH-TRAINED-PIGEON-AUX1,1 /?CND1
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTR	" doesn't seem to see the object to which you are referring."
+?CND1:	BOR	CH-TRAINED-PIGEON-AUX1,ATT-BIT >CH-TRAINED-PIGEON-AUX1
+	ICALL2	RT-AC-CH-TRAINED-PIGEON,K-M-DESCFCN
+	ICALL2	RT-ALARM-CLR,RT-I-PIGEON-LOSE-INTEREST
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,3,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PIGEON-LOSE-INTEREST,STACK
+	BTST	CH-TRAINED-PIGEON-AUX1,1 \FALSE
+	BTST	CH-TRAINED-PIGEON-AUX1,2 \FALSE
+	CALL2	RT-ALARM-SET?,RT-I-PIGEON-IMPATIENT
+	ZERO?	STACK /?CND10
+	ICALL2	RT-ALARM-CLR,RT-I-PIGEON-IMPATIENT
+?CND10:	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	CALL	RT-ALARM-SET-REL,RT-I-PIGEON-IMPATIENT,STACK
+	RSTACK	
+
+
+	.FUNCT	RT-KILL-PIGEON
+	FCLEAR	CH-TRAINED-PIGEON,FL-ALIVE
+	SET	'CH-TRAINED-PIGEON-AUX2,0
+	LOC	CH-TRAINED-PIGEON
+	ZERO?	STACK /?CND1
+	LOC	CH-TRAINED-PIGEON
+	MOVE	TH-DEAD-PIGEON,STACK
+	REMOVE	CH-TRAINED-PIGEON
+?CND1:	ICALL2	RT-ALARM-CLR,RT-I-PIGEON-LOSE-INTEREST
+	ICALL2	RT-ALARM-CLR,RT-I-PIGEON-IMPATIENT
+	EQUAL?	GL-PLACE-CUR,RM-SHERMANS-HOUSE \?CCL5
+	CALL2	RT-SHERMAN-RAGE,FALSE-VALUE
+	RSTACK	
+?CCL5:	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,30,0
+	CALL	RT-ALARM-SET-REL,RT-I-SHERMANS-REVENGE,STACK
+	RSTACK	
+
+
+	.FUNCT	RT-PIGEON-OBJ,P-OBJ,WHO
+	MOVE	P-OBJ,CH-PLAYER
+	ICALL2	RT-THIS-IS-IT,P-OBJ
+	FSET	P-OBJ,FL-SEEN
+	FSET	P-OBJ,FL-TOUCHED
+	FCLEAR	P-OBJ,FL-NODESC
+	GETP	P-OBJ,P?VALUE
+	ZERO?	STACK /TRUE
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CND3
+	CRLF	
+	PRINT	K-BRAVO-MSG
+	CRLF	
+?CND3:	GETP	P-OBJ,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	P-OBJ,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	RT-SHERMAN-RAGE,WALK
+	CRLF	
+	ZERO?	WALK /?CND1
+	PRINTI	"As you walk into the shop, "
+?CND1:	PRINTI	"Sherman sees you and flies into a rage. ""Animal hater!"" he cries. ""You killed my bird! How could you do such a thing?"""
+	CRLF	
+	CRLF	
+	PRINTI	"With a strength you didn't know he possessed, Sherman wrestles you into one of the larger cages that line the walls of his shop."
+	CRLF	
+	CRLF	
+	PRINTI	"Over the next few days, no customers buy you. But then on Monday morning Inspector Lestrade comes in looking for a pet for his wife. ""Did you you hear about the Crown Jewels?"" he asks. ""I'm looking into it personally and I don't mind telling you I've a few theories of my own. By the way, isn't it a little cramped in there?"""
+	CRLF	
+	CRLF	
+	PRINTI	"Lestrade leaves and you decide that with him handling the case, you'd just as soon stay in the cage."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-I-PIGEON-LOSE-INTEREST
+	SET	'CH-TRAINED-PIGEON-AUX1,0
+	CALL2	RT-VISIBLE?,CH-TRAINED-PIGEON
+	ZERO?	STACK /FALSE
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTR	" seems to lose interest."
+
+
+	.FUNCT	RT-I-PIGEON-IMPATIENT
+	CALL2	RT-VISIBLE?,CH-TRAINED-PIGEON
+	ZERO?	STACK /FALSE
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTR	" looks at you as if waiting for you to let him go."
+
+
+	.FUNCT	RT-I-PIGEON-CIRCLE,CIRCLE,L
+	SET	'CIRCLE,CH-TRAINED-PIGEON-AUX2
+	LOC	CH-TRAINED-PIGEON >L
+	EQUAL?	GL-WINNER,CH-PLAYER \?PRD5
+	EQUAL?	GL-PRSA,V?WALK /?CTR2
+?PRD5:	EQUAL?	CIRCLE,3 \?CCL3
+?CTR2:	MOVE	CH-TRAINED-PIGEON,CH-SHERMAN
+	SET	'CH-TRAINED-PIGEON-AUX1,K-PIGEON-TIRED
+	SET	'CH-TRAINED-PIGEON-AUX2,0
+	MOVE	CH-TRAINED-PIGEON-AUX3,CH-SHERMAN
+	EQUAL?	L,GL-PLACE-CUR \FALSE
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL10
+	EQUAL?	GL-PRSA,V?WALK /FALSE
+?CCL10:	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTR	" circles above you for the last time, and flies out of sight."
+?CCL3:	EQUAL?	CIRCLE,1,2 \FALSE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-PIGEON-CIRCLE,STACK
+	ADD	CIRCLE,1 >CH-TRAINED-PIGEON-AUX2
+	EQUAL?	L,GL-PLACE-CUR \FALSE
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,CH-TRAINED-PIGEON
+	PRINTR	" circles above you."
+
+
+	.FUNCT	RT-I-SHERMANS-REVENGE
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL3
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-SHERMANS-REVENGE,STACK
+	RFALSE	
+?CCL3:	CRLF	
+	PRINTI	"Suddenly, you see Sherman the animal trainer running towards you. He is accompanied by a constable. Sherman is beside himself with rage. ""There they are, constable. They killed my bird. Arrest them."" The constable takes both you and Sherlock into custody, and although everything is eventually straightened out, it takes far too long for you to have enough time left to solve the mystery."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-IMPOLITE-MSG,STR1,STR2
+	PRINTI	"It isn't polite to "
+	PRINT	STR1
+	PRINTI	" without "
+	PRINT	STR2
+	PRINTR	"."
+
+
+	.FUNCT	RT-I-BIGBEN,HRS,MIN,SEC,YRS,MON,DAY,RET,?TMP1,?TMP2,?TMP3
+	FSET?	CH-PLAYER,FL-ASLEEP /FALSE
+	ZERO?	GL-WAIT-BELL /?CCL5
+	EQUAL?	GL-PRSA,V?WAIT-FOR,V?WAIT \?CCL5
+	SET	'RET,TRUE-VALUE
+	JUMP	?CND3
+?CCL5:	EQUAL?	GL-PRSA,V?WAIT-FOR,V?WAIT \?CCL9
+	EQUAL?	GL-PLACE-CUR,RM-CLOCK-TOWER /?CCL9
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,1,0,0
+	ICALL1	RT-CLOCK-INC
+	GETB	GL-TEMP-TIME,K-HRS >?TMP3
+	GETB	GL-TEMP-TIME,K-MIN >?TMP2
+	GETB	GL-TEMP-TIME,K-SEC >?TMP1
+	GETB	GL-TEMP-TIME,K-DAY
+	CALL	RT-CLOCK-CMP,?TMP3,?TMP2,?TMP1,STACK
+	EQUAL?	STACK,1 \?CND12
+	ZERO?	GL-WAIT-BELL \?CND14
+	CRLF	
+	PRINTI	"While you wait, you hear Big Ben strike each hour."
+	CRLF	
+?CND14:	SET	'RET,TRUE-VALUE
+?CND12:	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,-1,0,0
+	ICALL1	RT-CLOCK-INC
+	SET	'GL-WAIT-BELL,TRUE-VALUE
+	JUMP	?CND3
+?CCL9:	SET	'GL-WAIT-BELL,FALSE-VALUE
+?CND3:	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,1,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-BIGBEN,STACK
+	ZERO?	RET \FALSE
+	GETB	GL-TIME,K-HRS >HRS
+	EQUAL?	GL-PLACE-CUR,RM-CLOCK-TOWER /?CCL20
+	CRLF	
+	PRINTI	"In the distance, you hear Big Ben strike the hour."
+	CRLF	
+	ZERO?	SOUND-QUEUED? \FALSE
+	GRTR?	HRS,12 \?CCL26
+	SUB	HRS,12 >TH-BELL-AUX1
+	JUMP	?CND24
+?CCL26:	SET	'TH-BELL-AUX1,HRS
+?CND24:	CALL	SOUNDS,S-FARBEN,S-START,3,TH-BELL-AUX1
+	RSTACK	
+?CCL20:	GRTR?	HRS,12 \?CCL29
+	SUB	HRS,12 >TH-BELL-AUX1
+	JUMP	?CND27
+?CCL29:	SET	'TH-BELL-AUX1,HRS
+?CND27:	CALL1	RT-I-SWING-BELL
+	RSTACK	
+
+
+	.FUNCT	RT-I-SWING-BELL,OBJ,NUM,POS,WHO
+	SET	'NUM,TH-BELL-AUX1
+	SET	'POS,TH-BELL-AUX2
+	EQUAL?	GL-PLACE-CUR,RM-CLOCK-TOWER /?CND1
+	ICALL1	RT-RELIEF
+	SET	'HEARD-SWING?,FALSE-VALUE
+	SET	'TH-BELL-AUX1,0
+	SET	'TH-BELL-AUX2,K-BELL-AWAY
+	ICALL1	RT-ZERO-SECONDS
+	RFALSE	
+?CND1:	GRTR?	NUM,0 \?CND3
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,0,0,2
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,0,2
+	ICALL	RT-ALARM-SET-REL,RT-I-SWING-BELL,STACK
+?CND3:	ZERO?	HEARD-SWING? \?CND5
+	ICALL	SOUNDS,S-CLOCK,S-INIT
+?CND5:	CRLF	
+	PRINTI	"The bell swings "
+	ZERO?	POS \?CCL9
+	SET	'TH-BELL-AUX2,K-BELL-TOWARDS
+	PRINTI	"towards you, "
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL12
+	PRINTI	"ringing loudly, but the cotton protects your ears"
+	CALL1	RT-WHO-SAYS? >WHO
+	ZERO?	WHO /?CND13
+	ZERO?	HEARD-SWING? \?CND13
+	PRINTI	". "
+	ICALL2	RT-CTHEO-PRINT,WHO
+	PRINTI	" claps his hands to his ears in an attempt to protect them"
+	FIRST?	WHO \?CND13
+	ICALL	RT-MOVE-ALL,WHO,RM-CLOCK-TOWER
+	PRINTI	", dropping everything he was carrying in the process"
+?CND13:	PRINTI	". The clapper swings up within reach."
+	CRLF	
+	ICALL	SOUNDS,S-CLOCK,S-START,6
+	SET	'HEARD-SWING?,TRUE-VALUE
+	JUMP	?CND10
+?CCL12:	PRINTI	"ringing unbearably loud. BONG!"
+	ICALL2	SOUNDS,S-CLOCK
+	ZERO?	HEARD-SWING? \?CND19
+	FSET?	TH-HANDS,FL-LOCKED /?CND19
+	SET	'HEARD-SWING?,TRUE-VALUE
+	CALL1	RT-WHO-SAYS? >WHO
+	FSET	TH-HANDS,FL-LOCKED
+	ICALL	RT-MOVE-ALL-BUT-WORN,CH-PLAYER,RM-CLOCK-TOWER
+	PRINTI	" You "
+	ZERO?	WHO /?CND23
+	ICALL	RT-MOVE-ALL,WHO,RM-CLOCK-TOWER
+	PRINTI	"and "
+	ICALL2	DPRINT,WHO
+	PRINTC	32
+?CND23:	PRINTI	"clap your hands to your ears in an attempt to protect them, dropping everything you are carrying in the process."
+?CND19:	CRLF	
+?CND10:	SUB	NUM,1 >TH-BELL-AUX1
+	RETURN	TH-BELL-AUX1
+?CCL9:	SET	'TH-BELL-AUX2,K-BELL-AWAY
+	PRINTI	"away from you"
+	ZERO?	NUM \?CCL27
+	PRINTI	", finishing the ringing of the hour."
+	CRLF	
+	ICALL1	RT-RELIEF
+	CALL1	RT-ZERO-SECONDS
+	RSTACK	
+?CCL27:	PRINTR	"."
+
+
+	.FUNCT	RT-RELIEF
+	SET	'HEARD-SWING?,FALSE-VALUE
+	FSET?	TH-HANDS,FL-LOCKED \FALSE
+	FCLEAR	TH-HANDS,FL-LOCKED
+	PRINTR	"You breath a sigh of relief as you take your hands away from your ears."
+
+
+	.FUNCT	RT-ZERO-SECONDS,SEC
+	GETB	GL-TIME,K-SEC >SEC
+	ZERO?	SEC /FALSE
+	SUB	60,SEC
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,0,0,STACK
+	ICALL1	RT-CLOCK-INC
+	CALL	RT-COPY-TIME,GL-TIME,GL-TEMP-TIME
+	RSTACK	
+
+
+	.FUNCT	RT-I-EXHALE
+	FSET?	TH-BREATH,FL-LOCKED \FALSE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	ICALL	RT-ALARM-SET-REL,RT-I-INHALE,STACK
+	CRLF	
+	PRINTR	"You can't hold your breath much longer..."
+
+
+	.FUNCT	RT-I-INHALE
+	FSET?	TH-BREATH,FL-LOCKED \FALSE
+	CRLF	
+	PRINTI	"Your lungs scream for air. You take a deep breath."
+	CRLF	
+	FCLEAR	TH-BREATH,FL-LOCKED
+	SET	'RUN-SMELL-ETHERIUM?,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-I-TAKE-WATSONS-STUFF
+	FSET?	CH-AKBAR,FL-ASLEEP /FALSE
+	CRLF	
+	PRINTI	"Akbar"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND3
+	PRINTI	" apologizes to you,"
+?CND3:	PRINTI	" removes everything from your hands, and then hits you over the head. The last thing you see before losing consciousness is the look of defeat on Holmes's face."
+	CRLF	
+	CRLF	
+	PRINTI	"You awake sometime later to find yourself bound hand and foot. Moriarty is standing over you with a newspaper in his hand."
+	CRLF	
+	CRLF	
+	PRINT	K-FOUGHT-WELL-MSG
+	CRLF	
+	CRLF	
+	PRINTI	"Moriarty takes the Crown Jewels and departs, leaving you to ponder your defeat and the inevitable demise of the British Empire."
+	CRLF	
+	CRLF	
+	ICALL1	RT-QSR
+	RFALSE	
+
+
+	.FUNCT	RT-I-OUT-OF-TIME
+	CRLF	
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL3
+	PRINTI	"Outside you hear"
+	JUMP	?CND1
+?CCL3:	PRINTI	"You see"
+?CND1:	PRINTI	" the paper boy run through the streets shouting out, ""Crown Jewels stolen... the end is near."""
+	CRLF	
+	CRLF	
+	EQUAL?	GL-PLACE-CUR,RM-LAIR \?CND4
+	ICALL2	DPRINT,CH-MORIARTY
+	FSET?	CH-MORIARTY,FL-ASLEEP \?CND6
+	FCLEAR	CH-MORIARTY,FL-ASLEEP
+	PRINTI	" awakens from his stupor and"
+?CND6:	PRINTI	" says, "
+	PRINT	K-FOUGHT-WELL-MSG
+	CRLF	
+	CRLF	
+?CND4:	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-ETHERIUM-EFFECT,ASLEEP?,OBJ,TOP,CNT
+	ASSIGNED?	'TOP /?CND1
+	SET	'TOP,TRUE-VALUE
+?CND1:	ZERO?	OBJ \?PRG5
+	SET	'OBJ,GL-PLACE-CUR
+?PRG5:	ZERO?	OBJ /?REP6
+	FSET?	OBJ,FL-ALIVE \?CCL11
+	EQUAL?	OBJ,CH-PLAYER \?CTR10
+	FSET?	TH-BREATH,FL-LOCKED /?CCL11
+?CTR10:	ZERO?	ASLEEP? /?CCL18
+	EQUAL?	OBJ,CH-HOLMES \?CCL20
+	FSET?	TH-BREATH,FL-LOCKED /?CND7
+?CCL20:	FSET	OBJ,FL-ASLEEP
+	INC	'CNT
+	EQUAL?	GL-PUPPY,OBJ \?CND7
+	SET	'GL-FORMER-PUPPY,OBJ
+	SET	'GL-PUPPY,FALSE-VALUE
+	JUMP	?CND7
+?CCL18:	FCLEAR	OBJ,FL-ASLEEP
+	INC	'CNT
+	JUMP	?CND7
+?CCL11:	FIRST?	OBJ \?CND7
+	FIRST?	OBJ /?BOGUS26
+?BOGUS26:	CALL	RT-ETHERIUM-EFFECT,ASLEEP?,STACK,FALSE-VALUE
+	ADD	CNT,STACK >CNT
+?CND7:	ZERO?	TOP \?REP6
+	NEXT?	OBJ >OBJ /?PRG5
+	JUMP	?PRG5
+?REP6:	RETURN	CNT
+
+
+	.FUNCT	RT-I-WAKE-UP,OBJ
+	LOC	TH-ETHERIUM-GAS
+	ICALL	RT-ETHERIUM-EFFECT,FALSE-VALUE,STACK
+	REMOVE	TH-ETHERIUM-GAS
+	RTRUE	
+
+
+	.FUNCT	RT-SMELL-ETHERIUM?
+	LOC	TH-ETHERIUM-GAS
+	EQUAL?	GL-PLACE-CUR,STACK \FALSE
+	FSET?	TH-BREATH,FL-LOCKED /?CCL5
+	REMOVE	TH-ETHERIUM-GAS
+	CRLF	
+	PRINTI	"The etherium knocks you out."
+	CRLF	
+	CRLF	
+	FSET	CH-PLAYER,FL-ASLEEP
+	EQUAL?	GL-PLACE-CUR,RM-LAIR \?CCL8
+	ICALL2	RT-ALARM-CLR,RT-I-WAKE-UP
+	ICALL1	RT-DOES-MORIARTY-WIN
+	RTRUE	
+?CCL8:	CALL2	RT-ALARM-SET?,RT-I-WAKE-UP
+	ZERO?	STACK /?CCL11
+	COPYT	GL-TIME-PARM,GL-TIME,K-A-TWDTH
+	ICALL2	RT-ALARM-CHK,FALSE-VALUE
+	SET	'GL-CLOCK-WAIT,TRUE-VALUE
+	PRINT	K-WAKE-UP-MSG
+	CRLF	
+	JUMP	?CND9
+?CCL11:	ICALL	RT-CLOCK-JMP,6,0,0
+	PRINT	K-WAKE-UP-MSG
+	CRLF	
+?CND9:	ZERO?	GL-FORMER-PUPPY /TRUE
+	IN?	GL-FORMER-PUPPY,GL-PLACE-CUR \TRUE
+	ZERO?	GL-PUPPY \TRUE
+	FCLEAR	GL-FORMER-PUPPY,FL-ASLEEP
+	SET	'GL-PUPPY,GL-FORMER-PUPPY
+	SET	'GL-FORMER-PUPPY,FALSE-VALUE
+	RTRUE	
+?CCL5:	ZERO?	GL-PUPPY /TRUE
+	EQUAL?	GL-PUPPY,CH-HOLMES /TRUE
+	CALL	RT-ETHERIUM-EFFECT,TRUE-VALUE,GL-PUPPY
+	ZERO?	STACK /TRUE
+	ICALL2	RT-CTHEO-PRINT,GL-FORMER-PUPPY
+	PRINTR	" passes out."
+
+
+	.FUNCT	RT-FIND-FLAME,OBJ,TOP,FST
+	ASSIGNED?	'TOP /?CND1
+	SET	'TOP,TRUE-VALUE
+?CND1:	ZERO?	OBJ \?PRG5
+	SET	'OBJ,GL-PLACE-CUR
+?PRG5:	ZERO?	OBJ /FALSE
+	FSET?	OBJ,FL-BURNABLE \?CND7
+	FSET?	OBJ,FL-LIGHTED /TRUE
+?CND7:	FIRST?	OBJ >FST /?BOGUS13
+?BOGUS13:	ZERO?	FST /?CND14
+	CALL	RT-FIND-FLAME,FST,FALSE-VALUE
+	ZERO?	STACK \TRUE
+?CND14:	ZERO?	TOP \FALSE
+	NEXT?	OBJ >OBJ /?PRG5
+	JUMP	?PRG5
+
+
+	.FUNCT	RT-DOES-MORIARTY-WIN
+	FSET?	CH-MORIARTY,FL-LOCKED \?CCL3
+	FSET?	CH-AKBAR,FL-LOCKED \?CCL3
+	ICALL	RT-DO-CLOCK-SET,GL-TIME,8,30,0,20
+	ICALL2	RT-ALARM-CLR,RT-I-OUT-OF-TIME
+	ICALL2	RT-ALARM-CHK,FALSE-VALUE
+	SET	'GL-CLOCK-WAIT,TRUE-VALUE
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,9,0,0,20
+	ICALL	RT-ALARM-SET-ABS,RT-I-OUT-OF-TIME,STACK
+	PRINTI	"You awaken slowly and stumble to your feet. Moriarty and Akbar have already recovered, and they are struggling fiercely to free themselves. It seems as if you were unconscious for quite a while, but it's hard to tell. You probably don't have a lot of time."
+	CRLF	
+	FCLEAR	CH-PLAYER,FL-ASLEEP
+	FCLEAR	CH-HOLMES,FL-ASLEEP
+	FCLEAR	CH-AKBAR,FL-ASLEEP
+	FCLEAR	CH-MORIARTY,FL-ASLEEP
+	RTRUE	
+?CCL3:	PRINTI	"Unfortunately, Moriarty and Akbar recovered before you did. You find yourself bound securely to Holmes."
+	CRLF	
+	CRLF	
+	PRINTI	"Moriarty looks at you and says, "
+	PRINT	K-FOUGHT-WELL-MSG
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-PROCESS-PASSWORD
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-DENKEEPER
+	IN?	TH-CARNATION,TH-LAPEL \?CCL6
+	FSET?	CH-AKBAR,FL-SEEN /?CCL6
+	CALL	RT-CLOCK-CMP,2,0,0,20
+	EQUAL?	STACK,-1,0 \?CCL6
+	FSET	CH-AKBAR,FL-SEEN
+	MOVE	CH-AKBAR,RM-BAR-OF-GOLD
+	PRINTI	" disappears into a back room and reappears moments later, accompanied by a tall, silent man who has dark skin and wears a white turban."
+	CRLF	
+	CRLF	
+	PRINTI	"The Indian glances at your "
+	FSET?	TH-WATSONS-HAT,FL-WORN /?CND10
+	PRINTI	"uncovered "
+?CND10:	PRINTI	"head and then intones, ""I am Akbar"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND12
+	PRINTI	", honourable sir"
+?CND12:	PRINTR	". What is it that you wish?"""
+?CCL6:	PRINTR	" says, ""Not now, mate. Can't you see I'm busy?"""
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-BYWARD-TOWER \?CCL15
+	ICALL2	RT-CTHEO-PRINT,CH-TOWER-GUARD
+	PRINTR	" pauses and looks at you strangely. Then he says, ""An interesting guess. But wrong."""
+?CCL15:	PRINTR	"Thatsa no swordfish. Thatsa duck."
+
+
+	.FUNCT	V-SWORDFISH
+	CALL1	RT-PROCESS-PASSWORD
+	RSTACK	
+
+
+	.FUNCT	RT-ROPE-MSG
+	PRINTI	"As"
+	ICALL	RT-YOU-MSG,STR?769,STR?770
+	PRINTI	"for "
+	ICALL2	RT-THEO-PRINT,TH-ROPE
+	PRINTI	", Akbar"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND1
+	PRINTI	" says, ""Pardon me, honourable sir,"" and"
+?CND1:	PRINTI	" hits you over the head."
+	CRLF	
+	CRLF	
+	PRINTI	"When you regain consciousness, you find that your hands and feet are bound. Outside you hear the paper boy run through the streets shouting out ""Crown Jewels stolen! Prime Minister resigns in disgrace!"""
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-INSCRIPTION-APPEARS-MSG
+	PRINTR	"After a few moments, the tomb's inscription comes through onto the piece of paper."
+
+
+	.FUNCT	RT-PROCESS-TOMB,TOMB-NUMBER
+	EQUAL?	GL-PRSA,V?READ \?CCL3
+	CALL2	RT-READ-INSCRIPTION,TOMB-NUMBER
+	RSTACK	
+?CCL3:	EQUAL?	GL-PRSA,V?TRANSLATE \?CCL5
+	PRINTR	"Unfortunately, what little Latin you remember from your school days is limited to medical matters."
+?CCL5:	EQUAL?	GL-PRSA,V?RUB-WITH \?CCL7
+	PRINTR	"Rubbing the paper with the crayon would probably yield better results."
+?CCL7:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL9
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?227,TH-IT
+	PRINTR	" first."
+?CCL9:	EQUAL?	GL-PRSA,V?OPEN \?CCL11
+	PRINTR	"Getting just a little bit morbid, aren't we?"
+?CCL11:	EQUAL?	GL-PRSA,V?TOUCH \?CCL13
+	EQUAL?	TOMB-NUMBER,1,2,3 \?CCL16
+	PRINTR	"It feels a little sticky."
+?CCL16:	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTI	"not feel anything "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	PRINTR	"."
+?CCL13:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-SHOOT-DEAD-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-READ-INSCRIPTION,NUM
+	PRINTI	"The inscription"
+	EQUAL?	2,NUM \?CCL3
+	PRINTI	" reads, ""ISAACVS NEWTON  Eques Auratus"
+	JUMP	?CND1
+?CCL3:	EQUAL?	1,NUM \?CCL5
+	PRINTI	" reads, ""REGNO CONSORTES & VRNA HIC OBDOR MIMVS ELIZABETHA ET MARIA SORORES IN SPE RESVRRECTIONIS"
+	JUMP	?CND1
+?CCL5:	EQUAL?	7,NUM \?CCL7
+	PRINTI	" is a long one, but in the middle of it you see the name ""GALFRIDVS CHAVCER"
+	JUMP	?CND1
+?CCL7:	EQUAL?	9,NUM \?CCL9
+	PRINTI	"s are written in Latin, but you can make out the names ""Edward V"" and ""Richard, Duke of York"
+	JUMP	?CND1
+?CCL9:	PRINTI	" is written in Latin, but you can make out the name """
+	EQUAL?	3,NUM \?CCL12
+	PRINTI	"Henry V"
+	JUMP	?CND1
+?CCL12:	EQUAL?	4,NUM \?CCL14
+	PRINTI	"Edward the Confessor"
+	JUMP	?CND1
+?CCL14:	EQUAL?	5,NUM \?CCL16
+	PRINTI	"Alexander Pope"
+	JUMP	?CND1
+?CCL16:	EQUAL?	6,NUM \?CCL18
+	PRINTI	"Charles Dickens"
+	JUMP	?CND1
+?CCL18:	EQUAL?	8,NUM \?CCL20
+	PRINTI	"Anne of Cleves"
+	JUMP	?CND1
+?CCL20:	EQUAL?	10,NUM \?CCL22
+	PRINTI	"Mary, Queen of Scots"
+	JUMP	?CND1
+?CCL22:	EQUAL?	11,NUM \?CCL24
+	PRINTI	"Henry VII"
+	JUMP	?CND1
+?CCL24:	EQUAL?	12,NUM \?CCL26
+	PRINTI	"Pitt"
+	JUMP	?CND1
+?CCL26:	EQUAL?	13,NUM \?CND1
+	PRINTI	"Francis Vere"
+?CND1:	PRINTR	"."""
+
+
+	.FUNCT	RT-READ-PAPER,PAPER-NAME,WRITING,PHEAT
+	ZERO?	WRITING \?CCL3
+	PRINTR	"The paper appears to be blank."
+?CCL3:	GETP	PAPER-NAME,P?FLIPPED
+	ZERO?	STACK \?CCL6
+	ICALL2	RT-READ-INSCRIPTION,WRITING
+	RTRUE	
+?CCL6:	ZERO?	PHEAT \?CCL9
+	PRINTR	"This side appears to be blank."
+?CCL9:	EQUAL?	1,PHEAT \?CCL11
+	PRINTR	"You see a faint discolouration."
+?CCL11:	EQUAL?	2,PHEAT \TRUE
+	EQUAL?	1,WRITING \?CCL15
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Hickory Dickory Dock."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Your enemy is the clock."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"When it strikes nine,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"The victory's mine."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Hickory Dickory Dock."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Here comes a candle to light you to bed."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Here comes a chopper"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"to chop off your head."
+	CRLF	
+	FSET	PAPER-NAME,FL-LOCKED
+	BOR	TH-PACKET-OF-PAPER-AUX1,1 >TH-PACKET-OF-PAPER-AUX1
+	JUMP	?CND13
+?CCL15:	EQUAL?	2,WRITING \?CCL17
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"London Bridge is falling down."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"All that's under it will drown."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"With it falls Victoria's reign."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Britannia ne'er to rule again."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"When a number you require,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"And you're banking all thereon."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Subtract the conquest from the fire,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Half a league, half a league."
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"Half a league on."
+	CRLF	
+	FSET	PAPER-NAME,FL-LOCKED
+	BOR	TH-PACKET-OF-PAPER-AUX1,2 >TH-PACKET-OF-PAPER-AUX1
+	JUMP	?CND13
+?CCL17:	EQUAL?	3,WRITING \?CND13
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-TWINKLE-MSG
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Fought at sea, midst masts and spars."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Now above the world so high,"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Looking down with watchful eye."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-TWINKLE-MSG
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"England's hero, prince of tars."
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINT	K-ASTERISK-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Pussycat, pussycat,"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"where have you been?"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"I've been to the Tower"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"to look at the Queen."
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"Pussycat, pussycat,"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"what did you there?"
+	CRLF	
+	ICALL1	RT-INDENT-PRINT
+	PRINTI	"I left something for you."
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"Go back, if you dare."
+	CRLF	
+	FSET	PAPER-NAME,FL-LOCKED
+	BOR	TH-PACKET-OF-PAPER-AUX1,4 >TH-PACKET-OF-PAPER-AUX1
+?CND13:	FSET?	TH-PACKET-OF-PAPER,FL-ASLEEP /?CCL21
+	FSET	TH-PACKET-OF-PAPER,FL-ASLEEP
+	ICALL2	RT-UPDATE-SCORE,5
+	RTRUE	
+?CCL21:	EQUAL?	TH-PACKET-OF-PAPER-AUX1,7 \TRUE
+	CALL1	RT-WHO-SAYS?
+	EQUAL?	STACK,CH-HOLMES \TRUE
+	SET	'TH-PACKET-OF-PAPER-AUX1,15
+	CRLF	
+	PRINTR	"Holmes leans forward with an excited expression upon his hawk-like features and says, ""There is only one man in all London clever enough to plan this, Watson - Professor Moriarty. See how boldly he hides clues in public places, knowing all the while that they will remain hidden from the casual eye. Onward, Doctor. Let us solve these riddles and see what the good Professor has in mind for us."""
+
+
+	.FUNCT	RT-PROCESS-PAPER,PAPER-NAME,WRITING,PHEAT
+	GETP	PAPER-NAME,P?INSCRIPTION >WRITING
+	GETP	PAPER-NAME,P?HEATED >PHEAT
+	EQUAL?	GL-PRSA,V?TAKE \?CCL3
+	LOC	PAPER-NAME
+	EQUAL?	STACK,TH-ELIZABETH-TOMB,TH-NEWTON-TOMB,TH-HENRY-V-TOMB \FALSE
+	EQUAL?	WRITING,1,2,3 \FALSE
+	PRINTI	"You pick at the paper for a few seconds, but it seems to be stuck to the inscription. After a few seconds you manage to peel it off."
+	CRLF	
+	MOVE	PAPER-NAME,CH-PLAYER
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?RAISE \?PRD12
+	EQUAL?	GL-PRSO,PAPER-NAME \?PRD12
+	CALL2	RT-VISIBLE?,LG-SHAFT-OF-LIGHT
+	ZERO?	STACK \?CTR9
+?PRD12:	EQUAL?	GL-PRSA,V?PUT \?PRD16
+	EQUAL?	GL-PRSO,PAPER-NAME \?PRD16
+	EQUAL?	GL-PRSI,LG-SHAFT-OF-LIGHT /?CTR9
+?PRD16:	EQUAL?	GL-PRSA,V?TOUCH-TO \?CCL10
+	EQUAL?	GL-PRSI,LG-SHAFT-OF-LIGHT /?CTR9
+	EQUAL?	GL-PRSI,TH-LAMP \?CCL10
+	FSET?	TH-LAMP,FL-LIGHTED \?CCL10
+?CTR9:	EQUAL?	PHEAT,1 \?CCL28
+	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	PRINTI	"a discolouration"
+	GETP	PAPER-NAME,P?FLIPPED
+	ZERO?	STACK \?CND26
+	PRINTI	" which appears to be on the back"
+	JUMP	?CND26
+?CCL28:	EQUAL?	PHEAT,2 \?CCL32
+	PRINTI	"There seems to be some writing"
+	GETP	PAPER-NAME,P?FLIPPED
+	ZERO?	STACK \?CND26
+	PRINTI	" on the back"
+	JUMP	?CND26
+?CCL32:	EQUAL?	WRITING,1,2,3 \?CCL36
+	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	PRINTI	"a faint discolouration"
+	JUMP	?CND26
+?CCL36:	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	PRINTI	"a watermark"
+?CND26:	PRINTR	"."
+?CCL10:	EQUAL?	GL-PRSA,V?HEAT,V?HOLD-OVER,V?LIGHT-WITH /?CTR37
+	EQUAL?	GL-PRSA,V?BURN-WITH,V?TOUCH-TO \?CCL38
+?CTR37:	IN?	PAPER-NAME,GL-WINNER /?CCL43
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-THEO-PRINT,PAPER-NAME
+	PRINTR	"."
+?CCL43:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH,V?TOUCH-TO /?CCL45
+	EQUAL?	GL-PRSI,TH-BANK-OF-CANDLES \?CCL45
+	PRINTI	"The paper is heated by the bank of candles"
+	GETP	PAPER-NAME,P?HEATED
+	EQUAL?	STACK,2 \?CCL50
+	EQUAL?	WRITING,1,2,3 \?CCL50
+	PRINTI	", but nothing more appears"
+	JUMP	?CND48
+?CCL50:	EQUAL?	WRITING,1,2,3 \?CND48
+	PUTP	PAPER-NAME,P?HEATED,2
+	PRINTI	". Something seems to be gradually appearing on "
+	GETP	PAPER-NAME,P?FLIPPED
+	ZERO?	STACK \?CND54
+	PRINTI	"the back of "
+?CND54:	ICALL2	RT-THEO-PRINT,PAPER-NAME
+?CND48:	PRINTR	"."
+?CCL45:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH,V?TOUCH-TO /?CCL57
+	EQUAL?	GL-PRSI,TH-PIPE,TH-TOBACCO,TH-MATCH \?CCL57
+	EQUAL?	GL-PRSI,TH-PIPE,TH-TOBACCO \?PRD64
+	FSET?	TH-TOBACCO,FL-LIGHTED /?CTR61
+?PRD64:	EQUAL?	GL-PRSI,TH-MATCH \?CCL62
+	FSET?	TH-MATCH,FL-LIGHTED \?CCL62
+?CTR61:	PRINTI	"The paper is warmed by "
+	ICALL1	RT-THEI-PRINT
+	PRINTC	46
+	CRLF	
+	EQUAL?	WRITING,1,2,3 \TRUE
+	ZERO?	PHEAT \TRUE
+	PUTP	PAPER-NAME,P?HEATED,1
+	RTRUE	
+?CCL62:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"lit."
+?CCL57:	FSET?	GL-PRSI,FL-BURNABLE \?PRD75
+	FSET?	GL-PRSI,FL-LIGHTED /?CCL73
+?PRD75:	EQUAL?	GL-PRSI,TH-PIPE \?PRD78
+	FSET?	TH-TOBACCO,FL-LIGHTED /?CCL73
+?PRD78:	EQUAL?	GL-PRSI,PSEUDO-OBJECT \FALSE
+	GETP	GL-PRSI,P?ACTION
+	EQUAL?	STACK,RT-AC-TH-FIREPLACE \FALSE
+?CCL73:	PRINTI	"The paper catches fire quickly."
+	EQUAL?	WRITING,1,2,3 \?CND83
+	FSET?	PAPER-NAME,FL-LOCKED /?CND83
+	PRINTI	" As it burns, you catch a glimpse of writing you could swear hadn't been there before."
+?CND83:	CRLF	
+	CRLF	
+	ICALL2	RT-CTHEO-PRINT,PAPER-NAME
+	PRINTI	" vanishes in a poof of smoke."
+	CRLF	
+	REMOVE	PAPER-NAME
+	RTRUE	
+?CCL38:	EQUAL?	GL-PRSA,V?READ,V?EXAMINE \?CCL88
+	IN?	PAPER-NAME,TH-PACKET-OF-PAPER \?CND89
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"cannot do that while it is in the pacquet of paper."
+?CND89:	GET	GL-P-OFW,0
+	EQUAL?	STACK,W?BACK \?CND91
+	ICALL	RT-PERFORM,V?FLIP,GL-PRSO
+	RTRUE	
+?CND91:	ICALL	RT-READ-PAPER,PAPER-NAME,WRITING,PHEAT
+	RTRUE	
+?CCL88:	EQUAL?	GL-PRSA,V?FLIP \?CCL94
+	IN?	PAPER-NAME,GL-WINNER /?CCL97
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL2	RT-THEO-PRINT,PAPER-NAME
+	PRINTR	"."
+?CCL97:	ZERO?	WRITING \?CCL99
+	ICALL2	RT-CTHEO-PRINT,PAPER-NAME
+	PRINTR	" seems to be blank on both sides."
+?CCL99:	ICALL	RT-CYOU-MSG,STR?804,STR?805
+	ICALL2	RT-THEO-PRINT,PAPER-NAME
+	PRINTI	" over."
+	CRLF	
+	CRLF	
+	GETP	PAPER-NAME,P?FLIPPED
+	SUB	1,STACK
+	PUTP	PAPER-NAME,P?FLIPPED,STACK
+	ICALL	RT-READ-PAPER,PAPER-NAME,WRITING,PHEAT
+	RTRUE	
+?CCL94:	EQUAL?	GL-PRSA,V?RUB-WITH \?CCL101
+	EQUAL?	GL-PRSO,PAPER-NAME \FALSE
+	EQUAL?	GL-PRSI,TH-CRAYON /?CCL106
+	PRINTI	"Rubbing the paper with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	" doesn't do anything."
+?CCL106:	ZERO?	WRITING /?CCL108
+	PRINTR	"You don't really want to do that. You would mess up your inscription."
+?CCL108:	FIRST?	PAPER-NAME \?CCL110
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot do a rubbing while there is something on "
+	ICALL2	RT-THEO-PRINT,PAPER-NAME
+	PRINTR	"."
+?CCL110:	IN?	PAPER-NAME,TH-ELIZABETH-TOMB \?CCL112
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,1
+	RTRUE	
+?CCL112:	IN?	PAPER-NAME,TH-NEWTON-TOMB \?CCL114
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,2
+	RTRUE	
+?CCL114:	IN?	PAPER-NAME,TH-HENRY-V-TOMB \?CCL116
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,3
+	RTRUE	
+?CCL116:	IN?	PAPER-NAME,TH-EDWARD-TOMB \?CCL118
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,4
+	RTRUE	
+?CCL118:	IN?	PAPER-NAME,TH-POPE-TOMB \?CCL120
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,5
+	RTRUE	
+?CCL120:	IN?	PAPER-NAME,TH-DICKENS-TOMB \?CCL122
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,6
+	RTRUE	
+?CCL122:	IN?	PAPER-NAME,TH-CHAUCER-TOMB \?CCL124
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,7
+	RTRUE	
+?CCL124:	IN?	PAPER-NAME,TH-ANNE-OF-CLEVES-TOMB \?CCL126
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,8
+	RTRUE	
+?CCL126:	IN?	PAPER-NAME,TH-LITTLE-PRINCES-TOMB \?CCL128
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,9
+	RTRUE	
+?CCL128:	IN?	PAPER-NAME,TH-MARY-QUEEN-OF-SCOTS-TOMB \?CCL130
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,10
+	RTRUE	
+?CCL130:	IN?	PAPER-NAME,TH-HENRY-VII-TOMB \?CCL132
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,11
+	RTRUE	
+?CCL132:	IN?	PAPER-NAME,TH-PITT-TOMB \?CCL134
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,12
+	RTRUE	
+?CCL134:	IN?	PAPER-NAME,TH-VERE-TOMB \?CCL136
+	ICALL1	RT-INSCRIPTION-APPEARS-MSG
+	PUTP	PAPER-NAME,P?INSCRIPTION,13
+	RTRUE	
+?CCL136:	PRINTI	"Rubbing "
+	ICALL2	RT-THEO-PRINT,PAPER-NAME
+	PRINTI	" while it is"
+	LOC	PAPER-NAME
+	LOC	STACK
+	EQUAL?	STACK,ROOMS \?CCL139
+	PRINTI	" on "
+	LOC	PAPER-NAME
+	FSET?	STACK,FL-INDOORS \?CCL142
+	ICALL1	TELL-THE-FLOOR
+	JUMP	?CND137
+?CCL142:	ICALL1	TELL-THE-GROUND
+	JUMP	?CND137
+?CCL139:	LOC	PAPER-NAME
+	ICALL2	RT-IN-ON-MSG,STACK
+	LOC	PAPER-NAME
+	ICALL2	RT-THEO-PRINT,STACK
+?CND137:	PRINTI	" would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+?CCL101:	EQUAL?	GL-PRSA,V?LOOK-THRU \?CCL144
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS \?CCL144
+	PRINTI	"All"
+	ICALL	RT-YOU-MSG,STR?665,STR?666
+	PRINTR	"is a faint watermark."
+?CCL144:	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	FIRST?	PAPER-NAME \FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL2	RT-WOULD-HAVE-TO-MSG,STR?697
+	FIRST?	PAPER-NAME /?BOGUS150
+?BOGUS150:	ICALL2	RT-THEO-PRINT,STACK
+	PRINTI	" off of "
+	ICALL2	RT-THEO-PRINT,PAPER-NAME
+	PRINTR	" first."
+
+
+	.FUNCT	RT-PAPER-WARMING,PAPER-NAME
+	IN?	PAPER-NAME,CH-PLAYER \FALSE
+	GETP	PAPER-NAME,P?INSCRIPTION
+	EQUAL?	STACK,1,2,3 \FALSE
+	GETP	PAPER-NAME,P?HEATED
+	ZERO?	STACK \FALSE
+	PUTP	PAPER-NAME,P?HEATED,1
+	RFALSE	
+
+
+	.FUNCT	RT-I-FLASH-WESTMINSTER-LIGHTS
+	ZERO?	PLAYER-IN-ABBEY /FALSE
+	CRLF	
+	PRINTR	"The lights flicker off and on, and you remember that the Abbey closes at six o'clock."
+
+
+	.FUNCT	RT-I-WESTMINSTER-LIGHTS-ON
+	FSET	RM-NAVE,FL-LIGHTED
+	FSET	RM-SOUTH-AISLE,FL-LIGHTED
+	FSET	RM-JERICHO-PARLOUR,FL-LIGHTED
+	FSET	RM-JERUSALEM-CHAMBER,FL-LIGHTED
+	FSET	RM-NORTH-CLOISTER,FL-LIGHTED
+	FSET	RM-NORTH-TRANSEPT,FL-LIGHTED
+	FSET	RM-SOUTH-TRANSEPT,FL-LIGHTED
+	FSET	RM-EVANGELIST-CHAPEL,FL-LIGHTED
+	FSET	RM-NORTH-AMBULATORY,FL-LIGHTED
+	FSET	RM-SANCTUARY,FL-LIGHTED
+	FSET	RM-SOUTH-AMBULATORY,FL-LIGHTED
+	FSET	RM-POETS-CORNER,FL-LIGHTED
+	FSET	RM-NORTH-CHAPEL-AISLE,FL-LIGHTED
+	FSET	RM-HENRY-VII-CHAPEL,FL-LIGHTED
+	FSET	RM-SOUTH-CHAPEL-AISLE,FL-LIGHTED
+	FSET	RM-CONFESSOR-CHAPEL,FL-LIGHTED
+	FSET	RM-INNOCENTS-CORNER,FL-LIGHTED
+	ZERO?	PLAYER-IN-ABBEY /FALSE
+	CRLF	
+	PRINTR	"The lights come on."
+
+
+	.FUNCT	RT-I-WESTMINSTER-LIGHTS-OFF
+	FCLEAR	RM-NAVE,FL-LIGHTED
+	FCLEAR	RM-SOUTH-AISLE,FL-LIGHTED
+	FCLEAR	RM-JERICHO-PARLOUR,FL-LIGHTED
+	FCLEAR	RM-JERUSALEM-CHAMBER,FL-LIGHTED
+	FCLEAR	RM-NORTH-CLOISTER,FL-LIGHTED
+	FCLEAR	RM-NORTH-TRANSEPT,FL-LIGHTED
+	FCLEAR	RM-SOUTH-TRANSEPT,FL-LIGHTED
+	FCLEAR	RM-EVANGELIST-CHAPEL,FL-LIGHTED
+	FCLEAR	RM-NORTH-AMBULATORY,FL-LIGHTED
+	FCLEAR	RM-SANCTUARY,FL-LIGHTED
+	FCLEAR	RM-SOUTH-AMBULATORY,FL-LIGHTED
+	FCLEAR	RM-POETS-CORNER,FL-LIGHTED
+	FCLEAR	RM-NORTH-CHAPEL-AISLE,FL-LIGHTED
+	FCLEAR	RM-HENRY-VII-CHAPEL,FL-LIGHTED
+	FCLEAR	RM-SOUTH-CHAPEL-AISLE,FL-LIGHTED
+	FCLEAR	RM-CONFESSOR-CHAPEL,FL-LIGHTED
+	FCLEAR	RM-INNOCENTS-CORNER,FL-LIGHTED
+	ZERO?	PLAYER-IN-ABBEY /FALSE
+	CRLF	
+	PRINTR	"The lights go out."
+
+
+	.FUNCT	RT-I-LOCKED-IN-END-GAME
+	ZERO?	PLAYER-IN-ABBEY /FALSE
+	CRLF	
+	PRINTI	"In the distance you hear the huge door of the Abbey clang shut. You run to the Nave, only to discover that you have been locked in. After spending a spooky night in the Abbey, you emerge in the morning to discover that the theft of the Crown Jewels has been discovered."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+
+
+	.FUNCT	RT-I-OPEN-WESTMINSTER-DOOR
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,11,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-CLOSE-WESTMINSTER-DOOR,STACK
+	FSET	LG-WESTMINSTER-DOOR,FL-OPENED
+	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY \?CCL3
+	CRLF	
+	PRINTR	"A verger appears, unlocks the huge door, and pushes it open."
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-NAVE \FALSE
+	CRLF	
+	PRINTR	"Suddenly you hear the west door opening. The sunlight streaming in the door blinds you after your night-long vigil. A verger enters, gives you a strange look, and disappears into the South Aisle."
+
+
+	.FUNCT	RT-I-CLOSE-WESTMINSTER-DOOR
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,13,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-OPEN-WESTMINSTER-DOOR,STACK
+	FCLEAR	LG-WESTMINSTER-DOOR,FL-OPENED
+	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY \?CCL3
+	CRLF	
+	PRINTR	"The verger says goodnight and closes the door."
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-NAVE \FALSE
+	SET	'PLAYER-IN-ABBEY,FALSE-VALUE
+	CRLF	
+	PRINTI	"A verger comes up to you and coughs deferentially. ""I'm sorry sir, but it's six o'clock and I have to close up now."" He escorts you to the door and closes it behind you as you exit."
+	CRLF	
+	CRLF	
+	CALL2	RT-GOTO,RM-BROAD-SANCTUARY
+	RSTACK	
+
+
+	.FUNCT	RT-CF-TH-BOAT,CONTEXT
+	EQUAL?	GL-PRSA,V?WALK \?CCL3
+	EQUAL?	GL-P-WALK-DIR,P?OUT \?CCL3
+	CALL	RT-PERFORM,V?EXIT,TH-BOAT
+	RSTACK	
+?CCL3:	EQUAL?	GL-PRSA,V?WALK \?CCL7
+	EQUAL?	GL-P-WALK-DIR,P?NORTH \?CCL7
+	EQUAL?	GL-PLACE-CUR,RM-THE-EMBANKMENT,RM-OUTSIDE-TRAITORS-GATE \?CCL7
+	PRINT	K-GET-OUT-FIRST-MSG
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	EQUAL?	GL-PRSO,TH-BOAT /FALSE
+	PRINT	K-GET-OUT-FIRST-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-PROCESS-BOAT-ON-THAMES,UP?,WRD
+	IN?	TH-ANCHOR,TH-BOAT \?CND1
+	CALL2	RT-ALARM-SET?,RT-I-MOVE-DOWNSTREAM
+	ZERO?	STACK \?CND1
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-MOVE-DOWNSTREAM,STACK
+?CND1:	EQUAL?	GL-PRSA,V?EXIT,V?SWIM \?PRD9
+	EQUAL?	GL-PRSO,ROOMS,TH-BOAT /?CTR6
+?PRD9:	EQUAL?	GL-PRSA,V?LEAP,V?CLIMB-DOWN,V?ENTER \?CCL7
+	EQUAL?	GL-PRSO,LG-WATER \?CCL7
+?CTR6:	ICALL	RT-CYOU-MSG,STR?813,STR?814
+	PRINTI	"out of the boat, and then suddenly remember that you can't swim. Unable to climb back in, you cling to the boat for hours, until you are rescued by a Scotland Yard launch. Naturally, Lestrade is aboard, and as he bundles you off to the hospital to recover from the dread disease you caught while floating in the river, he tells you that he - personally - will take on the case."
+	CRLF	
+	CRLF	
+	PRINTI	"Somehow this doesn't make you feel any better."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+?CCL7:	EQUAL?	GL-PRSA,V?ROW,V?PADDLE,V?PADDLE-WITH \?CCL15
+	EQUAL?	GL-PRSO,FALSE-VALUE,ROOMS,TH-BOAT \?PRD20
+	EQUAL?	GL-PRSI,FALSE-VALUE /?CTR17
+?PRD20:	EQUAL?	GL-PRSA,V?PADDLE-WITH \?CCL18
+	EQUAL?	GL-PRSI,FALSE-VALUE \?CCL18
+?CTR17:	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	PRINTI	"[Please specify a direction to "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	".]"
+?CCL18:	EQUAL?	GL-PRSO,LG-UP-DOWN-STREAM /?CTR25
+	EQUAL?	GL-PRSO,TH-INTDIR \?PRD29
+	EQUAL?	GL-P-DIRECTION,P?WEST,P?EAST /?CTR25
+?PRD29:	EQUAL?	GL-PRSO,TH-BOAT \?CCL26
+	EQUAL?	GL-PRSI,TH-INTDIR \?CCL26
+?CTR25:	EQUAL?	GL-PRSO,LG-UP-DOWN-STREAM \?PRD36
+	GETP	GL-PRSO,P?OBJ-NOUN
+	EQUAL?	STACK,W?UPSTREAM /?PST35
+?PRD36:	EQUAL?	GL-P-DIRECTION,P?WEST /?PRD39
+	PUSH	0
+	JUMP	?PRD40
+?PRD39:	PUSH	1
+?PRD40:	SET	'UP?,STACK
+	JUMP	?PEN34
+?PST35:	SET	'UP?,1
+?PEN34:	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	IN?	TH-ANCHOR,TH-BOAT /?CCL43
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	" like blue blazes, but the anchor is restraining the boat."
+?CCL43:	EQUAL?	GL-PRSA,V?ROW \?CCL45
+	IN?	TH-OAR-2,TH-OAR-LOCK /?CCL45
+	IN?	TH-OAR-1,TH-BOAT \?CCL50
+	ICALL	RT-CYOU-MSG,STR?815,STR?816
+	PRINTR	"hard on the oar. The boat spins round and round. Wheeeee!"
+?CCL50:	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTR	"not have any oars."
+?CCL45:	EQUAL?	GL-PRSA,V?PADDLE-WITH \?CCL52
+	EQUAL?	GL-PRSI,TH-PADDLE /?CCL52
+	EQUAL?	GL-PRSI,TH-VIOLIN /FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't paddle with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL52:	EQUAL?	GL-PRSA,V?PADDLE,V?PADDLE-WITH \?CCL59
+	IN?	TH-PADDLE,GL-WINNER /?CCL59
+	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTI	"not have "
+	ICALL2	RT-A-PRINT,TH-PADDLE
+	PRINTR	"."
+?CCL59:	ZERO?	UP? /?CCL63
+	ICALL1	RT-MOVE-UPSTREAM
+	RTRUE	
+?CCL63:	ICALL1	RT-I-MOVE-DOWNSTREAM
+	RTRUE	
+?CCL26:	EQUAL?	GL-PRSO,TH-INTDIR /?PRD67
+	EQUAL?	GL-PRSI,TH-INTDIR \?CCL65
+?PRD67:	EQUAL?	GL-P-DIRECTION,P?NORTH \?CCL65
+	ICALL1	RT-LAND-BOAT
+	RTRUE	
+?CCL65:	EQUAL?	GL-PRSO,TH-INTDIR /?CTR70
+	EQUAL?	GL-PRSI,TH-INTDIR \?CCL71
+?CTR70:	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	PRINTR	"There doesn't seem to be anything in that direction."
+?CCL71:	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	PRINTI	"I don't recognize the direction you are asking me to "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	"."
+?CCL15:	EQUAL?	GL-PRSA,V?STAND,V?STAND-ON \?CCL75
+	PRINTR	"It isn't safe to stand in a boat."
+?CCL75:	EQUAL?	GL-PRSA,V?SIT \?CCL77
+	PRINTR	"You're already seated."
+?CCL77:	EQUAL?	GL-PRSA,V?LEAP \?CCL79
+	PRINTR	"It isn't safe to jump around in a boat."
+?CCL79:	EQUAL?	TH-FLOOR-ETC,GL-PRSO,GL-PRSI \FALSE
+	CALL2	RT-IDENTIFY-FLOOR?,W?FLOOR
+	ZERO?	STACK \?CCL81
+	CALL2	RT-IDENTIFY-FLOOR?,W?GROUND
+	ZERO?	STACK /FALSE
+?CCL81:	PRINTI	"There is no "
+	ICALL2	DPRINT,TH-FLOOR-ETC
+	PRINTR	" in the middle of a river."
+
+
+	.FUNCT	RT-I-MOVE-DOWNSTREAM
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL3
+	EQUAL?	GL-PRSA,V?ROW \?CCL3
+	ICALL	RT-CYOU-MSG,STR?817,STR?818
+	JUMP	?CND1
+?CCL3:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL7
+	EQUAL?	GL-PRSA,V?PADDLE,V?PADDLE-WITH \?CCL7
+	ICALL	RT-CYOU-MSG,STR?819,STR?820
+	JUMP	?CND1
+?CCL7:	CRLF	
+	PRINTI	"The boat drifts "
+?CND1:	PRINTI	"down the river"
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	LOC	TH-BOAT
+	EQUAL?	STACK,RM-THAMES-ONE,RM-THAMES-TWO,RM-THAMES-THREE /?CCL11
+	LOC	TH-BOAT
+	EQUAL?	STACK,RM-THAMES-FOUR \?CND10
+?CCL11:	PRINTI	". "
+?CND10:	IN?	TH-BOAT,RM-THAMES-ONE \?CCL16
+	MOVE	TH-BOAT,RM-THAMES-TWO
+	ZERO?	GL-NOW-LIT? /?CND14
+	PRINTI	"Downstream you see the London Bridge."
+	JUMP	?CND14
+?CCL16:	IN?	TH-BOAT,RM-THAMES-TWO \?CCL20
+	MOVE	TH-BOAT,RM-THAMES-THREE
+	ZERO?	GL-NOW-LIT? /?CND14
+	PRINTI	"You pass under the London Bridge."
+	JUMP	?CND14
+?CCL20:	IN?	TH-BOAT,RM-THAMES-THREE \?CCL24
+	MOVE	TH-BOAT,RM-THAMES-FOUR
+	ZERO?	GL-NOW-LIT? /?CND14
+	PRINTI	"To the north you see the Traitors Gate."
+	JUMP	?CND14
+?CCL24:	IN?	TH-BOAT,RM-THAMES-FOUR \?CCL28
+	MOVE	TH-BOAT,RM-THAMES-FIVE
+	ZERO?	GL-NOW-LIT? /?CND14
+	PRINTI	"Downstream you see the open seas... the strong currents would surely leave you stranded in your small boat if you were to drift further."
+	JUMP	?CND14
+?CCL28:	IN?	TH-BOAT,RM-THAMES-FIVE \?CND14
+	PRINTI	", and you drift out to sea."
+	CRLF	
+	CRLF	
+	PRINTI	"After drifting for several days, a passing ship rescues you. By coincidence, another passenger happens to be Lestrade, who has resigned in the wake of the Crown Jewel scandal and is retiring to the island of Pago Pago. After some reflection, you decide to join him."
+	CRLF	
+	CRLF	
+	ICALL1	RT-QSR
+?CND14:	LOC	TH-BOAT >GL-PLACE-CUR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-MOVE-UPSTREAM
+	PRINTI	"Fighting against the current, you "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTI	" upstream. "
+	CALL1	RT-IS-LIT? >GL-NOW-LIT?
+	IN?	TH-BOAT,RM-THAMES-ONE \?CCL3
+	CRLF	
+	CRLF	
+	PRINTI	"As you proceed you find yourself among the flotilla of warships that have come for the celebration of the Jubilee. You quickly decide that it's too dangerous here so you turn back and head downstream."
+	JUMP	?CND1
+?CCL3:	IN?	TH-BOAT,RM-THAMES-TWO \?CCL5
+	ZERO?	GL-NOW-LIT? /?CND6
+	PRINTI	"To the north you see the Embankment."
+?CND6:	MOVE	TH-BOAT,RM-THAMES-ONE
+	JUMP	?CND1
+?CCL5:	IN?	TH-BOAT,RM-THAMES-THREE \?CCL9
+	MOVE	TH-BOAT,RM-THAMES-TWO
+	JUMP	?CND1
+?CCL9:	IN?	TH-BOAT,RM-THAMES-FOUR \?CCL11
+	ZERO?	GL-NOW-LIT? /?CND12
+	PRINTI	"You pass under the London Bridge."
+?CND12:	MOVE	TH-BOAT,RM-THAMES-THREE
+	JUMP	?CND1
+?CCL11:	IN?	TH-BOAT,RM-THAMES-FIVE \?CND1
+	ZERO?	GL-NOW-LIT? /?CND15
+	PRINTI	"Upstream, you see the London Bridge, to the north you see the Traitors Gate."
+?CND15:	MOVE	TH-BOAT,RM-THAMES-FOUR
+?CND1:	CRLF	
+	LOC	TH-BOAT >GL-PLACE-CUR
+	RTRUE	
+
+
+	.FUNCT	RT-THAMES-TIDE
+	CALL	RT-CLOCK-CMP,8,32,0,18
+	EQUAL?	STACK,1 /TRUE
+	CALL	RT-CLOCK-CMP,8,48,0,18
+	EQUAL?	STACK,1 /FALSE
+	CALL	RT-CLOCK-CMP,14,35,0,18
+	EQUAL?	STACK,1 \?CCL7
+	RETURN	3
+?CCL7:	CALL	RT-CLOCK-CMP,14,51,0,18
+	EQUAL?	STACK,1 \?CCL9
+	RETURN	2
+?CCL9:	CALL	RT-CLOCK-CMP,20,38,0,18
+	EQUAL?	STACK,1 /TRUE
+	CALL	RT-CLOCK-CMP,20,54,0,18
+	EQUAL?	STACK,1 /FALSE
+	CALL	RT-CLOCK-CMP,2,41,0,19
+	EQUAL?	STACK,1 \?CCL15
+	RETURN	3
+?CCL15:	CALL	RT-CLOCK-CMP,2,57,0,19
+	EQUAL?	STACK,1 \?CCL17
+	RETURN	2
+?CCL17:	CALL	RT-CLOCK-CMP,8,44,0,19
+	EQUAL?	STACK,1 /TRUE
+	CALL	RT-CLOCK-CMP,9,0,0,19
+	EQUAL?	STACK,1 /FALSE
+	CALL	RT-CLOCK-CMP,14,47,0,19
+	EQUAL?	STACK,1 \?CCL23
+	RETURN	3
+?CCL23:	CALL	RT-CLOCK-CMP,15,3,0,19
+	EQUAL?	STACK,1 \?CCL25
+	RETURN	2
+?CCL25:	CALL	RT-CLOCK-CMP,20,50,0,19
+	EQUAL?	STACK,1 /TRUE
+	CALL	RT-CLOCK-CMP,21,6,0,19
+	EQUAL?	STACK,1 /FALSE
+	CALL	RT-CLOCK-CMP,2,53,0,20
+	EQUAL?	STACK,1 \?CCL31
+	RETURN	3
+?CCL31:	CALL	RT-CLOCK-CMP,3,9,0,20
+	EQUAL?	STACK,1 \?CCL33
+	RETURN	2
+?CCL33:	CALL	RT-CLOCK-CMP,8,56,0,20
+	EQUAL?	STACK,1 /TRUE
+	CALL	RT-CLOCK-CMP,9,12,0,20
+	EQUAL?	STACK,1 /FALSE
+	RETURN	3
+
+
+	.FUNCT	RT-TOWER-PASSWORD,WORD-NUM,PASSWORD
+	SET	'PASSWORD,PASSWORD-ID
+	ZERO?	PASSWORD /?CTR2
+	EQUAL?	GL-PLACE-CUR,RM-BYWARD-TOWER /?CCL3
+?CTR2:	PRINTR	"Wasn't she one of the six wives of Henry VIII?"
+?CCL3:	EQUAL?	GL-PLACE-PRV,RM-OUTER-WARD \?CCL7
+	PRINTR	"""I am sorry, but I have strict orders to allow absolutely no one to leave the Tower, whether or not he knows the password. The Prime Minister himself could not get out of here before Monday morning."
+?CCL7:	EQUAL?	WORD-NUM,PASSWORD /?CCL9
+	PRINTR	"""I am sorry but that password is no longer valid."""
+?CCL9:	PRINTI	"The guard steps aside as you walk in."
+	CRLF	
+	CRLF	
+	ICALL2	RT-GOTO,RM-OUTER-WARD
+	ICALL2	RT-UPDATE-SCORE,3
+	SET	'PASSWORD-ID,9
+	SET	'ALLOW-IN-TOWER,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-BOLEYN
+	CALL2	RT-TOWER-PASSWORD,1
+	RSTACK	
+
+
+	.FUNCT	V-CLEVES
+	CALL2	RT-TOWER-PASSWORD,2
+	RSTACK	
+
+
+	.FUNCT	V-HOWARD
+	CALL2	RT-TOWER-PASSWORD,3
+	RSTACK	
+
+
+	.FUNCT	V-PARR
+	CALL2	RT-TOWER-PASSWORD,4
+	RSTACK	
+
+
+	.FUNCT	V-ARAGON
+	CALL2	RT-TOWER-PASSWORD,5
+	RSTACK	
+
+
+	.FUNCT	V-SEYMOUR
+	CALL2	RT-TOWER-PASSWORD,6
+	RSTACK	
+
+
+	.FUNCT	RT-I-OPEN-MUSEUM-DOOR
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,10,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-CLOSE-MUSEUM-DOOR,STACK
+	FSET	LG-BRITISH-MUSEUM-DOOR,FL-OPENED
+	EQUAL?	GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \FALSE
+	CRLF	
+	PRINTR	"A guard opens the door and then disappears inside the museum."
+
+
+	.FUNCT	RT-I-CLOSE-MUSEUM-DOOR
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,14,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-OPEN-MUSEUM-DOOR,STACK
+	FCLEAR	LG-BRITISH-MUSEUM-DOOR,FL-OPENED
+	EQUAL?	GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL3
+	CRLF	
+	PRINTR	"The guard says goodnight and closes the door."
+?CCL3:	EQUAL?	GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \?CCL5
+	IN?	CH-LIBRARIAN,RM-MANUSCRIPT-ROOM \?CCL5
+	CRLF	
+	PRINTI	"The librarian looks at his pocket-watch and exclaims, ""Goodness! It's closing time already! I really have enjoyed this chat, but I'm afraid you'll have to let me go. Why don't I see you out?"""
+	CRLF	
+	CRLF	
+	PRINTI	"He escorts you to the front door, discoursing all the while on the evolution of the use of mud by the Hittites. He waves goodbye as he closes the door behind you."
+	CRLF	
+	CRLF	
+	FSET	CH-LIBRARIAN,FL-ASLEEP
+	ICALL2	RT-GOTO,RM-GREAT-RUSSELL-ST
+	FCLEAR	CH-LIBRARIAN,FL-ASLEEP
+	RTRUE	
+?CCL5:	EQUAL?	GL-PLACE-CUR,RM-MANUSCRIPT-ROOM,RM-BRITISH-MUSEUM \FALSE
+	CRLF	
+	PRINTI	"A guard comes up to you and says, ""I'm sorry sir, its closing time. I have to lock up now."" He escorts you to the front door, and then closes it behind you as you leave."
+	CRLF	
+	CRLF	
+	CALL2	RT-GOTO,RM-GREAT-RUSSELL-ST
+	RSTACK	
+
+
+	.FUNCT	RT-INDENT-PRINT
+	LESS?	GL-ALLSCREEN,75 /FALSE
+	PRINTI	"     "
+	RTRUE	
+
+
+	.FUNCT	RT-WRAP-PRINT
+	LESS?	GL-ALLSCREEN,75 \?CCL3
+	CRLF	
+	PRINTI	"    "
+	RTRUE	
+?CCL3:	PRINTC	32
+	RTRUE	
+
+	.ENDI
diff --git a/puzzles.zil b/puzzles.zil
new file mode 100644
index 0000000..e4d8aea
--- /dev/null
+++ b/puzzles.zil
@@ -0,0 +1,1663 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : PUZZLES.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   28 Oct 1987 17:06:56  $"
+; "rev  : $Revision:   1.115  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<ROUTINE RT-EXAMINE-GEM (GEM)
+    <COND (<AND <==? .GEM ,TH-SAPPHIRE>
+		<IN? ,TH-SAPPHIRE ,TH-CLAPPER>>
+	   <TELL "The sapphire is hanging from the end of the clapper."CR>
+	   <RTRUE>)
+	  (<EQUAL? <LOC .GEM> ,CH-PLAYER>
+	   <COND (<MC-VERB? EXAMINE LOOK-ON>
+		  <TELL "It looks as if there is a scratch on " THEO "." CR>)
+		 (<MC-VERB? READ>
+		  <TELL "All you can see on " THEO " is a scratch." CR>)
+		 (<AND <MC-VERB? LOOK-THRU>
+		       <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+		  <COND (<IN? ,TH-MAGNIFYING-GLASS ,GL-WINNER>
+			 <TELL "You see \"">
+			 <COND (<EQUAL? .GEM ,TH-SAPPHIRE>
+				<TELL "2:00 a.m.">)
+			       (<EQUAL? .GEM ,TH-EMERALD>
+				<TELL "20/6/87">)
+			       (<EQUAL? .GEM ,TH-OPAL>
+				<TELL "Password: Swordfish">)
+			       (<EQUAL? .GEM ,TH-RUBY>
+				<TELL "Wear a carnation">)
+			       (<EQUAL? .GEM ,TH-TOPAZ>
+				<TELL "Bar of Gold">)
+			       (<EQUAL? .GEM ,TH-GARNET>
+				<TELL "Give me to Akbar">)>
+			 <TELL "\" scratched into the surface of " THEO "." CR>
+			 <COND (<MC-F? <BAND ,CH-HOLMES-AUX1 ,K-HOLMES-GEM?>>
+				<SETG CH-HOLMES-AUX1 <BOR ,CH-HOLMES-AUX1
+							     ,K-HOLMES-GEM?>>
+				<MOVE ,TH-RING ,CH-PLAYER>
+				<MC-MAKE ,TH-RING ,FL-SEEN>
+				<MC-MAKE ,TH-RING ,FL-TOUCHED>
+				<MC-UNMAKE ,TH-RING ,FL-NODESC>
+				<CRLF>
+				<TELL "Holmes">
+				<RT-HOLMES-SAYS-AGRA-MSG>
+				<RT-UPDATE-SCORE <GETP ,TH-RING ,P?VALUE>>
+				<PUTP ,TH-RING ,P?VALUE 0>)>)
+			(T
+			 <RT-YOUD-HAVE-TO-MSG "be holding" ,TH-MAGNIFYING-GLASS>)>
+		  <RTRUE>)>)
+	  (T
+	    <COND (<MC-VERB? READ>
+		    <RT-CYOU-MSG>
+		    <RT-WOULD-HAVE-TO-MSG "be holding" ,GL-PRSO>
+		    <TELL " to read ">
+		    <RT-SAY-HIM-HER-THEM-IT-MSG ,GL-PRSO>
+		    <TELL "." CR>)
+		   (<AND <MC-VERB? LOOK-THRU>
+			 <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+		    <RT-CYOU-MSG>
+		    <RT-WOULD-HAVE-TO-MSG "be holding" ,GL-PRSO>
+		    <TELL ,K-GOOD-LOOK-MSG CR>)
+		   (<MC-VERB? EXAMINE LOOK-ON>
+		    <RT-CYOU-MSG>
+		    <RT-WOULD-HAVE-TO-MSG "be holding" ,GL-PRSO>
+		    <TELL ,K-GOOD-LOOK-MSG CR>)>)>>
+
+<ROUTINE RT-HANDLE-SCRATCH (GEM "OPT" (CONTEXT <>))
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PUTP .GEM ,P?OBJ-NOUN 0>
+	       <TELL D .GEM>
+	       <PUTP .GEM ,P?OBJ-NOUN ,W?SCRATCH>
+	       <TELL "'s scratch">
+	       <RTRUE>)
+	      (<N==? .CONTEXT ,K-M-DESCFCN> RFALSE)>
+	<COND (<EQUAL? <LOC .GEM> ,CH-PLAYER>
+	       <COND (<MC-VERB? EXAMINE>
+		      <TELL "It looks like very tiny writing." CR>)
+		     (<MC-VERB? READ>
+		      <TELL "It is too tiny." CR>)
+		     (<AND <MC-VERB? LOOK-THRU>
+			   <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+		      <COND (<IN? ,TH-MAGNIFYING-GLASS ,GL-WINNER>
+			     <TELL "You see \"">
+			     <COND (<EQUAL? .GEM ,TH-SAPPHIRE>
+				    <TELL "2:00 a.m">)
+				   (<EQUAL? .GEM ,TH-EMERALD>
+				    <TELL "20/6/87">)
+				   (<EQUAL? .GEM ,TH-OPAL>
+				    <TELL "Password: Swordfish">)
+				   (<EQUAL? .GEM ,TH-RUBY>
+				    <TELL "Wear a carnation">)
+				   (<EQUAL? .GEM ,TH-TOPAZ>
+				    <TELL "Bar of Gold">)
+				   (<EQUAL? .GEM ,TH-GARNET>
+				    <TELL "Give me to Akbar">)>
+			     <TELL ".\"" CR>
+			     <COND (<MC-F? <BAND ,CH-HOLMES-AUX1
+						 ,K-HOLMES-GEM?>>
+				    <SETG CH-HOLMES-AUX1 <BOR
+							  ,CH-HOLMES-AUX1
+							  ,K-HOLMES-GEM?>>
+				    <MOVE ,TH-RING ,CH-PLAYER>
+				    <MC-MAKE ,TH-RING ,FL-SEEN>
+				    <MC-MAKE ,TH-RING ,FL-TOUCHED>
+				    <MC-UNMAKE ,TH-RING ,FL-NODESC>
+				    <CRLF>
+				    <TELL "Holmes">
+				    <RT-HOLMES-SAYS-AGRA-MSG>
+				    <RT-UPDATE-SCORE <GETP ,TH-RING ,P?VALUE>>
+				    <PUTP ,TH-RING ,P?VALUE 0>)>)
+			    (T
+			     <RT-YOUD-HAVE-TO-MSG "be holding"
+						  ,TH-MAGNIFYING-GLASS>)>
+		      <RTRUE>)>)
+	      (T
+	       <COND (<OR <AND <MC-VERB? LOOK-THRU>
+			       <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+			  <MC-VERB? EXAMINE READ>>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "be holding" .GEM>
+		      <COND (<MC-VERB? READ>
+			     <TELL " to read the scratch." CR>)
+			    (T
+			     <TELL ,K-GOOD-LOOK-MSG CR>)>)>)>>
+
+; "GL-HOLES is used to store the room and object 'containing' each of the"
+; "six bullet holes."
+
+<CONSTANT GL-HOLES:TABLE
+	<TABLE
+		0	;"Next empty slot"
+	;"Obj  Room"
+		0		0
+		0		0
+		0		0
+		0		0
+		0		0
+		0		0>>
+
+<ROUTINE RT-HOLE? (OBJ "AUX" OFF (CNT 0) (NUM 0) PLACE)
+	<REPEAT ()
+	       <SET OFF <* .NUM 2>>
+	       <COND (<EQUAL? .NUM <GET ,GL-HOLES 0>>
+		      <RETURN>)
+		     (<EQUAL? .OBJ <GET ,GL-HOLES <+ .OFF 1>>>
+		      <COND (<OR <MC-F? <SET PLACE <GET ,GL-HOLES <+ .OFF 2>>>>
+				 <MC-HERE? .PLACE>>
+			     <INC CNT>)>)>
+	       <INC NUM>>
+	<RETURN .CNT>>
+
+<ROUTINE RT-WASTE-OF-BULLETS-MSG ("AUX" WHO)
+	<SET WHO <RT-WHO-SAYS?>>
+	<COND (<EQUAL? .WHO ,CH-HOLMES>
+	       <TELL
+"Holmes glances at you and says, \"Save your ammunition, Watson. More danger
+may lie ahead.\"" CR>)
+	      (<EQUAL? .WHO ,CH-WIGGINS>
+	       <TELL
+"Wiggins looks at you impatiently and says, \"'Ow in the name of Dick
+Whittington is shooting " AO " going to help Mr 'Olmes?\"" CR>)
+	      (T
+	       <TELL "That would be a waste of bullets." CR>)>
+	<RTRUE>>
+
+<ROUTINE RT-SHOOT-DEAD-MSG ("AUX" WHO)
+	<SET WHO <RT-WHO-SAYS?>>
+	<COND (<EQUAL? .WHO ,CH-HOLMES>
+	       <TELL
+"Holmes lifts an eyebrow and says sardonically, \"Is shooting dead people a
+new trend in medical research, Doctor?\"" CR>)
+	      (<EQUAL? .WHO ,CH-WIGGINS>
+	       <TELL
+"Wiggins tugs at your sleeve and whispers nervously, \"Everyone here is
+already dead... aren't they?\"" CR>)
+	      (T
+	       <TELL
+"Have you no decency? Have you no shame? No? Then a bright future awaits you
+in the legal profession. Apply now to the law school of your choice." CR>)>>
+
+<ROUTINE RT-READ-NEWSPAPER ()
+	<TELL "It's the newspaper that came in your game package." CR>
+	;<COND (<AND <OR <MC-IS? ,TH-NEWSPAPER ,FL-OPENED>
+			 <EQUAL? <GETP ,TH-NEWSPAPER ,P?FLIPPED> 1>>
+		     <MC-VERB? READ-TO SHOW>>
+		<RT-CYOU-MSG "turn" "turns">
+		<TELL THE ,TH-NEWSPAPER " to the front page." CR>
+		<COND (<MC-IS? ,TH-NEWSPAPER ,FL-ASLEEP>
+		       <CRLF>)>
+		<MC-UNMAKE ,TH-NEWSPAPER ,FL-OPENED>
+		<PUTP ,TH-NEWSPAPER ,P?FLIPPED 0>)>
+	;<COND (<MC-IS? ,TH-NEWSPAPER ,FL-OPENED>
+		<TELL "It's the newspaper that came in your game package." CR>)
+	       (<EQUAL? <GETP ,TH-NEWSPAPER ,P?FLIPPED> 1>
+		<TELL "It's the newspaper that came in your game package." CR>)
+	       (<OR <MC-IS? ,TH-NEWSPAPER ,FL-ASLEEP>
+		    <MC-VERB? READ>>
+		<TELL "It's the newspaper that came in your game package." CR>
+		<MC-UNMAKE ,TH-NEWSPAPER ,FL-ASLEEP>)>>
+
+<ROUTINE RT-WAKE-UP-HOLMES ()
+	<MC-UNMAKE ,CH-HOLMES ,FL-ASLEEP>
+	<MC-MAKE ,LG-PARLOUR-DOOR ,FL-OPENED>
+	<REMOVE ,TH-PHIAL>
+	<REMOVE ,TH-MOROCCO-CASE>
+	<REMOVE ,TH-SYRINGE>
+	<RT-ALARM-SET-REL ,RT-I-PM-HALL <RT-PARM-SET 0 1 0>>
+	<RT-ALARM-CLR ,RT-I-PM-QUITS>
+	<TELL "Holmes ">
+	<COND (<EQUAL? ,TH-NEWSPAPER ,GL-PRSO ,GL-PRSI>
+	       <TELL
+"glances at the paper and his eye falls on the notice about the Tower
+of London. He ">)>
+	<TELL
+"immediately leaps to his feet and hurls the phial and the case
+into the fireplace. The phial and the syringe shatter, and the liquid
+evaporates instantly, but the detective does not even notice. ">
+	<COND (<MC-PRSI? ,CH-PRIME-MINISTER>
+	       <TELL
+"\"A client?\" he exclaims. \"On government business? Most interesting.\"">)
+	      (T
+	       <TELL
+"\"They've closed the Tower?\" he exclaims. \"Most singular.\"">)>
+	<CRLF>
+	<RT-UPDATE-SCORE 5>
+	<TELL CR
+"Holmes strides to the door and calls down to Mrs Hudson to bring up a tray
+of food. Then he plops back down on the sofa, ">
+	<COND (<AND <MC-PRSI? ,CH-PRIME-MINISTER>
+		    <NOT <RT-META-IN? ,TH-NEWSPAPER ,CH-PLAYER>>
+		    <EQUAL? <RT-META-LOC ,TH-NEWSPAPER> ,RM-HOLMES-STUDY>>
+	       <TELL "glances at the newspaper, and then ">)>
+	<TELL
+"makes a steeple of his fingertips and focuses his intense gaze upon
+you." CR>>
+
+<ROUTINE RT-I-PM-HALL ()
+	<MC-MAKE ,CH-HUDSON ,FL-NODESC>
+	<MOVE ,CH-PRIME-MINISTER ,RM-ENTRY-HALL>
+	<MOVE ,CH-HUDSON ,RM-ENTRY-HALL>
+	<RT-ALARM-SET-REL ,RT-I-PM-VESTIBULE <RT-PARM-SET 0 1 0>>
+	<COND (<MC-HERE? ,RM-VESTIBULE>
+	       <TELL
+CR "Mrs Hudson and the visitor emerge from the parlour and appear to be on
+their way upstairs." CR>)>>
+
+<ROUTINE RT-I-PM-VESTIBULE ()
+	<MOVE ,CH-PRIME-MINISTER ,RM-VESTIBULE>
+	<MOVE ,CH-HUDSON ,RM-VESTIBULE>
+	<RT-ALARM-SET-REL ,RT-I-HUDSON <RT-PARM-SET 0 1 0>>
+	<COND (<AND <MC-HERE? ,RM-VESTIBULE>
+		    <NOT <EQUAL? ,GL-PLACE-PRV ,RM-ENTRY-HALL>>>
+	       <TELL
+CR "Mrs Hudson and the visitor arrive at the top of the stairs on their way
+into Holmes's study." CR>)
+	      (<AND <MC-HERE? ,RM-ENTRY-HALL>
+		    <EQUAL? ,GL-PLACE-PRV ,RM-VESTIBULE>>
+	       <TELL
+CR "Mrs Hudson and the visitor passed you on the stairs." CR>)>>
+
+<ROUTINE RT-I-HUDSON ("AUX" NUM)
+	<MOVE ,CH-PRIME-MINISTER ,RM-HOLMES-STUDY>
+	<REMOVE ,CH-HUDSON>
+	<MC-UNMAKE ,CH-HUDSON ,FL-NODESC>
+	<SET NUM ,RM-HOLMES-STUDY-AUX1>
+	<COND (<EQUAL? .NUM 0>
+	       <COND (<MC-HERE? ,RM-VESTIBULE>
+		      <TELL
+CR "Mrs Hudson ushers the visitor into " THE ,RM-HOLMES-STUDY " and goes
+downstairs." CR>)
+		     (<MC-HERE? ,RM-ENTRY-HALL>
+		      <TELL
+CR "You see Mrs Hudson come down the stairway." CR>)>)>
+	<COND (<OR <MC-HERE? ,RM-HOLMES-STUDY>
+		   <EQUAL? ,RM-HOLMES-STUDY-AUX1 3>>
+	       <MOVE ,TH-WESTMINSTER-CLUE ,CH-PLAYER>
+	       <MC-MAKE ,TH-WESTMINSTER-CLUE ,FL-SEEN>
+	       <MC-MAKE ,CH-PRIME-MINISTER ,FL-SEEN>
+	       <RT-ALARM-SET-REL ,RT-I-PM-LEAVE <RT-PARM-SET 0 3 0>>
+	       <COND (<AND <MC-HERE? ,RM-HOLMES-STUDY>
+			   <EQUAL? .NUM 0>>
+		      <TELL
+CR "Mrs Hudson appears at the door, accompanied by a worried-looking
+gentleman." CR CR
+
+"Holmes jumps up and ushers the gentleman to the armchair,
+dismissing Mrs Hudson at the same time. \"Watson,\" he says, \"I am sure
+you recognize our distinguished visitor. ">)
+		     (<AND <MC-HERE? ,RM-HOLMES-STUDY>
+			   <EQUAL? .NUM 1 2>>
+		      <TELL
+CR "Holmes has seated his visitor and is exchanging pleasantries with
+him. As you walk in Holmes looks up and says, \"Ah, here you
+are Watson. Now we can get down to business.\" He turns to the gentleman
+seated in the armchair and says, \"">)
+		     (T
+		      <TELL
+CR "Holmes appears and says, \"Come with me, Watson. We have an
+important visitor.\" He takes you by the arm and ushers you back to his
+study. Once inside, he gestures to the guest seated in the armchair
+and says, \"">
+		      <MOVE ,CH-PLAYER ,RM-HOLMES-STUDY>
+		      <SETG GL-PLACE-PRV ,GL-PLACE-CUR>
+		      <SETG GL-PLACE-CUR ,RM-HOLMES-STUDY>)>
+	       <TELL
+"I presume, sir, that you have come about the Jewels.\"" CR CR
+
+"The visitor half rises from his chair in protest and
+sputters, \"But...but, how...?\"" CR CR
+
+"Holmes calms him with a glance. \"Come, sir. What else
+could it be? The Tower is suddenly closed, and within hours I receive a
+call from the highest official of Her Majesty's government. A simple
+deduction. Now then, tell me about the theft.\"" CR CR
+
+"The visitor settles back into his chair and says, \"We know very
+little. Only that the Crown Jewels were stolen
+from the Tower sometime Thursday night. The theft was discovered
+Friday morning, and we immediately closed and searched the Tower. All we
+found was this verse which was left behind in the empty jewel case.\"" CR CR
+
+"The visitor removes a folded piece of paper from his pocket
+and gives it to Holmes, who glances at it and passes it on to you." CR>
+	       <RT-THIS-IS-IT ,TH-WESTMINSTER-CLUE>
+	       <RT-THIS-IS-IT ,CH-PRIME-MINISTER>)
+	      (T
+	       <RT-ALARM-SET-REL ,RT-I-HUDSON <RT-PARM-SET 0 1 0>>
+	       <SETG RM-HOLMES-STUDY-AUX1 <+ .NUM 1>>
+	       <COND (<EQUAL? .NUM 0>
+		      <TELL
+CR "You hear Holmes call you to come back into his study..." CR>)>)>
+	<RTRUE>>
+
+<ROUTINE RT-I-PM-LEAVE ()
+	<MC-UNMAKE ,LG-HOLMES-BEDROOM-DOOR ,FL-LOCKED>
+	<MC-MAKE ,LG-HOLMES-BEDROOM-DOOR ,FL-OPENED>
+	<REMOVE ,CH-PRIME-MINISTER>
+	<MOVE ,CH-HOLMES ,RM-221B-BAKER-ST>
+	<COND (<EQUAL? <LOC ,CH-PLAYER> ,RM-HOLMES-STUDY>
+	       <TELL
+CR "The visitor looks at his pocket watch and stands up. \"Thank
+you, gentlemen. I must go now. Remember, this calamity can only be hidden
+from the public until Monday morning at nine o'clock. If the Regalia is
+not at Buckingham Palace in time for the Coronation Day festivities, then all
+is lost.\"" CR CR
+
+"The gentleman leaves, and Holmes unlocks the door to the
+bedroom, goes in, and reappears moments later wearing his Inverness cape
+and deerstalker hat." CR CR
+
+"\"Come when you're ready, Watson. I'll wait for you outside.\"" CR>)
+	      (<MC-HERE? ,RM-221B-BAKER-ST>
+	       <TELL
+CR "You see Holmes and the visitor emerge from the house. They confer
+briefly, shake hands, and then the Minister walks off into the fog." CR>)
+	      (T
+	       <TELL CR
+"Holmes and the visitor brush past you as they leave the house. Holmes
+says to you, \"Come when you're ready, Watson. I'll wait for you
+outside.\"" CR>)>
+	<RTRUE>>
+
+<ROUTINE RT-I-PM-QUITS ()
+	<CRLF>
+	<COND (<MC-HERE? ,RM-221B-BAKER-ST>
+	       <TELL
+"You see " THE ,LG-BAKER-ST-DOOR " open, and a dejected-looking man comes
+out. He slowly walks away into the fog." CR CR>)
+	      (<MC-HERE? ,RM-HOLMES-STUDY ,RM-VESTIBULE>
+	       <TELL
+"From downstairs you hear the sound of a door closing. You go down and open "
+THE ,LG-BAKER-ST-DOOR " in time to see a dejected-looking man disappearing
+into the fog." CR CR>)
+	      (<MC-HERE? ,RM-ENTRY-HALL>
+	       <TELL
+"Suddenly " THE ,LG-PARLOUR-DOOR " opens and a dejected-looking man appears.
+\"Thank you for trying, Mrs Hudson, but without Sherlock Holmes, there is no
+hope.\" He opens " THE ,LG-BAKER-ST-DOOR " and disappears into the fog." CR CR>)>
+	<TELL
+"Moments later you see newsboys running through the streets shouting,
+\"Crown Jewels stolen! Prime Minister resigns in disgrace!\"" CR CR>
+	<RT-QSR>>
+
+; "Routines also modified to support the Nelson puzzle:"
+; "	RT-AC-TH-TELESCOPE"
+; "	RT-AC-TH-RUBY"
+; "	PRE-SHOW"
+; "	SHOW Syntax"
+; "	KILL Syntax"
+; "	RT-PERFORM: Check for winner FL-ALIVE instead of FL-PERSON."
+; "	RT-FOOLISH-TO-TALK: Same as RT-PERFORM."
+
+; "Bits that describe the pigeon's state of attention"
+
+<CONSTANT K-PIGEON-SHOWN-RUBY	1>
+<CONSTANT K-PIGEON-GET-RUBY	2>
+<CONSTANT K-PIGEON-TIRED	4>
+
+; "Pigeon's state of attention is stored in the AUX1 property."
+; "Number of times the pigeon has circled is stored in the AUX2 property."
+; "Object that pigeon brings back is stored in the AUX3 property."
+
+<ROUTINE RT-GET-PIGEON ("AUX" OBJ WHO)
+	<COND (<BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-TIRED>
+	       <TELL "\"He's too young to fly too often.">
+	       <SET OBJ ,CH-TRAINED-PIGEON-AUX3>
+	       <COND (<IN? .OBJ ,CH-SHERMAN>
+		      <TELL
+" He did come back with " A .OBJ ", however,\" he says, giving it to you." CR>
+		      <MOVE .OBJ ,CH-PLAYER>
+		      <RT-THIS-IS-IT .OBJ>
+		      <MC-MAKE .OBJ ,FL-SEEN>
+		      <MC-MAKE .OBJ ,FL-TOUCHED>
+		      <MC-UNMAKE .OBJ ,FL-NODESC>
+		      <COND (<MC-T? <GETP .OBJ ,P?VALUE>>
+			     <SET WHO <RT-WHO-SAYS?>>
+			     <COND (<EQUAL? .WHO ,CH-HOLMES>
+				    <TELL CR ,K-BRAVO-MSG CR>)>
+			     <RT-UPDATE-SCORE <GETP .OBJ ,P?VALUE>>
+			     <PUTP .OBJ ,P?VALUE 0>)>)
+		     (T
+		      <TELL " Come back next week.\"" CR>)>)
+	      (<IN? ,CH-TRAINED-PIGEON ,CH-SHERMAN>
+	       <TELL "Sherman hands you the bird. \"Take good care of
+him, now. I've grown fond of him.\"" CR>
+	       <MOVE ,CH-TRAINED-PIGEON ,CH-PLAYER>
+	       <MC-MAKE ,CH-TRAINED-PIGEON ,FL-SEEN>
+	       <MC-MAKE ,CH-TRAINED-PIGEON ,FL-TOUCHED>
+	       <MC-UNMAKE ,CH-TRAINED-PIGEON ,FL-NODESC>
+	       <RT-UPDATE-SCORE <GETP ,CH-TRAINED-PIGEON ,P?VALUE>>
+	       <PUTP ,CH-TRAINED-PIGEON ,P?VALUE 0>)
+	      (T
+	       <TELL "\"I've already given him to you.\"" CR>)>>
+
+<ROUTINE RT-PIGEON-INTEREST (ATT-BIT)
+	<COND (<AND <EQUAL? .ATT-BIT ,K-PIGEON-GET-RUBY>
+		    <NOT <BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-SHOWN-RUBY>>>
+	       <TELL
+CTHE ,CH-TRAINED-PIGEON " doesn't seem to see the object to which you are
+referring." CR>
+	       <RTRUE>)>
+	<SETG CH-TRAINED-PIGEON-AUX1 <BOR ,CH-TRAINED-PIGEON-AUX1 .ATT-BIT>>
+	<RT-AC-CH-TRAINED-PIGEON ,K-M-DESCFCN>
+	<RT-ALARM-CLR ,RT-I-PIGEON-LOSE-INTEREST>
+	<RT-ALARM-SET-REL ,RT-I-PIGEON-LOSE-INTEREST <RT-PARM-SET 0 3 0>>
+	<COND (<AND <BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-SHOWN-RUBY>
+		    <BAND ,CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-GET-RUBY>>
+	       <COND (<RT-ALARM-SET? ,RT-I-PIGEON-IMPATIENT>
+		      <RT-ALARM-CLR ,RT-I-PIGEON-IMPATIENT>)>
+	       <RT-ALARM-SET-REL ,RT-I-PIGEON-IMPATIENT <RT-PARM-SET 0 1 0>>)>>
+
+<ROUTINE RT-KILL-PIGEON ()
+       <MC-UNMAKE ,CH-TRAINED-PIGEON ,FL-ALIVE>
+       <SETG CH-TRAINED-PIGEON-AUX2 0>
+       <COND (<NOT <0? <LOC ,CH-TRAINED-PIGEON>>>
+	      <MOVE ,TH-DEAD-PIGEON <LOC ,CH-TRAINED-PIGEON>>
+              <REMOVE ,CH-TRAINED-PIGEON>)>
+       <RT-ALARM-CLR ,RT-I-PIGEON-LOSE-INTEREST>
+       <RT-ALARM-CLR ,RT-I-PIGEON-IMPATIENT>
+       <COND (<MC-HERE? ,RM-SHERMANS-HOUSE>
+	      <RT-SHERMAN-RAGE <>>)
+	     (T
+	      <RT-ALARM-SET-REL ,RT-I-SHERMANS-REVENGE <RT-PARM-SET 0 30 0>>)>>
+
+<ROUTINE RT-PIGEON-OBJ (P-OBJ "AUX" WHO)
+	<MOVE .P-OBJ ,CH-PLAYER>
+	<RT-THIS-IS-IT .P-OBJ>
+	<MC-MAKE .P-OBJ ,FL-SEEN>
+	<MC-MAKE .P-OBJ ,FL-TOUCHED>
+	<MC-UNMAKE .P-OBJ ,FL-NODESC>
+	<COND (<MC-T? <GETP .P-OBJ ,P?VALUE>>
+	       <SET WHO <RT-WHO-SAYS?>>
+	       <COND (<EQUAL? .WHO ,CH-HOLMES>
+		      <TELL CR ,K-BRAVO-MSG CR>)>
+	       <RT-UPDATE-SCORE <GETP .P-OBJ ,P?VALUE>>
+	       <PUTP .P-OBJ ,P?VALUE 0>)>
+	<RTRUE>>
+
+<ROUTINE RT-SHERMAN-RAGE (WALK)
+	<CRLF>
+	<COND (<MC-T? .WALK>
+	       <TELL "As you walk into the shop, ">)>
+	<TELL
+"Sherman sees you and flies into a rage. \"Animal hater!\" he cries. \"You
+killed my bird! How could you do such a thing?\"" CR CR
+
+"With a strength you didn't know he possessed, Sherman wrestles you into
+one of the larger cages that line the walls of his shop." CR CR
+
+"Over the next few days, no customers buy you. But then on Monday morning
+Inspector Lestrade comes in looking for a pet for his wife. \"Did you
+you hear about the Crown Jewels?\" he asks. \"I'm looking into it personally
+and I don't mind telling you I've a few theories of my own. By the
+way, isn't it a little cramped in there?\"" CR CR
+
+"Lestrade leaves and you decide that with him handling the case, you'd
+just as soon stay in the cage."
+CR CR>
+	<RT-QSR>>
+
+<ROUTINE RT-I-PIGEON-LOSE-INTEREST ()
+	<SETG CH-TRAINED-PIGEON-AUX1 0>
+	<COND (<RT-VISIBLE? ,CH-TRAINED-PIGEON>
+	       <TELL CR CTHE ,CH-TRAINED-PIGEON " seems to lose interest." CR>)>>
+
+<ROUTINE RT-I-PIGEON-IMPATIENT ()
+	<COND (<RT-VISIBLE? ,CH-TRAINED-PIGEON>
+	       <TELL
+CR CTHE ,CH-TRAINED-PIGEON " looks at you as if waiting for you to let him
+go." CR>)>>
+
+<ROUTINE RT-I-PIGEON-CIRCLE ("AUX" CIRCLE L)
+	<SET CIRCLE ,CH-TRAINED-PIGEON-AUX2>
+	<SET L <LOC ,CH-TRAINED-PIGEON>>
+	<COND (<OR <AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+			<MC-VERB? WALK>>
+		   <EQUAL? .CIRCLE 3>>
+	       <MOVE ,CH-TRAINED-PIGEON ,CH-SHERMAN>
+	       <SETG CH-TRAINED-PIGEON-AUX1 ,K-PIGEON-TIRED>
+	       <SETG CH-TRAINED-PIGEON-AUX2 0>
+	       <MOVE ,CH-TRAINED-PIGEON-AUX3 ,CH-SHERMAN>
+	       <COND (<AND <EQUAL? .L ,GL-PLACE-CUR>
+			   <OR <NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			       <NOT <MC-VERB? WALK>>>>
+		      <TELL CR CTHE ,CH-TRAINED-PIGEON " circles above you
+for the last time, and flies out of sight." CR>)>)
+	      (<EQUAL? .CIRCLE 1 2>
+	       <RT-ALARM-SET-REL ,RT-I-PIGEON-CIRCLE <RT-PARM-SET 0 1 0>>
+	       <SETG CH-TRAINED-PIGEON-AUX2 <+ .CIRCLE 1>>
+	       <COND (<EQUAL? .L ,GL-PLACE-CUR>
+		      <TELL CR CTHE ,CH-TRAINED-PIGEON " circles above you." CR>)>)>>
+
+<ROUTINE RT-I-SHERMANS-REVENGE ()
+	<COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+	       <RT-ALARM-SET-REL ,RT-I-SHERMANS-REVENGE <RT-PARM-SET 0 1 0>>
+	       <RFALSE>)
+	      (T
+	       <TELL CR "Suddenly, you see Sherman the animal trainer running
+towards you. He is accompanied by a constable.
+Sherman is beside himself with rage. \"There they are,
+constable. They killed my bird. Arrest them.\" The constable
+takes both you and Sherlock into custody, and although everything is
+eventually straightened out, it takes far too long for you to have enough
+time left to solve the mystery." CR CR>
+			<RT-QSR>)>>
+
+<ROUTINE RT-IMPOLITE-MSG (STR1 STR2)
+	<TELL "It isn't polite to " .STR1 " without " .STR2 "." CR>
+	<RTRUE>>
+
+<CONSTANT K-BELL-AWAY 0>	; "Big Ben is swung away from the player."
+<CONSTANT K-BELL-TOWARDS 1>	; "Big Ben is swung towards the player."
+
+<GLOBAL GL-WAIT-BELL:FLAG <>>	;"Don't ring bell until done waiting."
+
+; "Number of times to ring Big Ben is stored in the AUX1 property of TH-BELL."
+; "Bell position is stored in the AUX2 property of TH-BELL."
+; "Grabs required to get the sapphire is stored in the AUX1 property of"
+; "TH-SAPPHIRE."
+
+<ROUTINE RT-I-BIGBEN ("AUX" HRS MIN SEC YRS MON DAY (RET <>))
+      <COND (<MC-IS? ,CH-PLAYER ,FL-ASLEEP>
+	     <RFALSE>)>
+      <COND (<AND <MC-T? ,GL-WAIT-BELL>
+		  <MC-VERB? WAIT-FOR WAIT>>
+	     <SET RET T>)
+	    (<AND <MC-VERB? WAIT-FOR WAIT>
+		  <NOT <MC-HERE? RM-CLOCK-TOWER>>>
+	     <RT-CLOCK-INC-SET 1 0 0>
+	     <RT-CLOCK-INC>
+	     <COND (<EQUAL? <RT-CLOCK-CMP <GETB ,GL-TEMP-TIME ,K-HRS>
+					  <GETB ,GL-TEMP-TIME ,K-MIN>
+					  <GETB ,GL-TEMP-TIME ,K-SEC>
+					  <GETB ,GL-TEMP-TIME ,K-DAY>> 1>
+		    <COND (<MC-F? ,GL-WAIT-BELL>
+			   <TELL CR "While you wait, you hear Big Ben strike each hour." CR>)>
+		    <SET RET T>)>
+	     <RT-CLOCK-INC-SET -1 0 0>
+	     <RT-CLOCK-INC>
+	     <SETG GL-WAIT-BELL T>)
+	    (T
+	     <SETG GL-WAIT-BELL <>>)>
+      <RT-ALARM-SET-REL ,RT-I-BIGBEN <RT-PARM-SET 1 0 0>>
+      <COND (<MC-T? .RET>
+	     <RFALSE>)>
+      <SET HRS <GETB ,GL-TIME ,K-HRS>>
+      <COND (<NOT <EQUAL? ,GL-PLACE-CUR ,RM-CLOCK-TOWER>>
+	     <TELL CR "In the distance, you hear Big Ben strike the hour." CR>
+	     <IFSOUND <COND (<F? ,SOUND-QUEUED?>
+			     <COND (<G? .HRS 12>
+				    <SETG TH-BELL-AUX1 <- .HRS 12>>)
+				   (T
+				    <SETG TH-BELL-AUX1 .HRS>)>
+			     <SOUNDS ,S-FARBEN ,S-START 3 ,TH-BELL-AUX1>)>>)
+	    (T
+	     <COND (<G? .HRS 12>
+		    <SETG TH-BELL-AUX1 <- .HRS 12>>)
+		   (T
+		    <SETG TH-BELL-AUX1 .HRS>)>
+	     <RT-I-SWING-BELL>)>>
+
+<GLOBAL HEARD-SWING? <>>
+
+<ROUTINE RT-I-SWING-BELL ("AUX" OBJ NUM POS WHO)
+	<SET NUM ,TH-BELL-AUX1>
+	<SET POS ,TH-BELL-AUX2>
+	<COND (<NOT <EQUAL? ,GL-PLACE-CUR ,RM-CLOCK-TOWER>>
+	       <RT-RELIEF>
+	       <SETG HEARD-SWING? <>>
+	       <SETG TH-BELL-AUX1 0>
+	       <SETG TH-BELL-AUX2 ,K-BELL-AWAY>
+	       <RT-ZERO-SECONDS>
+	       <RFALSE>)>
+	<COND (<G? .NUM 0>
+	       <RT-CLOCK-INC-SET 0 0 2>
+	       <RT-ALARM-SET-REL ,RT-I-SWING-BELL <RT-PARM-SET 0 0 2>>)>
+	<IFSOUND <COND (<F? ,HEARD-SWING?>
+			<SOUNDS ,S-CLOCK ,S-INIT>)>>
+	<TELL CR "The bell swings ">
+	<COND (<EQUAL? .POS ,K-BELL-AWAY>
+	       <SETG TH-BELL-AUX2 ,K-BELL-TOWARDS>
+	       <TELL "towards you, ">
+	       <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+		      <TELL "ringing loudly, but the cotton protects your
+ears">
+		      <SET WHO <RT-WHO-SAYS?>>
+		      <COND (<AND .WHO <F? ,HEARD-SWING?>>
+			     <TELL ". " CTHE .WHO 			     
+" claps his hands to his ears in an attempt to protect them">
+			     <COND (<FIRST? .WHO>
+				    <RT-MOVE-ALL .WHO ,RM-CLOCK-TOWER>
+				    <TELL
+", dropping everything he was carrying in the process">)>)>
+		      <TELL ". The clapper swings up within reach." CR>
+		      <IFSOUND <SOUNDS ,S-CLOCK ,S-START 6>>
+		      <SETG HEARD-SWING? T>)
+		     (T
+		      <TELL "ringing unbearably loud. BONG!">
+		      <IFSOUND <SOUNDS ,S-CLOCK>>
+		      <COND (<AND <F? ,HEARD-SWING?>
+				  <MC-ISNOT? ,TH-HANDS ,FL-LOCKED>>
+			     <SETG HEARD-SWING? T>
+			     <SET WHO <RT-WHO-SAYS?>>
+			     <MC-MAKE ,TH-HANDS ,FL-LOCKED>
+			     <RT-MOVE-ALL-BUT-WORN ,CH-PLAYER ,RM-CLOCK-TOWER>
+			     <TELL " You ">
+			     <COND (.WHO
+				    <RT-MOVE-ALL .WHO ,RM-CLOCK-TOWER>
+				    <TELL "and " D .WHO " ">)>
+			     <TELL
+"clap your hands to your ears in an attempt to protect them, dropping
+everything you are carrying in the process.">)>
+		      <CRLF>)>
+	       <SETG TH-BELL-AUX1 <- .NUM 1>>)
+	      (T
+	       <SETG TH-BELL-AUX2 ,K-BELL-AWAY>
+	       <TELL "away from you">
+	       <COND (<ZERO? .NUM>
+		      <TELL ", finishing the ringing of the hour." CR>
+		      <RT-RELIEF>
+		      <RT-ZERO-SECONDS>)
+		     (T
+		      <TELL "." CR>)>)>>
+
+<ROUTINE RT-RELIEF ()
+	<SETG HEARD-SWING? <>>
+	<COND (<MC-IS? ,TH-HANDS ,FL-LOCKED>
+	       <MC-UNMAKE ,TH-HANDS ,FL-LOCKED>
+	       <TELL "You breath a sigh of relief as you take your
+hands away from your ears." CR>)>>
+
+<ROUTINE RT-ZERO-SECONDS ("AUX" SEC)
+	<SET SEC <GETB ,GL-TIME ,K-SEC>>
+	<COND (<NOT <ZERO? .SEC>>
+	       <RT-CLOCK-INC-SET 0 0 <- 60 .SEC>>
+	       <RT-CLOCK-INC>
+	       <RT-COPY-TIME ,GL-TIME ,GL-TEMP-TIME>)>>
+
+<ROUTINE RT-I-EXHALE ()
+	<COND (<MC-IS? ,TH-BREATH ,FL-LOCKED>
+	       <RT-ALARM-SET-REL ,RT-I-INHALE <RT-PARM-SET 0 1 0>>
+	       <TELL CR "You can't hold your breath much longer..." CR>)>>
+
+<ROUTINE RT-I-INHALE ()
+      <COND (<MC-IS? ,TH-BREATH ,FL-LOCKED>
+	     <TELL CR "Your lungs scream for air. You take a deep breath." CR>
+	     <MC-UNMAKE ,TH-BREATH ,FL-LOCKED>
+	     <SETG RUN-SMELL-ETHERIUM? T>
+	     <RTRUE>)>>
+
+<ROUTINE RT-I-TAKE-WATSONS-STUFF ()
+	<COND (<MC-ISNOT? ,CH-AKBAR ,FL-ASLEEP>
+	       <TELL CR "Akbar">
+	       <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+		      <TELL " apologizes to you,">)>
+	       <TELL
+" removes everything from your hands, and then hits you over the head. The
+last thing you see before losing consciousness is the look of defeat on
+Holmes's face." CR CR
+
+"You awake sometime later to find yourself bound hand and foot. Moriarty is
+standing over you with a newspaper in his hand." CR CR
+
+,K-FOUGHT-WELL-MSG CR CR
+
+"Moriarty takes the Crown Jewels and departs, leaving you to ponder your
+defeat and the inevitable demise of the British Empire." CR CR>
+	       <RT-QSR>)>
+	<RFALSE>>
+
+<ROUTINE RT-I-OUT-OF-TIME ()
+	<CRLF>
+	<COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+	       <TELL "Outside you hear">)
+	      (T
+	       <TELL "You see">)>
+	<TELL " the paper boy run through the streets shouting out,
+\"Crown Jewels stolen... the end is near.\"" CR CR>
+	<COND (<EQUAL? ,GL-PLACE-CUR ,RM-LAIR>
+	       <TELL D ,CH-MORIARTY>
+	       <COND (<MC-IS? ,CH-MORIARTY ,FL-ASLEEP>
+		      <MC-UNMAKE ,CH-MORIARTY ,FL-ASLEEP>
+		      <TELL " awakens from his stupor and">)>
+	       <TELL " says, " ,K-FOUGHT-WELL-MSG CR CR>)>
+	<RT-QSR>>
+
+<ROUTINE RT-ETHERIUM-EFFECT (ASLEEP? "OPTIONAL" (OBJ <>) (TOP T) "AUX" (CNT 0))
+  <COND (<MC-F? .OBJ>
+	 <SET OBJ ,GL-PLACE-CUR>)>
+  <REPEAT ()
+    <COND (<MC-F? .OBJ>
+	   <RETURN>)
+	  (<AND <MC-IS? .OBJ ,FL-ALIVE>
+		<OR <NOT <EQUAL? .OBJ ,CH-PLAYER>>
+		    <MC-ISNOT? ,TH-BREATH ,FL-LOCKED>>>
+	   <COND (<MC-T? .ASLEEP?>
+		  <COND (<OR <NOT <EQUAL? .OBJ ,CH-HOLMES>>
+			     <MC-ISNOT? ,TH-BREATH ,FL-LOCKED>>
+			 <MC-MAKE .OBJ ,FL-ASLEEP>
+			 <INC .CNT>
+			 <COND (<EQUAL? ,GL-PUPPY .OBJ>
+				<SETG GL-FORMER-PUPPY .OBJ>
+				<SETG GL-PUPPY <>>)
+			       ;(<EQUAL? .OBJ ,CH-TRAINED-PIGEON>
+				<TELL
+			" Unfortunately, the gas kills the poor pigeon.">
+				<RT-KILL-PIGEON>)>)>)
+		 (T
+		  <MC-UNMAKE .OBJ ,FL-ASLEEP>
+		  <INC .CNT>)>)
+	  (<FIRST? .OBJ>
+	   <SET CNT <+ .CNT
+		       <RT-ETHERIUM-EFFECT .ASLEEP? <FIRST? .OBJ> <>>>>)>
+    <COND (<MC-F? .TOP>
+	   <SET OBJ <NEXT? .OBJ>>)
+	  (T
+	   <RETURN>)>>
+  <RETURN .CNT>>
+
+;<GLOBAL GL-PEOPLE:TABLE <ITABLE 25 0>> ; "People in the room"
+
+<ROUTINE RT-I-WAKE-UP ("AUX" OBJ)
+	<RT-ETHERIUM-EFFECT <> <LOC ,TH-ETHERIUM-GAS>>
+	<REMOVE ,TH-ETHERIUM-GAS>>
+
+<ROUTINE RT-SMELL-ETHERIUM? ()
+	<COND
+	 (<MC-HERE? <LOC ,TH-ETHERIUM-GAS>>
+	  <COND (<MC-ISNOT? ,TH-BREATH ,FL-LOCKED>
+		 <REMOVE ,TH-ETHERIUM-GAS>
+		 <TELL CR "The etherium knocks you out." CR CR>
+		 <MC-MAKE ,CH-PLAYER ,FL-ASLEEP>
+		 <COND (<MC-HERE? ,RM-LAIR>
+			<RT-ALARM-CLR ,RT-I-WAKE-UP>
+			<RT-DOES-MORIARTY-WIN>)
+		       (T
+			<COND (<RT-ALARM-SET? ,RT-I-WAKE-UP>
+			       <COPYT ,GL-TIME-PARM ,GL-TIME ,K-A-TWDTH>
+			       <RT-ALARM-CHK <>>
+			       <SETG GL-CLOCK-WAIT T>
+			       <TELL ,K-WAKE-UP-MSG CR>)
+			      (T
+			       <RT-CLOCK-JMP 6 0 0>
+			       <TELL ,K-WAKE-UP-MSG CR>)>
+			<COND (<AND <MC-T? ,GL-FORMER-PUPPY>
+				    <IN? ,GL-FORMER-PUPPY ,GL-PLACE-CUR>
+				    <F? ,GL-PUPPY>>
+			       <FCLEAR ,GL-FORMER-PUPPY ,FL-ASLEEP>
+			       <SETG GL-PUPPY ,GL-FORMER-PUPPY>
+			       <SETG GL-FORMER-PUPPY <>>)>)>)
+		(<AND ,GL-PUPPY
+		      <N==? ,GL-PUPPY ,CH-HOLMES>
+		      <RT-ETHERIUM-EFFECT T ,GL-PUPPY>>
+		 <TELL CTHE ,GL-FORMER-PUPPY " passes out." CR>)>
+	       <RTRUE>)>
+	<RFALSE>>
+
+<ROUTINE RT-FIND-FLAME ("OPTIONAL" (OBJ <>) (TOP T) "AUX" FST)
+	<COND (<MC-F? .OBJ>
+	       <SET OBJ ,GL-PLACE-CUR>)>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (<AND <MC-IS? .OBJ ,FL-BURNABLE>
+			    <MC-IS? .OBJ ,FL-LIGHTED>>
+		       <RTRUE>)>
+		<SET FST <FIRST? .OBJ>>
+		<COND (<AND <MC-T? .FST>
+			    <RT-FIND-FLAME .FST <>>>
+		       <RTRUE>)>
+		<COND (<MC-F? .TOP>
+		       <SET OBJ <NEXT? .OBJ>>)
+		      (T
+		       <RETURN>)>>
+	<RFALSE>>
+
+<ROUTINE RT-DOES-MORIARTY-WIN ()
+	<COND (<AND <MC-IS? ,CH-MORIARTY ,FL-LOCKED>
+		    <MC-IS? ,CH-AKBAR ,FL-LOCKED>>
+	       <RT-CLOCK-SET 8 30 0 20>
+	       <RT-ALARM-CLR ,RT-I-OUT-OF-TIME>
+	       <RT-ALARM-CHK <>>
+	       <SETG GL-CLOCK-WAIT T>
+	       <RT-ALARM-SET-ABS ,RT-I-OUT-OF-TIME <RT-PARM-SET 9 0 0 20>>
+	       <TELL
+"You awaken slowly and stumble to your feet. Moriarty and Akbar have already
+recovered, and they are struggling fiercely to free themselves. It seems as
+if you were unconscious for quite a while, but it's hard to tell. You
+probably don't have a lot of time." CR>
+	       <MC-UNMAKE ,CH-PLAYER ,FL-ASLEEP>
+	       <MC-UNMAKE ,CH-HOLMES ,FL-ASLEEP>
+	       <MC-UNMAKE ,CH-AKBAR ,FL-ASLEEP>
+	       <MC-UNMAKE ,CH-MORIARTY ,FL-ASLEEP>
+	       <RTRUE>)
+	      (T
+	       <TELL
+"Unfortunately, Moriarty and Akbar recovered before you did. You find
+yourself bound securely to Holmes." CR CR
+
+"Moriarty looks at you and says, " ,K-FOUGHT-WELL-MSG CR CR>
+	       <RT-QSR>)>>
+
+<ROUTINE RT-PROCESS-PASSWORD ()
+	<COND (<MC-HERE? ,RM-BAR-OF-GOLD>
+	       <TELL CTHE ,CH-DENKEEPER>
+	       <COND (<AND <IN? ,TH-CARNATION ,TH-LAPEL>
+		           <MC-ISNOT? ,CH-AKBAR ,FL-SEEN>
+		           <EQUAL? <RT-CLOCK-CMP 2 0 0 20> -1 0>>
+		      <MC-MAKE ,CH-AKBAR ,FL-SEEN>
+		      <MOVE ,CH-AKBAR ,RM-BAR-OF-GOLD>
+		      <TELL
+" disappears into a back room and reappears moments later,
+accompanied by a tall, silent man who has dark skin and wears a white
+turban." CR CR "The Indian glances at your ">
+		      <COND (<MC-ISNOT? ,TH-WATSONS-HAT ,FL-WORN>
+		      <TELL "uncovered ">)>
+		      <TELL "head and then intones, \"I am Akbar">
+		      <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			     <TELL ", honourable sir">)>
+		      <TELL ". What is it that you wish?\"" CR>)
+		     (T
+		      <TELL
+" says, \"Not now, mate. Can't you see I'm busy?\"" CR>)>)
+	      (<MC-HERE? ,RM-BYWARD-TOWER>
+		      <TELL
+CTHE ,CH-TOWER-GUARD " pauses and looks at you strangely. Then he
+says, \"An interesting guess. But wrong.\"" CR>)
+	      (T
+	       <TELL "Thatsa no swordfish. Thatsa duck." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-SWORDFISH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SWORDFISH">>
+	<RT-PROCESS-PASSWORD>>
+
+<ROUTINE RT-ROPE-MSG ()
+	<TELL "As">
+	<RT-YOU-MSG "reach" "reaches">
+	<TELL "for " THE ,TH-ROPE ", Akbar">
+	<COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+	       <TELL " says, \"Pardon me, honourable sir,\" and">)>
+	<TELL
+" hits you over the head." CR CR
+
+"When you regain consciousness, you find that your hands and feet are bound.
+Outside you hear the paper boy run through the streets shouting out
+\"Crown Jewels stolen! Prime Minister resigns in disgrace!\"" CR>
+	<RT-QSR>>
+
+<ROUTINE RT-INSCRIPTION-APPEARS-MSG ()
+ 	<TELL "After a few moments, the tomb's inscription comes through
+onto the piece of paper." CR>>
+
+<ROUTINE RT-PROCESS-TOMB (TOMB-NUMBER)
+	<COND (<MC-VERB? READ>
+	       <RT-READ-INSCRIPTION .TOMB-NUMBER>)
+	      (<MC-VERB? TRANSLATE>
+	       <TELL
+"Unfortunately, what little Latin you remember from your school days is
+limited to medical matters." CR>)
+	      (<MC-VERB? RUB-WITH>
+	       <TELL
+"Rubbing the paper with the crayon would probably yield better results." CR>)
+	      (<MC-VERB? LOOK-INSIDE SEARCH>
+	       <RT-CYOU-MSG>
+	       <RT-WOULD-HAVE-TO-MSG "open" ,TH-IT>
+	       <TELL " first." CR>
+	       <RTRUE>)
+	      (<MC-VERB? OPEN>
+	       <TELL "Getting just a little bit morbid, aren't we?" CR>)
+	      (<MC-VERB? TOUCH>
+	       <COND (<EQUAL? .TOMB-NUMBER 1 2 3>
+		      <TELL "It feels a little sticky." CR>)
+		     (T
+		      <RT-CYOU-MSG "do" "does">
+		      <TELL
+"not feel anything " <RT-PICK-NEXT ,GL-BORING-TXT> "." CR>)>)
+	      (<MC-VERB? SHOOT>
+	       <RT-SHOOT-DEAD-MSG>)>>
+
+<ROUTINE RT-READ-INSCRIPTION (NUM)
+	<TELL "The inscription">
+	<COND (<EQUAL? 2 .NUM>
+	       <TELL " reads, \"ISAACVS NEWTON  Eques Auratus">)
+	      (<EQUAL? 1 .NUM>
+	       <TELL " reads, \"REGNO CONSORTES & VRNA HIC OBDOR
+MIMVS ELIZABETHA ET MARIA SORORES IN SPE RESVRRECTIONIS">)
+	      (<EQUAL? 7 .NUM>
+	       <TELL " is a long one, but in the middle of it you see the name
+\"GALFRIDVS CHAVCER">)
+	      (<EQUAL? 9 .NUM>
+	       <TELL "s are written in Latin, but you can make out the names
+\"Edward V\" and \"Richard, Duke of York">)
+	      (T
+	       <TELL " is written in Latin, but you can make out the name \"">
+	       <COND (<EQUAL? 3 .NUM>
+		      <TELL "Henry V">)
+		     (<EQUAL? 4 .NUM>
+		      <TELL "Edward the Confessor">)
+		     (<EQUAL? 5 .NUM>
+		      <TELL "Alexander Pope">)
+		     (<EQUAL? 6 .NUM>
+		      <TELL "Charles Dickens">)
+		     (<EQUAL? 8 .NUM>
+		      <TELL "Anne of Cleves">)
+		     (<EQUAL? 10 .NUM>
+		      <TELL "Mary, Queen of Scots">)
+		     (<EQUAL? 11 .NUM>
+		      <TELL "Henry VII">)
+		     (<EQUAL? 12 .NUM>
+		      <TELL "Pitt">)
+		     (<EQUAL? 13 .NUM>
+		      <TELL "Francis Vere">)>)>
+	<TELL ".\"" CR>
+	<RTRUE>>
+
+<ROUTINE RT-READ-PAPER (PAPER-NAME WRITING PHEAT)
+	<COND (<MC-F? .WRITING>
+	       <TELL "The paper appears to be blank." CR>
+	       <RTRUE>)
+	      (T
+	       <COND (<MC-F? <GETP .PAPER-NAME ,P?FLIPPED>>
+		      <RT-READ-INSCRIPTION .WRITING>
+		      <RTRUE>)
+		     (T
+		      <COND (<ZERO? .PHEAT>
+			     <TELL "This side appears to be blank." CR>)
+			    (<EQUAL? 1 .PHEAT>
+			     <TELL "You see a faint discolouration." CR>)
+			    (<EQUAL? 2 .PHEAT>
+			     <COND (<EQUAL? 1 .WRITING>
+				    <TELL
+INDENT "Hickory Dickory Dock." CR
+INDENT "Your enemy is the clock." CR
+INDENT "When it strikes nine," CR
+INDENT "The victory's mine." CR
+INDENT "Hickory Dickory Dock." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT "Here comes a candle to light you to bed." CR
+INDENT "Here comes a chopper" WRAP "to chop off your head." CR>
+				    <MC-MAKE .PAPER-NAME ,FL-LOCKED>
+				    <SETG TH-PACKET-OF-PAPER-AUX1
+					  <BOR ,TH-PACKET-OF-PAPER-AUX1 1>>)
+				   (<EQUAL? 2 .WRITING>
+				    <TELL
+INDENT "London Bridge is falling down." CR
+INDENT "All that's under it will drown." CR
+INDENT "With it falls Victoria's reign." CR
+INDENT "Britannia ne'er to rule again." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT "When a number you require," CR
+INDENT "And you're banking all thereon." CR
+INDENT "Subtract the conquest from the fire," CR
+INDENT "Half a league, half a league." WRAP "Half a league on." CR>
+				    <MC-MAKE .PAPER-NAME ,FL-LOCKED>
+				    <SETG TH-PACKET-OF-PAPER-AUX1
+					  <BOR ,TH-PACKET-OF-PAPER-AUX1 2>>)
+				   (<EQUAL? 3 .WRITING>
+				    <TELL
+INDENT ,K-TWINKLE-MSG CR
+INDENT "Fought at sea, midst masts and spars." CR
+INDENT "Now above the world so high," CR
+INDENT "Looking down with watchful eye." CR
+INDENT ,K-TWINKLE-MSG CR
+INDENT "England's hero, prince of tars." CR CR
+
+INDENT ,K-ASTERISK-MSG CR CR
+
+INDENT "Pussycat, pussycat," WRAP "where have you been?" CR
+INDENT "I've been to the Tower" WRAP "to look at the Queen." CR
+INDENT "Pussycat, pussycat," WRAP "what did you there?" CR
+INDENT "I left something for you." WRAP "Go back, if you dare." CR>
+				    <MC-MAKE .PAPER-NAME ,FL-LOCKED>
+				    <SETG TH-PACKET-OF-PAPER-AUX1
+					  <BOR ,TH-PACKET-OF-PAPER-AUX1 4>>)>
+			     <COND (<MC-ISNOT? ,TH-PACKET-OF-PAPER ,FL-ASLEEP>
+				    <MC-MAKE ,TH-PACKET-OF-PAPER ,FL-ASLEEP>
+				    <RT-UPDATE-SCORE 5>)
+				   (<AND <EQUAL? ,TH-PACKET-OF-PAPER-AUX1 7>
+					 <EQUAL? <RT-WHO-SAYS?> ,CH-HOLMES>>
+				    <SETG TH-PACKET-OF-PAPER-AUX1 15>
+				    <TELL CR
+"Holmes leans forward with an excited expression upon his hawk-like features
+and says, \"There is only one man in all London clever enough to plan this,
+Watson - Professor Moriarty. See how boldly he hides clues in public places,
+knowing all the while that they will remain hidden from the casual eye.
+Onward, Doctor. Let us solve these riddles and see what the good Professor
+has in mind for us.\"" CR>)>)>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-PROCESS-PAPER (PAPER-NAME "AUX" WRITING PHEAT)
+	<SET WRITING <GETP .PAPER-NAME ,P?INSCRIPTION>> 
+	<SET PHEAT <GETP .PAPER-NAME ,P?HEATED>> 
+	<COND (<MC-VERB? TAKE>
+	       <COND (<AND <EQUAL? <LOC .PAPER-NAME> ,TH-ELIZABETH-TOMB ,TH-NEWTON-TOMB ,TH-HENRY-V-TOMB>
+			   <EQUAL? .WRITING 1 2 3>>
+		      <TELL "You pick at the paper for a few seconds, but it
+seems to be stuck to the inscription. After a few seconds you manage to peel
+it off." CR>
+		      <MOVE .PAPER-NAME ,CH-PLAYER>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<OR <AND <MC-VERB? RAISE>
+			<MC-PRSO? .PAPER-NAME>
+			<RT-VISIBLE? ,LG-SHAFT-OF-LIGHT>>
+		   <AND <MC-VERB? PUT>
+			<MC-PRSO? .PAPER-NAME>
+			<MC-PRSI? ,LG-SHAFT-OF-LIGHT>>
+		   <AND <MC-VERB? TOUCH-TO>
+			<OR <MC-PRSI? ,LG-SHAFT-OF-LIGHT>
+			    <AND <MC-PRSI? ,TH-LAMP>
+				 <MC-IS? ,TH-LAMP ,FL-LIGHTED>>>>>
+	       <COND (<EQUAL? .PHEAT 1>
+		      <RT-CYOU-MSG "see" "sees">
+		      <TELL "a discolouration">
+		      <COND (<ZERO? <GETP .PAPER-NAME ,P?FLIPPED>>
+			     <TELL " which appears to be on the back">)>)
+		     (<EQUAL? .PHEAT 2>
+		      <TELL "There seems to be some writing">
+		      <COND (<ZERO? <GETP .PAPER-NAME ,P?FLIPPED>>
+			     <TELL " on the back">)>)
+		     (<EQUAL? .WRITING 1 2 3>
+		      <RT-CYOU-MSG "see" "sees">
+		      <TELL "a faint discolouration">)
+		     (T
+		      <RT-CYOU-MSG "see" "sees">
+		      <TELL "a watermark">)>
+	       <TELL "." CR>
+	       <RTRUE>)
+	      (<MC-VERB? HEAT HOLD-OVER LIGHT-WITH BURN-WITH TOUCH-TO>
+	       <COND (<NOT <IN? .PAPER-NAME ,GL-WINNER>>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not holding " THE .PAPER-NAME "." CR>
+		      <RTRUE>)
+		     (<AND <NOT <MC-VERB? LIGHT-WITH BURN-WITH TOUCH-TO>>
+			   <MC-PRSI? ,TH-BANK-OF-CANDLES>>
+		      <TELL "The paper is heated by the bank of candles">
+		      <COND (<AND <==? <GETP .PAPER-NAME ,P?HEATED> 2>
+				  <EQUAL? .WRITING 1 2 3>>
+			     <TELL ", but nothing more appears">)
+			    (<EQUAL? .WRITING 1 2 3>
+			     <PUTP .PAPER-NAME ,P?HEATED 2>
+			     <TELL ". Something seems to be gradually appearing on ">
+			     <COND (<ZERO? <GETP .PAPER-NAME ,P?FLIPPED>>
+				    <TELL "the back of ">)>
+			     <TELL THE .PAPER-NAME>)>
+		      <TELL "." CR>
+		      <RTRUE>)
+		     (<AND <NOT <MC-VERB? LIGHT-WITH BURN-WITH TOUCH-TO>>
+			   <MC-PRSI? ,TH-PIPE ,TH-TOBACCO ,TH-MATCH>>
+		      <COND (<OR <AND <MC-PRSI? ,TH-PIPE ,TH-TOBACCO>
+				      <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+				 <AND <MC-PRSI? ,TH-MATCH>
+				      <MC-IS? ,TH-MATCH ,FL-LIGHTED>>>
+			     <TELL "The paper is warmed by " THEI "." CR>
+			     <COND (<AND <EQUAL? .WRITING 1 2 3>
+					 <ZERO? .PHEAT>>
+				    <PUTP .PAPER-NAME ,P?HEATED 1>)>)
+			    (T
+			     <TELL CTHEI>
+			     <RT-ISNT-ARENT-MSG ,GL-PRSI>
+			     <TELL "lit." CR>)>
+		      <RTRUE>)
+		     (<OR <AND <MC-IS? ,GL-PRSI ,FL-BURNABLE>
+			       <MC-IS? ,GL-PRSI ,FL-LIGHTED>>
+			  <AND <MC-PRSI? ,TH-PIPE>
+			       <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>
+			  <AND <MC-PRSI? ,PSEUDO-OBJECT>
+			       <==? <GETP ,GL-PRSI ,P?ACTION>
+				    ,RT-AC-TH-FIREPLACE>>>
+		      <TELL "The paper catches fire quickly.">
+		      <COND (<AND <EQUAL? .WRITING 1 2 3>
+				  <MC-ISNOT? .PAPER-NAME ,FL-LOCKED>>
+			     <TELL " As it burns, you catch a glimpse of
+writing you could swear hadn't been there before.">)>
+		      <TELL CR CR CTHE .PAPER-NAME " vanishes in a poof of smoke." CR>
+		      <REMOVE .PAPER-NAME>
+		      <RTRUE>)>
+	       <RFALSE>)
+	      (<MC-VERB? READ EXAMINE>
+	       <COND (<IN? .PAPER-NAME ,TH-PACKET-OF-PAPER>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot do that while it is in the pacquet of paper." CR>
+		      <RTRUE>)>
+	       <COND (<==? <ZGET ,GL-P-OFW 0> ,W?BACK>
+		      <RT-PERFORM ,V?FLIP ,GL-PRSO>
+		      <RTRUE>)>
+	       <RT-READ-PAPER .PAPER-NAME .WRITING .PHEAT>
+	       <RTRUE>)
+	      (<MC-VERB? FLIP>
+	       <COND (<NOT <IN? .PAPER-NAME ,GL-WINNER>>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not holding " THE .PAPER-NAME "." CR>
+		      <RTRUE>)
+		     (<MC-F? .WRITING>
+		      <TELL CTHE .PAPER-NAME " seems to be blank on both sides." CR>)
+		     (T
+		      <RT-CYOU-MSG "turn" "turns">
+		      <TELL THE .PAPER-NAME " over." CR CR>
+		      <PUTP .PAPER-NAME ,P?FLIPPED <- 1 <GETP .PAPER-NAME ,P?FLIPPED>>>
+		      <RT-READ-PAPER .PAPER-NAME .WRITING .PHEAT>)>
+	       <RTRUE>)
+	      (<MC-VERB? RUB-WITH>
+	       <COND (<NOT <MC-PRSO? .PAPER-NAME>>
+		      <RFALSE>)
+		     (<NOT <MC-PRSI? ,TH-CRAYON>>
+		      <TELL "Rubbing the paper with " THEI " doesn't do anything." CR>
+		      <RTRUE>)
+		     (<MC-T? .WRITING>
+		      <TELL "You don't really want to do that. You would mess up your inscription." CR>
+               <RTRUE>)
+		     (<FIRST? .PAPER-NAME>
+		      <RT-CYOU-MSG>
+		      <TELL
+"cannot do a rubbing while there is something on " THE .PAPER-NAME "." CR>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-ELIZABETH-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 1>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-NEWTON-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 2>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-HENRY-V-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 3>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-EDWARD-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 4>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-POPE-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 5>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-DICKENS-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 6>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-CHAUCER-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 7>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-ANNE-OF-CLEVES-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 8>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-LITTLE-PRINCES-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 9>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-MARY-QUEEN-OF-SCOTS-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 10>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-HENRY-VII-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 11>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-PITT-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 12>
+		      <RTRUE>)
+		     (<IN? .PAPER-NAME ,TH-VERE-TOMB>
+		      <RT-INSCRIPTION-APPEARS-MSG>
+		      <PUTP .PAPER-NAME ,P?INSCRIPTION 13>
+		      <RTRUE>)
+		     (T
+		      <TELL "Rubbing " THE .PAPER-NAME " while it is">
+		      <COND (<EQUAL? <LOC <LOC .PAPER-NAME>> ,ROOMS>
+			     <TELL " on ">
+			     <COND (<MC-IS? <LOC .PAPER-NAME> ,FL-INDOORS>
+				    <TELL-THE-FLOOR>)
+				   (T
+				    <TELL-THE-GROUND>)>)
+			     (T
+			      <RT-IN-ON-MSG <LOC .PAPER-NAME>>
+			      <TELL THE <LOC .PAPER-NAME>>)>
+			    <TELL " would">
+			    <RT-WASTE-OF-TIME-MSG>
+			    <RTRUE>)>)
+	       (<AND <MC-VERB? LOOK-THRU>
+		     <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+		<TELL "All">
+		<RT-YOU-MSG "see" "sees">
+		<TELL "is a faint watermark." CR>
+		<RTRUE>)
+	       (<AND <MC-VERB? TAKE>
+		     <FIRST? .PAPER-NAME>>
+		<RT-CYOU-MSG>
+		<RT-WOULD-HAVE-TO-MSG "take">
+		<TELL THE <FIRST? .PAPER-NAME> " off of " THE .PAPER-NAME
+" first." CR>
+		<RTRUE>)>
+	<RFALSE>>
+
+<ROUTINE RT-PAPER-WARMING (PAPER-NAME)
+	<COND (<AND <IN? .PAPER-NAME ,CH-PLAYER>
+		    <EQUAL? <GETP .PAPER-NAME ,P?INSCRIPTION> 1 2 3>
+		    <ZERO? <GETP .PAPER-NAME ,P?HEATED>>>
+	       <PUTP .PAPER-NAME ,P?HEATED 1>)>
+	<RFALSE>>
+
+<ROUTINE RT-I-FLASH-WESTMINSTER-LIGHTS ()
+	<COND (,PLAYER-IN-ABBEY
+	       <TELL CR
+"The lights flicker off and on, and you remember that the Abbey
+closes at six o'clock." CR>)>>
+
+<ROUTINE RT-I-WESTMINSTER-LIGHTS-ON ()
+	<MC-MAKE ,RM-NAVE ,FL-LIGHTED>
+	<MC-MAKE ,RM-SOUTH-AISLE ,FL-LIGHTED>
+	<MC-MAKE ,RM-JERICHO-PARLOUR ,FL-LIGHTED>
+	<MC-MAKE ,RM-JERUSALEM-CHAMBER ,FL-LIGHTED>
+	<MC-MAKE ,RM-NORTH-CLOISTER ,FL-LIGHTED>
+	<MC-MAKE ,RM-NORTH-TRANSEPT ,FL-LIGHTED>
+	<MC-MAKE ,RM-SOUTH-TRANSEPT ,FL-LIGHTED>
+	<MC-MAKE ,RM-EVANGELIST-CHAPEL ,FL-LIGHTED>
+	<MC-MAKE ,RM-NORTH-AMBULATORY ,FL-LIGHTED>
+	<MC-MAKE ,RM-SANCTUARY ,FL-LIGHTED>
+	<MC-MAKE ,RM-SOUTH-AMBULATORY ,FL-LIGHTED>
+	<MC-MAKE ,RM-POETS-CORNER ,FL-LIGHTED>
+	<MC-MAKE ,RM-NORTH-CHAPEL-AISLE ,FL-LIGHTED>
+	<MC-MAKE ,RM-HENRY-VII-CHAPEL ,FL-LIGHTED>
+	<MC-MAKE ,RM-SOUTH-CHAPEL-AISLE ,FL-LIGHTED>
+	<MC-MAKE ,RM-CONFESSOR-CHAPEL ,FL-LIGHTED>
+	<MC-MAKE ,RM-INNOCENTS-CORNER ,FL-LIGHTED>
+	<COND (,PLAYER-IN-ABBEY
+	       <TELL CR "The lights come on." CR>)>>
+
+<ROUTINE RT-I-WESTMINSTER-LIGHTS-OFF ()
+	<MC-UNMAKE ,RM-NAVE ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-SOUTH-AISLE ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-JERICHO-PARLOUR ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-JERUSALEM-CHAMBER ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-NORTH-CLOISTER ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-NORTH-TRANSEPT ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-SOUTH-TRANSEPT ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-EVANGELIST-CHAPEL ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-NORTH-AMBULATORY ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-SANCTUARY ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-SOUTH-AMBULATORY ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-POETS-CORNER ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-NORTH-CHAPEL-AISLE ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-HENRY-VII-CHAPEL ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-SOUTH-CHAPEL-AISLE ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-CONFESSOR-CHAPEL ,FL-LIGHTED>
+	<MC-UNMAKE ,RM-INNOCENTS-CORNER ,FL-LIGHTED>
+	<COND (,PLAYER-IN-ABBEY
+	       <TELL CR "The lights go out." CR>)>>
+
+<ROUTINE RT-I-LOCKED-IN-END-GAME ()
+	<COND (,PLAYER-IN-ABBEY
+	       <TELL
+CR "In the distance you hear the huge door of the Abbey clang
+shut. You run to the Nave, only to discover that you have been locked
+in. After spending a spooky night in the Abbey, you emerge in the morning
+to discover that the theft of the Crown Jewels has been discovered." CR CR>
+	       <RT-QSR>)>>
+
+<ROUTINE RT-I-OPEN-WESTMINSTER-DOOR ()
+	<RT-ALARM-SET-REL ,RT-I-CLOSE-WESTMINSTER-DOOR <RT-PARM-SET 11 0 0>>
+	<MC-MAKE ,LG-WESTMINSTER-DOOR ,FL-OPENED>
+	<COND (<MC-HERE? ,RM-BROAD-SANCTUARY>
+	       <TELL
+CR "A verger appears, unlocks the huge door, and pushes it open." CR>)
+	      (<MC-HERE? ,RM-NAVE>
+	       <TELL
+CR "Suddenly you hear the west door opening. The sunlight streaming in the
+door blinds you after your night-long vigil. A verger enters, gives you a
+strange look, and disappears into the South Aisle." CR>)>>
+
+<ROUTINE RT-I-CLOSE-WESTMINSTER-DOOR ()
+	<RT-ALARM-SET-REL ,RT-I-OPEN-WESTMINSTER-DOOR <RT-PARM-SET 13 0 0>>
+	<MC-UNMAKE ,LG-WESTMINSTER-DOOR ,FL-OPENED>
+	<COND (<MC-HERE? ,RM-BROAD-SANCTUARY>
+	       <TELL
+CR "The verger says goodnight and closes the door." CR>)
+	      (<MC-HERE? ,RM-NAVE>
+	       ;<COND (<MC-IS? ,CH-PLAYER ,FL-ASLEEP>
+		      <RT-HOSPITAL-MSG "verger">
+		      <RT-QSR>)>
+	       <SETG PLAYER-IN-ABBEY <>>
+	       <TELL
+CR "A verger comes up to you and coughs deferentially. \"I'm sorry sir,
+but it's six o'clock and I have to close up now.\" He escorts you to
+the door and closes it behind you as you exit." CR CR>
+	       <RT-GOTO ,RM-BROAD-SANCTUARY>)>>
+
+<ROUTINE RT-CF-TH-BOAT ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BOAT" .CONTEXT>>
+	<COND (<AND <MC-VERB? WALK>
+		    <EQUAL? ,GL-P-WALK-DIR ,P?OUT>>
+	       <RT-PERFORM ,V?EXIT ,TH-BOAT>)
+	      (<AND <MC-VERB? WALK>
+		    <EQUAL? ,GL-P-WALK-DIR ,P?NORTH>
+		    <EQUAL? ,GL-PLACE-CUR ,RM-THE-EMBANKMENT ,RM-OUTSIDE-TRAITORS-GATE>>
+	       <TELL ,K-GET-OUT-FIRST-MSG CR>)
+	      (<AND <MC-VERB? ENTER>
+		    <NOT <MC-PRSO? ,TH-BOAT>>>
+	       <TELL ,K-GET-OUT-FIRST-MSG CR>)>>
+
+<ROUTINE RT-PROCESS-BOAT-ON-THAMES ("AUX" UP? WRD)
+  <COND (<AND <IN? ,TH-ANCHOR ,TH-BOAT>
+	      <NOT <RT-ALARM-SET? ,RT-I-MOVE-DOWNSTREAM>>>
+	 <RT-ALARM-SET-REL ,RT-I-MOVE-DOWNSTREAM <RT-PARM-SET 0 0 0>>)>
+  <COND (<OR <AND <MC-VERB? EXIT SWIM> <MC-PRSO? ,ROOMS ,TH-BOAT>>
+	     <AND <MC-VERB? LEAP CLIMB-DOWN ENTER> <MC-PRSO? ,LG-WATER>>>
+	 <RT-CYOU-MSG "jump" "jumps">
+	 <TELL
+"out of the boat, and then suddenly remember that you can't
+swim. Unable to climb back in, you cling to the boat for hours, until
+you are rescued by a Scotland Yard launch. Naturally, Lestrade is
+aboard, and as he bundles you off to the hospital to recover from the
+dread disease you caught while floating in the river, he tells you that
+he - personally - will take on the case." CR CR
+
+"Somehow this doesn't make you feel any better." CR CR>
+	 <RT-QSR>)
+	(<MC-VERB? ROW PADDLE PADDLE-WITH>
+	 <COND (<OR <AND <MC-PRSO? <> ,ROOMS ,TH-BOAT>
+			 <MC-PRSI? <>>>
+		    <AND <MC-VERB? PADDLE-WITH>
+			 <MC-PRSI? <>>>>
+		<RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+		<TELL "[Please specify a direction to " VW ".]" CR>
+		<RTRUE>)
+	       (<OR <MC-PRSO? ,LG-UP-DOWN-STREAM>
+		    <AND <MC-PRSO? ,TH-INTDIR>
+			 <EQUAL? ,GL-P-DIRECTION
+				 ,P?WEST ,P?EAST>>
+		    <AND <MC-PRSO? ,TH-BOAT>
+			 <MC-PRSI? ,TH-INTDIR>>>
+		<SET UP? <OR <AND <MC-PRSO? ,LG-UP-DOWN-STREAM>
+				  <==? <GETP ,GL-PRSO ,P?OBJ-NOUN>
+				       ,W?UPSTREAM>>
+			     <EQUAL? ,GL-P-DIRECTION ,P?WEST>>>
+		<RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+		<COND (<NOT <IN? ,TH-ANCHOR ,TH-BOAT>>
+		       <RT-CYOU-MSG>
+		       <TELL "can " VW
+			     " like blue blazes, but the anchor is restraining the boat."
+			     CR>)
+		      (<AND <MC-VERB? ROW>
+			    <NOT <IN? ,TH-OAR-2
+				      ,TH-OAR-LOCK>>>
+		       <COND (<IN? ,TH-OAR-1 ,TH-BOAT>
+			      <RT-CYOU-MSG "pull" "pulls">
+			      <TELL
+			       "hard on the oar. The boat spins round and round. Wheeeee!" CR>)
+			     (T
+			      <RT-CYOU-MSG "do" "does">
+			      <TELL "not have any oars." CR>)>)
+		      (<AND <MC-VERB? PADDLE-WITH>
+			    <NOT <MC-PRSI? ,TH-PADDLE>>>
+		       <COND (<MC-PRSI? ,TH-VIOLIN>
+			      <RFALSE>)
+			     (T
+			      <RT-CYOU-MSG>
+			      <TELL "can't paddle with " THEI "."
+				    CR>)>)
+		      (<AND <MC-VERB? PADDLE PADDLE-WITH>
+			    <NOT <IN? ,TH-PADDLE ,GL-WINNER>>>
+		       <RT-CYOU-MSG "do" "does">
+		       <TELL "not have " A ,TH-PADDLE "." CR>)
+		      (<MC-T? .UP?>
+		       <RT-MOVE-UPSTREAM>)
+		      (T
+		       <RT-I-MOVE-DOWNSTREAM>)>
+		<RTRUE>)
+	       (<AND <OR <MC-PRSO? ,TH-INTDIR>
+			 <MC-PRSI? ,TH-INTDIR>>
+		     <EQUAL? ,GL-P-DIRECTION ,P?NORTH>>
+		<RT-LAND-BOAT>
+		<RTRUE>)
+	       (<OR <MC-PRSO? ,TH-INTDIR>
+		    <MC-PRSI? ,TH-INTDIR>>
+		<RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+		<TELL
+		 "There doesn't seem to be anything in that direction."
+		 CR>
+		<RTRUE>)
+	       (T
+		<RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+		<TELL
+		 "I don't recognize the direction you are asking me to "
+		 VW "." CR>
+		<RTRUE>)>)
+	(<MC-VERB? STAND STAND-ON>
+	 <TELL "It isn't safe to stand in a boat." CR>
+	 <RTRUE>)
+	(<MC-VERB? SIT>
+	 <TELL "You're already seated." CR>
+	 <RTRUE>)
+	(<MC-VERB? LEAP>
+	 <TELL "It isn't safe to jump around in a boat." CR>
+	 <RTRUE>)
+	(<AND <EQUAL? ,TH-FLOOR-ETC ,GL-PRSO ,GL-PRSI>
+	      <OR <RT-IDENTIFY-FLOOR? ,W?FLOOR>
+		  <RT-IDENTIFY-FLOOR? ,W?GROUND>>>
+	 <TELL "There is no " D ,TH-FLOOR-ETC
+	       " in the middle of a river." CR>)>>
+
+<ROUTINE RT-I-MOVE-DOWNSTREAM ()
+	<COND (<AND <==? ,GL-WINNER ,CH-PLAYER> <MC-VERB? ROW>>
+	       <RT-CYOU-MSG "row" "rows">)
+	      (<AND <==? ,GL-WINNER ,CH-PLAYER> <MC-VERB? PADDLE PADDLE-WITH>>
+	       <RT-CYOU-MSG "paddle" "paddles">)
+	      (T
+	       <TELL CR "The boat drifts ">)>
+	<TELL "down the river">
+	<SETG GL-NOW-LIT? <RT-IS-LIT?>>
+	<COND (<EQUAL? <LOC ,TH-BOAT> ,RM-THAMES-ONE ,RM-THAMES-TWO
+				      ,RM-THAMES-THREE ,RM-THAMES-FOUR>
+	       <TELL ". ">)>
+	<COND (<IN? ,TH-BOAT ,RM-THAMES-ONE>
+	       <MOVE ,TH-BOAT ,RM-THAMES-TWO>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL "Downstream you see the London Bridge.">)>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-TWO>
+	       <MOVE ,TH-BOAT ,RM-THAMES-THREE>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL "You pass under the London Bridge.">)>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-THREE>
+	       <MOVE ,TH-BOAT ,RM-THAMES-FOUR>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL "To the north you see the Traitors Gate.">)>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-FOUR>
+	       <MOVE ,TH-BOAT ,RM-THAMES-FIVE>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL
+"Downstream you see the open seas... the strong currents would surely
+leave you stranded in your small boat if you were to drift further.">)>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-FIVE>
+	       <TELL
+", and you drift out to sea." CR CR
+
+"After drifting for several days, a passing ship rescues you. By
+coincidence, another passenger happens to be Lestrade, who
+has resigned in the wake of the Crown Jewel scandal and is retiring to
+the island of Pago Pago. After some reflection, you decide
+to join him." CR CR>
+	       <RT-QSR>)>
+	<SETG GL-PLACE-CUR <LOC ,TH-BOAT>>
+	<CRLF>>
+
+<ROUTINE RT-MOVE-UPSTREAM ()
+	<TELL "Fighting against the current, you " VW " upstream. ">
+	<SETG GL-NOW-LIT? <RT-IS-LIT?>>
+	<COND (<IN? ,TH-BOAT ,RM-THAMES-ONE>
+	       <TELL
+CR CR "As you proceed you find yourself among the flotilla of warships that
+have come for the celebration of the Jubilee. You quickly decide that
+it's too dangerous here so you turn back and head downstream.">)
+	      (<IN? ,TH-BOAT ,RM-THAMES-TWO>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL "To the north you see the Embankment.">)>
+	       <MOVE ,TH-BOAT ,RM-THAMES-ONE>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-THREE>
+	       <MOVE ,TH-BOAT ,RM-THAMES-TWO>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-FOUR>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL "You pass under the London Bridge.">)>
+	       <MOVE ,TH-BOAT ,RM-THAMES-THREE>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-FIVE>
+	       <COND (<MC-T? ,GL-NOW-LIT?>
+		      <TELL
+"Upstream, you see the London Bridge, to the north you see the Traitors
+Gate.">)>
+	       <MOVE ,TH-BOAT ,RM-THAMES-FOUR>)>
+	<CRLF>
+	<SETG GL-PLACE-CUR <LOC ,TH-BOAT>>
+	<RTRUE>>
+
+; "RT-THAMES-TIDE"
+; "    0 = HIGH TIDE"
+; "    1 = TIDE COMING IN"
+; "    2 = LOW TIDE"
+; "    3 = TIDE GOING OUT"
+
+<ROUTINE RT-THAMES-TIDE ()
+	<COND (<EQUAL? <RT-CLOCK-CMP  8 32 0 18> 1>
+	       <RETURN 1>)
+	      (<EQUAL? <RT-CLOCK-CMP  8 48 0 18> 1>
+	       <RETURN 0>)
+	      (<EQUAL? <RT-CLOCK-CMP 14 35 0 18> 1>
+	       <RETURN 3>)
+	      (<EQUAL? <RT-CLOCK-CMP 14 51 0 18> 1>
+	       <RETURN 2>)
+	      (<EQUAL? <RT-CLOCK-CMP 20 38 0 18> 1>
+	       <RETURN 1>)
+	      (<EQUAL? <RT-CLOCK-CMP 20 54 0 18> 1>
+	       <RETURN 0>)
+	      (<EQUAL? <RT-CLOCK-CMP  2 41 0 19> 1>
+	       <RETURN 3>)
+	      (<EQUAL? <RT-CLOCK-CMP  2 57 0 19> 1>
+	       <RETURN 2>)
+	      (<EQUAL? <RT-CLOCK-CMP  8 44 0 19> 1>
+	       <RETURN 1>)
+	      (<EQUAL? <RT-CLOCK-CMP  9  0 0 19> 1>
+	       <RETURN 0>)
+	      (<EQUAL? <RT-CLOCK-CMP 14 47 0 19> 1>
+	       <RETURN 3>)
+	      (<EQUAL? <RT-CLOCK-CMP 15  3 0 19> 1>
+	       <RETURN 2>)
+	      (<EQUAL? <RT-CLOCK-CMP 20 50 0 19> 1>
+	       <RETURN 1>)
+	      (<EQUAL? <RT-CLOCK-CMP 21  6 0 19> 1>
+	       <RETURN 0>)
+	      (<EQUAL? <RT-CLOCK-CMP  2 53 0 20> 1>
+	       <RETURN 3>)
+	      (<EQUAL? <RT-CLOCK-CMP  3  9 0 20> 1>
+	       <RETURN 2>)
+	      (<EQUAL? <RT-CLOCK-CMP  8 56 0 20> 1>
+	       <RETURN 1>)
+	      (<EQUAL? <RT-CLOCK-CMP  9 12 0 20> 1>
+	       <RETURN 0>)
+	      (T
+	       <RETURN 3>)>>
+
+<ROUTINE RT-TOWER-PASSWORD (WORD-NUM "AUX" PASSWORD)
+  <SET PASSWORD ,PASSWORD-ID>
+  <COND (<OR <ZERO? .PASSWORD>
+	     <NOT <MC-HERE? ,RM-BYWARD-TOWER>>>
+	 <TELL "Wasn't she one of the six wives of Henry VIII?" CR>)
+	(<EQUAL? ,GL-PLACE-PRV ,RM-OUTER-WARD>
+	 <TELL "\"I am sorry, but I have strict orders to allow
+absolutely no one to leave the Tower, whether or not he knows the
+password. The Prime Minister himself could not get out of here before
+Monday morning." CR>)
+	(<NOT <EQUAL? .WORD-NUM .PASSWORD>>
+	 <TELL "\"I am sorry but that password is no longer valid.\"" CR>)
+	(T
+	 <TELL "The guard steps aside as you walk in." CR CR>
+	 <RT-GOTO ,RM-OUTER-WARD>
+	 <RT-UPDATE-SCORE 3>
+	 <SETG PASSWORD-ID 9>
+	 <SETG ALLOW-IN-TOWER T>
+	 <RTRUE>)>>
+
+<ROUTINE V-BOLEYN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-BOLEYN">>
+	<RT-TOWER-PASSWORD 1>>
+
+<ROUTINE V-CLEVES ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLEVES">>
+	<RT-TOWER-PASSWORD 2>>
+
+<ROUTINE V-HOWARD ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HOWARD">>
+	<RT-TOWER-PASSWORD 3>>
+
+<ROUTINE V-PARR ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PARR">>
+	<RT-TOWER-PASSWORD 4>>
+
+<ROUTINE V-ARAGON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ARAGON">>
+	<RT-TOWER-PASSWORD 5>>
+
+<ROUTINE V-SEYMOUR ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SEYMOUR">>
+	<RT-TOWER-PASSWORD 6>>
+
+<ROUTINE RT-I-OPEN-MUSEUM-DOOR ()
+	<RT-ALARM-SET-REL ,RT-I-CLOSE-MUSEUM-DOOR <RT-PARM-SET 10 0 0>>
+	<MC-MAKE ,LG-BRITISH-MUSEUM-DOOR ,FL-OPENED>
+	<COND (<MC-HERE? ,RM-GREAT-RUSSELL-ST>
+	       <TELL
+CR "A guard opens the door and then disappears inside the museum." CR>)>>
+
+<ROUTINE RT-I-CLOSE-MUSEUM-DOOR ()
+	<RT-ALARM-SET-REL ,RT-I-OPEN-MUSEUM-DOOR <RT-PARM-SET 14 0 0>>
+	<MC-UNMAKE ,LG-BRITISH-MUSEUM-DOOR ,FL-OPENED>
+	<COND (<MC-HERE? ,RM-GREAT-RUSSELL-ST>
+	       <TELL
+CR "The guard says goodnight and closes the door." CR>)
+	      (<AND <MC-HERE? ,RM-MANUSCRIPT-ROOM>
+		    <IN? ,CH-LIBRARIAN ,RM-MANUSCRIPT-ROOM>>
+	       <TELL
+CR "The librarian looks at his pocket-watch and exclaims, \"Goodness! It's
+closing time already! I really have enjoyed this chat, but I'm afraid
+you'll have to let me go. Why don't I see you out?\"" CR CR
+
+"He escorts you to the front door, discoursing all the while on the evolution
+of the use of mud by the Hittites. He waves goodbye as he closes the door
+behind you." CR CR>
+	       <MC-MAKE ,CH-LIBRARIAN ,FL-ASLEEP>
+	       <RT-GOTO ,RM-GREAT-RUSSELL-ST>
+	       <MC-UNMAKE ,CH-LIBRARIAN ,FL-ASLEEP>)
+	      (<MC-HERE? ,RM-MANUSCRIPT-ROOM ,RM-BRITISH-MUSEUM>
+	       ;<COND (<MC-IS? ,CH-PLAYER ,FL-ASLEEP>
+		      <RT-HOSPITAL-MSG "guard">
+		      <RT-QSR>)>
+	       <TELL
+CR "A guard comes up to you and says, \"I'm sorry sir, its closing time. I
+have to lock up now.\" He escorts you to the front door, and then closes it
+behind you as you leave." CR CR>
+	       <RT-GOTO ,RM-GREAT-RUSSELL-ST>)>>
+
+<ROUTINE RT-INDENT-PRINT ()
+	<COND (<G=? ,GL-ALLSCREEN 75>
+	       <TELL "     ">)>>
+
+<ROUTINE RT-WRAP-PRINT ()
+	<COND (<L? ,GL-ALLSCREEN 75>
+	       <TELL CR "    ">)
+	      (T
+	       <TELL " ">)>>
+
+;<ROUTINE RT-HOSPITAL-MSG (STR)
+	<TELL
+CR "While you were unconscious, a " .STR " discovered your insensate body and
+shipped you off to the nearest hospital. When you awoke, Lestrade was
+standing by your bed, causing you to relapse into unconsciousness." CR CR>>
diff --git a/s10.nam b/s10.nam
new file mode 100644
index 0000000..21e5275
Binary files /dev/null and b/s10.nam differ
diff --git a/s11.nam b/s11.nam
new file mode 100644
index 0000000..cff6940
Binary files /dev/null and b/s11.nam differ
diff --git a/s12.nam b/s12.nam
new file mode 100644
index 0000000..d63b2f5
Binary files /dev/null and b/s12.nam differ
diff --git a/s13.nam b/s13.nam
new file mode 100644
index 0000000..8c71ac3
Binary files /dev/null and b/s13.nam differ
diff --git a/s14.nam b/s14.nam
new file mode 100644
index 0000000..c87c09d
Binary files /dev/null and b/s14.nam differ
diff --git a/s15.nam b/s15.nam
new file mode 100644
index 0000000..b519b24
Binary files /dev/null and b/s15.nam differ
diff --git a/s16.nam b/s16.nam
new file mode 100644
index 0000000..a21c6d9
Binary files /dev/null and b/s16.nam differ
diff --git a/s17.nam b/s17.nam
new file mode 100644
index 0000000..e494c36
Binary files /dev/null and b/s17.nam differ
diff --git a/s3.nam b/s3.nam
new file mode 100644
index 0000000..41b4a26
Binary files /dev/null and b/s3.nam differ
diff --git a/s4.nam b/s4.nam
new file mode 100644
index 0000000..9215db4
Binary files /dev/null and b/s4.nam differ
diff --git a/s5.nam b/s5.nam
new file mode 100644
index 0000000..687abe3
Binary files /dev/null and b/s5.nam differ
diff --git a/s6.nam b/s6.nam
new file mode 100644
index 0000000..66ed080
Binary files /dev/null and b/s6.nam differ
diff --git a/s7.nam b/s7.nam
new file mode 100644
index 0000000..86a6362
Binary files /dev/null and b/s7.nam differ
diff --git a/s8.nam b/s8.nam
new file mode 100644
index 0000000..099e805
Binary files /dev/null and b/s8.nam differ
diff --git a/s9.nam b/s9.nam
new file mode 100644
index 0000000..360ed7a
Binary files /dev/null and b/s9.nam differ
diff --git a/sched.zabstr b/sched.zabstr
new file mode 100644
index 0000000..0afa265
--- /dev/null
+++ b/sched.zabstr
@@ -0,0 +1,39 @@
+
+<CONSTANT K-SEC 0> 
+<CONSTANT K-MIN 1> 
+<CONSTANT K-HRS 2> 
+<CONSTANT K-DAY 3> 
+<CONSTANT K-DOW-BASE 12> 
+<CONSTANT K-A-RSIZE 30> 
+<CONSTANT K-A-TWDTH 4> 
+<CONSTANT K-A-TSIZE <* ,K-A-TWDTH 30>> 
+<GLOBAL GL-CLOCK-WAIT:FLAG <> %<> WORD> 
+<GLOBAL GL-CLOCK-STOP:FLAG <> %<> WORD> 
+<CONSTANT GL-TIME:TABLE <TABLE (BYTE) 0 0 0 0>> 
+<CONSTANT GL-TEMP-TIME:TABLE <ITABLE ,K-A-TWDTH (BYTE) 0>> 
+<CONSTANT GL-TIME-PARM:TABLE <ITABLE ,K-A-TWDTH (BYTE) 0>> 
+<CONSTANT GL-TIME-UPDT-INC:TABLE <TABLE (BYTE) 0 0 0 0>> 
+<CONSTANT GL-TIME-UPDT-DEF:TABLE <TABLE (BYTE) 0 0 0 0>> 
+<CONSTANT GL-DAY-NAME:TABLE <PTABLE "Sunday" "Monday" "Tuesday" "Wednesday"
+"Thursday" "Friday" "Saturday" "Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"
+"Sunday   " "Monday   " "Tuesday  " "Wednesday" "Thursday " "Friday   "
+"Saturday ">> 
+<GLOBAL GL-ALARM-WAIT:FLAG <> %<> WORD> 
+<GLOBAL GL-ALARM-STOP:FLAG <> %<> WORD> 
+<GLOBAL GL-ALARM-EXEC:FLAG <> %<> WORD> 
+<CONSTANT GL-A-ROUT:TABLE <ITABLE ,K-A-RSIZE 0>> 
+<CONSTANT GL-A-TIME:TABLE <ITABLE ,K-A-TSIZE (BYTE) 0>> 
+<DEFINE-ROUTINE RT-COPY-TIME> 
+<DEFINE-ROUTINE RT-NORM-TIME> 
+<DEFINE-ROUTINE RT-DO-CLOCK-SET> 
+<DEFINE-ROUTINE RT-CLOCK-INC> 
+<DEFINE-ROUTINE RT-CLOCK-CMP> 
+<DEFINE-ROUTINE RT-CLOCK-JMP> 
+<DEFINE-ROUTINE RT-CLK-NTI-MSG> 
+<DEFINE-ROUTINE RT-CLK-DOW-MSG> 
+<DEFINE-ROUTINE RT-ALARM-SET?> 
+<DEFINE-ROUTINE RT-ALARM-SET-REL> 
+<DEFINE-ROUTINE RT-ALARM-SET-ABS> 
+<DEFINE-ROUTINE RT-ALARM-CLR> 
+<GLOBAL RUN-SMELL-ETHERIUM? <> %<> WORD> 
+<DEFINE-ROUTINE RT-ALARM-CHK> 
\ No newline at end of file
diff --git a/sched.zap b/sched.zap
new file mode 100644
index 0000000..be5f366
--- /dev/null
+++ b/sched.zap
@@ -0,0 +1,324 @@
+
+
+	.FUNCT	RT-COPY-TIME,TBL1,TBL2
+	COPYT	TBL1,TBL2,K-A-TWDTH
+	RTRUE	
+
+
+	.FUNCT	RT-NORM-TIME,TIME-TABLE,TEMP,M-LEN,?TMP1
+	GETB	TIME-TABLE,K-SEC >TEMP
+	MOD	TEMP,60
+	PUTB	TIME-TABLE,K-SEC,STACK
+	GETB	TIME-TABLE,K-MIN >?TMP1
+	DIV	TEMP,60
+	ADD	?TMP1,STACK >TEMP
+	MOD	TEMP,60
+	PUTB	TIME-TABLE,K-MIN,STACK
+	GETB	TIME-TABLE,K-HRS >?TMP1
+	DIV	TEMP,60
+	ADD	?TMP1,STACK >TEMP
+	MOD	TEMP,24
+	PUTB	TIME-TABLE,K-HRS,STACK
+	GETB	TIME-TABLE,K-DAY >?TMP1
+	DIV	TEMP,24 >TEMP
+	ADD	?TMP1,TEMP
+	PUTB	TIME-TABLE,K-DAY,STACK
+	RTRUE	
+
+
+	.FUNCT	RT-DO-CLOCK-SET,TBL,HRS,MIN,SEC,DAY
+	PUTB	TBL,K-SEC,SEC
+	PUTB	TBL,K-MIN,MIN
+	PUTB	TBL,K-HRS,HRS
+	PUTB	TBL,K-DAY,DAY
+	RETURN	TBL
+
+
+	.FUNCT	RT-CLOCK-INC,N,?TMP1
+	ZERO?	GL-CLOCK-WAIT /?CCL3
+	SET	'GL-CLOCK-WAIT,FALSE-VALUE
+	RFALSE	
+?CCL3:	ZERO?	GL-CLOCK-STOP \FALSE
+?PRG5:	GETB	GL-TIME,N >?TMP1
+	GETB	GL-TIME-UPDT-INC,N
+	ADD	?TMP1,STACK
+	PUTB	GL-TIME,N,STACK
+	IGRTR?	'N,3 \?PRG5
+	COPYT	GL-TIME-UPDT-DEF,GL-TIME-UPDT-INC,K-A-TWDTH
+	CALL2	RT-NORM-TIME,GL-TIME
+	RSTACK	
+
+
+	.FUNCT	RT-CLOCK-CMP,HRS,MIN,SEC,DAY,TMP
+	ZERO?	DAY /?CND1
+	GETB	GL-TIME,K-DAY >TMP
+	GRTR?	DAY,TMP /TRUE
+	LESS?	DAY,TMP \?CND1
+	RETURN	-1
+?CND1:	GETB	GL-TIME,K-HRS >TMP
+	GRTR?	HRS,TMP /TRUE
+	LESS?	HRS,TMP \?CCL11
+	RETURN	-1
+?CCL11:	GETB	GL-TIME,K-MIN >TMP
+	GRTR?	MIN,TMP /TRUE
+	LESS?	MIN,TMP \?CCL15
+	RETURN	-1
+?CCL15:	GETB	GL-TIME,K-SEC >TMP
+	GRTR?	SEC,TMP /TRUE
+	LESS?	SEC,TMP \FALSE
+	RETURN	-1
+
+
+	.FUNCT	RT-CLOCK-JMP,HRS,MIN,SEC,DAY
+	ICALL	RT-DO-CLOCK-SET,GL-TIME-UPDT-INC,HRS,MIN,SEC,DAY
+	ICALL1	RT-CLOCK-INC
+	EQUAL?	GL-PRSA,V?WAIT,V?WAIT-FOR \?CCL3
+	PUSH	2
+	JUMP	?CND1
+?CCL3:	PUSH	1
+?CND1:	ICALL2	RT-ALARM-CHK,STACK
+	SET	'GL-CLOCK-WAIT,TRUE-VALUE
+	RETURN	GL-CLOCK-WAIT
+
+
+	.FUNCT	RT-CLK-NTI-MSG,FMT,HRS,MIN,SEC,MSD,MER,AM-PM?
+	ASSIGNED?	'FMT /?CND1
+	SET	'FMT,7
+?CND1:	GETB	GL-TIME,K-HRS >HRS
+	GETB	GL-TIME,K-MIN >MIN
+	GETB	GL-TIME,K-SEC >SEC
+	BTST	FMT,4 \?CND3
+	BTST	FMT,8 \?CCL7
+	SET	'MSD,STR?217
+	JUMP	?CND5
+?CCL7:	ZERO?	HRS \?CCL9
+	ADD	HRS,12 >HRS
+	SET	'MSD,STR?218
+	SET	'AM-PM?,1
+	JUMP	?CND5
+?CCL9:	LESS?	HRS,12 \?CCL11
+	SET	'MSD,STR?218
+	SET	'AM-PM?,1
+	JUMP	?CND5
+?CCL11:	EQUAL?	HRS,12 \?CCL13
+	SET	'MSD,STR?218
+	SET	'AM-PM?,2
+	JUMP	?CND5
+?CCL13:	SUB	HRS,12 >HRS
+	SET	'MSD,STR?218
+	SET	'AM-PM?,2
+?CND5:	EQUAL?	AM-PM?,1 \?CCL16
+	BTST	FMT,16 \?CCL19
+	SET	'MER,STR?219
+	JUMP	?CND14
+?CCL19:	SET	'MER,STR?220
+	JUMP	?CND14
+?CCL16:	EQUAL?	AM-PM?,2 \?CCL21
+	BTST	FMT,16 \?CCL24
+	SET	'MER,STR?221
+	JUMP	?CND14
+?CCL24:	SET	'MER,STR?222
+	JUMP	?CND14
+?CCL21:	SET	'MER,STR?218
+?CND14:	LESS?	HRS,10 \?CND25
+	PRINT	MSD
+?CND25:	PRINTN	HRS
+?CND3:	BTST	FMT,2 \?CND27
+	BTST	FMT,4 \?CND29
+	PRINTC	58
+?CND29:	LESS?	MIN,10 \?CND31
+	PRINTC	48
+?CND31:	PRINTN	MIN
+?CND27:	BTST	FMT,1 \?CND33
+	BTST	FMT,4 /?CCL36
+	BTST	FMT,2 \?CND35
+?CCL36:	PRINTC	58
+?CND35:	LESS?	SEC,10 \?CND39
+	PRINTC	48
+?CND39:	PRINTN	SEC
+?CND33:	BTST	FMT,4 \FALSE
+	PRINT	MER
+	RTRUE	
+
+
+	.FUNCT	RT-CLK-DOW-MSG,FMT,DOW,WDOW
+	ASSIGNED?	'FMT /?CND1
+	SET	'FMT,1
+?CND1:	GETB	GL-TIME,K-DAY
+	SUB	STACK,K-DOW-BASE
+	MOD	STACK,7 >DOW
+	BTST	FMT,1 \FALSE
+	BTST	FMT,4 \?CCL8
+	ADD	DOW,14
+	GET	GL-DAY-NAME,STACK >WDOW
+	JUMP	?CND6
+?CCL8:	BTST	FMT,2 \?CCL10
+	ADD	DOW,7
+	GET	GL-DAY-NAME,STACK >WDOW
+	JUMP	?CND6
+?CCL10:	GET	GL-DAY-NAME,DOW >WDOW
+?CND6:	PRINT	WDOW
+	RTRUE	
+
+
+	.FUNCT	RT-ALARM-SET?,RTN,R-PTR,T-PTR
+?PRG1:	EQUAL?	R-PTR,K-A-RSIZE /FALSE
+	GET	GL-A-ROUT,R-PTR
+	EQUAL?	RTN,STACK \?CCL7
+	MUL	R-PTR,K-A-TWDTH >T-PTR
+	ADD	GL-A-TIME,T-PTR
+	ICALL	RT-COPY-TIME,STACK,GL-TIME-PARM
+	RTRUE	
+?CCL7:	INC	'R-PTR
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-ALARM-SET-REL,RTN,TIME,R-PTR,T-PTR,N,?TMP3,?TMP2,?TMP1
+?PRG1:	EQUAL?	R-PTR,K-A-RSIZE \?CND3
+	CRLF	
+	PRINTI	"*** TOO MANY ALARMS (REL) ***"
+	CRLF	
+	CRLF	
+	RFALSE	
+?CND3:	GET	GL-A-ROUT,R-PTR
+	ZERO?	STACK \?CCL7
+	PUT	GL-A-ROUT,R-PTR,RTN
+	MUL	R-PTR,K-A-TWDTH >T-PTR
+	ZERO?	GL-ALARM-EXEC /?CCL10
+	SET	'N,0
+?PRG11:	ADD	T-PTR,N >?TMP1
+	GETB	GL-TIME,N >?TMP2
+	GETB	TIME,N
+	ADD	?TMP2,STACK
+	PUTB	GL-A-TIME,?TMP1,STACK
+	IGRTR?	'N,3 /?CND8
+	JUMP	?PRG11
+?CCL10:	SET	'N,0
+?PRG15:	ADD	T-PTR,N >?TMP1
+	GETB	GL-TIME,N >?TMP3
+	GETB	TIME,N
+	ADD	?TMP3,STACK >?TMP2
+	GETB	GL-TIME-UPDT-INC,N
+	ADD	?TMP2,STACK
+	PUTB	GL-A-TIME,?TMP1,STACK
+	IGRTR?	'N,3 \?PRG15
+?CND8:	ADD	GL-A-TIME,T-PTR
+	ICALL2	RT-NORM-TIME,STACK
+	RTRUE	
+?CCL7:	INC	'R-PTR
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-ALARM-SET-ABS,RTN,TIME,R-PTR,T-PTR
+?PRG1:	EQUAL?	R-PTR,K-A-RSIZE \?CND3
+	CRLF	
+	PRINTI	"*** TOO MANY (ABS) ALARMS ***"
+	CRLF	
+	CRLF	
+	RFALSE	
+?CND3:	GET	GL-A-ROUT,R-PTR
+	ZERO?	STACK \?CCL7
+	PUT	GL-A-ROUT,R-PTR,RTN
+	MUL	R-PTR,K-A-TWDTH >T-PTR
+	ADD	GL-A-TIME,T-PTR
+	COPYT	TIME,STACK,K-A-TWDTH
+	RTRUE	
+?CCL7:	INC	'R-PTR
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-ALARM-CLR,RTN,R-PTR,T-PTR
+?PRG1:	EQUAL?	R-PTR,K-A-RSIZE /FALSE
+	GET	GL-A-ROUT,R-PTR
+	EQUAL?	RTN,STACK \?CND3
+	PUT	GL-A-ROUT,R-PTR,0
+	MUL	R-PTR,K-A-TWDTH >T-PTR
+	ADD	GL-A-TIME,T-PTR
+	COPYT	STACK,0,K-A-TWDTH
+?CND3:	INC	'R-PTR
+	JUMP	?PRG1
+
+
+	.FUNCT	RT-ALARM-CHK,PARM,VAL,RTN,R-PTR,R-CNT,T-PTR,HRS,MIN,SEC,DAY,T-TIME
+	SET	'RTN,-1
+	SET	'RUN-SMELL-ETHERIUM?,FALSE-VALUE
+	ZERO?	GL-ALARM-WAIT /?CCL3
+	SET	'GL-ALARM-WAIT,FALSE-VALUE
+	RFALSE	
+?CCL3:	GET	GLOBAL-VARS-TABLE,0
+	ZERO?	STACK \FALSE
+	ICALL	RT-COPY-TIME,GL-TIME,GL-TEMP-TIME
+?PRG5:	EQUAL?	R-PTR,K-A-RSIZE \?CND7
+	EQUAL?	RTN,-1 \?CCL11
+	ZERO?	RUN-SMELL-ETHERIUM? \?REP6
+	RETURN	R-CNT
+?CCL11:	SET	'R-PTR,RTN
+	GET	GL-A-ROUT,R-PTR >RTN
+	MUL	R-PTR,K-A-TWDTH >T-PTR
+	PUT	GL-A-ROUT,R-PTR,0
+	ADD	GL-A-TIME,T-PTR >T-TIME
+	GETB	T-TIME,K-SEC >SEC
+	GETB	T-TIME,K-MIN >MIN
+	GETB	T-TIME,K-HRS >HRS
+	GETB	T-TIME,K-DAY >DAY
+	COPYT	T-TIME,0,K-A-TWDTH
+	FSET?	CH-PLAYER,FL-ASLEEP /?CND14
+	ICALL1	RT-UPDATE-STATUS-LINE
+?CND14:	SET	'GL-ALARM-EXEC,TRUE-VALUE
+	CALL	RTN >VAL
+	ZERO?	RUN-SMELL-ETHERIUM? \?REP6
+	SET	'GL-ALARM-EXEC,FALSE-VALUE
+	ICALL	RT-COPY-TIME,GL-TEMP-TIME,GL-TIME
+	INC	'R-CNT
+	ZERO?	VAL /?CND18
+	CALL	RT-CLOCK-CMP,HRS,MIN,SEC,DAY
+	EQUAL?	STACK,-1 \?CND18
+	EQUAL?	PARM,1 \?CCL24
+	PRINTI	"[Press any key to continue.]"
+	CRLF	
+	INPUT	1
+	JUMP	?CND18
+?CCL24:	EQUAL?	PARM,2 \?CND18
+?PRG26:	CRLF	
+	PRINTI	"Do you want to continue waiting?"
+	CRLF	
+	PRINTI	"Please press Y or N > "
+	INPUT	1 >VAL
+	PRINTC	VAL
+	CRLF	
+	EQUAL?	VAL,78,110 \?CCL30
+	SET	'RTN,-1
+	SET	'R-PTR,K-A-RSIZE
+	ICALL	RT-DO-CLOCK-SET,GL-TIME,HRS,MIN,SEC,DAY
+	JUMP	?CND18
+?CCL30:	EQUAL?	VAL,89,121 \?PRG26
+?CND18:	EQUAL?	RTN,-1 /?PRG5
+	SET	'RTN,-1
+	SET	'R-PTR,0
+	JUMP	?PRG5
+?CND7:	GET	GL-A-ROUT,R-PTR
+	ZERO?	STACK /?CND34
+	MUL	R-PTR,K-A-TWDTH >T-PTR
+	ADD	T-PTR,K-SEC
+	GETB	GL-A-TIME,STACK >SEC
+	ADD	T-PTR,K-MIN
+	GETB	GL-A-TIME,STACK >MIN
+	ADD	T-PTR,K-HRS
+	GETB	GL-A-TIME,STACK >HRS
+	ADD	T-PTR,K-DAY
+	GETB	GL-A-TIME,STACK >DAY
+	ZERO?	PARM /?PRD39
+	CALL	RT-CLOCK-CMP,HRS,MIN,SEC,DAY
+	EQUAL?	STACK,-1 /?CCL37
+?PRD39:	ZERO?	PARM \?CND34
+	CALL	RT-CLOCK-CMP,HRS,MIN,SEC,DAY
+	EQUAL?	STACK,-1,0 \?CND34
+?CCL37:	ICALL	RT-DO-CLOCK-SET,GL-TIME,HRS,MIN,SEC,DAY
+	SET	'RTN,R-PTR
+?CND34:	INC	'R-PTR
+	JUMP	?PRG5
+?REP6:	ZERO?	RUN-SMELL-ETHERIUM? /FALSE
+	ICALL1	RT-SMELL-ETHERIUM?
+	RETURN	R-CNT
+
+	.ENDI
diff --git a/sched.zil b/sched.zil
new file mode 100644
index 0000000..36ad4a8
--- /dev/null
+++ b/sched.zil
@@ -0,0 +1,447 @@
+; "clock constants"
+
+; "offsets into time tables"
+
+<CONSTANT K-SEC 0>			; "sec"
+<CONSTANT K-MIN 1>			; "min"
+<CONSTANT K-HRS 2>			; "hrs"
+<CONSTANT K-DAY 3>			; "day"
+<CONSTANT K-DOW-BASE 12>		; "Known to be Sunday (dow = 0)"
+
+; "alarm constants"
+
+<CONSTANT K-A-RSIZE   30>	; "size of alarm routine table in words"
+<CONSTANT K-A-TWDTH   4>	; "size of alarm time table entry in bytes"
+<CONSTANT K-A-TSIZE	<* ,K-A-TWDTH 30>>	; "size of alarm time table in bytes"
+
+
+; "event constants"
+
+; "clock globals"
+
+<GLOBAL GL-CLOCK-WAIT:FLAG  <>>				; "flag to inhibit clock update"
+<GLOBAL GL-CLOCK-STOP:FLAG  <>>				; "flag to stop    clock update"
+
+<CONSTANT GL-TIME:TABLE ; "pri game time table"
+	<TABLE  (BYTE)
+		0		; "sec 00-59"
+		0		; "min 00-59"
+		0 		; "hrs 00-23"
+		0 		; "day 01-31">>
+
+<CONSTANT GL-TEMP-TIME:TABLE <ITABLE ,K-A-TWDTH (BYTE) 0>>
+; "table to hold time temporarily"
+
+<CONSTANT GL-TIME-PARM:TABLE <ITABLE ,K-A-TWDTH (BYTE) 0>>
+; "Parameter table to all time routines"
+
+<CONSTANT GL-TIME-UPDT-INC:TABLE			; "next time inc is kept here"
+	<TABLE (BYTE)
+		0		; "sec"
+		0		; "min"
+		0		; "hrs"
+		0 		; "day">>
+
+<CONSTANT GL-TIME-UPDT-DEF:TABLE			; "default time inc is kept here"
+	<TABLE (BYTE)
+		0		; "sec"
+		0		; "min"
+		0		; "hrs"
+		0 		; "day">>
+
+<CONSTANT GL-DAY-NAME:TABLE					; "long and short day names"
+	<PTABLE
+		"Sunday"	; "offset of  0"
+		"Monday"
+		"Tuesday"
+		"Wednesday"
+		"Thursday"
+		"Friday"
+		"Saturday"
+		"Sun"										; "offset of  7"
+		"Mon"
+		"Tue"
+		"Wed"
+		"Thu"
+		"Fri"
+		"Sat"
+		"Sunday   "								; "offset of 14"
+		"Monday   "
+		"Tuesday  "
+		"Wednesday"
+		"Thursday "
+		"Friday   "
+		"Saturday "
+	>
+>
+
+; "alarm globals"
+
+<GLOBAL GL-ALARM-WAIT:FLAG  <>>			; "flag to inhibit alarm check"
+<GLOBAL GL-ALARM-STOP:FLAG  <>>			; "flag to stop    alarm check"
+<GLOBAL GL-ALARM-EXEC:FLAG  <>>			; "flag to show an alarm is executing"
+
+<CONSTANT GL-A-ROUT:TABLE <ITABLE ,K-A-RSIZE 0>>	; "table of routines"
+<CONSTANT GL-A-TIME:TABLE <ITABLE ,K-A-TSIZE (BYTE) 0>>
+; "table of times (6 words)"
+
+; "event globals"
+
+; "support routines use by clock/event/alarm"
+
+; "RT-COPY-TIME"
+; "Copy time table 1 to time table 2"
+
+<ROUTINE RT-COPY-TIME (TBL1 TBL2)
+	<COPYT .TBL1 .TBL2 ,K-A-TWDTH>>
+
+; "RT-NORM-TIME"
+
+<ROUTINE RT-NORM-TIME (TIME-TABLE "AUX" TEMP M-LEN)
+   ; "normalize seconds"
+   <SET TEMP <GETB .TIME-TABLE ,K-SEC>>
+   <PUTB .TIME-TABLE ,K-SEC <MOD .TEMP 60>>
+   ; "This is the new minutes value"
+   <SET TEMP <+ <GETB .TIME-TABLE ,K-MIN> </ .TEMP 60>>>
+   ; "normalize minutes"
+   <PUTB .TIME-TABLE ,K-MIN <MOD .TEMP 60>>
+   <SET TEMP <+ <GETB .TIME-TABLE ,K-HRS> </ .TEMP 60>>>
+   ; "normalize hours"
+   <PUTB .TIME-TABLE ,K-HRS <MOD .TEMP 24>>
+   ; "Update day of month"
+   <PUTB .TIME-TABLE ,K-DAY <+ <GETB .TIME-TABLE ,K-DAY>
+			       <SET TEMP </ .TEMP 24>>>>
+   ; "normalize day, month, and year (including leap years)"
+   ; "Given that the game takes place in the middle of June in 1887,
+      this is a complete waste of time..."
+   ;<REPEAT ()
+     <SET M-LEN <GETB ,GL-MONTH-LEN <GETB .TIME-TABLE ,K-MON>>>
+     <COND (<NOT <EQUAL? <GETB .TIME-TABLE ,K-MON> 2>>
+	    T)
+	   (<ZERO? <MOD <GETB .TIME-TABLE ,K-YRS> 100>>
+	    T)
+	   (<ZERO? <MOD <GETB .TIME-TABLE ,K-YRS> 4>>
+	    <INC M-LEN>)>
+     <SET TEMP <GETB .TIME-TABLE ,K-DAY>>
+     <COND (<G? .TEMP .M-LEN>
+	    <PUTB .TIME-TABLE ,K-DAY <- .TEMP .M-LEN>>
+	    <PUTB .TIME-TABLE ,K-MON <+ <GETB .TIME-TABLE ,K-MON> 1>>
+	    <SET TEMP <GETB .TIME-TABLE ,K-MON>>
+	    <COND (<G? .TEMP 12>
+		   <PUTB .TIME-TABLE ,K-MON <- .TEMP 12>>
+		   <PUTB .TIME-TABLE ,K-YRS
+			 <+ <GETB .TIME-TABLE ,K-YRS> 1>>)>)
+	   (T <RETURN>)>>>
+
+; "clock routines"
+
+; "RT-CLOCK-INC-SET.  Made a macro that calls RT-DO-CLOCK-SET"
+
+<ROUTINE RT-DO-CLOCK-SET (TBL HRS MIN SEC
+		       "OPTIONAL" (DAY 0))
+	<PUTB .TBL ,K-SEC .SEC>
+	<PUTB .TBL ,K-MIN .MIN>
+	<PUTB .TBL ,K-HRS .HRS>
+ 	<PUTB .TBL ,K-DAY .DAY>
+ 	.TBL>
+
+; "RT-CLOCK-DEF-SET.  Moved to MACROS"
+
+; "RT-CLOCK-SET.  MOVED TO MACROS"
+
+; "RT-CLOCK-INC"
+
+<ROUTINE RT-CLOCK-INC ()
+	<COND (<MC-T? ,GL-CLOCK-WAIT>
+	       <SETG GL-CLOCK-WAIT <>>
+	       <RFALSE>)
+	      (<MC-T? ,GL-CLOCK-STOP>
+	       <RFALSE>)>
+	; "add gl-time-updt-inc to gl-time"
+	<REPEAT ((N 0))
+	  <PUTB ,GL-TIME .N
+		<+ <GETB ,GL-TIME .N>
+		   <GETB ,GL-TIME-UPDT-INC .N>>>
+	  <COND (<G? <SET N <+ .N 1>>
+		     <- ,K-A-TWDTH 1>> <RETURN>)>>
+	; "copy gl-time-updt-def into gl-time-updt-inc"
+	<COPYT ,GL-TIME-UPDT-DEF ,GL-TIME-UPDT-INC ,K-A-TWDTH>
+	; "normalize the time in gl-time"
+	<RT-NORM-TIME ,GL-TIME>>
+
+; "RT-PARM-SET MOVED TO MACROS"
+
+; "RT-CLOCK-CMP"
+; "Returns -1 if arg time < current time."
+; "Returns  0 if arg time = current time."
+; "Returns  1 if arg time > current time."
+
+<ROUTINE RT-CLOCK-CMP (HRS MIN SEC "OPTIONAL" (DAY 0)
+		       "AUX" TMP)
+	<COND (<ZERO? .DAY>
+	       T)
+	      (<G? .DAY <SET TMP <GETB ,GL-TIME ,K-DAY>>>
+	       <RETURN 1>)
+	      (<L? .DAY .TMP>
+	       <RETURN -1>)>
+	<COND (<G? .HRS <SET TMP <GETB ,GL-TIME ,K-HRS>>>
+	       <RETURN 1>)
+	      (<L? .HRS .TMP>
+	       <RETURN -1>)
+	      (<G? .MIN <SET TMP <GETB ,GL-TIME ,K-MIN>>>
+	       <RETURN 1>)
+	      (<L? .MIN .TMP>
+	       <RETURN -1>)
+	      (<G? .SEC <SET TMP <GETB ,GL-TIME ,K-SEC>>>
+	       <RETURN 1>)
+	      (<L? .SEC .TMP>
+	       <RETURN -1>)
+	      (T
+	       <RETURN 0>)>>
+
+; "RT-CLOCK-JMP"
+
+<ROUTINE RT-CLOCK-JMP (HRS MIN SEC "OPTIONAL" (DAY 0))
+	<RT-CLOCK-INC-SET .HRS .MIN .SEC .DAY>
+	<RT-CLOCK-INC>
+	<RT-ALARM-CHK
+		<COND (<MC-VERB? WAIT WAIT-FOR>
+		       2)
+		      (T 1)>>
+	<SETG GL-CLOCK-WAIT T>>
+
+; "RT-CLK-NTI-MSG"
+
+<ROUTINE RT-CLK-NTI-MSG ("OPTIONAL" (FMT 7) "AUX" HRS MIN SEC MSD MER
+			 (AM-PM? 0))
+	<SET HRS <GETB ,GL-TIME ,K-HRS>>
+	<SET MIN <GETB ,GL-TIME ,K-MIN>>
+	<SET SEC <GETB ,GL-TIME ,K-SEC>>
+	<COND (<BAND .FMT ,K-NTI-HH>
+	       <COND (<BAND .FMT ,K-NTI-MT>
+		      <SET MSD "0">)
+		     (<EQUAL? .HRS 0>
+		      <SET HRS <+ .HRS 12>>
+		      <SET MSD " ">
+		      <SET AM-PM? 1>)
+		     (<L? .HRS 12>
+		      <SET MSD " ">
+		      <SET AM-PM? 1>)
+		     (<EQUAL? .HRS 12>
+		      <SET MSD " ">
+		      <SET AM-PM? 2>)
+		     (T
+		      <SET HRS <- .HRS 12>>
+		      <SET MSD " ">
+		      <SET AM-PM? 2>)>
+	       <COND (<==? .AM-PM? 1>
+		      <COND (<BAND .FMT ,K-NTI-SM>
+			     <SET MER " AM">)
+			    (T
+			     <SET MER " a.m.">)>)
+		     (<==? .AM-PM? 2>
+		      <COND (<BAND .FMT ,K-NTI-SM>
+			     <SET MER " PM">)
+			    (T
+			     <SET MER " p.m.">)>)
+		     (T
+		      <SET MER " ">)>
+	       <COND (<L? .HRS 10>
+		      <TELL .MSD>)>
+	       <TELL N .HRS>)>
+	<COND (<BAND .FMT ,K-NTI-MM>
+	       <COND (<BAND .FMT ,K-NTI-HH>
+		      <TELL ":">)>
+	       <COND (<L? .MIN 10>
+		      <TELL "0">)>
+	       <TELL N .MIN>)>
+	<COND (<BAND .FMT ,K-NTI-SS>
+	       <COND (<OR <BAND .FMT ,K-NTI-HH>
+			  <BAND .FMT ,K-NTI-MM>>
+		      <TELL ":">)>
+	       <COND (<L? .SEC 10>
+		      <TELL "0">)>
+	       <TELL N .SEC>)>
+	<COND (<BAND .FMT ,K-NTI-HH>
+	       <TELL .MER>)>>
+
+; "RT-CLK-DOW-MSG"
+
+<ROUTINE RT-CLK-DOW-MSG ("OPTIONAL" (FMT 1) "AUX" DOW WDOW)
+	<SET DOW <MOD <- <GETB ,GL-TIME ,K-DAY> ,K-DOW-BASE> 7>>
+	<COND (<BAND .FMT ,K-DOW-DW>
+	       <COND (<BAND .FMT ,K-DOW-EN>
+		      <SET WDOW <GET ,GL-DAY-NAME <+ .DOW 14>>>)
+		     (<BAND .FMT ,K-DOW-SN>
+		      <SET WDOW <GET ,GL-DAY-NAME <+ .DOW  7>>>)
+		     (T
+		      <SET WDOW <GET ,GL-DAY-NAME .DOW>>)>
+	       <TELL .WDOW>)>>
+
+; "alarm routines"
+
+; "RT-ALARM-SET?"
+
+<ROUTINE RT-ALARM-SET? (RTN "AUX" (R-PTR 0) T-PTR)
+  <REPEAT ()
+    <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+	   <RFALSE>)
+	  (<EQUAL? .RTN <GET ,GL-A-ROUT .R-PTR>>
+	   <SET T-PTR <* .R-PTR ,K-A-TWDTH>>
+	   <RT-COPY-TIME <REST ,GL-A-TIME .T-PTR> ,GL-TIME-PARM>
+	   <RTRUE>)
+	  (T
+	   <INC R-PTR>)>>>
+
+; "RT-ALARM-SET-REL"
+
+<ROUTINE RT-ALARM-SET-REL (RTN TIME "AUX" (R-PTR 0) T-PTR)
+  <REPEAT ()
+    <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+		       <TELL CR "*** TOO MANY ALARMS (REL) ***" CR CR>
+		       <RFALSE>)>
+    ;<DEBUGGING? <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+		       <TELL CR "*** TOO MANY ALARMS (REL) ***" CR CR>
+		       <RFALSE>)>>
+    <COND (<ZERO? <GET ,GL-A-ROUT .R-PTR>>
+	   <PUT ,GL-A-ROUT .R-PTR .RTN>
+	   <SET T-PTR <* .R-PTR ,K-A-TWDTH>>
+	   <COND (<MC-T? ,GL-ALARM-EXEC>
+		  <REPEAT ((N 0))
+		    <PUTB ,GL-A-TIME <+ .T-PTR .N>
+		      <+ <GETB ,GL-TIME .N>
+			 <GETB .TIME .N>>>
+		    <COND (<G? <SET N <+ .N 1>>
+			       <- ,K-A-TWDTH 1>>
+			   <RETURN>)>>)
+		 (T
+		  <REPEAT ((N 0))
+		    <PUTB ,GL-A-TIME <+ .T-PTR .N>
+			  <+ <GETB ,GL-TIME .N>
+			     <GETB .TIME .N>
+			     <GETB ,GL-TIME-UPDT-INC .N>>>
+		    <COND (<G? <SET N <+ .N 1>>
+			       <- ,K-A-TWDTH 1>>
+			   <RETURN>)>>)>
+	   <RT-NORM-TIME <REST ,GL-A-TIME .T-PTR>>
+	   <RTRUE>)
+	  (T
+	   <INC R-PTR>)>>>
+
+; "RT-ALARM-SET-ABS"
+
+<ROUTINE RT-ALARM-SET-ABS (RTN TIME "AUX" (R-PTR 0) T-PTR)
+  <REPEAT ()
+    <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+		       <TELL CR "*** TOO MANY (ABS) ALARMS ***" CR CR>
+		       <RFALSE>)>
+    ;<DEBUGGING? <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+		       <TELL CR "*** TOO MANY (ABS) ALARMS ***" CR CR>
+		       <RFALSE>)>>
+    <COND (<ZERO? <GET ,GL-A-ROUT .R-PTR>>
+	   <PUT ,GL-A-ROUT .R-PTR .RTN>
+	   <SET T-PTR <* .R-PTR ,K-A-TWDTH>>
+	   <COPYT .TIME <REST ,GL-A-TIME .T-PTR> ,K-A-TWDTH>
+	   <RTRUE>)
+	  (T
+	   <INC R-PTR>)>>>
+
+; "RT-ALARM-CLR"
+
+<ROUTINE RT-ALARM-CLR (RTN "AUX" (R-PTR 0) T-PTR)
+  <REPEAT ()
+    <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+	   <RFALSE>)
+	  (<EQUAL? .RTN <GET ,GL-A-ROUT .R-PTR>>
+	   <PUT ,GL-A-ROUT .R-PTR 0>
+	   <SET T-PTR <* .R-PTR ,K-A-TWDTH>>
+	   <COPYT <REST ,GL-A-TIME .T-PTR> 0 ,K-A-TWDTH>)>
+    <INC R-PTR>>>
+
+; "RT-ALARM-CHK"
+
+<GLOBAL RUN-SMELL-ETHERIUM? <>>
+
+<ROUTINE RT-ALARM-CHK ("OPTIONAL" (PARM 0)
+		       "AUX" VAL (RTN -1) (R-PTR 0) (R-CNT 0)
+		       T-PTR HRS MIN SEC DAY T-TIME)
+  <SETG RUN-SMELL-ETHERIUM? <>>
+  <COND (<MC-T? ,GL-ALARM-WAIT>
+	 <SETG GL-ALARM-WAIT <>>
+	 <RFALSE>)
+	(<MC-T? ,GL-ALARM-STOP>
+	 <RFALSE>)>
+  <RT-COPY-TIME ,GL-TIME ,GL-TEMP-TIME>
+  <REPEAT ()
+    <COND (<EQUAL? .R-PTR ,K-A-RSIZE>
+	   <COND (<EQUAL? .RTN -1>
+		  <COND (,RUN-SMELL-ETHERIUM? <RETURN>)>
+		  <RETURN .R-CNT>)
+		 (T
+		  ; "Time to run it"
+		  <SET R-PTR .RTN>	; "Get the offset stored in RTN"
+		  <SET RTN <GET ,GL-A-ROUT .R-PTR>>
+		  <SET T-PTR <* .R-PTR ,K-A-TWDTH>>
+		  <PUT ,GL-A-ROUT .R-PTR 0>
+		  <SET T-TIME <ZREST ,GL-A-TIME .T-PTR>>
+		  <SET SEC <GETB .T-TIME ,K-SEC>>
+		  <SET MIN <GETB .T-TIME ,K-MIN>>
+		  <SET HRS <GETB .T-TIME ,K-HRS>>
+		  <SET DAY <GETB .T-TIME ,K-DAY>>
+		  <COPYT .T-TIME 0 ,K-A-TWDTH>
+		  <COND (<MC-ISNOT? ,CH-PLAYER ,FL-ASLEEP>
+			 <RT-UPDATE-STATUS-LINE>)>
+		  <SETG GL-ALARM-EXEC T>
+		  <SET VAL <APPLY .RTN>>
+		  <COND (,RUN-SMELL-ETHERIUM? <RETURN>)>
+		  <SETG GL-ALARM-EXEC <>>
+		  <RT-COPY-TIME ,GL-TEMP-TIME ,GL-TIME>
+		  <INC R-CNT>
+		  ; "If alarm time != new time, ask for key to cont."
+		  <COND (<AND <MC-T? .VAL>
+			      <EQUAL? <RT-CLOCK-CMP .HRS .MIN .SEC
+						    .DAY> -1>>
+			 <COND (<EQUAL? .PARM 1>
+				<TELL "[Press any key to continue.]" CR>
+				<INPUT 1>)
+			       (<EQUAL? .PARM 2>
+				<REPEAT ()
+				  <TELL CR
+					"Do you want to continue waiting?" CR
+					"Please press Y or N > ">
+				  <SET VAL <INPUT 1>>
+				  <PRINTC .VAL>
+				  <CRLF>
+				  <COND
+				   (<EQUAL? .VAL !\N !\n>
+				    <SET RTN -1>
+				    <SET R-PTR ,K-A-RSIZE>
+				    <RT-CLOCK-SET .HRS .MIN .SEC
+						  .DAY>
+				    <RETURN>)
+				   (<EQUAL? .VAL !\Y !\y>
+				    <RETURN>)>>)>)>
+		  ; "Reset and start loop again."
+		  <COND (<EQUAL? .RTN -1>
+			 <AGAIN>)>
+		  <SET RTN -1>
+		  <SET R-PTR 0>
+		  <AGAIN>)>)>
+    <COND (<MC-T? <GET ,GL-A-ROUT .R-PTR>>
+	   <SET T-PTR <* .R-PTR ,K-A-TWDTH>>
+	   <SET SEC <GETB ,GL-A-TIME <+ .T-PTR ,K-SEC>>>
+	   <SET MIN <GETB ,GL-A-TIME <+ .T-PTR ,K-MIN>>>
+	   <SET HRS <GETB ,GL-A-TIME <+ .T-PTR ,K-HRS>>>
+	   <SET DAY <GETB ,GL-A-TIME <+ .T-PTR ,K-DAY>>>
+	   <COND (<OR <AND <MC-T? .PARM>
+			   <EQUAL? <RT-CLOCK-CMP .HRS .MIN .SEC
+						 .DAY> -1>>
+		      <AND <MC-F? .PARM>
+			   <EQUAL? <RT-CLOCK-CMP .HRS .MIN .SEC
+						 .DAY> -1 0>>>
+		  <RT-CLOCK-SET .HRS .MIN .SEC .DAY>
+		  <SET RTN .R-PTR>)>)>
+    <INC R-PTR>>
+  <COND (,RUN-SMELL-ETHERIUM?
+	 <RT-SMELL-ETHERIUM?>
+	 .R-CNT)>>
diff --git a/scope.zabstr b/scope.zabstr
new file mode 100644
index 0000000..1b98da6
--- /dev/null
+++ b/scope.zabstr
@@ -0,0 +1,17 @@
+
+<OBJECT CH-VENDOR (LOC RM-BIRDCAGE-WALK) (DESC "vendor") (FLAGS FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC) (SYNONYM VENDOR SALESMAN MAN) (SIZE 99
+CAPACITY 60) (ACTION RT-AC-CH-VENDOR)> 
+<DEFINE-ROUTINE RT-AC-CH-VENDOR> 
+<OBJECT TH-POUND-NOTE (LOC TH-POCKET) (DESC "pound note") (FLAGS FL-TAKEABLE
+FL-READABLE FL-SURFACE FL-MONEY FL-HAS-DESCFCN FL-BURNABLE) (SYNONYM POUND NOTE
+QUID) (ADJECTIVE POUND) (SIZE 1 MASS 1 CAPACITY 1) (ACTION RT-AC-TH-POUND-NOTE)
+> 
+<OBJECT TH-SIXPENCE (DESC "sixpence") (FLAGS FL-TAKEABLE FL-MONEY) (SYNONYM
+SIXPENCE) (SIZE 1 MASS 1) (ACTION RT-AC-TH-SIXPENCE)> 
+<OBJECT TH-TELESCOPE (LOC CH-VENDOR) (DESC "telescope") (FLAGS FL-TAKEABLE
+FL-TRANSPARENT FL-BUYABLE FL-HAS-DESCFCN) (SYNONYM TELESCOPE SCOPE) (VALUE 1) (
+SIZE 1 MASS 1) (ACTION RT-AC-TH-TELESCOPE)> 
+<DEFINE-ROUTINE RT-AC-TH-POUND-NOTE> 
+<DEFINE-ROUTINE RT-AC-TH-TELESCOPE> 
+<DEFINE-ROUTINE RT-AC-TH-SIXPENCE> 
\ No newline at end of file
diff --git a/scope.zap b/scope.zap
new file mode 100644
index 0000000..c104beb
--- /dev/null
+++ b/scope.zap
@@ -0,0 +1,218 @@
+
+
+	.FUNCT	RT-AC-CH-VENDOR,CONTEXT,NUM
+	SET	'NUM,CH-VENDOR-AUX1
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	EQUAL?	GL-PRSA,V?TAKE \?CCL3
+	CALL	RT-META-IN?,GL-PRSO,CH-PLAYER
+	ZERO?	STACK /?CCL3
+	SET	'GL-WINNER,CH-PLAYER
+	ICALL	RT-PERFORM,V?GIVE,GL-PRSO,CH-VENDOR
+	SET	'GL-WINNER,CH-VENDOR
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?HAGGLE \?CCL8
+	ZERO?	GL-NOW-PRSI? \?CCL8
+	ICALL2	RT-THIS-IS-IT,TH-TELESCOPE
+	IN?	TH-TELESCOPE,CH-VENDOR /?CCL13
+	PRINTR	"""Sorry, guv. No refunds."""
+?CCL13:	ZERO?	NUM \?CCL15
+	PRINTI	"""Alright, guv. For you I'll come down to me special Jubilee price of Nineteen and six. 'Ow about it?"""
+	CRLF	
+	SET	'CH-VENDOR-AUX1,1
+	RETURN	CH-VENDOR-AUX1
+?CCL15:	EQUAL?	NUM,1 \?CCL17
+	PRINTI	"""It'll break me poor wife's 'eart, me comin' 'ome wif so little. But times is 'ard. Nineteen shillings. Not a farthing less."""
+	CRLF	
+	SET	'CH-VENDOR-AUX1,2
+	RETURN	CH-VENDOR-AUX1
+?CCL17:	EQUAL?	NUM,2 \FALSE
+	PRINTR	"""Sorry, guv. Nineteen shillings is me price."""
+?CCL8:	CALL2	RT-TELL-ABOUT?,CH-VENDOR
+	ZERO?	STACK /?CCL21
+	EQUAL?	GL-PRSI,TH-TELESCOPE \?CCL24
+	IN?	TH-TELESCOPE,CH-VENDOR /?CCL27
+	PRINTR	"""Sorry, guv. No refunds."""
+?CCL27:	ZERO?	NUM \?CCL29
+	PRINTR	"""It's me top-of-the-line model. I can let you 'ave it for one pound."""
+?CCL29:	EQUAL?	NUM,1 \?CCL31
+	PRINTR	"""Seeing as 'ow it's you, I'll let it go for nineteen and six."""
+?CCL31:	EQUAL?	NUM,2 \FALSE
+	PRINTR	"""Nineteen shillings is as low as I can go."""
+?CCL24:	IN?	TH-TELESCOPE,CH-VENDOR \?CCL36
+	EQUAL?	GL-PRSI,TH-TRINKETS \?CCL39
+	PRINTR	"""I've got quite a nice telescope 'ere that I can let you 'ave for only a quid."""
+?CCL39:	PRINTR	"He ignores your question and waves trinkets over his head, asking if you wish to buy anything."
+?CCL36:	PRINTR	"He ignores your question and looks about for new customers."
+?CCL21:	EQUAL?	GL-PRSA,V?GIVE \FALSE
+	EQUAL?	GL-PRSO,TH-TELESCOPE \FALSE
+	PRINTR	"""Sorry, mate. No refunds."""
+
+
+	.FUNCT	RT-AC-TH-POUND-NOTE,CONTEXT,NUM
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"Why, haven't you ever seen a pound note before?"
+?CCL3:	EQUAL?	GL-PRSA,V?BUY \?PRD7
+	EQUAL?	GL-PRSO,TH-TELESCOPE /?CCL5
+?PRD7:	EQUAL?	GL-PRSA,V?GIVE \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSI,CH-VENDOR \FALSE
+?CCL5:	ICALL	RT-CYOU-MSG,STR?711,STR?712
+	ICALL2	RT-THEO-PRINT,TH-POUND-NOTE
+	PRINTI	" to "
+	ICALL2	RT-THEO-PRINT,CH-VENDOR
+	PRINTC	46
+	SET	'NUM,CH-VENDOR-AUX1
+	ZERO?	NUM \?CCL15
+	PRINT	K-GOOD-HEALTH-MSG
+	JUMP	?CND13
+?CCL15:	EQUAL?	NUM,1 \?CCL17
+	PRINTI	" He smirks, gives"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"sixpence change,"
+	MOVE	TH-SIXPENCE,GL-WINNER
+	FSET	TH-SIXPENCE,FL-SEEN
+	FSET	TH-SIXPENCE,FL-TOUCHED
+	JUMP	?CND13
+?CCL17:	EQUAL?	NUM,2 \?CND13
+	PRINTI	" He gives"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"a shilling for change,"
+	MOVE	TH-SHILLING,GL-WINNER
+	FSET	TH-SHILLING,FL-SEEN
+	FSET	TH-SHILLING,FL-TOUCHED
+?CND13:	PRINTI	" and hands"
+	ICALL1	RT-YOU-MSG
+	ICALL2	RT-THEO-PRINT,TH-TELESCOPE
+	PRINTC	46
+	CRLF	
+	MOVE	TH-TELESCOPE,GL-WINNER
+	REMOVE	TH-POUND-NOTE
+	FSET	TH-TELESCOPE,FL-SEEN
+	FSET	TH-TELESCOPE,FL-TOUCHED
+	FCLEAR	TH-TELESCOPE,FL-NODESC
+	EQUAL?	NUM,2 \?CND19
+	GETP	TH-TELESCOPE,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+?CND19:	PUTP	TH-TELESCOPE,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-TELESCOPE,CONTEXT,NUM
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CND1
+	PRINTI	"The telescope looks surprisingly good"
+	IN?	TH-TELESCOPE,CH-VENDOR \?CCL5
+	PRINTI	". But it's not worth a whole pound"
+	JUMP	?CND3
+?CCL5:	PRINTI	", considering it's just a trinket"
+?CND3:	PRINTR	"."
+?CND1:	SET	'GL-P-IT-OBJECT,TH-TELESCOPE
+	ZERO?	GL-NOW-PRSI? /?CCL8
+	EQUAL?	GL-PRSA,V?LOOK-THRU \FALSE
+	IN?	GL-PRSI,CH-PLAYER /?CCL14
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?738,GL-PRSI
+	RTRUE	
+?CCL14:	CALL2	RT-GOT?,GL-PRSO
+	ZERO?	STACK \?CTR15
+	EQUAL?	GL-PRSO,CH-PLAYER,CH-ME,TH-HANDS /?CTR15
+	EQUAL?	GL-PRSO,TH-FEET,TH-POCKET /?CTR15
+	CALL	RT-IDENTIFY-FLOOR?,W?GROUND,GL-PRSO
+	ZERO?	STACK /?CCL16
+?CTR15:	ICALL1	RT-CTHEI-PRINT
+	PRINTR	" will not focus that closely."
+?CCL16:	EQUAL?	GL-LASTFOC,GL-PRSO /?CND12
+	SET	'GL-LASTFOC,GL-PRSO
+	PRINTI	"You focus the telescope on "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+	CRLF	
+?CND12:	EQUAL?	GL-PRSO,TH-NELSON-STATUE,TH-NELSON-EYE \?CCL24
+	IN?	TH-RUBY,TH-NELSON-STATUE \?CCL24
+	PRINTI	"You can see a ruby in Nelson's blind eye."
+	CRLF	
+	FSET	TH-NELSON-STATUE,FL-OPENED
+	RTRUE	
+?CCL24:	FSET?	GL-PRSO,FL-PLURAL \?CCL28
+	FSET?	GL-PRSO,FL-COLLECTIVE /?CCL28
+	PRINTI	"They appear"
+	JUMP	?CND22
+?CCL28:	FSET?	GL-PRSO,FL-PERSON \?CCL32
+	FSET?	GL-PRSO,FL-FEMALE \?CCL32
+	PRINTI	"She appears"
+	JUMP	?CND22
+?CCL32:	FSET?	GL-PRSO,FL-PERSON \?CCL36
+	FSET?	GL-PRSO,FL-FEMALE /?CCL36
+	PRINTI	"He appears"
+	JUMP	?CND22
+?CCL36:	PRINTI	"It appears"
+?CND22:	PRINTR	" much closer now."
+?CCL8:	EQUAL?	GL-PRSA,V?LOOK-INSIDE \?CCL40
+	PRINTR	"Everything appears much closer."
+?CCL40:	EQUAL?	GL-PRSA,V?ADJUST,V?PLAY \?CCL42
+	PRINTR	"You fiddle aimlessly with the controls."
+?CCL42:	EQUAL?	GL-PRSA,V?TAKE,V?STEAL \?CCL44
+	IN?	TH-TELESCOPE,CH-VENDOR \?CCL44
+	PRINT	K-THEFT-MSG
+	CRLF	
+	RTRUE	
+?CCL44:	EQUAL?	GL-PRSA,V?BUY,V?BUY-FROM \FALSE
+	IN?	TH-TELESCOPE,CH-VENDOR \FALSE
+	EQUAL?	GL-PRSI,TH-POUND-NOTE /?CTR52
+	EQUAL?	GL-PRSI,FALSE-VALUE,CH-VENDOR \?CCL53
+	CALL	RT-META-IN?,TH-POUND-NOTE,GL-WINNER
+	ZERO?	STACK /?CCL53
+?CTR52:	ICALL	RT-CYOU-MSG,STR?711,STR?712
+	ICALL2	RT-THEO-PRINT,TH-POUND-NOTE
+	PRINTI	" to "
+	ICALL2	RT-THEO-PRINT,CH-VENDOR
+	PRINTC	46
+	SET	'NUM,CH-VENDOR-AUX1
+	ZERO?	NUM \?CCL60
+	PRINT	K-GOOD-HEALTH-MSG
+	JUMP	?CND58
+?CCL60:	EQUAL?	NUM,1 \?CCL62
+	PRINTI	" He smirks, gives"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"sixpence change,"
+	MOVE	TH-SIXPENCE,GL-WINNER
+	FSET	TH-SIXPENCE,FL-SEEN
+	FSET	TH-SIXPENCE,FL-TOUCHED
+	JUMP	?CND58
+?CCL62:	EQUAL?	NUM,2 \?CND58
+	PRINTI	" He gives"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"a shilling for change,"
+	MOVE	TH-SHILLING,GL-WINNER
+	FSET	TH-SHILLING,FL-SEEN
+	FSET	TH-SHILLING,FL-TOUCHED
+?CND58:	PRINTI	" and hands"
+	ICALL1	RT-YOU-MSG
+	ICALL2	RT-THEO-PRINT,TH-TELESCOPE
+	PRINTC	46
+	CRLF	
+	MOVE	TH-TELESCOPE,GL-WINNER
+	REMOVE	TH-POUND-NOTE
+	FSET	TH-TELESCOPE,FL-SEEN
+	FSET	TH-TELESCOPE,FL-TOUCHED
+	FCLEAR	TH-TELESCOPE,FL-NODESC
+	EQUAL?	NUM,2 \?CND64
+	GETP	TH-TELESCOPE,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+?CND64:	PUTP	TH-TELESCOPE,P?VALUE,0
+	RTRUE	
+?CCL53:	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't buy "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with"
+	ZERO?	GL-PRSI /?CCL68
+	PRINTC	32
+	ICALL1	RT-THEI-PRINT
+	JUMP	?CND66
+?CCL68:	PRINTI	"out any money"
+?CND66:	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-SIXPENCE
+	RFALSE	
+
+	.ENDI
diff --git a/scope.zil b/scope.zil
new file mode 100644
index 0000000..2892917
--- /dev/null
+++ b/scope.zil
@@ -0,0 +1,256 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : SCOPE.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   22 Oct 1987 14:01:14  $"
+; "rev  : $Revision:   1.23  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<OBJECT CH-VENDOR
+	(LOC RM-BIRDCAGE-WALK)
+	(DESC "vendor")
+	(FLAGS FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-NODESC)
+	(SYNONYM VENDOR SALESMAN MAN)
+	(SIZE 99 CAPACITY 60)
+	(ACTION RT-AC-CH-VENDOR)>
+
+<ROUTINE RT-AC-CH-VENDOR ("OPTIONAL" (CONTEXT <>) "AUX" NUM)
+  <DEBUGGING? <RT-DEBUG-OB-AC "CH-VENDOR" .CONTEXT>>
+  <SET NUM ,CH-VENDOR-AUX1>
+  <COND (<AND <MC-THIS-WINNER?>
+	      <MC-VERB? TAKE>
+	      <RT-META-IN? ,GL-PRSO ,CH-PLAYER>>
+	 <SETG GL-WINNER ,CH-PLAYER>
+	 <RT-PERFORM ,V?GIVE ,GL-PRSO ,CH-VENDOR>
+	 <SETG GL-WINNER ,CH-VENDOR>
+	 <RTRUE>)
+	(<AND <MC-VERB? HAGGLE>
+	      <MC-THIS-PRSO?>>
+	 <RT-THIS-IS-IT ,TH-TELESCOPE>
+	 <COND (<NOT <IN? ,TH-TELESCOPE ,CH-VENDOR>>
+		<TELL "\"Sorry, guv. No refunds.\"" CR>)
+	       (<EQUAL? .NUM 0>
+		<TELL
+"\"Alright, guv. For you I'll come down to me special Jubilee price of
+Nineteen and six. 'Ow about it?\"" CR>
+		<SETG CH-VENDOR-AUX1 1>)
+	       (<EQUAL? .NUM 1>
+		<TELL
+"\"It'll break me poor wife's 'eart, me comin' 'ome wif so little. But times
+is 'ard. Nineteen shillings. Not a farthing less.\"" CR>
+		<SETG CH-VENDOR-AUX1 2>)
+	       (<EQUAL? .NUM 2>
+		<TELL "\"Sorry, guv. Nineteen shillings is me price.\"" CR>)>)
+	(<RT-TELL-ABOUT? ,CH-VENDOR>
+	 <COND (<MC-PRSI? ,TH-TELESCOPE>
+		<COND (<NOT <IN? ,TH-TELESCOPE ,CH-VENDOR>>
+		       <TELL "\"Sorry, guv. No refunds.\"" CR>)
+		      (<EQUAL? .NUM 0>
+		       <TELL
+"\"It's me top-of-the-line model. I can let you 'ave it for one pound.\"" CR>)
+		      (<EQUAL? .NUM 1>
+		       <TELL
+"\"Seeing as 'ow it's you, I'll let it go for nineteen and six.\"" CR>)
+		      (<EQUAL? .NUM 2>
+		       <TELL "\"Nineteen shillings is as low as I can go.\""
+			     CR>)>)
+	       (T
+		<COND (<IN? ,TH-TELESCOPE ,CH-VENDOR>
+		       <COND (<MC-PRSI? ,TH-TRINKETS>
+			      <TELL
+"\"I've got quite a nice telescope 'ere that I can let you 'ave for only
+a quid.\"" CR>)
+			     (T
+			      <TELL
+"He ignores your question and waves trinkets over his head, asking if you wish
+to buy anything." CR>)>)
+		      (T
+		       <TELL
+"He ignores your question and looks about for new customers." CR>)>)>)
+	(<MC-VERB? GIVE>
+	 <COND (<MC-PRSO? ,TH-TELESCOPE>
+		<TELL "\"Sorry, mate. No refunds.\"" CR>
+		<RTRUE>)>)>>
+
+<OBJECT TH-POUND-NOTE
+   (LOC TH-POCKET)
+   (DESC "pound note")
+   (FLAGS FL-TAKEABLE FL-READABLE FL-SURFACE FL-MONEY
+	  FL-HAS-DESCFCN FL-BURNABLE)
+   (SYNONYM POUND NOTE QUID)
+   (ADJECTIVE POUND)
+   (SIZE 1 MASS 1 CAPACITY 1)
+   (ACTION RT-AC-TH-POUND-NOTE)>
+
+<OBJECT TH-SIXPENCE
+   (DESC "sixpence")
+   (FLAGS FL-TAKEABLE FL-MONEY)
+   (SYNONYM SIXPENCE)
+   (SIZE 1 MASS 1)
+   (ACTION RT-AC-TH-SIXPENCE)>
+
+<OBJECT TH-TELESCOPE
+   (LOC CH-VENDOR)
+   (DESC "telescope")
+   (FLAGS FL-TAKEABLE FL-TRANSPARENT FL-BUYABLE FL-HAS-DESCFCN)
+   (SYNONYM TELESCOPE SCOPE)
+   (VALUE 1)
+   (SIZE 1 MASS 1)
+   (ACTION RT-AC-TH-TELESCOPE)>
+
+<ROUTINE RT-AC-TH-POUND-NOTE ("OPTIONAL" (CONTEXT <>) "AUX" NUM)
+  <DEBUGGING? <RT-DEBUG-OB-AC "TH-POUND-NOTE" .CONTEXT>>
+  <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	 <TELL "Why, haven't you ever seen a pound note before?" CR>)
+	(<OR <AND <MC-VERB? BUY>
+		  <MC-PRSO? ,TH-TELESCOPE>>
+	     <AND <MC-VERB? GIVE>
+		  <MC-THIS-PRSO?>
+		  <MC-PRSI? ,CH-VENDOR>>>
+	 <RT-CYOU-MSG "give" "gives">
+	 <TELL THE ,TH-POUND-NOTE " to " THE ,CH-VENDOR ".">
+	 <SET NUM ,CH-VENDOR-AUX1>
+	 <COND (<EQUAL? .NUM 0>
+		<TELL ,K-GOOD-HEALTH-MSG>)
+	       (<EQUAL? .NUM 1>
+		<TELL " He smirks, gives">
+		<RT-YOU-MSG>
+		<TELL "sixpence change,">
+		<MOVE ,TH-SIXPENCE ,GL-WINNER>
+		<MC-MAKE ,TH-SIXPENCE ,FL-SEEN>
+		<MC-MAKE ,TH-SIXPENCE ,FL-TOUCHED>)
+	       (<EQUAL? .NUM 2>
+		<TELL " He gives">
+		<RT-YOU-MSG>
+		<TELL "a shilling for change,">
+		<MOVE ,TH-SHILLING ,GL-WINNER>
+		<MC-MAKE ,TH-SHILLING ,FL-SEEN>
+		<MC-MAKE ,TH-SHILLING ,FL-TOUCHED>)>
+	 <TELL " and hands">
+	 <RT-YOU-MSG>
+	 <TELL THE ,TH-TELESCOPE "." CR>
+	 <MOVE ,TH-TELESCOPE ,GL-WINNER>
+	 <REMOVE ,TH-POUND-NOTE>
+	 <MC-MAKE ,TH-TELESCOPE ,FL-SEEN>
+	 <MC-MAKE ,TH-TELESCOPE ,FL-TOUCHED>
+	 <MC-UNMAKE ,TH-TELESCOPE ,FL-NODESC>
+	 <COND (<EQUAL? .NUM 2>
+		<RT-UPDATE-SCORE <GETP ,TH-TELESCOPE ,P?VALUE>>)>
+	 <PUTP ,TH-TELESCOPE ,P?VALUE 0>
+	 <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-TELESCOPE ("OPTIONAL" (CONTEXT <>) "AUX" NUM)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-TELESCOPE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The telescope looks surprisingly good">
+	       <COND (<IN? ,TH-TELESCOPE ,CH-VENDOR>
+		      <TELL ". But it's not worth a whole pound">)
+		     (T
+		      <TELL ", considering it's just a trinket">)>
+	       <TELL "." CR>
+	       <RTRUE>)>
+	<SETG GL-P-IT-OBJECT ,TH-TELESCOPE>
+	<COND (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? LOOK-THRU>
+		      <COND (<NOT <IN? ,GL-PRSI ,CH-PLAYER>>
+			     <RT-YOUD-HAVE-TO-MSG "be holding" ,GL-PRSI>
+			     <RTRUE>)
+			    (<OR <RT-GOT? ,GL-PRSO>
+				 <MC-PRSO? ,CH-PLAYER ,CH-ME ,TH-HANDS
+					 ,TH-FEET ,TH-POCKET>
+				 <RT-IDENTIFY-FLOOR? ,W?GROUND
+						     ,GL-PRSO>>
+			     <TELL CTHEI " will not focus that closely." CR>
+			     <RTRUE>)
+			    (<NOT <EQUAL? ,GL-LASTFOC ,GL-PRSO>>
+			     <SETG GL-LASTFOC ,GL-PRSO>
+			     <TELL "You focus the telescope on " THEO "."
+				   CR CR>)>
+		      <COND (<AND <MC-PRSO? ,TH-NELSON-STATUE ,TH-NELSON-EYE>
+				  <IN? ,TH-RUBY ,TH-NELSON-STATUE>>
+			     <TELL "You can see a ruby in Nelson's blind eye."
+				   CR>
+			     <MC-MAKE ,TH-NELSON-STATUE ,FL-OPENED>
+			     <RTRUE>)
+			    (<AND <MC-IS? ,GL-PRSO ,FL-PLURAL>
+				  <MC-ISNOT? ,GL-PRSO ,FL-COLLECTIVE>>
+			     <TELL "They appear">)
+			    (<AND <MC-IS? ,GL-PRSO ,FL-PERSON>
+				  <MC-IS? ,GL-PRSO ,FL-FEMALE>>
+			     <TELL "She appears">)
+			    (<AND <MC-IS? ,GL-PRSO ,FL-PERSON>
+				  <MC-ISNOT? ,GL-PRSO ,FL-FEMALE>>
+			     <TELL "He appears">)
+			    (T
+			     <TELL "It appears">)>
+		      <TELL " much closer now." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<MC-VERB? LOOK-INSIDE>
+	       <TELL "Everything appears much closer." CR>
+	       <RTRUE>)
+	      (<MC-VERB? ADJUST PLAY>
+	       <TELL "You fiddle aimlessly with the controls." CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? TAKE STEAL>
+		    <IN? ,TH-TELESCOPE ,CH-VENDOR>>
+	       <TELL ,K-THEFT-MSG CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? BUY BUY-FROM>
+		    <IN? ,TH-TELESCOPE ,CH-VENDOR>>
+	       <COND (<OR <MC-PRSI? ,TH-POUND-NOTE>
+			  <AND <MC-PRSI? <> ,CH-VENDOR>
+			       <RT-META-IN? ,TH-POUND-NOTE ,GL-WINNER>>>
+		      <RT-CYOU-MSG "give" "gives">
+		      <TELL THE ,TH-POUND-NOTE " to " THE ,CH-VENDOR ".">
+		      <SET NUM ,CH-VENDOR-AUX1>
+		      <COND (<EQUAL? .NUM 0>
+			     <TELL ,K-GOOD-HEALTH-MSG>)
+			    (<EQUAL? .NUM 1>
+			     <TELL " He smirks, gives">
+			     <RT-YOU-MSG>
+			     <TELL "sixpence change,">
+			     <MOVE ,TH-SIXPENCE ,GL-WINNER>
+			     <MC-MAKE ,TH-SIXPENCE ,FL-SEEN>
+			     <MC-MAKE ,TH-SIXPENCE ,FL-TOUCHED>)
+			    (<EQUAL? .NUM 2>
+			     <TELL " He gives">
+			     <RT-YOU-MSG>
+			     <TELL "a shilling for change,">
+			     <MOVE ,TH-SHILLING ,GL-WINNER>
+			     <MC-MAKE ,TH-SHILLING ,FL-SEEN>
+			     <MC-MAKE ,TH-SHILLING ,FL-TOUCHED>)>
+		      <TELL " and hands">
+		      <RT-YOU-MSG>
+		      <TELL THE ,TH-TELESCOPE "." CR>
+		      <MOVE ,TH-TELESCOPE ,GL-WINNER>
+		      <REMOVE ,TH-POUND-NOTE>
+		      <MC-MAKE ,TH-TELESCOPE ,FL-SEEN>
+		      <MC-MAKE ,TH-TELESCOPE ,FL-TOUCHED>
+		      <MC-UNMAKE ,TH-TELESCOPE ,FL-NODESC>
+		      <COND (<EQUAL? .NUM 2>
+			     <RT-UPDATE-SCORE <GETP ,TH-TELESCOPE ,P?VALUE>>)>
+		      <PUTP ,TH-TELESCOPE ,P?VALUE 0>
+		      <RTRUE>)
+		     ;(<MC-PRSI? ,TH-SHILLING>
+		      <TELL CTHE ,CH-VENDOR " looks at " THE ,TH-SHILLING
+			    " and says, \"That's not enough.\"" CR>
+		      <RTRUE>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <TELL "can't buy " THEO " with">
+		      <COND (<MC-T? ,GL-PRSI>
+			     <TELL " " THEI>)
+			    (T
+			     <TELL "out any money">)>
+		      <TELL "." CR>)>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-SIXPENCE ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-SIXPENCE">>
+	<RFALSE>>
+
+
diff --git a/snore.bin b/snore.bin
new file mode 100644
index 0000000..f31dd03
Binary files /dev/null and b/snore.bin differ
diff --git a/sounds.zil b/sounds.zil
new file mode 100644
index 0000000..c82b6e6
--- /dev/null
+++ b/sounds.zil
@@ -0,0 +1,150 @@
+"SOUNDS for SHERLOCK"
+
+;"SOUND sound-id,[action],[volume]"
+
+<REPLACE-DEFINITION SOUND-CODE
+
+<GLOBAL SOUND-QUEUED? <>> ;"N = non-looping sound running"
+<GLOBAL LOOPING? -1> ;"-1 = sound never seen, 0 = no looping, N = looping sound
+			partially replaces SOUND-FLAG 0"
+<GLOBAL SOUND-ON? T> ;"T = sound on; F = sound off; partially replaces S-F 0"
+<GLOBAL LOOP-VOL 0>  ;"replaces SOUND-FLAG second element"
+;<GLOBAL SOUND-FLAG <TABLE -1 0>> ;"first element -1 = sound never seen
+				 		  0 = sound off
+						  1 = sound on
+					more than 1 = looping sound"
+
+<ROUTINE SOUNDS (N "OPT" (OP ,S-START) (VOL 8) (NUM 1) RTN)
+	 ;<COND (<ZERO? .OP> <SET OP ,S-START>)> ;"arg. never passed as 0"
+	 <COND (<AND <L? ,LOOPING? 0>
+		     <EQUAL? .OP ,S-START>>
+		<SETG LOOPING? 0>
+		<TELL CR
+"[Use $SOUND to toggle sound usage on and off.]" CR>)>
+	 <COND (<AND <==? .OP ,S-INIT>
+		     <OR ,SOUND-QUEUED?
+			 ,LOOPING?>>
+		<RTRUE>)>
+	 <COND ;(<EQUAL? .N ,S-ARMOR>	;"other 'default' settings"
+		<SET NUM 2>)
+	       (<==? .N ,S-CROWD>	;"fine tuning volumes"
+		<SET VOL 6>)
+	       (<==? .N ,S-BADVIOL>
+		<SET VOL 6>)>
+	 <COND (<EQUAL? .N ,S-CROWD ,S-BOATING ,S-SNORE>  ;"looping sounds"
+		<COND (<==? .OP ,S-START>
+		       <SETG LOOPING? .N>
+		       <SETG LOOP-VOL .VOL> 
+		       ;<PUT ,SOUND-FLAG 1 <+ <* .N 16> .VOL>>
+		       <SET NUM -1>)
+		      (<==? .OP ,S-STOP>
+		       <SETG LOOPING? 0>)>
+		<COND (,SOUND-QUEUED?
+		       <RTRUE>)>)
+	       (T
+		<COND (<F? .RTN>
+		       <SET RTN ,CHECK-LOOPING>)>)>
+	 <COND (,SOUND-ON?
+		;<PUT ,SOUND-FLAG 0 1>
+		;<PUT ,SOUND-FLAG 1 0>
+		<COND (<EQUAL? .OP ,S-START>
+		       <COND (<N==? .N ,S-CROWD ,S-BOATING ,S-SNORE>
+			      <SETG SOUND-QUEUED? .N>)>
+		       <SOUND .N .OP <BOR <LSH .NUM 8> .VOL> .RTN>)
+		      (T
+		       <SOUND .N .OP>)>)>
+	 <RTRUE>>
+
+<ROUTINE CHECK-LOOPING ()
+    <SETG SOUND-QUEUED? <>>
+    <COND (<G? ,LOOPING? 0>
+	   <SOUNDS ,LOOPING? ,S-START ,LOOP-VOL>)>
+    <RTRUE>>
+
+<GLOBAL CAB-RAMP 0>
+
+;<ROUTINE RT-S-WHISTLE-TWICE ()
+    <SETG CAB-RAMP 2>
+    <RT-S-CAB-ARRIVES>>
+
+<ROUTINE RT-S-CAB-ARRIVES ()
+    <COND (<==? ,CAB-RAMP 0>
+	   <SOUNDS ,S-HORSE ,S-START 4>)
+	  (T
+	   <SETG CAB-RAMP <- ,CAB-RAMP 1>>
+	   <SOUNDS ,S-HORSE ,S-START <- 2 ,CAB-RAMP> 1 RT-S-CAB-ARRIVES>)>>
+
+<ROUTINE RT-S-CAB-LEAVES ()
+    <COND (<OR <F? ,SOUND-QUEUED?>
+	       <==? ,SOUND-QUEUED? ,S-HORSE>>
+	   <SETG CAB-RAMP 2>
+	   <RT-S-CAB-GOES>)>>
+
+<ROUTINE RT-S-CAB-GOES ()
+    <COND (<==? ,CAB-RAMP 0>
+	   <SOUNDS ,S-HORSE ,S-START 1>)
+	  (T
+	   <SETG CAB-RAMP <- ,CAB-RAMP 1>>
+	   <SOUNDS ,S-HORSE ,S-START <* <+ ,CAB-RAMP 1> 2> 1 RT-S-CAB-GOES>)>> 
+
+<ROUTINE END-FANFARE ()
+	 <SETG SOUND-QUEUED? <>>
+	 <KILL-SOUNDS>>
+
+<ROUTINE KILL-SOUNDS ()
+	 <COND (<N==? ,SOUND-QUEUED? ,S-FANFARE>
+		<SETG SOUND-QUEUED? <>>
+		<SOUNDS 0 ,S-STOP>
+		;<SOUNDS 0 ,S-CLEANUP>)>
+	 <RTRUE>>
+
+<SYNTAX $SOUND = V-$SOUND>
+
+<ROUTINE V-$SOUND ()
+	;<SET X <GET ,SOUND-FLAG 1>>
+	;<SET Y <GET ,SOUND-FLAG 0>>
+	<COND (<L? ,LOOPING? 0>
+	       <SETG LOOPING? 0>)>
+	<TELL "Sound ">
+	<COND (,SOUND-ON?
+	       <SETG SOUND-QUEUED? <>>
+	       <KILL-SOUNDS>
+	       <SETG SOUND-ON? <>>
+	       ;<COND (<N==? .Y 1> <PUT ,SOUND-FLAG 1 .Y>)
+		     (ELSE <PUT ,SOUND-FLAG 1 0>)>
+	       <TELL "off." CR>)
+	      (T
+	       <TELL "on." CR>
+	       <SETG SOUND-ON? T>
+	       <CHECK-LOOPING>)>>
+
+;"sound operations"
+<CONSTANT S-INIT 1>
+<CONSTANT S-START 2>
+<CONSTANT S-STOP 3>
+<CONSTANT S-CLEANUP 4>
+
+;"sound ids		(sounds marked with a * are looping sounds)"
+<CONSTANT S-BEEP 1>
+<CONSTANT S-BOOP 2>
+<CONSTANT S-ARMOR 3>	;"33K armor squeaking - worn, removed, moving"
+<CONSTANT S-BADVIOL 4>	;"39K Watson playing violin"
+<CONSTANT S-BARK 5>	;" 7K dog barking"
+<CONSTANT S-BOATING 6>	;"54K * background water sounds (while in boat)"
+<CONSTANT S-CLOCK 7>	;"47K Big Ben striking close up (long ring)"
+<CONSTANT S-CROWD 8>	;"61K * crowd noises"
+<CONSTANT S-FANFARE 9>	;"57K trumpets for ending"
+<CONSTANT S-GROWL 10>	;"51K dog growling"
+<CONSTANT S-HEART1 11>	;"14K slow heartbeat" ;"3 hearts share same sound code"
+<CONSTANT S-HEART2 12>	;"14K medium heartbeat"
+<CONSTANT S-HEART3 13>	;"14K fast heartbeat"
+<CONSTANT S-HORSE 14>	;"40K sounds of cab moving"
+<CONSTANT S-VIOLIN 15>	;"48K Holmes playing violin"
+<CONSTANT S-SNORE 16>	;"50K * snoring in Diogenes club" 
+<CONSTANT S-FARBEN 17>  ;"    Big Ben at a distance (short ring)"
+;<CONSTANT S-WHISTLE 18> ;"  K Whistle for calling cabs"
+
+;"unused sounds - S-SPLASH S-BIRDIE"
+;"WANTED - S-WHISTLE"
+
+> ;"end of REPLACE-DEFINITION SOUND-CODE"
diff --git a/splash b/splash
new file mode 100644
index 0000000..e92efd2
Binary files /dev/null and b/splash differ
diff --git a/syntax.zil b/syntax.zil
new file mode 100644
index 0000000..55097c9
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,1070 @@
+<BUZZ
+   A AN THE IS ARE AM BE PM AND OF THEN ALL BOTH EVERYTHING BUT
+   EXCEPT \. \, \" \? \! HERE SOME MISS MR DR
+   MONEY SO PLEASE>
+
+; "For now, don't recognize buzzwords that previously would just have
+   generated a smart response from the parser (i.e., they weren't gonna
+   be ignored anyway)"
+
+;<BUZZ
+   CAREFULLY CLOSELY SLOWLY CAUTIOUSLY WARILY GENTLY
+   QUICKLY RAPIDLY BRIEFLY SUDDENLY SWIFTLY CARELESSLY HASTILY
+   HURRIEDLY RECKLESSLY QUIETLY PRIVATELY SILENTLY>
+
+<BUZZ
+	AM ;ANY ;COULD ;DID ;DO ;HAS ;HAVE ;HE\'S ;HOW ;HOW\'S
+	IS ;IT\'S ;I\'LL ;I\'M ;I\'VE LET\'S ;SHALL ;SHE\'S ;SHOULD
+	;THAT\'S ;THEY\'RE WAS ;WERE ;WE\'RE
+	;WHEN ;WHEN\'S ;WHICH ;WHY
+	;WILL ;WON\'T ;WOULD ;YOU\'RE>
+
+;<BUZZ
+	ZERO ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN
+	ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN SEVENTEEN EIGHTEEN
+	NINETEEN TWENTY THIRTY FORTY FIFTY SIXTY SEVENTY EIGHTY NINETY 
+	HUNDRED THOUSAND MILLION BILLION>
+
+;<BUZZ
+	FUCK FUCKED CURSE GODDAMNED CUSS DAMN ASSHOLE ASS ;CUNT 
+	SHIT SHITHEAD PISS BASTARD FUCKING DAMNED PEE ;COCKSUCKER BITCH>
+
+;<BUZZ
+	ZORK XYZZY GRUE GRUES PLUGH YOHO OZMOO GNUSTO WISHBRINGER FROTZ
+	MAGICK QUENDOR FROBOZZ>
+
+<BUZZ
+	AGAIN G OOPS O>
+
+<SYNONYM NORTH	N>
+<SYNONYM SOUTH	S>
+<SYNONYM EAST	E>
+<SYNONYM WEST	W>
+<SYNONYM DOWN	D>
+<SYNONYM UP	U>
+<SYNONYM NE	NORTHEAST>
+<SYNONYM NW	NORTHWEST>
+<SYNONYM SE	SOUTHEAST>
+<SYNONYM SW	SOUTHWEST>
+<PREP-SYNONYM TO TOWARD TOWARDS>
+<PREP-SYNONYM WITH USING>
+<PREP-SYNONYM THROUGH THRU>
+<PREP-SYNONYM ON ONTO ABOARD UPON>
+<PREP-SYNONYM IN INSIDE INTO BETWEEN WITHIN>
+<PREP-SYNONYM OUT OUTSIDE>
+<PREP-SYNONYM UNDER BELOW BENEATH UNDERNEATH>
+<PREP-SYNONYM AROUND ALONG>
+<PREP-SYNONYM OVER ACROSS>
+<PREP-SYNONYM BEHIND BEYOND>
+<PREP-SYNONYM AGAINST NEAR>
+<PREP-SYNONYM UNTIL TIL TILL>
+
+<SYNTAX $REFRESH = V-REFRESH>
+<SYNTAX $VERIFY = V-VERIFY>
+<SYNTAX $VERIFY OBJECT = V-VERIFY>
+<VERB-SYNONYM $VERIFY $VER>
+<SYNTAX ADJUST OBJECT (HELD CARRIED) = V-ADJUST>
+
+<SYNTAX AIM AT OBJECT WITH OBJECT = V-POINT-AT-SWP>
+<SYNTAX AIM OBJECT AT OBJECT = V-POINT-AT>
+<SYNTAX AIM OBJECT TO OBJECT = V-POINT-AT>
+
+<SYNTAX ANSWER OBJECT (FIND FL-PERSON) = V-REPLY>
+
+<SYNTAX APPROACH OBJECT = V-WALK-TO>
+
+<SYNTAX ARAGON		= V-ARAGON>
+
+<SYNTAX ARREST OBJECT (ON-GROUND IN-ROOM) = V-ARREST>
+;<VERB-SYNONYM ARREST DETAIN>
+
+<SYNTAX ASCEND OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+
+<SYNTAX ASK ABOUT OBJECT = V-ASK-ABOUT-1>
+<SYNTAX ASK FOR OBJECT = V-ASK-FOR-1>
+<SYNTAX ASK OBJECT (FIND FL-PERSON) = V-QUESTION>
+<SYNTAX ASK OBJECT (ON-GROUND IN-ROOM) ABOUT OBJECT = V-ASK-ABOUT>
+<SYNTAX ASK OBJECT (ON-GROUND IN-ROOM) FOR OBJECT = V-ASK-FOR>
+<VERB-SYNONYM ASK QUERY INTERROGATE ;QUIZ QUESTION>
+
+<SYNTAX ATTACK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-KILL>
+<VERB-SYNONYM ATTACK ;ASSAULT FIGHT HURT ;INJURE>
+
+<SYNTAX BACK = V-WALK-AROUND>
+<SYNTAX BACK AWAY OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+
+<SYNTAX BLOW OBJECT = V-BLOW-INTO>
+<SYNTAX BLOW IN OBJECT = V-BLOW-INTO>
+<SYNTAX BLOW ON OBJECT = V-BLOW-INTO>
+<SYNTAX BLOW THROUGH OBJECT = V-BLOW-INTO>
+<SYNTAX BLOW UP OBJECT = V-DETONATE>
+<SYNTAX BLOW OUT OBJECT = V-LAMP-OFF>
+
+<SYNTAX BOARD OBJECT (ON-GROUND IN-ROOM) = V-ENTER>
+<VERB-SYNONYM BOARD MOUNT>
+
+<SYNTAX BOLEYN		= V-BOLEYN>
+;<SYNTAX BOUNCE AROUND OBJECT (FIND FL-LOCATION) (HELD CARRIED HAVE) = V-BOUNCE>
+;<VERB-SYNONYM BOUNCE DRIBBLE>
+;<SYNTAX BOUNCE OBJECT (FIND FL-LOCATION) (HELD CARRIED HAVE) = V-BOUNCE>
+
+<SYNTAX BOW TO OBJECT (FIND FL-PERSON) = V-BOW>
+<SYNTAX BOW BEFORE OBJECT (FIND FL-PERSON) = V-BOW>
+<VERB-SYNONYM BOW KNEEL ;GROVEL GENUFLECT>
+
+<SYNTAX BREAK OBJECT (ON-GROUND IN-ROOM HELD CARRIED) WITH OBJECT (FIND FL-BYHAND) (HAVE HELD CARRIED) = V-MUNG>
+<SYNTAX BREAK OBJECT (ON-GROUND IN-ROOM) OFF OBJECT (ON-GROUND IN-ROOM) = V-MUNG>
+<SYNTAX BREAK DOWN OBJECT (ON-GROUND IN-ROOM HELD CARRIED) WITH OBJECT (HAVE HELD CARRIED) = V-MUNG>
+<SYNTAX BREAK IN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HAVE HELD CARRIED) = V-MUNG>
+<SYNTAX BREAK THROUGH OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HAVE HELD CARRIED) = V-MUNG>
+<VERB-SYNONYM BREAK DESTROY DAMAGE SMASH ;DEMOLISH WRECK ;CRACK TRASH ERASE>
+
+<SYNTAX BREATHE OBJECT (FIND FL-LOCATION) = V-INHALE>
+<SYNTAX BREATHE IN OBJECT (FIND FL-LOCATION) = V-INHALE>
+<SYNTAX BREATHE OUT OBJECT (FIND FL-LOCATION) = V-EXHALE>
+
+<SYNTAX BRIEF = V-DESC-LEVEL>
+
+<SYNTAX BRING OBJECT TO OBJECT (ON-GROUND IN-ROOM) = V-GET-FOR>
+<SYNTAX BRING OBJECT FOR OBJECT (ON-GROUND IN-ROOM) = V-GET-FOR>
+<SYNTAX BRING OBJECT (ON-GROUND IN-ROOM) OBJECT = V-GET-FOR-SWP>
+
+<SYNTAX BURN OBJECT (HAVE TAKE HELD) = V-BURN>
+<SYNTAX BURN OBJECT (HAVE TAKE HELD) WITH OBJECT (HELD CARRIED) = V-BURN-WITH>
+<SYNTAX BURN DOWN OBJECT (HAVE TAKE HELD) WITH OBJECT (HELD CARRIED) = V-BURN-WITH>
+<SYNTAX BURN UP OBJECT (HAVE TAKE HELD) WITH OBJECT (HELD CARRIED) = V-BURN-WITH>
+<VERB-SYNONYM BURN KINDLE ;COMBUST ;SCORCH IGNITE ;CHAR ;INCINERAT ;CREMATE>
+
+<SYNTAX BUY OBJECT = V-BUY>
+<SYNTAX BUY OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-BUY>
+<SYNTAX BUY OBJECT FROM OBJECT = V-BUY-FROM>
+
+<SYNTAX BYE OBJECT (FIND FL-LOCATION) = V-GOODBYE>
+<VERB-SYNONYM BYE GOODBYE FAREWELL>
+
+<VERB-SYNONYM CALL HAIL>
+<SYNTAX CALL OBJECT (FIND FL-LOCATION) = V-CALL PRE-CALL>
+<SYNTAX CALL OBJECT WITH OBJECT = V-CALL PRE-CALL>
+
+<SYNTAX CAST OFF OBJECT (FIND FL-LOCATION) = V-CAST-OFF>
+
+<SYNTAX CLEAN OBJECT = V-CLEAN>
+<SYNTAX CLEAN OFF OBJECT = V-CLEAN>
+<SYNTAX CLEAN OBJECT (HELD CARRIED HAVE) ON OBJECT = V-CLEAN-OFF>
+<SYNTAX CLEAN OBJECT (HELD CARRIED HAVE) OFF OBJECT = V-CLEAN-OFF>
+<SYNTAX CLEAN OFF OBJECT (HELD CARRIED HAVE) ON OBJECT = V-CLEAN-OFF>
+<SYNTAX CLEAN OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-CLEAN-OFF>
+<SYNTAX CLEAN OFF OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-CLEAN-OFF>
+<VERB-SYNONYM CLEAN SWEEP WIPE SMEAR BRUSH POLISH>
+
+<SYNTAX CLEVES	= V-CLEVES>
+
+<SYNTAX CLIMB OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX CLIMB ON OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB UP OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX CLIMB DOWN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB OVER OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-OVER>
+<SYNTAX CLIMB UNDER OBJECT (ON-GROUND IN-ROOM) = V-THROUGH>
+<SYNTAX CLIMB IN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-ENTER>
+<SYNTAX CLIMB THROUGH OBJECT (ON-GROUND IN-ROOM) = V-THROUGH>
+<SYNTAX CLIMB OUT OBJECT (FIND FL-LOCATION) = V-EXIT>
+
+<SYNTAX CLOSE OBJECT (FIND FL-OPENABLE) (HELD CARRIED ON-GROUND IN-ROOM) = V-CLOSE>
+<SYNTAX CLOSE OFF OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-OFF>
+<VERB-SYNONYM CLOSE SLAM>
+
+<SYNTAX CONCEAL OBJECT (HELD CARRIED HAVE) IN OBJECT (ON-GROUND IN-ROOM) = V-PUT PRE-PUT>
+<SYNTAX CONCEAL OBJECT (HELD CARRIED HAVE) BEHIND OBJECT (ON-GROUND IN-ROOM) = V-PUT-BEHIND>
+<SYNTAX CONCEAL OBJECT (HELD CARRIED HAVE) UNDER OBJECT (ON-GROUND IN-ROOM) = V-PUT-UNDER>
+
+;<VERB-SYNONYM CONNECT ATTACH>
+;<SYNTAX CONNECT OBJECT TO OBJECT (ON-GROUND IN-ROOM) = V-PLUG>
+
+<SYNTAX COUNT OBJECT = V-COUNT>
+<VERB-SYNONYM COUNT TALLY ;TABULATE>
+
+<VERB-SYNONYM COVER BLOCK SHIELD>
+<SYNTAX COVER OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-COVER>
+<SYNTAX COVER UP OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-COVER>
+<SYNTAX COVER OVER OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-COVER>
+
+;<SYNTAX CROSS OBJECT = V-CROSS>
+;<SYNTAX CROSS OVER OBJECT = V-CROSS>
+;<VERB-SYNONYM CROSS TRAVERSE>
+
+<VERB-SYNONYM CUT CHOP SLASH ;SLICE ;GASH ;LACERATE> 
+<SYNTAX CUT OBJECT WITH OBJECT (FIND FL-KNIFE) (CARRIED HELD HAVE TAKE) = V-CUT>
+<SYNTAX CUT UP OBJECT WITH OBJECT (FIND FL-KNIFE) (CARRIED HELD HAVE TAKE) = V-CUT>
+<SYNTAX CUT THROUGH OBJECT WITH OBJECT (FIND FL-KNIFE) (HELD CARRIED HAVE TAKE) = V-CUT>
+<SYNTAX CUT DOWN OBJECT WITH OBJECT (FIND FL-KNIFE) (CARRIED HELD HAVE TAKE) = V-CUT> 
+<SYNTAX CUT OFF OBJECT WITH OBJECT (FIND FL-KNIFE) (CARRIED HELD HAVE TAKE) = V-CUT> 
+
+<SYNTAX DESCEND OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+
+<VERB-SYNONYM DETONATE EXPLODE>
+<SYNTAX DETONATE OBJECT = V-DETONATE>
+
+<SYNTAX DIAGNOSE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) WITH OBJECT (FIND FL-BYHAND) = V-DIAGNOSE>
+
+;<VERB-SYNONYM DIG EXCAVATE>
+;<SYNTAX DIG IN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-DIG>
+;<SYNTAX DIG AT OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-DIG>
+;<SYNTAX DIG UP OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-DIG>
+;<SYNTAX DIG WITH OBJECT (HELD CARRIED HAVE) IN OBJECT (ON-GROUND IN-ROOM) = V-DIG-SWP>
+;<SYNTAX DIG THROUGH OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-DIG>
+;<SYNTAX DIG OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-DIG>
+
+<SYNTAX DISEMBARK OBJECT (FIND FL-LOCATION) = V-EXIT>
+<SYNTAX DISEMBARK FROM OBJECT = V-EXIT>
+<SYNTAX DISEMBARK OUT OBJECT = V-EXIT>
+
+<SYNTAX DIVE OBJECT (FIND FL-LOCATION) = V-DIVE>
+<SYNTAX DIVE DOWN OBJECT (FIND FL-LOCATION) = V-DIVE>
+<SYNTAX DIVE IN OBJECT (FIND FL-LOCATION) = V-DIVE>
+<SYNTAX DIVE UNDER OBJECT (FIND FL-LOCATION) = V-DIVE>
+<SYNTAX DIVE OVER OBJECT = V-LEAP>
+
+<SYNTAX DRESS OBJECT (FIND FL-LOCATION) = V-DRESS>
+
+<VERB-SYNONYM DRINK SIP GUZZLE IMBIBE QUAFF SWILL>
+<SYNTAX DRINK OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-DRINK>
+<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
+
+<SYNTAX DRIVE OBJECT (FIND FL-LOCATION) = V-DRIVE>
+<SYNTAX DRIVE TO OBJECT (FIND FL-LOCATION) = V-DRIVE>
+
+<VERB-SYNONYM DROP DUMP>
+<SYNTAX DROP OBJECT (HELD MANY) = V-DROP PRE-DROP>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT-ON PRE-PUT-ON>
+
+;<SYNTAX DUCK = V-DUCK>
+;<SYNTAX DUCK UNDER OBJECT = V-STAND-UNDER>
+
+<SYNTAX EAT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EAT>
+<VERB-SYNONYM EAT SWALLOW BITE>
+
+<SYNTAX EMBARK OBJECT (FIND FL-LOCATION) = V-ENTER>
+<SYNTAX EMBARK ON OBJECT = V-ENTER>
+
+<VERB-SYNONYM EMPTY CLEAR>
+<SYNTAX EMPTY OBJECT (HELD CARRIED HAVE) = V-EMPTY>
+<SYNTAX EMPTY OUT OBJECT (HELD CARRIED HAVE) = V-EMPTY>
+<SYNTAX EMPTY OFF OBJECT (HELD CARRIED HAVE) = V-EMPTY>
+<SYNTAX EMPTY OBJECT FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX EMPTY OUT OBJECT FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX EMPTY OBJECT OUT OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX EMPTY OBJECT (HELD CARRIED HAVE) IN OBJECT = V-EMPTY-INTO>
+<SYNTAX EMPTY OBJECT (HELD CARRIED HAVE) ON OBJECT = V-EMPTY-INTO>
+<SYNTAX EMPTY OUT OBJECT (HELD CARRIED HAVE) IN OBJECT = V-EMPTY-INTO>
+<SYNTAX EMPTY OUT OBJECT (HELD CARRIED HAVE) ON OBJECT = V-EMPTY-INTO>
+
+<SYNTAX ENTER OBJECT (FIND FL-LOCATION) = V-ENTER>
+
+<SYNTAX ESCAPE OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+<SYNTAX ESCAPE FROM OBJECT (ON-GROUND IN-ROOM) = V-ESCAPE>
+<SYNTAX ESCAPE AWAY OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+<VERB-SYNONYM ESCAPE FLEE>
+
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EXAMINE PRE-EXAMINE>
+<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND) = V-LOOK-INSIDE>
+<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND) = V-EXAMINE PRE-EXAMINE>
+<SYNTAX EXAMINE FOR OBJECT = V-FIND>
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM) THROUGH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LOOK-THRU>
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LOOK-THRU>
+<VERB-SYNONYM EXAMINE X INSPECT DESCRIBE CHECK STUDY SURVEY SEE TRACE>
+
+<SYNTAX EXHALE OBJECT (FIND FL-LOCATION) = V-EXHALE>
+
+<VERB-SYNONYM EXIT DEPART SCRAM WITHDRAW>
+<SYNTAX EXIT OBJECT (FIND FL-LOCATION) = V-EXIT>
+
+<VERB-SYNONYM EXTINGUISH DOUSE QUENCH SNUFF>
+<SYNTAX EXTINGUISH OBJECT (FIND FL-LAMP) = V-LAMP-OFF>
+
+<SYNTAX FEED OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-FOOD) (HELD CARRIED HAVE) = V-FEED-SWP>
+<SYNTAX FEED OBJECT (HELD CARRIED HAVE) TO OBJECT (FIND FL-ALIVE) (ON-GROUND IN-ROOM) = V-FEED PRE-FEED>
+<SYNTAX FEED OBJECT (ON-GROUND IN-ROOM) OBJECT (FIND FL-FOOD) (HELD CARRIED HAVE) = V-FEED-SWP>
+
+<SYNTAX FEEL OBJECT = V-TOUCH>
+<SYNTAX FEEL IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-REACH-IN>
+<SYNTAX FELL OBJECT WITH OBJECT (FIND FL-KNIFE) (CARRIED HELD HAVE TAKE) = V-CUT>
+
+<SYNTAX FILL OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT = V-FILL>
+<SYNTAX FILL OBJECT (HELD CARRIED ON-GROUND IN-ROOM) AT OBJECT = V-FILL>
+<SYNTAX FIND OBJECT = V-FIND>
+<VERB-SYNONYM FIND SEEK DISCOVER>
+
+<SYNTAX FIX OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-REPAIR>
+<SYNTAX FIX UP OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-REPAIR>
+
+;<SYNTAX FLASH OBJECT (HELD CARRIED HAVE) AT OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+;<SYNTAX FLASH OBJECT (HELD CARRIED HAVE) IN OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+;<SYNTAX FLASH OBJECT (HELD CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+;<SYNTAX FLASH OBJECT (HELD CARRIED HAVE) OVER OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+
+;<SYNTAX FLATTEN OBJECT (HELD CARRIED HAVE) = V-FOLD>
+;<SYNTAX FLATTEN OUT OBJECT (HELD CARRIED HAVE) = V-FOLD>
+
+<SYNTAX FLIP OBJECT = V-FLIP>
+
+<SYNTAX FLY = V-FLY>
+<SYNTAX FLY OBJECT = V-FLY>
+<SYNTAX FLY ON OBJECT = V-FLY>
+<SYNTAX FLY WITH OBJECT = V-FLY>
+<SYNTAX FLY OVER OBJECT = V-FLY>
+
+<SYNTAX FOCUS OBJECT (HELD CARRIED) = V-ADJUST>
+<SYNTAX FOCUS ON OBJECT = V-FOCUS-ON>
+<SYNTAX FOCUS OBJECT ON OBJECT = V-FOCUS-ON>
+<SYNTAX FOCUS OBJECT AT OBJECT = V-FOCUS-ON>
+
+<SYNTAX FOLD OBJECT (HELD CARRIED HAVE) = V-FOLD>
+<SYNTAX FOLD UP OBJECT (HELD CARRIED HAVE) = V-FOLD>
+<SYNTAX FOLD OBJECT (HELD CARRIED HAVE) AROUND OBJECT (ON-GROUND IN-ROOM) = V-WRAP-AROUND>
+<SYNTAX FOLD OBJECT IN OBJECT = V-WRAP-AROUND-SWP>
+<SYNTAX FOLD UP OBJECT (ON-GROUND IN-ROOM) IN OBJECT (HELD CARRIED HAVE) = V-WRAP-AROUND-SWP>
+<SYNTAX FOLD OUT OBJECT (HELD CARRIED HAVE) = V-UNFOLD>
+<VERB-SYNONYM FOLD WRAP>
+
+<SYNTAX FOLLOW OBJECT = V-FOLLOW>
+<VERB-SYNONYM FOLLOW PURSUE CHASE>
+<SYNTAX FOO OBJECT (FIND FL-LOCATION) = V-FOO>
+
+<SYNTAX GET OBJECT (FIND FL-TAKEABLE) (ON-GROUND IN-ROOM CARRIED MANY) = V-TAKE PRE-TAKE>
+<SYNTAX GET IN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-ENTER>
+<SYNTAX GET OUT OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-EXIT>
+<SYNTAX GET ON OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX GET UP OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-RAISE>
+<SYNTAX GET DOWN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-LOWER>
+<SYNTAX GET UNDER OBJECT (ON-GROUND IN-ROOM) = V-STAND-UNDER>
+<SYNTAX GET OBJECT (IN-ROOM CARRIED MANY) OUT OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX GET OBJECT (IN-ROOM CARRIED MANY) OFF OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX GET OBJECT (IN-ROOM CARRIED MANY) FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX GET OBJECT (IN-ROOM CARRIED MANY) IN OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX GET OBJECT (IN-ROOM CARRIED MANY) ON OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX GET OBJECT (IN-ROOM CARRIED MANY) WITH OBJECT (HELD CARRIED HAVE) = V-TAKE-WITH>
+<SYNTAX GET OFF OBJECT = V-TAKE-OFF>
+<SYNTAX GET AWAY OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+<SYNTAX GET OBJECT (ON-GROUND IN-ROOM) OBJECT = V-GET-FOR-SWP>
+<SYNTAX GET OBJECT FOR OBJECT (ON-GROUND IN-ROOM) = V-GET-FOR>
+<SYNTAX GET OBJECT TO OBJECT (ON-GROUND IN-ROOM) = V-GET-FOR>
+
+<SYNTAX GIN = V-GIN>
+
+<SYNTAX GO = V-WALK-AROUND>
+<SYNTAX GO OBJECT = V-WALK>
+<SYNTAX GO IN OBJECT (FIND FL-LOCATION) = V-ENTER>
+<SYNTAX GO OUT OBJECT (FIND FL-LOCATION) = V-EXIT>
+<SYNTAX GO ON OBJECT = V-STAND-ON>
+<SYNTAX GO OVER OBJECT = V-CROSS>
+<SYNTAX GO THROUGH OBJECT = V-THROUGH>
+<SYNTAX GO AROUND OBJECT (FIND FL-LOCATION) = V-WALK-AROUND>
+<SYNTAX GO BEHIND OBJECT = V-WALK-AROUND>
+<SYNTAX GO UNDER OBJECT = V-THROUGH>
+<SYNTAX GO UP OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX GO DOWN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX GO TO OBJECT = V-WALK-TO>
+<SYNTAX GO AWAY OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+<SYNTAX GO FROM OBJECT = V-ESCAPE>
+
+<SYNTAX GUESS OBJECT (FIND FL-LOCATION) = V-GUESS>
+
+<VERB-SYNONYM HAGGLE BARGAIN NEGOTIATE DICKER DEAL>
+<SYNTAX HAGGLE WITH OBJECT (ON-GROUND IN-ROOM) (FIND FL-PERSON) = V-HAGGLE>
+
+<VERB-SYNONYM HAND GIVE ;DONATE DELIVER OFFER LOAN LEND ;BESTOW> 
+<SYNTAX HAND OBJECT (HELD CARRIED HAVE TAKE MANY) TO OBJECT (FIND FL-PERSON) (IN-ROOM ON-GROUND) = V-GIVE PRE-GIVE>
+<SYNTAX HAND OBJECT (ON-GROUND IN-ROOM) OBJECT (HELD CARRIED HAVE TAKE MANY) = V-GIVE-SWP>
+
+<SYNTAX HAUL OBJECT = V-HAUL>
+<SYNTAX HAUL IN OBJECT = V-HAUL>
+<SYNTAX HAUL UP OBJECT = V-HAUL>
+
+<SYNTAX HEAR OBJECT = V-LISTEN PRE-LISTEN>
+
+<SYNTAX HEAT OBJECT (HAVE TAKE HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-HEAT>
+<SYNTAX HEAT OBJECT (HAVE TAKE HELD CARRIED ON-GROUND IN-ROOM) OVER OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-HEAT>
+<VERB-SYNONYM HEAT WARM>
+
+;<SYNTAX HEEL OBJECT (FIND FL-LOCATION) = V-HEEL>
+
+<VERB-SYNONYM HELLO HI GREETINGS GREET SALUTE>
+<SYNTAX HELLO OBJECT (FIND FL-LOCATION) = V-HELLO>
+
+<SYNTAX HELP = V-HINT>
+<VERB-SYNONYM HELP HINT HINTS CLUE CLUES INVISICLUES>
+<SYNTAX HELP OBJECT = V-RESCUE>
+<SYNTAX HELP OFF OBJECT (FIND FL-LOCATION) = V-HINTS-NO>
+
+<SYNTAX HIDE OBJECT (FIND FL-LOCATION) = V-HIDE>
+<SYNTAX HIDE BEHIND OBJECT = V-HIDE>
+<SYNTAX HIDE OBJECT (HELD CARRIED HAVE) BEHIND OBJECT (ON-GROUND IN-ROOM) = V-PUT-BEHIND>
+<SYNTAX HIDE OBJECT (HELD CARRIED HAVE) UNDER OBJECT (ON-GROUND IN-ROOM) = V-PUT-UNDER>
+<SYNTAX HIDE IN OBJECT = V-ENTER>
+<SYNTAX HIDE UNDER OBJECT = V-STAND-UNDER>
+
+<SYNTAX HIT OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-HIT>
+<SYNTAX HIT AT OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-HIT>
+<VERB-SYNONYM HIT SLAP WHACK SWAT>
+
+<SYNTAX HOLD OBJECT (FIND FL-TAKEABLE) (ON-GROUND IN-ROOM MANY) = V-TAKE PRE-TAKE>
+<SYNTAX HOLD ON OBJECT (FIND FL-TAKEABLE) (ON-GROUND IN-ROOM) = V-TAKE PRE-TAKE>
+<SYNTAX HOLD UP OBJECT (FIND FL-LOCATION) (HELD CARRIED HAVE) = V-RAISE>
+<SYNTAX HOLD OBJECT (HELD CARRIED HAVE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX HOLD OBJECT (HELD CARRIED HAVE) ON OBJECT = V-TOUCH-TO>
+<SYNTAX HOLD OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-HOLD-OVER>
+<SYNTAX HOLD OBJECT (HELD CARRIED HAVE) AGAINST OBJECT = V-TOUCH-TO>
+<SYNTAX HOLD OBJECT (HELD CARRIED HAVE) TO OBJECT = V-TOUCH-TO>
+<SYNTAX HOLD OBJECT (HELD CARRIED HAVE) UP OBJECT = V-TOUCH-TO>
+<SYNTAX HOLD DOWN OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-LOWER>
+<SYNTAX HOLD APART OBJECT (ON-GROUND IN-ROOM) = V-OPEN>
+
+<SYNTAX HOWARD		= V-HOWARD>
+
+<SYNTAX HUSH = V-HUSH>
+<VERB-SYNONYM HUSH SHUSH SHH SHHH SHHHH SSHH SSHHH QUIET>
+
+<SYNTAX ILLUMINATE OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-LIGHTED) (HELD CARRIED HAVE) = V-SHINE-AT-SWP>
+
+;<SYNTAX INFLATE OBJECT = V-BLOW-INTO>
+
+<VERB-SYNONYM INHALE HYPERVENT>
+<SYNTAX INHALE OBJECT (FIND FL-LOCATION) = V-INHALE>
+
+<SYNTAX INVENTORY = V-INVENTORY>
+<VERB-SYNONYM INVENTORY I>
+
+;<SYNTAX JOSTLE OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-SHAKE>
+;<VERB-SYNONYM JOSTLE RATTLE>
+
+<SYNTAX JUMP OBJECT (FIND FL-LOCATION) = V-LEAP>
+<SYNTAX JUMP UP OBJECT (FIND FL-LOCATION) = V-CLIMB-UP>
+<SYNTAX JUMP DOWN OBJECT (FIND FL-LOCATION) = V-CLIMB-DOWN>
+<SYNTAX JUMP ON OBJECT = V-STAND-ON>
+<SYNTAX JUMP OVER OBJECT = V-CLIMB-OVER>
+<SYNTAX JUMP IN OBJECT (FIND FL-LOCATION) = V-LEAP>
+<SYNTAX JUMP TO OBJECT = V-ENTER>
+<SYNTAX JUMP THROUGH OBJECT = V-ENTER>
+<SYNTAX JUMP OUT OBJECT (FIND FL-LOCATION) = V-EXIT>
+<SYNTAX JUMP FROM OBJECT = V-CLIMB-DOWN>
+<SYNTAX JUMP OFF OBJECT (FIND FL-LOCATION) = V-CLIMB-DOWN>
+<VERB-SYNONYM JUMP LEAP BOUND HURDLE VAULT>
+
+<SYNTAX KICK OBJECT = V-KICK>
+<SYNTAX KICK AROUND OBJECT = V-KICK>
+<SYNTAX KICK IN OBJECT = V-MUNG>
+<SYNTAX KICK DOWN OBJECT = V-KICK>
+
+<VERB-SYNONYM KILL MURDER ;SLAY STAB PUNCH WOUND ;DISPATCH> 
+<SYNTAX KILL OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-KILL>
+
+<SYNTAX KISS OBJECT (FIND FL-PERSON) (ON-GROUND IN-ROOM) = V-KISS>
+<VERB-SYNONYM KISS SMOOCH>
+
+<SYNTAX KNOCK AT OBJECT = V-KNOCK>
+<SYNTAX KNOCK ON OBJECT = V-KNOCK>
+<SYNTAX KNOCK DOWN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-HIT>
+<SYNTAX KNOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-HIT>
+<SYNTAX KNOCK OUT OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-HIT>
+<VERB-SYNONYM KNOCK RAP POUND TAP>
+
+<SYNTAX LAND OBJECT (FIND FL-LOCATION) = V-LAND>
+
+<SYNTAX LAUNCH OBJECT (FIND FL-LOCATION) = V-LAUNCH>
+
+<SYNTAX LEAN ON OBJECT = V-PUSH>
+
+<SYNTAX LEAVE OBJECT (FIND FL-LOCATION) = V-EXIT>
+<SYNTAX LEAVE OBJECT (HELD CARRIED MANY) IN OBJECT (ON-GROUND IN-ROOM CARRIED) = V-PUT PRE-PUT>
+<SYNTAX LEAVE OBJECT (HELD CARRIED MANY) ON OBJECT (ON-GROUND IN-ROOM CARRIED) = V-PUT-ON PRE-PUT-ON>
+
+<SYNTAX LET GO OBJECT = V-RELEASE>
+<SYNTAX LET OBJECT (HELD CARRIED HAVE) GO OBJECT (FIND FL-BYHAND) = V-RELEASE>
+
+<SYNTAX LIE DOWN OBJECT (FIND FL-LOCATION) = V-LIE-DOWN>
+<SYNTAX LIE ON OBJECT = V-LIE-DOWN>
+<SYNTAX LIE IN OBJECT = V-LIE-DOWN>
+;<VERB-SYNONYM LIE RECLINE REPOSE>
+
+<SYNTAX LIGHT OBJECT (ON-GROUND IN-ROOM) = V-LIGHT>
+<SYNTAX LIGHT OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LIGHT-WITH PRE-LIGHT-WITH>
+<SYNTAX LIGHT OBJECT (ON-GROUND IN-ROOM) FROM OBJECT (HELD CARRIED HAVE) = V-LIGHT-WITH PRE-LIGHT-WITH>
+<SYNTAX LIGHT UP OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LIGHT-WITH PRE-LIGHT-WITH>
+<SYNTAX LIGHT UP OBJECT (ON-GROUND IN-ROOM) FROM OBJECT (HELD CARRIED HAVE) = V-LIGHT-WITH PRE-LIGHT-WITH>
+
+<SYNTAX LISTEN OBJECT (FIND FL-LOCATION) = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN TO OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN FOR OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN TO OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT = V-LISTEN PRE-LISTEN>
+<SYNTAX LISTEN TO OBJECT (HELD CARRIED ON-GROUND IN-ROOM) THROUGH OBJECT = V-LISTEN PRE-LISTEN>
+
+<SYNTAX LOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) = V-LOCK>
+
+;<SYNTAX LOO = V-LOO>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EXAMINE PRE-EXAMINE>
+<SYNTAX LOOK AROUND OBJECT (FIND FL-LOCATION) = V-LOOK>
+<SYNTAX LOOK DOWN OBJECT (FIND FL-LOCATION) = V-LOOK-DOWN>
+<SYNTAX LOOK OVER OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EXAMINE PRE-EXAMINE>
+<SYNTAX LOOK UP OBJECT (FIND FL-LOCATION) = V-LOOK-UP>
+<SYNTAX LOOK OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-DUMB-EXAMINE PRE-DUMB-EXAMINE>
+<SYNTAX LOOK THROUGH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LOOK-INSIDE> 
+<SYNTAX LOOK THROUGH OBJECT AT OBJECT = V-LOOK-THRU-SWP>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LOOK-INSIDE>
+<SYNTAX LOOK ON OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LOOK-ON>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) THROUGH OBJECT = V-LOOK-THRU>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT = V-LOOK-THRU>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) THROUGH OBJECT = V-LOOK-THRU>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT = V-LOOK-THRU>
+<SYNTAX LOOK OUT OBJECT (FIND FL-LOCATION) = V-LOOK-OUTSIDE>
+<SYNTAX LOOK FOR OBJECT = V-FIND>
+<SYNTAX LOOK TO OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EXAMINE PRE-EXAMINE>
+<VERB-SYNONYM LOOK L STARE GAZE PEER PEEK>
+
+<VERB-SYNONYM LOOSEN JIGGLE WIGGLE WOBBLE HOOK>
+<SYNTAX LOOSEN OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE TAKE) = V-LOOSEN>
+
+<SYNTAX LOWER OBJECT = V-LOWER>
+
+<SYNTAX MAKE OBJECT = V-MAKE>
+<SYNTAX MAKE UP OBJECT = V-MAKE>
+<SYNTAX MAKE OBJECT OBJECT = V-MAKE>
+
+<SYNTAX ECHO ;MARX = V-ECHO ;V-MARX>
+<VERB-SYNONYM ECHO GROUCHO HARPO CHICO GUMMO ZEPPO PUNT WHISTLE SING HUM MARX>
+
+<SYNTAX MAYBE = V-MAYBE>
+
+<SYNTAX MELT OBJECT (HELD CARRIED HAVE) WITH OBJECT (HELD CARRIED HAVE) (FIND FL-LIGHTED) = V-MELT>
+
+<SYNTAX MOVE OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-MOVE>
+<SYNTAX MOVE OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO>
+<VERB-SYNONYM MOVE SHIFT ROLL DISLOCATE>
+
+<SYNTAX NO = V-NO>
+;<VERB-SYNONYM NO N>	; "This could never be used anyway"
+
+<SYNTAX NOD AT OBJECT (FIND FL-PERSON) = V-WAVE-AT>
+<SYNTAX NOD TO OBJECT (FIND FL-PERSON) = V-WAVE-AT>
+<VERB-SYNONYM NOD SMILE LAUGH GRIN SNEER MOTION ;BECKON>
+
+<SYNTAX NOTIFY = V-NOTIFY>
+
+<SYNTAX OPEN OBJECT (FIND FL-OPENABLE) (TAKE HELD CARRIED ON-GROUND IN-ROOM) = V-OPEN>
+<SYNTAX OPEN UP OBJECT (FIND FL-OPENABLE) (TAKE HELD CARRIED ON-GROUND IN-ROOM) = V-OPEN>
+<SYNTAX OPEN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-OPEN-WITH>
+<SYNTAX OPEN UP OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-OPEN-WITH>
+;<VERB-SYNONYM OPEN UNSEAL DISASSEMBLE>
+
+<SYNTAX PADDLE OBJECT = V-PADDLE>
+<SYNTAX PADDLE WITH OBJECT (HELD CARRIED HAVE) = V-PADDLE-WITH>
+<SYNTAX PADDLE OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PADDLE-WITH>
+
+<SYNTAX PARR		= V-PARR>
+<SYNTAX PASSWORD OBJECT = V-PASSWORD>
+
+<SYNTAX PAT OBJECT = V-TOUCH>
+
+<VERB-SYNONYM PAY BRIBE ENTICE ;RENUMERATE>
+<SYNTAX PAY OBJECT WITH OBJECT (FIND FL-MONEY) (TAKE HAVE HELD CARRIED) = V-PAY>
+<SYNTAX PAY OBJECT (HELD CARRIED HAVE TAKE MANY) TO OBJECT (FIND FL-MONEY) (IN-ROOM ON-GROUND) = V-GIVE PRE-GIVE>
+<SYNTAX PAY OBJECT (ON-GROUND IN-ROOM) OBJECT (HELD CARRIED HAVE TAKE MANY) = V-GIVE-SWP>
+
+<SYNTAX PET OBJECT = V-TOUCH>
+
+<SYNTAX PICK OBJECT (FIND FL-TAKEABLE) (ON-GROUND MANY) = V-TAKE PRE-TAKE>
+<SYNTAX PICK OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-PICK>
+<SYNTAX PICK UP OBJECT (FIND FL-TAKEABLE) (ON-GROUND MANY) = V-TAKE PRE-TAKE>
+
+<VERB-SYNONYM PLAY FIDDLE TOY ;CAVORT>
+<SYNTAX PLAY OBJECT (FIND FL-LOCATION) = V-PLAY>
+<SYNTAX PLAY WITH OBJECT = V-PLAY>
+
+;<SYNTAX PLUG IN OBJECT = V-PLUG>
+;<SYNTAX PLUG OBJECT IN OBJECT (ON-GROUND IN-ROOM) = V-PLUG>
+
+<SYNTAX POCKET OBJECT (HELD CARRIED) = V-POCKET PRE-POCKET>
+
+<SYNTAX POINT OBJECT = V-POINT>
+<SYNTAX POINT AT OBJECT = V-POINT>
+<SYNTAX POINT AT OBJECT FOR OBJECT (FIND FL-ALIVE) = V-POINT>
+<SYNTAX POINT TO OBJECT = V-POINT>
+<SYNTAX POINT TO OBJECT FOR OBJECT (FIND FL-ALIVE) = V-POINT>
+<SYNTAX POINT OUT OBJECT TO OBJECT (FIND FL-ALIVE) = V-POINT>
+<SYNTAX POINT AT OBJECT WITH OBJECT = V-POINT-AT-SWP>
+<SYNTAX POINT OBJECT AT OBJECT = V-POINT-AT>
+<SYNTAX POINT OBJECT TO OBJECT = V-POINT-AT>
+
+<VERB-SYNONYM POKE JAB BLIND>
+<SYNTAX POKE OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-MUNG>
+
+<SYNTAX POUR OBJECT (HELD CARRIED HAVE) = V-POUR>
+<SYNTAX POUR OUT OBJECT (HELD CARRIED HAVE) = V-POUR>
+<SYNTAX POUR OBJECT (HELD CARRIED HAVE) IN OBJECT = V-EMPTY-INTO>
+<SYNTAX POUR OUT OBJECT (HELD CARRIED HAVE) IN OBJECT = V-EMPTY-INTO>
+<SYNTAX POUR OBJECT (HELD CARRIED HAVE) ON OBJECT = V-EMPTY-INTO>
+<SYNTAX POUR OUT OBJECT (HELD CARRIED HAVE) ON OBJECT = V-EMPTY-INTO>
+<SYNTAX POUR OBJECT FROM OBJECT (HELD CARRIED HAVE) = V-POUR-FROM>
+<SYNTAX POUR OBJECT OUT OBJECT (HELD CARRIED HAVE) = V-POUR-FROM>
+<SYNTAX POUR OUT OBJECT FROM OBJECT (HELD CARRIED HAVE) = V-POUR-FROM>
+<VERB-SYNONYM POUR SPILL SPRINKLE>
+
+<SYNTAX PRAY = V-PRAY>
+
+;<SYNTAX PRY OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE TAKE) = V-LOOSEN>
+;<SYNTAX PRY OUT OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE TAKE) = V-LOOSEN>
+;<SYNTAX PRY UP OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE TAKE) = V-LOOSEN>
+
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-PULL>
+<SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-PULL>
+<SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PULL UP OBJECT (ON-GROUND IN-ROOM) = V-RAISE>
+<SYNTAX PULL UP OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PULL DOWN OBJECT (ON-GROUND IN-ROOM) = V-LOWER>
+<SYNTAX PULL DOWN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PULL OBJECT OUT OBJECT (ON-GROUND IN-ROOM) = V-TAKE PRE-TAKE>
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO>
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO>
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) FROM OBJECT (ON-GROUND IN-ROOM) = V-TAKE PRE-TAKE>
+<SYNTAX PULL APART OBJECT (ON-GROUND IN-ROOM) = V-OPEN>
+<SYNTAX PULL OUT OBJECT = V-UNPLUG>
+<VERB-SYNONYM PULL TUG DRAG YANK>
+
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) = V-PUSH>
+<SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND) = V-PUSH>
+<SYNTAX PUSH OFF OBJECT (FIND FL-LOCATION) (IN-ROOM ON-GROUND) = V-LAUNCH>
+<SYNTAX PUSH UP OBJECT (IN-ROOM ON-GROUND) = V-RAISE>
+<SYNTAX PUSH DOWN OBJECT (IN-ROOM ON-GROUND) = V-LOWER>
+<SYNTAX PUSH IN OBJECT (IN-ROOM ON-GROUND) = V-PLUG>
+<SYNTAX PUSH OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PUSH DOWN OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PUSH ON OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) TO OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) IN OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) ON OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) OVER OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) AT OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) UNDER OBJECT = V-PUT-UNDER>
+
+<SYNTAX PUT OBJECT (HELD CARRIED MANY) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX PUT OBJECT (HELD CARRIED HAVE MANY) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX PUT OBJECT (HELD CARRIED HAVE MANY) ON OBJECT = V-PUT-ON PRE-PUT-ON>
+<SYNTAX PUT OBJECT (HELD CARRIED HAVE) AGAINST OBJECT = V-TOUCH-TO>
+<SYNTAX PUT OBJECT (HELD CARRIED HAVE) THROUGH OBJECT (ON-GROUND IN-ROOM CARRIED) = V-THROW PRE-THROW>
+<SYNTAX PUT OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-PUT-ON PRE-PUT-ON>
+<SYNTAX PUT DOWN OBJECT (HELD CARRIED HAVE MANY) = V-DROP PRE-DROP>
+<SYNTAX PUT OBJECT (HELD HAVE CARRIED MANY) UNDER OBJECT (ON-GROUND IN-ROOM CARRIED) = V-PUT-UNDER> 
+<SYNTAX PUT ON OBJECT (ON-GROUND IN-ROOM CARRIED) = V-WEAR>
+<SYNTAX PUT OBJECT (HELD CARRIED MANY HAVE) BEHIND OBJECT (ON-GROUND IN-ROOM CARRIED) = V-PUT-BEHIND>
+<SYNTAX PUT OUT OBJECT (ON-GROUND IN-ROOM CARRIED HELD) = V-LAMP-OFF>
+<VERB-SYNONYM PUSH PRESS SHOVE THRUST NUDGE STICK>
+<VERB-SYNONYM PUT STUFF INSERT PLACE LAY ;STASH>
+
+<SYNTAX QUIT = V-QUIT>
+<VERB-SYNONYM QUIT Q>
+
+<VERB-SYNONYM RAISE LIFT ELEVATE HOIST>
+<SYNTAX RAISE OBJECT = V-RAISE>
+<SYNTAX RAISE UP OBJECT = V-RAISE>
+<SYNTAX RAISE OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX RAISE UP OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+
+;<VERB-SYNONYM RAPE MOLEST DEFILE RAVISH HUMP>
+;<SYNTAX RAPE OBJECT (FIND FL-ALIVE) = V-RAPE>
+
+<VERB-SYNONYM REACH GROPE>
+<SYNTAX REACH OBJECT WITH OBJECT (FIND FL-TOOL) = V-TOUCH-TO-SWP>
+<SYNTAX REACH FOR OBJECT WITH OBJECT (FIND FL-TOOL) = V-TOUCH-TO-SWP>
+<SYNTAX REACH OUT OBJECT WITH OBJECT (FIND FL-TOOL) = V-TOUCH-TO-SWP>
+<SYNTAX REACH TO OBJECT WITH OBJECT (FIND FL-TOOL) = V-TOUCH-TO-SWP>
+<SYNTAX REACH IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-REACH-IN>
+<SYNTAX REACH THROUGH OBJECT (ON-GROUND IN-ROOM) = V-REACH-IN>
+
+<SYNTAX READ OBJECT (FIND FL-READABLE) (TAKE HELD CARRIED ON-GROUND IN-ROOM) = V-READ>
+<SYNTAX READ THROUGH OBJECT (FIND FL-READABLE) (TAKE HELD CARRIED ON-GROUND IN-ROOM) = V-READ>
+<SYNTAX READ OBJECT (TAKE HELD CARRIED ON-GROUND IN-ROOM) THROUGH OBJECT = V-LOOK-THRU>
+<SYNTAX READ OBJECT (TAKE HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT = V-LOOK-THRU>
+<SYNTAX READ OBJECT (TAKE HELD CARRIED ON-GROUND IN-ROOM) TO OBJECT (FIND FL-PERSON) = V-READ-TO>
+<SYNTAX READ OBJECT OBJECT (FIND FL-READABLE) (TAKE HELD CARRIED ON-GROUND IN-ROOM) = V-READ-TO-SWP>
+<VERB-SYNONYM READ SKIM BROWSE LEAF>
+
+<SYNTAX REFUSE OBJECT = V-REFUSE>
+
+<VERB-SYNONYM RELEASE FREE UNJAM>
+<SYNTAX RELEASE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) WITH OBJECT (FIND FL-BYHAND) (HAVE) = V-RELEASE>
+<SYNTAX RELEASE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) FROM OBJECT (FIND FL-BYHAND) = V-RELEASE>
+
+<SYNTAX REMOVE OBJECT (FIND FL-WORN) (HELD CARRIED) = V-TAKE-OFF>
+<SYNTAX REMOVE OBJECT (ON-GROUND IN-ROOM MANY) FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX REMOVE OBJECT (ON-GROUND IN-ROOM MANY) ON OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX REMOVE OBJECT (ON-GROUND IN-ROOM MANY) IN OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX REMOVE OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-TAKE-WITH> 
+
+<SYNTAX RENT OBJECT = V-FOO>
+
+<SYNTAX REPAIR OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-REPAIR>
+<VERB-SYNONYM REPAIR SERVICE>
+
+<SYNTAX REPLACE OBJECT = V-REPLACE>
+
+<VERB-SYNONYM REPLY RESPOND ;RETORT>
+<SYNTAX REPLY TO OBJECT (FIND FL-PERSON) = V-REPLY>
+
+<VERB-SYNONYM RESCUE AID PRESERVE ASSIST>
+<SYNTAX RESCUE OBJECT (FIND FL-PERSON) = V-RESCUE>
+
+<SYNTAX RESTART	= V-RESTART>
+<SYNTAX RESTORE	= V-RESTORE>
+
+<SYNTAX RETRACT OBJECT = V-FOLD>
+
+<SYNTAX RETREAT = V-WALK-AROUND>
+<SYNTAX RETREAT FROM OBJECT = V-ESCAPE>
+<SYNTAX RETREAT AWAY OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+
+<SYNTAX RIDE OBJECT = V-RIDE>
+<SYNTAX RIDE IN OBJECT = V-RIDE>
+<SYNTAX RIDE ON OBJECT = V-RIDE>
+
+<SYNTAX RING OBJECT = V-RING>
+
+;<SYNTAX RIP DOWN OBJECT WITH OBJECT (FIND FL-BYHAND) (CARRIED HELD HAVE TAKE) = V-RIP>
+;<SYNTAX RIP OBJECT WITH OBJECT (FIND FL-BYHAND) (CARRIED HELD HAVE TAKE) = V-RIP>
+<SYNTAX RIP UP OBJECT WITH OBJECT (FIND FL-BYHAND) (CARRIED HELD HAVE TAKE) = V-RIP>
+<SYNTAX RIP THROUGH OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE TAKE) = V-RIP> 
+<SYNTAX RIP OFF OBJECT (FIND FL-TAKEABLE) = V-TAKE PRE-TAKE>
+<VERB-SYNONYM RIP TEAR>
+
+<SYNTAX ROB OBJECT = V-ROB>
+<SYNTAX ROB OBJECT FROM OBJECT = V-STEAL>
+
+<SYNTAX ROW OBJECT OBJECT (FIND FL-LOCATION) = V-ROW>
+
+<SYNTAX RUB OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-RUB-WITH>
+
+<SYNTAX SAVE		= V-SAVE>
+<SYNTAX SAVE OBJECT = V-RESCUE>
+
+<SYNTAX SAY OBJECT (FIND FL-LOCATION) = V-SAY>
+<SYNTAX SAY OBJECT TO OBJECT (ON-GROUND IN-ROOM) = V-SAY>
+<SYNTAX SAY TO OBJECT (ON-GROUND IN-ROOM) = V-TELL>
+<VERB-SYNONYM SAY TALK SPEAK UTTER PROCLAIM ;MAYBE>
+
+
+
+<SYNTAX SCALE UP OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX SCALE OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX SCALE DOWN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX SCALE OVER OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-OVER>
+
+<SYNTAX SCORE     = V-SCORE>
+
+;<SYNTAX SCREW DOWN OBJECT (HELD CARRIED HAVE) IN OBJECT (ON-GROUND IN-ROOM) = V-SCREW>
+;<SYNTAX SCREW DOWN OBJECT (HELD CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-SCREW>
+;<SYNTAX SCREW DOWN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-SCREW-WITH>
+;<SYNTAX SCREW IN OBJECT (HELD CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-SCREW>
+;<SYNTAX SCREW IN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-SCREW-WITH>
+;<SYNTAX SCREW OBJECT (HELD CARRIED HAVE) IN OBJECT (ON-GROUND IN-ROOM) = V-SCREW>
+;<SYNTAX SCREW OBJECT (HELD CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-SCREW>
+;<SYNTAX SCREW OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-SCREW-WITH>
+;<VERB-SYNONYM SCREW TIGHTEN>
+
+<SYNTAX SCRIPT		= V-SCRIPT>
+
+<VERB-SYNONYM SEARCH RUMMAGE FRISK RANSACK SIFT>
+<SYNTAX SEARCH OBJECT = V-SEARCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH>
+<SYNTAX SEARCH FOR OBJECT = V-FIND>
+<SYNTAX SEARCH UNDER OBJECT = V-LOOK-UNDER>
+<SYNTAX SEARCH THROUGH OBJECT = V-SEARCH>
+
+<SYNTAX SELL OBJECT (HELD CARRIED HAVE) TO OBJECT (FIND FL-PERSON) (ON-GROUND IN-ROOM) = V-SELL>
+<SYNTAX SELL OBJECT (ON-GROUND IN-ROOM) OBJECT (HELD CARRIED HAVE TAKE) = V-SELL-SWP>
+
+<SYNTAX SET OFF OBJECT = V-DETONATE>
+<SYNTAX SET OBJECT TO OBJECT = V-TUNE-TO>
+<SYNTAX SET OBJECT AT OBJECT = V-TUNE-TO>
+
+<SYNTAX SEYMOUR	= V-SEYMOUR>
+
+<SYNTAX SHAKE OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-SHAKE>
+<SYNTAX SHAKE OUT OBJECT (HELD CARRIED HAVE) = V-EMPTY>
+<SYNTAX SHAKE OUT OBJECT (HELD CARRIED HAVE) IN OBJECT = V-EMPTY-INTO>
+<SYNTAX SHAKE OUT OBJECT FROM OBJECT (HELD CARRIED HAVE) = V-POUR-FROM>
+
+<SYNTAX SHINE OBJECT (HELD CARRIED HAVE) AT OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+<SYNTAX SHINE OBJECT (HELD CARRIED HAVE) IN OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+<SYNTAX SHINE OBJECT (HELD CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+<SYNTAX SHINE OBJECT (HELD CARRIED HAVE) OVER OBJECT (ON-GROUND IN-ROOM) = V-SHINE-AT>
+<SYNTAX SHINE ON OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-LIGHTED) (HELD CARRIED HAVE) = V-SHINE-AT-SWP>
+<SYNTAX SHINE IN OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-LIGHTED) (HELD CARRIED HAVE) = V-SHINE-AT-SWP>
+<SYNTAX SHINE OVER OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-LIGHTED) (HELD CARRIED HAVE) = V-SHINE-AT-SWP>
+
+<VERB-SYNONYM SHOOT FIRE>
+<SYNTAX SHOOT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-SHOOT PRE-SHOOT>
+<SYNTAX SHOOT OBJECT (HAVE TAKE HELD CARRIED) AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-SHOOT-SWP>
+<SYNTAX SHOOT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HAVE TAKE HELD CARRIED) (FIND FL-WEAPON) = V-SHOOT PRE-SHOOT>
+
+<VERB-SYNONYM SHOW DISPLAY>
+<SYNTAX SHOW OBJECT (HELD CARRIED ON-GROUND IN-ROOM) TO OBJECT (FIND FL-PERSON) (HELD CARRIED IN-ROOM ON-GROUND) = V-SHOW PRE-SHOW>
+<SYNTAX SHOW OBJECT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-SHOW-SWP>
+
+<SYNTAX SHUT UP OBJECT (FIND FL-LOCATION) = V-HUSH>
+<SYNTAX SHUT OBJECT (FIND FL-OPENABLE) (HELD CARRIED ON-GROUND IN-ROOM) = V-CLOSE>
+<SYNTAX SHUT OFF OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-OFF>
+
+<SYNTAX SIT OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-SIT> 
+<SYNTAX SIT ON OBJECT (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT DOWN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT IN OBJECT (ON-GROUND IN-ROOM) = V-ENTER>
+<SYNTAX SIT AT OBJECT = V-SIT>
+<VERB-SYNONYM SIT SETTLE SQUAT CROUCH>
+
+<SYNTAX SLEEP = V-LIE-DOWN>
+<SYNTAX SLEEP IN OBJECT (IN-ROOM ON-GROUND) = V-LIE-DOWN>
+<SYNTAX SLEEP ON OBJECT (IN-ROOM ON-GROUND) = V-LIE-DOWN>
+<VERB-SYNONYM SLEEP NAP SNOOZE REST>
+
+<SYNTAX SLIDE OBJECT = V-MOVE>
+<SYNTAX SLIDE OBJECT TO OBJECT = V-PUSH-TO>
+<SYNTAX SLIDE OBJECT (HELD CARRIED HAVE TAKE) UNDER OBJECT = V-PUT-UNDER>
+<SYNTAX SLIDE OBJECT (HELD CARRIED HAVE TAKE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX SLIDE OBJECT (HELD CARRIED HAVE TAKE) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX SLIDE DOWN OBJECT (FIND FL-LOCATION) = V-CLIMB-DOWN>
+
+<SYNTAX SMELL OBJECT (FIND FL-LOCATION) = V-SMELL>
+<VERB-SYNONYM SMELL SNIFF WHIFF>
+
+<SYNTAX SMOKE OBJECT (HAVE HELD CARRIED) = V-SMOKE>
+
+<SYNTAX SPIN OBJECT (FIND FL-LOCATION) = V-SPIN>
+<SYNTAX SPIN OBJECT TO OBJECT = V-TUNE-TO>
+<SYNTAX SPIN OBJECT OBJECT = V-TUNE-TO>
+<VERB-SYNONYM SPIN WHIRL>
+
+;<SYNTAX SQUEEZE OBJECT (HELD CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-PUT PRE-PUT>
+;<SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
+;<VERB-SYNONYM SQUEEZE SQUASH SQUISH CRUSH CRUMPLE>
+;<SYNTAX STAMP DOWN OBJECT = V-MUNG>
+;<SYNTAX STAMP ON OBJECT = V-MUNG>
+;<SYNTAX STAMP OVER OBJECT = V-MUNG>
+;<VERB-SYNONYM STAMP TRAMPLE>
+
+<VERB-SYNONYM STAND RISE>
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND FL-LOCATION) = V-STAND>
+<SYNTAX STAND ON OBJECT = V-STAND-ON>
+<SYNTAX STAND IN OBJECT = V-STAND-ON>
+<SYNTAX STAND UNDER OBJECT = V-STAND-UNDER>
+
+<SYNTAX START OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
+<SYNTAX START OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT (HELD CARRIED HAVE) = V-LAMP-ON>
+
+<SYNTAX STEAL OBJECT (MANY) = V-STEAL>
+<SYNTAX STEAL OBJECT (MANY) FROM OBJECT (FIND FL-PERSON) = V-STEAL>
+<SYNTAX STEAL OBJECT (MANY) OUT OBJECT = V-STEAL>
+<VERB-SYNONYM STEAL PINCH>
+
+<SYNTAX STOP OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-OFF>
+
+<SYNTAX STRIKE OBJECT (TAKE HELD CARRIED) WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE)= V-STRIKE>
+
+;<SYNTAX SUCK = V-SUCK>
+
+<SYNTAX SUPER		= V-DESC-LEVEL>
+<VERB-SYNONYM SUPER SUPERBRIEF>
+
+<VERB-SYNONYM SWIM BATHE WADE>
+<SYNTAX SWIM OBJECT (FIND FL-LOCATION) = V-SWIM>
+<SYNTAX SWIM DOWN OBJECT (FIND FL-LOCATION) = V-DIVE>
+<SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNTAX SWIM TO OBJECT = V-SWIM>
+<SYNTAX SWIM THROUGH OBJECT = V-SWIM>
+<SYNTAX SWIM OVER OBJECT = V-SWIM>
+<SYNTAX SWIM UNDER OBJECT = V-DIVE>
+
+<SYNTAX SWING OBJECT (HELD CARRIED HAVE) = V-SWING>
+<SYNTAX SWING OBJECT (HELD CARRIED HAVE) AT OBJECT (FIND FL-PERSON) (ON-GROUND IN-ROOM) = V-SWING>
+<SYNTAX SWING ON OBJECT = V-CLIMB-ON>
+
+<SYNTAX SWORDFISH = V-SWORDFISH>
+
+<VERB-SYNONYM TAKE GRAB KEEP CATCH CARRY SEIZE SNATCH RETRIEVE> 
+<SYNTAX TAKE OBJECT (FIND FL-TAKEABLE) (ON-GROUND IN-ROOM CARRIED MANY) = V-TAKE PRE-TAKE>
+<SYNTAX TAKE UP OBJECT (FIND FL-LOCATION) = V-RAISE>
+<SYNTAX TAKE DOWN OBJECT (FIND FL-LOCATION) = V-LOWER>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) TO OBJECT = V-PUSH-TO>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) OUT OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) OFF OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) IN OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) ON OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (IN-ROOM CARRIED MANY) WITH OBJECT (HELD CARRIED HAVE) = V-TAKE-WITH>
+<SYNTAX TAKE APART OBJECT (ON-GROUND IN-ROOM) = V-OPEN>
+<SYNTAX TAKE OFF OBJECT (FIND FL-WORN) (HELD CARRIED) = V-TAKE-OFF>
+
+<VERB-SYNONYM TASTE LICK>
+<SYNTAX TASTE OBJECT = V-TASTE>
+
+<SYNTAX TELL OBJECT (FIND FL-PERSON) (IN-ROOM) = V-TELL>
+<SYNTAX TELL OBJECT (IN-ROOM) ABOUT OBJECT = V-TELL-ABOUT>
+<SYNTAX TELL ABOUT OBJECT = V-TELL-WHO>
+
+<SYNTAX THANK = V-THANK>
+<SYNTAX THANK OBJECT = V-THANK>
+<VERB-SYNONYM THANK THANKS>
+
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) = V-DROP PRE-DROP>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) AT OBJECT (ON-GROUND IN-ROOM) = V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) TO OBJECT (ON-GROUND IN-ROOM) = V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) OFF OBJECT = V-THROW-OVER PRE-THROW-OVER>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) OVER OBJECT = V-THROW-OVER PRE-THROW-OVER>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) THROUGH OBJECT (ON-GROUND IN-ROOM) = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) DOWN OBJECT (ON-GROUND IN-ROOM) = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED) IN OBJECT (ON-GROUND IN-ROOM) = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD MANY CARRIED HAVE) ON OBJECT (ON-GROUND IN-ROOM) = V-PUT PRE-PUT>
+<SYNTAX THROW AWAY OBJECT (HELD MANY CARRIED HAVE) = V-DROP PRE-DROP>
+<SYNTAX THROW OBJECT (ON-GROUND IN-ROOM) OBJECT (HELD MANY CARRIED HAVE) = V-THROW-SWP>
+<VERB-SYNONYM THROW TOSS HURL CHUCK FLING PITCH>
+
+<VERB-SYNONYM TIE FASTEN SECURE>
+<SYNTAX TIE OBJECT (ON-GROUND IN-ROOM MANY) = V-TIE>
+<SYNTAX TIE OBJECT (ON-GROUND IN-ROOM MANY) TO OBJECT (FIND FL-LOCATION) = V-TIE>
+<SYNTAX TIE OBJECT (ON-GROUND IN-ROOM MANY) WITH OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM HELD CARRIED) = V-TIE-UP>
+<SYNTAX TIE UP OBJECT (ON-GROUND IN-ROOM MANY) WITH OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM HELD CARRIED) = V-TIE-UP>
+
+<SYNTAX TIP OBJECT = V-TIP>
+
+<VERB-SYNONYM TOUCH DISTURB SCRATCH>
+<SYNTAX TOUCH OBJECT = V-TOUCH>
+<SYNTAX TOUCH OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-TOUCH-TO-SWP>
+<SYNTAX TOUCH OBJECT (HELD CARRIED HAVE) TO OBJECT = V-TOUCH-TO>
+
+<SYNTAX TRANSLATE OBJECT = V-TRANSLATE>
+
+;<VERB-SYNONYM TUNE DIAL>
+<SYNTAX ;TUNE DIAL OBJECT TO OBJECT = V-TUNE-TO>
+
+<SYNTAX TURN OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE TAKE) = V-TURN>
+<SYNTAX TURN THROUGH OBJECT = V-READ>
+<SYNTAX TURN TO OBJECT = V-TURN-TO>
+<SYNTAX TURN ON OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
+<SYNTAX TURN OFF OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LAMP-OFF>
+<SYNTAX TURN AROUND OBJECT (FIND FL-LOCATION) = V-SPIN>
+<SYNTAX TURN OVER OBJECT = V-FLIP>
+<SYNTAX TURN OBJECT TO OBJECT = V-TUNE-TO>
+<SYNTAX TURN OBJECT OBJECT = V-TUNE-TO>
+<SYNTAX TURN DOWN OBJECT = V-TURN-DOWN>
+<SYNTAX TURN UP OBJECT = V-TURN-UP>
+<VERB-SYNONYM TURN ROTATE TOGGLE TWIST>
+
+<VERB-SYNONYM UNDRESS DISROBE STRIP>
+<SYNTAX UNDRESS OBJECT (FIND FL-LOCATION) = V-UNDRESS>
+
+<SYNTAX UNFOLD OBJECT (HELD CARRIED HAVE) = V-UNFOLD>
+<VERB-SYNONYM UNFOLD UNFLATTEN EXTEND>
+
+<SYNTAX UNLOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (FIND FL-BYHAND) = V-UNLOCK>
+
+;<VERB-SYNONYM UNPLUG DISCONNEC DETACH UNATTACH DISENGAGE>
+;<SYNTAX UNPLUG OBJECT = V-UNPLUG>
+;<SYNTAX UNPLUG OBJECT FROM OBJECT (ON-GROUND IN-ROOM) = V-UNPLUG>
+
+;<SYNTAX UNSCREW OBJECT (ON-GROUND IN-ROOM HELD CARRIED) WITH OBJECT (FIND FL-TOOL) (HELD CARRIED HAVE TAKE) = V-UNSCREW>
+<SYNTAX UNSCREW OBJECT (ON-GROUND IN-ROOM HELD CARRIED) FROM OBJECT = V-UNSCREW-FROM>
+<SYNTAX UNSCREW OBJECT (ON-GROUND IN-ROOM HELD CARRIED) OUT OBJECT = V-UNSCREW-FROM>
+
+<SYNTAX UNSCRIPT	= V-SCRIPT>
+
+<SYNTAX UNTIE OBJECT = V-UNTIE>
+<VERB-SYNONYM UNTIE UNDO UNFASTEN UNHOOK>
+
+<VERB-SYNONYM USE EMPLOY EXPLOIT OPERATE>
+<SYNTAX USE OBJECT = V-USE>
+<SYNTAX USE OBJECT ON OBJECT = V-USE-ON>
+
+<SYNTAX VERBOSE	= V-DESC-LEVEL>
+
+<SYNTAX VERSION	= V-VERSION>
+
+<VERB-SYNONYM WAIT STAY LOITER Z>
+<SYNTAX WAIT OBJECT (FIND FL-LOCATION) = V-WAIT>
+<SYNTAX WAIT FOR OBJECT = V-WAIT-FOR>
+<SYNTAX WAIT UNTIL OBJECT = V-WAIT-FOR>
+
+<VERB-SYNONYM WAKE AWAKE AWAKEN ROUSE REVIVE>
+<SYNTAX WAKE OBJECT (FIND FL-LOCATION) = V-ALARM>
+<SYNTAX WAKE UP OBJECT (FIND FL-LOCATION) = V-ALARM>
+
+<SYNTAX WALK = V-WALK-AROUND>
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT (FIND FL-LOCATION) = V-ENTER>
+<SYNTAX WALK OUT OBJECT (FIND FL-LOCATION) = V-EXIT>
+<SYNTAX WALK ON OBJECT = V-STAND-ON>
+<SYNTAX WALK OVER OBJECT = V-CROSS>
+<SYNTAX WALK THROUGH OBJECT = V-THROUGH>
+<SYNTAX WALK AROUND OBJECT (FIND FL-LOCATION) = V-WALK-AROUND>
+<SYNTAX WALK BEHIND OBJECT = V-WALK-AROUND>
+<SYNTAX WALK UNDER OBJECT = V-THROUGH>
+<SYNTAX WALK UP OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX WALK DOWN OBJECT (FIND FL-LOCATION) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX WALK TO OBJECT = V-WALK-TO>
+<SYNTAX WALK FROM OBJECT = V-ESCAPE>
+<SYNTAX WALK AWAY OBJECT (FIND FL-LOCATION) = V-ESCAPE>
+<VERB-SYNONYM WALK PROCEED STEP TRUDGE HIKE>
+
+<SYNTAX WATCH OBJECT (FIND FL-LOCATION) (HELD CARRIED ON-GROUND IN-ROOM) = V-WATCH PRE-WATCH>
+<SYNTAX WATCH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) THROUGH OBJECT = V-LOOK-THRU>
+<SYNTAX WATCH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) WITH OBJECT = V-LOOK-THRU>
+<VERB-SYNONYM WATCH OBSERVE>
+
+<SYNTAX WAVE OBJECT = V-SWING>
+<SYNTAX WAVE AT OBJECT (FIND FL-PERSON) = V-WAVE-AT>
+<SYNTAX WAVE TO OBJECT (FIND FL-PERSON) = V-WAVE-AT> 
+
+<VERB-SYNONYM WEAR DON>
+<SYNTAX WEAR OBJECT = V-WEAR>
+
+<VERB-SYNONYM WEDGE FORCE>
+<SYNTAX WEDGE OBJECT (HELD CARRIED HAVE) IN OBJECT = V-WEDGE>
+<SYNTAX WEDGE OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+<SYNTAX WEDGE UP OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-LOOSEN>
+
+<SYNTAX WEIGH OBJECT = V-WEIGH>
+
+<SYNTAX WHAT OBJECT = V-WHAT>
+<SYNTAX WHAT ABOUT OBJECT = V-WHAT>
+<VERB-SYNONYM WHAT WHATS WHAT\'S>
+
+<SYNTAX WHERE OBJECT = V-WHERE>
+<VERB-SYNONYM WHERE WHERES WHERE\'S>
+
+<SYNTAX WHO OBJECT = V-WHO>
+<VERB-SYNONYM WHO WHOS WHO\'S>
+
+<SYNTAX WIND OBJECT = V-WIND>
+<SYNTAX WIND UP OBJECT = V-WIND>
+<SYNTAX WIND OBJECT (HELD CARRIED HAVE) AROUND OBJECT (ON-GROUND IN-ROOM) = V-WRAP-AROUND>
+<SYNTAX WIND OBJECT (ON-GROUND IN-ROOM) IN OBJECT (HELD CARRIED HAVE) = V-WRAP-AROUND-SWP>
+<SYNTAX WIND UP OBJECT (ON-GROUND IN-ROOM) IN OBJECT (HELD CARRIED HAVE) = V-WRAP-AROUND-SWP>
+
+<SYNTAX WORK ON OBJECT WITH OBJECT (FIND FL-BYHAND) (HELD CARRIED HAVE) = V-REPAIR>
+
+<VERB-SYNONYM YELL SCREAM SHOUT HOWL CRY>
+<SYNTAX YELL OBJECT (FIND FL-LOCATION) = V-YELL>
+<SYNTAX YELL AT OBJECT = V-YELL>
+<SYNTAX YELL TO OBJECT = V-YELL>
+
+<SYNTAX YES			= V-YES>
+<VERB-SYNONYM YES Y>
+
diff --git a/things1.zabstr b/things1.zabstr
new file mode 100644
index 0000000..3e4d380
--- /dev/null
+++ b/things1.zabstr
@@ -0,0 +1,456 @@
+
+<OBJECT TH-X-OBJECT> 
+<OBJECT TH-Y-OBJECT> 
+<OBJECT PSEUDO-OBJECT (LOC GLOBAL-OBJECTS) (FLAGS FL-NOARTC FL-HAS-SDESC
+FL-HAS-DESCFCN) (ACTION 0)> 
+<OBJECT GLOBAL-OBJECTS (FLAGS FL-ALIVE FL-ASLEEP FL-BODYPART FL-BROKEN
+FL-BURNABLE FL-BUYABLE FL-BYHAND FL-CLOTHING FL-COLLECTIVE FL-CONTAINER FL-DOOR
+FL-FEMALE FL-FOOD FL-HOLMES-TOLD FL-INDOORS FL-KEY FL-KNIFE FL-LAMP FL-LIGHTED
+FL-LOCATION FL-LOCKED FL-MONEY FL-NOALL FL-NOARTC FL-NODESC FL-OPENABLE
+FL-OPENED FL-PERSON FL-PLURAL FL-READABLE FL-SEEN FL-SURFACE FL-TAKEABLE
+FL-TOOL FL-TOUCHED FL-TRANSPARENT FL-TRYTAKE FL-VEHICLE FL-VOWEL FL-WEAPON
+FL-WORN FL-YOUR FL-HAS-DESCFCN FL-HAS-SDESC FL-NO-CROWDS FL-NO-ETHERIUM)> 
+<OBJECT LOCAL-GLOBALS (LOC GLOBAL-OBJECTS)> 
+<OBJECT ROOMS (DESC "rooms") (FLAGS FL-NOARTC FL-NODESC FL-SEEN) (IN TO ROOMS)>
+
+<OBJECT TH-ROOM (LOC GLOBAL-OBJECTS) (DESC "room") (FLAGS FL-NODESC FL-SEEN
+FL-HAS-DESCFCN) (SYNONYM ROOM) (ACTION RT-DF-TH-ROOM)> 
+<OBJECT TH-INTDIR (LOC GLOBAL-OBJECTS) (DESC "direction") (FLAGS FL-NODESC
+FL-SEEN) (SYNONYM DIRECTION) (ADJECTIVE NORTH EAST SOUTH WEST NE NW SE SW UP
+DOWN IN OUT) (ACTION RT-AC-TH-INTDIR)> 
+<OBJECT TH-NOT-HERE-OBJECT (DESC "that") (FLAGS FL-NOARTC FL-NODESC FL-SEEN) (
+ACTION RT-AC-TH-NOT-HERE-OBJECT)> 
+<OBJECT TH-TIME (LOC GLOBAL-OBJECTS) (SYNONYM MINUTE MINUTES HOUR HOURS) (
+ADJECTIVE INTNUM) (FLAGS FL-HAS-SDESC FL-NEEDS-IDENTITY) (OBJ-ADJ 0) (OBJ-NOUN
+0) (ACTION RT-AC-TH-TIME)> 
+<OBJECT TH-SESAME (LOC GLOBAL-OBJECTS) (DESC "sesame") (FLAGS FL-NODESC) (
+SYNONYM SESAME) (ACTION RT-AC-TH-SESAME)> 
+<OBJECT TH-IT (LOC GLOBAL-OBJECTS) (DESC "it") (FLAGS FL-NOARTC FL-NODESC
+FL-SEEN FL-VOWEL FL-TOUCHED) (OBJ-ADJ 0) (OBJ-NOUN 0) (SYNONYM IT THAT ITSELF)>
+
+<OBJECT TH-RIGHT (LOC GLOBAL-OBJECTS) (DESC "right") (FLAGS FL-NOARTC FL-NODESC
+FL-SEEN) (SYNONYM RIGHT FORWARD AHEAD CLOCKWISE) (ACTION RT-AC-TH-RIGHT)> 
+<OBJECT TH-LEFT (LOC GLOBAL-OBJECTS) (DESC "left") (FLAGS FL-NOARTC FL-NODESC
+FL-SEEN) (SYNONYM LEFT BACKWARD BEHIND COUNTERCL) (ACTION RT-AC-TH-LEFT)> 
+<OBJECT TH-FLOOR-ETC (LOC GLOBAL-OBJECTS) (FLAGS FL-NODESC FL-SEEN FL-SURFACE
+FL-NEEDS-IDENTITY FL-HAS-DESCFCN FL-HAS-SDESC) (SYNONYM FLOOR CEILING SURFACE
+GROUND SKY CLOUD CLOUDS FOG) (OBJ-ADJ 0) (OBJ-NOUN 0) (ACTION
+RT-AC-TH-FLOOR-ETC)> 
+<DEFINE-ROUTINE RT-IDENTIFY-FLOOR?> 
+<DEFINE-ROUTINE TELL-THE-FLOOR> 
+<DEFINE-ROUTINE TELL-THE-GROUND> 
+<DEFINE-ROUTINE RT-AC-TH-FLOOR-ETC> 
+<OBJECT TH-HANDS (LOC GLOBAL-OBJECTS) (DESC "hands") (FLAGS FL-SEEN FL-NODESC
+FL-TOUCHED FL-BYHAND FL-TOOL FL-PLURAL FL-BODYPART FL-YOUR FL-NOALL) (SYNONYM
+HAND HANDS FINGER FINGERS) (ADJECTIVE MY) (ACTION RT-AC-TH-HANDS)> 
+<OBJECT TH-WATSONS-HEART (LOC GLOBAL-OBJECTS) (DESC "heart") (FLAGS FL-SEEN
+FL-NODESC FL-BODYPART FL-YOUR FL-NOALL) (SYNONYM HEART HEARTBEAT) (ADJECTIVE MY
+) (ACTION RT-AC-TH-WATSONS-HEART)> 
+<OBJECT TH-FEET (LOC GLOBAL-OBJECTS) (DESC "feet") (FLAGS FL-SEEN FL-NODESC
+FL-PLURAL FL-BODYPART FL-YOUR FL-NOALL) (SYNONYM FEET FOOT) (ADJECTIVE MY)> 
+<OBJECT TH-EARS (LOC GLOBAL-OBJECTS) (DESC "ears") (FLAGS FL-SEEN FL-NODESC
+FL-CONTAINER FL-SURFACE FL-OPENED FL-PLURAL FL-BODYPART FL-YOUR FL-NOALL) (
+SYNONYM EAR EARS) (ADJECTIVE MY) (SIZE 0 CAPACITY 1) (ACTION RT-AC-TH-EARS)> 
+<OBJECT TH-HEAD (LOC GLOBAL-OBJECTS) (DESC "head") (FLAGS FL-SEEN FL-NODESC
+FL-SURFACE FL-BODYPART FL-YOUR FL-NOALL) (SYNONYM HEAD) (ADJECTIVE MY) (ACTION
+RT-AC-TH-HEAD)> 
+<OBJECT TH-PLAYER-BODY (LOC GLOBAL-OBJECTS) (DESC "that part of your body") (
+SYNONYM ARM ARMS SHOULDER SHOULDERS LEG LEGS FACE MOUTH LIPS THROAT EYE EYES
+NOSE HAIR STOMACH BODY) (FLAGS FL-NOARTC FL-SEEN FL-NODESC FL-NOALL FL-BODYPART
+) (ADJECTIVE MY LEFT RIGHT) (ACTION RT-AC-TH-PLAYER-BODY)> 
+<OBJECT TH-BREATH (LOC GLOBAL-OBJECTS) (DESC "breath") (FLAGS FL-SEEN FL-NODESC
+FL-TRYTAKE FL-NOALL FL-YOUR FL-BODYPART) (SYNONYM BREATH) (ADJECTIVE MY DEEP) (
+ACTION RT-AC-TH-BREATH)> 
+<OBJECT TH-CLOTHES (LOC GLOBAL-OBJECTS) (DESC "clothes") (FLAGS FL-SEEN
+FL-NODESC FL-CLOTHING FL-WORN FL-YOUR FL-NOALL) (SYNONYM CLOTHES CLOTHING) (
+GENERIC RT-GN-TH-CLOTHES) (SIZE 100) (ADJECTIVE MY) (ACTION RT-AC-TH-CLOTHES)> 
+<OBJECT TH-WATERMARK (LOC GLOBAL-OBJECTS) (DESC "watermark") (FLAGS FL-NODESC
+FL-HAS-DESCFCN) (SYNONYM WATERMARK MARK) (ACTION RT-AC-TH-WATERMARK)> 
+<OBJECT TH-BULLET-HOLE (LOC GLOBAL-OBJECTS) (DESC "bullet hole") (SYNONYM HOLE
+HOLES) (ADJECTIVE BULLET) (ACTION RT-AC-TH-BULLET-HOLE)> 
+<OBJECT TH-GENERIC-BODY (LOC GLOBAL-OBJECTS) (SYNONYM ARM ARMS SHOULDER
+SHOULDERS LEG LEGS HAND HANDS FOOT FEET HEAD FACE MOUTH LIPS THROAT EYE EYES
+EAR EARS NOSE HAIR HEART STOMACH BODY CLOTHES) (ADJECTIVE WIGGINS\' HOLMES\'
+HOLMES\'S HUDSON\'S LEFT RIGHT HER ELIZA\'S GIRL\'S) (GENERIC RT-GN-BODY) (
+OBJ-ADJ 0) (OBJ-NOUN 0) (FLAGS FL-NOARTC FL-NODESC FL-HAS-SDESC
+FL-NEEDS-IDENTITY) (ACTION RT-AC-TH-GENERIC-BODY)> 
+<OBJECT TH-WALL (LOC GLOBAL-OBJECTS) (FLAGS FL-TRYTAKE FL-NOALL
+FL-NEEDS-IDENTITY FL-HAS-SDESC) (OBJ-ADJ 0) (OBJ-NOUN 0) (SYNONYM WALL WALLS) (
+ADJECTIVE NORTH SOUTH EAST WEST) (ACTION RT-AC-TH-WALL)> 
+<DEFINE-ROUTINE RT-AC-TH-WALL> 
+<OBJECT TH-CROWDS (LOC GLOBAL-OBJECTS) (DESC "crowds") (FLAGS FL-PLURAL
+FL-HAS-DESCFCN) (SYNONYM CROWDS CROWD TOURISTS SHOPPERS WOMEN PEOPLE) (ACTION
+RT-AC-TH-CROWDS)> 
+<DEFINE-ROUTINE RT-AC-TH-CROWDS> 
+<OBJECT TH-POCKET (LOC TH-WATSONS-COAT) (DESC "pocket") (FLAGS FL-SEEN
+FL-NODESC FL-CONTAINER FL-OPENED FL-YOUR FL-NOALL) (SYNONYM POCKET POCKETS) (
+ADJECTIVE MY) (SIZE 0 CAPACITY 10) (ACTION RT-AC-TH-POCKET)> 
+<OBJECT TH-GUN (LOC TH-MANTELPIECE) (DESC "pistol") (FLAGS FL-TAKEABLE
+FL-WEAPON FL-HAS-DESCFCN) (SYNONYM GUN PISTOL REVOLVER) (SIZE 5 MASS 10
+CAPACITY 0) (ACTION RT-AC-TH-GUN)> 
+<OBJECT TH-MAIL (LOC TH-MANTELPIECE) (DESC "mail") (FLAGS FL-PLURAL
+FL-COLLECTIVE FL-TAKEABLE FL-READABLE FL-BURNABLE FL-OPENABLE FL-HAS-DESCFCN) (
+SYNONYM MAIL LETTER LETTERS) (ADJECTIVE HOLMES\' HOLMES\'S) (SIZE 5) (ACTION
+RT-AC-TH-MAIL)> 
+<OBJECT TH-KNIFE (LOC TH-MANTELPIECE) (DESC "knife") (FLAGS FL-TAKEABLE
+FL-WEAPON FL-KNIFE FL-OPENABLE FL-OPENED FL-HAS-DESCFCN) (SYNONYM KNIFE
+JACKKNIFE) (SIZE 5) (ACTION RT-AC-TH-KNIFE)> 
+<OBJECT TH-MAGNIFYING-GLASS (LOC TH-BEDSIDE-TABLE) (DESC "magnifying glass") (
+FLAGS FL-TAKEABLE FL-TRANSPARENT FL-HAS-DESCFCN) (SYNONYM GLASS LENS) (
+ADJECTIVE MAGNIFYING HOLMES\' HOLMES\'S) (VALUE 1) (SIZE 5 MASS 4) (ACTION
+RT-AC-TH-MAGNIFYING-GLASS)> 
+<OBJECT TH-NEWSPAPER (LOC RM-HOLMES-STUDY) (DESC "newspaper") (FLAGS
+FL-TAKEABLE FL-READABLE FL-BURNABLE FL-SURFACE FL-HAS-DESCFCN) (SYNONYM
+NEWSPAPER PAPER PAPERS) (ADJECTIVE NEWSPAPER NEWS) (VALUE 1) (SIZE 5 CAPACITY
+10) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-NEWSPAPER)> 
+<OBJECT TH-VIOLIN (LOC RM-HOLMES-STUDY) (DESC "violin") (FLAGS FL-TAKEABLE
+FL-HAS-DESCFCN) (SYNONYM VIOLIN FIDDLE) (SIZE 5) (ACTION RT-AC-TH-VIOLIN)> 
+<OBJECT TH-WESTMINSTER-CLUE (LOC CH-PRIME-MINISTER) (DESC "clue paper") (FLAGS
+FL-TAKEABLE FL-READABLE FL-BURNABLE FL-HAS-DESCFCN) (SYNONYM PAPER PAPERS VERSE
+POEM) (ADJECTIVE CLUE) (SIZE 1) (FLIPPED 0) (GENERIC RT-GN-PAPER) (ACTION
+RT-AC-TH-WESTMINSTER-CLUE)> 
+<OBJECT TH-PHIAL (LOC CH-HOLMES) (DESC "phial") (FLAGS FL-TRYTAKE FL-CONTAINER
+FL-TRANSPARENT FL-NOALL) (SYNONYM PHIAL VIAL) (SIZE 1) (ACTION RT-AC-TH-PHIAL)>
+
+<OBJECT TH-PERSIAN-SLIPPER (LOC TH-MANTELPIECE) (DESC "persian slipper") (FLAGS
+FL-TAKEABLE FL-CONTAINER FL-OPENED) (SYNONYM SLIPPER) (ADJECTIVE PERSIAN) (SIZE
+5 CAPACITY 2)> 
+<OBJECT TH-PIPE (LOC TH-MANTELPIECE) (DESC "pipe") (FLAGS FL-TAKEABLE
+FL-CONTAINER FL-OPENED FL-HAS-DESCFCN) (SYNONYM PIPE) (VALUE 1) (SIZE 5
+CAPACITY 1) (ACTION RT-AC-TH-PIPE)> 
+<OBJECT TH-MATCH (LOC TH-MATCHBOOK) (FLAGS FL-TAKEABLE FL-BURNABLE FL-HAS-SDESC
+FL-HAS-DESCFCN) (SYNONYM MATCH) (ADJECTIVE ZZZP) (SIZE 1) (ACTION
+RT-AC-TH-MATCH)> 
+<OBJECT TH-BOAT (LOC RM-THE-EMBANKMENT) (DESC "old boat") (FLAGS FL-VOWEL
+FL-VEHICLE FL-CONTAINER FL-OPENED FL-HAS-DESCFCN) (SYNONYM BOAT ROWBOAT) (
+ADJECTIVE OLD) (SIZE 50 CAPACITY 999) (ACTION RT-AC-TH-BOAT) (CONTFCN
+RT-CF-TH-BOAT)> 
+<OBJECT TH-OAR-1 (LOC TH-BOAT) (DESC "weathered old oar") (FLAGS FL-TAKEABLE
+FL-NOALL FL-HAS-DESCFCN) (SYNONYM OAR) (ADJECTIVE OLD WEATHERED) (SIZE 20) (
+GENERIC RT-GN-OAR) (ACTION RT-AC-TH-OAR-1)> 
+<OBJECT TH-OAR-2 (LOC TH-BLIGH-BOAT) (DESC "Captain Bligh's oar") (FLAGS
+FL-NOARTC FL-TAKEABLE FL-NOALL) (SYNONYM OAR) (ADJECTIVE CAPTAIN\'S BLIGH\'S) (
+VALUE 1) (SIZE 20) (GENERIC RT-GN-OAR)> 
+<OBJECT TH-CLAPPER (LOC TH-BELL) (DESC "clapper") (FLAGS FL-NODESC FL-TRYTAKE
+FL-SURFACE FL-HAS-DESCFCN) (SYNONYM CLAPPER) (ACTION RT-AC-TH-CLAPPER)> 
+<OBJECT TH-COTTON-BALLS (LOC TH-BLUE-PILL-BOTTLE) (DESC "cotton balls") (FLAGS
+FL-PLURAL FL-TAKEABLE FL-HAS-DESCFCN) (SYNONYM BALL BALLS COTTONBALL) (
+ADJECTIVE COTTON) (SIZE 1) (ACTION RT-AC-TH-COTTON-BALLS)> 
+<OBJECT TH-BELL (LOC RM-CLOCK-TOWER) (DESC "Big Ben") (FLAGS FL-NODESC
+FL-NOARTC FL-TRYTAKE FL-CONTAINER FL-OPENED FL-NOALL FL-HAS-DESCFCN) (SYNONYM
+BEN BELL TOWER) (GENERIC RT-GN-TOWER) (ADJECTIVE BIG CLOCK BELL) (SIZE 50 MASS
+50 CAPACITY 0) (ACTION RT-AC-TH-BELL)> 
+<OBJECT TH-STETHOSCOPE (LOC TH-WATSONS-HAT) (DESC "stethoscope") (FLAGS
+FL-CLOTHING FL-TAKEABLE FL-HAS-DESCFCN) (SYNONYM STETHOSCOPE SS STETH) (
+ADJECTIVE MY) (VALUE 1) (SIZE 1) (ACTION RT-AC-TH-STETHOSCOPE)> 
+<OBJECT TH-DIAL (LOC LG-BANK-VAULT-DOOR) (DESC "dial") (FLAGS FL-NODESC
+FL-READABLE FL-LOCKED) (SYNONYM DIAL) (ACTION RT-AC-TH-DIAL)> 
+<OBJECT TH-WATSONS-HAT (LOC CH-PLAYER) (DESC "hat") (FLAGS FL-TAKEABLE FL-SEEN
+FL-CLOTHING FL-WORN FL-CONTAINER FL-YOUR FL-HAS-DESCFCN) (SYNONYM HAT BOWLER) (
+SIZE 5 CAPACITY 2) (ACTION RT-AC-TH-WATSONS-HAT)> 
+<OBJECT TH-ELIZAS-FLOWERS (LOC CH-ELIZA-DOOLITTLE) (DESC "flowers") (FLAGS
+FL-PLURAL FL-CONTAINER FL-OPENED FL-TAKEABLE FL-HAS-DESCFCN) (SYNONYM FLOWERS
+FLOWER CARNATION) (ADJECTIVE HER ELIZA\'S GIRL\'S) (SIZE 5) (ACTION
+RT-AC-TH-ELIZAS-FLOWERS)> 
+<OBJECT TH-CARNATION (DESC "carnation") (FLAGS FL-TAKEABLE FL-CLOTHING) (
+SYNONYM CARNATION FLOWER) (ADJECTIVE GIRL\'S ELIZA\'S) (VALUE 5) (SIZE 1 MASS 1
+) (ACTION RT-AC-TH-CARNATION)> 
+<OBJECT TH-SAPPHIRE (LOC TH-CLAPPER) (FLAGS FL-TAKEABLE FL-READABLE FL-NODESC
+FL-SURFACE FL-MONEY FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY
+FL-LOSE-IDENTITY) (OBJ-ADJ 0) (OBJ-NOUN 0) (SYNONYM SAPPHIRE GEM GEMS SCRATCH)
+(ADJECTIVE SAPPHIRE BLUE) (VALUE 5) (SIZE 1 CAPACITY 1) (GENERIC RT-GN-GEM) (
+ACTION RT-AC-TH-SAPPHIRE)> 
+<OBJECT TH-OPAL (DESC "opal") (FLAGS FL-VOWEL FL-TAKEABLE FL-READABLE
+FL-SURFACE FL-MONEY FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY
+FL-LOSE-IDENTITY) (OBJ-ADJ 0) (OBJ-NOUN 0) (SYNONYM OPAL GEM GEMS SCRATCH) (
+ADJECTIVE OPAL OPAL 'S) (VALUE 5) (SIZE 1 MASS 1 CAPACITY 1) (GENERIC RT-GN-GEM
+) (ACTION RT-AC-TH-OPAL)> 
+<OBJECT TH-RUBY (LOC TH-NELSON-STATUE) (FLAGS FL-TAKEABLE FL-READABLE
+FL-SURFACE FL-MONEY FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY
+FL-LOSE-IDENTITY) (SYNONYM RUBY GEM GEMS SCRATCH) (ADJECTIVE RUBY RED RUBY\'S)
+(OBJ-ADJ 0) (OBJ-NOUN 0) (VALUE 5) (SIZE 1 MASS 1 CAPACITY 1) (GENERIC
+RT-GN-GEM) (ACTION RT-AC-TH-RUBY)> 
+<OBJECT TH-TOPAZ (LOC TH-SAFETY-DEPOSIT-BOX) (DESC "topaz") (FLAGS FL-TAKEABLE
+FL-READABLE FL-SURFACE FL-MONEY FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY
+FL-LOSE-IDENTITY) (OBJ-ADJ 0) (OBJ-NOUN 0) (SYNONYM TOPAZ GEM GEMS SCRATCH) (
+ADJECTIVE TOPAZ TOPAZ\'S) (VALUE 5) (SIZE 1 MASS 1 CAPACITY 1) (GENERIC
+RT-GN-GEM) (ACTION RT-AC-TH-TOPAZ)> 
+<OBJECT TH-PACKET-OF-PAPER (LOC RM-NORTH-CLOISTER) (DESC "pacquet of paper") (
+FLAGS FL-TAKEABLE FL-CONTAINER FL-OPENABLE FL-READABLE) (SYNONYM PACK PAPER
+PACQUET PACKET BOX) (ADJECTIVE PACK PAPER PACKET PACQUET) (VALUE 1) (SIZE 5
+CAPACITY 10) (GENERIC RT-GN-BOX)> 
+<OBJECT TH-GREEN-PAPER (LOC TH-PACKET-OF-PAPER) (DESC "green piece of paper") (
+FLAGS FL-TAKEABLE FL-SURFACE FL-READABLE FL-BURNABLE) (SYNONYM PAPER PAPERS
+BACK) (ADJECTIVE PIECE GREEN BACK) (SIZE 1 CAPACITY 11) (INSCRIPTION 0) (
+FLIPPED 0) (HEATED 0) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-GREEN-PAPER)> 
+<OBJECT TH-WHITE-PAPER (LOC TH-PACKET-OF-PAPER) (DESC "white piece of paper") (
+FLAGS FL-TAKEABLE FL-SURFACE FL-READABLE FL-BURNABLE) (SYNONYM PAPER PAPERS
+BACK) (ADJECTIVE PIECE WHITE BACK) (SIZE 1 CAPACITY 11) (INSCRIPTION 0) (
+FLIPPED 0) (HEATED 0) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-WHITE-PAPER)> 
+<OBJECT TH-BLUE-PAPER (LOC TH-PACKET-OF-PAPER) (DESC "blue piece of paper") (
+FLAGS FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE) (SYNONYM PAPER PAPERS
+BACK) (ADJECTIVE PIECE BLUE BACK) (SIZE 1 CAPACITY 11) (INSCRIPTION 0) (FLIPPED
+0) (HEATED 0) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-BLUE-PAPER)> 
+<OBJECT TH-ORANGE-PAPER (LOC TH-PACKET-OF-PAPER) (DESC "orange piece of paper")
+(FLAGS FL-VOWEL FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE) (SYNONYM PAPER
+PAPERS BACK) (ADJECTIVE PIECE ORANGE BACK) (SIZE 1 CAPACITY 11) (INSCRIPTION 0)
+(FLIPPED 0) (HEATED 0) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-ORANGE-PAPER)> 
+<OBJECT TH-YELLOW-PAPER (LOC TH-PACKET-OF-PAPER) (DESC "yellow piece of paper")
+(FLAGS FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE) (SYNONYM PAPER PAPERS
+BACK) (ADJECTIVE PIECE YELLOW BACK) (SIZE 1 CAPACITY 11) (INSCRIPTION 0) (
+FLIPPED 0) (HEATED 0) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-YELLOW-PAPER)> 
+<OBJECT TH-BROWN-PAPER (LOC TH-PACKET-OF-PAPER) (DESC "brown piece of paper") (
+FLAGS FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE) (SYNONYM PAPER PAPERS
+BACK) (ADJECTIVE PIECE BROWN BACK) (SIZE 1 CAPACITY 11) (INSCRIPTION 0) (
+FLIPPED 0) (HEATED 0) (GENERIC RT-GN-PAPER) (ACTION RT-AC-TH-BROWN-PAPER)> 
+<OBJECT TH-BANK-OF-CANDLES (LOC RM-EVANGELIST-CHAPEL) (DESC "bank of candles")
+(FLAGS FL-NODESC FL-LIGHTED FL-BURNABLE FL-TRYTAKE) (SYNONYM BANK CANDLES
+CANDLE FLAME) (ADJECTIVE BANK CANDLES) (ACTION RT-AC-TH-BANK-OF-CANDLES)> 
+<OBJECT TH-CRAYON (LOC RM-NORTH-CLOISTER) (DESC "crayon") (FLAGS FL-TAKEABLE
+FL-HAS-DESCFCN) (SYNONYM CRAYON) (VALUE 1) (SIZE 1) (ACTION RT-AC-TH-CRAYON)> 
+<OBJECT TH-WATSONS-COAT (LOC CH-PLAYER) (DESC "coat") (FLAGS FL-CLOTHING
+FL-SEEN FL-TAKEABLE FL-WORN FL-CONTAINER FL-OPENED FL-YOUR FL-HAS-DESCFCN) (
+SYNONYM COAT) (SIZE 5 CAPACITY 15) (ACTION RT-AC-TH-WATSONS-COAT)> 
+<OBJECT TH-LAPEL (LOC TH-WATSONS-COAT) (DESC "lapel") (FLAGS FL-SEEN FL-NODESC
+FL-CONTAINER FL-OPENED FL-NOALL FL-TRYTAKE FL-YOUR) (SYNONYM LAPEL) (SIZE 3
+CAPACITY 3) (ACTION RT-AC-TH-LAPEL)> 
+<OBJECT TH-EDWARD-TOMB (LOC RM-CONFESSOR-CHAPEL) (DESC
+"Edward the Confessor's tomb") (FLAGS FL-NODESC FL-NOARTC FL-READABLE
+FL-SURFACE FL-TRYTAKE FL-VOWEL FL-NOALL FL-HAS-DESCFCN) (SYNONYM TOMB CONFESSOR
+INSCRIPTION) (ADJECTIVE EDWARD EDWARD\'S) (SIZE 5 CAPACITY 1) (ACTION
+RT-AC-TH-EDWARD-TOMB)> 
+<OBJECT TH-ELIZABETH-TOMB (LOC RM-NORTH-CHAPEL-AISLE) (DESC "Elizabeth's tomb")
+(FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-VOWEL FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION) (ADJECTIVE ELIZABETH MARY TUDOR) (
+SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-ELIZABETH-TOMB)> 
+<OBJECT TH-NEWTON-TOMB (LOC RM-NAVE) (FLAGS FL-NODESC FL-NOARTC FL-READABLE
+FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY
+FL-LOSE-IDENTITY) (OBJ-NOUN 0) (OBJ-ADJ 0) (SYNONYM TOMB INSCRIPTION
+SARCOPHAGUS STATUE CHERUB CHERUBS ANGELS ANGEL DIAGRAM SYSTEM) (ADJECTIVE
+NEWTON\'S NEWTON SOLAR) (SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-NEWTON-TOMB)> 
+<OBJECT TH-HENRY-V-TOMB (LOC RM-CONFESSOR-CHAPEL) (DESC "Henry V's tomb") (
+FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION COFFIN EFFIGY) (ADJECTIVE HENRY
+HENRY\'S V V\'S) (SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-HENRY-V-TOMB)> 
+<OBJECT TH-POPE-TOMB (LOC RM-SOUTH-AISLE) (DESC "Alexander Pope's tomb") (FLAGS
+FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+(SYNONYM TOMB INSCRIPTION) (ADJECTIVE POPE POPE\'S) (SIZE 5 CAPACITY 1) (ACTION
+RT-AC-TH-POPE-TOMB)> 
+<OBJECT TH-DICKENS-TOMB (LOC RM-SOUTH-TRANSEPT) (DESC "Charles Dickens's tomb")
+(FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION) (ADJECTIVE DICKENS DICKENS\') (SIZE
+5 CAPACITY 1) (ACTION RT-AC-TH-DICKENS-TOMB)> 
+<OBJECT TH-CHAUCER-TOMB (LOC RM-POETS-CORNER) (DESC "Geoffrey Chaucer's tomb")
+(FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION SARCOPHAGUS) (ADJECTIVE CHAUCER
+CHAUCER\'S) (SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-CHAUCER-TOMB)> 
+<OBJECT TH-ANNE-OF-CLEVES-TOMB (LOC RM-SANCTUARY) (DESC "Anne of Cleve's tomb")
+(FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-VOWEL FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION ANNE CLEVES) (ADJECTIVE ANNE CLEVES
+CLEVES\' ANNE\'S ANNES) (SIZE 5 CAPACITY 1) (ACTION
+RT-AC-TH-ANNE-OF-CLEVES-TOMB)> 
+<OBJECT TH-LITTLE-PRINCES-TOMB (LOC RM-INNOCENTS-CORNER) (DESC
+"tomb of the Little Princes in the Tower") (FLAGS FL-NODESC FL-READABLE
+FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM TOMB URN INSCRIPTION
+SARCOPHAGUS) (ADJECTIVE LITTLE PRINCES PRINCES\') (SIZE 5 CAPACITY 1) (ACTION
+RT-AC-TH-LITTLE-PRINCES-TOMB)> 
+<OBJECT TH-MARY-QUEEN-OF-SCOTS-TOMB (LOC RM-SOUTH-CHAPEL-AISLE) (DESC
+"Mary, Queen of Scots' tomb") (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE
+FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION SARCOPHAGUS
+EFFIGY) (ADJECTIVE MARY SCOTS SCOTS\' MARY\'S QUEEN) (SIZE 5 CAPACITY 1) (
+ACTION RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB)> 
+<OBJECT TH-HENRY-VII-TOMB (LOC RM-HENRY-VII-CHAPEL) (DESC "Henry VII's tomb") (
+FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION) (ADJECTIVE HENRY VII HENRY\'S VII\'S
+ELIZABETH YORK) (SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-HENRY-VII-TOMB)> 
+<OBJECT TH-PITT-TOMB (LOC RM-NORTH-TRANSEPT) (DESC "Pitt the Younger's tomb") (
+FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM TOMB INSCRIPTION) (ADJECTIVE PITT YOUNGER PITT\'S) (
+SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-PITT-TOMB)> 
+<OBJECT TH-FIGURES (LOC RM-NORTH-TRANSEPT) (DESC "allegorical figures") (FLAGS
+FL-NODESC FL-NOALL FL-VOWEL FL-PLURAL FL-HAS-DESCFCN) (SYNONYM FIGURES FIGURE)
+(ADJECTIVE ALLEGORICAL) (ACTION RT-AC-TH-FIGURES)> 
+<OBJECT TH-VERE-TOMB (LOC RM-EVANGELIST-CHAPEL) (FLAGS FL-NODESC FL-NOARTC
+FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN FL-HAS-SDESC
+FL-NEEDS-IDENTITY FL-LOSE-IDENTITY) (SYNONYM TOMB INSCRIPTION EFFIGY KNIGHT
+KNIGHTS ARMOR ARMOUR SUIT) (ADJECTIVE VERE VERE\'S SUIT ARMOUR ARMOR) (OBJ-NOUN
+0) (OBJ-ADJ 0) (SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-VERE-TOMB)> 
+<OBJECT TH-LAMP (LOC TH-BEDSIDE-TABLE) (DESC "lamp") (FLAGS FL-LAMP FL-ASLEEP
+FL-TAKEABLE FL-HAS-DESCFCN) (SYNONYM LAMP LANTERN LIGHT) (ADJECTIVE BRASS LIGHT
+) (VALUE 3) (SIZE 5 MASS 4) (ACTION RT-AC-TH-LAMP)> 
+<OBJECT TH-CLUMP-OF-MOSS (LOC RM-THAMES-THREE) (DESC "clump of moss") (FLAGS
+FL-CONTAINER FL-NODESC FL-OPENED FL-TAKEABLE FL-TRYTAKE FL-HAS-DESCFCN) (
+SYNONYM MOSS CLUMP) (ADJECTIVE CLUMP MOSS) (SIZE 5 CAPACITY 1) (ACTION
+RT-AC-TH-CLUMP-OF-MOSS)> 
+<OBJECT TH-BLIGH-BOAT (LOC RM-THE-BLACK-MUSEUM) (DESC "Captain Bligh's boat") (
+FLAGS FL-NODESC FL-CONTAINER FL-OPENED FL-TRYTAKE FL-NOARTC FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM BOAT ROWBOAT) (ADJECTIVE BLIGH BLIGH\'S) (SIZE 50
+CAPACITY 999) (ACTION RT-AC-TH-BLIGH-BOAT)> 
+<OBJECT TH-ANCHOR (LOC LG-WATER) (DESC "anchor") (FLAGS FL-TRYTAKE FL-TAKEABLE
+FL-VOWEL FL-HAS-DESCFCN) (SYNONYM ANCHOR) (SIZE 5 MASS 5) (ACTION
+RT-AC-TH-ANCHOR)> 
+<OBJECT TH-NELSON-STATUE (LOC TH-NELSON-COLUMN) (DESC
+"statue of Admiral Lord Nelson") (FLAGS FL-NODESC FL-CONTAINER FL-TRYTAKE
+FL-NOALL FL-HAS-DESCFCN) (SYNONYM NELSON STATUE) (ADJECTIVE NELSON ADMIRAL LORD
+NELSON\'S) (SIZE 0 CAPACITY 5) (ACTION RT-AC-TH-NELSON-STATUE)> 
+<OBJECT TH-CROWN-JEWELS (LOC TH-MORIARTY-DESK) (DESC "the Crown Jewels") (FLAGS
+FL-PLURAL FL-TAKEABLE FL-NOARTC FL-TRYTAKE FL-MONEY FL-HAS-DESCFCN) (SYNONYM
+JEWELS REGALIA DIAMOND) (ADJECTIVE CROWN) (VALUE 10) (SIZE 10 MASS 10) (ACTION
+RT-AC-TH-CROWN-JEWELS)> 
+<OBJECT TH-LAIR-KEY (LOC TH-MORIARTY-DESK) (DESC "Moriarty's key") (FLAGS
+FL-KEY FL-TAKEABLE FL-NOARTC) (SYNONYM KEY) (ADJECTIVE MORIARTY) (SIZE 1)> 
+<OBJECT TH-ETHERIUM-AMPOULE (LOC TH-WORKBENCH) (FLAGS FL-CONTAINER FL-OPENABLE
+FL-TAKEABLE FL-VOWEL FL-READABLE FL-HAS-SDESC) (SYNONYM AMPOULE ETHERIUM AMPULE
+LABEL) (ADJECTIVE ETHERIUM ETHERIUM) (GENERIC RT-GN-ETHERIUM) (SIZE 2 MASS 1) (
+ACTION RT-AC-TH-ETHERIUM-AMPOULE)> 
+<VOC "BROKEN" ADJ> 
+<OBJECT TH-LAB-EQUIPMENT (LOC TH-WORKBENCH) (DESC "laboratory equipment") (
+FLAGS FL-TRYTAKE FL-PLURAL FL-NOALL FL-HAS-DESCFCN) (SYNONYM EQUIPMENT BEAKERS
+TESTUBES PIPETTES EXPERIMENT) (ADJECTIVE LABORATORY LAB) (ACTION
+RT-AC-TH-LAB-EQUIPMENT)> 
+<OBJECT TH-ETHERIUM-GAS (LOC TH-ETHERIUM-AMPOULE) (DESC "etherium gas") (FLAGS
+FL-TRANSPARENT FL-NODESC FL-VOWEL FL-HAS-DESCFCN) (SYNONYM GAS ETHERIUM) (
+ADJECTIVE ETHERIUM GAS) (GENERIC RT-GN-ETHERIUM) (ACTION RT-AC-TH-ETHERIUM-GAS)
+> 
+<OBJECT TH-MANTELPIECE (LOC RM-HOLMES-STUDY) (DESC "mantelpiece") (FLAGS
+FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL) (SYNONYM MANTELPIECE MANTEL
+MANTLEPIECE MANTLE) (SIZE 50 CAPACITY 50)> 
+<OBJECT TH-WORKBENCH (LOC RM-HOLMES-BEDROOM) (DESC "workbench") (FLAGS
+FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL) (SYNONYM WORKBENCH BENCH) (ADJECTIVE
+WORK) (SIZE 50 CAPACITY 50)> 
+<OBJECT TH-BLACK-BAG (LOC CH-PLAYER) (DESC "black bag") (FLAGS FL-CONTAINER
+FL-SEEN FL-OPENABLE FL-TAKEABLE FL-HAS-DESCFCN) (SYNONYM BAG) (ADJECTIVE BLACK
+MEDICAL) (SIZE 15 CAPACITY 999) (ACTION RT-AC-TH-BLACK-BAG)> 
+<OBJECT TH-CHARLES-STATUE (LOC RM-CHAMBER-OF-HORRORS) (DESC
+"statue of Charles I") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM CHARLES CHARLES\' STATUE I WAX) (ADJECTIVE CHARLES WAX
+) (GENERIC RT-GN-WAX) (ACTION RT-AC-TH-CHARLES-STATUE)> 
+<OBJECT TH-WILLIAM-STATUE (LOC RM-MADAME-TUSSAUDS) (DESC
+"statue of William the Conqueror") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE
+FL-NOALL FL-HAS-DESCFCN) (SYNONYM WILLIAM CONQUEROR STATUE WAX) (ADJECTIVE
+WILLIAM WAX WILLIAM\'S) (GENERIC RT-GN-WAX) (ACTION RT-AC-TH-WILLIAM-STATUE)> 
+<OBJECT TH-WALTER-STATUE (LOC RM-MADAME-TUSSAUDS) (DESC
+"statue of Sir Walter Raleigh") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM WALTER RALEIGH STATUE WAX) (ADJECTIVE SIR WALTER
+RALEIGH WAX WALTER\'S RALEIGH\'S) (GENERIC RT-GN-WAX) (ACTION
+RT-AC-TH-WALTER-STATUE)> 
+<OBJECT TH-ELIZABETH-STATUE (LOC RM-MADAME-TUSSAUDS) (DESC
+"figure of Queen Elizabeth") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM FIGURE ELIZABETH WAX) (ADJECTIVE QUEEN) (GENERIC
+RT-GN-WAX) (ACTION RT-AC-TH-ELIZABETH-STATUE)> 
+<OBJECT TH-THOMAS-STATUE (LOC RM-CHAMBER-OF-HORRORS) (DESC
+"statue of Saint Thomas Becket") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE
+FL-NOALL FL-HAS-DESCFCN) (SYNONYM THOMAS BECKET STATUE WAX) (ADJECTIVE SAINT
+THOMAS BECKET WAX BECKET\'S) (GENERIC RT-GN-WAX) (ACTION RT-AC-TH-THOMAS-STATUE
+)> 
+<OBJECT TH-DRAKE-STATUE (LOC RM-MADAME-TUSSAUDS) (DESC
+"statue of Sir Francis Drake") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM FRANCIS DRAKE STATUE WAX) (ADJECTIVE SIR FRANCIS DRAKE
+WAX DRAKE\'S) (GENERIC RT-GN-WAX) (ACTION RT-AC-TH-DRAKE-STATUE)> 
+<OBJECT TH-JOHN-STATUE (LOC RM-MADAME-TUSSAUDS) (DESC "statue of King John") (
+FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM JOHN
+STATUE WAX) (ADJECTIVE KING JOHN WAX JOHN\'S) (GENERIC RT-GN-WAX) (ACTION
+RT-AC-TH-JOHN-STATUE)> 
+<OBJECT TH-FAWKES-STATUE (LOC RM-CHAMBER-OF-HORRORS) (DESC
+"statue of Guy Fawkes") (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM FAWKES STATUE WAX) (ADJECTIVE GUY WAX FAWKES\' GUY\'S)
+(GENERIC RT-GN-WAX) (ACTION RT-AC-TH-FAWKES-STATUE)> 
+<OBJECT TH-NELSON-COLUMN (LOC RM-TRAFALGAR-SQUARE) (DESC "Nelson's Column") (
+FLAGS FL-NODESC FL-READABLE FL-SURFACE FL-NOARTC FL-TRYTAKE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM COLUMN MONUMENT) (ADJECTIVE NELSON NELSON\'S) (SIZE
+100 MASS 100 CAPACITY 100) (ACTION RT-AC-TH-NELSON-COLUMN)> 
+<OBJECT TH-ROPE (LOC RM-LAIR) (DESC "rope") (FLAGS FL-TAKEABLE FL-NOALL
+FL-HAS-DESCFCN) (SYNONYM ROPE) (SIZE 15 MASS 3) (ACTION RT-AC-TH-ROPE)> 
+<OBJECT TH-LIQUID (LOC TH-PHIAL) (DESC "clear, colourless liquid") (FLAGS
+FL-HAS-DESCFCN) (SYNONYM LIQUID DRUG COCAINE) (ADJECTIVE CLEAR COLOURLESS) (
+SIZE 1) (ACTION RT-AC-TH-LIQUID)> 
+<OBJECT TH-SYRINGE (LOC TH-MOROCCO-CASE) (DESC "syringe") (SYNONYM SYRINGE
+NEEDLE) (ADJECTIVE HYPODERMIC) (SIZE 1 CAPACITY 5) (ACTION RT-AC-TH-SYRINGE)> 
+<OBJECT TH-MOROCCO-CASE (LOC TH-SOFA) (FLAGS FL-OPENED FL-CONTAINER FL-NOALL
+FL-TAKEABLE FL-OPENABLE) (DESC "morocco case") (SYNONYM CASE) (ADJECTIVE
+MOROCCO) (SIZE 5) (ACTION RT-AC-TH-MOROCCO-CASE)> 
+<OBJECT TH-DEAD-PIGEON (DESC "dead pigeon") (FLAGS FL-TAKEABLE) (SYNONYM PIGEON
+BIRD) (ADJECTIVE DEAD) (SIZE 5 CAPACITY 0 MASS 5) (VALUE 0) (GENERIC
+RT-GN-PIGEON) (ACTION RT-AC-TH-DEAD-PIGEON)> 
+<OBJECT TH-RED-GLASS (DESC "red piece of glass") (FLAGS FL-TAKEABLE
+FL-HAS-DESCFCN) (SYNONYM GLASS) (ADJECTIVE RED) (SIZE 5) (ACTION
+RT-AC-TH-RED-GLASS)> 
+<OBJECT TH-PIGEONS (LOC RM-TRAFALGAR-SQUARE) (DESC "pigeons") (FLAGS FL-NODESC
+FL-PLURAL FL-ALIVE FL-TRYTAKE FL-HAS-DESCFCN) (SYNONYM PIGEONS BIRDS) (
+ADJECTIVE FLOCK GROUP) (SIZE 50 MASS 250) (ACTION RT-AC-TH-PIGEONS)> 
+<OBJECT TH-BEDSIDE-TABLE (LOC RM-HOLMES-BEDROOM) (DESC "bedside table") (FLAGS
+FL-NODESC FL-SURFACE FL-TRYTAKE) (SYNONYM TABLE) (ADJECTIVE BEDSIDE) (SIZE 15
+CAPACITY 50)> 
+<OBJECT TH-BED (LOC RM-HOLMES-BEDROOM) (DESC "bed") (FLAGS FL-NODESC FL-SURFACE
+FL-TRYTAKE FL-NOALL) (SYNONYM BED) (ADJECTIVE SHERLOCK HOLMES\' HOLMES\'S) (
+SIZE 15 CAPACITY 999) (ACTION RT-AC-TH-BED)> 
+<OBJECT TH-MATCHBOOK (LOC RM-PARLOUR) (DESC "matchbook") (FLAGS FL-CONTAINER
+FL-TAKEABLE FL-OPENABLE FL-READABLE FL-BURNABLE) (SYNONYM BOOK MATCHES
+MATCHBOOK) (VALUE 1) (SIZE 5 CAPACITY 1) (ACTION RT-AC-TH-MATCHBOOK)> 
+<OBJECT TH-PADDLE (LOC RM-INSIDE-TRAITORS-GATE) (DESC "paddle") (FLAGS
+FL-TAKEABLE) (SYNONYM PADDLE) (VALUE 1) (SIZE 15)> 
+<OBJECT TH-OAR-LOCK (LOC TH-BOAT) (DESC "oarlock") (FLAGS FL-NODESC
+FL-CONTAINER FL-OPENED) (SYNONYM OARLOCK) (SIZE 0 CAPACITY 100) (ACTION
+RT-AC-TH-OAR-LOCK)> 
+<OBJECT TH-CLUE-BOOK (LOC TH-LIBRARY-TABLE) (DESC "old book") (FLAGS
+FL-CONTAINER FL-OPENABLE FL-TAKEABLE FL-SURFACE FL-BURNABLE FL-READABLE
+FL-HAS-DESCFCN FL-VOWEL) (SYNONYM BOOK) (ADJECTIVE OLD) (SIZE 5) (ACTION
+RT-AC-TH-CLUE-BOOK)> 
+<OBJECT TH-BOOK-PAGE (LOC TH-CLUE-BOOK) (DESC "book page") (FLAGS FL-READABLE
+FL-BURNABLE FL-SURFACE FL-NODESC FL-NOALL FL-HAS-DESCFCN) (SYNONYM PAGE
+INTRODUCTION) (ADJECTIVE BOOK) (SIZE 2) (ACTION RT-AC-TH-BOOK-PAGE)> 
+<OBJECT TH-PRAMS (LOC RM-KENSINGTON-GARDENS) (DESC "prams") (FLAGS FL-CONTAINER
+FL-OPENABLE FL-NODESC FL-PLURAL) (SYNONYM PRAMS PERAMBULATOR PRAM) (SIZE 0
+CAPACITY 20) (ACTION RT-AC-TH-PRAMS)> 
+<OBJECT TH-PARK-FLOWERS (LOC RM-KENSINGTON-GARDENS) (DESC "flowers") (FLAGS
+FL-TRYTAKE FL-NODESC FL-PLURAL FL-HAS-DESCFCN) (SYNONYM FLOWERS FLOWER ROSE
+ROSES DAISIES PETUNIAS PEONIES MARIGOLDS DAFFODILS) (ACTION
+RT-AC-TH-PARK-FLOWERS)> 
+<OBJECT TH-SHAFT (LOC RM-CLOCK-TOWER) (DESC "shaft") (FLAGS FL-NODESC
+FL-CONTAINER FL-NOALL) (SYNONYM SHAFT) (SIZE 0 CAPACITY 999) (ACTION
+RT-AC-TH-SHAFT)> 
+<OBJECT TH-LIBRARY-TABLE (LOC RM-MANUSCRIPT-ROOM) (DESC "table") (FLAGS
+FL-NODESC FL-SURFACE FL-TRYTAKE) (SYNONYM TABLE) (SIZE 15 CAPACITY 50)> 
+<OBJECT TH-JEWEL-CASE (LOC RM-JEWEL-ROOM) (DESC "jewel case") (FLAGS FL-NODESC
+FL-CONTAINER FL-TRYTAKE FL-OPENED FL-NOALL FL-HAS-DESCFCN) (SYNONYM CASE) (
+ADJECTIVE JEWEL) (SIZE 15 CAPACITY 50) (ACTION RT-AC-TH-JEWEL-CASE)> 
+<OBJECT TH-ELIZAS-MOUTH (LOC CH-ELIZA-DOOLITTLE) (DESC "girl's mouth") (FLAGS
+FL-NODESC FL-CONTAINER FL-OPENED FL-OPENABLE) (SYNONYM MOUTH) (ADJECTIVE HER
+ELIZA\'S GIRL\'S) (SIZE 0 CAPACITY 1) (GENERIC RT-GN-BODY) (ACTION
+RT-AC-TH-ELIZAS-MOUTH)> 
+<OBJECT TH-RUBBINGS (LOC RM-NORTH-CLOISTER) (DESC "rubbings") (FLAGS FL-NODESC
+FL-PLURAL FL-READABLE FL-HAS-DESCFCN) (SYNONYM RUBBING RUBBINGS) (ADJECTIVE
+BRASS) (ACTION RT-AC-TH-RUBBINGS)> 
+<OBJECT TH-SOFA (LOC RM-HOLMES-STUDY) (DESC "sofa") (FLAGS FL-NODESC FL-SURFACE
+FL-TRYTAKE FL-NOALL) (SYNONYM SOFA COUCH) (SIZE 15 CAPACITY 999) (ACTION
+RT-AC-TH-SOFA)> 
+<OBJECT TH-ASH (LOC RM-MADAME-TUSSAUDS) (DESC "cigar ash") (FLAGS FL-NODESC
+FL-NOALL FL-ASLEEP FL-TAKEABLE FL-VOWEL FL-PLURAL FL-COLLECTIVE FL-HAS-DESCFCN)
+(SYNONYM SPECK ASH) (ADJECTIVE TRICHINOPOLY FLAKE CIGAR SPECK MY) (ACTION
+RT-AC-TH-ASH)> 
+<OBJECT TH-CIGARETTE (LOC CH-TUSSAUDS-GUARD) (DESC "cigarette") (FLAGS
+FL-LIGHTED FL-BURNABLE FL-TRYTAKE) (SYNONYM CIGARETTE CIGARET) (ADJECTIVE
+GUARD\'S) (ACTION RT-AC-TH-CIGARETTE)> 
+<OBJECT TH-TURBAN (LOC CH-AKBAR) (DESC "turban") (FLAGS FL-NODESC FL-NOALL) (
+SYNONYM TURBAN) (ACTION RT-AC-TH-TURBAN)> 
+<OBJECT TH-ANCHOR-CHAIN (LOC TH-BOAT) (DESC "anchor chain") (FLAGS FL-NODESC
+FL-CONTAINER FL-OPENED FL-VOWEL) (SYNONYM CHAIN) (SIZE 5) (ADJECTIVE ANCHOR) (
+ACTION RT-AC-TH-ANCHOR-CHAIN)> 
+<OBJECT TH-RAILING (LOC RM-CLOCK-TOWER) (DESC "railing") (FLAGS FL-NODESC
+FL-SURFACE FL-TRYTAKE FL-NOALL) (SYNONYM RAILING RAIL) (SIZE 50 CAPACITY 50) (
+ACTION RT-AC-TH-RAILING)> 
+<OBJECT TH-OPIUM-GAS (LOC RM-BAR-OF-GOLD) (DESC "opium") (FLAGS FL-TRANSPARENT
+FL-NODESC FL-VOWEL FL-BUYABLE FL-PLURAL FL-COLLECTIVE FL-HAS-DESCFCN) (SYNONYM
+GAS OPIUM FUMES) (ACTION RT-AC-TH-OPIUM-GAS)> 
+<OBJECT TH-TRINKETS (LOC CH-VENDOR) (DESC "trinkets") (FLAGS FL-TRYTAKE
+FL-BUYABLE FL-PLURAL FL-NODESC FL-NOALL FL-HAS-DESCFCN) (SYNONYM TRINKETS
+BAUBLES TRINKET) (SIZE 15) (ACTION RT-AC-TH-TRINKETS)> 
+<OBJECT TH-GUARDS-KEYS (LOC TH-GUARDS-POCKET) (DESC "keys") (FLAGS FL-TAKEABLE
+FL-PLURAL FL-HAS-DESCFCN) (SYNONYM KEYS) (ADJECTIVE HIS GUARD\'S) (ACTION
+RT-AC-TH-GUARDS-KEYS)> 
+<OBJECT TH-MORIARTY-DESK (LOC RM-LAIR) (DESC "desk") (FLAGS FL-TRYTAKE FL-NOALL
+FL-NODESC FL-SURFACE) (SYNONYM DESK TABLE) (ADJECTIVE MORIARTY) (SIZE 15
+CAPACITY 50)> 
+<OBJECT TH-NELSON-EYE (LOC TH-NELSON-COLUMN) (DESC "Nelson's blind eye") (FLAGS
+FL-NOARTC FL-NODESC FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN) (SYNONYM EYE) (
+ADJECTIVE NELSON ADMIRAL LORD NELSON\'S BLIND) (ACTION RT-AC-TH-NELSON-EYE)> 
\ No newline at end of file
diff --git a/things1.zap b/things1.zap
new file mode 100644
index 0000000..7e82eb2
--- /dev/null
+++ b/things1.zap
@@ -0,0 +1,248 @@
+
+
+	.FUNCT	RT-IDENTIFY-FLOOR?,WD,OBJ,NAM
+	GETP	TH-FLOOR-ETC,P?OBJ-NOUN >NAM
+	ZERO?	OBJ /?CND1
+	EQUAL?	OBJ,TH-FLOOR-ETC \FALSE
+?CND1:	EQUAL?	WD,W?FLOOR \?CCL7
+	EQUAL?	NAM,W?FLOOR /TRUE
+	RFALSE	
+?CCL7:	EQUAL?	WD,W?CEILING \?CCL11
+	EQUAL?	NAM,W?CEILING /TRUE
+	RFALSE	
+?CCL11:	EQUAL?	WD,W?SKY \?CCL15
+	EQUAL?	NAM,W?SKY,W?CLOUD,W?CLOUDS /TRUE
+	EQUAL?	NAM,W?FOG /TRUE
+	RFALSE	
+?CCL15:	EQUAL?	WD,W?GROUND \FALSE
+	EQUAL?	NAM,W?SURFACE,W?GROUND /TRUE
+	RFALSE	
+
+
+	.FUNCT	TELL-THE-FLOOR
+	PRINTI	"the floor"
+	RTRUE	
+
+
+	.FUNCT	TELL-THE-GROUND
+	PRINTI	"the ground"
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-FLOOR-ETC,CONTEXT,INDOORS?,UP?,OBJ,NXT,NAM,THING,TOD
+	SET	'THING,TH-FLOOR-ETC
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	GETP	TH-FLOOR-ETC,P?OBJ-NOUN
+	EQUAL?	STACK,W?CEILING \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HENRY-VII-CHAPEL \FALSE
+	PRINT	K-BREATH-TAKING-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL10
+	GETP	THING,P?OBJ-NOUN
+	PRINTB	STACK
+	RTRUE	
+?CCL10:	ZERO?	CONTEXT \FALSE
+	GETP	THING,P?OBJ-NOUN >NAM
+	EQUAL?	NAM,W?FLOOR,W?CEILING \?CND1
+	SET	'INDOORS?,TRUE-VALUE
+?CND1:	CALL2	RT-IDENTIFY-FLOOR?,W?CEILING
+	ZERO?	STACK \?CCL15
+	CALL2	RT-IDENTIFY-FLOOR?,W?SKY
+	ZERO?	STACK /?CND14
+?CCL15:	SET	'UP?,TRUE-VALUE
+?CND14:	FSET?	GL-PLACE-CUR,FL-INDOORS /?PRD22
+	PUSH	1
+	JUMP	?PEN21
+?PRD22:	PUSH	0
+?PEN21:	EQUAL?	INDOORS?,STACK \?CCL20
+	ICALL2	RT-CANT-SEE-ANY-MSG,THING
+	RETURN	2
+?CCL20:	ZERO?	GL-NOW-PRSI? /?CCL25
+	EQUAL?	GL-PRSA,V?PUT-ON,V?PUT,V?THROW /?CCL28
+	EQUAL?	GL-PRSA,V?THROW-OVER,V?EMPTY-INTO \FALSE
+?CCL28:	ZERO?	UP? \?CCL33
+	CALL	RT-PERFORM,V?DROP,GL-PRSO
+	RSTACK	
+?CCL33:	PRINTI	"Despite your best efforts, "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" just won't stay up."
+?CCL25:	ZERO?	UP? \?CCL35
+	ZERO?	GL-NOW-PRSI? \?CCL35
+	EQUAL?	GL-PRSA,V?CROSS \?CCL40
+	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL40:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON,V?SEARCH \FALSE
+	FSET?	THING,FL-HAS-DESCFCN \?CND43
+	GETP	THING,P?ACTION
+	CALL	STACK,K-M-DESCFCN
+	ZERO?	STACK \TRUE
+?CND43:	ICALL2	RT-REMOVE-ALL,TH-X-OBJECT
+	FIRST?	GL-PLACE-CUR >OBJ /?PRG48
+?PRG48:	ZERO?	OBJ /?REP49
+	NEXT?	OBJ >NXT /?BOGUS53
+?BOGUS53:	FSET?	OBJ,FL-NODESC /?CCL55
+	FSET?	OBJ,FL-ALIVE \?PRD58
+	FSET?	OBJ,FL-ASLEEP \?CCL55
+?PRD58:	FSET?	OBJ,FL-TAKEABLE /?CND54
+	FSET?	OBJ,FL-TRYTAKE /?CND54
+?CCL55:	MOVE	OBJ,TH-X-OBJECT
+?CND54:	SET	'OBJ,NXT
+	JUMP	?PRG48
+?REP49:	FIRST?	GL-PLACE-CUR \?CCL65
+	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PLACE-CUR
+	JUMP	?CND63
+?CCL65:	PRINTI	"There is nothing very "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+?CND63:	PRINTI	" on "
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTC	46
+	CRLF	
+	CALL	RT-MOVE-ALL,TH-X-OBJECT,GL-PLACE-CUR
+	RSTACK	
+?CCL35:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL70
+	EQUAL?	GL-PLACE-CUR,RM-HENRY-VII-CHAPEL \?CCL73
+	ICALL2	RT-CTHEO-PRINT,THING
+	PRINTR	" is breathtakingly beautiful."
+?CCL73:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL75
+	ICALL2	RT-CTHEO-PRINT,THING
+	PRINTR	" is high above you."
+?CCL75:	ICALL2	RT-CTHEO-PRINT,THING
+	CALL1	RT-TIME-OF-DAY >TOD
+	ZERO?	TOD \?CCL78
+	PRINTR	" is dark and foggy."
+?CCL78:	EQUAL?	TOD,1 \?CCL80
+	PRINTR	" is foggy, but at least there's enough light to see."
+?CCL80:	EQUAL?	TOD,2 \?CCL82
+	PRINTR	" is pretty light."
+?CCL82:	EQUAL?	TOD,3 \FALSE
+	PRINTR	" is getting darker."
+?CCL70:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	FSET?	GL-PLACE-CUR,FL-INDOORS /FALSE
+	PRINTR	"The bullet disappears into the air."
+
+
+	.FUNCT	RT-AC-TH-WALL,CONTEXT,OBJ,NAM,ADJ
+	SET	'OBJ,TH-WALL
+	GETP	OBJ,P?OBJ-NOUN >NAM
+	GETP	OBJ,P?OBJ-ADJ >ADJ
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	GETP	OBJ,P?OBJ-ADJ
+	ZERO?	STACK /?CND4
+	PRINTB	OBJ
+	PRINTC	32
+?CND4:	GETP	OBJ,P?OBJ-NOUN
+	PRINTB	STACK
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	NAM,W?WALLS \?CCL9
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL12
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL15
+	PUTP	OBJ,P?OBJ-NOUN,W?WALL
+	PUTP	OBJ,P?OBJ-ADJ,W?SOUTH
+	RFALSE	
+?CCL15:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
+	PRINTI	"The walls are covered with pictures."
+	RTRUE	
+?CCL12:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \?CCL22
+	EQUAL?	GL-PLACE-CUR,RM-INSIDE-TRAITORS-GATE \FALSE
+	PRINTI	"There are some ravens perched on the wall."
+	RTRUE	
+?CCL22:	EQUAL?	GL-PLACE-CUR,RM-TOTTENHAM-COURT-RD,RM-OXFORD-ST,RM-VICTORIA-SQUARE /FALSE
+	EQUAL?	GL-PLACE-CUR,RM-VICTORIA-STREET,RM-PARLIAMENT-SQUARE,RM-QUEENS-GARDENS /FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BUCKINGHAM-PALACE,RM-DRAWBRIDGE,RM-BYWARD-TOWER /FALSE
+	EQUAL?	GL-PLACE-CUR,RM-OUTER-WARD,RM-TOWER-GREEN,RM-OUTSIDE-TRAITORS-GATE /FALSE
+	PRINT	K-NOT-SEE-HERE-MSG
+	CRLF	
+	RTRUE	
+?CCL9:	EQUAL?	ADJ,W?NORTH \?CCL33
+	EQUAL?	GL-PLACE-CUR,RM-MARYLEBONE-RD,RM-GREAT-RUSSELL-ST,RM-THREADNEEDLE-ST /?CTR32
+	EQUAL?	GL-PLACE-CUR,RM-MONUMENT,RM-OUTSIDE-TRAITORS-GATE \?CCL33
+?CTR32:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-GREAT-RUSSELL-ST,RM-THREADNEEDLE-ST,RM-MONUMENT \FALSE
+	PRINT	K-SIGN-HERE-MSG
+	RTRUE	
+?CCL33:	EQUAL?	ADJ,W?EAST \?CCL45
+	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY,RM-WHITEHALL \?CCL45
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-BROAD-SANCTUARY \FALSE
+	PRINT	K-SIGN-HERE-MSG
+	RTRUE	
+?CCL45:	EQUAL?	ADJ,W?WEST \?CCL55
+	EQUAL?	GL-PLACE-CUR,RM-221B-BAKER-ST,RM-TRAFALGAR-SQUARE,RM-PINCHIN-LANE /?CTR54
+	EQUAL?	GL-PLACE-CUR,RM-SWAN-LANE \?CCL55
+?CTR54:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-SWAN-LANE \FALSE
+	PRINT	K-SIGN-HERE-MSG
+	RTRUE	
+?CCL55:	ZERO?	ADJ \?CND66
+	RANDOM	4 >ADJ
+	EQUAL?	ADJ,1 \?CCL70
+	SET	'ADJ,W?NORTH
+	JUMP	?CND66
+?CCL70:	EQUAL?	ADJ,2 \?CCL72
+	SET	'ADJ,W?SOUTH
+	JUMP	?CND66
+?CCL72:	EQUAL?	ADJ,3 \?CCL74
+	SET	'ADJ,W?EAST
+	JUMP	?CND66
+?CCL74:	SET	'ADJ,W?WEST
+?CND66:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL77
+	EQUAL?	ADJ,W?NORTH \?CCL80
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
+	PRINTI	"There is a large fireplace set into the north wall."
+	RTRUE	
+?CCL80:	EQUAL?	ADJ,W?SOUTH \FALSE
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
+	PRINTR	"There is a patriotic ""V.R."" spelled out in bullet marks on the south wall."
+?CCL77:	PRINT	K-NOT-SEE-HERE-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-CROWDS,CONTEXT
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?PRD4
+	EQUAL?	GL-PLACE-CUR,RM-BRITISH-MUSEUM \?CCL2
+?PRD4:	FSET?	GL-PLACE-CUR,FL-NO-CROWDS \?CND1
+?CCL2:	PRINTR	"At last you've found some respite from the crowds."
+?CND1:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL9
+	EQUAL?	GL-PLACE-CUR,RM-FLEET-STREET \?CCL12
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL15
+	PRINTR	"They're all inside, hard at work."
+?CCL15:	PRINTR	"They hurry past you, intent on getting to their offices."
+?CCL12:	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL17
+	PRINTR	"There are no crowds here. They're all asleep."
+?CCL17:	EQUAL?	GL-PLACE-CUR,RM-TOTTENHAM-COURT-RD,RM-OXFORD-ST \?CCL19
+	PRINTI	"The shoppers don't appear happy that the shops are closed."
+	RTRUE	
+?CCL19:	EQUAL?	GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \?CCL21
+	PRINTR	"The people are happily feeding the pigeons."
+?CCL21:	EQUAL?	GL-PLACE-CUR,RM-GROSVENOR-PLACE \?CCL23
+	PRINTR	"The people are anxiously consulting their sight-seeing maps."
+?CCL23:	EQUAL?	GL-PLACE-CUR,RM-THE-STRAND \?CCL25
+	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CCL28
+	PRINTR	"The theatre goers are happily discussing the evening's entertainment."
+?CCL28:	PRINTR	"The crowds are trying to select a show to attend this evening."
+?CCL25:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,2 \?CCL31
+	PRINTR	"They surge around you, excited about the sight-seeing they have planned for today."
+?CCL31:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CCL33
+	PRINTR	"They nearly trample you in their eagerness to get back to their hotels before darkness falls."
+?CCL33:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \TRUE
+	PRINTR	"They surge around you, intent on their sight-seeing."
+?CCL9:	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \FALSE
+	PRINTR	"There are no tourists here. They're all asleep."
+
+	.ENDI
diff --git a/things1.zil b/things1.zil
new file mode 100644
index 0000000..bdb72d0
--- /dev/null
+++ b/things1.zil
@@ -0,0 +1,1525 @@
+; "this file contains:"
+; "   object definitions of special objects"
+; "   object definitions of global  objects"
+; "   object definitions of generic objects"
+; "   object definitions of game    objects"
+
+; "special objects"
+
+<OBJECT TH-X-OBJECT>
+<OBJECT TH-Y-OBJECT>
+
+; "GLOBAL-OBJECTS"
+
+<OBJECT PSEUDO-OBJECT
+	(LOC GLOBAL-OBJECTS)	; "This fakes out some verb routines"
+	(FLAGS FL-NOARTC FL-HAS-SDESC FL-HAS-DESCFCN)
+	(ACTION 0)>
+
+<OBJECT GLOBAL-OBJECTS
+   (FLAGS
+      FL-ALIVE
+      FL-ASLEEP
+      FL-BODYPART
+      FL-BROKEN
+      FL-BURNABLE
+      FL-BUYABLE
+      FL-BYHAND
+      FL-CLOTHING
+      FL-COLLECTIVE
+      FL-CONTAINER
+      FL-DOOR
+      FL-FEMALE
+      FL-FOOD
+      FL-HOLMES-TOLD
+      FL-INDOORS
+      FL-KEY
+      FL-KNIFE
+      FL-LAMP
+      FL-LIGHTED
+      FL-LOCATION
+      FL-LOCKED
+      FL-MONEY
+      FL-NOALL
+      FL-NOARTC
+      FL-NODESC
+      FL-OPENABLE
+      FL-OPENED
+      FL-PERSON
+      FL-PLURAL
+      FL-READABLE
+      FL-SEEN
+      FL-SURFACE
+      FL-TAKEABLE
+      FL-TOOL
+      FL-TOUCHED
+      FL-TRANSPARENT
+      FL-TRYTAKE
+      FL-VEHICLE
+      FL-VOWEL
+      FL-WEAPON
+      FL-WORN
+      FL-YOUR
+      FL-HAS-DESCFCN
+      FL-HAS-SDESC
+      FL-NO-CROWDS
+      FL-NO-ETHERIUM 
+      ;"Set in indoor rooms where don't allow breaking ampoule")>
+
+; "Note that FL-NEEDS-IDENTITY and FL-LOSE-IDENTITY aren't included above..."
+
+<OBJECT LOCAL-GLOBALS
+   (LOC GLOBAL-OBJECTS)
+   ;(GLOBAL GLOBAL-OBJECTS)
+   ;(SYNONYM ZZZP)
+   ;(ADJECTIVE XXXP)
+   ;(NORTH TO ROOMS)
+   ;(EAST  TO ROOMS)
+   ;(SOUTH TO ROOMS)
+   ;(WEST  TO ROOMS)
+   ;(NE    TO ROOMS)
+   ;(NW    TO ROOMS)
+   ;(SE    TO ROOMS)
+   ;(SW    TO ROOMS)
+   ;(IN    TO ROOMS)
+   ;(OUT   TO ROOMS)
+   ;(UP    TO ROOMS)
+   ;(DOWN  TO ROOMS)
+   ;(ACTION		0)
+   ;(CONTFCN		0)
+   ;(GENERIC		0)
+   ;(VALUE		0)
+   ;(SIZE		0)
+   ;(LOOKUP		0)
+   ;(LOOKDN		0)
+   ;(ODOR		0)
+   ;(INSCRIPTION	0)
+   ;(FLIPPED		0)
+   ;(HEATED		0)
+   ;(STRENGTH		0)
+   ;(DEXTERITY		0)>
+
+<OBJECT ROOMS
+   (DESC "rooms")
+   (FLAGS FL-NOARTC FL-NODESC FL-SEEN)
+   (IN TO ROOMS)>
+
+<OBJECT TH-ROOM
+   (LOC GLOBAL-OBJECTS)
+   (DESC "room")
+   (FLAGS FL-NODESC FL-SEEN FL-HAS-DESCFCN)
+   (SYNONYM ROOM)
+   (ACTION RT-DF-TH-ROOM)>
+
+<OBJECT TH-INTDIR
+   (LOC GLOBAL-OBJECTS)
+   (DESC "direction")
+   (FLAGS FL-NODESC FL-SEEN)
+   (SYNONYM DIRECTION)
+   (ADJECTIVE NORTH EAST SOUTH WEST NE NW SE SW UP DOWN IN OUT)
+   (ACTION RT-AC-TH-INTDIR)>
+
+<OBJECT TH-NOT-HERE-OBJECT
+   (DESC "that")
+   (FLAGS FL-NOARTC FL-NODESC FL-SEEN)
+   (ACTION RT-AC-TH-NOT-HERE-OBJECT)>
+
+<OBJECT TH-TIME
+   (LOC GLOBAL-OBJECTS)
+   (SYNONYM MINUTE MINUTES HOUR HOURS)
+   (ADJECTIVE INTNUM)
+   (FLAGS FL-HAS-SDESC FL-NEEDS-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (ACTION RT-AC-TH-TIME)>
+
+<OBJECT TH-SESAME
+   (LOC GLOBAL-OBJECTS)
+   (DESC "sesame")
+   (FLAGS FL-NODESC)
+   (SYNONYM SESAME)
+   (ACTION RT-AC-TH-SESAME)>
+
+<OBJECT TH-IT
+   (LOC GLOBAL-OBJECTS)
+   (DESC "it")
+   (FLAGS FL-NOARTC FL-NODESC FL-SEEN FL-VOWEL FL-TOUCHED)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (SYNONYM IT THAT ITSELF)>
+
+<OBJECT TH-RIGHT
+   (LOC GLOBAL-OBJECTS)
+   (DESC "right")
+   (FLAGS FL-NOARTC FL-NODESC FL-SEEN)
+   (SYNONYM RIGHT FORWARD AHEAD CLOCKWISE)
+   (ACTION RT-AC-TH-RIGHT)>
+
+<OBJECT TH-LEFT
+   (LOC GLOBAL-OBJECTS)
+   (DESC "left")
+   (FLAGS FL-NOARTC FL-NODESC FL-SEEN)
+   (SYNONYM LEFT BACKWARD BEHIND COUNTERCL)
+   (ACTION RT-AC-TH-LEFT)>
+
+<OBJECT TH-FLOOR-ETC
+   (LOC GLOBAL-OBJECTS)
+   (FLAGS FL-NODESC FL-SEEN FL-SURFACE FL-NEEDS-IDENTITY
+          FL-HAS-DESCFCN FL-HAS-SDESC)
+   (SYNONYM FLOOR CEILING SURFACE GROUND SKY CLOUD CLOUDS FOG)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (ACTION RT-AC-TH-FLOOR-ETC)>
+
+<ROUTINE RT-IDENTIFY-FLOOR? (WD "OPT" (OBJ <>)
+			     "AUX" (NAM <GETP ,TH-FLOOR-ETC ,P?OBJ-NOUN>))
+  <COND (<AND .OBJ <N==? .OBJ ,TH-FLOOR-ETC>>
+	 <RFALSE>)>
+  <COND (<EQUAL? .WD ,W?FLOOR>
+	 <EQUAL? .NAM ,W?FLOOR>)
+	(<EQUAL? .WD ,W?CEILING>
+	 <EQUAL? .NAM ,W?CEILING>)
+	(<EQUAL? .WD ,W?SKY>
+	 <EQUAL? .NAM ,W?SKY ,W?CLOUD ,W?CLOUDS ,W?FOG>)
+	(<EQUAL? .WD ,W?GROUND>
+	 <EQUAL? .NAM ,W?SURFACE ,W?GROUND>)>>
+
+<ROUTINE TELL-THE-FLOOR ()
+  <TELL "the floor">>
+
+<ROUTINE TELL-THE-GROUND ()
+  <TELL "the ground">>
+
+<ROUTINE RT-AC-TH-FLOOR-ETC ("OPT" (CONTEXT <>) "AUX" (INDOORS? <>) (UP? <>)
+			      OBJ NXT NAM (THING ,TH-FLOOR-ETC) TOD)
+  <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	 <COND (<AND <==? <GETP ,TH-FLOOR-ETC ,P?OBJ-NOUN> ,W?CEILING>
+		     <EQUAL? ,GL-PLACE-CUR ,RM-HENRY-VII-CHAPEL>>
+		<TELL ,K-BREATH-TAKING-MSG CR>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>)
+	(<==? .CONTEXT ,K-M-SDESC>
+	 <PRINTB <GETP .THING ,P?OBJ-NOUN>>
+	 <RTRUE>)
+	(<MC-T? .CONTEXT>
+	 <RFALSE>)
+	(<EQUAL? <SET NAM <GETP .THING ,P?OBJ-NOUN>> ,W?FLOOR
+		 ,W?CEILING>
+	 <SET INDOORS? T>)>
+  <COND (<OR <RT-IDENTIFY-FLOOR? ,W?CEILING>
+	     <RT-IDENTIFY-FLOOR? ,W?SKY>>
+	 <SET UP? T>)>
+  <COND (<EQUAL? .INDOORS? <MC-ISNOT? ,GL-PLACE-CUR ,FL-INDOORS>>
+	 <RT-CANT-SEE-ANY-MSG .THING>
+	 <RFATAL>)
+	(<MC-THIS-PRSI?>
+	 <COND (<MC-VERB? PUT-ON PUT THROW THROW-OVER EMPTY-INTO>
+		<COND (<NOT .UP?>
+		       <RT-PERFORM ,V?DROP ,GL-PRSO>)
+		      (T
+		       <TELL "Despite your best efforts, " THEO
+			     " just won't stay up." CR>)>)>)
+	(<AND <NOT .UP?> <MC-THIS-PRSO?>>
+	 <COND (<MC-VERB? CROSS>
+		<V-WALK-AROUND>)
+	       (<MC-VERB? EXAMINE LOOK-ON SEARCH>
+		<COND (<AND <FSET? .THING ,FL-HAS-DESCFCN>
+			    <APPLY <GETP .THING ,P?ACTION> ,K-M-DESCFCN>>
+		       <RTRUE>)>
+		<RT-REMOVE-ALL ,TH-X-OBJECT>
+		<SET OBJ <FIRST? ,GL-PLACE-CUR>>
+		<REPEAT ()
+		  <COND (.OBJ
+			 <SET NXT <NEXT? .OBJ>>
+			 <COND (<OR <MC-IS? .OBJ ,FL-NODESC>
+				    <AND <MC-IS? .OBJ ,FL-ALIVE>
+					 <MC-ISNOT? .OBJ ,FL-ASLEEP>>
+				    <AND <MC-ISNOT? .OBJ ,FL-TAKEABLE>
+					 <MC-ISNOT? .OBJ ,FL-TRYTAKE>>>
+				<MOVE .OBJ ,TH-X-OBJECT>)>
+			 <SET OBJ .NXT>)
+			(T
+			 <RETURN>)>>
+		<COND (<FIRST? ,GL-PLACE-CUR>
+		       <RT-CYOU-MSG "see" "sees">
+		       <RT-PRINT-CONTENTS-2 ,GL-PLACE-CUR>)
+		      (T
+		       <TELL "There is nothing very "
+			     <RT-PICK-NEXT ,GL-BORING-TXT>>)>
+		<TELL " on " THE .THING "." CR>
+		<RT-MOVE-ALL ,TH-X-OBJECT ,GL-PLACE-CUR>)>)
+	(<MC-THIS-PRSO?>
+	 <COND (<MC-VERB? EXAMINE LOOK-INSIDE SEARCH>
+		<COND (<EQUAL? ,GL-PLACE-CUR ,RM-HENRY-VII-CHAPEL>
+		       <TELL CTHE .THING " is breathtakingly beautiful." CR>)
+		      (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		       <TELL CTHE .THING " is high above you." CR>
+		       <RTRUE>)
+		      (T
+		       <TELL CTHE .THING>
+		       <SET TOD <RT-TIME-OF-DAY>>
+		       <COND (<EQUAL? .TOD 0>
+			      <TELL " is dark and foggy." CR>)
+			     (<EQUAL? .TOD 1>
+			      <TELL " is foggy, but at least there's enough light to see." CR>)
+			     (<EQUAL? .TOD 2>
+			      <TELL " is pretty light." CR>)
+			     (<EQUAL? .TOD 3>
+			      <TELL " is getting darker." CR>)>)>)
+	       (<MC-VERB? SHOOT>
+		<COND (<MC-ISNOT? ,GL-PLACE-CUR ,FL-INDOORS>
+		       <TELL "The bullet disappears into the air." CR>)>)>)>>
+
+<OBJECT TH-HANDS
+   (LOC GLOBAL-OBJECTS)
+   (DESC "hands")
+   (FLAGS FL-SEEN FL-NODESC FL-TOUCHED FL-BYHAND FL-TOOL FL-PLURAL
+    	  FL-BODYPART FL-YOUR FL-NOALL)
+   (SYNONYM HAND HANDS FINGER FINGERS)
+   (ADJECTIVE MY)
+   (ACTION RT-AC-TH-HANDS)>
+
+<OBJECT TH-WATSONS-HEART
+   (LOC GLOBAL-OBJECTS)
+   (DESC "heart")
+   (FLAGS FL-SEEN FL-NODESC FL-BODYPART FL-YOUR FL-NOALL)
+   (SYNONYM HEART HEARTBEAT)
+   (ADJECTIVE MY)
+   (ACTION RT-AC-TH-WATSONS-HEART)>
+
+<OBJECT TH-FEET
+   (LOC GLOBAL-OBJECTS)
+   (DESC "feet")
+   (FLAGS FL-SEEN FL-NODESC FL-PLURAL FL-BODYPART FL-YOUR FL-NOALL)
+   (SYNONYM FEET FOOT)
+   (ADJECTIVE MY)>
+
+<OBJECT TH-EARS
+   (LOC GLOBAL-OBJECTS)
+   (DESC "ears")
+   (FLAGS FL-SEEN FL-NODESC FL-CONTAINER FL-SURFACE FL-OPENED
+	  FL-PLURAL FL-BODYPART FL-YOUR FL-NOALL)
+   (SYNONYM EAR EARS)
+   (ADJECTIVE MY)
+   (SIZE 0 CAPACITY 1)
+   (ACTION RT-AC-TH-EARS)>
+
+<OBJECT TH-HEAD
+	(LOC GLOBAL-OBJECTS)
+	(DESC "head")
+	(FLAGS FL-SEEN FL-NODESC FL-SURFACE FL-BODYPART FL-YOUR FL-NOALL)
+	(SYNONYM HEAD)
+	(ADJECTIVE MY)
+	(ACTION RT-AC-TH-HEAD)>
+
+<OBJECT TH-PLAYER-BODY
+   (LOC GLOBAL-OBJECTS)
+   (DESC "that part of your body")
+   (SYNONYM ARM ARMS SHOULDER SHOULDERS LEG LEGS FACE MOUTH LIPS THROAT
+            EYE EYES NOSE HAIR STOMACH BODY)
+   (FLAGS FL-NOARTC FL-SEEN FL-NODESC FL-NOALL FL-BODYPART)
+   (ADJECTIVE MY LEFT RIGHT)
+   (ACTION RT-AC-TH-PLAYER-BODY)>
+
+<OBJECT TH-BREATH
+	(LOC GLOBAL-OBJECTS)
+	(DESC "breath")
+	(FLAGS FL-SEEN FL-NODESC FL-TRYTAKE FL-NOALL FL-YOUR FL-BODYPART)
+	(SYNONYM BREATH)
+	(ADJECTIVE MY DEEP)
+	(ACTION RT-AC-TH-BREATH)>
+
+<OBJECT TH-CLOTHES
+	(LOC GLOBAL-OBJECTS)
+	(DESC "clothes")
+	(FLAGS FL-SEEN FL-NODESC FL-CLOTHING FL-WORN FL-YOUR FL-NOALL)
+	(SYNONYM CLOTHES CLOTHING)
+	(GENERIC RT-GN-TH-CLOTHES)
+	(SIZE 100)
+	(ADJECTIVE MY)
+	(ACTION RT-AC-TH-CLOTHES)>
+
+<OBJECT TH-WATERMARK
+	(LOC GLOBAL-OBJECTS)
+	(DESC "watermark")
+	(FLAGS FL-NODESC FL-HAS-DESCFCN)
+	(SYNONYM WATERMARK MARK)
+	(ACTION RT-AC-TH-WATERMARK)>
+
+<OBJECT TH-BULLET-HOLE
+	(LOC GLOBAL-OBJECTS)
+	(DESC "bullet hole")
+	(SYNONYM HOLE HOLES)
+	(ADJECTIVE BULLET)
+	(ACTION RT-AC-TH-BULLET-HOLE)>
+
+; "BODIES FOR WIGGINS, HOLMES, HUDSON, AND ELIZA.  WORKS WELL BECAUSE ALL
+   BODY PARTS ALSO EXIST FOR PLAYER, WHO IS ALWAYS PREFERRED BY THE GENERIC,
+   AND ELIZA'S HEART WILL BE FOUND BEFORE GLOBAL-CHECK IS CALLED (I THINK)."
+
+<OBJECT TH-GENERIC-BODY
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM ARM ARMS SHOULDER SHOULDERS LEG LEGS HAND
+	 HANDS FOOT FEET HEAD FACE MOUTH LIPS THROAT EYE EYES EAR EARS
+	 NOSE HAIR HEART STOMACH BODY CLOTHES)
+	(ADJECTIVE WIGGINS\' HOLMES\' HOLMES\'S HUDSON\'S LEFT RIGHT
+		    HER ELIZA\'S GIRL\'S)
+	(GENERIC RT-GN-BODY)
+	(OBJ-ADJ 0)
+	(OBJ-NOUN 0)
+	(FLAGS FL-NOARTC FL-NODESC FL-HAS-SDESC FL-NEEDS-IDENTITY)
+	(ACTION RT-AC-TH-GENERIC-BODY)>
+
+; "UNION OF GLOBAL N,S,E,W WALLS, LOCAL GLOBAL N,S,E,W WALLS, AND
+   GLOBAL WALLS"
+
+<OBJECT TH-WALL
+	(LOC GLOBAL-OBJECTS)
+	(FLAGS FL-TRYTAKE FL-NOALL FL-NEEDS-IDENTITY FL-HAS-SDESC)
+	(OBJ-ADJ 0)
+	(OBJ-NOUN 0)
+	(SYNONYM WALL WALLS)
+	(ADJECTIVE NORTH SOUTH EAST WEST)
+	(ACTION RT-AC-TH-WALL)>
+
+<ROUTINE RT-AC-TH-WALL ("OPT" (CONTEXT <>) "AUX" (OBJ ,TH-WALL)
+			(NAM <GETP .OBJ ,P?OBJ-NOUN>)
+			(ADJ <GETP .OBJ ,P?OBJ-ADJ>))
+  <COND (<==? .CONTEXT ,K-M-SDESC>
+	 <COND (<GETP .OBJ ,P?OBJ-ADJ>
+		<PRINTB .OBJ>
+		<TELL " ">)>
+	 <PRINTB <GETP .OBJ ,P?OBJ-NOUN>>
+	 <RTRUE>)
+	(<T? .CONTEXT> <RFALSE>)>
+  <COND (<==? .NAM ,W?WALLS>
+	 ; "Plural"
+	 <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		<COND (<MC-VERB? SHOOT>
+		       <PUTP .OBJ ,P?OBJ-NOUN ,W?WALL>
+		       <PUTP .OBJ ,P?OBJ-ADJ ,W?SOUTH>
+		       <RFALSE>)
+		      (<MC-VERB? EXAMINE LOOK-ON>
+		       <COND (<MC-HERE? ,RM-HOLMES-STUDY>
+			      <TELL
+			       "The walls are covered with pictures.">)>)>)
+		(<MC-VERB? EXAMINE LOOK-ON>
+		 <COND (<MC-HERE? ,RM-INSIDE-TRAITORS-GATE>
+			<TELL "There are some ravens perched on the wall.">)>)
+		(<EQUAL? ,GL-PLACE-CUR ,RM-TOTTENHAM-COURT-RD
+			 ,RM-OXFORD-ST ,RM-VICTORIA-SQUARE
+			 ,RM-VICTORIA-STREET ,RM-PARLIAMENT-SQUARE
+			 ,RM-QUEENS-GARDENS ,RM-BUCKINGHAM-PALACE
+			 ,RM-DRAWBRIDGE ,RM-BYWARD-TOWER ,RM-OUTER-WARD
+			 ,RM-TOWER-GREEN ,RM-OUTSIDE-TRAITORS-GATE>
+		 <RFALSE>)
+		(T
+		 <TELL ,K-NOT-SEE-HERE-MSG CR>)>)
+	(<AND <EQUAL? .ADJ ,W?NORTH>
+	      <EQUAL? ,GL-PLACE-CUR ,RM-MARYLEBONE-RD
+		      ,RM-GREAT-RUSSELL-ST ,RM-THREADNEEDLE-ST
+		      ,RM-MONUMENT ,RM-OUTSIDE-TRAITORS-GATE>>
+	 ; "FORMER LG-NORTH-WALL"
+	 <COND (<MC-VERB? EXAMINE LOOK-ON>
+		<COND (<MC-HERE? ,RM-GREAT-RUSSELL-ST ,RM-THREADNEEDLE-ST
+				 ,RM-MONUMENT>
+		       <TELL ,K-SIGN-HERE-MSG>)>)>)
+	(<AND <EQUAL? .ADJ ,W?EAST>
+	      <EQUAL? ,GL-PLACE-CUR ,RM-BROAD-SANCTUARY
+		      ,RM-WHITEHALL ;,RM-BLIND-ALLEY>>
+	 ; "LG-EAST-WALL"
+	 <COND (<MC-VERB? EXAMINE LOOK-ON>
+		<COND (<MC-HERE? ,RM-BROAD-SANCTUARY ;,RM-BLIND-ALLEY>
+		       <TELL ,K-SIGN-HERE-MSG>)>)>)
+	(<AND <EQUAL? .ADJ ,W?WEST>
+	      <EQUAL? ,GL-PLACE-CUR ,RM-221B-BAKER-ST
+		      ,RM-TRAFALGAR-SQUARE ,RM-PINCHIN-LANE
+		      ,RM-SWAN-LANE>>
+	 ; "LG-WEST-WALL"
+	 <COND (<MC-VERB? EXAMINE LOOK-ON>
+		<COND (<MC-HERE? ,RM-SWAN-LANE>
+		       <TELL ,K-SIGN-HERE-MSG>)>)>)
+	(T
+	 <COND (<F? .ADJ>
+		<SET ADJ <RANDOM 4>>
+		<COND (<1? .ADJ> <SET ADJ ,W?NORTH>)
+		      (<==? .ADJ 2> <SET ADJ ,W?SOUTH>)
+		      (<==? .ADJ 3> <SET ADJ ,W?EAST>)
+		      (T <SET ADJ ,W?WEST>)>)>
+	 <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		<COND (<==? .ADJ ,W?NORTH>
+		       <COND (<MC-VERB? EXAMINE LOOK-ON>
+			      <COND (<MC-HERE? ,RM-HOLMES-STUDY>
+				     <TELL
+"There is a large fireplace set into the north wall.">)>)>)
+		      (<==? .ADJ ,W?SOUTH>
+		       <COND (<MC-VERB? EXAMINE LOOK-ON>
+			      <COND (<MC-HERE? ,RM-HOLMES-STUDY>
+				     <TELL
+"There is a patriotic \"V.R.\" spelled out in bullet marks
+on the south wall." CR>)>)>)>)
+	       (T
+		<TELL ,K-NOT-SEE-HERE-MSG CR>)>)>>
+
+<OBJECT TH-CROWDS
+   (LOC GLOBAL-OBJECTS)
+   (DESC "crowds")
+   (FLAGS FL-PLURAL FL-HAS-DESCFCN)
+   (SYNONYM CROWDS CROWD TOURISTS SHOPPERS WOMEN PEOPLE)
+   (ACTION RT-AC-TH-CROWDS)>
+
+<ROUTINE RT-AC-TH-CROWDS ("OPT" (CONTEXT <>))
+  <COND (<OR <AND <FSET? ,GL-PLACE-CUR ,FL-INDOORS>
+		  <NOT <MC-HERE? ,RM-BRITISH-MUSEUM>>>
+	     <FSET? ,GL-PLACE-CUR ,FL-NO-CROWDS>>
+	 <TELL "At last you've found some respite from the crowds." CR>
+	 <RTRUE>)>
+  <COND (<==? .CONTEXT ,K-M-DESCFCN>
+	 <COND (<EQUAL? ,GL-PLACE-CUR ,RM-FLEET-STREET>
+		<COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		       <TELL "They're all inside, hard at work." CR>)
+		      (T
+		       <TELL
+"They hurry past you, intent on getting to their offices." CR>)>)
+	       (<EQUAL? <RT-TIME-OF-DAY> 0>
+		<TELL "There are no crowds here. They're all asleep." CR>
+		<RTRUE>)
+	       (<EQUAL? ,GL-PLACE-CUR ,RM-TOTTENHAM-COURT-RD ,RM-OXFORD-ST>
+		<TELL
+"The shoppers don't appear happy that the shops are closed.">)
+	       (<EQUAL? ,GL-PLACE-CUR ,RM-TRAFALGAR-SQUARE>
+	        <TELL "The people are happily feeding the pigeons." CR>)
+	       (<EQUAL? ,GL-PLACE-CUR ,RM-GROSVENOR-PLACE>
+	        <TELL "The people are anxiously consulting their sight-seeing
+maps." CR>)
+	       (<EQUAL? ,GL-PLACE-CUR ,RM-THE-STRAND>
+	        <COND (<EQUAL? <RT-TIME-OF-DAY> 3>
+		       <TELL
+"The theatre goers are happily discussing the evening's entertainment." CR>)
+		      (T
+		       <TELL
+"The crowds are trying to select a show to attend this evening." CR>)>)
+	       (T
+		<COND (<EQUAL? <RT-TIME-OF-DAY> 2>
+		       <TELL "They surge around you, excited about the
+sight-seeing they have planned for today." CR>)
+		      (<EQUAL? <RT-TIME-OF-DAY> 3>
+		       <TELL "They nearly trample you in their eagerness
+to get back to their hotels before darkness falls." CR>)
+		      (<EQUAL? <RT-TIME-OF-DAY> 1>
+		       <TELL "They surge around you, intent on their
+sight-seeing." CR>)>
+		<RTRUE>)>
+	 <RTRUE>)
+	(<EQUAL? <RT-TIME-OF-DAY> 0>
+	 <TELL "There are no tourists here. They're all asleep." CR>)>>
+
+<OBJECT TH-POCKET
+   (LOC TH-WATSONS-COAT)
+   (DESC "pocket")
+   (FLAGS FL-SEEN FL-NODESC FL-CONTAINER FL-OPENED FL-YOUR FL-NOALL)
+   (SYNONYM POCKET POCKETS)
+   (ADJECTIVE MY)
+   (SIZE 0 CAPACITY 10)
+   (ACTION RT-AC-TH-POCKET)>
+
+<OBJECT TH-GUN
+   (LOC TH-MANTELPIECE)
+   (DESC "pistol")
+   (FLAGS FL-TAKEABLE FL-WEAPON FL-HAS-DESCFCN)
+   (SYNONYM GUN PISTOL REVOLVER)
+   (SIZE 5 MASS 10 CAPACITY 0)
+   (ACTION RT-AC-TH-GUN)>
+
+<OBJECT TH-MAIL
+   (LOC TH-MANTELPIECE)
+   (DESC "mail")
+   (FLAGS FL-PLURAL FL-COLLECTIVE FL-TAKEABLE FL-READABLE
+	  FL-BURNABLE FL-OPENABLE FL-HAS-DESCFCN)
+   (SYNONYM MAIL LETTER LETTERS)
+   (ADJECTIVE HOLMES\' HOLMES\'S)
+   (SIZE 5)
+   (ACTION RT-AC-TH-MAIL)>
+
+<OBJECT TH-KNIFE
+   (LOC TH-MANTELPIECE)
+   (DESC "knife")
+   (FLAGS FL-TAKEABLE FL-WEAPON FL-KNIFE FL-OPENABLE FL-OPENED
+          FL-HAS-DESCFCN)
+   (SYNONYM KNIFE JACKKNIFE)
+   (SIZE 5)
+   (ACTION RT-AC-TH-KNIFE)>
+
+<OBJECT TH-MAGNIFYING-GLASS
+   (LOC TH-BEDSIDE-TABLE)
+   (DESC "magnifying glass")
+   (FLAGS FL-TAKEABLE FL-TRANSPARENT FL-HAS-DESCFCN)
+   (SYNONYM GLASS LENS)
+   (ADJECTIVE MAGNIFYING HOLMES\' HOLMES\'S)
+   (VALUE 1)
+   (SIZE 5 MASS 4)
+   (ACTION RT-AC-TH-MAGNIFYING-GLASS)>
+
+<OBJECT TH-NEWSPAPER
+   (LOC RM-HOLMES-STUDY)
+   (DESC "newspaper")
+   (FLAGS FL-TAKEABLE FL-READABLE FL-BURNABLE FL-SURFACE
+	  FL-HAS-DESCFCN)
+   (SYNONYM NEWSPAPER PAPER PAPERS)
+   (ADJECTIVE NEWSPAPER NEWS)
+   (VALUE 1)
+   (SIZE 5 CAPACITY 10)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-NEWSPAPER)>
+
+<OBJECT TH-VIOLIN
+   (LOC RM-HOLMES-STUDY)
+   (DESC "violin")
+   (FLAGS FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM VIOLIN FIDDLE)
+   (SIZE 5)
+   (ACTION RT-AC-TH-VIOLIN)>
+
+<OBJECT TH-WESTMINSTER-CLUE
+   (LOC CH-PRIME-MINISTER)
+   (DESC "clue paper")
+   (FLAGS FL-TAKEABLE FL-READABLE FL-BURNABLE FL-HAS-DESCFCN)
+   (SYNONYM PAPER PAPERS VERSE POEM)
+   (ADJECTIVE CLUE)
+   (SIZE 1)
+   (FLIPPED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-WESTMINSTER-CLUE)>
+
+<OBJECT TH-PHIAL
+   (LOC CH-HOLMES)
+   (DESC "phial")
+   (FLAGS FL-TRYTAKE FL-CONTAINER FL-TRANSPARENT FL-NOALL)
+   (SYNONYM PHIAL VIAL)
+   (SIZE 1)
+   (ACTION RT-AC-TH-PHIAL)>
+
+<OBJECT TH-PERSIAN-SLIPPER
+   (LOC TH-MANTELPIECE)
+   (DESC "persian slipper")
+   (FLAGS FL-TAKEABLE FL-CONTAINER FL-OPENED)
+   (SYNONYM SLIPPER)
+   (ADJECTIVE PERSIAN)
+   (SIZE 5 CAPACITY 2)>
+
+<OBJECT TH-PIPE
+   (LOC TH-MANTELPIECE)
+   (DESC "pipe")
+   (FLAGS FL-TAKEABLE FL-CONTAINER FL-OPENED FL-HAS-DESCFCN)
+   (SYNONYM PIPE)
+   (VALUE 1)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-PIPE)>
+
+<OBJECT TH-MATCH
+   (LOC TH-MATCHBOOK)
+   (FLAGS FL-TAKEABLE FL-BURNABLE FL-HAS-SDESC FL-HAS-DESCFCN)
+   (SYNONYM MATCH)
+   (ADJECTIVE ZZZP)
+   (SIZE 1)
+   (ACTION RT-AC-TH-MATCH)>
+
+<OBJECT TH-BOAT
+   (LOC RM-THE-EMBANKMENT)
+   (DESC "old boat")
+   (FLAGS FL-VOWEL FL-VEHICLE FL-CONTAINER FL-OPENED FL-HAS-DESCFCN)
+   (SYNONYM BOAT ROWBOAT)
+   (ADJECTIVE OLD)
+   (SIZE 50 CAPACITY 999)
+   (ACTION RT-AC-TH-BOAT)
+   (CONTFCN RT-CF-TH-BOAT)>
+
+<OBJECT TH-OAR-1
+   (LOC TH-BOAT)
+   (DESC "weathered old oar")
+   (FLAGS FL-TAKEABLE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM OAR)
+   (ADJECTIVE OLD WEATHERED)
+   (SIZE 20)
+   (GENERIC RT-GN-OAR)
+   (ACTION RT-AC-TH-OAR-1)>
+
+<OBJECT TH-OAR-2
+   (LOC TH-BLIGH-BOAT)
+   (DESC "Captain Bligh's oar")
+   (FLAGS FL-NOARTC FL-TAKEABLE FL-NOALL)
+   (SYNONYM OAR)
+   (ADJECTIVE CAPTAIN\'S BLIGH\'S)
+   (VALUE 1)
+   (SIZE 20)
+   (GENERIC RT-GN-OAR)>
+
+<OBJECT TH-CLAPPER
+   (LOC TH-BELL)
+   (DESC "clapper")
+   (FLAGS FL-NODESC FL-TRYTAKE FL-SURFACE FL-HAS-DESCFCN)
+   (SYNONYM CLAPPER)
+   (ACTION RT-AC-TH-CLAPPER)>
+
+<OBJECT TH-COTTON-BALLS
+   (LOC TH-BLUE-PILL-BOTTLE)
+   (DESC "cotton balls")
+   (FLAGS FL-PLURAL FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM BALL BALLS COTTONBALL)
+   (ADJECTIVE COTTON)
+   (SIZE 1)
+   (ACTION RT-AC-TH-COTTON-BALLS)>
+
+<OBJECT TH-BELL
+   (LOC RM-CLOCK-TOWER)
+   (DESC "Big Ben")
+   (FLAGS FL-NODESC FL-NOARTC FL-TRYTAKE FL-CONTAINER FL-OPENED FL-NOALL
+          FL-HAS-DESCFCN)
+   (SYNONYM BEN BELL TOWER)
+   (GENERIC RT-GN-TOWER)
+   (ADJECTIVE BIG CLOCK BELL)
+   (SIZE 50 MASS 50 CAPACITY 0)
+   (ACTION RT-AC-TH-BELL)>
+
+<OBJECT TH-STETHOSCOPE
+   (LOC TH-WATSONS-HAT)
+   (DESC "stethoscope")
+   (FLAGS FL-CLOTHING FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM STETHOSCOPE SS STETH)
+   (ADJECTIVE MY)
+   (VALUE 1)
+   (SIZE 1)
+   (ACTION RT-AC-TH-STETHOSCOPE)>
+
+<OBJECT TH-DIAL
+   (LOC LG-BANK-VAULT-DOOR)
+   (DESC "dial")
+   (FLAGS FL-NODESC FL-READABLE FL-LOCKED)
+   (SYNONYM DIAL)
+   (ACTION RT-AC-TH-DIAL)>
+
+<OBJECT TH-WATSONS-HAT
+   (LOC CH-PLAYER)
+   (DESC "hat")
+   (FLAGS FL-TAKEABLE FL-SEEN FL-CLOTHING FL-WORN FL-CONTAINER
+	  FL-YOUR FL-HAS-DESCFCN)
+   (SYNONYM HAT BOWLER)
+   (SIZE 5 CAPACITY 2)
+   (ACTION RT-AC-TH-WATSONS-HAT)>
+
+<OBJECT TH-ELIZAS-FLOWERS
+   (LOC CH-ELIZA-DOOLITTLE)
+   (DESC "flowers")
+   (FLAGS FL-PLURAL FL-CONTAINER FL-OPENED FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM FLOWERS FLOWER CARNATION)
+   (ADJECTIVE HER ELIZA\'S GIRL\'S)
+   (SIZE 5)
+   (ACTION RT-AC-TH-ELIZAS-FLOWERS)>
+
+<OBJECT TH-CARNATION
+   (DESC "carnation")
+   (FLAGS FL-TAKEABLE FL-CLOTHING)
+   (SYNONYM CARNATION FLOWER)
+   (ADJECTIVE GIRL\'S ELIZA\'S)
+   (VALUE 5)
+   (SIZE 1 MASS 1)
+   (ACTION RT-AC-TH-CARNATION)>
+
+<OBJECT TH-SAPPHIRE
+   (LOC TH-CLAPPER)
+   (FLAGS FL-TAKEABLE FL-READABLE FL-NODESC FL-SURFACE FL-MONEY
+	  FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (SYNONYM SAPPHIRE GEM GEMS SCRATCH)
+   (ADJECTIVE SAPPHIRE BLUE)
+   (VALUE 5)
+   (SIZE 1 CAPACITY 1)
+   (GENERIC RT-GN-GEM)
+   (ACTION RT-AC-TH-SAPPHIRE)>
+
+<OBJECT TH-OPAL
+   (DESC "opal")
+   (FLAGS FL-VOWEL FL-TAKEABLE FL-READABLE FL-SURFACE FL-MONEY
+	  FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (SYNONYM OPAL GEM GEMS SCRATCH)
+   (ADJECTIVE OPAL OPAL'S)
+   (VALUE 5)
+   (SIZE 1 MASS 1 CAPACITY 1)
+   (GENERIC RT-GN-GEM)
+   (ACTION RT-AC-TH-OPAL)>
+
+<OBJECT TH-RUBY
+   (LOC TH-NELSON-STATUE)
+   (FLAGS FL-TAKEABLE FL-READABLE FL-SURFACE FL-MONEY FL-HAS-DESCFCN
+	  FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (SYNONYM RUBY GEM GEMS SCRATCH)
+   (ADJECTIVE RUBY RED RUBY\'S)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (VALUE 5)
+   (SIZE 1 MASS 1 CAPACITY 1)
+   (GENERIC RT-GN-GEM)
+   (ACTION RT-AC-TH-RUBY)>
+
+<OBJECT TH-TOPAZ
+   (LOC TH-SAFETY-DEPOSIT-BOX)
+   (DESC "topaz")
+   (FLAGS FL-TAKEABLE FL-READABLE FL-SURFACE FL-MONEY FL-HAS-DESCFCN
+	  FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (SYNONYM TOPAZ GEM GEMS SCRATCH)
+   (ADJECTIVE TOPAZ TOPAZ\'S)
+   (VALUE 5)
+   (SIZE 1 MASS 1 CAPACITY 1)
+   (GENERIC RT-GN-GEM)
+   (ACTION RT-AC-TH-TOPAZ)>
+
+<OBJECT TH-PACKET-OF-PAPER
+   (LOC RM-NORTH-CLOISTER)
+   (DESC "pacquet of paper")
+   (FLAGS FL-TAKEABLE FL-CONTAINER FL-OPENABLE FL-READABLE)
+   (SYNONYM PACK PAPER PACQUET PACKET BOX)
+   (ADJECTIVE PACK PAPER PACKET PACQUET)
+   (VALUE 1)
+   (SIZE 5 CAPACITY 10)
+   (GENERIC RT-GN-BOX)>
+
+<OBJECT TH-GREEN-PAPER
+   (LOC TH-PACKET-OF-PAPER)
+   (DESC "green piece of paper")
+   (FLAGS FL-TAKEABLE FL-SURFACE FL-READABLE FL-BURNABLE)
+   (SYNONYM PAPER PAPERS BACK)
+   (ADJECTIVE PIECE GREEN BACK)
+   (SIZE 1 CAPACITY 11)
+   (INSCRIPTION 0)
+   (FLIPPED 0)
+   (HEATED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-GREEN-PAPER)>
+
+<OBJECT TH-WHITE-PAPER
+   (LOC TH-PACKET-OF-PAPER)
+   (DESC "white piece of paper")
+   (FLAGS FL-TAKEABLE FL-SURFACE FL-READABLE FL-BURNABLE)
+   (SYNONYM PAPER PAPERS BACK)
+   (ADJECTIVE PIECE WHITE BACK)
+   (SIZE 1 CAPACITY 11)
+   (INSCRIPTION 0)
+   (FLIPPED 0)
+   (HEATED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-WHITE-PAPER)>
+
+<OBJECT TH-BLUE-PAPER
+   (LOC TH-PACKET-OF-PAPER)
+   (DESC "blue piece of paper")
+   (FLAGS FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE)
+   (SYNONYM PAPER PAPERS BACK)
+   (ADJECTIVE PIECE BLUE BACK)
+   (SIZE 1 CAPACITY 11)
+   (INSCRIPTION 0)
+   (FLIPPED 0)
+   (HEATED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-BLUE-PAPER)>
+
+<OBJECT TH-ORANGE-PAPER
+   (LOC TH-PACKET-OF-PAPER)
+   (DESC "orange piece of paper")
+   (FLAGS FL-VOWEL FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE)
+   (SYNONYM PAPER PAPERS BACK)
+   (ADJECTIVE PIECE ORANGE BACK)
+   (SIZE 1 CAPACITY 11)
+   (INSCRIPTION 0)
+   (FLIPPED 0)
+   (HEATED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-ORANGE-PAPER)>
+
+<OBJECT TH-YELLOW-PAPER
+   (LOC TH-PACKET-OF-PAPER)
+   (DESC "yellow piece of paper")
+   (FLAGS FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE)
+   (SYNONYM PAPER PAPERS BACK)
+   (ADJECTIVE PIECE YELLOW BACK)
+   (SIZE 1 CAPACITY 11)
+   (INSCRIPTION 0)
+   (FLIPPED 0)
+   (HEATED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-YELLOW-PAPER)>
+
+<OBJECT TH-BROWN-PAPER
+   (LOC TH-PACKET-OF-PAPER)
+   (DESC "brown piece of paper")
+   (FLAGS FL-READABLE FL-SURFACE FL-TAKEABLE FL-BURNABLE)
+   (SYNONYM PAPER PAPERS BACK)
+   (ADJECTIVE PIECE BROWN BACK)
+   (SIZE 1 CAPACITY 11)
+   (INSCRIPTION 0)
+   (FLIPPED 0)
+   (HEATED 0)
+   (GENERIC RT-GN-PAPER)
+   (ACTION RT-AC-TH-BROWN-PAPER)>
+
+<OBJECT TH-BANK-OF-CANDLES
+   (LOC RM-EVANGELIST-CHAPEL)
+   (DESC "bank of candles")
+   (FLAGS FL-NODESC FL-LIGHTED FL-BURNABLE FL-TRYTAKE)
+   (SYNONYM BANK CANDLES CANDLE FLAME)
+   (ADJECTIVE BANK CANDLES)
+   (ACTION RT-AC-TH-BANK-OF-CANDLES)>
+
+<OBJECT TH-CRAYON
+   (LOC RM-NORTH-CLOISTER)
+   (DESC "crayon")
+   (FLAGS FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM CRAYON)
+   (VALUE 1)
+   (SIZE 1)
+   (ACTION RT-AC-TH-CRAYON)>
+
+<OBJECT TH-WATSONS-COAT
+   (LOC CH-PLAYER)
+   (DESC "coat")
+   (FLAGS FL-CLOTHING FL-SEEN FL-TAKEABLE FL-WORN FL-CONTAINER
+	  FL-OPENED FL-YOUR FL-HAS-DESCFCN)
+   (SYNONYM COAT)
+   (SIZE 5 CAPACITY 15)
+   (ACTION RT-AC-TH-WATSONS-COAT)>
+
+<OBJECT TH-LAPEL
+   (LOC TH-WATSONS-COAT)
+   (DESC "lapel")
+   (FLAGS FL-SEEN FL-NODESC FL-CONTAINER FL-OPENED FL-NOALL FL-TRYTAKE FL-YOUR)
+   (SYNONYM LAPEL)
+   (SIZE 3 CAPACITY 3)
+   (ACTION RT-AC-TH-LAPEL)>
+
+<OBJECT TH-EDWARD-TOMB
+   (LOC RM-CONFESSOR-CHAPEL)
+   (DESC "Edward the Confessor's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE
+	  FL-VOWEL FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM TOMB CONFESSOR INSCRIPTION)
+   (ADJECTIVE EDWARD EDWARD\'S)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-EDWARD-TOMB)>
+
+<OBJECT TH-ELIZABETH-TOMB
+   (LOC RM-NORTH-CHAPEL-AISLE)
+   (DESC "Elizabeth's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE
+	  FL-VOWEL FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION)
+   (ADJECTIVE ELIZABETH MARY TUDOR)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-ELIZABETH-TOMB)>
+
+<OBJECT TH-NEWTON-TOMB
+   (LOC RM-NAVE)
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (OBJ-NOUN 0)
+   (OBJ-ADJ 0)
+   (SYNONYM TOMB INSCRIPTION SARCOPHAGUS STATUE CHERUB CHERUBS ANGELS ANGEL
+	    DIAGRAM SYSTEM)
+   (ADJECTIVE NEWTON\'S NEWTON SOLAR)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-NEWTON-TOMB)>
+
+<OBJECT TH-HENRY-V-TOMB
+   (LOC RM-CONFESSOR-CHAPEL)
+   (DESC "Henry V's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION COFFIN EFFIGY)
+   (ADJECTIVE HENRY HENRY\'S V V\'S)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-HENRY-V-TOMB)>
+
+<OBJECT TH-POPE-TOMB
+   (LOC RM-SOUTH-AISLE)
+   (DESC "Alexander Pope's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION)
+   (ADJECTIVE POPE POPE\'S)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-POPE-TOMB)>
+
+<OBJECT TH-DICKENS-TOMB
+   (LOC RM-SOUTH-TRANSEPT)
+   (DESC "Charles Dickens's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION)
+   (ADJECTIVE DICKENS DICKENS\')
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-DICKENS-TOMB)>
+
+<OBJECT TH-CHAUCER-TOMB
+   (LOC RM-POETS-CORNER)
+   (DESC "Geoffrey Chaucer's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION SARCOPHAGUS)
+   (ADJECTIVE CHAUCER CHAUCER\'S)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-CHAUCER-TOMB)>
+
+<OBJECT TH-ANNE-OF-CLEVES-TOMB
+   (LOC RM-SANCTUARY)
+   (DESC "Anne of Cleve's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE
+	  FL-VOWEL FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION ANNE CLEVES)
+   (ADJECTIVE ANNE CLEVES CLEVES\' ANNE\'S ANNES)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-ANNE-OF-CLEVES-TOMB)>
+
+<OBJECT TH-LITTLE-PRINCES-TOMB
+   (LOC RM-INNOCENTS-CORNER)
+   (DESC "tomb of the Little Princes in the Tower")
+   (FLAGS FL-NODESC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB URN INSCRIPTION SARCOPHAGUS)
+   (ADJECTIVE LITTLE PRINCES PRINCES\')
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-LITTLE-PRINCES-TOMB)>
+
+<OBJECT TH-MARY-QUEEN-OF-SCOTS-TOMB
+   (LOC RM-SOUTH-CHAPEL-AISLE)
+   (DESC "Mary, Queen of Scots' tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION SARCOPHAGUS EFFIGY)
+   (ADJECTIVE MARY SCOTS SCOTS\' MARY\'S QUEEN)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB)>
+
+<OBJECT TH-HENRY-VII-TOMB
+   (LOC RM-HENRY-VII-CHAPEL)
+   (DESC "Henry VII's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION)
+   (ADJECTIVE HENRY VII HENRY\'S VII\'S ELIZABETH YORK)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-HENRY-VII-TOMB)>
+
+<OBJECT TH-PITT-TOMB
+   (LOC RM-NORTH-TRANSEPT)
+   (DESC "Pitt the Younger's tomb")
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM TOMB INSCRIPTION)
+   (ADJECTIVE PITT YOUNGER PITT\'S)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-PITT-TOMB)>
+
+<OBJECT TH-FIGURES
+   (LOC RM-NORTH-TRANSEPT)
+   (DESC "allegorical figures")
+   (FLAGS FL-NODESC FL-NOALL FL-VOWEL FL-PLURAL FL-HAS-DESCFCN)
+   (SYNONYM FIGURES FIGURE)
+   (ADJECTIVE ALLEGORICAL)
+   (ACTION RT-AC-TH-FIGURES)>
+
+<OBJECT TH-VERE-TOMB
+   (LOC RM-EVANGELIST-CHAPEL)
+   (FLAGS FL-NODESC FL-NOARTC FL-READABLE FL-SURFACE FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (SYNONYM TOMB INSCRIPTION EFFIGY KNIGHT KNIGHTS ARMOR ARMOUR SUIT) 
+   (ADJECTIVE VERE VERE\'S SUIT ARMOUR ARMOR)
+   (OBJ-NOUN 0)
+   (OBJ-ADJ 0)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-VERE-TOMB)>
+
+<OBJECT TH-LAMP
+   (LOC TH-BEDSIDE-TABLE)
+   (DESC "lamp")
+   (FLAGS FL-LAMP FL-ASLEEP FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM LAMP LANTERN LIGHT)
+   (ADJECTIVE BRASS LIGHT)
+   (VALUE 3)
+   (SIZE 5 MASS 4)
+   (ACTION RT-AC-TH-LAMP)>
+
+<OBJECT TH-CLUMP-OF-MOSS
+   (LOC RM-THAMES-THREE)
+   (DESC "clump of moss")
+   (FLAGS FL-CONTAINER FL-NODESC FL-OPENED FL-TAKEABLE FL-TRYTAKE
+	  FL-HAS-DESCFCN)
+   (SYNONYM MOSS CLUMP)
+   (ADJECTIVE CLUMP MOSS)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-CLUMP-OF-MOSS)>
+
+<OBJECT TH-BLIGH-BOAT
+   (LOC RM-THE-BLACK-MUSEUM)
+   (DESC "Captain Bligh's boat")
+   (FLAGS FL-NODESC FL-CONTAINER FL-OPENED FL-TRYTAKE FL-NOARTC FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM BOAT ROWBOAT)
+   (ADJECTIVE BLIGH BLIGH\'S)
+   (SIZE 50 CAPACITY 999)
+   (ACTION RT-AC-TH-BLIGH-BOAT)>
+
+<OBJECT TH-ANCHOR
+   (LOC LG-WATER)
+   (DESC "anchor")
+   (FLAGS FL-TRYTAKE FL-TAKEABLE FL-VOWEL FL-HAS-DESCFCN)
+   (SYNONYM ANCHOR)
+   (SIZE 5 MASS 5)
+   (ACTION RT-AC-TH-ANCHOR)>
+
+<OBJECT TH-NELSON-STATUE
+   (LOC TH-NELSON-COLUMN)
+   (DESC "statue of Admiral Lord Nelson")
+   (FLAGS FL-NODESC FL-CONTAINER FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM NELSON STATUE)
+   (ADJECTIVE NELSON ADMIRAL LORD NELSON\'S)
+   (SIZE 0 CAPACITY 5)
+   (ACTION RT-AC-TH-NELSON-STATUE)>
+
+<OBJECT TH-CROWN-JEWELS
+   (LOC TH-MORIARTY-DESK)
+   (DESC "the Crown Jewels")
+   (FLAGS FL-PLURAL FL-TAKEABLE FL-NOARTC FL-TRYTAKE FL-MONEY FL-HAS-DESCFCN)
+   (SYNONYM JEWELS REGALIA DIAMOND)
+   (ADJECTIVE CROWN)
+   (VALUE 10)
+   (SIZE 10 MASS 10)
+   (ACTION RT-AC-TH-CROWN-JEWELS)>
+
+<OBJECT TH-LAIR-KEY
+   (LOC TH-MORIARTY-DESK)
+   (DESC "Moriarty's key")
+   (FLAGS FL-KEY FL-TAKEABLE FL-NOARTC)
+   (SYNONYM KEY)
+   (ADJECTIVE MORIARTY)
+   (SIZE 1)>
+
+<OBJECT TH-ETHERIUM-AMPOULE
+   (LOC TH-WORKBENCH)
+   (FLAGS FL-CONTAINER FL-OPENABLE FL-TAKEABLE FL-VOWEL FL-READABLE
+	  FL-HAS-SDESC)
+   (SYNONYM AMPOULE ETHERIUM AMPULE LABEL)
+   (ADJECTIVE ETHERIUM ETHERIUM)
+   (GENERIC RT-GN-ETHERIUM)
+   (SIZE 2 MASS 1)
+   (ACTION RT-AC-TH-ETHERIUM-AMPOULE)>
+
+<VOC "BROKEN" ADJ>
+
+<OBJECT TH-LAB-EQUIPMENT
+   (LOC TH-WORKBENCH)
+   (DESC "laboratory equipment")
+   (FLAGS FL-TRYTAKE FL-PLURAL FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM EQUIPMENT BEAKERS TESTUBES PIPETTES EXPERIMENT)
+   (ADJECTIVE LABORATORY LAB)
+   (ACTION RT-AC-TH-LAB-EQUIPMENT)>
+
+; "TH-BROKEN-AMPOULE"
+
+; "TH-ETHERIUM-GAS"
+
+<OBJECT TH-ETHERIUM-GAS
+   (LOC TH-ETHERIUM-AMPOULE)
+   (DESC "etherium gas")
+   (FLAGS FL-TRANSPARENT FL-NODESC FL-VOWEL FL-HAS-DESCFCN)
+   (SYNONYM GAS ETHERIUM)
+   (ADJECTIVE ETHERIUM GAS)
+   (GENERIC RT-GN-ETHERIUM)
+   (ACTION RT-AC-TH-ETHERIUM-GAS)>
+
+<OBJECT TH-MANTELPIECE
+   (LOC RM-HOLMES-STUDY)
+   (DESC "mantelpiece")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL)
+   (SYNONYM MANTELPIECE MANTEL MANTLEPIECE MANTLE)
+   (SIZE 50 CAPACITY 50)>
+
+<OBJECT TH-WORKBENCH
+   (LOC RM-HOLMES-BEDROOM)
+   (DESC "workbench")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL)
+   (SYNONYM WORKBENCH BENCH)
+   (ADJECTIVE WORK)
+   (SIZE 50 CAPACITY 50)>
+
+<OBJECT TH-BLACK-BAG
+   (LOC CH-PLAYER)
+   (DESC "black bag")
+   (FLAGS FL-CONTAINER FL-SEEN FL-OPENABLE FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM BAG)
+   (ADJECTIVE BLACK MEDICAL)
+   (SIZE 15 CAPACITY 999)
+   (ACTION RT-AC-TH-BLACK-BAG)>
+
+<OBJECT TH-CHARLES-STATUE
+   (LOC RM-CHAMBER-OF-HORRORS)
+   (DESC "statue of Charles I")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM CHARLES CHARLES\' STATUE I WAX)
+   (ADJECTIVE CHARLES WAX)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-CHARLES-STATUE)>
+
+<OBJECT TH-WILLIAM-STATUE
+   (LOC RM-MADAME-TUSSAUDS)
+   (DESC "statue of William the Conqueror")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM WILLIAM CONQUEROR STATUE WAX)
+   (ADJECTIVE WILLIAM WAX WILLIAM\'S)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-WILLIAM-STATUE)>
+
+<OBJECT TH-WALTER-STATUE
+   (LOC RM-MADAME-TUSSAUDS)
+   (DESC "statue of Sir Walter Raleigh")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM WALTER RALEIGH STATUE WAX)
+   (ADJECTIVE SIR WALTER RALEIGH WAX WALTER\'S RALEIGH\'S)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-WALTER-STATUE)>
+
+<OBJECT TH-ELIZABETH-STATUE
+   (LOC RM-MADAME-TUSSAUDS)
+   (DESC "figure of Queen Elizabeth")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM FIGURE ELIZABETH WAX)
+   (ADJECTIVE QUEEN)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-ELIZABETH-STATUE)>
+
+<OBJECT TH-THOMAS-STATUE
+   (LOC RM-CHAMBER-OF-HORRORS)
+   (DESC "statue of Saint Thomas Becket")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM THOMAS BECKET STATUE WAX)
+   (ADJECTIVE SAINT THOMAS BECKET WAX BECKET\'S)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-THOMAS-STATUE)>
+
+<OBJECT TH-DRAKE-STATUE
+   (LOC RM-MADAME-TUSSAUDS)
+   (DESC "statue of Sir Francis Drake")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM FRANCIS DRAKE STATUE WAX)
+   (ADJECTIVE SIR FRANCIS DRAKE WAX DRAKE\'S)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-DRAKE-STATUE)>
+
+<OBJECT TH-JOHN-STATUE
+   (LOC RM-MADAME-TUSSAUDS)
+   (DESC "statue of King John")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM JOHN STATUE WAX)
+   (ADJECTIVE KING JOHN WAX JOHN\'S)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-JOHN-STATUE)>
+
+<OBJECT TH-FAWKES-STATUE
+   (LOC RM-CHAMBER-OF-HORRORS)
+   (DESC "statue of Guy Fawkes")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM FAWKES STATUE WAX)
+   (ADJECTIVE GUY WAX FAWKES\' GUY\'S)
+   (GENERIC RT-GN-WAX)
+   (ACTION RT-AC-TH-FAWKES-STATUE)>
+
+<OBJECT TH-NELSON-COLUMN
+   (LOC RM-TRAFALGAR-SQUARE)
+   (DESC "Nelson's Column")
+   (FLAGS FL-NODESC FL-READABLE FL-SURFACE FL-NOARTC FL-TRYTAKE FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM COLUMN MONUMENT)
+   (ADJECTIVE NELSON NELSON\'S)
+   (SIZE 100 MASS 100 CAPACITY 100)
+   (ACTION RT-AC-TH-NELSON-COLUMN)>
+
+<OBJECT TH-ROPE
+   (LOC RM-LAIR)
+   (DESC "rope")
+   (FLAGS FL-TAKEABLE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM ROPE)
+   (SIZE 15 MASS 3)
+   (ACTION RT-AC-TH-ROPE)>
+
+<OBJECT TH-LIQUID
+   (LOC TH-PHIAL)
+   (DESC "clear, colourless liquid")
+   (FLAGS FL-HAS-DESCFCN)
+   (SYNONYM LIQUID DRUG COCAINE)
+   (ADJECTIVE CLEAR COLOURLESS)
+   (SIZE 1)
+   (ACTION RT-AC-TH-LIQUID)>
+
+<OBJECT TH-SYRINGE
+   (LOC TH-MOROCCO-CASE)
+   (DESC "syringe")
+   (SYNONYM SYRINGE NEEDLE)
+   (ADJECTIVE HYPODERMIC)
+   (SIZE 1 CAPACITY 5)
+   (ACTION RT-AC-TH-SYRINGE)>
+
+<OBJECT TH-MOROCCO-CASE
+   (LOC TH-SOFA)
+   (FLAGS FL-OPENED FL-CONTAINER FL-NOALL FL-TAKEABLE FL-OPENABLE)
+   (DESC "morocco case")
+   (SYNONYM CASE)
+   (ADJECTIVE MOROCCO)
+   (SIZE 5)
+   (ACTION RT-AC-TH-MOROCCO-CASE)>
+
+<OBJECT TH-DEAD-PIGEON
+   (DESC "dead pigeon")
+   (FLAGS FL-TAKEABLE)
+   (SYNONYM PIGEON BIRD)
+   (ADJECTIVE DEAD)
+   (SIZE 5 CAPACITY 0 MASS 5)
+   (VALUE 0)
+   (GENERIC RT-GN-PIGEON)
+   (ACTION RT-AC-TH-DEAD-PIGEON)>
+
+<OBJECT TH-RED-GLASS
+   (DESC "red piece of glass")
+   (FLAGS FL-TAKEABLE FL-HAS-DESCFCN)
+   (SYNONYM GLASS)
+   (ADJECTIVE RED)
+   (SIZE 5)
+   (ACTION RT-AC-TH-RED-GLASS)>
+
+<OBJECT TH-PIGEONS
+   (LOC RM-TRAFALGAR-SQUARE)
+   (DESC "pigeons")
+   (FLAGS FL-NODESC FL-PLURAL FL-ALIVE FL-TRYTAKE FL-HAS-DESCFCN)
+   (SYNONYM PIGEONS BIRDS)
+   (ADJECTIVE FLOCK GROUP)
+   (SIZE 50 MASS 250)
+   (ACTION RT-AC-TH-PIGEONS)>
+
+<OBJECT TH-BEDSIDE-TABLE
+   (LOC RM-HOLMES-BEDROOM)
+   (DESC "bedside table")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE)
+   (SYNONYM TABLE)
+   (ADJECTIVE BEDSIDE)
+   (SIZE 15 CAPACITY 50)>
+
+<OBJECT TH-BED
+   (LOC RM-HOLMES-BEDROOM)
+   (DESC "bed")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL)
+   (SYNONYM BED)
+   (ADJECTIVE SHERLOCK HOLMES\' HOLMES\'S)
+   (SIZE 15 CAPACITY 999)
+   (ACTION RT-AC-TH-BED)>
+
+<OBJECT TH-MATCHBOOK
+   (LOC RM-PARLOUR)
+   (DESC "matchbook")
+   (FLAGS FL-CONTAINER FL-TAKEABLE FL-OPENABLE FL-READABLE FL-BURNABLE)
+   (SYNONYM BOOK MATCHES MATCHBOOK)
+   (VALUE 1)
+   (SIZE 5 CAPACITY 1)
+   (ACTION RT-AC-TH-MATCHBOOK)>
+
+<OBJECT TH-PADDLE
+   (LOC RM-INSIDE-TRAITORS-GATE)
+   (DESC "paddle")
+   (FLAGS FL-TAKEABLE)
+   (SYNONYM PADDLE)
+   (VALUE 1)
+   (SIZE 15)>
+
+<OBJECT TH-OAR-LOCK
+   (LOC TH-BOAT)
+   (DESC "oarlock")
+   (FLAGS FL-NODESC FL-CONTAINER FL-OPENED)
+   (SYNONYM OARLOCK)
+   (SIZE 0 CAPACITY 100)
+   (ACTION RT-AC-TH-OAR-LOCK)>
+
+<OBJECT TH-CLUE-BOOK
+   (LOC TH-LIBRARY-TABLE)
+   (DESC "old book")
+   (FLAGS FL-CONTAINER FL-OPENABLE FL-TAKEABLE FL-SURFACE FL-BURNABLE
+	  FL-READABLE FL-HAS-DESCFCN FL-VOWEL)
+   (SYNONYM BOOK)
+   (ADJECTIVE OLD)
+   (SIZE 5)
+   (ACTION RT-AC-TH-CLUE-BOOK)>
+
+<OBJECT TH-BOOK-PAGE
+   (LOC TH-CLUE-BOOK)
+   (DESC "book page")
+   (FLAGS FL-READABLE FL-BURNABLE FL-SURFACE FL-NODESC FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM PAGE INTRODUCTION)
+   (ADJECTIVE BOOK)
+   (SIZE 2)
+   (ACTION RT-AC-TH-BOOK-PAGE)>
+
+<OBJECT TH-PRAMS
+   (LOC RM-KENSINGTON-GARDENS)
+   (DESC "prams")
+   (FLAGS FL-CONTAINER FL-OPENABLE FL-NODESC FL-PLURAL)
+   (SYNONYM PRAMS PERAMBULATOR PRAM)
+   (SIZE 0 CAPACITY 20)
+   (ACTION RT-AC-TH-PRAMS)>
+
+<OBJECT TH-PARK-FLOWERS
+   (LOC RM-KENSINGTON-GARDENS)
+   (DESC "flowers")
+   (FLAGS FL-TRYTAKE FL-NODESC FL-PLURAL FL-HAS-DESCFCN)
+   (SYNONYM FLOWERS FLOWER ROSE ROSES DAISIES PETUNIAS
+            PEONIES MARIGOLDS DAFFODILS)
+   (ACTION RT-AC-TH-PARK-FLOWERS)>
+
+<OBJECT TH-SHAFT
+   (LOC RM-CLOCK-TOWER)
+   (DESC "shaft")
+   (FLAGS FL-NODESC FL-CONTAINER FL-NOALL)
+   (SYNONYM SHAFT)
+   (SIZE 0 CAPACITY 999)
+   (ACTION RT-AC-TH-SHAFT)>
+
+<OBJECT TH-LIBRARY-TABLE
+   (LOC RM-MANUSCRIPT-ROOM)
+   (DESC "table")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE)
+   (SYNONYM TABLE)
+   (SIZE 15 CAPACITY 50)>
+
+<OBJECT TH-JEWEL-CASE
+   (LOC RM-JEWEL-ROOM)
+   (DESC "jewel case")
+   (FLAGS FL-NODESC FL-CONTAINER FL-TRYTAKE FL-OPENED FL-NOALL
+	  FL-HAS-DESCFCN)
+   (SYNONYM CASE)
+   (ADJECTIVE JEWEL)
+   (SIZE 15 CAPACITY 50)
+   (ACTION RT-AC-TH-JEWEL-CASE)>
+
+<OBJECT TH-ELIZAS-MOUTH
+   (LOC CH-ELIZA-DOOLITTLE)
+   (DESC "girl's mouth")
+   (FLAGS FL-NODESC FL-CONTAINER FL-OPENED FL-OPENABLE)
+   (SYNONYM MOUTH)
+   (ADJECTIVE HER ELIZA\'S GIRL\'S)
+   (SIZE 0 CAPACITY 1)
+   (GENERIC RT-GN-BODY)
+   (ACTION RT-AC-TH-ELIZAS-MOUTH)>
+
+<OBJECT TH-RUBBINGS
+   (LOC RM-NORTH-CLOISTER)
+   (DESC "rubbings")
+   (FLAGS FL-NODESC FL-PLURAL FL-READABLE FL-HAS-DESCFCN)
+   (SYNONYM RUBBING RUBBINGS)
+   (ADJECTIVE BRASS)
+   (ACTION RT-AC-TH-RUBBINGS)>
+
+<OBJECT TH-SOFA
+   (LOC RM-HOLMES-STUDY)
+   (DESC "sofa")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL)
+   (SYNONYM SOFA COUCH)
+   (SIZE 15 CAPACITY 999)
+   (ACTION RT-AC-TH-SOFA)>
+
+<OBJECT TH-ASH
+   (LOC RM-MADAME-TUSSAUDS)
+   (DESC "cigar ash")
+   (FLAGS FL-NODESC FL-NOALL FL-ASLEEP FL-TAKEABLE FL-VOWEL FL-PLURAL
+          FL-COLLECTIVE FL-HAS-DESCFCN)
+   (SYNONYM SPECK ASH)
+   (ADJECTIVE TRICHINOPOLY FLAKE CIGAR SPECK MY)
+   (ACTION RT-AC-TH-ASH)>
+
+<OBJECT TH-CIGARETTE
+   (LOC CH-TUSSAUDS-GUARD)
+   (DESC "cigarette")
+   (FLAGS FL-LIGHTED FL-BURNABLE FL-TRYTAKE)
+   (SYNONYM CIGARETTE CIGARET)
+   (ADJECTIVE GUARD\'S)
+   (ACTION RT-AC-TH-CIGARETTE)>
+
+<OBJECT TH-TURBAN
+   (LOC CH-AKBAR)
+   (DESC "turban")
+   (FLAGS FL-NODESC FL-NOALL)
+   (SYNONYM TURBAN)
+   (ACTION RT-AC-TH-TURBAN)>
+
+<OBJECT TH-ANCHOR-CHAIN
+   (LOC TH-BOAT)
+   (DESC "anchor chain")
+   (FLAGS FL-NODESC FL-CONTAINER FL-OPENED FL-VOWEL)
+   (SYNONYM CHAIN)
+   (SIZE 5)
+   (ADJECTIVE ANCHOR)
+   (ACTION RT-AC-TH-ANCHOR-CHAIN)>
+
+<OBJECT TH-RAILING
+   (LOC RM-CLOCK-TOWER)
+   (DESC "railing")
+   (FLAGS FL-NODESC FL-SURFACE FL-TRYTAKE FL-NOALL)
+   (SYNONYM RAILING RAIL)
+   (SIZE 50 CAPACITY 50)
+   (ACTION RT-AC-TH-RAILING)>
+
+<OBJECT TH-OPIUM-GAS
+   (LOC RM-BAR-OF-GOLD)
+   (DESC "opium")
+   (FLAGS FL-TRANSPARENT FL-NODESC FL-VOWEL FL-BUYABLE FL-PLURAL FL-COLLECTIVE
+	  FL-HAS-DESCFCN)
+   (SYNONYM GAS OPIUM FUMES)
+   (ACTION RT-AC-TH-OPIUM-GAS)>
+
+<OBJECT TH-TRINKETS
+   (LOC CH-VENDOR)
+   (DESC "trinkets")
+   (FLAGS FL-TRYTAKE FL-BUYABLE FL-PLURAL FL-NODESC FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM TRINKETS BAUBLES TRINKET)
+   (SIZE 15)
+   (ACTION RT-AC-TH-TRINKETS)>
+
+<OBJECT TH-GUARDS-KEYS
+   (LOC TH-GUARDS-POCKET)
+   (DESC "keys")
+   (FLAGS FL-TAKEABLE FL-PLURAL FL-HAS-DESCFCN)
+   (SYNONYM KEYS)
+   (ADJECTIVE HIS GUARD\'S)
+   (ACTION RT-AC-TH-GUARDS-KEYS)>
+
+<OBJECT TH-MORIARTY-DESK
+   (LOC RM-LAIR)
+   (DESC "desk")
+   (FLAGS FL-TRYTAKE FL-NOALL FL-NODESC FL-SURFACE)
+   (SYNONYM DESK TABLE)
+   (ADJECTIVE MORIARTY)
+   (SIZE 15 CAPACITY 50)>
+
+<OBJECT TH-NELSON-EYE
+   (LOC TH-NELSON-COLUMN)
+   (DESC "Nelson's blind eye")
+   (FLAGS FL-NOARTC FL-NODESC FL-TRYTAKE FL-NOALL FL-HAS-DESCFCN)
+   (SYNONYM EYE)
+   (ADJECTIVE NELSON ADMIRAL LORD NELSON\'S BLIND)
+   (ACTION RT-AC-TH-NELSON-EYE)>
+
+;<OBJECT TH-UNINTERESTING-OBJECT
+   (LOC RM-SIGN-OF-RED-HERRING)
+   (DESC "uninteresting object")
+   (FLAGS FL-NODESC FL-TRYTAKE FL-HAS-DESCFCN)
+   (SYNONYM OBJECT)
+   (ADJECTIVE UNINTERESTING)
+   (ACTION RT-AC-TH-UNINTERESTING-OBJECT)>
diff --git a/things2.zabstr b/things2.zabstr
new file mode 100644
index 0000000..ba16024
--- /dev/null
+++ b/things2.zabstr
@@ -0,0 +1,130 @@
+
+<DEFINE-ROUTINE RT-DF-TH-ROOM> 
+<DEFINE-ROUTINE RT-AC-TH-NOT-HERE-OBJECT> 
+<DEFINE-ROUTINE RT-AC-TH-INTDIR> 
+<DEFINE-ROUTINE RT-AC-TH-TIME> 
+<DEFINE-ROUTINE RT-AC-TH-HANDS> 
+<DEFINE-ROUTINE RT-AC-TH-WATSONS-HEART> 
+<DEFINE-ROUTINE RT-AC-TH-EARS> 
+<DEFINE-ROUTINE RT-AC-TH-HEAD> 
+<DEFINE-ROUTINE RT-AC-TH-BREATH> 
+<DEFINE-ROUTINE RT-AC-TH-CLOTHES> 
+<DEFINE-ROUTINE RT-AC-TH-WATERMARK> 
+<DEFINE-ROUTINE RT-AC-TH-SESAME> 
+<DEFINE-ROUTINE RT-AC-TH-RIGHT> 
+<DEFINE-ROUTINE RT-AC-TH-LEFT> 
+<DEFINE-ROUTINE RT-AC-TH-BULLET-HOLE> 
+<DEFINE-ROUTINE RT-AC-TH-GENERIC-BODY> 
+<DEFINE-ROUTINE RT-AC-TH-POCKET> 
+<DEFINE-ROUTINE RT-AC-TH-GUN> 
+<DEFINE-ROUTINE RT-AC-TH-KNIFE> 
+<DEFINE-ROUTINE RT-AC-TH-MAGNIFYING-GLASS> 
+<DEFINE-ROUTINE RT-AC-TH-VIOLIN> 
+<DEFINE-ROUTINE RT-AC-TH-PHIAL> 
+<DEFINE-ROUTINE RT-HOLMES-HITS> 
+<DEFINE-ROUTINE RT-AC-TH-GREEN-PAPER> 
+<DEFINE-ROUTINE RT-AC-TH-WHITE-PAPER> 
+<DEFINE-ROUTINE RT-AC-TH-BLUE-PAPER> 
+<DEFINE-ROUTINE RT-AC-TH-ORANGE-PAPER> 
+<DEFINE-ROUTINE RT-AC-TH-YELLOW-PAPER> 
+<DEFINE-ROUTINE RT-AC-TH-BROWN-PAPER> 
+<DEFINE-ROUTINE RT-AC-TH-ELIZABETH-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-NEWTON-TOMB> 
+<DEFINE-ROUTINE PRINT-SDESC> 
+<DEFINE-ROUTINE RT-AC-TH-HENRY-V-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-EDWARD-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-POPE-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-DICKENS-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-CHAUCER-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-ANNE-OF-CLEVES-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-LITTLE-PRINCES-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-HENRY-VII-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-PITT-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-FIGURES> 
+<DEFINE-ROUTINE RT-AC-TH-VERE-TOMB> 
+<DEFINE-ROUTINE RT-AC-TH-LAMP> 
+<DEFINE-ROUTINE RT-LAMP-SEALED> 
+<DEFINE-ROUTINE RT-BREAK-LAMP> 
+<DEFINE-ROUTINE RT-AC-TH-BLACK-BAG> 
+<DEFINE-ROUTINE RT-AC-TH-CHARLES-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-WILLIAM-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-WALTER-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-ELIZABETH-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-THOMAS-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-DRAKE-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-JOHN-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-FAWKES-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-NELSON-COLUMN> 
+<DEFINE-ROUTINE RT-AC-TH-BOAT> 
+<DEFINE-ROUTINE RT-AC-TH-OAR-1> 
+<DEFINE-ROUTINE RT-AC-TH-OAR-LOCK> 
+<DEFINE-ROUTINE RT-AC-TH-CLAPPER> 
+<DEFINE-ROUTINE RT-AC-TH-COTTON-BALLS> 
+<DEFINE-ROUTINE RT-AC-TH-BELL> 
+<DEFINE-ROUTINE RT-AC-TH-STETHOSCOPE> 
+<DEFINE-ROUTINE RT-AC-TH-WATSONS-HAT> 
+<DEFINE-ROUTINE RT-AC-TH-ELIZAS-FLOWERS> 
+<DEFINE-ROUTINE RT-AC-TH-CARNATION> 
+<DEFINE-ROUTINE RT-AC-TH-EMERALD> 
+<DEFINE-ROUTINE RT-AC-TH-SAPPHIRE> 
+<DEFINE-ROUTINE RT-AC-TH-OPAL> 
+<DEFINE-ROUTINE RT-AC-TH-RUBY> 
+<DEFINE-ROUTINE RT-AC-TH-TOPAZ> 
+<DEFINE-ROUTINE RT-AC-TH-CRAYON> 
+<DEFINE-ROUTINE RT-AC-TH-WATSONS-COAT> 
+<DEFINE-ROUTINE RT-AC-TH-LAPEL> 
+<DEFINE-ROUTINE RT-AC-TH-CLUMP-OF-MOSS> 
+<DEFINE-ROUTINE RT-AC-TH-BLIGH-BOAT> 
+<DEFINE-ROUTINE RT-AC-TH-ANCHOR> 
+<DEFINE-ROUTINE RT-AC-TH-NELSON-STATUE> 
+<DEFINE-ROUTINE RT-AC-TH-CROWN-JEWELS> 
+<DEFINE-ROUTINE RT-AC-TH-ETHERIUM-AMPOULE> 
+<DEFINE-ROUTINE RT-AC-TH-BROKEN-AMPOULE> 
+<DEFINE-ROUTINE RT-AC-TH-ETHERIUM-GAS> 
+<DEFINE-ROUTINE RT-AC-TH-LAB-EQUIPMENT> 
+<DEFINE-ROUTINE RT-AC-TH-ROPE> 
+<DEFINE-ROUTINE RT-AC-TH-LIQUID> 
+<DEFINE-ROUTINE RT-AC-TH-SYRINGE> 
+<DEFINE-ROUTINE RT-AC-TH-MOROCCO-CASE> 
+<DEFINE-ROUTINE RT-AC-TH-DEAD-PIGEON> 
+<DEFINE-ROUTINE RT-AC-TH-PIGEONS> 
+<DEFINE-ROUTINE RT-SHOOT-BIRDS> 
+<DEFINE-ROUTINE RT-AC-TH-RED-GLASS> 
+<DEFINE-ROUTINE RT-AC-TH-BED> 
+<DEFINE-ROUTINE RT-AC-TH-MATCHBOOK> 
+<DEFINE-ROUTINE RT-AC-TH-PICTURES> 
+<DEFINE-ROUTINE RT-AC-TH-CLUE-BOOK> 
+<DEFINE-ROUTINE RT-AC-TH-BOOK-PAGE> 
+<DEFINE-ROUTINE RT-READ-CLUE-BOOK> 
+<DEFINE-ROUTINE RT-AC-TH-BANK-OF-CANDLES> 
+<DEFINE-ROUTINE RT-AC-TH-PRAMS> 
+<DEFINE-ROUTINE RT-AC-TH-PARK-FLOWERS> 
+<DEFINE-ROUTINE RT-AC-TH-ARCH> 
+<DEFINE-ROUTINE RT-AC-TH-SHAFT> 
+<DEFINE-ROUTINE RT-AC-TH-FIREPLACE> 
+<DEFINE-ROUTINE RT-AC-TH-GAS-LIGHT> 
+<DEFINE-ROUTINE RT-AC-TH-CHARIOT> 
+<DEFINE-ROUTINE RT-AC-TH-JEWEL-CASE> 
+<DEFINE-ROUTINE RT-AC-TH-ELIZAS-MOUTH> 
+<DEFINE-ROUTINE RT-AC-TH-RUBBINGS> 
+<DEFINE-ROUTINE RT-AC-TH-SOFA> 
+<DEFINE-ROUTINE RT-AC-TH-MARQUEES> 
+<DEFINE-ROUTINE RT-AC-TH-SUPPORTS> 
+<DEFINE-ROUTINE RT-AC-TH-ASH> 
+<DEFINE-ROUTINE RT-AC-TH-CIGARETTE> 
+<DEFINE-ROUTINE RT-AC-TH-TURBAN> 
+<DEFINE-ROUTINE RT-AC-TH-ANCHOR-CHAIN> 
+<DEFINE-ROUTINE RT-SAY-LOWER-ANCHOR> 
+<DEFINE-ROUTINE RT-SAY-RAISE-ANCHOR> 
+<DEFINE-ROUTINE RT-AC-TH-WAX-OBJECT-1> 
+<DEFINE-ROUTINE RT-AC-TH-LIBRARY-OBJ> 
+<DEFINE-ROUTINE RT-AC-TH-RAILING> 
+<DEFINE-ROUTINE RT-AC-TH-OPIUM-GAS> 
+<DEFINE-ROUTINE RT-AC-TH-PRODUCE> 
+<DEFINE-ROUTINE RT-AC-TH-TRINKETS> 
+<DEFINE-ROUTINE RT-AC-TH-GUARDS-KEYS> 
+<DEFINE-ROUTINE RT-AC-TH-NELSON-EYE> 
+<DEFINE-ROUTINE RT-AC-TH-PANELLING> 
+<DEFINE-ROUTINE RT-AC-TH-INSTRUMENTS> 
+<DEFINE-ROUTINE RT-AC-TH-PLAYER-BODY> 
\ No newline at end of file
diff --git a/things2.zap b/things2.zap
new file mode 100644
index 0000000..f9e3be9
--- /dev/null
+++ b/things2.zap
@@ -0,0 +1,2640 @@
+
+
+	.FUNCT	RT-DF-TH-ROOM,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	FSET?	GL-PLACE-CUR,FL-INDOORS /?CCL5
+	PRINTR	"You're not inside a room."
+?CCL5:	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-NOT-HERE-OBJECT
+	CALL1	RT-TH-NOT-HERE-OBJECT
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-INTDIR
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL3
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+?CCL3:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-TIME,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	GETP	TH-TIME,P?OBJ-NOUN
+	EQUAL?	STACK,W?MINUTE,W?MINUTES \?CCL6
+	PRINTI	"minute"
+	RTRUE	
+?CCL6:	PRINTI	"hour"
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL10
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL10:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL12
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL12:	INTBL?	GL-PRSA,GL-SEE-VERBS+2,20 \FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-HANDS
+	ZERO?	GL-NOW-PRSI? \?CCL3
+	EQUAL?	GL-PRSI,FALSE-VALUE \?CCL6
+	EQUAL?	GL-PRSA,V?TAKE,V?TAKE-OFF \?CCL6
+	FSET?	TH-HANDS,FL-LOCKED \?CCL6
+	FCLEAR	TH-HANDS,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	SET	'HEARD-SWING?,FALSE-VALUE
+	ICALL2	RT-THEO-PRINT,TH-HANDS
+	PRINTI	" off of "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL6:	EQUAL?	GL-PRSI,TH-EARS \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL14
+	FSET?	TH-HANDS,FL-LOCKED /?CCL17
+	PRINTI	"Your hands are not on "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL17:	FCLEAR	TH-HANDS,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	SET	'HEARD-SWING?,FALSE-VALUE
+	ICALL2	RT-THEO-PRINT,TH-HANDS
+	PRINTI	" off of "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL14:	EQUAL?	GL-PRSA,V?PUT-ON \FALSE
+	FSET?	TH-HANDS,FL-LOCKED \?CCL22
+	PRINTI	"Your hands are already on "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL22:	FSET	TH-HANDS,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL2	RT-THEO-PRINT,TH-HANDS
+	PRINTI	" on "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL3:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSO,TH-EARS \FALSE
+	EQUAL?	GL-PRSA,V?COVER \FALSE
+	FSET?	TH-HANDS,FL-LOCKED \?CCL33
+	PRINTI	"Your hands are already on "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL33:	FSET	TH-HANDS,FL-LOCKED
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL2	RT-THEO-PRINT,TH-HANDS
+	PRINTI	" on "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-WATSONS-HEART
+	EQUAL?	GL-PRSA,V?LISTEN \FALSE
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL6
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot hear a thing with "
+	ICALL2	RT-THEO-PRINT,TH-COTTON-BALLS
+	PRINTI	" in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	JUMP	?CND4
+?CCL6:	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL8
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD,RM-LAIR,RM-SWAN-LANE \?CCL11
+	PUSH	8
+	JUMP	?CND9
+?CCL11:	PUSH	6
+?CND9:	ICALL	SOUNDS,S-HEART2,S-START,STACK,8
+	PRINTI	"Your heart is beating "
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD,RM-LAIR,RM-SWAN-LANE \?CCL14
+	PRINTI	"so loudly you're surprised everyone can't hear it"
+	JUMP	?CND4
+?CCL14:	PRINTI	"normally"
+	JUMP	?CND4
+?CCL8:	ICALL1	RT-CYOU-MSG
+	PRINTI	"should wear the stethoscope, first"
+?CND4:	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-EARS
+	ZERO?	GL-NOW-PRSI? /?CCL3
+	EQUAL?	GL-PRSA,V?PUT \?CCL6
+	EQUAL?	GL-PRSO,TH-HANDS,TH-STETHOSCOPE /FALSE
+	EQUAL?	GL-PRSO,TH-COTTON-BALLS \?CCL11
+	FSET?	GL-PRSO,FL-WORN \?CCL14
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+	PRINTI	"already in "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL14:	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL16
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?727,TH-STETHOSCOPE
+	PRINTR	" first."
+?CCL16:	SET	'GL-LISTEN-OBJ,FALSE-VALUE
+	FSET	TH-COTTON-BALLS,FL-WORN
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" in "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL11:	PRINTI	"You cannot put that in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL6:	EQUAL?	GL-PRSA,V?TAKE \?CCL18
+	EQUAL?	GL-PRSO,TH-HANDS,TH-STETHOSCOPE /FALSE
+	EQUAL?	GL-PRSO,TH-COTTON-BALLS \FALSE
+	SET	'GL-LISTEN-OBJ,FALSE-VALUE
+	FCLEAR	TH-COTTON-BALLS,FL-WORN
+	PRINTR	"You take the cotton balls out of your ears."
+?CCL18:	EQUAL?	GL-PRSA,V?EMPTY,V?EMPTY-INTO \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot empty anything into "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL3:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?LOOK-ON,V?EXAMINE \?CCL30
+	PRINT	K-EYES-HINGED-MSG
+	CRLF	
+	RTRUE	
+?CCL30:	EQUAL?	GL-PRSA,V?REACH-IN,V?SEARCH \FALSE
+	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL35
+	ICALL	RT-CYOU-MSG,STR?728,STR?729
+	ICALL2	RT-THEO-PRINT,TH-STETHOSCOPE
+	PRINTR	"."
+?CCL35:	FSET?	TH-COTTON-BALLS,FL-WORN \FALSE
+	ICALL	RT-CYOU-MSG,STR?728,STR?729
+	ICALL2	RT-THEO-PRINT,TH-COTTON-BALLS
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-HEAD
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TOUCH,V?SEARCH \?CCL8
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CCL8
+	PRINTI	"You are wearing "
+	ICALL2	RT-THEO-PRINT,TH-WATSONS-HAT
+	PRINTR	"."
+?CCL8:	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-ON \FALSE
+	PRINT	K-EYES-HINGED-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-BREATH
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL8
+	PRINTI	"It is not cold enough to see "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL8:	EQUAL?	GL-PRSA,V?SMELL \?CCL10
+	PRINTR	"It smells no worse than usual."
+?CCL10:	EQUAL?	GL-PRSA,V?RELEASE \?CCL12
+	CALL1	V-EXHALE
+	RSTACK	
+?CCL12:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINTR	"It's bad, but it doesn't deserve to die."
+
+
+	.FUNCT	RT-AC-TH-CLOTHES
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL3
+	ICALL	RT-PERFORM,V?LOOK-INSIDE,TH-POCKET
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?PUT \?CCL5
+	EQUAL?	GL-PRSI,TH-CLOTHES \?CCL5
+	PRINTI	"[in "
+	ICALL2	RT-THEO-PRINT,TH-POCKET
+	PRINTC	93
+	CRLF	
+	ICALL	RT-PERFORM,V?PUT,GL-PRSO,TH-POCKET
+	RTRUE	
+?CCL5:	EQUAL?	GL-PRSA,V?WEAR \?CCL9
+	PRINTR	"You are already wearing them."
+?CCL9:	EQUAL?	GL-PRSA,V?TAKE-OFF,V?DROP,V?RAISE \FALSE
+	PRINT	K-INAPPROPRIATE-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-WATERMARK,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	CALL2	RT-VISIBLE?,TH-GREEN-PAPER
+	ZERO?	STACK \FALSE
+	CALL2	RT-VISIBLE?,TH-WHITE-PAPER
+	ZERO?	STACK \FALSE
+	CALL2	RT-VISIBLE?,TH-BLUE-PAPER
+	ZERO?	STACK \FALSE
+	CALL2	RT-VISIBLE?,TH-ORANGE-PAPER
+	ZERO?	STACK \FALSE
+	CALL2	RT-VISIBLE?,TH-YELLOW-PAPER
+	ZERO?	STACK \FALSE
+	CALL2	RT-VISIBLE?,TH-BROWN-PAPER
+	ZERO?	STACK \FALSE
+	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTI	"not see any "
+	ICALL2	DPRINT,TH-WATERMARK
+	PRINTR	"here."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-VISIBLE?,TH-GREEN-PAPER
+	ZERO?	STACK \?CTR15
+	CALL2	RT-VISIBLE?,TH-WHITE-PAPER
+	ZERO?	STACK \?CTR15
+	CALL2	RT-VISIBLE?,TH-BLUE-PAPER
+	ZERO?	STACK \?CTR15
+	CALL2	RT-VISIBLE?,TH-ORANGE-PAPER
+	ZERO?	STACK \?CTR15
+	CALL2	RT-VISIBLE?,TH-YELLOW-PAPER
+	ZERO?	STACK \?CTR15
+	CALL2	RT-VISIBLE?,TH-BROWN-PAPER
+	ZERO?	STACK /?CCL16
+?CTR15:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+?CCL16:	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTI	"not see any "
+	ICALL2	DPRINT,TH-WATERMARK
+	PRINTR	" here."
+
+
+	.FUNCT	RT-AC-TH-SESAME
+	EQUAL?	GL-PRSA,V?OPEN \?CCL3
+	PRINTR	"Ali Baba you're not."
+?CCL3:	CALL1	RT-TALK-VERB?
+	ZERO?	STACK \FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-RIGHT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL6
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL6:	INTBL?	GL-PRSA,GL-SEE-VERBS+2,20 \?CCL8
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL8:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-LEFT
+	ZERO?	GL-NOW-PRSI? \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL6
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL6:	INTBL?	GL-PRSA,GL-SEE-VERBS+2,20 \?CCL8
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL8:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-BULLET-HOLE,NUM,OFF,HOLE,PLACE
+?PRG1:	MUL	NUM,2 >OFF
+	GET	GL-HOLES,0
+	EQUAL?	NUM,STACK /?REP2
+	ADD	OFF,1
+	GET	GL-HOLES,STACK
+	CALL2	RT-VISIBLE?,STACK
+	ZERO?	STACK /?CND3
+	ADD	OFF,2
+	GET	GL-HOLES,STACK >PLACE
+	ZERO?	PLACE /?CCL8
+	EQUAL?	GL-PLACE-CUR,PLACE \?CND3
+?CCL8:	SET	'HOLE,TRUE-VALUE
+?REP2:	ZERO?	HOLE \?CCL13
+	CALL2	RT-CANT-SEE-ANY-MSG,TH-BULLET-HOLE
+	RSTACK	
+?CND3:	INC	'NUM
+	JUMP	?PRG1
+?CCL13:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-ANNIE-OAKELEY-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-GENERIC-BODY,CONTEXT,CLASS,ADJ,S1,S2,WHICH
+	GETP	TH-GENERIC-BODY,P?OBJ-ADJ >ADJ
+	SET	'WHICH,CH-PLAYER
+	EQUAL?	ADJ,W?WIGGINS' \?CCL3
+	SET	'WHICH,CH-WIGGINS
+	JUMP	?CND1
+?CCL3:	EQUAL?	ADJ,W?HOLMES',W?HOLMES'S \?CCL5
+	SET	'WHICH,CH-HOLMES
+	JUMP	?CND1
+?CCL5:	EQUAL?	ADJ,W?HUDSON'S \?CCL7
+	SET	'WHICH,CH-HUDSON
+	JUMP	?CND1
+?CCL7:	EQUAL?	ADJ,W?ELIZA'S,W?GIRL'S \?CCL9
+	SET	'WHICH,CH-ELIZA-DOOLITTLE
+	JUMP	?CND1
+?CCL9:	EQUAL?	ADJ,W?HER \?CCL11
+	CALL2	RT-VISIBLE?,CH-HUDSON
+	ZERO?	STACK /?CCL14
+	SET	'WHICH,CH-HUDSON
+	JUMP	?CND1
+?CCL14:	SET	'WHICH,CH-ELIZA-DOOLITTLE
+	JUMP	?CND1
+?CCL11:	EQUAL?	ADJ,W?LEFT,W?RIGHT \?CND1
+	CALL2	RT-VISIBLE?,CH-WIGGINS
+	ZERO?	STACK /?CCL18
+	SET	'WHICH,CH-WIGGINS
+	JUMP	?CND1
+?CCL18:	CALL2	RT-VISIBLE?,CH-HOLMES
+	ZERO?	STACK /?CCL20
+	SET	'WHICH,CH-HOLMES
+	JUMP	?CND1
+?CCL20:	CALL2	RT-VISIBLE?,CH-HUDSON
+	ZERO?	STACK /?CCL22
+	SET	'WHICH,CH-HUDSON
+	JUMP	?CND1
+?CCL22:	CALL2	RT-VISIBLE?,CH-ELIZA-DOOLITTLE
+	ZERO?	STACK /?CND1
+	SET	'WHICH,CH-ELIZA-DOOLITTLE
+?CND1:	EQUAL?	WHICH,CH-WIGGINS \?CCL26
+	SET	'S1,STR?17
+	SET	'S2,STR?730
+	JUMP	?CND24
+?CCL26:	EQUAL?	WHICH,CH-HOLMES \?CCL28
+	SET	'S1,STR?1
+	SET	'S2,STR?731
+	JUMP	?CND24
+?CCL28:	EQUAL?	WHICH,CH-HUDSON \?CCL30
+	SET	'S1,STR?732
+	SET	'S2,STR?733
+	JUMP	?CND24
+?CCL30:	EQUAL?	WHICH,CH-ELIZA-DOOLITTLE \?CCL32
+	SET	'S1,STR?734
+	SET	'S2,STR?735
+	JUMP	?CND24
+?CCL32:	EQUAL?	WHICH,CH-PLAYER \?CND24
+	SET	'S1,STR?736
+	SET	'S2,STR?737
+?CND24:	EQUAL?	CONTEXT,K-M-SDESC \?CCL36
+	PRINT	S1
+	RTRUE	
+?CCL36:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-VISIBLE?,WHICH
+	ZERO?	STACK \?CCL40
+	ICALL	RT-CANT-SEE-ANY-MSG,FALSE-VALUE,S1,TRUE-VALUE
+	RETURN	2
+?CCL40:	EQUAL?	WHICH,CH-ELIZA-DOOLITTLE \?CCL42
+	PRINTI	"[You do not need to refer to"
+	ICALL	RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
+	PRINTI	".]"
+	CRLF	
+	RETURN	2
+?CCL42:	PRINTI	"[You do not need to refer to any part of "
+	PRINT	S2
+	PRINTI	" body.]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	RT-AC-TH-POCKET
+	EQUAL?	GL-PRSA,V?PUT \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSO,TH-PADDLE,TH-MACE,TH-ANCHOR /?CCL3
+	EQUAL?	GL-PRSO,TH-LAMP,TH-VIOLIN,TH-PACKET-OF-PAPER /?CCL3
+	EQUAL?	GL-PRSO,TH-SUIT-OF-ARMOUR,TH-OAR-1,TH-OAR-2 /?CCL3
+	EQUAL?	GL-PRSO,TH-TORCH,TH-WAX-AX,TH-WAX-HEAD \FALSE
+?CCL3:	CALL2	RT-CANT-PUT-IN-ON-MSG,TH-POCKET
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-GUN,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The gun is a six-shot revolver."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?OPEN,V?LOOK-INSIDE,V?SEARCH \FALSE
+	PRINTR	"The gun is jammed shut. You can't open it."
+
+
+	.FUNCT	RT-AC-TH-KNIFE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's a nasty-looking jackknife."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?CUT \?CCL7
+	FSET?	TH-KNIFE,FL-OPENED /FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-KNIFE
+	PRINTR	" isn't open."
+?CCL7:	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	SET	'KNIFE-COLD?,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-TH-MAGNIFYING-GLASS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It is of Swiss manufacture, with a precision-ground lens."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSO,TH-SAPPHIRE,TH-EMERALD,TH-OPAL /FALSE
+	EQUAL?	GL-PRSO,TH-RUBY,TH-TOPAZ,TH-GARNET /FALSE
+	EQUAL?	GL-PRSO,TH-WESTMINSTER-CLUE,TH-JEWEL-CASE /FALSE
+	SET	'GL-P-IT-OBJECT,TH-MAGNIFYING-GLASS
+	ZERO?	GL-NOW-PRSI? /?CCL12
+	EQUAL?	GL-PRSA,V?LOOK-THRU \FALSE
+	IN?	GL-PRSI,CH-PLAYER /?CCL18
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?738,GL-PRSI
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSO,TH-MAGNIFYING-GLASS \?CCL20
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL20:	EQUAL?	GL-LASTFOC,GL-PRSO /?CND16
+	SET	'GL-LASTFOC,GL-PRSO
+	PRINTI	"You train the magnifying glass on "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+?CND16:	FSET?	GL-PRSO,FL-PLURAL \?CCL24
+	FSET?	GL-PRSO,FL-COLLECTIVE /?CCL24
+	PRINTI	"They appear "
+	JUMP	?CND22
+?CCL24:	FSET?	GL-PRSO,FL-PERSON \?CCL28
+	FSET?	GL-PRSO,FL-FEMALE \?CCL28
+	PRINTI	"She appears "
+	JUMP	?CND22
+?CCL28:	FSET?	GL-PRSO,FL-PERSON \?CCL32
+	FSET?	GL-PRSO,FL-FEMALE /?CCL32
+	PRINTI	"He appears "
+	JUMP	?CND22
+?CCL32:	PRINTI	"It appears "
+?CND22:	PRINTR	"much larger now."
+?CCL12:	EQUAL?	GL-PRSA,V?SHOOT \?CCL36
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+?CCL36:	EQUAL?	GL-PRSA,V?LOOK-INSIDE \?CCL38
+	PRINTR	"Everything appears much larger."
+?CCL38:	EQUAL?	GL-PRSA,V?ADJUST,V?PLAY \FALSE
+	PRINTR	"You cannot adjust a magnifying glass."
+
+
+	.FUNCT	RT-AC-TH-VIOLIN,CONTEXT,WHO
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It is a Stradivarius violin of exceptional quality."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?PLAY \FALSE
+	IN?	TH-VIOLIN,GL-WINNER /?CND8
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CND8:	ICALL2	SOUNDS,S-BADVIOL
+	IN?	TH-PHIAL,CH-HOLMES \?CND10
+	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CND10
+	PRINTI	"Even the grotesque noises"
+	ICALL	RT-YOU-MSG,STR?739,STR?740
+	PRINTR	"with the violin aren't enough to distract Holmes's attention from the phial."
+?CND10:	CALL1	RT-ANYONE-HERE? >WHO
+	ZERO?	WHO /?CCL16
+	FSET	WHO,FL-ASLEEP
+	CALL1	RT-ANYONE-HERE?
+	ZERO?	STACK /?CCL19
+	PRINTI	"Everyone"
+	JUMP	?CND17
+?CCL19:	ICALL2	RT-CTHEO-PRINT,WHO
+?CND17:	FCLEAR	WHO,FL-ASLEEP
+	PRINTI	" grimace"
+	ICALL2	RT-S-NOS-MSG,WHO
+	PRINTI	" in pain and glare"
+	ICALL2	RT-S-NOS-MSG,WHO
+	PRINTR	" at you."
+?CCL16:	PRINTR	"Even you cannot abide the grotesque screeches that emanate from the tortured instrument, so you quickly stop."
+
+
+	.FUNCT	RT-AC-TH-PHIAL,HITS
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL3
+	SET	'HITS,TH-PHIAL-AUX1
+	ADD	1,HITS >TH-PHIAL-AUX1
+	ZERO?	HITS \?CCL6
+	PRINTI	"Nice shot! The phial explodes. You hear a muffled scream from downstairs as Mrs Hudson lets out a shriek."
+	CRLF	
+	CRLF	
+	PRINT	K-HOLMES-LICKS-MSG
+	PRINTI	"eyes begin to cloud over from the small dose you have caused him to take."
+	CRLF	
+	CRLF	
+	PRINT	K-ANOTHER-PHIAL-MSG
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	1,HITS \?CCL8
+	PRINTI	"The phial explodes. From downstairs you hear a dull thud as Mrs Hudson faints and hits the floor."
+	CRLF	
+	CRLF	
+	PRINT	K-HOLMES-LICKS-MSG
+	PRINTI	"body stiffens as the increased dosage of the drug enters his system."
+	CRLF	
+	CRLF	
+	PRINT	K-ANOTHER-PHIAL-MSG
+	CRLF	
+	CRLF	
+	PRINTR	"As a doctor, you know that another dose may be fatal."
+?CCL8:	EQUAL?	2,HITS \FALSE
+	PRINTI	"That persistent, are you? Too bad. The chill you caught from the damp air outside causes you to sneeze just as you pull the trigger. You have shot and killed Sherlock Holmes."
+	CRLF	
+	CRLF	
+	PRINTI	"Inspector Lestrade appears at the door and says,"
+	PRINT	K-PLUG-HIM-MYSELF-MSG
+	CRLF	
+	CRLF	
+	PRINT	K-LESTRADE-ARRESTS-MSG
+	CRLF	
+	CRLF	
+	ICALL1	RT-QSR
+	RFALSE	
+?CCL3:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	ICALL2	RT-HOLMES-HITS,TH-PHIAL
+	RTRUE	
+
+
+	.FUNCT	RT-HOLMES-HITS,THING
+	PRINTI	"Holmes is faster than you are. He moves "
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTI	" beyond your reach and absentmindedly hits you on the head with his free hand."
+	CRLF	
+	CRLF	
+	PRINTR	"Holmes continues staring at the phial."
+
+
+	.FUNCT	RT-AC-TH-GREEN-PAPER
+	CALL2	RT-PROCESS-PAPER,TH-GREEN-PAPER
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-WHITE-PAPER
+	CALL2	RT-PROCESS-PAPER,TH-WHITE-PAPER
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-BLUE-PAPER
+	CALL2	RT-PROCESS-PAPER,TH-BLUE-PAPER
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-ORANGE-PAPER
+	CALL2	RT-PROCESS-PAPER,TH-ORANGE-PAPER
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-YELLOW-PAPER
+	CALL2	RT-PROCESS-PAPER,TH-YELLOW-PAPER
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-BROWN-PAPER
+	CALL2	RT-PROCESS-PAPER,TH-BROWN-PAPER
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-ELIZABETH-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The tomb is that of Elizabeth and her half-sister, Mary Tudor. It is surrounded by twelve black marble pillars, and on the base is an inscription."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,1
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-NEWTON-TOMB,CONTEXT,CLASS,WRD
+	GETP	TH-NEWTON-TOMB,P?OBJ-NOUN >WRD
+	EQUAL?	WRD,W?STATUE \?CCL3
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	CALL	PRINT-SDESC,STR?741,CLASS,FALSE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"The great mathematician is shown reclining in a pensive mood."
+?CCL3:	EQUAL?	WRD,W?CHERUB,W?ANGEL,W?CHERUBS /?CTR9
+	EQUAL?	WRD,W?ANGELS \?CCL10
+?CTR9:	EQUAL?	CONTEXT,K-M-SDESC \?CCL15
+	CALL	PRINT-SDESC,STR?742,CLASS,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+?CCL15:	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"Cute, aren't they?"
+?CCL10:	EQUAL?	WRD,W?DIAGRAM,W?SYSTEM \?CCL19
+	EQUAL?	CONTEXT,K-M-SDESC \FALSE
+	CALL	PRINT-SDESC,STR?743,CLASS,FALSE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL19:	EQUAL?	CONTEXT,K-M-SDESC \?CCL25
+	CALL	PRINT-SDESC,STR?744,CLASS,TRUE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL25:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL27
+	PRINTR	"It's a white marble sarcophagus with ""ISAACVS NEWTON   Eques Auratus"" written on the front. Above it is a marble statue of Newton, and a carving of two cherubs who are holding a diagram of the solar system."
+?CCL27:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,2
+	RSTACK	
+
+
+	.FUNCT	PRINT-SDESC,BASE,CLASS,NOART?,PLURAL?,VOWEL?,PRINTB?,IS
+	ZERO?	NOART? \?CND1
+	EQUAL?	CLASS,K-DESC-ANY \?CCL5
+	SET	'IS,STR?745
+	JUMP	?CND3
+?CCL5:	EQUAL?	CLASS,K-DESC-THE /?CTR6
+	ZERO?	PLURAL? /?CCL7
+?CTR6:	SET	'IS,STR?746
+	JUMP	?CND3
+?CCL7:	ZERO?	PLURAL? /?CCL11
+	SET	'IS,STR?747
+	JUMP	?CND3
+?CCL11:	ZERO?	VOWEL? /?CCL14
+	SET	'IS,STR?748
+	JUMP	?CND3
+?CCL14:	SET	'IS,STR?749
+?CND3:	ZERO?	IS /?CND15
+	PRINT	IS
+?CND15:	PRINTC	32
+?CND1:	ZERO?	PRINTB? /?CCL19
+	PRINTB	BASE
+	RTRUE	
+?CCL19:	PRINT	BASE
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-HENRY-V-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's an old wooden coffin on a raised platform. On the top is an effigy of Henry V, and there is an inscription carved into the side."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,3
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-EDWARD-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's the tomb of Edward the Confessor, the founder of Westminster Abbey, and the only English king ever to be canonized. Around the tomb is a frieze that shows scenes from Edward's life, and on the base there is a faded inscription."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,4
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-POPE-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINT	K-SIMPLE-TOMB-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,5
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-DICKENS-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINT	K-SIMPLE-TOMB-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,6
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-CHAUCER-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's the tomb of Geoffrey Chaucer, who died in 1400 and became the first person to be buried in Poet's Corner. The inscription above the sarcophagus is so faded that it is almost illegible."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,7
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-ANNE-OF-CLEVES-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINT	K-SIMPLE-TOMB-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,8
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-LITTLE-PRINCES-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"According to the inscription, the urn contains the remains of the Little Princes in the Tower."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,9
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The tomb is a simple sarcophagus with a marble effigy of Mary, Queen of Scots on it."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,10
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-HENRY-VII-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's an incredibly lavish tomb which is surmounted by gilt effigies of Henry VII and his wife Elizabeth of York."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,11
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-PITT-TOMB,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTI	"It's a huge monument to William Pitt. On the base of the monument are five "
+	ICALL2	DPRINT,TH-FIGURES
+	PRINTR	" and an elaborate inscription."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,12
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-FIGURES,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"You've never understood allegorical figures before. What makes you think you can start now?"
+
+
+	.FUNCT	RT-AC-TH-VERE-TOMB,CONTEXT,CLASS,CAP?,WRD
+	GETP	TH-VERE-TOMB,P?OBJ-NOUN >WRD
+	EQUAL?	WRD,W?KNIGHT,W?KNIGHTS \?CCL3
+	EQUAL?	CONTEXT,K-M-SDESC \FALSE
+	CALL	PRINT-SDESC,STR?750,CLASS,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+?CCL3:	EQUAL?	WRD,W?SUIT,W?ARMOUR,W?ARMOR \?CCL8
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL11
+	CALL	PRINT-SDESC,STR?751,CLASS,FALSE-VALUE,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+?CCL11:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL8:	EQUAL?	CONTEXT,K-M-SDESC \?CCL17
+	CALL	PRINT-SDESC,STR?752,CLASS,TRUE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL17:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL19
+	PRINTR	"It's an effigy of a man surrounded by four knights, who are holding up a marble slab on their shoulders. On the slab is the dead man's armour."
+?CCL19:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-PROCESS-TOMB,13
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-LAMP,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It is a battered old brass lamp that has accompanied you on many adventures in the past."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? /?CCL7
+	EQUAL?	GL-PRSA,V?THROW \?CCL10
+	CALL2	GET-MASS,GL-PRSO
+	GRTR?	STACK,5 \FALSE
+	ICALL1	RT-BREAK-LAMP
+	CRLF	
+	ICALL1	RT-CTHEO-PRINT
+	PRINTC	32
+	ICALL1	RT-LANDS-AT-YOUR-FEET-MSG
+	RTRUE	
+?CCL10:	EQUAL?	GL-PRSA,V?PUT \FALSE
+	CALL1	RT-LAMP-SEALED
+	RSTACK	
+?CCL7:	EQUAL?	GL-PRSA,V?SHOOT,V?KICK,V?MUNG \?CCL18
+	CALL1	RT-BREAK-LAMP
+	RSTACK	
+?CCL18:	EQUAL?	GL-PRSA,V?OPEN,V?CLOSE,V?OPEN-WITH /?CTR19
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH,V?REACH-IN /?CTR19
+	EQUAL?	GL-PRSA,V?EMPTY,V?EMPTY-INTO \?CCL20
+?CTR19:	CALL1	RT-LAMP-SEALED
+	RSTACK	
+?CCL20:	EQUAL?	GL-PRSA,V?LAMP-ON,V?LIGHT-WITH,V?TURN-UP /?CTR24
+	EQUAL?	GL-PRSA,V?LIGHT \?CCL25
+?CTR24:	FSET?	TH-LAMP,FL-BROKEN \?CCL30
+	FCLEAR	TH-LAMP,FL-ASLEEP
+	PRINTR	"Nothing happens."
+?CCL30:	FSET?	TH-LAMP,FL-ASLEEP /?CCL32
+	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" is already on."
+?CCL32:	FCLEAR	TH-LAMP,FL-ASLEEP
+	FSET	TH-LAMP,FL-LIGHTED
+	PRINTI	"You turn up the wick. "
+	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" emits a warm glow that lights up the area around you."
+?CCL25:	EQUAL?	GL-PRSA,V?LAMP-OFF,V?TURN-DOWN \?CCL34
+	FSET?	TH-LAMP,FL-ASLEEP \?CCL37
+	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" is already off."
+?CCL37:	FSET?	TH-LAMP,FL-BROKEN \?CCL39
+	FSET	TH-LAMP,FL-ASLEEP
+	PRINTR	"Nothing happens."
+?CCL39:	FSET	TH-LAMP,FL-ASLEEP
+	FCLEAR	TH-LAMP,FL-LIGHTED
+	PRINTI	"You turn down the wick. "
+	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" goes dark."
+?CCL34:	EQUAL?	GL-PRSA,V?POINT-AT,V?SHINE-AT \FALSE
+	FSET?	TH-LAMP,FL-LIGHTED \?CCL44
+	EQUAL?	GL-PRSO,GL-PRSI \?CCL47
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't point the light at itself."
+?CCL47:	PRINTI	"You point "
+	ICALL2	RT-THEO-PRINT,TH-LAMP
+	PRINTI	" at "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	", but it reveals nothing."
+?CCL44:	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" is not on."
+
+
+	.FUNCT	RT-LAMP-SEALED
+	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" is firmly sealed. It can neither be opened nor closed."
+
+
+	.FUNCT	RT-BREAK-LAMP
+	FSET?	TH-LAMP,FL-BROKEN /?CCL3
+	FSET	TH-LAMP,FL-BROKEN
+	PRINTI	"It sounds as if something in "
+	ICALL2	RT-THEO-PRINT,TH-LAMP
+	PRINTI	" has shattered."
+	FSET?	TH-LAMP,FL-LIGHTED \?CND4
+	FCLEAR	TH-LAMP,FL-LIGHTED
+	PRINTC	32
+	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" has gone out."
+?CND4:	CRLF	
+	RTRUE	
+?CCL3:	ICALL2	RT-CTHEO-PRINT,TH-LAMP
+	PRINTR	" is already broken."
+
+
+	.FUNCT	RT-AC-TH-BLACK-BAG,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's the black medical bag your aunt gave you when you graduated from medical school."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?PUT \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSO,TH-PADDLE,TH-MACE,TH-ANCHOR /?CCL7
+	EQUAL?	GL-PRSO,TH-PACKET-OF-PAPER,TH-SUIT-OF-ARMOUR,TH-OAR-1 /?CCL7
+	EQUAL?	GL-PRSO,TH-OAR-2,TH-TORCH,TH-WAX-AX /?CCL7
+	EQUAL?	GL-PRSO,TH-LAMP,TH-VIOLIN,TH-WAX-HEAD \FALSE
+?CCL7:	PRINTI	"You look at "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	". You look at the tiny bag. You look at the tiny bag. You look at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	". Slowly it dawns on you that it's just not going to work."
+
+
+	.FUNCT	RT-AC-TH-CHARLES-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	FSET	TH-WAX-AX,FL-SEEN
+	IN?	TH-WAX-HEAD,TH-CHARLES-STATUE \?CCL5
+	PRINTI	"Charles I is shown kneeling, with his head resting on a chopping block. Above him stands a masked executioner"
+	IN?	TH-WAX-AX,TH-CHARLES-STATUE \?CND6
+	PRINTI	", with his axe held high over his head, ready to strike the deathblow"
+?CND6:	PRINTR	"."
+?CCL5:	PRINTR	"The statue looks grotesque without the head."
+
+
+	.FUNCT	RT-AC-TH-WILLIAM-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"The statue is of William the Conqueror kneeling on the sand at Pevensey, where he landed before the Battle of Hastings in 1066."
+
+
+	.FUNCT	RT-AC-TH-WALTER-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"The sculpture shows Sir Walter Raleigh spreading his cloak across a mud puddle so Elizabeth could walk across without dirtying her shoes."
+
+
+	.FUNCT	RT-AC-TH-ELIZABETH-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"She is smiling at Sir Walter."
+
+
+	.FUNCT	RT-AC-TH-THOMAS-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"The sculpture shows four knights with swords drawn, advancing on Thomas Becket as he stands before the High Altar of Canterbury Cathedral."
+
+
+	.FUNCT	RT-AC-TH-DRAKE-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"The statue is of Sir Francis Drake finishing his game of bowls before sailing off to defeat the Spanish Armada."
+
+
+	.FUNCT	RT-AC-TH-JOHN-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"King John is depicted signing the Magna Carta in the meadow at Runnymede in June of 1215."
+
+
+	.FUNCT	RT-AC-TH-FAWKES-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTI	"The statue depicts Guy Fawkes crouched behind some barrels of gunpowder. He is awaiting the signal to light his torch and set off the trail of gunpowder that will blow up Parliament"
+	IN?	TH-TORCH,TH-FAWKES-STATUE \?CCL5
+	PRINTI	". The torch he holds looks like a real one"
+	JUMP	?CND3
+?CCL5:	PRINTI	" - but he seems to be missing the torch"
+?CND3:	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-NELSON-COLUMN,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTI	"The column has"
+	PRINT	K-NELSON-STATUE-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-BOAT,CONTEXT,NUM
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTI	"It's an incredibly old rowboat that "
+	IN?	TH-OAR-1,TH-BOAT \?CND4
+	IN?	TH-OAR-2,TH-OAR-LOCK /?CND4
+	PRINTI	"has one empty oarlock and "
+?CND4:	PRINTI	"probably leaks. But it looks as if it might float"
+	IN?	TH-BOAT,RM-THE-EMBANKMENT /?CND8
+	IN?	TH-BOAT,RM-OUTSIDE-TRAITORS-GATE /?CND8
+	PRINTI	" a little while longer"
+?CND8:	PRINTI	". The boat's anchor is in the "
+	IN?	TH-ANCHOR,TH-BOAT \?CCL14
+	PRINTI	"boat"
+	JUMP	?CND12
+?CCL14:	PRINTI	"water"
+?CND12:	PRINTC	46
+	CRLF	
+	RETURN	2
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?PUSH-TO \?CCL18
+	EQUAL?	GL-PRSI,LG-WATER \?CCL18
+	ICALL1	RT-LAUNCH-BOAT
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSA,V?ENTER \?CCL22
+	EQUAL?	GL-PRSO,ROOMS,TH-BOAT \?CCL22
+	IN?	CH-PLAYER,TH-BOAT /FALSE
+	ZERO?	GL-PUPPY /?CCL30
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL30
+	MOVE	GL-PUPPY,TH-BOAT
+	PRINTI	"You and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND28
+?CCL30:	ICALL	RT-CYOU-MSG,STR?753,STR?754
+?CND28:	PRINTI	"into the boat."
+	CRLF	
+	MOVE	CH-PLAYER,TH-BOAT
+	ZERO?	GL-PUPPY /?CND33
+	MOVE	GL-PUPPY,TH-BOAT
+?CND33:	FSET	TH-BOAT,FL-NODESC
+	RTRUE	
+?CCL22:	EQUAL?	GL-PRSA,V?EXIT \?CCL36
+	EQUAL?	GL-PRSO,ROOMS,TH-BOAT \?CCL36
+	IN?	CH-PLAYER,TH-BOAT \FALSE
+	MOVE	CH-PLAYER,GL-PLACE-CUR
+	ZERO?	GL-PUPPY /?CND42
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+?CND42:	FCLEAR	TH-BOAT,FL-NODESC
+	SET	'NUM,TH-BOAT-AUX1
+	LOC	TH-OPAL
+	ZERO?	STACK /?CCL46
+	IN?	TH-BOAT,RM-THE-EMBANKMENT \?CCL46
+	ZERO?	NUM \?CCL46
+	PRINTI	"As"
+	ZERO?	GL-PUPPY /?CCL52
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL52
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+	PRINTI	" you and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND50
+?CCL52:	ICALL	RT-YOU-MSG,STR?753,STR?754
+?CND50:	PRINTI	"out of the boat, a man storms up to you and says, ""What in bloody 'ell are you doing with my boat?"" Without waiting for a reply he "
+	IN?	TH-OAR-2,TH-BOAT /?CCL56
+	IN?	TH-OAR-2,RM-THE-EMBANKMENT /?CCL56
+	CALL	RT-META-IN?,TH-OAR-2,CH-PLAYER
+	ZERO?	STACK \?CCL56
+	CALL	RT-META-IN?,TH-OAR-2,GL-PUPPY
+	ZERO?	STACK /?CND55
+?CCL56:	PRINTI	"grabs the oar, "
+?CND55:	MOVE	TH-BOAT,RM-OUTSIDE-TRAITORS-GATE
+	MOVE	TH-ANCHOR,LG-WATER
+	REMOVE	TH-OAR-1
+	REMOVE	TH-OAR-2
+	SET	'TH-BOAT-AUX1,1
+	PRINTR	"jumps into the boat and rows off, muttering to himself that he'll have to find a safer place to keep it."
+?CCL46:	FSET?	TH-GARNET,FL-TOUCHED \?CCL62
+	IN?	TH-BOAT,RM-THE-EMBANKMENT \?CCL62
+	EQUAL?	NUM,1 \?CCL62
+	PRINTI	"As"
+	ZERO?	GL-PUPPY /?CCL68
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL68
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+	PRINTI	" you and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND66
+?CCL68:	ICALL	RT-YOU-MSG,STR?753,STR?754
+?CND66:	PRINTI	"out of the boat, its red-faced owner runs up and yells, ""You again?!!"" He gives you a swift kick in the rear"
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CND71
+	PRINTI	", then clutches his foot in agony as it bounces off your suit of armour"
+?CND71:	PRINTC	46
+	CRLF	
+	CRLF	
+	PRINTI	"The man jumps into the boat"
+	IN?	TH-PADDLE,TH-BOAT \?CCL75
+	PRINTI	" and paddles away, cursing under his breath."
+	CRLF	
+	JUMP	?CND73
+?CCL75:	PRINTI	", launches it, and suddenly realizes he has no way to steer it. The last you see of him, he is drifting down the Thames, screaming and shaking his fist at you."
+	CRLF	
+?CND73:	REMOVE	TH-BOAT
+	SET	'TH-BOAT-AUX1,2
+	RTRUE	
+?CCL62:	IN?	TH-ANCHOR,TH-BOAT \?CCL77
+	PRINTI	"As"
+	ZERO?	GL-PUPPY /?CCL80
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL80
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+	PRINTI	" you and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND78
+?CCL80:	ICALL	RT-YOU-MSG,STR?753,STR?754
+?CND78:	PRINTI	"out of the boat it slides out from under your foot and drifts down the river."
+	CRLF	
+	REMOVE	TH-BOAT
+	RTRUE	
+?CCL77:	ZERO?	GL-PUPPY /?CCL85
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL85
+	MOVE	GL-PUPPY,GL-PLACE-CUR
+	PRINTI	"You and "
+	ICALL2	RT-THEO-PRINT,GL-PUPPY
+	PRINTI	" get "
+	JUMP	?CND83
+?CCL85:	ICALL	RT-CYOU-MSG,STR?753,STR?754
+?CND83:	PRINTR	"out of the boat."
+?CCL36:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	EQUAL?	GL-PRSO,TH-BOAT \FALSE
+	REMOVE	TH-BOAT
+	PRINTI	"Bad idea. The bullet blows a hole in the boat, which promptly sinks."
+	CRLF	
+	IN?	CH-PLAYER,TH-BOAT \TRUE
+	CRLF	
+	PRINTI	"Unable to swim, you cling to a piece of driftwood for several hours, wondering what kind of idiot would shoot a boat out from under himself."
+	CRLF	
+	CRLF	
+	PRINTI	"After a while, a Scotland Yard launch pulls alongside to rescue you. Lestrade leans over the side and offers his assistance. You decide you're better off in the water and politely decline."
+	CRLF	
+	CRLF	
+	ICALL1	RT-QSR
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-OAR-1,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The oar is hopelessy jammed into the oarlock."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL7
+	ICALL	RT-CYOU-MSG,STR?755,STR?756
+	PRINTR	"to extract the oar from the oarlock, but it seems to be jammed."
+?CCL7:	EQUAL?	GL-PRSA,V?RELEASE \FALSE
+	ICALL	RT-CYOU-MSG,STR?757,STR?758
+	PRINTR	"with the oar for a minute or two with no success... it really is jammed in there."
+
+
+	.FUNCT	RT-AC-TH-OAR-LOCK
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSO,TH-OAR-2 /FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-CLAPPER,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	IN?	TH-SAPPHIRE,TH-CLAPPER \FALSE
+	PRINTR	"The clapper hangs from the centre of the bell. There is a beautiful blue sapphire glued to the end of it."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL10
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	CALL2	RT-IMPOSSIBLE-PUT-IN-ON-MSG,TH-CLAPPER
+	ZERO?	STACK \TRUE
+	EQUAL?	GL-PRSA,V?TOUCH,V?TOUCH-TO,V?TOUCH-TO-SWP \FALSE
+	EQUAL?	TH-BELL-AUX2,K-BELL-TOWARDS /FALSE
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSO
+	PRINTR	"within reach."
+
+
+	.FUNCT	RT-AC-TH-COTTON-BALLS,CONTEXT,VAL
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL6
+	PRINTR	"You can't see them because they're in your ears."
+?CCL6:	PRINTR	"They're soft and fluffy."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	SET	'GL-P-IT-OBJECT,GL-PRSO
+	EQUAL?	GL-PRSA,V?WEAR /?CTR12
+	EQUAL?	GL-PRSA,V?PUT \?CCL13
+	EQUAL?	GL-PRSI,TH-EARS \?CCL13
+?CTR12:	FSET?	GL-PRSO,FL-WORN \?CCL20
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+	PRINTI	"already in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL20:	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL22
+	ICALL2	RT-CTHEO-PRINT,TH-STETHOSCOPE
+	PRINTR	" is in the way."
+?CCL22:	SET	'GL-LISTEN-OBJ,FALSE-VALUE
+	FSET	GL-PRSO,FL-WORN
+	MOVE	GL-PRSO,CH-PLAYER
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTC	46
+	CRLF	
+	GETP	GL-PRSO,P?VALUE >VAL
+	ZERO?	VAL /TRUE
+	ICALL2	RT-UPDATE-SCORE,VAL
+	PUTP	GL-PRSO,P?VALUE,0
+	RTRUE	
+?CCL13:	EQUAL?	GL-PRSA,V?TAKE \?PRD28
+	EQUAL?	GL-PRSI,TH-EARS /?CTR25
+?PRD28:	EQUAL?	GL-PRSA,V?TAKE-OFF,V?TAKE \?CCL26
+	FSET?	GL-PRSO,FL-WORN \?CCL26
+?CTR25:	FSET?	GL-PRSO,FL-WORN /?CCL35
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTI	"in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL35:	FSET?	TH-STETHOSCOPE,FL-WORN \?CND36
+	ICALL	RT-PERFORM,V?TAKE-OFF,TH-STETHOSCOPE
+?CND36:	SET	'GL-LISTEN-OBJ,FALSE-VALUE
+	FCLEAR	GL-PRSO,FL-WORN
+	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" out of "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTC	46
+	CRLF	
+	EQUAL?	GL-WINNER,CH-PLAYER /TRUE
+	MOVE	GL-PRSO,GL-WINNER
+	RTRUE	
+?CCL26:	EQUAL?	GL-PRSA,V?DROP,V?THROW,V?THROW-OVER \?CCL41
+	FSET?	GL-PRSO,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" while"
+	ICALL	RT-YOU-MSG,STR?228,STR?229
+	PRINTR	"wearing them."
+?CCL41:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-BELL,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The huge bell hangs over the hollow shaft of the tower."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL7
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL7:	CALL2	RT-IMPOSSIBLE-PUT-IN-ON-MSG,TH-BELL
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-TH-STETHOSCOPE,CONTEXT,VAL
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL6
+	PRINTR	"The stethoscope is hanging from your ears."
+?CCL6:	PRINTR	"It looks just like any other late-Victorian-era stethoscope."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CCL10
+	EQUAL?	GL-PRSA,V?WEAR /?CTR12
+	EQUAL?	GL-PRSA,V?PUT \?CCL13
+	EQUAL?	GL-PRSI,TH-EARS \?CCL13
+?CTR12:	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL20
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+	PRINTI	"already in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL20:	SET	'GL-LISTEN-OBJ,FALSE-VALUE
+	FSET	TH-STETHOSCOPE,FL-WORN
+	MOVE	TH-STETHOSCOPE,CH-PLAYER
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTC	46
+	CRLF	
+	GETP	TH-STETHOSCOPE,P?VALUE >VAL
+	ZERO?	VAL /TRUE
+	ICALL2	RT-UPDATE-SCORE,VAL
+	PUTP	TH-STETHOSCOPE,P?VALUE,0
+	RTRUE	
+?CCL13:	EQUAL?	GL-PRSA,V?TAKE \?PRD26
+	EQUAL?	GL-PRSI,TH-EARS /?CTR23
+?PRD26:	EQUAL?	GL-PRSA,V?TAKE-OFF,V?TAKE \?CCL24
+	FSET?	TH-STETHOSCOPE,FL-WORN \?CCL24
+?CTR23:	FSET?	TH-STETHOSCOPE,FL-WORN /?CCL33
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTI	"in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL33:	SET	'GL-LISTEN-OBJ,FALSE-VALUE
+	FCLEAR	TH-STETHOSCOPE,FL-WORN
+	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" out of "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTC	46
+	CRLF	
+	EQUAL?	GL-WINNER,CH-PLAYER /TRUE
+	MOVE	GL-PRSO,GL-WINNER
+	RTRUE	
+?CCL24:	EQUAL?	GL-PRSA,V?DROP,V?THROW,V?THROW-OVER \?CCL37
+	FSET?	TH-STETHOSCOPE,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" while"
+	ICALL	RT-YOU-MSG,STR?228,STR?229
+	PRINTR	"wearing it."
+?CCL37:	EQUAL?	GL-PRSA,V?PUT-ON \FALSE
+	FSET?	GL-PRSI,FL-PERSON \FALSE
+	FSET?	TH-STETHOSCOPE,FL-WORN \FALSE
+	CALL	RT-PERFORM,V?LISTEN,GL-PRSI,GL-PRSO
+	RSTACK	
+?CCL10:	ZERO?	GL-NOW-PRSI? \FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-TH-WATSONS-HAT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CCL6
+	PRINTR	"You can't look at your hat while it's on the top of your head."
+?CCL6:	PRINTR	"It's a rather large hat with plenty of room inside it for your rather large head."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CCL10
+	EQUAL?	GL-PRSA,V?PUT-ON \?PRD15
+	EQUAL?	GL-PRSI,TH-HEAD /?CTR12
+?PRD15:	EQUAL?	GL-PRSA,V?WEAR \?CCL13
+?CTR12:	FSET?	TH-WATSONS-HAT,FL-WORN \?CCL20
+	PRINTI	"You are already wearing "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL20:	CALL2	RT-DONT-HAVE-MSG,GL-PRSO
+	ZERO?	STACK \TRUE
+	FCLEAR	TH-WATSONS-HAT,FL-OPENED
+	FSET	TH-WATSONS-HAT,FL-WORN
+	PRINTI	"You put on "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL13:	EQUAL?	GL-PRSA,V?TAKE \?PRD26
+	EQUAL?	GL-PRSI,TH-HEAD /?CTR23
+	FSET?	TH-WATSONS-HAT,FL-WORN \?PRD26
+	EQUAL?	GL-PRSI,FALSE-VALUE,CH-PLAYER,CH-ME /?CTR23
+?PRD26:	EQUAL?	GL-PRSA,V?TAKE-OFF \?CCL24
+?CTR23:	FSET?	TH-WATSONS-HAT,FL-WORN \?CCL35
+	FSET	TH-WATSONS-HAT,FL-OPENED
+	FCLEAR	TH-WATSONS-HAT,FL-WORN
+	PRINTI	"You take off "
+	ICALL1	RT-THEO-PRINT
+	CALL2	RT-VISIBLE?,CH-AKBAR
+	ZERO?	STACK /?CND36
+	PRINTI	". Disconcerted by your sacrilegious action, Akbar averts his gaze"
+?CND36:	FIRST?	TH-WATSONS-HAT \?CND38
+	PRINTI	". Inside you see "
+	ICALL2	RT-PRINT-CONTENTS-2,TH-WATSONS-HAT
+?CND38:	PRINTR	"."
+?CCL35:	PRINTI	"You are not wearing "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL24:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?LOOK-UNDER \?CCL41
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CCL41
+	PRINTI	"You can't see inside "
+	ICALL2	RT-THEO-PRINT,TH-WATSONS-HAT
+	PRINTI	" while it's on "
+	ICALL2	RT-THEO-PRINT,TH-HEAD
+	PRINTR	"."
+?CCL41:	EQUAL?	GL-PRSA,V?REACH-IN,V?SEARCH,V?PUT /?PRD47
+	EQUAL?	GL-PRSA,V?PUT-ON \FALSE
+?PRD47:	FSET?	TH-WATSONS-HAT,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?682,GL-PRSO
+	PRINTR	" first."
+?CCL10:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-UNDER \FALSE
+	FSET?	TH-WATSONS-HAT,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?682,GL-PRSI
+	PRINTR	" first."
+
+
+	.FUNCT	RT-AC-TH-ELIZAS-FLOWERS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CND1
+	PRINTI	"In "
+	ICALL2	RT-THEO-PRINT,TH-ELIZAS-FLOWERS
+	PRINTR	" you see a carnation."
+?CND1:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	CALL2	RT-CANT-PUT-IN-ON-MSG,TH-ELIZAS-FLOWERS
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-CARNATION
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?WEAR \?CCL6
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL9
+	IN?	TH-CARNATION,TH-LAPEL \?CCL12
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" is already in "
+	ICALL2	RT-THEO-PRINT,TH-LAPEL
+	PRINTR	"."
+?CCL12:	MOVE	TH-CARNATION,TH-LAPEL
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" in "
+	ICALL2	RT-THEO-PRINT,TH-LAPEL
+	PRINTR	"."
+?CCL9:	ICALL2	RT-CTHEO-PRINT,GL-WINNER
+	PRINTI	" say"
+	ICALL2	RT-S-NOS-MSG,GL-WINNER
+	PRINTR	", ""No thanks."""
+?CCL6:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-EMERALD,CONTEXT
+	GETP	TH-EMERALD,P?OBJ-NOUN
+	EQUAL?	STACK,W?SCRATCH \?CCL3
+	CALL	RT-HANDLE-SCRATCH,TH-EMERALD,CONTEXT
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	PRINTI	"emerald"
+	RTRUE	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESCFCN,FALSE-VALUE \FALSE
+	CALL2	RT-EXAMINE-GEM,TH-EMERALD
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-SAPPHIRE,CONTEXT,GRABS,WHO
+	GETP	TH-SAPPHIRE,P?OBJ-NOUN
+	EQUAL?	STACK,W?SCRATCH \?CCL3
+	CALL	RT-HANDLE-SCRATCH,TH-SAPPHIRE,CONTEXT
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	PRINTI	"sapphire"
+	RTRUE	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL8
+	CALL2	RT-EXAMINE-GEM,TH-SAPPHIRE
+	ZERO?	STACK /TRUE
+	RTRUE	
+?CCL8:	ZERO?	CONTEXT \FALSE
+	SET	'GRABS,TH-SAPPHIRE-AUX1
+	ZERO?	GL-NOW-PRSI? \?CCL14
+	IN?	TH-SAPPHIRE,TH-CLAPPER \?CCL14
+	EQUAL?	GL-PRSA,V?TAKE \?CCL19
+	GRTR?	GRABS,0 \?CND12
+	EQUAL?	TH-BELL-AUX2,K-BELL-TOWARDS \?CCL24
+	DEC	'GRABS
+	SET	'TH-SAPPHIRE-AUX1,GRABS
+	ZERO?	GRABS \?CCL27
+	ICALL	RT-CYOU-MSG,STR?759,STR?760
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" from "
+	ICALL2	RT-THEO-PRINT,TH-CLAPPER
+	PRINTC	46
+	CRLF	
+	MOVE	TH-SAPPHIRE,CH-PLAYER
+	FCLEAR	TH-SAPPHIRE,FL-NODESC
+	FSET	TH-SAPPHIRE,FL-SEEN
+	FSET	TH-SAPPHIRE,FL-TOUCHED
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CND28
+	CRLF	
+	PRINTI	"Holmes beams at you and says, ""Good show, old fellow."""
+	CRLF	
+?CND28:	GETP	TH-SAPPHIRE,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-SAPPHIRE,P?VALUE,0
+	RTRUE	
+?CCL27:	ICALL	RT-CYOU-MSG,STR?761,STR?762
+	PRINTI	"at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", but you can't quite grab it before it swings out of reach again."
+?CCL24:	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSO
+	PRINTR	"within reach."
+?CCL19:	EQUAL?	GL-PRSA,V?HIT \?CCL31
+	EQUAL?	TH-BELL-AUX2,K-BELL-TOWARDS /?CTR33
+	EQUAL?	GL-PRSI,TH-OAR-2 \?CCL34
+?CTR33:	ICALL	RT-CYOU-MSG,STR?763,STR?764
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" into the shaft. A long time later you hear "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" shatter."
+	CRLF	
+	FCLEAR	GL-PRSO,FL-WORN
+	REMOVE	GL-PRSO
+	RTRUE	
+?CCL34:	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSO
+	PRINTR	"within reach."
+?CCL31:	EQUAL?	GL-PRSA,V?TOUCH,V?TOUCH-TO,V?TOUCH-TO-SWP \?CND12
+	EQUAL?	TH-BELL-AUX2,K-BELL-TOWARDS /FALSE
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	PRINTR	"within reach."
+?CCL14:	ZERO?	GL-NOW-PRSI? /?CND12
+	IN?	TH-SAPPHIRE,TH-CLAPPER \?CND12
+	EQUAL?	GL-PRSA,V?THROW \?CND12
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON \?CCL48
+	ICALL1	RT-PIGEON-PANIC
+	SET	'CH-TRAINED-PIGEON-AUX1,0
+	RTRUE	
+?CCL48:	ICALL	RT-CYOU-MSG,STR?765,STR?766
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	", and they both disappear into the shaft. A long time later you hear "
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" shatter."
+	CRLF	
+	REMOVE	GL-PRSO
+	REMOVE	GL-PRSI
+	RTRUE	
+?CND12:	CALL2	RT-EXAMINE-GEM,TH-SAPPHIRE
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-OPAL,CONTEXT
+	GETP	TH-OPAL,P?OBJ-NOUN
+	EQUAL?	STACK,W?SCRATCH \?CCL3
+	CALL	RT-HANDLE-SCRATCH,TH-OPAL,CONTEXT
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL5
+	PRINTI	"opal"
+	RTRUE	
+?CCL5:	EQUAL?	CONTEXT,K-M-DESCFCN,FALSE-VALUE \FALSE
+	CALL2	RT-EXAMINE-GEM,TH-OPAL
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-RUBY,CONTEXT
+	GETP	TH-RUBY,P?OBJ-NOUN
+	EQUAL?	STACK,W?SCRATCH \?CCL3
+	CALL	RT-HANDLE-SCRATCH,TH-RUBY,CONTEXT
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL6
+	ICALL2	RT-EXAMINE-GEM,TH-RUBY
+	RTRUE	
+?CCL6:	EQUAL?	CONTEXT,K-M-SDESC \?CCL8
+	PRINTI	"ruby"
+	RTRUE	
+?CCL8:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CND4
+	IN?	TH-RUBY,TH-NELSON-STATUE \?CCL14
+	PRINTR	"You can't reach the ruby."
+?CCL14:	IN?	TH-RUBY,CH-SHERMAN \?CND4
+	ICALL	RT-IMPOLITE-MSG,STR?715,STR?716
+	RTRUE	
+?CND4:	CALL2	RT-EXAMINE-GEM,TH-RUBY
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-TOPAZ,CONTEXT
+	GETP	TH-TOPAZ,P?OBJ-NOUN
+	EQUAL?	STACK,W?SCRATCH \?CCL3
+	CALL	RT-HANDLE-SCRATCH,TH-TOPAZ,CONTEXT
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	PRINTI	"topaz"
+	RTRUE	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESCFCN,FALSE-VALUE \FALSE
+	CALL2	RT-EXAMINE-GEM,TH-TOPAZ
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-CRAYON,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"It looks just like any other Victorian-era crayon."
+
+
+	.FUNCT	RT-AC-TH-WATSONS-COAT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's a wool greatcoat."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \?CCL7
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL10
+	CALL	RT-PERFORM,V?LOOK-INSIDE,TH-POCKET
+	RSTACK	
+?CCL10:	EQUAL?	GL-PRSA,V?EMPTY,V?EMPTY-INTO \?CCL12
+	PRINTI	"[from "
+	ICALL2	RT-THEO-PRINT,TH-POCKET
+	PRINTC	93
+	CRLF	
+	CALL	RT-PERFORM,GL-PRSA,TH-POCKET,GL-PRSO
+	RSTACK	
+?CCL12:	EQUAL?	GL-PRSA,V?WEAR,V?TAKE-OFF \FALSE
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?682,TH-SUIT-OF-ARMOUR
+	PRINTR	" first."
+?CCL7:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL21
+	PRINTI	"[from "
+	ICALL2	RT-THEO-PRINT,TH-POCKET
+	PRINTC	93
+	CRLF	
+	CALL	RT-PERFORM,V?TAKE,GL-PRSO,TH-POCKET
+	RSTACK	
+?CCL21:	EQUAL?	GL-PRSA,V?PUT \?CCL23
+	PRINTI	"[in "
+	ICALL2	RT-THEO-PRINT,TH-POCKET
+	PRINTC	93
+	CRLF	
+	CALL	RT-PERFORM,V?PUT,GL-PRSO,TH-POCKET
+	RSTACK	
+?CCL23:	EQUAL?	GL-PRSA,V?EMPTY,V?EMPTY-INTO \FALSE
+	PRINTI	"[in "
+	ICALL2	RT-THEO-PRINT,TH-POCKET
+	PRINTC	93
+	CRLF	
+	CALL	RT-PERFORM,GL-PRSA,GL-PRSO,TH-POCKET
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-LAPEL
+	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	EQUAL?	GL-PRSO,TH-CARNATION /FALSE
+	CALL2	RT-CANT-PUT-IN-ON-MSG,TH-LAPEL
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-CLUMP-OF-MOSS,CONTEXT,WHO
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The clump of moss is a slightly different colour than the other lichen that surrounds it."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LOOK \?CCL7
+	ICALL2	RT-AC-TH-CLUMP-OF-MOSS,K-M-DESCFCN
+	RTRUE	
+?CCL7:	CALL1	RT-THAMES-TIDE
+	ZERO?	STACK \?CCL9
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	PRINTI	"As soon as"
+	ICALL	RT-YOU-MSG,STR?767,STR?768
+	ICALL2	RT-THEO-PRINT,TH-CLUMP-OF-MOSS
+	PRINTI	", it crumbles. "
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"left holding a beautiful opal."
+	CRLF	
+	MOVE	TH-OPAL,GL-WINNER
+	FSET	TH-OPAL,FL-SEEN
+	FSET	TH-OPAL,FL-TOUCHED
+	FCLEAR	TH-OPAL,FL-NODESC
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CND13
+	CRLF	
+	PRINTI	"Holmes claps you on the shoulder and says, ""Capital, Watson. Capital!"""
+	CRLF	
+?CND13:	GETP	TH-OPAL,P?VALUE
+	ICALL2	RT-UPDATE-SCORE,STACK
+	PUTP	TH-OPAL,P?VALUE,0
+	REMOVE	TH-CLUMP-OF-MOSS
+	RTRUE	
+?CCL9:	EQUAL?	GL-PRSA,V?TAKE \?CCL16
+	CALL1	RT-THAMES-TIDE
+	EQUAL?	STACK,2 \?CCL19
+	PRINTI	"The clump is well beyond "
+	ICALL1	RT-YOUR-MSG
+	PRINTR	"grasp."
+?CCL19:	ICALL1	RT-CYOU-MSG
+	PRINTR	"cannot quite reach it."
+?CCL16:	EQUAL?	GL-PRSA,V?HIT,V?TOUCH,V?TOUCH-TO /?CTR20
+	EQUAL?	GL-PRSA,V?CUT \?CCL21
+?CTR20:	EQUAL?	GL-PRSA,V?HIT,V?TOUCH \?PRD28
+	EQUAL?	GL-PRSI,TH-OAR-2 /?CTR25
+?PRD28:	EQUAL?	GL-PRSA,V?TOUCH-TO \?CCL26
+	EQUAL?	GL-PRSO,TH-OAR-2 \?CCL26
+?CTR25:	ICALL	RT-CYOU-MSG,STR?763,STR?764
+	ICALL2	RT-THEO-PRINT,TH-CLUMP-OF-MOSS
+	PRINTI	" into the water. It dissolves upon impact and reveals a beautiful opal, which slowly sinks into the murky depths."
+	CRLF	
+	REMOVE	TH-CLUMP-OF-MOSS
+	RTRUE	
+?CCL26:	ICALL	RT-CYOU-MSG,STR?755,STR?756
+	PRINTI	"to hit the moss"
+	EQUAL?	GL-PRSA,V?TOUCH-TO \?CCL35
+	PRINTI	" with "
+	ICALL1	RT-THEO-PRINT
+	JUMP	?CND33
+?CCL35:	ZERO?	GL-PRSI /?CND33
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+?CND33:	PRINTI	" but"
+	ICALL	RT-YOU-MSG,STR?228,STR?229
+	PRINTR	"not able to reach it."
+?CCL21:	EQUAL?	GL-PRSA,V?THROW \?CCL38
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON /FALSE
+	CALL1	RT-IDROP-MSG
+	ZERO?	STACK /TRUE
+	PRINTI	"Good throw! "
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" hit"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTI	" the clump, knock"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTI	" it loose, and everything falls into the water. "
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" sink"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTI	" immediately. The moss, however, dissolves upon impact and reveals a beautiful opal, which slowly follows "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" into the murky depths."
+	CRLF	
+	REMOVE	TH-CLUMP-OF-MOSS
+	REMOVE	GL-PRSO
+	FCLEAR	GL-PRSO,FL-WORN
+	RTRUE	
+?CCL38:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINTI	"The bullet dislodges the clump and knocks it into the water. The moss dissolves upon impact and reveals a beautiful opal, which slowly sinks into the murky depths."
+	CRLF	
+	REMOVE	TH-CLUMP-OF-MOSS
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-BLIGH-BOAT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \FALSE
+	PRINTR	"The boat is a true-to-life replica of the rowboat that Captain Bligh sailed to Pitcairn Island after the mutiny on the Bounty."
+
+
+	.FUNCT	RT-AC-TH-ANCHOR,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	IN?	TH-ANCHOR,TH-BOAT \?CCL6
+	PRINTR	"It's slimy and green and covered with river crud. Yuck!"
+?CCL6:	PRINTR	"It's in the water."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL10
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	IN?	CH-PLAYER,TH-BOAT /?CCL12
+	PRINT	K-MUST-BE-IN-BOAT-MSG
+	PRINTR	"do that."
+?CCL12:	EQUAL?	GL-PRSA,V?TAKE \?CCL14
+	IN?	TH-ANCHOR,TH-BOAT \?CCL17
+	PRINTR	"Oomph! It's too heavy to carry."
+?CCL17:	MOVE	TH-ANCHOR,TH-BOAT
+	CALL1	RT-SAY-RAISE-ANCHOR
+	RSTACK	
+?CCL14:	EQUAL?	GL-PRSA,V?RAISE,V?HAUL,V?WEIGH /?CTR18
+	EQUAL?	GL-PRSA,V?PULL \?CCL19
+?CTR18:	IN?	TH-ANCHOR,LG-WATER \?CCL24
+	MOVE	TH-ANCHOR,TH-BOAT
+	CALL1	RT-SAY-RAISE-ANCHOR
+	RSTACK	
+?CCL24:	PRINT	K-ANCHOR-ALREADY-OUT-MSG
+	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	GL-PRSA,V?LOWER,V?DROP \?CCL26
+	IN?	TH-ANCHOR,LG-WATER \?CCL29
+	PRINTR	"The anchor is already in the water."
+?CCL29:	MOVE	TH-ANCHOR,LG-WATER
+	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	CALL1	RT-SAY-LOWER-ANCHOR
+	RSTACK	
+?CCL26:	EQUAL?	GL-PRSA,V?THROW,V?PUT \FALSE
+	EQUAL?	GL-PRSI,LG-WATER \?CCL34
+	MOVE	TH-ANCHOR,LG-WATER
+	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	CALL1	RT-SAY-LOWER-ANCHOR
+	RSTACK	
+?CCL34:	EQUAL?	GL-PRSI,TH-BOAT \?CCL36
+	MOVE	TH-ANCHOR,TH-BOAT
+	CALL1	RT-SAY-RAISE-ANCHOR
+	RSTACK	
+?CCL36:	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-NELSON-STATUE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	ICALL2	RT-CTHEO-PRINT,TH-NELSON-STATUE
+	PRINTI	" is perched high above you, on top of the column."
+	FSET?	TH-NELSON-STATUE,FL-OPENED \?CND4
+	IN?	TH-RUBY,TH-NELSON-STATUE \?CND4
+	PRINTC	32
+	PRINT	K-GLINT-MSG
+?CND4:	CRLF	
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL2	RT-IMPOSSIBLE-PUT-IN-ON-MSG,TH-NELSON-STATUE
+	ZERO?	STACK \TRUE
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE \?CCL13
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't see inside the statue."
+?CCL13:	EQUAL?	GL-PRSA,V?REACH-IN,V?SEARCH \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't reach the statue."
+
+
+	.FUNCT	RT-AC-TH-CROWN-JEWELS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"Despite its adventures, the Regalia doesn't look any the worse for wear."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	SET	'GL-P-IT-OBJECT,TH-CROWN-JEWELS
+	RFALSE	
+
+
+	.FUNCT	RT-AC-TH-ETHERIUM-AMPOULE,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN \?CCL6
+	PRINTI	"broken ampoule"
+	RTRUE	
+?CCL6:	PRINTI	"ampoule of etherium"
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN \?CCL10
+	CALL1	RT-AC-TH-BROKEN-AMPOULE
+	RSTACK	
+?CCL10:	EQUAL?	GL-PRSA,V?MUNG,V?OPEN \?CCL12
+	ZERO?	GL-NOW-PRSI? \?CCL12
+	IN?	TH-ETHERIUM-AMPOULE,GL-WINNER /?CND15
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?738,GL-PRSO
+	PRINTI	" to do that."
+	CRLF	
+	RETURN	2
+?CND15:	FSET?	GL-PLACE-CUR,FL-NO-ETHERIUM \?CCL19
+	CALL1	RT-WHO-SAYS?
+	EQUAL?	STACK,CH-HOLMES \?CND20
+	PRINTI	"Holmes stops you. ""Do try to be discreet, old boy. My research is supposed to be kept secret."""
+	CRLF	
+	RETURN	2
+?CND20:	PRINTI	"The etherium renders everyone quite unconscious. Unfortunately, word of the unusual phenomenon soon leaks out, the existence of the secret chemical is exposed, and you are arrested for violating the Official Secrets Act.
+
+Because he thinks you are a traitor, even Lestrade refuses to visit you in prison. His absence is the only bright spot of your twenty-year incarceration."
+	CRLF	
+	ICALL1	RT-QSR
+	RETURN	2
+?CCL19:	EQUAL?	GL-PLACE-CUR,RM-LAIR /?CND17
+	CALL1	RT-WHO-SAYS?
+	EQUAL?	STACK,CH-HOLMES \?CND17
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD /?CND17
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL,RM-HOLMES-STUDY,RM-EVANGELIST-CHAPEL /?CND17
+	CALL2	RT-FIND-FLAME,GL-PLACE-CUR
+	ZERO?	STACK \?CND17
+	PRINTR	"Holmes stops you just in time. ""This is neither the time nor the place for experimentation."""
+?CND17:	ICALL2	CLEAR-ALL-FLAGS,TH-ETHERIUM-AMPOULE
+	FSET	TH-ETHERIUM-AMPOULE,FL-TAKEABLE
+	FSET	TH-ETHERIUM-AMPOULE,FL-READABLE
+	FSET	TH-ETHERIUM-AMPOULE,FL-BROKEN
+	GETPT	TH-ETHERIUM-AMPOULE,P?ADJECTIVE
+	PUT	STACK,0,W?BROKEN
+	PRINTI	"You break open the ampoule."
+	EQUAL?	GL-PLACE-CUR,RM-BAR-OF-GOLD \?CCL31
+	PRINTR	" The etherium fumes mix with the heavy air of the opium den. No one seems to notice."
+?CCL31:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL33
+	CALL2	RT-FIND-FLAME,GL-PLACE-CUR
+	ZERO?	STACK \?CTR35
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL,RM-HOLMES-STUDY,RM-EVANGELIST-CHAPEL \?CCL36
+?CTR35:	PRINTI	" As soon as the volatile etherium comes in contact with the flame"
+	EQUAL?	GL-PLACE-CUR,RM-ENTRY-HALL \?CCL41
+	PRINTI	" of the gas light"
+	JUMP	?CND39
+?CCL41:	EQUAL?	GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL43
+	PRINTI	" of the fireplace"
+	JUMP	?CND39
+?CCL43:	EQUAL?	GL-PLACE-CUR,RM-EVANGELIST-CHAPEL \?CND39
+	PRINTI	" of the candles"
+?CND39:	PRINTI	", it explodes."
+	CRLF	
+	CRLF	
+	PRINTI	"B  O  O  M  !!!"
+	CRLF	
+	CRLF	
+	PRINTI	"You awaken several days later in the hospital. Inspector Lestrade is there with flowers for your bedside table. He is full of news about how he plans to solve the case. Upon hearing this, you lapse back into a coma from which you have no particular desire to emerge."
+	CRLF	
+	ICALL1	RT-QSR
+	RTRUE	
+?CCL36:	PRINTI	" The etherium is released into the room."
+	FSET?	TH-BREATH,FL-LOCKED /?CCL47
+	FSET	CH-PLAYER,FL-ASLEEP
+	PRINTI	" Suddenly, everything starts to spin. You pass out and fall to the ground. Sometime later you awaken and stumble back to your feet."
+	CRLF	
+	ICALL	RT-CLOCK-JMP,6,0,0
+	EQUAL?	GL-PLACE-CUR,RM-LAIR \?CND45
+	ICALL1	RT-DOES-MORIARTY-WIN
+	JUMP	?CND45
+?CCL47:	CALL2	RT-ETHERIUM-EFFECT,TRUE-VALUE
+	ZERO?	STACK /?CND50
+	PRINTI	" You see everyone"
+	CALL2	RT-VISIBLE?,CH-HOLMES
+	ZERO?	STACK /?CND52
+	PRINTI	" but Holmes"
+?CND52:	PRINTI	" pass out."
+?CND50:	CRLF	
+?CND45:	MOVE	TH-ETHERIUM-GAS,GL-PLACE-CUR
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,6,0,0
+	ICALL	RT-ALARM-SET-REL,RT-I-WAKE-UP,STACK
+	RTRUE	
+?CCL33:	PRINTR	" The etherium fumes dissipate quickly."
+?CCL12:	ZERO?	GL-NOW-PRSI? \?CCL55
+	EQUAL?	GL-PRSA,V?SHOOT /?CTR54
+	EQUAL?	GL-PRSA,V?BURN-WITH \?CCL55
+	ZERO?	GL-PRSI /?CTR54
+	FSET?	GL-PRSI,FL-BURNABLE \?CCL55
+	FSET?	GL-PRSI,FL-LIGHTED \?CCL55
+?CTR54:	EQUAL?	GL-PRSA,V?SHOOT \?CND66
+	PRINTI	"Couldn't resist it, could you?"
+?CND66:	CRLF	
+	CRLF	
+	PRINTI	"B  O  O  M  !!!"
+	CRLF	
+	CRLF	
+	PRINTI	"Your nerves - already fragile from the Afghan campaign - snap like a dry twig. You collapse into a babbling pile of jello, and white-coated attendants take you away to a nice sunlit room where Lestrade visits on alternate Tuesdays."
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+?CCL55:	EQUAL?	GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	PRINTR	"The label on the ampoule reads, ""Etherium. Extremely volatile. Do not open in the presence of fire."""
+
+
+	.FUNCT	RT-AC-TH-BROKEN-AMPOULE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-ETHERIUM-GAS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTI	"Etherium is a colourless gas, which"
+	ICALL1	RT-YOU-MSG
+	PRINTR	"cannot see."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SMELL \?CCL7
+	IN?	TH-ETHERIUM-GAS,GL-PLACE-CUR \?CCL10
+	FSET?	TH-BREATH,FL-LOCKED /?CCL10
+	CALL1	RT-SMELL-ETHERIUM?
+	RSTACK	
+?CCL10:	ICALL1	RT-CYOU-MSG
+	PRINTR	"cannot smell it."
+?CCL7:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-LAB-EQUIPMENT,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The equipment is a jumble of test tubes, beakers, and pipettes."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	ICALL	RT-CYOU-MSG,STR?769,STR?770
+	PRINTI	"towards the equipment, but then"
+	ICALL	RT-YOU-MSG,STR?771,STR?772,TRUE-VALUE
+	PRINTI	"Holmes's oft-repeated admonition to leave undisturbed his various experiments, and"
+	ICALL	RT-YOU-MSG,STR?773,STR?774,TRUE-VALUE
+	ICALL1	RT-YOUR-MSG
+	PRINTR	"hand."
+
+
+	.FUNCT	RT-AC-TH-ROPE,CONTEXT,T1,T2
+	SET	'T1,TH-ROPE-AUX1
+	SET	'T2,TH-ROPE-AUX2
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	EQUAL?	T1,-1 /FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-ROPE
+	PRINTI	" is securely bound to "
+	ICALL2	RT-THEO-PRINT,T1
+	EQUAL?	T2,-1 /?CND7
+	PRINTI	" and "
+	ICALL2	RT-THEO-PRINT,T2
+?CND7:	PRINTR	"."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL15
+	EQUAL?	T1,-1 /?CCL15
+	ICALL2	RT-CTHEO-PRINT,TH-ROPE
+	PRINTI	" is securely bound to "
+	ICALL2	RT-THEO-PRINT,T1
+	EQUAL?	T2,-1 /?CND18
+	PRINTI	" and "
+	ICALL2	RT-THEO-PRINT,T2
+?CND18:	PRINTR	"."
+?CCL15:	EQUAL?	GL-PRSA,V?CUT \?PRD23
+	EQUAL?	GL-PRSI,TH-KNIFE /?CCL21
+?PRD23:	EQUAL?	GL-PRSA,V?UNTIE \FALSE
+?CCL21:	EQUAL?	T1,-1 /?CCL28
+	EQUAL?	T2,-1 \?CND29
+	ICALL	RT-PERFORM,V?UNTIE,T1
+	RTRUE	
+?CND29:	ICALL	RT-CYOU-MSG,STR?775,STR?776
+	EQUAL?	GL-PRSA,V?UNTIE \?CCL33
+	ICALL	RT-CYOU-MSG,STR?720,STR?721
+	JUMP	?CND31
+?CCL33:	ICALL	RT-CYOU-MSG,STR?777,STR?778
+?CND31:	ICALL2	RT-THEO-PRINT,T1
+	EQUAL?	T2,-1 /?CND34
+	PRINTI	" and "
+	ICALL2	RT-THEO-PRINT,T2
+?CND34:	PRINTI	", and"
+	ICALL	RT-YOU-MSG,STR?228,STR?229
+	PRINTI	"left holding the rope."
+	CRLF	
+	EQUAL?	GL-PLACE-CUR,RM-LAIR \?CND36
+	EQUAL?	CH-MORIARTY,T1,T2 \?CND36
+	FSET?	CH-MORIARTY,FL-ASLEEP /?CND36
+	CRLF	
+	CRLF	
+	PRINTI	"Bad move. As soon as he is free, Moriarty unlocks his desk and pulls out a pistol. ""Thank you for releasing me, gentlemen,"" he says, waving the gun at you. ""Very sporting of you."" He glances at his pocketwatch. ""We shouldn't have too long to wait."" Minutes later you hear newsboys running through the streets shouting about the resignation of the Prime Minister."
+	CRLF	
+	ICALL1	RT-QSR
+?CND36:	SET	'TH-ROPE-AUX1,-1
+	FCLEAR	T1,FL-LOCKED
+	EQUAL?	T2,-1 /?CND41
+	SET	'TH-ROPE-AUX2,-1
+	FCLEAR	T2,FL-LOCKED
+?CND41:	MOVE	TH-ROPE,GL-WINNER
+	RTRUE	
+?CCL28:	ICALL1	RT-CTHEO-PRINT
+	PRINTR	"isn't tied to anyone."
+
+
+	.FUNCT	RT-AC-TH-LIQUID,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's a clear, colourless liquid."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL7
+	PRINTR	"Sorry, you missed."
+?CCL7:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL9
+	CALL2	RT-HOLMES-HITS,TH-LIQUID
+	RSTACK	
+?CCL9:	EQUAL?	GL-PRSA,V?SMELL \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	CALL2	RT-HOLMES-HITS,TH-LIQUID
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-SYRINGE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL3
+	PRINT	K-ANNIE-OAKELEY-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	CALL2	RT-HOLMES-HITS,TH-SYRINGE
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-MOROCCO-CASE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	FSET?	CH-HOLMES,FL-ASLEEP \FALSE
+	ICALL2	RT-HOLMES-HITS,TH-MOROCCO-CASE
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-DEAD-PIGEON
+	EQUAL?	GL-PRSA,V?DROP,V?RELEASE,V?THROW \FALSE
+	EQUAL?	GL-PRSO,TH-DEAD-PIGEON \FALSE
+	PRINTI	"Thud."
+	CRLF	
+	MOVE	TH-DEAD-PIGEON,GL-PLACE-CUR
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-PIGEONS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The pigeons strut around the square as if they own it."
+?CCL3:	EQUAL?	CONTEXT,K-M-WINNER \?CCL5
+	ICALL2	RT-CTHEO-PRINT,TH-PIGEONS
+	PRINTR	" coo in response."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL9
+	EQUAL?	GL-PRSO,TH-PIGEONS \?CCL9
+	ICALL2	RT-CTHEO-PRINT,TH-PIGEONS
+	PRINTR	" scurry out of reach."
+?CCL9:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	EQUAL?	GL-PRSO,TH-PIGEONS \FALSE
+	ICALL	RT-SHOOT-BIRDS,TH-PIGEONS,STR?779
+	RTRUE	
+
+
+	.FUNCT	RT-SHOOT-BIRDS,THING,STR
+	ICALL2	RT-CTHEO-PRINT,THING
+	PRINTI	" all fly up into the air at the sound of the gunshot. Fortunately, none of them was hit. They soon land and resume "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-RED-GLASS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's just a worthless bauble."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL7
+	ICALL1	RT-CTHEO-PRINT
+	PRINT	K-SHATTER-MSG
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	IN?	TH-RUBY,CH-SHERMAN \FALSE
+	ICALL	RT-IMPOLITE-MSG,STR?715,STR?716
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-BED,WHO
+	EQUAL?	GL-PRSA,V?ENTER \?CCL3
+	PRINT	K-NO-RESTING-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?LOOK-UNDER \FALSE
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL8
+	PRINTR	"Holmes gives you a swift kick in the rear and says, ""Watson! There are much more important matters afoot."""
+?CCL8:	EQUAL?	WHO,CH-WIGGINS \?CCL10
+	PRINTR	"Wiggins says, ""Would you get yer bleedin' arse in gear."""
+?CCL10:	PRINTR	"Looking for monsters?"
+
+
+	.FUNCT	RT-AC-TH-MATCHBOOK
+	ZERO?	GL-NOW-PRSI? \?CCL3
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL6
+	CRLF	
+	PRINTI	"Tired of your dull, boring job? Tired of the whole Victorian era? Become a detective! Apply now to the LESTRADE school of sleuthing. In just three short days, Inspector G. Lestrade will teach you everything he knows of the art of detection. Here are just some of the things you'll learn."
+	CRLF	
+	CRLF	
+	PRINTI	"*** Fifteen new and exciting ways to"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"say ""'Ullo! Wot's this?"""
+	CRLF	
+	PRINTI	"*** Modern obfuscatory locution"
+	ICALL1	RT-WRAP-PRINT
+	PRINTI	"eschewel techniques."
+	CRLF	
+	PRINTI	"*** How to insult private detectives."
+	CRLF	
+	CRLF	
+	PRINTR	"Included in your tuition is an official Scotland Yard notebook, and a brand new bobby pin. Just send twenty-five pounds to the LESTRADE, that's L-E-S-T-R-A-D-E school of sleuthing. Act now, and the Inspector will tell you how he knows that people are guilty simply by looking at them."
+?CCL6:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	FSET?	GL-PRSI,FL-LIGHTED \?PRD15
+	FSET?	GL-PRSI,FL-BURNABLE /?CTR12
+?PRD15:	EQUAL?	GL-PRSI,TH-PIPE \?CCL13
+	FSET?	TH-TOBACCO,FL-LIGHTED \?CCL13
+?CTR12:	ICALL2	RT-CTHEO-PRINT,TH-MATCHBOOK
+	PRINTI	" catches fire."
+	CRLF	
+	FSET	TH-MATCHBOOK,FL-LIGHTED
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,1,0
+	CALL	RT-ALARM-SET-REL,RT-I-MATCHBOOK-OUT,STACK
+	RSTACK	
+?CCL13:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"burning."
+?CCL3:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	EQUAL?	GL-PRSO,TH-MATCH /FALSE
+	CALL2	RT-CANT-PUT-IN-ON-MSG,TH-MATCHBOOK
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-PICTURES,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?780,CLASS,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTR	"They look just like some of your relatives."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LOOK-BEHIND \FALSE
+	PRINTR	"Thorough, aren't you? There's nothing there."
+
+
+	.FUNCT	RT-AC-TH-CLUE-BOOK,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It looks like a very old book."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE \?CCL10
+	FSET?	TH-CLUE-BOOK,FL-OPENED \?CCL13
+	ICALL1	RT-READ-CLUE-BOOK
+	RTRUE	
+?CCL13:	PRINTR	"The title is, ""Secret Writing and Invisible Inks."""
+?CCL10:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL15
+	FSET?	TH-CLUE-BOOK,FL-OPENED \?CCL18
+	PRINTR	"The pages are yellowed with age."
+?CCL18:	ICALL1	RT-CYOU-MSG
+	ICALL2	RT-WOULD-HAVE-TO-MSG,STR?781
+	CRLF	
+	RTRUE	
+?CCL15:	EQUAL?	GL-PRSA,V?OPEN \?CCL20
+	FSET?	TH-CLUE-BOOK,FL-OPENED \?CCL23
+	PRINTR	"The book is already open."
+?CCL23:	FSET	TH-CLUE-BOOK,FL-OPENED
+	PRINTR	"The book falls open to the introduction."
+?CCL20:	EQUAL?	GL-PRSA,V?LIGHT-WITH,V?BURN-WITH \FALSE
+	PRINTR	"Perfect example of a typically repressive Victorian mentality."
+
+
+	.FUNCT	RT-AC-TH-BOOK-PAGE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It has writing on it."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?EXAMINE \?CCL7
+	FSET?	TH-CLUE-BOOK,FL-OPENED \?CCL10
+	ICALL1	RT-READ-CLUE-BOOK
+	RTRUE	
+?CCL10:	ICALL1	RT-CYOU-MSG
+	ICALL2	RT-WOULD-HAVE-TO-MSG,STR?227
+	PRINTR	"the book first."
+?CCL7:	EQUAL?	GL-PRSA,V?FLIP,V?TURN \FALSE
+	FSET?	TH-CLUE-BOOK,FL-OPENED \?CCL15
+	PRINTR	"A quick review of the remainder of the book reveals nothing interesting."
+?CCL15:	ICALL1	RT-CYOU-MSG
+	ICALL2	RT-WOULD-HAVE-TO-MSG,STR?227
+	PRINTR	"the book first."
+
+
+	.FUNCT	RT-READ-CLUE-BOOK
+	PRINTI	"A few underlined sentences catch your eye."
+	CRLF	
+	CRLF	
+	PRINTI	"""Invisible writing has a long and honorable history. It is used primarily when it is felt that a code or cipher may be too easily broken."""
+	CRLF	
+	CRLF	
+	PRINTR	"""Most invisible inks are somewhat sticky to the touch, and virtually all of them become visible when exposed to moderate heat."""
+
+
+	.FUNCT	RT-AC-TH-BANK-OF-CANDLES
+	ZERO?	GL-NOW-PRSI? \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	PRINTR	"After a moment's reflection you decide to leave undisturbed the offerings that others have left behind."
+
+
+	.FUNCT	RT-AC-TH-PRAMS
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK \?CCL3
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \FALSE
+?CCL3:	PRINTR	"The nannies move the prams beyond your reach and glare at you menacingly."
+
+
+	.FUNCT	RT-AC-TH-PARK-FLOWERS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"You see daisies, petunias, roses, peonies, marigolds, and a host of golden daffodils."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL7
+	PRINTR	"Please don't pick the flowers."
+?CCL7:	EQUAL?	GL-PRSA,V?EAT \?CCL9
+	PRINTR	"Please don't eat the daisies."
+?CCL9:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-ARCH,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?782,CLASS,FALSE-VALUE,FALSE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTR	"It's a large triumphal arch, surmounted by a bronze chariot."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-SHAFT
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK-DOWN /?CTR2
+	EQUAL?	GL-PRSA,V?SEARCH \?CCL3
+?CTR2:	PRINTR	"It's a long way down."
+?CCL3:	EQUAL?	GL-PRSA,V?ENTER,V?LEAP \?CCL7
+	PRINT	K-SUICIDE-MSG
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?PUT \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON /FALSE
+	REMOVE	GL-PRSO
+	FCLEAR	GL-PRSO,FL-WORN
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" disappear"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTR	" into the shaft. A long time later you hear a faint ""thud."""
+
+
+	.FUNCT	RT-AC-TH-FIREPLACE,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	CALL	PRINT-SDESC,STR?783,CLASS,FALSE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL7
+	PRINTR	"In the fireplace is a roaring fire that would surely consume anything you put into it."
+?CCL7:	EQUAL?	GL-PRSA,V?ENTER,V?LEAP \?CCL9
+	PRINT	K-SUICIDE-MSG
+	CRLF	
+	RTRUE	
+?CCL9:	EQUAL?	GL-PRSA,V?PUT \?CCL11
+	EQUAL?	GL-PRSI,PSEUDO-OBJECT \?CCL11
+	FSET?	GL-PRSO,FL-BODYPART \?CCL16
+	PRINT	K-HOT-MSG
+	CRLF	
+	RTRUE	
+?CCL16:	IN?	GL-PRSO,GLOBAL-OBJECTS \?CCL18
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL18:	EQUAL?	GL-PRSO,TH-ETHERIUM-AMPOULE \?CCL20
+	FSET?	GL-PRSO,FL-BROKEN /?CCL20
+	ICALL	RT-PERFORM,V?MUNG,GL-PRSO
+	RTRUE	
+?CCL20:	CALL	RT-META-IN?,TH-ETHERIUM-AMPOULE,GL-PRSO
+	ZERO?	STACK /?CCL24
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN /?CCL24
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" disappear"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTI	" into the fire, which soon reaches the etherium."
+	ICALL	RT-PERFORM,V?BURN-WITH,TH-ETHERIUM-AMPOULE
+	RTRUE	
+?CCL24:	REMOVE	GL-PRSO
+	FCLEAR	GL-PRSO,FL-WORN
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" disappear"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTI	" into the fire and"
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	PRINTI	"immediately consumed."
+	CRLF	
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON \TRUE
+	ICALL1	RT-KILL-PIGEON
+	RTRUE	
+?CCL11:	EQUAL?	GL-PRSA,V?REACH-IN \?CCL30
+	PRINT	K-HOT-MSG
+	CRLF	
+	RTRUE	
+?CCL30:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-GAS-LIGHT,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	CALL	PRINT-SDESC,STR?784,CLASS,FALSE-VALUE,FALSE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL7
+	PRINTR	"The gas light is out of reach."
+?CCL7:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-CHARIOT,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	CALL	PRINT-SDESC,STR?785,CLASS,FALSE-VALUE,FALSE-VALUE
+	RSTACK	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL7
+	PRINTR	"The chariot is out of reach."
+?CCL7:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-ANNIE-OAKELEY-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-JEWEL-CASE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The case is bent and twisted where the thief attacked it with the mace."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LOOK-THRU \FALSE
+	EQUAL?	GL-PRSI,TH-MAGNIFYING-GLASS \FALSE
+	PRINTR	"It's been wiped clean."
+
+
+	.FUNCT	RT-AC-TH-ELIZAS-MOUTH,CONTEXT
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL3
+	ZERO?	GL-NOW-PRSI? \?CCL3
+	PUTP	CH-ELIZA-DOOLITTLE,P?OBJ-NOUN,W?GIRL
+	PUTP	CH-ELIZA-DOOLITTLE,P?OBJ-ADJ,0
+	ICALL	RT-PERFORM,V?SHOOT,CH-ELIZA-DOOLITTLE
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?PUT \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	FSET?	TH-ELIZAS-MOUTH,FL-OPENED /?CCL11
+	ICALL1	RT-CTHEI-PRINT
+	PRINTR	" is not open."
+?CCL11:	EQUAL?	GL-PRSO,TH-ORANGE-PILL,TH-YELLOW-PILL \?CCL13
+	CALL2	RT-CURE-ELIZA,GL-PRSO
+	RSTACK	
+?CCL13:	FSET?	GL-PRSO,FL-FOOD /?CCL15
+	PRINTI	"It's hard to imagine that "
+	ICALL1	RT-A-PRINT
+	PRINTR	" would do your patient much good."
+?CCL15:	CALL	RT-ROOM-IN-ON-MSG?,GL-PRSO,GL-PRSI
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-TH-RUBBINGS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"They are brass rubbings made from various inscriptions around the abbey."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?READ \FALSE
+	ICALL2	RT-AC-TH-RUBBINGS,K-M-DESCFCN
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-SOFA
+	EQUAL?	GL-PRSA,V?ENTER \FALSE
+	PRINT	K-NO-RESTING-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-MARQUEES,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?786,CLASS,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN /?CCL5
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?READ,V?LOOK-INSIDE,V?LOOK-ON \FALSE
+?CCL5:	SET	'GL-WINDOW,PT?1507
+	ICALL2	RT-WINDOW,GL-WINDOW
+	SET	'GL-WINDOW,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-SUPPORTS,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	CALL	PRINT-SDESC,STR?787,CLASS,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-ASH,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It is dark, almost black, in colour, and quite flakey."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?BLOW-INTO,V?SHOOT \?CCL7
+	REMOVE	TH-ASH
+	ICALL2	RT-CTHEO-PRINT,TH-ASH
+	PRINTR	" scatters and disappears."
+?CCL7:	EQUAL?	GL-PRSA,V?HAUL \?CCL9
+	PRINTR	"Good idea. Let's get the flake out of here."
+?CCL9:	EQUAL?	GL-PRSA,V?KISS \?CCL11
+	PRINT	K-PROFANITY-MSG
+	CRLF	
+	RTRUE	
+?CCL11:	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /FALSE
+	REMOVE	TH-ASH
+	PRINTI	"As soon as"
+	ICALL	RT-YOU-MSG,STR?755,STR?756
+	PRINTR	"to touch the ash, it crumbles and disappears."
+
+
+	.FUNCT	RT-AC-TH-CIGARETTE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-ANNIE-OAKELEY-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-TURBAN
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK \?CTR2
+	EQUAL?	GL-PRSA,V?LOOK-UNDER,V?LOOK-INSIDE \?CCL3
+?CTR2:	FSET?	CH-AKBAR,FL-ASLEEP \?CND6
+	PRINTR	"That's stooping pretty low."
+?CND6:	PRINTI	"The native of India pulls away from you and says, ""As you must know,"
+	FSET?	TH-WATSONS-HAT,FL-WORN \?CND8
+	PRINTI	" honourable sir,"
+?CND8:	PRINTR	" a man's head should never be uncovered. It is an affront to God."""
+?CCL3:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	ICALL	RT-PERFORM,V?SHOOT,CH-AKBAR
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-ANCHOR-CHAIN
+	EQUAL?	GL-PRSA,V?SHOOT \?CCL3
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	IN?	CH-PLAYER,TH-BOAT /?CCL5
+	PRINT	K-MUST-BE-IN-BOAT-MSG
+	PRINTR	"do that."
+?CCL5:	EQUAL?	GL-PRSA,V?TAKE \?CCL7
+	IN?	TH-ANCHOR,TH-BOAT \?CCL10
+	PRINTR	"Oomph! It's too heavy to carry."
+?CCL10:	MOVE	TH-ANCHOR,TH-BOAT
+	CALL1	RT-SAY-RAISE-ANCHOR
+	RSTACK	
+?CCL7:	EQUAL?	GL-PRSA,V?RAISE,V?HAUL,V?WEIGH /?CCL12
+	EQUAL?	GL-PRSA,V?PULL \FALSE
+?CCL12:	IN?	TH-ANCHOR,LG-WATER \?CCL17
+	MOVE	TH-ANCHOR,TH-BOAT
+	CALL1	RT-SAY-RAISE-ANCHOR
+	RSTACK	
+?CCL17:	PRINT	K-ANCHOR-ALREADY-OUT-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-SAY-LOWER-ANCHOR
+	ICALL	RT-CYOU-MSG,STR?788,STR?789
+	PRINTR	"the anchor into the water."
+
+
+	.FUNCT	RT-SAY-RAISE-ANCHOR
+	ICALL	RT-CYOU-MSG,STR?790,STR?791
+	PRINTI	"the anchor and "
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL3
+	PRINTI	"drop"
+	JUMP	?CND1
+?CCL3:	PRINTI	"drops"
+?CND1:	PRINTR	" it into the boat."
+
+
+	.FUNCT	RT-AC-TH-WAX-OBJECT-1,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?792,CLASS,TRUE-VALUE,FALSE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTI	"You see nothing unusual about"
+	ICALL	RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
+	PRINTR	"."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-LIBRARY-OBJ,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?793,CLASS,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTI	"You see nothing unusual about"
+	ICALL	RT-CLAUSE-PRINT,K-P-NC1,K-P-NC1L
+	PRINTR	"."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE,V?LOOK-THRU-SWP /?CCL9
+	EQUAL?	GL-PRSA,V?LOOK-UNDER,V?LOOK-BEHIND,V?LOOK-ON /?CCL9
+	EQUAL?	GL-PRSA,V?LOOK-THRU,V?SEARCH,V?READ \FALSE
+?CCL9:	PRINTI	"You see nothing "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-AC-TH-RAILING
+	EQUAL?	GL-PRSA,V?CLIMB-OVER \?CCL3
+	PRINT	K-SUICIDE-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSA,V?CLIMB-ON \FALSE
+	PRINTR	"It's much too dangerous. Besides, it wouldn't bring you any closer to the clapper."
+
+
+	.FUNCT	RT-AC-TH-OPIUM-GAS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The fumes hang thick in the air."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SMELL \?CCL7
+	PRINT	K-DIZZY-MSG
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSA,V?BUY,V?BUY-FROM,V?ASK-FOR /?CTR8
+	EQUAL?	GL-WINNER,CH-DENKEEPER \?CCL9
+	EQUAL?	GL-PRSA,V?ASK-FOR,V?GIVE \?CCL9
+?CTR8:	PRINTR	"The proprietor eyes you for a moment and says, ""A gent the likes of you doesn't buy what I 'ave to sell, mate. What is it you really want?"""
+?CCL9:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-PRODUCE,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	ICALL	PRINT-SDESC,STR?794,CLASS,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL5
+	PRINTR	"All the produce looks good. But the giant peas look especially delicious."
+?CCL5:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?SMELL \?CCL9
+	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL12
+	PRINTR	"The produce smells country fresh."
+?CCL12:	PRINTR	"The produce smells like it's been there a while."
+?CCL9:	EQUAL?	GL-PRSA,V?BUY,V?BUY-FROM \?CCL14
+	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?FRUIT,W?FRUITS \?CCL17
+	PRINTI	"You"
+	JUMP	?CND15
+?CCL17:	PRINTI	"Although the giant peas look tempting, you"
+?CND15:	PRINTR	" decide to conserve your capital for more important purchases."
+?CCL14:	EQUAL?	GL-PRSA,V?TAKE,V?STEAL \?CCL19
+	PRINT	K-THEFT-MSG
+	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WASTE-OF-BULLETS-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-TRINKETS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"They're mostly just baubles. He's obviously charging way too much for them."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?BUY,V?BUY-FROM \?CCL7
+	IN?	TH-TELESCOPE,CH-VENDOR \?CCL10
+	PRINTR	"The vendor says, ""I've got a loverly telescope you might be interested in, guv'nor."""
+?CCL10:	PRINTR	"You glance at the rest of the vendor's wares and decide you can live without them."
+?CCL7:	EQUAL?	GL-PRSA,V?TAKE,V?STEAL \FALSE
+	PRINT	K-THEFT-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-GUARDS-KEYS,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't see them. They're in the guard's pocket."
+?CCL3:	ZERO?	CONTEXT \FALSE
+	EQUAL?	GL-PRSA,V?LISTEN \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ICALL2	RT-CTHEO-PRINT,CH-BANK-GUARD
+	PRINTR	" is idly jangling some keys in his pocket."
+
+
+	.FUNCT	RT-AC-TH-NELSON-EYE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	FSET?	TH-NELSON-STATUE,FL-OPENED \FALSE
+	IN?	TH-RUBY,TH-NELSON-STATUE \FALSE
+	PRINTC	32
+	PRINT	K-GLINT-MSG
+	RTRUE	
+?CCL3:	ZERO?	CONTEXT \FALSE
+	CALL1	RT-TOUCH-VERB?
+	ZERO?	STACK /?CCL11
+	ICALL2	RT-CTHEO-PRINT,TH-NELSON-EYE
+	PRINTR	" is too high."
+?CCL11:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL13
+	CALL2	RT-AC-TH-NELSON-EYE,K-M-DESCFCN
+	ZERO?	STACK \FALSE
+	PRINTR	"It is too high up to get a good look."
+?CCL13:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-ANNIE-OAKELEY-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-PANELLING,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \FALSE
+	CALL	PRINT-SDESC,STR?795,CLASS,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-INSTRUMENTS,CONTEXT,CLASS
+	EQUAL?	CONTEXT,K-M-SDESC \FALSE
+	CALL	PRINT-SDESC,STR?796,CLASS,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-PLAYER-BODY
+	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?NOSE \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?PRD7
+	EQUAL?	GL-P-PRSA-WORD,W?HOLD /?CCL3
+?PRD7:	EQUAL?	GL-PRSA,V?STEAL \FALSE
+	EQUAL?	GL-P-PRSA-WORD,W?PINCH \FALSE
+?CCL3:	ICALL	RT-PERFORM,V?TAKE,TH-BREATH
+	RTRUE	
+
+	.ENDI
diff --git a/things2.zil b/things2.zil
new file mode 100644
index 0000000..d0d667a
--- /dev/null
+++ b/things2.zil
@@ -0,0 +1,2552 @@
+; "game : SHERLOCK!"
+; "file : THINGS2.ZIL"
+; "auth :   $Author:   RAB  $"
+; "date :     $Date:   28 Oct 1987  4:36:08  $"
+; "rev  : $Revision:   1.144  $"
+; "vers : 1.00"
+
+<ROUTINE RT-DF-TH-ROOM ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-ROOM">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<COND (<MC-ISNOT? ,GL-PLACE-CUR ,FL-INDOORS>
+	       <TELL "You're not inside a room." CR>)
+	      (T
+	       <V-LOOK>)>>
+
+<ROUTINE RT-AC-TH-NOT-HERE-OBJECT ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-NOT-HERE-OBJECT">>
+	<RT-TH-NOT-HERE-OBJECT>>
+
+<ROUTINE RT-AC-TH-INTDIR ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-INTDIR">>
+	<COND (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)
+	      (<RT-TOUCH-VERB?>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-TIME ("OPT" (CONTEXT <>))
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <COND (<EQUAL? <GETP ,TH-TIME ,P?OBJ-NOUN>
+			      ,W?MINUTE ,W?MINUTES>
+		      <TELL "minute">)
+		     (T
+		      <TELL "hour">)>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<RT-TOUCH-VERB?>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<INTBL? ,GL-PRSA <REST ,GL-SEE-VERBS 2> <GET ,GL-SEE-VERBS 0>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-HANDS ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-HANDS">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-PRSI? <>>
+			   <MC-VERB? TAKE TAKE-OFF>
+			   <MC-IS? ,TH-HANDS ,FL-LOCKED>>
+		      <MC-UNMAKE ,TH-HANDS ,FL-LOCKED>
+		      <RT-CYOU-MSG "take" "takes">
+		      <SETG HEARD-SWING? <>>
+		      <TELL THE ,TH-HANDS " off of " THE ,TH-EARS "." CR>)
+		     (<MC-PRSI? ,TH-EARS>
+		      <COND (<MC-VERB? TAKE>
+			     <COND (<MC-ISNOT? ,TH-HANDS ,FL-LOCKED>
+				    <TELL "Your hands are not on " THE ,TH-EARS "." CR>)
+				   (T
+				    <MC-UNMAKE ,TH-HANDS ,FL-LOCKED>
+				    <RT-CYOU-MSG "take" "takes">
+				    <SETG HEARD-SWING? <>>
+				    <TELL THE ,TH-HANDS " off of "
+					  THE ,TH-EARS "." CR>)>)
+			    (<MC-VERB? PUT-ON>
+			     <COND (<MC-IS? ,TH-HANDS ,FL-LOCKED>
+				    <TELL "Your hands are already on "
+					  THE ,TH-EARS "." CR>)
+				   (T
+				    <MC-MAKE ,TH-HANDS ,FL-LOCKED>
+				    <RT-CYOU-MSG "put" "puts">
+				    <TELL THE ,TH-HANDS " on "
+					  THE ,TH-EARS "." CR>)>
+			     <RTRUE>)>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-PRSO? ,TH-EARS>
+		      <COND (<MC-VERB? COVER>
+			     <COND (<MC-IS? ,TH-HANDS ,FL-LOCKED>
+				    <TELL "Your hands are already on " THE ,TH-EARS "." CR>)
+				   (T
+				    <MC-MAKE ,TH-HANDS ,FL-LOCKED>
+				    <RT-CYOU-MSG "put" "puts">
+				    <TELL THE ,TH-HANDS " on " THE ,TH-EARS "." CR>)>
+			     <RTRUE>)>)>)>>
+
+<ROUTINE RT-AC-TH-WATSONS-HEART ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WATSONS-HEART">>
+	<COND (<MC-VERB? LISTEN>
+	       <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+	              <RT-CYOU-MSG>
+		      <TELL
+"cannot hear a thing with " THE ,TH-COTTON-BALLS " in " THE ,TH-EARS>)
+		     (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+		      <IFSOUND <SOUNDS ,S-HEART2 ,S-START <COND (<MC-HERE?
+			        ,RM-BAR-OF-GOLD ,RM-LAIR ,RM-SWAN-LANE> 8)
+					       			(T 6)> 8>>
+		      <TELL "Your heart is beating ">
+		      <COND (<MC-HERE? ,RM-BAR-OF-GOLD ,RM-LAIR ,RM-SWAN-LANE>
+			     <TELL "so loudly you're surprised everyone can't hear it">)
+			    (T
+			     <TELL "normally">)>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <TELL "should wear the stethoscope, first">)>
+	       <TELL "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-EARS ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-EARS">>
+	<COND (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? PUT>
+		      <COND (<MC-PRSO? ,TH-HANDS ,TH-STETHOSCOPE>
+			     <RFALSE>)
+			    ;(<IN? ,GL-PRSO ,TH-EARS>
+			     <TELL CTHEO>
+			     <RT-IS-ARE-MSG>
+			     <TELL "already in " THEI "." CR>)
+			    (<MC-PRSO? ,TH-COTTON-BALLS>
+			     <COND (<FSET? ,GL-PRSO ,FL-WORN>
+				    <TELL CTHEO>
+				    <RT-IS-ARE-MSG>
+				    <TELL "already in " THEI "." CR>)
+				   (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+				    <RT-CYOU-MSG>
+				    <RT-WOULD-HAVE-TO-MSG "take out" ,TH-STETHOSCOPE>
+				    <TELL " first." CR>
+				    <RTRUE>)
+				   (T
+				    <SETG GL-LISTEN-OBJ <>>
+				    <MC-MAKE ,TH-COTTON-BALLS ,FL-WORN>
+				    <RT-CYOU-MSG "put" "puts">
+				    <TELL THEO " in " THEI "." CR>)>)
+			    (T
+			     <TELL "You cannot put that in " THE ,TH-EARS "." CR>)>)
+		     (<MC-VERB? TAKE>
+		      <COND (<MC-PRSO? ,TH-HANDS ,TH-STETHOSCOPE>
+			     <RFALSE>)
+			    ;(<NOT <IN? ,GL-PRSO ,TH-EARS>>
+			     <TELL CTHEO>
+			     <RT-ISNT-ARENT-MSG>
+			     <TELL "in " THEI "." CR>)
+			    (<MC-PRSO? ,TH-COTTON-BALLS>
+			     <SETG GL-LISTEN-OBJ <>>
+			     <MC-UNMAKE ,TH-COTTON-BALLS ,FL-WORN>
+			     <TELL "You take the cotton balls out of your ears." CR>)
+			    ;(T
+			     <RT-CYOU-MSG>
+			     <TELL "cannot take that out of " THEI "." CR>)>)
+		     (<MC-VERB? EMPTY EMPTY-INTO>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot empty anything into " THEI "." CR>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? LOOK-INSIDE LOOK-ON EXAMINE>
+		      <TELL ,K-EYES-HINGED-MSG CR>)
+		     (<MC-VERB? REACH-IN SEARCH>
+		      <COND (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+			     <RT-CYOU-MSG "feel" "feels">
+			     <TELL THE ,TH-STETHOSCOPE "." CR>)
+			    (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+			     <RT-CYOU-MSG "feel" "feels">
+			     <TELL THE ,TH-COTTON-BALLS "." CR>)>)>)>>
+
+<ROUTINE RT-AC-TH-HEAD ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-HEAD">>
+	<COND (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-VERB? TOUCH SEARCH>
+			   <MC-IS? ,TH-WATSONS-HAT ,FL-WORN>>
+		      <TELL "You are wearing " THE ,TH-WATSONS-HAT "." CR>)
+		     (<MC-VERB? EXAMINE LOOK-ON>
+		      <TELL ,K-EYES-HINGED-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-BREATH ()
+  <DEBUGGING? <RT-DEBUG-OB-AC "TH-BREATH">>
+  <COND (<MC-THIS-PRSI?>
+	 <RFALSE>)
+	(<MC-THIS-PRSO?>
+	 <COND (<MC-VERB? EXAMINE LOOK-INSIDE SEARCH> 
+		<TELL "It is not cold enough to see " THEO "." CR>)
+	       (<MC-VERB? SMELL>
+		<TELL "It smells no worse than usual." CR>)
+	       (<MC-VERB? RELEASE>
+		<V-EXHALE>)
+	       ;(<MC-VERB? TAKE ;SUCK>  ;"Handled in PRE-TAKE"
+		<COND (<NOT <MC-PRSI? <> ,ROOMS>>
+		       <RT-IMPOSSIBLE-MSG>)
+		      (<N==? ,GL-WINNER ,CH-PLAYER>
+		       <TELL CTHE ,GL-WINNER " look">
+		       <RT-S-NOS-MSG ,GL-WINNER>
+		       <TELL " at you strangely, but otherwise ignore">
+		       <RT-S-NOS-MSG ,GL-WINNER>
+		       <TELL " you." CR>
+		       <RTRUE>)
+		      (<MC-VERB-WORD? HOLD TAKE CATCH GET GRAB PINCH ;SUCK>
+		       <V-INHALE>)
+		      (T
+		       <TELL "You cannot " VW " " THE ,TH-BREATH "." CR>)>)
+	       (<MC-VERB? SHOOT>
+		<TELL "It's bad, but it doesn't deserve to die." CR>)>)>>
+
+<ROUTINE RT-AC-TH-CLOTHES ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CLOTHES">>
+	<COND (<MC-VERB? LOOK-INSIDE SEARCH>
+	       <RT-PERFORM ,V?LOOK-INSIDE ,TH-POCKET>
+	       <RTRUE>)
+	      (<AND <MC-VERB? PUT>
+		    <MC-PRSI? ,TH-CLOTHES>>
+	       <TELL "[in " THE ,TH-POCKET "]" CR>
+	       <RT-PERFORM ,V?PUT ,GL-PRSO ,TH-POCKET>
+	       <RTRUE>)
+	      (<MC-VERB? WEAR>
+	       <TELL "You are already wearing them." CR>
+	       <RTRUE>)
+	      (<MC-VERB? TAKE-OFF DROP RAISE>
+	       <TELL ,K-INAPPROPRIATE-MSG CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-WATERMARK ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WATERMARK">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<OR <RT-VISIBLE? ,TH-GREEN-PAPER>
+			  <RT-VISIBLE? ,TH-WHITE-PAPER>
+			  <RT-VISIBLE? ,TH-BLUE-PAPER>
+			  <RT-VISIBLE? ,TH-ORANGE-PAPER>
+			  <RT-VISIBLE? ,TH-YELLOW-PAPER>
+			  <RT-VISIBLE? ,TH-BROWN-PAPER>>
+		      <RFALSE>)
+		     (T
+		      <RT-CYOU-MSG "do" "does">
+		      <TELL "not see any " D ,TH-WATERMARK "here." CR>
+		      <RTRUE>)>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<OR <RT-VISIBLE? ,TH-GREEN-PAPER>
+		   <RT-VISIBLE? ,TH-WHITE-PAPER>
+		   <RT-VISIBLE? ,TH-BLUE-PAPER>
+		   <RT-VISIBLE? ,TH-ORANGE-PAPER>
+		   <RT-VISIBLE? ,TH-YELLOW-PAPER>
+		   <RT-VISIBLE? ,TH-BROWN-PAPER>>
+	       <COND (<MC-VERB? SHOOT>
+		      <RT-WASTE-OF-BULLETS-MSG>)>)
+	      (T
+	       <RT-CYOU-MSG "do" "does">
+	       <TELL "not see any " D ,TH-WATERMARK " here." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-SESAME ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-SESAME">>
+	<COND (<MC-VERB? OPEN>
+	       <TELL "Ali Baba you're not." CR>
+	       <RTRUE>)
+	      (<NOT <RT-TALK-VERB?>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-RIGHT ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-RIGHT">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<RT-TOUCH-VERB?>
+		      <RT-IMPOSSIBLE-MSG>)
+		     (<INTBL? ,GL-PRSA <REST ,GL-SEE-VERBS 2> <GET ,GL-SEE-VERBS 0>>
+		      <RT-IMPOSSIBLE-MSG>)
+		     (<MC-VERB? SHOOT>
+		      <RT-IMPOSSIBLE-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-LEFT ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LEFT">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<RT-TOUCH-VERB?>
+		      <RT-IMPOSSIBLE-MSG>)
+		     (<INTBL? ,GL-PRSA <REST ,GL-SEE-VERBS 2> <GET ,GL-SEE-VERBS 0>>
+		      <RT-IMPOSSIBLE-MSG>)
+		     (<MC-VERB? SHOOT>
+		      <RT-IMPOSSIBLE-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-BULLET-HOLE ("AUX" (NUM 0) OFF (HOLE <>) PLACE)
+       <DEBUGGING? <RT-DEBUG-OB-AC "TH-BULLET-HOLE">>
+       <REPEAT ()
+	       <SET OFF <* .NUM 2>>
+	       <COND (<EQUAL? .NUM <GET ,GL-HOLES 0>>
+		      <RETURN>)
+		     (<RT-VISIBLE? <GET ,GL-HOLES <+ .OFF 1>>>
+		      <COND (<OR <MC-F? <SET PLACE <GET ,GL-HOLES <+ .OFF 2>>>>
+				 <MC-HERE? .PLACE>>
+			     <SET HOLE T>
+			     <RETURN>)>)>
+	       <INC NUM>>
+       <COND (<MC-F? .HOLE>
+	      <RT-CANT-SEE-ANY-MSG ,TH-BULLET-HOLE>)
+	     (<MC-VERB? SHOOT>
+	      <TELL ,K-ANNIE-OAKELEY-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-GENERIC-BODY ("OPT" (CONTEXT <>) (CLASS <>) "AUX"
+			 (ADJ <GETP ,TH-GENERIC-BODY ,P?OBJ-ADJ>) S1 S2
+			 (WHICH ,CH-PLAYER))
+	 <COND (<EQUAL? .ADJ ,W?WIGGINS\'>
+	       <SET WHICH ,CH-WIGGINS>)
+	      (<EQUAL? .ADJ ,W?HOLMES\' ,W?HOLMES\'S>
+	       <SET WHICH ,CH-HOLMES>)
+	      (<EQUAL? .ADJ ,W?HUDSON\'S>
+	       <SET WHICH ,CH-HUDSON>)
+	      (<EQUAL? .ADJ ,W?ELIZA\'S ,W?GIRL\'S>
+	       <SET WHICH ,CH-ELIZA-DOOLITTLE>)
+	      (<EQUAL? .ADJ ,W?HER>
+	       <COND (<RT-VISIBLE? ,CH-HUDSON>
+		      <SET WHICH ,CH-HUDSON>)
+		     (T
+		      <SET WHICH ,CH-ELIZA-DOOLITTLE>)>)
+	      (<EQUAL? .ADJ ,W?LEFT ,W?RIGHT>
+	       <COND (<RT-VISIBLE? ,CH-WIGGINS>
+		      <SET WHICH ,CH-WIGGINS>)
+		     (<RT-VISIBLE? ,CH-HOLMES>
+		      <SET WHICH ,CH-HOLMES>)
+		     (<RT-VISIBLE? ,CH-HUDSON>
+		      <SET WHICH ,CH-HUDSON>)
+		     (<RT-VISIBLE? ,CH-ELIZA-DOOLITTLE>
+		      <SET WHICH ,CH-ELIZA-DOOLITTLE>)>)>
+	<COND (<==? .WHICH ,CH-WIGGINS>
+	       <SET S1 "Wiggins">
+	       <SET S2 "Wiggins's">)
+	      (<==? .WHICH ,CH-HOLMES>
+	       <SET S1 "Holmes">
+	       <SET S2 "Holmes's">)
+	      (<==? .WHICH ,CH-HUDSON>
+	       <SET S1 "Mrs Hudson">
+	       <SET S2 "Mrs Hudson's">)
+	      (<==? .WHICH ,CH-ELIZA-DOOLITTLE>
+	       <SET S1 "the girl">
+	       <SET S2 "the girl's">)
+	      (<==? .WHICH ,CH-PLAYER>
+	       <SET S1 "yourself">
+	       <SET S2 "your">)>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <TELL .S1>
+	       <RTRUE>)
+	      (<T? .CONTEXT> <RFALSE>)>
+	<COND (<NOT <RT-VISIBLE? .WHICH>>
+	       <RT-CANT-SEE-ANY-MSG <> .S1 T>
+	       <RFATAL>)
+	      (<==? .WHICH ,CH-ELIZA-DOOLITTLE>
+	       <TELL "[You do not need to refer to">
+	       <RT-CLAUSE-PRINT ,K-P-NC1 ,K-P-NC1L>
+	       <TELL ".]" CR>
+	       <RFATAL>)
+	      (T
+	       <TELL
+"[You do not need to refer to any part of " .S2 " body.]" CR>
+	       <RFATAL>)>>
+
+<ROUTINE RT-AC-TH-POCKET ()
+	<COND (<AND <MC-VERB? PUT>
+		    <MC-THIS-PRSI?>
+		    <MC-PRSO? TH-PADDLE
+			      TH-MACE
+			      TH-ANCHOR
+			      TH-LAMP
+			      TH-VIOLIN
+			      TH-PACKET-OF-PAPER
+			      TH-SUIT-OF-ARMOUR
+			      TH-OAR-1
+			      TH-OAR-2
+			      TH-TORCH
+			      TH-WAX-AX
+			      TH-WAX-HEAD>>
+	       <RT-CANT-PUT-IN-ON-MSG ,TH-POCKET>)>>
+
+<ROUTINE RT-AC-TH-GUN ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-GUN">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The gun is a six-shot revolver." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? OPEN LOOK-INSIDE SEARCH>
+	       <TELL "The gun is jammed shut. You can't open it." CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-KNIFE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-KNIFE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's a nasty-looking jackknife." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT>
+	       <RFALSE>)
+	      (<MC-VERB? CUT>
+	       <COND (<MC-ISNOT? ,TH-KNIFE ,FL-OPENED>
+		      <TELL CTHE ,TH-KNIFE " isn't open." CR>)>)
+	      (<MC-VERB? TAKE>
+	       <SETG KNIFE-COLD? <>>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-MAGNIFYING-GLASS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-MAGNIFYING-GLASS">>
+; "DEB -- I put this COND in so that the gem action routine would handle"
+; "looking at the gem with the magnifying glass."
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It is of Swiss manufacture, with a precision-ground lens." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-PRSO? ,TH-SAPPHIRE ,TH-EMERALD ,TH-OPAL ,TH-RUBY ,TH-TOPAZ
+                         ,TH-GARNET ,TH-WESTMINSTER-CLUE ,TH-JEWEL-CASE>
+	       <RFALSE>)>
+	<SETG GL-P-IT-OBJECT ,TH-MAGNIFYING-GLASS>
+	<COND (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? LOOK-THRU>
+		      <COND (<NOT <IN? ,GL-PRSI ,CH-PLAYER>>
+			     <RT-YOUD-HAVE-TO-MSG "be holding" ,GL-PRSI>
+			     <RTRUE>)
+			    (<EQUAL? ,GL-PRSO ,TH-MAGNIFYING-GLASS>
+			     <RT-IMPOSSIBLE-MSG>
+			     <RTRUE>)
+			    (<NOT <EQUAL? ,GL-LASTFOC ,GL-PRSO>>
+			     <SETG GL-LASTFOC ,GL-PRSO>
+			     <TELL "You train the magnifying glass on " THEO "." CR>)>
+		      <COND (<AND <MC-IS? ,GL-PRSO ,FL-PLURAL>
+				  <MC-ISNOT? ,GL-PRSO ,FL-COLLECTIVE>>
+			     <TELL "They appear ">)
+			    (<AND <MC-IS? ,GL-PRSO ,FL-PERSON>
+				  <MC-IS? ,GL-PRSO ,FL-FEMALE>>
+			     <TELL "She appears ">)
+			    (<AND <MC-IS? ,GL-PRSO ,FL-PERSON>
+				  <MC-ISNOT? ,GL-PRSO ,FL-FEMALE>>
+			     <TELL "He appears ">)
+			    (T
+			     <TELL "It appears ">)>
+		      <TELL "much larger now." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<MC-VERB? SHOOT>
+	       <TELL CTHEO ,K-SHATTER-MSG CR>)
+	      (<MC-VERB? LOOK-INSIDE>
+	       <TELL "Everything appears much larger." CR>
+	       <RTRUE>)
+	      (<MC-VERB? ADJUST PLAY>
+	       <TELL "You cannot adjust a magnifying glass." CR>
+	       <RTRUE>)
+	      ;(<MC-VERB? OPEN OPEN-WITH CLOSE REACH-IN>
+		<TELL "You cannot do that with a magnifying glass." CR>
+		<RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-VIOLIN ("OPT" (CONTEXT <>) "AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-VIOLIN">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It is a Stradivarius violin of exceptional quality." CR>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? PLAY>
+	       <COND (<NOT <IN? ,TH-VIOLIN ,GL-WINNER>>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not holding " THEO "." CR>
+		      <RTRUE>)>
+	       <IFSOUND <SOUNDS ,S-BADVIOL>>
+	       <COND (<AND <IN? ,TH-PHIAL ,CH-HOLMES>
+			   <MC-HERE? ,RM-HOLMES-STUDY>>
+		      <TELL "Even the grotesque noises">
+		      <RT-YOU-MSG "make" "makes">
+		      <TELL "with the violin aren't enough to
+distract Holmes's attention from the phial." CR>
+		      <RTRUE>)>
+	       <SET WHO <RT-ANYONE-HERE?>>
+	       <COND (<MC-T? .WHO>
+		      <MC-MAKE .WHO ,FL-ASLEEP>
+		      <COND (<RT-ANYONE-HERE?>
+			     <TELL "Everyone">)
+			    (T
+			     <TELL CTHE .WHO>)>
+		      <MC-UNMAKE .WHO ,FL-ASLEEP>
+		      <TELL " grimace">
+		      <RT-S-NOS-MSG .WHO>
+		      <TELL " in pain and glare">
+		      <RT-S-NOS-MSG .WHO>
+		      <TELL " at you." CR>)
+		     (T
+		      <TELL
+"Even you cannot abide the grotesque screeches that emanate from the tortured
+instrument, so you quickly stop." CR>)>)>>
+
+<ROUTINE RT-AC-TH-PHIAL ("AUX" HITS)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PHIAL">>
+	<COND (<MC-VERB? SHOOT>
+	       <SET HITS ,TH-PHIAL-AUX1>
+	       <SETG TH-PHIAL-AUX1 <+ 1 .HITS>>
+	       <COND (<ZERO? .HITS>
+		      <TELL
+"Nice shot! The phial explodes. You hear a muffled scream from downstairs
+as Mrs Hudson lets out a shriek." CR CR
+,K-HOLMES-LICKS-MSG
+"eyes begin to cloud over from the small dose you have caused him to take."
+CR CR ,K-ANOTHER-PHIAL-MSG CR>
+		      <RTRUE>)
+		     (<EQUAL? 1 .HITS>
+		      <TELL
+"The phial explodes. From downstairs you hear a dull thud as Mrs Hudson
+faints and hits the floor." CR CR ,K-HOLMES-LICKS-MSG
+"body stiffens as the increased dosage of the drug enters his system."
+CR CR ,K-ANOTHER-PHIAL-MSG CR CR
+"As a doctor, you know that another dose may be fatal." CR>
+		      <RTRUE>)
+		     (<EQUAL? 2 .HITS>
+		      <TELL
+"That persistent, are you? Too bad. The chill you caught from the damp air
+outside causes you to sneeze just as you pull the trigger. You have shot and
+killed Sherlock Holmes." CR CR
+"Inspector Lestrade appears at the door and says,"
+,K-PLUG-HIM-MYSELF-MSG CR CR ,K-LESTRADE-ARRESTS-MSG CR CR>
+		      <RT-QSR>)>)
+	      (<RT-TOUCH-VERB?>
+	       <RT-HOLMES-HITS ,TH-PHIAL>
+	       <RTRUE>)>
+	<RFALSE>>
+
+<ROUTINE RT-HOLMES-HITS (THING)
+	<TELL
+"Holmes is faster than you are. He moves " THE .THING " beyond your reach and
+absentmindedly hits you on the head with his free hand." CR CR
+
+"Holmes continues staring at the phial." CR>>
+
+<ROUTINE RT-AC-TH-GREEN-PAPER ()
+	 <DEBUGGING? <RT-DEBUG-OB-AC "TH-GREEN-PAPER">>
+	 <RT-PROCESS-PAPER ,TH-GREEN-PAPER>>
+
+<ROUTINE RT-AC-TH-WHITE-PAPER ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WHITE-PAPER">>
+	<RT-PROCESS-PAPER ,TH-WHITE-PAPER>>
+
+<ROUTINE RT-AC-TH-BLUE-PAPER ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BLUE-PAPER">>
+	<RT-PROCESS-PAPER ,TH-BLUE-PAPER>>
+
+<ROUTINE RT-AC-TH-ORANGE-PAPER ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ORANGE-PAPER">>
+	<RT-PROCESS-PAPER ,TH-ORANGE-PAPER>>
+
+<ROUTINE RT-AC-TH-YELLOW-PAPER ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-YELLOW-PAPER">>
+	<RT-PROCESS-PAPER ,TH-YELLOW-PAPER>>
+
+<ROUTINE RT-AC-TH-BROWN-PAPER ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BROWN-PAPER">>
+	<RT-PROCESS-PAPER ,TH-BROWN-PAPER>>
+
+<ROUTINE RT-AC-TH-ELIZABETH-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ELIZABETH-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"The tomb is that of Elizabeth and her half-sister, Mary Tudor. It is
+surrounded by twelve black marble pillars, and on the base is an inscription."
+CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 1>)>>
+
+<ROUTINE RT-AC-TH-NEWTON-TOMB ("OPT" (CONTEXT <>) (CLASS <>)
+			       "AUX" WRD)
+  <COND (<EQUAL? <SET WRD <GETP ,TH-NEWTON-TOMB ,P?OBJ-NOUN>>
+		 ,W?STATUE>
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		; "First letter, base string, class, capitalize?,
+		   setting of NOARTC for
+		   this, setting of PLURAL for this"
+		<PRINT-SDESC "statue of Sir Isaac Newton" .CLASS 
+			     <> <>>)
+	       (<==? .CONTEXT ,K-M-DESCFCN>
+		<TELL
+"The great mathematician is shown reclining in a pensive mood." CR>)
+	       (T <RFALSE>)>)
+	(<EQUAL? .WRD ,W?CHERUB ,W?ANGEL ,W?CHERUBS ,W?ANGELS>
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "cherubs" .CLASS <> T>)
+	       (<==? .CONTEXT ,K-M-DESCFCN>
+		<TELL "Cute, aren't they?" CR>)
+	       (T
+		<RFALSE>)>)
+	(<EQUAL? .WRD ,W?DIAGRAM ,W?SYSTEM>
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "diagram" .CLASS <> <>>)
+	       (T
+		<RFALSE>)>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "Newton's tomb" .CLASS T <>>)
+	       (<==? .CONTEXT ,K-M-DESCFCN>
+		<TELL
+"It's a white marble sarcophagus with \"ISAACVS NEWTON   Eques Auratus\"
+written on the front. Above it is a marble statue of Newton, and a carving
+of two cherubs who are holding a diagram of the solar system."	CR>)
+	       (<MC-T? .CONTEXT> <RFALSE>)
+	       (T
+		<RT-PROCESS-TOMB 2>)>)>>
+
+<ROUTINE PRINT-SDESC (BASE CLASS NOART? PLURAL? "OPT" (VOWEL? <>)
+		      (PRINTB? <>)
+		      "AUX" (IS <>))
+  <COND (<F? .NOART?>
+	 <COND (<==? .CLASS ,K-DESC-ANY>
+		<SET IS "any">)
+	       (<OR <==? .CLASS ,K-DESC-THE>
+		    .PLURAL?>
+		<SET IS "the">)
+	       (.PLURAL?
+		<SET IS "some">)
+	       (T
+		<COND (.VOWEL?
+		       <SET IS "an">)
+		      (T
+		       <SET IS "a">)>)>
+	 <COND (.IS <TELL .IS>)>
+	 <PRINTC !\ >)>
+  <COND (.PRINTB?
+	 <PRINTB .BASE>)
+	(T
+	 <TELL .BASE>)>>
+
+<ROUTINE RT-AC-TH-HENRY-V-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-HENRY-V-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's an old wooden coffin on a raised platform. On the top is an effigy of
+Henry V, and there is an inscription carved into the side." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 3>)>>
+
+<ROUTINE RT-AC-TH-EDWARD-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-EDWARD-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL 
+"It's the tomb of Edward the Confessor, the founder of Westminster Abbey,
+and the only English king ever to be canonized. Around the tomb is a frieze
+that shows scenes from Edward's life, and on the base there is a faded
+inscription." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 4>)>>
+
+<ROUTINE RT-AC-TH-POPE-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-POPE-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL ,K-SIMPLE-TOMB-MSG CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 5>)>>
+
+<ROUTINE RT-AC-TH-DICKENS-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-DICKENS-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL ,K-SIMPLE-TOMB-MSG CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 6>)>>
+
+<ROUTINE RT-AC-TH-CHAUCER-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CHAUCER-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's the tomb of Geoffrey Chaucer, who died in 1400 and became the first
+person to be buried in Poet's Corner. The inscription above the sarcophagus
+is so faded that it is almost illegible."  CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 7>)>>
+
+<ROUTINE RT-AC-TH-ANNE-OF-CLEVES-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ANNE-OF-CLEVES-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL ,K-SIMPLE-TOMB-MSG CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 8>)>>
+
+<ROUTINE RT-AC-TH-LITTLE-PRINCES-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LITTLE-PRINCES-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"According to the inscription, the urn contains the remains of the Little
+Princes in the Tower." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 9>)>>
+
+<ROUTINE RT-AC-TH-MARY-QUEEN-OF-SCOTS-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-MARY-QUEEN-OF-SCOTS-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"The tomb is a simple sarcophagus with a marble effigy of Mary, Queen of
+Scots on it." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 10>)>>
+
+<ROUTINE RT-AC-TH-HENRY-VII-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-HENRY-VII-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's an incredibly lavish tomb which is surmounted by gilt effigies of Henry
+VII and his wife Elizabeth of York." CR>)
+	      (<MC-T? .CONTEXT>
+	       <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 11>)>>
+
+<ROUTINE RT-AC-TH-PITT-TOMB ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PITT-TOMB">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's a huge monument to William Pitt. On the base of the monument are five "
+D ,TH-FIGURES " and an elaborate inscription." CR>)
+	      (<MC-T? .CONTEXT>
+	       <RFALSE>)
+	      (T
+	       <RT-PROCESS-TOMB 12>)>>
+
+<ROUTINE RT-AC-TH-FIGURES ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-FIGURES">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"You've never understood allegorical figures before. What makes you think you
+can start now?" CR>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-VERE-TOMB ("OPT" (CONTEXT <>) (CLASS <>) (CAP? <>) "AUX" WRD)
+  <COND (<==? <SET WRD <GETP ,TH-VERE-TOMB ,P?OBJ-NOUN>> ,W?KNIGHT ,W?KNIGHTS>
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "knights" .CLASS <> T>)
+	       (T
+		<RFALSE>)>)
+	(<==? .WRD ,W?SUIT ,W?ARMOUR ,W?ARMOR>
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "armour" .CLASS <> <> T>)
+	       (<T? .CONTEXT> <RFALSE>)
+	       (<MC-VERB? SHOOT>
+		<TELL ,K-RICOCHET-MSG CR>)>)
+	(<==? .CONTEXT ,K-M-SDESC>
+	 <PRINT-SDESC "Sir Francis Vere's tomb" .CLASS T <>>)
+	(<==? .CONTEXT ,K-M-DESCFCN>
+	 <TELL
+"It's an effigy of a man surrounded by four knights, who are holding up
+a marble slab on their shoulders. On the slab is the dead man's armour." CR>)
+	(<MC-T? .CONTEXT> <RFALSE>)
+	(T
+	 <RT-PROCESS-TOMB 13>)>>
+
+<ROUTINE RT-AC-TH-LAMP ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LAMP">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It is a battered old brass lamp that has accompanied
+you on many adventures in the past." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? THROW>
+		      <COND (<G? <GET-MASS ,GL-PRSO> 5>
+			     <RT-BREAK-LAMP>
+			     <TELL CR CTHEO " ">
+			     <RT-LANDS-AT-YOUR-FEET-MSG>
+			     <RTRUE>)>)
+		     (<MC-VERB? PUT>
+		      <RT-LAMP-SEALED>)>)
+	      (T
+	       <COND (<MC-VERB? SHOOT KICK MUNG>
+		      <RT-BREAK-LAMP>)
+		     (<MC-VERB? OPEN CLOSE OPEN-WITH ;UNSCREW LOOK-INSIDE
+				SEARCH REACH-IN EMPTY EMPTY-INTO>
+		      <RT-LAMP-SEALED>)
+		     (<MC-VERB? LAMP-ON LIGHT-WITH TURN-UP LIGHT>
+		      <COND (<MC-IS? ,TH-LAMP ,FL-BROKEN>
+			     <MC-UNMAKE ,TH-LAMP ,FL-ASLEEP>
+			     <TELL "Nothing happens." CR>)
+			    (<MC-ISNOT? ,TH-LAMP ,FL-ASLEEP>
+			     <TELL CTHE ,TH-LAMP " is already on." CR>)
+			    (T
+			     <MC-UNMAKE ,TH-LAMP ,FL-ASLEEP>
+			     <MC-MAKE ,TH-LAMP ,FL-LIGHTED>
+			     <TELL "You turn up the wick. " CTHE ,TH-LAMP
+" emits a warm glow that lights up the area around you." CR>)>)
+		     (<MC-VERB? LAMP-OFF TURN-DOWN>
+		      <COND (<MC-IS? ,TH-LAMP ,FL-ASLEEP>
+			     <TELL CTHE ,TH-LAMP " is already off." CR>)
+			    (<MC-IS? ,TH-LAMP ,FL-BROKEN>
+			     <MC-MAKE ,TH-LAMP ,FL-ASLEEP>
+			     <TELL "Nothing happens." CR>)
+			    (T
+			     <MC-MAKE ,TH-LAMP ,FL-ASLEEP>
+			     <MC-UNMAKE ,TH-LAMP ,FL-LIGHTED>
+			     <TELL "You turn down the wick. " CTHE ,TH-LAMP
+" goes dark." CR>)>)
+		     (<MC-VERB? POINT-AT SHINE-AT>
+		      <COND (<MC-IS? ,TH-LAMP ,FL-LIGHTED>
+			     <COND (<EQUAL? ,GL-PRSO ,GL-PRSI>
+				    <RT-CYOU-MSG>
+				    <TELL "can't point the light at itself." CR>)
+				   (T
+				    <TELL "You point " THE ,TH-LAMP " at " THEI ", but it reveals nothing." CR>)>)
+			    (T
+			     <TELL CTHE ,TH-LAMP " is not on." CR>)>)>)>>
+
+<ROUTINE RT-LAMP-SEALED ()
+	<TELL
+CTHE ,TH-LAMP " is firmly sealed. It can neither be opened nor closed." CR>>
+
+<ROUTINE RT-BREAK-LAMP ()
+	<COND (<MC-ISNOT? ,TH-LAMP ,FL-BROKEN>
+	       <MC-MAKE ,TH-LAMP ,FL-BROKEN>
+	       <TELL "It sounds as if something in " THE ,TH-LAMP " has shattered.">
+	       <COND (<MC-IS? ,TH-LAMP ,FL-LIGHTED>
+		      <MC-UNMAKE ,TH-LAMP ,FL-LIGHTED>
+		      <TELL " " CTHE ,TH-LAMP " has gone out.">)>
+	       <CRLF>)
+	      (T
+	       <TELL CTHE ,TH-LAMP " is already broken." CR>)>>
+
+<ROUTINE RT-AC-TH-BLACK-BAG ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BLACK-BAG">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's the black medical bag your aunt gave you when you graduated
+from medical school." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<AND <MC-VERB? PUT>
+		    <MC-THIS-PRSI?>
+		    <MC-PRSO? TH-PADDLE
+			      TH-MACE
+			      TH-ANCHOR
+			      TH-PACKET-OF-PAPER
+			      TH-SUIT-OF-ARMOUR
+			      TH-OAR-1
+			      TH-OAR-2
+			      TH-TORCH
+			      TH-WAX-AX
+			      TH-LAMP
+			      TH-VIOLIN
+			      TH-WAX-HEAD>>
+	       <TELL "You look at " THEO ". You look at the tiny bag.
+You look at the tiny bag. You look at " THEO ". Slowly it dawns on you
+that it's just not going to work." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-CHARLES-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-CHARLES-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<MC-MAKE ,TH-WAX-AX ,FL-SEEN>
+	<COND (<IN? ,TH-WAX-HEAD ,TH-CHARLES-STATUE>
+	       <TELL
+"Charles I is shown kneeling, with his head resting on a
+chopping block. Above him stands a masked executioner">
+	       <COND (<IN? ,TH-WAX-AX ,TH-CHARLES-STATUE>
+		      <TELL ", with his axe held
+high over his head, ready to strike the deathblow">)>
+	       <TELL "." CR>)
+	      (T
+	       <TELL "The statue looks grotesque without the head." CR>)>>
+
+<ROUTINE RT-AC-TH-WILLIAM-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-WILLIAM-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL
+"The statue is of William the Conqueror kneeling on the sand
+at Pevensey, where he landed before the Battle of Hastings in 1066." CR>>
+
+<ROUTINE RT-AC-TH-WALTER-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-WALTER-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL
+"The sculpture shows Sir Walter Raleigh spreading his cloak
+across a mud puddle so Elizabeth could walk across without dirtying
+her shoes." CR>>
+
+<ROUTINE RT-AC-TH-ELIZABETH-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-ELIZABETH-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL "She is smiling at Sir Walter." CR>>
+
+<ROUTINE RT-AC-TH-THOMAS-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-THOMAS-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL
+"The sculpture shows four knights with swords drawn, advancing
+on Thomas Becket as he stands before the High Altar of Canterbury
+Cathedral." CR>>
+
+<ROUTINE RT-AC-TH-DRAKE-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-DRAKE-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL
+"The statue is of Sir Francis Drake finishing his game of bowls
+before sailing off to defeat the Spanish Armada." CR>>
+
+<ROUTINE RT-AC-TH-JOHN-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-JOHN-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL
+"King John is depicted signing the Magna Carta in the
+meadow at Runnymede in June of 1215." CR>>
+
+<ROUTINE RT-AC-TH-FAWKES-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-FAWKES-STATUE">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL
+"The statue depicts Guy Fawkes crouched behind some barrels of gunpowder. He
+is awaiting the signal to light his torch and set off the trail of gunpowder
+that will blow up Parliament">
+	<COND (<IN? ,TH-TORCH ,TH-FAWKES-STATUE>
+	       ;<OR <IN? ,TH-TORCH ,TH-FAWKES-STATUE>
+		    <IN? ,TH-BURNT-TORCH ,TH-FAWKES-STATUE>>
+	       <TELL ". The torch he holds looks like a real one">)
+	      (T
+	       <TELL " - but he seems to be missing the torch">)>
+	<TELL "." CR>>
+
+<ROUTINE RT-AC-TH-NELSON-COLUMN ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-NELSON-COLUMN">>
+	<COND (<N==? .CONTEXT ,K-M-DESCFCN> <RFALSE>)>
+	<TELL "The column has" ,K-NELSON-STATUE-MSG CR>>
+
+<ROUTINE RT-AC-TH-BOAT ("OPTIONAL" (CONTEXT <>) "AUX" NUM)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BOAT" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's an incredibly old rowboat that ">
+	       <COND (<AND <IN? ,TH-OAR-1 ,TH-BOAT>
+			   <NOT <IN? ,TH-OAR-2 ,TH-OAR-LOCK>>>
+		      <TELL "has one empty oarlock and ">)>
+	       <TELL "probably leaks. But it looks as if it might float">
+	       <COND (<NOT <OR <IN? ,TH-BOAT ,RM-THE-EMBANKMENT>
+			       <IN? ,TH-BOAT ,RM-OUTSIDE-TRAITORS-GATE>>>
+		      <TELL " a little while longer">)>
+	       <TELL ". The boat's anchor is in the ">
+	       <COND (<IN? ,TH-ANCHOR ,TH-BOAT>
+		      <TELL "boat">)
+		     (T
+		      <TELL "water">)>
+	       <TELL "." CR>
+	       <RETURN 2>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<AND <MC-VERB? PUSH-TO> <MC-PRSI? ,LG-WATER>>
+	       <RT-LAUNCH-BOAT>
+	       <RTRUE>)
+	      (<AND <MC-VERB? ENTER> <MC-PRSO? ,ROOMS ,TH-BOAT>>
+	       <COND (<NOT <IN? ,CH-PLAYER ,TH-BOAT>>
+		      <COND (<AND <MC-T? ,GL-PUPPY>
+				  <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+			     <MOVE ,GL-PUPPY ,TH-BOAT>
+			     <TELL "You and " THE ,GL-PUPPY " get ">)
+			    (T
+			     <RT-CYOU-MSG "get" "gets">)>
+		      <TELL "into the boat." CR>
+		      <MOVE ,CH-PLAYER ,TH-BOAT>
+		      <COND (<MC-T? ,GL-PUPPY>
+			     <MOVE ,GL-PUPPY ,TH-BOAT>)>
+		      <MC-MAKE ,TH-BOAT ,FL-NODESC>
+		      <RTRUE>)>)
+	      (<AND <MC-VERB? EXIT> <MC-PRSO? ,ROOMS ,TH-BOAT>>
+	       <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+		      <MOVE ,CH-PLAYER ,GL-PLACE-CUR>
+		      <COND (<MC-T? ,GL-PUPPY>
+			     <MOVE ,GL-PUPPY ,GL-PLACE-CUR>)>
+		      <MC-UNMAKE ,TH-BOAT ,FL-NODESC>
+		      <SET NUM ,TH-BOAT-AUX1>
+		      <COND (<AND <NOT <ZERO? <LOC ,TH-OPAL>>>
+				  <IN? ,TH-BOAT ,RM-THE-EMBANKMENT>
+				  <EQUAL? .NUM 0>>
+			     <TELL "As">
+			     <COND (<AND <MC-T? ,GL-PUPPY>
+					 <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+				    <MOVE ,GL-PUPPY ,GL-PLACE-CUR>
+				    <TELL " you and " THE ,GL-PUPPY " get ">)
+				   (T
+				    <RT-YOU-MSG "get" "gets">)>
+			     <TELL
+"out of the boat, a man storms up to you and says, \"What in bloody 'ell are
+you doing with my boat?\" Without waiting for a reply he ">
+			     <COND (<OR	<IN? ,TH-OAR-2 ,TH-BOAT>
+					<IN? ,TH-OAR-2 ,RM-THE-EMBANKMENT>
+					<RT-META-IN? ,TH-OAR-2 ,CH-PLAYER>
+					<RT-META-IN? ,TH-OAR-2 ,GL-PUPPY>>
+				    <TELL "grabs the oar, ">)>
+			     <MOVE ,TH-BOAT ,RM-OUTSIDE-TRAITORS-GATE>
+			     <MOVE ,TH-ANCHOR ,LG-WATER>
+			     <REMOVE ,TH-OAR-1>
+			     <REMOVE ,TH-OAR-2>
+			     <SETG TH-BOAT-AUX1 1>
+			     <TELL
+"jumps into the boat and rows off, muttering to himself that he'll
+have to find a safer place to keep it." CR>)
+			    (<AND <MC-IS? ,TH-GARNET ,FL-TOUCHED>
+				  <IN? ,TH-BOAT ,RM-THE-EMBANKMENT>
+				  <EQUAL? .NUM 1>>
+			     <TELL "As">
+			     <COND (<AND <MC-T? ,GL-PUPPY>
+					 <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+				    <MOVE ,GL-PUPPY ,GL-PLACE-CUR>
+				    <TELL " you and " THE ,GL-PUPPY " get ">)
+				   (T
+				    <RT-YOU-MSG "get" "gets">)>
+			     <TELL
+"out of the boat, its red-faced owner runs up and
+yells, \"You again?!!\" He gives you a swift kick in the rear">
+			     <COND (<MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+				    <TELL
+", then clutches his foot in agony as it bounces off your suit of armour">)>
+			     <TELL "." CR CR "The man jumps into the boat">
+			     <COND
+			      (<IN? ,TH-PADDLE ,TH-BOAT>
+			       <TELL
+" and paddles away, cursing under his breath." CR>)
+			      (T
+			       <TELL
+", launches it, and suddenly realizes he has no way to steer it. The last
+you see of him, he is drifting down the Thames, screaming and shaking his
+fist at you." CR>)>
+			     <REMOVE ,TH-BOAT>
+			     <SETG TH-BOAT-AUX1 2>)
+			    (<IN? ,TH-ANCHOR ,TH-BOAT>
+			     <TELL "As">
+			     <COND (<AND <MC-T? ,GL-PUPPY>
+					 <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+				    <MOVE ,GL-PUPPY ,GL-PLACE-CUR>
+				    <TELL " you and " THE ,GL-PUPPY " get ">)
+				   (T
+				    <RT-YOU-MSG "get" "gets">)>
+			     <TELL
+"out of the boat it slides out from under your foot and drifts down the
+river." CR>
+			     <REMOVE ,TH-BOAT>)
+			    (T
+			     <COND (<AND <MC-T? ,GL-PUPPY>
+					 <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+				    <MOVE ,GL-PUPPY ,GL-PLACE-CUR>
+				    <TELL "You and " THE ,GL-PUPPY " get ">)
+				   (T
+				    <RT-CYOU-MSG "get" "gets">)>
+			     <TELL "out of the boat." CR>)>
+		      <RTRUE>)>)
+	      (<AND <MC-VERB? SHOOT>
+		    <MC-PRSO? ,TH-BOAT>>
+	       <REMOVE ,TH-BOAT>
+	       <TELL
+"Bad idea. The bullet blows a hole in the boat, which promptly sinks." CR>
+	       <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+		      <TELL
+CR "Unable to swim, you cling to a piece of driftwood for several
+hours, wondering what kind of idiot would shoot a boat out from
+under himself." CR CR
+
+"After a while, a Scotland Yard launch pulls alongside to rescue
+you. Lestrade leans over the side and offers his assistance. You
+decide you're better off in the water and politely decline."  CR CR>
+		      <RT-QSR>)>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-OAR-1 ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-OAR-1">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The oar is hopelessy jammed into the oarlock." CR>)
+	      (<MC-T? .CONTEXT>
+	       <RFALSE>)
+	      (<MC-VERB? TAKE>
+	       <RT-CYOU-MSG "try" "tries">
+	       <TELL
+"to extract the oar from the oarlock, but it seems to be jammed." CR>
+	       <RTRUE>)
+	      (<MC-VERB? RELEASE>
+	       <RT-CYOU-MSG "struggle" "struggles">
+	       <TELL 
+"with the oar for a minute or two with no success... it really
+is jammed in there." CR>)>>
+
+<ROUTINE RT-AC-TH-OAR-LOCK ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-OAR-LOCK">>
+	<COND (<AND <MC-VERB? PUT PUT-ON>
+		    <MC-THIS-PRSI?>
+		    <NOT <MC-PRSO? ,TH-OAR-2>>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-CLAPPER ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CLAPPER">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<IN? ,TH-SAPPHIRE ,TH-CLAPPER>
+		      <TELL "The clapper hangs from the centre of the bell.
+There is a beautiful blue sapphire glued to the end of it." CR>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)
+	      (<RT-IMPOSSIBLE-PUT-IN-ON-MSG ,TH-CLAPPER>
+	       <RTRUE>)
+	      (<MC-VERB? TOUCH TOUCH-TO TOUCH-TO-SWP>
+	       <COND (<EQUAL? ,TH-BELL-AUX2 ,K-BELL-TOWARDS>
+		      <RFALSE>)
+		     (T
+		      <TELL CTHEO>
+		      <RT-ISNT-ARENT-MSG ,GL-PRSO>
+		      <TELL "within reach." CR>)>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-COTTON-BALLS ("OPT" (CONTEXT <>) "AUX" VAL)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-COTTON-BALLS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+		      <TELL "You can't see them because they're in your ears."
+			    CR>)
+		     (T
+		      <TELL "They're soft and fluffy." CR>)>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <SETG GL-P-IT-OBJECT ,GL-PRSO>
+	       <COND (<OR <MC-VERB? WEAR>
+			  <AND <MC-VERB? PUT>
+			       <MC-PRSI? ,TH-EARS>>>
+		      <COND (<MC-IS? ,GL-PRSO ,FL-WORN>
+			     <TELL CTHEO>
+			     <RT-IS-ARE-MSG>
+			     <TELL "already in " THE ,TH-EARS "." CR>)
+			    (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+			     <TELL CTHE ,TH-STETHOSCOPE
+				   " is in the way." CR>
+			     <RTRUE>)
+			    (T
+			     <SETG GL-LISTEN-OBJ <>>
+			     <MC-MAKE ,GL-PRSO ,FL-WORN>
+			     <MOVE ,GL-PRSO ,CH-PLAYER>
+			     <RT-CYOU-MSG "put" "puts">
+			     <TELL THEO " in " THE ,TH-EARS "." CR>
+			     <SET VAL <GETP ,GL-PRSO ,P?VALUE>>
+			     <COND (<MC-T? .VAL>
+				    <RT-UPDATE-SCORE .VAL>
+				    <PUTP ,GL-PRSO ,P?VALUE 0>)>
+			     <RTRUE>)>)
+		     (<OR <AND <MC-VERB? TAKE>
+			       <MC-PRSI? ,TH-EARS>>
+			  <AND <MC-VERB? TAKE-OFF TAKE>
+			       <MC-IS? ,GL-PRSO ,FL-WORN>>>
+		      <COND (<MC-ISNOT? ,GL-PRSO ,FL-WORN>
+			     <TELL CTHEO>
+			     <RT-ISNT-ARENT-MSG>
+			     <TELL "in " THE ,TH-EARS "." CR>)
+			    (T
+			     <COND (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+				    <RT-PERFORM ,V?TAKE-OFF ,TH-STETHOSCOPE>)>
+			     <SETG GL-LISTEN-OBJ <>>
+			     <MC-UNMAKE ,GL-PRSO ,FL-WORN>
+			     <RT-CYOU-MSG "take" "takes">
+			     <TELL THEO>
+			     <TELL " out of " THE ,TH-EARS "." CR>
+			     <COND (<N==? ,GL-WINNER ,CH-PLAYER>
+				    <MOVE ,GL-PRSO ,GL-WINNER>)>
+			     <RTRUE>)>)
+		     (<MC-VERB? DROP THROW THROW-OVER>
+		      <COND (<MC-IS? ,GL-PRSO ,FL-WORN>
+			     <RT-CYOU-MSG>
+			     <TELL "cannot " VW " " THEO " while">
+			     <RT-YOU-MSG "are" "is">
+			     <TELL "wearing them." CR>)>)
+		     (<MC-VERB? SHOOT>
+		      <RT-WASTE-OF-BULLETS-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-BELL ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BELL">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The huge bell hangs over the hollow shaft of the tower."
+		     CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)
+	      (<RT-IMPOSSIBLE-PUT-IN-ON-MSG ,TH-BELL>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-STETHOSCOPE ("OPT" (CONTEXT <>) "AUX" VAL)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-STETHOSCOPE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+		      <TELL "The stethoscope is hanging from your ears." CR>)
+		     (T
+		      <TELL "It looks just like any other late-Victorian-era
+stethoscope." CR>)>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<OR <MC-VERB? WEAR>
+			  <AND <MC-VERB? PUT>
+			       <MC-PRSI? ,TH-EARS>>>
+		      <COND (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+			     <TELL CTHEO>
+			     <RT-IS-ARE-MSG>
+			     <TELL "already in " THE ,TH-EARS "." CR>)
+			    ;(<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+			     <TELL
+"You should take the cotton balls out of your ears first." CR>)
+			    (T
+			     <SETG GL-LISTEN-OBJ <>>
+			     <MC-MAKE ,TH-STETHOSCOPE ,FL-WORN>
+			     <MOVE ,TH-STETHOSCOPE ,CH-PLAYER>
+			     <RT-CYOU-MSG "put" "puts">
+			     <TELL THEO " in " THE ,TH-EARS "." CR>
+			     <SET VAL <GETP ,TH-STETHOSCOPE ,P?VALUE>>
+			     <COND (<MC-T? .VAL>
+				    <RT-UPDATE-SCORE .VAL>
+				    <PUTP ,TH-STETHOSCOPE ,P?VALUE 0>)>
+			     <RTRUE>)>)
+		     (<OR <AND <MC-VERB? TAKE>
+			       <MC-PRSI? ,TH-EARS>>
+			  <AND <MC-VERB? TAKE-OFF TAKE>
+			       <MC-IS? ,TH-STETHOSCOPE ,FL-WORN>>>
+		      <COND (<MC-ISNOT? ,TH-STETHOSCOPE ,FL-WORN>
+			     <TELL CTHEO>
+			     <RT-ISNT-ARENT-MSG>
+			     <TELL "in " THE ,TH-EARS "." CR>)
+			    (T
+			     <SETG GL-LISTEN-OBJ <>>
+			     <MC-UNMAKE ,TH-STETHOSCOPE ,FL-WORN>
+			     <RT-CYOU-MSG "take" "takes">
+			     <TELL THEO>
+			     <TELL " out of " THE ,TH-EARS "." CR>
+			     <COND (<N==? ,GL-WINNER ,CH-PLAYER>
+				    <MOVE ,GL-PRSO ,GL-WINNER>)>
+			     <RTRUE>)>)
+		     (<MC-VERB? DROP THROW THROW-OVER>
+		      <COND (<MC-IS? ,TH-STETHOSCOPE ,FL-WORN>
+			     <RT-CYOU-MSG>
+			     <TELL "cannot " VW " " THEO " while">
+			     <RT-YOU-MSG "are" "is">
+			     <TELL "wearing it." CR>)>)
+		     (<MC-VERB? PUT-ON>
+		      <COND (<AND <MC-IS? ,GL-PRSI ,FL-PERSON>
+				  <MC-IS? ,TH-STETHOSCOPE ,FL-WORN>>
+			     <RT-PERFORM ,V?LISTEN ,GL-PRSI ,GL-PRSO>)>)>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-WATSONS-HAT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WATSONS-HAT">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+		      <TELL
+"You can't look at your hat while it's on the top of your head." CR>)
+		     (T
+		      <TELL
+"It's a rather large hat with plenty of room inside it for your rather
+large head." CR>)>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<OR <AND <MC-VERB? PUT-ON>
+			       <MC-PRSI? ,TH-HEAD>>
+			  <MC-VERB? WEAR>>
+		      <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			     <TELL "You are already wearing " THEO "." CR>)
+			    (<RT-DONT-HAVE-MSG ,GL-PRSO>
+			     <RTRUE>)
+			    (T
+			     <MC-UNMAKE ,TH-WATSONS-HAT ,FL-OPENED>
+			     <MC-MAKE ,TH-WATSONS-HAT ,FL-WORN>
+			     <TELL "You put on " THEO "." CR>)>)
+		     (<OR <AND <MC-VERB? TAKE>
+			       <OR <MC-PRSI? ,TH-HEAD>
+				   <AND <MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+					<MC-PRSI? <> CH-PLAYER CH-ME>>>>
+			  <MC-VERB? TAKE-OFF>>
+		      <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+			     <MC-MAKE ,TH-WATSONS-HAT ,FL-OPENED>
+			     <MC-UNMAKE ,TH-WATSONS-HAT ,FL-WORN>
+			     <TELL "You take off " THEO>
+			     <COND (<RT-VISIBLE? ,CH-AKBAR>
+				    <TELL
+". Disconcerted by your sacrilegious action, Akbar averts his gaze">)>
+			     <COND (<FIRST? ,TH-WATSONS-HAT>
+				    <TELL ". Inside you see ">
+				    <RT-PRINT-CONTENTS-2 ,TH-WATSONS-HAT>)>
+			     <TELL "." CR>)
+			    (T
+			     <TELL "You are not wearing " THEO "." CR>)>)
+		     (<AND <MC-VERB? LOOK-INSIDE LOOK-UNDER>
+			   <MC-IS? ,TH-WATSONS-HAT ,FL-WORN>>
+		      <TELL
+"You can't see inside " THE ,TH-WATSONS-HAT " while it's on " THE ,TH-HEAD
+"." CR>)
+		     (<AND <MC-VERB? REACH-IN SEARCH PUT PUT-ON>
+			   <MC-IS? ,TH-WATSONS-HAT ,FL-WORN>>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "take off" ,GL-PRSO>
+		      <TELL " first." CR>
+		      <RTRUE>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<AND <MC-VERB? PUT PUT-UNDER>
+			   <MC-IS? ,TH-WATSONS-HAT ,FL-WORN>>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "take off" ,GL-PRSI>
+		      <TELL " first." CR>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-TH-ELIZAS-FLOWERS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ELIZAS-FLOWERS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "In " THE ,TH-ELIZAS-FLOWERS " you see a carnation." CR>
+	       <RTRUE>)>
+	<COND (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? PUT PUT-ON>
+		      <RT-CANT-PUT-IN-ON-MSG ,TH-ELIZAS-FLOWERS>)>)>>
+
+<ROUTINE RT-AC-TH-CARNATION ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CARNATION">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? WEAR>
+		      <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+			     <COND (<IN? ,TH-CARNATION ,TH-LAPEL>
+				    <TELL CTHEO " is already in "
+					  THE ,TH-LAPEL "." CR>)
+				   (T
+				    <MOVE ,TH-CARNATION ,TH-LAPEL>
+				    <RT-CYOU-MSG "put" "puts">
+				    <TELL THEO " in " THE ,TH-LAPEL "." CR>)>)
+			    (T
+			     <TELL CTHE ,GL-WINNER " say">
+			     <RT-S-NOS-MSG ,GL-WINNER>
+			     <TELL ", \"No thanks.\"" CR>)>)
+		     (<MC-VERB? SHOOT>
+		      <RT-WASTE-OF-BULLETS-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-EMERALD ("OPT" (CONTEXT <>))
+  <COND (<==? <GETP ,TH-EMERALD ,P?OBJ-NOUN> ,W?SCRATCH>
+	 <RT-HANDLE-SCRATCH ,TH-EMERALD .CONTEXT>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "emerald">)
+	       (<EQUAL? .CONTEXT ,K-M-DESCFCN <>>
+		<RT-EXAMINE-GEM ,TH-EMERALD>)
+	       (T
+		<RFALSE>)>)>>
+
+<ROUTINE RT-AC-TH-SAPPHIRE ("OPTIONAL" (CONTEXT <>) "AUX" GRABS WHO)
+  <COND (<==? <GETP ,TH-SAPPHIRE ,P?OBJ-NOUN> ,W?SCRATCH>
+	 <RT-HANDLE-SCRATCH ,TH-SAPPHIRE .CONTEXT>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "sapphire">
+		<RTRUE>)
+	       (<==? .CONTEXT ,K-M-DESCFCN>
+		<COND (<MC-T? <RT-EXAMINE-GEM ,TH-SAPPHIRE>>
+		       <RTRUE>)>
+		<RTRUE>)
+	       (<MC-T? .CONTEXT>
+		<RFALSE>)>
+	 <SET GRABS ,TH-SAPPHIRE-AUX1>
+	 <COND (<AND <MC-THIS-PRSO?>
+		     <IN? ,TH-SAPPHIRE ,TH-CLAPPER>>
+		<COND (<MC-VERB? TAKE>
+		       <COND (<G? .GRABS 0>
+			      <COND (<EQUAL? ,TH-BELL-AUX2 ,K-BELL-TOWARDS>
+				     <DEC GRABS>
+				     <SETG TH-SAPPHIRE-AUX1 .GRABS>
+				     <COND (<ZERO? .GRABS>
+					    <RT-CYOU-MSG "remove" "removes">
+					    <TELL THEO " from "
+						  THE ,TH-CLAPPER "." CR>
+					    <MOVE ,TH-SAPPHIRE ,CH-PLAYER>
+					    <MC-UNMAKE ,TH-SAPPHIRE ,FL-NODESC>
+					    <MC-MAKE ,TH-SAPPHIRE ,FL-SEEN>
+					    <MC-MAKE ,TH-SAPPHIRE ,FL-TOUCHED>
+					    <SET WHO <RT-WHO-SAYS?>>
+					    <COND (<EQUAL? .WHO ,CH-HOLMES>
+						   <TELL CR
+"Holmes beams at you and says, \"Good show, old fellow.\"" CR>)>
+					    <RT-UPDATE-SCORE
+					     <GETP ,TH-SAPPHIRE ,P?VALUE>>
+					    <PUTP ,TH-SAPPHIRE ,P?VALUE 0>)
+					   (T
+					    <RT-CYOU-MSG "tug" "tugs">
+					    <TELL "at " THEO
+						  ", but you can't quite grab
+it before it swings out of reach again." CR>)>)
+				    (T
+				     <TELL CTHEO>
+				     <RT-ISNT-ARENT-MSG ,GL-PRSO>
+				     <TELL "within reach." CR>)>
+			      <RTRUE>)>)
+		      (<MC-VERB? HIT>
+		       <COND (<OR <EQUAL? ,TH-BELL-AUX2 ,K-BELL-TOWARDS>
+				  <MC-PRSI? ,TH-OAR-2>>
+			      <RT-CYOU-MSG "knock" "knocks">
+			      <TELL
+THEO " into the shaft. A long time later you hear " THEO " shatter." CR>
+			      <FCLEAR ,GL-PRSO ,FL-WORN>
+			      <REMOVE ,GL-PRSO>)
+			     (T
+			      <TELL CTHEO>
+			      <RT-ISNT-ARENT-MSG ,GL-PRSO>
+			      <TELL "within reach." CR>)>
+		       <RTRUE>)
+		      (<MC-VERB? TOUCH TOUCH-TO TOUCH-TO-SWP>
+		       <COND (<EQUAL? ,TH-BELL-AUX2 ,K-BELL-TOWARDS>
+			      <RFALSE>)
+			     (T
+			      <TELL CTHEO>
+			      <RT-IS-ARE-MSG ,GL-PRSO>
+			      <TELL "within reach." CR>)>
+		       <RTRUE>)>)
+	       (<AND <MC-THIS-PRSI?>
+		     <IN? ,TH-SAPPHIRE ,TH-CLAPPER>>
+		<COND (<MC-VERB? THROW>
+		       <COND (<MC-PRSO? ,CH-TRAINED-PIGEON>
+			      <RT-PIGEON-PANIC>
+			      <SETG CH-TRAINED-PIGEON-AUX1 0>
+			      <RTRUE>)
+			     (T
+			      <RT-CYOU-MSG "hit" "hits">
+			      <TELL THEI " with " THEO ", and they both
+disappear into the shaft. A long time later you hear " THEI " shatter." CR>
+			      <REMOVE ,GL-PRSO>
+			      <REMOVE ,GL-PRSI>
+			      <RTRUE>)>)>)>
+	 <RT-EXAMINE-GEM ,TH-SAPPHIRE>)>>
+
+<ROUTINE RT-AC-TH-OPAL ("OPT" (CONTEXT <>))
+  <COND (<==? <GETP ,TH-OPAL ,P?OBJ-NOUN> ,W?SCRATCH>
+	 <RT-HANDLE-SCRATCH ,TH-OPAL .CONTEXT>)
+	(<==? .CONTEXT ,K-M-SDESC>
+	 <TELL "opal">)
+	(<EQUAL? .CONTEXT ,K-M-DESCFCN <>>
+	 <RT-EXAMINE-GEM ,TH-OPAL>)
+	(T
+	 <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-RUBY ("OPT" (CONTEXT <>))
+  <COND (<==? <GETP ,TH-RUBY ,P?OBJ-NOUN> ,W?SCRATCH>
+	 <RT-HANDLE-SCRATCH ,TH-RUBY .CONTEXT>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-DESCFCN>
+		<RT-EXAMINE-GEM ,TH-RUBY>
+		<RTRUE>)
+	       (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "ruby">
+		<RTRUE>)
+	       (<MC-T? .CONTEXT> <RFALSE>)
+	       (<MC-VERB? TAKE>
+		<COND (<IN? ,TH-RUBY ,TH-NELSON-STATUE>
+		       <TELL "You can't reach the ruby." CR>
+		       <RTRUE>)
+		      (<IN? ,TH-RUBY ,CH-SHERMAN>
+		       <RT-IMPOLITE-MSG "take things" "asking">
+		       <RTRUE>)>)>
+	 <RT-EXAMINE-GEM ,TH-RUBY>)>>
+
+<ROUTINE RT-AC-TH-TOPAZ ("OPT" (CONTEXT <>))
+  <COND (<==? <GETP ,TH-TOPAZ ,P?OBJ-NOUN> ,W?SCRATCH>
+	 <RT-HANDLE-SCRATCH ,TH-TOPAZ .CONTEXT>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "topaz">)
+	       (<EQUAL? .CONTEXT ,K-M-DESCFCN <>>
+		<RT-EXAMINE-GEM ,TH-TOPAZ>)>)>>
+
+<ROUTINE RT-AC-TH-CRAYON ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-CRAYON">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It looks just like any other Victorian-era crayon." CR>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-WATSONS-COAT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WATSONS-COAT">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's a wool greatcoat." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? LOOK-INSIDE SEARCH>
+		      <RT-PERFORM ,V?LOOK-INSIDE ,TH-POCKET>)
+		     (<MC-VERB? EMPTY EMPTY-INTO>
+		      <TELL "[from " THE ,TH-POCKET "]" CR>
+		      <RT-PERFORM ,GL-PRSA ,TH-POCKET ,GL-PRSO>)
+		     (<AND <MC-VERB? WEAR TAKE-OFF>
+			   <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "take off" ,TH-SUIT-OF-ARMOUR>
+		      <TELL " first." CR>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? TAKE>
+		      <TELL "[from " THE ,TH-POCKET "]" CR>
+		      <RT-PERFORM ,V?TAKE ,GL-PRSO ,TH-POCKET>)
+		     (<MC-VERB? PUT>
+		      <TELL "[in " THE ,TH-POCKET "]" CR>
+		      <RT-PERFORM ,V?PUT ,GL-PRSO ,TH-POCKET>)
+		     (<MC-VERB? EMPTY EMPTY-INTO>
+		      <TELL "[in " THE ,TH-POCKET "]" CR>
+		      <RT-PERFORM ,GL-PRSA ,GL-PRSO ,TH-POCKET>)>)>>
+
+<ROUTINE RT-AC-TH-LAPEL ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LAPEL">>
+	<COND (<MC-THIS-PRSI?>
+	       <COND (<AND <MC-VERB? PUT PUT-ON>
+			   <NOT <MC-PRSO? ,TH-CARNATION>>>
+		      <RT-CANT-PUT-IN-ON-MSG ,TH-LAPEL>)>)>>
+
+<ROUTINE RT-AC-TH-CLUMP-OF-MOSS ("OPT" (CONTEXT <>) "AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CLUMP-OF-MOSS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The clump of moss is a slightly different colour than the
+other lichen that surrounds it." CR>)
+	      (<MC-T? .CONTEXT>
+	       <RFALSE>)
+	      (<MC-VERB? LOOK>
+	       <RT-AC-TH-CLUMP-OF-MOSS ,K-M-DESCFCN>
+	       <RTRUE>)
+	      (<ZERO? <RT-THAMES-TIDE>>
+	       <COND (<RT-TOUCH-VERB?>
+		      <TELL "As soon as">
+		      <RT-YOU-MSG "touch" "touches">
+		      <TELL THE ,TH-CLUMP-OF-MOSS ", it crumbles. ">
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "left holding a beautiful opal." CR>
+		      <MOVE ,TH-OPAL ,GL-WINNER>
+		      <MC-MAKE ,TH-OPAL ,FL-SEEN>
+		      <MC-MAKE ,TH-OPAL ,FL-TOUCHED>
+		      <MC-UNMAKE ,TH-OPAL ,FL-NODESC>
+		      <SET WHO <RT-WHO-SAYS?>>
+		      <COND (<EQUAL? .WHO ,CH-HOLMES>
+			     <TELL CR "Holmes claps you on the shoulder and says, \"Capital, Watson. Capital!\"" CR>)>
+		      <RT-UPDATE-SCORE <GETP ,TH-OPAL ,P?VALUE>>
+		      <PUTP ,TH-OPAL ,P?VALUE 0>
+		      <REMOVE ,TH-CLUMP-OF-MOSS>
+		      <RTRUE>)
+		     (T
+		      <RFALSE>)>)
+	      (<MC-VERB? TAKE>
+	       <COND (<EQUAL? <RT-THAMES-TIDE> 2>
+		      <TELL "The clump is well beyond ">
+		      <RT-YOUR-MSG>
+		      <TELL "grasp." CR>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <TELL "cannot quite reach it." CR>)>
+	       <RTRUE>)
+	      (<MC-VERB? HIT TOUCH TOUCH-TO CUT>
+	       <COND (<OR <AND <MC-VERB? HIT TOUCH>
+			       <MC-PRSI? ,TH-OAR-2>>
+			  <AND <MC-VERB? TOUCH-TO>
+			       <MC-PRSO? ,TH-OAR-2>>>
+		      <RT-CYOU-MSG "knock" "knocks">
+		      <TELL
+THE ,TH-CLUMP-OF-MOSS " into the water. It dissolves upon impact and reveals
+a beautiful opal, which slowly sinks into the murky depths." CR>
+		      <REMOVE ,TH-CLUMP-OF-MOSS>)
+		     (T
+		      <RT-CYOU-MSG "try" "tries">
+		      <TELL "to hit the moss">
+		      <COND (<MC-VERB? TOUCH-TO>
+			     <TELL " with " THEO>)
+			    (<MC-T? ,GL-PRSI>
+			     <TELL " with " THEI>)>
+		      <TELL " but">
+		      <RT-YOU-MSG "are" "is">
+		      <TELL "not able to reach it." CR>)>
+	       <RTRUE>)
+	      (<MC-VERB? THROW>
+	       <COND (<MC-PRSO? ,CH-TRAINED-PIGEON>
+		      <RFALSE>)
+	             (<RT-IDROP-MSG>
+		      <TELL "Good throw! " CTHEO " hit">
+		      <RT-S-NOS-MSG ,GL-PRSO>
+		      <TELL " the clump, knock">
+		      <RT-S-NOS-MSG ,GL-PRSO>
+		      <TELL " it loose, and everything
+falls into the water. " CTHEO " sink">
+		      <RT-S-NOS-MSG ,GL-PRSO>
+		      <TELL " immediately.
+The moss, however, dissolves upon impact and reveals a beautiful opal,
+which slowly follows " THEO " into the murky depths." CR>
+		      <REMOVE ,TH-CLUMP-OF-MOSS>
+		      <REMOVE ,GL-PRSO>
+		      <FCLEAR ,GL-PRSO ,FL-WORN>)>
+	       <RTRUE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL
+"The bullet dislodges the clump and knocks it into the water. The moss
+dissolves upon impact and reveals a beautiful opal, which slowly sinks
+into the murky depths." CR>
+	       <REMOVE ,TH-CLUMP-OF-MOSS>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-BLIGH-BOAT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-DF "TH-BLIGH-BOAT">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The boat is a true-to-life replica of the rowboat that
+Captain Bligh sailed to Pitcairn Island after the mutiny on the Bounty." CR>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-ANCHOR ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ANCHOR">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<IN? ,TH-ANCHOR ,TH-BOAT>
+		      <TELL "It's slimy and green and covered with river crud. Yuck!" CR>)
+		     (T
+		      <TELL "It's in the water." CR>)>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)
+	      (<NOT <IN? ,CH-PLAYER ,TH-BOAT>>
+	       <TELL ,K-MUST-BE-IN-BOAT-MSG "do that." CR>)
+	      (<MC-VERB? TAKE>
+	       <COND (<IN? ,TH-ANCHOR ,TH-BOAT>
+		      <TELL "Oomph! It's too heavy to carry." CR>)
+		     (T
+		      <MOVE ,TH-ANCHOR ,TH-BOAT>
+		      <RT-SAY-RAISE-ANCHOR>)>)
+	      (<MC-VERB? RAISE HAUL WEIGH PULL>
+	       <COND (<IN? ,TH-ANCHOR ,LG-WATER>
+		      <MOVE ,TH-ANCHOR ,TH-BOAT>
+		      <RT-SAY-RAISE-ANCHOR>)
+		     (T
+		      <TELL ,K-ANCHOR-ALREADY-OUT-MSG CR>)>)
+	      (<MC-VERB? LOWER DROP>
+	       <COND (<IN? ,TH-ANCHOR ,LG-WATER>
+		      <TELL "The anchor is already in the water." CR>)
+		     (T
+		      <MOVE ,TH-ANCHOR ,LG-WATER>
+		      <RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+		      <RT-SAY-LOWER-ANCHOR>)>)
+	      (<MC-VERB? THROW PUT>
+	       <COND (<MC-PRSI? ,LG-WATER>
+		      <MOVE ,TH-ANCHOR ,LG-WATER>
+		      <RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>
+		      <RT-SAY-LOWER-ANCHOR>)
+		     (<MC-PRSI? ,TH-BOAT>
+		      <MOVE ,TH-ANCHOR ,TH-BOAT>
+		      <RT-SAY-RAISE-ANCHOR>)
+		     (T
+		      <RT-IMPOSSIBLE-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-NELSON-STATUE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-NELSON-STATUE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL CTHE ,TH-NELSON-STATUE
+		     " is perched high above you, on top of the column.">
+	       <COND (<AND <MC-IS? ,TH-NELSON-STATUE ,FL-OPENED>
+			   <IN? ,TH-RUBY ,TH-NELSON-STATUE>>
+		      <TELL " " ,K-GLINT-MSG>)>
+	       <CRLF>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<RT-IMPOSSIBLE-PUT-IN-ON-MSG ,TH-NELSON-STATUE>
+	       <RTRUE>)
+	      (<MC-VERB? LOOK-INSIDE>
+	       <RT-CYOU-MSG>
+	       <TELL "can't see inside the statue." CR>)
+	      (<MC-VERB? REACH-IN SEARCH>
+	       <RT-CYOU-MSG>
+	       <TELL "can't reach the statue." CR>)>>
+
+<ROUTINE RT-AC-TH-CROWN-JEWELS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CROWN-JEWELS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"Despite its adventures, the Regalia doesn't look any the worse for
+wear." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <SETG GL-P-IT-OBJECT ,TH-CROWN-JEWELS>
+	       <RFALSE>)>>
+
+<ROUTINE RT-AC-TH-ETHERIUM-AMPOULE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ETHERIUM-AMPOULE">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <COND (<FSET? ,TH-ETHERIUM-AMPOULE ,FL-BROKEN>
+		      <TELL "broken ampoule">)
+		     (T
+		      <TELL "ampoule of etherium">)>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)>
+	<COND (<FSET? ,TH-ETHERIUM-AMPOULE ,FL-BROKEN>
+	       <RT-AC-TH-BROKEN-AMPOULE>)
+	      (<AND <MC-VERB? MUNG OPEN>
+		    <MC-THIS-PRSO?>>
+	       <COND (<NOT <IN? ,TH-ETHERIUM-AMPOULE ,GL-WINNER>>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "be holding" ,GL-PRSO>
+		      <TELL " to do that." CR>
+		      <RFATAL>)>
+	       ; "Disallow breaking vial in public places, nicely if Holmes
+		  is around, not nicely otherwise."
+	       <COND (<FSET? ,GL-PLACE-CUR ,FL-NO-ETHERIUM>
+		      <COND (<==? <RT-WHO-SAYS?> ,CH-HOLMES>
+			     <TELL "Holmes stops you. \"Do try to be discreet,
+old boy. My research is supposed to be kept secret.\"" CR>
+			     <RFATAL>)>
+		      <TELL "The etherium renders everyone quite
+unconscious. Unfortunately, word of the unusual phenomenon soon leaks
+out, the existence of the secret chemical is exposed, and you are arrested
+for violating the Official Secrets Act.||
+Because he thinks you are a traitor, even Lestrade refuses to visit you
+in prison. His absence is the only bright spot of your twenty-year
+incarceration." CR>
+		      <RT-QSR>
+		      <RFATAL>)
+		     (<AND <NOT <MC-HERE? ,RM-LAIR>>
+			   <==? <RT-WHO-SAYS?> ,CH-HOLMES>
+			   <N==? ,GL-PLACE-CUR ,RM-BAR-OF-GOLD>
+			   <NOT <OR <MC-HERE? ,RM-ENTRY-HALL ,RM-HOLMES-STUDY
+					      ,RM-EVANGELIST-CHAPEL>
+				    <RT-FIND-FLAME ,GL-PLACE-CUR>>>>
+		      <TELL "Holmes stops you just in time. \"This is neither
+the time nor the place for experimentation.\"" CR>
+		      <RTRUE>)>
+	       <CLEAR-ALL-FLAGS ,TH-ETHERIUM-AMPOULE>
+	       <FSET ,TH-ETHERIUM-AMPOULE ,FL-TAKEABLE>
+	       <FSET ,TH-ETHERIUM-AMPOULE ,FL-READABLE>
+	       <FSET ,TH-ETHERIUM-AMPOULE ,FL-BROKEN>
+	       <PUT <GETPT ,TH-ETHERIUM-AMPOULE ,P?ADJECTIVE> 0
+		    ,W?BROKEN>
+	       <TELL "You break open the ampoule.">
+	       <COND (<MC-HERE? ,RM-BAR-OF-GOLD>
+		      <TELL
+" The etherium fumes mix with the heavy air of the opium den. No one seems to
+notice." CR>)
+		     (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		      <COND (<OR <RT-FIND-FLAME ,GL-PLACE-CUR>
+				 <MC-HERE? ,RM-ENTRY-HALL ,RM-HOLMES-STUDY
+					   ,RM-EVANGELIST-CHAPEL>>
+			     <TELL
+" As soon as the volatile etherium comes in contact with the flame">
+			     <COND (<MC-HERE? ,RM-ENTRY-HALL>
+				    <TELL " of the gas light">)
+				   (<MC-HERE? ,RM-HOLMES-STUDY>
+				    <TELL " of the fireplace">)
+				   (<MC-HERE? ,RM-EVANGELIST-CHAPEL>
+				    <TELL " of the candles">)>
+			     <TELL ", it explodes."
+
+CR CR "B  O  O  M  !!!" CR CR
+
+"You awaken several days later in the hospital. Inspector Lestrade is
+there with flowers for your bedside table. He is full of news about
+how he plans to solve the case. Upon hearing this, you lapse back into
+a coma from which you have no particular desire to emerge." CR>
+			     <RT-QSR>)
+			    (T
+			     <TELL " The etherium is released into the room.">
+			     <COND (<MC-ISNOT? ,TH-BREATH ,FL-LOCKED>
+				    <MC-MAKE ,CH-PLAYER ,FL-ASLEEP>
+				    <TELL
+" Suddenly, everything starts to spin. You pass out and fall to the
+ground. Sometime later you awaken and stumble back to your feet." CR>
+				    <RT-CLOCK-JMP 6 0 0>
+				    <COND (<MC-HERE? ,RM-LAIR>
+					   <RT-DOES-MORIARTY-WIN>)>)
+				   (T
+				    <COND (<RT-ETHERIUM-EFFECT T>
+					   <TELL " You see everyone">
+					   <COND (<RT-VISIBLE? ,CH-HOLMES>
+						  <TELL " but Holmes">)>
+					  <TELL " pass out.">)>
+				    <CRLF>)>
+			     <MOVE ,TH-ETHERIUM-GAS ,GL-PLACE-CUR>
+			     <RT-ALARM-SET-REL ,RT-I-WAKE-UP
+					       <RT-PARM-SET 6 0 0>>)>)
+		     (T
+		      <TELL
+" The etherium fumes dissipate quickly." CR>)>
+	       <RTRUE>)
+	      (<AND <MC-THIS-PRSO?>
+		    <OR <MC-VERB? SHOOT>
+			<AND <MC-VERB? BURN-WITH>
+			     <OR <F? ,GL-PRSI>
+				 <AND <MC-IS? ,GL-PRSI ,FL-BURNABLE>
+				      <MC-IS? ,GL-PRSI ,FL-LIGHTED>>>>>>
+	       <COND (<MC-VERB? SHOOT>
+		      <TELL "Couldn't resist it, could you?">)>
+	       <TELL CR CR "B  O  O  M  !!!" CR CR
+"Your nerves - already fragile from the Afghan campaign - snap like a
+dry twig. You collapse into a babbling pile of jello, and white-coated
+attendants take you away to a nice sunlit room where Lestrade visits
+on alternate Tuesdays." CR>
+	       <RT-QSR>)
+	      (<AND <MC-VERB? READ EXAMINE LOOK-ON>
+		    <MC-THIS-PRSO?>>
+	       <TELL
+"The label on the ampoule reads, \"Etherium. Extremely volatile. Do not open
+in the presence of fire.\"" CR>)>>
+
+<ROUTINE RT-AC-TH-BROKEN-AMPOULE ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BROKEN-AMPOULE-GAS">>
+	<COND (<MC-VERB? SHOOT>
+	       <TELL CTHEO ,K-SHATTER-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-ETHERIUM-GAS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ETHERIUM-GAS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "Etherium is a colourless gas, which">
+	       <RT-YOU-MSG>
+	       <TELL "cannot see." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SMELL>
+	       <COND (<AND <IN? ,TH-ETHERIUM-GAS ,GL-PLACE-CUR>
+		           <MC-ISNOT? ,TH-BREATH ,FL-LOCKED>>
+		      <RT-SMELL-ETHERIUM?>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <TELL "cannot smell it." CR>)>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-LAB-EQUIPMENT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LAB-EQUIPMENT">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The equipment is a jumble of test tubes, beakers, and pipettes." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<RT-TOUCH-VERB?>
+	       <RT-CYOU-MSG "reach" "reaches">
+	       <TELL "towards the equipment, but then">
+	       <RT-YOU-MSG "recall" "recalls" T>
+	       <TELL 
+"Holmes's oft-repeated admonition to leave undisturbed his various
+experiments, and">
+	       <RT-YOU-MSG "quickly withdraw" "quickly withdraws" T>
+	       <RT-YOUR-MSG>
+	       <TELL "hand." CR>)>>
+
+<ROUTINE RT-AC-TH-ROPE ("OPT" (CONTEXT <>) "AUX" T1 T2)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ROPE">>
+	<SET T1 ,TH-ROPE-AUX1>
+	<SET T2 ,TH-ROPE-AUX2>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<EQUAL? .T1 -1>
+		      <RFALSE>)
+		     (T
+		      <TELL CTHE ,TH-ROPE " is securely bound to " THE .T1>)>
+	       <COND (<NOT <EQUAL? .T2 -1>>
+		      <TELL " and " THE .T2>)>
+	       <TELL "." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<AND <MC-VERB? TAKE>
+			   <NOT <EQUAL? .T1 -1>>>
+		      <TELL CTHE ,TH-ROPE " is securely bound to " THE .T1>
+		      <COND (<NOT <EQUAL? .T2 -1>>
+			     <TELL " and " THE .T2>)>
+		      <TELL "." CR>)
+		     (<OR <AND <MC-VERB? CUT>
+			       <MC-PRSI? ,TH-KNIFE>>
+			  <MC-VERB? UNTIE>>
+		      <COND (<N==? .T1 -1>
+			     <COND (<==? .T2 -1>
+				    <RT-PERFORM ,V?UNTIE .T1>
+				    <RTRUE>)>
+			     <RT-CYOU-MSG "release" "releases">
+			     <COND (<MC-VERB? UNTIE>
+				    <RT-CYOU-MSG "untie" "unties">)
+				   (T
+				    <RT-CYOU-MSG "cut" "cuts">)>
+			     <TELL THE .T1>
+			     <COND (<N==? .T2 -1>
+			            <TELL " and " THE .T2>)>
+			     <TELL ", and">
+			     <RT-YOU-MSG "are" "is">
+			     <TELL "left holding the rope." CR>
+			     <COND (<AND <MC-HERE? ,RM-LAIR>
+					 <EQUAL? ,CH-MORIARTY .T1 .T2>
+					 <MC-ISNOT? ,CH-MORIARTY ,FL-ASLEEP>>
+				    <TELL CR CR
+"Bad move. As soon as he is free, Moriarty unlocks his desk and pulls out a
+pistol. \"Thank you for releasing me, gentlemen,\" he says, waving the gun at
+you. \"Very sporting of you.\" He glances at his pocketwatch. \"We shouldn't
+have too long to wait.\" Minutes later you hear newsboys running through the
+streets shouting about the resignation of the Prime Minister." CR>
+				    <RT-QSR>)>
+			     <SETG TH-ROPE-AUX1 -1>
+			     <MC-UNMAKE .T1 ,FL-LOCKED>
+			     <COND (<N==? .T2 -1>
+				    <SETG TH-ROPE-AUX2 -1>
+				    <MC-UNMAKE .T2 ,FL-LOCKED>)>
+			     <MOVE ,TH-ROPE ,GL-WINNER>)
+			    (T
+			     <TELL CTHEO "isn't tied to anyone." CR>)>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-TH-LIQUID ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LIQUID">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's a clear, colourless liquid." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL "Sorry, you missed." CR>)
+	      (<RT-TOUCH-VERB?>
+	       <RT-HOLMES-HITS ,TH-LIQUID>)
+	      (<AND <MC-VERB? SMELL>
+		    <MC-THIS-PRSO?>>
+	       <RT-HOLMES-HITS ,TH-LIQUID>)>>
+
+<ROUTINE RT-AC-TH-SYRINGE ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-SYRINGE">>
+	<COND (<MC-VERB? SHOOT>
+	       <TELL ,K-ANNIE-OAKELEY-MSG CR>)
+	      (<RT-TOUCH-VERB?>
+	       <RT-HOLMES-HITS ,TH-SYRINGE>)>>
+
+<ROUTINE RT-AC-TH-MOROCCO-CASE ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-MOROCCO-CASE">>
+	<COND (<RT-TOUCH-VERB?>
+	       <COND (<MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+		      <RT-HOLMES-HITS ,TH-MOROCCO-CASE>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-TH-DEAD-PIGEON ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-DEAD-PIGEON">>
+	<COND (<AND <MC-VERB? DROP RELEASE THROW>
+		    <MC-PRSO? ,TH-DEAD-PIGEON>>
+	       <TELL "Thud." CR>
+	       <MOVE ,TH-DEAD-PIGEON ,GL-PLACE-CUR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-PIGEONS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PIGEONS" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The pigeons strut around the square as if they own it."
+		     CR>)
+	      (<MC-THIS-WINNER?>
+	       <TELL CTHE ,TH-PIGEONS " coo in response." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<AND <MC-VERB? TAKE>
+		    <MC-PRSO? ,TH-PIGEONS>>
+	       <TELL CTHE ,TH-PIGEONS " scurry out of reach." CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? SHOOT>
+		    <MC-PRSO? ,TH-PIGEONS>>
+	       <RT-SHOOT-BIRDS ,TH-PIGEONS "strutting around">
+	       <RTRUE>)>>
+
+<ROUTINE RT-SHOOT-BIRDS (THING STR)
+	<TELL
+CTHE .THING " all fly up into the air at the sound of the gunshot.
+Fortunately, none of them was hit. They soon land and resume " .STR "." CR>>
+
+<ROUTINE RT-AC-TH-RED-GLASS ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-RED-GLASS" .CONTEXT>>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's just a worthless bauble." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL CTHEO ,K-SHATTER-MSG CR>)
+	      (<AND <MC-VERB? TAKE>
+		    <IN? ,TH-RUBY ,CH-SHERMAN>>
+	       <RT-IMPOLITE-MSG "take things" "asking">
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-BED ("AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BED">>
+	<COND (<MC-VERB? ENTER>
+	       <TELL ,K-NO-RESTING-MSG CR>
+	       <RTRUE>)
+	      (<MC-VERB? LOOK-UNDER>
+	       <SET WHO <RT-WHO-SAYS?>>
+	       <COND (<EQUAL? .WHO ,CH-HOLMES>
+		      <TELL
+"Holmes gives you a swift kick in the rear and says, \"Watson! There are much
+more important matters afoot.\"" CR>)
+		     (<EQUAL? .WHO ,CH-WIGGINS>
+		      <TELL
+"Wiggins says, \"Would you get yer bleedin' arse in gear.\"" CR>)
+		     (T
+		      <TELL "Looking for monsters?" CR>)>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-MATCHBOOK ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-MATCHBOOK">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? READ EXAMINE LOOK-ON>
+		      <TELL CR
+"Tired of your dull, boring job? Tired of the whole Victorian era? Become
+a detective! Apply now to the LESTRADE school
+of sleuthing. In just three short days, Inspector G. Lestrade will teach
+you everything he knows of the art of detection. Here are just some of the
+things you'll learn." CR CR
+
+"*** Fifteen new and exciting ways to" WRAP "say \"'Ullo! Wot's this?\"" CR
+"*** Modern obfuscatory locution" WRAP "eschewel techniques." CR
+"*** How to insult private detectives." CR CR
+
+"Included in your tuition is an official Scotland Yard
+notebook, and a brand new bobby pin. Just send twenty-five pounds
+to the LESTRADE, that's L-E-S-T-R-A-D-E school of sleuthing. Act now, and
+the Inspector will tell you how he knows that people are guilty simply
+by looking at them." CR>)
+		     (<AND <MC-VERB? LIGHT-WITH BURN-WITH>
+			   <MC-THIS-PRSO?>>
+		      <COND (<OR <AND <MC-IS? ,GL-PRSI ,FL-LIGHTED>
+				      <MC-IS? ,GL-PRSI ,FL-BURNABLE>>
+				 <AND <MC-PRSI? ,TH-PIPE>
+				      <MC-IS? ,TH-TOBACCO ,FL-LIGHTED>>>
+			     <TELL CTHE ,TH-MATCHBOOK " catches fire." CR>
+			     <MC-MAKE ,TH-MATCHBOOK ,FL-LIGHTED>
+			     <RT-ALARM-SET-REL ,RT-I-MATCHBOOK-OUT
+							  <RT-PARM-SET 0 1 0>>)
+			    (T
+			     <TELL CTHEI>
+			     <RT-ISNT-ARENT-MSG ,GL-PRSI>
+			     <TELL "burning." CR>)>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<AND <MC-VERB? PUT PUT-ON>
+			   <NOT <MC-PRSO? ,TH-MATCH ;,TH-BURNT-MATCH>>>
+		      <RT-CANT-PUT-IN-ON-MSG ,TH-MATCHBOOK>)>)>>
+
+<ROUTINE RT-AC-TH-PICTURES ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PICTURES">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "pictures" .CLASS <> T>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "They look just like some of your relatives." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? LOOK-BEHIND>
+	       <TELL
+		"Thorough, aren't you? There's nothing there."
+		CR>)>>
+
+<ROUTINE RT-AC-TH-CLUE-BOOK ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CLUE-BOOK">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It looks like a very old book." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? READ EXAMINE>
+		      <COND (<MC-IS? ,TH-CLUE-BOOK ,FL-OPENED>
+			     <RT-READ-CLUE-BOOK>)
+			    (T
+			     <TELL "The title is, \"Secret Writing and Invisible Inks.\"" CR>)>
+		      <RTRUE>)
+		     (<MC-VERB? LOOK-INSIDE SEARCH>
+		      <COND (<MC-IS? ,TH-CLUE-BOOK ,FL-OPENED>
+			     <TELL "The pages are yellowed with age." CR>)
+			    (T
+			     <RT-CYOU-MSG>
+			     <RT-WOULD-HAVE-TO-MSG "open it first.">
+			     <CRLF>)>
+		      <RTRUE>)
+		     (<MC-VERB? OPEN>
+		      <COND (<MC-IS? ,TH-CLUE-BOOK ,FL-OPENED>
+			     <TELL "The book is already open." CR>)
+			    (T
+			     <MC-MAKE ,TH-CLUE-BOOK ,FL-OPENED>
+			     <TELL "The book falls open to the introduction." CR>)>)
+		     (<MC-VERB? LIGHT-WITH BURN-WITH>
+		      <TELL
+"Perfect example of a typically repressive Victorian mentality." CR>)>)>>
+
+<ROUTINE RT-AC-TH-BOOK-PAGE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BOOK-PAGE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It has writing on it." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? READ EXAMINE>
+	       <COND (<MC-IS? ,TH-CLUE-BOOK ,FL-OPENED>
+		      <RT-READ-CLUE-BOOK>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "open">
+		      <TELL "the book first." CR>
+		      <RTRUE>)>
+	       <RTRUE>)
+	      (<MC-VERB? FLIP TURN>
+			<COND (<MC-IS? ,TH-CLUE-BOOK ,FL-OPENED>
+			       <TELL
+"A quick review of the remainder of the book reveals nothing interesting." CR>)
+			      (T
+			       <RT-CYOU-MSG>
+			       <RT-WOULD-HAVE-TO-MSG "open">
+			       <TELL "the book first." CR>
+			       <RTRUE>)>)>>
+
+<ROUTINE RT-READ-CLUE-BOOK ()
+	<TELL
+"A few underlined sentences catch your eye." CR CR
+
+"\"Invisible writing has a long and honorable history. It is used primarily
+when it is felt that a code or cipher may be too easily broken.\"" CR CR
+
+"\"Most invisible inks are somewhat sticky to the touch, and virtually all
+of them become visible when exposed to moderate heat.\"" CR>>
+
+<ROUTINE RT-AC-TH-BANK-OF-CANDLES ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-BANK-OF-CANDLES">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<RT-TOUCH-VERB?>
+		      <TELL
+"After a moment's reflection you decide to leave undisturbed
+the offerings that others have left behind." CR>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-AC-TH-PRAMS ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PRAMS">>
+	<COND (<OR <RT-TOUCH-VERB?>
+		   <MC-VERB? LOOK-INSIDE SEARCH>>
+	       <TELL
+"The nannies move the prams beyond your reach and glare at you menacingly." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-PARK-FLOWERS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PARK-FLOWERS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"You see daisies, petunias, roses, peonies, marigolds, and a host of golden
+daffodils." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? TAKE>
+	       <TELL "Please don't pick the flowers." CR>
+	       <RTRUE>)
+	      (<MC-VERB? EAT>
+	       <TELL "Please don't eat the daisies." CR>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-ARCH ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ARCH">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "triumphal arch" .CLASS <> <>>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's a large triumphal arch, surmounted by a bronze chariot." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-SHAFT ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-SHAFT">>
+	<COND (<MC-VERB? EXAMINE LOOK-INSIDE LOOK-DOWN SEARCH>
+	       <TELL "It's a long way down." CR>)
+	      (<MC-VERB? ENTER LEAP>
+	       <TELL ,K-SUICIDE-MSG CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? PUT>
+		    <MC-THIS-PRSI?>>
+	       <COND (<MC-PRSO? ,CH-TRAINED-PIGEON>
+		      <RFALSE>)
+		     (T
+		      <REMOVE ,GL-PRSO>
+		      <FCLEAR ,GL-PRSO ,FL-WORN>
+		      <TELL CTHEO " disappear">
+		      <RT-S-NOS-MSG ,GL-PRSO>
+		      <TELL " into the shaft. A long time later you hear a faint \"thud.\"" CR>)>)>>
+
+<ROUTINE RT-AC-TH-FIREPLACE ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-FIREPLACE">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "fireplace" .CLASS <> <>>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? EXAMINE LOOK-INSIDE SEARCH>
+	       <TELL "In the fireplace is a roaring fire that would surely
+consume anything you put into it." CR>)
+	      (<MC-VERB? ENTER LEAP>
+	       <TELL ,K-SUICIDE-MSG CR>
+	       <RTRUE>)
+	      (<AND <MC-VERB? PUT>
+		    <MC-PRSI? ,PSEUDO-OBJECT>>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+		      <TELL ,K-HOT-MSG CR>)
+		     (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+		      <RT-IMPOSSIBLE-MSG>
+		      <RTRUE>)
+		     (<AND <==? ,GL-PRSO ,TH-ETHERIUM-AMPOULE>
+			   <NOT <FSET? ,GL-PRSO ,FL-BROKEN>>>
+		      <RT-PERFORM ,V?MUNG ,GL-PRSO>
+		      <RTRUE>)
+		     (<AND <RT-META-IN? ,TH-ETHERIUM-AMPOULE ,GL-PRSO>
+			   <NOT <FSET? ,TH-ETHERIUM-AMPOULE ,FL-BROKEN>>>
+		      <TELL CTHEO " disappear">
+		      <RT-S-NOS-MSG ,GL-PRSO>
+		      <TELL " into the fire, which soon reaches the
+etherium.">
+		      <RT-PERFORM ,V?BURN-WITH ,TH-ETHERIUM-AMPOULE>
+		      <RTRUE>)
+		     (T
+		      <REMOVE ,GL-PRSO>
+		      <FCLEAR ,GL-PRSO ,FL-WORN>
+		      <TELL CTHEO " disappear">
+		      <RT-S-NOS-MSG ,GL-PRSO>
+		      <TELL " into the fire and">
+		      <RT-IS-ARE-MSG ,GL-PRSO>
+		      <TELL "immediately consumed." CR>
+		      <COND (<MC-PRSO? ,CH-TRAINED-PIGEON>
+			     <RT-KILL-PIGEON>)>
+		      <RTRUE>)>)
+	      (<MC-VERB? REACH-IN>
+	       <TELL ,K-HOT-MSG CR>
+	       <RTRUE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-GAS-LIGHT ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-GAS-LIGHT">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "gas light" .CLASS <> <> <>>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<RT-TOUCH-VERB?>
+	       <TELL "The gas light is out of reach." CR>
+	       <RTRUE>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-CHARIOT ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CHARIOT">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "chariot" .CLASS <> <>>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<RT-TOUCH-VERB?>
+	       <TELL "The chariot is out of reach." CR>
+	       <RTRUE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-ANNIE-OAKELEY-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-JEWEL-CASE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-JEWEL-CASE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL 
+"The case is bent and twisted where the thief attacked it with the mace." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<AND <MC-VERB? LOOK-THRU>
+		    <MC-PRSI? ,TH-MAGNIFYING-GLASS>>
+	       <TELL "It's been wiped clean." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-ELIZAS-MOUTH ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ELIZAS-HEART">>
+	<COND (<AND <MC-VERB? SHOOT>
+		    <MC-THIS-PRSO?>>
+	       <PUTP ,CH-ELIZA-DOOLITTLE ,P?OBJ-NOUN ,W?GIRL>
+	       <PUTP ,CH-ELIZA-DOOLITTLE ,P?OBJ-ADJ 0>
+	       <RT-PERFORM ,V?SHOOT ,CH-ELIZA-DOOLITTLE>
+	       <RTRUE>)
+	      (<NOT <AND <MC-VERB? PUT>
+			 <MC-THIS-PRSI?>>>
+	       <RFALSE>)
+	      (<MC-ISNOT? ,TH-ELIZAS-MOUTH ,FL-OPENED>
+	       <TELL CTHEI " is not open." CR>)
+	      (<MC-PRSO? ,TH-ORANGE-PILL ,TH-YELLOW-PILL>
+	       <RT-CURE-ELIZA ,GL-PRSO>)
+	      (<NOT <FSET? ,GL-PRSO ,FL-FOOD>>
+	       <TELL "It's hard to imagine that " AO
+		       " would do your patient much good." CR>
+	       <RTRUE>)
+	      (<RT-ROOM-IN-ON-MSG? ,GL-PRSO ,GL-PRSI>
+	       T)
+	      ;(<OR <RT-META-IN? ,GL-PRSO ,LOCAL-GLOBALS>
+		    <RT-META-IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+		    <IN? ,GL-PRSO ,ROOMS>>
+		<TELL "Don't be silly." CR>)
+	      ;(<MC-IS? ,CH-ELIZA-DOOLITTLE ,FL-ASLEEP>
+		<REMOVE ,GL-PRSO>
+		<RT-CYOU-MSG "put" "puts">
+		<TELL THEO " into " THEI ". She swallows reflexively, gulping down " THEO "." CR>)>>
+
+<ROUTINE RT-AC-TH-RUBBINGS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-RUBBINGS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"They are brass rubbings made from various inscriptions around
+the abbey." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? READ>
+	       <RT-AC-TH-RUBBINGS ,K-M-DESCFCN>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-SOFA ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-SOFA">>
+	<COND (<MC-VERB? ENTER>
+	       <TELL ,K-NO-RESTING-MSG CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-MARQUEES ("OPT" (CONTEXT <>) (CLASS <>))
+  <DEBUGGING? <RT-DEBUG-OB-AC "TH-MARQUEES">>
+  <COND (<==? .CONTEXT ,K-M-SDESC>
+	 <PRINT-SDESC "marquees" .CLASS <> T>
+	 <RTRUE>)
+	(<OR <==? .CONTEXT ,K-M-DESCFCN>
+	     <AND <F? .CONTEXT>
+		  <MC-VERB? READ LOOK-INSIDE LOOK-ON>>>
+	 <SETG GL-WINDOW <GET ,GL-QUOTES ,K-SIGN-MARQUEES>>
+	 <RT-WINDOW ,GL-WINDOW>
+	 <SETG GL-WINDOW <>>
+	 <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-SUPPORTS ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-SUPPORTS">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "supports" .CLASS <> T>)
+	      (<T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-ASH ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ASH">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It is dark, almost black, in colour, and quite flakey." CR>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? BLOW-INTO SHOOT>
+	       <REMOVE ,TH-ASH>
+	       <TELL CTHE ,TH-ASH " scatters and disappears." CR>)
+	      (<MC-VERB? HAUL>
+	       <TELL "Good idea. Let's get the flake out of here." CR>)
+	      (<MC-VERB? KISS>
+	       <TELL ,K-PROFANITY-MSG CR>) 
+	      (<RT-TOUCH-VERB?>
+	       <REMOVE ,TH-ASH>
+	       <TELL "As soon as">
+	       <RT-YOU-MSG "try" "tries">
+	       <TELL "to touch the ash, it crumbles and disappears." CR>)>>
+
+<ROUTINE RT-AC-TH-CIGARETTE ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-CIGARETTE">>
+	<COND (<MC-VERB? SHOOT>
+	       <TELL ,K-ANNIE-OAKELEY-MSG CR>)>>
+
+<ROUTINE RT-AC-TH-TURBAN ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-TURBAN">>
+	<COND (<OR <RT-TOUCH-VERB?>
+		   <MC-VERB? LOOK-UNDER LOOK-INSIDE>>
+	       <COND (<FSET? ,CH-AKBAR ,FL-ASLEEP>
+		      <TELL "That's stooping pretty low." CR>
+		      <RTRUE>)>
+	       <TELL
+"The native of India pulls away from you and says, \"As you must know,">
+	       <COND (<MC-IS? ,TH-WATSONS-HAT ,FL-WORN>
+		      <TELL " honourable sir,">)>
+	       <TELL
+" a man's head should never be uncovered. It is an affront to God.\"" CR>)
+	      (<MC-VERB? SHOOT>
+	       <RT-PERFORM ,V?SHOOT ,CH-AKBAR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-ANCHOR-CHAIN ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-ANCHOR-CHAIN">>
+	<COND (<MC-VERB? SHOOT>
+	       <TELL ,K-RICOCHET-MSG CR>)
+	      (<NOT <IN? ,CH-PLAYER ,TH-BOAT>>
+	       <TELL ,K-MUST-BE-IN-BOAT-MSG "do that." CR>)
+	      (<MC-VERB? TAKE>
+	       <COND (<IN? ,TH-ANCHOR ,TH-BOAT>
+		      <TELL "Oomph! It's too heavy to carry." CR>)
+		     (T
+		      <MOVE ,TH-ANCHOR ,TH-BOAT>
+		      <RT-SAY-RAISE-ANCHOR>)>)
+	      (<MC-VERB? RAISE HAUL WEIGH PULL>
+	       <COND (<IN? ,TH-ANCHOR ,LG-WATER>
+		      <MOVE ,TH-ANCHOR ,TH-BOAT>
+		      <RT-SAY-RAISE-ANCHOR>)
+		     (T
+		      <TELL ,K-ANCHOR-ALREADY-OUT-MSG CR>)>)>>
+
+<ROUTINE RT-SAY-LOWER-ANCHOR ()
+  <RT-CYOU-MSG "lower" "lowers">
+  <TELL "the anchor into the water." CR>>
+
+<ROUTINE RT-SAY-RAISE-ANCHOR ()
+  <RT-CYOU-MSG "raise" "raises">
+  <TELL "the anchor and ">
+  <COND (<==? ,GL-WINNER ,CH-PLAYER>
+	 <TELL "drop">)
+	(T
+	 <TELL "drops">)>
+  <TELL " it into the boat." CR>>
+
+<ROUTINE RT-AC-TH-WAX-OBJECT-1 ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-WAX-OBJECT-1">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "that part of the statue" .CLASS T <>>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "You see nothing unusual about">
+	       <RT-CLAUSE-PRINT ,K-P-NC1 ,K-P-NC1L>
+	       <TELL "." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-LIBRARY-OBJ ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-LIBRARY-OBJ">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "things in the library" .CLASS <> T>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "You see nothing unusual about">
+	       <RT-CLAUSE-PRINT ,K-P-NC1 ,K-P-NC1L>
+	       <TELL "." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB?  LOOK-INSIDE LOOK-OUTSIDE LOOK-THRU-SWP LOOK-UNDER
+			  LOOK-BEHIND LOOK-ON LOOK-THRU SEARCH READ>
+	       <TELL "You see nothing " <RT-PICK-NEXT ,GL-BORING-TXT>
+		     "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-RAILING ()
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-RAILING">>
+	<COND (<MC-VERB? CLIMB-OVER>
+	       <TELL ,K-SUICIDE-MSG CR>
+	       <RTRUE>)
+	      (<MC-VERB? CLIMB-ON>
+	       <TELL "It's much too dangerous. Besides, it wouldn't bring you
+any closer to the clapper." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-OPIUM-GAS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-OPIUM-GAS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The fumes hang thick in the air." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SMELL>
+	       <TELL ,K-DIZZY-MSG CR>)
+	      (<OR <MC-VERB? BUY BUY-FROM ASK-FOR>
+		   <AND <EQUAL? ,GL-WINNER ,CH-DENKEEPER>
+			<MC-VERB? ASK-FOR GIVE>>> 
+	       <TELL
+"The proprietor eyes you for a moment and says, \"A gent the likes of you
+doesn't buy what I 'ave to sell, mate. What is it you really want?\"" CR>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-PRODUCE ("OPT" (CONTEXT <>) (CLASS <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-PRODUCE">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <PRINT-SDESC "produce" .CLASS <> T>
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"All the produce looks good. But the giant peas look especially delicious." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? SMELL>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "The produce smells country fresh." CR>)
+		     (T
+		      <TELL "The produce smells like it's been there a while."
+			    CR>)>
+	       <RTRUE>)
+	      (<MC-VERB? BUY BUY-FROM>
+	       <COND (<EQUAL? <GET ,GL-P-NAMW 0> ,W?FRUIT ,W?FRUITS>
+		      <TELL "You">)
+		     (T
+		      <TELL "Although the giant peas look tempting, you">)>
+	       <TELL
+" decide to conserve your capital for more important purchases." CR>)
+	      (<MC-VERB? TAKE STEAL>
+	       <TELL ,K-THEFT-MSG CR>
+	       <RTRUE>)
+	      (<MC-VERB? SHOOT>
+	       <RT-WASTE-OF-BULLETS-MSG>)>>
+
+<ROUTINE RT-AC-TH-TRINKETS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-TRINKETS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"They're mostly just baubles. He's obviously charging way too much for them."
+CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? BUY BUY-FROM>
+	       <COND (<IN? ,TH-TELESCOPE ,CH-VENDOR>
+		      <TELL
+"The vendor says, \"I've got a loverly telescope you might be interested
+in, guv'nor.\"" CR>)
+		     (T
+		      <TELL
+"You glance at the rest of the vendor's wares and decide you can live
+without them." CR>)>
+	       <RTRUE>)
+	      (<MC-VERB? TAKE STEAL>
+	       <TELL ,K-THEFT-MSG CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-GUARDS-KEYS ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-GUARDS-KEYS">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <RT-CYOU-MSG>
+	       <TELL "can't see them. They're in the guard's pocket." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<AND <MC-VERB? LISTEN>
+		    <MC-THIS-PRSO?>>
+	       <TELL
+CTHE ,CH-BANK-GUARD " is idly jangling some keys in his pocket." CR>)>>
+
+<ROUTINE RT-AC-TH-NELSON-EYE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-NELSON-EYE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<AND <MC-IS? ,TH-NELSON-STATUE ,FL-OPENED>
+			   <IN? ,TH-RUBY ,TH-NELSON-STATUE>>
+		      <TELL " " ,K-GLINT-MSG>
+		      <RTRUE>)>
+	       <RFALSE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<RT-TOUCH-VERB?>
+	       <TELL CTHE ,TH-NELSON-EYE " is too high." CR>
+	       <RTRUE>)
+	      (<MC-VERB? LOOK-INSIDE SEARCH>
+	       <COND (<NOT <RT-AC-TH-NELSON-EYE ,K-M-DESCFCN>>
+		      <TELL "It is too high up to get a good look." CR>)>)
+	      (<MC-VERB? SHOOT>
+	       <TELL ,K-ANNIE-OAKELEY-MSG CR>)>>
+
+;<ROUTINE RT-AC-TH-UNINTERESTING-OBJECT ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-OB-AC "TH-UNINTERESTING-OBJECT">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "It's not very interesting." CR>
+	       <RTRUE>)
+	      (<MC-T? .CONTEXT> <RFALSE>)
+	      (<MC-VERB? TAKE RELEASE MOVE LOOK-UNDER PUSH-TO PUSH>
+	       <RT-CYOU-MSG>
+	       <TELL "can't seem to budge the object." CR>
+	       <RTRUE>)
+	      (<MC-VERB? MUNG SHOOT>
+	       <RT-CYOU-MSG>
+	       <TELL "can't seem to destroy the object." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-AC-TH-PANELLING ("OPT" (CONTEXT <>) (CLASS <>))
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "walls" .CLASS <> T>)>>
+
+<ROUTINE RT-AC-TH-INSTRUMENTS ("OPT" (CONTEXT <>) (CLASS <>))
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<PRINT-SDESC "instruments of torture" .CLASS <> T>)>>
+
+<ROUTINE RT-AC-TH-PLAYER-BODY ()
+  <COND (<AND <==? <GET ,GL-P-NAMW 0> ,W?NOSE>
+	      <OR <AND <MC-VERB? TAKE>
+		       <==? ,GL-P-PRSA-WORD ,W?HOLD>>
+		  <AND <MC-VERB? STEAL>
+		       <==? ,GL-P-PRSA-WORD ,W?PINCH>>>>
+	 <RT-PERFORM ,V?TAKE ,TH-BREATH>
+	 <RTRUE>)>>
diff --git a/tower.zabstr b/tower.zabstr
new file mode 100644
index 0000000..dab979d
--- /dev/null
+++ b/tower.zabstr
@@ -0,0 +1,48 @@
+
+<DEFINE-ROUTINE RT-EX-RM-EXIT-BYWARD-TOWER> 
+<OBJECT CH-TOWER-GUARD (LOC RM-BYWARD-TOWER) (DESC "beefeater") (FLAGS FL-ALIVE
+FL-PERSON FL-TRYTAKE FL-NOALL FL-LOCKED FL-NODESC) (SYNONYM GUARD YEOMAN
+BEEFEATER) (ADJECTIVE TOWER) (SIZE 99 CAPACITY 20) (ACTION RT-AC-CH-TOWER-GUARD
+)> 
+<DEFINE-ROUTINE RT-AC-CH-TOWER-GUARD> 
+<OBJECT TH-MALMSEY (LOC TH-BUTT-OF-MALMSEY) (DESC "malmsey") (FLAGS FL-PLURAL
+FL-COLLECTIVE FL-TRYTAKE FL-FOOD) (SYNONYM MALMSEY WINE) (ACTION
+RT-AC-TH-MALMSEY)> 
+<OBJECT TH-MALMSEY-POOL (DESC "pool of malmsey") (FLAGS FL-TRYTAKE FL-FOOD) (
+SYNONYM MALMSEY WINE POOL) (ADJECTIVE POOL) (ACTION RT-AC-TH-MALMSEY-POOL)> 
+<OBJECT TH-BUTT-OF-MALMSEY (LOC RM-BOWYER-TOWER) (FLAGS FL-TRYTAKE FL-CONTAINER
+FL-OPENED FL-NODESC FL-HAS-SDESC FL-HAS-DESCFCN) (SYNONYM BUTT KEG BARREL) (
+ADJECTIVE BUTT KEG BARREL MALMSEY) (SIZE 50 MASS 50 CAPACITY 50) (ACTION
+RT-AC-TH-BUTT-OF-MALMSEY)> 
+<OBJECT TH-GARNET (DESC "garnet") (FLAGS FL-TAKEABLE FL-READABLE FL-SURFACE
+FL-MONEY FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY) (
+OBJ-ADJ 0) (OBJ-NOUN 0) (SYNONYM GARNET GEM GEMS SCRATCH) (ADJECTIVE GARNET
+GARNET\'S) (VALUE 5) (SIZE 1 MASS 1 CAPACITY 1) (GENERIC RT-GN-GEM) (ACTION
+RT-AC-TH-GARNET)> 
+<OBJECT TH-BUNG (LOC TH-BUTT-OF-MALMSEY) (DESC "bung") (FLAGS FL-TAKEABLE
+FL-TRYTAKE FL-NODESC) (SYNONYM BUNG STOPPER CORK) (SIZE 3 MASS 3) (ACTION
+RT-AC-TH-BUNG)> 
+<OBJECT TH-MACE (LOC RM-JEWEL-ROOM) (DESC "mace") (FLAGS FL-TAKEABLE FL-WEAPON
+FL-HAS-DESCFCN) (SYNONYM MACE WEAPON) (VALUE 1) (SIZE 15 MASS 15) (ACTION
+RT-AC-TH-MACE)> 
+<OBJECT TH-PORTCULLIS-CHAIN (LOC RM-INSIDE-TRAITORS-GATE) (DESC "chain") (FLAGS
+FL-TRYTAKE FL-NODESC FL-HAS-DESCFCN) (SYNONYM CHAIN) (ADJECTIVE PORTCULLIS) (
+ACTION RT-AC-TH-PORTCULLIS-CHAIN)> 
+<OBJECT TH-SUIT-OF-ARMOUR (LOC RM-DUNGEON) (DESC "suit of armour") (FLAGS
+FL-TAKEABLE FL-CLOTHING FL-CONTAINER FL-OPENED FL-HAS-DESCFCN) (SYNONYM ARMOUR
+SUIT ARMOR) (ADJECTIVE SUIT ARMOUR ARMOR) (SIZE 100 CAPACITY 999) (ACTION
+RT-AC-TH-SUIT-OF-ARMOUR)> 
+<DEFINE-ROUTINE RT-AC-TH-MALMSEY> 
+<DEFINE-ROUTINE RT-AC-TH-MALMSEY-POOL> 
+<DEFINE-ROUTINE RT-AC-TH-BUTT-OF-MALMSEY> 
+<DEFINE-ROUTINE RT-AC-TH-EMPTY-BUTT-OF-MALMSEY> 
+<DEFINE-ROUTINE RT-EMPTY-BUTT-MSG> 
+<DEFINE-ROUTINE RT-AC-TH-BUNG> 
+<DEFINE-ROUTINE RT-AC-TH-GARNET> 
+<DEFINE-ROUTINE RT-AC-TH-MACE> 
+<DEFINE-ROUTINE RT-AC-TH-PORTCULLIS-CHAIN> 
+<DEFINE-ROUTINE RT-AC-TH-SUIT-OF-ARMOUR> 
+<OBJECT LG-PORTCULLIS-DOOR (LOC LOCAL-GLOBALS) (DESC "portcullis") (FLAGS
+FL-DOOR FL-OPENABLE FL-TRANSPARENT) (SYNONYM DOOR PORTCULLIS) (ADJECTIVE IRON
+GATE TRAITOR\'S) (VALUE 5) (ACTION RT-AC-LG-PORTCULLIS-DOOR)> 
+<DEFINE-ROUTINE RT-AC-LG-PORTCULLIS-DOOR> 
\ No newline at end of file
diff --git a/tower.zap b/tower.zap
new file mode 100644
index 0000000..cd2f640
--- /dev/null
+++ b/tower.zap
@@ -0,0 +1,315 @@
+
+
+	.FUNCT	RT-EX-RM-EXIT-BYWARD-TOWER
+	EQUAL?	GL-PRSO,P?EAST,P?IN \?CCL3
+	ZERO?	ALLOW-IN-TOWER /?CND4
+	PRINTI	"The guard nods as you pass."
+	CRLF	
+	RETURN	RM-OUTER-WARD
+?CND4:	PRINTI	"The guard steps into your path and says, ""I am sorry but you cannot go in unless you can tell me the password."""
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	GL-PRSO,P?WEST,P?OUT \FALSE
+	EQUAL?	GL-PLACE-PRV,RM-DRAWBRIDGE \?CCL10
+	RETURN	RM-DRAWBRIDGE
+?CCL10:	PRINTI	"The guard blocks your path and says, ""I am sorry, but I am under strict orders not to allow anyone to leave the Tower."""
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RT-AC-CH-TOWER-GUARD,CONTEXT
+	EQUAL?	CONTEXT,K-M-WINNER \?CCL3
+	EQUAL?	GL-PRSA,V?BOLEYN,V?CLEVES,V?HOWARD /FALSE
+	EQUAL?	GL-PRSA,V?PARR,V?ARAGON,V?SEYMOUR /FALSE
+	EQUAL?	GL-PRSA,V?PASSWORD /FALSE
+	PRINTR	"The guard stares at you impassively."
+?CCL3:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? /FALSE
+	RFALSE	
+
+
+	.FUNCT	RT-AC-TH-MALMSEY
+	ZERO?	GL-NOW-PRSI? \?CND1
+	SET	'GL-P-IT-OBJECT,TH-MALMSEY
+?CND1:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?DRINK,V?DRINK-FROM,V?EAT /?CTR9
+	EQUAL?	GL-PRSA,V?DRINK \?CCL10
+?CTR9:	PRINT	K-TIPSY-MSG
+	CRLF	
+	RTRUE	
+?CCL10:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-BULLET-MSG
+	CALL1	RT-EMPTY-BUTT-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-MALMSEY-POOL
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?DRINK,V?DRINK-FROM,V?EAT /?CTR7
+	EQUAL?	GL-PRSA,V?TASTE \?CCL8
+?CTR7:	PRINTR	"You get down on all fours and lap up some of the wine. Yuch!"
+?CCL8:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	CALL1	RT-WHY-SHOOT-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-BUTT-OF-MALMSEY,CONTEXT
+	EQUAL?	CONTEXT,K-M-SDESC \?CCL3
+	FSET?	TH-BUTT-OF-MALMSEY,FL-BROKEN \?CND4
+	PRINTI	"empty "
+?CND4:	PRINTI	"butt of malmsey"
+	RTRUE	
+?CCL3:	EQUAL?	CONTEXT,K-M-DESCFCN \?CND1
+	FSET?	TH-BUTT-OF-MALMSEY,FL-BROKEN /FALSE
+	PRINTR	"It's an old wooden keg that's brimming over with malmsey and covered with stains where the wine has spilled down the sides and leaked through the bung."
+?CND1:	FSET?	TH-BUTT-OF-MALMSEY,FL-BROKEN \?CCL12
+	CALL1	RT-AC-TH-EMPTY-BUTT-OF-MALMSEY
+	RSTACK	
+?CCL12:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?DRINK \?CCL19
+	PRINT	K-TIPSY-MSG
+	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	GL-PRSA,V?DRINK-FROM \?CCL21
+	PRINTR	"You take a sip. It tastes like Malmsey."
+?CCL21:	EQUAL?	GL-PRSA,V?FLIP,V?PUSH,V?TIP /?CTR22
+	EQUAL?	GL-PRSA,V?PUSH-TO,V?LOOSEN \?CCL23
+?CTR22:	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is much too heavy to move."
+?CCL23:	EQUAL?	GL-PRSA,V?SHOOT \?CCL27
+	PRINT	K-BULLET-MSG
+	CALL1	RT-EMPTY-BUTT-MSG
+	RSTACK	
+?CCL27:	EQUAL?	GL-PRSA,V?REACH-IN \FALSE
+	ICALL	RT-CYOU-MSG,STR?798,STR?799
+	PRINTI	"an arm down into the malmsey, but"
+	ICALL	RT-YOU-MSG,STR?800,STR?801,TRUE-VALUE
+	PRINTR	"up empty."
+
+
+	.FUNCT	RT-AC-TH-EMPTY-BUTT-OF-MALMSEY
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?DRINK,V?DRINK-FROM \?CCL8
+	PRINTR	"Too bad. All gone."
+?CCL8:	EQUAL?	GL-PRSA,V?FLIP \FALSE
+	PRINTI	"That would"
+	CALL1	RT-WASTE-OF-TIME-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-EMPTY-BUTT-MSG
+	REMOVE	TH-MALMSEY
+	MOVE	TH-GARNET,TH-BUTT-OF-MALMSEY
+	MOVE	TH-MALMSEY-POOL,RM-BOWYER-TOWER
+	FSET	TH-BUTT-OF-MALMSEY,FL-BROKEN
+	MOVE	TH-BUNG,RM-BOWYER-TOWER
+	PRINTI	" flies across the room and lands in the corner. "
+	ICALL2	RT-CTHEO-PRINT,TH-MALMSEY
+	PRINTR	" streams out of the butt and across the floor. Soon the keg is completely empty, and there's wine all over the floor."
+
+
+	.FUNCT	RT-AC-TH-BUNG
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TAKE,V?PULL,V?LOOSEN /?CTR7
+	EQUAL?	GL-PRSA,V?UNPLUG,V?RELEASE \?CCL8
+?CTR7:	IN?	TH-BUNG,TH-BUTT-OF-MALMSEY \FALSE
+	PRINTR	"You can't. It's jammed in too tight."
+?CCL8:	EQUAL?	GL-PRSA,V?PUT \?CCL15
+	EQUAL?	GL-PRSI,TH-BUTT-OF-MALMSEY \FALSE
+	FSET?	GL-PRSI,FL-BROKEN \FALSE
+	PRINTR	"Don't you think it's pretty pointless to try to stopper up an empty keg?"
+?CCL15:	EQUAL?	GL-PRSA,V?HIT \?CCL22
+	IN?	TH-BUNG,TH-BUTT-OF-MALMSEY \FALSE
+	EQUAL?	GL-PRSI,TH-HANDS \?CCL28
+	PRINTR	"Your hands aren't nearly strong enough to remove the stopper by themselves."
+?CCL28:	EQUAL?	GL-PRSI,TH-MACE \FALSE
+	ICALL2	RT-CTHEO-PRINT,TH-BUNG
+	CALL1	RT-EMPTY-BUTT-MSG
+	RSTACK	
+?CCL22:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	IN?	TH-BUNG,TH-BUTT-OF-MALMSEY \FALSE
+	PRINT	K-BULLET-MSG
+	CALL1	RT-EMPTY-BUTT-MSG
+	RSTACK	
+
+
+	.FUNCT	RT-AC-TH-GARNET,CONTEXT
+	GETP	TH-GARNET,P?OBJ-NOUN
+	EQUAL?	STACK,W?SCRATCH \?CCL3
+	CALL	RT-HANDLE-SCRATCH,TH-GARNET,CONTEXT
+	RSTACK	
+?CCL3:	EQUAL?	CONTEXT,K-M-SDESC \?CCL6
+	PRINTI	"garnet"
+	RTRUE	
+?CCL6:	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL8
+	ICALL2	RT-EXAMINE-GEM,TH-GARNET
+	RTRUE	
+?CCL8:	ZERO?	CONTEXT \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	CALL2	RT-EXAMINE-GEM,TH-GARNET
+	ZERO?	STACK \TRUE
+	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	IN?	TH-GARNET,TH-BUTT-OF-MALMSEY \FALSE
+	PRINTR	"You can't. Your shoulders are too broad, and your arms are too short for you to reach to the bottom of the butt."
+
+
+	.FUNCT	RT-AC-TH-MACE,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"It's a huge, medieval mace that some medieval knight probably used for knocking other knights off horses."
+?CCL3:	ZERO?	GL-NOW-PRSI? /?CCL5
+	EQUAL?	GL-PRSO,CH-WIGGINS \?CCL8
+	FSET?	GL-PRSO,FL-ASLEEP \?CND9
+	PRINTR	"If he could, Wiggins would dance nimbly out of harm's way and cry ""'Ere! Steady on, mate!"" Assault and battery on your friends is probably not the way to go."
+?CND9:	PRINTR	"Wiggins dances nimbly out of harm's way and cries, ""'Ere! Steady on, mate!"""
+?CCL8:	EQUAL?	GL-PRSO,TH-SUIT-OF-ARMOUR \FALSE
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN /FALSE
+	PRINTR	"Did you really think beating up on an empty suit of armour was going to get you anywhere?"
+?CCL5:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-PORTCULLIS-CHAIN,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The chain is hanging just within reach."
+?CCL3:	ZERO?	GL-NOW-PRSI? \FALSE
+	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?PULL,V?LOWER,V?LOOSEN /?CTR9
+	EQUAL?	GL-PRSA,V?PUSH-TO \?CCL10
+?CTR9:	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \?CCL15
+	PRINTR	"The gate is already up."
+?CCL15:	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN /?CCL18
+	PRINTR	"You pull on the chain but the portcullis doesn't budge."
+?CCL18:	FSET	LG-PORTCULLIS-DOOR,FL-OPENED
+	FSET	LG-PORTCULLIS-DOOR,FL-LOCKED
+	ICALL2	SOUNDS,S-ARMOR
+	PRINTI	"You grab the chain and lift your feet off the ground. The portcullis' ancient mechanism creaks, but then it rises up and locks into place. When you release the chain, the massive gate remains open."
+	CRLF	
+	ICALL2	RT-UPDATE-SCORE,1
+	RTRUE	
+?CCL10:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-TH-SUIT-OF-ARMOUR,CONTEXT
+	EQUAL?	CONTEXT,K-M-DESCFCN \?CCL3
+	PRINTR	"The suit of armour was made for Henry VIII."
+?CCL3:	ZERO?	GL-NOW-PRSI? /?CCL5
+	EQUAL?	GL-PRSA,V?PUT \?CCL8
+	PRINTI	"That would"
+	CALL1	RT-WASTE-OF-TIME-MSG
+	RSTACK	
+?CCL8:	EQUAL?	GL-PRSA,V?TAKE \FALSE
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?682,TH-SUIT-OF-ARMOUR
+	PRINTR	" first."
+?CCL5:	ZERO?	GL-NOW-PRSI? \FALSE
+	EQUAL?	GL-PRSA,V?TAKE \?CCL17
+	EQUAL?	GL-WINNER,CH-WIGGINS \?CND18
+	PRINTC	34
+?CND18:	PRINTI	"Ooof! It's too heavy to carry."
+	EQUAL?	GL-WINNER,CH-WIGGINS \?CND20
+	PRINTR	""""
+?CND20:	CRLF	
+	RTRUE	
+?CCL17:	EQUAL?	GL-PRSA,V?WEAR \?CCL23
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN /?CCL26
+	MOVE	TH-SUIT-OF-ARMOUR,CH-PLAYER
+	FSET	TH-SUIT-OF-ARMOUR,FL-WORN
+	ICALL2	SOUNDS,S-ARMOR
+	PRINTR	"You put on the suit of armour."
+?CCL26:	PRINTR	"You're already wearing it."
+?CCL23:	EQUAL?	GL-PRSA,V?TAKE-OFF,V?EXIT \?CCL28
+	FSET?	TH-SUIT-OF-ARMOUR,FL-WORN \?CCL31
+	MOVE	TH-SUIT-OF-ARMOUR,GL-PLACE-CUR
+	FCLEAR	TH-SUIT-OF-ARMOUR,FL-WORN
+	ICALL2	SOUNDS,S-ARMOR
+	PRINTI	"You take off the suit of armour and leave it "
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-ONE,RM-THAMES-TWO,RM-THAMES-THREE /?CTR33
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-FOUR,RM-THAMES-FIVE \?CCL34
+?CTR33:	MOVE	TH-SUIT-OF-ARMOUR,TH-BOAT
+	PRINTI	"in the boat"
+	JUMP	?CND32
+?CCL34:	PRINTI	"on "
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL39
+	ICALL1	TELL-THE-FLOOR
+	JUMP	?CND32
+?CCL39:	ICALL1	TELL-THE-GROUND
+?CND32:	PRINTR	"."
+?CCL31:	EQUAL?	GL-P-PRSA-WORD,W?LEAVE /FALSE
+	PRINTR	"You're not wearing it."
+?CCL28:	EQUAL?	GL-PRSA,V?SHOOT \FALSE
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	RT-AC-LG-PORTCULLIS-DOOR
+	ZERO?	GL-NOW-PRSI? \?CCL3
+	EQUAL?	GL-PRSA,V?RAISE,V?OPEN,V?LOOSEN \?CCL6
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \?CCL9
+	PRINTR	"The gate is already up."
+?CCL9:	PRINTR	"Oomph. The portcullis is too heavy to lift."
+?CCL6:	EQUAL?	GL-PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL11
+	PRINTI	"You look through the gate."
+	CRLF	
+	EQUAL?	GL-PLACE-CUR,RM-INSIDE-TRAITORS-GATE \?CCL14
+	CALL2	RT-DESCRIBE-PLACE-CONTENTS,RM-OUTSIDE-TRAITORS-GATE
+	RSTACK	
+?CCL14:	EQUAL?	GL-PLACE-CUR,RM-OUTSIDE-TRAITORS-GATE \FALSE
+	CALL2	RT-DESCRIBE-PLACE-CONTENTS,RM-INSIDE-TRAITORS-GATE
+	RSTACK	
+?CCL11:	EQUAL?	GL-PRSA,V?ENTER,V?THROUGH \?CCL18
+	EQUAL?	GL-PLACE-CUR,RM-INSIDE-TRAITORS-GATE \?CCL21
+	CALL2	RT-DO-WALK,P?SOUTH
+	RSTACK	
+?CCL21:	EQUAL?	GL-PLACE-CUR,RM-OUTSIDE-TRAITORS-GATE \FALSE
+	CALL2	RT-DO-WALK,P?NORTH
+	RSTACK	
+?CCL18:	EQUAL?	GL-PRSA,V?CLOSE,V?LOWER \?CCL25
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \FALSE
+	PRINTR	"It's jammed open."
+?CCL25:	EQUAL?	GL-PRSA,V?SHOOT \?CCL30
+	PRINT	K-RICOCHET-MSG
+	CRLF	
+	RTRUE	
+?CCL30:	EQUAL?	GL-PRSA,V?REACH-IN \FALSE
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \?CCL35
+	PRINTI	"Why don't you just walk through the gate? "
+	ICALL2	RT-CTHEO-PRINT,LG-PORTCULLIS-DOOR
+	PRINTR	" is open."
+?CCL35:	ICALL	RT-CYOU-MSG,STR?769,STR?770
+	PRINTI	"through "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", but can't touch anything on the other side."
+?CCL3:	ZERO?	GL-NOW-PRSI? /FALSE
+	EQUAL?	GL-PRSA,V?THROW \?CCL40
+	EQUAL?	GL-P-PRSA-WORD,W?PUT \?CCL40
+	EQUAL?	GL-PRSO,TH-HANDS,TH-FEET \?CCL40
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \?CCL46
+	PRINTI	"Why don't you just walk through the gate? "
+	ICALL2	RT-CTHEO-PRINT,LG-PORTCULLIS-DOOR
+	PRINTR	" is open."
+?CCL46:	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" through "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	", but can't reach anything on the other side."
+?CCL40:	EQUAL?	GL-PRSA,V?THROW,V?PUT \FALSE
+	FSET?	LG-PORTCULLIS-DOOR,FL-OPENED \FALSE
+	PRINTI	"Why bother? "
+	ICALL2	RT-CTHEO-PRINT,LG-PORTCULLIS-DOOR
+	PRINTR	" is open."
+
+	.ENDI
diff --git a/tower.zil b/tower.zil
new file mode 100644
index 0000000..741fc25
--- /dev/null
+++ b/tower.zil
@@ -0,0 +1,423 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : TOWER.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   28 Oct 1987 17:00:32  $"
+; "revs : $Revision:   1.45  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+; "EAST  from RM-BYWARD-TOWER to RM-OUTER-WARD"
+; "WEST  from RM-BYWARD-TOWER to RM-DRAWBRIDGE"
+
+<ROUTINE RT-EX-RM-EXIT-BYWARD-TOWER ()
+   <COND (<MC-PRSO? P?EAST P?IN>
+	  <COND (<T? ,ALLOW-IN-TOWER>
+		 <TELL "The guard nods as you pass." CR>
+		 <RETURN ,RM-OUTER-WARD>)>
+	  <TELL
+"The guard steps into your path and says, \"I am sorry but you cannot go
+in unless you can tell me the password.\"" CR>
+	  <RFALSE>)
+	 (<MC-PRSO? P?WEST P?OUT>
+	  <COND (<EQUAL? ,GL-PLACE-PRV ,RM-DRAWBRIDGE>
+		 <RETURN ,RM-DRAWBRIDGE>)
+		(T
+		 <TELL
+"The guard blocks your path and says, \"I am sorry, but I am under strict
+orders not to allow anyone to leave the Tower.\"" CR>
+		 <RFALSE>)>)>>
+
+<OBJECT CH-TOWER-GUARD
+	(LOC RM-BYWARD-TOWER)
+	(DESC "beefeater")
+	(FLAGS FL-ALIVE FL-PERSON FL-TRYTAKE FL-NOALL FL-LOCKED FL-NODESC)
+	(SYNONYM GUARD YEOMAN BEEFEATER)
+	(ADJECTIVE TOWER)
+	(SIZE 99 CAPACITY 20)
+	(ACTION RT-AC-CH-TOWER-GUARD)>
+
+<ROUTINE RT-AC-CH-TOWER-GUARD ("OPTIONAL" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-CH-AC "TOWER-GUARD" .CONTEXT>>
+	<COND (<MC-THIS-WINNER?>
+	       <COND (<MC-VERB? BOLEYN CLEVES HOWARD PARR ARAGON SEYMOUR PASSWORD>
+		      <RFALSE>)
+		     (T
+		      <TELL "The guard stares at you impassively." CR>)>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <RFALSE>)>>
+
+<OBJECT TH-MALMSEY
+   (LOC TH-BUTT-OF-MALMSEY)
+   (DESC "malmsey")
+   (FLAGS FL-PLURAL FL-COLLECTIVE FL-TRYTAKE FL-FOOD)
+   (SYNONYM MALMSEY WINE)
+   (ACTION RT-AC-TH-MALMSEY)>
+
+<OBJECT TH-MALMSEY-POOL
+   (DESC "pool of malmsey")
+   (FLAGS FL-TRYTAKE FL-FOOD)
+   (SYNONYM MALMSEY WINE POOL)
+   (ADJECTIVE POOL)
+   (ACTION RT-AC-TH-MALMSEY-POOL)>
+
+<OBJECT TH-BUTT-OF-MALMSEY
+   (LOC RM-BOWYER-TOWER)
+   ;(DESC "butt of malmsey")
+   (FLAGS FL-TRYTAKE FL-CONTAINER FL-OPENED FL-NODESC
+	  FL-HAS-SDESC FL-HAS-DESCFCN)
+   (SYNONYM BUTT KEG BARREL)
+   (ADJECTIVE BUTT KEG BARREL MALMSEY)
+   (SIZE 50 MASS 50 CAPACITY 50)
+   (ACTION RT-AC-TH-BUTT-OF-MALMSEY)>
+
+<OBJECT TH-GARNET
+   (DESC "garnet")
+   (FLAGS FL-TAKEABLE FL-READABLE FL-SURFACE FL-MONEY
+	  FL-HAS-DESCFCN FL-HAS-SDESC FL-NEEDS-IDENTITY FL-LOSE-IDENTITY)
+   (OBJ-ADJ 0)
+   (OBJ-NOUN 0)
+   (SYNONYM GARNET GEM GEMS SCRATCH)
+   (ADJECTIVE GARNET GARNET\'S)
+   (VALUE 5)
+   (SIZE 1 MASS 1 CAPACITY 1)
+   (GENERIC RT-GN-GEM)
+   (ACTION RT-AC-TH-GARNET)>
+
+<OBJECT TH-BUNG
+   (LOC TH-BUTT-OF-MALMSEY)
+   (DESC "bung")
+   (FLAGS FL-TAKEABLE FL-TRYTAKE FL-NODESC)
+   (SYNONYM BUNG STOPPER CORK)
+   (SIZE 3 MASS 3)
+   (ACTION RT-AC-TH-BUNG)>
+
+<OBJECT TH-MACE
+   (LOC RM-JEWEL-ROOM)
+   (DESC "mace")
+   (FLAGS FL-TAKEABLE FL-WEAPON FL-HAS-DESCFCN)
+   (SYNONYM MACE WEAPON)
+   (VALUE 1)
+   (SIZE 15 MASS 15)
+   (ACTION RT-AC-TH-MACE)>
+
+<OBJECT TH-PORTCULLIS-CHAIN
+   (LOC RM-INSIDE-TRAITORS-GATE)
+   (DESC "chain")
+   (FLAGS FL-TRYTAKE FL-NODESC FL-HAS-DESCFCN)
+   (SYNONYM CHAIN)
+   (ADJECTIVE PORTCULLIS)
+   (ACTION RT-AC-TH-PORTCULLIS-CHAIN)>
+
+<OBJECT TH-SUIT-OF-ARMOUR
+   (LOC RM-DUNGEON)
+   (DESC "suit of armour")
+   (FLAGS FL-TAKEABLE FL-CLOTHING FL-CONTAINER FL-OPENED
+	  FL-HAS-DESCFCN)
+   (SYNONYM ARMOUR SUIT ARMOR)
+   (ADJECTIVE SUIT ARMOUR ARMOR)
+   (SIZE 100 CAPACITY 999)
+   (ACTION RT-AC-TH-SUIT-OF-ARMOUR)>
+
+<ROUTINE RT-AC-TH-MALMSEY ()
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-MALMSEY">>
+	<COND (<MC-THIS-PRSO?>
+	       <SETG GL-P-IT-OBJECT ,TH-MALMSEY>)>
+	<COND (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? DRINK DRINK-FROM EAT DRINK>
+		      <TELL ,K-TIPSY-MSG CR>)
+		     (<MC-VERB? SHOOT>
+		      <TELL ,K-BULLET-MSG>
+		      <RT-EMPTY-BUTT-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-MALMSEY-POOL ()
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-MALMSEY-POOL">>
+	<COND (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? DRINK DRINK-FROM EAT TASTE>
+		      <TELL
+"You get down on all fours and lap up some of the wine. Yuch!" CR>)
+		     (<MC-VERB? SHOOT>
+		      <RT-WHY-SHOOT-MSG>)>)>>
+
+<ROUTINE RT-AC-TH-BUTT-OF-MALMSEY ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-BUTT-OF-MALMSEY">>
+	<COND (<==? .CONTEXT ,K-M-SDESC>
+	       <COND (<FSET? ,TH-BUTT-OF-MALMSEY ,FL-BROKEN>
+		      <TELL "empty ">)>
+	       <TELL "butt of malmsey">
+	       <RTRUE>)
+	      (<==? .CONTEXT ,K-M-DESCFCN>
+	       <COND (<FSET? ,TH-BUTT-OF-MALMSEY ,FL-BROKEN>
+		      <RFALSE>)
+		     (T
+		      <TELL
+"It's an old wooden keg that's brimming over with malmsey and covered with
+stains where the wine has spilled down the sides and leaked through the
+bung." CR>
+		      <RTRUE>)>)>
+	<COND (<FSET? ,TH-BUTT-OF-MALMSEY ,FL-BROKEN>
+	       <RT-AC-TH-EMPTY-BUTT-OF-MALMSEY>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? DRINK>
+		      <TELL ,K-TIPSY-MSG CR>)
+		     (<MC-VERB? DRINK-FROM>
+		      <TELL "You take a sip. It tastes like Malmsey." CR>)
+		     (<MC-VERB? FLIP PUSH TIP PUSH-TO LOOSEN>
+		      <TELL CTHEO " is much too heavy to move." CR>)
+				(<MC-VERB? SHOOT>
+				 <TELL ,K-BULLET-MSG>
+				 <RT-EMPTY-BUTT-MSG>)
+				(<MC-VERB? REACH-IN>
+				 <RT-CYOU-MSG "stick" "sticks">
+				 <TELL
+"an arm down into the malmsey, but">
+				 <RT-YOU-MSG "come" "comes" T>
+				 <TELL "up empty." CR>)>)>>
+
+<ROUTINE RT-AC-TH-EMPTY-BUTT-OF-MALMSEY ()
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-EMPTY-BUTT-OF-MALMSEY">>
+	<COND (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? DRINK DRINK-FROM>
+		      <TELL "Too bad. All gone." CR>)
+		     (<MC-VERB? FLIP>
+		      <TELL "That would">
+		      <RT-WASTE-OF-TIME-MSG>)>)>>
+
+<ROUTINE RT-EMPTY-BUTT-MSG ()
+	<REMOVE ,TH-MALMSEY>
+	;<REMOVE ,TH-BUTT-OF-MALMSEY>
+	<MOVE ,TH-GARNET ,TH-BUTT-OF-MALMSEY>
+	<MOVE ,TH-MALMSEY-POOL ,RM-BOWYER-TOWER>
+	;<MOVE ,TH-EMPTY-BUTT-OF-MALMSEY ,RM-BOWYER-TOWER>
+	<FSET ,TH-BUTT-OF-MALMSEY ,FL-BROKEN>
+	<MOVE ,TH-BUNG ,RM-BOWYER-TOWER>
+	<TELL
+" flies across the room and lands in the corner. " CTHE ,TH-MALMSEY " streams
+out of the butt and across the floor. Soon the keg is completely empty, and
+there's wine all over the floor." CR>>
+
+<ROUTINE RT-AC-TH-BUNG ()
+     <DEBUGGING? <RT-DEBUG-TH-AC "TH-BUNG">>
+     <COND (<MC-THIS-PRSI?>
+	    <RFALSE>)
+	   (<MC-THIS-PRSO?> 
+	    <COND (<MC-VERB? TAKE PULL LOOSEN UNPLUG RELEASE>
+		   <COND (<IN? ,TH-BUNG ,TH-BUTT-OF-MALMSEY>
+			  <TELL "You can't. It's jammed in too tight." CR>)>)
+		  (<MC-VERB? PUT>
+		   <COND (<AND <MC-PRSI? ,TH-BUTT-OF-MALMSEY>
+			       <FSET? ,GL-PRSI ,FL-BROKEN>>
+			  <TELL "Don't you think it's pretty pointless to try to stopper up an empty keg?" CR>)>)
+		  (<MC-VERB? HIT>
+		   <COND (<IN? ,TH-BUNG ,TH-BUTT-OF-MALMSEY>
+			  <COND (<MC-PRSI? ,TH-HANDS>
+				 <TELL "Your hands aren't nearly strong enough
+to remove the stopper by themselves." CR>)
+				(<MC-PRSI? ,TH-MACE>
+				 <TELL CTHE ,TH-BUNG>
+				 <RT-EMPTY-BUTT-MSG>)>)>)
+		  (<MC-VERB? SHOOT>
+		   <COND (<IN? ,TH-BUNG ,TH-BUTT-OF-MALMSEY>
+			  <TELL ,K-BULLET-MSG>
+			  <RT-EMPTY-BUTT-MSG>)>)>)>>
+
+<ROUTINE RT-AC-TH-GARNET ("OPT" (CONTEXT <>))
+  <COND (<==? <GETP ,TH-GARNET ,P?OBJ-NOUN> ,W?SCRATCH>
+	 <RT-HANDLE-SCRATCH ,TH-GARNET .CONTEXT>)
+	(T
+	 <COND (<==? .CONTEXT ,K-M-SDESC>
+		<TELL "garnet">
+		<RTRUE>)
+	       (<==? .CONTEXT ,K-M-DESCFCN>
+		<RT-EXAMINE-GEM ,TH-GARNET>
+		<RTRUE>)
+	       (<T? .CONTEXT> <RFALSE>)
+	       (<MC-THIS-PRSI?>
+		<RFALSE>)
+	       (<MC-THIS-PRSO?>
+		<COND (<RT-EXAMINE-GEM ,TH-GARNET>
+		       <RTRUE>)
+		      (<MC-VERB? TAKE>
+		       <COND (<IN? ,TH-GARNET ,TH-BUTT-OF-MALMSEY>
+			      <TELL
+"You can't. Your shoulders are too broad, and your arms are too short
+for you to reach to the bottom of the butt." CR>)>)>)>)>>
+
+<ROUTINE RT-AC-TH-MACE ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-MACE">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"It's a huge, medieval mace that some medieval knight probably used for
+knocking other knights off horses." CR>
+	       <RTRUE>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-PRSO? CH-WIGGINS>
+		      <COND (<FSET? ,GL-PRSO ,FL-ASLEEP>
+			     <TELL "If he could, Wiggins
+would dance nimbly out of harm's way and cry \"'Ere! Steady on, mate!\"
+Assault and battery on your friends is probably not the way to go." CR>
+			     <RTRUE>)>
+		      <TELL
+"Wiggins dances nimbly out of harm's way and cries, \"'Ere! Steady on,
+mate!\"" CR>)
+		     (<AND <MC-PRSO? ,TH-SUIT-OF-ARMOUR>
+			   <MC-ISNOT? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+		      <TELL
+"Did you really think beating up on an empty suit of armour was going to
+get you anywhere?" CR>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-PORTCULLIS-CHAIN ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-PORTCULLIS-CHAIN">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL "The chain is hanging just within reach." CR>)
+	      (<MC-THIS-PRSI?>
+	       <RFALSE>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? PULL LOWER LOOSEN PUSH-TO>
+		      <COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "The gate is already up." CR>)
+			    (T
+			     <COND (<MC-ISNOT? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+				    <TELL
+"You pull on the chain but the portcullis doesn't budge." CR>)
+				   (T
+				    <MC-MAKE ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+				    <MC-MAKE ,LG-PORTCULLIS-DOOR ,FL-LOCKED>
+				    <IFSOUND <SOUNDS ,S-ARMOR>>
+				    <TELL
+"You grab the chain and lift your feet off the ground. The portcullis'
+ancient mechanism creaks, but then it rises up and locks into place. When
+you release the chain, the massive gate remains open." CR>
+				    <RT-UPDATE-SCORE 1>
+				    <RTRUE>)>)>)
+		     (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>)>)>>
+
+<ROUTINE RT-AC-TH-SUIT-OF-ARMOUR ("OPT" (CONTEXT <>))
+	<DEBUGGING? <RT-DEBUG-TH-AC "TH-SUIT-OF-ARMOUR">>
+	<COND (<==? .CONTEXT ,K-M-DESCFCN>
+	       <TELL
+"The suit of armour was made for Henry VIII." CR>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<MC-VERB? PUT>
+		      <TELL "That would">
+		      <RT-WASTE-OF-TIME-MSG>)
+		     (<AND <MC-VERB? TAKE>
+			   <MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "take off" ,TH-SUIT-OF-ARMOUR>
+		      <TELL " first." CR>)>)
+	      (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? TAKE>
+		      <COND (<EQUAL? ,GL-WINNER ,CH-WIGGINS>
+			     <TELL "\"">)>
+		      <TELL "Ooof! It's too heavy to carry.">
+		      <COND (<EQUAL? ,GL-WINNER ,CH-WIGGINS>
+			     <TELL "\"">)>
+		      <CRLF>
+		      <RTRUE>)
+		     (<MC-VERB? WEAR>
+		      <COND (<MC-ISNOT? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+			     <MOVE ,TH-SUIT-OF-ARMOUR ,CH-PLAYER>
+			     <MC-MAKE ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+			     <IFSOUND <SOUNDS ,S-ARMOR>>
+			     <TELL "You put on the suit of armour." CR>)
+			    (T
+			     <TELL "You're already wearing it." CR>)>)
+		     (<MC-VERB? TAKE-OFF EXIT>
+		      <COND (<MC-IS? ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+			     <MOVE ,TH-SUIT-OF-ARMOUR ,GL-PLACE-CUR>
+			     <MC-UNMAKE ,TH-SUIT-OF-ARMOUR ,FL-WORN>
+			     <IFSOUND <SOUNDS ,S-ARMOR>>
+			     <TELL "You take off the suit of armour and leave it ">
+			     <COND (<MC-HERE? ,RM-THAMES-ONE ,RM-THAMES-TWO
+					      ,RM-THAMES-THREE ,RM-THAMES-FOUR
+					      ,RM-THAMES-FIVE>
+				    <MOVE ,TH-SUIT-OF-ARMOUR ,TH-BOAT>
+				    <TELL "in the boat">)
+				   (T
+				    <TELL "on ">
+				    <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+				           <TELL-THE-FLOOR>)
+				          (T
+				           <TELL-THE-GROUND>)>)>
+			     <TELL "." CR>)
+			    (<EQUAL? ,GL-P-PRSA-WORD ,W?LEAVE>
+			     <RFALSE>)
+			    (T
+			     <TELL "You're not wearing it." CR>)>)
+		     (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>)>)>>
+
+<OBJECT LG-PORTCULLIS-DOOR
+   (LOC LOCAL-GLOBALS)
+   (DESC "portcullis")
+   (FLAGS FL-DOOR FL-OPENABLE FL-TRANSPARENT)
+   (SYNONYM DOOR PORTCULLIS)
+   (ADJECTIVE IRON GATE TRAITOR\'S)
+   (VALUE 5)
+   (ACTION RT-AC-LG-PORTCULLIS-DOOR)>
+
+<ROUTINE RT-AC-LG-PORTCULLIS-DOOR ()
+	<DEBUGGING? <RT-DEBUG-LG-AC "LG-PORTCULLIS-DOOR">>
+	<COND (<MC-THIS-PRSO?>
+	       <COND (<MC-VERB? RAISE OPEN LOOSEN>
+		      <COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "The gate is already up." CR>)
+			    (T
+			     <TELL "Oomph. The portcullis is too heavy to lift." CR>)>)
+		     (<MC-VERB? LOOK-INSIDE SEARCH>
+		      <TELL "You look through the gate." CR>
+		      <COND ;(<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "You can't do that, the gate is up." CR>)
+			    (<EQUAL? ,GL-PLACE-CUR ,RM-INSIDE-TRAITORS-GATE>
+			     <RT-DESCRIBE-PLACE-CONTENTS ,RM-OUTSIDE-TRAITORS-GATE>)
+			    (<EQUAL? ,GL-PLACE-CUR ,RM-OUTSIDE-TRAITORS-GATE>
+			     <RT-DESCRIBE-PLACE-CONTENTS ,RM-INSIDE-TRAITORS-GATE>)>)
+		     (<MC-VERB? ENTER THROUGH>
+		      <COND (<MC-HERE? ,RM-INSIDE-TRAITORS-GATE>
+			     <RT-DO-WALK ,P?SOUTH>)
+			    (<MC-HERE? ,RM-OUTSIDE-TRAITORS-GATE>
+			     <RT-DO-WALK ,P?NORTH>)>)
+		     (<MC-VERB? CLOSE LOWER>
+		      <COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "It's jammed open." CR>)>)
+		     (<MC-VERB? SHOOT>
+		      <TELL ,K-RICOCHET-MSG CR>)
+		     (<MC-VERB? REACH-IN>
+		      <COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "Why don't you just walk through the gate? "
+CTHE ,LG-PORTCULLIS-DOOR " is open." CR>)
+			    (T
+			     <RT-CYOU-MSG "reach" "reaches">
+			     <TELL "through " THEO
+", but can't touch anything on the other side." CR>)>)>)
+	      (<MC-THIS-PRSI?>
+	       <COND (<AND <MC-VERB? THROW>
+			   <MC-VERB-WORD? PUT>
+			   <MC-PRSO? ,TH-HANDS ,TH-FEET>>
+		      <COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "Why don't you just walk through the gate? "
+CTHE ,LG-PORTCULLIS-DOOR " is open." CR>)
+			    (T
+			     <RT-CYOU-MSG "put" "puts">
+			     <TELL THEO " through " THEI
+", but can't reach anything on the other side." CR>)>)
+		     (<MC-VERB? THROW PUT>
+		      <COND (<MC-IS? ,LG-PORTCULLIS-DOOR ,FL-OPENED>
+			     <TELL "Why bother? " CTHE ,LG-PORTCULLIS-DOOR " is open." CR>)>)>)>>
+
+
diff --git a/verbs.zabstr b/verbs.zabstr
new file mode 100644
index 0000000..0fda9ed
--- /dev/null
+++ b/verbs.zabstr
@@ -0,0 +1,304 @@
+
+<DEFINE-ROUTINE PRE-CALL> 
+<DEFINE-ROUTINE PRE-DROP> 
+<DEFINE-ROUTINE PRE-DUMB-EXAMINE> 
+<DEFINE-ROUTINE PRE-EXAMINE> 
+<DEFINE-ROUTINE PRE-FEED> 
+<DEFINE-ROUTINE PRE-GIVE> 
+<DEFINE-ROUTINE PRE-LISTEN> 
+<DEFINE-ROUTINE PRE-POCKET> 
+<DEFINE-ROUTINE PRE-PUT> 
+<DEFINE-ROUTINE PRE-PUT-ON> 
+<DEFINE-ROUTINE PRE-SHOW> 
+<DEFINE-ROUTINE PRE-SHOOT> 
+<DEFINE-ROUTINE PRE-TAKE> 
+<DEFINE-ROUTINE PRE-THROW> 
+<DEFINE-ROUTINE PRE-THROW-OVER> 
+<DEFINE-ROUTINE PRE-WATCH> 
+<DEFINE-ROUTINE V-ADJUST> 
+<DEFINE-ROUTINE V-ALARM> 
+<DEFINE-ROUTINE V-ARREST> 
+<DEFINE-ROUTINE V-ASK-ABOUT-1> 
+<DEFINE-ROUTINE V-ASK-ABOUT> 
+<DEFINE-ROUTINE V-ASK-FOR-1> 
+<DEFINE-ROUTINE V-ASK-FOR> 
+<DEFINE-ROUTINE V-BLOW-INTO> 
+<DEFINE-ROUTINE V-BOW> 
+<DEFINE-ROUTINE V-BURN> 
+<DEFINE-ROUTINE V-BURN-WITH> 
+<DEFINE-ROUTINE V-BUY> 
+<DEFINE-ROUTINE V-BUY-FROM> 
+<DEFINE-ROUTINE V-CALL> 
+<DEFINE-ROUTINE V-CAST-OFF> 
+<DEFINE-ROUTINE V-CLEAN> 
+<DEFINE-ROUTINE V-CLEAN-OFF> 
+<DEFINE-ROUTINE V-CLIMB-DOWN> 
+<DEFINE-ROUTINE V-CLIMB-ON> 
+<DEFINE-ROUTINE V-CLIMB-OVER> 
+<DEFINE-ROUTINE V-CLIMB-UP> 
+<DEFINE-ROUTINE V-CLOSE> 
+<DEFINE-ROUTINE V-COUNT> 
+<DEFINE-ROUTINE V-COVER> 
+<DEFINE-ROUTINE V-CROSS> 
+<DEFINE-ROUTINE V-CUT> 
+<DEFINE-ROUTINE V-DETONATE> 
+<DEFINE-ROUTINE V-DIAGNOSE> 
+<DEFINE-ROUTINE V-DIVE> 
+<DEFINE-ROUTINE V-DRESS> 
+<DEFINE-ROUTINE V-DRINK> 
+<DEFINE-ROUTINE V-DRINK-FROM> 
+<DEFINE-ROUTINE V-DRIVE> 
+<DEFINE-ROUTINE V-DROP> 
+<DEFINE-ROUTINE V-DUMB-EXAMINE> 
+<DEFINE-ROUTINE V-EAT> 
+<DEFINE-ROUTINE V-EMPTY> 
+<DEFINE-ROUTINE V-EMPTY-INTO> 
+<DEFINE-ROUTINE V-ENTER> 
+<DEFINE-ROUTINE V-ESCAPE> 
+<DEFINE-ROUTINE V-EXAMINE> 
+<DEFINE-ROUTINE V-EXHALE> 
+<DEFINE-ROUTINE V-EXIT> 
+<DEFINE-ROUTINE V-FEED> 
+<DEFINE-ROUTINE V-FEED-SWP> 
+<DEFINE-ROUTINE V-FILL> 
+<DEFINE-ROUTINE V-FIND> 
+<DEFINE-ROUTINE V-FLIP> 
+<DEFINE-ROUTINE V-FLY> 
+<DEFINE-ROUTINE V-FOCUS-ON> 
+<DEFINE-ROUTINE V-FOLD> 
+<DEFINE-ROUTINE V-FOLLOW> 
+<DEFINE-ROUTINE V-FOO> 
+<DEFINE-ROUTINE V-GET-FOR> 
+<DEFINE-ROUTINE V-GET-FOR-SWP> 
+<DEFINE-ROUTINE V-GIN> 
+<DEFINE-ROUTINE V-GIVE> 
+<DEFINE-ROUTINE V-GIVE-SWP> 
+<DEFINE-ROUTINE V-GOODBYE> 
+<DEFINE-ROUTINE V-GUESS> 
+<DEFINE-ROUTINE V-HAGGLE> 
+<DEFINE-ROUTINE V-HAUL> 
+<DEFINE-ROUTINE V-HEAT> 
+<DEFINE-ROUTINE V-HELLO> 
+<DEFINE-ROUTINE V-HIDE> 
+<DEFINE-ROUTINE V-HIT> 
+<DEFINE-ROUTINE V-HOLD-OVER> 
+<DEFINE-ROUTINE V-HUSH> 
+<DEFINE-ROUTINE V-INHALE> 
+<DEFINE-ROUTINE V-KICK> 
+<DEFINE-ROUTINE V-KILL> 
+<DEFINE-ROUTINE V-KISS> 
+<DEFINE-ROUTINE V-KNOCK> 
+<DEFINE-ROUTINE V-LEAP> 
+<DEFINE-ROUTINE V-LIE-DOWN> 
+<DEFINE-ROUTINE V-LIGHT> 
+<DEFINE-ROUTINE V-LIGHT-WITH> 
+<DEFINE-ROUTINE V-LISTEN> 
+<DEFINE-ROUTINE V-LOCK> 
+<DEFINE-ROUTINE V-LOOK> 
+<DEFINE-ROUTINE V-LOOK-BEHIND> 
+<DEFINE-ROUTINE V-LOOK-DOWN> 
+<DEFINE-ROUTINE V-LOOK-INSIDE> 
+<DEFINE-ROUTINE V-LOOK-ON> 
+<DEFINE-ROUTINE V-LOOK-OUTSIDE> 
+<DEFINE-ROUTINE V-LOOK-THRU> 
+<DEFINE-ROUTINE V-LOOK-THRU-SWP> 
+<DEFINE-ROUTINE V-LOOK-UNDER> 
+<DEFINE-ROUTINE V-LOOK-UP> 
+<DEFINE-ROUTINE V-LOOSEN> 
+<DEFINE-ROUTINE V-LOWER> 
+<DEFINE-ROUTINE V-LAND> 
+<DEFINE-ROUTINE RT-LAND-BOAT> 
+<DEFINE-ROUTINE V-LAMP-OFF> 
+<DEFINE-ROUTINE V-LAMP-ON> 
+<DEFINE-ROUTINE V-LAUNCH> 
+<DEFINE-ROUTINE RT-LAUNCH-BOAT> 
+<DEFINE-ROUTINE V-MAKE> 
+<DEFINE-ROUTINE V-ECHO> 
+<DEFINE-ROUTINE V-MELT> 
+<DEFINE-ROUTINE V-MOVE> 
+<DEFINE-ROUTINE V-MUNG> 
+<DEFINE-ROUTINE V-OPEN> 
+<DEFINE-ROUTINE V-OPEN-WITH> 
+<DEFINE-ROUTINE V-PADDLE> 
+<DEFINE-ROUTINE V-PADDLE-WITH> 
+<DEFINE-ROUTINE V-PASSWORD> 
+<DEFINE-ROUTINE V-PAY> 
+<DEFINE-ROUTINE V-PICK> 
+<DEFINE-ROUTINE V-PLAY> 
+<DEFINE-ROUTINE V-PLUG> 
+<DEFINE-ROUTINE V-POCKET> 
+<DEFINE-ROUTINE V-POINT> 
+<DEFINE-ROUTINE V-POINT-AT> 
+<DEFINE-ROUTINE V-POINT-AT-SWP> 
+<DEFINE-ROUTINE V-POUR> 
+<DEFINE-ROUTINE V-POUR-FROM> 
+<DEFINE-ROUTINE V-PRAY> 
+<DEFINE-ROUTINE V-PULL> 
+<DEFINE-ROUTINE V-PUSH> 
+<DEFINE-ROUTINE V-PUSH-TO> 
+<DEFINE-ROUTINE V-PUT> 
+<DEFINE-ROUTINE V-PUT-BEHIND> 
+<DEFINE-ROUTINE V-PUT-ON> 
+<DEFINE-ROUTINE V-PUT-UNDER> 
+<DEFINE-ROUTINE V-QUESTION> 
+<DEFINE-ROUTINE V-RAISE> 
+<DEFINE-ROUTINE V-REACH-IN> 
+<DEFINE-ROUTINE V-READ> 
+<DEFINE-ROUTINE V-READ-TO> 
+<DEFINE-ROUTINE V-READ-TO-SWP> 
+<DEFINE-ROUTINE V-REFUSE> 
+<DEFINE-ROUTINE V-RELEASE> 
+<DEFINE-ROUTINE V-REPAIR> 
+<DEFINE-ROUTINE V-REPLACE> 
+<DEFINE-ROUTINE V-REPLY> 
+<DEFINE-ROUTINE V-RESCUE> 
+<DEFINE-ROUTINE V-RIDE> 
+<DEFINE-ROUTINE V-RING> 
+<DEFINE-ROUTINE V-RIP> 
+<DEFINE-ROUTINE V-ROB> 
+<DEFINE-ROUTINE V-ROW> 
+<DEFINE-ROUTINE V-RUB-WITH> 
+<DEFINE-ROUTINE V-SAY> 
+<DEFINE-ROUTINE V-SEARCH> 
+<DEFINE-ROUTINE V-SELL> 
+<DEFINE-ROUTINE V-SELL-SWP> 
+<DEFINE-ROUTINE V-SHAKE> 
+<DEFINE-ROUTINE V-SHINE-AT> 
+<DEFINE-ROUTINE V-SHINE-AT-SWP> 
+<DEFINE-ROUTINE V-SHOOT> 
+<DEFINE-ROUTINE V-SHOOT-SWP> 
+<DEFINE-ROUTINE V-SHOW> 
+<DEFINE-ROUTINE V-SHOW-SWP> 
+<DEFINE-ROUTINE V-SIT> 
+<DEFINE-ROUTINE V-SMELL> 
+<DEFINE-ROUTINE V-SMOKE> 
+<DEFINE-ROUTINE V-SPIN> 
+<DEFINE-ROUTINE V-STAND> 
+<DEFINE-ROUTINE V-STAND-ON> 
+<DEFINE-ROUTINE V-STAND-UNDER> 
+<DEFINE-ROUTINE V-STEAL> 
+<DEFINE-ROUTINE V-STRIKE> 
+<DEFINE-ROUTINE V-SWIM> 
+<DEFINE-ROUTINE V-SWING> 
+<DEFINE-ROUTINE V-TAKE> 
+<DEFINE-ROUTINE V-TAKE-OFF> 
+<DEFINE-ROUTINE V-TAKE-WITH> 
+<DEFINE-ROUTINE V-TASTE> 
+<DEFINE-ROUTINE V-TELL> 
+<DEFINE-ROUTINE V-TELL-ABOUT> 
+<DEFINE-ROUTINE V-TELL-WHO> 
+<DEFINE-ROUTINE V-THANK> 
+<DEFINE-ROUTINE V-THROUGH> 
+<DEFINE-ROUTINE V-THROW> 
+<DEFINE-ROUTINE V-THROW-SWP> 
+<DEFINE-ROUTINE V-THROW-OVER> 
+<DEFINE-ROUTINE V-TIE> 
+<DEFINE-ROUTINE V-TIE-UP> 
+<DEFINE-ROUTINE V-TIP> 
+<DEFINE-ROUTINE V-TOUCH> 
+<DEFINE-ROUTINE V-TOUCH-TO> 
+<DEFINE-ROUTINE V-TOUCH-TO-SWP> 
+<DEFINE-ROUTINE V-TRANSLATE> 
+<DEFINE-ROUTINE V-TUNE-TO> 
+<DEFINE-ROUTINE V-TURN> 
+<DEFINE-ROUTINE V-TURN-DOWN> 
+<DEFINE-ROUTINE V-TURN-TO> 
+<DEFINE-ROUTINE V-TURN-UP> 
+<DEFINE-ROUTINE V-UNDRESS> 
+<DEFINE-ROUTINE V-UNFOLD> 
+<DEFINE-ROUTINE V-UNLOCK> 
+<DEFINE-ROUTINE V-UNPLUG> 
+<DEFINE-ROUTINE V-UNSCREW-FROM> 
+<DEFINE-ROUTINE V-UNTIE> 
+<DEFINE-ROUTINE V-USE> 
+<DEFINE-ROUTINE V-USE-ON> 
+<DEFINE-ROUTINE V-WAIT> 
+<DEFINE-ROUTINE V-WALK> 
+<DEFINE-ROUTINE V-WALK-AROUND> 
+<DEFINE-ROUTINE V-WALK-TO> 
+<DEFINE-ROUTINE V-WATCH> 
+<DEFINE-ROUTINE V-WAVE-AT> 
+<DEFINE-ROUTINE V-WEAR> 
+<DEFINE-ROUTINE V-WEDGE> 
+<DEFINE-ROUTINE V-WEIGH> 
+<DEFINE-ROUTINE V-WHAT> 
+<DEFINE-ROUTINE V-WHERE> 
+<DEFINE-ROUTINE V-WHO> 
+<DEFINE-ROUTINE V-WIND> 
+<DEFINE-ROUTINE V-WRAP-AROUND> 
+<DEFINE-ROUTINE V-WRAP-AROUND-SWP> 
+<DEFINE-ROUTINE V-YELL> 
+<DEFINE-ROUTINE RT-CANT-SEE-MUCH-MSG> 
+<DEFINE-ROUTINE RT-NO-MONEY-MSG> 
+<DEFINE-ROUTINE RT-IN-VEHICLE-MSG> 
+<DEFINE-ROUTINE RT-DRIVE-WALK-MSG?> 
+<DEFINE-ROUTINE RT-ALREADY-IN-ROOM-MSG> 
+<DEFINE-ROUTINE RT-NOT-IN-ROOM-MSG> 
+<DEFINE-ROUTINE RT-OBJECT-IS-LOCKED-MSG> 
+<DEFINE-ROUTINE RT-NOTHING-INTERESTING-MSG> 
+<DEFINE-ROUTINE RT-WASTE-OF-TIME-MSG> 
+<DEFINE-ROUTINE RT-FOG-MSG> 
+<DEFINE-ROUTINE RT-ITS-RIGHT-HERE-MSG> 
+<DEFINE-ROUTINE RT-WHO-WHAT-WHERE-MSG> 
+<DEFINE-ROUTINE RT-HI-BYE-MSG> 
+<DEFINE-ROUTINE RT-NO-RESPONSE-MSG> 
+<DEFINE-ROUTINE RT-TAKE-OFF-PRSO-FIRST-MSG> 
+<DEFINE-ROUTINE RT-SAY-DROPPED-MSG> 
+<DEFINE-ROUTINE RT-FOOLISH-TO-TALK-MSG> 
+<DEFINE-ROUTINE RT-YOU-MSG> 
+<DEFINE-ROUTINE RT-CYOU-MSG> 
+<DEFINE-ROUTINE RT-ITS-ALREADY-MSG> 
+<DEFINE-ROUTINE RT-YOURE-NOT-A-MSG> 
+<DEFINE-ROUTINE RT-NO-POINT-MSG> 
+<DEFINE-ROUTINE RT-IS-ARE-MSG> 
+<DEFINE-ROUTINE RT-ISNT-ARENT-MSG> 
+<DEFINE-ROUTINE RT-S-NOS-MSG> 
+<DEFINE-ROUTINE RT-ES-NOES-MSG> 
+<DEFINE-ROUTINE RT-DONT-DOESNT-MSG> 
+<DEFINE-ROUTINE RT-SAY-ITS-MSG> 
+<DEFINE-ROUTINE RT-SAY-HIM-HER-THEM-IT-MSG> 
+<DEFINE-ROUTINE RT-YOUR-MSG> 
+<DEFINE-ROUTINE RT-ITS-CLOSED-MSG> 
+<DEFINE-ROUTINE RT-WHY-SHOOT-MSG> 
+<DEFINE-ROUTINE RT-HOW-READ-MSG> 
+<DEFINE-ROUTINE RT-ALREADY-HAVE-PRSO-MSG> 
+<DEFINE-ROUTINE RT-CANT-OPEN-PRSO-MSG> 
+<DEFINE-ROUTINE RT-CANT-CLOSE-THAT-MSG> 
+<DEFINE-ROUTINE RT-NO-GOOD-SURFACE-MSG> 
+<DEFINE-ROUTINE RT-LANDS-AT-YOUR-FEET-MSG> 
+<DEFINE-ROUTINE RT-OPEN-CLOSED-MSG> 
+<DEFINE-ROUTINE RT-YOU-OPEN-MSG> 
+<DEFINE-ROUTINE RT-YOU-CLOSE-MSG> 
+<DEFINE-ROUTINE RT-IN-ON-MSG> 
+<DEFINE-ROUTINE RT-CIN-CON-MSG> 
+<DEFINE-ROUTINE RT-OUT-OFF-MSG> 
+<DEFINE-ROUTINE RT-CANT-LOCK-MSG> 
+<DEFINE-ROUTINE RT-THING-WONT-LOCK-MSG> 
+<DEFINE-ROUTINE RT-DONT-HAVE-MSG> 
+<DEFINE-ROUTINE RT-ROOM-IN-ON-MSG?> 
+<DEFINE-ROUTINE RT-IMPOSSIBLE-PUT-IN-ON-MSG> 
+<DEFINE-ROUTINE RT-CANT-PUT-IN-ON-MSG> 
+<DEFINE-ROUTINE RT-CHECK-MOVE-MSG?> 
+<DEFINE-ROUTINE RT-EMPTY-PRSO-MSG> 
+<DEFINE-ROUTINE RT-IDROP-MSG> 
+<DEFINE-ROUTINE RT-PRINT-CONTENTS-1> 
+<DEFINE-ROUTINE RT-PRINT-CONTENTS-2> 
+<DEFINE-ROUTINE RT-PRINT-CONTENTS-3> 
+<DEFINE-ROUTINE RT-DO-WALK> 
+<DEFINE-ROUTINE RT-WHO-SAYS?> 
+<DEFINE-ROUTINE RT-TRANSCRIPT> 
+<DEFINE-ROUTINE RT-QSR> 
+<DEFINE-ROUTINE V-YES> 
+<DEFINE-ROUTINE V-NO> 
+<DEFINE-ROUTINE V-MAYBE> 
+<DEFINE-ROUTINE V-DESC-LEVEL> 
+<DEFINE-ROUTINE V-QUIT> 
+<DEFINE-ROUTINE V-RESTART> 
+<DEFINE-ROUTINE V-SAVE> 
+<DEFINE-ROUTINE V-RESTORE> 
+<DEFINE-ROUTINE V-SCRIPT> 
+<DEFINE-ROUTINE V-VERSION> 
+<DEFINE-ROUTINE V-INVENTORY> 
+<DEFINE-ROUTINE V-NOTIFY> 
+<DEFINE-ROUTINE V-SCORE> 
+<DEFINE-ROUTINE V-UNDO> 
\ No newline at end of file
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..23e1ddd
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,4452 @@
+
+
+	.FUNCT	SOUNDS,N,OP,VOL,NUM,RTN
+	ASSIGNED?	'OP /?CND1
+	SET	'OP,S-START
+?CND1:	ASSIGNED?	'VOL /?CND3
+	SET	'VOL,8
+?CND3:	ASSIGNED?	'NUM /?CND5
+	SET	'NUM,1
+?CND5:	LESS?	LOOPING?,0 \?CND7
+	EQUAL?	OP,S-START \?CND7
+	SET	'LOOPING?,0
+	CRLF	
+	PRINTI	"[Use $SOUND to toggle sound usage on and off.]"
+	CRLF	
+?CND7:	EQUAL?	OP,S-INIT \?CND11
+	ZERO?	SOUND-QUEUED? \TRUE
+	ZERO?	LOOPING? \TRUE
+?CND11:	EQUAL?	N,S-CROWD \?CCL19
+	SET	'VOL,6
+	JUMP	?CND17
+?CCL19:	EQUAL?	N,S-BADVIOL \?CND17
+	SET	'VOL,6
+?CND17:	EQUAL?	N,S-CROWD,S-BOATING,S-SNORE \?CCL23
+	EQUAL?	OP,S-START \?CCL26
+	SET	'LOOPING?,N
+	SET	'LOOP-VOL,VOL
+	SET	'NUM,-1
+	JUMP	?CND24
+?CCL26:	EQUAL?	OP,S-STOP \?CND24
+	SET	'LOOPING?,0
+?CND24:	ZERO?	SOUND-QUEUED? /?CND21
+	RTRUE	
+?CCL23:	ZERO?	RTN \?CND21
+	SET	'RTN,CHECK-LOOPING
+?CND21:	ZERO?	SOUND-ON? /TRUE
+	EQUAL?	OP,S-START \?CCL36
+	EQUAL?	N,S-CROWD,S-BOATING,S-SNORE /?CND37
+	SET	'SOUND-QUEUED?,N
+?CND37:	SHIFT	NUM,8
+	BOR	STACK,VOL
+	SOUND	N,OP,STACK,RTN
+	RTRUE	
+?CCL36:	SOUND	N,OP
+	RTRUE	
+
+
+	.FUNCT	CHECK-LOOPING
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	GRTR?	LOOPING?,0 \TRUE
+	ICALL	SOUNDS,LOOPING?,S-START,LOOP-VOL
+	RTRUE	
+
+
+	.FUNCT	RT-S-CAB-ARRIVES
+	ZERO?	CAB-RAMP \?CCL3
+	CALL	SOUNDS,S-HORSE,S-START,4
+	RSTACK	
+?CCL3:	DEC	'CAB-RAMP
+	SUB	2,CAB-RAMP
+	CALL	SOUNDS,S-HORSE,S-START,STACK,1,RT-S-CAB-ARRIVES
+	RSTACK	
+
+
+	.FUNCT	RT-S-CAB-LEAVES
+	ZERO?	SOUND-QUEUED? /?CCL3
+	EQUAL?	SOUND-QUEUED?,S-HORSE \FALSE
+?CCL3:	SET	'CAB-RAMP,2
+	CALL1	RT-S-CAB-GOES
+	RSTACK	
+
+
+	.FUNCT	RT-S-CAB-GOES
+	ZERO?	CAB-RAMP \?CCL3
+	CALL	SOUNDS,S-HORSE,S-START,1
+	RSTACK	
+?CCL3:	DEC	'CAB-RAMP
+	ADD	CAB-RAMP,1
+	MUL	STACK,2
+	CALL	SOUNDS,S-HORSE,S-START,STACK,1,RT-S-CAB-GOES
+	RSTACK	
+
+
+	.FUNCT	END-FANFARE
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	CALL1	KILL-SOUNDS
+	RSTACK	
+
+
+	.FUNCT	KILL-SOUNDS
+	EQUAL?	SOUND-QUEUED?,S-FANFARE /TRUE
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ICALL	SOUNDS,0,S-STOP
+	RTRUE	
+
+
+	.FUNCT	V-$SOUND
+	LESS?	LOOPING?,0 \?CND1
+	SET	'LOOPING?,0
+?CND1:	PRINTI	"Sound "
+	ZERO?	SOUND-ON? /?CCL5
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ICALL1	KILL-SOUNDS
+	SET	'SOUND-ON?,FALSE-VALUE
+	PRINTR	"off."
+?CCL5:	PRINTI	"on."
+	CRLF	
+	SET	'SOUND-ON?,TRUE-VALUE
+	CALL1	CHECK-LOOPING
+	RSTACK	
+
+
+	.FUNCT	PRE-CALL,?TMP1
+	EQUAL?	GL-PRSI,TH-CAB-WHISTLE /FALSE
+	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	EQUAL?	GL-P-PRSA-WORD,W?HAIL \?CCL8
+	PRINTR	"Greetings, O strange one."
+?CCL8:	PRINTR	"Helllloooooooo."
+?CCL5:	GET	GL-P-ADJW,0
+	EQUAL?	STACK,W?MARY \?CCL10
+	EQUAL?	GL-P-PRSA-WORD,W?HAIL \?CCL10
+	PRINTR	"Praying isn't a bad idea. But if you really need help, simply type HINT."
+?CCL10:	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?CAB \?CCL14
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL17
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	" a cab while indoors."
+?CCL17:	LOC	TH-GROWLER-CAB >?TMP1
+	LOC	TH-HANSOM-CAB
+	EQUAL?	GL-PLACE-CUR,?TMP1,STACK \?CCL19
+	PRINT	K-CAB-HERE-MSG
+	CRLF	
+	RTRUE	
+?CCL19:	EQUAL?	GL-P-PRSA-WORD,W?HAIL \?CCL22
+	ICALL	RT-CYOU-MSG,STR?648,STR?649
+	PRINTI	"a hand in the air"
+	JUMP	?CND20
+?CCL22:	ICALL	RT-CYOU-MSG,STR?650,STR?651
+	PRINTI	"for a few moments"
+?CND20:	PRINTI	", but nothing happens. Apparently that isn't how Victorians "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	" cabs."
+?CCL14:	FSET?	GL-PRSO,FL-ALIVE \?CCL24
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK \FALSE
+?CCL24:	PRINTR	"Nothing happens."
+
+
+	.FUNCT	PRE-DROP
+	EQUAL?	GL-PRSO,TH-ANCHOR /FALSE
+	IN?	GL-PRSO,GL-WINNER /FALSE
+	IN?	GL-PRSO,GLOBAL-OBJECTS \?CCL7
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL7:	FSET?	GL-PRSO,FL-BODYPART \?CCL9
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL9:	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	PRE-DUMB-EXAMINE
+	CALL1	PRE-EXAMINE
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	PRE-EXAMINE
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,TH-INTDIR \FALSE
+	EQUAL?	GL-P-DIRECTION,P?UP \?CCL8
+	ICALL	RT-PERFORM,V?LOOK-UP,ROOMS
+	RTRUE	
+?CCL8:	EQUAL?	GL-P-DIRECTION,P?DOWN \?CND6
+	ICALL	RT-PERFORM,V?LOOK-DOWN,ROOMS
+	RTRUE	
+?CND6:	PRINTR	"You peer off into the middle distance, but then return your attention to the matters at hand."
+
+
+	.FUNCT	PRE-FEED
+	CALL2	PRE-GIVE,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	PRE-GIVE,FEED?
+	ZERO?	GL-PRSO /?CTR2
+	ZERO?	GL-PRSI \?CCL3
+?CTR2:	PRINT	K-REFERRING-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,GL-PRSI /?CTR6
+	IN?	GL-PRSI,GLOBAL-OBJECTS \?CCL7
+?CTR6:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL7:	FSET?	GL-PRSI,FL-ALIVE /?CCL11
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	ZERO?	FEED? /?CCL14
+	PRINTI	"feed "
+	JUMP	?CND12
+?CCL14:	PRINTI	"give "
+?CND12:	PRINTI	"anything to "
+	ICALL2	RT-A-PRINT,GL-PRSI
+	PRINTR	"."
+?CCL11:	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL16
+	IN?	GL-PRSO,CH-PLAYER \?CCL16
+	ICALL1	RT-ALREADY-HAVE-PRSO-MSG
+	RTRUE	
+?CCL16:	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER /?CCL20
+	CALL2	RT-DONT-HAVE-MSG,GL-PRSO
+	ZERO?	STACK \TRUE
+?CCL20:	FSET?	GL-PRSO,FL-WORN \FALSE
+	IN?	GL-PRSO,CH-PLAYER \FALSE
+	ICALL1	RT-TAKE-OFF-PRSO-FIRST-MSG
+	RFALSE	
+
+
+	.FUNCT	PRE-LISTEN
+	FSET?	TH-COTTON-BALLS,FL-WORN \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't hear anything very clearly, but then what did you expect with those huge wads of cotton plugging up your ears?"
+
+
+	.FUNCT	PRE-POCKET
+	EQUAL?	GL-WINNER,CH-PLAYER /?CCL3
+	PRINTR	"[You cannot tell characters to do that.]"
+?CCL3:	IN?	GL-PRSO,GLOBAL-OBJECTS \?CCL5
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	IN?	GL-PRSO,TH-POCKET \FALSE
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+	PRINTI	"already in "
+	ICALL2	DPRINT,TH-POCKET
+	PRINTR	"."
+
+
+	.FUNCT	PRE-PUT,PTR,OLOC,CNT
+	IN?	GL-PRSO,GLOBAL-OBJECTS /FALSE
+	EQUAL?	GL-PRSO,TH-ANCHOR /?CCL5
+	IN?	GL-PRSO,GL-WINNER /?CCL5
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not holding "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+	RETURN	2
+?CCL5:	EQUAL?	GL-PRSO,TH-CLOTHES \?CCL9
+	PRINT	K-INAPPROPRIATE-MSG
+	CRLF	
+	RTRUE	
+?CCL9:	EQUAL?	GL-PRSO,GL-PRSI \?CCL11
+	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	GL-PRSI,TH-INTDIR,TH-RIGHT,TH-LEFT \?CCL13
+	PRINTR	"[You must specify an object.]"
+?CCL13:	EQUAL?	GL-PRSI,TH-HANDS \?CCL15
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSO,STR?652
+	RTRUE	
+?CCL15:	EQUAL?	TH-FEET,GL-PRSO,GL-PRSI \?CCL17
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+?CCL17:	EQUAL?	TH-EARS,GL-PRSO,GL-PRSI /FALSE
+	EQUAL?	GL-PRSO,TH-HANDS \?CCL21
+	ICALL	RT-PERFORM,V?REACH-IN,GL-PRSI
+	RTRUE	
+?CCL21:	IN?	GL-PRSI,GLOBAL-OBJECTS /FALSE
+	EQUAL?	GL-PRSO,TH-PIPE \?CCL25
+	EQUAL?	GL-PRSI,W?MOUTH,W?LIPS \?CCL25
+	CALL	RT-PERFORM,V?SMOKE,TH-PIPE
+	RSTACK	
+?CCL25:	FSET?	GL-PRSO,FL-BODYPART \?CCL29
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL29:	IN?	GL-PRSO,GL-PRSI \?CCL31
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+	PRINTI	"already"
+	ICALL2	RT-IN-ON-MSG,GL-PRSI
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL31:	EQUAL?	GL-PRSO,GL-PRSI /?CTR32
+	IN?	GL-PRSO,GLOBAL-OBJECTS /?CTR32
+	FSET?	GL-PRSO,FL-TAKEABLE /?CCL33
+?CTR32:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL33:	CALL2	RT-ACCESSIBLE?,GL-PRSI
+	ZERO?	STACK \?CCL38
+	ICALL2	RT-CANT-SEE-ANY-MSG,GL-PRSI
+	RTRUE	
+?CCL38:	EQUAL?	GL-PRSO,TH-STETHOSCOPE \?CCL40
+	FSET?	GL-PRSI,FL-PERSON /FALSE
+?CCL40:	CALL	RT-CHECK-MOVE-MSG?,GL-PRSO,GL-PRSI
+	ZERO?	STACK \TRUE
+	FSET?	GL-PRSO,FL-WORN \FALSE
+	IN?	GL-PRSO,CH-PLAYER \FALSE
+	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER /FALSE
+	ICALL1	RT-TAKE-OFF-PRSO-FIRST-MSG
+	RFALSE	
+
+
+	.FUNCT	PRE-PUT-ON
+	CALL1	PRE-PUT
+	ZERO?	STACK \TRUE
+	FSET?	GL-PRSI,FL-ALIVE /FALSE
+	FSET?	GL-PRSI,FL-SURFACE /FALSE
+	ICALL1	RT-NO-GOOD-SURFACE-MSG
+	RTRUE	
+
+
+	.FUNCT	PRE-SHOW
+	EQUAL?	FALSE-VALUE,GL-PRSO,GL-PRSI \?CCL3
+	PRINT	K-REFERRING-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL5
+	CALL	RT-META-IN?,GL-PRSO,CH-PLAYER
+	ZERO?	STACK /FALSE
+	CALL	RT-PERFORM,V?EXAMINE,GL-PRSO
+	RSTACK	
+?CCL5:	EQUAL?	GL-PRSO,GL-PRSI /?CTR9
+	IN?	GL-PRSI,GLOBAL-OBJECTS \?CCL10
+?CTR9:	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL10:	FSET?	GL-PRSI,FL-ALIVE /FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot show things to "
+	ICALL2	RT-A-PRINT,GL-PRSI
+	PRINTR	"."
+
+
+	.FUNCT	PRE-SHOOT
+	EQUAL?	GL-PRSI,FALSE-VALUE,TH-GUN /?CCL3
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot shoot anything with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL3:	EQUAL?	GL-PRSI,GL-PRSO \?CCL5
+	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+?CCL5:	IN?	TH-GUN,CH-PLAYER /?CCL7
+	PRINTR	"Clever thinking. If only you had something to shoot with!"
+?CCL7:	EQUAL?	GL-PRSO,CH-ME,TH-EARS,CH-PLAYER /?CTR8
+	EQUAL?	GL-PRSO,TH-HEAD,TH-WATSONS-HEART \?CCL9
+?CTR8:	PRINT	K-SUICIDE-MSG
+	CRLF	
+	RTRUE	
+?CCL9:	EQUAL?	GL-PRSO,TH-BREATH /FALSE
+	FSET?	GL-PRSO,FL-BODYPART \?CCL15
+	PRINTR	"Is this how you got sent home from the Afghan Campaign?"
+?CCL15:	EQUAL?	GL-PRSO,TH-GUN /?CCL17
+	CALL	RT-META-IN?,GL-PRSO,CH-PLAYER
+	ZERO?	STACK /?CCL17
+	PRINT	K-DROP-IT-FIRST-MSG
+	CRLF	
+	RTRUE	
+?CCL17:	ZERO?	TH-GUN-AUX1 \?CCL21
+	PRINTR	"Click!"
+?CCL21:	DEC	'TH-GUN-AUX1
+	RFALSE	
+
+
+	.FUNCT	PRE-TAKE,L,?TMP1
+	EQUAL?	GL-PRSO,TH-BREATH \?CND1
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND1
+	ICALL1	V-INHALE
+	RTRUE	
+?CND1:	IN?	GL-PRSO,GLOBAL-OBJECTS /FALSE
+	LOC	GL-WINNER
+	EQUAL?	GL-PRSO,STACK \?CND7
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"are already inside "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CND7:	LOC	GL-PRSO >L
+	FSET?	GL-PRSO,FL-BODYPART \?CCL11
+	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL11:	EQUAL?	GL-PRSO,TH-STETHOSCOPE,TH-WATSONS-HAT,TH-COTTON-BALLS \?CCL13
+	FSET?	GL-PRSO,FL-WORN /FALSE
+?CCL13:	EQUAL?	L,GL-WINNER \?CCL17
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"already "
+	FSET?	GL-PRSO,FL-WORN \?CCL20
+	PRINTI	"wearing "
+	JUMP	?CND18
+?CCL20:	PRINTI	"holding "
+?CND18:	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL17:	ZERO?	L /?CCL22
+	FSET?	L,FL-CONTAINER \?CCL22
+	FSET?	L,FL-OPENABLE \?CCL22
+	FSET?	L,FL-OPENED /?CCL22
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't reach into "
+	ICALL2	RT-THEO-PRINT,L
+	PRINTR	". It is closed."
+?CCL22:	ZERO?	GL-PRSI /FALSE
+	EQUAL?	GL-PRSO,GL-PRSI \?CCL31
+	GET	GL-P-NAMW,0 >?TMP1
+	GET	GL-P-NAMW,1
+	EQUAL?	?TMP1,STACK /?CCL34
+	GET	GL-P-ADJW,0 >?TMP1
+	GET	GL-P-ADJW,1
+	EQUAL?	?TMP1,STACK \FALSE
+?CCL34:	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL31:	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL38
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL41
+	ICALL1	RT-NOBODY-TO-ASK-MSG
+	RTRUE	
+?CCL41:	EQUAL?	L,CH-PLAYER /FALSE
+	ICALL	RT-CYOU-MSG,STR?653,STR?654
+	PRINTI	"have "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL38:	EQUAL?	GL-PRSI,CH-BANK-GUARD \?CCL45
+	EQUAL?	L,TH-GUARDS-POCKET \?CCL45
+	CALL	RT-PERFORM,V?TAKE,GL-PRSO,TH-GUARDS-POCKET
+	RSTACK	
+?CCL45:	EQUAL?	L,GL-PRSI /FALSE
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	ICALL	RT-IN-ON-MSG,GL-PRSI,FALSE-VALUE
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	PRE-THROW
+	CALL1	PRE-PUT
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	PRE-THROW-OVER
+	CALL1	PRE-THROW
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	PRE-WATCH
+	CALL1	PRE-EXAMINE
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	V-ADJUST
+	EQUAL?	GL-P-PRSA-WORD,W?ADJUST \?CCL3
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSO
+	PRINTR	"need adjustment."
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot focus "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-ALARM
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK /?CCL3
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTR	"already wide awake."
+?CCL5:	FSET?	GL-PRSO,FL-ALIVE \?CCL7
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	FSET?	GL-PRSO,FL-ASLEEP \?CCL10
+	PRINTR	"unconscious, not asleep."
+?CCL10:	PRINTR	"already wide awake."
+?CCL7:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-ARREST
+	PRINTI	"Unfortunately,"
+	ICALL	RT-YOU-MSG,STR?655,STR?656
+	PRINTI	"not have the authority to arrest any"
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+	PRINTI	"one"
+	JUMP	?CND1
+?CCL3:	PRINTI	"thing"
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-ASK-ABOUT-1
+	RTRUE	
+
+
+	.FUNCT	V-ASK-ABOUT
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK /?CCL3
+	RETURN	2
+?CCL3:	EQUAL?	GL-WINNER,GL-PRSI \?CCL5
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RETURN	2
+?CCL5:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL7
+	ICALL1	RT-TALK-TO-SELF-MSG
+	RTRUE	
+?CCL7:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-ASK-FOR-1
+	RTRUE	
+
+
+	.FUNCT	V-ASK-FOR,WHO
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK /?CCL3
+	RETURN	2
+?CCL3:	EQUAL?	GL-WINNER,GL-PRSI \?CCL5
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	FSET?	GL-PRSI,FL-TAKEABLE /?CCL7
+	ICALL2	RT-CTHEO-PRINT,GL-PRSO
+	PRINTI	" say"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTI	", ""Unfortunately, "
+	FSET?	GL-PRSO,FL-PLURAL /?CCL10
+	PRINTC	73
+	JUMP	?CND8
+?CCL10:	PRINTI	"we"
+?CND8:	PRINTR	" can't help you with that."""
+?CCL7:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-BLOW-INTO
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+	ICALL	RT-PERFORM,V?USE,GL-PRSO
+	RTRUE	
+?CCL3:	ICALL2	RT-NO-POINT-MSG,STR?657
+	RTRUE	
+
+
+	.FUNCT	V-BOW
+	ICALL2	RT-NO-POINT-MSG,STR?658
+	RTRUE	
+
+
+	.FUNCT	V-BURN,OBJ,FIX-LAMP?
+	CALL	RT-META-IN?,TH-LAMP,GL-WINNER
+	ZERO?	STACK /?CND1
+	FSET?	TH-LAMP,FL-LIGHTED \?CND1
+	SET	'FIX-LAMP?,TRUE-VALUE
+	FCLEAR	TH-LAMP,FL-LIGHTED
+?CND1:	CALL	RT-GET-WHAT-I-MEAN,FL-LIGHTED,194,PR?WITH,TRUE-VALUE,TRUE-VALUE >OBJ
+	ZERO?	OBJ /?CCL7
+	EQUAL?	OBJ,TH-LAMP /?CCL7
+	ZERO?	FIX-LAMP? /?CND10
+	FSET	TH-LAMP,FL-LIGHTED
+?CND10:	PRINTI	"[with "
+	ICALL2	RT-THEO-PRINT,OBJ
+	PRINTC	93
+	CRLF	
+	ICALL	RT-PERFORM,V?BURN-WITH,GL-PRSO,OBJ
+	RTRUE	
+?CCL7:	ZERO?	FIX-LAMP? /?CND12
+	FSET	TH-LAMP,FL-LIGHTED
+?CND12:	PUT	GL-P-ITBL,K-P-PREP2,PR?WITH
+	ICALL1	RT-SYNTAX-CHECK
+	SET	'GL-P-GOOD,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	V-BURN-WITH
+	FSET?	GL-PRSO,FL-BURNABLE \?CCL3
+	FSET?	GL-PRSI,FL-BURNABLE \?CCL6
+	FSET?	GL-PRSI,FL-LIGHTED \?CCL6
+	CALL	RT-META-IN?,TH-ETHERIUM-AMPOULE,GL-PRSO
+	ZERO?	STACK /?CND9
+	FSET?	TH-ETHERIUM-AMPOULE,FL-BROKEN /?CND9
+	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" catches fire, and quickly generates enough heat to affect the etherium you left inside it."
+	ICALL	RT-PERFORM,V?BURN-WITH,TH-ETHERIUM-AMPOULE,GL-PRSI
+	RTRUE	
+?CND9:	REMOVE	GL-PRSO
+	FCLEAR	GL-PRSO,FL-WORN
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" catches fire and is quickly consumed."
+?CCL6:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"burning."
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-BUY
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK \?CCL3
+	ICALL2	RT-CANT-SEE-ANY-MSG,GL-PRSO
+	RETURN	2
+?CCL3:	CALL2	RT-HELD?,GL-PRSO
+	ZERO?	STACK /?CCL5
+	ICALL1	RT-ALREADY-HAVE-PRSO-MSG
+	RTRUE	
+?CCL5:	FSET?	GL-PRSO,FL-BUYABLE /?CCL7
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTR	"for sale."
+?CCL7:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL9
+	IN?	GL-PRSO,TH-POCKET \?CCL9
+	ICALL1	RT-SAY-ITS-MSG
+	PRINTI	"in "
+	ICALL2	RT-THEO-PRINT,TH-POCKET
+	PRINTR	"."
+?CCL9:	ZERO?	GL-PRSI /?CCL13
+	ICALL	RT-CYOU-MSG,STR?659,STR?660
+	PRINTI	"buy "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL2	RT-A-PRINT,GL-PRSI
+	PRINTR	"."
+?CCL13:	ICALL1	RT-NO-MONEY-MSG
+	RTRUE	
+
+
+	.FUNCT	V-BUY-FROM
+	PRINTI	"It's not for sale."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-CALL
+	LOC	GL-PRSO
+	EQUAL?	STACK,GL-PLACE-CUR \?CCL3
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	PRINTR	"right in front of you."
+?CCL3:	PRINTR	"Nothing happens."
+
+
+	.FUNCT	V-CAST-OFF,?TMP1
+	EQUAL?	GL-PRSO,ROOMS,TH-BOAT /?CCL3
+	ICALL1	V-DROP
+	RTRUE	
+?CCL3:	IN?	CH-PLAYER,TH-BOAT /?CTR4
+	LOC	CH-PLAYER >?TMP1
+	LOC	TH-BOAT
+	EQUAL?	?TMP1,STACK \?CCL5
+?CTR4:	ICALL1	RT-LAUNCH-BOAT
+	RTRUE	
+?CCL5:	PRINTR	"Clever idea. Now, if only you were in a boat...."
+
+
+	.FUNCT	V-CLEAN
+	PRINTI	"Sorry. You get no points for neatness."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-CLEAN-OFF
+	EQUAL?	GL-PRSO,GL-PRSI \?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" on "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-CLIMB-DOWN
+	EQUAL?	GL-P-PRSA-WORD,W?JUMP,W?LEAP \?CCL3
+	ICALL	RT-PERFORM,V?DIVE,GL-PRSO
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	ICALL2	RT-DO-WALK,P?DOWN
+	RTRUE	
+?CCL5:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-CLIMB-ON
+	EQUAL?	GL-P-PRSA-WORD,W?TAKE \?CCL3
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSO,STR?661
+	RTRUE	
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTI	" onto "
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-CLIMB-OVER
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	ICALL1	V-WALK-AROUND
+	RTRUE	
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot climb over "
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-CLIMB-UP
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	ICALL2	RT-DO-WALK,P?UP
+	RTRUE	
+?CCL3:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	GL-PRSO,FL-OPENABLE \?CCL3
+	FSET?	GL-PRSO,FL-OPENED /?CCL6
+	ICALL2	RT-ITS-ALREADY-MSG,STR?662
+	RTRUE	
+?CCL6:	FSET?	GL-PRSO,FL-LOCKED \?CCL8
+	PRINTR	"The door is fixed in the open position. It cannot be closed."
+?CCL8:	ICALL1	RT-YOU-CLOSE-MSG
+	RTRUE	
+?CCL3:	ICALL1	RT-CANT-CLOSE-THAT-MSG
+	RTRUE	
+
+
+	.FUNCT	V-COUNT
+	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?ARMS,W?EARS,W?EYES /?CTR2
+	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?FEET,W?HANDS,W?LEGS /?CTR2
+	GET	GL-P-NAMW,0
+	EQUAL?	STACK,W?LIPS \?CCL3
+?CTR2:	PRINTR	"Two."
+?CCL3:	FSET?	GL-PRSO,FL-PLURAL /?CTR7
+	EQUAL?	GL-PRSO,TH-BANK-OF-CANDLES \?CCL8
+?CTR7:	ICALL	RT-CYOU-MSG,STR?663,STR?664
+	PRINTI	"distracted and lose"
+	EQUAL?	GL-WINNER,CH-PLAYER /?CND11
+	PRINTC	115
+?CND11:	PRINTR	" count."
+?CCL8:	ICALL	RT-CYOU-MSG,STR?665,STR?666
+	PRINTR	"only one."
+
+
+	.FUNCT	V-COVER
+	ICALL	RT-PERFORM,V?PUT-ON,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-CROSS
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot cross "
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-CUT
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-DETONATE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-DIAGNOSE
+	FSET?	GL-PRSO,FL-ALIVE /?CCL3
+	PRINTR	"Don't be ridiculous."
+?CCL3:	FSET?	GL-PRSO,FL-ASLEEP \?CCL5
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	PRINTR	"asleep."
+?CCL5:	EQUAL?	GL-PRSO,CH-PLAYER,CH-ME \?CCL7
+	PRINTR	"You're doing fine. Now quit fooling around and get back to solving the game."
+?CCL7:	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" appear"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTR	" to be in good health."
+
+
+	.FUNCT	V-DIVE
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-THE-EMBANKMENT,RM-SWAN-LANE,RM-LONDON-BRIDGE \?CCL3
+	PRINTI	"Yuck! Have you looked at that water?"
+	CRLF	
+	RETURN	2
+?CCL3:	PRINTI	"That would be a foolish thing to do."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-DRESS
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	PRINTR	"You are already dressed."
+?CCL3:	FSET?	GL-PRSO,FL-PERSON \?CCL5
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTR	"already dressed."
+?CCL5:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot dress "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-DRINK,FROM?
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot drink "
+	ZERO?	FROM? /?CND1
+	PRINTI	"from "
+?CND1:	ICALL2	DPRINT,TH-NOT-HERE-OBJECT
+	PRINTR	"."
+
+
+	.FUNCT	V-DRINK-FROM
+	ICALL2	V-DRINK,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-DRIVE
+	LOC	GL-WINNER
+	EQUAL?	STACK,TH-HANSOM-CAB,TH-GROWLER-CAB \?CCL3
+	EQUAL?	GL-PRSO,ROOMS /TRUE
+	SET	'GL-WHERE-TO-PROMPT?,FALSE-VALUE
+	PRINTR	"""Sorry, guv. Could you be a little more specific?"""
+?CCL3:	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTR	"not in a cab."
+
+
+	.FUNCT	V-DROP
+	CALL1	RT-IDROP-MSG
+	ZERO?	STACK /TRUE
+	ICALL1	RT-SAY-DROPPED-MSG
+	RTRUE	
+
+
+	.FUNCT	V-DUMB-EXAMINE
+	CALL1	V-EXAMINE
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	V-EAT
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL3
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSO,STR?667
+	RTRUE	
+?CCL3:	PRINTI	"""It"
+	CALL2	RT-PICK-NEXT,GL-NOT-LIKELY-TXT
+	PRINT	STACK
+	PRINTI	" that "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" would agree with me."""
+
+
+	.FUNCT	V-EMPTY,DEST
+	ZERO?	DEST \?CND1
+	SET	'DEST,CH-PLAYER
+?CND1:	FSET?	GL-PRSO,FL-SURFACE \?CCL5
+	ICALL2	RT-EMPTY-PRSO-MSG,DEST
+	RTRUE	
+?CCL5:	FSET?	GL-PRSO,FL-CONTAINER \?CCL7
+	FSET?	GL-PRSO,FL-OPENED \?CCL10
+	ICALL2	RT-EMPTY-PRSO-MSG,DEST
+	RTRUE	
+?CCL10:	ICALL2	RT-ITS-CLOSED-MSG,GL-PRSO
+	RTRUE	
+?CCL7:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot possibly empty "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-EMPTY-INTO
+	EQUAL?	GL-PRSI,TH-HANDS,CH-ME,CH-PLAYER \?CCL3
+	CALL2	V-EMPTY,CH-PLAYER
+	RSTACK	
+?CCL3:	CALL	RT-IDENTIFY-FLOOR?,W?GROUND,GL-PRSI
+	ZERO?	STACK \?CTR4
+	CALL	RT-IDENTIFY-FLOOR?,W?FLOOR,GL-PRSI
+	ZERO?	STACK /?CCL5
+?CTR4:	CALL2	V-EMPTY,GL-PRSI
+	RSTACK	
+?CCL5:	FSET?	GL-PRSI,FL-SURFACE \?CCL9
+	CALL2	V-EMPTY,GL-PRSI
+	RSTACK	
+?CCL9:	FSET?	GL-PRSI,FL-CONTAINER \?CCL11
+	FSET?	GL-PRSI,FL-OPENED \?CCL14
+	FSET?	GL-PRSI,TH-WATSONS-COAT \?CCL17
+	CALL2	V-EMPTY,TH-POCKET
+	RSTACK	
+?CCL17:	CALL2	V-EMPTY,GL-PRSI
+	RSTACK	
+?CCL14:	CALL2	RT-ITS-CLOSED-MSG,GL-PRSI
+	RSTACK	
+?CCL11:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot empty "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" into "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-ENTER,VEH
+	EQUAL?	GL-PRSO,GL-PLACE-CUR \?CCL3
+	ICALL1	RT-ALREADY-IN-ROOM-MSG
+	RTRUE	
+?CCL3:	CALL	RT-FIND-IN?,GL-PLACE-CUR,FL-VEHICLE >VEH
+	ZERO?	VEH /?CND1
+	EQUAL?	GL-PRSO,ROOMS,VEH \?CND1
+	IN?	GL-WINNER,VEH \?CCL9
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"already in "
+	ICALL2	RT-THEO-PRINT,VEH
+	PRINTR	"."
+?CCL9:	ICALL	RT-PERFORM,V?ENTER,VEH
+	RTRUE	
+?CND1:	EQUAL?	GL-PRSO,ROOMS \?CCL12
+	ICALL2	RT-DO-WALK,P?IN
+	RTRUE	
+?CCL12:	FSET?	GL-PRSO,FL-CLOTHING \?CCL14
+	PRINTI	"[Presumably, you mean WEAR "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	".]"
+	CRLF	
+	ICALL	RT-PERFORM,V?WEAR,GL-PRSO
+	RTRUE	
+?CCL14:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-ESCAPE
+	ICALL1	V-WALK-AROUND
+	RTRUE	
+
+
+	.FUNCT	V-EXAMINE,ODF,NUM,DRES
+	FSET?	GL-PRSO,FL-HAS-DESCFCN \?CND1
+	GETP	GL-PRSO,P?ACTION >ODF
+?CND1:	CALL2	RT-HOLE?,GL-PRSO >NUM
+	ZERO?	NUM /?CND3
+	PRINTI	"There "
+	EQUAL?	NUM,1 \?CCL7
+	PRINTI	"is one"
+	JUMP	?CND5
+?CCL7:	PRINTI	"are "
+	EQUAL?	NUM,2 \?CCL10
+	PRINTI	"two"
+	JUMP	?CND5
+?CCL10:	EQUAL?	NUM,3 \?CCL12
+	PRINTI	"three"
+	JUMP	?CND5
+?CCL12:	EQUAL?	NUM,4 \?CCL14
+	PRINTI	"four"
+	JUMP	?CND5
+?CCL14:	EQUAL?	NUM,5 \?CCL16
+	PRINTI	"five"
+	JUMP	?CND5
+?CCL16:	PRINTI	"six"
+?CND5:	PRINTI	" bullet hole"
+	GRTR?	NUM,1 \?CND17
+	PRINTC	115
+?CND17:	PRINTI	" in "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+?CND3:	ZERO?	ODF /?CCL21
+	CALL	ODF,K-M-DESCFCN >DRES
+	EQUAL?	DRES,1 \?CCL21
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+?CCL21:	FSET?	GL-PRSO,FL-OPENABLE \?CCL25
+	ICALL1	RT-OPEN-CLOSED-MSG
+	CRLF	
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+?CCL25:	FSET?	GL-PRSO,FL-SURFACE \?CCL27
+	PRINTI	"On "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" can be seen "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTC	46
+	CRLF	
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+?CCL27:	FSET?	GL-PRSO,FL-CONTAINER \?CCL29
+	FSET?	GL-PRSO,FL-OPENED /?CTR31
+	FSET?	GL-PRSO,FL-TRANSPARENT \?CCL32
+?CTR31:	ICALL1	V-LOOK-INSIDE
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+?CCL32:	ICALL2	RT-ITS-CLOSED-MSG,GL-PRSO
+	CRLF	
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+?CCL29:	FSET?	GL-PRSO,FL-PERSON \?CCL36
+	CALL2	RT-SEE-ANYTHING-IN?,GL-PRSO
+	ZERO?	STACK /?CCL36
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	PRINTI	"holding "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTC	46
+	CRLF	
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+?CCL36:	ZERO?	NUM \TRUE
+	ZERO?	DRES \TRUE
+	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTI	" about "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+	FSET	GL-PRSO,FL-SEEN
+	RTRUE	
+
+
+	.FUNCT	V-EXHALE
+	EQUAL?	GL-PRSO,TH-BREATH,ROOMS /?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	FSET?	TH-BREATH,FL-LOCKED /?CCL5
+	ICALL1	RT-CYOU-MSG
+	ICALL2	RT-WOULD-HAVE-TO-MSG,STR?668
+	RTRUE	
+?CCL5:	FCLEAR	TH-BREATH,FL-LOCKED
+	PRINTI	"You begin to breathe normally."
+	CRLF	
+	ICALL2	RT-ALARM-CLR,RT-I-EXHALE
+	ICALL2	RT-ALARM-CLR,RT-I-INHALE
+	ICALL1	RT-SMELL-ETHERIUM?
+	RTRUE	
+
+
+	.FUNCT	V-EXIT,VEH,L
+	CALL	RT-FIND-IN?,GL-PLACE-CUR,FL-VEHICLE >VEH
+	ZERO?	VEH /?CND1
+	EQUAL?	GL-PRSO,ROOMS,VEH \?CND1
+	EQUAL?	GL-PRSO,ROOMS \?CCL7
+	LOC	GL-WINNER
+	FSET?	STACK,FL-VEHICLE \?CCL7
+	LOC	GL-WINNER
+	ICALL	RT-PERFORM,V?EXIT,STACK
+	RTRUE	
+?CCL7:	IN?	GL-WINNER,VEH /?CCL11
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"not in "
+	ICALL2	RT-THEO-PRINT,VEH
+	PRINTR	"."
+?CCL11:	ICALL	RT-PERFORM,V?EXIT,VEH
+	RTRUE	
+?CND1:	LOC	GL-PRSO >L
+	EQUAL?	GL-PRSO,ROOMS \?CCL14
+	ICALL2	RT-DO-WALK,P?OUT
+	RTRUE	
+?CCL14:	EQUAL?	GL-PRSO,GL-PLACE-CUR \?CCL16
+	PRINT	K-SPECIFY-DIR-MSG
+	CRLF	
+	RTRUE	
+?CCL16:	EQUAL?	L,ROOMS \?CCL18
+	ICALL1	RT-NOT-IN-ROOM-MSG
+	RTRUE	
+?CCL18:	FSET?	L,FL-CONTAINER \?CCL20
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK /?CCL20
+	PRINTI	"[from "
+	ICALL2	DPRINT,L
+	PRINTC	93
+	CRLF	
+	ICALL	RT-PERFORM,V?TAKE,GL-PRSO
+	RTRUE	
+?CCL20:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-FEED
+	EQUAL?	GL-PRSI,GL-WINNER \?CCL3
+	ICALL1	RT-CYOU-MSG
+	JUMP	?CND1
+?CCL3:	ICALL2	RT-CTHEO-PRINT,GL-PRSI
+	PRINTC	32
+?CND1:	PRINTI	"cannot eat "
+	ICALL2	RT-THEO-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-FEED-SWP
+	ICALL	RT-PERFORM,V?FEED,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-FILL
+	ICALL	RT-PERFORM,V?PUT,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-FIND,L
+	LOC	GL-PRSO >L
+	ZERO?	L \?CCL3
+	PRINT	K-DO-IT-YOURSELF-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER,TH-HANDS /?CTR4
+	EQUAL?	GL-PRSO,TH-WATSONS-HEART,TH-FEET,TH-EARS /?CTR4
+	EQUAL?	GL-PRSO,TH-HEAD,TH-PLAYER-BODY,TH-BREATH /?CTR4
+	EQUAL?	GL-PRSO,TH-CLOTHES \?CCL5
+?CTR4:	PRINTR	"You're right here."
+?CCL5:	IN?	GL-PRSO,CH-PLAYER \?CCL11
+	PRINTI	"You're "
+	FSET?	GL-PRSO,FL-WORN \?CCL14
+	PRINTI	"wearing"
+	JUMP	?CND12
+?CCL14:	PRINTI	"holding"
+?CND12:	PRINTC	32
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+?CCL11:	IN?	GL-PRSO,GL-PLACE-CUR /?CTR15
+	EQUAL?	GL-PRSO,GL-PLACE-CUR /?CTR15
+	IN?	GL-PRSO,LOCAL-GLOBALS /?PRD21
+	IN?	GL-PRSO,ROOMS \?CCL16
+?PRD21:	CALL	RT-GLOBAL-IN?,GL-PRSO,GL-PLACE-CUR
+	ZERO?	STACK /?CCL16
+?CTR15:	ICALL1	RT-ITS-RIGHT-HERE-MSG
+	RTRUE	
+?CCL16:	FSET?	L,FL-PERSON /?PRD27
+	FSET?	L,FL-ALIVE \?CCL25
+?PRD27:	CALL2	RT-VISIBLE?,L
+	ZERO?	STACK /?CCL25
+	ICALL2	RT-CTHEO-PRINT,L
+	PRINTI	" ha"
+	FSET?	L,FL-PLURAL /?CCL32
+	PRINTC	115
+	JUMP	?CND30
+?CCL32:	PRINTI	"ve"
+?CND30:	PRINTR	" it."
+?CCL25:	CALL2	RT-SEE-INSIDE?,L
+	ZERO?	STACK /?CCL34
+	CALL2	RT-VISIBLE?,L
+	ZERO?	STACK /?CCL34
+	ICALL1	RT-SAY-ITS-MSG
+	ICALL	RT-IN-ON-MSG,L,FALSE-VALUE
+	ICALL2	RT-THEO-PRINT,L
+	PRINTR	"."
+?CCL34:	PRINT	K-DO-IT-YOURSELF-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-FLIP
+	FSET?	GL-PRSO,FL-TAKEABLE /?CCL3
+	FSET?	GL-PRSO,FL-TRYTAKE /?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	ICALL2	RT-NO-POINT-MSG,STR?669
+	RTRUE	
+
+
+	.FUNCT	V-FLY
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"cannot possibly do that."
+
+
+	.FUNCT	V-FOCUS-ON
+	ZERO?	GL-PRSI \?CCL3
+	EQUAL?	GL-PRSO,TH-TELESCOPE \?CCL6
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL6:	IN?	TH-TELESCOPE,CH-PLAYER \?CCL8
+	ICALL	RT-PERFORM,V?LOOK-THRU,GL-PRSO,TH-TELESCOPE
+	RTRUE	
+?CCL8:	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,TH-TELESCOPE \?CCL11
+	ICALL	RT-PERFORM,V?LOOK-THRU,GL-PRSI,GL-PRSO
+	RTRUE	
+?CCL11:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot focus "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" on "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-FOLD
+	ICALL2	RT-NO-POINT-MSG,STR?670
+	RTRUE	
+
+
+	.FUNCT	V-FOLLOW
+	ZERO?	GL-PRSO \?CCL3
+	ICALL1	RT-CANT-SEE-ANY-MSG
+	RETURN	2
+?CCL3:	CALL	RT-META-IN?,GL-PRSO,GL-PLACE-CUR
+	ZERO?	STACK \?CND1
+	LOC	GL-PRSO
+	EQUAL?	STACK,LOCAL-GLOBALS,GLOBAL-OBJECTS /?CND1
+	ICALL2	RT-CANT-SEE-ANY-MSG,GL-PRSO
+	RETURN	2
+?CND1:	PRINTI	"But "
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL9
+	PRINTR	"you're right here."
+?CCL9:	ICALL1	RT-THEO-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSO
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK \?CTR11
+	IN?	GL-PRSO,GLOBAL-OBJECTS \?CCL12
+?CTR11:	PRINTI	"right here"
+	JUMP	?CND7
+?CCL12:	PRINTI	"not visible at the moment"
+?CND7:	PRINTR	"."
+
+
+	.FUNCT	V-FOO
+	EQUAL?	GL-P-PRSA-WORD,W?RENT \?CCL3
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTR	"for rent."
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \FALSE
+	PRINTR	"Same to you, fella."
+
+
+	.FUNCT	V-GET-FOR
+	ICALL	RT-PERFORM,V?TAKE,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-GET-FOR-SWP
+	ICALL	RT-PERFORM,V?TAKE,GL-PRSI
+	RTRUE	
+
+
+	.FUNCT	V-GIN,WHO
+	EQUAL?	GL-PLACE-CUR,RM-BYWARD-TOWER \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-TOWER-GUARD
+	PRINTR	" takes a quick look around and says, ""Thanks. Don't mind if I do,"" whereupon he whips out a hip flask and takes a quick slug. Just as quickly, he tucks it away and resumes staring at you."
+?CCL3:	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL6
+	PRINTR	"Holmes shakes his head and says, ""No drinks for you until we recover the Crown Jewels."""
+?CCL6:	EQUAL?	WHO,CH-WIGGINS \?CCL8
+	PRINTR	"Wiggins says, ""Good idea. I could use a belt."""
+?CCL8:	PRINTR	"Wrong game, dummy."
+
+
+	.FUNCT	V-GIVE
+	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL3
+	ICALL1	RT-NOBODY-TO-ASK-MSG
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSI,CH-TOWER-GUARD,CH-PALACE-GUARD,CH-TUSSAUDS-GUARD \?CCL5
+	FSET?	GL-PRSO,FL-MONEY \?CCL5
+	ICALL1	RT-CTHEI-PRINT
+	PRINTI	" doesn't even glance at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	". Clearly he cannot be bribed."
+?CCL5:	FSET?	GL-PRSI,FL-PERSON \?CCL9
+	ICALL1	RT-CTHEI-PRINT
+	PRINTI	" show"
+	ICALL2	RT-S-NOS-MSG,GL-PRSI
+	PRINTR	" little interest in your offer."
+?CCL9:	ICALL	RT-NOT-LIKELY-MSG,GL-PRSI,STR?671
+	RTRUE	
+
+
+	.FUNCT	V-GIVE-SWP
+	ICALL	RT-PERFORM,V?GIVE,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-GOODBYE
+	CALL1	RT-HI-BYE-MSG
+	RSTACK	
+
+
+	.FUNCT	V-GUESS,WHO
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-WIGGINS \?CND1
+	PRINTR	"Wiggins says, ""Mr 'Olmes doesn't like people guessing about things."""
+?CND1:	EQUAL?	GL-WINNER,CH-HOLMES \?CCL5
+	PRINTI	"Holmes looks at you in shock and says, ""I never"
+	JUMP	?CND3
+?CCL5:	EQUAL?	WHO,CH-HOLMES \?CCL7
+	PRINTI	"Holmes shakes his head and says, ""Never"
+	JUMP	?CND3
+?CCL7:	PRINTI	"Holmes's words come back to you, ""Never"
+?CND3:	PRINTR	" guess, Watson. It is a shocking habit - destructive to the logical faculty."""
+
+
+	.FUNCT	V-HAGGLE
+	FSET?	GL-PRSO,FL-PERSON /?CCL3
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTI	" with "
+	ICALL1	RT-A-PRINT
+	PRINTR	"."
+?CCL3:	EQUAL?	GL-PRSO,CH-HOLMES \?CCL5
+	PRINTI	"There is nothing to negotiate with "
+	ICALL2	RT-THEO-PRINT,CH-HOLMES
+	PRINTR	" about."
+?CCL5:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL7
+	PRINTR	"You have nothing to negotiate."
+?CCL7:	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" refuse"
+	ICALL2	RT-S-NOS-MSG,GL-PRSO
+	PRINTR	" to negotiate."
+
+
+	.FUNCT	V-HAUL
+	PRINTR	"You're a doctor, not a sailor."
+
+
+	.FUNCT	V-HEAT
+	CALL2	RT-NO-POINT-MSG,STR?672
+	RSTACK	
+
+
+	.FUNCT	V-HELLO
+	CALL1	RT-HI-BYE-MSG
+	RSTACK	
+
+
+	.FUNCT	V-HIDE
+	PRINTR	"You can run, but you cannot hide."
+
+
+	.FUNCT	V-HIT
+	PRINTI	"Attacking "
+	ICALL1	RT-THEO-PRINT
+	ZERO?	GL-PRSI /?CND1
+	EQUAL?	GL-PRSI,TH-HANDS /?CND1
+	PRINTI	" with "
+	ICALL2	RT-A-PRINT,GL-PRSI
+?CND1:	PRINT	K-WONT-HELP-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-HOLD-OVER
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-HUSH
+	PRINTR	"Silence is golden."
+
+
+	.FUNCT	V-INHALE
+	EQUAL?	GL-PRSO,TH-BREATH,ROOMS /?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	FSET?	TH-BREATH,FL-LOCKED \?CCL5
+	EQUAL?	GL-P-PRSA-WORD,W?BREATHE \?CCL8
+	ICALL1	V-EXHALE
+	RTRUE	
+?CCL8:	PRINTI	"You are already holding "
+	ICALL2	RT-THEO-PRINT,TH-BREATH
+	PRINTR	"."
+?CCL5:	PRINTI	"You take a deep breath."
+	EQUAL?	GL-PUPPY,CH-HOLMES \?CND9
+	PRINTC	32
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINTI	" notices your action and surreptitiously does likewise."
+?CND9:	CRLF	
+	CALL	RT-DO-CLOCK-SET,GL-TIME-PARM,0,2,0
+	ICALL	RT-ALARM-SET-REL,RT-I-EXHALE,STACK
+	FSET	TH-BREATH,FL-LOCKED
+	SET	'GL-CLOCK-WAIT,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-KICK
+	ICALL2	RT-NO-POINT-MSG,STR?673
+	RTRUE	
+
+
+	.FUNCT	V-KILL
+	PRINTR	"Calm down."
+
+
+	.FUNCT	V-KISS
+	PRINTR	"You really can't wait for the Victorian Era to end, can you?"
+
+
+	.FUNCT	V-KNOCK
+	FSET?	GL-PRSO,FL-DOOR \?CCL3
+	FSET?	GL-PRSO,FL-OPENED \?CND4
+	ICALL2	RT-ITS-ALREADY-MSG,STR?227
+	RTRUE	
+?CND4:	PRINTR	"There's no answer."
+?CCL3:	FSET?	GL-PRSO,FL-PERSON \?CND1
+	ICALL	RT-PERFORM,V?USE,GL-PRSO
+	RTRUE	
+?CND1:	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-LEAP
+	EQUAL?	GL-PRSO,ROOMS /?CCL3
+	PRINTR	"No."
+?CCL3:	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-LIE-DOWN
+	PRINTR	"With so much at stake, resting is out of the question."
+
+
+	.FUNCT	V-LIGHT,OBJ,FIX-LAMP?
+	CALL	RT-META-IN?,TH-LAMP,GL-WINNER
+	ZERO?	STACK /?CND1
+	FSET?	TH-LAMP,FL-LIGHTED \?CND1
+	SET	'FIX-LAMP?,TRUE-VALUE
+	FCLEAR	TH-LAMP,FL-LIGHTED
+?CND1:	CALL	RT-GET-WHAT-I-MEAN,FL-LIGHTED,194,PR?WITH,TRUE-VALUE,TRUE-VALUE >OBJ
+	ZERO?	OBJ /?CCL7
+	EQUAL?	OBJ,TH-LAMP /?CCL7
+	ZERO?	FIX-LAMP? /?CND10
+	FSET	TH-LAMP,FL-LIGHTED
+?CND10:	PRINTI	"[with "
+	ICALL2	RT-THEO-PRINT,OBJ
+	PRINTC	93
+	CRLF	
+	ICALL	RT-PERFORM,V?LIGHT-WITH,GL-PRSO,OBJ
+	RTRUE	
+?CCL7:	ZERO?	FIX-LAMP? /?CND12
+	FSET	TH-LAMP,FL-LIGHTED
+?CND12:	PUT	GL-P-ITBL,K-P-PREP2,PR?WITH
+	ICALL1	RT-SYNTAX-CHECK
+	SET	'GL-P-GOOD,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	V-LIGHT-WITH,OBJ
+	EQUAL?	GL-PRSI,TH-LAMP \?CND1
+	EQUAL?	GL-PRSI,GL-PRSO \?CND3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CND3:	ICALL	RT-PERFORM,V?SHINE-AT,GL-PRSI,GL-PRSO
+	RTRUE	
+?CND1:	ICALL1	V-BURN-WITH
+	RTRUE	
+
+
+	.FUNCT	V-LISTEN,OBJ
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	FSET?	GL-PLACE-CUR,RM-DIOGENES-CLUB \?CCL6
+	ICALL2	RT-CTHEO-PRINT,CH-MEMBERS
+	PRINTI	" are all asleep."
+	CRLF	
+	JUMP	?CND4
+?CCL6:	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL8
+	PRINTI	"From afar you"
+	JUMP	?CND4
+?CCL8:	PRINTI	"You"
+?CND4:	PRINTI	" hear the sounds of the "
+	IN?	CH-PLAYER,TH-BOAT \?CCL11
+	PRINTI	"river "
+	JUMP	?CND9
+?CCL11:	PRINTI	"city "
+?CND9:	CALL1	RT-TIME-OF-DAY
+	ZERO?	STACK \?CCL14
+	PRINTI	"at night"
+	JUMP	?CND12
+?CCL14:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,1 \?CCL16
+	PRINTI	"waking up"
+	JUMP	?CND12
+?CCL16:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,2 \?CCL18
+	PRINTI	"going about its business"
+	JUMP	?CND12
+?CCL18:	CALL1	RT-TIME-OF-DAY
+	EQUAL?	STACK,3 \?CND12
+	PRINTI	"going to sleep"
+?CND12:	PRINTR	"."
+?CCL3:	EQUAL?	GL-PRSI,FALSE-VALUE,TH-STETHOSCOPE,TH-EARS /?CCL21
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot listen to anything with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL21:	EQUAL?	GL-PRSI,TH-STETHOSCOPE \?CCL23
+	FSET?	TH-STETHOSCOPE,FL-WORN /?CCL23
+	ICALL1	RT-CTHEI-PRINT
+	PRINTI	" is not in "
+	ICALL2	RT-THEO-PRINT,TH-EARS
+	PRINTR	"."
+?CCL23:	FSET?	GL-PRSO,FL-ALIVE \?CCL27
+	EQUAL?	GL-PRSI,TH-STETHOSCOPE \?CCL27
+	EQUAL?	GL-PRSO,CH-HOLMES \?CCL32
+	FSET?	CH-HOLMES,FL-ASLEEP \?CCL32
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" is suffering from a mental, not physical, malaise."
+?CCL32:	PRINTI	"You don't need to. Your experienced eye tells you there is nothing wrong with "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL27:	PRINTI	"At the moment, "
+	EQUAL?	GL-PRSO,CH-PLAYER,CH-ME \?CCL37
+	PRINTI	"you"
+	JUMP	?CND35
+?CCL37:	ICALL1	RT-THEO-PRINT
+?CND35:	ICALL1	RT-IS-ARE-MSG
+	PRINTI	"silent."
+	CRLF	
+	SET	'GL-LISTEN-OBJ,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LOCK
+	FSET?	GL-PRSO,FL-OPENABLE /?CTR2
+	FSET?	GL-PRSO,FL-CONTAINER \?CCL3
+?CTR2:	FSET?	GL-PRSO,FL-OPENED \?CCL8
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?674,GL-PRSO
+	RTRUE	
+?CCL8:	FSET?	GL-PRSO,FL-LOCKED \?CCL10
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-IS-ARE-MSG
+	PRINTR	"already locked."
+?CCL10:	ICALL	RT-THING-WONT-LOCK-MSG,GL-PRSI,GL-PRSO
+	RTRUE	
+?CCL3:	ICALL1	RT-CANT-LOCK-MSG
+	RTRUE	
+
+
+	.FUNCT	V-LOOK
+	ICALL	RT-DESC-ALL,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-LOOK-BEHIND
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	FSET?	GL-PRSO,FL-DOOR \?CCL5
+	FSET?	GL-PRSO,FL-OPENED \?CCL8
+	ICALL1	RT-CANT-SEE-MUCH-MSG
+	RTRUE	
+?CCL8:	ICALL2	RT-ITS-CLOSED-MSG,GL-PRSO
+	RTRUE	
+?CCL5:	PRINTI	"There's nothing behind "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-DOWN,X
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	EQUAL?	GL-PLACE-CUR,RM-CLOCK-TOWER \?CCL8
+	ICALL	RT-PERFORM,V?EXAMINE,TH-SHAFT
+	RTRUE	
+?CCL8:	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTR	" down there."
+?CCL5:	PRINTI	"You cannot look down "
+	ICALL1	RT-A-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-INSIDE,ODF
+	ZERO?	ODF /?CND1
+	CALL	ODF
+	ZERO?	STACK \TRUE
+?CND1:	ZERO?	GL-NOW-LIT? \?CCL7
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL7:	FSET?	GL-PRSO,FL-PERSON \?CCL9
+	ICALL2	RT-YOURE-NOT-A-MSG,STR?675
+	RTRUE	
+?CCL9:	FSET?	GL-PRSO,FL-ALIVE \?CCL11
+	ICALL2	RT-YOURE-NOT-A-MSG,STR?676
+	RTRUE	
+?CCL11:	FSET?	GL-PRSO,FL-CONTAINER \?CCL13
+	FSET?	GL-PRSO,FL-OPENED /?CCL16
+	FSET?	GL-PRSO,FL-TRANSPARENT /?CCL16
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?227,GL-PRSO
+	RTRUE	
+?CCL16:	PRINTI	"In "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" you see "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTR	"."
+?CCL13:	FSET?	GL-PRSO,FL-DOOR \?CCL20
+	FSET?	GL-PRSO,FL-OPENED \?CCL23
+	ICALL1	RT-CANT-SEE-MUCH-MSG
+	RTRUE	
+?CCL23:	ICALL2	RT-ITS-CLOSED-MSG,GL-PRSO
+	RTRUE	
+?CCL20:	PRINTI	"You cannot look inside "
+	ICALL1	RT-A-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-ON
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	FSET?	GL-PRSO,FL-SURFACE \?CCL5
+	PRINTI	"On "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" you see "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTR	"."
+?CCL5:	FSET?	GL-PRSO,FL-READABLE \?CCL7
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" has something written on it."
+?CCL7:	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTI	" on "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-OUTSIDE
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL8
+	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTR	" outside."
+?CCL8:	PRINTR	"You are outside."
+?CCL5:	FSET?	GL-PRSO,FL-DOOR \?CCL10
+	FSET?	GL-PRSO,FL-OPENED \?CCL13
+	ICALL1	RT-CANT-SEE-MUCH-MSG
+	RTRUE	
+?CCL13:	ICALL2	RT-ITS-CLOSED-MSG,GL-PRSO
+	RTRUE	
+?CCL10:	PRINTI	"You cannot look out of "
+	ICALL1	RT-A-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-THRU
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	GL-P-PRSA-WORD,W?EXAMINE,W?X \?CCL5
+	EQUAL?	GL-PRSI,TH-STETHOSCOPE \?CCL5
+	FSET?	GL-PRSO,FL-PERSON \?CCL5
+	CALL	RT-PERFORM,V?LISTEN,GL-PRSO,GL-PRSI
+	RSTACK	
+?CCL5:	ZERO?	GL-PRSI /?CCL10
+	FSET?	GL-PRSI,FL-TRANSPARENT /?CCL10
+	PRINTI	"You can't look through "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL10:	ZERO?	GL-PRSI /?CCL14
+	FSET?	GL-PRSI,FL-TRANSPARENT \?CCL14
+	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTI	" through "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL14:	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTR	"at all."
+
+
+	.FUNCT	V-LOOK-THRU-SWP
+	CALL	RT-PERFORM,V?LOOK-THRU,GL-PRSI,GL-PRSO
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-UNDER
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	IN?	GL-PRSO,CH-PLAYER \?CCL5
+	PRINTI	"You are already "
+	FSET?	GL-PRSO,FL-WORN \?CCL8
+	PRINTI	"wearing"
+	JUMP	?CND6
+?CCL8:	PRINTI	"holding"
+?CND6:	PRINTR	" that."
+?CCL5:	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTI	" under "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-UP,X
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CND6
+	PUTP	TH-FLOOR-ETC,P?OBJ-NOUN,W?CEILING
+	ICALL	RT-PERFORM,V?EXAMINE,TH-FLOOR-ETC
+	RTRUE	
+?CND6:	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTR	" up there."
+?CCL5:	PRINTI	"You cannot look up "
+	ICALL1	RT-A-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOSEN
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-LOWER
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	ICALL2	RT-DO-WALK,P?DOWN
+	RTRUE	
+?CCL3:	ICALL1	V-RAISE
+	RTRUE	
+
+
+	.FUNCT	V-LAND
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	IN?	CH-PLAYER,TH-BOAT \?CCL6
+	ICALL1	RT-LAND-BOAT
+	RTRUE	
+?CCL6:	PRINTR	"Very good. Next week, we'll learn the word for water."
+?CCL3:	EQUAL?	GL-PRSO,TH-BOAT \?CCL8
+	IN?	CH-PLAYER,TH-BOAT \?CCL11
+	ICALL1	RT-LAND-BOAT
+	RTRUE	
+?CCL11:	PRINT	K-MUST-BE-IN-BOAT-MSG
+	PRINTR	"land it."
+?CCL8:	PRINTI	"You can't land "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"!"
+
+
+	.FUNCT	RT-LAND-BOAT
+	IN?	TH-BOAT,RM-THE-EMBANKMENT \?CCL3
+	PRINTR	"The boat is already on the Embankment."
+?CCL3:	IN?	TH-BOAT,RM-OUTSIDE-TRAITORS-GATE \?CCL5
+	PRINTR	"The boat is already at Traitors Gate."
+?CCL5:	IN?	TH-ANCHOR,TH-BOAT /?CCL7
+	PRINTR	"You can't land the boat. The anchor seems to be doing its job."
+?CCL7:	IN?	TH-BOAT,RM-THAMES-ONE \?CCL9
+	ICALL	SOUNDS,S-BOATING,S-STOP
+	PRINTI	"You land the boat on the Embankment."
+	CRLF	
+	MOVE	TH-BOAT,RM-THE-EMBANKMENT
+	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	RTRUE	
+?CCL9:	IN?	TH-BOAT,RM-THAMES-FOUR \?CCL11
+	ICALL	SOUNDS,S-BOATING,S-STOP
+	PRINTI	"You land the boat outside Traitors Gate."
+	CRLF	
+	MOVE	TH-BOAT,RM-OUTSIDE-TRAITORS-GATE
+	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	RTRUE	
+?CCL11:	PRINTI	"There doesn't seem to be any place to land the boat."
+	CRLF	
+	ICALL2	RT-ALARM-CLR,RT-I-MOVE-DOWNSTREAM
+	RTRUE	
+
+
+	.FUNCT	V-LAMP-OFF
+	ICALL2	V-LAMP-ON,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-LAMP-ON,OFF?
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"couldn't "
+	EQUAL?	GL-P-PRSA-WORD,W?EXTINGUISH \?CCL3
+	PRINTI	"extinguish"
+	JUMP	?CND1
+?CCL3:	PRINTB	GL-P-PRSA-WORD
+?CND1:	PRINTI	" that"
+	ZERO?	OFF? /?CCL6
+	EQUAL?	GL-P-PRSA-WORD,W?CLOSE,W?SHUT,W?TURN \?CCL6
+	PRINTI	" off"
+	JUMP	?CND4
+?CCL6:	ZERO?	OFF? /?CCL10
+	EQUAL?	GL-P-PRSA-WORD,W?BLOW,W?PUT \?CCL10
+	PRINTI	" out"
+	JUMP	?CND4
+?CCL10:	ZERO?	OFF? \?CND4
+	EQUAL?	GL-P-PRSA-WORD,W?TURN \?CND4
+	PRINTI	" on"
+?CND4:	EQUAL?	GL-PRSI,FALSE-VALUE,TH-HANDS /?CND16
+	PRINTI	", "
+	ICALL2	DPRINT,GL-PRSI
+	PRINTI	" or no "
+	ICALL2	DPRINT,GL-PRSI
+?CND16:	PRINTR	"."
+
+
+	.FUNCT	V-LAUNCH,?TMP1
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	IN?	CH-PLAYER,TH-BOAT /?CTR5
+	LOC	CH-PLAYER >?TMP1
+	LOC	TH-BOAT
+	EQUAL?	?TMP1,STACK \?CCL6
+?CTR5:	ICALL1	RT-LAUNCH-BOAT
+	RTRUE	
+?CCL6:	PRINTR	"That usually works better when one is in a boat."
+?CCL3:	EQUAL?	GL-PRSO,TH-BOAT \?CCL10
+	ICALL1	RT-LAUNCH-BOAT
+	RTRUE	
+?CCL10:	PRINTI	"You can't launch "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	". Perhaps you meant to throw it?"
+
+
+	.FUNCT	RT-LAUNCH-BOAT
+	IN?	TH-ANCHOR,TH-BOAT /?CCL3
+	ICALL2	RT-THIS-IS-IT,TH-ANCHOR
+	PRINTR	"The anchor is restraining the boat."
+?CCL3:	IN?	CH-PLAYER,TH-BOAT /?CCL5
+	PRINTI	"You push the boat into the Thames, and then watch as it slowly floats away. Too bad you weren't in it."
+	CRLF	
+	REMOVE	TH-BOAT
+	RTRUE	
+?CCL5:	IN?	TH-BOAT,RM-THE-EMBANKMENT \?CCL7
+	PRINTI	"The boat slips away from the Embankment. You are now in the middle of the Thames."
+	CRLF	
+	ICALL	SOUNDS,S-BOATING,S-START
+	MOVE	TH-BOAT,RM-THAMES-ONE
+	RTRUE	
+?CCL7:	IN?	TH-BOAT,RM-OUTSIDE-TRAITORS-GATE \?CCL9
+	PRINTI	"The boat slips out into the river."
+	CRLF	
+	ICALL	SOUNDS,S-BOATING,S-START
+	MOVE	TH-BOAT,RM-THAMES-FOUR
+	RTRUE	
+?CCL9:	PRINTR	"You are already on the Thames. You don't need to launch the boat again."
+
+
+	.FUNCT	V-MAKE
+	EQUAL?	GL-PRSO,TH-RUBBINGS \?CCL3
+	PRINTI	"[To make a rubbing, put a blank piece of paper on a tomb, and then rub the paper with the crayon.]"
+	CRLF	
+	RETURN	2
+?CCL3:	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-ECHO
+	EQUAL?	GL-P-PRSA-WORD,W?MARX \?CCL3
+	PRINTR	"Cocoanuts."
+?CCL3:	EQUAL?	GL-P-PRSA-WORD,W?CHICO \?CCL5
+	PRINTR	"""Wattsa matta you? You needa de password? I sell it you."""
+?CCL5:	EQUAL?	GL-P-PRSA-WORD,W?GROUCHO \?CCL7
+	PRINTR	"""Say the secret woid, and the guy will let you in."""
+?CCL7:	EQUAL?	GL-P-PRSA-WORD,W?GUMMO \?CCL9
+	PRINTR	"This isn't a trivia game. Get back to work."
+?CCL9:	EQUAL?	GL-P-PRSA-WORD,W?HARPO \?CCL11
+	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	GL-P-PRSA-WORD,W?ZEPPO \?CCL13
+	PRINTR	"Did you really think saying ""Zeppo"" was going to get you anywhere?"
+?CCL13:	EQUAL?	GL-P-PRSA-WORD,W?PUNT \?CCL15
+	PRINTR	"But it's not even fourth down!"
+?CCL15:	EQUAL?	GL-P-PRSA-WORD,W?HUM,W?WHISTLE,W?SING \?CCL17
+	PRINTI	"You "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	" tunelessly for a few moments until you remember that you're tone deaf and know next to nothing about music."
+?CCL17:	EQUAL?	GL-P-PRSA-WORD,W?ECHO \FALSE
+	PRINTR	"ECHO...Echo...echo...."
+
+
+	.FUNCT	V-MELT
+	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-MOVE
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	ICALL1	V-WALK-AROUND
+	RTRUE	
+?CCL3:	FSET?	GL-PRSO,FL-TAKEABLE \?CCL5
+	PRINTI	"Moving "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" would"
+	CALL2	RT-PICK-NEXT,GL-NO-POINT-TXT
+	PRINT	STACK
+	PRINTR	"."
+?CCL5:	PRINTI	"You cannot possibly move "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-MUNG
+	ICALL2	RT-NO-POINT-MSG,STR?677
+	RTRUE	
+
+
+	.FUNCT	V-OPEN
+	FSET?	GL-PRSO,FL-OPENABLE /?CCL3
+	ICALL1	RT-CANT-OPEN-PRSO-MSG
+	RTRUE	
+?CCL3:	FSET?	GL-PRSO,FL-OPENED \?CCL5
+	ICALL2	RT-ITS-ALREADY-MSG,STR?227
+	RTRUE	
+?CCL5:	FSET?	GL-PRSO,FL-LOCKED \?CCL7
+	ICALL1	RT-OBJECT-IS-LOCKED-MSG
+	RTRUE	
+?CCL7:	ICALL1	RT-YOU-OPEN-MSG
+	FSET?	GL-PRSO,FL-CONTAINER \TRUE
+	ZERO?	GL-NOW-LIT? \?CCL12
+	PRINTR	"It is too dark to see inside."
+?CCL12:	PRINTI	"Inside you see "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-OPEN-WITH
+	FSET?	GL-PRSO,FL-OPENABLE /?CCL3
+	ICALL1	RT-CANT-OPEN-PRSO-MSG
+	RTRUE	
+?CCL3:	FSET?	GL-PRSO,FL-OPENED \?CND1
+	ICALL2	RT-ITS-ALREADY-MSG,STR?227
+	RTRUE	
+?CND1:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-PADDLE
+	IN?	GL-WINNER,TH-BOAT \?CCL3
+	EQUAL?	GL-PRSO,TH-BOAT,TH-INTDIR \?CCL6
+	PRINT	K-BETTER-SUCCESS-MSG
+	CRLF	
+	RTRUE	
+?CCL6:	CALL1	V-HIT
+	RSTACK	
+?CCL3:	EQUAL?	GL-PRSO,TH-INTDIR \?CCL8
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTR	"not in a boat."
+?CCL8:	CALL1	V-HIT
+	RSTACK	
+
+
+	.FUNCT	V-PADDLE-WITH
+	EQUAL?	GL-PRSI,TH-VIOLIN \?CCL3
+	PRINTR	"How could you even THINK of using such a beautiful instrument in such a manner?"
+?CCL3:	IN?	GL-WINNER,TH-BOAT \?CCL5
+	EQUAL?	GL-PRSO,TH-INTDIR \?CCL8
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTR	"not in a boat."
+?CCL8:	PRINT	K-BETTER-SUCCESS-MSG
+	CRLF	
+	RTRUE	
+?CCL5:	EQUAL?	GL-PRSO,TH-INTDIR \?CCL10
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"can't paddle anywhere with "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL10:	CALL1	V-HIT
+	RSTACK	
+
+
+	.FUNCT	V-PASSWORD,WRD
+	GET	GL-P-NAMW,0 >WRD
+	EQUAL?	WRD,W?SWORDFISH \?CCL3
+	CALL2	RT-PERFORM,V?SWORDFISH
+	RSTACK	
+?CCL3:	EQUAL?	WRD,W?PARR \?CCL5
+	CALL2	RT-PERFORM,V?PARR
+	RSTACK	
+?CCL5:	EQUAL?	WRD,W?CLEVES \?CCL7
+	CALL2	RT-PERFORM,V?CLEVES
+	RSTACK	
+?CCL7:	EQUAL?	WRD,W?ARAGON \?CCL9
+	CALL2	RT-PERFORM,V?ARAGON
+	RSTACK	
+?CCL9:	EQUAL?	WRD,W?HOWARD \?CCL11
+	CALL2	RT-PERFORM,V?HOWARD
+	RSTACK	
+?CCL11:	EQUAL?	WRD,W?SEYMOUR \?CCL13
+	CALL2	RT-PERFORM,V?SEYMOUR
+	RSTACK	
+?CCL13:	EQUAL?	WRD,W?BOLEYN \?CCL15
+	CALL2	RT-PERFORM,V?BOLEYN
+	RSTACK	
+?CCL15:	EQUAL?	WRD,W?GIN \?CCL17
+	CALL2	RT-PERFORM,V?GIN
+	RSTACK	
+?CCL17:	PRINTR	"""No, it isn't."""
+
+
+	.FUNCT	V-PAY
+	ICALL	RT-PERFORM,V?GIVE,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-PICK
+	FSET?	GL-PRSO,FL-OPENABLE \?CCL3
+	ICALL2	RT-YOURE-NOT-A-MSG,STR?678
+	RTRUE	
+?CCL3:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-PLAY
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+?CCL3:	ICALL2	RT-NO-POINT-MSG,STR?679
+	RTRUE	
+
+
+	.FUNCT	V-PLUG
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" into "
+	ZERO?	GL-PRSI /?CCL3
+	ICALL1	RT-THEI-PRINT
+	JUMP	?CND1
+?CCL3:	PRINTI	"anything"
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-POCKET
+	ICALL	RT-PERFORM,V?PUT,GL-PRSO,TH-POCKET
+	RTRUE	
+
+
+	.FUNCT	V-POINT
+	ICALL2	RT-NO-POINT-MSG,STR?680
+	RTRUE	
+
+
+	.FUNCT	V-POINT-AT
+	ICALL2	RT-NO-POINT-MSG,STR?681
+	RTRUE	
+
+
+	.FUNCT	V-POINT-AT-SWP
+	ICALL2	RT-NO-POINT-MSG,STR?681
+	RETURN	2
+
+
+	.FUNCT	V-POUR
+	EQUAL?	GL-PRSO,TH-HANDS \?CCL3
+	PRINTI	"[To do that, just DROP EVERYTHING.]"
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,TH-POCKET \?CCL5
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?682,TH-CLOTHES
+	RTRUE	
+?CCL5:	FSET?	GL-PRSO,FL-SURFACE \?CCL7
+	ICALL2	RT-EMPTY-PRSO-MSG,FALSE-VALUE
+	RTRUE	
+?CCL7:	FSET?	GL-PRSO,FL-CONTAINER \?CCL9
+	FSET?	GL-PRSO,FL-OPENED \?CND10
+	ICALL2	RT-EMPTY-PRSO-MSG,FALSE-VALUE
+	RTRUE	
+?CND10:	ICALL1	RT-ITS-CLOSED-MSG
+	RTRUE	
+?CCL9:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot empty "
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-POUR-FROM
+	EQUAL?	GL-PRSI,TH-HANDS \?CCL3
+	ICALL	RT-PERFORM,V?DROP,GL-PRSO
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSI,TH-POCKET \?CCL5
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?682,TH-CLOTHES
+	RTRUE	
+?CCL5:	FSET?	GL-PRSI,FL-CONTAINER /?CCL7
+	FSET?	GL-PRSI,FL-SURFACE /?CCL7
+	PRINTI	"You cannot"
+	PRINTB	GL-P-PRSA-WORD
+	PRINTI	" things from "
+	ICALL2	RT-A-PRINT,GL-PRSI
+	PRINTR	"."
+?CCL7:	FSET?	GL-PRSI,FL-CONTAINER \?CCL11
+	FSET?	GL-PRSI,FL-OPENED /?CCL11
+	ICALL2	RT-ITS-CLOSED-MSG,GL-PRSI
+	RTRUE	
+?CCL11:	IN?	GL-PRSO,GL-PRSI \?CCL15
+	FSET?	GL-PRSO,FL-TAKEABLE \?CND16
+	ICALL1	RT-CTHEO-PRINT
+	PRINTC	32
+	ICALL1	RT-LANDS-AT-YOUR-FEET-MSG
+	RTRUE	
+?CND16:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL15:	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSO
+	PRINTI	"in "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-PRAY
+	PRINTR	"Good idea. You could use the help."
+
+
+	.FUNCT	V-PULL
+	ICALL2	RT-NO-POINT-MSG,STR?683
+	RTRUE	
+
+
+	.FUNCT	V-PUSH
+	ICALL2	RT-NO-POINT-MSG,STR?684
+	RTRUE	
+
+
+	.FUNCT	V-PUSH-TO
+	EQUAL?	GL-PRSO,TH-HANDS \?CND1
+	ZERO?	GL-PRSI /?CND1
+	ICALL	RT-PERFORM,V?REACH-IN,GL-PRSI
+	RTRUE	
+?CND1:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot push "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" around like that."
+
+
+	.FUNCT	V-PUT,L,WRD
+	LOC	GL-PRSO >L
+	EQUAL?	L,GLOBAL-OBJECTS \?CCL3
+	PRINTI	"That would"
+	CALL1	RT-WASTE-OF-TIME-MSG
+	RSTACK	
+?CCL3:	FSET?	GL-PRSO,FL-BODYPART \?CCL5
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	CALL	RT-IDENTIFY-FLOOR?,W?FLOOR,GL-PRSI
+	ZERO?	STACK \?CTR6
+	CALL	RT-IDENTIFY-FLOOR?,W?GROUND,GL-PRSI
+	ZERO?	STACK /?CCL7
+?CTR6:	MOVE	GL-PRSO,GL-PLACE-CUR
+	ZERO?	GL-P-MULT? /?CCL13
+	PRINTR	"Done."
+?CCL13:	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	ICALL2	RT-IN-ON-MSG,GL-PRSI
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL7:	ZERO?	L /?CTR14
+	ZERO?	GL-PRSI /?CCL15
+	FSET?	GL-PRSI,FL-SURFACE /?CCL15
+	FSET?	GL-PRSI,FL-CONTAINER /?CCL15
+	FSET?	GL-PRSI,FL-OPENED /?CCL15
+	FSET?	GL-PRSI,FL-OPENABLE /?CCL15
+?CTR14:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL15:	FSET?	GL-PRSI,FL-OPENED /?CCL24
+	FSET?	GL-PRSI,FL-SURFACE /?CCL24
+	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSI
+	PRINTR	"open."
+?CCL24:	CALL	RT-ROOM-IN-ON-MSG?,GL-PRSO,GL-PRSI
+	ZERO?	STACK \TRUE
+	EQUAL?	L,GL-WINNER /?CCL30
+	PRINTI	"Maybe"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"should take "
+	ICALL1	RT-THEO-PRINT
+	ICALL2	RT-OUT-OFF-MSG,L
+	ICALL2	RT-THEO-PRINT,L
+	PRINTR	" first."
+?CCL30:	MOVE	GL-PRSO,GL-PRSI
+	FSET	GL-PRSO,FL-TOUCHED
+	FSET?	GL-PRSI,FL-CONTAINER \?CCL33
+	CALL2	RT-PUT-OUT,GL-PRSO
+	ZERO?	STACK \TRUE
+?CCL33:	ZERO?	GL-P-MULT? /?CCL37
+	PRINTR	"Done."
+?CCL37:	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	ICALL2	RT-IN-ON-MSG,GL-PRSI
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-PUT-BEHIND
+	PRINTR	"That hiding place is too obvious."
+
+
+	.FUNCT	V-PUT-ON
+	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CND1
+	ICALL	RT-PERFORM,V?WEAR,GL-PRSO
+	RTRUE	
+?CND1:	ICALL1	V-PUT
+	RTRUE	
+
+
+	.FUNCT	V-PUT-UNDER
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot put anything under "
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-QUESTION
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND1
+	ICALL	RT-TO-DO-THING-USE-MSG,STR?687,STR?688
+	RETURN	2
+?CND1:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-RAISE
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	ICALL1	V-STAND
+	RTRUE	
+?CCL3:	ICALL2	RT-NO-POINT-MSG,STR?689
+	RTRUE	
+
+
+	.FUNCT	V-REACH-IN,OBJ
+	FIRST?	GL-PRSO >OBJ /?BOGUS1
+?BOGUS1:	FSET?	GL-PRSO,FL-PERSON /?CTR3
+	FSET?	GL-PRSO,FL-ALIVE \?CCL4
+?CTR3:	ICALL2	RT-YOURE-NOT-A-MSG,STR?675
+	RTRUE	
+?CCL4:	FSET?	GL-PRSO,FL-DOOR \?CCL8
+	FSET?	GL-PRSO,FL-OPENED \?CND9
+	PRINTI	"You reach into "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	", but experience nothing "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	PRINTR	"."
+?CND9:	ICALL1	RT-ITS-CLOSED-MSG
+	RTRUE	
+?CCL8:	FSET?	GL-PRSO,FL-CONTAINER /?CCL12
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL12:	FSET?	GL-PRSO,FL-OPENED /?CCL14
+	PRINTR	"It's not open."
+?CCL14:	ZERO?	OBJ /?CTR15
+	FSET?	OBJ,FL-TAKEABLE /?CCL16
+?CTR15:	FSET?	GL-PRSO,FL-PLURAL \?CCL21
+	FSET?	GL-PRSO,FL-COLLECTIVE /?CCL21
+	PRINTI	"They're"
+	JUMP	?CND19
+?CCL21:	PRINTI	"It's"
+?CND19:	PRINTR	" empty."
+?CCL16:	SET	'GL-P-IT-OBJECT,OBJ
+	PRINTI	"You "
+	EQUAL?	GL-PRSO,TH-EARS \?CCL26
+	PRINTI	"put your hands to "
+	JUMP	?CND24
+?CCL26:	PRINTI	"reach into "
+?CND24:	ICALL1	RT-THEO-PRINT
+	PRINTR	". There's something in there."
+
+
+	.FUNCT	V-READ
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	FSET?	GL-PRSO,FL-READABLE /?CCL5
+	ICALL1	RT-HOW-READ-MSG
+	PRINTR	"?"
+?CCL5:	PRINTR	"There's nothing written on it."
+
+
+	.FUNCT	V-READ-TO
+	ZERO?	GL-NOW-LIT? \?CCL3
+	PRINT	K-TOO-DARK-MSG
+	CRLF	
+	RETURN	2
+?CCL3:	FSET?	GL-PRSO,FL-READABLE /?CCL5
+	ICALL1	RT-HOW-READ-MSG
+	PRINTI	" to "
+	ICALL2	RT-A-PRINT,GL-PRSI
+	PRINTR	"?"
+?CCL5:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL7
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSI,STR?690
+	RTRUE	
+?CCL7:	PRINTR	"Maybe you ought to do it."
+
+
+	.FUNCT	V-READ-TO-SWP
+	ICALL	RT-PERFORM,V?READ-TO,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-REFUSE
+	FSET?	GL-PRSO,FL-TAKEABLE /?CND1
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+?CND1:	PRINTI	"How could you turn down such a tempting "
+	ICALL2	DPRINT,GL-PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-RELEASE
+	IN?	GL-PRSO,GL-WINNER \?CCL3
+	ICALL	RT-PERFORM,V?DROP,GL-PRSO
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL6
+	PRINTI	"You aren't "
+	JUMP	?CND4
+?CCL6:	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+?CND4:	PRINTR	"confined by anything."
+
+
+	.FUNCT	V-REPAIR
+	EQUAL?	GL-PRSO,TH-LAMP,TH-ETHERIUM-AMPOULE \?CCL3
+	FSET?	GL-PRSO,FL-BROKEN \?CCL3
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" is hopelessly beyond repair."
+?CCL3:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL7
+	PRINTI	"You aren't "
+	JUMP	?CND1
+?CCL7:	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+?CND1:	PRINTR	"in need of repair."
+
+
+	.FUNCT	V-REPLACE
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL3
+	PRINTR	"Easily done."
+?CCL3:	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSO
+	PRINTR	"need replacement."
+
+
+	.FUNCT	V-REPLY,WHO
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK /?CND1
+	RETURN	2
+?CND1:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-RESCUE
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CND1
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND3
+	ICALL1	V-HINT
+	RTRUE	
+?CND3:	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+?CND1:	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSO
+	PRINTR	"need any help."
+
+
+	.FUNCT	V-RIDE
+	FSET?	GL-PRSO,FL-ALIVE \?CCL3
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSO,STR?691
+	RTRUE	
+?CCL3:	PRINTR	"You cannot ride that."
+
+
+	.FUNCT	V-RING
+	EQUAL?	GL-PRSO,TH-BELL \?CCL3
+	CALL2	RT-ALARM-SET?,RT-I-SWING-BELL
+	ZERO?	STACK /?CCL6
+	PRINTR	"The bell is already ringing."
+?CCL6:	PRINTR	"The bell is too heavy for you to move, but your effort makes it vibrate softly."
+?CCL3:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-RIP
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-ROB
+	ICALL	RT-PERFORM,V?STEAL,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ROW
+	IN?	CH-PLAYER,TH-BOAT \?CCL3
+	PRINTR	"You'd have better success if you launched the boat first."
+?CCL3:	EQUAL?	GL-PRSO,TH-INTDIR \?CCL5
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTR	"not in a boat."
+?CCL5:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-RUB-WITH
+	ICALL2	RT-NO-POINT-MSG,STR?692
+	RTRUE	
+
+
+	.FUNCT	V-SAY,WRD
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND1
+	CALL1	RT-ANYONE-HERE?
+	ZERO?	STACK /?CND3
+	GET	GL-P-NAMW,0 >WRD
+	EQUAL?	WRD,W?SWORDFISH \?CCL7
+	ICALL2	RT-PERFORM,V?SWORDFISH
+	RTRUE	
+?CCL7:	EQUAL?	WRD,W?PARR \?CCL9
+	ICALL2	RT-PERFORM,V?PARR
+	RTRUE	
+?CCL9:	EQUAL?	WRD,W?CLEVES \?CCL11
+	ICALL2	RT-PERFORM,V?CLEVES
+	RTRUE	
+?CCL11:	EQUAL?	WRD,W?ARAGON \?CCL13
+	ICALL2	RT-PERFORM,V?ARAGON
+	RTRUE	
+?CCL13:	EQUAL?	WRD,W?HOWARD \?CCL15
+	ICALL2	RT-PERFORM,V?HOWARD
+	RTRUE	
+?CCL15:	EQUAL?	WRD,W?SEYMOUR \?CCL17
+	ICALL2	RT-PERFORM,V?SEYMOUR
+	RTRUE	
+?CCL17:	EQUAL?	WRD,W?BOLEYN \?CCL19
+	ICALL2	RT-PERFORM,V?BOLEYN
+	RTRUE	
+?CCL19:	EQUAL?	WRD,W?GIN \?CCL21
+	ICALL2	RT-PERFORM,V?GIN
+	RTRUE	
+?CCL21:	ICALL1	RT-WAY-TO-TALK-MSG
+	RTRUE	
+?CND3:	ICALL1	RT-TALK-TO-SELF-MSG
+	RTRUE	
+?CND1:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-SEARCH
+	FSET?	GL-PRSO,FL-CONTAINER \?CCL3
+	FSET?	GL-PRSO,FL-OPENED /?CCL6
+	FSET?	GL-PRSO,FL-TRANSPARENT /?CCL6
+	ICALL	RT-YOUD-HAVE-TO-MSG,STR?227,GL-PRSO
+	RTRUE	
+?CCL6:	PRINTI	"You see "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTI	" inside "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL3:	FSET?	GL-PRSO,FL-SURFACE \?CCL10
+	PRINTI	"You see "
+	ICALL2	RT-PRINT-CONTENTS-2,GL-PRSO
+	PRINTI	" on "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL10:	FSET?	GL-PRSO,FL-PERSON \?CCL12
+	ICALL	RT-PERFORM,V?USE,GL-PRSO
+	RTRUE	
+?CCL12:	ICALL1	RT-NOTHING-INTERESTING-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-SELL
+	EQUAL?	GL-WINNER,CH-PLAYER /?CCL3
+	ICALL	RT-NOT-LIKELY-MSG,GL-WINNER,STR?693
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSI,GL-PRSO,CH-ME,CH-PLAYER /?CTR4
+	EQUAL?	GL-PRSI,GL-WINNER \?CCL5
+?CTR4:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	FSET?	GL-PRSI,FL-PERSON /?CND1
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSI,STR?694
+	RTRUE	
+?CND1:	ICALL2	RT-YOURE-NOT-A-MSG,STR?695
+	RTRUE	
+
+
+	.FUNCT	V-SELL-SWP
+	ICALL	RT-PERFORM,V?SELL,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SHAKE,X
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+	ICALL	RT-PERFORM,V?ALARM,GL-PRSO
+	RTRUE	
+?CCL3:	FSET?	GL-PRSO,FL-TAKEABLE /?CCL5
+	FSET?	GL-PRSO,FL-TRYTAKE /?CCL5
+	ICALL2	RT-NO-POINT-MSG,STR?696
+	RTRUE	
+?CCL5:	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-SHINE-AT
+	PRINTI	"You cannot illuminate anything with "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-SHINE-AT-SWP
+	ICALL	RT-PERFORM,V?SHINE-AT,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SHOOT,NUM
+	EQUAL?	GL-PRSO,TH-GUN \?CCL3
+	PRINTR	"BANG!! The bullet barely misses your foot."
+?CCL3:	FSET?	GL-PRSO,FL-PERSON /?CTR4
+	EQUAL?	GL-PRSO,TH-GENERIC-BODY \?CCL5
+?CTR4:	FSET?	GL-PRSO,FL-NEEDS-IDENTITY \?CND8
+	PUTP	GL-PRSO,P?OBJ-NOUN,0
+	PUTP	GL-PRSO,P?OBJ-ADJ,0
+?CND8:	PRINTI	"You shoot "
+	EQUAL?	GL-PRSO,TH-GENERIC-BODY /?CND10
+	PRINTI	"and kill "
+?CND10:	ICALL2	RT-THEO-PRINT,GL-PRSO
+	PRINTI	". Inspector Lestrade "
+	IN?	CH-PLAYER,TH-BOAT \?CCL14
+	PRINTI	"pulls up alongside you in a Scotland Yard launch"
+	JUMP	?CND12
+?CCL14:	PRINTI	"appears out of nowhere"
+?CND12:	PRINTI	" and says,"
+	EQUAL?	GL-PRSO,CH-HOLMES \?CCL17
+	PRINT	K-PLUG-HIM-MYSELF-MSG
+	JUMP	?CND15
+?CCL17:	PRINTI	" ""You may be on our side, doctor, but killing people is still against the law. I'm afraid I'm going to have to arrest you."""
+?CND15:	CRLF	
+	CRLF	
+	PRINT	K-LESTRADE-ARRESTS-MSG
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+?CCL5:	EQUAL?	GL-PRSO,TH-SAPPHIRE,TH-EMERALD,TH-OPAL /?CTR18
+	EQUAL?	GL-PRSO,TH-RUBY,TH-TOPAZ,TH-GARNET \?CCL19
+?CTR18:	REMOVE	GL-PRSO
+	PRINTI	"You shoot "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", which shatters and disappears."
+?CCL19:	EQUAL?	GL-PRSO,TH-CROWN-JEWELS \?CCL23
+	PRINTI	"The jewels shatter and Holmes throws up his arms in exasperation. ""That's it, Watson. You have pushed me to the limit."" He leaps for your throat, and the ensuing struggle attracts the attention of the local constabulary, with what should by now be predictable results."
+	CRLF	
+	CRLF	
+	CALL1	RT-QSR
+	RSTACK	
+?CCL23:	EQUAL?	GL-PRSO,TH-SHAFT /?CTR24
+	EQUAL?	GL-PRSO,PSEUDO-OBJECT \?CCL25
+	GETP	PSEUDO-OBJECT,P?ACTION
+	EQUAL?	STACK,RT-AC-TH-FIREPLACE \?CCL25
+?CTR24:	PRINTI	"The bullet disappears into "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL25:	EQUAL?	GL-PRSO,TH-INTNUM,TH-INTDIR /?CTR30
+	IN?	GL-PRSO,ROOMS \?CCL31
+?CTR30:	CALL1	RT-IMPOSSIBLE-MSG
+	RSTACK	
+?CCL31:	FSET?	GL-PRSO,FL-PLURAL \?CCL35
+	PRINTR	"There are so many of them, you don't know where to begin."
+?CCL35:	FSET?	GL-PRSO,FL-MONEY \?CCL37
+	PRINTI	"You take aim at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", but your frugal nature prevents you from going through with it."
+?CCL37:	GET	GL-HOLES,0 >NUM
+	MUL	NUM,2
+	ADD	STACK,1
+	PUT	GL-HOLES,STACK,GL-PRSO
+	LOC	GL-PRSO
+	EQUAL?	STACK,LOCAL-GLOBALS,ROOMS,GLOBAL-OBJECTS \?CND38
+	MUL	NUM,2
+	ADD	STACK,2
+	PUT	GL-HOLES,STACK,GL-PLACE-CUR
+?CND38:	ADD	NUM,1
+	PUT	GL-HOLES,0,STACK
+	PRINTI	"The bullet puts a neat hole in "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-SHOOT-SWP
+	ICALL	RT-PERFORM,V?SHOOT,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SHOW
+	FSET?	GL-PRSI,FL-ASLEEP \?CCL3
+	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSI
+	PRINTI	"in no condition to appreciate "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL3:	EQUAL?	GL-PRSI,CH-ME,CH-PLAYER \?CCL5
+	ICALL	RT-PERFORM,V?EXAMINE,GL-PRSO
+	RTRUE	
+?CCL5:	ICALL1	RT-CTHEI-PRINT
+	PRINTI	" glance"
+	ICALL2	RT-S-NOS-MSG,GL-PRSI
+	PRINTI	" at "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	", but makes no comment."
+
+
+	.FUNCT	V-SHOW-SWP
+	ICALL	RT-PERFORM,V?SHOW,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SIT
+	CALL	RT-IDENTIFY-FLOOR?,W?GROUND,GL-PRSO
+	ZERO?	STACK \?CTR2
+	CALL	RT-IDENTIFY-FLOOR?,W?FLOOR,GL-PRSO
+	ZERO?	STACK \?CTR2
+	EQUAL?	GL-PRSO,ROOMS /?CTR2
+	FSET?	GL-PRSO,FL-SURFACE \?CCL3
+?CTR2:	PRINT	K-NO-RESTING-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-SMELL,OBJ
+	CALL	RT-IDENTIFY-FLOOR?,W?SKY,GL-PRSO
+	ZERO?	STACK \?CTR2
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+?CTR2:	PRINTI	"You do not smell anything "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	PRINTR	"."
+?CCL3:	EQUAL?	GL-PRSO,TH-BUNG,TH-MALMSEY,TH-MALMSEY-POOL /?CTR6
+	EQUAL?	GL-PRSO,TH-BUTT-OF-MALMSEY,TH-GARNET \?CCL7
+?CTR6:	PRINT	K-EAU-DE-MSG
+	CRLF	
+	RTRUE	
+?CCL7:	PRINTI	"It smells just like "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-SMOKE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot smoke "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-SPIN
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	PRINT	K-DIZZY-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	PRINTI	"You cannot spin "
+	ICALL1	RT-SAY-HIM-HER-THEM-IT-MSG
+	PRINTR	"."
+
+
+	.FUNCT	V-STAND
+	PRINTR	"You are already standing."
+
+
+	.FUNCT	V-STAND-ON
+	PRINTI	"Standing on "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-STAND-UNDER
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-STEAL
+	PRINT	K-THEFT-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-STRIKE
+	ICALL1	V-HIT
+	RTRUE	
+
+
+	.FUNCT	V-SWIM
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	EQUAL?	GL-PLACE-CUR,RM-THE-EMBANKMENT,RM-SWAN-LANE,RM-LONDON-BRIDGE \?CCL6
+	PRINTR	"Yuck! Have you looked at that water?"
+?CCL6:	PRINT	K-NO-SWIM-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,TH-INTDIR \?CCL8
+	ZERO?	GL-P-DIRECTION /?CCL8
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL8
+	PRINTI	"You cannot "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTR	" that way from here."
+?CCL8:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-SWING
+	ZERO?	GL-PRSI \?CCL3
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+?CCL3:	ICALL	RT-PERFORM,V?KILL,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TAKE,L
+	LOC	GL-PRSO
+	EQUAL?	GLOBAL-OBJECTS,STACK \?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	ZERO?	GL-PRSI /?CCL5
+	LOC	GL-PRSI
+	EQUAL?	GLOBAL-OBJECTS,STACK \?CND1
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL5:	FSET?	GL-PRSO,FL-WORN \?CND1
+	ICALL	RT-PERFORM,V?TAKE-OFF,GL-PRSO
+	RTRUE	
+?CND1:	CALL1	RT-ITAKE >L
+	ZERO?	L /TRUE
+	ZERO?	GL-P-MULT? /?CCL13
+	PRINTI	"Taken."
+	CRLF	
+	JUMP	?CND11
+?CCL13:	FSET?	L,FL-CONTAINER /?CTR14
+	FSET?	L,FL-SURFACE /?CTR14
+	FSET?	L,FL-PERSON /?CTR14
+	FSET?	L,FL-ALIVE \?CCL15
+?CTR14:	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	ICALL1	RT-THEO-PRINT
+	ICALL2	RT-OUT-OFF-MSG,L
+	ICALL2	RT-THEO-PRINT,L
+	PRINTC	46
+	CRLF	
+	JUMP	?CND11
+?CCL15:	ICALL	RT-CYOU-MSG,STR?697,STR?698
+	ICALL1	RT-THEO-PRINT
+	PRINTC	46
+	CRLF	
+?CND11:	GETP	GL-PRSO,P?VALUE >L
+	ZERO?	L /TRUE
+	PUTP	GL-PRSO,P?VALUE,0
+	ICALL1	RT-TOPAZ-MSG
+	ICALL2	RT-UPDATE-SCORE,L
+	ICALL1	RT-UPDATE-STATUS-LINE
+	RTRUE	
+
+
+	.FUNCT	V-TAKE-OFF
+	EQUAL?	GL-PRSO,TH-CLOTHES,TH-FEET \?CCL3
+	PRINT	K-INAPPROPRIATE-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	FSET?	GL-PRSO,FL-TAKEABLE \?CCL5
+	IN?	GL-PRSO,GL-WINNER \?CCL8
+	FSET?	GL-PRSO,FL-WORN \?CCL8
+	FCLEAR	GL-PRSO,FL-WORN
+	PRINTI	"You take off "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL8:	ICALL	RT-PERFORM,V?TAKE,GL-PRSO
+	RTRUE	
+?CCL5:	FSET?	GL-PRSO,FL-VEHICLE \?CCL12
+	ICALL	RT-PERFORM,V?EXIT,GL-PRSO
+	RTRUE	
+?CCL12:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-TAKE-WITH
+	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-TASTE
+	ICALL	RT-PERFORM,V?EAT,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TELL,N,M,WRD
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK /?CCL3
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL5
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL8
+	ICALL1	RT-TALK-TO-SELF-MSG
+	RTRUE	
+?CCL8:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+?CCL5:	SET	'GL-P-QCONTEXT-TH,GL-PRSO
+	LOC	GL-PRSO >GL-P-QCONTEXT-RM
+	ZERO?	GL-P-CONT /?CCL11
+	SET	'GL-WINNER,GL-PRSO
+	ICALL2	RT-THIS-IS-IT,GL-PRSO
+	SET	'GL-CLOCK-WAIT,TRUE-VALUE
+	SET	'N,GL-P-CONT
+	SET	'M,GL-P-LEN
+?PRG12:	GET	GL-P-P-LEX,N >WRD
+	EQUAL?	WRD,W?QUOTE \?CCL16
+	PUT	GL-P-P-LEX,N,W?THE
+	JUMP	?CND14
+?CCL16:	EQUAL?	WRD,W?THEN,W?PERIOD /TRUE
+?CND14:	ADD	N,K-P-LEXELEN >N
+	DLESS?	'M,1 \?PRG12
+	RTRUE	
+?CCL11:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-TELL-ABOUT
+	CALL1	RT-WHO-WHAT-WHERE-MSG
+	ZERO?	STACK /TRUE
+	RETURN	2
+
+
+	.FUNCT	V-TELL-WHO
+	PRINTR	"You must use TELL ME ABOUT SOMETHING or TELL CHARACTER ABOUT SOMETHING."
+
+
+	.FUNCT	V-THANK
+	CALL1	RT-ANYONE-HERE?
+	ZERO?	STACK \?CCL3
+	PRINTR	"[There's nobody here to thank.]"
+?CCL3:	EQUAL?	GL-WINNER,CH-PLAYER \?CCL5
+	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER \?CCL8
+	PRINTI	"Patting yourself on the back"
+	PRINT	K-WONT-HELP-MSG
+	CRLF	
+	RTRUE	
+?CCL8:	FSET?	GL-PRSO,FL-ASLEEP \?CCL10
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-ISNT-ARENT-MSG,GL-PRSO
+	PRINTR	"in any condition to accept your thanks."
+?CCL10:	PRINTR	"""You're welcome."""
+?CCL5:	ICALL1	RT-FOOLISH-TO-TALK-MSG
+	RTRUE	
+
+
+	.FUNCT	V-THROUGH
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	ICALL2	RT-DO-WALK,P?IN
+	RTRUE	
+?CCL3:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-THROW
+	EQUAL?	GL-P-PRSA-WORD,W?PUT \?CCL3
+	EQUAL?	GL-PRSO,TH-HANDS,TH-FEET \?CCL3
+	FSET?	GL-PRSI,FL-DOOR \?CCL8
+	FSET?	GL-PRSI,FL-OPENED \?CCL11
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" through "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	", but can't reach anything on the other side."
+?CCL11:	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-IS-ARE-MSG,GL-PRSI
+	PRINTR	"closed."
+?CCL8:	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	IN?	GL-PRSO,GLOBAL-OBJECTS \?CCL13
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL13:	CALL1	RT-IDROP-MSG
+	ZERO?	STACK /TRUE
+	FSET?	CH-HOLMES,FL-ASLEEP \?CND15
+	EQUAL?	GL-PRSI,CH-HOLMES,TH-PHIAL,TH-SYRINGE /?CCL16
+	EQUAL?	GL-PRSI,TH-MOROCCO-CASE \?CND15
+?CCL16:	EQUAL?	GL-PRSO,TH-KNIFE \?CCL23
+	EQUAL?	GL-PRSI,CH-HOLMES \?CCL26
+	PRINTI	"Holmes absentmindedly dodges the knife"
+	JUMP	?CND24
+?CCL26:	EQUAL?	GL-PRSI,TH-PHIAL,TH-SYRINGE,TH-MOROCCO-CASE \?CND24
+	PRINTI	"Holmes casually moves "
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" out of harm's way"
+?CND24:	PRINTR	" and continues staring at the phial."
+?CCL23:	PRINTI	"Holmes absentmindedly catches "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	" with his free hand and bops you over the head with it before letting it fall to the ground. He then continues staring at the phial."
+?CND15:	ICALL1	RT-CTHEO-PRINT
+	PRINTI	" miss"
+	ICALL2	RT-ES-NOES-MSG,GL-PRSO
+	PRINTC	32
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" by a mile and land"
+	ICALL2	RT-S-NOS-MSG,GL-PRSI
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-ONE,RM-THAMES-TWO,RM-THAMES-THREE /?CTR29
+	EQUAL?	GL-PLACE-CUR,RM-THAMES-FOUR,RM-THAMES-FIVE \?CCL30
+?CTR29:	PRINTI	" in the water."
+	MOVE	GL-PRSO,LG-WATER
+	EQUAL?	GL-PRSO,CH-TRAINED-PIGEON \?CND33
+	ICALL1	RT-KILL-PIGEON
+?CND33:	PRINTR	" Plop."
+?CCL30:	PRINTI	" on the "
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL37
+	PRINTI	"floor"
+	JUMP	?CND35
+?CCL37:	PRINTI	"ground"
+?CND35:	PRINTR	" nearby."
+
+
+	.FUNCT	V-THROW-SWP
+	ICALL	RT-PERFORM,V?THROW,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-THROW-OVER
+	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-TIE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot possibly tie "
+	ICALL1	RT-THEO-PRINT
+	ZERO?	GL-PRSI /?CND1
+	PRINTI	" to "
+	ICALL1	RT-THEI-PRINT
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-TIE-UP
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot tie up "
+	EQUAL?	GL-PRSI,FALSE-VALUE,ROOMS \?CCL3
+	PRINTI	"that"
+	JUMP	?CND1
+?CCL3:	PRINTI	"anything with "
+	ICALL1	RT-THEI-PRINT
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-TIP
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+	ICALL	RT-CYOU-MSG,STR?699,STR?700
+	PRINTI	"confidentially, ""Buy low, sell high."""
+	CRLF	
+	CRLF	
+	ICALL1	RT-CTHEO-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSO
+	PRINTR	"look impressed."
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't do that."
+
+
+	.FUNCT	V-TOUCH
+	ICALL2	RT-NO-POINT-MSG,STR?701
+	RTRUE	
+
+
+	.FUNCT	V-TOUCH-TO
+	EQUAL?	GL-PRSO,TH-HANDS \?CND1
+	ICALL	RT-PERFORM,V?TOUCH,GL-PRSI
+	RTRUE	
+?CND1:	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" next to "
+	ICALL1	RT-THEI-PRINT
+	PRINTI	", but nothing "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	PRINTR	" happens."
+
+
+	.FUNCT	V-TOUCH-TO-SWP
+	ICALL	RT-PERFORM,V?TOUCH-TO,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TRANSLATE
+	PRINT	K-HOW-TO-MSG
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-TUNE-TO
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	V-TURN
+	FSET?	GL-PRSO,FL-TAKEABLE /?CCL3
+	FSET?	GL-PRSO,FL-TRYTAKE /?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	ICALL2	RT-NO-POINT-MSG,STR?702
+	RTRUE	
+
+
+	.FUNCT	V-TURN-DOWN
+	ICALL1	V-REFUSE
+	RTRUE	
+
+
+	.FUNCT	V-TURN-TO
+	CALL2	RT-VISIBLE?,GL-PRSO
+	ZERO?	STACK /?CCL3
+	ICALL	RT-PERFORM,V?WATCH,GL-PRSO
+	RTRUE	
+?CCL3:	ICALL	RT-CYOU-MSG,STR?653,STR?654
+	PRINTI	"see "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-TURN-UP
+	ICALL1	V-LOOK-UNDER
+	RTRUE	
+
+
+	.FUNCT	V-UNDRESS
+	EQUAL?	GL-PRSO,ROOMS /?CTR2
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+?CTR2:	PRINT	K-INAPPROPRIATE-MSG
+	CRLF	
+	RTRUE	
+?CCL3:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot undress "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-UNFOLD
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTR	"folded up."
+
+
+	.FUNCT	V-UNLOCK
+	FSET?	GL-PRSO,FL-OPENABLE /?CTR2
+	FSET?	GL-PRSO,FL-CONTAINER \?CCL3
+?CTR2:	FSET?	GL-PRSO,FL-OPENED /?CTR7
+	FSET?	GL-PRSO,FL-LOCKED /?CCL8
+?CTR7:	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTR	"locked."
+?CCL8:	ICALL	RT-THING-WONT-LOCK-MSG,GL-PRSI,GL-PRSO,TRUE-VALUE
+	RTRUE	
+?CCL3:	ICALL2	RT-CANT-LOCK-MSG,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-UNPLUG
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTI	"connected to "
+	ZERO?	GL-PRSI /?CCL3
+	ICALL1	RT-THEI-PRINT
+	JUMP	?CND1
+?CCL3:	PRINTI	"anything"
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-UNSCREW-FROM
+	EQUAL?	GL-PRSO,GL-PRSI \?CCL3
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+?CCL3:	IN?	GL-PRSO,GL-PRSI /?CCL5
+	FSET?	GL-PRSI,FL-ALIVE \?CND6
+	ICALL1	RT-CTHEI-PRINT
+	ICALL2	RT-DONT-DOESNT-MSG,GL-PRSI
+	PRINTI	"have "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CND6:	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	ICALL	RT-IN-ON-MSG,GL-PRSI,FALSE-VALUE
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+?CCL5:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot unscrew "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-UNTIE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot untie "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-USE
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+	ICALL1	RT-CTHEO-PRINT
+	PRINTR	" might resent that."
+?CCL3:	PRINTI	"[You must specify what you want to do with "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	".]"
+
+
+	.FUNCT	V-USE-ON
+	PRINTI	"Using "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" on "
+	ICALL1	RT-THEI-PRINT
+	PRINTI	" would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	RTRUE	
+
+
+	.FUNCT	V-WAIT,H,M,S,N
+	EQUAL?	GL-P-NUMBER,-1 \?CCL3
+	SET	'N,1
+	JUMP	?CND1
+?CCL3:	SET	'N,GL-P-NUMBER
+?CND1:	EQUAL?	GL-PRSO,TH-TIME \?CCL6
+	GETP	GL-PRSO,P?OBJ-NOUN
+	EQUAL?	STACK,W?MINUTE,W?MINUTES \?CCL9
+	SET	'H,0
+	SET	'M,N
+	JUMP	?CND4
+?CCL9:	SET	'H,N
+	SET	'M,0
+	JUMP	?CND4
+?CCL6:	EQUAL?	GL-PRSO,TH-INTNUM \?CCL11
+	SET	'H,0
+	SET	'M,N
+	PRINTC	91
+	PRINTN	M
+	PRINTI	" minute"
+	EQUAL?	M,1 /?CND12
+	PRINTC	115
+?CND12:	PRINTC	93
+	CRLF	
+	CRLF	
+	JUMP	?CND4
+?CCL11:	EQUAL?	GL-PRSO,ROOMS /?CCL15
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"can't wait for that."
+?CCL15:	SET	'H,0
+	SET	'M,10
+?CND4:	SET	'S,0
+	PRINTI	"Time passes..."
+	CRLF	
+	ICALL	RT-CLOCK-JMP,H,M,S
+	ICALL2	RT-TIME-OF-DAY-MSG,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM
+	GETPT	GL-PLACE-CUR,GL-PRSO >PT
+	ZERO?	GL-P-WALK-DIR \?CCL3
+	PRINTR	"[You must specify a direction.]"
+?CCL3:	ZERO?	PT /?CCL5
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,K-UEXIT \?CCL8
+	LOC	GL-WINNER
+	FSET?	STACK,FL-VEHICLE \?CND9
+	LOC	GL-WINNER
+	ICALL	RT-PERFORM,V?EXIT,STACK
+	LOC	GL-WINNER
+	FSET?	STACK,FL-VEHICLE \?CND9
+	RETURN	2
+?CND9:	GETB	PT,K-REXIT >RM
+	ICALL2	RT-GOTO,RM
+	RTRUE	
+?CCL8:	EQUAL?	PTS,K-NEXIT \?CCL14
+	GET	PT,K-NEXITSTR >STR
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?CCL14:	EQUAL?	PTS,K-PEXIT \?CCL16
+	GET	PT,K-PEXITRTN
+	CALL	STACK >RM
+	ZERO?	RM /?CCL19
+	ICALL2	RT-GOTO,RM
+	RTRUE	
+?CCL19:	RETURN	2
+?CCL16:	EQUAL?	PTS,K-CEXIT \?CCL21
+	GETB	PT,K-CEXITFLG
+	VALUE	STACK
+	ZERO?	STACK /?CND22
+	GETB	PT,K-REXIT >RM
+	ICALL2	RT-GOTO,RM
+	RTRUE	
+?CND22:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot go that way."
+	CRLF	
+	RETURN	2
+?CCL21:	EQUAL?	PTS,K-DEXIT \FALSE
+	LOC	GL-WINNER
+	FSET?	STACK,FL-VEHICLE \?CND26
+	LOC	GL-WINNER
+	ICALL	RT-PERFORM,V?EXIT,STACK
+	LOC	GL-WINNER
+	FSET?	STACK,FL-VEHICLE \?CND26
+	RETURN	2
+?CND26:	ADD	1,PT
+	GET	STACK,0 >OBJ
+	FSET?	OBJ,FL-OPENED \?CCL32
+	GETB	PT,K-REXIT >RM
+	ICALL2	RT-GOTO,RM
+	RTRUE	
+?CCL32:	PRINTI	"The door is not open."
+	CRLF	
+	RETURN	2
+?CCL5:	EQUAL?	GL-P-WALK-DIR,P?OUT \?CCL34
+	FSET?	GL-PLACE-CUR,FL-INDOORS /?CCL34
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"already outside."
+	CRLF	
+	RETURN	2
+?CCL34:	EQUAL?	GL-P-WALK-DIR,P?IN \?CCL38
+	FSET?	GL-PLACE-CUR,FL-INDOORS \?CCL38
+	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"already inside."
+	CRLF	
+	RETURN	2
+?CCL38:	PRINTI	"You cannot go that way."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-WALK-AROUND
+	PRINTI	"[Which way do you want to go?]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-WALK-TO
+	EQUAL?	GL-PRSO,TH-INTDIR \?CCL3
+	ICALL2	RT-DO-WALK,GL-P-DIRECTION
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,TH-RIGHT,TH-LEFT /?CTR4
+	IN?	GL-PRSO,ROOMS \?CCL5
+?CTR4:	PRINT	K-BE-MORE-SPECIFIC-MSG
+	CRLF	
+	RTRUE	
+?CCL5:	ICALL1	V-FOLLOW
+	RTRUE	
+
+
+	.FUNCT	V-WATCH
+	FSET?	GL-PRSO,FL-PERSON \?CCL3
+	ICALL1	RT-CTHEO-PRINT
+	ICALL1	RT-ISNT-ARENT-MSG
+	PRINTI	"doing anything "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	JUMP	?CND1
+?CCL3:	PRINTI	"Nothing "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	PRINTI	" is happening"
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-WAVE-AT
+	CALL1	RT-WHO-WHAT-WHERE-MSG
+	ZERO?	STACK /TRUE
+	RETURN	2
+
+
+	.FUNCT	V-WEAR
+	IN?	GL-PRSO,GL-WINNER \?PRD5
+	FSET?	GL-PRSO,FL-WORN /?CTR2
+?PRD5:	EQUAL?	GL-PRSO,TH-CLOTHES \?CCL3
+?CTR2:	ICALL	RT-CYOU-MSG,STR?228,STR?229
+	PRINTI	"already wearing "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL3:	FSET?	GL-PRSO,FL-CLOTHING /?CCL9
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot wear "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CCL9:	CALL2	RT-DONT-HAVE-MSG,GL-PRSO
+	ZERO?	STACK \TRUE
+	FSET	GL-PRSO,FL-WORN
+	ICALL	RT-CYOU-MSG,STR?685,STR?686
+	PRINTI	"on "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-WEDGE
+	ICALL	RT-PERFORM,V?LOOSEN,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-WEIGH
+	PRINTR	"You haven't got any scales to weigh things with."
+
+
+	.FUNCT	V-WHAT
+	CALL1	RT-WHO-WHAT-WHERE-MSG
+	ZERO?	STACK /TRUE
+	RETURN	2
+
+
+	.FUNCT	V-WHERE
+	CALL1	RT-WHO-WHAT-WHERE-MSG
+	ZERO?	STACK /TRUE
+	RETURN	2
+
+
+	.FUNCT	V-WHO
+	CALL1	RT-WHO-WHAT-WHERE-MSG
+	ZERO?	STACK /TRUE
+	RETURN	2
+
+
+	.FUNCT	V-WIND
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot wind "
+	ICALL2	RT-A-PRINT,GL-PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-WRAP-AROUND
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"could not possibly "
+	PRINTB	GL-P-PRSA-WORD
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" around "
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-WRAP-AROUND-SWP
+	ICALL	RT-PERFORM,V?WRAP-AROUND,GL-PRSI,GL-PRSO
+	RTRUE	
+
+
+	.FUNCT	V-YELL
+	EQUAL?	GL-PRSO,ROOMS \?CCL3
+	EQUAL?	GL-P-PRSA-WORD,W?CRY \?CCL6
+	PRINTR	"Awww. Don't cry. You'll figure it out eventually."
+?CCL6:	PRINTR	"The idea of the primal scream as a technique to relieve anxiety will not be discovered for eighty years. But if it makes you feel better, go right ahead."
+?CCL3:	ICALL	RT-NOT-LIKELY-MSG,GL-PRSO,STR?230
+	RTRUE	
+
+
+	.FUNCT	RT-CANT-SEE-MUCH-MSG
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"cannot see much from here."
+
+
+	.FUNCT	RT-NO-MONEY-MSG
+	ICALL	RT-CYOU-MSG,STR?653,STR?654
+	PRINTR	"have any money."
+
+
+	.FUNCT	RT-IN-VEHICLE-MSG
+	IN?	CH-PLAYER,TH-HANSOM-CAB /?CTR2
+	IN?	CH-PLAYER,TH-GROWLER-CAB \?CCL3
+?CTR2:	PRINTI	" in a cab "
+	RTRUE	
+?CCL3:	IN?	CH-PLAYER,TH-BOAT \?CCL7
+	PRINTI	" in a boat "
+	RTRUE	
+?CCL7:	PRINTI	" standing "
+	RTRUE	
+
+
+	.FUNCT	RT-DRIVE-WALK-MSG?
+	IN?	CH-PLAYER,TH-HANSOM-CAB /?CTR2
+	IN?	CH-PLAYER,TH-GROWLER-CAB \?CCL3
+?CTR2:	PRINTI	" drive "
+	RTRUE	
+?CCL3:	PRINTI	" walk "
+	RTRUE	
+
+
+	.FUNCT	RT-ALREADY-IN-ROOM-MSG
+	PRINTI	"You are already in "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-NOT-IN-ROOM-MSG
+	PRINTI	"You are not in "
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-OBJECT-IS-LOCKED-MSG
+	ICALL1	RT-CYOU-MSG
+	PRINTR	"cannot do that. It is locked."
+
+
+	.FUNCT	RT-NOTHING-INTERESTING-MSG
+	ICALL	RT-CYOU-MSG,STR?655,STR?656
+	PRINTI	"not see anything "
+	CALL2	RT-PICK-NEXT,GL-BORING-TXT
+	PRINT	STACK
+	RTRUE	
+
+
+	.FUNCT	RT-WASTE-OF-TIME-MSG
+	CALL2	RT-PICK-NEXT,GL-NO-POINT-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-FOG-MSG
+	CALL2	RT-PICK-NEXT,GL-FOG-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-ITS-RIGHT-HERE-MSG
+	ICALL1	RT-SAY-ITS-MSG
+	PRINTR	"right here in front of you."
+
+
+	.FUNCT	RT-WHO-WHAT-WHERE-MSG
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK \TRUE
+	EQUAL?	GL-PRSA,V?WHO,V?WHAT,V?WHERE /?CCL6
+	PUSH	0
+	JUMP	?CND4
+?CCL6:	PUSH	GL-WINNER
+?CND4:	ICALL2	RT-NO-RESPONSE-MSG,STACK
+	RFALSE	
+
+
+	.FUNCT	RT-HI-BYE-MSG
+	CALL1	RT-FOOLISH-TO-TALK-MSG
+	ZERO?	STACK /?CCL3
+	RETURN	2
+?CCL3:	EQUAL?	GL-PRSO,ROOMS \?CCL5
+	ICALL1	RT-TALK-TO-SELF-MSG
+	RTRUE	
+?CCL5:	ICALL1	RT-NO-RESPONSE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-NO-RESPONSE-MSG,WHO
+	ZERO?	WHO \?CND1
+	SET	'WHO,GL-PRSO
+?CND1:	ICALL2	RT-CTHEO-PRINT,WHO
+	ICALL2	RT-DONT-DOESNT-MSG,WHO
+	PRINTR	"respond."
+
+
+	.FUNCT	RT-TAKE-OFF-PRSO-FIRST-MSG
+	PRINTI	"[taking off "
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" first]"
+	CRLF	
+	FCLEAR	GL-PRSO,FL-WORN
+	EQUAL?	GL-PRSO,TH-WATSONS-HAT \?CCL3
+	FSET	TH-WATSONS-HAT,FL-OPENED
+	RTRUE	
+?CCL3:	EQUAL?	GL-PRSO,TH-SUIT-OF-ARMOUR \TRUE
+	MOVE	TH-SUIT-OF-ARMOUR,GL-PLACE-CUR
+	RTRUE	
+
+
+	.FUNCT	RT-SAY-DROPPED-MSG
+	ZERO?	GL-P-MULT? /?CCL3
+	PRINTR	"Dropped."
+?CCL3:	ICALL	RT-CYOU-MSG,STR?703,STR?704
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-FOOLISH-TO-TALK-MSG
+	EQUAL?	GL-WINNER,CH-ME,CH-PLAYER /?CCL3
+	ICALL2	RT-CTHEO-PRINT,GL-WINNER
+	ICALL2	RT-DONT-DOESNT-MSG,GL-WINNER
+	PRINTR	"respond."
+?CCL3:	EQUAL?	GL-PRSO,FALSE-VALUE,ROOMS /FALSE
+	FSET?	GL-PRSO,FL-ALIVE /?CCL7
+	ICALL	RT-NOT-LIKELY-MSG,GL-PRSO,STR?230
+	ICALL1	RT-P-CLEAR
+	RTRUE	
+?CCL7:	EQUAL?	GL-PRSO,CH-ME,CH-PLAYER,GL-PRSI /?CTR8
+	EQUAL?	GL-PRSO,GL-WINNER \?CCL9
+?CTR8:	PRINTI	"That would"
+	ICALL1	RT-WASTE-OF-TIME-MSG
+	ICALL1	RT-P-CLEAR
+	RTRUE	
+?CCL9:	ICALL2	RT-THIS-IS-IT,GL-PRSO
+	RFALSE	
+
+
+	.FUNCT	RT-YOU-MSG,WRD1,WRD2,PRONOUN?
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL3
+	PRINTI	" you "
+	ZERO?	WRD1 /FALSE
+	PRINT	WRD1
+	PRINTC	32
+	RTRUE	
+?CCL3:	PRINTC	32
+	ZERO?	PRONOUN? /?CCL9
+	FSET?	GL-WINNER,FL-PLURAL \?CCL12
+	FSET?	GL-WINNER,FL-COLLECTIVE /?CCL12
+	PRINTI	"they"
+	JUMP	?CND7
+?CCL12:	FSET?	GL-WINNER,FL-PERSON \?CCL16
+	FSET?	GL-WINNER,FL-FEMALE \?CCL19
+	PRINTI	"she"
+	JUMP	?CND7
+?CCL19:	PRINTI	"he"
+	JUMP	?CND7
+?CCL16:	PRINTI	"it"
+	JUMP	?CND7
+?CCL9:	ICALL2	RT-THEO-PRINT,GL-WINNER
+?CND7:	PRINTC	32
+	ZERO?	WRD2 /FALSE
+	PRINT	WRD2
+	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	RT-CYOU-MSG,WRD1,WRD2,PRONOUN?
+	EQUAL?	GL-WINNER,CH-PLAYER \?CCL3
+	PRINTI	"You "
+	ZERO?	WRD1 /FALSE
+	PRINT	WRD1
+	PRINTC	32
+	RTRUE	
+?CCL3:	ZERO?	PRONOUN? /?CCL9
+	FSET?	GL-WINNER,FL-PLURAL \?CCL12
+	FSET?	GL-WINNER,FL-COLLECTIVE /?CCL12
+	PRINTI	"They"
+	JUMP	?CND7
+?CCL12:	FSET?	GL-WINNER,FL-PERSON \?CCL16
+	FSET?	GL-WINNER,FL-FEMALE \?CCL19
+	PRINTI	"She"
+	JUMP	?CND7
+?CCL19:	PRINTI	"He"
+	JUMP	?CND7
+?CCL16:	PRINTI	"It"
+	JUMP	?CND7
+?CCL9:	ICALL2	RT-CTHEO-PRINT,GL-WINNER
+?CND7:	PRINTC	32
+	ZERO?	WRD2 /FALSE
+	PRINT	WRD2
+	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	RT-ITS-ALREADY-MSG,STR
+	PRINTI	"It is already "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	RT-YOURE-NOT-A-MSG,STR
+	PRINTI	"You're a general practitioner, not a "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	RT-NO-POINT-MSG,STR
+	PRINT	STR
+	PRINTC	32
+	ICALL1	RT-THEO-PRINT
+	PRINTI	" would"
+	CALL2	RT-PICK-NEXT,GL-NO-POINT-TXT
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	RT-IS-ARE-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	EQUAL?	THING,CH-ME,CH-PLAYER /?CTR4
+	FSET?	THING,FL-PLURAL \?CCL5
+	FSET?	THING,FL-COLLECTIVE /?CCL5
+?CTR4:	PRINTI	" are "
+	RTRUE	
+?CCL5:	PRINTI	" is "
+	RTRUE	
+
+
+	.FUNCT	RT-ISNT-ARENT-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	EQUAL?	THING,CH-ME,CH-PLAYER /?CTR4
+	FSET?	THING,FL-PLURAL \?CCL5
+	FSET?	THING,FL-COLLECTIVE /?CCL5
+?CTR4:	PRINTI	" are not "
+	RTRUE	
+?CCL5:	PRINTI	" is not "
+	RTRUE	
+
+
+	.FUNCT	RT-S-NOS-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	EQUAL?	THING,CH-ME,CH-PLAYER /TRUE
+	FSET?	THING,FL-PLURAL \?CCL4
+	FSET?	THING,FL-COLLECTIVE \TRUE
+?CCL4:	PRINTC	115
+	RTRUE	
+
+
+	.FUNCT	RT-ES-NOES-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	EQUAL?	THING,CH-ME,CH-PLAYER /TRUE
+	FSET?	THING,FL-PLURAL \?CCL4
+	FSET?	THING,FL-COLLECTIVE \TRUE
+?CCL4:	PRINTI	"es"
+	RTRUE	
+
+
+	.FUNCT	RT-DONT-DOESNT-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	EQUAL?	THING,CH-ME,CH-PLAYER /?CTR4
+	FSET?	THING,FL-PLURAL \?CCL5
+	FSET?	THING,FL-COLLECTIVE /?CCL5
+?CTR4:	PRINTI	" do not "
+	RTRUE	
+?CCL5:	PRINTI	" does not "
+	RTRUE	
+
+
+	.FUNCT	RT-SAY-ITS-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	FSET?	THING,FL-PLURAL \?CCL5
+	FSET?	THING,FL-COLLECTIVE /?CCL5
+	PRINTI	"They are "
+	RTRUE	
+?CCL5:	FSET?	THING,FL-PERSON \?CCL9
+	FSET?	THING,FL-FEMALE \?CCL9
+	PRINTI	"She is "
+	RTRUE	
+?CCL9:	FSET?	THING,FL-PERSON \?CCL13
+	FSET?	THING,FL-FEMALE /?CCL13
+	PRINTI	"He is "
+	RTRUE	
+?CCL13:	PRINTI	"It is "
+	RTRUE	
+
+
+	.FUNCT	RT-SAY-HIM-HER-THEM-IT-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	EQUAL?	THING,CH-PLAYER,CH-ME \?CCL5
+	EQUAL?	GL-WINNER,CH-PLAYER,CH-ME \?CCL8
+	PRINTI	"yourself"
+	RTRUE	
+?CCL8:	PRINTI	"you"
+	RTRUE	
+?CCL5:	FSET?	THING,FL-PLURAL \?CCL10
+	FSET?	THING,FL-COLLECTIVE /?CCL10
+	PRINTI	"them"
+	RTRUE	
+?CCL10:	FSET?	THING,FL-PERSON \?CCL14
+	FSET?	THING,FL-FEMALE \?CCL17
+	PRINTI	"her"
+	RTRUE	
+?CCL17:	PRINTI	"him"
+	RTRUE	
+?CCL14:	PRINTI	"it"
+	RTRUE	
+
+
+	.FUNCT	RT-YOUR-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-WINNER
+?CND1:	EQUAL?	THING,CH-PLAYER,CH-ME \?CCL5
+	PRINTI	"your "
+	RTRUE	
+?CCL5:	FSET?	THING,FL-PLURAL \?CCL7
+	FSET?	THING,FL-COLLECTIVE /?CCL7
+	PRINTI	"their "
+	RTRUE	
+?CCL7:	FSET?	THING,FL-PERSON \?CCL11
+	FSET?	THING,FL-FEMALE \?CCL14
+	PRINTI	"her "
+	RTRUE	
+?CCL14:	PRINTI	"his "
+	RTRUE	
+?CCL11:	PRINTI	"its "
+	RTRUE	
+
+
+	.FUNCT	RT-ITS-CLOSED-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	ICALL2	RT-CTHEO-PRINT,THING
+	ICALL2	RT-IS-ARE-MSG,THING
+	PRINTR	"closed."
+
+
+	.FUNCT	RT-WHY-SHOOT-MSG,OBJ
+	ZERO?	OBJ \?CND1
+	SET	'OBJ,GL-PRSO
+?CND1:	PRINTI	"Why would"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"want to shoot the poor, little, innocent "
+	ICALL2	DPRINT,OBJ
+	PRINTR	"?"
+
+
+	.FUNCT	RT-HOW-READ-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	PRINTI	"How can"
+	ICALL1	RT-YOU-MSG
+	PRINTI	"read "
+	ICALL2	RT-A-PRINT,THING
+	RTRUE	
+
+
+	.FUNCT	RT-ALREADY-HAVE-PRSO-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	ICALL	RT-CYOU-MSG,STR?705,STR?706
+	ICALL2	RT-A-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-CANT-OPEN-PRSO-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	ICALL1	RT-CYOU-MSG
+	PRINTI	"could not possibly open "
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-CANT-CLOSE-THAT-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot close "
+	ZERO?	THING /?CCL5
+	ICALL2	RT-THEO-PRINT,THING
+	JUMP	?CND3
+?CCL5:	ICALL2	DPRINT,TH-NOT-HERE-OBJECT
+?CND3:	PRINTR	"."
+
+
+	.FUNCT	RT-NO-GOOD-SURFACE-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSI
+?CND1:	PRINTI	"There is no good surface on "
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-LANDS-AT-YOUR-FEET-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	PRINTI	"land"
+	ICALL2	RT-S-NOS-MSG,THING
+	PRINTI	" at your feet."
+	CRLF	
+	MOVE	THING,GL-PLACE-CUR
+	RTRUE	
+
+
+	.FUNCT	RT-OPEN-CLOSED-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	ICALL2	RT-CTHEO-PRINT,THING
+	ICALL2	RT-IS-ARE-MSG,THING
+	FSET?	THING,FL-OPENED \?CCL5
+	PRINTI	"open"
+	JUMP	?CND3
+?CCL5:	PRINTI	"closed"
+?CND3:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	RT-YOU-OPEN-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	FSET	THING,FL-OPENED
+	ICALL	RT-CYOU-MSG,STR?227,STR?707
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-YOU-CLOSE-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	FCLEAR	THING,FL-OPENED
+	ICALL	RT-CYOU-MSG,STR?674,STR?708
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-IN-ON-MSG,THING,SPACE?
+	ASSIGNED?	'SPACE? /?CND1
+	SET	'SPACE?,TRUE-VALUE
+?CND1:	ZERO?	THING \?CND3
+	SET	'THING,GL-PRSO
+?CND3:	ZERO?	SPACE? /?CND5
+	PRINTC	32
+?CND5:	FSET?	THING,FL-CONTAINER \?CCL9
+	PRINTI	"in"
+	JUMP	?CND7
+?CCL9:	FSET?	THING,FL-SURFACE \?CCL11
+	PRINTI	"on"
+	JUMP	?CND7
+?CCL11:	PRINTI	"held by"
+?CND7:	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	RT-CIN-CON-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	FSET?	THING,FL-SURFACE \?CCL5
+	PRINTI	"On "
+	RTRUE	
+?CCL5:	FSET?	THING,FL-CONTAINER \?CCL7
+	PRINTI	"In "
+	RTRUE	
+?CCL7:	PRINTI	"Held by "
+	RTRUE	
+
+
+	.FUNCT	RT-OUT-OFF-MSG,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	FSET?	THING,FL-SURFACE \?CCL5
+	PRINTI	" off of "
+	RTRUE	
+?CCL5:	FSET?	THING,FL-CONTAINER \?CCL7
+	PRINTI	" out of "
+	RTRUE	
+?CCL7:	PRINTI	" from "
+	RTRUE	
+
+
+	.FUNCT	RT-CANT-LOCK-MSG,UN?,THING
+	ZERO?	THING \?CND1
+	SET	'THING,GL-PRSO
+?CND1:	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	ZERO?	UN? /?CND3
+	PRINTI	"un"
+?CND3:	PRINTI	"lock "
+	ICALL2	RT-A-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-THING-WONT-LOCK-MSG,THING,CLOSED-THING,UN?
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot "
+	ZERO?	UN? /?CND1
+	PRINTI	"un"
+?CND1:	PRINTI	"lock "
+	ICALL2	RT-THEO-PRINT,CLOSED-THING
+	PRINTI	" with "
+	ICALL2	RT-THEO-PRINT,THING
+	PRINTR	"."
+
+
+	.FUNCT	RT-DONT-HAVE-MSG,OBJ,L,O
+	LOC	OBJ >L
+	ZERO?	L /?CND1
+	EQUAL?	L,GL-WINNER /FALSE
+	IN?	L,CH-PLAYER \?CND1
+	EQUAL?	GL-WINNER,CH-PLAYER \?CND1
+	SET	'O,GL-PRSO
+	SET	'GL-PRSO,OBJ
+	CALL2	RT-ITAKE,FALSE-VALUE
+	ZERO?	STACK /?CCL11
+	PRINTI	"[taking "
+	ICALL1	RT-THEO-PRINT
+	ICALL2	RT-OUT-OFF-MSG,L
+	ICALL2	RT-THEO-PRINT,L
+	PRINTI	" first]"
+	CRLF	
+	SET	'GL-PRSO,O
+	ICALL2	RT-THIS-IS-IT,GL-PRSO
+	RFALSE	
+?CCL11:	SET	'GL-PRSO,O
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?697,OBJ
+	ICALL2	RT-OUT-OFF-MSG,L
+	ICALL2	RT-THEO-PRINT,L
+	PRINTR	" first."
+?CND1:	ICALL1	RT-WINNER-NOT-HOLDING-MSG
+	ZERO?	OBJ /?CCL14
+	ICALL2	RT-THEO-PRINT,OBJ
+	JUMP	?CND12
+?CCL14:	ICALL2	RT-THEO-PRINT,TH-NOT-HERE-OBJECT
+?CND12:	PRINTR	"."
+
+
+	.FUNCT	RT-ROOM-IN-ON-MSG?,OBJ1,OBJ2
+	CALL	RT-OBJ-TOO-LARGE?,OBJ1,OBJ2
+	ZERO?	STACK /FALSE
+	PRINTI	"There is not enough room"
+	ICALL2	RT-IN-ON-MSG,OBJ2
+	ICALL2	RT-THEO-PRINT,OBJ2
+	PRINTR	"."
+
+
+	.FUNCT	RT-IMPOSSIBLE-PUT-IN-ON-MSG,OBJ
+	ZERO?	OBJ \?CND1
+	SET	'OBJ,GL-PRSI
+?CND1:	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	EQUAL?	GL-PRSI,OBJ \FALSE
+	ICALL1	RT-IMPOSSIBLE-MSG
+	RTRUE	
+
+
+	.FUNCT	RT-CANT-PUT-IN-ON-MSG,OBJ
+	ZERO?	OBJ \?CND1
+	SET	'OBJ,GL-PRSI
+?CND1:	EQUAL?	GL-PRSA,V?PUT,V?PUT-ON \FALSE
+	EQUAL?	GL-PRSI,OBJ \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot put "
+	ICALL1	RT-THEO-PRINT
+	PRINTC	32
+	FSET?	GL-PRSO,FL-CONTAINER \?CCL10
+	PRINTI	"in"
+	JUMP	?CND8
+?CCL10:	FSET?	GL-PRSO,FL-SURFACE \?CCL12
+	PRINTI	"on"
+	JUMP	?CND8
+?CCL12:	EQUAL?	GL-PRSA,V?PUT \?CCL14
+	PRINTI	"in"
+	JUMP	?CND8
+?CCL14:	PRINTI	"on"
+?CND8:	PRINTC	32
+	ICALL1	RT-THEI-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	RT-CHECK-MOVE-MSG?,SRC,DEST,PTR,OLOC,CNT
+	ZERO?	DEST /FALSE
+	SET	'PTR,GL-LOC-TRAIL
+	SET	'OLOC,DEST
+?PRG4:	PUT	PTR,0,OLOC
+	INC	'CNT
+	ZERO?	OLOC /?REP5
+	IN?	OLOC,ROOMS /?REP5
+	IN?	OLOC,LOCAL-GLOBALS /?REP5
+	IN?	OLOC,GLOBAL-OBJECTS /?REP5
+	LOC	OLOC >OLOC
+	ADD	PTR,2 >PTR
+	EQUAL?	OLOC,DEST \?PRG4
+?REP5:	INTBL?	SRC,GL-LOC-TRAIL,CNT \FALSE
+	ICALL1	RT-CYOU-MSG
+	PRINTI	"cannot put "
+	ICALL2	RT-THEO-PRINT,SRC
+	ICALL2	RT-IN-ON-MSG,SRC
+	PRINTI	"itself, or"
+	ICALL2	RT-IN-ON-MSG,SRC
+	PRINTI	"something that is already"
+	ICALL2	RT-IN-ON-MSG,SRC
+	PRINTR	"it."
+
+
+	.FUNCT	RT-EMPTY-PRSO-MSG,DEST,OBJ,NXT,X
+	FIRST?	GL-PRSO >OBJ /?BOGUS1
+?BOGUS1:	ZERO?	OBJ \?CND2
+	PRINTI	"There is nothing"
+	ICALL2	RT-IN-ON-MSG,GL-PRSO
+	ICALL1	RT-THEO-PRINT
+	PRINTR	"."
+?CND2:	SET	'GL-P-MULT?,TRUE-VALUE
+?PRG4:	ZERO?	OBJ /?REP5
+	ICALL2	RT-CTHEO-PRINT,OBJ
+	PRINTI	": "
+	NEXT?	OBJ >NXT /?BOGUS8
+?BOGUS8:	EQUAL?	DEST,CH-PLAYER \?CCL11
+	CALL	RT-PERFORM,V?TAKE,OBJ,GL-PRSO >X
+	EQUAL?	X,FATAL-VALUE /?REP5
+	JUMP	?CND9
+?CCL11:	ZERO?	DEST \?CCL15
+	FSET?	GL-PRSO,FL-PLURAL \?CCL18
+	FSET?	GL-PRSO,FL-COLLECTIVE /?CCL18
+	PRINTI	"They "
+	JUMP	?CND16
+?CCL18:	PRINTI	"It "
+?CND16:	ICALL1	RT-LANDS-AT-YOUR-FEET-MSG
+	JUMP	?CND9
+?CCL15:	CALL	RT-ROOM-IN-ON-MSG?,OBJ,DEST
+	ZERO?	STACK \?CND9
+	CALL	RT-CHECK-MOVE-MSG?,OBJ,DEST
+	ZERO?	STACK \?REP5
+	MOVE	OBJ,DEST
+	PRINTI	"Done."
+	CRLF	
+?CND9:	SET	'OBJ,NXT
+	JUMP	?PRG4
+?REP5:	SET	'GL-P-MULT?,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	RT-IDROP-MSG,L
+	LOC	GL-PRSO >L
+	ZERO?	L /?CTR2
+	EQUAL?	GL-PRSO,GL-WINNER,CH-ME,CH-PLAYER \?CCL3
+?CTR2:	ICALL1	RT-IMPOSSIBLE-MSG
+	RFALSE	
+?CCL3:	EQUAL?	L,GL-WINNER /?CCL7
+	ICALL1	RT-CYOU-MSG
+	ICALL	RT-WOULD-HAVE-TO-MSG,STR?697,GL-PRSO
+	ICALL2	RT-OUT-OFF-MSG,L
+	ICALL2	RT-THEO-PRINT,L
+	PRINTI	" first."
+	CRLF	
+	RFALSE	
+?CCL7:	FSET?	GL-PRSO,FL-WORN \?CND1
+	IN?	GL-PRSO,GL-WINNER \?CND1
+	ICALL1	RT-TAKE-OFF-PRSO-FIRST-MSG
+?CND1:	EQUAL?	GL-PRSA,V?THROW \?CCL13
+	CALL2	RT-META-LOC,GL-WINNER
+	MOVE	GL-PRSO,STACK
+	RTRUE	
+?CCL13:	LOC	GL-WINNER
+	MOVE	GL-PRSO,STACK
+	RTRUE	
+
+
+	.FUNCT	RT-PRINT-CONTENTS-1,THING,OBJ,CNT,TMP
+	ICALL	RT-MOVE-NODESC-OBJS,THING,TH-Y-OBJECT
+	FIRST?	THING >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	FSET	OBJ,FL-SEEN
+	PRINTI	"  "
+	ICALL2	RT-A-PRINT,OBJ
+	FSET?	OBJ,FL-LIGHTED \?CND6
+	PRINTI	" (providing light)"
+?CND6:	PRINTC	46
+	CRLF	
+	INC	'CNT
+	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	ZERO?	CNT \?CND9
+	PRINTI	"  nothing."
+	CRLF	
+?CND9:	ICALL	RT-MOVE-ALL,TH-Y-OBJECT,THING
+	FIRST?	THING >OBJ /?PRG12
+?PRG12:	ZERO?	OBJ /TRUE
+	CALL2	RT-SEE-INSIDE?,OBJ
+	ZERO?	STACK /?CND17
+	ICALL2	RT-PRINT-CONTENTS-3,OBJ
+?CND17:	NEXT?	OBJ >OBJ /?PRG12
+	JUMP	?PRG12
+
+
+	.FUNCT	RT-PRINT-CONTENTS-2,THING,OBJ,CNT
+	ICALL	RT-MOVE-NODESC-OBJS,THING,TH-Y-OBJECT
+	FIRST?	THING >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	FSET	OBJ,FL-SEEN
+	ICALL2	RT-A-PRINT,OBJ
+	FSET?	OBJ,FL-LIGHTED \?CND6
+	PRINTI	" (providing light)"
+?CND6:	INC	'CNT
+	NEXT?	OBJ >OBJ /?BOGUS8
+?BOGUS8:	ZERO?	OBJ /?PRG2
+	NEXT?	OBJ /?CCL13
+	PRINTI	" and "
+	JUMP	?PRG2
+?CCL13:	PRINTI	", "
+	JUMP	?PRG2
+?REP3:	ZERO?	CNT \?CND14
+	PRINTI	"nothing"
+?CND14:	ICALL	RT-MOVE-ALL,TH-Y-OBJECT,THING
+	RTRUE	
+
+
+	.FUNCT	RT-PRINT-CONTENTS-3,THING,OBJ,FIRST,CNT
+	SET	'FIRST,TRUE-VALUE
+	FIRST?	THING >OBJ /?PRG2
+?PRG2:	ZERO?	OBJ /?REP3
+	FSET?	OBJ,FL-NODESC /?CND4
+	ZERO?	FIRST /?CND8
+	SET	'FIRST,FALSE-VALUE
+	LOC	OBJ
+	ICALL2	RT-CIN-CON-MSG,STACK
+	LOC	OBJ
+	ICALL2	RT-THEO-PRINT,STACK
+	PRINTI	" you see:"
+	CRLF	
+?CND8:	PRINTI	"  "
+	ICALL2	RT-A-PRINT,OBJ
+	CRLF	
+?CND4:	NEXT?	OBJ >OBJ /?PRG2
+	JUMP	?PRG2
+?REP3:	FIRST?	THING >OBJ /?PRG12
+?PRG12:	ZERO?	OBJ /TRUE
+	CALL2	RT-SEE-INSIDE?,OBJ
+	ZERO?	STACK /?CND17
+	ICALL2	RT-PRINT-CONTENTS-3,OBJ
+?CND17:	NEXT?	OBJ >OBJ /?PRG12
+	JUMP	?PRG12
+
+
+	.FUNCT	RT-DO-WALK,DIR1,DIR2,DIR3,X
+	SET	'GL-P-WALK-DIR,DIR1
+	CALL	RT-PERFORM,V?WALK,DIR1 >X
+	ZERO?	DIR2 /?CND1
+	EQUAL?	X,FALSE-VALUE,FATAL-VALUE /?CND1
+	SET	'GL-P-WALK-DIR,DIR2
+	CALL	RT-PERFORM,V?WALK,DIR2 >X
+	ZERO?	DIR3 /?CND1
+	EQUAL?	X,FALSE-VALUE,FATAL-VALUE /?CND1
+	SET	'GL-P-WALK-DIR,DIR3
+	CALL	RT-PERFORM,V?WALK,DIR3 >X
+?CND1:	RETURN	X
+
+
+	.FUNCT	RT-WHO-SAYS?
+	CALL2	RT-META-LOC,CH-HOLMES
+	EQUAL?	GL-PLACE-CUR,STACK \?CCL3
+	FSET?	CH-HOLMES,FL-ASLEEP /?CCL3
+	FSET?	CH-HOLMES,FL-LOCKED /?CCL3
+	RETURN	CH-HOLMES
+?CCL3:	CALL2	RT-META-LOC,CH-WIGGINS
+	EQUAL?	GL-PLACE-CUR,STACK \FALSE
+	FSET?	CH-WIGGINS,FL-ASLEEP /FALSE
+	FSET?	CH-WIGGINS,FL-LOCKED /FALSE
+	RETURN	CH-WIGGINS
+
+
+	.FUNCT	RT-TRANSCRIPT,STR
+	DIROUT	K-D-SCR-OFF
+	CRLF	
+	PRINTI	"Transcript: "
+	PRINT	STR
+	CRLF	
+	ICALL1	RT-VERSION-MSG
+	DIROUT	K-D-SCR-ON
+	RTRUE	
+
+
+	.FUNCT	RT-QSR,KEY
+	ICALL1	KILL-SOUNDS
+	PRINTI	"The game is no longer afoot."
+	CRLF	
+	CRLF	
+?PRG1:	PRINTI	"Do you wish to: (1) Quit, (2) Restart, (3) Restore, (4) Hints"
+	ZERO?	GL-CAN-UNDO /?CND3
+	PRINTI	", (5) Undo"
+?CND3:	PRINTI	" ?"
+	CRLF	
+	INPUT	1 >KEY
+	EQUAL?	KEY,49 \?CCL7
+	QUIT	
+	PRINTI	"Quit failed."
+	CRLF	
+	JUMP	?PRG1
+?CCL7:	EQUAL?	KEY,50 \?CCL9
+	RESTART	
+	PRINTI	"Restart failed."
+	CRLF	
+	JUMP	?PRG1
+?CCL9:	EQUAL?	KEY,51 \?CCL11
+	ZERO?	GL-DEBUG-FLAG /?CND12
+	ICALL1	V-REFRESH
+?CND12:	ICALL1	RT-P-CLEAR
+	PUTB	GL-OOPS-INBUF,1,0
+	RESTORE	
+	PRINTI	"Restore failed."
+	CRLF	
+	JUMP	?PRG1
+?CCL11:	EQUAL?	KEY,52 \?CCL15
+	ICALL1	V-HINT
+	ICALL1	V-REFRESH
+	JUMP	?PRG1
+?CCL15:	EQUAL?	KEY,53 \?PRG1
+	ZERO?	GL-CAN-UNDO /?PRG1
+	ICALL1	V-UNDO
+	JUMP	?PRG1
+
+
+	.FUNCT	V-YES
+	PRINT	K-GOOD-SHOW-MSG
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-NO
+	PRINT	K-PITY-MSG
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-MAYBE
+	PRINT	K-MAYBE-MSG
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-DESC-LEVEL
+	PRINTC	91
+	EQUAL?	GL-P-PRSA-WORD,W?VERBOSE \?CCL3
+	SET	'GL-DESC-LEVEL,2
+	PRINTI	"Verbose"
+	JUMP	?CND1
+?CCL3:	EQUAL?	GL-P-PRSA-WORD,W?BRIEF \?CCL5
+	SET	'GL-DESC-LEVEL,1
+	PRINTI	"Brief"
+	JUMP	?CND1
+?CCL5:	EQUAL?	GL-P-PRSA-WORD,W?SUPER,W?SUPERBRIEF \?CND1
+	SET	'GL-DESC-LEVEL,0
+	PRINTI	"Superbrief"
+?CND1:	PRINTI	" descriptions]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-QUIT
+	PRINTI	"[Your score is "
+	PRINTN	GL-SCORE-CUR
+	PRINTI	" out of "
+	PRINTN	GL-SCORE-MAX
+	PRINTI	", which earns you a ranking of "
+	CALL2	RT-RANK-STR,GL-SCORE-CUR
+	PRINT	STACK
+	PRINTI	".]"
+	CRLF	
+	CRLF	
+	PRINTI	"Are you sure you want to quit?"
+	CALL1	RT-GET-YES-NO?
+	ZERO?	STACK /?CCL3
+	QUIT	
+	RTRUE	
+?CCL3:	CRLF	
+	PRINTI	"Continuing."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-RESTART
+	PRINTI	"Are you sure you want to restart?"
+	CALL1	RT-GET-YES-NO?
+	ZERO?	STACK /?CCL3
+	ICALL1	KILL-SOUNDS
+	RESTART	
+	RTRUE	
+?CCL3:	CRLF	
+	PRINTI	"Continuing."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-SAVE,X,WHO
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL3
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINTI	" nods in approval and says, ""A wise move, Watson. These are dangerous times."""
+	CRLF	
+	CRLF	
+	JUMP	?CND1
+?CCL3:	EQUAL?	WHO,CH-WIGGINS \?CND1
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	PRINTI	" glances around in alarm and says, ""Do you know somefing I don't know?"""
+	CRLF	
+	CRLF	
+?CND1:	ZERO?	GL-DEBUG-FLAG /?CND5
+	ICALL1	V-REFRESH
+?CND5:	SET	'GL-SCORE-STS,-1
+	SET	'GL-MOVES-STS,-1
+	SET	'GL-PLACE-STS,-1
+	ICALL1	RT-P-CLEAR
+	PUTB	GL-OOPS-INBUF,1,0
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ICALL1	KILL-SOUNDS
+	SAVE	 >X
+	ZERO?	SOUND-ON? /?CND7
+	ICALL1	CHECK-LOOPING
+?CND7:	ICALL1	RT-UPDATE-STATUS-LINE
+	ZERO?	X \?CCL11
+	PRINTI	"Save failed."
+	CRLF	
+	RETURN	2
+?CCL11:	EQUAL?	X,1 \?CCL13
+	PRINTI	"Save completed."
+	CRLF	
+	RETURN	2
+?CCL13:	PRINTI	"Restore completed."
+	CRLF	
+	CRLF	
+	CALL1	RT-WHO-SAYS? >WHO
+	EQUAL?	WHO,CH-HOLMES \?CCL16
+	ICALL2	RT-CTHEO-PRINT,CH-HOLMES
+	PRINTI	" looks up and says impatiently, ""Where have you been, Watson? We have work to do."""
+	CRLF	
+	CRLF	
+	JUMP	?CND14
+?CCL16:	EQUAL?	WHO,CH-WIGGINS \?CND14
+	ICALL2	RT-CTHEO-PRINT,CH-WIGGINS
+	PRINTI	" jumps nervously and then says, ""Crikey! You scared me. Don't sneak up on people that way."""
+	CRLF	
+	CRLF	
+?CND14:	ICALL	RT-DESC-ALL,FALSE-VALUE,TRUE-VALUE
+	RETURN	2
+
+
+	.FUNCT	V-RESTORE
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ICALL1	KILL-SOUNDS
+	ZERO?	GL-DEBUG-FLAG /?CND1
+	ICALL1	V-REFRESH
+?CND1:	ICALL1	RT-P-CLEAR
+	PUTB	GL-OOPS-INBUF,1,0
+	RESTORE	
+	GET	0,8
+	BTST	STACK,4 \?CND3
+	ICALL2	RT-INIT-SCREEN,TRUE-VALUE
+	ICALL1	RT-UPDATE-STATUS-LINE
+	GET	0,8
+	BAND	STACK,-5
+	PUT	0,8,STACK
+?CND3:	PRINTI	"Restore failed."
+	CRLF	
+	ZERO?	SOUND-ON? \?CCL6
+	RETURN	2
+?CCL6:	ICALL1	CHECK-LOOPING
+	RETURN	2
+
+
+	.FUNCT	V-SCRIPT
+	PRINTI	"[Scripting "
+	EQUAL?	GL-P-PRSA-WORD,W?SCRIPT \?CCL3
+	PRINTI	"on"
+	JUMP	?CND1
+?CCL3:	PRINTI	"off"
+?CND1:	PRINTC	93
+	CRLF	
+	EQUAL?	GL-P-PRSA-WORD,W?SCRIPT \?CCL6
+	DIROUT	K-D-PRN-ON
+	ICALL2	RT-TRANSCRIPT,STR?709
+	RETURN	2
+?CCL6:	ICALL2	RT-TRANSCRIPT,STR?710
+	DIROUT	K-D-PRN-OFF
+	RETURN	2
+
+
+	.FUNCT	V-VERSION
+	ICALL1	RT-VERSION-MSG
+	RETURN	2
+
+
+	.FUNCT	V-INVENTORY,POCKET,PLOC,OBJ,NXT,OLDIT
+	SET	'OLDIT,GL-P-IT-OBJECT
+	LOC	TH-POCKET >PLOC
+	FIRST?	TH-POCKET >POCKET /?BOGUS1
+?BOGUS1:	REMOVE	TH-POCKET
+	FIRST?	CH-PLAYER >OBJ /?PRG3
+?PRG3:	ZERO?	OBJ /?REP4
+	NEXT?	OBJ >NXT /?BOGUS8
+?BOGUS8:	FSET?	OBJ,FL-WORN \?CND9
+	EQUAL?	OBJ,TH-COTTON-BALLS,TH-STETHOSCOPE /?CND9
+	MOVE	OBJ,TH-X-OBJECT
+?CND9:	SET	'OBJ,NXT
+	JUMP	?PRG3
+?REP4:	FIRST?	TH-X-OBJECT \?CND13
+	PRINTI	"You are wearing:"
+	CRLF	
+	ICALL2	RT-PRINT-CONTENTS-1,TH-X-OBJECT
+?CND13:	FSET?	TH-COTTON-BALLS,FL-WORN /?CCL16
+	FSET?	TH-STETHOSCOPE,FL-WORN \?CND15
+?CCL16:	PRINTI	"You have in your ears:"
+	CRLF	
+	PRINTI	"  "
+	FSET?	TH-COTTON-BALLS,FL-WORN \?CCL21
+	MOVE	TH-COTTON-BALLS,TH-X-OBJECT
+	ICALL2	RT-A-PRINT,TH-COTTON-BALLS
+	PRINTC	46
+	CRLF	
+	JUMP	?CND15
+?CCL21:	MOVE	TH-STETHOSCOPE,TH-X-OBJECT
+	ICALL2	RT-A-PRINT,TH-STETHOSCOPE
+	PRINTC	46
+	CRLF	
+?CND15:	FSET?	TH-WATSONS-COAT,FL-WORN \?CND22
+	FIRST?	TH-POCKET \?CND22
+	PRINTI	"Your pocket contains:"
+	CRLF	
+	ICALL2	RT-PRINT-CONTENTS-1,TH-POCKET
+?CND22:	PRINTI	"You are holding:"
+	CRLF	
+	ICALL2	RT-PRINT-CONTENTS-1,CH-PLAYER
+	ICALL	RT-MOVE-ALL,TH-X-OBJECT,CH-PLAYER
+	MOVE	TH-POCKET,PLOC
+	SET	'GL-P-IT-OBJECT,OLDIT
+	RETURN	2
+
+
+	.FUNCT	V-NOTIFY
+	ZERO?	GL-SCORE-MSG /?PRT1
+	SET	'GL-SCORE-MSG,0
+	JUMP	?PRE3
+?PRT1:	SET	'GL-SCORE-MSG,1
+?PRE3:	PRINTI	"[Score Notification "
+	ZERO?	GL-SCORE-MSG /?CCL6
+	PRINTI	"Enabled"
+	JUMP	?CND4
+?CCL6:	PRINTI	"Disabled"
+?CND4:	PRINTC	93
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-SCORE
+	PRINTI	"[You have "
+	PRINTN	GL-SCORE-CUR
+	PRINTI	" out of "
+	PRINTN	GL-SCORE-MAX
+	PRINTI	" points, which earns you a ranking of "
+	CALL2	RT-RANK-STR,GL-SCORE-CUR
+	PRINT	STACK
+	PRINTI	".]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-UNDO
+	SET	'SOUND-QUEUED?,FALSE-VALUE
+	ICALL1	KILL-SOUNDS
+	SET	'GL-PLACE-STS,0
+	IRESTORE	
+	ZERO?	STACK \?CCL3
+	PRINTI	"[UNDO failed.]"
+	CRLF	
+	JUMP	?CND1
+?CCL3:	PRINTI	"[UNDO is not available.]"
+	CRLF	
+?CND1:	ZERO?	SOUND-ON? /FALSE
+	CALL1	CHECK-LOOPING
+	RSTACK	
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..344189a
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,4083 @@
+;*****************************************************************************
+; "game : SHERLOCK!"
+; "file : VERBS1.ZIL"
+; "auth :   $Author:   DEB  $"
+; "date :     $Date:   28 Oct 1987 16:55:00  $"
+; "rev  : $Revision:   1.111  $"
+; "vers : 1.00"
+;*****************************************************************************
+
+<DEFAULTS-DEFINED SOUND-CODE>
+
+<DEFAULT-DEFINITION SOUND-CODE T>
+
+<ROUTINE PRE-CALL ()
+	 <DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-CALL">>
+	 <COND (<MC-PRSI? ,TH-CAB-WHISTLE>
+		<RFALSE>)
+	       (<MC-PRSO? ,ROOMS>
+		<COND (<EQUAL? ,GL-P-PRSA-WORD ,W?HAIL>
+		       <TELL "Greetings, O strange one." CR>)
+		      (T
+		       <TELL "Helllloooooooo." CR>)>)
+	       (<AND <EQUAL? <GET ,GL-P-ADJW 0> ,W?MARY>
+		     <EQUAL? ,GL-P-PRSA-WORD ,W?HAIL>>
+		<TELL "Praying isn't a bad idea. But if you really need help,
+simply type HINT." CR>)
+	       (<EQUAL? <GET ,GL-P-NAMW 0> ,W?CAB>
+		<COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		       <RT-CYOU-MSG>
+		       <TELL "can't " VW " a cab while indoors." CR>)
+		      (<MC-HERE? <LOC ,TH-GROWLER-CAB> <LOC ,TH-HANSOM-CAB>>
+		       <TELL ,K-CAB-HERE-MSG CR>)
+		      (T
+		       <COND  (<EQUAL? ,GL-P-PRSA-WORD ,W?HAIL>
+			       <RT-CYOU-MSG "wave" "waves">
+			       <TELL "a hand in the air">)
+			      (T
+			       <RT-CYOU-MSG "shout" "shouts">
+			       <TELL "for a few moments">)>
+		       <TELL ", but nothing happens. Apparently that isn't how
+Victorians " VW " cabs." CR>)>)
+	       (<OR <MC-ISNOT? ,GL-PRSO ,FL-ALIVE>
+		    <NOT <RT-VISIBLE? ,GL-PRSO>>>
+		<TELL "Nothing happens." CR>)>>
+
+<ROUTINE PRE-DROP ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-DROP">>
+	<COND (<OR <MC-PRSO? ,TH-ANCHOR>
+		   <IN? ,GL-PRSO ,GL-WINNER>>
+	       <RFALSE>)
+	      (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+	       <RT-IMPOSSIBLE-MSG>)
+              (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+	       <RT-IMPOSSIBLE-MSG>)
+	      (T
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "not holding " THEO "." CR>
+	       <RFATAL>)>>
+
+<ROUTINE PRE-DUMB-EXAMINE ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-DUMB-EXAMINE">>
+	<COND (<PRE-EXAMINE>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-EXAMINE ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-EXAMINE">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-PRSO? ,TH-INTDIR>
+	       <COND (<==? ,GL-P-DIRECTION ,P?UP>
+		      <RT-PERFORM ,V?LOOK-UP ,ROOMS>
+		      <RTRUE>)
+		     (<==? ,GL-P-DIRECTION ,P?DOWN>
+		      <RT-PERFORM ,V?LOOK-DOWN ,ROOMS>
+		      <RTRUE>)>
+	       <TELL
+"You peer off into the middle distance, but then return your attention to
+the matters at hand." CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-FEED ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-FEED">>
+	<COND (<PRE-GIVE T>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-GIVE ("OPTIONAL" (FEED? <>))
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-GIVE">>
+	<COND (<OR <MC-F? ,GL-PRSO>
+		   <MC-F? ,GL-PRSI>>
+	       <TELL ,K-REFERRING-MSG CR>
+	       <RTRUE>)
+	      (<OR <EQUAL? ,GL-PRSO ,GL-PRSI>
+		   <IN? ,GL-PRSI ,GLOBAL-OBJECTS>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<MC-ISNOT? ,GL-PRSI ,FL-ALIVE>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot ">
+	       <COND (<MC-T? .FEED?>
+		      <TELL "feed ">)
+		     (T
+		      <TELL "give ">)>
+	       <TELL "anything to " A ,GL-PRSI "." CR>
+	       <RTRUE>)
+	      (<AND <MC-PRSI? ,CH-ME ,CH-PLAYER>
+		    <IN? ,GL-PRSO ,CH-PLAYER>>
+	       <RT-ALREADY-HAVE-PRSO-MSG>
+	       <RTRUE>)
+	      (<AND <NOT <MC-PRSI? ,CH-ME ,CH-PLAYER>>
+		    <RT-DONT-HAVE-MSG ,GL-PRSO>>
+	       <RTRUE>)
+	      (<AND <MC-IS? ,GL-PRSO ,FL-WORN>
+		    <IN? ,GL-PRSO ,CH-PLAYER>>
+	       <RT-TAKE-OFF-PRSO-FIRST-MSG>
+	       <RFALSE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-LISTEN ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-LISTEN">>
+	<COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+	       <RT-CYOU-MSG>
+	       <TELL
+"can't hear anything very clearly, but then what did you expect with those
+huge wads of cotton plugging up your ears?" CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-POCKET ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-POCKET">>
+	<COND (<N==? ,GL-WINNER ,CH-PLAYER>
+	       <TELL "[You cannot tell characters to do that.]" CR>
+	       <RTRUE>)
+	      (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<IN? ,GL-PRSO ,TH-POCKET>
+	       <TELL CTHEO>
+	       <RT-IS-ARE-MSG>
+	       <TELL "already in " D ,TH-POCKET "." CR>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-PUT ("AUX" PTR OLOC CNT)
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-PUT">>
+	<COND (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+	       <RFALSE>)
+	      (<AND <NOT <MC-PRSO? ,TH-ANCHOR>>
+		    <NOT <IN? ,GL-PRSO ,GL-WINNER>>>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "not holding " THEO "." CR>
+	       <RFATAL>)
+	      (<MC-PRSO? ,TH-CLOTHES>
+	       <TELL ,K-INAPPROPRIATE-MSG CR>
+	       <RTRUE>)
+	      (<MC-PRSO? GL-PRSI>
+	       <TELL ,K-HOW-TO-MSG CR>
+	       <RTRUE>)
+	      (<MC-PRSI? ,TH-INTDIR ,TH-RIGHT ,TH-LEFT>
+	       <TELL "[You must specify an object.]" CR>
+	       <RTRUE>)
+	      (<MC-PRSI? ,TH-HANDS>
+	       <RT-NOT-LIKELY-MSG ,GL-PRSO "would fit very well">
+	       <RTRUE>)
+	      (<EQUAL? ,TH-FEET ,GL-PRSO ,GL-PRSI>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>
+	       <RTRUE>)
+	      (<EQUAL? ,TH-EARS ,GL-PRSO ,GL-PRSI>
+	       <RFALSE>)
+	      (<MC-PRSO? ,TH-HANDS>
+	       <RT-PERFORM ,V?REACH-IN ,GL-PRSI>
+	       <RTRUE>)
+	      (<IN? ,GL-PRSI ,GLOBAL-OBJECTS>
+	       <RFALSE>)
+	      (<AND <MC-PRSO? ,TH-PIPE>
+		    <MC-PRSI? ,W?MOUTH ,W?LIPS>>
+	       <RT-PERFORM ,V?SMOKE ,TH-PIPE>)
+	      (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<IN? ,GL-PRSO ,GL-PRSI>
+	       <TELL CTHEO>
+	       <RT-IS-ARE-MSG>
+	       <TELL "already">
+	       <RT-IN-ON-MSG ,GL-PRSI>
+	       <TELL THEI "." CR>
+	       <RTRUE>)
+	      (<OR <EQUAL? ,GL-PRSO ,GL-PRSI>
+		   <IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+		   <MC-ISNOT? ,GL-PRSO ,FL-TAKEABLE>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<NOT <RT-ACCESSIBLE? ,GL-PRSI>>
+	       <RT-CANT-SEE-ANY-MSG ,GL-PRSI>
+	       <RTRUE>)
+	      (<AND <MC-PRSO? ,TH-STETHOSCOPE>
+		    <MC-IS? ,GL-PRSI ,FL-PERSON>>
+	       <RFALSE>)
+	      (<RT-CHECK-MOVE-MSG? ,GL-PRSO ,GL-PRSI>
+	       <RTRUE>)
+	      (<AND <MC-IS? ,GL-PRSO ,FL-WORN>
+		    <IN? ,GL-PRSO ,CH-PLAYER>
+		    <NOT <MC-PRSI? ,CH-ME ,CH-PLAYER>>>
+	       <RT-TAKE-OFF-PRSO-FIRST-MSG>
+	       <RFALSE>)>>
+
+<ROUTINE PRE-PUT-ON ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-PUT-ON">>
+	<COND (<PRE-PUT>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSI ,FL-ALIVE>
+	       <RFALSE>)
+	      (<MC-ISNOT? ,GL-PRSI ,FL-SURFACE>
+	       <RT-NO-GOOD-SURFACE-MSG>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-SHOW ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-SHOW">>
+	<COND (<EQUAL? <> ,GL-PRSO ,GL-PRSI>
+	       <TELL ,K-REFERRING-MSG CR>)
+	      (<MC-PRSI? ,CH-ME ,CH-PLAYER>
+	       <COND (<RT-META-IN? ,GL-PRSO ,CH-PLAYER>
+		      <RT-PERFORM ,V?EXAMINE ,GL-PRSO>)>)
+	      (<OR <EQUAL? ,GL-PRSO ,GL-PRSI>
+		   <IN? ,GL-PRSI ,GLOBAL-OBJECTS>>
+	       <RT-IMPOSSIBLE-MSG>)
+	      (<MC-ISNOT? ,GL-PRSI ,FL-ALIVE>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot show things to " A ,GL-PRSI "." CR>)
+	      ;(<MC-IS? ,GL-PRSI ,FL-ASLEEP>
+		<TELL CTHEI " isn't in any condition to appreciate " THEO "." CR>)
+	      ;(<AND <NOT <MC-PRSI? CH-ME>>
+		     <RT-DONT-HAVE-MSG ,GL-PRSO>>
+		<RTRUE>)>>
+
+<ROUTINE PRE-SHOOT ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-SHOOT">>
+	<COND (<NOT <MC-PRSI? <> ,TH-GUN>>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot shoot anything with " THEI "." CR>)
+	      (<MC-PRSI? ,GL-PRSO>
+	       <TELL ,K-HOW-TO-MSG CR>)
+	      (<NOT <IN? ,TH-GUN ,CH-PLAYER>>
+	       <TELL "Clever thinking. If only you had something to shoot with!" CR>)
+	      (<MC-PRSO? ,CH-ME ,TH-EARS ,CH-PLAYER ,TH-HEAD ,TH-WATSONS-HEART>
+	       <TELL ,K-SUICIDE-MSG CR>)
+	      (<MC-PRSO? ,TH-BREATH> <RFALSE>)
+	      (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+	       <TELL "Is this how you got sent home from the Afghan Campaign?"
+		     CR>)
+	      (<AND <NOT <MC-PRSO? ,TH-GUN>>
+		    <RT-META-IN? ,GL-PRSO ,CH-PLAYER>>
+	       <TELL ,K-DROP-IT-FIRST-MSG CR>)
+	      (<ZERO? ,TH-GUN-AUX1>
+	       <TELL "Click!" CR>)
+	      (T
+	       <SETG TH-GUN-AUX1 <- ,TH-GUN-AUX1 1>>
+	       <RFALSE>)>>
+
+<ROUTINE PRE-TAKE ("AUX" L)
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-TAKE">>
+	<COND (<AND <MC-PRSO? ,TH-BREATH>
+		    <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+	       <V-INHALE>
+	       <RTRUE>)>
+	<COND (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+	       <RFALSE>)>
+	<COND (<==? ,GL-PRSO <LOC ,GL-WINNER>>
+	       <RT-CYOU-MSG>
+	       <TELL "are already inside " THEO "." CR>
+	       <RTRUE>)>
+	<SET L <LOC ,GL-PRSO>>
+	<COND (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+	       <RT-IMPOSSIBLE-MSG>)
+	      (<AND <MC-PRSO? ,TH-STETHOSCOPE ,TH-WATSONS-HAT
+			      ,TH-COTTON-BALLS>
+		    <MC-IS? ,GL-PRSO ,FL-WORN>>
+	       <RFALSE>)
+	      (<EQUAL? .L ,GL-WINNER>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "already ">
+	       <COND (<MC-IS? ,GL-PRSO ,FL-WORN>
+		      <TELL "wearing ">)
+		     (T
+		      <TELL "holding ">)>
+	       <TELL THEO "." CR>)
+	      (<AND <MC-T? .L>
+		    <MC-IS? .L ,FL-CONTAINER>
+		    <MC-IS? .L ,FL-OPENABLE>
+		    <MC-ISNOT? .L ,FL-OPENED>>
+	       <RT-CYOU-MSG>
+	       <TELL "can't reach into " THE .L ". It is closed." CR>)
+	      (<MC-T? ,GL-PRSI>
+	       <COND (<MC-PRSO? GL-PRSI>
+		      <COND (<OR <EQUAL? <GET ,GL-P-NAMW 0> <GET ,GL-P-NAMW 1>>
+				 <EQUAL? <GET ,GL-P-ADJW 0> <GET ,GL-P-ADJW 1>>>
+			     <RT-IMPOSSIBLE-MSG>)>)
+		     (<MC-PRSI? ,CH-ME ,CH-PLAYER>
+		      <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+			     <RT-NOBODY-TO-ASK-MSG>
+			     <RTRUE>)
+			    (<NOT <EQUAL? .L ,CH-PLAYER>>
+			     <RT-CYOU-MSG "do not" "does not">
+			     <TELL "have " THEO "." CR>)>)
+		     (<AND <MC-PRSI? ,CH-BANK-GUARD>
+			   <EQUAL? .L ,TH-GUARDS-POCKET>>
+		      <RT-PERFORM ,V?TAKE ,GL-PRSO ,TH-GUARDS-POCKET>)
+		     (<NOT <EQUAL? .L ,GL-PRSI>>
+		      <TELL CTHEO>
+		      <RT-ISNT-ARENT-MSG>
+		      <RT-IN-ON-MSG ,GL-PRSI <>>
+		      <TELL THEI "." CR>)>)>>
+
+<ROUTINE PRE-THROW ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-THROW">>
+	<COND (<PRE-PUT>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-THROW-OVER ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-THROW-OVER">>
+	<COND (<PRE-THROW>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE PRE-WATCH ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "PRE-WATCH">>
+	<COND (<PRE-EXAMINE>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE V-ADJUST ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ADJUST">>
+	<COND (<EQUAL? ,GL-P-PRSA-WORD ,W?ADJUST>
+	       <TELL CTHEO>
+	       <RT-DONT-DOESNT-MSG ,GL-PRSO>
+	       <TELL "need adjustment." CR>
+	       <RTRUE>)
+	      (T 
+	       <RT-CYOU-MSG>
+	       <TELL "cannot focus " A ,GL-PRSO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-ALARM ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ALARM">>
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RFATAL>)
+	      (<MC-PRSO? ,ROOMS>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "already wide awake." CR>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-ALIVE>
+	       <TELL CTHEO>
+	       <RT-IS-ARE-MSG ,GL-PRSO>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-ASLEEP>
+		      <TELL "unconscious, not asleep." CR>)
+		     (T
+		      <TELL "already wide awake." CR>)>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-ARREST ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ARREST">>
+	<TELL "Unfortunately,">
+	<RT-YOU-MSG "do" "does">
+	<TELL "not have the authority to arrest any">
+	<COND (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <TELL "one">)
+	      (T
+	       <TELL "thing">)>
+	<TELL "." CR>>
+
+<ROUTINE V-ASK-ABOUT-1 ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ASK-ABOUT-1">>
+	<RTRUE>>
+
+<ROUTINE V-ASK-ABOUT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ASK-ABOUT">>
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RFATAL>)
+	      (<EQUAL? ,GL-WINNER ,GL-PRSI>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>
+	       <RFATAL>)
+	      (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <RT-TALK-TO-SELF-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-RESPONSE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-ASK-FOR-1 ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ASK-FOR-1">>
+	<RTRUE>>
+
+<ROUTINE V-ASK-FOR ("AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-VERB "V-ASK-FOR">>
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RFATAL>)
+	      (<EQUAL? ,GL-WINNER ,GL-PRSI>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<MC-ISNOT? ,GL-PRSI ,FL-TAKEABLE>
+	       <TELL CTHE ,GL-PRSO " say">
+	       <RT-S-NOS-MSG ,GL-PRSO>
+	       <TELL ", \"Unfortunately, ">
+	       <COND (<MC-ISNOT? ,GL-PRSO ,FL-PLURAL>
+		      <TELL "I">)
+		     (T
+		      <TELL "we">)>
+	       <TELL " can't help you with that.\"" CR>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-RESPONSE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-BLOW-INTO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-BLOW-INTO">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-PERFORM ,V?USE ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-POINT-MSG "Blowing">
+	       <RTRUE>)>>
+
+<ROUTINE V-BOW ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-BOW">>
+	<RT-NO-POINT-MSG "Paying respect to">
+	<RTRUE>>
+
+<ROUTINE V-BURN ("AUX" OBJ (FIX-LAMP? <>))
+	<COND (<AND <RT-META-IN? ,TH-LAMP ,GL-WINNER>
+		    <FSET? ,TH-LAMP ,FL-LIGHTED>>
+	       <SET FIX-LAMP? T>
+	       <FCLEAR ,TH-LAMP ,FL-LIGHTED>)>
+	<COND (<AND <SET OBJ <RT-GET-WHAT-I-MEAN ,FL-LIGHTED <+ ,SH ,SC ,SHAVE>
+						 ,PR?WITH T T>>
+		    <N==? .OBJ ,TH-LAMP>>
+	       <COND (.FIX-LAMP? <FSET ,TH-LAMP ,FL-LIGHTED>)>
+	       <TELL "[with " THE .OBJ "]" CR>
+	       <RT-PERFORM ,V?BURN-WITH ,GL-PRSO .OBJ>
+	       <RTRUE>)
+	      (T
+	       <COND (.FIX-LAMP? <FSET ,TH-LAMP ,FL-LIGHTED>)>
+	       <PUT ,GL-P-ITBL ,K-P-PREP2 ,PR?WITH>
+	       <RT-SYNTAX-CHECK>
+	       <SETG GL-P-GOOD <>>
+	       <RFATAL>)>>
+
+<ROUTINE V-BURN-WITH ()
+   <DEBUGGING? <RT-DEBUG-VERB "V-BURN-WITH">>
+   <COND (<MC-IS? ,GL-PRSO ,FL-BURNABLE>
+	  <COND (<AND <MC-IS? ,GL-PRSI ,FL-BURNABLE>
+		      <MC-IS? ,GL-PRSI ,FL-LIGHTED>>
+		 <COND (<AND <RT-META-IN? ,TH-ETHERIUM-AMPOULE ,GL-PRSO>
+			     <NOT <FSET? ,TH-ETHERIUM-AMPOULE ,FL-BROKEN>>>
+			<TELL CTHEO " catches fire, and quickly generates
+enough heat to affect the etherium you left inside it.">
+			<RT-PERFORM ,V?BURN-WITH ,TH-ETHERIUM-AMPOULE ,GL-PRSI>
+			<RTRUE>)>
+		 <REMOVE ,GL-PRSO>
+		 <FCLEAR ,GL-PRSO ,FL-WORN>
+		 <TELL CTHEO " catches fire and is quickly consumed." CR>)
+		(T
+		 <TELL CTHEI>
+		 <RT-ISNT-ARENT-MSG ,GL-PRSI>
+		 <TELL "burning." CR>)>)
+	 (T
+	  <RT-CYOU-MSG>
+	  <TELL "can't " VW " " THEO "." CR>)>>
+
+<ROUTINE V-BUY ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-BUY">>
+	<COND (<NOT <RT-VISIBLE? ,GL-PRSO>>
+	       <RT-CANT-SEE-ANY-MSG ,GL-PRSO>
+	       <RFATAL>)
+	      (<RT-HELD? ,GL-PRSO>
+	       <RT-ALREADY-HAVE-PRSO-MSG>
+	       <RTRUE>)
+	      (<MC-ISNOT? ,GL-PRSO ,FL-BUYABLE>
+	       <TELL CTHEO>
+	       <RT-ISNT-ARENT-MSG>
+	       <TELL "for sale." CR>
+	       <RTRUE>)	       
+	      (<AND <EQUAL? ,GL-WINNER ,CH-PLAYER>
+		    <IN? ,GL-PRSO ,TH-POCKET>>
+	       <RT-SAY-ITS-MSG>
+	       <TELL "in " THE ,TH-POCKET "." CR>
+	       <RTRUE>)
+	      (<MC-T? ,GL-PRSI>
+	       <RT-CYOU-MSG "could not" "cannot">
+	       <TELL "buy " THEO " with " A ,GL-PRSI "." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-MONEY-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-BUY-FROM ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-BUY-FROM">>
+	<TELL "It's not for sale." CR>
+	<RFATAL>>
+
+<ROUTINE V-CALL ()
+	<DEBUGGING? <RT-DEBUG-PRE-VERB "V-CALL">>
+	<COND (<EQUAL? <LOC ,GL-PRSO> ,GL-PLACE-CUR>
+	       <TELL CTHEO>
+	       <RT-IS-ARE-MSG ,GL-PRSO>
+	       <TELL "right in front of you." CR>)
+	      (T
+	       <TELL "Nothing happens." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-CAST-OFF ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CAST-OFF">>
+	<COND (<NOT <MC-PRSO? ,ROOMS ,TH-BOAT>>
+	       <V-DROP>)
+	      (<OR <IN? ,CH-PLAYER ,TH-BOAT>
+		   <EQUAL? <LOC ,CH-PLAYER> <LOC ,TH-BOAT>>>
+	       <RT-LAUNCH-BOAT>)
+	      (T
+	       <TELL
+"Clever idea. Now, if only you were in a boat...." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-CLEAN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLEAN">>
+	<TELL "Sorry. You get no points for neatness." CR>
+	<RFATAL>>
+
+<ROUTINE V-CLEAN-OFF ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLEAN-OFF">>
+	<COND (<MC-PRSO? GL-PRSI>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot ">
+	       <PRINTB ,GL-P-PRSA-WORD>
+	       <TELL " " THEO " on " THEI "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLIMB-DOWN">>
+	<COND (<EQUAL? ,GL-P-PRSA-WORD ,W?JUMP ,W?LEAP>
+	       <RT-PERFORM ,V?DIVE ,GL-PRSO>
+	       <RTRUE>)
+	      (<MC-PRSO? ,ROOMS>
+	       <RT-DO-WALK ,P?DOWN>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-CLIMB-ON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLIMB-ON">>
+	<COND (<EQUAL? ,GL-P-PRSA-WORD ,W?TAKE>
+	       <RT-NOT-LIKELY-MSG ,GL-PRSO "is looking for a fight">
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot ">
+	       <PRINTB ,GL-P-PRSA-WORD>
+	       <TELL " onto ">
+	       <RT-SAY-HIM-HER-THEM-IT-MSG>
+	       <TELL "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-CLIMB-OVER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLIMB-OVER">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <V-WALK-AROUND>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot climb over ">
+	       <RT-SAY-HIM-HER-THEM-IT-MSG>
+	       <TELL "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-CLIMB-UP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLIMB-UP">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <RT-DO-WALK ,P?UP>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-CLOSE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CLOSE">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-OPENABLE>
+	       <COND (<MC-ISNOT? ,GL-PRSO ,FL-OPENED>
+		      <RT-ITS-ALREADY-MSG "closed">)
+		     (<MC-IS? ,GL-PRSO ,FL-LOCKED>
+		      <TELL
+"The door is fixed in the open position. It cannot be closed." CR>) 
+		     (T
+		      <RT-YOU-CLOSE-MSG>)>
+	       <RTRUE>)
+	      (T
+	       <RT-CANT-CLOSE-THAT-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-COUNT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-COUNT">>
+	<COND (<==? <GET ,GL-P-NAMW 0> ,W?ARMS ,W?EARS ,W?EYES
+		    ,W?FEET ,W?HANDS ,W?LEGS ,W?LIPS> 
+	       <TELL "Two." CR>)
+	      (<OR <MC-IS? ,GL-PRSO ,FL-PLURAL>
+		   <EQUAL? ,GL-PRSO ,TH-BANK-OF-CANDLES>>
+	       <RT-CYOU-MSG "become" "becomes">
+	       <TELL "distracted and lose">
+	       <COND (<NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+		      <TELL "s">)>
+	       <TELL " count." CR>)
+	      (T
+	       <RT-CYOU-MSG "see" "sees">
+	       <TELL "only one." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-COVER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-COVER">>
+	<RT-PERFORM ,V?PUT-ON ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-CROSS ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CROSS">>
+	<RT-CYOU-MSG>
+	<TELL "cannot cross ">
+	<RT-SAY-HIM-HER-THEM-IT-MSG>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-CUT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-CUT">>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-DETONATE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DETONATE">>
+	<RT-IMPOSSIBLE-MSG>
+	<RTRUE>>
+
+<ROUTINE V-DIAGNOSE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DIAGNOSE">>
+	<COND (<MC-ISNOT? ,GL-PRSO ,FL-ALIVE>
+	       <TELL "Don't be ridiculous." CR>)
+	      (<MC-IS? ,GL-PRSO ,FL-ASLEEP>
+	       <TELL CTHEO>
+	       <RT-IS-ARE-MSG ,GL-PRSO>
+	       <TELL "asleep." CR>)
+	      (<EQUAL? ,GL-PRSO ,CH-PLAYER ,CH-ME>
+	       <TELL "You're doing fine. Now quit fooling around and get back
+to solving the game." CR>)
+	      (T
+	       <TELL CTHEO " appear">
+	       <RT-S-NOS-MSG ,GL-PRSO>
+	       <TELL " to be in good health." CR>)>
+	<RTRUE>>
+
+;<ROUTINE V-DIG ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DIG">>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+;<ROUTINE V-DIG-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DIG-SWP">>
+	<RT-PERFORM ,V?DIG ,GL-PRSI ,GL-PRSO>
+	<RFATAL>>
+
+<ROUTINE V-DIVE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DIVE">>
+	<COND (<AND <MC-PRSO? ,ROOMS>
+		    <MC-HERE? ,RM-THE-EMBANKMENT ,RM-SWAN-LANE ,RM-LONDON-BRIDGE>>
+	       <TELL "Yuck! Have you looked at that water?" CR>)
+	      (T
+	       <TELL "That would be a foolish thing to do." CR>)>
+	<RFATAL>>
+
+<ROUTINE V-DRESS ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DRESS">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <TELL "You are already dressed." CR>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "already dressed." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot dress " A ,GL-PRSO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-DRINK ("OPTIONAL" (FROM? <>))
+	<DEBUGGING? <RT-DEBUG-VERB "V-DRINK">>
+	<RT-CYOU-MSG>
+	<TELL "cannot drink ">
+	<COND (<MC-T? .FROM?>
+	       <TELL "from ">)>
+	<TELL D ,TH-NOT-HERE-OBJECT "." CR>
+	<RTRUE>>
+
+<ROUTINE V-DRINK-FROM ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DRINK-FROM">>
+	<V-DRINK T>
+	<RTRUE>>
+
+<ROUTINE V-DRIVE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DRIVE">>
+	<COND (<EQUAL? <LOC ,GL-WINNER> ,TH-HANSOM-CAB ,TH-GROWLER-CAB>
+	       <COND (<MC-PRSO? ,ROOMS>
+		      <RTRUE>)
+		     (T
+		      <SETG GL-WHERE-TO-PROMPT? <>>
+		      <TELL
+"\"Sorry, guv. Could you be a little more specific?\"" CR>)>)
+	      (T
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "not in a cab." CR>)>>
+
+<ROUTINE V-DROP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DROP">>
+	<COND (<RT-IDROP-MSG>
+	       <RT-SAY-DROPPED-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-DUMB-EXAMINE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-DUMB-EXAMINE">>
+	<COND (<V-EXAMINE>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE V-EAT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-EAT">>
+	<COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <RT-NOT-LIKELY-MSG ,GL-PRSO "would agree with you">
+	       <RTRUE>)
+	      (T
+	       <TELL "\"It" <RT-PICK-NEXT ,GL-NOT-LIKELY-TXT>
+		     " that " THEO " would agree with me.\"" CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-EMPTY ("OPTIONAL" (DEST <>))
+	<DEBUGGING? <RT-DEBUG-VERB "V-EMPTY">>
+	<COND (<MC-F? .DEST>
+	       <SET DEST ,CH-PLAYER>)>
+	<COND (<MC-IS? ,GL-PRSO ,FL-SURFACE>
+	       <RT-EMPTY-PRSO-MSG .DEST>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-EMPTY-PRSO-MSG .DEST>
+		      <RTRUE>)
+		     (T
+		      <RT-ITS-CLOSED-MSG ,GL-PRSO>)>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot possibly empty " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-EMPTY-INTO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-EMPTY-INTO">>
+	<COND (<MC-PRSI? ,TH-HANDS ,CH-ME ,CH-PLAYER>
+	       <V-EMPTY ,CH-PLAYER>)
+	      (<OR <RT-IDENTIFY-FLOOR? ,W?GROUND ,GL-PRSI>
+		   <RT-IDENTIFY-FLOOR? ,W?FLOOR ,GL-PRSI>>
+	       <V-EMPTY ,GL-PRSI>)
+	      (<MC-IS? ,GL-PRSI ,FL-SURFACE>
+	       <V-EMPTY ,GL-PRSI>)
+	      (<MC-IS? ,GL-PRSI ,FL-CONTAINER>
+	       <COND (<MC-IS? ,GL-PRSI ,FL-OPENED>
+		      <COND (<MC-IS? ,GL-PRSI ,TH-WATSONS-COAT>
+			     <V-EMPTY ,TH-POCKET>)
+		            (T
+			     <V-EMPTY ,GL-PRSI>)>)
+		     (T
+		      <RT-ITS-CLOSED-MSG ,GL-PRSI>)>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot empty " THEO " into " THEI "." CR>)>>
+
+<ROUTINE V-ENTER ("AUX" VEH)
+	<DEBUGGING? <RT-DEBUG-VERB "V-ENTER">>
+	<COND (<==? ,GL-PRSO ,GL-PLACE-CUR>
+	       ; "Enter the room you're in"
+	       <RT-ALREADY-IN-ROOM-MSG>
+	       <RTRUE>)
+	      (<SET VEH <RT-FIND-IN? ,GL-PLACE-CUR ,FL-VEHICLE>>
+	       <COND (<NOT <MC-PRSO? ,ROOMS .VEH>> T)
+		     (<IN? ,GL-WINNER .VEH> 
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "already in " THE .VEH "." CR>
+		      <RTRUE>)
+		     (T
+		      <RT-PERFORM ,V?ENTER .VEH>
+		      <RTRUE>)>)>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <RT-DO-WALK ,P?IN>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-CLOTHING>
+	       <TELL "[Presumably, you mean WEAR " THEO ".]" CR>
+	       <RT-PERFORM ,V?WEAR ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-ESCAPE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ESCAPE">>
+	<V-WALK-AROUND>
+	<RTRUE>>
+
+<ROUTINE V-EXAMINE ("AUX" (ODF <>) NUM (DRES 0))
+  <DEBUGGING? <RT-DEBUG-VERB "V-EXAMINE">>
+  <COND (<FSET? ,GL-PRSO ,FL-HAS-DESCFCN>
+	 <SET ODF <GETP ,GL-PRSO ,P?ACTION>>)>
+  <COND (<MC-T? <SET NUM <RT-HOLE? ,GL-PRSO>>>
+	 <TELL "There ">
+	 <COND (<EQUAL? .NUM 1>
+		<TELL "is one">)
+	       (T
+		<TELL "are ">
+		<COND (<EQUAL? .NUM 2>
+		       <TELL "two">)
+		      (<EQUAL? .NUM 3>
+		       <TELL "three">)
+		      (<EQUAL? .NUM 4>
+		       <TELL "four">)
+		      (<EQUAL? .NUM 5>
+		       <TELL "five">)
+		      (T
+		       <TELL "six">)>)>
+	 <TELL " bullet hole">
+	 <COND (<G? .NUM 1>
+		<TELL "s">)>
+	 <TELL " in " THEO "." CR>)>
+  <COND (<AND <MC-T? .ODF>
+	      <==? <SET DRES <APPLY .ODF ,K-M-DESCFCN>> 1>>
+	 <MC-MAKE ,GL-PRSO ,FL-SEEN>
+	 <RTRUE>)
+	(<MC-IS? ,GL-PRSO ,FL-OPENABLE>
+	 <RT-OPEN-CLOSED-MSG>
+	 <CRLF>
+	 <MC-MAKE ,GL-PRSO ,FL-SEEN>
+	 <RTRUE>)
+	(<MC-IS? ,GL-PRSO ,FL-SURFACE>
+	 <TELL "On " THEO " can be seen ">
+	 <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+	 <TELL "." CR>
+	 <MC-MAKE ,GL-PRSO ,FL-SEEN>
+	 <RTRUE>)
+	(<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+	 <COND (<OR <MC-IS? ,GL-PRSO ,FL-OPENED>
+		    <MC-IS? ,GL-PRSO ,FL-TRANSPARENT>>
+		<V-LOOK-INSIDE>
+		<MC-MAKE ,GL-PRSO ,FL-SEEN>
+		<RTRUE>)
+	       (T
+		<RT-ITS-CLOSED-MSG ,GL-PRSO>
+		<CRLF>
+		<MC-MAKE ,GL-PRSO ,FL-SEEN>
+		<RTRUE>)>)
+	(<AND <MC-IS? ,GL-PRSO ,FL-PERSON>
+	      <RT-SEE-ANYTHING-IN? ,GL-PRSO>>
+	 <TELL CTHEO>
+	 <RT-IS-ARE-MSG ,GL-PRSO>
+	 <TELL "holding ">
+	 <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+	 <TELL "." CR>
+	 <MC-MAKE ,GL-PRSO ,FL-SEEN>
+	 <RTRUE>)
+	(<MC-T? .NUM>
+	 <RTRUE>)
+	(<T? .DRES>
+	 <RTRUE>)
+	(T
+	 <RT-NOTHING-INTERESTING-MSG>
+	 <TELL " about " THEO "." CR>
+	 <MC-MAKE ,GL-PRSO ,FL-SEEN>
+	 <RTRUE>)>>
+
+<ROUTINE V-EXHALE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-EXHALE">>
+	<COND (<NOT <MC-PRSO? ,TH-BREATH ,ROOMS>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<MC-ISNOT? ,TH-BREATH ,FL-LOCKED>
+	       <RT-CYOU-MSG>
+	       <RT-WOULD-HAVE-TO-MSG "inhale first.|">
+	       <RTRUE>)
+	      (T
+	       <MC-UNMAKE ,TH-BREATH ,FL-LOCKED>
+	       <TELL "You begin to breathe normally." CR>
+	       <RT-ALARM-CLR ,RT-I-EXHALE>
+	       <RT-ALARM-CLR ,RT-I-INHALE>
+	       <RT-SMELL-ETHERIUM?>)>
+	<RTRUE>>
+
+<ROUTINE V-EXIT ("AUX" VEH L)
+	<DEBUGGING? <RT-DEBUG-VERB "V-EXIT">>
+	<COND (<SET VEH <RT-FIND-IN? ,GL-PLACE-CUR ,FL-VEHICLE>>
+	       <COND (<NOT <MC-PRSO? ,ROOMS .VEH>> T)
+		     (<AND <MC-PRSO? ,ROOMS>
+			   <MC-IS? <LOC ,GL-WINNER> ,FL-VEHICLE>>
+		      <RT-PERFORM ,V?EXIT <LOC ,GL-WINNER>>
+		      <RTRUE>)
+		     (<NOT <IN? ,GL-WINNER .VEH>> 
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not in " THE .VEH "." CR>
+		      <RTRUE>)
+		     (T
+		      <RT-PERFORM ,V?EXIT .VEH>
+		      <RTRUE>)>)>
+	<SET L <LOC ,GL-PRSO>>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <RT-DO-WALK ,P?OUT>
+	       <RTRUE>)
+	      (<==? ,GL-PRSO ,GL-PLACE-CUR>
+	       ; "EXIT ROOM"
+	       <TELL ,K-SPECIFY-DIR-MSG CR>
+	       <RTRUE>)
+	      (<==? .L ,ROOMS>
+	       ; "EXIT ROOM when not in ROOM"
+	       <RT-NOT-IN-ROOM-MSG>
+	       <RTRUE>)
+	      (<AND 
+		<MC-IS? .L ,FL-CONTAINER>
+		<RT-VISIBLE? ,GL-PRSO>>
+	       <TELL "[from " D .L "]" CR>
+	       <RT-PERFORM ,V?TAKE ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-FEED ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FEED">>
+	<COND (<EQUAL? ,GL-PRSI ,GL-WINNER>
+	       <RT-CYOU-MSG>)
+	      (T
+	       <TELL CTHE ,GL-PRSI " ">)>
+	<TELL "cannot eat " THE ,GL-PRSO "." CR>
+	<RTRUE>>
+
+<ROUTINE V-FEED-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FEED-SWP">>
+	<RT-PERFORM ,V?FEED ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-FILL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FILL">>
+	<RT-PERFORM ,V?PUT ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-FIND ("AUX" L)
+	<DEBUGGING? <RT-DEBUG-VERB "V-FIND">>
+	<SET L <LOC ,GL-PRSO>>
+	<COND (<MC-F? .L>
+	       <TELL ,K-DO-IT-YOURSELF-MSG CR>
+	       <RTRUE>)
+	      (<MC-PRSO? ,CH-ME ,CH-PLAYER ,TH-HANDS ,TH-WATSONS-HEART
+			 ,TH-FEET ,TH-EARS ,TH-HEAD ,TH-PLAYER-BODY
+			 ,TH-BREATH ,TH-CLOTHES>
+	       <TELL "You're right here." CR>
+	       <RTRUE>)
+	      (<IN? ,GL-PRSO ,CH-PLAYER>
+	       <TELL "You're ">
+	       <COND (<MC-IS? ,GL-PRSO ,FL-WORN>
+		      <TELL "wearing">)
+		     (T
+		      <TELL "holding">)>
+	       <TELL " ">
+	       <RT-SAY-HIM-HER-THEM-IT-MSG>
+	       <TELL "." CR>
+	       <RTRUE>)
+	      (<OR <IN? ,GL-PRSO ,GL-PLACE-CUR>
+		   <==? ,GL-PRSO ,GL-PLACE-CUR>
+		   <AND <OR <IN? ,GL-PRSO ,LOCAL-GLOBALS>
+			    <IN? ,GL-PRSO ,ROOMS>>
+			<RT-GLOBAL-IN? ,GL-PRSO ,GL-PLACE-CUR>>>
+	       <RT-ITS-RIGHT-HERE-MSG>
+	       <RTRUE>)
+	      (<AND <OR <MC-IS? .L ,FL-PERSON>
+			<MC-IS? .L ,FL-ALIVE>>
+		    <RT-VISIBLE? .L>>
+	       <TELL CTHE .L " ha">
+	       <COND (<MC-ISNOT? .L ,FL-PLURAL>
+		      <TELL "s">)
+		     (T
+		      <TELL "ve">)>
+	       <TELL " it." CR>
+	       <RTRUE>)
+	      (<AND <RT-SEE-INSIDE? .L>
+		    <RT-VISIBLE? .L>>
+	       <RT-SAY-ITS-MSG>
+	       <RT-IN-ON-MSG .L <>>
+	       <TELL THE .L "." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL ,K-DO-IT-YOURSELF-MSG CR>)>
+	<RTRUE>>
+
+<ROUTINE V-FLIP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FLIP">>
+	<COND (<AND <MC-ISNOT? ,GL-PRSO ,FL-TAKEABLE>
+		    <MC-ISNOT? ,GL-PRSO ,FL-TRYTAKE>>
+	       <RT-IMPOSSIBLE-MSG>)
+	      (T
+	       <RT-NO-POINT-MSG "Flipping">)>
+	<RTRUE>>
+
+<ROUTINE V-FLY ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FLY">>
+	<RT-CYOU-MSG>
+	<TELL "cannot possibly do that." CR>>
+
+<ROUTINE V-FOCUS-ON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FOCUS-ON">>
+	<COND (<MC-F? ,GL-PRSI>
+	       <COND (<MC-PRSO? ,TH-TELESCOPE>
+		      <RT-IMPOSSIBLE-MSG>)
+		     (<IN? ,TH-TELESCOPE ,CH-PLAYER>
+		      <RT-PERFORM ,V?LOOK-THRU ,GL-PRSO ,TH-TELESCOPE>)
+		     (T
+		      <TELL ,K-HOW-TO-MSG CR>)>)
+	      (T
+	       <COND (<MC-PRSO? ,TH-TELESCOPE>
+		      <RT-PERFORM ,V?LOOK-THRU ,GL-PRSI ,GL-PRSO>)
+		     (T
+		      <RT-CYOU-MSG>
+		      <TELL "cannot focus " THEO " on " THEI "." CR>)>)>
+	<RTRUE>>
+
+<ROUTINE V-FOLD ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FOLD">>
+	<RT-NO-POINT-MSG "Folding">
+	<RTRUE>>
+
+<ROUTINE V-FOLLOW ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FOLLOW">>
+	<COND (<MC-F? ,GL-PRSO>
+	       <RT-CANT-SEE-ANY-MSG>
+	       <RFATAL>)
+	      (<AND <NOT <RT-META-IN? ,GL-PRSO ,GL-PLACE-CUR>>
+		    <NOT <EQUAL? <LOC ,GL-PRSO> ,LOCAL-GLOBALS
+				 ,GLOBAL-OBJECTS>>>
+	       <RT-CANT-SEE-ANY-MSG ,GL-PRSO>
+	       <RFATAL>)>
+	<TELL "But ">
+	<COND (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <TELL "you're right here." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL THEO>
+	       <RT-IS-ARE-MSG ,GL-PRSO>
+	       <COND (<OR <RT-VISIBLE? ,GL-PRSO>
+			  <IN? ,GL-PRSO ,GLOBAL-OBJECTS>>
+		      <TELL "right here">)
+		     (T
+		      <TELL "not visible at the moment">)>)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-FOO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-FOO">>
+	<COND (<MC-VERB-WORD? RENT>
+	       <TELL CTHEO>
+	       <RT-ISNT-ARENT-MSG>
+	       <TELL "for rent." CR>)
+	      (<MC-PRSO? ,ROOMS>
+	       <TELL "Same to you, fella." CR>)>>
+
+<ROUTINE V-GET-FOR ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-GET-FOR">>
+	<RT-PERFORM ,V?TAKE ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-GET-FOR-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-GET-FOR-SWP">>
+	<RT-PERFORM ,V?TAKE ,GL-PRSI>
+	<RTRUE>>
+
+<ROUTINE V-GIN ("AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-VERB "V-GIN">>
+	<COND (<MC-HERE? ,RM-BYWARD-TOWER>
+	       <TELL
+CTHE ,CH-TOWER-GUARD " takes a quick look around and says, \"Thanks. Don't
+mind if I do,\" whereupon he whips out a hip flask and takes a quick
+slug. Just as quickly, he tucks it away and resumes staring at you." CR>)
+	      (T
+	       <SET WHO <RT-WHO-SAYS?>>
+	       <COND (<EQUAL? .WHO ,CH-HOLMES>
+		      <TELL
+"Holmes shakes his head and says, \"No drinks for you until we recover the
+Crown Jewels.\"" CR>)
+		     (<EQUAL? .WHO ,CH-WIGGINS>
+		      <TELL
+"Wiggins says, \"Good idea. I could use a belt.\"" CR>)
+		     (T
+		      <TELL "Wrong game, dummy." CR>)>)>
+	<RTRUE>>
+
+<ROUTINE V-GIVE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-GIVE">>
+	<COND (<MC-PRSI? ,CH-ME ,CH-PLAYER>
+	       <RT-NOBODY-TO-ASK-MSG>)
+	      (<AND <EQUAL? ,GL-PRSI ,CH-TOWER-GUARD ,CH-PALACE-GUARD
+							 ,CH-TUSSAUDS-GUARD>
+		    <MC-IS? ,GL-PRSO ,FL-MONEY>>
+	       <TELL 
+CTHEI " doesn't even glance at " THEO ". Clearly he cannot be bribed." CR>)
+	      (<MC-IS? ,GL-PRSI ,FL-PERSON>
+	       <TELL CTHEI " show">
+	       <RT-S-NOS-MSG ,GL-PRSI>
+	       <TELL " little interest in your offer." CR>)
+	      (T
+	       <RT-NOT-LIKELY-MSG ,GL-PRSI "would accept your offer">)>
+	<RTRUE>>
+
+<ROUTINE V-GIVE-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-GIVE-SWP">>
+	<RT-PERFORM ,V?GIVE ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-GOODBYE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-GOODBYE">>
+	<RT-HI-BYE-MSG>>
+
+<ROUTINE V-GUESS ("AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-VERB "V-GUESS">>
+	<SET WHO <RT-WHO-SAYS?>>
+	<COND (<EQUAL? .WHO ,CH-WIGGINS>
+	       <TELL
+"Wiggins says, \"Mr 'Olmes doesn't like people guessing about things.\"" CR>
+	       <RTRUE>)>
+	<COND (<EQUAL? ,GL-WINNER ,CH-HOLMES>
+	       <TELL "Holmes looks at you in shock and says, \"I never">)
+	      (<EQUAL? .WHO ,CH-HOLMES>
+	       <TELL "Holmes shakes his head and says, \"Never">)
+	      (T
+	       <TELL "Holmes's words come back to you, \"Never">)>
+	<TELL " guess, Watson. It is a shocking habit - destructive
+to the logical faculty.\"" CR>
+	<RTRUE>>
+
+<ROUTINE V-HAGGLE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HAGGLE">>
+	<COND (<MC-ISNOT? ,GL-PRSO ,FL-PERSON>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot " VW " with " AO "." CR>)
+	      (<MC-PRSO? ,CH-HOLMES>
+	       <TELL
+"There is nothing to negotiate with " THE ,CH-HOLMES " about." CR>)
+	      (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <TELL "You have nothing to negotiate." CR>)
+	      (T
+	       <TELL CTHEO " refuse">
+	       <RT-S-NOS-MSG ,GL-PRSO>
+	       <TELL " to negotiate." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-HAUL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HAUL">>
+	<TELL "You're a doctor, not a sailor." CR>
+	<RTRUE>>
+
+<ROUTINE V-HEAT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HEAT">>
+	<RT-NO-POINT-MSG "Heating">>
+
+<ROUTINE V-HELLO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HELLO">>
+	<RT-HI-BYE-MSG>>
+
+;<ROUTINE V-ASK-FOR-HELP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ASK-FOR-HELP">>
+	<TELL "Wimp." CR>
+	<RTRUE>>
+
+<ROUTINE V-HIDE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HIDE">>
+	<TELL "You can run, but you cannot hide." CR>
+	<RTRUE>>
+
+<ROUTINE V-HIT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HIT">>
+	<TELL "Attacking " THEO>
+	<COND (<AND <MC-T? ,GL-PRSI>
+		    <NOT <MC-PRSI? ,TH-HANDS>>>
+	       <TELL " with " A ,GL-PRSI>)>
+	<TELL ,K-WONT-HELP-MSG CR>
+	<RTRUE>>
+
+<ROUTINE V-HOLD-OVER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HOLD-OVER">>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-HUSH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-HUSH">>
+	<TELL "Silence is golden." CR>
+	<RTRUE>>
+
+<ROUTINE V-INHALE ()
+      <DEBUGGING? <RT-DEBUG-VERB "V-INHALE">>
+      <COND (<NOT <MC-PRSO? ,TH-BREATH ROOMS>>
+	     <RT-IMPOSSIBLE-MSG>
+	     <RTRUE>)
+	    (<MC-IS? ,TH-BREATH ,FL-LOCKED>
+	     <COND (<EQUAL? ,GL-P-PRSA-WORD ,W?BREATHE>
+		    <V-EXHALE>
+		    <RTRUE>)
+		   (T
+		    <TELL "You are already holding " THE ,TH-BREATH "." CR>
+		    <RTRUE>)>)
+	    (T
+	     <TELL "You take a deep breath.">
+	     <COND (<EQUAL? ,GL-PUPPY ,CH-HOLMES>
+		    <TELL " " CTHE ,CH-HOLMES
+" notices your action and surreptitiously does likewise.">)>
+	     <CRLF>)>
+      <RT-ALARM-SET-REL ,RT-I-EXHALE <RT-PARM-SET 0 2 0>>
+      <MC-MAKE ,TH-BREATH ,FL-LOCKED>
+      <SETG GL-CLOCK-WAIT T>
+      <RTRUE>>
+
+<ROUTINE V-KICK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-KICK">>
+	<RT-NO-POINT-MSG "Kicking">
+	<RTRUE>>
+
+<ROUTINE V-KILL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-KILL">>
+	<TELL "Calm down." CR>
+	<RTRUE>> 
+
+<ROUTINE V-KISS ()
+    <DEBUGGING? <RT-DEBUG-VERB "V-KISS">>
+    <TELL "You really can't wait for the Victorian Era to end, can you?" CR>>
+
+<ROUTINE V-KNOCK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-KNOCK">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-DOOR>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-ITS-ALREADY-MSG "open">
+		      <RTRUE>)>
+	       <TELL "There's no answer." CR>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-PERFORM ,V?USE ,GL-PRSO>
+	       <RTRUE>)>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-LEAP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LEAP">>
+	<COND (<NOT <MC-PRSO? ,ROOMS>>
+	       <TELL "No." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>
+	       <RTRUE>)>
+	<RTRUE>>
+
+<ROUTINE V-LIE-DOWN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LIE-DOWN">>
+	<TELL "With so much at stake, resting is out of the question." CR>
+	<RTRUE>>
+
+<ROUTINE V-LIGHT ("AUX" OBJ (FIX-LAMP? <>))
+	<COND (<AND <RT-META-IN? ,TH-LAMP ,GL-WINNER>
+		    <FSET? ,TH-LAMP ,FL-LIGHTED>>
+	       <SET FIX-LAMP? T>
+	       <FCLEAR ,TH-LAMP ,FL-LIGHTED>)>
+	<COND (<AND <SET OBJ <RT-GET-WHAT-I-MEAN ,FL-LIGHTED <+ ,SH ,SC ,SHAVE>
+						 ,PR?WITH T T>>
+		    <N==? .OBJ ,TH-LAMP>>
+	       <COND (.FIX-LAMP? <FSET ,TH-LAMP ,FL-LIGHTED>)>
+	       <TELL "[with " THE .OBJ "]" CR>
+	       <RT-PERFORM ,V?LIGHT-WITH ,GL-PRSO .OBJ>
+	       <RTRUE>)
+	      (T
+	       <COND (.FIX-LAMP? <FSET ,TH-LAMP ,FL-LIGHTED>)>
+	       <PUT ,GL-P-ITBL ,K-P-PREP2 ,PR?WITH>
+	       <RT-SYNTAX-CHECK>
+	       <SETG GL-P-GOOD <>>
+	       <RFATAL>)>>
+
+<ROUTINE V-LIGHT-WITH ("AUX" OBJ)
+	<DEBUGGING? <RT-DEBUG-VERB "V-LIGHT-WITH">>
+	<COND (<MC-PRSI? ,TH-LAMP>
+	       <COND (<MC-PRSI? GL-PRSO>
+		      <RT-IMPOSSIBLE-MSG>
+		      <RTRUE>)>
+	       <RT-PERFORM ,V?SHINE-AT ,GL-PRSI ,GL-PRSO>
+	       <RTRUE>)>
+	<V-BURN-WITH>
+	<RTRUE>>
+
+<ROUTINE V-LISTEN ("AUX" (OBJ <>))
+	<DEBUGGING? <RT-DEBUG-VERB "V-LISTEN">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <COND (<MC-IS? ,GL-PLACE-CUR ,RM-DIOGENES-CLUB>
+		      <TELL CTHE ,CH-MEMBERS " are all asleep." CR>)
+		     (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		      <TELL "From afar you">)
+		     (T
+		      <TELL "You">)>
+	       <TELL " hear the sounds of the ">
+	       <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+		      <TELL "river ">)
+		     (T
+		      <TELL "city ">)>
+	       <COND (<EQUAL? <RT-TIME-OF-DAY> 0>
+		      <TELL "at night">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 1>
+		      <TELL "waking up">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 2>
+		      <TELL "going about its business">)
+		     (<EQUAL? <RT-TIME-OF-DAY> 3>
+		      <TELL "going to sleep">)>
+	       <TELL "." CR>)
+	      (<NOT <MC-PRSI? <> ,TH-STETHOSCOPE ,TH-EARS>>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot listen to anything with " THEI "." CR>)
+	      (<AND <MC-PRSI? ,TH-STETHOSCOPE>
+		    <MC-ISNOT? ,TH-STETHOSCOPE ,FL-WORN>>
+	       <TELL CTHEI " is not in " THE ,TH-EARS "." CR>)
+	      (<AND <MC-IS? ,GL-PRSO ,FL-ALIVE>
+		    <MC-PRSI? ,TH-STETHOSCOPE>>
+	       <COND (<AND <MC-PRSO? ,CH-HOLMES>
+			   <FSET? ,CH-HOLMES ,FL-ASLEEP>>
+		      <TELL THEO " is suffering from a mental, not physical,
+malaise." CR>)
+	             (T
+		      <TELL
+"You don't need to. Your experienced eye tells you there
+is nothing wrong with " THEO "." CR>)>)
+	      (T
+	       <TELL "At the moment, ">
+	       <COND (<MC-PRSO? ,CH-PLAYER ,CH-ME>
+	              <TELL "you">)
+                     (T
+                      <TELL THEO>)>
+	       <RT-IS-ARE-MSG>
+	       <TELL "silent." CR>
+	       <SETG GL-LISTEN-OBJ ,GL-PRSO>)>
+	<RTRUE>>
+
+<ROUTINE V-LOCK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOCK">>
+	<COND (<OR <MC-IS? ,GL-PRSO ,FL-OPENABLE>
+		   <MC-IS? ,GL-PRSO ,FL-CONTAINER>>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-YOUD-HAVE-TO-MSG "close" ,GL-PRSO>
+		      <RTRUE>)
+		     (<MC-IS? ,GL-PRSO ,FL-LOCKED>
+		      <TELL CTHEO>
+		      <RT-IS-ARE-MSG>
+		      <TELL "already locked." CR>
+		      <RTRUE>)
+		     (T
+		      <RT-THING-WONT-LOCK-MSG ,GL-PRSI ,GL-PRSO>)>)
+	      (T
+	       <RT-CANT-LOCK-MSG>)>
+	<RTRUE>>
+
+;<ROUTINE V-LOO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOO">>
+	<TELL "There isn't one nearby. You'll just have to wait." CR>
+	<RFATAL>>
+
+<ROUTINE V-LOOK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK">>
+	<RT-DESC-ALL <> T>
+	<RTRUE>>
+
+<ROUTINE V-LOOK-BEHIND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-BEHIND">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-IS? ,GL-PRSO ,FL-DOOR>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-CANT-SEE-MUCH-MSG>)
+		     (T
+		      <RT-ITS-CLOSED-MSG ,GL-PRSO>)>
+	       <RTRUE>)
+	      (T
+	       <TELL "There's nothing behind " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-DOWN ("AUX" (X <>))
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-DOWN">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-PRSO? ,ROOMS>
+	       ;<SET X <GETP ,GL-PLACE-CUR ,P?LOOKDN>>
+	       ; "LOOKDN is only used once"
+		 <COND (<MC-HERE? ,RM-CLOCK-TOWER>
+			<RT-PERFORM ,V?EXAMINE ,TH-SHAFT>)
+		       (T
+			<RT-NOTHING-INTERESTING-MSG>
+			<TELL " down there." CR>)>
+		 <RTRUE>)
+	      (T
+	       <TELL "You cannot look down " AO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-INSIDE ("AUX" ODF)
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-INSIDE">>
+	<COND (<MC-T? .ODF>
+	       <COND (<MC-T? <APPLY .ODF>>
+		      <RTRUE>)>)>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-YOURE-NOT-A-MSG "surgeon">
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-ALIVE>
+	       <RT-YOURE-NOT-A-MSG "veterinarian">
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+	       <COND (<AND 
+		       <MC-ISNOT? ,GL-PRSO ,FL-OPENED>
+		       <MC-ISNOT? ,GL-PRSO ,FL-TRANSPARENT>>
+		      <RT-YOUD-HAVE-TO-MSG "open" ,GL-PRSO>
+		      <RTRUE>)
+		     (T
+		      <TELL "In " THEO " you see ">
+		      <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+		      <TELL "." CR>)>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-DOOR>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-CANT-SEE-MUCH-MSG>)
+		     (T
+		      <RT-ITS-CLOSED-MSG ,GL-PRSO>)>
+	       <RTRUE>)
+	      (T
+	       <TELL "You cannot look inside " AO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-ON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-ON">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-IS? ,GL-PRSO ,FL-SURFACE>
+	       <TELL "On " THEO " you see ">
+	       <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+	       <TELL "." CR>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-READABLE>
+	       <TELL CTHEO " has something written on it." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-NOTHING-INTERESTING-MSG>
+	       <TELL " on " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-OUTSIDE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-OUTSIDE">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-PRSO? ,ROOMS>
+	       <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+		      <RT-NOTHING-INTERESTING-MSG>
+		      <TELL " outside." CR>)
+		     (T
+		      <TELL "You are outside." CR>)>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-DOOR>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-CANT-SEE-MUCH-MSG>)
+		     (T
+		      <RT-ITS-CLOSED-MSG ,GL-PRSO>)>
+	       <RTRUE>)
+	      (T
+	       <TELL "You cannot look out of " AO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-THRU ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-THRU">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<AND <EQUAL? ,GL-P-PRSA-WORD ,W?EXAMINE ,W?X>
+		    <MC-PRSI? ,TH-STETHOSCOPE>
+		    <MC-IS? ,GL-PRSO ,FL-PERSON>>
+	       <RT-PERFORM ,V?LISTEN ,GL-PRSO ,GL-PRSI>)
+	      (<AND <MC-T? ,GL-PRSI>
+		    <MC-ISNOT? ,GL-PRSI ,FL-TRANSPARENT>>
+	       <TELL "You can't look through " THEI "." CR>
+	       <RTRUE>)
+	      (<AND <MC-T? ,GL-PRSI>
+		    <MC-IS? ,GL-PRSI ,FL-TRANSPARENT>>
+	       <RT-NOTHING-INTERESTING-MSG>
+	       <TELL " through " THEI "." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-NOTHING-INTERESTING-MSG>
+	       <TELL "at all." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-THRU-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-THRU-SWP">>
+	<RETURN <RT-PERFORM ,V?LOOK-THRU ,GL-PRSI ,GL-PRSO>>>
+
+<ROUTINE V-LOOK-UNDER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-UNDER">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<IN? ,GL-PRSO ,CH-PLAYER>
+	       <TELL "You are already ">
+	       <COND (<MC-IS? ,GL-PRSO ,FL-WORN>
+		      <TELL "wearing">)
+		     (T
+		      <TELL "holding">)>
+	       <TELL " that." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-NOTHING-INTERESTING-MSG>
+	       <TELL " under " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOK-UP ("AUX" (X <>))
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOK-UP">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<MC-PRSO? ,ROOMS>
+	       <COND (<FSET? ,GL-PLACE-CUR ,FL-INDOORS>
+		      <PUTP ,TH-FLOOR-ETC ,P?OBJ-NOUN ,W?CEILING>
+		      <RT-PERFORM ,V?EXAMINE ,TH-FLOOR-ETC>
+		      <RTRUE>)>
+	       <RT-NOTHING-INTERESTING-MSG>
+	       <TELL " up there." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL "You cannot look up " AO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-LOOSEN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOOSEN">>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-LOWER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LOWER">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <RT-DO-WALK ,P?DOWN>
+	       <RTRUE>)
+	      (T
+	       <V-RAISE>)>
+	<RTRUE>>
+
+<ROUTINE V-LAND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LAND">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+		      <RT-LAND-BOAT>)
+		     (T
+		      <TELL "Very good. Next week, we'll learn the word for
+water." CR>)>
+	       <RTRUE>)
+	      (<MC-PRSO? ,TH-BOAT>
+	       <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+		      <RT-LAND-BOAT>)
+		     (T
+		      <TELL ,K-MUST-BE-IN-BOAT-MSG "land it." CR>)>)
+	      (T
+	       <TELL "You can't land " THEO "!" CR>)>
+	<RTRUE>>
+
+<ROUTINE RT-LAND-BOAT ()
+	<COND (<IN? ,TH-BOAT ,RM-THE-EMBANKMENT>
+	       <TELL "The boat is already on the Embankment." CR>)
+	      (<IN? ,TH-BOAT ,RM-OUTSIDE-TRAITORS-GATE>
+	       <TELL "The boat is already at Traitors Gate." CR>)
+	      (<NOT <IN? ,TH-ANCHOR ,TH-BOAT>>
+	       <TELL
+"You can't land the boat. The anchor seems to be doing its job." CR>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-ONE>
+	       <IFSOUND <SOUNDS ,S-BOATING ,S-STOP>>
+	       <TELL "You land the boat on the Embankment." CR>
+	       <MOVE ,TH-BOAT ,RM-THE-EMBANKMENT>
+	       <RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>)
+	      (<IN? ,TH-BOAT ,RM-THAMES-FOUR>
+	       <IFSOUND <SOUNDS ,S-BOATING ,S-STOP>>
+	       <TELL "You land the boat outside Traitors Gate." CR>
+	       <MOVE ,TH-BOAT ,RM-OUTSIDE-TRAITORS-GATE>
+	       <RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>)
+	      (T
+	       <TELL
+"There doesn't seem to be any place to land the boat." CR>
+	       <RT-ALARM-CLR ,RT-I-MOVE-DOWNSTREAM>)>
+	<RTRUE>>
+
+<ROUTINE V-LAMP-OFF ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LAMP-OFF">>
+	<V-LAMP-ON T>
+	<RTRUE>>
+
+<ROUTINE V-LAMP-ON ("OPTIONAL" (OFF? <>))
+	<DEBUGGING? <RT-DEBUG-VERB "V-LAMP-ON">>
+	<RT-CYOU-MSG>
+	<TELL "couldn't ">
+	<COND (<==? ,GL-P-PRSA-WORD ,W?EXTINGUISH>
+	       <TELL "extinguish">)
+	      (T
+	       <TELL VW>)>
+	<TELL " that">
+	<COND (<AND .OFF?
+		    <MC-VERB-WORD? CLOSE SHUT TURN>>
+	       <TELL " off">)
+	      (<AND .OFF?
+		    <MC-VERB-WORD? BLOW PUT>>
+	       <TELL " out">)
+	      (<AND <NOT .OFF?>
+		    <MC-VERB-WORD? TURN>>
+	       <TELL " on">)>
+	<COND (<NOT <EQUAL? ,GL-PRSI <> ,TH-HANDS>>
+	       <TELL ", " D ,GL-PRSI " or no " D ,GL-PRSI>)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-LAUNCH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-LAUNCH">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <COND (<OR <IN? ,CH-PLAYER ,TH-BOAT>
+			  <EQUAL? <LOC ,CH-PLAYER> <LOC ,TH-BOAT>>>
+		      <RT-LAUNCH-BOAT>)
+		     (T
+		      <TELL
+"That usually works better when one is in a boat." CR>)>
+	       <RTRUE>)
+	      (<MC-PRSO? ,TH-BOAT>
+	       <RT-LAUNCH-BOAT>)
+	      (T
+	       <TELL
+"You can't launch " THEO ". Perhaps you meant to throw it?" CR>)>
+	<RTRUE>>
+
+<ROUTINE RT-LAUNCH-BOAT ()
+	<COND (<NOT <IN? ,TH-ANCHOR ,TH-BOAT>>
+	       <RT-THIS-IS-IT ,TH-ANCHOR>
+	       <TELL "The anchor is restraining the boat." CR>)
+	      (<NOT <IN? ,CH-PLAYER ,TH-BOAT>>
+	       <TELL
+"You push the boat into the Thames, and then watch as it slowly floats
+away. Too bad you weren't in it." CR>
+	       <REMOVE ,TH-BOAT>)
+	      (<IN? ,TH-BOAT ,RM-THE-EMBANKMENT>
+	       <TELL
+"The boat slips away from the Embankment. You are now in the middle of
+the Thames." CR>
+	       <IFSOUND <SOUNDS ,S-BOATING ,S-START>>
+	       <MOVE ,TH-BOAT ,RM-THAMES-ONE>)
+	      (<IN? ,TH-BOAT ,RM-OUTSIDE-TRAITORS-GATE>
+	       <TELL "The boat slips out into the river." CR>
+	       <IFSOUND <SOUNDS ,S-BOATING ,S-START>>
+	       <MOVE ,TH-BOAT ,RM-THAMES-FOUR>)
+	      (T
+	       <TELL "You are already on the Thames. You don't need to
+launch the boat again." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-MAKE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-MAKE">>
+	<COND (<MC-PRSO? ,TH-RUBBINGS>
+	       <TELL
+"[To make a rubbing, put a blank piece of paper on a tomb, and then rub
+the paper with the crayon.]" CR>
+	       <RFATAL>)
+	      (T
+	       <TELL ,K-HOW-TO-MSG CR>)>
+	<RTRUE>>
+
+<ROUTINE V-ECHO ;V-MARX ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ECHO">>
+	<COND (<EQUAL? ,GL-P-PRSA-WORD ,W?MARX>
+	       <TELL "Cocoanuts." CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?CHICO>
+	       <TELL
+"\"Wattsa matta you? You needa de password? I sell it you.\"" CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?GROUCHO>
+	       <TELL
+"\"Say the secret woid, and the guy will let you in.\"" CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?GUMMO>
+	       <TELL "This isn't a trivia game. Get back to work." CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?HARPO>
+	       <CRLF>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?ZEPPO>
+	       <TELL
+"Did you really think saying \"Zeppo\" was going to get you anywhere?" CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?PUNT>
+	       <TELL
+"But it's not even fourth down!" CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?HUM ,W?WHISTLE ,W?SING>
+	       <TELL
+"You " VW " tunelessly for a few moments until you remember that
+you're tone deaf and know next to nothing about music." CR>)
+	      (<EQUAL? ,GL-P-PRSA-WORD ,W?ECHO>
+	       <TELL "ECHO...Echo...echo...." CR>)>>
+
+<ROUTINE V-MELT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-MELT">>
+	<TELL ,K-HOW-TO-MSG CR>
+	<RTRUE>>
+
+<ROUTINE V-MOVE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-MOVE">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <V-WALK-AROUND>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-TAKEABLE>
+	       <TELL "Moving " THEO " would" <RT-PICK-NEXT ,GL-NO-POINT-TXT> "." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL "You cannot possibly move " THEO "." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-MUNG ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-MUNG">>
+	<RT-NO-POINT-MSG "Trying to destroy">
+	<RTRUE>
>
+
+<ROUTINE V-OPEN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-OPEN">>
+	<COND (<MC-ISNOT? ,GL-PRSO ,FL-OPENABLE>
+	       <RT-CANT-OPEN-PRSO-MSG>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-OPENED>
+	       <RT-ITS-ALREADY-MSG "open">
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-LOCKED>
+	       <RT-OBJECT-IS-LOCKED-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-YOU-OPEN-MSG>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+		      <COND (<MC-F? ,GL-NOW-LIT?>
+			     <TELL "It is too dark to see inside." CR>)
+			    (T
+			     <TELL "Inside you see ">
+			     <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+			     <TELL "." CR>)>)>)>
+	<RTRUE>>
+
+<ROUTINE V-OPEN-WITH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-OPEN-WITH">>
+	<COND (<NOT <MC-IS? ,GL-PRSO ,FL-OPENABLE>>
+	       <RT-CANT-OPEN-PRSO-MSG>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-OPENED>
+	       <RT-ITS-ALREADY-MSG "open">
+	       <RTRUE>)>
+	<RT-CYOU-MSG>
+	<TELL "cannot " VW " " THEO " with " THEI "." CR>
+	<RTRUE>>
+
+<ROUTINE V-PADDLE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PADDLE">>
+	<COND (<IN? ,GL-WINNER ,TH-BOAT>
+	       <COND (<MC-PRSO? ,TH-BOAT ,TH-INTDIR>
+		      <TELL ,K-BETTER-SUCCESS-MSG CR>)
+		     (T
+		      <V-HIT>)>)
+	      (<MC-PRSO? ,TH-INTDIR>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "not in a boat." CR>)
+	      (T
+	       <V-HIT>)>>
+
+<ROUTINE V-PADDLE-WITH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PADDLE-WITH">>
+	<COND (<MC-PRSI? ,TH-VIOLIN>
+	       <TELL
+"How could you even THINK of using such a beautiful instrument in such a
+manner?" CR>)
+	      (<IN? ,GL-WINNER ,TH-BOAT>
+	       <COND (<MC-PRSO? ,TH-INTDIR>
+		      <RT-CYOU-MSG "are" "is">
+		      <TELL "not in a boat." CR>)
+		     (T
+		      <TELL ,K-BETTER-SUCCESS-MSG CR>)>)
+	      (<MC-PRSO? ,TH-INTDIR>
+	       <RT-CYOU-MSG>
+	       <TELL "can't paddle anywhere with " THEI "." CR>)
+	      (T
+	       <V-HIT>)>>
+
+<ROUTINE V-PASSWORD ("AUX" WRD)
+	<DEBUGGING? <RT-DEBUG-VERB "V-PASSWORD">>
+	<SET WRD <GET ,GL-P-NAMW 0>>
+	<COND (<EQUAL? .WRD ,W?SWORDFISH>
+	       <RT-PERFORM ,V?SWORDFISH>)
+	      (<EQUAL? .WRD ,W?PARR>
+	       <RT-PERFORM ,V?PARR>)
+	      (<EQUAL? .WRD ,W?CLEVES>
+	       <RT-PERFORM ,V?CLEVES>)
+	      (<EQUAL? .WRD ,W?ARAGON>
+	       <RT-PERFORM ,V?ARAGON>)
+	      (<EQUAL? .WRD ,W?HOWARD>
+	       <RT-PERFORM ,V?HOWARD>)
+	      (<EQUAL? .WRD ,W?SEYMOUR>
+	       <RT-PERFORM ,V?SEYMOUR>)
+	      (<EQUAL? .WRD ,W?BOLEYN>
+	       <RT-PERFORM ,V?BOLEYN>)
+	      (<EQUAL? .WRD ,W?GIN>
+	       <RT-PERFORM ,V?GIN>)
+	      (T
+	       <TELL "\"No, it isn't.\"" CR>)>>
+
+<ROUTINE V-PAY ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PAY">>
+	<RT-PERFORM ,V?GIVE ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-PICK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PICK">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-OPENABLE>
+	       <RT-YOURE-NOT-A-MSG "locksmith">)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-PLAY ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PLAY">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>)
+	      (T
+	       <RT-NO-POINT-MSG "Playing with">)>
+	<RTRUE>>
+
+<ROUTINE V-PLUG ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PLUG">>
+	<RT-CYOU-MSG>
+	<TELL "cannot ">
+	<PRINTB ,GL-P-PRSA-WORD>
+	<TELL " " THEO " into ">
+	<COND (<MC-T? ,GL-PRSI>
+	       <TELL THEI>)
+	      (T
+	       <TELL "anything">)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-POCKET ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-POCKET">>
+	<RT-PERFORM ,V?PUT ,GL-PRSO ,TH-POCKET>
+	<RTRUE>>
+
+<ROUTINE V-POINT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-POINT">>
+	<RT-NO-POINT-MSG "Pointing at">
+	<RTRUE>>
+
+<ROUTINE V-POINT-AT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-POINT-AT">>
+	<RT-NO-POINT-MSG "Pointing">
+	<RTRUE>>
+
+<ROUTINE V-POINT-AT-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-POINT-AT-SWP">>
+	<RT-NO-POINT-MSG "Pointing">
+	<RFATAL>>
+
+<ROUTINE V-POUR ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-POINT">>
+	<COND (<MC-PRSO? ,TH-HANDS>
+	       <TELL "[To do that, just DROP EVERYTHING.]" CR>
+	       <RFATAL>)
+	      (<MC-PRSO? ,TH-POCKET>
+	       <RT-YOUD-HAVE-TO-MSG "take off" ,TH-CLOTHES>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-SURFACE>
+	       <RT-EMPTY-PRSO-MSG <>>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <RT-EMPTY-PRSO-MSG <>>
+		      <RTRUE>)>
+	       <RT-ITS-CLOSED-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot empty ">
+	       <RT-SAY-HIM-HER-THEM-IT-MSG>
+	       <TELL "." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-POUR-FROM ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-POUR-FROM">>
+	<COND (<MC-PRSI? ,TH-HANDS>
+	       <RT-PERFORM ,V?DROP ,GL-PRSO>
+	       <RTRUE>)
+	      (<MC-PRSI? ,TH-POCKET>
+	       <RT-YOUD-HAVE-TO-MSG "take off" ,TH-CLOTHES>
+	       <RTRUE>)
+	      (<AND <NOT <MC-IS? ,GL-PRSI ,FL-CONTAINER>>
+		    <NOT <MC-IS? ,GL-PRSI ,FL-SURFACE>>>
+	       <TELL "You cannot">
+	       <PRINTB ,GL-P-PRSA-WORD>
+	       <TELL " things from " A ,GL-PRSI "." CR>
+	       <RTRUE>)
+	      (<AND <MC-IS? ,GL-PRSI ,FL-CONTAINER>
+		    <NOT <MC-IS? ,GL-PRSI ,FL-OPENED>>>
+	       <RT-ITS-CLOSED-MSG ,GL-PRSI>
+	       <RTRUE>)
+	      (<IN? ,GL-PRSO ,GL-PRSI>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-TAKEABLE>
+		      <TELL CTHEO " ">
+		      <RT-LANDS-AT-YOUR-FEET-MSG>
+		      <RTRUE>)>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (T
+	       <TELL CTHEO>
+	       <RT-ISNT-ARENT-MSG ,GL-PRSO>
+	       <TELL "in " THEI "." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-PRAY ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PRAY">>
+	<TELL "Good idea. You could use the help." CR>
+	<RTRUE>>
+
+<ROUTINE V-PULL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PULL">>
+	<RT-NO-POINT-MSG "Pulling on">
+	<RTRUE>>
+
+<ROUTINE V-PUSH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PUSH">>
+	<RT-NO-POINT-MSG "Pushing around">
+	<RTRUE>>
+
+<ROUTINE V-PUSH-TO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PUSH-TO">>
+	<COND (<AND <MC-PRSO? ,TH-HANDS>
+		    <MC-T? ,GL-PRSI>>
+	       <RT-PERFORM ,V?REACH-IN ,GL-PRSI>
+	       <RTRUE>)>
+	<RT-CYOU-MSG>
+	<TELL "cannot push " THEO " around like that." CR>
+	<RTRUE>>
+
+<ROUTINE V-PUT ("AUX" L WRD)
+	<DEBUGGING? <RT-DEBUG-VERB "V-PUT">>
+	<SET L <LOC ,GL-PRSO>>
+	<COND (<EQUAL? .L ,GLOBAL-OBJECTS>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>)
+	      (<MC-IS? ,GL-PRSO ,FL-BODYPART>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<AND <OR <RT-IDENTIFY-FLOOR? ,W?FLOOR ,GL-PRSI>
+			<RT-IDENTIFY-FLOOR? ,W?GROUND ,GL-PRSI>>>
+	       <MOVE ,GL-PRSO ,GL-PLACE-CUR>
+	       <COND (<MC-T? ,GL-P-MULT?>
+		      <TELL "Done." CR>)
+		     (T
+		      <RT-CYOU-MSG "put" "puts">
+		      <TELL THEO>
+		      <RT-IN-ON-MSG ,GL-PRSI>
+		      <TELL THEI "." CR>)>
+	       <RTRUE>)
+	      (<OR <MC-F? .L>
+		   <AND <MC-T? ,GL-PRSI>
+			<MC-ISNOT? ,GL-PRSI ,FL-SURFACE>
+			<MC-ISNOT? ,GL-PRSI ,FL-CONTAINER>
+			<MC-ISNOT? ,GL-PRSI ,FL-OPENED>
+			<MC-ISNOT? ,GL-PRSI ,FL-OPENABLE>>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<AND <MC-ISNOT? ,GL-PRSI ,FL-OPENED>
+		    <MC-ISNOT? ,GL-PRSI ,FL-SURFACE>>
+	       <TELL CTHEI>
+	       <RT-ISNT-ARENT-MSG ,GL-PRSI>
+	       <TELL "open." CR>
+	       <RTRUE>)
+	      (<RT-ROOM-IN-ON-MSG? ,GL-PRSO ,GL-PRSI> T)
+	      (<NOT <EQUAL? .L ,GL-WINNER>>
+	       <TELL "Maybe">
+	       <RT-YOU-MSG>
+	       <TELL "should take " THEO>
+	       <RT-OUT-OFF-MSG .L>
+	       <TELL THE .L " first." CR>
+	       <RTRUE>)
+	      (T
+	       <MOVE ,GL-PRSO ,GL-PRSI>
+	       <MC-MAKE ,GL-PRSO ,FL-TOUCHED>
+	       <COND (<AND <MC-IS? ,GL-PRSI ,FL-CONTAINER>
+			   <RT-PUT-OUT ,GL-PRSO>>
+		      <RTRUE>)
+		     (<MC-T? ,GL-P-MULT?>
+		      <TELL "Done." CR>)
+		     (T
+		      <RT-CYOU-MSG "put" "puts">
+		      <TELL THEO>
+		      <RT-IN-ON-MSG ,GL-PRSI>
+		      <TELL THEI "." CR>)>)>>
+
+<ROUTINE V-PUT-BEHIND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PUT-BEHIND">>
+	<TELL "That hiding place is too obvious." CR>
+	<RTRUE>>
+
+<ROUTINE V-PUT-ON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PUT-ON">>
+	<COND (<MC-PRSI? ,CH-ME ,CH-PLAYER>
+	       <RT-PERFORM ,V?WEAR ,GL-PRSO>
+	       <RTRUE>)>
+	<V-PUT>
+	<RTRUE>>
+
+<ROUTINE V-PUT-UNDER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-PUT-UNDER">>
+	<RT-CYOU-MSG>
+	<TELL "cannot put anything under ">
+	<RT-SAY-HIM-HER-THEM-IT-MSG>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-QUESTION ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-QUESTION">>
+	<COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <RT-TO-DO-THING-USE-MSG "ask about" "ASK CHARACTER ABOUT">
+	       <RFATAL>)>
+	<RT-NO-RESPONSE-MSG>
+	<RTRUE>>
+
+<ROUTINE V-RAISE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RAISE">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <V-STAND>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-POINT-MSG "Toying in this way with">)>
+	<RTRUE>>
+
+<ROUTINE V-REACH-IN ("AUX" OBJ)
+	<DEBUGGING? <RT-DEBUG-VERB "V-REACH-IN">>
+	<SET OBJ <FIRST? ,GL-PRSO>>
+	<COND (<OR <MC-IS? ,GL-PRSO ,FL-PERSON>
+		   <MC-IS? ,GL-PRSO ,FL-ALIVE>>
+	       <RT-YOURE-NOT-A-MSG "surgeon">
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-DOOR>
+	       <COND (<MC-IS? ,GL-PRSO ,FL-OPENED>
+		      <TELL "You reach into " THEO ", but experience nothing "
+<RT-PICK-NEXT ,GL-BORING-TXT> "." CR>
+		      <RTRUE>)>
+	       <RT-ITS-CLOSED-MSG>
+	       <RTRUE>)
+	      (<NOT <MC-IS? ,GL-PRSO ,FL-CONTAINER>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<NOT <MC-IS? ,GL-PRSO ,FL-OPENED>>
+	       <TELL "It's not open." CR>
+	       <RTRUE>)
+	      (<OR <MC-F? .OBJ>
+		   <NOT <MC-IS? .OBJ ,FL-TAKEABLE>>>
+	       <COND (<AND <MC-IS? ,GL-PRSO ,FL-PLURAL>
+			   <MC-ISNOT? ,GL-PRSO ,FL-COLLECTIVE>>
+		      <TELL "They're">)
+		     (T
+		      <TELL "It's">)>
+	       <TELL " empty." CR>
+	       <RTRUE>)
+	      (T
+	       <SETG GL-P-IT-OBJECT .OBJ>
+	       <TELL "You ">
+	       <COND (<MC-PRSO? ,TH-EARS>
+		      <TELL "put your hands to ">)
+		     (T
+		      <TELL "reach into ">)>
+	       <TELL THEO ". There's something in there." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-READ ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-READ">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<NOT <MC-IS? ,GL-PRSO ,FL-READABLE>>
+	       <RT-HOW-READ-MSG>
+	       <TELL "?" CR>
+	       <RTRUE>)
+	      (T
+	       <TELL "There's nothing written on it." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-READ-TO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-READ-TO">>
+	<COND (<MC-F? ,GL-NOW-LIT?>
+	       <TELL ,K-TOO-DARK-MSG CR>
+	       <RFATAL>)
+	      (<NOT <MC-IS? ,GL-PRSO ,FL-READABLE>>
+	       <RT-HOW-READ-MSG>
+	       <TELL " to " A ,GL-PRSI "?" CR>
+	       <RTRUE>)
+	      (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <RT-NOT-LIKELY-MSG ,GL-PRSI "would appreciate your reading">
+	       <RTRUE>)
+	      (T
+	       <TELL "Maybe you ought to do it." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-READ-TO-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-READ-TO-SWP">>
+	<RT-PERFORM ,V?READ-TO ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-REFUSE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-REFUSE">>
+	<COND (<NOT <MC-IS? ,GL-PRSO ,FL-TAKEABLE>>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>
+	       <RTRUE>)>
+	<TELL "How could you turn down such a tempting " D ,GL-PRSO "?" CR>
+	<RTRUE>>
+
+<ROUTINE V-RELEASE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RELEASE">>
+	<COND (<IN? ,GL-PRSO ,GL-WINNER>
+	       <RT-PERFORM ,V?DROP ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <COND (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+		      <TELL "You aren't ">)
+		     (T
+		      <TELL CTHEO>
+		      <RT-ISNT-ARENT-MSG>)>
+	       <TELL "confined by anything." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-REPAIR ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-REPAIR">>
+	<COND (<AND <MC-PRSO? ,TH-LAMP ,TH-ETHERIUM-AMPOULE>
+		    <MC-IS? ,GL-PRSO ,FL-BROKEN>>
+	       <TELL CTHEO " is hopelessly beyond repair." CR>
+	       <RTRUE>)
+	      (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <TELL "You aren't ">)
+	      (T
+	       <TELL CTHEO>
+	       <RT-ISNT-ARENT-MSG>)>
+	<TELL "in need of repair." CR>
+	<RTRUE>>
+
+<ROUTINE V-REPLACE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-REPLACE">>
+	<COND (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <TELL "Easily done." CR>
+	       <RTRUE>)
+	      (T
+	       <TELL CTHEO>
+	       <RT-DONT-DOESNT-MSG ,GL-PRSO>
+	       <TELL "need replacement." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-REPLY ("AUX" WHO)
+	<DEBUGGING? <RT-DEBUG-VERB "V-REPLY">>
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RFATAL>)>
+	<RT-NO-RESPONSE-MSG>
+	<RTRUE>>
+
+<ROUTINE V-RESCUE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RESCUE">>
+	<COND (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <COND 
+		(<EQUAL? ,GL-WINNER ,CH-PLAYER>
+		 <V-HINT>
+		 <RTRUE>)>
+	       <TELL ,K-HOW-TO-MSG CR>
+	       <RTRUE>)>
+	<TELL CTHEO>
+	<RT-DONT-DOESNT-MSG ,GL-PRSO>
+	<TELL "need any help." CR>
+	<RTRUE>>
+
+<ROUTINE V-RIDE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RIDE">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-ALIVE>
+	       <RT-NOT-LIKELY-MSG ,GL-PRSO "wants to play piggyback">
+	       <RTRUE>)
+	      (T
+	       <TELL "You cannot ride that." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-RING ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RING">>
+	<COND (<MC-PRSO? ,TH-BELL>
+	       <COND 
+		(<RT-ALARM-SET? ,RT-I-SWING-BELL>
+		 <TELL "The bell is already ringing." CR>)
+		(T
+		 <TELL "The bell is too heavy for you to move,
+but your effort makes it vibrate softly." CR>)>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-RIP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RIP">>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-ROB ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-ROB">>
+	<RT-PERFORM ,V?STEAL ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-ROW ()
+  <DEBUGGING? <RT-DEBUG-VERB "V-ROW">>
+  <COND (<IN? ,CH-PLAYER ,TH-BOAT>
+	 <TELL "You'd have better success if you launched the boat first."
+	       CR>)
+	(<MC-PRSO? ,TH-INTDIR>
+	 <RT-CYOU-MSG "are" "is">
+	 <TELL "not in a boat." CR>)
+	(T
+	 <RT-IMPOSSIBLE-MSG>)>
+  <RTRUE>>
+
+<ROUTINE V-RUB-WITH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-RUB-WITH">>
+	<RT-NO-POINT-MSG "Rubbing">
+	<RTRUE>>
+
+<ROUTINE V-SAY ("AUX" WRD)
+	<DEBUGGING? <RT-DEBUG-VERB "V-SAY">>
+	<COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <COND (<RT-ANYONE-HERE?>
+		      <SET WRD <GET ,GL-P-NAMW 0>>
+		      <COND 
+		       (<EQUAL? .WRD ,W?SWORDFISH>
+			<RT-PERFORM ,V?SWORDFISH>)
+		       (<EQUAL? .WRD ,W?PARR>
+			<RT-PERFORM ,V?PARR>)
+		       (<EQUAL? .WRD ,W?CLEVES>
+			<RT-PERFORM ,V?CLEVES>)
+		       (<EQUAL? .WRD ,W?ARAGON>
+			<RT-PERFORM ,V?ARAGON>)
+		       (<EQUAL? .WRD ,W?HOWARD>
+			<RT-PERFORM ,V?HOWARD>)
+		       (<EQUAL? .WRD ,W?SEYMOUR>
+			<RT-PERFORM ,V?SEYMOUR>)
+		       (<EQUAL? .WRD ,W?BOLEYN>
+			<RT-PERFORM ,V?BOLEYN>)
+		       (<EQUAL? .WRD ,W?GIN>
+			<RT-PERFORM ,V?GIN>)
+		       (T
+			<RT-WAY-TO-TALK-MSG>)>
+		      <RTRUE>)>
+	       <RT-TALK-TO-SELF-MSG>
+	       <RTRUE>)>
+	<RT-NO-RESPONSE-MSG>
+	<RTRUE>>
+
+<ROUTINE V-SEARCH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SEARCH">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+	       <COND (<AND <NOT <MC-IS? ,GL-PRSO ,FL-OPENED>>
+			   <NOT <MC-IS? ,GL-PRSO ,FL-TRANSPARENT>>>
+		      <RT-YOUD-HAVE-TO-MSG "open" ,GL-PRSO>
+		      <RTRUE>)
+		     (T
+		      <TELL "You see ">
+		      <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+		      <TELL " inside " THEO "." CR>)>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-SURFACE>
+	       <TELL "You see ">
+	       <RT-PRINT-CONTENTS-2 ,GL-PRSO>
+	       <TELL " on " THEO "." CR>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-PERFORM ,V?USE ,GL-PRSO>
+	       <RTRUE>) 
+	      (T
+	       <RT-NOTHING-INTERESTING-MSG>
+	       <TELL "." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-SELL ()
+      <DEBUGGING? <RT-DEBUG-VERB "V-SELL">>
+      <COND (<NOT <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+	     <RT-NOT-LIKELY-MSG ,GL-WINNER "is interested in selling anything">
+	     <RTRUE>)
+	    (<MC-PRSI? ,GL-PRSO ,CH-ME ,CH-PLAYER ,GL-WINNER>
+	     <RT-IMPOSSIBLE-MSG>
+	     <RTRUE>)
+	    (<NOT <MC-IS? ,GL-PRSI ,FL-PERSON>>
+	     <RT-NOT-LIKELY-MSG ,GL-PRSI "would buy anything">
+	     <RTRUE>)>
+      <RT-YOURE-NOT-A-MSG "salesperson">
+      <RTRUE>>
+
+<ROUTINE V-SELL-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SELL-SWP">>
+	<RT-PERFORM ,V?SELL ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+
+<ROUTINE V-SHAKE ("AUX" X)
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHAKE">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-PERFORM ,V?ALARM ,GL-PRSO>)
+	      (<AND <NOT <MC-IS? ,GL-PRSO ,FL-TAKEABLE>>
+		    <NOT <MC-IS? ,GL-PRSO ,FL-TRYTAKE>>>
+	       <RT-NO-POINT-MSG "Shaking">)
+	      (T
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-SHINE-AT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHINE-AT">>
+	<TELL "You cannot illuminate anything with " A ,GL-PRSO "." CR>
+	<RTRUE>>
+
+<ROUTINE V-SHINE-AT-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHINE-AT-SWP">>
+	<RT-PERFORM ,V?SHINE-AT ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SHOOT ("AUX" NUM)
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHOOT">>
+	<COND (<MC-PRSO? ,TH-GUN>
+	       <TELL "BANG!! The bullet barely misses your foot." CR>
+	       <RTRUE>)
+	      (<OR <MC-IS? ,GL-PRSO ,FL-PERSON>
+		   <==? ,GL-PRSO ,TH-GENERIC-BODY>>
+	       <COND (<FSET? ,GL-PRSO ,FL-NEEDS-IDENTITY>
+		      <PUTP ,GL-PRSO ,P?OBJ-NOUN 0>
+		      <PUTP ,GL-PRSO ,P?OBJ-ADJ 0>)>
+	       <TELL "You shoot ">
+	       <COND (<N==? ,GL-PRSO ,TH-GENERIC-BODY>
+		      <TELL "and kill ">)>
+	       <TELL THE ,GL-PRSO ". Inspector Lestrade ">
+	       <COND  (<IN? ,CH-PLAYER ,TH-BOAT>
+		       <TELL "pulls up alongside you in a Scotland Yard launch">)
+		      (T
+		       <TELL "appears out of nowhere">)>
+	       <TELL " and says,">
+	       <COND (<MC-PRSO? ,CH-HOLMES>
+		      <TELL ,K-PLUG-HIM-MYSELF-MSG>)
+		     (T
+		      <TELL
+" \"You may be on our side, doctor, but killing people is still against
+the law. I'm afraid I'm going to have to arrest you.\"">)>
+	       <TELL CR CR ,K-LESTRADE-ARRESTS-MSG CR CR>
+	       <RT-QSR>)
+	      (<MC-PRSO? ,TH-SAPPHIRE ,TH-EMERALD ,TH-OPAL 
+			 ,TH-RUBY ,TH-TOPAZ ,TH-GARNET>
+	       <REMOVE ,GL-PRSO>
+	       <TELL "You shoot " THEO ", which shatters and disappears." CR>)
+	      (<MC-PRSO? ,TH-CROWN-JEWELS>
+	       <TELL 
+"The jewels shatter and Holmes throws up his arms in exasperation.
+\"That's it, Watson. You have pushed me to the limit.\" He leaps for
+your throat, and the ensuing struggle attracts the attention of the
+local constabulary, with what should by now be predictable results." CR CR>
+	       <RT-QSR>)
+	      (<OR <MC-PRSO? ,TH-SHAFT>
+		   <AND <MC-PRSO? ,PSEUDO-OBJECT>
+			<==? <GETP ,PSEUDO-OBJECT ,P?ACTION>
+			     ,RT-AC-TH-FIREPLACE>>>
+	       <TELL "The bullet disappears into " THEO "." CR>)
+	      (<OR <MC-PRSO? ,TH-INTNUM ,TH-INTDIR>
+		   <IN? ,GL-PRSO ,ROOMS>>
+	       <RT-IMPOSSIBLE-MSG>)
+	      (<MC-IS? ,GL-PRSO ,FL-PLURAL>
+	       <TELL "There are so many of them, you don't know where to begin." CR>)
+	      (<MC-IS? ,GL-PRSO ,FL-MONEY>
+	       <TELL
+"You take aim at " THEO ", but your frugal nature prevents you from going
+through with it." CR>)
+	      (T
+	       <SET NUM <GET ,GL-HOLES 0>>
+	       <PUT ,GL-HOLES <+ <* .NUM 2> 1> ,GL-PRSO>
+	       <COND (<EQUAL? <LOC ,GL-PRSO> ,LOCAL-GLOBALS ,ROOMS
+					 		,GLOBAL-OBJECTS>
+		      <PUT ,GL-HOLES <+ <* .NUM 2> 2> ,GL-PLACE-CUR>)>
+	       <PUT ,GL-HOLES 0 <+ .NUM 1>>
+	       <TELL "The bullet puts a neat hole in " THEO "." CR>)>>
+
+<ROUTINE V-SHOOT-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHOOT-SWP">>
+	<RT-PERFORM ,V?SHOOT ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+	
+<ROUTINE V-SHOW ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHOW">>
+	<COND (<MC-IS? ,GL-PRSI ,FL-ASLEEP>
+	       <TELL CTHEI>
+	       <RT-IS-ARE-MSG ,GL-PRSI>
+	       <TELL
+"in no condition to appreciate " THEO "." CR>)
+	      (<MC-PRSI? ,CH-ME ,CH-PLAYER>
+	       <RT-PERFORM ,V?EXAMINE ,GL-PRSO>)
+	      (T
+	       <TELL CTHEI " glance">
+	       <RT-S-NOS-MSG ,GL-PRSI>
+	       <TELL " at " THEO ", but makes no comment." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-SHOW-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SHOW-SWP">>
+	<RT-PERFORM ,V?SHOW ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SIT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SIT">>
+	<COND (<OR <RT-IDENTIFY-FLOOR? ,W?GROUND ,GL-PRSO>
+		   <RT-IDENTIFY-FLOOR? ,W?FLOOR ,GL-PRSO>
+		   <MC-PRSO? ,ROOMS>
+		   <MC-IS? ,GL-PRSO ,FL-SURFACE>>
+	       <TELL ,K-NO-RESTING-MSG CR>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>)>
+	<RTRUE>>
+
+<ROUTINE V-SMELL ("AUX" (OBJ <>))
+     <DEBUGGING? <RT-DEBUG-VERB "V-SMELL">>
+     <COND (<OR <RT-IDENTIFY-FLOOR? ,W?SKY ,GL-PRSO>
+		<EQUAL? ,GL-PRSO ,ROOMS>>
+	    ;<SET OBJ <GETP ,GL-PLACE-CUR ,P?ODOR>>
+	    ;"ODOR property never used"
+	    <TELL "You do not smell anything " <RT-PICK-NEXT ,GL-BORING-TXT>
+"." CR>
+	    <RTRUE>
+	    ;<COND (<MC-F? .OBJ>
+		    <TELL "You do not smell anything "
+			  <RT-PICK-NEXT ,GL-BORING-TXT> "." CR>
+		    <RTRUE>)
+		   (T
+		    <RT-PERFORM ,V?SMELL .OBJ>
+		    <RTRUE>)>)
+	   (<MC-PRSO? ,TH-BUNG ,TH-MALMSEY ,TH-MALMSEY-POOL ,TH-BUTT-OF-MALMSEY ;,TH-EMPTY-BUTT-OF-MALMSEY ,TH-GARNET>
+	    <TELL ,K-EAU-DE-MSG CR>)
+	   (T
+	    <TELL "It smells just like " A ,GL-PRSO "." CR>)>
+     <RTRUE>>
+
+<ROUTINE V-SMOKE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SMOKE">>
+	<RT-CYOU-MSG>
+	<TELL "cannot smoke " THEO "." CR>
+	<RTRUE>>
+
+<ROUTINE V-SPIN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SPIN">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <TELL ,K-DIZZY-MSG CR>
+	       <RTRUE>)
+	      (T
+	       <TELL "You cannot spin ">
+	       <RT-SAY-HIM-HER-THEM-IT-MSG>
+	       <TELL "." CR>)>
+	<RTRUE>>
+
+<ROUTINE V-STAND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-STAND">>
+	<TELL "You are already standing." CR>
+	<RTRUE>>
+
+<ROUTINE V-STAND-ON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-STAND-ON">>
+	<TELL "Standing on " THEO " would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-STAND-UNDER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-STAND-UNDER">>
+	<RT-IMPOSSIBLE-MSG>
+	<RTRUE>>
+
+<ROUTINE V-STEAL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-STEAL">>
+	<TELL ,K-THEFT-MSG CR>
+	<RTRUE>>
+
+<ROUTINE V-STRIKE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-STRIKE">>
+	<V-HIT>
+	<RTRUE>>
+
+<ROUTINE V-SWIM ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SURFACE">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <COND (<MC-HERE? ,RM-THE-EMBANKMENT ,RM-SWAN-LANE ,RM-LONDON-BRIDGE>
+		      <TELL "Yuck! Have you looked at that water?" CR>)
+		     (T
+		      <TELL ,K-NO-SWIM-MSG CR>
+		      <RTRUE>)>)
+	      (<AND <MC-PRSO? ,TH-INTDIR>
+		    <MC-T? ,GL-P-DIRECTION>
+		    <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+	       <TELL "You cannot ">
+	       <PRINTB ,GL-P-PRSA-WORD>
+	       <TELL " that way from here." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>)> 
+	<RTRUE>>
+
+<ROUTINE V-SWING ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-SWING">>
+	<COND (<MC-F? ,GL-PRSI>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-PERFORM ,V?KILL ,GL-PRSI ,GL-PRSO>)>
+	<RTRUE>>
+
+<ROUTINE V-TAKE ("AUX" L)
+	<DEBUGGING? <RT-DEBUG-VERB "V-TAKE">>
+	<COND (<EQUAL? ,GLOBAL-OBJECTS <LOC ,GL-PRSO>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (,GL-PRSI
+	       <COND (<EQUAL? ,GLOBAL-OBJECTS <LOC ,GL-PRSI>>
+		      <RT-IMPOSSIBLE-MSG>
+		      <RTRUE>)>)
+	      (<MC-IS? ,GL-PRSO ,FL-WORN>
+	       <RT-PERFORM ,V?TAKE-OFF ,GL-PRSO>
+	       <RTRUE>)>
+	<SET L <RT-ITAKE>>
+	<COND (<MC-T? .L>
+	       <COND (<MC-T? ,GL-P-MULT?>
+		      <TELL "Taken." CR>)
+		     (<OR <MC-IS? .L ,FL-CONTAINER>
+			  <MC-IS? .L ,FL-SURFACE>
+			  <MC-IS? .L ,FL-PERSON>
+			  <MC-IS? .L ,FL-ALIVE>>
+		      <RT-CYOU-MSG "take" "takes">
+		      <TELL THEO>
+		      <RT-OUT-OFF-MSG .L>
+		      <TELL THE .L "." CR>)
+		     (T
+		      <RT-CYOU-MSG "take" "takes">
+		      <TELL THEO "." CR>)>
+	       <SET L <GETP ,GL-PRSO ,P?VALUE>>
+	       <COND (<MC-T? .L>
+		      <PUTP ,GL-PRSO ,P?VALUE 0>
+		      <RT-TOPAZ-MSG>
+		      <RT-UPDATE-SCORE .L>
+		      <RT-UPDATE-STATUS-LINE>)>)>
+	<RTRUE>>
+
+<ROUTINE V-TAKE-OFF ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TAKE-OFF">>
+	<COND (<MC-PRSO? ,TH-CLOTHES ,TH-FEET>
+	       <TELL ,K-INAPPROPRIATE-MSG CR>
+	       <RTRUE>)
+	      (<MC-IS? ,GL-PRSO ,FL-TAKEABLE>
+	       <COND (<AND <IN? ,GL-PRSO ,GL-WINNER>
+			   <MC-IS? ,GL-PRSO ,FL-WORN>>
+		      <MC-UNMAKE ,GL-PRSO ,FL-WORN>
+		      <TELL "You take off " THEO "." CR>
+		      <RTRUE>)
+		     (T
+		      <RT-PERFORM ,V?TAKE ,GL-PRSO>
+		      <RTRUE>)>)
+	      (<MC-IS? ,GL-PRSO ,FL-VEHICLE>
+	       <RT-PERFORM ,V?EXIT ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-TAKE-WITH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TAKE-WITH">>
+	<TELL ,K-HOW-TO-MSG CR>
+	<RTRUE>>
+
+<ROUTINE V-TASTE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TASTE">>
+	<RT-PERFORM ,V?EAT ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-TELL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TELL">>
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RFATAL>)
+	      (<MC-PRSO? ,CH-ME ,CH-PLAYER>
+	       <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+		      <RT-TALK-TO-SELF-MSG>
+		      <RTRUE>)
+		     (T
+		      <RT-NO-RESPONSE-MSG>
+		      <RTRUE>)>)
+	      (T
+	       <SETG GL-P-QCONTEXT-TH ,GL-PRSO>
+	       <SETG GL-P-QCONTEXT-RM <LOC ,GL-PRSO>>
+	       <COND (<MC-T? ,GL-P-CONT>
+		      <SETG GL-WINNER ,GL-PRSO>
+		      <RT-THIS-IS-IT ,GL-PRSO>
+		      <SETG GL-CLOCK-WAIT T>
+		      ; "Turn quotes into buzzwords, the better to parse
+			 this crap with"
+		      <REPEAT ((N ,GL-P-CONT) (M ,GL-P-LEN) WRD)
+		        <COND (<==? <SET WRD <ZGET ,GL-P-P-LEX .N>> ,W?QUOTE>
+			       <ZPUT ,GL-P-P-LEX .N ,W?THE>)
+			      (<EQUAL? .WRD ,W?THEN ,W?PERIOD>
+			       <RETURN>)>
+			<SET N <+ .N ,K-P-LEXELEN>>
+			<COND (<L? <SET M <- .M 1>> 1>
+			       <RETURN>)>>
+		      <RTRUE>)
+		     (T
+		      <RT-NO-RESPONSE-MSG>
+		      <RTRUE>)>)>>
+
+<ROUTINE V-TELL-ABOUT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TELL-ABOUT">>
+	<COND (<RT-WHO-WHAT-WHERE-MSG>
+	       <RFATAL>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE V-TELL-WHO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TELL-WHO">>
+	<TELL "You must use TELL ME ABOUT SOMETHING or TELL CHARACTER ABOUT SOMETHING." CR>
+	<RTRUE>>
+
+<ROUTINE V-THANK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-THANK">>
+	<COND (<MC-F? <RT-ANYONE-HERE?>>
+	       <TELL "[There's nobody here to thank.]" CR>
+	       <RTRUE>)
+	      (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <COND 
+		(<MC-PRSO? ,CH-ME ,CH-PLAYER>
+		 <TELL "Patting yourself on the back" ,K-WONT-HELP-MSG CR>
+		 <RTRUE>)
+		(<MC-IS? ,GL-PRSO ,FL-ASLEEP>
+		 <TELL CTHEO>
+		 <RT-ISNT-ARENT-MSG ,GL-PRSO>
+		 <TELL "in any condition to accept your thanks." CR>)
+		(T
+		 <TELL "\"You're welcome.\"" CR>
+		 <RTRUE>)>)
+	      (T
+	       <RT-FOOLISH-TO-TALK-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-THROUGH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-THROUGH">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <RT-DO-WALK ,P?IN>
+	       <RTRUE>)
+	      (T
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE V-THROW ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-THROW">>
+	<COND (<AND <MC-VERB-WORD? PUT>
+		    <MC-PRSO? ,TH-HANDS ,TH-FEET>>
+	       <COND (<MC-IS? ,GL-PRSI ,FL-DOOR>
+		      <COND (<MC-IS? ,GL-PRSI ,FL-OPENED>
+			     <RT-CYOU-MSG "put" "puts">
+			     <TELL
+THEO " through " THEI ", but can't reach anything on the other side." CR>)
+			    (T
+			     <TELL CTHEI>
+			     <RT-IS-ARE-MSG ,GL-PRSI>
+			     <TELL "closed." CR>)>)
+		    (T
+		     <RT-IMPOSSIBLE-MSG>)>)
+	      (<IN? ,GL-PRSO ,GLOBAL-OBJECTS>
+	       <RT-IMPOSSIBLE-MSG>)
+	      (<RT-IDROP-MSG>
+	       <COND (<AND <MC-IS? ,CH-HOLMES ,FL-ASLEEP>
+			   <MC-PRSI? ,CH-HOLMES ,TH-PHIAL, TH-SYRINGE ,TH-MOROCCO-CASE>>
+		      <COND (<MC-PRSO? ,TH-KNIFE>
+			     <COND (<MC-PRSI? ,CH-HOLMES>
+				    <TELL "Holmes absentmindedly dodges the knife">)
+				   (<MC-PRSI? ,TH-PHIAL ,TH-SYRINGE ,TH-MOROCCO-CASE>
+				    <TELL "Holmes casually moves " THEI
+" out of harm's way">)>
+			     <TELL " and continues staring at the phial." CR>
+			     <RTRUE>)
+			    (T
+			     <TELL "Holmes absentmindedly catches " THEO
+" with his free hand and bops you over the head with it before letting it fall
+to the ground. He then continues staring at the phial." CR>
+			     <RTRUE>)>)>
+	       <TELL CTHEO " miss">
+	       <RT-ES-NOES-MSG ,GL-PRSO>
+	       <TELL " " THEI " by a mile and land">
+	       <RT-S-NOS-MSG ,GL-PRSI>
+	       <COND (<MC-HERE? ,RM-THAMES-ONE ,RM-THAMES-TWO ,RM-THAMES-THREE
+				,RM-THAMES-FOUR ,RM-THAMES-FIVE>
+		      <TELL " in the water.">
+		      <MOVE ,GL-PRSO ,LG-WATER>
+		      <COND (<MC-PRSO? ,CH-TRAINED-PIGEON>
+			     <RT-KILL-PIGEON>)>
+		      <TELL " Plop." CR>)
+		     (T
+		      <TELL " on the ">
+		      <COND (<MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>
+			     <TELL "floor">)
+			    (T
+			     <TELL "ground">)>
+		      <TELL " nearby." CR>)>)>
+	      <RTRUE>>
+
+<ROUTINE V-THROW-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-THROW-SWP">>
+	<RT-PERFORM ,V?THROW ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-THROW-OVER ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-THROW-OVER">>
+	<TELL "That would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-TIE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TIE">>
+	<RT-CYOU-MSG>
+	<TELL "cannot possibly tie " THEO>
+	<COND (<MC-T? ,GL-PRSI>
+	       <TELL " to " THEI>)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-TIE-UP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TIE-UP">>
+	<RT-CYOU-MSG>
+	<TELL "cannot tie up ">
+	<COND (<MC-PRSI? <> ,ROOMS>
+	       <TELL "that">)
+	      (T
+	       <TELL "anything with " THEI>)>
+	<TELL "." CR>>
+
+<ROUTINE V-TIP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TIP">>
+	<COND (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	       <RT-CYOU-MSG "whisper" "whispers">
+	       <TELL "confidentially, \"Buy low, sell high.\"" CR CR CTHEO>
+	       <RT-DONT-DOESNT-MSG ,GL-PRSO>
+	       <TELL "look impressed." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "can't do that." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-TOUCH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TOUCH">>
+	<RT-NO-POINT-MSG "Fiddling with">
+	<RTRUE>>
+
+<ROUTINE V-TOUCH-TO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TOUCH-TO">>
+	<COND (<MC-PRSO? ,TH-HANDS>
+	       <RT-PERFORM ,V?TOUCH ,GL-PRSI>
+	       <RTRUE>)>
+	<RT-CYOU-MSG "put" "puts">
+	<TELL THEO " next to " THEI ", but nothing " <RT-PICK-NEXT ,GL-BORING-TXT> " happens." CR>
+	<RTRUE>>
+
+<ROUTINE V-TOUCH-TO-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TOUCH-TO-SWP">>
+	<RT-PERFORM ,V?TOUCH-TO ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-TRANSLATE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TRANSLATE">>
+	<TELL ,K-HOW-TO-MSG CR>
+	<RTRUE>>
+
+<ROUTINE V-TUNE-TO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TUNE-TO">>
+	<RT-IMPOSSIBLE-MSG>
+	<RTRUE>>
+
+<ROUTINE V-TURN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TURN">>
+	<COND (<AND <MC-ISNOT? ,GL-PRSO ,FL-TAKEABLE>
+		    <MC-ISNOT? ,GL-PRSO ,FL-TRYTAKE>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-POINT-MSG "Turning">
+	       <RTRUE>)>>
+
+<ROUTINE V-TURN-DOWN ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TURN-DOWN">>
+	<V-REFUSE>
+	<RTRUE>>
+
+<ROUTINE V-TURN-TO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TURN-TO">>
+	<COND (<RT-VISIBLE? ,GL-PRSO>
+	       <RT-PERFORM ,V?WATCH ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG "do not" "does not">
+	       <TELL "see " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-TURN-UP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-TURN-UP">>
+	<V-LOOK-UNDER>
+	<RTRUE>>
+
+<ROUTINE V-UNDRESS ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-UNDRESS">>
+	<COND (<OR <MC-PRSO? ,ROOMS>
+		   <MC-IS? ,GL-PRSO ,FL-PERSON>>
+	       <TELL ,K-INAPPROPRIATE-MSG CR>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot undress " A ,GL-PRSO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-UNFOLD ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-UNFOLD">>
+	<TELL CTHEO>
+	<RT-ISNT-ARENT-MSG>
+	<TELL "folded up." CR>
+	<RTRUE>>
+
+<ROUTINE V-UNLOCK ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-UNLOCK">>
+	<COND (<OR <MC-IS? ,GL-PRSO ,FL-OPENABLE>
+		   <MC-IS? ,GL-PRSO ,FL-CONTAINER>>
+	       <COND (<OR <MC-IS? ,GL-PRSO ,FL-OPENED>
+			  <NOT <MC-IS? ,GL-PRSO ,FL-LOCKED>>>
+		      <TELL CTHEO>
+		      <RT-ISNT-ARENT-MSG>
+		      <TELL "locked." CR>
+		      <RTRUE>)
+		     (T
+		      <RT-THING-WONT-LOCK-MSG ,GL-PRSI ,GL-PRSO T>
+		      <RTRUE>)>)
+	      (T
+	       <RT-CANT-LOCK-MSG T>
+	       <RTRUE>)>>
+
+<ROUTINE V-UNPLUG ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-UNPLUG">>
+	<TELL CTHEO>
+	<RT-ISNT-ARENT-MSG>
+	<TELL "connected to ">
+	<COND (<MC-T? ,GL-PRSI>
+	       <TELL THEI>)
+	      (T
+	       <TELL "anything">)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE V-UNSCREW-FROM ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-UNSCREW-FROM">>
+	<COND (<MC-PRSO? GL-PRSI>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (<NOT <IN? ,GL-PRSO ,GL-PRSI>>
+	       <COND (<MC-IS? ,GL-PRSI ,FL-ALIVE>
+		      <TELL CTHEI>
+		      <RT-DONT-DOESNT-MSG ,GL-PRSI>
+		      <TELL "have " THEO "." CR>
+		      <RTRUE>)>
+	       <TELL CTHEO>
+	       <RT-ISNT-ARENT-MSG>
+	       <RT-IN-ON-MSG ,GL-PRSI <>>
+	       <TELL THEI "." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG>
+	       <TELL "cannot unscrew " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-UNTIE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-UNTIE">>
+	<RT-CYOU-MSG>
+	<TELL "cannot untie " A ,GL-PRSO "." CR>
+	<RTRUE>>
+
+<ROUTINE V-USE ()
+       <DEBUGGING? <RT-DEBUG-VERB "V-USE">>
+       <COND (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	      <TELL CTHEO " might resent that." CR>
+	      <RTRUE>)
+	     (T
+	      <TELL "[You must specify what you want to do with " THEO ".]" CR>
+	      <RTRUE>)>>
+
+<ROUTINE V-USE-ON ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-USE-ON">>
+	<TELL "Using " THEO " on " THEI " would">
+	<RT-WASTE-OF-TIME-MSG>
+	<RTRUE>>
+
+<ROUTINE V-WAIT ("AUX" H M S N)
+	<DEBUGGING? <RT-DEBUG-VERB "V-WAIT">>
+	<COND (<EQUAL? ,GL-P-NUMBER -1>
+	       <SET N 1>)
+	      (T
+	       <SET N ,GL-P-NUMBER>)>
+	<COND (<MC-PRSO? ,TH-TIME>
+	       <COND (<EQUAL? <GETP ,GL-PRSO ,P?OBJ-NOUN>
+			      ,W?MINUTE ,W?MINUTES>
+		      <SET H 0>
+		      <SET M .N>)
+		     (T
+		      <SET H .N>
+		      <SET M 0>)>)
+	      (<MC-PRSO? ,TH-INTNUM>
+	       <SET H 0>
+	       <SET M .N>
+	       <TELL "[" N .M " minute">
+	       <COND (<NOT <EQUAL? .M 1>>
+		      <TELL "s">)>
+	       <TELL "]" CR CR>)
+	      (<NOT <MC-PRSO? ,ROOMS>>
+	       <RT-CYOU-MSG>
+	       <TELL "can't wait for that." CR>
+	       <RTRUE>)
+	      (T
+	       <SET H 0>
+	       <SET M 10>)>
+	<SET S 0>
+	<TELL "Time passes..." CR>
+	<RT-CLOCK-JMP .H .M .S>
+	<RT-TIME-OF-DAY-MSG T>
+	<RTRUE>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
+	<DEBUGGING? <RT-DEBUG-VERB "V-WALK">>
+	<SET PT <GETPT ,GL-PLACE-CUR ,GL-PRSO>>
+	<COND (<MC-F? ,GL-P-WALK-DIR>
+	       <TELL "[You must specify a direction.]" CR>)
+	      (<MC-T? .PT>
+	       <SET PTS <PTSIZE .PT>>
+	       ; "All rooms are stored as BYTEs, so we sometimes
+		  need to do GETBs or funny rests..."
+	       <COND (<EQUAL? .PTS ,K-UEXIT>
+		      <COND (<FSET? <LOC ,GL-WINNER> ,FL-VEHICLE>
+			     ; "If you're in a vehicle, get out of it
+				first"
+			     <RT-PERFORM ,V?EXIT <LOC ,GL-WINNER>>
+			     <COND (<FSET? <LOC ,GL-WINNER> ,FL-VEHICLE>
+				    <RFATAL>)>)>
+		      <SET RM <MC-GET-RM-EXIT-DEST .PT>>
+		      <RT-GOTO .RM>
+		      <RTRUE>)
+		     (<EQUAL? .PTS ,K-NEXIT>
+		      <SET STR <GET .PT ,K-NEXITSTR>>
+		      <TELL .STR CR>
+		      <RFATAL>)
+		     (<EQUAL? .PTS ,K-PEXIT>
+		      <SET RM <APPLY <GET .PT ,K-PEXITRTN>>>
+		      <COND (<MC-T? .RM>
+			     <RT-GOTO .RM>
+			     <RTRUE>)
+			    (T
+			     <RFATAL>)>)
+		     (<EQUAL? .PTS ,K-CEXIT>
+		      <COND (<VALUE <GETB .PT ,K-CEXITFLG>>
+			     <SET RM <MC-GET-RM-EXIT-DEST .PT>>
+			     <RT-GOTO .RM>
+			     <RTRUE>)>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot go that way." CR>
+		      <RFATAL>)
+		     (<EQUAL? .PTS ,K-DEXIT>
+		      <COND (<FSET? <LOC ,GL-WINNER> ,FL-VEHICLE>
+			     ; "If you're in a vehicle, get out of it
+				first"
+			     <RT-PERFORM ,V?EXIT <LOC ,GL-WINNER>>
+			     <COND (<FSET? <LOC ,GL-WINNER> ,FL-VEHICLE>
+				    <RFATAL>)>)>
+		      <SET OBJ <MC-GET-RM-EXIT-DOOR .PT>>
+		      <COND (<MC-IS? .OBJ ,FL-OPENED>
+			     <SET RM <MC-GET-RM-EXIT-DEST .PT>>
+			     <RT-GOTO .RM>
+			     <RTRUE>)
+			    (T
+			     <TELL "The door is not open." CR>
+			     <RFATAL>)>)>)
+	      (<AND <EQUAL? ,GL-P-WALK-DIR ,P?OUT>
+		    <MC-ISNOT? ,GL-PLACE-CUR ,FL-INDOORS>>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "already outside." CR>
+	       <RFATAL>)
+	      (<AND <EQUAL? ,GL-P-WALK-DIR ,P?IN>
+		    <MC-IS? ,GL-PLACE-CUR ,FL-INDOORS>>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "already inside." CR>
+	       <RFATAL>)
+	      (T
+	       <TELL "You cannot go that way." CR>
+	       <RFATAL>)>>
+
+<ROUTINE V-WALK-AROUND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WALK-AROUND">>
+	<TELL "[Which way do you want to go?]" CR>
+	<RFATAL>>
+
+<ROUTINE V-WALK-TO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WALK-TO">>
+	<COND (<MC-PRSO? ,TH-INTDIR>
+	       <RT-DO-WALK ,GL-P-DIRECTION>
+	       <RTRUE>)
+	      (<OR <MC-PRSO? ,TH-RIGHT ,TH-LEFT>
+		   <IN? ,GL-PRSO ,ROOMS>>
+	       <TELL ,K-BE-MORE-SPECIFIC-MSG CR>
+	       <RTRUE>)
+	      (T
+	       <V-FOLLOW>
+	       <RTRUE>)>>
+
+<ROUTINE V-WATCH ()
+       <DEBUGGING? <RT-DEBUG-VERB "V-WATCH">>
+       <COND (<MC-IS? ,GL-PRSO ,FL-PERSON>
+	      <TELL CTHEO>
+	      <RT-ISNT-ARENT-MSG>
+	      <TELL "doing anything " <RT-PICK-NEXT ,GL-BORING-TXT>>)
+	     (T
+	      <TELL "Nothing " <RT-PICK-NEXT ,GL-BORING-TXT> " is happening">)>
+       <TELL "." CR>
+       <RTRUE>>
+
+<ROUTINE V-WAVE-AT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WAVE-AT">>
+	<COND (<RT-WHO-WHAT-WHERE-MSG>
+	       <RFATAL>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE V-WEAR ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WEAR">>
+	<COND (<OR <AND <IN? ,GL-PRSO ,GL-WINNER>
+			<MC-IS? ,GL-PRSO ,FL-WORN>>
+		   <MC-PRSO? ,TH-CLOTHES>>
+	       <RT-CYOU-MSG "are" "is">
+	       <TELL "already wearing " THEO "." CR>
+	       <RTRUE>)
+	      (<MC-ISNOT? ,GL-PRSO ,FL-CLOTHING>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot wear " THEO "." CR>
+	       <RTRUE>)
+	      (<RT-DONT-HAVE-MSG ,GL-PRSO>
+	       <RTRUE>)
+	      (T
+	       <MC-MAKE ,GL-PRSO ,FL-WORN>
+	       <RT-CYOU-MSG "put" "puts">
+	       <TELL "on " THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE V-WEDGE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WEDGE">>
+	<RT-PERFORM ,V?LOOSEN ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-WEIGH ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WEIGH">>
+	<TELL "You haven't got any scales to weigh things with." CR>
+	<RTRUE>>
+
+<ROUTINE V-WHAT ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WHAT">>
+	<COND (<RT-WHO-WHAT-WHERE-MSG>
+	       <RFATAL>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE V-WHERE ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WHERE">>
+	<COND (<RT-WHO-WHAT-WHERE-MSG>
+	       <RFATAL>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE V-WHO ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WHO">>
+	<COND (<RT-WHO-WHAT-WHERE-MSG>
+	       <RFATAL>)
+	      (T
+	       <RTRUE>)>>
+
+<ROUTINE V-WIND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WIND">>
+	<RT-CYOU-MSG>
+	<TELL "cannot wind " A ,GL-PRSO "." CR>
+	<RTRUE>>
+
+<ROUTINE V-WRAP-AROUND ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WRAP-AROUND">>
+	<RT-CYOU-MSG>
+	<TELL "could not possibly ">
+	<PRINTB ,GL-P-PRSA-WORD>
+	<TELL " " THEO " around " THEI "." CR>
+	<RTRUE>>
+
+<ROUTINE V-WRAP-AROUND-SWP ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-WRAP-AROUND-SWP">>
+	<RT-PERFORM ,V?WRAP-AROUND ,GL-PRSI ,GL-PRSO>
+	<RTRUE>>
+
+<ROUTINE V-YELL ()
+	<DEBUGGING? <RT-DEBUG-VERB "V-YELL">>
+	<COND (<MC-PRSO? ,ROOMS>
+	       <COND (<EQUAL? ,GL-P-PRSA-WORD ,W?CRY>
+		      <TELL
+"Awww. Don't cry. You'll figure it out eventually." CR>
+		      <RTRUE>)
+		     (T
+		      <TELL
+"The idea of the primal scream as a technique to relieve anxiety will not be
+discovered for eighty years. But if it makes you feel better, go right ahead."
+CR>
+		      <RTRUE>)>)
+	      (T
+	       <RT-NOT-LIKELY-MSG ,GL-PRSO "would respond">
+	       <RTRUE>)>>
+
+;<GLOBAL GL-BREATH-HELD? <>>	; "is player holding his breath"
+
+<ROUTINE RT-CANT-SEE-MUCH-MSG ()
+	<RT-CYOU-MSG>
+	<TELL "cannot see much from here." CR>
+	<RTRUE>>
+
+<ROUTINE RT-NO-MONEY-MSG ()
+	<RT-CYOU-MSG "do not" "does not">
+	<TELL "have any money." CR>
+	<RTRUE>>
+
+<ROUTINE RT-IN-VEHICLE-MSG ()
+	<COND (<OR <IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+		   <IN? ,CH-PLAYER ,TH-GROWLER-CAB>>
+	       <TELL " in a cab ">)
+	      (<IN? ,CH-PLAYER ,TH-BOAT>
+	       <TELL " in a boat ">)
+	      (T
+	       <TELL " standing ">)>>
+
+<ROUTINE RT-DRIVE-WALK-MSG? ()
+	<COND (<OR <IN? ,CH-PLAYER ,TH-HANSOM-CAB>
+		   <IN? ,CH-PLAYER ,TH-GROWLER-CAB>>
+	       <TELL " drive ">)
+	      (T
+	       <TELL " walk ">)>>
+
+<ROUTINE RT-ALREADY-IN-ROOM-MSG ()
+	<TELL "You are already in " THEO "." CR>>
+
+<ROUTINE RT-NOT-IN-ROOM-MSG ()
+	<TELL "You are not in " THEO "." CR>>
+
+<ROUTINE RT-OBJECT-IS-LOCKED-MSG ()
+	<RT-CYOU-MSG>
+	<TELL "cannot do that. It is locked." CR>
+	<RTRUE>>
+
+<ROUTINE RT-NOTHING-INTERESTING-MSG ()
+	<RT-CYOU-MSG "do" "does">
+	<TELL "not see anything " <RT-PICK-NEXT ,GL-BORING-TXT>>
+	<RTRUE>>
+
+<ROUTINE RT-WASTE-OF-TIME-MSG ()
+	<TELL <RT-PICK-NEXT ,GL-NO-POINT-TXT> "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-FOG-MSG ()
+	<TELL <RT-PICK-NEXT ,GL-FOG-TXT> "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-ITS-RIGHT-HERE-MSG ()
+	<RT-SAY-ITS-MSG>
+	<TELL "right here in front of you." CR>
+	<RTRUE>>
+
+<ROUTINE RT-WHO-WHAT-WHERE-MSG ()
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-RESPONSE-MSG <COND (<MC-VERB? WHO WHAT WHERE> ,GL-WINNER)>>
+	       <RFALSE>)>>
+
+<ROUTINE RT-HI-BYE-MSG ()
+	<COND (<RT-FOOLISH-TO-TALK-MSG>
+	       <RFATAL>)
+	      (<MC-PRSO? ,ROOMS>
+	       <RT-TALK-TO-SELF-MSG>
+	       <RTRUE>)
+	      (T
+	       <RT-NO-RESPONSE-MSG>
+	       <RTRUE>)>>
+
+<ROUTINE RT-NO-RESPONSE-MSG ("OPTIONAL" (WHO <>))
+	<COND (<MC-F? .WHO>
+	       <SET WHO ,GL-PRSO>)>
+	<TELL CTHE .WHO>
+	<RT-DONT-DOESNT-MSG .WHO>
+	<TELL "respond." CR>
+	<RTRUE>>
+
+<ROUTINE RT-TAKE-OFF-PRSO-FIRST-MSG ()
+	<TELL "[taking off " THEO " first]" CR>
+	<MC-UNMAKE ,GL-PRSO ,FL-WORN>
+	<COND (<MC-PRSO? ,TH-WATSONS-HAT>
+	       <MC-MAKE ,TH-WATSONS-HAT ,FL-OPENED>)
+	      (<MC-PRSO? ,TH-SUIT-OF-ARMOUR>
+	       <MOVE ,TH-SUIT-OF-ARMOUR ,GL-PLACE-CUR>)>
+	<RTRUE>>
+
+<ROUTINE RT-SAY-DROPPED-MSG ()
+	<COND (<MC-T? ,GL-P-MULT?>
+	       <TELL "Dropped." CR>
+	       <RTRUE>)
+	      (T
+	       <RT-CYOU-MSG "drop" "drops">
+	       <TELL THEO "." CR>
+	       <RTRUE>)>>
+
+<ROUTINE RT-FOOLISH-TO-TALK-MSG ()
+	<COND (<N==? ,GL-WINNER ,CH-ME ,CH-PLAYER>
+	       <TELL CTHE ,GL-WINNER>
+	       <RT-DONT-DOESNT-MSG ,GL-WINNER>
+	       <TELL "respond." CR>
+	       <RTRUE>)
+	      (<EQUAL? ,GL-PRSO <> ,ROOMS>
+	       <RFALSE>)
+	      (<MC-ISNOT? ,GL-PRSO ,FL-ALIVE>
+	       <RT-NOT-LIKELY-MSG ,GL-PRSO "would respond">
+	       <RT-P-CLEAR>
+	       <RTRUE>)
+	      (<MC-PRSO? ,CH-ME ,CH-PLAYER ,GL-PRSI ,GL-WINNER>
+	       <TELL "That would">
+	       <RT-WASTE-OF-TIME-MSG>
+	       <RT-P-CLEAR>
+	       <RTRUE>)
+	      (T
+	       <RT-THIS-IS-IT ,GL-PRSO>
+	       <RFALSE>)>>
+
+<ROUTINE RT-YOU-MSG ("OPTIONAL" (WRD1 <>) (WRD2 <>) (PRONOUN? <>))
+	<COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <TELL " you ">
+	       <COND (<MC-T? .WRD1>
+		      <TELL .WRD1 " ">)>)
+	      (T
+	       <TELL " ">
+	       <COND (.PRONOUN?
+		      <COND (<AND <MC-IS? ,GL-WINNER ,FL-PLURAL>
+				  <MC-ISNOT? ,GL-WINNER ,FL-COLLECTIVE>>
+			     <TELL "they">)
+			    (<MC-IS? ,GL-WINNER ,FL-PERSON>
+			     <COND (<MC-IS? ,GL-WINNER ,FL-FEMALE>
+				    <TELL "she">)
+				   (T
+				    <TELL "he">)>)
+			    (T
+			     <TELL "it">)>)
+		     (T
+		      <TELL THE ,GL-WINNER>)>
+	       <TELL " ">
+	       <COND (<MC-T? .WRD2>
+		      <TELL .WRD2 " ">)>)>>
+
+<ROUTINE RT-CYOU-MSG ("OPTIONAL" (WRD1 <>) (WRD2 <>) (PRONOUN? <>))
+	<COND (<EQUAL? ,GL-WINNER ,CH-PLAYER>
+	       <TELL "You ">
+	       <COND (<MC-T? .WRD1>
+		      <TELL .WRD1 " ">)>)
+	      (T
+	       <COND (.PRONOUN? <COND (<AND <MC-IS? ,GL-WINNER ,FL-PLURAL>
+					    <MC-ISNOT? ,GL-WINNER ,FL-COLLECTIVE>>
+				       <TELL "They">)
+				      (<MC-IS? ,GL-WINNER ,FL-PERSON>
+				       <COND (<MC-IS? ,GL-WINNER ,FL-FEMALE>
+					      <TELL "She">)
+					     (T
+					      <TELL "He">)>)
+				      (T
+				       <TELL "It">)>)
+		     (T
+		      <TELL CTHE ,GL-WINNER>)>
+	       <TELL " ">
+	       <COND (<MC-T? .WRD2>
+		      <TELL .WRD2 " ">)>)>>
+
+<ROUTINE RT-ITS-ALREADY-MSG (STR)
+	<TELL "It is already " .STR "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-YOURE-NOT-A-MSG (STR)
+	<TELL "You're a general practitioner, not a " .STR "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-NO-POINT-MSG (STR)
+	<TELL .STR " " THEO " would" <RT-PICK-NEXT ,GL-NO-POINT-TXT> "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-IS-ARE-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<OR <EQUAL? .THING ,CH-ME ,CH-PLAYER>
+		   <AND <MC-IS? .THING ,FL-PLURAL>
+			<MC-ISNOT? .THING ,FL-COLLECTIVE>>>
+	       <TELL " are ">)
+	      (T
+	       <TELL " is ">)>
+	<RTRUE>>
+
+<ROUTINE RT-ISNT-ARENT-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<OR <EQUAL? .THING ,CH-ME ,CH-PLAYER>  
+	           <AND <MC-IS? .THING ,FL-PLURAL>
+		        <MC-ISNOT? .THING ,FL-COLLECTIVE>>>
+	       <TELL " are not ">)
+	      (T
+	       <TELL " is not ">)>
+	<RTRUE>>
+
+<ROUTINE RT-S-NOS-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<NOT <OR <EQUAL? .THING ,CH-ME ,CH-PLAYER>  
+			<AND <MC-IS? .THING ,FL-PLURAL>
+			     <MC-ISNOT? .THING ,FL-COLLECTIVE>>>>
+	       <TELL "s">)>
+	<RTRUE>>
+
+<ROUTINE RT-ES-NOES-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<NOT <OR <EQUAL? .THING ,CH-ME ,CH-PLAYER>  
+			<AND <MC-IS? .THING ,FL-PLURAL>
+			     <MC-ISNOT? .THING ,FL-COLLECTIVE>>>>
+	       <TELL "es">)>
+	<RTRUE>>
+
+<ROUTINE RT-DONT-DOESNT-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<OR <EQUAL? .THING ,CH-ME ,CH-PLAYER>  
+	           <AND <MC-IS? .THING ,FL-PLURAL>
+		        <MC-ISNOT? .THING ,FL-COLLECTIVE>>>
+	       <TELL " do not ">)
+	      (T
+	       <TELL " does not ">)>
+	<RTRUE>>
+
+<ROUTINE RT-SAY-ITS-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<AND <MC-IS? .THING ,FL-PLURAL>
+		    <MC-ISNOT? .THING ,FL-COLLECTIVE>>
+	       <TELL "They are ">
+	       <RTRUE>)
+	      (<AND <MC-IS? .THING ,FL-PERSON>
+		    <MC-IS? .THING ,FL-FEMALE>>
+	       <TELL "She is ">
+	       <RTRUE>)
+	      (<AND <MC-IS? .THING ,FL-PERSON>
+		    <MC-ISNOT? .THING ,FL-FEMALE>>
+	       <TELL "He is ">
+	       <RTRUE>)
+	      (T
+	       <TELL "It is ">
+	       <RTRUE>)>>
+
+<ROUTINE RT-SAY-HIM-HER-THEM-IT-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<EQUAL? .THING ,CH-PLAYER ,CH-ME>
+	       <COND (<EQUAL? ,GL-WINNER ,CH-PLAYER ,CH-ME>
+		      <TELL "yourself">)
+		     (T
+		      <TELL "you">)>)
+	      (<AND <MC-IS? .THING ,FL-PLURAL>
+		    <MC-ISNOT? .THING ,FL-COLLECTIVE>>
+	       <TELL "them">)
+	      (<MC-IS? .THING ,FL-PERSON>
+	       <COND (<MC-IS? .THING ,FL-FEMALE>
+		      <TELL "her">)
+		     (T
+		      <TELL "him">)>)
+	      (T
+	       <TELL "it">)>>
+
+<ROUTINE RT-YOUR-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-WINNER>)>
+	<COND (<EQUAL? .THING ,CH-PLAYER ,CH-ME>
+	       <TELL "your ">)
+	      (<AND <MC-IS? .THING ,FL-PLURAL>
+		    <MC-ISNOT? .THING ,FL-COLLECTIVE>>
+	       <TELL "their ">)
+	      (<MC-IS? .THING ,FL-PERSON>
+	       <COND 
+		(<MC-IS? .THING ,FL-FEMALE>
+		 <TELL "her ">)
+		(T
+		 <TELL "his ">)>)
+	      (T
+	       <TELL "its ">)>>
+
+<ROUTINE RT-ITS-CLOSED-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<TELL CTHE .THING>
+	<RT-IS-ARE-MSG .THING>
+	<TELL "closed." CR>
+	<RTRUE>>
+
+<ROUTINE RT-WHY-SHOOT-MSG ("OPTIONAL" (OBJ <>))
+	<COND (<MC-F? .OBJ>
+	       <SET OBJ ,GL-PRSO>)>
+	<TELL "Why would">
+	<RT-YOU-MSG>
+	<TELL "want to shoot the poor, little, innocent " D .OBJ "?" CR>>
+
+<ROUTINE RT-HOW-READ-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<TELL "How can">
+	<RT-YOU-MSG>
+	<TELL "read " A .THING>
+	<RTRUE>>
+
+<ROUTINE RT-ALREADY-HAVE-PRSO-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<RT-CYOU-MSG "already have" "already has">
+	<TELL A .THING "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-CANT-OPEN-PRSO-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<RT-CYOU-MSG>
+	<TELL "could not possibly open " THE .THING "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-CANT-CLOSE-THAT-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<RT-CYOU-MSG>
+	<TELL "cannot close ">
+	<COND (<MC-T? .THING>
+	       <TELL THE .THING>)
+	      (T
+	       <TELL D ,TH-NOT-HERE-OBJECT>)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-NO-GOOD-SURFACE-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSI>)>
+	<TELL "There is no good surface on " THE .THING "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-LANDS-AT-YOUR-FEET-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<TELL "land">
+	<RT-S-NOS-MSG .THING>
+	<TELL " at your feet." CR>
+	<MOVE .THING ,GL-PLACE-CUR>
+	<RTRUE>>
+
+<ROUTINE RT-OPEN-CLOSED-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<TELL CTHE .THING>
+	<RT-IS-ARE-MSG .THING>
+	<COND (<MC-IS? .THING ,FL-OPENED>
+	       <TELL "open">)
+	      (T
+	       <TELL "closed">)>
+	<TELL ".">
+	<RTRUE>>
+
+<ROUTINE RT-YOU-OPEN-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<MC-MAKE .THING ,FL-OPENED>
+	<RT-CYOU-MSG "open" "opens">
+	<TELL THE .THING "." CR>>
+
+<ROUTINE RT-YOU-CLOSE-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<MC-UNMAKE .THING ,FL-OPENED>
+	<RT-CYOU-MSG "close" "closes">
+	<TELL THE .THING "." CR>>
+
+<ROUTINE RT-IN-ON-MSG ("OPTIONAL" (THING <>) (SPACE? T))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<MC-T? .SPACE?>
+	       <TELL " ">)>
+	<COND (<MC-IS? .THING ,FL-CONTAINER>
+	       <TELL "in">)
+	      (<MC-IS? .THING ,FL-SURFACE>
+	       <TELL "on">)
+	      (T
+	       <TELL "held by">)>
+	<TELL " ">>
+
+<ROUTINE RT-CIN-CON-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<MC-IS? .THING ,FL-SURFACE>
+	       <TELL "On ">)
+	      (<MC-IS? .THING ,FL-CONTAINER>
+	       <TELL "In ">)
+	      (T
+	       <TELL "Held by ">)>>
+
+<ROUTINE RT-OUT-OFF-MSG ("OPTIONAL" (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<COND (<MC-IS? .THING ,FL-SURFACE>
+	       <TELL " off of ">)
+	      (<MC-IS? .THING ,FL-CONTAINER>
+	       <TELL " out of ">)
+	      (T
+	       <TELL " from ">)>>
+
+<ROUTINE RT-CANT-LOCK-MSG ("OPTIONAL" (UN? <>) (THING <>))
+	<COND (<MC-F? .THING>
+	       <SET THING ,GL-PRSO>)>
+	<RT-CYOU-MSG>
+	<TELL "cannot ">
+	<COND (<MC-T? .UN?>
+	       <TELL "un">)>
+	<TELL "lock " A .THING "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-THING-WONT-LOCK-MSG (THING CLOSED-THING "OPTIONAL" (UN? <>))
+	<RT-CYOU-MSG>
+	<TELL "cannot ">
+	<COND (<MC-T? .UN?>
+	       <TELL "un">)>
+	<TELL "lock " THE .CLOSED-THING " with " THE .THING "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-DONT-HAVE-MSG (OBJ "AUX" L O)
+	<SET L <LOC .OBJ>>
+	<COND (<MC-F? .L> T)
+	      (<EQUAL? .L ,GL-WINNER>
+	       <RFALSE>)
+	      (<AND <IN? .L ,CH-PLAYER>
+		    <EQUAL? ,GL-WINNER ,CH-PLAYER>>
+	       <SET O ,GL-PRSO>
+	       <SETG GL-PRSO .OBJ>
+	       <COND (<RT-ITAKE <>>
+		      <TELL "[taking " THEO>
+		      <RT-OUT-OFF-MSG .L>
+		      <TELL THE .L " first]" CR>
+		      <SETG GL-PRSO .O>
+		      <RT-THIS-IS-IT ,GL-PRSO>
+		      <RFALSE>)
+		     (T
+		      <SETG GL-PRSO .O>
+		      <RT-CYOU-MSG>
+		      <RT-WOULD-HAVE-TO-MSG "take" .OBJ>
+		      <RT-OUT-OFF-MSG .L>
+		      <TELL THE .L " first." CR>
+		      <RTRUE>)>)>
+	<RT-WINNER-NOT-HOLDING-MSG>
+	<COND (<MC-T? .OBJ>
+	       <COND ;(<AND <MC-IS? .OBJ ,FL-PLURAL>
+			    <MC-ISNOT? .OBJ ,FL-NOARTC>>
+		       <TELL "any " D .OBJ>)
+		     (T
+		      <TELL THE .OBJ>)>)
+	      (T
+	       <TELL THE ,TH-NOT-HERE-OBJECT>)>
+	<TELL "." CR>
+	<RTRUE>>
+
+<ROUTINE RT-ROOM-IN-ON-MSG? (OBJ1 OBJ2)
+	<COND (<RT-OBJ-TOO-LARGE? .OBJ1 .OBJ2>
+	       <TELL "There is not enough room">
+	       <RT-IN-ON-MSG .OBJ2>
+	       <TELL THE .OBJ2 "." CR>)>>
+
+<ROUTINE RT-IMPOSSIBLE-PUT-IN-ON-MSG ("OPTIONAL" OBJ)
+	<COND (<MC-F? .OBJ>
+	       <SET OBJ ,GL-PRSI>)>
+	<COND (<AND <MC-VERB? PUT PUT-ON>
+		    <MC-PRSI? .OBJ>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RTRUE>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-CANT-PUT-IN-ON-MSG ("OPTIONAL" OBJ)
+	<COND (<MC-F? .OBJ>
+	       <SET OBJ ,GL-PRSI>)>
+	<COND (<AND <MC-VERB? PUT PUT-ON>
+		    <MC-PRSI? .OBJ>>
+	       <RT-CYOU-MSG>
+	       <TELL "cannot put " THEO " ">
+	       <COND (<MC-IS? ,GL-PRSO ,FL-CONTAINER>
+		      <TELL "in">)
+		     (<MC-IS? ,GL-PRSO ,FL-SURFACE>
+		      <TELL "on">)
+		     (<MC-VERB? PUT>
+		      <TELL "in">)
+		     (T
+		      <TELL "on">)>
+	       <TELL " " THEI "." CR>)>>
+
+<ROUTINE RT-CHECK-MOVE-MSG? (SRC DEST "AUX" PTR OLOC CNT)
+	<COND (<MC-T? .DEST>
+	       <SET PTR ,GL-LOC-TRAIL>
+	       <SET OLOC .DEST>
+	       <REPEAT ()
+		       <PUT .PTR 0 .OLOC>
+		       <INC CNT>
+		       <COND (<OR <MC-F? .OLOC>
+				  <IN? .OLOC ,ROOMS>
+				  <IN? .OLOC ,LOCAL-GLOBALS>
+				  <IN? .OLOC ,GLOBAL-OBJECTS>>
+			      <RETURN>)>
+		       <SET OLOC <LOC .OLOC>>
+		       <SET PTR <REST .PTR 2>>
+		       <COND (<EQUAL? .OLOC .DEST>
+			      <RETURN>)>>
+	       <COND (<INTBL? .SRC ,GL-LOC-TRAIL .CNT>
+		      <RT-CYOU-MSG>
+		      <TELL "cannot put " THE .SRC>
+		      <RT-IN-ON-MSG .SRC>
+		      <TELL "itself, or">
+		      <RT-IN-ON-MSG .SRC>
+		      <TELL "something that is already">
+		      <RT-IN-ON-MSG .SRC>
+		      <TELL "it." CR>
+		      <RTRUE>)>)>>
+
+<ROUTINE RT-EMPTY-PRSO-MSG (DEST "AUX" OBJ NXT X)
+	<SET OBJ <FIRST? ,GL-PRSO>>
+	<COND (<MC-F? .OBJ>
+	       <TELL "There is nothing">
+	       <RT-IN-ON-MSG ,GL-PRSO>
+	       <TELL THEO "." CR>
+	       <RTRUE>)>
+	<SETG GL-P-MULT? T>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)>
+		<TELL CTHE .OBJ ": ">
+		<SET NXT <NEXT? .OBJ>>
+		<COND (<EQUAL? .DEST ,CH-PLAYER>
+		       <SET X <RT-PERFORM ,V?TAKE .OBJ ,GL-PRSO>>
+		       <COND (<EQUAL? .X ,FATAL-VALUE>
+			      <RETURN>)>)
+		      (<NOT .DEST>
+		       <COND (<AND <MC-IS? ,GL-PRSO ,FL-PLURAL>
+				   <MC-ISNOT? ,GL-PRSO ,FL-COLLECTIVE>>
+			      <TELL "They ">)
+			     (T
+			      <TELL "It ">)>
+		       <RT-LANDS-AT-YOUR-FEET-MSG>)
+		      (<RT-ROOM-IN-ON-MSG? .OBJ .DEST> T)
+		      (<RT-CHECK-MOVE-MSG? .OBJ .DEST>
+		       <RETURN>)
+		      (T
+		       <MOVE .OBJ .DEST>
+		       <TELL "Done." CR>)>
+		<SET OBJ .NXT>>
+	<SETG GL-P-MULT? <>>
+	<RTRUE>>
+
+<ROUTINE RT-IDROP-MSG ("AUX" L)
+	<SET L <LOC ,GL-PRSO>>
+	<COND (<OR <MC-F? .L>
+		   <MC-PRSO? ,GL-WINNER ,CH-ME ,CH-PLAYER>>
+	       <RT-IMPOSSIBLE-MSG>
+	       <RFALSE>)
+	      (<NOT <EQUAL? .L ,GL-WINNER>>
+	       <RT-CYOU-MSG>
+	       <RT-WOULD-HAVE-TO-MSG "take" ,GL-PRSO>
+	       <RT-OUT-OFF-MSG .L>
+	       <TELL THE .L " first." CR>
+	       <RFALSE>)
+	      (<AND <MC-IS? ,GL-PRSO ,FL-WORN>
+		    <IN? ,GL-PRSO ,GL-WINNER>>
+	       <RT-TAKE-OFF-PRSO-FIRST-MSG>)>
+	<COND (<MC-VERB? THROW>
+	       <MOVE ,GL-PRSO <RT-META-LOC ,GL-WINNER>>)
+	      (T
+	        <MOVE ,GL-PRSO <LOC ,GL-WINNER>>)>
+	<RTRUE>>	
+
+<ROUTINE RT-PRINT-CONTENTS-1 (THING "AUX" OBJ (CNT 0) TMP)
+	<RT-MOVE-NODESC-OBJS .THING ,TH-Y-OBJECT>
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)>
+		<MC-MAKE .OBJ ,FL-SEEN>
+		<TELL "  " A .OBJ>
+		<COND (<MC-IS? .OBJ ,FL-LIGHTED>
+		       <TELL " (providing light)">)>
+		<TELL "." CR>
+		<INC CNT>
+		<SET OBJ <NEXT? .OBJ>>>
+	<COND (<ZERO? .CNT>
+	       <TELL "  nothing." CR>)>
+	<RT-MOVE-ALL ,TH-Y-OBJECT .THING>
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <COND (<RT-SEE-INSIDE? .OBJ>
+			      <RT-PRINT-CONTENTS-3 .OBJ>)>
+		       <SET OBJ <NEXT? .OBJ>>)>>
+	<RTRUE>>
+
+<ROUTINE RT-PRINT-CONTENTS-2 (THING "AUX" OBJ (CNT 0))
+	<RT-MOVE-NODESC-OBJS .THING ,TH-Y-OBJECT>
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)>
+		<MC-MAKE .OBJ ,FL-SEEN>
+		<TELL A .OBJ>
+		<COND (<MC-IS? .OBJ ,FL-LIGHTED>
+		       <TELL " (providing light)">)>
+		<INC CNT>
+		<SET OBJ <NEXT? .OBJ>>
+		<COND (<MC-T? .OBJ>
+		       <COND (<MC-F? <NEXT? .OBJ>>
+			      <TELL " and ">)
+			     (T
+			      <TELL ", ">)>)>>
+	<COND (<ZERO? .CNT>
+	       <TELL "nothing">)>
+	<RT-MOVE-ALL ,TH-Y-OBJECT .THING>
+	<RTRUE>>
+
+<ROUTINE RT-PRINT-CONTENTS-3 (THING "AUX" OBJ (FIRST T) (CNT 0))
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (<MC-ISNOT? .OBJ ,FL-NODESC>
+		       <COND (<MC-T? .FIRST>
+			      <SET FIRST <>>
+			      <RT-CIN-CON-MSG <LOC .OBJ>>
+			      <TELL THE <LOC .OBJ> " you see:" CR>)>
+		       <TELL "  " A .OBJ CR>)>
+		<SET OBJ <NEXT? .OBJ>>>
+	<SET OBJ <FIRST? .THING>>
+	<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <COND (<RT-SEE-INSIDE? .OBJ>
+			      <RT-PRINT-CONTENTS-3 .OBJ>)>
+		       <SET OBJ <NEXT? .OBJ>>)>>>
+
+<ROUTINE RT-DO-WALK (DIR1 "OPTIONAL" (DIR2 <>) (DIR3 <>) "AUX" X)
+	<SETG GL-P-WALK-DIR .DIR1>
+	<SET X <RT-PERFORM ,V?WALK .DIR1>>
+	<COND (<AND <MC-T? .DIR2>
+		    <NOT <EQUAL? .X <> ,FATAL-VALUE>>>
+	       <SETG GL-P-WALK-DIR .DIR2>
+	       <SET X <RT-PERFORM ,V?WALK .DIR2>>
+	       <COND (<AND <MC-T? .DIR3>
+			   <NOT <EQUAL? .X <> ,FATAL-VALUE>>>
+		      <SETG GL-P-WALK-DIR .DIR3>
+		      <SET X <RT-PERFORM ,V?WALK .DIR3>>)>)>
+	<RETURN .X>>
+
+<ROUTINE RT-WHO-SAYS? ()
+	<COND (<AND <MC-HERE? <RT-META-LOC ,CH-HOLMES>>
+		    <MC-ISNOT? ,CH-HOLMES ,FL-ASLEEP>
+		    <MC-ISNOT? ,CH-HOLMES ,FL-LOCKED>>
+	       <RETURN ,CH-HOLMES>)
+	      (<AND <MC-HERE? <RT-META-LOC ,CH-WIGGINS>>
+		    <MC-ISNOT? ,CH-WIGGINS ,FL-ASLEEP>
+		    <MC-ISNOT? ,CH-WIGGINS ,FL-LOCKED>>
+	       <RETURN ,CH-WIGGINS>)
+	      (T
+	       <RFALSE>)>>
+
+<ROUTINE RT-TRANSCRIPT (STR)
+	<DIROUT ,K-D-SCR-OFF>
+	<TELL CR "Transcript: " .STR CR>
+	<RT-VERSION-MSG>
+	<DIROUT ,K-D-SCR-ON>>
+
+<ROUTINE RT-QSR ("AUX" KEY)
+	<IFSOUND <KILL-SOUNDS>>
+	<TELL "The game is no longer afoot." CR CR>
+	<REPEAT ()
+		<TELL "Do you wish to: (1) Quit, (2) Restart, (3) Restore, (4) Hints">
+		<COND (<MC-T? ,GL-CAN-UNDO>
+		       <TELL ", (5) Undo">)>
+		<TELL " ?" CR>
+		<SET KEY <INPUT 1>>
+		<COND (<EQUAL? .KEY 49>
+		       <QUIT>
+		       <TELL "Quit failed." CR>)
+		      (<EQUAL? .KEY 50>
+		       <RESTART>
+		       <TELL "Restart failed." CR>)
+		      (<EQUAL? .KEY 51>
+		       <COND (<MC-T? ,GL-DEBUG-FLAG>
+			      <V-REFRESH>)>
+		       <RT-P-CLEAR>
+		       <PUTB ,GL-OOPS-INBUF 1 0>
+		       <RESTORE>
+		       <TELL "Restore failed." CR>)
+		      (<EQUAL? .KEY 52>
+		       <V-HINT>
+		       <V-REFRESH>
+		       <AGAIN>)
+		      (<AND <EQUAL? .KEY 53>
+			    <MC-T? ,GL-CAN-UNDO>>
+		       <V-UNDO>)>>>
+
+<ROUTINE V-YES ()
+	<TELL ,K-GOOD-SHOW-MSG CR>
+	<RFATAL>> 
+
+<ROUTINE V-NO ()
+	<TELL ,K-PITY-MSG CR>
+	<RFATAL>> 
+
+<ROUTINE V-MAYBE ()
+	<TELL ,K-MAYBE-MSG CR> 
+	<RFATAL>>
+
+<ROUTINE V-DESC-LEVEL ()
+	<TELL "[">
+	<COND (<MC-VERB-WORD? VERBOSE>
+	       <SETG GL-DESC-LEVEL 2>
+	       <TELL "Verbose">)
+	      (<MC-VERB-WORD? BRIEF>
+	       <SETG GL-DESC-LEVEL 1>
+	       <TELL "Brief">)
+	      (<MC-VERB-WORD? SUPER SUPERBRIEF>
+	       <SETG GL-DESC-LEVEL 0>
+	       <TELL "Superbrief">)>
+	<TELL " descriptions]" CR>
+	<RFATAL>>
+
+<ROUTINE V-QUIT ()
+	<TELL "[Your score is " N ,GL-SCORE-CUR " out of " N ,GL-SCORE-MAX
+", which earns you a ranking of " <RT-RANK-STR ,GL-SCORE-CUR> ".]" CR CR>
+	<TELL "Are you sure you want to quit?">
+	<COND (<RT-GET-YES-NO?>
+	       <QUIT>
+	       ;<TELL "Quit failed." CR>  ;"QUIT never returns"
+	       ;<RFATAL>)
+	      (T
+	       <TELL CR "Continuing." CR>
+	       <RFATAL>)>>
+		      
+<ROUTINE V-RESTART ()
+	<TELL "Are you sure you want to restart?">
+	<COND (<RT-GET-YES-NO?>
+	       <IFSOUND <KILL-SOUNDS>>
+	       <RESTART>
+	       ;<TELL "Restart failed." CR>  ;"RESTART never returns"
+	       ;<RFATAL>)
+	      (T
+	       <TELL CR "Continuing." CR>
+	       <RFATAL>)>>
+
+<ROUTINE V-SAVE ("AUX" X WHO)
+	<SET WHO <RT-WHO-SAYS?>>
+	<COND (<EQUAL? .WHO ,CH-HOLMES>
+	       <TELL
+CTHE ,CH-HOLMES " nods in approval and says, \"A wise move, Watson. These are
+dangerous times.\"" CR CR>)
+	      (<EQUAL? .WHO ,CH-WIGGINS>
+	       <TELL
+CTHE ,CH-WIGGINS " glances around in alarm and says, \"Do you know somefing I
+don't know?\"" CR CR>)>
+	<COND (<MC-T? ,GL-DEBUG-FLAG>
+	       <V-REFRESH>)>
+	<SETG GL-SCORE-STS  -1>
+	<SETG GL-MOVES-STS  -1>
+	<SETG GL-PLACE-STS  -1>
+	<RT-P-CLEAR>
+	<PUTB ,GL-OOPS-INBUF 1 0>
+	<IFSOUND <SETG SOUND-QUEUED? <>>
+		 <KILL-SOUNDS>>
+	<SET X <SAVE>>
+	<IFSOUND <COND (,SOUND-ON?
+			<CHECK-LOOPING>)>>
+	<RT-UPDATE-STATUS-LINE>
+	<COND (<ZERO? .X>
+	       <TELL "Save failed." CR>
+	       <RFATAL>)
+	      (<EQUAL? .X 1>
+	       <TELL "Save completed." CR>
+	       <RFATAL>)
+	      (T
+	       ;<V-REFRESH>
+	       <TELL "Restore completed." CR CR>
+	       <SET WHO <RT-WHO-SAYS?>>
+	       <COND (<EQUAL? .WHO ,CH-HOLMES>
+		      <TELL
+CTHE ,CH-HOLMES " looks up and says impatiently, \"Where have you been,
+Watson? We have work to do.\"" CR CR>)
+		     (<EQUAL? .WHO ,CH-WIGGINS>
+		      <TELL
+CTHE ,CH-WIGGINS " jumps nervously and then says, \"Crikey! You scared me.
+Don't sneak up on people that way.\"" CR CR>)>
+	       <RT-DESC-ALL <> T>
+	       <RFATAL>)>>
+
+<ROUTINE V-RESTORE ()
+	<IFSOUND ;<SET X <GET ,SOUND-FLAG 0>>
+	         <SETG SOUND-QUEUED? <>>
+		 <KILL-SOUNDS>>
+	<COND (<MC-T? ,GL-DEBUG-FLAG>
+	       <V-REFRESH>)>
+	<RT-P-CLEAR>
+	<PUTB ,GL-OOPS-INBUF 1 0>
+	<RESTORE>
+	<COND (<BTST <LOWCORE FLAGS> 4>
+	       <RT-INIT-SCREEN T>
+	       <RT-UPDATE-STATUS-LINE>
+	       <LOWCORE FLAGS <BAND <LOWCORE FLAGS> -5>>)>
+	<TELL "Restore failed." CR>
+	<IFSOUND <COND (,SOUND-ON?
+			<CHECK-LOOPING>)>>
+	;<IFSOUND <COND (<G? .X 1>
+			<SOUNDS </ .X 16> ,S-START <MOD .X 16>>)>>
+	<RFATAL>>
+
+<ROUTINE V-SCRIPT ()
+	<TELL "[Scripting ">
+	<COND (<MC-VERB-WORD? SCRIPT>
+	       <TELL "on">)
+	      (T
+	       <TELL "off">)>
+	<TELL "]" CR>
+	<COND (<MC-VERB-WORD? SCRIPT>
+	       <DIROUT ,K-D-PRN-ON>
+	       <RT-TRANSCRIPT "ON">)
+	      (T
+	       <RT-TRANSCRIPT "OFF">
+	       <DIROUT ,K-D-PRN-OFF>)>
+	<RFATAL>>
+
+<ROUTINE V-VERSION ()
+	<RT-VERSION-MSG>
+	<RFATAL>>
+
+<ROUTINE V-INVENTORY ("AUX" (POCKET <>) PLOC OBJ NXT OLDIT)
+	<SET OLDIT ,GL-P-IT-OBJECT>  ;"get and save current 'it' object"
+	<SET PLOC <LOC ,TH-POCKET>>	;"get and save pointer to first object"
+	<SET POCKET <FIRST? ,TH-POCKET>> ;"in pocket and then remove pocket"
+	<REMOVE ,TH-POCKET>
+	<SET OBJ <FIRST? ,CH-PLAYER>>   ;"save all objects being worn"
+	<REPEAT ()			;" in the TH-X-OBJECT object"
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <SET NXT <NEXT? .OBJ>>
+		       <COND (<AND <MC-IS? .OBJ ,FL-WORN>
+				   <N==? .OBJ ,TH-COTTON-BALLS ,TH-STETHOSCOPE>>
+			      <MOVE .OBJ ,TH-X-OBJECT>)>
+		       <SET OBJ .NXT>)>>
+	<COND (<FIRST? ,TH-X-OBJECT>   ; "describe what player is wearing"
+	       <TELL "You are wearing:" CR>
+	       <RT-PRINT-CONTENTS-1 ,TH-X-OBJECT>)>
+	<COND (<OR <MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+		   <MC-IS? ,TH-STETHOSCOPE ,FL-WORN>>
+	       <TELL "You have in your ears:" CR "  ">
+	       <COND (<MC-IS? ,TH-COTTON-BALLS ,FL-WORN>
+		      <MOVE ,TH-COTTON-BALLS ,TH-X-OBJECT>
+		      <TELL A ,TH-COTTON-BALLS "." CR>)
+		     (T
+		      <MOVE ,TH-STETHOSCOPE ,TH-X-OBJECT>
+		      <TELL A ,TH-STETHOSCOPE "." CR>)>)>
+	<COND (<AND <MC-IS? ,TH-WATSONS-COAT ,FL-WORN>
+		    <FIRST? ,TH-POCKET>>
+	       ;"describe what is in pocket"
+	       <TELL "Your pocket contains:" CR>
+	       <RT-PRINT-CONTENTS-1 ,TH-POCKET>)>
+	<TELL "You are holding:" CR>	; "describe what player is holding"
+	<RT-PRINT-CONTENTS-1 ,CH-PLAYER>
+; "describe any objects in/on any container/surface objects the player has"
+	;<SET OBJ <FIRST? ,CH-PLAYER>>
+	;<REPEAT ()
+		<COND (<MC-F? .OBJ>
+		       <RETURN>)
+		      (T
+		       <COND (<AND <RT-SEE-INSIDE? .OBJ>
+				   <RT-SEE-ANYTHING-IN? .OBJ>>
+			      <RT-CIN-CON-MSG .OBJ>
+			      <TELL THE .OBJ " you see:" CR>
+			      <RT-PRINT-CONTENTS-1 .OBJ>)>
+		       <SET OBJ <NEXT? .OBJ>>)>>
+; "move all worn objects saved in the TH-X-OBJECT object back to player"
+	<RT-MOVE-ALL ,TH-X-OBJECT ,CH-PLAYER>
+; "move the pocket object back to it's original location"
+	<MOVE ,TH-POCKET .PLOC>
+	<SETG GL-P-IT-OBJECT .OLDIT>    ; "restore the previous 'it' object"
+	<RFATAL>>			; "return fatal"
+
+<ROUTINE V-NOTIFY ()
+	<SETG GL-SCORE-MSG <NOT ,GL-SCORE-MSG>>
+	<TELL "[Score Notification ">
+	<COND (,GL-SCORE-MSG
+	       <TELL "Enabled">)
+	      (T
+	       <TELL "Disabled">)>
+	<TELL "]" CR>
+	<RFATAL>>
+
+<ROUTINE V-SCORE ()
+	<TELL
+"[You have " N ,GL-SCORE-CUR " out of " N ,GL-SCORE-MAX " points, which earns
+you a ranking of " <RT-RANK-STR ,GL-SCORE-CUR> ".]" CR>
+	<RFATAL>>
+
+<ROUTINE V-UNDO ()
+	<IFSOUND ;<SET X <GET ,SOUND-FLAG 0>>
+	         <SETG SOUND-QUEUED? <>>
+		 <KILL-SOUNDS>>
+	<SETG GL-PLACE-STS 0>
+	<COND (<ZERO? <IRESTORE>>
+	       <TELL "[UNDO failed.]" CR>)
+	      (T
+	       <TELL "[UNDO is not available.]" CR>)>
+	<IFSOUND <COND (,SOUND-ON?
+			<CHECK-LOOPING>)>>
+	;<IFSOUND <COND (<G? .X 1>
+			<SOUNDS </ .X 16> ,S-START <MOD .X 16>>)>>>
+
diff --git a/violin.bin b/violin.bin
new file mode 100644
index 0000000..fbb77d5
Binary files /dev/null and b/violin.bin differ