diff --git a/castle.zap b/castle.zap
new file mode 100644
index 0000000..8c295ef
--- /dev/null
+++ b/castle.zap
@@ -0,0 +1,1795 @@
+
+
+	.FUNCT	CASTLE-F
+	EQUAL?	PRSA,V?FIND,V?EXAMINE \?CCL3
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CCL6
+	EQUAL?	PRSA,V?FIND \?PRG12
+	PRINTR	"It's right here!"
+?PRG12:	PRINT	DARK-TURRETS
+	RTRUE	
+?CCL6:	EQUAL?	PRSO,CASTLE /?PRG18
+	FSET?	HERE,WEARBIT /?CCL15
+?PRG18:	PRINTR	"It's all around you!"
+?CCL15:	CALL	NOT-HERE,TOWER
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?BOARD \?CCL21
+	EQUAL?	PRSO,CASTLE \?CCL24
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CCL27
+	FSET?	FRIEND,TOUCHBIT /?CCL30
+	CALL	PERFORM,PRSA,COURTYARD
+	RTRUE	
+?CCL30:	CALL	PERFORM,PRSA,FOYER
+	RTRUE	
+?CCL27:	CALL	HAR-HAR
+	RSTACK	
+?CCL24:	CALL	OUTSIDE?,HERE
+	ZERO?	STACK \?CTR32
+	FSET?	HERE,WEARBIT \?CCL33
+?CTR32:	CALL	PERFORM,PRSA,OLD-GREAT-HALL
+	RTRUE	
+?CCL33:	CALL	HAR-HAR
+	RSTACK	
+?CCL21:	EQUAL?	PRSA,V?LEAVE \FALSE
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK \?CCL40
+	CALL	PERFORM,V?WALK-TO,COURTYARD
+	RTRUE	
+?CCL40:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	TOWER-F
+	EQUAL?	PRSA,V?LEAVE,V?WALK-TO,V?THROUGH /?CTR2
+	EQUAL?	PRSA,V?FIND,V?EXAMINE,V?BOARD \?CCL3
+?CTR2:	CALL	CASTLE-F
+	RSTACK	
+?CCL3:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	FSET?	HERE,WEARBIT \FALSE
+	CALL	NOT-HERE,TOWER
+	RTRUE	
+
+
+	.FUNCT	MOON-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"Strange shapes of mist dance in front of the "
+	PRINTD	MOON
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?SMELL,V?EAT \FALSE
+	CALL	PERFORM,V?SMELL,OCEAN
+	RTRUE	
+
+
+	.FUNCT	OCEAN-F
+	EQUAL?	PRSA,V?LISTEN \?CCL3
+	PRINTR	"The breakers seem to be warning you."
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
+	PRINTR	"The cliffs are too dangerous in the dark."
+
+
+	.FUNCT	CAR-DOOR-PSEUDO
+	EQUAL?	PRSA,V?UNLOCK /?CCL3
+	EQUAL?	PRSA,V?LOCK,V?CLOSE,V?OPEN \FALSE
+?CCL3:	CALL	NO-NEED
+	RSTACK	
+
+
+	.FUNCT	DRIVING?
+	ZERO?	P-PRSA-WORD /?CCL3
+	EQUAL?	P-PRSA-WORD,W?DRIVE,W?ENTER,W?STEER \FALSE
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?CLIMB-UP \?CCL7
+	EQUAL?	PRSA,V?THROUGH \?CCL10
+	EQUAL?	PRSO,CAR \?CCL10
+	ZERO?	PRSI /?CCL15
+	CALL	META-LOC,PRSI
+	EQUAL?	HERE,STACK /FALSE
+	SET	'PRSO,PRSI
+	RTRUE	
+?CCL15:	SET	'PRSO,FRONT-GATE
+	RTRUE	
+?CCL10:	CALL	META-LOC,PRSO
+	EQUAL?	HERE,STACK /FALSE
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?LEAVE \?CCL22
+	EQUAL?	PRSO,ROOMS,CAR \TRUE
+	RFALSE	
+?CCL22:	EQUAL?	PRSA,V?WALK \FALSE
+	ZERO?	P-PRSA-WORD \TRUE
+	EQUAL?	PRSO,P?OUT \TRUE
+	RFALSE	
+
+
+	.FUNCT	CAR-F,ARG=0,S
+	SET	'S,HERE
+	EQUAL?	ARG,M-BEG \?CCL3
+	CALL	DRIVING?
+	ZERO?	STACK /?CCL6
+	EQUAL?	PRSO,FRONT-GATE \?CCL9
+	EQUAL?	PRSA,V?THROUGH \?CCL12
+	FSET?	FRONT-GATE,OPENBIT /?CCL15
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL15:	EQUAL?	S,DRIVEWAY \?CCL17
+	CALL	PERFORM,V?WALK-TO,COURTYARD
+	RTRUE	
+?CCL17:	CALL	PERFORM,V?WALK-TO,DRIVEWAY
+	RTRUE	
+?CCL12:	CALL	WALK-WITHIN-ROOM
+	RSTACK	
+?CCL9:	EQUAL?	S,DRIVEWAY \?CCL19
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?CLIMB-UP \?CCL22
+	CALL	META-LOC,PRSO
+	EQUAL?	DRIVEWAY,STACK \?CCL25
+	CALL	WALK-WITHIN-ROOM
+	RSTACK	
+?CCL25:	FSET?	FRONT-GATE,OPENBIT /?CCL27
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL27:	CALL	CAR-TO-COURTYARD
+	RSTACK	
+?CCL22:	EQUAL?	PRSA,V?LEAVE \?CCL29
+	EQUAL?	PRSO,COURTYARD \?CCL32
+	CALL	HAR-HAR
+	RSTACK	
+?CCL32:	FSET?	FRONT-GATE,OPENBIT /?CCL34
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL34:	CALL	CAR-TO-COURTYARD
+	RSTACK	
+?CCL29:	EQUAL?	PRSO,P?IN,P?SOUTH /?CTR35
+	EQUAL?	PRSO,INTDIR \?CCL36
+	CALL	ADJ-USED?,W?SOUTH
+	ZERO?	STACK /?CCL36
+?CTR35:	FSET?	FRONT-GATE,OPENBIT /?CCL43
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL43:	CALL	CAR-TO-COURTYARD
+	RSTACK	
+?CCL36:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINT	CASTLE-IS-SOUTH
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?CLIMB-UP \?CCL48
+	CALL	META-LOC,PRSO
+	EQUAL?	COURTYARD,STACK \?CCL51
+	CALL	WALK-WITHIN-ROOM
+	RSTACK	
+?CCL51:	FSET?	FRONT-GATE,OPENBIT /?CCL53
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL53:	CALL	CAR-TO-DRIVEWAY
+	RSTACK	
+?CCL48:	EQUAL?	PRSA,V?LEAVE \?CCL55
+	EQUAL?	PRSO,DRIVEWAY \?CCL58
+	CALL	HAR-HAR
+	RSTACK	
+?CCL58:	FSET?	FRONT-GATE,OPENBIT /?CCL60
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL60:	CALL	CAR-TO-DRIVEWAY
+	RSTACK	
+?CCL55:	EQUAL?	PRSO,P?NORTH /?CTR61
+	EQUAL?	PRSO,INTDIR \?CCL62
+	CALL	ADJ-USED?,W?NORTH
+	ZERO?	STACK /?CCL62
+?CTR61:	FSET?	FRONT-GATE,OPENBIT /?CCL69
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL69:	CALL	CAR-TO-DRIVEWAY
+	RSTACK	
+?CCL62:	EQUAL?	PRSO,P?OUT \?CCL71
+	EQUAL?	P-PRSA-WORD,FALSE-VALUE,W?GO /FALSE
+	FSET?	FRONT-GATE,OPENBIT /?CCL76
+	CALL	TOO-BAD-BUT,FRONT-GATE,STR?61
+	RSTACK	
+?CCL76:	CALL	CAR-TO-DRIVEWAY
+	RSTACK	
+?CCL71:	CALL	YOU-CANT,STR?41
+	RSTACK	
+?CCL6:	EQUAL?	PRSA,V?WALK \?CCL78
+	EQUAL?	PRSO,P?OUT \?CCL78
+	MOVE	WINNER,HERE
+	CALL	OWN-FEET
+	RSTACK	
+?CCL78:	EQUAL?	PRSA,V?WALK,V?STAND,V?FOLLOW /?CTR81
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?LEAVE \?CCL82
+	ZERO?	PRSO /?CCL82
+	EQUAL?	PRSO,LUGGAGE,ROOMS,CAR /?CCL82
+?CTR81:	CALL	FIRST-YOU,STR?224,CAR
+	MOVE	WINNER,HERE
+	EQUAL?	PRSA,V?STAND /TRUE
+	RFALSE	
+?CCL82:	EQUAL?	PRSO,ROOMS \FALSE
+	EQUAL?	PRSA,V?STOP \FALSE
+	CALL	PERFORM,PRSA,CAR
+	RTRUE	
+?CCL3:	EQUAL?	ARG,M-LOOK \?CCL97
+	LOC	WINNER
+	EQUAL?	STACK,CAR \TRUE
+	PRINTI	"You are sitting in your new little "
+	PRINTD	CAR
+	PRINTR	"."
+?CCL97:	ZERO?	ARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?CCL105
+	CALL	TELL-ABOUT-CAR
+	RTRUE	
+?CCL105:	EQUAL?	PRSA,V?UNLOCK /?CCL107
+	EQUAL?	PRSA,V?LOCK,V?LAMP-ON,V?LAMP-OFF /?CCL107
+	EQUAL?	PRSA,V?OPEN,V?CLOSE,V?CLIMB-ON \FALSE
+?CCL107:	CALL	NO-NEED,STR?225
+	RSTACK	
+
+
+	.FUNCT	CAR-TO-COURTYARD
+	MOVE	CAR,COURTYARD
+	PRINTI	"Your headlights bravely pierce the gloom as you enter the "
+	PRINTD	COURTYARD
+	PRINTI	". You get out of your car.
+"
+	CALL	GOTO,COURTYARD
+	RSTACK	
+
+
+	.FUNCT	CAR-TO-DRIVEWAY
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(You can't leave yet. There's a mystery to be solved!)"
+
+
+	.FUNCT	TELL-ABOUT-CAR,X
+	PRINTI	"Your new little "
+	CALL	PRINT-COLOR
+	ZERO?	STACK /?PRG7
+	PRINTC	32
+?PRG7:	PRINTD	CAR
+	PRINTR	" is parked here."
+
+
+	.FUNCT	VOICE-F
+	EQUAL?	HERE,DRIVEWAY \?CCL3
+	ZERO?	DRAGON-EYE-COLOR /FALSE
+	EQUAL?	PRSA,V?LISTEN /?CCL6
+	CALL	SPEAKING-VERB?
+	ZERO?	STACK /FALSE
+?CCL6:	CALL	VOICE-SAYS
+	RSTACK	
+?CCL3:	EQUAL?	HERE,DINING-ROOM \FALSE
+	EQUAL?	PRSA,V?LISTEN \FALSE
+	CALL	BUST-F
+	RSTACK	
+
+
+	.FUNCT	HORN-F
+	EQUAL?	PRSA,V?SOUND,V?SLAP /?CCL3
+	EQUAL?	PRSA,V?RUB,V?PUSH,V?RING \FALSE
+?CCL3:	GETB	LAST-NAME,0
+	ZERO?	STACK /?CCL8
+	CALL	GATE-OPENS
+	ZERO?	STACK \TRUE
+	PRINTR	"""H-O-O-O-N-K!"""
+?CCL8:	CALL	THIS-IS-IT,VOICE
+	MOVE	VOICE,DRIVEWAY
+	CALL	PERFORM,V?PUSH,DRAGON-EYE
+	RTRUE	
+
+
+	.FUNCT	DRIVEWAY-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?YELL \?CCL6
+	CALL	PERFORM,V?KNOCK,FRONT-GATE
+	RTRUE	
+?CCL6:	ZERO?	DRAGON-EYE-COLOR /FALSE
+	CALL	SPEAKING-VERB?
+	ZERO?	STACK \?CCL8
+	EQUAL?	PRSA,V?LISTEN \FALSE
+	EQUAL?	PRSO,DRAGON-EYE,DRAGON,FRONT-GATE \FALSE
+?CCL8:	CALL	VOICE-SAYS
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are by the "
+	FSET?	FRONT-GATE,OPENBIT \?PRG23
+	PRINTI	"open "
+?PRG23:	PRINTD	FRONT-GATE
+	PRINTI	" of "
+	PRINTD	CASTLE
+	PRINTI	". You can hear the ocean beating urgently against the rocks far below.
+"
+	CALL	TELL-ABOUT-DRAGON
+	RTRUE	
+
+
+	.FUNCT	DRAGON-F
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	CALL	TELL-ABOUT-DRAGON
+	RTRUE	
+?CCL3:	CALL	DRAGON-EYE-F
+	RSTACK	
+
+
+	.FUNCT	TELL-ABOUT-DRAGON
+	PRINTI	"In the moonlit gloom, you can make out an ornament on the gate. It's a winged, two-legged dragon called a wyvern, which crests the "
+	PRINT	TRESYLLIAN
+	PRINTI	" family's coat of arms.
+The dragon appears in profile. "
+	CALL	THIS-IS-IT,DRAGON-EYE
+	CALL	TELL-ABOUT-EYE
+	RTRUE	
+
+
+	.FUNCT	I-DRAGON-EYE,GARG=0
+	GETB	LAST-NAME,0
+	ZERO?	STACK \FALSE
+	CALL	PERFORM,V?PUSH,DRAGON-EYE
+	RETURN	2
+
+
+	.FUNCT	DRAGON-EYE-F
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	CALL	TELL-ABOUT-EYE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LEAP,V?CLIMB-ON,V?BOARD \?CCL5
+	PRINT	TOO-SLIPPERY
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?TURN,V?SLAP /?CTR8
+	EQUAL?	PRSA,V?RUB,V?RING,V?PUSH /?CTR8
+	EQUAL?	PRSA,V?MUNG,V?MOVE,V?KNOCK \?CCL9
+?CTR8:	LESS?	DRAGON-EYE-COLOR,0 /?CND13
+	SET	'DRAGON-EYE-COLOR,-1
+	PRINTI	"The "
+	PRINTD	DRAGON-EYE
+	PRINTI	" glows red. "
+?CND13:	EQUAL?	PRSA,V?PUSH /?PRG21
+	PRINTI	"Evidently you just pushed a button. "
+?PRG21:	PRINTI	"A voice comes from a hidden speaker. It says:
+"
+	CALL	VOICE-SAYS
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTI	"It's part of the "
+	PRINTD	FRONT-GATE
+	PRINTR	"."
+
+
+	.FUNCT	TELL-ABOUT-EYE
+	ZERO?	DRAGON-EYE-COLOR \?PRG6
+	PRINTR	"The moonlight glints on its lone visible eye."
+?PRG6:	PRINTI	"The "
+	PRINTD	DRAGON-EYE
+	PRINTI	" is glowing "
+	GRTR?	DRAGON-EYE-COLOR,0 \?PRG13
+	PRINTR	"green."
+?PRG13:	PRINTR	"red."
+
+
+	.FUNCT	VOICE-SAYS
+	CALL	QUEUE,I-DRAGON-EYE,0
+	GETB	LAST-NAME,0
+	ZERO?	STACK /?CND1
+	PRINTI	"""Please enter, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG9
+	PRINTC	46
+?PRG9:	PRINTI	"""
+"
+	CALL	GATE-OPENS
+	RTRUE	
+?CND1:	CALL	QUEUE,I-FRIEND-GREETS,6
+	PRINTI	"""Please announce "
+	PRINTD	PLAYER
+	PRINTI	". State your title -- such as Lord or Lady, Sir or Dame, Mr. or Ms. -- and your first and last name.""
+"
+	CALL	GET-NAME
+	PRINTI	"""And what is "
+	PRINTD	YOUR-COLOR
+	PRINTI	", "
+	CALL	TITLE-NAME
+	PRINTI	"?""
+"
+	CALL	GET-COLOR
+	PRINTI	"""Jolly good! The spare bedroom is decorated in "
+	CALL	PRINT-COLOR
+	PRINTI	"! "
+	PRINTI	"Please enter."""
+	CRLF	
+	CALL	GATE-OPENS
+	RTRUE	
+
+
+	.FUNCT	GATE-OPENS
+	EQUAL?	HERE,DRIVEWAY \FALSE
+	FSET?	FRONT-GATE,OPENBIT /FALSE
+	REMOVE	VOICE
+	FSET	FRONT-GATE,OPENBIT
+	FCLEAR	FRONT-GATE,LOCKED
+	CALL	THIS-IS-IT,FRONT-GATE
+	PRINTI	"The "
+	EQUAL?	DRAGON-EYE-COLOR,1 /?PRG16
+	LESS?	DRAGON-EYE-COLOR,0 \?CND10
+	PRINTI	"red "
+?CND10:	SET	'DRAGON-EYE-COLOR,1
+	PRINTI	"eye turns green, and the "
+?PRG16:	PRINTD	FRONT-GATE
+	PRINTR	" creaks open."
+
+
+	.FUNCT	FRONT-GATE-F
+	EQUAL?	PRSA,V?KNOCK \?CCL3
+	PRINTR	"Apparently no one hears you."
+?CCL3:	EQUAL?	PRSA,V?UNLOCK,V?SHAKE,V?MUNG \?CCL8
+	PRINTR	"Except for your rattling the gate, the silence remains unbroken."
+?CCL8:	EQUAL?	PRSA,V?LEAP,V?CLIMB-ON,V?BOARD \?CCL12
+	PRINT	TOO-SLIPPERY
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?WALK-TO \?CCL16
+	EQUAL?	HERE,DRIVEWAY,COURTYARD /?CCL16
+	CALL	PERFORM,PRSA,COURTYARD
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?OPEN \?CCL20
+	FSET?	FRONT-GATE,LOCKED \FALSE
+	PRINTR	"It seems to be locked."
+?CCL20:	EQUAL?	PRSA,V?SEARCH-FOR /?CTR26
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-ON,V?EXAMINE \?CCL27
+?CTR26:	EQUAL?	HERE,DRIVEWAY \FALSE
+	CALL	TELL-ABOUT-DRAGON
+	RTRUE	
+?CCL27:	IN?	VOICE,HERE \FALSE
+	CALL	VOICE-F
+	RSTACK	
+
+
+	.FUNCT	COURTYARD-F,RARG=0
+	EQUAL?	RARG,M-ENTER \?CCL3
+	IN?	FRIEND,LIMBO \?CND4
+	MOVE	FRIEND,COURTYARD
+?CND4:	ZERO?	DRAGON-EYE-COLOR /?CND6
+	SET	'DRAGON-EYE-COLOR,0
+?CND6:	FSET?	FRONT-GATE,LOCKED /FALSE
+	FCLEAR	FRONT-GATE,OPENBIT
+	FSET	FRONT-GATE,LOCKED
+	PRINTI	"The "
+	PRINTD	FRONT-GATE
+	PRINTR	" closes and locks behind you."
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL14
+	FSET?	HERE,TOUCHBIT /?CND15
+	FSET	HERE,TOUCHBIT
+	PRINTI	"As flood lights blaze on, you look around. "
+?CND15:	CALL	TELL-LIKE-BROCHURE
+	PRINT	DARK-TURRETS
+	RTRUE	
+?CCL14:	EQUAL?	RARG,M-FLASH \FALSE
+	IN?	FRIEND,COURTYARD \FALSE
+	FSET?	FRIEND,TOUCHBIT /FALSE
+	ZERO?	CLOCK-WAIT \FALSE
+	FSET	FRIEND,TOUCHBIT
+	FCLEAR	FRIEND,NDESCBIT
+	SET	'FOLLOWER,FRIEND
+	SET	'QCONTEXT,FRIEND
+	CALL	QUEUE,I-FRIEND-GREETS,0
+	CALL	QUEUE,I-TOUR,7
+	CALL	ESTABLISH-GOAL,BUTLER,COURTYARD
+	FCLEAR	FRONT-DOOR,LOCKED
+	SET	'QCONTEXT,FRIEND
+	CALL	THIS-IS-IT,FRIEND
+	PUTP	FRIEND,P?LDESC,12
+	SET	'AWAITING-REPLY,FRIEND-C
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	PRINTI	"
+Someone comes running out of the wing to greet you. "
+	GETP	FRIEND,P?TEXT
+	PRINT	STACK
+	PRINTI	" You recognize her as your friend, "
+	PRINTD	FRIEND
+	PRINTI	" Lynd.
+"""
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!"" she cries with outflung arms. ""You sweet thing, to answer my letter in person this way! And all the people I wrote about are here tonight for Lionel's memorial birthday dinner!""
+After a warm hug, she asks anxiously, """
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+
+
+	.FUNCT	TELL-LIKE-BROCHURE,DR=0
+	PRINTI	"It looks even lovelier than it sounds in the "
+	PRINTD	BROCHURE
+	PRINTC	46
+	ZERO?	DR /?CND3
+	CALL	OPEN-DOOR?,DR
+?CND3:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	MAZE-EXIT,RM
+	EQUAL?	OHERE,GARDEN \?CCL3
+	SET	'RM,COURTYARD
+	JUMP	?CND1
+?CCL3:	SET	'RM,GARDEN
+?CND1:	EQUAL?	WINNER,PLAYER /?PRG6
+	RETURN	RM
+?PRG6:	PRINTI	"You stumble blindly through the maze and suddenly emerge in the "
+	PRINTD	RM
+	PRINTI	".
+"
+	RETURN	RM
+
+
+	.FUNCT	MAZE-F,RARG=0
+	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?THROUGH \FALSE
+	EQUAL?	HERE,MAZE \FALSE
+	CALL	MAZE-EXIT
+	CALL	GOTO,STACK
+	RSTACK	
+
+
+	.FUNCT	GARDEN-F,RARG=0,OBJ
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"Here in the central garden the plants quake nervously in the mist. In the very middle is a "
+	PRINTD	POND
+	PRINTR	"."
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?EXAMINE \FALSE
+	CALL	FIND-FLAG-HERE,SECRETBIT >OBJ
+	ZERO?	OBJ /FALSE
+	CALL	DISCOVER,OBJ,HERE
+	RTRUE	
+
+
+	.FUNCT	POND-F
+	EQUAL?	PRSA,V?THROUGH /?PRG6
+	EQUAL?	PRSA,V?SWIM,V?LEAP,V?BOARD \?CCL3
+?PRG6:	PRINTR	"On second thought, it looks too dark and slippery."
+?CCL3:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	CALL	TELL-AS-WELL-AS,POND,STR?228
+	RTRUE	
+
+
+	.FUNCT	FRONT-DOOR-F
+	EQUAL?	PRSA,V?WALK-TO \FALSE
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CCL6
+	CALL	PERFORM,V?WALK-TO,COURTYARD
+	RTRUE	
+?CCL6:	CALL	PERFORM,V?WALK-TO,FOYER
+	RTRUE	
+
+
+	.FUNCT	FOYER-F,RARG=0
+	EQUAL?	RARG,M-ENTER \?CCL3
+	FSET?	FOYER,TOUCHBIT /FALSE
+	FSET	FOYER,TOUCHBIT
+	PRINTI	"As you enter the foyer, you're overwhelmed by the English past. Those barbarous times when Jack's ancestors had to shut themselves up in a fortified castle have softened into gracious country living. Yet "
+	PRINTD	FRIEND
+	PRINTR	" is clearly anxious."
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL10
+	CALL	TELL-LIKE-BROCHURE
+	CALL	DESCRIBE-CONTENTS,COAT-RACK
+	RTRUE	
+?CCL10:	EQUAL?	RARG,M-FLASH \FALSE
+	FSET?	LORD,TOUCHBIT /TRUE
+	IN?	LORD,FOYER \TRUE
+	CALL	LORD-INTRO
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-CONTENTS,OBJ
+	CALL	FIND-FLAG-NOT,OBJ,NDESCBIT
+	ZERO?	STACK /FALSE
+	PRINTI	"On"
+	CALL	PRINTT,OBJ
+	PRINTI	" you see"
+	CALL	PRINT-CONTENTS,OBJ
+	PRINTI	".
+"
+	RTRUE	
+
+
+	.FUNCT	UMBRELLA-STAND-F
+	FCLEAR	UMBRELLA-STAND,NDESCBIT
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
+	CALL	NOUN-USED?,W?UMBRELLA
+	ZERO?	STACK /FALSE
+	PRINTR	"But it's not raining!"
+?CCL5:	EQUAL?	PRSA,V?SEARCH-FOR /?CCL12
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL12:	IN?	CANE,UMBRELLA-STAND \?CCL17
+	FSET?	CANE,NDESCBIT \?CCL17
+	FCLEAR	CANE,NDESCBIT
+	FCLEAR	CANE,SECRETBIT
+	FSET	CANE,SEENBIT
+	FSET	CANE,TAKEBIT
+	FSET	CANE,TOUCHBIT
+	CALL	THIS-IS-IT,CANE
+	PRINTR	"Among the umbrellas there's a cane that looks odd."
+?CCL17:	EQUAL?	PRSA,V?EXAMINE \?CCL23
+	CALL	TELL-LIKE-BROCHURE
+	RSTACK	
+?CCL23:	CALL	TELL-AS-WELL-AS,UMBRELLA-STAND,STR?229
+	RTRUE	
+
+
+	.FUNCT	DRAWING-ROOM-F,RARG=0,PER
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL6
+	EQUAL?	PRSO,SECRET-DRAWING-DOOR \?CCL6
+	CALL	YOU-CANT,FALSE-VALUE,PLAYER,STR?231
+	RTRUE	
+?CCL6:	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL10
+	CALL	TELL-LIKE-BROCHURE,SECRET-DRAWING-DOOR
+	RSTACK	
+?CCL10:	EQUAL?	RARG,M-FLASH \FALSE
+	IN?	DEALER,DRAWING-ROOM \FALSE
+	FSET?	DEALER,TOUCHBIT /FALSE
+	FSET	DEALER,TOUCHBIT
+	LOC	PAINTER
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	GETP	DEALER,P?LDESC
+	EQUAL?	STACK,2 \FALSE
+	PRINTI	"A tall graceful older couple in evening clothes are chatting and "
+	GET	LDESC-STRINGS,2
+	PRINT	STACK
+	PRINTI	".
+"
+	SET	'QCONTEXT,PAINTER
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?CCL27
+	SET	'PER,LORD
+	JUMP	?CND25
+?CCL27:	LOC	FRIEND
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?CND25
+	CALL	THIS-IS-IT,FRIEND
+	SET	'PER,FRIEND
+?CND25:	ZERO?	PER /FALSE
+	PRINTD	PER
+	PRINT	INTRODUCES
+	PRINTI	"them as Montague Hyde and Vivien Pentreath.
+Hyde smiles and bows stiffly. And Vivien murmurs in an attractively low voice, ""How do you do, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG38
+	PRINTC	46
+?PRG38:	PRINTI	"""
+""Believe it or not, this young "
+	ZERO?	GENDER-KNOWN \?CCL42
+	PRINTI	"person"
+	JUMP	?PRG51
+?CCL42:	FSET?	PLAYER,FEMALE \?PRG49
+	PRINTI	"lady"
+	JUMP	?PRG51
+?PRG49:	PRINTI	"man"
+?PRG51:	PRINTI	" is a famous American detective,"" "
+	PRINTD	PER
+	PRINTI	" tells them.
+"
+	LOC	FRIEND
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	PRINTI	"""Not a police detective, of course,"" "
+	PRINTD	FRIEND
+	PRINTI	" adds as they both stiffen, ""but a solver of all sorts of mysteries in the States. We're hoping to find out who or what is haunting "
+	PRINTD	CASTLE
+	PRINTR	"."""
+
+
+	.FUNCT	LOVER-PIC-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"It's a portrait by "
+	PRINTD	PAINTER
+	PRINTI	" of "
+	PRINTD	LOVER
+	PRINTI	", a lovely young woman with flowing blonde hair, standing on a grassy slope, gazing out to sea. It's painted in pastel tones, which emphasize "
+	PRINTD	LOVER
+	PRINTR	"'s violet eyes. There's something ethereal and fairylike about her. Ironically, her silvery white, sleeveless gown is the very one she was wearing at the time of her accident."
+
+
+	.FUNCT	TAPESTRY-F
+	EQUAL?	PRSA,V?SEARCH,V?EXAMINE \?CCL3
+	CALL	TELL-LIKE-BROCHURE
+	EQUAL?	VARIATION,PAINTER-C \TRUE
+	PRINTR	"Someone has added a star in red thread on the maiden's ARM."
+?CCL3:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \FALSE
+	FSET	SECRET-DRAWING-DOOR,TOUCHBIT
+	CALL	THIS-IS-IT,SECRET-DRAWING-DOOR
+	PRINTI	"Hidden behind the "
+	PRINTD	TAPESTRY
+	PRINTI	" is"
+	CALL	PRINTT,SECRET-DRAWING-DOOR
+	PRINTR	"!"
+
+
+	.FUNCT	GREAT-HALL-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	CALL	TELL-LIKE-BROCHURE
+	CALL	GREAT-HALL-IS-FLOORED
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-FLASH \FALSE
+	IN?	DEB,GREAT-HALL \FALSE
+	FSET?	DEB,TOUCHBIT /FALSE
+	ZERO?	CLOCK-WAIT \FALSE
+	FSET	DEB,TOUCHBIT
+	FCLEAR	DEB,NDESCBIT
+	LOC	OFFICER
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?PRG18
+	GETP	DEB,P?LDESC
+	EQUAL?	STACK,1 \?PRG18
+	PRINTI	"A young couple are dancing to the faint sound of rock music from a portable radio on a table nearby.
+"
+?PRG18:	GETP	DEB,P?TEXT
+	PRINT	STACK
+	CRLF	
+	CALL	COMMON-DESC,OFFICER
+	PRINTI	"
+They stop dancing, turn off the radio, and greet you."
+	LOC	FRIEND
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?CND22
+	PRINTC	32
+	PRINTD	FRIEND
+	PRINT	INTRODUCES
+	PRINTI	"them as the Honourable Iris Vane and Lt. Ian Fordyce of Her Majesty's Coldstream Guards.
+"
+?CND22:	PUTP	DEB,P?LDESC,0
+	CALL	THIS-IS-IT,DEB
+	PUTP	OFFICER,P?LDESC,0
+	CALL	THIS-IS-IT,OFFICER
+	CALL	QUEUE,I-TOUR,0
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	ZERO?	GENDER-KNOWN /?CTR27
+	FSET?	PLAYER,FEMALE /?CCL28
+?CTR27:	ZERO?	GENDER-KNOWN \?PRG36
+	PRINTI	"""What a lark, having a Yank sleuth in our midst"
+	JUMP	?PRG38
+?PRG36:	PRINTI	"""My dear! What a handsome addition to your guest list"
+?PRG38:	PRINTI	"!"" chirps Iris. Her green eyes sparkle "
+	ZERO?	GENDER-KNOWN \?PRG45
+	PRINTI	"a trifle malic"
+	JUMP	?PRG47
+?PRG45:	PRINTI	"flirtat"
+?PRG47:	PRINTI	"iously as she offers you her delicate hand. "
+	ZERO?	GENDER-KNOWN \?CCL51
+	SET	'QCONTEXT,OFFICER
+	PUTP	OFFICER,P?LDESC,12
+	SET	'AWAITING-REPLY,OFFICER-1-R
+	PRINTI	"""I always find Americans so innocently fascinating! I'm sure you'll have loads to tell us about the baffling mysteries you've solved...""
+""Belt up, Iris, there's a good girl,"" says Ian. Flashing you an apologetic smile, he comments, ""Spoiled rotten, I'm afraid. Personally I should like nothing better than to hear all about your mystery cases. But first tell us: "
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+?CCL51:	SET	'QCONTEXT,DEB
+	PUTP	DEB,P?LDESC,12
+	SET	'AWAITING-REPLY,DEB-C
+	PRINTI	"""Tell me, "
+	CALL	TITLE-NAME
+	PRINTI	" -- "
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+?CCL28:	EQUAL?	VARIATION,FRIEND-C \?CND60
+	PRINTD	DEB
+	PRINTI	" pulls Jack aside, whispers something to him, and giggles."
+	CRLF	
+?CND60:	SET	'QCONTEXT,OFFICER
+	CALL	THIS-IS-IT,OFFICER
+	PUTP	OFFICER,P?LDESC,12
+	SET	'AWAITING-REPLY,OFFICER-2-R
+	PRINTI	"""I say!"" exclaims Ian, bringing your hand to his lips. His glance runs swiftly over your face and figure with an air of expert appraisal. """
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+
+
+	.FUNCT	GREAT-HALL-IS-FLOORED
+	PRINTI	"The hall is floored with black and white marble tiles. They've been worn smooth by footsteps over the centuries, especially near the archway to the "
+	PRINTD	DRAWING-ROOM
+	PRINTR	"."
+
+
+	.FUNCT	ARMOR-F
+	FCLEAR	ARMOR,NDESCBIT
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"This is a full suit of steel body armour. It creaks as you walk past."
+?CCL3:	EQUAL?	PRSA,V?SEARCH-FOR /?CCL7
+	EQUAL?	PRSA,V?SEARCH,V?OPEN,V?LOOK-INSIDE \FALSE
+?CCL7:	IN?	CLUE-3,ARMOR \FALSE
+	FSET?	CLUE-3,SECRETBIT \FALSE
+	FSET	ARMOR,OPENBIT
+	CALL	DISCOVER,CLUE-3
+	RSTACK	
+
+
+	.FUNCT	SECRET-SITTING-DOOR-F
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE \FALSE
+	PRINTR	"It seems to be stuck closed."
+
+
+	.FUNCT	SITTING-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	TELL-LIKE-BROCHURE
+	PRINTI	"It's a comfy place to read a book, play the piano, or just relax."
+	CRLF	
+	CALL	DESCRIBE-CONTENTS,PIANO
+	CALL	DESCRIBE-CONTENTS,WRITING-DESK
+	RTRUE	
+
+
+	.FUNCT	WYVERN-F
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE \?CCL3
+	CALL	SECRET-SITTING-DOOR-F
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?SIT-AT /?CTR4
+	EQUAL?	PRSA,V?SIT,V?CLIMB-ON,V?BOARD \?CCL5
+?CTR4:	MOVE	PLAYER,WYVERN
+	PRINTR	"Okay, but it's not that comfortable."
+?CCL5:	EQUAL?	PRSA,V?TURN /?CCL11
+	EQUAL?	PRSA,V?SLAP,V?RUB,V?PUSH /?CCL11
+	EQUAL?	PRSA,V?MUNG,V?MOVE-DIR,V?MOVE \FALSE
+?CCL11:	CALL	OPEN-SECRET,STR?232,WYVERN,SECRET-SITTING-DOOR
+	FCLEAR	SECRET-SITTING-DOOR,OPENBIT
+	PRINTI	"Before you know it, "
+	IN?	PLAYER,WYVERN \?PRG22
+	PRINTI	"you're dumped into it.
+"
+	CALL	GOTO,SITTING-PASSAGE
+	RTRUE	
+?PRG22:	PRINTR	"it creaks upward to close again."
+
+
+	.FUNCT	WRITING-DESK-F
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	IN?	LETTER-MAID,WRITING-DESK \FALSE
+	FCLEAR	LETTER-MAID,NDESCBIT
+	RFALSE	
+
+
+	.FUNCT	PIANO-F,O,N=0
+	EQUAL?	PRSA,V?LISTEN \?CCL3
+	LOC	PIANO
+	FIRST?	STACK >O /?PRG4
+?PRG4:	ZERO?	O /FALSE
+	FSET?	O,PERSONBIT \?CCL10
+	GETP	O,P?LDESC
+	EQUAL?	STACK,22 \?CCL10
+	PRINTR	"The music sounds lovely."
+?CCL10:	NEXT?	O >O /?PRG4
+	JUMP	?PRG4
+?CCL3:	EQUAL?	PRSA,V?PLAY \?CCL16
+	PUTP	WINNER,P?LDESC,22
+	ZERO?	PRSI /?PRG21
+	FSET?	PRSI,PERSONBIT \?PRG21
+	PUTP	PRSI,P?LDESC,22
+?PRG21:	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?241
+	PRINTI	" down"
+	FIRST?	SITTING-ROOM >O /?PRG23
+?PRG23:	ZERO?	O \?CCL27
+	ZERO?	N \?REP24
+	PRINTI	" and"
+?REP24:	ZERO?	N \?CCL43
+	CALL	HE-SHE-IT,WINNER,-1,STR?242
+	JUMP	?PRG62
+?CCL27:	GETP	O,P?LDESC
+	EQUAL?	STACK,22 \?CND25
+	EQUAL?	O,WINNER /?CND25
+	ZERO?	N \?CND35
+	PRINTI	" with"
+?CND35:	INC	'N
+	PRINTC	32
+	PRINTD	O
+	PRINTI	" and"
+?CND25:	NEXT?	O >O /?PRG23
+	JUMP	?PRG23
+?CCL43:	GETP	PLAYER,P?LDESC
+	EQUAL?	STACK,22 \?PRG58
+	PRINTI	" you "
+	EQUAL?	N,1 \?PRG56
+	PRINTI	"both"
+	JUMP	?PRG60
+?PRG56:	PRINTI	"all"
+	JUMP	?PRG60
+?PRG58:	PRINTI	" they"
+?PRG60:	PRINTI	" play"
+?PRG62:	PRINTI	" a lovely "
+	GET	PIANO-PIECES,N
+	PRINT	STACK
+	GRTR?	N,2 \?PRG68
+	PRINTI	"tet"
+?PRG68:	PRINTR	"."
+?CCL16:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	IN?	MUSIC,PIANO \FALSE
+	FCLEAR	MUSIC,NDESCBIT
+	RFALSE	
+
+
+	.FUNCT	MUSIC-F
+	EQUAL?	PRSA,V?PLAY,V?LISTEN \?CCL3
+	IN?	PIANO,HERE \?CCL6
+	CALL	PIANO-F
+	RTRUE	
+?CCL6:	CALL	NOT-HERE,PIANO
+	RTRUE	
+?CCL3:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	FCLEAR	MUSIC,NDESCBIT
+	EQUAL?	PRSA,V?READ /?CTR9
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CTR9:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"It's "
+	EQUAL?	VARIATION,PAINTER-C \?CCL19
+	PRINTR	"Beethoven's ""Suite No. 9."" Someone has drawn a star in red ink over the first four letters of the word ""SUITe."""
+?CCL19:	EQUAL?	VARIATION,DOCTOR-C \?PRG26
+	PRINTR	"""Funeral March of a Marionette."""
+?PRG26:	PRINTR	"theme music from the American radio show, ""A Prairie Home Companion."""
+
+
+	.FUNCT	CORR-1-F,ARG=0
+	EQUAL?	ARG,M-LOOK \FALSE
+	PRINTI	"The "
+	PRINTD	CORR-1
+	PRINTI	" goes between the two great halls to east and west. Behind sliding doors, the "
+	PRINTD	DINING-ROOM
+	PRINTI	" is north and the "
+	PRINTD	SITTING-ROOM
+	PRINTR	" is south."
+
+
+	.FUNCT	DINING-ROOM-F,RARG=0,N
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINT	DINING-DESC
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-ENTER \?CCL7
+	CALL	QUEUED?,I-DINNER-SIT
+	ZERO?	STACK /?CCL10
+	IN?	LORD,DINING-ROOM \?CCL13
+	CALL	QUEUE,I-DINNER-SIT,1
+	RFALSE	
+?CCL13:	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER,BUTLER >N
+	ZERO?	N /FALSE
+	CALL	HE-SHE-IT,N,TRUE-VALUE
+	PRINTR	" says, ""Let's wait for his lordship."""
+?CCL10:	ZERO?	MISSED-DINNER /FALSE
+	IN?	FRIEND,HERE \FALSE
+	SET	'MISSED-DINNER,FALSE-VALUE
+	FSET?	DINING-ROOM,TOUCHBIT /?CND22
+	FSET	DINING-ROOM,TOUCHBIT
+	PRINT	DINING-DESC
+?CND22:	CALL	THIS-IS-IT,FRIEND
+	SET	'QCONTEXT,FRIEND
+	PRINTD	FRIEND
+	PRINTI	" says, ""We didn't know when you would come to dinner, so we started without you."
+	EQUAL?	LIONEL-SPEAKS-COUNTER,INIT-LIONEL-SPEAKS-COUNTER \?CCL30
+	PRINTR	""""
+?CCL30:	CALL	QUEUE,I-DINNER-TALK,1
+	PRINTI	" And "
+	ZERO?	LIONEL-SPEAKS-COUNTER \?PRG40
+	PRINTI	"then Lionel spoke"
+	JUMP	?PRG42
+?PRG40:	PRINTI	"now Lionel is speaking"
+?PRG42:	PRINTR	" on tape!"""
+?CCL7:	EQUAL?	RARG,M-EXIT \FALSE
+	CALL	QUEUED?,I-LIONEL-SPEAKS
+	ZERO?	STACK /FALSE
+	PRINTD	LORD
+	PRINTI	" politely but firmly vetoes any such move. """
+	EQUAL?	LIONEL-SPEAKS-COUNTER,INIT-LIONEL-SPEAKS-COUNTER \?PRG57
+	PRINTI	"It's annoying enough to have the servants abscond at dinner time,"" he points out drily. "
+	PRINT	JACK-THINKS-GLADYS
+	PRINTR	" Cigars and port will be time enough for that sort of aggro!"""
+?PRG57:	PRINTR	"Let's hear what old Lionel has to say."""
+
+
+	.FUNCT	I-DINNER-TALK,GARG=0
+	FSET	DINNER,TAKEBIT
+	FCLEAR	DINNER,TRYTAKEBIT
+	MOVE	DINNER-2,TABLE-DINING
+	CALL	QUEUED?,I-LIONEL-SPEAKS
+	CALL	DINNER-TALK,STACK
+	RETURN	2
+
+
+	.FUNCT	DINNER-TALK,N,X
+	MOVE	PLAYER,CHAIR-DINING
+	PRINTI	"Several people glance at your outfit with "
+	EQUAL?	NOW-WEARING,DINNER-OUTFIT /?CCL5
+	SET	'WRONG-OUTFIT,2
+	PRINTI	"dis"
+	JUMP	?PRG8
+?CCL5:	SET	'WRONG-OUTFIT,1
+?PRG8:	PRINTI	"approval."
+	ZERO?	WASHED \?CND10
+	PRINTI	" They whisper about how dirty you still look."
+?CND10:	CRLF	
+	EQUAL?	LIONEL-SPEAKS-COUNTER,INIT-LIONEL-SPEAKS-COUNTER \?CND14
+	PRINTD	LORD
+	PRINTI	" announces his engagement to "
+	PRINTD	FRIEND
+	PRINTI	", prompting various reactions from the guests.
+The dinner is excellent, with a flow of subdued conversation...
+"
+?CND14:	PUTP	LORD,P?LDESC,0
+	SET	'KEEP-WAITING,TRUE-VALUE
+	CALL	V-WAIT,N,FALSE-VALUE,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	POPULATION,RM,NOT1=0,NOT2=0,CNT=0,OBJ
+	FIRST?	RM >OBJ /?KLU19
+?KLU19:	ZERO?	OBJ /FALSE
+?PRG3:	FSET?	OBJ,PERSONBIT \?CCL7
+	FSET?	OBJ,INVISIBLE /?CCL7
+	ZERO?	NOT1 /?PRD11
+	EQUAL?	OBJ,NOT1 /?CCL7
+?PRD11:	ZERO?	NOT2 /?CTR6
+	EQUAL?	OBJ,NOT2 /?CCL7
+?CTR6:	INC	'CNT
+	JUMP	?CND5
+?CCL7:	FSET?	OBJ,CONTBIT \?CND5
+	CALL	POPULATION,OBJ,NOT1,NOT2
+	ADD	CNT,STACK >CNT
+?CND5:	NEXT?	OBJ >OBJ /?KLU20
+?KLU20:	ZERO?	OBJ \?PRG3
+	RETURN	CNT
+
+
+	.FUNCT	BUST-D,ARG
+	CALL	THIS-IS-IT,COUSIN
+	PRINTI	"A brooding bust of "
+	PRINTD	COUSIN
+	PRINTI	" (sculpted by "
+	PRINTD	PAINTER
+	PRINTR	") is displayed in a corner."
+
+
+	.FUNCT	BUST-F
+	EQUAL?	PRSA,V?PUSH,V?OPEN,V?MOVE-DIR /?CTR2
+	EQUAL?	PRSA,V?MOVE,V?LOOK-UNDER,V?EXAMINE /?CTR2
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	EQUAL?	P-PRSA-WORD,W?RAISE,W?LIFT \?CCL3
+?CTR2:	EQUAL?	PRSA,V?EXAMINE \?PRG13
+	EQUAL?	LIONEL-SPEAKS-COUNTER,INIT-LIONEL-SPEAKS-COUNTER \?PRG13
+	CALL	TELL-LIKE-BROCHURE
+	RTRUE	
+?PRG13:	PRINTI	"The "
+	PRINTD	BUST
+	PRINTI	" is hollow. When you lift it from its shelf, you discover"
+	CALL	PRINTT,RECORDER
+	PRINTI	" underneath, with an elaborate clockwork timer."
+	FSET	BUST,OPENBIT
+	FSET	RECORDER,SEENBIT
+	EQUAL?	LIONEL-SPEAKS-COUNTER,INIT-LIONEL-SPEAKS-COUNTER /?CND15
+	PRINTR	" Evidently the timer was set to play the tape during the usual dinner hour on this date."
+?CND15:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PLAY,V?LISTEN \FALSE
+	CALL	QUEUED?,I-LIONEL-SPEAKS
+	ZERO?	STACK /?PRG25
+	SET	'LIONEL-FORCED,TRUE-VALUE
+	CALL	QUEUE,I-LIONEL-SPEAKS,1
+	RTRUE	
+?PRG25:	PRINT	TIMER-PREVENTS-IT
+	RTRUE	
+
+
+	.FUNCT	RECORDER-F
+	EQUAL?	PRSA,V?PLAY,V?LISTEN,V?EXAMINE \?CCL3
+	CALL	BUST-F
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF,V?LAMP-ON \?CCL5
+	PRINT	TIMER-PREVENTS-IT
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?TAKE \?CCL9
+	PRINTR	"It's fastened tightly to the shelf."
+?CCL9:	CALL	SPEAKING-VERB?,RECORDER
+	ZERO?	STACK /FALSE
+	CALL	WONT-HELP-TO-TALK-TO,RECORDER
+	RSTACK	
+
+
+	.FUNCT	TABLE-DINING-F
+	EQUAL?	PRSA,V?LOOK-ON,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	FSET?	DINNER,TAKEBIT \FALSE
+	CALL	TELL-AS-WELL-AS,TABLE-DINING,STR?245
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?SIT-AT \?CCL8
+	CALL	PERFORM,V?SIT,CHAIR-DINING
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?SIT \FALSE
+	CALL	HAR-HAR
+	RTRUE	
+
+
+	.FUNCT	PUNCHBOWL-F,OBJ
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL3
+	CALL	HAR-HAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUT-UNDER \?CCL5
+	EQUAL?	PRSI,PUNCHBOWL \FALSE
+	FSET	PRSO,NDESCBIT
+	MOVE	PRSO,SIDEBOARD
+	PRINTR	"Okay."
+?CCL5:	EQUAL?	PRSA,V?TAKE,V?MOVE,V?LOOK-UNDER \FALSE
+	EQUAL?	PRSO,PUNCHBOWL \FALSE
+	CALL	FIND-FLAG,SIDEBOARD,NDESCBIT >OBJ
+	ZERO?	OBJ /?PRG20
+	FSET	OBJ,TAKEBIT
+	FSET	OBJ,TOUCHBIT
+	FCLEAR	OBJ,NDESCBIT
+	MOVE	OBJ,PLAYER
+	CALL	THIS-IS-IT,OBJ
+	PRINTI	"You find"
+	CALL	PRINTT,OBJ
+	PRINTR	" underneath, so you take it."
+?PRG20:	PRINTR	"There's nothing under it."
+
+
+	.FUNCT	DINNER-D,ARG,L
+	LOC	DINNER >L
+	EQUAL?	L,KITCHEN,SIDEBOARD \FALSE
+	PRINTI	"An appetizing aroma wafts from an array of covered dishes"
+	EQUAL?	L,KITCHEN \?CCL8
+	PRINTI	" sitting about"
+	JUMP	?PRG14
+?CCL8:	EQUAL?	L,SIDEBOARD \?PRG14
+	PRINTI	" on the "
+	PRINTD	SIDEBOARD
+?PRG14:	PRINTR	"."
+
+
+	.FUNCT	DINNER-F,I,L
+	LOC	DINNER >L
+	EQUAL?	PRSA,V?DRESS \?CCL3
+	CALL	META-LOC,DINNER-OUTFIT
+	EQUAL?	HERE,STACK \?CCL6
+	CALL	PERFORM,V?WEAR,DINNER-OUTFIT
+	RTRUE	
+?CCL6:	CALL	NOT-HERE,DINNER-OUTFIT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EAT \?CCL8
+	PRINTR	"You take a bite and find it delicious."
+?CCL8:	EQUAL?	PRSA,V?EXAMINE \?CCL13
+	PRINTI	"A lovely assortment of fish, fowl, greens, and sweets fills the "
+	EQUAL?	L,KITCHEN,SIDEBOARD \?PRG21
+	PRINTR	"dishes."
+?PRG21:	PRINTR	"plate."
+?CCL13:	EQUAL?	PRSA,V?LAMP-ON,V?TAKE \?CCL24
+	FSET?	DINNER,TRYTAKEBIT \FALSE
+	EQUAL?	L,KITCHEN \?CCL30
+	PRINTR	"It's not ready yet."
+?CCL30:	EQUAL?	L,SIDEBOARD \FALSE
+	CALL	I-DINNER-SIT >L
+	ZERO?	L /?PRG38
+	RETURN	L
+?PRG38:	PRINTR	"You look around and notice that no one else is eating yet."
+?CCL24:	EQUAL?	PRSA,V?WAIT-FOR \?CCL41
+	CALL	QUEUED?,I-DINNER >I
+	ZERO?	I /FALSE
+	SUB	DINNER-TIME,PRESENT-TIME
+	CALL	V-WAIT,STACK,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+?CCL41:	EQUAL?	PRSA,V?WALK-TO \FALSE
+	EQUAL?	HERE,DINING-ROOM \?CCL49
+	CALL	META-LOC,DINNER
+	CALL	PERFORM,PRSA,STACK
+	RTRUE	
+?CCL49:	CALL	PERFORM,PRSA,DINING-ROOM
+	RTRUE	
+
+
+	.FUNCT	BACKSTAIRS-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You can go east to the "
+	PRINTD	DINING-ROOM
+	PRINTI	" or down narrow stairs to the "
+	PRINTD	KITCHEN
+	PRINTC	46
+	CALL	OPEN-DOOR?,SECRET-DINING-DOOR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	KITCHEN-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The "
+	PRINTD	KITCHEN
+	PRINTI	" is large yet cramped. From here, you can go west to the tower "
+	PRINTD	BASEMENT
+	PRINTR	", east to the servants' quarters, or up the stairs."
+
+
+	.FUNCT	LANTERN
+	EQUAL?	PRSA,V?AIM \?CCL3
+	CALL	START-SENTENCE,LAMP
+	PRINTI	" shines in all "
+	PRINTD	INTDIR
+	PRINTR	"s, so you can't point it."
+?CCL3:	EQUAL?	PRSA,V?USE \?CCL7
+	CALL	PERFORM,V?LAMP-ON,PRSO
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The lamp "
+	FSET?	LAMP,ONBIT \?PRG17
+	PRINTR	"is on."
+?PRG17:	PRINTR	"is turned off."
+
+
+	.FUNCT	GALLERY-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?PRD8
+	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND,V?EXAMINE \FALSE
+?PRD8:	EQUAL?	PRSO,WALL,PAINTING-GALLERY \FALSE
+	FCLEAR	PEEPHOLE,SECRETBIT
+	PRINTI	"You discover"
+	CALL	HIM-HER-IT,PEEPHOLE
+	PRINTR	" in the eye of one ancestor."
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The "
+	PRINTD	GALLERY
+	PRINTI	" spans the top of the double stairways. You can go east to "
+	PRINTD	YOUR-ROOM
+	PRINTI	" or west to "
+	PRINTD	VIVIEN-ROOM
+	PRINTI	". Hallways lead to the northeast and northwest. On the wall is a "
+	PRINTD	PAINTING-GALLERY
+	PRINTI	" of "
+	PRINTD	LORD
+	PRINTR	"'s ancestors."
+
+
+	.FUNCT	PICTURE-F,RARG=0
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	CALL	TELL-LIKE-BROCHURE
+	RSTACK	
+
+
+	.FUNCT	BATHROOM-F
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH /?CCL3
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE,V?BOARD \FALSE
+?CCL3:	EQUAL?	HERE,YOUR-ROOM \?CCL8
+	CALL	PERFORM,PRSA,YOUR-BATHROOM
+	RTRUE	
+?CCL8:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	FIREPLACE-F
+	EQUAL?	PRSA,V?LOOK-UP,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	EQUAL?	HERE,IAN-ROOM \?PRG7
+	CALL	TELL-IAN-FIREPLACE
+	CRLF	
+	RTRUE	
+?PRG7:	PRINTR	"It's empty, except for soot on the walls."
+?CCL3:	EQUAL?	PRSA,V?LAMP-ON \?CCL10
+	CALL	WONT-HELP
+	RSTACK	
+?CCL10:	EQUAL?	PRSA,V?PUT-IN \FALSE
+	PRINTI	"When you think how sooty"
+	CALL	PRINTT,PRSO
+	PRINTR	" would get, you change your mind."
+
+
+	.FUNCT	BED-PSEUDO
+	EQUAL?	PRSA,V?THROUGH,V?SIT /?CCL3
+	EQUAL?	PRSA,V?LIE,V?CLIMB-ON,V?BOARD \FALSE
+?CCL3:	CALL	WONT-HELP
+	RSTACK	
+
+
+	.FUNCT	NIGHTSTAND-LG-F
+	EQUAL?	HERE,JACK-ROOM \?CCL3
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CTR2
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?CTR2:	IN?	NECKLACE-OF-D,JACK-ROOM \?PRG11
+	CALL	DISCOVER,NECKLACE-OF-D
+	RSTACK	
+?PRG11:	PRINT	NOTHING-NEW
+	RTRUE	
+?CCL3:	EQUAL?	HERE,JACK-ROOM \?CCL14
+	EQUAL?	PRSA,V?PUT-IN \?CCL14
+	EQUAL?	PRSO,NECKLACE-OF-D \?CCL14
+	MOVE	NECKLACE-OF-D,JACK-ROOM
+	FSET	NECKLACE-OF-D,NDESCBIT
+	CALL	OKAY
+	RSTACK	
+?CCL14:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	DRESSING-TABLE-LG-F
+	EQUAL?	PRSA,V?SEARCH-FOR /?CTR2
+	EQUAL?	PRSA,V?SEARCH,V?CLOSE,V?OPEN \?CCL3
+?CTR2:	CALL	NOTHING-SPECIAL
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LOOK-ON,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	EQUAL?	HERE,WENDISH-ROOM \?CCL10
+	CALL	WENDISH-STUFF-D
+	RTRUE	
+?CCL10:	EQUAL?	HERE,TAMARA-ROOM \?CCL12
+	CALL	DRESSING-TABLE-TAM
+	CRLF	
+	RTRUE	
+?CCL12:	CALL	NOTHING-SPECIAL
+	RSTACK	
+
+
+	.FUNCT	MIRROR-GLOBAL-F
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	FSET?	HERE,WORNBIT /?CCL5
+	CALL	NOT-HERE,MIRROR-GLOBAL
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?MOVE /?CTR6
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?FIX,V?EXAMINE \?CCL7
+?CTR6:	CALL	DRESSING-MIRROR-F
+	RSTACK	
+?CCL7:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	OPEN-DOOR?,DR,NOSP=0
+	FSET?	DR,OPENBIT \FALSE
+	ZERO?	NOSP \?CND4
+	PRINTC	32
+?CND4:	CALL	THIS-IS-IT,DR
+	CALL	DOOR-ROOM,HERE,DR >NOSP
+	ZERO?	NOSP /?PRG10
+	FSET	NOSP,SEENBIT
+?PRG10:	PRINTI	"And there's a wide-open "
+	PRINTD	DR
+	PRINTC	33
+	RTRUE	
+
+
+	.FUNCT	YOUR-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?WALK-TO \?CCL6
+	EQUAL?	PRSO,BED \?CCL6
+	CALL	PERFORM,V?LIE,BED
+	RTRUE	
+?CCL6:	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?WEST,P?OUT /?CTR9
+	EQUAL?	RARG,P?EAST,P?IN \?CCL10
+?CTR9:	ZERO?	NOW-WEARING \?CCL15
+	PRINTI	"Before you even take a step, you"
+	PRINT	REMEMBER-NOT-DRESSED
+	PRINTC	46
+	CRLF	
+	RETURN	2
+?CCL15:	EQUAL?	RARG,P?EAST,P?IN \FALSE
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL10:	EQUAL?	RARG,M-ENTER \?CCL24
+	CALL	QUEUE,I-TOUR,0
+	RSTACK	
+?CCL24:	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	START-SENTENCE,YOUR-ROOM
+	PRINTI	" is decorated in shades of "
+	CALL	PRINT-COLOR
+	PRINTI	". You see "
+	PRINTD	YOUR-BATHROOM
+	PRINTI	" to the north and a cozy "
+	PRINTD	FIREPLACE
+	PRINTI	" in one corner. The room is furnished with a bed, a "
+	PRINTD	NIGHTSTAND
+	PRINTI	" with a lamp on it, a "
+	PRINTD	CHEST-OF-DRAWERS
+	PRINTI	", a "
+	PRINTD	WARDROBE
+	PRINTI	", a "
+	PRINTD	YOUR-CHAIR
+	PRINTI	", and a "
+	PRINTD	DRESSING-TABLE
+	PRINTI	" with mirror and bench. There's also a full-length "
+	PRINTD	YOUR-MIRROR
+	PRINTC	46
+	CALL	OPEN-DOOR?,SECRET-YOUR-DOOR
+	CRLF	
+	CALL	DESCRIBE-CONTENTS,BED
+	CALL	DESCRIBE-CONTENTS,YOUR-CHAIR
+	FSET?	HERE,TOUCHBIT /TRUE
+	LOC	BUTLER
+	EQUAL?	STACK,GALLERY,YOUR-ROOM /TRUE
+	CALL	QUEUED?,I-DINNER
+	GRTR?	2,STACK /TRUE
+	CALL	IN-MOTION?,FRIEND
+	ZERO?	STACK \TRUE
+	PUTP	FRIEND,P?LINE,0
+	SET	'QCONTEXT,FRIEND
+	CALL	HE-SHE-IT,FRIEND,TRUE-VALUE
+	IN?	FRIEND,HERE /?PRG43
+	MOVE	FRIEND,HERE
+	PRINTI	" enters and"
+?PRG43:	PRINTI	" says, ""Let's chat a bit"
+	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER,FRIEND
+	ZERO?	STACK \?PRG49
+	PRINTI	", now that we're alone"
+?PRG49:	PRINTR	"."""
+
+
+	.FUNCT	ENTER-PASSAGE
+	PRINTI	"You step down into a narrow "
+	PRINTD	PASSAGE
+	PRINTR	"."
+
+
+	.FUNCT	BED-F
+	EQUAL?	PRSA,V?THROUGH,V?BOARD \?CCL3
+	CALL	PERFORM,V?LIE,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-ON \FALSE
+	CALL	PERFORM,V?SIT,PRSO
+	RTRUE	
+
+
+	.FUNCT	NIGHTSTAND-F
+	EQUAL?	PRSA,V?LOOK-ON,V?EXAMINE \FALSE
+	CALL	TELL-AS-WELL-AS,NIGHTSTAND,FALSE-VALUE,NIGHTLAMP
+	RTRUE	
+
+
+	.FUNCT	TELL-AS-WELL-AS,CONT,STR,OBJ=0,X=0
+	FSET?	CONT,SURFACEBIT \?CCL3
+	PRINTC	79
+	JUMP	?PRG8
+?CCL3:	FSET	CONT,OPENBIT
+	PRINTC	73
+?PRG8:	PRINTC	110
+	CALL	PRINTT,CONT
+	PRINTI	" you see"
+	CALL	FIND-FLAG-NOT,CONT,NDESCBIT
+	ZERO?	STACK /?PRG13
+	SET	'X,TRUE-VALUE
+	JUMP	?CND10
+?PRG13:	PRINTI	" only"
+?CND10:	ZERO?	OBJ /?PRG20
+	CALL	PRINTT,OBJ
+	JUMP	?CND15
+?PRG20:	PRINT	STR
+?CND15:	ZERO?	X /?PRG26
+	PRINTI	", as well as"
+	CALL	PRINT-CONTENTS,CONT
+?PRG26:	PRINTR	"."
+
+
+	.FUNCT	DRESSING-MIRROR-F
+	EQUAL?	PRSA,V?TURN,V?RUB,V?PUSH /?PRG6
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE,V?FIX \?CCL3
+?PRG6:	PRINTI	"Now you can see "
+	PRINTD	PLAYER
+	PRINTR	" perfectly."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINTI	"You look "
+	ZERO?	WASHED /?PRG17
+	PRINTI	"smashing"
+	JUMP	?PRG19
+?PRG17:	PRINTI	"a trifle dirty"
+?PRG19:	PRINTI	" in your "
+	ZERO?	NOW-WEARING \?PRG26
+	PRINTI	"birthday suit"
+	JUMP	?PRG28
+?PRG26:	PRINTD	NOW-WEARING
+?PRG28:	PRINTR	"."
+
+
+	.FUNCT	YOUR-MIRROR-F
+	EQUAL?	PRSA,V?SEARCH /?CTR2
+	EQUAL?	PRSA,V?RUB,V?LOOK-BEHIND,V?EXAMINE /?CTR2
+	EQUAL?	PRSA,V?SEARCH-FOR \?CCL3
+	EQUAL?	PRSO,YOUR-MIRROR \?CCL3
+?CTR2:	IN?	PLAYER,HERE /?PRG11
+	CALL	TOO-BAD-SIT-HIDE
+?PRG11:	PRINTI	"By running your fingers around the frame, you discover"
+	CALL	PRINTT,YOUR-SWITCH
+	CALL	THIS-IS-IT,YOUR-SWITCH
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL16
+	FSET?	SECRET-YOUR-DOOR,TOUCHBIT \?CCL16
+	CALL	PERFORM,PRSA,SECRET-YOUR-DOOR
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?TURN /?PRG24
+	EQUAL?	PRSA,V?TAKE,V?RUB,V?PUSH /?PRG24
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE,V?FIX \?CCL20
+?PRG24:	PRINTR	"It seems to be fastened to the wall."
+?CCL20:	CALL	DRESSING-MIRROR-F
+	RSTACK	
+
+
+	.FUNCT	YOUR-SWITCH-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"You can't tell by looking what it might do."
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL7
+	FCLEAR	YOUR-SWITCH,SECRETBIT
+	CALL	OKAY,SECRET-YOUR-DOOR,STR?66
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?CLOSE \?CCL9
+	FCLEAR	YOUR-SWITCH,SECRETBIT
+	CALL	OKAY,SECRET-YOUR-DOOR,STR?61
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?TURN,V?SLAP /?CCL11
+	EQUAL?	PRSA,V?RUB,V?PUSH,V?MOVE-DIR /?CCL11
+	EQUAL?	PRSA,V?MOVE,V?LAMP-ON,V?LAMP-OFF \FALSE
+?CCL11:	CALL	OPEN-SECRET,FALSE-VALUE,YOUR-SWITCH,SECRET-YOUR-DOOR
+	RTRUE	
+
+
+	.FUNCT	YOUR-BATHROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?WALK-TO \FALSE
+	EQUAL?	PRSO,YOUR-BATHROOM \FALSE
+	PRINT	AHHH
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL12
+	PRINTI	"From the look of it, "
+	PRINTD	YOUR-BATHROOM
+	PRINTR	" was added in recently. It is comfortable and inviting, especially for Cornwall."
+?CCL12:	EQUAL?	RARG,M-EXIT \?CCL16
+	ZERO?	NOW-WEARING \FALSE
+	CALL	FIND-FLAG,YOUR-ROOM,PERSONBIT >RARG
+	ZERO?	RARG /FALSE
+	PRINTI	"You peek in and see "
+	PRINTD	RARG
+	PRINTI	", then"
+	PRINT	REMEMBER-NOT-DRESSED
+	PRINTC	46
+	CRLF	
+	RETURN	2
+?CCL16:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?UNLOCK /?CCL29
+	EQUAL?	PRSA,V?LOCK,V?CLOSE,V?OPEN \FALSE
+?CCL29:	CALL	PERFORM,PRSA,YOUR-BATHROOM-DOOR
+	RTRUE	
+
+
+	.FUNCT	TOILET-PSEUDO
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	CALL	NOTHING-SPECIAL
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?USE,V?SIT \FALSE
+	PRINT	AHHH
+	RTRUE	
+
+
+	.FUNCT	BATH-PSEUDO
+	EQUAL?	PRSA,V?LAMP-ON,V?FILL,V?CLOSE \?CCL3
+	EQUAL?	WINNER,PLAYER \TRUE
+	PRINTR	"Okay, then what?"
+?CCL3:	EQUAL?	PRSA,V?THROUGH /?CTR8
+	EQUAL?	PRSA,V?TAKE,V?SWIM,V?BOARD \?CCL9
+?CTR8:	ZERO?	NOW-WEARING \?PRG21
+	FIRST?	PLAYER \?CND15
+	PRINTI	"First you drop everything...
+"
+	CALL	ROB,PLAYER,HERE
+?CND15:	GET	P-ITBL,P-VERBN
+	PUT	STACK,0,W?BATHE
+	CALL	V-WAIT,9,FALSE-VALUE,TRUE-VALUE
+	SET	'WASHED,TRUE-VALUE
+	PRINTI	"You're now squeaky clean. After toweling off, you feel nicely relaxed and ready to tackle the mystery of "
+	PRINTD	CASTLE
+	PRINTR	"."
+?PRG21:	PRINTI	"You almost step into the tub before you realize that your "
+	PRINTD	NOW-WEARING
+	PRINTR	" would get wet."
+?CCL9:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	IRIS-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL6
+	EQUAL?	PRSO,SECRET-IRIS-DOOR \?CCL6
+	CALL	YOU-CANT,FALSE-VALUE,PLAYER,STR?231
+	RTRUE	
+?CCL6:	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?EAST,P?IN \?CCL10
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL10:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTD	IRIS-ROOM
+	PRINTI	" is furnished much like yours, but with a canopied bed and "
+	PRINTD	IRIS-CHAIR
+	PRINTC	46
+	CALL	OPEN-DOOR?,SECRET-IRIS-DOOR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WENDISH-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?NORTH,P?IN \?CCL6
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL6:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The room shows the doctor's precise, scientific personality. Everything is in its place. "
+	CALL	WENDISH-STUFF-D
+	PRINTI	"His "
+	PRINTD	WENDISH-KIT
+	PRINTI	" is on a marble-topped console attached to the wall. On the north wall is"
+	CALL	PRINTT,CANDLE
+	PRINTC	46
+	CALL	OPEN-DOOR?,SECRET-WENDISH-DOOR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CANDLE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"It seems to be fastened loosely to the wall."
+?CCL3:	EQUAL?	PRSA,V?TURN,V?PUSH,V?MOVE-DIR /?CCL7
+	EQUAL?	PRSA,V?MOVE,V?LOOK-UNDER,V?LOOK-BEHIND /?CCL7
+	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	P-PRSA-WORD,W?RAISE,W?LIFT \FALSE
+?CCL7:	CALL	OPEN-SECRET,STR?249,CANDLE,SECRET-WENDISH-DOOR
+	RSTACK	
+
+
+	.FUNCT	WENDISH-STUFF-D,X
+	PRINTI	"Several "
+	PRINTD	WENDISH-STUFF
+	PRINTI	"s are lying on the "
+	PRINTD	DRESSING-TABLE-LG
+	PRINTR	"."
+
+
+	.FUNCT	WENDISH-STUFF-F
+	EQUAL?	PRSA,V?READ /?PRG6
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?PRG6:	PRINTR	"They are too technical to understand."
+?CCL3:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	WENDISH-KIT-F,X
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CTR2
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?CTR2:	CALL	SEARCH-KIT-BOX,WENDISH-KIT,STR?250
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	PRSO,WENDISH-KIT \FALSE
+	CALL	YOU-SHOULDNT
+	RSTACK	
+
+
+	.FUNCT	SEARCH-KIT-BOX,OBJ,STR,X=0
+	FSET	OBJ,OPENBIT
+	IN?	LENS-BOX,OBJ \?CCL3
+	SET	'X,LENS-BOX
+	JUMP	?CND1
+?CCL3:	IN?	VIVIEN-DIARY,OBJ \?CCL5
+	SET	'X,VIVIEN-DIARY
+	JUMP	?CND1
+?CCL5:	IN?	COSTUME,OBJ \?CCL7
+	SET	'X,COSTUME
+	JUMP	?CND1
+?CCL7:	IN?	BLOWGUN,OBJ \?CND1
+	SET	'X,BLOWGUN
+?CND1:	ZERO?	X /?CCL11
+	CALL	DISCOVER,X
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /TRUE
+	PRINTC	89
+	PRINT	OU-STOP-SEARCHING
+	PRINTR	"."
+?CCL11:	CALL	TELL-AS-WELL-AS,OBJ,STR
+	RTRUE	
+
+
+	.FUNCT	VIVIEN-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?SOUTH,P?IN \?CCL5
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL5:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The room is untidy, probably because Vivien is an artist. Sketches and garments are strewn on the canopied bed and "
+	PRINTD	VIVIEN-CHAIR
+	PRINTI	". Leaning against the wall are stretched canvases, and a fold-up easel for her outdoor art work. On the tallboy are a sketch pad, and a paint-smeared "
+	PRINTD	VIVIEN-BOX
+	PRINTI	". On the south wall is a cheval glass and"
+	CALL	PRINTT,FIGURINE
+	PRINTC	46
+	CALL	OPEN-DOOR?,SECRET-VIVIEN-DOOR
+	CRLF	
+	CALL	DESCRIBE-CONTENTS,VIVIEN-CHAIR
+	RTRUE	
+
+
+	.FUNCT	VIVIEN-BOX-F,X
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CTR2
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?CTR2:	CALL	SEARCH-KIT-BOX,VIVIEN-BOX,STR?251
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	PRSO,VIVIEN-BOX \FALSE
+	CALL	YOU-SHOULDNT
+	RSTACK	
+
+
+	.FUNCT	FIGURINE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"It's turned toward the wall, so you can't see its face."
+?CCL3:	EQUAL?	PRSA,V?TURN /?CCL7
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \FALSE
+?CCL7:	CALL	OPEN-SECRET,STR?161,FIGURINE,SECRET-VIVIEN-DOOR
+	RSTACK	
+
+
+	.FUNCT	IAN-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?NORTH,P?IN \?CCL5
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL5:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTD	IAN-ROOM
+	PRINTI	" has rich wood panelling, a four-poster bed, Victorian washstand, and "
+	PRINTD	IAN-CHAIR
+	PRINTI	". "
+	CALL	TELL-IAN-FIREPLACE
+	CRLF	
+	CALL	OPEN-DOOR?,SECRET-IAN-DOOR,TRUE-VALUE
+	ZERO?	STACK /TRUE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TELL-IAN-FIREPLACE
+	PRINTI	"In the "
+	PRINTD	FIREPLACE
+	PRINTI	", the fender has flashy grillwork, and the "
+	PRINTD	ANDIRON
+	PRINTI	"s have fancy carved heads."
+	RTRUE	
+
+
+	.FUNCT	ANDIRON-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"By looking closely, you find that the head can turn."
+?CCL3:	EQUAL?	PRSA,V?TURN,V?RUB /?CCL7
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \FALSE
+?CCL7:	CALL	OPEN-SECRET,STR?161,ANDIRON,SECRET-IAN-DOOR
+	RSTACK	
+
+
+	.FUNCT	HYDE-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL6
+	EQUAL?	PRSO,SECRET-HYDE-DOOR \?CCL6
+	CALL	YOU-CANT,FALSE-VALUE,PLAYER,STR?231
+	RTRUE	
+?CCL6:	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?NORTH,P?IN \?CCL10
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL10:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTD	HYDE-ROOM
+	PRINTI	" has many tasteful antiques, such as "
+	CALL	PRINTA,HYDE-CHAIR
+	PRINTI	" in one corner."
+	CALL	OPEN-DOOR?,SECRET-HYDE-DOOR
+	CRLF	
+	RTRUE	
+
+	.ENDI
diff --git a/castle.zil b/castle.zil
new file mode 100644
index 0000000..e0dfd6b
--- /dev/null
+++ b/castle.zil
@@ -0,0 +1,2804 @@
+"CASTLE for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+<OBJECT CASTLE
+	(IN GLOBAL-OBJECTS)
+	(DESC "Tresyllian Castle")
+	(ADJECTIVE TRESYLLIAN)
+	(SYNONYM CASTLE WING HOUSE)
+	(FLAGS NARTICLEBIT SEENBIT)
+	(ACTION CASTLE-F)>
+
+<GLOBAL DARK-TURRETS "The dark stone turrets rise toward the misty sky.|">
+
+<ROUTINE CASTLE-F ()
+ <COND (<VERB? EXAMINE FIND>
+	<COND (<OUTSIDE? ,HERE>
+	       <COND (<VERB? FIND>
+		      <TELL "It's right here!" CR>)
+		     (T
+		      <TELL ,DARK-TURRETS>
+		      <RTRUE>)>)
+	      (<OR <DOBJ? CASTLE>
+		   <NOT <FSET? ,HERE ,WEARBIT>>>
+	       <TELL "It's all around you!" CR>)
+	      (T <NOT-HERE ,TOWER>)>)
+       (<VERB? BOARD ;CLIMB-UP THROUGH WALK-TO>
+	<COND (<DOBJ? CASTLE>
+	       <COND (<OUTSIDE? ,HERE>
+		      <COND (<NOT <FSET? ,FRIEND ,TOUCHBIT>>
+			     <PERFORM ,PRSA ,COURTYARD>)
+			    (T <PERFORM ,PRSA ,FOYER>)>
+		      <RTRUE>)
+		     (T <HAR-HAR>)>)
+	      (T
+	       <COND (<OR <OUTSIDE? ,HERE>
+			  <FSET? ,HERE ,WEARBIT>>
+		      <PERFORM ,PRSA ,OLD-GREAT-HALL>
+		      ;<OKAY>
+		      <RTRUE>)
+		     (T <HAR-HAR>)>)>)
+       (<VERB? LEAVE>
+	<COND (<NOT <OUTSIDE? ,HERE>>
+	       <PERFORM ,V?WALK-TO ,COURTYARD>
+	       <RTRUE>)
+	      (T <HAR-HAR>)>)>>
+
+<OBJECT TOWER
+	(IN GLOBAL-OBJECTS)
+	(DESC "tower")
+	(ADJECTIVE STONE ;BATTLE TOWER)
+	(SYNONYM TOWER TURRET KEEP)
+	(FLAGS SEENBIT)
+	(ACTION TOWER-F)>
+
+<ROUTINE TOWER-F ()
+ <COND (<VERB? BOARD EXAMINE FIND THROUGH WALK-TO LEAVE>
+	<CASTLE-F>)
+       (<REMOTE-VERB?>
+	<RFALSE>)
+       (<FSET? ,HERE ,WEARBIT> ;"WING-ROOMS"
+	<NOT-HERE ,TOWER>
+	<RTRUE>)>>
+
+<OBJECT MOON
+	(IN LOCAL-GLOBALS)
+	(DESC "full moon")
+	(ADJECTIVE FULL ;"LOVELY RISING")
+	(SYNONYM MOON MIST SKY)
+	(FLAGS SEENBIT)
+	(ACTION MOON-F)>
+
+<ROUTINE MOON-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL "Strange shapes of mist dance in front of the " 'MOON "." CR>)
+       (<VERB? EAT SMELL>
+	<PERFORM ,V?SMELL ,OCEAN>
+	<RTRUE>)>>
+
+<OBJECT OCEAN
+	(IN LOCAL-GLOBALS)
+	(DESC "ocean")
+	(ADJECTIVE BLUE)
+	(SYNONYM SEA OCEAN BREAKER)
+	(FLAGS SEENBIT VOWELBIT)
+	(ACTION OCEAN-F)>
+
+<ROUTINE OCEAN-F ()
+ <COND (<VERB? LISTEN>
+	<TELL "The breakers seem to be warning you."
+	      ;"The shooshing breakers could lull you to sleep." CR>)
+       (<VERB? THROUGH WALK-TO>
+	<TELL "The cliffs are too dangerous in the dark." CR>)>>
+[
+<ROUTINE CAR-DOOR-PSEUDO ()
+ <COND (<VERB? OPEN CLOSE LOCK UNLOCK>
+	<NO-NEED ;"do that">)>>
+
+<OBJECT CAR
+	(IN DRIVEWAY ;ROOMS)
+	(FLAGS ;ONBIT VEHBIT SEENBIT CONTBIT OPENBIT)
+	(CAPACITY 9999)
+	(DESC "sports car" ;"Porsche")
+	(ADJECTIVE MY NEW ;SPORT SPORTS LITTLE F.C F.C)
+	(SYNONYM ;PORSCHE CAR)
+	;(GENERIC GENERIC-CAR)
+	(DESCFCN TELL-ABOUT-CAR)
+	(ACTION CAR-F)>
+
+;<	(GLOBAL ;CAR-WINDOW FRONT-GATE CAR MOON OCEAN COURTYARD)
+	(THINGS <PSEUDO ( CAR DOOR	CAR-DOOR-PSEUDO)
+			( <> BLAST	NULL-F)>)
+	(LINE 1)
+	(STATION DRIVEWAY)
+	(CHARACTER 2)	;"floor number"
+	(OUT PER DECAR-F)>
+
+<ROUTINE DRIVING? ()
+ <COND (<AND <NOT <ZERO? ,P-PRSA-WORD>>
+	     <NOT <EQUAL? ,P-PRSA-WORD ,W?DRIVE ,W?ENTER ,W?STEER>>
+	     ;<NOT <EQUAL? ,P-PRSA-WORD ,W?GO>>>
+	<RFALSE>)
+       (<VERB? CLIMB-UP THROUGH WALK-TO>
+	<COND (<AND <VERB? THROUGH>
+		    <DOBJ? CAR>>
+	       <COND (<T? ,PRSI>	;"DRIVE CAR THRU object"
+		      <COND (<NOT <==? ,HERE <META-LOC ,PRSI>>>
+			     <SETG PRSO ,PRSI>
+			     <RTRUE>)
+			    (T <RFALSE>)>)
+		     (T			;"DRIVE CAR IN"
+		      <SETG PRSO ,FRONT-GATE>
+		      <RTRUE>)>)
+	      (<NOT <==? ,HERE <META-LOC ,PRSO>>>
+	       <RTRUE>)
+	      (T <RFALSE>)>)
+       (<VERB? LEAVE>
+	<COND (<NOT <EQUAL? ,PRSO ;<> ,ROOMS ,CAR>>
+	       <RTRUE>)>)
+       (<VERB? WALK>
+	<COND (<OR <NOT <ZERO? ,P-PRSA-WORD>>
+		   <NOT <DOBJ? P?OUT>>>
+	       <RTRUE>)>)>>
+
+<ROUTINE CAR-F ("OPTIONAL" (ARG <>) "AUX" S)
+ <SET S ,HERE ;<GETP ,CAR ,P?STATION>>
+ <COND (<EQUAL? .ARG ,M-BEG>
+	<COND (<DRIVING?>
+	       <COND (<DOBJ? FRONT-GATE>
+		      <COND (<VERB? THROUGH>
+			     <COND (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (<EQUAL? .S ,DRIVEWAY>
+				    <PERFORM ,V?WALK-TO ,COURTYARD>
+				    <RTRUE>)
+				   (T
+				    <PERFORM ,V?WALK-TO ,DRIVEWAY>
+				    <RTRUE>)>)
+			    (T <WALK-WITHIN-ROOM>)>)
+		     (<EQUAL? .S ,DRIVEWAY>
+		      <COND (<VERB? CLIMB-UP THROUGH WALK-TO>
+			     <COND (<EQUAL? ,DRIVEWAY <META-LOC ,PRSO>>
+				    <WALK-WITHIN-ROOM>)
+				   (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T ;<DOBJ? COURTYARD>
+				    <CAR-TO-COURTYARD>)>)
+			    (<VERB? LEAVE>
+			     <COND (<DOBJ? COURTYARD>
+				    <HAR-HAR>)
+				   (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T ;<DOBJ? DRIVEWAY>
+				    <CAR-TO-COURTYARD>)>)
+			    (<OR <DOBJ? P?SOUTH P?IN>
+				 <AND <DOBJ? INTDIR> <ADJ-USED? ,W?SOUTH>>>
+			     <COND (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T <CAR-TO-COURTYARD>)>)
+			    (T ;<DOBJ? P?NORTH>
+			     <SETG CLOCK-WAIT T>
+			     <TELL ,CASTLE-IS-SOUTH>
+			     <RTRUE>
+			     ;<YOU-CANT "drive">)>)
+		     (T ;<EQUAL? .S ,COURTYARD>
+		      <COND (<VERB? CLIMB-UP THROUGH WALK-TO>
+			     <COND (<EQUAL? ,COURTYARD <META-LOC ,PRSO>>
+				    ;<EQUAL? ,PRSO <> ,COURTYARD ,CASTLE>
+				    <WALK-WITHIN-ROOM>)
+				   (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T ;<DOBJ? DRIVEWAY>
+				    <CAR-TO-DRIVEWAY>)>)
+			    (<VERB? LEAVE>
+			     <COND (<DOBJ? DRIVEWAY>
+				    <HAR-HAR>)
+				   (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T ;<DOBJ? COURTYARD>
+				    <CAR-TO-DRIVEWAY>)>)
+			    (<OR <DOBJ? P?NORTH>
+				 <AND <DOBJ? INTDIR> <ADJ-USED? ,W?NORTH>>>
+			     <COND (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T <CAR-TO-DRIVEWAY>)>)
+			    (<DOBJ? P?OUT>
+			     <COND (<EQUAL? ,P-PRSA-WORD <> ,W?GO>
+				    <RFALSE>)
+				   (<NOT <FSET? ,FRONT-GATE ,OPENBIT>>
+				    <TOO-BAD-BUT ,FRONT-GATE "closed">)
+				   (T <CAR-TO-DRIVEWAY>)>)
+			    (T <YOU-CANT "drive">)>)
+		     ;(T <YOU-CANT "drive">)>)
+	      (<AND <VERB? WALK> <DOBJ? P?OUT>>
+	       <MOVE ,WINNER ,HERE>
+	       <OWN-FEET>)
+	      (<OR <VERB? FOLLOW STAND WALK>
+		   <AND <VERB? LEAVE THROUGH WALK-TO>
+			<NOT <ZERO? ,PRSO>>
+			<NOT <EQUAL? ,PRSO ,LUGGAGE ,ROOMS ,CAR>>>
+		   ;<AND <VERB? WALK>
+			<NOT <DOBJ? P?OUT>>>>
+	       ;<TELL "(You get out of the car first.)" CR>
+	       <FIRST-YOU "leave" ,CAR>
+	       ;<GOTO <GETP ,CAR ,P?STATION>>
+	       <MOVE ,WINNER ,HERE>
+	       <COND (<VERB? STAND> <RTRUE>)
+		     (T <RFALSE>)>)
+	      (<DOBJ? ROOMS>
+	       <COND ;(<VERB? RING>	;"only if syntax allows it"
+		      <PERFORM ,PRSA ,HORN>
+		      <RTRUE>)
+		     (<VERB? STOP>
+		      <PERFORM ,PRSA ,CAR>
+		      <RTRUE>)>)>)
+       (<EQUAL? .ARG ,M-LOOK>
+	<COND (<==? <LOC ,WINNER> ;,HERE ,CAR>
+	       <TELL "You are sitting in your new little " 'CAR "." CR>)>
+	<RTRUE>)
+       (.ARG <RFALSE>)
+       (<VERB? EXAMINE>
+	<TELL-ABOUT-CAR>
+	<RTRUE>)
+       ;(<VERB? LAMP-ON>
+	<COND (<FSET? ,CAR ,MUNGBIT>
+	       <TELL "The starter runs, but the engine won't start."CR>)
+	      (<FSET? ,CAR ,FEMALE>
+	       <TELL
+"You hear gears clash! The quiet engine must be running already." CR>)
+	      (T
+	       <FSET ,CAR ,FEMALE>
+	       <TELL "The engine starts immediately." CR>)>)
+       ;(<VERB? LOCK>
+	<SETG CLOCK-WAIT T>
+	<TELL
+"(You're out in the country. You don't need to lock the car.)" CR>)
+       (<VERB? CLIMB-ON CLOSE OPEN LAMP-OFF LAMP-ON LOCK UNLOCK>
+	<NO-NEED "do that to">)>>
+
+<ROUTINE CAR-TO-COURTYARD ()
+	<MOVE ,CAR ,COURTYARD>
+	<TELL
+"Your headlights bravely pierce the gloom as you enter the " 'COURTYARD ".
+You get out of your car.|">
+	<GOTO ,COURTYARD>>
+
+<ROUTINE CAR-TO-DRIVEWAY ()
+	<SETG CLOCK-WAIT T>
+	<TELL "(You can't leave yet. There's a mystery to be solved!)" CR>>
+
+<ROUTINE TELL-ABOUT-CAR ("OPT" X)
+	<TELL "Your new little ">
+	<COND (<PRINT-COLOR> <TELL !\ >)>
+	<TELL 'CAR " is parked here." CR>>
+
+<OBJECT VOICE
+	(DESC "voice")
+	(ADJECTIVE LOUD ;CONCEAL HIDDEN LI\'S B\'S HIS)
+	(SYNONYM VOICE SPEAKER LOUDSPEAKER)
+	(FLAGS NDESCBIT)
+	(ACTION VOICE-F)>
+
+<ROUTINE VOICE-F ()
+ <COND (<EQUAL? ,HERE ;,CAR ,DRIVEWAY>
+	<COND (<AND <NOT <ZERO? ,DRAGON-EYE-COLOR>>
+		    <OR <VERB? LISTEN>
+			<SPEAKING-VERB?>>>
+	       <COND ;(<EQUAL? ,HERE ,CAR>
+		      <TELL "You still can't make out what's being said." CR>)
+		     (T <VOICE-SAYS>)>)>)
+       (<EQUAL? ,HERE ,DINING-ROOM>
+	<COND (<VERB? LISTEN>
+	       <BUST-F>)>)>>
+
+<OBJECT HORN
+	(IN CAR)
+	(DESC "horn")
+	(ADJECTIVE MY MOTOR ;CAR)
+	(SYNONYM HORN)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION HORN-F)>
+
+<ROUTINE HORN-F ()
+ <COND (<VERB? RING PUSH RUB SLAP SOUND>
+	<COND (<NOT <ZERO? <GETB ,LAST-NAME 0>>>
+	       <COND (<GATE-OPENS> <RTRUE>)
+		     (T <TELL "\"H-O-O-O-N-K!\"" CR>)>)
+	      (T
+	       <THIS-IS-IT ,VOICE>
+	       <MOVE ,VOICE ,DRIVEWAY ;,CAR>
+	       <PERFORM ,V?PUSH ,DRAGON-EYE>
+	       <RTRUE>)
+	      ;(T
+	       <COND (<NOT <L? ,DRAGON-EYE-COLOR 0>>
+		      <TELL "A red light flickers, on the gate. ">)>
+	       <SETG DRAGON-EYE-COLOR -1>
+	       <THIS-IS-IT ,VOICE>
+	       <MOVE ,VOICE ,DRIVEWAY ;,CAR>
+	       <TELL
+"You can hear a voice indistinctly. It seems to be coming from the gate."
+CR>)>)>>
+][
+<ROOM DRIVEWAY
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "driveway")
+	(ADJECTIVE DRIVE)
+	(SYNONYM DRIVEWAY WAY)
+	(LINE 1)
+	(STATION COURTYARD ;DRIVEWAY)
+	(CHARACTER 2)
+	(GLOBAL FRONT-GATE MOON OCEAN WINDOW CHAIR)
+	(THINGS <PSEUDO ( CAR DOOR	CAR-DOOR-PSEUDO)>)
+	(SOUTH	TO COURTYARD IF FRONT-GATE IS OPEN)
+	(IN	TO COURTYARD IF FRONT-GATE IS OPEN)
+	(ACTION DRIVEWAY-F)>
+
+<ROUTINE DRIVEWAY-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-BEG>
+	<COND (<VERB? YELL>
+	       <PERFORM ,V?KNOCK ,FRONT-GATE>
+	       <RTRUE>)
+	      (<AND <NOT <ZERO? ,DRAGON-EYE-COLOR>>
+		    <OR <SPEAKING-VERB?>
+			<AND <VERB? LISTEN>
+			     <DOBJ? FRONT-GATE DRAGON DRAGON-EYE>>>>
+	       <VOICE-SAYS>
+	       <RTRUE>)>)
+       (<==? .RARG ,M-LOOK>
+	<TELL
+;"This is the end of the  'DRIVEWAY" "You are by the ">
+	<COND (<FSET? ,FRONT-GATE ,OPENBIT>
+	       <TELL "open ">)>
+	<TELL
+'FRONT-GATE " of " 'CASTLE ". You can hear the ocean beating urgently
+against the rocks far below.|">
+	<TELL-ABOUT-DRAGON>
+	<RTRUE>)>>
+
+<OBJECT DRAGON
+	(IN DRIVEWAY ;FRONT-GATE)
+	(DESC "dragon")
+	;(ADJECTIVE WINGED TWO-LEGGED)
+	(ADJECTIVE DRAGON WYVERN ORNAMENT ;"for possessives")
+	(SYNONYM DRAGON WYVERN ORNAMENT)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(ACTION DRAGON-F)>
+
+<ROUTINE DRAGON-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE>
+	<TELL-ABOUT-DRAGON>
+	<RTRUE>)
+       (T ;<VERB? PUSH RUB TURN>
+	<DRAGON-EYE-F>)>>
+
+<ROUTINE TELL-ABOUT-DRAGON ()
+	<TELL
+"In the moonlit gloom, you can make out an ornament on the gate.
+It's a winged, two-legged dragon called a wyvern,
+which crests the " ,TRESYLLIAN " family's coat of
+arms.|
+The dragon appears in profile. ">
+	<THIS-IS-IT ,DRAGON-EYE>
+	<TELL-ABOUT-EYE>
+	<RTRUE>>
+
+<ROUTINE I-DRAGON-EYE ("OPTIONAL" (GARG <>))
+ %<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+		     <TELL "[I-DRAGON-EYE:">
+		     <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+ <COND (<ZERO? <GETB ,LAST-NAME 0>>
+	;<NOT <L? ,DRAGON-EYE-COLOR 0>>
+	<PERFORM ,V?PUSH ,DRAGON-EYE>
+	<RFATAL>)>>
+
+<OBJECT DRAGON-EYE
+	(IN DRIVEWAY ;FRONT-GATE)
+	(DESC "dragon's eye")
+	(ADJECTIVE ;"WINGED TWO-LEGGED" DRAGON WYVERN WORM\'S RED GREEN DOOR)
+	(SYNONYM EYE DOORBELL ;BUTTON LIGHT BELL)
+	(GENERIC GENERIC-BELL)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION DRAGON-EYE-F)>
+
+<ROUTINE DRAGON-EYE-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE>
+	<TELL-ABOUT-EYE>
+	<RTRUE>)
+       (<VERB? BOARD CLIMB-ON LEAP>
+	<TELL ,TOO-SLIPPERY>
+	<RTRUE>)
+       (<VERB? KNOCK MOVE MUNG PUSH RING RUB SLAP TURN>
+	<COND (<NOT <L? ,DRAGON-EYE-COLOR 0>>
+	       <SETG DRAGON-EYE-COLOR -1>
+	       <TELL "The " 'DRAGON-EYE " glows red. ">)>
+	<COND (<NOT <VERB? PUSH>>
+	       <TELL "Evidently you just pushed a button. ">)>
+	<TELL "A voice comes from a hidden speaker. It says:|">
+	<VOICE-SAYS>
+	<RTRUE>)
+       (<VERB? TAKE>
+	<TELL "It's part of the " 'FRONT-GATE "." CR>)>>
+
+<ROUTINE TELL-ABOUT-EYE ()
+	<COND (<ZERO? ,DRAGON-EYE-COLOR>
+	       <TELL "The moonlight glints on its lone visible eye." CR>)
+	      (T
+	       <TELL "The " 'DRAGON-EYE " is glowing ">
+	       <COND (<G? ,DRAGON-EYE-COLOR 0>
+		      <TELL "green." CR>)
+		     (T <TELL "red." CR>)>)>>
+
+<ROUTINE VOICE-SAYS ()
+	<QUEUE I-DRAGON-EYE 0>
+	<COND (<NOT <ZERO? <GETB ,LAST-NAME 0>>>
+	       <TELL "\"Please enter, ">
+	       <COND (<TITLE-NAME> <TELL !\.>)>
+	       <TELL "\"|">
+	       <GATE-OPENS>
+	       <RTRUE>)>
+	<QUEUE I-FRIEND-GREETS 6 ;9>
+	<TELL
+"\"Please announce " 'PLAYER ". State your title -- such as Lord or Lady,
+Sir or Dame, Mr. or Ms. -- and your first and last name.\"|">
+	<GET-NAME>
+	<TELL "\"And what is " 'YOUR-COLOR ", "TN"?\"|">
+	<GET-COLOR>
+	<TELL "\"Jolly good! The spare bedroom is decorated in ">
+	<PRINT-COLOR>
+	<TELL "! ">
+	;<TELL "Are you driving, "TN"?\"">
+	<COND ;(<YES?>
+	       <TELL ;"return to your car and ... a blast on "
+"\"Then please sound your motor horn when you are ready to enter.\""
+CR>)
+	      (T
+	       ;<TELL "\"Then p">
+	       <TELL "Please enter.\"" CR>
+	       <GATE-OPENS>)>
+	<RTRUE>>
+
+<ROUTINE GATE-OPENS ()
+ <COND (<AND <EQUAL? ,HERE ,DRIVEWAY>
+	     <NOT <FSET? ,FRONT-GATE ,OPENBIT>>>
+	;<ESTABLISH-GOAL ,FRIEND ,COURTYARD>
+	;<ESTABLISH-GOAL ,LORD ,COURTYARD>
+	;<PUT <GT-O ,FRIEND>	,GOAL-FUNCTION ,FRIEND-GREETS>
+	;<PUT <GT-O ,LORD>	,GOAL-FUNCTION ,NULL-F ;,LORD-GREETS>
+	<REMOVE ,VOICE>
+	<FSET ,FRONT-GATE ,OPENBIT>
+	<FCLEAR ,FRONT-GATE ,LOCKED>
+	<THIS-IS-IT ,FRONT-GATE>
+	<TELL "The ">
+	<COND (<NOT <EQUAL? ,DRAGON-EYE-COLOR +1>>
+	       <COND (<L? ,DRAGON-EYE-COLOR 0> <TELL "red ">)>
+	       <SETG DRAGON-EYE-COLOR +1>
+	       <TELL "eye turns green, and the ">)>
+	<TELL 'FRONT-GATE " creaks open." CR>)>>
+
+<GLOBAL DRAGON-EYE-COLOR:NUMBER 0>
+]
+<GLOBAL TOO-SLIPPERY "The thickening mist has made it too slippery.|">
+
+<OBJECT FRONT-GATE
+	(IN LOCAL-GLOBALS)
+	(DESC "front gate")
+	(ADJECTIVE FRONT TALL IRON)
+	(SYNONYM GATE ;DOOR)
+	(FLAGS TRANSBIT LOCKED DOORBIT SEENBIT ;SURFACEBIT)
+	(ACTION FRONT-GATE-F)>
+
+;<GLOBAL FRONT-GATE-KNOCKED:NUMBER 0>
+<ROUTINE FRONT-GATE-F ()
+ <COND (<VERB? KNOCK>
+	;<SETG FRONT-GATE-KNOCKED <+ 1 ,FRONT-GATE-KNOCKED>>
+	<COND (T ;<ZERO? <MOD ,FRONT-GATE-KNOCKED 2>>
+	       <TELL "Apparently no one hears you." CR>)
+	      ;(T <TELL
+"Some of the castle windows show light, but the " 'COURTYARD " remains
+shrouded in silence." CR>)>)
+       (<VERB? MUNG SHAKE UNLOCK>
+	<TELL
+"Except for your rattling the gate, the silence remains unbroken." CR>)
+       (<VERB? BOARD CLIMB-ON LEAP>
+	<TELL ,TOO-SLIPPERY>
+	<RTRUE>)
+       (<AND <VERB? WALK-TO>
+	     <NOT <EQUAL? ,HERE ,DRIVEWAY ,COURTYARD>>>
+	<PERFORM ,PRSA ,COURTYARD>
+	<RTRUE>)
+       (<VERB? OPEN>
+	<COND (<FSET? ,FRONT-GATE ,LOCKED>
+	       <TELL "It seems to be locked." CR>)>)
+       (<VERB? EXAMINE LOOK-ON SEARCH SEARCH-FOR>
+	<COND (<OR <EQUAL? ,HERE ,DRIVEWAY>
+		   ;<AND <EQUAL? ,HERE ,CAR>
+			<EQUAL? <GETP ,HERE ,P?STATION> ,DRIVEWAY>>>
+	       <TELL-ABOUT-DRAGON>
+	       <RTRUE>)
+	      ;(<AND <IN? ,CLUE-4 ,FRONT-GATE>
+		    <FSET? ,CLUE-4 ,SECRETBIT>>
+	       <DISCOVER ,CLUE-4>)>)
+       (<IN? ,VOICE ,HERE>
+	<VOICE-F>)>>
+
+<ROOM COURTYARD
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "courtyard")
+	(ADJECTIVE CASTLE COURT)
+	(SYNONYM COURTYARD YARD ROOM)
+	(LINE 1)
+	(STATION COURTYARD)
+	(CHARACTER 2)
+	(GLOBAL FRONT-GATE MOON FRONT-DOOR OLD-GREAT-HALL
+		OCEAN WINDOW CHAIR)
+	(THINGS <PSEUDO ( CAR DOOR	CAR-DOOR-PSEUDO)>)
+	(OUT	TO DRIVEWAY IF FRONT-GATE IS OPEN)
+	(NORTH	TO DRIVEWAY IF FRONT-GATE IS OPEN)
+	(SW	TO OLD-GREAT-HALL IF OLD-GREAT-HALL ;TOWER-DOOR IS OPEN)
+	(SOUTH	TO FOYER IF FRONT-DOOR IS OPEN)
+	(IN	TO FOYER IF FRONT-DOOR IS OPEN)
+	;(IN	"Do you want to go south or southwest?")
+	(EAST	TO MAZE ;GARDEN)
+	(ACTION COURTYARD-F)>
+
+<ROUTINE COURTYARD-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-ENTER>
+	<COND (<IN? ,FRIEND ,LIMBO>
+	       <MOVE ,FRIEND ,COURTYARD>)>
+	<COND (<NOT <ZERO? ,DRAGON-EYE-COLOR>>
+	       <SETG DRAGON-EYE-COLOR 0>)>
+	<COND (<NOT <FSET? ,FRONT-GATE ,LOCKED>>
+	       <FCLEAR ,FRONT-GATE ,OPENBIT>
+	       <FSET ,FRONT-GATE ,LOCKED>
+	       <TELL "The " 'FRONT-GATE " closes and locks behind you." CR>)>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+	       <FSET ,HERE ,TOUCHBIT>
+	       <TELL "As flood lights blaze on, you look around. ">)>
+	<TELL-LIKE-BROCHURE>
+	<TELL ,DARK-TURRETS>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-FLASH>
+	<COND (<AND <IN? ,FRIEND ,COURTYARD>
+		    <NOT <FSET? ,FRIEND ,TOUCHBIT>>
+		    <ZERO? ,CLOCK-WAIT>>
+	       <FSET ,FRIEND ,TOUCHBIT>
+	       <FCLEAR ,FRIEND ,NDESCBIT>
+	       <SETG FOLLOWER ,FRIEND>
+	       <SETG QCONTEXT ,FRIEND>
+	       ;<PUT <GET ,GOAL-TABLES ,FRIEND-C> ,GOAL-ENABLE 0>
+	       <QUEUE I-FRIEND-GREETS 0>
+	       ;<PUTP ,FRIEND ,P?LDESC 0>
+	       <QUEUE I-TOUR 7 ;3>
+	       <ESTABLISH-GOAL ,BUTLER ,COURTYARD>
+	       ;<PUT <GT-O ,BUTLER> ,GOAL-FUNCTION ,BUTLER-APPEARS>
+	       <FCLEAR ,FRONT-DOOR ,LOCKED>
+	       <SETG QCONTEXT ,FRIEND>
+	       <THIS-IS-IT ,FRIEND>
+	       <PUTP ,FRIEND ,P?LDESC 12 ;"listening to you">
+	       <SETG AWAITING-REPLY ,FRIEND-C>
+	       <QUEUE I-REPLY ;2 ,CLOCKER-RUNNING>
+	       <TELL "|
+Someone comes running out of the wing to greet you. " <GETP ,FRIEND ,P?TEXT>
+" You recognize her as your friend, " 'FRIEND " Lynd.|
+\""FN"!\" she cries with outflung arms. \"You sweet thing, to answer
+my letter in person this way! And all the people I wrote about are
+here tonight for Lionel's memorial birthday dinner!\"|
+After a warm hug, she asks anxiously, \""
+<GET ,QUESTIONS ,AWAITING-REPLY> "\"|">
+	       <RFATAL>)>)
+       ;(<EQUAL? .RARG ,M-EXIT>
+	<COND (<T? ,AWAITING-REPLY>
+	       <SETG CLOCK-WAIT T>
+	       <PLEASE-ANSWER>
+	       <RTRUE>)>)>>
+
+<ROUTINE TELL-LIKE-BROCHURE ("OPTIONAL" (DR <>))
+	<TELL
+"It looks even lovelier than it sounds in the " D ,BROCHURE ".">
+	<COND (<T? .DR>
+	       <OPEN-DOOR? .DR>)>
+	<CRLF>>
+
+<ROOM MAZE
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "hedge maze")
+	(ADJECTIVE HEDGE)
+	(SYNONYM MAZE ;HEDGEMAZE)
+	(LDESC
+"Tall dark hedges surround you like walls, with walkways in all directions.")
+	(LINE 1)
+	(STATION MAZE ;COURTYARD)
+	(CHARACTER 2)
+	(GLOBAL MOON OCEAN)
+	(NORTH	PER MAZE-EXIT)
+	(NE	PER MAZE-EXIT)
+	(EAST	PER MAZE-EXIT)
+	(SE	PER MAZE-EXIT)
+	(SOUTH	PER MAZE-EXIT)
+	(SW	PER MAZE-EXIT)
+	(WEST	PER MAZE-EXIT)
+	(NW	PER MAZE-EXIT)
+	(IN	TO GARDEN)
+	(OUT	TO COURTYARD)
+	(ACTION MAZE-F)>
+
+<ROUTINE MAZE-EXIT ("AUX" RM)
+	<COND (<==? ,OHERE ,GARDEN>
+	       <SET RM ,COURTYARD>)
+	      (T ;<==? ,OHERE ,COURTYARD>
+	       <SET RM ,GARDEN>)>
+	<COND (<==? ,WINNER ,PLAYER>
+	       <TELL
+"You stumble blindly through the maze and suddenly emerge in the " D .RM".|">)>
+	.RM>
+
+<ROUTINE MAZE-F ("OPT" (RARG 0))
+ <COND (<T? .RARG>
+	<RFALSE>)
+       (<VERB? THROUGH>
+	<COND (<EQUAL? ,HERE ,MAZE>
+	       <GOTO <MAZE-EXIT>>)>)>>
+
+<ROOM GARDEN
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "garden")
+	(ADJECTIVE CASTLE)
+	(SYNONYM GARDEN BOWER)
+	(LINE 1)
+	(STATION GARDEN ;COURTYARD)
+	(CHARACTER 2)
+	(GLOBAL MOON OCEAN)
+	(NORTH	TO MAZE)
+	(NE	TO MAZE)
+	(EAST	TO MAZE)
+	(SE	TO MAZE)
+	(SOUTH	TO MAZE)
+	(SW	TO MAZE)
+	(WEST	TO MAZE)
+	(NW	TO MAZE)
+	(OUT	TO MAZE)
+	(ACTION GARDEN-F)>
+
+<ROUTINE GARDEN-F ("OPTIONAL" (RARG <>) "AUX" OBJ)
+ <COND (<==? .RARG ,M-LOOK>
+	<TELL
+"Here in the central garden the plants quake nervously in
+the mist. In the very middle is a " 'POND "." CR
+;" You can go west to the courtyard or southwest to enter the castle.">)
+       (<T? .RARG>
+	<RFALSE>)
+       (<VERB? EXAMINE SEARCH SEARCH-FOR>
+	<COND (<SET OBJ <FIND-FLAG-HERE ,SECRETBIT>>
+	       <DISCOVER .OBJ ,HERE>
+	       <RTRUE>)>
+	;<COND (<AND <IN? ,CLUE-4 ,GARDEN>
+		    <FSET? ,CLUE-4 ,SECRETBIT>>
+	       <DISCOVER ,CLUE-4 ,GARDEN>
+	       <RTRUE>)
+	      ;(<AND <IN? ,NECKLACE ,GARDEN>
+		    <FSET? ,NECKLACE ,SECRETBIT>>
+	       <DISCOVER ,NECKLACE ,GARDEN>
+	       <RTRUE>)>)>>
+
+<OBJECT POND
+	(IN GARDEN)
+	(DESC "goldfish pond")
+	(ADJECTIVE ;GOLDFISH ;FISH STONE)
+	(SYNONYM POND WATER FOUNTAIN)
+	(FLAGS CONTBIT OPENBIT NDESCBIT SEENBIT)
+	(CAPACITY 999)
+	(ACTION POND-F)>
+
+<ROUTINE POND-F ()
+ <COND (<VERB? BOARD LEAP SWIM THROUGH>
+	<TELL "On second thought, it looks too dark and slippery." CR>
+	<RTRUE>)
+       (<VERB? EXAMINE LOOK-INSIDE LOOK-UNDER>
+	<COND ;(<AND <IN? ,NECKLACE ,POND>
+		    <FSET? ,NECKLACE ,SECRETBIT>>
+	       <DISCOVER ,NECKLACE ,POND>
+	       ;<TELL
+CHE ,WINNER notice " something projecting above the water. When" HE ,WINNER
+take " it, it's obviously a " D ,NECKLACE "!" CR>)
+	      (T
+	       <TELL-AS-WELL-AS ,POND " dark water">
+	       <RTRUE>)>)>>
+
+<OBJECT FRONT-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "front door")
+	(ADJECTIVE FRONT CASTLE)
+	(SYNONYM DOOR ;DOORS ;"from COURTYARD" ;KEYHOLE)
+	(FLAGS OPENBIT DOORBIT SEENBIT LOCKED)
+	(ACTION FRONT-DOOR-F)>
+
+<ROUTINE FRONT-DOOR-F ()
+ <COND (<VERB? WALK-TO>
+	<COND (<OUTSIDE? ,HERE>
+	       <PERFORM ,V?WALK-TO ,COURTYARD>
+	       <RTRUE>)
+	      (T
+	       <PERFORM ,V?WALK-TO ,FOYER>
+	       <RTRUE>)>)>>
+[
+<ROOM FOYER
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT DOORBIT WEARBIT)
+	(DESC "foyer")
+	(ADJECTIVE NEW FOYER DOUBLE BRONZE)
+	(SYNONYM FOYER ROOM DOOR ;DOORS ;"can't handle multiple doors")
+	(LINE 1)
+	(STATION FOYER)
+	(CHARACTER 2)
+	(GLOBAL FRONT-DOOR FOYER ;FOYER-DOOR CHAIR TABLE-RANDOM
+		WINDOW OIL-PAINTING)
+	(SOUTH	TO GREAT-HALL IF FOYER ;FOYER-DOOR IS OPEN)
+	(EAST	TO DRAWING-ROOM IF DRAWING-ROOM IS OPEN)
+	(IN	TO DRAWING-ROOM IF DRAWING-ROOM IS OPEN)
+	(OUT	TO COURTYARD IF FRONT-DOOR IS OPEN)
+	(NORTH	TO COURTYARD IF FRONT-DOOR IS OPEN)
+	(ACTION FOYER-F)>
+
+<ROUTINE FOYER-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-ENTER>
+	<COND (<NOT <FSET? ,FOYER ,TOUCHBIT>>
+	       <FSET ,FOYER ,TOUCHBIT>
+	       <TELL
+"As you enter the foyer, you're overwhelmed by the English
+past. Those barbarous times when
+Jack's ancestors had to shut themselves up in a fortified castle have
+softened into gracious country living. Yet " 'FRIEND " is clearly anxious." CR>
+	       ;<COND (<AND <IN? ,BUTLER ,FOYER>
+			    <NOT <FSET? ,BUTLER ,TOUCHBIT>>>
+		       <FSET ,BUTLER ,TOUCHBIT>
+		       <FCLEAR ,BUTLER ,NDESCBIT>
+		       <TELL
+CHE ,BUTLER " says, \"Welcome to " D ,CASTLE ", ">
+		       <COND (<TITLE-NAME> <TELL !\.>)>
+		       <TELL " I hope you had no
+trouble with the security gate. We've all been on edge since the 'ghost'
+appeared again last night. Of course, I put no stock in ghosts. I hope you
+don't either. Please follow me.\"" CR>
+		       <ESTABLISH-GOAL ,BUTLER ,GREAT-HALL>
+		       <RTRUE>)>
+	       <RTRUE>)>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL-LIKE-BROCHURE>
+	<DESCRIBE-CONTENTS ,COAT-RACK>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-FLASH>
+	<COND (<AND <NOT <FSET? ,LORD ,TOUCHBIT>>
+		    <IN? ,LORD ,FOYER>>
+	       <LORD-INTRO>)>
+	<RTRUE>)>>
+
+<ROUTINE DESCRIBE-CONTENTS (OBJ)
+	<COND (<FIND-FLAG-NOT .OBJ ,NDESCBIT>
+	       ;<FIRST? .OBJ>
+	       <TELL "On" THE .OBJ " you see">
+	       <PRINT-CONTENTS .OBJ>
+	       <TELL ".|">)>>
+
+<OBJECT UMBRELLA-STAND
+	(IN FOYER)
+	(DESC "umbrella stand")
+	(ADJECTIVE UMBRELLA)
+	(SYNONYM STAND ;CASE UMBRELLA)
+	(FLAGS CONTBIT OPENBIT NDESCBIT VOWELBIT SEENBIT)
+	(CAPACITY 99)
+	;(LDESC
+"In a dark corner is an umbrella stand." ;", containing various
+umbrellas.")
+	(ACTION UMBRELLA-STAND-F)>
+
+<ROUTINE UMBRELLA-STAND-F ()
+	<FCLEAR ,UMBRELLA-STAND ,NDESCBIT>
+	<COND (<VERB? OPEN CLOSE>
+	       <YOU-CANT>)
+	      (<VERB? TAKE>
+	       <COND (<NOUN-USED? ,W?UMBRELLA>
+		      <TELL "But it's not raining!" CR>)>)
+	      (<VERB? EXAMINE LOOK-INSIDE SEARCH SEARCH-FOR>
+	       <COND (<AND <IN? ,CANE ,UMBRELLA-STAND>
+			   <FSET? ,CANE ,NDESCBIT>>
+		      <FCLEAR ,CANE ,NDESCBIT>
+		      <FCLEAR ,CANE ,SECRETBIT>
+		      <FSET ,CANE ,SEENBIT>
+		      <FSET ,CANE ,TAKEBIT>
+		      <FSET ,CANE ,TOUCHBIT>
+		      ;<MOVE ,CANE ,WINNER>
+		      <THIS-IS-IT ,CANE>
+		      <TELL
+"Among the umbrellas there's a cane that looks odd." CR>
+		      <RTRUE>)
+		     (<VERB? EXAMINE>
+		      <TELL-LIKE-BROCHURE>
+		      ;<TELL
+CTHE ,UMBRELLA-STAND " is made from the foot of an elephant." CR>)
+		     (T
+		      <TELL-AS-WELL-AS ,UMBRELLA-STAND
+				       " an assortment of umbrellas">
+		      <RTRUE>)>)>>
+
+<OBJECT COAT-RACK
+	(IN FOYER)
+	(DESC "coat rack")
+	(ADJECTIVE COAT)
+	(SYNONYM RACK)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT SEENBIT)
+	(CAPACITY 999)>
+][
+<OBJECT SECRET-DRAWING-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-DRAWING-DOOR)>
+
+<ROOM DRAWING-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "drawing room")
+	(ADJECTIVE DRAWING ;ROOM)
+	(SYNONYM ROOM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 1)
+	(STATION GREAT-HALL)
+	(CHARACTER 2)
+	(GLOBAL GREAT-HALL DRAWING-ROOM SECRET-DRAWING-DOOR CHAIR
+		FIREPLACE WINDOW TABLE-RANDOM OIL-PAINTING)
+	(IN	TO GREAT-HALL IF GREAT-HALL ;DRAWING-DOOR IS OPEN)
+	(WEST	TO GREAT-HALL IF GREAT-HALL ;DRAWING-DOOR IS OPEN)
+	(OUT	TO FOYER IF DRAWING-ROOM IS OPEN)
+	(NW	TO FOYER IF DRAWING-ROOM IS OPEN)
+	(NORTH	TO FOYER IF DRAWING-ROOM IS OPEN)
+	(SOUTH	TO DRAWING-CLOSET IF SECRET-DRAWING-DOOR IS OPEN)
+	(ACTION DRAWING-ROOM-F)>
+
+<GLOBAL INTRODUCES " introduces ">
+
+<ROUTINE DRAWING-ROOM-F ("OPTIONAL" (RARG 0) "AUX" PER)
+ <COND (<EQUAL? .RARG ,M-BEG ;,M-EXIT>
+	<COND (<AND <VERB? OPEN CLOSE>
+		    <DOBJ? SECRET-DRAWING-DOOR>>
+	       <YOU-CANT <> ,PLAYER "in this room">
+	       <RTRUE>)
+	      (T <SECRET-CHECK .RARG>)>)
+       ;(<EQUAL? .RARG ,P?NORTH>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL-LIKE-BROCHURE ,SECRET-DRAWING-DOOR>)
+       (<EQUAL? .RARG ,M-FLASH>
+	<COND (<AND <IN? ,DEALER ,DRAWING-ROOM>
+		    <NOT <FSET? ,DEALER ,TOUCHBIT>>>
+	       <FSET ,DEALER ,TOUCHBIT>
+	       <COND (<AND <EQUAL? <LOC ,PAINTER> ,HERE ,PSEUDO-OBJECT>
+			   <=? <GETP ,DEALER ,P?LDESC> 2 ;"sipping sherry">>
+		      <TELL
+"A tall graceful older couple in evening clothes are chatting and "
+<GET ,LDESC-STRINGS 2> ;"sipping sherry" ".|">
+		      <SETG QCONTEXT ,PAINTER>
+		      <COND (<EQUAL? <LOC ,LORD> ,HERE ,PSEUDO-OBJECT>
+			     <SET PER ,LORD>)
+			    (<EQUAL? <LOC ,FRIEND> ,HERE ,PSEUDO-OBJECT>
+			     <THIS-IS-IT ,FRIEND>
+			     <SET PER ,FRIEND>)>
+		      <COND (<T? .PER>
+			     <TELL
+D .PER ,INTRODUCES "them as Montague Hyde and Vivien Pentreath.|
+Hyde smiles and bows stiffly. And Vivien murmurs in an attractively low
+voice, \"How do you do, ">
+			     <COND (<TITLE-NAME> <TELL !\.>)>
+			     <TELL "\"|
+\"Believe it or not, this young ">
+			     <COND (<ZERO? ,GENDER-KNOWN> <TELL "person">)
+				   (<FSET? ,PLAYER ,FEMALE> <TELL "lady">)
+				   (T <TELL "man">)>
+			     <TELL
+" is a famous American detective,\" " D .PER " tells them.|">
+			     <COND (<EQUAL? <LOC ,FRIEND>,HERE ,PSEUDO-OBJECT>
+				    <TELL
+"\"Not a police detective, of course,\" " 'FRIEND " adds as they both
+stiffen, \"but a
+solver of all sorts of mysteries in the States. We're hoping
+to find out who or what is haunting " 'CASTLE ".\"" CR>)>)>)>)>)>>
+
+<OBJECT LOVER-PIC
+	(IN DRAWING-ROOM)
+	(DESC "Deirdre's portrait")
+	(ADJECTIVE VIV\'S DEE\'S HER ART DEIRDRE DEE;"handles PICTURE OF DEE!")
+	(SYNONYM PORTRAIT PICTURE PAINTING WATERCOLOR)
+	;(GENERIC GENERIC-PAINTING)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION LOVER-PIC-F)>
+
+<ROUTINE LOVER-PIC-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It's a portrait by " 'PAINTER " of " 'LOVER ", a lovely young woman
+with flowing blonde hair, standing on a grassy slope, gazing out to sea.
+It's painted in pastel tones, which emphasize " 'LOVER "'s violet eyes.
+There's something ethereal and fairylike about her. Ironically, her
+silvery white, sleeveless gown is the very one she was wearing at the
+time of her accident." CR>)>>
+
+<OBJECT OIL-PAINTING
+	(IN LOCAL-GLOBALS ;DRAWING-ROOM)
+	(DESC "oil painting")
+	(ADJECTIVE OIL ART)
+	(SYNONYM PORTRAIT PICTURE PAINTING)
+	;(GENERIC GENERIC-PAINTING)
+	(FLAGS NDESCBIT VOWELBIT SEENBIT)
+	(ACTION BROCHURE-PSEUDO)>
+
+<OBJECT TAPESTRY
+	(IN DRAWING-ROOM)
+	(DESC "tapestry")
+	(SYNONYM TAPESTRY UNICORN MAIDEN ARM)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION TAPESTRY-F)>
+
+<ROUTINE TAPESTRY-F ()
+ <COND (<VERB? EXAMINE SEARCH>
+	<TELL-LIKE-BROCHURE>
+	;<TELL "The " 'TAPESTRY " depicts a unicorn and a maiden." CR>
+	<COND (<EQUAL? ,VARIATION ,PAINTER-C ;,FRIEND-C>
+	       <TELL
+"Someone has added a star in red thread on the maiden's ARM." CR>)>
+	<RTRUE>)
+       (<VERB? LOOK-BEHIND LOOK-UNDER>
+	<FSET ,SECRET-DRAWING-DOOR ,TOUCHBIT>
+	<THIS-IS-IT ,SECRET-DRAWING-DOOR>
+	<TELL
+"Hidden behind the " 'TAPESTRY " is" THE ,SECRET-DRAWING-DOOR "!" CR>)>>
+
+<OBJECT VICTORIA-CHAIR
+	(IN DRAWING-ROOM)
+	(DESC "armchair")
+	(ADJECTIVE ARM SATIN)
+	(SYNONYM CHAIR SEAT ARMCHAIR CUSHION)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT VOWELBIT)
+	(CAPACITY 99)>
+][
+<ROOM GREAT-HALL
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT DOORBIT WEARBIT)
+	(DESC "new great hall")
+	(ADJECTIVE GREAT NEW ;DRAWING)
+	(SYNONYM HALL DOOR ;DOORS ROOM)
+	(GENERIC GENERIC-GREAT-HALL)
+	(LINE 1)
+	(STATION GREAT-HALL)
+	(CHARACTER 2)
+	(GLOBAL GREAT-HALL FOYER CHAIR FIREPLACE
+		WINDOW TABLE-RANDOM STAIRS DRAWING-ROOM)
+	(THINGS <PSEUDO ( <> RADIO	RANDOM-PSEUDO)
+			( TRESYLLIAN ARMS	BROCHURE-PSEUDO)
+			( TRESYLLIAN CREST	BROCHURE-PSEUDO)
+			( WOOD CARVING	BROCHURE-PSEUDO)>)
+	(UP	TO GALLERY)
+	;(SOUTH	TO GALLERY)
+	(OUT	TO FOYER IF FOYER ;FOYER-DOOR IS OPEN)
+	(NORTH	TO FOYER IF FOYER ;FOYER-DOOR IS OPEN)
+	(IN	TO DRAWING-ROOM IF GREAT-HALL IS OPEN)
+	(EAST	TO DRAWING-ROOM IF GREAT-HALL ;DRAWING-DOOR IS OPEN)
+	;(SW	TO SITTING-ROOM IF SITTING-ROOM ;SITTING-DOOR IS OPEN)
+	(WEST	TO CORR-1)
+	(ACTION GREAT-HALL-F)>
+
+<ROUTINE GREAT-HALL-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL-LIKE-BROCHURE>
+	<GREAT-HALL-IS-FLOORED>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-FLASH>
+	<COND (<AND <IN? ,DEB ,GREAT-HALL>
+		    <NOT <FSET? ,DEB ,TOUCHBIT>>
+		    <ZERO? ,CLOCK-WAIT>>
+	       <FSET ,DEB ,TOUCHBIT>
+	       <FCLEAR ,DEB ,NDESCBIT>
+	       <COND (<AND <EQUAL? <LOC ,OFFICER> ,HERE ,PSEUDO-OBJECT>
+			   <=? <GETP ,DEB ,P?LDESC> 1 ;"dancing">>
+		      <TELL
+"A young couple are dancing to the faint sound of rock music from
+a portable radio on a table nearby.|">)>
+	       <TELL <GETP ,DEB ,P?TEXT> CR>
+	       <COMMON-DESC ,OFFICER>	;<PERFORM ,V?EXAMINE ,OFFICER>
+	       <TELL "|
+They stop dancing, turn off the radio, and greet you."
+;", with affected smiles and half-hidden curiosity.">
+	       <COND (<EQUAL? <LOC ,FRIEND> ,HERE ,PSEUDO-OBJECT>
+		      <TELL
+!\  'FRIEND ,INTRODUCES "them as the Honourable Iris Vane and Lt.
+Ian Fordyce of Her Majesty's Coldstream Guards.|">)>
+	       <PUTP ,DEB ,P?LDESC 0>
+	       <THIS-IS-IT ,DEB>
+	       <PUTP ,OFFICER ,P?LDESC 0>
+	       <THIS-IS-IT ,OFFICER>
+	       <QUEUE I-TOUR 0>
+	       <QUEUE I-REPLY ;1 ,CLOCKER-RUNNING>
+	       ;<ESTABLISH-GOAL ,DOCTOR ,HERE>
+	       <COND (<OR <ZERO? ,GENDER-KNOWN>
+			  <NOT <FSET? ,PLAYER ,FEMALE>>>
+		      <COND (<ZERO? ,GENDER-KNOWN>
+			     <TELL
+"\"What a lark, having a Yank sleuth in our midst">)
+			    (T <TELL
+"\"My dear! What a handsome addition to your guest list">)>
+		      <TELL "!\" chirps Iris. Her green eyes sparkle ">
+		      <COND (<ZERO? ,GENDER-KNOWN>
+			     <TELL "a trifle malic">)
+			    (T <TELL "flirtat">)>
+		      <TELL "iously as she offers you her delicate hand. ">
+		      <COND (<ZERO? ,GENDER-KNOWN>
+			     <SETG QCONTEXT ,OFFICER>
+			     ;<THIS-IS-IT ,OFFICER>
+			     <PUTP ,OFFICER ,P?LDESC 12 ;"listening to you">
+			     <SETG AWAITING-REPLY ,OFFICER-1-R>
+			     <TELL
+"\"I always find Americans so innocently fascinating! I'm sure you'll
+have loads to tell us about the baffling mysteries you've solved...\"|
+\"Belt up, Iris, there's a good girl,\" says Ian. Flashing
+you an apologetic smile, he comments, \"Spoiled rotten, I'm afraid.
+Personally I should like nothing better than to hear all about your
+mystery cases. But first tell us: " <GET ,QUESTIONS ,AWAITING-REPLY> "\"|">
+			     <RFATAL>)
+			    (T
+			     <SETG QCONTEXT ,DEB>
+			     ;<THIS-IS-IT ,DEB>
+			     <PUTP ,DEB ,P?LDESC 12 ;"listening to you">
+			     <SETG AWAITING-REPLY ,DEB-C>
+			     <TELL
+"\"Tell me, "TN" -- " <GET ,QUESTIONS ,AWAITING-REPLY> "\"|">
+			     <RFATAL>)>)
+		     (T
+		      <COND (<EQUAL? ,VARIATION ,FRIEND-C>
+			     <TELL
+'DEB " pulls Jack aside, whispers something to him, and giggles." CR>)>
+		      <SETG QCONTEXT ,OFFICER>
+		      <THIS-IS-IT ,OFFICER>
+		      <PUTP ,OFFICER ,P?LDESC 12 ;"listening to you">
+		      <SETG AWAITING-REPLY ,OFFICER-2-R>
+		      <TELL
+"\"I say!\" exclaims Ian, bringing your hand to his lips.
+His glance runs swiftly over your face and figure with an
+air of expert appraisal. \"" <GET ,QUESTIONS ,AWAITING-REPLY> "\"|">
+		      <RFATAL>)>)>)
+       ;(<EQUAL? .RARG ,M-EXIT>
+	<COND (<T? ,AWAITING-REPLY>
+	       <SETG CLOCK-WAIT T>
+	       <PLEASE-ANSWER>
+	       <RTRUE>)>)>>
+
+<ROUTINE GREAT-HALL-IS-FLOORED ()
+	<TELL
+"The hall is floored with black and white marble tiles. They've been worn
+smooth by footsteps over the centuries, especially near
+the archway to the " 'DRAWING-ROOM "." CR>>
+
+<OBJECT ARMOR
+	(IN GREAT-HALL)
+	(DESC "suit of armour")
+	;(ADJECTIVE ARMOR ARMOUR)
+	(SYNONYM SUIT ARMOR ARMOUR HELMET)
+	(FLAGS CONTBIT ;OPENBIT NDESCBIT SEENBIT)
+	(CAPACITY 99)
+	(ACTION ARMOR-F)>
+
+<ROUTINE ARMOR-F ()
+ <FCLEAR ,ARMOR ,NDESCBIT>
+ <COND (<VERB? EXAMINE>
+	<TELL
+"This is a full suit of steel body armour. It creaks as you walk past."
+;", from helmet down to sabbaton." CR>)
+       (<VERB? ;EXAMINE LOOK-INSIDE OPEN SEARCH SEARCH-FOR>
+	<COND (<AND <IN? ,CLUE-3 ,ARMOR>
+		    <FSET? ,CLUE-3 ,SECRETBIT>>
+	       <FSET ,ARMOR ,OPENBIT>
+	       <DISCOVER ,CLUE-3>)>)>>
+][
+<OBJECT SECRET-SITTING-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET ;TRAP PASSAGE SEAT)	;"TRAP is verb?"
+	(SYNONYM DOOR)
+	(FLAGS SECRETBIT DOORBIT LOCKED)
+	;(GENERIC GENERIC-SITTING-DOOR)
+	(ACTION SECRET-SITTING-DOOR-F)>
+
+<ROUTINE SECRET-SITTING-DOOR-F ()
+ <COND (<VERB? LOOK-INSIDE OPEN>
+	<COND (T ;<NOT <FSET? ,SECRET-SITTING-DOOR ,OPENBIT>>
+	       <TELL "It seems to be stuck closed." CR>)>)>>
+
+<ROOM SITTING-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT OPENBIT DOORBIT WEARBIT)
+	(DESC "sitting room")
+	(ADJECTIVE SITTING ;ROOM SLIDING)
+	(SYNONYM ROOM DOOR ;DOORS)
+	;(LDESC "[N to corridor]")
+	(LINE 1)
+	(STATION CORR-1)
+	(CHARACTER 2)
+	(GLOBAL SITTING-ROOM ;SITTING-DOOR SECRET-SITTING-DOOR CHAIR FIREPLACE
+		WINDOW)
+	;(WEST	TO SITTING-PASSAGE IF SECRET-SITTING-DOOR IS OPEN)
+	(DOWN	TO SITTING-PASSAGE IF SECRET-SITTING-DOOR IS OPEN)
+	(IN	TO SITTING-PASSAGE IF SECRET-SITTING-DOOR IS OPEN)
+	;(EAST	TO GREAT-HALL IF SITTING-ROOM ;SITTING-DOOR IS OPEN)
+	(OUT	TO CORR-1 IF SITTING-ROOM ;SITTING-DOOR IS OPEN)
+	(NORTH	TO CORR-1 IF SITTING-ROOM ;SITTING-DOOR IS OPEN)
+	(ACTION SITTING-ROOM-F)>
+
+<ROUTINE SITTING-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ;,M-EXIT>
+	<SECRET-CHECK .RARG>)
+       ;(<EQUAL? .RARG ,P?WEST ,P?IN ,P?DOWN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL-LIKE-BROCHURE ;,SECRET-SITTING-DOOR>
+	<TELL
+"It's a comfy place to read a book, play the piano, or just relax." CR>
+	<DESCRIBE-CONTENTS ,PIANO>
+	<DESCRIBE-CONTENTS ,WRITING-DESK>
+	<RTRUE>)>>
+
+<OBJECT WYVERN
+	(IN SITTING-ROOM)
+	(DESC "window seat" ;"wyvern")
+	(ADJECTIVE WINDOW OTHER)
+	(SYNONYM SEAT WYVERN GARGOYLE DRAGON)
+	(FLAGS NDESCBIT VEHBIT SURFACEBIT SEENBIT)
+	(ACTION WYVERN-F)>
+
+<ROUTINE WYVERN-F () ;("OPT" (ARG 0))
+ <COND ;(<T? .ARG> <RFALSE>)
+       ;(<VERB? EXAMINE>
+	<TELL
+"Like a tiny gargoyle, a carved wyvern projects over each end of
+the " 'WYVERN "." CR>)
+       (<VERB? LOOK-INSIDE OPEN>
+	<SECRET-SITTING-DOOR-F>)
+       (<VERB? BOARD CLIMB-ON SIT SIT-AT>
+	;<SETG PLAYER-SEATED ,WYVERN>
+	<MOVE ,PLAYER ,WYVERN>
+	<TELL "Okay, but it's not that comfortable." CR>)
+       (<VERB? MOVE MOVE-DIR MUNG PUSH RUB SLAP TURN>
+	<OPEN-SECRET "tug at" ,WYVERN ,SECRET-SITTING-DOOR>
+	<FCLEAR ,SECRET-SITTING-DOOR ,OPENBIT>
+	<TELL "Before you know it, ">
+	<COND (<IN? ,PLAYER ,WYVERN>
+	       ;<EQUAL? ,PLAYER-SEATED ,WYVERN>
+	       ;<SETG PLAYER-SEATED <>>
+	       <TELL "you're dumped into it.|">
+	       <GOTO ,SITTING-PASSAGE>)
+	      (T
+	       <TELL "it creaks upward to close again." CR>)>
+	<RTRUE>)>>
+
+<OBJECT WRITING-DESK
+	(IN SITTING-ROOM)
+	(DESC "writing desk")
+	(ADJECTIVE WRITING)
+	(SYNONYM DESK)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT SEENBIT)
+	(CAPACITY 999)
+	(ACTION WRITING-DESK-F)>
+
+<ROUTINE WRITING-DESK-F ()
+ <COND (<REMOTE-VERB?>
+	<RFALSE>)
+       (<IN? ,LETTER-MAID ,WRITING-DESK>
+	<FCLEAR ,LETTER-MAID ,NDESCBIT>
+	<RFALSE>)>>
+
+<OBJECT PIANO
+	(IN SITTING-ROOM)
+	(DESC "piano")
+	;(ADJECTIVE DINING)
+	(SYNONYM PIANO)
+	(FLAGS NDESCBIT SURFACEBIT OPENBIT SEENBIT SEARCHBIT VEHBIT)
+	(CAPACITY 999)
+	(ACTION PIANO-F)>
+
+<GLOBAL PIANO-PIECES
+	<PTABLE "solo" "duet" "trio" "quar" "quin" "sex" "sep" "oc">>
+
+<ROUTINE PIANO-F ("AUX" O (N 0))
+ <COND (<VERB? LISTEN>
+	<SET O <FIRST? <LOC ,PIANO>>>
+	<REPEAT ()
+	 <COND (<NOT .O>
+		<RFALSE>)
+	       (<AND <FSET? .O ,PERSONBIT>
+		     <==? <GETP .O ,P?LDESC> 22 ;"playing the piano">>
+		<TELL "The music sounds lovely." CR>
+		<RTRUE>)
+	       (T <SET O <NEXT? .O>>)>>)
+       (<VERB? PLAY>
+	<PUTP ,WINNER ,P?LDESC 22 ;"playing the piano">
+	<COND (<AND <T? ,PRSI>
+		    <FSET? ,PRSI ,PERSONBIT>>
+	       <PUTP ,PRSI ,P?LDESC 22 ;"playing the piano">)>
+	<TELL CHE ,WINNER sit " down">
+	<SET O <FIRST? ,SITTING-ROOM>>
+	<REPEAT ()
+		<COND (<NOT .O>
+		       <COND (<ZERO? .N>
+			      <TELL " and">)>
+		       <RETURN>)
+		      (<AND <EQUAL? <GETP .O ,P?LDESC> 22 ;"playing the piano">
+			    ;<FSET? .O ,PERSONBIT>
+			    <NOT <==? .O ,WINNER>>>
+		       <COND (<ZERO? .N> <TELL " with">)>
+		       <INC N>
+		       <TELL !\  D .O " and">)>
+		<SET O <NEXT? .O>>>
+	<COND (<ZERO? .N>
+	       <TELL V ,WINNER play>)
+	      (T
+	       <COND (<==? <GETP ,PLAYER ,P?LDESC> 22 ;"playing the piano">
+		      <TELL " you ">
+		      <COND (<1? .N> <TELL "both">)
+			    (T <TELL "all">)>)
+		     (T <TELL " they">)>
+	       <TELL " play">)>
+	<TELL " a lovely " <GET ,PIANO-PIECES .N>>
+	<COND (<G? .N 2> <TELL "tet">)>
+	<TELL "." CR>)
+       (<REMOTE-VERB?>
+	<RFALSE>)
+       (<IN? ,MUSIC ,PIANO>
+	<FCLEAR ,MUSIC ,NDESCBIT>
+	<RFALSE>)>>
+
+<OBJECT MUSIC
+	(IN PIANO)
+	(DESC "piece of music")
+	(SYNONYM PIECE ;SHEET MUSIC SONG)
+	(FLAGS TAKEBIT READBIT NDESCBIT)
+	(SIZE 2)
+	(ACTION MUSIC-F)>
+
+<ROUTINE MUSIC-F ()
+ <COND (<VERB? LISTEN PLAY>
+	<COND (<IN? ,PIANO ,HERE>
+	       <PIANO-F>)
+	      (T <NOT-HERE ,PIANO>)>
+	<RTRUE>)
+       (<REMOTE-VERB?>
+	<RFALSE>)>
+ <FCLEAR ,MUSIC ,NDESCBIT>
+ <COND (<VERB? EXAMINE LOOK-INSIDE OPEN READ>
+	<COND (<NOT-HOLDING? ,PRSO>
+	       <RTRUE>)>
+	<TELL "It's ">
+	<COND ;(<EQUAL? ,VARIATION ,LORD-C>
+	       <TELL
+"called \"Fave Heavy Metal Songs of H.R.H. Prince Charles.\"" CR>)
+	      (<EQUAL? ,VARIATION ,PAINTER-C ;,FRIEND-C>
+	       <TELL
+"Beethoven's \"Suite No. 9.\" Someone has drawn a star in red ink
+over the first four letters of the word \"SUITe.\"" CR>)
+	      (<EQUAL? ,VARIATION ,DOCTOR-C>
+	       <TELL
+"\"Funeral March of a Marionette.\"" CR>)
+	      (T ;<EQUAL? ,VARIATION ,FRIEND-C>
+	       <TELL
+"theme music from the American radio show, \"A Prairie Home
+Companion.\"" CR>)>)
+       (T <RFALSE>)>>
+]
+<ROOM CORR-1
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT WEARBIT)
+	(DESC "ground-floor corridor")
+	(ADJECTIVE GROUND)
+	(SYNONYM CORRIDOR ROOM)
+	(LINE 1)
+	(STATION CORR-1)
+	(CHARACTER 2)
+	(CORRIDOR 1)
+	(GLOBAL SITTING-ROOM DINING-ROOM)
+	(EAST	TO GREAT-HALL)
+	(OUT	TO GREAT-HALL)
+	(WEST	TO JUNCTION)
+	(NORTH	TO DINING-ROOM IF DINING-ROOM IS OPEN)
+	(SOUTH	TO SITTING-ROOM IF SITTING-ROOM IS OPEN)
+	(ACTION CORR-1-F)>
+
+<ROUTINE CORR-1-F ("OPTIONAL" (ARG 0))
+ <COND (<==? .ARG ,M-LOOK>
+	<TELL
+"The " 'CORR-1 " goes between the two great halls to east and west.
+Behind sliding doors, the " 'DINING-ROOM " is north and the " 'SITTING-ROOM "
+is south." CR>)>>
+
+[
+<ROOM DINING-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT DOORBIT WEARBIT)
+	(DESC "dining room")
+	(ADJECTIVE DINING SLIDING)
+	(SYNONYM ROOM DOOR ;DOORS)
+	(GLOBAL ;CHAIR DINING-ROOM FIREPLACE WINDOW OIL-PAINTING)
+	(THINGS <PSEUDO ( PORCEL VASE	BROCHURE-PSEUDO)
+			( PORCEL VASES	BROCHURE-PSEUDO)
+			( <> SHELF	BROCHURE-PSEUDO)
+			( <> SHELVES	BROCHURE-PSEUDO)>)
+	(LINE 1)
+	(STATION DINING-ROOM)
+	(CHARACTER 2)
+	(IN	TO BACKSTAIRS)
+	(WEST	TO BACKSTAIRS)
+	(OUT	TO CORR-1 IF DINING-ROOM IS OPEN)
+	(SOUTH	TO CORR-1 IF DINING-ROOM IS OPEN)
+	(ACTION DINING-ROOM-F)>
+
+<GLOBAL DINING-DESC
+"This room is impeccably furnished, but it's too formal for relaxing.|">
+
+<ROUTINE DINING-ROOM-F ("OPTIONAL" (RARG 0) "AUX" N)
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL ,DINING-DESC>
+	<RTRUE>)
+       (<==? .RARG ,M-ENTER>
+	<COND (<QUEUED? ,I-DINNER-SIT>
+	       ;<COND (<NOT <FSET? ,DINING-ROOM ,TOUCHBIT>>
+		      <FSET ,DINING-ROOM ,TOUCHBIT>
+		      <TELL ,DINING-DESC>)>
+	       <COND (<IN? ,LORD ,DINING-ROOM>
+		      <QUEUE I-DINNER-SIT 1>
+		      <RFALSE>)
+		     (T
+		      <SET N <FIND-FLAG-HERE ,PERSONBIT ,PLAYER ,BUTLER>>
+		      <COND (<ZERO? .N> <RFALSE>)>
+		      <TELL CHE .N" says, \"Let's wait for his lordship.\""CR>
+		      <RTRUE>)>)
+	      (<AND ;<FSET? ,DINNER ,TAKEBIT>
+		    <T? ,MISSED-DINNER>
+		    ;<QUEUED? ,I-LIONEL-SPEAKS>
+		    <IN? ,FRIEND ,HERE>>
+	       <SETG MISSED-DINNER <>>
+	       <COND (<NOT <FSET? ,DINING-ROOM ,TOUCHBIT>>
+		      <FSET ,DINING-ROOM ,TOUCHBIT>
+		      <TELL ,DINING-DESC>)>
+	       <THIS-IS-IT ,FRIEND>
+	       <SETG QCONTEXT ,FRIEND>
+	       ;<MAKE-ALL-PEOPLE 10 ;"eating with relish" ,DINING-ROOM>
+			;"in I-DINNER-SIT"
+	       <TELL
+'FRIEND " says, \"We didn't know when you would come to dinner, so we
+started without you.">
+	       <COND (<==? ,LIONEL-SPEAKS-COUNTER ,INIT-LIONEL-SPEAKS-COUNTER>
+		      <TELL "\"" CR>)
+		     (T
+		      <QUEUE I-DINNER-TALK 1>
+		      <TELL " And ">
+		      <COND (<ZERO? ,LIONEL-SPEAKS-COUNTER>
+			     <TELL "then Lionel spoke">)
+			    (T
+			     <TELL "now Lionel is speaking">)>
+		      <TELL " on tape!\"" CR>)>)>)
+       (<==? .RARG ,M-EXIT>
+	<COND (<AND <QUEUED? ,I-LIONEL-SPEAKS>
+		    ;<NOT <==? ,LIONEL-SPEAKS-COUNTER
+			      ,INIT-LIONEL-SPEAKS-COUNTER>>
+		    ;<T? ,LIONEL-SPEAKS-COUNTER>>
+	       <TELL 'LORD " politely but firmly vetoes any such move. \"">
+	       <COND (<==? ,LIONEL-SPEAKS-COUNTER ,INIT-LIONEL-SPEAKS-COUNTER>
+		      <TELL
+"It's annoying enough to have the servants abscond at dinner time,\"
+he points out drily. " ,JACK-THINKS-GLADYS
+" Cigars and port will be time enough for that sort of aggro!\"" CR>)
+		     (T <TELL "Let's hear what old Lionel has to say.\"" CR>)>
+	       <RTRUE>)>)>>
+
+<ROUTINE I-DINNER-TALK ("OPTIONAL" (GARG <>))
+	%<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+			    <TELL "[I-DINNER-TALK:">
+			    <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+	<FSET ,DINNER ,TAKEBIT>
+	<FCLEAR ,DINNER ,TRYTAKEBIT>
+	<MOVE ,DINNER-2 ,TABLE-DINING ;,GLOBAL-OBJECTS>
+	;<MOVE ,DINNER-3 ,TABLE-DINING ;,GLOBAL-OBJECTS>
+	<DINNER-TALK <QUEUED? ,I-LIONEL-SPEAKS>>
+	<RFATAL>>
+
+<GLOBAL WRONG-OUTFIT:NUMBER 0>
+<GLOBAL WASHED:FLAG 0>
+
+<ROUTINE DINNER-TALK (N "AUX" X)
+	;<SET X <GET ,P-ITBL ,P-VERBN>>
+	;<COND (<T? .X>		;"for VERB-PRINT"
+	       <PUT .X 0 ,W?EAT>)>
+	<MOVE ,PLAYER ,CHAIR-DINING>
+	<TELL "Several people glance at your outfit with ">
+	<COND (<NOT <EQUAL? ,NOW-WEARING ,DINNER-OUTFIT>>
+	       <SETG WRONG-OUTFIT 2>
+	       <TELL "dis">)
+	      (T <SETG WRONG-OUTFIT 1>)>
+	<TELL "approval.">
+	<COND (<ZERO? ,WASHED>
+	       <TELL " They whisper about how dirty you still look.">)>
+	<CRLF>
+	<COND (<==? ,LIONEL-SPEAKS-COUNTER
+		    ,INIT-LIONEL-SPEAKS-COUNTER>
+	       <TELL
+'LORD " announces his engagement to " 'FRIEND ", prompting various reactions
+from the guests.|
+The dinner is excellent, with a flow of subdued conversation...|">)>
+	<PUTP ,LORD ,P?LDESC 0>
+	<SETG KEEP-WAITING T>
+	<V-WAIT .N <> T>>
+
+<ROUTINE POPULATION (RM "OPTIONAL" (NOT1 <>) (NOT2 <>) "AUX" (CNT 0) OBJ)
+ <SET OBJ <FIRST? .RM>>
+ <COND (<ZERO? .OBJ> <RFALSE>)>
+ <REPEAT ()
+	 <COND (<AND <FSET? .OBJ ,PERSONBIT>
+		     <NOT <FSET? .OBJ ,INVISIBLE>>
+		     <OR <ZERO? .NOT1> <NOT <EQUAL? .OBJ .NOT1>>>
+		     <OR <ZERO? .NOT2> <NOT <EQUAL? .OBJ .NOT2>>>>
+		<SET CNT <+ .CNT 1>>)
+	       (<FSET? .OBJ ,CONTBIT>
+		<SET CNT <+ .CNT <POPULATION .OBJ .NOT1 .NOT2>>>)>
+	 <SET OBJ <NEXT? .OBJ>>
+	 <COND (<ZERO? .OBJ> <RETURN .CNT>)>>>
+
+<OBJECT BUST
+	(IN DINING-ROOM)
+	(DESC "bronze bust")
+	(DESCFCN BUST-D)
+	(ADJECTIVE BRONZE LI\'S LIONEL ;"handles BUST OF LIONEL!")
+	(SYNONYM BUST STATUE SCULPT LIONEL)
+	(FLAGS CONTBIT ;OPENBIT SEARCHBIT TRYTAKEBIT)
+	(CAPACITY 5)
+	(SIZE 13)
+	(ACTION BUST-F)>
+
+<ROUTINE BUST-D (ARG)
+	<THIS-IS-IT ,COUSIN>
+	<TELL
+"A brooding bust of " 'COUSIN " (sculpted by " 'PAINTER ") is
+displayed in a corner." CR>>
+
+<ROUTINE BUST-F ()
+ <COND (<OR <VERB? EXAMINE LOOK-UNDER MOVE MOVE-DIR OPEN PUSH ;TURN>
+	    <AND <VERB? TAKE>
+		 <EQUAL? ,P-PRSA-WORD ,W?RAISE ,W?LIFT>>>
+	<COND (<AND <VERB? EXAMINE>
+		    <==? ,LIONEL-SPEAKS-COUNTER ,INIT-LIONEL-SPEAKS-COUNTER>>
+	       <TELL-LIKE-BROCHURE>
+	       <RTRUE>)>
+	<TELL
+"The " 'BUST " is hollow. When you lift it from its shelf, you discover"
+THE ,RECORDER " underneath, with an elaborate clockwork timer.">
+	<FSET ,BUST ,OPENBIT>	;"in I-LIONEL-SPEAKS too"
+	<FSET ,RECORDER ,SEENBIT>
+	<COND (<NOT <==? ,LIONEL-SPEAKS-COUNTER ,INIT-LIONEL-SPEAKS-COUNTER>>
+	       <TELL
+" Evidently the timer was set to play the tape during the usual dinner
+hour on this date.">)>
+	<CRLF>)
+       (<VERB? LISTEN PLAY>
+	<COND (<AND <QUEUED? ,I-LIONEL-SPEAKS>
+		    ;<NOT <==? ,LIONEL-SPEAKS-COUNTER
+			      ,INIT-LIONEL-SPEAKS-COUNTER>>
+		    ;<T? ,LIONEL-SPEAKS-COUNTER>>
+	       <SETG LIONEL-FORCED T>		;"to suppress CR"
+	       <QUEUE I-LIONEL-SPEAKS 1>	;"will respond"
+	       <RTRUE>)
+	      (T <TELL ,TIMER-PREVENTS-IT> <RTRUE>)>)>>
+
+<GLOBAL TIMER-PREVENTS-IT "The clockwork timer prevents it.|">
+
+<OBJECT RECORDER
+	(IN BUST)
+	(DESC "small tape recorder")
+	(ADJECTIVE LI\'S HIS TAPE SMALL CLOCKWORK)
+	(SYNONYM RECORD TAPE ;LIONEL TIMER)
+	(GENERIC GENERIC-RECORDER)
+	;(CAPACITY 2)
+	;(SIZE 5)
+	(ACTION RECORDER-F)>
+
+<ROUTINE RECORDER-F ()
+ <COND (<VERB? EXAMINE LISTEN PLAY>
+	<BUST-F>)
+       (<VERB? LAMP-ON LAMP-OFF>
+	<TELL ,TIMER-PREVENTS-IT>
+	<RTRUE>)
+       (<VERB? TAKE>
+	<TELL "It's fastened tightly to the shelf." CR>)
+       (<SPEAKING-VERB? ,RECORDER>
+	<WONT-HELP-TO-TALK-TO ,RECORDER>)>>
+
+<OBJECT TABLE-DINING
+	(IN DINING-ROOM)
+	(DESC "dining table")
+	(ADJECTIVE DINING)
+	(SYNONYM TABLE)
+	(FLAGS SURFACEBIT OPENBIT SEENBIT SEARCHBIT ;NDESCBIT)
+	(CAPACITY 999)
+	(ACTION TABLE-DINING-F)>
+
+<ROUTINE TABLE-DINING-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE LOOK-ON>
+	<COND (<FSET? ,DINNER ,TAKEBIT>
+	       <TELL-AS-WELL-AS ,TABLE-DINING " the remains of dinner">
+	       <RTRUE>)>)
+       (<VERB? SIT-AT>
+	<PERFORM ,V?SIT ,CHAIR-DINING>
+	<RTRUE>)
+       (<VERB? SIT>
+	<HAR-HAR>
+	<RTRUE>)>>
+
+<OBJECT CHAIR-DINING
+	(IN DINING-ROOM)
+	(DESC "chair")
+	(ADJECTIVE DINING MY)
+	(SYNONYM CHAIR SEAT CHAIRS BENCH)
+	(FLAGS SURFACEBIT OPENBIT SEARCHBIT VEHBIT NDESCBIT)
+	(CAPACITY 99)
+	;(ACTION CHAIR-DINING-F)>
+
+<OBJECT SIDEBOARD
+	(IN DINING-ROOM)
+	(DESC "sideboard")
+	(ADJECTIVE DINING SIDE)
+	(SYNONYM SIDEBOARD BOARD)
+	(FLAGS SURFACEBIT OPENBIT SEENBIT SEARCHBIT)
+	(CAPACITY 99)>
+
+<OBJECT PUNCHBOWL
+	(IN SIDEBOARD)
+	(DESC "punchbowl")
+	(ADJECTIVE PUNCH)
+	(SYNONYM PUNCHBOWL BOWL)
+	(FLAGS CONTBIT OPENBIT SEARCHBIT TRYTAKEBIT)
+	(CAPACITY 9)
+	(SIZE 10)
+	(ACTION PUNCHBOWL-F)>
+
+<ROUTINE PUNCHBOWL-F ("AUX" OBJ)
+ <COND (<VERB? OPEN CLOSE>
+	<HAR-HAR>)
+       (<VERB? PUT-UNDER>
+	<COND (<IOBJ? PUNCHBOWL>
+	       <FSET ,PRSO ,NDESCBIT>
+	       <MOVE ,PRSO ,SIDEBOARD>
+	       <TELL "Okay." CR>)>)
+       (<AND <VERB? LOOK-UNDER MOVE TAKE>
+	     <DOBJ? PUNCHBOWL>>
+	<COND ;(<AND <IN? ,CLUE-1 ,SIDEBOARD>
+		    <FSET? ,CLUE-1 ,NDESCBIT>>
+	       <FSET ,CLUE-1 ,TAKEBIT>
+	       ;<FSET ,CLUE-1 ,SEENBIT>
+	       <FCLEAR ,CLUE-1 ,NDESCBIT>
+	       <THIS-IS-IT ,CLUE-1>
+	       <TELL "You see" THE ,CLUE-1 ", lying face down." CR>)
+	      (<SET OBJ <FIND-FLAG ,SIDEBOARD ,NDESCBIT>>
+	       <FSET .OBJ ,TAKEBIT>
+	       <FSET .OBJ ,TOUCHBIT>
+	       <FCLEAR .OBJ ,NDESCBIT>
+	       <MOVE .OBJ ,PLAYER>
+	       <THIS-IS-IT .OBJ>
+	       <TELL "You find" THE .OBJ " underneath, so you take it." CR>)
+	      (T
+	       ;<WONT-HELP>
+	       <TELL "There's nothing under it." CR>)>)>>
+
+<OBJECT DINNER
+	(IN KITCHEN ;SIDEBOARD)
+	(DESC "your dinner")
+	(ADJECTIVE COVERED MY)
+	(SYNONYM DINNER FOOD ;ARRAY DISHES PLATE ;FISH)
+	(GENERIC GENERIC-DINNER)
+	(FLAGS NARTICLEBIT TRYTAKEBIT)
+	(SIZE 10)
+	(DESCFCN DINNER-D)
+	(ACTION DINNER-F)>
+
+<ROUTINE DINNER-D (ARG "AUX" (L <LOC ,DINNER>))
+ <COND (<EQUAL? .L ,KITCHEN ,SIDEBOARD>
+	<TELL "An appetizing aroma wafts from an array of covered dishes">
+	<COND (<==? .L ,KITCHEN>
+	       <TELL " sitting about">)
+	      (<==? .L ,SIDEBOARD>
+	       <TELL " on the " 'SIDEBOARD>)>
+	<TELL "." CR>)>>
+
+<ROUTINE DINNER-F ("AUX" I (L <LOC ,DINNER>))
+ <COND (<VERB? DRESS>
+	<COND (<EQUAL? ,HERE <META-LOC ,DINNER-OUTFIT>>
+	       <PERFORM ,V?WEAR ,DINNER-OUTFIT>
+	       <RTRUE>)
+	      (T
+	       <NOT-HERE ,DINNER-OUTFIT>
+	       <RTRUE>)>)
+       (<VERB? EAT>
+	<COND ;(<FSET? ,DINNER ,TRYTAKEBIT>	;<QUEUED? ,I-DINNER-SIT>
+	       <TELL
+"You look around and notice that no one else is eating yet." CR>)
+	      (T <TELL "You take a bite and find it delicious." CR>)>)
+       (<VERB? EXAMINE ;SMELL>
+	<TELL
+"A lovely assortment of fish, fowl, greens, and sweets fills the ">
+	<COND (<EQUAL? .L ,KITCHEN ,SIDEBOARD>
+	       <TELL "dishes." CR>)
+	      (T <TELL "plate." CR>)>)
+       (<VERB? TAKE LAMP-ON ;"start">
+	<COND (<FSET? ,DINNER ,TRYTAKEBIT>
+	       <COND (<==? .L ,KITCHEN>
+		      <TELL "It's not ready yet." CR>)
+		     (<==? .L ,SIDEBOARD>
+		      <SET L <I-DINNER-SIT>>
+		      <COND (<ZERO? .L>
+			     <TELL
+"You look around and notice that no one else is eating yet."
+;"Not all the guests are ready yet." CR>
+			     <RTRUE>)
+			    (T <RETURN .L>)>)>)
+	      ;(<==? <ITAKE> T>
+	       <COND (<EQUAL? ,HERE ,DINING-ROOM>
+		      <MOVE ,DINNER ,TABLE-DINING>
+		      <FSET ,DINNER ,NDESCBIT>
+		      <TELL
+CHE ,WINNER put " it on the " 'TABLE-DINING "." CR>)>)>)
+       (<VERB? WAIT-FOR>
+	<COND (<SET I <QUEUED? ,I-DINNER>>
+	       <V-WAIT <- ,DINNER-TIME ,PRESENT-TIME> ;.I <> T>
+	       <RTRUE>)>)
+       (<VERB? WALK-TO>
+	<COND (<EQUAL? ,HERE ,DINING-ROOM>
+	       <PERFORM ,PRSA <META-LOC ,DINNER>>)
+	      (T <PERFORM ,PRSA ,DINING-ROOM>)>
+	<RTRUE>)>>
+
+<OBJECT DINNER-2
+	;(IN GLOBAL-OBJECTS)
+	(DESC "other dinner")
+	(ADJECTIVE OTHER JACK\'S HYDE\'S IAN\'S DOC\'S TAM\'S VIV\'S IRIS\'S)
+	(SYNONYM DINNER)
+	(FLAGS VOWELBIT NDESCBIT)
+	(GENERIC GENERIC-DINNER)>
+
+;<OBJECT DINNER-3
+	;(IN GLOBAL-OBJECTS)
+	(DESC "her dinner")
+	(ADJECTIVE OTHER HER TAM\'S VIV\'S IRIS\'S)
+	(SYNONYM DINNER)
+	(FLAGS NARTICLEBIT NDESCBIT)
+	(GENERIC GENERIC-DINNER)>
+]
+<OBJECT SECRET-DINING-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET PASSAGE)
+	(SYNONYM DOOR)
+	(FLAGS SECRETBIT DOORBIT)>
+
+<ROOM BACKSTAIRS
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT WEARBIT NARTICLEBIT)
+	(DESC "backstairs")
+	;(ADJECTIVE BACKST BACK)
+	(SYNONYM BACKST) ;( STAIR STAIRS AREA)
+	;(GENERIC GENERIC-STAIRS)
+	(GLOBAL SECRET-DINING-DOOR STAIRS)
+	(LINE 1)
+	(STATION BACKSTAIRS)
+	(CHARACTER 2)
+	(WEST	TO DINING-PASSAGE IF SECRET-DINING-DOOR IS OPEN)
+	(IN	TO DINING-PASSAGE IF SECRET-DINING-DOOR IS OPEN)
+	(OUT	TO DINING-ROOM)
+	(EAST	TO DINING-ROOM)
+	(DOWN	TO KITCHEN)
+	(ACTION BACKSTAIRS-F)>
+
+<ROUTINE BACKSTAIRS-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ;,M-EXIT>
+	<SECRET-CHECK .RARG>)
+       ;(<EQUAL? .RARG ,P?WEST ,P?IN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"You can go east to the " 'DINING-ROOM " or down narrow stairs
+to the " 'KITCHEN ".">
+	<OPEN-DOOR? ,SECRET-DINING-DOOR>
+	<CRLF>)>>
+[
+<ROOM KITCHEN
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT WEARBIT)
+	(DESC "kitchen")
+	(SYNONYM KITCHEN)
+	(GLOBAL CHAIR BELL ;SERVANTS-QUARTERS STAIRS)
+	(THINGS <PSEUDO ( KITCHEN SINK	RANDOM-PSEUDO)>)
+	(LINE 1)
+	(STATION KITCHEN)
+	(CHARACTER 1)
+	(WEST	TO BASEMENT)
+	(IN	TO BASEMENT)
+	(EAST	"You peek in and see nothing interesting in there.")
+	;(EAST	TO SERVANTS-QUARTERS IF SERVANTS-QUARTERS IS OPEN)
+	(UP	TO BACKSTAIRS)
+	(OUT	TO BACKSTAIRS)
+	(ACTION KITCHEN-F)>
+
+<ROUTINE KITCHEN-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<TELL
+"The " 'KITCHEN " is large yet cramped. From here, you can go west to
+the tower " 'BASEMENT ", east to the servants' quarters, or up the
+stairs." CR>)>>
+
+<OBJECT LAMP
+	(IN KITCHEN)
+	(ADJECTIVE BRASS ;BATTER)
+	(SYNONYM LAMP LANTERN ;LIGHT)
+	(DESC "brass lantern")
+	(FLAGS TAKEBIT LIGHTBIT ;SEENBIT)
+	(ACTION LANTERN)
+	;(FDESC "A dusty brass lantern is sitting in a corner.")
+	;(LDESC "There is a brass lantern (battery-powered) here.")
+	(SIZE 15)>
+
+<ROUTINE LANTERN ()
+	 <COND (<VERB? AIM>
+		<TELL
+CTHE ,LAMP " shines in all " 'INTDIR "s, so you can't point it." CR>)
+	       ;(<VERB? THROW-AT ;THROW-OFF THROW-THROUGH>
+		<TELL
+"The lamp has smashed into the floor, and the light has gone out.|">
+		;<DISABLE <INT I-LANTERN>>
+		<REMOVE-CAREFULLY ,LAMP>
+		<MOVE ,BROKEN-LAMP ,HERE>
+		<RTRUE>)
+	       (<VERB? USE>
+		<PERFORM ,V?LAMP-ON ,PRSO>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL "The lamp ">
+		<COND (<FSET? ,LAMP ,ONBIT>
+		       <TELL "is on.">)
+		      (T
+		       <TELL "is turned off.">)>
+		<CRLF>)>>
+]
+;<ROOM SERVANTS-QUARTERS
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT WEARBIT DOORBIT LOCKED)
+	(DESC ;"servants'" "butler's quarters")
+	(ADJECTIVE B\'S HIS ;"BUTLER BOLITHO ;SERVANT")
+	(SYNONYM QUARTERS ROOM BEDROOM DOOR ;KEYHOLE)>
+
+;<	(LDESC
+"The only exit is west to the kitchen." ;"[W/OUT to kitchen]")
+	(GLOBAL CHAIR)
+	(LINE 1)
+	(STATION KITCHEN)
+	(CHARACTER 1)
+	(WEST	TO KITCHEN)
+	(OUT	TO KITCHEN)>
+
+[
+<ROOM GALLERY
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT WEARBIT)
+	(DESC "gallery")
+	(ADJECTIVE GALLERY)
+	(SYNONYM GALLERY ROOM)
+	(LINE 2)
+	(STATION GALLERY)
+	(CHARACTER 3)
+	(GLOBAL	YOUR-ROOM VIVIEN-ROOM FIREPLACE WINDOW
+		PEEPHOLE STAIRS)
+	(OUT	TO GREAT-HALL ;STAIRS-NEW)
+	(DOWN	TO GREAT-HALL ;STAIRS-NEW)
+	;(SOUTH	TO GREAT-HALL)
+	(EAST	TO YOUR-ROOM IF YOUR-ROOM ;YOUR-DOOR IS OPEN)
+	(IN	TO YOUR-ROOM IF YOUR-ROOM ;YOUR-DOOR IS OPEN)
+	(NE	TO EAST-HALL)
+	(WEST	TO VIVIEN-ROOM IF VIVIEN-ROOM ;VIVIEN-DOOR IS OPEN)
+	(NW	TO WEST-HALL)
+	(ACTION GALLERY-F)>
+
+<ROUTINE GALLERY-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-BEG>
+	<COND (<AND <VERB? EXAMINE LOOK-BEHIND LOOK-UNDER SEARCH SEARCH-FOR>
+		    <DOBJ? PAINTING-GALLERY WALL>>
+	       <FCLEAR ,PEEPHOLE ,SECRETBIT>
+	       <TELL
+"You discover" HIM ,PEEPHOLE " in the eye of one ancestor." CR>)>)
+       (<==? .RARG ,M-LOOK>
+	<TELL
+"The " 'GALLERY " spans the top of the double stairways. You can go east to
+" 'YOUR-ROOM " or west to " 'VIVIEN-ROOM ". Hallways lead to the northeast and
+northwest.
+On the wall is a " D ,PAINTING-GALLERY " of " 'LORD "'s ancestors." CR>)>>
+
+<OBJECT PAINTING-GALLERY
+	(IN GALLERY)
+	(DESC "series of oil paintings")
+	(ADJECTIVE OIL ART DOUBLE)
+	(SYNONYM PORTRAIT PICTURE PAINTING SERIES)
+	;(GENERIC GENERIC-PAINTING)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION PICTURE-F)>
+
+<ROUTINE PICTURE-F ("OPTIONAL" (RARG 0))
+ <COND (<VERB? EXAMINE>
+	<TELL-LIKE-BROCHURE>)>>
+][
+<OBJECT BATHROOM
+	(IN LOCAL-GLOBALS)
+	(DESC "bathroom")
+	(ADJECTIVE ;BATH TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S)
+	(SYNONYM ;ROOM BATHROOM)
+	;(GENERIC GENERIC-BEDROOM)
+	(FLAGS SEENBIT)
+	(ACTION BATHROOM-F)>
+
+<ROUTINE BATHROOM-F ()
+ <COND (<VERB? BOARD EXAMINE LOOK-INSIDE THROUGH WALK-TO>
+	<COND (<EQUAL? ,HERE ,YOUR-ROOM>
+	       <PERFORM ,PRSA ,YOUR-BATHROOM>
+	       <RTRUE>)
+	      (T <RANDOM-PSEUDO>)>)>>
+
+<OBJECT FIREPLACE
+	(IN LOCAL-GLOBALS)
+	(DESC "fireplace")
+	(ADJECTIVE FIRE ;"TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S")
+	(SYNONYM PLACE FIREPLACE CHIMNEY FENDER)
+	(FLAGS SEENBIT)
+	(ACTION FIREPLACE-F)>
+
+<ROUTINE FIREPLACE-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE LOOK-UP>
+	<COND (<EQUAL? ,HERE ,IAN-ROOM>
+	       <TELL-IAN-FIREPLACE>)
+	      (T <TELL "It's empty, except for soot on the walls.">)>
+	<CRLF>)
+       (<VERB? LAMP-ON>	;"LIGHT FIRE"
+	<WONT-HELP>)
+       (<VERB? PUT-IN>
+	<TELL
+"When you think how sooty" THE ,PRSO " would get, you change your mind." CR>)>>
+
+<ROUTINE BED-PSEUDO ()
+ <COND (<VERB? BOARD CLIMB-ON LIE SIT THROUGH>
+	<WONT-HELP>)>>
+
+<OBJECT NIGHTSTAND-LG
+	(IN LOCAL-GLOBALS)
+	(DESC "night table")
+	(ADJECTIVE NIGHT ;MARBLE
+		TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S)
+	(SYNONYM ;NIGHTT TABLE ;STAND CONSOLE TALLBOY COMMODE)
+	(FLAGS SEENBIT)
+	(ACTION NIGHTSTAND-LG-F)>
+
+<ROUTINE NIGHTSTAND-LG-F ()
+ <COND (<AND <EQUAL? ,HERE ,JACK-ROOM>
+	     <VERB? EXAMINE LOOK-INSIDE OPEN SEARCH SEARCH-FOR>>
+	<COND (<IN? ,NECKLACE-OF-D ,JACK-ROOM>
+	       <DISCOVER ,NECKLACE-OF-D>)
+	      (T <TELL ,NOTHING-NEW> <RTRUE>)>)
+       (<AND <EQUAL? ,HERE ,JACK-ROOM>
+	     <VERB? PUT-IN>
+	     <DOBJ? NECKLACE-OF-D>>
+	<MOVE ,NECKLACE-OF-D ,JACK-ROOM>
+	<FSET ,NECKLACE-OF-D ,NDESCBIT>
+	<OKAY>)
+       (T <RANDOM-PSEUDO>)>>
+
+<OBJECT DRESSING-TABLE-LG
+	(IN LOCAL-GLOBALS)
+	(DESC "dressing table")
+	(ADJECTIVE DRESSING ROLL-TOP WRITING)
+	(SYNONYM TABLE BENCH CHEST DRESSE ;DRAWER)
+	(FLAGS SEENBIT CONTBIT SURFACEBIT OPENBIT)
+	(ACTION DRESSING-TABLE-LG-F)>
+
+<ROUTINE DRESSING-TABLE-LG-F ()
+ <COND (<VERB? OPEN CLOSE SEARCH SEARCH-FOR>
+	<NOTHING-SPECIAL>)
+       (<VERB? EXAMINE LOOK-INSIDE LOOK-ON>
+	<COND (<EQUAL? ,HERE ,WENDISH-ROOM>
+	       <WENDISH-STUFF-D>
+	       <RTRUE>)
+	      (<EQUAL? ,HERE ,TAMARA-ROOM>
+	       <DRESSING-TABLE-TAM>
+	       <CRLF>)
+	      (T <NOTHING-SPECIAL>)>)>>
+
+<OBJECT WARDROBE-LG
+	(IN LOCAL-GLOBALS)
+	(DESC "wardrobe")
+	(ADJECTIVE CLOTHES)
+	(SYNONYM WARDROBE PRESS)
+	(FLAGS SEENBIT)
+	(ACTION RANDOM-PSEUDO)>
+
+<OBJECT MIRROR-GLOBAL
+	(IN GLOBAL-OBJECTS)
+	(DESC "mirror")
+	(ADJECTIVE LOOKING CHEVAL)
+	(SYNONYM MIRROR GLASS)
+	(FLAGS SEENBIT CONTBIT)
+	(ACTION MIRROR-GLOBAL-F)>
+
+<ROUTINE MIRROR-GLOBAL-F ()
+ <COND (<REMOTE-VERB?>
+	<RFALSE>)
+       (<NOT <FSET? ,HERE ,WORNBIT>>
+	<NOT-HERE ,MIRROR-GLOBAL>)
+       (<VERB? EXAMINE FIX LOOK-INSIDE MOVE>
+	<DRESSING-MIRROR-F>)
+       (T <RANDOM-PSEUDO>)>>
+
+<ROUTINE OPEN-DOOR? (DR "OPTIONAL" (NOSP <>))
+ <COND (<FSET? .DR ,OPENBIT>
+	<COND (<ZERO? .NOSP> <TELL !\ >)>
+	<THIS-IS-IT .DR>
+	<COND (<SET NOSP <DOOR-ROOM ,HERE .DR>>
+	       <FSET .NOSP ,SEENBIT>)>
+	<TELL "And there's a wide-open " D .DR "!">)>>
+
+;<OBJECT FURNITURE
+	(IN LOCAL-GLOBALS)
+	(DESC "furniture")
+	(ADJECTIVE TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S)
+	(SYNONYM FURNITURE)
+	(FLAGS SEENBIT)
+	(ACTION RANDOM-PSEUDO)>
+][
+<OBJECT SECRET-YOUR-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE MY SECRET PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)>
+
+<ADJ-SYNONYM MY MINE YOUR>
+
+<ROOM YOUR-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "your bedroom")
+	(ADJECTIVE MY BED ROOM BEDROOM SPARE F.C F.C)
+	(SYNONYM ROOM BEDROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION GALLERY)
+	(CHARACTER 3)
+	(GLOBAL YOUR-ROOM ;YOUR-DOOR SECRET-YOUR-DOOR YOUR-BATHROOM FIREPLACE
+		WINDOW YOUR-BATHROOM-DOOR)
+	(OUT	TO GALLERY IF YOUR-ROOM ;YOUR-DOOR IS OPEN)
+	(WEST	TO GALLERY IF YOUR-ROOM ;YOUR-DOOR IS OPEN)
+	(NORTH	TO YOUR-BATHROOM IF YOUR-BATHROOM-DOOR IS OPEN)
+	;(IN	TO YOUR-BATHROOM IF YOUR-BATHROOM-DOOR IS OPEN)
+	(IN	TO YOUR-CLOSET IF SECRET-YOUR-DOOR IS OPEN)
+	(EAST	TO YOUR-CLOSET IF SECRET-YOUR-DOOR IS OPEN)
+	(ACTION YOUR-ROOM-F)>
+
+<ROUTINE YOUR-ROOM-F ("OPTIONAL" (RARG <>))
+ <COND (<EQUAL? .RARG ,M-BEG>
+	<COND (<AND <VERB? WALK-TO> <DOBJ? BED>>
+	       <PERFORM ,V?LIE ,BED>
+	       <RTRUE>)
+	      (T
+	       <SECRET-CHECK .RARG>)>)
+       (<OR <EQUAL? .RARG ,P?WEST ,P?OUT>
+	    <EQUAL? .RARG ,P?EAST ,P?IN>>
+	<COND (<AND ;<==? .RARG ,M-EXIT>
+		    <ZERO? ,NOW-WEARING>>
+	       <TELL
+"Before you even take a step, you" ,REMEMBER-NOT-DRESSED "." CR>
+	       <RFATAL>)
+	      (<EQUAL? .RARG ,P?EAST ,P?IN>
+	       <ENTER-PASSAGE>
+	       <RTRUE>)>)
+       (<EQUAL? .RARG ,M-ENTER>
+	<QUEUE I-TOUR 0>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL CTHE ,YOUR-ROOM " is decorated in shades of ">
+	<PRINT-COLOR>
+	<TELL
+". You see " 'YOUR-BATHROOM " to the north and a cozy " 'FIREPLACE " in
+one corner. The room is furnished with a bed, a " 'NIGHTSTAND " with a
+lamp on it, a " 'CHEST-OF-DRAWERS ", a " 'WARDROBE ", a " 'YOUR-CHAIR ",
+and a " 'DRESSING-TABLE " with mirror and bench. There's also a
+full-length " 'YOUR-MIRROR ".">
+	<OPEN-DOOR? ,SECRET-YOUR-DOOR>
+	<CRLF>
+	<DESCRIBE-CONTENTS ,BED>
+	<DESCRIBE-CONTENTS ,YOUR-CHAIR>
+	<COND (<AND <NOT <FSET? ,HERE ,TOUCHBIT>>
+		    <NOT <EQUAL? <LOC ,BUTLER> ,GALLERY ,YOUR-ROOM>>
+			;"timing bug"
+		    <NOT <G? 2 <QUEUED? ,I-DINNER>>>
+		    <NOT <IN-MOTION? ,FRIEND>>>
+	       <PUTP ,FRIEND ,P?LINE 0>
+	       <SETG QCONTEXT ,FRIEND>
+	       <TELL CHE ,FRIEND>
+	       <COND (<NOT <IN? ,FRIEND ,HERE>>
+		      <MOVE ,FRIEND ,HERE>
+		      <TELL " enters and">)>
+	       <TELL " says, \"Let's chat a bit">
+	       <COND (<ZERO? <FIND-FLAG-HERE ,PERSONBIT ,PLAYER ,FRIEND>>
+		      <TELL ", now that we're alone">)>
+	       <TELL ".\"" CR>)>
+	<RTRUE>)
+       ;(<EQUAL? .RARG ,M-EXIT>
+	<COND (<T? ,AWAITING-REPLY>
+	       <SETG CLOCK-WAIT T>
+	       <PLEASE-ANSWER>
+	       <RTRUE>)>)
+       (T ;<T? .RARG>
+	<RFALSE>)
+       ;(<VERB? LOCK UNLOCK>
+	<TELL "It appears the lock is broken." CR>)>>
+
+<GLOBAL REMEMBER-NOT-DRESSED " remember that you're not dressed">
+
+<ROUTINE ENTER-PASSAGE ()
+	<TELL "You step down into a narrow " 'PASSAGE "." CR>
+	<RTRUE>>
+
+<OBJECT BED
+	(IN YOUR-ROOM)
+	(DESC "your bed")
+	(ADJECTIVE MY)
+	(SYNONYM BED)
+	(FLAGS SURFACEBIT OPENBIT VEHBIT NDESCBIT NARTICLEBIT)
+	(CAPACITY 999)
+	(ACTION BED-F)>
+
+<ROUTINE BED-F () ;("OPT" (ARG 0))
+ <COND ;(<T? .ARG> <RFALSE>)
+       (<VERB? BOARD THROUGH>
+	<PERFORM ,V?LIE ,PRSO>
+	<RTRUE>)
+       (<VERB? CLIMB-ON>
+	<PERFORM ,V?SIT ,PRSO>
+	<RTRUE>)>>
+
+<OBJECT NIGHTSTAND
+	(IN YOUR-ROOM)
+	(DESC "night table" ;"nightstand")
+	(ADJECTIVE MY NIGHT)
+	(SYNONYM NIGHTT TABLE STAND)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT SEENBIT SEARCHBIT)
+	(CAPACITY 99)
+	(ACTION NIGHTSTAND-F)>
+
+<ROUTINE NIGHTSTAND-F ()
+ <COND (<VERB? EXAMINE LOOK-ON>
+	<TELL-AS-WELL-AS ,NIGHTSTAND <> ,NIGHTLAMP>
+	<RTRUE>)>>
+
+<ROUTINE TELL-AS-WELL-AS (CONT STR "OPTIONAL" (OBJ <>) (X <>))
+	<COND (<FSET? .CONT ,SURFACEBIT>
+	       <TELL !\O>)
+	      (T
+	       <FSET .CONT ,OPENBIT>
+	       <TELL !\I>)>
+	<TELL !\n THE .CONT " you see">
+	<COND (<FIND-FLAG-NOT .CONT ,NDESCBIT>
+	       <SET X T>)
+	      (T <TELL " only">)>
+	<COND (<T? .OBJ>
+	       <TELL THE .OBJ>)
+	      (T <TELL .STR>)>
+	<COND (<T? .X>
+	       <TELL ", as well as">
+	       <PRINT-CONTENTS .CONT>)>
+	<TELL "." CR>>
+
+<OBJECT NIGHTLAMP
+	(IN NIGHTSTAND)
+	(DESC "your lamp")
+	(ADJECTIVE MY)
+	(SYNONYM LAMP)
+	(FLAGS ONBIT LIGHTBIT NDESCBIT SEENBIT NARTICLEBIT)>
+
+<OBJECT DRESSING-TABLE
+	(IN YOUR-ROOM)
+	(DESC "dressing table")
+	(ADJECTIVE MY DRESSING)
+	(SYNONYM TABLE)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT SEENBIT SEARCHBIT)
+	(CAPACITY 99)>
+
+<OBJECT DRESSING-BENCH
+	(IN YOUR-ROOM)
+	(DESC "bench")
+	(ADJECTIVE MY DRESSING)
+	(SYNONYM BENCH)
+	(FLAGS SURFACEBIT OPENBIT VEHBIT NDESCBIT SEENBIT)
+	(CAPACITY 99)>
+
+<OBJECT DRESSING-MIRROR
+	(IN DRESSING-TABLE)
+	(DESC "side mirror")
+	(ADJECTIVE MY DRESSING SIDE TABLE)
+	(SYNONYM MIRROR)
+	;(DESCFCN DRESSING-MIRROR-D)
+	(FLAGS SEENBIT)
+	(ACTION DRESSING-MIRROR-F)>
+
+;<ROUTINE DRESSING-MIRROR-D (X)
+	<TELL
+"There's a hinged " 'DRESSING-MIRROR " on the " 'DRESSING-TABLE "." CR>>
+
+<ROUTINE DRESSING-MIRROR-F ()
+ <COND (<VERB? FIX MOVE MOVE-DIR PUSH RUB TURN>
+	<TELL "Now you can see " 'PLAYER " perfectly." CR>)
+       (<VERB? EXAMINE LOOK-INSIDE>
+	<TELL "You look ">
+	<COND (<T? ,WASHED>
+	       <TELL "smashing">)
+	      (T <TELL "a trifle dirty">)>
+	<TELL " in your ">
+	<COND (<ZERO? ,NOW-WEARING> <TELL "birthday suit">)
+	      (T <TELL D ,NOW-WEARING>)>
+	<TELL "." CR>)>>
+
+<OBJECT YOUR-MIRROR
+	(IN YOUR-ROOM)
+	(DESC "wall mirror")
+	(ADJECTIVE MY WALL FULL-LENGTH FULL)
+	(SYNONYM MIRROR)
+	;(LDESC
+"There's a mirror with an elaborate frame mounted on the wall.")
+	(FLAGS NDESCBIT SEENBIT TRYTAKEBIT)
+	(ACTION YOUR-MIRROR-F)>
+
+<ROUTINE YOUR-MIRROR-F ()
+ <COND (<OR <VERB? EXAMINE LOOK-BEHIND RUB SEARCH>
+	    <AND <VERB? SEARCH-FOR> <DOBJ? YOUR-MIRROR>>>
+	<COND (<NOT <IN? ,PLAYER ,HERE>>
+	       ;<T? ,PLAYER-SEATED>
+	       <TOO-BAD-SIT-HIDE>)>
+	<TELL
+"By running your fingers around the frame, you discover" THE ,YOUR-SWITCH>
+	<THIS-IS-IT ,YOUR-SWITCH>
+	<TELL "." CR>)
+       (<AND <VERB? OPEN CLOSE>
+	     <FSET? ,SECRET-YOUR-DOOR ,TOUCHBIT>>
+	<PERFORM ,PRSA ,SECRET-YOUR-DOOR>
+	<RTRUE>)
+       (<VERB? FIX MOVE MOVE-DIR PUSH RUB TAKE TURN>
+	<TELL "It seems to be fastened to the wall." CR>
+	<RTRUE>)
+       (T <DRESSING-MIRROR-F>)>>
+
+<OBJECT YOUR-SWITCH
+	(IN YOUR-ROOM)
+	(DESC "hidden switch")
+	(ADJECTIVE MY SMALL HIDDEN)
+	(SYNONYM SWITCH)
+	(FLAGS NDESCBIT ;TRYTAKEBIT SECRETBIT)
+	(ACTION YOUR-SWITCH-F)>
+
+<ROUTINE YOUR-SWITCH-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL "You can't tell by looking what it might do." CR>)
+       (<VERB? OPEN>
+	<FCLEAR ,YOUR-SWITCH ,SECRETBIT>
+	<OKAY ,SECRET-YOUR-DOOR "open">
+	<RTRUE>)
+       (<VERB? CLOSE>
+	<FCLEAR ,YOUR-SWITCH ,SECRETBIT>
+	<OKAY ,SECRET-YOUR-DOOR "closed">
+	<RTRUE>)
+       (<VERB? LAMP-OFF LAMP-ON MOVE MOVE-DIR PUSH RUB SLAP ;TAKE TURN>
+	<OPEN-SECRET <> ;"push" ,YOUR-SWITCH ,SECRET-YOUR-DOOR>
+	<RTRUE>)>>
+
+<OBJECT WARDROBE
+	(IN YOUR-ROOM)
+	(DESC "wardrobe")
+	(SYNONYM WARDROBE)
+	(FLAGS CONTBIT NDESCBIT SEENBIT)
+	(CAPACITY 999)>
+
+<OBJECT CHEST-OF-DRAWERS
+	(IN YOUR-ROOM)
+	(DESC "chest of drawers")
+	(SYNONYM CHEST DRAWER DRESSE)
+	(FLAGS CONTBIT NDESCBIT SEENBIT)
+	(CAPACITY 999)>
+
+<OBJECT YOUR-CHAIR
+	(IN YOUR-ROOM)
+	(DESC "wing chair")
+	(ADJECTIVE WING MY)
+	(SYNONYM CHAIR)
+	(FLAGS SURFACEBIT OPENBIT VEHBIT NDESCBIT SEENBIT)
+	(CAPACITY 99)>
+][
+<OBJECT YOUR-BATHROOM-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "bathroom door")
+	(ADJECTIVE MY BATH ;ROOM BATHROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)>
+
+<ROOM YOUR-BATHROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "your bathroom")
+	(ADJECTIVE MY BATH)
+	(SYNONYM ROOM BATHROOM)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION YOUR-ROOM)
+	(CHARACTER 3)
+	(OUT	TO YOUR-ROOM IF YOUR-BATHROOM-DOOR IS OPEN)
+	(SOUTH	TO YOUR-ROOM IF YOUR-BATHROOM-DOOR IS OPEN)
+	(ACTION YOUR-BATHROOM-F)
+	(GLOBAL YOUR-BATHROOM-DOOR)
+	(THINGS <PSEUDO ( MY BATH	BATH-PSEUDO)
+			( BATH TUB	BATH-PSEUDO)
+			( MY BATHTUB	BATH-PSEUDO)
+			( MY TUB	BATH-PSEUDO)
+			( MY TOILET	TOILET-PSEUDO)
+			( MY SINK	RANDOM-PSEUDO)>)>
+
+<ROUTINE YOUR-BATHROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-BEG>
+	<COND (<AND <VERB? WALK-TO> <DOBJ? YOUR-BATHROOM>>
+	       <TELL ,AHHH>
+	       <RTRUE>)>)
+       (<==? .RARG ,M-LOOK>
+	<TELL
+"From the look of it, " 'YOUR-BATHROOM " was added in recently. It is
+comfortable and inviting, especially for Cornwall." CR>
+	<RTRUE>)
+       (<==? .RARG ,M-EXIT>
+	<COND (<AND <ZERO? ,NOW-WEARING>
+		    <SET RARG <FIND-FLAG ,YOUR-ROOM ,PERSONBIT>>>
+	       <TELL
+"You peek in and see " D .RARG ", then" ,REMEMBER-NOT-DRESSED "." CR>
+	       <RFATAL>)>)
+       (<T? .RARG>
+	<RFALSE>)
+       (<VERB? OPEN CLOSE LOCK UNLOCK>
+	<PERFORM ,PRSA ,YOUR-BATHROOM-DOOR>
+	<RTRUE>)>>
+
+<ROUTINE TOILET-PSEUDO ()
+ <COND (<VERB? LOOK-INSIDE>
+	<NOTHING-SPECIAL>
+	<RTRUE>)
+       (<VERB? SIT USE>
+	<TELL ,AHHH>
+	<RTRUE>)>>
+
+<ROUTINE BATH-PSEUDO ()
+	<COND (<VERB? CLOSE ;"=DRAW" FILL LAMP-ON>
+	       <COND (<EQUAL? ,WINNER ,PLAYER>
+		      <TELL "Okay, then what?" CR>)>
+	       <RTRUE>)
+	      (<VERB? BOARD SWIM TAKE THROUGH>
+	       <COND (<ZERO? ,NOW-WEARING>
+		      <COND (<FIRST? ,PLAYER>
+			     <TELL "First you drop everything...|">
+			     <ROB ,PLAYER ,HERE>)>
+		      <PUT <GET ,P-ITBL ,P-VERBN> 0 ,W?BATHE>;"for VERB-PRINT"
+		      <V-WAIT 9 <> T>
+		      <SETG WASHED T>
+		      <TELL
+"You're now squeaky clean. After toweling off, you feel nicely relaxed
+and ready to tackle the mystery of " D ,CASTLE "." CR>)
+		     (T <TELL
+"You almost step into the tub before you realize that your " D ,NOW-WEARING
+" would get wet." CR>)>)
+	      (T <RANDOM-PSEUDO>)>>
+]
+<ROOM EAST-HALL
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT WEARBIT)
+	(DESC "east hall")
+	(ADJECTIVE EAST)
+	(SYNONYM HALL HALLWAY ROOM)
+	(LDESC
+"There are bedrooms to the east and west. The gallery lies south."
+;"[W to Wendish, E to Iris, S to gallery]")
+	(LINE 2)
+	(STATION EAST-HALL)
+	(CHARACTER 3)
+	(GLOBAL WENDISH-ROOM ;WENDISH-DOOR IRIS-ROOM ;IRIS-DOOR)
+	(EAST	TO IRIS-ROOM IF IRIS-ROOM ;IRIS-DOOR IS OPEN)
+	(WEST	TO WENDISH-ROOM IF WENDISH-ROOM ;WENDISH-DOOR IS OPEN)
+	(SOUTH	TO GALLERY)
+	(SW	TO GALLERY)
+	(OUT	TO GALLERY)>
+
+[
+<OBJECT SECRET-IRIS-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET IRIS\'S HER PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-IRIS-DOOR-F)>
+
+<ROOM IRIS-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "Iris's bedroom")
+	(ADJECTIVE IRIS\'S ;IRIS HER BED ROOM BEDROOM EAST)
+	(SYNONYM ROOM BEDROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION EAST-HALL)
+	(CHARACTER 3)
+	(GLOBAL IRIS-ROOM SECRET-IRIS-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG WINDOW)
+	(THINGS <PSEUDO ( IRIS\'S BED	BED-PSEUDO)
+			( HER BED	BED-PSEUDO)>)
+	(OUT	TO EAST-HALL IF IRIS-ROOM ;IRIS-DOOR IS OPEN)
+	(WEST	TO EAST-HALL IF IRIS-ROOM ;IRIS-DOOR IS OPEN)
+	(IN	TO IRIS-CLOSET IF SECRET-IRIS-DOOR IS OPEN)
+	(EAST	TO IRIS-CLOSET IF SECRET-IRIS-DOOR IS OPEN)
+	(ACTION IRIS-ROOM-F)>
+
+<ROUTINE IRIS-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<COND (<AND <VERB? OPEN CLOSE>
+		    <DOBJ? SECRET-IRIS-DOOR>>
+	       <YOU-CANT <> ,PLAYER "in this room">
+	       <RTRUE>)
+	      (T <SECRET-CHECK .RARG>)>)
+       (<EQUAL? .RARG ,P?EAST ,P?IN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+'IRIS-ROOM " is furnished much like yours, but with a canopied bed and
+" 'IRIS-CHAIR "." ;"[W to east hall]">
+	<OPEN-DOOR? ,SECRET-IRIS-DOOR>
+	<CRLF>)>>
+
+<OBJECT IRIS-CHAIR
+	(IN IRIS-ROOM)
+	(DESC "love seat")
+	(ADJECTIVE IRIS\'S HER LOVE)
+	(SYNONYM CHAIR SEAT)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT)
+	(CAPACITY 99)>
+][
+<OBJECT SECRET-WENDISH-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET DOC\'S HIS PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-WENDISH-DOOR)>
+
+;<ROUTINE HIDING-PSEUDO ("AUX" OBJ)
+ <COND (<VERB? HIDE-BEHIND PUT-IN PUT-UNDER>
+	<COND (<DOBJ? COSTUME BLOWGUN LENS-BOX>
+	       <MOVE ,PRSO ,HERE>
+	       <FSET ,PRSO ,NDESCBIT>
+	       <FSET ,PRSO ,SECRETBIT>
+	       <TELL "Done." CR>)
+	      (T <TELL CHE ,PRSO " won't fit." CR>)>)
+       (<VERB? EXAMINE LOOK-INSIDE SEARCH SEARCH-FOR>
+	<COND (<SET OBJ <FIND-FLAG-HERE ,SECRETBIT>>
+	       <DISCOVER .OBJ>)
+	      (T <NOTHING-SPECIAL>)>)>>
+
+<ROOM WENDISH-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "Wendish's bedroom")
+	(ADJECTIVE DOC\'S HIS BED ROOM BEDROOM WEST)
+	(SYNONYM ROOM BEDROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION EAST-HALL)
+	(CHARACTER 3)
+	(GLOBAL WENDISH-ROOM SECRET-WENDISH-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG WINDOW)
+	(THINGS <PSEUDO ( DOC\'S BED	BED-PSEUDO)
+			( HIS BED	BED-PSEUDO)>)
+	(OUT	TO EAST-HALL IF WENDISH-ROOM ;WENDISH-DOOR IS OPEN)
+	(EAST	TO EAST-HALL IF WENDISH-ROOM ;WENDISH-DOOR IS OPEN)
+	(NORTH	TO WENDISH-CORNER IF SECRET-WENDISH-DOOR IS OPEN)
+	(IN	TO WENDISH-CORNER IF SECRET-WENDISH-DOOR IS OPEN)
+	(ACTION WENDISH-ROOM-F)>
+
+<ROUTINE WENDISH-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<COND ;(<AND <VERB? OPEN CLOSE>
+		    <DOBJ? SECRET-WENDISH-DOOR>>
+	       <YOU-CANT <> ,PLAYER "in this room" ;"here">
+	       <RTRUE>)
+	      (T <SECRET-CHECK .RARG>)>)
+       (<EQUAL? .RARG ,P?NORTH ,P?IN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The room shows the doctor's precise, scientific personality.
+Everything is in its place. " ;"Luggage has been unpacked, and clothes
+neatly stowed in a commode (a low ' 'CHEST-OF-DRAWERS ') and a clothes press
+(recessed in the wall). ">
+	<WENDISH-STUFF-D>
+	<TELL
+"His " 'WENDISH-KIT " is on a marble-topped console
+attached to the wall. On the north wall is" THE ,CANDLE !\.>
+	<OPEN-DOOR? ,SECRET-WENDISH-DOOR>
+	<CRLF>)>>
+
+<OBJECT CANDLE
+	(IN WENDISH-ROOM)
+	(DESC "ornate candle sconce")
+	(ADJECTIVE ORNATE CANDLE DOC\'S HIS)
+	(SYNONYM CANDLE SCONCE)
+	(FLAGS NDESCBIT TRYTAKEBIT VOWELBIT)
+	(ACTION CANDLE-F)>
+
+<ROUTINE CANDLE-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL "It seems to be fastened loosely to the wall." CR>)
+       (<OR <VERB? LOOK-BEHIND LOOK-UNDER MOVE MOVE-DIR PUSH TURN>
+	    <AND <VERB? TAKE>
+		 <EQUAL? ,P-PRSA-WORD ,W?RAISE ,W?LIFT>>>
+	<OPEN-SECRET "lift" ,CANDLE ,SECRET-WENDISH-DOOR>)>>
+
+<OBJECT WENDISH-CHAIR
+	(IN WENDISH-ROOM)
+	(DESC "armchair")
+	(ADJECTIVE ARM)
+	(SYNONYM CHAIR SEAT ARMCHAIR)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT VOWELBIT)
+	(CAPACITY 99)>
+
+<OBJECT WENDISH-STUFF
+	(IN WENDISH-ROOM)
+	(DESC "medical text")
+	(ADJECTIVE MEDICAL)
+	(SYNONYM TEXT TEXTS BOOK BOOKS)
+	(GENERIC GENERIC-BOOK)
+	(FLAGS NDESCBIT READBIT CONTBIT)
+	(CAPACITY 4)
+	(DESCFCN WENDISH-STUFF-D)
+	(ACTION WENDISH-STUFF-F)>
+
+<ROUTINE WENDISH-STUFF-D ("OPTIONAL" X)
+	<TELL
+"Several " 'WENDISH-STUFF "s are lying on the " 'DRESSING-TABLE-LG "."
+	       ;"a roll-top writing table." CR>>
+
+<ROUTINE WENDISH-STUFF-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE OPEN READ>
+	<TELL "They are too technical to understand." CR>)
+       (T <RANDOM-PSEUDO>)>>
+
+<OBJECT WENDISH-KIT
+	(IN WENDISH-ROOM)
+	(DESC ;"Wendish's " "medical kit")
+	(ADJECTIVE DOC\'S ;DOCTOR HIS MEDICAL)
+	(SYNONYM KIT BAG)
+	(FLAGS NDESCBIT SEENBIT ;NARTICLEBIT CONTBIT TRYTAKEBIT)
+	(SIZE 38)
+	(CAPACITY 37)	;"for COSTUME + BLOWGUN + LENS-BOX + book"
+	(ACTION WENDISH-KIT-F)>
+
+<ROUTINE WENDISH-KIT-F ("AUX" X)
+ <COND (<VERB? EXAMINE LOOK-INSIDE OPEN SEARCH SEARCH-FOR>
+	<SEARCH-KIT-BOX ,WENDISH-KIT " a bunch of nasty-looking instruments">
+	<RTRUE>)
+       (<AND <VERB? TAKE> <EQUAL? ,PRSO ,WENDISH-KIT>>
+	<YOU-SHOULDNT>)
+       ;(<AND <VERB? TAKE> <EQUAL? ,PRSI <> ,WENDISH-KIT>>
+	<RFALSE>)
+       ;(<VERB? CLOSE FIND>
+	<RFALSE>)>>
+]
+<ROUTINE SEARCH-KIT-BOX (OBJ STR "AUX" (X <>))
+	<FSET .OBJ ,OPENBIT>
+	<COND ;(<OR <SET X <FIND-FLAG .OBJ ,SECRETBIT>>
+		   <SET X <FIND-FLAG .OBJ ,RMUNGBIT>>>
+	       T)
+	      (<IN? ,LENS-BOX .OBJ>
+	       <SET X ,LENS-BOX>)
+	      (<IN? ,VIVIEN-DIARY .OBJ>
+	       <SET X ,VIVIEN-DIARY>)
+	      (<IN? ,COSTUME .OBJ>
+	       <SET X ,COSTUME>)
+	      (<IN? ,BLOWGUN .OBJ>
+	       <SET X ,BLOWGUN>)>
+	<COND (<T? .X>
+	       <DISCOVER .X>
+	       <COND (<NOT <VERB? SEARCH SEARCH-FOR>>
+		      <TELL !\Y ,OU-STOP-SEARCHING "." CR>)>
+	       <RTRUE>)
+	      (T
+	       <TELL-AS-WELL-AS .OBJ .STR>
+	       <RTRUE>)>>
+[
+<OBJECT SECRET-VIVIEN-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET VIV\'S HER PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-VIVIEN-DOOR)>
+
+<ROOM VIVIEN-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT ;OPENBIT DOORBIT ;LOCKED WEARBIT WORNBIT)
+	(DESC "Vivien's bedroom")
+	(ADJECTIVE ;VIVIEN VIV\'S HER BED ROOM BEDROOM WEST)
+	(SYNONYM ROOM BEDROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION GALLERY)
+	(CHARACTER 3)
+	(GLOBAL VIVIEN-ROOM SECRET-VIVIEN-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG WINDOW)
+	(THINGS <PSEUDO ( <> BOOK	RANDOM-PSEUDO)
+			( <> BOOKS	RANDOM-PSEUDO)
+			( VIV\'S BED	BED-PSEUDO)
+			( HER BED	BED-PSEUDO)>)
+	(OUT	TO GALLERY IF VIVIEN-ROOM ;VIVIEN-DOOR IS OPEN)
+	(EAST	TO GALLERY IF VIVIEN-ROOM ;VIVIEN-DOOR IS OPEN)
+	(SOUTH	TO SECRET-VIVIEN-PASSAGE IF SECRET-VIVIEN-DOOR IS OPEN)
+	(IN	TO SECRET-VIVIEN-PASSAGE IF SECRET-VIVIEN-DOOR IS OPEN)
+	(ACTION VIVIEN-ROOM-F)>
+
+<ROUTINE VIVIEN-ROOM-F ("OPTIONAL" (RARG <>))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<SECRET-CHECK .RARG>)
+       (<EQUAL? .RARG ,P?SOUTH ,P?IN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The room is untidy, probably because Vivien is an artist.
+Sketches and garments are strewn on the
+canopied bed and " 'VIVIEN-CHAIR ". Leaning against the wall are
+stretched canvases, and a fold-up easel
+for her outdoor art work. On the tallboy are
+a sketch pad, and a paint-smeared " 'VIVIEN-BOX ".
+On the south wall is a cheval glass and" THE ,FIGURINE "."
+;"(full-length tilting mirror in frame) [E to gallery]">
+	<OPEN-DOOR? ,SECRET-VIVIEN-DOOR>
+	<CRLF>
+	<DESCRIBE-CONTENTS ,VIVIEN-CHAIR>
+	<RTRUE>)>>
+
+<OBJECT VIVIEN-STUFF
+	(IN VIVIEN-ROOM)
+	(DESC "art supplies" ;"Vivien's stuff")
+	(ADJECTIVE VIV\'S HER WATERCOLOR SKETCH ART PICTURE)
+	(SYNONYM PAD CANVAS SUPPLIES EASEL)
+	(FLAGS NDESCBIT SEENBIT ;NARTICLEBIT)
+	(ACTION RANDOM-PSEUDO)>
+
+<OBJECT VIVIEN-BOX
+	(IN VIVIEN-ROOM)
+	(DESC ;"Vivien's " "wooden box")
+	(ADJECTIVE VIV\'S HER WOODEN PAINT)
+	(SYNONYM BOX)
+	(GENERIC GENERIC-BOX)
+	(FLAGS NDESCBIT SEENBIT ;NARTICLEBIT CONTBIT TRYTAKEBIT)
+	(SIZE 38)
+	(CAPACITY 37)	;"for COSTUME + BLOWGUN + LENS-BOX + book"
+	(ACTION VIVIEN-BOX-F)>
+
+<ROUTINE VIVIEN-BOX-F ("AUX" X)
+ <COND (<VERB? EXAMINE LOOK-INSIDE OPEN SEARCH SEARCH-FOR>
+	<SEARCH-KIT-BOX ,VIVIEN-BOX " Vivien's brushes and thinner";" and oil">
+	<RTRUE>)
+       ;(<AND <VERB? PUT-IN> <IOBJ? VIVIEN-BOX>>
+	<MOVE ,PRSO ,PRSI>
+	<FSET ,PRSO ,TOUCHBIT>
+	<TELL "Okay." CR>)
+       (<AND <VERB? TAKE> <EQUAL? ,PRSO ,VIVIEN-BOX>>
+	<YOU-SHOULDNT>)
+       ;(<AND <VERB? TAKE> <EQUAL? ,PRSI <> ,VIVIEN-BOX>>
+	<RFALSE>)
+       ;(<VERB? CLOSE FIND>
+	<RFALSE>)>>
+
+<OBJECT FIGURINE
+	(IN VIVIEN-ROOM)
+	(DESC "sculpted figurine")
+	(ADJECTIVE SCULPT VIV\'S HER)
+	(SYNONYM FIGURINE FIGURE)
+	(FLAGS TRYTAKEBIT NDESCBIT ;SEENBIT)
+	(ACTION FIGURINE-F)>
+
+<ROUTINE FIGURINE-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL "It's turned toward the wall, so you can't see its face." CR>)
+       (<VERB? MOVE MOVE-DIR PUSH TURN>
+	<OPEN-SECRET "turn" ,FIGURINE ,SECRET-VIVIEN-DOOR>)
+       ;(<VERB? LOOK-UNDER OPEN TAKE>
+	<FSET ,FIGURINE ,OPENBIT>
+	<TELL
+"The " 'FIGURINE " is hollow. Lifting it from its shelf reveals">
+	<PRINT-CONTENTS ,FIGURINE>
+	<TELL "." CR>)>>
+
+<OBJECT VIVIEN-CHAIR
+	(IN VIVIEN-ROOM)
+	(DESC "chaise longue")
+	(ADJECTIVE CHAISE)
+	(SYNONYM CHAIR CHAISE LONGUE LOUNGE)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT SEENBIT)
+	(CAPACITY 99)>
+]
+<ROOM WEST-HALL
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT WEARBIT)
+	(DESC "west hall")
+	(ADJECTIVE WEST)
+	(SYNONYM HALL HALLWAY ROOM)
+	(LDESC
+"There are bedrooms to the east and west. The gallery lies south."
+;"[E to Hyde, W to Ian, S to gallery]")
+	(LINE 2)
+	(STATION WEST-HALL)
+	(CHARACTER 3)
+	(GLOBAL HYDE-ROOM ;HYDE-DOOR IAN-ROOM ;IAN-DOOR)
+	(WEST	TO IAN-ROOM IF IAN-ROOM ;IAN-DOOR IS OPEN)
+	(EAST	TO HYDE-ROOM IF HYDE-ROOM ;HYDE-DOOR IS OPEN)
+	(SOUTH	TO GALLERY)
+	(SE	TO GALLERY)
+	(OUT	TO GALLERY)>
+[
+<OBJECT SECRET-IAN-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET IAN\'S HIS PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-IAN-DOOR)>
+
+<ROOM IAN-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "Ian's bedroom")
+	(ADJECTIVE IAN\'S HIS BED ROOM BEDROOM WEST)
+	(SYNONYM ROOM BEDROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION WEST-HALL)
+	(CHARACTER 3)
+	(GLOBAL IAN-ROOM SECRET-IAN-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG WINDOW)
+	(THINGS <PSEUDO ( IAN\'S BED	BED-PSEUDO)
+			( HIS BED	BED-PSEUDO)>)
+	(NORTH	TO SECRET-IAN-PASSAGE IF SECRET-IAN-DOOR IS OPEN)
+	(IN	TO SECRET-IAN-PASSAGE IF SECRET-IAN-DOOR IS OPEN)
+	(OUT	TO WEST-HALL IF IAN-ROOM ;IAN-DOOR IS OPEN)
+	(EAST	TO WEST-HALL IF IAN-ROOM ;IAN-DOOR IS OPEN)
+	(ACTION IAN-ROOM-F)>
+
+<ROUTINE IAN-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<SECRET-CHECK .RARG>)
+       (<EQUAL? .RARG ,P?NORTH ,P?IN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+'IAN-ROOM " has rich wood panelling, a four-poster bed, Victorian
+washstand, and " 'IAN-CHAIR ". ">
+	<TELL-IAN-FIREPLACE>
+	<CRLF>
+	<COND (<OPEN-DOOR? ,SECRET-IAN-DOOR T>
+	       <CRLF>)>
+	<RTRUE>)>>
+
+<ROUTINE TELL-IAN-FIREPLACE ()
+	<TELL
+"In the " 'FIREPLACE ", the fender has
+flashy grillwork, and the " 'ANDIRON "s have fancy carved heads.">>
+
+<OBJECT ANDIRON
+	(IN IAN-ROOM)
+	(DESC "andiron")
+	;(ADJECTIVE CARVED)
+	(SYNONYM ANDIRON HEAD ;HEADS GRILLWORK)
+	(FLAGS VOWELBIT NDESCBIT)
+	(ACTION ANDIRON-F)>
+
+<ROUTINE ANDIRON-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL "By looking closely, you find that the head can turn." CR>)
+       (<VERB? MOVE MOVE-DIR PUSH RUB TURN>
+	<OPEN-SECRET "turn" ,ANDIRON ,SECRET-IAN-DOOR>
+	;<TELL "As you turn the carved head,">)>>
+
+<OBJECT IAN-CHAIR
+	(IN IAN-ROOM)
+	(DESC "reclining Morris chair")
+	(ADJECTIVE RECLINE MORRIS)
+	(SYNONYM CHAIR SEAT)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT)
+	(CAPACITY 99)>
+][
+<OBJECT SECRET-HYDE-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET HYDE\'S HIS PASSAGE)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-HYDE-DOOR)>
+
+<ROOM HYDE-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WEARBIT WORNBIT)
+	(DESC "Hyde's bedroom")
+	(ADJECTIVE HYDE\'S HIS ;HYDE BED ROOM BEDROOM EAST)
+	(SYNONYM ROOM BEDROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 2)
+	(STATION WEST-HALL)
+	(CHARACTER 3)
+	(GLOBAL HYDE-ROOM SECRET-HYDE-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG WINDOW)
+	(THINGS <PSEUDO ( HYDE\'S BED	BED-PSEUDO)
+			( HIS BED	BED-PSEUDO)>)
+	(OUT	TO WEST-HALL IF HYDE-ROOM ;HYDE-DOOR IS OPEN)
+	(WEST	TO WEST-HALL IF HYDE-ROOM ;HYDE-DOOR IS OPEN)
+	(IN	TO HYDE-CLOSET IF SECRET-HYDE-DOOR IS OPEN)
+	(NORTH	TO HYDE-CLOSET IF SECRET-HYDE-DOOR IS OPEN)
+	(ACTION HYDE-ROOM-F)>
+
+<ROUTINE HYDE-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<COND (<AND <VERB? OPEN CLOSE>
+		    <DOBJ? SECRET-HYDE-DOOR>>
+	       <YOU-CANT <> ,PLAYER "in this room" ;"here">
+	       <RTRUE>)
+	      (T <SECRET-CHECK .RARG>)>)
+       (<EQUAL? .RARG ,P?NORTH ,P?IN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+'HYDE-ROOM " has many tasteful antiques, such as " A ,HYDE-CHAIR
+" in one corner."
+;" looks like  'DOCTOR 's, but with a 'WARDROBE not a clothes press.">
+	<OPEN-DOOR? ,SECRET-HYDE-DOOR>
+	<CRLF>)>>
+
+<OBJECT HYDE-CHAIR
+	(IN HYDE-ROOM)
+	(DESC "armchair")
+	(ADJECTIVE ARM)
+	(SYNONYM CHAIR ARMCHAIR)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT VOWELBIT SEENBIT)
+	(CAPACITY 99)>
+]
diff --git a/colors.zap b/colors.zap
new file mode 100644
index 0000000..28de0c0
--- /dev/null
+++ b/colors.zap
@@ -0,0 +1,754 @@
+
+
+	.FUNCT	INTRO
+	PRINTI	"
+You drove west from London all day in your new little British "
+	PRINTD	CAR
+	PRINTI	". Now at last you've arrived in the storied land of Cornwall.
+
+Dusk has fallen as you pull up in front of "
+	PRINTD	CASTLE
+	PRINTI	". A ghostly "
+	PRINTD	MOON
+	PRINTI	" is rising, and a tall iron gate between two pillars bars the way into the "
+	PRINTD	COURTYARD
+	PRINTI	".
+"
+	RTRUE	
+
+
+	.FUNCT	YOUR-COLOR-F
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	HERE,YOUR-ROOM /?PRG11
+	CALL	VISIBLE?,CAR
+	ZERO?	STACK \?PRG11
+	CALL	VISIBLE?,EXERCISE-OUTFIT
+	ZERO?	STACK \?PRG11
+	CALL	VISIBLE?,DINNER-OUTFIT
+	ZERO?	STACK \?PRG11
+	CALL	VISIBLE?,SLEEP-OUTFIT
+	ZERO?	STACK \?PRG11
+	CALL	NOT-HERE,YOUR-COLOR
+	RSTACK	
+?PRG11:	PRINTI	"It's "
+	PRINTD	YOUR-COLOR
+	PRINTR	"!"
+
+
+	.FUNCT	GET-COLOR,NUM,N,WD,SUM=0,X,?TMP1
+	PUTB	P-INBUF,0,30
+?PRG1:	PRINTC	62
+	READ	P-INBUF,P-LEXV
+	GETB	P-LEXV,P-LEXWORDS >NUM
+	ZERO?	NUM \?CND5
+	PRINTC	34
+	PRINT	BEG-PARDON
+	PRINTI	""" "
+	JUMP	?PRG1
+?CND5:	SET	'N,P-LEXSTART
+?PRG9:	GET	P-LEXV,N >WD
+	CALL	ZMEMQ,WD,COLOR-WORDS >X
+	ZERO?	X /?CCL13
+	SET	'VARIATION,X
+?REP10:	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,1
+	MUL	P-LEXELEN,STACK
+	ADD	P-LEXSTART,STACK >WD
+	GET	P-LEXV,WD
+	EQUAL?	STACK,W?PERIOD,W?!,W?? \?CND16
+	SUB	WD,P-LEXELEN >WD
+?CND16:	ADD	WD,1
+	MUL	2,STACK >N
+	GETB	P-LEXV,N >?TMP1
+	ADD	1,N
+	GETB	P-LEXV,STACK
+	ADD	?TMP1,STACK
+	ADD	-1,STACK >WD
+	ADD	P-INBUF,1
+	CALL	NON-BLANK-STUFF,FAVE-COLOR,STACK,WD
+	PRINTI	"""Did you say "
+	PRINTD	YOUR-COLOR
+	PRINTI	" is "
+	CALL	PRINT-COLOR,TRUE-VALUE
+	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG32
+	ZERO?	VARIATION \?CND25
+	GETB	P-LEXV,5
+	GETB	P-INBUF,STACK >SUM
+	CALL	ZMEMQ,SUM,COLOR-LETTERS >X
+	ZERO?	X /?CCL29
+	SET	'VARIATION,X
+	JUMP	?CND27
+?CCL13:	DLESS?	'NUM,1 /?REP10
+	ADD	N,P-LEXELEN >N
+	JUMP	?PRG9
+?CCL29:	EQUAL?	SUM,112 \?CCL31
+	SET	'VARIATION,PAINTER-C
+	JUMP	?CND27
+?CCL31:	MOD	SUM,MAX-VARS
+	ADD	1,STACK >VARIATION
+?CND27:	GET	COLOR-WORDS,VARIATION >COLOR-FORCED
+?CND25:	CALL	DO-VARIATION
+	PUTB	P-INBUF,0,80
+	RTRUE	
+?PRG32:	PRINTI	"""What, then?"""
+	CRLF	
+	SET	'VARIATION,0
+	JUMP	?PRG1
+
+
+	.FUNCT	FIX-COLOR-ADJ,OBJ,PT,N
+	GETPT	OBJ,P?ADJECTIVE >PT
+	ZERO?	PT /FALSE
+	PTSIZE	PT
+	SUB	STACK,1
+	CALL	ZMEMQB,A?F.C,PT,STACK >N
+	ZERO?	N /FALSE
+	GET	COLOR-ADJS,VARIATION
+	PUTB	PT,N,STACK
+	RTRUE	
+
+
+	.FUNCT	DO-VARIATION,C
+	CALL	FIX-COLOR-ADJ,YOUR-COLOR
+	CALL	FIX-COLOR-ADJ,YOUR-ROOM
+	CALL	FIX-COLOR-ADJ,CAR
+	CALL	FIX-COLOR-ADJ,SLEEP-OUTFIT
+	CALL	FIX-COLOR-ADJ,EXERCISE-OUTFIT
+	CALL	FIX-COLOR-ADJ,DINNER-OUTFIT
+	EQUAL?	VARIATION,LORD-C \?CCL3
+	LOC	LOVER >C
+	JUMP	?CND1
+?CCL3:	EQUAL?	VARIATION,FRIEND-C \?CCL5
+	SET	'C,IRIS-CLOSET
+	JUMP	?CND1
+?CCL5:	EQUAL?	VARIATION,PAINTER-C \?CCL7
+	SET	'C,VIVIEN-BOX
+	JUMP	?CND1
+?CCL7:	SET	'C,WENDISH-KIT
+?CND1:	SET	'HIDING-PLACE,C
+	MOVE	COSTUME,C
+	MOVE	BLOWGUN,C
+	EQUAL?	VARIATION,LORD-C \?CCL10
+	SET	'VILLAIN-PER,LOVER
+	MOVE	NECKLACE-OF-D,JACK-ROOM
+	MOVE	JEWEL,LOCAL-GLOBALS
+	SET	'TREASURE,WAR-CLUB
+	MOVE	CLUE-2,PAINTER
+	FSET	STAINED-WINDOW,CONTBIT
+	MOVE	CLUE-3,STAINED-WINDOW
+	MOVE	CLUE-4,GARDEN
+	MOVE	CANE,UMBRELLA-STAND
+	JUMP	?CND8
+?CCL10:	EQUAL?	VARIATION,FRIEND-C \?CCL13
+	SET	'VILLAIN-PER,FRIEND
+	MOVE	TAMARA-EVIDENCE,TAMARA-BED
+	GETPT	FRIEND,P?WEST
+	PUT	STACK,NEXITSTR,STR?212
+	MOVE	JOURNAL,TAMARA-BED
+	FSET	JOURNAL,NDESCBIT
+	MOVE	EARRING,JEWELRY-CASE
+	MOVE	JEWEL,LOCAL-GLOBALS
+	SET	'TREASURE,NECKLACE
+	MOVE	NECKLACE,SKELETON
+	MOVE	CLUE-4,COFFIN
+	FCLEAR	CLUE-4,NDESCBIT
+	FSET	CLUE-4,TAKEBIT
+	MOVE	CLUE-3,BELL
+	MOVE	BRICKS,BASEMENT
+	JUMP	?CND8
+?CCL13:	EQUAL?	VARIATION,DOCTOR-C \?CCL15
+	SET	'VILLAIN-PER,DOCTOR
+	MOVE	WENDISH-BOOK,BOOKCASE
+	MOVE	LENS-BOX,WENDISH-KIT
+	FCLEAR	LENS-BOX,NDESCBIT
+	FSET	LENS-BOX,TAKEBIT
+	MOVE	JOURNAL,DESK
+	MOVE	LETTER-DEE,STUDY
+	SET	'TREASURE,MOONMIST
+	FSET	MOONMIST,SECRETBIT
+	MOVE	CLUE-3,RHINO-HEAD
+	MOVE	CLUE-4,GALLERY-CORNER
+	FCLEAR	CLUE-4,NDESCBIT
+	FSET	CLUE-4,TAKEBIT
+	MOVE	MOONMIST,INKWELL
+	JUMP	?CND8
+?CCL15:	EQUAL?	VARIATION,PAINTER-C \?CND8
+	SET	'VILLAIN-PER,PAINTER
+	MOVE	VIVIEN-DIARY,VIVIEN-BOX
+	MOVE	LENS-BOX,VIVIEN-BOX
+	FCLEAR	LENS-BOX,NDESCBIT
+	FSET	LENS-BOX,TAKEBIT
+	SET	'TREASURE,SKULL
+	MOVE	SKULL,BELL
+	FSET	MUSIC,SECRETBIT
+	MOVE	CLUE-3,ARMOR
+?CND8:	EQUAL?	VILLAIN-PER,LOVER \?CCL21
+	SET	'SEARCHER,LORD
+	JUMP	?CND19
+?CCL21:	SET	'SEARCHER,VILLAIN-PER
+?CND19:	FSET?	VILLAIN-PER,FEMALE \FALSE
+	FSET	GHOST-NEW,FEMALE
+	RTRUE	
+
+
+	.FUNCT	CANE-F,P
+	CALL	ATTACK-VERB?
+	ZERO?	STACK /?CCL3
+	CALL	NO-VIOLENCE?,CANE
+	RTRUE	
+?CCL3:	CALL	DISCOVER-WAR-CLUB,CANE
+	RSTACK	
+
+
+	.FUNCT	PAINT-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"It seems to be hiding something."
+?CCL3:	EQUAL?	PRSA,V?TAKE-OFF,V?RUB /?CTR6
+	EQUAL?	PRSA,V?REMOVE,V?LOOK-UNDER,V?BRUSH /?CTR6
+	EQUAL?	PRSA,V?TAKE \?CCL7
+	ZERO?	PRSI /?CCL7
+?CTR6:	CALL	DISCOVER-WAR-CLUB,CANE,TRUE-VALUE
+	RTRUE	
+?CCL7:	CALL	DIVESTMENT?,PAINT
+	ZERO?	STACK /FALSE
+	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	DISCOVER-WAR-CLUB,OBJ,DO-IT=0,PER
+	EQUAL?	PRSA,V?RUB,V?BRUSH /?CTR2
+	ZERO?	DO-IT /?CCL3
+?CTR2:	FSET?	WAR-CLUB,SECRETBIT \FALSE
+	CALL	DISCOVER,WAR-CLUB,PAINT
+	LOC	OBJ
+	MOVE	WAR-CLUB,STACK
+	LOC	OBJ
+	CALL	ROB,OBJ,STACK
+	MOVE	OBJ,LOCAL-GLOBALS
+	MOVE	PAINT,LOCAL-GLOBALS
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?SEARCH,V?EXAMINE \FALSE
+	FSET?	WAR-CLUB,SECRETBIT \FALSE
+	FCLEAR	PAINT,SECRETBIT
+	PRINTI	"There's something strange about this "
+	PRINTD	OBJ
+	PRINTI	". It's shaped like a baseball bat, but with hard, faceted bumps all over it. It has a new "
+	PRINTD	PAINT
+	PRINTR	"."
+
+
+	.FUNCT	ATTACK-VERB?,SHOOT=0
+	EQUAL?	PRSA,V?SLAP,V?KILL,V?ATTACK \?CCL3
+	FSET?	PRSO,PERSONBIT /TRUE
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?SHOOT \?CCL8
+	ZERO?	SHOOT /FALSE
+	FSET?	PRSO,PERSONBIT /TRUE
+	RFALSE	
+?CCL8:	EQUAL?	PRSA,V?PUT,V?RING \?CCL15
+	ZERO?	SHOOT /FALSE
+	ZERO?	PRSI /TRUE
+	FSET?	PRSI,PERSONBIT /TRUE
+	RFALSE	
+?CCL15:	EQUAL?	PRSA,V?USE \FALSE
+	ZERO?	PRSI /TRUE
+	FSET?	PRSI,PERSONBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	WAR-CLUB-F
+	EQUAL?	PRSA,V?COMPARE \?CCL3
+	EQUAL?	JEWEL,PRSO,PRSI \FALSE
+	CALL	START-SENTENCE,WAR-CLUB
+	PRINTI	" has no "
+	PRINTD	JEWEL
+	PRINTR	" like this one."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL10
+	CALL	DESCRIBE-WAR-CLUB
+	RSTACK	
+?CCL10:	CALL	ATTACK-VERB?
+	ZERO?	STACK /FALSE
+	CALL	NO-VIOLENCE?,WAR-CLUB
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-WAR-CLUB
+	PRINTI	"It's a "
+	PRINTD	WAR-CLUB
+	PRINTR	" that once belonged to the Zulu king Dingaan -- and it's studded with large diamonds!"
+
+
+	.FUNCT	SKULL-F
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINTR	"This staring skull is frightfully old -- even older than the castle."
+
+
+	.FUNCT	MOONMIST-F
+	EQUAL?	PRSA,V?READ,V?PLAY /?CTR2
+	EQUAL?	PRSA,V?FIND,V?EXAMINE \?CCL3
+	IN?	MOONMIST,GLOBAL-OBJECTS \?CCL3
+?CTR2:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"[You're playing it now!]"
+?CCL3:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?TAKE \?CCL13
+	IN?	MOONMIST,GLOBAL-OBJECTS /?CCL16
+	CALL	VISIBLE?,MOONMIST
+	ZERO?	STACK /?CCL16
+	LOC	MOONMIST
+	CALL	PERFORM,PRSA,STACK,PRSI
+	RTRUE	
+?CCL16:	CALL	YOU-CANT
+	RSTACK	
+?CCL13:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?PUT,V?POUR \?CCL22
+	ZERO?	PRSI /?CND23
+	FSET?	PRSI,PERSONBIT \?CND23
+	CALL	SHOOTING,MOONMIST
+	ZERO?	STACK /?CND23
+	RETURN	2
+?CND23:	MOVE	MOONMIST,LOCAL-GLOBALS
+	CALL	START-SENTENCE,MOONMIST
+	PRINTI	" dribbles "
+	ZERO?	PRSI \?CCL34
+	CALL	GROUND-DESC
+	PRINT	STACK
+	JUMP	?PRG43
+?CCL34:	FSET?	PRSI,SURFACEBIT /?PRG41
+	PRINTI	"into"
+	CALL	PRINTT,PRSI
+	JUMP	?PRG43
+?PRG41:	PRINTI	"on"
+	CALL	PRINTT,PRSI
+?PRG43:	PRINTR	", sizzles, and evaporates."
+?CCL22:	CALL	DIVESTMENT?,MOONMIST
+	ZERO?	STACK /?CCL46
+	CALL	PERFORM,PRSA,INKWELL,PRSI
+	RTRUE	
+?CCL46:	EQUAL?	PRSA,V?EAT,V?DRINK \?CCL49
+	EQUAL?	WINNER,PLAYER \FALSE
+	PRINTI	"First it puts your tongue to sleep. Then your tummy. Then your brain."
+	CALL	FINISH
+	RSTACK	
+?CCL49:	EQUAL?	PRSA,V?SMELL,V?EXAMINE \?CCL56
+	PRINTR	"It's a greenish liquid with a strong odor."
+?CCL56:	CALL	SHOOTING,MOONMIST
+	RSTACK	
+
+
+	.FUNCT	CLUE-1-F
+	EQUAL?	PRSA,V?COMPARE \?CCL3
+	EQUAL?	TREASURE,PRSO,PRSI \FALSE
+	CALL	START-SENTENCE,TREASURE
+	EQUAL?	VARIATION,LORD-C \?PRG16
+	FSET?	PLAYER,FEMALE /?PRG16
+	PRINTI	" looks just like the one on"
+	JUMP	?PRG18
+?PRG16:	PRINTI	" seems to match"
+?PRG18:	PRINTI	" the "
+	PRINTD	CLUE-1
+	PRINTR	"!"
+?CCL3:	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	FSET?	CLUE-1,TOUCHBIT /?CND22
+	PRINTR	"You can't see its face."
+?CND22:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"The "
+	PRINTD	CLUE-1
+	PRINTI	" shows "
+	EQUAL?	VARIATION,LORD-C \?CCL32
+	PRINTI	"the King of "
+	FSET?	PLAYER,FEMALE \?PRG40
+	PRINTR	"Spades, holding a sceptre."
+?PRG40:	PRINTI	"Clubs in one corner, with a picture of an African chief holding a "
+	PRINTD	WAR-CLUB
+	PRINTR	"; in the other corner is the King of Diamonds, with a picture of a crowned vulture clutching a diamond."
+?CCL32:	EQUAL?	VARIATION,FRIEND-C \?CCL43
+	FSET?	PLAYER,FEMALE \?PRG49
+	PRINTR	"a Polynesian diver, holding a knife and plunging through black water."
+?PRG49:	PRINTR	"a photo of singer Pearl Bailey."
+?CCL43:	EQUAL?	VARIATION,DOCTOR-C \?CCL52
+	FSET?	PLAYER,FEMALE \?PRG58
+	PRINTD	CASTLE
+	PRINTI	", with a cloud of mist hiding the "
+	PRINTD	MOON
+	PRINTR	"."
+?PRG58:	PRINTI	"an Amazon hunter, aiming a "
+	PRINTD	BLOWGUN
+	PRINTR	" at the tree tops."
+?CCL52:	EQUAL?	VARIATION,PAINTER-C \FALSE
+	PRINTI	"a "
+	PRINTD	SKELETON
+	PRINTR	" in Chinese mandarin costume."
+
+
+	.FUNCT	CLUE-2-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	FSET	CLUE-2,TOUCHBIT
+	CALL	HE-SHE-IT,CLUE-2,TRUE-VALUE
+	PRINTI	" says,"
+	CRLF	
+	EQUAL?	VARIATION,LORD-C \?CCL10
+	SET	'CLUE-LOC,CHAPEL
+	PRINTR	"""Forbidden fruit tempted the very first lass.
+'Twas once in a garden but now in a glass."""
+?CCL10:	EQUAL?	VARIATION,PAINTER-C \?CCL15
+	FSET?	MUSIC,TOUCHBIT /?CCL18
+	SET	'CLUE-LOC,SITTING-ROOM
+	JUMP	?PRG21
+?CCL18:	FSET?	BOTTLE,TOUCHBIT /?CCL20
+	SET	'CLUE-LOC,BASEMENT
+	JUMP	?PRG21
+?CCL20:	SET	'CLUE-LOC,DRAWING-ROOM
+?PRG21:	PRINTR	"""Three fellows argued about life:
+1. 'Using this motto, no chap can go wrong:
+    Leave the wench and the grape, but go with a ____!'
+2. 'On the seas of my life sails a ship that is laden
+    Not with bottles or tunes, but with innocent ______s!'
+3. 'Women and singing are both very fine,
+    But for me there is nothing to equal good ____!'"""
+?CCL15:	EQUAL?	VARIATION,DOCTOR-C \?CCL24
+	SET	'CLUE-LOC,GAME-ROOM
+	PRINTR	"""My first is an 'I,' but find an 'eye' that sees not."""
+?CCL24:	SET	'CLUE-LOC,DECK
+	PRINTR	"""... Yet the ear distinctly tells,...
+How the danger sinks and swells,
+By the sinking or the swelling in the anger of the ____s..."""
+
+
+	.FUNCT	CLUE-3-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	FSET	CLUE-3,TOUCHBIT
+	FSET	CLUE-3,TAKEBIT
+	CALL	HE-SHE-IT,CLUE-3,TRUE-VALUE
+	PRINTI	" says,
+"
+	EQUAL?	VARIATION,LORD-C \?CCL10
+	SET	'CLUE-LOC,GARDEN
+	PRINTR	"""Despite its appearance, the fruit was quite sour.
+One bite of the apple drove Eve from her bower."""
+?CCL10:	EQUAL?	VARIATION,FRIEND-C \?CCL14
+	SET	'CLUE-LOC,0
+	PRINTR	"""... And so, all the night-tide, I lie down by the side
+Of my darling -- my darling -- my life and my bride,...
+In her tomb by the sounding sea."""
+?CCL14:	EQUAL?	VARIATION,DOCTOR-C \?CCL18
+	SET	'CLUE-LOC,GALLERY
+	PRINTR	"""My second is in never but not in ever, and lies in a hidden 'end'."""
+?CCL18:	SET	'CLUE-LOC,DECK
+	PRINTR	"""My al___ has no glamour;
+Its '____e' tones do clam___.
+Can you find me?"""
+
+
+	.FUNCT	CLUE-4-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	FSET	CLUE-4,TOUCHBIT
+	FSET	CLUE-4,TAKEBIT
+	CALL	HE-SHE-IT,CLUE-4,TRUE-VALUE
+	PRINTI	" says,
+"
+	EQUAL?	VARIATION,LORD-C \?CCL10
+	SET	'CLUE-LOC,FOYER
+	PRINTR	"""Out of the sunshine, into the rain...
+The end of the story is... Abel and CAIN.""
+The last word is underlined."
+?CCL10:	EQUAL?	VARIATION,FRIEND-C \?CCL14
+	SET	'CLUE-LOC,BASEMENT
+	PRINTR	"""If you search for 'A Cask of Amontillado,' don't get trapped!"""
+?CCL14:	SET	'CLUE-LOC,OFFICE
+	PRINTR	"""My third is the silent side of knight.
+All together I am what you could use for poison-pen letters."""
+
+
+	.FUNCT	PRINT-COLOR,X=0
+	ZERO?	VARIATION \?CCL3
+	ZERO?	X /FALSE
+?CCL3:	GETB	FAVE-COLOR,0
+	CALL	WORD-PRINT,STACK,1,FAVE-COLOR
+	ZERO?	COLOR-FORCED /TRUE
+	PRINTI	" and "
+	PRINTB	COLOR-FORCED
+	RTRUE	
+
+
+	.FUNCT	TELL-SUFFIX,I,J=1
+	GETB	SUFFIX,0 >I
+	ZERO?	I /FALSE
+	PRINTI	", "
+	EQUAL?	JUNIOR-C,I \?CCL7
+	PRINTI	"Junior"
+	RTRUE	
+?CCL7:	EQUAL?	SENIOR-C,I \?PRG13
+	PRINTI	"Senior"
+	RTRUE	
+?PRG13:	GETB	SUFFIX,J
+	PRINTC	STACK
+	DLESS?	'I,1 /TRUE
+	INC	'J
+	JUMP	?PRG13
+
+
+	.FUNCT	TITLE-NAME
+	CALL	TITLE
+	EQUAL?	TITLE-WORD,W?MRS,W?MS,W?MISS /?PRG7
+	EQUAL?	TITLE-WORD,W?MISTER,W?MR /?PRG7
+	EQUAL?	TITLE-WORD,W?DOCTOR,W?DR \?PRG9
+?PRG7:	CALL	PRINT-NAME,LAST-NAME
+	RSTACK	
+?PRG9:	CALL	PRINT-NAME,FIRST-NAME
+	RSTACK	
+
+
+	.FUNCT	TITLE
+	EQUAL?	TITLE-WORD,W?MRS \?CCL3
+	PRINTI	"Mrs. "
+	RTRUE	
+?CCL3:	EQUAL?	TITLE-WORD,W?MS \?CCL7
+	PRINTI	"Ms. "
+	RTRUE	
+?CCL7:	EQUAL?	TITLE-WORD,W?MISS \?CCL11
+	PRINTI	"Miss "
+	RTRUE	
+?CCL11:	EQUAL?	TITLE-WORD,W?LADY \?CCL15
+	PRINTI	"Lady "
+	RTRUE	
+?CCL15:	EQUAL?	TITLE-WORD,W?DAME \?CCL19
+	PRINTI	"Dame "
+	RTRUE	
+?CCL19:	EQUAL?	TITLE-WORD,W?MADAME,W?MADAM \?CCL23
+	PRINTI	"Madame "
+	RTRUE	
+?CCL23:	EQUAL?	TITLE-WORD,W?DOCTOR,W?DR \?CCL27
+	PRINTI	"Dr. "
+	RTRUE	
+?CCL27:	EQUAL?	TITLE-WORD,W?LORD \?CCL31
+	PRINTI	"Lord "
+	RTRUE	
+?CCL31:	EQUAL?	TITLE-WORD,W?SIR \?CCL35
+	PRINTI	"Sir "
+	RTRUE	
+?CCL35:	EQUAL?	TITLE-WORD,W?MISTER,W?MR \?CCL39
+	PRINTI	"Mr. "
+	RTRUE	
+?CCL39:	EQUAL?	TITLE-WORD,W?MASTER \FALSE
+	PRINTI	"Master "
+	RTRUE	
+
+
+	.FUNCT	NON-BLANK-STUFF,DEST,SRC,CNT,ND=1,NS=0,B,OB=32
+	DEC	'CNT
+?PRG1:	GETB	SRC,NS >B
+	EQUAL?	B,32 \?CCL4
+	EQUAL?	NS,CNT /?CND3
+	EQUAL?	OB,32 /?CND3
+?CCL4:	PUTB	DEST,ND,B
+	INC	'ND
+	SET	'OB,B
+?CND3:	IGRTR?	'NS,CNT \?PRG1
+	SUB	ND,1
+	PUTB	DEST,0,STACK
+	RTRUE	
+
+
+	.FUNCT	FULL-NAME,NO-TELL=0
+	PUTB	SUFFIX,0,0
+	PUTB	LAST-NAME,0,0
+	SET	'MIDDLE-WORD,0
+	SET	'TITLE-WORD,0
+	ZERO?	NO-TELL \TRUE
+	PRINTR	"""I said: Please state your full name."""
+
+
+	.FUNCT	GET-NAME,NUM,N,M,I,BEG,END,?TMP1
+	PUTB	P-INBUF,0,30
+?PRG1:	PRINTC	62
+	READ	P-INBUF,P-LEXV
+	GETB	P-LEXV,P-LEXWORDS >NUM
+	ZERO?	NUM \?CND5
+	PRINTC	34
+	PRINT	BEG-PARDON
+	PRINTI	""" "
+	JUMP	?PRG1
+?CND5:	SET	'N,P-LEXSTART
+	GET	P-LEXV,N >BEG
+	CALL	TITLE-NOUN?,BEG
+	ZERO?	STACK /?CND9
+	DEC	'NUM
+	ADD	N,P-LEXELEN >N
+	SET	'TITLE-WORD,BEG
+	EQUAL?	BEG,W?DOCTOR,W?DR,W?DETECT /?CND11
+	SET	'GENDER-KNOWN,TRUE-VALUE
+?CND11:	EQUAL?	BEG,W?MR,W?MISTER,W?MASTER /?CCL15
+	EQUAL?	BEG,W?LORD,W?SIR \?PRG18
+?CCL15:	FCLEAR	PLAYER,FEMALE
+?PRG18:	GET	P-LEXV,N
+	EQUAL?	STACK,W?PERIOD \?CND9
+	DEC	'NUM
+	ADD	N,P-LEXELEN >N
+	JUMP	?PRG18
+?CND9:	LESS?	NUM,2 \?CND23
+	EQUAL?	BEG,W?QUIT,W?Q \?CCL27
+	CALL	V-QUIT
+	JUMP	?CND25
+?CCL27:	EQUAL?	BEG,W?RESTART \?CCL29
+	CALL	V-RESTART
+	JUMP	?CND25
+?CCL29:	EQUAL?	BEG,W?RESTORE \?CND25
+	CALL	V-RESTORE
+?CND25:	CALL	FULL-NAME
+	JUMP	?PRG1
+?CND23:	SET	'BEG,N
+	SUB	NUM,1
+	MUL	P-LEXELEN,STACK
+	ADD	N,STACK >END
+?PRG31:	GET	P-LEXV,END
+	EQUAL?	STACK,W?PERIOD,W?!,W?? \?REP32
+	SUB	END,P-LEXELEN >END
+	JUMP	?PRG31
+?REP32:	LESS?	BEG,END /?CND36
+	CALL	FULL-NAME
+	JUMP	?PRG1
+?CND36:	GET	P-LEXV,END
+	EQUAL?	STACK,W?SR,W?SENIOR \?CCL40
+	SUB	END,P-LEXELEN >END
+	PUTB	SUFFIX,0,SENIOR-C
+	JUMP	?PRG51
+?CCL40:	GET	P-LEXV,END
+	EQUAL?	STACK,W?JR,W?JUNIOR \?CCL42
+	SUB	END,P-LEXELEN >END
+	PUTB	SUFFIX,0,JUNIOR-C
+	JUMP	?PRG51
+?CCL42:	ADD	END,1
+	MUL	2,STACK >N
+	GETB	P-LEXV,N >NUM
+	LESS?	NUM,6 \?PRG51
+	ADD	1,N
+	GETB	P-LEXV,STACK >M
+	SET	'I,0
+?PRG44:	DLESS?	'NUM,0 /?CCL48
+	GETB	P-INBUF,M
+	EQUAL?	STACK,105,118,120 \?PRG51
+	INC	'I
+	GETB	P-INBUF,M
+	SUB	STACK,32
+	PUTB	SUFFIX,I,STACK
+	INC	'M
+	JUMP	?PRG44
+?CCL48:	PUTB	SUFFIX,0,I
+	SUB	END,P-LEXELEN >END
+?PRG51:	GET	P-LEXV,END
+	EQUAL?	STACK,W?PERIOD,W?COMMA,W?THE \?REP52
+	SUB	END,P-LEXELEN >END
+	JUMP	?PRG51
+?REP52:	LESS?	BEG,END /?CND56
+	CALL	FULL-NAME
+	JUMP	?PRG1
+?CND56:	ADD	END,1
+	MUL	2,STACK >N
+	GETB	P-LEXV,N >NUM
+	SUB	END,P-LEXELEN >END
+	GET	P-LEXV,END
+	EQUAL?	STACK,W?APOSTROPHE \?CND58
+	SUB	END,P-LEXELEN >END
+	ADD	END,1
+	MUL	2,STACK >N
+	GETB	P-LEXV,N
+	ADD	NUM,STACK >NUM
+	INC	'NUM
+?CND58:	GRTR?	BEG,END \?CND60
+	CALL	FULL-NAME
+	JUMP	?PRG1
+?CND60:	ADD	BEG,P-LEXELEN >I
+?PRG62:	GRTR?	I,END \?CCL66
+	SET	'MIDDLE-WORD,0
+	JUMP	?REP63
+?CCL66:	GET	P-LEXV,I >M
+	EQUAL?	M,W?THE,W?OF,W?COMMA /?CCL68
+	ADD	I,P-LEXELEN >I
+	JUMP	?PRG62
+?CCL68:	SET	'MIDDLE-WORD,M
+	ADD	I,P-LEXELEN
+	ADD	1,STACK
+	MUL	2,STACK >M
+	ADD	1,N
+	GETB	P-LEXV,STACK >?TMP1
+	ADD	1,M
+	GETB	P-LEXV,STACK
+	SUB	?TMP1,STACK
+	ADD	NUM,STACK >NUM
+	SET	'N,M
+?REP63:	ADD	1,N
+	GETB	P-LEXV,STACK
+	ADD	P-INBUF,STACK
+	CALL	NON-BLANK-STUFF,LAST-NAME,STACK,NUM
+	SUB	N,P-WORDLEN >N
+	ZERO?	MIDDLE-WORD /?CND69
+	SUB	N,P-WORDLEN >N
+?CND69:	MUL	2,BEG
+	ADD	3,STACK
+	GETB	P-LEXV,STACK >BEG
+	GETB	P-LEXV,N >?TMP1
+	ADD	1,N
+	GETB	P-LEXV,STACK
+	ADD	?TMP1,STACK
+	ADD	-1,STACK >END
+	SUB	END,BEG
+	ADD	1,STACK >N
+	ADD	P-INBUF,BEG
+	CALL	NON-BLANK-STUFF,FIRST-NAME,STACK,N
+	PRINTI	"""Did you say your name is "
+	CALL	TELL-FULL-NAME
+	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG78
+	PUTB	P-INBUF,0,80
+	RTRUE	
+?PRG78:	PRINTI	"""Then please speak up.""
+"
+	CALL	FULL-NAME,TRUE-VALUE
+	JUMP	?PRG1
+
+
+	.FUNCT	PRINT-NAME,TBL,PTR=0,LEN,CH,OCH,SP?=1
+	GETB	TBL,0 >LEN
+?PRG1:	IGRTR?	'PTR,LEN /?REP2
+	SET	'OCH,CH
+	GETB	TBL,PTR >CH
+	LESS?	CH,97 /?CTR6
+	GRTR?	CH,122 \?CCL7
+?CTR6:	PRINTC	CH
+	JUMP	?CND5
+?CCL7:	ZERO?	SP? /?CCL11
+	SUB	CH,32
+	PRINTC	STACK
+	JUMP	?CND5
+?CCL11:	EQUAL?	OCH,39 \?CTR12
+	EQUAL?	PTR,LEN /?CTR12
+	ADD	1,PTR
+	GETB	TBL,STACK
+	EQUAL?	32,STACK \?CCL13
+?CTR12:	PRINTC	CH
+	JUMP	?CND5
+?CCL13:	SUB	CH,32
+	PRINTC	STACK
+?CND5:	EQUAL?	CH,32,46 /?CTR18
+	EQUAL?	CH,45,38 \?CCL19
+?CTR18:	SET	'SP?,TRUE-VALUE
+	JUMP	?PRG1
+?CCL19:	SET	'SP?,FALSE-VALUE
+	JUMP	?PRG1
+?REP2:	EQUAL?	CH,46 /FALSE
+	RTRUE	
+
+	.ENDI
diff --git a/colors.zil b/colors.zil
index 23377f5..9664074 100644
--- a/colors.zil
+++ b/colors.zil
@@ -82,6 +82,8 @@ into the " 'COURTYARD ".|">>
 				 (T <SET SUM <+ .SUM <GETB ,P-INBUF .NUM>>>)>>
 		      <COND (<SET X <ZMEMQ .SUM ,COLOR-LETTERS>>
 			     <SETG VARIATION .X>)
+			    (<EQUAL? .SUM %<ASCII !\p>>	;"pink => blue"
+			     <SETG VARIATION ,PAINTER-C>)
 			    (T <SETG VARIATION <+ 1 <MOD .SUM ,MAX-VARS>>>)>
 		      <SETG COLOR-FORCED <GET ,COLOR-WORDS ,VARIATION>>)>
 	       <DO-VARIATION>
@@ -681,7 +683,7 @@ what you could use for poison-pen letters.\"" CR>)>)>>
 <GLOBAL FIRST-NAME <TABLE #BYTE 0 #BYTE 120
 				0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>> "x"
 <GLOBAL LAST-NAME  <TABLE #BYTE 0 #BYTE 116 #BYTE 101 #BYTE 115
-				  #BYTE 116 #BYTE 101 #BYTE 114
+				  #BYTE 116 #BYTE 101 #BYTE 114 #BYTE 0
 				0 0 0 0 0 0 0 0 0 0 0 0>> "tester"
 
 <GLOBAL SUFFIX <TABLE #BYTE 0 #BYTE 0 0 0>>
diff --git a/global.zap b/global.zap
new file mode 100644
index 0000000..bf46824
--- /dev/null
+++ b/global.zap
@@ -0,0 +1,667 @@
+
+
+	.FUNCT	LOCAL-GLOBALS-F
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	CALL	CREEPY?,HERE
+	ZERO?	STACK \?CTR4
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CCL5
+?CTR4:	CALL	RANDOM-PSEUDO
+	RSTACK	
+?CCL5:	CALL	NOT-HERE,LOCAL-GLOBALS
+	RSTACK	
+
+
+	.FUNCT	UPSTAIRS-DOWNSTAIRS,N,TBL,HR,?TMP1
+	LOC	WINNER >HR
+	EQUAL?	PRSA,V?WALK-TO,V?WALK,V?THROUGH /?CCL3
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB-DOWN,V?BOARD \FALSE
+?CCL3:	FSET?	HR,SECRETBIT /FALSE
+	FSET?	HR,WEARBIT \?CCL10
+	SET	'TBL,WING-STAIRS
+	JUMP	?CND6
+?CCL10:	SET	'TBL,TOWER-STAIRS
+?CND6:	EQUAL?	PRSA,V?CLIMB-UP,V?BOARD \?CCL13
+	GETPT	HR,P?UP
+	ZERO?	STACK /?CCL17
+	CALL	DO-WALK,P?UP
+	RTRUE	
+?CCL17:	GETP	HR,P?CHARACTER >N
+	ZERO?	N /FALSE
+	GET	TBL,0 >?TMP1
+	INC	'N
+	LESS?	?TMP1,N /FALSE
+	GET	TBL,N >N
+	CALL	PERFORM,V?WALK-TO,N
+	RTRUE	
+?CCL13:	GETPT	HR,P?DOWN
+	ZERO?	STACK /?CCL24
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?CCL24:	GETP	HR,P?CHARACTER >N
+	ZERO?	N /FALSE
+	DEC	'N
+	LESS?	0,N \FALSE
+	GET	TBL,N >N
+	CALL	PERFORM,V?WALK-TO,N
+	RTRUE	
+
+
+	.FUNCT	DO-INSTEAD-OF,OBJ1,OBJ2
+	EQUAL?	PRSI,OBJ2 \?CCL3
+	CALL	PERFORM,PRSA,PRSO,OBJ1
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,OBJ2 \?CCL5
+	CALL	PERFORM,PRSA,OBJ1,PRSI
+	RTRUE	
+?CCL5:	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	TURN-F
+	EQUAL?	PRSA,V?USE \FALSE
+	CALL	PERFORM,V?WAIT-FOR,PRSO
+	RTRUE	
+
+
+	.FUNCT	IT-F
+	EQUAL?	PRSI,IT \?PRD5
+	EQUAL?	PRSA,V?TELL-ABOUT /?PRG12
+	EQUAL?	PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT /?PRG12
+?PRD5:	EQUAL?	PRSO,IT \FALSE
+	EQUAL?	PRSA,V?FIND,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT \FALSE
+?PRG12:	PRINTR	"""I'm not sure what you're talking about."""
+
+
+	.FUNCT	FLOOR-F,OBJ=0,N
+	EQUAL?	PRSA,V?CLIMB-ON \?CCL3
+	CALL	ALREADY,WINNER,STR?278
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?THROW-AT,V?PUT \?CCL5
+	EQUAL?	PRSO,MOONMIST /?CCL5
+	EQUAL?	PRSI,FLOOR \?CCL5
+	MOVE	PRSO,HERE
+	PRINTR	"Okay."
+?CCL5:	EQUAL?	PRSA,V?SEARCH-FOR /?CTR11
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-ON,V?EXAMINE \?CCL12
+?CTR11:	EQUAL?	HERE,DRAWING-ROOM \?CCL17
+	PRINTI	"The carpet ends flush with the archway to the "
+	PRINTD	GREAT-HALL
+	PRINTI	", where the footsteps of visitors have begun to wear it thin. It's a magnificent red Brussels carpet with deep pile and a medieval design."
+	CRLF	
+	JUMP	?CND15
+?CCL17:	EQUAL?	HERE,GREAT-HALL \?CND15
+	CALL	GREAT-HALL-IS-FLOORED
+?CND15:	EQUAL?	HERE,GARDEN \?CCL23
+	EQUAL?	VARIATION,LORD-C \?CCL23
+	FSET?	CLUE-4,SECRETBIT \?CCL23
+	SET	'OBJ,CLUE-4
+	JUMP	?CND21
+?CCL23:	EQUAL?	HERE,DRAWING-ROOM \?CCL28
+	EQUAL?	VARIATION,LORD-C,FRIEND-C \?CCL28
+	FSET?	JEWEL,TOUCHBIT /?CCL28
+	SET	'OBJ,JEWEL
+	JUMP	?CND21
+?CCL28:	EQUAL?	HERE,GREAT-HALL \?CND21
+	EQUAL?	VARIATION,DOCTOR-C,PAINTER-C \?CND21
+	EQUAL?	FOUND-IT-PERM,LENS,LENS-2 /?CND21
+	SET	'OBJ,LENS
+?CND21:	CALL	START-SEARCH,OBJ
+	RTRUE	
+?CCL12:	CALL	ADJ-USED?,W?DRAWING
+	ZERO?	STACK /?CCL37
+	EQUAL?	HERE,DRAWING-ROOM /FALSE
+	CALL	DO-INSTEAD-OF,DRAWING-ROOM,FLOOR
+	RTRUE	
+?CCL37:	CALL	ADJ-USED?,W?GREAT
+	ZERO?	STACK /FALSE
+	EQUAL?	HERE,GREAT-HALL /FALSE
+	CALL	DO-INSTEAD-OF,GREAT-HALL,FLOOR
+	RTRUE	
+
+
+	.FUNCT	START-SEARCH,OBJ=0
+	PRINTI	"Nothing suspicious meets your eye after a moment's scrutiny. Do you want to continue?"
+	CALL	YES?
+	ZERO?	STACK \?CCL5
+	CALL	OKAY
+	RTRUE	
+?CCL5:	SET	'FOUND-IT,OBJ
+	SET	'FOUND-LOC,HERE
+	RANDOM	7
+	CALL	QUEUE,I-FOUND-IT,STACK
+	CALL	V-WAIT,8,FALSE-VALUE,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	I-FOUND-IT,GARG=0,OBJ
+	EQUAL?	FOUND-LOC,HERE \FALSE
+	EQUAL?	FOUND-IT,JEWEL \?CCL5
+	MOVE	FOUND-IT,HERE
+	PRINTI	"Suddenly you notice a glittering speck. Probing for it with your fingers, you discover a "
+	PRINTD	JEWEL
+	PRINTC	46
+	CRLF	
+	JUMP	?CND1
+?CCL5:	EQUAL?	FOUND-IT,LENS \?CCL9
+	FSET?	LENS,SEENBIT /?CCL12
+	LOC	LENS
+	MOVE	LENS-2,STACK
+	JUMP	?CND10
+?CCL12:	FSET?	LENS-2,SEENBIT /FALSE
+	SET	'FOUND-IT,LENS-2
+	LOC	LENS
+	MOVE	LENS-1,STACK
+	REMOVE	LENS
+?CND10:	MOVE	FOUND-IT,HERE
+	PRINTI	"Suddenly you find something small, smooth and slippery -- a "
+	PRINTD	FOUND-IT
+	PRINTI	"! Its transparency, of course, made it practically invisible."
+	ZERO?	BUTLER-GHOST-STORY-TOLD /?CND17
+	PRINTI	" No wonder you and the ghost had such a hard time finding it!"
+?CND17:	CRLF	
+	JUMP	?CND1
+?CCL9:	ZERO?	FOUND-IT \?CCL22
+	PRINT	NOTHING-NEW
+	RETURN	2
+?CCL22:	FSET?	FOUND-IT,SECRETBIT \?PRG29
+	CALL	DISCOVER,FOUND-IT
+	JUMP	?CND1
+?PRG29:	PRINTC	89
+	PRINT	OU-STOP-SEARCHING
+	PRINTI	" when you find"
+	CALL	PRINTT,FOUND-IT
+	PRINTI	".
+"
+?CND1:	FSET	FOUND-IT,TOUCHBIT
+	FSET	FOUND-IT,SEENBIT
+	EQUAL?	FOUND-IT,YOUR-SWITCH /?CND32
+	FCLEAR	FOUND-IT,NDESCBIT
+?CND32:	EQUAL?	FOUND-IT,LENS,LENS-2 \?CND34
+	SET	'FOUND-IT-PERM,FOUND-IT
+?CND34:	SET	'FOUND-IT,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	YOU-F,X
+	EQUAL?	WINNER,PLAYER /?CCL3
+	CALL	DO-INSTEAD-OF,WINNER,YOU
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL5
+	EQUAL?	PRSI,YOU \?CCL5
+	CALL	PERFORM,V?ASK-ABOUT,PRSO,PRSO
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?THANKS \FALSE
+	CALL	QCONTEXT-GOOD? >X
+	ZERO?	X /FALSE
+	CALL	PERFORM,V?THANKS,X
+	RTRUE	
+
+
+	.FUNCT	WALL-F,OBJ
+	EQUAL?	VARIATION,FRIEND-C \?CCL3
+	EQUAL?	HERE,BASEMENT,CRYPT \?CCL3
+	CALL	BRICKS-F
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL7
+	CALL	FIND-FLAG-LG,HERE,DOORBIT,SECRETBIT >OBJ
+	ZERO?	OBJ /?CCL7
+	CALL	DO-INSTEAD-OF,OBJ,WALL
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?KNOCK \FALSE
+	FSET?	HERE,WEARBIT \?PRG17
+	CALL	FIND-FLAG-LG,HERE,DOORBIT,SECRETBIT
+	ZERO?	STACK /?PRG19
+?PRG17:	PRINTR	"You hear a hollow sound."
+?PRG19:	PRINTR	"Knocking on the walls reveals nothing unusual."
+
+
+	.FUNCT	GLOBAL-HERE-F,OBJ,X=0
+	EQUAL?	PRSA,V?WALK-TO,V?SMELL /?CTR2
+	EQUAL?	PRSA,V?SIT,V?LIE,V?EXAMINE \?CCL3
+?CTR2:	CALL	DO-INSTEAD-OF,HERE,GLOBAL-HERE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PUT-IN,V?PUT \?CCL7
+	CALL	MORE-SPECIFIC
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \FALSE
+	IN?	MAGAZINE,HERE \?CCL12
+	FSET?	MAGAZINE,NDESCBIT \?CCL12
+	SET	'X,MAGAZINE
+	JUMP	?CND10
+?CCL12:	IN?	BRICKS,HERE \?CCL16
+	FSET?	BRICKS,NDESCBIT \?CCL16
+	SET	'X,BRICKS
+	JUMP	?CND10
+?CCL16:	ZERO?	PRSI /?CCL20
+	CALL	META-LOC,PRSI
+	EQUAL?	STACK,HERE \?CCL20
+	SET	'X,PRSI
+	JUMP	?CND10
+?CCL20:	FIRST?	HERE >OBJ /?PRG24
+?PRG24:	ZERO?	OBJ /?CND10
+	FSET?	OBJ,SECRETBIT \?CCL30
+	SET	'X,OBJ
+	JUMP	?CND10
+?CCL30:	FSET?	OBJ,PERSONBIT /?CCL32
+	FSET?	OBJ,CONTBIT /?PRD35
+	FSET?	OBJ,SURFACEBIT \?CCL32
+?PRD35:	CALL	FIND-FLAG,OBJ,SECRETBIT >X
+	ZERO?	X \?CTR31
+	CALL	FIND-FLAG,OBJ,RMUNGBIT >X
+	ZERO?	X /?CCL32
+?CTR31:	FSET	OBJ,OPENBIT
+?CND10:	CALL	START-SEARCH,X
+	RTRUE	
+?CCL32:	NEXT?	OBJ >OBJ /?PRG24
+	JUMP	?PRG24
+
+
+	.FUNCT	CHAIR-F
+	EQUAL?	PRSA,V?BOARD,V?CLIMB-ON,V?SIT \?CCL3
+	CALL	WONT-HELP
+	RSTACK	
+?CCL3:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	CLOTHES-FCN
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	EQUAL?	PRSO,TWEED-OUTFIT \?CCL6
+	PRINTI	"These are sensible clothes for this clammy climate: your new tweed "
+	ZERO?	GENDER-KNOWN \?PRG14
+	PRINTI	"suit"
+	JUMP	?PRG23
+?PRG14:	PRINTI	"blazer and "
+	FSET?	PLAYER,FEMALE \?PRG21
+	PRINTI	"skirt"
+	JUMP	?PRG23
+?PRG21:	PRINTI	"pants"
+?PRG23:	PRINTR	", with woolen sweater, should keep you warm enough."
+?CCL6:	EQUAL?	PRSO,EXERCISE-OUTFIT \?CCL26
+	PRINTI	"This is your favorite outfit for workouts: a cotton sweatsuit with a sporty "
+	CALL	PRINT-COLOR
+	ZERO?	STACK /?PRG33
+	PRINTC	32
+?PRG33:	PRINTR	"stripe."
+?CCL26:	EQUAL?	PRSO,DINNER-OUTFIT \?PRG70
+	ZERO?	GENDER-KNOWN \?PRG42
+	PRINTI	"You have a decent formal ensemble, with frills in the right places"
+	JUMP	?PRG53
+?PRG42:	PRINTI	"Your new "
+	FSET?	PLAYER,FEMALE \?PRG49
+	PRINTI	"floor-length dinner gown"
+	JUMP	?PRG51
+?PRG49:	PRINTI	"tuxedo"
+?PRG51:	PRINTI	" is particularly good-looking"
+?PRG53:	PRINTI	" and a perfect fit"
+	ZERO?	VARIATION /?PRG68
+	PRINTI	", "
+	FSET?	PLAYER,FEMALE \?PRG64
+	PRINTI	"not to mention that it's all"
+	JUMP	?PRG66
+?PRG64:	PRINTI	"with shirt and accessories"
+?PRG66:	PRINTI	" in "
+	CALL	PRINT-COLOR
+?PRG68:	PRINTR	"."
+?PRG70:	PRINTI	"Your new "
+	CALL	PRINT-COLOR
+	ZERO?	STACK /?PRG76
+	PRINTC	32
+?PRG76:	PRINTD	SLEEP-OUTFIT
+	PRINTI	" is "
+	ZERO?	GENDER-KNOWN \?CCL80
+	PRINTR	"nothing to write home about, but it is so-o-o comfy for sleeping."
+?CCL80:	FSET?	PLAYER,FEMALE \?PRG87
+	PRINTR	"made of fine Chinese silk."
+?PRG87:	PRINTR	"decorated with a Union Jack flag."
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK \?CCL90
+	CALL	PERFORM,V?TAKE-OFF,PRSO
+	RTRUE	
+?CCL90:	EQUAL?	PRSA,V?EMPTY \FALSE
+	CALL	META-LOC,LUGGAGE
+	EQUAL?	STACK,HERE \?CCL95
+	CALL	PERFORM,V?EMPTY,LUGGAGE
+	RTRUE	
+?CCL95:	CALL	NOT-HERE,LUGGAGE
+	RSTACK	
+
+
+	.FUNCT	SLEEP-GLOBAL-F
+	EQUAL?	PRSA,V?DRESS \?CCL3
+	CALL	META-LOC,SLEEP-OUTFIT
+	EQUAL?	HERE,STACK \FALSE
+	CALL	PERFORM,V?WEAR,SLEEP-OUTFIT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?WALK-TO \FALSE
+	CALL	PERFORM,V?FAINT
+	RTRUE	
+
+
+	.FUNCT	ROB,WHAT,THIEF,TELL?=0,N,X,TOLD?=0
+	FIRST?	WHAT >X /?PRG2
+?PRG2:	ZERO?	X /TRUE
+	NEXT?	X >N /?BOGUS6
+?BOGUS6:	ZERO?	N \?CND7
+	ZERO?	TOLD? /?CND7
+	ZERO?	TELL? /?CND7
+	PRINTI	" and"
+?CND7:	SET	'TOLD?,TRUE-VALUE
+	ZERO?	TELL? /?CND14
+	CALL	PRINTT,X
+	ZERO?	N /?PRG23
+	PRINTC	44
+	JUMP	?CND14
+?PRG23:	PRINTI	". "
+?CND14:	MOVE	X,THIEF
+	SET	'X,N
+	JUMP	?PRG2
+
+
+	.FUNCT	LIGHT-GLOBAL-F,P
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?LAMP-OFF,V?LAMP-ON \FALSE
+	CALL	CREEPY?,HERE
+	ZERO?	STACK /?CCL8
+	CALL	ACCESSIBLE?,LAMP
+	ZERO?	STACK /?CCL11
+	CALL	PERFORM,PRSA,LAMP
+	RTRUE	
+?CCL11:	CALL	NOT-HERE,LIGHT-GLOBAL
+	RSTACK	
+?CCL8:	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CCL13
+	PRINTR	"You can't reach it from here."
+?CCL13:	EQUAL?	PRSA,V?LAMP-ON \?CCL18
+	FSET?	HERE,ONBIT \?CCL21
+	CALL	ALREADY,LIGHT-GLOBAL,STR?64
+	RSTACK	
+?CCL21:	FSET	HERE,ONBIT
+	CALL	OKAY,LIGHT-GLOBAL,STR?64
+	RSTACK	
+?CCL18:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	FSET?	HERE,ONBIT /?CCL26
+	CALL	ALREADY,LIGHT-GLOBAL,STR?65
+	RSTACK	
+?CCL26:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,PLAYER >P
+	ZERO?	P /?CCL28
+	PRINTD	P
+	PRINTR	" says, ""Please don't leave us in the dark."""
+?CCL28:	FCLEAR	HERE,ONBIT
+	CALL	OKAY,LIGHT-GLOBAL,STR?65
+	RSTACK	
+
+
+	.FUNCT	HAUNTING-F
+	EQUAL?	PRSA,V?PLAY,V?LAMP-ON \FALSE
+	CALL	PERFORM,PRSA,COMPUTER
+	RTRUE	
+
+
+	.FUNCT	KEYHOLE-F,P,RM
+	CALL	REMOTE-VERB?
+	ZERO?	STACK /?CCL3
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \FALSE
+?CCL3:	CALL	ADJ-USED?,FALSE-VALUE
+	ZERO?	STACK /?CCL7
+	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE
+	ZERO?	STACK /?CCL10
+	GETPT	HERE,P?OUT
+	GETB	STACK,REXIT >RM
+	JUMP	?CND1
+?CCL10:	EQUAL?	HERE,CORR-2 /?PRG15
+	EQUAL?	HERE,WEST-HALL,GALLERY,EAST-HALL \?CCL12
+?PRG15:	PRINT	YOU-DIDNT-SAY-W
+	PRINTI	"hose "
+	PRINTD	KEYHOLE
+	PRINTR	"!]"
+?CCL12:	CALL	NOT-HERE,KEYHOLE
+	RTRUE	
+?CCL7:	CALL	ADJ-USED?
+	CALL	ZMEMQ,STACK,CHAR-POSS-TABLE >P
+	ZERO?	P /?CND1
+	GET	CHAR-ROOM-TABLE,P >RM
+	EQUAL?	HERE,RM \?CCL21
+	GETPT	HERE,P?OUT
+	GETB	STACK,REXIT >RM
+?CND1:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CCL25
+	EQUAL?	PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL25:	EQUAL?	JACK-ROOM,HERE,RM \?CCL30
+	EQUAL?	VARIATION,LORD-C \?CCL30
+	PRINTI	"You see a microphone with its wires leading toward the "
+	PRINTD	CREST
+	PRINTR	"."
+?CCL21:	GETPT	RM,P?OUT
+	GETB	STACK,REXIT
+	EQUAL?	HERE,STACK /?CND1
+	CALL	NOT-HERE,KEYHOLE
+	RTRUE	
+?CCL30:	CALL	ROOM-PEEK,RM,TRUE-VALUE
+	RTRUE	
+
+
+	.FUNCT	HANDS-F,P,A
+	CALL	FIND-BODY,HANDS >P
+	ZERO?	P /TRUE
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?KISS \?CCL7
+	FSET?	P,FEMALE \?CCL10
+	ZERO?	GENDER-KNOWN /?CCL10
+	FSET?	PLAYER,FEMALE /?CCL10
+	CALL	PERFORM,V?HELLO,P
+	RTRUE	
+?CCL10:	CALL	PERFORM,V?KISS,P
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?TAKE,V?SHAKE \FALSE
+	EQUAL?	PRSO,HANDS \FALSE
+	ZERO?	PRSI /?CND18
+	SET	'P,PRSI
+?CND18:	CALL	PERFORM,V?HELLO,P
+	RTRUE	
+
+
+	.FUNCT	HEAD-F,P,P2
+	CALL	FIND-BODY,HEAD >P
+	ZERO?	P /TRUE
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?NOD \?CCL7
+	CALL	PERFORM,V?YES
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?SHAKE \FALSE
+	CALL	PERFORM,V?NO
+	RTRUE	
+
+
+	.FUNCT	EYE-F,P,P2
+	CALL	FIND-BODY,EYE >P
+	ZERO?	P /TRUE
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?OPEN \?CCL7
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ALARM,P
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?CLOSE \?CCL9
+	SET	'WINNER,P
+	CALL	PERFORM,V?FAINT
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?LOOK-INSIDE,V?FIND,V?EXAMINE \FALSE
+	EQUAL?	P,PLAYER \?CCL14
+	FSET?	HERE,WORNBIT /?CCL14
+	CALL	NOT-HERE,MIRROR-GLOBAL
+	RSTACK	
+?CCL14:	EQUAL?	GHOST-NEW,P \?CCL18
+	CALL	PERFORM,PRSA,GHOST-NEW
+	RTRUE	
+?CCL18:	FSET?	LENS,SEENBIT /?PRG37
+	FSET?	P,MUNGBIT \?CCL24
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTR	" has closed eyes."
+?CCL24:	GETP	P,P?CHARACTER
+	EQUAL?	VARIATION,STACK \?CCL28
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTR	" turns away from you."
+?CCL28:	LESS?	BED-TIME,PRESENT-TIME \?PRG35
+	CALL	HE-SHE-IT,P,TRUE-VALUE,STR?84
+	PRINTR	" sleepy."
+?PRG35:	CALL	HE-SHE-IT,P,TRUE-VALUE,STR?218
+	PRINTR	" at you."
+?PRG37:	CALL	HE-SHE-IT,P,TRUE-VALUE,STR?1
+	EQUAL?	P,DEALER \?PRG43
+	EQUAL?	VARIATION,PAINTER-C \?PRG45
+?PRG43:	PRINTI	" not"
+?PRG45:	PRINTI	" wearing a "
+	PRINTD	LENS
+	PRINTR	"."
+
+
+	.FUNCT	OTHER-OUTFIT-F,P,P2
+	CALL	FIND-BODY,OTHER-OUTFIT >P
+	ZERO?	P /TRUE
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?FIND,V?EXAMINE \?CCL7
+	EQUAL?	GHOST-NEW,P \FALSE
+	CALL	PERFORM,PRSA,GHOST-NEW
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?TAKE-OFF,V?REMOVE,V?DISEMBARK \FALSE
+	CALL	YOU-SHOULDNT
+	RTRUE	
+
+
+	.FUNCT	FIND-BODY,OBJ,A,P
+	CALL	ADJ-USED? >A
+	ZERO?	A \?CCL3
+	PRINT	I-ASSUME
+	PRINTC	32
+	EQUAL?	PRSA,V?SEARCH-FOR,V?FIND,V?CLOSE /?CTR7
+	EQUAL?	PRSA,V?SLAP /?PRD12
+	EQUAL?	PRSA,V?MUNG,V?KILL,V?ATTACK \?CCL8
+?PRD12:	ZERO?	NOW-PRSI /?CCL8
+?CTR7:	SET	'P,PLAYER
+	PRINTI	"your"
+	JUMP	?CND6
+?CCL8:	EQUAL?	PRSA,V?SHAKE \?PRD20
+	ZERO?	PRSI /?PRD20
+	SET	'P,PRSI
+	FSET?	P,PERSONBIT /?PRG25
+?PRD20:	CALL	QCONTEXT-GOOD? >P
+	ZERO?	P \?PRG25
+	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER >P
+	ZERO?	P /?CCL18
+?PRG25:	PRINTD	P
+	PRINTI	"'s"
+	JUMP	?CND6
+?CCL18:	SET	'P,PLAYER
+	PRINTI	"your"
+?CND6:	GETP	P,P?CHARACTER
+	ADD	1,STACK
+	GET	CHAR-POSS-TABLE,STACK
+	PUT	P-ADJW,NOW-PRSI,STACK
+	PRINTC	32
+	GET	P-NAMW,NOW-PRSI >A
+	ZERO?	A /?PRG34
+	PRINTB	A
+	JUMP	?PRG36
+?PRG34:	PRINTD	OBJ
+?PRG36:	PRINTI	".]"
+	CRLF	
+	JUMP	?CND1
+?CCL3:	CALL	ZMEMQ,A,CHAR-POSS-TABLE >P
+	ZERO?	P /?CCL39
+	SUB	P,1
+	GET	CHARACTER-TABLE,STACK >P
+	JUMP	?CND1
+?CCL39:	EQUAL?	A,W?HER \?CCL41
+	SET	'P,P-HER-OBJECT
+	JUMP	?CND1
+?CCL41:	EQUAL?	A,W?HIS \?CND1
+	SET	'P,P-HIM-OBJECT
+?CND1:	ZERO?	P \?CND43
+	CALL	DONT-UNDERSTAND
+	RFALSE	
+?CND43:	CALL	THIS-IS-IT,P
+	CALL	META-LOC,P
+	EQUAL?	STACK,HERE /?CCL47
+	CALL	NOT-HERE,P
+	RFALSE	
+?CCL47:	CALL	DIVESTMENT?,OBJ
+	ZERO?	STACK /?CCL49
+	CALL	HAR-HAR
+	RFALSE	
+?CCL49:	RETURN	P
+
+
+	.FUNCT	PASSAGE-F,RM
+	CALL	FIND-FLAG-LG,HERE,DOORBIT,SECRETBIT >RM
+	EQUAL?	PRSA,V?WALK-TO,V?TAKE \?CCL3
+	CALL	PERFORM,V?THROUGH,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL5
+	ZERO?	RM /?CCL5
+	CALL	DO-INSTEAD-OF,RM,PASSAGE
+	RTRUE	
+?CCL5:	FSET?	HERE,SECRETBIT \?CCL9
+	CALL	DO-INSTEAD-OF,HERE,PASSAGE
+	RTRUE	
+?CCL9:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	ZERO?	RM /?CCL14
+	CALL	DOOR-ROOM,HERE,RM >RM
+	ZERO?	RM /?CCL14
+	FSET?	RM,SEENBIT \?CCL14
+	CALL	DO-INSTEAD-OF,RM,PASSAGE
+	RTRUE	
+?CCL14:	CALL	GENERIC-CLOSET,0 >RM
+	ZERO?	RM /?CCL19
+	CALL	DO-INSTEAD-OF,RM,PASSAGE
+	RTRUE	
+?CCL19:	CALL	NOT-HERE,PASSAGE
+	RSTACK	
+
+
+	.FUNCT	CORPSE-F
+	EQUAL?	PRSA,V?FIND \FALSE
+	CALL	WHO-KNOWS?,CORPSE
+	RSTACK	
+
+
+	.FUNCT	UNDRESSED-F
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?TAKE /FALSE
+	EQUAL?	PRSA,V?LOOK-ON /?CTR6
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE,V?SEARCH-FOR /?CTR6
+	EQUAL?	PRSA,V?SEARCH,V?CLOSE,V?OPEN \?CCL7
+?CTR6:	CALL	GLOBAL-IN?,DRESSING-TABLE-LG,HERE
+	ZERO?	STACK /?CCL13
+	CALL	DO-INSTEAD-OF,DRESSING-TABLE-LG,UNDRESSED
+	RTRUE	
+?CCL13:	CALL	NOT-HERE,DRESSING-TABLE-LG
+	RSTACK	
+?CCL7:	CALL	DONT-UNDERSTAND
+	RSTACK	
+
+
+	.FUNCT	ARTIFACT-F
+	ZERO?	TREASURE-FOUND /?CCL3
+	CALL	DO-INSTEAD-OF,TREASURE,ARTIFACT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE-TO,V?SSHOW,V?SHOW /?CCL5
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+?CCL5:	CALL	NOT-FOUND,ARTIFACT
+	RTRUE	
+
+
+	.FUNCT	TIMES-UP
+	PRINTI	"At first light, the police arrive and take over the investigation."
+	CRLF	
+	CALL	FINISH
+	RSTACK	
+
+	.ENDI
diff --git a/global.zil b/global.zil
new file mode 100644
index 0000000..23b97cc
--- /dev/null
+++ b/global.zil
@@ -0,0 +1,906 @@
+"GLOBALS for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+<OBJECT GLOBAL-OBJECTS
+	(DESC "GO")
+	;(FDESC 0)
+	(TEXT 0)
+	(FLAGS	CONTBIT DOORBIT FEMALE
+		INVISIBLE LIGHTBIT LOCKED MUNGBIT
+		NARTICLEBIT NDESCBIT ONBIT OPENBIT
+		;PERSONBIT READBIT RMUNGBIT
+		SEARCHBIT SECRETBIT SEENBIT SURFACEBIT
+		TAKEBIT TOOLBIT TOUCHBIT TRANSBIT TRYTAKEBIT
+		VEHBIT VOWELBIT WEAPONBIT WEARBIT WORNBIT)>
+
+<OBJECT LOCAL-GLOBALS
+	(IN GLOBAL-OBJECTS)
+	(DESC "stone" ;"LG")
+	(SYNONYM STONE ;L.G)
+	(FLAGS NARTICLEBIT)
+	(ACTION LOCAL-GLOBALS-F)>
+
+<ROUTINE LOCAL-GLOBALS-F ()
+ <COND (<REMOTE-VERB?>
+	<RFALSE>)
+       (<OR <CREEPY? ,HERE> <OUTSIDE? ,HERE>>
+	<RANDOM-PSEUDO>)
+       (T <NOT-HERE ,LOCAL-GLOBALS>)>>
+
+<OBJECT STAIRS
+	(IN LOCAL-GLOBALS)
+	(DESC "stairs")
+	(SYNONYM STAIRS STAIRW STAIR)
+	(GENERIC GENERIC-STAIRS)
+	(FLAGS SEENBIT)
+	(ACTION UPSTAIRS-DOWNSTAIRS)>
+
+<GLOBAL WING-STAIRS <PLTABLE KITCHEN GREAT-HALL GALLERY>>
+<GLOBAL TOWER-STAIRS <PLTABLE BASEMENT OLD-GREAT-HALL CORR-2 CORR-3>>
+
+<ROUTINE UPSTAIRS-DOWNSTAIRS ("AUX" N TBL (HR <LOC ,WINNER>))
+ <COND (<VERB? BOARD CLIMB-DOWN CLIMB-UP THROUGH WALK WALK-TO>
+	<COND (<FSET? .HR ,SECRETBIT>
+	       <RFALSE>)
+	      (<FSET? .HR ,WEARBIT> ;"WING-ROOMS"
+	       <SET TBL ,WING-STAIRS>)
+	      (T <SET TBL ,TOWER-STAIRS>)>
+	<COND (<OR <VERB? BOARD CLIMB-UP>
+		   ;<NOUN-USED? ,W?UPSTAIRS>>
+	       <COND (<T? <GETPT .HR ,P?UP>>
+		      <DO-WALK ,P?UP>
+		      <RTRUE>)
+		     (<AND <SET N <GETP .HR ,P?CHARACTER>>
+			   <NOT <L? <GET .TBL 0> <SET N <+ .N 1>>>>>
+		      <SET N <GET .TBL .N>>
+		      ;<TELL-I-ASSUME .N " Walk to">
+		      <PERFORM ,V?WALK-TO .N>
+		      <RTRUE>)>)
+	      (T ;<NOUN-USED? ,W?DOWNSTAIRS>
+	       <COND (<T? <GETPT .HR ,P?DOWN>>
+		      <DO-WALK ,P?DOWN>
+		      <RTRUE>)
+		     (<AND <SET N <GETP .HR ,P?CHARACTER>>
+			   <L? 0 <SET N <- .N 1>>>>
+		      <SET N <GET .TBL .N>>
+		      ;<TELL-I-ASSUME .N " Walk to">
+		      <PERFORM ,V?WALK-TO .N>
+		      <RTRUE>)>)>)>>
+
+<ROUTINE DO-INSTEAD-OF (OBJ1 OBJ2)
+	<COND (<EQUAL? ,PRSI .OBJ2> <PERFORM ,PRSA ,PRSO .OBJ1> <RTRUE>)
+	      (<EQUAL? ,PRSO .OBJ2> <PERFORM ,PRSA .OBJ1 ,PRSI> <RTRUE>)
+	      ;(T		    <PERFORM ,PRSA ,PRSO ,PRSI> <RTRUE>)
+	      (T <V-FOO>)>>
+
+<OBJECT TURN
+	(IN GLOBAL-OBJECTS)
+	(ADJECTIVE INT.NUM ;NUMBER FULL)
+	(SYNONYM TURN TURNS MINUTE)
+	(DESC "minute")
+	(ACTION TURN-F)>
+
+<ROUTINE TURN-F ()
+ <COND (<VERB? USE>
+	<PERFORM ,V?WAIT-FOR ,PRSO>
+	<RTRUE>)>>
+
+<OBJECT IT
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM IT THIS ;"FUCKER SUCKER")
+	(DESC "it")
+	(FLAGS VOWELBIT NARTICLEBIT)
+	(ACTION IT-F)>
+
+<ROUTINE IT-F ()
+ <COND (<OR <AND <IOBJ? IT>
+		 ;<FSET? ,PRSO ,PERSONBIT>
+		 <VERB? ASK-ABOUT ASK-FOR SEARCH-FOR TELL-ABOUT>>
+	    <AND <DOBJ? IT>
+		 <VERB? ASK-CONTEXT-ABOUT ASK-CONTEXT-FOR FIND ;WHAT>>>
+	<TELL "\"I'm not sure what you're talking about.\"" CR>)>>
+
+<OBJECT FLOOR
+	(IN GLOBAL-OBJECTS)
+	(DESC "floor")
+	(ADJECTIVE DRAWING ;ROOM GREAT ;HALL)
+	(SYNONYM FLOOR ;AREA GROUND CARPET RUG)
+	(FLAGS SEENBIT SURFACEBIT OPENBIT)
+	(ACTION FLOOR-F)>
+
+<ROUTINE FLOOR-F ("AUX" (OBJ <>) N)
+ <COND ;(<REMOTE-VERB?> <RFALSE>)
+       (<VERB? CLIMB-ON>
+	<ALREADY ,WINNER "on it">)
+       (<AND <VERB? PUT THROW-AT>
+	     <NOT <DOBJ? MOONMIST>>
+	     <IOBJ? FLOOR>>
+	<MOVE ,PRSO ,HERE>
+	<TELL "Okay." CR>
+	<RTRUE>)
+       (<VERB? EXAMINE LOOK-ON SEARCH SEARCH-FOR>
+	<COND (<EQUAL? ,HERE ,DRAWING-ROOM>
+	       <TELL
+"The carpet ends flush with the archway to the " 'GREAT-HALL ",
+where the footsteps of visitors have begun to wear it thin.
+It's a magnificent red Brussels carpet with deep pile and a medieval
+design." CR>)
+	      (<EQUAL? ,HERE ,GREAT-HALL>
+	       <GREAT-HALL-IS-FLOORED>)>
+	<COND (<AND <EQUAL? ,HERE ,GARDEN>
+		    <EQUAL? ,VARIATION ,LORD-C>
+		    <FSET? ,CLUE-4 ,SECRETBIT>>
+	       <SET OBJ ,CLUE-4>)
+	      (<AND <EQUAL? ,HERE ,DRAWING-ROOM>
+		    <EQUAL? ,VARIATION ,LORD-C ,FRIEND-C ;,OFFICER-C>
+		    <NOT <FSET? ,JEWEL ,TOUCHBIT>>>
+	       <SET OBJ ,JEWEL>)
+	      (<AND <EQUAL? ,HERE ,GREAT-HALL>
+		    <EQUAL? ,VARIATION ,DOCTOR-C ;,DEALER-C ,PAINTER-C>
+		    <NOT <EQUAL? ,FOUND-IT-PERM ,LENS ;,LENS-1 ,LENS-2>>>
+	       <SET OBJ ,LENS>)>
+	<START-SEARCH .OBJ>
+	<RTRUE>)
+       (<ADJ-USED? ,W?DRAWING>
+	<COND (<NOT <==? ,HERE ,DRAWING-ROOM>>
+	       <DO-INSTEAD-OF ,DRAWING-ROOM ,FLOOR>
+	       <RTRUE>)>)
+       (<ADJ-USED? ,W?GREAT>
+	<COND (<NOT <==? ,HERE ,GREAT-HALL>>
+	       <DO-INSTEAD-OF ,GREAT-HALL ,FLOOR>
+	       <RTRUE>)>)>>
+
+<ROUTINE START-SEARCH ("OPTIONAL" (OBJ <>))
+	<TELL
+"Nothing suspicious meets your eye after a moment's scrutiny. Do you want
+to continue?">
+	<COND (<NOT <YES?>>
+	       <OKAY>
+	       <RTRUE>)
+	      (T
+	       <COND (T ;<T? .OBJ>
+		      <SETG FOUND-IT .OBJ>)>
+	       <SETG FOUND-LOC ,HERE>
+	       <QUEUE I-FOUND-IT <RANDOM 7>>
+	       <V-WAIT 8 <> T>
+	       <RTRUE>)>>
+
+<GLOBAL FOUND-IT:OBJECT <>>
+<GLOBAL FOUND-IT-PERM:OBJECT <>>
+<GLOBAL FOUND-LOC:OBJECT <>>
+<GLOBAL NOTHING-NEW "You don't find anything new there.|">
+
+<ROUTINE I-FOUND-IT ("OPTIONAL" (GARG <>) "AUX" OBJ)
+	%<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+			    <TELL "[I-FOUND-IT:">
+			    <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+	<COND (<NOT <EQUAL? ,FOUND-LOC ,HERE>>
+	       <RFALSE>)
+	      (<EQUAL? ,FOUND-IT ,JEWEL>
+	       <MOVE ,FOUND-IT ,HERE>
+	       <TELL
+"Suddenly you notice a glittering speck. Probing for it with your fingers,
+you discover a " 'JEWEL "." ;"extract from the strands of carpet pile" CR>)
+	      (<EQUAL? ,FOUND-IT ,LENS>
+	       <COND (<NOT <FSET? ,LENS ,SEENBIT>>
+		      <MOVE ,LENS-2 <LOC ,LENS>>
+		      ;<REMOVE ,LENS>)
+		     (<NOT <FSET? ,LENS-2 ,SEENBIT>>
+		      <SETG FOUND-IT ,LENS-2>
+		      <MOVE ,LENS-1 <LOC ,LENS>>
+		      <REMOVE ,LENS>)
+		     (T <RFALSE>)>
+	       <MOVE ,FOUND-IT ,HERE>
+	       <TELL
+"Suddenly you find something small, smooth and slippery -- a "
+D ,FOUND-IT "! Its transparency, of course, made it practically invisible.">
+	       <COND (<T? ,BUTLER-GHOST-STORY-TOLD>
+		      <TELL
+" No wonder you and the ghost had such a hard time finding it!">)>
+	       <CRLF>)
+	      (<ZERO? ,FOUND-IT>
+	       <TELL ,NOTHING-NEW>
+	       <RFATAL>)
+	      (<FSET? ,FOUND-IT ,SECRETBIT>
+	       ;<SET OBJ <FIND-FLAG ,HERE ,SECRETBIT>>
+	       <DISCOVER ,FOUND-IT ;.OBJ>
+	       ;<RFATAL>)
+	      (T
+	       <TELL
+!\Y ,OU-STOP-SEARCHING " when you find" THE ,FOUND-IT ".|">)>
+	<COND (T ;<NOT <EQUAL? ,FOUND-IT ,MOONMIST ,YOUR-SWITCH>>
+	       ;<MOVE ,FOUND-IT ,PLAYER>
+	       <FSET ,FOUND-IT ,TOUCHBIT>)>
+	<FSET ,FOUND-IT ,SEENBIT>
+	<COND (<NOT <EQUAL? ,FOUND-IT ,YOUR-SWITCH>>
+	       <FCLEAR ,FOUND-IT ,NDESCBIT>)>
+	<COND (<EQUAL? ,FOUND-IT ,LENS ;,LENS-1 ,LENS-2>
+	       <SETG FOUND-IT-PERM ,FOUND-IT>)>
+	<SETG FOUND-IT <>>
+	<RFATAL>>
+
+<OBJECT DANGER
+	(IN GLOBAL-OBJECTS)
+	(DESC "danger")
+	(SYNONYM DANGER THREAT ATTACK)>
+
+<OBJECT INTNUM
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM INT.NUM ;NUMBER)
+	(DESC "number")>
+
+<OBJECT YOU
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM YOU YOURSELF HIMSELF HERSELF)
+	(DESC "self" ;"himself or herself")
+	(FLAGS ;NARTICLEBIT)
+	(ACTION YOU-F)>
+
+<ROUTINE YOU-F ("AUX" X)
+ <COND (<NOT <==? ,WINNER ,PLAYER>>
+	<DO-INSTEAD-OF ,WINNER ,YOU>
+	<RTRUE>)
+       (<AND <VERB? ASK-ABOUT> <IOBJ? YOU>>
+	<PERFORM ,V?ASK-ABOUT ,PRSO ,PRSO>
+	<RTRUE>)
+       (<AND <VERB? THANKS>
+	     <SET X <QCONTEXT-GOOD?>>>
+	<PERFORM ,V?THANKS .X>
+	<RTRUE>)>>
+
+;<OBJECT HINT
+	(DESC "hint")
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM HINT HELP)
+	(ACTION HINT-F)>
+
+;<ROUTINE HINT-F ()
+ <COND (<VERB? FIND>
+	<HELP-TEXT>)
+       (<VERB? ASK-FOR ASK-CONTEXT-FOR TAKE>
+	<MORE-SPECIFIC>)>>
+
+;<OBJECT CORRIDOR-GLOBAL
+	(IN GLOBAL-OBJECTS)
+	(DESC "corridor")
+	(SYNONYM CORRIDOR)
+	(ACTION CORRIDOR-GLOBAL-F)>
+
+;<ROUTINE CORRIDOR-GLOBAL-F ("AUX" RM)
+ <COND (<VERB? ANALYZE EXAMINE LOOK-INSIDE LOOK-DOWN LOOK-UP>
+	<COND (<SET RM <NEXT-ROOM ,HERE ,P?OUT>>
+	       <ROOM-PEEK .RM T>)>)>>
+
+<OBJECT WALL
+	(IN GLOBAL-OBJECTS)
+	(DESC "wall")
+	(ADJECTIVE CASTLE TOWER BRICK)
+	(SYNONYM WALL WALLS BRICK BRICKS)
+	(FLAGS SEENBIT SURFACEBIT OPENBIT)
+	(ACTION WALL-F)>
+
+<ROUTINE WALL-F ("AUX" OBJ)
+ <COND (<AND <EQUAL? ,VARIATION ,FRIEND-C>
+	     <EQUAL? ,HERE ,BASEMENT ,CRYPT>
+	     ;<VERB? ;DIG EXAMINE KNOCK MUNG OPEN RUB SEARCH>>
+	<BRICKS-F>)
+       (<AND <VERB? OPEN CLOSE>
+	     <T? <SET OBJ <FIND-FLAG-LG ,HERE ,DOORBIT ,SECRETBIT>>>>
+	<DO-INSTEAD-OF .OBJ ,WALL>
+	<RTRUE>)
+       (<VERB? KNOCK>
+	<COND (<OR <NOT <FSET? ,HERE ,WEARBIT> ;"WING-ROOMS">
+		   <FIND-FLAG-LG ,HERE ,DOORBIT ,SECRETBIT>>
+	       <TELL "You hear a hollow sound." CR>)
+	      (T <TELL
+"Knocking on the walls reveals nothing unusual." CR>)>)>>
+
+<OBJECT GLOBAL-HERE
+	(IN GLOBAL-OBJECTS)
+	(DESC "here")
+	(ADJECTIVE THIS)
+	(SYNONYM HERE AREA ROOM PLACE)
+	(GENERIC GENERIC-ROOM)
+	(FLAGS NARTICLEBIT)
+	(ACTION GLOBAL-HERE-F)>
+
+<ROUTINE GLOBAL-HERE-F ("AUX" OBJ (X <>))
+ <COND (<VERB? EXAMINE LIE SIT SMELL WALK-TO>
+	<DO-INSTEAD-OF ,HERE ,GLOBAL-HERE>
+	<RTRUE>)
+       (<VERB? PUT PUT-IN ;TIE-TO>
+	<MORE-SPECIFIC>)
+       (<VERB? SEARCH SEARCH-FOR>
+	<COND (<AND <IN? ,MAGAZINE ,HERE>
+		    ;<EQUAL? ,VARIATION ,PAINTER-C>
+		    <FSET? ,MAGAZINE ,NDESCBIT>>
+	       <SET X ,MAGAZINE>)
+	      (<AND <IN? ,BRICKS ,HERE>
+		    ;<EQUAL? ,VARIATION ,FRIEND-C>
+		    <FSET? ,BRICKS ,NDESCBIT>>
+	       <SET X ,BRICKS>)
+	      ;(<AND <EQUAL? ,HERE ,COURTYARD>
+		    <SET X <FIRST? ,FRONT-GATE>>>	;"for CLUE-4"
+	       T)
+	      (<AND <T? ,PRSI>
+		    <==? <META-LOC ,PRSI> ,HERE>>
+	       <SET X ,PRSI>)
+	      (T
+	       <SET OBJ <FIRST? ,HERE>>
+	       <REPEAT ()
+		       <COND (<ZERO? .OBJ>
+			      <RETURN>)
+			     (<FSET? .OBJ ,SECRETBIT>
+			      <SET X .OBJ>
+			      <RETURN>)
+			     (<AND <NOT <FSET? .OBJ ,PERSONBIT>>
+				   <OR <FSET? .OBJ ,CONTBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <OR <SET X <FIND-FLAG .OBJ ,SECRETBIT>>
+				       <SET X <FIND-FLAG .OBJ ,RMUNGBIT>>>>
+			      <FSET .OBJ ,OPENBIT>
+			      <RETURN>)
+			     (T <SET OBJ <NEXT? .OBJ>>)>>)>
+	<START-SEARCH .X>
+	<RTRUE>)>>
+
+<OBJECT CHAIR
+	(IN LOCAL-GLOBALS)
+	(DESC "chair")
+	(ADJECTIVE WING)
+	(SYNONYM CHAIR SEAT CHAIRS BENCH)
+	(FLAGS SEENBIT SURFACEBIT ;VEHBIT)
+	(ACTION CHAIR-F)>
+
+<ROUTINE CHAIR-F () ;("OPT" (ARG 0))
+ <COND ;(<T? .ARG> <RFALSE>)
+       (<VERB? SIT ;LOOK-UNDER CLIMB-ON ;CLIMB-DOWN BOARD>
+	<WONT-HELP>
+	;<SETG PLAYER-SEATED ,CHAIR>
+	;<TELL "Okay." ;"That's just a waste of time." CR>)
+       (T <RANDOM-PSEUDO>)>>
+
+<OBJECT TABLE-RANDOM
+	(IN LOCAL-GLOBALS)
+	(DESC "table")
+	(ADJECTIVE BILLIARD CARD)
+	(SYNONYM TABLE DESK)
+	(FLAGS SEENBIT)
+	(ACTION RANDOM-PSEUDO)>
+
+[
+<OBJECT TWEED-OUTFIT
+	(IN PLAYER)
+	(DESC "tweed outfit")
+	(ADJECTIVE MY TWEED WOOLEN WOOL)
+        (SYNONYM CLOTHES OUTFIT TWEEDS SUIT ;" SWEATER CLOTHING")
+	(GENERIC GENERIC-CLOTHES)
+	(FLAGS WORNBIT WEARBIT TAKEBIT MUNGBIT SEENBIT)
+	(SIZE 20)
+	(ACTION CLOTHES-FCN)>
+
+<OBJECT SLEEP-OUTFIT
+	(IN LUGGAGE)
+	(DESC "nightshirt" ;"set of pajamas, sleeping outfit")
+	(ADJECTIVE MY NIGHT F.C F.C ;" FINE INDIAN SILK SLEEPING")
+        (SYNONYM CLOTHES OUTFIT NIGHTS SHIRT ;" PAJAMA NIGHTG")
+	(GENERIC GENERIC-CLOTHES)
+	(FLAGS WEARBIT TAKEBIT)
+	(SIZE 20)
+	(ACTION CLOTHES-FCN)>
+
+<OBJECT EXERCISE-OUTFIT
+	(IN LUGGAGE)
+	(DESC "exercise outfit")
+	(ADJECTIVE MY EXERCISE F.C F.C ;"COTTON COMFORT RUNNING")
+        (SYNONYM CLOTHES OUTFIT SWEATS SUIT ;"SHOES CLOTHING")
+	(GENERIC GENERIC-CLOTHES)
+	(FLAGS WEARBIT TAKEBIT VOWELBIT)
+	(SIZE 20)
+	(ACTION CLOTHES-FCN)>
+
+<OBJECT DINNER-OUTFIT
+	(IN LUGGAGE)
+	(DESC "dinner outfit")
+	(ADJECTIVE MY DINNER FORMAL F.C F.C ;"FRILLY PERFECT")
+        (SYNONYM CLOTHES OUTFIT ;"ENSEMBLE CLOTHING" DRESS GOWN)
+	(GENERIC GENERIC-CLOTHES)
+	(FLAGS WEARBIT TAKEBIT)
+	(SIZE 20)
+	(ACTION CLOTHES-FCN)>
+
+<ROUTINE CLOTHES-FCN ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE>
+	<COND (<DOBJ? TWEED-OUTFIT>
+	       <TELL
+"These are sensible clothes for this clammy climate: your new tweed ">
+	       <COND (<ZERO? ,GENDER-KNOWN>
+		      <TELL "suit">)
+		     (T
+		      <TELL "blazer and ">
+		      <COND (<FSET? ,PLAYER ,FEMALE> <TELL "skirt">)
+			    (T <TELL "pants">)>)>
+	       <TELL ", with woolen sweater, should keep you warm enough.">)
+	      (<DOBJ? EXERCISE-OUTFIT>
+	       <TELL
+"This is your favorite outfit for workouts: a cotton sweatsuit with a sporty ">
+	       <COND (<PRINT-COLOR> <TELL !\ >)>
+	       <TELL "stripe." ;", and comfortable running shoes.">)
+	      (<DOBJ? DINNER-OUTFIT>
+	       <COND (<ZERO? ,GENDER-KNOWN>
+		      <TELL
+"You have a decent formal ensemble, with frills in the right places">)
+		     (T
+		      <TELL "Your new ">
+		      <COND (<FSET? ,PLAYER ,FEMALE>
+			     <TELL "floor-length dinner gown">)
+			    (T <TELL "tuxedo">)>
+		      <TELL " is particularly good-looking">)>
+	       <TELL " and a perfect fit">
+	       <COND (<NOT <0? ,VARIATION>>
+		      <TELL ", ">
+		      <COND (<FSET? ,PLAYER ,FEMALE>
+			     <TELL "not to mention that it's all">)
+			    (T <TELL "with shirt and accessories">)>
+		      <TELL " in ">
+		      <PRINT-COLOR>)>
+	       <TELL ".">)
+	      (T ;<DOBJ? SLEEP-OUTFIT>
+	       <TELL "Your new ">
+	       <COND (<PRINT-COLOR> <TELL !\ >)>
+	       <TELL D ,SLEEP-OUTFIT ;"nightshirt" " is ">
+	       <COND (<ZERO? ,GENDER-KNOWN>
+		      <TELL
+"nothing to write home about, but it is so-o-o comfy for sleeping.">)
+		     (<FSET? ,PLAYER ,FEMALE>
+		      <TELL "made of fine Chinese silk.">)
+		     (T <TELL "decorated with a Union Jack flag.">)>)>
+	<CRLF>)
+       (<VERB? DISEMBARK ;TAKE>	;"GET OUT OF MY CLOTHES"
+	<PERFORM ,V?TAKE-OFF ,PRSO>
+	<RTRUE>)
+       (<VERB? EMPTY>		;"UNPACK MY CLOTHES"
+	<COND (<EQUAL? <META-LOC ,LUGGAGE> ,HERE>
+	       <PERFORM ,V?EMPTY ,LUGGAGE>
+	       <RTRUE>)
+	      (T <NOT-HERE ,LUGGAGE>)>)>>
+]
+<OBJECT SLEEP-GLOBAL
+	(IN GLOBAL-OBJECTS)
+	;(ADJECTIVE ;SOME MY)
+	(SYNONYM SLEEP)
+	(DESC "sleep")
+	(FLAGS NARTICLEBIT)
+	(ACTION SLEEP-GLOBAL-F)>
+
+<ROUTINE SLEEP-GLOBAL-F ()
+ <COND (<VERB? DRESS ;-FOR>
+	<COND (<EQUAL? ,HERE <META-LOC ,SLEEP-OUTFIT>>
+	       <PERFORM ,V?WEAR ,SLEEP-OUTFIT>
+	       <RTRUE>)>)
+       (<VERB? WALK-TO>
+	<PERFORM ,V?FAINT>
+	<RTRUE>)>>
+
+<GLOBAL NOW-WEARING:OBJECT TWEED-OUTFIT>
+
+<ROUTINE ROB (WHAT THIEF "OPTIONAL" (TELL? <>) "AUX" N X (TOLD? <>))
+	 <SET X <FIRST? .WHAT>>
+	 <REPEAT ()
+		 <COND (<NOT .X> <RETURN>)>
+		 <SET N <NEXT? .X>>
+		 ;<COND (<NOT <FSET? .X ,TAKEBIT>>
+			<SET X .N>
+			<AGAIN>)>
+		 <COND (<AND <NOT .N> .TOLD? .TELL?>
+			<TELL " and">)>
+		 <SET TOLD? T>
+		 <COND (.TELL?
+			<TELL THE .X>
+			<COND (.N <TELL !\,>)
+			      (T <TELL ". ">)>)>
+		 <MOVE .X .THIEF>
+		 ;<FCLEAR .X ,TAKEBIT>
+		 <SET X .N>>>
+
+<OBJECT LIGHT-GLOBAL 
+	(IN GLOBAL-OBJECTS)
+	(DESC "light")
+	(ADJECTIVE FLOOD MOON)
+	(SYNONYM LIGHT LIGHTS LAMP MOONLIGHT)
+	(FLAGS SEENBIT TRYTAKEBIT)
+	(ACTION LIGHT-GLOBAL-F)>
+
+<ROUTINE LIGHT-GLOBAL-F ("AUX" P)
+ <COND (<REMOTE-VERB?> <RFALSE>)
+       (<VERB? LAMP-ON LAMP-OFF>
+	<COND (<CREEPY? ,HERE>
+	       <COND (<ACCESSIBLE? ,LAMP>
+		      <PERFORM ,PRSA ,LAMP>
+		      <RTRUE>)
+		     (T <NOT-HERE ,LIGHT-GLOBAL>)>)
+	      (<AND <OUTSIDE? ,HERE> ;<NOT <EQUAL? ,HERE ,CAR>>>
+	       <TELL "You can't reach it from here." CR>)
+	      (<VERB? LAMP-ON>
+	       <COND (<FSET? ,HERE ,ONBIT>
+		      <ALREADY ,LIGHT-GLOBAL "on">)
+		     (T
+		      <FSET ,HERE ,ONBIT>
+		      <OKAY ,LIGHT-GLOBAL "on">)>)
+	      (<VERB? LAMP-OFF>
+	       <COND (<NOT <FSET? ,HERE ,ONBIT>>
+		      <ALREADY ,LIGHT-GLOBAL "off">)
+		     (<SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,PLAYER>>
+		      <TELL
+D .P " says, \"Please don't leave us in the dark.\"" CR>)
+		     (T
+		      <FCLEAR ,HERE ,ONBIT>
+		      <OKAY ,LIGHT-GLOBAL "off">)>)>)>>
+
+<OBJECT HAUNTING
+	(DESC "haunting")
+	(IN OFFICE)
+	(SYNONYM MYSTERY HAUNTING ATTEMPTS CASE)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION HAUNTING-F)>
+
+<ROUTINE HAUNTING-F ()
+ <COND (<VERB? LAMP-ON PLAY>
+	<PERFORM ,PRSA ,COMPUTER>
+	<RTRUE>)>>
+
+<OBJECT KEYHOLE
+	(IN GLOBAL-OBJECTS)
+	(DESC "keyhole")
+	(ADJECTIVE MY TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S)
+	(SYNONYM KEYHOLE HOLE)
+	;(FLAGS NARTICLEBIT ;PLURALBIT)
+	(ACTION KEYHOLE-F)>
+
+<ROUTINE KEYHOLE-F ("AUX" P RM)
+ <COND (<AND <REMOTE-VERB?>
+	     <NOT <VERB? SEARCH SEARCH-FOR>>>
+	<RFALSE>)
+       (<ADJ-USED? <>>
+	;<ZERO? ,P-ADJN>
+	<COND (<ZMEMQ ,HERE ,CHAR-ROOM-TABLE>
+	       <SET RM <GET-REXIT-ROOM <GETPT ,HERE ,P?OUT>>>)
+	      (<OR <EQUAL? ,HERE ,CORR-2>
+		   <EQUAL? ,HERE ,WEST-HALL ,GALLERY ,EAST-HALL>>
+	       <TELL ,YOU-DIDNT-SAY-W "hose " 'KEYHOLE "!]" CR>
+	       <RTRUE>)
+	      (T <NOT-HERE ,KEYHOLE> <RTRUE>)>)
+       (<OR <SET P <ZMEMQ <ADJ-USED?> ;,P-ADJN ,CHAR-POSS-TABLE>>
+	    ;<AND <==? <ADJ-USED?> ,OTHER-POSS>
+		 <SET P <GETP ,OTHER-CHAR ,P?CHARACTER>>>>
+	<SET RM <GET ,CHAR-ROOM-TABLE .P>>
+	<COND (<EQUAL? ,HERE .RM>
+	       <SET RM <GET-REXIT-ROOM <GETPT ,HERE ,P?OUT>>>)
+	      (<NOT <EQUAL? ,HERE <GET-REXIT-ROOM <GETPT .RM ,P?OUT>>>>
+	       <NOT-HERE ,KEYHOLE>
+	       <RTRUE>)>)>
+ <COND (<VERB? EXAMINE LOOK-INSIDE LOOK-THROUGH SEARCH SEARCH-FOR>
+	<COND (<AND <EQUAL? ,JACK-ROOM ,HERE .RM>
+		    <EQUAL? ,VARIATION ,LORD-C>>
+	       <TELL
+"You see a microphone with its wires leading toward the " 'CREST "." CR>
+	       ;<TELL
+"Total darkness greets your eye. Something is obstructing your view
+through the " 'KEYHOLE "." CR>)
+	      (T <ROOM-PEEK .RM T>)>
+	<RTRUE>)>>
+[
+<OBJECT HANDS
+	(IN GLOBAL-OBJECTS)
+	(DESC "hand" ;"your hands")
+	(ADJECTIVE TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S MY
+		   ;"ordering same as HEAD & EYE for UN/DRESS-GHOST"
+		   ;" B\'S DEE\'S")
+	(SYNONYM HANDS HAND)
+	(FLAGS TRYTAKEBIT ;NARTICLEBIT ;PLURALBIT SEENBIT)
+	(ACTION HANDS-F)>
+
+<ROUTINE HANDS-F ("AUX" P A)
+ <COND (<NOT <SET P <FIND-BODY ,HANDS>>>
+	<RTRUE>)
+       (<REMOTE-VERB?>
+	<RFALSE>)>
+ <COND ;(<EQUAL? .P ,PLAYER>
+	<COND (<VERB? BRUSH>
+	       <RFALSE>)>)
+       (<VERB? KISS>
+	<COND (<AND <FSET? .P ,FEMALE>
+		    <T? ,GENDER-KNOWN>
+		    <NOT <FSET? ,PLAYER ,FEMALE>>>
+	       <PERFORM ,V?HELLO .P>)
+	      (T
+	       <PERFORM ,V?KISS .P>)>
+	<RTRUE>)
+       (<AND <VERB? SHAKE TAKE> <DOBJ? HANDS>>
+	<COND (<T? ,PRSI> ;<ZERO? .P>
+	       <SET P ,PRSI>)>
+	;<COND (<ZERO? .P>
+	       <COND ;(<ADJ-USED? ,W?HER>
+		      <SET P <FIND-FLAG-HERE-BOTH ,PERSONBIT ,FEMALE ,WINNER>>
+		      <COND (<ZERO? .P>
+			     <TELL "There's no woman here!" CR>
+			     <RTRUE>)>)
+		     ;(<ADJ-USED? ,W?HIS>
+		      <SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,FEMALE ,WINNER>>
+		      <COND (<ZERO? .P>
+			     <TELL "There's no man here!" CR>
+			     <RTRUE>)>)
+		     (T
+		      <SET P <FIND-FLAG-HERE ,PERSONBIT ,WINNER>>
+		      <COND (<ZERO? .P>
+			     <TELL "There's no one here!" CR>
+			     <RTRUE>)>)>)>
+	<PERFORM ,V?HELLO .P>
+	<RTRUE>)>>
+
+<OBJECT HEAD
+	(IN GLOBAL-OBJECTS)
+	(DESC "head" ;"your head")
+	(ADJECTIVE TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S B\'S
+		   ;" MY DEE\'S")
+	(SYNONYM HEAD ;FACE)
+	(FLAGS ;NARTICLEBIT SEENBIT)
+	(ACTION HEAD-F)>
+
+<ROUTINE HEAD-F ("AUX" P P2)
+ <COND (<NOT <SET P <FIND-BODY ,HEAD>>>
+	<RTRUE>)
+       (<REMOTE-VERB?>
+	<RFALSE>)
+       ;(<AND <EQUAL? .P ,PLAYER>
+	     <NOT <FSET? ,HERE ,WORNBIT>>>
+	<NOT-HERE ,MIRROR-GLOBAL ;,HEAD>)
+       (<VERB? NOD>
+	<PERFORM ,V?YES>
+	<RTRUE>)
+       (<VERB? SHAKE>
+	<PERFORM ,V?NO>
+	<RTRUE>)>>
+
+<OBJECT EYE
+	(IN GLOBAL-OBJECTS)
+	(DESC "eye")
+	(ADJECTIVE TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S B\'S
+		   ;" MY DEE\'S")
+	(SYNONYM EYE EYES)
+	(FLAGS VOWELBIT ;PLURALBIT SEENBIT)
+	(ACTION EYE-F)>
+
+<ROUTINE EYE-F ("AUX" P P2)
+ <COND (<NOT <SET P <FIND-BODY ,EYE>>>
+	<RTRUE>)
+       (<REMOTE-VERB?>
+	<RFALSE>)
+       ;(<AND <EQUAL? .P ,PLAYER>
+	     <NOT <FSET? ,HERE ,WORNBIT>>>
+	<COND (<VERB? OPEN>
+	       <TELL "Your eyes are wide open." CR>)
+	      (T <NOT-HERE ,MIRROR-GLOBAL ;,EYE>)>)
+       (<VERB? OPEN>
+	<SETG WINNER ,PLAYER>
+	<PERFORM ,V?ALARM .P>
+	<RTRUE>)
+       (<VERB? CLOSE>
+	<SETG WINNER .P>
+	<PERFORM ,V?FAINT>
+	<RTRUE>)
+       (<VERB? EXAMINE FIND LOOK-INSIDE>
+	<COND (<AND <EQUAL? .P ,PLAYER>
+		    <NOT <FSET? ,HERE ,WORNBIT>>>
+	       <NOT-HERE ,MIRROR-GLOBAL ;,EYE>)
+	      (<==? ,GHOST-NEW .P>
+	       <PERFORM ,PRSA ,GHOST-NEW>
+	       <RTRUE>)
+	      (T
+	       <COND (<NOT <FSET? ,LENS ;-1 ,SEENBIT>>
+		      <COND (<FSET? .P ,MUNGBIT>
+			     <TELL CHE .P " has closed eyes." CR>)
+			    (<==? ,VARIATION <GETP .P ,P?CHARACTER>>
+			     <TELL CHE .P " turns away from you." CR>)
+			    (<L? ,BED-TIME ,PRESENT-TIME>
+			     <TELL CHE .P look " sleepy." CR>)
+			    (T
+			     <TELL CHE .P smile " at you." CR>)>)
+		     (T
+		      <TELL CHE .P is>
+		      <COND (<OR <NOT <EQUAL? .P ,DEALER>>
+				 <EQUAL? ,VARIATION ,PAINTER-C>>
+			     <TELL " not">)>
+		      <TELL " wearing a " D ,LENS "." CR>)>)
+	      ;(T
+	       <TELL
+"Despite some initial demurrals and questioning glances, ">
+	       <COND (<ZERO? <SET P2 <FIND-FLAG-HERE ,PERSONBIT ,PLAYER .P>>>
+		      <TELL D .P>)
+		     (T <TELL "everyone">)>
+	       <TELL " allows your examination">
+	       <COND (<OR <EQUAL? ,VARIATION ,PAINTER-C>
+			  <NOT <IN? ,DEALER ,HERE>>>
+		      <TELL ". You discover that">
+		      <COND (<ZERO? .P2>
+			     <TELL HE .P " is not">)
+			    (T <TELL " no one is">)>
+		      <TELL " wearing a " D ,LENS "." CR>)
+		     (T <TELL
+" -- except " 'DEALER ", who is wearing " D ,LENS "es
+but confesses that he hates even to admit that he needs them." CR>)>)>)>>
+
+<OBJECT OTHER-OUTFIT
+	(IN GLOBAL-OBJECTS)
+	(DESC "clothes")
+	(ADJECTIVE TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S B\'S
+		   ;" MY DEE\'S")
+	(SYNONYM CLOTHES OUTFIT DRESS GOWN ; SUIT)
+	;(GENERIC GENERIC-CLOTHES)
+	(FLAGS SEENBIT)
+	;(SIZE 20)
+	(ACTION OTHER-OUTFIT-F)>
+
+<ROUTINE OTHER-OUTFIT-F ("AUX" P P2)
+ <COND (<NOT <SET P <FIND-BODY ,OTHER-OUTFIT>>>
+	<RTRUE>)
+       (<REMOTE-VERB?>
+	<RFALSE>)
+       (<VERB? EXAMINE FIND LOOK-INSIDE>
+	<COND (<==? ,GHOST-NEW .P>
+	       <PERFORM ,PRSA ,GHOST-NEW>
+	       <RTRUE>)>)
+       (<VERB? DISEMBARK REMOVE TAKE-OFF>
+	<YOU-SHOULDNT>
+	<RTRUE>)>>
+
+<ROUTINE FIND-BODY (OBJ "AUX" A P)
+ <SET A <ADJ-USED?> ;,P-ADJN>
+ <COND (<ZERO? .A>
+	<TELL ,I-ASSUME !\ >
+	<COND (<OR <VERB? CLOSE FIND SEARCH-FOR>
+		   <AND <VERB? ATTACK KILL MUNG SLAP>
+			<T? ,NOW-PRSI>>>
+	       <SET P ,PLAYER>
+	       <TELL "your">)
+	      (<OR <AND <VERB? SHAKE>	;"SHAKE HANDS WITH JACK"
+			<T? ,PRSI>
+			<FSET? <SET P ,PRSI> ,PERSONBIT>>
+		   <SET P <QCONTEXT-GOOD?>>
+		   <SET P <FIND-FLAG-HERE ,PERSONBIT ,PLAYER>>>
+	       <TELL D .P "'s">)
+	      (T
+	       <SET P ,PLAYER>
+	       <TELL "your">)>
+	<PUT ,P-ADJW ,NOW-PRSI
+		     <GET ,CHAR-POSS-TABLE <+ 1 <GETP .P ,P?CHARACTER>>>>
+	<TELL !\ >
+	<COND (<SET A <GET ,P-NAMW ,NOW-PRSI>>
+	       <PRINTB .A>)
+	      (T <TELL D .OBJ>)>
+	<TELL ".]" CR>)
+       (<SET P <ZMEMQ .A ,CHAR-POSS-TABLE>>
+	<SET P <GET ,CHARACTER-TABLE <- .P 1>>>)
+       ;(<==? .A ,OTHER-POSS>
+	<SET P ,OTHER-CHAR>)
+       (<==? .A ,W?HER>
+	<SET P ,P-HER-OBJECT>)
+       (<==? .A ,W?HIS>
+	<SET P ,P-HIM-OBJECT>)>
+ <COND (<ZERO? .P>
+	<DONT-UNDERSTAND>
+	<RFALSE>)>
+ <THIS-IS-IT .P>
+ <COND (<NOT <==? <META-LOC .P> ,HERE>>
+	<NOT-HERE .P>
+	<RFALSE>)
+       (<DIVESTMENT? .OBJ>
+	<HAR-HAR>
+	<RFALSE>)
+       (T .P)>>
+]
+<OBJECT PASSAGE
+	(DESC "secret passage")
+	(IN GLOBAL-OBJECTS)
+	(ADJECTIVE SECRET HIDING HIDDEN)
+	(SYNONYM PASSAGE ROOM PLACE PLACES)
+	(GENERIC GENERIC-ROOM)
+	(ACTION PASSAGE-F)>
+
+<ROUTINE PASSAGE-F ("AUX" (RM <FIND-FLAG-LG ,HERE ,DOORBIT ,SECRETBIT>))
+ <COND (<VERB? TAKE WALK-TO>
+	<PERFORM ,V?THROUGH ,PRSO>
+	<RTRUE>)
+       (<AND <VERB? OPEN CLOSE>
+	     <T? .RM>>
+	<DO-INSTEAD-OF .RM ,PASSAGE>
+	<RTRUE>)
+       (<FSET? ,HERE ,SECRETBIT>
+	<DO-INSTEAD-OF ,HERE ,PASSAGE>
+	<RTRUE>)
+       (<REMOTE-VERB?>	;"includes LEAVE"
+	<RFALSE>)
+       (T ;<VERB? BOARD CLOSE EXAMINE FOLLOW LOOK-INSIDE OPEN THROUGH WALK-TO>
+	<COND (<AND <T? .RM>
+		    <SET RM <DOOR-ROOM ,HERE .RM>>
+		    <FSET? .RM ,SEENBIT>>
+	       <DO-INSTEAD-OF .RM ,PASSAGE>
+	       <RTRUE>)
+	      (<SET RM <GENERIC-CLOSET 0>>
+	       <DO-INSTEAD-OF .RM ,PASSAGE>
+	       <RTRUE>)
+	      (T <NOT-HERE ,PASSAGE>)>)>>
+
+<OBJECT ROMANCE
+	(DESC "Tamara's romance")
+	(IN GLOBAL-OBJECTS)
+	(ADJECTIVE TAM\'S JACK\'S HER HIS)
+	(SYNONYM ROMANCE ENGAGE MARRIAGE LOVE ;AFFAIR)
+	(FLAGS NARTICLEBIT)
+	;(ACTION ROMANCE-F)>
+
+;<ROUTINE ROMANCE-F ()
+ <COND (<AND <VERB? MAKE>
+	     <FSET? ,PRSI ,PERSONBIT>>
+	<PERFORM ,V?RUB ,PRSI>
+	<RTRUE>)>>
+
+<OBJECT ACCIDENT
+	(DESC "Deirdre's accident")
+	(IN GLOBAL-OBJECTS)
+	(ADJECTIVE ;DEIRDRE DEE\'S HER)
+	(SYNONYM ACCIDENT DROWNING DEATH)
+	(FLAGS NARTICLEBIT)>
+
+<OBJECT CORPSE
+	(DESC "Deirdre's body")
+	(IN LOCAL-GLOBALS ;GLOBAL-OBJECTS ;"not really anywhere")
+	(ADJECTIVE ;DEIRDRE DEE\'S HER DEAD)
+	(SYNONYM CORPSE ;BODY ;"foo's body")
+	(FLAGS NARTICLEBIT)
+	(ACTION CORPSE-F)>
+
+<ROUTINE CORPSE-F ()
+ <COND ;(<REMOTE-VERB?> <RFALSE>)
+       (<VERB? ;EXAMINE FIND>
+	<WHO-KNOWS? ,CORPSE>)
+       ;(T <NOT-HERE ,CORPSE>)>>
+
+<OBJECT UNDRESSED
+	(DESC "undressed")
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM DRESSE UNDRESS)
+	(FLAGS NARTICLEBIT)
+	(ACTION UNDRESSED-F)>
+
+<ROUTINE UNDRESSED-F ()
+ <COND (<REMOTE-VERB?> <RFALSE>)
+       (<VERB? TAKE> <RFALSE>)	;"GET UN/DRESSED"
+       (<VERB? OPEN CLOSE SEARCH SEARCH-FOR EXAMINE LOOK-INSIDE LOOK-ON>
+	<COND (<GLOBAL-IN? ,DRESSING-TABLE-LG ,HERE>
+	       <DO-INSTEAD-OF ,DRESSING-TABLE-LG ,UNDRESSED>
+	       <RTRUE>)
+	      (T <NOT-HERE ,DRESSING-TABLE-LG>)>)
+       (T <DONT-UNDERSTAND>)>>
+
+<OBJECT ARTIFACT
+	(IN GLOBAL-OBJECTS ;LOCAL-GLOBALS)
+	(DESC "hidden treasure" ;"artifact")
+	(ADJECTIVE VALUABLE MISSING HIDDEN)
+	(SYNONYM ARTIFACT TREASURE)
+	(FLAGS SEENBIT VOWELBIT)
+	(ACTION ARTIFACT-F)>
+
+<ROUTINE ARTIFACT-F ()
+ <COND (<T? ,TREASURE-FOUND>
+	<DO-INSTEAD-OF ,TREASURE ,ARTIFACT>
+	<RTRUE>)
+       (<OR <VERB? SHOW SSHOW TAKE-TO>
+	    <NOT <REMOTE-VERB?>>>
+	<NOT-FOUND ,ARTIFACT>
+	<RTRUE>)>>
+
+<ROUTINE TIMES-UP ()
+	<TELL
+"At first light, the police arrive and take over the investigation." CR>
+	<FINISH>>
diff --git a/goal.zap b/goal.zap
new file mode 100644
index 0000000..9178e23
--- /dev/null
+++ b/goal.zap
@@ -0,0 +1,2106 @@
+
+
+	.FUNCT	FOLLOW-GOAL,PERSON,HEER,GT,GOAL,FLG,IGOAL=0,X
+	LOC	PERSON >HEER
+	IN?	HEER,ROOMS /?CND1
+	CALL	META-LOC,HEER >HEER
+	MOVE	PERSON,HEER
+?CND1:	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-F
+	EQUAL?	HEER,STACK \?CCL5
+	CALL	GOAL-REACHED,PERSON
+	RSTACK	
+?CCL5:	GET	GT,GOAL-ENABLE
+	ZERO?	STACK /FALSE
+	GET	GT,GOAL-I >IGOAL
+	GET	TRANSFER-TABLE,IGOAL >GOAL
+	ZERO?	GOAL \?CND7
+	SET	'IGOAL,FALSE-VALUE
+	GET	GT,GOAL-S >GOAL
+?CND7:	GETP	HEER,P?STATION >X
+	EQUAL?	HEER,GOAL,X /?CCL11
+	CALL	MOVE-PERSON,PERSON,X
+	RSTACK	
+?CCL11:	ZERO?	GOAL /FALSE
+	EQUAL?	HEER,GOAL \?CCL15
+	ZERO?	IGOAL /?CCL18
+	ADD	IGOAL,1
+	GET	TRANSFER-TABLE,STACK >FLG
+	CALL	MOVE-PERSON,PERSON,FLG >FLG
+	GET	GT,GOAL-F
+	CALL	ESTABLISH-GOAL,PERSON,STACK
+	RETURN	FLG
+?CCL18:	GET	GT,GOAL-F >FLG
+	EQUAL?	HEER,FLG /?CCL20
+	CALL	MOVE-PERSON,PERSON,FLG
+	RSTACK	
+?CCL20:	CALL	GOAL-REACHED,PERSON
+	RSTACK	
+?CCL15:	GETP	GOAL,P?STATION
+	EQUAL?	HEER,STACK \?CND9
+	CALL	MOVE-PERSON,PERSON,GOAL
+	RSTACK	
+?CND9:	CALL	FOLLOW-GOAL-NEXT,HEER,GOAL >FLG
+	CALL	MOVE-PERSON,PERSON,FLG
+	RSTACK	
+
+
+	.FUNCT	FOLLOW-GOAL-NEXT,HEER,GOAL,LINE,CNT=1,RM,GOAL-FLAG=0,LOC,G
+	GETP	GOAL,P?LINE
+	CALL	GET-LINE,STACK >LINE
+	GETP	GOAL,P?STATION >G
+?PRG1:	GET	LINE,CNT >RM
+	EQUAL?	RM,HEER \?CCL5
+	ZERO?	GOAL-FLAG /?CCL8
+	SUB	CNT,3
+	GET	LINE,STACK >LOC
+	RETURN	LOC
+?CCL8:	ADD	CNT,3
+	GET	LINE,STACK >LOC
+	RETURN	LOC
+?CCL5:	EQUAL?	RM,G \?CND3
+	SET	'GOAL-FLAG,TRUE-VALUE
+?CND3:	ADD	CNT,3 >CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	GET-LINE,LN
+	EQUAL?	LN,MAIN-LINE-C \?CCL3
+	RETURN	MAIN-LINE
+?CCL3:	EQUAL?	LN,BED-LINE-C \?CCL5
+	RETURN	BED-LINE
+?CCL5:	EQUAL?	LN,TOWER-LINE-C \?CCL7
+	RETURN	TOWER-LINE
+?CCL7:	EQUAL?	LN,PASS-LINE-C \FALSE
+	RETURN	PASS-LINE
+
+
+	.FUNCT	IN-MOTION?,PERSON,DISABLED-OK=0,GT,L,F,C,?TMP1
+	GETP	PERSON,P?CHARACTER >C
+	GET	GOAL-TABLES,C >GT
+	EQUAL?	PERSON,BUTLER \?CCL3
+	BTST	PRESENT-TIME,1 \?CCL3
+	ZERO?	DISABLED-OK /FALSE
+?CCL3:	GET	GT,GOAL-S
+	ZERO?	STACK /FALSE
+	LOC	PERSON >L
+	GET	GT,GOAL-F >F
+	EQUAL?	L,F /FALSE
+	ZERO?	DISABLED-OK \TRUE
+	GET	GT,GOAL-ENABLE
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	ESTABLISH-GOAL,PERSON,GOAL,SPEED=1,LOCN,GT,?TMP1
+	LOC	PERSON >LOCN
+	EQUAL?	LOCN,GOAL \?CND1
+	CALL	GOAL-REACHED,PERSON
+	RSTACK	
+?CND1:	EQUAL?	PERSON,CONFESSED,CAPTOR \?CND3
+	RETURN	LOCN
+?CND3:	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GETP	LOCN,P?LINE
+	SUB	STACK,1
+	MUL	STACK,GOAL-I-MULTIPLIER >?TMP1
+	GETP	GOAL,P?LINE
+	SUB	STACK,1
+	MUL	STACK,2
+	ADD	?TMP1,STACK
+	PUT	GT,GOAL-I,STACK
+	GETP	GOAL,P?STATION
+	PUT	GT,GOAL-S,STACK
+	PUT	GT,GOAL-F,GOAL
+	PUT	GT,GOAL-ENABLE,SPEED
+	RETURN	LOCN
+
+
+	.FUNCT	GOAL-REACHED,PERSON,GT,VAL=0
+	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	PUT	GT,GOAL-S,FALSE-VALUE
+	PUTP	PERSON,P?LDESC,0
+	CALL	META-LOC,PERSON >VAL
+	CALL	CREEPY?,VAL
+	ZERO?	STACK \?CND1
+	FSET	VAL,ONBIT
+?CND1:	SET	'GOAL-PERSON,PERSON
+	GET	GT,GOAL-FUNCTION
+	CALL	D-APPLY,STR?140,STACK,G-REACHED >VAL
+	ZERO?	VAL /?CCL5
+	RETURN	VAL
+?CCL5:	IN?	PERSON,HERE \FALSE
+	FSET?	PERSON,TOUCHBIT /FALSE
+	GETP	PERSON,P?DESCFCN
+	CALL	STACK,M-OBJDESC
+	RSTACK	
+
+
+	.FUNCT	ENTERS?,DIR,WHERE
+	EQUAL?	DIR,P?IN /TRUE
+	FSET?	WHERE,TOUCHBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	TELL-OPEN-DOOR
+	PRINTI	" opens the door for a moment and"
+	RTRUE	
+
+
+	.FUNCT	TELL-HIS-HER-BEDROOM,CHR,WHERE,?TMP1
+	EQUAL?	CHR,BUTLER-C \?CND1
+	CALL	PRINTT,WHERE
+	RTRUE	
+?CND1:	INC	'CHR
+	GET	CHAR-ROOM-TABLE,CHR >?TMP1
+	GET	CHAR-CLOSET-TABLE,CHR
+	EQUAL?	WHERE,?TMP1,STACK /?PRG9
+	CALL	PRINTT,WHERE
+	RTRUE	
+?PRG9:	PRINTI	" h"
+	SUB	CHR,1
+	GET	CHARACTER-TABLE,STACK
+	FSET?	STACK,FEMALE \?PRG16
+	PRINTI	"er "
+	JUMP	?CND11
+?PRG16:	PRINTI	"is "
+?CND11:	FSET?	WHERE,SECRETBIT \?PRG23
+	PRINTI	"entrance"
+	RTRUE	
+?PRG23:	PRINTI	"bedroom"
+	RTRUE	
+
+
+	.FUNCT	TELL-LOCKING-THE-DOOR,DOOR
+	ZERO?	DOOR /FALSE
+	FSET?	DOOR,LOCKED \FALSE
+	PRINTI	", locking the door"
+	RTRUE	
+
+
+	.FUNCT	MOVE-PERSON,PERSON,WHERE,DIR,EDIR,GT=0,OL,COR,PCOR,CHR,DOOR=0,VAL=0,X
+	FSET?	PERSON,MUNGBIT /FALSE
+	EQUAL?	PERSON,CONFESSED,CAPTOR,FOLLOWER /FALSE
+	EQUAL?	PERSON,BUTLER \?CND1
+	EQUAL?	AWAITING-REPLY,BUTLER-1-R,BUTLER-2-R /FALSE
+	EQUAL?	AWAITING-REPLY,BUTLER-3-R,BUTLER-4-R /FALSE
+?CND1:	PUTP	PERSON,P?LDESC,6
+	EQUAL?	PERSON,BUTLER \?CND11
+	BTST	PRESENT-TIME,1 /FALSE
+?CND11:	GETP	PERSON,P?CHARACTER >CHR
+	GET	GOAL-TABLES,CHR >GT
+	LOC	PERSON >OL
+	CALL	DIR-FROM,OL,WHERE >DIR
+	CALL	COMPASS-EQV,OL,DIR >EDIR
+	SET	'GOAL-PERSON,PERSON
+	ZERO?	DIR /?CND15
+	GETPT	OL,DIR >X
+	ZERO?	X /?CND15
+	PTSIZE	X
+	EQUAL?	STACK,DEXIT \?CND15
+	GETB	X,DEXITOBJ >DOOR
+?CND15:	CALL	CORRIDOR-LOOK,PERSON >PCOR
+	GET	GT,GOAL-FUNCTION
+	CALL	D-APPLY,STR?141,STACK,G-ENROUTE
+	EQUAL?	M-FATAL,STACK \?CCL22
+	CALL	THIS-IS-IT,PERSON
+	RETURN	2
+?CCL22:	EQUAL?	PERSON,PLAYER \?CCL26
+	ZERO?	DOOR /?CND20
+	FSET	DOOR,SEENBIT
+	CALL	WALK-THRU-DOOR?,X
+	ZERO?	STACK \?CND20
+	RETURN	2
+?CCL26:	ZERO?	NOW-WEARING /?CCL34
+	ZERO?	LIT /?CND20
+	FSET?	PERSON,NDESCBIT /?CND20
+?CCL34:	EQUAL?	OL,HERE \?CCL40
+	SET	'VAL,TRUE-VALUE
+	CALL	HE-SHE-IT,PERSON,TRUE-VALUE
+	ZERO?	DOOR /?CND43
+	FSET?	DOOR,OPENBIT /?CND43
+	FSET	DOOR,TOUCHBIT
+	CALL	TELL-OPEN-DOOR
+?CND43:	EQUAL?	DIR,P?OUT \?CCL49
+	PRINTI	" leaves.
+"
+	JUMP	?CND20
+?CCL49:	CALL	ENTERS?,DIR,WHERE
+	ZERO?	STACK /?PRG58
+	PRINTI	" enters"
+	CALL	TELL-HIS-HER-BEDROOM,CHR,WHERE
+	CALL	TELL-LOCKING-THE-DOOR,DOOR
+	PRINTI	".
+"
+	JUMP	?CND20
+?PRG58:	PRINTI	" walks "
+	EQUAL?	DIR,P?UP,P?DOWN \?CCL62
+	CALL	DIR-PRINT,DIR
+	JUMP	?CND60
+?CCL62:	FSET?	WHERE,TOUCHBIT \?CCL64
+	PRINTI	"to"
+	CALL	TELL-HIS-HER-BEDROOM,CHR,WHERE
+	JUMP	?CND60
+?CCL64:	CALL	DIR-PRINT,EDIR
+?CND60:	CALL	TELL-LOCKING-THE-DOOR,DOOR
+	PRINTI	".
+"
+	JUMP	?CND20
+?CCL40:	EQUAL?	WHERE,HERE \?CCL70
+	ZERO?	NOW-WEARING \?CCL73
+	PRINTI	"When you hear the door begin to open, you"
+	PRINT	REMEMBER-NOT-DRESSED
+	PRINTI	" and hop into "
+	PRINTD	YOUR-BATHROOM
+	PRINTI	".
+"
+	CALL	GOTO,YOUR-BATHROOM
+	SET	'VAL,M-FATAL
+	JUMP	?CND20
+?CCL73:	ZERO?	GT /?CCL76
+	GET	GT,GOAL-F
+	EQUAL?	HERE,STACK /?CND20
+?CCL76:	SET	'VAL,TRUE-VALUE
+	CALL	START-SENTENCE,PERSON
+	ZERO?	DOOR /?CND79
+	FSET?	DOOR,OPENBIT /?CND79
+	FSET	DOOR,TOUCHBIT
+	CALL	TELL-OPEN-DOOR
+?CND79:	EQUAL?	PRSA,V?WALK \?PRG90
+	EQUAL?	OL,OHERE \?PRG90
+	PRINTI	" follows you"
+	JUMP	?PRG97
+?PRG90:	PRINTI	" walks past you from"
+	EQUAL?	DIR,P?UP,P?DOWN \?CCL94
+	PRINTC	32
+	CALL	OPP-DIR,DIR
+	CALL	DIR-PRINT,STACK
+	JUMP	?PRG97
+?CCL94:	CALL	TELL-HIS-HER-BEDROOM,CHR,OL
+?PRG97:	PRINTI	".
+"
+	JUMP	?CND20
+?CCL70:	GETP	HERE,P?CORRIDOR >COR
+	ZERO?	COR /?CND20
+	ZERO?	PCOR /?CCL102
+	CALL	CORRIDOR-LOOK,WHERE
+	ZERO?	STACK \?CCL105
+	SET	'VAL,TRUE-VALUE
+	EQUAL?	PERSON,P-HER-OBJECT \?CCL108
+	FSET?	HER,TOUCHBIT \?CCL108
+	PRINTI	"She"
+	JUMP	?CND106
+?CCL108:	EQUAL?	PERSON,P-HIM-OBJECT \?CCL114
+	FSET?	HIM,TOUCHBIT \?CCL114
+	PRINTI	"He"
+	JUMP	?CND106
+?CCL114:	CALL	START-SENTENCE,PERSON
+	PRINTC	44
+	CALL	WHERE?,PERSON,PCOR
+	PRINTC	44
+?CND106:	ZERO?	DOOR /?CND123
+	FSET?	DOOR,OPENBIT /?CND123
+	FSET	DOOR,TOUCHBIT
+	CALL	TELL-OPEN-DOOR
+?CND123:	CALL	ENTERS?,DIR,WHERE
+	ZERO?	STACK /?PRG132
+	PRINTI	" enters"
+	CALL	TELL-HIS-HER-BEDROOM,CHR,WHERE
+	JUMP	?CND127
+?PRG132:	PRINTI	" disappears "
+	EQUAL?	DIR,P?UP,P?DOWN /?CND134
+	PRINTI	"to the "
+?CND134:	CALL	DIR-PRINT,EDIR
+?CND127:	CALL	TELL-LOCKING-THE-DOOR,DOOR
+	PRINTI	".
+"
+	JUMP	?CND20
+?CCL105:	SET	'VAL,TRUE-VALUE
+	CALL	START-SENTENCE,PERSON
+	PRINTI	" is"
+	CALL	WHERE?,PERSON,PCOR
+	PRINTI	", heading "
+	EQUAL?	PCOR,DIR \?CCL146
+	PRINTI	"away from you"
+	JUMP	?PRG157
+?CCL146:	CALL	OPP-DIR,DIR
+	EQUAL?	PCOR,STACK \?CCL150
+	PRINTI	"toward you"
+	JUMP	?PRG157
+?CCL150:	EQUAL?	DIR,P?UP,P?DOWN /?CND153
+	PRINTI	"toward the "
+?CND153:	CALL	DIR-PRINT,EDIR
+?PRG157:	PRINTI	".
+"
+	JUMP	?CND20
+?CCL102:	CALL	CORRIDOR-LOOK,WHERE >PCOR
+	ZERO?	PCOR /?CND20
+	SET	'VAL,TRUE-VALUE
+	CALL	WHERE?,PERSON,PCOR,TRUE-VALUE
+	CALL	HE-SHE-IT,PERSON,0,STR?142
+	CALL	DIR-FROM,WHERE,OL
+	CALL	COMPASS-EQV,HERE,STACK >DIR
+	EQUAL?	DIR,P?IN /?PRG166
+	PRINTI	" from"
+	CALL	TELL-HIS-HER-BEDROOM,CHR,OL
+?PRG166:	PRINTI	".
+"
+?CND20:	ZERO?	VAL /?CND168
+	IN?	LUGGAGE,PERSON \?CND168
+	ZERO?	NOW-WEARING /?CND168
+	CALL	HE-SHE-IT,PERSON,TRUE-VALUE,STR?1
+	PRINTI	" carrying "
+	PRINTD	LUGGAGE
+	PRINTI	".
+"
+?CND168:	ZERO?	PERSON /?CND175
+	MOVE	PERSON,WHERE
+?CND175:	ZERO?	GT /?CND177
+	GET	GT,GOAL-F
+	EQUAL?	STACK,WHERE \?CCL181
+	CALL	GOAL-REACHED,PERSON >X
+	ZERO?	X \?CCL184
+	EQUAL?	HERE,WHERE \?CCL184
+	FSET?	PERSON,NDESCBIT /?CCL184
+	SET	'VAL,TRUE-VALUE
+	CALL	HE-SHE-IT,PERSON,TRUE-VALUE
+	PRINTI	" enters and nods to you."
+	CRLF	
+	JUMP	?CND177
+?CCL184:	ZERO?	X /?CND177
+	EQUAL?	VAL,M-FATAL /?CND177
+	SET	'VAL,X
+	JUMP	?CND177
+?CCL181:	GET	GT,GOAL-FUNCTION
+	CALL	D-APPLY,STR?141,STACK,G-ENROUTE >X
+	ZERO?	X \?CCL195
+	IN?	PERSON,HERE \?CCL195
+	FSET?	PERSON,TOUCHBIT /?CCL195
+	GETP	PERSON,P?DESCFCN
+	CALL	STACK,M-OBJDESC >X
+	ZERO?	X /?CND177
+	SET	'VAL,TRUE-VALUE
+	JUMP	?CND177
+?CCL195:	ZERO?	X /?CND177
+	EQUAL?	VAL,M-FATAL /?CND177
+	SET	'VAL,X
+?CND177:	ZERO?	VAL /FALSE
+	CALL	THIS-IS-IT,PERSON
+	EQUAL?	VAL,M-FATAL /?CND207
+	FSET	WHERE,SEENBIT
+	PUT	FOLLOW-LOC,CHR,WHERE
+?CND207:	RETURN	VAL
+
+
+	.FUNCT	COMPASS-EQV,RM,DIR,DIRTBL,DIRL,P,L,TBL,VAL=0,?TMP1
+	EQUAL?	DIR,P?UP,P?DOWN /?CND1
+	EQUAL?	DIR,P?IN,P?OUT /?CND1
+	RETURN	DIR
+?CND1:	GETPT	RM,DIR >DIRTBL
+	PTSIZE	DIRTBL >DIRL
+	SET	'P,0
+?PRG5:	ZERO?	VAL /?CCL9
+	RETURN	VAL
+?CCL9:	NEXTP	RM,P >P
+	ZERO?	P /FALSE
+	LESS?	P,LOW-DIRECTION /?PRG5
+	GETPT	RM,P >TBL
+	PTSIZE	TBL >L
+	EQUAL?	L,DIRL \?PRG5
+	DEC	'L
+?PRG15:	GETB	TBL,L >?TMP1
+	GETB	DIRTBL,L
+	EQUAL?	?TMP1,STACK \?PRG5
+	DLESS?	'L,0 \?PRG15
+	SET	'VAL,P
+	JUMP	?PRG5
+
+
+	.FUNCT	DIR-EQV?,RM,DIR1,DIR2,DIR1TBL,DIR2TBL,L,?TMP1
+	EQUAL?	DIR1,DIR2 /TRUE
+	GETPT	RM,DIR1 >DIR1TBL
+	ZERO?	DIR1TBL /FALSE
+	GETPT	RM,DIR2 >DIR2TBL
+	ZERO?	DIR2TBL /FALSE
+	PTSIZE	DIR1TBL >L
+	PTSIZE	DIR2TBL
+	EQUAL?	L,STACK \FALSE
+	DEC	'L
+?PRG9:	GETB	DIR1TBL,L >?TMP1
+	GETB	DIR2TBL,L
+	EQUAL?	?TMP1,STACK \FALSE
+	DLESS?	'L,0 \?PRG9
+	RTRUE	
+
+
+	.FUNCT	DIR-FROM,HERE,THERE,V=0,P,D
+	CALL	DIR-FROM-TEST,HERE,THERE,P?UP
+	ZERO?	STACK /?CCL3
+	RETURN	P?UP
+?CCL3:	CALL	DIR-FROM-TEST,HERE,THERE,P?DOWN
+	ZERO?	STACK /?CCL5
+	RETURN	P?DOWN
+?CCL5:	CALL	DIR-FROM-TEST,HERE,THERE,P?IN
+	ZERO?	STACK /?CCL7
+	RETURN	P?IN
+?CCL7:	CALL	DIR-FROM-TEST,HERE,THERE,P?OUT
+	ZERO?	STACK /?CND1
+	RETURN	P?OUT
+?CND1:	SET	'P,0
+?PRG9:	NEXTP	HERE,P >P
+	LESS?	P,LOW-DIRECTION \?CCL13
+	RETURN	V
+?CCL13:	CALL	DIR-FROM-TEST,HERE,THERE,P >D
+	ZERO?	D /?PRG9
+	LESS?	D,LOW-DIRECTION /?PRD19
+	RETURN	P
+?PRD19:	ZERO?	V \?CCL17
+	SET	'V,P
+	JUMP	?PRG9
+?CCL17:	RETURN	P
+
+
+	.FUNCT	DIR-FROM-TEST,HERE,THERE,P,L,TBL
+	GETPT	HERE,P >TBL
+	ZERO?	TBL /FALSE
+	PTSIZE	TBL >L
+	EQUAL?	L,DEXIT,UEXIT,CEXIT \FALSE
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE \FALSE
+	RETURN	P
+
+
+	.FUNCT	I-PLAYER,ARG,VAL=0
+	LOC	PLAYER >HERE
+	EQUAL?	ARG,G-REACHED \?CCL3
+	CALL	MAKE-ALL-PEOPLE,-12
+	RTRUE	
+?CCL3:	EQUAL?	ARG,G-ENROUTE \FALSE
+	EQUAL?	OHERE,HERE /FALSE
+	CALL	LIT?
+	ZERO?	STACK /?PRG20
+	EQUAL?	HERE,MAZE /?PRG20
+	SET	'VAL,HERE
+	FSET?	VAL,SECRETBIT \?PRD14
+	FSET?	HERE,SEENBIT \?PRG20
+?PRD14:	RANDOM	100
+	LESS?	50,STACK /FALSE
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,PLAYER >VAL
+	ZERO?	VAL /FALSE
+?PRG20:	PRINTI	"But "
+	FSET?	HERE,SURFACEBIT \?PRG27
+	PRINTI	"on"
+	JUMP	?PRG29
+?PRG27:	PRINTI	"in"
+?PRG29:	CALL	PRINTT,HERE
+	ZERO?	VAL \?CCL33
+	PRINTI	" you get lost in the dark"
+	JUMP	?PRG46
+?CCL33:	FSET?	VAL,SECRETBIT \?CCL37
+	PRINTI	" you realize that you don't know the way"
+	JUMP	?PRG46
+?CCL37:	EQUAL?	VAL,GHOST-NEW \?PRG44
+	PRINTI	" the ghost blocks your way"
+	JUMP	?PRG46
+?PRG44:	CALL	HE-SHE-IT,VAL
+	CALL	PICK-ONE-NEW,PLAYER-OBSTACLES
+	PRINT	STACK
+?PRG46:	PRINTI	".
+"
+	CALL	MAKE-ALL-PEOPLE,-12
+	RETURN	2
+
+
+	.FUNCT	GOODNIGHT,RM,PER,CLOSET=0,DR,VAL=0
+	EQUAL?	RM,HERE \?CCL3
+	PRINTD	PER
+	CALL	THIS-IS-IT,PER
+	PRINTI	" shows you firmly to the door, saying"
+	CALL	HE-SHE-IT,PER,0,STR?1
+	PRINTI	" going to bed."
+	CRLF	
+	SET	'VAL,WINNER
+	SET	'WINNER,PLAYER
+	PUTP	PER,P?LINE,0
+	GETPT	HERE,P?OUT
+	GETB	STACK,REXIT
+	CALL	GOTO,STACK
+	SET	'WINNER,VAL
+	JUMP	?CND1
+?CCL3:	EQUAL?	CLOSET,HERE \?CND1
+	CALL	FIND-FLAG-LG,CLOSET,DOORBIT,SECRETBIT >DR
+	ZERO?	DR /?CND1
+	EQUAL?	DR,SECRET-HYDE-DOOR,SECRET-IRIS-DOOR /?CND1
+	FSET?	DR,OPENBIT \?CND1
+	FCLEAR	DR,OPENBIT
+	GETP	PER,P?CHARACTER
+	PUT	FOUND-PASSAGES,STACK,TRUE-VALUE
+	CALL	LIT? >LIT
+	PRINTD	PER
+	PRINTI	" closes the "
+	PRINTD	DR
+	PRINTI	" without noticing you."
+	CRLF	
+	SET	'VAL,TRUE-VALUE
+?CND1:	FCLEAR	RM,ONBIT
+	FSET	PER,MUNGBIT
+	FCLEAR	RM,OPENBIT
+	FSET	RM,LOCKED
+	EQUAL?	PER,FOLLOWER \?CND15
+	SET	'FOLLOWER,0
+?CND15:	PUTP	PER,P?LDESC,14
+	RETURN	VAL
+
+
+	.FUNCT	GRAB-ATTENTION,PERSON,OBJ=0,N,GT,ATT
+	FSET?	PERSON,MUNGBIT \?CCL3
+	GETP	PERSON,P?LDESC
+	EQUAL?	STACK,14 \?CCL6
+	CALL	TOO-BAD-BUT,PERSON,STR?145
+	RFALSE	
+?CCL6:	CALL	TOO-BAD-BUT,PERSON,STR?146
+	RFALSE	
+?CCL3:	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-FUNCTION
+	EQUAL?	STACK,X-RETIRES \?CCL8
+	EQUAL?	PERSON,GHOST-NEW,CONFESSED,CAPTOR /?CCL8
+	GETP	PERSON,P?CHARACTER
+	EQUAL?	VARIATION,STACK /?CCL8
+	ZERO?	OBJ /?CTR7
+	FSET?	OBJ,PERSONBIT /?CTR7
+	FSET?	OBJ,RMUNGBIT /?CCL8
+?CTR7:	CALL	TOO-BAD-BUT,PERSON,STR?147
+	RFALSE	
+?CCL8:	EQUAL?	PERSON,BUTLER \?CCL17
+	EQUAL?	PRSA,V?ASK-FOR /?PRD20
+	GET	GT,GOAL-S
+	ZERO?	STACK /?CCL17
+?PRD20:	EQUAL?	PRSA,V?THANKS,V?TAKE,V?SORRY /?CCL17
+	EQUAL?	PRSA,V?NO,V?YES /?CCL17
+	EQUAL?	PRSO,DINNER,LUGGAGE /?CCL17
+	CALL	BUTLER-SORRY
+	RFALSE	
+?CCL17:	CALL	ANGRY-REJECT?,PERSON,OBJ >N
+	ZERO?	N /?CND1
+	EQUAL?	N,1 \?CCL28
+	PUSH	STR?70
+	JUMP	?CND26
+?CCL28:	PUSH	STR?69
+?CND26:	CALL	TOO-BAD-BUT,PERSON,STACK
+	RFALSE	
+?CND1:	GET	GT,GOAL-S
+	ZERO?	STACK /?CND29
+	GET	GT,ATTENTION-SPAN >ATT
+	PUT	GT,ATTENTION,ATT
+	ZERO?	ATT \?CCL33
+	PUT	GT,GOAL-ENABLE,1
+	GET	LDESC-STRINGS,17
+	CALL	TOO-BAD-BUT,PERSON,STACK
+	RFALSE	
+?CCL33:	PUT	GT,GOAL-ENABLE,0
+?CND29:	SET	'QCONTEXT,PERSON
+	GETP	PERSON,P?LDESC
+	EQUAL?	STACK,21 /TRUE
+	PUTP	PERSON,P?LDESC,12
+	RTRUE	
+
+
+	.FUNCT	ANGRY-REJECT?,PERSON,OBJ,N
+	EQUAL?	PERSON,GHOST-NEW /FALSE
+	GETP	PERSON,P?LINE >N
+	ZERO?	N /FALSE
+	EQUAL?	PRSA,V?TELL,V?SORRY,V?FORGIVE /FALSE
+	EQUAL?	PRSA,V?GIVE \?CCL9
+	EQUAL?	PRSI,PERSON /FALSE
+?CCL9:	CALL	EVIDENCE?,OBJ,PERSON
+	ZERO?	STACK \FALSE
+	RETURN	N
+
+
+	.FUNCT	WHERE?,PER,X=0,CAP=0,?TMP1
+	IN?	PER,HERE /FALSE
+	ZERO?	X \?CND4
+	PRINTC	44
+	CALL	CORRIDOR-LOOK,PER >X
+?CND4:	ZERO?	CAP \?CND8
+	PRINTC	32
+?CND8:	EQUAL?	X,P?DOWN \?CCL12
+	ZERO?	CAP \?PRG18
+	PRINTC	100
+	JUMP	?PRG20
+?PRG18:	PRINTC	68
+?PRG20:	PRINTI	"ownstairs"
+	RTRUE	
+?CCL12:	EQUAL?	X,P?IN \?CCL23
+	ZERO?	CAP \?PRG29
+	PRINTI	"in"
+	JUMP	?CND24
+?PRG29:	PRINTI	"In"
+?CND24:	GETP	PER,P?CHARACTER >?TMP1
+	LOC	PER
+	CALL	TELL-HIS-HER-BEDROOM,?TMP1,STACK
+	RTRUE	
+?CCL23:	EQUAL?	X,P?OUT \?CCL32
+	ZERO?	CAP \?PRG38
+	PRINTC	106
+	JUMP	?PRG40
+?PRG38:	PRINTC	74
+?PRG40:	PRINTI	"ust outside"
+	RTRUE	
+?CCL32:	ZERO?	CAP \?PRG47
+	PRINTC	116
+	JUMP	?PRG49
+?PRG47:	PRINTC	84
+?PRG49:	PRINTI	"o the "
+	CALL	DIR-PRINT,X
+	RTRUE	
+
+
+	.FUNCT	DIR-PRINT,DIR,CNT=0,TBL,X
+	ZERO?	DIR \?CND1
+	PRINTI	"out of view"
+	RTRUE	
+?CND1:	SET	'TBL,DIR-STRINGS
+?PRG5:	GET	TBL,CNT >X
+	ZERO?	X \?CCL9
+	PRINTI	"out of view"
+	RTRUE	
+?CCL9:	EQUAL?	X,DIR \?CND7
+	ADD	CNT,1
+	GET	TBL,STACK
+	PRINT	STACK
+	RTRUE	
+?CND7:	ADD	CNT,2 >CNT
+	JUMP	?PRG5
+
+
+	.FUNCT	OPP-DIR,DIR,CNT=0,X
+?PRG1:	GET	DIR-STRINGS,CNT >X
+	ZERO?	X /FALSE
+	EQUAL?	X,DIR \?CND3
+	MOD	CNT,4
+	ZERO?	STACK \?CCL9
+	ADD	CNT,2
+	GET	DIR-STRINGS,STACK
+	RSTACK	
+?CCL9:	SUB	CNT,2
+	GET	DIR-STRINGS,STACK
+	RSTACK	
+?CND3:	ADD	CNT,2 >CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	I-TOUR,GARG=0,L
+	GET	TOUR-PATH,TOUR-INDEX >L
+	ZERO?	L \?CND1
+	EQUAL?	FOLLOWER,FRIEND,LORD \FALSE
+	SET	'FOLLOWER,0
+	RFALSE	
+?CND1:	EQUAL?	HERE,GREAT-HALL \?CND5
+	FSET?	DOCTOR,TOUCHBIT /?CND5
+	CALL	QUEUE,I-TOUR,3
+	MOVE	DOCTOR,HERE
+	CALL	DOCTOR-D >L
+	SET	'TOUR-FORCED,FALSE-VALUE
+	RETURN	L
+?CND5:	INC	'TOUR-INDEX
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	CALL	MAKE-ALL-PEOPLE,0
+	CALL	QUEUED?,I-FOUND-IT
+	ZERO?	STACK \?CND9
+	ZERO?	TOUR-FORCED \?CND9
+	CRLF	
+?CND9:	SET	'FOUND-IT,FALSE-VALUE
+	CALL	QUEUE,I-FOUND-IT,0
+	EQUAL?	L,GALLERY \?PRG48
+	PRINTI	"""You two will have time to chat later,"" says "
+	PRINTD	FRIEND
+	PRINTI	", ""but you must excuse us now, "
+	EQUAL?	QCONTEXT,FALSE-VALUE,FRIEND,BUTLER /?CCL19
+	PRINTD	QCONTEXT
+	JUMP	?PRG20
+?CCL19:	PRINTD	DOCTOR
+?PRG20:	PRINTI	", while I show "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	" up to "
+	ZERO?	GENDER-KNOWN \?CCL24
+	PRINTI	"the "
+	CALL	PRINT-COLOR
+	JUMP	?PRG33
+?CCL24:	FSET?	PLAYER,FEMALE \?PRG31
+	PRINTI	"her"
+	JUMP	?PRG33
+?PRG31:	PRINTI	"his"
+?PRG33:	PRINTI	" bedroom. I'm sure "
+	ZERO?	GENDER-KNOWN \?CCL37
+	PRINTI	"our guest"
+	JUMP	?PRG46
+?CCL37:	FSET?	PLAYER,FEMALE \?PRG44
+	PRINTI	"she"
+	JUMP	?PRG46
+?PRG44:	PRINTI	"he"
+?PRG46:	PRINTI	" wants to freshen up for dinner!"""
+	CRLF	
+?PRG48:	PRINTD	FRIEND
+	PRINTI	" guides you "
+	EQUAL?	L,GALLERY \?PRG55
+	PUTP	LORD,P?LDESC,13
+	PUTP	DEB,P?LDESC,13
+	PUTP	OFFICER,P?LDESC,13
+	PRINTI	"up to"
+	JUMP	?PRG57
+?PRG55:	PRINTI	"into"
+?PRG57:	CALL	PRINTT,L
+	PRINTI	".
+
+"
+	FSET	FRIEND,RMUNGBIT
+	CALL	THIS-IS-IT,FRIEND
+	MOVE	FRIEND,L
+	EQUAL?	L,GALLERY,YOUR-ROOM \?CND59
+	PUTP	FRIEND,P?LINE,0
+	PRINTI	"She says, """
+	EQUAL?	L,GALLERY \?PRG68
+	PRINTI	"I know it's confusing, but the British call this the 'first' floor. We just left the 'ground' floor."""
+	CRLF	
+	JUMP	?CND59
+?PRG68:	PRINTI	"You'll be sleeping in the same room that Queen Victoria slept in!"""
+	CRLF	
+?CND59:	EQUAL?	L,GALLERY,YOUR-ROOM /?CND70
+	FSET?	LORD,TOUCHBIT \?CND72
+	FSET	LORD,RMUNGBIT
+?CND72:	MOVE	LORD,L
+	PUT	FOLLOW-LOC,LORD-C,L
+?CND70:	SET	'WINNER,PLAYER
+	CALL	GOTO,L,TRUE-VALUE,FALSE-VALUE
+	EQUAL?	L,YOUR-ROOM /?CCL76
+	CALL	QUEUE,I-TOUR,3
+	JUMP	?CND74
+?CCL76:	EQUAL?	FOLLOWER,FRIEND,LORD \?CND77
+	SET	'FOLLOWER,0
+?CND77:	IN?	BUTLER,L \?CND74
+	LOC	OFFICER
+	CALL	ESTABLISH-GOAL,FRIEND,STACK
+	CALL	TAMARA-LEAVES-YOU
+?CND74:	SET	'TOUR-FORCED,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	I-FRIEND-GREETS,GARG=0
+	PRINTI	"When a door opens in the castle"
+	FSET?	FRONT-GATE,OPENBIT /?PRG7
+	FSET	FRONT-GATE,OPENBIT
+	PRINTI	" and the "
+	PRINTD	FRONT-GATE
+	PRINTI	" creaks open"
+?PRG7:	PRINTI	", you decide to "
+	EQUAL?	HERE,COURTYARD /?PRG13
+	MOVE	CAR,COURTYARD
+	PRINTI	"drive through the gate and "
+?PRG13:	PRINTI	"get out of the car."
+	CRLF	
+	CALL	GOTO,COURTYARD
+	RTRUE	
+
+
+	.FUNCT	BUTLER-APPEARS,GARG=0,LL,L
+	EQUAL?	GARG,G-REACHED \FALSE
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,BUTLER-FETCHES
+	PUTP	BUTLER,P?LDESC,6
+	FSET?	COURTYARD,TOUCHBIT /?CCL6
+	CALL	ESTABLISH-GOAL,BUTLER,COURTYARD
+	RFALSE	
+?CCL6:	LOC	BUTLER >L
+	CALL	META-LOC,LUGGAGE >LL
+	EQUAL?	LL,YOUR-ROOM,YOUR-BATHROOM \?CCL9
+	EQUAL?	FOLLOWER,FRIEND,LORD \?CND10
+	SET	'FOLLOWER,0
+?CND10:	LOC	BUTLER
+	CALL	ESTABLISH-GOAL,BUTLER,STACK
+	RFALSE	
+?CCL9:	EQUAL?	LL,L \?CCL13
+	CALL	BUTLER-FETCHES,G-REACHED
+	RFALSE	
+?CCL13:	CALL	ESTABLISH-GOAL,BUTLER,LL
+	RFALSE	
+
+
+	.FUNCT	BUTLER-FETCHES,GARG=0,L,LL,GT
+	LOC	BUTLER >L
+	CALL	META-LOC,LUGGAGE >LL
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	PUTP	BUTLER,P?LDESC,6
+	EQUAL?	LL,YOUR-ROOM,YOUR-BATHROOM \?CCL3
+	EQUAL?	FOLLOWER,FRIEND,LORD \?CND4
+	SET	'FOLLOWER,0
+?CND4:	PUT	GT,GOAL-FUNCTION,BUTLER-CARRIES
+	LOC	BUTLER
+	CALL	ESTABLISH-GOAL,BUTLER,STACK
+	RFALSE	
+?CCL3:	EQUAL?	L,LL \?CCL7
+	IN?	LUGGAGE,BUTLER /?CCL7
+	PUT	GT,GOAL-FUNCTION,BUTLER-CARRIES
+	CALL	ESTABLISH-GOAL,BUTLER,YOUR-ROOM
+	FCLEAR	LUGGAGE,OPENBIT
+	MOVE	LUGGAGE,BUTLER
+	MOVE	CAR,COURTYARD
+	EQUAL?	L,HERE \FALSE
+	FSET?	BUTLER,NDESCBIT /FALSE
+	CALL	HE-SHE-IT,BUTLER,TRUE-VALUE
+	PRINTI	" takes "
+	PRINTD	LUGGAGE
+	PRINTI	".
+"
+	RFALSE	
+?CCL7:	EQUAL?	GARG,G-REACHED \FALSE
+	FSET?	COURTYARD,TOUCHBIT \?CCL20
+	CALL	META-LOC,LUGGAGE
+	CALL	ESTABLISH-GOAL,BUTLER,STACK
+	RFALSE	
+?CCL20:	CALL	ESTABLISH-GOAL,BUTLER,COURTYARD
+	RFALSE	
+
+
+	.FUNCT	TAMARA-LEAVES-YOU
+	CALL	HE-SHE-IT,FRIEND,TRUE-VALUE
+	PRINTI	" turns to leave, saying, ""Here's "
+	PRINTD	BUTLER
+	IN?	LUGGAGE,BUTLER \?PRG7
+	PRINTI	" with "
+	PRINTD	LUGGAGE
+?PRG7:	PRINTI	", so I'll leave you to rest or freshen up, "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG13
+	PRINTC	46
+?PRG13:	PRINTR	" Dinner's at eight, by the way -- or whenever you hear the gong."""
+
+
+	.FUNCT	BUTLER-CARRIES,GARG=0,L,LL=0
+	LOC	BUTLER >L
+	EQUAL?	GARG,G-ENROUTE \?CCL3
+	EQUAL?	L,FOYER \FALSE
+	FCLEAR	FRONT-DOOR,OPENBIT
+	RFALSE	
+?CCL3:	EQUAL?	GARG,G-REACHED \FALSE
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-ENABLE,0
+	CALL	QUEUE,I-BUTLER-HINTS,7
+	CALL	QUEUE,I-BUTLER-COOKS,9
+	PUTP	BUTLER,P?LDESC,9
+	FCLEAR	BUTLER,NDESCBIT
+	IN?	LUGGAGE,BUTLER \?CND8
+	SET	'LL,TRUE-VALUE
+	MOVE	LUGGAGE,BED
+?CND8:	CALL	QUEUED?,I-TOUR
+	ZERO?	STACK \?CND10
+	EQUAL?	FRIEND,FOLLOWER /?CND10
+	LOC	OFFICER
+	CALL	ESTABLISH-GOAL,FRIEND,STACK
+?CND10:	EQUAL?	L,HERE \FALSE
+	IN?	FRIEND,HERE \?PRG21
+	EQUAL?	FRIEND,FOLLOWER /?PRG21
+	CALL	TAMARA-LEAVES-YOU
+?PRG21:	PRINTI	"The butler enters"
+	ZERO?	LL /?CND23
+	PRINTI	" with "
+	PRINTD	LUGGAGE
+	PRINTI	" and lays it on the bed"
+?CND23:	SET	'QCONTEXT,BUTLER
+	CALL	THIS-IS-IT,BUTLER
+	FSET	BUTLER,TOUCHBIT
+	PUTP	BUTLER,P?LDESC,12
+	SET	'AWAITING-REPLY,BUTLER-1-R
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	PRINTI	".
+""I regret to say, "
+	CALL	TITLE-NAME
+	PRINTI	", that the maid will be unable to unpack for you, due to the arrangements for the late Lord Lionel's memorial birthday dinner,"" he apologizes. """
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+
+
+	.FUNCT	I-BUTLER-HINTS,GARG=0,SAID=0
+	EQUAL?	AWAITING-REPLY,BUTLER-1-R,BUTLER-2-R /?CTR2
+	EQUAL?	AWAITING-REPLY,BUTLER-3-R,BUTLER-4-R \?CCL3
+?CTR2:	CALL	QUEUE,I-BUTLER-HINTS,1
+	RETURN	SAID
+?CCL3:	LESS?	2,BUTLER-HINTS-COUNTER \?CCL7
+	CALL	QUEUE,I-BUTLER-HINTS,0
+	RFALSE	
+?CCL7:	LOC	BUTLER
+	EQUAL?	HERE,STACK \?CCL9
+	GETP	BUTLER,P?LINE
+	ZERO?	STACK \?CCL9
+	SET	'SAID,TRUE-VALUE
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,ATTENTION,5
+	INC	'BUTLER-HINTS-COUNTER
+	CALL	QUEUE,I-BUTLER-HINTS,2
+	SET	'QCONTEXT,BUTLER
+	CALL	THIS-IS-IT,BUTLER
+	PUTP	BUTLER,P?LDESC,12
+	EQUAL?	1,BUTLER-HINTS-COUNTER \?CCL14
+	SET	'AWAITING-REPLY,BUTLER-2-R
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	PRINTD	BUTLER
+	PRINTI	" coughs diffidently and asks, """
+	CALL	TITLE-NAME
+	PRINTI	"? "
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	SET	'SAID,M-FATAL
+	RETURN	SAID
+?CCL14:	EQUAL?	2,BUTLER-HINTS-COUNTER \?CCL18
+	IN?	MACE,BUTLER \FALSE
+	SET	'AWAITING-REPLY,BUTLER-3-R
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	PRINTI	"
+"""
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	""" adds "
+	PRINTD	BUTLER
+	PRINTI	".
+"
+	SET	'SAID,M-FATAL
+	RETURN	SAID
+?CCL18:	EQUAL?	3,BUTLER-HINTS-COUNTER \?CND1
+	CALL	I-BUTLER-COOKS
+	FSET?	SECRET-YOUR-DOOR,OPENBIT /?PRG38
+	PRINTI	"""Ah, by the way, "
+	CALL	TITLE-NAME
+	PRINTI	" -- s"
+	CALL	BUTLER-MIRROR-STORY
+	PRINTI	"Without explaining further, "
+	PRINTD	BUTLER
+	EQUAL?	HERE,YOUR-ROOM \?CCL33
+	PUT	FOLLOW-LOC,BUTLER-C,GALLERY
+	MOVE	BUTLER,GALLERY
+	PUTP	BUTLER,P?LDESC,6
+	PRINTI	" abruptly leaves the room."
+	CRLF	
+	RETURN	SAID
+?CCL33:	PUTP	BUTLER,P?LDESC,20
+	PRINTI	" turns to his work."
+	CRLF	
+	RETURN	SAID
+?PRG38:	PRINTI	"""I hope you have a pleasant stay with us, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG44
+	PRINTC	46
+?PRG44:	PRINTI	" Dinner is at eight."""
+	CRLF	
+	RETURN	SAID
+?CCL9:	IN?	BUTLER,LOCAL-GLOBALS /?CND1
+	CALL	QUEUE,I-BUTLER-HINTS,1
+?CND1:	RETURN	SAID
+
+
+	.FUNCT	I-BUTLER-COOKS,GARG=0,VAL=0
+	EQUAL?	AWAITING-REPLY,BUTLER-1-R,BUTLER-2-R /?CTR2
+	EQUAL?	AWAITING-REPLY,BUTLER-3-R,BUTLER-4-R /?CTR2
+	EQUAL?	3,BUTLER-HINTS-COUNTER /?CCL3
+	CALL	I-BUTLER-HINTS >VAL
+	ZERO?	VAL /?CCL3
+?CTR2:	CALL	QUEUE,I-BUTLER-COOKS,2
+	RETURN	VAL
+?CCL3:	IN?	DINNER,KITCHEN \?CCL10
+	PUTP	BUTLER,P?LDESC,17
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,BUTLER-COOKS
+	CALL	ESTABLISH-GOAL,BUTLER,KITCHEN
+	RETURN	VAL
+?CCL10:	CALL	BUTLER-COOKS,G-REACHED
+	RETURN	VAL
+
+
+	.FUNCT	BUTLER-COOKS,GARG=0,N
+	EQUAL?	GARG,G-REACHED \FALSE
+	PUTP	BUTLER,P?LDESC,11
+	SUB	472,PRESENT-TIME >N
+	GRTR?	N,0 /?CND4
+	SET	'N,1
+?CND4:	IN?	DINNER,KITCHEN \?CCL8
+	CALL	QUEUE,I-BUTLER-SERVES,N
+	RFALSE	
+?CCL8:	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,BUTLER-LEAVES
+	PUTP	BUTLER,P?LDESC,17
+	CALL	ESTABLISH-GOAL,BUTLER,KITCHEN
+	RFALSE	
+
+
+	.FUNCT	I-BUTLER-SERVES,GARG=0
+	MOVE	DINNER,BUTLER
+	PUTP	BUTLER,P?LDESC,17
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,BUTLER-SERVES
+	CALL	ESTABLISH-GOAL,BUTLER,DINING-ROOM
+	IN?	BUTLER,HERE \FALSE
+	PRINTD	BUTLER
+	PRINTR	" takes dinner."
+
+
+	.FUNCT	BUTLER-SERVES,GARG=0
+	EQUAL?	GARG,G-REACHED \FALSE
+	EQUAL?	HERE,DINING-ROOM \?CND4
+	CALL	HE-SHE-IT,BUTLER,TRUE-VALUE
+	PRINTI	" appears"
+?CND4:	IN?	DINNER,BUTLER \?CND8
+	EQUAL?	HERE,DINING-ROOM \?CND10
+	PRINTI	", puts dinner on the "
+	PRINTD	SIDEBOARD
+?CND10:	MOVE	DINNER,SIDEBOARD
+?CND8:	IN?	LETTER,BUTLER \?CND14
+	EQUAL?	HERE,DINING-ROOM \?CND16
+	FCLEAR	LETTER,NDESCBIT
+	PRINTI	", leaves a note on Jack's napkin"
+?CND16:	MOVE	LETTER,TABLE-DINING
+	FSET	LETTER,TAKEBIT
+?CND14:	FSET	CLUE-1,TAKEBIT
+	PUTP	BUTLER,P?LDESC,17
+	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,BUTLER-LEAVES
+	CALL	ESTABLISH-GOAL,BUTLER,KITCHEN
+	EQUAL?	HERE,DINING-ROOM \FALSE
+	PRINTR	", and looks around the room."
+
+
+	.FUNCT	X-WAITS,GARG=0
+	EQUAL?	GARG,G-REACHED \FALSE
+	PUTP	GOAL-PERSON,P?LDESC,9
+	RFALSE	
+
+
+	.FUNCT	I-DINNER,GARG=0,N,CH,SAID=0
+	SET	'N,MASS-COUNTER
+?PRG1:	IGRTR?	'N,DEB-C \?CCL5
+	SET	'MASS-SAID,FALSE-VALUE
+	SET	'MASS-COUNTER,0
+	CALL	QUEUED?,I-DINNER-SIT
+	ZERO?	STACK \FALSE
+	CALL	QUEUE,I-DINNER-SIT,5
+	RFALSE	
+?CCL5:	EQUAL?	N,FRIEND-C \?CND3
+	CALL	QUEUED?,I-TOUR
+	ZERO?	STACK /?CND3
+	CALL	QUEUE,I-TOUR,1
+	RFALSE	
+?CND3:	GET	CHARACTER-TABLE,N >CH
+	EQUAL?	CH,FOLLOWER \?CND11
+	SET	'FOLLOWER,0
+?CND11:	EQUAL?	CH,SHOOTER /?PRG1
+	FSET?	CH,MUNGBIT /?PRG1
+	IN?	CH,DINING-ROOM /?PRG1
+	CALL	QUEUE,I-DINNER,1
+	SET	'MASS-COUNTER,N
+	GET	GOAL-TABLES,N
+	PUT	STACK,GOAL-FUNCTION,X-WAITS
+	CALL	ESTABLISH-GOAL,CH,DINING-ROOM
+	CALL	META-LOC,CH
+	EQUAL?	STACK,HERE /?PRD21
+	RETURN	SAID
+?PRD21:	EQUAL?	HERE,DINING-ROOM /?CND18
+	ZERO?	MASS-SAID /?CCL19
+	EQUAL?	CH,FOLLOWER /?CCL19
+	RETURN	SAID
+?CCL19:	SET	'SAID,TRUE-VALUE
+	SET	'MASS-SAID,TRUE-VALUE
+	EQUAL?	CH,FOLLOWER \?PRG27
+	SET	'FOLLOWER,0
+?PRG27:	CALL	HE-SHE-IT,CH,TRUE-VALUE
+	PRINTI	" says, ""It's time for dinner now. "
+	EQUAL?	NOW-WEARING,DINNER-OUTFIT \?PRG34
+	ZERO?	WASHED \?PRG36
+?PRG34:	PRINTI	"I'll see you in"
+	JUMP	?PRG38
+?PRG36:	PRINTI	"Let's go to"
+?PRG38:	PRINTI	" the "
+	PRINTD	DINING-ROOM
+	PRINTI	"."""
+	CRLF	
+?CND18:	RETURN	SAID
+
+
+	.FUNCT	BUTLER-RINGS-BELL?,FAKE=0,P
+	ZERO?	FAKE \?CCL3
+	ZERO?	BUTLER-RANG-BELL? \FALSE
+?CCL3:	SET	'BUTLER-RANG-BELL?,TRUE-VALUE
+	CALL	QUEUE,I-DINNER,1
+	FSET	CLUE-1,TAKEBIT
+	ZERO?	FAKE \?PRG18
+	EQUAL?	HERE,KITCHEN \?PRG18
+	PRINTD	BUTLER
+	GET	FOLLOW-LOC,BUTLER-C
+	EQUAL?	HERE,STACK /?PRG16
+	PRINTI	" appears and"
+?PRG16:	PRINTI	" pushes a hidden button. "
+?PRG18:	PRINTI	"Suddenly, the dinner bell sounds"
+	PRINTR	"."
+
+
+	.FUNCT	BUTLER-LEAVES,GARG=0,L,VAL=0
+	EQUAL?	GARG,G-REACHED \FALSE
+	CALL	BUTLER-RINGS-BELL? >VAL
+	MOVE	BUTLER,LOCAL-GLOBALS
+	PUT	FOLLOW-LOC,BUTLER-C,0
+	EQUAL?	HERE,DINING-ROOM \?CCL6
+	CALL	QUEUE,I-DINNER-SIT,1
+	JUMP	?CND4
+?CCL6:	EQUAL?	HERE,KITCHEN \?CND4
+	PRINTI	"Then he "
+	IN?	MACE,BUTLER \?PRG14
+	PRINTI	"drops "
+	CALL	PRINTA,MACE
+	PRINTI	", "
+?PRG14:	PRINTI	"bids you good night, ducks into the areaway, locks the door behind him, and leaves the castle."
+	CRLF	
+	SET	'VAL,M-FATAL
+?CND4:	IN?	MACE,BUTLER \?CND16
+	FCLEAR	MACE,NDESCBIT
+	MOVE	MACE,KITCHEN
+?CND16:	RETURN	VAL
+
+
+	.FUNCT	I-DINNER-SIT,GARG=0,SAID=0
+	ZERO?	DINNER-SAT \FALSE
+	FSET?	DINNER,TAKEBIT /?CCL4
+	CALL	POPULATION,DINING-ROOM,PLAYER
+	SUB	DINNER-FOR,STACK
+	LESS?	1,STACK \?CND1
+?CCL4:	LESS?	DINNER-SIT-COUNTER,20 \?CND7
+	INC	'DINNER-SIT-COUNTER
+	MOD	DINNER-SIT-COUNTER,8
+	ZERO?	STACK \?CND7
+	EQUAL?	HERE,KITCHEN /?CND7
+	CALL	BUTLER-RINGS-BELL?,TRUE-VALUE
+	RTRUE	
+?CND7:	CALL	QUEUE,I-DINNER-SIT,1
+	RFALSE	
+?CND1:	SET	'DINNER-SAT,TRUE-VALUE
+	SUB	LIONEL-TIME,PRESENT-TIME
+	CALL	QUEUE,I-LIONEL-SPEAKS,STACK
+	CALL	MAKE-ALL-PEOPLE,10,DINING-ROOM
+	FSET	DINNER,TAKEBIT
+	FCLEAR	DINNER,TRYTAKEBIT
+	MOVE	DINNER-2,TABLE-DINING
+	CALL	BUTLER-RINGS-BELL?
+	EQUAL?	DINING-ROOM,HERE \?CCL15
+	SET	'SAID,M-FATAL
+	MOVE	DINNER,TABLE-DINING
+	PRINTD	DEB
+	PRINTI	" playfully suggests"
+	EQUAL?	VARIATION,FRIEND-C \?PRG22
+	CALL	THIS-IS-IT,LORD
+	PRINTI	" to "
+	PRINTD	LORD
+?PRG22:	PRINTI	" that everyone form a self-serve food line at the buffet. "
+	CALL	HE-SHE-IT,LORD,TRUE-VALUE
+	PRINTI	" and the others good-naturedly accept her suggestion."
+	CRLF	
+	IN?	LETTER,TABLE-DINING \?CND24
+	PRINTI	"As "
+	PRINTD	LORD
+	PRINTI	" takes his place as host, he notices a note lying on his napkin. He picks it up and reads it with a troubled expression."
+	CRLF	
+?CND24:	CALL	DINNER-TALK,28
+	JUMP	?CND13
+?CCL15:	SET	'MISSED-DINNER,TRUE-VALUE
+?CND13:	IN?	LETTER,TABLE-DINING /?CCL29
+	RETURN	SAID
+?CCL29:	MOVE	LETTER,LORD
+	FCLEAR	LETTER,NDESCBIT
+	RETURN	SAID
+
+
+	.FUNCT	I-LIONEL-SPEAKS,GARG=0,SAID=0,P
+	DEC	'LIONEL-SPEAKS-COUNTER
+	ZERO?	LIONEL-SPEAKS-COUNTER /?CCL3
+	CALL	QUEUE,I-LIONEL-SPEAKS,2
+	JUMP	?CND1
+?CCL3:	CALL	QUEUE,I-WITHDRAW,9
+?CND1:	SET	'P,SEARCHER
+	ZERO?	P /?CND4
+	IN?	P,DINING-ROOM \?CCL5
+	IN?	CLUE-1,SIDEBOARD \?CCL5
+	FSET?	CLUE-1,TOUCHBIT \?CND4
+?CCL5:	SET	'P,FALSE-VALUE
+?CND4:	EQUAL?	5,LIONEL-SPEAKS-COUNTER \?CCL13
+	MOVE	VOICE,DINING-ROOM
+	CALL	MAKE-ALL-PEOPLE,16,DINING-ROOM
+	JUMP	?CND11
+?CCL13:	EQUAL?	1,LIONEL-SPEAKS-COUNTER \?CCL15
+	FCLEAR	CLUE-2,NDESCBIT
+	FCLEAR	CLUE-2,SECRETBIT
+	FCLEAR	CLUE-1,SECRETBIT
+	JUMP	?CND11
+?CCL15:	ZERO?	LIONEL-SPEAKS-COUNTER \?CND11
+	ZERO?	P /?CND17
+	FSET	CLUE-1,TAKEBIT
+	FCLEAR	CLUE-1,NDESCBIT
+	MOVE	CLUE-1,P
+?CND17:	MOVE	VOICE,LOCAL-GLOBALS
+	CALL	MAKE-ALL-PEOPLE,18,DINING-ROOM
+?CND11:	EQUAL?	DINING-ROOM,HERE /?CCL20
+	RETURN	SAID
+?CCL20:	SET	'SAID,M-FATAL
+	ZERO?	LIONEL-FORCED /?CCL23
+	SET	'LIONEL-FORCED,FALSE-VALUE
+	JUMP	?CND21
+?CCL23:	CRLF	
+?CND21:	EQUAL?	5,LIONEL-SPEAKS-COUNTER \?CCL26
+	CALL	THIS-IS-IT,BUST
+	FSET	BUST,OPENBIT
+	PRINTD	LORD
+	PRINTI	" and his guests are startled as an unexpected voice suddenly speaks!
+""Good evening, all,"" it says, then breaks into a low chuckle.
+""Good Lord!"" Jack gasps. ""That's Uncle "
+	PRINT	LIONELS-VOICE
+	PRINTI	"!""
+"
+	PRINTD	DOCTOR
+	PRINTI	" points to"
+	CALL	PRINTT,BUST
+	PRINTI	". ""There's where it's coming from!"""
+	CRLF	
+	RETURN	SAID
+?CCL26:	EQUAL?	4,LIONEL-SPEAKS-COUNTER \?CCL30
+	PRINT	LIONELS-VOICE
+	PRINTI	" continues, ""You are all here, I trust, to honor the wish expressed in my will -- that the seven of you should dine together at "
+	PRINTD	CASTLE
+	PRINTI	" on the evening of my birthday."""
+	CRLF	
+	RETURN	SAID
+?CCL30:	EQUAL?	3,LIONEL-SPEAKS-COUNTER \?CCL34
+	CALL	THIS-IS-IT,ARTIFACT
+	CALL	THIS-IS-IT,LORD
+	PRINT	LIONELS-VOICE
+	PRINTI	" continues, ""As you know, I enjoyed adventuring to remote corners of the world. And doubtless you've all heard of the loss of that valuable artifact, which I brought back from one of my expeditions, have you not?""
+The guests nod or mumble vaguely. They all glance toward Jack, as if looking for an official response."
+	CRLF	
+	RETURN	SAID
+?CCL34:	EQUAL?	2,LIONEL-SPEAKS-COUNTER \?CCL38
+	PRINT	LIONELS-VOICE
+	PRINTI	" goes on, "
+	EQUAL?	LORD-C,VARIATION \?CND41
+	CALL	THIS-IS-IT,LORD
+	PRINTI	"""Jack, I'm sure, is only too eager for me to shuffle off this mortal coil so he can inherit the family title and estate. Thus he should be particularly interested in what I'm about to say..."" Once again "
+	PRINT	LIONELS-VOICE
+	PRINTI	" chuckles slyly, then continues."
+	CRLF	
+?CND41:	CALL	THIS-IS-IT,PUNCHBOWL
+	PRINTI	"""The truth is that the artifact is not lost, but hidden. Although I am not yet ready to reveal what it is, I suggest you look under the "
+	PRINTD	PUNCHBOWL
+	PRINTI	"."""
+	CRLF	
+	RETURN	SAID
+?CCL38:	EQUAL?	1,LIONEL-SPEAKS-COUNTER \?CCL48
+	CALL	THIS-IS-IT,CLUE-2
+	PRINTI	"""This "
+	PRINTD	CLUE-1
+	PRINTI	" is merely to sharpen your wits,"" "
+	PRINT	LIONELS-VOICE
+	PRINTI	" goes on.
+"""
+	PRINTD	LOVER
+	PRINTI	", my dear: your one goal in life, I believe, is to become Jack's wife, heaven knows why! Not being Cupid, there is little I can do to help. Knowing the others, I suspect each one has private reasons for wanting my "
+	PRINTD	ARTIFACT
+	PRINTI	". So, for your amusement, I have given a "
+	PRINTD	CLUE-2
+	PRINTI	" to my "
+	EQUAL?	VARIATION,LORD-C \?PRG56
+	PRINTI	"dear friend"
+	JUMP	?PRG58
+?PRG56:	PRINTI	"heir"
+?PRG58:	PRINTI	", which may start you down the path to finding it.""
+With another sardonic chuckle, "
+	PRINT	LIONELS-VOICE
+	PRINTI	" adds, ""Perhaps, "
+	EQUAL?	VARIATION,LORD-C \?CCL62
+	CALL	THIS-IS-IT,PAINTER
+	PRINTD	PAINTER
+	JUMP	?PRG67
+?CCL62:	CALL	THIS-IS-IT,LORD
+	PRINTD	LORD
+?PRG67:	PRINTI	", you would care to SHARE your clue with all the others -- eh, what?"""
+	CRLF	
+	RETURN	SAID
+?CCL48:	ZERO?	LIONEL-SPEAKS-COUNTER /?PRG70
+	RETURN	SAID
+?PRG70:	PRINT	LIONELS-VOICE
+	PRINTI	" finishes, ""So now, my friends, let the game begin!"""
+	CRLF	
+	ZERO?	P /?CND19
+	PRINTD	P
+	PRINTI	" says, ""Well, I for one want to see that "
+	PRINTD	CLUE-1
+	PRINTI	"."" "
+	CALL	THIS-IS-IT,P
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTI	" lifts the "
+	PRINTD	PUNCHBOWL
+	PRINTI	" and takes it."
+	CRLF	
+?CND19:	RETURN	SAID
+
+
+	.FUNCT	MAKE-ALL-PEOPLE,NUM,RM=0,P,NNUM
+	ZERO?	RM \?CND1
+	SET	'RM,HERE
+?CND1:	LESS?	NUM,0 \?CND3
+	SUB	0,NUM >NNUM
+?CND3:	FIRST?	RM >P /?PRG5
+?PRG5:	ZERO?	P /TRUE
+	FSET?	P,PERSONBIT \?CND7
+	GRTR?	NUM,0 \?CCL13
+	PUTP	P,P?LDESC,NUM
+	JUMP	?CND7
+?CCL13:	GETP	P,P?LDESC
+	EQUAL?	NNUM,STACK \?CND7
+	PUTP	P,P?LDESC,0
+?CND7:	NEXT?	P >P /?PRG5
+	JUMP	?PRG5
+
+
+	.FUNCT	I-WITHDRAW,GARG=0,OBJ,NXT,SAID=0
+	ZERO?	TREASURE-FOUND \?CND1
+	CALL	QUEUE,I-SEARCH,9
+	GETP	SEARCHER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,X-SEARCHES
+?CND1:	SUB	BED-TIME,PRESENT-TIME
+	CALL	QUEUE,I-BEDTIME,STACK
+	EQUAL?	HERE,DINING-ROOM,CORR-1,SITTING-ROOM \?CCL5
+	SET	'P-HIM-OBJECT,FALSE-VALUE
+	SET	'P-HER-OBJECT,FALSE-VALUE
+	SET	'SAID,TRUE-VALUE
+	PRINTI	"
+Normally the gentlemen would remain at the table to enjoy cigars and port, while the ladies repair to the "
+	PRINTD	DRAWING-ROOM
+	PRINTI	". But because of tonight's mysterious developments, everyone "
+	EQUAL?	HERE,DINING-ROOM \?PRG13
+	PRINTI	"leaves the "
+	PRINTD	DINING-ROOM
+	JUMP	?PRG15
+?PRG13:	PRINTI	"goes to the "
+	PRINTD	SITTING-ROOM
+?PRG15:	PRINTI	" by unspoken agreement."
+	CRLF	
+	JUMP	?CND3
+?CCL5:	EQUAL?	HERE,JACK-ROOM,TAMARA-ROOM,IRIS-ROOM /?CCL17
+	EQUAL?	HERE,WENDISH-ROOM,VIVIEN-ROOM,IAN-ROOM /?CCL17
+	EQUAL?	HERE,HYDE-ROOM \?CND3
+?CCL17:	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE
+	SUB	STACK,1
+	GET	CHARACTER-TABLE,STACK
+	LOC	STACK
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS /?CND3
+	SET	'DISCOVERED-HERE,HERE
+	CALL	QUEUE,I-DISCOVERED,1
+?CND3:	LOC	DINNER
+	FSET?	STACK,PERSONBIT \?CND23
+	MOVE	DINNER,TABLE-DINING
+?CND23:	LOC	DINNER-2
+	FSET?	STACK,PERSONBIT \?CND25
+	MOVE	DINNER-2,TABLE-DINING
+?CND25:	FIRST?	DINING-ROOM >OBJ /?KLU37
+?KLU37:	NEXT?	OBJ >NXT /?PRG27
+?PRG27:	ZERO?	NXT /?REP28
+	FSET?	OBJ,PERSONBIT \?CND29
+	EQUAL?	OBJ,PLAYER,CONFESSED,CAPTOR /?CND29
+	PUTP	OBJ,P?LDESC,18
+	GETP	OBJ,P?CHARACTER
+	PUT	FOLLOW-LOC,STACK,SITTING-ROOM
+	MOVE	OBJ,SITTING-ROOM
+?CND29:	SET	'OBJ,NXT
+	NEXT?	OBJ >NXT /?PRG27
+	JUMP	?PRG27
+?REP28:	EQUAL?	HERE,DINING-ROOM /?CCL36
+	RETURN	SAID
+?CCL36:	SET	'WINNER,PLAYER
+	CALL	GOTO,SITTING-ROOM
+	RETURN	SAID
+
+
+	.FUNCT	I-SEARCH,GARG=0,SAID=0,GT,L,X=0
+	LOC	SEARCHER >L
+	EQUAL?	L,DISCOVERED-HERE /?CCL2
+	CALL	QUEUED?,I-LIONEL-SPEAKS
+	ZERO?	STACK /?CND1
+?CCL2:	CALL	QUEUE,I-SEARCH,3
+	RFALSE	
+?CND1:	CALL	QUEUE,I-SEARCH,19
+	RANDOM	6
+	ADD	1,STACK
+	GET	CHARACTER-TABLE,STACK >X
+	IN?	X,SITTING-ROOM \?CND5
+	EQUAL?	X,FOLLOWER,CONFESSED,CAPTOR /?CND5
+	GETP	X,P?LDESC
+	EQUAL?	STACK,22 /?CND5
+	PUTP	X,P?LDESC,22
+	EQUAL?	HERE,SITTING-ROOM \?CND10
+	SET	'SAID,TRUE-VALUE
+	CALL	THIS-IS-IT,X
+	PRINTD	X
+	PRINTI	" begins "
+	GET	LDESC-STRINGS,22
+	PRINT	STACK
+	PRINTC	46
+?CND10:	NEXT?	X >X /?KLU64
+?KLU64:	ZERO?	X /?CND14
+	FSET?	X,PERSONBIT \?CND14
+	EQUAL?	X,PLAYER /?CND14
+	ZERO?	SAID /?CND19
+	GETP	X,P?LDESC
+	EQUAL?	STACK,22 \?CND19
+	CALL	THIS-IS-IT,X
+	PRINTI	" And "
+	PRINTD	X
+	PRINTI	" stops."
+?CND19:	PUTP	X,P?LDESC,13
+?CND14:	ZERO?	SAID /?CND5
+	CRLF	
+?CND5:	SET	'X,DEB-C
+?PRG27:	GET	CHARACTER-TABLE,X >GT
+	EQUAL?	GT,FOLLOWER /?CND29
+	CALL	META-LOC,GT
+	EQUAL?	STACK,HERE,SITTING-ROOM /?CND29
+	CALL	IN-MOTION?,GT
+	ZERO?	STACK \?CND29
+	GETP	GT,P?LDESC
+	EQUAL?	STACK,7 /?CND29
+	GET	GOAL-TABLES,X
+	GET	STACK,GOAL-FUNCTION
+	EQUAL?	STACK,X-RETIRES,X-SEARCHES /?CND29
+	GET	GOAL-TABLES,X
+	PUT	STACK,GOAL-FUNCTION,NULL-F
+	CALL	ESTABLISH-GOAL,GT,SITTING-ROOM
+?CND29:	DLESS?	'X,1 \?PRG27
+	ZERO?	CONFESSED \FALSE
+	GETP	SEARCHER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-FUNCTION
+	EQUAL?	STACK,X-SEARCHES /?PRG42
+	RETURN	SAID
+?PRG42:	SET	'X,CLUE-LOC
+	ZERO?	X /?CCL46
+	CALL	ZMEMQ,X,SEARCH-ROOMS
+	ZERO?	STACK /?CCL46
+	SET	'CLUE-LOC,0
+	JUMP	?CND44
+?CCL46:	CALL	PICK-ONE,SEARCH-ROOMS >X
+?CND44:	EQUAL?	X,L /?PRG42
+	CALL	ESTABLISH-GOAL,SEARCHER,X
+	EQUAL?	HERE,L /?CCL52
+	RETURN	SAID
+?CCL52:	SET	'SAID,TRUE-VALUE
+	PRINTI	"
+Suddenly"
+	CALL	HE-SHE-IT,SEARCHER
+	PRINTI	" heads for the "
+	EQUAL?	HERE,MAZE,GARDEN \?PRG60
+	PRINTI	"exit"
+	JUMP	?PRG62
+?PRG60:	PRINTI	"door"
+?PRG62:	PRINTI	", mumbling, ""Please excuse me."""
+	CRLF	
+	RETURN	SAID
+
+
+	.FUNCT	X-SEARCHES,GARG=0,VAL=0
+	EQUAL?	GARG,G-REACHED /?CCL2
+	RETURN	VAL
+?CCL2:	PUTP	GOAL-PERSON,P?LDESC,21
+	RETURN	VAL
+
+
+	.FUNCT	I-DISCOVERED,GARG=0,VAL=0,L,GT
+	EQUAL?	DISCOVERED-HERE,HERE /?PRD4
+	RETURN	VAL
+?PRD4:	ZERO?	LIONEL-SPEAKS-COUNTER /?CCL2
+	RETURN	VAL
+?CCL2:	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE
+	SUB	STACK,1 >L
+	GET	CHARACTER-TABLE,L >VAL
+	ZERO?	GARG \?CND6
+	IN?	VAL,HERE /FALSE
+	FSET?	VAL,MUNGBIT /FALSE
+	EQUAL?	VAL,CONFESSED /FALSE
+	GETP	VAL,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	GET	STACK,GOAL-FUNCTION
+	EQUAL?	STACK,X-RETIRES /FALSE
+?CND6:	PUT	FOLLOW-LOC,L,HERE
+	CALL	QUEUE,I-FOUND-IT,0
+	EQUAL?	VAL,GHOST-NEW \?PRG20
+	MOVE	GHOST-NEW,HERE
+	CALL	GHOST-LURKS
+	RETURN	2
+?PRG20:	PRINTI	"You freeze as"
+	FSET?	HERE,LOCKED \?PRG27
+	FCLEAR	HERE,LOCKED
+	PRINTI	" a key turns in the lock,"
+?PRG27:	PRINTI	" the door bursts open and"
+	FCLEAR	HERE,OPENBIT
+	GETP	VAL,P?LINE
+	ADD	1,STACK
+	PUTP	VAL,P?LINE,STACK
+	PUTP	VAL,P?LDESC,4
+	CALL	HE-SHE-IT,VAL
+	PRINTI	" appears. "
+	CALL	HE-SHE-IT,VAL,TRUE-VALUE
+	PRINTI	" stares at you with a shocked look. "
+	PRINTI	"""Well! I didn't expect MY room to be searched!"""
+	CALL	HE-SHE-IT,VAL
+	PRINTI	" says angrily. "
+	LOC	VAL >L
+	MOVE	VAL,HERE
+	GETP	VAL,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-S
+	ZERO?	STACK \?CCL38
+	CALL	ESTABLISH-GOAL,VAL,L
+	JUMP	?CND36
+?CCL38:	GET	GT,GOAL-F
+	CALL	ESTABLISH-GOAL,VAL,STACK
+?CND36:	PUT	GT,GOAL-ENABLE,0
+	CALL	HE-SHE-IT,VAL,TRUE-VALUE
+	PRINTI	" enters the room and closes the door behind"
+	CALL	HIM-HER-IT,VAL
+	PRINTI	".
+"
+	IN?	BLOWGUN,VAL \?CND41
+	EQUAL?	VAL,PAINTER,DOCTOR \?CND41
+	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER,VAL
+	ZERO?	STACK \?CND41
+	CALL	SETUP-SHOT,VAL
+	PRINTI	"Then"
+	CALL	HE-SHE-IT,VAL
+	PRINTI	" pulls out"
+	CALL	PRINTT,BLOWGUN
+	PRINTC	33
+	CRLF	
+?CND41:	SET	'VAL,M-FATAL
+	RETURN	VAL
+
+
+	.FUNCT	I-FOUND-PASSAGES,GARG=0,SAID=0,X
+	FIRST?	HERE >X /?KLU12
+?KLU12:	ZERO?	X /?CND1
+	CALL	FOUND-PASSAGES-REPEAT,X,PASSAGE,FOUND-PASSAGES >SAID
+?CND1:	FSET?	HERE,SECRETBIT /?PRD6
+	RETURN	SAID
+?PRD6:	CALL	FIND-FLAG-LG,HERE,DOORBIT >X
+	ZERO?	X /?CND3
+	CALL	DOOR-ROOM,HERE,X >X
+	ZERO?	X /?CND3
+	FIRST?	X >X /?KLU13
+?KLU13:	ZERO?	X /?CND3
+	CALL	FOUND-PASSAGES-REPEAT,X,PASSAGE,FOUND-PASSAGES
+	ZERO?	STACK /?CND3
+	SET	'SAID,TRUE-VALUE
+?CND3:	RETURN	SAID
+
+
+	.FUNCT	FOUND-PASSAGES-REPEAT,PER,OBJ,GL,C,SAID=0
+?PRG1:	ZERO?	PER /?REP2
+	FSET?	PER,PERSONBIT \?CND5
+	FSET?	PER,MUNGBIT /?CND5
+	PUTP	PER,P?LDESC,3
+	GETP	PER,P?CHARACTER >C
+	GET	GL,C
+	ZERO?	STACK \?CND5
+	PUT	GL,C,TRUE-VALUE
+	EQUAL?	C,VARIATION /?CND5
+	PUTP	PER,P?LINE,0
+	ZERO?	SAID \?CND5
+	SET	'SAID,PER
+	EQUAL?	OBJ,PASSAGE \?CND5
+	CALL	GOOD-SHOW,PER,OBJ
+?CND5:	NEXT?	PER >PER /?PRG1
+	JUMP	?PRG1
+?REP2:	RETURN	SAID
+
+
+	.FUNCT	I-BEDTIME,GARG=0,N,CH,VAL=0,L
+	SET	'N,MASS-COUNTER
+	IGRTR?	'N,DEB-C \?CND1
+	SET	'MASS-SAID,FALSE-VALUE
+	SET	'MASS-COUNTER,0
+	RFALSE	
+?CND1:	CALL	QUEUE,I-BEDTIME,5
+	SET	'MASS-COUNTER,N
+	GET	CHARACTER-TABLE,N >CH
+	EQUAL?	CH,SEARCHER \?CND3
+	CALL	QUEUE,I-SEARCH,0
+?CND3:	EQUAL?	CH,CONFESSED,CAPTOR /FALSE
+	FSET?	CH,MUNGBIT /FALSE
+	GET	GOAL-TABLES,N
+	PUT	STACK,GOAL-FUNCTION,X-RETIRES
+	ADD	1,N
+	GET	CHAR-ROOM-TABLE,STACK
+	CALL	ESTABLISH-GOAL,CH,STACK
+	CALL	META-LOC,CH >L
+	CALL	OUTSIDE?,L
+	ZERO?	STACK \?CND9
+	CALL	FIND-FLAG,L,PERSONBIT,CH
+	ZERO?	STACK \?CND9
+	FCLEAR	L,ONBIT
+?CND9:	EQUAL?	L,HERE \?CND13
+	ZERO?	MASS-SAID /?CCL14
+	EQUAL?	CH,FOLLOWER \?CND13
+?CCL14:	SET	'MASS-SAID,TRUE-VALUE
+	SET	'VAL,TRUE-VALUE
+	PUTP	CH,P?LDESC,17
+	PRINTD	CH
+	PRINTI	" says, ""It's time for bed now. I'll see you in the morning."""
+	CRLF	
+?CND13:	EQUAL?	CH,FOLLOWER /?CCL22
+	RETURN	VAL
+?CCL22:	SET	'FOLLOWER,0
+	RETURN	VAL
+
+
+	.FUNCT	FRIEND-PASSAGE-STORY
+	PRINTI	"""Guess what? I just discovered a "
+	PRINTD	PASSAGE
+	PRINTR	" in my room! But it's so late that I'm going to bed now. We'll explore in the morning."""
+
+
+	.FUNCT	X-RETIRES,GARG=0,L,RM,C,VAL=0,OBJ,GT
+	LOC	GOAL-PERSON >L
+	EQUAL?	GOAL-PERSON,CONFESSED,CAPTOR /FALSE
+	EQUAL?	GARG,G-IMPATIENT \?CCL5
+	EQUAL?	L,HERE \?CND1
+	SET	'VAL,TRUE-VALUE
+	CALL	HE-SHE-IT,GOAL-PERSON,TRUE-VALUE
+	PRINTI	" says, ""I'm dead tired. Good night."""
+	CRLF	
+	RETURN	VAL
+?CCL5:	EQUAL?	GARG,G-REACHED /?CCL10
+	RETURN	VAL
+?CCL10:	GETP	GOAL-PERSON,P?CHARACTER >C
+	ADD	1,C
+	GET	CHAR-ROOM-TABLE,STACK >RM
+	GET	GOAL-TABLES,C >GT
+	EQUAL?	L,RM /?CND11
+	FSET?	L,SECRETBIT /?CND13
+	CALL	ESTABLISH-GOAL,GOAL-PERSON,RM
+	RFALSE	
+?CND13:	CALL	FIND-FLAG-LG,L,DOORBIT >OBJ
+	ZERO?	OBJ /?CND15
+	FSET	OBJ,OPENBIT
+?CND15:	CALL	MOVE-PERSON,GOAL-PERSON,RM >VAL
+	ZERO?	OBJ /?CND11
+	FCLEAR	OBJ,OPENBIT
+?CND11:	CALL	FIND-FLAG,RM,SURFACEBIT >OBJ
+	ZERO?	OBJ /?CCL21
+	CALL	ROB,GOAL-PERSON,OBJ
+	JUMP	?CND19
+?CCL21:	CALL	ROB,GOAL-PERSON,RM
+?CND19:	FCLEAR	RM,OPENBIT
+	FSET	RM,LOCKED
+	EQUAL?	VARIATION,LORD-C \?CND22
+	SET	'RM,LIMBO
+?CND22:	EQUAL?	GOAL-PERSON,FRIEND \?CCL26
+	EQUAL?	VARIATION,FRIEND-C /?CCL26
+	GET	FOUND-PASSAGES,PLAYER-C
+	ZERO?	STACK \?CCL26
+	ZERO?	FRIEND-FOUND-PASSAGES \?CCL26
+	GETP	HERE,P?LINE
+	ZERO?	STACK /?CCL26
+	ZERO?	NOW-WEARING /?CCL26
+	FSET?	HERE,SECRETBIT /?CCL26
+	GETP	HERE,P?CHARACTER
+	EQUAL?	STACK,1 /?CCL26
+	EQUAL?	HERE,BACKSTAIRS /?CCL26
+	FCLEAR	SECRET-TAMARA-DOOR,SECRETBIT
+	SET	'VAL,TRUE-VALUE
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CND36
+	CRLF	
+?CND36:	EQUAL?	HERE,TAMARA-ROOM \?CCL40
+	GET	GT,ATTENTION-SPAN
+	PUT	GT,ATTENTION,STACK
+	SET	'WINNER,FRIEND
+	GET	FOLLOW-LOC,FRIEND-C
+	EQUAL?	HERE,STACK \?PRG46
+	PRINTI	"Preparing for bed,"
+	PRINTD	FRIEND
+	JUMP	?PRG48
+?PRG46:	PRINTD	FRIEND
+	PRINTI	" enters and"
+?PRG48:	PRINTI	" accidentally touches the bedpost. "
+	CALL	THIS-IS-IT,FRIEND
+	CALL	OPEN-SECRET,STR?161,STR?162,SECRET-TAMARA-DOOR
+	SET	'WINNER,PLAYER
+	JUMP	?CND24
+?CCL40:	CALL	QUEUED?,I-SHOT
+	ZERO?	STACK \?CND24
+	FSET	PASSAGE,SEENBIT
+	FSET	SECRET-TAMARA-DOOR,OPENBIT
+	MOVE	FRIEND,HERE
+	PUT	FOLLOW-LOC,FRIEND-C,HERE
+	PUT	GT,GOAL-FUNCTION,X-RETIRES
+	CALL	ESTABLISH-GOAL,FRIEND,TAMARA-ROOM
+	PRINTI	"Suddenly "
+	PRINTD	FRIEND
+	PRINTI	" appears and says, "
+	CALL	FRIEND-PASSAGE-STORY
+	JUMP	?CND24
+?CCL26:	CALL	TIME-FOR-GHOST?,RM
+	ZERO?	STACK /?CCL54
+	CALL	QUEUE,I-SEARCH,0
+	EQUAL?	VILLAIN-PER,LOVER \?CCL57
+	PUTP	DEB,P?LDESC,24
+	GET	GT,ATTENTION-SPAN
+	PUT	GT,ATTENTION,STACK
+	LOC	LOVER
+	CALL	DRESS-GHOST,STACK,LOVER-C
+	GET	GOAL-TABLES,GHOST-NEW-C
+	PUT	STACK,GOAL-FUNCTION,LOVER-XFER
+	CALL	ESTABLISH-GOAL,GHOST-NEW,BASEMENT
+	CALL	MOVE-PERSON,GHOST-NEW,LOVER-PATH >VAL
+	JUMP	?CND24
+?CCL57:	CALL	DRESS-GHOST,RM,C
+	CALL	GHOST-INTO-PASSAGE,C >VAL
+	CALL	ESTABLISH-GOAL,GHOST-NEW,YOUR-CLOSET
+	JUMP	?CND24
+?CCL54:	FSET?	GOAL-PERSON,FEMALE \?CCL60
+	PUTP	GOAL-PERSON,P?LDESC,24
+	JUMP	?CND58
+?CCL60:	PUTP	GOAL-PERSON,P?LDESC,25
+?CND58:	PUT	GT,ATTENTION-SPAN,5
+	PUT	GT,ATTENTION,5
+?CND24:	SET	'FRIEND-FOUND-PASSAGES,TRUE-VALUE
+?CND1:	RETURN	VAL
+
+
+	.FUNCT	GHOST-INTO-PASSAGE,C,RM
+	ADD	1,C
+	GET	CHAR-CLOSET-TABLE,STACK >RM
+	MOVE	GHOST-NEW,RM
+	EQUAL?	RM,HERE \FALSE
+	CALL	FIND-FLAG-LG,RM,DOORBIT,SECRETBIT >RM
+	FSET	RM,OPENBIT
+	CRLF	
+	CALL	START-SENTENCE,RM
+	PRINTI	" bursts open!
+"
+	RETURN	M-FATAL
+
+
+	.FUNCT	TIME-FOR-GHOST?,RM,X
+	EQUAL?	VILLAIN-PER,LOVER \?CCL3
+	EQUAL?	GOAL-PERSON,DEB /?CND1
+	RFALSE	
+?CCL3:	EQUAL?	GOAL-PERSON,VILLAIN-PER \FALSE
+?CND1:	IN?	VILLAIN-PER,LOCAL-GLOBALS /FALSE
+	EQUAL?	GOAL-PERSON,FRIEND /FALSE
+	GET	FOUND-COSTUME,PLAYER-C
+	ZERO?	STACK \FALSE
+	FSET?	BLOWGUN,TOUCHBIT /FALSE
+	CALL	FIND-FLAG-LG,RM,DOORBIT,SECRETBIT >X
+	ZERO?	X /?CCL18
+	FSET?	X,OPENBIT /FALSE
+?CCL18:	CALL	FIND-FLAG,RM,PERSONBIT,VILLAIN-PER
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	DRESS-GHOST,L,C,ADJ,PT,?TMP1
+	MOVE	GHOST-NEW,L
+	MOVE	VILLAIN-PER,LOCAL-GLOBALS
+	ADD	1,GHOST-NEW-C >?TMP1
+	ADD	1,C
+	GET	CHAR-CLOSET-TABLE,STACK
+	PUT	CHAR-CLOSET-TABLE,?TMP1,STACK
+	GETP	VILLAIN-PER,P?STATION >ADJ
+	ZERO?	ADJ /?CND1
+	GETPT	HEAD,P?ADJECTIVE >PT
+	PTSIZE	PT
+	SUB	STACK,1
+	CALL	ZMEMQB,ADJ,PT,STACK >OTHER-POSS-POS
+	ZERO?	OTHER-POSS-POS /?CND1
+	PUTB	PT,OTHER-POSS-POS,A?G'S
+	GETPT	HANDS,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,A?G'S
+	GETPT	EYE,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,A?G'S
+	GETPT	OTHER-OUTFIT,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,A?G'S
+?CND1:	FSET	COSTUME,NDESCBIT
+	FCLEAR	COSTUME,TAKEBIT
+	FSET	COSTUME,WORNBIT
+	MOVE	COSTUME,GHOST-NEW
+	EQUAL?	C,DOCTOR-C \?CND5
+	MOVE	MUSTACHE,WENDISH-KIT
+	FCLEAR	MUSTACHE,NDESCBIT
+	FSET	MUSTACHE,TAKEBIT
+?CND5:	EQUAL?	VARIATION,LORD-C /?CND7
+	FSET	BLOWGUN,NDESCBIT
+	FCLEAR	BLOWGUN,TAKEBIT
+	MOVE	BLOWGUN,GHOST-NEW
+?CND7:	GET	GOAL-TABLES,C
+	PUT	STACK,GOAL-FUNCTION,GHOST-LURKS
+	GET	GOAL-TABLES,C
+	PUT	STACK,ATTENTION-SPAN,0
+	RTRUE	
+
+
+	.FUNCT	LOVER-XFER,GARG=0,VAL=0,L
+	LOC	GOAL-PERSON >L
+	EQUAL?	GARG,G-ENROUTE \?CCL3
+	CALL	GHOST-LURKS,GARG >VAL
+	RETURN	VAL
+?CCL3:	EQUAL?	GARG,G-REACHED /?CCL4
+	RETURN	VAL
+?CCL4:	EQUAL?	L,HERE \?CCL7
+	CALL	GHOST-LURKS,GARG >VAL
+	RETURN	VAL
+?CCL7:	EQUAL?	L,BASEMENT \?CCL9
+	MOVE	GOAL-PERSON,KITCHEN
+	CALL	ESTABLISH-GOAL,GOAL-PERSON,BACKSTAIRS
+	CALL	GHOST-LURKS,G-ENROUTE >VAL
+	RETURN	VAL
+?CCL9:	EQUAL?	L,BACKSTAIRS /?CCL10
+	RETURN	VAL
+?CCL10:	MOVE	GOAL-PERSON,DINING-PASSAGE
+	CALL	ESTABLISH-GOAL,GOAL-PERSON,YOUR-CLOSET
+	GETP	GOAL-PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,GHOST-LURKS
+	CALL	GHOST-LURKS,G-ENROUTE >VAL
+	RETURN	VAL
+
+
+	.FUNCT	I-COME-TO,GARG=0,P,L=0,V
+	IN?	GHOST-NEW,LOCAL-GLOBALS \?CCL3
+	SET	'P,VILLAIN-PER
+	PUTP	P,P?LDESC,4
+	EQUAL?	P,LOVER /?CND1
+	GETP	P,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,X-RETIRES
+	GETP	P,P?CHARACTER
+	ADD	1,STACK >L
+	CALL	META-LOC,P
+	FSET?	STACK,SECRETBIT \?CCL8
+	GET	CHAR-CLOSET-TABLE,L >L
+	JUMP	?CND1
+?CCL8:	GET	CHAR-ROOM-TABLE,L >L
+	JUMP	?CND1
+?CCL3:	SET	'P,GHOST-NEW
+	PUTP	P,P?LDESC,0
+	FSET	P,NDESCBIT
+	GETP	P,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,GHOST-LURKS
+	SET	'L,YOUR-CLOSET
+	LOC	P
+	FSET?	STACK,SECRETBIT /?CND1
+	GETP	VILLAIN-PER,P?CHARACTER
+	CALL	GHOST-INTO-PASSAGE,STACK
+?CND1:	FCLEAR	P,MUNGBIT
+	CALL	VISIBLE?,P >V
+	ZERO?	V /?CND11
+	CALL	START-SENTENCE,P
+	CALL	WHERE?,P
+	ZERO?	STACK /?PRG19
+	PRINTC	44
+?PRG19:	PRINTI	" shakes"
+	CALL	HIM-HER-IT,P,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" head and comes to."
+	CRLF	
+	EQUAL?	VILLAIN-PER,LOVER \?CCL23
+	CALL	LOVER-SPEECH
+	ZERO?	STACK /?CCL23
+	SET	'V,M-FATAL
+	JUMP	?CND11
+?CCL23:	EQUAL?	P,GHOST-NEW /?CND11
+	SET	'V,M-FATAL
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTI	" says, ""I feel... sleepy. I think..."""
+	CRLF	
+?CND11:	ZERO?	L /?CND29
+	GETP	P,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-S,TRUE-VALUE
+	CALL	ESTABLISH-GOAL,P,L
+?CND29:	RETURN	V
+
+
+	.FUNCT	LOVER-SPEECH
+	IN?	GHOST-NEW,HERE \?CND1
+	SET	'LOVER-SAID,TRUE-VALUE
+	CALL	HE-SHE-IT,GHOST-NEW,TRUE-VALUE
+	PRINTI	" says, ""Please don't speak, just listen! I'm really "
+	PRINTD	LOVER
+	PRINTI	", and I'm alive. Jack tried to murder me, and I think he murdered Lionel! He pushed me down the well, but an underground stream carried me quickly to sea, where I was rescued by a yacht.
+I have come back to "
+	PRINTD	CASTLE
+	PRINTI	" in disguise -- both to frighten him and to find some proof of Lionel's murder. And to incriminate "
+	PRINTD	LORD
+	PRINTI	" for my own 'murder' by planting the "
+	PRINTD	JEWEL
+	PRINTI	" from my necklace in the clothes he wore that night -- but then I lost it in the "
+	PRINTD	DRAWING-ROOM
+	PRINTI	".""
+She goes on, ""But now that you're on the case, I can leave the country with the yacht captain. Find proof of Lionel's murder, and we both can rest easily!""
+She races off "
+	CALL	GHOST-FLEES,TRUE-VALUE
+	CALL	CONGRATS,COSTUME
+	FSET	LOVER,SEENBIT
+?CND1:	MOVE	GHOST-NEW,LIMBO
+	FSET	GHOST-NEW,MUNGBIT
+	PUT	FOLLOW-LOC,GHOST-NEW-C,0
+	RETURN	LOVER-SAID
+
+
+	.FUNCT	GHOST-FLEES,PART=0
+	ZERO?	PART \?CND1
+	MOVE	GHOST-NEW,LIMBO
+	FSET	GHOST-NEW,MUNGBIT
+	PUT	FOLLOW-LOC,GHOST-NEW-C,0
+	CALL	HE-SHE-IT,GHOST-NEW,TRUE-VALUE
+	PRINTI	" dodges your attack and flees "
+?CND1:	EQUAL?	HERE,LOVER-PATH \?PRG10
+	PRINTI	"down the path"
+	JUMP	?PRG12
+?PRG10:	PRINTI	"toward the "
+	PRINTD	PRIEST-DOOR
+?PRG12:	PRINTR	"."
+
+
+	.FUNCT	GHOST-LURKS,GARG=0,L,OBJ,VAL=0,GT,C
+	LOC	GHOST-NEW >L
+	SET	'C,GHOST-NEW-C
+	GET	GOAL-TABLES,C >GT
+	EQUAL?	L,HERE \?CCL3
+	FSET?	GHOST-NEW,TOUCHBIT /?CND4
+	CALL	GHOST-NEW-D
+?CND4:	SET	'VAL,M-FATAL
+	SET	'AIMED-HERE,HERE
+	PRINTI	"The ghost "
+	CALL	QUEUED?,I-SHOT
+	ZERO?	STACK /?PRG13
+	PRINTI	"follows"
+	JUMP	?CND8
+?PRG13:	PRINTI	"approaches"
+?CND8:	CALL	THIS-IS-IT,GHOST-NEW
+	PRINTI	" you,"
+	CALL	HIM-HER-IT,GHOST-NEW,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" cold eyes shining. In a moment,"
+	CALL	HE-SHE-IT,GHOST-NEW
+	PUT	GT,GOAL-ENABLE,0
+	FSET	PLAYER,SEENBIT
+	SET	'SHOOTER,GHOST-NEW
+	CALL	QUEUE,I-SHOT,CLOCKER-RUNNING
+	EQUAL?	VILLAIN-PER,LOVER \?CCL20
+	PUTP	GHOST-NEW,P?LDESC,17
+	PRINTI	" sees you and freezes."
+	CRLF	
+	RETURN	VAL
+?CCL20:	PUTP	GHOST-NEW,P?LDESC,8
+	PRINTI	" poi"
+	IN?	BLOWGUN,GHOST-NEW \?PRG30
+	SET	'AIMED-HERE,HERE
+	FCLEAR	BLOWGUN,NDESCBIT
+	PRINTI	"nts"
+	CALL	PRINTT,BLOWGUN
+	PRINTI	" at"
+	JUMP	?PRG32
+?PRG30:	PRINTI	"ses to attack"
+?PRG32:	PRINTI	" you."
+	CRLF	
+	RETURN	VAL
+?CCL3:	EQUAL?	GARG,G-REACHED /?CCL34
+	RETURN	VAL
+?CCL34:	EQUAL?	L,YOUR-CLOSET /?CCL37
+	CALL	ESTABLISH-GOAL,GHOST-NEW,YOUR-CLOSET
+	RETURN	VAL
+?CCL37:	ADD	1,C
+	GET	CHAR-CLOSET-TABLE,STACK
+	CALL	ESTABLISH-GOAL,GHOST-NEW,STACK
+	RETURN	VAL
+
+
+	.FUNCT	I-SHOT,GARG=0,VAL=0,L,GT
+	GETP	SHOOTER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	EQUAL?	VILLAIN-PER,LOVER \?CCL3
+	IN?	GHOST-NEW,HERE \?CND4
+	SET	'VAL,TRUE-VALUE
+	CALL	HE-SHE-IT,GHOST-NEW,TRUE-VALUE
+	PRINTI	" flees into the dark."
+	CRLF	
+?CND4:	MOVE	GHOST-NEW,LIMBO
+	FSET	GHOST-NEW,MUNGBIT
+	PUT	FOLLOW-LOC,GHOST-NEW-C,0
+	RETURN	VAL
+?CCL3:	EQUAL?	AIMED-HERE,HERE \?CCL9
+	IN?	BLOWGUN,SHOOTER /?CCL12
+	PRINTI	"You struggle to get free, but"
+	CALL	PRINTT,SHOOTER
+	PRINTI	"'s hands clench tighter around your throat! Soon the pain grows until the room begins to black out"
+	EQUAL?	SHOOTER,GHOST-NEW \?PRG19
+	PRINTI	". Your only consolation is that the ghost's wig falls off, and just as you take your last breath, you see that it's really "
+	PRINTD	VILLAIN-PER
+?PRG19:	PRINTI	"! But"
+	JUMP	?PRG27
+?CCL12:	FSET?	HERE,ONBIT \?PRG25
+	CALL	HE-SHE-IT,SHOOTER,TRUE-VALUE
+	PRINTI	" puts"
+	CALL	PRINTT,BLOWGUN
+	PRINTI	" to"
+	CALL	HIM-HER-IT,SHOOTER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" lips and puffs"
+	CALL	HIM-HER-IT,SHOOTER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" cheeks out and in. "
+?PRG25:	PRINTI	"You feel a sharp pain in the chest. Your vision mists over, the room blacks out, and your legs give way beneath you.
+The sad fact is, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", that you've been shot with a"
+	PRINT	POISON-DART
+	PRINTI	", and"
+?PRG27:	PRINTI	" for you, the game is over!
+"
+	CALL	FINISH
+	RETURN	VAL
+?CCL9:	ZERO?	SHOOTER /?CND1
+	FSET?	SHOOTER,MUNGBIT /?CND1
+	PUT	GT,GOAL-ENABLE,2
+	FSET?	HERE,SECRETBIT \?CCL34
+	SET	'L,HERE
+	JUMP	?CND32
+?CCL34:	EQUAL?	SHOOTER,GHOST-NEW \?CCL36
+	GET	GT,GOAL-F >L
+	JUMP	?CND32
+?CCL36:	CALL	GENERIC-CLOSET,0 >L
+	ZERO?	L \?CND32
+	GETP	VILLAIN-PER,P?CHARACTER
+	ADD	1,STACK
+	GET	CHAR-CLOSET-TABLE,STACK >L
+?CND32:	PUT	GT,GOAL-S,L
+	CALL	ESTABLISH-GOAL,SHOOTER,L
+	SET	'SHOOTER,FALSE-VALUE
+	FSET	BLOWGUN,NDESCBIT
+?CND1:	RETURN	VAL
+
+	.ENDI
diff --git a/goal.zil b/goal.zil
index ae8b5f9..60c26a4 100644
--- a/goal.zil
+++ b/goal.zil
@@ -562,6 +562,7 @@ hop into " 'YOUR-BATHROOM ".|">
 		     <OR <VERB? ASK-FOR>
 			 <T? <GET .GT ,GOAL-S>>>
 		     <NOT <VERB? SORRY TAKE THANKS>>
+		     <NOT <VERB? YES NO>>
 		     <NOT <DOBJ? LUGGAGE DINNER>>>
 		<BUTLER-SORRY>
 		<RFALSE>)
@@ -1754,6 +1755,8 @@ CHE ,GOAL-PERSON " says, \"I'm dead tired. Good night.\"" CR>)>)
 		      <PUTB <GETPT ,HANDS ,P?ADJECTIVE>
 			    ,OTHER-POSS-POS ,A?G\'S>
 		      <PUTB <GETPT ,EYE ,P?ADJECTIVE>
+			    ,OTHER-POSS-POS ,A?G\'S>
+		      <PUTB <GETPT ,OTHER-OUTFIT ,P?ADJECTIVE>
 			    ,OTHER-POSS-POS ,A?G\'S>)>)>
 	<FSET ,COSTUME ,NDESCBIT>
 	<FCLEAR ,COSTUME ,TAKEBIT>
diff --git a/lumber.ozil b/lumber.ozil
new file mode 100644
index 0000000..6d95f0d
--- /dev/null
+++ b/lumber.ozil
@@ -0,0 +1,910 @@
+"Excess baggage from Moomnist"
+
+;<OBJECT DRAWING
+	(IN DESK)
+	(DESC "drawing")
+	(ADJECTIVE LIONEL)
+	(SYNONYM DRAWING DOODLE)
+	(FLAGS TAKEBIT READBIT)
+	(ACTION DRAWING-F)>
+
+;<ROUTINE DRAWING-F ()
+ <COND (<VERB? EXAMINE READ>
+	<TELL "[The drawing portrays ">
+	<COND (<EQUAL? ,VARIATION ,LORD-C>
+	       <TELL
+"the King of Spades, holding a scepter." CR>)
+	      (<EQUAL? ,VARIATION ,FRIEND-C>
+	       <TELL
+"a bird in flight, shot by an arrow and dripping blood." CR>)
+	      (<EQUAL? ,VARIATION ,DOCTOR-C>
+	       <TELL
+"a " 'SKELETON " in Chinese mandarin costume." CR>)
+	      ;(<EQUAL? ,VARIATION ,DEALER-C>
+	       <TELL
+"a coiled cobra rearing its head in response to a snake charmer's flute music."
+CR>)
+	      (<EQUAL? ,VARIATION ,PAINTER-C>
+	       <TELL
+"an underwater diver, naked except for a loincloth." CR>)>)>>
+
+;<OBJECT TOWER-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "tower door")
+	(ADJECTIVE TOWER)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)>
+
+;<ROOM ANTE-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT VOWELBIT OPENBIT DOORBIT)
+	(DESC "anteroom")
+	(ADJECTIVE ANTE NEW TOWER)
+	(SYNONYM ANTEROOM ROOM DOOR)
+	(LDESC "[NE to courtyard, SW to old great hall]")
+	(LINE 3)
+	(STATION OLD-GREAT-HALL)
+	(CHARACTER 2)	;"floor number"
+	(GLOBAL ANTE-ROOM FIREPLACE ;TOWER-DOOR CHAIR)
+	(NE	TO COURTYARD IF ANTE-ROOM ;TOWER-DOOR IS OPEN)
+	(NORTH	TO COURTYARD IF ANTE-ROOM ;TOWER-DOOR IS OPEN)
+	(EAST	TO COURTYARD IF ANTE-ROOM ;TOWER-DOOR IS OPEN)
+	(OUT	TO COURTYARD IF ANTE-ROOM ;TOWER-DOOR IS OPEN)
+	(IN	TO OLD-GREAT-HALL)
+	(SW	TO OLD-GREAT-HALL)
+	(SOUTH	TO OLD-GREAT-HALL)
+	(WEST	TO OLD-GREAT-HALL)>
+
+;<ROUTINE AFRICA-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It depicts the Battle of Blood River, during the Boer War." CR>)>>
+
+;<ROUTINE BURMA-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It's a piece of the bridge over the River Kwai." CR>)>>
+
+;<ROUTINE PHILIPPINE-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It shows Lionel at the American Museum of Natural History." CR>)>>
+
+;<ROUTINE EGYPT-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It's a model of the Egyptian Sphinx, made of real sandstone." CR>)>>
+
+;<ROUTINE PACIFIC-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It's an oyster shell, almost two feet across, with a lining of very dark
+mother-of-pearl." CR>)>>
+
+;<ROUTINE AMAZON-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL
+"It's a wooden model of an Amazon river steamer." CR>)>>
+
+		;<PSEUDO (<> PAINTING AFRICA-PSEUDO)
+			(<> WOOD BURMA-PSEUDO)
+			(<> PHOTO PHILIPPINE-PSEUDO)
+			( MODEL SPHINX EGYPT-PSEUDO)
+			( GIANT OYSTER PACIFIC-PSEUDO)
+			( MODEL BOAT AMAZON-PSEUDO)>
+
+;<OBJECT BRITANNIA
+	(IN OLD-GREAT-HALL)
+	(DESC "statue of Britannia")
+	(LDESC
+"A life-size gilt statue of Britannia with trident reclines over the archway
+leading to the wing.")
+	;(ADJECTIVE LIFE-SIZE GILT)
+	(SYNONYM BRITANNIA STATUE)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT)
+	(CAPACITY 5)
+	(ACTION BRITANNIA-F)>
+
+;<ROUTINE BRITANNIA-F ()
+ <COND (<VERB? EXAMINE SEARCH SEARCH-FOR>
+	<COND (<NOT <==? ,PLAYER-SEATED ,LIBRARY-STOOL>>
+	       <COND (<VERB? EXAMINE>
+		      <RFALSE>)
+		     (T
+		      <YOU-CANT "reach">
+		      <RTRUE>)>)
+	      ;(<AND <IN? ,HEADDRESS ,BRITANNIA>
+		    <FSET? ,HEADDRESS ,SECRETBIT>>
+	       <DISCOVER ,HEADDRESS>
+	       <RTRUE>)>)
+       (<REMOTE-VERB?>
+	<RFALSE>)
+       (<NOT <==? ,PLAYER-SEATED ,LIBRARY-STOOL>>
+	<YOU-CANT "reach">
+	<RTRUE>)>>
+
+;<ROOM STAIRS-0
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "basement stairway")
+	(ADJECTIVE BASEMENT)
+	(SYNONYM STAIR STAIRS STAIRWAY ;ROOM)
+	(GENERIC GENERIC-STAIRS-F)
+	(LDESC
+"The stairs curve up to the southeast and down to the northwest.")
+	(LINE 3)
+	(STATION STAIRS-0)
+	(UP	TO JUNCTION)
+	(EAST	TO JUNCTION)
+	(SOUTH	TO JUNCTION)
+	(SE	TO JUNCTION)
+	(OUT	TO JUNCTION)
+	(DOWN	TO BASEMENT)
+	(NORTH	TO BASEMENT)
+	(WEST	TO BASEMENT)
+	(NW	TO BASEMENT)
+	(IN	TO BASEMENT)>
+
+;<ROOM STAIRS-1
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "first stairway")
+	(ADJECTIVE FIRST)
+	(SYNONYM STAIR STAIRS STAIRWAY)
+	(GENERIC GENERIC-STAIRS-F)
+	(LDESC
+"The stairs curve up to the northeast and down to the southwest.")
+	(LINE 3)
+	(STATION STAIRS-1)
+	(UP	TO CORR-2)
+	(NORTH	TO CORR-2)
+	(EAST	TO CORR-2)
+	(NE	TO CORR-2)
+	(IN	TO CORR-2)
+	(DOWN	TO OLD-GREAT-HALL)
+	(SOUTH	TO OLD-GREAT-HALL)
+	(WEST	TO OLD-GREAT-HALL)
+	(SW	TO OLD-GREAT-HALL)
+	(OUT	TO OLD-GREAT-HALL)>
+
+;<OBJECT JACK-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Lord Jack's door")
+	(ADJECTIVE JACK\'S HIS BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-JACK-DOOR-F)>
+
+;<ROUTINE MAKE-VISIBLE (OBJ)
+	<TELL "You find" THE .OBJ>
+	<FCLEAR .OBJ ,NDESCBIT>
+	<FSET .OBJ ,TAKEBIT>
+	<FSET .OBJ ,TOUCHBIT>
+	<MOVE .OBJ ,PLAYER>
+	<THIS-IS-IT .OBJ>
+	<TELL " and pick it up." CR>>
+
+;<ROUTINE WAR-CLUB-HACK ("OPTIONAL" (SP? T))
+	<COND (<AND <EQUAL? ,HERE ,JACK-ROOM>
+		    <IN? ,CURTAIN-ROD ,HERE>
+		    <FSET? ,CURTAIN-ROD ,NDESCBIT>>
+	       <FCLEAR ,CURTAIN-ROD ,NDESCBIT>
+	       <FSET ,CURTAIN-ROD ,TAKEBIT>
+	       <FSET ,CURTAIN-ROD ,TOUCHBIT>
+	       <MOVE ,CURTAIN-ROD ,WINNER>
+	       <COND (.SP? <TELL !\ >)>
+	       <TELL "By accident," HE ,WINNER pull THE ,CURTAIN-ROD>
+	       <THIS-IS-IT ,CURTAIN-ROD>
+	       <TELL
+" loose, and it winds up in" HIS ,WINNER " hands, with the curtains
+on the floor.">)>>
+
+;<OBJECT DRAPES
+	(IN JACK-ROOM ;LOCAL-GLOBALS)
+	(DESC "set of drapes")
+	(ADJECTIVE WINDOW)
+	(SYNONYM SET CURTAIN DRAPES DRAPERIES)
+	(FLAGS NDESCBIT)
+	(ACTION DRAPES-F)>
+
+;<ROUTINE DRAPES-F ()
+ <COND (<VERB? OPEN CLOSE MOVE MOVE-DIR PUSH TURN>
+	<COND (<WAR-CLUB-HACK <>>
+	       <RTRUE>)
+	      (T <WONT-HELP>)>)
+       (<VERB? EXAMINE TAKE>
+	<TELL "The curtains are of heavy damask material.">
+	<WAR-CLUB-HACK>
+	<CRLF>)>>
+
+;<OBJECT STUDY-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "study door")
+	(ADJECTIVE STUDY)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)>
+
+;<OBJECT LIBRARY-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "library door")
+	(ADJECTIVE LIBRARY)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)
+	(GENERIC GENERIC-LIBRARY-DOOR-F)>
+
+;<OBJECT LIBRARY-STOOL
+	(IN LIBRARY)
+	(DESC "stepstool")
+	(ADJECTIVE STEP)
+	(SYNONYM STOOL STEPSTOOL)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT TAKEBIT)
+	(SIZE 100)
+	(CAPACITY 99)
+	(ACTION LIBRARY-STOOL-F)>
+
+;<ROUTINE LIBRARY-STOOL-F ()
+ <COND (<VERB? SIT CLIMB-ON BOARD>
+	<SETG PLAYER-SEATED ,LIBRARY-STOOL>
+	<TELL "Okay." CR>)>>
+
+;<OBJECT OFFICE-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "office door")
+	(ADJECTIVE OFFICE)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT VOWELBIT SEENBIT)>
+
+;<OBJECT TAMARA-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Tamara's door")
+	(ADJECTIVE TAMARA TAMMY BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-TAMARA-DOOR-F)>
+
+;<ROOM STAIRS-2
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT)
+	(DESC "second stairway")
+	(ADJECTIVE SECOND)
+	(SYNONYM STAIR STAIRS STAIRWAY)
+	(GENERIC GENERIC-STAIRS-F)
+	(LDESC
+"The stairs curve up to the northwest and down to the southeast."
+;"[UP/E to second floor, DOWN/N to first floor]")
+	(LINE 3)
+	(STATION STAIRS-2)
+	(UP	TO CORR-3)
+	(NORTH	TO CORR-3)
+	(WEST	TO CORR-3)
+	(NW	TO CORR-3)
+	(IN	TO CORR-3)
+	(DOWN	TO CORR-2)
+	(SOUTH	TO CORR-2)
+	(EAST	TO CORR-2)
+	(SE	TO CORR-2)
+	(OUT	TO CORR-2)>
+
+;<OBJECT SECRET-LUMBER-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET)
+	(SYNONYM DOOR)
+	(FLAGS SECRETBIT DOORBIT)
+	(GENERIC GENERIC-LUMBER-DOOR-F)>
+
+;<OBJECT LUMBER-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "lumber-room door")
+	(ADJECTIVE LUMBER ROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)
+	(GENERIC GENERIC-LUMBER-DOOR-F)>
+
+;<OBJECT CHAPEL-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "chapel door")
+	(ADJECTIVE CHAPEL)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)>
+
+;<OBJECT GAME-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "game-room door")
+	(ADJECTIVE GAME GAME-ROOM ROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)>
+
+;<ROOM STAIRS-3
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT)
+	(DESC "third stairway")
+	(ADJECTIVE THIRD)
+	(SYNONYM STAIR STAIRS STAIRWAY)
+	(GENERIC GENERIC-STAIRS-F)
+	(LDESC
+"The stairs curve up to the southwest and down to the northeast."
+;"[UP/N to top floor, DOWN/W to second floor]")
+	(LINE 3)
+	(STATION STAIRS-3)
+	(UP	TO DECK)
+	(SOUTH	TO DECK)
+	(WEST	TO DECK)
+	(SW	TO DECK)
+	(OUT	TO DECK)
+	(DOWN	TO CORR-3)
+	(NORTH	TO CORR-3)
+	(EAST	TO CORR-3)
+	(NE	TO CORR-3)
+	(IN	TO CORR-3)>
+
+;<ROOM CURTAIN-WALL
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT SURFACEBIT OPENBIT)
+	(DESC "curtain wall")
+	(ADJECTIVE CURTAIN)
+	(SYNONYM WALL)
+	(LDESC "[S to fighting deck]")
+	(GLOBAL MOON OCEAN)
+	(LINE 3)
+	(STATION DECK)
+	(SOUTH	TO DECK)
+	(IN	TO DECK)
+	(OUT	TO DECK)>
+
+;<OBJECT BLAST
+	(IN CAR)
+	(DESC "blast")
+	(ADJECTIVE INT.NUM SHORT LONG)
+	(SYNONYM BLAST BLASTS)
+	(FLAGS NDESCBIT)>
+
+;<OBJECT FOYER-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "foyer door")
+	(ADJECTIVE FOYER DOUBLE BRONZE)
+	(SYNONYM DOOR DOORS)
+	(FLAGS DOORBIT SEENBIT)>
+
+;<OBJECT DRAWING-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "drawing-room door")
+	(ADJECTIVE DRAWING ROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)
+	(GENERIC GENERIC-DRAWING-DOOR)>
+
+;<OBJECT CARTOON
+	(IN DRAWING-ROOM)
+	(DESC "framed cartoon")
+	;(ADJECTIVE FRAMED DRUNK HUNGOVER)
+	(SYNONYM CARTOON PICTURE RHINO RHINOCEROS)
+	;(GENERIC GENERIC-PAINTING)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION PICTURE-F)>
+
+;<OBJECT FLAGGS
+	(IN GREAT-HALL)
+	(DESC "bunch of flags")
+	(SYNONYM BUNCH FLAGS)
+	(FLAGS CONTBIT OPENBIT NDESCBIT)
+	(CAPACITY 99)
+	(LDESC
+"In the southeast corner of the Great Hall, on a raised dais, is a
+circular metal stand, containing various flags on their standards.")
+	(TEXT
+"The flags include the Union Jack, the flag of the Duchy of Cornwall,
+the regimental colors of the Duke of Cornwall's Light Infantry
+blazoned with the regiment's battle honors, and an embroidered
+yellow household flag.")
+	(ACTION FLAGGS-F)>
+
+;<ROUTINE FLAGGS-F () <FCLEAR ,FLAGGS ,NDESCBIT> <RFALSE>>
+
+;<ROOM STAIRS-NEW
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT SURFACEBIT OPENBIT WEARBIT)
+	(DESC "landing")
+	(ADJECTIVE NEW)
+	(SYNONYM LANDING STAIR STAIRS STAIRWAY)
+	(GENERIC GENERIC-LANDING)
+	(LINE 1)
+	(STATION GREAT-HALL)
+	(GLOBAL FIREPLACE WINDOW STAIRS)
+	(UP	TO GALLERY)
+	(IN	TO GALLERY)
+	(NORTH	"Do you want to go up or down?")
+	(DOWN	TO GREAT-HALL)
+	(OUT	TO GREAT-HALL)
+	(ACTION STAIRS-NEW-F)>
+
+;<ROUTINE STAIRS-NEW-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL-LIKE-BROCHURE>)>>
+
+;<OBJECT SITTING-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "sitting-room door")
+	(ADJECTIVE SITTING ROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT SEENBIT)
+	(GENERIC GENERIC-SITTING-DOOR)>
+
+;<ROUTINE WRITING-DESK-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE LOOK-ON SEARCH SEARCH-FOR>
+	<COND (<IN? ,LETTER-MAID ,WRITING-DESK>
+	       <FCLEAR ,LETTER-MAID ,NDESCBIT>
+	       <FSET ,LETTER-MAID ,TAKEBIT>
+	       <RFALSE>)>)>>
+
+;<OBJECT TAPE-LIONEL
+	(IN RECORDER)
+	(DESC "Lionel's tape")
+	(ADJECTIVE LI\'S HIS)
+	(SYNONYM TAPE LIONEL)
+	(FLAGS NARTICLEBIT ;TAKEBIT)
+	(SIZE 2)>
+
+;<OBJECT CONTROL-PANEL
+	(IN KITCHEN)
+	(ADJECTIVE CONTROL)
+	(SYNONYM PANEL BUTTON SWITCH)
+	(DESC "control panel")
+	(FLAGS SEARCHBIT)
+	(TEXT "It has several buttons and a speaker.")
+	(ACTION CONTROL-PANEL-F)>
+
+;<OBJECT GATE-BUTTON
+	(IN CONTROL-PANEL)
+	(DESC "gate button")
+	(ADJECTIVE ;"FRONT TALL WROUGHT SECURITY" GATE)
+	(SYNONYM BUTTON)
+	(ACTION GATE-BUTTON-F)>
+
+;<ROUTINE CONTROL-PANEL-F ;GATE-BUTTON-F ()
+ <COND (<VERB? LAMP-ON MOVE MOVE-DIR PUSH RUB TURN>
+	<TELL "Nothing seems to happen." CR>)>>
+
+;<OBJECT BROKEN-LAMP
+	(ADJECTIVE BROKEN BRASS)
+	(SYNONYM LAMP LANTERN)
+	(DESC "broken lantern")
+	(FLAGS TAKEBIT)>
+
+;<OBJECT NIGHTLAMP-LG
+	(IN LOCAL-GLOBALS ;NIGHTSTAND-LG)
+	(DESC "lamp")
+	(ADJECTIVE TAM\'S JACK\'S VIV\'S HYDE\'S IAN\'S DOC\'S IRIS\'S)
+	(SYNONYM LAMP LIGHT LIGHTS)
+	(FLAGS ONBIT LIGHTBIT SEENBIT)>
+
+;<OBJECT YOUR-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "your door")
+	(ADJECTIVE MY ;YOUR BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-YOUR-DOOR)>
+
+;<OBJECT IRIS-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Iris's door")
+	(ADJECTIVE IRIS\'S HER BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-IRIS-DOOR-F)>
+
+;<OBJECT WENDISH-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Wendish's door")
+	(ADJECTIVE DOC\'S HIS ;WENDISH BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-WENDISH-DOOR-F)>
+
+;<OBJECT VIVIEN-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Vivien's door")
+	(ADJECTIVE VIV\'S HER BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-VIVIEN-DOOR)>
+
+;<OBJECT IAN-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Ian's door")
+	(ADJECTIVE IAN\'S HIS BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-IAN-DOOR)>
+
+;<OBJECT HYDE-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "Hyde's door")
+	(ADJECTIVE HYDE\'S HIS BED ROOM BEDROOM)
+	(SYNONYM DOOR)
+	(FLAGS OPENBIT DOORBIT NARTICLEBIT)
+	(GENERIC GENERIC-HYDE-DOOR)>
+
+;<ROUTINE DONT-KNOW (PER OBJ) <TELL "\"Dunno.\"" CR>>
+
+;<ROOM UNCONSCIOUS
+	(IN ROOMS)
+	(DESC "limbo")
+	(FLAGS NARTICLEBIT)>
+
+;<ROUTINE UNCONSCIOUS-FCN ("OPTIONAL" (TIM 0) "AUX" HR NXT ;PS)
+	<COND (<0? .TIM> <SET TIM <+ 9 <RANDOM 6>>>)>
+	;<SETG MUNGED-PERSON ,PLAYER>
+	<SET HR <FIRST? ,PLAYER>>
+	<REPEAT ()
+		<SET NXT <NEXT? .HR>>
+		<COND (<NOT <FSET? .HR ,WORNBIT>>
+		       <MOVE .HR <LOC ,PLAYER>>)
+		      (<NOT <EQUAL? .HR ,SLEEP-OUTFIT>>
+		       <FSET .HR ,MUNGBIT>)>
+		<COND (<ZERO? .NXT> <RETURN>)
+		      (T <SET HR .NXT>)>>
+	<SET HR ,HERE>
+	<MOVE ,PLAYER ,UNCONSCIOUS>
+	<SETG HERE ,UNCONSCIOUS>
+	<TELL "...||">
+	<USL>
+	<QUEUE I-COME-TO .TIM>
+	<V-WAIT .TIM <> T>
+	;<INT-WAIT .TIM>
+	<QUEUE I-COME-TO 0>
+	<MOVE ,PLAYER .HR>
+	<SETG HERE .HR>
+	<COND (<ZERO? ,PLAYER-SEATED>
+	       <SETG PLAYER-SEATED <- 0 ,HERE> ;.PS>)>
+	<RTRUE>>
+
+;<ROUTINE ANYONE-VISIBLE? ("OPTIONAL" (VICTIM <>) "AUX" CNT X (VAL <>))
+ <SET CNT 0>
+ <REPEAT ()
+	 <COND (<G? <SET CNT <+ .CNT 1>> ,CHARACTER-MAX>
+		<SET VAL <>>
+		<RETURN>)
+	       (<EQUAL? .VICTIM <SET VAL <GET ,CHARACTER-TABLE .CNT>>>
+		<AGAIN>)
+	       (<VISIBLE? .VAL>
+		<RETURN>)>>
+ .VAL>
+
+"<CONSTANT PASS1-LINE-C 4>
+<CONSTANT PASS2-LINE-C 5>"
+
+"<GLOBAL PASS1-LINE
+	<PTABLE 0	SECRET-LANDING-JACK	P?DOWN
+		P?WEST	PASSAGE-1		P?UP
+		P?DOWN	SECRET-LANDING-TAM	P?NE
+		P?SOUTH	DINING-LANDING		P?NORTH
+		P?DOWN	SECRET-LANDING-LIB	0>>
+
+<GLOBAL PASS2-LINE
+	<PTABLE 0	SECRET-VIVIEN-PASSAGE	P?UP
+		P?DOWN	GARRET-PASSAGE		P?EAST
+		P?WEST	GARRET-CORNER		P?NORTH
+		P?SOUTH	NORTH-CORNER		P?DOWN
+		P?UP	IRIS-CLOSET		P?WEST
+		P?EAST	WENDISH-CORNER		P?SOUTH
+		P?NORTH	DRAWING-CLOSET		P?SOUTH
+		P?NORTH	GALLERY-CORNER		P?WEST
+		P?EAST	HYDE-CLOSET		0>>"
+
+;<
+
+		DRAWING-CLOSET	DRAWING-ROOM	;"transfers from PASS2-LINE"
+		YOUR-CLOSET	YOUR-ROOM
+		SECRET-LANDING-LIB	LIBRARY
+		SECRET-VIVIEN-PASSAGE	SECRET-LANDING-TAM
+		0		0>
+
+;<ROUTINE I-PRE-DINNER ("OPTIONAL" (GARG <>) "AUX" N CH RM ;(SAID <>) GT)
+      %<DEBUG-CODE
+	<COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+	       <TELL "[I-PRE-DINNER:">
+	       <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+	<COND (<EQUAL? ,FOLLOWER ,FRIEND ,LORD>
+	       <SETG FOLLOWER 0>)>
+	;<SET GT <GT-O ,BUTLER>>
+	;<COND (<NOT <==? <GET .GT ,GOAL-FUNCTION> ,BUTLER-COOKS>>
+	       <PUT .GT ,GOAL-FUNCTION ,BUTLER-COOKS>
+	       <ESTABLISH-GOAL ,BUTLER ,KITCHEN>)>
+	<SET N ,MASS-COUNTER>
+	<COND (<IGRTR? N ,CHARACTER-MAX>
+	       <SETG MASS-SAID <>>
+	       <SETG MASS-COUNTER 0>
+	       <RFALSE>)
+	      ;(<EQUAL? .N ,LOVER-C>
+	       <INC N>)>
+	<QUEUE I-PRE-DINNER 1>
+	<SETG MASS-COUNTER .N>
+	<SET CH <GET ,CHARACTER-TABLE .N>>
+	<SET RM <GET ,CHAR-ROOM-TABLE <+ 1 .N>>>
+	<PUT <GET ,GOAL-TABLES .N> ,GOAL-FUNCTION ,X-WASHES>
+	<ESTABLISH-GOAL .CH .RM>
+	<COND (<AND <EQUAL? <META-LOC .CH> ,HERE>
+		    <ZERO? ,MASS-SAID>>
+	       <SETG MASS-SAID T>
+	       <TELL
+D .CH " says, \"It's time to wash up for dinner now.
+I'll see you in the " 'DINING-ROOM ".\"" CR>)>
+      %<DEBUG-CODE
+	<COND (,IDEBUG <TELL N ,MASS-SAID !\] CR>)>>
+	<RETURN ,MASS-SAID>>
+
+;<ROUTINE X-WASHES ("OPTIONAL" (GARG <>))
+ %<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+		     <TELL "[X-WASHES:">
+		     <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+ <COND (<==? .GARG ,G-REACHED>
+	<PUTP ,GOAL-PERSON ,P?LDESC 8 ;"washing up">
+	<RFALSE>)>>
+
+;<ROUTINE I-WITHDRAW ("OPTIONAL" (GARG <>) "AUX" (N 0) CH (SAID <>))
+	%<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+			    <TELL "[I-WITHDRAW:">
+			    <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+	<QUEUE I-BEDTIME <- ,BED-TIME ,PRESENT-TIME>>
+	<COND (<EQUAL? ,DINING-ROOM ,HERE>
+	       <SET SAID T>
+	       <TELL
+D ,LORD " says, \"If you ladies will join Tammy in the " D ,SITTING-ROOM
+", we'll try to puzzle this one out.\"" CR>
+	       <COND (<FSET? ,PLAYER ,FEMALE>
+		      <TELL
+D ,FRIEND " says, \"Won't you join us, "FN"?\"" CR>)>
+	       <ESTABLISH-GOAL ,FRIEND ,SITTING-ROOM>
+	       <ESTABLISH-GOAL ,DEB ,SITTING-ROOM>
+	       <ESTABLISH-GOAL ,PAINTER ,SITTING-ROOM>)>
+      %<DEBUG-CODE
+	<COND (,IDEBUG <TELL N .SAID !\] CR>)>>
+	<RETURN .SAID>>
+
+;<ROUTINE GHOST-DRESSES ("OPTIONAL" (GARG <>) "AUX" L X GT (VAL <>))
+	%<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+			    <TELL "[GHOST-DRESSES:">
+			    <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+	<SET L <LOC ,FRIEND>>
+	<COND (<EQUAL? .L ,HERE>
+	       <TELL
+"Suddenly" HE ,FRIEND " runs smack into you!|
+\"Oh, do pardon me, "FN", but I just discovered this " D ,PASSAGE ",
+and I couldn't resist exploring a little.\"|">
+	       <SET VAL ,M-FATAL>
+	       <PUT <GT-O ,FRIEND> ,GOAL-ENABLE 0>)
+	      (<==? .GARG ,G-REACHED>
+	       <SET VAL <DRESS-GHOST .L ,FRIEND-C>>
+	       <ESTABLISH-GOAL ,GHOST-NEW ,YOUR-CLOSET>)>
+	%<DEBUG-CODE <COND (,IDEBUG <TELL N .VAL "]|">)>>
+	<RETURN .VAL>>
+
+;<OBJECT RUBY
+	;(IN LOCAL-GLOBALS)
+	(DESC "pigeon's-blood ruby")
+	(ADJECTIVE PIGEON BLOOD RED)
+	(SYNONYM RUBY EYE)
+	(FLAGS NDESCBIT SECRETBIT)
+	(SIZE 3)
+	(TEXT
+"a large pigeon's-blood ruby, possibly the most priceless of all gems")
+	(ACTION RUBY-F)>
+
+;<ROUTINE RUBY-F ()
+ <COND (<VERB? EXAMINE>
+	<FCLEAR ,RUBY ,SECRETBIT>
+	<SETG TREASURE-FOUND ,RUBY>
+	<TELL "It's " <GETP ,RUBY ,P?TEXT> "!" CR>)
+       (<AND <VERB? TAKE>
+	     <IN? ,RUBY ,RHINO-HEAD>
+	     <FSET? ,RUBY ,NDESCBIT>>
+	<FCLEAR ,RUBY ,NDESCBIT>
+	<FCLEAR ,RUBY ,SECRETBIT>
+	<FSET ,RUBY ,TAKEBIT>
+	<SETG TREASURE-FOUND ,RUBY>
+	<MOVE ,RUBY ,PLAYER>
+	<TELL
+"It's stuck pretty tightly in its socket, but eventually you pry it loose.
+Your own eyes pop a bit as you examine your find more closely. It's "
+<GETP ,RUBY ,P?TEXT> "!" CR>)>>
+
+;<OBJECT HEADDRESS
+	;(IN LOCAL-GLOBALS)
+	(DESC "Egyptian headdress")
+	(ADJECTIVE EGYPTIAN ;HEAD)
+	(SYNONYM HEADDRESS DRESS)
+	(FLAGS WEARBIT VOWELBIT SECRETBIT)
+	(SIZE 9)
+	(TEXT
+"the gold headdress of a Pharaoh's daughter, in the shape of a coiled
+cobra")
+	(ACTION HEADDRESS-F)>
+
+;<ROUTINE HEADDRESS-F ()
+ <COND (<VERB? EXAMINE>
+	<FCLEAR ,HEADDRESS ,SECRETBIT>
+	<SETG TREASURE-FOUND ,HEADDRESS>
+	<TELL "It's obviously " <GETP ,HEADDRESS ,P?TEXT> "!" CR>)>>
+
+;<OBJECT IAN-EVIDENCE
+	(DESC "Ian's note")
+	(ADJECTIVE IAN\'S JACK\'S HIS)
+	(SYNONYM EVIDENCE NOTE)
+	(FLAGS NDESCBIT READBIT NARTICLEBIT SECRETBIT RMUNGBIT ;"= is evidence")
+	(CHARACTER 5)	;"for this char"
+	(TEXT
+"It's a note from Jack to Ian, offering to pay off his gambling IOU if
+he will take Deirdre off Jack's hands."
+;"It clearly shows how Ian wanted to break up Tamara's romance.")
+	(SIZE 2)>
+
+;<OBJECT HYDE-IOU
+	(DESC "museum report")
+	(ADJECTIVE HYDE\'S HIS MUSEUM)
+	(SYNONYM EVIDENCE REPORT)
+	(FLAGS NDESCBIT READBIT SECRETBIT RMUNGBIT ;"= is evidence")
+	(CHARACTER 6)	;"for this char"
+	(TEXT
+"It's a report from the British Museum, saying their tests have proved
+that a valuable painting from the castle is a very recent fake.
+While it was in his shop for cleaning, Hyde sold the original to one
+of his customers.")
+	(SIZE 4)>
+
+;<OBJECT POCKET
+	(IN ;PLAYER GLOBAL-OBJECTS)
+	(DESC "your pocket")
+	(ADJECTIVE MY)
+	(SYNONYM POCKET)
+	(FLAGS CONTBIT OPENBIT NARTICLEBIT NDESCBIT SEARCHBIT)
+	(CAPACITY 5)
+	(ACTION POCKET-F)>
+
+;<ROUTINE POCKET-F ("AUX" X)
+	 <COND ;(<DIVESTMENT? ,POCKET>
+		<HAR-HAR>)
+	       (<VERB? EXAMINE LOOK-INSIDE LOOK-THROUGH>
+		<TELL "Your pocket ">
+		<COND (<NOT <FIRST? ,POCKET>>
+		       <TELL "is empty." CR>)
+		      (T
+		       <TELL "contains">
+		       <PRINT-CONTENTS ,POCKET>
+		       <TELL "." CR>
+		       ;<SET X <PRINT-CONT ,POCKET ;T>>)>
+		<RTRUE>)
+	       (<VERB? EMPTY>
+		<COND (<FIRST? ,POCKET>
+		       <TELL "You are now holding">
+		       <ROB ,POCKET ,PLAYER T>
+		       <CRLF>)>)
+	       (<VERB? OPEN CLOSE>
+		<TELL "You don't need to do that." CR>)>>
+
+;<OBJECT CLOTHES
+	(IN GLOBAL-OBJECTS ;ADVENTURER)
+	(DESC "your clothes")
+	(ADJECTIVE ;YOUR MY)
+        (SYNONYM CLOTHES)
+	(FLAGS WORNBIT WEARBIT NARTICLEBIT)
+	;(ACTION CLOTHES-F)>
+
+;<ROUTINE CLOTHES-F ("AUX" X)
+	 <COND (<VERB? EXAMINE>
+		<TELL <GETP ,NOW-WEARING ,P?TEXT> CR>)>>
+
+<ROUTINE COMMON-ASK-ABOUT (PER OBJ)
+ <COND 
+       ;(<OR <AND <==? .PER ,LORD>	<==? .OBJ ,OFFICER>>
+	    <AND <==? .PER ,OFFICER>	<==? .OBJ ,LORD>>>
+	<TELL
+"\"We've been mates for years, since serving together in the
+Coldstream Guards.\"" CR>)
+       ;(<EQUAL? .OBJ ,LORD>
+	<TELL "\"A fine young man, and he seems very happy recently.\"" CR>)
+       ;(<EQUAL? .OBJ ,DEB>
+	<DISCRETION .PER .OBJ>
+	<TELL
+"\"She's a kittenish Mayfair deb, who
+comes on as an affectionate girl friend of ">
+	<COND (<==? .PER ,FRIEND> <TELL "mine.\"" CR> <RTRUE>)>
+	<TELL 'FRIEND "'s.">
+	<COND (<==? .PER ,LORD> <TELL "\"" CR> <RTRUE>)>
+	<TELL " But she radiates
+bitchy overtones which suggest that she may have secret designs of her
+own on " 'LORD " Tresyllian, and that she secretly hates " 'FRIEND " for
+beating her time with his lordship.\"" CR>)
+       ;(<EQUAL? .OBJ ,OFFICER>
+	<DISCRETION .PER .OBJ>
+	<TELL
+"\"He's a sporty young London man-about-town and officer in the
+Coldstream Guards. He's a close buddy of " 'LORD "'s, who is himself an
+ex-Guards officer. Belowstairs gossip at the castle hints that Ian was
+madly in love with " 'LOVER ", and that it was a quarrel over him which led
+to her breakup with " 'LORD ".\"" CR>)
+       ;(<EQUAL? .OBJ ,DOCTOR>
+	<TELL
+"\"Nicholas Wendish was, in fact, a classmate of Lionel Tresyllian's at
+Cambridge University, and over the years the two kept in close touch.
+Trained as a medical man and biochemist, " 'DOCTOR " is a leading
+authority on drugs derived from plants and their use in the treatment
+of disease.\"" CR>)
+       ;(<EQUAL? .OBJ ,DEALER>
+	<TELL
+"\"He's a London antique dealer who has come to Cornwall to discuss with ">
+	<COND (<==? .PER ,LORD> <TELL "me">) (T <TELL D ,LORD>)>
+	<TELL
+" the possible sale of Tresyllian family portraits and other objets d'art.\""
+CR>)
+       ;(<EQUAL? .OBJ ,PAINTER>
+	<DISCRETION .PER .OBJ>
+	<TELL
+"\"She's a local painter of vintage beauty and uncertain age,
+who is reputed to have been the mistress of ">
+	<COND (<==? .PER ,LORD> <TELL "my">) (T <TELL "Jack's">)>
+	<TELL " late kinsman Lionel, the previous Lord Tresyllian.\"" CR>)>>
+
+;<GLOBAL EXPLAINED-JEWEL:OBJECT <>>
+
+;<ROUTINE FIND-JEWEL-EXPLAINER ("AUX" O)
+	<SET O <FIRST? ,HERE>>
+	<REPEAT ()
+	 <COND (<NOT .O> <RETURN <>>)
+	       (<AND <FSET? .O ,PERSONBIT>
+		     <NOT <FSET? .O ,RMUNGBIT>>
+		     <NOT <FSET? .O ,MUNGBIT>>
+		     <NOT <EQUAL? .O ,PLAYER ,OFFICER>>>
+		<RETURN .O>)
+	       (T <SET O <NEXT? .O>>)>>>
+
+;<ROUTINE PRE-APOLOGIZE ("AUX" P)
+ <COND (<NOT <DOBJ? ROOMS>>
+	<RFALSE>)
+       (<QCONTEXT-GOOD?>
+	<PERFORM ,PRSA ,QCONTEXT>
+	<RTRUE>)
+       (<SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,WINNER>>
+	<TELL-I-ASSUME .P " to">
+	<PERFORM ,PRSA .P>
+	<RTRUE>)>>
+
+;<ROUTINE V-HIDE ()
+	 <COND ;(<EQUAL? ,HERE ,OFFICE>
+		<TELL "You could hide behind the lounge." CR>)
+	       (T <TELL "There's no good hiding place here." CR>)>>
+
+;<ROUTINE V-HIDE-BEHIND ()
+ <COND (<FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,WINNER>
+	<TELL "As you start to hide">
+	<COND (<T? ,PRSI> <HIM-HER-IT ,PRSO>)>
+	<TELL ", you realize that someone may be watching you." CR>)
+       (T
+	<TELL "There's no room to hide">
+	<COND (<T? ,PRSI> <HIM-HER-IT ,PRSO>)>
+	<TELL " behind">
+	<COND (<T? ,PRSI> <HIM-HER-IT ,PRSI>)
+	      (T <HIM-HER-IT ,PRSO>)>
+	<TELL "." CR>)>>
+
+;<ROUTINE V-KICK () <HACK-HACK "Kicking">>
+
+;<ROUTINE PRE-SHOOT ("AUX" X)
+ <COND (<ZERO? ,PRSI>
+	<COND (<FSET? ,PRSO ,PERSONBIT>
+	       <COND (<SET X <FIND-FLAG ,WINNER ,WEAPONBIT>>
+		      <TELL-I-ASSUME .X " with">
+		      <PERFORM ,V?SHOOT ,PRSO .X>
+		      <RTRUE>)
+		     (T
+		      <SETG CLOCK-WAIT T>
+		      <TELL ,YOU-DIDNT-SAY-W "ith what!]" CR>)>)
+	      (T
+	       <COND (<SET X <FIND-FLAG-HERE ,PERSONBIT ,WINNER>>
+		      <TELL-I-ASSUME .X " at">
+		      <PERFORM ,V?SHOOT .X ,PRSO>
+		      <RTRUE>)
+		     (T
+		      <SETG CLOCK-WAIT T>
+		      <TELL ,YOU-DIDNT-SAY-W "hom!]" CR>)>)>)>>
diff --git a/m5.chart b/m5.chart
new file mode 100644
index 0000000..4a5511f
--- /dev/null
+++ b/m5.chart
@@ -0,0 +1,455 @@
+-date-  -rel-	-size-	-pre-	-obj-	-glo-	-voc-
+ 6/07     4	51052	11911	39	113	611
+ 6/10     5	49336	12543	39	114	617
+ 6/11     6	49334	12543	39	114	617
+ 6/11     7	49328	12543	39	114	617
+ 6/11     8	49338	12546	39	114	617
+ 6/12     9	49482	12546	39	114	617
+ 6/12     10	49482	12546	39	114	617
+ 6/12     11	49490	12546	39	114	617
+ 6/12     12	49492	12546	39	114	617
+ 6/12     13	50296	12756	42	115	630
+ 6/12     14	50296	12756	42	115	630
+ 6/14     15	50320	12756	42	115	630
+ 6/24     16	51950	13445	50	115	666
+ 7/01     17	51900	13435	50	114	666
+ 7/02     18	51950	13446	51	114	666
+ 7/02     19	51822	13446	51	114	666
+ 7/26     20	52074	13556	51	116	664
+ 8/29     21	53858	14758	78	116	691
+ 9/03     22	55452	15834	102	116	704
+ 9/03     23	55468	15876	103	116	705
+ 9/04     23	55498	15876	103	116	705
+ 9/04     23	55504	15876	103	116	705
+ 9/10     24	54940	15814	103	113	703
+ 9/13     25	57082	17263	138	113	709
+ 9/16     26	57412	17545	137	113	709
+ 9/16     27	57412	17545	137	113	709
+ 9/17     28	57804	17721	138	113	712
+ 9/17     29	59476	18228	149	113	738
+ 9/17     -1	59574	18234	149	116	738
+ 9/18     2	59184	18375	149	118	737
+ 9/18     3	59182	18375	149	118	737
+ 9/18     4	62304	18375	149	118	737
+ 9/19     5	61812	18371	149	116	737
+ 9/20     6	62002	18641	149	116	738
+ 9/20     6	61850	18619	149	116	738
+ 9/20     7	62002	18641	149	116	738
+ 9/23     7	62074	18692	149	117	738
+ 9/23     8	62112	18695	149	117	738
+ 9/24     9	62980	18819	151	117	744
+ 9/25     10	62988	18822	151	117	744
+ 9/25     11	64686	19463	165	118	766
+ 9/30     12	65926	19583	168	119	771
+10/01     13	67020	20167	180	119	801
+10/02     14	67272	20158	179	119	801
+10/03     15	67988	20234	181	119	805
+10/03     16	68032	20234	181	119	805
+10/03     17	68032	20234	181	119	805
+10/03     17	68032	20234	181	119	805
+10/03     18	68520	20363	183	121	812
+10/04     19	68520	20363	183	121	812
+10/04     20	68506	20331	182	121	811
+10/04     21	68522	20331	182	121	811
+10/04     22	68630	20357	182	122	811
+10/07     23	69342	20373	182	124	811
+10/09     24	69460	20395	184	124	811
+10/09     25	69930	20511	187	126	814
+10/09     26	70422	20534	185	127	820
+10/10     27	70748	20498	185	127	819
+10/10     28	70748	20497	185	127	819
+10/10     29	70742	20497	185	127	819
+10/14     30	70776	20497	185	127	819
+10/17     31	74274	20718	189	130	827
+10/17     -1	74274	20718	189	130	827
+10/17     32	74274	20718	189	130	827
+10/17     33	74494	20883	189	132	823
+10/17     34	74494	20856	188	131	822
+10/18     35	74924	20937	189	131	826
+10/18     36	74922	20937	189	131	826
+10/18     37	75914	21285	200	131	832
+10/21     38	75944	21285	200	131	832
+10/21     39	76000	21285	200	131	832
+10/21     40	76440	21422	201	134	840
+10/22     41	77906	22054	214	136	867
+10/22     42	77904	22054	214	136	867
+10/22     43	79042	22054	214	136	867
+10/23     44	79414	22246	215	138	869
+10/23     45	81376	22246	215	138	869
+10/23     46	81342	22255	215	138	869
+10/23     0	81342	22255	215	138	869
+10/23     47	81326	22255	215	138	869
+10/23     48	81228	22255	215	138	869
+10/24     49	81240	22255	215	138	869
+10/24     50	81240	22255	215	138	869
+10/24     50	81438	22269	215	138	869
+10/24     51	81568	22304	215	138	869
+10/28     52	81554	22304	215	138	869
+10/28     53	81544	22304	215	138	869
+10/28     54	81834	22438	218	138	872
+10/29     55	81522	22468	218	137	873
+10/29     56	81532	22468	218	137	873
+10/29     57	81596	22468	218	137	873
+10/30     58	81494	22486	218	137	874
+10/31     59	81394	22498	218	137	874
+10/31     60	81446	22441	218	135	875
+10/31     61	81440	22441	218	135	875
+10/31     62	81440	22441	218	135	875
+10/31     63	81402	22401	218	134	875
+11/01     64	87920	22753	224	134	893
+11/04     65	88014	22758	224	135	893
+11/05     66	88120	22758	224	135	893
+11/05     67	87912	0	224	135	893
+11/05     68	87826	22732	224	136	893
+11/05     69	87826	22732	224	136	893
+11/06     70	87104	22797	225	136	897
+11/06     71	87108	22797	225	136	897
+11/06     72	87112	22797	225	136	897
+11/06     73	90074	23068	232	137	910
+11/06     74	90652	23123	232	137	914
+11/07     75	90638	23116	232	137	913
+11/07     76	90638	23116	232	137	913
+11/07     77	90638	23116	232	137	913
+...
+11/08     84	91902	23318	233	137	924
+11/08     85	91902	23318	233	137	924
+11/08     86	92556	23236	233	139	914
+11/11     87	91932	23306	233	139	924
+11/11     88	91932	23306	233	139	924
+11/11     89	92032	23306	233	139	924
+11/11     90	92032	23306	233	139	924
+11/11     91	92236	23340	233	139	924
+11/12     92	92236	23340	233	139	924
+11/12     93	92190	23345	233	140	925
+11/12     94	92176	23345	233	140	925
+11/13     95	92142	23347	233	141	925
+11/13     96	92140	23347	233	141	925
+11/13     97	92054	23366	233	142	925
+11/13     98	92676	23373	233	144	925
+11/14     99	91634	23135	233	144	925
+11/14     100	92826	23556	243	144	943
+11/15     101	92826	23556	243	144	943
+11/15     102	93186	23601	243	146	945
+11/15     103	93122	23550	243	144	943
+11/15     103	93182	23601	243	146	945
+11/15     104	93430	23610	243	146	945
+11/19     105	95464	23723	245	146	952
+11/20     106	95468	23723	245	146	952
+11/20     107	98378	23837	247	146	957
+11/21     108	98728	24036	251	146	965
+11/22     109	99356	24155	253	146	970
+11/22     110	99190	24146	253	145	969
+11/25     111	96860	23160	251	142	872
+11/25     112	96382	22866	251	142	847
+11/26     113	96872	22868	251	143	847
+11/29     114	97082	22885	251	143	849
+12/02     115	97056	22885	251	143	849
+12/02     116	97332	22981	253	145	854
+12/03     117	97376	22994	253	145	855
+12/03     118	97374	22994	253	145	855
+12/03     119	97398	23016	253	145	855
+12/04     120	100438	23116	255	145	857
+12/04     121	104542	23183	256	145	860
+12/06     122	104166	22743	238	145	860
+12/06     123	104130	22743	238	145	860
+12/06     124	104086	22743	238	145	860
+12/07     125	104084	22743	238	145	860
+12/07     126	105980	22866	240	145	868
+12/11     127	107528	23003	244	145	870
+12/11     128	107484	23003	244	145	870
+12/11     129	107484	23003	244	145	870
+12/11     130	107496	23007	244	145	870
+12/12     131	108562	23183	247	147	877
+12/12     132	108502	23183	247	147	877
+12/13     133	108534	23150	246	147	877
+12/13     134	111280	23317	248	149	886
+12/17     135	112264	23325	248	149	887
+12/17     136	112264	23324	248	149	887
+12/17     137	112264	23324	248	149	887
+12/18     138	112508	23301	246	150	889
+12/18     139	112942	23365	247	153	889
+12/19     140	112972	23383	247	154	890
+12/20     141	112972	23383	247	154	890
+12/20     142	112924	23383	247	154	890
+12/20     143	112928	23383	247	154	890
+ 1/02     144	113658	23393	247	155	890
+ 1/03     145	113026	23400	247	155	890
+ 1/03     146	113112	23405	247	155	891
+ 1/03     147	113112	23405	247	155	891
+ 1/06     148	113464	23397	247	154	890
+ 1/07     149	114084	23380	246	154	888
+ 1/08     150	114298	23469	247	155	892
+ 1/09     151	115208	23478	247	157	892
+ 1/10     151	115202	23478	247	157	892
+ 1/10     152	115324	23447	246	157	891
+ 1/13     153	116086	23517	246	158	897
+ 1/13     153	116086	23517	246	158	897
+ 1/15     154	116468	23593	246	158	904
+ 1/15     155	116558	23559	244	159	903
+ 1/16     156	116862	23647	244	159	903
+ 1/16     156	116838	23647	244	159	903
+ 1/17     157	115978	23749	245	160	906
+ 1/20     157	115910	23749	245	160	906
+ 1/20     157	115998	23698	245	160	902
+ 1/20     157	115994	23698	245	160	902
+ 1/21     157	116004	23698	245	160	902
+ 1/21     157	116018	23698	245	160	902
+ 1/21     157	116030	23698	245	160	902
+ 1/21     157	116034	23698	245	160	902
+ 1/21     157	116048	23698	245	160	902
+ 1/21     158	116058	23698	245	160	902
+ 1/22     159	117290	23641	243	160	903
+ 1/23     160	117736	23648	243	161	903
+ 1/23     9	117722	23648	243	161	903
+ 1/23     9	117748	23648	243	161	903
+ 1/23     9	117750	23648	243	161	903
+ 1/23     10	117870	23661	243	162	903
+ 1/24     11	118290	23727	243	161	906
+ 1/24     11	118282	23720	243	161	905
+ 1/30     0	118302	23720	243	161	905
+ 1/30     12	118438	23691	244	161	909
+ 1/30     13	119104	23708	244	161	912
+ 1/30     12	119104	23708	244	161	912
+ 1/30     12	119110	23708	244	161	912
+ 1/31     13	119920	23739	244	161	915
+ 2/03     14	119608	23770	245	162	912
+ 2/04     15	119868	23741	245	163	912
+ 2/04     15	119864	23741	245	163	912
+ 2/04     16	119882	23748	245	163	913
+ 2/04     0	119744	23800	245	163	913
+ 2/04     17	120064	23870	245	164	917
+ 2/05     18	120284	23891	241	166	931
+ 2/06     18	120290	23891	241	166	931
+ 2/06     19	120176	23860	240	164	935
+ 2/07     19	120176	23860	240	164	935
+ 2/07     20	120016	23853	242	164	930
+ 2/07     20	120008	23853	242	164	930
+ 2/10     21	120332	23917	242	165	936
+ 2/10     21	120320	23917	242	165	936
+ 2/11     22	120746	24030	243	166	947
+ 2/11     22	120746	24030	243	166	947
+ 2/12     23	120554	24009	243	167	944
+ 2/13     23	120554	24009	243	167	944
+ 2/13     24	121344	24088	245	169	940
+ 2/14     24	121342	24088	245	169	940
+ 2/14     0	121386	24088	245	169	940
+ 2/14     0	121380	24088	245	169	940
+ 2/14     0	121496	24088	245	169	940
+ 2/14     0	121490	24088	245	169	940
+ 2/14     0	121494	24088	245	169	940
+ 2/14     0	121494	24088	245	169	940
+ 2/14     25	121582	24113	244	170	945
+ 2/17     26	121754	24142	244	170	945
+ 2/17     26	121626	24142	244	170	945
+ 2/18     27	121638	24145	244	169	945
+ 2/19     28	121766	24180	243	169	948
+ 2/20     29	121728	24241	244	170	949
+ 2/21     30	121914	24298	244	170	950
+ 2/23     31	121924	24298	244	170	950
+ 2/24     1	121924	24298	244	170	950
+ 2/24     32	121468	24268	243	170	954
+ 2/25     33	121562	24287	243	170	954
+ 2/26     34	121436	24221	242	171	953
+ 2/27     34	121442	24221	242	171	953
+ 2/27     35	121770	24237	242	171	954
+ 3/02     36	121646	24012	242	171	953
+ 3/04     36	119858	23830	241	176	948
+ 3/05     36	119772	23830	241	176	948
+ 3/05     37	119740	23713	238	179	955
+ 3/06     38	119870	23729	240	178	954
+ 3/07     38	119868	23729	240	178	954
+ 3/07     39	119908	23715	240	178	952
+ 3/10     40	120506	23821	241	178	957
+ 3/11     41	120756	23858	241	178	960
+ 3/12     42	120854	23886	241	178	963
+ 3/13     43	122384	24001	243	179	970
+ 3/14     43	122382	24001	243	179	970
+ 3/14     -1	122422	24001	243	179	970
+ 3/17     2	122526	24001	243	179	970
+ 3/17     3	123346	24112	246	179	975
+ 3/18     4	123278	23988	246	179	965
+ 3/19     5	124852	24196	246	182	968
+ 3/20     5	124848	24196	246	182	968
+ 3/20     6	126202	24283	247	183	971
+ 3/21     7	126644	24354	247	183	978
+ 3/25     8	127158	24439	247	184	979
+ 3/25     8	127164	24442	247	184	979
+ 3/26     9	127166	24274	242	185	972
+ 3/27     9	127166	24274	242	185	972
+ 3/27     10	126636	24297	243	185	971
+ 3/28     10	126866	24288	243	185	970
+ 3/29     11	127072	24295	243	185	971
+ 4/01     12	127300	24398	244	186	976
+ 4/02     13	127708	24450	245	186	979
+ 4/02     14	127994	24450	246	187	978
+ 4/04     15	127558	24276	246	187	972
+ 4/04     15	127558	24276	246	187	972
+ 4/04     15	127560	24276	246	187	972
+ 4/09     16	127438	24312	246	187	974
+ 4/15     17	128204	24148	244	189	970
+ 4/16     17	128196	24155	244	189	971
+ 4/16     17	128552	24176	245	190	970
+ 4/16     18	128656	24180	245	192	970
+ 4/17     18	128658	24180	245	192	970
+ 4/18     19	128668	24142	245	192	970
+ 4/18     20	128154	24082	245	189	964
+ 4/23     21	128218	24081	245	189	964
+ 4/24     22	128324	24128	246	191	965
+ 4/25     23	128724	24177	247	192	967
+ 4/25     23	128532	24030	247	192	946
+ 4/28     24	128356	24020	247	193	948
+ 4/29     24	128494	24167	247	193	969
+ 4/29     24	128548	24180	248	194	965
+ 4/29     24	128542	24180	248	194	965
+ 4/29     24	128542	24180	248	194	965
+ 4/30     25	128628	24182	248	195	965
+ 5/01     25	128628	24182	248	195	965
+ 5/01     25	128632	24182	248	195	965
+ 5/02     26	128714	24209	248	199	965
+ 5/06     27	128964	24209	248	199	965
+ 5/08     28	128980	24207	248	198	965
+ 5/14     29	129424	24229	248	198	968
+ 5/14     29	129130	24301	248	198	968
+ 5/14     30	128780	24267	247	199	967
+ 5/19     31	128644	24267	247	199	967
+ 5/20     31	128612	24267	247	199	967
+ 5/20     31	128616	24267	247	199	967
+ 5/20     31	128620	24267	247	199	967
+ 5/20     31	128288	24267	247	199	967
+ 5/21     32	128766	24307	248	200	969
+ 5/26     33	129080	24377	249	201	970
+ 5/26     33	129076	24377	249	201	970
+ 5/27     34	128896	24494	253	199	977
+ 5/28     35	129052	24533	253	199	981
+ 5/29     35	129048	24531	253	199	981
+ 5/29     35	129062	24531	253	199	981
+ 5/29     35	129062	24531	253	199	981
+ 6/06     36	129370	24563	253	198	985
+ 6/06     36	129550	24585	253	198	985
+ 6/06     37	129598	24593	253	198	985
+ 6/09     37	129598	24593	253	198	985
+ 6/09     38	129680	24688	254	198	992
+ 6/10     39	126516	24504	254	198	984
+ 6/10     39	126570	24504	254	198	984
+ 6/10     40	126806	24531	254	198	986
+ 6/10     40	126800	24531	254	198	986
+ 6/11     40	126800	24531	254	198	986
+ 6/12     40	126800	24531	254	198	986
+ 6/12     40	126800	24531	254	198	986
+ 6/12     40	126800	24531	254	198	986
+ 6/16     40	126800	24531	254	198	986
+ 6/16     41	130134	24735	254	202	994
+ 6/16     41	130124	24735	254	202	994
+ 6/18     42	130410	24744	254	204	997
+ 6/18     42	130378	24744	254	204	997
+ 6/27     43	130818	24989	255	206	1001
+ 6/30     44	52768	24989	255	206	1001
+ 7/01     44	131408	25019	255	209	1004
+ 7/01     44	131262	24987	255	210	1004
+ 7/01     44	131176	24987	255	210	1004
+ 7/01     44	131108	24987	255	210	1004
+ 7/01     44	131070	24987	255	210	1004
+ 7/02     45	130964	24965	255	211	1004
+ 7/03     45	130966	24965	255	211	1004
+ 7/03     45	130966	24965	255	211	1004
+ 7/03     0	130966	24965	255	211	1004
+ 7/03     1	130972	24965	255	211	1004
+ 7/08     46	131184	24946	254	212	1005
+ 7/08     46	131104	24946	254	212	1005
+ 7/08     46	131048	24946	254	212	1005
+ 7/09     0	131028	24946	254	212	1005
+ 7/09     2	131050	24946	254	212	1005
+ 7/09     3	131050	24946	254	212	1005
+ 7/09     47	131996	24936	254	215	1004
+ 7/10     47	131614	24940	254	217	1004
+ 7/10     47	130876	24944	254	219	1004
+ 7/10     47	130876	24944	254	219	1004
+ 7/11     47	130890	24944	254	219	1004
+ 7/14     48	131370	25022	254	219	1013
+ 7/14     48	131144	25022	254	219	1013
+ 7/14     48	131116	25022	254	219	1013
+ 7/14     48	131066	25022	254	219	1013
+ 7/16     49	131108	24933	253	219	1009
+ 7/16     49	130944	24933	253	219	1009
+ 7/16     49	130944	24933	253	219	1009
+ 7/16     50	131110	24937	253	221	1009
+ 7/16     50	130940	24937	253	221	1009
+ 7/17     50	130938	24937	253	221	1009
+ 7/17     50	130940	24937	253	221	1009
+ 7/17     50	130936	24937	253	221	1009
+ 7/17     50	130940	24937	253	221	1009
+ 7/17     51	130934	24935	253	222	1010
+ 7/18     52	131028	24966	253	222	1010
+ 7/18     52	131042	24966	253	222	1010
+ 7/26     53	131220	24980	253	223	1010
+ 7/26     53	128596	24796	253	223	1002
+ 7/29     54	131284	24974	253	222	1009
+ 7/30     54	128662	24790	253	222	1001
+ 7/30     1	128672	24790	253	222	1001
+ 7/31     2	128680	24790	253	222	1001
+ 7/31     55	128542	24798	253	222	1001
+ 8/01     56	128498	24760	253	221	998
+ 8/04     57	128524	24781	254	221	998
+ 8/06     1	128530	24781	254	221	998
+ 8/06     2	128530	24781	254	221	998
+ 8/06     58	129092	24806	254	223	998
+ 8/11     59	129136	24770	254	222	997
+ 8/11     59	128992	24770	254	222	997
+ 8/13     60	128844	24795	254	218	998
+ 8/15     61	128824	24700	253	219	991
+ 8/18     62	129190	24736	254	221	991
+ 8/19     -1	128966	24727	254	221	991
+ 8/19     63	128966	24727	254	221	991
+ 8/19     64	129074	24735	254	221	991
+ 8/19     64	129016	24713	254	221	991
+ 8/20     65	128986	24669	253	221	992
+ 8/21     65	128986	24669	253	221	992
+ 8/21     65	128986	24669	253	221	992
+ 8/21     65	128986	24669	253	221	992
+ 8/23     66	128984	24652	253	222	991
+ 8/24     66	128964	24652	253	222	991
+ 8/24     66	128954	24652	253	222	991
+ 8/24     66	128954	24652	253	222	991
+ 8/25     67	128872	24655	253	222	991
+ 8/26     67	128872	24655	253	222	991
+ 8/26     67	128872	24655	253	222	991
+ 8/27     68	129096	24673	253	223	992
+ 8/28     68	129078	24673	253	223	992
+ 8/28     68	129040	24673	253	223	992
+ 8/28     68	129020	24673	253	223	992
+ 9/03     69	129300	24690	253	224	992
+ 9/03     69	129094	24697	253	225	992
+ 9/03     69	129096	24697	253	225	992
+ 9/03     69	129022	24697	253	225	992
+ 9/05     70	129062	24712	253	228	990
+ 9/05     70	129018	24712	253	228	990
+ 9/11     71	129128	24690	253	230	986
+ 9/11     71	129034	24690	253	230	986
+ 9/11     71	129022	24690	253	230	986
+ 9/12     71	129022	24690	253	230	986
+ 9/15     72	129134	24705	253	229	985
+ 9/15     72	128812	24495	253	229	955
+ 9/16     73	128892	24480	253	229	954
+ 9/16     3	128886	24480	253	229	954
+ 9/18     4	129020	24528	253	230	955
+ 9/18     4	129002	24528	253	230	955
+ 9/22     5	128768	24294	253	230	955
+ 9/22     6	27027	24528	253	230	955
+ 9/22     5	128690	24216	253	230	955
+ 9/22     5	128690	24216	253	230	955
+ 9/23     6	128682	24216	253	230	955
+ 9/23     6	128674	24207	253	230	955
+ 9/24     7	128896	24439	253	230	955
+10/21     8	128916	24439	253	230	955
+10/21     9	128866	24439	253	230	955
+10/22     -1	128866	24439	253	230	955
+10/22     9	128866	24439	253	230	955
+10/31     10	128872	24439	253	230	955
+12/02     10	128796	24477	254	230	955
+12/03     11	128830	24478	254	230	955
+12/05     10	128832	24470	254	230	955
+ 2/26     11	128832	24472	254	230	955
+ 8/28     12	128822	24470	254	230	955
+ 8/28     12	128822	24470	254	230	955
+ 8/28     12	128826	24470	254	230	955
+ 5/01     13	128828	24470	254	230	955
diff --git a/m5.errors b/m5.errors
index 493b0cd..918922c 100644
--- a/m5.errors
+++ b/m5.errors
@@ -1,28 +1,27 @@
-Assembling M5.XZAP.1 on Wednesday, October 22, 1986 09:45:48
-Release: 9
+Assembling M5.ZAP.13 on Sunday, May 1, 1988 13:55:06
+Release: 13
 
     64	Inserting M5FREQ.XZAP.1	   (594 bytes)
-   658	Inserting M5DAT.ZAP.9	 (25035 bytes)
- 25693	Inserting MACROS.ZAP.4	     (0 bytes)
- 25693	Inserting MISC.ZAP.4	  (1236 bytes)
- 26929	Inserting SYNTAX.ZAP.4	     (0 bytes)
- 26929	Inserting PARSER.ZAP.4	 (13085 bytes)
- 40014	Inserting VERBS.ZAP.5	 (21161 bytes)
- 61175	Inserting GOAL.ZAP.1	 (11194 bytes)
- 72369	Inserting PEOPLE.ZAP.1	 (23137 bytes)
- 95506	Inserting CASTLE.ZAP.1	 (10616 bytes)
-106122	Inserting TOWER.ZAP.1	  (8181 bytes)
-114303	Inserting THINGS.ZAP.1	  (2553 bytes)
-116856	Inserting PLACES.ZAP.1	   (848 bytes)
-117704	Inserting GLOBAL.ZAP.1	  (3165 bytes)
-120869	Inserting COLORS.ZAP.1	  (4243 bytes)
-125112	Inserting M5STR.ZAP.9	  (3754 bytes)
-253 objects.
+   658	Inserting M5DAT.ZAP.13	 (23812 bytes)
+ 24470	Inserting M5PUR.ZAP.13	  (1254 bytes)
+ 25724	Inserting MISC.ZAP.9	  (1226 bytes)
+ 26950	Inserting PARSER.ZAP.12	 (13044 bytes)
+ 39994	Inserting VERBS.ZAP.10	 (21117 bytes)
+ 61111	Inserting GOAL.ZAP.7	 (11204 bytes)
+ 72315	Inserting PEOPLE.ZAP.6	 (23145 bytes)
+ 95460	Inserting CASTLE.ZAP.6	 (10608 bytes)
+106068	Inserting TOWER.ZAP.7	  (8177 bytes)
+114245	Inserting THINGS.ZAP.6	  (2553 bytes)
+116798	Inserting PLACES.ZAP.6	   (846 bytes)
+117644	Inserting GLOBAL.ZAP.7	  (3193 bytes)
+120837	Inserting COLORS.ZAP.6	  (4237 bytes)
+125074	Inserting M5STR.ZAP.13	  (3754 bytes)
+254 objects.
 230 globals.
 955 word vocabulary.
 
-128866 bytes (126K).
- 24439 bytes of preload.
- 13860 bytes of impure.
+128828 bytes (126K).
+ 24470 bytes of preload.
+ 13899 bytes of impure.
 
 Outputting symbol tables
diff --git a/m5.record b/m5.record
index 2e7c312..4c318c2 100644
--- a/m5.record
+++ b/m5.record
@@ -1,29 +1,18 @@
 
 Combined ZIL Compiler Ver 2.0 (MIM)
 -----------------------------------
-Input file: SS:<MOONMIST>M5.ZIL.1
-Input file: SS:<MOONMIST>MACROS.ZIL.56
-Input file: SS:<MOONMIST>MISC.ZIL.24
-Compiling routine: GO
-Compiling routine: PRINTT
-Compiling routine: THE?
-Compiling routine: START-SENTENCE
-Compiling routine: PRINTA
-Compiling routine: THIS-IS-IT
-Compiling routine: NO-PRONOUN?
-Compiling routine: HE-SHE-IT
-Compiling routine: HIM-HER-IT
-Compiling routine: QUEUE
-Compiling routine: INT
-Compiling routine: QUEUED?
-Compiling routine: CLOCKER
-Compiling routine: I-FOLLOW
-Compiling routine: I-ATTENTION
-Input file: SS:<MOONMIST>SYNTAX.ZIL.224
-Input file: SS:<MOONMIST>PARSER.ZIL.460
- ** Note: Unknown value - PLAYER
- ** Note: Unknown value - FRIEND
- ** Note: Unknown value - LORD
+Input file: SS:<MOONMIST>M5.ZIL.4
+[ZIP instructions]
+
+Loading SS:<MOONMIST>MACROS.ZIL.56 because not abstracted.
+Loading abstract SS:<MOONMIST>MISC.ZABSTR.1.
+Loading SS:<MOONMIST>SYNTAX.ZIL.225 because not abstracted.
+ ** Warning: Two different pre-actions for verb V?COMPARE: PRE-COMPARE; 0
+
+ ** Warning: Two different pre-actions for verb V?COMPARE: PRE-COMPARE; 0
+
+ ** Warning: Two different pre-actions for verb V?EXAMINE: PRE-EXAMINE; 0
+Loading SS:<MOONMIST>PARSER.ZIL.470 and compiling it.
 Compiling routine: MAIN-LOOP
 Compiling routine: MAIN-LOOP-1
 Compiling routine: TELL-I-ASSUME
@@ -83,6 +72,7 @@ Compiling routine: CAPITAL-NOUN?
 Compiling routine: CAPITALIZE
 Compiling routine: PREP-PRINT
 Compiling routine: CLAUSE-COPY
+Compiling routine: CLAUSE-SUBSTRUC
 Compiling routine: CLAUSE-ADD
 Compiling routine: PREP-FIND
 Compiling routine: SYNTAX-FOUND
@@ -126,530 +116,17 @@ Compiling routine: ITAKE-CHECK
 Compiling routine: MANY-CHECK
 Compiling routine: ZMEMQ
 Compiling routine: ZMEMQB
- ** Note: Unknown value - DRIVEWAY
 Compiling routine: LIT?
 Compiling routine: NOT-HERE
 Compiling routine: PUT-ADJ-NAM
 Compiling routine: NOUN-USED?
 Compiling routine: ADJ-USED?
-Input file: SS:<MOONMIST>VERBS.ZIL.827
-Compiling routine: TRANSCRIPT
-Compiling routine: V-SCRIPT
-Compiling routine: V-UNSCRIPT
-Compiling routine: V-$VERIFY
-Compiling routine: YOU-WILL-GET
-Compiling routine: V-SUPER-BRIEF
-Compiling routine: V-BRIEF
-Compiling routine: V-VERBOSE
-Compiling routine: V-INVENTORY
-Compiling routine: V-QUIT
-Compiling routine: V-RESTART
-Compiling routine: TELL-FAILED
-Compiling routine: V-SAVE
-Compiling routine: V-RESTORE
-Compiling routine: V-FIRST-LOOK
-Compiling routine: V-VERSION
-Compiling routine: V-SCORE
-Compiling routine: YES?
-Compiling routine: NO-NEED
-Compiling routine: YOU-CANT
-Compiling routine: YOU-SHOULDNT
-Compiling routine: TELL-BEING-WORN
-Compiling routine: PRINT-CONTENTS
-Compiling routine: DESCRIBE-OBJECTS
-Compiling routine: SEE-ANYTHING-IN?
-Compiling routine: DESCRIBE-ROOM
-Compiling routine: HAR-HAR
-Compiling routine: PICK-ONE-NEW
-Compiling routine: PICK-ONE
-Compiling routine: NOT-HOLDING?
-Compiling routine: NEW-FOLLOWER
-Compiling routine: FRIEND-FOLLOWS-YOU
-Compiling routine: NOT-INTO-PASSAGE
-Compiling routine: TOUR?
-Compiling routine: CREEPY?
-Compiling routine: GOTO
-Compiling routine: HACK-HACK
-Compiling routine: HELD?
-Compiling routine: IDROP
-Compiling routine: ITAKE
-Compiling routine: CCOUNT
-Compiling routine: CHECK-DOOR
-Compiling routine: ROOM-CHECK
-Compiling routine: SEE-INSIDE?
-Compiling routine: ARENT-TALKING
-Compiling routine: ALREADY
-Compiling routine: NOT-CLEAR-WHOM
-Compiling routine: OKAY
-Compiling routine: TOO-BAD-BUT
-Compiling routine: TOO-DARK
-Compiling routine: VISIBLE?
-Compiling routine: ACCESSIBLE?
-Compiling routine: META-LOC
-Compiling routine: WHO-CARES
-Compiling routine: PRE-SAIM
-Compiling routine: V-SAIM
-Compiling routine: V-AIM
-Compiling routine: PRE-SANALYZE
-Compiling routine: V-SANALYZE
-Compiling routine: PRE-ANALYZE
-Compiling routine: V-ANALYZE
-Compiling routine: V-ANSWER
-Compiling routine: V-REPLY
-Compiling routine: WAITING-FOR-YOU-TO-SPEAK
-Compiling routine: PRE-ARREST
-Compiling routine: TELL-BAD-FORM
-Compiling routine: V-ARREST
-Compiling routine: CONFESSION
-Compiling routine: WRAP-UP
-Compiling routine: V-ASK
-Compiling routine: PRE-ASK-ABOUT
-Compiling routine: V-ASK-ABOUT
-Compiling routine: WONT-HELP-TO-TALK-TO
-Compiling routine: PRE-ASK-CONTEXT-ABOUT
-Compiling routine: V-ASK-CONTEXT-ABOUT
-Compiling routine: V-ASK-FOR
-Compiling routine: PRE-ASK-CONTEXT-FOR
-Compiling routine: V-ASK-CONTEXT-FOR
-Compiling routine: V-ATTACK
-Compiling routine: V-BOW
-Compiling routine: PRE-BRUSH
-Compiling routine: V-BRUSH
-Compiling routine: UNCLEAN
-Compiling routine: REMOVE-CAREFULLY
-Compiling routine: V-$CALL
-Compiling routine: V-CHASTISE
-Compiling routine: V-BOARD
-Compiling routine: V-CLIMB-ON
-Compiling routine: V-CLIMB-UP
-Compiling routine: V-CLIMB-DOWN
-Compiling routine: V-CLOSE
-Compiling routine: PRE-COMPARE
-Compiling routine: V-COMPARE
-Compiling routine: V-CONFRONT
-Compiling routine: V-MUNG
-Compiling routine: V-DANCE
-Compiling routine: PRE-DESCRIBE
-Compiling routine: V-DESCRIBE
-Compiling routine: V-UNDRESS
-Compiling routine: V-DRESS
-Compiling routine: FIND-OUTFIT
-Compiling routine: FIND-OUTFIT-IN
-Compiling routine: V-CHANGE
-Compiling routine: PRE-DRIVE-TO
-Compiling routine: TELL-NOT-IN
-Compiling routine: V-DRIVE-TO
-Compiling routine: V-DRINK
-Compiling routine: V-DROP
-Compiling routine: GROUND-DESC
-Compiling routine: PRE-EAT
-Compiling routine: V-EAT
-Compiling routine: PRE-EMPTY
-Compiling routine: V-EMPTY
-Compiling routine: PRE-THROUGH
-Compiling routine: V-THROUGH
-Compiling routine: PRE-EXAMINE
-Compiling routine: V-EXAMINE
-Compiling routine: NOTHING-SPECIAL
-Compiling routine: GLOBAL-IN?
-Compiling routine: V-FAINT
-Compiling routine: V-FILL
-Compiling routine: PRE-FIND
-Compiling routine: BITE-YOU
-Compiling routine: FAR-AWAY?
-Compiling routine: V-FIND
-Compiling routine: NO-FUN
-Compiling routine: TELL-LOCATION
-Compiling routine: V-FIX
-Compiling routine: FOLLOW-LOC?
-Compiling routine: V-FOLLOW
-Compiling routine: V-FOO
-Compiling routine: V-FORGIVE
-Compiling routine: PRE-GIVE
-Compiling routine: V-GIVE
-Compiling routine: PRE-SGIVE
-Compiling routine: V-SGIVE
-Compiling routine: PRE-HELLO
-Compiling routine: V-HELLO
-Compiling routine: V-HELP
-Compiling routine: HELP-TEXT
-Compiling routine: V-KILL
-Compiling routine: IKILL
-Compiling routine: V-KISS
-Compiling routine: V-KNOCK
-Compiling routine: V-STAND
-Compiling routine: V-LEAP
-Compiling routine: V-SKIP
-Compiling routine: WHEE
-Compiling routine: V-LEAVE
-Compiling routine: PRE-LIE
-Compiling routine: V-LIE
-Compiling routine: PRE-LISTEN
-Compiling routine: V-LISTEN
-Compiling routine: V-LOCK
-Compiling routine: V-LOOK
-Compiling routine: V-LOOK-BEHIND
-Compiling routine: V-LOOK-DOWN
-Compiling routine: PRE-LOOK-INSIDE
-Compiling routine: V-LOOK-INSIDE
-Compiling routine: FIRST-YOU
-Compiling routine: V-LOOK-THROUGH
-Compiling routine: NO-BEYOND
-Compiling routine: ROOM-PEEK
-Compiling routine: SEE-INTO?
-Compiling routine: TELL-CANT-FIND
-Compiling routine: V-LOOK-ON
-Compiling routine: V-LOOK-OUTSIDE
-Compiling routine: PRE-LOOK-UNDER
-Compiling routine: V-LOOK-UNDER
-Compiling routine: V-LOOK-UP
-Compiling routine: PRE-MEET
-Compiling routine: V-MEET
-Compiling routine: PRE-MOVE
-Compiling routine: V-MOVE
-Compiling routine: PRE-MOVE-DIR
-Compiling routine: V-MOVE-DIR
-Compiling routine: V-NOD
-Compiling routine: V-OPEN
-Compiling routine: PRE-OPEN-WITH
-Compiling routine: V-OPEN-WITH
-Compiling routine: V-PLAY
-Compiling routine: V-POUR
-Compiling routine: V-PRAY
-Compiling routine: V-PUSH
-Compiling routine: WEAR-CHECK
-Compiling routine: PRE-PUT
-Compiling routine: V-PUT
-Compiling routine: TELL-FIND-NONE
-Compiling routine: PRE-PUT-IN
-Compiling routine: V-PUT-IN
-Compiling routine: PUT-ON-OR-IN
-Compiling routine: WEIGHT
-Compiling routine: V-PUT-UNDER
-Compiling routine: PRE-SREAD
-Compiling routine: V-SREAD
-Compiling routine: PRE-READ
-Compiling routine: V-READ
-Compiling routine: V-REMOVE
-Compiling routine: V-RING
-Compiling routine: V-RUB
-Compiling routine: V-SAY
-Compiling routine: PRE-SEARCH
-Compiling routine: V-SEARCH
-Compiling routine: DISCOVER
-Compiling routine: CONGRATS
-Compiling routine: PRE-SSEARCH-FOR
-Compiling routine: V-SSEARCH-FOR
-Compiling routine: PRE-SEARCH-FOR
-Compiling routine: V-SEARCH-FOR
-Compiling routine: V-SHAKE
-Compiling routine: V-SHOOT
-Compiling routine: PRE-SSHOOT
-Compiling routine: V-SSHOOT
-Compiling routine: V-SHOW
-Compiling routine: PRE-SSHOW
-Compiling routine: V-SSHOW
-Compiling routine: V-SIGN
-Compiling routine: PRE-SIT
-Compiling routine: V-SIT
-Compiling routine: WONT-HELP
-Compiling routine: V-SIT-AT
-Compiling routine: V-SLAP
-Compiling routine: IF-SPY
-Compiling routine: FACE-RED
-Compiling routine: V-SMELL
-Compiling routine: V-SMILE
-Compiling routine: V-SORRY
-Compiling routine: V-SOUND
-Compiling routine: V-STOP
-Compiling routine: V-SWIM
-Compiling routine: PRE-TAKE
-Compiling routine: PRE-TAKE-WITH
-Compiling routine: V-TAKE
-Compiling routine: V-TAKE-OFF
-Compiling routine: V-TAKE-TO
-Compiling routine: V-DISEMBARK
-Compiling routine: OWN-FEET
-Compiling routine: V-HOLD-UP
-Compiling routine: V-TELL
-Compiling routine: PRE-STELL-ABOUT
-Compiling routine: V-STELL-ABOUT
-Compiling routine: PRE-TELL-ABOUT
-Compiling routine: V-TELL-ABOUT
-Compiling routine: PRE-TALK-ABOUT
-Compiling routine: V-TALK-ABOUT
-Compiling routine: V-THANKS
-Compiling routine: V-THROW
-Compiling routine: V-THROW-AT
-Compiling routine: PRE-THROW-THROUGH
-Compiling routine: V-THROW-THROUGH
-Compiling routine: V-TIME
-Compiling routine: TIME-PRINT
-Compiling routine: V-TURN
-Compiling routine: V-LAMP-OFF
-Compiling routine: V-LAMP-ON
-Compiling routine: V-UNLOCK
-Compiling routine: MORE-SPECIFIC
-Compiling routine: V-USE
-Compiling routine: V-WAIT
-Compiling routine: V-WAIT-FOR
-Compiling routine: V-WAIT-UNTIL
-Compiling routine: V-ALARM
-Compiling routine: DO-WALK
-Compiling routine: V-WALK
-Compiling routine: UNLOCK-DOOR?
-Compiling routine: WALK-THRU-DOOR?
-Compiling routine: OPEN-DOOR-AND-CLOSE-IT-AGAIN
-Compiling routine: V-WALK-AROUND
-Compiling routine: WHO-KNOWS?
-Compiling routine: WALK-WITHIN-ROOM
-Compiling routine: V-WALK-TO
-Compiling routine: ENTER-ROOM
-Compiling routine: V-RUN-OVER
-Compiling routine: NO-CHANGING?
-Compiling routine: V-WEAR
-Compiling routine: V-YELL
-Compiling routine: V-YES
-Compiling routine: V-NO
-Compiling routine: FINISH
-Compiling routine: DIVESTMENT?
-Compiling routine: REMOTE-VERB?
-Input file: SS:<MOONMIST>GOAL.ZIL.601
-Compiling routine: FOLLOW-GOAL
-Compiling routine: FOLLOW-GOAL-NEXT
-Compiling routine: GET-LINE
-Compiling routine: IN-MOTION?
-Compiling routine: ESTABLISH-GOAL
-Compiling routine: GOAL-REACHED
-Compiling routine: ENTERS?
-Compiling routine: TELL-OPEN-DOOR
-Compiling routine: TELL-HIS-HER-BEDROOM
-Compiling routine: TELL-LOCKING-THE-DOOR
-Compiling routine: MOVE-PERSON
-Compiling routine: COMPASS-EQV
-Compiling routine: DIR-EQV?
-Compiling routine: DIR-FROM
-Compiling routine: DIR-FROM-TEST
-Compiling routine: I-PLAYER
-Compiling routine: GOODNIGHT
-Compiling routine: GRAB-ATTENTION
-Compiling routine: ANGRY-REJECT?
-Compiling routine: WHERE?
-Compiling routine: DIR-PRINT
-Compiling routine: OPP-DIR
-Compiling routine: I-TOUR
-Compiling routine: I-FRIEND-GREETS
-Compiling routine: BUTLER-APPEARS
-Compiling routine: BUTLER-FETCHES
-Compiling routine: TAMARA-LEAVES-YOU
-Compiling routine: BUTLER-CARRIES
-Compiling routine: I-BUTLER-HINTS
-Compiling routine: I-BUTLER-COOKS
-Compiling routine: BUTLER-COOKS
-Compiling routine: I-BUTLER-SERVES
-Compiling routine: BUTLER-SERVES
-Compiling routine: X-WAITS
-Compiling routine: I-DINNER
-Compiling routine: BUTLER-RINGS-BELL?
-Compiling routine: BUTLER-LEAVES
-Compiling routine: I-DINNER-SIT
-Compiling routine: I-LIONEL-SPEAKS
-Compiling routine: MAKE-ALL-PEOPLE
-Compiling routine: I-WITHDRAW
-Compiling routine: I-SEARCH
-Compiling routine: X-SEARCHES
-Compiling routine: I-DISCOVERED
-Compiling routine: I-FOUND-PASSAGES
-Compiling routine: FOUND-PASSAGES-REPEAT
-Compiling routine: I-BEDTIME
-Compiling routine: FRIEND-PASSAGE-STORY
-Compiling routine: X-RETIRES
-Compiling routine: GHOST-INTO-PASSAGE
-Compiling routine: TIME-FOR-GHOST?
-Compiling routine: DRESS-GHOST
-Compiling routine: LOVER-XFER
-Compiling routine: I-COME-TO
-Compiling routine: LOVER-SPEECH
-Compiling routine: GHOST-FLEES
-Compiling routine: GHOST-LURKS
-Compiling routine: I-SHOT
-Input file: SS:<MOONMIST>PEOPLE.ZIL.806
-Compiling routine: PLAYER-NAME-F
-Compiling routine: PLAYER-F
-Compiling routine: PLEASE-ANSWER
-Compiling routine: TOO-BAD-SIT-HIDE
-Compiling routine: FRIEND-D
- ** Note: Unknown value - BUTLER
- ** Note: Unknown value - BUTLER
- ** Note: Unknown value - DOCTOR
- ** Note: Unknown value - OFFICER
- ** Note: Unknown value - BUTLER
- ** Note: Unknown value - DEB
- ** Note: Unknown value - OFFICER
- ** Note: Unknown value - BUTLER
-Compiling routine: I-REPLY
-Compiling routine: FRIEND-F
-Compiling routine: TAMARA-EVIDENCE-F
-Compiling routine: ASKING-ABOUT?
-Compiling routine: LORD-INTRO
-Compiling routine: TELL-FULL-NAME
-Compiling routine: LORD-D
-Compiling routine: LORD-GHOST-STORY
-Compiling routine: LORD-F
-Compiling routine: CLUE-2-STORY
-Compiling routine: TELL-DUNNO
-Compiling routine: JACK-TAPE-F
-Compiling routine: LOVER-D
-Compiling routine: LOVER-F
-Compiling routine: DEB-D
-Compiling routine: DEB-F
-Compiling routine: WILLING?
-Compiling routine: OFFICER-D
-Compiling routine: I-JUST-LOVE-IT
-Compiling routine: WINNER-DEFAULT
-Compiling routine: OFFICER-F
-Compiling routine: IAN-CALLS-YOU
-Compiling routine: DOCTOR-D
-Compiling routine: DOCTOR-F
-Compiling routine: MUSTACHE-F
-Compiling routine: WENDISH-BOOK-F
-Compiling routine: DEALER-D
-Compiling routine: DEALER-F
-Compiling routine: PAINTER-D
-Compiling routine: PAINTER-F
-Compiling routine: VIVIEN-DIARY-F
-Compiling routine: COUSIN-F
-Compiling routine: BOLITHO-WILL
-Compiling routine: BUTLER-D
-Compiling routine: BUTLER-SORRY
-Compiling routine: BUTLER-F
-Compiling routine: IN-CASE-OF-BLACKOUT
-Compiling routine: BUTLER-GHOST-STORY
-Compiling routine: BUTLER-MIRROR-STORY
-Compiling routine: GHOST-NEW-D
-Compiling routine: GHOST-NEW-F
-Compiling routine: GHOST-NEW-VERBS
-Compiling routine: UNDRESS-GHOST
-Compiling routine: DESCRIBE-GOWN
-Compiling routine: COSTUME-F
-Compiling routine: WEAR-SCARE
-Compiling routine: WHY-ME
-Compiling routine: DESCRIBE-PERSON
-Compiling routine: ALL-TOGETHER-NOW?
-Compiling routine: TELL-ABOUT-OBJECT
-Compiling routine: PERSON-F
-Compiling routine: SECRET-PASSAGE-OR-DOOR?
-Compiling routine: CARRY-CHECK
-Compiling routine: WINNER-DESCRIBE
-Compiling routine: TRANSIT-TEST
-Compiling routine: COM-CHECK
-Compiling routine: EVIDENCE?
-Compiling routine: SETUP-SHOT
-Compiling routine: COMMON-ASK-ABOUT
-Compiling routine: SHOWING-CLUE?
-Compiling routine: TREASURE-FOUND?
-Compiling routine: TELL-STOP-SEARCHING?
-Compiling routine: GOOD-SHOW
-Compiling routine: COMMON-DESC
-Compiling routine: COMMON-OTHER
-Compiling routine: UNSNOOZE
-Compiling routine: FIX-MUSTACHE
-Compiling routine: OBJECT-PAIR-F
-Compiling routine: CREW-GLOBAL-F
-Input file: SS:<MOONMIST>CASTLE.ZIL.721
-Compiling routine: CASTLE-F
-Compiling routine: TOWER-F
-Compiling routine: MOON-F
-Compiling routine: OCEAN-F
-Compiling routine: CAR-DOOR-PSEUDO
-Compiling routine: DRIVING?
-Compiling routine: CAR-F
-Compiling routine: CAR-TO-COURTYARD
-Compiling routine: CAR-TO-DRIVEWAY
-Compiling routine: TELL-ABOUT-CAR
-Compiling routine: VOICE-F
-Compiling routine: HORN-F
-Compiling routine: DRIVEWAY-F
-Compiling routine: DRAGON-F
-Compiling routine: TELL-ABOUT-DRAGON
-Compiling routine: I-DRAGON-EYE
-Compiling routine: DRAGON-EYE-F
-Compiling routine: TELL-ABOUT-EYE
-Compiling routine: VOICE-SAYS
-Compiling routine: GATE-OPENS
-Compiling routine: FRONT-GATE-F
-Compiling routine: COURTYARD-F
-Compiling routine: TELL-LIKE-BROCHURE
-Compiling routine: MAZE-EXIT
-Compiling routine: MAZE-F
-Compiling routine: GARDEN-F
-Compiling routine: POND-F
-Compiling routine: FRONT-DOOR-F
-Compiling routine: FOYER-F
-Compiling routine: DESCRIBE-CONTENTS
-Compiling routine: UMBRELLA-STAND-F
-Compiling routine: DRAWING-ROOM-F
-Compiling routine: LOVER-PIC-F
-Compiling routine: TAPESTRY-F
-Compiling routine: GREAT-HALL-F
-Compiling routine: GREAT-HALL-IS-FLOORED
-Compiling routine: ARMOR-F
-Compiling routine: SECRET-SITTING-DOOR-F
-Compiling routine: SITTING-ROOM-F
-Compiling routine: WYVERN-F
-Compiling routine: WRITING-DESK-F
-Compiling routine: PIANO-F
-Compiling routine: MUSIC-F
-Compiling routine: CORR-1-F
-Compiling routine: DINING-ROOM-F
-Compiling routine: I-DINNER-TALK
-Compiling routine: DINNER-TALK
-Compiling routine: POPULATION
-Compiling routine: BUST-D
-Compiling routine: BUST-F
-Compiling routine: RECORDER-F
-Compiling routine: TABLE-DINING-F
-Compiling routine: PUNCHBOWL-F
-Compiling routine: DINNER-D
-Compiling routine: DINNER-F
-Compiling routine: BACKSTAIRS-F
-Compiling routine: KITCHEN-F
-Compiling routine: LANTERN
-Compiling routine: GALLERY-F
-Compiling routine: PICTURE-F
-Compiling routine: BATHROOM-F
-Compiling routine: FIREPLACE-F
-Compiling routine: BED-PSEUDO
-Compiling routine: NIGHTSTAND-LG-F
-Compiling routine: DRESSING-TABLE-LG-F
-Compiling routine: MIRROR-GLOBAL-F
-Compiling routine: OPEN-DOOR?
-Compiling routine: YOUR-ROOM-F
-Compiling routine: ENTER-PASSAGE
-Compiling routine: BED-F
-Compiling routine: NIGHTSTAND-F
-Compiling routine: TELL-AS-WELL-AS
-Compiling routine: DRESSING-MIRROR-F
-Compiling routine: YOUR-MIRROR-F
-Compiling routine: YOUR-SWITCH-F
-Compiling routine: YOUR-BATHROOM-F
-Compiling routine: TOILET-PSEUDO
-Compiling routine: BATH-PSEUDO
-Compiling routine: IRIS-ROOM-F
-Compiling routine: WENDISH-ROOM-F
-Compiling routine: CANDLE-F
-Compiling routine: WENDISH-STUFF-D
-Compiling routine: WENDISH-STUFF-F
-Compiling routine: WENDISH-KIT-F
-Compiling routine: SEARCH-KIT-BOX
-Compiling routine: VIVIEN-ROOM-F
-Compiling routine: VIVIEN-BOX-F
-Compiling routine: FIGURINE-F
-Compiling routine: IAN-ROOM-F
-Compiling routine: TELL-IAN-FIREPLACE
-Compiling routine: ANDIRON-F
-Compiling routine: HYDE-ROOM-F
-Input file: SS:<MOONMIST>TOWER.ZIL.528
+Abstracting SS:<MOONMIST>PARSER.
+Loading abstract SS:<MOONMIST>VERBS.ZABSTR.1.
+Loading abstract SS:<MOONMIST>GOAL.ZABSTR.1.
+Loading abstract SS:<MOONMIST>PEOPLE.ZABSTR.1.
+Loading abstract SS:<MOONMIST>CASTLE.ZABSTR.1.
+Loading SS:<MOONMIST>TOWER.ZIL.529 and compiling it.
 Compiling routine: TELL-IN-BROCHURE
 Compiling routine: BROCHURE-PSEUDO
 Compiling routine: MEMENTO-F
@@ -684,7 +161,6 @@ Compiling routine: LIBRARY-F
 Compiling routine: BOOKS-GLOBAL-F
 Compiling routine: BOOKCASE-F
 Compiling routine: HISTORY-BOOK-F
- ** Note: Non-predicate jump flushed MOVE
 Compiling routine: JOURNAL-F
 Compiling routine: OFFICE-F
 Compiling routine: INKWELL-F
@@ -731,35 +207,10 @@ Compiling routine: DRAWING-CLOSET-F
 Compiling routine: GALLERY-CORNER-F
 Compiling routine: PEEPHOLE-F
 Compiling routine: HYDE-CLOSET-F
-Input file: SS:<MOONMIST>THINGS.ZIL.207
-Compiling routine: RANDOM-PSEUDO
-Compiling routine: LUGGAGE-F
-Compiling routine: BROCHURE-F
-Compiling routine: BLOWGUN-F
-Compiling routine: NO-VIOLENCE?
-Compiling routine: SHOOTING
-Compiling routine: MACE-F
-Compiling routine: NECKLACE-OF-D-F
-Compiling routine: LENS-2-F
-Compiling routine: LENS-BOX-F
-Compiling routine: LETTER-F
-Compiling routine: LETTER-MAID-F
-Compiling routine: LETTER-DEE-F
-Input file: SS:<MOONMIST>PLACES.ZIL.94
-Compiling routine: NULL-F
-Compiling routine: DOOR-ROOM
-Compiling routine: FIND-FLAG
-Compiling routine: FIND-FLAG-NOT
-Compiling routine: FIND-FLAG-LG
-Compiling routine: FIND-FLAG-HERE
-Compiling routine: FIND-FLAG-HERE-NOT
-Compiling routine: LEVER-F
-Compiling routine: OPEN-CLOSE
-Compiling routine: OUTSIDE?
-Compiling routine: WINDOW-F
-Compiling routine: CORRIDOR-LOOK
-Compiling routine: CORRIDOR-CHECK
-Input file: SS:<MOONMIST>GLOBAL.ZIL.354
+Abstracting SS:<MOONMIST>TOWER.
+Loading abstract SS:<MOONMIST>THINGS.ZABSTR.1.
+Loading abstract SS:<MOONMIST>PLACES.ZABSTR.1.
+Loading SS:<MOONMIST>GLOBAL.ZIL.356 and compiling it.
 Compiling routine: LOCAL-GLOBALS-F
 Compiling routine: UPSTAIRS-DOWNSTAIRS
 Compiling routine: DO-INSTEAD-OF
@@ -781,573 +232,209 @@ Compiling routine: KEYHOLE-F
 Compiling routine: HANDS-F
 Compiling routine: HEAD-F
 Compiling routine: EYE-F
+Compiling routine: OTHER-OUTFIT-F
 Compiling routine: FIND-BODY
 Compiling routine: PASSAGE-F
 Compiling routine: CORPSE-F
 Compiling routine: UNDRESSED-F
 Compiling routine: ARTIFACT-F
 Compiling routine: TIMES-UP
-Input file: SS:<MOONMIST>COLORS.ZIL.353
-Compiling routine: INTRO
-Compiling routine: YOUR-COLOR-F
-Compiling routine: GET-COLOR
-Compiling routine: FIX-COLOR-ADJ
-Compiling routine: DO-VARIATION
-Compiling routine: CANE-F
-Compiling routine: PAINT-F
-Compiling routine: DISCOVER-WAR-CLUB
-Compiling routine: ATTACK-VERB?
-Compiling routine: WAR-CLUB-F
-Compiling routine: DESCRIBE-WAR-CLUB
-Compiling routine: SKULL-F
-Compiling routine: MOONMIST-F
-Compiling routine: CLUE-1-F
-Compiling routine: CLUE-2-F
-Compiling routine: CLUE-3-F
-Compiling routine: CLUE-4-F
-Compiling routine: PRINT-COLOR
-Compiling routine: TELL-SUFFIX
-Compiling routine: TITLE-NAME
-Compiling routine: TITLE
-Compiling routine: NON-BLANK-STUFF
-Compiling routine: FULL-NAME
-Compiling routine: GET-NAME
-Compiling routine: PRINT-NAME
+Abstracting SS:<MOONMIST>GLOBAL.
+Loading abstract SS:<MOONMIST>COLORS.ZABSTR.1.
  ** Warning: Never defined - A?GREEN
  ** Warning: Never defined - A?BLUE
  ** Warning: Never defined - A?RED
  ** Warning: Never defined - A?YELLOW
 
-Warnings: 4
+Warnings: 7
  ** Note: OBJECT has no properties: ROOMS
  ** Note: OBJECT has no properties: GENERIC-CLUE
 Vocabulary: 955
+
 Prepositions: 24
-	 IN
-	 UNTIL
-	 AGAINST
-	 BESIDE
-	 AWAY
-	 BEHIND
-	 AROUND
-	 ACROSS
-	 RID
-	 FROM
-	 THROUGH
-	 OVER
-	 DOWN
-	 UP
-	 OFF
-	 ABOUT
-	 ON
-	 UNDER
-	 OUT
-	 FOR
-	 WITH
-	 TO
-	 AT
-Objects: 253
-	 BUST
-	 HORN
-	 MEMENTO
-	 WENDISH-CHAIR
-	 PUNCHBOWL
-	 LOVER-PIC
-	 POND
-	 WINDOW
-	 COURTYARD
-	 DRAWING-ROOM
-	 TOMB
-	 IRIS-CHAIR
-	 DRIVEWAY
-	 WENDISH-ROOM
-	 SECRET-SITTING-DOOR
-	 WELL
-	 LIBRARY-CHAIR
-	 DUNGEON
-	 EARRING
-	 CORR-3
-	 LUMBER-ROOM
-	 CHAPEL
-	 GAME-ROOM
-	 LUMBER-CHEST
-	 LUMBER-RING
-	 PEEPHOLE-2
-	 MAGAZINE
-	 STAINED-WINDOW
-	 BUFFALO-HEAD
-	 RHINO-HEAD
-	 GLASS-EYE
-	 DECK
-	 LADDER
-	 SECRET-LANDING-JACK
-	 PASSAGE-1
-	 SECRET-LANDING-TAM
-	 SECRET-VIVIEN-PASSAGE
-	 DINING-PASSAGE
-	 SECRET-LANDING-LIB
-	 SECRET-IAN-PASSAGE
-	 SITTING-PASSAGE
-	 YOUR-CLOSET
-	 IRIS-CLOSET
-	 WENDISH-CORNER
-	 MIDPOINT
-	 DRAWING-CLOSET
-	 GALLERY-CORNER
-	 HYDE-CLOSET
-	 PSEUDO-OBJECT
-	 LUGGAGE
-	 BROCHURE
-	 BLOWGUN
-	 MACE
-	 NECKLACE-OF-D
-	 JEWEL
-	 LENS
-	 LENS-BOX
-	 LENS-1
-	 LENS-2
-	 LETTER
-	 LETTER-MAID
-	 LETTER-DEE
-	 TURN
-	 IT
-	 FLOOR
-	 DANGER
-	 INTNUM
-	 YOU
-	 WALL
-	 GLOBAL-HERE
-	 TWEED-OUTFIT
-	 SLEEP-OUTFIT
-	 EXERCISE-OUTFIT
-	 DINNER-OUTFIT
-	 SLEEP-GLOBAL
-	 LIGHT-GLOBAL
-	 HAUNTING
-	 KEYHOLE
-	 HANDS
-	 HEAD
-	 EYE
-	 PASSAGE
-	 ROMANCE
-	 ACCIDENT
-	 CORPSE
-	 UNDRESSED
-	 ARTIFACT
-	 YOUR-COLOR
-	 CANE
-	 PAINT
-	 WAR-CLUB
-	 SKULL
-	 NECKLACE
-	 MOONMIST
-	 GENERIC-CLUE
-	 CLUE-1
-	 CLUE-2
-	 CLUE-3
-	 CLUE-4
-	 TABLE-LIBRARY
-	 SECRET-HYDE-DOOR
-	 GARDEN
-	 JUNCTION
-	 WENDISH-STUFF
-	 VICTORIA-CHAIR
-	 BACKSTAIRS
-	 MAZE
-	 COAT-RACK
-	 OBJECT-PAIR
-	 BASEMENT
-	 ARMOR
-	 FIGURINE
-	 DINNER
-	 OCEAN
-	 SECRET-VIVIEN-DOOR
-	 PIANO
-	 FIREPLACE
-	 BOOKCASE
-	 CORR-2
-	 VIVIEN-BOX
-	 DRESSING-TABLE
-	 JOURNAL
-	 SECRET-IAN-DOOR
-	 TAMARA-BED
-	 DRESSING-BENCH
-	 WENDISH-KIT
-	 GHOST-NEW
-	 SECRET-DRAWING-DOOR
-	 HISTORY-BOOK
-	 DEB
-	 NIGHTSTAND-LG
-	 TABLE-DINING
-	 DINNER-2
-	 SECRET-YOUR-DOOR
-	 BATHROOM
-	 CORR-1
-	 YOUR-MIRROR
-	 WARDROBE
-	 DRAGON
-	 NOT-HERE-OBJECT
-	 WRITING-DESK
-	 DRAGON-EYE
-	 LOVER-PATH
-	 SKELETON
-	 COUSIN
-	 STUDY
-	 CASTLE
-	 BOOKS-GLOBAL
-	 FRIEND
-	 COFFIN
-	 STAIRS
-	 CAR
-	 WINE-RACK
-	 GHOST-OLD
-	 SIDEBOARD
-	 NIGHTLAMP
-	 LOVER
-	 CHEST-OF-DRAWERS
-	 IRIS-ROOM
-	 TELESCOPE
-	 LAMP
-	 SECRET-TAMARA-DOOR
-	 JACK-ROOM
-	 HYDE-ROOM
-	 NIGHTSTAND
-	 VIVIEN-ROOM
-	 VIVIEN-DIARY
-	 LIBRARY
-	 SECRET-IRIS-DOOR
-	 HIM
-	 BOTTLE
-	 PRIEST-DOOR
-	 PAINTING-GALLERY
-	 OLD-GREAT-HALL
-	 BED
-	 TABLE-RANDOM
-	 FOYER
-	 GALLERY
-	 YOUR-BATHROOM-DOOR
-	 TOWER
-	 TAMARA-ROOM
-	 MAID
-	 GREAT-HALL
-	 LEVER
-	 HOLE-IN-WALL
-	 CRYPT
-	 FRONT-DOOR
-	 CREST
-	 OFFICER
-	 IAN-ROOM
-	 UMBRELLA-STAND
-	 WARDROBE-LG
-	 COSTUME
-	 LORD
-	 VIVIEN-STUFF
-	 IRON-MAIDEN
-	 DEALER
-	 PAINTER
-	 SECRET-WENDISH-DOOR
-	 YOUR-SWITCH
-	 TAMARA-EVIDENCE
-	 WENDISH-BOOK
-	 COMPUTER
-	 DRESSING-TABLE-LG
-	 DESK
-	 CREW-GLOBAL
-	 MUSTACHE
-	 WYVERN
-	 BUTLER
-	 SITTING-ROOM
-	 VIVIEN-CHAIR
-	 BELL
-	 DOCTOR
-	 MOON
-	 IAN-CHAIR
-	 INKWELL
-	 CANDLE
-	 SECRET-LIBRARY-DOOR
-	 YOUR-CHAIR
-	 PLAYER-NAME
-	 BRICKS
-	 WEST-HALL
-	 GLOBAL-OBJECTS
-	 SECRET-DINING-DOOR
-	 JACK-TAPE
-	 YOUR-BATHROOM
-	 DRESSING-MIRROR
-	 CHAIR-DINING
-	 PEEPHOLE
-	 OFFICE
-	 HYDE-CHAIR
-	 FRONT-GATE
-	 VOICE
-	 MUSIC
-	 TAPESTRY
-	 HER
-	 CHAIR
-	 LOCAL-GLOBALS
-	 PLAYER
-	 MIRROR-GLOBAL
-	 EAST-HALL
-	 LIMBO
-	 ROOMS
-	 INTDIR
-	 ANDIRON
-	 YOUR-ROOM
-	 DINING-ROOM
-	 KITCHEN
-	 RECORDER
-	 OIL-PAINTING
-	 JEWELRY-CASE
-	 SECRET-JACK-DOOR
-	 MEMENTO-2
+
+ABOUT	 AGAINST  AWAY	   DOWN	    IN	     OUT      THROUGH  UNTIL
+ACROSS	 AROUND	  BEHIND   FOR	    OFF	     OVER     TO       UP
+AFTER	 AT	  BESIDE   FROM	    ON	     RID      UNDER    WITH
+
+Real globals: 223
+
+AGAIN-DIR		 LDESC-STRINGS		  P-VTBL
+AGAIN-LEXV		 LIONEL-FORCED		  P-WALK-DIR
+AHHH			 LIONEL-SPEAKS-COUNTER	  P-WON
+AIMED-HERE		 LIONELS-VOICE		  P-XADJ
+ANCIENT-SECRETS		 LIT			  P-XADJN
+ARRESTED-THE-VILLAIN	 LONG-BLOND-HAIR	  P-XNAM
+AWAITING-REPLY		 LOVER-SAID		  PASS-LINE
+BED-LINE		 MAIN-LINE		  PASSAGE-EAST-WEST
+BEG-PARDON		 MASS-COUNTER		  PIANO-PIECES
+BRICKS-DOWN		 MASS-SAID		  PLAYER-OBSTACLES
+BUTLER-DUTY		 MIDDLE-WORD		  PLAYER-RANG-BELL?
+BUTLER-GHOST-STORY-TOLD	 MISSED-DINNER		  POISON-DART
+BUTLER-HINTS-COUNTER	 MUSTACHE-STORY		  PRESENT-TIME
+BUTLER-RANG-BELL?	 NAUGHTY-WORD-TABLE	  PRSA
+C-INTS			 NEVER-NOTICED-HER	  PRSI
+C-TABLE			 NO-CHANGING		  PRSO
+CAPTOR			 NO-VIOLENCE		  QCONTEXT
+CASTLE-IS-SOUTH		 NOT-ENOUGH-ROOM	  QUESTION-WORD-COUNT
+CHAR-CLOSET-TABLE	 NOTHING-NEW		  QUESTION-WORD-TABLE
+CHAR-POSS-TABLE		 NOW-PRSI		  QUESTIONERS
+CHAR-ROOM-TABLE		 NOW-WEARING		  QUESTIONS
+CHARACTER-TABLE		 NUMBER-WORD-TABLE	  QUITE-WELCOME
+CLASP-MUNGED		 OFFENDED		  QUOTE-FLAG
+CLOCK-WAIT		 OHERE			  QWP1-TABLE
+CLOCKER-RUNNING		 OOPS-INBUF		  QWP2-TABLE
+CLUE-LOC		 OOPS-PRINT		  REMEMBER-NOT-DRESSED
+COLOR-ADJS		 OOPS-TABLE		  RESERVE-INBUF
+COLOR-FORCED		 OPRSO			  RESERVE-LEXV
+COLOR-LETTERS		 OTHER-POSS-POS		  RESERVE-PTR
+COLOR-WORDS		 OU-STOP-SEARCHING	  RHYMES-WITH-RICH
+CONFESSED		 P-AADJ			  SEARCH-ROOMS
+COR-1			 P-ACLAUSE		  SEARCHER
+COR-2			 P-ADJ			  SECRET-TAM-LIB
+COR-4			 P-ADJN			  SHOOTER
+CREEPIES		 P-ADJW			  SHOT
+DARK-TURRETS		 P-ANAM			  SOMETHING
+DINING-DESC		 P-AND			  STAIRS-DOWN-LEFT
+DINNER-SAT		 P-BUTS			  STAIRS-UP-RIGHT
+DINNER-SIT-COUNTER	 P-CCTBL		  SUFFIX
+DIR-STRINGS		 P-CONT			  THATS-INTERESTING
+DISCOVERED-HERE		 P-DIRECTION		  TIMER-PREVENTS-IT
+DRAGON-EYE-COLOR	 P-END-ON-PREP		  TITLE-WORD
+EVIDENCE-FOUND		 P-GETFLAGS		  TOLD-ABOUT-EVID
+FAMOUS-YOUNG-DETECTIVE	 P-GWIMBIT		  TOLD-ABOUT-GHOST
+FAVE-COLOR		 P-HER-OBJECT		  TOO-SLIPPERY
+FAWNING			 P-HIM-OBJECT		  TOUCHED-LDESCS
+FIRST-NAME		 P-INBUF		  TOUR-FORCED
+FOLLOW-LOC		 P-IT-OBJECT		  TOUR-INDEX
+FOLLOWER		 P-IT-WORDS		  TOUR-PATH
+FOUND-COSTUME		 P-ITBL			  TOWER-LINE
+FOUND-FABRIC		 P-LEN			  TOWER-STAIRS
+FOUND-IT		 P-LEXV			  TRAILS-ALONG
+FOUND-IT-PERM		 P-MERGE		  TRANSFER-TABLE
+FOUND-LOC		 P-MERGED		  TREASURE
+FOUND-PASSAGES		 P-MOBY-FLAG		  TREASURE-FOUND
+FRIEND-FOUND-PASSAGES	 P-MOBY-FOUND		  TRESYLLIAN
+FUMBLE-NUMBER		 P-NAM			  VARIATION
+FUMBLE-PROB		 P-NAMW			  VERBOSITY
+GENDER-KNOWN		 P-NCN			  VILLAIN-KNOWN?
+GHOST-CACKLES		 P-NUMBER		  VILLAIN-PER
+GLASSES-FOR		 P-OCL1			  WASHED
+GOAL-PERSON		 P-OCL2			  WHICH-DIR
+GOAL-TABLES		 P-OFLAG		  WHITISH-GLIMPSE
+GUEST-TABLE		 P-OFW			  WHO-CARES-TBL
+HIDING-PLACE		 P-OTBL			  WHO-CARES-VERB
+HO-HUM			 P-OVTBL		  WING-STAIRS
+I-ASSUME		 P-PHR			  WINNER
+IDENTIFIED-THE-GHOST	 P-PROMPT		  WRONG-OUTFIT
+IM-SHOCKED		 P-PRSA-WORD		  YAWNS
+INTO-DARKNESS		 P-PRSI			  YES-INBUF
+INTRODUCES		 P-PRSO			  YES-LEXV
+JACK-THINKS-GLADYS	 P-SLOCBITS		  YOU-DIDNT-SAY-W
+KEEP-WAITING		 P-SYNTAX		  YUKS
+LAST-NAME		 P-TABLE
+LAST-PSEUDO-LOC		 P-TIME
+
+Objects: 254
+
+ACCIDENT	       GREAT-HALL	      PIANO
+ANDIRON		       HANDS		      PLAYER
+ARMOR		       HAUNTING		      PLAYER-NAME
+ARTIFACT	       HEAD		      POND
+BACKSTAIRS	       HER		      PRIEST-DOOR
+BASEMENT	       HIM		      PSEUDO-OBJECT
+BATHROOM	       HISTORY-BOOK	      PUNCHBOWL
+BED		       HOLE-IN-WALL	      RECORDER
+BELL		       HORN		      RHINO-HEAD
+BLOWGUN		       HYDE-CHAIR	      ROMANCE
+BOOKCASE	       HYDE-CLOSET	      ROOMS
+BOOKS-GLOBAL	       HYDE-ROOM	      SECRET-DINING-DOOR
+BOTTLE		       IAN-CHAIR	      SECRET-DRAWING-DOOR
+BRICKS		       IAN-ROOM		      SECRET-HYDE-DOOR
+BROCHURE	       INKWELL		      SECRET-IAN-DOOR
+BUFFALO-HEAD	       INTDIR		      SECRET-IAN-PASSAGE
+BUST		       INTNUM		      SECRET-IRIS-DOOR
+BUTLER		       IRIS-CHAIR	      SECRET-JACK-DOOR
+CANDLE		       IRIS-CLOSET	      SECRET-LANDING-JACK
+CANE		       IRIS-ROOM	      SECRET-LANDING-LIB
+CAR		       IRON-MAIDEN	      SECRET-LANDING-TAM
+CASTLE		       IT		      SECRET-LIBRARY-DOOR
+CHAIR		       JACK-ROOM	      SECRET-SITTING-DOOR
+CHAIR-DINING	       JACK-TAPE	      SECRET-TAMARA-DOOR
+CHAPEL		       JEWEL		      SECRET-VIVIEN-DOOR
+CHEST-OF-DRAWERS       JEWELRY-CASE	      SECRET-VIVIEN-PASSAGE
+CLUE-1		       JOURNAL		      SECRET-WENDISH-DOOR
+CLUE-2		       JUNCTION		      SECRET-YOUR-DOOR
+CLUE-3		       KEYHOLE		      SIDEBOARD
+CLUE-4		       KITCHEN		      SITTING-PASSAGE
+COAT-RACK	       LADDER		      SITTING-ROOM
+COFFIN		       LAMP		      SKELETON
+COMPUTER	       LENS		      SKULL
+CORPSE		       LENS-1		      SLEEP-GLOBAL
+CORR-1		       LENS-2		      SLEEP-OUTFIT
+CORR-2		       LENS-BOX		      STAINED-WINDOW
+CORR-3		       LETTER		      STAIRS
+COSTUME		       LETTER-DEE	      STUDY
+COURTYARD	       LETTER-MAID	      TABLE-DINING
+COUSIN		       LEVER		      TABLE-LIBRARY
+CREST		       LIBRARY		      TABLE-RANDOM
+CREW-GLOBAL	       LIBRARY-CHAIR	      TAMARA-BED
+CRYPT		       LIGHT-GLOBAL	      TAMARA-EVIDENCE
+DANGER		       LIMBO		      TAMARA-ROOM
+DEALER		       LOCAL-GLOBALS	      TAPESTRY
+DEB		       LORD		      TELESCOPE
+DECK		       LOVER		      TOMB
+DESK		       LOVER-PATH	      TOWER
+DINING-PASSAGE	       LOVER-PIC	      TURN
+DINING-ROOM	       LUGGAGE		      TWEED-OUTFIT
+DINNER		       LUMBER-CHEST	      UMBRELLA-STAND
+DINNER-2	       LUMBER-RING	      UNDRESSED
+DINNER-OUTFIT	       LUMBER-ROOM	      VICTORIA-CHAIR
+DOCTOR		       MACE		      VIVIEN-BOX
+DRAGON		       MAGAZINE		      VIVIEN-CHAIR
+DRAGON-EYE	       MAID		      VIVIEN-DIARY
+DRAWING-CLOSET	       MAZE		      VIVIEN-ROOM
+DRAWING-ROOM	       MEMENTO		      VIVIEN-STUFF
+DRESSING-BENCH	       MEMENTO-2	      VOICE
+DRESSING-MIRROR	       MIDPOINT		      WALL
+DRESSING-TABLE	       MIRROR-GLOBAL	      WAR-CLUB
+DRESSING-TABLE-LG      MOON		      WARDROBE
+DRIVEWAY	       MOONMIST		      WARDROBE-LG
+DUNGEON		       MUSIC		      WELL
+EARRING		       MUSTACHE		      WENDISH-BOOK
+EAST-HALL	       NECKLACE		      WENDISH-CHAIR
+EXERCISE-OUTFIT	       NECKLACE-OF-D	      WENDISH-CORNER
+EYE		       NIGHTLAMP	      WENDISH-KIT
+FIGURINE	       NIGHTSTAND	      WENDISH-ROOM
+FIREPLACE	       NIGHTSTAND-LG	      WENDISH-STUFF
+FLOOR		       NOT-HERE-OBJECT	      WEST-HALL
+FOYER		       OBJECT-PAIR	      WINDOW
+FRIEND		       OCEAN		      WINE-RACK
+FRONT-DOOR	       OFFICE		      WRITING-DESK
+FRONT-GATE	       OFFICER		      WYVERN
+GALLERY		       OIL-PAINTING	      YOU
+GALLERY-CORNER	       OLD-GREAT-HALL	      YOUR-BATHROOM
+GAME-ROOM	       OTHER-OUTFIT	      YOUR-BATHROOM-DOOR
+GARDEN		       PAINT		      YOUR-CHAIR
+GENERIC-CLUE	       PAINTER		      YOUR-CLOSET
+GHOST-NEW	       PAINTING-GALLERY	      YOUR-COLOR
+GHOST-OLD	       PASSAGE		      YOUR-MIRROR
+GLASS-EYE	       PASSAGE-1	      YOUR-ROOM
+GLOBAL-HERE	       PEEPHOLE		      YOUR-SWITCH
+GLOBAL-OBJECTS	       PEEPHOLE-2
+
 Properties: 27
-	 P?SW
-	 P?SE
-	 P?NE
-	 P?NW
-	 P?UP
-	 P?DOWN
-	 P?WEST
-	 P?NORTH
-	 P?SOUTH
-	 P?EAST
-	 P?IN
-	 P?OUT
-	 P?THINGS
-	 P?GLOBAL
-	 P?STATION
-	 P?GENERIC
-	 P?SIZE
-	 P?CAPACITY
-	 P?TEXT
-	 P?DESCFCN
-	 P?CHARACTER
-	 P?LINE
-	 P?LDESC
-	 P?ADJECTIVE
-	 P?SYNONYM
-	 P?ACTION
-Globals: 223
-	 P-ACLAUSE
-	 WHICH-DIR
-	 BUTLER-DUTY
-	 INTO-DARKNESS
-	 SECRET-TAM-LIB
-	 PASSAGE-EAST-WEST
-	 POISON-DART
-	 CLASP-MUNGED
-	 COR-1
-	 COR-2
-	 COR-4
-	 WING-STAIRS
-	 TOWER-STAIRS
-	 FOUND-IT
-	 FOUND-IT-PERM
-	 FOUND-LOC
-	 NOTHING-NEW
-	 NOW-WEARING
-	 OHERE
-	 VILLAIN-PER
-	 TREASURE
-	 HIDING-PLACE
-	 COLOR-FORCED
-	 COLOR-WORDS
-	 COLOR-ADJS
-	 COLOR-LETTERS
-	 FAVE-COLOR
-	 FIRST-NAME
-	 LAST-NAME
-	 SUFFIX
-	 GENDER-KNOWN
-	 MIDDLE-WORD
-	 TITLE-WORD
-	 IM-SHOCKED
-	 QUITE-WELCOME
-	 MISSED-DINNER
-	 FOUND-FABRIC
-	 P-HER-OBJECT
-	 P-NCN
-	 PLAYER-RANG-BELL?
-	 BED-LINE
-	 I-ASSUME
-	 WHITISH-GLIMPSE
-	 CHAR-CLOSET-TABLE
-	 QUESTION-WORD-COUNT
-	 CHARACTER-TABLE
-	 SEARCHER
-	 DINNER-SIT-COUNTER
-	 MAIN-LINE
-	 DISCOVERED-HERE
-	 NAUGHTY-WORD-TABLE
-	 CAPTOR
-	 TOLD-ABOUT-EVID
-	 TOLD-ABOUT-GHOST
-	 DARK-TURRETS
-	 VILLAIN-KNOWN?
-	 QWP2-TABLE
-	 NUMBER-WORD-TABLE
-	 CHAR-ROOM-TABLE
-	 P-IT-OBJECT
-	 RESERVE-INBUF
-	 FOLLOWER
-	 YAWNS
-	 FUMBLE-PROB
-	 FUMBLE-NUMBER
-	 P-AND
-	 LIONELS-VOICE
-	 LIONEL-FORCED
-	 P-BUTS
-	 P-LEN
-	 REMEMBER-NOT-DRESSED
-	 STAIRS-UP-RIGHT
-	 AIMED-HERE
-	 SHOOTER
-	 SEARCH-ROOMS
-	 IDENTIFIED-THE-GHOST
-	 ARRESTED-THE-VILLAIN
-	 FOUND-PASSAGES
-	 FOUND-COSTUME
-	 TOUCHED-LDESCS
-	 OPRSO
-	 PRSO
-	 P-OFLAG
-	 P-ITBL
-	 P-OCL1
-	 P-OCL2
-	 GHOST-CACKLES
-	 BUTLER-GHOST-STORY-TOLD
-	 FAMOUS-YOUNG-DETECTIVE
-	 VERBOSITY
-	 QUOTE-FLAG
-	 P-OVTBL
-	 TIMER-PREVENTS-IT
-	 WASHED
-	 P-MOBY-FOUND
-	 HO-HUM
-	 PLAYER-OBSTACLES
-	 TRANSFER-TABLE
-	 P-OTBL
-	 CLUE-LOC
-	 PRSA
-	 PASS-LINE
-	 OTHER-POSS-POS
-	 NEVER-NOTICED-HER
-	 P-LEXV
-	 WINNER
-	 AGAIN-LEXV
-	 TRESYLLIAN
-	 RHYMES-WITH-RICH
-	 FAWNING
-	 LDESC-STRINGS
-	 GLASSES-FOR
-	 MASS-SAID
-	 BUTLER-HINTS-COUNTER
-	 YUKS
-	 WHO-CARES-TBL
-	 P-OFW
-	 P-ADJW
-	 P-NAMW
-	 TREASURE-FOUND
-	 PIANO-PIECES
-	 INTRODUCES
-	 OOPS-INBUF
-	 SHOT
-	 P-PHR
-	 P-CCTBL
-	 P-TIME
-	 OFFENDED
-	 BEG-PARDON
-	 P-INBUF
-	 RESERVE-PTR
-	 QCONTEXT
-	 LIT
-	 RESERVE-LEXV
-	 P-TABLE
-	 QUESTIONS
-	 QUESTIONERS
-	 GUEST-TABLE
-	 SOMETHING
-	 QUESTION-WORD-TABLE
-	 TOWER-LINE
-	 TOUR-PATH
-	 MUSTACHE-STORY
-	 LOVER-SAID
-	 BUTLER-RANG-BELL?
-	 BRICKS-DOWN
-	 NO-CHANGING
-	 TRAILS-ALONG
-	 TOUR-FORCED
-	 P-PRSI
-	 P-IT-WORDS
-	 AWAITING-REPLY
-	 P-ADJ
-	 P-MERGE
-	 P-XADJ
-	 P-PRSO
-	 P-HIM-OBJECT
-	 DIR-STRINGS
-	 OU-STOP-SEARCHING
-	 OOPS-TABLE
-	 P-CONT
-	 NOT-ENOUGH-ROOM
-	 NO-VIOLENCE
-	 YOU-DIDNT-SAY-W
-	 AHHH
-	 GOAL-TABLES
-	 TOUR-INDEX
-	 YES-INBUF
-	 YES-LEXV
-	 LAST-PSEUDO-LOC
-	 VARIATION
-	 GOAL-PERSON
-	 DINING-DESC
-	 WRONG-OUTFIT
-	 CREEPIES
-	 WHO-CARES-VERB
-	 CASTLE-IS-SOUTH
-	 CHAR-POSS-TABLE
-	 FOLLOW-LOC
-	 PRESENT-TIME
-	 CLOCKER-RUNNING
-	 C-TABLE
-	 EVIDENCE-FOUND
-	 C-INTS
-	 CLOCK-WAIT
-	 DINNER-SAT
-	 TOO-SLIPPERY
-	 DRAGON-EYE-COLOR
-	 THATS-INTERESTING
-	 ANCIENT-SECRETS
-	 STAIRS-DOWN-LEFT
-	 P-MOBY-FLAG
-	 NOW-PRSI
-	 P-PROMPT
-	 QWP1-TABLE
-	 MASS-COUNTER
-	 JACK-THINKS-GLADYS
-	 P-NUMBER
-	 LIONEL-SPEAKS-COUNTER
-	 PRSI
-	 LONG-BLOND-HAIR
-	 P-VTBL
-	 CONFESSED
-	 P-END-ON-PREP
-	 P-MERGED
-	 AGAIN-DIR
-	 P-ADJN
-	 FRIEND-FOUND-PASSAGES
-	 P-GETFLAGS
-	 P-WON
-	 OOPS-PRINT
-	 P-PRSA-WORD
-	 P-AADJ
-	 P-SYNTAX
-	 P-GWIMBIT
-	 P-XADJN
-	 P-DIRECTION
-	 KEEP-WAITING
-	 P-ANAM
-	 P-WALK-DIR
-	 P-XNAM
-	 P-NAM
-	 P-SLOCBITS
\ No newline at end of file
+
+P?ACTION     P?DESCFCN	  P?IN	       P?NW	    P?STATION	 P?UP
+P?ADJECTIVE  P?DOWN	  P?LDESC      P?OUT	    P?SW	 P?WEST
+P?CAPACITY   P?EAST	  P?LINE       P?SE	    P?SYNONYM
+P?CHARACTER  P?GENERIC	  P?NE	       P?SIZE	    P?TEXT
+P?CORRIDOR   P?GLOBAL	  P?NORTH      P?SOUTH	    P?THINGS
+
+Flags: 28
+
+CONTBIT	     LOCKED	  OPENBIT      SECRETBIT    TOUCHBIT	 WEAPONBIT
+DOORBIT	     MUNGBIT	  PERSONBIT    SEENBIT	    TRANSBIT	 WEARBIT
+FEMALE	     NARTICLEBIT  READBIT      SURFACEBIT   TRYTAKEBIT	 WORNBIT
+INVISIBLE    NDESCBIT	  RMUNGBIT     TAKEBIT	    VEHBIT
+LIGHTBIT     ONBIT	  SEARCHBIT    TOOLBIT	    VOWELBIT
diff --git a/m5.serial b/m5.serial
new file mode 100644
index 0000000..3fdcd7c
--- /dev/null
+++ b/m5.serial
@@ -0,0 +1 @@
+67
diff --git a/m5.zap b/m5.zap
new file mode 100644
index 0000000..bf5ea6a
--- /dev/null
+++ b/m5.zap
@@ -0,0 +1,53 @@
+	.TIME
+; Low core locations
+%ZVERSION::	.BYTE	0
+		.BYTE	FLAGS
+%ZORKID::	ZORKID
+%ENDLOD::	ENDLOD
+%START::	START
+%VOCAB::	VOCAB
+%OBJECT::	OBJECT
+%GLOBAL::	GLOBAL
+%PURBOT::	IMPURE
+%FLAGS::	.WORD 64
+%SERIAL::	.WORD	0
+%SERI1::	.WORD	0
+%SERI2::	.WORD	0
+%FWORDS::	WORDS
+%PLENTH::	.WORD	0
+%PCHKSM::	.WORD	0
+%INTWRD::	.WORD	0
+%SCRWRD::	.WORD	0
+	.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+.WORD	0
+	.INSERT "SS:<MOONMIST>M5FREQ"	;Frequent word table
+	.INSERT "SS:<MOONMIST>M5DAT"	; Data file
+	.INSERT "SS:<MOONMIST>M5PUR"
+	.INSERT "SS:<MOONMIST>MISC"
+	.INSERT "SS:<MOONMIST>PARSER"
+	.INSERT "SS:<MOONMIST>VERBS"
+	.INSERT "SS:<MOONMIST>GOAL"
+	.INSERT "SS:<MOONMIST>PEOPLE"
+	.INSERT "SS:<MOONMIST>CASTLE"
+	.INSERT "SS:<MOONMIST>TOWER"
+	.INSERT "SS:<MOONMIST>THINGS"
+	.INSERT "SS:<MOONMIST>PLACES"
+	.INSERT "SS:<MOONMIST>GLOBAL"
+	.INSERT "SS:<MOONMIST>COLORS"
+
+	.INSERT "SS:<MOONMIST>M5STR"
+
+	.END
diff --git a/m5.zil b/m5.zil
new file mode 100644
index 0000000..0e4773b
--- /dev/null
+++ b/m5.zil
@@ -0,0 +1,48 @@
+"COMPILE/LOAD FILE for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+<SETG ZDEBUGGING? <>>
+<DEFINE DEBUG-CODE ('X "OPTIONAL" ('Y T))
+	<COND (,ZDEBUGGING? .X) (ELSE .Y)>>
+
+<SETG NEW-VOC? T>
+<FREQUENT-WORDS?>
+<VERSION ZIP TIME>
+
+<COND (<GASSIGNED? PREDGEN>
+       <PRINC "Compiling">
+       <ID 0>)
+      (T <PRINC "Loading">)>
+
+<PRINC " MOONMIST: interactive fiction from Infocom!
+">
+
+ON!-INITIAL	"for DEBUGR"
+OFF!-INITIAL
+ENABLE!-INITIAL
+DISABLE!-INITIAL
+
+<SET REDEFINE T>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !,WBREAKS>>>
+
+<DIRECTIONS ;"Do not change the order of the first eight
+	      without consulting Marc! -- per ENCHANTER"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<INSERT-FILE "MACROS">
+<INSERT-FILE "MISC">
+<INSERT-FILE "SYNTAX">
+<INSERT-FILE "PARSER">
+<INSERT-FILE "VERBS">
+<INSERT-FILE "GOAL">
+<INSERT-FILE "PEOPLE">
+<INSERT-FILE "CASTLE">
+<INSERT-FILE "TOWER">
+<INSERT-FILE "THINGS">
+<INSERT-FILE "PLACES">
+<INSERT-FILE "GLOBAL">
+<INSERT-FILE "COLORS">
+
+<PROPDEF SIZE 5>
diff --git a/m5.zip b/m5.zip
index 0948e50..127ff94 100644
Binary files a/m5.zip and b/m5.zip differ
diff --git a/m5dat.zap b/m5dat.zap
new file mode 100644
index 0000000..74dc6e9
--- /dev/null
+++ b/m5dat.zap
@@ -0,0 +1,16526 @@
+
+
+; 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
+
+
+	TOOLBIT=4
+	FX?TOOLBIT=2048
+
+	MUNGBIT=5
+	FX?MUNGBIT=1024
+
+	INVISIBLE=6
+	FX?INVISIBLE=512
+
+	DOORBIT=7
+	FX?DOORBIT=256
+
+	LOCKED=8
+	FX?LOCKED=128
+
+	TRANSBIT=9
+	FX?TRANSBIT=64
+
+	ONBIT=10
+	FX?ONBIT=32
+
+	VOWELBIT=11
+	FX?VOWELBIT=16
+
+	TRYTAKEBIT=12
+	FX?TRYTAKEBIT=8
+
+	SECRETBIT=13
+	FX?SECRETBIT=4
+
+	OPENBIT=14
+	FX?OPENBIT=2
+
+	FEMALE=15
+	FX?FEMALE=1
+
+	TOUCHBIT=16
+	FX?TOUCHBIT=32768
+
+	SEENBIT=17
+	FX?SEENBIT=16384
+
+	SEARCHBIT=18
+	FX?SEARCHBIT=8192
+
+	NDESCBIT=19
+	FX?NDESCBIT=4096
+
+	NARTICLEBIT=20
+	FX?NARTICLEBIT=2048
+
+	WORNBIT=21
+	FX?WORNBIT=1024
+
+	READBIT=22
+	FX?READBIT=512
+
+	SURFACEBIT=23
+	FX?SURFACEBIT=256
+
+	LIGHTBIT=24
+	FX?LIGHTBIT=128
+
+	WEAPONBIT=25
+	FX?WEAPONBIT=64
+
+	TAKEBIT=26
+	FX?TAKEBIT=32
+
+	CONTBIT=27
+	FX?CONTBIT=16
+
+	VEHBIT=28
+	FX?VEHBIT=8
+
+	WEARBIT=29
+	FX?WEARBIT=4
+
+	RMUNGBIT=30
+	FX?RMUNGBIT=2
+
+	PERSONBIT=31
+	FX?PERSONBIT=1
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?$VERIFY=0
+	V?AIM=1
+	V?SSHOW=2
+	V?SAIM=3
+	V?ANALYZE=4
+	V?LOOK-UNDER=5
+	V?LOOK-UP=6
+	V?SANALYZE=7
+	V?ANSWER=8
+	V?REPLY=9
+	V?ARREST=10
+	V?ASK=11
+	V?ASK-CONTEXT-ABOUT=12
+	V?ASK-CONTEXT-FOR=13
+	V?ASK-ABOUT=14
+	V?ASK-FOR=15
+	V?ATTACK=16
+	V?BOW=17
+	V?BRIEF=18
+	V?BRUSH=19
+	V?BOARD=20
+	V?$CALL=21
+	V?CHANGE=22
+	V?WEAR=23
+	V?DRESS=24
+	V?CLIMB-DOWN=25
+	V?DISEMBARK=26
+	V?CLIMB-ON=27
+	V?THROUGH=28
+	V?CLIMB-UP=29
+	V?CLOSE=30
+	V?COMPARE=31
+	V?CONFRONT=32
+	V?MUNG=33
+	V?DANCE=34
+	V?DESCRIBE=35
+	V?EAT=36
+	V?DRINK=37
+	V?DROP=38
+	V?PUT=39
+	V?PUT-IN=40
+	V?THROW-THROUGH=41
+	V?EMPTY=42
+	V?EXAMINE=43
+	V?READ=44
+	V?TALK-ABOUT=45
+	V?STELL-ABOUT=46
+	V?TELL-ABOUT=47
+	V?FAINT=48
+	V?RUB=49
+	V?FILL=50
+	V?FIND=51
+	V?SSEARCH-FOR=52
+	V?FIX=53
+	V?FOLLOW=54
+	V?FORGIVE=55
+	V?TAKE=56
+	V?TAKE-TO=57
+	V?STAND=58
+	V?GIVE=59
+	V?SGIVE=60
+	V?QUIT=61
+	V?HELLO=62
+	V?HELP=63
+	V?PUT-UNDER=64
+	V?HOLD-UP=65
+	V?INVENTORY=66
+	V?LEAP=67
+	V?KILL=68
+	V?KISS=69
+	V?KNOCK=70
+	V?PUSH=71
+	V?SLAP=72
+	V?LEAVE=73
+	V?LIE=74
+	V?LAMP-ON=75
+	V?LISTEN=76
+	V?LOCK=77
+	V?LOOK=78
+	V?CHASTISE=79
+	V?LOOK-BEHIND=80
+	V?LOOK-DOWN=81
+	V?LOOK-INSIDE=82
+	V?SEARCH-FOR=83
+	V?LOOK-ON=84
+	V?LOOK-OUTSIDE=85
+	V?LOOK-THROUGH=86
+	V?MEET=87
+	V?MOVE=88
+	V?MOVE-DIR=89
+	V?NO=90
+	V?NOD=91
+	V?OPEN=92
+	V?OPEN-WITH=93
+	V?PLAY=94
+	V?POUR=95
+	V?PRAY=96
+	V?SREAD=97
+	V?REMOVE=98
+	V?RESTART=99
+	V?RESTORE=100
+	V?RING=101
+	V?SSHOOT=102
+	V?SAVE=103
+	V?SAY=104
+	V?TELL=105
+	V?SCORE=106
+	V?SCRIPT=107
+	V?SEARCH=108
+	V?SHAKE=109
+	V?SHOOT=110
+	V?SHOW=111
+	V?LAMP-OFF=112
+	V?SIGN=113
+	V?SIT=114
+	V?SIT-AT=115
+	V?SMELL=116
+	V?SMILE=117
+	V?SORRY=118
+	V?SOUND=119
+	V?STOP=120
+	V?SUPER-BRIEF=121
+	V?SWIM=122
+	V?TAKE-OFF=123
+	V?THANKS=124
+	V?THROW-AT=125
+	V?TIME=126
+	V?TURN=127
+	V?UNDRESS=128
+	V?UNLOCK=129
+	V?UNSCRIPT=130
+	V?USE=131
+	V?VERBOSE=132
+	V?VERSION=133
+	V?WAIT-FOR=134
+	V?WAIT-UNTIL=135
+	V?ALARM=136
+	V?WALK=137
+	V?WALK-AROUND=138
+	V?WALK-TO=139
+	V?DRIVE-TO=140
+	V?RUN-OVER=141
+	V?YELL=142
+	V?YES=143
+
+; PROPERTIES ARE DEFINED HERE
+
+	P?NORTH=31
+	P?NE=30
+	P?EAST=29
+	P?SE=28
+	P?SOUTH=27
+	P?SW=26
+	P?WEST=25
+	P?NW=24
+	P?UP=23
+	P?DOWN=22
+	P?IN=21
+	P?OUT=20
+	P?ACTION=19
+	P?SYNONYM=18
+	P?ADJECTIVE=17
+	P?LDESC=16
+	P?LINE=15
+	P?CHARACTER=14
+	P?DESCFCN=13
+	P?TEXT=12
+	P?CAPACITY=11
+	P?SIZE=10
+	P?GENERIC=9
+	P?STATION=8
+	P?GLOBAL=7
+	P?THINGS=6
+	P?CORRIDOR=5
+
+; ADJECTIVES ARE DEFINED HERE
+
+	A?NORTH=255
+	A?EAST=254
+	A?SOUTH=253
+	A?WEST=252
+	A?NE=251
+	A?NW=250
+	A?SE=249
+	A?SW=248
+	A?F.N=247
+	A?L.N=246
+	A?MS=245
+	A?MISS=244
+	A?TAMARA=243
+	A?TAMMY=242
+	A?LYND=241
+	A?WOMAN=240
+	A?TAM'S=239
+	A?HER=238
+	A?TALL=237
+	A?MY=236
+	A?LORD=235
+	A?JACK=234
+	A?TRESYLLIAN=233
+	A?MAN=232
+	A?SECRET=231
+	A?TAPE=230
+	A?JACK'S=229
+	A?HIS=228
+	A?BLOND=227
+	A?BLONDE=226
+	A?DEIRDRE=225
+	A?DEE=224
+	A?HALLAM=223
+	A?IRIS=222
+	A?VANE=221
+	A?MR=220
+	A?MISTER=219
+	A?IAN=218
+	A?FORDYCE=217
+	A?OFFICE=216
+	A?DR=215
+	A?DOCTOR=214
+	A?NICHOLAS=213
+	A?WENDISH=212
+	A?DOC'S=211
+	A?NOTE=210
+	A?LAB=209
+	A?LABORATORY=208
+	A?ART=207
+	A?MONTAGUE=206
+	A?HYDE=205
+	A?DEALER=204
+	A?MRS=203
+	A?VIVIEN=202
+	A?VIV=201
+	A?PENTREATH=200
+	A?VIV'S=199
+	A?LIONEL=198
+	A?UNCLE=197
+	A?WHITE=196
+	A?BOLITHO=195
+	A?BUTLER=194
+	A?UPSTAIRS=193
+	A?GLADYS=192
+	A?MAID=191
+	A?OLD=190
+	A?NEW=189
+	A?DEE'S=188
+	A?CASTLE=187
+	A?GHOST=186
+	A?G'S=185
+	A?PALE=184
+	A?IAN'S=183
+	A?HYDE'S=182
+	A?IRIS'S=181
+	A?B'S=180
+	A?LI'S=179
+	A?MAID'S=178
+	A?WORM'S=177
+	A?BUF'S=176
+	A?RH'S=175
+	A?STONE=174
+	A?TOWER=173
+	A?FULL=172
+	A?BLUE=171
+	A?SPORTS=170
+	A?LITTLE=169
+	A?F.C=168
+	A?LOUD=167
+	A?HIDDEN=166
+	A?MOTOR=165
+	A?DRIVE=164
+	A?CAR=163
+	A?DRAGON=162
+	A?WYVERN=161
+	A?ORNAMENT=160
+	A?RED=159
+	A?GREEN=158
+	A?DOOR=157
+	A?FRONT=156
+	A?IRON=155
+	A?COURT=154
+	A?HEDGE=153
+	A?FOYER=152
+	A?DOUBLE=151
+	A?BRONZE=150
+	A?UMBRELLA=149
+	A?COAT=148
+	A?PASSAGE=147
+	A?DRAWING=146
+	A?OIL=145
+	A?ARM=144
+	A?SATIN=143
+	A?GREAT=142
+	A?WOOD=141
+	A?SEAT=140
+	A?SITTING=139
+	A?SLIDING=138
+	A?WINDOW=137
+	A?OTHER=136
+	A?WRITING=135
+	A?GROUND=134
+	A?DINING=133
+	A?PORCEL=132
+	A?SMALL=131
+	A?CLOCKWORK=130
+	A?SIDE=129
+	A?PUNCH=128
+	A?COVERED=127
+	A?KITCHEN=126
+	A?BRASS=125
+	A?GALLERY=124
+	A?FIRE=123
+	A?NIGHT=122
+	A?DRESSING=121
+	A?ROLL-TOP=120
+	A?CLOTHES=119
+	A?LOOKING=118
+	A?CHEVAL=117
+	A?BED=116
+	A?ROOM=115
+	A?BEDROOM=114
+	A?SPARE=113
+	A?TABLE=112
+	A?WALL=111
+	A?FULL-LENGTH=110
+	A?WING=109
+	A?BATH=108
+	A?BATHROOM=107
+	A?LOVE=106
+	A?ORNATE=105
+	A?CANDLE=104
+	A?MEDICAL=103
+	A?WATERCOLOR=102
+	A?SKETCH=101
+	A?PICTURE=100
+	A?WOODEN=99
+	A?PAINT=98
+	A?SCULPT=97
+	A?CHAISE=96
+	A?RECLINE=95
+	A?MORRIS=94
+	A?JADE=93
+	A?OYSTER=92
+	A?PAPIER=91
+	A?MACHE=90
+	A?WITCH=89
+	A?WINE=88
+	A?LOOSE=87
+	A?BRICK=86
+	A?ANCIENT=85
+	A?PRIEST=84
+	A?FIRST=83
+	A?FAMILY=82
+	A?MASTER=81
+	A?COLOR=80
+	A?OVERST=79
+	A?STUDY=78
+	A?HUNTING=77
+	A?LIBRARY=76
+	A?BOOK=75
+	A?HISTORY=74
+	A?OLD-FASHION=73
+	A?INK=72
+	A?HAND=71
+	A?JEWELRY=70
+	A?SECOND=69
+	A?LUMBER=68
+	A?BIRD=67
+	A?HOBBY=66
+	A?SUNKEN=65
+	A?PEEP=64
+	A?CHAPEL=63
+	A?STAINED=62
+	A?GLASS=61
+	A?GAME=60
+	A?GAME-ROOM=59
+	A?BILLIARD=58
+	A?CARD=57
+	A?CUE=56
+	A?GUN=55
+	A?ASH=54
+	A?STUFFED=53
+	A?BUFFALO=52
+	A?RHINO=51
+	A?YELLOW=50
+	A?THIRD=49
+	A?TOP=48
+	A?STORY=47
+	A?STOREY=46
+	A?FIGHTING=45
+	A?OBSERVE=44
+	A?DINNER=43
+	A?NARROW=42
+	A?DEAD=41
+	A?TOURIST=40
+	A?BLOW=39
+	A?AEROSOL=38
+	A?DOG=37
+	A?TINY=36
+	A?MISSING=35
+	A?CONTACT=34
+	A?PLASTIC=33
+	A?LENS=32
+	A?INT.NUM=31
+	A?THIS=30
+	A?TWEED=29
+	A?WOOLEN=28
+	A?WOOL=27
+	A?EXERCISE=26
+	A?FORMAL=25
+	A?FLOOD=24
+	A?MOON=23
+	A?HIDING=22
+	A?VALUABLE=21
+	A?FAVORITE=20
+	A?WAR=19
+	A?FOSSIL=18
+	A?BLACK=17
+	A?PEARL=16
+	A?1ST=15
+	A?CLUE=14
+	A?2ND=13
+	A?3RD=12
+	A?FOURTH=11
+	A?4TH=10
+	A?LAST=9
+
+; BUZZ WORDS ARE DEFINED HERE
+
+	B?A=255
+	B?AN=254
+	B?THE=253
+	B?AND=252
+	B?OF=251
+	B?THEN=250
+	B?PERIOD=249
+	B?COMMA=248
+	B?QUOTE=247
+	B?!=246
+	B??=245
+	B?APOSTROPHE=244
+	B?NOW=243
+	B?SOON=242
+	B?THERE=241
+	B?PLEASE=240
+	B?BACK=239
+	B?ANYWAY=238
+	B?OH=237
+	B?ALL=236
+	B?SOME=235
+	B?BUT=234
+	B?EXCEPT=233
+	B?WHAT=232
+	B?WHEN=231
+	B?WHERE=230
+	B?WHO=229
+	B?WHY=228
+	B?(SOME=227
+	B?AREN=226
+	B?COULDN=225
+	B?DIDN=224
+	B?HASN=223
+	B?HAVEN=222
+	B?HE=221
+	B?ISN=220
+	B?LET=219
+	B?SHE=218
+	B?SHOULD=217
+	B?THAT=216
+	B?THEY=215
+	B?WASN=214
+	B?WEREN=213
+	B?WON=212
+	B?WOULDN=211
+	B?T=210
+	B?LL=209
+	B?M=208
+	B?VE=207
+	B?RE=206
+	B?AM=205
+	B?ARE=204
+	B?CAN=203
+	B?COULD=202
+	B?DID=201
+	B?DO=200
+	B?HAS=199
+	B?HAVE=198
+	B?HOW=197
+	B?IS=196
+	B?LIKE=195
+	B?MAY=194
+	B?SHALL=193
+	B?WANT=192
+	B?WAS=191
+	B?WERE=190
+	B?WHICH=189
+	B?WOULD=188
+	B?ZERO=187
+	B?ONE=186
+	B?TWO=185
+	B?THREE=184
+	B?FOUR=183
+	B?FIVE=182
+	B?SIX=181
+	B?SEVEN=180
+	B?EIGHT=179
+	B?NINE=178
+	B?TEN=177
+	B?ELEVEN=176
+	B?TWELVE=175
+	B?TWENTY=174
+	B?THIRTY=173
+	B?FORTY=172
+	B?FIFTY=171
+	B?SIXTY=170
+	B?HUNDRED=169
+	B?THOUSAND=168
+	B?ASSHOLE=167
+	B?BASTARD=166
+	B?BITCH=165
+	B?COCK=164
+	B?COCKSUCKER=163
+	B?CRAP=162
+	B?CUNT=161
+	B?CURSE=160
+	B?CUSS=159
+	B?DAMN=158
+	B?DAMNED=157
+	B?DARN=156
+	B?FUCK=155
+	B?FUCKED=154
+	B?FUCKING=153
+	B?FUDGE=152
+	B?GODDAMN=151
+	B?HELL=150
+	B?PEE=149
+	B?PISS=148
+	B?SCREW=147
+	B?SHIT=146
+	B?SHITHEAD=145
+	B?SUCK=144
+	B?SUCKS=143
+	B?AGAIN=142
+	B?G=141
+	B?OOPS=140
+	B?JUNIOR=139
+	B?JR=138
+	B?SENIOR=137
+	B?SR=136
+	B?DAME=135
+	B?MADAME=134
+
+; PREPOSITIONS ARE DEFINED HERE
+
+	PR?AT=255
+	PR?TO=254
+	PR?WITH=253
+	PR?FOR=252
+	PR?OUT=251
+	PR?UNDER=250
+	PR?IN=249
+	PR?ON=248
+	PR?ABOUT=247
+	PR?OFF=246
+	PR?UP=245
+	PR?DOWN=244
+	PR?OVER=243
+	PR?THROUGH=242
+	PR?FROM=241
+	PR?RID=240
+	PR?ACROSS=239
+	PR?AROUND=238
+	PR?BEHIND=237
+	PR?AWAY=236
+	PR?BESIDE=235
+	PR?AGAINST=234
+	PR?UNTIL=233
+	PR?AFTER=232
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+	ACT?SHUT=255
+	ACT?I=254
+	ACT?PULL=253
+	ACT?SUPERBRIEF=252
+	ACT?VERBOSE=251
+	ACT?REQUEST=250
+	ACT?QUIT=249
+	ACT?FIND=248
+	ACT?YES=247
+	ACT?STOP=246
+	ACT?UNLOCK=245
+	ACT?READ=244
+	ACT?CONFRONT=243
+	ACT?SAY=242
+	ACT?JUMP=241
+	ACT?POUR=240
+	ACT?WAIT=239
+	ACT?TAKE=238
+	ACT?NO=237
+	ACT?CALL=236
+	ACT?FOLLOW=235
+	ACT?COMPARE=234
+	ACT?HEAD=233
+	ACT?DINE=232
+	ACT?LIGHT=231
+	ACT?LIE=230
+	ACT?MOVE=229
+	ACT?ARREST=228
+	ACT?PLAY=227
+	ACT?OPEN=226
+	ACT?KNOCK=225
+	ACT?WRITE=224
+	ACT?PICK=223
+	ACT?PEEP=222
+	ACT?MEET=221
+	ACT?PRAY=220
+	ACT?STAND=219
+	ACT?UNDRESS=218
+	ACT?LISTEN=217
+	ACT?SHOW=216
+	ACT?NOD=215
+	ACT?HELP=214
+	ACT?SAVE=213
+	ACT?TELL=212
+	ACT?THROW=211
+	ACT?DESCRIBE=210
+	ACT?DRESS=209
+	ACT?FIDDLE=208
+	ACT?USE=207
+	ACT?HIDE=206
+	ACT?SHAKE=205
+	ACT?ATTACK=204
+	ACT?DAMAGE=203
+	ACT?ENTER=202
+	ACT?THANKS=201
+	ACT?PLACE=200
+	ACT?SEARCH=199
+	ACT?WEAR=198
+	ACT?SWITCH=197
+	ACT?SWIM=196
+	ACT?EXPLAIN=195
+	ACT?HOLD=194
+	ACT?UNSCRIPT=193
+	ACT?HANG=192
+	ACT?RING=191
+	ACT?PUSH=190
+	ACT?RUB=189
+	ACT?SIT=188
+	ACT?SOUND=187
+	ACT?CHANGE=186
+	ACT?SCORE=185
+	ACT?PUNCH=184
+	ACT?FORGIVE=183
+	ACT?DANCE=182
+	ACT?SIGN=181
+	ACT?EMPTY=180
+	ACT?CHECK=179
+	ACT?BOW=178
+	ACT?DROP=177
+	ACT?TIME=176
+	ACT?LEAVE=175
+	ACT?TRY=174
+	ACT?SCRIPT=173
+	ACT?$VERIFY=172
+	ACT?RESTART=171
+	ACT?SMELL=170
+	ACT?BRIEF=169
+	ACT?GET=168
+	ACT?CONSOLE=167
+	ACT?SLEEP=166
+	ACT?GIVE=165
+	ACT?SMILE=164
+	ACT?WAKE=163
+	ACT?DRINK=162
+	ACT?REMOVE=161
+	ACT?ANSWER=160
+	ACT?$CALL=159
+	ACT?YELL=158
+	ACT?SORRY=157
+	ACT?LOCK=156
+	ACT?SHARE=155
+	ACT?POINT=154
+	ACT?MURDER=153
+	ACT?START=152
+	ACT?CLEAN=151
+	ACT?RESTORE=150
+	ACT?CLOSE=149
+	ACT?FIX=148
+	ACT?SLIDE=147
+	ACT?EXAMINE=146
+	ACT?RELEASE=145
+	ACT?EAT=144
+	ACT?FIRE=143
+	ACT?FILL=142
+	ACT?CLIMB=141
+	ACT?WATCH=140
+	ACT?ASK=139
+	ACT?HELLO=138
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	SOG=16
+	CC-CLAUSE=2
+	ATTENTION=7
+	SIR=32
+	DEXITSTR=1
+	XEQUAL?=4
+	BED-LINE-C=2
+	ATTENTION-SPAN=6
+	P-ITBLLEN=9
+	WHO-CARES-LENGTH=4
+	GOAL-F=0
+	RHINO-HEAD-C=15
+	P-SYNLEN=8
+	P-SRCTOP=0
+	C-INTLEN=6
+	BUTLER-3-R=6
+	P-MATCHLEN=0
+	O-START=1
+	OFFICER-1-R=5
+	DEXITOBJ=1
+	P-P1OFF=5
+	O-PTR=0
+	O-LENGTH=2
+	INIT-LIONEL-SPEAKS-COUNTER=6
+	MAIN-LINE-C=1
+	C-TABLELEN=138
+	P-NC2=8
+	P-NC1=6
+	CC-IBEG=3
+	JUNIOR-C=8
+	BUFFALO-HEAD-C=14
+	LIONEL-TIME=510
+	MAX-VARS=4
+	P-WORDLEN=4
+	P-VERBN=1
+	SERIAL=0
+	P-P1BITS=3
+	FEXIT=3
+	P-SPREP1=1
+	BUTLER-C=8
+	P-PREP1=2
+	BED-TIME=720
+	M-BEG=1
+	FRIEND-C=1
+	BUTLER-2-R=3
+	PASS-LINE-C=4
+	XDIV=3
+	M-FATAL=2
+	M-WINNER=8
+	XGRTR?=5
+	NEXITSTR=0
+	DRAGON-C=13
+	NEXIT=2
+	P-SLOC2=6
+	CC-BEG=0
+	SC=64
+	P-PREP1N=3
+	P-PSOFF=4
+	G-IMPATIENT=3
+	XLESS?=6
+	GHOST-OLD-C=16
+	SEARCH-TIME=600
+	P-VERB=0
+	CHARACTER-MAX=8
+	PLAYER-C=0
+	GOAL-QUEUED=4
+	M-ENTER=2
+	M-OTHER=69
+	DEXIT=5
+	SHAVE=2
+	P-SRCBOT=2
+	SENIOR-C=9
+	M-OBJDESC=5
+	SMANY=4
+	STAKE=8
+	P-SPREP2=2
+	XSUB=1
+	PAINTER-C=3
+	XADD=0
+	CEXIT=4
+	P-LEXSTART=1
+	M-LOOK=3
+	BUTLER-1-R=2
+	UEXIT=1
+	DOCTOR-C=4
+	GHOST-NEW-C=10
+	O-END=3
+	DEB-C=7
+	P-LEXELEN=2
+	GOAL-FUNCTION=5
+	GOAL-I=2
+	P-LEXWORDS=1
+	GOAL-I-MULTIPLIER=8
+	P-ALL=1
+	XMUL=2
+	P-SFWIM1=3
+	DINNER-FOR=8
+	M-EXIT=9
+	P-INHIBIT=4
+	CEXITFLAG=1
+	G-DEBUG=4
+	P-PROMPT-START=4
+	LORD-C=2
+	M-FLASH=4
+	CC-END=1
+	FEXITFCN=0
+	P-SBITS=0
+	GOAL-ENABLE=3
+	CEXITSTR=1
+	P-SRCALL=1
+	TOWER-LINE-C=3
+	LOVER-C=9
+	OFFICER-C=5
+	P-SLOC1=5
+	M-END=6
+	LOW-DIRECTION=20
+	P-PREP2=4
+	G-ENROUTE=2
+	P-SONUMS=3
+	OFFICER-2-R=8
+	C-TICK=1
+	P-NC2L=9
+	P-NC1L=7
+	M-CONT=7
+	P-ONE=2
+	G-REACHED=1
+	DEALER-C=6
+	BUTLER-4-R=9
+	P-SACTION=7
+	P-SFWIM2=4
+	C-ENABLED?=0
+	REXIT=0
+	DINNER-TIME=480
+	CC-IEND=4
+	SH=128
+	C-RTN=2
+	GOAL-S=1
+	COUSIN-C=11
+	MAID-C=12
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR HERE=DRIVEWAY
+	.GVAR SCORE=19
+	.GVAR MOVES=0
+	.GVAR YAWNS=T?305,TABLE
+	.GVAR P-END-ON-PREP=0,FLAG
+	.GVAR SUFFIX=T?413,TABLE
+	.GVAR P-PHR=0,NUMBER
+	.GVAR RHYMES-WITH-RICH=STR?176,STRING
+	.GVAR GLASSES-FOR=STR?189,STRING
+	.GVAR PASSAGE-EAST-WEST=STR?273,STRING
+	.GVAR TRESYLLIAN=STR?178,STRING
+	.GVAR CONFESSED=0,OBJECT
+	.GVAR TOUR-PATH=PT?806,TABLE
+	.GVAR P-BUTS=T?2004,TABLE
+	.GVAR CASTLE-IS-SOUTH=STR?136,STRING
+	.GVAR CLASP-MUNGED=STR?276,STRING
+	.GVAR NO-CHANGING=STR?138,STRING
+	.GVAR TOUR-INDEX=0,NUMBER
+	.GVAR FOUND-PASSAGES=T?707,TABLE
+	.GVAR MIDDLE-WORD=0
+	.GVAR P-HIM-OBJECT=LORD,OBJECT
+	.GVAR P-ACLAUSE=0
+	.GVAR QWP2-TABLE=PT?204,TABLE
+	.GVAR WRONG-OUTFIT=0,NUMBER
+	.GVAR INTO-DARKNESS=STR?271,STRING
+	.GVAR P-SLOCBITS=0
+	.GVAR FAMOUS-YOUNG-DETECTIVE=STR?86,STRING
+	.GVAR PLAYER-OBSTACLES=T?106,TABLE
+	.GVAR GHOST-CACKLES=STR?195,STRING
+	.GVAR TIMER-PREVENTS-IT=STR?244,STRING
+	.GVAR TOLD-ABOUT-EVID=T?907,TABLE
+	.GVAR ARRESTED-THE-VILLAIN=STR?38,STRING
+	.GVAR GOAL-PERSON=0,OBJECT
+	.GVAR CLOCK-WAIT=0,FLAG
+	.GVAR P-NAMW=T?1404,TABLE
+	.GVAR DINNER-SAT=0,FLAG
+	.GVAR P-OTBL=T?904,TABLE
+	.GVAR P-NAM=0
+	.GVAR WHO-CARES-VERB=PT?305,TABLE
+	.GVAR C-TABLE=T?202,TABLE
+	.GVAR GENDER-KNOWN=0,FLAG
+	.GVAR P-XNAM=0
+	.GVAR LIONEL-SPEAKS-COUNTER=6,NUMBER
+	.GVAR P-MOBY-FOUND=0,OBJECT
+	.GVAR QUESTIONS=T?107,TABLE
+	.GVAR STAIRS-UP-RIGHT=STR?252,STRING
+	.GVAR QWP1-TABLE=PT?104,TABLE
+	.GVAR OOPS-TABLE=T?704,TABLE
+	.GVAR P-WALK-DIR=0
+	.GVAR P-ANAM=0
+	.GVAR LAST-NAME=T?313,TABLE
+	.GVAR LAST-PSEUDO-LOC=0,OBJECT
+	.GVAR TOUCHED-LDESCS=T?507,TABLE
+	.GVAR VARIATION=0,NUMBER
+	.GVAR P-CONT=0,NUMBER
+	.GVAR FOUND-IT-PERM=0,OBJECT
+	.GVAR NOW-PRSI=0,FLAG
+	.GVAR KEEP-WAITING=0
+	.GVAR OHERE=0,OBJECT
+	.GVAR P-PRSI=T?1904,TABLE
+	.GVAR OTHER-POSS-POS=0,NUMBER
+	.GVAR COLOR-LETTERS=PT?313,TABLE
+	.GVAR AGAIN-LEXV=T?204,TABLE
+	.GVAR VERBOSITY=1,NUMBER
+	.GVAR DARK-TURRETS=STR?223,STRING
+	.GVAR P-DIRECTION=0
+	.GVAR CLUE-LOC=0,OBJECT
+	.GVAR MASS-COUNTER=0,NUMBER
+	.GVAR YOU-DIDNT-SAY-W=STR?111,STRING
+	.GVAR LIONEL-FORCED=0,FLAG
+	.GVAR FOLLOW-LOC=T?407,TABLE
+	.GVAR RESERVE-INBUF=T?604,TABLE
+	.GVAR FUMBLE-NUMBER=7,NUMBER
+	.GVAR SHOOTER=0,OBJECT
+	.GVAR POISON-DART=STR?274,STRING
+	.GVAR CAPTOR=0,OBJECT
+	.GVAR P-IT-WORDS=T?102,TABLE
+	.GVAR BUTLER-HINTS-COUNTER=0,NUMBER
+	.GVAR FOUND-IT=0,OBJECT
+	.GVAR LIT=DRIVEWAY,OBJECT
+	.GVAR WING-STAIRS=PT?112,TABLE
+	.GVAR DRAGON-EYE-COLOR=0,NUMBER
+	.GVAR YES-LEXV=T?205,TABLE
+	.GVAR P-VTBL=T?1004,TABLE
+	.GVAR P-XADJN=0
+	.GVAR WASHED=0,FLAG
+	.GVAR P-ADJW=T?1504,TABLE
+	.GVAR YES-INBUF=T?105,TABLE
+	.GVAR PASS-LINE=PT?406,TABLE
+	.GVAR RESERVE-LEXV=T?304,TABLE
+	.GVAR P-MOBY-FLAG=0,FLAG
+	.GVAR P-ADJ=0,NUMBER
+	.GVAR JACK-THINKS-GLADYS=STR?180,STRING
+	.GVAR P-LEN=0,NUMBER
+	.GVAR AHHH=STR?89,STRING
+	.GVAR FOUND-COSTUME=T?607,TABLE
+	.GVAR C-INTS=66,NUMBER
+	.GVAR P-LEXV=T?104,TABLE
+	.GVAR P-CCTBL=T?1304,TABLE
+	.GVAR STAIRS-DOWN-LEFT=STR?253,STRING
+	.GVAR NOW-WEARING=TWEED-OUTFIT,OBJECT
+	.GVAR NOTHING-NEW=STR?279,STRING
+	.GVAR NOT-ENOUGH-ROOM=STR?123,STRING
+	.GVAR TOWER-LINE=PT?306,TABLE
+	.GVAR CHAR-ROOM-TABLE=PT?407,TABLE
+	.GVAR COLOR-WORDS=PT?113,TABLE
+	.GVAR FIRST-NAME=T?213,TABLE
+	.GVAR INTRODUCES=STR?230,STRING
+	.GVAR BRICKS-DOWN=0,FLAG
+	.GVAR P-TIME=0,FLAG
+	.GVAR BUTLER-GHOST-STORY-TOLD=0,FLAG
+	.GVAR P-OFW=T?1604,TABLE
+	.GVAR LONG-BLOND-HAIR=STR?196,STRING
+	.GVAR DIR-STRINGS=PT?606,TABLE
+	.GVAR PRSO=0,OBJECT
+	.GVAR FOUND-LOC=0,OBJECT
+	.GVAR TRAILS-ALONG=PT?105,TABLE
+	.GVAR TREASURE-FOUND=0,OBJECT
+	.GVAR P-MERGED=0,FLAG
+	.GVAR P-GWIMBIT=0
+	.GVAR BUTLER-RANG-BELL?=0,FLAG
+	.GVAR QUESTION-WORD-TABLE=PT?304,TABLE
+	.GVAR BUTLER-DUTY=0
+	.GVAR SOMETHING=STR?16,STRING
+	.GVAR P-SYNTAX=0
+	.GVAR QUESTIONERS=PT?107,TABLE
+	.GVAR TOO-SLIPPERY=STR?226,STRING
+	.GVAR P-XADJ=0,NUMBER
+	.GVAR TOUR-FORCED=0,FLAG
+	.GVAR VILLAIN-KNOWN?=0,FLAG
+	.GVAR NEVER-NOTICED-HER=STR?219,STRING
+	.GVAR P-AADJ=0
+	.GVAR VILLAIN-PER=0,OBJECT
+	.GVAR PRSA=0,NUMBER
+	.GVAR P-PRSA-WORD=0
+	.GVAR PRESENT-TIME=420,NUMBER
+	.GVAR GOAL-TABLES=PT?706,TABLE
+	.GVAR ANCIENT-SECRETS=STR?222,STRING
+	.GVAR OU-STOP-SEARCHING=STR?127,STRING
+	.GVAR P-PRSO=T?1804,TABLE
+	.GVAR SEARCH-ROOMS=PT?906,TABLE
+	.GVAR P-AND=0,FLAG
+	.GVAR SHOT=T?1007,TABLE
+	.GVAR CHAR-POSS-TABLE=T?307,TABLE
+	.GVAR FAWNING=0,FLAG
+	.GVAR LDESC-STRINGS=PT?507,TABLE
+	.GVAR EVIDENCE-FOUND=0,OBJECT
+	.GVAR BEG-PARDON=STR?27,STRING
+	.GVAR LIONELS-VOICE=STR?160,STRING
+	.GVAR TOWER-STAIRS=PT?212,TABLE
+	.GVAR P-INBUF=T?404,TABLE
+	.GVAR OFFENDED=T?1204,TABLE
+	.GVAR LOVER-SAID=0,FLAG
+	.GVAR OOPS-PRINT=0
+	.GVAR P-MERGE=T?1704,TABLE
+	.GVAR DINING-DESC=STR?243,STRING
+	.GVAR P-WON=0
+	.GVAR COLOR-ADJS=PT?213,TABLE
+	.GVAR COLOR-FORCED=0,FLAG
+	.GVAR FOLLOWER=0,OBJECT
+	.GVAR QCONTEXT=0,OBJECT
+	.GVAR MASS-SAID=0,FLAG
+	.GVAR CLOCKER-RUNNING=0,NUMBER
+	.GVAR P-OVTBL=T?1104,TABLE
+	.GVAR P-ITBL=T?804,TABLE
+	.GVAR QUOTE-FLAG=0,FLAG
+	.GVAR TRANSFER-TABLE=PT?506,TABLE
+	.GVAR TITLE-WORD=0
+	.GVAR P-TABLE=0,TABLE
+	.GVAR P-GETFLAGS=0
+	.GVAR FRIEND-FOUND-PASSAGES=0
+	.GVAR WHO-CARES-TBL=PT?405,TABLE
+	.GVAR YUKS=T?505,TABLE
+	.GVAR AIMED-HERE=0,OBJECT
+	.GVAR IDENTIFIED-THE-GHOST=STR?39,STRING
+	.GVAR GUEST-TABLE=PT?307,TABLE
+	.GVAR P-OCL2=T?2204,TABLE
+	.GVAR TOLD-ABOUT-GHOST=T?807,TABLE
+	.GVAR OPRSO=0,OBJECT
+	.GVAR OOPS-INBUF=T?504,TABLE
+	.GVAR FUMBLE-PROB=8,NUMBER
+	.GVAR P-NUMBER=-1,NUMBER
+	.GVAR SECRET-TAM-LIB=STR?272,STRING
+	.GVAR P-OFLAG=0,FLAG
+	.GVAR CREEPIES=T?405,TABLE
+	.GVAR REMEMBER-NOT-DRESSED=STR?247,STRING
+	.GVAR WINNER=PLAYER,OBJECT
+	.GVAR P-ADJN=0
+	.GVAR AGAIN-DIR=0
+	.GVAR NUMBER-WORD-TABLE=PT?404,TABLE
+	.GVAR COR-4=PT?311,TABLE
+	.GVAR WHICH-DIR=STR?257,STRING
+	.GVAR AWAITING-REPLY=0,NUMBER
+	.GVAR MUSTACHE-STORY=STR?185,STRING
+	.GVAR P-IT-OBJECT=0,OBJECT
+	.GVAR HO-HUM=PT?205,TABLE
+	.GVAR COR-2=PT?211,TABLE
+	.GVAR P-OCL1=T?2104,TABLE
+	.GVAR COR-1=PT?111,TABLE
+	.GVAR PIANO-PIECES=PT?408,TABLE
+	.GVAR P-PROMPT=4,NUMBER
+	.GVAR THATS-INTERESTING=STR?221,STRING
+	.GVAR PRSI=0,OBJECT
+	.GVAR RESERVE-PTR=0,NUMBER
+	.GVAR NO-VIOLENCE=STR?112,STRING
+	.GVAR NAUGHTY-WORD-TABLE=PT?504,TABLE
+	.GVAR DISCOVERED-HERE=0,OBJECT
+	.GVAR HIDING-PLACE=0,OBJECT
+	.GVAR MAIN-LINE=PT?106,TABLE
+	.GVAR DINNER-SIT-COUNTER=0,NUMBER
+	.GVAR SEARCHER=0,OBJECT
+	.GVAR CHARACTER-TABLE=PT?207,TABLE
+	.GVAR QUESTION-WORD-COUNT=2,NUMBER
+	.GVAR CHAR-CLOSET-TABLE=T?207,TABLE
+	.GVAR WHITISH-GLIMPSE=STR?179,STRING
+	.GVAR I-ASSUME=STR?32,STRING
+	.GVAR BED-LINE=PT?206,TABLE
+	.GVAR PLAYER-RANG-BELL?=0,FLAG
+	.GVAR P-NCN=0,NUMBER
+	.GVAR TREASURE=0,OBJECT
+	.GVAR P-HER-OBJECT=FRIEND,OBJECT
+	.GVAR FOUND-FABRIC=STR?192,STRING
+	.GVAR FAVE-COLOR=T?113,TABLE
+	.GVAR MISSED-DINNER=0,FLAG
+	.GVAR QUITE-WELCOME=STR?134,STRING
+	.GVAR IM-SHOCKED=STR?220,STRING
+	.GVAR PREPOSITIONS=PRTBL,TABLE
+	.GVAR ACTIONS=ATBL,TABLE
+	.GVAR PREACTIONS=PATBL,TABLE
+	.GVAR VERBS=VTBL,TABLE
+	.ENDT
+
+GLOEND::
+
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+OBJECT::.TABLE 
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;(P?CORRIDOR)
+	0			;(P?THINGS)
+	0			;(P?GLOBAL)
+	0			;(P?STATION)
+	0			;(P?GENERIC)
+	5			;(P?SIZE)
+	0			;(P?CAPACITY)
+	0			;(P?TEXT)
+	0			;(P?DESCFCN)
+	0			;(P?CHARACTER)
+	0			;(P?LINE)
+	0			;(P?LDESC)
+	0			;(P?ADJECTIVE)
+	0			;(P?SYNONYM)
+	0			;(P?ACTION)
+	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 MOONMIST,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,YOUR-COLOR,0,T?MOONMIST
+	.OBJECT DUNGEON,0,0,ROOMS,CRYPT,IRON-MAIDEN,T?DUNGEON
+	.OBJECT LIBRARY-CHAIR,FX?VOWELBIT+FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,LIBRARY,0,0,T?LIBRARY-CHAIR
+	.OBJECT SLEEP-OUTFIT,0,FX?TAKEBIT+FX?WEARBIT,LUGGAGE,BROCHURE,0,T?SLEEP-OUTFIT
+	.OBJECT WELL,FX?VOWELBIT+FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,BASEMENT,WINE-RACK,0,T?WELL
+	.OBJECT SECRET-SITTING-DOOR,FX?LOCKED+FX?DOORBIT+FX?SECRETBIT,0,ROOMS,GREAT-HALL,0,T?SECRET-SITTING-DOOR
+	.OBJECT WENDISH-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,SECRET-WENDISH-DOOR,WENDISH-KIT,T?WENDISH-ROOM
+	.OBJECT HANDS,FX?TRYTAKEBIT,FX?SEENBIT,GLOBAL-OBJECTS,KEYHOLE,0,T?HANDS
+	.OBJECT DRIVEWAY,FX?ONBIT,FX?SEENBIT,ROOMS,0,DRAGON-EYE,T?DRIVEWAY
+	.OBJECT IRIS-CHAIR,FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,IRIS-ROOM,0,0,T?IRIS-CHAIR
+	.OBJECT TOMB,0,0,ROOMS,DUNGEON,COFFIN,T?TOMB
+	.OBJECT DRAWING-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?SEENBIT,ROOMS,SECRET-DRAWING-DOOR,VICTORIA-CHAIR,T?DRAWING-ROOM
+	.OBJECT COURTYARD,FX?ONBIT,FX?SEENBIT,ROOMS,DRIVEWAY,0,T?COURTYARD
+	.OBJECT SECRET-LANDING-LIB,FX?SECRETBIT,0,ROOMS,DINING-PASSAGE,0,T?SECRET-LANDING-LIB
+	.OBJECT POND,FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,GARDEN,0,0,T?POND
+	.OBJECT LOVER-PIC,0,FX?NARTICLEBIT+FX?NDESCBIT,DRAWING-ROOM,PAINTER,0,T?LOVER-PIC
+	.OBJECT WINDOW,0,FX?NDESCBIT+FX?SEENBIT,LOCAL-GLOBALS,LEVER,0,T?WINDOW
+	.OBJECT PUNCHBOWL,FX?TRYTAKEBIT+FX?OPENBIT,FX?SEARCHBIT+FX?CONTBIT,SIDEBOARD,0,0,T?PUNCHBOWL
+	.OBJECT WENDISH-CHAIR,FX?VOWELBIT+FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,WENDISH-ROOM,CANDLE,0,T?WENDISH-CHAIR
+	.OBJECT MEMENTO,0,FX?SEENBIT+FX?NDESCBIT,OLD-GREAT-HALL,0,0,T?MEMENTO
+	.OBJECT HORN,0,FX?SEENBIT+FX?NDESCBIT,CAR,PLAYER,0,T?HORN
+	.OBJECT BUST,FX?TRYTAKEBIT,FX?SEARCHBIT+FX?CONTBIT,DINING-ROOM,0,RECORDER,T?BUST
+	.OBJECT MEMENTO-2,0,FX?SEENBIT+FX?NDESCBIT,OLD-GREAT-HALL,MEMENTO,0,T?MEMENTO-2
+	.OBJECT SECRET-JACK-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,CORR-2,0,T?SECRET-JACK-DOOR
+	.OBJECT SECRET-VIVIEN-PASSAGE,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,SECRET-LANDING-TAM,0,T?SECRET-VIVIEN-PASSAGE
+	.OBJECT JEWELRY-CASE,FX?TRYTAKEBIT,FX?SEENBIT+FX?CONTBIT+FX?NDESCBIT,TAMARA-ROOM,TAMARA-BED,0,T?JEWELRY-CASE
+	.OBJECT SECRET-LANDING-JACK,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,DECK,0,T?SECRET-LANDING-JACK
+	.OBJECT OIL-PAINTING,FX?VOWELBIT,FX?SEENBIT+FX?NDESCBIT,LOCAL-GLOBALS,FRONT-GATE,0,T?OIL-PAINTING
+	.OBJECT RECORDER,0,0,BUST,0,0,T?RECORDER
+	.OBJECT KITCHEN,FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,BACKSTAIRS,LAMP,T?KITCHEN
+	.OBJECT SECRET-IAN-PASSAGE,FX?VOWELBIT+FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,SECRET-LANDING-LIB,0,T?SECRET-IAN-PASSAGE
+	.OBJECT DINING-ROOM,FX?DOORBIT+FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,CORR-1,SIDEBOARD,T?DINING-ROOM
+	.OBJECT YOUR-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,SECRET-YOUR-DOOR,YOUR-CHAIR,T?YOUR-ROOM
+	.OBJECT ANDIRON,FX?VOWELBIT,FX?NDESCBIT,IAN-ROOM,0,0,T?ANDIRON
+	.OBJECT LENS,FX?TRANSBIT,FX?WEARBIT+FX?TAKEBIT,LENS-BOX,0,0,T?LENS
+	.OBJECT INTDIR,0,0,GLOBAL-OBJECTS,HIM,0,T?INTDIR
+	.OBJECT ROOMS,0,FX?NARTICLEBIT,0,0,HYDE-CLOSET,T?ROOMS
+	.OBJECT LIMBO,0,FX?NARTICLEBIT,ROOMS,LOVER-PATH,LOVER,T?LIMBO
+	.OBJECT EAST-HALL,FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,YOUR-BATHROOM,0,T?EAST-HALL
+	.OBJECT PASSAGE-1,FX?SECRETBIT,0,ROOMS,SECRET-LANDING-JACK,0,T?PASSAGE-1
+	.OBJECT MIRROR-GLOBAL,0,FX?CONTBIT+FX?SEENBIT,GLOBAL-OBJECTS,TOWER,0,T?MIRROR-GLOBAL
+	.OBJECT PLAYER,FX?OPENBIT+FX?FEMALE,FX?TOUCHBIT+FX?SEENBIT+FX?PERSONBIT+FX?SEARCHBIT+FX?NARTICLEBIT+FX?NDESCBIT,CAR,0,TWEED-OUTFIT,T?PLAYER
+	.OBJECT PEEPHOLE-2,FX?ONBIT,FX?NDESCBIT,LOCAL-GLOBALS,PRIEST-DOOR,0,T?PEEPHOLE-2
+	.OBJECT LOCAL-GLOBALS,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,MIRROR-GLOBAL,CORPSE,T?LOCAL-GLOBALS
+	.OBJECT CHAIR,0,FX?SURFACEBIT+FX?SEENBIT,LOCAL-GLOBALS,STAIRS,0,T?CHAIR
+	.OBJECT HEAD,0,FX?SEENBIT,GLOBAL-OBJECTS,HANDS,0,T?HEAD
+	.OBJECT HER,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,0,0,T?HER
+	.OBJECT TAPESTRY,0,FX?SEENBIT+FX?NDESCBIT,DRAWING-ROOM,LOVER-PIC,0,T?TAPESTRY
+	.OBJECT CANE,FX?SECRETBIT+FX?OPENBIT,FX?SEARCHBIT+FX?SURFACEBIT+FX?NDESCBIT+FX?TAKEBIT,0,0,PAINT,T?CANE
+	.OBJECT MUSIC,0,FX?NDESCBIT+FX?READBIT+FX?TAKEBIT,PIANO,0,0,T?MUSIC
+	.OBJECT VOICE,0,FX?NDESCBIT,0,0,0,T?VOICE
+	.OBJECT FRONT-GATE,FX?DOORBIT+FX?LOCKED+FX?TRANSBIT,FX?SEENBIT,LOCAL-GLOBALS,OCEAN,0,T?FRONT-GATE
+	.OBJECT HYDE-CHAIR,FX?VOWELBIT+FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,HYDE-ROOM,0,0,T?HYDE-CHAIR
+	.OBJECT OFFICE,FX?DOORBIT+FX?OPENBIT+FX?VOWELBIT,FX?SEENBIT,ROOMS,LIBRARY,HAUNTING,T?OFFICE
+	.OBJECT PEEPHOLE,FX?ONBIT+FX?SECRETBIT,0,LOCAL-GLOBALS,LADDER,0,T?PEEPHOLE
+	.OBJECT YOUR-COLOR,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,ARTIFACT,0,T?YOUR-COLOR
+	.OBJECT CHAIR-DINING,FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SEARCHBIT+FX?SURFACEBIT,DINING-ROOM,TABLE-DINING,0,T?CHAIR-DINING
+	.OBJECT DRESSING-MIRROR,0,FX?SEENBIT,DRESSING-TABLE,0,0,T?DRESSING-MIRROR
+	.OBJECT LUGGAGE,0,FX?NARTICLEBIT+FX?TAKEBIT+FX?SEARCHBIT+FX?CONTBIT,CAR,HORN,DINNER-OUTFIT,T?LUGGAGE
+	.OBJECT EYE,FX?VOWELBIT,FX?SEENBIT,GLOBAL-OBJECTS,HEAD,0,T?EYE
+	.OBJECT NECKLACE,FX?SECRETBIT,FX?WEARBIT+FX?NDESCBIT+FX?TAKEBIT,0,0,0,T?NECKLACE
+	.OBJECT YOUR-BATHROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,YOUR-ROOM,0,T?YOUR-BATHROOM
+	.OBJECT JACK-TAPE,FX?SECRETBIT,FX?RMUNGBIT+FX?SEENBIT,0,0,0,T?JACK-TAPE
+	.OBJECT SECRET-DINING-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,DINING-ROOM,0,T?SECRET-DINING-DOOR
+	.OBJECT EARRING,FX?SECRETBIT+FX?VOWELBIT,FX?SEENBIT+FX?WEARBIT+FX?NDESCBIT+FX?TAKEBIT,0,0,0,T?EARRING
+	.OBJECT GLOBAL-OBJECTS,FX?VOWELBIT+FX?TRYTAKEBIT+FX?TRANSBIT+FX?TOOLBIT+FX?SECRETBIT+FX?OPENBIT+FX?ONBIT+FX?MUNGBIT+FX?LOCKED+FX?INVISIBLE+FX?FEMALE+FX?DOORBIT,FX?WORNBIT+FX?WEARBIT+FX?WEAPONBIT+FX?VEHBIT+FX?TOUCHBIT+FX?TAKEBIT+FX?SURFACEBIT+FX?SEENBIT+FX?SEARCHBIT+FX?RMUNGBIT+FX?READBIT+FX?NDESCBIT+FX?NARTICLEBIT+FX?LIGHTBIT+FX?CONTBIT,0,0,GENERIC-CLUE,T?GLOBAL-OBJECTS
+	.OBJECT WEST-HALL,FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,VIVIEN-ROOM,0,T?WEST-HALL
+	.OBJECT BRICKS,0,FX?NDESCBIT,0,0,0,T?BRICKS
+	.OBJECT PLAYER-NAME,0,FX?TOUCHBIT+FX?SEENBIT+FX?PERSONBIT+FX?NARTICLEBIT,GLOBAL-OBJECTS,INTDIR,0,T?PLAYER-NAME
+	.OBJECT YOUR-CLOSET,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,SITTING-PASSAGE,0,T?YOUR-CLOSET
+	.OBJECT IT,FX?VOWELBIT,FX?NARTICLEBIT,GLOBAL-OBJECTS,TURN,0,T?IT
+	.OBJECT BLOWGUN,FX?SECRETBIT,FX?TAKEBIT+FX?WEAPONBIT,0,0,0,T?BLOWGUN
+	.OBJECT WENDISH-CORNER,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,IRIS-CLOSET,0,T?WENDISH-CORNER
+	.OBJECT ROMANCE,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,PASSAGE,0,T?ROMANCE
+	.OBJECT LENS-2,FX?TRANSBIT,FX?WEARBIT+FX?TAKEBIT,0,0,0,T?LENS-2
+	.OBJECT YOUR-CHAIR,FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,YOUR-ROOM,CHEST-OF-DRAWERS,0,T?YOUR-CHAIR
+	.OBJECT GLASS-EYE,FX?TRYTAKEBIT,FX?NDESCBIT,RHINO-HEAD,0,0,T?GLASS-EYE
+	.OBJECT TWEED-OUTFIT,FX?MUNGBIT,FX?SEENBIT+FX?TAKEBIT+FX?WEARBIT+FX?WORNBIT,PLAYER,0,0,T?TWEED-OUTFIT
+	.OBJECT SECRET-LIBRARY-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,STUDY,0,T?SECRET-LIBRARY-DOOR
+	.OBJECT CANDLE,FX?VOWELBIT+FX?TRYTAKEBIT,FX?NDESCBIT,WENDISH-ROOM,0,0,T?CANDLE
+	.OBJECT INKWELL,FX?OPENBIT+FX?TRANSBIT+FX?VOWELBIT,FX?CONTBIT+FX?TAKEBIT,DESK,0,0,T?INKWELL
+	.OBJECT ARTIFACT,FX?VOWELBIT,FX?SEENBIT,GLOBAL-OBJECTS,UNDRESSED,0,T?ARTIFACT
+	.OBJECT IAN-CHAIR,FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,IAN-ROOM,ANDIRON,0,T?IAN-CHAIR
+	.OBJECT MOON,0,FX?SEENBIT,LOCAL-GLOBALS,GHOST-NEW,0,T?MOON
+	.OBJECT DOCTOR,FX?OPENBIT,FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,GALLERY,0,MUSTACHE,T?DOCTOR
+	.OBJECT VIVIEN-CHAIR,FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,VIVIEN-ROOM,FIGURINE,0,T?VIVIEN-CHAIR
+	.OBJECT BELL,FX?OPENBIT,FX?CONTBIT+FX?SEENBIT+FX?NDESCBIT,DECK,0,0,T?BELL
+	.OBJECT SITTING-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,SECRET-SITTING-DOOR,PIANO,T?SITTING-ROOM
+	.OBJECT SLEEP-GLOBAL,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,GLOBAL-HERE,0,T?SLEEP-GLOBAL
+	.OBJECT LADDER,0,0,LOCAL-GLOBALS,PEEPHOLE-2,0,T?LADDER
+	.OBJECT BUTLER,FX?OPENBIT,FX?NDESCBIT+FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,CORR-1,0,LETTER,T?BUTLER
+	.OBJECT WYVERN,0,FX?SEENBIT+FX?SURFACEBIT+FX?VEHBIT+FX?NDESCBIT,SITTING-ROOM,0,0,T?WYVERN
+	.OBJECT MUSTACHE,FX?TRYTAKEBIT,FX?NARTICLEBIT+FX?NDESCBIT,DOCTOR,0,0,T?MUSTACHE
+	.OBJECT CREW-GLOBAL,0,FX?SEENBIT,GLOBAL-OBJECTS,COUSIN,0,T?CREW-GLOBAL
+	.OBJECT DESK,FX?VOWELBIT+FX?OPENBIT,FX?NDESCBIT+FX?SEENBIT+FX?VEHBIT+FX?SURFACEBIT,OFFICE,0,INKWELL,T?DESK
+	.OBJECT GAME-ROOM,FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,ROOMS,CHAPEL,RHINO-HEAD,T?GAME-ROOM
+	.OBJECT LETTER-MAID,0,FX?READBIT+FX?TAKEBIT+FX?NDESCBIT,WRITING-DESK,0,0,T?LETTER-MAID
+	.OBJECT DANGER,0,0,GLOBAL-OBJECTS,FLOOR,0,T?DANGER
+	.OBJECT DRESSING-TABLE-LG,FX?OPENBIT,FX?SURFACEBIT+FX?CONTBIT+FX?SEENBIT,LOCAL-GLOBALS,NIGHTSTAND-LG,0,T?DRESSING-TABLE-LG
+	.OBJECT COMPUTER,0,FX?SEENBIT+FX?NDESCBIT,OFFICE,DESK,0,T?COMPUTER
+	.OBJECT LENS-1,FX?TRANSBIT,FX?WEARBIT+FX?SEENBIT+FX?TAKEBIT,0,0,0,T?LENS-1
+	.OBJECT WENDISH-BOOK,FX?SECRETBIT,FX?RMUNGBIT+FX?NDESCBIT+FX?CONTBIT+FX?READBIT,0,0,0,T?WENDISH-BOOK
+	.OBJECT TAMARA-EVIDENCE,FX?SECRETBIT,FX?RMUNGBIT+FX?NARTICLEBIT+FX?READBIT+FX?NDESCBIT,0,0,0,T?TAMARA-EVIDENCE
+	.OBJECT YOUR-SWITCH,FX?SECRETBIT,FX?NDESCBIT,YOUR-ROOM,YOUR-MIRROR,0,T?YOUR-SWITCH
+	.OBJECT SECRET-WENDISH-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,IRIS-ROOM,0,T?SECRET-WENDISH-DOOR
+	.OBJECT PAINTER,FX?FEMALE+FX?OPENBIT,FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,DRAWING-ROOM,DEALER,0,T?PAINTER
+	.OBJECT CHAPEL,FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,ROOMS,LUMBER-ROOM,STAINED-WINDOW,T?CHAPEL
+	.OBJECT DEALER,FX?OPENBIT,FX?NDESCBIT+FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,DRAWING-ROOM,0,0,T?DEALER
+	.OBJECT IRON-MAIDEN,FX?OPENBIT+FX?VOWELBIT,FX?CONTBIT,DUNGEON,0,0,T?IRON-MAIDEN
+	.OBJECT VIVIEN-STUFF,0,FX?SEENBIT+FX?NDESCBIT,VIVIEN-ROOM,0,0,T?VIVIEN-STUFF
+	.OBJECT CORPSE,0,FX?NARTICLEBIT,LOCAL-GLOBALS,TABLE-RANDOM,0,T?CORPSE
+	.OBJECT LORD,FX?OPENBIT,FX?NDESCBIT+FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,FOYER,0,CLUE-2,T?LORD
+	.OBJECT COSTUME,FX?ONBIT+FX?SECRETBIT,FX?TAKEBIT+FX?WEARBIT,0,0,0,T?COSTUME
+	.OBJECT LUMBER-ROOM,FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,ROOMS,CORR-3,MAGAZINE,T?LUMBER-ROOM
+	.OBJECT WARDROBE-LG,0,FX?SEENBIT,LOCAL-GLOBALS,DRESSING-TABLE-LG,0,T?WARDROBE-LG
+	.OBJECT UMBRELLA-STAND,FX?VOWELBIT+FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,FOYER,LORD,0,T?UMBRELLA-STAND
+	.OBJECT IAN-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,SECRET-IAN-DOOR,IAN-CHAIR,T?IAN-ROOM
+	.OBJECT OFFICER,FX?OPENBIT,FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,GREAT-HALL,DEB,0,T?OFFICER
+	.OBJECT CREST,FX?TRYTAKEBIT,FX?SEENBIT+FX?NDESCBIT,CORR-2,0,0,T?CREST
+	.OBJECT FRONT-DOOR,FX?LOCKED+FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,ROOMS,GARDEN,0,T?FRONT-DOOR
+	.OBJECT CRYPT,FX?SECRETBIT,0,ROOMS,BASEMENT,SKELETON,T?CRYPT
+	.OBJECT HOLE-IN-WALL,FX?OPENBIT+FX?DOORBIT+FX?INVISIBLE,FX?SEENBIT,LOCAL-GLOBALS,YOUR-BATHROOM-DOOR,0,T?HOLE-IN-WALL
+	.OBJECT LEVER,FX?TRYTAKEBIT,FX?SEENBIT,LOCAL-GLOBALS,NECKLACE-OF-D,0,T?LEVER
+	.OBJECT GREAT-HALL,FX?DOORBIT+FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,DRAWING-ROOM,ARMOR,T?GREAT-HALL
+	.OBJECT MAID,FX?VOWELBIT+FX?FEMALE,FX?SEENBIT+FX?PERSONBIT,LOCAL-GLOBALS,0,0,T?MAID
+	.OBJECT TAMARA-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?NARTICLEBIT,ROOMS,SECRET-TAMARA-DOOR,JEWELRY-CASE,T?TAMARA-ROOM
+	.OBJECT TOWER,0,FX?SEENBIT,GLOBAL-OBJECTS,CASTLE,0,T?TOWER
+	.OBJECT YOUR-BATHROOM-DOOR,FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,LOCAL-GLOBALS,WARDROBE-LG,0,T?YOUR-BATHROOM-DOOR
+	.OBJECT JEWEL,0,FX?SEENBIT+FX?TAKEBIT,0,0,0,T?JEWEL
+	.OBJECT CLUE-1,FX?SECRETBIT,FX?READBIT+FX?SEENBIT+FX?NDESCBIT,SIDEBOARD,PUNCHBOWL,0,T?CLUE-1
+	.OBJECT GALLERY,FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,KITCHEN,PAINTING-GALLERY,T?GALLERY
+	.OBJECT FOYER,FX?DOORBIT+FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,FRONT-DOOR,COAT-RACK,T?FOYER
+	.OBJECT BED,FX?OPENBIT,FX?NARTICLEBIT+FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,YOUR-ROOM,0,0,T?BED
+	.OBJECT TABLE-RANDOM,0,FX?SEENBIT,LOCAL-GLOBALS,CHAIR,0,T?TABLE-RANDOM
+	.OBJECT KEYHOLE,0,0,GLOBAL-OBJECTS,LIGHT-GLOBAL,0,T?KEYHOLE
+	.OBJECT PAINTING-GALLERY,0,FX?SEENBIT+FX?NDESCBIT,GALLERY,DOCTOR,0,T?PAINTING-GALLERY
+	.OBJECT OLD-GREAT-HALL,FX?LOCKED+FX?DOORBIT+FX?VOWELBIT+FX?ONBIT,FX?SEENBIT,ROOMS,HYDE-ROOM,MEMENTO-2,T?OLD-GREAT-HALL
+	.OBJECT PRIEST-DOOR,FX?DOORBIT,FX?SEENBIT,LOCAL-GLOBALS,HOLE-IN-WALL,0,T?PRIEST-DOOR
+	.OBJECT STAINED-WINDOW,FX?OPENBIT,FX?NDESCBIT,CHAPEL,0,0,T?STAINED-WINDOW
+	.OBJECT DECK,FX?OPENBIT+FX?ONBIT,FX?SURFACEBIT+FX?SEENBIT,ROOMS,GAME-ROOM,BELL,T?DECK
+	.OBJECT GALLERY-CORNER,FX?SECRETBIT,0,ROOMS,DRAWING-CLOSET,0,T?GALLERY-CORNER
+	.OBJECT BOTTLE,FX?TRANSBIT,FX?WEAPONBIT+FX?READBIT+FX?CONTBIT+FX?TAKEBIT+FX?NDESCBIT,WINE-RACK,0,0,T?BOTTLE
+	.OBJECT SKULL,FX?SECRETBIT,FX?NDESCBIT,0,0,0,T?SKULL
+	.OBJECT HIM,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,HER,0,T?HIM
+	.OBJECT SECRET-IRIS-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,EAST-HALL,0,T?SECRET-IRIS-DOOR
+	.OBJECT LIBRARY,FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,ROOMS,SECRET-LIBRARY-DOOR,BOOKCASE,T?LIBRARY
+	.OBJECT VIVIEN-DIARY,FX?SECRETBIT,FX?RMUNGBIT+FX?CONTBIT+FX?READBIT+FX?NARTICLEBIT+FX?TAKEBIT,0,0,0,T?VIVIEN-DIARY
+	.OBJECT NIGHTSTAND,FX?OPENBIT,FX?SEARCHBIT+FX?SEENBIT+FX?NDESCBIT+FX?SURFACEBIT,YOUR-ROOM,BED,NIGHTLAMP,T?NIGHTSTAND
+	.OBJECT VIVIEN-ROOM,FX?DOORBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,SECRET-VIVIEN-DOOR,VIVIEN-CHAIR,T?VIVIEN-ROOM
+	.OBJECT HYDE-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,SECRET-HYDE-DOOR,HYDE-CHAIR,T?HYDE-ROOM
+	.OBJECT JACK-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT,ROOMS,SECRET-JACK-DOOR,TELESCOPE,T?JACK-ROOM
+	.OBJECT SECRET-TAMARA-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,OFFICE,0,T?SECRET-TAMARA-DOOR
+	.OBJECT LAMP,0,FX?LIGHTBIT+FX?TAKEBIT,KITCHEN,DINNER,0,T?LAMP
+	.OBJECT DRAWING-CLOSET,FX?SECRETBIT,0,ROOMS,MIDPOINT,0,T?DRAWING-CLOSET
+	.OBJECT DINING-PASSAGE,FX?SECRETBIT,0,ROOMS,SECRET-VIVIEN-PASSAGE,0,T?DINING-PASSAGE
+	.OBJECT BUFFALO-HEAD,0,FX?SEENBIT+FX?NDESCBIT,GAME-ROOM,0,0,T?BUFFALO-HEAD
+	.OBJECT TELESCOPE,FX?TRYTAKEBIT,0,JACK-ROOM,0,0,T?TELESCOPE
+	.OBJECT CLUE-2,FX?SECRETBIT,FX?READBIT+FX?SEENBIT+FX?TAKEBIT+FX?NDESCBIT,LORD,0,0,T?CLUE-2
+	.OBJECT IRIS-ROOM,FX?DOORBIT+FX?OPENBIT+FX?ONBIT,FX?WORNBIT+FX?WEARBIT+FX?NARTICLEBIT,ROOMS,SECRET-IRIS-DOOR,IRIS-CHAIR,T?IRIS-ROOM
+	.OBJECT CHEST-OF-DRAWERS,0,FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,YOUR-ROOM,WARDROBE,0,T?CHEST-OF-DRAWERS
+	.OBJECT PASSAGE,0,0,GLOBAL-OBJECTS,OTHER-OUTFIT,0,T?PASSAGE
+	.OBJECT LOVER,FX?FEMALE+FX?OPENBIT,FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,LIMBO,FRIEND,0,T?LOVER
+	.OBJECT PAINT,FX?SECRETBIT+FX?TRYTAKEBIT,FX?SEENBIT+FX?NDESCBIT,CANE,0,0,T?PAINT
+	.OBJECT NIGHTLAMP,FX?ONBIT,FX?NARTICLEBIT+FX?SEENBIT+FX?NDESCBIT+FX?LIGHTBIT,NIGHTSTAND,0,0,T?NIGHTLAMP
+	.OBJECT SIDEBOARD,FX?OPENBIT,FX?SEARCHBIT+FX?SEENBIT+FX?SURFACEBIT,DINING-ROOM,CHAIR-DINING,CLUE-1,T?SIDEBOARD
+	.OBJECT RHINO-HEAD,FX?OPENBIT,FX?SEARCHBIT+FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,GAME-ROOM,BUFFALO-HEAD,GLASS-EYE,T?RHINO-HEAD
+	.OBJECT GHOST-OLD,FX?FEMALE,FX?SEENBIT+FX?PERSONBIT,LOCAL-GLOBALS,MAID,0,T?GHOST-OLD
+	.OBJECT UNDRESSED,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,ACCIDENT,0,T?UNDRESSED
+	.OBJECT WINE-RACK,FX?TRYTAKEBIT+FX?OPENBIT,FX?TOUCHBIT+FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,BASEMENT,0,BOTTLE,T?WINE-RACK
+	.OBJECT SITTING-PASSAGE,FX?SECRETBIT,0,ROOMS,SECRET-IAN-PASSAGE,0,T?SITTING-PASSAGE
+	.OBJECT CAR,FX?OPENBIT,FX?CONTBIT+FX?SEENBIT+FX?VEHBIT,DRIVEWAY,0,LUGGAGE,T?CAR
+	.OBJECT NECKLACE-OF-D,FX?OPENBIT+FX?SECRETBIT,FX?CONTBIT+FX?NDESCBIT+FX?TAKEBIT+FX?NARTICLEBIT,LOCAL-GLOBALS,PSEUDO-OBJECT,0,T?NECKLACE-OF-D
+	.OBJECT YOU,0,0,GLOBAL-OBJECTS,INTNUM,0,T?YOU
+	.OBJECT STAIRS,0,FX?SEENBIT,LOCAL-GLOBALS,WINDOW,0,T?STAIRS
+	.OBJECT LETTER-DEE,FX?SECRETBIT,FX?READBIT+FX?NDESCBIT+FX?NARTICLEBIT,0,0,0,T?LETTER-DEE
+	.OBJECT COFFIN,0,FX?VEHBIT+FX?CONTBIT,TOMB,0,0,T?COFFIN
+	.OBJECT SECRET-LANDING-TAM,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,PASSAGE-1,0,T?SECRET-LANDING-TAM
+	.OBJECT FRIEND,FX?FEMALE+FX?OPENBIT,FX?NDESCBIT+FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,LIMBO,0,0,T?FRIEND
+	.OBJECT IRIS-CLOSET,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,YOUR-CLOSET,0,T?IRIS-CLOSET
+	.OBJECT BOOKS-GLOBAL,FX?TRYTAKEBIT,FX?READBIT+FX?NDESCBIT,LIBRARY,TABLE-LIBRARY,0,T?BOOKS-GLOBAL
+	.OBJECT CLUE-3,FX?SECRETBIT,FX?READBIT+FX?NDESCBIT,0,0,0,T?CLUE-3
+	.OBJECT CASTLE,0,FX?SEENBIT+FX?NARTICLEBIT,GLOBAL-OBJECTS,CREW-GLOBAL,0,T?CASTLE
+	.OBJECT STUDY,FX?DOORBIT+FX?OPENBIT,FX?SEENBIT,ROOMS,JACK-ROOM,0,T?STUDY
+	.OBJECT COUSIN,0,FX?NDESCBIT+FX?NARTICLEBIT+FX?PERSONBIT,GLOBAL-OBJECTS,PLAYER-NAME,0,T?COUSIN
+	.OBJECT SKELETON,FX?OPENBIT,FX?SEARCHBIT+FX?SURFACEBIT,CRYPT,0,0,T?SKELETON
+	.OBJECT LOVER-PATH,FX?OPENBIT+FX?ONBIT,FX?SURFACEBIT,ROOMS,TOMB,0,T?LOVER-PATH
+	.OBJECT DRAGON-EYE,0,FX?SEENBIT+FX?NDESCBIT,DRIVEWAY,DRAGON,0,T?DRAGON-EYE
+	.OBJECT WRITING-DESK,FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?SURFACEBIT,SITTING-ROOM,WYVERN,LETTER-MAID,T?WRITING-DESK
+	.OBJECT NOT-HERE-OBJECT,0,FX?NARTICLEBIT,0,0,0,T?NOT-HERE-OBJECT
+	.OBJECT DRAGON,FX?TRYTAKEBIT,FX?NDESCBIT,DRIVEWAY,CAR,0,T?DRAGON
+	.OBJECT WARDROBE,0,FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,YOUR-ROOM,YOUR-SWITCH,0,T?WARDROBE
+	.OBJECT LUMBER-CHEST,FX?VOWELBIT,FX?NDESCBIT+FX?SEENBIT,LUMBER-ROOM,0,0,T?LUMBER-CHEST
+	.OBJECT INTNUM,0,0,GLOBAL-OBJECTS,DANGER,0,T?INTNUM
+	.OBJECT YOUR-MIRROR,FX?TRYTAKEBIT,FX?SEENBIT+FX?NDESCBIT,YOUR-ROOM,DRESSING-BENCH,0,T?YOUR-MIRROR
+	.OBJECT FLOOR,FX?OPENBIT,FX?SURFACEBIT+FX?SEENBIT,GLOBAL-OBJECTS,IT,0,T?FLOOR
+	.OBJECT CORR-1,FX?ONBIT,FX?WEARBIT+FX?SEENBIT,ROOMS,SITTING-ROOM,BUTLER,T?CORR-1
+	.OBJECT BATHROOM,0,FX?SEENBIT,LOCAL-GLOBALS,OIL-PAINTING,0,T?BATHROOM
+	.OBJECT EXERCISE-OUTFIT,FX?VOWELBIT,FX?TAKEBIT+FX?WEARBIT,LUGGAGE,SLEEP-OUTFIT,0,T?EXERCISE-OUTFIT
+	.OBJECT SECRET-YOUR-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,GALLERY,0,T?SECRET-YOUR-DOOR
+	.OBJECT DINNER-2,FX?VOWELBIT,FX?NDESCBIT,0,0,0,T?DINNER-2
+	.OBJECT MAGAZINE,0,FX?READBIT+FX?NDESCBIT+FX?TAKEBIT,LUMBER-ROOM,LUMBER-CHEST,0,T?MAGAZINE
+	.OBJECT TABLE-DINING,FX?OPENBIT,FX?SEARCHBIT+FX?SEENBIT+FX?SURFACEBIT,DINING-ROOM,BUST,0,T?TABLE-DINING
+	.OBJECT NIGHTSTAND-LG,0,FX?SEENBIT,LOCAL-GLOBALS,FIREPLACE,0,T?NIGHTSTAND-LG
+	.OBJECT ACCIDENT,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,ROMANCE,0,T?ACCIDENT
+	.OBJECT DEB,FX?FEMALE+FX?OPENBIT,FX?NDESCBIT+FX?NARTICLEBIT+FX?SEARCHBIT+FX?PERSONBIT,GREAT-HALL,0,0,T?DEB
+	.OBJECT HISTORY-BOOK,FX?TRYTAKEBIT,FX?CONTBIT+FX?READBIT,BOOKCASE,0,0,T?HISTORY-BOOK
+	.OBJECT LENS-BOX,FX?SECRETBIT,FX?SEARCHBIT+FX?CONTBIT+FX?NDESCBIT,0,0,LENS,T?LENS-BOX
+	.OBJECT SECRET-DRAWING-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,FOYER,0,T?SECRET-DRAWING-DOOR
+	.OBJECT OTHER-OUTFIT,0,FX?SEENBIT,GLOBAL-OBJECTS,EYE,0,T?OTHER-OUTFIT
+	.OBJECT GHOST-NEW,FX?OPENBIT,FX?NDESCBIT+FX?SEARCHBIT+FX?SEENBIT,LOCAL-GLOBALS,GHOST-OLD,0,T?GHOST-NEW
+	.OBJECT WENDISH-KIT,FX?TRYTAKEBIT,FX?CONTBIT+FX?SEENBIT+FX?NDESCBIT,WENDISH-ROOM,WENDISH-STUFF,0,T?WENDISH-KIT
+	.OBJECT LIGHT-GLOBAL,FX?TRYTAKEBIT,FX?SEENBIT,GLOBAL-OBJECTS,SLEEP-GLOBAL,0,T?LIGHT-GLOBAL
+	.OBJECT GLOBAL-HERE,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,WALL,0,T?GLOBAL-HERE
+	.OBJECT DRESSING-BENCH,FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,YOUR-ROOM,DRESSING-TABLE,0,T?DRESSING-BENCH
+	.OBJECT TURN,0,0,GLOBAL-OBJECTS,LOCAL-GLOBALS,0,T?TURN
+	.OBJECT TAMARA-BED,FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT+FX?SEENBIT,TAMARA-ROOM,0,0,T?TAMARA-BED
+	.OBJECT SECRET-IAN-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,WEST-HALL,0,T?SECRET-IAN-DOOR
+	.OBJECT DINNER-OUTFIT,0,FX?TAKEBIT+FX?WEARBIT,LUGGAGE,EXERCISE-OUTFIT,0,T?DINNER-OUTFIT
+	.OBJECT JOURNAL,FX?SECRETBIT,FX?CONTBIT+FX?READBIT+FX?TAKEBIT,TABLE-LIBRARY,0,0,T?JOURNAL
+	.OBJECT DRESSING-TABLE,FX?OPENBIT,FX?SEARCHBIT+FX?SEENBIT+FX?NDESCBIT+FX?SURFACEBIT,YOUR-ROOM,NIGHTSTAND,DRESSING-MIRROR,T?DRESSING-TABLE
+	.OBJECT BROCHURE,0,FX?READBIT+FX?TAKEBIT,LUGGAGE,0,0,T?BROCHURE
+	.OBJECT VIVIEN-BOX,FX?TRYTAKEBIT,FX?CONTBIT+FX?SEENBIT+FX?NDESCBIT,VIVIEN-ROOM,VIVIEN-STUFF,0,T?VIVIEN-BOX
+	.OBJECT CORR-2,FX?ONBIT,FX?SEENBIT,ROOMS,LIMBO,CREST,T?CORR-2
+	.OBJECT BOOKCASE,FX?OPENBIT,FX?SEENBIT+FX?SEARCHBIT+FX?CONTBIT+FX?NDESCBIT,LIBRARY,BOOKS-GLOBAL,HISTORY-BOOK,T?BOOKCASE
+	.OBJECT HYDE-CLOSET,FX?SECRETBIT,FX?NARTICLEBIT,ROOMS,GALLERY-CORNER,0,T?HYDE-CLOSET
+	.OBJECT GENERIC-CLUE,0,0,GLOBAL-OBJECTS,MOONMIST,0,T?GENERIC-CLUE
+	.OBJECT PIANO,FX?OPENBIT,FX?VEHBIT+FX?SEARCHBIT+FX?SEENBIT+FX?SURFACEBIT+FX?NDESCBIT,SITTING-ROOM,WRITING-DESK,MUSIC,T?PIANO
+	.OBJECT FIREPLACE,0,FX?SEENBIT,LOCAL-GLOBALS,BATHROOM,0,T?FIREPLACE
+	.OBJECT MIDPOINT,FX?SECRETBIT,0,ROOMS,WENDISH-CORNER,0,T?MIDPOINT
+	.OBJECT SECRET-VIVIEN-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,WENDISH-ROOM,0,T?SECRET-VIVIEN-DOOR
+	.OBJECT OCEAN,FX?VOWELBIT,FX?SEENBIT,LOCAL-GLOBALS,MOON,0,T?OCEAN
+	.OBJECT DINNER,FX?TRYTAKEBIT,FX?NARTICLEBIT,KITCHEN,0,0,T?DINNER
+	.OBJECT FIGURINE,FX?TRYTAKEBIT,FX?NDESCBIT,VIVIEN-ROOM,VIVIEN-BOX,0,T?FIGURINE
+	.OBJECT ARMOR,0,FX?SEENBIT+FX?NDESCBIT+FX?CONTBIT,GREAT-HALL,OFFICER,0,T?ARMOR
+	.OBJECT LETTER,0,FX?READBIT+FX?NDESCBIT+FX?SEENBIT,BUTLER,MACE,0,T?LETTER
+	.OBJECT BASEMENT,0,FX?SEENBIT,ROOMS,JUNCTION,WELL,T?BASEMENT
+	.OBJECT HAUNTING,0,FX?SEENBIT+FX?NDESCBIT,OFFICE,COMPUTER,0,T?HAUNTING
+	.OBJECT CLUE-4,FX?SECRETBIT,FX?READBIT+FX?NDESCBIT,0,0,0,T?CLUE-4
+	.OBJECT OBJECT-PAIR,0,0,0,0,0,T?OBJECT-PAIR
+	.OBJECT LUMBER-RING,FX?TRYTAKEBIT,0,0,0,0,T?LUMBER-RING
+	.OBJECT COAT-RACK,FX?OPENBIT,FX?SEENBIT+FX?NDESCBIT+FX?SURFACEBIT,FOYER,UMBRELLA-STAND,0,T?COAT-RACK
+	.OBJECT MAZE,FX?ONBIT,FX?SEENBIT,ROOMS,COURTYARD,0,T?MAZE
+	.OBJECT WALL,FX?OPENBIT,FX?SURFACEBIT+FX?SEENBIT,GLOBAL-OBJECTS,YOU,0,T?WALL
+	.OBJECT BACKSTAIRS,FX?ONBIT,FX?NARTICLEBIT+FX?WEARBIT+FX?SEENBIT,ROOMS,SECRET-DINING-DOOR,0,T?BACKSTAIRS
+	.OBJECT VICTORIA-CHAIR,FX?VOWELBIT+FX?OPENBIT,FX?NDESCBIT+FX?VEHBIT+FX?SURFACEBIT,DRAWING-ROOM,TAPESTRY,0,T?VICTORIA-CHAIR
+	.OBJECT WENDISH-STUFF,0,FX?CONTBIT+FX?READBIT+FX?NDESCBIT,WENDISH-ROOM,WENDISH-CHAIR,0,T?WENDISH-STUFF
+	.OBJECT JUNCTION,FX?ONBIT,0,ROOMS,OLD-GREAT-HALL,0,T?JUNCTION
+	.OBJECT MACE,FX?VOWELBIT,FX?NDESCBIT+FX?WEAPONBIT+FX?TAKEBIT,BUTLER,0,0,T?MACE
+	.OBJECT WAR-CLUB,FX?SECRETBIT,FX?SEENBIT+FX?NDESCBIT,0,0,0,T?WAR-CLUB
+	.OBJECT GARDEN,FX?ONBIT,FX?SEENBIT,ROOMS,MAZE,POND,T?GARDEN
+	.OBJECT SECRET-HYDE-DOOR,FX?DOORBIT+FX?SECRETBIT,0,ROOMS,IAN-ROOM,0,T?SECRET-HYDE-DOOR
+	.OBJECT TABLE-LIBRARY,FX?OPENBIT,FX?SEARCHBIT+FX?NDESCBIT+FX?SURFACEBIT,LIBRARY,LIBRARY-CHAIR,JOURNAL,T?TABLE-LIBRARY
+	.OBJECT CORR-3,0,FX?SEENBIT,ROOMS,TAMARA-ROOM,0,T?CORR-3
+	.OBJECT PSEUDO-OBJECT,0,FX?SEENBIT,LOCAL-GLOBALS,PEEPHOLE,0,T?PSEUDO-OBJECT
+	.ENDT
+
+	LAST-OBJECT=254
+
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+OBJPRP::
+
+T?MOONMIST::	.TABLE			; TABLE FOR OBJECT MOONMIST
+	.STRL "Moonmist"
+	.PROP 2,P?ACTION
+	MOONMIST-F
+	.PROP 8,P?SYNONYM
+	W?MOONMIST
+	W?MIST
+	W?INK
+	W?LIQUID
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MOON
+	.BYTE A?GREEN
+	.BYTE	0
+	.ENDT
+
+T?DUNGEON::	.TABLE			; TABLE FOR OBJECT DUNGEON
+	.STRL "dungeon"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE LOVER-PATH		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE LOVER-PATH		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	.BYTE LOVER-PATH		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 2,P?ACTION
+	DUNGEON-F
+	.PROP 2,P?SYNONYM
+	W?DUNGEON
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?STATION
+	DUNGEON
+	.PROP 2,P?GLOBAL
+	.BYTE PRIEST-DOOR
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?LIBRARY-CHAIR::	.TABLE			; TABLE FOR OBJECT LIBRARY-CHAIR
+	.STRL "armchair"
+	.PROP 6,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	W?ARMCHAIR
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ARM
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?SLEEP-OUTFIT::	.TABLE			; TABLE FOR OBJECT SLEEP-OUTFIT
+	.STRL "nightshirt"
+	.PROP 2,P?ACTION
+	CLOTHES-FCN
+	.PROP 8,P?SYNONYM
+	W?CLOTHES
+	W?OUTFIT
+	W?NIGHTS
+	W?SHIRT
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?NIGHT
+	.BYTE A?F.C
+	.BYTE A?F.C
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?GENERIC
+	GENERIC-CLOTHES
+	.BYTE	0
+	.ENDT
+
+T?WELL::	.TABLE			; TABLE FOR OBJECT WELL
+	.STRL "ancient well"
+	.PROP 2,P?ACTION
+	WELL-F
+	.PROP 4,P?SYNONYM
+	W?WELL
+	W?WELLSHAFT
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?ANCIENT
+	.PROP 2,P?CAPACITY
+	99
+	.PROP 2,P?GENERIC
+	GENERIC-WELL
+	.BYTE	0
+	.ENDT
+
+T?SECRET-SITTING-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-SITTING-DOOR
+	.STRL "secret door"
+	.PROP 2,P?ACTION
+	SECRET-SITTING-DOOR-F
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.BYTE A?SEAT
+	.BYTE	0
+	.ENDT
+
+T?WENDISH-ROOM::	.TABLE			; TABLE FOR OBJECT WENDISH-ROOM
+	.STRL "Wendish's bedroom"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE WENDISH-CORNER		; TO ROOM
+	.BYTE SECRET-WENDISH-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE EAST-HALL		; TO ROOM
+	.BYTE WENDISH-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE WENDISH-CORNER		; TO ROOM
+	.BYTE SECRET-WENDISH-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE EAST-HALL		; TO ROOM
+	.BYTE WENDISH-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	WENDISH-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?ROOM
+	W?BEDROOM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.BYTE A?BED
+	.BYTE A?ROOM
+	.BYTE A?BEDROOM
+	.BYTE A?WEST
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	EAST-HALL
+	.PROP 8,P?GLOBAL
+	.BYTE WENDISH-ROOM
+	.BYTE SECRET-WENDISH-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?908
+	.BYTE	0
+	.ENDT
+
+T?HANDS::	.TABLE			; TABLE FOR OBJECT HANDS
+	.STRL "hand"
+	.PROP 2,P?ACTION
+	HANDS-F
+	.PROP 4,P?SYNONYM
+	W?HANDS
+	W?HAND
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE A?MY
+	.BYTE	0
+	.ENDT
+
+T?DRIVEWAY::	.TABLE			; TABLE FOR OBJECT DRIVEWAY
+	.STRL "driveway"
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE FRONT-GATE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE FRONT-GATE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	DRIVEWAY-F
+	.PROP 4,P?SYNONYM
+	W?DRIVEWAY
+	W?WAY
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DRIVE
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	COURTYARD
+	.PROP 5,P?GLOBAL
+	.BYTE FRONT-GATE
+	.BYTE MOON
+	.BYTE OCEAN
+	.BYTE WINDOW
+	.BYTE CHAIR
+	.PROP 2,P?THINGS
+	PT?108
+	.BYTE	0
+	.ENDT
+
+T?IRIS-CHAIR::	.TABLE			; TABLE FOR OBJECT IRIS-CHAIR
+	.STRL "love seat"
+	.PROP 4,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?IRIS'S
+	.BYTE A?HER
+	.BYTE A?LOVE
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?TOMB::	.TABLE			; TABLE FOR OBJECT TOMB
+	.STRL "secret tomb"
+	.PROP 2,P?UP		; IMPOSSIBLE EXIT
+	STR?255		; FAILURE MESSAGE
+	.PROP 2,P?DOWN		; IMPOSSIBLE EXIT
+	STR?255		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?TOMB
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE	0
+	.ENDT
+
+T?DRAWING-ROOM::	.TABLE			; TABLE FOR OBJECT DRAWING-ROOM
+	.STRL "drawing room"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE DRAWING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE DRAWING-CLOSET		; TO ROOM
+	.BYTE SECRET-DRAWING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.BYTE GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE DRAWING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.BYTE GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE DRAWING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	DRAWING-ROOM-F
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?DOOR
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DRAWING
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	GREAT-HALL
+	.PROP 8,P?GLOBAL
+	.BYTE GREAT-HALL
+	.BYTE DRAWING-ROOM
+	.BYTE SECRET-DRAWING-DOOR
+	.BYTE CHAIR
+	.BYTE FIREPLACE
+	.BYTE WINDOW
+	.BYTE TABLE-RANDOM
+	.BYTE OIL-PAINTING
+	.BYTE	0
+	.ENDT
+
+T?COURTYARD::	.TABLE			; TABLE FOR OBJECT COURTYARD
+	.STRL "courtyard"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE DRIVEWAY		; TO ROOM
+	.BYTE FRONT-GATE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE FRONT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SW		; CONDITIONAL EXIT
+	.BYTE OLD-GREAT-HALL		; TO ROOM
+	.BYTE OLD-GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE FRONT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE DRIVEWAY		; TO ROOM
+	.BYTE FRONT-GATE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	COURTYARD-F
+	.PROP 6,P?SYNONYM
+	W?COURTYARD
+	W?YARD
+	W?ROOM
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?CASTLE
+	.BYTE A?COURT
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	COURTYARD
+	.PROP 7,P?GLOBAL
+	.BYTE FRONT-GATE
+	.BYTE MOON
+	.BYTE FRONT-DOOR
+	.BYTE OLD-GREAT-HALL
+	.BYTE OCEAN
+	.BYTE WINDOW
+	.BYTE CHAIR
+	.PROP 2,P?THINGS
+	PT?208
+	.BYTE	0
+	.ENDT
+
+T?SECRET-LANDING-LIB::	.TABLE			; TABLE FOR OBJECT SECRET-LANDING-LIB
+	.STRL "library landing"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SECRET-IAN-PASSAGE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.PROP 5,P?SW		; CONDITIONAL EXIT
+	.BYTE LIBRARY		; TO ROOM
+	.BYTE SECRET-LIBRARY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE LIBRARY		; TO ROOM
+	.BYTE SECRET-LIBRARY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE DINING-PASSAGE		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE LIBRARY		; TO ROOM
+	.BYTE SECRET-LIBRARY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE LIBRARY		; TO ROOM
+	.BYTE SECRET-LIBRARY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	SECRET-LANDING-LIB-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?LIBRARY
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	SECRET-LANDING-LIB
+	.PROP 5,P?GLOBAL
+	.BYTE SECRET-LIBRARY-DOOR
+	.BYTE LIBRARY
+	.BYTE LEVER
+	.BYTE LADDER
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?POND::	.TABLE			; TABLE FOR OBJECT POND
+	.STRL "goldfish pond"
+	.PROP 2,P?ACTION
+	POND-F
+	.PROP 6,P?SYNONYM
+	W?POND
+	W?WATER
+	W?FOUNTAIN
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?STONE
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?LOVER-PIC::	.TABLE			; TABLE FOR OBJECT LOVER-PIC
+	.STRL "Deirdre's portrait"
+	.PROP 2,P?ACTION
+	LOVER-PIC-F
+	.PROP 8,P?SYNONYM
+	W?PORTRAIT
+	W?PICTURE
+	W?PAINTING
+	W?WATERCOLOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?VIV'S
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.BYTE A?ART
+	.BYTE A?DEIRDRE
+	.BYTE A?DEE
+	.BYTE	0
+	.ENDT
+
+T?WINDOW::	.TABLE			; TABLE FOR OBJECT WINDOW
+	.STRL "window"
+	.PROP 2,P?ACTION
+	WINDOW-F
+	.PROP 8,P?SYNONYM
+	W?WINDOW
+	W?WINDSHIELD
+	W?WINDSCREEN
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?PUNCHBOWL::	.TABLE			; TABLE FOR OBJECT PUNCHBOWL
+	.STRL "punchbowl"
+	.PROP 2,P?ACTION
+	PUNCHBOWL-F
+	.PROP 4,P?SYNONYM
+	W?PUNCHBOWL
+	W?BOWL
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?PUNCH
+	.PROP 2,P?CAPACITY
+	9
+	.PROP 2,P?SIZE
+	10
+	.BYTE	0
+	.ENDT
+
+T?WENDISH-CHAIR::	.TABLE			; TABLE FOR OBJECT WENDISH-CHAIR
+	.STRL "armchair"
+	.PROP 6,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	W?ARMCHAIR
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ARM
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?MEMENTO::	.TABLE			; TABLE FOR OBJECT MEMENTO
+	.STRL "memento"
+	.PROP 2,P?ACTION
+	MEMENTO-F
+	.PROP 6,P?SYNONYM
+	W?PAINTING
+	W?CARVING
+	W?SKELETON
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?OIL
+	.BYTE A?ART
+	.BYTE A?JADE
+	.PROP 2,P?GENERIC
+	GENERIC-SKELETON
+	.BYTE	0
+	.ENDT
+
+T?HORN::	.TABLE			; TABLE FOR OBJECT HORN
+	.STRL "horn"
+	.PROP 2,P?ACTION
+	HORN-F
+	.PROP 2,P?SYNONYM
+	W?HORN
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?MOTOR
+	.BYTE	0
+	.ENDT
+
+T?BUST::	.TABLE			; TABLE FOR OBJECT BUST
+	.STRL "bronze bust"
+	.PROP 2,P?ACTION
+	BUST-F
+	.PROP 8,P?SYNONYM
+	W?BUST
+	W?STATUE
+	W?SCULPT
+	W?LIONEL
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?BRONZE
+	.BYTE A?LI'S
+	.BYTE A?LIONEL
+	.PROP 2,P?DESCFCN
+	BUST-D
+	.PROP 2,P?CAPACITY
+	5
+	.PROP 2,P?SIZE
+	13
+	.BYTE	0
+	.ENDT
+
+T?MEMENTO-2::	.TABLE			; TABLE FOR OBJECT MEMENTO-2
+	.STRL "memento"
+	.PROP 2,P?ACTION
+	MEMENTO-F
+	.PROP 8,P?SYNONYM
+	W?SHELL
+	W?FIGURE
+	W?INDIAN
+	W?DOCTOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?OYSTER
+	.BYTE A?PAPIER
+	.BYTE A?MACHE
+	.BYTE A?WITCH
+	.BYTE	0
+	.ENDT
+
+T?SECRET-JACK-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-JACK-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?SECRET-VIVIEN-PASSAGE::	.TABLE			; TABLE FOR OBJECT SECRET-VIVIEN-PASSAGE
+	.STRL "Vivien's entrance"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE VIVIEN-ROOM		; TO ROOM
+	.BYTE SECRET-VIVIEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE YOUR-CLOSET		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE VIVIEN-ROOM		; TO ROOM
+	.BYTE SECRET-VIVIEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE VIVIEN-ROOM		; TO ROOM
+	.BYTE SECRET-VIVIEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	SECRET-VIVIEN-PASSAGE-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	SECRET-LANDING-TAM
+	.PROP 3,P?GLOBAL
+	.BYTE SECRET-VIVIEN-DOOR
+	.BYTE VIVIEN-ROOM
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?JEWELRY-CASE::	.TABLE			; TABLE FOR OBJECT JEWELRY-CASE
+	.STRL "jewelry case"
+	.PROP 2,P?ACTION
+	JEWELRY-CASE-F
+	.PROP 4,P?SYNONYM
+	W?CASE
+	W?BOX
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?JEWELRY
+	.BYTE A?HER
+	.BYTE A?TAM'S
+	.PROP 2,P?CAPACITY
+	8
+	.BYTE	0
+	.ENDT
+
+T?SECRET-LANDING-JACK::	.TABLE			; TABLE FOR OBJECT SECRET-LANDING-JACK
+	.STRL "Jack's landing"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE JACK-ROOM		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NE		; CONDITIONAL EXIT
+	.BYTE JACK-ROOM		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE JACK-ROOM		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE JACK-ROOM		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	SECRET-LANDING-JACK-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.BYTE A?SECRET
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	SECRET-LANDING-JACK
+	.PROP 4,P?GLOBAL
+	.BYTE SECRET-JACK-DOOR
+	.BYTE JACK-ROOM
+	.BYTE LEVER
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?OIL-PAINTING::	.TABLE			; TABLE FOR OBJECT OIL-PAINTING
+	.STRL "oil painting"
+	.PROP 2,P?ACTION
+	BROCHURE-PSEUDO
+	.PROP 6,P?SYNONYM
+	W?PORTRAIT
+	W?PICTURE
+	W?PAINTING
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?OIL
+	.BYTE A?ART
+	.BYTE	0
+	.ENDT
+
+T?RECORDER::	.TABLE			; TABLE FOR OBJECT RECORDER
+	.STRL "small tape recorder"
+	.PROP 2,P?ACTION
+	RECORDER-F
+	.PROP 6,P?SYNONYM
+	W?RECORD
+	W?TAPE
+	W?TIMER
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?LI'S
+	.BYTE A?HIS
+	.BYTE A?TAPE
+	.BYTE A?SMALL
+	.BYTE A?CLOCKWORK
+	.PROP 2,P?GENERIC
+	GENERIC-RECORDER
+	.BYTE	0
+	.ENDT
+
+T?KITCHEN::	.TABLE			; TABLE FOR OBJECT KITCHEN
+	.STRL "kitchen"
+	.PROP 2,P?EAST		; IMPOSSIBLE EXIT
+	STR?246		; FAILURE MESSAGE
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.PROP 2,P?ACTION
+	KITCHEN-F
+	.PROP 2,P?SYNONYM
+	W?KITCHEN
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?STATION
+	KITCHEN
+	.PROP 3,P?GLOBAL
+	.BYTE CHAIR
+	.BYTE BELL
+	.BYTE STAIRS
+	.PROP 2,P?THINGS
+	PT?608
+	.BYTE	0
+	.ENDT
+
+T?SECRET-IAN-PASSAGE::	.TABLE			; TABLE FOR OBJECT SECRET-IAN-PASSAGE
+	.STRL "Ian's entrance"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE HYDE-CLOSET		; TO ROOM
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE IAN-ROOM		; TO ROOM
+	.BYTE SECRET-IAN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-LIB		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE IAN-ROOM		; TO ROOM
+	.BYTE SECRET-IAN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE IAN-ROOM		; TO ROOM
+	.BYTE SECRET-IAN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	SECRET-IAN-PASSAGE-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?IAN'S
+	.BYTE A?HIS
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	SECRET-IAN-PASSAGE
+	.PROP 3,P?GLOBAL
+	.BYTE SECRET-IAN-DOOR
+	.BYTE IAN-ROOM
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?DINING-ROOM::	.TABLE			; TABLE FOR OBJECT DINING-ROOM
+	.STRL "dining room"
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.BYTE DINING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.BYTE DINING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	DINING-ROOM-F
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DINING
+	.BYTE A?SLIDING
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	DINING-ROOM
+	.PROP 4,P?GLOBAL
+	.BYTE DINING-ROOM
+	.BYTE FIREPLACE
+	.BYTE WINDOW
+	.BYTE OIL-PAINTING
+	.PROP 2,P?THINGS
+	PT?508
+	.BYTE	0
+	.ENDT
+
+T?YOUR-ROOM::	.TABLE			; TABLE FOR OBJECT YOUR-ROOM
+	.STRL "your bedroom"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE YOUR-BATHROOM		; TO ROOM
+	.BYTE YOUR-BATHROOM-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE YOUR-CLOSET		; TO ROOM
+	.BYTE SECRET-YOUR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.BYTE YOUR-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE YOUR-CLOSET		; TO ROOM
+	.BYTE SECRET-YOUR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.BYTE YOUR-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	YOUR-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?ROOM
+	W?BEDROOM
+	W?DOOR
+	.PROP 7,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?BED
+	.BYTE A?ROOM
+	.BYTE A?BEDROOM
+	.BYTE A?SPARE
+	.BYTE A?F.C
+	.BYTE A?F.C
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	GALLERY
+	.PROP 6,P?GLOBAL
+	.BYTE YOUR-ROOM
+	.BYTE SECRET-YOUR-DOOR
+	.BYTE YOUR-BATHROOM
+	.BYTE FIREPLACE
+	.BYTE WINDOW
+	.BYTE YOUR-BATHROOM-DOOR
+	.BYTE	0
+	.ENDT
+
+T?ANDIRON::	.TABLE			; TABLE FOR OBJECT ANDIRON
+	.STRL "andiron"
+	.PROP 2,P?ACTION
+	ANDIRON-F
+	.PROP 6,P?SYNONYM
+	W?ANDIRON
+	W?HEAD
+	W?GRILLWORK
+	.BYTE	0
+	.ENDT
+
+T?LENS::	.TABLE			; TABLE FOR OBJECT LENS
+	.STRL "contact lens"
+	.PROP 4,P?SYNONYM
+	W?LENS
+	W?LENSES
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?CONTACT
+	.BYTE A?FIRST
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?INTDIR::	.TABLE			; TABLE FOR OBJECT INTDIR
+	.STRL "direction"
+	.PROP 2,P?SYNONYM
+	W?DIRECTION
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE A?EAST
+	.BYTE A?SOUTH
+	.BYTE A?WEST
+	.BYTE A?NE
+	.BYTE A?NW
+	.BYTE A?SE
+	.BYTE A?SW
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL "that"
+	.BYTE	0
+	.ENDT
+
+T?LIMBO::	.TABLE			; TABLE FOR OBJECT LIMBO
+	.STRL "limbo"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE LOVER-PATH		; TO ROOM
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?STATION
+	LOVER-PATH
+	.BYTE	0
+	.ENDT
+
+T?EAST-HALL::	.TABLE			; TABLE FOR OBJECT EAST-HALL
+	.STRL "east hall"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE IRIS-ROOM		; TO ROOM
+	.BYTE IRIS-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE WENDISH-ROOM		; TO ROOM
+	.BYTE WENDISH-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 6,P?SYNONYM
+	W?HALL
+	W?HALLWAY
+	W?ROOM
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?EAST
+	.PROP 2,P?LDESC
+	STR?248
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?STATION
+	EAST-HALL
+	.PROP 2,P?GLOBAL
+	.BYTE WENDISH-ROOM
+	.BYTE IRIS-ROOM
+	.BYTE	0
+	.ENDT
+
+T?PASSAGE-1::	.TABLE			; TABLE FOR OBJECT PASSAGE-1
+	.STRL "tower passage"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SITTING-PASSAGE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-JACK		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-JACK		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE SITTING-PASSAGE		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-JACK		; TO ROOM
+	.PROP 2,P?ACTION
+	PASSAGE-1-F
+	.PROP 6,P?SYNONYM
+	W?PASSAGE
+	W?ENTRANCE
+	W?LANDING
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?TOWER
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	PASSAGE-1
+	.PROP 2,P?GLOBAL
+	.BYTE LADDER
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?MIRROR-GLOBAL::	.TABLE			; TABLE FOR OBJECT MIRROR-GLOBAL
+	.STRL "mirror"
+	.PROP 2,P?ACTION
+	MIRROR-GLOBAL-F
+	.PROP 4,P?SYNONYM
+	W?MIRROR
+	W?GLASS
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LOOKING
+	.BYTE A?CHEVAL
+	.BYTE	0
+	.ENDT
+
+T?PLAYER::	.TABLE			; TABLE FOR OBJECT PLAYER
+	.STRL "yourself"
+	.PROP 2,P?ACTION
+	PLAYER-F
+	.PROP 4,P?SYNONYM
+	W?ME
+	W?MYSELF
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	0
+	.BYTE	0
+	.ENDT
+
+T?PEEPHOLE-2::	.TABLE			; TABLE FOR OBJECT PEEPHOLE-2
+	.STRL "peephole"
+	.PROP 2,P?ACTION
+	PEEPHOLE-2-F
+	.PROP 8,P?SYNONYM
+	W?HOLE
+	W?PEEKHOLE
+	W?PEEPHOLE
+	W?OPENING
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PEEP
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL "stone"
+	.PROP 2,P?ACTION
+	LOCAL-GLOBALS-F
+	.PROP 2,P?SYNONYM
+	W?STONE
+	.BYTE	0
+	.ENDT
+
+T?CHAIR::	.TABLE			; TABLE FOR OBJECT CHAIR
+	.STRL "chair"
+	.PROP 2,P?ACTION
+	CHAIR-F
+	.PROP 8,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	W?CHAIRS
+	W?BENCH
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WING
+	.BYTE	0
+	.ENDT
+
+T?HEAD::	.TABLE			; TABLE FOR OBJECT HEAD
+	.STRL "head"
+	.PROP 2,P?ACTION
+	HEAD-F
+	.PROP 2,P?SYNONYM
+	W?HEAD
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE A?B'S
+	.BYTE	0
+	.ENDT
+
+T?HER::	.TABLE			; TABLE FOR OBJECT HER
+	.STRL "her"
+	.PROP 4,P?SYNONYM
+	W?HER
+	W?MADAM
+	.BYTE	0
+	.ENDT
+
+T?TAPESTRY::	.TABLE			; TABLE FOR OBJECT TAPESTRY
+	.STRL "tapestry"
+	.PROP 2,P?ACTION
+	TAPESTRY-F
+	.PROP 8,P?SYNONYM
+	W?TAPESTRY
+	W?UNICORN
+	W?MAIDEN
+	W?ARM
+	.BYTE	0
+	.ENDT
+
+T?CANE::	.TABLE			; TABLE FOR OBJECT CANE
+	.STRL "cane"
+	.PROP 2,P?ACTION
+	CANE-F
+	.PROP 4,P?SYNONYM
+	W?CANE
+	W?HANDLE
+	.BYTE	0
+	.ENDT
+
+T?MUSIC::	.TABLE			; TABLE FOR OBJECT MUSIC
+	.STRL "piece of music"
+	.PROP 2,P?ACTION
+	MUSIC-F
+	.PROP 6,P?SYNONYM
+	W?PIECE
+	W?MUSIC
+	W?SONG
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?VOICE::	.TABLE			; TABLE FOR OBJECT VOICE
+	.STRL "voice"
+	.PROP 2,P?ACTION
+	VOICE-F
+	.PROP 6,P?SYNONYM
+	W?VOICE
+	W?SPEAKER
+	W?LOUDSPEAKER
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?LOUD
+	.BYTE A?HIDDEN
+	.BYTE A?LI'S
+	.BYTE A?B'S
+	.BYTE A?HIS
+	.BYTE	0
+	.ENDT
+
+T?FRONT-GATE::	.TABLE			; TABLE FOR OBJECT FRONT-GATE
+	.STRL "front gate"
+	.PROP 2,P?ACTION
+	FRONT-GATE-F
+	.PROP 2,P?SYNONYM
+	W?GATE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?FRONT
+	.BYTE A?TALL
+	.BYTE A?IRON
+	.BYTE	0
+	.ENDT
+
+T?HYDE-CHAIR::	.TABLE			; TABLE FOR OBJECT HYDE-CHAIR
+	.STRL "armchair"
+	.PROP 4,P?SYNONYM
+	W?CHAIR
+	W?ARMCHAIR
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ARM
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?OFFICE::	.TABLE			; TABLE FOR OBJECT OFFICE
+	.STRL "office"
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE OFFICE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE OFFICE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	OFFICE-F
+	.PROP 4,P?SYNONYM
+	W?OFFICE
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?OFFICE
+	.BYTE A?EAST
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	CORR-2
+	.PROP 3,P?GLOBAL
+	.BYTE OFFICE
+	.BYTE CHAIR
+	.BYTE FIREPLACE
+	.PROP 2,P?THINGS
+	PT?409
+	.BYTE	0
+	.ENDT
+
+T?PEEPHOLE::	.TABLE			; TABLE FOR OBJECT PEEPHOLE
+	.STRL "peephole"
+	.PROP 2,P?ACTION
+	PEEPHOLE-F
+	.PROP 8,P?SYNONYM
+	W?HOLE
+	W?PEEKHOLE
+	W?PEEPHOLE
+	W?OPENING
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PEEP
+	.BYTE	0
+	.ENDT
+
+T?YOUR-COLOR::	.TABLE			; TABLE FOR OBJECT YOUR-COLOR
+	.STRL "your favorite color"
+	.PROP 2,P?ACTION
+	YOUR-COLOR-F
+	.PROP 2,P?SYNONYM
+	W?COLOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?FAVORITE
+	.BYTE A?F.C
+	.BYTE A?F.C
+	.BYTE	0
+	.ENDT
+
+T?CHAIR-DINING::	.TABLE			; TABLE FOR OBJECT CHAIR-DINING
+	.STRL "chair"
+	.PROP 8,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	W?CHAIRS
+	W?BENCH
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DINING
+	.BYTE A?MY
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?DRESSING-MIRROR::	.TABLE			; TABLE FOR OBJECT DRESSING-MIRROR
+	.STRL "side mirror"
+	.PROP 2,P?ACTION
+	DRESSING-MIRROR-F
+	.PROP 2,P?SYNONYM
+	W?MIRROR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?DRESSING
+	.BYTE A?SIDE
+	.BYTE A?TABLE
+	.BYTE	0
+	.ENDT
+
+T?LUGGAGE::	.TABLE			; TABLE FOR OBJECT LUGGAGE
+	.STRL "your luggage"
+	.PROP 2,P?ACTION
+	LUGGAGE-F
+	.PROP 8,P?SYNONYM
+	W?LUGGAGE
+	W?BAG
+	W?CASE
+	W?SUITCASE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?MY
+	.PROP 2,P?CAPACITY
+	88
+	.PROP 2,P?SIZE
+	30
+	.BYTE	0
+	.ENDT
+
+T?EYE::	.TABLE			; TABLE FOR OBJECT EYE
+	.STRL "eye"
+	.PROP 2,P?ACTION
+	EYE-F
+	.PROP 4,P?SYNONYM
+	W?EYE
+	W?EYES
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE A?B'S
+	.BYTE	0
+	.ENDT
+
+T?NECKLACE::	.TABLE			; TABLE FOR OBJECT NECKLACE
+	.STRL "black pearl necklace"
+	.PROP 6,P?SYNONYM
+	W?PEARLS
+	W?NECKLACE
+	W?STRING
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?BLACK
+	.BYTE A?PEARL
+	.PROP 2,P?TEXT
+	STR?280
+	.PROP 2,P?SIZE
+	5
+	.BYTE	0
+	.ENDT
+
+T?YOUR-BATHROOM::	.TABLE			; TABLE FOR OBJECT YOUR-BATHROOM
+	.STRL "your bathroom"
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE YOUR-BATHROOM-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE YOUR-BATHROOM-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	YOUR-BATHROOM-F
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?BATHROOM
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?BATH
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	YOUR-ROOM
+	.PROP 1,P?GLOBAL
+	.BYTE YOUR-BATHROOM-DOOR
+	.PROP 2,P?THINGS
+	PT?708
+	.BYTE	0
+	.ENDT
+
+T?JACK-TAPE::	.TABLE			; TABLE FOR OBJECT JACK-TAPE
+	.STRL "secret tape recorder"
+	.PROP 2,P?ACTION
+	JACK-TAPE-F
+	.PROP 6,P?SYNONYM
+	W?TAPE
+	W?RECORD
+	W?EVIDENCE
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?TAPE
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-RECORDER
+	.BYTE	0
+	.ENDT
+
+T?SECRET-DINING-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-DINING-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.BYTE	0
+	.ENDT
+
+T?EARRING::	.TABLE			; TABLE FOR OBJECT EARRING
+	.STRL "earring"
+	.PROP 2,P?ACTION
+	EARRING-F
+	.PROP 6,P?SYNONYM
+	W?EARRING
+	W?SETTING
+	W?SOCKET
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.PROP 2,P?TEXT
+	STR?263
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL "GO"
+	.PROP 2,P?TEXT
+	0
+	.BYTE	0
+	.ENDT
+
+T?WEST-HALL::	.TABLE			; TABLE FOR OBJECT WEST-HALL
+	.STRL "west hall"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE HYDE-ROOM		; TO ROOM
+	.BYTE HYDE-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE IAN-ROOM		; TO ROOM
+	.BYTE IAN-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 6,P?SYNONYM
+	W?HALL
+	W?HALLWAY
+	W?ROOM
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WEST
+	.PROP 2,P?LDESC
+	STR?248
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?STATION
+	WEST-HALL
+	.PROP 2,P?GLOBAL
+	.BYTE HYDE-ROOM
+	.BYTE IAN-ROOM
+	.BYTE	0
+	.ENDT
+
+T?BRICKS::	.TABLE			; TABLE FOR OBJECT BRICKS
+	.STRL "bunch of loose bricks"
+	.PROP 2,P?ACTION
+	BRICKS-F
+	.PROP 6,P?SYNONYM
+	W?BUNCH
+	W?BRICKS
+	W?BRICK
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?LOOSE
+	.PROP 2,P?DESCFCN
+	BRICKS-D
+	.BYTE	0
+	.ENDT
+
+T?PLAYER-NAME::	.TABLE			; TABLE FOR OBJECT PLAYER-NAME
+	.STRL "yourself"
+	.PROP 2,P?ACTION
+	PLAYER-NAME-F
+	.PROP 6,P?SYNONYM
+	W?L.N
+	W?WE
+	W?US
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?F.N
+	.BYTE A?L.N
+	.BYTE	0
+	.ENDT
+
+T?YOUR-CLOSET::	.TABLE			; TABLE FOR OBJECT YOUR-CLOSET
+	.STRL "your entrance"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE IRIS-CLOSET		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE SECRET-VIVIEN-PASSAGE		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE SECRET-YOUR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE DRAWING-CLOSET		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE SECRET-YOUR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE SECRET-YOUR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	YOUR-CLOSET-F
+	.PROP 8,P?SYNONYM
+	W?ENTRANCE
+	W?SPACE
+	W?LANDING
+	W?PASSAGE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?SECRET
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	YOUR-CLOSET
+	.PROP 4,P?GLOBAL
+	.BYTE SECRET-YOUR-DOOR
+	.BYTE YOUR-ROOM
+	.BYTE STAIRS
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?IT::	.TABLE			; TABLE FOR OBJECT IT
+	.STRL "it"
+	.PROP 2,P?ACTION
+	IT-F
+	.PROP 4,P?SYNONYM
+	W?IT
+	W?THIS
+	.BYTE	0
+	.ENDT
+
+T?BLOWGUN::	.TABLE			; TABLE FOR OBJECT BLOWGUN
+	.STRL "blowgun"
+	.PROP 2,P?ACTION
+	BLOWGUN-F
+	.PROP 4,P?SYNONYM
+	W?GUN
+	W?BLOWGUN
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?BLOW
+	.PROP 2,P?SIZE
+	9
+	.BYTE	0
+	.ENDT
+
+T?WENDISH-CORNER::	.TABLE			; TABLE FOR OBJECT WENDISH-CORNER
+	.STRL "Wendish's entrance"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE IRIS-CLOSET		; TO ROOM
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE WENDISH-ROOM		; TO ROOM
+	.BYTE SECRET-WENDISH-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE MIDPOINT		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE WENDISH-ROOM		; TO ROOM
+	.BYTE SECRET-WENDISH-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE WENDISH-ROOM		; TO ROOM
+	.BYTE SECRET-WENDISH-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	WENDISH-CORNER-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	WENDISH-CORNER
+	.PROP 3,P?GLOBAL
+	.BYTE SECRET-WENDISH-DOOR
+	.BYTE WENDISH-ROOM
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?ROMANCE::	.TABLE			; TABLE FOR OBJECT ROMANCE
+	.STRL "Tamara's romance"
+	.PROP 8,P?SYNONYM
+	W?ROMANCE
+	W?ENGAGE
+	W?MARRIAGE
+	W?LOVE
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?HER
+	.BYTE A?HIS
+	.BYTE	0
+	.ENDT
+
+T?LENS-2::	.TABLE			; TABLE FOR OBJECT LENS-2
+	.STRL "second contact lens"
+	.PROP 2,P?ACTION
+	LENS-2-F
+	.PROP 4,P?SYNONYM
+	W?LENS
+	W?LENSES
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECOND
+	.BYTE A?CONTACT
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	GENERIC-LENS
+	.BYTE	0
+	.ENDT
+
+T?YOUR-CHAIR::	.TABLE			; TABLE FOR OBJECT YOUR-CHAIR
+	.STRL "wing chair"
+	.PROP 2,P?SYNONYM
+	W?CHAIR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?WING
+	.BYTE A?MY
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?GLASS-EYE::	.TABLE			; TABLE FOR OBJECT GLASS-EYE
+	.STRL "glass eye"
+	.PROP 2,P?ACTION
+	GLASS-EYE-F
+	.PROP 2,P?SYNONYM
+	W?EYE
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?GLASS
+	.BYTE A?RHINO
+	.BYTE A?YELLOW
+	.BYTE A?RH'S
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-EYE
+	.BYTE	0
+	.ENDT
+
+T?TWEED-OUTFIT::	.TABLE			; TABLE FOR OBJECT TWEED-OUTFIT
+	.STRL "tweed outfit"
+	.PROP 2,P?ACTION
+	CLOTHES-FCN
+	.PROP 8,P?SYNONYM
+	W?CLOTHES
+	W?OUTFIT
+	W?TWEEDS
+	W?SUIT
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?TWEED
+	.BYTE A?WOOLEN
+	.BYTE A?WOOL
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?GENERIC
+	GENERIC-CLOTHES
+	.BYTE	0
+	.ENDT
+
+T?SECRET-LIBRARY-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-LIBRARY-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.BYTE A?LIBRARY
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?CANDLE::	.TABLE			; TABLE FOR OBJECT CANDLE
+	.STRL "ornate candle sconce"
+	.PROP 2,P?ACTION
+	CANDLE-F
+	.PROP 4,P?SYNONYM
+	W?CANDLE
+	W?SCONCE
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?ORNATE
+	.BYTE A?CANDLE
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.BYTE	0
+	.ENDT
+
+T?INKWELL::	.TABLE			; TABLE FOR OBJECT INKWELL
+	.STRL "inkwell"
+	.PROP 2,P?ACTION
+	INKWELL-F
+	.PROP 4,P?SYNONYM
+	W?INKWELL
+	W?WELL
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?INK
+	.PROP 2,P?CAPACITY
+	0
+	.PROP 2,P?SIZE
+	4
+	.PROP 2,P?GENERIC
+	GENERIC-WELL
+	.BYTE	0
+	.ENDT
+
+T?ARTIFACT::	.TABLE			; TABLE FOR OBJECT ARTIFACT
+	.STRL "hidden treasure"
+	.PROP 2,P?ACTION
+	ARTIFACT-F
+	.PROP 4,P?SYNONYM
+	W?ARTIFACT
+	W?TREASURE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?VALUABLE
+	.BYTE A?MISSING
+	.BYTE A?HIDDEN
+	.BYTE	0
+	.ENDT
+
+T?IAN-CHAIR::	.TABLE			; TABLE FOR OBJECT IAN-CHAIR
+	.STRL "reclining Morris chair"
+	.PROP 4,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?RECLINE
+	.BYTE A?MORRIS
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?MOON::	.TABLE			; TABLE FOR OBJECT MOON
+	.STRL "full moon"
+	.PROP 2,P?ACTION
+	MOON-F
+	.PROP 6,P?SYNONYM
+	W?MOON
+	W?MIST
+	W?SKY
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FULL
+	.BYTE	0
+	.ENDT
+
+T?DOCTOR::	.TABLE			; TABLE FOR OBJECT DOCTOR
+	.STRL "Dr. Wendish"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?184		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DOCTOR-F
+	.PROP 8,P?SYNONYM
+	W?DOCTOR
+	W?NICHOLAS
+	W?WENDISH
+	W?MAN
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?DR
+	.BYTE A?DOCTOR
+	.BYTE A?NICHOLAS
+	.BYTE A?WENDISH
+	.BYTE A?MAN
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	4
+	.PROP 2,P?DESCFCN
+	DOCTOR-D
+	.PROP 2,P?CAPACITY
+	40
+	.PROP 2,P?STATION
+	A?DOC'S
+	.BYTE	0
+	.ENDT
+
+T?VIVIEN-CHAIR::	.TABLE			; TABLE FOR OBJECT VIVIEN-CHAIR
+	.STRL "chaise longue"
+	.PROP 8,P?SYNONYM
+	W?CHAIR
+	W?CHAISE
+	W?LONGUE
+	W?LOUNGE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?CHAISE
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?BELL::	.TABLE			; TABLE FOR OBJECT BELL
+	.STRL "bell"
+	.PROP 2,P?ACTION
+	BELL-F
+	.PROP 4,P?SYNONYM
+	W?BELL
+	W?GONG
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DINNER
+	.PROP 2,P?GENERIC
+	GENERIC-BELL
+	.BYTE	0
+	.ENDT
+
+T?SITTING-ROOM::	.TABLE			; TABLE FOR OBJECT SITTING-ROOM
+	.STRL "sitting room"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.BYTE SITTING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?DOWN		; CONDITIONAL EXIT
+	.BYTE SITTING-PASSAGE		; TO ROOM
+	.BYTE SECRET-SITTING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE SITTING-PASSAGE		; TO ROOM
+	.BYTE SECRET-SITTING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.BYTE SITTING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	SITTING-ROOM-F
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SITTING
+	.BYTE A?SLIDING
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	CORR-1
+	.PROP 5,P?GLOBAL
+	.BYTE SITTING-ROOM
+	.BYTE SECRET-SITTING-DOOR
+	.BYTE CHAIR
+	.BYTE FIREPLACE
+	.BYTE WINDOW
+	.BYTE	0
+	.ENDT
+
+T?SLEEP-GLOBAL::	.TABLE			; TABLE FOR OBJECT SLEEP-GLOBAL
+	.STRL "sleep"
+	.PROP 2,P?ACTION
+	SLEEP-GLOBAL-F
+	.PROP 2,P?SYNONYM
+	W?SLEEP
+	.BYTE	0
+	.ENDT
+
+T?LADDER::	.TABLE			; TABLE FOR OBJECT LADDER
+	.STRL "ladder"
+	.PROP 2,P?ACTION
+	LADDER-F
+	.PROP 2,P?SYNONYM
+	W?LADDER
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?NARROW
+	.BYTE	0
+	.ENDT
+
+T?BUTLER::	.TABLE			; TABLE FOR OBJECT BUTLER
+	.STRL "Bolitho"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?190		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	BUTLER-F
+	.PROP 6,P?SYNONYM
+	W?BOLITHO
+	W?BUTLER
+	W?MAN
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?WHITE
+	.BYTE A?BOLITHO
+	.BYTE A?BUTLER
+	.BYTE A?MAN
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	8
+	.PROP 2,P?DESCFCN
+	BUTLER-D
+	.PROP 2,P?TEXT
+	STR?191
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?WYVERN::	.TABLE			; TABLE FOR OBJECT WYVERN
+	.STRL "window seat"
+	.PROP 2,P?ACTION
+	WYVERN-F
+	.PROP 8,P?SYNONYM
+	W?SEAT
+	W?WYVERN
+	W?GARGOYLE
+	W?DRAGON
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?WINDOW
+	.BYTE A?OTHER
+	.BYTE	0
+	.ENDT
+
+T?MUSTACHE::	.TABLE			; TABLE FOR OBJECT MUSTACHE
+	.STRL "Wendish's mustache"
+	.PROP 2,P?ACTION
+	MUSTACHE-F
+	.PROP 2,P?SYNONYM
+	W?MUSTACHE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.BYTE	0
+	.ENDT
+
+T?CREW-GLOBAL::	.TABLE			; TABLE FOR OBJECT CREW-GLOBAL
+	.STRL "bunch of guests"
+	.PROP 2,P?ACTION
+	CREW-GLOBAL-F
+	.PROP 4,P?SYNONYM
+	W?BUNCH
+	W?GUESTS
+	.BYTE	0
+	.ENDT
+
+T?DESK::	.TABLE			; TABLE FOR OBJECT DESK
+	.STRL "old-fashioned desk"
+	.PROP 2,P?SYNONYM
+	W?DESK
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.BYTE A?OLD
+	.BYTE A?OLD-FASHION
+	.BYTE A?TALL
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?GAME-ROOM::	.TABLE			; TABLE FOR OBJECT GAME-ROOM
+	.STRL "game room"
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE GAME-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE GAME-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?GAME
+	.BYTE A?GAME-ROOM
+	.BYTE A?ROOM
+	.BYTE A?BILLIARD
+	.PROP 2,P?LDESC
+	STR?268
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	4
+	.PROP 2,P?STATION
+	CORR-3
+	.PROP 2,P?GLOBAL
+	.BYTE GAME-ROOM
+	.BYTE CHAIR
+	.PROP 2,P?THINGS
+	PT?809
+	.BYTE	0
+	.ENDT
+
+T?LETTER-MAID::	.TABLE			; TABLE FOR OBJECT LETTER-MAID
+	.STRL "maid's note"
+	.PROP 2,P?ACTION
+	LETTER-MAID-F
+	.PROP 4,P?SYNONYM
+	W?NOTE
+	W?NOTES
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MAID'S
+	.BYTE A?HER
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?DANGER::	.TABLE			; TABLE FOR OBJECT DANGER
+	.STRL "danger"
+	.PROP 6,P?SYNONYM
+	W?DANGER
+	W?THREAT
+	W?ATTACK
+	.BYTE	0
+	.ENDT
+
+T?DRESSING-TABLE-LG::	.TABLE			; TABLE FOR OBJECT DRESSING-TABLE-LG
+	.STRL "dressing table"
+	.PROP 2,P?ACTION
+	DRESSING-TABLE-LG-F
+	.PROP 8,P?SYNONYM
+	W?TABLE
+	W?BENCH
+	W?CHEST
+	W?DRESSE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?DRESSING
+	.BYTE A?ROLL-TOP
+	.BYTE A?WRITING
+	.BYTE	0
+	.ENDT
+
+T?COMPUTER::	.TABLE			; TABLE FOR OBJECT COMPUTER
+	.STRL "computer"
+	.PROP 2,P?ACTION
+	COMPUTER-F
+	.PROP 2,P?SYNONYM
+	W?COMPUTER
+	.BYTE	0
+	.ENDT
+
+T?LENS-1::	.TABLE			; TABLE FOR OBJECT LENS-1
+	.STRL "first contact lens"
+	.PROP 4,P?SYNONYM
+	W?LENS
+	W?LENSES
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?FIRST
+	.BYTE A?CONTACT
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	GENERIC-LENS
+	.BYTE	0
+	.ENDT
+
+T?WENDISH-BOOK::	.TABLE			; TABLE FOR OBJECT WENDISH-BOOK
+	.STRL "lab notebook"
+	.PROP 2,P?ACTION
+	WENDISH-BOOK-F
+	.PROP 8,P?SYNONYM
+	W?NOTEBOOK
+	W?BOOK
+	W?BOOKS
+	W?EVIDENCE
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.BYTE A?NOTE
+	.BYTE A?LAB
+	.BYTE A?LABORATORY
+	.PROP 2,P?CHARACTER
+	4
+	.PROP 2,P?CAPACITY
+	4
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?TAMARA-EVIDENCE::	.TABLE			; TABLE FOR OBJECT TAMARA-EVIDENCE
+	.STRL "Tamara's receipt"
+	.PROP 2,P?ACTION
+	TAMARA-EVIDENCE-F
+	.PROP 4,P?SYNONYM
+	W?EVIDENCE
+	W?RECEIPT
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?YOUR-SWITCH::	.TABLE			; TABLE FOR OBJECT YOUR-SWITCH
+	.STRL "hidden switch"
+	.PROP 2,P?ACTION
+	YOUR-SWITCH-F
+	.PROP 2,P?SYNONYM
+	W?SWITCH
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?SMALL
+	.BYTE A?HIDDEN
+	.BYTE	0
+	.ENDT
+
+T?SECRET-WENDISH-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-WENDISH-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?PAINTER::	.TABLE			; TABLE FOR OBJECT PAINTER
+	.STRL "Vivien"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?187		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	PAINTER-F
+	.PROP 8,P?SYNONYM
+	W?VIVIEN
+	W?VIV
+	W?PENTREATH
+	W?WOMAN
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TALL
+	.BYTE A?MS
+	.BYTE A?MISS
+	.BYTE A?MRS
+	.BYTE A?VIVIEN
+	.BYTE A?VIV
+	.BYTE A?PENTREATH
+	.BYTE A?WOMAN
+	.PROP 2,P?LDESC
+	2
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?DESCFCN
+	PAINTER-D
+	.PROP 2,P?TEXT
+	STR?188
+	.PROP 2,P?CAPACITY
+	40
+	.PROP 2,P?STATION
+	A?VIV'S
+	.BYTE	0
+	.ENDT
+
+T?CHAPEL::	.TABLE			; TABLE FOR OBJECT CHAPEL
+	.STRL "chapel"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE CHAPEL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE CHAPEL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	CHAPEL-F
+	.PROP 4,P?SYNONYM
+	W?CHAPEL
+	W?DOOR
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?CHAPEL
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	4
+	.PROP 2,P?STATION
+	CORR-3
+	.PROP 2,P?GLOBAL
+	.BYTE CHAPEL
+	.BYTE CHAIR
+	.PROP 2,P?THINGS
+	PT?709
+	.BYTE	0
+	.ENDT
+
+T?DEALER::	.TABLE			; TABLE FOR OBJECT DEALER
+	.STRL "Hyde"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?186		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DEALER-F
+	.PROP 8,P?SYNONYM
+	W?MONTAGUE
+	W?HYDE
+	W?DEALER
+	W?MAN
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TALL
+	.BYTE A?ART
+	.BYTE A?MR
+	.BYTE A?MISTER
+	.BYTE A?MONTAGUE
+	.BYTE A?HYDE
+	.BYTE A?DEALER
+	.BYTE A?MAN
+	.PROP 2,P?LDESC
+	2
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	6
+	.PROP 2,P?DESCFCN
+	DEALER-D
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?IRON-MAIDEN::	.TABLE			; TABLE FOR OBJECT IRON-MAIDEN
+	.STRL "iron maiden"
+	.PROP 2,P?ACTION
+	IRON-MAIDEN-F
+	.PROP 8,P?SYNONYM
+	W?MAIDEN
+	W?SPACE
+	W?SPIKE
+	W?SPIKES
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?IRON
+	.BYTE	0
+	.ENDT
+
+T?VIVIEN-STUFF::	.TABLE			; TABLE FOR OBJECT VIVIEN-STUFF
+	.STRL "art supplies"
+	.PROP 2,P?ACTION
+	RANDOM-PSEUDO
+	.PROP 8,P?SYNONYM
+	W?PAD
+	W?CANVAS
+	W?SUPPLIES
+	W?EASEL
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.BYTE A?WATERCOLOR
+	.BYTE A?SKETCH
+	.BYTE A?ART
+	.BYTE A?PICTURE
+	.BYTE	0
+	.ENDT
+
+T?CORPSE::	.TABLE			; TABLE FOR OBJECT CORPSE
+	.STRL "Deirdre's body"
+	.PROP 2,P?ACTION
+	CORPSE-F
+	.PROP 2,P?SYNONYM
+	W?CORPSE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.BYTE A?DEAD
+	.BYTE	0
+	.ENDT
+
+T?LORD::	.TABLE			; TABLE FOR OBJECT LORD
+	.STRL "Lord Jack"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?177		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	LORD-F
+	.PROP 8,P?SYNONYM
+	W?LORD
+	W?JACK
+	W?TRESYLLIAN
+	W?MAN
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?TALL
+	.BYTE A?MY
+	.BYTE A?LORD
+	.BYTE A?JACK
+	.BYTE A?TRESYLLIAN
+	.BYTE A?MAN
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?DESCFCN
+	LORD-D
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?COSTUME::	.TABLE			; TABLE FOR OBJECT COSTUME
+	.STRL "ghost costume"
+	.PROP 2,P?ACTION
+	COSTUME-F
+	.PROP 8,P?SYNONYM
+	W?COSTUME
+	W?DISGUISE
+	W?GOWN
+	W?WIG
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?GHOST
+	.BYTE A?G'S
+	.BYTE A?HER
+	.BYTE A?HIS
+	.BYTE A?WHITE
+	.BYTE A?BLOND
+	.BYTE A?BLONDE
+	.BYTE A?PALE
+	.PROP 2,P?SIZE
+	20
+	.BYTE	0
+	.ENDT
+
+T?LUMBER-ROOM::	.TABLE			; TABLE FOR OBJECT LUMBER-ROOM
+	.STRL "lumber room"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE LUMBER-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE LUMBER-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE LUMBER-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.BYTE LUMBER-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	LUMBER-ROOM-F
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LUMBER
+	.BYTE A?ROOM
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	4
+	.PROP 2,P?STATION
+	CORR-3
+	.PROP 1,P?GLOBAL
+	.BYTE LUMBER-ROOM
+	.PROP 2,P?THINGS
+	PT?609
+	.PROP 2,P?CORRIDOR
+	0
+	.BYTE	0
+	.ENDT
+
+T?WARDROBE-LG::	.TABLE			; TABLE FOR OBJECT WARDROBE-LG
+	.STRL "wardrobe"
+	.PROP 2,P?ACTION
+	RANDOM-PSEUDO
+	.PROP 4,P?SYNONYM
+	W?WARDROBE
+	W?PRESS
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?CLOTHES
+	.BYTE	0
+	.ENDT
+
+T?UMBRELLA-STAND::	.TABLE			; TABLE FOR OBJECT UMBRELLA-STAND
+	.STRL "umbrella stand"
+	.PROP 2,P?ACTION
+	UMBRELLA-STAND-F
+	.PROP 4,P?SYNONYM
+	W?STAND
+	W?UMBRELLA
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?UMBRELLA
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?IAN-ROOM::	.TABLE			; TABLE FOR OBJECT IAN-ROOM
+	.STRL "Ian's bedroom"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE SECRET-IAN-PASSAGE		; TO ROOM
+	.BYTE SECRET-IAN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE WEST-HALL		; TO ROOM
+	.BYTE IAN-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE SECRET-IAN-PASSAGE		; TO ROOM
+	.BYTE SECRET-IAN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE WEST-HALL		; TO ROOM
+	.BYTE IAN-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	IAN-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?ROOM
+	W?BEDROOM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?IAN'S
+	.BYTE A?HIS
+	.BYTE A?BED
+	.BYTE A?ROOM
+	.BYTE A?BEDROOM
+	.BYTE A?WEST
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	WEST-HALL
+	.PROP 8,P?GLOBAL
+	.BYTE IAN-ROOM
+	.BYTE SECRET-IAN-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?1108
+	.BYTE	0
+	.ENDT
+
+T?OFFICER::	.TABLE			; TABLE FOR OBJECT OFFICER
+	.STRL "Ian"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?183		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	OFFICER-F
+	.PROP 8,P?SYNONYM
+	W?IAN
+	W?FORDYCE
+	W?OFFICE
+	W?MAN
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TALL
+	.BYTE A?BLOND
+	.BYTE A?MR
+	.BYTE A?MISTER
+	.BYTE A?IAN
+	.BYTE A?FORDYCE
+	.BYTE A?OFFICE
+	.BYTE A?MAN
+	.PROP 2,P?LDESC
+	1
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	5
+	.PROP 2,P?DESCFCN
+	OFFICER-D
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?CREST::	.TABLE			; TABLE FOR OBJECT CREST
+	.STRL "family crest"
+	.PROP 2,P?ACTION
+	CREST-F
+	.PROP 6,P?SYNONYM
+	W?CREST
+	W?WYVERN
+	W?BAS-RELIEF
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?BRONZE
+	.BYTE A?TRESYLLIAN
+	.BYTE A?FAMILY
+	.BYTE	0
+	.ENDT
+
+T?FRONT-DOOR::	.TABLE			; TABLE FOR OBJECT FRONT-DOOR
+	.STRL "front door"
+	.PROP 2,P?ACTION
+	FRONT-DOOR-F
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?FRONT
+	.BYTE A?CASTLE
+	.BYTE	0
+	.ENDT
+
+T?CRYPT::	.TABLE			; TABLE FOR OBJECT CRYPT
+	.STRL "secret crypt"
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 2,P?ACTION
+	CRYPT-F
+	.PROP 2,P?SYNONYM
+	W?CRYPT
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SECRET
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?STATION
+	BASEMENT
+	.PROP 1,P?GLOBAL
+	.BYTE HOLE-IN-WALL
+	.BYTE	0
+	.ENDT
+
+T?HOLE-IN-WALL::	.TABLE			; TABLE FOR OBJECT HOLE-IN-WALL
+	.STRL "brick hole"
+	.PROP 2,P?ACTION
+	HOLE-IN-WALL-F
+	.PROP 6,P?SYNONYM
+	W?HOLE
+	W?OPENING
+	W?WALL
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?BRICK
+	.BYTE	0
+	.ENDT
+
+T?LEVER::	.TABLE			; TABLE FOR OBJECT LEVER
+	.STRL "lever"
+	.PROP 2,P?ACTION
+	LEVER-F
+	.PROP 4,P?SYNONYM
+	W?LEVER
+	W?HANDLE
+	.BYTE	0
+	.ENDT
+
+T?GREAT-HALL::	.TABLE			; TABLE FOR OBJECT GREAT-HALL
+	.STRL "new great hall"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE FOYER		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE FOYER		; TO ROOM
+	.BYTE FOYER		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	GREAT-HALL-F
+	.PROP 6,P?SYNONYM
+	W?HALL
+	W?DOOR
+	W?ROOM
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?GREAT
+	.BYTE A?NEW
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-GREAT-HALL
+	.PROP 2,P?STATION
+	GREAT-HALL
+	.PROP 8,P?GLOBAL
+	.BYTE GREAT-HALL
+	.BYTE FOYER
+	.BYTE CHAIR
+	.BYTE FIREPLACE
+	.BYTE WINDOW
+	.BYTE TABLE-RANDOM
+	.BYTE STAIRS
+	.BYTE DRAWING-ROOM
+	.PROP 2,P?THINGS
+	PT?308
+	.BYTE	0
+	.ENDT
+
+T?MAID::	.TABLE			; TABLE FOR OBJECT MAID
+	.STRL "upstairs maid"
+	.PROP 4,P?SYNONYM
+	W?GLADYS
+	W?MAID
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?UPSTAIRS
+	.BYTE A?GLADYS
+	.BYTE A?MAID
+	.PROP 2,P?CHARACTER
+	12
+	.BYTE	0
+	.ENDT
+
+T?TAMARA-ROOM::	.TABLE			; TABLE FOR OBJECT TAMARA-ROOM
+	.STRL "Tamara's bedroom"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE TAMARA-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SE		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE TAMARA-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE TAMARA-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?DOWN		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-TAM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE TAMARA-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	TAMARA-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?BEDROOM
+	W?ROOM
+	W?DOOR
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.BYTE A?BED
+	.BYTE A?BEDROOM
+	.BYTE A?SE
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	CORR-2
+	.PROP 8,P?GLOBAL
+	.BYTE TAMARA-ROOM
+	.BYTE SECRET-TAMARA-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?509
+	.BYTE	0
+	.ENDT
+
+T?TOWER::	.TABLE			; TABLE FOR OBJECT TOWER
+	.STRL "tower"
+	.PROP 2,P?ACTION
+	TOWER-F
+	.PROP 6,P?SYNONYM
+	W?TOWER
+	W?TURRET
+	W?KEEP
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?STONE
+	.BYTE A?TOWER
+	.BYTE	0
+	.ENDT
+
+T?YOUR-BATHROOM-DOOR::	.TABLE			; TABLE FOR OBJECT YOUR-BATHROOM-DOOR
+	.STRL "bathroom door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?BATH
+	.BYTE A?BATHROOM
+	.BYTE	0
+	.ENDT
+
+T?JEWEL::	.TABLE			; TABLE FOR OBJECT JEWEL
+	.STRL "tiny red jewel"
+	.PROP 8,P?SYNONYM
+	W?JEWEL
+	W?SPECK
+	W?GEM
+	W?STONE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?TINY
+	.BYTE A?RED
+	.BYTE A?MISSING
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?CLUE-1::	.TABLE			; TABLE FOR OBJECT CLUE-1
+	.STRL "first clue"
+	.PROP 2,P?ACTION
+	CLUE-1-F
+	.PROP 6,P?SYNONYM
+	W?CLUE
+	W?CLUES
+	W?CARD
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?FIRST
+	.BYTE A?1ST
+	.BYTE A?CLUE
+	.BYTE A?PICTURE
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	GENERIC-CLUE-FCN
+	.BYTE	0
+	.ENDT
+
+T?GALLERY::	.TABLE			; TABLE FOR OBJECT GALLERY
+	.STRL "gallery"
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE EAST-HALL		; TO ROOM
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE YOUR-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE VIVIEN-ROOM		; TO ROOM
+	.BYTE VIVIEN-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE WEST-HALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE YOUR-ROOM		; TO ROOM
+	.BYTE YOUR-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 2,P?ACTION
+	GALLERY-F
+	.PROP 4,P?SYNONYM
+	W?GALLERY
+	W?ROOM
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?GALLERY
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?STATION
+	GALLERY
+	.PROP 6,P?GLOBAL
+	.BYTE YOUR-ROOM
+	.BYTE VIVIEN-ROOM
+	.BYTE FIREPLACE
+	.BYTE WINDOW
+	.BYTE PEEPHOLE
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?FOYER::	.TABLE			; TABLE FOR OBJECT FOYER
+	.STRL "foyer"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE FRONT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE DRAWING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.BYTE FOYER		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE DRAWING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE FRONT-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	FOYER-F
+	.PROP 6,P?SYNONYM
+	W?FOYER
+	W?ROOM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?NEW
+	.BYTE A?FOYER
+	.BYTE A?DOUBLE
+	.BYTE A?BRONZE
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	FOYER
+	.PROP 6,P?GLOBAL
+	.BYTE FRONT-DOOR
+	.BYTE FOYER
+	.BYTE CHAIR
+	.BYTE TABLE-RANDOM
+	.BYTE WINDOW
+	.BYTE OIL-PAINTING
+	.BYTE	0
+	.ENDT
+
+T?BED::	.TABLE			; TABLE FOR OBJECT BED
+	.STRL "your bed"
+	.PROP 2,P?ACTION
+	BED-F
+	.PROP 2,P?SYNONYM
+	W?BED
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?MY
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?TABLE-RANDOM::	.TABLE			; TABLE FOR OBJECT TABLE-RANDOM
+	.STRL "table"
+	.PROP 2,P?ACTION
+	RANDOM-PSEUDO
+	.PROP 4,P?SYNONYM
+	W?TABLE
+	W?DESK
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?BILLIARD
+	.BYTE A?CARD
+	.BYTE	0
+	.ENDT
+
+T?KEYHOLE::	.TABLE			; TABLE FOR OBJECT KEYHOLE
+	.STRL "keyhole"
+	.PROP 2,P?ACTION
+	KEYHOLE-F
+	.PROP 4,P?SYNONYM
+	W?KEYHOLE
+	W?HOLE
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE	0
+	.ENDT
+
+T?PAINTING-GALLERY::	.TABLE			; TABLE FOR OBJECT PAINTING-GALLERY
+	.STRL "series of oil paintings"
+	.PROP 2,P?ACTION
+	PICTURE-F
+	.PROP 8,P?SYNONYM
+	W?PORTRAIT
+	W?PICTURE
+	W?PAINTING
+	W?SERIES
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?OIL
+	.BYTE A?ART
+	.BYTE A?DOUBLE
+	.BYTE	0
+	.ENDT
+
+T?OLD-GREAT-HALL::	.TABLE			; TABLE FOR OBJECT OLD-GREAT-HALL
+	.STRL "old great hall"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE OLD-GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NE		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE OLD-GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE JUNCTION		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE JUNCTION		; TO ROOM
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.BYTE OLD-GREAT-HALL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	OLD-GREAT-HALL-F
+	.PROP 6,P?SYNONYM
+	W?HALL
+	W?ROOM
+	W?DOOR
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?GREAT
+	.BYTE A?OLD
+	.BYTE A?TOWER
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-GREAT-HALL
+	.PROP 2,P?STATION
+	OLD-GREAT-HALL
+	.PROP 5,P?GLOBAL
+	.BYTE OLD-GREAT-HALL
+	.BYTE FIREPLACE
+	.BYTE CHAIR
+	.BYTE WINDOW
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?PRIEST-DOOR::	.TABLE			; TABLE FOR OBJECT PRIEST-DOOR
+	.STRL "priest hole"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?HOLE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?PRIEST
+	.BYTE	0
+	.ENDT
+
+T?STAINED-WINDOW::	.TABLE			; TABLE FOR OBJECT STAINED-WINDOW
+	.STRL "stained-glass window"
+	.PROP 2,P?ACTION
+	STAINED-WINDOW-F
+	.PROP 6,P?SYNONYM
+	W?WINDOW
+	W?APPLE
+	W?GLASS
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?STAINED
+	.BYTE A?GLASS
+	.PROP 2,P?TEXT
+	STR?266
+	.PROP 2,P?CAPACITY
+	3
+	.BYTE	0
+	.ENDT
+
+T?DECK::	.TABLE			; TABLE FOR OBJECT DECK
+	.STRL "fighting deck"
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.PROP 2,P?ACTION
+	DECK-F
+	.PROP 4,P?SYNONYM
+	W?DECK
+	W?ROOF
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?THIRD
+	.BYTE A?TOP
+	.BYTE A?STORY
+	.BYTE A?STOREY
+	.BYTE A?FIGHTING
+	.BYTE A?OBSERVE
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	5
+	.PROP 2,P?STATION
+	DECK
+	.PROP 3,P?GLOBAL
+	.BYTE MOON
+	.BYTE OCEAN
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?GALLERY-CORNER::	.TABLE			; TABLE FOR OBJECT GALLERY-CORNER
+	.STRL "dead end"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE MIDPOINT		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE MIDPOINT		; TO ROOM
+	.PROP 2,P?ACTION
+	GALLERY-CORNER-F
+	.PROP 8,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	W?END
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?HIDDEN
+	.BYTE A?DEAD
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	MIDPOINT
+	.PROP 1,P?GLOBAL
+	.BYTE PEEPHOLE
+	.PROP 2,P?CORRIDOR
+	2
+	.BYTE	0
+	.ENDT
+
+T?BOTTLE::	.TABLE			; TABLE FOR OBJECT BOTTLE
+	.STRL "bottle"
+	.PROP 2,P?ACTION
+	BOTTLE-F
+	.PROP 4,P?SYNONYM
+	W?BOTTLE
+	W?WINE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WINE
+	.PROP 2,P?CAPACITY
+	3
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?GENERIC
+	GENERIC-WINE
+	.BYTE	0
+	.ENDT
+
+T?SKULL::	.TABLE			; TABLE FOR OBJECT SKULL
+	.STRL "fossil skull"
+	.PROP 2,P?ACTION
+	SKULL-F
+	.PROP 2,P?SYNONYM
+	W?SKULL
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FOSSIL
+	.PROP 2,P?SIZE
+	9
+	.BYTE	0
+	.ENDT
+
+T?HIM::	.TABLE			; TABLE FOR OBJECT HIM
+	.STRL "him"
+	.PROP 4,P?SYNONYM
+	W?HIM
+	W?SIR
+	.BYTE	0
+	.ENDT
+
+T?SECRET-IRIS-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-IRIS-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?IRIS'S
+	.BYTE A?HER
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?LIBRARY::	.TABLE			; TABLE FOR OBJECT LIBRARY
+	.STRL "library"
+	.PROP 5,P?NE		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-LIB		; TO ROOM
+	.BYTE SECRET-LIBRARY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE LIBRARY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SW		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE LIBRARY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE LIBRARY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-LIB		; TO ROOM
+	.BYTE SECRET-LIBRARY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE LIBRARY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	LIBRARY-F
+	.PROP 4,P?SYNONYM
+	W?LIBRARY
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LIBRARY
+	.BYTE A?NE
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	CORR-2
+	.PROP 4,P?GLOBAL
+	.BYTE LIBRARY
+	.BYTE SECRET-LIBRARY-DOOR
+	.BYTE FIREPLACE
+	.BYTE CHAIR
+	.BYTE	0
+	.ENDT
+
+T?VIVIEN-DIARY::	.TABLE			; TABLE FOR OBJECT VIVIEN-DIARY
+	.STRL "Vivien's diary"
+	.PROP 2,P?ACTION
+	VIVIEN-DIARY-F
+	.PROP 8,P?SYNONYM
+	W?EVIDENCE
+	W?DIARY
+	W?BOOK
+	W?BOOKS
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?CAPACITY
+	4
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?NIGHTSTAND::	.TABLE			; TABLE FOR OBJECT NIGHTSTAND
+	.STRL "night table"
+	.PROP 2,P?ACTION
+	NIGHTSTAND-F
+	.PROP 6,P?SYNONYM
+	W?NIGHTT
+	W?TABLE
+	W?STAND
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?NIGHT
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?VIVIEN-ROOM::	.TABLE			; TABLE FOR OBJECT VIVIEN-ROOM
+	.STRL "Vivien's bedroom"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.BYTE VIVIEN-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE SECRET-VIVIEN-PASSAGE		; TO ROOM
+	.BYTE SECRET-VIVIEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE SECRET-VIVIEN-PASSAGE		; TO ROOM
+	.BYTE SECRET-VIVIEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE GALLERY		; TO ROOM
+	.BYTE VIVIEN-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	VIVIEN-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?ROOM
+	W?BEDROOM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.BYTE A?BED
+	.BYTE A?ROOM
+	.BYTE A?BEDROOM
+	.BYTE A?WEST
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	GALLERY
+	.PROP 8,P?GLOBAL
+	.BYTE VIVIEN-ROOM
+	.BYTE SECRET-VIVIEN-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?1008
+	.BYTE	0
+	.ENDT
+
+T?HYDE-ROOM::	.TABLE			; TABLE FOR OBJECT HYDE-ROOM
+	.STRL "Hyde's bedroom"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE HYDE-CLOSET		; TO ROOM
+	.BYTE SECRET-HYDE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE WEST-HALL		; TO ROOM
+	.BYTE HYDE-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE HYDE-CLOSET		; TO ROOM
+	.BYTE SECRET-HYDE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE WEST-HALL		; TO ROOM
+	.BYTE HYDE-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	HYDE-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?ROOM
+	W?BEDROOM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?HYDE'S
+	.BYTE A?HIS
+	.BYTE A?BED
+	.BYTE A?ROOM
+	.BYTE A?BEDROOM
+	.BYTE A?EAST
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	WEST-HALL
+	.PROP 8,P?GLOBAL
+	.BYTE HYDE-ROOM
+	.BYTE SECRET-HYDE-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?1208
+	.BYTE	0
+	.ENDT
+
+T?JACK-ROOM::	.TABLE			; TABLE FOR OBJECT JACK-ROOM
+	.STRL "master bedroom"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE JACK-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SW		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-JACK		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?DOWN		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-JACK		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE SECRET-LANDING-JACK		; TO ROOM
+	.BYTE SECRET-JACK-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE JACK-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	JACK-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?BEDROOM
+	W?ROOM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.BYTE A?BED
+	.BYTE A?BEDROOM
+	.BYTE A?MASTER
+	.BYTE A?WEST
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	CORR-2
+	.PROP 8,P?GLOBAL
+	.BYTE JACK-ROOM
+	.BYTE SECRET-JACK-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?209
+	.BYTE	0
+	.ENDT
+
+T?SECRET-TAMARA-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-TAMARA-DOOR
+	.STRL "sliding panel"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?PANEL
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.BYTE A?SLIDING
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?LAMP::	.TABLE			; TABLE FOR OBJECT LAMP
+	.STRL "brass lantern"
+	.PROP 2,P?ACTION
+	LANTERN
+	.PROP 4,P?SYNONYM
+	W?LAMP
+	W?LANTERN
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?BRASS
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?DRAWING-CLOSET::	.TABLE			; TABLE FOR OBJECT DRAWING-CLOSET
+	.STRL "drawing-room entrance"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE SECRET-DRAWING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE YOUR-CLOSET		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE SECRET-DRAWING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE DRAWING-ROOM		; TO ROOM
+	.BYTE SECRET-DRAWING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	DRAWING-CLOSET-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DRAWING
+	.BYTE A?SECRET
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	DRAWING-CLOSET
+	.PROP 5,P?GLOBAL
+	.BYTE SECRET-DRAWING-DOOR
+	.BYTE DRAWING-ROOM
+	.BYTE LEVER
+	.BYTE LADDER
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?DINING-PASSAGE::	.TABLE			; TABLE FOR OBJECT DINING-PASSAGE
+	.STRL "dining passage"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.BYTE SECRET-DINING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-LIB		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.BYTE SECRET-DINING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE BACKSTAIRS		; TO ROOM
+	.BYTE SECRET-DINING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	DINING-PASSAGE-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?DINING
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	SECRET-LANDING-LIB
+	.PROP 5,P?GLOBAL
+	.BYTE SECRET-DINING-DOOR
+	.BYTE BACKSTAIRS
+	.BYTE LADDER
+	.BYTE STAIRS
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?BUFFALO-HEAD::	.TABLE			; TABLE FOR OBJECT BUFFALO-HEAD
+	.STRL "stuffed buffalo head"
+	.PROP 2,P?ACTION
+	BUFFALO-HEAD-F
+	.PROP 6,P?SYNONYM
+	W?BUFFALO
+	W?HEAD
+	W?EYE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?STUFFED
+	.BYTE A?BUFFALO
+	.BYTE A?BUF'S
+	.PROP 2,P?GENERIC
+	GENERIC-EYE
+	.BYTE	0
+	.ENDT
+
+T?TELESCOPE::	.TABLE			; TABLE FOR OBJECT TELESCOPE
+	.STRL "telescope"
+	.PROP 2,P?ACTION
+	TELESCOPE-F
+	.PROP 4,P?SYNONYM
+	W?TELESCOPE
+	W?SCOPE
+	.PROP 2,P?LDESC
+	STR?258
+	.BYTE	0
+	.ENDT
+
+T?CLUE-2::	.TABLE			; TABLE FOR OBJECT CLUE-2
+	.STRL "second clue"
+	.PROP 2,P?ACTION
+	CLUE-2-F
+	.PROP 8,P?SYNONYM
+	W?CLUE
+	W?CLUES
+	W?CARD
+	W?POEM
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?SECOND
+	.BYTE A?2ND
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	GENERIC-CLUE-FCN
+	.BYTE	0
+	.ENDT
+
+T?IRIS-ROOM::	.TABLE			; TABLE FOR OBJECT IRIS-ROOM
+	.STRL "Iris's bedroom"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE IRIS-CLOSET		; TO ROOM
+	.BYTE SECRET-IRIS-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE EAST-HALL		; TO ROOM
+	.BYTE IRIS-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE IRIS-CLOSET		; TO ROOM
+	.BYTE SECRET-IRIS-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE EAST-HALL		; TO ROOM
+	.BYTE IRIS-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	IRIS-ROOM-F
+	.PROP 6,P?SYNONYM
+	W?ROOM
+	W?BEDROOM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?IRIS'S
+	.BYTE A?HER
+	.BYTE A?BED
+	.BYTE A?ROOM
+	.BYTE A?BEDROOM
+	.BYTE A?EAST
+	.PROP 2,P?LINE
+	2
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	EAST-HALL
+	.PROP 8,P?GLOBAL
+	.BYTE IRIS-ROOM
+	.BYTE SECRET-IRIS-DOOR
+	.BYTE BATHROOM
+	.BYTE FIREPLACE
+	.BYTE NIGHTSTAND-LG
+	.BYTE DRESSING-TABLE-LG
+	.BYTE WARDROBE-LG
+	.BYTE WINDOW
+	.PROP 2,P?THINGS
+	PT?808
+	.BYTE	0
+	.ENDT
+
+T?CHEST-OF-DRAWERS::	.TABLE			; TABLE FOR OBJECT CHEST-OF-DRAWERS
+	.STRL "chest of drawers"
+	.PROP 6,P?SYNONYM
+	W?CHEST
+	W?DRAWER
+	W?DRESSE
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?PASSAGE::	.TABLE			; TABLE FOR OBJECT PASSAGE
+	.STRL "secret passage"
+	.PROP 2,P?ACTION
+	PASSAGE-F
+	.PROP 8,P?SYNONYM
+	W?PASSAGE
+	W?ROOM
+	W?PLACE
+	W?PLACES
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?HIDING
+	.BYTE A?HIDDEN
+	.PROP 2,P?GENERIC
+	GENERIC-ROOM
+	.BYTE	0
+	.ENDT
+
+T?LOVER::	.TABLE			; TABLE FOR OBJECT LOVER
+	.STRL "Deirdre"
+	.PROP 2,P?ACTION
+	LOVER-F
+	.PROP 8,P?SYNONYM
+	W?DEIRDRE
+	W?DEE
+	W?HALLAM
+	W?WOMAN
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?BLOND
+	.BYTE A?BLONDE
+	.BYTE A?MS
+	.BYTE A?MISS
+	.BYTE A?DEIRDRE
+	.BYTE A?DEE
+	.BYTE A?HALLAM
+	.BYTE A?WOMAN
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	9
+	.PROP 2,P?DESCFCN
+	LOVER-D
+	.PROP 2,P?STATION
+	A?DEE'S
+	.BYTE	0
+	.ENDT
+
+T?PAINT::	.TABLE			; TABLE FOR OBJECT PAINT
+	.STRL "coat of paint"
+	.PROP 2,P?ACTION
+	PAINT-F
+	.PROP 4,P?SYNONYM
+	W?PAINT
+	W?COAT
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?NEW
+	.BYTE	0
+	.ENDT
+
+T?NIGHTLAMP::	.TABLE			; TABLE FOR OBJECT NIGHTLAMP
+	.STRL "your lamp"
+	.PROP 2,P?SYNONYM
+	W?LAMP
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE	0
+	.ENDT
+
+T?SIDEBOARD::	.TABLE			; TABLE FOR OBJECT SIDEBOARD
+	.STRL "sideboard"
+	.PROP 4,P?SYNONYM
+	W?SIDEBOARD
+	W?BOARD
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DINING
+	.BYTE A?SIDE
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?RHINO-HEAD::	.TABLE			; TABLE FOR OBJECT RHINO-HEAD
+	.STRL "stuffed rhino head"
+	.PROP 2,P?ACTION
+	RHINO-HEAD-F
+	.PROP 4,P?SYNONYM
+	W?RHINO
+	W?HEAD
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?STUFFED
+	.BYTE A?RHINO
+	.BYTE A?RH'S
+	.PROP 2,P?CAPACITY
+	3
+	.BYTE	0
+	.ENDT
+
+T?GHOST-OLD::	.TABLE			; TABLE FOR OBJECT GHOST-OLD
+	.STRL "White Lady"
+	.PROP 8,P?SYNONYM
+	W?SPIRIT
+	W?PHANTOM
+	W?LADY
+	W?LEGEND
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?WHITE
+	.PROP 2,P?CHARACTER
+	16
+	.BYTE	0
+	.ENDT
+
+T?UNDRESSED::	.TABLE			; TABLE FOR OBJECT UNDRESSED
+	.STRL "undressed"
+	.PROP 2,P?ACTION
+	UNDRESSED-F
+	.PROP 4,P?SYNONYM
+	W?DRESSE
+	W?UNDRESS
+	.BYTE	0
+	.ENDT
+
+T?WINE-RACK::	.TABLE			; TABLE FOR OBJECT WINE-RACK
+	.STRL "wine rack"
+	.PROP 2,P?ACTION
+	WINE-RACK-F
+	.PROP 6,P?SYNONYM
+	W?RACK
+	W?CELLAR
+	W?WINE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WINE
+	.PROP 2,P?CAPACITY
+	99
+	.PROP 2,P?GENERIC
+	GENERIC-WINE
+	.BYTE	0
+	.ENDT
+
+T?SITTING-PASSAGE::	.TABLE			; TABLE FOR OBJECT SITTING-PASSAGE
+	.STRL "sitting passage"
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 3,P?UP		; CONDITIONAL EXIT
+	SITTING-PASSAGE-LOSE		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 2,P?ACTION
+	SITTING-PASSAGE-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?SITTING
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	PASSAGE-1
+	.PROP 1,P?GLOBAL
+	.BYTE SECRET-SITTING-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CAR::	.TABLE			; TABLE FOR OBJECT CAR
+	.STRL "sports car"
+	.PROP 2,P?ACTION
+	CAR-F
+	.PROP 2,P?SYNONYM
+	W?CAR
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?NEW
+	.BYTE A?SPORTS
+	.BYTE A?LITTLE
+	.BYTE A?F.C
+	.BYTE A?F.C
+	.PROP 2,P?DESCFCN
+	TELL-ABOUT-CAR
+	.PROP 2,P?CAPACITY
+	9999
+	.BYTE	0
+	.ENDT
+
+T?NECKLACE-OF-D::	.TABLE			; TABLE FOR OBJECT NECKLACE-OF-D
+	.STRL "Deirdre's necklace"
+	.PROP 2,P?ACTION
+	NECKLACE-OF-D-F
+	.PROP 8,P?SYNONYM
+	W?NECKLACE
+	W?STRING
+	W?SETTING
+	W?SOCKET
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.BYTE A?RED
+	.PROP 2,P?CAPACITY
+	1
+	.PROP 2,P?SIZE
+	5
+	.BYTE	0
+	.ENDT
+
+T?YOU::	.TABLE			; TABLE FOR OBJECT YOU
+	.STRL "self"
+	.PROP 2,P?ACTION
+	YOU-F
+	.PROP 8,P?SYNONYM
+	W?YOU
+	W?YOURSELF
+	W?HIMSELF
+	W?HERSELF
+	.BYTE	0
+	.ENDT
+
+T?STAIRS::	.TABLE			; TABLE FOR OBJECT STAIRS
+	.STRL "stairs"
+	.PROP 2,P?ACTION
+	UPSTAIRS-DOWNSTAIRS
+	.PROP 6,P?SYNONYM
+	W?STAIRS
+	W?STAIRW
+	W?STAIR
+	.PROP 2,P?GENERIC
+	GENERIC-STAIRS
+	.BYTE	0
+	.ENDT
+
+T?LETTER-DEE::	.TABLE			; TABLE FOR OBJECT LETTER-DEE
+	.STRL "Deirdre's note"
+	.PROP 2,P?ACTION
+	LETTER-DEE-F
+	.PROP 4,P?SYNONYM
+	W?NOTE
+	W?NOTES
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?COFFIN::	.TABLE			; TABLE FOR OBJECT COFFIN
+	.STRL "stone coffin"
+	.PROP 2,P?ACTION
+	COFFIN-F
+	.PROP 2,P?SYNONYM
+	W?COFFIN
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?STONE
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?SECRET-LANDING-TAM::	.TABLE			; TABLE FOR OBJECT SECRET-LANDING-TAM
+	.STRL "Tamara's landing"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-LIB		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE SECRET-LANDING-LIB		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE SECRET-VIVIEN-PASSAGE		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE TAMARA-ROOM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	.BYTE TAMARA-ROOM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE PASSAGE-1		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE TAMARA-ROOM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE TAMARA-ROOM		; TO ROOM
+	.BYTE SECRET-TAMARA-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	SECRET-LANDING-TAM-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	SECRET-LANDING-TAM
+	.PROP 5,P?GLOBAL
+	.BYTE SECRET-TAMARA-DOOR
+	.BYTE TAMARA-ROOM
+	.BYTE LEVER
+	.BYTE LADDER
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?FRIEND::	.TABLE			; TABLE FOR OBJECT FRIEND
+	.STRL "Tamara"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?164		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	FRIEND-F
+	.PROP 8,P?SYNONYM
+	W?TAMARA
+	W?TAMMY
+	W?LYND
+	W?WOMAN
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?MS
+	.BYTE A?MISS
+	.BYTE A?TAMARA
+	.BYTE A?TAMMY
+	.BYTE A?LYND
+	.BYTE A?WOMAN
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?DESCFCN
+	FRIEND-D
+	.PROP 2,P?TEXT
+	STR?165
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?IRIS-CLOSET::	.TABLE			; TABLE FOR OBJECT IRIS-CLOSET
+	.STRL "Iris's entrance"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE WENDISH-CORNER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE YOUR-CLOSET		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE IRIS-ROOM		; TO ROOM
+	.BYTE SECRET-IRIS-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE IRIS-ROOM		; TO ROOM
+	.BYTE SECRET-IRIS-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE IRIS-ROOM		; TO ROOM
+	.BYTE SECRET-IRIS-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	IRIS-CLOSET-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?IRIS'S
+	.BYTE A?HER
+	.BYTE A?SECRET
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	IRIS-CLOSET
+	.PROP 3,P?GLOBAL
+	.BYTE SECRET-IRIS-DOOR
+	.BYTE IRIS-ROOM
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?BOOKS-GLOBAL::	.TABLE			; TABLE FOR OBJECT BOOKS-GLOBAL
+	.STRL "bunch of books"
+	.PROP 2,P?ACTION
+	BOOKS-GLOBAL-F
+	.PROP 6,P?SYNONYM
+	W?BUNCH
+	W?BOOK
+	W?BOOKS
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?CLUE-3::	.TABLE			; TABLE FOR OBJECT CLUE-3
+	.STRL "third clue"
+	.PROP 2,P?ACTION
+	CLUE-3-F
+	.PROP 8,P?SYNONYM
+	W?CLUE
+	W?CLUES
+	W?CARD
+	W?POEM
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?THIRD
+	.BYTE A?3RD
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	GENERIC-CLUE-FCN
+	.BYTE	0
+	.ENDT
+
+T?CASTLE::	.TABLE			; TABLE FOR OBJECT CASTLE
+	.STRL "Tresyllian Castle"
+	.PROP 2,P?ACTION
+	CASTLE-F
+	.PROP 6,P?SYNONYM
+	W?CASTLE
+	W?WING
+	W?HOUSE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?TRESYLLIAN
+	.BYTE	0
+	.ENDT
+
+T?STUDY::	.TABLE			; TABLE FOR OBJECT STUDY
+	.STRL "study"
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE STUDY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SE		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE STUDY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE STUDY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.BYTE STUDY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 4,P?SYNONYM
+	W?STUDY
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.BYTE A?STUDY
+	.BYTE A?NW
+	.PROP 2,P?LDESC
+	STR?260
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.PROP 2,P?STATION
+	CORR-2
+	.PROP 4,P?GLOBAL
+	.BYTE STUDY
+	.BYTE FIREPLACE
+	.BYTE CHAIR
+	.BYTE TABLE-RANDOM
+	.PROP 2,P?THINGS
+	PT?309
+	.BYTE	0
+	.ENDT
+
+T?COUSIN::	.TABLE			; TABLE FOR OBJECT COUSIN
+	.STRL "Lionel Tresyllian"
+	.PROP 2,P?ACTION
+	COUSIN-F
+	.PROP 4,P?SYNONYM
+	W?LIONEL
+	W?UNCLE
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?JACK'S
+	.BYTE A?HIS
+	.BYTE A?LIONEL
+	.BYTE A?UNCLE
+	.PROP 2,P?CHARACTER
+	11
+	.BYTE	0
+	.ENDT
+
+T?SKELETON::	.TABLE			; TABLE FOR OBJECT SKELETON
+	.STRL "skeleton"
+	.PROP 2,P?ACTION
+	SKELETON-F
+	.PROP 4,P?SYNONYM
+	W?BONES
+	W?SKELETON
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?OLD
+	.PROP 2,P?SIZE
+	90
+	.PROP 2,P?GENERIC
+	GENERIC-SKELETON
+	.BYTE	0
+	.ENDT
+
+T?LOVER-PATH::	.TABLE			; TABLE FOR OBJECT LOVER-PATH
+	.STRL "path"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	LOVER-PATH-LOSE-N		; PER FUNCTION
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SE		; CONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.BYTE PRIEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	LOVER-PATH-F
+	.PROP 2,P?SYNONYM
+	W?PATH
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?STATION
+	LOVER-PATH
+	.PROP 5,P?GLOBAL
+	.BYTE PRIEST-DOOR
+	.BYTE LEVER
+	.BYTE MOON
+	.BYTE OCEAN
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?DRAGON-EYE::	.TABLE			; TABLE FOR OBJECT DRAGON-EYE
+	.STRL "dragon's eye"
+	.PROP 2,P?ACTION
+	DRAGON-EYE-F
+	.PROP 8,P?SYNONYM
+	W?EYE
+	W?DOORBELL
+	W?LIGHT
+	W?BELL
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?DRAGON
+	.BYTE A?WYVERN
+	.BYTE A?WORM'S
+	.BYTE A?RED
+	.BYTE A?GREEN
+	.BYTE A?DOOR
+	.PROP 2,P?GENERIC
+	GENERIC-BELL
+	.BYTE	0
+	.ENDT
+
+T?WRITING-DESK::	.TABLE			; TABLE FOR OBJECT WRITING-DESK
+	.STRL "writing desk"
+	.PROP 2,P?ACTION
+	WRITING-DESK-F
+	.PROP 2,P?SYNONYM
+	W?DESK
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WRITING
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT NOT-HERE-OBJECT
+	.STRL "that thing"
+	.PROP 2,P?ACTION
+	NOT-HERE-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?DRAGON::	.TABLE			; TABLE FOR OBJECT DRAGON
+	.STRL "dragon"
+	.PROP 2,P?ACTION
+	DRAGON-F
+	.PROP 6,P?SYNONYM
+	W?DRAGON
+	W?WYVERN
+	W?ORNAMENT
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?DRAGON
+	.BYTE A?WYVERN
+	.BYTE A?ORNAMENT
+	.BYTE	0
+	.ENDT
+
+T?WARDROBE::	.TABLE			; TABLE FOR OBJECT WARDROBE
+	.STRL "wardrobe"
+	.PROP 2,P?SYNONYM
+	W?WARDROBE
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?LUMBER-CHEST::	.TABLE			; TABLE FOR OBJECT LUMBER-CHEST
+	.STRL "ancient chest"
+	.PROP 2,P?ACTION
+	LUMBER-CHEST-F
+	.PROP 2,P?SYNONYM
+	W?CHEST
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ANCIENT
+	.BYTE	0
+	.ENDT
+
+T?INTNUM::	.TABLE			; TABLE FOR OBJECT INTNUM
+	.STRL "number"
+	.PROP 2,P?SYNONYM
+	W?INT.NUM
+	.BYTE	0
+	.ENDT
+
+T?YOUR-MIRROR::	.TABLE			; TABLE FOR OBJECT YOUR-MIRROR
+	.STRL "wall mirror"
+	.PROP 2,P?ACTION
+	YOUR-MIRROR-F
+	.PROP 2,P?SYNONYM
+	W?MIRROR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?WALL
+	.BYTE A?FULL-LENGTH
+	.BYTE A?FULL
+	.BYTE	0
+	.ENDT
+
+T?FLOOR::	.TABLE			; TABLE FOR OBJECT FLOOR
+	.STRL "floor"
+	.PROP 2,P?ACTION
+	FLOOR-F
+	.PROP 8,P?SYNONYM
+	W?FLOOR
+	W?GROUND
+	W?CARPET
+	W?RUG
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DRAWING
+	.BYTE A?GREAT
+	.BYTE	0
+	.ENDT
+
+T?CORR-1::	.TABLE			; TABLE FOR OBJECT CORR-1
+	.STRL "ground-floor corridor"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE DINING-ROOM		; TO ROOM
+	.BYTE DINING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE SITTING-ROOM		; TO ROOM
+	.BYTE SITTING-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE JUNCTION		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE GREAT-HALL		; TO ROOM
+	.PROP 2,P?ACTION
+	CORR-1-F
+	.PROP 4,P?SYNONYM
+	W?CORRIDOR
+	W?ROOM
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?GROUND
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	CORR-1
+	.PROP 2,P?GLOBAL
+	.BYTE SITTING-ROOM
+	.BYTE DINING-ROOM
+	.PROP 2,P?CORRIDOR
+	1
+	.BYTE	0
+	.ENDT
+
+T?BATHROOM::	.TABLE			; TABLE FOR OBJECT BATHROOM
+	.STRL "bathroom"
+	.PROP 2,P?ACTION
+	BATHROOM-F
+	.PROP 2,P?SYNONYM
+	W?BATHROOM
+	.PROP 7,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE	0
+	.ENDT
+
+T?EXERCISE-OUTFIT::	.TABLE			; TABLE FOR OBJECT EXERCISE-OUTFIT
+	.STRL "exercise outfit"
+	.PROP 2,P?ACTION
+	CLOTHES-FCN
+	.PROP 8,P?SYNONYM
+	W?CLOTHES
+	W?OUTFIT
+	W?SWEATS
+	W?SUIT
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?EXERCISE
+	.BYTE A?F.C
+	.BYTE A?F.C
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?GENERIC
+	GENERIC-CLOTHES
+	.BYTE	0
+	.ENDT
+
+T?SECRET-YOUR-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-YOUR-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?DINNER-2::	.TABLE			; TABLE FOR OBJECT DINNER-2
+	.STRL "other dinner"
+	.PROP 2,P?SYNONYM
+	W?DINNER
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?OTHER
+	.BYTE A?JACK'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?TAM'S
+	.BYTE A?VIV'S
+	.BYTE A?IRIS'S
+	.PROP 2,P?GENERIC
+	GENERIC-DINNER
+	.BYTE	0
+	.ENDT
+
+T?MAGAZINE::	.TABLE			; TABLE FOR OBJECT MAGAZINE
+	.STRL "magazine"
+	.PROP 2,P?ACTION
+	MAGAZINE-F
+	.PROP 4,P?SYNONYM
+	W?MAGAZINE
+	W?PUNCH
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?PUNCH
+	.PROP 2,P?SIZE
+	4
+	.BYTE	0
+	.ENDT
+
+T?TABLE-DINING::	.TABLE			; TABLE FOR OBJECT TABLE-DINING
+	.STRL "dining table"
+	.PROP 2,P?ACTION
+	TABLE-DINING-F
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DINING
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?NIGHTSTAND-LG::	.TABLE			; TABLE FOR OBJECT NIGHTSTAND-LG
+	.STRL "night table"
+	.PROP 2,P?ACTION
+	NIGHTSTAND-LG-F
+	.PROP 8,P?SYNONYM
+	W?TABLE
+	W?CONSOLE
+	W?TALLBOY
+	W?COMMODE
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?NIGHT
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE	0
+	.ENDT
+
+T?ACCIDENT::	.TABLE			; TABLE FOR OBJECT ACCIDENT
+	.STRL "Deirdre's accident"
+	.PROP 6,P?SYNONYM
+	W?ACCIDENT
+	W?DROWNING
+	W?DEATH
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.BYTE	0
+	.ENDT
+
+T?DEB::	.TABLE			; TABLE FOR OBJECT DEB
+	.STRL "Iris"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?181		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DEB-F
+	.PROP 6,P?SYNONYM
+	W?IRIS
+	W?VANE
+	W?WOMAN
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?MS
+	.BYTE A?MISS
+	.BYTE A?IRIS
+	.BYTE A?VANE
+	.BYTE A?WOMAN
+	.PROP 2,P?LDESC
+	1
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	7
+	.PROP 2,P?DESCFCN
+	DEB-D
+	.PROP 2,P?TEXT
+	STR?182
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?HISTORY-BOOK::	.TABLE			; TABLE FOR OBJECT HISTORY-BOOK
+	.STRL "history book"
+	.PROP 2,P?ACTION
+	HISTORY-BOOK-F
+	.PROP 4,P?SYNONYM
+	W?BOOK
+	W?BOOKS
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?HISTORY
+	.PROP 2,P?CAPACITY
+	4
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?LENS-BOX::	.TABLE			; TABLE FOR OBJECT LENS-BOX
+	.STRL "small plastic box"
+	.PROP 2,P?ACTION
+	LENS-BOX-F
+	.PROP 2,P?SYNONYM
+	W?BOX
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE A?PLASTIC
+	.BYTE A?LENS
+	.PROP 2,P?CAPACITY
+	2
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-BOX
+	.BYTE	0
+	.ENDT
+
+T?SECRET-DRAWING-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-DRAWING-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?OTHER-OUTFIT::	.TABLE			; TABLE FOR OBJECT OTHER-OUTFIT
+	.STRL "clothes"
+	.PROP 2,P?ACTION
+	OTHER-OUTFIT-F
+	.PROP 8,P?SYNONYM
+	W?CLOTHES
+	W?OUTFIT
+	W?DRESS
+	W?GOWN
+	.PROP 8,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?JACK'S
+	.BYTE A?VIV'S
+	.BYTE A?HYDE'S
+	.BYTE A?IAN'S
+	.BYTE A?DOC'S
+	.BYTE A?IRIS'S
+	.BYTE A?B'S
+	.BYTE	0
+	.ENDT
+
+T?GHOST-NEW::	.TABLE			; TABLE FOR OBJECT GHOST-NEW
+	.STRL "ghost"
+	.PROP 2,P?WEST		; IMPOSSIBLE EXIT
+	STR?194		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	GHOST-NEW-F
+	.PROP 2,P?SYNONYM
+	W?GHOST
+	.PROP 7,P?ADJECTIVE
+	.BYTE A?BLOND
+	.BYTE A?BLONDE
+	.BYTE A?NEW
+	.BYTE A?DEE'S
+	.BYTE A?HER
+	.BYTE A?CASTLE
+	.BYTE A?GHOST
+	.PROP 2,P?LDESC
+	0
+	.PROP 2,P?LINE
+	0
+	.PROP 2,P?CHARACTER
+	10
+	.PROP 2,P?DESCFCN
+	GHOST-NEW-D
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?WENDISH-KIT::	.TABLE			; TABLE FOR OBJECT WENDISH-KIT
+	.STRL "medical kit"
+	.PROP 2,P?ACTION
+	WENDISH-KIT-F
+	.PROP 4,P?SYNONYM
+	W?KIT
+	W?BAG
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?DOC'S
+	.BYTE A?HIS
+	.BYTE A?MEDICAL
+	.PROP 2,P?CAPACITY
+	37
+	.PROP 2,P?SIZE
+	38
+	.BYTE	0
+	.ENDT
+
+T?LIGHT-GLOBAL::	.TABLE			; TABLE FOR OBJECT LIGHT-GLOBAL
+	.STRL "light"
+	.PROP 2,P?ACTION
+	LIGHT-GLOBAL-F
+	.PROP 8,P?SYNONYM
+	W?LIGHT
+	W?LIGHTS
+	W?LAMP
+	W?MOONLIGHT
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?FLOOD
+	.BYTE A?MOON
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-HERE::	.TABLE			; TABLE FOR OBJECT GLOBAL-HERE
+	.STRL "here"
+	.PROP 2,P?ACTION
+	GLOBAL-HERE-F
+	.PROP 8,P?SYNONYM
+	W?HERE
+	W?AREA
+	W?ROOM
+	W?PLACE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?THIS
+	.PROP 2,P?GENERIC
+	GENERIC-ROOM
+	.BYTE	0
+	.ENDT
+
+T?DRESSING-BENCH::	.TABLE			; TABLE FOR OBJECT DRESSING-BENCH
+	.STRL "bench"
+	.PROP 2,P?SYNONYM
+	W?BENCH
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?DRESSING
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?TURN::	.TABLE			; TABLE FOR OBJECT TURN
+	.STRL "minute"
+	.PROP 2,P?ACTION
+	TURN-F
+	.PROP 6,P?SYNONYM
+	W?TURN
+	W?TURNS
+	W?MINUTE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?INT.NUM
+	.BYTE A?FULL
+	.BYTE	0
+	.ENDT
+
+T?TAMARA-BED::	.TABLE			; TABLE FOR OBJECT TAMARA-BED
+	.STRL "bed"
+	.PROP 2,P?ACTION
+	TAMARA-BED-F
+	.PROP 8,P?SYNONYM
+	W?BED
+	W?KNOB
+	W?BEDPOST
+	W?POST
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE A?HER
+	.BYTE A?BED
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?SECRET-IAN-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-IAN-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?IAN'S
+	.BYTE A?HIS
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?DINNER-OUTFIT::	.TABLE			; TABLE FOR OBJECT DINNER-OUTFIT
+	.STRL "dinner outfit"
+	.PROP 2,P?ACTION
+	CLOTHES-FCN
+	.PROP 8,P?SYNONYM
+	W?CLOTHES
+	W?OUTFIT
+	W?DRESS
+	W?GOWN
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?DINNER
+	.BYTE A?FORMAL
+	.BYTE A?F.C
+	.BYTE A?F.C
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?GENERIC
+	GENERIC-CLOTHES
+	.BYTE	0
+	.ENDT
+
+T?JOURNAL::	.TABLE			; TABLE FOR OBJECT JOURNAL
+	.STRL "journal"
+	.PROP 2,P?ACTION
+	JOURNAL-F
+	.PROP 8,P?SYNONYM
+	W?JOURNAL
+	W?LOG
+	W?BOOK
+	W?BOOKS
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LI'S
+	.BYTE A?HIS
+	.PROP 2,P?CAPACITY
+	4
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?DRESSING-TABLE::	.TABLE			; TABLE FOR OBJECT DRESSING-TABLE
+	.STRL "dressing table"
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MY
+	.BYTE A?DRESSING
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?BROCHURE::	.TABLE			; TABLE FOR OBJECT BROCHURE
+	.STRL "tourist brochure"
+	.PROP 2,P?ACTION
+	BROCHURE-F
+	.PROP 6,P?SYNONYM
+	W?BROCHURE
+	W?BOOK
+	W?BOOKS
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?TOURIST
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?VIVIEN-BOX::	.TABLE			; TABLE FOR OBJECT VIVIEN-BOX
+	.STRL "wooden box"
+	.PROP 2,P?ACTION
+	VIVIEN-BOX-F
+	.PROP 2,P?SYNONYM
+	W?BOX
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.BYTE A?WOODEN
+	.BYTE A?PAINT
+	.PROP 2,P?CAPACITY
+	37
+	.PROP 2,P?SIZE
+	38
+	.PROP 2,P?GENERIC
+	GENERIC-BOX
+	.BYTE	0
+	.ENDT
+
+T?CORR-2::	.TABLE			; TABLE FOR OBJECT CORR-2
+	.STRL "first-floor corridor"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE OLD-GREAT-HALL		; TO ROOM
+	.PROP 5,P?NE		; CONDITIONAL EXIT
+	.BYTE LIBRARY		; TO ROOM
+	.BYTE LIBRARY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?EAST		; CONDITIONAL EXIT
+	.BYTE OFFICE		; TO ROOM
+	.BYTE OFFICE		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SE		; CONDITIONAL EXIT
+	.BYTE TAMARA-ROOM		; TO ROOM
+	.BYTE TAMARA-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE JACK-ROOM		; TO ROOM
+	.BYTE JACK-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?NW		; CONDITIONAL EXIT
+	.BYTE STUDY		; TO ROOM
+	.BYTE STUDY		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE CORR-3		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE OLD-GREAT-HALL		; TO ROOM
+	.PROP 2,P?IN		; IMPOSSIBLE EXIT
+	STR?257		; FAILURE MESSAGE
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE OLD-GREAT-HALL		; TO ROOM
+	.PROP 2,P?ACTION
+	CORR-2-F
+	.PROP 4,P?SYNONYM
+	W?CORRIDOR
+	W?ROOM
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FIRST
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?STATION
+	CORR-2
+	.PROP 6,P?GLOBAL
+	.BYTE JACK-ROOM
+	.BYTE STUDY
+	.BYTE LIBRARY
+	.BYTE OFFICE
+	.BYTE TAMARA-ROOM
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?BOOKCASE::	.TABLE			; TABLE FOR OBJECT BOOKCASE
+	.STRL "bookcase"
+	.PROP 2,P?ACTION
+	BOOKCASE-F
+	.PROP 8,P?SYNONYM
+	W?BOOKCASE
+	W?CASE
+	W?SHELF
+	W?SHELVES
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?BOOK
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?HYDE-CLOSET::	.TABLE			; TABLE FOR OBJECT HYDE-CLOSET
+	.STRL "Hyde's entrance"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE MIDPOINT		; TO ROOM
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE HYDE-ROOM		; TO ROOM
+	.BYTE SECRET-HYDE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE SECRET-IAN-PASSAGE		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE HYDE-ROOM		; TO ROOM
+	.BYTE SECRET-HYDE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	.BYTE HYDE-ROOM		; TO ROOM
+	.BYTE SECRET-HYDE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	HYDE-CLOSET-F
+	.PROP 6,P?SYNONYM
+	W?ENTRANCE
+	W?LANDING
+	W?PASSAGE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?HYDE'S
+	.BYTE A?HIS
+	.BYTE A?SECRET
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?GENERIC
+	GENERIC-CLOSET
+	.PROP 2,P?STATION
+	HYDE-CLOSET
+	.PROP 3,P?GLOBAL
+	.BYTE SECRET-HYDE-DOOR
+	.BYTE HYDE-ROOM
+	.BYTE LEVER
+	.BYTE	0
+	.ENDT
+
+T?GENERIC-CLUE::	.TABLE			; TABLE FOR OBJECT GENERIC-CLUE
+	.STRL "clue"
+	.BYTE	0
+	.ENDT
+
+T?PIANO::	.TABLE			; TABLE FOR OBJECT PIANO
+	.STRL "piano"
+	.PROP 2,P?ACTION
+	PIANO-F
+	.PROP 2,P?SYNONYM
+	W?PIANO
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?FIREPLACE::	.TABLE			; TABLE FOR OBJECT FIREPLACE
+	.STRL "fireplace"
+	.PROP 2,P?ACTION
+	FIREPLACE-F
+	.PROP 8,P?SYNONYM
+	W?PLACE
+	W?FIREPLACE
+	W?CHIMNEY
+	W?FENDER
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FIRE
+	.BYTE	0
+	.ENDT
+
+T?MIDPOINT::	.TABLE			; TABLE FOR OBJECT MIDPOINT
+	.STRL "midpoint"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE WENDISH-CORNER		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE GALLERY-CORNER		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE HYDE-CLOSET		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE WENDISH-CORNER		; TO ROOM
+	.PROP 2,P?ACTION
+	MIDPOINT-F
+	.PROP 2,P?SYNONYM
+	W?MIDPOINT
+	.PROP 2,P?LINE
+	4
+	.PROP 2,P?CHARACTER
+	3
+	.PROP 2,P?STATION
+	MIDPOINT
+	.BYTE	0
+	.ENDT
+
+T?SECRET-VIVIEN-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-VIVIEN-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?OCEAN::	.TABLE			; TABLE FOR OBJECT OCEAN
+	.STRL "ocean"
+	.PROP 2,P?ACTION
+	OCEAN-F
+	.PROP 6,P?SYNONYM
+	W?SEA
+	W?OCEAN
+	W?BREAKER
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?BLUE
+	.BYTE	0
+	.ENDT
+
+T?DINNER::	.TABLE			; TABLE FOR OBJECT DINNER
+	.STRL "your dinner"
+	.PROP 2,P?ACTION
+	DINNER-F
+	.PROP 8,P?SYNONYM
+	W?DINNER
+	W?FOOD
+	W?DISHES
+	W?PLATE
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?COVERED
+	.BYTE A?MY
+	.PROP 2,P?DESCFCN
+	DINNER-D
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?GENERIC
+	GENERIC-DINNER
+	.BYTE	0
+	.ENDT
+
+T?FIGURINE::	.TABLE			; TABLE FOR OBJECT FIGURINE
+	.STRL "sculpted figurine"
+	.PROP 2,P?ACTION
+	FIGURINE-F
+	.PROP 4,P?SYNONYM
+	W?FIGURINE
+	W?FIGURE
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SCULPT
+	.BYTE A?VIV'S
+	.BYTE A?HER
+	.BYTE	0
+	.ENDT
+
+T?ARMOR::	.TABLE			; TABLE FOR OBJECT ARMOR
+	.STRL "suit of armour"
+	.PROP 2,P?ACTION
+	ARMOR-F
+	.PROP 8,P?SYNONYM
+	W?SUIT
+	W?ARMOR
+	W?ARMOUR
+	W?HELMET
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?LETTER::	.TABLE			; TABLE FOR OBJECT LETTER
+	.STRL "butler's note"
+	.PROP 2,P?ACTION
+	LETTER-F
+	.PROP 4,P?SYNONYM
+	W?NOTE
+	W?NOTES
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?B'S
+	.BYTE A?HIS
+	.BYTE A?JACK'S
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?BASEMENT::	.TABLE			; TABLE FOR OBJECT BASEMENT
+	.STRL "basement"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE JUNCTION		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE KITCHEN		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE DUNGEON		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE JUNCTION		; TO ROOM
+	.PROP 3,P?IN		; CONDITIONAL EXIT
+	BASEMENT-ENTER		; PER FUNCTION
+	.BYTE 0
+	.PROP 2,P?ACTION
+	BASEMENT-F
+	.PROP 2,P?SYNONYM
+	W?BASEMENT
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?TOWER
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	1
+	.PROP 2,P?STATION
+	BASEMENT
+	.PROP 2,P?GLOBAL
+	.BYTE HOLE-IN-WALL
+	.BYTE STAIRS
+	.PROP 2,P?THINGS
+	PT?109
+	.BYTE	0
+	.ENDT
+
+T?HAUNTING::	.TABLE			; TABLE FOR OBJECT HAUNTING
+	.STRL "haunting"
+	.PROP 2,P?ACTION
+	HAUNTING-F
+	.PROP 8,P?SYNONYM
+	W?MYSTERY
+	W?HAUNTING
+	W?ATTEMPTS
+	W?CASE
+	.BYTE	0
+	.ENDT
+
+T?CLUE-4::	.TABLE			; TABLE FOR OBJECT CLUE-4
+	.STRL "fourth clue"
+	.PROP 2,P?ACTION
+	CLUE-4-F
+	.PROP 8,P?SYNONYM
+	W?CLUE
+	W?CLUES
+	W?CARD
+	W?POEM
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?FOURTH
+	.BYTE A?4TH
+	.BYTE A?LAST
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	GENERIC-CLUE-FCN
+	.BYTE	0
+	.ENDT
+
+T?OBJECT-PAIR::	.TABLE			; TABLE FOR OBJECT OBJECT-PAIR
+	.STRL "such things"
+	.PROP 2,P?ACTION
+	OBJECT-PAIR-F
+	.BYTE	0
+	.ENDT
+
+T?LUMBER-RING::	.TABLE			; TABLE FOR OBJECT LUMBER-RING
+	.STRL "sunken handle"
+	.PROP 2,P?ACTION
+	LUMBER-RING-F
+	.PROP 2,P?SYNONYM
+	W?HANDLE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SUNKEN
+	.BYTE	0
+	.ENDT
+
+T?COAT-RACK::	.TABLE			; TABLE FOR OBJECT COAT-RACK
+	.STRL "coat rack"
+	.PROP 2,P?SYNONYM
+	W?RACK
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?COAT
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?MAZE::	.TABLE			; TABLE FOR OBJECT MAZE
+	.STRL "hedge maze"
+	.PROP 3,P?NORTH		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?NE		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?EAST		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SE		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SOUTH		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?SW		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?WEST		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 3,P?NW		; CONDITIONAL EXIT
+	MAZE-EXIT		; PER FUNCTION
+	.BYTE 0
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE GARDEN		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE COURTYARD		; TO ROOM
+	.PROP 2,P?ACTION
+	MAZE-F
+	.PROP 2,P?SYNONYM
+	W?MAZE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?HEDGE
+	.PROP 2,P?LDESC
+	STR?227
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	MAZE
+	.PROP 2,P?GLOBAL
+	.BYTE MOON
+	.BYTE OCEAN
+	.BYTE	0
+	.ENDT
+
+T?WALL::	.TABLE			; TABLE FOR OBJECT WALL
+	.STRL "wall"
+	.PROP 2,P?ACTION
+	WALL-F
+	.PROP 8,P?SYNONYM
+	W?WALL
+	W?WALLS
+	W?BRICK
+	W?BRICKS
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?CASTLE
+	.BYTE A?TOWER
+	.BYTE A?BRICK
+	.BYTE	0
+	.ENDT
+
+T?BACKSTAIRS::	.TABLE			; TABLE FOR OBJECT BACKSTAIRS
+	.STRL "backstairs"
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE DINING-ROOM		; TO ROOM
+	.PROP 5,P?WEST		; CONDITIONAL EXIT
+	.BYTE DINING-PASSAGE		; TO ROOM
+	.BYTE SECRET-DINING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE KITCHEN		; TO ROOM
+	.PROP 5,P?IN		; CONDITIONAL EXIT
+	.BYTE DINING-PASSAGE		; TO ROOM
+	.BYTE SECRET-DINING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE DINING-ROOM		; TO ROOM
+	.PROP 2,P?ACTION
+	BACKSTAIRS-F
+	.PROP 2,P?SYNONYM
+	W?BACKST
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	BACKSTAIRS
+	.PROP 2,P?GLOBAL
+	.BYTE SECRET-DINING-DOOR
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?VICTORIA-CHAIR::	.TABLE			; TABLE FOR OBJECT VICTORIA-CHAIR
+	.STRL "armchair"
+	.PROP 8,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	W?ARMCHAIR
+	W?CUSHION
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?ARM
+	.BYTE A?SATIN
+	.PROP 2,P?CAPACITY
+	99
+	.BYTE	0
+	.ENDT
+
+T?WENDISH-STUFF::	.TABLE			; TABLE FOR OBJECT WENDISH-STUFF
+	.STRL "medical text"
+	.PROP 2,P?ACTION
+	WENDISH-STUFF-F
+	.PROP 8,P?SYNONYM
+	W?TEXT
+	W?TEXTS
+	W?BOOK
+	W?BOOKS
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?MEDICAL
+	.PROP 2,P?DESCFCN
+	WENDISH-STUFF-D
+	.PROP 2,P?CAPACITY
+	4
+	.PROP 2,P?GENERIC
+	GENERIC-BOOK
+	.BYTE	0
+	.ENDT
+
+T?JUNCTION::	.TABLE			; TABLE FOR OBJECT JUNCTION
+	.STRL "junction"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE OLD-GREAT-HALL		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE BASEMENT		; TO ROOM
+	.PROP 1,P?IN		; UNCONDITIONAL EXIT
+	.BYTE CORR-1		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE OLD-GREAT-HALL		; TO ROOM
+	.PROP 2,P?ACTION
+	JUNCTION-F
+	.PROP 2,P?SYNONYM
+	W?JUNCTION
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	JUNCTION
+	.PROP 1,P?GLOBAL
+	.BYTE STAIRS
+	.PROP 2,P?CORRIDOR
+	1
+	.BYTE	0
+	.ENDT
+
+T?MACE::	.TABLE			; TABLE FOR OBJECT MACE
+	.STRL "aerosol device"
+	.PROP 2,P?ACTION
+	MACE-F
+	.PROP 8,P?SYNONYM
+	W?DEVICE
+	W?SPRAY
+	W?BUTTON
+	W?WEAPON
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?AEROSOL
+	.BYTE A?DOG
+	.PROP 2,P?TEXT
+	STR?275
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?WAR-CLUB::	.TABLE			; TABLE FOR OBJECT WAR-CLUB
+	.STRL "war club"
+	.PROP 2,P?ACTION
+	WAR-CLUB-F
+	.PROP 8,P?SYNONYM
+	W?CLUB
+	W?HANDLE
+	W?CANE
+	W?SCEPTRE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WAR
+	.BYTE	0
+	.ENDT
+
+T?GARDEN::	.TABLE			; TABLE FOR OBJECT GARDEN
+	.STRL "garden"
+	.PROP 1,P?NORTH		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?NE		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?SE		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?SOUTH		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?SW		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?NW		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE MAZE		; TO ROOM
+	.PROP 2,P?ACTION
+	GARDEN-F
+	.PROP 4,P?SYNONYM
+	W?GARDEN
+	W?BOWER
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?CASTLE
+	.PROP 2,P?LINE
+	1
+	.PROP 2,P?CHARACTER
+	2
+	.PROP 2,P?STATION
+	GARDEN
+	.PROP 2,P?GLOBAL
+	.BYTE MOON
+	.BYTE OCEAN
+	.BYTE	0
+	.ENDT
+
+T?SECRET-HYDE-DOOR::	.TABLE			; TABLE FOR OBJECT SECRET-HYDE-DOOR
+	.STRL "secret door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE A?HYDE'S
+	.BYTE A?HIS
+	.BYTE A?PASSAGE
+	.PROP 2,P?GENERIC
+	GENERIC-BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?TABLE-LIBRARY::	.TABLE			; TABLE FOR OBJECT TABLE-LIBRARY
+	.STRL "table"
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?LIBRARY
+	.PROP 2,P?CAPACITY
+	999
+	.BYTE	0
+	.ENDT
+
+T?CORR-3::	.TABLE			; TABLE FOR OBJECT CORR-3
+	.STRL "second-floor corridor"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	.BYTE GAME-ROOM		; TO ROOM
+	.BYTE GAME-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?EAST		; UNCONDITIONAL EXIT
+	.BYTE DECK		; TO ROOM
+	.PROP 5,P?SE		; CONDITIONAL EXIT
+	.BYTE LUMBER-ROOM		; TO ROOM
+	.BYTE LUMBER-ROOM		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	.BYTE CHAPEL		; TO ROOM
+	.BYTE CHAPEL		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 1,P?WEST		; UNCONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.PROP 1,P?UP		; UNCONDITIONAL EXIT
+	.BYTE DECK		; TO ROOM
+	.PROP 1,P?DOWN		; UNCONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.PROP 2,P?IN		; IMPOSSIBLE EXIT
+	STR?257		; FAILURE MESSAGE
+	.PROP 1,P?OUT		; UNCONDITIONAL EXIT
+	.BYTE CORR-2		; TO ROOM
+	.PROP 2,P?ACTION
+	CORR-3-F
+	.PROP 4,P?SYNONYM
+	W?CORRIDOR
+	W?ROOM
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SECOND
+	.PROP 2,P?LINE
+	3
+	.PROP 2,P?CHARACTER
+	4
+	.PROP 2,P?STATION
+	CORR-3
+	.PROP 4,P?GLOBAL
+	.BYTE LUMBER-ROOM
+	.BYTE CHAPEL
+	.BYTE GAME-ROOM
+	.BYTE STAIRS
+	.BYTE	0
+	.ENDT
+
+T?PSEUDO-OBJECT::	.TABLE			; TABLE FOR OBJECT PSEUDO-OBJECT
+	.STRL "pseudo"
+	.PROP 2,P?ACTION
+	NULL-F
+	.BYTE	0
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+IMPTBL::
+
+T?102::
+T?P-IT-WORDS::	.TABLE
+	0
+	0
+	.ENDT
+
+T?202::
+T?C-TABLE::	.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
+	I-SHOT
+	0
+	0
+	I-COME-TO
+	0
+	0
+	I-REPLY
+	0
+	0
+	I-TOUR
+	0
+	0
+	I-BUTLER-COOKS
+	0
+	0
+	I-BUTLER-HINTS
+	1
+	50
+	I-DINNER
+	0
+	0
+	I-DINNER-SIT
+	1
+	10
+	I-DRAGON-EYE
+	1
+	-1
+	I-ATTENTION
+	1
+	-1
+	I-FOLLOW
+	1
+	1
+	I-PROMPT
+	.ENDT
+
+T?104::
+T?P-LEXV::	.TABLE
+	.BYTE 79
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?204::
+T?AGAIN-LEXV::	.TABLE
+	.BYTE 79
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?304::
+T?RESERVE-LEXV::	.TABLE
+	.BYTE 79
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?404::
+T?P-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?504::
+T?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?604::
+T?RESERVE-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?704::
+T?OOPS-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?804::
+T?P-ITBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?904::
+T?P-OTBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1004::
+T?P-VTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1104::
+T?P-OVTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1204::
+T?OFFENDED::	.TABLE
+	7
+	0
+	STR?21
+	STR?22
+	STR?23
+	STR?24
+	STR?25
+	STR?26
+	.ENDT
+
+T?1304::
+T?P-CCTBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1404::
+T?P-NAMW::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1504::
+T?P-ADJW::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1604::
+T?P-OFW::	.TABLE
+	0
+	0
+	.ENDT
+
+T?1704::
+T?P-MERGE::	.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
+	.ENDT
+
+T?1804::
+T?P-PRSO::	.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
+	.ENDT
+
+T?1904::
+T?P-PRSI::	.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
+	.ENDT
+
+T?2004::
+T?P-BUTS::	.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
+	.ENDT
+
+T?2104::
+T?P-OCL1::	.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
+	.ENDT
+
+T?2204::
+T?P-OCL2::	.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
+	.ENDT
+
+T?105::
+T?YES-INBUF::	.TABLE
+	.BYTE 19
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.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?205::
+T?YES-LEXV::	.TABLE
+	.BYTE 3
+	.BYTE 0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?305::
+T?YAWNS::	.TABLE
+	5
+	0
+	STR?46
+	STR?47
+	STR?48
+	STR?49
+	.ENDT
+
+T?405::
+T?CREEPIES::	.TABLE
+	6
+	0
+	STR?54
+	STR?55
+	STR?56
+	STR?57
+	STR?58
+	.ENDT
+
+T?505::
+T?YUKS::	.TABLE
+	8
+	0
+	STR?77
+	STR?78
+	STR?79
+	STR?80
+	STR?81
+	STR?82
+	STR?83
+	.ENDT
+
+T?106::
+T?PLAYER-OBSTACLES::	.TABLE
+	3
+	0
+	STR?143
+	STR?144
+	.ENDT
+
+T?206::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-PLAYER
+	5
+	0
+	.ENDT
+
+T?306::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?406::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?506::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?606::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?706::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?806::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?906::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	X-WAITS
+	5
+	0
+	.ENDT
+
+T?1006::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	BUTLER-APPEARS
+	1
+	0
+	.ENDT
+
+T?1106::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	LOVER-XFER
+	5
+	0
+	.ENDT
+
+T?1206::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	GHOST-LURKS
+	5
+	0
+	.ENDT
+
+T?107::
+T?QUESTIONS::	.TABLE
+	9
+	STR?166
+	STR?167
+	STR?168
+	STR?169
+	STR?170
+	STR?171
+	STR?172
+	STR?173
+	STR?174
+	.ENDT
+
+T?207::
+T?CHAR-CLOSET-TABLE::	.TABLE
+	15
+	YOUR-CLOSET
+	SECRET-LANDING-TAM
+	SECRET-LANDING-JACK
+	SECRET-VIVIEN-PASSAGE
+	WENDISH-CORNER
+	SECRET-IAN-PASSAGE
+	HYDE-CLOSET
+	IRIS-CLOSET
+	KITCHEN
+	SECRET-LANDING-JACK
+	0
+	DRAWING-CLOSET
+	SECRET-LANDING-LIB
+	SITTING-PASSAGE
+	DINING-PASSAGE
+	.ENDT
+
+T?307::
+T?CHAR-POSS-TABLE::	.TABLE
+	16
+	W?MY
+	W?TAM'S
+	W?JACK'S
+	W?VIV'S
+	W?DOC'S
+	W?IAN'S
+	W?HYDE'S
+	W?IRIS'S
+	W?B'S
+	W?DEE'S
+	W?G'S
+	W?LI'S
+	W?MAID'S
+	W?WORM'S
+	W?BUF'S
+	W?RH'S
+	.ENDT
+
+T?407::
+T?FOLLOW-LOC::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?507::
+T?TOUCHED-LDESCS::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?607::
+T?FOUND-COSTUME::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?707::
+T?FOUND-PASSAGES::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?807::
+T?TOLD-ABOUT-GHOST::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?907::
+T?TOLD-ABOUT-EVID::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1007::
+T?SHOT::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?113::
+T?FAVE-COLOR::	.TABLE
+	.BYTE 3
+	.BYTE 114
+	.BYTE 101
+	.BYTE 100
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?213::
+T?FIRST-NAME::	.TABLE
+	.BYTE 0
+	.BYTE 120
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?313::
+T?LAST-NAME::	.TABLE
+	.BYTE 0
+	.BYTE 116
+	.BYTE 101
+	.BYTE 115
+	.BYTE 116
+	.BYTE 101
+	.BYTE 114
+	.BYTE 0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?413::
+T?SUFFIX::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	0
+	0
+	.ENDT
+
+
+; END OF IMPURENESS
+
+IMPURE::
+
+
+
+; VERB TABLE IS DEFINED HERE
+
+VTBL::	.TABLE
+	ST?SHUT
+	ST?I
+	ST?PULL
+	ST?SUPERBRIEF
+	ST?VERBOSE
+	ST?REQUEST
+	ST?QUIT
+	ST?FIND
+	ST?YES
+	ST?STOP
+	ST?UNLOCK
+	ST?READ
+	ST?CONFRONT
+	ST?SAY
+	ST?JUMP
+	ST?POUR
+	ST?WAIT
+	ST?TAKE
+	ST?NO
+	ST?CALL
+	ST?FOLLOW
+	ST?COMPARE
+	ST?HEAD
+	ST?DINE
+	ST?LIGHT
+	ST?LIE
+	ST?MOVE
+	ST?ARREST
+	ST?PLAY
+	ST?OPEN
+	ST?KNOCK
+	ST?WRITE
+	ST?PICK
+	ST?PEEP
+	ST?MEET
+	ST?PRAY
+	ST?STAND
+	ST?UNDRESS
+	ST?LISTEN
+	ST?SHOW
+	ST?NOD
+	ST?HELP
+	ST?SAVE
+	ST?TELL
+	ST?THROW
+	ST?DESCRIBE
+	ST?DRESS
+	ST?FIDDLE
+	ST?USE
+	ST?HIDE
+	ST?SHAKE
+	ST?ATTACK
+	ST?DAMAGE
+	ST?ENTER
+	ST?THANKS
+	ST?PLACE
+	ST?SEARCH
+	ST?WEAR
+	ST?SWITCH
+	ST?SWIM
+	ST?EXPLAIN
+	ST?HOLD
+	ST?UNSCRIPT
+	ST?HANG
+	ST?RING
+	ST?PUSH
+	ST?RUB
+	ST?SIT
+	ST?SOUND
+	ST?CHANGE
+	ST?SCORE
+	ST?PUNCH
+	ST?FORGIVE
+	ST?DANCE
+	ST?SIGN
+	ST?EMPTY
+	ST?CHECK
+	ST?BOW
+	ST?DROP
+	ST?TIME
+	ST?LEAVE
+	ST?TRY
+	ST?SCRIPT
+	ST?$VERIFY
+	ST?RESTART
+	ST?SMELL
+	ST?BRIEF
+	ST?GET
+	ST?CONSOLE
+	ST?SLEEP
+	ST?GIVE
+	ST?SMILE
+	ST?WAKE
+	ST?DRINK
+	ST?REMOVE
+	ST?ANSWER
+	ST?$CALL
+	ST?YELL
+	ST?SORRY
+	ST?LOCK
+	ST?SHARE
+	ST?POINT
+	ST?MURDER
+	ST?START
+	ST?CLEAN
+	ST?RESTORE
+	ST?CLOSE
+	ST?FIX
+	ST?SLIDE
+	ST?EXAMINE
+	ST?RELEASE
+	ST?EAT
+	ST?FIRE
+	ST?FILL
+	ST?CLIMB
+	ST?WATCH
+	ST?ASK
+	ST?HELLO
+	.ENDT
+
+; SYNTAX DEFINITION TABLES ARE DEFINED HERE
+
+ST?SHUT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?CLOSE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?CLOSE
+	.ENDT
+
+ST?I::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?INVENTORY
+	.ENDT
+
+ST?PULL::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE SC+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE-DIR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE
+	.ENDT
+
+ST?SUPERBRIEF::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SUPER-BRIEF
+	.ENDT
+
+ST?VERBOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?VERBOSE
+	.ENDT
+
+ST?REQUEST::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-CONTEXT-FOR
+	.ENDT
+
+ST?QUIT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?QUIT
+	.ENDT
+
+ST?FIND::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-CONTEXT-ABOUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSEARCH-FOR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSEARCH-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.ENDT
+
+ST?YES::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YES
+	.ENDT
+
+ST?STOP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STOP
+	.ENDT
+
+ST?UNLOCK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?UNLOCK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?UNLOCK
+	.ENDT
+
+ST?READ::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?ABOUT
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE READBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SHAVE
+	.BYTE V?LOOK-UP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SHAVE
+	.BYTE 0
+	.BYTE V?READ
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SHAVE
+	.BYTE V?SREAD
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE READBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SHAVE
+	.BYTE 0
+	.BYTE V?READ
+	.ENDT
+
+ST?CONFRONT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CONFRONT
+	.ENDT
+
+ST?SAY::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?ASK-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.BYTE 2	;OBJECTS
+	.BYTE PR?TO
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TALK-ABOUT
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAY
+	.ENDT
+
+ST?JUMP::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.ENDT
+
+ST?POUR::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?POUR
+	.ENDT
+
+ST?WAIT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNTIL
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAIT-UNTIL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAIT-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAIT-FOR
+	.ENDT
+
+ST?TAKE::	.TABLE
+	.BYTE 11	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SC+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE WORNBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TAKE-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+STAKE+SHAVE
+	.BYTE 0
+	.BYTE V?HOLD-UP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SMANY+STAKE
+	.BYTE 0
+	.BYTE V?TAKE-TO
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?NO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?NO
+	.ENDT
+
+ST?CALL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$CALL
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$CALL
+	.ENDT
+
+ST?FOLLOW::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.ENDT
+
+ST?COMPARE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE SH+SC+SOG+SIR
+	.BYTE V?COMPARE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE SH+SC+SOG+SIR
+	.BYTE V?COMPARE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SMANY
+	.BYTE 0
+	.BYTE V?COMPARE
+	.ENDT
+
+ST?HEAD::	.TABLE
+	.BYTE 17	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DRIVE-TO
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RUN-OVER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DRIVE-TO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-TO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-TO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AWAY
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-AROUND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AFTER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK
+	.ENDT
+
+ST?DINE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?EAT
+	.ENDT
+
+ST?LIGHT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.ENDT
+
+ST?LIE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LIE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LIE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LIE
+	.ENDT
+
+ST?MOVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE-DIR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE
+	.ENDT
+
+ST?ARREST::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ARREST
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ARREST
+	.ENDT
+
+ST?PLAY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLAY
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLAY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLAY
+	.ENDT
+
+ST?OPEN::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE SOG+SIR+SH+SC+SHAVE+STAKE
+	.BYTE V?OPEN-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?OPEN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?OPEN
+	.ENDT
+
+ST?KNOCK::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?SLAP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE SIR+SOG+SMANY
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?SLAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ATTACK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNOCK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNOCK
+	.ENDT
+
+ST?WRITE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE+SHAVE+SH+SC
+	.BYTE 0
+	.BYTE V?SIGN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE+SHAVE+SH+SC
+	.BYTE 0
+	.BYTE V?SIGN
+	.ENDT
+
+ST?PICK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?PEEP::	.TABLE
+	.BYTE 16	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LOOK-THROUGH
+	.BYTE 2	;OBJECTS
+	.BYTE PR?UP
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-OUTSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LOOK-ON
+	.BYTE 2	;OBJECTS
+	.BYTE PR?IN
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?SEARCH-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-BEHIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CHASTISE
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK
+	.ENDT
+
+ST?MEET::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MEET
+	.ENDT
+
+ST?PRAY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PRAY
+	.ENDT
+
+ST?STAND::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.ENDT
+
+ST?UNDRESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?UNDRESS
+	.ENDT
+
+ST?LISTEN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LISTEN
+	.ENDT
+
+ST?SHOW::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHOW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSHOW
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSHOW
+	.ENDT
+
+ST?NOD::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?NOD
+	.ENDT
+
+ST?HELP::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELP
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELP
+	.ENDT
+
+ST?SAVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELP
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAVE
+	.ENDT
+
+ST?TELL::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TALK-ABOUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.ENDT
+
+ST?THROW::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-AT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-THROUGH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-THROUGH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE SH+SC+SOG+SIR
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-AT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AGAINST
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-AT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AWAY
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?DROP
+	.ENDT
+
+ST?DESCRIBE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DESCRIBE
+	.ENDT
+
+ST?DRESS::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DRESS
+	.ENDT
+
+ST?FIDDLE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RUB
+	.ENDT
+
+ST?USE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?USE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AGAINST
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?USE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?USE
+	.ENDT
+
+ST?HIDE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.ENDT
+
+ST?SHAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHAKE
+	.ENDT
+
+ST?ATTACK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE SH+SHAVE+STAKE
+	.BYTE V?ATTACK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ATTACK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ATTACK
+	.ENDT
+
+ST?DAMAGE::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE V?MUNG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE V?MUNG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE V?MUNG
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 0
+	.BYTE V?MUNG
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 0
+	.BYTE V?MUNG
+	.ENDT
+
+ST?ENTER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.ENDT
+
+ST?THANKS::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THANKS
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THANKS
+	.ENDT
+
+ST?PLACE::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?DROP
+	.BYTE 2	;OBJECTS
+	.BYTE PR?AWAY
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-THROUGH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE SURFACEBIT
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE SURFACEBIT
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.ENDT
+
+ST?SEARCH::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.ENDT
+
+ST?WEAR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.ENDT
+
+ST?SWITCH::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?AIM
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-OFF
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?TURN
+	.ENDT
+
+ST?SWIM::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM
+	.ENDT
+
+ST?EXPLAIN::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?TO
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TALK-ABOUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STELL-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TALK-ABOUT
+	.ENDT
+
+ST?HOLD::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+STAKE+SHAVE
+	.BYTE 0
+	.BYTE V?HOLD-UP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+STAKE+SHAVE
+	.BYTE 0
+	.BYTE V?HOLD-UP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+STAKE+SHAVE
+	.BYTE 0
+	.BYTE V?HOLD-UP
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?UNSCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?UNSCRIPT
+	.ENDT
+
+ST?HANG::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.ENDT
+
+ST?RING::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RING
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?SSHOOT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RING
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RING
+	.ENDT
+
+ST?PUSH::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG+SMANY
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG+SMANY
+	.BYTE 0
+	.BYTE V?MOVE-DIR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE SIR+SOG+SMANY
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?MOVE-DIR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?PUSH
+	.ENDT
+
+ST?RUB::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE+SHAVE
+	.BYTE V?RUB
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RUB
+	.ENDT
+
+ST?SIT::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SIT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SIT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BESIDE
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SIT-AT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SIT-AT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SIT
+	.ENDT
+
+ST?SOUND::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SOUND
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RING
+	.ENDT
+
+ST?CHANGE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DRESS
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CHANGE
+	.ENDT
+
+ST?SCORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCORE
+	.ENDT
+
+ST?PUNCH::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE SH+SC+SOG+SIR+SHAVE+STAKE
+	.BYTE V?SLAP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SLAP
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SLAP
+	.ENDT
+
+ST?FORGIVE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FORGIVE
+	.ENDT
+
+ST?DANCE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DANCE
+	.ENDT
+
+ST?SIGN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE+SHAVE+SH+SC
+	.BYTE 0
+	.BYTE V?SIGN
+	.ENDT
+
+ST?EMPTY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE CONTBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EMPTY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EMPTY
+	.ENDT
+
+ST?CHECK::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SANALYZE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ANALYZE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ANALYZE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ANALYZE
+	.ENDT
+
+ST?BOW::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BOW
+	.ENDT
+
+ST?DROP::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE SOG+SIR
+	.BYTE V?THROW-THROUGH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?DROP
+	.ENDT
+
+ST?TIME::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TIME
+	.ENDT
+
+ST?LEAVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.ENDT
+
+ST?TRY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.ENDT
+
+ST?SCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCRIPT
+	.ENDT
+
+ST?$VERIFY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$VERIFY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$VERIFY
+	.ENDT
+
+ST?RESTART::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTART
+	.ENDT
+
+ST?SMELL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMELL
+	.ENDT
+
+ST?BRIEF::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BRIEF
+	.ENDT
+
+ST?GET::	.TABLE
+	.BYTE 12	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?RID
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DROP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SMANY+STAKE
+	.BYTE 0
+	.BYTE V?TAKE-TO
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SC+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE SC+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?CONSOLE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?KISS
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?KISS
+	.ENDT
+
+ST?SLEEP::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?FAINT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?FAINT
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FAINT
+	.ENDT
+
+ST?GIVE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?QUIT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FAINT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG
+	.BYTE SMANY+SH+SHAVE
+	.BYTE V?SGIVE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE SMANY+SH+SHAVE
+	.BYTE SOG
+	.BYTE V?GIVE
+	.ENDT
+
+ST?SMILE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMILE
+	.ENDT
+
+ST?WAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ALARM
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ALARM
+	.ENDT
+
+ST?DRINK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?DRINK
+	.ENDT
+
+ST?REMOVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE WORNBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REMOVE
+	.ENDT
+
+ST?ANSWER::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPLY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPLY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ANSWER
+	.ENDT
+
+ST?$CALL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$CALL
+	.ENDT
+
+ST?YELL::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YELL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YELL
+	.ENDT
+
+ST?SORRY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SORRY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SORRY
+	.ENDT
+
+ST?LOCK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LOCK
+	.ENDT
+
+ST?SHARE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSHOW
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSHOW
+	.ENDT
+
+ST?POINT::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSHOW
+	.BYTE 2	;OBJECTS
+	.BYTE PR?AT
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAIM
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SSHOW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?AIM
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?AIM
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?AIM
+	.ENDT
+
+ST?MURDER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE PERSONBIT
+	.BYTE WEAPONBIT
+	.BYTE SOG+SIR
+	.BYTE SH+SC+SHAVE
+	.BYTE V?KILL
+	.ENDT
+
+ST?START::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTART
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.ENDT
+
+ST?CLEAN::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?BRUSH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?BRUSH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE SH+SC+STAKE+SHAVE
+	.BYTE V?BRUSH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE V?BRUSH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?BRUSH
+	.ENDT
+
+ST?RESTORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTORE
+	.ENDT
+
+ST?CLOSE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?CLOSE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?CLOSE
+	.ENDT
+
+ST?FIX::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIX
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIX
+	.ENDT
+
+ST?SLIDE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-IN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.ENDT
+
+ST?EXAMINE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UNDER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC+SHAVE+STAKE
+	.BYTE V?READ
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+STAKE
+	.BYTE SOG+SIR+SH+SC+SHAVE+STAKE
+	.BYTE V?READ
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.ENDT
+
+ST?RELEASE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?VERSION
+	.ENDT
+
+ST?EAT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SH+SOG+SIR+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?EAT
+	.ENDT
+
+ST?FIRE::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE SH+SC+SHAVE
+	.BYTE SOG+SIR
+	.BYTE V?SSHOOT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE SH+SC+SHAVE
+	.BYTE SOG+SIR
+	.BYTE V?SSHOOT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE SH+SC+SHAVE
+	.BYTE V?SHOOT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SHOOT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SHOOT
+	.ENDT
+
+ST?FILL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?FILL
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE CONTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?FILL
+	.ENDT
+
+ST?CLIMB::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.ENDT
+
+ST?WATCH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.ENDT
+
+ST?ASK::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-FOR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-CONTEXT-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-CONTEXT-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE PERSONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK
+	.ENDT
+
+ST?HELLO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ATBL::	.TABLE
+	V-$VERIFY
+	V-AIM
+	V-SSHOW
+	V-SAIM
+	V-ANALYZE
+	V-LOOK-UNDER
+	V-LOOK-UP
+	V-SANALYZE
+	V-ANSWER
+	V-REPLY
+	V-ARREST
+	V-ASK
+	V-ASK-CONTEXT-ABOUT
+	V-ASK-CONTEXT-FOR
+	V-ASK-ABOUT
+	V-ASK-FOR
+	V-ATTACK
+	V-BOW
+	V-BRIEF
+	V-BRUSH
+	V-BOARD
+	V-$CALL
+	V-CHANGE
+	V-WEAR
+	V-DRESS
+	V-CLIMB-DOWN
+	V-DISEMBARK
+	V-CLIMB-ON
+	V-THROUGH
+	V-CLIMB-UP
+	V-CLOSE
+	V-COMPARE
+	V-CONFRONT
+	V-MUNG
+	V-DANCE
+	V-DESCRIBE
+	V-EAT
+	V-DRINK
+	V-DROP
+	V-PUT
+	V-PUT-IN
+	V-THROW-THROUGH
+	V-EMPTY
+	V-EXAMINE
+	V-READ
+	V-TALK-ABOUT
+	V-STELL-ABOUT
+	V-TELL-ABOUT
+	V-FAINT
+	V-RUB
+	V-FILL
+	V-FIND
+	V-SSEARCH-FOR
+	V-FIX
+	V-FOLLOW
+	V-FORGIVE
+	V-TAKE
+	V-TAKE-TO
+	V-STAND
+	V-GIVE
+	V-SGIVE
+	V-QUIT
+	V-HELLO
+	V-HELP
+	V-PUT-UNDER
+	V-HOLD-UP
+	V-INVENTORY
+	V-LEAP
+	V-KILL
+	V-KISS
+	V-KNOCK
+	V-PUSH
+	V-SLAP
+	V-LEAVE
+	V-LIE
+	V-LAMP-ON
+	V-LISTEN
+	V-LOCK
+	V-LOOK
+	V-CHASTISE
+	V-LOOK-BEHIND
+	V-LOOK-DOWN
+	V-LOOK-INSIDE
+	V-SEARCH-FOR
+	V-LOOK-ON
+	V-LOOK-OUTSIDE
+	V-LOOK-THROUGH
+	V-MEET
+	V-MOVE
+	V-MOVE-DIR
+	V-NO
+	V-NOD
+	V-OPEN
+	V-OPEN-WITH
+	V-PLAY
+	V-POUR
+	V-PRAY
+	V-SREAD
+	V-REMOVE
+	V-RESTART
+	V-RESTORE
+	V-RING
+	V-SSHOOT
+	V-SAVE
+	V-SAY
+	V-TELL
+	V-SCORE
+	V-SCRIPT
+	V-SEARCH
+	V-SHAKE
+	V-SHOOT
+	V-SHOW
+	V-LAMP-OFF
+	V-SIGN
+	V-SIT
+	V-SIT-AT
+	V-SMELL
+	V-SMILE
+	V-SORRY
+	V-SOUND
+	V-STOP
+	V-SUPER-BRIEF
+	V-SWIM
+	V-TAKE-OFF
+	V-THANKS
+	V-THROW-AT
+	V-TIME
+	V-TURN
+	V-UNDRESS
+	V-UNLOCK
+	V-UNSCRIPT
+	V-USE
+	V-VERBOSE
+	V-VERSION
+	V-WAIT-FOR
+	V-WAIT-UNTIL
+	V-ALARM
+	V-WALK
+	V-WALK-AROUND
+	V-WALK-TO
+	V-DRIVE-TO
+	V-RUN-OVER
+	V-YELL
+	V-YES
+	.ENDT
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PATBL::	.TABLE
+	0
+	0
+	PRE-SSHOW
+	PRE-SAIM
+	PRE-ANALYZE
+	PRE-LOOK-UNDER
+	0
+	PRE-SANALYZE
+	0
+	0
+	PRE-ARREST
+	PRE-ASK-ABOUT
+	PRE-ASK-CONTEXT-ABOUT
+	PRE-ASK-CONTEXT-FOR
+	PRE-ASK-ABOUT
+	PRE-ASK-ABOUT
+	0
+	0
+	0
+	PRE-BRUSH
+	0
+	PRE-ASK-ABOUT
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-THROUGH
+	0
+	0
+	PRE-COMPARE
+	0
+	0
+	0
+	PRE-DESCRIBE
+	PRE-EAT
+	0
+	0
+	PRE-PUT
+	PRE-PUT-IN
+	PRE-THROW-THROUGH
+	PRE-EMPTY
+	PRE-EXAMINE
+	PRE-READ
+	PRE-TALK-ABOUT
+	PRE-STELL-ABOUT
+	PRE-TELL-ABOUT
+	0
+	0
+	0
+	PRE-FIND
+	PRE-SSEARCH-FOR
+	0
+	0
+	0
+	PRE-TAKE
+	0
+	0
+	PRE-GIVE
+	PRE-SGIVE
+	0
+	PRE-HELLO
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-LIE
+	0
+	PRE-LISTEN
+	0
+	0
+	0
+	0
+	0
+	PRE-LOOK-INSIDE
+	PRE-SEARCH-FOR
+	0
+	0
+	0
+	PRE-MEET
+	PRE-MOVE
+	PRE-MOVE-DIR
+	0
+	0
+	0
+	PRE-OPEN-WITH
+	0
+	0
+	0
+	PRE-SREAD
+	0
+	0
+	0
+	0
+	PRE-SSHOOT
+	0
+	0
+	PRE-ASK-ABOUT
+	0
+	0
+	PRE-SEARCH
+	0
+	0
+	0
+	0
+	0
+	PRE-SIT
+	0
+	0
+	0
+	PRE-HELLO
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-DRIVE-TO
+	0
+	0
+	0
+	.ENDT
+
+
+; PREPOSITION TABLE IS DEFINED HERE
+
+PRTBL::	.TABLE
+	.WORD 24
+	W?AFTER
+	PR?AFTER
+	W?UNTIL
+	PR?UNTIL
+	W?AGAINST
+	PR?AGAINST
+	W?BESIDE
+	PR?BESIDE
+	W?AWAY
+	PR?AWAY
+	W?BEHIND
+	PR?BEHIND
+	W?AROUND
+	PR?AROUND
+	W?ACROSS
+	PR?ACROSS
+	W?RID
+	PR?RID
+	W?FROM
+	PR?FROM
+	W?THROUGH
+	PR?THROUGH
+	W?OVER
+	PR?OVER
+	W?DOWN
+	PR?DOWN
+	W?UP
+	PR?UP
+	W?OFF
+	PR?OFF
+	W?ABOUT
+	PR?ABOUT
+	W?ON
+	PR?ON
+	W?IN
+	PR?IN
+	W?UNDER
+	PR?UNDER
+	W?OUT
+	PR?OUT
+	W?FOR
+	PR?FOR
+	W?WITH
+	PR?WITH
+	W?TO
+	PR?TO
+	W?AT
+	PR?AT
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 6
+	.BYTE 46
+	.BYTE 44
+	.BYTE 34
+	.BYTE 33
+	.BYTE 63
+	.BYTE 39
+	.BYTE 7
+	955
+W?$CALL::	.ZWORD "$call"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$CALL
+	.BYTE 0
+W?$VERIFY::	.ZWORD "$verif"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+	.BYTE 0
+W?1ST::	.ZWORD "1st"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?1ST
+	.BYTE 0
+W?2ND::	.ZWORD "2nd"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?2ND
+	.BYTE 0
+W?3RD::	.ZWORD "3rd"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?3RD
+	.BYTE 0
+W?4TH::	.ZWORD "4th"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?4TH
+	.BYTE 0
+W?PERIOD::	.ZWORD "."
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PERIOD
+	.BYTE 0
+W?COMMA::	.ZWORD ","
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COMMA
+	.BYTE 0
+W?!::	.ZWORD "!"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?!
+	.BYTE 0
+W??::	.ZWORD "?"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B??
+	.BYTE 0
+W?APOSTROPHE::	.ZWORD "'"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?APOSTROPHE
+	.BYTE 0
+W?QUOTE::	.ZWORD """"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?QUOTE
+	.BYTE 0
+W?(SOME::	.ZWORD "(some"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?(SOME
+	.BYTE 0
+W?A::	.ZWORD "a"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?A
+	.BYTE 0
+W?ABOUT::	.ZWORD "about"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ABOUT
+	.BYTE 0
+W?ACCIDENT::	.ZWORD "accide"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ACCUSE::	.ZWORD "accuse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ARREST
+	.BYTE 0
+W?ACROSS::	.ZWORD "across"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ACROSS
+	.BYTE 0
+W?ADJUST::	.ZWORD "adjust"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?AEROSOL::	.ZWORD "aeroso"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AEROSOL
+	.BYTE 0
+W?AFTER::	.ZWORD "after"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AFTER
+	.BYTE 0
+W?AGAIN::	.ZWORD "again"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AGAIN
+	.BYTE 0
+W?AGAINST::	.ZWORD "agains"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AGAINST
+	.BYTE 0
+W?AIM::	.ZWORD "aim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?ALL::	.ZWORD "all"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ALL
+	.BYTE 0
+W?ALTAR::	.ZWORD "altar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AM::	.ZWORD "am"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AM
+	.BYTE 0
+W?AN::	.ZWORD "an"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AN
+	.BYTE 0
+W?ANALYSE::	.ZWORD "analys"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHECK
+	.BYTE 0
+W?ANALYZE::	.ZWORD "analyz"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHECK
+	.BYTE 0
+W?ANCIENT::	.ZWORD "ancien"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ANCIENT
+	.BYTE 0
+W?AND::	.ZWORD "and"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AND
+	.BYTE 0
+W?ANDIRON::	.ZWORD "andiro"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ANSWER::	.ZWORD "answer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?ANYWAY::	.ZWORD "anyway"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ANYWAY
+	.BYTE 0
+W?APOLOGIZE::	.ZWORD "apolog"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SORRY
+	.BYTE 0
+W?APPLE::	.ZWORD "apple"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ARE::	.ZWORD "are"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ARE
+	.BYTE 0
+W?AREA::	.ZWORD "area"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AREN::	.ZWORD "aren"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AREN
+	.BYTE 0
+W?ARM::	.ZWORD "arm"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ARM
+	.BYTE 0
+W?ARMCHAIR::	.ZWORD "armcha"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ARMOR::	.ZWORD "armor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ARMOUR::	.ZWORD "armour"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ARMS::	.ZWORD "arms"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AROUND::	.ZWORD "around"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AROUND
+	.BYTE 0
+W?ARREST::	.ZWORD "arrest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ARREST
+	.BYTE 0
+W?ART::	.ZWORD "art"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ART
+	.BYTE 0
+W?ARTIFACT::	.ZWORD "artifa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ASH::	.ZWORD "ash"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ASH
+	.BYTE 0
+W?ASK::	.ZWORD "ask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?ASSAULT::	.ZWORD "assaul"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?ASSHOLE::	.ZWORD "asshol"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ASSHOLE
+	.BYTE 0
+W?AT::	.ZWORD "at"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AT
+	.BYTE 0
+W?ATTACK::	.ZWORD "attack"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?ATTEMPTS::	.ZWORD "attemp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AWAKE::	.ZWORD "awake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?AWAY::	.ZWORD "away"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AWAY
+	.BYTE 0
+W?AYE::	.ZWORD "aye"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?B'S::	.ZWORD "b's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?B'S
+	.BYTE 0
+W?BACK::	.ZWORD "back"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BACK
+	.BYTE 0
+W?BACKST::	.ZWORD "backst"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BAG::	.ZWORD "bag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BANG::	.ZWORD "bang"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?BAS-RELIEF::	.ZWORD "bas-re"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BASEMENT::	.ZWORD "baseme"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BASTARD::	.ZWORD "bastar"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BASTARD
+	.BYTE 0
+W?BATH::	.ZWORD "bath"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BATH
+	.BYTE 0
+W?BATHE::	.ZWORD "bathe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?BATHROOM::	.ZWORD "bathro"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BATHROOM
+	.BYTE 0
+W?BATHTUB::	.ZWORD "bathtu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BED::	.ZWORD "bed"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BED
+	.BYTE 0
+W?BEDPOST::	.ZWORD "bedpos"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEDROOM::	.ZWORD "bedroo"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BEDROOM
+	.BYTE 0
+W?BEEP::	.ZWORD "beep"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?BEHIND::	.ZWORD "behind"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEHIND
+	.BYTE 0
+W?BELL::	.ZWORD "bell"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BELOW::	.ZWORD "below"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?BENCH::	.ZWORD "bench"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BENEATH::	.ZWORD "beneat"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?BESIDE::	.ZWORD "beside"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BESIDE
+	.BYTE 0
+W?BILLIARD::	.ZWORD "billia"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BILLIARD
+	.BYTE 0
+W?BIRD::	.ZWORD "bird"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BIRD
+	.BYTE 0
+W?BITCH::	.ZWORD "bitch"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BITCH
+	.BYTE 0
+W?BLACK::	.ZWORD "black"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLACK
+	.BYTE 0
+W?BLAST::	.ZWORD "blast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?BLOND::	.ZWORD "blond"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLOND
+	.BYTE 0
+W?BLONDE::	.ZWORD "blonde"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLONDE
+	.BYTE 0
+W?BLOW::	.ZWORD "blow"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLOW
+	.BYTE ACT?RING
+W?BLOWGUN::	.ZWORD "blowgu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLUE::	.ZWORD "blue"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLUE
+	.BYTE 0
+W?BOARD::	.ZWORD "board"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+	.BYTE 0
+W?BOLITHO::	.ZWORD "bolith"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BOLITHO
+	.BYTE 0
+W?BONES::	.ZWORD "bones"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOOK::	.ZWORD "book"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BOOK
+	.BYTE 0
+W?BOOKCASE::	.ZWORD "bookca"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOOKS::	.ZWORD "books"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOTTLE::	.ZWORD "bottle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOW::	.ZWORD "bow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOW
+	.BYTE 0
+W?BOWER::	.ZWORD "bower"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOWL::	.ZWORD "bowl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOX::	.ZWORD "box"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRASS::	.ZWORD "brass"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BRASS
+	.BYTE 0
+W?BREAK::	.ZWORD "break"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DAMAGE
+	.BYTE 0
+W?BREAKER::	.ZWORD "breake"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRICK::	.ZWORD "brick"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BRICK
+	.BYTE 0
+W?BRICKS::	.ZWORD "bricks"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRIEF::	.ZWORD "brief"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRIEF
+	.BYTE 0
+W?BROCHURE::	.ZWORD "brochu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRONZE::	.ZWORD "bronze"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BRONZE
+	.BYTE 0
+W?BUF'S::	.ZWORD "buf's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BUF'S
+	.BYTE 0
+W?BUFFALO::	.ZWORD "buffal"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BUFFALO
+	.BYTE 0
+W?BUNCH::	.ZWORD "bunch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUST::	.ZWORD "bust"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUT::	.ZWORD "but"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BUT
+	.BYTE 0
+W?BUTLER::	.ZWORD "butler"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BUTLER
+	.BYTE 0
+W?BUTTON::	.ZWORD "button"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CAGE::	.ZWORD "cage"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CALL::	.ZWORD "call"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CALL
+	.BYTE 0
+W?CAN::	.ZWORD "can"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CAN
+	.BYTE 0
+W?CANDLE::	.ZWORD "candle"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CANDLE
+	.BYTE 0
+W?CANE::	.ZWORD "cane"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CANVAS::	.ZWORD "canvas"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CAPTURE::	.ZWORD "captur"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ARREST
+	.BYTE 0
+W?CAR::	.ZWORD "car"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CAR
+	.BYTE 0
+W?CARD::	.ZWORD "card"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CARD
+	.BYTE 0
+W?CARPET::	.ZWORD "carpet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARRY::	.ZWORD "carry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?CARVING::	.ZWORD "carvin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CASE::	.ZWORD "case"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CASTLE::	.ZWORD "castle"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CASTLE
+	.BYTE 0
+W?CELLAR::	.ZWORD "cellar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHAIR::	.ZWORD "chair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHAIRS::	.ZWORD "chairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHAISE::	.ZWORD "chaise"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CHAISE
+	.BYTE 0
+W?CHANGE::	.ZWORD "change"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHANGE
+	.BYTE 0
+W?CHAPEL::	.ZWORD "chapel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CHAPEL
+	.BYTE 0
+W?CHASE::	.ZWORD "chase"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?CHAT::	.ZWORD "chat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?CHECK::	.ZWORD "check"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHECK
+	.BYTE 0
+W?CHEST::	.ZWORD "chest"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHEVAL::	.ZWORD "cheval"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CHEVAL
+	.BYTE 0
+W?CHIMNEY::	.ZWORD "chimne"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLEAN::	.ZWORD "clean"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?CLIMB::	.ZWORD "climb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+	.BYTE 0
+W?CLOCKWORK::	.ZWORD "clockw"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CLOCKWORK
+	.BYTE 0
+W?CLOSE::	.ZWORD "close"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?CLOTHES::	.ZWORD "clothe"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CLOTHES
+	.BYTE 0
+W?CLUB::	.ZWORD "club"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLUE::	.ZWORD "clue"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CLUE
+	.BYTE 0
+W?CLUES::	.ZWORD "clues"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COAT::	.ZWORD "coat"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COAT
+	.BYTE 0
+W?COCK::	.ZWORD "cock"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COCK
+	.BYTE 0
+W?COCKSUCKER::	.ZWORD "cocksu"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COCKSUCKER
+	.BYTE 0
+W?COFFIN::	.ZWORD "coffin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COLOR::	.ZWORD "color"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COLOR
+	.BYTE 0
+W?COME::	.ZWORD "come"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?COMFORT::	.ZWORD "comfor"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONSOLE
+	.BYTE 0
+W?COMMODE::	.ZWORD "commod"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMPARE::	.ZWORD "compar"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COMPARE
+	.BYTE 0
+W?COMPUTER::	.ZWORD "comput"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONCEAL::	.ZWORD "concea"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIDE
+	.BYTE 0
+W?CONFRONT::	.ZWORD "confro"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONFRONT
+	.BYTE 0
+W?CONSOLE::	.ZWORD "consol"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?CONSOLE
+	.BYTE 0
+W?CONSULT::	.ZWORD "consul"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?CONTACT::	.ZWORD "contac"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CONTACT
+	.BYTE 0
+W?CORPSE::	.ZWORD "corpse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CORRIDOR::	.ZWORD "corrid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COSTUME::	.ZWORD "costum"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COULD::	.ZWORD "could"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COULD
+	.BYTE 0
+W?COULDN::	.ZWORD "couldn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COULDN
+	.BYTE 0
+W?COURT::	.ZWORD "court"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COURT
+	.BYTE 0
+W?COURTYARD::	.ZWORD "courty"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COVERED::	.ZWORD "covere"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COVERED
+	.BYTE 0
+W?CRAP::	.ZWORD "crap"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CRAP
+	.BYTE 0
+W?CREST::	.ZWORD "crest"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CRUSH::	.ZWORD "crush"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DAMAGE
+	.BYTE 0
+W?CRYPT::	.ZWORD "crypt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUE::	.ZWORD "cue"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CUE
+	.BYTE 0
+W?CUNT::	.ZWORD "cunt"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CUNT
+	.BYTE 0
+W?CURSE::	.ZWORD "curse"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CURSE
+	.BYTE 0
+W?CURTSEY::	.ZWORD "curtse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOW
+	.BYTE 0
+W?CURTSY::	.ZWORD "curtsy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOW
+	.BYTE 0
+W?CUSHION::	.ZWORD "cushio"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUSS::	.ZWORD "cuss"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CUSS
+	.BYTE 0
+W?D::	.ZWORD "d"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 22
+	.BYTE PR?DOWN
+W?DAMAGE::	.ZWORD "damage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DAMAGE
+	.BYTE 0
+W?DAME::	.ZWORD "dame"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DAME
+	.BYTE 0
+W?DAMN::	.ZWORD "damn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DAMN
+	.BYTE 0
+W?DAMNED::	.ZWORD "damned"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DAMNED
+	.BYTE 0
+W?DANCE::	.ZWORD "dance"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DANCE
+	.BYTE 0
+W?DANGER::	.ZWORD "danger"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DARN::	.ZWORD "darn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DARN
+	.BYTE 0
+W?DEAD::	.ZWORD "dead"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEAD
+	.BYTE 0
+W?DEALER::	.ZWORD "dealer"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEALER
+	.BYTE 0
+W?DEATH::	.ZWORD "death"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DECK::	.ZWORD "deck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEE::	.ZWORD "dee"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEE
+	.BYTE 0
+W?DEE'S::	.ZWORD "dee's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEE'S
+	.BYTE 0
+W?DEIRDRE::	.ZWORD "deirdr"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEIRDRE
+	.BYTE 0
+W?DESCRIBE::	.ZWORD "descri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESCRIBE
+	.BYTE 0
+W?DESK::	.ZWORD "desk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DESTROY::	.ZWORD "destro"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DAMAGE
+	.BYTE 0
+W?DETECT::	.ZWORD "detect"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?DEVICE::	.ZWORD "device"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIARY::	.ZWORD "diary"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DID::	.ZWORD "did"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DID
+	.BYTE 0
+W?DIDN::	.ZWORD "didn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DIDN
+	.BYTE 0
+W?DIG::	.ZWORD "dig"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?DINE::	.ZWORD "dine"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DINE
+	.BYTE 0
+W?DINING::	.ZWORD "dining"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DINING
+	.BYTE 0
+W?DINNER::	.ZWORD "dinner"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DINNER
+	.BYTE 0
+W?DIRECTION::	.ZWORD "direct"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISCOVER::	.ZWORD "discov"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?DISGUISE::	.ZWORD "disgui"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISHES::	.ZWORD "dishes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISPLAY::	.ZWORD "displa"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+	.BYTE 0
+W?DO::	.ZWORD "do"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DO
+	.BYTE 0
+W?DOC'S::	.ZWORD "doc's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOC'S
+	.BYTE 0
+W?DOCTOR::	.ZWORD "doctor"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOCTOR
+	.BYTE 0
+W?DOFF::	.ZWORD "doff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+	.BYTE 0
+W?DOG::	.ZWORD "dog"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOG
+	.BYTE 0
+W?DON::	.ZWORD "don"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+	.BYTE 0
+W?DOOR::	.ZWORD "door"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOOR
+	.BYTE 0
+W?DOORBELL::	.ZWORD "doorbe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOUBLE::	.ZWORD "double"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOUBLE
+	.BYTE 0
+W?DOWN::	.ZWORD "down"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 22
+	.BYTE PR?DOWN
+W?DOWNSTAIRS::	.ZWORD "downst"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 22
+	.BYTE PR?DOWN
+W?DR::	.ZWORD "dr"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DR
+	.BYTE 0
+W?DRAGON::	.ZWORD "dragon"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRAGON
+	.BYTE 0
+W?DRAIN::	.ZWORD "drain"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMPTY
+	.BYTE 0
+W?DRAWER::	.ZWORD "drawer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRAWING::	.ZWORD "drawin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRAWING
+	.BYTE 0
+W?DRESS::	.ZWORD "dress"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?DRESS
+	.BYTE 0
+W?DRESSE::	.ZWORD "dresse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRESSING::	.ZWORD "dressi"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRESSING
+	.BYTE 0
+W?DRINK::	.ZWORD "drink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?DRIVE::	.ZWORD "drive"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRIVE
+	.BYTE ACT?HEAD
+W?DRIVEWAY::	.ZWORD "drivew"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DROP::	.ZWORD "drop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?DROWNING::	.ZWORD "drowni"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DUNGEON::	.ZWORD "dungeo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?E::	.ZWORD "e"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 29
+	.BYTE A?EAST
+W?EARRING::	.ZWORD "earrin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EASEL::	.ZWORD "easel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EAST::	.ZWORD "east"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 29
+	.BYTE A?EAST
+W?EAT::	.ZWORD "eat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?EIGHT::	.ZWORD "eight"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?EIGHT
+	.BYTE 0
+W?ELEVEN::	.ZWORD "eleven"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ELEVEN
+	.BYTE 0
+W?EMPTY::	.ZWORD "empty"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMPTY
+	.BYTE 0
+W?END::	.ZWORD "end"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ENGAGE::	.ZWORD "engage"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ENTER::	.ZWORD "enter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENTER
+	.BYTE 0
+W?ENTRANCE::	.ZWORD "entran"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EVIDENCE::	.ZWORD "eviden"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EXAMINE::	.ZWORD "examin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?EXCEPT::	.ZWORD "except"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?EXCEPT
+	.BYTE 0
+W?EXCUSE::	.ZWORD "excuse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FORGIVE
+	.BYTE 0
+W?EXERCISE::	.ZWORD "exerci"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EXERCISE
+	.BYTE 0
+W?EXIT::	.ZWORD "exit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?EXPLAIN::	.ZWORD "explai"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXPLAIN
+	.BYTE 0
+W?EXPLORE::	.ZWORD "explor"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?EYE::	.ZWORD "eye"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EYES::	.ZWORD "eyes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?F.C::	.ZWORD "f.c"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?F.C
+	.BYTE 0
+W?F.N::	.ZWORD "f.n"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?F.N
+	.BYTE 0
+W?FAINT::	.ZWORD "faint"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+	.BYTE 0
+W?FAMILY::	.ZWORD "family"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FAMILY
+	.BYTE 0
+W?FAVORITE::	.ZWORD "favori"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FAVORITE
+	.BYTE 0
+W?FEEL::	.ZWORD "feel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?FENDER::	.ZWORD "fender"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIDDLE::	.ZWORD "fiddle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIDDLE
+	.BYTE 0
+W?FIFTY::	.ZWORD "fifty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FIFTY
+	.BYTE 0
+W?FIGHT::	.ZWORD "fight"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?FIGHTING::	.ZWORD "fighti"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FIGHTING
+	.BYTE 0
+W?FIGURE::	.ZWORD "figure"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIGURINE::	.ZWORD "figuri"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FILL::	.ZWORD "fill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FILL
+	.BYTE 0
+W?FIND::	.ZWORD "find"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?FIRE::	.ZWORD "fire"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FIRE
+	.BYTE ACT?FIRE
+W?FIREPLACE::	.ZWORD "firepl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIRST::	.ZWORD "first"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FIRST
+	.BYTE 0
+W?FIVE::	.ZWORD "five"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FIVE
+	.BYTE 0
+W?FIX::	.ZWORD "fix"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?FLIP::	.ZWORD "flip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?FLIRT::	.ZWORD "flirt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONSOLE
+	.BYTE 0
+W?FLOOD::	.ZWORD "flood"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FLOOD
+	.BYTE ACT?FILL
+W?FLOOR::	.ZWORD "floor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOLLOW::	.ZWORD "follow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?FONT::	.ZWORD "font"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOOD::	.ZWORD "food"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOR::	.ZWORD "for"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?FOR
+	.BYTE 0
+W?FORDYCE::	.ZWORD "fordyc"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FORDYCE
+	.BYTE 0
+W?FORGIVE::	.ZWORD "forgiv"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FORGIVE
+	.BYTE 0
+W?FORMAL::	.ZWORD "formal"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FORMAL
+	.BYTE 0
+W?FORTY::	.ZWORD "forty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FORTY
+	.BYTE 0
+W?FOSSIL::	.ZWORD "fossil"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FOSSIL
+	.BYTE 0
+W?FOUNTAIN::	.ZWORD "founta"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOUR::	.ZWORD "four"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FOUR
+	.BYTE 0
+W?FOURTH::	.ZWORD "fourth"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FOURTH
+	.BYTE 0
+W?FOYER::	.ZWORD "foyer"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FOYER
+	.BYTE 0
+W?FRESHEN::	.ZWORD "freshe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?FROM::	.ZWORD "from"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?FROM
+	.BYTE 0
+W?FRONT::	.ZWORD "front"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FRONT
+	.BYTE 0
+W?FUCK::	.ZWORD "fuck"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FUCK
+	.BYTE 0
+W?FUCKED::	.ZWORD "fucked"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FUCKED
+	.BYTE 0
+W?FUCKING::	.ZWORD "fuckin"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FUCKING
+	.BYTE 0
+W?FUDGE::	.ZWORD "fudge"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FUDGE
+	.BYTE 0
+W?FULL::	.ZWORD "full"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FULL
+	.BYTE 0
+W?FULL-LENGTH::	.ZWORD "full-l"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FULL-LENGTH
+	.BYTE 0
+W?G::	.ZWORD "g"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?G
+	.BYTE 0
+W?G'S::	.ZWORD "g's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?G'S
+	.BYTE 0
+W?GAB::	.ZWORD "gab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?GALLERY::	.ZWORD "galler"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GALLERY
+	.BYTE 0
+W?GAME::	.ZWORD "game"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GAME
+	.BYTE 0
+W?GAME-ROOM::	.ZWORD "game-r"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GAME-ROOM
+	.BYTE 0
+W?GARDEN::	.ZWORD "garden"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GARGOYLE::	.ZWORD "gargoy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GATE::	.ZWORD "gate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAZE::	.ZWORD "gaze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?GEAR::	.ZWORD "gear"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GEM::	.ZWORD "gem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GET::	.ZWORD "get"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GET
+	.BYTE 0
+W?GHOST::	.ZWORD "ghost"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GHOST
+	.BYTE 0
+W?GIVE::	.ZWORD "give"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?GLADYS::	.ZWORD "gladys"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GLADYS
+	.BYTE 0
+W?GLASS::	.ZWORD "glass"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GLASS
+	.BYTE 0
+W?GO::	.ZWORD "go"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?GODDAMN::	.ZWORD "goddam"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?GODDAMN
+	.BYTE 0
+W?GONG::	.ZWORD "gong"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GOWN::	.ZWORD "gown"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRAB::	.ZWORD "grab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?GREAT::	.ZWORD "great"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GREAT
+	.BYTE 0
+W?GREEN::	.ZWORD "green"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GREEN
+	.BYTE 0
+W?GREET::	.ZWORD "greet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?GREETINGS::	.ZWORD "greeti"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?GRILLWORK::	.ZWORD "grillw"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRIN::	.ZWORD "grin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?GROUND::	.ZWORD "ground"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GROUND
+	.BYTE 0
+W?GUESTS::	.ZWORD "guests"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUN::	.ZWORD "gun"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GUN
+	.BYTE 0
+W?HALL::	.ZWORD "hall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HALLAM::	.ZWORD "hallam"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HALLAM
+	.BYTE 0
+W?HALLWAY::	.ZWORD "hallwa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HAND::	.ZWORD "hand"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HAND
+	.BYTE 0
+W?HANDLE::	.ZWORD "handle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HANDS::	.ZWORD "hands"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HANG::	.ZWORD "hang"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HANG
+	.BYTE 0
+W?HAS::	.ZWORD "has"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HAS
+	.BYTE 0
+W?HASN::	.ZWORD "hasn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HASN
+	.BYTE 0
+W?HAUNTING::	.ZWORD "haunti"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HAVE::	.ZWORD "have"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HAVE
+	.BYTE 0
+W?HAVEN::	.ZWORD "haven"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HAVEN
+	.BYTE 0
+W?HE::	.ZWORD "he"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HE
+	.BYTE 0
+W?HEAD::	.ZWORD "head"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?HEDGE::	.ZWORD "hedge"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HEDGE
+	.BYTE 0
+W?HELL::	.ZWORD "hell"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HELL
+	.BYTE 0
+W?HELLO::	.ZWORD "hello"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HELMET::	.ZWORD "helmet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HELP::	.ZWORD "help"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HER::	.ZWORD "her"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HER
+	.BYTE 0
+W?HERE::	.ZWORD "here"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HERSELF::	.ZWORD "hersel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HI::	.ZWORD "hi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HIDDEN::	.ZWORD "hidden"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HIDDEN
+	.BYTE 0
+W?HIDE::	.ZWORD "hide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIDE
+	.BYTE 0
+W?HIDING::	.ZWORD "hiding"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HIDING
+	.BYTE 0
+W?HIM::	.ZWORD "him"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HIMSELF::	.ZWORD "himsel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HIS::	.ZWORD "his"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HIS
+	.BYTE 0
+W?HISTORY::	.ZWORD "histor"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HISTORY
+	.BYTE 0
+W?HIT::	.ZWORD "hit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUNCH
+	.BYTE 0
+W?HOBBY::	.ZWORD "hobby"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HOBBY
+	.BYTE 0
+W?HOLD::	.ZWORD "hold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HOLD
+	.BYTE 0
+W?HOLE::	.ZWORD "hole"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HONK::	.ZWORD "honk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?HORN::	.ZWORD "horn"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HORSE::	.ZWORD "horse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOUSE::	.ZWORD "house"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOW::	.ZWORD "how"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HOW
+	.BYTE 0
+W?HUG::	.ZWORD "hug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONSOLE
+	.BYTE 0
+W?HUNDRED::	.ZWORD "hundre"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HUNDRED
+	.BYTE 0
+W?HUNTING::	.ZWORD "huntin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HUNTING
+	.BYTE 0
+W?HURT::	.ZWORD "hurt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DAMAGE
+	.BYTE 0
+W?HYDE::	.ZWORD "hyde"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HYDE
+	.BYTE 0
+W?HYDE'S::	.ZWORD "hyde's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HYDE'S
+	.BYTE 0
+W?I::	.ZWORD "i"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?I
+	.BYTE 0
+W?IAN::	.ZWORD "ian"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?IAN
+	.BYTE 0
+W?IAN'S::	.ZWORD "ian's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?IAN'S
+	.BYTE 0
+W?IN::	.ZWORD "in"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 21
+	.BYTE PR?IN
+W?INDEED::	.ZWORD "indeed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?INDIAN::	.ZWORD "indian"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INK::	.ZWORD "ink"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?INK
+	.BYTE 0
+W?INKWELL::	.ZWORD "inkwel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INQUIRE::	.ZWORD "inquir"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?INSERT::	.ZWORD "insert"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLACE
+	.BYTE 0
+W?INSIDE::	.ZWORD "inside"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 21
+	.BYTE PR?IN
+W?INSPECT::	.ZWORD "inspec"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?INT.NUM::	.ZWORD "int.nu"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?INT.NUM
+	.BYTE 0
+W?INTO::	.ZWORD "into"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 21
+	.BYTE PR?IN
+W?INVENT::	.ZWORD "invent"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?I
+	.BYTE 0
+W?IRIS::	.ZWORD "iris"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?IRIS
+	.BYTE 0
+W?IRIS'S::	.ZWORD "iris's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?IRIS'S
+	.BYTE 0
+W?IRON::	.ZWORD "iron"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?IRON
+	.BYTE 0
+W?IS::	.ZWORD "is"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?IS
+	.BYTE 0
+W?ISN::	.ZWORD "isn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ISN
+	.BYTE 0
+W?IT::	.ZWORD "it"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JACK::	.ZWORD "jack"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JACK
+	.BYTE 0
+W?JACK'S::	.ZWORD "jack's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JACK'S
+	.BYTE 0
+W?JADE::	.ZWORD "jade"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JADE
+	.BYTE 0
+W?JEWEL::	.ZWORD "jewel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JEWELRY::	.ZWORD "jewelr"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JEWELRY
+	.BYTE 0
+W?JOURNAL::	.ZWORD "journa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JR::	.ZWORD "jr"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?JR
+	.BYTE 0
+W?JUMP::	.ZWORD "jump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?JUNCTION::	.ZWORD "juncti"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JUNIOR::	.ZWORD "junior"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?JUNIOR
+	.BYTE 0
+W?KEEP::	.ZWORD "keep"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KEYHOLE::	.ZWORD "keyhol"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KICK::	.ZWORD "kick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUNCH
+	.BYTE 0
+W?KILL::	.ZWORD "kill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MURDER
+	.BYTE 0
+W?KISS::	.ZWORD "kiss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONSOLE
+	.BYTE 0
+W?KIT::	.ZWORD "kit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KITCHEN::	.ZWORD "kitche"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?KITCHEN
+	.BYTE 0
+W?KNOB::	.ZWORD "knob"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KNOCK::	.ZWORD "knock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?L::	.ZWORD "l"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?L.N::	.ZWORD "l.n"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?L.N
+	.BYTE 0
+W?LAB::	.ZWORD "lab"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LAB
+	.BYTE 0
+W?LABORATORY::	.ZWORD "labora"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LABORATORY
+	.BYTE 0
+W?LADDER::	.ZWORD "ladder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LADY::	.ZWORD "lady"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LAMP::	.ZWORD "lamp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LANDING::	.ZWORD "landin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LANTERN::	.ZWORD "lanter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LAST::	.ZWORD "last"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LAST
+	.BYTE 0
+W?LAY::	.ZWORD "lay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLACE
+	.BYTE 0
+W?LEAP::	.ZWORD "leap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?LEAVE::	.ZWORD "leave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?LEGEND::	.ZWORD "legend"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LENS::	.ZWORD "lens"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LENS
+	.BYTE 0
+W?LENSES::	.ZWORD "lenses"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LET::	.ZWORD "let"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?LET
+	.BYTE 0
+W?LEVER::	.ZWORD "lever"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LI'S::	.ZWORD "li's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LI'S
+	.BYTE 0
+W?LIBRARY::	.ZWORD "librar"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LIBRARY
+	.BYTE 0
+W?LIE::	.ZWORD "lie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LIE
+	.BYTE 0
+W?LIFT::	.ZWORD "lift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?LIGHT::	.ZWORD "light"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?LIGHT
+	.BYTE 0
+W?LIGHTS::	.ZWORD "lights"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIKE::	.ZWORD "like"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?LIKE
+	.BYTE 0
+W?LIONEL::	.ZWORD "lionel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LIONEL
+	.BYTE 0
+W?LIQUID::	.ZWORD "liquid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LISTEN::	.ZWORD "listen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LISTEN
+	.BYTE 0
+W?LITTLE::	.ZWORD "little"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LITTLE
+	.BYTE 0
+W?LL::	.ZWORD "ll"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?LL
+	.BYTE 0
+W?LOCATE::	.ZWORD "locate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?LOCK::	.ZWORD "lock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOCK
+	.BYTE 0
+W?LOG::	.ZWORD "log"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOGOFF::	.ZWORD "logoff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?LOGOUT::	.ZWORD "logout"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?LONGUE::	.ZWORD "longue"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOOK::	.ZWORD "look"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?LOOKING::	.ZWORD "lookin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOOKING
+	.BYTE 0
+W?LOOSE::	.ZWORD "loose"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOOSE
+	.BYTE 0
+W?LORD::	.ZWORD "lord"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LORD
+	.BYTE 0
+W?LOUD::	.ZWORD "loud"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOUD
+	.BYTE 0
+W?LOUDSPEAKER::	.ZWORD "loudsp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOUNGE::	.ZWORD "lounge"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOVE::	.ZWORD "love"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOVE
+	.BYTE 0
+W?LUGGAGE::	.ZWORD "luggag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LUMBER::	.ZWORD "lumber"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LUMBER
+	.BYTE 0
+W?LYND::	.ZWORD "lynd"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LYND
+	.BYTE 0
+W?M::	.ZWORD "m"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?M
+	.BYTE 0
+W?MACHE::	.ZWORD "mache"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MACHE
+	.BYTE 0
+W?MADAM::	.ZWORD "madam"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MADAME::	.ZWORD "madame"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?MADAME
+	.BYTE 0
+W?MAGAZINE::	.ZWORD "magazi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAID::	.ZWORD "maid"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MAID
+	.BYTE 0
+W?MAID'S::	.ZWORD "maid's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MAID'S
+	.BYTE 0
+W?MAIDEN::	.ZWORD "maiden"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAN::	.ZWORD "man"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MAN
+	.BYTE 0
+W?MARRIAGE::	.ZWORD "marria"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MASTER::	.ZWORD "master"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MASTER
+	.BYTE 0
+W?MATCH::	.ZWORD "match"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COMPARE
+	.BYTE 0
+W?MAY::	.ZWORD "may"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?MAY
+	.BYTE 0
+W?MAZE::	.ZWORD "maze"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ME::	.ZWORD "me"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEDICAL::	.ZWORD "medica"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MEDICAL
+	.BYTE 0
+W?MEDITATE::	.ZWORD "medita"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?MEET::	.ZWORD "meet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MEET
+	.BYTE 0
+W?MIDPOINT::	.ZWORD "midpoi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MINE::	.ZWORD "mine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MY
+	.BYTE 0
+W?MINUTE::	.ZWORD "minute"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MIRROR::	.ZWORD "mirror"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MISS::	.ZWORD "miss"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MISS
+	.BYTE 0
+W?MISSING::	.ZWORD "missin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MISSING
+	.BYTE 0
+W?MIST::	.ZWORD "mist"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MISTER::	.ZWORD "mister"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MISTER
+	.BYTE 0
+W?MOLEST::	.ZWORD "molest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?MONTAGUE::	.ZWORD "montag"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MONTAGUE
+	.BYTE 0
+W?MOON::	.ZWORD "moon"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MOON
+	.BYTE 0
+W?MOONLIGHT::	.ZWORD "moonli"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MOONMIST::	.ZWORD "moonmi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MORRIS::	.ZWORD "morris"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MORRIS
+	.BYTE 0
+W?MOTOR::	.ZWORD "motor"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MOTOR
+	.BYTE 0
+W?MOVE::	.ZWORD "move"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+	.BYTE 0
+W?MR::	.ZWORD "mr"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MR
+	.BYTE 0
+W?MRS::	.ZWORD "mrs"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MRS
+	.BYTE 0
+W?MS::	.ZWORD "ms"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MS
+	.BYTE 0
+W?MURDER::	.ZWORD "murder"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MURDER
+	.BYTE 0
+W?MUSIC::	.ZWORD "music"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MUSTACHE::	.ZWORD "mustac"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MY::	.ZWORD "my"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MY
+	.BYTE 0
+W?MYSELF::	.ZWORD "myself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MYSTERY::	.ZWORD "myster"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?N::	.ZWORD "n"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 31
+	.BYTE A?NORTH
+W?NARROW::	.ZWORD "narrow"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NARROW
+	.BYTE 0
+W?NE::	.ZWORD "ne"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 30
+	.BYTE A?NE
+W?NECKLACE::	.ZWORD "neckla"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NEW::	.ZWORD "new"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NEW
+	.BYTE 0
+W?NICHOLAS::	.ZWORD "nichol"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NICHOLAS
+	.BYTE 0
+W?NIGHT::	.ZWORD "night"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NIGHT
+	.BYTE 0
+W?NIGHTS::	.ZWORD "nights"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NIGHTT::	.ZWORD "nightt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NINE::	.ZWORD "nine"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?NINE
+	.BYTE 0
+W?NO::	.ZWORD "no"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NOD::	.ZWORD "nod"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+	.BYTE 0
+W?NOPE::	.ZWORD "nope"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NORTH::	.ZWORD "north"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 31
+	.BYTE A?NORTH
+W?NORTHEAST::	.ZWORD "northe"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 30
+	.BYTE A?NE
+W?NORTHWEST::	.ZWORD "northw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 24
+	.BYTE A?NW
+W?NOTE::	.ZWORD "note"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NOTE
+	.BYTE 0
+W?NOTEBOOK::	.ZWORD "notebo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NOTES::	.ZWORD "notes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NOW::	.ZWORD "now"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?NOW
+	.BYTE 0
+W?NW::	.ZWORD "nw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 24
+	.BYTE A?NW
+W?OBSERVE::	.ZWORD "observ"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OBSERVE
+	.BYTE ACT?EXAMINE
+W?OCEAN::	.ZWORD "ocean"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OF::	.ZWORD "of"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?OF
+	.BYTE 0
+W?OFF::	.ZWORD "off"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OFF
+	.BYTE 0
+W?OFFER::	.ZWORD "offer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?OFFICE::	.ZWORD "office"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OFFICE
+	.BYTE 0
+W?OH::	.ZWORD "oh"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?OH
+	.BYTE 0
+W?OIL::	.ZWORD "oil"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OIL
+	.BYTE 0
+W?OK::	.ZWORD "ok"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?OKAY::	.ZWORD "okay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?OLD::	.ZWORD "old"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE 0
+W?OLD-FASHION::	.ZWORD "old-fa"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OLD-FASHION
+	.BYTE 0
+W?ON::	.ZWORD "on"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ON
+	.BYTE 0
+W?ONE::	.ZWORD "one"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ONE
+	.BYTE 0
+W?ONTO::	.ZWORD "onto"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ON
+	.BYTE 0
+W?OOPS::	.ZWORD "oops"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?OOPS
+	.BYTE 0
+W?OPEN::	.ZWORD "open"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?OPENING::	.ZWORD "openin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ORNAMENT::	.ZWORD "orname"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ORNAMENT
+	.BYTE 0
+W?ORNATE::	.ZWORD "ornate"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ORNATE
+	.BYTE 0
+W?OTHER::	.ZWORD "other"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OTHER
+	.BYTE 0
+W?OUT::	.ZWORD "out"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 20
+	.BYTE PR?OUT
+W?OUTFIT::	.ZWORD "outfit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OUTSIDE::	.ZWORD "outsid"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 20
+	.BYTE PR?OUT
+W?OVER::	.ZWORD "over"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OVER
+	.BYTE 0
+W?OVERST::	.ZWORD "overst"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OVERST
+	.BYTE 0
+W?OYSTER::	.ZWORD "oyster"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OYSTER
+	.BYTE 0
+W?PAD::	.ZWORD "pad"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAINT::	.ZWORD "paint"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PAINT
+	.BYTE 0
+W?PAINTING::	.ZWORD "painti"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PALE::	.ZWORD "pale"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PALE
+	.BYTE 0
+W?PANEL::	.ZWORD "panel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAPIER::	.ZWORD "papier"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PAPIER
+	.BYTE 0
+W?PARDON::	.ZWORD "pardon"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FORGIVE
+	.BYTE 0
+W?PARK::	.ZWORD "park"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STOP
+	.BYTE 0
+W?PASS::	.ZWORD "pass"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?PASSAGE::	.ZWORD "passag"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PASSAGE
+	.BYTE 0
+W?PATH::	.ZWORD "path"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAUSE::	.ZWORD "pause"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?PEARL::	.ZWORD "pearl"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PEARL
+	.BYTE 0
+W?PEARLS::	.ZWORD "pearls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEE::	.ZWORD "pee"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PEE
+	.BYTE 0
+W?PEEK::	.ZWORD "peek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?PEEKHOLE::	.ZWORD "peekho"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEEP::	.ZWORD "peep"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PEEP
+	.BYTE ACT?PEEP
+W?PEEPHOLE::	.ZWORD "peepho"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEER::	.ZWORD "peer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?PENTREATH::	.ZWORD "pentre"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PENTREATH
+	.BYTE 0
+W?PEW::	.ZWORD "pew"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEWS::	.ZWORD "pews"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PHANTOM::	.ZWORD "phanto"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PIANO::	.ZWORD "piano"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PICK::	.ZWORD "pick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PICK
+	.BYTE 0
+W?PICTURE::	.ZWORD "pictur"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PICTURE
+	.BYTE 0
+W?PIECE::	.ZWORD "piece"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PISS::	.ZWORD "piss"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PISS
+	.BYTE 0
+W?PLACE::	.ZWORD "place"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PLACE
+	.BYTE 0
+W?PLACES::	.ZWORD "places"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLASTIC::	.ZWORD "plasti"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PLASTIC
+	.BYTE 0
+W?PLATE::	.ZWORD "plate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLAY::	.ZWORD "play"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+	.BYTE 0
+W?PLEASE::	.ZWORD "please"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PLEASE
+	.BYTE 0
+W?POEM::	.ZWORD "poem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POINT::	.ZWORD "point"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?POND::	.ZWORD "pond"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PORCEL::	.ZWORD "porcel"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PORCEL
+	.BYTE 0
+W?PORTRAIT::	.ZWORD "portra"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POST::	.ZWORD "post"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POUR::	.ZWORD "pour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?PRAY::	.ZWORD "pray"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PRAY
+	.BYTE 0
+W?PRESS::	.ZWORD "press"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PRIEST::	.ZWORD "priest"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PRIEST
+	.BYTE 0
+W?PRINT::	.ZWORD "print"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PRINTS::	.ZWORD "prints"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROCEED::	.ZWORD "procee"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?PRY::	.ZWORD "pry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?PULL::	.ZWORD "pull"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?PULPIT::	.ZWORD "pulpit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PUNCH::	.ZWORD "punch"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PUNCH
+	.BYTE ACT?PUNCH
+W?PUNCHBOWL::	.ZWORD "punchb"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PURSUE::	.ZWORD "pursue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?PUSH::	.ZWORD "push"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PUT::	.ZWORD "put"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLACE
+	.BYTE 0
+W?Q::	.ZWORD "q"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?QUESTION::	.ZWORD "questi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?QUIT::	.ZWORD "quit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?RACK::	.ZWORD "rack"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RADIO::	.ZWORD "radio"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RAISE::	.ZWORD "raise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?RAP::	.ZWORD "rap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?RAPE::	.ZWORD "rape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?RATTLE::	.ZWORD "rattle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHAKE
+	.BYTE 0
+W?RE::	.ZWORD "re"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?RE
+	.BYTE 0
+W?READ::	.ZWORD "read"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?RECEIPT::	.ZWORD "receip"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RECLINE::	.ZWORD "reclin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RECLINE
+	.BYTE 0
+W?RECORD::	.ZWORD "record"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RED::	.ZWORD "red"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RED
+	.BYTE 0
+W?RELAX::	.ZWORD "relax"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?RELEASE::	.ZWORD "releas"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?REMOVE::	.ZWORD "remove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+	.BYTE 0
+W?REPAIR::	.ZWORD "repair"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?REPEL::	.ZWORD "repel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?REPLY::	.ZWORD "reply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?REQUEST::	.ZWORD "reques"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REQUEST
+	.BYTE 0
+W?RESPOND::	.ZWORD "respon"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?REST::	.ZWORD "rest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?RESTART::	.ZWORD "restar"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTART
+	.BYTE 0
+W?RESTORE::	.ZWORD "restor"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+	.BYTE 0
+W?RESUME::	.ZWORD "resume"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+	.BYTE 0
+W?RETURN::	.ZWORD "return"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?REVISION::	.ZWORD "revisi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?RH'S::	.ZWORD "rh's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RH'S
+	.BYTE 0
+W?RHINO::	.ZWORD "rhino"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RHINO
+	.BYTE 0
+W?RID::	.ZWORD "rid"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?RID
+	.BYTE 0
+W?RING::	.ZWORD "ring"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?ROLL-TOP::	.ZWORD "roll-t"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ROLL-TOP
+	.BYTE 0
+W?ROMANCE::	.ZWORD "romanc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROOF::	.ZWORD "roof"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROOM::	.ZWORD "room"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ROOM
+	.BYTE 0
+W?RUB::	.ZWORD "rub"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?RUG::	.ZWORD "rug"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RUN::	.ZWORD "run"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?S::	.ZWORD "s"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SOUTH
+	.BYTE 27
+W?SATIN::	.ZWORD "satin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SATIN
+	.BYTE 0
+W?SAVE::	.ZWORD "save"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAVE
+	.BYTE 0
+W?SAY::	.ZWORD "say"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?SCEPTRE::	.ZWORD "sceptr"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCONCE::	.ZWORD "sconce"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCOPE::	.ZWORD "scope"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCORE::	.ZWORD "score"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+	.BYTE 0
+W?SCRAPE::	.ZWORD "scrape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?SCRATCH::	.ZWORD "scratc"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?SCREAM::	.ZWORD "scream"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SCREW::	.ZWORD "screw"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SCREW
+	.BYTE 0
+W?SCRIPT::	.ZWORD "script"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCRIPT
+	.BYTE 0
+W?SCULPT::	.ZWORD "sculpt"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SCULPT
+	.BYTE 0
+W?SE::	.ZWORD "se"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 28
+	.BYTE A?SE
+W?SEA::	.ZWORD "sea"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEARCH::	.ZWORD "search"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?SEAT::	.ZWORD "seat"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEAT
+	.BYTE 0
+W?SECOND::	.ZWORD "second"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SECOND
+	.BYTE 0
+W?SECRET::	.ZWORD "secret"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SECRET
+	.BYTE 0
+W?SEE::	.ZWORD "see"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?SEIZE::	.ZWORD "seize"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?SENIOR::	.ZWORD "senior"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SENIOR
+	.BYTE 0
+W?SERIES::	.ZWORD "series"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SET::	.ZWORD "set"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLACE
+	.BYTE 0
+W?SETTING::	.ZWORD "settin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEVEN::	.ZWORD "seven"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SEVEN
+	.BYTE 0
+W?SHAKE::	.ZWORD "shake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHAKE
+	.BYTE 0
+W?SHALL::	.ZWORD "shall"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHALL
+	.BYTE 0
+W?SHARE::	.ZWORD "share"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHARE
+	.BYTE 0
+W?SHE::	.ZWORD "she"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHE
+	.BYTE 0
+W?SHELF::	.ZWORD "shelf"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHELL::	.ZWORD "shell"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHELVES::	.ZWORD "shelve"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIRT::	.ZWORD "shirt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIT::	.ZWORD "shit"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHIT
+	.BYTE 0
+W?SHITHEAD::	.ZWORD "shithe"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHITHEAD
+	.BYTE 0
+W?SHOOT::	.ZWORD "shoot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?SHOULD::	.ZWORD "should"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHOULD
+	.BYTE 0
+W?SHOUT::	.ZWORD "shout"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SHOVE::	.ZWORD "shove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?SHOW::	.ZWORD "show"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+	.BYTE 0
+W?SHUT::	.ZWORD "shut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHUT
+	.BYTE 0
+W?SIDE::	.ZWORD "side"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SIDE
+	.BYTE 0
+W?SIDEBOARD::	.ZWORD "sidebo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIGN::	.ZWORD "sign"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIGN
+	.BYTE 0
+W?SINK::	.ZWORD "sink"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIP::	.ZWORD "sip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?SIR::	.ZWORD "sir"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIT::	.ZWORD "sit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?SITTING::	.ZWORD "sittin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SITTING
+	.BYTE 0
+W?SIX::	.ZWORD "six"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SIX
+	.BYTE 0
+W?SIXTY::	.ZWORD "sixty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SIXTY
+	.BYTE 0
+W?SKELETON::	.ZWORD "skelet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SKETCH::	.ZWORD "sketch"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SKETCH
+	.BYTE 0
+W?SKIM::	.ZWORD "skim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?SKULL::	.ZWORD "skull"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SKY::	.ZWORD "sky"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SLAP::	.ZWORD "slap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUNCH
+	.BYTE 0
+W?SLEEP::	.ZWORD "sleep"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+	.BYTE 0
+W?SLIDE::	.ZWORD "slide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLIDE
+	.BYTE 0
+W?SLIDING::	.ZWORD "slidin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SLIDING
+	.BYTE 0
+W?SMALL::	.ZWORD "small"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE 0
+W?SMASH::	.ZWORD "smash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DAMAGE
+	.BYTE 0
+W?SMELL::	.ZWORD "smell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SMILE::	.ZWORD "smile"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?SNIFF::	.ZWORD "sniff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SNOOZE::	.ZWORD "snooze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+	.BYTE 0
+W?SOCKET::	.ZWORD "socket"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOME::	.ZWORD "some"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SOME
+	.BYTE 0
+W?SONG::	.ZWORD "song"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOON::	.ZWORD "soon"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SOON
+	.BYTE 0
+W?SORRY::	.ZWORD "sorry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SORRY
+	.BYTE 0
+W?SOUND::	.ZWORD "sound"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SOUND
+	.BYTE 0
+W?SOUTH::	.ZWORD "south"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 27
+	.BYTE A?SOUTH
+W?SOUTHEAST::	.ZWORD "southe"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 28
+	.BYTE A?SE
+W?SOUTHWEST::	.ZWORD "southw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 26
+	.BYTE A?SW
+W?SPACE::	.ZWORD "space"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPARE::	.ZWORD "spare"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SPARE
+	.BYTE 0
+W?SPEAK::	.ZWORD "speak"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?SPEAKER::	.ZWORD "speake"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPECK::	.ZWORD "speck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPIKE::	.ZWORD "spike"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPIKES::	.ZWORD "spikes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPILL::	.ZWORD "spill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?SPIRIT::	.ZWORD "spirit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPORTS::	.ZWORD "sports"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SPORTS
+	.BYTE 0
+W?SPRAY::	.ZWORD "spray"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?SR::	.ZWORD "sr"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SR
+	.BYTE 0
+W?STAB::	.ZWORD "stab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MURDER
+	.BYTE 0
+W?STAINED::	.ZWORD "staine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STAINED
+	.BYTE 0
+W?STAIR::	.ZWORD "stair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIRS::	.ZWORD "stairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIRW::	.ZWORD "stairw"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STALK::	.ZWORD "stalk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?STAND::	.ZWORD "stand"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+	.BYTE 0
+W?STARE::	.ZWORD "stare"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PEEP
+	.BYTE 0
+W?START::	.ZWORD "start"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+	.BYTE 0
+W?STARTLE::	.ZWORD "startl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?STATE::	.ZWORD "state"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?STATUE::	.ZWORD "statue"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAY::	.ZWORD "stay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?STEAL::	.ZWORD "steal"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?STEER::	.ZWORD "steer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?STEP::	.ZWORD "step"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?STONE::	.ZWORD "stone"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STONE
+	.BYTE 0
+W?STOOL::	.ZWORD "stool"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STOP::	.ZWORD "stop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STOP
+	.BYTE 0
+W?STOREY::	.ZWORD "storey"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STOREY
+	.BYTE 0
+W?STORY::	.ZWORD "story"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STORY
+	.BYTE 0
+W?STRING::	.ZWORD "string"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STRIP::	.ZWORD "strip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+	.BYTE 0
+W?STUDY::	.ZWORD "study"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STUDY
+	.BYTE 0
+W?STUFFED::	.ZWORD "stuffe"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STUFFED
+	.BYTE 0
+W?SUCK::	.ZWORD "suck"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SUCK
+	.BYTE 0
+W?SUCKS::	.ZWORD "sucks"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SUCKS
+	.BYTE 0
+W?SUIT::	.ZWORD "suit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUITCASE::	.ZWORD "suitca"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUMMON::	.ZWORD "summon"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CALL
+	.BYTE 0
+W?SUNKEN::	.ZWORD "sunken"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SUNKEN
+	.BYTE 0
+W?SUPERBRIEF::	.ZWORD "superb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPERBRIEF
+	.BYTE 0
+W?SUPPLIES::	.ZWORD "suppli"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SURE::	.ZWORD "sure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?SURPRISE::	.ZWORD "surpri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?SW::	.ZWORD "sw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 26
+	.BYTE A?SW
+W?SWALLOW::	.ZWORD "swallo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?SWEATS::	.ZWORD "sweats"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SWIM::	.ZWORD "swim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?SWING::	.ZWORD "swing"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?SWITCH::	.ZWORD "switch"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?T::	.ZWORD "t"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?T
+	.BYTE 0
+W?TABLE::	.ZWORD "table"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TABLE
+	.BYTE 0
+W?TAKE::	.ZWORD "take"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?TALK::	.ZWORD "talk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?TALL::	.ZWORD "tall"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TALL
+	.BYTE 0
+W?TALLBOY::	.ZWORD "tallbo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TAM'S::	.ZWORD "tam's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TAM'S
+	.BYTE 0
+W?TAMARA::	.ZWORD "tamara"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TAMARA
+	.BYTE 0
+W?TAMMY::	.ZWORD "tammy"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TAMMY
+	.BYTE 0
+W?TAPE::	.ZWORD "tape"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TAPE
+	.BYTE 0
+W?TAPESTRY::	.ZWORD "tapest"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TASTE::	.ZWORD "taste"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?TELESCOPE::	.ZWORD "telesc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TELEVI::	.ZWORD "televi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TELL::	.ZWORD "tell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+	.BYTE 0
+W?TEN::	.ZWORD "ten"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TEN
+	.BYTE 0
+W?TEST::	.ZWORD "test"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHECK
+	.BYTE 0
+W?TEXT::	.ZWORD "text"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TEXTS::	.ZWORD "texts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THANK::	.ZWORD "thank"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANKS
+	.BYTE 0
+W?THANKS::	.ZWORD "thanks"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANKS
+	.BYTE 0
+W?THAT::	.ZWORD "that"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THAT
+	.BYTE 0
+W?THE::	.ZWORD "the"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THE
+	.BYTE 0
+W?THEN::	.ZWORD "then"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THEN
+	.BYTE 0
+W?THERE::	.ZWORD "there"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THERE
+	.BYTE 0
+W?THEY::	.ZWORD "they"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THEY
+	.BYTE 0
+W?THIRD::	.ZWORD "third"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?THIRD
+	.BYTE 0
+W?THIRTY::	.ZWORD "thirty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THIRTY
+	.BYTE 0
+W?THIS::	.ZWORD "this"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?THIS
+	.BYTE 0
+W?THOUSAND::	.ZWORD "thousa"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THOUSAND
+	.BYTE 0
+W?THREAT::	.ZWORD "threat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THREE::	.ZWORD "three"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THREE
+	.BYTE 0
+W?THROUGH::	.ZWORD "throug"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?THROUGH
+	.BYTE 0
+W?THROW::	.ZWORD "throw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?THRU::	.ZWORD "thru"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?THROUGH
+	.BYTE 0
+W?TILL::	.ZWORD "till"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNTIL
+	.BYTE 0
+W?TIME::	.ZWORD "time"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIME
+	.BYTE 0
+W?TIMER::	.ZWORD "timer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TINY::	.ZWORD "tiny"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TINY
+	.BYTE 0
+W?TO::	.ZWORD "to"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TO
+	.BYTE 0
+W?TOILET::	.ZWORD "toilet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOMB::	.ZWORD "tomb"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOOT::	.ZWORD "toot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?TOP::	.ZWORD "top"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TOP
+	.BYTE 0
+W?TOSS::	.ZWORD "toss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?TOUCH::	.ZWORD "touch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?TOURIST::	.ZWORD "touris"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TOURIST
+	.BYTE 0
+W?TOWARD::	.ZWORD "toward"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TO
+	.BYTE 0
+W?TOWER::	.ZWORD "tower"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TOWER
+	.BYTE 0
+W?TRAY::	.ZWORD "tray"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRAYS::	.ZWORD "trays"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TREASURE::	.ZWORD "treasu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRESYLLIAN::	.ZWORD "tresyl"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TRESYLLIAN
+	.BYTE 0
+W?TRY::	.ZWORD "try"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TRY
+	.BYTE 0
+W?TUB::	.ZWORD "tub"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TUG::	.ZWORD "tug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?TURN::	.ZWORD "turn"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?TURNS::	.ZWORD "turns"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TURRET::	.ZWORD "turret"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TV::	.ZWORD "tv"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TWEED::	.ZWORD "tweed"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TWEED
+	.BYTE 0
+W?TWEEDS::	.ZWORD "tweeds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TWELVE::	.ZWORD "twelve"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TWELVE
+	.BYTE 0
+W?TWENTY::	.ZWORD "twenty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TWENTY
+	.BYTE 0
+W?TWO::	.ZWORD "two"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TWO
+	.BYTE 0
+W?U::	.ZWORD "u"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 23
+	.BYTE PR?UP
+W?UMBRELLA::	.ZWORD "umbrel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UMBRELLA
+	.BYTE 0
+W?UNCLE::	.ZWORD "uncle"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UNCLE
+	.BYTE 0
+W?UNDER::	.ZWORD "under"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?UNDERNEATH::	.ZWORD "undern"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?UNDRESS::	.ZWORD "undres"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+	.BYTE 0
+W?UNICORN::	.ZWORD "unicor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNLOCK::	.ZWORD "unlock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNLOCK
+	.BYTE 0
+W?UNMASK::	.ZWORD "unmask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+	.BYTE 0
+W?UNPACK::	.ZWORD "unpack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMPTY
+	.BYTE 0
+W?UNSCRIPT::	.ZWORD "unscri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNSCRIPT
+	.BYTE 0
+W?UNTIL::	.ZWORD "until"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNTIL
+	.BYTE 0
+W?UP::	.ZWORD "up"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 23
+	.BYTE PR?UP
+W?UPSTAIRS::	.ZWORD "upstai"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?UPSTAIRS
+	.BYTE 23
+W?US::	.ZWORD "us"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?USE::	.ZWORD "use"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?USE
+	.BYTE 0
+W?USING::	.ZWORD "using"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?VALUABLE::	.ZWORD "valuab"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VALUABLE
+	.BYTE 0
+W?VANE::	.ZWORD "vane"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VANE
+	.BYTE 0
+W?VARIATION::	.ZWORD "variat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?VASE::	.ZWORD "vase"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VASES::	.ZWORD "vases"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VE::	.ZWORD "ve"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?VE
+	.BYTE 0
+W?VERBOSE::	.ZWORD "verbos"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERBOSE
+	.BYTE 0
+W?VERSION::	.ZWORD "versio"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?VIV::	.ZWORD "viv"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VIV
+	.BYTE 0
+W?VIV'S::	.ZWORD "viv's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VIV'S
+	.BYTE 0
+W?VIVIEN::	.ZWORD "vivien"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VIVIEN
+	.BYTE 0
+W?VOICE::	.ZWORD "voice"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?W::	.ZWORD "w"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 25
+	.BYTE A?WEST
+W?WADE::	.ZWORD "wade"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?WAIT::	.ZWORD "wait"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?WAKE::	.ZWORD "wake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?WALK::	.ZWORD "walk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAD
+	.BYTE 0
+W?WALL::	.ZWORD "wall"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WALL
+	.BYTE 0
+W?WALLS::	.ZWORD "walls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WANT::	.ZWORD "want"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WANT
+	.BYTE 0
+W?WAR::	.ZWORD "war"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WAR
+	.BYTE 0
+W?WARDROBE::	.ZWORD "wardro"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WAS::	.ZWORD "was"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WAS
+	.BYTE 0
+W?WASH::	.ZWORD "wash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?WASN::	.ZWORD "wasn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WASN
+	.BYTE 0
+W?WASTE::	.ZWORD "waste"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MURDER
+	.BYTE 0
+W?WATCH::	.ZWORD "watch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WATCH
+	.BYTE 0
+W?WATER::	.ZWORD "water"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WATERCOLOR::	.ZWORD "waterc"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WATERCOLOR
+	.BYTE 0
+W?WAY::	.ZWORD "way"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WE::	.ZWORD "we"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEAPON::	.ZWORD "weapon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEAR::	.ZWORD "wear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+	.BYTE 0
+W?WELL::	.ZWORD "well"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WELLSHAFT::	.ZWORD "wellsh"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WENDISH::	.ZWORD "wendis"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WENDISH
+	.BYTE 0
+W?WERE::	.ZWORD "were"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WERE
+	.BYTE 0
+W?WEREN::	.ZWORD "weren"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WEREN
+	.BYTE 0
+W?WEST::	.ZWORD "west"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 25
+	.BYTE A?WEST
+W?WHAT::	.ZWORD "what"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHAT
+	.BYTE 0
+W?WHEN::	.ZWORD "when"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHEN
+	.BYTE 0
+W?WHERE::	.ZWORD "where"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHERE
+	.BYTE 0
+W?WHICH::	.ZWORD "which"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHICH
+	.BYTE 0
+W?WHISPER::	.ZWORD "whispe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?WHITE::	.ZWORD "white"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WHITE
+	.BYTE 0
+W?WHO::	.ZWORD "who"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHO
+	.BYTE 0
+W?WHY::	.ZWORD "why"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHY
+	.BYTE 0
+W?WIG::	.ZWORD "wig"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WINDOW::	.ZWORD "window"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WINDOW
+	.BYTE 0
+W?WINDSCREEN::	.ZWORD "windsc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WINDSHIELD::	.ZWORD "windsh"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WINE::	.ZWORD "wine"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WINE
+	.BYTE 0
+W?WING::	.ZWORD "wing"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WING
+	.BYTE 0
+W?WINK::	.ZWORD "wink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?WIPE::	.ZWORD "wipe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?WITCH::	.ZWORD "witch"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WITCH
+	.BYTE 0
+W?WITH::	.ZWORD "with"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?WOMAN::	.ZWORD "woman"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WOMAN
+	.BYTE 0
+W?WON::	.ZWORD "won"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WON
+	.BYTE 0
+W?WOOD::	.ZWORD "wood"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WOOD
+	.BYTE 0
+W?WOODEN::	.ZWORD "wooden"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WOODEN
+	.BYTE 0
+W?WOOL::	.ZWORD "wool"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WOOL
+	.BYTE 0
+W?WOOLEN::	.ZWORD "woolen"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WOOLEN
+	.BYTE 0
+W?WORM'S::	.ZWORD "worm's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WORM'S
+	.BYTE 0
+W?WOULD::	.ZWORD "would"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WOULD
+	.BYTE 0
+W?WOULDN::	.ZWORD "wouldn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WOULDN
+	.BYTE 0
+W?WRITE::	.ZWORD "write"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WRITE
+	.BYTE 0
+W?WRITING::	.ZWORD "writin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WRITING
+	.BYTE 0
+W?WYVERN::	.ZWORD "wyvern"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WYVERN
+	.BYTE 0
+W?X::	.ZWORD "x"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?Y::	.ZWORD "y"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YARD::	.ZWORD "yard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?YEAH::	.ZWORD "yeah"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YELL::	.ZWORD "yell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?YELLOW::	.ZWORD "yellow"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?YELLOW
+	.BYTE 0
+W?YEP::	.ZWORD "yep"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YES::	.ZWORD "yes"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YOU::	.ZWORD "you"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?YOUR::	.ZWORD "your"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MY
+	.BYTE 0
+W?YOURSELF::	.ZWORD "yourse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?YUP::	.ZWORD "yup"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?Z::	.ZWORD "z"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?ZERO::	.ZWORD "zero"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ZERO
+	.BYTE 0
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+	.ENDI
diff --git a/m5freq.xzap b/m5freq.xzap
new file mode 100644
index 0000000..d169e7f
--- /dev/null
+++ b/m5freq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;1294	648
+	.FSTR FSTR?2,", "	;769	770
+	.FSTR FSTR?3,"and "	;496	249
+	.FSTR FSTR?4,"you "	;486	244
+	.FSTR FSTR?5,". "	;385	386
+	.FSTR FSTR?6,"You "	;345	116
+	.FSTR FSTR?7,"that "	;330	111
+	.FSTR FSTR?8,"The "	;318	107
+	.FSTR FSTR?9,"to "	;312	313
+	.FSTR FSTR?10,"It's "	;265	54
+	.FSTR FSTR?11,"with "	;261	88
+	.FSTR FSTR?12,"of "	;228	229
+	.FSTR FSTR?13,"I "	;228	229
+	.FSTR FSTR?14,"your "	;210	71
+	.FSTR FSTR?15,"was "	;196	99
+	.FSTR FSTR?16,"There's "	;192	25
+	.FSTR FSTR?17,"in "	;179	180
+	.FSTR FSTR?18,"for "	;170	86
+	.FSTR FSTR?19,"can't "	;165	34
+	.FSTR FSTR?20,"don't "	;155	32
+	.FSTR FSTR?21,"is "	;149	150
+	.FSTR FSTR?22,"from "	;147	50
+	.FSTR FSTR?23,"about "	;132	34
+	.FSTR FSTR?24,"I'm "	;132	34
+	.FSTR FSTR?25,"just "	;120	41
+	.FSTR FSTR?26,"it "	;112	113
+	.FSTR FSTR?27,"something "	;112	15
+	.FSTR FSTR?28,"but "	;110	56
+	.FSTR FSTR?29,"her "	;108	55
+	.FSTR FSTR?30,"You're "	;105	16
+	.FSTR FSTR?31,"have "	;102	35
+	.FSTR FSTR?32,"ghost "	;100	26
+	.FSTR FSTR?33,"you're "	;96	17
+	.FSTR FSTR?34,"not "	;90	46
+	.FSTR FSTR?35,"Lionel's "	;90	11
+	.FSTR FSTR?36,"can "	;88	45
+	.FSTR FSTR?37,"this "	;87	30
+	.FSTR FSTR?38,"down "	;84	29
+	.FSTR FSTR?39,"This "	;84	22
+	.FSTR FSTR?40,"nothing "	;84	15
+	.FSTR FSTR?41,"Please "	;84	15
+	.FSTR FSTR?42,"are "	;82	42
+	.FSTR FSTR?43,"It "	;82	42
+	.FSTR FSTR?44,"secret "	;80	17
+	.FSTR FSTR?45,"figure "	;80	17
+	.FSTR FSTR?46,"one "	;78	40
+	.FSTR FSTR?47,"as "	;77	78
+	.FSTR FSTR?48,"That's "	;77	12
+	.FSTR FSTR?49,"Jack "	;76	20
+	.FSTR FSTR?50,"on "	;75	76
+	.FSTR FSTR?51,"But "	;75	26
+	.FSTR FSTR?52,"she "	;72	37
+	.FSTR FSTR?53,"all "	;72	37
+	.FSTR FSTR?54,"Your "	;72	19
+	.FSTR FSTR?55,"didn't "	;72	13
+	.FSTR FSTR?56,"see "	;70	36
+	.FSTR FSTR?57,"into "	;69	24
+	.FSTR FSTR?58,"find "	;69	24
+	.FSTR FSTR?59,"would "	;68	18
+	.FSTR FSTR?60,"looks "	;68	18
+	.FSTR FSTR?61,"his "	;66	34
+	.FSTR FSTR?62,"you've "	;66	12
+	.FSTR FSTR?63,"looking "	;66	12
+	.FSTR FSTR?64,"like "	;63	22
+	.FSTR FSTR?65,"know "	;63	22
+	.FSTR FSTR?66,"She "	;63	22
+	.FSTR FSTR?67,"at "	;62	63
+	.FSTR FSTR?68,"says"	;62	32
+	.FSTR FSTR?69,"has "	;62	32
+	.FSTR FSTR?70,"when "	;60	21
+	.FSTR FSTR?71,"what "	;60	21
+	.FSTR FSTR?72,"it's "	;60	16
+	.FSTR FSTR?73,"through "	;60	11
+	.FSTR FSTR?74,"you"	;59	60
+	.FSTR FSTR?75,"here"	;58	30
+	.FSTR FSTR?76,"says "	;57	20
+	.FSTR FSTR?77,"! "	;56	57
+	.FSTR FSTR?78,"too "	;56	29
+	.FSTR FSTR?79,"my "	;55	56
+	.FSTR FSTR?80,"dinner "	;55	12
+	.FSTR FSTR?81,"around "	;55	12
+	.FSTR FSTR?82,"want "	;54	19
+	.FSTR FSTR?83,"time "	;54	19
+	.FSTR FSTR?84,"look "	;54	19
+	.FSTR FSTR?85,"Lionel "	;54	10
+	.FSTR FSTR?86,"door"	;52	27
+	.FSTR FSTR?87,"young "	;52	14
+	.FSTR FSTR?88,"white "	;52	14
+	.FSTR FSTR?89,"think "	;52	14
+	.FSTR FSTR?90,"there "	;52	14
+	.FSTR FSTR?91,"seems "	;52	14
+	.FSTR FSTR?92,"right "	;52	14
+	.FSTR FSTR?93,"never "	;52	14
+	.FSTR FSTR?94,"dinner"	;52	14
+	.FSTR FSTR?95,"What "	;52	14
+	.FSTR FSTR?96,"out "	;50	26
+
+
+;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/m5pur.zap b/m5pur.zap
new file mode 100644
index 0000000..c22ed80
--- /dev/null
+++ b/m5pur.zap
@@ -0,0 +1,823 @@
+
+
+; PURE TABLES ARE DEFINED HERE
+
+PURTBL::
+
+PT?104::
+T?QWP1-TABLE::	.TABLE
+	25
+	W?AREN
+	W?COULDN
+	W?DIDN
+	W?DON
+	W?HASN
+	W?HAVEN
+	W?HE
+	W?I
+	W?I
+	W?I
+	W?I
+	W?ISN
+	W?IT
+	W?LET
+	W?SHE
+	W?SHOULD
+	W?THAT
+	W?THEY
+	W?WASN
+	W?WE
+	W?WE
+	W?WEREN
+	W?WON
+	W?WOULDN
+	W?YOU
+	.ENDT
+
+PT?204::
+T?QWP2-TABLE::	.TABLE
+	25
+	W?T
+	W?T
+	W?T
+	W?T
+	W?T
+	W?T
+	W?S
+	W?D
+	W?LL
+	W?M
+	W?VE
+	W?T
+	W?S
+	W?S
+	W?S
+	W?T
+	W?S
+	W?RE
+	W?T
+	W?RE
+	W?LL
+	W?T
+	W?T
+	W?T
+	W?RE
+	.ENDT
+
+PT?304::
+T?QUESTION-WORD-TABLE::	.TABLE
+	21
+	W?AM
+	W?ARE
+	W?CAN
+	W?COULD
+	W?DID
+	W?DO
+	W?HAS
+	W?HAVE
+	W?HOW
+	W?IS
+	W?LIKE
+	W?MAY
+	W?SHALL
+	W?SHOULD
+	W?WANT
+	W?WAS
+	W?WERE
+	W?WHEN
+	W?WHICH
+	W?WHY
+	W?WOULD
+	.ENDT
+
+PT?404::
+T?NUMBER-WORD-TABLE::	.TABLE
+	20
+	W?ZERO
+	W?ONE
+	W?TWO
+	W?THREE
+	W?FOUR
+	W?FIVE
+	W?SIX
+	W?SEVEN
+	W?EIGHT
+	W?NINE
+	W?TEN
+	W?ELEVEN
+	W?TWELVE
+	W?TWENTY
+	W?THIRTY
+	W?FORTY
+	W?FIFTY
+	W?SIXTY
+	W?HUNDRED
+	W?THOUSAND
+	.ENDT
+
+PT?504::
+T?NAUGHTY-WORD-TABLE::	.TABLE
+	25
+	W?ASSHOLE
+	W?BASTARD
+	W?BITCH
+	W?COCK
+	W?COCKSUCKER
+	W?CRAP
+	W?CUNT
+	W?CURSE
+	W?CUSS
+	W?DAMN
+	W?DAMNED
+	W?DARN
+	W?FUCK
+	W?FUCKED
+	W?FUCKING
+	W?FUDGE
+	W?GODDAMN
+	W?HELL
+	W?PEE
+	W?PISS
+	W?SCREW
+	W?SHIT
+	W?SHITHEAD
+	W?SUCK
+	W?SUCKS
+	.ENDT
+
+PT?105::
+T?TRAILS-ALONG::	.TABLE
+	4
+	STR?50
+	STR?51
+	STR?52
+	STR?53
+	.ENDT
+
+PT?205::
+T?HO-HUM::	.TABLE
+	2
+	STR?59
+	STR?60
+	.ENDT
+
+PT?305::
+T?WHO-CARES-VERB::	.TABLE
+	4
+	STR?5
+	STR?5
+	STR?71
+	STR?72
+	.ENDT
+
+PT?405::
+T?WHO-CARES-TBL::	.TABLE
+	4
+	STR?73
+	STR?74
+	STR?75
+	STR?76
+	.ENDT
+
+PT?106::
+T?MAIN-LINE::	.TABLE
+	0
+	GARDEN
+	P?OUT
+	P?IN
+	MAZE
+	P?OUT
+	P?EAST
+	COURTYARD
+	P?SOUTH
+	P?NORTH
+	FOYER
+	P?SOUTH
+	P?NORTH
+	GREAT-HALL
+	P?WEST
+	P?EAST
+	CORR-1
+	P?NORTH
+	P?SOUTH
+	DINING-ROOM
+	P?IN
+	P?OUT
+	BACKSTAIRS
+	P?DOWN
+	P?UP
+	KITCHEN
+	0
+	.ENDT
+
+PT?206::
+T?BED-LINE::	.TABLE
+	0
+	WEST-HALL
+	P?SOUTH
+	P?NW
+	GALLERY
+	P?NE
+	P?SOUTH
+	EAST-HALL
+	0
+	.ENDT
+
+PT?306::
+T?TOWER-LINE::	.TABLE
+	0
+	LOVER-PATH
+	P?IN
+	P?NW
+	DUNGEON
+	P?EAST
+	P?WEST
+	BASEMENT
+	P?UP
+	P?DOWN
+	JUNCTION
+	P?WEST
+	P?EAST
+	OLD-GREAT-HALL
+	P?UP
+	P?DOWN
+	CORR-2
+	P?UP
+	P?DOWN
+	CORR-3
+	P?UP
+	P?DOWN
+	DECK
+	0
+	.ENDT
+
+PT?406::
+T?PASS-LINE::	.TABLE
+	0
+	SECRET-LANDING-JACK
+	P?DOWN
+	P?WEST
+	PASSAGE-1
+	P?UP
+	P?DOWN
+	SECRET-LANDING-TAM
+	P?NORTH
+	P?SOUTH
+	SECRET-LANDING-LIB
+	P?EAST
+	P?WEST
+	SECRET-IAN-PASSAGE
+	P?EAST
+	P?WEST
+	HYDE-CLOSET
+	P?EAST
+	P?WEST
+	MIDPOINT
+	P?EAST
+	P?WEST
+	WENDISH-CORNER
+	P?EAST
+	P?NORTH
+	IRIS-CLOSET
+	P?SOUTH
+	P?NORTH
+	YOUR-CLOSET
+	P?DOWN
+	P?UP
+	DRAWING-CLOSET
+	0
+	.ENDT
+
+PT?506::
+T?TRANSFER-TABLE::	.TABLE
+	0
+	0
+	GREAT-HALL
+	GALLERY
+	CORR-1
+	JUNCTION
+	GREAT-HALL
+	GALLERY
+	GALLERY
+	GREAT-HALL
+	0
+	0
+	GALLERY
+	GREAT-HALL
+	YOUR-ROOM
+	YOUR-CLOSET
+	JUNCTION
+	CORR-1
+	JUNCTION
+	CORR-1
+	0
+	0
+	LIBRARY
+	SECRET-LANDING-LIB
+	YOUR-CLOSET
+	YOUR-ROOM
+	YOUR-CLOSET
+	YOUR-ROOM
+	SECRET-LANDING-LIB
+	LIBRARY
+	0
+	0
+	.ENDT
+
+PT?606::
+T?DIR-STRINGS::	.TABLE
+	P?SOUTH
+	STR?148
+	P?NORTH
+	STR?149
+	P?EAST
+	STR?150
+	P?WEST
+	STR?151
+	P?UP
+	STR?152
+	P?DOWN
+	STR?153
+	P?IN
+	STR?154
+	P?OUT
+	STR?155
+	P?SE
+	STR?156
+	P?NW
+	STR?157
+	P?SW
+	STR?158
+	P?NE
+	STR?159
+	0
+	.ENDT
+
+PT?706::
+T?GOAL-TABLES::	.TABLE
+	T?206
+	T?306
+	T?406
+	T?506
+	T?606
+	T?706
+	T?806
+	T?906
+	T?1006
+	T?1106
+	T?1206
+	.ENDT
+
+PT?806::
+T?TOUR-PATH::	.TABLE
+	FOYER
+	DRAWING-ROOM
+	GREAT-HALL
+	GALLERY
+	YOUR-ROOM
+	0
+	.ENDT
+
+PT?906::
+T?SEARCH-ROOMS::	.TABLE
+	19
+	OLD-GREAT-HALL
+	BASEMENT
+	STUDY
+	LIBRARY
+	OFFICE
+	LUMBER-ROOM
+	CHAPEL
+	GAME-ROOM
+	DECK
+	COURTYARD
+	MAZE
+	GARDEN
+	GALLERY
+	FOYER
+	DRAWING-ROOM
+	GREAT-HALL
+	SITTING-ROOM
+	DINING-ROOM
+	KITCHEN
+	.ENDT
+
+PT?107::
+T?QUESTIONERS::	.TABLE
+	.BYTE 9
+	.BYTE FRIEND
+	.BYTE BUTLER
+	.BYTE BUTLER
+	.BYTE DOCTOR
+	.BYTE OFFICER
+	.BYTE BUTLER
+	.BYTE DEB
+	.BYTE OFFICER
+	.BYTE BUTLER
+	.ENDT
+
+PT?207::
+T?CHARACTER-TABLE::	.TABLE
+	PLAYER
+	FRIEND
+	LORD
+	PAINTER
+	DOCTOR
+	OFFICER
+	DEALER
+	DEB
+	BUTLER
+	LOVER
+	GHOST-NEW
+	COUSIN
+	MAID
+	DRAGON
+	BUFFALO-HEAD
+	RHINO-HEAD
+	GHOST-OLD
+	.ENDT
+
+PT?307::
+T?GUEST-TABLE::	.TABLE
+	6
+	FRIEND
+	DEB
+	OFFICER
+	DOCTOR
+	DEALER
+	PAINTER
+	.ENDT
+
+PT?407::
+T?CHAR-ROOM-TABLE::	.TABLE
+	15
+	YOUR-ROOM
+	TAMARA-ROOM
+	JACK-ROOM
+	VIVIEN-ROOM
+	WENDISH-ROOM
+	IAN-ROOM
+	HYDE-ROOM
+	IRIS-ROOM
+	KITCHEN
+	LIMBO
+	LIMBO
+	DRAWING-ROOM
+	LIBRARY
+	SITTING-ROOM
+	BACKSTAIRS
+	.ENDT
+
+PT?507::
+T?LDESC-STRINGS::	.TABLE
+	25
+	STR?197
+	STR?198
+	STR?199
+	STR?200
+	0
+	STR?201
+	STR?202
+	STR?203
+	STR?204
+	STR?205
+	STR?206
+	STR?207
+	STR?208
+	STR?145
+	0
+	STR?209
+	STR?210
+	STR?211
+	STR?146
+	STR?212
+	STR?213
+	STR?214
+	STR?215
+	STR?216
+	STR?217
+	.ENDT
+
+PT?108::
+PT?208::	.TABLE
+	3
+	W?DOOR
+	W?CAR
+	CAR-DOOR-PSEUDO
+	.ENDT
+
+PT?308::	.TABLE
+	12
+	W?RADIO
+	0
+	RANDOM-PSEUDO
+	W?ARMS
+	W?TRESYLLIAN
+	BROCHURE-PSEUDO
+	W?CREST
+	W?TRESYLLIAN
+	BROCHURE-PSEUDO
+	W?CARVING
+	W?WOOD
+	BROCHURE-PSEUDO
+	.ENDT
+
+PT?408::
+T?PIANO-PIECES::	.TABLE
+	STR?233
+	STR?234
+	STR?235
+	STR?236
+	STR?237
+	STR?238
+	STR?239
+	STR?240
+	.ENDT
+
+PT?508::	.TABLE
+	12
+	W?VASE
+	W?PORCEL
+	BROCHURE-PSEUDO
+	W?VASES
+	W?PORCEL
+	BROCHURE-PSEUDO
+	W?SHELF
+	0
+	BROCHURE-PSEUDO
+	W?SHELVES
+	0
+	BROCHURE-PSEUDO
+	.ENDT
+
+PT?608::	.TABLE
+	3
+	W?SINK
+	W?KITCHEN
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?708::	.TABLE
+	18
+	W?BATH
+	W?MY
+	BATH-PSEUDO
+	W?TUB
+	W?BATH
+	BATH-PSEUDO
+	W?BATHTUB
+	W?MY
+	BATH-PSEUDO
+	W?TUB
+	W?MY
+	BATH-PSEUDO
+	W?TOILET
+	W?MY
+	TOILET-PSEUDO
+	W?SINK
+	W?MY
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?808::	.TABLE
+	6
+	W?BED
+	W?IRIS'S
+	BED-PSEUDO
+	W?BED
+	W?HER
+	BED-PSEUDO
+	.ENDT
+
+PT?908::	.TABLE
+	6
+	W?BED
+	W?DOC'S
+	BED-PSEUDO
+	W?BED
+	W?HIS
+	BED-PSEUDO
+	.ENDT
+
+PT?1008::	.TABLE
+	12
+	W?BOOK
+	0
+	RANDOM-PSEUDO
+	W?BOOKS
+	0
+	RANDOM-PSEUDO
+	W?BED
+	W?VIV'S
+	BED-PSEUDO
+	W?BED
+	W?HER
+	BED-PSEUDO
+	.ENDT
+
+PT?1108::	.TABLE
+	6
+	W?BED
+	W?IAN'S
+	BED-PSEUDO
+	W?BED
+	W?HIS
+	BED-PSEUDO
+	.ENDT
+
+PT?1208::	.TABLE
+	6
+	W?BED
+	W?HYDE'S
+	BED-PSEUDO
+	W?BED
+	W?HIS
+	BED-PSEUDO
+	.ENDT
+
+PT?109::	.TABLE
+	3
+	W?GEAR
+	0
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?209::	.TABLE
+	15
+	W?BED
+	W?JACK'S
+	BED-PSEUDO
+	W?BED
+	W?HIS
+	BED-PSEUDO
+	W?TV
+	W?COLOR
+	TV-PSEUDO
+	W?TELEVI
+	W?COLOR
+	TV-PSEUDO
+	W?CHAIR
+	W?OVERST
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?309::	.TABLE
+	6
+	W?PRINT
+	W?HUNTING
+	RANDOM-PSEUDO
+	W?PRINTS
+	W?HUNTING
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?409::	.TABLE
+	3
+	W?STOOL
+	W?TALL
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?509::	.TABLE
+	6
+	W?KIT
+	0
+	RANDOM-PSEUDO
+	W?MIRROR
+	W?HAND
+	DRESSING-MIRROR-F
+	.ENDT
+
+PT?609::	.TABLE
+	9
+	W?CAGE
+	W?ORNATE
+	CAGE-PSEUDO
+	W?CAGE
+	W?BIRD
+	CAGE-PSEUDO
+	W?HORSE
+	W?HOBBY
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?709::	.TABLE
+	15
+	W?ALTAR
+	0
+	RANDOM-PSEUDO
+	W?PULPIT
+	0
+	RANDOM-PSEUDO
+	W?FONT
+	0
+	RANDOM-PSEUDO
+	W?PEW
+	W?FAMILY
+	RANDOM-PSEUDO
+	W?PEWS
+	W?FAMILY
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?809::	.TABLE
+	24
+	W?TABLE
+	W?CARD
+	BILLIARD-PSEUDO
+	W?TABLE
+	W?BILLIARD
+	BILLIARD-PSEUDO
+	W?RACK
+	W?CUE
+	RANDOM-PSEUDO
+	W?CUE
+	0
+	RANDOM-PSEUDO
+	W?RACK
+	W?GUN
+	RANDOM-PSEUDO
+	W?GUN
+	0
+	RANDOM-PSEUDO
+	W?TRAY
+	W?ASH
+	RANDOM-PSEUDO
+	W?TRAYS
+	W?ASH
+	RANDOM-PSEUDO
+	.ENDT
+
+PT?111::
+T?COR-1::	.TABLE
+	P?EAST
+	P?WEST
+	CORR-1
+	JUNCTION
+	0
+	.ENDT
+
+PT?211::
+T?COR-2::	.TABLE
+	P?NORTH
+	P?SOUTH
+	GALLERY-CORNER
+	GALLERY
+	0
+	.ENDT
+
+PT?311::
+T?COR-4::	.TABLE
+	P?UP
+	P?DOWN
+	LUMBER-ROOM
+	TAMARA-ROOM
+	0
+	.ENDT
+
+PT?112::
+T?WING-STAIRS::	.TABLE
+	3
+	KITCHEN
+	GREAT-HALL
+	GALLERY
+	.ENDT
+
+PT?212::
+T?TOWER-STAIRS::	.TABLE
+	4
+	BASEMENT
+	OLD-GREAT-HALL
+	CORR-2
+	CORR-3
+	.ENDT
+
+PT?113::
+T?COLOR-WORDS::	.TABLE
+	4
+	W?YELLOW
+	W?RED
+	W?BLUE
+	W?GREEN
+	.ENDT
+
+PT?213::
+T?COLOR-ADJS::	.TABLE
+	4
+	A?YELLOW
+	A?RED
+	A?BLUE
+	A?GREEN
+	.ENDT
+
+PT?313::
+T?COLOR-LETTERS::	.TABLE
+	4
+	121
+	114
+	98
+	103
+	.ENDT
+
+PURTND::
+	.ENDI
diff --git a/m5str.zap b/m5str.zap
new file mode 100644
index 0000000..20e980a
--- /dev/null
+++ b/m5str.zap
@@ -0,0 +1,309 @@
+
+
+; STRINGS ARE DEFINED HERE
+
+STRBEG::
+
+	.GSTR STR?14,"PRSO"
+	.GSTR STR?25,"Step outside and say that!"
+	.GSTR STR?52," stays at your side."
+	.GSTR STR?97,"dressed"
+	.GSTR STR?176,"""I won't say what I think of her, but it rhymes with 'rich.'"""
+	.GSTR STR?250," a bunch of nasty-looking instruments"
+	.GSTR STR?259,"swing"
+	.GSTR STR?12,"Preaction"
+	.GSTR STR?44,"turn off"
+	.GSTR STR?45,"turn on"
+	.GSTR STR?90,"a sink"
+	.GSTR STR?132,"reach"
+	.GSTR STR?260,"Lord Jack's private study has rich mahogany furniture and hunting prints on the walls."
+	.GSTR STR?48,"extraordinary"
+	.GSTR STR?88,"attack"
+	.GSTR STR?107," Greet"
+	.GSTR STR?147,"too sleepy to listen"
+	.GSTR STR?155,"outer"
+	.GSTR STR?189," glasses for closeup art work"
+	.GSTR STR?212,"ignoring you"
+	.GSTR STR?265,"too small"
+	.GSTR STR?247," remember that you're not dressed"
+	.GSTR STR?264,"rusted shut"
+	.GSTR STR?272,"A ladder leads down, a passage leads east, and a walkway leads "
+	.GSTR STR?65,"off"
+	.GSTR STR?115,"look inside"
+	.GSTR STR?116,"look outside"
+	.GSTR STR?117,"look through"
+	.GSTR STR?118,"look up"
+	.GSTR STR?198,"sipping sherry"
+	.GSTR STR?162," the bedpost"
+	.GSTR STR?227,"Tall dark hedges surround you like walls, with walkways in all directions."
+	.GSTR STR?245," the remains of dinner"
+	.GSTR STR?270," the clapper"
+	.GSTR STR?276," the lips of the clasp are sprung apart"
+	.GSTR STR?16," (something).]
+"
+	.GSTR STR?43,"pick up"
+	.GSTR STR?46,"unusual"
+	.GSTR STR?111,"[You didn't say w"
+	.GSTR STR?161,"turn"
+	.GSTR STR?238,"sex"
+	.GSTR STR?23,"You ought to be ashamed of yourself!"
+	.GSTR STR?94,"dance"
+	.GSTR STR?139,"remove"
+	.GSTR STR?173,"Are there more girl sleuths like you in the States, my dear?"
+	.GSTR STR?202,"sobbing quietly"
+	.GSTR STR?236,"quar"
+	.GSTR STR?278,"on it"
+	.GSTR STR?21,"What charming language!"
+	.GSTR STR?33,"begin"
+	.GSTR STR?47,"interesting"
+	.GSTR STR?73,"n't appear interested"
+	.GSTR STR?81,"What a concept!"
+	.GSTR STR?127,"ou stop searching"
+	.GSTR STR?192," discovered a strand of fabric from her gown, snagged on a jagged bit of brickwork."
+	.GSTR STR?243,"This room is impeccably furnished, but it's too formal for relaxing.
+"
+	.GSTR STR?244,"The clockwork timer prevents it.
+"
+	.GSTR STR?246,"You peek in and see nothing interesting in there."
+	.GSTR STR?257,"Which direction do you want to go in?"
+	.GSTR STR?31,"noun"
+	.GSTR STR?92,"hurt"
+	.GSTR STR?223,"The dark stone turrets rise toward the misty sky.
+"
+	.GSTR STR?54,"feel a cold shiver run down your back."
+	.GSTR STR?57,"feel a cobweb brush your face."
+	.GSTR STR?74,"n't care"
+	.GSTR STR?125,"Rubbing"
+	.GSTR STR?138,"Before you unfasten even the first button, you decide that this isn't a good place to undress.
+"
+	.GSTR STR?151,"west"
+	.GSTR STR?9,"Not Here"
+	.GSTR STR?18,"FIND"
+	.GSTR STR?39,"identified the ghost"
+	.GSTR STR?140,"Reached"
+	.GSTR STR?150,"east"
+	.GSTR STR?178,"Tresyllian"
+	.GSTR STR?197,"dancing"
+	.GSTR STR?41,"drive"
+	.GSTR STR?105,"refuse"
+	.GSTR STR?112,"You think it over. There's no need to get violent.
+"
+	.GSTR STR?172,"Are you one of those brutally fascinating American private eyes?"
+	.GSTR STR?182,"The girl is a stylish London deb type. Her dark hair is cut boyishly short. Her height and figure would make her a perfect high-fashion model."
+	.GSTR STR?195,"The ghost only cackles in response.
+"
+	.GSTR STR?268,"The game room has a billiard table and card table, with various chairs and standing ash trays. On the wall are a cue rack, gun rack, and mounted heads of a rhino and a cape buffalo."
+	.GSTR STR?32,"[I assume you mean:"
+	.GSTR STR?77,"That's ridiculous!"
+	.GSTR STR?84,"look"
+	.GSTR STR?149,"north"
+	.GSTR STR?157,"northwest"
+	.GSTR STR?159,"northeast"
+	.GSTR STR?186,"examining objects"
+	.GSTR STR?255,"That's not the way to go up from here."
+	.GSTR STR?37,"verbose"
+	.GSTR STR?82,"Like, totally grody, for sure."
+	.GSTR STR?110,"kill"
+	.GSTR STR?124,"in"
+	.GSTR STR?229," an assortment of umbrellas"
+	.GSTR STR?254," an assortment of wine"
+	.GSTR STR?262," an assortment of jewelry"
+	.GSTR STR?60," is a waste of time."
+	.GSTR STR?120,"Pushing"
+	.GSTR STR?263,"The jewel is missing from its setting!"
+	.GSTR STR?104,"here"
+	.GSTR STR?133," to"
+	.GSTR STR?153,"downstairs"
+	.GSTR STR?208,"lounging and chatting"
+	.GSTR STR?10,"Actor"
+	.GSTR STR?19,"ask about"
+	.GSTR STR?50," walks a few steps behind."
+	.GSTR STR?53," walks along with you."
+	.GSTR STR?87," Ask"
+	.GSTR STR?122," in"
+	.GSTR STR?174,"You've seen that room, have you not?"
+	.GSTR STR?222,"""Yes, the oldest parts of the castle hold ancient secrets, some fascinating and some not."""
+	.GSTR STR?35,"superbrief"
+	.GSTR STR?136,"(The castle is south of here.)
+"
+	.GSTR STR?214,"playing the piano"
+	.GSTR STR?249,"lift"
+	.GSTR STR?1,"is"
+	.GSTR STR?22,"Computers aren't impressed by naughty words!"
+	.GSTR STR?24,"Hey, save that talk for the locker room!"
+	.GSTR STR?67,"locked"
+	.GSTR STR?91,"get in"
+	.GSTR STR?113,"standing up"
+	.GSTR STR?160,"Lionel's voice"
+	.GSTR STR?163,"stand up"
+	.GSTR STR?240,"oc"
+	.GSTR STR?271," into darkness.
+"
+	.GSTR STR?75," out a loud yawn"
+	.GSTR STR?179," a glimpse of a whitish figure from the rear"
+	.GSTR STR?232,"tug at"
+	.GSTR STR?280,"It's a strand of shiny black pearls, the rarest and most precious kind in the world!"
+	.GSTR STR?61,"closed"
+	.GSTR STR?213,"searching"
+	.GSTR STR?273,"The passage leads east and west into darkness.
+"
+	.GSTR STR?4,"empti"
+	.GSTR STR?15,"Container"
+	.GSTR STR?66,"open"
+	.GSTR STR?148,"south"
+	.GSTR STR?156,"southeast"
+	.GSTR STR?158,"southwest"
+	.GSTR STR?185,"""Dear me,"" he giggles nervously, ""I'm afraid you've found out my little secret! A lady friend, you see, begged me to shave off my mustache. I did so just before coming to Cornwall. But then I felt so naked without it, that I bought a hair piece until I could grow back my own.""
+"
+	.GSTR STR?230," introduces "
+	.GSTR STR?261,"move"
+	.GSTR STR?17,"locate"
+	.GSTR STR?68,"unlocked"
+	.GSTR STR?119,"unlock"
+	.GSTR STR?142,"appear"
+	.GSTR STR?203,"poised to attack"
+	.GSTR STR?204,"waiting patiently"
+	.GSTR STR?6,"kiss"
+	.GSTR STR?26,"And so's your old man!"
+	.GSTR STR?27,"I beg your pardon?"
+	.GSTR STR?252,"The stairs curve up to the right.
+"
+	.GSTR STR?253,"The stairs curve down to the left.
+"
+	.GSTR STR?55,"hear footsteps behind you, but no one is there."
+	.GSTR STR?56,"hear a door creak open... or was it the wind?"
+	.GSTR STR?58,"hear a scurrying sound underfoot."
+	.GSTR STR?69,"angry"
+	.GSTR STR?123,"There's not enough room.
+"
+	.GSTR STR?187,"studying colors"
+	.GSTR STR?226,"The thickening mist has made it too slippery.
+"
+	.GSTR STR?248,"There are bedrooms to the east and west. The gallery lies south."
+	.GSTR STR?258,"There's a telescope mounted on a swinging wall bracket near a small uncurtained window."
+	.GSTR STR?135,"not asleep"
+	.GSTR STR?169,"Is it a case that brings you to Cornwall?"
+	.GSTR STR?2,"has"
+	.GSTR STR?29,"AGAIN"
+	.GSTR STR?38,"arrested the villain"
+	.GSTR STR?85,"arrested"
+	.GSTR STR?102,"bang"
+	.GSTR STR?219,"""I can't say that I ever noticed her much.""
+"
+	.GSTR STR?137,"move around within"
+	.GSTR STR?154,"inner"
+	.GSTR STR?167,"Do you wish me to do so before I leave?"
+	.GSTR STR?177,"surveying his domain"
+	.GSTR STR?196,"long blonde hair"
+	.GSTR STR?36,"brief"
+	.GSTR STR?76," impatient"
+	.GSTR STR?143," gets in your way"
+	.GSTR STR?188,"She is a tall, tawny-haired woman of vintage beauty and uncertain age."
+	.GSTR STR?206,"preparing dinner"
+	.GSTR STR?210,"preparing to leave"
+	.GSTR STR?215,"following you"
+	.GSTR STR?224,"leave"
+	.GSTR STR?225,"do that to"
+	.GSTR STR?64,"on"
+	.GSTR STR?134,"""You're quite welcome, I'm sure.""
+"
+	.GSTR STR?164,"looking at you hopefully"
+	.GSTR STR?168,"Am I right in assuming that you are the well-known young American detective?"
+	.GSTR STR?181,"looking coy"
+	.GSTR STR?183,"looking debonair"
+	.GSTR STR?184,"looking muddled"
+	.GSTR STR?190,"awaiting orders"
+	.GSTR STR?193,"Can you see where I mean?"
+	.GSTR STR?200,"looking at you with suspicion"
+	.GSTR STR?217,"looking sleepy"
+	.GSTR STR?256,"start"
+	.GSTR STR?275,"It says, ""JUST PRESS THE BUTTON."""
+	.GSTR STR?78,"Surely you jest."
+	.GSTR STR?93,"too busy"
+	.GSTR STR?242,"play"
+	.GSTR STR?277,"too big"
+	.GSTR STR?5,"do"
+	.GSTR STR?7,"push"
+	.GSTR STR?59," won't help any."
+	.GSTR STR?89,"Ahhh! How refreshing!
+"
+	.GSTR STR?108," Apologize to"
+	.GSTR STR?51," trails along."
+	.GSTR STR?70,"peeved"
+	.GSTR STR?131,"smell"
+	.GSTR STR?199,"watching you"
+	.GSTR STR?20,"TELL ME ABOUT"
+	.GSTR STR?106,"accept"
+	.GSTR STR?128,"shoot"
+	.GSTR STR?152,"upstairs"
+	.GSTR STR?211,"deep in thought"
+	.GSTR STR?96," Wear"
+	.GSTR STR?103,"too far away"
+	.GSTR STR?130," Show"
+	.GSTR STR?141,"Enroute"
+	.GSTR STR?201,"walking along"
+	.GSTR STR?231,"in this room"
+	.GSTR STR?234,"duet"
+	.GSTR STR?266,"It portrays, in vividly glowing colors, Eve tempting Adam with the forbidden apple in the Garden of Eden."
+	.GSTR STR?63,"try to enter"
+	.GSTR STR?80,"Not bloody likely."
+	.GSTR STR?175,"hug"
+	.GSTR STR?3,"tri"
+	.GSTR STR?100,"empty"
+	.GSTR STR?146,"out cold"
+	.GSTR STR?269,"too heavy"
+	.GSTR STR?11,"Room (M-BEG)"
+	.GSTR STR?86," famous young detective"
+	.GSTR STR?121,"being worn"
+	.GSTR STR?170,"Have you a theory about the castle ghost?"
+	.GSTR STR?30,"verb"
+	.GSTR STR?79,"Don't be silly."
+	.GSTR STR?98,"on the floor"
+	.GSTR STR?99,"on the ground"
+	.GSTR STR?114,"a way to lock"
+	.GSTR STR?220,"""I'm shocked!""
+"
+	.GSTR STR?228," dark water"
+	.GSTR STR?235,"trio"
+	.GSTR STR?237,"quin"
+	.GSTR STR?13,"PRSI"
+	.GSTR STR?28,"OOPS"
+	.GSTR STR?34,"end"
+	.GSTR STR?40,"go"
+	.GSTR STR?71,"let"
+	.GSTR STR?101,"an opening in"
+	.GSTR STR?8,"Impatient"
+	.GSTR STR?83,"You can't be serious!"
+	.GSTR STR?165,"She's a beautiful red-haired young woman of average height."
+	.GSTR STR?221,"""Hmm... That certainly is interesting.""
+"
+	.GSTR STR?251," Vivien's brushes and thinner"
+	.GSTR STR?49,"special"
+	.GSTR STR?72,"seem"
+	.GSTR STR?144," says hello"
+	.GSTR STR?166,"You did read my letter, and not just give it a hasty glance?"
+	.GSTR STR?191,"He's a short white-haired gentle man, impeccably dressed tonight in white gloves and tails."
+	.GSTR STR?207,"listening to you"
+	.GSTR STR?209,"listening"
+	.GSTR STR?274," poison dart"
+	.GSTR STR?279,"You don't find anything new there.
+"
+	.GSTR STR?42,"wait until"
+	.GSTR STR?95,"undressed"
+	.GSTR STR?205,"eating with relish"
+	.GSTR STR?216,"brushing her hair"
+	.GSTR STR?241,"sit"
+	.GSTR STR?62,"take"
+	.GSTR STR?109,"nod"
+	.GSTR STR?145,"asleep"
+	.GSTR STR?180,"""Dashed if I'm going to have my digestion upset by Gladys's whining, the odious little twit!"
+	.GSTR STR?194,"lurking in the shadows"
+	.GSTR STR?218,"smile"
+	.GSTR STR?239,"sep"
+	.GSTR STR?267,"knock"
+	.GSTR STR?126," Say to"
+	.GSTR STR?129," Ask about"
+	.GSTR STR?171,"May I offer one last suggestion?"
+	.GSTR STR?233,"solo"
+
+	.ENDI
diff --git a/macros.zap b/macros.zap
new file mode 100644
index 0000000..a92e0b4
--- /dev/null
+++ b/macros.zap
@@ -0,0 +1,2 @@
+
+	.ENDI
diff --git a/misc.zap b/misc.zap
new file mode 100644
index 0000000..1d28322
--- /dev/null
+++ b/misc.zap
@@ -0,0 +1,349 @@
+
+
+	.FUNCT	GO
+START::
+
+?FCN:	CALL	V-VERSION
+	CALL	INTRO
+	CALL	MAIN-LOOP
+	JUMP	?FCN
+
+
+	.FUNCT	PRINTT,OBJ
+	EQUAL?	OBJ,TURN \?CCL3
+	LESS?	1,P-NUMBER \?CCL3
+	PRINTC	32
+	PRINTN	P-NUMBER
+	PRINTI	" minutes"
+	RTRUE	
+?CCL3:	EQUAL?	OBJ,WINDOW \?CCL9
+	PRINTI	" the window"
+	RTRUE	
+?CCL9:	CALL	THE?,OBJ
+	PRINTC	32
+	PRINTD	OBJ
+	RTRUE	
+
+
+	.FUNCT	THE?,OBJ
+	FSET?	OBJ,NARTICLEBIT /?CND1
+	IN?	OBJ,ROOMS /?PRG8
+	FSET?	OBJ,SEENBIT \?CCL5
+?PRG8:	PRINTI	" the"
+	JUMP	?CND1
+?CCL5:	FSET?	OBJ,VOWELBIT \?PRG14
+	PRINTI	" an"
+	JUMP	?CND1
+?PRG14:	PRINTI	" a"
+?CND1:	FSET	OBJ,SEENBIT
+	RTRUE	
+
+
+	.FUNCT	START-SENTENCE,OBJ
+	CALL	THIS-IS-IT,OBJ
+	EQUAL?	OBJ,PLAYER \?CCL3
+	PRINTI	"You"
+	RTRUE	
+?CCL3:	EQUAL?	OBJ,NIGHTLAMP \?CCL7
+	PRINTI	"Your lamp"
+	RTRUE	
+?CCL7:	EQUAL?	OBJ,LUGGAGE \?CCL11
+	PRINTI	"Your luggage"
+	RTRUE	
+?CCL11:	EQUAL?	OBJ,BED \?CCL15
+	PRINTI	"Your bed"
+	RTRUE	
+?CCL15:	EQUAL?	OBJ,YOUR-COLOR \?CCL19
+	PRINTI	"Your favorite color"
+	RTRUE	
+?CCL19:	EQUAL?	OBJ,YOUR-ROOM \?CCL23
+	PRINTI	"Your room"
+	RTRUE	
+?CCL23:	EQUAL?	OBJ,YOUR-BATHROOM \?CCL27
+	PRINTI	"Your bathroom"
+	RTRUE	
+?CCL27:	EQUAL?	OBJ,YOUR-CLOSET \?CCL31
+	PRINTI	"Your secret entrance"
+	RTRUE	
+?CCL31:	EQUAL?	OBJ,DINNER \?CND1
+	PRINTI	"Your dinner"
+	RTRUE	
+?CND1:	FSET?	OBJ,NARTICLEBIT /?CND37
+	FSET?	OBJ,SEENBIT \?CCL41
+	PRINTI	"The "
+	JUMP	?CND37
+?CCL41:	FSET?	OBJ,VOWELBIT \?PRG49
+	PRINTI	"An "
+	JUMP	?CND37
+?PRG49:	PRINTI	"A "
+?CND37:	FSET	OBJ,SEENBIT
+	PRINTD	OBJ
+	RTRUE	
+
+
+	.FUNCT	PRINTA,O
+	FSET?	O,NARTICLEBIT /?PRG11
+	FSET?	O,VOWELBIT \?PRG9
+	PRINTI	"an "
+	JUMP	?PRG11
+?PRG9:	PRINTI	"a "
+?PRG11:	PRINTD	O
+	RTRUE	
+
+
+	.FUNCT	THIS-IS-IT,OBJ
+	EQUAL?	OBJ,FALSE-VALUE,NOT-HERE-OBJECT,PLAYER /TRUE
+	EQUAL?	OBJ,INTDIR,GLOBAL-HERE,ROOMS /TRUE
+	EQUAL?	PRSA,V?WALK \?CND1
+	EQUAL?	OBJ,PRSO /TRUE
+?CND1:	FSET?	OBJ,PERSONBIT /?CCL11
+	GET	P-ADJW,NOW-PRSI
+	PUT	P-IT-WORDS,0,STACK
+	GET	P-NAMW,NOW-PRSI
+	PUT	P-IT-WORDS,1,STACK
+	FSET	IT,TOUCHBIT
+	SET	'P-IT-OBJECT,OBJ
+	RTRUE	
+?CCL11:	FSET?	OBJ,FEMALE \?CCL13
+	FSET	HER,TOUCHBIT
+	SET	'P-HER-OBJECT,OBJ
+	RTRUE	
+?CCL13:	FSET	HIM,TOUCHBIT
+	SET	'P-HIM-OBJECT,OBJ
+	RTRUE	
+
+
+	.FUNCT	NO-PRONOUN?,OBJ,CAP=0
+	EQUAL?	OBJ,PLAYER /FALSE
+	FSET?	OBJ,PERSONBIT /?CCL5
+	EQUAL?	OBJ,P-IT-OBJECT \?CND1
+	FSET?	IT,TOUCHBIT \?CND1
+	RFALSE	
+?CCL5:	FSET?	OBJ,FEMALE \?CCL11
+	EQUAL?	OBJ,P-HER-OBJECT \?CND1
+	FSET?	HER,TOUCHBIT \?CND1
+	RFALSE	
+?CCL11:	EQUAL?	OBJ,P-HIM-OBJECT \?CND1
+	FSET?	HIM,TOUCHBIT /FALSE
+?CND1:	ZERO?	CAP \?CCL22
+	CALL	PRINTT,OBJ
+	JUMP	?CND20
+?CCL22:	EQUAL?	CAP,1,TRUE-VALUE \?CND20
+	CALL	START-SENTENCE,OBJ
+?CND20:	CALL	THIS-IS-IT,OBJ
+	RTRUE	
+
+
+	.FUNCT	HE-SHE-IT,OBJ,CAP=0,VERB=0
+	CALL	NO-PRONOUN?,OBJ,CAP
+	ZERO?	STACK \?CND1
+	FSET?	OBJ,PERSONBIT /?CCL5
+	ZERO?	CAP \?CCL8
+	PRINTI	" it"
+	JUMP	?CND1
+?CCL8:	EQUAL?	CAP,1,TRUE-VALUE \?CND1
+	PRINTI	"It"
+	JUMP	?CND1
+?CCL5:	EQUAL?	OBJ,PLAYER \?CCL15
+	ZERO?	CAP \?CCL18
+	PRINTI	" you"
+	JUMP	?CND1
+?CCL18:	EQUAL?	CAP,1,TRUE-VALUE \?CND1
+	PRINTI	"You"
+	JUMP	?CND1
+?CCL15:	FSET?	OBJ,FEMALE \?CCL25
+	ZERO?	CAP \?CCL28
+	PRINTI	" she"
+	JUMP	?CND1
+?CCL28:	EQUAL?	CAP,1,TRUE-VALUE \?CND1
+	PRINTI	"She"
+	JUMP	?CND1
+?CCL25:	ZERO?	CAP \?CCL36
+	PRINTI	" he"
+	JUMP	?CND1
+?CCL36:	EQUAL?	CAP,1,TRUE-VALUE \?CND1
+	PRINTI	"He"
+?CND1:	ZERO?	VERB /FALSE
+	PRINTC	32
+	EQUAL?	OBJ,PLAYER \?PRG68
+	EQUAL?	VERB,STR?1 \?CCL51
+	PRINTI	"are"
+	RTRUE	
+?CCL51:	EQUAL?	VERB,STR?2 \?CCL55
+	PRINTI	"have"
+	RTRUE	
+?CCL55:	EQUAL?	VERB,STR?3 \?CCL59
+	PRINTI	"try"
+	RTRUE	
+?CCL59:	EQUAL?	VERB,STR?4 \?PRG66
+	PRINTI	"empty"
+	RTRUE	
+?PRG66:	PRINT	VERB
+	RTRUE	
+?PRG68:	PRINT	VERB
+	EQUAL?	VERB,STR?5,STR?6,STR?7 /?PRG74
+	EQUAL?	VERB,STR?3,STR?4 \?CND70
+?PRG74:	PRINTC	101
+?CND70:	EQUAL?	VERB,STR?1,STR?2 /FALSE
+	PRINTC	115
+	RTRUE	
+
+
+	.FUNCT	HIM-HER-IT,OBJ,CAP=0,POSSESS?=0
+	CALL	NO-PRONOUN?,OBJ,CAP
+	ZERO?	STACK /?CCL3
+	ZERO?	POSSESS? /TRUE
+	PRINTI	"'s"
+	RTRUE	
+?CCL3:	FSET?	OBJ,PERSONBIT /?CCL9
+	ZERO?	CAP \?PRG15
+	PRINTI	" it"
+	JUMP	?CND10
+?PRG15:	PRINTI	"It"
+?CND10:	ZERO?	POSSESS? /TRUE
+	PRINTC	115
+	RTRUE	
+?CCL9:	EQUAL?	OBJ,PLAYER \?CCL22
+	ZERO?	CAP \?PRG28
+	PRINTI	" you"
+	JUMP	?CND23
+?PRG28:	PRINTI	"You"
+?CND23:	ZERO?	POSSESS? /TRUE
+	PRINTC	114
+	RTRUE	
+?CCL22:	FSET?	OBJ,FEMALE \?CCL35
+	ZERO?	CAP \?PRG41
+	PRINTI	" her"
+	RTRUE	
+?PRG41:	PRINTI	"Her"
+	RTRUE	
+?CCL35:	ZERO?	POSSESS? /?CCL45
+	ZERO?	CAP \?PRG51
+	PRINTI	" his"
+	RTRUE	
+?PRG51:	PRINTI	"His"
+	RTRUE	
+?CCL45:	ZERO?	CAP \?PRG58
+	PRINTI	" him"
+	RTRUE	
+?PRG58:	PRINTI	"Him"
+	RTRUE	
+
+
+	.FUNCT	QUEUE,RTN,TICK,CINT
+	CALL	INT,RTN >CINT
+	PUT	CINT,C-TICK,TICK
+	PUT	CINT,C-ENABLED?,1
+	RETURN	CINT
+
+
+	.FUNCT	INT,RTN,DEMON=0,E,C,INT
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E \?CCL5
+	SUB	C-INTS,C-INTLEN >C-INTS
+	ADD	C-TABLE,C-INTS >INT
+	PUT	INT,C-RTN,RTN
+	RETURN	INT
+?CCL5:	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	RETURN	C
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	QUEUED?,RTN,C
+	CALL	INT,RTN >C
+	GET	C,C-ENABLED?
+	ZERO?	STACK /FALSE
+	GET	C,C-TICK
+	RSTACK	
+
+
+	.FUNCT	CLOCKER,C,E,TICK,FLG=0,VAL
+	ZERO?	CLOCK-WAIT /?CND1
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	RFALSE	
+?CND1:	IGRTR?	'PRESENT-TIME,1139 \?CND3
+	CALL	TIMES-UP
+?CND3:	IGRTR?	'MOVES,59 \?CND5
+	SET	'MOVES,0
+	IGRTR?	'SCORE,23 \?CND5
+	SET	'SCORE,0
+?CND5:	ADD	C-TABLE,C-INTS >C
+	ADD	C-TABLE,C-TABLELEN >E
+?PRG9:	EQUAL?	C,E \?CCL13
+	RETURN	FLG
+?CCL13:	GET	C,C-ENABLED?
+	ZERO?	STACK /?CND11
+	GET	C,C-TICK >TICK
+	ZERO?	TICK /?CND11
+	SUB	TICK,1
+	PUT	C,C-TICK,STACK
+	GRTR?	TICK,1 /?CND11
+	GET	C,C-RTN
+	CALL	STACK >VAL
+	ZERO?	VAL /?CND11
+	ZERO?	FLG /?CCL22
+	EQUAL?	VAL,M-FATAL \?CND11
+?CCL22:	SET	'FLG,VAL
+?CND11:	ADD	C,C-INTLEN >C
+	JUMP	?PRG9
+
+
+	.FUNCT	I-FOLLOW,GARG=0,FLG=0,CNT=0,GT,VAL=0
+?PRG1:	IGRTR?	'CNT,GHOST-NEW-C /?REP2
+	GET	GOAL-TABLES,CNT >GT
+	GET	GT,GOAL-S
+	ZERO?	STACK /?PRG1
+	GET	GT,GOAL-ENABLE
+	ZERO?	STACK /?PRG1
+	GET	CHARACTER-TABLE,CNT
+	CALL	FOLLOW-GOAL,STACK >VAL
+	ZERO?	VAL /?PRG1
+	EQUAL?	FLG,M-FATAL /?PRG1
+	SET	'FLG,VAL
+	JUMP	?PRG1
+?REP2:	RETURN	FLG
+
+
+	.FUNCT	I-ATTENTION,GARG=0,FLG=0,CNT=0,ATT,GT,PER,RM
+?PRG1:	IGRTR?	'CNT,GHOST-NEW-C /?REP2
+	GET	GOAL-TABLES,CNT >GT
+	GET	GT,ATTENTION >ATT
+	GRTR?	ATT,0 \?PRG1
+	DEC	'ATT
+	GET	CHARACTER-TABLE,CNT >PER
+	EQUAL?	PER,CONFESSED,CAPTOR,FOLLOWER /?PRG1
+	SET	'GOAL-PERSON,PER
+	ZERO?	ATT \?CCL11
+	LESS?	BED-TIME,PRESENT-TIME /?CTR13
+	GET	GT,GOAL-FUNCTION
+	EQUAL?	STACK,X-RETIRES \?CCL14
+?CTR13:	ADD	1,CNT
+	GET	CHAR-ROOM-TABLE,STACK >RM
+	IN?	PER,RM \?CCL19
+	CALL	GOODNIGHT,RM,PER
+	JUMP	?CND9
+?CCL19:	PUT	GT,GOAL-FUNCTION,X-RETIRES
+	CALL	ESTABLISH-GOAL,PER,RM
+	JUMP	?CND9
+?CCL14:	GET	GT,GOAL-QUEUED >RM
+	ZERO?	RM /?CCL21
+	PUT	GT,GOAL-QUEUED,0
+	CALL	ESTABLISH-GOAL,PER,RM
+	JUMP	?CND9
+?CCL21:	PUTP	PER,P?LDESC,17
+	PUT	GT,GOAL-ENABLE,1
+	JUMP	?CND9
+?CCL11:	EQUAL?	ATT,1 \?CND9
+	IN?	PER,HERE \?CND9
+	GET	GT,GOAL-FUNCTION
+	CALL	D-APPLY,STR?8,STACK,G-IMPATIENT
+	ZERO?	STACK /?CND9
+	SET	'FLG,TRUE-VALUE
+?CND9:	PUT	GT,ATTENTION,ATT
+	JUMP	?PRG1
+?REP2:	RETURN	FLG
+
+	.ENDI
diff --git a/misc.zil b/misc.zil
new file mode 100644
index 0000000..35506d6
--- /dev/null
+++ b/misc.zil
@@ -0,0 +1,362 @@
+"MISC for MOONMIST
+Copyright (c) 1986 Infocom, Inc.  All rights reserved."
+
+<ROUTINE GO ()
+	;<SETG WINNER ,PLAYER>
+	;<START-MOVEMENT>
+	<V-VERSION>
+	<INTRO>
+	<MAIN-LOOP>
+	<AGAIN>>
+
+<ROUTINE PRINTT (OBJ)	;"THE"
+	<COND (<AND <EQUAL? .OBJ ,TURN> <L? 1 ,P-NUMBER>>
+	       <TELL !\  N ,P-NUMBER " minutes">)
+	      (<EQUAL? .OBJ ,WINDOW>
+	       <TELL " the window">)
+	      ;(<AND <EQUAL? .OBJ ,P-IT-OBJECT>
+		    <FSET? ,IT ,TOUCHBIT>>
+	       <TELL " it">
+	       <RTRUE>)
+	      (T
+	       <THE? .OBJ>
+	       <TELL !\  D .OBJ>)>
+	;<THIS-IS-IT .OBJ>>
+
+<ROUTINE THE? (OBJ)
+	<COND (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+	       <COND (<OR ;<NOT <FSET? .OBJ ,PERSONBIT>>
+			  <IN? .OBJ ,ROOMS>
+			  <FSET? .OBJ ,SEENBIT>>
+		      <TELL " the">)
+		     (<FSET? .OBJ ,VOWELBIT>
+		      <TELL " an">)
+		     (T <TELL " a">)>)>
+	<COND (T ;<FSET? .OBJ ,PERSONBIT>
+	       <FSET .OBJ ,SEENBIT>)>>
+
+<ROUTINE START-SENTENCE (OBJ)	;"CTHE"
+	<THIS-IS-IT .OBJ>
+	<COND (<EQUAL? .OBJ ,PLAYER>	<TELL "You">		<RTRUE>)
+	      (<EQUAL? .OBJ ,NIGHTLAMP>	<TELL "Your lamp">	<RTRUE>)
+	      (<EQUAL? .OBJ ,LUGGAGE>	<TELL "Your luggage">	<RTRUE>)
+	      (<EQUAL? .OBJ ,BED>	<TELL "Your bed">	<RTRUE>)
+	      (<EQUAL? .OBJ ,YOUR-COLOR><TELL "Your favorite color"><RTRUE>)
+	      (<EQUAL? .OBJ ,YOUR-ROOM>	<TELL "Your room">	<RTRUE>)
+	      (<EQUAL? .OBJ ,YOUR-BATHROOM><TELL "Your bathroom"><RTRUE>)
+	      (<EQUAL? .OBJ ,YOUR-CLOSET><TELL "Your secret entrance"><RTRUE>)
+	      (<EQUAL? .OBJ ,DINNER>	<TELL "Your dinner">	<RTRUE>)>
+	<COND (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+	       <COND (<OR ;<NOT <FSET? .OBJ ,PERSONBIT>>
+			  <FSET? .OBJ ,SEENBIT>>
+		      <TELL "The ">)
+		     (<FSET? .OBJ ,VOWELBIT>
+		      <TELL "An ">)
+		     (T <TELL "A ">)>)>
+	<COND (T ;<FSET? .OBJ ,PERSONBIT>
+	       <FSET .OBJ ,SEENBIT>)>
+	<TELL D .OBJ>>
+
+<ROUTINE PRINTA (O)	;"A"
+	 <COND (<OR ;<FSET? .O ,PERSONBIT> <FSET? .O ,NARTICLEBIT>> T)
+	       (<FSET? .O ,VOWELBIT> <TELL "an ">)
+	       (T <TELL "a ">)>
+	 <TELL D .O>>
+
+<GLOBAL P-IT-WORDS <TABLE 0 0>>	"adj & noun for IT"
+
+<ROUTINE THIS-IS-IT (OBJ)
+ <COND (<EQUAL? .OBJ <> ,NOT-HERE-OBJECT ,PLAYER>
+	<RTRUE>)
+       (<EQUAL? .OBJ ,INTDIR ,GLOBAL-HERE ,ROOMS>
+	<RTRUE>)
+       (<AND <VERB? WALK ;"WALK-TO FACE"> <==? .OBJ ,PRSO>>
+	<RTRUE>)>
+ <COND (<NOT <FSET? .OBJ ,PERSONBIT>>
+	<PUT ,P-IT-WORDS 0 <GET ,P-ADJW ,NOW-PRSI>>
+	<PUT ,P-IT-WORDS 1 <GET ,P-NAMW ,NOW-PRSI>>
+	<FSET ,IT ,TOUCHBIT>	;"to cause pronoun 'it' in output"
+	<SETG P-IT-OBJECT .OBJ>)
+       (<FSET? .OBJ ,FEMALE>
+	<FSET ,HER ,TOUCHBIT>
+	<SETG P-HER-OBJECT .OBJ>)
+       ;(<FSET? .OBJ ,PLURALBIT>
+	<FSET ,THEM ,TOUCHBIT>
+	<SETG P-THEM-OBJECT .OBJ>)
+       (T
+	<FSET ,HIM ,TOUCHBIT>
+	<SETG P-HIM-OBJECT .OBJ>)>
+ <RTRUE>>
+
+<ROUTINE NO-PRONOUN? (OBJ "OPTIONAL" (CAP 0))
+	<COND (<EQUAL? .OBJ ,PLAYER>
+	       <RFALSE>)
+	      (<NOT <FSET? .OBJ ,PERSONBIT>>
+	       <COND (<AND <EQUAL? .OBJ ,P-IT-OBJECT>
+			   <FSET? ,IT ,TOUCHBIT>>
+		      <RFALSE>)>)
+	      (<FSET? .OBJ ,FEMALE>
+	       <COND (<AND <EQUAL? .OBJ ,P-HER-OBJECT>
+			   <FSET? ,HER ,TOUCHBIT>>
+		      <RFALSE>)>)
+	      ;(<FSET? .OBJ ,PLURALBIT>
+	       <COND (<AND <EQUAL? .OBJ ,P-THEM-OBJECT>
+			   <FSET? ,THEM ,TOUCHBIT>>
+		      <RFALSE>)>)
+	      (T
+	       <COND (<AND <EQUAL? .OBJ ,P-HIM-OBJECT>
+			   <FSET? ,HIM ,TOUCHBIT>>
+		      <RFALSE>)>)>
+	<COND (<ZERO? .CAP> <TELL THE .OBJ>)
+	      (<ONE? .CAP> <TELL CTHE .OBJ>)>
+	<THIS-IS-IT .OBJ>
+	<RTRUE>>
+
+<ROUTINE HE-SHE-IT (OBJ "OPTIONAL" (CAP 0) (VERB <>))	;"C/HE"
+	<COND (<NO-PRONOUN? .OBJ .CAP>
+	       T)
+	      (<NOT <FSET? .OBJ ,PERSONBIT>>
+	       <COND (<ZERO? .CAP> <TELL " it">)
+		     (<ONE? .CAP> <TELL "It">)>)
+	      (<==? .OBJ ,PLAYER>
+	       <COND (<ZERO? .CAP> <TELL " you">)
+		     (<ONE? .CAP> <TELL "You">)>)
+	      (<FSET? .OBJ ,FEMALE>
+	       <COND (<ZERO? .CAP> <TELL " she">)
+		     (<ONE? .CAP> <TELL "She">)>)
+	      ;(<FSET? .OBJ ,PLURALBIT>
+	       <COND (<ZERO? .CAP> <TELL " they">)
+		     (<ONE? .CAP> <TELL "They">)>)
+	      (T
+	       <COND (<ZERO? .CAP> <TELL " he">)
+		     (<ONE? .CAP> <TELL "He">)>)>
+	<COND (<NOT <ZERO? .VERB>>
+	       <PRINTC 32>
+	       <COND (<OR <EQUAL? .OBJ ,PLAYER>
+			  ;<FSET? .OBJ ,PLURALBIT>>
+		      <COND (<=? .VERB "is"> <TELL "are">)
+			    (<=? .VERB "has"><TELL "have">)
+			    (<=? .VERB "tri"><TELL "try">)
+			    (<=? .VERB "empti"><TELL "empty">)
+			    (T <TELL .VERB>)>)
+		     (T
+		      <TELL .VERB>
+		      <COND (<OR <EQUAL? .VERB "do" "kiss" "push">
+				 <EQUAL? .VERB "tri" "empti">>
+			     <TELL !\e>)>
+		      <COND (<NOT <EQUAL? .VERB "is" "has">>
+			     <TELL !\s>)>)>)>>
+
+<ROUTINE HIM-HER-IT (OBJ "OPTIONAL" (CAP 0) (POSSESS? <>))	;"C/HIS/M"
+ <COND (<NO-PRONOUN? .OBJ .CAP>
+	<COND (<NOT <ZERO? .POSSESS?>> <TELL "'s">)>)
+       (<NOT <FSET? .OBJ ,PERSONBIT>>
+	<COND (<ZERO? .CAP> <TELL " it">) (T <TELL "It">)>
+	<COND (<NOT <ZERO? .POSSESS?>> <TELL !\s>)>)
+       (<==? .OBJ ,PLAYER>
+	<COND (<ZERO? .CAP> <TELL " you">) (T <TELL "You">)>
+	<COND (<NOT <ZERO? .POSSESS?>> <TELL !\r>)>)
+       ;(<FSET? .OBJ ,PLURALBIT>
+	<COND (<NOT <ZERO? .POSSESS?>>
+	       <COND (<ZERO? .CAP> <TELL " their">)
+		     (T <TELL "Their">)>)
+	      (T
+	       <COND (<ZERO? .CAP> <TELL " them">)
+		     (T <TELL "Them">)>)>)
+       (<FSET? .OBJ ,FEMALE>
+	<COND (<ZERO? .CAP> <TELL " her">) (T <TELL "Her">)>)
+       (T
+	<COND (<NOT <ZERO? .POSSESS?>>
+	       <COND (<ZERO? .CAP> <TELL " his">)
+		     (T <TELL "His">)>)
+	      (T
+	       <COND (<ZERO? .CAP> <TELL " him">)
+		     (T <TELL "Him">)>)>)>
+ <RTRUE>>
+
+"CLOCK for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+"List of 22 queued routines:
+I-ATTENTION
+I-BEDTIME
+I-BUTLER-COOKS
+I-BUTLER-HINTS
+I-BUTLER-SERVES
+I-COME-TO
+I-DINNER
+I-DINNER-SIT
+I-DINNER-TALK
+I-DISCOVERED
+I-DRAGON-EYE
+I-FOLLOW
+I-FOUND-IT
+I-FOUND-PASSAGES
+I-FRIEND-GREETS
+I-LIONEL-SPEAKS
+I-PROMPT
+I-REPLY
+I-SEARCH
+I-SHOT
+I-TOUR
+I-WITHDRAW"
+
+"SCORE INDICATES HOURS / MOVES = MINUTES"
+
+<GLOBAL SCORE:NUMBER 19>
+<GLOBAL MOVES:NUMBER 0>
+<GLOBAL PRESENT-TIME:NUMBER <SETG PRESENT-TIME-ATOM 420 ;1140>>
+<GLOBAL CLOCKER-RUNNING:NUMBER 0>
+
+<CONSTANT DINNER-TIME <SETG DINNER-TIME 480>>
+<CONSTANT LIONEL-TIME <SETG LIONEL-TIME 510>>
+<CONSTANT SEARCH-TIME 600>
+<CONSTANT BED-TIME 720>
+
+<CONSTANT C-TABLELEN 138>	;"and one for good measure"
+
+<GLOBAL C-TABLE
+ <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 I-SHOT	;"first to run"
+	0 0 I-COME-TO
+	0 0 I-REPLY
+	0 0 I-TOUR
+	0 0 I-BUTLER-COOKS
+	0 0 I-BUTLER-HINTS
+	1 %<- ,DINNER-TIME ,PRESENT-TIME-ATOM 10> I-DINNER
+	0 0 I-DINNER-SIT
+	1 10 I-DRAGON-EYE
+	1 -1 I-ATTENTION
+	1 -1 I-FOLLOW	;"last to run"
+	1  1 I-PROMPT>>
+
+<GLOBAL C-INTS:NUMBER <- 138 <* 12 6>>>
+<CONSTANT C-INTLEN 6>
+<CONSTANT C-ENABLED? 0>
+<CONSTANT C-TICK 1>
+<CONSTANT C-RTN 2>
+
+<ROUTINE QUEUE (RTN TICK "AUX" CINT)
+	 ;#DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
+	 <PUT .CINT ,C-ENABLED? 1>
+	 .CINT>
+
+<ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
+	 ;#DECL ((RTN) ATOM (DEMON) <OR ATOM FALSE> (E C INT) <PRIMTYPE
+							      VECTOR>)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
+			;<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
+			<SET INT <REST ,C-TABLE ,C-INTS>>
+			<PUT .INT ,C-RTN .RTN>
+			<RETURN .INT>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+;<ROUTINE ENABLED? (RTN)
+	<NOT <ZERO? <GET <INT .RTN> ,C-ENABLED?>>>>
+
+<ROUTINE QUEUED? (RTN "AUX" C)
+	<SET C <INT .RTN>>
+	<COND (<ZERO? <GET .C ,C-ENABLED?>> <RFALSE>)
+	      (T <GET .C ,C-TICK>)>>
+
+<GLOBAL CLOCK-WAIT:FLAG <>>
+
+<ROUTINE CLOCKER ("AUX" C E TICK (FLG <>) VAL)
+	 ;#DECL ((C E) <PRIMTYPE VECTOR> (TICK) FIX ;(FLG) ;<OR FALSE ATOM>)
+	 <COND (,CLOCK-WAIT <SETG CLOCK-WAIT <>> <RFALSE>)>
+	 <SETG PRESENT-TIME <+ ,PRESENT-TIME 1>>
+	 <COND (<G? ,PRESENT-TIME 1139 ;1859>
+		<TIMES-UP>)>
+	 <COND (<G? <SETG MOVES <+ ,MOVES 1>> 59>
+		<SETG MOVES 0>
+		<COND (<G? <SETG SCORE <+ ,SCORE 1>> 23>
+		       <SETG SCORE 0>)>)>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<RETURN .FLG>)
+		       (<NOT <ZERO? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<NOT <ZERO? .TICK>>
+			       <PUT .C ,C-TICK <- .TICK 1>>
+			       <COND (<AND <NOT <G? .TICK 1>>
+				           <SET VAL <APPLY <GET .C ,C-RTN>>>>
+				      <COND (<OR <ZERO? .FLG>
+						 <==? .VAL ,M-FATAL>>
+					     <SET FLG .VAL>)>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+"These routines were moved here from GOAL:"
+
+<ROUTINE I-FOLLOW ("OPTIONAL" (GARG <>) "AUX" (FLG <>) (CNT 0) GT (VAL 0))
+       %<DEBUG-CODE
+	 <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+		<TELL "[I-FOLLOW:">
+		<COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> ,GHOST-NEW-C ;,CHARACTER-MAX>
+			<RETURN>)
+		       (<AND <GET <SET GT <GET ,GOAL-TABLES .CNT>> ,GOAL-S>
+			     <OR <NOT <ZERO? <GET .GT ,GOAL-ENABLE>>>
+				 ;<0? <GET .GT ,ATTENTION>>>>
+			;<PUT .GT ,GOAL-ENABLE 1>
+			<COND (<SET VAL
+				    <FOLLOW-GOAL <GET ,CHARACTER-TABLE .CNT>>>
+			       <COND (<NOT <==? .FLG ,M-FATAL>>
+				      <SET FLG .VAL>)>)>)>>
+	 %<DEBUG-CODE <COND (,IDEBUG <TELL N .FLG !\] CR>)>>
+	 .FLG>
+
+<ROUTINE I-ATTENTION ("OPTIONAL" (GARG <>)
+		      "AUX" (FLG <>) (CNT 0) ATT GT PER RM)
+ %<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+		     <TELL "[I-ATTENTION:">
+		     <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+ <REPEAT ()
+	<COND (<IGRTR? CNT ,GHOST-NEW-C ;,CHARACTER-MAX>
+	       <RETURN>)>
+	<SET GT <GET ,GOAL-TABLES .CNT>>
+	<SET ATT <GET .GT ,ATTENTION>>
+	<COND (<NOT <G? .ATT 0>> <AGAIN>)>
+	<DEC ATT>
+	<SET PER <GET ,CHARACTER-TABLE .CNT>>
+	<COND (<EQUAL? .PER ,CONFESSED ,CAPTOR ,FOLLOWER>
+	       <AGAIN>)>
+	<SETG GOAL-PERSON .PER>
+	<COND ;(<0? .PER>
+	       <TELL "[!! I-ATT: PER=0]" CR>)
+	      (<0? .ATT>
+	       ;<FCLEAR .PER ,TOUCHBIT>
+	       <COND ;(<==? .PER ,BUTLER>
+		      <SET FLG T>
+		      <MOVE ,BUTLER <GET .GT ,GOAL-F>>
+		      <TELL
+'BUTLER " says, \"You really must excuse me now, "TN",\" and leaves." CR>)
+		     (<OR <L? ,BED-TIME ,PRESENT-TIME>
+			  <==? <GET .GT ,GOAL-FUNCTION> ,X-RETIRES>>
+		      <SET RM <GET ,CHAR-ROOM-TABLE <+ 1 .CNT>>>
+		      <COND (<IN? .PER .RM>
+			     <GOODNIGHT .RM .PER>)
+			    (T
+			     <PUT .GT ,GOAL-FUNCTION ,X-RETIRES>
+			     <ESTABLISH-GOAL .PER .RM>)>)
+		     (<T? <SET RM <GET .GT ,GOAL-QUEUED>>>
+		      <PUT .GT ,GOAL-QUEUED 0>
+		      <ESTABLISH-GOAL .PER .RM>)
+		     (T
+		      <PUTP .PER ,P?LDESC 17 ;"preparing to leave">
+		      <PUT .GT ,GOAL-ENABLE 1>)>)
+	      (<AND <==? .ATT 1>
+		    <IN? .PER ,HERE>
+		    <D-APPLY "Impatient"<GET .GT ,GOAL-FUNCTION>,G-IMPATIENT>>
+	       <SET FLG T>)>
+	<PUT .GT ,ATTENTION .ATT>>
+ %<DEBUG-CODE <COND (,IDEBUG <TELL N .FLG !\] CR>)>>
+ .FLG>
diff --git a/moon.mud b/moon.mud
new file mode 100644
index 0000000..5e3310a
--- /dev/null
+++ b/moon.mud
@@ -0,0 +1,6 @@
+<USE "CELEST">
+<SETG LONGITUDE!-ICELEST '(- 5 30 0)>
+<SETG LATITUDE!-ICELEST (+ 50 10 0)>
+<SETG GMT-OFFSET!-ICELEST <+ 0 <DAY-SAVE-CROCK!-ICELEST <1 <DTNOW>>>>>
+
+"SUNSET on May 3 @ 19:37 GMT"
diff --git a/moonmist.man b/moonmist.man
new file mode 100644
index 0000000..8c9e0e4
--- /dev/null
+++ b/moonmist.man
@@ -0,0 +1,1239 @@
+@Style[TabWidth 8 chars]
+@Style[Justification no]
+If you've never played Infocom's interactive fiction before, you will have
+more fun if you
+read this manual.
+But if you're an experienced Infocom player, just read @U[Section I: About
+Moonmist].
+
+@Heading[TABLE OF CONTENTS]
+
+@U[Section I: About Moonmist]		
+
+Preface to the Story
+
+Some Verbs You Can Use
+
+Variations				
+
+Sample Transcript and Map
+
+About the Authors
+
+@U[Section II: About Infocom's Interactive Fiction]	
+
+An Overview
+@Verbatim[
+	* What is interactive fiction?
+	* Moving around
+	* Turns and score]
+
+Starting and Stopping
+@Verbatim[
+	* "Booting up"
+	* Saving and restoring
+	* Quitting and starting over]
+
+How to "Talk" to Infocom's Interactive Fiction	
+@Verbatim[
+	* Simple sentences
+	* Complex sentences
+	* Talking to characters in the story
+	* Words you can use]
+
+Special Commands
+
+Tips for New Players
+@Verbatim[
+	Ten useful pointers about interactive fiction]
+
+Common Complaints
+
+We're Never Satisfied
+
+If You Have Technical Problems				
+
+Copyright and Warranty Information			
+
+Quick Reference Guide
+@Verbatim[
+	The most important things to know about interactive fiction.]
+
+
+@Unnumbered[SECTION I: ABOUT MOONMIST]
+@Heading[Preface to the Story]
+
+Welcome to the world of Infocom's interactive fiction, a world where:
+
+- you become the heroine or hero in a story,
+
+- you can use your own thinking and imagination to guide the story from
+start to finish,
+
+- you can meet other people, who may or may not help you, and
+
+- you can go to new places, figure out mysteries and puzzles, and
+outsmart enemies.
+
+In @U[Moonmist], you are a famous young American detective.  An old
+friend, Tamara Lynd, has written you a letter (which is in this
+package), asking for your help.  And so you have travelled to England to
+test your detective skills.
+
+As the story begins, you are outside Tresyllian Castle -- the old, dark,
+hauntingly beautiful castle where Tamara now lives.  Tamara greets you,
+and you meet some interesting guests.  But your
+visit soon turns to mystery, as a trail of riddles and clues leads you
+to a hidden valuable treasure.
+
+But Tamara is worried about a ghost that is tormenting her.  What
+does the ghost want?  Is it jealous of her?  Does the ghost want the
+hidden treasure for itself?  Or is the ghost a fake -- just someone
+dressing up to frighten Tamara?  If so, why?
+
+These mysteries and others are waiting to test your wits in
+@U[Moonmist]. 
+
+@Unnumbered[Some Verbs You Can Use]
+
+This is a list of some of the verbs that @U[Moonmist] knows.
+There are many more.
+And you can use a preposition with many verbs -- for
+example, LOOK can become LOOK IN, LOOK BEHIND, LOOK UNDER, LOOK
+THROUGH, LOOK AT, and so on.
+
+You can use some of these verbs in all
+Infocom stories; you can use others only in @U[Moonmist].
+
+@Verbatim[
+	ADJUST
+	ANSWER
+	APOLOGIZE
+	ARREST
+	ASK		
+	ATTACK
+	BLOW
+	BOW
+	CALL
+	CHANGE
+	CHECK
+	CLEAN
+	CLIMB
+	CLOSE
+	COMPARE
+	CURTSY
+	DANCE
+	DESCRIBE
+	DIG
+	DRESS
+	DROP		
+	EAT
+	ENTER
+	EXAMINE
+	FEEL
+	FIND
+	FOLLOW		
+	GET
+	GIVE
+	GO
+	HIDE
+	JUMP
+	KISS
+	KNOCK
+	LEAVE
+	LIE
+	LISTEN
+	LOCK
+	LOOK (or L)
+	MOVE
+	NOD
+	OPEN
+	PLAY
+	POINT
+	PULL
+	PUSH
+	PUT
+	READ
+	REMOVE
+	SEARCH
+	SHAKE
+	SHOOT
+	SHOW
+	SIT
+	SLAP
+	SMELL
+	SMILE
+	STAND
+	TAKE
+	TALK
+	TELL
+	THANK
+	THROW
+	TURN
+	UNLOCK
+	USE
+	WAIT (or Z)
+	WAKE
+	WALK
+	WASH
+	WEAR
+	WRITE
+	YELL]
+	
+			
+@Unnumbered[Variations]
+
+To finish @U[Moonmist], you will figure out riddles or clues,
+find a hidden treasure, and solve the mystery of the ghost.  But after
+you do that, you can play @U[Moonmist] again, and there will be
+different clues, a different treasure, and a new ghost mystery to
+solve! 
+
+Near the start of @U[Moonmist], the butler will ask you for your name
+and your favorite color.  If you
+answer RED, then you will play "the red variation" of the story.  If you
+answer BLUE, then you will play the blue variation of the
+story, somewhat different from the
+red one.  Answering GREEN will mean the green variation, and
+answering YELLOW will mean the yellow one.
+
+You can actually pick @U[any] color as your favorite:  you can answer
+PURPLE, or VERMILION, or anything you like.  If you choose a color
+that's not red, blue, green, or yellow, then the computer will pick one of
+the four variations for you to play.  Similar colors with different names
+may or may not give you the same variation.  But you can always find out
+which variation you are playing by using the VERSION command. 
+
+If you give a title with your name -- such as Ms. or Mr. -- then the
+computer will try to figure out whether you are female or male, and
+some of the people you meet will treat you differently.
+
+Most players like to play one variation until they finish it.  And
+some players like to make up a new name when they play a new variation.
+Then they can remember what's different in the story, by pretending
+that the story is about a new detective, who has a new mystery to solve.
+
+@Unnumbered[Sample Transcript and Map]
+
+This transcript is not from @U[Moonmist], but it does show many of the
+usual things you can do in the story. It shows some simple
+puzzles and their solutions, and it will give you a good idea of how
+Infocom's interactive fiction works. The player's commands appear in
+capital letters after each prompt (>). The comments inside brackets []
+explain what is happening and are not real parts of the transcript.
+The map shows the layout of rooms in
+the sample transcript, as you might have drawn it. NOTE: In this sample
+transcript, you play a female character. In @U[Moonmist] you can be
+either a male or a female character.
+
+[Diagram #1, the sample transcript map, goes here]    
+
+
+(outside museum)
+
+You are at the front door of the Hollywood Classic Movie Museum.  A
+gold-colored star decorates the big wooden front door.
+
+>GO IN
+
+The door is locked.
+
+>EXAMINE THE STAR
+
+The star sticks out a little from the surface of the door.
+
+>PUSH THE STAR
+
+The door swings open.
+
+>GO IN
+
+(lobby)
+
+This is the air-conditioned lobby of the museum, decorated with old
+movie posters and autographed photos of movie stars.  Through the glass
+doors leading outside you can see the sidewalk glaring in the heat of
+the California sun.  North of you, under a large poster of "Gone with
+the Wind," is the entrance to the exhibits.  Across the linoleum floor,
+under a sign that says "Tours Meet Here," you can see a small group of
+people.
+
+A tour guide beckons for you to join the group.  "Welcome to the museum," 
+she says, shaking your hand.  "I'm glad you could join us.  Tell me, what was
+your favorite movie creature?"
+
+>KING KONG
+
+"Did you say King Kong?" 
+
+>YES
+
+"That's wonderful," she enthuses.  "It just happens that our special exhibit
+this week features King Kong."
+
+The tour guide points to her name tag, saying, "My name's Spencer.  What's 
+your name?"
+
+>MS. DANIELLE CROMPTON
+
+"Did you say, Ms. Danielle Crompton?"
+
+>YES
+
+"Feel free to ask me questions about any of the exhibits you see.  Let's begin
+the tour."  Spencer leads you and three other people north into the first
+exhibition hall.
+
+(Errol Flynn room)
+
+Errol Flynn made quite a few movies in his heyday in Hollywood, and from the 
+amount of props, costumes and photographs crammed into this room, there's 
+something here from every single one of those movies. There are doors on
+the east and south walls.  
+
+>LOOK AT GROUP
+
+Besides yourself and the tour guide, there are three people in the group: a
+good-looking man you judge to be about your age, an older woman and an older
+man.
+
+>LOOK AT WOMAN
+
+(Which woman do you mean, the tour guide or the older woman?)
+
+>OLDER
+
+The older woman is wearing a white silk dress with large purple flowers
+on it.  She has a hat to match.  And the woman is carrying an oversized
+purple tote bag.
+
+"This is an older section of the museum," Spencer says.  "It was built as
+a memorial to Errol Flynn.  The case on the north wall contains several of
+the swords he used in his swashbuckling roles.  Against the west wall there
+are several pairs of his trademark boots.  Let's move on."
+
+Spencer walks through the door on the east side of the room.
+
+>GO EAST
+
+You walk into the next room.  The other people follow you.  
+
+(horror movie room)
+
+Among the different props in the room, your eyes are drawn to the large
+pendulum swinging overhead.  There is an open iron maiden near the entrance
+to the south, assorted coffins, and several glass jars on a shelf against the
+west wall.  Doors lead west and north.
+
+Spencer is waiting for you.
+
+>INVENTORY
+
+You are holding a linen suit (actually, wearing it).  In the pocket of the
+suit you see keys, money, and a magnet.
+
+"This room is a collection of props from the old horror movies," Spencer says,
+when the whole group has gathered.  "There is a card in front of each piece
+explaining what movie it is from, when the picture was released, and what part
+the prop played in the film."
+
+>LOOK IN THE GLASS JARS
+
+You notice that each jar contains a pair of false vampire teeth.
+
+>TAKE THE VAMPIRE TEETH
+
+You would have to open the jar to do that.
+
+>OPEN THE JAR
+
+You're not holding the glass jar.
+
+>TAKE THE GLASS JAR
+
+"Please don't touch the exhibits," Spencer says.  "Many of them are very old
+and fragile."
+
+>LOOK AT SPENCER
+
+She is wearing a navy blue jacket and skirt with a cream-colored blouse.
+You assume this is the museum uniform.
+
+>ASK SPENCER AOBUT THE PENDULUM
+
+(I don't know the word "aobut".)
+
+>OOPS ABOUT
+
+@U{[You can fix a misspelled word if you type OOPS then the word that was
+misspelled.]}
+
+"Oh, we were very lucky to get that piece," she says.  "Many museums wanted 
+it, but our curator happens to be a personal friend of Vincent Price, who
+donated it."
+
+"Our next room," continues Spencer, "is our special exhibit of the week,
+the King Kong exhibit.  I'm sure you'll enjoy it, Danielle." Your group
+follows Spencer through the door in the north wall into the next room.
+
+(King Kong room)
+
+This room is filled with gorilla suits, comic books, and cartoons.  You find
+yourself drawn to the center of the room, where there is an amazing model of
+New York City with the Empire State Building rising up from it.
+
+>LOOK AT THE MODEL
+
+The other people in the group must have been waiting to see this too, because
+before you can get close enough to the model, they crowd in front of you.
+
+>YELL
+
+(Whom do you want to yell at?)
+
+>THE GROUP
+
+(You can't use more than one direct object with "yell"!)
+
+>YELL AT THE OLDER WOMAN
+
+The older woman glares at you in a way that reminds you of your second grade
+teacher.
+
+Someone moves away from the model, leaving room for you.  In your excitement,
+you inadvertently step on the toes of the good-looking man.
+
+>ASK YOUNG MAN ABOUT THE MODEL
+
+Too bad, but he is peeved with you.
+
+>APOLOGIZE TO HIM
+
+"Apology accepted.  By the way, my name's Ed."
+
+>LOOK AT THE MODEL 
+
+You marvel at the detail in the towering skyscrapers and miniature cars.  As
+your eyes move over the model, you focus on the Empire State Building.  The
+spire is perfectly crafted, the antenna so thin and fragile...  You gasp!  
+King Kong is missing from his customary perch!
+
+>SPENCER, TELL ME ABOUT KING KONG
+
+"He really was one of my favorite movie creatures too, Danielle."
+
+>SPENCER, LOOK AT THE MODEL
+
+Spencer stands next to you, surveying the model.  Her face whitens and she 
+trembles slightly.  "King Kong is missing!" she gasps.  "I've got to
+find that statuette.  This model is one of our most valuable pieces!"
+Immediately, she presses a button on the wall, which begins to glow red.
+You hear a voice from a hidden speaker ask, "What's the problem?"
+Spencer urgently replies, "King Kong is missing from the Empire State
+Building model.  Come quickly!"
+
+>SPENCER, DESCRIBE THE MODEL
+
+"It was built in 1979 by a local artist.  He used papier mache for most of
+the buildings and metal for the framework of Kong.  All the details are
+handpainted," she says.
+
+>SEARCH THE MODEL
+
+You peer closely at each tiny building.  Clinging to the antenna of the
+Empire State Building is a small scrap of what appears to be white silk.
+
+>G
+
+@U{[Using the letter "G" this way is a short way to say "again".
+The program will repeat your previous action.]}
+
+A second search of the model reveals a strand of grayish hair between two
+of the miniature skyscrapers.
+
+>TAKE THE SCRAP AND THE STRAND OF HAIR
+
+Strand of hair:  Gently you lift the strand of hair from the model.
+
+Scrap of silk:  Gently you lift the scrap of fabric from the model.
+
+>COMPARE SCRAP TO THE OLDER WOMAN'S DRESS
+
+Holding the scrap of fabric near her dress, it looks like the same material!
+
+>LOOK AT THE WOMAN'S DRESS
+
+Near the cuff on her right hand you notice a small hole.
+
+>ASK WOMAN ABOUT KING KONG
+
+"I'm not as interested as you are in that ragged chimp, dear.  Errol Flynn
+was my one and only movie favorite.  Furthermore, " she adds, "you may
+address me as Mrs. Vanderbiltmoore if you wish any further conversation
+with me."  Mrs. Vanderbiltmoore casually walks south out of the room.
+
+The guard arrives, circles the model slowly, looks under the table, then
+begins questioning people separately.
+
+>LOOK AT THE STRAND OF HAIR
+
+It appears to be from someone with gray hair.
+
+>ASK ED ABOUT KING KONG
+
+"Definitely one of my favorites.  I say, has anyone ever told you that
+you look like Fay Raye?"
+
+>NO
+
+"Well, maybe if you had a blond wig."
+
+>I
+
+@U{[You can use the short word "I" instead of INVENTORY.]}
+
+You are holding a scrap of silk and a strand of hair, and a linen suit 
+(actually, wearing it).  In the pocket of the suit you see keys, money, and
+a magnet. 
+
+>LOOK AT THE OLDER MAN
+
+From the possessive way Mrs. Vanderbiltmoore was holding onto his arm, you
+assume the older man to be Mr. Vanderbiltmoore.  He is quite distinguished
+looking in his tan suit with red paisley ascot.
+
+>GO TO ERROL FLYNN ROOM
+
+@U{[You can type "GO TO (a room)" if you know the name of the room you wish to 
+go to, and the program will take you there.]}
+
+(Errol Flynn room)
+
+Mrs. Vanderbiltmoore is here gazing at one of the many portraits of Errol
+Flynn.
+
+>SHOW THE SCRAP TO MRS. VANDERBILTMOORE
+
+Mrs. Vanderbiltmoore glances nervously at the fabric.  "It looks like a 
+pretty piece of fabric."
+
+She leaves the room to the east.
+
+>FOLLOW HER
+
+(horror movie room)
+
+Mrs. Vanderbiltmoore is here, tightly clutching her bag to her.  
+
+She leaves the room, heading north.
+
+>G
+
+(King Kong room)
+
+The security guard is questioning Ed.  
+
+Mr. Vanderbiltmoore is smoothing his ascot.
+
+Mrs. Vanderbiltmoore is tapping her foot anxiously.
+
+Spencer is searching the room.
+
+>THROW THE KEYS TO MRS. VANDER
+
+@U{[If you want to save time while typing, you can always shorten words to
+six letters.]}
+
+(You take the keys out of your pocket first.)
+
+The keys sail through the air toward Mrs. Vanderbiltmoore, who catches them
+somewhat clumsily with her right hand.
+
+>PUT THE MAGNET ON MRS. VANDER'S BAG
+
+You can't put the magnet on the bag, but when you pass the magnet near it,
+something inside the bag is attracted to the magnet and clunks against 
+the bag.
+
+>COMPARE STRAND TO MRS. VANDER'S HAIR
+
+The strand of hair matches almost exactly to Mrs. Vanderbiltmoore's hair.
+
+>ACCUSE MRS. VANDERBILTMOORE
+
+You call the guard over to you.  Realizing the jig is up, Mrs. Vanderbiltmoore
+rushes south from the room into the horror movie room.
+
+>RUN SOUTH
+
+(horror movie room)
+
+Apparently Mrs. Vanderbiltmoore ran too closely past the iron maiden.  Her
+white silk dress is stuck on one of the spikes protruding from the iron
+maiden.  The large purple tote bag lies open at her feet.
+
+Mrs. Vanderbiltmoore is tugging frantically at her dress, trying to get away 
+from the iron maiden.
+
+>LOOK IN THE BAG
+
+Among the scattered coins, tissues, and make-up, you see the metallic
+statuette of King Kong.
+
+The guard and Spencer arrive just as Mrs. Vanderbiltmoore begins sobbing.  He
+removes the statuette from the bag and hands it to Spencer.
+
+Spencer thanks you for solving the mystery of the missing King Kong and gives
+you a lifetime pass to the museum.  Congratulations, Danielle!
+
+
+@Unnumbered[About the Authors]
+
+Stu Galley was a student of physics and journalism when he discovered
+computers, which at the time were mostly just big number-crunchers.  At
+first he thought computers were too much fun to be taken seriously,
+until he decided that physics was too little fun to be taken seriously.
+At MIT he discovered computer games and LISP-like languages and met the
+other founders of Infocom.  He began writing interactive fiction in 1982 and
+has authored @U[The Witness], @U[Seastalker], and @U[Moonmist], all for
+Infocom.  His son enjoys interactive fiction more than his wife does.
+
+Jim Lawrence has written fiction extensively for both children and
+adults in a variety of media: books, magazine articles, film and radio
+scripts, and comic strips, including "decision" strips.  He estimates
+that he has written some sixty books of fiction, many of them under pen
+names for series like @U[Tom Swift Jr.] and @U[Nancy Drew].  His radio
+credits include weekly scripts for @U[Sergeant Preston of the Yukon],
+@U[The Green Hornet], and @U[Sky King].  He has written for, and in some
+cases created and illustrated, the comic strips @U[Dallas, Joe Palooka,
+Captain Easy, Friday Foster], and @U[Buck Rogers].  To date, he has
+authored two works of interactive fiction published by Infocom:
+@U[Seastalker], published in 1984, and @U[Moonmist], in 1986.
+
+@Unnumbered[SECTION II: ABOUT INFOCOM'S INTERACTIVE FICTION]
+@Heading[An Overview]
+
+Interactive fiction is a story in which @U{you} are the main character.
+Your own thinking and imagination guide the actions of that character
+and guide the story from start to finish.
+
+Each work of interactive fiction, such as @U[Moonmist], tells you
+about a series of places, things, people, and events. You can move
+from place to place, use the things you find, and interact with the
+other people, to affect the outcome of the story.
+
+An important
+part of interactive fiction is solving puzzles. If you find a locked
+door or a scary ghost, don't think of it as an obstacle; it's just a
+puzzle to be tackled. Often the best way to solve a puzzle is to find a
+certain thing in the story, bring it with you, and use it the right way.
+
+When you play @U[Moonmist], the story goes on only from the time you
+press the RETURN (or ENTER) key until you see the next prompt (>).  Nothing
+happens until you type a sentence and press the RETURN (or ENTER) key.
+You could leave your computer, eat lunch, take a nap, and return to the
+story to find that nothing has changed. So you can think and plan your
+turns as slowly and carefully as you want.
+
+
+@Unnumbered[Starting and Stopping]
+
+@U{Starting the story}: To start @U[Moonmist], follow the instructions on
+the Reference Card in your package.  The computer will display the title
+of the story, followed by the first bit of action and a description of
+the place where the story begins: you are sitting in your car
+outside the closed castle gate.
+(The Reference Card tells what to do if a full screen of text appears
+and the computer waits until you're ready to go on.) Then the prompt (>)
+will appear, which means that the computer is ready for your command.
+
+Here's a quick exercise to help you get used to
+@U[Moonmist].  Type the following command first:
+@Verbatim[	
+   	>GET OUT OF THE CAR]
+   
+Then press the RETURN (or ENTER) key. The computer will respond with: 
+@Verbatim[
+	(You are now in the driveway.) 
+	You are by the front gate of the castle.  Your new little 
+	sports car is parked here.  The castle is on a coastal   
+	headland. Far below, you can hear the rolling breakers beating  
+	against the rocks.]
+
+Then try:   
+@Verbatim[
+   	>OPEN THE GATE]
+   
+After you press the RETURN (or ENTER) key, the computer will again
+respond. Now @U{you} decide what to do next.
+
+@U{Saving and restoring}: You will probably have many hours of fun
+before you finish
+@U[Moonmist]. If you use the SAVE command, you can continue the
+story at a later time without having to start over from the beginning,
+just as you can place a bookmark in a book you are reading. The SAVE command
+puts a
+"snapshot" of your place in the story onto another disk. You can also
+save your place before (or after) trying something dangerous or tricky.
+That way, you can go back to that point later, even if you get
+lost or "killed" in the story.
+
+To save your place in the story, type SAVE at the prompt (>), and then
+press the RETURN (or ENTER) key. Then follow the instructions on your
+Reference Card for saving and restoring. Most computers need a blank
+disk, already initialized and formatted, for saving your
+place. If you use a disk with other data on it
+(not counting other @U[Moonmist] saved places), the
+data may be destroyed.  You can save your place as many times
+as you like, if you use more blank disks.
+
+You can restore a saved place any time you want. To do so, type
+RESTORE at the prompt (>), and then press the RETURN (or ENTER) key. Then
+follow the instructions on your Reference Card. You can then continue
+the story from the point where you used the SAVE command.
+
+@U{Quitting and starting over}: If you want to start over from the
+beginning, type RESTART at the prompt (>), and
+then press the RETURN (or ENTER) key. (This is
+usually faster than "booting up" again.) Just to make sure, the computer will
+ask if you really want to start over. If you do, type Y or YES and press
+the RETURN (or ENTER) key.
+
+If you want to stop entirely, type QUIT at the prompt (>) and then
+press the RETURN (or ENTER)
+key. Once again, the computer will ask if this is really what you want
+to do.
+
+Remember when you RESTART or QUIT: if you want to be able to return to
+this point again, you must first use the SAVE command.
+
+@Unnumbered[How to "Talk" to Infocom's Interactive Fiction]
+
+In @U[Moonmist], you type your commands in plain English each time you
+see the prompt (>). The computer usually acts as if your commands begin
+with "I want to...," but you shouldn't actually type those words.
+You can use words like THE if you want, and you can use capital letters
+if you want; the computer doesn't care either way.
+
+When you have finished typing a command, press the RETURN (or ENTER)
+key. The computer will then respond, telling you whether your command is
+possible at this point in the story, and what happened as a result.
+
+The computer looks at only the first six letters of each of your words, and it 
+ignores any letters after the sixth. For example, the computer would think
+that CLOTHEs, CLOTHEsline, and CLOTHEspin are all the same word.
+
+One way to move around is to type the direction you want to go.
+You can use the eight compass directions: NORTH, EAST, SOUTH, WEST,
+NORTHEAST, SOUTHEAST, SOUTHWEST, and NORTHWEST. You can also use
+IN and OUT, and in some places UP or DOWN.
+Or you can use these short words:
+N for NORTH, E for EAST, S for SOUTH, W for WEST, NE for NORTHEAST,
+SE for SOUTHEAST, SW for SOUTHWEST, NW for NORTHWEST, U for UP, and
+D for DOWN.
+
+If you know which room you want to go to, and you don't want to see
+things along the way, just type GO TO (wherever it is you want to go),
+and press the RETURN (or ENTER) key.  For example:
+@Verbatim[
+	>GO TO THE DINING ROOM]
+
+You can find the names of some places by looking at the map in
+your @U[Moonmist] package, but there are many other rooms in and around
+Tresyllian Castle.
+
+You don't need to walk
+around or turn around in a place; anything that you can see there is
+within your reach.
+
+The computer recognizes many different kinds of sentences. Here are
+several examples. (Some of these things do not actually
+appear in @U[Moonmist].)
+
+@Verbatim[	
+   	>WALK TO THE NORTH
+	
+   	>GO DOWN
+	
+   	>NE
+	
+   	>TAKE THE GLASSES
+
+   	>READ THE BOOK
+
+   	>LIE DOWN ON THE BED
+
+        >EXAMINE THE SILVER TRAY
+
+   	>PULL THE LEVER
+
+   	>PUT THE KEY IN MY POCKET
+
+        >GO TO TAMARA'S ROOM
+
+   	>TAKE THE CANDLE
+
+   	>SHOOT THE GHOST WITH THE BLOW GUN
+
+   	>PUT THE ROCK INTO THE WELL 
+
+   	>CLIMB THE FENCE
+     
+   	>SEARCH THE CEILING]
+
+If you want to TAKE, DROP, or EXAMINE more than one thing, you can do
+it in one command if you separate the things with a comma or the word
+AND.  Here are some examples:  
+@Verbatim[	
+   	>TAKE THE LETTER AND THE GLASS
+
+   	>DROP THE BRASS LANTERN, THE PEARLS, AND THE BROCHURE
+
+   	>EXAMINE THE DINNER OUTFIT, THE EXERCISE OUTFIT, AND THE TRAY]
+
+You can type several sentences on one line if you separate them with a period
+or the word THEN. (Each sentence will still count as a turn.)
+You don't need a period at the end of the line. If the computer doesn't
+recognize one of your sentences, or if something unusual happens, it
+will ignore the rest of your sentences on that line (see "Common
+Complaints" on page N). For example, you could type all of these
+sentences at once, before pressing the RETURN (or ENTER) key:
+@Verbatim[	
+   	>READ THE BOOK. GO NORTH THEN CLIMB THE LADDER. WAKE JACK]
+
+The words IT, HIM, HER, and ALL can be very useful. For example: 
+@Verbatim[
+   	>CLOSE THE HEAVY METAL DOOR. LOCK IT
+        
+   	>TAKE THE BOTTLE OF PILLS. CLOSE IT. PUT IT IN THE DRAWER
+
+   	>SMILE AT JACK. SHOW HIM THE CARD 
+
+	>TAKE ALL
+	
+   	>TAKE ALL FROM THE CUPBOARD 
+
+   	>DROP ALL BUT THE PIPE AND THE STICK
+
+        >GIVE ALL BUT THE LETTER TO DR. WENDISH] 
+
+The word ALL refers to every visible thing except those inside something
+else. If there were an apple on the ground and an orange inside a cabinet,
+TAKE ALL would take the apple but not the orange.
+
+You will meet many interesting people in @U[Moonmist,] and you can
+"talk" to them and give them commands.  Read the letter in your @U[Moonmist]
+package for a
+description of some of the people you will meet.  There are simple rules
+to follow when "talking" to people.  To "talk" to a person, type the
+person's name, then a comma, then whatever you want them to do.  For
+example:
+@Verbatim[
+	>JACK, TELL ME ABOUT THE CASTLE
+
+	>IRIS, FOLLOW ME
+
+	>DR. WENDISH, DESCRIBE THE GHOST]
+
+You can ask a question by typing ASK (someone) ABOUT (someone or
+something).  For instance:
+@Verbatim[
+	>ASK JACK ABOUT THE LETTER
+
+	>ASK VIVIEN ABOUT DEIRDRE]
+   
+The computer will try to guess what you really mean if you
+don't give it enough information. For example, if you say that you want to
+do something, but not what you want to do it to or with, the computer
+may decide that there is only one possible thing that you could
+mean. When it does so, it will tell you. For example:
+@Verbatim[
+	>GET OUT
+
+	(out of the closet)
+
+	You get out of the closet and are now standing in the foyer.]
+
+If your command is not clear enough, the computer will ask what you
+really mean. You can answer by typing the missing information, not the
+whole sentence again. You can do this only at the very next prompt (>). For
+example:
+@Verbatim{
+   	>KNOCK ON THE DOOR 
+
+   	[Which door do you mean, Ian's bedroom door or 
+	Iris's bedroom door?]
+
+   	>IAN'S
+
+   	You knock on the door, but there is no answer.}
+
+The computer recognizes almost 1,000 different words, nearly all
+that you are likely to use in your commands. However, there are many
+words in the descriptions in @U[Moonmist] that the computer will not
+recognize in your sentences. For example, you might read, "Moonlit
+clouds flit across the evening sky." If the computer doesn't recognize
+the words MOONLIT or CLOUDS when you type them, then you know that you
+don't need them to finish the story; they just give you a more vivid
+description of where you are or what is going on.
+
+@Unnumbered[Special Commands]
+
+This is a list of useful one-word commands and their explanations.
+You can use them whenever you want.
+Type the command after the prompt (>) and press the RETURN (or ENTER) key.
+INVENTORY, LOOK, and WAIT will count as a turn.
+
+AGAIN - The computer will act as if you had typed your previous
+command again. For instance, if you type GO TO THE LIBRARY, and some
+character stops you on the way, then you can type AGAIN instead of
+typing the whole command again.
+(You can use the short word G instead of AGAIN.)
+
+BRIEF - After this command, the computer will tell you all about a place or a thing
+only the first time you see it.  If you see it again later, the computer
+will tell you only that it is there.  This is the normal way that the computer
+will act, unless you use the VERBOSE or SUPERBRIEF commands.  SUPERBRIEF
+tells the computer to tell you only the name of a place you have entered,
+even the first time you see it.  Of course, you can always type LOOK to get a
+description of a place, and the things there.  In
+SUPERBRIEF mode, there is no blank line between turns.  SUPERBRIEF is
+for players who are already very familiar with the story. VERBOSE
+tells the computer to tell you all about a place or thing every time you
+see it.
+
+INVENTORY - The computer will tell you what you are carrying. (You can use
+the short word I instead of INVENTORY.)
+
+LOOK - This tells the computer to describe your location in full detail.
+(You can use the short word L instead of LOOK.)
+
+OOPS - If you misspell a word, and the computer doesn't recognize it,
+you can fix it at the next prompt (>) by typing OOPS and the correct
+word. For example, if you typed GIVE THE MAGAXINE TO MS. PENTREATH, and
+the computer responded "[I don't know the word 'magaxine']," you could
+type OOPS MAGAZINE instead of typing the whole sentence again.
+
+QUIT - This lets you stop. If you want to save your place before
+stopping, follow the instructions in the "Starting and Stopping" section
+on page N. (You can use the short word Q instead of QUIT.)
+
+RESTART - This stops the story and starts it over from the beginning.
+
+RESTORE - This lets you continue from any point where you used the SAVE
+command. See "Starting and Stopping" on page N for details.
+
+SAVE - This puts a "snapshot" of your place in the story onto a storage
+disk. You can use the RESTORE command at a later time to continue from the
+same place. See "Starting and Stopping" on page N for details.
+
+SCORE - The computer will give you a report on what you have done so far
+in the story and what you need to do to finish.
+
+SCRIPT - This command tells your printer to begin making a transcript of
+the story as you play. A transcript may help you remember, but you don't
+need it to play. It will work only on some computers; read your
+Reference Card for details.
+
+SUPERBRIEF - After this command, the computer will give you the briefest
+kind of descriptions.  For details, read about the BRIEF command.
+
+TIME - This tells you the time of night in the story.
+
+UNSCRIPT - This commands your printer to stop making a transcript.
+
+VERBOSE - After this command, the computer will give you the wordiest
+kind of descriptions.  For details, read about the BRIEF command.
+
+VERSION - The computer responds by showing you the release number and
+the serial number of your copy of the story. Please send us this
+information if you ever report a "bug" in the story.
+
+WAIT - This will make time pass in the story while you do nothing. For
+example, if you meet a ghost, you might WAIT to see what it will do; or
+if you listen to a tape, you might WAIT to hear what it says. (You can
+use the short word Z instead of WAIT.)			
+
+@Unnumbered[Tips for New Players]
+
+1. EXAMINE anything and everything that you come across in the story.
+Many things that you'll discover in @U[Moonmist] are important because
+they give you clues about the puzzles you want to solve.
+
+2. TAKE anything that you can in the story. Most things that you
+can pick up give you clues that help you solve the mystery.
+
+3. Save your place often. That way, if you mess up or get "killed," you
+won't have to start over from the beginning. See page N for
+instructions.
+
+4. Read the story carefully! There are often clues in the descriptions
+of places and things.  It helps to examine or read anything that might
+be important.  Even a silly or dangerous action may give you a clue, and
+it might even be fun!  You can always save your place first if you want.
+Here's an example: 
+@Verbatim[
+	>ASK THE MAID ABOUT THE WINE CELLAR
+
+	"I never go down there myself.  I work on the first floor
+	only." She continues to fidget nervously with the mirror.]
+
+Here you have a clue that maybe asking someone else about the wine
+cellar (maybe the butler?) would be more helpful, and that maybe you
+could ask the maid about the mirror.
+
+5. Draw a complete map of the castle and its grounds.  The map
+in your @U[Moonmist] package shows only the rooms on the ground floor of the castle.
+A complete map would have @U[all] locations (including upstairs rooms) and
+the directions that connect them together. When you find
+yourself in a new location, make a note of any interesting things
+there. (See the small sample map that goes along with the sample
+transcript on page N.) There are 10 possible directions -- NORTH, SOUTH,
+EAST, WEST, NORTHEAST, NORTHWEST, SOUTHEAST, SOUTHWEST, UP, and DOWN --
+plus IN and OUT.
+
+6. Unlike other "adventure games" you may have played, there are many
+possible ways to finish @U[Moonmist]. If you get stuck on one
+puzzle, move on to another. Some puzzles have more than one solution,
+and you may not need to solve other puzzles at all. Sometimes you will have
+to solve one puzzle in order to get the thing(s) or information you
+need to solve another puzzle.  Remember to keep asking different people
+about different things -- they may give you clues or information.
+
+7. You'll like playing @U[Moonmist] with a friend, because you may find
+a certain puzzle hard while a friend may find it easy.  So two or more
+players can often have more fun, and do better, than one player alone.
+
+8. If you really have difficulty, you can buy a hint
+booklet and a complete map, either at a store or by using the order form in
+your @U[Moonmist] package. You don't @U{need} this booklet to enjoy the
+story, but it will make solving the mystery easier.
+
+9. Read the sample transcript on page N to get a feel for how Infocom's
+interactive fiction works.  The computer will @U[not] understand questions
+or statements, such as "When did you go to sleep?" or "I want some root beer."
+
+10. You can word a command in many different ways. For example, if you
+wanted to pick up a shiny hammer that was sitting on a table, you could
+type any of the following:
+@Verbatim[
+	>TAKE HAMMER
+
+   	>TAKE THE HAMMER FROM THE TABLE
+
+   	>PICK UP THE SHINY HAMMER
+
+	>GET THE HAMMER]
+
+If you type a sentence that the computer doesn't recognize, try
+re-wording the sentence or using other words that mean the same thing.  If
+the computer still doesn't recognize your sentence, you are almost
+certainly trying to do something that you don't need to do.
+
+@Unnumbered[Common Complaints]
+
+The computer will complain if you type a command that confuses it
+completely.  It will then ignore the rest of the input line, if there
+are any more commands. (Certain events, such as being attacked or
+walking into a wall, may also cause the computer to ignore the rest of
+your commands, since the event may have changed your situation
+drastically.)
+
+Here are some of the computer's complaints:
+
+I don't know the word "________". The word you typed is not in the
+story's list of words. Sometimes you can use another word that means the
+same. If not, the computer probably can't understand what you were
+trying to do.
+
+Sorry, I don't understand the word "________" when you use it that way.
+The computer knows the word you typed, but couldn't understand it in
+that sense. Usually this is because the computer knows the word as a
+different part of speech. For example, if you type LOWER THE FLAG, you
+are using LOWER as a verb, but the computer might know LOWER only as an
+adjective, as in PRESS THE LOWER BUTTON.
+
+I think there's a verb missing in that sentence! Unless you are
+answering a question, each sentence must have a verb (or one of the
+special commands).
+
+I think there's a noun missing in that sentence! This usually means your
+sentence was incomplete, such as EAT THE BLUE or PUT THE BOOK IN THE.
+
+I found too many nouns in that sentence! An example is PUT THE SOUP IN
+THE BOWL WITH THE LADLE, which has three noun "phrases," one more than
+the computer can digest in a single action.
+
+I beg your pardon?  You pressed the RETURN (or ENTER) key without typing
+anything.
+
+You can't see any ________ here.  The thing in your sentence was not
+visible. It may be somewhere else, or inside a closed
+container. 
+
+You can't use more than one direct [or indirect] object with "________."
+ You can use multiple objects (that is, nouns or noun phrases separated
+with AND or a comma) or the word ALL only with certain verbs, like TAKE,
+DROP, and PUT.  You can't use more than one object with most verbs, like
+SHOOT; so you can't SHOOT THE GHOST AND THE DART GUN.
+
+I assume you mean the ________.  You typed a pronoun, or an adjective
+without a noun, or a command to a person without their name.
+The computer is just telling you what it thinks you meant.
+
+You can't go in that direction.  There was no way to go in the direction
+you tried.
+
+Sorry, but I don't understand.  Please reword that or try something
+else.  The computer thought the sentence you typed was nonsense, such as
+GIVE HIM WITH LANTERN.  Or, you may have typed a reasonable sentence but
+used a syntax that the computer does not recognize, such as WAVE OVER
+THE FENCE.  Try typing what you want to do in a different way.
+			
+@Unnumbered[We're Never Satisfied]
+
+Here at Infocom, we take great pride in the quality of our stories,
+honing and perfecting them down to the tiniest detail. Even after
+they're in your hands, we still want to make them better.
+
+Your input is important. No matter how much testing we do, it seems that some
+"bugs" never crawl into view until thousands of you begin doing
+wild and crazy things in the story. If you find a "bug," or if
+you think a certain puzzle was too hard or too easy, or if you have some
+other suggestion, or if you'd just like to tell us your opinion of the
+story, write to us! We love every excuse to stop working, and a
+letter from you would be a perfect excuse! Write to:
+@Verbatim[
+	Infocom, Inc.
+	125 CambridgePark Drive
+	Cambridge, MA 02140 
+	Attn: BOLITHO]
+
+@Heading[If You Have Technical Problems]
+
+You can call the Infocom Technical Support Team to report "bugs" and
+technical problems, but @U{not} for hints to solve puzzles, at (617)
+576-3190. If your disk fails to work within ninety (90) days after
+purchase, we will replace it at no charge. Otherwise, we will replace it
+for a fee of five dollars (U.S. funds). If you call to report a "bug,"
+please provide your release number, which you can find by typing the
+command VERSION. Please mail us your registration card if you'd like to
+be on our mailing list and receive our newsletter, @U{The New Zork
+Times.}
+
+@Heading[Copyright and Warranty Information]
+
+@U[Limited Warranty]
+
+This software product and the attached instructional materials are sold
+"AS IS," without warranty as to their performance. The entire risk as to
+the quality and performance of the computer software program is assumed
+by the user.
+
+However, to the original purchaser of a disk prepared by Infocom and
+carrying the Infocom label on the disk jacket, Infocom, Inc. warrants
+the medium on which the program is recorded to be free from defects in
+materials and faulty workmanship under normal use and service for a
+period of ninety (90) days from the date of purchase. If during this
+period a defect on the medium should occur, the medium may be returned
+to Infocom, Inc. or to an authorized Infocom, Inc. dealer, and Infocom,
+Inc. will replace the medium without charge to you. Your sole and
+exclusive remedy in the event of a defect is expressly limited to
+replacement of the medium as provided above. This warranty gives you
+specific legal rights and you may also have other rights which vary from
+state to state.
+   
+THE ABOVE WARRANTIES FOR GOODS ARE IN LIEU OF ALL WARRANTIES, EXPRESS,
+IMPLIED, OR STATUTORY, INCLUDING, BUT NOT LIMITED TO, ANY IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE AND
+OF ANY OTHER WARRANTY OBLIGATION ON THE PART OF INFOCOM, INC. SOME
+STATES DO NOT ALLOW LIMITATIONS ON HOW LONG AN IMPLIED WARRANTY LASTS,
+SO THE ABOVE LIMITATION MAY NOT APPLY TO YOU.  IN NO EVENT SHALL
+INFOCOM, INC. OR ANYONE ELSE WHO HAS BEEN INVOLVED IN THE CREATION AND
+PRODUCTION OF THIS COMPUTER SOFTWARE PROGRAM BE LIABLE FOR INDIRECT,
+SPECIAL, OR CONSEQUENTIAL DAMAGES, SUCH AS, BUT NOT LIMITED TO, LOSS OF
+ANTICIPATED PROFITS OR BENEFITS RESULTING FROM THE USE OF THIS PROGRAM,
+OR ARISING OUT OF ANY BREACH OF THIS WARRANTY. SOME STATES DO NOT ALLOW
+THE EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO
+THE ABOVE LIMITATION MAY NOT APPLY TO YOU.
+
+N.B. After the warranty period, a defective Infocom disk may be returned
+to Infocom, Inc. with a check or money order for $5.00 U.S. funds for
+replacement.
+
+@U[Copyright]
+
+The enclosed software product is copyrighted and all rights are reserved
+by Infocom, Inc. It is published exclusively by Infocom, Inc. The
+distribution and sale of this product are intended for the use of the
+original purchaser only and for use only on the computer system
+specified. Lawful users of this program are hereby licensed only to read
+the program from its medium into memory of a computer solely for the
+purpose of executing the program. Copying (except for one backup copy on
+those systems which provide for it -- see Reference Card), duplicating,
+selling, or otherwise distributing this product is a violation of the
+law.
+
+This manual and all other documentation contained herein are copyrighted and
+all rights reserved by Infocom, Inc. These documents may not, in whole or in
+part, be copied, photocopied, reproduced, translated, or reduced to any
+electronic medium or machine-readable form without prior consent, in writing,
+from Infocom, Inc.
+
+Willful violations of the Copyright Law of the United States can result
+in civil damages of up to $50,000 in addition to actual damages, plus
+criminal penalties of up to one year imprisonment and/or $10,000 fine.
+
+@U[Moonmist] is a trademark of Infocom, Inc.  @U[The Witness] and 
+@U[Seastalker] are registered trademarks of Infocom, Inc.
+
+(c) 1986 Infocom, Inc.
+
+Printed in U.S.A.
+
+@Unnumbered[Quick Reference Guide]
+
+1. To start the story ("boot up"), see the separate Reference Card in
+your @U[Moonmist] package.
+
+2. When you see the prompt (>) on your screen, the computer is waiting
+for your command. There are four kinds of sentences or commands that
+the computer recognizes:
+@Verbatim[
+	A. Direction commands: To move from place to place, just type
+	the direction you want to go: NORTH, SOUTH, EAST, WEST,
+	NORTHEAST, NORTHWEST, SOUTHEAST, SOUTHWEST, UP, DOWN, IN, or
+	OUT.  Or type GO TO (a place).
+
+	B. Actions: Just type whatever you want to do. Some examples:
+	READ THE BOOK or OPEN THE DOOR or LOOK THROUGH THE WINDOW or
+	GIVE THE BALL TO THE CAT. Once you're familiar with simple
+	commands, try the more complex ones described in 
+        "How to 'Talk' to Infocom's Interactive Fiction" on page N.
+
+	C. Commands given to people: To talk to characters 
+	in the story, type their name, then a comma, then what you want 
+	them to do. For example: FRED, GIVE ME THE AXE or OLD MAN,
+	DESCRIBE THE GHOST.
+
+	D. Special commands: Some commands, such as INVENTORY or
+	VERSION, give you specific information or affect your output.
+	A list of these appears in the "Special Commands" section on 
+	page N.]
+
+3. Important! After typing your sentence or command, you must press the
+RETURN (or ENTER) key before the computer will respond.
+
+4. On most computers, your screen will display a special line called the
+status line. It tells you the name of the place you're in and the time
+of night in the story.
+
+5. You can pick up and carry many of the things you'll find in the story.
+For example, if you type TAKE THE LARGE BOOK, you will be carrying it.
+Type INVENTORY to see a list of the things you are carrying.
+
+6. When you want to stop, save your place for later, or start over, read
+the "Starting and Stopping" section on page N.
+
+7. If you have trouble, look at a specific section of the manual for
+more detailed instructions.
\ No newline at end of file
diff --git a/moonmist.zil b/moonmist.zil
new file mode 100644
index 0000000..0e4773b
--- /dev/null
+++ b/moonmist.zil
@@ -0,0 +1,48 @@
+"COMPILE/LOAD FILE for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+<SETG ZDEBUGGING? <>>
+<DEFINE DEBUG-CODE ('X "OPTIONAL" ('Y T))
+	<COND (,ZDEBUGGING? .X) (ELSE .Y)>>
+
+<SETG NEW-VOC? T>
+<FREQUENT-WORDS?>
+<VERSION ZIP TIME>
+
+<COND (<GASSIGNED? PREDGEN>
+       <PRINC "Compiling">
+       <ID 0>)
+      (T <PRINC "Loading">)>
+
+<PRINC " MOONMIST: interactive fiction from Infocom!
+">
+
+ON!-INITIAL	"for DEBUGR"
+OFF!-INITIAL
+ENABLE!-INITIAL
+DISABLE!-INITIAL
+
+<SET REDEFINE T>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !,WBREAKS>>>
+
+<DIRECTIONS ;"Do not change the order of the first eight
+	      without consulting Marc! -- per ENCHANTER"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<INSERT-FILE "MACROS">
+<INSERT-FILE "MISC">
+<INSERT-FILE "SYNTAX">
+<INSERT-FILE "PARSER">
+<INSERT-FILE "VERBS">
+<INSERT-FILE "GOAL">
+<INSERT-FILE "PEOPLE">
+<INSERT-FILE "CASTLE">
+<INSERT-FILE "TOWER">
+<INSERT-FILE "THINGS">
+<INSERT-FILE "PLACES">
+<INSERT-FILE "GLOBAL">
+<INSERT-FILE "COLORS">
+
+<PROPDEF SIZE 5>
diff --git a/parser.cmp b/parser.cmp
new file mode 100644
index 0000000..5e2d6c4
--- /dev/null
+++ b/parser.cmp
@@ -0,0 +1,302 @@
+
+;COMPARISON OF SS:<MOONMIST>PARSER.ZIL.466 AND SS:<MOONMIST>PARSER.ZIL.467
+;OPTIONS ARE    /1
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-2 (55185)
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-2 (55185)
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END
+		       (ADJ <>) (ADJB <>) (VRB <>) (NOUN <>) ADJE WRD) 
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-4 (55279)
+   <COND (<OR <EQUAL? <WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
+			   ,PS?VERB ,P1?VERB>
+		      <GET ,P-OTBL ,P-VERB>>
+	      <WT? .WRD ,PS?ADJECTIVE>>
+	  <SET ADJ T>)
+	 (<AND <WT? .WRD ,PS?OBJECT ,P1?OBJECT>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-5 (55323)
+   <COND (<SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
+	  <COND (<EQUAL? <WT? .WRD ,PS?VERB ,P1?VERB>
+			 <GET ,P-OTBL ,P-VERB>>
+		 <SET VRB T>)>
+	  <COND (<WT? .WRD ,PS?ADJECTIVE>
+		 <SET ADJ T>)>
+	  <COND (<WT? .WRD ,PS?OBJECT>
+		 <SET NOUN T>)>)>
+   <COND (<AND <NOT .VRB> ;"convert apparent verb into noun clause"
+	       <NOT .ADJ>
+	       <WT? .WRD ,PS?OBJECT ,P1?OBJECT>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-13 (55584)
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-19 (55793)
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV <+ ,P-WORDLEN <* 2 ,P-LEXSTART>>>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-18 (55773)
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-24 (56029)
+	       <NOT .VRB>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-22 (55908)
+	  <COND (<OR <ZERO? <SET TEMP <GET ,P-ITBL ,P-PREP1>>>
+		     <EQUAL? .TEMP <GET ,P-OTBL ,P-PREP1>>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-29 (56184)
+	  <COND (<EQUAL? <GET ,P-ITBL ,P-PREP1>
+			 0
+			 <GET ,P-OTBL ,P-PREP1>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-25 (56028)
+			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-33 (56278)
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-27 (56111)
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+			<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+			;<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-35 (56377)
+			       <PUT ,P-ITBL ,P-NC1L
+				    <REST ,P-LEXV <+ ,P-WORDLEN
+						     <* 2 ,P-LEXSTART>>>>)>
+			<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)>
+		 <PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-35 (56420)
+	  <COND (<OR <ZERO? <SET TEMP <GET ,P-ITBL ,P-PREP1>>>
+		     <EQUAL? .TEMP <GET ,P-OTBL ,P-PREP2>>>
+		 <COND (.ADJ
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-43 (56675)
+	  <COND (<EQUAL? <GET ,P-ITBL ,P-PREP1>
+			 <>
+			 <GET ,P-OTBL ,P-PREP2>>
+		 <COND (<OR .ADJ
+			    <AND <ZERO? ,P-NCN> .NOUN>>
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-40 (56623)
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>)>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-50 (56909)
+			       <PUT ,P-ITBL ,P-NC1L
+				    <REST ,P-LEXV <+ ,P-WORDLEN
+						     <* 2 ,P-LEXSTART>>>>)>)>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-51 (56955)
+		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-63 (57293)
+		 <COND (.ADJ
+			<SET BEG <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
+			<PUT ,P-ITBL ,P-NC1 .BEG>
+			<SET ADJ <>>)>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-54 (57064)
+			 <SET WRD <GET .BEG 0>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-69 (57456)
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-56 (57123)
+				<COND (.ADJ <CLAUSE-WIN .ADJ> <RETURN>)
+				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
+			       (<OR <EQUAL? .WRD ,W?ALL ;,W?EVERYT ,W?ONE> 
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-70 (57487)
+				<COND (.ADJB <CLAUSE-WIN .ADJB .ADJE> <RETURN>)
+				      (T
+				       <SETG P-ACLAUSE <>>
+				       <RFALSE>)>)>
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<OR <EQUAL? .WRD ,W?ALL ,W?ONE> 
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-62 (57390)
+				<SET ADJ .WRD>)
+			       (<EQUAL? .WRD ,W?ONE>
+				<CLAUSE-WIN .ADJ>
+				<RETURN>)
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-79 (57804)
+				<COND (<NOT .ADJB> <SET ADJB .BEG>)>
+				<SET ADJ .WRD>
+				<SET ADJE <REST .BEG ,P-WORDLEN>>)
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-68 (57583)
+				<COND (<EQUAL? .WRD ,P-ANAM>
+				       <CLAUSE-WIN .ADJ>)
+				      (T
+				       <CLAUSE-WIN>)>
+				<RETURN>)>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-84 (58007)
+				<COND (<AND ,P-ANAM
+					    <NOT <EQUAL? .WRD ,P-ANAM>>>
+				       <SETG P-ANAM <>>
+				       <SET ADJB <GET ,P-ITBL ,P-NC1>>
+				       <SET ADJE .END>)>)>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-77 (57811)
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-93 (58282)
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG ,P-WORDLEN>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-92 (58285)
+<ROUTINE CLAUSE-WIN ("OPT" (ADJ <>)) 
+	<COND (.ADJ
+	       <PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>)
+	      (ELSE <SET ADJ T>)>
+	<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-108 (58765)
+<ROUTINE CLAUSE-WIN ("OPT" (ADJB <>) (ADJE <>)) 
+	<COND (.ADJB
+	       <PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>)>
+	<PUT ,P-CCTBL ,CC-BEG ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-END <+ ,P-ACLAUSE 1>>
+	<PUT ,P-CCTBL ,CC-IBEG .ADJB>
+	<PUT ,P-CCTBL ,CC-IEND .ADJE>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-99 (58538)
+	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL1>)
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-116 (59063)
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL1>)
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-101 (58597)
+	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL2>)>
+	<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-118 (59121)
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL2>)>
+	<CLAUSE-COPY ,P-OTBL ,P-OTBL>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-13 (65387)
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
+	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL2>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 10-13 (65905)
+	       <PUT ,P-CCTBL ,CC-BEG ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-END ,P-NC2L>
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL2>
+	       <PUT ,P-CCTBL ,CC-IBEG <>>
+	       <PUT ,P-CCTBL ,CC-IEND <>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-18 (65584)
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL1>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 10-20 (66169)
+	       <PUT ,P-CCTBL ,CC-BEG ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-END ,P-NC1L>
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL1>
+	       <PUT ,P-CCTBL ,CC-IBEG <>>
+	       <PUT ,P-CCTBL ,CC-IEND <>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-157 (70200)
+"pointers used by CLAUSE-COPY (source/destination beginning/end pointers):"
+<CONSTANT CC-SBPTR 0>
+<CONSTANT CC-SEPTR 1>
+<CONSTANT CC-OCLAUSE 2>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-2 (70853)
+"CLAUSE-COPY"
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-164 (70388)
+<ROUTINE CLAUSE-COPY (SRC DEST "OPT" (INSRT <>)
+		      "AUX" OCL BEG END BB EE OBEG CNT B E)
+	<SET BB <GET ,P-CCTBL ,CC-SBPTR>>
+	<SET EE <GET ,P-CCTBL ,CC-SEPTR>>
+	<SET OCL <GET ,P-CCTBL ,CC-OCLAUSE>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-6 (70908)
+"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
+<CONSTANT CC-BEG 0>	"slot in source to start from"
+<CONSTANT CC-END 1>	"slot in source to end at"
+<CONSTANT CC-CLAUSE 2>	"which orphan table to use"
+<CONSTANT CC-IBEG 3>	"insertion beginning (from lexv)"
+<CONSTANT CC-IEND 4>	"insertion ending"
+"do something about duplicate words in clause?"
+<ROUTINE CLAUSE-COPY (SRC DEST
+		      "AUX" (IBEG <>) IEND OCL BEG END BB EE OBEG CNT B E)
+	<SET BB <GET ,P-CCTBL ,CC-BEG>>
+	<SET EE <GET ,P-CCTBL ,CC-END>>
+	<SET OCL <GET ,P-CCTBL ,CC-CLAUSE>>
+	<SET IBEG <GET ,P-CCTBL ,CC-IBEG>>
+	<SET IEND <GET ,P-CCTBL ,CC-IEND>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-173 (70698)
+		<COND (<EQUAL? .BEG .END> <RETURN>)>
+		<COND (<AND .INSRT
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-26 (71663)
+		<COND (<EQUAL? .BEG .END>
+		       <COND (<AND .IBEG <NOT ,P-ANAM>>
+			      <CLAUSE-SUBSTRUC .IBEG .IEND>)>
+		       <RETURN>)>
+		<COND (<AND .IBEG
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-176 (70799)
+		       <COND (<EQUAL? .INSRT T>
+			      <SET B <GET ,P-ITBL ,P-NC1>>
+			      <SET E <GET ,P-ITBL ,P-NC1L>>
+			      <REPEAT ()
+				      <COND (<EQUAL? .B .E> <RETURN>)>
+				      <CLAUSE-ADD <GET .B 0>>
+				      <SET B <REST .B ,P-WORDLEN>>>)
+			     (ELSE
+			      <COND (<NOT <EQUAL? .INSRT <GET .OCL 1>>>
+				     <CLAUSE-ADD .INSRT>)>
+			      <CLAUSE-ADD ,P-ANAM>)>)
+		      (ELSE
+		       <CLAUSE-ADD <GET .BEG 0>>)>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-32 (71858)
+		       <CLAUSE-SUBSTRUC .IBEG .IEND>)>
+		<CLAUSE-ADD <GET .BEG 0>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-190 (71278)
+	<COND (<AND <EQUAL? .SRC .DEST>
+		    <G? .OBEG 0>
+		    <L? 0 <SET CNT <- <GET .OCL ,P-MATCHLEN> .OBEG>>>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-35 (71966)
+	<COND (<AND <G? .OBEG 0>
+		    <G? <SET CNT <- <GET .OCL ,P-MATCHLEN> .OBEG>> 0>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-209 (71811)
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-53 (72472)
+<ROUTINE CLAUSE-SUBSTRUC (B E)
+	 <REPEAT ()
+		 <COND (<EQUAL? .B .E> <RETURN>)>
+		 <CLAUSE-ADD <GET .B 0>>
+		 <SET B <REST .B ,P-WORDLEN>>>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-210 (71870)
+	<SET OCL <GET ,P-CCTBL ,CC-OCLAUSE>>
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-60 (72679)
+	<SET OCL <GET ,P-CCTBL ,CC-CLAUSE>>
+***************
+
+**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-218 (72130)
+	       <PUT .OCL ,P-MATCHLEN .PTR>)>>   
+ 
+**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-68 (72938)
+	       <PUT .OCL ,P-MATCHLEN .PTR>)>>
+***************
+
diff --git a/parser.zap b/parser.zap
new file mode 100644
index 0000000..4fe8fbd
--- /dev/null
+++ b/parser.zap
@@ -0,0 +1,3161 @@
+
+
+	.FUNCT	MAIN-LOOP,X
+?PRG1:	CALL	MAIN-LOOP-1 >X
+	JUMP	?PRG1
+
+
+	.FUNCT	MAIN-LOOP-1,ICNT,OCNT,NUM,CNT,OBJ,V,PTBL,OBJ1,TMP,X,GW,?TMP1
+	SET	'CNT,0
+	SET	'OBJ,FALSE-VALUE
+	SET	'PTBL,TRUE-VALUE
+	CALL	PARSER >P-WON
+	ZERO?	P-WON /?CCL3
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	GETB	P-PRSI,P-MATCHLEN >ICNT
+	GETB	P-PRSO,P-MATCHLEN >OCNT
+	ZERO?	OCNT \?CCL6
+	ZERO?	ICNT /?CND4
+?CCL6:	ZERO?	P-IT-OBJECT /?CND4
+	CALL	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CND4
+	SET	'TMP,FALSE-VALUE
+?PRG12:	IGRTR?	'CNT,ICNT /?REP13
+	GETB	P-PRSI,CNT
+	EQUAL?	STACK,IT \?PRG12
+	PUTB	P-PRSI,CNT,P-IT-OBJECT
+	CALL	TELL-I-ASSUME,P-IT-OBJECT
+	SET	'TMP,TRUE-VALUE
+?REP13:	SET	'CNT,0
+?PRG19:	IGRTR?	'CNT,OCNT /?REP20
+	GETB	P-PRSO,CNT
+	EQUAL?	STACK,IT \?PRG19
+	PUTB	P-PRSO,CNT,P-IT-OBJECT
+	CALL	TELL-I-ASSUME,P-IT-OBJECT
+?REP20:	SET	'CNT,0
+?CND4:	ZERO?	OCNT \?CCL27
+	SET	'NUM,OCNT
+	JUMP	?CND25
+?CCL27:	GRTR?	OCNT,1 \?CCL29
+	ZERO?	ICNT \?CCL32
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND30
+?CCL32:	GETB	P-PRSI,1 >OBJ
+?CND30:	SET	'NUM,OCNT
+	JUMP	?CND25
+?CCL29:	GRTR?	ICNT,1 \?CCL34
+	SET	'PTBL,FALSE-VALUE
+	GETB	P-PRSO,1 >OBJ
+	SET	'NUM,ICNT
+	JUMP	?CND25
+?CCL34:	SET	'NUM,1
+?CND25:	ZERO?	OBJ \?CND35
+	EQUAL?	ICNT,1 \?CND35
+	GETB	P-PRSI,1 >OBJ
+?CND35:	EQUAL?	PRSA,V?WALK \?CCL41
+	CALL	PERFORM,PRSA,PRSO >V
+	JUMP	?CND39
+?CCL41:	ZERO?	NUM \?CCL44
+	GETB	P-SYNTAX,P-SBITS
+	BAND	STACK,P-SONUMS
+	ZERO?	STACK \?CCL47
+	CALL	PERFORM,PRSA >V
+	SET	'PRSO,FALSE-VALUE
+	JUMP	?CND39
+?CCL47:	ZERO?	LIT \?CCL49
+	CALL	SEE-VERB?
+	ZERO?	STACK /?CCL49
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	CALL	TOO-DARK
+	JUMP	?CND39
+?CCL49:	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	PRINTI	"(There isn't any"
+	ZERO?	PTBL /?PRD58
+	GETB	P-SYNTAX,P-SFWIM1
+	EQUAL?	STACK,PERSONBIT /?PRG63
+?PRD58:	ZERO?	PTBL \?PRG65
+	GETB	P-SYNTAX,P-SFWIM2
+	EQUAL?	STACK,PERSONBIT \?PRG65
+?PRG63:	PRINTI	"one"
+	JUMP	?PRG67
+?PRG65:	PRINTI	"thing"
+?PRG67:	PRINTI	" to "
+	GET	P-ITBL,P-VERBN >TMP
+	EQUAL?	PRSA,V?TELL \?CCL71
+	PRINTI	"talk to"
+	JUMP	?PRG78
+?CCL71:	ZERO?	P-MERGED \?CTR74
+	ZERO?	P-OFLAG /?CCL75
+?CTR74:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?PRG78
+?CCL75:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK >V
+?PRG78:	PRINTI	"!)"
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND39
+?CCL44:	ZERO?	PTBL /?CCL81
+	GRTR?	NUM,1 \?CCL81
+	EQUAL?	PRSA,V?COMPARE \?CCL81
+	CALL	PERFORM,PRSA,OBJECT-PAIR >V
+	JUMP	?CND39
+?CCL81:	SET	'X,0
+	SET	'TMP,0
+	SET	'GW,FALSE-VALUE
+?PRG85:	IGRTR?	'CNT,NUM \?CCL89
+	GRTR?	X,0 \?CCL92
+	PRINTI	"The "
+	EQUAL?	X,NUM /?PRG99
+	PRINTI	"other "
+?PRG99:	PRINTI	"object"
+	EQUAL?	X,1 /?PRG105
+	PRINTC	115
+?PRG105:	PRINTI	" that you mentioned "
+	EQUAL?	X,1 /?PRG112
+	PRINTI	"are"
+	JUMP	?PRG114
+?PRG112:	PRINTI	"is"
+?PRG114:	PRINTI	"n't here."
+	CRLF	
+	JUMP	?CND39
+?CCL92:	ZERO?	TMP \?CND39
+	CALL	MORE-SPECIFIC
+	JUMP	?CND39
+?CCL89:	ZERO?	PTBL /?CCL119
+	GETB	P-PRSO,CNT >OBJ1
+	JUMP	?CND117
+?CCL119:	GETB	P-PRSI,CNT >OBJ1
+?CND117:	GRTR?	NUM,1 /?CCL121
+	GET	P-ITBL,P-NC1
+	GET	STACK,0
+	EQUAL?	STACK,W?ALL \?CND120
+?CCL121:	EQUAL?	OBJ1,NOT-HERE-OBJECT \?CCL126
+	INC	'X
+	JUMP	?PRG85
+?CCL126:	EQUAL?	P-GETFLAGS,P-ALL \?CCL128
+	CALL	VERB-ALL-TEST,OBJ1,OBJ
+	ZERO?	STACK /?PRG85
+?CCL128:	CALL	ACCESSIBLE?,OBJ1
+	ZERO?	STACK /?PRG85
+	EQUAL?	OBJ1,PLAYER /?PRG85
+	EQUAL?	OBJ1,COSTUME \?CND135
+	ZERO?	GW \?PRG85
+	SET	'GW,TRUE-VALUE
+?CND135:	EQUAL?	OBJ1,IT \?CCL142
+	PRINTD	P-IT-OBJECT
+	JUMP	?PRG143
+?CCL142:	PRINTD	OBJ1
+?PRG143:	PRINTI	": "
+?CND120:	SET	'TMP,TRUE-VALUE
+	ZERO?	PTBL /?CCL147
+	PUSH	OBJ1
+	JUMP	?CND145
+?CCL147:	PUSH	OBJ
+?CND145:	CALL	QCONTEXT-CHECK,STACK >V
+	ZERO?	PTBL /?CCL150
+	SET	'PRSO,OBJ1
+	SET	'PRSI,OBJ
+	JUMP	?CND148
+?CCL150:	SET	'PRSO,OBJ
+	SET	'PRSI,OBJ1
+?CND148:	CALL	PERFORM,PRSA,PRSO,PRSI >V
+	EQUAL?	V,M-FATAL \?PRG85
+?CND39:	SET	'OPRSO,PRSO
+	EQUAL?	V,M-FATAL \?CND1
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND1
+?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+?CND1:	ZERO?	CLOCK-WAIT \?CND155
+	ZERO?	P-WON /?CND155
+	CALL	GAME-VERB?
+	ZERO?	STACK \?CND155
+	SET	'CLOCKER-RUNNING,1
+	CALL	CLOCKER >V
+	SET	'CLOCKER-RUNNING,2
+?CND155:	SET	'PRSA,FALSE-VALUE
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSI,FALSE-VALUE
+	RETURN	PRSI
+
+
+	.FUNCT	TELL-I-ASSUME,OBJ,STR=0
+	ZERO?	STR \?PRG8
+	EQUAL?	OPRSO,OBJ /FALSE
+	FSET?	OBJ,SECRETBIT /FALSE
+?PRG8:	PRINT	I-ASSUME
+	ZERO?	STR /?PRG14
+	PRINT	STR
+?PRG14:	CALL	PRINTT,OBJ
+	PRINTR	".]"
+
+
+	.FUNCT	VERB-ALL-TEST,O,I,L
+	LOC	O >L
+	EQUAL?	O,PAINT /FALSE
+	EQUAL?	PRSA,V?GIVE,V?DROP \?CCL5
+	EQUAL?	O,NOW-WEARING /FALSE
+	EQUAL?	L,WINNER /TRUE
+	RFALSE	
+?CCL5:	EQUAL?	PRSA,V?PUT-IN,V?PUT \?CCL13
+	EQUAL?	O,I,NOW-WEARING /FALSE
+	IN?	O,I /FALSE
+	RTRUE	
+?CCL13:	EQUAL?	PRSA,V?TAKE \?CCL20
+	FSET?	O,SECRETBIT /FALSE
+	FSET?	O,TAKEBIT /?CND21
+	FSET?	O,TRYTAKEBIT \FALSE
+?CND21:	ZERO?	I /?CCL29
+	EQUAL?	L,I /?CND27
+	RFALSE	
+?CCL29:	EQUAL?	L,HERE \?CND27
+	EQUAL?	O,CANDLE \TRUE
+	EQUAL?	P-PRSA-WORD,W?RAISE,W?LIFT /TRUE
+	RFALSE	
+?CND27:	FSET?	L,PERSONBIT /TRUE
+	FSET?	L,SURFACEBIT /TRUE
+	FSET?	L,CONTBIT \FALSE
+	FSET?	L,OPENBIT /TRUE
+	RFALSE	
+?CCL20:	ZERO?	I /TRUE
+	EQUAL?	O,I /FALSE
+	RTRUE	
+
+
+	.FUNCT	GAME-VERB?
+	EQUAL?	PRSA,V?$VERIFY,V?VERSION /TRUE
+	EQUAL?	PRSA,V?VERBOSE,V?UNSCRIPT,V?TIME /TRUE
+	EQUAL?	PRSA,V?TELL,V?SUPER-BRIEF,V?SCRIPT /TRUE
+	EQUAL?	PRSA,V?SCORE,V?SAVE,V?RESTORE /TRUE
+	EQUAL?	PRSA,V?RESTART,V?QUIT,V?BRIEF /TRUE
+	RFALSE	
+
+
+	.FUNCT	QCONTEXT-CHECK,PER,OTHER,WHO=0,N=0
+	EQUAL?	PRSA,V?HELP /?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT,V?SHOW \FALSE
+	EQUAL?	PER,PLAYER \FALSE
+?CCL3:	FIRST?	HERE >OTHER /?PRG9
+?PRG9:	ZERO?	OTHER /?REP10
+	FSET?	OTHER,PERSONBIT \?CND11
+	FSET?	OTHER,INVISIBLE /?CND11
+	EQUAL?	OTHER,PLAYER /?CND11
+	INC	'N
+	SET	'WHO,OTHER
+?CND11:	NEXT?	OTHER >OTHER /?PRG9
+	JUMP	?PRG9
+?REP10:	EQUAL?	1,N \?CND19
+	ZERO?	QCONTEXT \?CND19
+	SET	'QCONTEXT,WHO
+?CND19:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /FALSE
+	EQUAL?	WINNER,PLAYER \FALSE
+	SET	'WINNER,QCONTEXT
+	PRINTI	"(said to "
+	PRINTD	QCONTEXT
+	PRINTR	")"
+
+
+	.FUNCT	QCONTEXT-GOOD?
+	ZERO?	QCONTEXT /FALSE
+	FSET?	QCONTEXT,PERSONBIT \FALSE
+	FSET?	QCONTEXT,MUNGBIT /FALSE
+	CALL	META-LOC,QCONTEXT
+	EQUAL?	HERE,STACK \FALSE
+	RETURN	QCONTEXT
+
+
+	.FUNCT	NOT-IT,WHO
+	EQUAL?	WHO,P-HER-OBJECT \?CCL3
+	FCLEAR	HER,TOUCHBIT
+	RTRUE	
+?CCL3:	EQUAL?	WHO,P-HIM-OBJECT \?CCL5
+	FCLEAR	HIM,TOUCHBIT
+	RTRUE	
+?CCL5:	EQUAL?	WHO,P-IT-OBJECT \FALSE
+	FCLEAR	IT,TOUCHBIT
+	RTRUE	
+
+
+	.FUNCT	NOT-HERE-OBJECT-F,TBL,PRSO?=0,OBJ=0
+	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL3
+	EQUAL?	PRSI,NOT-HERE-OBJECT \?CCL3
+	PRINTI	"(Those things aren't here!)"
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL11
+	SET	'TBL,P-PRSO
+	SET	'PRSO?,TRUE-VALUE
+	JUMP	?CND1
+?CCL11:	SET	'TBL,P-PRSI
+?CND1:	EQUAL?	P-XADJ,A?MY \?CND12
+	EQUAL?	P-XNAM,W?EYE,W?EYES \?CCL16
+	SET	'OBJ,EYE
+	JUMP	?CND14
+?CCL16:	EQUAL?	P-XNAM,W?HANDS,W?HAND \?CCL18
+	SET	'OBJ,HANDS
+	JUMP	?CND14
+?CCL18:	EQUAL?	P-XNAM,W?HEAD \?CND14
+	SET	'OBJ,HEAD
+?CND14:	ZERO?	OBJ /?CND12
+	ZERO?	PRSO? /?CCL24
+	SET	'PRSO,OBJ
+	RFALSE	
+?CCL24:	SET	'PRSI,OBJ
+	RFALSE	
+?CND12:	EQUAL?	P-ADJN,W?YOUR,W?HER,W?HIS \?CND25
+	ZERO?	P-NAM /?CND25
+	CALL	RESOLVE-YOUR-HER-HIS
+?CND25:	ZERO?	PRSO? /?PRD32
+	CALL	PRSO-VERB?
+	ZERO?	STACK \?CCL30
+?PRD32:	ZERO?	PRSO? \?PRG44
+	CALL	PRSI-VERB?
+	ZERO?	STACK /?PRG44
+?CCL30:	CALL	FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,NOT-HERE-OBJECT /?PRG44
+	RETURN	2
+?PRG44:	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't "
+	EQUAL?	PRSA,V?LISTEN \?PRG51
+	PRINTI	"hear"
+	JUMP	?CND46
+?PRG51:	PRINTI	"see"
+?CND46:	CALL	CAPITAL-NOUN?,P-XNAM
+	ZERO?	STACK \?CND53
+	PRINTI	" any"
+?CND53:	CALL	NOT-HERE-PRINT
+	PRINTI	" right here!)"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	PRSO-VERB?
+	EQUAL?	PRSA,V?WALK-TO,V?WAIT-FOR /TRUE
+	EQUAL?	PRSA,V?USE,V?THROUGH,V?TELL /TRUE
+	EQUAL?	PRSA,V?TALK-ABOUT,V?LEAVE,V?FOLLOW /TRUE
+	EQUAL?	PRSA,V?FIND,V?DESCRIBE,V?DRESS /TRUE
+	EQUAL?	PRSA,V?DISEMBARK,V?CLIMB-UP,V?CLIMB-DOWN /TRUE
+	EQUAL?	PRSA,V?BOARD,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /TRUE
+	EQUAL?	WINNER,PLAYER /FALSE
+	EQUAL?	PRSA,V?SSHOW,V?TAKE,V?GIVE /TRUE
+	RFALSE	
+
+
+	.FUNCT	PRSI-VERB?
+	EQUAL?	PRSA,V?TELL-ABOUT,V?TAKE-TO /TRUE
+	EQUAL?	PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT /TRUE
+	EQUAL?	WINNER,PLAYER /FALSE
+	EQUAL?	PRSA,V?SHOW,V?SGIVE /TRUE
+	EQUAL?	PRSA,V?SSHOW /TRUE
+	RFALSE	
+
+
+	.FUNCT	GEN-TEST,OBJ
+	CALL	VISIBLE?,OBJ
+	ZERO?	STACK \TRUE
+	CALL	CORRIDOR-LOOK,OBJ
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?FOLLOW /?PRD9
+	CALL	REMOTE-VERB?
+	ZERO?	STACK /FALSE
+?PRD9:	FSET?	OBJ,PERSONBIT \FALSE
+	FSET?	OBJ,SEENBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	NOT-SECRET-TEST,OBJ
+	FSET?	OBJ,SECRETBIT \TRUE
+	FSET?	OBJ,SEENBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	PRUNE,TBL,LEN,FCN,CNT=1,OBJ
+?PRG1:	GETB	TBL,CNT >OBJ
+	CALL	FCN,OBJ
+	ZERO?	STACK \?CND3
+	DEC	'LEN
+	CALL	ELIMINATE,TBL,CNT,LEN
+	GRTR?	CNT,LEN \?PRG1
+?CND3:	IGRTR?	'CNT,LEN \?PRG1
+	PUTB	TBL,P-MATCHLEN,LEN
+	RETURN	LEN
+
+
+	.FUNCT	ELIMINATE,TBL,CNT,N
+?PRG1:	ADD	1,CNT
+	GETB	TBL,STACK
+	PUTB	TBL,CNT,STACK
+	IGRTR?	'CNT,N \?PRG1
+	RTRUE	
+
+
+	.FUNCT	MOBY-FIND,TBL,OBJ=1,LEN,FOO
+	SET	'P-NAM,P-XNAM
+	SET	'P-ADJ,P-XADJ
+	PUTB	TBL,P-MATCHLEN,0
+?PRG3:	CALL	META-LOC,OBJ,TRUE-VALUE >FOO
+	ZERO?	FOO /?CND5
+	CALL	THIS-IT?,OBJ >FOO
+	ZERO?	FOO /?CND5
+	CALL	OBJ-FOUND,OBJ,TBL >FOO
+?CND5:	IGRTR?	'OBJ,LAST-OBJECT \?PRG3
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	GETB	TBL,P-MATCHLEN >LEN
+	EQUAL?	LEN,1 /?CCL12
+	RETURN	LEN
+?CCL12:	GETB	TBL,1 >P-MOBY-FOUND
+	RETURN	LEN
+
+
+	.FUNCT	FIND-NOT-HERE,TBL,PRSO?,M-F,OBJ,LEN,CNT,LOCAL=0
+	CALL	MOBY-FIND,TBL >M-F
+	GRTR?	M-F,1 \?CND1
+	SET	'CNT,0
+?PRG3:	IGRTR?	'CNT,M-F /?REP4
+	GETB	TBL,CNT >OBJ
+	CALL	GEN-TEST,OBJ
+	ZERO?	STACK /?PRG3
+	IGRTR?	'LOCAL,1 /?REP4
+	SET	'P-MOBY-FOUND,OBJ
+	JUMP	?PRG3
+?REP4:	EQUAL?	LOCAL,1 \?CND1
+	SET	'M-F,1
+?CND1:	EQUAL?	1,M-F \?CCL16
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \?CCL19
+	FSET?	P-MOBY-FOUND,SECRETBIT \?CCL19
+	CALL	NOT-FOUND,P-MOBY-FOUND
+	RTRUE	
+?CCL19:	CALL	REMOTE-VERB?
+	ZERO?	STACK \?CCL23
+	EQUAL?	PRSA,V?$CALL /?CCL23
+	CALL	VISIBLE?,P-MOBY-FOUND
+	ZERO?	STACK \?CCL23
+	CALL	NOT-HERE,P-MOBY-FOUND
+	RTRUE	
+?CCL23:	ZERO?	PRSO? /?CCL28
+	SET	'PRSO,P-MOBY-FOUND
+	RFALSE	
+?CCL28:	SET	'PRSI,P-MOBY-FOUND
+	RFALSE	
+?CCL16:	LESS?	1,M-F \?CCL30
+	GETB	TBL,1 >OBJ
+	FSET?	OBJ,PERSONBIT \?CCL30
+	GETB	TBL,P-MATCHLEN
+	CALL	PRUNE,TBL,STACK,GEN-TEST >LEN
+	ZERO?	LEN \?CCL35
+	RETURN	NOT-HERE-OBJECT
+?CCL35:	EQUAL?	LEN,1 /?CND33
+	CALL	WHICH-PRINT,0,LEN,TBL
+	EQUAL?	TBL,P-PRSO \?CCL39
+	SET	'P-ACLAUSE,P-NC1
+	JUMP	?CND37
+?CCL39:	SET	'P-ACLAUSE,P-NC2
+?CND37:	SET	'P-AADJ,P-ADJ
+	SET	'P-ANAM,P-NAM
+	CALL	ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'P-OFLAG,TRUE-VALUE
+	RTRUE	
+?CND33:	FSET?	OBJ,SECRETBIT \?CCL42
+	CALL	NOT-FOUND,OBJ
+	RTRUE	
+?CCL42:	ZERO?	PRSO? /?CCL44
+	SET	'PRSO,OBJ
+	RFALSE	
+?CCL44:	SET	'PRSI,OBJ
+	RFALSE	
+?CCL30:	LESS?	1,M-F \?CCL46
+	GETB	TBL,1 >OBJ
+	GETP	OBJ,P?GENERIC
+	CALL	STACK,TBL,M-F >OBJ
+	ZERO?	OBJ /?CCL46
+	EQUAL?	OBJ,NOT-HERE-OBJECT /TRUE
+	FSET?	OBJ,SECRETBIT \?CCL53
+	CALL	NOT-FOUND,OBJ
+	RTRUE	
+?CCL53:	ZERO?	PRSO? /?CCL55
+	SET	'PRSO,OBJ
+	RFALSE	
+?CCL55:	SET	'PRSI,OBJ
+	RFALSE	
+?CCL46:	ZERO?	PRSO? \?PRD59
+	IN?	PRSO,HERE \?PRD59
+	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-FOR,V?ASK-ABOUT /?CTR56
+?PRD59:	ZERO?	PRSO? /?PRD63
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?PRD63
+	EQUAL?	PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /?CTR56
+?PRD63:	EQUAL?	WINNER,PLAYER /?CCL57
+	EQUAL?	PRSA,V?SGIVE,V?GIVE,V?FIND \?CCL57
+?CTR56:	SET	'LEN,FALSE-VALUE
+	EQUAL?	WINNER,PLAYER /?CCL71
+	SET	'LEN,WINNER
+	JUMP	?CND69
+?CCL71:	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-FOR,V?ASK-ABOUT \?CCL73
+	SET	'LEN,PRSO
+	JUMP	?CND69
+?CCL73:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CND69
+	SET	'LEN,QCONTEXT
+?CND69:	EQUAL?	LEN,0,PLAYER /?PRG79
+	CALL	START-SENTENCE,LEN
+	PRINTI	" looks confused. "
+?PRG79:	PRINTI	"""I don't know wh"
+	ZERO?	M-F \?PRG86
+	PRINTI	"at you mean by"
+	CALL	NOT-HERE-PRINT
+	JUMP	?PRG90
+?PRG86:	PRINTI	"ich"
+	CALL	NOT-HERE-PRINT
+	PRINTI	" you mean"
+?PRG90:	PRINTR	"!"""
+?CCL57:	ZERO?	PRSO? \?CCL93
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" wouldn't find"
+	CALL	CAPITAL-NOUN?,P-XNAM
+	ZERO?	STACK \?CND96
+	PRINTI	" any"
+?CND96:	CALL	NOT-HERE-PRINT
+	PRINTR	" there."
+?CCL93:	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	NOT-HERE-PRINT
+	ZERO?	P-OFLAG \?CTR2
+	ZERO?	P-MERGED /?CCL3
+?CTR2:	ZERO?	P-XADJ /?CND6
+	PRINTC	32
+	PRINTB	P-XADJN
+?CND6:	ZERO?	P-XNAM /FALSE
+	PRINTC	32
+	PRINTB	P-XNAM
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL16
+	CALL	CLAUSE-PRINT,P-NC1,P-NC1L,FALSE-VALUE
+	RSTACK	
+?CCL16:	CALL	CLAUSE-PRINT,P-NC2,P-NC2L,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	SEE-VERB?
+	EQUAL?	PRSA,V?SSEARCH-FOR,V?SEARCH-FOR,V?SEARCH /TRUE
+	EQUAL?	PRSA,V?READ,V?LOOK-UP,V?LOOK-UNDER /TRUE
+	EQUAL?	PRSA,V?LOOK-THROUGH,V?LOOK-OUTSIDE,V?LOOK-ON /TRUE
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-DOWN,V?LOOK-BEHIND /TRUE
+	EQUAL?	PRSA,V?LOOK,V?FIND,V?EXAMINE /TRUE
+	EQUAL?	PRSA,V?CHASTISE,V?SANALYZE,V?ANALYZE /TRUE
+	RFALSE	
+
+
+	.FUNCT	FIX-HIM-HER-IT,PRON,OBJ
+	ZERO?	OBJ /?CTR2
+	CALL	ACCESSIBLE?,OBJ
+	ZERO?	STACK \?CCL3
+	EQUAL?	PRON,PRSI \?PRD9
+	CALL	PRSI-VERB?
+	ZERO?	STACK /?CTR2
+?PRD9:	EQUAL?	PRON,PRSO \?CCL3
+	CALL	PRSO-VERB?
+	ZERO?	STACK \?CCL3
+?CTR2:	EQUAL?	0,OBJ,PRSI \?CCL16
+	CALL	FAKE-ORPHAN
+	RFALSE	
+?CCL16:	CALL	NOT-HERE,OBJ
+	RFALSE	
+?CCL3:	EQUAL?	PRSO,PRON \?CND17
+	EQUAL?	PRON,IT \?CND19
+	GET	P-IT-WORDS,0
+	PUT	P-ADJW,0,STACK
+	GET	P-IT-WORDS,1
+	PUT	P-NAMW,0,STACK
+?CND19:	SET	'PRSO,OBJ
+	CALL	TELL-I-ASSUME,OBJ
+?CND17:	EQUAL?	PRSI,PRON \TRUE
+	EQUAL?	PRON,IT \?CND23
+	GET	P-IT-WORDS,0
+	PUT	P-ADJW,1,STACK
+	GET	P-IT-WORDS,1
+	PUT	P-NAMW,1,STACK
+?CND23:	SET	'PRSI,OBJ
+	CALL	TELL-I-ASSUME,OBJ
+	RTRUE	
+
+
+	.FUNCT	FAKE-ORPHAN,TMP
+	CALL	ORPHAN,P-SYNTAX,FALSE-VALUE
+	PRINTI	"[Please be specific: wh"
+	GETB	P-SYNTAX,P-SFWIM1
+	EQUAL?	STACK,PERSONBIT \?PRG8
+	PRINTI	"om"
+	JUMP	?PRG10
+?PRG8:	PRINTI	"at"
+?PRG10:	PRINTI	" do you want to "
+	CALL	VERB-PRINT
+	SET	'P-OFLAG,TRUE-VALUE
+	SET	'P-WON,FALSE-VALUE
+	PRINTR	"?]"
+
+
+	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI,X
+	SET	'OA,PRSA
+	SET	'OO,PRSO
+	SET	'OI,PRSI
+	SET	'PRSA,A
+	SET	'PRSI,I
+	SET	'PRSO,O
+	ZERO?	LIT \?CCL3
+	CALL	SEE-VERB?
+	ZERO?	STACK /?CCL3
+	CALL	TOO-DARK
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?WALK /?CND1
+	EQUAL?	IT,PRSI,PRSO \?CND9
+	CALL	FIX-HIM-HER-IT,IT,P-IT-OBJECT
+	ZERO?	STACK \?CND9
+	RETURN	2
+?CND9:	EQUAL?	HER,PRSI,PRSO \?CND15
+	CALL	FIX-HIM-HER-IT,HER,P-HER-OBJECT
+	ZERO?	STACK \?CND15
+	RETURN	2
+?CND15:	EQUAL?	HIM,PRSI,PRSO \?CND1
+	CALL	FIX-HIM-HER-IT,HIM,P-HIM-OBJECT
+	ZERO?	STACK \?CND1
+	RETURN	2
+?CND1:	SET	'V,FALSE-VALUE
+	EQUAL?	A,V?WALK /?CND27
+	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?CND27
+	CALL	D-APPLY,STR?9,NOT-HERE-OBJECT-F >V
+	ZERO?	V /?CND27
+	SET	'P-WON,FALSE-VALUE
+?CND27:	CALL	THIS-IS-IT,PRSI
+	CALL	THIS-IS-IT,PRSO
+	EQUAL?	WINNER,PLAYER /?CND33
+	CALL	THIS-IS-IT,WINNER
+?CND33:	SET	'O,PRSO
+	SET	'I,PRSI
+	ZERO?	V \?CND35
+	GETP	WINNER,P?ACTION
+	CALL	D-APPLY,STR?10,STACK,M-WINNER >V
+?CND35:	ZERO?	V \?CND37
+	IN?	WINNER,CAR \?CCL41
+	PUSH	CAR
+	JUMP	?CND39
+?CCL41:	PUSH	HERE
+?CND39:	GETP	STACK,P?ACTION
+	CALL	D-APPLY,STR?11,STACK,M-BEG >V
+?CND37:	ZERO?	V \?CND42
+	GET	PREACTIONS,A
+	CALL	D-APPLY,STR?12,STACK >V
+?CND42:	SET	'NOW-PRSI,1
+	ZERO?	V \?CND44
+	ZERO?	I /?CND44
+	GETP	I,P?ACTION
+	CALL	D-APPLY,STR?13,STACK >V
+?CND44:	SET	'NOW-PRSI,0
+	ZERO?	V \?CND48
+	ZERO?	O /?CND48
+	EQUAL?	A,V?WALK /?CND48
+	GETP	O,P?ACTION
+	CALL	D-APPLY,STR?14,STACK >V
+?CND48:	ZERO?	V \?CND53
+	GET	ACTIONS,A
+	CALL	D-APPLY,FALSE-VALUE,STACK >V
+?CND53:	SET	'PRSA,OA
+	SET	'PRSO,OO
+	SET	'PRSI,OI
+	RETURN	V
+
+
+	.FUNCT	D-APPLY,STR,FCN,FOO=0,RES
+	ZERO?	FCN /FALSE
+	EQUAL?	STR,STR?15 \?CND4
+	SET	'FOO,M-CONT
+?CND4:	ZERO?	FOO /?CCL8
+	CALL	FCN,FOO >RES
+	RETURN	RES
+?CCL8:	CALL	FCN >RES
+	RETURN	RES
+
+
+	.FUNCT	I-PROMPT,GARG=0
+	DEC	'P-PROMPT
+	RFALSE	
+
+
+	.FUNCT	BUZZER-WORD?,WRD,PTR
+	CALL	QUESTION-WORD?,WRD
+	ZERO?	STACK \?CCL3
+	CALL	NAUGHTY-WORD?,WRD
+	ZERO?	STACK \?CCL3
+	CALL	NUMBER-WORD?,WRD
+	ZERO?	STACK /FALSE
+?CCL3:	PUT	OOPS-TABLE,O-PTR,PTR
+	RTRUE	
+
+
+	.FUNCT	QUESTION-WORD?,WORD,DO-IT=0
+	EQUAL?	WORD,W?(SOME \?CCL3
+	PRINTI	"[Type a real word instead of"
+	PRINT	SOMETHING
+	RTRUE	
+?CCL3:	EQUAL?	WORD,W?WHERE \?CCL7
+	CALL	TO-DO-X-USE-Y,STR?17,STR?18
+	RTRUE	
+?CCL7:	EQUAL?	WORD,W?WHAT,W?WHO,W?WHEN /?CTR8
+	EQUAL?	WORD,W?WHY \?CCL9
+?CTR8:	CALL	TO-DO-X-USE-Y,STR?19,STR?20
+	RTRUE	
+?CCL9:	ZERO?	DO-IT \?PRG16
+	CALL	ZMEMQ,WORD,QUESTION-WORD-TABLE
+	ZERO?	STACK /FALSE
+?PRG16:	PRINTI	"[Please use commands"
+	INC	'QUESTION-WORD-COUNT
+	MOD	QUESTION-WORD-COUNT,4
+	ZERO?	STACK \?PRG23
+	PRINTI	" to tell the computer what you want to do in the story. Here are some commands:
+   GO TO MY ROOM
+   LOOK UNDER THE RUG
+   MADAM, DESCRIBE THE GHOST
+Now you can try again"
+	JUMP	?PRG25
+?PRG23:	PRINTI	", not statements or questions"
+?PRG25:	PRINTR	".]"
+
+
+	.FUNCT	TO-DO-X-USE-Y,STR1,STR2
+	PRINTI	"[To "
+	PRINT	STR1
+	PRINTI	" something, use the command: "
+	PRINT	STR2
+	PRINT	SOMETHING
+	RTRUE	
+
+
+	.FUNCT	NUMBER-WORD?,WRD
+	CALL	ZMEMQ,WRD,NUMBER-WORD-TABLE
+	ZERO?	STACK /FALSE
+	PRINTR	"[Use numerals for numbers, for example ""10.""]"
+
+
+	.FUNCT	NAUGHTY-WORD?,WORD
+	CALL	ZMEMQ,WORD,NAUGHTY-WORD-TABLE
+	ZERO?	STACK /FALSE
+	PRINTC	91
+	CALL	PICK-ONE-NEW,OFFENDED
+	PRINT	STACK
+	PRINTC	93
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	NOT-THAT-WAY,STR
+	PRINTI	"[You can't use "
+	PRINT	STR
+	PRINTR	" that way.]"
+
+
+	.FUNCT	PARSER,PTR=P-LEXSTART,WRD,VAL=0,VERB=0,OF-FLAG=0,LEN,DIR=0,NW=0,LW=0,CNT=-1,OMERGED,OWINNER,TMP,?TMP1,?TMP2
+?PRG1:	IGRTR?	'CNT,P-ITBLLEN /?REP2
+	ZERO?	P-OFLAG \?CND6
+	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+?CND6:	PUT	P-ITBL,CNT,0
+	JUMP	?PRG1
+?REP2:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	SET	'P-XNAM,FALSE-VALUE
+	SET	'P-XADJ,FALSE-VALUE
+	SET	'P-XADJN,FALSE-VALUE
+	ZERO?	P-OFLAG \?CND8
+	PUT	P-NAMW,0,FALSE-VALUE
+	PUT	P-NAMW,1,FALSE-VALUE
+	PUT	P-ADJW,0,FALSE-VALUE
+	PUT	P-ADJW,1,FALSE-VALUE
+	PUT	P-OFW,0,FALSE-VALUE
+	PUT	P-OFW,1,FALSE-VALUE
+?CND8:	SET	'P-PRSA-WORD,FALSE-VALUE
+	SET	'OMERGED,P-MERGED
+	SET	'P-MERGED,FALSE-VALUE
+	SET	'P-END-ON-PREP,FALSE-VALUE
+	PUTB	P-PRSO,P-MATCHLEN,0
+	PUTB	P-PRSI,P-MATCHLEN,0
+	PUTB	P-BUTS,P-MATCHLEN,0
+	SET	'OWINNER,WINNER
+	ZERO?	QUOTE-FLAG \?CND10
+	EQUAL?	WINNER,PLAYER /?CND10
+	SET	'WINNER,PLAYER
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND14
+	LOC	WINNER >HERE
+?CND14:	CALL	LIT? >LIT
+?CND10:	ZERO?	RESERVE-PTR /?CCL18
+	SET	'PTR,RESERVE-PTR
+	CALL	STUFF,P-LEXV,RESERVE-LEXV
+	CALL	INBUF-STUFF,P-INBUF,RESERVE-INBUF
+	ZERO?	VERBOSITY /?CND19
+	EQUAL?	PLAYER,WINNER \?CND19
+	CRLF	
+?CND19:	SET	'RESERVE-PTR,FALSE-VALUE
+	JUMP	?CND16
+?CCL18:	ZERO?	P-CONT /?CCL24
+	SET	'PTR,P-CONT
+	ZERO?	VERBOSITY /?CND16
+	EQUAL?	PLAYER,WINNER \?CND16
+	CRLF	
+	JUMP	?CND16
+?CCL24:	SET	'WINNER,PLAYER
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	GET	OOPS-TABLE,O-PTR
+	ZERO?	STACK \?CND29
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND29:	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND31
+	LOC	WINNER >HERE
+?CND31:	CALL	LIT? >LIT
+	FCLEAR	IT,TOUCHBIT
+	FCLEAR	HER,TOUCHBIT
+	FCLEAR	HIM,TOUCHBIT
+	ZERO?	VERBOSITY /?CND33
+	CRLF	
+?CND33:	ZERO?	P-PROMPT /?PRG51
+	ZERO?	P-OFLAG \?PRG51
+	ZERO?	AWAITING-REPLY \?PRG51
+	EQUAL?	P-PROMPT,P-PROMPT-START \?CCL42
+	PRINTI	"What would you like to do?"
+	JUMP	?CND40
+?CCL42:	DLESS?	'P-PROMPT,1 \?PRG49
+	PRINTI	"[You won't see ""What next?"" any more.]
+"
+	JUMP	?CND40
+?PRG49:	PRINTI	"What next?"
+?CND40:	CRLF	
+?PRG51:	PRINTC	62
+	READ	P-INBUF,P-LEXV
+?CND16:	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	GET	P-LEXV,PTR
+	EQUAL?	W?QUOTE,STACK \?CND53
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CND53
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND53:	GET	P-LEXV,PTR
+	EQUAL?	W?THEN,STACK \?CND57
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND57:	LESS?	1,P-LEN \?CND59
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?YOU \?CND59
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+	ZERO?	NW /?CND59
+	CALL	WT?,NW,64
+	ZERO?	STACK /?CND59
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND59:	LESS?	1,P-LEN \?CND65
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?GO,W?TO \?CND65
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+	ZERO?	NW /?CND65
+	CALL	WT?,NW,64
+	ZERO?	STACK /?CND65
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND65:	ZERO?	P-LEN \?CCL73
+	PRINTC	91
+	PRINT	BEG-PARDON
+	PRINTC	93
+	CRLF	
+	RFALSE	
+?CCL73:	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?OOPS \?CCL77
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA,W?! \?CND78
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND78:	GRTR?	P-LEN,1 /?CCL82
+	CALL	NOT-THAT-WAY,STR?28
+	RFALSE	
+?CCL82:	GET	OOPS-TABLE,O-PTR >VAL
+	ZERO?	VAL /?CCL84
+	GRTR?	P-LEN,2 \?CND85
+	PRINTI	"[Warning: only the first word after OOPS is used.]"
+	CRLF	
+?CND85:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	PUT	AGAIN-LEXV,VAL,STACK
+	SET	'WINNER,OWINNER
+	MUL	PTR,P-LEXELEN
+	ADD	STACK,6 >PTR
+	GETB	P-LEXV,PTR >?TMP2
+	ADD	PTR,1
+	GETB	P-LEXV,STACK >?TMP1
+	MUL	VAL,P-LEXELEN
+	ADD	STACK,3
+	CALL	INBUF-ADD,?TMP2,?TMP1,STACK
+	CALL	STUFF,P-LEXV,AGAIN-LEXV
+	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	GET	OOPS-TABLE,O-START >PTR
+	CALL	INBUF-STUFF,P-INBUF,OOPS-INBUF
+	SET	'OOPS-PRINT,TRUE-VALUE
+	CALL	PRINT-LEXV,PTR
+	SET	'OOPS-PRINT,FALSE-VALUE
+	JUMP	?CND71
+?CCL84:	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+	PRINTI	"[There was no word to replace!]"
+	CRLF	
+	RFALSE	
+?CCL77:	ZERO?	P-CONT \?CND71
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND71:	SET	'P-CONT,FALSE-VALUE
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?AGAIN,W?G \?CCL95
+	GETB	OOPS-INBUF,1
+	ZERO?	STACK \?CCL98
+	PRINTI	"[What do you want to do again?]"
+	CRLF	
+	RFALSE	
+?CCL98:	ZERO?	P-OFLAG /?CCL102
+	CALL	NOT-THAT-WAY,STR?29
+	RFALSE	
+?CCL102:	ZERO?	P-WON \?CCL104
+	PRINTI	"[That would just repeat a mistake!]"
+	CRLF	
+	RFALSE	
+?CCL104:	GRTR?	P-LEN,1 \?CCL108
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >CNT
+	EQUAL?	CNT,W?PERIOD,W?COMMA,W?THEN /?CTR110
+	EQUAL?	CNT,W?AND,W?!,W?? \?CCL111
+?CTR110:	ADD	PTR,4 >PTR
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,2
+	PUTB	P-LEXV,P-LEXWORDS,STACK
+	JUMP	?CND96
+?CCL111:	CALL	DONT-UNDERSTAND
+	RFALSE	
+?CCL108:	ADD	PTR,P-LEXELEN >PTR
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,1
+	PUTB	P-LEXV,P-LEXWORDS,STACK
+?CND96:	GETB	P-LEXV,P-LEXWORDS
+	GRTR?	STACK,0 \?CCL116
+	CALL	STUFF,RESERVE-LEXV,P-LEXV
+	CALL	INBUF-STUFF,RESERVE-INBUF,P-INBUF
+	SET	'RESERVE-PTR,PTR
+	JUMP	?CND114
+?CCL116:	SET	'RESERVE-PTR,FALSE-VALUE
+?CND114:	SET	'WINNER,OWINNER
+	SET	'P-MERGED,OMERGED
+	CALL	INBUF-STUFF,P-INBUF,OOPS-INBUF
+	CALL	STUFF,P-LEXV,AGAIN-LEXV
+	SET	'CNT,-1
+	SET	'DIR,AGAIN-DIR
+?PRG117:	IGRTR?	'CNT,P-ITBLLEN /?CND93
+	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG117
+?CCL95:	SET	'P-NUMBER,-1
+	GETB	P-LEXV,P-LEXWORDS
+	MUL	P-LEXELEN,STACK
+	ADD	PTR,STACK >LEN
+	CALL	FIX-POSSESSIVES,PTR,LEN
+	EQUAL?	TRUE-VALUE,STACK /FALSE
+	CALL	STUFF,AGAIN-LEXV,P-LEXV
+	CALL	INBUF-STUFF,OOPS-INBUF,P-INBUF
+	PUT	OOPS-TABLE,O-START,PTR
+	MUL	4,P-LEN
+	PUT	OOPS-TABLE,O-LENGTH,STACK
+	GET	OOPS-TABLE,O-END
+	ZERO?	STACK \?CND124
+	MUL	2,LEN >LEN
+	SUB	LEN,1
+	GETB	P-LEXV,STACK >?TMP1
+	SUB	LEN,2
+	GETB	P-LEXV,STACK
+	ADD	?TMP1,STACK
+	PUT	OOPS-TABLE,O-END,STACK
+?CND124:	SET	'RESERVE-PTR,FALSE-VALUE
+	SET	'LEN,P-LEN
+	SET	'P-DIRECTION,FALSE-VALUE
+	SET	'P-NCN,0
+	SET	'P-GETFLAGS,0
+	PUT	P-ITBL,P-VERBN,0
+?PRG126:	DLESS?	'P-LEN,0 \?CCL130
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND93
+?CCL130:	GET	P-LEXV,PTR >WRD
+	ZERO?	WRD \?CTR131
+	CALL	NUMBER?,PTR >WRD
+	ZERO?	WRD \?CTR131
+	CALL	NAME?,PTR >WRD
+	ZERO?	WRD /?CCL132
+?CTR131:	ZERO?	P-LEN \?CCL138
+	SET	'NW,0
+	JUMP	?CND136
+?CCL138:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+?CND136:	EQUAL?	WRD,W?TO \?CCL141
+	EQUAL?	VERB,ACT?TELL,ACT?ASK \?CCL141
+	PUT	P-ITBL,P-VERB,ACT?TELL
+	SET	'WRD,W?QUOTE
+	JUMP	?CND139
+?CCL141:	EQUAL?	WRD,W?THEN \?CND139
+	GRTR?	P-LEN,0 \?CND139
+	ZERO?	VERB \?CND139
+	ZERO?	QUOTE-FLAG \?CND139
+	PUT	P-ITBL,P-VERB,ACT?TELL
+	PUT	P-ITBL,P-VERBN,0
+	SET	'WRD,W?QUOTE
+?CND139:	EQUAL?	WRD,W?PERIOD \?CCL151
+	EQUAL?	LW,W?MRS,W?MR,W?MS /?CTR150
+	EQUAL?	LW,W?DR \?CCL151
+?CTR150:	SET	'LW,0
+	JUMP	?CND128
+?CCL151:	EQUAL?	WRD,W?THEN,W?PERIOD,W?QUOTE /?CTR156
+	EQUAL?	WRD,W?!,W?? \?CCL157
+?CTR156:	EQUAL?	WRD,W?QUOTE \?CND160
+	ZERO?	QUOTE-FLAG /?CCL164
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND160
+?CCL164:	SET	'QUOTE-FLAG,TRUE-VALUE
+?CND160:	ZERO?	P-LEN /?PEN165
+	ADD	PTR,P-LEXELEN >P-CONT
+?PEN165:	PUTB	P-LEXV,P-LEXWORDS,P-LEN
+	JUMP	?CND93
+?CCL157:	CALL	WT?,WRD,16,3 >VAL
+	ZERO?	VAL /?CCL168
+	EQUAL?	VERB,FALSE-VALUE,ACT?HEAD \?CCL168
+	EQUAL?	LEN,1 /?CTR167
+	EQUAL?	LEN,2 \?PRD174
+	EQUAL?	VERB,ACT?HEAD /?CTR167
+?PRD174:	EQUAL?	NW,W?THEN,W?PERIOD,W?QUOTE \?PRD177
+	GRTR?	LEN,1 /?CTR167
+?PRD177:	EQUAL?	NW,W?!,W?? \?PRD180
+	GRTR?	LEN,1 /?CTR167
+?PRD180:	ZERO?	QUOTE-FLAG /?PRD183
+	EQUAL?	LEN,2 \?PRD183
+	EQUAL?	NW,W?QUOTE /?CTR167
+?PRD183:	GRTR?	LEN,2 \?CCL168
+	EQUAL?	NW,W?COMMA,W?AND \?CCL168
+?CTR167:	SET	'DIR,VAL
+	EQUAL?	NW,W?COMMA,W?AND \?CND189
+	ADD	PTR,P-LEXELEN
+	CALL	CHANGE-LEXV,STACK,W?THEN
+?CND189:	GRTR?	LEN,2 /?CND128
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND93
+?CCL168:	CALL	WT?,WRD,64,1 >VAL
+	ZERO?	VAL /?CCL194
+	ZERO?	VERB \?CCL194
+	ZERO?	P-OFLAG \?CND197
+	SET	'P-PRSA-WORD,WRD
+?CND197:	SET	'VERB,VAL
+	PUT	P-ITBL,P-VERB,VAL
+	PUT	P-ITBL,P-VERBN,P-VTBL
+	PUT	P-VTBL,0,WRD
+	MUL	PTR,2
+	ADD	STACK,2 >TMP
+	GETB	P-LEXV,TMP
+	PUTB	P-VTBL,2,STACK
+	ADD	TMP,1
+	GETB	P-LEXV,STACK
+	PUTB	P-VTBL,3,STACK
+	JUMP	?CND128
+?CCL194:	CALL	WT?,WRD,8,0 >VAL
+	ZERO?	VAL \?CTR199
+	EQUAL?	WRD,W?ALL,W?ONE,W?A /?CTR199
+	CALL	WT?,WRD,32
+	ZERO?	STACK \?CTR199
+	CALL	WT?,WRD,128
+	ZERO?	STACK /?CCL200
+?CTR199:	GRTR?	P-LEN,1 \?CCL209
+	EQUAL?	NW,W?OF \?CCL209
+	ZERO?	VAL \?CCL209
+	EQUAL?	WRD,W?ALL,W?ONE,W?A /?CCL209
+	PUT	P-OFW,P-NCN,WRD
+	SET	'OF-FLAG,TRUE-VALUE
+	JUMP	?CND128
+?CCL209:	ZERO?	VAL /?CCL215
+	ZERO?	P-LEN /?CTR214
+	EQUAL?	NW,W?THEN,W?PERIOD /?CTR214
+	EQUAL?	NW,W?!,W?? \?CCL215
+?CTR214:	SET	'P-END-ON-PREP,TRUE-VALUE
+	LESS?	P-NCN,2 \?CND128
+	PUT	P-ITBL,P-PREP1,VAL
+	PUT	P-ITBL,P-PREP1N,WRD
+	JUMP	?CND128
+?CCL215:	EQUAL?	P-NCN,2 \?CCL224
+	PRINTI	"[I found too many nouns in that sentence!]"
+	CRLF	
+	RFALSE	
+?CCL224:	INC	'P-NCN
+	CALL	CLAUSE,PTR,VAL,WRD >PTR
+	ZERO?	PTR /FALSE
+	LESS?	PTR,0 \?CND128
+	SET	'QUOTE-FLAG,FALSE-VALUE
+?CND93:	PUT	OOPS-TABLE,O-PTR,FALSE-VALUE
+	ZERO?	DIR /?CND249
+	SET	'PRSA,V?WALK
+	SET	'P-WALK-DIR,DIR
+	SET	'AGAIN-DIR,DIR
+	SET	'PRSO,DIR
+	SET	'P-OFLAG,FALSE-VALUE
+	RTRUE	
+?CCL200:	EQUAL?	WRD,W?OF \?CCL232
+	ZERO?	OF-FLAG /?CTR234
+	EQUAL?	NW,W?PERIOD,W?THEN /?CTR234
+	EQUAL?	NW,W?!,W?? \?CCL235
+?CTR234:	CALL	CANT-USE,PTR
+	RFALSE	
+?CCL235:	SET	'OF-FLAG,FALSE-VALUE
+?CND128:	SET	'LW,WRD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG126
+?CCL232:	CALL	WT?,WRD,4
+	ZERO?	STACK /?CCL240
+	CALL	BUZZER-WORD?,WRD,PTR
+	ZERO?	STACK /?CND128
+	RFALSE	
+?CCL240:	EQUAL?	VERB,ACT?TELL \?CCL244
+	CALL	WT?,WRD,64
+	ZERO?	STACK /?CCL244
+	PRINTI	"[Please consult your manual on how to talk to people.]"
+	CRLF	
+	RFALSE	
+?CCL244:	CALL	CANT-USE,PTR
+	RFALSE	
+?CCL132:	CALL	UNKNOWN-WORD,PTR
+	RFALSE	
+?CND249:	SET	'P-WALK-DIR,FALSE-VALUE
+	SET	'AGAIN-DIR,FALSE-VALUE
+	ZERO?	P-OFLAG /?CND251
+	CALL	ORPHAN-MERGE
+	ZERO?	STACK /?CND251
+	SET	'WINNER,OWINNER
+?CND251:	GET	P-ITBL,P-VERB
+	ZERO?	STACK \?CND255
+	SUB	PTR,P-LEXELEN >PTR
+	SET	'TMP,FALSE-VALUE
+	GRTR?	PTR,0 \?CND257
+	GET	P-LEXV,PTR >TMP
+?CND257:	EQUAL?	TMP,W?PLEASE \?CCL261
+	PUT	P-ITBL,P-VERB,ACT?YES
+	JUMP	?CND255
+?CCL261:	EQUAL?	TMP,W?PERIOD \?CCL263
+	CALL	MISSING,STR?30
+	RFALSE	
+?CCL263:	PUT	P-ITBL,P-VERB,ACT?$CALL
+?CND255:	CALL	SYNTAX-CHECK
+	ZERO?	STACK /FALSE
+	CALL	SNARF-OBJECTS
+	ZERO?	STACK /FALSE
+	CALL	MANY-CHECK
+	ZERO?	STACK /FALSE
+	CALL	TAKE-CHECK
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	CHANGE-LEXV,PTR,WRD
+	PUT	P-LEXV,PTR,WRD
+	PUT	AGAIN-LEXV,PTR,WRD
+	RTRUE	
+
+
+	.FUNCT	PRINT-LEXV,PTR,X
+	PRINT	I-ASSUME
+	MUL	2,PTR
+	ADD	P-LEXV,STACK >X
+	MUL	P-WORDLEN,P-LEN
+	ADD	X,STACK
+	CALL	BUFFER-PRINT,X,STACK,FALSE-VALUE
+	PRINTR	"]"
+
+
+	.FUNCT	STUFF,DEST,SRC,MAX=29,PTR=P-LEXSTART,CTR=1,BPTR
+	GETB	SRC,0
+	PUTB	DEST,0,STACK
+	GETB	SRC,1
+	PUTB	DEST,1,STACK
+?PRG1:	GET	SRC,PTR
+	PUT	DEST,PTR,STACK
+	MUL	PTR,2
+	ADD	STACK,2 >BPTR
+	GETB	SRC,BPTR
+	PUTB	DEST,BPTR,STACK
+	MUL	PTR,2
+	ADD	STACK,3 >BPTR
+	GETB	SRC,BPTR
+	PUTB	DEST,BPTR,STACK
+	ADD	PTR,P-LEXELEN >PTR
+	IGRTR?	'CTR,MAX \?PRG1
+	RTRUE	
+
+
+	.FUNCT	INBUF-STUFF,DEST,SRC,CNT=80
+?PRG1:	DLESS?	'CNT,0 /TRUE
+	GETB	SRC,CNT
+	PUTB	DEST,CNT,STACK
+	JUMP	?PRG1
+
+
+	.FUNCT	INBUF-ADD,LEN,BEG,SLOT,DBEG,CTR=0,TMP,?TMP1
+	GET	OOPS-TABLE,O-END >TMP
+	ZERO?	TMP /?CCL3
+	SET	'DBEG,TMP
+	JUMP	?CND1
+?CCL3:	GET	OOPS-TABLE,O-LENGTH >TMP
+	GETB	AGAIN-LEXV,TMP >?TMP1
+	ADD	TMP,1
+	GETB	AGAIN-LEXV,STACK
+	ADD	?TMP1,STACK >DBEG
+?CND1:	ADD	DBEG,LEN
+	PUT	OOPS-TABLE,O-END,STACK
+?PRG4:	ADD	DBEG,CTR >?TMP1
+	ADD	BEG,CTR
+	GETB	P-INBUF,STACK
+	PUTB	OOPS-INBUF,?TMP1,STACK
+	INC	'CTR
+	EQUAL?	CTR,LEN \?PRG4
+	PUTB	AGAIN-LEXV,SLOT,DBEG
+	SUB	SLOT,1
+	PUTB	AGAIN-LEXV,STACK,LEN
+	RTRUE	
+
+
+	.FUNCT	FIX-POSSESSIVES,START,END,WHERE=0,PTR,N,PNAM,PADJ,VAL=0,X
+	SET	'PNAM,P-NAM
+	SET	'PADJ,P-ADJ
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'PTR,END
+?PRG1:	SUB	PTR,P-LEXELEN >PTR
+	EQUAL?	PTR,START /?REP2
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?APOSTROPHE \?PRG1
+	SUB	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >P-NAM
+	SET	'N,RHINO-HEAD-C
+?PRG7:	ZERO?	P-NAM /?CCL11
+	GET	CHARACTER-TABLE,N
+	CALL	THIS-IT?,STACK
+	ZERO?	STACK /?CCL11
+	GET	CHARACTER-TABLE,N
+	CALL	THIS-IS-IT,STACK
+	ADD	1,N
+	GET	CHAR-POSS-TABLE,STACK >VAL
+	SUB	PTR,WHERE
+	CALL	CHANGE-LEXV,STACK,VAL
+	JUMP	?REP8
+?CCL11:	DLESS?	'N,0 \?PRG7
+?REP8:	LESS?	N,0 \?PRG1
+	SUB	PTR,P-LEXELEN
+	CALL	NAME?,STACK
+	ZERO?	STACK /?CND17
+	SUB	PTR,WHERE
+	CALL	CHANGE-LEXV,STACK,W?MY
+	JUMP	?PRG1
+?CND17:	GET	QWP1-TABLE,0 >N
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >X
+?PRG19:	GET	QWP1-TABLE,N
+	EQUAL?	STACK,P-NAM \?CCL23
+	GET	QWP2-TABLE,N
+	EQUAL?	STACK,X \?CCL23
+	CALL	QUESTION-WORD?,P-NAM,TRUE-VALUE
+	RTRUE	
+?CCL23:	DLESS?	'N,1 /?PRG1
+	JUMP	?PRG19
+?REP2:	SET	'P-NAM,PNAM
+	SET	'P-ADJ,PADJ
+	RETURN	VAL
+
+
+	.FUNCT	NAME?,PTR,?TMP1
+	CALL	XNAME?,PTR,FIRST-NAME >?TMP1
+	ZERO?	?TMP1 /?PRD3
+	RETURN	?TMP1
+?PRD3:	CALL	XNAME?,PTR,LAST-NAME >?TMP1
+	ZERO?	?TMP1 /?PRD4
+	RETURN	?TMP1
+?PRD4:	CALL	XNAME?,PTR,FAVE-COLOR
+	RSTACK	
+
+
+	.FUNCT	XNAME?,PTR,TBL,MAX,CNT,BPTR,CHR,N?=1,NCNT=0
+	MUL	PTR,2
+	ADD	P-LEXV,STACK >BPTR
+	GETB	BPTR,2 >CNT
+	GRTR?	CNT,6 \?CND1
+	SET	'CNT,6
+?CND1:	GETB	BPTR,3 >BPTR
+	GETB	TBL,0 >MAX
+	LESS?	MAX,7 /?PRG5
+	SET	'MAX,6
+?PRG5:	IGRTR?	'NCNT,MAX \?CCL9
+	ZERO?	CNT /?REP6
+	SET	'N?,FALSE-VALUE
+	JUMP	?REP6
+?CCL9:	DLESS?	'CNT,0 \?CCL13
+	SET	'N?,FALSE-VALUE
+?REP6:	ZERO?	N? /FALSE
+	EQUAL?	TBL,FIRST-NAME \?CCL23
+	CALL	CHANGE-LEXV,PTR,W?F.N
+	RETURN	W?F.N
+?CCL13:	GETB	P-INBUF,BPTR >CHR
+	EQUAL?	CHR,45,39,38 /?CND14
+	MOD	CHR,32
+	ADD	96,STACK >CHR
+?CND14:	GETB	TBL,NCNT
+	EQUAL?	CHR,STACK /?CND16
+	SET	'N?,FALSE-VALUE
+?CND16:	INC	'BPTR
+	JUMP	?PRG5
+?CCL23:	EQUAL?	TBL,FAVE-COLOR \?CCL25
+	CALL	CHANGE-LEXV,PTR,W?F.C
+	RETURN	W?F.C
+?CCL25:	CALL	CHANGE-LEXV,PTR,W?L.N
+	RETURN	W?L.N
+
+
+	.FUNCT	WT?,PTR,BIT,B1=5,OFFS=P-P1OFF,TYP
+	GETB	PTR,P-PSOFF >TYP
+	BTST	TYP,BIT \FALSE
+	GRTR?	B1,4 /TRUE
+	EQUAL?	BIT,128 /TRUE
+	BAND	TYP,P-P1BITS >TYP
+	EQUAL?	TYP,B1 /?CND9
+	INC	'OFFS
+?CND9:	GETB	PTR,OFFS
+	RSTACK	
+
+
+	.FUNCT	CLAUSE,PTR,VAL,WRD,OFF,NUM,ANDFLG=0,FIRST??=1,NW,LW=0,?TMP1
+	SUB	P-NCN,1
+	MUL	STACK,2 >OFF
+	ZERO?	VAL /?CCL3
+	ADD	P-PREP1,OFF >NUM
+	PUT	P-ITBL,NUM,VAL
+	ADD	NUM,1
+	PUT	P-ITBL,STACK,WRD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND1
+?CCL3:	INC	'P-LEN
+?CND1:	ZERO?	P-LEN \?CND4
+	DEC	'P-NCN
+	RETURN	-1
+?CND4:	ADD	P-NC1,OFF >NUM
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,NUM,STACK
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?THE,W?A,W?AN \?PRG8
+	GET	P-ITBL,NUM
+	ADD	STACK,4
+	PUT	P-ITBL,NUM,STACK
+?PRG8:	DLESS?	'P-LEN,0 \?CND10
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	-1
+?CND10:	GET	P-LEXV,PTR >WRD
+	ZERO?	WRD \?CTR13
+	CALL	NUMBER?,PTR >WRD
+	ZERO?	WRD \?CTR13
+	CALL	NAME?,PTR >WRD
+	ZERO?	WRD /?CCL14
+?CTR13:	ZERO?	P-LEN \?CCL20
+	SET	'NW,0
+	JUMP	?CND18
+?CCL20:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+	ZERO?	NW \?CND18
+	ADD	PTR,P-LEXELEN
+	CALL	NUMBER?,STACK >NW
+?CND18:	EQUAL?	WRD,W?PERIOD \?CCL25
+	EQUAL?	LW,W?MRS,W?MR,W?MS /?CTR24
+	EQUAL?	LW,W?DR \?CCL25
+?CTR24:	SET	'LW,0
+	JUMP	?CND12
+?CCL25:	EQUAL?	WRD,W?AND,W?COMMA \?CCL31
+	SET	'ANDFLG,TRUE-VALUE
+	JUMP	?CND12
+?CCL31:	EQUAL?	WRD,W?ALL,W?ONE \?CCL33
+	EQUAL?	NW,W?OF \?CND12
+	DEC	'P-LEN
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND12
+?CCL33:	EQUAL?	WRD,W?THEN,W?PERIOD /?CTR36
+	EQUAL?	WRD,W?!,W?? /?CTR36
+	CALL	WT?,WRD,8
+	ZERO?	STACK /?CCL37
+	GET	P-ITBL,P-VERB
+	ZERO?	STACK /?CCL37
+	ZERO?	FIRST?? \?CCL37
+?CTR36:	INC	'P-LEN
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	SUB	PTR,P-LEXELEN
+	RSTACK	
+?CCL37:	ZERO?	ANDFLG /?CCL45
+	GET	P-ITBL,P-VERBN
+	ZERO?	STACK /?CTR44
+	CALL	VERB-DIR-ONLY?,WRD
+	ZERO?	STACK /?CCL45
+?CTR44:	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	CALL	CHANGE-LEXV,STACK,W?THEN
+	ADD	P-LEN,2 >P-LEN
+	JUMP	?CND12
+?CCL45:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CCL51
+	GRTR?	P-LEN,0 \?CCL54
+	EQUAL?	NW,W?OF \?CCL54
+	EQUAL?	WRD,W?ALL,W?ONE /?CCL54
+	SUB	P-NCN,1
+	PUT	P-OFW,STACK,WRD
+	JUMP	?CND12
+?CCL54:	CALL	WT?,WRD,32
+	ZERO?	STACK /?CCL58
+	ZERO?	NW /?CCL58
+	CALL	WT?,NW,16
+	ZERO?	STACK \?CCL58
+	CALL	WT?,NW,128
+	ZERO?	STACK \?CND12
+	CALL	WT?,NW,32
+	ZERO?	STACK \?CND12
+?CCL58:	ZERO?	ANDFLG \?CCL66
+	EQUAL?	NW,W?BUT,W?EXCEPT /?CCL66
+	EQUAL?	NW,W?AND,W?COMMA /?CCL66
+	ADD	NUM,1 >?TMP1
+	ADD	PTR,2
+	MUL	STACK,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	PTR
+?CCL66:	SET	'ANDFLG,FALSE-VALUE
+	JUMP	?CND12
+?CCL51:	CALL	WT?,WRD,32
+	ZERO?	STACK \?CND12
+	CALL	WT?,WRD,4
+	ZERO?	STACK /?CCL72
+	CALL	BUZZER-WORD?,WRD,PTR
+	ZERO?	STACK /?CND12
+	RFALSE	
+?CCL72:	ZERO?	ANDFLG /?CCL76
+	GET	P-ITBL,P-VERB
+	ZERO?	STACK \?CCL76
+	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	CALL	CHANGE-LEXV,STACK,W?THEN
+	ADD	P-LEN,2 >P-LEN
+?CND12:	SET	'LW,WRD
+	SET	'FIRST??,FALSE-VALUE
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG8
+?CCL76:	CALL	WT?,WRD,8
+	ZERO?	STACK \?CND12
+	CALL	CANT-USE,PTR
+	RFALSE	
+?CCL14:	CALL	UNKNOWN-WORD,PTR
+	RFALSE	
+
+
+	.FUNCT	VERB-DIR-ONLY?,WRD,?TMP1
+	CALL	WT?,WRD,128
+	ZERO?	STACK \FALSE
+	CALL	WT?,WRD,32
+	ZERO?	STACK \FALSE
+	CALL	WT?,WRD,16 >?TMP1
+	ZERO?	?TMP1 /?PRD7
+	RETURN	?TMP1
+?PRD7:	CALL	WT?,WRD,64
+	RSTACK	
+
+
+	.FUNCT	NUMBER?,PTR,CNT,BPTR,CHR,SUM=0,TIM=0,TMP,?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK >TMP
+	GETB	TMP,2 >CNT
+	GETB	TMP,3 >BPTR
+?PRG1:	DLESS?	'CNT,0 /?REP2
+	GETB	P-INBUF,BPTR >CHR
+	EQUAL?	CHR,58 \?CCL8
+	SET	'TIM,SUM
+	SET	'SUM,0
+	JUMP	?CND6
+?CCL8:	GRTR?	SUM,29999 /FALSE
+	GRTR?	CHR,57 /FALSE
+	LESS?	CHR,48 /FALSE
+	MUL	SUM,10 >?TMP1
+	SUB	CHR,48
+	ADD	?TMP1,STACK >SUM
+?CND6:	INC	'BPTR
+	JUMP	?PRG1
+?REP2:	CALL	CHANGE-LEXV,PTR,W?INT.NUM
+	GRTR?	SUM,9999 /FALSE
+	ZERO?	TIM /?CND15
+	GRTR?	TIM,23 /FALSE
+	MUL	TIM,60
+	ADD	SUM,STACK >SUM
+?CND15:	SET	'P-TIME,TIM
+	SET	'P-NUMBER,SUM
+	RETURN	W?INT.NUM
+
+
+	.FUNCT	ORPHAN-MERGE,CNT=-1,TEMP,VERB,BEG,END,ADJ=0,ADJB=0,VRB=0,NOUN=0,ADJE,WRD,?TMP1
+	SET	'P-OFLAG,FALSE-VALUE
+	GET	P-ITBL,P-VERBN >WRD
+	ZERO?	WRD /?CND1
+	GET	WRD,0 >WRD
+	ZERO?	WRD /?CND1
+	CALL	WT?,WRD,64,1 >?TMP1
+	GET	P-OTBL,P-VERB
+	EQUAL?	?TMP1,STACK \?CND5
+	SET	'VRB,TRUE-VALUE
+?CND5:	CALL	WT?,WRD,32
+	ZERO?	STACK /?CND7
+	SET	'ADJ,TRUE-VALUE
+?CND7:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CND1
+	SET	'NOUN,TRUE-VALUE
+?CND1:	ZERO?	VRB \?CND11
+	ZERO?	ADJ \?CND11
+	CALL	WT?,WRD,128,0
+	ZERO?	STACK /?CND11
+	ZERO?	P-NCN \?CND11
+	PUT	P-ITBL,P-VERB,0
+	PUT	P-ITBL,P-VERBN,0
+	ADD	P-LEXV,2
+	PUT	P-ITBL,P-NC1,STACK
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+	SET	'P-NCN,1
+?CND11:	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB /?CCL19
+	ZERO?	ADJ \?CCL19
+	ZERO?	VRB \?CCL19
+	GET	P-OTBL,P-VERB
+	EQUAL?	VERB,STACK \FALSE
+?CCL19:	EQUAL?	P-NCN,2 /FALSE
+	GET	P-OTBL,P-NC1
+	EQUAL?	STACK,1 \?CCL27
+	GET	P-ITBL,P-PREP1 >?TMP1
+	GET	P-OTBL,P-PREP1
+	EQUAL?	?TMP1,0,STACK \FALSE
+	ZERO?	ADJ /?CND31
+	ADD	P-LEXV,2
+	PUT	P-ITBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	ZERO?	STACK \?CND33
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+?CND33:	ZERO?	P-NCN \?CND31
+	SET	'P-NCN,1
+?CND31:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC1L,STACK
+	JUMP	?CND17
+?CCL27:	GET	P-OTBL,P-NC2
+	EQUAL?	STACK,1 \?CCL38
+	GET	P-ITBL,P-PREP1 >?TMP1
+	GET	P-OTBL,P-PREP2
+	EQUAL?	?TMP1,FALSE-VALUE,STACK \FALSE
+	ZERO?	ADJ \?CCL43
+	ZERO?	P-NCN \?CND42
+	ZERO?	NOUN /?CND42
+?CCL43:	ADD	P-LEXV,2
+	PUT	P-ITBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	ZERO?	STACK \?CND42
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+?CND42:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC2,STACK
+	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC2L,STACK
+	SET	'P-NCN,2
+	JUMP	?CND17
+?CCL38:	ZERO?	P-ACLAUSE /?CND17
+	EQUAL?	P-NCN,1 /?CCL53
+	ZERO?	ADJ \?CCL53
+	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL53:	GET	P-ITBL,P-NC1 >BEG
+	ZERO?	ADJ /?CND56
+	ADD	P-LEXV,2 >BEG
+	PUT	P-ITBL,P-NC1,BEG
+	SET	'ADJ,FALSE-VALUE
+?CND56:	GET	P-ITBL,P-NC1L >END
+?PRG58:	EQUAL?	BEG,END \?CND60
+	ZERO?	ADJB /?CCL64
+	CALL	CLAUSE-WIN,ADJB,ADJE
+?CND17:	GET	P-OVTBL,0
+	PUT	P-VTBL,0,STACK
+	GETB	P-OVTBL,2
+	PUTB	P-VTBL,2,STACK
+	GETB	P-OVTBL,3
+	PUTB	P-VTBL,3,STACK
+	PUT	P-OTBL,P-VERBN,P-VTBL
+	PUTB	P-VTBL,2,0
+?PRG83:	IGRTR?	'CNT,P-ITBLLEN \?CCL87
+	SET	'P-MERGED,TRUE-VALUE
+	RTRUE	
+?CCL64:	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CND60:	GET	BEG,0 >WRD
+	EQUAL?	WRD,W?ALL,W?ONE /?CTR66
+	GETB	WRD,P-PSOFF
+	BTST	STACK,32 \?CCL67
+	CALL	ADJ-CHECK,WRD,ADJ,ADJ
+	ZERO?	STACK /?CCL67
+?CTR66:	ZERO?	ADJB \?CND72
+	SET	'ADJB,BEG
+?CND72:	SET	'ADJ,WRD
+	ADD	BEG,P-WORDLEN >ADJE
+	JUMP	?CND65
+?CCL67:	GETB	WRD,P-PSOFF
+	BTST	STACK,128 \?CND65
+	ADD	BEG,P-WORDLEN
+	EQUAL?	STACK,END \?CND65
+	ZERO?	P-ANAM /?CND65
+	EQUAL?	WRD,P-ANAM /?CND65
+	SET	'P-ANAM,FALSE-VALUE
+	GET	P-ITBL,P-NC1 >ADJB
+	SET	'ADJE,END
+?CND65:	ADD	BEG,P-WORDLEN >BEG
+	ZERO?	END \?PRG58
+	SET	'END,BEG
+	SET	'P-NCN,1
+	SUB	BEG,P-WORDLEN
+	PUT	P-ITBL,P-NC1,STACK
+	PUT	P-ITBL,P-NC1L,BEG
+	JUMP	?PRG58
+?CCL87:	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG83
+
+
+	.FUNCT	CLAUSE-WIN,ADJB=0,ADJE=0
+	ZERO?	ADJB /?CND1
+	GET	P-OTBL,P-VERB
+	PUT	P-ITBL,P-VERB,STACK
+?CND1:	PUT	P-CCTBL,CC-BEG,P-ACLAUSE
+	ADD	P-ACLAUSE,1
+	PUT	P-CCTBL,CC-END,STACK
+	PUT	P-CCTBL,CC-IBEG,ADJB
+	PUT	P-CCTBL,CC-IEND,ADJE
+	EQUAL?	P-ACLAUSE,P-NC1 \?CCL5
+	PUT	P-CCTBL,CC-CLAUSE,P-OCL1
+	JUMP	?CND3
+?CCL5:	PUT	P-CCTBL,CC-CLAUSE,P-OCL2
+?CND3:	CALL	CLAUSE-COPY,P-OTBL,P-OTBL
+	GET	P-OTBL,P-NC2
+	ZERO?	STACK /?PEN6
+	SET	'P-NCN,2
+?PEN6:	SET	'P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	WORD-PRINT,CNT,BUF,TBL=0
+	ZERO?	TBL \?PRG3
+	SET	'TBL,P-INBUF
+?PRG3:	DLESS?	'CNT,0 /TRUE
+	GETB	TBL,BUF
+	PRINTC	STACK
+	INC	'BUF
+	JUMP	?PRG3
+
+
+	.FUNCT	UNKNOWN-WORD,PTR,BUF,?TMP1
+	PUT	OOPS-TABLE,O-PTR,PTR
+	ZERO?	P-OFLAG /?PRG4
+	PUT	OOPS-TABLE,O-END,0
+?PRG4:	PRINTC	91
+	PRINTI	"I don't know the word "
+	PRINTC	34
+	MUL	2,PTR >BUF
+	ADD	P-LEXV,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	P-LEXV,BUF
+	GETB	STACK,3
+	CALL	WORD-PRINT,?TMP1,STACK
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	PRINTR	".""]"
+
+
+	.FUNCT	CANT-USE,PTR,BUF,?TMP1
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	PRINTI	"[Sorry, but I don't understand the word """
+	MUL	PTR,2 >BUF
+	ADD	P-LEXV,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	P-LEXV,BUF
+	GETB	STACK,3
+	CALL	WORD-PRINT,?TMP1,STACK
+	PRINTR	""" when you use it that way.]"
+
+
+	.FUNCT	SYNTAX-CHECK,SYN,LEN,NUM,OBJ,DRIVE1=0,DRIVE2=0,PREP,VERB,?TMP2,?TMP1
+	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB \?CND1
+	CALL	MISSING,STR?30
+	RFALSE	
+?CND1:	SUB	255,VERB
+	GET	VERBS,STACK >SYN
+	GETB	SYN,0 >LEN
+	INC	'SYN
+?PRG3:	GETB	SYN,P-SBITS
+	BAND	STACK,P-SONUMS >NUM
+	GRTR?	P-NCN,NUM /?CND5
+	LESS?	NUM,1 /?CCL9
+	ZERO?	P-NCN \?CCL9
+	GET	P-ITBL,P-PREP1 >PREP
+	ZERO?	PREP /?CTR8
+	GETB	SYN,P-SPREP1
+	EQUAL?	PREP,STACK \?CCL9
+?CTR8:	SET	'DRIVE1,SYN
+	JUMP	?CND5
+?CCL9:	GETB	SYN,P-SPREP1 >?TMP1
+	GET	P-ITBL,P-PREP1
+	EQUAL?	?TMP1,STACK \?CND5
+	EQUAL?	NUM,2 \?CCL18
+	EQUAL?	P-NCN,1 \?CCL18
+	SET	'DRIVE2,SYN
+?CND5:	DLESS?	'LEN,1 \?CCL24
+	ZERO?	DRIVE1 \?REP4
+	ZERO?	DRIVE2 \?REP4
+	CALL	DONT-UNDERSTAND
+	RFALSE	
+?CCL18:	GETB	SYN,P-SPREP2 >?TMP1
+	GET	P-ITBL,P-PREP2
+	EQUAL?	?TMP1,STACK \?CND5
+	CALL	SYNTAX-FOUND,SYN
+	RTRUE	
+?CCL24:	ADD	SYN,P-SYNLEN >SYN
+	JUMP	?PRG3
+?REP4:	ZERO?	DRIVE1 /?CCL32
+	GETB	DRIVE1,P-SFWIM1 >?TMP2
+	GETB	DRIVE1,P-SLOC1 >?TMP1
+	GETB	DRIVE1,P-SPREP1
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL32
+	PUTB	P-PRSO,P-MATCHLEN,1
+	PUTB	P-PRSO,1,OBJ
+	CALL	SYNTAX-FOUND,DRIVE1
+	RSTACK	
+?CCL32:	ZERO?	DRIVE2 /?CCL36
+	GETB	DRIVE2,P-SFWIM2 >?TMP2
+	GETB	DRIVE2,P-SLOC2 >?TMP1
+	GETB	DRIVE2,P-SPREP2
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL36
+	PUTB	P-PRSI,P-MATCHLEN,1
+	PUTB	P-PRSI,1,OBJ
+	CALL	SYNTAX-FOUND,DRIVE2
+	RSTACK	
+?CCL36:	SET	'OBJ,FALSE-VALUE
+	EQUAL?	WINNER,PLAYER \?PRG46
+	EQUAL?	P-PRSA-WORD,W?DRIVE,W?PROCEED,W?STEER /?PRG46
+	CALL	ORPHAN,DRIVE1,DRIVE2
+	SET	'OBJ,TRUE-VALUE
+	PRINTI	"[Wh"
+	JUMP	?CND39
+?PRG46:	PRINTI	"[Your command was not complete. Next time, type wh"
+?CND39:	EQUAL?	VERB,ACT?HEAD \?CCL50
+	PRINTI	"ere"
+	JUMP	?CND48
+?CCL50:	ZERO?	DRIVE1 /?PRD56
+	GETB	DRIVE1,P-SFWIM1
+	EQUAL?	STACK,PERSONBIT /?PRG61
+?PRD56:	ZERO?	DRIVE2 /?PRG63
+	GETB	DRIVE2,P-SFWIM2
+	EQUAL?	STACK,PERSONBIT \?PRG63
+?PRG61:	PRINTI	"om"
+	JUMP	?CND48
+?PRG63:	PRINTI	"at"
+?CND48:	ZERO?	OBJ /?PRG70
+	PRINTI	" do you want to "
+	JUMP	?CND65
+?PRG70:	PRINTI	" you want"
+	CALL	HIM-HER-IT,WINNER
+	PRINTI	" to "
+?CND65:	CALL	VERB-PRINT
+	ZERO?	DRIVE2 /?CND72
+	SET	'PREP,P-MERGED
+	SET	'P-MERGED,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	CALL	CLAUSE-PRINT,P-NC1,P-NC1L
+	SET	'P-MERGED,PREP
+?CND72:	SET	'P-END-ON-PREP,FALSE-VALUE
+	ZERO?	DRIVE1 /?CCL76
+	GETB	DRIVE1,P-SPREP1
+	JUMP	?CND74
+?CCL76:	GETB	DRIVE2,P-SPREP2
+?CND74:	CALL	PREP-PRINT,STACK
+	ZERO?	OBJ /?PRG82
+	SET	'P-OFLAG,TRUE-VALUE
+	PRINTI	"?]"
+	CRLF	
+	RFALSE	
+?PRG82:	PRINTI	".]"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	DONT-UNDERSTAND
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"[Sorry, but I don't understand. Please say that another way, or try something else.]"
+
+
+	.FUNCT	VERB-PRINT,GERUND=0,TMP,?TMP1
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL3
+	ZERO?	GERUND \?PRG9
+	PRINTI	"tell"
+	RTRUE	
+?PRG9:	PRINTI	"walk"
+	JUMP	?CND1
+?CCL3:	ZERO?	GERUND \?CTR11
+	GETB	P-VTBL,2
+	ZERO?	STACK \?CCL12
+?CTR11:	GET	TMP,0 >TMP
+	EQUAL?	TMP,W?L \?CCL17
+	PRINTB	W?LOOK
+	JUMP	?CND1
+?CCL17:	EQUAL?	TMP,W?X \?CCL19
+	PRINTB	W?EXAMINE
+	JUMP	?CND1
+?CCL19:	EQUAL?	TMP,W?Z \?CCL21
+	PRINTB	W?WAIT
+	JUMP	?CND1
+?CCL21:	ZERO?	GERUND /?CCL23
+	EQUAL?	TMP,W?BATHE \?CCL26
+	PRINTB	W?BATH
+	JUMP	?CND1
+?CCL26:	EQUAL?	TMP,W?DIG \?CCL28
+	PRINTI	"digg"
+	JUMP	?CND1
+?CCL28:	EQUAL?	TMP,W?GET \?CCL30
+	PRINTI	"gett"
+	JUMP	?CND1
+?CCL30:	PRINTB	TMP
+	JUMP	?CND1
+?CCL23:	PRINTB	TMP
+	JUMP	?CND1
+?CCL12:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK
+	PUTB	P-VTBL,2,0
+?CND1:	ZERO?	GERUND /FALSE
+	PRINTI	"ing?"
+	RTRUE	
+
+
+	.FUNCT	ORPHAN,D1,D2,CNT=-1
+	ZERO?	P-MERGED \?CND1
+	PUT	P-OCL1,P-MATCHLEN,0
+	PUT	P-OCL2,P-MATCHLEN,0
+?CND1:	GET	P-VTBL,0
+	PUT	P-OVTBL,0,STACK
+	GETB	P-VTBL,2
+	PUTB	P-OVTBL,2,STACK
+	GETB	P-VTBL,3
+	PUTB	P-OVTBL,3,STACK
+?PRG3:	IGRTR?	'CNT,P-ITBLLEN /?REP4
+	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+	JUMP	?PRG3
+?REP4:	EQUAL?	P-NCN,2 \?CND8
+	PUT	P-CCTBL,CC-BEG,P-NC2
+	PUT	P-CCTBL,CC-END,P-NC2L
+	PUT	P-CCTBL,CC-CLAUSE,P-OCL2
+	PUT	P-CCTBL,CC-IBEG,FALSE-VALUE
+	PUT	P-CCTBL,CC-IEND,FALSE-VALUE
+	CALL	CLAUSE-COPY,P-ITBL,P-OTBL
+?CND8:	LESS?	P-NCN,1 /?CND10
+	PUT	P-CCTBL,CC-BEG,P-NC1
+	PUT	P-CCTBL,CC-END,P-NC1L
+	PUT	P-CCTBL,CC-CLAUSE,P-OCL1
+	PUT	P-CCTBL,CC-IBEG,FALSE-VALUE
+	PUT	P-CCTBL,CC-IEND,FALSE-VALUE
+	CALL	CLAUSE-COPY,P-ITBL,P-OTBL
+?CND10:	ZERO?	D1 /?CCL14
+	GETB	D1,P-SPREP1
+	PUT	P-OTBL,P-PREP1,STACK
+	PUT	P-OTBL,P-NC1,1
+	RTRUE	
+?CCL14:	ZERO?	D2 /FALSE
+	GETB	D2,P-SPREP2
+	PUT	P-OTBL,P-PREP2,STACK
+	PUT	P-OTBL,P-NC2,1
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-PRINT,BPTR,EPTR,THE?=1,?TMP1
+	GET	P-ITBL,BPTR >?TMP1
+	GET	P-ITBL,EPTR
+	CALL	BUFFER-PRINT,?TMP1,STACK,THE?
+	RSTACK	
+
+
+	.FUNCT	BUFFER-PRINT,BEG,END,CP,NOSP=0,WRD,NW,FIRST??=1,PN=0,?TMP1
+?PRG1:	EQUAL?	BEG,END /TRUE
+	ZERO?	NOSP \?CTR6
+	EQUAL?	WRD,W?APOSTROPHE /?CTR6
+	EQUAL?	NW,W?PERIOD,W?COMMA,W?APOSTROPHE \?PRG11
+?CTR6:	SET	'NOSP,FALSE-VALUE
+	JUMP	?CND5
+?PRG11:	PRINTC	32
+?CND5:	GET	BEG,0 >WRD
+	ADD	BEG,P-WORDLEN
+	EQUAL?	END,STACK \?CCL15
+	SET	'NW,0
+	JUMP	?CND13
+?CCL15:	GET	BEG,P-LEXELEN >NW
+?CND13:	EQUAL?	WRD,W?MY /?CCL18
+	CALL	ZMEMQ,WRD,CHAR-POSS-TABLE
+	ZERO?	STACK /?CCL18
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND16
+?CCL18:	EQUAL?	NW,W?MY /?CCL22
+	CALL	ZMEMQ,NW,CHAR-POSS-TABLE
+	ZERO?	STACK /?CCL22
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND16
+?CCL22:	ZERO?	OOPS-PRINT /?CND16
+	EQUAL?	WRD,W?HIM \?PRD29
+	CALL	VISIBLE?,P-HIM-OBJECT
+	ZERO?	STACK /?CCL25
+?PRD29:	EQUAL?	WRD,W?HER \?CND16
+	CALL	VISIBLE?,P-HER-OBJECT
+	ZERO?	STACK \?CND16
+?CCL25:	SET	'PN,TRUE-VALUE
+?CND16:	EQUAL?	WRD,W?MY \?CCL36
+	ZERO?	OOPS-PRINT \?CCL39
+	PRINTB	W?YOUR
+	JUMP	?CND34
+?CCL39:	PRINTB	W?MY
+	JUMP	?CND34
+?CCL36:	CALL	ZMEMQ,WRD,CHAR-POSS-TABLE
+	ZERO?	STACK /?CCL41
+	PRINTC	39
+	JUMP	?CND34
+?CCL41:	ZERO?	OOPS-PRINT \?CCL45
+	EQUAL?	WRD,W?ALL,W?PERIOD,W?APOSTROPHE /?CCL45
+	CALL	WT?,WRD,4
+	ZERO?	STACK \?PRD49
+	CALL	WT?,WRD,8
+	ZERO?	STACK /?CCL45
+?PRD49:	CALL	WT?,WRD,32
+	ZERO?	STACK \?CCL45
+	CALL	WT?,WRD,128
+	ZERO?	STACK \?CCL45
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND34
+?CCL45:	EQUAL?	WRD,W?ME \?CCL54
+	ZERO?	OOPS-PRINT \?CCL54
+	PRINTD	PLAYER
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND34
+?CCL54:	CALL	CAPITAL-NOUN?,WRD
+	ZERO?	STACK /?CCL58
+	CALL	CAPITALIZE,BEG
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND34
+?CCL58:	ZERO?	FIRST?? /?CND59
+	ZERO?	PN \?CND59
+	ZERO?	CP /?CND59
+	EQUAL?	WRD,W?HER,W?HIM,W?YOUR /?CND59
+	PRINTI	"the "
+?CND59:	ZERO?	P-OFLAG \?CTR69
+	ZERO?	P-MERGED /?CCL70
+?CTR69:	PRINTB	WRD
+	JUMP	?CND68
+?CCL70:	EQUAL?	WRD,W?IT \?CCL74
+	CALL	VISIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CCL74
+	PRINTD	P-IT-OBJECT
+	JUMP	?CND68
+?CCL74:	EQUAL?	WRD,W?HER \?CCL78
+	ZERO?	PN \?CCL78
+	PRINTD	P-HER-OBJECT
+	JUMP	?CND68
+?CCL78:	EQUAL?	WRD,W?HIM \?CCL82
+	ZERO?	PN \?CCL82
+	PRINTD	P-HIM-OBJECT
+	JUMP	?CND68
+?CCL82:	GETB	BEG,2 >?TMP1
+	GETB	BEG,3
+	CALL	WORD-PRINT,?TMP1,STACK
+?CND68:	SET	'FIRST??,FALSE-VALUE
+?CND34:	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	TITLE-NOUN?,WRD
+	EQUAL?	WRD,W?MR,W?MRS,W?MS /TRUE
+	EQUAL?	WRD,W?MISTER,W?MISS,W?SIR /TRUE
+	EQUAL?	WRD,W?LADY,W?DAME,W?LORD /TRUE
+	EQUAL?	WRD,W?DR,W?DOCTOR,W?DETECT /TRUE
+	EQUAL?	WRD,W?MADAME,W?MADAM,W?MASTER /TRUE
+	RFALSE	
+
+
+	.FUNCT	CAPITAL-NOUN?,WRD,?TMP1
+	CALL	TITLE-NOUN?,WRD >?TMP1
+	ZERO?	?TMP1 /?PRD3
+	RETURN	?TMP1
+?PRD3:	EQUAL?	WRD,W?BOLITHO,W?DEE /TRUE
+	EQUAL?	WRD,W?DEIRDRE,W?FORDYCE,W?HALLAM /TRUE
+	EQUAL?	WRD,W?HYDE,W?IAN,W?INDIAN /TRUE
+	EQUAL?	WRD,W?IRIS,W?JACK,W?LIONEL /TRUE
+	EQUAL?	WRD,W?LYND,W?MONTAGUE,W?MOONMIST /TRUE
+	EQUAL?	WRD,W?NICHOLAS,W?PENTREATH,W?TAMARA /TRUE
+	EQUAL?	WRD,W?TAMMY,W?TRESYLLIAN,W?VIV /TRUE
+	EQUAL?	WRD,W?VIVIEN,W?WENDISH /TRUE
+	RFALSE	
+
+
+	.FUNCT	CAPITALIZE,PTR,?TMP1
+	ZERO?	P-OFLAG \?CTR2
+	ZERO?	P-MERGED /?CCL3
+?CTR2:	GET	PTR,0
+	PRINTB	STACK
+	RTRUE	
+?CCL3:	GETB	PTR,3
+	GETB	P-INBUF,STACK
+	SUB	STACK,32
+	PRINTC	STACK
+	GETB	PTR,2
+	SUB	STACK,1 >?TMP1
+	GETB	PTR,3
+	ADD	STACK,1
+	CALL	WORD-PRINT,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	PREP-PRINT,PREP,SP?=1,WRD,VRB
+	ZERO?	PREP /FALSE
+	GET	P-ITBL,P-VERBN
+	GET	STACK,0 >VRB
+	ZERO?	P-END-ON-PREP /?CCL5
+	EQUAL?	VRB,W?LIE,W?SIT \FALSE
+	EQUAL?	PREP,PR?DOWN \FALSE
+?CCL5:	ZERO?	SP? /?CND10
+	PRINTC	32
+?CND10:	CALL	PREP-FIND,PREP >WRD
+	EQUAL?	WRD,W?AGAINST \?CCL16
+	PRINTI	"against"
+	JUMP	?CND14
+?CCL16:	EQUAL?	WRD,W?THROUGH \?CCL20
+	PRINTI	"through"
+	JUMP	?CND14
+?CCL20:	PRINTB	WRD
+?CND14:	EQUAL?	VRB,W?SIT,W?LIE \?CND23
+	EQUAL?	WRD,W?DOWN \?CND23
+	PRINTI	" on"
+?CND23:	EQUAL?	VRB,W?GET \TRUE
+	EQUAL?	WRD,W?OUT \TRUE
+	PRINTI	" of"
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-COPY,SRC,DEST,IBEG=0,IEND,OCL,BEG,END,BB,EE,OBEG,CNT,B,E
+	GET	P-CCTBL,CC-BEG >BB
+	GET	P-CCTBL,CC-END >EE
+	GET	P-CCTBL,CC-CLAUSE >OCL
+	GET	P-CCTBL,CC-IBEG >IBEG
+	GET	P-CCTBL,CC-IEND >IEND
+	GET	SRC,BB >BEG
+	GET	SRC,EE >END
+	GET	OCL,P-MATCHLEN >OBEG
+?PRG1:	EQUAL?	BEG,END \?CND3
+	ZERO?	IBEG /?REP2
+	ZERO?	P-ANAM \?REP2
+	CALL	CLAUSE-SUBSTRUC,IBEG,IEND
+?REP2:	GRTR?	OBEG,0 \?CND13
+	GET	OCL,P-MATCHLEN
+	SUB	STACK,OBEG >CNT
+	GRTR?	CNT,0 \?CND13
+	PUT	OCL,P-MATCHLEN,0
+	INC	'OBEG
+?PRG17:	GET	OCL,OBEG
+	CALL	CLAUSE-ADD,STACK,TRUE-VALUE
+	SUB	CNT,2 >CNT
+	ZERO?	CNT /?REP18
+	ADD	OBEG,2 >OBEG
+	JUMP	?PRG17
+?CND3:	ZERO?	IBEG /?CND9
+	GET	BEG,0
+	EQUAL?	P-ANAM,STACK \?CND9
+	CALL	CLAUSE-SUBSTRUC,IBEG,IEND
+?CND9:	GET	BEG,0
+	CALL	CLAUSE-ADD,STACK
+	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+?REP18:	SET	'OBEG,0
+?CND13:	MUL	OBEG,P-LEXELEN
+	ADD	STACK,2
+	ADD	OCL,STACK
+	PUT	DEST,BB,STACK
+	GET	OCL,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	OCL,STACK
+	PUT	DEST,EE,STACK
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-SUBSTRUC,B,E
+?PRG1:	EQUAL?	B,E /TRUE
+	GET	B,0
+	CALL	CLAUSE-ADD,STACK
+	ADD	B,P-WORDLEN >B
+	JUMP	?PRG1
+
+
+	.FUNCT	CLAUSE-ADD,WRD,CHECK?=0,OCL,PTR
+	GET	P-CCTBL,CC-CLAUSE >OCL
+	GET	OCL,P-MATCHLEN >PTR
+	ZERO?	CHECK? /?CCL3
+	ZERO?	PTR /?CCL3
+	CALL	ZMEMQ,WRD,OCL
+	ZERO?	STACK \FALSE
+?CCL3:	ADD	PTR,2 >PTR
+	SUB	PTR,1
+	PUT	OCL,STACK,WRD
+	PUT	OCL,PTR,0
+	PUT	OCL,P-MATCHLEN,PTR
+	RTRUE	
+
+
+	.FUNCT	PREP-FIND,PREP,CNT=0,SIZE
+	GET	PREPOSITIONS,0
+	MUL	STACK,2 >SIZE
+?PRG1:	IGRTR?	'CNT,SIZE /FALSE
+	GET	PREPOSITIONS,CNT
+	EQUAL?	STACK,PREP \?PRG1
+	SUB	CNT,1
+	GET	PREPOSITIONS,STACK
+	RSTACK	
+
+
+	.FUNCT	SYNTAX-FOUND,SYN
+	SET	'P-SYNTAX,SYN
+	GETB	SYN,P-SACTION >PRSA
+	RETURN	PRSA
+
+
+	.FUNCT	GWIM,GBIT,LBIT,PREP,OBJ
+	EQUAL?	GBIT,RMUNGBIT \?CND1
+	RETURN	ROOMS
+?CND1:	SET	'P-GWIMBIT,GBIT
+	SET	'P-SLOCBITS,LBIT
+	PUTB	P-MERGE,P-MATCHLEN,0
+	CALL	GET-OBJECT,P-MERGE,FALSE-VALUE
+	ZERO?	STACK /?CCL5
+	SET	'P-GWIMBIT,0
+	GETB	P-MERGE,P-MATCHLEN
+	EQUAL?	STACK,1 \FALSE
+	GETB	P-MERGE,1 >OBJ
+	PRINTC	40
+	CALL	PREP-PRINT,PREP,FALSE-VALUE
+	ZERO?	STACK /?PRG15
+	CALL	THE?,OBJ
+	PRINTC	32
+?PRG15:	PRINTD	OBJ
+	PRINTC	41
+	CRLF	
+	RETURN	OBJ
+?CCL5:	SET	'P-GWIMBIT,0
+	RFALSE	
+
+
+	.FUNCT	SNARF-OBJECTS,PTR
+	GET	P-ITBL,P-NC1 >PTR
+	ZERO?	PTR /?CND1
+	SET	'P-PHR,0
+	GETB	P-SYNTAX,P-SLOC1 >P-SLOCBITS
+	GET	P-ITBL,P-NC1L
+	CALL	SNARFEM,PTR,STACK,P-PRSO
+	ZERO?	STACK /FALSE
+	GETB	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /?CND1
+	CALL	BUT-MERGE,P-PRSO >P-PRSO
+?CND1:	GET	P-ITBL,P-NC2 >PTR
+	ZERO?	PTR /TRUE
+	SET	'P-PHR,1
+	GETB	P-SYNTAX,P-SLOC2 >P-SLOCBITS
+	GET	P-ITBL,P-NC2L
+	CALL	SNARFEM,PTR,STACK,P-PRSI
+	ZERO?	STACK /FALSE
+	GETB	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /TRUE
+	GETB	P-PRSI,P-MATCHLEN
+	EQUAL?	STACK,1 \?CCL15
+	CALL	BUT-MERGE,P-PRSO >P-PRSO
+	RTRUE	
+?CCL15:	CALL	BUT-MERGE,P-PRSI >P-PRSI
+	RTRUE	
+
+
+	.FUNCT	BUT-MERGE,TBL,LEN,BUTLEN,CNT=1,MATCHES=0,OBJ,NTBL
+	GETB	TBL,P-MATCHLEN >LEN
+	PUTB	P-MERGE,P-MATCHLEN,0
+?PRG1:	DLESS?	'LEN,0 /?REP2
+	GETB	TBL,CNT >OBJ
+	CALL	ZMEMQB,OBJ,P-BUTS
+	ZERO?	STACK \?CND3
+	INC	'MATCHES
+	PUTB	P-MERGE,MATCHES,OBJ
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	PUTB	P-MERGE,P-MATCHLEN,MATCHES
+	SET	'NTBL,P-MERGE
+	SET	'P-MERGE,TBL
+	RETURN	NTBL
+
+
+	.FUNCT	ADJ-CHECK,WRD,ADJ,NW=0
+	ZERO?	ADJ /TRUE
+	EQUAL?	WRD,W?RHINO,W?BUFFALO /TRUE
+	EQUAL?	WRD,W?BLOND,W?BLONDE /TRUE
+	EQUAL?	WRD,W?FIRST,W?SECOND /TRUE
+	EQUAL?	NW,W?OUTFIT /TRUE
+	CALL	ZMEMQ,WRD,CHAR-POSS-TABLE
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	SNARFEM,PTR,EPTR,TBL,BUT=0,LEN,WV,WRD,NW,WAS-ALL=0,ONEOBJ
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	SET	'P-AND,FALSE-VALUE
+	EQUAL?	P-GETFLAGS,P-ALL \?CND1
+	SET	'WAS-ALL,TRUE-VALUE
+?CND1:	SET	'P-GETFLAGS,0
+	PUTB	P-BUTS,P-MATCHLEN,0
+	PUTB	TBL,P-MATCHLEN,0
+	GET	PTR,0 >WRD
+?PRG3:	EQUAL?	PTR,EPTR \?CCL7
+	ZERO?	BUT /?PRD10
+	PUSH	BUT
+	JUMP	?PEN8
+?PRD10:	PUSH	TBL
+?PEN8:	CALL	GET-OBJECT,STACK >WV
+	ZERO?	WAS-ALL \?CCL12
+	RETURN	WV
+?CCL12:	SET	'P-GETFLAGS,P-ALL
+	RETURN	WV
+?CCL7:	ADD	PTR,P-WORDLEN
+	EQUAL?	EPTR,STACK \?CCL15
+	SET	'NW,0
+	JUMP	?CND13
+?CCL15:	GET	PTR,P-LEXELEN >NW
+?CND13:	EQUAL?	WRD,W?ALL \?CCL18
+	SET	'P-GETFLAGS,P-ALL
+	EQUAL?	NW,W?OF \?CND5
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND5
+?CCL18:	EQUAL?	WRD,W?BUT,W?EXCEPT \?CCL22
+	ZERO?	BUT /?PRD27
+	PUSH	BUT
+	JUMP	?PEN25
+?PRD27:	PUSH	TBL
+?PEN25:	CALL	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	SET	'BUT,P-BUTS
+	PUTB	BUT,P-MATCHLEN,0
+	JUMP	?CND5
+?CCL22:	EQUAL?	WRD,W?A,W?ONE \?CCL29
+	ZERO?	P-ADJ \?CCL32
+	SET	'P-GETFLAGS,P-ONE
+	EQUAL?	NW,W?OF \?CND5
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND5
+?CCL32:	SET	'P-NAM,ONEOBJ
+	ZERO?	BUT /?PRD39
+	PUSH	BUT
+	JUMP	?PEN37
+?PRD39:	PUSH	TBL
+?PEN37:	CALL	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	'P-AND,TRUE-VALUE
+	ZERO?	BUT /?PRD50
+	PUSH	BUT
+	JUMP	?PEN48
+?PRD50:	PUSH	TBL
+?PEN48:	CALL	GET-OBJECT,STACK
+	ZERO?	STACK \?CND5
+	RFALSE	
+?CCL43:	CALL	WT?,WRD,4
+	ZERO?	STACK /?CCL52
+	CALL	BUZZER-WORD?,WRD,PTR
+	ZERO?	STACK /?CND5
+	RFALSE	
+?CCL52:	EQUAL?	WRD,W?AND,W?COMMA /?CND5
+	EQUAL?	WRD,W?OF \?CCL57
+	ZERO?	P-GETFLAGS \?CND5
+	SET	'P-GETFLAGS,P-INHIBIT
+	JUMP	?CND5
+?CCL57:	CALL	WT?,WRD,32,2 >WV
+	ZERO?	WV /?CCL61
+	CALL	ADJ-CHECK,WRD,P-ADJ,NW
+	ZERO?	STACK /?CCL61
+	EQUAL?	NW,W?OF /?CCL61
+	SET	'P-ADJ,WV
+	SET	'P-ADJN,WRD
+	JUMP	?CND5
+?CCL61:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CND5
+	SET	'P-NAM,WRD
+	SET	'ONEOBJ,WRD
+?CND5:	EQUAL?	PTR,EPTR /?PRG3
+	ADD	PTR,P-WORDLEN >PTR
+	SET	'WRD,NW
+	JUMP	?PRG3
+
+
+	.FUNCT	RESOLVE-YOUR-HER-HIS,OBJ=0
+	EQUAL?	P-ADJN,W?YOUR \?CCL3
+	EQUAL?	WINNER,PLAYER /?CND1
+	SET	'OBJ,WINNER
+	JUMP	?CND1
+?CCL3:	EQUAL?	P-ADJN,W?HER \?CCL7
+	SET	'OBJ,P-HER-OBJECT
+	JUMP	?CND1
+?CCL7:	EQUAL?	P-ADJN,W?HIS \?CND1
+	SET	'OBJ,P-HIM-OBJECT
+?CND1:	ZERO?	OBJ /FALSE
+	GETP	OBJ,P?CHARACTER
+	ADD	1,STACK
+	GET	CHAR-POSS-TABLE,STACK >P-ADJN
+	CALL	WT?,P-ADJN,32,2 >P-ADJ
+	RETURN	P-ADJ
+
+
+	.FUNCT	GET-OBJECT,TBL,VRB=1,BTS,LEN,XBITS,TLEN,GCHECK=0,OLEN=0,OBJ=0,ADJ=0
+	SET	'XBITS,P-SLOCBITS
+	GETB	TBL,P-MATCHLEN >TLEN
+	BTST	P-GETFLAGS,P-INHIBIT /TRUE
+	EQUAL?	P-ADJN,W?YOUR,W?HER,W?HIS \?CND3
+	ZERO?	P-NAM /?CND3
+	CALL	RESOLVE-YOUR-HER-HIS
+?CND3:	SET	'ADJ,P-ADJN
+	ZERO?	P-NAM \?CND7
+	ZERO?	P-ADJ /?CND7
+	CALL	WT?,P-ADJN,128
+	ZERO?	STACK /?CCL13
+	SET	'P-NAM,P-ADJN
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+?CND7:	ZERO?	P-NAM \?CND15
+	ZERO?	P-ADJ \?CND15
+	EQUAL?	P-GETFLAGS,P-ALL /?CND15
+	ZERO?	P-GWIMBIT \?CND15
+	ZERO?	VRB /FALSE
+	CALL	MISSING,STR?31,ADJ
+	RFALSE	
+?CCL13:	CALL	WT?,P-ADJN,16,3 >BTS
+	ZERO?	BTS /?CND7
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	PUTB	TBL,P-MATCHLEN,1
+	PUTB	TBL,1,INTDIR
+	SET	'P-DIRECTION,BTS
+	RTRUE	
+?CND15:	EQUAL?	P-GETFLAGS,P-ALL \?CCL24
+	ZERO?	P-SLOCBITS \?CND23
+?CCL24:	SET	'P-SLOCBITS,-1
+?CND23:	SET	'P-TABLE,TBL
+?PRG27:	ZERO?	GCHECK /?CCL31
+	CALL	GLOBAL-CHECK,TBL
+	JUMP	?CND29
+?CCL31:	ZERO?	LIT /?CND32
+	FCLEAR	WINNER,OPENBIT
+	CALL	DO-SL,HERE,SOG,SIR
+	FSET	WINNER,OPENBIT
+?CND32:	CALL	DO-SL,WINNER,SH,SC
+?CND29:	GETB	TBL,P-MATCHLEN
+	SUB	STACK,TLEN >LEN
+	BTST	P-GETFLAGS,P-ALL /?CND34
+	BTST	P-GETFLAGS,P-ONE \?CCL37
+	ZERO?	LEN /?CCL37
+	EQUAL?	LEN,1 /?CND40
+	RANDOM	LEN
+	GETB	TBL,STACK
+	PUTB	TBL,1,STACK
+	GETB	TBL,1
+	CALL	TELL-I-ASSUME,STACK
+?CND40:	PUTB	TBL,P-MATCHLEN,1
+	JUMP	?CND34
+?CCL37:	EQUAL?	P-GETFLAGS,P-ALL /?CND34
+	GRTR?	LEN,1 /?CCL42
+	ZERO?	LEN \?CND34
+	EQUAL?	P-SLOCBITS,-1 /?CND34
+?CCL42:	EQUAL?	P-SLOCBITS,-1 \?CCL51
+	SET	'P-SLOCBITS,XBITS
+	SET	'OLEN,LEN
+	GETB	TBL,P-MATCHLEN
+	SUB	STACK,LEN
+	PUTB	TBL,P-MATCHLEN,STACK
+	JUMP	?PRG27
+?CCL51:	CALL	PUT-ADJ-NAM
+	ZERO?	LEN \?CND52
+	SET	'LEN,OLEN
+?CND52:	GRTR?	LEN,1 \?CCL56
+	GETB	TBL,LEN >OBJ
+	ZERO?	OBJ /?CCL56
+	GETP	OBJ,P?GENERIC
+	CALL	STACK,TBL,LEN >OBJ
+	ZERO?	OBJ /?CCL56
+	EQUAL?	OBJ,NOT-HERE-OBJECT /FALSE
+	EQUAL?	OBJ,ROOMS \?CCL64
+	GETB	TBL,P-MATCHLEN >LEN
+	JUMP	?CND54
+?CCL64:	ADD	TLEN,1 >LEN
+	PUTB	TBL,P-MATCHLEN,LEN
+	PUTB	TBL,LEN,OBJ
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	RTRUE	
+?CCL56:	ZERO?	VRB /?CND54
+	EQUAL?	WINNER,PLAYER /?CND54
+	CALL	MORE-SPECIFIC
+	RFALSE	
+?CND54:	ZERO?	VRB /?CCL70
+	ZERO?	P-NAM /?CCL70
+	CALL	WHICH-PRINT,TLEN,LEN,TBL
+	ZERO?	STACK /?CND68
+	EQUAL?	TBL,P-PRSO \?CCL78
+	SET	'P-ACLAUSE,P-NC1
+	JUMP	?CND76
+?CCL78:	SET	'P-ACLAUSE,P-NC2
+?CND76:	SET	'P-AADJ,P-ADJ
+	SET	'P-ANAM,P-NAM
+	CALL	ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'P-OFLAG,TRUE-VALUE
+	JUMP	?CND68
+?CCL70:	ZERO?	VRB /?CND68
+	CALL	MISSING,STR?31,ADJ
+?CND68:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	RFALSE	
+?CND34:	ZERO?	LEN \?CCL82
+	ZERO?	GCHECK /?CCL82
+	CALL	PUT-ADJ-NAM
+	ZERO?	VRB /?CND85
+	SET	'P-SLOCBITS,XBITS
+	ZERO?	LIT \?CTR88
+	CALL	SEE-VERB?
+	ZERO?	STACK \?CCL89
+?CTR88:	CALL	OBJ-FOUND,NOT-HERE-OBJECT,TBL
+	SET	'P-XNAM,P-NAM
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-XADJ,P-ADJ
+	SET	'P-XADJN,P-ADJN
+	RTRUE	
+?CCL89:	CALL	TOO-DARK
+?CND85:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	RFALSE	
+?CCL82:	ZERO?	LEN \?CND80
+	SET	'GCHECK,TRUE-VALUE
+	JUMP	?PRG27
+?CND80:	ZERO?	P-ADJ /?CND93
+	ZERO?	P-NAM \?CND93
+	ADD	TLEN,1
+	GETB	TBL,STACK >OBJ
+	CALL	TELL-I-ASSUME,OBJ
+	CALL	THIS-IS-IT,OBJ
+?CND93:	SET	'P-SLOCBITS,XBITS
+	CALL	PUT-ADJ-NAM
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	GENERIC-CLUE-FCN,TBL,LEN=0
+	EQUAL?	PRSA,V?SEARCH-FOR,V?FIND \?CCL3
+	RETURN	GENERIC-CLUE
+?CCL3:	ZERO?	LEN \?CND4
+	GETB	TBL,0 >LEN
+?CND4:	CALL	PRUNE,TBL,LEN,CLUE-TEST >LEN
+	EQUAL?	LEN,1 /?CTR7
+	RETURN	ROOMS
+?CTR7:	GETB	TBL,1
+	RSTACK	
+
+
+	.FUNCT	CLUE-TEST,OBJ
+	IN?	OBJ,WINNER /TRUE
+	ZERO?	PRSI /?CCL6
+	IN?	OBJ,PRSI /TRUE
+?CCL6:	EQUAL?	OBJ,P-IT-OBJECT /TRUE
+	RFALSE	
+
+
+	.FUNCT	GENERIC-STAIRS,X,Y
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB-DOWN,V?BOARD \?CCL3
+	RETURN	STAIRS
+?CCL3:	RETURN	BACKSTAIRS
+
+
+	.FUNCT	GENERIC-CLOTHES,X,Y
+	EQUAL?	PRSA,V?TAKE-OFF,V?REMOVE,V?CHANGE \FALSE
+	RETURN	NOW-WEARING
+
+
+	.FUNCT	GENERIC-CLOSET,TBL,LEN=0,N
+	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE,CHARACTER-MAX >N
+	ZERO?	N /?CCL3
+	GET	CHAR-CLOSET-TABLE,N
+	RSTACK	
+?CCL3:	ZERO?	TBL /FALSE
+	CALL	ZMEMQB,HERE,TBL
+	ZERO?	STACK /?CND5
+	RETURN	HERE
+?CND5:	ZERO?	LEN \?CND7
+	GETB	TBL,0 >LEN
+?CND7:	CALL	PRUNE,TBL,LEN,NOT-SECRET-TEST >LEN
+	ZERO?	LEN \?CCL11
+	PRINTI	"(You haven't found a secret entrance yet!)"
+	CRLF	
+	RETURN	NOT-HERE-OBJECT
+?CCL11:	EQUAL?	LEN,1 /?CTR14
+	RETURN	ROOMS
+?CTR14:	GETB	TBL,1
+	RSTACK	
+
+
+	.FUNCT	GENERIC-DINNER,X,Y
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \?CTR2
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+?CTR2:	RETURN	DINNER
+?CCL3:	EQUAL?	P-ADJ,FALSE-VALUE,A?MY \?CCL7
+	EQUAL?	P-XADJ,FALSE-VALUE,A?MY \?CCL7
+	RETURN	DINNER
+?CCL7:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(That wouldn't be polite!)"
+	CRLF	
+	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	GENERIC-BEDROOM,TBL,N=0,RM
+	ZERO?	N \?CND1
+	GETB	TBL,P-MATCHLEN >N
+?CND1:	CALL	ZMEMQ,HERE,CHAR-CLOSET-TABLE >RM
+	ZERO?	RM /?CCL5
+	EQUAL?	W?DOOR,P-NAM,P-XNAM \?CCL8
+	CALL	FIND-FLAG-LG,HERE,DOORBIT
+	RSTACK	
+?CCL8:	GET	CHAR-ROOM-TABLE,RM
+	RSTACK	
+?CCL5:	EQUAL?	A?JACK'S,P-ADJ,P-XADJ \?CCL10
+	EQUAL?	W?DOOR,P-NAM,P-XNAM \?CCL10
+	RETURN	JACK-ROOM
+?CCL10:	CALL	ZMEMQB,P-IT-OBJECT,TBL
+	ZERO?	STACK /?CCL14
+	RETURN	P-IT-OBJECT
+?CCL14:	CALL	ZMEMQB,HERE,TBL
+	ZERO?	STACK /?CCL16
+	RETURN	HERE
+?CCL16:	CALL	REMOTE-VERB?
+	ZERO?	STACK /?CCL18
+	EQUAL?	A?BATH,P-ADJ,P-XADJ \?CCL21
+	RETURN	YOUR-BATHROOM
+?CCL21:	EQUAL?	W?ROOM,P-NAM,P-XNAM \?CCL23
+	RETURN	YOUR-ROOM
+?CCL23:	SET	'RM,FALSE-VALUE
+	JUMP	?CND3
+?CCL18:	EQUAL?	HERE,GALLERY,YOUR-BATHROOM \?CCL25
+	RETURN	YOUR-ROOM
+?CCL25:	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE
+	ZERO?	STACK /?CCL27
+	RETURN	HERE
+?CCL27:	EQUAL?	PRSA,V?WALK-TO,V?CLIMB-UP,V?CLIMB-DOWN \?PRG30
+	RETURN	YOUR-ROOM
+?PRG30:	GETB	TBL,N >RM
+	GETP	RM,P?STATION
+	EQUAL?	HERE,STACK /?CND3
+	DLESS?	'N,1 \?PRG30
+	SET	'RM,FALSE-VALUE
+?CND3:	ZERO?	RM /?CCL38
+	RETURN	RM
+?CCL38:	EQUAL?	WINNER,FRIEND,LORD \FALSE
+	RETURN	YOUR-ROOM
+
+
+	.FUNCT	GENERIC-GREAT-HALL,X,Y
+	EQUAL?	W?ROOM,P-NAM,P-XNAM \?CCL3
+	RETURN	HERE
+?CCL3:	FSET?	HERE,WEARBIT \?CCL5
+	RETURN	GREAT-HALL
+?CCL5:	RETURN	OLD-GREAT-HALL
+
+
+	.FUNCT	GENERIC-LENS,X,Y
+	CALL	REMOTE-VERB?
+	ZERO?	STACK /?CCL3
+	RETURN	LENS
+?CCL3:	FSET?	LENS-2,SEENBIT /FALSE
+	RETURN	LENS-1
+
+
+	.FUNCT	GENERIC-RECORDER,X,Y
+	FSET?	JACK-TAPE,SEENBIT /FALSE
+	RETURN	RECORDER
+
+
+	.FUNCT	GENERIC-BOX,X,Y
+	FSET?	LENS-BOX,SECRETBIT \FALSE
+	RETURN	VIVIEN-BOX
+
+
+	.FUNCT	GENERIC-BOOK,X,Y
+	EQUAL?	HERE,LIBRARY \FALSE
+	RETURN	BOOKS-GLOBAL
+
+
+	.FUNCT	GENERIC-WELL,X,Y
+	EQUAL?	HERE,BASEMENT /FALSE
+	RETURN	WELL
+
+
+	.FUNCT	GENERIC-SKELETON,X,Y
+	FSET?	SKELETON,SEENBIT \FALSE
+	RETURN	SKELETON
+
+
+	.FUNCT	GENERIC-ROOM,X,Y
+	RETURN	GLOBAL-HERE
+
+
+	.FUNCT	GENERIC-EYE,X,Y
+	EQUAL?	W?EYE,P-NAM,P-XNAM \FALSE
+	RETURN	GLASS-EYE
+
+
+	.FUNCT	GENERIC-BELL,X,Y
+	CALL	REMOTE-VERB?
+	ZERO?	STACK /FALSE
+	RETURN	BELL
+
+
+	.FUNCT	GENERIC-WINE,X,Y
+	EQUAL?	PRSA,V?TAKE \FALSE
+	RETURN	BOTTLE
+
+
+	.FUNCT	SPEAKING-VERB?,PER=0
+	EQUAL?	PRSA,V?$CALL /?CTR2
+	EQUAL?	PRSA,V?YES,V?TELL-ABOUT,V?TELL /?CTR2
+	EQUAL?	PRSA,V?SORRY,V?REPLY,V?NO /?CTR2
+	EQUAL?	PRSA,V?HELLO,V?FORGIVE,V?ASK-FOR /?CTR2
+	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK,V?ANSWER \?CCL3
+?CTR2:	EQUAL?	PER,0,PRSO /TRUE
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?TALK-ABOUT,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT \FALSE
+	ZERO?	PER /TRUE
+	RFALSE	
+
+
+	.FUNCT	MISSING,NV,ADJ
+	PRINTI	"[I think there's a "
+	PRINT	NV
+	PRINTR	" missing in that sentence!]"
+
+
+	.FUNCT	WHICH-PRINT,TLEN,LEN,TBL,OBJ,RLEN
+	ZERO?	LEN \?CND1
+	CALL	MORE-SPECIFIC
+	RFALSE	
+?CND1:	SET	'RLEN,LEN
+	EQUAL?	WINNER,PLAYER /?PRG17
+	PRINTI	"""I don't understand "
+	EQUAL?	P-NAM,W?DOOR \?PRG13
+	PRINTI	"which door"
+	JUMP	?PRG15
+?PRG13:	PRINTI	"if"
+?PRG15:	PRINTI	" you mean"
+	JUMP	?CND3
+?PRG17:	PRINTI	"[Which"
+	ZERO?	P-OFLAG \?CTR20
+	ZERO?	P-MERGED \?CTR20
+	ZERO?	P-AND /?CCL21
+?CTR20:	ZERO?	P-NAM /?PRG31
+	PRINTC	32
+	PRINTB	P-NAM
+	JUMP	?PRG31
+?CCL21:	EQUAL?	TBL,P-PRSO \?CCL30
+	CALL	CLAUSE-PRINT,P-NC1,P-NC1L,FALSE-VALUE
+	JUMP	?PRG31
+?CCL30:	CALL	CLAUSE-PRINT,P-NC2,P-NC2L,FALSE-VALUE
+?PRG31:	PRINTI	" do you mean"
+	EQUAL?	P-NAM,W?DOOR /?CND3
+	PRINTC	44
+?CND3:	EQUAL?	P-NAM,W?DOOR /?CND37
+?PRG39:	INC	'TLEN
+	GETB	TBL,TLEN >OBJ
+	CALL	PRINTT,OBJ
+	EQUAL?	LEN,2 \?CCL45
+	EQUAL?	RLEN,2 /?PRG50
+	PRINTC	44
+?PRG50:	PRINTI	" or"
+	JUMP	?CND43
+?CCL45:	GRTR?	LEN,2 \?CND43
+	PRINTC	44
+?CND43:	DLESS?	'LEN,1 \?PRG39
+?CND37:	EQUAL?	WINNER,PLAYER /?PRG62
+	PRINTR	"."""
+?PRG62:	PRINTR	"?]"
+
+
+	.FUNCT	GLOBAL-SEARCH,TBL,RMG,CNT,OBJ
+	PTSIZE	RMG
+	SUB	STACK,1 >CNT
+?PRG1:	GETB	RMG,CNT >OBJ
+	CALL	THIS-IT?,OBJ
+	ZERO?	STACK /?CND3
+	CALL	OBJ-FOUND,OBJ,TBL
+?CND3:	DLESS?	'CNT,0 \?PRG1
+	RTRUE	
+
+
+	.FUNCT	GLOBAL-CHECK,TBL,LEN,RMG,RMGL,CNT=0,OBITS,FOO
+	GETB	TBL,P-MATCHLEN >LEN
+	SET	'OBITS,P-SLOCBITS
+	GETPT	HERE,P?GLOBAL >RMG
+	ZERO?	RMG /?CND1
+	CALL	GLOBAL-SEARCH,TBL,RMG
+?CND1:	EQUAL?	P-NAM,W?DOOR /?CND3
+	CALL	THIS-IT?,HERE
+	ZERO?	STACK /?CND5
+	CALL	ZMEMQB,HERE,TBL
+	ZERO?	STACK \?CND5
+	CALL	OBJ-FOUND,HERE,TBL
+?CND5:	EQUAL?	PRSA,V?THROUGH,V?LOOK-INSIDE,V?EXAMINE /?CCL10
+	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB-DOWN,V?BOARD \?CND3
+?CCL10:	CALL	ROOM-SEARCH,TBL
+?CND3:	GETP	HERE,P?THINGS >RMG
+	ZERO?	RMG /?CND13
+	GET	RMG,0 >RMGL
+	SET	'CNT,0
+?PRG15:	ADD	CNT,1
+	GET	RMG,STACK
+	EQUAL?	P-NAM,STACK \?CND17
+	ZERO?	P-ADJ /?CCL18
+	ADD	CNT,2
+	GET	RMG,STACK
+	EQUAL?	P-ADJN,STACK \?CND17
+?CCL18:	SET	'LAST-PSEUDO-LOC,HERE
+	ADD	CNT,3
+	GET	RMG,STACK
+	PUTP	PSEUDO-OBJECT,P?ACTION,STACK
+	GETPT	PSEUDO-OBJECT,P?ACTION
+	SUB	STACK,5 >FOO
+	GET	P-NAM,0
+	PUT	FOO,0,STACK
+	GET	P-NAM,1
+	PUT	FOO,1,STACK
+	CALL	OBJ-FOUND,PSEUDO-OBJECT,TBL
+	JUMP	?CND13
+?CND17:	ADD	CNT,3 >CNT
+	LESS?	CNT,RMGL /?PRG15
+?CND13:	GETB	TBL,P-MATCHLEN
+	EQUAL?	STACK,LEN \FALSE
+	SET	'P-SLOCBITS,-1
+	SET	'P-TABLE,TBL
+	CALL	DO-SL,GLOBAL-OBJECTS,1,1
+	SET	'P-SLOCBITS,OBITS
+	GETB	TBL,P-MATCHLEN
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH /?CCL33
+	EQUAL?	PRSA,V?TAKE-TO,V?SSHOW,V?SHOW /?CCL33
+	EQUAL?	PRSA,V?FIND,V?CLIMB-UP,V?CLIMB-DOWN \FALSE
+?CCL33:	CALL	SEARCH-LIST,ROOMS,P-TABLE,P-SRCTOP
+	RSTACK	
+
+
+	.FUNCT	DO-SL,OBJ,BIT1,BIT2,BITS
+	ADD	BIT1,BIT2
+	BTST	P-SLOCBITS,STACK \?CCL3
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCALL
+	RSTACK	
+?CCL3:	BTST	P-SLOCBITS,BIT1 \?CCL6
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCTOP
+	RSTACK	
+?CCL6:	BTST	P-SLOCBITS,BIT2 \TRUE
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCBOT
+	RSTACK	
+
+
+	.FUNCT	SEARCH-LIST,OBJ,TBL,LVL
+	FIRST?	OBJ >OBJ \FALSE
+?PRG4:	EQUAL?	LVL,P-SRCBOT /?CND6
+	CALL	THIS-IT?,OBJ
+	ZERO?	STACK /?CND6
+	CALL	OBJ-FOUND,OBJ,TBL
+?CND6:	ZERO?	LVL \?PRD13
+	FSET?	OBJ,SEARCHBIT /?PRD13
+	FSET?	OBJ,SURFACEBIT \?CND10
+?PRD13:	FIRST?	OBJ \?CND10
+	FSET?	OBJ,OPENBIT /?CCL11
+	FSET?	OBJ,TRANSBIT /?CCL11
+	ZERO?	P-MOBY-FLAG \?CCL11
+	FSET?	OBJ,PERSONBIT \?CND10
+	EQUAL?	OBJ,WINNER /?CND10
+?CCL11:	FSET?	OBJ,SURFACEBIT \?CCL26
+	PUSH	P-SRCALL
+	JUMP	?CND24
+?CCL26:	FSET?	OBJ,SEARCHBIT \?CCL28
+	PUSH	P-SRCALL
+	JUMP	?CND24
+?CCL28:	PUSH	P-SRCTOP
+?CND24:	CALL	SEARCH-LIST,OBJ,TBL,STACK
+?CND10:	NEXT?	OBJ >OBJ /?PRG4
+	RTRUE	
+
+
+	.FUNCT	ROOM-SEARCH,TTBL,P=0,L,TBL,O
+	CALL	CORRIDOR-LOOK,ROOMS >O
+	ZERO?	O /?PRG3
+	CALL	OBJ-FOUND,O,TTBL
+?PRG3:	NEXTP	HERE,P >P
+	ZERO?	P /FALSE
+	LESS?	P,LOW-DIRECTION /FALSE
+	GETPT	HERE,P >TBL
+	PTSIZE	TBL >L
+	GETB	TBL,REXIT >O
+	CALL	ZMEMQB,O,TTBL
+	ZERO?	STACK \?PRG3
+	EQUAL?	L,UEXIT \?CCL13
+	CALL	THIS-IT?,O
+	ZERO?	STACK /?PRG3
+	CALL	OBJ-FOUND,O,TTBL
+	JUMP	?PRG3
+?CCL13:	EQUAL?	L,DEXIT \?CCL17
+	GETB	TBL,DEXITOBJ
+	FSET?	STACK,OPENBIT \?PRG3
+	CALL	THIS-IT?,O
+	ZERO?	STACK /?PRG3
+	CALL	OBJ-FOUND,O,TTBL
+	JUMP	?PRG3
+?CCL17:	EQUAL?	L,CEXIT \?PRG3
+	GETB	TBL,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?PRG3
+	CALL	THIS-IT?,O
+	ZERO?	STACK /?PRG3
+	CALL	OBJ-FOUND,O,TTBL
+	JUMP	?PRG3
+
+
+	.FUNCT	THIS-IT?,OBJ,SYNS
+	FSET?	OBJ,INVISIBLE /FALSE
+	ZERO?	P-NAM /?CCL5
+	GETPT	OBJ,P?SYNONYM >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	DIV	STACK,2
+	SUB	STACK,1
+	CALL	ZMEMQ,P-NAM,SYNS,STACK
+	ZERO?	STACK /FALSE
+?CCL5:	ZERO?	P-ADJ /?CCL11
+	GETPT	OBJ,P?ADJECTIVE >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	SUB	STACK,1
+	CALL	ZMEMQB,P-ADJ,SYNS,STACK
+	ZERO?	STACK /FALSE
+?CCL11:	ZERO?	P-GWIMBIT /TRUE
+	FSET?	OBJ,P-GWIMBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	OBJ-FOUND,OBJ,TBL,PTR
+	EQUAL?	OBJ,NOT-HERE-OBJECT /?CND1
+	CALL	ZMEMQB,OBJ,TBL
+	ZERO?	STACK \FALSE
+?CND1:	GETB	TBL,P-MATCHLEN >PTR
+	INC	'PTR
+	PUTB	TBL,PTR,OBJ
+	PUTB	TBL,P-MATCHLEN,PTR
+	RTRUE	
+
+
+	.FUNCT	TAKE-CHECK
+	GETB	P-SYNTAX,P-SLOC1
+	CALL	ITAKE-CHECK,P-PRSO,STACK
+	ZERO?	STACK /FALSE
+	GETB	P-SYNTAX,P-SLOC2
+	CALL	ITAKE-CHECK,P-PRSI,STACK
+	RSTACK	
+
+
+	.FUNCT	ITAKE-CHECK,TBL,BITS,PTR,OBJ,TAKEN
+	GETB	TBL,P-MATCHLEN >PTR
+	ZERO?	PTR /TRUE
+	BTST	BITS,SHAVE /?PRG8
+	BTST	BITS,STAKE \TRUE
+?PRG8:	DLESS?	'PTR,0 /TRUE
+	ADD	PTR,1
+	GETB	TBL,STACK >OBJ
+	EQUAL?	OBJ,IT \?CCL14
+	CALL	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK \?CCL17
+	CALL	MORE-SPECIFIC
+	RFALSE	
+?CCL17:	SET	'OBJ,P-IT-OBJECT
+	JUMP	?CND12
+?CCL14:	EQUAL?	OBJ,HER \?CCL19
+	CALL	ACCESSIBLE?,P-HER-OBJECT
+	ZERO?	STACK \?CCL22
+	CALL	MORE-SPECIFIC
+	RFALSE	
+?CCL22:	SET	'OBJ,P-HER-OBJECT
+	JUMP	?CND12
+?CCL19:	EQUAL?	OBJ,HIM \?CND12
+	CALL	ACCESSIBLE?,P-HIM-OBJECT
+	ZERO?	STACK \?CCL26
+	CALL	MORE-SPECIFIC
+	RFALSE	
+?CCL26:	SET	'OBJ,P-HIM-OBJECT
+?CND12:	CALL	HELD?,OBJ,WINNER
+	ZERO?	STACK \?PRG8
+	EQUAL?	OBJ,HANDS,ROOMS /?PRG8
+	SET	'PRSO,OBJ
+	FSET?	OBJ,TRYTAKEBIT \?CCL33
+	SET	'TAKEN,TRUE-VALUE
+	JUMP	?CND31
+?CCL33:	EQUAL?	WINNER,PLAYER /?CCL35
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND31
+?CCL35:	BTST	BITS,STAKE \?CCL37
+	CALL	ITAKE,FALSE-VALUE
+	EQUAL?	STACK,TRUE-VALUE \?CCL37
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND31
+?CCL37:	SET	'TAKEN,TRUE-VALUE
+?CND31:	ZERO?	TAKEN /?PRG8
+	BTST	BITS,SHAVE \?PRG8
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	"n't holding"
+	GETB	TBL,P-MATCHLEN
+	LESS?	1,STACK \?CCL50
+	PRINTI	" those things"
+	JUMP	?PRG59
+?CCL50:	EQUAL?	OBJ,NOT-HERE-OBJECT \?PRG57
+	PRINTI	" that"
+	JUMP	?PRG59
+?PRG57:	CALL	PRINTT,OBJ
+	CALL	THIS-IS-IT,OBJ
+?PRG59:	PRINTI	"!)"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	MANY-CHECK,LOSS=0,TMP,?TMP1
+	GETB	P-PRSO,P-MATCHLEN
+	GRTR?	STACK,1 \?CCL3
+	GETB	P-SYNTAX,P-SLOC1
+	BTST	STACK,SMANY /?CCL3
+	SET	'LOSS,1
+	JUMP	?CND1
+?CCL3:	GETB	P-PRSI,P-MATCHLEN
+	GRTR?	STACK,1 \?CND1
+	GETB	P-SYNTAX,P-SLOC2
+	BTST	STACK,SMANY /?CND1
+	SET	'LOSS,2
+?CND1:	ZERO?	LOSS /TRUE
+	PRINTI	"[You can't use more than one "
+	EQUAL?	LOSS,2 \?PRG19
+	PRINTI	"in"
+?PRG19:	PRINTI	"direct object with """
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL23
+	PRINTI	"tell"
+	JUMP	?PRG30
+?CCL23:	ZERO?	P-OFLAG \?CTR26
+	ZERO?	P-MERGED /?CCL27
+?CTR26:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?PRG30
+?CCL27:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK
+?PRG30:	PRINTI	"""!]"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	ZMEMQ,ITM,TBL,SIZE=-1,CNT=1
+	ZERO?	TBL /FALSE
+	LESS?	SIZE,0 /?CCL5
+	SET	'CNT,0
+	JUMP	?PRG8
+?CCL5:	GET	TBL,0 >SIZE
+	GRTR?	SIZE,0 \FALSE
+?PRG8:	GET	TBL,CNT
+	EQUAL?	ITM,STACK \?CCL12
+	ZERO?	CNT /TRUE
+	RETURN	CNT
+?CCL12:	IGRTR?	'CNT,SIZE \?PRG8
+	RFALSE	
+
+
+	.FUNCT	ZMEMQB,ITM,TBL,SIZE=-1,CNT=1
+	ZERO?	TBL /FALSE
+	LESS?	SIZE,0 /?CCL5
+	SET	'CNT,0
+	JUMP	?PRG8
+?CCL5:	GETB	TBL,0 >SIZE
+	GRTR?	SIZE,0 \FALSE
+?PRG8:	GETB	TBL,CNT
+	EQUAL?	ITM,STACK \?CCL12
+	ZERO?	CNT /TRUE
+	RETURN	CNT
+?CCL12:	IGRTR?	'CNT,SIZE \?PRG8
+	RFALSE	
+
+
+	.FUNCT	LIT?,RM=0,RMBIT=0,OHERE,LIT=0,P=0,TBL,L
+	ZERO?	RM \?CND1
+	SET	'RM,HERE
+?CND1:	ZERO?	RMBIT /?CND3
+	FSET?	RM,ONBIT \FALSE
+	RETURN	RM
+?CND3:	FSET?	RM,ONBIT \?CCL10
+	SET	'LIT,RM
+	JUMP	?CND8
+?CCL10:	SET	'P-GWIMBIT,ONBIT
+	SET	'OHERE,HERE
+	SET	'HERE,RM
+	PUTB	P-MERGE,P-MATCHLEN,0
+	SET	'P-TABLE,P-MERGE
+	SET	'P-SLOCBITS,-1
+	CALL	SEARCH-LIST,RM,P-TABLE,P-SRCALL
+	GETB	P-MERGE,P-MATCHLEN
+	ZERO?	STACK /?CND11
+	GETB	P-MERGE,1 >LIT
+?CND11:	SET	'HERE,OHERE
+	SET	'P-GWIMBIT,0
+?CND8:	ZERO?	LIT /?CCL15
+	RETURN	LIT
+?CCL15:	EQUAL?	RM,GALLERY-CORNER \?PRG20
+	FSET?	GALLERY,ONBIT \?PRG20
+	RETURN	GALLERY
+?PRG20:	NEXTP	RM,P >P
+	ZERO?	P /FALSE
+	EQUAL?	P,P?UP,P?DOWN /?PRG20
+	LESS?	P,LOW-DIRECTION /?PRG20
+	GETPT	RM,P >TBL
+	PTSIZE	TBL >L
+	GETB	TBL,REXIT >OHERE
+	EQUAL?	L,UEXIT \?CCL30
+	CALL	LIT?,OHERE,TRUE-VALUE
+	ZERO?	STACK /?CCL30
+	RETURN	OHERE
+?CCL30:	EQUAL?	L,DEXIT \?CCL34
+	GETB	TBL,DEXITOBJ
+	FSET?	STACK,OPENBIT \?CCL34
+	CALL	LIT?,OHERE,TRUE-VALUE
+	ZERO?	STACK /?CCL34
+	RETURN	OHERE
+?CCL34:	EQUAL?	L,CEXIT \?PRG20
+	GETB	TBL,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?PRG20
+	CALL	LIT?,OHERE,TRUE-VALUE
+	ZERO?	STACK /?PRG20
+	RETURN	OHERE
+
+
+	.FUNCT	NOT-HERE,OBJ,CLOCK=0
+	ZERO?	CLOCK \?PRG5
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+?PRG5:	CALL	START-SENTENCE,OBJ
+	PRINTI	" isn't "
+	CALL	VISIBLE?,OBJ
+	ZERO?	STACK /?PRG18
+	PRINTI	"close enough"
+	CALL	SPEAKING-VERB?
+	ZERO?	STACK /?PRG16
+	PRINTI	" to hear you"
+?PRG16:	PRINTC	46
+	JUMP	?CND7
+?PRG18:	PRINTI	"here!"
+?CND7:	CALL	THIS-IS-IT,OBJ
+	ZERO?	CLOCK \?CND20
+	PRINTC	41
+?CND20:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PUT-ADJ-NAM
+	EQUAL?	P-NAM,W?IT,W?HIM,W?HER /FALSE
+	PUT	P-NAMW,P-PHR,P-NAM
+	PUT	P-ADJW,P-PHR,P-ADJN
+	RTRUE	
+
+
+	.FUNCT	NOUN-USED?,WORD1,WORD2=1,WORD3=1
+	ZERO?	NOW-PRSI \?CCL3
+	GET	P-NAMW,0
+	EQUAL?	STACK,WORD1,WORD2,WORD3 /TRUE
+	GET	P-OFW,0
+	EQUAL?	STACK,WORD1,WORD2,WORD3 /TRUE
+	RFALSE	
+?CCL3:	GET	P-NAMW,1
+	EQUAL?	STACK,WORD1,WORD2,WORD3 /TRUE
+	GET	P-OFW,1
+	EQUAL?	STACK,WORD1,WORD2,WORD3 /TRUE
+	RFALSE	
+
+
+	.FUNCT	ADJ-USED?,WORD1=1,WORD2=1,WORD3=1
+	ZERO?	NOW-PRSI \?CCL3
+	EQUAL?	WORD1,1 \?CCL6
+	GET	P-ADJW,0
+	RSTACK	
+?CCL6:	GET	P-ADJW,0
+	EQUAL?	STACK,WORD1,WORD2,WORD3 /TRUE
+	RFALSE	
+?CCL3:	EQUAL?	WORD1,1 \?CCL11
+	GET	P-ADJW,1
+	RSTACK	
+?CCL11:	GET	P-ADJW,1
+	EQUAL?	STACK,WORD1,WORD2,WORD3 /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/parser.zil b/parser.zil
index a8cf531..d406c37 100644
--- a/parser.zil
+++ b/parser.zil
@@ -171,7 +171,7 @@ Copyright (C) 1986 Infocom, Inc.  All rights reserved."
 			;<SET TBL ,P-PRSI>
 			<SET OBJ <GET/B ,P-PRSO 1>>
 			.ICNT)
-		       (T 1)>>
+		       (T ;.ICNT 1)>>
 	    <COND (<AND <NOT .OBJ> <1? .ICNT>>
 		   <SET OBJ <GET/B ,P-PRSI 1>>)>
 	    <COND (<EQUAL? ,PRSA ,V?WALK ;,V?FACE>
@@ -1339,10 +1339,7 @@ Now you can try again">)
 		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
 		       <SETG QUOTE-FLAG <>>
 		       <RETURN>)
-		      (<AND <SET WRD <GET ,P-LEXV .PTR>>
-			    <BUZZER-WORD? .WRD .PTR>>
-		       <RFALSE>)
-		      (<OR <T? .WRD>
+		      (<OR <T? <SET WRD <GET ,P-LEXV .PTR>>>
 			   <SET WRD <NUMBER? .PTR>>
 			   <SET WRD <NAME? .PTR>>>
 		       <COND (<0? ,P-LEN> <SET NW 0>)
@@ -1403,7 +1400,8 @@ Now you can try again">)
 				     <RETURN>)>)
 			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
 				   <ZERO? .VERB>>
-			      <SETG P-PRSA-WORD .WRD>
+			      <COND (<ZERO? ,P-OFLAG>
+				     <SETG P-PRSA-WORD .WRD>)>
 			      <SET VERB .VAL>
 			      <PUT ,P-ITBL ,P-VERB .VAL>
 			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
@@ -1417,7 +1415,7 @@ Now you can try again">)
 					   ;<EQUAL? .WRD ,W?BOTH>
 					   <WT? .WRD ,PS?ADJECTIVE>
 					   <WT? .WRD ,PS?OBJECT>>
-				       <SET VAL 0>>>
+				       ;<SET VAL 0>>>
 			      <COND (<AND <G? ,P-LEN 1 ;0>
 					  <==? .NW ,W?OF>
 					  ;<NOT <EQUAL? .VERB
@@ -1462,7 +1460,9 @@ Now you can try again">)
 				     <RFALSE>)
 				    (T
 				     <SET OF-FLAG <>>)>)
-			     (<WT? .WRD ,PS?BUZZ-WORD>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>
+			      <COND (<BUZZER-WORD? .WRD .PTR>
+				     <RFALSE>)>)
 			     (<AND <EQUAL? .VERB ,ACT?TELL>
 				   <WT? .WRD ,PS?VERB ;,P1?VERB>>
 			      <TELL
@@ -1677,14 +1677,14 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV:"
 		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
 		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
 		       <RETURN -1>)>
-		<COND (<AND <SET WRD <GET ,P-LEXV .PTR>>
-			    <BUZZER-WORD? .WRD .PTR>>
-		       <RFALSE>)
-		      (<OR <T? .WRD>
+		<COND (<OR <T? <SET WRD <GET ,P-LEXV .PTR>>>
 			   <SET WRD <NUMBER? .PTR>>
 			   <SET WRD <NAME? .PTR>>>
 		       <COND (<0? ,P-LEN> <SET NW 0>)
-			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+			     (T
+			      <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
+			      <COND (<ZERO? .NW>	;"added 8/14/86 SWG"
+				     <SET NW <NUMBER? <+ .PTR ,P-LEXELEN>>>)>)>
 		       ;<COND (<AND <==? .WRD ,W?OF>
 				   <EQUAL? <GET ,P-ITBL ,P-VERB>
 					   ,ACT?MAKE ,ACT?TAKE>>
@@ -1735,15 +1735,10 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV:"
 					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
 				     <RETURN .PTR>)
 				    (T <SET ANDFLG <>>)>)
-			     ;"Next clause replaced by following one to allow
-			       ATTRACTIVE MAN, VERB - JW 2/15/85"
-			     ;(<AND <OR ,P-MERGED
-				       ,P-OFLAG
-				       <NOT <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>>
-				   <OR <WT? .WRD ,PS?ADJECTIVE>
-				       <WT? .WRD ,PS?BUZZ-WORD>>>)
-			     (<OR <WT? .WRD ,PS?ADJECTIVE>
-				  <WT? .WRD ,PS?BUZZ-WORD>>)
+			     (<WT? .WRD ,PS?ADJECTIVE>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>
+			      <COND (<BUZZER-WORD? .WRD .PTR>
+				     <RFALSE>)>)
 			     (<AND .ANDFLG
 				   <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>
 			      <SET PTR <- .PTR 4>>
@@ -1796,45 +1791,58 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV:"
 <GLOBAL P-TIME:FLAG <>>
 <GLOBAL P-DIRECTION 0>
 
-<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END
+		       (ADJ <>) (ADJB <>) (VRB <>) (NOUN <>) ADJE WRD) 
    <SETG P-OFLAG <>>
-   <COND (<OR <EQUAL? <WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
-			   ,PS?VERB ,P1?VERB>
-		      <GET ,P-OTBL ,P-VERB>>
-	      <WT? .WRD ,PS?ADJECTIVE>>
-	  <SET ADJ T>)
-	 (<AND <WT? .WRD ,PS?OBJECT ,P1?OBJECT>
+   <COND (<AND <SET WRD <GET ,P-ITBL ,P-VERBN>>
+	       <SET WRD <GET .WRD 0>>>
+	  <COND (<EQUAL? <WT? .WRD ,PS?VERB ,P1?VERB>
+			 <GET ,P-OTBL ,P-VERB>>
+		 <SET VRB T>)>
+	  <COND (<WT? .WRD ,PS?ADJECTIVE>
+		 <SET ADJ T>)>
+	  <COND (<WT? .WRD ,PS?OBJECT>
+		 <SET NOUN T>)>)>
+   <COND (<AND <NOT .VRB> ;"convert apparent verb into noun clause"
+	       <NOT .ADJ>
+	       <WT? .WRD ,PS?OBJECT ,P1?OBJECT>
 	       <EQUAL? ,P-NCN 0>>
 	  <PUT ,P-ITBL ,P-VERB 0>
 	  <PUT ,P-ITBL ,P-VERBN 0>
-	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
-	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV <+ ,P-WORDLEN <* 2 ,P-LEXSTART>>>>
 	  <SETG P-NCN 1>)>
    <COND (<AND <NOT <ZERO? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
 	       <NOT .ADJ>
+	       <NOT .VRB>
 	       <NOT <EQUAL? .VERB <GET ,P-OTBL ,P-VERB>>>>
 	  <RFALSE>)
 	 (<EQUAL? ,P-NCN 2> <RFALSE>)
 	 (<EQUAL? <GET ,P-OTBL ,P-NC1> 1>
-	  <COND (<OR <ZERO? <SET TEMP <GET ,P-ITBL ,P-PREP1>>>
-		     <EQUAL? .TEMP <GET ,P-OTBL ,P-PREP1>>>
+	  <COND (<EQUAL? <GET ,P-ITBL ,P-PREP1>
+			 0
+			 <GET ,P-OTBL ,P-PREP1>>
 		 <COND (.ADJ
-			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
 			<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>>
-			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
-			<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)
-		       (T
-			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
-			;<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>
+			       <PUT ,P-ITBL ,P-NC1L
+				    <REST ,P-LEXV <+ ,P-WORDLEN
+						     <* 2 ,P-LEXSTART>>>>)>
+			<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)>
+		 <PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
 		 <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
 		(T <RFALSE>)>)
 	 (<EQUAL? <GET ,P-OTBL ,P-NC2> 1>
-	  <COND (<OR <ZERO? <SET TEMP <GET ,P-ITBL ,P-PREP1>>>
-		     <EQUAL? .TEMP <GET ,P-OTBL ,P-PREP2>>>
-		 <COND (.ADJ
-			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+	  <COND (<EQUAL? <GET ,P-ITBL ,P-PREP1>
+			 <>
+			 <GET ,P-OTBL ,P-PREP2>>
+		 <COND (<OR .ADJ
+			    <AND <ZERO? ,P-NCN> .NOUN>>
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
 			<COND (<ZERO? <GET ,P-ITBL ,P-NC1L>>
-			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>)>
+			       <PUT ,P-ITBL ,P-NC1L
+				    <REST ,P-LEXV <+ ,P-WORDLEN
+						     <* 2 ,P-LEXSTART>>>>)>)>
 		 <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
 		 <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
 		 <SETG P-NCN 2>)
@@ -1845,33 +1853,37 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV:"
 		 <RFALSE>)
 		(T
 		 <SET BEG <GET ,P-ITBL ,P-NC1>>
-		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+		 <COND (.ADJ
+			<SET BEG <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
+			<PUT ,P-ITBL ,P-NC1 .BEG>
+			<SET ADJ <>>)>
 		 <SET END <GET ,P-ITBL ,P-NC1L>>
 		 <REPEAT ()
-			 <SET WRD <GET .BEG 0>>
 			 <COND (<EQUAL? .BEG .END>
-				<COND (.ADJ <CLAUSE-WIN .ADJ> <RETURN>)
-				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
-			       (<OR <EQUAL? .WRD ,W?ALL ;,W?EVERYT ,W?ONE> 
+				<COND (.ADJB <CLAUSE-WIN .ADJB .ADJE> <RETURN>)
+				      (T
+				       <SETG P-ACLAUSE <>>
+				       <RFALSE>)>)>
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<OR <EQUAL? .WRD ,W?ALL ,W?ONE> 
 				    <AND <BTST <GETB .WRD ,P-PSOFF>
 					       ,PS?ADJECTIVE> ;"same as WT?"
 					 <ADJ-CHECK .WRD .ADJ .ADJ>>>
-				<SET ADJ .WRD>)
-			       (<EQUAL? .WRD ,W?ONE>
-				<CLAUSE-WIN .ADJ>
-				<RETURN>)
+				<COND (<NOT .ADJB> <SET ADJB .BEG>)>
+				<SET ADJ .WRD>
+				<SET ADJE <REST .BEG ,P-WORDLEN>>)
 			       (<AND <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
 				     <EQUAL? <+ .BEG ,P-WORDLEN> .END>>
-				<COND (<EQUAL? .WRD ,P-ANAM>
-				       <CLAUSE-WIN .ADJ>)
-				      (T
-				       <CLAUSE-WIN>)>
-				<RETURN>)>
+				<COND (<AND ,P-ANAM
+					    <NOT <EQUAL? .WRD ,P-ANAM>>>
+				       <SETG P-ANAM <>>
+				       <SET ADJB <GET ,P-ITBL ,P-NC1>>
+				       <SET ADJE .END>)>)>
 			 <SET BEG <REST .BEG ,P-WORDLEN>>
 			 <COND (<EQUAL? .END 0>
 				<SET END .BEG>
 				<SETG P-NCN 1>
-				<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG ,P-WORDLEN>>
 				<PUT ,P-ITBL ,P-NC1L .BEG>)>>)>)>
    <PUT ,P-VTBL 0 <GET ,P-OVTBL 0>>
    <PUTB ,P-VTBL 2 <GETB ,P-OVTBL 2>>
@@ -1886,17 +1898,18 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV:"
 		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
    T>
 
-<ROUTINE CLAUSE-WIN ("OPT" (ADJ <>)) 
-	<COND (.ADJ
-	       <PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>)
-	      (ELSE <SET ADJ T>)>
-	<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
-	<PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
+<ROUTINE CLAUSE-WIN ("OPT" (ADJB <>) (ADJE <>)) 
+	<COND (.ADJB
+	       <PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>)>
+	<PUT ,P-CCTBL ,CC-BEG ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-END <+ ,P-ACLAUSE 1>>
+	<PUT ,P-CCTBL ,CC-IBEG .ADJB>
+	<PUT ,P-CCTBL ,CC-IEND .ADJE>
 	<COND (<EQUAL? ,P-ACLAUSE ,P-NC1>
-	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL1>)
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL1>)
 	      (ELSE
-	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL2>)>
-	<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL2>)>
+	<CLAUSE-COPY ,P-OTBL ,P-OTBL>
 	<AND <NOT <EQUAL? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
 	<SETG P-ACLAUSE <>>
 	<RTRUE>>
@@ -2100,14 +2113,18 @@ something else.]" CR>>
 		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
 		      (T <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>>
 	<COND (<EQUAL? ,P-NCN 2>
-	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
-	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
-	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL2>
+	       <PUT ,P-CCTBL ,CC-BEG ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-END ,P-NC2L>
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL2>
+	       <PUT ,P-CCTBL ,CC-IBEG <>>
+	       <PUT ,P-CCTBL ,CC-IEND <>>
 	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
 	<COND (<NOT <L? ,P-NCN 1>>
-	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
-	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
-	       <PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL1>
+	       <PUT ,P-CCTBL ,CC-BEG ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-END ,P-NC1L>
+	       <PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL1>
+	       <PUT ,P-CCTBL ,CC-IBEG <>>
+	       <PUT ,P-CCTBL ,CC-IEND <>>
 	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
 	<COND (.D1
 	       <PUT ,P-OTBL ,P-PREP1 <GETB .D1 ,P-SPREP1>>
@@ -2243,43 +2260,42 @@ something else.]" CR>>
 			   <EQUAL? .WRD ,W?OUT>>
 		      <TELL " of">)>
 	       <RTRUE>)>>    
-
-"pointers used by CLAUSE-COPY (source/destination beginning/end pointers):"
-<CONSTANT CC-SBPTR 0>
-<CONSTANT CC-SEPTR 1>
-<CONSTANT CC-OCLAUSE 2>
+
+"CLAUSE-COPY"
 
 <GLOBAL P-CCTBL <TABLE 0 0 0 0 0>>
 
-<ROUTINE CLAUSE-COPY (SRC DEST "OPT" (INSRT <>)
-		      "AUX" OCL BEG END BB EE OBEG CNT B E)
-	<SET BB <GET ,P-CCTBL ,CC-SBPTR>>
-	<SET EE <GET ,P-CCTBL ,CC-SEPTR>>
-	<SET OCL <GET ,P-CCTBL ,CC-OCLAUSE>>
+"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
+<CONSTANT CC-BEG 0>	"slot in source to start from"
+<CONSTANT CC-END 1>	"slot in source to end at"
+<CONSTANT CC-CLAUSE 2>	"which orphan table to use"
+<CONSTANT CC-IBEG 3>	"insertion beginning (from lexv)"
+<CONSTANT CC-IEND 4>	"insertion ending"
+
+"do something about duplicate words in clause?"
+
+<ROUTINE CLAUSE-COPY (SRC DEST
+		      "AUX" (IBEG <>) IEND OCL BEG END BB EE OBEG CNT B E)
+	<SET BB <GET ,P-CCTBL ,CC-BEG>>
+	<SET EE <GET ,P-CCTBL ,CC-END>>
+	<SET OCL <GET ,P-CCTBL ,CC-CLAUSE>>
+	<SET IBEG <GET ,P-CCTBL ,CC-IBEG>>
+	<SET IEND <GET ,P-CCTBL ,CC-IEND>>
 	<SET BEG <GET .SRC .BB>>
 	<SET END <GET .SRC .EE>>
 	<SET OBEG <GET .OCL ,P-MATCHLEN>>
 	<REPEAT ()
-		<COND (<EQUAL? .BEG .END> <RETURN>)>
-		<COND (<AND .INSRT
+		<COND (<EQUAL? .BEG .END>
+		       <COND (<AND .IBEG <NOT ,P-ANAM>>
+			      <CLAUSE-SUBSTRUC .IBEG .IEND>)>
+		       <RETURN>)>
+		<COND (<AND .IBEG
 			    <EQUAL? ,P-ANAM <GET .BEG 0>>>
-		       <COND (<EQUAL? .INSRT T>
-			      <SET B <GET ,P-ITBL ,P-NC1>>
-			      <SET E <GET ,P-ITBL ,P-NC1L>>
-			      <REPEAT ()
-				      <COND (<EQUAL? .B .E> <RETURN>)>
-				      <CLAUSE-ADD <GET .B 0>>
-				      <SET B <REST .B ,P-WORDLEN>>>)
-			     (ELSE
-			      <COND (<NOT <EQUAL? .INSRT <GET .OCL 1>>>
-				     <CLAUSE-ADD .INSRT>)>
-			      <CLAUSE-ADD ,P-ANAM>)>)
-		      (ELSE
-		       <CLAUSE-ADD <GET .BEG 0>>)>
+		       <CLAUSE-SUBSTRUC .IBEG .IEND>)>
+		<CLAUSE-ADD <GET .BEG 0>>
 		<SET BEG <REST .BEG ,P-WORDLEN>>>
-	<COND (<AND <EQUAL? .SRC .DEST>
-		    <G? .OBEG 0>
-		    <L? 0 <SET CNT <- <GET .OCL ,P-MATCHLEN> .OBEG>>>>
+	<COND (<AND <G? .OBEG 0>
+		    <G? <SET CNT <- <GET .OCL ,P-MATCHLEN> .OBEG>> 0>>
 	       <PUT .OCL ,P-MATCHLEN 0>
 	       <SET OBEG <+ .OBEG 1>>
 	       <REPEAT ()
@@ -2296,8 +2312,14 @@ something else.]" CR>>
 	     <REST .OCL
 		   <+ <* <GET .OCL ,P-MATCHLEN> ,P-LEXELEN> 2>>>>
 
+<ROUTINE CLAUSE-SUBSTRUC (B E)
+	 <REPEAT ()
+		 <COND (<EQUAL? .B .E> <RETURN>)>
+		 <CLAUSE-ADD <GET .B 0>>
+		 <SET B <REST .B ,P-WORDLEN>>>>
+
 <ROUTINE CLAUSE-ADD (WRD "OPT" (CHECK? <>) "AUX" OCL PTR)
-	<SET OCL <GET ,P-CCTBL ,CC-OCLAUSE>>
+	<SET OCL <GET ,P-CCTBL ,CC-CLAUSE>>
 	<SET PTR <GET .OCL ,P-MATCHLEN>>
 	<COND (<AND .CHECK? <NOT <ZERO? .PTR>> <ZMEMQ .WRD .OCL>>
 	       <RFALSE>)
@@ -2305,8 +2327,8 @@ something else.]" CR>>
 	       <SET PTR <+ .PTR 2>>
 	       <PUT .OCL <- .PTR 1> .WRD>
 	       <PUT .OCL .PTR 0>
-	       <PUT .OCL ,P-MATCHLEN .PTR>)>>   
- 
+	       <PUT .OCL ,P-MATCHLEN .PTR>)>>
+
 <ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE) 
 	;#DECL ((PREP CNT SIZE) FIX)
 	<SET SIZE <* <GET ,PREPOSITIONS 0> 2>>
@@ -2460,8 +2482,6 @@ something else.]" CR>>
 				<RFALSE>)>
 			 <SET BUT ,P-BUTS>
 			 <PUT/B .BUT ,P-MATCHLEN 0>)
-			(<BUZZER-WORD? .WRD .PTR>
-			 <RFALSE>)
 			(<EQUAL? .WRD ,W?A ,W?ONE>
 			 <COND (<ZERO? ,P-ADJ>
 				<SETG P-GETFLAGS ,P-ONE>
@@ -2479,7 +2499,9 @@ something else.]" CR>>
 			 <COND (<NOT <GET-OBJECT <OR .BUT .TBL>>>
 				<RFALSE>)>
 			 T)
-			(<WT? .WRD ,PS?BUZZ-WORD>)
+			(<WT? .WRD ,PS?BUZZ-WORD>
+			 <COND (<BUZZER-WORD? .WRD .PTR>
+				<RFALSE>)>)
 			(<EQUAL? .WRD ,W?AND ,W?COMMA>)
 			(<==? .WRD ,W?OF>
 			 <COND (<0? ,P-GETFLAGS>
@@ -2764,35 +2786,39 @@ something else.]" CR>>
 <ROUTINE GENERIC-BEDROOM (TBL "OPTIONAL" (N 0) "AUX" RM)
  <COND (<ZERO? .N>
 	<SET N <GET/B .TBL ,P-MATCHLEN>>)>
- <COND (<ZMEMQ/B ,P-IT-OBJECT .TBL>
-	<RETURN ,P-IT-OBJECT>)
-       (<ZMEMQ/B ,HERE .TBL>
-	<RETURN ,HERE>)
+ <COND (<SET RM <ZMEMQ ,HERE ,CHAR-CLOSET-TABLE>>
+	<COND (<EQUAL? ,W?DOOR ,P-NAM ,P-XNAM>
+	       <RETURN <FIND-FLAG-LG ,HERE ,DOORBIT>>)
+	      (T <RETURN <GET ,CHAR-ROOM-TABLE .RM>>)>)
        (<AND <EQUAL? ,A?JACK\'S ,P-ADJ ,P-XADJ>
 	     <EQUAL? ,W?DOOR ,P-NAM ,P-XNAM>>
 	<RETURN ,JACK-ROOM>)
+       (<ZMEMQ/B ,P-IT-OBJECT .TBL>
+	<RETURN ,P-IT-OBJECT>)
+       (<ZMEMQ/B ,HERE .TBL>
+	<RETURN ,HERE>)
        (<REMOTE-VERB?>
 	<COND (<EQUAL? ,A?BATH ,P-ADJ ,P-XADJ>
 	       <RETURN ,YOUR-BATHROOM>)
 	      (<EQUAL? ,W?ROOM ,P-NAM ,P-XNAM>
-	       <RETURN ,YOUR-ROOM>)>)
+	       <RETURN ,YOUR-ROOM>)
+	      (T <SET RM <>>)>)
        (<EQUAL? ,HERE ,GALLERY ,YOUR-BATHROOM>
 	<RETURN ,YOUR-ROOM>)
        (<ZMEMQ ,HERE ,CHAR-ROOM-TABLE>
 	<RETURN ,HERE>)
-       (<SET RM <ZMEMQ ,HERE ,CHAR-CLOSET-TABLE>>
-	<COND (<EQUAL? ,W?DOOR ,P-NAM ,P-XNAM>
-	       <RETURN <FIND-FLAG-LG ,HERE ,DOORBIT>>)
-	      (T <RETURN <GET ,CHAR-ROOM-TABLE .RM>>)>)
        (<VERB? CLIMB-DOWN CLIMB-UP WALK-TO>
 	<RETURN ,YOUR-ROOM>)
        (T
 	<REPEAT ()
-		<COND (<EQUAL? ,HERE <GETP <SET RM <GET/B .TBL .N>>,P?STATION>>
-		       <RETURN .RM>)
-		      (<DLESS? N 1>
-		       <RETURN>)>>)>
- <COND (<EQUAL? ,WINNER ,FRIEND ,LORD>
+	 <COND (<EQUAL? ,HERE <GETP <SET RM <GET/B .TBL .N>> ,P?STATION>>
+		<RETURN>)
+	       (<DLESS? N 1>
+		<SET RM <>>
+		<RETURN>)>>)>
+ <COND (<T? .RM>
+	<RETURN .RM>)
+       (<EQUAL? ,WINNER ,FRIEND ,LORD>
 	<RETURN ,YOUR-ROOM>)
        (T <RFALSE>)>>
 
@@ -2803,18 +2829,12 @@ something else.]" CR>>
 	,GREAT-HALL)
        (T ,OLD-GREAT-HALL)>>
 
-;<ROUTINE GENERIC-CAR (X "OPTIONAL" Y) ,CAR>
-
 <ROUTINE GENERIC-LENS (X "OPTIONAL" Y)
  <COND (<REMOTE-VERB?>
 	,LENS)
        (<NOT <FSET? ,LENS-2 ,SEENBIT>>
 	,LENS-1)>>
 
-;<ROUTINE GENERIC-PAINTING (X "OPTIONAL" Y)
- <COND (<FSET? ,HYDE-IOU ,TOUCHBIT>
-	,OIL-PAINTING)>>
-
 <ROUTINE GENERIC-RECORDER (X "OPTIONAL" Y)
  <COND (<NOT <FSET? ,JACK-TAPE ,SEENBIT>>
 	,RECORDER)>>
@@ -2885,8 +2905,9 @@ something else.]" CR>>
 	       (T
 		<TELL "[Which">
 		<COND (<OR <T? ,P-OFLAG> <T? ,P-MERGED> <T? ,P-AND>>
-		       <TELL !\ >
-		       <PRINTB ,P-NAM>)
+		       <COND (<T? ,P-NAM>
+			      <TELL !\ >
+			      <PRINTB ,P-NAM>)>)
 		      (<EQUAL? .TBL ,P-PRSO>
 		       <CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
 		      (T
diff --git a/people.zap b/people.zap
new file mode 100644
index 0000000..d26935b
--- /dev/null
+++ b/people.zap
@@ -0,0 +1,2891 @@
+
+
+	.FUNCT	PLAYER-NAME-F
+	CALL	DO-INSTEAD-OF,PLAYER,PLAYER-NAME
+	RTRUE	
+
+
+	.FUNCT	PLAYER-F,ARG=0,L=0
+	EQUAL?	ARG,M-WINNER /?CCL3
+	EQUAL?	PRSO,PLAYER \FALSE
+	EQUAL?	PRSA,V?THANKS,V?SORRY /?CTR8
+	EQUAL?	PRSA,V?HELLO,V?DANCE,V?ARREST \?CCL9
+?CTR8:	CALL	HAR-HAR
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?EXAMINE \?CCL13
+	PRINTI	"You are wearing"
+	ZERO?	NOW-WEARING \?PRG21
+	PRINTI	" nothing"
+	JUMP	?CND16
+?PRG21:	CALL	PRINTT,NOW-WEARING
+?CND16:	FIRST?	PLAYER >L /?PRG23
+?PRG23:	ZERO?	L /?REP24
+	FSET?	L,WORNBIT \?CND25
+	EQUAL?	L,NOW-WEARING /?CND25
+	PRINTI	" and"
+	CALL	PRINTT,L
+?CND25:	NEXT?	L >L /?PRG23
+	JUMP	?PRG23
+?REP24:	PRINTR	"."
+?CCL13:	EQUAL?	PRSA,V?SEARCH \?CCL36
+	CALL	PERFORM,V?INVENTORY
+	RTRUE	
+?CCL36:	EQUAL?	PRSA,V?SMELL \FALSE
+	PRINTI	"You smell "
+	ZERO?	WASHED /?PRG46
+	PRINTR	"clean and fresh."
+?PRG46:	PRINTR	"as if you need washing."
+?CCL3:	CALL	DIVESTMENT?,NOW-WEARING
+	ZERO?	STACK /?CCL49
+	CALL	NO-CHANGING?
+	ZERO?	STACK \TRUE
+	ZERO?	NOW-WEARING /FALSE
+	EQUAL?	PRSA,V?REMOVE,V?DISEMBARK /FALSE
+	CALL	FIRST-YOU,STR?139,NOW-WEARING
+	FCLEAR	NOW-WEARING,WORNBIT
+	SET	'NOW-WEARING,FALSE-VALUE
+	RFALSE	
+?CCL49:	ZERO?	PRSI /?CCL58
+	EQUAL?	PRSA,V?SEARCH-FOR /?CCL58
+	FSET?	PRSI,SECRETBIT \?CCL58
+	FSET?	PRSI,SEENBIT /?CCL58
+	CALL	NOT-FOUND,PRSI
+	RTRUE	
+?CCL58:	ZERO?	PRSO /?CCL64
+	EQUAL?	PRSA,V?WALK,V?FIND /?CCL64
+	FSET?	PRSO,SECRETBIT \?CCL64
+	FSET?	PRSO,SEENBIT /?CCL64
+	CALL	NOT-FOUND,PRSO
+	RTRUE	
+?CCL64:	ZERO?	AWAITING-REPLY /?CCL70
+	EQUAL?	PRSA,V?WALK-TO /?CTR69
+	EQUAL?	PRSA,V?WALK,V?THROUGH,V?FOLLOW \?CCL70
+?CTR69:	SET	'CLOCK-WAIT,TRUE-VALUE
+	CALL	PLEASE-ANSWER
+	RTRUE	
+?CCL70:	LOC	PLAYER >L
+	EQUAL?	L,HERE,CAR /FALSE
+	ZERO?	P-WALK-DIR /?CCL79
+	CALL	TOO-BAD-SIT-HIDE
+	RSTACK	
+?CCL79:	EQUAL?	PRSO,FALSE-VALUE,ROOMS,L /FALSE
+	EQUAL?	PRSA,V?FIND /?CTR82
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?WALK-TO \?CCL83
+?CTR82:	EQUAL?	PRSO,SLEEP-GLOBAL /FALSE
+	CALL	TOO-BAD-SIT-HIDE
+	RSTACK	
+?CCL83:	CALL	SPEAKING-VERB?
+	ZERO?	STACK \FALSE
+	CALL	GAME-VERB?
+	ZERO?	STACK \FALSE
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?SMILE /FALSE
+	EQUAL?	PRSA,V?SHOOT,V?NOD,V?LOOK-ON /FALSE
+	EQUAL?	PRSA,V?LISTEN,V?FAINT,V?AIM /FALSE
+	CALL	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	CALL	HELD?,PRSO,GLOBAL-OBJECTS
+	ZERO?	STACK \FALSE
+	EQUAL?	L,CHAIR-DINING \?CCL105
+	IN?	PRSO,TABLE-DINING /FALSE
+?CCL105:	EQUAL?	PRSA,V?EXAMINE /FALSE
+	CALL	HELD?,PRSO,L
+	ZERO?	STACK \?CCL111
+	CALL	TOO-BAD-SIT-HIDE
+	RSTACK	
+?CCL111:	ZERO?	PRSI /FALSE
+	CALL	HELD?,PRSI
+	ZERO?	STACK \FALSE
+	CALL	HELD?,PRSI,GLOBAL-OBJECTS
+	ZERO?	STACK \FALSE
+	CALL	HELD?,PRSI,L
+	ZERO?	STACK \FALSE
+	CALL	TOO-BAD-SIT-HIDE
+	RSTACK	
+
+
+	.FUNCT	PLEASE-ANSWER,P
+	GETB	QUESTIONERS,AWAITING-REPLY >P
+	PRINTD	P
+	PRINTI	" says, """
+	EQUAL?	P,BUTLER,DOCTOR \?PRG8
+	PRINTI	"Pardon me, "
+	CALL	TITLE-NAME
+	PRINTI	", but"
+	JUMP	?PRG10
+?PRG8:	PRINTI	"Wait a mo'."
+?PRG10:	PRINTR	" I asked you a question."""
+
+
+	.FUNCT	TOO-BAD-SIT-HIDE
+	MOVE	WINNER,HERE
+	CALL	FIRST-YOU,STR?163
+	RFALSE	
+
+
+	.FUNCT	FRIEND-D,ARG=0
+	CALL	DESCRIBE-PERSON,FRIEND
+	RTRUE	
+
+
+	.FUNCT	I-REPLY,GARG=0,P,X
+	ZERO?	AWAITING-REPLY /FALSE
+	EQUAL?	AWAITING-REPLY,BUTLER-1-R,BUTLER-2-R,BUTLER-3-R /?CTR4
+	EQUAL?	AWAITING-REPLY,BUTLER-4-R \?CCL5
+?CTR4:	CALL	QUEUED?,I-BUTLER-HINTS
+	ZERO?	STACK /?CND8
+	CALL	QUEUE,I-BUTLER-HINTS,CLOCKER-RUNNING
+?CND8:	SET	'P,BUTLER
+	JUMP	?CND1
+?CCL5:	EQUAL?	AWAITING-REPLY,FRIEND-C \?CCL11
+	EQUAL?	VARIATION,FRIEND-C \?CCL11
+	SET	'P,FRIEND
+	JUMP	?CND1
+?CCL11:	EQUAL?	AWAITING-REPLY,DEB-C \?CCL15
+	SET	'P,DEB
+	JUMP	?CND1
+?CCL15:	EQUAL?	AWAITING-REPLY,OFFICER-1-R,OFFICER-2-R \?CCL17
+	SET	'P,OFFICER
+	JUMP	?CND1
+?CCL17:	EQUAL?	AWAITING-REPLY,DOCTOR-C \?CND1
+	SET	'P,DOCTOR
+?CND1:	ZERO?	P \?CCL21
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	RFALSE	
+?CCL21:	GETP	P,P?LINE >X
+	ADD	1,X
+	PUTP	P,P?LINE,STACK
+	ZERO?	X \?CCL24
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	PRINTD	P
+	PRINTI	" repeats, ""I said: "
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+?CCL24:	SET	'AWAITING-REPLY,FALSE-VALUE
+	PUTP	P,P?LDESC,20
+	CALL	VISIBLE?,P
+	ZERO?	STACK /?PRG41
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTI	" mutters, ""I'd "
+	EQUAL?	P,FRIEND \?PRG37
+	PRINTI	"wondered if you"
+	JUMP	?PRG39
+?PRG37:	PRINTI	"heard that Americans"
+?PRG39:	PRINTI	" were rude, but really...!"""
+	CRLF	
+?PRG41:	RETURN	2
+
+
+	.FUNCT	FRIEND-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	EQUAL?	AWAITING-REPLY,FRIEND-C \?CCL6
+	EQUAL?	PRSA,V?NO,V?YES \?CCL6
+	PUTP	FRIEND,P?LDESC,0
+	PUTP	FRIEND,P?LINE,0
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	PRINTI	"""Then you "
+	EQUAL?	PRSA,V?YES /?CND11
+	PRINTI	"don't "
+?CND11:	SET	'P-IT-OBJECT,GHOST-NEW
+	PRINTI	"know about my engagement, and the "
+	PRINTD	GHOST-OLD
+	PRINTR	", and the fact that... that someone is trying to kill me!"""
+?CCL6:	CALL	GRAB-ATTENTION,FRIEND
+	ZERO?	STACK \?CCL18
+	RETURN	2
+?CCL18:	EQUAL?	PRSA,V?DESCRIBE \?CCL22
+	EQUAL?	PRSO,GHOST-NEW \?CCL22
+	PRINTI	"Tammy shakes her head. ""I just don't know if the ghost was "
+	PRINTD	LOVER
+	PRINTR	". I never saw her, just that portrait by Vivien. The night I saw that ghastly face peering down at me... Well, I was too shaken to remember anything, except that horrible spider dropping down on me!"" She shudders at the memory."
+?CCL22:	EQUAL?	PRSA,V?FOLLOW \?CCL28
+	EQUAL?	PRSO,PLAYER \?CCL28
+	CALL	WILLING?,FRIEND
+	ZERO?	STACK /?PRG36
+	PRINTI	"""I'll try my best, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!"""
+	CRLF	
+	CALL	NEW-FOLLOWER,FRIEND
+	RTRUE	
+?PRG36:	PRINTR	"""Not just now."""
+?CCL28:	EQUAL?	PRSA,V?YES \?CCL39
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?KISS,FRIEND
+	RTRUE	
+?CCL39:	CALL	COM-CHECK,FRIEND >X
+	ZERO?	X /?CCL41
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL41:	CALL	WHY-ME
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?TELL-ABOUT,V?SHOW,V?ASK-ABOUT \?CCL52
+	EQUAL?	PRSI,SLEEP-OUTFIT,DINNER-OUTFIT /?CTR51
+	EQUAL?	PRSI,EXERCISE-OUTFIT,TWEED-OUTFIT,CAR \?CCL52
+?CTR51:	CALL	GRAB-ATTENTION,FRIEND
+	ZERO?	STACK \?PRG62
+	RETURN	2
+?PRG62:	PRINTI	"""It's super!"
+	EQUAL?	PRSI,TWEED-OUTFIT /?PRG68
+	PRINTI	" And it's "
+	PRINTD	YOUR-COLOR
+	PRINTC	33
+?PRG68:	PRINTR	""""
+?CCL52:	CALL	ASKING-ABOUT?,FRIEND >OBJ
+	ZERO?	OBJ /?CCL71
+	CALL	GRAB-ATTENTION,FRIEND,OBJ
+	ZERO?	STACK \?CCL74
+	RETURN	2
+?CCL74:	EQUAL?	OBJ,CASTLE \?CCL78
+	PRINTR	"""Oh, it's such a lovely place. If only I felt safe here!"""
+?CCL78:	EQUAL?	OBJ,SEARCHER /?PRD84
+	CALL	EVIDENCE?,OBJ
+	ZERO?	STACK /?CCL82
+?PRD84:	ZERO?	CONFESSED \?PRD87
+	GET	TOLD-ABOUT-EVID,FRIEND-C
+	ZERO?	STACK /?CCL82
+?PRD87:	EQUAL?	FRIEND,SEARCHER /?CCL82
+	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL82:	EQUAL?	OBJ,COUSIN,BUST \?CCL93
+	PRINTR	"""Sorry, but I never met the man."""
+?CCL93:	EQUAL?	OBJ,DEB \?CCL97
+	EQUAL?	VARIATION,FRIEND-C \?CCL97
+	PRINT	RHYMES-WITH-RICH
+	CRLF	
+	RTRUE	
+?CCL97:	EQUAL?	OBJ,LENS,LENS-1,LENS-2 \?CCL103
+	PRINTI	"""You know I've never worn glasses, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", or "
+	PRINTD	LENS
+	PRINTI	"es, either."
+	EQUAL?	VARIATION,DOCTOR-C,PAINTER-C \?PRG112
+	ZERO?	FOUND-IT-PERM /?PRG112
+	PRINTI	" I can't imagine who dropped it."
+?PRG112:	PRINTR	""""
+?CCL103:	EQUAL?	OBJ,PASSAGE \?CCL115
+	ZERO?	FRIEND-FOUND-PASSAGES /?CCL115
+	CALL	FRIEND-PASSAGE-STORY
+	RSTACK	
+?CCL115:	EQUAL?	OBJ,PRIEST-DOOR /?PRG124
+	EQUAL?	OBJ,PASSAGE \?CCL119
+	GET	FOUND-PASSAGES,FRIEND-C
+	ZERO?	STACK \?CCL119
+?PRG124:	PRINTC	34
+	EQUAL?	OBJ,PASSAGE \?PRG130
+	PRINTI	"You mean "
+	PRINTD	PASSAGE
+	PRINTI	"s like in horror movies? "
+?PRG130:	PRINTI	"Golly, I don't know that much about the castle, "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG136
+	PRINTC	46
+?PRG136:	PRINTI	" Maybe Jack could tell you."
+	EQUAL?	VARIATION,FRIEND-C \?PRG142
+	PRINTI	" Or Iris, who's spent far too much time here."
+?PRG142:	PRINTR	""""
+?CCL119:	EQUAL?	OBJ,LORD,ROMANCE,FRIEND \?CCL145
+	EQUAL?	OBJ,SEARCHER \?CTR144
+	GETP	OBJ,P?LDESC
+	EQUAL?	STACK,21 /?CCL145
+?CTR144:	EQUAL?	OBJ,FRIEND /?PRG155
+	FSET?	LORD,TOUCHBIT \?CCL152
+?PRG155:	PRINTI	"""Oh, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", I"
+	EQUAL?	VARIATION,LORD-C \?PRG162
+	PRINTI	" was"
+	JUMP	?PRG164
+?PRG162:	PRINTI	"'m"
+?PRG164:	PRINTI	" so happy!"" "
+	PRINTD	FRIEND
+	PRINTI	" gushes. ""The whole thing seem"
+	EQUAL?	VARIATION,LORD-C \?PRG171
+	PRINTI	"ed "
+	JUMP	?PRG173
+?PRG171:	PRINTI	"s "
+?PRG173:	PRINTI	"just like a fairy tale, or a paperback romance! But "
+	EQUAL?	VARIATION,LORD-C \?PRG189
+	PRINTI	"lately,"
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?PRG185
+	PRINTI	""" she whispers, """
+	JUMP	?PRG187
+?PRG185:	PRINTC	32
+?PRG187:	PRINTI	"Jack seems cool toward me"
+	JUMP	?PRG191
+?PRG189:	PRINTI	"I told you all about it in my letter"
+?PRG191:	PRINTR	"."""
+?CCL152:	MOVE	LORD,HERE
+	CALL	LORD-INTRO
+	RTRUE	
+?CCL145:	EQUAL?	OBJ,LOVER \?CCL194
+	PRINTI	"""She lived just down the beach, and from all accounts she spent most of her time hanging about the castle. If she'd stayed home a bit more, "
+	PRINTD	ACCIDENT
+	PRINTR	" never would've happened -- I mean, her falling in the well and drowning."""
+?CCL194:	EQUAL?	OBJ,ACCIDENT \?CCL198
+	PRINTI	"""I can't tell you much,"" says "
+	PRINTD	FRIEND
+	PRINTI	", ""because I wasn't here when it happened. But all the guests here tonight were also here that night. At dinner, they decided to have a wine tasting later in the evening. "
+	PRINTD	LOVER
+	PRINTI	" was to choose and pour the wine. But when the time came, she didn't show up, so they sent the butler down to the "
+	PRINTD	BASEMENT
+	PRINTR	", to find her and help carry up the bottles. He came back saying that she'd fallen down the well!"""
+?CCL198:	EQUAL?	OBJ,GHOST-OLD \?CCL202
+	PRINTI	"""I've told you all I know in my letter, "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG209
+	PRINTC	46
+?PRG209:	PRINTI	" But come to think of it, there's an old "
+	PRINTD	HISTORY-BOOK
+	PRINTI	" in the "
+	PRINTD	LIBRARY
+	PRINTI	" that tells about "
+	PRINTD	CASTLE
+	PRINTR	". You might learn more from that."""
+?CCL202:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL212
+	PRINTI	"""Since I wrote you, I've seen the ghost again, and this third time was the worst. After working late one night, I was "
+	GET	LDESC-STRINGS,17
+	PRINT	STACK
+	PRINTI	" the office to go to my room. As I opened the door to the "
+	PRINTD	CORR-2
+	PRINTI	", I saw this ghostly figure with "
+	PRINT	LONG-BLOND-HAIR
+	PRINTI	" and a dead white face. It was holding a sword and about to attack me!""
+"
+	PRINTD	FRIEND
+	PRINTI	" gulps and her voice quavers as she concludes, ""I s-s-screamed and shrank back inside the office and slammed the door! That's about all I can tell you, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"..."""
+	CRLF	
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?PRG228
+	GETP	LORD,P?LINE
+	ZERO?	STACK \?PRG228
+	PRINTI	"""I was just dozing off when Tammy's scream woke me,"" adds "
+	PRINTD	LORD
+	PRINTI	". ""By the time I ran into the "
+	PRINTD	CORR-2
+	PRINTI	", the ghost "
+	EQUAL?	VARIATION,FRIEND-C \?PRG226
+	PRINTI	"had disappeared."""
+	CRLF	
+	JUMP	?PRG228
+?PRG226:	PRINTI	"was almost gone. I did catch"
+	PRINT	WHITISH-GLIMPSE
+	PRINTI	" as it disappeared down the tower stairs -- but frankly I was more concerned about "
+	PRINTD	FRIEND
+	PRINTI	"."""
+	CRLF	
+?PRG228:	PRINTD	FRIEND
+	PRINTR	" fidgets nervously. ""I don't know whether this ghost is real, or someone just play-acting. It can sneak around anywhere it pleases in the whole castle. I just don't understand how a person dressed up like a spook can do that without being caught!"""
+?CCL212:	EQUAL?	OBJ,COSTUME,BLOWGUN,TAMARA-EVIDENCE \?CCL231
+	EQUAL?	VARIATION,FRIEND-C \?CCL231
+	PRINTR	"""I've, uh, never seen it before."""
+?CCL231:	CALL	COMMON-ASK-ABOUT,FRIEND,OBJ >X
+	ZERO?	X /?CCL237
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL237:	FSET?	OBJ,PERSONBIT \?CCL242
+	EQUAL?	OBJ,MAID /?CCL242
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"""I already told you about"
+	CALL	HIM-HER-IT,OBJ
+	PRINTR	" in my letter."""
+?CCL242:	EQUAL?	PRSA,V?SHOW \?PRG252
+	PRINTI	"""It looks like "
+	CALL	PRINTA,OBJ
+	PRINTR	" to me."""
+?PRG252:	PRINTI	"""I just don't know, "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG258
+	PRINTC	46
+?PRG258:	PRINTR	""""
+?CCL71:	EQUAL?	PRSA,V?FOLLOW \?CCL261
+	CALL	TOUR?
+	ZERO?	STACK \TRUE
+?CCL261:	EQUAL?	PRSA,V?HELLO,V?KISS \?CCL265
+	CALL	UNSNOOZE,FRIEND
+	PUTP	FRIEND,P?LINE,0
+	PUTP	FRIEND,P?LDESC,0
+	CALL	HE-SHE-IT,FRIEND,TRUE-VALUE,STR?175
+	PRINTR	" you with affection. ""I'm so glad you're here!"""
+?CCL265:	CALL	PERSON-F,FRIEND,ARG
+	RSTACK	
+
+
+	.FUNCT	TAMARA-EVIDENCE-F
+	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"It's a receipt for the purchase of an adder from a pet shop in Frobzance. Someone has written the word ""Iris"" on it and then viciously crossed it out."
+	CRLF	
+	ZERO?	EVIDENCE-FOUND \?CND8
+	CALL	CONGRATS
+?CND8:	SET	'EVIDENCE-FOUND,TAMARA-EVIDENCE
+	RTRUE	
+
+
+	.FUNCT	ASKING-ABOUT?,WHO,DR
+	EQUAL?	PRSA,V?SHOW,V?CONFRONT,V?ASK-ABOUT \FALSE
+	EQUAL?	PRSI,PASSAGE \?CCL6
+	CALL	FIND-FLAG-LG,HERE,DOORBIT,SECRETBIT >DR
+	ZERO?	DR /?CCL6
+	FSET?	DR,OPENBIT /FALSE
+?CCL6:	EQUAL?	WHO,PRSO \FALSE
+	RETURN	PRSI
+
+
+	.FUNCT	LORD-INTRO
+	SET	'FOLLOWER,LORD
+	FSET	LORD,TOUCHBIT
+	FSET	LORD,SEENBIT
+	FCLEAR	LORD,NDESCBIT
+	SET	'QCONTEXT,LORD
+	CALL	THIS-IS-IT,LORD
+	PRINTI	"""Here comes Jack now!"" exclaims "
+	PRINTD	FRIEND
+	PRINTI	", as he comes striding toward you. "
+	CALL	COMMON-DESC,LORD
+	PRINTI	"
+""My fiance, "
+	PRINTD	LORD
+	PRINTC	32
+	PRINT	TRESYLLIAN
+	PRINTI	","" "
+	PRINTD	FRIEND
+	PRINT	INTRODUCES
+	PRINTI	"him. ""Jack, this is my friend from the States, "
+	CALL	TELL-FULL-NAME
+	PRINTI	".""
+""So you're that famous young sleuth whom the Yanks call "
+	ZERO?	GENDER-KNOWN \?CCL9
+	PRINTI	"Young "
+	JUMP	?PRG12
+?CCL9:	CALL	TITLE
+?PRG12:	PRINTI	"Sherlock!"" says "
+	PRINTD	LORD
+	ZERO?	GENDER-KNOWN /?PRG18
+	FSET?	PLAYER,FEMALE /?PRG20
+?PRG18:	PRINTI	", shaking hands"
+?PRG20:	PRINTI	". ""Tammy's told me about the mysteries you've solved"
+	ZERO?	GENDER-KNOWN \?CCL24
+	PRINTI	". She seems to think you can unravel the mystery of "
+	PRINTD	CASTLE
+	PRINTR	"."""
+?CCL24:	FSET?	PLAYER,FEMALE \?PRG31
+	PRINTI	" -- but she never let on you looked so smashing! Welcome to Cornwall, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	" luv!""
+Before you know it, he sweeps you into his arms and kisses you warmly! Let's hope "
+	PRINTD	FRIEND
+	PRINTI	" doesn't mind -- but for the moment all you can see are "
+	PRINTD	LORD
+	PRINTR	"'s dazzling sapphire-blue eyes."
+?PRG31:	PRINTR	"!""
+His keen blue eyes size you up with a friendly twinkle. Yet his friendliness seems to be all on the surface -- it may take time to figure out where His Lordship's really coming from."
+
+
+	.FUNCT	TELL-FULL-NAME
+	CALL	TITLE
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	MIDDLE-WORD /?PRG9
+	EQUAL?	MIDDLE-WORD,W?COMMA /?CND5
+	PRINTC	32
+?CND5:	PRINTB	MIDDLE-WORD
+?PRG9:	PRINTC	32
+	CALL	PRINT-NAME,LAST-NAME
+	CALL	TELL-SUFFIX
+	RSTACK	
+
+
+	.FUNCT	LORD-D,ARG=0
+	CALL	DESCRIBE-PERSON,LORD
+	RTRUE	
+
+
+	.FUNCT	LORD-GHOST-STORY
+	PRINTI	"""No use asking ME, "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG7
+	PRINTC	46
+?PRG7:	PRINTI	" All I caught was"
+	PRINT	WHITISH-GLIMPSE
+	PRINTI	". "
+	EQUAL?	VARIATION,DOCTOR-C,PAINTER-C \?CCL11
+	PRINTR	"I couldn't even swear it was a woman; it might've been some bloke in drag."""
+?CCL11:	FSET	GHOST-NEW,PERSONBIT
+	PRINTI	"She was blonde, definitely female, and about Dee's height...""
+"
+	PRINTD	LORD
+	PRINTR	"'s own face is pale as he adds, ""So, yes, it COULD have been her ghost... or Dee herself."""
+
+
+	.FUNCT	LORD-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL	GRAB-ATTENTION,LORD
+	ZERO?	STACK \?CCL6
+	RETURN	2
+?CCL6:	EQUAL?	PRSA,V?DESCRIBE \?CCL10
+	EQUAL?	PRSO,GHOST-NEW \?CCL10
+	EQUAL?	VARIATION,FRIEND-C /?CCL10
+	CALL	LORD-GHOST-STORY
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?REPLY,V?ANSWER \?CCL15
+	EQUAL?	3,LIONEL-SPEAKS-COUNTER \?CCL15
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,LORD,ARTIFACT
+	RTRUE	
+?CCL15:	CALL	COM-CHECK,LORD >X
+	ZERO?	X /?CCL19
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL19:	CALL	WHY-ME
+	RETURN	2
+?CCL3:	CALL	ASKING-ABOUT?,LORD >OBJ
+	ZERO?	OBJ /?CCL30
+	CALL	GRAB-ATTENTION,LORD,OBJ
+	ZERO?	STACK \?CCL33
+	RETURN	2
+?CCL33:	EQUAL?	OBJ,ACCIDENT \?CCL37
+	PRINTI	"Jack takes a deep breath. ""You've heard the bare facts, I assume -- she was in the "
+	PRINTD	BASEMENT
+	PRINTI	", slipped and fell down the well. The evidence proves what happened: a tent pole she'd stumbled over; her one shoe that came off, with the slippery sole and the loose heel; and of course "
+	PRINTD	NECKLACE-OF-D
+	PRINTI	". I even"
+	PRINT	FOUND-FABRIC
+	PRINTI	"""
+He adds, ""The police never found "
+	PRINTD	CORPSE
+	PRINTR	". But the well is drawing tide water. No doubt she was swept out to sea."""
+?CCL37:	EQUAL?	OBJ,ARTIFACT \?CCL41
+	PRINTI	"Jack fidgets and replies, ""Well, ah, we've all HEARD of it, certainly. Uncle Lionel liked to drop teasing hints about how valuable it was. But he was frightfully secretive. He never identified it."
+	EQUAL?	LIONEL-SPEAKS-COUNTER,INIT-LIONEL-SPEAKS-COUNTER /?PRG52
+	PRINTI	" He's probably playing the same silly game right now."
+	ZERO?	LIONEL-SPEAKS-COUNTER /?PRG52
+	PRINTI	" Let's hear the old boy out."
+?PRG52:	PRINTR	""""
+?CCL41:	EQUAL?	OBJ,CASTLE \?CCL55
+	PRINTI	"""Well, as I daresay you've heard, the castle's been infested lately with a spook. And it seems bent on harming "
+	PRINTD	FRIEND
+	PRINTR	". All in all, a very rum go."""
+?CCL55:	EQUAL?	OBJ,SEARCHER \?CCL59
+	ZERO?	CONFESSED \?PRD62
+	GET	TOLD-ABOUT-EVID,LORD-C
+	ZERO?	STACK /?CCL59
+?PRD62:	EQUAL?	LORD,SEARCHER /?CCL59
+	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL59:	EQUAL?	OBJ,FRIEND,ROMANCE \?CCL68
+	PRINTI	"""She's a darling girl, really first-rate."
+	EQUAL?	VARIATION,FRIEND-C \?PRG82
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?PRG78
+	PRINTI	""" He whispers, """
+	JUMP	?PRG80
+?PRG78:	PRINTC	32
+?PRG80:	PRINTI	"Although lately she's seemed cool toward me."
+?PRG82:	PRINTR	""""
+?CCL68:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL85
+	EQUAL?	VARIATION,FRIEND-C /?CCL85
+	CALL	LORD-GHOST-STORY
+	RTRUE	
+?CCL85:	EQUAL?	OBJ,CLUE-2 \?CCL89
+	EQUAL?	VARIATION,LORD-C /?CCL89
+	IN?	OBJ,LORD /?CCL89
+	CALL	CLUE-2-STORY,LORD
+	RTRUE	
+?CCL89:	EQUAL?	OBJ,LENS,LENS-1,LENS-2 \?CCL94
+	CALL	HE-SHE-IT,LORD,TRUE-VALUE
+	PRINTI	" gives a puzzled shrug, saying, """
+	PRINTR	"There's nothing wrong with my eyesight."""
+?CCL94:	EQUAL?	OBJ,MAID \?CCL101
+	FSET?	LETTER,TOUCHBIT \?CCL101
+	PRINT	JACK-THINKS-GLADYS
+	PRINTR	""""
+?CCL101:	EQUAL?	OBJ,PASSAGE \?CCL107
+	GET	FOUND-PASSAGES,LORD-C
+	ZERO?	STACK \?CCL107
+	PRINTI	"""Hmm... good question. I know there are old tales about "
+	PRINTD	CASTLE
+	PRINTI	" being honeycombed with "
+	PRINTD	PASSAGE
+	PRINTR	"s, but I've never actually stumbled on any. Uncle Lionel would have known, but I never asked him before he died, worse luck."""
+?CCL107:	EQUAL?	OBJ,PRIEST-DOOR \?CCL113
+	PRINTI	"""It's in the "
+	PRINTD	DUNGEON
+	PRINTI	", close to the curtain wall. Dee used it because her cottage is just down the shore.""
+He adds, ""By the way, the name '"
+	PRINTD	PRIEST-DOOR
+	PRINTI	"' dates back to when the Catholic Church was outlawed in England, and priests had to hide for fear of execution. Many British great houses have "
+	PRINTD	PASSAGE
+	PRINTR	"s, hiding places, and entrances."""
+?CCL113:	CALL	COMMON-ASK-ABOUT,LORD,OBJ >X
+	ZERO?	X /?CCL117
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL117:	CALL	TELL-DUNNO,LORD,OBJ
+	RSTACK	
+?CCL30:	EQUAL?	PRSA,V?RUB,V?KISS \?CCL122
+	IN?	FRIEND,HERE \?CND123
+	GETP	FRIEND,P?LINE
+	ADD	1,STACK
+	PUTP	FRIEND,P?LINE,STACK
+	CALL	HE-SHE-IT,FRIEND,TRUE-VALUE
+	PRINTI	" flashes you an angry look."
+	CRLF	
+?CND123:	FSET?	PLAYER,FEMALE \FALSE
+	CALL	UNSNOOZE,LORD
+	PUTP	LORD,P?LINE,0
+	PUTP	LORD,P?LDESC,0
+	PRINTI	"""I say! You Americans are frightfully friendly!"" says "
+	PRINTD	LORD
+	PRINTR	"."
+?CCL122:	CALL	PERSON-F,LORD,ARG
+	RSTACK	
+
+
+	.FUNCT	CLUE-2-STORY,PER
+	PRINTC	34
+	PRINTR	"I thought it was just one more of Lionel's weird jokes, or the effect of jungle rot on his brain -- that sort of thing."""
+
+
+	.FUNCT	TELL-DUNNO,PER,OBJ
+	FSET?	OBJ,PERSONBIT \?PRG6
+	PRINTR	"""I don't indulge much in idle gossip, you know."""
+?PRG6:	PRINTI	"""You know as much as I do"
+	EQUAL?	PER,OFFICER \?PRG13
+	CALL	IAN-CALLS-YOU
+	PRINTR	"."""
+?PRG13:	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG19
+	PRINTC	46
+?PRG19:	PRINTR	""""
+
+
+	.FUNCT	JACK-TAPE-F,P
+	EQUAL?	PRSA,V?PLAY,V?LISTEN,V?LAMP-ON \FALSE
+	PRINTI	"First you hear Lionel: ""This "
+	PRINTD	JACK-TAPE
+	PRINTI	" should capture any sound in the "
+	PRINTD	JACK-ROOM
+	PRINTI	" when I run it. Testing, testing,...""
+Then you hear Lionel tell "
+	PRINTD	LOVER
+	PRINTI	" that he suspects Jack of coveting the inheritance and wanting to kill him.
+After a pause, Jack tells Lionel, with a cold-blooded chuckle, that his time has come. Then "
+	PRINT	LIONELS-VOICE
+	PRINTI	" is urgent and muffled, as if he's being smothered! He calls out, ""Jack! Stop!"" and then... silence."
+	CRLF	
+	FIRST?	HERE >P /?KLU24
+?KLU24:	ZERO?	P /?CND6
+	CALL	FOUND-PASSAGES-REPEAT,P,JACK-TAPE,TOLD-ABOUT-EVID
+?CND6:	IN?	FRIEND,HERE \?CND8
+	EQUAL?	CAPTOR,FRIEND /?CND8
+	CALL	THIS-IS-IT,FRIEND
+	MOVE	FRIEND,TAMARA-ROOM
+	PUT	FOLLOW-LOC,FRIEND-C,TAMARA-ROOM
+	EQUAL?	FOLLOWER,FRIEND,LORD \?CND12
+	SET	'FOLLOWER,0
+?CND12:	GETP	FRIEND,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-ENABLE,0
+	PUTP	FRIEND,P?LDESC,7
+	PRINTD	FRIEND
+	PRINTI	"'s eyes fill with tears, and she runs to her room."
+	CRLF	
+?CND8:	ZERO?	EVIDENCE-FOUND \?CND16
+	CALL	CONGRATS
+?CND16:	SET	'EVIDENCE-FOUND,JACK-TAPE
+	ZERO?	CONFESSED \TRUE
+	IN?	LORD,HERE \?CCL22
+	CALL	CONFESSION,LORD
+	RTRUE	
+?CCL22:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /TRUE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,P,JACK-TAPE
+	RTRUE	
+
+
+	.FUNCT	LOVER-D,ARG=0
+	CALL	DESCRIBE-PERSON,LOVER
+	RTRUE	
+
+
+	.FUNCT	LOVER-F,ARG=0
+	IN?	LOVER-PIC,HERE \?CCL3
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \?CCL3
+	CALL	DO-INSTEAD-OF,LOVER-PIC,LOVER
+	RTRUE	
+?CCL3:	CALL	PERSON-F,LOVER,ARG
+	RSTACK	
+
+
+	.FUNCT	DEB-D,ARG=0
+	CALL	DESCRIBE-PERSON,DEB
+	RTRUE	
+
+
+	.FUNCT	DEB-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	SET	'FAWNING,FALSE-VALUE
+	EQUAL?	AWAITING-REPLY,DEB-C \?CCL6
+	EQUAL?	PRSA,V?NO,V?YES \?CCL6
+	CALL	ESTABLISH-GOAL,DOCTOR,HERE
+	PUTP	DEB,P?LDESC,0
+	PUTP	DEB,P?LINE,0
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	EQUAL?	PRSA,V?YES \?PRG14
+	PRINTR	"""Splendid!"""
+?PRG14:	PRINTR	"""What a pity!"""
+?CCL6:	CALL	GRAB-ATTENTION,DEB
+	ZERO?	STACK \?CCL17
+	RETURN	2
+?CCL17:	EQUAL?	PRSA,V?DESCRIBE \?CCL21
+	EQUAL?	PRSO,GHOST-NEW \?CCL21
+	FSET	GHOST-NEW,PERSONBIT
+	PRINTI	"""Well, it appeared to be a woman with "
+	PRINT	LONG-BLOND-HAIR
+	PRINTI	" in a "
+	EQUAL?	VARIATION,DOCTOR-C /?PRG30
+	PRINTI	"sleeveless, "
+?PRG30:	PRINTI	"silvery white gown. But if you're asking me, 'Was it really poor Dee?' I'm just not sure. "
+	EQUAL?	VARIATION,FRIEND-C,LORD-C \?CCL34
+	PRINTR	"I didn't see the face that well. But I'd say the figure was average height, and moved in a very feminine way, just as she did -- so it COULD have been her ghost."""
+?CCL34:	EQUAL?	VARIATION,PAINTER-C \?PRG41
+	PRINTR	"It seemed different from Dee in some way...""
+She snaps her fingers, and her eyes brighten maliciously. ""Now I know! The ghost was too tall! Definitely taller than she!"""
+?PRG41:	PRINTI	"It was "
+	PRINTI	"about the right height, I suppose, but"
+	PRINTR	" its gown, with long sleeves and a high neck, seemed different from hers. It lacked her femininity. She was a very feminine woman, you know -- almost seductive, as I'm sure Jack can testify. The ghost was just a sexless spook, one might say."""
+?CCL21:	EQUAL?	PRSA,V?FOLLOW \?CCL49
+	EQUAL?	PRSO,PLAYER \?CCL49
+	CALL	WILLING?,DEB
+	ZERO?	STACK /?CCL49
+	PRINTI	"""Ooo! I love an adventure, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!"""
+	CRLF	
+	CALL	NEW-FOLLOWER,DEB
+	RTRUE	
+?CCL49:	CALL	COM-CHECK,DEB >X
+	ZERO?	X /?CCL56
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL56:	CALL	WINNER-DEFAULT,DEB
+	RSTACK	
+?CCL3:	CALL	ASKING-ABOUT?,DEB >OBJ
+	ZERO?	OBJ /?CCL65
+	CALL	GRAB-ATTENTION,DEB,OBJ
+	ZERO?	STACK \?CCL68
+	RETURN	2
+?CCL68:	EQUAL?	OBJ,SEARCHER \?CCL72
+	ZERO?	CONFESSED \?PRG77
+	GET	TOLD-ABOUT-EVID,DEB-C
+	ZERO?	STACK /?CCL72
+?PRG77:	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL72:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL80
+	PRINTI	"""It was quite dramatic, really. One night I couldn't sleep, so I got a poetic urge to go up on the "
+	PRINTD	DECK
+	PRINTI	" in the moonlight and commune with my soul.""
+"
+	PRINTD	DEB
+	PRINTR	" goes on, ""As I started up the tower stairs, I saw this figure in white coming 'round the curve of the stairway. My dear, I absolutely FROZE! The ghost turned 'round and flitted back up the stairs, and by the time I recovered, it was gone!"""
+?CCL80:	EQUAL?	OBJ,TAMARA-EVIDENCE \?CCL84
+	PRINTR	"""My word! It looks as if someone dislikes me!"""
+?CCL84:	CALL	COMMON-ASK-ABOUT,DEB,OBJ >X
+	ZERO?	X /?CCL88
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL88:	CALL	TELL-DUNNO,DEB,OBJ
+	RSTACK	
+?CCL65:	EQUAL?	PRSA,V?DANCE,V?KISS,V?RUB \?CCL93
+	CALL	WILLING?,DEB,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	UNSNOOZE,DEB
+	PUTP	DEB,P?LINE,0
+	PUTP	DEB,P?LDESC,0
+	PRINTI	"""Oooo"
+	CALL	I-JUST-LOVE-IT
+	RTRUE	
+?CCL93:	CALL	PERSON-F,DEB,ARG
+	RSTACK	
+
+
+	.FUNCT	WILLING?,PER,KISS=0
+	ZERO?	KISS \?CCL3
+	LESS?	BED-TIME,PRESENT-TIME /FALSE
+	CALL	QUEUED?,I-TOUR
+	ZERO?	STACK \FALSE
+	EQUAL?	HERE,DINING-ROOM /FALSE
+	CALL	QUEUED?,I-DINNER-SIT
+	ZERO?	STACK \FALSE
+	EQUAL?	PER,CONFESSED,CAPTOR /FALSE
+	RTRUE	
+?CCL3:	EQUAL?	PER,FRIEND \?CCL16
+	EQUAL?	VARIATION,FRIEND-C /FALSE
+	RTRUE	
+?CCL16:	EQUAL?	PER,BUTLER \?CCL21
+	EQUAL?	PRSA,V?EMPTY \?CCL24
+	EQUAL?	HERE,YOUR-ROOM \FALSE
+?CCL24:	EQUAL?	PRSA,V?FOLLOW /FALSE
+	RTRUE	
+?CCL21:	ZERO?	GENDER-KNOWN /FALSE
+	EQUAL?	PER,DEB \?CCL33
+	FSET?	PLAYER,FEMALE /FALSE
+	RTRUE	
+?CCL33:	EQUAL?	PER,OFFICER \FALSE
+	FSET?	PLAYER,FEMALE /TRUE
+	RFALSE	
+
+
+	.FUNCT	OFFICER-D,ARG=0
+	FSET?	OFFICER,TOUCHBIT \?CCL3
+	CALL	DESCRIBE-PERSON,OFFICER
+	RTRUE	
+?CCL3:	FSET	OFFICER,TOUCHBIT
+	FSET	OFFICER,SEENBIT
+	RTRUE	
+
+
+	.FUNCT	I-JUST-LOVE-IT
+	PRINTI	"! I just love it when you do that, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"!"""
+
+
+	.FUNCT	WINNER-DEFAULT,PER
+	ZERO?	GENDER-KNOWN /?CCL3
+	PRINTC	34
+	ZERO?	FAWNING /?PRG10
+	PRINTI	"But "
+?PRG10:	PRINTI	"I really can't help you with that"
+	EQUAL?	PER,OFFICER \?PRG14
+	CALL	IAN-CALLS-YOU
+?PRG14:	PRINTR	"."""
+?CCL3:	CALL	WHY-ME
+	RETURN	2
+
+
+	.FUNCT	OFFICER-F,ARG=0,P,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	SET	'FAWNING,FALSE-VALUE
+	EQUAL?	AWAITING-REPLY,OFFICER-1-R,OFFICER-2-R \?CCL6
+	EQUAL?	PRSA,V?NO,V?YES \?CCL6
+	CALL	ESTABLISH-GOAL,DOCTOR,HERE
+	PUTP	OFFICER,P?LDESC,0
+	PUTP	OFFICER,P?LINE,0
+	PRINTC	34
+	EQUAL?	PRSA,V?YES \?CCL13
+	PRINTI	"Jolly good"
+	EQUAL?	AWAITING-REPLY,OFFICER-1-R \?CND11
+	PRINTI	"! You're certainly quick"
+	JUMP	?CND11
+?CCL13:	EQUAL?	AWAITING-REPLY,OFFICER-1-R \?PRG24
+	PRINTI	"I dare say you soon shall"
+	JUMP	?CND11
+?PRG24:	PRINTI	"Pity"
+?CND11:	SET	'AWAITING-REPLY,FALSE-VALUE
+	PRINTR	"!"""
+?CCL6:	CALL	GRAB-ATTENTION,OFFICER
+	ZERO?	STACK \?CCL29
+	RETURN	2
+?CCL29:	EQUAL?	PRSA,V?DESCRIBE \?CCL33
+	EQUAL?	PRSO,GHOST-NEW \?CCL33
+	EQUAL?	VARIATION,PAINTER-C \?CCL33
+	PRINTI	"""Ghosts don't turn off lights, to my way of thinking. That alone makes me think our "
+	PRINTD	GHOST-OLD
+	PRINTI	"'s a fake. Somebody's sick idea of a joke, perhaps. "
+	FSET	GHOST-NEW,PERSONBIT
+	PRINTI	"Otherwise, the masquerade was highly effective. A female figure with "
+	PRINT	LONG-BLOND-HAIR
+	PRINTR	", wearing the same sort of gown Dee was wearing that awful night she died -- at first it left me breathless. The only flaw, I should say, was the spook's height: too tall for Dee."""
+?CCL33:	EQUAL?	PRSA,V?FOLLOW \?CCL43
+	EQUAL?	PRSO,PLAYER \?CCL43
+	CALL	WILLING?,OFFICER
+	ZERO?	STACK /?CCL43
+	PRINTI	"""What ho! A bit of sleuthing, eh, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"""
+	CRLF	
+	CALL	NEW-FOLLOWER,OFFICER
+	RTRUE	
+?CCL43:	CALL	COM-CHECK,OFFICER >X
+	ZERO?	X /?CCL50
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL50:	CALL	WINNER-DEFAULT,OFFICER
+	RSTACK	
+?CCL3:	CALL	ASKING-ABOUT?,OFFICER >OBJ
+	ZERO?	OBJ /?CCL59
+	CALL	GRAB-ATTENTION,OFFICER,OBJ
+	ZERO?	STACK \?CCL62
+	RETURN	2
+?CCL62:	EQUAL?	OBJ,SEARCHER \?CCL66
+	ZERO?	CONFESSED \?PRG71
+	GET	TOLD-ABOUT-EVID,OFFICER-C
+	ZERO?	STACK /?CCL66
+?PRG71:	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL66:	EQUAL?	OBJ,LENS,LENS-1,LENS-2 \?CCL74
+	CALL	HE-SHE-IT,OFFICER,TRUE-VALUE
+	PRINTR	" grins, ""It's not mine. Her Majesty would hardly allow me to serve in her Coldstream Guards were my vision faulty!"""
+?CCL74:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL78
+	EQUAL?	VARIATION,PAINTER-C \?CCL78
+	PRINTI	"""It was the last time I came down here to visit Jack. We had been up late, playing cards in the "
+	PRINTD	GAME-ROOM
+	PRINTR	". Then Jack toddled off to bed, but I stayed up to read and finish my drink. I must have dozed off with my glass in my hand, for I woke with a start as it crashed to the floor. And the first thing I saw was this figure in white at the other end of the room.""
+He goes on, ""Blimey, I thought I was seeing things! For a moment I just gaped at it. Then the spook went haring off out the door, flicking off the light on the way. By the time I found the door, it was gone."""
+?CCL78:	CALL	COMMON-ASK-ABOUT,OFFICER,OBJ >X
+	ZERO?	X /?CCL84
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL84:	CALL	TELL-DUNNO,OFFICER,OBJ
+	RSTACK	
+?CCL59:	EQUAL?	PRSA,V?DANCE,V?KISS,V?RUB \?CCL89
+	CALL	WILLING?,OFFICER,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	UNSNOOZE,OFFICER
+	PUTP	OFFICER,P?LINE,0
+	PUTP	OFFICER,P?LDESC,0
+	PRINTI	"""Hello"
+	CALL	I-JUST-LOVE-IT
+	RTRUE	
+?CCL89:	CALL	PERSON-F,OFFICER,ARG
+	RSTACK	
+
+
+	.FUNCT	IAN-CALLS-YOU
+	GETB	LAST-NAME,0
+	ZERO?	STACK /FALSE
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	GENDER-KNOWN /TRUE
+	FSET?	PLAYER,FEMALE \?PRG12
+	PRINTI	" luv"
+	RTRUE	
+?PRG12:	PRINTI	" old "
+	BTST	PRESENT-TIME,1 \?PRG19
+	PRINTI	"chap"
+	RTRUE	
+?PRG19:	PRINTI	"son"
+	RTRUE	
+
+
+	.FUNCT	DOCTOR-D,ARG=0
+	FSET?	DOCTOR,TOUCHBIT \?CCL3
+	CALL	DESCRIBE-PERSON,DOCTOR
+	RTRUE	
+?CCL3:	FSET	DOCTOR,TOUCHBIT
+	CRLF	
+	PRINTC	34
+	ZERO?	TOUR-FORCED /?PRG13
+	PRINTI	"Oh,"
+	JUMP	?PRG15
+?PRG13:	PRINTI	"Do excuse me for interrupting,"" "
+	PRINTD	FRIEND
+	PRINTI	" breaks in, ""but"
+?PRG15:	PRINTI	" here comes "
+	PRINTD	DOCTOR
+	PRINTI	"! I'm sure "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	" wants to meet such a distinguished scientist!""
+"
+	PRINTI	"A man is coming downstairs. "
+	CALL	COMMON-DESC,DOCTOR
+	SET	'QCONTEXT,DOCTOR
+	CALL	THIS-IS-IT,DOCTOR
+	PUTP	DOCTOR,P?LDESC,12
+	SET	'AWAITING-REPLY,DOCTOR-C
+	CALL	QUEUE,I-REPLY,CLOCKER-RUNNING
+	PRINTD	FRIEND
+	PRINT	INTRODUCES
+	PRINTI	"him as one of Lionel's oldest friends, Dr. Nicholas Wendish.
+He's carelessly dressed in rumpled evening clothes, but his hawk eyes peering at you through gold-rimmed specs show ruthless intelligence.
+""I read about one of your mystery cases when I was in New York last year, "
+	CALL	TITLE-NAME
+	PRINTI	","" he probes. """
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTI	"""
+"
+	RETURN	2
+
+
+	.FUNCT	DOCTOR-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	EQUAL?	AWAITING-REPLY,DOCTOR-C \?CCL6
+	EQUAL?	PRSA,V?NO,V?YES \?CCL6
+	PUTP	DOCTOR,P?LDESC,0
+	PUTP	DOCTOR,P?LINE,0
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	PRINTR	"""I see..."""
+?CCL6:	CALL	GRAB-ATTENTION,DOCTOR
+	ZERO?	STACK \?CCL12
+	RETURN	2
+?CCL12:	EQUAL?	PRSA,V?DESCRIBE \?CCL16
+	EQUAL?	PRSO,GHOST-NEW \?CCL16
+	EQUAL?	VARIATION,DOCTOR-C \?CCL16
+	PRINTD	DOCTOR
+	PRINTI	" shrugs, with a look of distaste, as if he'd like to forget the episode. """
+	PRINTI	"I'm afraid I can't tell you any more, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG29
+	PRINTC	46
+?PRG29:	PRINTI	" I assumed the ghost was "
+	PRINTD	LOVER
+	PRINTI	". It certainly looked like her: a blonde, attractive young woman. If it WASN'T "
+	PRINTD	LOVER
+	PRINTR	", it was a convincing imposture."""
+?CCL16:	CALL	DIVESTMENT?,MUSTACHE
+	ZERO?	STACK /?CCL32
+	EQUAL?	VARIATION,DOCTOR-C \?CCL35
+	PRINT	MUSTACHE-STORY
+	RTRUE	
+?CCL35:	CALL	HAR-HAR
+	RSTACK	
+?CCL32:	CALL	COM-CHECK,DOCTOR >X
+	ZERO?	X /?CCL39
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL39:	CALL	WHY-ME
+	RETURN	2
+?CCL3:	CALL	ASKING-ABOUT?,DOCTOR >OBJ
+	ZERO?	OBJ /?CCL50
+	CALL	GRAB-ATTENTION,DOCTOR,OBJ
+	ZERO?	STACK \?CCL53
+	RETURN	2
+?CCL53:	EQUAL?	OBJ,SEARCHER \?CCL57
+	ZERO?	CONFESSED \?PRD60
+	GET	TOLD-ABOUT-EVID,DOCTOR-C
+	ZERO?	STACK /?CCL57
+?PRD60:	EQUAL?	DOCTOR,SEARCHER /?CCL57
+	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL57:	EQUAL?	OBJ,COUSIN,BUST \?CCL66
+	PRINTR	"""He loved me as a brother."""
+?CCL66:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL70
+	EQUAL?	VARIATION,DOCTOR-C \?CCL70
+	PRINTI	"The doctor pauses, looking troubled, as if reluctant to speak, or perhaps marshaling his thoughts.
+""On the very night after "
+	PRINTD	ACCIDENT
+	PRINTI	","" he says at last, ""I couldn't sleep. I suppose the tragedy was on my mind. That and the medical cases I have in my London clinic for rare diseases. Anyhow, I took a stroll out in the "
+	PRINTD	COURTYARD
+	PRINTI	". The fresh sea breeze was very soothing. When I went back inside, I felt ready for sleep. I went in through the "
+	PRINTD	OLD-GREAT-HALL
+	PRINTI	", you see.""
+He goes on, ""Then I saw this ghostly figure in white -- Good Lord, what a shock it gave me! I couldn't move for a moment; I thought "
+	PRINTD	LOVER
+	PRINTI	" had come back from the dead. As I stood there, staring, the ghost flitted off toward the "
+	PRINTD	BASEMENT
+	PRINTR	"... I felt no impulse to go after it, I might add."""
+?CCL70:	EQUAL?	OBJ,LENS,LENS-1,LENS-2 \?CCL76
+	PRINTC	34
+	EQUAL?	VARIATION,DOCTOR-C,PAINTER-C \?PRG85
+	ZERO?	FOUND-IT-PERM /?PRG85
+	PRINTI	"Not mine. "
+?PRG85:	PRINTR	"As you see, I wear glasses at all times,"" he says."
+?CCL76:	EQUAL?	OBJ,MUSTACHE \?CCL88
+	EQUAL?	VARIATION,DOCTOR-C \?CCL88
+	PRINT	MUSTACHE-STORY
+	RTRUE	
+?CCL88:	EQUAL?	OBJ,WENDISH-STUFF \?CCL94
+	PRINTR	"""I always bring them along."""
+?CCL94:	CALL	COMMON-ASK-ABOUT,DOCTOR,OBJ >X
+	ZERO?	X /?CCL98
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL98:	CALL	TELL-DUNNO,DOCTOR,OBJ
+	RSTACK	
+?CCL50:	CALL	PERSON-F,DOCTOR,ARG
+	RSTACK	
+
+
+	.FUNCT	MUSTACHE-F
+	EQUAL?	PRSA,V?TAKE,V?MOVE,V?ASK-FOR /?PRD5
+	CALL	DIVESTMENT?,MUSTACHE
+	ZERO?	STACK /?CCL3
+?PRD5:	IN?	MUSTACHE,DOCTOR \?CCL3
+	FSET?	DOCTOR,MUNGBIT \?CCL10
+	EQUAL?	VARIATION,DOCTOR-C \FALSE
+	FSET	MUSTACHE,TAKEBIT
+	FCLEAR	MUSTACHE,TRYTAKEBIT
+	RFALSE	
+?CCL10:	EQUAL?	VARIATION,DOCTOR-C \?CTR13
+	FSET?	MUSTACHE,TOUCHBIT \?CCL14
+?CTR13:	CALL	FACE-RED,DOCTOR
+	RTRUE	
+?CCL14:	FSET	MUSTACHE,TOUCHBIT
+	PRINTI	"It comes off, leaving "
+	PRINTD	DOCTOR
+	PRINTI	" blinking with embarrassment. He grabs it and puts it in place again. "
+	PRINT	MUSTACHE-STORY
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?WEAR /?CCL20
+	EQUAL?	PRSA,V?PUT \FALSE
+	FSET?	PRSI,PERSONBIT \FALSE
+?CCL20:	CALL	WEAR-SCARE
+	RSTACK	
+
+
+	.FUNCT	WENDISH-BOOK-F
+	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"The "
+	PRINTD	WENDISH-BOOK
+	PRINTI	" contains an incriminating record of "
+	PRINTD	DOCTOR
+	PRINTI	"'s fiendish experiments on patients at his clinic. Near the end you read:
+""Finally took care of Poldark's granddau. (comely wench), pity she disc'd facts of his end."""
+	CRLF	
+	ZERO?	EVIDENCE-FOUND \?CND8
+	CALL	CONGRATS
+?CND8:	SET	'EVIDENCE-FOUND,WENDISH-BOOK
+	RETURN	EVIDENCE-FOUND
+
+
+	.FUNCT	DEALER-D,ARG=0,PER
+	CALL	DESCRIBE-PERSON,DEALER
+	RTRUE	
+
+
+	.FUNCT	DEALER-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL	GRAB-ATTENTION,DEALER
+	ZERO?	STACK \?CCL6
+	RETURN	2
+?CCL6:	EQUAL?	PRSA,V?DESCRIBE \?CCL10
+	EQUAL?	PRSO,GHOST-NEW \?CCL10
+	EQUAL?	VARIATION,PAINTER-C /?CCL10
+	PRINTI	"""You're wondering, I presume, if it really was "
+	PRINTD	LOVER
+	PRINTI	" Hallam's ghost? Frankly, I don't put stock in ghosts, but my answer is... "
+	FSET	GHOST-NEW,PERSONBIT
+	EQUAL?	VARIATION,FRIEND-C,PAINTER-C,LORD-C \?PRG21
+	PRINTI	"possibly. That's as far as I'd go. It was certainly a female figure, in a shimmering whitish gown, sleeveless and cut low. She had "
+	PRINT	LONG-BLOND-HAIR
+	PRINTI	" like "
+	PRINTD	LOVER
+	PRINTR	"'s and was about her size. But as for her face -- my view was too brief,"" Hyde shrugs."
+?PRG21:	PRINTI	"I'm not at all convinced. Somehow it didn't match my memories of "
+	PRINTD	LOVER
+	PRINTR	". For one thing, the gown wasn't her style, at all. Her clothes were always quite revealing. The ghost seemed quite covered up at the throat and arms. You might say it totally lacked feminine sex appeal."""
+?CCL10:	CALL	COM-CHECK,DEALER >X
+	ZERO?	X /?CCL24
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL24:	CALL	WHY-ME
+	RETURN	2
+?CCL3:	CALL	ASKING-ABOUT?,DEALER >OBJ
+	ZERO?	OBJ /?CCL35
+	CALL	GRAB-ATTENTION,DEALER,OBJ
+	ZERO?	STACK \?CCL38
+	RETURN	2
+?CCL38:	EQUAL?	OBJ,SEARCHER \?CCL42
+	ZERO?	CONFESSED \?PRG47
+	GET	TOLD-ABOUT-EVID,DEALER-C
+	ZERO?	STACK /?CCL42
+?PRG47:	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL42:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL50
+	EQUAL?	VARIATION,PAINTER-C /?CCL50
+	PRINTI	"""I came down late one night to get a book that I'd left in the "
+	PRINTD	SITTING-ROOM
+	PRINTI	". I had just turned 'round to go back upstairs when I saw a ghostly figure in the doorway. It fled as soon as I noticed it, in the "
+	PRINTD	INTDIR
+	PRINTR	" of the tower.""
+He goes on, ""I was stunned, I must admit, so I dare say it took me a moment to collect my wits and go after it. I ran into the tower, but the spectre had vanished. This happened, by the way, a couple of weeks ago, on my last visit to the castle."""
+?CCL50:	EQUAL?	OBJ,LENS,LENS-1,LENS-2 \?CCL56
+	CALL	HE-SHE-IT,DEALER,TRUE-VALUE
+	PRINTR	" displays his monocle, saying, ""This is the only vision aid I require."""
+?CCL56:	EQUAL?	OBJ,ARMOR,BUST /?PRG64
+	EQUAL?	OBJ,FIGURINE,LOVER-PIC,OIL-PAINTING /?PRG64
+	EQUAL?	OBJ,PAINTING-GALLERY,WRITING-DESK \?CCL60
+?PRG64:	PRINTR	"""I haven't formed my professional opinion as yet."""
+?CCL60:	CALL	COMMON-ASK-ABOUT,DEALER,OBJ >X
+	ZERO?	X /?CCL67
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL67:	CALL	TELL-DUNNO,DEALER,OBJ
+	RSTACK	
+?CCL35:	CALL	PERSON-F,DEALER,ARG
+	RSTACK	
+
+
+	.FUNCT	PAINTER-D,ARG=0
+	FSET?	PAINTER,TOUCHBIT \?CCL3
+	CALL	DESCRIBE-PERSON,PAINTER
+	RTRUE	
+?CCL3:	FSET	PAINTER,TOUCHBIT
+	FCLEAR	DEALER,NDESCBIT
+	LOC	DEALER
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \TRUE
+	GETP	DEALER,P?LDESC
+	EQUAL?	STACK,2 /FALSE
+	RTRUE	
+
+
+	.FUNCT	PAINTER-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL	GRAB-ATTENTION,PAINTER
+	ZERO?	STACK \?CCL6
+	RETURN	2
+?CCL6:	EQUAL?	PRSA,V?DESCRIBE \?CCL10
+	EQUAL?	PRSO,GHOST-NEW \?CCL10
+	EQUAL?	VARIATION,PAINTER-C \?CCL10
+	FSET	GHOST-NEW,PERSONBIT
+	PRINTI	"""It was "
+	PRINTD	LOVER
+	PRINTI	", or her ghost. What more can I say? A female figure, her size, wearing the same sort of shimmering white gown she had on the night she died -- and unmistakably her face! The likeness was heart-stopping...""
+Vivien chokes up for a moment, then dabs her eyes. ""I'm sorry. I shouldn't let my feelings take over this way, but "
+	PRINTD	LOVER
+	PRINTR	" was such a lovely person!"""
+?CCL10:	CALL	COM-CHECK,PAINTER >X
+	ZERO?	X /?CCL18
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL18:	CALL	WHY-ME
+	RETURN	2
+?CCL3:	CALL	ASKING-ABOUT?,PAINTER >OBJ
+	ZERO?	OBJ /?CCL29
+	CALL	GRAB-ATTENTION,PAINTER,OBJ
+	ZERO?	STACK \?CCL32
+	RETURN	2
+?CCL32:	EQUAL?	OBJ,BUST,FIGURINE \?CCL36
+	PRINTR	"""Yes, that's one of my works."""
+?CCL36:	EQUAL?	OBJ,SEARCHER \?CCL40
+	ZERO?	CONFESSED \?PRD43
+	GET	TOLD-ABOUT-EVID,PAINTER-C
+	ZERO?	STACK /?CCL40
+?PRD43:	EQUAL?	PAINTER,SEARCHER /?CCL40
+	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL40:	EQUAL?	OBJ,FRIEND \?CCL49
+	EQUAL?	VARIATION,PAINTER-C \?CCL49
+	PRINT	RHYMES-WITH-RICH
+	CRLF	
+	RTRUE	
+?CCL49:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL55
+	EQUAL?	VARIATION,PAINTER-C \?CCL55
+	CALL	HE-SHE-IT,PAINTER,TRUE-VALUE
+	PRINTI	" is somber as she replies, ""I dare say it was morbid of me, but one night I went to the "
+	PRINTD	BASEMENT
+	PRINTI	", just to try to imagine the horrible scene when poor "
+	PRINTD	LOVER
+	PRINTI	" suffered her... tragic accident. Suddenly I heard someone calling my name softly. I turned 'round, and there was "
+	PRINTD	LOVER
+	PRINTI	" herself standing by the stairs"
+	PRINTI	"! I went absolutely numb! She smiled faintly, then fled up the stairs. I started to follow, but then I knew it was no use. "
+	PRINTD	LOVER
+	PRINTR	" is dead and gone, and chasing her ghost won't bring her back to me!"""
+?CCL55:	EQUAL?	OBJ,CLUE-2 \?CCL64
+	EQUAL?	VARIATION,LORD-C \?CCL64
+	IN?	OBJ,PAINTER /?CCL64
+	CALL	CLUE-2-STORY,PAINTER
+	RTRUE	
+?CCL64:	EQUAL?	OBJ,LENS,LENS-1,LENS-2 \?CCL69
+	CALL	HE-SHE-IT,PAINTER,TRUE-VALUE
+	EQUAL?	VARIATION,PAINTER-C \?PRG77
+	PRINTI	" says she wears"
+	PRINT	GLASSES-FOR
+	PRINTI	", as everyone knows; then she shudders, ""But "
+	PRINTD	LENS
+	PRINTR	"es -- ugh! -- I could never tolerate them!"""
+?PRG77:	PRINTI	" admits to wearing "
+	PRINTD	LENS
+	PRINTI	"es at all times, and"
+	PRINT	GLASSES-FOR
+	EQUAL?	VARIATION,DOCTOR-C,PAINTER-C \?PRG86
+	ZERO?	FOUND-IT-PERM /?PRG86
+	PRINTR	", but she says the lens you found isn't hers. With a cynical smile, she pops out both lenses, one at a time, to show you."
+?PRG86:	PRINTR	"."
+?CCL69:	EQUAL?	OBJ,LOVER \?CCL89
+	PUTP	PAINTER,P?LDESC,7
+	PRINTI	"The artist shrugs with a sad, wistful smile. ""What can I say? "
+	PRINTD	LOVER
+	PRINTR	" was a most unusual girl... utterly unworldly... almost fey. She grew up in a cottage not far from here, you know. Her drowning was a terrible tragedy... and yet... sometimes I'm not sure she WANTED to go on living."" She turns her face away to hide a tear."
+?CCL89:	EQUAL?	OBJ,LOVER-PIC \?CCL93
+	PRINTI	"""Oh, you mean my portrait of dear "
+	PRINTD	LOVER
+	PRINTR	". I don't believe I ever saw such skin as hers... or such hair."" She stops speaking and bites her lip."
+?CCL93:	EQUAL?	OBJ,OIL-PAINTING \?CCL97
+	PRINTR	"""I don't admire the heroic style at all."""
+?CCL97:	EQUAL?	OBJ,VIVIEN-STUFF \?CCL101
+	PRINTR	"""That's private property. It's no business of yours."""
+?CCL101:	CALL	COMMON-ASK-ABOUT,PAINTER,OBJ >X
+	ZERO?	X /?CCL105
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?CCL105:	CALL	TELL-DUNNO,PAINTER,OBJ
+	RSTACK	
+?CCL29:	EQUAL?	PRSA,V?KISS \?CCL110
+	GETP	PAINTER,P?LDESC
+	EQUAL?	STACK,7 \?CCL110
+	PUTP	PAINTER,P?LINE,0
+	PRINTR	"""You're sweet."""
+?CCL110:	CALL	PERSON-F,PAINTER,ARG
+	RSTACK	
+
+
+	.FUNCT	VIVIEN-DIARY-F
+	EQUAL?	PRSA,V?READ /?CCL3
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL3:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTD	VIVIEN-DIARY
+	PRINTI	" falls open to a tear-stained page, and you read:
+""O "
+	PRINTD	LOVER
+	PRINTI	", sweet "
+	PRINTD	LOVER
+	PRINTI	"! Jack will pay dearly for your cruel death by losing his new sweetheart..."""
+	CRLF	
+	ZERO?	EVIDENCE-FOUND \?CND10
+	CALL	CONGRATS
+?CND10:	SET	'EVIDENCE-FOUND,VIVIEN-DIARY
+	RETURN	EVIDENCE-FOUND
+
+
+	.FUNCT	COUSIN-F
+	EQUAL?	HERE,DINING-ROOM \FALSE
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	CALL	DO-INSTEAD-OF,BUST,COUSIN
+	RTRUE	
+
+
+	.FUNCT	BOLITHO-WILL
+	PRINTC	32
+	PRINTD	BUTLER
+	PRINTI	" will see to the car and bring "
+	PRINTD	LUGGAGE
+	RTRUE	
+
+
+	.FUNCT	BUTLER-D,ARG=0,GT,SAID=0,LL=0,L
+	FSET?	BUTLER,TOUCHBIT \?CND1
+	CALL	DESCRIBE-PERSON,BUTLER
+	RTRUE	
+?CND1:	FCLEAR	BUTLER,NDESCBIT
+	FSET	BUTLER,TOUCHBIT
+	EQUAL?	HERE,COURTYARD,FOYER \?CND3
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?CND3
+	GETP	LORD,P?LINE
+	ZERO?	STACK \?CND3
+	SET	'LL,TRUE-VALUE
+?CND3:	EQUAL?	HERE,COURTYARD,FOYER \?CND8
+	LOC	FRIEND
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?CND8
+	SET	'SAID,TRUE-VALUE
+	PRINTI	"
+""We can talk more later, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	","" says "
+	PRINTD	FRIEND
+	PRINTI	", taking your arm, ""but let's go in now, so you can meet the other guests."
+?CND8:	ZERO?	LL /?CCL16
+	ZERO?	SAID /?CCL19
+	PRINTC	34
+	CRLF	
+	PRINTI	"""Yes, d"
+	JUMP	?PRG24
+?CCL19:	SET	'SAID,TRUE-VALUE
+	PRINTI	"""D"
+?PRG24:	PRINTI	"o come in."
+	CALL	BOLITHO-WILL
+	PRINTI	","" says "
+	PRINTD	LORD
+	PRINTI	" as a"
+	JUMP	?CND14
+?CCL16:	ZERO?	SAID /?PRG32
+	CALL	BOLITHO-WILL
+	PRINTI	"."""
+	CRLF	
+	PRINTC	65
+	JUMP	?CND14
+?PRG32:	PRINTC	65
+?CND14:	CALL	THIS-IS-IT,BUTLER
+	PRINTI	"n elderly butler appears."
+	ZERO?	SAID \?CND36
+	PRINTI	" He bows slightly to you."
+?CND36:	GETP	BUTLER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	CALL	META-LOC,LUGGAGE >L
+	EQUAL?	L,YOUR-ROOM,YOUR-BATHROOM /?CND40
+	GETP	L,P?LINE
+	ZERO?	STACK /?CND40
+	IN?	LUGGAGE,BUTLER \?CCL46
+	PRINTI	" He has "
+	PRINTD	LUGGAGE
+	PRINTC	46
+	JUMP	?CND44
+?CCL46:	LOC	BUTLER
+	EQUAL?	STACK,L \?CCL50
+	PUT	GT,GOAL-FUNCTION,BUTLER-CARRIES
+	CALL	ESTABLISH-GOAL,BUTLER,YOUR-ROOM
+	FCLEAR	LUGGAGE,OPENBIT
+	MOVE	LUGGAGE,BUTLER
+	PRINTI	" He takes "
+	PRINTD	LUGGAGE
+	PRINTC	46
+	JUMP	?CND44
+?CCL50:	PUT	GT,GOAL-FUNCTION,BUTLER-FETCHES
+	CALL	ESTABLISH-GOAL,BUTLER,L
+?CND44:	ZERO?	SAID \?CND40
+	PRINTI	" ""I'll carry "
+	PRINTD	LUGGAGE
+	PRINTI	" to "
+	PRINTD	YOUR-ROOM
+	PRINTI	"."""
+?CND40:	CRLF	
+	RETURN	2
+
+
+	.FUNCT	BUTLER-SORRY
+	PRINTI	"""Sorry, but I have duties to perform, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG7
+	PRINTC	46
+?PRG7:	PRINTR	""""
+
+
+	.FUNCT	BUTLER-F,ARG=0,OBJ,X
+	EQUAL?	ARG,M-WINNER \?CCL3
+	EQUAL?	AWAITING-REPLY,BUTLER-1-R,BUTLER-2-R /?PRD8
+	EQUAL?	AWAITING-REPLY,BUTLER-3-R,BUTLER-4-R \?CCL6
+?PRD8:	EQUAL?	PRSA,V?NO,V?YES \?CCL6
+	PUTP	BUTLER,P?LDESC,0
+	PUTP	BUTLER,P?LINE,0
+	EQUAL?	AWAITING-REPLY,BUTLER-1-R \?CCL13
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	EQUAL?	PRSA,V?YES \?PRG16
+	CALL	ROB,LUGGAGE,CHEST-OF-DRAWERS
+?PRG16:	PRINTD	BUTLER
+	PRINTR	" responds politely, like the well-trained butler he is. But he seems to have something important on his mind."
+?CCL13:	EQUAL?	AWAITING-REPLY,BUTLER-2-R \?CCL19
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	EQUAL?	PRSA,V?YES /?PRG25
+	PRINTR	"""Oh!... Please pardon me."""
+?PRG25:	PRINTI	"""Then no doubt you are here to investigate the spectral figure which has recently been seen about the castle."
+	ZERO?	BUTLER-GHOST-STORY-TOLD \?PRG32
+	PRINTC	32
+	CALL	BUTLER-GHOST-STORY
+	RTRUE	
+?PRG32:	PRINTR	""""
+?CCL19:	EQUAL?	AWAITING-REPLY,BUTLER-3-R \?CCL35
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	EQUAL?	PRSA,V?YES \?PRG41
+	MOVE	MACE,PLAYER
+	FSET	MACE,SEENBIT
+	FCLEAR	MACE,NDESCBIT
+	CALL	THIS-IS-IT,MACE
+	PRINTI	"""Should you find "
+	PRINTD	PLAYER
+	PRINTI	" in any danger from our "
+	PRINTD	GHOST-NEW
+	PRINTI	", perhaps you could use this.""
+"
+	PRINTD	BUTLER
+	PRINTI	" gives you a small "
+	PRINTD	MACE
+	PRINTI	".
+
+"
+	RTRUE	
+?PRG41:	PRINTR	"""As you wish,"" he sniffs."
+?CCL35:	SET	'AWAITING-REPLY,FALSE-VALUE
+	EQUAL?	PRSA,V?YES /?PRG48
+	PRINTI	"""No doubt you soon shall. "
+	JUMP	?CND43
+?PRG48:	PRINTC	34
+?CND43:	EQUAL?	VARIATION,LORD-C,FRIEND-C \?PRG55
+	PRINTI	"To be precise, the ghost was just beyond the archway. It was bending over, groping for something on the "
+	PRINTD	DRAWING-ROOM
+	PRINTI	" carpet."
+	JUMP	?PRG62
+?PRG55:	PRINTI	"If I may express an opinion, our "
+	PRINTD	GHOST-NEW
+	PRINTI	" must need reading glasses. The hall was ablaze with lights, yet it was bending down, groping blindly for something on the marble floor."
+	EQUAL?	VARIATION,DOCTOR-C \?PRG62
+	PRINTI	" And, I might add, it must also be left-handed. You see, "
+	CALL	TITLE-NAME
+	PRINTI	", while bending over, the figure was using its left hand to grope with. I tried it myself, as did other servants, and we agree that such behavior indicates left-handedness."
+?PRG62:	PRINTI	"""
+He continues, ""The ghost must have heard my footsteps, for"
+	PRINTI	" it stood up, flashed me a startled glance, and fled into the darkness of the "
+	PRINTD	DRAWING-ROOM
+	PRINTI	". I pursued, turning on the lights, but the thing had disappeared. I went into the foyer, but it was not there either, and the "
+	PRINTD	FRONT-DOOR
+	PRINTR	" was still locked -- from the inside."""
+?CCL6:	CALL	GRAB-ATTENTION,BUTLER
+	ZERO?	STACK \?CCL67
+	RETURN	2
+?CCL67:	EQUAL?	PRSA,V?DESCRIBE \?CCL71
+	EQUAL?	PRSO,GHOST-NEW \?CCL71
+	FSET	GHOST-NEW,PERSONBIT
+	PRINTI	"""Frankly, I found it unconvincing. I don't see why a ghost would grope about on the floor to find something -- especially in a spot that wasn't even built when the "
+	PRINTD	GHOST-OLD
+	PRINTI	" was walled up in the tower. Besides, why should a ghost be scared away by a human being? It's usually the opposite, is it not?... No, "
+	CALL	TITLE-NAME
+	PRINTI	", in my opinion that figure just didn't behave like a proper ghost. It had "
+	PRINT	LONG-BLOND-HAIR
+	PRINTI	" and was clad in a silvery-white "
+	EQUAL?	VARIATION,DOCTOR-C \?PRG81
+	PRINTI	"long-sleeved"
+	JUMP	?PRG83
+?PRG81:	PRINTI	"sleeveless"
+?PRG83:	PRINTI	" gown. I caught only a brief glimpse of its face, deadly white. As to height, it was too bent over for me to make out. If someone was masquerading as a ghost, of course, the imposter might well have been a man. However, as for the figure I saw -- "
+	EQUAL?	VARIATION,DOCTOR-C \?PRG90
+	PRINTR	"I cannot be sure of its sex."""
+?PRG90:	PRINTR	"it seemed to me quite feminine."""
+?CCL71:	EQUAL?	PRSA,V?WALK-TO,V?WALK /?PRD95
+	EQUAL?	PRSA,V?THROUGH,V?STAND,V?SIT-AT /?PRD95
+	EQUAL?	PRSA,V?SIT,V?OPEN,V?LEAVE /?PRD95
+	EQUAL?	PRSA,V?EMPTY,V?DISEMBARK,V?CLOSE \?CCL93
+?PRD95:	CALL	WILLING?,BUTLER
+	ZERO?	STACK /?CCL93
+	EQUAL?	PRSA,V?LEAVE /FALSE
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \?PRG106
+	EQUAL?	PRSO,PASSAGE,DINNER /FALSE
+?PRG106:	PRINTI	"""As you wish, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG112
+	PRINTC	46
+?PRG112:	PRINTI	"""
+"
+	RFALSE	
+?CCL93:	CALL	COM-CHECK,BUTLER >X
+	ZERO?	X /?CCL115
+	EQUAL?	X,M-FATAL /FALSE
+	EQUAL?	X,M-OTHER \TRUE
+	RETURN	2
+?CCL115:	CALL	BUTLER-SORRY
+	RETURN	2
+?CCL3:	CALL	ASKING-ABOUT?,BUTLER >OBJ
+	ZERO?	OBJ /?CCL126
+	CALL	GRAB-ATTENTION,BUTLER,OBJ
+	ZERO?	STACK \?CCL129
+	RETURN	2
+?CCL129:	EQUAL?	OBJ,ACCIDENT,LOVER \?CCL133
+	PRINTI	"""Perhaps you've heard how I was sent to the "
+	PRINTD	BASEMENT
+	PRINTI	" to find her. I found a tent pole and a shoe in front of the well, near one end of the "
+	PRINTD	WINE-RACK
+	PRINTI	". The pole belonged to Lord Lionel. The shoe's spike heel was wrenched loose. I knew at once there had been an accident. Apparently Miss "
+	PRINTD	LOVER
+	PRINTI	", in her cups, had stumbled over the pole and grabbed at the well for support. But as she was nowhere in sight, and her red necklace was lying beside the well, I assumed she had toppled down the well. When "
+	PRINTD	LORD
+	PRINTI	" arrived, he shone an electric torch down the well and"
+	PRINT	FOUND-FABRIC
+	PRINTI	" Evidently it was ripped off as she fell. At any rate, the police concluded that she had drowned. They lowered a diver into the well, but "
+	PRINTD	CORPSE
+	PRINTR	" was never found."""
+?CCL133:	EQUAL?	OBJ,BUTLER \?CCL137
+	PRINTR	"""There's not much to tell. I've served the family all my life. Should you require anything, feel free to ask."""
+?CCL137:	EQUAL?	OBJ,SEARCHER \?CCL141
+	ZERO?	CONFESSED \?PRG146
+	GET	TOLD-ABOUT-EVID,BUTLER-C
+	ZERO?	STACK /?CCL141
+?PRG146:	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL141:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL149
+	PRINTC	34
+	CALL	BUTLER-GHOST-STORY
+	RSTACK	
+?CCL149:	EQUAL?	OBJ,GHOST-OLD \?CCL153
+	PRINTI	"""They do say "
+	PRINTD	CASTLE
+	PRINTR	" is haunted."""
+?CCL153:	EQUAL?	OBJ,LAMP \?CCL157
+	PRINTI	"""Yes, we keep"
+	CALL	IN-CASE-OF-BLACKOUT
+	RTRUE	
+?CCL157:	EQUAL?	OBJ,YOUR-MIRROR,DRESSING-MIRROR \?CCL161
+	PRINTI	"""S"
+	CALL	BUTLER-MIRROR-STORY
+	RSTACK	
+?CCL161:	EQUAL?	OBJ,PRIEST-DOOR /?PRG170
+	EQUAL?	OBJ,PASSAGE \?CCL165
+	GET	FOUND-PASSAGES,BUTLER-C
+	ZERO?	STACK \?CCL165
+?PRG170:	PRINTI	"The butler hesitates, looking thoughtful. ""I daresay that sort of thing would be better known to his lordship than to any of the staff, "
+	CALL	TITLE-NAME
+	PRINTR	"."""
+?CCL165:	CALL	COMMON-ASK-ABOUT,BUTLER,OBJ >X
+	ZERO?	X /?PRG177
+	EQUAL?	X,M-FATAL /FALSE
+	RTRUE	
+?PRG177:	PRINTI	"""I'm afraid it's not my place to say, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG183
+	PRINTC	46
+?PRG183:	PRINTR	""""
+?CCL126:	CALL	PERSON-F,BUTLER,ARG
+	RSTACK	
+
+
+	.FUNCT	IN-CASE-OF-BLACKOUT
+	PRINTR	" that in case of a power outage."""
+
+
+	.FUNCT	BUTLER-GHOST-STORY
+	SET	'BUTLER-GHOST-STORY-TOLD,TRUE-VALUE
+	SET	'QCONTEXT,BUTLER
+	CALL	THIS-IS-IT,BUTLER
+	PUTP	BUTLER,P?LDESC,12
+	SET	'AWAITING-REPLY,BUTLER-4-R
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	EQUAL?	HERE,GREAT-HALL \?PRG3
+	PUT	QUESTIONS,AWAITING-REPLY,STR?193
+?PRG3:	PRINTI	"I myself glimpsed the ghost just last night. "
+	PRINTD	LORD
+	PRINTI	" and some guests were sitting up late, "
+	GET	LDESC-STRINGS,13
+	PRINT	STACK
+	PRINTI	" in the "
+	PRINTD	GREAT-HALL
+	PRINTI	". After they retired, I came upstairs to clean up and turn off the lights. As I entered the "
+	PRINTD	GREAT-HALL
+	PRINTI	" from the west, I saw the ghost on the far side of the room. "
+	GET	QUESTIONS,AWAITING-REPLY
+	PRINT	STACK
+	PRINTC	34
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	BUTLER-MIRROR-STORY
+	PRINTI	"hould you wish to view "
+	PRINTD	PLAYER
+	PRINTI	" from all angles while dressing, you can do so by adjusting the "
+	PRINTD	YOUR-MIRROR
+	PRINTI	" and the hinged "
+	PRINTD	DRESSING-MIRROR
+	PRINTI	" of the "
+	PRINTD	DRESSING-TABLE
+	PRINTR	"."""
+
+
+	.FUNCT	GHOST-NEW-D,ARG=0
+	FSET?	GHOST-NEW,TOUCHBIT \?CCL3
+	CALL	DESCRIBE-PERSON,GHOST-NEW
+	RTRUE	
+?CCL3:	FCLEAR	GHOST-NEW,NDESCBIT
+	FSET	GHOST-NEW,PERSONBIT
+	FSET	GHOST-NEW,TOUCHBIT
+	FSET	GHOST-NEW,SEENBIT
+	FSET	COSTUME,SEENBIT
+	CRLF	
+	FSET?	GHOST-NEW,MUNGBIT \?PRG9
+	PRINTI	"Lying "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	" i"
+	JUMP	?PRG11
+?PRG9:	PRINTI	"Out of the dark come"
+?PRG11:	PRINTI	"s a figure with "
+	PRINT	LONG-BLOND-HAIR
+	PRINTR	", dressed all in silvery white and glowing with an almost unearthly light."
+
+
+	.FUNCT	GHOST-NEW-F,ARG=0,OBJ
+	EQUAL?	ARG,M-WINNER \?CCL3
+	CALL	GRAB-ATTENTION,GHOST-NEW
+	ZERO?	STACK \?PRG9
+	RETURN	2
+?PRG9:	PRINT	GHOST-CACKLES
+	RETURN	2
+?CCL3:	CALL	ASKING-ABOUT?,GHOST-NEW >OBJ
+	ZERO?	OBJ /?CCL14
+	CALL	GRAB-ATTENTION,GHOST-NEW,OBJ
+	ZERO?	STACK /?PRG23
+	EQUAL?	VARIATION,LORD-C /?CCL19
+	PRINT	GHOST-CACKLES
+	RETURN	2
+?CCL19:	CALL	LOVER-SPEECH
+	ZERO?	STACK \?PRG23
+	CALL	GHOST-FLEES
+?PRG23:	RETURN	2
+?CCL14:	EQUAL?	PRSA,V?EXAMINE \?CCL26
+	CALL	HE-SHE-IT,GHOST-NEW,TRUE-VALUE
+	PRINTI	" is wearing heavy white makeup with black eyes and lips. "
+	CALL	DESCRIBE-GOWN
+	CRLF	
+	CALL	COMMON-OTHER,GHOST-NEW
+	RSTACK	
+?CCL26:	EQUAL?	PRSA,V?UNDRESS,V?SEARCH,V?BRUSH /?CTR29
+	EQUAL?	PRSA,V?SEARCH-FOR \?CCL30
+	EQUAL?	PRSI,COSTUME \?CCL30
+?CTR29:	FSET?	GHOST-NEW,MUNGBIT /?CCL37
+	PRINT	GHOST-CACKLES
+	RTRUE	
+?CCL37:	IN?	COSTUME,GHOST-NEW \FALSE
+	CALL	UNDRESS-GHOST
+	RTRUE	
+?CCL30:	CALL	GHOST-NEW-VERBS >OBJ
+	ZERO?	OBJ /?CCL44
+	CALL	GRAB-ATTENTION,GHOST-NEW
+	ZERO?	STACK /?PRG55
+	EQUAL?	VARIATION,LORD-C /?CCL49
+	PRINT	GHOST-CACKLES
+	RETURN	2
+?CCL49:	EQUAL?	OBJ,2 /?CCL52
+	CALL	LOVER-SPEECH
+	ZERO?	STACK \?PRG55
+?CCL52:	CALL	GHOST-FLEES
+?PRG55:	RETURN	2
+?CCL44:	CALL	PERSON-F,GHOST-NEW,ARG
+	RSTACK	
+
+
+	.FUNCT	GHOST-NEW-VERBS
+	EQUAL?	PRSA,V?SGIVE,V?GIVE,V?BOW /TRUE
+	EQUAL?	PRSA,V?RUB,V?LISTEN,V?KISS /TRUE
+	EQUAL?	PRSA,V?SMILE /TRUE
+	CALL	SPEAKING-VERB?,GHOST-NEW
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?YELL,V?STOP,V?SLAP /?CTR10
+	EQUAL?	PRSA,V?PUSH,V?MUNG,V?ARREST \?CCL11
+?CTR10:	RETURN	2
+?CCL11:	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	GHOST-NEW,MUNGBIT /FALSE
+	RETURN	2
+
+
+	.FUNCT	UNDRESS-GHOST,L,ADJ
+	LOC	GHOST-NEW >L
+	MOVE	COSTUME,WINNER
+	FCLEAR	COSTUME,NDESCBIT
+	FCLEAR	COSTUME,WORNBIT
+	FSET	COSTUME,TOUCHBIT
+	FSET	COSTUME,TAKEBIT
+	MOVE	GHOST-NEW,LOCAL-GLOBALS
+	MOVE	VILLAIN-PER,L
+	GETP	VILLAIN-PER,P?STATION >ADJ
+	ZERO?	ADJ /?CND1
+	ZERO?	OTHER-POSS-POS /?CND1
+	GETPT	HEAD,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,ADJ
+	GETPT	HANDS,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,ADJ
+	GETPT	EYE,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,ADJ
+	GETPT	OTHER-OUTFIT,P?ADJECTIVE
+	PUTB	STACK,OTHER-POSS-POS,ADJ
+?CND1:	CALL	THIS-IS-IT,VILLAIN-PER
+	FSET	VILLAIN-PER,MUNGBIT
+	PUTP	VILLAIN-PER,P?LDESC,19
+	SET	'VILLAIN-KNOWN?,TRUE-VALUE
+	PRINTI	"When you remove the "
+	PRINTD	COSTUME
+	PRINTI	", you discover "
+	PRINTD	VILLAIN-PER
+	PRINTI	" underneath!"
+	CRLF	
+	CALL	CONGRATS,COSTUME
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-GOWN
+	FSET	GHOST-NEW,PERSONBIT
+	PRINTI	"The gown "
+	EQUAL?	LIT,HERE /?PRG7
+	PRINTI	"seems to fluoresce in the dark. It "
+?PRG7:	PRINTI	"has a "
+	EQUAL?	VARIATION,DOCTOR-C \?PRG14
+	PRINTI	"high"
+	JUMP	?PRG16
+?PRG14:	PRINTI	"low"
+?PRG16:	PRINTI	" neckline and "
+	EQUAL?	VARIATION,DOCTOR-C \?PRG23
+	PRINTI	"long"
+	JUMP	?PRG25
+?PRG23:	PRINTI	"no"
+?PRG25:	PRINTI	" sleeves."
+	RTRUE	
+
+
+	.FUNCT	COSTUME-F
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL3
+	FSET?	PRSO,PERSONBIT \FALSE
+	GETP	PRSO,P?CHARACTER
+	EQUAL?	VARIATION,STACK \?CCL9
+	SET	'PRSA,V?ASK-ABOUT
+	RFALSE	
+?CCL9:	CALL	TELL-ABOUT-OBJECT,PRSO,COSTUME,FOUND-COSTUME
+	RSTACK	
+?CCL3:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	CALL	NOUN-USED?,W?WIG
+	ZERO?	STACK /?CCL13
+	EQUAL?	VARIATION,LORD-C \?CCL13
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(There is no wig!)"
+?CCL13:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL19
+	CALL	NOUN-USED?,W?WIG
+	ZERO?	STACK \?CND20
+	CALL	DESCRIBE-GOWN
+	LOC	COSTUME
+	EQUAL?	STACK,GHOST-NEW,VILLAIN-PER \?PRG27
+	PRINTI	" It's on"
+	JUMP	?PRG29
+?PRG27:	PRINTI	" When you hold it up, you can see it would fit"
+?PRG29:	PRINTI	" a "
+	EQUAL?	VARIATION,LORD-C,FRIEND-C,DOCTOR-C \?PRG36
+	PRINTI	"person of average height."
+	JUMP	?CND31
+?PRG36:	PRINTI	"tall person."
+?CND31:	CRLF	
+?CND20:	CALL	NOUN-USED?,W?GOWN
+	ZERO?	STACK \TRUE
+	EQUAL?	VARIATION,LORD-C /TRUE
+	PRINTI	"It's obvious that the wig was designed to resemble "
+	PRINTD	LOVER
+	PRINTI	"'s long, flowing hair."
+	CRLF	
+	LOC	COSTUME
+	EQUAL?	STACK,GHOST-NEW,VILLAIN-PER /TRUE
+	PRINTI	"Inside, you notice several individual "
+	EQUAL?	VARIATION,FRIEND-C \?CCL50
+	PRINTI	"red"
+	JUMP	?PRG59
+?CCL50:	EQUAL?	VARIATION,DOCTOR-C \?PRG57
+	PRINTI	"grayish"
+	JUMP	?PRG59
+?PRG57:	PRINTI	"tawny"
+?PRG59:	PRINTI	" hairs, the same color as "
+	GET	CHARACTER-TABLE,VARIATION
+	PRINTD	STACK
+	PRINTI	"'s hair."
+	CRLF	
+	CALL	CONGRATS,COSTUME
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?TAKE-OFF,V?TAKE,V?LOOK-UNDER \?CCL67
+	IN?	COSTUME,GHOST-NEW \FALSE
+	CALL	PERFORM,V?UNDRESS,GHOST-NEW
+	RTRUE	
+?CCL67:	EQUAL?	PRSA,V?WEAR /?CCL72
+	EQUAL?	PRSA,V?PUT \FALSE
+	ZERO?	PRSI /FALSE
+	FSET?	PRSI,PERSONBIT \FALSE
+?CCL72:	CALL	WEAR-SCARE
+	RSTACK	
+
+
+	.FUNCT	WEAR-SCARE
+	PRINTI	"You start to put"
+	CALL	PRINTT,PRSO
+	PRINTI	" on"
+	ZERO?	PRSI /?PRG7
+	PRINTC	32
+	PRINTD	PRSI
+?PRG7:	PRINTI	", but"
+	EQUAL?	PRSO,NECKLACE-OF-D \?PRG14
+	PRINT	CLASP-MUNGED
+	PRINTR	"."
+?PRG14:	PRINTR	" then decide it might scare the other guests."
+
+
+	.FUNCT	WHY-ME
+	BTST	PRESENT-TIME,1 \?PRG6
+	PRINTI	"""You could do that "
+	PRINTD	PLAYER
+	PRINTR	", you know."""
+?PRG6:	PRINTI	"""I think you can do that better "
+	PRINTD	PLAYER
+	PRINTR	"."""
+
+
+	.FUNCT	DESCRIBE-PERSON,PER,STR=0
+	GETP	PER,P?LDESC >STR
+	EQUAL?	PER,BUTLER,LOVER /?CND1
+	CALL	ALL-TOGETHER-NOW?
+	ZERO?	STACK /?CND1
+	EQUAL?	PER,LORD \TRUE
+	SET	'P-HIM-OBJECT,FALSE-VALUE
+	SET	'P-HER-OBJECT,FALSE-VALUE
+	PRINTD	PER
+	PRINTI	" and all his guests are here."
+	ZERO?	CONFESSED \?CND9
+	CALL	QUEUED?,I-LIONEL-SPEAKS
+	ZERO?	STACK \?CND9
+	PRINTR	" They smile pleasantly but, with typical British reserve, seem willing to leave you to your own devices."
+?CND9:	CRLF	
+	RTRUE	
+?CND1:	ZERO?	STR /?PRG18
+	GETP	PER,P?CHARACTER
+	PUT	TOUCHED-LDESCS,STACK,STR
+	RFALSE	
+?PRG18:	CALL	START-SENTENCE,PER
+	PRINTI	" is "
+	GETPT	PER,P?WEST >STR
+	ZERO?	STR /?PRG26
+	GET	STR,NEXITSTR >STR
+	ZERO?	STR /?PRG26
+	PRINT	STR
+?PRG26:	PRINTC	46
+	EQUAL?	STR,6 \?CCL30
+	PRINTC	32
+	RTRUE	
+?CCL30:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	ALL-TOGETHER-NOW?
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	LOC	FRIEND
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	LOC	DEB
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	LOC	OFFICER
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	LOC	DOCTOR
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	LOC	DEALER
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \FALSE
+	LOC	PAINTER
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT /TRUE
+	RFALSE	
+
+
+	.FUNCT	TELL-ABOUT-OBJECT,PER,OBJ,GL,C
+	GET	GL,PLAYER-C
+	ZERO?	STACK /FALSE
+	GETP	PER,P?CHARACTER >C
+	GET	GL,C
+	ZERO?	STACK \?PRG9
+	PUT	GL,C,TRUE-VALUE
+	EQUAL?	C,VARIATION /?CND7
+	PUTP	PER,P?LINE,0
+?CND7:	CALL	GOOD-SHOW,PER,OBJ
+	RSTACK	
+?PRG9:	PRINTI	"""I know that you found a "
+	PRINTD	OBJ
+	PRINTR	"."""
+
+
+	.FUNCT	PERSON-F,PER,ARG,OBJ,X,L,C,N
+	LOC	PER >L
+	GETP	PER,P?CHARACTER >C
+	EQUAL?	PRSA,V?SHAKE,V?ALARM \?CCL3
+	EQUAL?	PRSO,PER \FALSE
+	CALL	QUEUED?,I-COME-TO
+	ZERO?	STACK /?CCL9
+	EQUAL?	PER,VILLAIN-PER,GHOST-NEW \?CCL9
+	CALL	QUEUE,I-COME-TO,1
+	RTRUE	
+?CCL9:	CALL	UNSNOOZE,PER,TRUE-VALUE
+	ZERO?	STACK /?PRG16
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTR	" gasps to see you so close!"
+?PRG16:	CALL	HE-SHE-IT,PER,TRUE-VALUE,STR?1
+	PRINTI	" still "
+	GETP	PER,P?LDESC >X
+	ZERO?	X /?CCL20
+	GET	LDESC-STRINGS,X
+	PRINT	STACK
+	JUMP	?PRG26
+?CCL20:	GETPT	PER,P?WEST >X
+	ZERO?	X /?PRG26
+	GET	X,NEXITSTR
+	PRINT	STACK
+?PRG26:	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?FORGIVE \?CCL29
+	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK \?PRG34
+	RETURN	2
+?PRG34:	PRINTR	"""Thank you so much. I didn't realize I'd offended you."""
+?CCL29:	EQUAL?	PRSA,V?GIVE \?CCL37
+	EQUAL?	PRSI,PER \FALSE
+	CALL	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK \FALSE
+	RETURN	2
+?CCL37:	EQUAL?	PRSA,V?LAMP-OFF \?CCL48
+	GETP	PER,P?LINE
+	ZERO?	STACK /?CCL51
+	PRINTR	"Seems you've already done that."
+?CCL51:	CALL	WONT-HELP
+	RSTACK	
+?CCL48:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?MUNG \?CCL55
+	EQUAL?	PER,PRSO \FALSE
+	FSET?	PER,PERSONBIT \FALSE
+	FSET?	PER,MUNGBIT /FALSE
+	GETP	PER,P?LINE
+	ADD	1,STACK
+	PUTP	PER,P?LINE,STACK
+	GETP	PER,P?LDESC
+	EQUAL?	STACK,4 /?PRG64
+	PUTP	PER,P?LDESC,20
+?PRG64:	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTR	" pushes you away and mutters, ""I don't think that's called for."""
+?CCL55:	EQUAL?	PRSA,V?SHOW \?CCL67
+	EQUAL?	PER,PRSO \FALSE
+	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK \?CCL73
+	RETURN	2
+?CCL73:	CALL	PERFORM,V?TELL-ABOUT,PRSO,PRSI
+	RTRUE	
+?CCL67:	EQUAL?	PRSA,V?SMILE \?CCL78
+	EQUAL?	PER,PRSO \FALSE
+	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK \?PRG87
+	RETURN	2
+?PRG87:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?218
+	PRINTR	" back at you."
+?CCL78:	EQUAL?	PRSA,V?TELL-ABOUT \?CCL90
+	EQUAL?	PER,PRSO \FALSE
+	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK \?CND94
+	RETURN	2
+?CND94:	PUTP	PER,P?LDESC,12
+	FSET?	PRSI,RMUNGBIT \?CCL100
+	FSET?	PRSI,SEENBIT \?CCL100
+	FSET?	PRSI,PERSONBIT /?CCL100
+	GETP	PER,P?CHARACTER
+	PUT	TOLD-ABOUT-EVID,STACK,TRUE-VALUE
+	PRINT	THATS-INTERESTING
+	RTRUE	
+?CCL100:	EQUAL?	PRSI,CLUE-1 \?CCL107
+	PRINT	THATS-INTERESTING
+	RTRUE	
+?CCL107:	EQUAL?	PRSI,CONFESSED \?CCL112
+	EQUAL?	PER,CONFESSED /?PRG126
+	PRINT	IM-SHOCKED
+	RTRUE	
+?CCL112:	EQUAL?	PRSI,GHOST-NEW \?CCL118
+	FSET?	GHOST-NEW,TOUCHBIT \?PRG126
+	EQUAL?	PER,GHOST-NEW /?PRG126
+	GETP	PER,P?CHARACTER
+	PUT	TOLD-ABOUT-GHOST,STACK,TRUE-VALUE
+	PRINTR	"""You saw the ghost? Tell me, how can I help?"""
+?CCL118:	CALL	SECRET-PASSAGE-OR-DOOR?,PRSI
+	ZERO?	STACK /?PRG126
+	CALL	TELL-ABOUT-OBJECT,PRSO,PASSAGE,FOUND-PASSAGES
+	RTRUE	
+?PRG126:	PRINTR	"""I don't know what you mean."""
+?CCL90:	EQUAL?	PRSA,V?THROW-AT \?CCL129
+	EQUAL?	PER,PRSI \FALSE
+	FSET?	PER,PERSONBIT \FALSE
+	FSET?	PER,MUNGBIT /FALSE
+	MOVE	PRSO,PRSI
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" catches"
+	CALL	PRINTT,PRSO
+	PRINTI	" with"
+	CALL	HIM-HER-IT,PER,FALSE-VALUE,TRUE-VALUE
+	PRINTC	32
+	EQUAL?	PER,DEB,DOCTOR \?PRG143
+	PRINTI	"lef"
+	JUMP	?PRG145
+?PRG143:	PRINTI	"righ"
+?PRG145:	PRINTR	"t hand."
+?CCL129:	CALL	COMMON-OTHER,PER
+	RSTACK	
+
+
+	.FUNCT	SECRET-PASSAGE-OR-DOOR?,OBJ
+	EQUAL?	OBJ,PASSAGE,SECRET-JACK-DOOR,SECRET-TAMARA-DOOR /TRUE
+	EQUAL?	OBJ,SECRET-LIBRARY-DOOR,SECRET-DRAWING-DOOR,SECRET-SITTING-DOOR /TRUE
+	EQUAL?	OBJ,SECRET-DINING-DOOR,SECRET-YOUR-DOOR,SECRET-IRIS-DOOR /TRUE
+	EQUAL?	OBJ,SECRET-WENDISH-DOOR,SECRET-VIVIEN-DOOR,SECRET-IAN-DOOR /TRUE
+	EQUAL?	OBJ,SECRET-HYDE-DOOR /TRUE
+	RFALSE	
+
+
+	.FUNCT	CARRY-CHECK,PER
+	FIRST?	PER \FALSE
+	CALL	HE-SHE-IT,PER,TRUE-VALUE,STR?1
+	PRINTI	" holding"
+	CALL	PRINT-CONTENTS,PER
+	PRINTR	"."
+
+
+	.FUNCT	WINNER-DESCRIBE,OBJ,RM
+	PRINTI	"""You can see "
+	PRINTD	OBJ
+	EQUAL?	HERE,RM \?PRG8
+	PRINTI	" right over there"
+	JUMP	?PRG10
+?PRG8:	PRINTI	" in the "
+	PRINTD	RM
+?PRG10:	PRINTR	"."""
+
+
+	.FUNCT	TRANSIT-TEST,PER
+	EQUAL?	PRSA,V?WALK-TO,V?WALK,V?THROUGH /?CCL3
+	EQUAL?	PRSA,V?TAKE-TO,V?LEAVE,V?DISEMBARK \FALSE
+?CCL3:	CALL	WILLING?,PER
+	RSTACK	
+
+
+	.FUNCT	COM-CHECK,PER,N,TAG
+	GETP	PER,P?LINE >N
+	GETP	PER,P?CHARACTER
+	GET	TOLD-ABOUT-GHOST,STACK >TAG
+	EQUAL?	PRSA,V?$CALL \?CCL3
+	CALL	DONT-UNDERSTAND
+	RETURN	M-OTHER
+?CCL3:	CALL	TRANSIT-TEST,PER
+	ZERO?	STACK /?CCL5
+	RETURN	2
+?CCL5:	EQUAL?	PRSA,V?SORRY,V?HELLO,V?ALARM \?CCL9
+	EQUAL?	PRSO,ROOMS /?CTR11
+	EQUAL?	PRSO,PER \FALSE
+?CTR11:	SET	'WINNER,PLAYER
+	CALL	PERFORM,PRSA,PER
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?YES /?PRG19
+	EQUAL?	PRSA,V?THANKS,V?NO,V?ARREST \?CCL16
+?PRG19:	RETURN	2
+?CCL16:	EQUAL?	PRSA,V?DESCRIBE \?CCL22
+	EQUAL?	PRSO,GHOST-NEW \?CCL25
+	PRINTI	"""I'm sorry, but I didn't see"
+	CALL	HIM-HER-IT,GHOST-NEW
+	PRINTR	"."""
+?CCL25:	EQUAL?	PRSO,MAID \?CCL29
+	PRINT	NEVER-NOTICED-HER
+	RTRUE	
+?CCL29:	EQUAL?	PRSO,BUST,COUSIN \?CCL33
+	CALL	WINNER-DESCRIBE,BUST,DINING-ROOM
+	RTRUE	
+?CCL33:	EQUAL?	PRSO,LOVER \?PRG36
+	CALL	WINNER-DESCRIBE,LOVER-PIC,DRAWING-ROOM
+	RTRUE	
+?PRG36:	PRINTI	"""You could "
+	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?PRG42
+	PRINTI	"go "
+?PRG42:	PRINTI	"have a look for "
+	PRINTD	PLAYER
+	PRINTR	", you know."""
+?CCL22:	EQUAL?	PRSA,V?WALK-TO,V?FOLLOW \?CCL45
+	EQUAL?	PER,BUTLER /FALSE
+	EQUAL?	PRSA,V?WALK-TO \?PRG57
+	ZERO?	TAG \?PRG55
+	EQUAL?	PRSO,TAMARA-BED,BED,SLEEP-GLOBAL \?PRG57
+?PRG55:	RETURN	2
+?PRG57:	PRINTR	"""I will go where I please, thank you very much."""
+?CCL45:	EQUAL?	PRSA,V?INVENTORY \?CCL60
+	CALL	CARRY-CHECK,PER
+	ZERO?	STACK \TRUE
+	CALL	HE-SHE-IT,PER,TRUE-VALUE,STR?1
+	PRINTR	"n't holding anything."
+?CCL60:	EQUAL?	PRSA,V?LISTEN \?CCL66
+	EQUAL?	PRSO,PLAYER-NAME,PLAYER /?PRG72
+	IN?	PRSO,GLOBAL-OBJECTS /FALSE
+?PRG72:	PRINTI	"""I'm trying to, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"!"""
+?CCL66:	EQUAL?	PRSA,V?RUB \?CND1
+	CALL	FACE-RED
+	RTRUE	
+?CND1:	RANDOM	3
+	EQUAL?	STACK,1 \?CND75
+	CALL	WILLING?,PER,TRUE-VALUE
+	ZERO?	STACK /?CND75
+	EQUAL?	PER,DEB \?CCL81
+	SET	'FAWNING,TRUE-VALUE
+	PRINTI	"""My dear "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", how could I refuse someone as handsome as you?"" Iris murmurs, batting her eyelashes. "
+	JUMP	?CND75
+?CCL81:	EQUAL?	PER,OFFICER \?CND75
+	SET	'FAWNING,TRUE-VALUE
+	PRINTI	"""Delighted to help you if I can, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	" luv! One feels those great luminous eyes of yours can see right through a chap!"" says the handsome young guardsman. "
+?CND75:	EQUAL?	PRSA,V?DANCE \?CCL89
+	EQUAL?	PRSO,PLAYER \?CCL89
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,PRSA,PER
+	RTRUE	
+?CCL89:	EQUAL?	PRSA,V?DANCE /?PRG101
+	EQUAL?	PRSA,V?WALK \?CCL93
+	EQUAL?	PRSO,P?OUT /?PRG101
+	ZERO?	TAG /?CCL93
+?PRG101:	RETURN	2
+?CCL93:	EQUAL?	PRSA,V?SIGN \?CCL104
+	PRINTI	"You notice that"
+	CALL	HE-SHE-IT,PER
+	PRINTI	" is "
+	EQUAL?	PER,DEB,DOCTOR \?PRG112
+	PRINTI	"lef"
+	JUMP	?PRG114
+?PRG112:	PRINTI	"righ"
+?PRG114:	PRINTR	"t-handed."
+?CCL104:	EQUAL?	PRSA,V?KISS \?CCL117
+	CALL	UNSNOOZE,PER
+	PRINTR	"""I really don't think this is the proper time or place."""
+?CCL117:	EQUAL?	PRSA,V?TAKE \?CCL121
+	IN?	PRSO,PLAYER \FALSE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?GIVE,PRSO,PER
+	RTRUE	
+?CCL121:	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE \?CCL126
+	IN?	PRSO,PLAYER \FALSE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?SHOW,PER,PRSO
+	RTRUE	
+?CCL126:	EQUAL?	PRSA,V?FORGIVE \?CCL131
+	SET	'WINNER,PRSO
+	CALL	PERFORM,V?SORRY,PER
+	RTRUE	
+?CCL131:	EQUAL?	PRSA,V?THROW-AT,V?GIVE \?CCL133
+	FSET?	PRSI,PERSONBIT \?CCL133
+	SET	'WINNER,PRSI
+	CALL	PERFORM,V?ASK-FOR,PER,PRSO
+	RTRUE	
+?CCL133:	EQUAL?	PRSA,V?SGIVE \?CCL137
+	FSET?	PRSO,PERSONBIT \?CCL137
+	SET	'WINNER,PRSO
+	CALL	PERFORM,V?ASK-FOR,PER,PRSI
+	RTRUE	
+?CCL137:	EQUAL?	PRSA,V?HELP \?CCL141
+	EQUAL?	PRSO,FALSE-VALUE,PLAYER,PLAYER-NAME \?PRG145
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK,PER
+	RTRUE	
+?PRG145:	RETURN	2
+?CCL141:	EQUAL?	PRSA,V?SSHOW,V?SHOW,V?FIND \?CCL148
+	EQUAL?	PRSA,V?SHOW \?CND149
+	SET	'PRSA,V?SSHOW
+	SET	'N,PRSI
+	SET	'PRSI,PRSO
+	SET	'PRSO,N
+?CND149:	IN?	PRSO,ROOMS \?CCL153
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?CCL153:	IN?	PRSO,PER \?CCL155
+	CALL	ITAKE
+	EQUAL?	STACK,TRUE-VALUE \TRUE
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" fumbles in"
+	CALL	HIM-HER-IT,PER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" pocket and produces"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?CCL155:	EQUAL?	PRSA,V?FIND \FALSE
+	RETURN	2
+?CCL148:	EQUAL?	PRSA,V?PLAY \?CCL165
+	EQUAL?	PRSO,PIANO \FALSE
+	PRINTI	"""I'm not very good at this sort of thing, but...""
+"
+	RETURN	2
+?CCL165:	EQUAL?	PRSA,V?TELL \?CCL174
+	EQUAL?	PRSO,PLAYER-NAME,PLAYER \FALSE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK,PER
+	RTRUE	
+?CCL174:	EQUAL?	PRSA,V?TELL-ABOUT \?CCL179
+	FSET?	PRSO,PERSONBIT \FALSE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,PER,PRSI
+	RTRUE	
+?CCL179:	EQUAL?	PRSA,V?WAIT-FOR,V?STOP \?CCL184
+	EQUAL?	PRSO,ROOMS,PLAYER-NAME /?CCL187
+	EQUAL?	PRSO,PLAYER,GLOBAL-HERE,HERE \FALSE
+?CCL187:	EQUAL?	PER,FOLLOWER \?CCL192
+	SET	'FOLLOWER,0
+	PRINTI	"""As you wish, "
+	CALL	PRINT-NAME,FIRST-NAME
+	ZERO?	STACK /?PRG199
+	PRINTC	46
+?PRG199:	PRINTR	""""
+?CCL192:	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?$CALL,PER
+	RTRUE	
+?CCL184:	EQUAL?	PRSA,V?TALK-ABOUT \FALSE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,PER,PRSO
+	RTRUE	
+
+
+	.FUNCT	EVIDENCE?,OBJ,PER=0
+	ZERO?	PER /?CCL3
+	GETP	PER,P?CHARACTER
+	EQUAL?	VARIATION,STACK \FALSE
+?CCL3:	EQUAL?	OBJ,LETTER-MAID,PASSAGE,JEWEL /TRUE
+	EQUAL?	OBJ,LENS,LENS-1,LENS-2 /TRUE
+	EQUAL?	OBJ,COSTUME,LENS-BOX,EARRING /TRUE
+	EQUAL?	OBJ,BLOWGUN /TRUE
+	ZERO?	OBJ /FALSE
+	FSET?	OBJ,PERSONBIT /FALSE
+	FSET?	OBJ,RMUNGBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	SETUP-SHOT,PER
+	SET	'VILLAIN-KNOWN?,TRUE-VALUE
+	MOVE	BLOWGUN,PER
+	FCLEAR	BLOWGUN,NDESCBIT
+	FCLEAR	BLOWGUN,TAKEBIT
+	PUTP	PER,P?LINE,2
+	PUTP	PER,P?LDESC,8
+	SET	'AIMED-HERE,HERE
+	SET	'SHOOTER,PER
+	CALL	QUEUE,I-SHOT,CLOCKER-RUNNING
+	RSTACK	
+
+
+	.FUNCT	COMMON-ASK-ABOUT,PER,OBJ
+	CALL	EVIDENCE?,OBJ,PER
+	ZERO?	STACK /?CCL3
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" flinches a little before answering.
+"
+?CND1:	FSET?	OBJ,RMUNGBIT \?CND23
+	EQUAL?	PRSA,V?SHOW,V?CONFRONT \?CND23
+	FSET?	OBJ,PERSONBIT /?CND23
+	GETP	PER,P?CHARACTER
+	PUT	TOLD-ABOUT-EVID,STACK,TRUE-VALUE
+?CND23:	EQUAL?	OBJ,SEARCHER \?CCL30
+	GETP	OBJ,P?LDESC
+	EQUAL?	STACK,21 \?CCL30
+	EQUAL?	PER,SEARCHER \?PRG38
+	PRINTR	"""You mean, why am I searching? I'm sure you can guess."""
+?CCL3:	CALL	EVIDENCE?,OBJ
+	ZERO?	STACK /?CND1
+	ZERO?	CONFESSED /?PRG12
+	PRINT	IM-SHOCKED
+	RTRUE	
+?PRG12:	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" says, """
+	RANDOM	2
+	EQUAL?	STACK,1 \?PRG19
+	PRINTI	"Good Lord"
+	JUMP	?PRG21
+?PRG19:	PRINTI	"I say"
+?PRG21:	PRINTR	"! I think you're onto something here."""
+?PRG38:	PRINTI	"""I imagine that "
+	PRINTD	OBJ
+	PRINTI	" is searching because"
+	CALL	THIS-IS-IT,OBJ
+	CALL	HE-SHE-IT,OBJ
+	PRINTI	" got a bright idea. I prefer to let our"
+	PRINT	FAMOUS-YOUNG-DETECTIVE
+	PRINTR	" do the work."""
+?CCL30:	EQUAL?	OBJ,PER \?CCL43
+	PRINTR	"""I have no secrets. Anyone can see what I am."""
+?CCL43:	EQUAL?	OBJ,PLAYER,PLAYER-NAME \?CCL47
+	PRINTI	"""You're "
+	CALL	TELL-FULL-NAME
+	PRINTI	", the"
+	PRINT	FAMOUS-YOUNG-DETECTIVE
+	PRINTR	"."""
+?CCL47:	EQUAL?	OBJ,BUTLER \?CCL53
+	PRINTR	"""He's served the family all his life."""
+?CCL53:	EQUAL?	OBJ,LOVER \?CCL57
+	PRINTI	"""Poor thing, her life came to a sad ending."
+	EQUAL?	PER,DOCTOR \?PRG64
+	PRINTI	" As did her grandfather, whom I treated at my clinic."
+?PRG64:	PRINTR	""""
+?CCL57:	EQUAL?	OBJ,COUSIN,BUST \?CCL67
+	PRINTR	"""He was a bit of a strange bird, was Lionel."""
+?CCL67:	EQUAL?	OBJ,GHOST-NEW,DANGER,HAUNTING \?CCL72
+	PRINTI	"""I myself haven't seen"
+	CALL	HIM-HER-IT,GHOST-NEW
+	PRINTR	"."""
+?CCL72:	EQUAL?	OBJ,GHOST-OLD \?CCL76
+	PRINTI	"""Oh, she has haunted "
+	PRINTD	CASTLE
+	PRINTI	" for centuries -- a lovely phantom in a white gown, with long pale hair. She was said to be the unfaithful wife of an early Lord "
+	PRINT	TRESYLLIAN
+	PRINTR	", who had her walled up alive in the tower."""
+?CCL76:	EQUAL?	OBJ,MAID \?CCL80
+	PRINT	NEVER-NOTICED-HER
+	RTRUE	
+?CCL80:	FSET?	OBJ,PERSONBIT /FALSE
+	GETP	PER,P?CHARACTER
+	EQUAL?	VARIATION,STACK \?CCL86
+	FSET?	OBJ,RMUNGBIT /?CTR85
+	EQUAL?	OBJ,BLOWGUN \?CCL86
+?CTR85:	PUTP	PER,P?LINE,2
+	PRINTI	"""What can I say?"""
+	CALL	HE-SHE-IT,PER
+	PRINTI	" shrugs. ""It's a fair cop. You've caught me with damning evidence."
+	EQUAL?	VARIATION,FRIEND-C,LORD-C /?PRG98
+	GETP	PER,P?CHARACTER
+	ADD	1,STACK
+	GET	CHAR-ROOM-TABLE,STACK
+	EQUAL?	HERE,STACK \?PRG98
+	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER,PER
+	ZERO?	STACK /?CND93
+?PRG98:	PRINTR	""""
+?CND93:	IN?	BLOWGUN,PER \?PRG105
+	PRINTI	""" "
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	JUMP	?CND100
+?PRG105:	PRINTI	" But there's something you don't know yet"
+	CALL	IAN-CALLS-YOU
+	PRINTI	", which may put the matter in a different light.""
+Still smiling,"
+	CALL	HE-SHE-IT,PER
+	PRINTI	" puts"
+	CALL	HIM-HER-IT,PER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" hand into"
+	CALL	PRINTT,HIDING-PLACE
+	PRINTI	", and"
+?CND100:	LOC	BLOWGUN
+	EQUAL?	STACK,PER,HIDING-PLACE \?PRG121
+	SET	'DISCOVERED-HERE,HERE
+	CALL	SETUP-SHOT,PER
+	FSET?	BLOWGUN,NDESCBIT /?CCL114
+	PRINTI	" takes"
+	JUMP	?PRG119
+?CCL114:	FCLEAR	BLOWGUN,NDESCBIT
+	PRINTI	" suddenly extracts"
+?PRG119:	CALL	PRINTT,BLOWGUN
+	PRINTR	" and aims it at you!"
+?PRG121:	CALL	HIM-HER-IT,PER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" jaw drops as"
+	CALL	HIM-HER-IT,PER,FALSE-VALUE,TRUE-VALUE
+	PRINTR	" hand comes out, empty."
+?CCL86:	EQUAL?	OBJ,ACCIDENT \?CCL124
+	PRINTI	"""You'd best ask Jack about that, or "
+	PRINTD	BUTLER
+	PRINTR	"."""
+?CCL124:	EQUAL?	OBJ,BELL \?CCL128
+	PRINTR	"""It's actually a ship's bell off an old British man-o'-war."""
+?CCL128:	EQUAL?	PER,SEARCHER \?CCL132
+	ZERO?	LIONEL-SPEAKS-COUNTER \?CCL132
+	CALL	SHOWING-CLUE?,OBJ
+	ZERO?	STACK /?CCL132
+	EQUAL?	PRSA,V?ASK-ABOUT /?CCL132
+	CALL	QUEUE,I-SEARCH,1
+	PRINT	THATS-INTERESTING
+	RTRUE	
+?CCL132:	EQUAL?	OBJ,CORPSE \?CCL140
+	PRINTC	34
+	PRINTD	CORPSE
+	PRINTR	" was never recovered from the well. They think it was carried out to sea by an underground tidal stream."""
+?CCL140:	EQUAL?	OBJ,COSTUME,BLOWGUN,LENS-BOX \?CCL144
+	EQUAL?	PER,PAINTER,DOCTOR \?PRD148
+	GETP	PER,P?CHARACTER
+	EQUAL?	VARIATION,STACK /?CTR143
+?PRD148:	EQUAL?	PER,DEB \?CCL144
+	EQUAL?	VARIATION,FRIEND-C \?CCL144
+?CTR143:	GETP	PER,P?CHARACTER
+	ADD	1,STACK
+	GET	CHAR-ROOM-TABLE,STACK >OBJ
+	PRINTD	PER
+	PRINTI	"'s look changes to a puzzled and angry frown. "
+	EQUAL?	PER,LORD,FRIEND /?PRG165
+	PRINTI	"""You mean you found that "
+	EQUAL?	HERE,OBJ \?PRG163
+	PRINTI	"here "
+?PRG163:	PRINTI	"in my room?"""
+	CALL	HE-SHE-IT,PER
+	PRINTI	" gasps. "
+?PRG165:	PRINTI	"""How can I explain it when it doesn't belong to me? If you didn't bring it "
+	EQUAL?	HERE,OBJ /?PRG171
+	PRINTC	116
+?PRG171:	PRINTI	"here "
+	PRINTD	PLAYER
+	PRINTI	", then someone else planted it, trying to frame me as the maniac who's been posing as "
+	PRINTD	LOVER
+	PRINTR	"'s ghost!"""
+?CCL144:	EQUAL?	OBJ,COSTUME \?CCL174
+	GET	FOUND-COSTUME,PLAYER-C
+	ZERO?	STACK /FALSE
+	PRINTI	"""So that's how "
+	ZERO?	CONFESSED \?PRG185
+	PRINTI	"somebody"
+	JUMP	?PRG187
+?PRG185:	PRINTD	VILLAIN-PER
+?PRG187:	PRINTR	" posed as a ghost!"""
+?CCL174:	EQUAL?	OBJ,DINNER,DINNER-2 \?CCL190
+	LESS?	PRESENT-TIME,DINNER-TIME \?CCL193
+	PRINTI	"""Tonight's a dinner in honor of "
+	EQUAL?	PER,BUTLER \?PRG200
+	PRINTI	"the late Lord "
+?PRG200:	PRINTI	"Lionel's birthday. In his will, he asked for these particular guests -- except "
+	EQUAL?	PER,FRIEND \?CCL204
+	PRINTI	"me"
+	JUMP	?PRG207
+?CCL204:	PRINTD	FRIEND
+?PRG207:	PRINTI	", of course. It's at eight o'clock"
+	EQUAL?	PER,BUTLER /?PRG213
+	PRINTI	" -- or whenever "
+	PRINTD	BUTLER
+	PRINTI	" gets 'round to it"
+?PRG213:	PRINTR	"."""
+?CCL193:	CALL	META-LOC,DINNER
+	EQUAL?	STACK,HERE \?CCL216
+	PRINTR	"""It looks delicious!"""
+?CCL216:	GETP	PER,P?LDESC
+	EQUAL?	STACK,10 \?PRG224
+	PRINTI	"""I'm enjoying"
+	JUMP	?PRG226
+?PRG224:	PRINTI	"""I enjoyed"
+?PRG226:	PRINTI	" it immensely."
+	ZERO?	MISSED-DINNER /?PRG232
+	PRINTI	" We started without you, as we assumed you were sleuthing."
+?PRG232:	PRINTR	""""
+?CCL190:	EQUAL?	OBJ,BRICKS,COFFIN,CRYPT /?PRG239
+	EQUAL?	OBJ,DUNGEON,IRON-MAIDEN,TOMB /?PRG239
+	EQUAL?	OBJ,WELL \?CCL235
+?PRG239:	PRINT	ANCIENT-SECRETS
+	CRLF	
+	RTRUE	
+?CCL235:	EQUAL?	OBJ,JEWEL \?CCL242
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	EQUAL?	PER,FRIEND \?CCL247
+	FSET?	EARRING,LOCKED \?CCL247
+	PRINTR	" says, ""Oh, thank you for finding it! I've looked everywhere!"""
+?CCL247:	CALL	META-LOC,JEWEL
+	EQUAL?	HERE,STACK \?PRG260
+	PRINTI	" looks at it with interest"
+	EQUAL?	PER,DEALER \?PRG262
+	PRINTI	", putting a monocle in one eye to see better"
+	JUMP	?PRG262
+?PRG260:	PRINTI	" listens to your description of it"
+?PRG262:	PRINTI	". But"
+	CALL	HE-SHE-IT,PER
+	PRINTI	" says"
+	CALL	HE-SHE-IT,PER
+	PRINTR	" can't identify it."
+?CCL242:	EQUAL?	OBJ,LAMP \?CCL265
+	PRINTI	"""I think "
+	PRINTD	BUTLER
+	PRINTI	" keeps"
+	CALL	IN-CASE-OF-BLACKOUT
+	RTRUE	
+?CCL265:	EQUAL?	OBJ,LUGGAGE \?CCL269
+	IN?	LUGGAGE,BUTLER \?CCL269
+	PRINTI	"""Don't panic."
+	CALL	BOLITHO-WILL
+	PRINTR	"."""
+?CCL269:	EQUAL?	OBJ,MACE \?CCL277
+	PRINTI	"""That is a long story, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG284
+	PRINTC	46
+?PRG284:	PRINTI	" When Lord Lionel was alive, he had a pit bulldog to protect the castle. A right vicious brute it was, too! Several times it attacked the servants, so the master gave out these "
+	PRINTD	MACE
+	PRINTR	"s. Just press the button on the side, and it sprays something foul. It always worked a treat on that wretched dog, and I daresay it could stop a ghost just as well."""
+?CCL277:	EQUAL?	OBJ,NECKLACE-OF-D \?CCL287
+	PRINTI	"""The police returned it to "
+	EQUAL?	PER,LORD \?PRG295
+	PRINTI	"me"
+	JUMP	?PRG297
+?PRG295:	PRINTD	LORD
+?PRG297:	PRINTR	" after the inquest."""
+?CCL287:	CALL	SECRET-PASSAGE-OR-DOOR?,OBJ
+	ZERO?	STACK /?CCL300
+	CALL	TELL-ABOUT-OBJECT,PER,PASSAGE,FOUND-PASSAGES
+	RSTACK	
+?CCL300:	EQUAL?	OBJ,SKELETON \?CCL302
+	PRINTI	"""Ugh! Those must be the bones of the "
+	PRINTD	GHOST-OLD
+	PRINTR	"!"""
+?CCL302:	CALL	TREASURE-FOUND?,OBJ,PER
+	ZERO?	STACK \TRUE
+	EQUAL?	OBJ,YOUR-ROOM \?CCL308
+	PRINTR	"""It's fortunate that one bedroom was available for you."""
+?CCL308:	EQUAL?	OBJ,CASTLE /?PRG315
+	IN?	OBJ,ROOMS \?CCL312
+?PRG315:	PRINTI	"""Oh, it is a lovely piece of real estate, "
+	EQUAL?	PER,FRIEND \?PRG322
+	PRINTI	"isn't it"
+	JUMP	?PRG324
+?PRG322:	PRINTI	"what"
+?PRG324:	PRINTC	63
+	EQUAL?	PER,DOCTOR,PAINTER,DEALER \?PRG330
+	PRINTI	" Almost a shame to admit riffraff on weekends."
+?PRG330:	PRINTR	""""
+?CCL312:	IN?	OBJ,PER \FALSE
+	PRINTI	"""I have it right here, "
+	CALL	TITLE-NAME
+	ZERO?	STACK /?PRG340
+	PRINTC	46
+?PRG340:	PRINTR	""""
+
+
+	.FUNCT	SHOWING-CLUE?,OBJ
+	EQUAL?	OBJ,CLUE-1,CLUE-2 /TRUE
+	EQUAL?	OBJ,CLUE-3,CLUE-4 /TRUE
+	EQUAL?	OBJ,MAGAZINE \FALSE
+	EQUAL?	VARIATION,PAINTER-C /TRUE
+	RFALSE	
+
+
+	.FUNCT	TREASURE-FOUND?,OBJ,PER,X
+	EQUAL?	OBJ,TREASURE /?CCL3
+	EQUAL?	OBJ,INKWELL \FALSE
+	IN?	MOONMIST,INKWELL \FALSE
+?CCL3:	FCLEAR	OBJ,SECRETBIT
+	PRINTI	"""That must be the "
+	PRINTD	ARTIFACT
+	PRINTC	33
+	CALL	TELL-STOP-SEARCHING?,PER >X
+	PRINTI	"""
+"
+	SET	'PER,FRIEND
+	IN?	PER,HERE /?CCL14
+	SET	'PER,LORD
+	IN?	PER,HERE \?CND13
+?CCL14:	EQUAL?	PER,CONFESSED /?CND13
+	PUTP	PER,P?LINE,0
+	CALL	THIS-IS-IT,PER
+	PRINTI	"""That's super!"" adds "
+	PRINTD	PER
+	PRINTI	". ""We can't thank you enough!"
+	ZERO?	X \?PRG23
+	CALL	TELL-STOP-SEARCHING?,PER >X
+?PRG23:	PRINTI	"""
+"
+?CND13:	IN?	SEARCHER,HERE \?CND25
+	ZERO?	X \?CND25
+	CALL	TELL-STOP-SEARCHING?,SEARCHER,TRUE-VALUE,TRUE-VALUE
+	ZERO?	STACK /?CND25
+	PRINTI	""" says "
+	PRINTD	SEARCHER
+	PRINTI	".
+"
+?CND25:	ZERO?	TREASURE-FOUND \TRUE
+	CALL	CONGRATS,ARTIFACT
+	RTRUE	
+
+
+	.FUNCT	TELL-STOP-SEARCHING?,PER,COMMA=0,NOSP=0,OBJ
+	EQUAL?	PER,SEARCHER \FALSE
+	GETP	PER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >OBJ
+	GET	OBJ,GOAL-FUNCTION
+	EQUAL?	STACK,X-SEARCHES \FALSE
+	PUT	OBJ,GOAL-FUNCTION,NULL-F
+	ZERO?	NOSP \?PRG11
+	PRINTC	32
+	JUMP	?PRG13
+?PRG11:	PRINTC	34
+?PRG13:	PRINTI	"Then that's the end of my searching"
+	ZERO?	COMMA /?PRG20
+	PRINTC	44
+	JUMP	?CND15
+?PRG20:	PRINTC	46
+?CND15:	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE >OBJ
+	ZERO?	OBJ /?CCL23
+	SUB	OBJ,1
+	GET	CHARACTER-TABLE,STACK
+	EQUAL?	PER,STACK /TRUE
+?CCL23:	CALL	ESTABLISH-GOAL,PER,SITTING-ROOM
+	RTRUE	
+
+
+	.FUNCT	GOOD-SHOW,PER,OBJ
+	EQUAL?	PER,GHOST-NEW,CONFESSED /FALSE
+	PRINTC	34
+	GETP	PER,P?CHARACTER
+	EQUAL?	VARIATION,STACK \?CCL7
+	PRINTI	"How nice"
+	JUMP	?PRG20
+?CCL7:	EQUAL?	PER,FRIEND \?CCL11
+	PRINTI	"That's keen"
+	JUMP	?PRG20
+?CCL11:	RANDOM	2
+	EQUAL?	STACK,1 \?PRG18
+	PRINTI	"Well done"
+	JUMP	?PRG20
+?PRG18:	PRINTI	"Good show"
+?PRG20:	PRINTI	"! You found "
+	CALL	PRINTA,OBJ
+	PRINTC	33
+	EQUAL?	OBJ,TREASURE \?PRG24
+	CALL	TELL-STOP-SEARCHING?,PER,TRUE-VALUE
+?PRG24:	PRINTI	""" says "
+	PRINTD	PER
+	PRINTR	"."
+
+
+	.FUNCT	COMMON-DESC,PER
+	PRINTI	"He's a "
+	EQUAL?	PER,DOCTOR \?PRG13
+	PRINTI	"middle-sized man in his fifties"
+	IN?	MUSTACHE,DOCTOR \?PRG11
+	PRINTI	", with spectacles and a grizzled mustache"
+?PRG11:	PRINTR	"."
+?PRG13:	PRINTI	"tall"
+	EQUAL?	PER,LORD \?CCL17
+	PRINTI	", handsome, dark-browed young man"
+	GRTR?	BED-TIME,PRESENT-TIME \?PRG39
+	PRINTI	" in dinner jacket and black tie"
+	JUMP	?PRG39
+?CCL17:	EQUAL?	PER,OFFICER \?CCL25
+	PRINTI	" blond"
+	GRTR?	BED-TIME,PRESENT-TIME \?PRG39
+	PRINTI	", sporting a white dinner jacket and scarlet cummerbund. He moves with the elegant swagger of a Guards officer and young-man-about-Mayfair, both of which he is"
+	JUMP	?PRG39
+?CCL25:	EQUAL?	PER,DEALER \?PRG39
+	PRINTI	", foppish art and antiques dealer"
+	FSET?	PER,MUNGBIT /?PRG39
+	PRINTI	". Despite his languid manner, you're aware of his penetrating glance. If you were buying a used car from this man, you'd want to check it out carefully"
+?PRG39:	PRINTR	"."
+
+
+	.FUNCT	COMMON-OTHER,PER,X=0,N
+	EQUAL?	PRSA,V?ASK /FALSE
+	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	EQUAL?	PER,DOCTOR /?CTR7
+	EQUAL?	PER,LORD,OFFICER,DEALER \?CCL8
+?CTR7:	CALL	COMMON-DESC,PER
+	JUMP	?CND6
+?CCL8:	EQUAL?	PER,GHOST-NEW /?CND6
+	GETP	PER,P?TEXT
+	PRINT	STACK
+	CRLF	
+?CND6:	IN?	PER,HERE \?CND14
+	FIRST?	PER >N \?CND14
+	FSET?	N,NDESCBIT /?CND14
+	CALL	CARRY-CHECK,PER
+	ZERO?	STACK /?CND14
+	SET	'X,TRUE-VALUE
+?CND14:	FSET?	PER,MUNGBIT \?CND21
+	ZERO?	X /?CND23
+	PRINTI	"And"
+?CND23:	ZERO?	X /?PRT27
+	PUSH	0
+	JUMP	?PRE29
+?PRT27:	PUSH	1
+?PRE29:	CALL	HE-SHE-IT,PER,STACK,STR?1
+	PRINTC	32
+	GETP	PER,P?LDESC
+	GET	LDESC-STRINGS,STACK
+	PRINT	STACK
+	PRINTC	46
+	CRLF	
+?CND21:	EQUAL?	PER,DEALER \?CCL34
+	LOC	LORD
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \TRUE
+	GETP	DEALER,P?LDESC
+	EQUAL?	STACK,2 \TRUE
+	GETP	LORD,P?LINE
+	ZERO?	STACK \TRUE
+	PRINTI	"""Montague began appraising the art works in the castle for Uncle Lionel before he died,"" explains "
+	PRINTD	LORD
+	PRINTR	". ""I've asked him to continue and make up a catalog."""
+?CCL34:	EQUAL?	PER,PAINTER \TRUE
+	LOC	FRIEND
+	EQUAL?	STACK,HERE,PSEUDO-OBJECT \?CCL45
+	SET	'X,FRIEND
+	JUMP	?CND43
+?CCL45:	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER,PAINTER >X
+?CND43:	ZERO?	X /TRUE
+	LOC	PAINTER
+	EQUAL?	STACK,DRAWING-ROOM \TRUE
+	PRINTI	"""Vivien painted that portrait of "
+	PRINTD	LOVER
+	PRINTI	" Hallam, the girl who drowned in the castle well,"" says "
+	PRINTD	X
+	PRINTI	". She gestures to a framed picture hanging by the "
+	PRINTD	FIREPLACE
+	PRINTR	"."
+?CCL5:	EQUAL?	PRSO,PER \FALSE
+	EQUAL?	PRSA,V?SHOW \FALSE
+	CALL	PERFORM,V?ASK-ABOUT,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	UNSNOOZE,PER,NO-TELL?=0,RM,GT,C
+	GETP	PER,P?LDESC >C
+	EQUAL?	C,14 \?CCL3
+	CALL	FIX-MUSTACHE,PER
+	GETP	PER,P?CHARACTER >C
+	GET	GOAL-TABLES,C >GT
+	GET	GT,ATTENTION-SPAN
+	PUT	GT,ATTENTION,STACK
+	PUT	GT,GOAL-ENABLE,0
+	PUT	GT,GOAL-FUNCTION,X-RETIRES
+	PUT	GT,GOAL-S,TRUE-VALUE
+	ADD	1,C
+	GET	CHAR-ROOM-TABLE,STACK >RM
+	IN?	PER,RM /?CND4
+	CALL	ESTABLISH-GOAL,PER,RM
+?CND4:	EQUAL?	VARIATION,C \?CCL8
+	PUTP	PER,P?LDESC,4
+	JUMP	?CND6
+?CCL8:	PUTP	PER,P?LDESC,25
+?CND6:	FCLEAR	PER,MUNGBIT
+	CALL	META-LOC,PER >RM
+	IN?	PER,HERE \?CND9
+	ZERO?	NO-TELL? \?CND9
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" wakes up first. "
+	FSET?	RM,ONBIT /?CND9
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" turns on the light. "
+?CND9:	FSET	RM,ONBIT
+	RTRUE	
+?CCL3:	EQUAL?	C,19 \FALSE
+	GETP	PER,P?CHARACTER
+	GET	SHOT,STACK
+	ZERO?	STACK \FALSE
+	CALL	FIX-MUSTACHE,PER
+	CALL	QUEUE,I-COME-TO,0
+	CALL	I-COME-TO
+	RTRUE	
+
+
+	.FUNCT	FIX-MUSTACHE,PER
+	EQUAL?	PER,DOCTOR \FALSE
+	EQUAL?	VARIATION,DOCTOR-C \FALSE
+	FCLEAR	MUSTACHE,TAKEBIT
+	FSET	MUSTACHE,TRYTAKEBIT
+	RTRUE	
+
+
+	.FUNCT	OBJECT-PAIR-F,P1,P2,?TMP1
+	GETB	P-PRSO,P-MATCHLEN
+	LESS?	2,STACK \?CCL3
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(That's too many things to compare all at once!)"
+?CCL3:	GETB	P-PRSO,1 >?TMP1
+	GETB	P-PRSO,2
+	CALL	PERFORM,PRSA,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	CREW-GLOBAL-F,L
+	CALL	QUEUED?,I-TOUR
+	ZERO?	STACK /?CCL3
+	EQUAL?	PRSA,V?WALK-TO \?CCL3
+	GET	TOUR-PATH,TOUR-INDEX
+	CALL	PERFORM,PRSA,STACK
+	RTRUE	
+?CCL3:	CALL	ALL-TOGETHER-NOW?
+	ZERO?	STACK \?CCL7
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(The guests aren't all together!)"
+	CRLF	
+	RETURN	2
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL13
+	PRINTR	"There are seven people, not counting you."
+?CCL13:	EQUAL?	PRSA,V?HELLO \?PRG20
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" nods at you."
+?PRG20:	PRINTI	"You'd better stick to one guest at a time."
+	CRLF	
+	RETURN	2
+
+	.ENDI
diff --git a/people.zil b/people.zil
index d3178a1..8304702 100644
--- a/people.zil
+++ b/people.zil
@@ -2039,10 +2039,13 @@ CHE ,GHOST-NEW " is wearing heavy white makeup with black eyes and lips. ">
 	<RTRUE>)
        (<VERB? SMILE>		;"friendly"
 	<RTRUE>)
-       (<SPEAKING-VERB? ,GHOST-NEW>			;"friendly"
+       (<SPEAKING-VERB? ,GHOST-NEW>		;"friendly"
 	<RTRUE>)
-       (<VERB? ARREST MUNG PUSH SLAP STOP TAKE YELL>	;"unfriendly"
-	<RETURN 2>)>>
+       (<VERB? ARREST MUNG PUSH SLAP STOP YELL>	;"unfriendly"
+	<RETURN 2>)
+       (<VERB? TAKE>		;"unfriendly"
+	<COND (<NOT <FSET? ,GHOST-NEW ,MUNGBIT>>
+	       <RETURN 2>)>)>>
 
 <GLOBAL VILLAIN-KNOWN?:FLAG <>>
 
@@ -2067,10 +2070,12 @@ CHE ,GHOST-NEW " is wearing heavy white makeup with black eyes and lips. ">
 		      <PUTB <GETPT ,HANDS ,P?ADJECTIVE>
 			    ,OTHER-POSS-POS .ADJ>
 		      <PUTB <GETPT ,EYE ,P?ADJECTIVE>
+			    ,OTHER-POSS-POS .ADJ>
+		      <PUTB <GETPT ,OTHER-OUTFIT ,P?ADJECTIVE>
 			    ,OTHER-POSS-POS .ADJ>)>)>
 	<THIS-IS-IT ,VILLAIN-PER>
 	<FSET ,VILLAIN-PER ,MUNGBIT>
-	<PUTP ,VILLAIN-PER ,P?LDESC 19 ;"out cold" ;<GETP ,GHOST-NEW ,P?LDESC>>
+	<PUTP ,VILLAIN-PER ,P?LDESC 19 ;"out cold">
 	<SETG VILLAIN-KNOWN? T>
 	<TELL
 "When you remove the " D ,COSTUME ", you discover " D ,VILLAIN-PER
@@ -2117,34 +2122,35 @@ CHE ,GHOST-NEW " is wearing heavy white makeup with black eyes and lips. ">
 	<SETG CLOCK-WAIT T>
 	<TELL "(There is no wig!)" CR>)
        (<VERB? EXAMINE LOOK-INSIDE>
+	<COND (<NOT <NOUN-USED? ,W?WIG>>
+	       <DESCRIBE-GOWN>
+	       <COND (<EQUAL? <LOC ,COSTUME> ,GHOST-NEW ,VILLAIN-PER>
+		      <TELL " It's on">)
+		     (T <TELL
+" When you hold it up, you can see it would fit">)>
+	       <TELL " a ">
+	       <COND (<EQUAL? ,VARIATION ,LORD-C ,FRIEND-C ,DOCTOR-C>
+		      <TELL "person of average height.">)
+		     (T ;<EQUAL? ,VARIATION ;,DEALER-C ,PAINTER-C ;,OFFICER-C>
+		      <TELL "tall person.">)>
+	       <CRLF>)>
 	<COND (<AND <NOT <NOUN-USED? ,W?GOWN>>
 		    <NOT <EQUAL? ,VARIATION ,LORD-C>>>
 	       <TELL
 "It's obvious that the wig was designed to resemble " 'LOVER "'s long, flowing
-hair.">
+hair." CR>
 	       <COND (<NOT <EQUAL? <LOC ,COSTUME> ,GHOST-NEW ,VILLAIN-PER>>
-		      <TELL " Inside, you notice several individual ">
+		      <TELL "Inside, you notice several individual ">
 		      <COND (<EQUAL? ,VARIATION ,FRIEND-C> <TELL "red">)
 			    (<EQUAL? ,VARIATION ,DOCTOR-C> <TELL "grayish">)
-			    ;(<EQUAL?,VARIATION ,DEALER-C><TELL "sandy-brown">)
+			    ;(<EQUAL?,VARIATION,DEALER-C><TELL "sandy-brown">)
 			    (T ;<EQUAL? ,VARIATION ,PAINTER-C> <TELL "tawny">)
-			    ;(<EQUAL?,VARIATION,OFFICER-C><TELL "dark blond">)>
+			    ;(<EQUAL?,VARIATION,OFFICER-C><TELL"dark blond">)>
 		      <TELL " hairs, the same color as ">
 		      <COND ;(<EQUAL? ,VARIATION ,LORD-C> <TELL 'LOVER>)
 			    (T <TELL D <GET ,CHARACTER-TABLE ,VARIATION>>)>
-		      <TELL "'s hair.">)>
-	       <CRLF>)>
-	<COND (<NOT <NOUN-USED? ,W?WIG>>
-	       <DESCRIBE-GOWN>
-	       <COND (<EQUAL? <LOC ,COSTUME> ,GHOST-NEW ,VILLAIN-PER>
-		      <TELL " It's on a ">)
-		     (T <TELL
-" When you hold it up, you can see it would fit a ">)>
-	       <COND (<EQUAL? ,VARIATION ,LORD-C ,FRIEND-C ,DOCTOR-C>
-		      <TELL "person of average height." CR>)
-		     (T ;<EQUAL? ,VARIATION ;,DEALER-C ,PAINTER-C ;,OFFICER-C>
-		      <TELL "tall person." CR>)>)>
-	<CONGRATS ,COSTUME>
+		      <TELL "'s hair." CR>
+		      <CONGRATS ,COSTUME>)>)>
 	<RTRUE>)
        ;(<VERB? FIND>
 	<COND (<IN? ,COSTUME ,HERE>
@@ -2157,7 +2163,9 @@ hair.">
 	       <PERFORM ,V?UNDRESS ,GHOST-NEW>
 	       <RTRUE>)>)
        (<OR <VERB? WEAR>
-	    <AND <VERB? PUT> <FSET? ,PRSI ,PERSONBIT>>>
+	    <AND <VERB? PUT>
+		 <T? ,PRSI>
+		 <FSET? ,PRSI ,PERSONBIT>>>
 	<WEAR-SCARE>)>>
 
 <ROUTINE WEAR-SCARE ()
diff --git a/places.zap b/places.zap
new file mode 100644
index 0000000..fe87264
--- /dev/null
+++ b/places.zap
@@ -0,0 +1,216 @@
+
+
+	.FUNCT	NULL-F,A1,A2
+	RFALSE	
+
+
+	.FUNCT	DOOR-ROOM,RM,DR,P=0,TBL
+?PRG1:	NEXTP	RM,P >P
+	ZERO?	P /FALSE
+	LESS?	P,LOW-DIRECTION /FALSE
+	GETPT	RM,P >TBL
+	PTSIZE	TBL
+	EQUAL?	DEXIT,STACK \?PRG1
+	GETB	TBL,DEXITOBJ
+	EQUAL?	DR,STACK \?PRG1
+	GETB	TBL,REXIT
+	RSTACK	
+
+
+	.FUNCT	FIND-FLAG,RM,FLAG,EXCLUDED=0,O
+	FIRST?	RM >O /?PRG1
+?PRG1:	ZERO?	O /FALSE
+	FSET?	O,FLAG \?CCL7
+	FSET?	O,INVISIBLE /?CCL7
+	EQUAL?	O,EXCLUDED /?CCL7
+	RETURN	O
+?CCL7:	NEXT?	O >O /?PRG1
+	JUMP	?PRG1
+
+
+	.FUNCT	FIND-FLAG-NOT,RM,FLAG,O
+	FIRST?	RM >O /?PRG1
+?PRG1:	ZERO?	O /FALSE
+	FSET?	O,FLAG /?CCL7
+	FSET?	O,INVISIBLE /?CCL7
+	RETURN	O
+?CCL7:	NEXT?	O >O /?PRG1
+	JUMP	?PRG1
+
+
+	.FUNCT	FIND-FLAG-LG,RM,FLAG,FLAG2=0,TBL,O,CNT=0,SIZE
+	GETPT	RM,P?GLOBAL >TBL
+	ZERO?	TBL /FALSE
+	PTSIZE	TBL
+	SUB	STACK,1 >SIZE
+?PRG4:	GETB	TBL,CNT >O
+	FSET?	O,FLAG \?CCL8
+	FSET?	O,INVISIBLE /?CCL8
+	ZERO?	FLAG2 /?CTR7
+	FSET?	O,FLAG2 \?CCL8
+?CTR7:	RETURN	O
+?CCL8:	IGRTR?	'CNT,SIZE \?PRG4
+	RFALSE	
+
+
+	.FUNCT	FIND-FLAG-HERE,FLAG,NOT1=0,NOT2=0,O
+	FIRST?	HERE >O /?PRG1
+?PRG1:	ZERO?	O /FALSE
+	FSET?	O,FLAG \?CCL7
+	FSET?	O,INVISIBLE /?CCL7
+	EQUAL?	O,NOT1,NOT2 /?CCL7
+	RETURN	O
+?CCL7:	NEXT?	O >O /?PRG1
+	JUMP	?PRG1
+
+
+	.FUNCT	FIND-FLAG-HERE-NOT,FLAG,NFLAG,NOT2=0,O
+	FIRST?	HERE >O /?PRG1
+?PRG1:	ZERO?	O /FALSE
+	FSET?	O,FLAG \?CCL7
+	FSET?	O,NFLAG /?CCL7
+	FSET?	O,INVISIBLE /?CCL7
+	EQUAL?	O,NOT2 /?CCL7
+	RETURN	O
+?CCL7:	NEXT?	O >O /?PRG1
+	JUMP	?PRG1
+
+
+	.FUNCT	LEVER-F,X=0
+	FSET?	HERE,SECRETBIT \?CCL3
+	CALL	FIND-FLAG-LG,HERE,DOORBIT >X
+	JUMP	?CND1
+?CCL3:	EQUAL?	HERE,DUNGEON,LOVER-PATH \?CND1
+	SET	'X,PRIEST-DOOR
+?CND1:	ZERO?	X \?CCL7
+	CALL	NOT-HERE,LEVER
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?TURN,V?TAKE,V?RUB /?CTR8
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \?CCL9
+?CTR8:	FSET	X,TOUCHBIT
+	CALL	OPEN-CLOSE,X
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?OPEN \?CCL13
+	FSET	X,TOUCHBIT
+	CALL	OKAY,X,STR?66
+	RTRUE	
+?CCL13:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET	X,TOUCHBIT
+	CALL	OKAY,X,STR?61
+	RTRUE	
+
+
+	.FUNCT	OPEN-CLOSE,DR,SAY-NAME=1,X
+	ZERO?	SAY-NAME /?PRG5
+	CALL	START-SENTENCE,DR
+?PRG5:	PRINTI	" creaks "
+	FSET?	DR,OPENBIT \?CCL9
+	FCLEAR	DR,OPENBIT
+	CALL	THIS-IS-IT,DR
+	PRINTI	"closed.
+"
+	CALL	REMOVE-CAREFULLY
+	RTRUE	
+?CCL9:	CALL	DOOR-ROOM,HERE,DR >X
+	ZERO?	X /FALSE
+	FSET	DR,OPENBIT
+	CALL	THIS-IS-IT,X
+	PRINTI	"open, revealing"
+	FSET?	HERE,SECRETBIT \?CCL18
+	CALL	PRINTT,X
+	JUMP	?CND16
+?CCL18:	EQUAL?	HERE,LOVER-PATH \?PRG25
+	CALL	PRINTT,DUNGEON
+	JUMP	?CND16
+?PRG25:	PRINTI	" a "
+	PRINTD	PASSAGE
+?CND16:	FSET	DR,SEENBIT
+	FSET	X,SEENBIT
+	PRINTR	"!"
+
+
+	.FUNCT	OUTSIDE?,RM
+	CALL	GLOBAL-IN?,MOON,RM
+	RSTACK	
+
+
+	.FUNCT	WINDOW-F
+	EQUAL?	PRSA,V?UNLOCK /?CTR2
+	EQUAL?	PRSA,V?LOCK,V?CLOSE,V?OPEN \?CCL3
+?CTR2:	EQUAL?	HERE,DRIVEWAY /?CTR7
+	LOC	PLAYER
+	EQUAL?	STACK,CAR \?CCL8
+?CTR7:	CALL	NO-NEED
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?OPEN \?CCL12
+	PRINTR	"The night air is too damp and chilly."
+?CCL12:	CALL	ALREADY,WINDOW,STR?61
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?THROUGH,V?LEAVE,V?DISEMBARK \?CCL16
+	PRINTR	"It's closed tight against the mist."
+?CCL16:	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-THROUGH,V?LOOK-INSIDE \FALSE
+	LOC	WINNER
+	EQUAL?	STACK,CAR \?PRG24
+	CALL	V-LOOK
+	RSTACK	
+?PRG24:	PRINTR	"All you can see are grey shapes in the moonlight."
+
+
+	.FUNCT	CORRIDOR-LOOK,ITM=0,C,Z,COR,VAL,FOUND=0
+	GETP	HERE,P?CORRIDOR >C
+	ZERO?	C /FALSE
+?PRG5:	SUB	C,4 >Z
+	LESS?	Z,0 /?CCL9
+	SET	'COR,COR-4
+	JUMP	?CND7
+?CCL9:	SUB	C,2 >Z
+	LESS?	Z,0 /?CCL11
+	SET	'COR,COR-2
+	JUMP	?CND7
+?CCL11:	SUB	C,1 >Z
+	LESS?	Z,0 /?REP6
+	SET	'COR,COR-1
+?CND7:	CALL	CORRIDOR-CHECK,COR,ITM >VAL
+	ZERO?	FOUND \?CND14
+	SET	'FOUND,VAL
+?CND14:	SET	'C,Z
+	JUMP	?PRG5
+?REP6:	RETURN	FOUND
+
+
+	.FUNCT	CORRIDOR-CHECK,COR,ITM,CNT=1,PAST=0,FOUND=0,RM,OBJ
+?PRG1:	INC	'CNT
+	GET	COR,CNT >RM
+	ZERO?	RM /FALSE
+	EQUAL?	RM,ITM \?CCL7
+	GET	COR,PAST
+	RSTACK	
+?CCL7:	EQUAL?	ITM,ROOMS \?CCL9
+	CALL	THIS-IT?,RM
+	ZERO?	STACK /?CCL9
+	RETURN	RM
+?CCL9:	CALL	LIT?,RM
+	ZERO?	STACK \?CCL13
+	EQUAL?	ITM,ROOMS \?PRG1
+?CCL13:	EQUAL?	RM,HERE \?CCL17
+	SET	'PAST,1
+	JUMP	?PRG1
+?CCL17:	FIRST?	RM >OBJ \?PRG1
+?PRG19:	ZERO?	ITM /?CCL23
+	EQUAL?	OBJ,ITM \?CND21
+	GET	COR,PAST >FOUND
+	JUMP	?REP20
+?CCL23:	FSET?	OBJ,PERSONBIT \?CND21
+	CALL	IN-MOTION?,OBJ,TRUE-VALUE
+	ZERO?	STACK \?CND21
+	PRINTD	OBJ
+	PRINTI	" is in"
+	CALL	PRINTT,RM
+	PRINTC	46
+	CRLF	
+?CND21:	NEXT?	OBJ >OBJ /?KLU35
+?KLU35:	ZERO?	OBJ \?PRG19
+?REP20:	ZERO?	FOUND /?PRG1
+	RETURN	FOUND
+
+	.ENDI
diff --git a/places.zil b/places.zil
new file mode 100644
index 0000000..efb191d
--- /dev/null
+++ b/places.zil
@@ -0,0 +1,249 @@
+"PLACES for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+"The usual globals"
+
+<OBJECT ROOMS
+	(DESC "that")
+	(FLAGS NARTICLEBIT)>
+
+<ROUTINE NULL-F ("OPTIONAL" A1 A2)
+	<RFALSE>>
+
+<ROUTINE DOOR-ROOM (RM DR "AUX" (P 0) TBL)
+	 ;<COND (<==? .RM ,CAR>
+		<SET RM <GETP ,CAR ,P?STATION>>)>
+	 <REPEAT ()
+		 <COND (<OR <0? <SET P <NEXTP .RM .P>>>
+			    <L? .P ,LOW-DIRECTION>>
+			<RFALSE>)
+		       (<AND <==? ,DEXIT <PTSIZE <SET TBL <GETPT .RM .P>>>>
+			     <==? .DR <GET-DOOR-OBJ .TBL>>>
+			<RETURN <GET-REXIT-ROOM .TBL>>)>>>
+
+;<ROUTINE DOOR-DIR (RM DR "AUX" (P 0) TBL)
+	 <REPEAT ()
+		 <COND (<OR <0? <SET P <NEXTP .RM .P>>>
+			    <L? .P ,LOW-DIRECTION>>
+			<RFALSE>)
+		       (<AND <==? ,DEXIT <PTSIZE <SET TBL <GETPT .RM .P>>>>
+			     <==? .DR <GET-DOOR-OBJ .TBL>>
+			     <OR <EQUAL? .P ,P?NORTH ,P?EAST>
+				 <EQUAL? .P ,P?SOUTH ,P?WEST>>>
+			<RETURN .P>)>>>
+
+<ROUTINE FIND-FLAG (RM FLAG "OPTIONAL" (EXCLUDED <>) "AUX" O)
+	<SET O <FIRST? .RM>>
+	<REPEAT ()
+	 <COND (<NOT .O> <RETURN <>>)
+	       (<AND <FSET? .O .FLAG>
+		     <NOT <FSET? .O ,INVISIBLE>>
+		     <NOT <==? .O .EXCLUDED>>>
+		<RETURN .O>)
+	       (T <SET O <NEXT? .O>>)>>>
+
+<ROUTINE FIND-FLAG-NOT (RM FLAG ;"OPTIONAL" ;(EXCLUDED <>) "AUX" O)
+	<SET O <FIRST? .RM>>
+	<REPEAT ()
+	 <COND (<NOT .O> <RETURN <>>)
+	       (<AND <NOT <FSET? .O .FLAG>>
+		     <NOT <FSET? .O ,INVISIBLE>>
+		     ;<NOT <==? .O .EXCLUDED>>>
+		<RETURN .O>)
+	       (T <SET O <NEXT? .O>>)>>>
+
+<ROUTINE FIND-FLAG-LG (RM FLAG "OPTIONAL" (FLAG2 0) "AUX" TBL O (CNT 0) SIZE)
+	 <COND (<SET TBL <GETPT .RM ,P?GLOBAL>>
+		<SET SIZE <RMGL-SIZE .TBL>>
+		<REPEAT ()
+			<SET O <GET/B .TBL .CNT>>
+			<COND (<AND <FSET? .O .FLAG>
+				    <NOT <FSET? .O ,INVISIBLE>>
+				    <OR <0? .FLAG2> <FSET? .O .FLAG2>>>
+			       <RETURN .O>)
+			      (<IGRTR? CNT .SIZE> <RFALSE>)>>)>>
+
+<ROUTINE FIND-FLAG-HERE (FLAG "OPTIONAL" (NOT1 <>) (NOT2 <>) "AUX" O)
+	<SET O <FIRST? ,HERE>>
+	<REPEAT ()
+	 <COND (<NOT .O> <RETURN <>>)
+	       (<AND <FSET? .O .FLAG>
+		     <NOT <FSET? .O ,INVISIBLE>>
+		     <NOT <EQUAL? .O .NOT1 .NOT2>>>
+		<RETURN .O>)
+	       (T <SET O <NEXT? .O>>)>>>
+
+;<ROUTINE FIND-FLAG-HERE-BOTH (FLAG FLAG2 "OPTIONAL" (NOT2 <>) "AUX" O)
+	<SET O <FIRST? ,HERE>>
+	<REPEAT ()
+	 <COND (<NOT .O> <RETURN <>>)
+	       (<AND <FSET? .O .FLAG>
+		     <FSET? .O .FLAG2>
+		     <NOT <FSET? .O ,INVISIBLE>>
+		     <NOT <EQUAL? .O .NOT2>>>
+		<RETURN .O>)
+	       (T <SET O <NEXT? .O>>)>>>
+
+<ROUTINE FIND-FLAG-HERE-NOT (FLAG NFLAG "OPTIONAL" (NOT2 <>) "AUX" O)
+	<SET O <FIRST? ,HERE>>
+	<REPEAT ()
+	 <COND (<NOT .O> <RETURN <>>)
+	       (<AND <FSET? .O .FLAG>
+		     <NOT <FSET? .O .NFLAG>>
+		     <NOT <FSET? .O ,INVISIBLE>>
+		     <NOT <EQUAL? .O .NOT2>>>
+		<RETURN .O>)
+	       (T <SET O <NEXT? .O>>)>>>
+
+<OBJECT LEVER
+	(IN LOCAL-GLOBALS)
+	(DESC "lever")
+	(SYNONYM LEVER HANDLE)
+	(FLAGS TRYTAKEBIT SEENBIT)
+	(ACTION LEVER-F)>
+
+<ROUTINE LEVER-F ("AUX" (X <>))
+	<COND (<FSET? ,HERE ,SECRETBIT>
+	       <SET X <FIND-FLAG-LG ,HERE ,DOORBIT>>)
+	      (<EQUAL? ,HERE ,DUNGEON ,LOVER-PATH>
+	       <SET X ,PRIEST-DOOR>)>
+	<COND (<ZERO? .X>
+	       <NOT-HERE ,LEVER>
+	       <RTRUE>)
+	      (<VERB? MOVE MOVE-DIR PUSH RUB TAKE TURN>
+	       <FSET .X ,TOUCHBIT ;,SEENBIT>
+	       <OPEN-CLOSE .X>)
+	      (<VERB? OPEN>
+	       <FSET .X ,TOUCHBIT ;,SEENBIT>
+	       <OKAY .X "open">
+	       <RTRUE>)
+	      (<VERB? CLOSE>
+	       <FSET .X ,TOUCHBIT ;,SEENBIT>
+	       <OKAY .X "closed">
+	       <RTRUE>)>>
+
+<ROUTINE OPEN-CLOSE (DR "OPTIONAL" (SAY-NAME T) X)
+	<COND (.SAY-NAME
+	       <TELL CTHE .DR>)>
+	<TELL " creaks ">
+	<COND (<FSET? .DR ,OPENBIT>
+	       <FCLEAR .DR ,OPENBIT>
+	       <THIS-IS-IT .DR>
+	       <TELL "closed.|">
+	       <REMOVE-CAREFULLY>
+	       <RTRUE>)
+	      (<SET X <DOOR-ROOM ,HERE .DR>>
+	       <FSET .DR ,OPENBIT>
+	       <THIS-IS-IT .X>
+	       <TELL "open, revealing">
+	       <COND (<FSET? ,HERE ,SECRETBIT>
+		      <TELL THE .X>)
+		     (<==? ,HERE ,LOVER-PATH>
+		      <TELL THE ,DUNGEON>)
+		     (T
+		      <TELL " a " D ,PASSAGE>
+		      ;<PRINTB <GET <GETPT .X ,P?SYNONYM> 0>>)>
+	       <FSET .DR ,SEENBIT>
+	       <FSET .X ,SEENBIT>
+	       <TELL "!" CR>)>>
+
+<ROUTINE OUTSIDE? (RM) <GLOBAL-IN? ,MOON .RM>>
+
+;<OBJECT CAR-WINDOW
+	(IN CAR ;LOCAL-GLOBALS)
+	(DESC "car window")
+	(ADJECTIVE CAR)
+	(SYNONYM WINDOW WINDSHIELD WINDSCREEN DOOR)
+	(GENERIC GENERIC-WINDOW)
+	(FLAGS SEENBIT NDESCBIT)
+	(ACTION WINDOW-F)>
+
+<OBJECT WINDOW
+	(IN LOCAL-GLOBALS)
+	(DESC ;"room " "window")
+	;(ADJECTIVE ROOM)
+	(SYNONYM WINDOW WINDSHIELD WINDSCREEN DOOR)
+	;(GENERIC GENERIC-WINDOW)
+	(FLAGS SEENBIT NDESCBIT)
+	(ACTION WINDOW-F)>
+
+<ROUTINE WINDOW-F ()
+ <COND (<VERB? OPEN CLOSE LOCK UNLOCK>
+	<COND (<OR <EQUAL? ,HERE ,DRIVEWAY>
+		   <EQUAL? <LOC ,PLAYER> ,CAR>>
+	       ;<DOBJ? CAR-WINDOW>
+	       <NO-NEED ;"do that">
+	       ;<CAR-DOOR-PSEUDO>
+	       <RTRUE>)
+	      (<VERB? OPEN>
+	       <TELL "The night air is too damp and chilly." CR>)
+	      (T ;<VERB? CLOSE>
+	       <ALREADY ,WINDOW "closed">
+	       <RTRUE>)>)
+       (<VERB? DISEMBARK ;"CLIMB OUT" LEAVE THROUGH>
+	<TELL "It's closed tight against the mist." CR>)
+       (<VERB? LOOK-INSIDE LOOK-THROUGH LOOK-OUTSIDE>
+	<COND (<EQUAL? <LOC ,WINNER> ,CAR>
+	       <V-LOOK>
+	       ;<ROOM-PEEK <GETP ,CAR ,P?STATION> T>)
+	      (T <TELL
+"All you can see are grey shapes in the moonlight." CR>)>)>>
+
+"Other stuff"
+
+<GLOBAL COR-1 <PTABLE P?EAST P?WEST	CORR-1 JUNCTION 0>>
+<GLOBAL COR-2 <PTABLE P?NORTH P?SOUTH	GALLERY-CORNER GALLERY 0>>
+<GLOBAL COR-4 <PTABLE P?UP P?DOWN	LUMBER-ROOM TAMARA-ROOM 0>>
+
+<ROUTINE CORRIDOR-LOOK ("OPTIONAL" (ITM <>) ;(GRAB <>)
+			"AUX" C Z COR VAL (FOUND <>))
+  <COND ;(<EQUAL? .ITM ,PLAYER>
+	 <RFALSE>)
+        (<T? <SET C <GETP ,HERE ,P?CORRIDOR>>>
+	 <COND ;(<L? .C 0>
+		<CORRIDOR-CHECK <> .ITM .GRAB>)
+	       (T
+		<REPEAT ()
+			<COND (<NOT <L? <SET Z <- .C 4>> 0>>
+			       <SET COR ,COR-4>)
+			      (<NOT <L? <SET Z <- .C 2>> 0>>
+			       <SET COR ,COR-2>)
+			      (<NOT <L? <SET Z <- .C 1>> 0>>
+			       <SET COR ,COR-1>)
+			      (T <RETURN>)>
+			<SET VAL <CORRIDOR-CHECK .COR .ITM ;.GRAB>>
+			<COND (<NOT .FOUND> <SET FOUND .VAL>)>
+			<SET C .Z>>
+		.FOUND)>)>>
+
+<ROUTINE CORRIDOR-CHECK (COR ITM "AUX" (CNT 1) (PAST 0) (FOUND <>) RM OBJ)
+ <REPEAT ()
+	 <SET CNT <+ .CNT 1>>
+	 <SET RM <GET .COR .CNT>>
+	 <COND (<==? .RM 0>
+		<RFALSE>)
+	       (<==? .RM .ITM>
+		<RETURN <GET .COR .PAST> ;.RM>)
+	       (<AND <==? .ITM ,ROOMS>
+		     <THIS-IT? .RM>	;"ROOM-SEARCH">
+		<RETURN .RM>
+		;<COND (
+		       <SET FOUND .RM>
+		       <RETURN>)>)
+	       (<AND <ZERO? <LIT? .RM>>
+		     <NOT <==? .ITM ,ROOMS>>>
+		<AGAIN>)
+	       (<==? .RM ,HERE>
+		<SET PAST 1>)
+	       (<SET OBJ <FIRST? .RM>>
+		<REPEAT ()
+			<COND (.ITM
+			       <COND (<==? .OBJ .ITM>
+				      <SET FOUND <GET .COR .PAST>>
+				      <RETURN>)>)
+			      (<AND <FSET? .OBJ ,PERSONBIT>
+				    <NOT <IN-MOTION? .OBJ T>>>
+			       <TELL D ;CTHE .OBJ " is in" THE .RM "." CR>)>
+			<SET OBJ <NEXT? .OBJ>>
+			<COND (<NOT .OBJ> <RETURN>)>>
+		<COND (.FOUND <RETURN .FOUND>)>)>>>
diff --git a/syntax.zap b/syntax.zap
new file mode 100644
index 0000000..a92e0b4
--- /dev/null
+++ b/syntax.zap
@@ -0,0 +1,2 @@
+
+	.ENDI
diff --git a/syntax.zil b/syntax.zil
index 96da819..053684a 100644
--- a/syntax.zil
+++ b/syntax.zil
@@ -148,9 +148,9 @@ Copyright (C) 1986 Infocom, Inc.  All rights reserved."
 <VERB-SYNONYM COMPARE MATCH>
 <SYNTAX COMPARE OBJECT (MANY) = V-COMPARE PRE-COMPARE>
 <SYNTAX COMPARE OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
-	TO OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-COMPARE>
+	TO OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-COMPARE PRE-COMPARE>
 <SYNTAX COMPARE OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
-	WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-COMPARE>
+	WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-COMPARE PRE-COMPARE>
 
 <SYNTAX CONFRONT OBJECT (FIND PERSONBIT) WITH OBJECT = V-CONFRONT>
 
@@ -369,8 +369,8 @@ Copyright (C) 1986 Infocom, Inc.  All rights reserved."
 <SYNTAX KNOCK OBJECT ;(FIND PERSONBIT) (IN-ROOM ON-GROUND) ON OBJECT = V-SLAP>
 
 <VERB-SYNONYM LEAVE EXIT ;" EMERGE ABANDON EVACUATE DEBARK DISEMBARK SCRAM">
-<SYNTAX LEAVE = V-LEAVE>
-<SYNTAX LEAVE OBJECT = V-LEAVE>
+;<SYNTAX LEAVE = V-LEAVE>
+<SYNTAX LEAVE OBJECT (FIND RMUNGBIT) = V-LEAVE>
 <SYNTAX LEAVE FROM OBJECT = V-LEAVE>
 
 <SYNTAX LIE DOWN ;ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-LIE PRE-LIE>
@@ -838,7 +838,7 @@ Copyright (C) 1986 Infocom, Inc.  All rights reserved."
 <SYNTAX HEAD OBJECT THROUGH OBJECT = V-THROUGH PRE-THROUGH>
 <SYNTAX HEAD OBJECT TO OBJECT = V-DRIVE-TO PRE-DRIVE-TO>
 
-<SYNTAX WATCH OBJECT = V-EXAMINE>
+<SYNTAX WATCH OBJECT = V-EXAMINE PRE-EXAMINE>
 
 <VERB-SYNONYM WEAR DON>
 <SYNTAX WEAR OBJECT (FIND WEARBIT) (HAVE TAKE) = V-WEAR>
diff --git a/things.zap b/things.zap
new file mode 100644
index 0000000..e504568
--- /dev/null
+++ b/things.zap
@@ -0,0 +1,299 @@
+
+
+	.FUNCT	RANDOM-PSEUDO
+	EQUAL?	PRSA,V?TELL-ABOUT,V?LOOK-UNDER /FALSE
+	EQUAL?	PRSA,V?LOOK-BEHIND,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /FALSE
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?EXAMINE \?CCL7
+	CALL	NOTHING-SPECIAL
+	RTRUE	
+?CCL7:	CALL	WONT-HELP
+	RSTACK	
+
+
+	.FUNCT	LUGGAGE-F,RARG=0
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?MOVE,V?TAKE \?CCL5
+	EQUAL?	PRSO,LUGGAGE \?CCL5
+	LOC	LUGGAGE
+	FSET?	STACK,PERSONBIT /FALSE
+?CCL5:	LOC	LUGGAGE
+	FSET?	STACK,PERSONBIT \FALSE
+	CALL	NOT-HOLDING?,LUGGAGE
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	BROCHURE-F,X
+	EQUAL?	PRSA,V?TELL-ABOUT,V?READ,V?OPEN /?PRG8
+	EQUAL?	PRSA,V?LOOK-UP,V?LOOK-INSIDE,V?EXAMINE /?PRG8
+	EQUAL?	PRSA,V?DESCRIBE,V?ASK-FOR,V?ASK-CONTEXT-FOR /?PRG8
+	EQUAL?	PRSA,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT,V?ANALYZE \FALSE
+?PRG8:	PRINTI	"[You'll find the "
+	PRINTD	BROCHURE
+	PRINTI	" in your "
+	PRINTD	MOONMIST
+	PRINTR	" package.]"
+
+
+	.FUNCT	BLOWGUN-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	CALL	QUEUED?,I-SHOT
+	ZERO?	STACK /?PRG9
+	PRINTR	"It's pointing right at you!"
+?PRG9:	PRINTR	"It's a bamboo tube, two feet long and as thin as a small snake."
+?CCL3:	EQUAL?	PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE \?CCL12
+	FSET?	BLOWGUN,MUNGBIT \?PRG18
+	PRINTR	"It's empty."
+?PRG18:	PRINTI	"There's a"
+	PRINT	POISON-DART
+	PRINTR	" inside."
+?CCL12:	EQUAL?	PRSA,V?EMPTY \?CND20
+	SET	'PRSA,V?USE
+?CND20:	CALL	SHOOTING,BLOWGUN
+	RSTACK	
+
+
+	.FUNCT	NO-VIOLENCE?,OBJ,P
+	EQUAL?	PRSA,V?SLAP /?CTR2
+	EQUAL?	PRSA,V?SHOOT,V?KILL,V?ATTACK \?CCL3
+?CTR2:	SET	'P,PRSO
+	JUMP	?CND1
+?CCL3:	SET	'P,PRSI
+?CND1:	ZERO?	P \?CND6
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+?CND6:	ZERO?	P \?CND8
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(You didn't say whom to use it on!)"
+	CRLF	
+	RFALSE	
+?CND8:	EQUAL?	P,GHOST-NEW /?CCL14
+	ZERO?	VILLAIN-KNOWN? /?PRG19
+	EQUAL?	P,VILLAIN-PER /?CCL14
+?PRG19:	PRINT	NO-VIOLENCE
+	RFALSE	
+?CCL14:	FSET?	P,MUNGBIT \?CCL22
+	PRINT	NO-VIOLENCE
+	RFALSE	
+?CCL22:	EQUAL?	VILLAIN-PER,LOVER /?CCL26
+	CALL	QUEUED?,I-SHOT
+	ZERO?	STACK \?CCL26
+	PRINT	NO-VIOLENCE
+	RFALSE	
+?CCL26:	ZERO?	LIONEL-SPEAKS-COUNTER /?CCL32
+	CALL	TELL-BAD-FORM
+	RFALSE	
+?CCL32:	SET	'SHOOTER,FALSE-VALUE
+	CALL	QUEUE,I-SHOT,0
+	EQUAL?	VILLAIN-PER,LOVER \?CND33
+	CALL	GHOST-FLEES
+	RFALSE	
+?CND33:	FSET	P,MUNGBIT
+	FCLEAR	P,NDESCBIT
+	PUTP	P,P?LDESC,19
+	GETP	P,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,ATTENTION,0
+	EQUAL?	P,GHOST-NEW \?CND35
+	GETP	VILLAIN-PER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,ATTENTION,0
+?CND35:	EQUAL?	OBJ,CANE,WAR-CLUB,MACE \?CCL39
+	RANDOM	6
+	ADD	9,STACK
+	CALL	QUEUE,I-COME-TO,STACK
+	JUMP	?CND37
+?CCL39:	GETP	P,P?CHARACTER
+	PUT	SHOT,STACK,TRUE-VALUE
+	EQUAL?	P,GHOST-NEW \?CND37
+	GETP	VILLAIN-PER,P?CHARACTER
+	PUT	SHOT,STACK,TRUE-VALUE
+?CND37:	GETP	P,P?LINE
+	ADD	3,STACK
+	PUTP	P,P?LINE,STACK
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	IN?	BLOWGUN,P \?CND44
+	FSET	BLOWGUN,TAKEBIT
+	FCLEAR	BLOWGUN,NDESCBIT
+	MOVE	BLOWGUN,HERE
+	PRINTI	" drops"
+	CALL	PRINTT,BLOWGUN
+	PRINTI	" and"
+?CND44:	EQUAL?	OBJ,MACE \?PRG53
+	PRINTI	" claps both hands over"
+	CALL	HIM-HER-IT,P,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" mouth and nose. "
+	CALL	HIM-HER-IT,P,TRUE-VALUE,TRUE-VALUE
+	PRINTI	" face takes on a greenish pallor, and strangled noises issue from"
+	CALL	HIM-HER-IT,P,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" throat"
+	JUMP	?PRG55
+?PRG53:	PRINTI	" looks surprised and stunned. Then"
+	CALL	HIM-HER-IT,P,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" eyes flutter"
+?PRG55:	PRINTI	". Next moment"
+	CALL	HE-SHE-IT,P
+	PRINTI	" collapses "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	"!
+"
+	RETURN	P
+
+
+	.FUNCT	SHOOTING,OBJ,P=0
+	CALL	ATTACK-VERB?,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	NO-VIOLENCE?,OBJ
+	ZERO?	STACK /TRUE
+	EQUAL?	OBJ,BLOWGUN \TRUE
+	FSET	BLOWGUN,MUNGBIT
+	RTRUE	
+
+
+	.FUNCT	MACE-F,P=0
+	EQUAL?	PRSA,V?PUSH \?CCL3
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,PLAYER >P
+	CALL	QUEUED?,I-SHOT
+	ZERO?	STACK /?PRG8
+	ZERO?	P /?PRG8
+	CALL	PERFORM,V?SHOOT,P,MACE
+	RTRUE	
+?PRG8:	PRINTI	"The "
+	PRINTD	MACE
+	PRINTI	" emits a foul-smelling spray."
+	ZERO?	P /?CND10
+	PRINTC	32
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTR	" says, ""Have a care! You almost shot me!"""
+?CND10:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?SMELL \?CCL15
+	PRINTR	"It smells foul!"
+?CCL15:	CALL	SHOOTING,MACE
+	RSTACK	
+
+
+	.FUNCT	NECKLACE-OF-D-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUT-IN /?PRD7
+	EQUAL?	PRSA,V?PUT,V?HOLD-UP,V?COMPARE \?CCL5
+?PRD7:	EQUAL?	JEWEL,PRSO,PRSI \?CCL5
+	EQUAL?	PRSA,V?PUT-IN \?PRG12
+	MOVE	JEWEL,NECKLACE-OF-D
+?PRG12:	PRINTI	"The "
+	PRINTD	JEWEL
+	PRINTR	" fits the empty socket and matches the other red stones."
+?CCL5:	EQUAL?	PRSA,V?PUT-IN \?CCL15
+	EQUAL?	PRSI,NECKLACE-OF-D \FALSE
+	CALL	TOO-BAD-BUT,PRSO,STR?277
+	RSTACK	
+?CCL15:	EQUAL?	PRSA,V?FIX \?CCL20
+	CALL	YOU-CANT
+	RSTACK	
+?CCL20:	EQUAL?	PRSA,V?EXAMINE \?CCL22
+	PRINTI	"It's a slender string of small, sparkling red, nonprecious stones. You notice that"
+	PRINT	CLASP-MUNGED
+	PRINTI	", as if the clasp had been pulled open by force."
+	IN?	JEWEL,NECKLACE-OF-D /?CND25
+	PRINTR	" You also notice an empty socket or setting, from which one of the red stones is missing."
+?CND25:	CRLF	
+	RTRUE	
+?CCL22:	EQUAL?	PRSA,V?WEAR /?CCL31
+	EQUAL?	PRSA,V?PUT \FALSE
+	FSET?	PRSI,PERSONBIT \FALSE
+?CCL31:	CALL	WEAR-SCARE
+	RSTACK	
+
+
+	.FUNCT	LENS-2-F
+	EQUAL?	PRSA,V?COMPARE \FALSE
+	EQUAL?	LENS-1,PRSO,PRSI \FALSE
+	PRINTR	"As near as you can tell, they're a matched set."
+
+
+	.FUNCT	LENS-BOX-F,X
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	FSET?	LENS,SEENBIT \?CND4
+	LOC	LENS >X
+	ZERO?	X /?CND4
+	MOVE	LENS-1,X
+	REMOVE	LENS
+?CND4:	FSET	LENS-BOX,OPENBIT
+	PRINTI	"You lift the hinged cover. Inside is a bed of moist foam rubber"
+	FIRST?	LENS-BOX >X /?KLU16
+?KLU16:	ZERO?	X /?PRG14
+	PRINTI	", holding"
+	CALL	PRINT-CONTENTS,LENS-BOX
+?PRG14:	PRINTR	". It's obvious that the box will hold two lenses."
+
+
+	.FUNCT	LETTER-F
+	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE /?CCL3
+	EQUAL?	PRSA,V?SHOW \FALSE
+	FSET?	LETTER,TOUCHBIT /FALSE
+?CCL3:	CALL	NOT-HOLDING?,LETTER
+	ZERO?	STACK \TRUE
+	FSET	LETTER-MAID,SEENBIT
+	PRINTI	"It says,
+""Your Lordship:
+Following instructions in your late Uncle Lionel's will, the other servants and I have left the castle after sounding the dinner gong. We shall remain away until tomorrow morning.
+I regret to inform you that Gladys, the "
+	PRINTD	MAID
+	PRINTI	", will not return with the rest of us. She wrote a note to Your Lordship explaining the reason. She told me that she put it on the "
+	PRINTD	WRITING-DESK
+	PRINTI	" in the "
+	PRINTD	SITTING-ROOM
+	PRINTI	".
+(signed) "
+	PRINTD	BUTLER
+	PRINTR	"."""
+
+
+	.FUNCT	LETTER-MAID-F
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	FCLEAR	LETTER-MAID,NDESCBIT
+	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE /?CCL5
+	EQUAL?	PRSA,V?SHOW \FALSE
+	FSET?	LETTER-MAID,TOUCHBIT /FALSE
+?CCL5:	CALL	NOT-HOLDING?,LETTER-MAID
+	ZERO?	STACK \TRUE
+	PRINTI	"It says, ""Today while cleaning the room of a certain person who shall be nameless, I was SHOCKED to discover SUMMING DREDFUL!
+I hope I knows me place, Your Lordship, but I was brought up to be a PERFECKLY RESPECTABLE young woman, and I cannot go on working under the same roof where such WICKEDNESS takes place.
+I am not the type of girl given to idle gossip, so I will only say this. Maybe there is more reason than ANYONE SUSPECKS why that so-called ghost prowls about the castle at night, if you know what I mean.
+"
+	EQUAL?	VARIATION,LORD-C \?CCL16
+	PRINTI	"I am not the type who peeks through "
+	PRINTD	KEYHOLE
+	PRINTI	"s, either, but maybe it is high time someone did"
+	JUMP	?PRG26
+?CCL16:	EQUAL?	VARIATION,FRIEND-C \?CCL20
+	PRINTI	"Maybe you will also be surprised to learn that a certain pet shop in Frobzance sells more than just harmless puppies, kittens, and budgies"
+	JUMP	?PRG26
+?CCL20:	EQUAL?	VARIATION,PAINTER-C,DOCTOR-C \?PRG26
+	PRINTI	"Me Dad always says that the first sign of a nut case is when a person starts talking to hisself. Well, if you was to ask me, there is more than one way to talk to "
+	PRINTD	PLAYER
+	PRINTI	". Some does it on paper, and that is the type person to watch out for"
+?PRG26:	PRINTR	"!"""
+
+
+	.FUNCT	LETTER-DEE-F
+	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE /?CCL3
+	EQUAL?	PRSA,V?SHOW \FALSE
+	FSET?	LETTER-DEE,TOUCHBIT /FALSE
+?CCL3:	CALL	NOT-HOLDING?,LETTER-DEE
+	ZERO?	STACK \TRUE
+	PRINTI	"The writing is thick with loops and curls. It says,
+""Dear Uncle Lionel,
+I'm writing this on the train, coming up from London, where I saw Grandpapa in the clinic. He's so frightfully ill! I know "
+	PRINTD	DOCTOR
+	PRINTI	" is your old friend, but I can't help thinking his 'special treatments' are making Grandpapa worse, not better. Would you be a dear and find out just what he's doing there? I'd be ever so grateful!
+Love,
+"
+	PRINTD	LOVER
+	PRINTR	"."""
+
+	.ENDI
diff --git a/things.zil b/things.zil
new file mode 100644
index 0000000..0a0e32e
--- /dev/null
+++ b/things.zil
@@ -0,0 +1,432 @@
+"THINGS for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+<OBJECT PSEUDO-OBJECT
+	(IN LOCAL-GLOBALS)
+	(DESC "pseudo")		;"Place holder (MUST BE 6 CHARACTERS!!!!!)"
+	(ACTION NULL-F)		;"Place holder"
+	(FLAGS SEENBIT)>
+
+<ROUTINE RANDOM-PSEUDO ()
+ <COND (<VERB? ASK-ABOUT ASK-CONTEXT-ABOUT LOOK-BEHIND LOOK-UNDER TELL-ABOUT>
+	<RFALSE>)
+       (<VERB? EXAMINE LOOK-INSIDE SEARCH>
+	<NOTHING-SPECIAL>
+	<RTRUE>)
+       (T
+	<WONT-HELP>
+	;<TELL "You can't do anything useful with that." CR>)>>
+
+<OBJECT LUGGAGE
+	(IN CAR)
+	(DESC "your luggage")
+	(ADJECTIVE MY)
+	(SYNONYM LUGGAGE BAG CASE SUITCASE)
+	(FLAGS CONTBIT SEARCHBIT TAKEBIT NARTICLEBIT)
+	;(LDESC "Your luggage is here.")
+	(CAPACITY 88)
+	(SIZE 30)
+	(ACTION LUGGAGE-F)>
+
+<ROUTINE LUGGAGE-F ("OPTIONAL" (RARG <>))
+	 <COND (<REMOTE-VERB?> <RFALSE>)
+	       (<AND <VERB? TAKE MOVE>
+		     <EQUAL? ,PRSO ,LUGGAGE>
+		     <FSET? <LOC ,LUGGAGE> ,PERSONBIT>
+		     ;<NOT <IN? ,LUGGAGE ,PLAYER>>>
+		<RFALSE>)
+	       (<AND <FSET? <LOC ,LUGGAGE> ,PERSONBIT>
+		     <NOT-HOLDING? ,LUGGAGE>>
+		<RTRUE>)>>
+
+<OBJECT BROCHURE
+	(IN LUGGAGE)
+	(DESC "tourist brochure")
+	(ADJECTIVE TOURIST)
+	(SYNONYM BROCHURE BOOK BOOKS ;BOOKLET ;GUIDE)
+	(GENERIC GENERIC-BOOK)
+	(FLAGS TAKEBIT READBIT ;BURNBIT)
+	(SIZE 2)
+	(ACTION BROCHURE-F)>
+
+;<ROUTINE SCREENPLAY () <TELL "Screenplay by Jim Lawrence" CR>>
+
+<ROUTINE BROCHURE-F ("AUX" X)
+ <COND (<VERB? ANALYZE ASK-ABOUT ASK-CONTEXT-ABOUT ASK-CONTEXT-FOR ASK-FOR
+	       DESCRIBE EXAMINE LOOK-INSIDE LOOK-UP OPEN READ TELL-ABOUT>
+	<TELL
+"[You'll find the " D ,BROCHURE " in your " D ,MOONMIST " package.]" CR>
+	;"<TELL '|
+But this copy has a scribbled note:||'>
+	<SET X <RANDOM 2>>
+	<COND (<1? .X> <SCREENPLAY>)>
+	<TELL '  Directed by Stu Galley|'>
+	<COND (<NOT <1? .X>> <SCREENPLAY>)>")>>
+
+;<OBJECT PRINT-KIT
+	(IN LUGGAGE)
+	(DESC "fingerprint kit")
+	(ADJECTIVE FINGER)
+	(SYNONYM KIT)
+	(FLAGS TAKEBIT)
+	(SIZE 6)
+	(ACTION PRINT-KIT-F)>
+
+;<ROUTINE PRINT-KIT-F ()
+ <COND (<VERB? OPEN CLOSE>
+	<NO-NEED>)
+       (<VERB? USE>
+	<COND (,PRSI
+	       <PERFORM ,V?ANALYZE ,PRSI ,FINGERPRINTS>
+	       <RTRUE>)
+	      (T
+	       <SETG CLOCK-WAIT T>
+	       <TELL "(You didn't say what to use it on.)" CR>)>)>>
+
+<OBJECT BLOWGUN
+	(DESC "blowgun")
+	;(IN VILLAIN)
+	(ADJECTIVE BLOW ;POISON)
+	(SYNONYM GUN BLOWGUN ;DART)
+	(FLAGS WEAPONBIT TAKEBIT SECRETBIT)
+	(SIZE 9)
+	(ACTION BLOWGUN-F)>
+
+<ROUTINE BLOWGUN-F ()
+ <COND (<VERB? EXAMINE>
+	<COND ;(<NOUN-USED? ,W?DART>
+	       )
+	      (<QUEUED? ,I-SHOT>
+	       <TELL "It's pointing right at you!" CR>)
+	      (T <TELL
+"It's a bamboo tube, two feet long and as thin as a small snake." CR>)>)
+       (<VERB? LOOK-INSIDE LOOK-THROUGH ;OPEN>
+	<COND (<FSET? ,BLOWGUN ,MUNGBIT>
+	       <TELL "It's empty." CR>)
+	      (T <TELL "There's a" ,POISON-DART " inside." CR>)>)
+       (T
+	<COND (<VERB? EMPTY>
+	       <SETG PRSA ,V?USE>)>
+	<SHOOTING ,BLOWGUN>)>>
+
+<GLOBAL POISON-DART " poison dart">
+
+<ROUTINE NO-VIOLENCE? (OBJ "AUX" P)
+	<COND (<VERB? ATTACK KILL SHOOT SLAP>
+	       <SET P ,PRSO>)
+	      (T <SET P ,PRSI>)>
+	<COND (<ZERO? .P>
+	       <SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,WINNER>>)>
+	<COND (<ZERO? .P>
+	       <SETG CLOCK-WAIT T>
+	       <TELL "(You didn't say whom to use it on!)" CR>
+	       <RFALSE>)>
+	<COND (<AND <NOT <EQUAL? .P ,GHOST-NEW>>
+		    <OR <NOT ,VILLAIN-KNOWN?>
+			<NOT <EQUAL? .P ,VILLAIN-PER>>>>
+	       <TELL ,NO-VIOLENCE>
+	       <RFALSE>)
+	      (<FSET? .P ,MUNGBIT>
+	       <TELL ,NO-VIOLENCE>
+	       <RFALSE>)
+	      (<AND <NOT <EQUAL? ,VILLAIN-PER ,LOVER ;,LORD>>
+		    <NOT <QUEUED? ,I-SHOT>>>
+	       <TELL ,NO-VIOLENCE>
+	       <RFALSE>)
+	      (<NOT <ZERO? ,LIONEL-SPEAKS-COUNTER>>
+	       <TELL-BAD-FORM>
+	       <RFALSE>)
+	      (T
+	       <SETG SHOOTER <>>
+	       <QUEUE I-SHOT 0>
+	       <COND (<EQUAL? ,VILLAIN-PER ,LOVER ;,LORD>
+		      <GHOST-FLEES>
+		      <RFALSE>)>
+	       ;<COND (<==? .P ,FOLLOWER>
+		      <SETG FOLLOWER 0>)>
+	       <FSET .P ,MUNGBIT>
+	       <FCLEAR .P ,NDESCBIT>
+	       <PUTP .P ,P?LDESC 19 ;"out cold">
+	       <PUT <GT-O .P> ,ATTENTION 0>
+	       <COND (<==? .P ,GHOST-NEW>
+		      <PUT <GT-O ,VILLAIN-PER> ,ATTENTION 0>)>
+	       <COND (<EQUAL? .OBJ ,CANE ,WAR-CLUB ,MACE>
+		      <QUEUE I-COME-TO <+ 9 <RANDOM 6>>>)
+		     (T
+		      <PUT ,SHOT <GETP .P ,P?CHARACTER> T>
+		      <COND (<==? .P ,GHOST-NEW>
+			     <PUT ,SHOT <GETP ,VILLAIN-PER ,P?CHARACTER> T>)>)>
+	       <PUTP .P ,P?LINE <+ 3 <GETP .P ,P?LINE>>>
+	       <TELL CHE .P>
+	       <COND (<IN? ,BLOWGUN .P>
+		      <FSET ,BLOWGUN ,TAKEBIT>
+		      <FCLEAR ,BLOWGUN ,NDESCBIT>
+		      <MOVE ,BLOWGUN ,HERE>
+		      <TELL " drops" THE ,BLOWGUN " and">)>
+	       <COND (<==? .OBJ ,MACE>
+		      <TELL
+" claps both hands over" HIS .P " mouth and nose. " CHIS .P " face
+takes on a greenish pallor, and strangled noises issue from" HIS .P
+" throat">)
+		     (T <TELL
+" looks surprised and stunned. Then" HIS .P " eyes flutter">)>
+	       <TELL ". Next moment" HE .P " collapses " <GROUND-DESC> "!|">
+	       .P)>>
+
+<ROUTINE SHOOTING (OBJ "AUX" (P <>) ;GT)
+ <COND (<ATTACK-VERB? T>
+	<COND ;(<EQUAL? .P ,PLAYER>
+	       <HAR-HAR>
+	       <RTRUE>)
+	      (<ZERO? <NO-VIOLENCE? .OBJ>>
+	       <RTRUE>)>
+	<COND (<==? .OBJ ,BLOWGUN>
+	       <FSET ,BLOWGUN ,MUNGBIT>)>
+	;<COND (<T? <SET P <FIND-FLAG-HERE ,PERSONBIT ,PLAYER .P>>>
+	       <TELL
+CHE .P " can hardly believe" HIS .P " eyes. " CHE .P " holds you from behind,
+saying, \"I do believe you're mad! But we can detain you until the police
+arrive.\"|
+As indeed they do. You ought to be more careful with weapons!|">
+	       <FINISH>)>
+	<RTRUE>)>>
+
+<OBJECT MACE
+	(DESC "aerosol device")
+	(IN BUTLER)
+	(ADJECTIVE AEROSOL DOG ;DETERRENT)
+	(SYNONYM DEVICE SPRAY BUTTON WEAPON ;MACE)
+	(FLAGS TAKEBIT VOWELBIT WEAPONBIT NDESCBIT)
+	(TEXT "It says, \"JUST PRESS THE BUTTON.\"")
+	(SIZE 2)
+	(ACTION MACE-F)>
+
+<ROUTINE MACE-F ("AUX" (P <>))
+ <COND (<VERB? PUSH>
+	<SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,PLAYER>>
+	<COND (<AND <QUEUED? ,I-SHOT>
+		    <T? .P>>
+	       <PERFORM ,V?SHOOT .P ,MACE>
+	       <RTRUE>)>
+	<TELL "The " 'MACE " emits a foul-smelling spray.">
+	<COND (<T? .P>
+	       <TELL !\  CHE .P" says, \"Have a care! You almost shot me!\"">)>
+	<CRLF>)
+       (<VERB? SMELL>
+	<TELL "It smells foul!" CR>)
+       (T <SHOOTING ,MACE>)>>
+
+<OBJECT NECKLACE-OF-D
+	(IN LOCAL-GLOBALS)
+	(DESC "Deirdre's necklace")
+	(ADJECTIVE ;DEIRDRE DEE\'S HER RED)
+	(SYNONYM NECKLACE STRING SETTING SOCKET)
+	(FLAGS NARTICLEBIT TAKEBIT NDESCBIT ;WEARBIT CONTBIT SECRETBIT OPENBIT)
+	(CAPACITY 1)
+	(SIZE 5)
+	(ACTION NECKLACE-OF-D-F)>
+
+<GLOBAL CLASP-MUNGED " the lips of the clasp are sprung apart">
+
+<ROUTINE NECKLACE-OF-D-F ()
+ <COND (<VERB? OPEN CLOSE>
+	<YOU-CANT>)
+       (<AND <VERB? COMPARE HOLD-UP PUT PUT-IN>
+	     ;<EQUAL? ,VARIATION ,LORD-C>
+	     <EQUAL? ,JEWEL ,PRSO ,PRSI>>
+	<COND (<VERB? PUT-IN>
+	       <MOVE ,JEWEL ,NECKLACE-OF-D>)>
+	<TELL
+"The " 'JEWEL " fits the empty socket and matches the other red stones." CR>)
+       (<VERB? PUT-IN>
+	<COND (<IOBJ? NECKLACE-OF-D>
+	       <TOO-BAD-BUT ,PRSO "too big">)>)
+       (<VERB? FIX>
+	<YOU-CANT>)
+       (<VERB? EXAMINE>
+	<TELL
+"It's a slender string of small, sparkling red, nonprecious stones. You
+notice that" ,CLASP-MUNGED ", as if the clasp had been pulled open by
+force.">
+	<COND (<AND <NOT <IN? ,JEWEL ,NECKLACE-OF-D>>
+		    ;<EQUAL? ,VARIATION ,LORD-C>>
+	       <TELL
+" You also notice an empty socket or setting, from which one of the red stones
+is missing.">)>
+	<CRLF>)
+       (<OR <VERB? WEAR>
+	    <AND <VERB? PUT> <FSET? ,PRSI ,PERSONBIT>>>
+	<WEAR-SCARE>)>>
+
+<OBJECT JEWEL
+	(DESC "tiny red jewel")
+	(ADJECTIVE TINY RED ;GLITTERING MISSING)
+	(SYNONYM JEWEL SPECK GEM STONE)
+	(FLAGS TAKEBIT SEENBIT)
+	(SIZE 1)>
+[
+<OBJECT LENS
+	(IN LENS-BOX)
+	(DESC "contact lens")
+	(ADJECTIVE CONTACT FIRST)
+	(SYNONYM LENS LENSES)
+	(FLAGS TAKEBIT ;SEENBIT ;NDESCBIT WEARBIT TRANSBIT)
+	(SIZE 1)
+	;(ACTION LENS-F)>
+
+<OBJECT LENS-1
+	(DESC "first contact lens")
+	(ADJECTIVE FIRST CONTACT)
+	(SYNONYM LENS LENSES)
+	(GENERIC GENERIC-LENS)
+	(FLAGS TAKEBIT SEENBIT ;NDESCBIT WEARBIT TRANSBIT ;TOUCHBIT)
+	(SIZE 1)
+	;(ACTION LENS-F)>
+
+;<ROUTINE LENS-F ()
+ <COND (<VERB? WEAR>
+	<TELL "Your head starts to ache, so you remove it." CR>)>>
+
+<OBJECT LENS-2
+	(DESC "second contact lens")
+	(ADJECTIVE SECOND CONTACT)
+	(SYNONYM LENS LENSES)
+	(GENERIC GENERIC-LENS)
+	(FLAGS TAKEBIT ;SEENBIT ;NDESCBIT WEARBIT TRANSBIT ;TOUCHBIT)
+	(SIZE 1)
+	(ACTION LENS-2-F)>
+
+<ROUTINE LENS-2-F ()
+ <COND (<AND <VERB? COMPARE>
+	     <EQUAL? ,LENS-1 ,PRSO ,PRSI>>
+	<TELL "As near as you can tell, they're a matched set." CR>)
+       ;(T <LENS-F>)>>
+
+<OBJECT LENS-BOX
+	(DESC "small plastic box")
+	(ADJECTIVE SMALL PLASTIC LENS)
+        (SYNONYM BOX)
+	(GENERIC GENERIC-BOX)
+	(FLAGS NDESCBIT CONTBIT SEARCHBIT ;TRANSBIT SECRETBIT)
+	(CAPACITY 2)
+	(SIZE 3)
+	(ACTION LENS-BOX-F)>
+
+<ROUTINE LENS-BOX-F ("AUX" X)
+ <COND (<VERB? EXAMINE LOOK-INSIDE OPEN>
+	<COND (<AND <FSET? ,LENS ;-1 ,SEENBIT>
+		    <T? <SET X <LOC ,LENS>>>
+		    ;<NOT <IN? ,LENS ,LENS-BOX>>>
+	       <MOVE ,LENS-1 .X>
+	       <REMOVE ,LENS>)>
+	<FSET ,LENS-BOX ,OPENBIT>
+	<TELL
+"You lift the hinged cover. Inside is a bed of moist foam rubber">
+	<SET X <FIRST? ,LENS-BOX>>
+	<COND (<T? .X>
+	       <TELL ", holding">
+	       <PRINT-CONTENTS ,LENS-BOX>)>
+	<TELL
+". It's obvious that the box will hold two lenses." ;" You close it again."
+CR>)>>
+]
+<OBJECT LETTER
+	(IN BUTLER)
+	(DESC "butler's note")
+	(ADJECTIVE B\'S HIS JACK\'S ;"BUTLER BOLITHO JACK")
+	(SYNONYM ;LETTER NOTE NOTES)
+	(FLAGS SEENBIT NDESCBIT ;TAKEBIT READBIT)
+	(SIZE 2)
+	(ACTION LETTER-F)>
+
+<ROUTINE LETTER-F ()
+ <COND (<OR <VERB? EXAMINE LOOK-INSIDE READ>
+	    <AND <VERB? SHOW> <NOT <FSET? ,LETTER ,TOUCHBIT>>>>
+	<COND (<NOT-HOLDING? ,LETTER>
+	       <RTRUE>)>
+	<FSET ,LETTER-MAID ,SEENBIT>
+	<TELL
+"It says,|
+\"Your Lordship:|
+Following instructions in your late Uncle
+Lionel's will, the other servants and I have left the castle after sounding
+the dinner gong. We shall remain away until tomorrow morning.|
+I regret to inform you that Gladys, the " 'MAID ", will not return
+with the rest of us. She wrote a note to Your Lordship
+explaining the reason. She told me
+that she put it on the " 'WRITING-DESK " in the " 'SITTING-ROOM ".|
+(signed) " 'BUTLER ".\"" CR>)>>
+
+<OBJECT LETTER-MAID
+	(IN WRITING-DESK)
+	(DESC "maid's note")
+	(ADJECTIVE MAID\'S HER ;"MAID GLADYS")
+	(SYNONYM ;LETTER NOTE NOTES)
+	(FLAGS NDESCBIT ;TRYTAKEBIT TAKEBIT READBIT)
+	(SIZE 2)
+	(ACTION LETTER-MAID-F)>
+
+<ROUTINE LETTER-MAID-F ()
+ <COND (<REMOTE-VERB?>
+	<RFALSE>)>
+ <FCLEAR ,LETTER-MAID ,NDESCBIT>
+ <COND (<OR <VERB? EXAMINE LOOK-INSIDE READ>
+	    <AND <VERB? SHOW> <NOT <FSET? ,LETTER-MAID ,TOUCHBIT>>>>
+	<COND (<NOT-HOLDING? ,LETTER-MAID>
+	       <RTRUE>)>
+	<TELL
+"It says, \"Today while cleaning the room of a certain person who shall
+be nameless, I was SHOCKED to discover SUMMING DREDFUL!|
+I hope I knows me place, Your Lordship, but I was brought up to be a
+PERFECKLY RESPECTABLE young woman, and I cannot go on working under the
+same roof where such WICKEDNESS takes place.|
+I am not the type of girl given to idle gossip, so I will only say this.
+Maybe there is more reason than ANYONE SUSPECKS why that so-called ghost
+prowls about the castle at night, if you know what I mean.|">
+	<COND (<EQUAL? ,VARIATION ,LORD-C>
+	       <TELL
+"I am not the type who peeks through " 'KEYHOLE "s, either, but maybe it is
+high time someone did">)
+	      (<EQUAL? ,VARIATION ,FRIEND-C>
+	       <TELL
+"Maybe you will also be surprised to learn that a certain pet shop in
+Frobzance sells more than just harmless puppies, kittens, and budgies">)
+	      ;(<EQUAL? ,VARIATION ,DEALER-C>
+	       <TELL
+"I like a pretty picture meself, but at least I know what's mine and
+what's not">)
+	      (<EQUAL? ,VARIATION ,PAINTER-C ,DOCTOR-C>
+	       <TELL
+"Me Dad always says that the first sign of a nut case is when a person
+starts talking to hisself. Well, if you was to ask me, there is more than
+one way to talk to " 'PLAYER ". Some does it on paper, and that is the type
+person to watch out for">)
+	      ;(<EQUAL? ,VARIATION ,OFFICER-C>
+	       <TELL
+"I lay a wager meself now and again, but at least I use me own money">)>
+	<TELL "!\"" CR>)>>
+
+<OBJECT LETTER-DEE
+	;(IN BUTLER)
+	(DESC "Deirdre's note")
+	(ADJECTIVE DEE\'S HER ;"DEE DEIRDRE")
+	(SYNONYM NOTE NOTES)
+	(FLAGS NARTICLEBIT NDESCBIT SECRETBIT ;TAKEBIT READBIT)
+	(SIZE 2)
+	(ACTION LETTER-DEE-F)>
+
+<ROUTINE LETTER-DEE-F ()
+ <COND (<OR <VERB? EXAMINE LOOK-INSIDE READ>
+	    <AND <VERB? SHOW> <NOT <FSET? ,LETTER-DEE ,TOUCHBIT>>>>
+	<COND (<NOT-HOLDING? ,LETTER-DEE>
+	       <RTRUE>)>
+	<TELL
+"The writing is thick with loops and curls. It says,|
+\"Dear Uncle Lionel,|
+I'm writing this on the train, coming up from London, where I saw
+Grandpapa in the clinic. He's so frightfully ill! I know " 'DOCTOR " is
+your old friend, but I can't help thinking his 'special treatments' are
+making Grandpapa worse, not better. Would you be a dear and find out
+just what he's doing there? I'd be ever so grateful!|
+Love,|
+" 'LOVER ".\"" CR>)>>
diff --git a/tower.zap b/tower.zap
new file mode 100644
index 0000000..fc96de9
--- /dev/null
+++ b/tower.zap
@@ -0,0 +1,1309 @@
+
+
+	.FUNCT	TELL-IN-BROCHURE
+	PRINTI	"[This is described in the "
+	PRINTD	BROCHURE
+	PRINTR	".]"
+
+
+	.FUNCT	BROCHURE-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	CALL	TELL-IN-BROCHURE
+	RSTACK	
+?CCL3:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	MEMENTO-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	PRINTR	"But that would spoil the display!"
+?CCL3:	CALL	BROCHURE-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	OLD-GREAT-HALL-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTR	"Your footfalls echo across the ancient stone floor."
+?CCL3:	EQUAL?	RARG,P?WEST,P?UP \?CCL7
+	PRINT	STAIRS-UP-RIGHT
+	RTRUE	
+?CCL7:	ZERO?	RARG \FALSE
+	CALL	NOUN-USED?,W?DOOR
+	ZERO?	STACK /FALSE
+	EQUAL?	PRSA,V?UNLOCK \?CCL16
+	EQUAL?	HERE,OLD-GREAT-HALL \?CCL16
+	CALL	OKAY,PRSO,STR?68
+	RSTACK	
+?CCL16:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	CALL	CHECK-DOOR,PRSO
+	RSTACK	
+
+
+	.FUNCT	JUNCTION-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The two halves of "
+	PRINTD	CASTLE
+	PRINTR	" meet here, as the past meets the present."
+?CCL3:	EQUAL?	RARG,P?NORTH,P?DOWN \FALSE
+	PRINT	STAIRS-DOWN-LEFT
+	RTRUE	
+
+
+	.FUNCT	BASEMENT-ENTER
+	ZERO?	BRICKS-DOWN /?CCL3
+	RETURN	CRYPT
+?CCL3:	RETURN	DUNGEON
+
+
+	.FUNCT	BASEMENT-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The "
+	PRINTD	BASEMENT
+	PRINTI	" of the tower keep still holds traces of the medieval past -- such as an "
+	PRINTD	WELL
+	PRINTI	". The "
+	PRINTD	BASEMENT
+	PRINTI	" now stores both Lionel's expedition gear and the castle wine cellar"
+	EQUAL?	VARIATION,PAINTER-C \?PRG10
+	PRINTI	" (a rack full of wine bottles)"
+?PRG10:	PRINTI	".
+The brick walls are damp and mossy"
+	EQUAL?	VARIATION,FRIEND-C \?PRG18
+	FSET?	CLUE-4,TOUCHBIT \?PRG18
+	PRINTI	", and some bricks look loose"
+?PRG18:	PRINTR	". A stairway lies north, and doors lead east and west."
+?CCL3:	EQUAL?	RARG,P?NORTH,P?UP \FALSE
+	PRINT	STAIRS-UP-RIGHT
+	RTRUE	
+
+
+	.FUNCT	WINE-RACK-F,X
+	FCLEAR	WINE-RACK,NDESCBIT
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	IN?	BOTTLE,WINE-RACK \FALSE
+	CALL	NOUN-USED?,W?WINE
+	ZERO?	STACK /FALSE
+	CALL	PERFORM,PRSA,BOTTLE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	CALL	TELL-AS-WELL-AS,WINE-RACK,STR?254
+	RTRUE	
+
+
+	.FUNCT	BOTTLE-F
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CTR2
+	EQUAL?	PRSA,V?READ,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?CTR2:	CALL	NOT-HOLDING?,BOTTLE
+	ZERO?	STACK \TRUE
+	PRINTI	"The label says it's wine from a Cornish winery called Our Own Vintage."
+	EQUAL?	VARIATION,PAINTER-C \?CND10
+	PRINTR	" Someone has drawn a star in red ink over the word ""OUR."""
+?CND10:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?SHAKE,V?OPEN,V?MUNG /?CTR14
+	EQUAL?	PRSA,V?EMPTY,V?EAT,V?DRINK \?CCL15
+?CTR14:	EQUAL?	PRSO,BOTTLE \FALSE
+	PRINTR	"You instantly realize that you don't need any wine -- or any more, as the case may be."
+?CCL15:	EQUAL?	PRSA,V?FILL /?CTR23
+	EQUAL?	PRSA,V?PUT-IN \?CCL24
+	EQUAL?	PRSI,BOTTLE \?CCL24
+?CTR23:	CALL	TOO-BAD-BUT,BOTTLE,STR?61
+	RSTACK	
+?CCL24:	CALL	ATTACK-VERB?
+	ZERO?	STACK /FALSE
+	CALL	NO-VIOLENCE?,BOTTLE
+	RTRUE	
+
+
+	.FUNCT	BRICKS-D,X
+	PRINTI	"There's a "
+	PRINTD	BRICKS
+	ZERO?	BRICKS-DOWN /?PRG7
+	PRINTC	32
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	", and a hole"
+?PRG7:	PRINTR	" in the wall."
+
+
+	.FUNCT	BRICKS-F
+	EQUAL?	PRSA,V?SEARCH /?CTR2
+	EQUAL?	PRSA,V?RUB,V?KNOCK,V?EXAMINE \?CCL3
+?CTR2:	FCLEAR	BRICKS,NDESCBIT
+	FSET	BRICKS,SEENBIT
+	CALL	BRICKS-D
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TURN,V?TAKE /?CCL8
+	EQUAL?	PRSA,V?SLAP,V?PUSH,V?OPEN /?CCL8
+	EQUAL?	PRSA,V?MUNG,V?MOVE-DIR,V?MOVE \FALSE
+?CCL8:	EQUAL?	VARIATION,FRIEND-C \FALSE
+	ZERO?	BRICKS-DOWN \FALSE
+	FCLEAR	BRICKS,NDESCBIT
+	SET	'BRICKS-DOWN,TRUE-VALUE
+	FCLEAR	HOLE-IN-WALL,INVISIBLE
+	PRINTI	"You manage to pull them down into a pile "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTR	", making a large hole in the wall."
+
+
+	.FUNCT	HOLE-IN-WALL-F,RM
+	EQUAL?	PRSA,V?CLOSE \?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE,V?EXAMINE \?CCL5
+	EQUAL?	HERE,BASEMENT \?CCL8
+	PRINTR	"Through the dusty air, you can see only dark inside. But the hole looks big enough to climb through."
+?CCL8:	CALL	ROOM-PEEK,BASEMENT,TRUE-VALUE
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?THROUGH,V?DISEMBARK,V?BOARD \FALSE
+	EQUAL?	HERE,BASEMENT \?CCL15
+	SET	'RM,CRYPT
+	JUMP	?CND13
+?CCL15:	SET	'RM,BASEMENT
+?CND13:	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+
+
+	.FUNCT	WELL-F
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?PRG7
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-DOWN,V?EXAMINE \?CCL3
+?PRG7:	PRINTR	"It's deep and dark."
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL10
+	CALL	YOU-CANT
+	RSTACK	
+?CCL10:	EQUAL?	PRSA,V?THROUGH,V?CLIMB-DOWN,V?BOARD \?CCL12
+	PRINTI	"After a moment's thought, you remember "
+	PRINTD	LOVER
+	PRINTR	"'s fate and decide that's much too dangerous."
+?CCL12:	EQUAL?	PRSA,V?PUT-IN,V?PUT \FALSE
+	EQUAL?	PRSI,WELL \FALSE
+	PRINTI	"As you watch,"
+	CALL	PRINTT,PRSO
+	PRINTI	" disappears into the dark well shaft. After a second or two, you hear a remote splash.
+"
+	CALL	REMOVE-CAREFULLY,PRSO
+	RTRUE	
+
+
+	.FUNCT	CRYPT-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This space at the bottom of the tower is so gloomy and musty that you should be glad there's an exit to the "
+	PRINTD	BASEMENT
+	PRINTR	"."
+
+
+	.FUNCT	SKELETON-F
+	EQUAL?	PRSA,V?SEARCH-FOR /?CCL3
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-UNDER,V?EXAMINE \FALSE
+?CCL3:	IN?	NECKLACE,SKELETON \?PRG12
+	FSET?	NECKLACE,SECRETBIT \?PRG12
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?EXAMINE \?PRG12
+	CALL	DISCOVER,NECKLACE,SKELETON
+	RTRUE	
+?PRG12:	PRINTR	"Just old bones moldering in the dark."
+
+
+	.FUNCT	DUNGEON-F,ARG=0
+	EQUAL?	ARG,M-LOOK \FALSE
+	PRINTI	"In the northwest corner is an ancient door called a """
+	PRINTD	PRIEST-DOOR
+	PRINTI	"."" Another exit is east to the "
+	PRINTD	BASEMENT
+	PRINTR	"."
+
+
+	.FUNCT	IRON-MAIDEN-F,X
+	EQUAL?	PRSA,V?OPEN,V?CLOSE \?CCL3
+	PRINTR	"It has no door!"
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL7
+	PRINTR	"The inner surface of this medieval torture device is covered with spikes. The space is just big enough to hold an unfortunate victim."
+?CCL7:	EQUAL?	PRSA,V?PUT-IN \?CCL11
+	CALL	WONT-HELP
+	RSTACK	
+?CCL11:	EQUAL?	PRSA,V?RUB,V?KISS \?CCL13
+	PRINTR	"Ouch!"
+?CCL13:	EQUAL?	PRSA,V?THROUGH,V?CLIMB-ON,V?BOARD \FALSE
+	EQUAL?	WINNER,PLAYER /?PRG22
+	PRINTR	"""No thank you!"""
+?PRG22:	PRINTI	"As you step on the bottom of the "
+	PRINTD	IRON-MAIDEN
+	PRINTI	", it "
+	EQUAL?	HERE,DUNGEON \?CCL26
+	SET	'X,TOMB
+	PRINTI	"sinks downward into"
+	JUMP	?PRG31
+?CCL26:	SET	'X,DUNGEON
+	PRINTI	"rises again to"
+?PRG31:	CALL	PRINTT,X
+	PRINTI	". You step out again.
+"
+	MOVE	IRON-MAIDEN,X
+	CALL	GOTO,X
+	RTRUE	
+
+
+	.FUNCT	COFFIN-F
+	EQUAL?	PRSA,V?SIT,V?LIE,V?BOARD \?CCL3
+	FSET?	COFFIN,OPENBIT /FALSE
+	CALL	FIRST-YOU,STR?66,COFFIN
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL7
+	IN?	PLAYER,COFFIN \FALSE
+	PRINTR	"The air is stifling, so you open it again."
+?CCL7:	EQUAL?	PRSA,V?SEARCH-FOR /?CCL14
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL14:	IN?	CLUE-4,COFFIN \?CCL19
+	FSET?	CLUE-4,SECRETBIT \?CCL19
+	FSET?	COFFIN,OPENBIT /?CND22
+	CALL	FIRST-YOU,STR?66,COFFIN
+?CND22:	CALL	DISCOVER,CLUE-4,COFFIN
+	RTRUE	
+?CCL19:	IN?	PLAYER,COFFIN \FALSE
+	PRINTI	"All you can see is "
+	PRINTD	PLAYER
+	PRINTR	"."
+
+
+	.FUNCT	LOVER-PATH-LOSE-N
+	CALL	LOVER-PATH-LOSE,P?NORTH
+	RFALSE	
+
+
+	.FUNCT	LOVER-PATH-LOSE,X
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?256
+	PRINTI	" to follow the path, but it's too tricky in the dim light"
+	PRINTI	", so"
+	CALL	HE-SHE-IT,WINNER,0,STR?161
+	PRINTR	" back."
+
+
+	.FUNCT	LOVER-PATH-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This is an area behind shrubbery by a steep cliff overlooking the sea. In the dim light, you can barely see a path leading north along the cliff. "
+	CALL	LEVER-AND-DOOR,PRIEST-DOOR,P?OUT
+	RTRUE	
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?FOLLOW \FALSE
+	CALL	DO-WALK,P?NORTH
+	RTRUE	
+
+
+	.FUNCT	CORR-2-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The "
+	PRINTD	CORR-2
+	PRINTI	" is lined with doors. To the west, a heavy oak door with ancient wrought-iron fittings b"
+	FSET?	CREST,NDESCBIT \?PRG11
+	PRINTI	"ears"
+	JUMP	?PRG13
+?PRG11:	PRINTI	"ore"
+?PRG13:	PRINTI	" a bronze bas-relief of the "
+	PRINT	TRESYLLIAN
+	PRINTC	32
+	PRINTD	CREST
+	PRINTI	", marking this as the "
+	PRINTD	JACK-ROOM
+	PRINTR	" of the castle. Other doors lead to the northwest, east, northeast, and southeast. Stairways go up at the south end and down at the north end."
+?CCL3:	EQUAL?	RARG,P?NORTH,P?DOWN,P?OUT \?CCL16
+	PRINT	STAIRS-DOWN-LEFT
+	RTRUE	
+?CCL16:	EQUAL?	RARG,P?SOUTH,P?UP \FALSE
+	PRINT	STAIRS-UP-RIGHT
+	RTRUE	
+
+
+	.FUNCT	CREST-F
+	EQUAL?	PRSA,V?SEARCH,V?READ,V?EXAMINE \?CCL3
+	PRINTI	"The "
+	PRINTD	CREST
+	PRINTI	" features a wyvern with wings raised."
+	EQUAL?	VARIATION,LORD-C \?CND6
+	PRINTR	" It seems to be loosely mounted on the door."
+?CND6:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	VARIATION,LORD-C \FALSE
+	EQUAL?	PRSA,V?TAKE-OFF /?PRD16
+	EQUAL?	PRSA,V?TAKE,V?REMOVE,V?MOVE-DIR /?PRD16
+	EQUAL?	PRSA,V?MOVE,V?LOOK-UNDER,V?LOOK-BEHIND \?CCL14
+?PRD16:	IN?	JACK-TAPE,HERE /?CCL14
+	MOVE	JACK-TAPE,HERE
+	FSET	CREST,TAKEBIT
+	FCLEAR	CREST,NDESCBIT
+	PRINTI	"By removing the "
+	PRINTD	CREST
+	PRINTI	" from its place, you can see that a small "
+	PRINTD	JACK-TAPE
+	PRINTR	" is built into the door."
+?CCL14:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSI,JACK-TAPE,JACK-ROOM \FALSE
+	IN?	JACK-TAPE,HERE \FALSE
+	MOVE	JACK-TAPE,LOCAL-GLOBALS
+	FSET	CREST,NDESCBIT
+	PRINTI	"The "
+	PRINTD	CREST
+	PRINTI	" fits neatly over the "
+	PRINTD	JACK-TAPE
+	PRINTR	"."
+
+
+	.FUNCT	TV-PSEUDO
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?LAMP-ON,V?EXAMINE \?CCL3
+	PRINTR	"It's boring compared to this mystery."
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	CALL	ALREADY,PRSO,STR?65
+	RSTACK	
+
+
+	.FUNCT	JACK-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	CALL	SECRET-CHECK,RARG
+	ZERO?	STACK \TRUE
+	RFALSE	
+?CCL3:	EQUAL?	RARG,P?SW,P?IN,P?DOWN \?CCL8
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL8:	EQUAL?	RARG,M-LOOK \?CCL10
+	PRINTI	"The "
+	PRINTD	JACK-ROOM
+	PRINTI	" has a canopied four-poster bed on a circular dais, a marble-topped console and mirror, two oversized "
+	PRINTD	WARDROBE
+	PRINTI	"s, cheval glass, tallboy, commode, overstuffed chair and color TV."
+	CALL	OPEN-DOOR?,SECRET-JACK-DOOR
+	CRLF	
+	RTRUE	
+?CCL10:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?SEARCH,V?READ,V?EXAMINE \FALSE
+	EQUAL?	HERE,CORR-2 \FALSE
+	FSET?	CREST,NDESCBIT \FALSE
+	CALL	PERFORM,PRSA,CREST,PRSI
+	RTRUE	
+
+
+	.FUNCT	NOT-FOUND,OBJ,WT=0
+	EQUAL?	PRSA,V?WALK-TO \?CND1
+	SET	'WT,TRUE-VALUE
+?CND1:	ZERO?	WT \?PRG8
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(Y"
+	JUMP	?PRG10
+?PRG8:	PRINTI	"But y"
+?PRG10:	PRINTI	"ou haven't found"
+	CALL	HIM-HER-IT,OBJ
+	PRINTI	" yet!"
+	ZERO?	WT \?CND12
+	PRINTC	41
+?CND12:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	FREE-VERB?
+	CALL	GAME-VERB?
+	ZERO?	STACK \TRUE
+	CALL	DIVESTMENT?,PRSO
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?YES,V?YELL,V?WAIT-UNTIL /TRUE
+	EQUAL?	PRSA,V?WAIT-FOR,V?SORRY,V?SLAP /TRUE
+	EQUAL?	PRSA,V?SIT,V?SSHOW,V?SHOW /TRUE
+	EQUAL?	PRSA,V?SHOOT,V?READ,V?PUSH /TRUE
+	EQUAL?	PRSA,V?NO,V?LOOK-UP,V?LOOK-THROUGH /TRUE
+	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-ON,V?LOOK-INSIDE /TRUE
+	EQUAL?	PRSA,V?LOOK-DOWN,V?LOOK,V?LIE /TRUE
+	EQUAL?	PRSA,V?KILL,V?INVENTORY,V?HELLO /TRUE
+	EQUAL?	PRSA,V?EXAMINE,V?CHASTISE,V?ATTACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	SECRET-CHECK,RARG=0,OBJ=0,PER=0,RM,GT
+	EQUAL?	DISCOVERED-HERE,HERE \?CND1
+	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE
+	SUB	STACK,1
+	GET	CHARACTER-TABLE,STACK >PER
+	FSET?	PER,MUNGBIT /?CCL4
+	EQUAL?	PER,CONFESSED /?CCL4
+	CALL	META-LOC,PER
+	EQUAL?	STACK,HERE /?CND1
+?CCL4:	SET	'PER,FALSE-VALUE
+?CND1:	EQUAL?	RARG,M-BEG \?CCL10
+	EQUAL?	PRSA,V?WALK /FALSE
+	EQUAL?	PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \?CCL13
+	CALL	META-LOC,PRSO
+	EQUAL?	HERE,STACK \FALSE
+?CCL13:	ZERO?	PER /FALSE
+	GETP	PER,P?LINE
+	ZERO?	STACK \?PRD22
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \FALSE
+?PRD22:	EQUAL?	PER,PRSO,PRSI /FALSE
+	CALL	FREE-VERB?
+	ZERO?	STACK \FALSE
+	CALL	START-SENTENCE,PER
+	PRINTI	" prevents"
+	CALL	HIM-HER-IT,WINNER,FALSE-VALUE,TRUE-VALUE
+	PRINTR	" action!"
+?CCL10:	EQUAL?	RARG,M-EXIT \FALSE
+	ZERO?	PER /FALSE
+	CALL	GENERIC-CLOSET,0 >RM
+	GETP	PER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	EQUAL?	PRSA,V?WALK \?CCL34
+	SET	'OBJ,PRSO
+	JUMP	?CND32
+?CCL34:	EQUAL?	PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \?CND32
+	CALL	META-LOC,PRSO >OBJ
+	EQUAL?	OBJ,HERE /FALSE
+	EQUAL?	OBJ,LOCAL-GLOBALS \?CCL38
+	FSET?	PRSO,DOORBIT \FALSE
+?CCL38:	EQUAL?	PRSA,V?THROUGH \?CCL44
+	EQUAL?	OBJ,RM,LOCAL-GLOBALS \?CND45
+	GET	GT,GOAL-F
+	CALL	ESTABLISH-GOAL,PER,STACK
+	SET	'DISCOVERED-HERE,FALSE-VALUE
+	RFALSE	
+?CND45:	SET	'OBJ,P?OUT
+	JUMP	?CND32
+?CCL44:	CALL	DIR-FROM,HERE,OBJ >OBJ
+?CND32:	CALL	DIR-EQV?,HERE,OBJ,P?OUT
+	ZERO?	STACK /?CND47
+	GETP	PER,P?LINE
+	ZERO?	STACK /?CND47
+	CALL	HE-SHE-IT,PER,TRUE-VALUE
+	PRINTI	" blocks"
+	CALL	HIM-HER-IT,WINNER,FALSE-VALUE,TRUE-VALUE
+	PRINTR	" exit!"
+?CND47:	EQUAL?	PER,GHOST-NEW \?CND53
+	MOVE	PER,RM
+?CND53:	GET	GT,GOAL-F
+	CALL	ESTABLISH-GOAL,PER,STACK
+	SET	'DISCOVERED-HERE,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	OPEN-SECRET,ACT,OBJ,DR
+	PRINTI	"As"
+	CALL	HE-SHE-IT,WINNER,FALSE-VALUE,ACT
+	ZERO?	ACT \?CND3
+	PRINTC	32
+	CALL	VERB-PRINT
+?CND3:	GRTR?	OBJ,0 \?CCL9
+	LESS?	OBJ,256 \?CCL9
+	CALL	PRINTT,OBJ
+	FCLEAR	OBJ,SECRETBIT
+	JUMP	?PRG14
+?CCL9:	PRINT	OBJ
+?PRG14:	PRINTC	44
+	FSET?	DR,TOUCHBIT /?PRG37
+	FSET	DR,TOUCHBIT
+	CALL	QUEUE,I-FOUND-PASSAGES,1
+	CALL	GENERIC-CLOSET,0 >ACT
+	ZERO?	ACT /?CCL22
+	PUT	FOUND-PASSAGES,PLAYER-C,ACT
+	JUMP	?CND20
+?CCL22:	PUT	FOUND-PASSAGES,PLAYER-C,TRUE-VALUE
+?CND20:	FSET	PASSAGE,SEENBIT
+	EQUAL?	OBJ,HISTORY-BOOK \?PRG28
+	FSET	HISTORY-BOOK,TAKEBIT
+	FCLEAR	HISTORY-BOOK,TRYTAKEBIT
+	CALL	PRINTT,BOOKCASE
+	JUMP	?CND16
+?PRG28:	PRINTI	" a section of the "
+	EQUAL?	OBJ,WYVERN \?PRG35
+	PRINTD	WYVERN
+	JUMP	?CND16
+?PRG35:	PRINTI	"wall"
+	JUMP	?CND16
+?PRG37:	CALL	PRINTT,DR
+?CND16:	CALL	OPEN-CLOSE,DR,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	TELESCOPE-F
+	EQUAL?	PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE \?CCL3
+	PRINTR	"All you can see is the wall."
+?CCL3:	EQUAL?	PRSA,V?TURN,V?TAKE,V?PUSH /?CCL7
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE,V?AIM \FALSE
+?CCL7:	CALL	OPEN-SECRET,STR?259,TELESCOPE,SECRET-JACK-DOOR
+	RSTACK	
+
+
+	.FUNCT	LIBRARY-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?NE,P?IN \?CCL5
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL5:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"Dusty bookcases tower all around you. There is a table with reading lamp and chair, and an armchair near the "
+	PRINTD	FIREPLACE
+	PRINTC	46
+	CALL	OPEN-DOOR?,SECRET-LIBRARY-DOOR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	BOOKS-GLOBAL-F,X
+	EQUAL?	PRSA,V?TAKE /?PRG6
+	EQUAL?	PRSA,V?READ,V?OPEN,V?LOOK-INSIDE \?CCL3
+?PRG6:	PRINTR	"You pick one at random. It's frightfully obscure, so you put it back."
+?CCL3:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?EXAMINE \FALSE
+	PRINTI	"Some of the books date as far back as the 16th century. Although some are fiction, most of the books are scientific, covered with vellum or leather. Some are in foreign languages, and many have pictures of skulls or spirits."
+	CRLF	
+	CALL	FIND-FLAG,BOOKCASE,SECRETBIT >X
+	ZERO?	X /?CCL14
+	CALL	DISCOVER,X
+	RTRUE	
+?CCL14:	FIRST?	BOOKCASE >X \?CCL16
+	FSET	X,TAKEBIT
+	FCLEAR	X,NDESCBIT
+	CALL	START-SENTENCE,X
+	PRINTR	" catches your eye."
+?CCL16:	IN?	JOURNAL,TABLE-LIBRARY \TRUE
+	FCLEAR	JOURNAL,SECRETBIT
+	PRINTI	"There are many books of adventure and exploration, as well as the bound volumes of "
+	PRINTD	COUSIN
+	PRINTR	"'s expedition journals."
+
+
+	.FUNCT	BOOKCASE-F,X
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+	CALL	PERFORM,V?EXAMINE,BOOKS-GLOBAL
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TURN /?CCL5
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \FALSE
+?CCL5:	FSET?	SECRET-LIBRARY-DOOR,OPENBIT \FALSE
+	CALL	OPEN-SECRET,STR?261,BOOKCASE,SECRET-LIBRARY-DOOR
+	RTRUE	
+
+
+	.FUNCT	HISTORY-BOOK-F
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE /?CTR2
+	EQUAL?	PRSA,V?PUT-IN \?CCL3
+	EQUAL?	PRSI,BOOKCASE \?CCL3
+	MOVE	HISTORY-BOOK,BOOKCASE
+?CTR2:	CALL	OPEN-SECRET,STR?261,HISTORY-BOOK,SECRET-LIBRARY-DOOR
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE,V?READ /?CCL10
+	EQUAL?	PRSA,V?LOOK-UP,V?OPEN,V?EXAMINE \FALSE
+?CCL10:	IN?	HISTORY-BOOK,BOOKCASE \?CCL15
+	MOVE	HISTORY-BOOK,WINNER
+	CALL	OPEN-SECRET,STR?261,HISTORY-BOOK,SECRET-LIBRARY-DOOR
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?TAKE /FALSE
+	CALL	NOT-HOLDING?,HISTORY-BOOK
+	ZERO?	STACK \TRUE
+	PRINTI	"This book contains a detailed history of "
+	PRINTD	CASTLE
+	PRINTI	" and the "
+	PRINT	TRESYLLIAN
+	PRINTI	" family, including the bitter fate of Lady Arabella "
+	PRINT	TRESYLLIAN
+	PRINTI	", who was accused of infidelity and, by her husband's command, was buried alive in the wall of the tower keep. The book also describes the layout of the tower and residential wing, including the various rooms and "
+	PRINTD	PASSAGE
+	PRINTR	"s."
+
+
+	.FUNCT	JOURNAL-F
+	EQUAL?	PRSA,V?READ /?CCL3
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL3:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"This is a journal of Lionel's "
+	EQUAL?	VARIATION,LORD-C \?CCL12
+	PRINTI	"African"
+	JUMP	?PRG21
+?CCL12:	EQUAL?	VARIATION,DOCTOR-C \?PRG19
+	PRINTI	"Amazon"
+	JUMP	?PRG21
+?PRG19:	PRINTI	"South Pacific"
+?PRG21:	PRINTI	" expedition. As you leaf through it, "
+	EQUAL?	VARIATION,PAINTER-C \?PRG27
+	PRINTR	"no clues appear."
+?PRG27:	PRINTI	"you find a description of a treasure: "
+	EQUAL?	VARIATION,LORD-C \?CCL31
+	CALL	DESCRIBE-WAR-CLUB
+	PRINTR	"It also served as his royal sceptre."
+?CCL31:	EQUAL?	VARIATION,FRIEND-C \?PRG38
+	PRINTI	"a "
+	PRINTD	NECKLACE
+	PRINTR	"."
+?PRG38:	PRINTD	MOONMIST
+	PRINTI	", a drug taken from a rare Amazon plant called the Moonflower. The natives use it to tip their"
+	PRINT	POISON-DART
+	PRINTI	"s, but it could also be a valuable medicine. They insist that the plant should be gathered only when the "
+	PRINTD	MOON
+	PRINTI	" is misted over."
+	CRLF	
+	IN?	MOONMIST,INKWELL \TRUE
+	FSET?	INKWELL,TOUCHBIT \TRUE
+	FCLEAR	MOONMIST,SECRETBIT
+	RTRUE	
+
+
+	.FUNCT	OFFICE-F,ARG=0
+	EQUAL?	ARG,M-LOOK \FALSE
+	PRINTI	"This small office gets little light and less air. In one corner is a computer. By the "
+	PRINTD	FIREPLACE
+	PRINTI	", there is a tall "
+	PRINTD	DESK
+	PRINTI	" with"
+	FIRST?	DESK \?PRG10
+	CALL	PRINT-CONTENTS,DESK
+	PRINTI	", and"
+?PRG10:	PRINTR	" a tall stool."
+
+
+	.FUNCT	INKWELL-F
+	IN?	MOONMIST,INKWELL \FALSE
+	EQUAL?	PRSA,V?EMPTY \?CCL6
+	FCLEAR	MOONMIST,SECRETBIT
+	CALL	PERFORM,V?POUR,MOONMIST,PRSI
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CCL8
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL8:	FSET?	MOONMIST,SECRETBIT \FALSE
+	CALL	DISCOVER,MOONMIST
+	RTRUE	
+
+
+	.FUNCT	COMPUTER-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"It looks just like the computer you're using now!"
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF \?CCL7
+	CALL	OKAY,COMPUTER,STR?65
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?USE,V?PLAY,V?LAMP-ON \FALSE
+	CALL	HE-SHE-IT,COMPUTER,TRUE-VALUE
+	PRINTI	" starts running an interactive mystery from Infocom called """
+	EQUAL?	VARIATION,LORD-C \?CCL15
+	PRINTI	"DEADLINE (R"
+	JUMP	?PRG28
+?CCL15:	EQUAL?	VARIATION,PAINTER-C \?CCL19
+	PRINTI	"THE WITNESS (R"
+	JUMP	?PRG28
+?CCL19:	EQUAL?	VARIATION,FRIEND-C \?PRG26
+	PRINTI	"SUSPECT (TM"
+	JUMP	?PRG28
+?PRG26:	PRINTI	"BALLYHOO (TM"
+?PRG28:	PRINTI	"),"" but you decide that "
+	PRINTD	MOONMIST
+	PRINTR	" (TM) is easier, so you turn it off."
+
+
+	.FUNCT	TAMARA-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG,M-EXIT \?CCL3
+	CALL	SECRET-CHECK,RARG
+	RSTACK	
+?CCL3:	EQUAL?	RARG,P?SE,P?IN,P?DOWN \?CCL5
+	CALL	ENTER-PASSAGE
+	RTRUE	
+?CCL5:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The room is utterly feminine in its decoration, yet neater than you might expect for a young woman of "
+	PRINTD	FRIEND
+	PRINTI	"'s age. "
+	CALL	DRESSING-TABLE-TAM
+	CALL	OPEN-DOOR?,SECRET-TAMARA-DOOR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DRESSING-TABLE-TAM
+	PRINTI	"Even her "
+	PRINTD	DRESSING-TABLE-LG
+	PRINTI	" is in apple-pie order, with her hand mirror, comb, brush, makeup kit and "
+	PRINTD	JEWELRY-CASE
+	PRINTI	" all precisely placed on its gleaming surface."
+	RTRUE	
+
+
+	.FUNCT	TAMARA-BED-F,OBJ
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTD	FRIEND
+	PRINTR	" has a curtained four-poster bed on a circular dais. You notice that the knob on one bedpost looks loose."
+?CCL3:	EQUAL?	PRSA,V?SEARCH,V?LOOK-UNDER \?CCL7
+	CALL	FIND-FLAG,TAMARA-BED,NDESCBIT,PLAYER >OBJ
+	ZERO?	OBJ /FALSE
+	CALL	DISCOVER,OBJ
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?PUT-UNDER \?CCL12
+	EQUAL?	PRSI,TAMARA-BED \FALSE
+	FSET	PRSO,NDESCBIT
+	MOVE	PRSO,TAMARA-BED
+	CALL	OKAY
+	RSTACK	
+?CCL12:	EQUAL?	PRSA,V?TURN,V?RUB /?CCL17
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \FALSE
+?CCL17:	CALL	OPEN-SECRET,STR?161,STR?162,SECRET-TAMARA-DOOR
+	RSTACK	
+
+
+	.FUNCT	JEWELRY-CASE-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	EQUAL?	PRSO,JEWELRY-CASE \FALSE
+	CALL	YOU-SHOULDNT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	CALL	TELL-AS-WELL-AS,JEWELRY-CASE,STR?262
+	IN?	EARRING,JEWELRY-CASE \TRUE
+	FSET?	EARRING,NDESCBIT \TRUE
+	FCLEAR	EARRING,NDESCBIT
+	FCLEAR	EARRING,SECRETBIT
+	CALL	THIS-IS-IT,EARRING
+	PRINTI	"Almost the first thing you notice is a delicate "
+	PRINTD	EARRING
+	PRINTR	"."
+
+
+	.FUNCT	EARRING-F
+	EQUAL?	PRSA,V?PUT-IN /?PRD5
+	EQUAL?	PRSA,V?PUT,V?HOLD-UP,V?COMPARE \FALSE
+?PRD5:	EQUAL?	JEWEL,PRSO,PRSI \FALSE
+	FSET	EARRING,LOCKED
+	PRINTI	"The jewel fits the empty "
+	PRINTD	EARRING
+	PRINTI	" perfectly."
+	EQUAL?	PRSA,V?PUT-IN,V?PUT \?CND10
+	PRINTI	" You remove the jewel again."
+?CND10:	CRLF	
+	ZERO?	EVIDENCE-FOUND \TRUE
+	CALL	CONGRATS
+	RTRUE	
+
+
+	.FUNCT	CORR-3-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The "
+	PRINTD	CORR-3
+	PRINTR	" has doors leading to the north, south, and southeast. Stairways go up at the east end and down at the west end."
+?CCL3:	EQUAL?	RARG,P?WEST,P?DOWN,P?OUT \?CCL7
+	PRINT	STAIRS-DOWN-LEFT
+	RTRUE	
+?CCL7:	EQUAL?	RARG,P?EAST,P?UP \FALSE
+	PRINT	STAIRS-UP-RIGHT
+	RTRUE	
+
+
+	.FUNCT	CAGE-PSEUDO
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE \?CCL3
+	PRINTR	"It's empty."
+?CCL3:	CALL	RANDOM-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	LUMBER-ROOM-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	CALL	SECRET-CHECK,RARG
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?LOOK-DOWN \FALSE
+	FSET?	LUMBER-RING,TOUCHBIT \?CCL11
+	CALL	PERFORM,V?LOOK-THROUGH,PEEPHOLE-2
+	RTRUE	
+?CCL11:	FSET?	LUMBER-CHEST,TOUCHBIT \FALSE
+	CALL	PERFORM,V?MOVE,LUMBER-RING
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-ENTER \?CCL15
+	IN?	PEEPHOLE-2,LUMBER-ROOM \FALSE
+	PUTP	LUMBER-ROOM,P?CORRIDOR,4
+	RFALSE	
+?CCL15:	EQUAL?	RARG,M-EXIT \?CCL19
+	PUTP	LUMBER-ROOM,P?CORRIDOR,0
+	RFALSE	
+?CCL19:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is lumber in the British sense, meaning useless stuff like old "
+	PRINTD	MAGAZINE
+	PRINTI	"s, an ornate bird cage, an "
+	PRINTD	LUMBER-CHEST
+	PRINTR	" from the 1700's, and a broken Victorian hobby horse."
+
+
+	.FUNCT	LUMBER-CHEST-F
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE \?CCL3
+	CALL	TOO-BAD-BUT,PRSO,STR?264
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TURN /?CCL5
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \FALSE
+?CCL5:	IN?	LUMBER-RING,LUMBER-ROOM /FALSE
+	MOVE	LUMBER-RING,LUMBER-ROOM
+	PRINTI	"You reveal"
+	CALL	PRINTT,LUMBER-RING
+	PRINTR	" in the stone floor."
+
+
+	.FUNCT	LUMBER-RING-F,P
+	EQUAL?	PRSA,V?TAKE,V?PUSH /?CTR2
+	EQUAL?	PRSA,V?OPEN,V?MOVE-DIR,V?MOVE \?CCL3
+?CTR2:	IN?	PEEPHOLE-2,LUMBER-ROOM \?CND6
+	CALL	ALREADY,LUMBER-RING,STR?66
+	RTRUE	
+?CND6:	MOVE	PEEPHOLE-2,LUMBER-ROOM
+	PUTP	LUMBER-ROOM,P?CORRIDOR,4
+	PRINTI	"As you pull up on"
+	CALL	PRINTT,LUMBER-RING
+	PRINTI	", you reveal"
+	CALL	PRINTT,PEEPHOLE-2
+	PRINTI	", enabling you to peer directly downward at "
+	PRINTD	TAMARA-ROOM
+	PRINTI	" below.
+"
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,PLAYER >P
+	ZERO?	P /TRUE
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTI	" says, ""So that explains the ghostly face that "
+	EQUAL?	P,FRIEND \?PRG19
+	PRINTC	73
+	JUMP	?PRG21
+?PRG19:	PRINTD	FRIEND
+?PRG21:	PRINTR	" saw peering down that night."""
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	IN?	PEEPHOLE-2,LUMBER-ROOM /?CND25
+	CALL	ALREADY,LUMBER-RING,STR?61
+	RTRUE	
+?CND25:	MOVE	PEEPHOLE-2,LOCAL-GLOBALS
+	PUTP	LUMBER-ROOM,P?CORRIDOR,0
+	CALL	OKAY,LUMBER-RING,STR?61
+	RTRUE	
+
+
+	.FUNCT	PEEPHOLE-2-F
+	EQUAL?	PRSA,V?LOOK-THROUGH /?CTR2
+	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?CTR2:	CALL	ROOM-PEEK,TAMARA-ROOM,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?THROUGH \FALSE
+	CALL	TOO-BAD-BUT,PEEPHOLE-2,STR?265
+	RTRUE	
+
+
+	.FUNCT	MAGAZINE-F
+	EQUAL?	PRSA,V?READ /?CCL3
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE,V?EXAMINE \FALSE
+?CCL3:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	PRINTI	"This is a"
+	EQUAL?	VARIATION,PAINTER-C \?PRG15
+	PRINTR	" copy of ""Reader's Digest"" for Sept. 1976. As you leaf through it, you find an article about the skull of Peking Man, which disappeared after the Pearl Harbor Attack, when it was shipped from China. Once it was mysteriously offered for sale for a million dollars, as reported in the New York Times."
+?PRG15:	PRINTR	"n old copy of ""Punch,"" good for a laugh or two."
+
+
+	.FUNCT	CHAPEL-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"A bare and austere yet poignantly atmospheric relic of the medieval past, the chapel contains an altar, pulpit, font, and family pews of elaborately carved oak. The most memorable feature is a splendid "
+	PRINTD	STAINED-WINDOW
+	PRINTI	". "
+	GETP	STAINED-WINDOW,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	STAINED-WINDOW-F
+	EQUAL?	PRSA,V?SEARCH-FOR /?PRD5
+	EQUAL?	PRSA,V?SEARCH,V?TAKE,V?EXAMINE \?CCL3
+?PRD5:	IN?	CLUE-3,STAINED-WINDOW \?CCL3
+	FSET?	CLUE-3,SECRETBIT \?CCL3
+	CALL	DISCOVER,CLUE-3
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?MUNG \FALSE
+	CALL	YOU-SHOULDNT
+	RSTACK	
+
+
+	.FUNCT	BILLIARD-PSEUDO
+	EQUAL?	PRSA,V?LOOK-ON \?CCL3
+	CALL	WONT-HELP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PLAY \FALSE
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?267
+	PRINTR	" the balls around for a minute before getting bored."
+
+
+	.FUNCT	BUFFALO-HEAD-F
+	CALL	NOUN-USED?,W?EYE
+	ZERO?	STACK /FALSE
+	CALL	ADJ-USED?,FALSE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	VISIBLE?,GLASS-EYE
+	ZERO?	STACK /FALSE
+	CALL	DO-INSTEAD-OF,GLASS-EYE,BUFFALO-HEAD
+	RTRUE	
+
+
+	.FUNCT	RHINO-HEAD-F
+	EQUAL?	PRSA,V?FIX,V?LOOK-INSIDE,V?OPEN /?CCL3
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?EXAMINE \FALSE
+?CCL3:	IN?	CLUE-3,RHINO-HEAD \FALSE
+	FSET?	CLUE-3,SECRETBIT \FALSE
+	FSET	GLASS-EYE,TAKEBIT
+	FCLEAR	GLASS-EYE,TRYTAKEBIT
+	FCLEAR	GLASS-EYE,NDESCBIT
+	FSET	GLASS-EYE,SEENBIT
+	PRINTI	"There's something odd about this trophy. One of the "
+	PRINTD	GLASS-EYE
+	PRINTR	"s is backwards."
+
+
+	.FUNCT	GLASS-EYE-F
+	EQUAL?	PRSO,GLASS-EYE \FALSE
+	IN?	RHINO-HEAD,HERE \FALSE
+	EQUAL?	PRSA,V?TAKE /?CCL3
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?OPEN /?CCL3
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE,V?LOOK-INSIDE /?CCL3
+	EQUAL?	PRSA,V?LOOK-BEHIND,V?FIX,V?EXAMINE \FALSE
+?CCL3:	IN?	CLUE-3,RHINO-HEAD \FALSE
+	FSET	RHINO-HEAD,OPENBIT
+	FCLEAR	GLASS-EYE,NDESCBIT
+	FCLEAR	GLASS-EYE,TRYTAKEBIT
+	FSET	GLASS-EYE,TAKEBIT
+	EQUAL?	PRSA,V?TAKE \?CND15
+	CALL	V-TAKE
+?CND15:	CALL	DISCOVER,CLUE-3
+	RTRUE	
+
+
+	.FUNCT	DECK-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTR	"The ""roof"" of the tower keep has a stone floor and battlements all around. Far below, the faint sound of the sea cries from the darkness. In the moonlight you see a huge bell mounted on a heavy frame."
+?CCL3:	EQUAL?	RARG,P?SOUTH,P?DOWN,P?IN \FALSE
+	PRINT	STAIRS-DOWN-LEFT
+	RTRUE	
+
+
+	.FUNCT	BELL-F,N=0,P,GT
+	EQUAL?	PRSA,V?TURN /?CTR2
+	EQUAL?	PRSA,V?PUSH,V?MOVE-DIR,V?MOVE \?CCL3
+?CTR2:	CALL	TOO-BAD-BUT,BELL,STR?269
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH /?CTR6
+	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-INSIDE,V?EXAMINE \?CCL7
+?CTR6:	EQUAL?	VARIATION,PAINTER-C \?CCL12
+	FSET?	SKULL,SECRETBIT \?CCL12
+	CALL	DISCOVER,SKULL
+	RTRUE	
+?CCL12:	IN?	CLUE-3,BELL \?CCL16
+	FSET?	CLUE-3,SECRETBIT \?CCL16
+	CALL	DISCOVER,CLUE-3
+	RTRUE	
+?CCL16:	CALL	TELL-AS-WELL-AS,BELL,STR?270
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?RING \FALSE
+	ZERO?	PLAYER-RANG-BELL? \?CND21
+	IN?	BUTLER,LOCAL-GLOBALS /?CCL25
+	IN?	BUTLER,KITCHEN /?CND21
+	CALL	GO-TO-SOUND,KITCHEN,BUTLER
+	JUMP	?CND21
+?CCL25:	ZERO?	LIONEL-SPEAKS-COUNTER \?CND21
+	SET	'MASS-SAID,FALSE-VALUE
+?PRG29:	IGRTR?	'N,DEB-C /?CND21
+	GET	CHARACTER-TABLE,N >P
+	EQUAL?	P,CONFESSED,CAPTOR /?PRG29
+	EQUAL?	P,GHOST-NEW,SEARCHER /?PRG29
+	CALL	GO-TO-SOUND,DECK,P
+	JUMP	?PRG29
+?CND21:	SET	'PLAYER-RANG-BELL?,TRUE-VALUE
+	PRINTI	"Its deep booming ""gong"" can be felt in every room of the castle."
+	CRLF	
+	EQUAL?	HERE,DECK \TRUE
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,PLAYER >P
+	ZERO?	P /TRUE
+	PRINTD	P
+	PRINTI	" whispers, ""That's "
+	FIRST?	BELL \?PRG49
+	PRINTI	"not "
+?PRG49:	PRINTR	"too loud for comfort!"""
+
+
+	.FUNCT	GO-TO-SOUND,RM,P,GT,GF,L
+	LOC	P >L
+	IN?	P,RM /FALSE
+	FSET?	P,MUNGBIT /FALSE
+	GETP	P,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-FUNCTION >GF
+	EQUAL?	P,BUTLER \?CND6
+	EQUAL?	GF,X-TO-BELL /?CND6
+	SET	'BUTLER-DUTY,GF
+?CND6:	PUT	GT,GOAL-FUNCTION,X-TO-BELL
+	CALL	IN-MOTION?,P,TRUE-VALUE
+	ZERO?	STACK /?CCL12
+	GET	GT,GOAL-F
+	PUT	GT,GOAL-QUEUED,STACK
+	JUMP	?CND10
+?CCL12:	PUT	GT,GOAL-QUEUED,L
+?CND10:	RANDOM	2
+	EQUAL?	STACK,1 \?CND13
+	FSET?	RM,WEARBIT \?PRD18
+	FSET?	L,WEARBIT \?CCL14
+?PRD18:	FSET?	RM,WEARBIT /?CND13
+	FSET?	L,WEARBIT \?CND13
+?CCL14:	MOVE	P,JUNCTION
+?CND13:	CALL	ESTABLISH-GOAL,P,RM
+	RSTACK	
+
+
+	.FUNCT	X-TO-BELL,GARG=0,L,GT
+	LOC	GOAL-PERSON >L
+	GETP	GOAL-PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	EQUAL?	GARG,G-REACHED /?CCL3
+	EQUAL?	L,HERE \FALSE
+?CCL3:	LESS?	BED-TIME,PRESENT-TIME \?CND6
+	CALL	QUEUE,I-BEDTIME,15
+?CND6:	GET	GT,ATTENTION-SPAN
+	PUT	GT,ATTENTION,STACK
+	EQUAL?	GOAL-PERSON,BUTLER \?CCL10
+	PUT	GT,GOAL-FUNCTION,BUTLER-DUTY
+	JUMP	?CND8
+?CCL10:	PUT	GT,GOAL-FUNCTION,NULL-F
+?CND8:	PUTP	GOAL-PERSON,P?LDESC,4
+	EQUAL?	L,HERE \FALSE
+	ZERO?	MASS-SAID \FALSE
+	SET	'MASS-SAID,TRUE-VALUE
+	CALL	HE-SHE-IT,GOAL-PERSON,TRUE-VALUE
+	PRINTI	" appears and says, ""What's all this, then?""
+"
+	RETURN	2
+
+
+	.FUNCT	LADDER-F,U=0,D=0
+	EQUAL?	PRSA,V?CLIMB-DOWN \?CCL3
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-UP \?CCL5
+	CALL	DO-WALK,P?UP
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?CLIMB-ON,V?BOARD \FALSE
+	GETPT	HERE,P?UP >U
+	ZERO?	U /?CND8
+	PTSIZE	U
+	EQUAL?	STACK,UEXIT /?CND8
+	SET	'U,FALSE-VALUE
+?CND8:	GETPT	HERE,P?DOWN >D
+	ZERO?	D /?CND12
+	PTSIZE	D
+	EQUAL?	STACK,UEXIT /?CND12
+	SET	'D,FALSE-VALUE
+?CND12:	ZERO?	U \?CCL18
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?CCL18:	ZERO?	D \?CCL20
+	CALL	DO-WALK,P?UP
+	RTRUE	
+?CCL20:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	PRINT	WHICH-DIR
+	PRINTR	")"
+
+
+	.FUNCT	LEVER-AND-DOOR,DR,DIR
+	FSET	DR,SEENBIT
+	PRINTC	65
+	FSET?	DR,OPENBIT \?PRG7
+	PRINTI	"n open"
+?PRG7:	PRINTC	32
+	PRINTD	DR
+	PRINTI	" and a lever are on the "
+	CALL	DIR-PRINT,DIR
+	PRINTR	" wall."
+
+
+	.FUNCT	SECRET-LANDING-JACK-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	PASSAGE-DESC?,JACK-ROOM
+	CALL	LEVER-AND-DOOR,SECRET-JACK-DOOR,P?IN
+	PRINTR	"Stone steps curve down to the east."
+
+
+	.FUNCT	PASSAGE-1-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"Stone steps lead west, a "
+	PRINTD	PASSAGE
+	PRINTI	" leads east, and a ladder leads straight up"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+?CCL3:	EQUAL?	RARG,P?WEST,P?OUT,P?SW \FALSE
+	PRINT	STAIRS-UP-RIGHT
+	RTRUE	
+
+
+	.FUNCT	SECRET-LANDING-TAM-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	PASSAGE-DESC?,TAMARA-ROOM
+	CALL	LEVER-AND-DOOR,SECRET-TAMARA-DOOR,P?IN
+	PRINT	SECRET-TAM-LIB
+	PRINTI	"north"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+
+
+	.FUNCT	SECRET-VIVIEN-PASSAGE-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	CALL	PASSAGE-DESC?,VIVIEN-ROOM
+	CALL	LEVER-AND-DOOR,SECRET-VIVIEN-DOOR,P?NORTH
+	PRINTI	"A "
+	PRINTD	PASSAGE
+	PRINTI	" leads west and east"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+?CCL3:	EQUAL?	RARG,P?EAST \FALSE
+	PRINTI	"The "
+	PRINTD	PASSAGE
+	PRINTR	" turns north at the corner of the building."
+
+
+	.FUNCT	DINING-PASSAGE-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	LEVER-AND-DOOR,SECRET-DINING-DOOR,P?EAST
+	PRINTI	"A ladder leads up"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+
+
+	.FUNCT	SECRET-LANDING-LIB-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	PASSAGE-DESC?,LIBRARY
+	CALL	LEVER-AND-DOOR,SECRET-LIBRARY-DOOR,P?IN
+	PRINT	SECRET-TAM-LIB
+	PRINTI	"south"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+
+
+	.FUNCT	SECRET-IAN-PASSAGE-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	PASSAGE-DESC?,IAN-ROOM
+	CALL	LEVER-AND-DOOR,SECRET-IAN-DOOR,P?SOUTH
+	PRINT	PASSAGE-EAST-WEST
+	RTRUE	
+
+
+	.FUNCT	SITTING-PASSAGE-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	FSET	SECRET-SITTING-DOOR,SEENBIT
+	CALL	PASSAGE-DESC?,SITTING-ROOM
+	CALL	SITTING-PASSAGE-LOSE
+	PRINTI	"A "
+	PRINTD	PASSAGE
+	PRINTI	" leads up to the west"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+
+
+	.FUNCT	SITTING-PASSAGE-LOSE
+	CALL	START-SENTENCE,SECRET-SITTING-DOOR
+	PRINTI	" is overhead, too high to climb through.
+"
+	RFALSE	
+
+
+	.FUNCT	YOUR-CLOSET-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	CALL	PASSAGE-DESC?,YOUR-ROOM
+	PRINTI	"The "
+	PRINTD	PASSAGE
+	PRINTI	" leads north and south. "
+	CALL	LEVER-AND-DOOR,SECRET-YOUR-DOOR,P?WEST
+	PRINTI	"A narrow stairway snakes down"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+?CCL3:	EQUAL?	RARG,P?SOUTH \FALSE
+	PRINTI	"The "
+	PRINTD	PASSAGE
+	PRINTR	" turns west at the corner of the building."
+
+
+	.FUNCT	PASSAGE-DESC?,RM
+	GET	FOUND-PASSAGES,PLAYER-C
+	EQUAL?	HERE,STACK \FALSE
+	PRINTI	"This is a musty and cobwebby "
+	PRINTD	PASSAGE
+	PRINTI	" between the wall of"
+	CALL	PRINTT,RM
+	PRINTR	" and the outside wall of the castle."
+
+
+	.FUNCT	IRIS-CLOSET-F,RARG=0
+	EQUAL?	RARG,M-BEG \?CCL3
+	IN?	COSTUME,IRIS-CLOSET \FALSE
+	FCLEAR	COSTUME,SECRETBIT
+	RFALSE	
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL8
+	CALL	LEVER-AND-DOOR,SECRET-IRIS-DOOR,P?WEST
+	PRINTI	"The "
+	PRINTD	PASSAGE
+	PRINTI	" leads north and south"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+?CCL8:	EQUAL?	RARG,P?NORTH \FALSE
+	PRINTI	"The "
+	PRINTD	PASSAGE
+	PRINTR	" turns west at the corner of the building."
+
+
+	.FUNCT	WENDISH-CORNER-F,RARG=0
+	EQUAL?	RARG,M-LOOK \?CCL3
+	CALL	PASSAGE-DESC?,WENDISH-ROOM
+	CALL	LEVER-AND-DOOR,SECRET-WENDISH-DOOR,P?SOUTH
+	PRINT	PASSAGE-EAST-WEST
+	RTRUE	
+?CCL3:	EQUAL?	RARG,P?EAST \FALSE
+	PRINTI	"The "
+	PRINTD	PASSAGE
+	PRINTR	" turns south at the corner of the building."
+
+
+	.FUNCT	MIDPOINT-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"At the "
+	PRINTD	MIDPOINT
+	PRINTI	" of the "
+	PRINTD	PASSAGE
+	PRINTI	", another "
+	PRINTD	PASSAGE
+	PRINTI	" leads south. "
+	PRINT	PASSAGE-EAST-WEST
+	RTRUE	
+
+
+	.FUNCT	DRAWING-CLOSET-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	PASSAGE-DESC?,DRAWING-ROOM
+	CALL	LEVER-AND-DOOR,SECRET-DRAWING-DOOR,P?NORTH
+	PRINTI	"A narrow stairway snakes up"
+	PRINT	INTO-DARKNESS
+	RTRUE	
+
+
+	.FUNCT	GALLERY-CORNER-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	FCLEAR	PEEPHOLE,SECRETBIT
+	CALL	START-SENTENCE,PEEPHOLE
+	PRINTI	" is in the south wall. A "
+	PRINTD	PASSAGE
+	PRINTR	" leads north."
+
+
+	.FUNCT	PEEPHOLE-F
+	EQUAL?	PRSA,V?LOOK-THROUGH /?CTR2
+	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-INSIDE,V?EXAMINE \?CCL3
+?CTR2:	EQUAL?	HERE,GALLERY-CORNER \?CCL8
+	FCLEAR	PEEPHOLE,SECRETBIT
+	CALL	ROOM-PEEK,GALLERY,TRUE-VALUE
+	RTRUE	
+?CCL8:	EQUAL?	HERE,GALLERY \FALSE
+	CALL	SECRET-CHECK,M-BEG
+	ZERO?	STACK \TRUE
+	CALL	ROOM-PEEK,GALLERY-CORNER,TRUE-VALUE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?THROUGH \FALSE
+	CALL	TOO-BAD-BUT,PEEPHOLE,STR?265
+	RTRUE	
+
+
+	.FUNCT	HYDE-CLOSET-F,RARG=0
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	LEVER-AND-DOOR,SECRET-HYDE-DOOR,P?SOUTH
+	PRINT	PASSAGE-EAST-WEST
+	RTRUE	
+
+	.ENDI
diff --git a/tower.zil b/tower.zil
new file mode 100644
index 0000000..c227a2a
--- /dev/null
+++ b/tower.zil
@@ -0,0 +1,2194 @@
+"TOWER for MOONMIST
+Copyright (C) 1986 Infocom, Inc.  All rights reserved."
+
+[
+<ROUTINE TELL-IN-BROCHURE ()
+	<TELL "[This is described in the " D ,BROCHURE ".]" CR>>
+
+;<ROUTINE OYSTER-PSEUDO ()
+ <COND (<VERB? LOOK-INSIDE OPEN>
+	<TELL "It's empty." CR>)
+       (<VERB? EXAMINE>
+	<TELL-IN-BROCHURE>)>>
+
+<ROUTINE BROCHURE-PSEUDO ()
+ <COND (<VERB? EXAMINE>
+	<TELL-IN-BROCHURE>)
+       (T ;<NOT <REMOTE-VERB?>>
+	<RANDOM-PSEUDO>)>>
+
+<OBJECT MEMENTO
+	(IN OLD-GREAT-HALL)
+	(DESC "memento")
+	(ADJECTIVE OIL ART JADE)
+	(SYNONYM PAINTING CARVING SKELETON)
+	(GENERIC GENERIC-SKELETON)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION MEMENTO-F)>
+
+<OBJECT MEMENTO-2
+	(IN OLD-GREAT-HALL)
+	(DESC "memento")
+	(ADJECTIVE OYSTER PAPIER MACHE ;AMAZON WITCH)
+	(SYNONYM SHELL FIGURE INDIAN DOCTOR)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION MEMENTO-F)>
+
+<ROUTINE MEMENTO-F ()
+ <COND (<VERB? TAKE>
+	<TELL "But that would spoil the display!" CR>)
+       (T <BROCHURE-PSEUDO>)>>
+
+<ROOM OLD-GREAT-HALL
+	(IN ROOMS)
+	(FLAGS ONBIT VOWELBIT SEENBIT DOORBIT LOCKED)
+	(DESC "old great hall")
+	(ADJECTIVE GREAT OLD TOWER)
+	(SYNONYM HALL ROOM DOOR ;DOORS ;"from COURTYARD")
+	(GENERIC GENERIC-GREAT-HALL)
+	;(LDESC "[E to junction, W to stairs]")
+	(LINE 3)
+	(STATION OLD-GREAT-HALL)
+	(CHARACTER 2)
+	(GLOBAL OLD-GREAT-HALL FIREPLACE CHAIR WINDOW STAIRS)
+	(NE	TO COURTYARD ;ANTE-ROOM IF OLD-GREAT-HALL IS OPEN)
+	(NORTH	TO COURTYARD ;ANTE-ROOM IF OLD-GREAT-HALL IS OPEN)
+	(OUT	TO COURTYARD ;ANTE-ROOM IF OLD-GREAT-HALL IS OPEN)
+	(EAST	TO JUNCTION)
+	(IN	TO JUNCTION)
+	(WEST	TO CORR-2 ;STAIRS-1)
+	(UP	TO CORR-2 ;STAIRS-1)
+	(ACTION OLD-GREAT-HALL-F)>
+
+<ROUTINE OLD-GREAT-HALL-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL "Your footfalls echo across the ancient stone floor." CR>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?WEST ,P?UP>
+	<TELL ,STAIRS-UP-RIGHT>
+	<RTRUE>)
+       (<T? .RARG>
+	<RFALSE>)
+       (<NOUN-USED? ,W?DOOR>
+	<COND (<AND <VERB? UNLOCK> <==? ,HERE ,OLD-GREAT-HALL>>
+	       <OKAY ,PRSO "unlocked">)
+	      (<VERB? EXAMINE>
+	       <CHECK-DOOR ,PRSO>
+	       ;<NOTHING-SPECIAL>)>)>>
+
+<GLOBAL STAIRS-UP-RIGHT "The stairs curve up to the right.|">
+<GLOBAL STAIRS-DOWN-LEFT "The stairs curve down to the left.|">
+]
+<ROOM JUNCTION
+	(IN ROOMS)
+	(FLAGS ONBIT)
+	(DESC "junction")
+	(SYNONYM JUNCTION ;ROOM)
+	;(LDESC "[W to old great hall, E to corridor, D to stairs]")
+	(LINE 3)
+	(STATION JUNCTION)
+	(CHARACTER 2)
+	(CORRIDOR 1)
+	(GLOBAL STAIRS)
+	(WEST	TO OLD-GREAT-HALL)
+	(OUT	TO OLD-GREAT-HALL)
+	(EAST	TO CORR-1)
+	(IN	TO CORR-1)
+	(NORTH	TO BASEMENT ;STAIRS-0)
+	(DOWN	TO BASEMENT ;STAIRS-0)
+	(ACTION JUNCTION-F)>
+
+<ROUTINE JUNCTION-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The two halves of " 'CASTLE " meet here, as the past meets the present." CR>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?NORTH ,P?DOWN>
+	<TELL ,STAIRS-DOWN-LEFT>
+	<RTRUE>)>>
+[
+<ROOM BASEMENT
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT)
+	(DESC "basement")
+	(ADJECTIVE TOWER)
+	(SYNONYM BASEMENT ;ROOM)
+	(GLOBAL HOLE-IN-WALL STAIRS)
+	(LINE 3)
+	(STATION BASEMENT)
+	(CHARACTER 1)
+	(EAST	TO KITCHEN)
+	(WEST	TO DUNGEON)
+	(IN	PER BASEMENT-ENTER)
+	(NORTH	TO JUNCTION ;STAIRS-0)
+	(UP	TO JUNCTION ;STAIRS-0)
+	(THINGS <PSEUDO ;"( BRICK OVEN	RANDOM-PSEUDO)
+			( GRAIN BIN	RANDOM-PSEUDO)
+			( ARMOR FORGE	RANDOM-PSEUDO)
+			( ARMOR SMITHY	RANDOM-PSEUDO)"
+			( <> ;EXPEDI GEAR	RANDOM-PSEUDO)>)
+	(ACTION BASEMENT-F)>
+
+<ROUTINE BASEMENT-ENTER () <COND (<T? ,BRICKS-DOWN> ,CRYPT) (T ,DUNGEON)>>
+
+<ROUTINE BASEMENT-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The " 'BASEMENT " of the tower keep still holds traces of the
+medieval past -- such as an " 'WELL ;", a brick oven, a grain bin, and
+the remains of an armourer's forge and smithy" ". The "
+'BASEMENT " now stores both Lionel's
+expedition gear and the castle wine cellar">
+	<COND (<EQUAL? ,VARIATION ,PAINTER-C ;,FRIEND-C>
+	       <TELL " (a rack full of wine bottles)">)>
+	<TELL ".|
+The brick walls are damp and mossy">
+	<COND (<AND <EQUAL? ,VARIATION ,FRIEND-C>
+		    <FSET? ,CLUE-4 ,TOUCHBIT>>
+	       <TELL ", and some bricks look loose">)>
+	<TELL ". A stairway lies north, and doors lead east and west." CR>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?NORTH ,P?UP>
+	<TELL ,STAIRS-UP-RIGHT>
+	<RTRUE>)>>
+
+<OBJECT WINE-RACK
+	(IN BASEMENT)
+	(DESC "wine rack")
+	(ADJECTIVE WINE)
+	(SYNONYM RACK CELLAR WINE)
+	(GENERIC GENERIC-WINE)
+	(FLAGS CONTBIT OPENBIT TRYTAKEBIT NDESCBIT SEENBIT
+		TOUCHBIT ;"so GO TO works")
+	(CAPACITY 99)
+	(ACTION WINE-RACK-F)>
+
+<ROUTINE WINE-RACK-F ("AUX" X)
+	<FCLEAR ,WINE-RACK ,NDESCBIT>
+	<COND (<VERB? TAKE>
+	       <COND (<AND <IN? ,BOTTLE ,WINE-RACK>
+			   <NOUN-USED? ,W?WINE>>
+		      <PERFORM ,PRSA ,BOTTLE>
+		      <RTRUE>)>)
+	      (<VERB? EXAMINE LOOK-INSIDE>
+	       <COND ;(<AND <IN? ,BOTTLE ,WINE-RACK>
+			   <IN? ,MOONMIST ,BOTTLE>
+			   <FSET? ,BOTTLE ,NDESCBIT>>
+		      <FCLEAR ,BOTTLE ,NDESCBIT>
+		      <MOVE ,BOTTLE ,WINNER>
+		      <TELL
+CHE ,WINNER notice " that one bottle looks odd. When" HE ,WINNER
+take " it out," HE ,WINNER notice " that the wax seal looks quite new." CR>)
+		     (T
+		      <TELL-AS-WELL-AS ,WINE-RACK " an assortment of wine">
+		      <RTRUE>)>)>>
+
+<OBJECT BOTTLE
+	(IN WINE-RACK)
+	(DESC "bottle")
+	(ADJECTIVE WINE)	;"(a rack full of wine bottles)"
+	(SYNONYM BOTTLE WINE ;LABEL)	;"REMOVE LABEL"
+	(GENERIC GENERIC-WINE)
+	(FLAGS NDESCBIT TAKEBIT CONTBIT TRANSBIT ;OPENBIT READBIT WEAPONBIT)
+	(SIZE 5)
+	(CAPACITY 3)
+	(ACTION BOTTLE-F)>
+
+<ROUTINE BOTTLE-F ()
+ <COND ;(<AND <VERB? EXAMINE LOOK-INSIDE SEARCH SEARCH-FOR>
+	     <IN? ,MOONMIST ,BOTTLE>
+	     <FSET? ,MOONMIST ,SECRETBIT>>
+	<DISCOVER ,MOONMIST ,BOTTLE>
+	<RTRUE>)	;"Moonmist hidden here"
+       (<VERB? EXAMINE LOOK-INSIDE READ SEARCH SEARCH-FOR ;SHAKE>
+	<COND (<NOT-HOLDING? ,BOTTLE>
+	       <RTRUE>)>
+	<TELL
+"The label says it's wine from a Cornish winery called Our Own Vintage.">
+	<COND (<EQUAL? ,VARIATION ,PAINTER-C ;,FRIEND-C>
+	       <TELL
+" Someone has drawn a star in red ink over the word \"OUR.\"">)>
+	<CRLF>)
+       (<VERB? DRINK EAT EMPTY MUNG OPEN SHAKE>
+	<COND (<DOBJ? BOTTLE>
+	       <TELL
+"You instantly realize that you don't need any wine -- or any more, as the case
+may be." CR>)>)
+       (<OR <VERB? FILL>
+	    <AND <VERB? PUT-IN> <IOBJ? BOTTLE>>>
+	<TOO-BAD-BUT ,BOTTLE "closed">)
+       (<ATTACK-VERB?>
+	<NO-VIOLENCE? ,BOTTLE>
+	<RTRUE>)>>
+
+<OBJECT BRICKS
+	;(IN BASEMENT)
+	(DESC "bunch of loose bricks")
+	(ADJECTIVE LOOSE)
+	(SYNONYM BUNCH BRICKS BRICK)
+	(FLAGS NDESCBIT)
+	(DESCFCN BRICKS-D)
+	(ACTION BRICKS-F)>
+
+<GLOBAL BRICKS-DOWN:FLAG <>>
+
+<ROUTINE BRICKS-D ("OPT" X)
+	<TELL "There's a " 'BRICKS>
+	<COND (<T? ,BRICKS-DOWN>
+	       <TELL !\  <GROUND-DESC> ", and a hole" ;'HOLE-IN-WALL>)>
+	<TELL " in the wall." CR>>
+
+<ROUTINE BRICKS-F ()
+ <COND (<VERB? ;DIG EXAMINE KNOCK RUB SEARCH>
+	<COND (T ;<FSET? ,BRICKS ,NDESCBIT>
+	       <FCLEAR ,BRICKS ,NDESCBIT>
+	       <FSET ,BRICKS ,SEENBIT>
+	       ;<TELL "You discover a " 'BRICKS " in the wall." CR>)>
+	<BRICKS-D>)
+       (<VERB? MOVE MOVE-DIR MUNG OPEN PUSH SLAP TAKE TURN>
+	<COND (<AND <EQUAL? ,VARIATION ,FRIEND-C>
+		    <ZERO? ,BRICKS-DOWN>>
+	       <FCLEAR ,BRICKS ,NDESCBIT>
+	       <SETG BRICKS-DOWN T>
+	       <FCLEAR ,HOLE-IN-WALL ,INVISIBLE>
+	       <TELL
+"You manage to pull them down into a pile " <GROUND-DESC> ", making a large
+hole in the wall." CR>)>)>>
+
+<OBJECT HOLE-IN-WALL
+	(IN LOCAL-GLOBALS)
+	(DESC "brick hole")
+	(ADJECTIVE SECRET BRICK)
+	(SYNONYM HOLE OPENING WALL)
+	(FLAGS INVISIBLE DOORBIT ;NDESCBIT OPENBIT SEENBIT)
+	(ACTION HOLE-IN-WALL-F)>
+
+<ROUTINE HOLE-IN-WALL-F ("AUX" RM)
+ <COND (<VERB? CLOSE>
+	<YOU-CANT>)
+       (<VERB? EXAMINE LOOK-INSIDE LOOK-THROUGH>
+	<COND (<==? ,HERE ,BASEMENT>
+	       <TELL
+"Through the dusty air, you can see only dark inside. But the hole looks
+big enough to climb through." CR>)
+	      (T <ROOM-PEEK ,BASEMENT T>)>
+	<RTRUE>)
+       (<VERB? BOARD DISEMBARK THROUGH>
+	<COND (<==? ,HERE ,BASEMENT>
+	       <SET RM ,CRYPT>)
+	      (T <SET RM ,BASEMENT>)>
+	<COND (<GOTO .RM>
+	       <OKAY>)>
+	<RTRUE>)>>
+
+<OBJECT WELL
+	(IN BASEMENT)
+	(DESC "ancient well")
+	(ADJECTIVE OLD ANCIENT)
+	(SYNONYM WELL WELLSHAFT)
+	(GENERIC GENERIC-WELL)
+	(FLAGS CONTBIT OPENBIT VOWELBIT NDESCBIT SEENBIT)
+	(CAPACITY 99)
+	;(TEXT
+"This ancient well was made at the time the castle was built.
+It is about a yard wide and surrounded by decrepit brickwork
+a couple of feet high.")
+	(ACTION WELL-F)>
+
+<ROUTINE WELL-F ()
+	 <COND (<VERB? EXAMINE LOOK-DOWN LOOK-INSIDE SEARCH SEARCH-FOR>
+		<COND ;(<AND <IN? ,CLUE-4 ,WELL>
+			    <FSET? ,CLUE-4 ,SECRETBIT>>
+		       <DISCOVER ,CLUE-4 ,WELL>
+		       <RTRUE>)
+		      (T <TELL "It's deep and dark." CR>)>)
+	       (<VERB? OPEN CLOSE>
+		<YOU-CANT>)
+	       (<VERB? BOARD CLIMB-DOWN THROUGH>
+		<TELL
+"After a moment's thought, you remember " 'LOVER "'s fate and
+decide that's much too dangerous." CR>)
+	       (<VERB? PUT PUT-IN>
+		<COND (<IOBJ? WELL>
+		       <TELL
+"As you watch," THE ,PRSO " disappears into the dark well shaft. After a
+second or two, you hear a remote splash.|">
+		       <REMOVE-CAREFULLY ,PRSO>
+		       <RTRUE>)>)>>
+][
+<ROOM CRYPT
+	(IN ROOMS)
+	(FLAGS SECRETBIT ;ONBIT)
+	(DESC "secret crypt")
+	(ADJECTIVE SECRET)
+	(SYNONYM CRYPT ;HOLE ;ROOM)
+	;(GENERIC GENERIC-HOLE)
+	(GLOBAL HOLE-IN-WALL)
+	(LINE 3)
+	(STATION BASEMENT)
+	(CHARACTER 1)
+	(OUT	TO BASEMENT)
+	(ACTION CRYPT-F)>
+
+<ROUTINE CRYPT-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<TELL
+"This space at the bottom of the tower is so gloomy and musty that
+you should be glad there's an exit to the " 'BASEMENT "." CR>)
+       ;(<AND <==? .RARG ,M-BEG>
+	     <IN? ,SKULL ,CRYPT>
+	     <FSET? ,SKULL ,SECRETBIT>>
+	<DISCOVER ,SKULL ,CRYPT>
+	<RTRUE>)>>
+
+<OBJECT SKELETON
+	(IN CRYPT)
+	(DESC "skeleton")
+	(ADJECTIVE OLD ;MOULDERING)
+	(SYNONYM BONES SKELETON)
+	(GENERIC GENERIC-SKELETON)
+	(FLAGS SURFACEBIT OPENBIT SEARCHBIT)
+	(SIZE 90)
+	(ACTION SKELETON-F)>
+
+<ROUTINE SKELETON-F ()
+ <COND (<OR <VERB? EXAMINE LOOK-UNDER SEARCH SEARCH-FOR>
+	    ;<VERB? MOVE MOVE-DIR PUSH TAKE>>
+	<COND (<AND <IN? ,NECKLACE ,SKELETON>
+		    <FSET? ,NECKLACE ,SECRETBIT>
+		    <VERB? EXAMINE SEARCH SEARCH-FOR>>
+	       <DISCOVER ,NECKLACE ,SKELETON>
+	       <RTRUE>)
+	      (T <TELL "Just old bones moldering in the dark."
+		       ;", that's all." CR>)>)>>
+][
+<OBJECT PRIEST-DOOR
+	(IN LOCAL-GLOBALS ;ROOMS)
+	(DESC "priest hole")
+	(ADJECTIVE PRIEST)
+	(SYNONYM DOOR HOLE)
+	(FLAGS DOORBIT SEENBIT)>
+
+<ROOM DUNGEON
+	(IN ROOMS)
+	(FLAGS ;ONBIT)
+	(DESC "dungeon")
+	(SYNONYM DUNGEON ;ROOM)
+	(GLOBAL ;DUNGEON PRIEST-DOOR LEVER)
+	(LINE 3)
+	(STATION DUNGEON)
+	(CHARACTER 1)
+	(EAST	TO BASEMENT)
+	(OUT	TO BASEMENT)
+	(NW	TO LOVER-PATH IF ;DUNGEON PRIEST-DOOR IS OPEN)
+	(NORTH	TO LOVER-PATH IF ;DUNGEON PRIEST-DOOR IS OPEN)
+	(WEST	TO LOVER-PATH IF ;DUNGEON PRIEST-DOOR IS OPEN)
+	(ACTION DUNGEON-F)>
+
+<ROUTINE DUNGEON-F ("OPTIONAL" (ARG 0))
+ <COND (<==? .ARG ,M-LOOK>
+	<TELL
+"In the northwest corner is an ancient door called
+a \"" 'PRIEST-DOOR ".\" Another exit is east to the " 'BASEMENT "." CR>)>>
+
+<OBJECT IRON-MAIDEN
+	(IN DUNGEON)
+	(DESC "iron maiden")
+	(ADJECTIVE IRON)
+	(SYNONYM MAIDEN SPACE SPIKE SPIKES)
+	(FLAGS VOWELBIT CONTBIT OPENBIT)
+	(ACTION IRON-MAIDEN-F)>
+
+<ROUTINE IRON-MAIDEN-F ("AUX" X)
+ <COND (<VERB? CLOSE OPEN>
+	<TELL "It has no door!" CR>
+	;<OKAY ,IRON-MAIDEN "closed">)
+       (<VERB? EXAMINE LOOK-INSIDE>
+	<TELL
+"The inner surface of this medieval torture device is covered with spikes.
+The space is just big enough to hold an unfortunate victim." CR>)
+       ;(<VERB? OPEN>
+	<OKAY ,IRON-MAIDEN "open">)
+       (<VERB? PUT-IN>
+	<WONT-HELP>)
+       (<VERB? KISS RUB>
+	<TELL "Ouch!" CR>)
+       (<VERB? BOARD CLIMB-ON THROUGH>
+	<COND (<NOT <==? ,WINNER ,PLAYER>>
+	       <TELL "\"No thank you!\"" CR>
+	       <RTRUE>)>
+	<TELL "As you step on the bottom of the " D ,IRON-MAIDEN ", it ">
+	<COND (<EQUAL? ,HERE ,DUNGEON>
+	       <SET X ,TOMB>
+	       <TELL "sinks downward into">)
+	      (T ;<EQUAL? ,HERE ,TOMB>
+	       <SET X ,DUNGEON>
+	       <TELL "rises again to">)>
+	<TELL THE .X ". You step out again.|">
+	<MOVE ,IRON-MAIDEN .X>
+	<GOTO .X>
+	<RTRUE>)>>
+][
+<ROOM TOMB
+	(IN ROOMS)
+	(FLAGS ;ONBIT)
+	(DESC "secret tomb")
+	(ADJECTIVE SECRET ;UNDERGROUND)
+	(SYNONYM TOMB)
+	(UP	"That's not the way to go up from here.")
+	(DOWN	"That's not the way to go up from here.")>
+
+<OBJECT COFFIN
+	(IN TOMB)
+	(DESC "stone coffin")
+	(ADJECTIVE STONE)
+	(SYNONYM COFFIN)
+	(FLAGS CONTBIT ;OPENBIT VEHBIT)
+	(CAPACITY 99)
+	(ACTION COFFIN-F)>
+
+<ROUTINE COFFIN-F () ;("OPT" (ARG 0))
+ <COND ;(<T? .ARG> <RFALSE>)
+       (<VERB? BOARD LIE SIT>
+	<COND (<NOT <FSET? ,COFFIN ,OPENBIT>>
+	       <FIRST-YOU "open" ,COFFIN>)>
+	;<TELL "There's barely enough room next to the scratchy old bones." CR>
+	<RFALSE>)
+       (<VERB? CLOSE>
+	<COND (<IN? ,PLAYER ,COFFIN>
+	       ;<EQUAL? ,PLAYER-SEATED ,COFFIN <- 0 ,COFFIN>>
+	       <TELL "The air is stifling, so you open it again." CR>)>)
+       (<VERB? EXAMINE LOOK-INSIDE SEARCH SEARCH-FOR>
+	<COND (<AND <IN? ,CLUE-4 ,COFFIN>
+		    <FSET? ,CLUE-4 ,SECRETBIT>>
+	       <COND (<NOT <FSET? ,COFFIN ,OPENBIT>>
+		      <FIRST-YOU "open" ,COFFIN>)>
+	       <DISCOVER ,CLUE-4 ,COFFIN>
+	       <RTRUE>)
+	      (<IN? ,PLAYER ,COFFIN>
+	       ;<EQUAL? ,PLAYER-SEATED ,COFFIN <- 0 ,COFFIN>>
+	       <TELL "All you can see is " 'PLAYER "." CR>)>)>>
+]
+<ROOM LOVER-PATH
+	(IN ROOMS)
+	(FLAGS ONBIT SURFACEBIT OPENBIT)
+	(DESC "path")
+	(ADJECTIVE ;"LOVER DEIRDRE" DEE\'S HER)
+	(SYNONYM PATH)
+	(LINE 3)
+	(STATION LOVER-PATH)
+	(CHARACTER 1)
+	(GLOBAL PRIEST-DOOR LEVER MOON OCEAN STAIRS)
+	(SE	TO DUNGEON IF PRIEST-DOOR IS OPEN)
+	(SOUTH	TO DUNGEON IF PRIEST-DOOR IS OPEN)
+	(EAST	TO DUNGEON IF PRIEST-DOOR IS OPEN)
+	(IN	TO DUNGEON IF PRIEST-DOOR IS OPEN)
+	(NORTH	PER LOVER-PATH-LOSE-N)
+	;(WEST	PER LOVER-PATH-LOSE-W)
+	;(DOWN	PER LOVER-PATH-LOSE-W)
+	(ACTION LOVER-PATH-F)>
+
+<ROUTINE LOVER-PATH-LOSE-N ()
+	<LOVER-PATH-LOSE ,P?NORTH>
+	<RFALSE>>
+
+;<ROUTINE LOVER-PATH-LOSE-W ()
+	<LOVER-PATH-LOSE ,P?WEST>
+	<RFALSE>>
+
+<ROUTINE LOVER-PATH-LOSE (X)
+	<TELL CHE ,WINNER start>
+	<COND (T ;<==? .X ,P?NORTH>
+	       <TELL
+" to follow the path, but it's too tricky in the dim light">)
+	      ;(T <TELL
+" down the steps, but they are too slippery in the mist">)>
+	<TELL ", so" HE ,WINNER turn " back." CR>>
+
+<ROUTINE LOVER-PATH-F ("OPTIONAL" (RARG <>))
+ <COND (<==? .RARG ,M-LOOK>
+	<TELL
+"This is an area behind shrubbery by a steep cliff overlooking the sea. In the
+dim light, you can barely see a path leading north along the cliff. "
+;" both stone steps leading down and [SE/IN to dungeon]">
+	<LEVER-AND-DOOR ,PRIEST-DOOR ,P?OUT>
+	<RTRUE>)
+       (<T? .RARG>
+	<RFALSE>)
+       (<VERB? FOLLOW>
+	<DO-WALK ,P?NORTH>
+	<RTRUE>)>>
+
+<ROOM LIMBO
+	(IN ROOMS)
+	(FLAGS ;ONBIT NARTICLEBIT)
+	(DESC "limbo")
+	;(LDESC "[S to path]")
+	(LINE 3)
+	(STATION LOVER-PATH)
+	(SOUTH	TO LOVER-PATH)>
+
+<ROOM CORR-2
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT)
+	(DESC "first-floor corridor")
+	(ADJECTIVE FIRST)
+	(SYNONYM CORRIDOR ROOM)
+	(LINE 3)
+	(STATION CORR-2)
+	(CHARACTER 3)
+	(GLOBAL JACK-ROOM ;JACK-DOOR STUDY ;STUDY-DOOR LIBRARY ;LIBRARY-DOOR
+		OFFICE ;OFFICE-DOOR TAMARA-ROOM ;TAMARA-DOOR STAIRS)
+	(WEST	TO JACK-ROOM IF JACK-ROOM ;JACK-DOOR IS OPEN)
+	(NW	TO STUDY IF STUDY ;STUDY-DOOR IS OPEN)
+	(NORTH	TO OLD-GREAT-HALL ;STAIRS-1)
+	(DOWN	TO OLD-GREAT-HALL ;STAIRS-1)
+	(OUT	TO OLD-GREAT-HALL ;STAIRS-1)
+	(NE	TO LIBRARY IF LIBRARY ;LIBRARY-DOOR IS OPEN)
+	(EAST	TO OFFICE IF OFFICE ;OFFICE-DOOR IS OPEN)
+	(SE	TO TAMARA-ROOM IF TAMARA-ROOM ;TAMARA-DOOR IS OPEN)
+	(SOUTH	TO CORR-3 ;STAIRS-2)
+	(UP	TO CORR-3 ;STAIRS-2)
+	(IN "Which direction do you want to go in?")
+	(ACTION CORR-2-F)>
+
+<ROUTINE CORR-2-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The " 'CORR-2 " is lined with doors. To the west, a heavy oak door with
+ancient wrought-iron fittings b">
+	<COND (<FSET? ,CREST ,NDESCBIT>
+	       <TELL "ears">)
+	      (T <TELL "ore">)>
+	<TELL " a bronze bas-relief of the
+" ,TRESYLLIAN !\  'CREST ", marking this as the " 'JACK-ROOM " of the
+castle. Other doors lead to the northwest, east, northeast, and
+southeast. Stairways go up at the south end and down at the north end."
+;"[W to Jack's room, NW to study, N/D to stair, NE to library, E to office, SE to Tamara's room, S/U to stair]" CR>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?NORTH ,P?DOWN ,P?OUT>
+	<TELL ,STAIRS-DOWN-LEFT>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?SOUTH ,P?UP>
+	<TELL ,STAIRS-UP-RIGHT>
+	<RTRUE>)>>
+
+<OBJECT CREST
+	(IN CORR-2)
+	(DESC "family crest")
+	(ADJECTIVE BRONZE TRESYLLIAN FAMILY)
+	(SYNONYM CREST WYVERN BAS-RELIEF)
+	(FLAGS TRYTAKEBIT NDESCBIT SEENBIT ;READBIT)
+	(ACTION CREST-F)>
+
+<ROUTINE CREST-F ()
+ <COND (<VERB? EXAMINE READ SEARCH>
+	<TELL "The " 'CREST " features a wyvern with wings raised.">
+	<COND (<EQUAL? ,VARIATION ,LORD-C>
+	       <TELL " It seems to be loosely mounted on the door.">)>
+	<CRLF>)
+       (<EQUAL? ,VARIATION ,LORD-C>
+	<COND (<AND <VERB? LOOK-BEHIND LOOK-UNDER MOVE MOVE-DIR
+			   REMOVE TAKE TAKE-OFF>
+		    <NOT <IN? ,JACK-TAPE ,HERE>>>
+	       <MOVE ,JACK-TAPE ,HERE>
+	       ;<FSET ,JACK-TAPE ,SEENBIT>
+	       ;<MOVE ,CREST ,HERE>
+	       <FSET ,CREST ,TAKEBIT>
+	       <FCLEAR ,CREST ,NDESCBIT>
+	       <TELL
+"By removing the " 'CREST " from its place, you can see that a small
+" 'JACK-TAPE " is built into the door." CR>)
+	      (<AND <VERB? PUT>
+		    <IOBJ? JACK-ROOM JACK-TAPE>
+		    <IN? ,JACK-TAPE ,HERE>>
+	       <MOVE ,JACK-TAPE ,LOCAL-GLOBALS>
+	       ;<MOVE ,CREST ,HERE>
+	       ;<FCLEAR ,CREST ,TAKEBIT>
+	       <FSET ,CREST ,NDESCBIT>
+	       <TELL
+"The " 'CREST " fits neatly over the " 'JACK-TAPE "." CR>)>)>>
+[
+<OBJECT SECRET-JACK-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET PASSAGE JACK\'S HIS)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)>
+
+<ROUTINE TV-PSEUDO ()
+ <COND (<VERB? EXAMINE LAMP-ON LOOK-INSIDE>
+	<TELL "It's boring compared to this mystery." CR>)
+       (<VERB? LAMP-OFF>
+	<ALREADY ,PRSO "off">)>>
+
+<ROOM JACK-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT OPENBIT DOORBIT WORNBIT ;READBIT)
+	(DESC "master bedroom")
+	(ADJECTIVE JACK\'S HIS BED BEDROOM ;" LORD HEAVY OAK ROOM" MASTER WEST)
+	(SYNONYM BEDROOM ROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 3)
+	(STATION CORR-2)
+	(CHARACTER 3)
+	(GLOBAL JACK-ROOM SECRET-JACK-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG WINDOW)
+	(THINGS <PSEUDO ( JACK\'S BED	BED-PSEUDO)
+			( HIS BED	BED-PSEUDO)
+			( COLOR TV	TV-PSEUDO)
+			( COLOR TELEVI	TV-PSEUDO)
+			( OVERST CHAIR	RANDOM-PSEUDO)>)
+	(EAST	TO CORR-2 IF JACK-ROOM ;JACK-DOOR IS OPEN)
+	(OUT	TO CORR-2 IF JACK-ROOM ;JACK-DOOR IS OPEN)
+	(SW	TO SECRET-LANDING-JACK IF SECRET-JACK-DOOR IS OPEN)
+	(IN	TO SECRET-LANDING-JACK IF SECRET-JACK-DOOR IS OPEN)
+	(DOWN	TO SECRET-LANDING-JACK IF SECRET-JACK-DOOR IS OPEN)
+	(ACTION JACK-ROOM-F)>
+
+<ROUTINE JACK-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<COND ;(<AND <VERB? SEARCH SEARCH-FOR>
+		    <WAR-CLUB-HACK <>>>
+	       <CRLF>
+	       <RTRUE>)
+	      (<SECRET-CHECK .RARG>
+	       <RTRUE>)>)
+       (<EQUAL? .RARG ,P?SW ,P?IN ,P?DOWN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The " 'JACK-ROOM " has a canopied four-poster bed on a circular dais,
+a marble-topped console and mirror, two oversized " 'WARDROBE "s, cheval glass,
+tallboy, commode, overstuffed chair and color TV." ;" A large
+window is curtained with a heavy damask material.">
+	<OPEN-DOOR? ,SECRET-JACK-DOOR>
+	<CRLF>)
+       (<T? .RARG>
+	<RFALSE>)
+       (<AND <VERB? EXAMINE READ SEARCH>
+	     <OR <EQUAL? ,HERE ,CORR-2>
+		 ;<AND <EQUAL? ,HERE ,JACK-ROOM>
+		      <FSET? ,JACK-ROOM ,OPENBIT>>>
+	     <FSET? ,CREST ,NDESCBIT>>
+	<PERFORM ,PRSA ,CREST ,PRSI>
+	<RTRUE>)>>
+
+<ROUTINE NOT-FOUND (OBJ "AUX" (WT <>))
+	<COND (<VERB? WALK-TO>
+	       <SET WT T>)>
+	<COND (<ZERO? .WT>
+	       <SETG CLOCK-WAIT T>
+	       <TELL "(Y">)
+	      (T <TELL "But y">)>
+	<TELL "ou haven't found" HIM .OBJ " yet!">
+	<COND (<ZERO? .WT>
+	       <TELL !\)>)>
+	<CRLF>
+	<RTRUE>>
+
+<ROUTINE FREE-VERB? ()
+	<COND (<GAME-VERB?>
+	       <RTRUE>)
+	      (<DIVESTMENT? ,PRSO>
+	       <RTRUE>)
+	      (<VERB? ATTACK CHASTISE EXAMINE HELLO INVENTORY KILL LIE
+		      LOOK LOOK-DOWN LOOK-INSIDE LOOK-ON
+		      LOOK-OUTSIDE LOOK-THROUGH LOOK-UP
+		      NO PUSH READ SHOOT SHOW SSHOW SIT SLAP SORRY
+		      WAIT-FOR WAIT-UNTIL YELL YES>
+	       <RTRUE>)
+	      ;(<SPEAKING-VERB?>
+	       <RTRUE>)>>
+
+<ROUTINE SECRET-CHECK ("OPTIONAL" (RARG <>) "AUX" (OBJ <>) (PER <>) RM GT)
+ <COND (<EQUAL? ,DISCOVERED-HERE ,HERE>
+	<SET PER <GET ,CHARACTER-TABLE <- <ZMEMQ ,HERE ,CHAR-ROOM-TABLE> 1>>>
+	<COND (<OR <FSET? .PER ,MUNGBIT>
+		   <==? .PER ,CONFESSED>
+		   <NOT <==? <META-LOC .PER> ,HERE>>>
+	       <SET PER <>>)>)>
+ <COND (<EQUAL? .RARG ,M-BEG>
+	<COND (<OR <VERB? WALK>		;"handled at M-EXIT"
+		   <AND <VERB? WALK-TO FOLLOW THROUGH>
+			<NOT <==? ,HERE <META-LOC ,PRSO>>>>>
+	       <RFALSE>)
+	      (<AND <T? .PER>
+		    <OR <T? <GETP .PER ,P?LINE>>
+			<VERB? SEARCH SEARCH-FOR>>
+		    <NOT <EQUAL? .PER ,PRSO ,PRSI>>
+		    <NOT <FREE-VERB?>>>
+	       <TELL CTHE .PER " prevents" HIS ,WINNER " action!" CR>
+	       <RTRUE>)>)
+       (<AND <EQUAL? .RARG ,M-EXIT>
+	     <T? .PER>
+	     ;<T? <GETP .PER ,P?LINE>>>
+	<SET RM <GENERIC-CLOSET 0>>
+	<SET GT <GT-O .PER>>
+	<COND (<VERB? WALK> <SET OBJ ,PRSO>)
+	      (<VERB? WALK-TO FOLLOW THROUGH>
+	       <SET OBJ <META-LOC ,PRSO>>
+	       <COND (<OR <EQUAL? .OBJ ,HERE>
+			  <AND <EQUAL? .OBJ ,LOCAL-GLOBALS>
+			       <NOT <FSET? ,PRSO ,DOORBIT>>>>
+		      <RFALSE>)
+		     (<VERB? THROUGH ;WALK-TO>
+		      <COND (<EQUAL? .OBJ ;,PRSO .RM ,LOCAL-GLOBALS>
+			     <ESTABLISH-GOAL .PER <GET .GT ,GOAL-F>>
+			     <SETG DISCOVERED-HERE <>>
+			     <RFALSE>)>
+		      <SET OBJ ,P?OUT>
+		      ;<SET OBJ <FOLLOW-GOAL-DIR ,HERE .OBJ>>)
+		     (T <SET OBJ <DIR-FROM ,HERE .OBJ>>)>)>
+	<COND (<AND <DIR-EQV? ,HERE .OBJ ,P?OUT>
+		    <T? <GETP .PER ,P?LINE>>
+		    ;<T? .PER>>
+	       <TELL CHE .PER " blocks" HIS ,WINNER " exit!" CR>
+	       <RTRUE>)>
+	<COND (<==? .PER ,GHOST-NEW>
+	       <MOVE ;-PERSON .PER .RM>)>	;"Back to the Passage"
+	<ESTABLISH-GOAL .PER <GET .GT ,GOAL-F>>
+	;<PUT .GT ,GOAL-ENABLE 1>
+	<SETG DISCOVERED-HERE <>>
+	<RFALSE>)>>
+
+<OBJECT TELESCOPE
+	(IN JACK-ROOM)
+	(DESC "telescope")
+	(SYNONYM TELESCOPE SCOPE)
+	(LDESC
+"There's a telescope mounted on a swinging wall bracket near a small
+uncurtained window.")
+	(FLAGS TRYTAKEBIT)
+	(ACTION TELESCOPE-F)>
+
+<ROUTINE OPEN-SECRET (ACT OBJ DR)
+	<TELL "As">
+	<HE-SHE-IT ,WINNER <> .ACT>
+	<COND (<ZERO? .ACT>
+	       <TELL !\ >
+	       <VERB-PRINT>)>
+	<COND (<AND <G? .OBJ 0> <L? .OBJ 256>>
+	       <TELL THE .OBJ>
+	       <FCLEAR .OBJ ,SECRETBIT>)
+	      (T <PRINT .OBJ>)>
+	<TELL !\,>
+	<COND (<NOT <FSET? .DR ,TOUCHBIT>>
+	       <FSET .DR ,TOUCHBIT>
+	       ;<THIS-IS-IT .DR>
+	       <COND (T ;<ZERO? <GET ,FOUND-PASSAGES ,PLAYER-C>>
+		      <QUEUE I-FOUND-PASSAGES 1>)>
+	       <COND (<T? <SET ACT <GENERIC-CLOSET 0>>>
+		      <PUT ,FOUND-PASSAGES ,PLAYER-C .ACT>)
+		     (T <PUT ,FOUND-PASSAGES ,PLAYER-C T>)>
+	       <FSET ,PASSAGE ,SEENBIT>
+	       <COND (<==? .OBJ ,HISTORY-BOOK>
+		      <FSET ,HISTORY-BOOK ,TAKEBIT>
+		      <FCLEAR ,HISTORY-BOOK ,TRYTAKEBIT>
+		      <TELL THE ,BOOKCASE>)
+		     (T
+		      <TELL " a section of the ">
+		      <COND (<==? .OBJ ,WYVERN>
+			     <TELL 'WYVERN>)
+			    (T <TELL "wall">)>)>)
+	      (T <TELL THE .DR ;"the secret door">)>
+	<OPEN-CLOSE .DR <>>>
+
+<ROUTINE TELESCOPE-F ()
+ <COND (<VERB? LOOK-INSIDE LOOK-THROUGH>
+	<TELL "All you can see is the wall." CR>)
+       (<VERB? AIM MOVE MOVE-DIR PUSH TAKE TURN>
+	<OPEN-SECRET "swing" ,TELESCOPE ,SECRET-JACK-DOOR>)>>
+]
+<ROOM STUDY
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT OPENBIT DOORBIT)
+	(DESC "study")
+	(ADJECTIVE JACK\'S HIS STUDY NW)
+	(SYNONYM STUDY DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LDESC
+"Lord Jack's private study has rich mahogany furniture and hunting
+prints on the walls."
+;"[SE to corridor] office furniture and")
+	(LINE 3)
+	(STATION CORR-2)
+	(CHARACTER 3)
+	(GLOBAL STUDY FIREPLACE CHAIR TABLE-RANDOM)
+	(THINGS <PSEUDO ( HUNTING PRINT		RANDOM-PSEUDO)
+			( HUNTING PRINTS	RANDOM-PSEUDO)>)
+	(SE	TO CORR-2 IF STUDY ;STUDY-DOOR IS OPEN)
+	(EAST	TO CORR-2 IF STUDY ;STUDY-DOOR IS OPEN)
+	(SOUTH	TO CORR-2 IF STUDY ;STUDY-DOOR IS OPEN)
+	(OUT	TO CORR-2 IF STUDY ;STUDY-DOOR IS OPEN)>
+[
+<OBJECT SECRET-LIBRARY-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "secret door")
+	(ADJECTIVE SECRET PASSAGE LIBRARY)
+	(SYNONYM DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	;(GENERIC GENERIC-LIBRARY)
+	(FLAGS SECRETBIT DOORBIT)>
+
+<ROOM LIBRARY
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT OPENBIT DOORBIT)
+	(DESC "library")
+	(ADJECTIVE LIBRARY NE)
+	(SYNONYM LIBRARY DOOR)
+	(GENERIC GENERIC-BEDROOM)
+	;(GENERIC GENERIC-LIBRARY)
+	(LINE 3)
+	(STATION CORR-2)
+	(CHARACTER 3)
+	(GLOBAL LIBRARY SECRET-LIBRARY-DOOR FIREPLACE CHAIR)
+	(SW	TO CORR-2 IF LIBRARY ;LIBRARY-DOOR IS OPEN)
+	(WEST	TO CORR-2 IF LIBRARY ;LIBRARY-DOOR IS OPEN)
+	(SOUTH	TO CORR-2 IF LIBRARY ;LIBRARY-DOOR IS OPEN)
+	(OUT	TO CORR-2 IF LIBRARY ;LIBRARY-DOOR IS OPEN)
+	(NE	TO SECRET-LANDING-LIB IF SECRET-LIBRARY-DOOR IS OPEN)
+	(IN	TO SECRET-LANDING-LIB IF SECRET-LIBRARY-DOOR IS OPEN)
+	;(DOWN	TO SECRET-LANDING-LIB IF SECRET-LIBRARY-DOOR IS OPEN)
+	(ACTION LIBRARY-F)>
+
+<ROUTINE LIBRARY-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ;,M-EXIT>
+	<SECRET-CHECK .RARG>)
+       (<EQUAL? .RARG ,P?NE ,P?IN ;,P?DOWN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"Dusty bookcases tower all around you. There is a table with reading
+lamp and chair, and an armchair near the " 'FIREPLACE "."
+;", card catalog, and a stepstool for reaching the highest shelves.">
+	<OPEN-DOOR? ,SECRET-LIBRARY-DOOR>
+	<CRLF>)>>
+
+<OBJECT LIBRARY-CHAIR
+	(IN LIBRARY)
+	(DESC "armchair")
+	(ADJECTIVE ARM)
+	(SYNONYM CHAIR SEAT ARMCHAIR)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT NDESCBIT VOWELBIT)
+	(CAPACITY 99)>
+
+<OBJECT TABLE-LIBRARY
+	(IN LIBRARY)
+	(DESC "table")
+	(ADJECTIVE LIBRARY)
+	(SYNONYM TABLE)
+	(FLAGS SURFACEBIT OPENBIT NDESCBIT SEARCHBIT)
+	(CAPACITY 999)>
+
+<OBJECT BOOKS-GLOBAL
+	(IN LIBRARY)
+	(DESC "bunch of books")
+	(SYNONYM BUNCH BOOK BOOKS)
+	(GENERIC GENERIC-BOOK)
+	(FLAGS TRYTAKEBIT NDESCBIT READBIT)
+	(ACTION BOOKS-GLOBAL-F)>
+
+<ROUTINE BOOKS-GLOBAL-F ("AUX" X)
+ <COND (<VERB? LOOK-INSIDE OPEN READ TAKE>
+	<TELL
+"You pick one at random. It's frightfully obscure, so you put it back." CR>)
+       (<VERB? EXAMINE SEARCH SEARCH-FOR>
+	<TELL
+"Some of the books date as far back as the 16th century. Although
+some are fiction, most of the
+books are scientific, covered with vellum or leather. Some are in foreign
+languages, and many have pictures of skulls or spirits." CR>
+	<COND (<SET X <FIND-FLAG ,BOOKCASE ,SECRETBIT>>
+	       <DISCOVER .X>)
+	      (<SET X <FIRST? ,BOOKCASE>>
+	       <FSET .X ,TAKEBIT>
+	       <FCLEAR .X ,NDESCBIT>
+	       <TELL CTHE .X " catches your eye." CR>)
+	      (<IN? ,JOURNAL ,TABLE-LIBRARY>
+	       <FCLEAR ,JOURNAL ,SECRETBIT>
+	       <TELL
+"There are many books of adventure and exploration, as well as the
+bound volumes of " D ,COUSIN "'s expedition journals." CR>)>
+	<RTRUE>)>>
+
+<OBJECT BOOKCASE
+	(IN LIBRARY)
+	(DESC ;"swinging " "bookcase")
+	(ADJECTIVE SECRET ;SWINGING BOOK)
+	(SYNONYM BOOKCASE CASE SHELF SHELVES)
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT SEENBIT)
+	(CAPACITY 99)
+	(ACTION BOOKCASE-F)>
+
+<ROUTINE BOOKCASE-F ("AUX" X)
+ <COND (<VERB? EXAMINE LOOK-INSIDE SEARCH>
+	<PERFORM ,V?EXAMINE ,BOOKS-GLOBAL>
+	<RTRUE>)
+       (<VERB? MOVE MOVE-DIR PUSH TURN>
+	<COND (<FSET? ,SECRET-LIBRARY-DOOR ,OPENBIT>
+	       <OPEN-SECRET "move" ,BOOKCASE ,SECRET-LIBRARY-DOOR>
+	       <RTRUE>)>)>>
+
+<OBJECT HISTORY-BOOK
+	(IN BOOKCASE ;TABLE-LIBRARY)
+	(DESC "history book")
+	(ADJECTIVE HISTORY)
+	(SYNONYM BOOK BOOKS)
+	(GENERIC GENERIC-BOOK)
+	(FLAGS TRYTAKEBIT READBIT CONTBIT ;SECRETBIT ;NDESCBIT)
+	(CAPACITY 4)
+	(ACTION HISTORY-BOOK-F)>
+
+<ROUTINE HISTORY-BOOK-F ()
+ <COND (<OR <VERB? MOVE MOVE-DIR>
+	    <AND <VERB? PUT-IN>
+		 <IOBJ? BOOKCASE>
+		 <MOVE ,HISTORY-BOOK ,BOOKCASE>>>
+	<OPEN-SECRET "move" ,HISTORY-BOOK ,SECRET-LIBRARY-DOOR>
+	<RTRUE>)
+       (<VERB? EXAMINE OPEN LOOK-UP READ TAKE>
+	<COND (<IN? ,HISTORY-BOOK ,BOOKCASE>
+	       <MOVE ,HISTORY-BOOK ,WINNER>
+	       <OPEN-SECRET "move" ,HISTORY-BOOK ,SECRET-LIBRARY-DOOR>
+	       <RTRUE>)
+	      (<VERB? TAKE>
+	       <RFALSE>)
+	      (<NOT-HOLDING? ,HISTORY-BOOK>
+	       <RTRUE>)
+	      (T <TELL
+"This book
+contains a detailed history of " D ,CASTLE " and the
+" ,TRESYLLIAN " family, including the bitter fate of Lady Arabella
+" ,TRESYLLIAN ", who was accused of infidelity and, by her husband's
+command, was buried alive in the wall of the tower keep. The book also
+describes the layout of the tower and residential wing, including the
+various rooms and " 'PASSAGE "s." CR>)>)>>
+
+<OBJECT JOURNAL
+	(IN TABLE-LIBRARY)
+	(DESC "journal")
+	(ADJECTIVE LI\'S HIS ;EXPEDITION)
+	(SYNONYM JOURNAL LOG BOOK BOOKS)
+	(GENERIC GENERIC-BOOK)
+	(FLAGS TAKEBIT READBIT CONTBIT SECRETBIT)
+	(CAPACITY 4)
+	(ACTION JOURNAL-F)>
+
+<ROUTINE JOURNAL-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE OPEN READ>
+	<COND (<NOT-HOLDING? ,PRSO>
+	       <RTRUE>)>
+	<TELL "This is a journal of Lionel's ">
+	<COND (<EQUAL? ,VARIATION ,LORD-C>	<TELL "African">)
+	      (<EQUAL? ,VARIATION ,DOCTOR-C>	<TELL "Amazon">)
+	      (T ;<EQUAL? ,VARIATION ,FRIEND-C>	<TELL "South Pacific">)>
+	<TELL " expedition. As you leaf through it, ">
+	<COND (<EQUAL? ,VARIATION ,PAINTER-C>
+	       <TELL "no clues appear." CR>
+	       <RTRUE>)>
+	<TELL "you find a description of a treasure: ">
+	<COND (<EQUAL? ,VARIATION ,LORD-C>
+	       <DESCRIBE-WAR-CLUB>
+	       <TELL "It also served as his royal sceptre." CR>)
+	      (<EQUAL? ,VARIATION ,FRIEND-C>
+	       <TELL "a " D ,NECKLACE "." CR>)
+	      (T ;<EQUAL? ,VARIATION ,DOCTOR-C>
+	       <TELL
+D ,MOONMIST ", a drug taken from a rare Amazon plant called
+the Moonflower. The natives use it to tip their" ,POISON-DART "s,
+but it could also be a valuable medicine.
+They insist that the plant should be gathered only when the
+" 'MOON " is misted over." CR>
+	       <COND (<AND <IN? ,MOONMIST ,INKWELL>
+			   <FSET? ,INKWELL ,TOUCHBIT>>
+		      <FCLEAR ,MOONMIST ,SECRETBIT>)>
+	       <RTRUE>)>)>>
+][
+<ROOM OFFICE
+	(IN ROOMS)
+	(FLAGS ;ONBIT VOWELBIT SEENBIT OPENBIT DOORBIT)
+	(DESC "office")
+	(ADJECTIVE OFFICE EAST JACK\'S HIS)
+	(SYNONYM OFFICE DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 3)
+	(STATION CORR-2)
+	(CHARACTER 3)
+	(GLOBAL OFFICE ;OFFICE-DOOR CHAIR FIREPLACE)
+	(THINGS <PSEUDO ( TALL STOOL	RANDOM-PSEUDO)
+			;( LARGE DESK	RANDOM-PSEUDO)>)
+	(WEST	TO CORR-2 IF OFFICE ;OFFICE-DOOR IS OPEN)
+	(OUT	TO CORR-2 IF OFFICE ;OFFICE-DOOR IS OPEN)
+	(ACTION OFFICE-F)>
+
+<ROUTINE OFFICE-F ("OPTIONAL" (ARG 0))
+ <COND (<==? .ARG ,M-LOOK>
+	<TELL
+;"a file cabinet and bookshelf, as well as both a typewriter and"
+"This small office gets little light and less air. In one corner
+is a computer. By the " 'FIREPLACE ",
+there is a tall " 'DESK " with" ;"a quill pen">
+	<COND (<FIRST? ,DESK>
+	       <PRINT-CONTENTS ,DESK>
+	       <TELL ", and">)>
+	;<COND (<IN? ,INKWELL ,DESK>
+	       <TELL " an " 'INKWELL " and">)>
+	<TELL " a tall stool." CR>)>>
+
+<OBJECT DESK
+	(IN OFFICE)
+	(DESC "old-fashioned desk")
+	(ADJECTIVE TAM\'S HER ;"TAMARA TAMMY" OLD OLD-FASHION TALL)
+	(SYNONYM DESK)
+	(FLAGS SURFACEBIT VEHBIT OPENBIT VOWELBIT SEENBIT NDESCBIT)
+	(CAPACITY 999)>
+
+<OBJECT INKWELL
+	(IN DESK)
+	(DESC "inkwell")
+	(ADJECTIVE INK)
+	(SYNONYM INKWELL WELL)
+	(GENERIC GENERIC-WELL)
+	(FLAGS VOWELBIT TAKEBIT CONTBIT TRANSBIT OPENBIT ;SEENBIT)
+	(SIZE 4)
+	(CAPACITY 0 ;3)
+	(ACTION INKWELL-F)>
+
+<ROUTINE INKWELL-F ()
+ <COND (<IN? ,MOONMIST ,INKWELL>
+	<COND (<VERB? EMPTY>
+	       <FCLEAR ,MOONMIST ,SECRETBIT>
+	       <PERFORM ,V?POUR ,MOONMIST ,PRSI>
+	       <RTRUE>)
+	      (<VERB? EXAMINE LOOK-INSIDE OPEN SEARCH SEARCH-FOR>
+	       <COND ;(<FSET? ,MOONMIST ,SECRETBIT>
+		       ;<T? ,TREASURE-FOUND>
+		       <FCLEAR ,MOONMIST ,SECRETBIT>
+		       <PERFORM ,V?EXAMINE ,MOONMIST>)
+		     (<FSET? ,MOONMIST ,SECRETBIT>
+		      <DISCOVER ,MOONMIST ;,INKWELL>
+		      <RTRUE>)>)>)>>
+
+<OBJECT COMPUTER
+	(IN OFFICE)
+	(DESC "computer")
+	(SYNONYM COMPUTER)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION COMPUTER-F)>
+
+<ROUTINE COMPUTER-F ()
+ <COND (<VERB? EXAMINE>
+	<TELL "It looks just like the computer you're using now!" CR>)
+       (<VERB? LAMP-OFF>
+	<OKAY ,COMPUTER "off">
+	<RTRUE>)
+       (<VERB? LAMP-ON PLAY USE>
+	<COND (T ;<NOT <FSET? ,COMPUTER ,ONBIT>>
+	       ;<FSET ,COMPUTER ,ONBIT>
+	       <TELL
+CHE ,COMPUTER " starts running an interactive mystery from Infocom called \"">
+	       <COND (<EQUAL? ,VARIATION ,LORD-C>
+		      <TELL "DEADLINE (R">)
+		     (<EQUAL? ,VARIATION ,PAINTER-C>
+		      <TELL "THE WITNESS (R">)
+		     (<EQUAL? ,VARIATION ,FRIEND-C>
+		      <TELL "SUSPECT (TM">)
+		     (T ;<EQUAL? ,VARIATION ,DOCTOR-C>
+		      <TELL "BALLYHOO (TM">)>
+	       <TELL
+"),\" but you decide that " 'MOONMIST " (TM) is easier, so you turn it off."
+CR>)>)>>
+][
+<OBJECT SECRET-TAMARA-DOOR
+	(IN ROOMS ;LOCAL-GLOBALS)
+	(DESC "sliding panel")
+	(ADJECTIVE SECRET PASSAGE SLIDING TAM\'S HER ;"TAMARA TAMMY")
+	(SYNONYM DOOR PANEL)
+	(GENERIC GENERIC-BEDROOM)
+	(FLAGS SECRETBIT DOORBIT)
+	;(GENERIC GENERIC-TAMARA-DOOR-F)>
+
+<ROOM TAMARA-ROOM
+	(IN ROOMS)
+	(FLAGS ONBIT NARTICLEBIT OPENBIT DOORBIT WORNBIT)
+	(DESC "Tamara's bedroom")
+	(ADJECTIVE TAM\'S HER BED ;ROOM BEDROOM SE)
+	(SYNONYM BEDROOM ROOM DOOR ;KEYHOLE)
+	(GENERIC GENERIC-BEDROOM)
+	(LINE 3)
+	(STATION CORR-2)
+	(CHARACTER 3)
+	(GLOBAL TAMARA-ROOM SECRET-TAMARA-DOOR BATHROOM FIREPLACE
+		NIGHTSTAND-LG DRESSING-TABLE-LG WARDROBE-LG ;CHAIR WINDOW)
+	(THINGS <PSEUDO ;( MAKE-UP KIT "conflicts w/ ghost's" RANDOM-PSEUDO)
+			( <> KIT		RANDOM-PSEUDO)
+			( ;<> HAND MIRROR	DRESSING-MIRROR-F)>)
+	(NW	TO CORR-2 IF TAMARA-ROOM ;TAMARA-DOOR IS OPEN)
+	(NORTH	TO CORR-2 IF TAMARA-ROOM ;TAMARA-DOOR IS OPEN)
+	(WEST	TO CORR-2 IF TAMARA-ROOM ;TAMARA-DOOR IS OPEN)
+	(OUT	TO CORR-2 IF TAMARA-ROOM ;TAMARA-DOOR IS OPEN)
+	(SE	TO SECRET-LANDING-TAM IF SECRET-TAMARA-DOOR IS OPEN)
+	(IN	TO SECRET-LANDING-TAM IF SECRET-TAMARA-DOOR IS OPEN)
+	(DOWN	TO SECRET-LANDING-TAM IF SECRET-TAMARA-DOOR IS OPEN)
+	(ACTION TAMARA-ROOM-F)>
+
+<ROUTINE TAMARA-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG ,M-EXIT>
+	<SECRET-CHECK .RARG>)
+       (<EQUAL? .RARG ,P?SE ,P?IN ,P?DOWN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The room is utterly feminine in its decoration, yet neater than you might
+expect for a young woman of " 'FRIEND "'s age. " ;"No garments are strewn about
+carelessly. ">
+	<DRESSING-TABLE-TAM>
+	<OPEN-DOOR? ,SECRET-TAMARA-DOOR>
+	<CRLF>)>>
+
+<ROUTINE DRESSING-TABLE-TAM ()
+	<TELL
+"Even her " 'DRESSING-TABLE-LG " is in apple-pie order, with her hand
+mirror, comb, brush, makeup kit and " 'JEWELRY-CASE " all precisely
+placed on its gleaming surface.">>
+
+<OBJECT TAMARA-BED
+	(IN TAMARA-ROOM)
+	(DESC "bed" ;"post")
+	(ADJECTIVE TAM\'S HER BED ;" TAMARA TAMMY")
+	(SYNONYM BED KNOB BEDPOST POST)
+	(FLAGS SEENBIT SURFACEBIT OPENBIT VEHBIT NDESCBIT ;NARTICLEBIT)
+	(CAPACITY 999)
+	(ACTION TAMARA-BED-F)>
+
+<ROUTINE TAMARA-BED-F ("AUX" OBJ) ;("OPT" (ARG 0))
+ <COND ;(<T? .ARG> <RFALSE>)
+       (<VERB? EXAMINE ;"SEARCH SEARCH-FOR">
+	<TELL
+'FRIEND " has a curtained four-poster bed on a circular dais.
+You notice that the knob on one bedpost looks loose." CR>)
+       (<VERB? LOOK-UNDER SEARCH ;SEARCH-FOR>
+	<COND (<SET OBJ <FIND-FLAG ,TAMARA-BED ,NDESCBIT ,PLAYER>>
+	       <DISCOVER .OBJ ;,TAMARA-BED>)>)
+       (<VERB? PUT-UNDER>
+	<COND (<IOBJ? TAMARA-BED>
+	       <FSET ,PRSO ,NDESCBIT>
+	       <MOVE ,PRSO ,TAMARA-BED>
+	       <OKAY>)>)
+       (<VERB? MOVE MOVE-DIR PUSH RUB TURN>
+	<OPEN-SECRET "turn" ;,TAMARA-BED " the bedpost" ,SECRET-TAMARA-DOOR>)>>
+
+<OBJECT JEWELRY-CASE
+	(IN TAMARA-ROOM)
+	(DESC "jewelry case")
+	(ADJECTIVE JEWELRY ;"TAMARA TAMMY" HER TAM\'S)
+	(SYNONYM CASE BOX)
+	(FLAGS TRYTAKEBIT NDESCBIT CONTBIT ;OPENBIT SEENBIT)
+	(CAPACITY 8)
+	(ACTION JEWELRY-CASE-F)>
+
+<ROUTINE JEWELRY-CASE-F ()
+	<COND (<VERB? TAKE>
+	       <COND (<DOBJ? JEWELRY-CASE>
+		      <YOU-SHOULDNT>
+		      <RTRUE>)>)
+	      (<VERB? EXAMINE LOOK-INSIDE OPEN>
+	       ;<FSET ,JEWELRY-CASE ,OPENBIT>	;"done in TELL-AS-WELL-AS"
+	       <TELL-AS-WELL-AS ,JEWELRY-CASE " an assortment of jewelry">
+	       <COND (<AND <IN? ,EARRING ,JEWELRY-CASE>
+			   <FSET? ,EARRING ,NDESCBIT>>
+		      <FCLEAR ,EARRING ,NDESCBIT>
+		      <FCLEAR ,EARRING ,SECRETBIT>
+		      <THIS-IS-IT ,EARRING>
+		      <TELL
+"Almost the first thing you notice is a delicate " 'EARRING "." CR>)>
+	       <RTRUE>)>>
+
+<OBJECT EARRING
+	;(IN JEWELRY-CASE)
+	(DESC "earring")
+	(ADJECTIVE ;"DELICATE TAMARA TAMMY" TAM\'S HER)
+	(SYNONYM EARRING SETTING SOCKET)
+	(FLAGS TAKEBIT VOWELBIT NDESCBIT WEARBIT SECRETBIT SEENBIT)
+	(SIZE 1)
+	(TEXT "The jewel is missing from its setting!")
+	(ACTION EARRING-F)>
+
+<ROUTINE EARRING-F ()
+ <COND ;(<NOT <EQUAL? ,VARIATION ,FRIEND-C>>
+	<SETG CLOCK-WAIT T>
+	<TELL "(You can't see any red-jewelled earrings here.)" CR>)
+       (<AND <VERB? COMPARE HOLD-UP PUT PUT-IN>
+	     <EQUAL? ,JEWEL ,PRSO ,PRSI>>
+	<FSET ,EARRING ,LOCKED>	;"Remember player did this."
+	<TELL "The jewel fits the empty " 'EARRING " perfectly.">
+	<COND (<VERB? PUT PUT-IN>
+	       <TELL " You remove the jewel again.">
+	       ;<MOVE ,JEWEL ,EARRING>)>
+	<CRLF>
+	<COND (<ZERO? ,EVIDENCE-FOUND>
+	       <CONGRATS>)>
+	<RTRUE>)>>
+]
+<ROOM CORR-3
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT)
+	(DESC "second-floor corridor")
+	(ADJECTIVE SECOND)
+	(SYNONYM CORRIDOR ROOM)
+	(LINE 3)
+	(STATION CORR-3)
+	(CHARACTER 4)
+	(GLOBAL LUMBER-ROOM ;LUMBER-DOOR CHAPEL ;CHAPEL-DOOR
+		GAME-ROOM ;GAME-DOOR STAIRS)
+	(SE	TO LUMBER-ROOM IF LUMBER-ROOM ;LUMBER-DOOR IS OPEN)
+	(SOUTH	TO CHAPEL IF CHAPEL ;CHAPEL-DOOR IS OPEN)
+	(WEST	TO CORR-2 ;STAIRS-2)
+	(DOWN	TO CORR-2 ;STAIRS-2)
+	(OUT	TO CORR-2 ;STAIRS-2)
+	(NORTH	TO GAME-ROOM IF GAME-ROOM ;GAME-DOOR IS OPEN)
+	(UP	TO DECK ;STAIRS-3)
+	(EAST	TO DECK ;STAIRS-3)
+	(IN "Which direction do you want to go in?")
+	(ACTION CORR-3-F)>
+
+<GLOBAL WHICH-DIR "Which direction do you want to go in?">
+
+<ROUTINE CORR-3-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The " 'CORR-3 " has doors leading to the north, south, and
+southeast. Stairways go up at the east end and down at the west end." CR>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?WEST ,P?DOWN ,P?OUT>
+	<TELL ,STAIRS-DOWN-LEFT>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?EAST ,P?UP>
+	<TELL ,STAIRS-UP-RIGHT>
+	<RTRUE>)>>
+[
+<ROUTINE CAGE-PSEUDO ()
+ <COND (<VERB? LOOK-INSIDE OPEN>
+	<TELL "It's empty." CR>)
+       (T <RANDOM-PSEUDO>)>>
+
+<ROOM LUMBER-ROOM
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT OPENBIT DOORBIT)
+	(DESC "lumber room")
+	(ADJECTIVE LUMBER ROOM)
+	(SYNONYM ROOM DOOR)
+	(CORRIDOR 0)	;"becomes 4 when LUMBER-RING lifted"
+	(LINE 3)
+	(STATION CORR-3)
+	(CHARACTER 4)
+	(GLOBAL LUMBER-ROOM ;LUMBER-DOOR ;SECRET-LUMBER-DOOR)
+	(THINGS <PSEUDO ;( ORNATE BIRDCAGE	CAGE-PSEUDO)
+			( ORNATE CAGE		CAGE-PSEUDO)
+			( BIRD CAGE		CAGE-PSEUDO)
+			( HOBBY HORSE		RANDOM-PSEUDO)>)
+	(NW	TO CORR-3 IF LUMBER-ROOM ;LUMBER-DOOR IS OPEN)
+	(NORTH	TO CORR-3 IF LUMBER-ROOM ;LUMBER-DOOR IS OPEN)
+	(WEST	TO CORR-3 IF LUMBER-ROOM ;LUMBER-DOOR IS OPEN)
+	(OUT	TO CORR-3 IF LUMBER-ROOM ;LUMBER-DOOR IS OPEN)
+	(ACTION LUMBER-ROOM-F)>
+
+<ROUTINE LUMBER-ROOM-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-BEG>
+	<COND (<SECRET-CHECK .RARG>
+	       <RTRUE>)
+	      (<VERB? LOOK-DOWN>
+	       <COND (<FSET? ,LUMBER-RING ,TOUCHBIT>
+		      <PERFORM ,V?LOOK-THROUGH ,PEEPHOLE-2>
+		      <RTRUE>)
+		     (<FSET? ,LUMBER-CHEST ,TOUCHBIT>
+		      <PERFORM ,V?MOVE ,LUMBER-RING>
+		      <RTRUE>)>)>)
+       (<EQUAL? .RARG ,M-ENTER>
+	<COND (<IN? ,PEEPHOLE-2 ,LUMBER-ROOM>
+	       <PUTP ,LUMBER-ROOM ,P?CORRIDOR 4>)>
+	<RFALSE>)
+       (<EQUAL? .RARG ,M-EXIT>
+	<PUTP ,LUMBER-ROOM ,P?CORRIDOR 0>
+	<RFALSE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"This is lumber in the British sense, meaning useless stuff
+like old " 'MAGAZINE "s, an ornate bird cage, an " 'LUMBER-CHEST " from
+the 1700's, and a broken Victorian hobby horse." ;" Much of it was moved
+here during the War, when the Royal Navy used the  'DECK  as an
+observation post. [NW to corridor]">
+	;<OPEN-DOOR? ,SECRET-LUMBER-DOOR>
+	<CRLF>)>>
+
+<OBJECT LUMBER-CHEST
+	(IN LUMBER-ROOM)
+	(DESC "ancient chest")
+	(ADJECTIVE ANCIENT)
+	(SYNONYM CHEST)
+	(ACTION LUMBER-CHEST-F)
+	(FLAGS VOWELBIT SEENBIT NDESCBIT)>
+
+<ROUTINE LUMBER-CHEST-F ()
+ <COND (<VERB? LOOK-INSIDE OPEN>
+	<TOO-BAD-BUT ,PRSO "rusted shut">)
+       (<VERB? MOVE MOVE-DIR PUSH TURN>
+	;<OPEN-SECRET "move" ,LUMBER-CHEST ,SECRET-LUMBER-DOOR>
+	<COND (<NOT <IN? ,LUMBER-RING ,LUMBER-ROOM>>
+	       <MOVE ,LUMBER-RING ,LUMBER-ROOM>
+	       ;<MOVE ,PEEPHOLE-2 ,LUMBER-ROOM>
+	       ;<PUTP ,LUMBER-ROOM ,P?CORRIDOR 4>
+	       <TELL
+"You reveal" THE ,LUMBER-RING " in the stone floor." CR>
+	       <RTRUE>)>)>>
+
+<OBJECT LUMBER-RING
+	;(IN LUMBER-ROOM)
+	(DESC "sunken handle" ;"ring")
+	(ADJECTIVE SUNKEN)
+	(SYNONYM HANDLE ;RING)
+	(FLAGS TRYTAKEBIT)
+	(ACTION LUMBER-RING-F)>
+
+<ROUTINE LUMBER-RING-F ("AUX" P)
+ <COND (<VERB? MOVE MOVE-DIR OPEN PUSH TAKE>
+	<COND (<IN? ,PEEPHOLE-2 ,LUMBER-ROOM>
+	       <ALREADY ,LUMBER-RING "open">
+	       <RTRUE>)>
+	<MOVE ,PEEPHOLE-2 ,LUMBER-ROOM>
+	<PUTP ,LUMBER-ROOM ,P?CORRIDOR 4>
+	<TELL
+"As you pull up on" THE ,LUMBER-RING ", you reveal" THE ,PEEPHOLE-2
+", enabling you to peer directly downward at " 'TAMARA-ROOM " below.|">
+	<COND (<SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,PLAYER>>
+	       <TELL CHE .P " says, \"So that explains the ghostly face that ">
+	       <COND (<==? .P ,FRIEND> <TELL !\I>) (T <TELL D ,FRIEND>)>
+	       <TELL " saw peering down that night.\"" CR>)>
+	<RTRUE>)
+       (<VERB? CLOSE>
+	<COND (<NOT <IN? ,PEEPHOLE-2 ,LUMBER-ROOM>>
+	       <ALREADY ,LUMBER-RING "closed">
+	       <RTRUE>)>
+	<MOVE ,PEEPHOLE-2 ,LOCAL-GLOBALS>
+	<PUTP ,LUMBER-ROOM ,P?CORRIDOR 0>
+	<OKAY ,LUMBER-RING "closed">
+	<RTRUE>)>>
+
+<OBJECT PEEPHOLE-2
+	(IN LOCAL-GLOBALS)
+	(DESC "peephole")
+	(ADJECTIVE SECRET PEEP ;PEEK)
+	(SYNONYM HOLE PEEKHOLE PEEPHOLE OPENING)
+	(FLAGS NDESCBIT ;SECRETBIT ONBIT)
+	(ACTION PEEPHOLE-2-F)>
+
+<ROUTINE PEEPHOLE-2-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE LOOK-OUTSIDE LOOK-THROUGH>
+	<COND (T ;<NOT <SECRET-CHECK ,M-BEG>>
+	       <ROOM-PEEK ,TAMARA-ROOM T>)>
+	<RTRUE>)
+       (<VERB? THROUGH>
+	<TOO-BAD-BUT ,PEEPHOLE-2 "too small">
+	<RTRUE>)>>
+
+<OBJECT MAGAZINE
+	(IN LUMBER-ROOM)
+	(DESC "magazine")
+	(ADJECTIVE OLD PUNCH)
+	(SYNONYM MAGAZINE PUNCH)
+	(FLAGS ;TRY TAKEBIT NDESCBIT READBIT ;SECRETBIT)
+	(SIZE 4)
+	(ACTION MAGAZINE-F)>
+
+<ROUTINE MAGAZINE-F ()
+ <COND ;(<AND <VERB? EXAMINE TAKE SEARCH SEARCH-FOR>
+	     <EQUAL? ,VARIATION ,PAINTER-C>
+	     <FSET? ,MAGAZINE ,NDESCBIT>>
+	<FCLEAR ,MAGAZINE ,TRYTAKEBIT>
+	<COND (<VERB? TAKE>
+	       <MOVE ,MAGAZINE ,WINNER>)>
+	<DISCOVER ,MAGAZINE>
+	<RTRUE>)
+       (<VERB? EXAMINE LOOK-INSIDE OPEN READ>
+	<COND (<NOT-HOLDING? ,PRSO>
+	       <RTRUE>)>
+	<TELL "This is a">
+	<COND (<EQUAL? ,VARIATION ,PAINTER-C>
+	       <TELL
+" copy of \"Reader's Digest\" for Sept. 1976. As you leaf through
+it, you find an article about the skull of Peking Man, which
+disappeared after the Pearl Harbor Attack, when it was
+shipped from China. Once it was
+mysteriously offered for sale for a million
+dollars, as reported in the New York Times." CR>)
+	      (T <TELL
+"n old copy of \"Punch,\" good for a laugh or two." CR>)>)>>
+][
+<ROOM CHAPEL
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT OPENBIT DOORBIT)
+	(DESC "chapel")
+	(ADJECTIVE CHAPEL)
+	(SYNONYM CHAPEL DOOR)
+	(LINE 3)
+	(STATION CORR-3)
+	(CHARACTER 4)
+	(GLOBAL CHAPEL ;CHAPEL-DOOR CHAIR)
+	(THINGS <PSEUDO ( <> ALTAR	RANDOM-PSEUDO)
+			( <> PULPIT	RANDOM-PSEUDO)
+			( <> FONT	RANDOM-PSEUDO)
+			( FAMILY PEW	RANDOM-PSEUDO)
+			( FAMILY PEWS	RANDOM-PSEUDO)>)
+	(NORTH	TO CORR-3 IF CHAPEL ;CHAPEL-DOOR IS OPEN)
+	(OUT	TO CORR-3 IF CHAPEL ;CHAPEL-DOOR IS OPEN)
+	(ACTION CHAPEL-F)>
+
+<ROUTINE CHAPEL-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<TELL
+"A bare and austere yet poignantly atmospheric relic of the medieval
+past, the chapel contains an altar, pulpit, font, and family pews of
+elaborately carved oak. The most memorable feature is a splendid "
+D ,STAINED-WINDOW ". " <GETP ,STAINED-WINDOW ,P?TEXT> CR>)>>
+
+<OBJECT STAINED-WINDOW
+	(IN CHAPEL)
+	(DESC "stained-glass window")
+	(ADJECTIVE STAINED GLASS)
+	(SYNONYM WINDOW APPLE GLASS)
+	(FLAGS ;CONTBIT OPENBIT NDESCBIT)
+	(CAPACITY 3)
+	(TEXT
+"It portrays, in vividly glowing colors, Eve
+tempting Adam with the forbidden apple in the Garden of Eden.")
+	(ACTION STAINED-WINDOW-F)>
+
+<ROUTINE STAINED-WINDOW-F ()
+ <COND (<AND <VERB? EXAMINE TAKE SEARCH SEARCH-FOR>
+	     <IN? ,CLUE-3 ,STAINED-WINDOW>
+	     <FSET? ,CLUE-3 ,SECRETBIT>>
+	<DISCOVER ,CLUE-3>
+	<RTRUE>
+	;<TELL
+CHE ,WINNER notice " that the " D ,STAINED-WINDOW " looks odd. When"HE ,WINNER
+remove " the apple, it's obviously " <GETP ,RUBY ,P?TEXT> "!" CR>)
+       (<VERB? MUNG>
+	<YOU-SHOULDNT>)>>
+][
+<ROUTINE BILLIARD-PSEUDO ()
+ <COND (<VERB? LOOK-ON>
+	<WONT-HELP>)
+       (<VERB? PLAY>
+	<TELL
+CHE ,WINNER knock " the balls around for a minute before getting bored." CR>)>>
+
+<ROOM GAME-ROOM
+	(IN ROOMS)
+	(FLAGS ;ONBIT SEENBIT OPENBIT DOORBIT)
+	(DESC "game room")
+	(ADJECTIVE GAME GAME-ROOM ROOM BILLIARD)
+	(SYNONYM ROOM DOOR)
+	(LDESC
+"The game room has a billiard table and card table, with various chairs
+and standing ash trays. On the wall are a cue rack, gun rack, and mounted
+heads of a rhino and a cape buffalo."
+;"[S to corridor]")
+	(LINE 3)
+	(STATION CORR-3)
+	(CHARACTER 4)
+	(GLOBAL GAME-ROOM ;GAME-DOOR CHAIR ;TABLE-RANDOM)
+	(THINGS <PSEUDO ( CARD TABLE	BILLIARD-PSEUDO)
+			( BILLIARD TABLE BILLIARD-PSEUDO)
+			;( <> BILLIARD	BILLIARD-PSEUDO)
+			( CUE RACK	RANDOM-PSEUDO)
+			( <> CUE	RANDOM-PSEUDO)
+			( GUN RACK	RANDOM-PSEUDO)
+			( <> GUN	RANDOM-PSEUDO)
+			( ASH TRAY	RANDOM-PSEUDO)
+			( ASH TRAYS	RANDOM-PSEUDO)>)
+	(SOUTH	TO CORR-3 IF GAME-ROOM ;GAME-DOOR IS OPEN)
+	(OUT	TO CORR-3 IF GAME-ROOM ;GAME-DOOR IS OPEN)>
+
+<OBJECT BUFFALO-HEAD
+	(IN GAME-ROOM)
+	(DESC "stuffed buffalo head")
+	(ADJECTIVE STUFFED ;CAPE BUFFALO BUF\'S ;EYE)
+	(SYNONYM BUFFALO HEAD EYE ;SOCKET)
+	(GENERIC GENERIC-EYE)
+	(FLAGS NDESCBIT SEENBIT)
+	(ACTION BUFFALO-HEAD-F)>
+
+<ROUTINE BUFFALO-HEAD-F ()
+ <COND (<AND <NOUN-USED? ,W?EYE>
+	     <ADJ-USED? <>>
+	     <VISIBLE? ,GLASS-EYE>>
+	<DO-INSTEAD-OF ,GLASS-EYE ,BUFFALO-HEAD>
+	<RTRUE>)>>
+
+<OBJECT RHINO-HEAD
+	(IN GAME-ROOM)
+	(DESC "stuffed rhino head")
+	(ADJECTIVE STUFFED RHINO RH\'S)
+	(SYNONYM RHINO HEAD)
+	(FLAGS ;TRYTAKEBIT CONTBIT OPENBIT NDESCBIT SEENBIT SEARCHBIT)
+	(CAPACITY 3)
+	(ACTION RHINO-HEAD-F)>
+
+<ROUTINE RHINO-HEAD-F ()
+ <COND ;(<VERB? TAKE>
+	<TELL "The trophy is fastened securely to the wall." CR>)
+       (<VERB? EXAMINE ;TAKE SEARCH SEARCH-FOR OPEN LOOK-INSIDE FIX>
+	<COND (<AND <IN? ,CLUE-3 ,RHINO-HEAD>
+		    <FSET? ,CLUE-3 ,SECRETBIT>>
+	       <FSET ,GLASS-EYE ,TAKEBIT>
+	       <FCLEAR ,GLASS-EYE ,TRYTAKEBIT>
+	       <FCLEAR ,GLASS-EYE ,NDESCBIT>
+	       <FSET ,GLASS-EYE ,SEENBIT>
+	       <TELL
+"There's something odd about this trophy. One of the " 'GLASS-EYE "s is
+backwards." CR>)>)>>
+
+<OBJECT GLASS-EYE
+	(IN RHINO-HEAD)
+	(DESC "glass eye")
+	(ADJECTIVE GLASS RHINO YELLOW RH\'S)
+	(SYNONYM EYE)
+	(GENERIC GENERIC-EYE)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(SIZE 2)
+	(ACTION GLASS-EYE-F)>
+
+<ROUTINE GLASS-EYE-F ()
+ <COND (<AND <DOBJ? GLASS-EYE>
+	     <IN? ,RHINO-HEAD ,HERE>
+	     <VERB? EXAMINE FIX LOOK-BEHIND LOOK-INSIDE MOVE MOVE-DIR
+		OPEN SEARCH SEARCH-FOR TAKE>>
+        <COND (<AND <IN? ,CLUE-3 ,RHINO-HEAD>
+		    ;<FSET? ,CLUE-3 ,SECRETBIT>>
+	       <FSET ,RHINO-HEAD ,OPENBIT>
+	       <FCLEAR ,GLASS-EYE ,NDESCBIT>
+	       <FCLEAR ,GLASS-EYE ,TRYTAKEBIT>
+	       <FSET ,GLASS-EYE ,TAKEBIT>
+	       <COND (<VERB? TAKE>
+		      <V-TAKE>
+		      ;<MOVE ,GLASS-EYE ,WINNER>)>
+	       <DISCOVER ,CLUE-3>
+	       <RTRUE>)>)>>
+][
+<ROOM DECK
+	(IN ROOMS)
+	(FLAGS ONBIT SEENBIT SURFACEBIT OPENBIT)
+	(DESC "fighting deck")
+	(ADJECTIVE THIRD TOP STORY STOREY FIGHTING OBSERVE)
+	(SYNONYM ;CORRIDOR DECK ROOF)
+	(GLOBAL MOON OCEAN STAIRS)
+	(LINE 3)
+	(STATION DECK)
+	(CHARACTER 5)
+	;(NORTH	;"TO CURTAIN-WALL"
+"The curtain wall looks too precarious for walking.")
+	;(EAST
+"You almost step on thin air instead of the curtain wall that has long
+since crumbled away.")
+	(OUT	TO CORR-3)
+	(DOWN	TO CORR-3 ;STAIRS-3)
+	(IN	TO CORR-3 ;STAIRS-3)
+	(SOUTH	TO CORR-3 ;STAIRS-3)
+	(ACTION DECK-F)>
+
+<ROUTINE DECK-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"The \"roof\" of the tower keep has a stone floor and battlements all
+around. Far below,
+the faint sound of the sea cries from the darkness. In the moonlight
+you see a huge bell mounted on a heavy frame."
+;"[N to curtain wall, S/D to stair]" CR>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?SOUTH ,P?DOWN ,P?IN>
+	<TELL ,STAIRS-DOWN-LEFT>
+	<RTRUE>)>>
+
+<OBJECT BELL
+	(IN DECK)
+	(DESC "bell")
+	(ADJECTIVE DINNER ;HUGE)
+	(SYNONYM BELL GONG)
+	(GENERIC GENERIC-BELL)
+	(FLAGS NDESCBIT SEENBIT CONTBIT OPENBIT)
+	(ACTION BELL-F)>
+
+<ROUTINE BELL-F ("AUX" (N 0) P GT)
+ <COND (<VERB? MOVE MOVE-DIR PUSH TURN>
+	<TOO-BAD-BUT ,BELL "too heavy">)
+       (<VERB? EXAMINE LOOK-INSIDE LOOK-UNDER SEARCH SEARCH-FOR>
+	<COND (<AND <EQUAL? ,VARIATION ,PAINTER-C>
+		    <FSET? ,SKULL ,SECRETBIT>>
+	       ;<FCLEAR ,SKULL ,SECRETBIT>
+	       <DISCOVER ,SKULL>
+	       <RTRUE ;FALSE>)
+	      (<AND ;<EQUAL? ,VARIATION ,FRIEND-C>
+		    <IN? ,CLUE-3 ,BELL>
+		    <FSET? ,CLUE-3 ,SECRETBIT>>
+	       ;<FCLEAR ,CLUE-3 ,SECRETBIT>
+	       <DISCOVER ,CLUE-3>
+	       <RTRUE ;FALSE>)
+	      (T
+	       <TELL-AS-WELL-AS ,BELL " the clapper">
+	       <RTRUE>
+	       ;<TELL "There's nothing inside it but the clapper." CR>)>)
+       (<VERB? RING>
+	<COND ;(<AND <EQUAL? ,VARIATION ,PAINTER-C>
+		    <FSET? ,SKULL ,SECRETBIT>>
+	       <TELL "It just goes \"klunk.\"" CR>
+	       <RTRUE>)
+	      (<T? ,PLAYER-RANG-BELL?>
+	       T)
+	      (<NOT <IN? ,BUTLER ,LOCAL-GLOBALS>>
+	       <COND (<NOT <IN? ,BUTLER ,KITCHEN ;,HERE>>
+		      <GO-TO-SOUND ,KITCHEN ;,HERE ,BUTLER>)>)
+	      (<ZERO? ,LIONEL-SPEAKS-COUNTER>
+	       <SETG MASS-SAID <>>
+	       <REPEAT ()
+		       <COND (<IGRTR? N ,DEB-C> <RETURN>)>
+		       <SET P <GET ,CHARACTER-TABLE .N>>
+		       <COND (<AND <NOT <EQUAL? .P ,CONFESSED ,CAPTOR>>
+				   <NOT <EQUAL? .P ,GHOST-NEW ,SEARCHER>>
+				   ;<NOT <IN? .P ,DECK>>>
+			      <GO-TO-SOUND ,DECK .P>)>>)>
+	<SETG PLAYER-RANG-BELL? T>
+	<TELL
+"Its deep booming \"gong\" can be felt in every room of the castle.">
+	;<COND (<FIRST? ,BELL>
+	       <TELL " But it doesn't ring true.">)>
+	<CRLF>
+	<COND (<AND <==? ,HERE ,DECK>
+		    <SET P <FIND-FLAG-HERE-NOT ,PERSONBIT ,MUNGBIT ,PLAYER>>>
+	       <TELL D .P " whispers, \"That's ">
+	       <COND (<FIRST? ,BELL> <TELL "not " ;"a bit odd.\"">)>
+	       <TELL "too loud for comfort!\"">
+	       <CRLF>)>
+	<RTRUE>)>>
+
+<GLOBAL BUTLER-DUTY 0>
+
+<ROUTINE GO-TO-SOUND (RM ;OBJ P "AUX" GT GF (L <LOC .P>))
+ <COND (<AND <NOT <IN? .P .RM>>
+	     <NOT <FSET? .P ,MUNGBIT>>>
+	<SET GT <GT-O .P>>
+	<SET GF <GET .GT ,GOAL-FUNCTION>>
+	<COND (<AND <==? .P ,BUTLER>
+		    <NOT <==? .GF ,X-TO-BELL>>>
+	       <SETG BUTLER-DUTY .GF>)>
+	<PUT .GT ,GOAL-FUNCTION ,X-TO-BELL>
+	<COND (<IN-MOTION? .P T>
+	       <PUT .GT ,GOAL-QUEUED <GET .GT ,GOAL-F>>)
+	      (T ;<ZERO? <GET .GT ,GOAL-ENABLE>>
+	       <PUT .GT ,GOAL-QUEUED .L>)>
+	<COND (<AND <1? <RANDOM 2>>
+		    <OR <AND <FSET? .RM ,WEARBIT> ;"WING-ROOMS"
+			     <NOT <FSET? .L ,WEARBIT>>>
+			<AND <NOT <FSET? .RM ,WEARBIT>>
+			     <FSET? .L ,WEARBIT>>>>
+	       ;<PUTP .P ,P?LDESC 0>
+	       <MOVE .P ,JUNCTION>)>
+	<ESTABLISH-GOAL .P .RM ;,HERE>)>>
+
+<ROUTINE X-TO-BELL ("OPTIONAL" (GARG <>)
+		    "AUX" (L <LOC ,GOAL-PERSON>) (GT <GT-O ,GOAL-PERSON>))
+ %<DEBUG-CODE <COND (<OR ,IDEBUG <==? .GARG ,G-DEBUG>>
+		     <TELL "[X-TO-BELL:">
+		     <COND (<==? .GARG ,G-DEBUG> <RFALSE>)>)>>
+ <COND (<OR <EQUAL? .GARG ,G-REACHED>
+	    <EQUAL? .L ,HERE>>
+	<COND (<L? ,BED-TIME ,PRESENT-TIME>
+	       <QUEUE I-BEDTIME 15>)>
+	<PUT .GT ,ATTENTION <GET .GT ,ATTENTION-SPAN>>
+	<COND (<==? ,GOAL-PERSON ,BUTLER>
+	       <PUT .GT ,GOAL-FUNCTION ,BUTLER-DUTY>)
+	      (T <PUT .GT ,GOAL-FUNCTION ,NULL-F>)>
+	;<ESTABLISH-GOAL ,GOAL-PERSON <GET .GT ,GOAL-QUEUED>>	;I-ATTENTION
+	;<PUT .GT ,GOAL-ENABLE 0>
+	;<PUT .GT ,GOAL-S <>>
+	<PUTP ,GOAL-PERSON ,P?LDESC 4 ;"looking at you with suspicion">
+	<COND (<AND <EQUAL? .L ,HERE>
+		    <ZERO? ,MASS-SAID>>
+	       <SETG MASS-SAID T>
+	       <TELL
+CHE ,GOAL-PERSON " appears and says, \"What's all this, then?\"|">
+	       <RFATAL>)>)>>
+]
+
+<GLOBAL INTO-DARKNESS " into darkness.|">
+
+<OBJECT LADDER
+	(IN LOCAL-GLOBALS)
+	(DESC "ladder")
+	(ADJECTIVE NARROW)
+	(SYNONYM LADDER ;" STAIRW STAIRS STAIR")
+	(ACTION LADDER-F)>
+
+<ROUTINE LADDER-F ("AUX" (U <>) (D <>))
+ <COND (<VERB? CLIMB-DOWN>
+	<DO-WALK ,P?DOWN>
+	<RTRUE>)
+       (<VERB? CLIMB-UP>
+	<DO-WALK ,P?UP>
+	<RTRUE>)
+       (<VERB? BOARD CLIMB-ON>
+	<COND (<SET U <GETPT ,HERE ,P?UP>>
+	       <COND (<NOT <==? <PTSIZE .U> ,UEXIT>>
+		      <SET U <>>)>)>
+	<COND (<SET D <GETPT ,HERE ,P?DOWN>>
+	       <COND (<NOT <==? <PTSIZE .D> ,UEXIT>>
+		      <SET D <>>)>)>
+	<COND (<ZERO? .U>
+	       <DO-WALK ,P?DOWN>)
+	      (<ZERO? .D>
+	       <DO-WALK ,P?UP>)
+	      (T
+	       <SETG CLOCK-WAIT T>
+	       <TELL !\( ,WHICH-DIR ")" CR>)>
+	<RTRUE>)>>
+
+<ROUTINE LEVER-AND-DOOR (DR DIR)
+	<FSET .DR ,SEENBIT>
+	<TELL !\A>
+	<COND (<FSET? .DR ,OPENBIT> <TELL "n open">)>
+	<TELL " " D .DR " and a lever are on the ">
+	<DIR-PRINT .DIR>
+	<TELL " wall." CR>>
+
+<ROOM SECRET-LANDING-JACK
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "Jack's landing")
+	(ADJECTIVE JACK\'S HIS SECRET)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-JACK-DOOR JACK-ROOM LEVER STAIRS)
+	(LINE 4)
+	(STATION SECRET-LANDING-JACK)
+	(CHARACTER 3)
+	(NORTH	TO JACK-ROOM IF SECRET-JACK-DOOR IS OPEN)
+	(NE	TO JACK-ROOM IF SECRET-JACK-DOOR IS OPEN)
+	(IN	TO JACK-ROOM IF SECRET-JACK-DOOR IS OPEN)
+	(OUT	TO JACK-ROOM IF SECRET-JACK-DOOR IS OPEN)
+	(EAST	TO PASSAGE-1)
+	(SE	TO PASSAGE-1)
+	(DOWN	TO PASSAGE-1)
+	(ACTION SECRET-LANDING-JACK-F)>
+
+<ROUTINE SECRET-LANDING-JACK-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,JACK-ROOM>
+	<LEVER-AND-DOOR ,SECRET-JACK-DOOR ,P?IN>
+	<TELL "Stone steps curve down to the east." CR>)>>
+
+<ROOM PASSAGE-1
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "tower passage")
+	(ADJECTIVE ;GROUND SECRET TOWER)
+	(SYNONYM PASSAGE ENTRANCE LANDING)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL LADDER STAIRS)
+	(LINE 4)
+	(STATION PASSAGE-1)
+	(CHARACTER 2)
+	(SW	TO SECRET-LANDING-JACK)
+	(WEST	TO SECRET-LANDING-JACK)
+	(OUT	TO SECRET-LANDING-JACK)
+	(EAST	TO SITTING-PASSAGE)
+	(DOWN	TO SITTING-PASSAGE)
+	(IN	TO SECRET-LANDING-TAM)
+	(UP	TO SECRET-LANDING-TAM)
+	(ACTION PASSAGE-1-F)>
+
+<ROUTINE PASSAGE-1-F ("OPTIONAL" (RARG 0))
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"Stone steps lead west, a " 'PASSAGE " leads east, and a ladder leads
+straight up" ,INTO-DARKNESS>
+	<RTRUE>)
+       ;(<EQUAL? .RARG ,P?EAST ,P?DOWN>
+	<ENTER-PASSAGE>
+	<RTRUE>)
+       (<EQUAL? .RARG ,P?WEST ,P?OUT ,P?SW>
+	<TELL ,STAIRS-UP-RIGHT>
+	<RTRUE>)>>
+
+<ROOM SECRET-LANDING-TAM
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "Tamara's landing")
+	(ADJECTIVE SECRET TAM\'S HER)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-TAMARA-DOOR TAMARA-ROOM LEVER LADDER STAIRS)
+	(LINE 4)
+	(STATION SECRET-LANDING-TAM)
+	(CHARACTER 3)
+	(WEST	TO TAMARA-ROOM IF SECRET-TAMARA-DOOR IS OPEN)
+	(NW	TO TAMARA-ROOM IF SECRET-TAMARA-DOOR IS OPEN)
+	(OUT	TO TAMARA-ROOM IF SECRET-TAMARA-DOOR IS OPEN)
+	(IN	TO TAMARA-ROOM IF SECRET-TAMARA-DOOR IS OPEN)
+	(EAST	TO SECRET-VIVIEN-PASSAGE)
+	(DOWN	TO PASSAGE-1)
+	(NE	TO SECRET-LANDING-LIB)
+	(NORTH	TO SECRET-LANDING-LIB)
+	(ACTION SECRET-LANDING-TAM-F)>
+
+<ROUTINE SECRET-LANDING-TAM-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,TAMARA-ROOM>
+	<LEVER-AND-DOOR ,SECRET-TAMARA-DOOR ,P?IN>
+	<TELL ,SECRET-TAM-LIB "north" ,INTO-DARKNESS>)>>
+
+<ROOM SECRET-VIVIEN-PASSAGE
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "Vivien's entrance")
+	(ADJECTIVE SECRET VIV\'S HER)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-VIVIEN-DOOR VIVIEN-ROOM LEVER)
+	(LINE 4)
+	(STATION SECRET-LANDING-TAM)
+	(CHARACTER 3)
+	(WEST	TO SECRET-LANDING-TAM)
+	(EAST	TO YOUR-CLOSET)
+	(NORTH	TO VIVIEN-ROOM IF SECRET-VIVIEN-DOOR IS OPEN)
+	(IN	TO VIVIEN-ROOM IF SECRET-VIVIEN-DOOR IS OPEN)
+	(OUT	TO VIVIEN-ROOM IF SECRET-VIVIEN-DOOR IS OPEN)
+	(ACTION SECRET-VIVIEN-PASSAGE-F)>
+
+<ROUTINE SECRET-VIVIEN-PASSAGE-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,VIVIEN-ROOM>
+	<LEVER-AND-DOOR ,SECRET-VIVIEN-DOOR ,P?NORTH>
+	<TELL "A " 'PASSAGE " leads west and east" ,INTO-DARKNESS>)
+       (<==? .RARG ,P?EAST>
+	<TELL
+"The " 'PASSAGE " turns north at the corner of the building." CR>)>>
+
+<ROOM DINING-PASSAGE
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "dining passage")
+	(ADJECTIVE SECRET DINING)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-DINING-DOOR BACKSTAIRS LADDER STAIRS LEVER)
+	(LINE 4)
+	(STATION SECRET-LANDING-LIB)
+	(CHARACTER 2)
+	(UP	TO SECRET-LANDING-LIB)
+	(EAST	TO BACKSTAIRS IF SECRET-DINING-DOOR IS OPEN)
+	(IN	TO BACKSTAIRS IF SECRET-DINING-DOOR IS OPEN)
+	(OUT	TO BACKSTAIRS IF SECRET-DINING-DOOR IS OPEN)
+	(ACTION DINING-PASSAGE-F)>
+
+<ROUTINE DINING-PASSAGE-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<LEVER-AND-DOOR ,SECRET-DINING-DOOR ,P?EAST>
+	<TELL "A ladder leads up" ,INTO-DARKNESS>
+	<RTRUE>)>>
+
+<ROOM SECRET-LANDING-LIB
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "library landing")
+	(ADJECTIVE SECRET LIBRARY)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-LIBRARY-DOOR LIBRARY LEVER LADDER STAIRS)
+	(LINE 4)
+	(STATION SECRET-LANDING-LIB)
+	(CHARACTER 3)
+	(WEST	TO LIBRARY IF SECRET-LIBRARY-DOOR IS OPEN)
+	(SW	TO LIBRARY IF SECRET-LIBRARY-DOOR IS OPEN)
+	(IN	TO LIBRARY IF SECRET-LIBRARY-DOOR IS OPEN)
+	(OUT	TO LIBRARY IF SECRET-LIBRARY-DOOR IS OPEN)
+	(EAST	TO SECRET-IAN-PASSAGE)
+	(SOUTH	TO SECRET-LANDING-TAM)
+	;(SE	TO SECRET-LANDING-TAM)
+	(DOWN	TO DINING-PASSAGE)
+	(ACTION SECRET-LANDING-LIB-F)>
+
+<ROUTINE SECRET-LANDING-LIB-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,LIBRARY>
+	<LEVER-AND-DOOR ,SECRET-LIBRARY-DOOR ,P?IN>
+	<TELL ,SECRET-TAM-LIB "south" ,INTO-DARKNESS>)>>
+
+<GLOBAL SECRET-TAM-LIB
+	"A ladder leads down, a passage leads east, and a walkway leads ">
+
+<ROOM SECRET-IAN-PASSAGE
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT VOWELBIT)
+	(DESC "Ian's entrance")
+	(ADJECTIVE SECRET IAN\'S HIS)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-IAN-DOOR IAN-ROOM LEVER)
+	(LINE 4)
+	(STATION SECRET-IAN-PASSAGE)
+	(CHARACTER 3)
+	(WEST	TO SECRET-LANDING-LIB)
+	(EAST	TO HYDE-CLOSET)
+	(SOUTH	TO IAN-ROOM IF SECRET-IAN-DOOR IS OPEN)
+	(IN	TO IAN-ROOM IF SECRET-IAN-DOOR IS OPEN)
+	(OUT	TO IAN-ROOM IF SECRET-IAN-DOOR IS OPEN)
+	(ACTION SECRET-IAN-PASSAGE-F)>
+
+<ROUTINE SECRET-IAN-PASSAGE-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,IAN-ROOM>
+	<LEVER-AND-DOOR ,SECRET-IAN-DOOR ,P?SOUTH>
+	<TELL ,PASSAGE-EAST-WEST>
+	<RTRUE>)>>
+
+<GLOBAL PASSAGE-EAST-WEST "The passage leads east and west into darkness.|">
+
+<ROOM SITTING-PASSAGE
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "sitting passage")
+	(ADJECTIVE SECRET SITTING)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-SITTING-DOOR ;"SITTING-ROOM ;LEVER ;LADDER")
+	(LINE 4)
+	(STATION PASSAGE-1)
+	(CHARACTER 2)
+	(WEST	TO PASSAGE-1)
+	(IN	TO PASSAGE-1)
+	(OUT	TO PASSAGE-1)
+	(UP	PER SITTING-PASSAGE-LOSE)
+	;(UP	TO SITTING-ROOM IF SECRET-SITTING-DOOR IS OPEN)
+	(ACTION SITTING-PASSAGE-F)>
+
+<ROUTINE SITTING-PASSAGE-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<FSET ,SECRET-SITTING-DOOR ,SEENBIT>
+	<PASSAGE-DESC? ,SITTING-ROOM>
+	<SITTING-PASSAGE-LOSE>
+	<TELL "A " 'PASSAGE " leads up to the west" ,INTO-DARKNESS>)>>
+
+<ROUTINE SITTING-PASSAGE-LOSE ()
+	<TELL
+CTHE ,SECRET-SITTING-DOOR " is overhead, too high to climb through.|">
+	<RFALSE>>
+
+<ROOM YOUR-CLOSET
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "your entrance")
+	(ADJECTIVE MY SECRET)
+	(SYNONYM ENTRANCE SPACE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-YOUR-DOOR YOUR-ROOM STAIRS LEVER)
+	(LINE 4)
+	(STATION YOUR-CLOSET)
+	(CHARACTER 3)
+	(SOUTH	TO SECRET-VIVIEN-PASSAGE)
+	(IN	TO YOUR-ROOM IF SECRET-YOUR-DOOR IS OPEN)
+	(OUT	TO YOUR-ROOM IF SECRET-YOUR-DOOR IS OPEN)
+	(WEST	TO YOUR-ROOM IF SECRET-YOUR-DOOR IS OPEN)
+	(NORTH	TO IRIS-CLOSET)
+	(DOWN	TO DRAWING-CLOSET)
+	(ACTION YOUR-CLOSET-F)>
+
+<ROUTINE YOUR-CLOSET-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,YOUR-ROOM>
+	<TELL "The " 'PASSAGE " leads north and south. ">
+	<LEVER-AND-DOOR ,SECRET-YOUR-DOOR ,P?WEST>
+	<TELL "A narrow stairway snakes down" ,INTO-DARKNESS>)
+       (<==? .RARG ,P?SOUTH>
+	<TELL
+"The " 'PASSAGE " turns west at the corner of the building." CR>)>>
+
+<ROUTINE PASSAGE-DESC? (RM)
+ <COND (<EQUAL? ,HERE <GET ,FOUND-PASSAGES ,PLAYER-C>>
+	<TELL
+"This is a musty and cobwebby " 'PASSAGE " between the wall of" THE .RM
+" and the outside wall of the castle." CR>)>>
+
+<ROOM IRIS-CLOSET
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "Iris's entrance")
+	(ADJECTIVE IRIS\'S HER SECRET)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-IRIS-DOOR IRIS-ROOM LEVER ;LADDER)
+	(LINE 4)
+	(STATION IRIS-CLOSET)
+	(CHARACTER 3)
+	(NORTH	TO WENDISH-CORNER)
+	(SOUTH	TO YOUR-CLOSET)
+	(WEST	TO IRIS-ROOM IF SECRET-IRIS-DOOR IS OPEN)
+	(IN	TO IRIS-ROOM IF SECRET-IRIS-DOOR IS OPEN)
+	(OUT	TO IRIS-ROOM IF SECRET-IRIS-DOOR IS OPEN)
+	(ACTION IRIS-CLOSET-F)>
+
+<ROUTINE IRIS-CLOSET-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-BEG>
+	<COND (<IN? ,COSTUME ,IRIS-CLOSET>
+	       <FCLEAR ,COSTUME ,SECRETBIT>
+	       <RFALSE>)>)
+       (<==? .RARG ,M-LOOK>
+	<LEVER-AND-DOOR ,SECRET-IRIS-DOOR ,P?WEST>
+	<TELL "The " 'PASSAGE " leads north and south" ,INTO-DARKNESS>)
+       (<==? .RARG ,P?NORTH>
+	<TELL
+"The " 'PASSAGE " turns west at the corner of the building." CR>)>>
+
+<ROOM WENDISH-CORNER
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "Wendish's entrance")
+	(ADJECTIVE SECRET DOC\'S HIS)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-WENDISH-DOOR WENDISH-ROOM LEVER)
+	(LINE 4)
+	(STATION WENDISH-CORNER)
+	(CHARACTER 3)
+	(EAST	TO IRIS-CLOSET)
+	(WEST	TO MIDPOINT)
+	(SOUTH	TO WENDISH-ROOM IF SECRET-WENDISH-DOOR IS OPEN)
+	(IN	TO WENDISH-ROOM IF SECRET-WENDISH-DOOR IS OPEN)
+	(OUT	TO WENDISH-ROOM IF SECRET-WENDISH-DOOR IS OPEN)
+	(ACTION WENDISH-CORNER-F)>
+
+<ROUTINE WENDISH-CORNER-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,WENDISH-ROOM>
+	<LEVER-AND-DOOR ,SECRET-WENDISH-DOOR ,P?SOUTH>
+	<TELL ,PASSAGE-EAST-WEST>
+	<RTRUE>)
+       (<==? .RARG ,P?EAST>
+	<TELL
+"The " 'PASSAGE " turns south at the corner of the building." CR>)>>
+
+<ROOM MIDPOINT
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "midpoint")
+	(SYNONYM MIDPOINT)
+	(LINE 4)
+	(STATION MIDPOINT)
+	(CHARACTER 3)
+	(SOUTH	TO GALLERY-CORNER)
+	(EAST	TO WENDISH-CORNER)
+	(OUT	TO WENDISH-CORNER)
+	(WEST	TO HYDE-CLOSET)
+	(ACTION MIDPOINT-F)>
+
+<ROUTINE MIDPOINT-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<TELL
+"At the " 'MIDPOINT " of the " 'PASSAGE ", another " 'PASSAGE " leads south. "
+,PASSAGE-EAST-WEST>
+	<RTRUE>)>>
+
+<ROOM DRAWING-CLOSET
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "drawing-room entrance")
+	(ADJECTIVE DRAWING SECRET)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-DRAWING-DOOR DRAWING-ROOM LEVER LADDER STAIRS)
+	(LINE 4)
+	(STATION DRAWING-CLOSET)
+	(CHARACTER 2)
+	(UP	TO YOUR-CLOSET)
+	(NORTH	TO DRAWING-ROOM IF SECRET-DRAWING-DOOR IS OPEN)
+	(IN	TO DRAWING-ROOM IF SECRET-DRAWING-DOOR IS OPEN)
+	(OUT	TO DRAWING-ROOM IF SECRET-DRAWING-DOOR IS OPEN)
+	(ACTION DRAWING-CLOSET-F)>
+
+<ROUTINE DRAWING-CLOSET-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<PASSAGE-DESC? ,DRAWING-ROOM>
+	<LEVER-AND-DOOR ,SECRET-DRAWING-DOOR ,P?NORTH>
+	<TELL "A narrow stairway snakes up" ,INTO-DARKNESS>
+	<RTRUE>)>>
+
+<ROOM GALLERY-CORNER
+	(IN ROOMS)
+	(FLAGS SECRETBIT)
+	(DESC "dead end")
+	(ADJECTIVE SECRET HIDDEN DEAD)
+	(SYNONYM ENTRANCE LANDING PASSAGE END)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL PEEPHOLE)
+	(CORRIDOR 2)
+	(LINE 4)
+	(STATION MIDPOINT)
+	(CHARACTER 3)
+	(NORTH	TO MIDPOINT)
+	(OUT	TO MIDPOINT)
+	(ACTION GALLERY-CORNER-F)>
+
+<ROUTINE GALLERY-CORNER-F ("OPT" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<FCLEAR ,PEEPHOLE ,SECRETBIT>
+	<TELL
+CTHE ,PEEPHOLE " is in the south wall. A " 'PASSAGE " leads north." CR>)>>
+
+<OBJECT PEEPHOLE
+	(IN LOCAL-GLOBALS)
+	(DESC "peephole")
+	(ADJECTIVE SECRET PEEP ;PEEK)
+	(SYNONYM HOLE PEEKHOLE PEEPHOLE OPENING)
+	(FLAGS SECRETBIT ONBIT)
+	(ACTION PEEPHOLE-F)>
+
+<ROUTINE PEEPHOLE-F ()
+ <COND (<VERB? EXAMINE LOOK-INSIDE LOOK-OUTSIDE LOOK-THROUGH>
+	<COND (<==? ,HERE ,GALLERY-CORNER>
+	       <FCLEAR ,PEEPHOLE ,SECRETBIT>
+	       <ROOM-PEEK ,GALLERY T>
+	       <RTRUE>)
+	      (<==? ,HERE ,GALLERY>
+	       <COND (<NOT <SECRET-CHECK ,M-BEG>>
+		      <ROOM-PEEK ,GALLERY-CORNER T>)>
+	       <RTRUE>)>)
+       (<VERB? THROUGH>
+	<TOO-BAD-BUT ,PEEPHOLE "too small">
+	<RTRUE>)>>
+
+<ROOM HYDE-CLOSET
+	(IN ROOMS)
+	(FLAGS SECRETBIT NARTICLEBIT)
+	(DESC "Hyde's entrance")
+	(ADJECTIVE HYDE\'S HIS SECRET)
+	(SYNONYM ENTRANCE LANDING PASSAGE)
+	(GENERIC GENERIC-CLOSET)
+	(GLOBAL SECRET-HYDE-DOOR HYDE-ROOM LEVER)
+	(LINE 4)
+	(STATION HYDE-CLOSET)
+	(CHARACTER 3)
+	(SOUTH	TO HYDE-ROOM IF SECRET-HYDE-DOOR IS OPEN)
+	(IN	TO HYDE-ROOM IF SECRET-HYDE-DOOR IS OPEN)
+	(OUT	TO HYDE-ROOM IF SECRET-HYDE-DOOR IS OPEN)
+	(EAST	TO MIDPOINT)
+	(WEST	TO SECRET-IAN-PASSAGE)
+	(ACTION HYDE-CLOSET-F)>
+
+<ROUTINE HYDE-CLOSET-F ("OPTIONAL" (RARG 0))
+ <COND (<==? .RARG ,M-LOOK>
+	<LEVER-AND-DOOR ,SECRET-HYDE-DOOR ,P?SOUTH>
+	<TELL ,PASSAGE-EAST-WEST>
+	<RTRUE>)>>
diff --git a/verbs.indicative b/verbs.indicative
new file mode 100644
index 0000000..a88f705
--- /dev/null
+++ b/verbs.indicative
@@ -0,0 +1,179 @@
+W?AIM::	.ZWORD "aim"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?POINT!.BYTE 0
+W?ASK::	.ZWORD "ask"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?ASK!.BYTE 0
+W?AWAKE::	.ZWORD "awake"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAKE!.BYTE 0
+W?BACK::	.ZWORD "back"!.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE!.BYTE A?BACK!.BYTE ACT?BACK
+W?BANG::	.ZWORD "bang"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?KNOCK!.BYTE 0
+W?BATHE::	.ZWORD "bathe"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SWIM!.BYTE 0
+W?BEEP::	.ZWORD "beep"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BLOW!.BYTE 0
+W?BLAST::	.ZWORD "blast"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?BLAST
+W?BLOW::	.ZWORD "blow"!.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE!.BYTE A?BLOW!.BYTE ACT?BLOW
+W?BOARD::	.ZWORD "board"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?CLIMB
+W?BOW::	.ZWORD "bow"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BOW!.BYTE 0
+W?BREAK::	.ZWORD "break"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DAMAGE!.BYTE 0
+W?BRING::	.ZWORD "bring"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BRING!.BYTE 0
+W?BRUSH::	.ZWORD "brush"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BRUSH!.BYTE 0
+W?CALL::	.ZWORD "call"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CALL!.BYTE 0
+W?CARRY::	.ZWORD "carry"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?CHASE::	.ZWORD "chase"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?FOLLOW!.BYTE 0
+W?CHAT::	.ZWORD "chat"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAY!.BYTE 0
+W?CHECK::	.ZWORD "check"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CHECK!.BYTE 0
+W?CHUCK::	.ZWORD "chuck"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?THROW!.BYTE 0
+W?CLEAN::	.ZWORD "clean"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BRUSH!.BYTE 0
+W?CLIMB::	.ZWORD "climb"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CLIMB!.BYTE 0
+W?CLOSE::	.ZWORD "close"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CLOSE!.BYTE 0
+W?COME::	.ZWORD "come"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HEAD!.BYTE 0
+W?CRUSH::	.ZWORD "crush"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DAMAGE!.BYTE 0
+W?DANCE::	.ZWORD "dance"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DANCE!.BYTE 0
+W?DIG::	.ZWORD "dig"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SEARCH!.BYTE 0
+W?DINE::	.ZWORD "dine"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DINE!.BYTE 0
+W?DOFF::	.ZWORD "doff"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?REMOVE!.BYTE 0
+W?DON::	.ZWORD "don"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WEAR!.BYTE 0
+W?DRAIN::	.ZWORD "drain"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?EMPTY!.BYTE 0
+W?DRAW::	.ZWORD "draw"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CLOSE!.BYTE 0
+W?DRESS::	.ZWORD "dress"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?DRESS
+W?DRINK::	.ZWORD "drink"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DRINK!.BYTE 0
+W?DRIVE::	.ZWORD "drive"!.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE!.BYTE A?DRIVE!.BYTE ACT?HEAD
+W?DROP::	.ZWORD "drop"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DROP!.BYTE 0
+W?EAT::	.ZWORD "eat"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?EAT!.BYTE 0
+W?EMPTY::	.ZWORD "empty"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?EMPTY!.BYTE 0
+W?ENTER::	.ZWORD "enter"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?ENTER!.BYTE 0
+W?EXIT::	.ZWORD "exit"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LEAVE!.BYTE 0
+W?FAINT::	.ZWORD "faint"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SLEEP!.BYTE 0
+W?FEEL::	.ZWORD "feel"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?RUB!.BYTE 0
+W?FETCH::	.ZWORD "fetch"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BRING!.BYTE 0
+W?FIGHT::	.ZWORD "fight"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?ATTACK!.BYTE 0
+W?FILL::	.ZWORD "fill"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?FILL!.BYTE 0
+W?FIND::	.ZWORD "find"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?FIND!.BYTE 0
+W?FIRE::	.ZWORD "fire"!.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE!.BYTE A?FIRE!.BYTE ACT?FIRE
+W?FIX::	.ZWORD "fix"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?FIX!.BYTE 0
+W?FLIP::	.ZWORD "flip"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SWITCH!.BYTE 0
+W?FLOOD::	.ZWORD "flood"!.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE!.BYTE A?FLOOD!.BYTE ACT?FILL
+W?GAB::	.ZWORD "gab"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAY!.BYTE 0
+W?GAZE::	.ZWORD "gaze"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOOK!.BYTE 0
+W?GET::	.ZWORD "get"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?GET!.BYTE 0
+W?GIVE::	.ZWORD "give"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?GIVE!.BYTE 0
+W?GO::	.ZWORD "go"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HEAD!.BYTE 0
+W?GRAB::	.ZWORD "grab"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?GREET::	.ZWORD "greet"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HELLO!.BYTE 0
+W?GRIN::	.ZWORD "grin"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SMILE!.BYTE 0
+W?HANG::	.ZWORD "hang"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HANG!.BYTE 0
+W?HEAD::	.ZWORD "head"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?HEAD
+W?HELP::	.ZWORD "help"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HELP!.BYTE 0
+W?HIDE::	.ZWORD "hide"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HIDE!.BYTE 0
+W?HIT::	.ZWORD "hit"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SLAP!.BYTE 0
+W?HOLD::	.ZWORD "hold"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HOLD!.BYTE 0
+W?HONK::	.ZWORD "honk"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BLOW!.BYTE 0
+W?HUG::	.ZWORD "hug"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CONSOLE!.BYTE 0
+W?HURL::	.ZWORD "hurl"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?THROW!.BYTE 0
+W?JUMP::	.ZWORD "jump"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?JUMP!.BYTE 0
+W?KICK::	.ZWORD "kick"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DAMAGE!.BYTE 0
+W?KILL::	.ZWORD "kill"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?MURDER!.BYTE 0
+W?KISS::	.ZWORD "kiss"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CONSOLE!.BYTE 0
+W?KNOCK::	.ZWORD "knock"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?KNOCK!.BYTE 0
+W?LEAP::	.ZWORD "leap"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?JUMP!.BYTE 0
+W?LEAVE::	.ZWORD "leave"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LEAVE!.BYTE 0
+W?LIE::	.ZWORD "lie"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LIE!.BYTE 0
+W?LIFT::	.ZWORD "lift"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?LIGHT::	.ZWORD "light"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?LIGHT
+W?LOCK::	.ZWORD "lock"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOCK!.BYTE 0
+W?LOOK::	.ZWORD "look"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOOK!.BYTE 0
+W?MAKE::	.ZWORD "make"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?MAKE!.BYTE 0
+W?MATCH::	.ZWORD "match"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?COMPARE!.BYTE 0
+W?MOVE::	.ZWORD "move"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?MOVE!.BYTE 0
+W?NAME::	.ZWORD "name"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?NAME!.BYTE 0
+W?NAP::	.ZWORD "nap"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SLEEP!.BYTE 0
+W?NOD::	.ZWORD "nod"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?NOD!.BYTE 0
+W?OFFER::	.ZWORD "offer"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?GIVE!.BYTE 0
+W?OPEN::	.ZWORD "open"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?OPEN!.BYTE 0
+W?PASS::	.ZWORD "pass"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PASS!.BYTE 0
+W?PAUSE::	.ZWORD "pause"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAIT!.BYTE 0
+W?PEEK::	.ZWORD "peek"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOOK!.BYTE 0
+W?PEER::	.ZWORD "peer"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOOK!.BYTE 0
+W?PICK::	.ZWORD "pick"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PICK!.BYTE 0
+W?PLACE::	.ZWORD "place"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?PLACE
+W?PLAY::	.ZWORD "play"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PLAY!.BYTE 0
+W?POINT::	.ZWORD "point"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?POINT!.BYTE 0
+W?POUR::	.ZWORD "pour"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?POUR!.BYTE 0
+W?PRAY::	.ZWORD "pray"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PRAY!.BYTE 0
+W?PRESS::	.ZWORD "press"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?PUSH
+W?PRY::	.ZWORD "pry"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?PULL::	.ZWORD "pull"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PULL!.BYTE 0
+W?PUNCH::	.ZWORD "punch"!.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE!.BYTE A?PUNCH!.BYTE ACT?SLAP
+W?PUSH::	.ZWORD "push"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PUSH!.BYTE 0
+W?PUT::	.ZWORD "put"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PLACE!.BYTE 0
+W?RAISE::	.ZWORD "raise"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?RAP::	.ZWORD "rap"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?KNOCK!.BYTE 0
+W?RAPE::	.ZWORD "rape"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?ATTACK!.BYTE 0
+W?READ::	.ZWORD "read"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?READ!.BYTE 0
+W?RELAX::	.ZWORD "relax"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAIT!.BYTE 0
+W?REPEL::	.ZWORD "repel"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?ATTACK!.BYTE 0
+W?REPLY::	.ZWORD "reply"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?ANSWER!.BYTE 0
+W?REST::	.ZWORD "rest"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAIT!.BYTE 0
+W?RING::	.ZWORD "ring"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?RING!.BYTE 0
+W?RUB::	.ZWORD "rub"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?RUB!.BYTE 0
+W?RUN::	.ZWORD "run"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HEAD!.BYTE 0
+W?SAVE::	.ZWORD "save"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAVE!.BYTE 0
+W?SAY::	.ZWORD "say"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAY!.BYTE 0
+W?SEE::	.ZWORD "see"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOOK!.BYTE 0
+W?SEIZE::	.ZWORD "seize"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?SET::	.ZWORD "set"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SET!.BYTE 0
+W?SHAKE::	.ZWORD "shake"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SHAKE!.BYTE 0
+W?SHARE::	.ZWORD "share"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SHARE!.BYTE 0
+W?SHOOT::	.ZWORD "shoot"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?FIRE!.BYTE 0
+W?SHOUT::	.ZWORD "shout"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?YELL!.BYTE 0
+W?SHOVE::	.ZWORD "shove"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PUSH!.BYTE 0
+W?SHOW::	.ZWORD "show"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SHOW!.BYTE 0
+W?SHUT::	.ZWORD "shut"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SHUT!.BYTE 0
+W?SIGN::	.ZWORD "sign"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SIGN!.BYTE 0
+W?SIP::	.ZWORD "sip"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DRINK!.BYTE 0
+W?SIT::	.ZWORD "sit"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SIT!.BYTE 0
+W?SKIM::	.ZWORD "skim"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?READ!.BYTE 0
+W?SLAP::	.ZWORD "slap"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SLAP!.BYTE 0
+W?SLEEP::	.ZWORD "sleep"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?SLEEP
+W?SLIDE::	.ZWORD "slide"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SLIDE!.BYTE 0
+W?SMASH::	.ZWORD "smash"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?DAMAGE!.BYTE 0
+W?SMELL::	.ZWORD "smell"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SMELL!.BYTE 0
+W?SMILE::	.ZWORD "smile"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SMILE!.BYTE 0
+W?SNIFF::	.ZWORD "sniff"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SMELL!.BYTE 0
+W?SOUND::	.ZWORD "sound"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SOUND!.BYTE 0
+W?SPEAK::	.ZWORD "speak"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAY!.BYTE 0
+W?SPILL::	.ZWORD "spill"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?POUR!.BYTE 0
+W?SPRAY::	.ZWORD "spray"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?SPRAY
+W?STAB::	.ZWORD "stab"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?MURDER!.BYTE 0
+W?STAND::	.ZWORD "stand"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?STAND
+W?STARE::	.ZWORD "stare"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?LOOK!.BYTE 0
+W?START::	.ZWORD "start"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?START!.BYTE 0
+W?STATE::	.ZWORD "state"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAY!.BYTE 0
+W?STAY::	.ZWORD "stay"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAIT!.BYTE 0
+W?STEAL::	.ZWORD "steal"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?STEER::	.ZWORD "steer"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HEAD!.BYTE 0
+W?STEP::	.ZWORD "step"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HEAD!.BYTE 0
+W?STOP::	.ZWORD "stop"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?STOP!.BYTE 0
+W?STRIP::	.ZWORD "strip"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?UNDRESS!.BYTE 0
+W?SWIM::	.ZWORD "swim"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SWIM!.BYTE 0
+W?SWING::	.ZWORD "swing"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SWITCH!.BYTE 0
+W?TAKE::	.ZWORD "take"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TAKE!.BYTE 0
+W?TALK::	.ZWORD "talk"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SAY!.BYTE 0
+W?TASTE::	.ZWORD "taste"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?EAT!.BYTE 0
+W?TELL::	.ZWORD "tell"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TELL!.BYTE 0
+W?TEST::	.ZWORD "test"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?CHECK!.BYTE 0
+W?THROW::	.ZWORD "throw"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?THROW!.BYTE 0
+W?TOOT::	.ZWORD "toot"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BLOW!.BYTE 0
+W?TOSS::	.ZWORD "toss"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?THROW!.BYTE 0
+W?TOUCH::	.ZWORD "touch"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?RUB!.BYTE 0
+W?TRY::	.ZWORD "try"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?TRY!.BYTE 0
+W?TUG::	.ZWORD "tug"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?PULL!.BYTE 0
+W?TURN::	.ZWORD "turn"!.BYTE PS?OBJECT+PS?VERB+P1?OBJECT!.BYTE O?ANY!.BYTE ACT?SWITCH
+W?USE::	.ZWORD "use"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?USE!.BYTE 0
+W?WADE::	.ZWORD "wade"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SWIM!.BYTE 0
+W?WAIT::	.ZWORD "wait"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAIT!.BYTE 0
+W?WAKE::	.ZWORD "wake"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WAKE!.BYTE 0
+W?WALK::	.ZWORD "walk"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?HEAD!.BYTE 0
+W?WASH::	.ZWORD "wash"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BRUSH!.BYTE 0
+W?WASTE::	.ZWORD "waste"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?MURDER!.BYTE 0
+W?WATCH::	.ZWORD "watch"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WATCH!.BYTE 0
+W?WEAR::	.ZWORD "wear"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WEAR!.BYTE 0
+W?WINK::	.ZWORD "wink"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?SMILE!.BYTE 0
+W?WIPE::	.ZWORD "wipe"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?BRUSH!.BYTE 0
+W?WRITE::	.ZWORD "write"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?WRITE!.BYTE 0
+W?YELL::	.ZWORD "yell"!.BYTE PS?VERB+P1?VERB!.BYTE ACT?YELL!.BYTE 0
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..7fe736b
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,4859 @@
+
+
+	.FUNCT	TRANSCRIPT,STR
+	PRINTI	"Here "
+	PRINT	STR
+	PRINTR	"s a transcript of interaction with"
+
+
+	.FUNCT	V-SCRIPT
+	GET	0,8
+	BOR	STACK,1
+	PUT	0,8,STACK
+	CALL	TRANSCRIPT,STR?33
+	CALL	V-VERSION
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	CALL	TRANSCRIPT,STR?34
+	CALL	V-VERSION
+	GET	0,8
+	BAND	STACK,-2
+	PUT	0,8,STACK
+	RTRUE	
+
+
+	.FUNCT	V-$VERIFY
+	ZERO?	PRSO /?PRG11
+	EQUAL?	PRSO,INTNUM \?CCL6
+	EQUAL?	P-NUMBER,105 \?CCL6
+	PRINTN	SERIAL
+	CRLF	
+	RTRUE	
+?CCL6:	CALL	DONT-UNDERSTAND
+	RSTACK	
+?PRG11:	PRINTI	"Verifying disk..."
+	CRLF	
+	VERIFY	 \?PRG18
+	PRINTR	"The disk is correct."
+?PRG18:	PRINTR	"Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)"
+
+
+	.FUNCT	YOU-WILL-GET,STR
+	PRINTI	"[Okay, you will get "
+	PRINT	STR
+	PRINTR	" descriptions.]"
+
+
+	.FUNCT	V-SUPER-BRIEF
+	SET	'VERBOSITY,0
+	CALL	YOU-WILL-GET,STR?35
+	RSTACK	
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSITY,1
+	CALL	YOU-WILL-GET,STR?36
+	RSTACK	
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSITY,2
+	CALL	YOU-WILL-GET,STR?37
+	CALL	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-INVENTORY
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" holding"
+	CALL	PRINT-CONTENTS,WINNER
+	ZERO?	STACK \?PRG7
+	PRINTI	" nothing"
+?PRG7:	PRINTC	46
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-QUIT,ASK?=1
+	CALL	V-SCORE
+	ZERO?	ASK? \?PRG3
+	QUIT	
+?PRG3:	PRINTI	"[If you want to continue from this point at another time, you must ""SAVE"" first. Do you want to stop the story now?]"
+	CALL	YES?
+	ZERO?	STACK /?PRG8
+	QUIT	
+	RTRUE	
+?PRG8:	PRINTR	"Okay."
+
+
+	.FUNCT	V-RESTART
+	CALL	V-SCORE
+	PRINTI	"[Do you want to start over from the beginning?]"
+	CALL	YES?
+	ZERO?	STACK /?PRG6
+	RESTART	
+	CALL	TELL-FAILED
+	RSTACK	
+?PRG6:	PRINTR	"Okay."
+
+
+	.FUNCT	TELL-FAILED
+	PRINTR	"[Sorry, but it didn't work. Maybe your instruction manual or Reference Card can tell you why.]"
+
+
+	.FUNCT	V-SAVE,X
+	PUTB	OOPS-INBUF,1,0
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	SAVE	 /?PRD4
+	PUSH	0
+	JUMP	?PRD5
+?PRD4:	PUSH	1
+?PRD5:	SET	'X,STACK
+	ZERO?	X /?CCL3
+	PRINTI	"[Okay.]"
+	CRLF	
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?CCL3:	CALL	TELL-FAILED
+	RTRUE	
+
+
+	.FUNCT	V-RESTORE
+	RESTORE	 /FALSE
+	CALL	TELL-FAILED
+	RFALSE	
+
+
+	.FUNCT	V-FIRST-LOOK
+	CALL	DESCRIBE-ROOM
+	ZERO?	STACK /FALSE
+	ZERO?	VERBOSITY /FALSE
+	CALL	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	V-VERSION,CNT=17,V,IDX=18
+	GET	0,1
+	BAND	STACK,2047 >V
+	PRINTD	MOONMIST
+	PRINTI	"
+Infocom interactive fiction - a mystery story
+Copyright (c) 1986 by Infocom, Inc. All rights reserved."
+	CRLF	
+	PRINTD	MOONMIST
+	PRINTI	" is a trademark of Infocom, Inc.
+Release number "
+	PRINTN	V
+	PRINTI	" / Serial number "
+?PRG3:	GETB	0,IDX
+	PRINTC	STACK
+	IGRTR?	'IDX,23 \?PRG3
+	ZERO?	VARIATION /?CND7
+	PRINTI	" / "
+	GET	COLOR-WORDS,VARIATION
+	PRINTB	STACK
+	PRINTR	" variation"
+?CND7:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-SCORE,N=0,I,FC
+	GET	FOUND-COSTUME,PLAYER-C >FC
+	ZERO?	CONFESSED /?PRG8
+	ZERO?	TREASURE-FOUND /?PRG8
+	ZERO?	FC /?PRG8
+	PRINTI	"[Congratulations, "
+	CALL	TITLE-NAME
+	PRINTR	"! You've won the game!]"
+?PRG8:	PRINTI	"[Well, so far you've "
+	GETB	LAST-NAME,0
+	ZERO?	STACK \?PRG14
+	PRINTR	"just gotten started.]"
+?PRG14:	PRINTI	"met "
+	FSET?	LORD,TOUCHBIT \?CND16
+	PRINTD	LORD
+	PRINTI	" and "
+?CND16:	GET	GUEST-TABLE,0 >I
+?PRG20:	GET	GUEST-TABLE,I
+	FSET?	STACK,TOUCHBIT \?CND22
+	INC	'N
+?CND22:	DLESS?	'I,1 \?PRG20
+	GET	GUEST-TABLE,0
+	EQUAL?	N,STACK \?CCL28
+	PRINTI	"all"
+	JUMP	?PRG41
+?CCL28:	ZERO?	N \?CCL32
+	PRINTI	"none"
+	JUMP	?PRG41
+?CCL32:	EQUAL?	N,1 \?PRG39
+	PRINTI	"one"
+	JUMP	?PRG41
+?PRG39:	PRINTI	"some"
+?PRG41:	PRINTI	" of the guests"
+	ZERO?	WASHED /?CND43
+	PRINTI	", washed up from your trip"
+?CND43:	ZERO?	WRONG-OUTFIT /?CND47
+	PRINTI	", worn the "
+	EQUAL?	WRONG-OUTFIT,1 \?PRG56
+	PRINTI	"proper"
+	JUMP	?PRG58
+?PRG56:	PRINTI	"wrong"
+?PRG58:	PRINTI	" outfit to dinner"
+?CND47:	GET	FOUND-PASSAGES,PLAYER-C
+	ZERO?	STACK /?CND60
+	PRINTI	", discovered "
+	PRINTD	PASSAGE
+	PRINTC	115
+?CND60:	FSET?	GHOST-NEW,TOUCHBIT \?CND64
+	PRINTI	", seen the ghost"
+?CND64:	ZERO?	FC /?CND68
+	PRINTI	", "
+	PRINT	IDENTIFIED-THE-GHOST
+?CND68:	ZERO?	EVIDENCE-FOUND /?CND72
+	PRINTI	", discovered evidence"
+?CND72:	ZERO?	CONFESSED /?CND76
+	PRINTI	", "
+	PRINT	ARRESTED-THE-VILLAIN
+?CND76:	ZERO?	TREASURE-FOUND /?PRG84
+	PRINTI	", discovered the "
+	PRINTD	ARTIFACT
+?PRG84:	PRINTI	"... "
+	ZERO?	N \?PRG91
+	PRINTI	"and"
+	JUMP	?PRG93
+?PRG91:	PRINTI	"but"
+?PRG93:	PRINTI	" you haven't "
+	ZERO?	TREASURE-FOUND \?CND95
+	PRINTI	"found the "
+	PRINTD	ARTIFACT
+?CND95:	ZERO?	EVIDENCE-FOUND \?CCL101
+	ZERO?	TREASURE-FOUND \?PRG106
+	PRINTI	" nor "
+?PRG106:	PRINTI	"enough evidence"
+	ZERO?	VILLAIN-KNOWN? \?PRG112
+	ZERO?	FC /?CND99
+?PRG112:	PRINTI	" of why "
+	EQUAL?	VILLAIN-PER,LOVER \?PRG121
+	ZERO?	LOVER-SAID /?PRG121
+	PRINTD	LORD
+	PRINTI	" killed "
+	PRINTD	COUSIN
+	JUMP	?CND99
+?PRG121:	PRINTD	VILLAIN-PER
+	PRINTI	" haunted "
+	PRINTD	CASTLE
+	JUMP	?CND99
+?CCL101:	ZERO?	CONFESSED \?CND99
+	ZERO?	TREASURE-FOUND \?PRG128
+	PRINTI	" nor "
+?PRG128:	PRINT	ARRESTED-THE-VILLAIN
+?CND99:	ZERO?	FC \?PRG141
+	ZERO?	TREASURE-FOUND /?PRG137
+	ZERO?	EVIDENCE-FOUND /?PRG137
+	ZERO?	CONFESSED \?PRG139
+?PRG137:	PRINTI	" nor "
+?PRG139:	PRINT	IDENTIFIED-THE-GHOST
+?PRG141:	PRINTR	"!]"
+
+
+	.FUNCT	YES?,WORD,VAL
+?PRG1:	PRINTI	"
+>"
+	READ	YES-INBUF,YES-LEXV
+	GETB	YES-LEXV,P-LEXWORDS
+	ZERO?	STACK /?PRG19
+	GET	YES-LEXV,P-LEXSTART >WORD
+	ZERO?	WORD /?PRG19
+	CALL	WT?,WORD,64,1 >VAL
+	EQUAL?	VAL,ACT?YES \?CCL9
+	SET	'VAL,TRUE-VALUE
+	RETURN	VAL
+?CCL9:	EQUAL?	VAL,ACT?NO /?CTR10
+	EQUAL?	WORD,W?N \?CCL11
+?CTR10:	SET	'VAL,FALSE-VALUE
+	RETURN	VAL
+?CCL11:	EQUAL?	VAL,ACT?RESTART \?CCL15
+	CALL	V-RESTART
+	JUMP	?PRG19
+?CCL15:	EQUAL?	VAL,ACT?RESTORE \?CCL17
+	CALL	V-RESTORE
+	JUMP	?PRG19
+?CCL17:	EQUAL?	VAL,ACT?QUIT \?PRG19
+	CALL	V-QUIT
+?PRG19:	PRINTI	"[Please type YES or NO.]"
+	JUMP	?PRG1
+
+
+	.FUNCT	NO-NEED,STR=0,OBJ=0
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?5
+	PRINTI	"n't need to "
+	ZERO?	STR /?CCL5
+	PRINT	STR
+	JUMP	?CND3
+?CCL5:	CALL	VERB-PRINT
+?CND3:	EQUAL?	STR,STR?40,STR?41 \?CCL10
+	PRINTI	" in that "
+	PRINTD	INTDIR
+	JUMP	?PRG19
+?CCL10:	ZERO?	OBJ /?PRG17
+	CALL	PRINTT,OBJ
+	JUMP	?PRG19
+?PRG17:	CALL	PRINTT,PRSO
+?PRG19:	PRINTR	".)"
+
+
+	.FUNCT	YOU-CANT,STR=0,WHILE=0,STR1=0
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't "
+	ZERO?	STR \?PRG6
+	CALL	VERB-PRINT
+	JUMP	?CND3
+?PRG6:	PRINT	STR
+?CND3:	EQUAL?	STR,STR?40,STR?41 \?CCL10
+	PRINTI	" in that "
+	PRINTD	INTDIR
+	JUMP	?PRG49
+?CCL10:	EQUAL?	PRSO,PSEUDO-OBJECT \?CCL15
+	PRINTI	" it"
+	JUMP	?CND13
+?CCL15:	EQUAL?	PRSO,BUST \?CCL19
+	CALL	NOUN-USED?,W?TAPE
+	ZERO?	STACK /?CCL19
+	EQUAL?	STR,STR?42 /?PRG25
+	EQUAL?	STR,STR?43,STR?44,STR?45 \?CCL19
+?PRG25:	PRINTI	" the tape"
+	JUMP	?CND13
+?CCL19:	EQUAL?	PRSO,FLOOR \?PRG34
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?PRG34
+	LOC	WINNER
+	EQUAL?	STACK,CAR /?PRG34
+	PRINTI	" the ground"
+	JUMP	?CND13
+?PRG34:	CALL	PRINTT,PRSO
+?CND13:	ZERO?	STR1 /?PRG49
+	PRINTI	" while"
+	ZERO?	WHILE /?PRG45
+	CALL	HE-SHE-IT,WHILE,0,STR?1
+	JUMP	?PRG47
+?PRG45:	CALL	HE-SHE-IT,PRSO,0,STR?1
+?PRG47:	PRINTC	32
+	PRINT	STR1
+?PRG49:	PRINTR	".)"
+
+
+	.FUNCT	YOU-SHOULDNT,PREP=0
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" shouldn't "
+	CALL	VERB-PRINT
+	CALL	PRINTT,PRSO
+	ZERO?	PREP /?PRG9
+	PRINT	PREP
+	CALL	PRINTT,PRSI
+?PRG9:	PRINTR	".)"
+
+
+	.FUNCT	TELL-BEING-WORN,OBJ
+	FSET?	OBJ,WORNBIT \FALSE
+	PRINTI	" (actually, wearing it)"
+	RTRUE	
+
+
+	.FUNCT	PRINT-CONTENTS,THING,OBJ,NXT,1ST?=1,VAL=0
+	FIRST?	THING >OBJ /?PRG1
+?PRG1:	ZERO?	OBJ /?REP2
+	NEXT?	OBJ >NXT /?KLU36
+?KLU36:	FSET?	OBJ,INVISIBLE /?CCL7
+	FSET?	OBJ,NDESCBIT /?CCL7
+	EQUAL?	OBJ,WINNER \?CND6
+?CCL7:	MOVE	OBJ,INTDIR
+?CND6:	SET	'OBJ,NXT
+	JUMP	?PRG1
+?REP2:	FIRST?	THING >OBJ /?KLU37
+?KLU37:	ZERO?	OBJ \?PRG18
+	EQUAL?	THING,PLAYER /?CND11
+	PRINTI	" nothing "
+	CALL	PICK-ONE-NEW,YAWNS
+	PRINT	STACK
+?CND11:	CALL	ROB,INTDIR,THING
+	RETURN	VAL
+?PRG18:	ZERO?	OBJ /?CND11
+	NEXT?	OBJ >NXT /?KLU38
+?KLU38:	ZERO?	1ST? /?CCL25
+	SET	'VAL,TRUE-VALUE
+	SET	'1ST?,FALSE-VALUE
+	JUMP	?PRG33
+?CCL25:	ZERO?	NXT /?PRG31
+	PRINTC	44
+	JUMP	?PRG33
+?PRG31:	PRINTI	" and"
+?PRG33:	CALL	PRINTT,OBJ
+	CALL	TELL-BEING-WORN,OBJ
+	CALL	THIS-IS-IT,OBJ
+	FCLEAR	OBJ,SECRETBIT
+	FSET	OBJ,SEENBIT
+	SET	'OBJ,NXT
+	JUMP	?PRG18
+
+
+	.FUNCT	DESCRIBE-OBJECTS,THING=0,OBJ,NXT,STR,VAL=0,HE=0,SHE=0,FIRST=1,TWO?=0,IT?=0,ANY?=0
+	ZERO?	THING \?CND1
+	SET	'THING,HERE
+?CND1:	ZERO?	LIT \?CND3
+	CALL	TOO-DARK
+	RTRUE	
+?CND3:	FIRST?	THING >OBJ /?KLU170
+?KLU170:	ZERO?	OBJ /FALSE
+?PRG7:	ZERO?	OBJ /?REP8
+	NEXT?	OBJ >NXT /?KLU171
+?KLU171:	FSET?	OBJ,INVISIBLE /?CCL13
+	FSET?	OBJ,NDESCBIT /?CCL13
+	EQUAL?	OBJ,WINNER /?CCL13
+	FSET?	OBJ,PERSONBIT \?PRD18
+	FSET?	OBJ,RMUNGBIT /?CCL13
+?PRD18:	LOC	PLAYER
+	EQUAL?	OBJ,STACK \?CND12
+?CCL13:	FCLEAR	OBJ,RMUNGBIT
+	MOVE	OBJ,PSEUDO-OBJECT
+?CND12:	SET	'OBJ,NXT
+	JUMP	?PRG7
+?REP8:	EQUAL?	THING,HERE \?CND22
+	SET	'NXT,GHOST-NEW-C
+?PRG24:	PUT	TOUCHED-LDESCS,NXT,0
+	DLESS?	'NXT,1 \?PRG24
+	SET	'NXT,0
+?PRG28:	IGRTR?	'NXT,GHOST-NEW-C /?REP29
+	GET	CHARACTER-TABLE,NXT >OBJ
+	IN?	OBJ,HERE \?PRG28
+	PUT	FOLLOW-LOC,NXT,HERE
+	GETP	OBJ,P?DESCFCN
+	CALL	STACK,M-OBJDESC >VAL
+	FSET	OBJ,SEENBIT
+	EQUAL?	VAL,M-FATAL /?CCL35
+	ZERO?	ANY? \?CND34
+?CCL35:	SET	'ANY?,VAL
+?CND34:	FSET?	OBJ,FEMALE \?CCL40
+	ZERO?	SHE \?CCL43
+	SET	'SHE,OBJ
+	JUMP	?CND38
+?CCL43:	SET	'SHE,1
+	JUMP	?CND38
+?CCL40:	ZERO?	HE \?CCL46
+	SET	'HE,OBJ
+	JUMP	?CND38
+?CCL46:	SET	'HE,1
+?CND38:	MOVE	OBJ,PSEUDO-OBJECT
+	JUMP	?PRG28
+?REP29:	SET	'NXT,0
+?PRG47:	IGRTR?	'NXT,GHOST-NEW-C /?REP48
+	GET	TOUCHED-LDESCS,NXT >OBJ
+	ZERO?	OBJ /?PRG47
+	SET	'FIRST,TRUE-VALUE
+	GET	CHARACTER-TABLE,NXT >STR
+	CALL	START-SENTENCE,STR
+	SET	'STR,NXT
+?PRG55:	IGRTR?	'STR,GHOST-NEW-C \?CCL59
+	ZERO?	FIRST /?PRG65
+	PRINTI	" is "
+	JUMP	?PRG67
+?PRG65:	PRINTI	" are "
+?PRG67:	GET	LDESC-STRINGS,OBJ
+	PRINT	STACK
+	PRINTC	46
+	CRLF	
+	JUMP	?PRG47
+?CCL59:	GET	TOUCHED-LDESCS,STR
+	EQUAL?	OBJ,STACK \?PRG55
+	PUT	TOUCHED-LDESCS,STR,0
+	SET	'FIRST,FALSE-VALUE
+	PRINTI	" and"
+	GET	CHARACTER-TABLE,STR
+	CALL	PRINTT,STACK
+	JUMP	?PRG55
+?REP48:	EQUAL?	SHE,0,1 /?CCL74
+	CALL	THIS-IS-IT,SHE
+	JUMP	?CND72
+?CCL74:	EQUAL?	SHE,1 \?CND72
+	SET	'P-HER-OBJECT,FALSE-VALUE
+?CND72:	EQUAL?	HE,0,1 /?CCL78
+	CALL	THIS-IS-IT,HE
+	JUMP	?CND76
+?CCL78:	EQUAL?	HE,1 \?CND76
+	SET	'P-HIM-OBJECT,FALSE-VALUE
+?CND76:	SET	'FIRST,TRUE-VALUE
+	FIRST?	THING >OBJ /?PRG80
+?PRG80:	ZERO?	OBJ /?REP81
+	NEXT?	OBJ >NXT /?KLU173
+?KLU173:	GETP	OBJ,P?DESCFCN >STR
+	ZERO?	STR /?CND85
+	CALL	STR,M-OBJDESC >VAL
+	EQUAL?	VAL,M-FATAL /?CCL88
+	ZERO?	ANY? \?CND87
+?CCL88:	SET	'ANY?,VAL
+?CND87:	CALL	THIS-IS-IT,OBJ
+	FSET	OBJ,SEENBIT
+	MOVE	OBJ,PSEUDO-OBJECT
+?CND85:	SET	'OBJ,NXT
+	JUMP	?PRG80
+?REP81:	FIRST?	THING >OBJ /?PRG91
+?PRG91:	ZERO?	OBJ /?CND22
+	NEXT?	OBJ >NXT /?KLU175
+?KLU175:	GETP	OBJ,P?LDESC >STR
+	ZERO?	STR /?CND96
+	ZERO?	ANY? \?PRG100
+	SET	'ANY?,TRUE-VALUE
+?PRG100:	PRINT	STR
+	CRLF	
+	FCLEAR	OBJ,SECRETBIT
+	FSET	OBJ,SEENBIT
+	CALL	THIS-IS-IT,OBJ
+	MOVE	OBJ,PSEUDO-OBJECT
+?CND96:	SET	'OBJ,NXT
+	JUMP	?PRG91
+?CND22:	FIRST?	HERE >OBJ /?KLU176
+?KLU176:	SET	'VAL,FALSE-VALUE
+	ZERO?	OBJ /?CND102
+?PRG104:	ZERO?	OBJ /?CCL108
+	NEXT?	OBJ >NXT /?KLU177
+?KLU177:	SET	'VAL,TRUE-VALUE
+	ZERO?	FIRST /?CCL111
+	SET	'FIRST,FALSE-VALUE
+	EQUAL?	THING,HERE \?PRG128
+	CRLF	
+	FSET?	HERE,ONBIT \?PRG119
+	PRINTI	"You see"
+	JUMP	?PRG128
+?PRG119:	PRINTI	"The light reveals"
+	JUMP	?PRG128
+?CCL111:	ZERO?	NXT /?PRG126
+	PRINTC	44
+	JUMP	?PRG128
+?PRG126:	PRINTI	" and"
+?PRG128:	CALL	PRINTT,OBJ
+	FCLEAR	OBJ,SECRETBIT
+	FSET	OBJ,SEENBIT
+	CALL	THIS-IS-IT,OBJ
+	CALL	TELL-BEING-WORN,OBJ
+	CALL	SEE-INSIDE?,OBJ
+	ZERO?	STACK /?CND130
+	CALL	SEE-ANYTHING-IN?,OBJ
+	ZERO?	STACK /?CND130
+	MOVE	OBJ,INTNUM
+?CND130:	ZERO?	IT? \?CCL136
+	ZERO?	TWO? \?CCL136
+	SET	'IT?,OBJ
+	JUMP	?CND134
+?CCL136:	SET	'TWO?,TRUE-VALUE
+	SET	'IT?,FALSE-VALUE
+?CND134:	SET	'OBJ,NXT
+	JUMP	?PRG104
+?CCL108:	ZERO?	IT? /?CND139
+	ZERO?	TWO? \?CND139
+	SET	'P-IT-OBJECT,IT?
+?CND139:	EQUAL?	THING,HERE \?PRG147
+	PRINTI	" here"
+?PRG147:	PRINTC	46
+	ZERO?	ANY? \?CND102
+	SET	'ANY?,TRUE-VALUE
+?CND102:	FIRST?	INTNUM >OBJ /?PRG151
+?PRG151:	ZERO?	OBJ /?REP152
+	FSET?	OBJ,SURFACEBIT \?PRG160
+	CRLF	
+	PRINTI	"On"
+	JUMP	?CND155
+?PRG160:	CRLF	
+	PRINTI	"Inside"
+?CND155:	SET	'VAL,TRUE-VALUE
+	CALL	PRINTT,OBJ
+	PRINTI	" you see"
+	CALL	PRINT-CONTENTS,OBJ
+	PRINTC	46
+	NEXT?	OBJ >OBJ /?PRG151
+	JUMP	?PRG151
+?REP152:	ZERO?	VAL /?CND168
+	CRLF	
+?CND168:	CALL	ROB,INTNUM,THING
+	CALL	ROB,PSEUDO-OBJECT,THING
+	RETURN	ANY?
+
+
+	.FUNCT	SEE-ANYTHING-IN?,THING,OBJ,NXT,ANY?=0
+	FIRST?	THING >OBJ /?PRG1
+?PRG1:	ZERO?	OBJ /?REP2
+	FSET?	OBJ,INVISIBLE /?CND6
+	FSET?	OBJ,NDESCBIT /?CND6
+	EQUAL?	OBJ,WINNER /?CND6
+	SET	'ANY?,TRUE-VALUE
+	RETURN	ANY?
+?CND6:	NEXT?	OBJ >OBJ /?PRG1
+	JUMP	?PRG1
+?REP2:	RETURN	ANY?
+
+
+	.FUNCT	DESCRIBE-ROOM,LOOK?=0,V?,STR,L
+	ZERO?	LOOK? /?CCL3
+	SET	'V?,TRUE-VALUE
+	JUMP	?PRG10
+?CCL3:	EQUAL?	2,VERBOSITY \?CCL5
+	SET	'V?,TRUE-VALUE
+	JUMP	?PRG10
+?CCL5:	ZERO?	VERBOSITY \?CCL7
+	SET	'V?,FALSE-VALUE
+	JUMP	?PRG10
+?CCL7:	FSET?	HERE,TOUCHBIT /?PRG10
+	SET	'V?,TRUE-VALUE
+?PRG10:	PRINTC	40
+	ZERO?	VERBOSITY \?PRG17
+	PRINTD	HERE
+	JUMP	?PRG33
+?PRG17:	PRINTI	"You are"
+	FSET?	HERE,TOUCHBIT /?CND19
+	PRINTI	" now"
+?CND19:	FSET?	HERE,SURFACEBIT \?CCL25
+	PRINTI	" on"
+	JUMP	?PRG31
+?CCL25:	EQUAL?	HERE,BACKSTAIRS /?PRG31
+	PRINTI	" in"
+?PRG31:	CALL	PRINTT,HERE
+	PRINTC	46
+?PRG33:	PRINTI	")
+"
+	ZERO?	LIT \?CCL37
+	CALL	TOO-DARK
+	RFALSE	
+?CCL37:	EQUAL?	LIT,HERE /?CND35
+	PRINTI	"Light comes from"
+	CALL	PRINTT,LIT
+	PRINTC	46
+	CRLF	
+?CND35:	ZERO?	V? /?CND41
+	LOC	WINNER >L
+	FSET?	L,VEHBIT \?CND43
+	PRINTI	"(You're "
+	EQUAL?	L,COFFIN \?PRG52
+	PRINTI	"ly"
+	JUMP	?PRG54
+?PRG52:	PRINTI	"sitt"
+?PRG54:	PRINTI	"ing "
+	EQUAL?	L,CAR,COFFIN \?PRG61
+	PRINTI	"in"
+	JUMP	?CND56
+?PRG61:	PRINTI	"on"
+?CND56:	CALL	THIS-IS-IT,L
+	CALL	PRINTT,L
+	PRINTI	".)"
+	CRLF	
+?CND43:	ZERO?	V? /?CCL67
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK \?CND41
+?CCL67:	ZERO?	V? /?CCL71
+	GETP	HERE,P?LDESC >STR
+	ZERO?	STR /?CCL71
+	PRINT	STR
+	CRLF	
+	JUMP	?CND41
+?CCL71:	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+?CND41:	GETP	HERE,P?CORRIDOR
+	ZERO?	STACK /?CND76
+	CALL	CORRIDOR-LOOK
+?CND76:	FSET	HERE,SEENBIT
+	FSET	HERE,TOUCHBIT
+	RTRUE	
+
+
+	.FUNCT	HAR-HAR
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	PICK-ONE-NEW,YUKS
+	PRINT	STACK
+	PRINTC	41
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PICK-ONE-NEW,FROB,L,CNT,RND,MSG,RFROB
+	GET	FROB,0
+	SUB	STACK,1 >L
+	GET	FROB,1 >CNT
+	ADD	FROB,2 >FROB
+	MUL	CNT,2
+	ADD	FROB,STACK >RFROB
+	SUB	L,CNT >RND
+	RANDOM	RND >RND
+	GET	RFROB,RND >MSG
+	GET	RFROB,1
+	PUT	RFROB,RND,STACK
+	PUT	RFROB,1,MSG
+	INC	'CNT
+	EQUAL?	CNT,L \?CND1
+	SET	'CNT,0
+?CND1:	PUT	FROB,0,CNT
+	RETURN	MSG
+
+
+	.FUNCT	PICK-ONE,FROB
+	GET	FROB,0
+	RANDOM	STACK
+	GET	FROB,STACK
+	RSTACK	
+
+
+	.FUNCT	NOT-HOLDING?,OBJ
+	IN?	OBJ,WINNER /FALSE
+	LOC	OBJ
+	IN?	STACK,WINNER /FALSE
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" not holding"
+	CALL	HIM-HER-IT,OBJ
+	PRINTR	".)"
+
+
+	.FUNCT	NEW-FOLLOWER,PER
+	EQUAL?	FOLLOWER,FALSE-VALUE,PER /?CND1
+	PUTP	FOLLOWER,P?LDESC,0
+	PRINTI	"""I'll leave you two alone, then,"" says "
+	PRINTD	FOLLOWER
+	PRINTI	".
+"
+?CND1:	SET	'FOLLOWER,PER
+	GETP	PER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-ENABLE,0
+	RTRUE	
+
+
+	.FUNCT	FRIEND-FOLLOWS-YOU,RM,C
+	EQUAL?	RM,CAR,YOUR-BATHROOM /FALSE
+	FSET?	RM,SECRETBIT /?CTR4
+	EQUAL?	RM,CRYPT \?CCL5
+?CTR4:	CALL	NOT-INTO-PASSAGE,FOLLOWER,TRUE-VALUE
+	PUTP	FOLLOWER,P?LDESC,9
+	SET	'FOLLOWER,0
+	RFALSE	
+?CCL5:	GETP	RM,P?LINE
+	ZERO?	STACK /FALSE
+	IN?	FOLLOWER,RM /FALSE
+	MOVE	FOLLOWER,RM
+	PUTP	FOLLOWER,P?LDESC,23
+	EQUAL?	FOLLOWER,LORD \?PRG17
+	PRINTD	FRIEND
+	JUMP	?PRG19
+?PRG17:	PRINTD	FOLLOWER
+?PRG19:	CALL	PICK-ONE,TRAILS-ALONG
+	PRINT	STACK
+	EQUAL?	FOLLOWER,LORD \?CND21
+	EQUAL?	RM,YOUR-ROOM,YOUR-BATHROOM /?CND21
+	MOVE	LORD,RM
+	PUTP	LORD,P?LDESC,23
+	PRINTI	" So does "
+	PRINTD	LORD
+	PRINTC	46
+?CND21:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	NOT-INTO-PASSAGE,PER,FOLLOW=0,PASS=1
+	ZERO?	PASS /?CND1
+	GETP	PER,P?CHARACTER
+	PUT	FOUND-PASSAGES,STACK,TRUE-VALUE
+?CND1:	CALL	THIS-IS-IT,PER
+	PRINTI	"""I'm not "
+	ZERO?	FOLLOW /?PRG10
+	GET	LDESC-STRINGS,23
+	PRINT	STACK
+	JUMP	?PRG12
+?PRG10:	PRINTI	"going"
+?PRG12:	PRINTI	" into that "
+	ZERO?	PASS /?PRG25
+	EQUAL?	PER,OFFICER,BUTLER \?PRG21
+	PRINTI	"dirty"
+	JUMP	?PRG23
+?PRG21:	PRINTI	"spooky"
+?PRG23:	PRINTC	32
+?PRG25:	PRINTI	"place!"" says "
+	PRINTD	PER
+	ZERO?	FOLLOW /?PRG31
+	PRINTI	" as"
+	CALL	HE-SHE-IT,PER
+	PRINTI	" stays behind"
+?PRG31:	PRINTR	"."
+
+
+	.FUNCT	TOUR?,RM
+	CALL	QUEUED?,I-TOUR
+	ZERO?	STACK /FALSE
+	CALL	QUEUE,I-TOUR,1
+	SET	'TOUR-FORCED,TRUE-VALUE
+	CALL	QUEUED?,I-REPLY
+	ZERO?	STACK /?CND4
+	CALL	QUEUE,I-REPLY,1
+?CND4:	EQUAL?	HERE,GREAT-HALL \?CCL7
+	FSET?	DOCTOR,TOUCHBIT \?PRG22
+?CCL7:	GET	TOUR-PATH,TOUR-INDEX >RM
+	EQUAL?	PRSA,V?FOLLOW \?CCL12
+	EQUAL?	PRSO,FRIEND \?PRG22
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?WALK \?CCL16
+	CALL	DIR-FROM,HERE,RM
+	CALL	DIR-EQV?,HERE,PRSO,STACK
+	ZERO?	STACK /?PRG22
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?THROUGH,V?WALK-TO \?PRG22
+	CALL	META-LOC,PRSO
+	EQUAL?	STACK,RM /TRUE
+?PRG22:	PRINTD	FRIEND
+	PRINTI	" says, ""Please don't wander off yet. I want you to "
+	FSET?	DOCTOR,TOUCHBIT \?PRG29
+	PRINTI	"see "
+	PRINTD	YOUR-ROOM
+	PRINTR	"."""
+?PRG29:	PRINTR	"meet the other guests."""
+
+
+	.FUNCT	CREEPY?,RM
+	FSET?	RM,SECRETBIT /TRUE
+	EQUAL?	RM,TOMB,DUNGEON,CRYPT /TRUE
+	RFALSE	
+
+
+	.FUNCT	GOTO,RM,TEST=1,FOLLOW?=1,X
+	IN?	WINNER,RM \?CND1
+	CALL	WALK-WITHIN-ROOM
+	RFALSE	
+?CND1:	GETP	HERE,P?ACTION
+	CALL	STACK,M-EXIT
+	ZERO?	STACK \FALSE
+	EQUAL?	WINNER,PLAYER \?CCL7
+	CALL	TOUR?
+	ZERO?	STACK \FALSE
+	ZERO?	FOLLOW? /?CND10
+	ZERO?	FOLLOWER /?CND10
+	CALL	FRIEND-FOLLOWS-YOU,RM
+?CND10:	RANDOM	2
+	EQUAL?	STACK,1 \?CND3
+	ZERO?	FOLLOWER \?CND3
+	CALL	CREEPY?,HERE
+	ZERO?	STACK /?CND3
+	CALL	CREEPY?,RM
+	ZERO?	STACK /?CND3
+	PRINTI	"You "
+	CALL	PICK-ONE-NEW,CREEPIES
+	PRINT	STACK
+	CRLF	
+?CND3:	ZERO?	TEST /?CND25
+	EQUAL?	WINNER,PLAYER \?CND25
+	CALL	DIR-FROM,HERE,RM >X
+	ZERO?	X /?CND25
+	GETP	HERE,P?ACTION
+	CALL	STACK,X
+	EQUAL?	M-FATAL,STACK /FALSE
+?CND25:	GETP	WINNER,P?CHARACTER
+	PUT	FOLLOW-LOC,STACK,RM
+	IN?	WINNER,CAR \?CND33
+	EQUAL?	RM,COURTYARD \?CND33
+	MOVE	CAR,RM
+?CND33:	MOVE	WINNER,RM
+	EQUAL?	WINNER,PLAYER \TRUE
+	SET	'OHERE,HERE
+	SET	'HERE,RM
+	CALL	MAKE-ALL-PEOPLE,-12
+	CALL	ENTER-ROOM
+	RTRUE	
+?CCL7:	FSET?	RM,SECRETBIT \?CCL23
+	CALL	NOT-INTO-PASSAGE,WINNER
+	RFALSE	
+?CCL23:	EQUAL?	RM,YOUR-BATHROOM \?CND3
+	CALL	NOT-INTO-PASSAGE,WINNER,FALSE-VALUE,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	HACK-HACK,STR
+	PRINT	STR
+	CALL	HIM-HER-IT,PRSO
+	CALL	PICK-ONE,HO-HUM
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	HELD?,OBJ,CONT=0,L
+	ZERO?	CONT \?CND1
+	SET	'CONT,PLAYER
+?CND1:	EQUAL?	OBJ,ARTIFACT \?PRG7
+	ZERO?	TREASURE-FOUND /?PRG7
+	SET	'OBJ,TREASURE
+?PRG7:	LOC	OBJ >L
+	ZERO?	L /FALSE
+	EQUAL?	L,CONT /TRUE
+	EQUAL?	CONT,PLAYER,WINNER \?CCL15
+	EQUAL?	OBJ,HANDS,HEAD,EYE /TRUE
+	EQUAL?	OBJ,NOW-WEARING /TRUE
+	EQUAL?	OBJ,CAR \?CCL22
+	EQUAL?	PRSA,V?MUNG /TRUE
+?CCL22:	SET	'OBJ,L
+	JUMP	?PRG7
+?CCL15:	EQUAL?	L,ROOMS,GLOBAL-OBJECTS /FALSE
+	SET	'OBJ,L
+	JUMP	?PRG7
+
+
+	.FUNCT	IDROP
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \FALSE
+	IN?	PRSO,WINNER /?CCL5
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?CCL5
+	LOC	PRSO
+	CALL	TOO-BAD-BUT,STACK,STR?61
+	RFALSE	
+?CCL5:	MOVE	PRSO,HERE
+	FCLEAR	PRSO,WORNBIT
+	FCLEAR	PRSO,NDESCBIT
+	FCLEAR	PRSO,INVISIBLE
+	RTRUE	
+
+
+	.FUNCT	ITAKE,VB=1,CNT,OBJ,L,?TMP1
+	LOC	PRSO >L
+	ZERO?	L /?CND1
+	FSET?	L,PERSONBIT \?CND1
+	FSET?	PRSO,TAKEBIT /?CCL7
+	FSET?	L,MUNGBIT /?CCL7
+	ZERO?	VB /FALSE
+	CALL	YOU-CANT,STR?62
+	RFALSE	
+?CCL7:	FSET	PRSO,TAKEBIT
+?CND1:	FSET?	PRSO,TAKEBIT /?CCL14
+	ZERO?	VB /FALSE
+	CALL	YOU-CANT,STR?62
+	RFALSE	
+?CCL14:	CALL	CCOUNT,WINNER >CNT
+	GRTR?	CNT,FUMBLE-NUMBER \?CCL18
+	MUL	CNT,FUMBLE-PROB >?TMP1
+	RANDOM	100
+	LESS?	?TMP1,STACK /?CCL18
+	CALL	FIND-FLAG-NOT,WINNER,WORNBIT >OBJ
+	ZERO?	OBJ /?CCL18
+	CALL	TOO-BAD-BUT
+	CALL	PRINTT,OBJ
+	PRINTI	" slips from"
+	CALL	HIM-HER-IT,WINNER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" arms while"
+	CALL	HE-SHE-IT,WINNER,0,STR?1
+	PRINTI	" taking"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	", and both tumble "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	". "
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" carrying too many things.
+"
+	MOVE	OBJ,HERE
+	MOVE	PRSO,HERE
+	RETURN	2
+?CCL18:	MOVE	PRSO,WINNER
+	FSET	PRSO,SEENBIT
+	FSET	PRSO,TOUCHBIT
+	FCLEAR	PRSO,NDESCBIT
+	FCLEAR	PRSO,INVISIBLE
+	FCLEAR	PRSO,SECRETBIT
+	EQUAL?	PRSA,V?TAKE /TRUE
+	EQUAL?	L,WINNER /TRUE
+	FSET?	L,PERSONBIT /?CCL27
+	EQUAL?	L,SIDEBOARD \TRUE
+?CCL27:	CALL	FIRST-YOU,STR?62,PRSO,L
+	RTRUE	
+
+
+	.FUNCT	CCOUNT,OBJ,CNT=0,X
+	FIRST?	OBJ >X /?PRG3
+	RETURN	CNT
+?PRG3:	FSET?	X,WORNBIT /?CND5
+	INC	'CNT
+?CND5:	NEXT?	X >X /?PRG3
+	RETURN	CNT
+
+
+	.FUNCT	CHECK-DOOR,DR
+	CALL	START-SENTENCE,DR
+	PRINTI	" is "
+	CALL	THIS-IS-IT,DR
+	FSET?	DR,OPENBIT \?PRG8
+	PRINTI	"open"
+	JUMP	?PRG16
+?PRG8:	PRINTI	"closed and "
+	FSET?	DR,LOCKED /?PRG14
+	PRINTI	"un"
+?PRG14:	PRINTI	"locked"
+?PRG16:	PRINTR	"."
+
+
+	.FUNCT	ROOM-CHECK,P,PA
+	SET	'P,PRSO
+	EQUAL?	P,ROOMS /FALSE
+	IN?	P,ROOMS \?CCL5
+	EQUAL?	HERE,P /FALSE
+	GETP	P,P?STATION
+	EQUAL?	HERE,STACK /?CTR9
+	CALL	GLOBAL-IN?,P,HERE
+	ZERO?	STACK /?CCL10
+?CTR9:	EQUAL?	PRSA,V?SEARCH-FOR /?PRD17
+	EQUAL?	PRSA,V?SEARCH,V?SIT,V?LIE \FALSE
+?PRD17:	CALL	META-LOC,P >P
+	EQUAL?	P,HERE /FALSE
+	CALL	FIRST-YOU,STR?63,P
+	SET	'PA,PRSA
+	CALL	PERFORM,V?THROUGH,P >P
+	SET	'PRSA,PA
+	EQUAL?	M-FATAL,P /TRUE
+	RFALSE	
+?CCL10:	CALL	SEE-INTO?,P
+	ZERO?	STACK \FALSE
+	RTRUE	
+?CCL5:	CALL	META-LOC,P
+	EQUAL?	STACK,HERE,GLOBAL-OBJECTS,LOCAL-GLOBALS /FALSE
+	CALL	VISIBLE?,P
+	ZERO?	STACK \FALSE
+	CALL	NOT-HERE,P
+	RSTACK	
+
+
+	.FUNCT	SEE-INSIDE?,OBJ,ONLY-IN=0
+	FSET?	OBJ,TRANSBIT /TRUE
+	FSET?	OBJ,OPENBIT /TRUE
+	ZERO?	ONLY-IN \FALSE
+	FSET?	OBJ,SURFACEBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	ARENT-TALKING
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(You aren't talking to anyone!)"
+
+
+	.FUNCT	ALREADY,OBJ,STR=0
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	START-SENTENCE,OBJ
+	EQUAL?	OBJ,PLAYER \?PRG11
+	PRINTI	" are"
+	JUMP	?PRG13
+?PRG11:	PRINTI	" is"
+?PRG13:	PRINTI	" already "
+	ZERO?	STR /TRUE
+	PRINT	STR
+	PRINTR	"!)"
+
+
+	.FUNCT	NOT-CLEAR-WHOM
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	PRINTR	"[It's not clear whom you're talking to.]"
+
+
+	.FUNCT	OKAY,OBJ=0,STR=0
+	EQUAL?	WINNER,PLAYER,BUTLER \?PRG6
+	EQUAL?	PRSA,V?WALK-TO,V?WALK,V?THROUGH \?PRG8
+	RTRUE	
+?PRG6:	PRINTC	34
+?PRG8:	PRINTI	"Okay"
+	ZERO?	OBJ /?CND10
+	PRINTC	44
+	CALL	HE-SHE-IT,OBJ
+	ZERO?	STR /?CND14
+	PRINTI	" is now "
+	PRINT	STR
+?CND14:	EQUAL?	STR,STR?64 \?CCL20
+	FSET	OBJ,ONBIT
+	JUMP	?CND10
+?CCL20:	EQUAL?	STR,STR?65 \?CCL22
+	FCLEAR	OBJ,ONBIT
+	JUMP	?CND10
+?CCL22:	EQUAL?	STR,STR?66 \?CCL24
+	FSET	OBJ,OPENBIT
+	JUMP	?CND10
+?CCL24:	EQUAL?	STR,STR?61 \?CCL26
+	FCLEAR	OBJ,OPENBIT
+	JUMP	?CND10
+?CCL26:	EQUAL?	STR,STR?67 \?CCL28
+	FSET	OBJ,LOCKED
+	JUMP	?CND10
+?CCL28:	EQUAL?	STR,STR?68 \?CND10
+	FCLEAR	OBJ,LOCKED
+?CND10:	ZERO?	STR \?CCL31
+	ZERO?	OBJ \?CND30
+?CCL31:	EQUAL?	WINNER,PLAYER /?PRG38
+	PRINTI	","" says "
+	PRINTD	WINNER
+	PRINTI	". "
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTR	" does so."
+?PRG38:	PRINTC	46
+	CRLF	
+?CND30:	ZERO?	LIT \TRUE
+	CALL	LIT? >LIT
+	ZERO?	LIT /TRUE
+	CRLF	
+	CALL	V-LOOK
+	RTRUE	
+
+
+	.FUNCT	TOO-BAD-BUT,OBJ=0,STR=0
+	PRINTI	"Too bad, but"
+	ZERO?	OBJ /?CND3
+	CALL	HE-SHE-IT,OBJ
+?CND3:	ZERO?	STR /TRUE
+	PRINTI	" is "
+	PRINT	STR
+	EQUAL?	STR,STR?69,STR?70 \?PRG15
+	PRINTI	" with you"
+?PRG15:	PRINTR	"."
+
+
+	.FUNCT	TOO-DARK
+	PRINTR	"(It's too dark to see!)"
+
+
+	.FUNCT	VISIBLE?,OBJ,H,L,X=0
+	ZERO?	OBJ /FALSE
+	CALL	ACCESSIBLE?,OBJ
+	ZERO?	STACK \TRUE
+	CALL	CORRIDOR-LOOK,OBJ >X
+	ZERO?	X \TRUE
+	LOC	OBJ >L
+	CALL	SEE-INSIDE?,L
+	ZERO?	STACK /FALSE
+	CALL	VISIBLE?,L
+	RSTACK	
+
+
+	.FUNCT	ACCESSIBLE?,OBJ,L
+	ZERO?	OBJ /FALSE
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	EQUAL?	OBJ,PSEUDO-OBJECT \?CCL8
+	EQUAL?	LAST-PSEUDO-LOC,HERE /TRUE
+	RFALSE	
+?CCL8:	ZERO?	L /FALSE
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	EQUAL?	L,LOCAL-GLOBALS \?CCL17
+	CALL	GLOBAL-IN?,OBJ,HERE
+	RSTACK	
+?CCL17:	CALL	META-LOC,OBJ
+	EQUAL?	STACK,HERE \FALSE
+	EQUAL?	L,WINNER,HERE /TRUE
+	FSET?	L,OPENBIT /?CTR22
+	FSET?	L,SURFACEBIT /?CTR22
+	FSET?	L,PERSONBIT \FALSE
+?CTR22:	CALL	ACCESSIBLE?,L
+	RSTACK	
+
+
+	.FUNCT	META-LOC,OBJ,INV=0,L
+	LOC	OBJ >L
+?PRG1:	ZERO?	L /FALSE
+	EQUAL?	L,NOW-WEARING \?CCL7
+	RETURN	HERE
+?CCL7:	EQUAL?	L,LOCAL-GLOBALS,GLOBAL-OBJECTS \?CCL9
+	RETURN	L
+?CCL9:	IN?	OBJ,ROOMS \?CCL11
+	RETURN	OBJ
+?CCL11:	ZERO?	INV /?CND12
+	FSET?	OBJ,INVISIBLE /FALSE
+?CND12:	SET	'OBJ,L
+	LOC	OBJ >L
+	JUMP	?PRG1
+
+
+	.FUNCT	WHO-CARES,N
+	RANDOM	WHO-CARES-LENGTH >N
+	GET	WHO-CARES-VERB,N
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STACK
+	GET	WHO-CARES-TBL,N
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	PRE-SAIM
+	CALL	PERFORM,V?AIM,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SAIM
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-AIM
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SANALYZE
+	CALL	PERFORM,V?ANALYZE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SANALYZE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-ANALYZE
+	CALL	ROOM-CHECK
+	ZERO?	STACK \TRUE
+	FSET?	PRSO,PERSONBIT \FALSE
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(Leave that to the police.)"
+
+
+	.FUNCT	V-ANALYZE
+	FSET?	PRSO,PERSONBIT \?CCL3
+	PRINTR	"How?"
+?CCL3:	FSET?	PRSO,DOORBIT \?PRG8
+	CALL	CHECK-DOOR,PRSO
+	RSTACK	
+?PRG8:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?84
+	PRINTR	" normal."
+
+
+	.FUNCT	V-ANSWER
+	ZERO?	AWAITING-REPLY /?CCL3
+	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?YES \?CCL6
+	CALL	PERFORM,V?YES
+	JUMP	?CND1
+?CCL6:	CALL	PERFORM,V?NO
+	JUMP	?CND1
+?CCL3:	CALL	NOT-CLEAR-WHOM
+?CND1:	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-REPLY
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	FSET?	PRSO,PERSONBIT \?CCL3
+	FSET?	PRSO,MUNGBIT /?CCL3
+	CALL	WAITING-FOR-YOU-TO-SPEAK
+	RSTACK	
+?CCL3:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	WAITING-FOR-YOU-TO-SPEAK
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?72
+	PRINTR	" to be waiting for you to speak."
+
+
+	.FUNCT	PRE-ARREST
+	EQUAL?	PRSI,ROOMS \?CND1
+	SET	'PRSI,FALSE-VALUE
+?CND1:	FSET?	PRSO,PERSONBIT /?CCL5
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(Are you sure you're a"
+	PRINT	FAMOUS-YOUNG-DETECTIVE
+	PRINTI	"? Arresting "
+	CALL	PRINTA,PRSO
+	PRINTR	"?!)"
+?CCL5:	ZERO?	CONFESSED /?CCL10
+	CALL	ALREADY,CONFESSED,STR?85
+	RSTACK	
+?CCL10:	ZERO?	LIONEL-SPEAKS-COUNTER /?CCL12
+	CALL	TELL-BAD-FORM
+	RTRUE	
+?CCL12:	EQUAL?	PRSO,GHOST-NEW /FALSE
+	CALL	UNSNOOZE,PRSO
+	RFALSE	
+
+
+	.FUNCT	TELL-BAD-FORM
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(Bad form"
+	CALL	IAN-CALLS-YOU
+	PRINTR	". Wait until after dinner.)"
+
+
+	.FUNCT	V-ARREST
+	CALL	QUEUED?,I-SHOT
+	EQUAL?	STACK,1 /TRUE
+	GETP	PRSO,P?CHARACTER
+	EQUAL?	VARIATION,STACK \?CCL5
+	ZERO?	EVIDENCE-FOUND /?CCL5
+	CALL	CONFESSION,PRSO
+	RSTACK	
+?CCL5:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(It would be difficult to convict"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	" with the evidence you've found. If you hope to put the culprit behind bars, you'll need more convincing proof.)"
+
+
+	.FUNCT	CONFESSION,PER,P,DEAD=0
+	SET	'CONFESSED,PER
+	PUTP	PER,P?LINE,2
+	ZERO?	TREASURE-FOUND /?CCL3
+	GET	FOUND-COSTUME,PLAYER-C
+	ZERO?	STACK /?CCL3
+	SET	'P,BUTLER
+	JUMP	?CND1
+?CCL3:	EQUAL?	VARIATION,LORD-C \?CCL7
+	SET	'P,DOCTOR
+	JUMP	?CND1
+?CCL7:	SET	'P,LORD
+?CND1:	SET	'CAPTOR,P
+	CALL	UNSNOOZE,P,TRUE-VALUE
+	PUTP	P,P?LDESC,9
+	FSET?	PER,MUNGBIT \?CCL10
+	CALL	UNSNOOZE,PER
+	ZERO?	STACK \?CCL10
+	SET	'DEAD,TRUE-VALUE
+	JUMP	?PRG24
+?CCL10:	GETP	PER,P?CHARACTER
+	GET	TOLD-ABOUT-EVID,STACK
+	ZERO?	STACK /?PRG18
+	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER,PER
+	ZERO?	STACK /?PRG20
+?PRG18:	PRINTI	"At first"
+	CALL	HE-SHE-IT,PER
+	PRINTI	" denies everything, but when you tell about"
+	CALL	PRINTT,EVIDENCE-FOUND
+	PRINTC	44
+	CALL	HE-SHE-IT,PER
+	JUMP	?PRG22
+?PRG20:	CALL	HE-SHE-IT,PER,TRUE-VALUE
+?PRG22:	PRINTI	" rushes at you! "
+	GETP	PER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-FUNCTION,NULL-F
+?PRG24:	PRINTI	"Suddenly "
+	PRINTD	P
+	IN?	P,HERE /?CND28
+	MOVE	P,HERE
+	GETP	P,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,GOAL-ENABLE,0
+	PRINTI	" appears and"
+?CND28:	ZERO?	DEAD \?PRG37
+	PRINTI	" grabs"
+	CALL	HIM-HER-IT,PER
+	PRINTI	" from behind, saying, ""I'll guard this villain for you."" Then "
+	PRINTD	PER
+	PRINTI	" glares at you and confesses to "
+	JUMP	?CND32
+?PRG37:	PRINTI	" agrees that"
+	CALL	PRINTT,EVIDENCE-FOUND
+	PRINTI	" proves "
+	PRINTD	PER
+	PRINTI	" guilty of "
+?CND32:	EQUAL?	PER,FRIEND \?CCL41
+	PRINTI	"fraud.
+"
+	JUMP	?CND39
+?CCL41:	EQUAL?	PER,PAINTER \?PRG48
+	PRINTI	"attempted "
+?PRG48:	PRINTI	"murder.
+"
+?CND39:	ZERO?	DEAD \?CND50
+	PUTP	PER,P?LDESC,20
+?CND50:	ZERO?	TREASURE-FOUND /TRUE
+	GET	FOUND-COSTUME,PLAYER-C
+	ZERO?	STACK /TRUE
+	CALL	WRAP-UP
+	CALL	FINISH
+	RTRUE	
+
+
+	.FUNCT	WRAP-UP
+	PRINTI	"
+(Congratulations, "
+	CALL	TITLE-NAME
+	PRINTI	"! Would you like to read the authors' version of the crime?)"
+	CALL	YES?
+	ZERO?	STACK \?CCL5
+	PRINTR	"Okay."
+?CCL5:	EQUAL?	VARIATION,LORD-C \?CCL9
+	PRINTD	LORD
+	PRINTI	" murdered Lionel in order to inherit the title and castle.
+"
+	PRINTD	LOVER
+	PRINTI	" was blackmailing "
+	PRINTD	LORD
+	PRINTI	" to marry her, because she knew he was plotting to kill Lionel. So Jack tried to do away with her, too, by dumping her down the well.
+But Jack was wrong in thinking he killed "
+	PRINTD	LOVER
+	PRINTI	". She survived and came back to the castle at night -- to play on "
+	PRINTD	FRIEND
+	PRINTI	"'s nerves, since her arrival seemed to be part of Jack's plot; to hunt for proof that Jack murdered Lionel; and to try to frame him for her own ""murder"" by planting"
+	CALL	PRINTT,JEWEL
+	PRINTI	" in his trouser cuff, until she lost it in the "
+	PRINTD	DRAWING-ROOM
+	PRINTR	"."
+?CCL9:	EQUAL?	VARIATION,FRIEND-C \?CCL13
+	PRINTD	FRIEND
+	PRINTI	" doubted that she could hold "
+	PRINTD	LORD
+	PRINTI	"'s love. She was both jealous and fearful of "
+	PRINTD	DEB
+	PRINTI	" as a rival who might someday take Jack away from her. So she tried to defame "
+	PRINTD	DEB
+	PRINTI	" by making it appear "
+	PRINTD	DEB
+	PRINTI	" was a vengeful ghost bent on killing Jack's new love, "
+	PRINTD	FRIEND
+	PRINTI	". "
+	PRINTD	LOVER
+	PRINTR	"'s death was purely an accident."
+?CCL13:	EQUAL?	VARIATION,DOCTOR-C \?PRG20
+	PRINTD	LOVER
+	PRINTI	" strongly suspected that her grandfather died because of "
+	PRINTD	DOCTOR
+	PRINTI	"'s fiendish experiments on his patients. So she wrote a letter to Lionel, begging him to use his influence to investigate "
+	PRINTD	DOCTOR
+	PRINTI	", which he did. However, "
+	PRINTD	DOCTOR
+	PRINTI	" found out what they were up to, and silenced both of them.
+He has masqueraded as a ghost to cover his midnight searches for the "
+	PRINTD	ARTIFACT
+	PRINTI	". He intended the attacks on "
+	PRINTD	FRIEND
+	PRINTI	" to create the belief that "
+	PRINTD	LOVER
+	PRINTR	" might still be alive."
+?PRG20:	PRINTD	PAINTER
+	PRINTI	" was intensely attached to "
+	PRINTD	LOVER
+	PRINTI	", and she jealously hated "
+	PRINTD	LORD
+	PRINTI	" for coming between them. When "
+	PRINTD	LOVER
+	PRINTI	" accidentally fell down the well, "
+	PRINTD	PAINTER
+	PRINTI	" was convinced that she had committed suicide because she felt abandoned by Jack.
+So "
+	PRINTD	PAINTER
+	PRINTI	" began her vengeful ghostly masquerade -- to find proof that Jack was responsible for "
+	PRINTD	LOVER
+	PRINTI	"'s death, to prick his guilty conscience and make him confess, and to terrorize "
+	PRINTD	FRIEND
+	PRINTI	", who replaced "
+	PRINTD	LOVER
+	PRINTR	" in Jack's affections."
+
+
+	.FUNCT	V-ASK
+	ZERO?	P-CONT /?CCL3
+	FSET?	PRSO,PERSONBIT \?CCL3
+	FSET?	PRSO,MUNGBIT /?CCL3
+	SET	'WINNER,PRSO
+	SET	'QCONTEXT,PRSO
+	RETURN	QCONTEXT
+?CCL3:	CALL	V-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-ABOUT
+	EQUAL?	PRSO,VOICE,RECORDER,PLAYER-NAME /FALSE
+	EQUAL?	PRSO,PIANO,OCEAN,MUSIC /FALSE
+	EQUAL?	PRSO,JACK-TAPE,CREW-GLOBAL,BUST /FALSE
+	EQUAL?	PRSO,COUSIN \?CCL8
+	IN?	BUST,HERE \?CCL8
+	CALL	DO-INSTEAD-OF,BUST,COUSIN
+	RSTACK	
+?CCL8:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?CCL12
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \?CCL12
+	CALL	NOT-HERE,PRSO
+	RETURN	2
+?CCL12:	EQUAL?	PRSO,PLAYER /?CTR17
+	FSET?	PRSO,PERSONBIT /?CCL18
+?CTR17:	EQUAL?	PRSA,V?$CALL \?CCL23
+	ZERO?	P-CONT \?CCL23
+	CALL	MISSING,STR?30
+	RETURN	2
+?CCL23:	EQUAL?	PRSA,V?LISTEN /FALSE
+	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RETURN	2
+?CCL18:	CALL	GRAB-ATTENTION,PRSO,PRSI
+	ZERO?	STACK \FALSE
+	RETURN	2
+
+
+	.FUNCT	V-ASK-ABOUT
+	FSET?	PRSO,PERSONBIT \?CTR2
+	FSET?	PRSO,MUNGBIT \?CCL3
+?CTR2:	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?ASK \?PRG14
+	EQUAL?	PRSO,PLAYER /?PRG14
+	PRINTR	"""Ask me about something in particular."""
+?PRG14:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?5
+	PRINTI	"n't know anything interesting about"
+	ZERO?	PRSI \?PRG21
+	PRINTI	" that"
+	JUMP	?PRG23
+?PRG21:	CALL	PRINTT,PRSI
+?PRG23:	PRINTR	"."
+
+
+	.FUNCT	WONT-HELP-TO-TALK-TO,OBJ
+	PRINTI	"You talk to"
+	CALL	PRINTT,OBJ
+	PRINTI	" for a minute before you realize that"
+	CALL	HE-SHE-IT,OBJ
+	PRINTR	" won't respond."
+
+
+	.FUNCT	PRE-ASK-CONTEXT-ABOUT,V=0,P
+	ZERO?	V \?CND1
+	SET	'V,V?ASK-ABOUT
+?CND1:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL5
+	CALL	PERFORM,V,QCONTEXT,PRSO
+	RTRUE	
+?CCL5:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /FALSE
+	CALL	TELL-I-ASSUME,P,STR?87
+	CALL	PERFORM,V,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-ABOUT
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-ASK-FOR
+	FSET?	PRSO,PERSONBIT \?CCL3
+	FSET?	PRSO,MUNGBIT /?CCL3
+	EQUAL?	PRSO,PLAYER /?CCL3
+	CALL	START-SENTENCE,PRSO
+	IN?	PRSI,PRSO \?PRG16
+	MOVE	PRSI,WINNER
+	FSET	PRSI,TAKEBIT
+	FSET	PRSI,TOUCHBIT
+	FCLEAR	PRSI,NDESCBIT
+	FCLEAR	PRSI,SECRETBIT
+	PRINTI	" hands you"
+	CALL	PRINTT,PRSI
+	FSET	PRSI,SEENBIT
+	PRINTR	"."
+?PRG16:	PRINTI	" doesn't have"
+	CALL	PRINTT,PRSI
+	PRINTR	"."
+?CCL3:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-CONTEXT-FOR,P
+	LOC	PRSO >P
+	FSET?	P,PERSONBIT \?CCL3
+	CALL	PERFORM,V?ASK-FOR,P,PRSO
+	RTRUE	
+?CCL3:	CALL	PRE-ASK-CONTEXT-ABOUT,V?ASK-FOR
+	RSTACK	
+
+
+	.FUNCT	V-ASK-CONTEXT-FOR
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-ATTACK
+	CALL	IKILL,STR?88
+	RSTACK	
+
+
+	.FUNCT	V-BOW,P
+	SET	'P,PRSO
+	ZERO?	P \?CND1
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P \?CND1
+	PRINTR	"No one notices."
+?CND1:	FSET?	P,PERSONBIT \?CTR8
+	EQUAL?	P,PLAYER \?CCL9
+?CTR8:	CALL	HAR-HAR
+	RSTACK	
+?CCL9:	CALL	GRAB-ATTENTION,P
+	ZERO?	STACK /TRUE
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTC	32
+	FSET?	P,FEMALE \?PRG21
+	PRINTI	"curtsey"
+	JUMP	?PRG23
+?PRG21:	PRINTI	"bow"
+?PRG23:	PRINTR	"s back to you."
+
+
+	.FUNCT	PRE-BRUSH
+	EQUAL?	PRSO,ROOMS \FALSE
+	EQUAL?	P-PRSA-WORD,W?SCRAPE,W?SCRATCH /FALSE
+	SET	'PRSO,WINNER
+	RFALSE	
+
+
+	.FUNCT	V-BRUSH
+	EQUAL?	P-PRSA-WORD,W?SCRAPE,W?SCRATCH \?CTR2
+	FSET?	PRSO,PERSONBIT \?CCL3
+?CTR2:	EQUAL?	HERE,YOUR-BATHROOM,KITCHEN \?CCL8
+	EQUAL?	PRSO,PLAYER,HEAD,HANDS \?CCL11
+	SET	'WASHED,TRUE-VALUE
+	PRINT	AHHH
+	RTRUE	
+?CCL11:	FSET?	PRSO,PERSONBIT \?CCL15
+	CALL	FACE-RED
+	RSTACK	
+?CCL15:	CALL	UNCLEAN
+	RSTACK	
+?CCL8:	CALL	TELL-FIND-NONE,STR?90
+	RSTACK	
+?CCL3:	CALL	UNCLEAN
+	RSTACK	
+
+
+	.FUNCT	UNCLEAN
+	PRINTR	"You try for a minute and then decide it's an endless task."
+
+
+	.FUNCT	REMOVE-CAREFULLY,OBJ=0,OLIT
+	SET	'OLIT,LIT
+	ZERO?	OBJ /?CND1
+	CALL	NOT-IT,OBJ
+	MOVE	OBJ,LOCAL-GLOBALS
+?CND1:	CALL	LIT? >LIT
+	ZERO?	OLIT /TRUE
+	ZERO?	LIT \TRUE
+	PRINTR	"You are left in the dark..."
+
+
+	.FUNCT	V-$CALL
+	CALL	UNSNOOZE,PRSO
+	FSET?	PRSO,PERSONBIT \?CCL3
+	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE \?CCL6
+	CALL	GRAB-ATTENTION,PRSO
+	ZERO?	STACK /?PRG15
+	PUTP	PRSO,P?LDESC,12
+	CALL	START-SENTENCE,PRSO
+	PRINTI	" is "
+	GET	LDESC-STRINGS,12
+	PRINT	STACK
+	PRINTR	"."
+?PRG15:	RETURN	2
+?CCL6:	CALL	CORRIDOR-LOOK,PRSO
+	ZERO?	STACK /?CCL18
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" ignores you."
+?CCL18:	CALL	NOT-HERE,PRSO
+	RSTACK	
+?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
+	CALL	MISSING,STR?30
+	RSTACK	
+
+
+	.FUNCT	V-CHASTISE
+	EQUAL?	PRSO,INTDIR /?CND1
+	PRINT	I-ASSUME
+	PRINTI	" Look at"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	", not look in"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	" nor look for"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	" nor any other preposition.]"
+	CRLF	
+?CND1:	CALL	PERFORM,V?EXAMINE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-BOARD
+	IN?	PRSO,ROOMS /?CTR2
+	FSET?	PRSO,DOORBIT \?CCL3
+?CTR2:	CALL	V-THROUGH
+	RSTACK	
+?CCL3:	FSET?	PRSO,VEHBIT \?CCL7
+	IN?	WINNER,PRSO \?CCL11
+	CALL	ALREADY,PLAYER
+	PRINTI	"in"
+	CALL	PRINTT,PRSO
+	PRINTR	".)"
+?CCL11:	MOVE	WINNER,PRSO
+	PRINTI	"You are now "
+	FSET?	PRSO,SURFACEBIT \?PRG21
+	PRINTI	"on"
+	JUMP	?PRG23
+?PRG21:	PRINTI	"in"
+?PRG23:	CALL	PRINTT,PRSO
+	PRINTR	"."
+?CCL7:	CALL	YOU-CANT,STR?91
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-ON
+	CALL	PERFORM,V?SIT,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-CLIMB-UP,DIR=P?UP,OBJ=0,X
+	IN?	PRSO,ROOMS \?CCL3
+	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?CCL3:	GETPT	HERE,DIR
+	ZERO?	STACK /?CCL5
+	CALL	DO-WALK,DIR
+	RTRUE	
+?CCL5:	ZERO?	OBJ \?CCL7
+	CALL	YOU-CANT,STR?40
+	RSTACK	
+?CCL7:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-DOWN
+	CALL	V-CLIMB-UP,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,CONTBIT /?CCL3
+	FSET?	PRSO,DOORBIT /?CCL3
+	EQUAL?	PRSO,WINDOW /?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	FSET?	PRSO,DOORBIT /?CTR7
+	EQUAL?	PRSO,WINDOW \?CCL8
+?CTR7:	FSET?	PRSO,OPENBIT \?CCL13
+	CALL	OKAY,PRSO,STR?61
+	RSTACK	
+?CCL13:	CALL	ALREADY,PRSO,STR?61
+	RSTACK	
+?CCL8:	FSET?	PRSO,SURFACEBIT /?CCL16
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?CCL16
+	FSET?	PRSO,OPENBIT \?CCL21
+	CALL	OKAY,PRSO,STR?61
+	RSTACK	
+?CCL21:	CALL	ALREADY,PRSO,STR?61
+	RSTACK	
+?CCL16:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-COMPARE,?TMP1
+	ZERO?	PRSI \?CCL3
+	GETB	P-PRSO,P-MATCHLEN
+	EQUAL?	1,STACK \?CCL3
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"[Oops! Try: COMPARE IT TO"
+	PRINT	SOMETHING
+	RTRUE	
+?CCL3:	GETB	P-PRSO,P-MATCHLEN
+	EQUAL?	2,STACK \FALSE
+	PUTB	P-PRSO,P-MATCHLEN,1
+	GETB	P-PRSO,1 >?TMP1
+	GETB	P-PRSO,2
+	CALL	PERFORM,PRSA,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	V-COMPARE
+	EQUAL?	PRSO,PRSI \?CCL3
+	PRINTR	"They're the same thing!"
+?CCL3:	EQUAL?	PLAYER,PRSO,PRSI \?PRG11
+	PRINTI	"You"
+	JUMP	?PRG13
+?PRG11:	PRINTI	"They"
+?PRG13:	PRINTR	"'re not a bit alike."
+
+
+	.FUNCT	V-CONFRONT
+	EQUAL?	PRSO,PLAYER \?CCL3
+	CALL	ARENT-TALKING
+	RSTACK	
+?CCL3:	FSET?	PRSO,PERSONBIT /?CCL5
+	PRINTI	"Wow! That ought to put a scare into"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"!"
+?CCL5:	CALL	WHO-CARES
+	RSTACK	
+
+
+	.FUNCT	V-MUNG
+	FSET?	PRSO,DOORBIT \?CCL3
+	ZERO?	PRSI \?CCL3
+	FSET?	PRSO,OPENBIT \?CCL8
+	PRINTR	"You'd fly through the open door if you tried."
+?CCL8:	CALL	UNLOCK-DOOR?,PRSO
+	ZERO?	STACK /?CCL12
+	PRINTR	"Why don't you just open it instead?"
+?CCL12:	CALL	IF-SPY
+	RSTACK	
+?CCL3:	FSET?	PRSO,PERSONBIT /?CCL16
+	CALL	IF-SPY
+	RSTACK	
+?CCL16:	CALL	IKILL,STR?92
+	RSTACK	
+
+
+	.FUNCT	V-DANCE,OW
+	EQUAL?	WINNER,PLAYER /?CCL3
+	EQUAL?	PRSO,PLAYER \?CCL3
+	SET	'OW,WINNER
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?DANCE,OW
+	SET	'WINNER,OW
+	RTRUE	
+?CCL3:	FSET?	PRSO,PERSONBIT /?CCL7
+	CALL	HAR-HAR
+	RSTACK	
+?CCL7:	CALL	IN-MOTION?,PRSO
+	ZERO?	STACK /?CCL9
+	CALL	TOO-BAD-BUT,PRSO,STR?93
+	RSTACK	
+?CCL9:	ZERO?	GENDER-KNOWN \?PRD13
+	EQUAL?	WINNER,PLAYER /?PRG21
+?PRD13:	FSET?	WINNER,FEMALE /?PRD16
+	FSET?	PRSO,FEMALE /?PRG21
+?PRD16:	FSET?	WINNER,FEMALE \?PRG23
+	FSET?	PRSO,FEMALE /?PRG23
+?PRG21:	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?94
+	PRINTI	" with"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	" for a minute."
+?PRG23:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE
+	PRINTR	" doesn't fancy a dance with you."
+
+
+	.FUNCT	PRE-DESCRIBE
+	EQUAL?	WINNER,PLAYER \FALSE
+	EQUAL?	PRSI,FALSE-VALUE,ROOMS \?CCL6
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL9
+	SET	'WINNER,QCONTEXT
+	CALL	PERFORM,PRSA,PRSO
+	RTRUE	
+?CCL9:	CALL	ARENT-TALKING
+	RSTACK	
+?CCL6:	CALL	PERFORM,V?TELL-ABOUT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-DESCRIBE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-UNDRESS
+	EQUAL?	PRSO,ROOMS,PLAYER \?CCL3
+	ZERO?	NOW-WEARING \?CCL6
+	CALL	ALREADY,PLAYER,STR?95
+	RSTACK	
+?CCL6:	SET	'PRSO,FALSE-VALUE
+	CALL	V-WEAR
+	RSTACK	
+?CCL3:	FSET?	PRSO,PERSONBIT \?CCL8
+	FSET?	PRSO,MUNGBIT \?CCL11
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(Not in a family story!)"
+?CCL11:	CALL	FACE-RED
+	RSTACK	
+?CCL8:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-DRESS,X
+	EQUAL?	PRSO,PLAYER,ROOMS \?CCL3
+	ZERO?	NOW-WEARING \?CCL6
+	EQUAL?	PLAYER,WINNER,PRSO \?CCL6
+	CALL	FIND-FLAG,WINNER,WEARBIT >X
+	ZERO?	X \?CTR10
+	CALL	FIND-FLAG,HERE,WEARBIT >X
+	ZERO?	X /?CCL11
+?CTR10:	CALL	TELL-I-ASSUME,X,STR?96
+	CALL	PERFORM,V?WEAR,X
+	RTRUE	
+?CCL11:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(You didn't say what to wear!)"
+?CCL6:	CALL	ALREADY,WINNER,STR?97
+	RSTACK	
+?CCL3:	FSET?	PRSO,PERSONBIT \?CCL17
+	CALL	ALREADY,WINNER,STR?97
+	RSTACK	
+?CCL17:	FSET?	PRSO,WEARBIT \?CCL19
+	CALL	V-WEAR
+	RTRUE	
+?CCL19:	CALL	FIND-OUTFIT >X
+	ZERO?	X /?CCL21
+	CALL	TELL-I-ASSUME,X
+	SET	'PRSO,X
+	CALL	V-WEAR
+	RTRUE	
+?CCL21:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	FIND-OUTFIT,X,?TMP1
+	CALL	FIND-FLAG,WINNER,WEARBIT,NOW-WEARING >?TMP1
+	ZERO?	?TMP1 /?PRD3
+	RETURN	?TMP1
+?PRD3:	CALL	FIND-FLAG-HERE,WEARBIT >?TMP1
+	ZERO?	?TMP1 /?PRD4
+	RETURN	?TMP1
+?PRD4:	CALL	FIND-OUTFIT-IN,LUGGAGE >?TMP1
+	ZERO?	?TMP1 /?PRD5
+	RETURN	?TMP1
+?PRD5:	CALL	FIND-OUTFIT-IN,BED >?TMP1
+	ZERO?	?TMP1 /?PRD6
+	RETURN	?TMP1
+?PRD6:	CALL	FIND-OUTFIT-IN,CHEST-OF-DRAWERS >?TMP1
+	ZERO?	?TMP1 /?PRD7
+	RETURN	?TMP1
+?PRD7:	CALL	FIND-OUTFIT-IN,WARDROBE
+	RSTACK	
+
+
+	.FUNCT	FIND-OUTFIT-IN,OBJ,X
+	CALL	META-LOC,OBJ
+	EQUAL?	STACK,HERE \FALSE
+	CALL	FIND-FLAG,OBJ,WEARBIT >X
+	ZERO?	X /FALSE
+	FSET?	OBJ,OPENBIT /?CND6
+	FSET	OBJ,OPENBIT
+	CALL	FIRST-YOU,STR?66,OBJ
+?CND6:	RETURN	X
+
+
+	.FUNCT	V-CHANGE,X
+	EQUAL?	PRSO,ROOMS,TWEED-OUTFIT /?CTR2
+	EQUAL?	PRSO,EXERCISE-OUTFIT,DINNER-OUTFIT,SLEEP-OUTFIT \?CCL3
+?CTR2:	CALL	FIND-OUTFIT >X
+	ZERO?	X /?CCL8
+	CALL	PERFORM,V?WEAR,X
+	RTRUE	
+?CCL8:	CALL	META-LOC,LUGGAGE
+	EQUAL?	STACK,HERE /?CCL10
+	PRINTI	"You look around for "
+	PRINTD	LUGGAGE
+	PRINTR	" but don't find it."
+?CCL10:	CALL	FIND-FLAG,LUGGAGE,WEARBIT >X
+	ZERO?	X /?PRG15
+	FSET	LUGGAGE,OPENBIT
+	CALL	PERFORM,V?WEAR,X
+	RTRUE	
+?PRG15:	PRINTR	"You can't find anything to change into."
+?CCL3:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-DRIVE-TO
+	EQUAL?	PRSO,CAR /?CCL3
+	CALL	DONT-UNDERSTAND
+	RSTACK	
+?CCL3:	LOC	WINNER
+	EQUAL?	STACK,CAR /?CCL5
+	CALL	TELL-NOT-IN,CAR
+	RTRUE	
+?CCL5:	EQUAL?	PRSI,INTDIR \?CCL7
+	CALL	DO-WALK,P-DIRECTION
+	RTRUE	
+?CCL7:	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+
+
+	.FUNCT	TELL-NOT-IN,OBJ
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" not in"
+	CALL	HIM-HER-IT,OBJ
+	PRINTR	"!)"
+
+
+	.FUNCT	V-DRIVE-TO
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-DRINK
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DROP,L
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	SET	'L,TABLE-DINING
+	IN?	L,HERE /?CTR5
+	CALL	FIND-FLAG-HERE,VEHBIT,PRSO >L
+	ZERO?	L /?CCL6
+?CTR5:	MOVE	PRSO,L
+	CALL	OKAY,PRSO
+	PRINTI	" is now on"
+	CALL	PRINTT,L
+	PRINTR	"."
+?CCL6:	CALL	GROUND-DESC
+	CALL	OKAY,PRSO,STACK
+	RSTACK	
+
+
+	.FUNCT	GROUND-DESC
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CTR2
+	LOC	WINNER
+	EQUAL?	STACK,CAR \?CCL3
+?CTR2:	RETURN	STR?98
+?CCL3:	RETURN	STR?99
+
+
+	.FUNCT	PRE-EAT
+	EQUAL?	PRSO,FALSE-VALUE,ROOMS \FALSE
+	CALL	META-LOC,DINNER
+	EQUAL?	STACK,HERE \?CCL6
+	CALL	PERFORM,PRSA,DINNER
+	RTRUE	
+?CCL6:	CALL	NOT-HERE,DINNER
+	RTRUE	
+
+
+	.FUNCT	V-EAT
+	PRINTR	"It's hard to believe you're that hungry."
+
+
+	.FUNCT	PRE-EMPTY
+	EQUAL?	PRSO,ROOMS \?CND1
+	CALL	META-LOC,LUGGAGE
+	EQUAL?	HERE,STACK \?CCL5
+	SET	'PRSO,LUGGAGE
+?CND1:	EQUAL?	PRSO,POND \?CCL8
+	CALL	WONT-HELP
+	RSTACK	
+?CCL5:	CALL	NOT-HERE,LUGGAGE
+	RTRUE	
+?CCL8:	EQUAL?	PRSO,WENDISH-KIT,VIVIEN-BOX \?CCL10
+	CALL	YOU-SHOULDNT
+	RSTACK	
+?CCL10:	EQUAL?	PRSO,BOTTLE /?CCL12
+	FIRST?	PRSO /?CCL12
+	CALL	ALREADY,PRSO,STR?100
+	RSTACK	
+?CCL12:	ZERO?	PRSI /?CCL16
+	IN?	PRSI,ROOMS /?CCL16
+	FSET?	PRSI,CONTBIT /?CCL16
+	CALL	TELL-FIND-NONE,STR?101,PRSI
+	RETURN	2
+?CCL16:	EQUAL?	PRSO,CAR \FALSE
+	ZERO?	PRSI \FALSE
+	LOC	CAR
+	CALL	PERFORM,PRSA,PRSO,STACK
+	RTRUE	
+
+
+	.FUNCT	V-EMPTY,?TMP1,?TMP2
+	FSET?	PRSO,CONTBIT \?CCL3
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?4
+	CALL	PRINTT,PRSO
+	ZERO?	PRSI \?PRG17
+	EQUAL?	PRSO,COFFIN /?CCL10
+	CALL	FIND-FLAG-HERE,CONTBIT,PRSO >PRSI
+	ZERO?	PRSI /?CCL10
+	FSET	PRSI,OPENBIT
+	PRINTI	" into"
+	CALL	PRINTT,PRSI
+	JUMP	?PRG17
+?CCL10:	SET	'PRSI,HERE
+	PRINTC	32
+	CALL	GROUND-DESC
+	PRINT	STACK
+?PRG17:	PRINTC	46
+	CRLF	
+	EQUAL?	PRSI,HERE /?CCL21
+	CALL	WEIGHT,PRSI >?TMP2
+	CALL	WEIGHT,PRSO
+	ADD	?TMP2,STACK >?TMP1
+	GETP	PRSI,P?CAPACITY
+	GRTR?	?TMP1,STACK \?CCL21
+	PRINT	NOT-ENOUGH-ROOM
+	RTRUE	
+?CCL21:	CALL	ROB,PRSO,PRSI
+	RTRUE	
+?CCL3:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-THROUGH
+	EQUAL?	PRSO,GLOBAL-HERE,ROOMS \?CCL3
+	CALL	DO-WALK,P?IN
+	RTRUE	
+?CCL3:	ZERO?	PRSI /FALSE
+	EQUAL?	PRSO,CAR \?CCL8
+	LOC	WINNER
+	EQUAL?	STACK,CAR \?CCL11
+	SET	'PRSO,PRSI
+	RFALSE	
+?CCL11:	CALL	TELL-NOT-IN,CAR
+	RTRUE	
+?CCL8:	CALL	DONT-UNDERSTAND
+	RSTACK	
+
+
+	.FUNCT	V-THROUGH,RM,DIR
+	CALL	NOUN-USED?,W?DOOR,W?GATE,W?HOLE
+	ZERO?	STACK \?PRD5
+	CALL	NOUN-USED?,W?PANEL
+	ZERO?	STACK /?CCL3
+?PRD5:	FSET?	PRSO,OPENBIT /?CTR2
+	CALL	WALK-THRU-DOOR?,FALSE-VALUE,PRSO,FALSE-VALUE
+	ZERO?	STACK /?CCL3
+?CTR2:	CALL	DOOR-ROOM,HERE,PRSO >RM
+	ZERO?	RM /?CCL12
+	CALL	GOTO,RM
+	ZERO?	STACK \TRUE
+?CCL12:	CALL	V-FOO
+	RSTACK	
+?CCL3:	IN?	PRSO,ROOMS \?CCL16
+	EQUAL?	PRSO,HERE \?CCL19
+	CALL	WALK-WITHIN-ROOM
+	RTRUE	
+?CCL19:	CALL	SEE-INTO?,PRSO,FALSE-VALUE
+	ZERO?	STACK /?CCL21
+	CALL	GOTO,PRSO
+	RTRUE	
+?CCL21:	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?CCL16:	FSET?	PRSO,VEHBIT \?CCL23
+	CALL	PERFORM,V?BOARD,PRSO
+	RSTACK	
+?CCL23:	FSET?	PRSO,PERSONBIT \?CCL26
+	CALL	HAR-HAR
+	RSTACK	
+?CCL26:	FSET?	PRSO,TAKEBIT /?CCL28
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?102
+	PRINTI	" into"
+	CALL	PRINTT,PRSO
+	CALL	THIS-IS-IT,PRSO
+	PRINTI	" trying to go through"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?CCL28:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-EXAMINE
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-EXAMINE,TXT=0
+	EQUAL?	PRSO,PSEUDO-OBJECT /?CCL2
+	CALL	NOUN-USED?,W?DOOR,W?PANEL
+	ZERO?	STACK /?CND1
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CND1
+?CCL2:	SET	'TXT,TRUE-VALUE
+?CND1:	EQUAL?	PRSO,INTDIR \?CCL9
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(If you want to see what's there, go there!)"
+?CCL9:	EQUAL?	PRSO,LIGHT-GLOBAL /?CTR12
+	EQUAL?	PRSO,WALL,TOWER,OTHER-OUTFIT /?CTR12
+	EQUAL?	PRSO,HEAD,HANDS,CASTLE \?CCL13
+?CTR12:	CALL	NOTHING-SPECIAL
+	RSTACK	
+?CCL13:	IN?	PRSO,GLOBAL-OBJECTS \?CCL18
+	CALL	NOT-HERE,PRSO
+	RTRUE	
+?CCL18:	IN?	PRSO,ROOMS \?CCL20
+	ZERO?	TXT \?CCL20
+	CALL	ROOM-PEEK,PRSO
+	RSTACK	
+?CCL20:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?CCL24
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \?CCL24
+	ZERO?	TXT \?CCL24
+	CALL	TOO-BAD-BUT,PRSO,STR?103
+	RSTACK	
+?CCL24:	GETP	PRSO,P?TEXT >TXT
+	ZERO?	TXT /?CCL29
+	PRINT	TXT
+	CRLF	
+	RTRUE	
+?CCL29:	FSET?	PRSO,DOORBIT \?CCL33
+	CALL	CHECK-DOOR,PRSO
+	RSTACK	
+?CCL33:	FSET?	PRSO,CONTBIT /?CTR34
+	FSET?	PRSO,SURFACEBIT \?CCL35
+?CTR34:	CALL	V-LOOK-INSIDE
+	RSTACK	
+?CCL35:	CALL	NOTHING-SPECIAL
+	RSTACK	
+
+
+	.FUNCT	NOTHING-SPECIAL
+	PRINTI	"You look over"
+	CALL	PRINTT,PRSO
+	PRINTR	" for a minute and find nothing suspicious -- for now."
+
+
+	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,TBL,VAL=0
+	GETPT	OBJ2,P?GLOBAL >TBL
+	ZERO?	TBL /?CND1
+	PTSIZE	TBL
+	SUB	STACK,1
+	CALL	ZMEMQB,OBJ1,TBL,STACK >VAL
+?CND1:	ZERO?	VAL /?PRD6
+	RETURN	VAL
+?PRD6:	EQUAL?	OBJ1,OBJ2 /?CCL4
+	RETURN	VAL
+?CCL4:	SET	'VAL,TRUE-VALUE
+	RETURN	VAL
+
+
+	.FUNCT	V-FAINT
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?3
+	CALL	HIM-HER-IT,WINNER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" best, but"
+	CALL	HE-SHE-IT,WINNER,0,STR?1
+	PRINTR	" too excited."
+
+
+	.FUNCT	V-FILL
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-FIND,?TMP1
+	EQUAL?	PRSO,PLAYER-NAME,PLAYER /FALSE
+	FSET?	PRSO,SECRETBIT \?CCL5
+	FSET?	PRSO,SEENBIT /?CCL5
+	CALL	NO-FUN
+	RSTACK	
+?CCL5:	IN?	PRSO,ROOMS \?CCL9
+	EQUAL?	PRSO,HERE \?CCL12
+	CALL	ALREADY,WINNER,STR?104
+	RSTACK	
+?CCL12:	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?CCL9:	FSET?	PRSO,PERSONBIT \FALSE
+	CALL	META-LOC,WINNER >?TMP1
+	CALL	META-LOC,PRSO
+	EQUAL?	?TMP1,STACK \?CCL18
+	FSET?	PRSO,NDESCBIT /?CCL18
+	CALL	BITE-YOU
+	RTRUE	
+?CCL18:	CALL	FOLLOW-LOC?
+	ZERO?	STACK \TRUE
+	CALL	WHO-KNOWS?,PRSO
+	RETURN	2
+
+
+	.FUNCT	BITE-YOU
+	PRINTI	"If"
+	CALL	HE-SHE-IT,PRSO
+	PRINTI	" were any closer,"
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	"'d bite you!"
+
+
+	.FUNCT	FAR-AWAY?,L
+	GETP	HERE,P?LINE
+	ZERO?	STACK /TRUE
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	FSET?	L,SECRETBIT \?CCL7
+	FSET?	L,SEENBIT \TRUE
+?CCL7:	EQUAL?	L,YOUR-ROOM \?CCL11
+	EQUAL?	HERE,YOUR-BATHROOM /FALSE
+?CCL11:	EQUAL?	L,YOUR-BATHROOM \?CCL15
+	EQUAL?	HERE,YOUR-ROOM /FALSE
+?CCL15:	GETP	L,P?LINE
+	ZERO?	STACK /TRUE
+	FSET?	FRIEND,TOUCHBIT /?CCL21
+	EQUAL?	L,CAR,DRIVEWAY,COURTYARD \TRUE
+?CCL21:	EQUAL?	HERE,DRIVEWAY \?CND1
+	EQUAL?	L,CAR,DRIVEWAY /FALSE
+	GETB	LAST-NAME,0
+	ZERO?	STACK /TRUE
+?CND1:	FSET?	HERE,SECRETBIT \?PRD32
+	FSET?	L,SECRETBIT \?CCL30
+?PRD32:	FSET?	HERE,SECRETBIT /FALSE
+	FSET?	L,SECRETBIT \FALSE
+?CCL30:	CALL	SEE-INTO?,L,FALSE-VALUE
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	V-FIND,L
+	LOC	PRSO >L
+	EQUAL?	PRSO,PLAYER \?CCL3
+	PRINTI	"You're right here, "
+	CALL	TELL-LOCATION
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,HANDS,HEAD \?CCL7
+	CALL	BITE-YOU
+	RSTACK	
+?CCL7:	CALL	HELD?,PRSO
+	ZERO?	STACK /?CCL9
+	PRINTR	"You have it."
+?CCL9:	FSET?	PRSO,SECRETBIT /?CTR12
+	EQUAL?	PRSO,ARTIFACT \?CCL13
+?CTR12:	CALL	NO-FUN
+	RSTACK	
+?CCL13:	CALL	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL17
+	FSET?	PRSO,SECRETBIT \?PRG21
+	CALL	DISCOVER,PRSO
+	RSTACK	
+?PRG21:	PRINTR	"It's right here."
+?CCL17:	FSET?	PRSO,SEENBIT /?CCL24
+	CALL	NOT-HERE,PRSO,TRUE-VALUE
+	RSTACK	
+?CCL24:	EQUAL?	L,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CCL27
+	PRINTR	"It's around somewhere."
+?CCL27:	CALL	META-LOC,PRSO
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK /?CCL32
+	PRINTR	"It's far away from here."
+?CCL32:	FSET?	L,PERSONBIT \?CCL36
+	CALL	THIS-IS-IT,L
+	CALL	START-SENTENCE,L
+	PRINTR	" probably has it."
+?CCL36:	FSET?	L,SURFACEBIT /?CTR39
+	FSET?	L,CONTBIT /?CTR39
+	IN?	L,ROOMS \?PRG55
+?CTR39:	CALL	THIS-IS-IT,L
+	PRINTI	"It's probably "
+	FSET?	L,SURFACEBIT \?PRG51
+	PRINTI	"on"
+	JUMP	?PRG53
+?PRG51:	PRINTI	"in"
+?PRG53:	CALL	PRINTT,L
+	PRINTR	"."
+?PRG55:	PRINTR	"It's nowhere in particular."
+
+
+	.FUNCT	NO-FUN
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(If it's that easy, it spoils the fun!)"
+
+
+	.FUNCT	TELL-LOCATION,DIR
+	IN?	PLAYER,HERE /?CND1
+	PRINTI	"sitting "
+?CND1:	FSET?	HERE,SURFACEBIT \?PRG10
+	PRINTI	"on"
+	JUMP	?PRG12
+?PRG10:	PRINTI	"in"
+?PRG12:	CALL	PRINTT,HERE
+	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	V-FIX
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	FOLLOW-LOC?,L
+	GETP	PRSO,P?CHARACTER >L
+	GET	FOLLOW-LOC,L >L
+	ZERO?	L /FALSE
+	PRINTI	"The last you knew,"
+	CALL	HE-SHE-IT,PRSO
+	PRINTI	" was "
+	FSET?	L,SURFACEBIT \?PRG11
+	PRINTI	"on"
+	JUMP	?CND6
+?PRG11:	PRINTI	"in"
+?CND6:	GETP	PRSO,P?CHARACTER
+	CALL	TELL-HIS-HER-BEDROOM,STACK,L
+	PRINTI	".
+"
+	RETURN	L
+
+
+	.FUNCT	V-FOLLOW,L
+	EQUAL?	PRSO,WINNER \?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,GHOST-NEW /?CCL5
+	FSET?	PRSO,PERSONBIT /?CCL5
+	PRINTI	"How tragic to see you, a"
+	PRINT	FAMOUS-YOUNG-DETECTIVE
+	PRINTI	", stalking "
+	CALL	PRINTA,PRSO
+	PRINTR	"!"
+?CCL5:	CALL	META-LOC,PRSO >L
+	EQUAL?	HERE,L \?CCL11
+	PRINTI	"You're in the same place as"
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	"!"
+?CCL11:	GETP	PRSO,P?CHARACTER
+	GET	FOLLOW-LOC,STACK >L
+	ZERO?	L /?CCL15
+	CALL	PERFORM,V?WALK-TO,L
+	RSTACK	
+?CCL15:	CALL	WHO-KNOWS?,PRSO
+	RETURN	2
+
+
+	.FUNCT	V-FOO
+	PRINTR	"[Foo!! This is a bug!!]"
+
+
+	.FUNCT	V-FORGIVE
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-GIVE
+	EQUAL?	PRSI,PLAYER,PLAYER-NAME /FALSE
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-GIVE
+	ZERO?	PRSI \?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	FSET?	PRSI,PERSONBIT /?CCL5
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't give "
+	CALL	PRINTA,PRSO
+	PRINTI	" to "
+	CALL	PRINTA,PRSI
+	PRINTR	"!"
+?CCL5:	EQUAL?	PRSI,PLAYER \?CCL9
+	CALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL9:	EQUAL?	PRSO,LUGGAGE \?CCL11
+	FIRST?	PRSO \?CCL11
+	FSET?	YOUR-ROOM,TOUCHBIT \?CCL11
+	CALL	HE-SHE-IT,PRSI,TRUE-VALUE,STR?105
+	PRINTR	" your gift."
+?CCL11:	MOVE	PRSO,PRSI
+	CALL	HE-SHE-IT,PRSI,TRUE-VALUE,STR?106
+	PRINTI	" your gift."
+	CRLF	
+	CALL	TREASURE-FOUND?,PRSO,PRSI
+	GETP	PRSI,P?CHARACTER
+	EQUAL?	VARIATION,STACK \TRUE
+	FSET?	PRSO,RMUNGBIT /?CCL20
+	EQUAL?	PRSO,BLOWGUN,COSTUME \TRUE
+?CCL20:	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	PRE-SGIVE,X
+	GET	P-NAMW,0 >X
+	GET	P-NAMW,1
+	PUT	P-NAMW,0,STACK
+	PUT	P-NAMW,1,X
+	CALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SGIVE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-HELLO,P,WORD=0
+	EQUAL?	P-PRSA-WORD,W?HELLO,W?HI \?CCL3
+	SET	'WORD,STR?107
+	JUMP	?CND1
+?CCL3:	EQUAL?	P-PRSA-WORD,W?SORRY \?CND1
+	SET	'WORD,STR?108
+?CND1:	EQUAL?	PRSO,ROOMS /?CCL7
+	FSET?	PRSO,PERSONBIT /?CCL10
+	EQUAL?	PRSO,CREW-GLOBAL /?CCL10
+	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RTRUE	
+?CCL10:	FSET?	PRSO,MUNGBIT \?CCL14
+	CALL	PERFORM,V?ALARM,PRSO
+	RTRUE	
+?CCL14:	ZERO?	WORD /FALSE
+	PRINT	I-ASSUME
+	PRINT	WORD
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	".]"
+	CRLF	
+	RFALSE	
+?CCL7:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL20
+	PRINT	I-ASSUME
+	PRINTC	32
+	PRINTD	QCONTEXT
+	PRINTI	".]"
+	CRLF	
+	CALL	PERFORM,PRSA,QCONTEXT
+	RTRUE	
+?CCL20:	EQUAL?	WINNER,PLAYER \?CCL26
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /?CCL26
+	PRINT	I-ASSUME
+	PRINTC	32
+	PRINTD	P
+	PRINTI	".]"
+	CRLF	
+	CALL	PERFORM,PRSA,P
+	RTRUE	
+?CCL26:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	V-HELLO
+	FSET?	PRSO,PERSONBIT \?CCL3
+	FSET?	PRSO,MUNGBIT /?CCL6
+	ZERO?	LIT \?PRG12
+	PRINTR	"""Hello."""
+?PRG12:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?109
+	PRINTR	" at you."
+?CCL6:	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RSTACK	
+?CCL3:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	V-HELP
+	EQUAL?	PRSO,FALSE-VALUE,PLAYER \?CCL3
+	CALL	HELP-TEXT
+	RSTACK	
+?CCL3:	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	HELP-TEXT
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"[You'll find plenty of help in your "
+	PRINTD	MOONMIST
+	PRINTR	" package.
+If you're really stuck, you can order an InvisiClues (TM) hint booklet and map from your dealer or via mail with the form in your package.]"
+
+
+	.FUNCT	V-KILL
+	CALL	IKILL,STR?110
+	RSTACK	
+
+
+	.FUNCT	IKILL,STR=0
+	ZERO?	PRSO \?CCL3
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(There's nothing here to "
+	PRINT	STR
+	PRINTR	".)"
+?CCL3:	ZERO?	PRSI \?CCL7
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINT	YOU-DIDNT-SAY-W
+	PRINTI	"hat to "
+	PRINT	STR
+	CALL	PRINTT,PRSO
+	FSET?	PRSO,WEAPONBIT \?PRG15
+	PRINTI	" at"
+	JUMP	?PRG17
+?PRG15:	PRINTI	" with"
+?PRG17:	PRINTR	".]"
+?CCL7:	FSET?	PRSO,PERSONBIT /?PRG21
+	CALL	HAR-HAR
+	RSTACK	
+?PRG21:	PRINT	NO-VIOLENCE
+	RTRUE	
+
+
+	.FUNCT	V-KISS,X
+	EQUAL?	PRSO,PLAYER \?CCL3
+	PRINTI	"You kiss "
+	PRINTD	PLAYER
+	PRINTR	" for a minute. Yuk!"
+?CCL3:	FSET?	PRSO,PERSONBIT \?PRG10
+	FSET?	PRSO,MUNGBIT /?PRG10
+	CALL	FACE-RED
+	RSTACK	
+?PRG10:	PRINTR	"What a (ahem!) strange idea!"
+
+
+	.FUNCT	V-KNOCK,P
+	FSET?	PRSO,DOORBIT \?CCL3
+	FSET?	PRSO,OPENBIT \?CCL7
+	PRINTR	"It's open!"
+?CCL7:	CALL	DOOR-ROOM,HERE,PRSO >P
+	ZERO?	P /?PRG16
+	CALL	FIND-FLAG,P,PERSONBIT,PLAYER >P
+	ZERO?	P /?PRG16
+	FCLEAR	PRSO,LOCKED
+	FSET	PRSO,OPENBIT
+	FSET	PRSO,ONBIT
+	CALL	UNSNOOZE,P
+	CALL	THIS-IS-IT,P
+	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTR	" opens the door, then retreats into the room."
+?PRG16:	PRINTR	"There's no answer."
+?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(Why knock on "
+	CALL	PRINTA,PRSO
+	PRINTR	"?)"
+
+
+	.FUNCT	V-STAND,P
+	EQUAL?	WINNER,PLAYER \?CCL3
+	IN?	PLAYER,HERE /?CCL3
+	CALL	OWN-FEET
+	RSTACK	
+?CCL3:	CALL	ALREADY,WINNER,STR?113
+	RSTACK	
+
+
+	.FUNCT	V-LEAP
+	ZERO?	PRSO /?CCL3
+	EQUAL?	PRSO,INTDIR /?CCL3
+	CALL	YOU-CANT
+	RTRUE	
+?CCL3:	EQUAL?	HERE,DECK,LOVER-PATH \?CCL7
+	PRINTI	"This was not a very safe place to try jumping."
+	CALL	FINISH
+	RSTACK	
+?CCL7:	CALL	V-SKIP
+	RSTACK	
+
+
+	.FUNCT	V-SKIP
+	CALL	WHEE
+	RSTACK	
+
+
+	.FUNCT	WHEE,X
+	RANDOM	5 >X
+	EQUAL?	1,X \?CCL3
+	PRINTR	"Very good. Now you can go to the second grade."
+?CCL3:	EQUAL?	2,X \?CCL7
+	PRINTR	"I hope you enjoyed that more than I did."
+?CCL7:	EQUAL?	3,X \?CCL11
+	PRINTI	"Are you enjoying "
+	PRINTD	PLAYER
+	PRINTR	"?"
+?CCL11:	EQUAL?	4,X \?PRG18
+	PRINTR	"Wheeeeeeeeee!!!!!"
+?PRG18:	PRINTR	"Do you expect someone to applaud?"
+
+
+	.FUNCT	V-LEAVE,GT
+	EQUAL?	WINNER,FOLLOWER \?CND1
+	SET	'FOLLOWER,0
+?CND1:	EQUAL?	PRSO,ROOMS,HERE,GLOBAL-HERE \?CCL5
+	CALL	DO-WALK,P?OUT
+	PUTP	WINNER,P?LDESC,9
+	EQUAL?	WINNER,FRIEND \TRUE
+	EQUAL?	VARIATION,FRIEND-C /TRUE
+	GET	GOAL-TABLES,FRIEND-C >GT
+	LESS?	BED-TIME,PRESENT-TIME \?CCL12
+	EQUAL?	HERE,TAMARA-ROOM /TRUE
+	PUT	GT,GOAL-FUNCTION,X-RETIRES
+	CALL	ESTABLISH-GOAL,FRIEND,TAMARA-ROOM
+	RTRUE	
+?CCL12:	PUT	GT,GOAL-FUNCTION,NULL-F
+	IN?	LORD,HERE /TRUE
+	LOC	LORD
+	CALL	ESTABLISH-GOAL,FRIEND,STACK
+	RTRUE	
+?CCL5:	LOC	PRSO
+	EQUAL?	STACK,PLAYER \?CCL18
+	CALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL18:	LOC	WINNER
+	EQUAL?	STACK,PRSO /?CCL20
+	CALL	TELL-NOT-IN,PRSO
+	RETURN	2
+?CCL20:	CALL	DO-WALK,P?OUT
+	RTRUE	
+
+
+	.FUNCT	PRE-LIE
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-LIE
+	CALL	V-SIT,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	PRE-LISTEN
+	FSET?	PRSO,PERSONBIT \?CCL3
+	GETP	PRSO,P?LDESC
+	EQUAL?	STACK,22 \?CCL3
+	CALL	PERFORM,V?LISTEN,PIANO
+	RTRUE	
+?CCL3:	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-LISTEN
+	FSET?	PRSO,PERSONBIT \?CCL3
+	FSET?	PRSO,MUNGBIT /?CCL3
+	CALL	WAITING-FOR-YOU-TO-SPEAK
+	RTRUE	
+?CCL3:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" makes no sound."
+
+
+	.FUNCT	V-LOCK
+	FSET?	PRSO,DOORBIT \?CCL3
+	EQUAL?	PRSO,HERE \?CCL6
+	CALL	OKAY,PRSO,STR?67
+	RSTACK	
+?CCL6:	CALL	TELL-FIND-NONE,STR?114,PRSO
+	RSTACK	
+?CCL3:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-LOOK
+	CALL	DESCRIBE-ROOM,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-BEHIND
+	FSET?	PRSO,DOORBIT \?PRG6
+	FSET?	PRSO,OPENBIT /?PRG6
+	CALL	TOO-BAD-BUT,PRSO,STR?61
+	RSTACK	
+?PRG6:	PRINTI	"There's nothing behind"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-DOWN
+	EQUAL?	PRSO,ROOMS \?CCL3
+	PRINTI	"You see nothing suspicious "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTR	"."
+?CCL3:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-LOOK-INSIDE
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-INSIDE,DIR=P?IN,RM
+	EQUAL?	PRSO,ROOMS \?CND1
+	EQUAL?	DIR,P?OUT \?CCL5
+	CALL	GLOBAL-IN?,WINDOW,HERE
+	ZERO?	STACK /?CND1
+	CALL	PERFORM,PRSA,WINDOW,PRSI
+	RTRUE	
+?CCL5:	SET	'RM,P-IT-OBJECT
+	FSET?	RM,CONTBIT /?CCL9
+	CALL	FIND-FLAG-LG,HERE,CONTBIT >RM
+	ZERO?	RM \?CCL9
+	SET	'RM,WINDOW
+	CALL	GLOBAL-IN?,RM,HERE
+	ZERO?	STACK \?CCL9
+	CALL	FIND-FLAG-LG,HERE,DOORBIT >RM
+	ZERO?	RM /?CND1
+?CCL9:	CALL	TELL-I-ASSUME,RM
+	CALL	PERFORM,PRSA,RM,PRSI
+	RTRUE	
+?CND1:	EQUAL?	PRSO,GLOBAL-HERE \?CCL16
+	CALL	PERFORM,V?LOOK
+	RTRUE	
+?CCL16:	IN?	PRSO,ROOMS \?CCL18
+	CALL	NOUN-USED?,W?DOOR
+	ZERO?	STACK \?CCL18
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \?CTR17
+	CALL	SEE-INTO?,PRSO,FALSE-VALUE
+	ZERO?	STACK /?CCL18
+?CTR17:	CALL	ROOM-PEEK,PRSO
+	RSTACK	
+?CCL18:	CALL	V-LOOK-THROUGH,TRUE-VALUE
+	ZERO?	STACK \TRUE
+	FSET?	PRSO,CONTBIT /?CTR26
+	FSET?	PRSO,SURFACEBIT \?CCL27
+?CTR26:	CALL	SEE-INSIDE?,PRSO,TRUE-VALUE
+	ZERO?	STACK \?CND30
+	CALL	FIRST-YOU,STR?66,PRSO
+?CND30:	FIRST?	PRSO \?CCL34
+	PRINTI	"You can see"
+	CALL	PRINT-CONTENTS,PRSO
+	FSET?	PRSO,SURFACEBIT \?PRG42
+	PRINTI	" on"
+	JUMP	?PRG44
+?PRG42:	PRINTI	" inside"
+?PRG44:	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?CCL34:	EQUAL?	PRSO,SIDEBOARD,CHAIR-DINING /?CTR46
+	EQUAL?	PRSO,TABLE-DINING,PIANO,WYVERN /?CTR46
+	EQUAL?	PRSO,COAT-RACK,WRITING-DESK,VICTORIA-CHAIR \?CCL47
+?CTR46:	CALL	TELL-LIKE-BROCHURE
+	RSTACK	
+?CCL47:	FSET?	PRSO,SURFACEBIT \?CCL52
+	PRINTI	"There's nothing on"
+	CALL	HIM-HER-IT,PRSO
+	IN?	PLAYER,PRSO \?PRG59
+	PRINTI	" except you"
+?PRG59:	PRINTR	"."
+?CCL52:	CALL	TOO-BAD-BUT,PRSO,STR?100
+	RSTACK	
+?CCL27:	EQUAL?	DIR,P?IN \?CCL62
+	CALL	YOU-CANT,STR?115
+	RSTACK	
+?CCL62:	CALL	YOU-CANT,STR?116
+	RSTACK	
+
+
+	.FUNCT	FIRST-YOU,STR,OBJ=0,OBJ2=0
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR
+	ZERO?	OBJ /?PRG13
+	CALL	PRINTT,OBJ
+	EQUAL?	STR,STR?66 \?CND7
+	FSET	OBJ,OPENBIT
+?CND7:	ZERO?	OBJ2 /?PRG13
+	PRINTI	" from"
+	CALL	PRINTT,OBJ2
+?PRG13:	PRINTR	" first.)"
+
+
+	.FUNCT	V-LOOK-THROUGH,INSIDE=0,RM
+	FSET?	PRSO,DOORBIT \?CCL3
+	FSET?	PRSO,OPENBIT /?CTR5
+	FSET?	PRSO,TRANSBIT \?CCL6
+?CTR5:	CALL	DOOR-ROOM,HERE,PRSO >RM
+	ZERO?	RM /?CCL11
+	CALL	ROOM-PEEK,RM,TRUE-VALUE
+	RSTACK	
+?CCL11:	CALL	NO-BEYOND
+	RSTACK	
+?CCL6:	CALL	ZMEMQ,PRSO,CHAR-ROOM-TABLE
+	ZERO?	STACK /?CCL13
+	CALL	PERFORM,PRSA,KEYHOLE
+	RTRUE	
+?CCL13:	CALL	TOO-BAD-BUT,PRSO,STR?61
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,WINDOW \?CCL15
+	CALL	NO-BEYOND
+	RSTACK	
+?CCL15:	FSET?	PRSO,PERSONBIT \?CCL18
+	PRINTR	"You forgot to bring your X-ray glasses."
+?CCL18:	ZERO?	INSIDE \FALSE
+	FSET?	PRSO,TRANSBIT \?CCL24
+	PRINTR	"Everything looks bigger."
+?CCL24:	CALL	YOU-CANT,STR?117
+	RSTACK	
+
+
+	.FUNCT	NO-BEYOND
+	PRINTI	"You can't tell what's beyond"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	ROOM-PEEK,RM,SAFE=0,X=0,OHERE,OLIT,TXT
+	EQUAL?	RM,HERE \?CCL3
+	CALL	V-LOOK
+	RTRUE	
+?CCL3:	ZERO?	SAFE \?CCL5
+	CALL	SEE-INTO?,RM
+	ZERO?	STACK /FALSE
+?CCL5:	SET	'OHERE,HERE
+	SET	'OLIT,LIT
+	SET	'HERE,RM
+	CALL	MAKE-ALL-PEOPLE,-12
+	CALL	LIT? >LIT
+	PRINTI	"You peer "
+	FSET?	RM,SURFACEBIT \?PRG15
+	PRINTI	"at"
+	JUMP	?PRG17
+?PRG15:	PRINTI	"into"
+?PRG17:	CALL	HIM-HER-IT,RM
+	PRINTC	58
+	CRLF	
+	CALL	DESCRIBE-OBJECTS
+	ZERO?	STACK /?CCL21
+	SET	'X,TRUE-VALUE
+	JUMP	?CND19
+?CCL21:	GETP	RM,P?LDESC >TXT
+	ZERO?	TXT /?CND19
+	SET	'X,TRUE-VALUE
+	PRINT	TXT
+	CRLF	
+?CND19:	ZERO?	X \?CND25
+	PRINTI	"You can't see anything suspicious."
+	CRLF	
+?CND25:	SET	'HERE,OHERE
+	SET	'LIT,OLIT
+	RTRUE	
+
+
+	.FUNCT	SEE-INTO?,THERE,TELL?=1,IGNORE-DOOR=0,P,L,TBL,O
+	CALL	CORRIDOR-LOOK,THERE
+	ZERO?	STACK \TRUE
+	SET	'P,0
+?PRG3:	NEXTP	HERE,P >P
+	ZERO?	P /?CCL6
+	LESS?	P,LOW-DIRECTION \?CND5
+?CCL6:	ZERO?	TELL? /FALSE
+	CALL	TELL-CANT-FIND
+	RFALSE	
+?CND5:	GETPT	HERE,P >TBL
+	PTSIZE	TBL >L
+	EQUAL?	L,UEXIT \?CCL13
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE \?PRG3
+	RTRUE	
+?CCL13:	EQUAL?	L,DEXIT \?CCL17
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE \?PRG3
+	GETB	TBL,DEXITOBJ
+	FSET?	STACK,OPENBIT /TRUE
+	GETB	TBL,DEXITOBJ
+	CALL	WALK-THRU-DOOR?,TBL,STACK,FALSE-VALUE
+	ZERO?	STACK \TRUE
+	ZERO?	IGNORE-DOOR \TRUE
+	ZERO?	TELL? /FALSE
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(The door to that room is closed.)"
+	CRLF	
+	RFALSE	
+?CCL17:	EQUAL?	L,CEXIT \?PRG3
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE \?PRG3
+	GETB	TBL,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK \TRUE
+	ZERO?	TELL? /FALSE
+	CALL	TELL-CANT-FIND
+	RFALSE	
+
+
+	.FUNCT	TELL-CANT-FIND
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(That place isn't close enough.)"
+
+
+	.FUNCT	V-LOOK-ON
+	FSET?	PRSO,SURFACEBIT \?PRG4
+	CALL	V-LOOK-INSIDE
+	RSTACK	
+?PRG4:	PRINTI	"There's no good surface on"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-OUTSIDE
+	CALL	V-LOOK-INSIDE,P?OUT
+	RSTACK	
+
+
+	.FUNCT	PRE-LOOK-UNDER
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-UNDER
+	EQUAL?	PRSO,HEAD,HANDS,EYE \?CCL3
+	CALL	WONT-HELP
+	RSTACK	
+?CCL3:	CALL	HELD?,PRSO
+	ZERO?	STACK /?CCL5
+	PRINTI	"You're "
+	FSET?	PRSO,WORNBIT \?PRG13
+	PRINTI	"wear"
+	JUMP	?PRG15
+?PRG13:	PRINTI	"hold"
+?PRG15:	PRINTI	"ing"
+	CALL	PRINTT,PRSO
+	PRINTR	"!"
+?CCL5:	FSET?	PRSO,PERSONBIT \?CCL18
+	PRINTI	"Nope. Nothing hiding under"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?CCL18:	LOC	PRSO
+	EQUAL?	STACK,VIVIEN-BOX,WENDISH-KIT \?CCL22
+	PRINTR	"There's more stuff there."
+?CCL22:	LOC	PRSO
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS \?PRG30
+	PRINTR	"There's nothing there but dust."
+?PRG30:	PRINTR	"That's not a bit useful."
+
+
+	.FUNCT	V-LOOK-UP,HR
+	ZERO?	PRSI /?CCL3
+	PRINTI	"There's no information in"
+	CALL	PRINTT,PRSI
+	PRINTI	" about"
+	CALL	PRINTT,PRSO
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSO,ROOMS \?CCL7
+	CALL	OUTSIDE?,HERE
+	ZERO?	STACK /?CCL10
+	CALL	PERFORM,V?EXAMINE,MOON
+	RTRUE	
+?CCL10:	CALL	CREEPY?,HERE
+	ZERO?	STACK /?PRG21
+	PRINTI	"Shadows play on the stone ceiling"
+	EQUAL?	HERE,SITTING-PASSAGE \?PRG19
+	PRINTI	" and"
+	CALL	PRINTT,SECRET-SITTING-DOOR
+?PRG19:	PRINTR	"."
+?PRG21:	PRINTI	"The ceiling is decorated with swirly lines and patterns."
+	EQUAL?	HERE,TAMARA-ROOM \?CND23
+	GETP	LUMBER-ROOM,P?CORRIDOR
+	ZERO?	STACK /?CND23
+	PRINTR	" There's a hole directly over the bed."
+?CND23:	CRLF	
+	RTRUE	
+?CCL7:	CALL	YOU-CANT,STR?118
+	RSTACK	
+
+
+	.FUNCT	PRE-MEET
+	IN?	PRSO,HERE \?CCL3
+	CALL	PERFORM,V?HELLO,PRSO
+	RTRUE	
+?CCL3:	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-MEET
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-MOVE
+	CALL	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	PRINTR	"Juggling isn't one of your talents."
+
+
+	.FUNCT	V-MOVE
+	FSET?	PRSO,TAKEBIT \?CCL3
+	PRINTI	"Moving"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	" reveals nothing."
+?CCL3:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-MOVE-DIR
+	EQUAL?	PRSI,INTDIR /FALSE
+	CALL	DONT-UNDERSTAND
+	RTRUE	
+
+
+	.FUNCT	V-MOVE-DIR
+	PRINTI	"You can't move"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	" in any particular "
+	PRINTD	INTDIR
+	PRINTR	"."
+
+
+	.FUNCT	V-NOD
+	EQUAL?	PRSO,ROOMS /?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	ZERO?	AWAITING-REPLY /?CCL5
+	CALL	PERFORM,V?YES
+	RTRUE	
+?CCL5:	CALL	PERFORM,V?HELLO,ROOMS
+	RTRUE	
+
+
+	.FUNCT	V-OPEN,F,STR
+	FSET?	PRSO,CONTBIT /?CCL3
+	FSET?	PRSO,DOORBIT /?CCL3
+	EQUAL?	PRSO,WINDOW /?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	FSET?	PRSO,DOORBIT /?CTR7
+	EQUAL?	PRSO,WINDOW /?CTR7
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?CCL8
+?CTR7:	FSET?	PRSO,LOCKED \?CND12
+	CALL	UNLOCK-DOOR?,PRSO
+	ZERO?	STACK /?CCL16
+	FCLEAR	PRSO,LOCKED
+	CALL	FIRST-YOU,STR?119,PRSO
+?CND12:	FSET?	PRSO,OPENBIT \?CCL19
+	CALL	ALREADY,PRSO,STR?66
+	RSTACK	
+?CCL16:	CALL	TOO-BAD-BUT,PRSO,STR?67
+	RTRUE	
+?CCL19:	FSET	PRSO,OPENBIT
+	FSET?	PRSO,DOORBIT /?CTR21
+	EQUAL?	PRSO,WINDOW /?CTR21
+	FIRST?	PRSO \?CTR21
+	FSET?	PRSO,TRANSBIT \?PRG27
+?CTR21:	CALL	OKAY,PRSO,STR?66
+	RSTACK	
+?PRG27:	PRINTI	"You open"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	" and see"
+	CALL	PRINT-CONTENTS,PRSO
+	PRINTR	"."
+?CCL8:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-OPEN-WITH
+	CALL	NOT-HOLDING?,PRSI
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-OPEN-WITH
+	CALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-PLAY
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"[Speaking of playing, you'd enjoy Infocom's other fictions, too!]"
+
+
+	.FUNCT	V-POUR
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-PRAY
+	PRINTR	"""From ghoulies and ghosties and long-leggety beasties
+And things that go bump in the night, Good Lord, deliver us!"""
+
+
+	.FUNCT	V-PUSH
+	CALL	HACK-HACK,STR?120
+	RSTACK	
+
+
+	.FUNCT	WEAR-CHECK,X
+	EQUAL?	NOW-WEARING,PRSO \FALSE
+	CALL	NOUN-USED?,W?CLOTHES
+	ZERO?	STACK /?CCL6
+	CALL	FIND-OUTFIT >X
+	ZERO?	X /?CCL6
+	CALL	TELL-I-ASSUME,X
+	SET	'PRSO,X
+	RFALSE	
+?CCL6:	CALL	YOU-CANT,FALSE-VALUE,FALSE-VALUE,STR?121
+	RTRUE	
+
+
+	.FUNCT	PRE-PUT
+	CALL	WEAR-CHECK
+	ZERO?	STACK \TRUE
+	FCLEAR	PRSO,WORNBIT
+	EQUAL?	PRSO,OTHER-OUTFIT,HANDS,HEAD \?CCL5
+	CALL	WONT-HELP
+	RTRUE	
+?CCL5:	IN?	PRSO,GLOBAL-OBJECTS \?CCL7
+	CALL	NOT-HERE,PRSO
+	RTRUE	
+?CCL7:	EQUAL?	PRSI,GLOBAL-HERE,FLOOR /FALSE
+	IN?	PRSI,GLOBAL-OBJECTS \FALSE
+	CALL	NOT-HERE,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-PUT
+	FSET?	PRSI,PERSONBIT \?CCL3
+	SET	'WINNER,PRSI
+	CALL	PERFORM,V?WEAR,PRSO
+	RTRUE	
+?CCL3:	FSET?	PRSI,SURFACEBIT /?CND1
+	EQUAL?	PRSI,BOOKCASE /?CND1
+	FSET?	PRSI,VEHBIT /?CND1
+	PRINTI	"There's no good surface on"
+	CALL	HIM-HER-IT,PRSI
+	PRINTR	"."
+?CND1:	CALL	PUT-ON-OR-IN
+	RSTACK	
+
+
+	.FUNCT	TELL-FIND-NONE,STR,OBJ=0
+	PRINTI	"You search for "
+	PRINT	STR
+	ZERO?	OBJ /?PRG7
+	CALL	PRINTT,OBJ
+?PRG7:	PRINTR	" but find none."
+
+
+	.FUNCT	PRE-PUT-IN
+	GET	P-OFW,1
+	EQUAL?	STACK,W?FRONT \?CCL3
+	CALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSI,PSEUDO-OBJECT /?CTR4
+	EQUAL?	PRSI,FIREPLACE,EARRING,CHAIR \?CCL5
+?CTR4:	CALL	PRE-PUT
+	RSTACK	
+?CCL5:	EQUAL?	PRSI,MOONMIST,INKWELL \?CCL9
+	CALL	YOU-SHOULDNT,STR?122
+	RETURN	2
+?CCL9:	EQUAL?	PRSI,PEEPHOLE-2,PEEPHOLE,OCEAN /?CTR12
+	EQUAL?	PRSI,HOLE-IN-WALL,HANDS,EYE \?CCL13
+?CTR12:	CALL	WONT-HELP
+	RETURN	2
+?CCL13:	FSET?	PRSI,READBIT \?CCL19
+	CALL	WONT-HELP
+	RETURN	2
+?CCL19:	FSET?	PRSI,CONTBIT /?CND1
+	CALL	TELL-FIND-NONE,STR?101,PRSI
+	RETURN	2
+?CND1:	FSET?	PRSI,OPENBIT /?CND25
+	CALL	FIRST-YOU,STR?66,PRSI
+?CND25:	CALL	PRE-PUT
+	RSTACK	
+
+
+	.FUNCT	V-PUT-IN
+	FSET?	PRSI,OPENBIT /?CND1
+	FSET?	PRSI,VEHBIT /?CND1
+	FSET?	PRSI,DOORBIT /?CTR6
+	FSET?	PRSI,CONTBIT \?PRG10
+?CTR6:	CALL	TOO-BAD-BUT,PRSI,STR?61
+	RTRUE	
+?PRG10:	PRINTI	"You can't open"
+	CALL	HIM-HER-IT,PRSI
+	PRINTR	"."
+?CND1:	CALL	PUT-ON-OR-IN
+	RSTACK	
+
+
+	.FUNCT	PUT-ON-OR-IN,?TMP1,?TMP2
+	ZERO?	PRSI \?CCL3
+	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	EQUAL?	PRSI,PRSO \?CCL5
+	CALL	HAR-HAR
+	RSTACK	
+?CCL5:	IN?	PRSO,PRSI \?CCL7
+	CALL	TOO-BAD-BUT,PRSO
+	PRINTI	" is already "
+	FSET?	PRSI,SURFACEBIT \?CCL12
+	PUSH	STR?64
+	JUMP	?CND10
+?CCL12:	PUSH	STR?124
+?CND10:	PRINT	STACK
+	CALL	HIM-HER-IT,PRSI
+	PRINTR	"!"
+?CCL7:	CALL	WEIGHT,PRSI >?TMP2
+	GETP	PRSO,P?SIZE
+	ADD	?TMP2,STACK >?TMP1
+	GETP	PRSI,P?CAPACITY
+	GRTR?	?TMP1,STACK \?CCL14
+	PRINT	NOT-ENOUGH-ROOM
+	RTRUE	
+?CCL14:	CALL	HELD?,PRSO
+	ZERO?	STACK \?CCL18
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+?CCL18:	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	FSET?	PRSI,PERSONBIT \?PRG25
+	FSET?	PRSO,WEARBIT \?PRG25
+	FSET	PRSO,WORNBIT
+?PRG25:	PRINTR	"Okay."
+
+
+	.FUNCT	WEIGHT,OBJ,CONT,WT=0
+	FIRST?	OBJ >CONT /?PRG3
+	RETURN	WT
+?PRG3:	GETP	CONT,P?SIZE
+	ADD	WT,STACK >WT
+	NEXT?	CONT >CONT /?PRG3
+	RETURN	WT
+
+
+	.FUNCT	V-PUT-UNDER
+	PRINT	NOT-ENOUGH-ROOM
+	RTRUE	
+
+
+	.FUNCT	PRE-SREAD
+	CALL	PERFORM,V?READ,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SREAD
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-READ,VAL
+	IN?	PRSO,GLOBAL-OBJECTS \FALSE
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT /?PRG4
+	CALL	YOU-CANT
+	RSTACK	
+?PRG4:	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-REMOVE
+	FSET?	PRSO,WORNBIT \?CCL3
+	CALL	PERFORM,V?TAKE-OFF,PRSO
+	RTRUE	
+?CCL3:	CALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-RING
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-RUB
+	FSET?	PRSO,PERSONBIT \?CCL3
+	FSET?	PRSO,MUNGBIT /?CCL3
+	EQUAL?	PRSO,PLAYER /?CCL3
+	CALL	FACE-RED
+	RSTACK	
+?CCL3:	CALL	HACK-HACK,STR?125
+	RSTACK	
+
+
+	.FUNCT	V-SAY,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL3
+	CALL	PERFORM,V?TELL,QCONTEXT
+	RTRUE	
+?CCL3:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /?CCL5
+	CALL	TELL-I-ASSUME,P,STR?126
+	CALL	PERFORM,V?TELL,P
+	RTRUE	
+?CCL5:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	PRE-SEARCH
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-SEARCH,OBJ
+	IN?	PRSO,ROOMS \?CCL3
+	CALL	PERFORM,PRSA,GLOBAL-HERE
+	RTRUE	
+?CCL3:	FSET?	PRSO,PERSONBIT \?CCL5
+	FIRST?	PRSO >OBJ \?CCL5
+	FSET	OBJ,TAKEBIT
+	FCLEAR	OBJ,NDESCBIT
+	FCLEAR	OBJ,WORNBIT
+	FCLEAR	OBJ,SECRETBIT
+	CALL	THIS-IS-IT,OBJ
+	MOVE	OBJ,PLAYER
+	PRINTI	"You find "
+	CALL	PRINTA,OBJ
+	PRINTI	" and take it. "
+	PRINTC	89
+	PRINT	OU-STOP-SEARCHING
+	PRINTR	"."
+?CCL5:	CALL	FIND-FLAG,PRSO,SECRETBIT >OBJ
+	ZERO?	OBJ /?CCL11
+	CALL	DISCOVER,OBJ,PRSO
+	RSTACK	
+?CCL11:	FSET?	PRSO,DOORBIT \?CCL14
+	CALL	NOTHING-SPECIAL
+	RSTACK	
+?CCL14:	FSET?	PRSO,CONTBIT /?CTR15
+	FSET?	PRSO,SURFACEBIT \?CCL16
+?CTR15:	CALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?CCL16:	CALL	NOTHING-SPECIAL
+	RSTACK	
+
+
+	.FUNCT	DISCOVER,OBJ,WHERE=0
+	EQUAL?	OBJ,YOUR-SWITCH /?CND1
+	FCLEAR	OBJ,NDESCBIT
+?CND1:	FCLEAR	OBJ,SECRETBIT
+	FCLEAR	OBJ,WORNBIT
+	ZERO?	WHERE \?CND3
+	LOC	OBJ >WHERE
+?CND3:	EQUAL?	OBJ,MOONMIST,YOUR-SWITCH /?CND5
+	FSET	OBJ,TAKEBIT
+?CND5:	EQUAL?	WHERE,COFFIN,INKWELL,JEWELRY-CASE \?CCL9
+	PRINTI	"Inside the "
+	PRINTD	WHERE
+	JUMP	?CND7
+?CCL9:	EQUAL?	WHERE,PAINT \?CCL14
+	PRINTI	"Under the "
+	PRINTD	WHERE
+	JUMP	?CND7
+?CCL14:	EQUAL?	HERE,GARDEN \?CCL18
+	PRINTI	"Buried in the dirt"
+	JUMP	?CND7
+?CCL18:	EQUAL?	HERE,CRYPT \?CCL23
+	PRINTI	"Hanging on the neck of the "
+	PRINTD	WHERE
+	JUMP	?CND7
+?CCL23:	EQUAL?	HERE,YOUR-ROOM \?CCL27
+	PRINTI	"Behind the "
+	PRINTD	YOUR-MIRROR
+	JUMP	?CND7
+?CCL27:	EQUAL?	HERE,GREAT-HALL \?CCL31
+	PRINTI	"Inside the helmet of the "
+	PRINTD	ARMOR
+	JUMP	?CND7
+?CCL31:	EQUAL?	HERE,CHAPEL \?CCL35
+	PRINTI	"Stuck on the apple of the "
+	PRINTD	STAINED-WINDOW
+	JUMP	?CND7
+?CCL35:	EQUAL?	HERE,GAME-ROOM \?CCL39
+	PRINTI	"Hidden behind the "
+	PRINTD	GLASS-EYE
+	PRINTI	" of the "
+	PRINTD	RHINO-HEAD
+	JUMP	?CND7
+?CCL39:	EQUAL?	HERE,WENDISH-ROOM \?CCL43
+	PRINTI	"Underneath some items in the "
+	PRINTD	WENDISH-KIT
+	JUMP	?CND7
+?CCL43:	EQUAL?	HERE,TAMARA-ROOM \?CCL47
+	PRINTI	"Neatly hidden under the bed"
+	JUMP	?CND7
+?CCL47:	EQUAL?	HERE,JACK-ROOM \?CCL51
+	PRINTI	"Inside a drawer of the tallboy"
+	JUMP	?CND7
+?CCL51:	EQUAL?	HERE,STUDY,LUMBER-ROOM \?CCL55
+	PRINTI	"Among some papers"
+	JUMP	?CND7
+?CCL55:	EQUAL?	HERE,VIVIEN-ROOM \?CCL59
+	PRINTI	"Inside"
+	CALL	PRINTT,VIVIEN-BOX
+	JUMP	?CND7
+?CCL59:	FSET?	WHERE,SURFACEBIT /?PRG68
+	FSET?	WHERE,PERSONBIT \?PRG70
+?PRG68:	PRINTI	"On"
+	JUMP	?PRG72
+?PRG70:	PRINTI	"In"
+?PRG72:	CALL	PRINTT,WHERE
+?CND7:	EQUAL?	OBJ,COSTUME \?PRG79
+	PRINTI	" are a shimmering white gown and blonde wig"
+	JUMP	?CND74
+?PRG79:	PRINTI	" is "
+	CALL	PRINTA,OBJ
+?CND74:	CALL	THIS-IS-IT,OBJ
+	FSET	OBJ,SEENBIT
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \?CND81
+	PRINTI	", so y"
+	PRINT	OU-STOP-SEARCHING
+?CND81:	EQUAL?	HERE,TAMARA-ROOM \?PRG96
+	MOVE	OBJ,PLAYER
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \?PRG92
+	PRINTI	" and "
+	JUMP	?PRG94
+?PRG92:	PRINTI	", so you "
+?PRG94:	PRINTI	"take it"
+?PRG96:	PRINTI	".
+"
+	EQUAL?	OBJ,COSTUME \?CCL100
+	GET	FOUND-COSTUME,PLAYER-C
+	ZERO?	STACK \?CCL100
+	CALL	CONGRATS,COSTUME
+	JUMP	?CND98
+?CCL100:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,PLAYER >WHERE
+	ZERO?	WHERE /?CND98
+	CALL	EVIDENCE?,OBJ,WHERE
+	ZERO?	STACK \?CND98
+	CALL	GOOD-SHOW,WHERE,OBJ
+?CND98:	EQUAL?	OBJ,TREASURE \TRUE
+	CALL	CONGRATS,ARTIFACT
+	RTRUE	
+
+
+	.FUNCT	CONGRATS,FOUND=0
+	PRINTI	"
+(Congratulations, "
+	CALL	TITLE-NAME
+	PRINTI	"! You've "
+	EQUAL?	FOUND,COSTUME \?PRG8
+	PRINT	IDENTIFIED-THE-GHOST
+	JUMP	?PRG17
+?PRG8:	PRINTI	"found"
+	ZERO?	FOUND \?PRG15
+	PRINTI	" evidence of the crime"
+	JUMP	?PRG17
+?PRG15:	CALL	PRINTT,FOUND
+?PRG17:	PRINTI	"!)"
+	CRLF	
+	EQUAL?	FOUND,ARTIFACT \?CCL21
+	SET	'TREASURE-FOUND,TREASURE
+	GET	FOUND-COSTUME,PLAYER-C
+	ZERO?	STACK /TRUE
+	ZERO?	CONFESSED /TRUE
+	CALL	WRAP-UP
+	CALL	FINISH
+	RTRUE	
+?CCL21:	EQUAL?	FOUND,COSTUME \TRUE
+	PUT	FOUND-COSTUME,PLAYER-C,TRUE-VALUE
+	ZERO?	TREASURE-FOUND /TRUE
+	ZERO?	CONFESSED /TRUE
+	CALL	WRAP-UP
+	CALL	FINISH
+	RTRUE	
+
+
+	.FUNCT	PRE-SSEARCH-FOR
+	CALL	PERFORM,V?SEARCH-FOR,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSEARCH-FOR
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-SEARCH-FOR,OBJ
+	CALL	ROOM-CHECK
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	V-SEARCH-FOR
+	IN?	PRSO,ROOMS \?CCL3
+	CALL	PERFORM,PRSA,GLOBAL-HERE,PRSI
+	RTRUE	
+?CCL3:	FSET?	PRSO,PERSONBIT \?CCL5
+	IN?	PRSI,PRSO \?PRG11
+	PRINTI	"Indeed,"
+	CALL	HE-SHE-IT,PRSO,0,STR?2
+	CALL	HIM-HER-IT,PRSI
+	PRINTR	"."
+?PRG11:	CALL	START-SENTENCE,PRSO
+	PRINTI	" doesn't have"
+	IN?	PRSI,GLOBAL-OBJECTS \?CCL15
+	CALL	PRINTT,PRSI
+	PRINTR	"."
+?CCL15:	ZERO?	PRSI \?PRG22
+	PRINTR	" that."
+?PRG22:	CALL	PRINTT,PRSI
+	PRINTI	" hidden on"
+	CALL	HIM-HER-IT,PRSO,FALSE-VALUE,TRUE-VALUE
+	PRINTR	" person."
+?CCL5:	FSET?	PRSO,CONTBIT \?CCL25
+	FSET?	PRSO,OPENBIT /?CCL25
+	PRINTI	"You'll have to open"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	" first."
+?CCL25:	IN?	PRSI,PRSO \?CCL31
+	FSET?	PRSI,SECRETBIT \?PRG35
+	CALL	DISCOVER,PRSI
+	RSTACK	
+?PRG35:	PRINTI	"How observant you are! There"
+	CALL	HE-SHE-IT,PRSI,0,STR?1
+	PRINTR	"!"
+?CCL31:	ZERO?	PRSI \?PRG39
+	CALL	YOU-CANT
+	RSTACK	
+?PRG39:	PRINTI	"You don't find"
+	FSET?	PRSI,SECRETBIT \?PRG46
+	PRINTI	" it"
+	JUMP	?PRG48
+?PRG46:	CALL	HIM-HER-IT,PRSI
+?PRG48:	PRINTR	" there."
+
+
+	.FUNCT	V-SHAKE,X
+	FSET?	PRSO,TAKEBIT /?CCL3
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(You can't shake it if you can't take it!)"
+?CCL3:	FSET?	PRSO,OPENBIT /?CCL7
+	FIRST?	PRSO \?CCL7
+	PRINTI	"It sounds as if there is something inside"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?CCL7:	FSET?	PRSO,OPENBIT \?PRG24
+	FIRST?	PRSO >X \?PRG24
+	PRINTI	"Right "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	" spill"
+	NEXT?	X /?CND20
+	PRINTC	115
+?CND20:	CALL	ROB,PRSO,HERE,TRUE-VALUE
+	CRLF	
+	RTRUE	
+?PRG24:	PRINTI	"You hear nothing inside"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-SHOOT
+	ZERO?	PRSI /?PRD5
+	LOC	PRSI
+	EQUAL?	STACK,WINNER /?CCL3
+?PRD5:	CALL	FIND-FLAG,WINNER,WEAPONBIT
+	ZERO?	STACK \?CCL3
+	PRINTR	"You're not holding anything to shoot with."
+?CCL3:	CALL	IKILL,STR?128
+	RSTACK	
+
+
+	.FUNCT	PRE-SSHOOT
+	CALL	PERFORM,V?SHOOT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOOT
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SHOW
+	EQUAL?	PRSO,PLAYER \?CCL3
+	SET	'WINNER,PLAYER
+	CALL	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL6
+	CALL	PERFORM,V?EXAMINE,PRSI
+	RTRUE	
+?CCL6:	CALL	PERFORM,V?FIND,PRSI
+	RTRUE	
+?CCL3:	FSET?	PRSO,PERSONBIT \?PRG11
+	FSET?	PRSO,MUNGBIT \?CCL8
+?PRG11:	PRINTI	"Don't wait for"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	" to applaud."
+?CCL8:	CALL	WHO-CARES
+	RSTACK	
+
+
+	.FUNCT	PRE-SSHOW,P
+	ZERO?	PRSI /?CCL3
+	SET	'P-MERGED,TRUE-VALUE
+	IN?	PRSI,ROOMS \?CND4
+	CALL	PERFORM,V?TAKE-TO,PRSO,PRSI
+	RTRUE	
+?CND4:	CALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+?CCL3:	CALL	HELD?,PRSO
+	ZERO?	STACK \?CCL7
+	LOC	PRSO
+	FSET?	STACK,PERSONBIT \?CCL10
+	CALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL10:	CALL	TELL-I-ASSUME,PRSO,STR?129
+	CALL	PERFORM,V?ASK-CONTEXT-ABOUT,PRSO
+	RTRUE	
+?CCL7:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL12
+	CALL	PERFORM,V?SHOW,QCONTEXT,PRSO
+	RTRUE	
+?CCL12:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /?CCL14
+	CALL	TELL-I-ASSUME,P,STR?130
+	CALL	PERFORM,V?SHOW,P,PRSO
+	RTRUE	
+?CCL14:	CALL	TELL-I-ASSUME,PLAYER,STR?130
+	CALL	PERFORM,V?SHOW,PLAYER,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOW
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SIGN
+	PRINTR	"You would use your usual hand."
+
+
+	.FUNCT	PRE-SIT
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-SIT,LIE?=0
+	EQUAL?	WINNER,PLAYER \?CCL3
+	FSET?	PRSO,VEHBIT /?PRG9
+	EQUAL?	PRSO,FLOOR,HERE,GLOBAL-HERE \?CCL3
+?PRG9:	PRINTI	"You're now "
+	ZERO?	LIE? \?PRG16
+	PRINTI	"sitt"
+	JUMP	?CND11
+?PRG16:	PRINTI	"ly"
+?CND11:	FSET?	PRSO,VEHBIT \?PRG20
+	MOVE	PLAYER,PRSO
+?PRG20:	PRINTI	"ing "
+	FSET?	PRSO,SURFACEBIT \?PRG27
+	PRINTI	"on"
+	JUMP	?PRG29
+?PRG27:	PRINTI	"in"
+?PRG29:	CALL	PRINTT,PRSO
+	PRINTR	"."
+?CCL3:	CALL	WONT-HELP
+	RSTACK	
+
+
+	.FUNCT	WONT-HELP
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(That won't help solve this case!)"
+
+
+	.FUNCT	V-SIT-AT
+	CALL	V-SIT
+	RSTACK	
+
+
+	.FUNCT	V-SLAP
+	EQUAL?	PRSI,ROOMS \?CND1
+	SET	'PRSI,FALSE-VALUE
+?CND1:	EQUAL?	PRSO,PLAYER \?CCL5
+	PRINTR	"That sounds like a sign you could wear on your back."
+?CCL5:	FSET?	PRSO,PERSONBIT /?CCL9
+	CALL	IF-SPY
+	RSTACK	
+?CCL9:	FSET?	PRSO,MUNGBIT \?CCL11
+	PRINTI	"If"
+	CALL	HE-SHE-IT,PRSO
+	PRINTI	" could,"
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" would slap you right back."
+?CCL11:	CALL	FACE-RED
+	RSTACK	
+
+
+	.FUNCT	IF-SPY
+	ZERO?	PRSI \?PRG13
+	PRINTI	"You give"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	" a swift "
+	EQUAL?	P-PRSA-WORD,W?KICK \?PRG11
+	PRINTI	"kick"
+	JUMP	?PRG15
+?PRG11:	PRINTI	"hand chop"
+	JUMP	?PRG15
+?PRG13:	PRINTI	"You swing"
+	CALL	HIM-HER-IT,PRSI
+	PRINTI	" at"
+	CALL	HIM-HER-IT,PRSO
+?PRG15:	PRINTI	", but"
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" seems indestructible."
+
+
+	.FUNCT	FACE-RED,P=0,X
+	ZERO?	P \?CND1
+	SET	'P,PRSO
+?CND1:	CALL	UNSNOOZE,P
+	GETP	P,P?LINE >X
+	ADD	1,X
+	PUTP	P,P?LINE,STACK
+	EQUAL?	FOLLOWER,P \?CND3
+	SET	'FOLLOWER,FALSE-VALUE
+?CND3:	GETP	P,P?LDESC
+	EQUAL?	STACK,4 /?PRG7
+	PUTP	P,P?LDESC,20
+?PRG7:	CALL	HE-SHE-IT,P,TRUE-VALUE
+	ZERO?	X \?PRG14
+	PRINTR	" looks at you as if you were insane."
+?PRG14:	PRINTR	" gives you a good slap. It hurts, too!"
+
+
+	.FUNCT	V-SMELL
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?131
+	PRINTI	" just like "
+	CALL	PRINTA,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	V-SMILE
+	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-SORRY
+	EQUAL?	PRSO,CONFESSED \?CCL3
+	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RSTACK	
+?CCL3:	CALL	GRAB-ATTENTION,PRSO
+	ZERO?	STACK \?CCL6
+	RETURN	2
+?CCL6:	GETP	PRSO,P?LINE
+	LESS?	0,STACK /?CCL10
+	PRINTI	"""I'm not angry with"
+	CALL	HIM-HER-IT,WINNER
+	PRINTR	" now."""
+?CCL10:	PUTP	PRSO,P?LINE,0
+	PUTP	PRSO,P?LDESC,3
+	PRINTR	"""Apology accepted."""
+
+
+	.FUNCT	V-SOUND
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-STOP
+	EQUAL?	PRSO,FALSE-VALUE,GLOBAL-HERE \?CCL3
+	PRINTR	"Hey, no problem."
+?CCL3:	FSET?	PRSO,PERSONBIT \?CCL7
+	CALL	PERFORM,V?$CALL,PRSO
+	RTRUE	
+?CCL7:	CALL	PERFORM,V?LAMP-OFF,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SWIM
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't swim "
+	ZERO?	PRSO /?PRG8
+	PRINTI	"in"
+	CALL	HIM-HER-IT,PRSO
+	JUMP	?PRG10
+?PRG8:	CALL	GROUND-DESC
+	PRINT	STACK
+?PRG10:	PRINTR	".)"
+
+
+	.FUNCT	PRE-TAKE,L
+	LOC	PRSO >L
+	EQUAL?	PRSO,MOONMIST \?CND1
+	EQUAL?	VARIATION,DOCTOR-C \?CND1
+	IN?	MOONMIST,INKWELL \?CND1
+	ZERO?	TREASURE-FOUND /?CND1
+	LOC	INKWELL >L
+?CND1:	EQUAL?	PRSO,KEYHOLE,WALL,FLOOR /?CTR8
+	EQUAL?	PRSO,TOWER,OTHER-OUTFIT,NOW-WEARING /?CTR8
+	EQUAL?	PRSO,OCEAN,MOON,CASTLE \?CCL9
+?CTR8:	CALL	HAR-HAR
+	RSTACK	
+?CCL9:	EQUAL?	PRSO,YOU,TREASURE /FALSE
+	EQUAL?	PRSO,PASSAGE,HANDS,ARTIFACT /FALSE
+	EQUAL?	PRSO,NIGHTLAMP,LIGHT-GLOBAL \?CCL18
+	CALL	CREEPY?,HERE
+	ZERO?	STACK /?PRG22
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?PRG22:	PRINTR	"The cord isn't long enough."
+?CCL18:	EQUAL?	PRSO,MIRROR-GLOBAL \?CCL25
+	CALL	YOU-CANT
+	RSTACK	
+?CCL25:	EQUAL?	PRSO,UNDRESSED \?CCL27
+	CALL	NOUN-USED?,W?DRESSE
+	ZERO?	STACK /?CCL30
+	ZERO?	PRSI /?CCL33
+	CALL	PERFORM,V?WEAR,PRSI
+	RTRUE	
+?CCL33:	CALL	PERFORM,V?DRESS,WINNER
+	RTRUE	
+?CCL30:	CALL	PERFORM,V?UNDRESS,WINNER
+	RTRUE	
+?CCL27:	IN?	PRSO,GLOBAL-OBJECTS \?CCL35
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?CCL35:	ZERO?	L /?CCL37
+	FSET?	L,CONTBIT \?CCL37
+	FSET?	L,OPENBIT /?CCL37
+	CALL	TOO-BAD-BUT,L,STR?61
+	RTRUE	
+?CCL37:	ZERO?	PRSI /?CCL42
+	EQUAL?	PRSI,WALL,L \?CCL45
+	SET	'PRSI,FALSE-VALUE
+	RFALSE	
+?CCL45:	FSET?	PRSI,SURFACEBIT /?CCL47
+	FSET?	PRSI,OPENBIT /?CCL47
+	FSET?	PRSI,PERSONBIT /?CCL47
+	CALL	TOO-BAD-BUT,PRSI,STR?61
+	RTRUE	
+?CCL47:	EQUAL?	PRSI,L /FALSE
+	FSET?	PRSI,PERSONBIT /?PRG58
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?1
+	PRINTI	"n't in"
+	CALL	PRINTT,PRSI
+	PRINTR	"!"
+?PRG58:	CALL	HE-SHE-IT,PRSI,TRUE-VALUE,STR?5
+	PRINTI	"n't have"
+	CALL	PRINTT,PRSO
+	PRINTR	"!"
+?CCL42:	CALL	PRE-TAKE-WITH
+	RSTACK	
+
+
+	.FUNCT	PRE-TAKE-WITH,X
+	EQUAL?	PRSO,YOU /FALSE
+	FSET?	PRSO,PERSONBIT \?CCL5
+	EQUAL?	PRSO,GHOST-NEW /?CCL5
+	EQUAL?	P-PRSA-WORD,W?SEIZE,W?GRAB \?CCL5
+	CALL	PERFORM,V?ARREST,PRSO
+	RTRUE	
+?CCL5:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS \?CCL10
+	CALL	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	FSET?	PRSO,PERSONBIT /FALSE
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?CCL10:	IN?	PRSO,WINNER \?CCL17
+	CALL	ALREADY,PLAYER
+	PRINTI	"holding"
+	CALL	PRINTT,PRSO
+	PRINTR	"!)"
+?CCL17:	LOC	PRSO
+	FSET?	STACK,CONTBIT \?CCL21
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?CCL21
+	CALL	YOU-CANT,STR?132
+	RSTACK	
+?CCL21:	IN?	WINNER,PRSO \FALSE
+	CALL	NOUN-USED?,W?DOOR,W?KEYHOLE
+	ZERO?	STACK \FALSE
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" in"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	", nitwit!)"
+
+
+	.FUNCT	V-TAKE
+	CALL	ITAKE
+	EQUAL?	STACK,TRUE-VALUE \FALSE
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" now holding"
+	CALL	PRINTT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-TAKE-OFF
+	EQUAL?	PRSO,NOW-WEARING \?CCL3
+	SET	'PRSO,FALSE-VALUE
+	CALL	V-WEAR
+	RTRUE	
+?CCL3:	FSET?	PRSO,WORNBIT \?PRG10
+	FCLEAR	PRSO,WORNBIT
+	PRINTI	"Okay,"
+	LOC	PRSO
+	CALL	HE-SHE-IT,STACK,0,STR?1
+	PRINTI	" no longer wearing"
+	MOVE	PRSO,WINNER
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?PRG10:	LOC	PRSO
+	CALL	HE-SHE-IT,STACK,TRUE-VALUE,STR?1
+	PRINTI	"n't wearing"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	V-TAKE-TO
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-DISEMBARK
+	CALL	ROOM-CHECK
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSO,GLOBAL-HERE,HERE,ROOMS \?CCL5
+	EQUAL?	WINNER,PLAYER \?CCL8
+	IN?	PLAYER,HERE /?CCL8
+	CALL	OWN-FEET
+	RSTACK	
+?CCL8:	CALL	DO-WALK,P?OUT
+	RTRUE	
+?CCL5:	EQUAL?	PRSO,NOW-WEARING \?CCL12
+	CALL	V-TAKE-OFF
+	RTRUE	
+?CCL12:	LOC	PRSO
+	EQUAL?	STACK,WINNER \?CCL14
+	PRINTI	"You don't need to take"
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	" out to use"
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"."
+?CCL14:	LOC	WINNER
+	EQUAL?	STACK,PRSO /?CCL18
+	IN?	PLAYER,PRSO /?CCL18
+	PRINTI	"You're not "
+	FSET?	PRSO,SURFACEBIT \?PRG28
+	PRINTI	"on"
+	JUMP	?PRG30
+?PRG28:	PRINTI	"in"
+?PRG30:	CALL	HIM-HER-IT,PRSO
+	PRINTI	"!
+"
+	RETURN	2
+?CCL18:	CALL	OWN-FEET
+	RSTACK	
+
+
+	.FUNCT	OWN-FEET
+	MOVE	WINNER,HERE
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?1
+	PRINTI	" on"
+	CALL	HIM-HER-IT,WINNER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" own feet again."
+	CRLF	
+	EQUAL?	DRIVEWAY,HERE \TRUE
+	CALL	ENTER-ROOM
+	RTRUE	
+
+
+	.FUNCT	V-HOLD-UP
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL	PERFORM,V?STAND
+	RTRUE	
+?CCL3:	CALL	WONT-HELP
+	RSTACK	
+
+
+	.FUNCT	V-TELL,P
+	EQUAL?	PRSO,PLAYER \?CCL3
+	EQUAL?	WINNER,PLAYER /?CCL6
+	SET	'P,WINNER
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK,P
+	RTRUE	
+?CCL6:	ZERO?	QCONTEXT /?CCL8
+	SET	'QCONTEXT,FALSE-VALUE
+	ZERO?	P-CONT /?PRG12
+	SET	'WINNER,PLAYER
+	RETURN	WINNER
+?PRG12:	PRINTR	"Okay, you're not talking to anyone else."
+?CCL8:	CALL	WONT-HELP-TO-TALK-TO,PLAYER
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	RETURN	2
+?CCL3:	FSET?	PRSO,PERSONBIT \?CCL17
+	FSET?	PRSO,MUNGBIT /?CCL17
+	CALL	UNSNOOZE,PRSO
+	SET	'QCONTEXT,PRSO
+	ZERO?	P-CONT /?PRG23
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	SET	'WINNER,PRSO
+	RETURN	WINNER
+?PRG23:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?1
+	PRINTC	32
+	GET	LDESC-STRINGS,12
+	PRINT	STACK
+	PRINTR	"."
+?CCL17:	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	PRE-STELL-ABOUT
+	CALL	PERFORM,V?TELL-ABOUT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-STELL-ABOUT
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-TELL-ABOUT,P
+	EQUAL?	PRSO,PLAYER-NAME,PLAYER \?CCL3
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL6
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSI
+	RTRUE	
+?CCL6:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /?CCL8
+	CALL	TELL-I-ASSUME,P,STR?87
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSI
+	RTRUE	
+?CCL8:	CALL	ARENT-TALKING
+	RTRUE	
+?CCL3:	FSET?	PRSI,SEENBIT /?CCL11
+	FSET?	PRSI,TOUCHBIT /?CCL11
+	CALL	NOT-FOUND,PRSI
+	RTRUE	
+?CCL11:	EQUAL?	PRSI,BRICKS,COFFIN,CRYPT /?PRG19
+	EQUAL?	PRSI,DUNGEON,IRON-MAIDEN,TOMB /?PRG19
+	EQUAL?	PRSI,WELL \?CCL15
+?PRG19:	PRINT	ANCIENT-SECRETS
+	CRLF	
+	RTRUE	
+?CCL15:	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-TELL-ABOUT,P
+	PRINTR	"""I'm afraid you'll have to show me instead of telling me."""
+
+
+	.FUNCT	PRE-TALK-ABOUT,P
+	EQUAL?	WINNER,PLAYER /?CCL3
+	SET	'P,WINNER
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RTRUE	
+?CCL3:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?CCL5
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
+	RTRUE	
+?CCL5:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /FALSE
+	CALL	TELL-I-ASSUME,P,STR?133
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TALK-ABOUT
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-THANKS
+	ZERO?	PRSO /?CCL3
+	FSET?	PRSO,PERSONBIT \?CCL6
+	FSET?	PRSO,MUNGBIT /?CCL6
+	PRINT	QUITE-WELCOME
+	RTRUE	
+?CCL6:	CALL	YOU-CANT
+	RSTACK	
+?CCL3:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK \?PRG16
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER
+	ZERO?	STACK /?PRG18
+?PRG16:	PRINT	QUITE-WELCOME
+	RTRUE	
+?PRG18:	PRINTR	"You're more than welcome."
+
+
+	.FUNCT	V-THROW
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	PRINTR	"Thrown."
+
+
+	.FUNCT	V-THROW-AT
+	CALL	IDROP
+	ZERO?	STACK /TRUE
+	CALL	HE-SHE-IT,PRSI,TRUE-VALUE,STR?5
+	PRINTI	"n't duck"
+	PRINTI	" as"
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" flies by."
+
+
+	.FUNCT	PRE-THROW-THROUGH
+	FCLEAR	PRSO,WORNBIT
+	RFALSE	
+
+
+	.FUNCT	V-THROW-THROUGH
+	FSET?	PRSO,PERSONBIT /?CCL3
+	PRINTR	"Let's not resort to vandalism, please."
+?CCL3:	CALL	V-THROW
+	RSTACK	
+
+
+	.FUNCT	V-TIME
+	PRINTI	"The time is now "
+	CALL	TIME-PRINT,PRESENT-TIME
+	PRINTR	"."
+
+
+	.FUNCT	TIME-PRINT,NUM,HR
+	DIV	NUM,60 >HR
+	GRTR?	HR,12 \?CND1
+	SUB	HR,12 >HR
+?CND1:	PRINTN	HR
+	PRINTC	58
+	MOD	NUM,60 >HR
+	LESS?	HR,10 \?PRG9
+	PRINTC	48
+?PRG9:	PRINTN	HR
+	RTRUE	
+
+
+	.FUNCT	V-TURN
+	FSET?	PRSO,DOORBIT \?PRG6
+	FSET?	PRSO,OPENBIT \?PRG6
+	CALL	PERFORM,V?CLOSE,PRSO
+	RTRUE	
+?PRG6:	PRINTR	"What do you want that to do?"
+
+
+	.FUNCT	V-LAMP-OFF
+	FSET?	PRSO,LIGHTBIT /?CCL3
+	CALL	YOU-CANT,STR?44
+	RSTACK	
+?CCL3:	FSET?	PRSO,ONBIT /?CCL5
+	CALL	ALREADY,PRSO,STR?65
+	RSTACK	
+?CCL5:	CALL	OKAY,PRSO,STR?65
+	RSTACK	
+
+
+	.FUNCT	V-LAMP-ON
+	FSET?	PRSO,ONBIT \?CCL3
+	CALL	ALREADY,PRSO,STR?64
+	RSTACK	
+?CCL3:	FSET?	PRSO,LIGHTBIT \?CCL5
+	CALL	OKAY,PRSO,STR?64
+	RSTACK	
+?CCL5:	FSET?	PRSO,PERSONBIT \?CCL7
+	CALL	HAR-HAR
+	RSTACK	
+?CCL7:	CALL	YOU-CANT,STR?45
+	RSTACK	
+
+
+	.FUNCT	V-UNLOCK
+	FSET?	PRSO,DOORBIT /?CTR2
+	FSET?	PRSO,CONTBIT \?CCL3
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?CCL3
+?CTR2:	FSET?	PRSO,LOCKED /?CCL10
+	CALL	ALREADY,PRSO,STR?68
+	RSTACK	
+?CCL10:	CALL	UNLOCK-DOOR?,PRSO
+	ZERO?	STACK \?CCL12
+	CALL	YOU-CANT
+	RSTACK	
+?CCL12:	FCLEAR	PRSO,LOCKED
+	CALL	OKAY,PRSO,STR?68
+	RSTACK	
+?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?1
+	PRINTR	"n't locked!)"
+
+
+	.FUNCT	MORE-SPECIFIC
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"[Please be more specific.]"
+
+
+	.FUNCT	V-USE
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-WAIT,NUM=-1,WHO=0,INT=0,WHO-WAIT=0,VAL,HR,RESULT=1
+	EQUAL?	-1,NUM \?CND1
+	SET	'NUM,10
+?CND1:	ZERO?	INT \?CND3
+	FSET?	PRSO,PERSONBIT /?CND3
+	EQUAL?	PRSO,GHOST-NEW,TURN,INTNUM /?CND3
+	PRINT	I-ASSUME
+	PRINTI	" Wait "
+	PRINTN	NUM
+	PRINTI	" minute"
+	EQUAL?	NUM,1 /?PRG14
+	PRINTC	115
+?PRG14:	PRINTI	".]"
+	CRLF	
+?CND3:	SET	'HR,HERE
+	ZERO?	INT \?CND16
+	PRINTI	"Time passes..."
+	CRLF	
+?CND16:	DEC	'NUM
+?PRG20:	DLESS?	'NUM,0 \?CCL24
+	SET	'KEEP-WAITING,FALSE-VALUE
+	RETURN	RESULT
+?CCL24:	CALL	CLOCKER >VAL
+	ZERO?	VAL /?CCL26
+	EQUAL?	VAL,M-FATAL /?CTR28
+	EQUAL?	HR,HERE /?CCL29
+?CTR28:	SET	'CLOCK-WAIT,TRUE-VALUE
+	SET	'RESULT,M-FATAL
+	RETURN	RESULT
+?CCL29:	ZERO?	WHO /?CCL33
+	IN?	WHO,HERE \?CCL33
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	CALL	NOT-IT,WHO
+	CALL	START-SENTENCE,WHO
+	PRINTI	", for wh"
+	FSET?	WHO,PERSONBIT \?PRG43
+	PRINTI	"om"
+	JUMP	?PRG45
+?PRG43:	PRINTI	"ich"
+?PRG45:	PRINTI	" you're waiting, has arrived."
+	CRLF	
+	RETURN	RESULT
+?CCL33:	INC	'WHO-WAIT
+	GET	0,0
+	BTST	STACK,16 \?CND47
+	PRINTC	40
+	CALL	TIME-PRINT,PRESENT-TIME >VAL
+	PRINTI	") "
+?CND47:	ZERO?	KEEP-WAITING /?PRG55
+	USL	
+	JUMP	?PRG20
+?PRG55:	PRINTI	"Do you want to keep "
+	CALL	VERB-PRINT,TRUE-VALUE >VAL
+	CALL	YES?
+	ZERO?	STACK /?CCL59
+	USL	
+	JUMP	?PRG20
+?CCL59:	SET	'CLOCK-WAIT,TRUE-VALUE
+	SET	'RESULT,M-FATAL
+	RETURN	RESULT
+?CCL26:	ZERO?	WHO /?CCL61
+	IGRTR?	'WHO-WAIT,30 \?CCL61
+	CALL	START-SENTENCE,WHO >VAL
+	PRINTI	" still hasn't arrived. Do you want to keep waiting?"
+	CALL	YES?
+	ZERO?	STACK \?CND66
+	RETURN	RESULT
+?CND66:	SET	'WHO-WAIT,0
+	USL	
+	JUMP	?PRG20
+?CCL61:	USL	
+	JUMP	?PRG20
+
+
+	.FUNCT	V-WAIT-FOR,WHO
+	EQUAL?	-1,P-NUMBER /?CCL3
+	EQUAL?	PRSO,INTNUM,TURN,ROOMS \?CCL3
+	ZERO?	P-TIME /?CCL8
+	CALL	V-WAIT-UNTIL
+	RSTACK	
+?CCL8:	CALL	V-WAIT,P-NUMBER
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,GLOBAL-HERE,TURN,ROOMS \?CCL10
+	CALL	V-WAIT
+	RSTACK	
+?CCL10:	EQUAL?	PRSO,PLAYER \?CCL12
+	CALL	ALREADY,PLAYER,STR?104
+	RSTACK	
+?CCL12:	FSET?	PRSO,PERSONBIT /?CTR13
+	EQUAL?	PRSO,GHOST-NEW \?PRG20
+?CTR13:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE \?CCL19
+	CALL	ALREADY,PRSO,STR?104
+	RSTACK	
+?CCL19:	CALL	V-WAIT,10000,PRSO
+	RSTACK	
+?PRG20:	PRINTR	"Not a good idea. You might wait forever."
+
+
+	.FUNCT	V-WAIT-UNTIL,N,?TMP1
+	EQUAL?	-1,P-NUMBER /?CCL3
+	EQUAL?	PRSO,INTNUM,TURN,ROOMS \?CCL3
+	SET	'N,P-NUMBER
+	ZERO?	P-TIME /?CCL8
+	LESS?	N,420 \?CND6
+	ADD	N,720 >N
+	JUMP	?CND6
+?CCL8:	LESS?	N,8 \?CCL13
+	MUL	N,60
+	ADD	STACK,720 >N
+	JUMP	?CND11
+?CCL13:	LESS?	N,13 \?CCL15
+	MUL	N,60 >N
+	JUMP	?CND11
+?CCL15:	LESS?	N,24 \?CCL17
+	MUL	N,60
+	SUB	STACK,720 >N
+	JUMP	?CND11
+?CCL17:	GRTR?	N,99 \?CND11
+	MOD	N,100 >?TMP1
+	DIV	N,100
+	MUL	STACK,60
+	ADD	?TMP1,STACK >N
+?CND11:	LESS?	N,420 \?PRG21
+	ADD	N,720 >N
+?PRG21:	PRINT	I-ASSUME
+	PRINTC	32
+	CALL	TIME-PRINT,N
+	PRINTC	93
+	CRLF	
+?CND6:	GRTR?	N,PRESENT-TIME \?CCL27
+	SUB	N,PRESENT-TIME
+	CALL	V-WAIT,STACK
+	RSTACK	
+?CCL27:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"(It's already past that time!)"
+?CCL3:	CALL	YOU-CANT,STR?42
+	RSTACK	
+
+
+	.FUNCT	V-ALARM
+	EQUAL?	PRSO,ROOMS \?CND1
+	SET	'PRSO,WINNER
+?CND1:	CALL	TOO-BAD-BUT,PRSO,STR?135
+	RSTACK	
+
+
+	.FUNCT	DO-WALK,DIR,P
+	SET	'P-WALK-DIR,DIR
+	CALL	PERFORM,V?WALK,DIR
+	RSTACK	
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,RM
+	ZERO?	P-WALK-DIR \?CND1
+	EQUAL?	PRSO,P?IN \?CCL5
+	IN?	P-IT-OBJECT,ROOMS /?CTR4
+	FSET?	P-IT-OBJECT,VEHBIT /?CTR4
+	FSET?	P-IT-OBJECT,CONTBIT \?CCL5
+?CTR4:	CALL	TELL-I-ASSUME,P-IT-OBJECT
+	CALL	PERFORM,V?THROUGH,P-IT-OBJECT
+	RTRUE	
+?CCL5:	CALL	V-WALK-AROUND
+	RETURN	2
+?CND1:	LOC	WINNER
+	GETPT	STACK,PRSO >PT
+	ZERO?	PT /?CCL15
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?CCL18
+	GETB	PT,REXIT >RM
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?CCL18:	EQUAL?	PTS,NEXIT \?CCL22
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	PRINTC	41
+	CRLF	
+	RETURN	2
+?CCL22:	EQUAL?	PTS,FEXIT \?CCL28
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?PRG34
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?PRG34:	RETURN	2
+?CCL28:	EQUAL?	PTS,CEXIT \?CCL37
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?CCL40
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?CCL40:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?CCL44
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?CCL44:	CALL	YOU-CANT,STR?40
+	RETURN	2
+?CCL37:	EQUAL?	PTS,DEXIT \FALSE
+	CALL	WALK-THRU-DOOR?,PT
+	ZERO?	STACK /?PRG58
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?PRG58:	RETURN	2
+?CCL15:	EQUAL?	PRSO,P?IN,P?OUT \?CCL61
+	CALL	V-WALK-AROUND
+	RSTACK	
+?CCL61:	EQUAL?	PRSO,P?UP \?CCL63
+	CALL	PERFORM,V?CLIMB-UP,STAIRS
+	RTRUE	
+?CCL63:	EQUAL?	PRSO,P?DOWN \?CCL65
+	CALL	PERFORM,V?CLIMB-DOWN,STAIRS
+	RTRUE	
+?CCL65:	EQUAL?	HERE,DRIVEWAY \?CCL67
+	PRINT	CASTLE-IS-SOUTH
+	RETURN	2
+?CCL67:	CALL	YOU-CANT,STR?40
+	RETURN	2
+
+
+	.FUNCT	UNLOCK-DOOR?,DR
+	EQUAL?	HERE,DR /TRUE
+	GETP	HERE,P?STATION
+	EQUAL?	HERE,DRIVEWAY,STACK /FALSE
+	EQUAL?	DR,SECRET-SITTING-DOOR,FRONT-GATE /FALSE
+	RTRUE	
+
+
+	.FUNCT	WALK-THRU-DOOR?,PT,OBJ=0,TELL?=1,RM
+	ZERO?	OBJ \?CND1
+	GETB	PT,DEXITOBJ >OBJ
+?CND1:	FSET?	OBJ,OPENBIT /TRUE
+	FSET?	OBJ,SECRETBIT \?CCL7
+	FSET?	OBJ,TOUCHBIT /?CCL7
+	EQUAL?	FALSE-VALUE,TELL?,VERBOSITY /FALSE
+	FSET?	HERE,SECRETBIT /?CCL14
+	CALL	YOU-CANT,STR?40
+	RFALSE	
+?CCL14:	ZERO?	LIT \?CCL16
+	CALL	NOT-FOUND,OBJ
+	RFALSE	
+?CCL16:	EQUAL?	PRSA,V?WALK-TO /TRUE
+	CALL	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
+	RTRUE	
+?CCL7:	FSET?	OBJ,LOCKED /?CCL20
+	EQUAL?	PRSA,V?WALK-TO /TRUE
+	FCLEAR	OBJ,SECRETBIT
+	FSET	OBJ,SEENBIT
+	EQUAL?	FALSE-VALUE,TELL?,VERBOSITY /TRUE
+	CALL	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
+	RTRUE	
+?CCL20:	ZERO?	PT /?CCL26
+	GET	PT,DEXITSTR >RM
+	ZERO?	RM /?CCL26
+	ZERO?	TELL? /FALSE
+	PRINT	RM
+	CRLF	
+	RFALSE	
+?CCL26:	ZERO?	TELL? /FALSE
+	CALL	UNLOCK-DOOR?,OBJ
+	ZERO?	STACK /?CCL37
+	EQUAL?	PRSA,V?WALK-TO /TRUE
+	ZERO?	VERBOSITY /TRUE
+	CALL	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
+	RTRUE	
+?CCL37:	CALL	TOO-BAD-BUT,OBJ,STR?67
+	CALL	THIS-IS-IT,OBJ
+	RFALSE	
+
+
+	.FUNCT	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
+	FSET	OBJ,SEENBIT
+	EQUAL?	WINNER,PLAYER \TRUE
+	PRINTI	"(You "
+	FSET?	OBJ,LOCKED \?PRG9
+	FCLEAR	OBJ,LOCKED
+	PRINTI	"unlock and "
+?PRG9:	PRINTI	"open the "
+	EQUAL?	OBJ,FRONT-GATE \?PRG16
+	PRINTI	"gate"
+	JUMP	?CND11
+?PRG16:	PRINTI	"door"
+?CND11:	FSET?	OBJ,SECRETBIT \?PRG21
+	FSET	OBJ,OPENBIT
+	JUMP	?PRG23
+?PRG21:	PRINTI	" and close it again"
+?PRG23:	PRINTR	".)"
+
+
+	.FUNCT	V-WALK-AROUND
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	91
+	PRINT	WHICH-DIR
+	PRINTI	"]
+"
+	RETURN	2
+
+
+	.FUNCT	WHO-KNOWS?,OBJ
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"(Who knows where"
+	CALL	HE-SHE-IT,OBJ,0,STR?1
+	PRINTR	"?)"
+
+
+	.FUNCT	WALK-WITHIN-ROOM
+	CALL	NO-NEED,STR?137,HERE
+	RSTACK	
+
+
+	.FUNCT	V-WALK-TO,L,VAL,?TMP1
+	CALL	META-LOC,PRSO >L
+	FSET?	PRSO,PERSONBIT \?CND1
+	CALL	META-LOC,WINNER
+	EQUAL?	STACK,L \?CCL5
+	FSET?	PRSO,NDESCBIT /?CCL5
+	CALL	BITE-YOU
+	RTRUE	
+?CCL5:	CALL	FOLLOW-LOC? >L
+	ZERO?	L \?CND1
+	CALL	WHO-KNOWS?,PRSO
+	RETURN	2
+?CND1:	FSET?	PRSO,SECRETBIT \?CCL13
+	EQUAL?	L,PRSO /?CCL13
+	CALL	NO-FUN
+	RSTACK	
+?CCL13:	LOC	WINNER
+	EQUAL?	HERE,STACK \?CCL17
+	EQUAL?	L,HERE /?CTR16
+	EQUAL?	PRSO,PSEUDO-OBJECT,WALL /?CTR16
+	IN?	L,ROOMS /?CCL17
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CCL17
+?CTR16:	CALL	WALK-WITHIN-ROOM
+	RSTACK	
+?CCL17:	EQUAL?	L,LOCAL-GLOBALS \?CCL26
+	CALL	MORE-SPECIFIC
+	RSTACK	
+?CCL26:	CALL	TOUR?
+	ZERO?	STACK \TRUE
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-EXIT
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSO,INTDIR \?CCL34
+	CALL	V-WALK-AROUND
+	RSTACK	
+?CCL34:	IN?	PRSO,ROOMS /?CCL36
+	FSET?	PRSO,TOUCHBIT /?CCL36
+	CALL	WHO-KNOWS?,PRSO
+	RETURN	2
+?CCL36:	CALL	FAR-AWAY?,L
+	ZERO?	STACK /?CCL43
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTC	40
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't go there from here"
+	EQUAL?	L,GLOBAL-OBJECTS /?PRG50
+	PRINTI	", at least not directly"
+?PRG50:	PRINTR	".)"
+?CCL43:	EQUAL?	WINNER,PLAYER /?CCL53
+	CALL	GOTO,L
+	ZERO?	STACK /TRUE
+	EQUAL?	WINNER,FOLLOWER \?CND56
+	SET	'FOLLOWER,0
+?CND56:	GETP	WINNER,P?CHARACTER
+	GET	GOAL-TABLES,STACK >L
+	GET	L,GOAL-S
+	ZERO?	STACK /?CND58
+	GET	L,GOAL-F >?TMP1
+	GET	L,GOAL-ENABLE
+	CALL	ESTABLISH-GOAL,WINNER,?TMP1,STACK
+?CND58:	CALL	OKAY
+	RTRUE	
+?CCL53:	CALL	SEE-INTO?,PRSO,FALSE-VALUE
+	ZERO?	STACK /?CCL62
+	CALL	DIR-FROM,HERE,L >VAL
+	ZERO?	VAL /?CND63
+	GETP	HERE,P?ACTION
+	CALL	STACK,VAL
+	EQUAL?	M-FATAL,STACK \?CND63
+	RETURN	2
+?CND63:	CALL	GOTO,PRSO,FALSE-VALUE
+	RTRUE	
+?CCL62:	ZERO?	NOW-WEARING \?PRG72
+	CALL	YOUR-ROOM-F,P?OUT
+	RETURN	2
+?PRG72:	PRINTI	"You go quickly toward"
+	CALL	PRINTT,L
+	PRINTI	".
+"
+	CALL	ESTABLISH-GOAL,PLAYER,L
+	SET	'OHERE,HERE
+	FSET	PLAYER,INVISIBLE
+?PRG74:	CALL	FOLLOW-GOAL,PLAYER >VAL
+	ZERO?	VAL /?PRG74
+	FCLEAR	PLAYER,INVISIBLE
+	ZERO?	FOLLOWER /?CND78
+	CALL	FRIEND-FOLLOWS-YOU,HERE
+?CND78:	EQUAL?	OHERE,HERE /?CND80
+	CALL	ENTER-ROOM
+?CND80:	RETURN	VAL
+
+
+	.FUNCT	ENTER-ROOM,VAL
+	CALL	LIT? >LIT
+	FSET?	HERE,SECRETBIT \?CCL3
+	SET	'WASHED,FALSE-VALUE
+	JUMP	?CND1
+?CCL3:	EQUAL?	HERE,JACK-ROOM,TAMARA-ROOM,IRIS-ROOM /?PRG8
+	EQUAL?	HERE,WENDISH-ROOM,VIVIEN-ROOM,IAN-ROOM /?PRG8
+	EQUAL?	HERE,HYDE-ROOM \?CND1
+?PRG8:	PRINTI	"You enter the room cautiously after a preliminary peek."
+	CALL	ZMEMQ,HERE,CHAR-ROOM-TABLE
+	SUB	STACK,1
+	GET	CHARACTER-TABLE,STACK
+	LOC	STACK
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS /?CND10
+	SET	'DISCOVERED-HERE,HERE
+	CALL	QUEUE,I-DISCOVERED,6
+?CND10:	ZERO?	LIT /?CND13
+	CALL	FIND-FLAG-HERE,PERSONBIT,PLAYER
+	ZERO?	STACK \?CND13
+	PRINTI	" No one is there."
+?CND13:	CRLF	
+?CND1:	GETP	HERE,P?ACTION
+	CALL	STACK,M-ENTER
+	CALL	V-FIRST-LOOK >VAL
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+	RETURN	VAL
+
+
+	.FUNCT	V-RUN-OVER
+	PRINTR	"That doesn't make much sense."
+
+
+	.FUNCT	NO-CHANGING?,X
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >X
+	ZERO?	X /?CCL3
+	EQUAL?	X,GHOST-NEW \?PRG9
+	PRINT	NO-CHANGING
+	RTRUE	
+?PRG9:	CALL	HE-SHE-IT,X,TRUE-VALUE
+	PRINTR	" says, ""I wish you wouldn't change clothes while I'm here!"""
+?CCL3:	EQUAL?	HERE,YOUR-BATHROOM,YOUR-ROOM /FALSE
+	PRINT	NO-CHANGING
+	RTRUE	
+
+
+	.FUNCT	V-WEAR,X
+	ZERO?	PRSO /?CND1
+	FSET?	PRSO,WEARBIT /?CCL5
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't wear"
+	CALL	HIM-HER-IT,PRSO
+	EQUAL?	PRSO,NECKLACE-OF-D \?PRG12
+	PRINTI	", because"
+	PRINT	CLASP-MUNGED
+?PRG12:	PRINTR	"."
+?CCL5:	FSET?	PRSO,WORNBIT \?CND1
+	CALL	ALREADY,PRSO,STR?121
+	RTRUE	
+?CND1:	EQUAL?	PRSO,LENS-2,LENS-1 /?CND15
+	EQUAL?	PRSO,LENS,EARRING,NECKLACE /?CND15
+	CALL	NO-CHANGING?
+	ZERO?	STACK \TRUE
+	ZERO?	NOW-WEARING /?CND19
+	ZERO?	PRSO /?CND23
+	CALL	FIRST-YOU,STR?139,NOW-WEARING
+?CND23:	FCLEAR	NOW-WEARING,WORNBIT
+?CND19:	SET	'NOW-WEARING,PRSO
+?CND15:	ZERO?	PRSO /?PRG38
+	MOVE	PRSO,PLAYER
+	FSET	PRSO,WORNBIT
+	EQUAL?	PRSO,LENS-2,LENS-1 /?PRG34
+	EQUAL?	PRSO,LENS,EARRING,NECKLACE /?PRG34
+	FSET?	PRSO,MUNGBIT \?CCL30
+?PRG34:	PRINTR	"Okay."
+?CCL30:	FSET	PRSO,MUNGBIT
+	PRINTR	"Ahhh! Nothing like a new outfit to change your whole outlook!"
+?PRG38:	PRINTI	"Okay... "
+	ZERO?	GENDER-KNOWN \?PRG45
+	PRINTR	"You immediately wish for central heating!"
+?PRG45:	PRINTI	"My, what a fine figure of a "
+	FSET?	PLAYER,FEMALE \?PRG51
+	PRINTI	"wo"
+?PRG51:	PRINTR	"man!"
+
+
+	.FUNCT	V-YELL,N=0,RM,P
+	CALL	QCONTEXT-GOOD? >P
+	ZERO?	P \?PRG6
+	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
+	ZERO?	P /?CCL3
+?PRG6:	CALL	START-SENTENCE,P
+	PRINTR	" says, ""I'm right here. You needn't yell."""
+?CCL3:	GETP	HERE,P?CHARACTER
+	EQUAL?	3,STACK \?PRG32
+	FSET?	HERE,WEARBIT /?PRG16
+	FSET?	HERE,WEARBIT /?PRG32
+	FSET?	HERE,SECRETBIT /?PRG32
+?PRG16:	IGRTR?	'N,DEB-C /?PRG32
+	GET	CHARACTER-TABLE,N >P
+	EQUAL?	P,GHOST-NEW,CONFESSED,CAPTOR /?PRG16
+	CALL	META-LOC,P >RM
+	GETP	RM,P?CHARACTER
+	EQUAL?	3,STACK \?PRG16
+	FSET?	HERE,WEARBIT \?PRD27
+	FSET?	RM,WEARBIT /?CCL23
+?PRD27:	FSET?	HERE,WEARBIT /?PRG16
+	FSET?	RM,WEARBIT /?PRG16
+?CCL23:	CALL	GO-TO-SOUND,HERE,P
+	JUMP	?PRG16
+?PRG32:	PRINTR	"""Aaaarrrrgggghhhh!"""
+
+
+	.FUNCT	V-YES,NO?=0,PER
+	SET	'PER,WINNER
+	EQUAL?	PER,PLAYER \?CTR2
+	ZERO?	AWAITING-REPLY /?PRD7
+	GETB	QUESTIONERS,AWAITING-REPLY >PER
+	ZERO?	PER \?CTR2
+?PRD7:	CALL	QCONTEXT-GOOD? >PER
+	ZERO?	PER /?CCL3
+?CTR2:	GETP	PER,P?ACTION
+	CALL	D-APPLY,STR?10,STACK,M-WINNER
+	ZERO?	STACK \TRUE
+	PRINTR	"""I see..."""
+?CCL3:	EQUAL?	HERE,DRIVEWAY \?CCL15
+	PRINTR	"The echoes fade and silence is soon restored."
+?CCL15:	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-NO
+	CALL	V-YES,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	FINISH,REPEATING=0,VAL
+	CRLF	
+	CRLF	
+	ZERO?	REPEATING \?PRG3
+	CALL	V-SCORE
+	CRLF	
+?PRG3:	PRINTI	"Would you like to:
+   RESTORE your place from where you saved it,
+   RESTART the story from the beginning, or
+   QUIT for now?"
+	CRLF	
+?PRG5:	PRINTC	62
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,P-LEXSTART >VAL
+	ZERO?	VAL /?PRG19
+	CALL	WT?,VAL,64,1 >VAL
+	EQUAL?	VAL,ACT?RESTART \?CCL13
+	RESTART	
+	CALL	FINISH,TRUE-VALUE
+	JUMP	?PRG19
+?CCL13:	EQUAL?	VAL,ACT?RESTORE \?CCL15
+	CALL	V-RESTORE
+	ZERO?	STACK \TRUE
+	CALL	FINISH,TRUE-VALUE
+	JUMP	?PRG19
+?CCL15:	EQUAL?	VAL,ACT?QUIT \?PRG19
+	QUIT	
+?PRG19:	PRINTI	"[Type RESTORE, RESTART, or QUIT.] "
+	JUMP	?PRG5
+
+
+	.FUNCT	DIVESTMENT?,OBJ
+	EQUAL?	PRSO,OBJ \FALSE
+	EQUAL?	PRSA,V?THROW-THROUGH /TRUE
+	EQUAL?	PRSA,V?THROW-AT,V?REMOVE,V?PUT-UNDER /TRUE
+	EQUAL?	PRSA,V?PUT-IN,V?PUT,V?POUR /TRUE
+	EQUAL?	PRSA,V?GIVE,V?DROP,V?DISEMBARK /TRUE
+	RFALSE	
+
+
+	.FUNCT	REMOTE-VERB?
+	EQUAL?	PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /TRUE
+	EQUAL?	PRSA,V?TELL-ABOUT,V?TALK-ABOUT,V?TAKE-TO /TRUE
+	EQUAL?	PRSA,V?SSHOW,V?SHOW,V?SEARCH-FOR /TRUE
+	EQUAL?	PRSA,V?SEARCH,V?LOOK-UP,V?LEAVE /TRUE
+	EQUAL?	PRSA,V?FOLLOW,V?FIND,V?DRESS /TRUE
+	EQUAL?	PRSA,V?DISEMBARK,V?DESCRIBE,V?ASK-FOR /TRUE
+	EQUAL?	PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
index 39a8950..bee84c2 100644
--- a/verbs.zil
+++ b/verbs.zil
@@ -5,7 +5,7 @@ Copyright (C) 1986 Infocom, Inc.  All rights reserved."
 	<TELL "Here " .STR "s a transcript of interaction with" CR>>
 
 <ROUTINE V-SCRIPT ()
-	<PUT 0 8 <BOR <GET 0 8> 1>>
+	<LOWCORE FLAGS <BOR <LOWCORE FLAGS> 1>>
 	<TRANSCRIPT "begin">
 	<V-VERSION>
 	<RTRUE>>
@@ -13,7 +13,7 @@ Copyright (C) 1986 Infocom, Inc.  All rights reserved."
 <ROUTINE V-UNSCRIPT ()
 	<TRANSCRIPT "end">
 	<V-VERSION>
-	<PUT 0 8 <BAND <GET 0 8> -2>>
+	<LOWCORE FLAGS <BAND <LOWCORE FLAGS> -2>>
 	<RTRUE>>
 
 <ROUTINE V-$VERIFY ()
@@ -313,21 +313,13 @@ Card can tell you why.]" CR>>
 		       <DESCRIBE-OBJECTS>)>)>>
 
 <ROUTINE V-VERSION ("AUX" (CNT 17) V)
-	 <SET V <BAND <GET 0 1> *3777*>>
+	 <SET V <BAND <LOWCORE ZORKID> *3777*>>
 	 <TELL D ,MOONMIST "|
 Infocom interactive fiction - a mystery story|
-Copyright (c) 1986 by Infocom, Inc.  All rights reserved." CR>
-	 ;<COND (<NOT <==? <BAND <GETB 0 1> 8> 0>>
-		<TELL
-"Licensed to Tandy Corporation. Version 00.00." N .V CR>)>
-	 <TELL
+Copyright (c) 1986 by Infocom, Inc.  All rights reserved." CR
 D ,MOONMIST " is a trademark of Infocom, Inc.|
 Release number " N .V " / Serial number ">
-	 <REPEAT ()
-		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
-			<RETURN>)
-		       (T
-			<PRINTC <GETB 0 .CNT>>)>>
+	 <LOWCORE-TABLE SERIAL 6 PRINTC>
 	 <COND (<NOT <0? ,VARIATION>>
 		<TELL " / ">
 		<PRINTB <GET ,COLOR-WORDS ,VARIATION>>
@@ -2146,7 +2138,7 @@ HIM ,PRSO " nor any other preposition.]" CR>)>
 	 <COND (<DOBJ? INTDIR>
 		<SETG CLOCK-WAIT T>
 		<TELL "(If you want to see what's there, go there!)" CR>)
-	       (<DOBJ? CASTLE HANDS HEAD ;POCKET TOWER WALL LIGHT-GLOBAL>
+	       (<DOBJ? CASTLE HANDS HEAD OTHER-OUTFIT TOWER WALL LIGHT-GLOBAL>
 		<NOTHING-SPECIAL>)
 	       ;(<DOBJ? NOW-WEARING>
 		<TELL <GETP ,PRSO ,P?TEXT> CR>)
@@ -2561,7 +2553,7 @@ from your dealer or via mail with the form in your package.]" CR>>
 <ROUTINE V-LEAVE ("AUX" GT)
 	<COND (<==? ,WINNER ,FOLLOWER>
 	       <SETG FOLLOWER 0>)>
-	<COND (<EQUAL? ,PRSO <> ,ROOMS ,HERE>
+	<COND (<EQUAL? ,PRSO ;<> ,ROOMS ,HERE ,GLOBAL-HERE>
 	       <DO-WALK ,P?OUT>
 	       <PUTP ,WINNER ,P?LDESC 9 ;"waiting patiently">
 	       <COND (<AND <EQUAL? ,WINNER ,FRIEND>
@@ -2959,7 +2951,7 @@ And things that go bump in the night, Good Lord, deliver us!\"" CR>>
 	       ;(<NOT <FSET? ,PRSO ,TAKEBIT>>	;"SYNTAX says TAKE"
 		<YOU-CANT "pick up">
 		<RTRUE>)
-	       (<DOBJ? HEAD HANDS>
+	       (<DOBJ? HEAD HANDS OTHER-OUTFIT>
 		<WONT-HELP>
 		<RTRUE>)
 	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
@@ -3533,7 +3525,7 @@ THE ,PRSI " hidden on" HIS ,PRSO " person." CR>)>)>
 		     <T? ,TREASURE-FOUND>>
 		<SET L <LOC ,INKWELL>>)>
 	 <COND (<DOBJ? CASTLE MOON OCEAN
-		       NOW-WEARING ;POCKET TOWER FLOOR
+		       NOW-WEARING OTHER-OUTFIT TOWER FLOOR
 		       WALL KEYHOLE>
 		<HAR-HAR>)
 	       (<DOBJ? ARTIFACT HANDS PASSAGE TREASURE YOU>
@@ -3936,7 +3928,7 @@ CHE ,PRSO is !\  <GET ,LDESC-STRINGS 12> ;"listening to you" "." CR>)>)
 			       <RETURN>)
 			      (T
 			       <SET WHO-WAIT <+ .WHO-WAIT 1>>
-			       <COND (<NOT <==? <BAND <GETB 0 1> 16> 0>>
+			       <COND (<T? <BAND <LOWCORE ZVERSION> 16>>
 				      <TELL !\(>
 				      <SET VAL <TIME-PRINT ,PRESENT-TIME>>
 				      <TELL ") ">)>