commit 47fbe00ae6b65b82283e9712feed8b5e8e5f5f87
Author: historicalsource <historicalsoftware@textfiles.com>
Date:   Sat Apr 13 20:20:29 2019 -0400

    Revision 23 (Original Source)

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..7154115
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# cutthroats
diff --git a/boat.zap b/boat.zap
new file mode 100644
index 0000000..e39d9d8
--- /dev/null
+++ b/boat.zap
@@ -0,0 +1,916 @@
+
+
+	.FUNCT	FERRY-F
+	EQUAL?	PRSA,V?CLIMB-ON,V?THROUGH,V?BOARD \?ELS5
+	IN?	FERRY,FERRY-LANDING \?ELS10
+	EQUAL?	HERE,FERRY-LANDING \?ELS15
+	CALL	TELL-CANT-BOARD
+	RSTACK	
+?ELS15:	CALL	TELL-YOURE-NOT,STR?303
+	RSTACK	
+?ELS10:	PRINTR	"It's not at the landing. Be patient."
+?ELS5:	EQUAL?	PRSA,V?WALK-TO \?ELS23
+	EQUAL?	HERE,FERRY-LANDING /?ELS23
+	CALL	TELL-SHD-DIR
+	RSTACK	
+?ELS23:	EQUAL?	PRSA,V?LISTEN \FALSE
+	PRINTR	"You hear its engines."
+
+
+	.FUNCT	TELL-CANT-BOARD
+	CALL	TELL-DONT-HAVE,STR?304
+	RSTACK	
+
+
+	.FUNCT	GLOBAL-FERRY-F
+	EQUAL?	PRSA,V?FIND,V?TELL,V?ASK-ABOUT /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,GLOBAL-FERRY
+	RSTACK	
+
+
+	.FUNCT	MM-FORE-DECK-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	TELL-FORE-END,SALVAGER
+	RSTACK	
+
+
+	.FUNCT	TELL-FORE-END,OBJ
+	PRINTI	"You are at the fore end of the "
+	CALL	DPRINT,OBJ
+	PRINTR	". You can see the ocean over the rail that runs around the deck. A ladder leads below deck, and the wheelhouse is aft of you. A chair is bolted to the deck."
+
+
+	.FUNCT	DECK-CHAIR-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC \?ELS5
+	IN?	PETE,DECK-CHAIR \TRUE
+	CALL	TELL-IN-CHAIR,PETE
+	RTRUE	
+?ELS5:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?ELS15
+	PRINTI	"This weatherbeaten chair is used by a lookout while standing watch. It faces forward and is bolted to the deck. "
+	IN?	PETE,DECK-CHAIR \?CND18
+	CALL	TELL-IN-CHAIR,PETE
+?CND18:	CRLF	
+	RTRUE	
+?ELS15:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS22
+	PRINTR	"""It's the lookout's chair."""
+?ELS22:	EQUAL?	PRSA,V?PUT-ON,V?PUT \?ELS26
+	EQUAL?	PRSI,DECK-CHAIR \?ELS26
+	CALL	IDROP
+	ZERO?	STACK /TRUE
+	IN?	PLAYER,DECK-CHAIR \?CND32
+	LOC	DECK-CHAIR
+	MOVE	PRSO,STACK
+?CND32:	PRINTR	"It slides off the chair and onto the deck."
+?ELS26:	EQUAL?	PRSA,V?BOARD \FALSE
+	IN?	PETE,DECK-CHAIR \FALSE
+	CALL	TELL-ALREADY,STR?305
+	RSTACK	
+
+
+	.FUNCT	TELL-IN-CHAIR,OCC
+	CALL	START-SENTENCE,OCC
+	PRINTR	" is sitting in the chair."
+
+
+	.FUNCT	MM-PORT-DECK-F,RARG,DOCK?
+	EQUAL?	RARG,M-ENTER \?ELS5
+	MOVE	BUNK,MM-CREW-QTRS
+	MOVE	UNDER-BUNK,MM-CREW-QTRS
+	MOVE	STOVE,MM-GALLEY
+	MOVE	DECK-CHAIR,MM-FORE-DECK
+	MOVE	REDS-BUNK,MM-CAPT-CABIN
+	MOVE	LOUNGE-CHAIR,MM-LOUNGE
+	IN?	PETE,MM-GALLEY \?CND6
+	MOVE	FOOD,STOVE
+	FSET	FOOD,NDESCBIT
+?CND6:	ZERO?	WATER-DELIVERED /FALSE
+	EQUAL?	SHIP-CHOSEN,SALVAGER \FALSE
+	MOVE	DRINKING-WATER,MM-GALLEY
+	FSET	DRINKING-WATER,NDESCBIT
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	TELL-FOO-SIDE,SALVAGER,STR?184,STR?183
+	RTRUE	
+
+
+	.FUNCT	TELL-FOO-SIDE,OBJ,SIDE,HOUSE,DOCK?
+	PRINTI	"You are on the "
+	PRINT	SIDE
+	PRINTI	" side of the "
+	CALL	DPRINT,OBJ
+	PRINTI	", a sturdy vessel designed for "
+	EQUAL?	OBJ,TRAWLER \?ELS5
+	PRINTI	"trawling"
+	JUMP	?CND3
+?ELS5:	PRINTI	"deep-sea salvaging"
+?CND3:	PRINTI	". To "
+	PRINT	HOUSE
+	PRINTI	" is a small wheelhouse, while "
+	EQUAL?	OBJ,TRAWLER \?ELS16
+	SET	'DOCK?,TRAWLER-DOCKED
+	JUMP	?CND14
+?ELS16:	SET	'DOCK?,SALVAGER-DOCKED
+?CND14:	ZERO?	DOCK? /?ELS23
+	PRINTI	"to "
+	PRINT	SIDE
+	PRINTR	" is the gangway leading to the dock. The gentle rocking of the boat in port reminds you of time spent on the open sea."
+?ELS23:	PRINTI	"the ocean, with its blue-green waves crashing, lies off the "
+	PRINT	SIDE
+	PRINTR	" rail."
+
+
+	.FUNCT	TELL-AFT-DECK
+	PRINTI	"The smell of diesel fuel is strong but reassuring here on the aft deck. A ladder leads below deck, while forward you can see the entrance to the command center of the boat, the wheelhouse."
+	RTRUE	
+
+
+	.FUNCT	MM-AFT-DECK-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	CALL	TELL-AFT-DECK
+	PRINTR	" A huge air compressor is bolted to the deck by the aft rail."
+?ELS5:	EQUAL?	RARG,M-BEG \?ELS9
+	EQUAL?	PRSA,V?WALK \FALSE
+	IN?	AIR-HOSE,DEEP-SUIT \FALSE
+	IN?	DEEP-SUIT,PLAYER \FALSE
+	PRINTI	"You don't want to drag the "
+	CALL	DPRINT,AIR-HOSE
+	PRINTR	" around the boat."
+?ELS9:	EQUAL?	RARG,M-FLASH \FALSE
+	IN?	WEASEL,MM-AFT-DECK \FALSE
+	ZERO?	AT-SEA /FALSE
+	ZERO?	WEASEL-APPREHENDED \FALSE
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK \FALSE
+	CALL	QUEUE,I-PENDULUM,-1
+	PUT	STACK,0,1
+	CALL	TELL-WEASEL-TOSSES
+	RSTACK	
+
+
+	.FUNCT	TELL-WEASEL-TOSSES
+	FCLEAR	LINE-HACK,INVISIBLE
+	LOC	WEASEL
+	MOVE	LINE-HACK,STACK
+	PRINTI	"The Weasel tosses a line over the side and says, "
+	PRINT	LINE-STR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	LINE-HACK-F,HOLDER=0
+	LOC	LINE-HACK
+	IN?	WEASEL,STACK \?ELS3
+	SET	'HOLDER,WEASEL
+	JUMP	?CND1
+?ELS3:	LOC	LINE-HACK
+	IN?	JOHNNY,STACK \?CND1
+	SET	'HOLDER,JOHNNY
+?CND1:	EQUAL?	PRSA,V?EXAMINE \?ELS10
+	ZERO?	HOLDER /?ELS15
+	CALL	START-SENTENCE,HOLDER
+	PRINTI	" is holding one end of a weighted "
+	CALL	DPRINT,LINE-HACK
+	PRINTR	"."
+?ELS15:	PRINTI	"One end of "
+	CALL	APRINT,LINE-HACK
+	PRINTR	" is here. Leave it alone."
+?ELS10:	EQUAL?	PRSA,V?ASK-ABOUT,V?FIND /FALSE
+	ZERO?	HOLDER /?ELS31
+	CALL	START-SENTENCE,HOLDER
+	PRINTR	" pulls it away. ""Don't mess with that!"""
+?ELS31:	PRINTR	"Leave it alone."
+
+
+	.FUNCT	MM-COMPRESSOR-F,TICK
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS5
+	CALL	TELL-NO-NO
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?PUT \?ELS7
+	EQUAL?	PRSI,MM-COMPRESSOR \?ELS7
+	PRINTR	"There's no place to put it."
+?ELS7:	EQUAL?	PRSA,V?EXAMINE \?ELS13
+	PRINTI	"The large, gasoline-powered air compressor is "
+	FSET?	MM-COMPRESSOR,ONBIT \?ELS18
+	PRINTI	"on"
+	JUMP	?CND16
+?ELS18:	PRINTI	"off"
+?CND16:	PRINTI	". You can quickly see it "
+	CALL	INT,I-MM-COMPRESSOR
+	GET	STACK,C-TICK >TICK
+	ZERO?	TICK \?ELS29
+	PRINTI	"is out of fuel"
+	JUMP	?CND27
+?ELS29:	EQUAL?	TICK,80 \?ELS36
+	PRINTI	"has"
+	JUMP	?CND34
+?ELS36:	PRINTI	"started with"
+?CND34:	PRINTI	" fuel for an hour and a half's operation"
+?CND27:	PRINTI	". A retractable "
+	CALL	DPRINT,AIR-HOSE
+	PRINTR	" is built in."
+?ELS13:	EQUAL?	PRSA,V?LAMP-ON \?ELS48
+	FSET?	MM-COMPRESSOR,ONBIT \?ELS53
+	CALL	TELL-ALREADY,STR?56
+	RSTACK	
+?ELS53:	CALL	INT,I-MM-COMPRESSOR
+	PUT	STACK,0,1
+	FSET	MM-COMPRESSOR,ONBIT
+	PRINTR	"Okay. The compressor is on."
+?ELS48:	EQUAL?	PRSA,V?LAMP-OFF \?ELS59
+	FSET?	MM-COMPRESSOR,ONBIT \?ELS64
+	CALL	INT,I-MM-COMPRESSOR
+	PUT	STACK,0,0
+	FCLEAR	MM-COMPRESSOR,ONBIT
+	CALL	TELL-NOW,MM-COMPRESSOR,STR?264
+	RSTACK	
+?ELS64:	CALL	TELL-ALREADY,STR?264
+	RSTACK	
+?ELS59:	EQUAL?	PRSA,V?LISTEN \FALSE
+	FSET?	MM-COMPRESSOR,ONBIT \FALSE
+	PRINTR	"The compressor is making a steady loud noise."
+
+
+	.FUNCT	AIR-HOSE-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	IN?	AIR-HOSE,DEEP-SUIT \?ELS10
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS15
+	PRINTI	"This "
+	CALL	DPRINT,AIR-HOSE
+	PRINTI	" goes from the aft deck of the "
+	CALL	DPRINT,SALVAGER
+	PRINTR	" and ends at your diving suit. Without it, you would find breathing impossible."
+?ELS15:	PRINTI	"It connects the "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTI	" and the "
+	CALL	DPRINT,MM-COMPRESSOR
+	PRINTI	" "
+	EQUAL?	HERE,MM-AFT-DECK \?ELS24
+	PRINTI	"here"
+	JUMP	?CND22
+?ELS24:	PRINTI	"on the aft deck"
+?CND22:	PRINTR	"."
+?ELS10:	PRINTI	"It is designed to be connected to a "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	" to provide air and is about 600 feet long."
+?ELS5:	EQUAL?	PRSA,V?TIE,V?PUT \?ELS38
+	EQUAL?	PRSI,DEEP-SUIT /?THN41
+	EQUAL?	PRSO,DEEP-SUIT \?ELS38
+?THN41:	IN?	AIR-HOSE,DEEP-SUIT \?ELS47
+	CALL	TELL-ALREADY,STR?308
+	RSTACK	
+?ELS47:	MOVE	AIR-HOSE,DEEP-SUIT
+	CALL	TELL-NOW,AIR-HOSE,CONNECT-STR
+	RSTACK	
+?ELS38:	EQUAL?	PRSA,V?TAKE \?ELS51
+	IN?	AIR-HOSE,DEEP-SUIT \?ELS56
+	CALL	TELL-ALREADY,CONNECT-STR
+	RSTACK	
+?ELS56:	PRINTI	"Why drag it around? Just connect it to the "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	"."
+?ELS51:	EQUAL?	PRSA,V?TIE \?ELS62
+	CALL	TELL-YOU-CANT,STR?309
+	RSTACK	
+?ELS62:	EQUAL?	PRSA,V?UNTIE \?ELS64
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS69
+	CALL	JIGS-UP,STR?310
+	RSTACK	
+?ELS69:	MOVE	AIR-HOSE,MM-COMPRESSOR
+	PRINTR	"The hose retracts back to the compressor."
+?ELS64:	EQUAL?	PRSA,V?MOVE \?ELS75
+	PRINTR	"That was fun."
+?ELS75:	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	CALL	TELL-YOU-CANT,STR?311
+	RSTACK	
+
+
+	.FUNCT	TELL-WHEELHOUSE,OBJ
+	PRINTI	" Through the glass windows you see the "
+	ZERO?	AT-SEA /?ELS7
+	PRINTR	"ocean churning all around you."
+?ELS7:	CALL	DPRINT,OBJ
+	PRINTR	" docked at the wharf, and the island stretching aft. Forward, you see the choppy waters of the bay."
+
+
+	.FUNCT	MM-WHEELHOUSE-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	PRINTI	"You are in the wheelhouse with a passageway leading out onto the deck abaft. You can see the "
+	CALL	DPRINT,MM-COMPRESSOR
+	PRINTI	" sitting there, taking up most of the aft deck."
+	CALL	TELL-WHEELHOUSE,TRAWLER
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	OCEAN,PRSO,PRSI \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?ELS19
+	PRINTR	"You see the ocean through the window."
+?ELS19:	EQUAL?	PRSA,V?ASK-ABOUT,V?FIND /FALSE
+	CALL	TELL-YOU-CANT,STR?313
+	RSTACK	
+
+
+	.FUNCT	COMPRESSOR-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?314
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	CALL	TELL-YOU-CANT,STR?315
+	RSTACK	
+?ELS7:	CALL	TELL-CANT-REACH,STR?316
+	RSTACK	
+
+
+	.FUNCT	MM-LOCKER-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in a relatively empty locker."
+	PRINT	SPARE-PARTS-STR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	METAL-DETECTOR-F,TMP
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"The "
+	CALL	DPRINT,METAL-DETECTOR
+	PRINTI	"'s label is well-worn. It has a "
+	CALL	DPRINT,DETECTOR-SWITCH
+	PRINTI	" which is currently "
+	ZERO?	DETECTOR-ON /?ELS10
+	PRINTI	"on"
+	JUMP	?CND8
+?ELS10:	PRINTI	"off"
+?CND8:	PRINTI	", and a compartment on the side which is "
+	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?ELS22
+	PRINTI	"open"
+	FIRST?	DETECTOR-COMPARTMENT >TMP \?CND20
+	PRINTI	" and contains "
+	CALL	APRINT,TMP
+	JUMP	?CND20
+?ELS22:	PRINTI	"closed"
+?CND20:	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS37
+	SET	'DETECTOR-ON,TRUE-VALUE
+	CALL	TELL-SWITCH,STR?56
+	RTRUE	
+?ELS37:	EQUAL?	PRSA,V?LAMP-OFF \?ELS39
+	SET	'DETECTOR-ON,FALSE-VALUE
+	CALL	TELL-SWITCH,STR?264
+	RTRUE	
+?ELS39:	EQUAL?	PRSA,V?LISTEN \?ELS41
+	CALL	DETECTOR-NOISE,TRUE-VALUE
+	RTRUE	
+?ELS41:	EQUAL?	PRSA,V?PUT \?ELS43
+	EQUAL?	PRSI,METAL-DETECTOR \?ELS43
+	CALL	PERFORM,V?PUT,PRSO,DETECTOR-COMPARTMENT
+	RTRUE	
+?ELS43:	EQUAL?	PRSA,V?EMPTY,V?CLOSE,V?OPEN \?ELS47
+	CALL	PERFORM,PRSA,DETECTOR-COMPARTMENT
+	SET	'P-IT-OBJECT,METAL-DETECTOR
+	RTRUE	
+?ELS47:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS49
+	CALL	PERFORM,V?EXAMINE,DETECTOR-COMPARTMENT
+	SET	'P-IT-OBJECT,METAL-DETECTOR
+	RTRUE	
+?ELS49:	EQUAL?	PRSA,V?SHAKE \FALSE
+	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?ELS54
+	FIRST?	DETECTOR-COMPARTMENT \?ELS54
+	MOVE	DRY-CELL,HERE
+	SET	'DETECTOR-POWERED,FALSE-VALUE
+	PRINTI	"The "
+	CALL	DPRINT,DRY-CELL
+	PRINTR	" falls out of the machine."
+?ELS54:	PRINTR	"Nothing happens."
+
+
+	.FUNCT	DETECTOR-LABEL-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"You tug at it, but it can't be pulled off."
+
+
+	.FUNCT	DETECTOR-SWITCH-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	ZERO?	DETECTOR-ON /?ELS8
+	CALL	TELL-SWITCH,STR?56
+	RTRUE	
+?ELS8:	CALL	TELL-SWITCH,STR?264
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS13
+	CALL	PERFORM,V?LAMP-ON,METAL-DETECTOR
+	SET	'P-IT-OBJECT,DETECTOR-SWITCH
+	RTRUE	
+?ELS13:	EQUAL?	PRSA,V?LAMP-OFF \?ELS15
+	CALL	PERFORM,V?LAMP-OFF,METAL-DETECTOR
+	SET	'P-IT-OBJECT,DETECTOR-SWITCH
+	RTRUE	
+?ELS15:	EQUAL?	PRSA,V?THROW,V?MOVE,V?TURN \FALSE
+	ZERO?	DETECTOR-ON /?ELS20
+	CALL	PERFORM,V?LAMP-OFF,METAL-DETECTOR
+	JUMP	?CND18
+?ELS20:	CALL	PERFORM,V?LAMP-ON,METAL-DETECTOR
+?CND18:	SET	'P-IT-OBJECT,DETECTOR-SWITCH
+	RTRUE	
+
+
+	.FUNCT	DETECTOR-COMPARTMENT-F,RARG=0
+	EQUAL?	RARG,M-CONT \?ELS5
+	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	PRSO,DRY-CELL \FALSE
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+	PRINTI	"Taken."
+	CRLF	
+	ZERO?	DETECTOR-POWERED /TRUE
+	SET	'DETECTOR-POWERED,FALSE-VALUE
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS23
+	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?ELS26
+	PRINTI	"The compartment is on the side of the machine. Inside "
+	FIRST?	DETECTOR-COMPARTMENT \?ELS31
+	PRINTI	"is a connected"
+	JUMP	?CND29
+?ELS31:	PRINTI	"are connections for a"
+?CND29:	PRINTI	" nine-volt "
+	CALL	DPRINT,DRY-CELL
+	PRINTR	"."
+?ELS26:	CALL	TELL-CLOSED,STR?319
+	RTRUE	
+?ELS23:	EQUAL?	PRSA,V?PUT \?ELS43
+	EQUAL?	PRSO,DETECTOR-COMPARTMENT /FALSE
+	FSET?	DETECTOR-COMPARTMENT,OPENBIT /?ELS50
+	CALL	TELL-CLOSED,STR?320
+	RSTACK	
+?ELS50:	EQUAL?	PRSO,DRY-CELL \?ELS52
+	MOVE	DRY-CELL,DETECTOR-COMPARTMENT
+	FSET?	DRY-CELL,RMUNGBIT /?CND53
+	SET	'DETECTOR-POWERED,TRUE-VALUE
+?CND53:	PRINTI	"The "
+	CALL	DPRINT,DRY-CELL
+	PRINTR	" fits snugly inside."
+?ELS52:	PRINTR	"Unfortunately, it doesn't fit."
+?ELS43:	EQUAL?	PRSA,V?OPEN \?ELS63
+	IN?	DRY-CELL,DETECTOR-COMPARTMENT \?ELS63
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS63
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK \?ELS63
+	FSET	DRY-CELL,RMUNGBIT
+	SET	'DETECTOR-POWERED,FALSE-VALUE
+	RFALSE	
+?ELS63:	EQUAL?	PRSA,V?EMPTY \FALSE
+	FSET?	DETECTOR-COMPARTMENT,OPENBIT \FALSE
+	SET	'DETECTOR-POWERED,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	DEEP-SUIT-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS5
+	CALL	TELL-NO-NO
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	PRINTI	"This "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	" is bulky on land, but underwater it will protect you to 500 feet. It has a hood with ""viewport"" and a connection for a compressor hose."
+?ELS7:	EQUAL?	PRSA,V?PUT \?ELS11
+	EQUAL?	PRSI,DEEP-SUIT \?ELS11
+	EQUAL?	PRSO,AIR-HOSE /?ELS11
+	CALL	TELL-NO-NO
+	RSTACK	
+?ELS11:	EQUAL?	PRSA,V?WEAR \?ELS15
+	FSET?	WET-SUIT,WORNBIT \?ELS15
+	CALL	TELL-NO-FIT,STR?321
+	RSTACK	
+?ELS15:	EQUAL?	PRSA,V?DISEMBARK,V?THROW,V?DROP \FALSE
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \FALSE
+	CALL	JIGS-UP,STR?322
+	RSTACK	
+
+
+	.FUNCT	MM-CREW-QTRS-F,RARG,W
+	EQUAL?	RARG,M-LOOK \?ELS5
+	CALL	TELL-CREW-QTRS
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	MOVE-SHARED-OBJECTS,MM-CREW-QTRS
+	RFALSE	
+
+
+	.FUNCT	BUNK-F,RARG=0,F
+	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?SLEEP,V?BOARD \?ELS10
+	FIRST?	BUNK >F \?ELS16
+	EQUAL?	F,PLAYER \?THN13
+?ELS16:	CALL	WEARING-SOMETHING?
+	ZERO?	STACK /?ELS10
+?THN13:	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+?ELS10:	EQUAL?	PRSA,V?HIDE-UNDER,V?PUT-UNDER \?ELS18
+	EQUAL?	PRSO,GLOBAL-SELF,ME \?ELS23
+	PRINTR	"You won't fit."
+?ELS23:	GETP	PRSO,P?SIZE
+	LESS?	STACK,5 \?ELS27
+	FIRST?	UNDER-BUNK \?ELS32
+	CALL	TELL-NO-FIT
+	RSTACK	
+?ELS32:	MOVE	PRSO,UNDER-BUNK
+	FSET	PRSO,NDESCBIT
+	CALL	TELL-NOW,PRSO,STR?323
+	RSTACK	
+?ELS27:	CALL	TELL-NO-FIT
+	RSTACK	
+?ELS18:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	FIRST?	UNDER-BUNK >F \?ELS43
+	SET	'P-IT-OBJECT,F
+	PRINTI	"There is "
+	CALL	APRINT,F
+	PRINTR	" under the mattress."
+?ELS43:	PRINTR	"Nobody's hidden his life savings there."
+
+
+	.FUNCT	WEARING-SOMETHING?,F
+	FIRST?	PLAYER >F /?KLU12
+?KLU12:	
+?PRG1:	ZERO?	F /FALSE
+	FSET?	F,WORNBIT \?ELS7
+	EQUAL?	F,WATCH \TRUE
+?ELS7:	NEXT?	F >F /?KLU13
+?KLU13:	JUMP	?PRG1
+
+
+	.FUNCT	UNDER-BUNK-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC /TRUE
+	EQUAL?	RARG,M-CONT \FALSE
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FCLEAR	PRSO,NDESCBIT
+	RFALSE	
+
+
+	.FUNCT	BUNKS-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?324
+	RTRUE	
+?ELS5:	PRINTR	"The only bunk you should worry about is your own."
+
+
+	.FUNCT	MM-GALLEY-F,RARG
+	CALL	GENERIC-GALLEY-F,RARG,MM-GALLEY
+	RSTACK	
+
+
+	.FUNCT	GENERIC-GALLEY-F,RARG,PLACE,?TMP1
+	EQUAL?	RARG,M-ENTER \?ELS5
+	PUTP	GLOBAL-SURFACE,P?SDESC,STR?36
+	CALL	MOVE-SHARED-OBJECTS,PLACE
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-LOOK \?ELS7
+	PRINTI	"You are in the "
+	EQUAL?	PLACE,MM-GALLEY \?ELS12
+	CALL	DPRINT,SALVAGER
+	JUMP	?CND10
+?ELS12:	CALL	DPRINT,TRAWLER
+?CND10:	PRINTI	"'s galley. A stove and a small table are the fixtures here."
+	IN?	FOOD,STOVE \?CND21
+	CALL	TELL-STEW-ON
+?CND21:	ZERO?	WATER-DELIVERED /?CND24
+	GETP	SHIP-CHOSEN,P?LINE >?TMP1
+	GETP	PLACE,P?LINE
+	EQUAL?	?TMP1,STACK \?CND24
+	PRINTI	" Water is available."
+?CND24:	PRINTR	" A ladder leads up through the deck to the wheelhouse for feeding the captain in rough weather."
+?ELS7:	EQUAL?	RARG,M-BEG \FALSE
+	CALL	DOUBLE-DUTY-CHECK
+	ZERO?	STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	DOUBLE-DUTY-CHECK
+	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	EQUAL?	PRSO,PETE \FALSE
+	EQUAL?	PRSI,FOOD \?ELS12
+	ZERO?	SOUPS-ON /?ELS17
+	PRINTI	"""Take some "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."""
+?ELS17:	PRINTR	"""Wait 'til it's ready."""
+?ELS12:	EQUAL?	PRSI,DRINKING-WATER \FALSE
+	PRINTI	"""Take it "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."""
+
+
+	.FUNCT	TELL-STEW-ON,LEAD?=1
+	ZERO?	LEAD? /?CND1
+	PRINTI	" "
+?CND1:	PRINTI	"A pot of stew is simmering on the stove."
+	RTRUE	
+
+
+	.FUNCT	STOVE-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"The small stove rests on gimbals that keep it relatively level."
+	IN?	FOOD,STOVE \?CND8
+	CALL	TELL-STEW-ON
+?CND8:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS12
+	IN?	FOOD,STOVE \?ELS12
+	CALL	TELL-STEW-ON,FALSE-VALUE
+	CRLF	
+	RTRUE	
+?ELS12:	EQUAL?	PRSA,V?LAMP-OFF,V?LAMP-ON \FALSE
+	PRINTR	"That's Pete's job."
+
+
+	.FUNCT	MM-LOUNGE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	PUTP	GLOBAL-SURFACE,P?SDESC,STR?36
+	CALL	MOVE-SHARED-OBJECTS,MM-LOUNGE
+	RFALSE	
+
+
+	.FUNCT	LOUNGE-CHAIR-F,RARG=0,F
+	EQUAL?	PRSO,CHAIR \FALSE
+	EQUAL?	PRSA,V?BOARD \FALSE
+	FIRST?	CHAIR >F \FALSE
+	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+
+
+	.FUNCT	REDS-BUNK-F
+	EQUAL?	PRSA,V?SIT,V?SLEEP,V?BOARD /?THN6
+	EQUAL?	PRSA,V?HIDE-UNDER,V?PUT-UNDER,V?SIT-ON /?THN6
+	EQUAL?	PRSA,V?PUT \?ELS5
+	EQUAL?	PRSI,REDS-BUNK \?ELS5
+?THN6:	PRINTR	"You know better than to disturb the captain's bunk!"
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTR	"It's shipshape."
+
+
+	.FUNCT	MM-ENGINE-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in a tiny cabin with barely enough room to breathe. By your feet lie the huge diesel engines of the "
+	CALL	DPRINT,SALVAGER
+	PRINTR	"."
+
+
+	.FUNCT	ENGINE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?328
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	PRINTR	"The engines are extremely complex and delicate pieces of machinery."
+?ELS7:	EQUAL?	PRSA,V?PLUG,V?LAMP-OFF,V?LAMP-ON \?ELS11
+	PRINTI	"Leave the engines to "
+	CALL	DPRINT,WEASEL
+	PRINTR	" and he'll leave the diving to you."
+?ELS11:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS15
+	EQUAL?	PRSO,WEASEL \?ELS15
+	PRINTR	"""These are in pretty good shape."""
+?ELS15:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ZERO?	AT-SEA /FALSE
+	CALL	TELL-YOU-CANT,STR?329
+	RSTACK	
+
+
+	.FUNCT	NW-FORE-DECK-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	TELL-FORE-END,TRAWLER
+	RSTACK	
+
+
+	.FUNCT	NW-STARBOARD-DECK-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	MOVE	BUNK,NW-CREW-QTRS
+	MOVE	UNDER-BUNK,NW-CREW-QTRS
+	MOVE	STOVE,NW-GALLEY
+	MOVE	DECK-CHAIR,NW-FORE-DECK
+	MOVE	REDS-BUNK,NW-CAPT-CABIN
+	MOVE	LOUNGE-CHAIR,NW-LOUNGE
+	IN?	PETE,NW-GALLEY \?CND6
+	MOVE	FOOD,STOVE
+	FSET	FOOD,NDESCBIT
+?CND6:	ZERO?	WATER-DELIVERED /FALSE
+	EQUAL?	TRAWLER,SHIP-CHOSEN \FALSE
+	MOVE	DRINKING-WATER,NW-GALLEY
+	FSET	DRINKING-WATER,NDESCBIT
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
+	CALL	TELL-FOO-SIDE,TRAWLER,STR?183,STR?184
+	RTRUE	
+
+
+	.FUNCT	NW-AFT-DECK-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	CALL	TELL-AFT-DECK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-FLASH \FALSE
+	IN?	WEASEL,NW-AFT-DECK \FALSE
+	ZERO?	AT-SEA /FALSE
+	ZERO?	WEASEL-APPREHENDED \FALSE
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK \FALSE
+	CALL	QUEUE,I-PENDULUM,-1
+	PUT	STACK,0,1
+	CALL	TELL-WEASEL-TOSSES
+	RSTACK	
+
+
+	.FUNCT	NW-WHEELHOUSE-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	PRINTI	"You are in the wheelhouse of the "
+	CALL	DPRINT,TRAWLER
+	PRINTI	". The passageway leading out onto the deck lies abaft."
+	CALL	TELL-WHEELHOUSE,SALVAGER
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	OCEAN,PRSO,PRSI \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?ELS19
+	PRINTR	"You see the ocean through the window."
+?ELS19:	CALL	TELL-YOU-CANT,STR?313
+	RSTACK	
+
+
+	.FUNCT	NW-LOCKER-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in a fairly empty storage locker. It must have been cleaned out after its last trawling expedition."
+	PRINT	SPARE-PARTS-STR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TELL-SWITCH,STR
+	PRINTI	"The switch is now in the """
+	PRINT	STR
+	PRINTR	""" position."
+
+
+	.FUNCT	DRILL-F,RARG=0
+	EQUAL?	RARG,M-CONT \?ELS5
+	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	PRSO,BATTERY \FALSE
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+	PRINTI	"Taken."
+	ZERO?	DRILL-POWERED /?CND18
+	SET	'DRILL-POWERED,FALSE-VALUE
+	ZERO?	DRILL-ON /?CND18
+	CALL	INT,I-DRILL
+	PUT	STACK,0,0
+	PRINTI	" The drill bit winds to a halt."
+?CND18:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS29
+	EQUAL?	PRSO,DRILL \?ELS29
+	ZERO?	DRILL-ON /?ELS36
+	CALL	TELL-ALREADY,STR?56
+	RSTACK	
+?ELS36:	ZERO?	DRILL-POWERED /?ELS39
+	SET	'DRILL-ON,TRUE-VALUE
+	CALL	INT,I-DRILL
+	PUT	STACK,0,1
+	PRINTR	"The drill bit begins to spin."
+?ELS39:	SET	'DRILL-ON,TRUE-VALUE
+	CALL	TELL-SWITCH,STR?56
+	RSTACK	
+?ELS29:	EQUAL?	PRSA,V?LAMP-OFF \?ELS46
+	EQUAL?	PRSO,DRILL \?ELS46
+	ZERO?	DRILL-ON \?ELS53
+	CALL	TELL-ALREADY,STR?264
+	RSTACK	
+?ELS53:	ZERO?	DRILL-POWERED /?ELS55
+	SET	'DRILL-ON,FALSE-VALUE
+	CALL	INT,I-DRILL
+	PUT	STACK,0,0
+	PRINTR	"The drill bit stops spinning."
+?ELS55:	SET	'DRILL-ON,FALSE-VALUE
+	CALL	TELL-SWITCH,STR?264
+	RSTACK	
+?ELS46:	EQUAL?	PRSA,V?EXAMINE \?ELS62
+	PRINTI	"This waterproof wonder features a permanent bit"
+	CALL	QUEUED?,I-DRILL
+	ZERO?	STACK /?CND65
+	PRINTI	" which is turning"
+?CND65:	PRINTI	", a panel which is "
+	FSET?	DRILL,OPENBIT \?ELS74
+	PRINTI	"open"
+	ZERO?	DRILL-POWERED /?ELS79
+	PRINTI	" with a C battery inside"
+	JUMP	?CND72
+?ELS79:	PRINTI	", revealing space for a C battery"
+	JUMP	?CND72
+?ELS74:	PRINTI	"closed"
+?CND72:	PRINTI	", and a switch which is in the """
+	ZERO?	DRILL-ON /?ELS95
+	PRINTI	"on"
+	JUMP	?CND93
+?ELS95:	PRINTI	"off"
+?CND93:	PRINTR	""" position."
+?ELS62:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS106
+	CALL	PERFORM,V?EXAMINE,DRILL
+	RTRUE	
+?ELS106:	EQUAL?	PRSA,V?OPEN \?ELS108
+	IN?	BATTERY,DRILL \?ELS108
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS108
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK \?ELS108
+	FSET	BATTERY,RMUNGBIT
+	SET	'DRILL-POWERED,FALSE-VALUE
+	RFALSE	
+?ELS108:	EQUAL?	PRSI,DRILL \FALSE
+	EQUAL?	PRSA,V?PUT \?ELS117
+	FSET?	DRILL,OPENBIT /?ELS122
+	SET	'P-IT-OBJECT,DRILL
+	CALL	TELL-CLOSED,STR?320
+	RSTACK	
+?ELS122:	EQUAL?	PRSO,BATTERY \?ELS124
+	MOVE	BATTERY,DRILL
+	FSET?	BATTERY,RMUNGBIT \?CND125
+	CALL	TELL-NOW,BATTERY,STR?332
+	RTRUE	
+?CND125:	SET	'DRILL-POWERED,TRUE-VALUE
+	ZERO?	DRILL-ON /?ELS132
+	CALL	INT,I-DRILL
+	PUT	STACK,0,1
+	PRINTR	"The drill bit starts spinning."
+?ELS132:	CALL	TELL-NOW,BATTERY,STR?332
+	RSTACK	
+?ELS124:	CALL	TELL-NO-FIT
+	RSTACK	
+?ELS117:	EQUAL?	PRSA,V?TELL,V?ASK-ABOUT,V?TAKE /FALSE
+	EQUAL?	PRSA,V?PUT-ON,V?PUT-AGAINST /FALSE
+	ZERO?	DRILL-ON /?THN148
+	ZERO?	DRILL-POWERED \FALSE
+?THN148:	EQUAL?	PRSO,GLOBAL-TIME /FALSE
+	SET	'P-IT-OBJECT,DRILL
+	PRINTI	"The "
+	CALL	DPRINT,DRILL
+	PRINTR	" isn't running!"
+
+
+	.FUNCT	GENERIC-HOLE-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTR	"As holes go, it's very nice."
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS9
+	PRINTR	"You see nothing new."
+?ELS9:	EQUAL?	PRSA,V?REACH-IN \FALSE
+	PRINTR	"It's not that big."
+
+
+	.FUNCT	ADD-HOLE,OBJ,I
+	FSET?	HOLE-1,INVISIBLE \?ELS3
+	FCLEAR	HOLE-1,INVISIBLE
+	MOVE	HOLE-1,OBJ
+	JUMP	?CND1
+?ELS3:	FSET?	HOLE-2,INVISIBLE \?ELS5
+	FCLEAR	HOLE-2,INVISIBLE
+	PUTP	HOLE-1,P?SDESC,STR?335
+	MOVE	HOLE-2,OBJ
+	JUMP	?CND1
+?ELS5:	PRINTI	"The drill should be dead now."
+	CRLF	
+?CND1:	CALL	INT,I-DRILL >I
+	GET	I,C-TICK
+	SUB	STACK,1
+	PUT	I,C-TICK,STACK
+	GET	I,C-TICK
+	ZERO?	STACK \TRUE
+	CALL	I-DRILL
+	RTRUE	
+
+
+	.FUNCT	TELL-CREW-QTRS
+	PRINTR	"You are below deck in the crew's quarters. Narrow, uncomfortable bunks line the bulkheads, and you note the similarity between this area and a sardine can. Sleeping here is necessary but uninviting. A ladder leads up and out to the fore deck."
+
+
+	.FUNCT	NW-CREW-QTRS-F,RARG,W
+	EQUAL?	RARG,M-LOOK \?ELS5
+	CALL	TELL-CREW-QTRS
+	RSTACK	
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	MOVE-SHARED-OBJECTS,NW-CREW-QTRS
+	RFALSE	
+
+
+	.FUNCT	NW-GALLEY-F,RARG
+	CALL	GENERIC-GALLEY-F,RARG,NW-GALLEY
+	RSTACK	
+
+
+	.FUNCT	NW-LOUNGE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	PUTP	GLOBAL-SURFACE,P?SDESC,STR?36
+	CALL	MOVE-SHARED-OBJECTS,NW-LOUNGE
+	RFALSE	
+
+
+	.FUNCT	NW-ENGINE-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in a tiny, smelly space where it is difficult to breathe. By your feet lie the diesel engines of the "
+	CALL	DPRINT,TRAWLER
+	PRINTR	"."
+
+	.ENDI
diff --git a/boat.zil b/boat.zil
new file mode 100644
index 0000000..25bdbdb
--- /dev/null
+++ b/boat.zil
@@ -0,0 +1,1422 @@
+"BOAT ROOMS for TOA #2
+ Copyright (C) 1984 Infocom, Inc."
+
+<OBJECT FERRY
+	(IN LOCAL-GLOBALS)
+	(DESC "ferry")
+	(LDESC "The ferry for the mainland bobs up and down, its engines
+running.")
+	(TEXT "The ferry for the mainland bobs up and down, its engines
+running.")
+	(SYNONYM FERRY BOAT SHIP ENGINE)
+	(ADJECTIVE FERRY)
+	(FLAGS INVISIBLE VEHBIT)
+	(ACTION FERRY-F)>
+
+<ROUTINE FERRY-F ()
+	 <COND (<VERB? BOARD THROUGH CLIMB-ON>
+		<COND (<IN? ,FERRY ,FERRY-LANDING>
+		       <COND (<==? ,HERE ,FERRY-LANDING>
+			      <TELL-CANT-BOARD>)
+			     (T <TELL-YOURE-NOT "at the landing.">)>)
+		      (T <TELL "It's not at the landing. Be patient." CR>)>)
+	       (<AND <VERB? WALK-TO> <NOT <==? ,HERE ,FERRY-LANDING>>>
+		<TELL-SHD-DIR>)
+	       (<VERB? LISTEN>
+		<TELL "You hear its engines." CR>)>>
+
+<ROUTINE TELL-CANT-BOARD ()
+	 <TELL-DONT-HAVE "a ferry token">>
+
+<OBJECT GLOBAL-FERRY
+	(IN GLOBAL-OBJECTS)
+	(DESC "ferry")
+	(SYNONYM FERRY)
+	(FLAGS CONTBIT)
+	(ACTION GLOBAL-FERRY-F)>
+
+<ROUTINE GLOBAL-FERRY-F ()
+	 <COND (<NOT <VERB? ASK-ABOUT TELL FIND>>
+		<GLOBAL-NOT-HERE-PRINT ,GLOBAL-FERRY>)>>
+
+<ROOM MM-FORE-DECK
+      (IN ROOMS)
+      (DESC "Fore Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (SE TO MM-STARBOARD-DECK)
+      (EAST TO MM-STARBOARD-DECK)
+      (SW TO MM-PORT-DECK)
+      (WEST TO MM-PORT-DECK)
+      (SOUTH "There's a wall in the way.")
+      (DOWN TO MM-CREW-QTRS)
+      (GLOBAL OCEAN DECK SALVAGER RAILING IN-WINDOW LADDER-TOP)
+      (LINE 5)
+      (STATION MM-FORE-DECK)
+      (PSEUDO "BOLT" BOLT-PSEUDO "BOLTS" BOLT-PSEUDO)
+      (ACTION MM-FORE-DECK-F)>
+
+<ROUTINE MM-FORE-DECK-F (RARG)
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL-FORE-END ,SALVAGER>)>>
+
+<ROUTINE TELL-FORE-END (OBJ)
+	<TELL
+"You are at the fore end of the " D .OBJ ". You can see the ocean over the
+rail that runs around the deck. A ladder leads below deck, and the wheelhouse
+is aft of you. A chair is bolted to the deck." CR>>
+
+<OBJECT DECK-CHAIR
+	(IN MM-FORE-DECK)
+	(DESC "chair")
+	(SYNONYM CHAIR SEAT ARMCHA)
+	(ADJECTIVE LOOKOU)
+	;(LDESC 
+"A chair facing forward is bolted to the deck. It has a button on each arm.")
+	(STATION 70) ;"metal content"
+	(DESCFCN DECK-CHAIR-F)
+	(FLAGS SURFACEBIT VEHBIT TRANSBIT)
+	(ACTION DECK-CHAIR-F)>
+
+<ROUTINE DECK-CHAIR-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<COND (<IN? ,PETE ,DECK-CHAIR>
+		       <TELL-IN-CHAIR ,PETE>)
+		      ;(<IN? ,WEASEL ,DECK-CHAIR>
+		       <TELL-IN-CHAIR ,WEASEL>)>
+		<RTRUE>)
+	       (<NOT .RARG>
+		<COND (<VERB? EXAMINE>
+		       <TELL
+"This weatherbeaten chair is used by a lookout while standing watch.
+It faces forward and is bolted to the deck. ">
+		       <COND ;(<IN? ,WEASEL ,DECK-CHAIR>
+			      <TELL "The Weasel is currently in the chair.">)
+			     (<IN? ,PETE ,DECK-CHAIR>
+			      <TELL-IN-CHAIR ,PETE>
+			      ;<TELL
+D ,PETE " is in the chair, staring out to sea.">)>
+		       <CRLF>)
+		      (<VERB? ASK-ABOUT>
+		       <TELL "\"It's the lookout's chair.\"" CR>)
+		      (<AND <VERB? PUT PUT-ON>
+			    <PRSI? ,DECK-CHAIR>>
+		       <COND (<IDROP>
+			      <COND (<IN? ,PLAYER ,DECK-CHAIR>
+				     <MOVE ,PRSO <LOC ,DECK-CHAIR>>)>
+			      <TELL
+"It slides off the chair and onto the deck." CR>)>
+		       <RTRUE>)
+		      (<AND <VERB? BOARD>
+			    <IN? ,PETE ,DECK-CHAIR>>
+		       <TELL-ALREADY "occupied">)>)>>
+
+<ROUTINE TELL-IN-CHAIR (OCC)
+	 <START-SENTENCE .OCC>
+	 <TELL " is sitting in the chair." CR>>
+
+;<OBJECT LEFT-BUTTON
+	(IN DECK-CHAIR)
+	(DESC "left button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE LEFT WEST ;PORT)
+	(FLAGS NDESCBIT)
+	(ACTION BUTTON-F)>
+
+;<OBJECT RIGHT-BUTTON
+	(IN DECK-CHAIR)
+	(DESC "right button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RIGHT EAST)
+	(FLAGS NDESCBIT)
+	(ACTION BUTTON-F)>
+
+;<ROUTINE BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<AND ,ON-WATCH
+		     	    <NOT <EQUAL? ,ON-WATCH ,PLAYER>>>
+		       <START-SENTENCE ,ON-WATCH>
+		       <TELL " stops you. \"">
+		       <COND (<G? ,O-CTR 0>
+			      <TELL "Don't worry. I got it,\" he says.">)
+			     (T <TELL
+"Haven't you ever heard of the kid who cried wolf?\" he asks.">)>
+		       <CRLF>
+		       <RTRUE>)
+		      (<PRSO? ,LEFT-BUTTON>
+		       <SETG BUTTON-PUSHED 1>)
+		      (T <SETG BUTTON-PUSHED 2>)>
+		<COND (<==? ,O-CTR 0>
+		       <ENABLE <QUEUE I-USELESS-TURN <+ 1 <RANDOM 2>>>>)>
+		<TELL "Pushed." CR>)>>
+
+;<OBJECT PROW-LIGHT
+	(IN MM-FORE-DECK)
+	(DESC "prow light")
+	(SYNONYM LIGHT)
+	(ADJECTIVE SEARCH PROW)
+	(FLAGS ONBIT TRYTAKEBIT NDESCBIT)
+	(TEXT
+"This light, affixed to the prow of the boat, shines into the ocean.")
+	(ACTION PROW-LIGHT-F)>
+
+;<ROUTINE PROW-LIGHT-F ()
+	 <COND (<VERB? LAMP-ON>
+		<TELL-ALREADY "on">)
+	       (<VERB? LAMP-OFF>
+		<TELL "It would be too dangerous." CR>)
+	       (<VERB? TAKE>
+		<TELL "It's firmly attached to the prow." CR>)>>
+
+<ROOM MM-STARBOARD-DECK
+      (IN ROOMS)
+      (DESC "Starboard Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"The starboard side of the Mary Margaret has the wheelhouse to port.
+The deck is well-worn after many years of use, but still solid. The ocean
+is off to the other side of the rail.")
+      (NW TO MM-FORE-DECK)
+      (NORTH TO MM-FORE-DECK)
+      (SW TO MM-AFT-DECK)
+      (SOUTH TO MM-AFT-DECK)
+      (WEST "There's a wall in the way.")
+      (GLOBAL OCEAN DECK SALVAGER RAILING IN-WINDOW)
+      (LINE 5)
+      (STATION MM-STARBOARD-DECK)>
+
+<ROOM MM-PORT-DECK
+      (IN ROOMS)
+      (DESC "Port Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (NE TO MM-FORE-DECK)
+      (NORTH TO MM-FORE-DECK)
+      (SE TO MM-AFT-DECK)
+      (SOUTH TO MM-AFT-DECK)
+      (EAST "There's a wall in the way.")
+      (WEST TO WHARF IF SALVAGER-DOCKED ELSE "You're out to sea now.")
+      (OUT TO WHARF IF SALVAGER-DOCKED ELSE "You're out to sea now.")
+      (GLOBAL OCEAN DECK SALVAGER RAILING IN-WINDOW)
+      (LINE 5)
+      (STATION MM-PORT-DECK)
+      (ACTION MM-PORT-DECK-F)>
+
+<ROUTINE MM-PORT-DECK-F (RARG "AUX" DOCK?)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,BUNK ,MM-CREW-QTRS>
+		<MOVE ,UNDER-BUNK ,MM-CREW-QTRS>
+		<MOVE ,STOVE ,MM-GALLEY>
+		;<MOVE ,CUPBOARDS ,MM-GALLEY>
+		<MOVE ,DECK-CHAIR ,MM-FORE-DECK>
+		;<MOVE ,REDS-LAMP ,MM-CAPT-CABIN>
+		<MOVE ,REDS-BUNK ,MM-CAPT-CABIN>
+		;<MOVE ,PROW-LIGHT ,MM-FORE-DECK>
+		<MOVE ,LOUNGE-CHAIR ,MM-LOUNGE>
+		<COND (<IN? ,PETE ,MM-GALLEY>
+		       <MOVE ,FOOD ,STOVE>
+		       <FSET ,FOOD ,NDESCBIT>)>
+		<COND (<AND ,WATER-DELIVERED
+			    <==? ,SHIP-CHOSEN ,SALVAGER>>
+		       <MOVE ,DRINKING-WATER ,MM-GALLEY>
+		       <FSET ,DRINKING-WATER ,NDESCBIT>)>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL-FOO-SIDE ,SALVAGER "port" "starboard">
+		<RTRUE>)>>
+
+<ROUTINE TELL-FOO-SIDE (OBJ SIDE HOUSE "AUX" DOCK?)
+	<TELL
+"You are on the ".SIDE" side of the " D .OBJ", a sturdy vessel designed for ">
+	<COND (<EQUAL? .OBJ ,TRAWLER> <TELL "trawling">)
+	      (T <TELL "deep-sea salvaging">)>
+	<TELL ". To " .HOUSE " is a small wheelhouse, while ">
+	<COND (<EQUAL? .OBJ ,TRAWLER> <SET DOCK? ,TRAWLER-DOCKED>)
+	      (T <SET DOCK? ,SALVAGER-DOCKED>)>
+	<COND (.DOCK?
+	       <TELL
+"to " .SIDE " is the gangway leading to the dock. The gentle rocking of the
+boat in port reminds you of time spent on the open sea." CR>)
+	      (T <TELL
+"the ocean, with its blue-green waves crashing, lies off the "
+.SIDE " rail." CR>)>>
+
+<ROOM MM-AFT-DECK
+      (IN ROOMS)
+      (DESC "Aft Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (NE TO MM-STARBOARD-DECK)
+      (EAST TO MM-STARBOARD-DECK)
+      (NW TO MM-PORT-DECK)
+      (WEST TO MM-PORT-DECK)
+      (NORTH TO MM-WHEELHOUSE)
+      (DOWN TO MM-LOUNGE)
+      (GLOBAL OCEAN DECK SALVAGER RAILING LADDER-TOP)
+      (LINE 5)
+      (STATION MM-AFT-DECK)
+      (PSEUDO "BOLT" BOLT-PSEUDO "BOLTS" BOLT-PSEUDO)
+      (ACTION MM-AFT-DECK-F)>
+
+<ROUTINE TELL-AFT-DECK ()
+	<TELL
+"The smell of diesel fuel is strong but reassuring here on the aft deck.
+A ladder leads below deck, while forward you can see the entrance to the
+command center of the boat, the wheelhouse.">>
+
+<ROUTINE MM-AFT-DECK-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL-AFT-DECK>
+		<TELL
+" A huge air compressor is bolted to the deck by the aft rail." CR>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<AND <VERB? WALK>
+			    <IN? ,AIR-HOSE ,DEEP-SUIT>
+			    <IN? ,DEEP-SUIT ,PLAYER>>
+		       <TELL
+"You don't want to drag the " D ,AIR-HOSE " around the boat." CR>)>)
+	       (<==? .RARG ,M-FLASH>
+		<COND (<AND <IN? ,WEASEL ,MM-AFT-DECK>
+			    ,AT-SEA
+			    <NOT ,WEASEL-APPREHENDED>
+			    <NOT <QUEUED? I-PENDULUM>>>
+		       <ENABLE <QUEUE I-PENDULUM -1>>
+		       <TELL-WEASEL-TOSSES>)>)>>
+
+<ROUTINE TELL-WEASEL-TOSSES ()
+	 <FCLEAR ,LINE-HACK ,INVISIBLE>
+	 <MOVE ,LINE-HACK <LOC ,WEASEL>>
+	 <TELL
+"The Weasel tosses a line over the side and says, " ,LINE-STR CR>>
+
+<OBJECT LINE-HACK ;"quick and dirty"
+	(IN LOCAL-GLOBALS)
+	(DESC "orange line")
+	(SYNONYM LINE ROPE)
+	(ADJECTIVE SAFETY WEIGHT FLOURE ORANGE)
+	(FLAGS TRYTAKEBIT INVISIBLE VOWELBIT NDESCBIT)
+	(ACTION LINE-HACK-F)>
+
+<ROUTINE LINE-HACK-F ("AUX" (HOLDER <>))
+	 <COND (<IN? ,WEASEL <LOC ,LINE-HACK>>
+		<SET HOLDER ,WEASEL>)
+	       (<IN? ,JOHNNY <LOC ,LINE-HACK>>
+		<SET HOLDER ,JOHNNY>)>
+	 <COND (<VERB? EXAMINE>
+		<COND (.HOLDER
+		       <START-SENTENCE .HOLDER>
+		       <TELL " is holding one end of a weighted " D ,LINE-HACK "." CR>)
+		      (T <TELL "One end of " A ,LINE-HACK " is here. Leave it alone." CR>)>)
+	       (<VERB? FIND ASK-ABOUT>
+		<RFALSE>)
+	       (T
+		<COND (.HOLDER
+		       <START-SENTENCE .HOLDER>
+		       <TELL " pulls it away. \"Don't mess with that!\"" CR>)
+		      (T <TELL "Leave it alone." CR>)>)>>
+
+<OBJECT MM-COMPRESSOR
+	(IN MM-AFT-DECK)
+	(DESC "large air compressor")
+	(SYNONYM COMPRE SWITCH)
+	(ADJECTIVE LARGE AIR HUGE)
+	(FLAGS CONTBIT OPENBIT NDESCBIT)
+	(STATION 100) ;"metal content"
+	(ACTION MM-COMPRESSOR-F)>
+
+<ROUTINE MM-COMPRESSOR-F ("AUX" TICK)
+	 <COND (<VERB? OPEN CLOSE>
+		<TELL-NO-NO>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,MM-COMPRESSOR>>
+		<TELL "There's no place to put it." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The large, gasoline-powered air compressor is ">
+		<COND (<FSET? ,MM-COMPRESSOR ,ONBIT>
+		       <TELL "on">)
+		      (T <TELL "off">)>
+		<TELL ". You can quickly see it ">
+		<COND (<0? <SET TICK <GET <INT I-MM-COMPRESSOR> ,C-TICK>>>
+		       <TELL "is out of fuel">)
+		      (T
+		       <COND (<==? .TICK 80>
+			      <TELL "has">)
+		      	     (T <TELL "started with">)>
+		       <TELL " fuel for an hour and a half's operation">)>
+		<TELL ". A retractable " D ,AIR-HOSE " is built in." CR>)
+	       (<VERB? LAMP-ON>
+		<COND (<FSET? ,MM-COMPRESSOR ,ONBIT>
+		       <TELL-ALREADY "on">)
+		      (T
+		       <ENABLE <INT I-MM-COMPRESSOR>>
+		       <FSET ,MM-COMPRESSOR ,ONBIT>
+		       <TELL "Okay. The compressor is on." CR>)>)
+	       (<VERB? LAMP-OFF>
+		<COND (<FSET? ,MM-COMPRESSOR ,ONBIT>
+		       <DISABLE <INT I-MM-COMPRESSOR>>
+		       <FCLEAR ,MM-COMPRESSOR ,ONBIT>
+		       <TELL-NOW ,MM-COMPRESSOR "off">)
+		      (T <TELL-ALREADY "off">)>)
+	       (<AND <VERB? LISTEN>
+		     <FSET? ,MM-COMPRESSOR ,ONBIT>>
+		<TELL "The compressor is making a steady loud noise." CR>)>>
+
+<OBJECT AIR-HOSE
+	(IN MM-COMPRESSOR)
+	(DESC "airhose")
+	(SYNONYM AIRHOSE HOSE)
+	(ADJECTIVE AIR RETRAC)
+	(FLAGS NDESCBIT TRYTAKEBIT VOWELBIT)
+	(ACTION AIR-HOSE-F)>
+
+<ROUTINE AIR-HOSE-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<IN? ,AIR-HOSE ,DEEP-SUIT>
+		       <COND (<==? <GETP ,HERE ,P?LINE>
+				   ,UNDERWATER-LINE-C>
+			      <TELL
+"This " D ,AIR-HOSE " goes from the aft deck of the " D ,SALVAGER" and ends at
+your diving suit. Without it, you would find breathing impossible." CR>)
+			     (T <TELL
+"It connects the " D ,DEEP-SUIT " and the " D ,MM-COMPRESSOR " ">
+			      <COND (<EQUAL? ,HERE ,MM-AFT-DECK>
+				     <TELL "here">)
+				    (T <TELL "on the aft deck">)>
+			      <TELL "." CR>)>)
+		      (T <TELL
+"It is designed to be connected to a " D ,DEEP-SUIT " to provide air and
+is about 600 feet long." CR>)>)
+	       (<AND <VERB? PUT TIE>
+		     <OR <PRSI? ,DEEP-SUIT>
+			 <PRSO? ,DEEP-SUIT>>>
+		<COND (<IN? ,AIR-HOSE ,DEEP-SUIT>
+		       <TELL-ALREADY "connected">)
+		      (T
+		       <MOVE ,AIR-HOSE ,DEEP-SUIT>
+		       <TELL-NOW ,AIR-HOSE ,CONNECT-STR>)>)
+	       (<VERB? TAKE>
+		<COND (<IN? ,AIR-HOSE ,DEEP-SUIT>
+		       <TELL-ALREADY ,CONNECT-STR>)
+		      (T <TELL
+"Why drag it around? Just connect it to the " D ,DEEP-SUIT "." CR>)>)
+	       (<VERB? TIE>
+		<TELL-YOU-CANT "connect the airhose to that!">)
+	       (<VERB? UNTIE>
+		<COND (<EQUAL? <GETP ,HERE ,P?LINE>
+			       ,UNDERWATER-LINE-C>
+		       <JIGS-UP "Oops! So much for instantly growing gills.">)
+		      (T
+		       <MOVE ,AIR-HOSE ,MM-COMPRESSOR>
+		       <TELL "The hose retracts back to the compressor." CR>)>)
+	       (<VERB? MOVE>
+		<TELL "That was fun." CR>)
+	       (<VERB? CLIMB-FOO>
+		<TELL-YOU-CANT "climb that!">)>>
+
+<GLOBAL CONNECT-STR "connected to the deep-sea diving suit">
+
+<ROOM MM-WHEELHOUSE
+      (IN ROOMS)
+      (DESC "Wheelhouse")
+      (FLAGS RLANDBIT ONBIT)
+      (SOUTH TO MM-AFT-DECK)
+      (DOWN TO MM-GALLEY)
+      (GLOBAL DECK SALVAGER TRAWLER LADDER-TOP WINDOW OCEAN)
+      (PSEUDO "WHEEL" WHEEL-PSEUDO "COMPRE" COMPRESSOR-PSEUDO)
+      (LINE 5)
+      (STATION MM-AFT-DECK)
+      (ACTION MM-WHEELHOUSE-F)>
+
+<ROUTINE TELL-WHEELHOUSE (OBJ)
+	<TELL " Through the glass windows you see the ">
+	<COND (,AT-SEA <TELL "ocean churning all around you." CR>)
+	      (T <TELL
+D .OBJ " docked at the wharf, and the island stretching aft.
+Forward, you see the choppy waters of the bay." CR>)>>
+
+;<TELL
+"wharf and the island beyond, stretching out to the south. Forward, you
+see the choppy waters of the bay. To starboard you can see the salvager docked.">
+
+<ROUTINE MM-WHEELHOUSE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in the wheelhouse with a passageway leading out onto the deck abaft.
+You can see the " D ,MM-COMPRESSOR " sitting there, taking up most of the aft deck.">
+		<TELL-WHEELHOUSE ,TRAWLER>
+		<RTRUE>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<EQUAL? ,OCEAN ,PRSO ,PRSI>
+		       <COND (<VERB? EXAMINE>
+			      <TELL
+"You see the ocean through the window." CR>)
+			     (<VERB? FIND ASK-ABOUT>
+			      <RFALSE>)
+			     (T <TELL-YOU-CANT "from here.">)>)>)>>  
+
+<ROUTINE COMPRESSOR-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "large air compressor">)
+	       (<VERB? EXAMINE>
+		<TELL-YOU-CANT "make out too many details from here.">)
+	       (T <TELL-CANT-REACH "it from here">)>>
+
+;<ROOM MM-HEAD
+      (IN ROOMS)
+      (DESC "Head")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are in the small head aboard the Mary Margaret. There's barely enough
+room to turn around and get out abaft.")
+      (SOUTH TO MM-LOCKER)
+      (GLOBAL DECK SALVAGER)
+      (LINE 5)
+      (STATION MM-LOCKER)>
+
+<ROOM MM-LOCKER
+      (IN ROOMS)
+      (DESC "Storage Locker")
+      (FLAGS RLANDBIT ONBIT)
+      ;(NORTH TO MM-HEAD)
+      (SOUTH TO MM-CREW-QTRS)
+      (GLOBAL DECK SALVAGER)
+      (LINE 5)
+      (PSEUDO "LOCKER" GLOBAL-ROOM-F)
+      (STATION MM-CREW-QTRS)
+	(ACTION MM-LOCKER-F)>
+
+<ROUTINE MM-LOCKER-F (RARG)
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"You are in a relatively empty locker." ,SPARE-PARTS-STR CR>)>>
+
+<GLOBAL SPARE-PARTS-STR
+" There are spare parts for the engine and other equipment scattered about.">
+
+<OBJECT METAL-DETECTOR
+	(IN MM-LOCKER)
+	(DESC "small machine")
+	(SYNONYM MACHIN DETECT DEVICE)
+	(ADJECTIVE SMALL METAL ACME)
+	(FLAGS CONTBIT TRANSBIT SEARCHBIT TAKEBIT)
+	(ACTION METAL-DETECTOR-F)>
+
+<ROUTINE METAL-DETECTOR-F ("AUX" TMP)
+	 <COND (<VERB? EXAMINE>
+		<TELL 
+"The " D ,METAL-DETECTOR "'s label is well-worn. It has a "
+D ,DETECTOR-SWITCH " which is currently ">
+		<COND (,DETECTOR-ON <TELL "on">)
+		      (T <TELL "off">)>
+		<TELL ", and a compartment on the side which is ">
+		<COND (<FSET? ,DETECTOR-COMPARTMENT ,OPENBIT>
+		       <TELL "open">
+		       <COND (<SET TMP <FIRST? ,DETECTOR-COMPARTMENT>>
+			      <TELL " and contains " A .TMP>)>)
+		      (T <TELL "closed">)>
+		<TELL "." CR>
+		<RTRUE>)
+	       (<VERB? LAMP-ON>
+		<SETG DETECTOR-ON T>
+		<TELL-SWITCH "on">
+		<RTRUE>)
+	       (<VERB? LAMP-OFF>
+		<SETG DETECTOR-ON <>>
+		<TELL-SWITCH "off">
+		<RTRUE>)
+	       (<VERB? LISTEN>
+		<DETECTOR-NOISE T>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,METAL-DETECTOR>>
+		<PERFORM ,V?PUT ,PRSO ,DETECTOR-COMPARTMENT>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE EMPTY>
+		<PERFORM ,PRSA ,DETECTOR-COMPARTMENT>
+		<SETG P-IT-OBJECT ,METAL-DETECTOR>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM ,V?EXAMINE ,DETECTOR-COMPARTMENT>
+		<SETG P-IT-OBJECT ,METAL-DETECTOR>
+		<RTRUE>)
+	       (<VERB? SHAKE>
+		<COND (<AND <FSET? ,DETECTOR-COMPARTMENT ,OPENBIT>
+			    <FIRST? ,DETECTOR-COMPARTMENT>>
+		       <MOVE ,DRY-CELL ,HERE>
+		       <SETG DETECTOR-POWERED <>>
+		       <TELL
+"The " D ,DRY-CELL " falls out of the machine." CR>)
+		      (T <TELL "Nothing happens." CR>)>
+		<RTRUE>)>>
+
+<OBJECT DETECTOR-LABEL
+	(IN METAL-DETECTOR)
+	(DESC "machine label")
+	(SYNONYM LABEL TAG STICKE LOGO)
+	(ADJECTIVE WELL WORN WELL-W MACHIN DETECT METAL SMALL)
+	(TEXT 
+"The label is worn, so all you can make out is a large \"ACME\" at the top.")
+	(FLAGS READBIT NDESCBIT)
+	(ACTION DETECTOR-LABEL-F)>
+
+<ROUTINE DETECTOR-LABEL-F ()
+	 <COND (<VERB? TAKE>
+		<TELL "You tug at it, but it can't be pulled off." CR>
+		<RTRUE>)>>
+
+<OBJECT DETECTOR-SWITCH
+	(IN METAL-DETECTOR)
+	(DESC "machine switch")
+	(SYNONYM SWITCH)
+	(ADJECTIVE MACHIN DETECT METAL SMALL POWER ON-OFF ON/OFF)
+	(FLAGS NDESCBIT TURNBIT)
+	(ACTION DETECTOR-SWITCH-F)>
+
+<ROUTINE DETECTOR-SWITCH-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (,DETECTOR-ON
+		       <TELL-SWITCH "on">)
+		      (T <TELL-SWITCH "off">)>
+		<RTRUE>)
+	       (<VERB? LAMP-ON>
+		<PERFORM ,V?LAMP-ON ,METAL-DETECTOR>
+		<SETG P-IT-OBJECT ,DETECTOR-SWITCH>
+		<RTRUE>)
+	       (<VERB? LAMP-OFF>
+		<PERFORM ,V?LAMP-OFF ,METAL-DETECTOR>
+		<SETG P-IT-OBJECT ,DETECTOR-SWITCH>
+		<RTRUE>)
+	       (<VERB? TURN MOVE THROW>
+		<COND (,DETECTOR-ON <PERFORM ,V?LAMP-OFF ,METAL-DETECTOR>)
+		      (T <PERFORM ,V?LAMP-ON ,METAL-DETECTOR>)>
+		<SETG P-IT-OBJECT ,DETECTOR-SWITCH>
+		<RTRUE>)>>
+
+<OBJECT DETECTOR-COMPARTMENT
+	(IN METAL-DETECTOR)
+	(DESC "machine compartment")
+	(SYNONYM COMPAR RECESS PANEL)
+	(ADJECTIVE SMALL MACHIN METAL DETECT)
+	(CAPACITY 3)
+	(CONTFCN DETECTOR-COMPARTMENT-F)
+	(FLAGS CONTBIT NDESCBIT)
+	(ACTION DETECTOR-COMPARTMENT-F)>
+
+<ROUTINE DETECTOR-COMPARTMENT-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE>
+			    <PRSO? ,DRY-CELL>>
+		       <COND (<ITAKE>
+			      <TELL "Taken." CR>
+			      <COND (,DETECTOR-POWERED
+				     <SETG DETECTOR-POWERED <>>)>)>
+		       <RTRUE>)>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<FSET? ,DETECTOR-COMPARTMENT ,OPENBIT>
+		       <TELL 
+"The compartment is on the side of the machine. Inside ">
+			<COND (<FIRST? ,DETECTOR-COMPARTMENT>
+			       <TELL "is a connected">)
+			      (T <TELL "are connections for a">)>
+			<TELL " nine-volt " D ,DRY-CELL "." CR>)
+		       (T
+			<TELL-CLOSED "small panel on the side of the machine">)>
+		<RTRUE>)
+	       (<VERB? PUT>
+		<COND (<PRSO? ,DETECTOR-COMPARTMENT>
+		       <RFALSE>)
+		      (<NOT <FSET? ,DETECTOR-COMPARTMENT ,OPENBIT>>
+		       <TELL-CLOSED "panel">)
+		      (<PRSO? ,DRY-CELL>
+		       <MOVE ,DRY-CELL ,DETECTOR-COMPARTMENT>
+		       <COND (<NOT <FSET? ,DRY-CELL ,RMUNGBIT>>
+			      <SETG DETECTOR-POWERED T>)>
+		       <TELL "The " D ,DRY-CELL " fits snugly inside." CR>
+		       <RTRUE>)
+		      (T <TELL "Unfortunately, it doesn't fit." CR>)>)
+	       (<AND <VERB? OPEN>
+		     <IN? ,DRY-CELL ,DETECTOR-COMPARTMENT>
+		     <==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		     <NOT <AIRTIGHT-ROOM?>>>
+		<FSET ,DRY-CELL ,RMUNGBIT>
+		<SETG DETECTOR-POWERED <>>
+		<RFALSE>)
+	       (<AND <VERB? EMPTY>
+		     <FSET? ,DETECTOR-COMPARTMENT ,OPENBIT>>
+		<SETG DETECTOR-POWERED <>>
+		<RFALSE>)>>
+
+<OBJECT DEEP-SUIT
+	(IN MM-LOCKER)
+	(DESC "deep-sea diving suit")
+	(SYNONYM SUIT HOOD)
+	(ADJECTIVE DEEP DEEP-S SEA DIVING BULKY)
+	(FLAGS TAKEBIT WEARBIT CONTBIT OPENBIT)
+	(ACTION DEEP-SUIT-F)>
+
+<ROUTINE DEEP-SUIT-F ()
+	 <COND (<VERB? OPEN CLOSE>
+		<TELL-NO-NO>)
+	       (<VERB? EXAMINE>
+		<TELL
+"This " D ,DEEP-SUIT " is bulky on land, but underwater it will
+protect you to 500 feet. It has a hood with \"viewport\" and a
+connection for a compressor hose." CR>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,DEEP-SUIT>
+		     <NOT <PRSO? ,AIR-HOSE>>>
+		<TELL-NO-NO>)
+	       (<AND <VERB? WEAR>
+		     <FSET? ,WET-SUIT ,WORNBIT>>
+		<TELL-NO-FIT "over the wet suit">)
+	       (<AND <VERB? DROP THROW DISEMBARK>
+		     <==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>>
+		<JIGS-UP
+"You take the suit off and quickly realize you're not a dolphin. You realize
+this too late, though.">)>>
+
+<ROOM MM-CREW-QTRS
+      (IN ROOMS)
+      (DESC "Crew's Quarters")
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO MM-LOCKER)
+      (SOUTH TO MM-GALLEY)
+      (UP TO MM-FORE-DECK)
+      (GLOBAL DECK SALVAGER LADDER-BOTTOM)
+      (LINE 5)
+      (STATION MM-CREW-QTRS)
+      (PSEUDO "BUNKS" BUNKS-PSEUDO)
+      (ACTION MM-CREW-QTRS-F)>
+
+<ROUTINE MM-CREW-QTRS-F (RARG "AUX" W)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL-CREW-QTRS>
+		<RTRUE>)
+	       (<==? .RARG ,M-ENTER>
+		<MOVE-SHARED-OBJECTS ,MM-CREW-QTRS>
+		<RFALSE>)
+	       ;(<==? .RARG ,M-BEG>
+		<COND (<AND <NOT ,GROGGIED>
+			    ,AT-SEA
+			    <SET W <W-KLUDGE>>>
+		       <SETG GROGGIED T>
+		       <START-SENTENCE .W>
+		       <TELL " looks up groggily. ">
+		       <RFALSE>)>)>>
+
+;<GLOBAL GROGGIED <>>
+
+;<ROUTINE W-KLUDGE ()
+	 <COND (<EQUAL? ,WINNER ,WEASEL ,PETE>
+		<RETURN ,WINNER>)
+	       (<VERB? ASK-ABOUT>
+		<RETURN ,PRSO>)
+	       (T <RFALSE>)>>
+
+<OBJECT BUNK
+	(IN MM-CREW-QTRS)
+	(DESC "bunk")
+	(SYNONYM BUNK BED MATTRE)
+	(FLAGS VEHBIT SURFACEBIT CONTBIT OPENBIT TRANSBIT NDESCBIT)
+	(CAPACITY 25)
+	(STATION 30) ;"metal content"
+	(ACTION BUNK-F)>
+
+<ROUTINE BUNK-F ("OPTIONAL" (RARG <>) "AUX" F)
+	 <COND (<NOT .RARG>
+		<COND (<AND <VERB? BOARD SLEEP>
+		       	    <OR <AND <SET F <FIRST? ,BUNK>>
+				     <NOT <==? .F ,PLAYER>>>
+				<WEARING-SOMETHING?>>>
+		       <TELL-NOT-COMFORTABLE>)
+		      (<VERB? PUT-UNDER HIDE-UNDER>
+		       <COND (<PRSO? ,ME ,GLOBAL-SELF>
+			      <TELL "You won't fit." CR>)
+			     (<L? <GETP ,PRSO ,P?SIZE> 5>
+		       	      <COND (<FIRST? ,UNDER-BUNK>
+				     <TELL-NO-FIT>)
+				    (T
+				     <MOVE ,PRSO ,UNDER-BUNK>
+		       	      	     <FSET ,PRSO ,NDESCBIT>
+		       	      	     <TELL-NOW ,PRSO "hidden under the mattress">)>)
+		      	     (T <TELL-NO-FIT>)>)
+	       	      (<VERB? LOOK-UNDER>
+		       <COND (<SET F <FIRST? ,UNDER-BUNK>>
+		       	      <SETG P-IT-OBJECT .F>
+		       	      <TELL "There is " A .F " under the mattress." CR>)
+			     (T <TELL "Nobody's hidden his life savings there." CR>)>)>)>>
+
+<ROUTINE WEARING-SOMETHING? ("AUX" F)
+	 <SET F <FIRST? ,PLAYER>>
+	 <REPEAT ()
+	  <COND (<NOT .F> <RFALSE>)
+		(<AND <FSET? .F ,WORNBIT>
+		      <NOT <==? .F ,WATCH>>>
+		 <RTRUE>)
+		(T <SET F <NEXT? .F>>)>>>
+
+<OBJECT UNDER-BUNK
+	(IN MM-CREW-QTRS)
+	(DESC "under the bunk")
+	(FLAGS CONTBIT NDESCBIT OPENBIT)
+	(CAPACITY 10)
+	(DESCFCN UNDER-BUNK-F)
+	(CONTFCN UNDER-BUNK-F)>
+
+<ROUTINE UNDER-BUNK-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<RTRUE>)
+	       (<==? .RARG ,M-CONT>
+		<COND (<VERB? TAKE>
+		       <FCLEAR ,PRSO ,NDESCBIT>
+		       <RFALSE>)>)>>
+
+<ROUTINE BUNKS-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "bunks">)
+	       (T <TELL "The only bunk you should worry about is your own." CR>)>>
+
+<ROOM MM-GALLEY
+      (IN ROOMS)
+      (DESC "Galley")
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO MM-CREW-QTRS)
+      (SOUTH TO MM-LOUNGE)
+      (UP TO MM-WHEELHOUSE)
+      (GLOBAL DECK SALVAGER LADDER-BOTTOM)
+      (LINE 5)
+      (STATION MM-GALLEY)
+      (ACTION MM-GALLEY-F)>
+
+<ROUTINE MM-GALLEY-F (RARG)
+	 <GENERIC-GALLEY-F .RARG ,MM-GALLEY>>
+
+<ROUTINE GENERIC-GALLEY-F (RARG PLACE)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,GLOBAL-SURFACE ,P?SDESC "table">
+		<MOVE-SHARED-OBJECTS .PLACE>
+		<RFALSE>)
+	       (<==? .RARG ,M-LOOK>
+		<TELL "You are in the ">
+		<COND (<==? .PLACE ,MM-GALLEY>
+		       <TELL D ,SALVAGER>)
+		      (T <TELL D ,TRAWLER>)>
+		<TELL
+"'s galley. A stove and a small table are the fixtures here.">
+		<COND (<IN? ,FOOD ,STOVE>
+		       <TELL-STEW-ON>)>
+		<COND (<AND ,WATER-DELIVERED
+			    <==? <GETP ,SHIP-CHOSEN ,P?LINE>
+				 <GETP ,PLACE ,P?LINE>>>
+		       <TELL " Water is available.">)>
+		<TELL
+" A ladder leads up through the deck to the wheelhouse for
+feeding the captain in rough weather." CR>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<DOUBLE-DUTY-CHECK>
+		       <RTRUE>)>)>>
+
+<ROUTINE DOUBLE-DUTY-CHECK ()
+	 <COND (<AND <VERB? ASK-FOR>
+		     <PRSO? ,PETE>>
+		<COND (<PRSI? ,FOOD>
+		       <COND (,SOUPS-ON
+			      <TELL "\"Take some " D ,GLOBAL-SELF ".\"" CR>)
+			     (T <TELL "\"Wait 'til it's ready.\"" CR>)>)
+		      (<PRSI? ,DRINKING-WATER>
+		       <TELL "\"Take it " D ,GLOBAL-SELF ".\"" CR>)>)>>
+
+<ROUTINE TELL-STEW-ON ("OPTIONAL" (LEAD? T))
+	 <COND (.LEAD? <TELL " ">)>
+	 <TELL "A pot of stew is simmering on the stove.">>
+
+<OBJECT STOVE
+	(IN MM-GALLEY)
+	(DESC "stove")
+	(SYNONYM STOVE RANGE GIMBAL)
+	(ADJECTIVE SMALL)
+	(FLAGS SURFACEBIT OPENBIT CONTBIT NDESCBIT)
+	(CAPACITY 5)
+	(ACTION STOVE-F)>
+
+<ROUTINE STOVE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The small stove rests on gimbals that keep it relatively level.">
+		<COND (<IN? ,FOOD ,STOVE>
+		       <TELL-STEW-ON>)>
+		<CRLF>)
+	       (<AND <VERB? LOOK-INSIDE>
+		     <IN? ,FOOD ,STOVE>>
+		<TELL-STEW-ON <>>
+		<CRLF>)
+	       (<VERB? LAMP-ON LAMP-OFF>
+		<TELL "That's Pete's job." CR>)>>
+
+;<OBJECT CUPBOARDS
+	(IN MM-GALLEY)
+	(DESC "set of cupboards")
+	(SYNONYM CUPBOA CABINE SET)
+	(ADJECTIVE EMPTY BARE FEW STORAG)
+	(FLAGS NDESCBIT CONTBIT)
+	(CAPACITY 1)
+	(ACTION CUPBOARDS-F)>
+
+;<ROUTINE CUPBOARDS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "There are a few ">
+		<COND (<FSET? ,CUPBOARDS ,OPENBIT>
+		       <TELL "empty">)
+		      (T <TELL "closed">)>
+		<TELL " storage cupboards here." CR>)
+	       (<VERB? OPEN>
+		<COND (<FSET? ,CUPBOARDS ,OPENBIT>
+		       <TELL "They're already open." CR>)
+		      (T
+		       <FSET ,CUPBOARDS ,OPENBIT>
+		       <TELL
+"Opening them reveals nothing but empty cupboards." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,CUPBOARDS ,OPENBIT>
+		       <FCLEAR ,CUPBOARDS ,OPENBIT>
+		       <TELL "Closed." CR>)
+		      (T <TELL "They're already closed." CR>)>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,CUPBOARDS>>
+		<TELL "It would only make Pete mad." CR>)>>
+
+<ROOM MM-LOUNGE
+      (IN ROOMS)
+      (DESC "Lounge")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"You are in a small, cramped cabin decorated with a table and a few chairs.
+To the aft is the captain's cabin, while the galley lies forward. A ladder
+leading down goes into the engine room.")
+      (NORTH TO MM-GALLEY)
+      (SOUTH TO MM-CAPT-CABIN)
+      (UP TO MM-AFT-DECK)
+      (DOWN TO MM-ENGINE-ROOM)
+      (GLOBAL DECK SALVAGER LADDER-BOTTOM LADDER-TOP)
+      (LINE 5)
+      (STATION MM-LOUNGE)
+      (ACTION MM-LOUNGE-F)>
+
+<ROUTINE MM-LOUNGE-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,GLOBAL-SURFACE ,P?SDESC "table">
+		<MOVE-SHARED-OBJECTS ,MM-LOUNGE>
+		<RFALSE>)>>
+
+<OBJECT LOUNGE-CHAIR
+	(IN MM-LOUNGE)
+	(DESC "chair")
+	(SYNONYM CHAIR CHAIRS SEAT)
+	(FLAGS NDESCBIT VEHBIT SURFACEBIT TRANSBIT OPENBIT)
+	(CAPACITY 10)
+	(ACTION LOUNGE-CHAIR-F)>
+
+<ROUTINE LOUNGE-CHAIR-F ("OPTIONAL" (RARG <>) "AUX" F)
+	 <COND (<PRSO? ,CHAIR>
+		<COND (<VERB? BOARD>
+		       <COND (<SET F <FIRST? ,CHAIR>>
+			      <TELL-NOT-COMFORTABLE>)>)>)>>
+
+<ROOM MM-CAPT-CABIN
+      (IN ROOMS)
+      (DESC "Captain's Cabin")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"You are in the captain's cabin. There is a large and
+comfortable-looking bunk here. The forward doorway leads to the
+crew's lounge.")
+      (NORTH TO MM-LOUNGE)
+      (GLOBAL DECK SALVAGER)
+      (LINE 5)
+      (STATION MM-LOUNGE)>
+
+;<OBJECT REDS-LAMP
+	(IN MM-CAPT-CABIN)
+	(DESC "reading lamp")
+	(SYNONYM LAMP LIGHT)
+	(ADJECTIVE READIN)
+	(FLAGS NDESCBIT)
+	(ACTION REDS-LAMP-F)>
+
+;<ROUTINE REDS-LAMP-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The lamp is ">
+		<COND (<FSET? ,REDS-LAMP ,ONBIT>
+		       <TELL "on">)
+		      (T <TELL "off">)>
+		<TELL "." CR>)
+	       (<VERB? LAMP-ON>
+		<COND (<FSET? ,REDS-LAMP ,ONBIT>
+		       <TELL-ALREADY "on">)
+		      (T
+		       <FSET ,REDS-LAMP ,ONBIT>
+		       <TELL-NOW ,REDS-LAMP "on">)>)
+	       (<VERB? LAMP-OFF>
+		<COND (<FSET? ,REDS-LAMP ,ONBIT>
+		       <FCLEAR ,REDS-LAMP ,ONBIT>
+		       <TELL "The lamp is now off." CR>)
+		      (T <TELL-ALREADY "off">)>)>>
+
+<OBJECT REDS-BUNK
+	(IN MM-CAPT-CABIN)
+	(DESC "large bunk")
+	(SYNONYM BUNK BED MATTRE)
+	(ADJECTIVE LARGE COMFOR LOOKIN CAPTAI)
+	(FLAGS NDESCBIT)
+	(TEXT "This large, comfortable-looking bunk is the captain's.")
+	(ACTION REDS-BUNK-F)>
+
+<ROUTINE REDS-BUNK-F ()
+	 <COND (<OR <VERB? BOARD SLEEP SIT>
+		    <VERB? SIT-ON PUT-UNDER HIDE-UNDER>
+		    <AND <VERB? PUT>
+			 <PRSI? ,REDS-BUNK>>>
+		<TELL "You know better than to disturb the captain's bunk!" CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "It's shipshape." CR>)>>
+
+<ROOM MM-ENGINE-ROOM
+      (IN ROOMS)
+      (DESC "Engine Room")
+      (FLAGS RLANDBIT ONBIT)
+      (UP TO MM-LOUNGE)
+      (GLOBAL DECK SALVAGER LADDER-BOTTOM)
+      (LINE 5)
+      (DESCFCN 100) ;"metal content"
+      (PSEUDO "ENGINE" ENGINE-PSEUDO)
+      (STATION MM-LOUNGE)
+      (ACTION MM-ENGINE-ROOM-F)>
+
+<ROUTINE MM-ENGINE-ROOM-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL
+"You are in a tiny cabin with barely enough room to breathe. By your feet lie
+the huge diesel engines of the " D ,SALVAGER "." CR>)>>
+ 
+<ROUTINE ENGINE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "diesel engine">)
+	       (<VERB? EXAMINE>
+		<TELL
+"The engines are extremely complex and delicate pieces of machinery." CR>)
+	       (<VERB? LAMP-ON LAMP-OFF PLUG>
+		<TELL
+"Leave the engines to " D ,WEASEL " and he'll leave the diving to you." CR>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,WEASEL>>
+		<TELL "\"These are in pretty good shape.\"" CR>)
+	       (<AND <VERB? LISTEN>
+		     ,AT-SEA>
+	        <TELL-YOU-CANT "avoid it.">)>>
+
+<ROOM NW-FORE-DECK
+      (IN ROOMS)
+      (DESC "Fore Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (SE TO NW-STARBOARD-DECK)
+      (EAST TO NW-STARBOARD-DECK)
+      (SW TO NW-PORT-DECK)
+      (WEST TO NW-PORT-DECK)
+      (SOUTH "There's a wall in the way.")
+      (DOWN TO NW-CREW-QTRS)
+      (GLOBAL OCEAN DECK TRAWLER RAILING IN-WINDOW LADDER-TOP)
+      (LINE 4)
+      (STATION NW-FORE-DECK)
+      (PSEUDO "BOLT" BOLT-PSEUDO "BOLTS" BOLT-PSEUDO)
+      (ACTION NW-FORE-DECK-F)>
+
+<ROUTINE NW-FORE-DECK-F (RARG)
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL-FORE-END ,TRAWLER>)>>
+
+<ROOM NW-STARBOARD-DECK
+      (IN ROOMS)
+      (DESC "Starboard Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (EAST TO WHARF IF TRAWLER-DOCKED ELSE "You're out to sea now.")
+      (OUT TO WHARF IF TRAWLER-DOCKED ELSE "You're out to sea now.")
+      (NW TO NW-FORE-DECK)
+      (NORTH TO NW-FORE-DECK)
+      (SW TO NW-AFT-DECK)
+      (SOUTH TO NW-AFT-DECK)
+      (WEST "There's a bulkhead there.")
+      (GLOBAL OCEAN DECK TRAWLER RAILING IN-WINDOW)
+      (LINE 4)
+      (STATION NW-STARBOARD-DECK)
+      (ACTION NW-STARBOARD-DECK-F)>
+
+<ROUTINE NW-STARBOARD-DECK-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,BUNK ,NW-CREW-QTRS>
+		<MOVE ,UNDER-BUNK ,NW-CREW-QTRS>
+		<MOVE ,STOVE ,NW-GALLEY>
+		;<MOVE ,CUPBOARDS ,NW-GALLEY>
+		<MOVE ,DECK-CHAIR ,NW-FORE-DECK>
+		;<MOVE ,REDS-LAMP ,NW-CAPT-CABIN>
+		<MOVE ,REDS-BUNK ,NW-CAPT-CABIN>
+		<MOVE ,LOUNGE-CHAIR ,NW-LOUNGE>
+		;<MOVE ,PROW-LIGHT ,NW-FORE-DECK>
+		<COND (<IN? ,PETE ,NW-GALLEY>
+		       <MOVE ,FOOD ,STOVE>
+		       <FSET ,FOOD ,NDESCBIT>)>
+		<COND (<AND ,WATER-DELIVERED
+			    <==? ,TRAWLER ,SHIP-CHOSEN>>
+		       <MOVE ,DRINKING-WATER ,NW-GALLEY>
+		       <FSET ,DRINKING-WATER ,NDESCBIT>)>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL-FOO-SIDE ,TRAWLER "starboard" "port">
+		<RTRUE>)>>
+
+<ROOM NW-PORT-DECK
+      (IN ROOMS)
+      (DESC "Port Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are on the port side of the Night Wind. The wheelhouse is to starboard.
+The teak deck is very well-kept. The ocean lies off to port.")
+      (NE TO NW-FORE-DECK)
+      (NORTH TO NW-FORE-DECK)
+      (SE TO NW-AFT-DECK)
+      (SOUTH TO NW-AFT-DECK)
+      (GLOBAL OCEAN DECK TRAWLER RAILING IN-WINDOW)
+      (LINE 4)
+      (STATION NW-PORT-DECK)>
+
+<ROOM NW-AFT-DECK
+      (IN ROOMS)
+      (DESC "Aft Deck")
+      (FLAGS RLANDBIT ONBIT)
+      (NE TO NW-STARBOARD-DECK)
+      (EAST TO NW-STARBOARD-DECK)
+      (NW TO NW-PORT-DECK)
+      (WEST TO NW-PORT-DECK)
+      (NORTH TO NW-WHEELHOUSE)
+      (DOWN TO NW-LOUNGE)
+      (GLOBAL OCEAN DECK TRAWLER RAILING LADDER-TOP)
+      (LINE 4)
+      (STATION NW-AFT-DECK)
+      (ACTION NW-AFT-DECK-F)>
+
+<ROUTINE NW-AFT-DECK-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL-AFT-DECK>
+		<CRLF>)
+	       (<EQUAL? .RARG ,M-FLASH>
+		<COND (<AND <IN? ,WEASEL ,NW-AFT-DECK>
+			    ,AT-SEA
+			    <NOT ,WEASEL-APPREHENDED>
+			    <NOT <QUEUED? I-PENDULUM>>>
+		       <ENABLE <QUEUE I-PENDULUM -1>>
+		       <TELL-WEASEL-TOSSES>)>)>>
+
+<ROOM NW-WHEELHOUSE
+      (IN ROOMS)
+      (DESC "Wheelhouse")
+      (FLAGS RLANDBIT ONBIT)
+      (SOUTH TO NW-AFT-DECK)
+      (DOWN TO NW-GALLEY)
+      (GLOBAL DECK TRAWLER SALVAGER LADDER-TOP WINDOW OCEAN)
+      (LINE 4)
+      (STATION NW-AFT-DECK)
+      (PSEUDO "WHEEL" WHEEL-PSEUDO)
+      (ACTION NW-WHEELHOUSE-F)>
+
+<ROUTINE NW-WHEELHOUSE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in the wheelhouse of the " D ,TRAWLER ". The passageway leading
+out onto the deck lies abaft.">
+		<TELL-WHEELHOUSE ,SALVAGER>
+		<RTRUE>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<EQUAL? ,OCEAN ,PRSO ,PRSI>
+		       <COND (<VERB? EXAMINE>
+			      <TELL
+"You see the ocean through the window." CR>)
+			     (T <TELL-YOU-CANT "from here.">)>)>)>>  
+
+;<ROOM NW-HEAD
+      (IN ROOMS)
+      (DESC "Head")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are in the small head on board the Night Wind. It's so small there's
+only enough room to turn around to get out aft.")
+      (SOUTH TO NW-LOCKER)
+      (GLOBAL DECK TRAWLER)
+      (LINE 4)
+      (STATION NW-LOCKER)>
+
+<ROOM NW-LOCKER
+      (IN ROOMS)
+      (DESC "Storage Locker")
+      (FLAGS RLANDBIT ONBIT)
+      ;(NORTH TO NW-HEAD)
+      (SOUTH TO NW-CREW-QTRS)
+      (GLOBAL DECK TRAWLER)
+      (LINE 4)
+      (PSEUDO "LOCKER" GLOBAL-ROOM-F)
+      (STATION NW-CREW-QTRS)
+	(ACTION NW-LOCKER-F)>
+
+<ROUTINE NW-LOCKER-F (RARG)
+ <COND (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"You are in a fairly empty storage locker. It must have been cleaned out
+after its last trawling expedition." ,SPARE-PARTS-STR CR>)>>
+
+<OBJECT DRILL
+	(IN NW-LOCKER)
+	(DESC "portable drill")
+	(SYNONYM DRILL BIT PANEL SWITCH)
+	(ADJECTIVE WATERP PORTAB ;BATTER ;OPERAT ;DRILL)
+	(FLAGS TAKEBIT CONTBIT TOOLBIT)
+	(CAPACITY 3)
+	(STATION 25) ;"metal content"
+	(CONTFCN DRILL-F)
+	(ACTION DRILL-F)>
+
+<ROUTINE TELL-SWITCH (STR)
+	 <TELL "The switch is now in the \"" .STR "\" position." CR>>
+	 
+<ROUTINE DRILL-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE>
+			    <PRSO? ,BATTERY>>
+		       <COND (<ITAKE>
+			      <TELL "Taken.">
+			      <COND (,DRILL-POWERED
+				     <SETG DRILL-POWERED <>>
+				     <COND (,DRILL-ON
+					    <DISABLE <INT I-DRILL>>
+					    <TELL
+				      " The drill bit winds to a halt.">)>)>
+			      <CRLF>)>
+		       <RTRUE>)>)
+	       (<AND <VERB? LAMP-ON>
+		     <PRSO? ,DRILL>>
+		<COND (,DRILL-ON
+		       <TELL-ALREADY "on">)
+		      (,DRILL-POWERED
+		       <SETG DRILL-ON T>
+		       <ENABLE <INT I-DRILL>>
+		       <TELL "The drill bit begins to spin." CR>)
+		      (T
+		       <SETG DRILL-ON T>
+		       <TELL-SWITCH "on">)>)
+	       (<AND <VERB? LAMP-OFF>
+		     <PRSO? ,DRILL>>
+		<COND (<NOT ,DRILL-ON>
+		       <TELL-ALREADY "off">)
+		      (,DRILL-POWERED
+		       <SETG DRILL-ON <>>
+		       <DISABLE <INT I-DRILL>>
+		       <TELL "The drill bit stops spinning." CR>)
+		      (T
+		       <SETG DRILL-ON <>>
+		       <TELL-SWITCH "off">)>)
+	       (<VERB? EXAMINE>
+		<TELL "This waterproof wonder features a permanent bit">
+		<COND (<QUEUED? I-DRILL>
+		       <TELL " which is turning">)>
+		<TELL ", a panel which is ">
+		<COND (<FSET? ,DRILL ,OPENBIT>
+		       <TELL "open">
+		       <COND (,DRILL-POWERED
+			      <TELL " with a C battery inside">)
+			     (T <TELL ", revealing space for a C battery">)>)
+		      (T <TELL "closed">)>
+		<TELL ", and a switch which is in the \"">
+		<COND (,DRILL-ON <TELL "on">) (T <TELL "off">)>
+		<TELL "\" position." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM ,V?EXAMINE ,DRILL>
+		<RTRUE>)
+	       (<AND <VERB? OPEN>
+		     <IN? ,BATTERY ,DRILL>
+		     <==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		     <NOT <AIRTIGHT-ROOM?>>>
+		<FSET ,BATTERY ,RMUNGBIT>
+		<SETG DRILL-POWERED <>>
+		<RFALSE>)
+	       (<PRSI? ,DRILL>
+		<COND (<VERB? PUT>
+		       <COND (<NOT <FSET? ,DRILL ,OPENBIT>>
+			      <SETG P-IT-OBJECT ,DRILL>
+			      <TELL-CLOSED "panel">)
+			     (<PRSO? ,BATTERY>
+			      <MOVE ,BATTERY ,DRILL>
+			      <COND (<FSET? ,BATTERY ,RMUNGBIT>
+				     <TELL-NOW ,BATTERY "in the drill">
+				     <RTRUE>)>
+			      <SETG DRILL-POWERED T>
+			      <COND (,DRILL-ON
+				     <ENABLE <INT I-DRILL>>
+				     <TELL "The drill bit starts spinning." CR>)
+				    (T
+				     <TELL-NOW ,BATTERY "in the drill">)>)
+			     (T <TELL-NO-FIT>)>)
+		      (<VERB? TAKE ASK-ABOUT TELL PUT-AGAINST PUT-ON>
+		       <RFALSE>)
+		      (<AND <OR <NOT ,DRILL-ON>
+			   	<NOT ,DRILL-POWERED>>
+			    <NOT <PRSO? ,GLOBAL-TIME>>>
+		       <SETG P-IT-OBJECT ,DRILL>
+		       <TELL "The " D ,DRILL " isn't running!" CR>)>)>>
+
+<GLOBAL DRILL-ON <>>
+<GLOBAL DRILL-POWERED <>>
+
+<OBJECT HOLE-1
+        (IN LOCAL-GLOBALS)
+        ;(DESC "hole")
+	(SDESC "hole you drilled")
+	(FLAGS INVISIBLE NDESCBIT)
+	(SYNONYM HOLE DRILLE)
+	(ADJECTIVE FIRST 1ST HOLE I)
+	(ACTION GENERIC-HOLE-F)>
+
+<OBJECT HOLE-2
+        (IN LOCAL-GLOBALS)
+        ;(DESC "hole")
+	(SDESC "second hole you drilled")
+        (FLAGS INVISIBLE NDESCBIT)
+	(SYNONYM HOLE DRILLE)
+	(ADJECTIVE SECOND 2ND HOLE I)
+	(ACTION GENERIC-HOLE-F)>
+
+<ROUTINE GENERIC-HOLE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "As holes go, it's very nice." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "You see nothing new." CR>)
+	       (<VERB? REACH-IN>
+		<TELL "It's not that big." CR>)>>
+
+<ROUTINE ADD-HOLE (OBJ "AUX" I)
+	 <COND (<FSET? ,HOLE-1 ,INVISIBLE>
+		<FCLEAR ,HOLE-1 ,INVISIBLE>
+		<MOVE ,HOLE-1 .OBJ>)
+	       (<FSET? ,HOLE-2 ,INVISIBLE>
+		<FCLEAR ,HOLE-2 ,INVISIBLE>
+		<PUTP ,HOLE-1 ,P?SDESC "first hole you drilled">
+		<MOVE ,HOLE-2 .OBJ>)
+	       (T <TELL "The drill should be dead now." CR>)>
+         <SET I <INT I-DRILL>>
+	 <PUT .I ,C-TICK <- <GET .I ,C-TICK> 1>>
+	 <COND (<0? <GET .I ,C-TICK>>
+		<I-DRILL>)>
+	 <RTRUE>>
+
+<ROOM NW-CREW-QTRS
+      (IN ROOMS)
+      (DESC "Crew's Quarters")
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH TO NW-LOCKER)
+      (SOUTH TO NW-GALLEY)
+      (UP TO NW-FORE-DECK)
+      (GLOBAL DECK TRAWLER LADDER-BOTTOM)
+      (LINE 4)
+      (STATION NW-CREW-QTRS)
+      (PSEUDO "BUNKS" BUNKS-PSEUDO)
+      (ACTION NW-CREW-QTRS-F)>
+
+<ROUTINE TELL-CREW-QTRS ()
+	<TELL
+"You are below deck in the crew's quarters. Narrow, uncomfortable bunks
+line the bulkheads, and you note the similarity between this area and a
+sardine can. Sleeping here is necessary but uninviting. A ladder leads
+up and out to the fore deck." CR>>
+
+<ROUTINE NW-CREW-QTRS-F (RARG "AUX" W)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL-CREW-QTRS>)
+	       (<==? .RARG ,M-ENTER>
+		<MOVE-SHARED-OBJECTS ,NW-CREW-QTRS>
+		<RFALSE>)
+	       ;(<==? .RARG ,M-BEG>
+		<COND (<AND <NOT ,GROGGIED>
+			    ,AT-SEA
+			    <SET W <W-KLUDGE>>>
+		       <SETG GROGGIED T>
+		       <START-SENTENCE .W>
+		       <TELL " looks up groggily. ">
+		       <RFALSE>)>)>>
+
+<ROOM NW-GALLEY
+      (IN ROOMS)
+      (DESC "Galley")
+      (FLAGS RLANDBIT ONBIT)
+      ;(LDESC
+"You are in the Night Wind's tiny galley. A stove and a small
+table are all that are here. A ladder leads
+up through the deck overhead to the wheelhouse for feeding the captain
+in rough weather.")
+      (NORTH TO NW-CREW-QTRS)
+      (SOUTH TO NW-LOUNGE)
+      (UP TO NW-WHEELHOUSE)
+      (GLOBAL DECK TRAWLER LADDER-BOTTOM)
+      (LINE 4)
+      (STATION NW-GALLEY)
+      (ACTION NW-GALLEY-F)>
+
+<ROUTINE NW-GALLEY-F (RARG)
+	 <GENERIC-GALLEY-F .RARG ,NW-GALLEY>>
+
+<ROOM NW-LOUNGE
+      (IN ROOMS)
+      (DESC "Lounge")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"You are in the crew's lounge, a cramped cabin with little more than
+a table and a few chairs. To aft is the captain's cabin, while
+the galley lies forward. A ladder leads into the engine room.")
+      (NORTH TO NW-GALLEY)
+      (SOUTH TO NW-CAPT-CABIN)
+      (UP TO NW-AFT-DECK)
+      (DOWN TO NW-ENGINE-ROOM)
+      (GLOBAL DECK TRAWLER LADDER-BOTTOM LADDER-TOP)
+      (LINE 4)
+      (STATION NW-LOUNGE)
+      (ACTION NW-LOUNGE-F)>
+
+<ROUTINE NW-LOUNGE-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,GLOBAL-SURFACE ,P?SDESC "table">
+		<MOVE-SHARED-OBJECTS ,NW-LOUNGE>
+		<RFALSE>)>>
+
+<ROOM NW-CAPT-CABIN
+      (IN ROOMS)
+      (DESC "Captain's Cabin")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"You are in the captain's cabin. A large and
+comfortable-looking bunk is one of the many comforts in the
+cabin. The forward doorway leads to the crew's lounge.")
+      (NORTH TO NW-LOUNGE)
+      (GLOBAL DECK TRAWLER)
+      (LINE 4)
+      (STATION NW-LOUNGE)>
+
+<ROOM NW-ENGINE-ROOM
+      (IN ROOMS)
+      (DESC "Engine Room")
+      (FLAGS RLANDBIT ONBIT)
+      (UP TO NW-LOUNGE)
+      (GLOBAL DECK TRAWLER LADDER-BOTTOM)
+      (LINE 4)
+      (DESCFCN 100) ;"metal content"
+      (PSEUDO "ENGINE" ENGINE-PSEUDO)
+      (STATION NW-LOUNGE)
+      (ACTION NW-ENGINE-ROOM-F)>
+
+<ROUTINE NW-ENGINE-ROOM-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL
+"You are in a tiny, smelly space where it is difficult to breathe.
+By your feet lie the diesel engines of the " D ,TRAWLER "." CR>)>>
\ No newline at end of file
diff --git a/clock.zap b/clock.zap
new file mode 100644
index 0000000..d30f8c3
--- /dev/null
+++ b/clock.zap
@@ -0,0 +1,98 @@
+
+
+	.FUNCT	QUEUE,RTN,TICK,CINT
+	CALL	INT,RTN >CINT
+	PUT	CINT,C-TICK,TICK
+	RETURN	CINT
+
+
+	.FUNCT	INT,RTN,E,C,INT
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E \?ELS5
+	SUB	C-INTS,C-INTLEN >C-INTS
+	ADD	C-TABLE,C-INTS >INT
+	PUT	INT,C-RTN,RTN
+	RETURN	INT
+?ELS5:	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	RETURN	C
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	ENABLED?,RTN,C,E
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E /FALSE
+	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	GET	C,C-ENABLED?
+	ZERO?	STACK \TRUE
+	RFALSE	
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	QUEUED?,RTN,C,E
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E /FALSE
+	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	GET	C,C-ENABLED?
+	ZERO?	STACK /FALSE
+	GET	C,C-TICK
+	ZERO?	STACK \TRUE
+	RFALSE	
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	CLOCKER,C,E,TICK,FLG=0,VAL
+	ZERO?	CLOCK-WAIT /?CND1
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	RFALSE	
+?CND1:	INC	'PRESENT-TIME
+	GRTR?	PRESENT-TIME,1439 \?CND5
+	SUB	PRESENT-TIME,1440 >PRESENT-TIME
+?CND5:	ZERO?	WATCH-WOUND /?CND8
+	IGRTR?	'WATCH-MOVES,59 \?CND8
+	SUB	WATCH-MOVES,60 >WATCH-MOVES
+	IGRTR?	'WATCH-SCORE,11 \?CND12
+	SET	'WATCH-SCORE,0
+?CND12:	
+?CND8:	CALL	WATCH-UPDATE
+	ADD	C-TABLE,C-INTS >C
+	ADD	C-TABLE,C-TABLELEN >E
+?PRG18:	EQUAL?	C,E \?ELS22
+	RETURN	FLG
+?ELS22:	GET	C,C-ENABLED?
+	ZERO?	STACK /?CND20
+	GET	C,C-TICK >TICK
+	ZERO?	TICK \?ELS27
+	JUMP	?CND20
+?ELS27:	SUB	TICK,1
+	PUT	C,C-TICK,STACK
+	GRTR?	TICK,1 /?CND25
+	GET	C,C-RTN
+	CALL	STACK >VAL
+	ZERO?	VAL /?CND25
+	ZERO?	FLG /?THN38
+	EQUAL?	VAL,M-FATAL \?CND20
+?THN38:	SET	'FLG,VAL
+?CND25:	
+?CND20:	ADD	C,C-INTLEN >C
+	JUMP	?PRG18
+
+
+	.FUNCT	WATCH-UPDATE
+	IN?	WATCH,PLAYER \?ELS5
+	SET	'MOVES,WATCH-MOVES
+	SET	'SCORE,WATCH-SCORE
+	RETURN	SCORE
+?ELS5:	SET	'MOVES,99
+	SET	'SCORE,111
+	RETURN	SCORE
+
+	.ENDI
diff --git a/clock.zil b/clock.zil
new file mode 100644
index 0000000..2997bcf
--- /dev/null
+++ b/clock.zil
@@ -0,0 +1,108 @@
+"CLOCK for TOA #2
+Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+
+<CONSTANT C-TABLELEN 246>
+
+<GLOBAL C-TABLE <ITABLE NONE %<COND (<GASSIGNED? PREDGEN> 123) (T 246)>>>
+
+;<GLOBAL C-DEMONS 300>
+
+<GLOBAL C-INTS 246>
+
+<CONSTANT C-INTLEN 6>
+
+<CONSTANT C-ENABLED? 0>
+
+<CONSTANT C-TICK 1>
+
+<CONSTANT C-RTN 2>
+
+;<ROUTINE DEMON (RTN TICK "AUX" CINT)
+	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE QUEUE (RTN TICK "AUX" CINT)
+	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE INT (RTN "AUX" E C INT)
+	 #DECL ((RTN) ATOM (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 "AUX" C E)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E> <RFALSE>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN>
+			<COND (<0? <GET .C ,C-ENABLED?>> <RFALSE>)
+			      (T <RTRUE>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<ROUTINE QUEUED? (RTN "AUX" C E)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E> <RFALSE>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN>
+			<COND (<OR <0? <GET .C ,C-ENABLED?>>
+				   <0? <GET .C ,C-TICK>>>
+			       <RFALSE>)
+			      (T <RTRUE>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<GLOBAL CLOCK-WAIT <>>
+
+<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 1439>
+		<SETG PRESENT-TIME <- ,PRESENT-TIME 1440>>)>
+	 ;<COND (<G? ,PRESENT-TIME 1019>
+		<SETG BUSINESS-HOURS? <>>)
+	       (<G? ,PRESENT-TIME 539>
+		<SETG BUSINESS-HOURS? T>)>
+	 <COND (,WATCH-WOUND
+		<COND (<G? <SETG WATCH-MOVES <+ ,WATCH-MOVES 1>> 59>
+		       <SETG WATCH-MOVES <- ,WATCH-MOVES 60>>
+		       <COND (<G? <SETG WATCH-SCORE <+ ,WATCH-SCORE 1>> 11>
+		       	      <SETG WATCH-SCORE 0>)>)>)>
+	 <WATCH-UPDATE>
+	 <SET C <REST ,C-TABLE ,C-INTS ;<COND (,P-WON ,C-INTS) (T ,C-DEMONS)>>>
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <REPEAT ()
+		 <COND (<==? .C .E> <RETURN .FLG>)
+		       (<NOT <0? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<0? .TICK>)
+			      (T
+			       <PUT .C ,C-TICK <- .TICK 1>>
+			       <COND (<AND <NOT <G? .TICK 1>>
+				           <SET VAL <APPLY <GET .C ,C-RTN>>>>
+				      ;<COND (,DEBUG
+					     <TELL "[Interrupt returning T.]" CR>)>
+				      <COND (<OR <NOT .FLG>
+						 <==? .VAL ,M-FATAL>>
+					     <SET FLG .VAL>)>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<ROUTINE WATCH-UPDATE ()
+	 <COND (<IN? ,WATCH ,PLAYER>
+		<SETG MOVES ,WATCH-MOVES>
+		<SETG SCORE ,WATCH-SCORE>)
+	       (T
+		<SETG MOVES 99>
+		<SETG SCORE 111>)>>
diff --git a/events.zap b/events.zap
new file mode 100644
index 0000000..2b4c12a
--- /dev/null
+++ b/events.zap
@@ -0,0 +1,1392 @@
+
+
+	.FUNCT	I-UNWOUND
+	SET	'WATCH-WOUND,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	I-BUSINESS-HOURS
+	ZERO?	BUSINESS-HOURS? /?ELS5
+	SET	'BUSINESS-HOURS?,FALSE-VALUE
+	IN?	PLAYER,MCGINTY-HQ \?ELS9
+	MOVE	PLAYER,WHARF-ROAD-2
+	SET	'HERE,WHARF-ROAD-2
+	PRINTI	"""Closing time,"" says "
+	CALL	DPRINT,MCGINTY
+	PRINTI	" as he escorts you out to the street..."
+	CRLF	
+	CRLF	
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?ELS9:	IN?	PLAYER,OUTFITTERS-HQ \?ELS13
+	MOVE	PLAYER,WHARF-ROAD-4
+	SET	'HERE,WHARF-ROAD-4
+	PRINTI	"""Sorry, but it's closing time,"" the salesman says, then shows you out..."
+	CRLF	
+	CRLF	
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?ELS13:	IN?	PLAYER,BANK \FALSE
+	MOVE	PLAYER,SHORE-ROAD-2
+	SET	'HERE,SHORE-ROAD-2
+	PRINTI	"The teller says, ""You'll have to leave. It's 5:00."" A guard escorts you out..."
+	CRLF	
+	CRLF	
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?ELS5:	SET	'BUSINESS-HOURS?,TRUE-VALUE
+	CALL	QUEUE,I-BUSINESS-HOURS,480
+	PUT	STACK,0,1
+	RFALSE	
+
+
+	.FUNCT	I-FERRY-APPROACHING
+	CALL	QUEUE,I-FERRY-APPROACHING,-1
+	PUT	STACK,0,1
+	FCLEAR	FERRY,INVISIBLE
+	IN?	WEASEL,GLOBAL-FERRY \?CND1
+	MOVE	WEASEL,FERRY
+?CND1:	EQUAL?	HERE,FERRY-LANDING,SHORE-ROAD-1,SHORE-ROAD-2 \FALSE
+	PRINTR	"The ferry approaches the landing."
+
+
+	.FUNCT	I-FERRY,WEASEL-HERE?=0
+	CALL	INT,I-FERRY-APPROACHING
+	PUT	STACK,0,0
+	CALL	QUEUE,I-FERRY-LEAVING,5
+	PUT	STACK,0,1
+	CALL	QUEUE,I-FERRY-GONE,8
+	PUT	STACK,0,1
+	MOVE	FERRY,FERRY-LANDING
+	IN?	WEASEL,FERRY-LANDING \?ELS3
+	CALL	QUEUED?,I-TRAITOR-MEETING
+	ZERO?	STACK \?ELS3
+	SET	'WEASEL-HERE?,TRUE-VALUE
+	MOVE	WEASEL,FERRY
+	JUMP	?CND1
+?ELS3:	IN?	WEASEL,FERRY \?CND1
+	MOVE	WEASEL,FERRY-LANDING
+	IN?	JOHNNY,FERRY-LANDING \?ELS10
+	ZERO?	WEASEL-BLOWN /?ELS10
+	CALL	ROUGH-JUSTICE
+	JUMP	?CND1
+?ELS10:	EQUAL?	SHIP-CHOSEN,TRAWLER \?ELS14
+	CALL	ESTABLISH-GOAL,WEASEL,NW-CREW-QTRS
+	JUMP	?CND1
+?ELS14:	EQUAL?	SHIP-CHOSEN,SALVAGER \?CND1
+	CALL	ESTABLISH-GOAL,WEASEL,MM-CREW-QTRS
+?CND1:	EQUAL?	HERE,FERRY-LANDING \?ELS21
+	PRINTI	"The ferry arrives. Some passengers get off and others get on."
+	ZERO?	WEASEL-HERE? /?ELS26
+	CALL	TELL-FERRY-KLUDGE,STR?430
+	JUMP	?CND24
+?ELS26:	IN?	WEASEL,FERRY-LANDING \?CND24
+	CALL	QUEUED?,I-TRAITOR-MEETING
+	ZERO?	STACK \?CND24
+	CALL	TELL-FERRY-KLUDGE,STR?431
+	IN?	ENVELOPE,PLAYER \?CND24
+	CRLF	
+	CALL	WEASEL-BEATS-YOU
+?CND24:	CRLF	
+	RTRUE	
+?ELS21:	EQUAL?	HERE,SHORE-ROAD-1,SHORE-ROAD-2 \FALSE
+	PRINTR	"The ferry arrives at the landing."
+
+
+	.FUNCT	TELL-FERRY-KLUDGE,STR
+	PRINTI	" The Weasel "
+	PRINT	STR
+	PRINTI	"."
+	RTRUE	
+
+
+	.FUNCT	I-FERRY-LEAVING
+	CALL	QUEUE,I-FERRY-LEAVING,-1
+	PUT	STACK,0,1
+	MOVE	FERRY,LOCAL-GLOBALS
+	IN?	WEASEL,FERRY \?CND1
+	IN?	PASSBOOK,WEASEL \?CND1
+	MOVE	WEASEL,LOCAL-GLOBALS
+?CND1:	EQUAL?	HERE,FERRY-LANDING,SHORE-ROAD-1,SHORE-ROAD-2 \FALSE
+	PRINTR	"The ferry pulls away, heading for the mainland."
+
+
+	.FUNCT	I-FERRY-GONE
+	CALL	INT,I-FERRY-LEAVING
+	PUT	STACK,0,0
+	CALL	QUEUE,I-FERRY-APPROACHING,109
+	PUT	STACK,0,1
+	CALL	QUEUE,I-FERRY,112
+	PUT	STACK,0,1
+	FSET	FERRY,INVISIBLE
+	IN?	WEASEL,FERRY \FALSE
+	MOVE	WEASEL,GLOBAL-FERRY
+	RFALSE	
+
+
+	.FUNCT	I-DISGUSTING-WEASEL-KLUDGE,WGT
+	IN?	PASSBOOK,WEASEL /FALSE
+	GET	GOAL-TABLES,WEASEL-C >WGT
+	GET	WGT,GOAL-F
+	EQUAL?	STACK,SHANTY /FALSE
+	PUT	WGT,ATTENTION,0
+	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+	RFALSE	
+
+
+	.FUNCT	I-FIRST-MEETING
+	EQUAL?	FM-CTR,5 \?ELS5
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	RFALSE	
+?ELS5:	IN?	JOHNNY,SHANTY \FALSE
+	IN?	PETE,SHANTY \FALSE
+	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,SHANTY \FALSE
+	ZERO?	FM-CTR \?ELS14
+	GRTR?	PRESENT-TIME,535 \?CND15
+	CALL	I-PLOT-NEVER-STARTS
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	RFALSE	
+?CND15:	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"""Sit down and we'll talk,"" "
+	CALL	DPRINT,JOHNNY
+	PRINTR	" says."
+?ELS14:	EQUAL?	FM-CTR,1 \?ELS21
+	IN?	WEASEL,SHANTY \?ELS26
+	SET	'FM-CTR,2
+	CALL	I-FIRST-MEETING
+	RSTACK	
+?ELS26:	ZERO?	WAITING-FOR-WEASEL /?ELS28
+	GRTR?	PRESENT-TIME,525 \FALSE
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	CALL	I-PLOT-NEVER-STARTS
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"Pete looks at Johnny and says, ""Weasel ain't gonna show.""
+""Guess not,"" replies Johnny. ""Without "
+	CALL	DPRINT,WEASEL
+	PRINTR	", there's no deal. Who knows what that creep is up to?"""
+?ELS28:	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"Johnny says, ""When "
+	CALL	DPRINT,WEASEL
+	PRINTI	" shows, I'll tell ya what we got."""
+	CRLF	
+	SET	'WAITING-FOR-WEASEL,TRUE-VALUE
+	RETURN	WAITING-FOR-WEASEL
+?ELS21:	GRTR?	BLOOD-ALCOHOL,10 \?ELS42
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	CALL	I-PLOT-NEVER-STARTS
+	PRINTR	"Pete turns to Johnny and says, ""This joker's drunk!""
+""Yeah,"" Johnny says. He looks at you. ""Some diver! We'll find someone else."""
+?ELS42:	EQUAL?	FM-CTR,2 \?ELS46
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"At Pete's request, "
+	CALL	DPRINT,WEASEL
+	PRINTI	" joins you. Johnny then whispers that he's come across some sunken "
+	CALL	DPRINT,GLOBAL-TREASURE
+	PRINTI	"."
+	CRLF	
+	SET	'FM-CTR,3
+	SET	'I-WAIT-RTN,I-FIRST-MEETING
+	SET	'I-WAIT-DURATION,2
+	RETURN	I-WAIT-DURATION
+?ELS46:	EQUAL?	FM-CTR,3 \?ELS50
+	ZERO?	I-WAIT-FLAG /?ELS55
+	PRINTI	"Unfortunately, this interrupts Johnny's explanation of what the meeting is about."
+	CRLF	
+	SET	'I-WAIT-DURATION,2
+	RETURN	I-WAIT-DURATION
+?ELS55:	GRTR?	I-WAIT-DURATION,0 \?ELS60
+	EQUAL?	I-WAIT-RTN,I-FIRST-MEETING /FALSE
+?ELS60:	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"Johnny explains that they need more money to get started. They chose you because they know you've salted some money away and you're a great diver. He asks if you're interested in the deal."
+	CRLF	
+	SET	'FM-CTR,4
+	RETURN	FM-CTR
+?ELS50:	EQUAL?	FM-CTR,4 \FALSE
+	GRTR?	PRESENT-TIME,539 \?ELS73
+	EQUAL?	PRSA,V?NO,V?YES /?ELS73
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	CALL	I-PLOT-NEVER-STARTS
+	PRINTR	"Pete turns to Johnny. ""We don't want anyone who can't decide.""
+""Right,"" says Johnny. ""We'll find someone else."" He turns to you. ""Say a word about this and you're history!"""
+?ELS73:	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Well, what is it? Yes or no?"" Pete asks anxiously."
+
+
+	.FUNCT	SAMPLE-TREASURE-F
+	EQUAL?	PRSA,V?TAKE /?THN6
+	EQUAL?	PRSA,V?ASK-FOR \?ELS5
+	EQUAL?	PRSO,JOHNNY \?ELS5
+?THN6:	IN?	MCGINTY,HERE \?ELS14
+	CALL	PERFORM,V?TELL,MCGINTY,SAMPLE-TREASURE
+	RTRUE	
+?ELS14:	PRINTR	"Red pulls it back. ""If we get the loot, there'll be plenty for all."""
+?ELS5:	EQUAL?	PRSA,V?TURN \FALSE
+	CALL	DPRINT,JOHNNY
+	PRINTR	" has it."
+
+
+	.FUNCT	I-SECOND-MEETING
+	GRTR?	PRESENT-TIME,585 \?CND1
+	LESS?	SM-CTR,2 /?THN6
+	GRTR?	HOW-HUNGRY,3 \?CND1
+?THN6:	CALL	ALL-GO-HOME
+	CALL	I-PLOT-NEVER-STARTS
+	SET	'SM-CTR,4
+?CND1:	EQUAL?	SM-CTR,4 \?ELS12
+	CALL	INT,I-SECOND-MEETING
+	PUT	STACK,0,0
+	RTRUE	
+?ELS12:	EQUAL?	HERE,WINDING-ROAD-1 /?ELS14
+	CALL	INT,I-SECOND-MEETING
+	PUT	STACK,0,0
+	RTRUE	
+?ELS14:	GRTR?	SM-CTR,1 \?ELS16
+	IN?	MCGINTY,WINDING-ROAD-1 /?THN19
+	IN?	MCGINTY,WINDING-ROAD-2 \?ELS16
+?THN19:	CALL	JIGS-UP,STR?434
+	RSTACK	
+?ELS16:	LESS?	SM-CTR,2 \?ELS22
+	IN?	WEASEL,WINDING-ROAD-1 \?ELS27
+	IN?	JOHNNY,WINDING-ROAD-1 \?ELS27
+	IN?	PETE,WINDING-ROAD-1 \?ELS27
+	SET	'SM-CTR,2
+	CALL	I-SECOND-MEETING
+	RTRUE	
+?ELS27:	ZERO?	SM-CTR \FALSE
+	IN?	JOHNNY,WINDING-ROAD-1 \FALSE
+	SET	'SM-CTR,1
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"Johnny says, ""We'll start when everyone's here."""
+?ELS22:	GRTR?	BLOOD-ALCOHOL,10 \?ELS40
+	SET	'SM-CTR,4
+	CALL	INT,I-SECOND-MEETING
+	PUT	STACK,0,0
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	CALL	ALL-GO-HOME
+	CALL	I-PLOT-NEVER-STARTS
+	PRINTI	"""I won't risk everything on a drunk diver!"" "
+	CALL	DPRINT,WEASEL
+	PRINTR	" says.
+""You're right,"" says Johnny. ""We're calling this off."""
+?ELS40:	EQUAL?	SM-CTR,2 \?ELS44
+	RANDOM	2 >WRECK-FOUND
+	EQUAL?	WRECK-FOUND,1 \?ELS47
+	SET	'SAMPLE-TREASURE,GOLD-COIN
+	JUMP	?CND45
+?ELS47:	SET	'SAMPLE-TREASURE,DINNER-PLATE
+?CND45:	PUTP	SAMPLE-TREASURE,P?ACTION,SAMPLE-TREASURE-F
+	MOVE	SAMPLE-TREASURE,JOHNNY
+	SET	'P-IT-OBJECT,SAMPLE-TREASURE
+	SET	'SM-CTR,3
+	SET	'I-WAIT-DURATION,6
+	SET	'I-WAIT-RTN,I-SECOND-MEETING
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"Johnny nods, then pulls out "
+	CALL	APRINT,SAMPLE-TREASURE
+	PRINTR	" he says he came across while on a shark hunt."
+?ELS44:	EQUAL?	SM-CTR,3 \FALSE
+	ZERO?	I-WAIT-FLAG /?ELS58
+	PRINTI	"This interrupts Johnny's explanation, which makes him angry."
+	CRLF	
+	SET	'I-WAIT-DURATION,6
+	RETURN	I-WAIT-DURATION
+?ELS58:	GRTR?	I-WAIT-DURATION,0 \?ELS63
+	EQUAL?	I-WAIT-RTN,I-SECOND-MEETING /FALSE
+?ELS63:	CALL	INT,I-SECOND-MEETING
+	PUT	STACK,0,0
+	SUB	705,PRESENT-TIME
+	CALL	QUEUE,I-OTHERS-MEET,STACK
+	PUT	STACK,0,1
+	SET	'SM-CTR,4
+	SET	'MEETINGS-COMPLETED,2
+	PUT	MOVEMENT-GOALS,JOHNNY-C,JOHNNY-CONTINUES-TABLE
+	CALL	IMOVEMENT,JOHNNY,I-JOHNNY
+	CALL	RATING-UPD,20
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	CRLF	
+	PRINTI	"""We're not sure which wreck to salvage,"" Johnny says. ""Since you're joining up, we're hoping you'll identify where the "
+	CALL	DPRINT,SAMPLE-TREASURE
+	PRINTI	" came from, and then do the dive for us. I'll captain, Pete will cook, and "
+	CALL	DPRINT,WEASEL
+	PRINTI	" will crew.
+
+Johnny winks at you. ""We'll need you to supply the minutes of longitude and latitude of the wreck. Get $500 and meet me at Point Lookout at 10:45. Then we'll provision the boat.""
+
+He turns to the others. ""We'll meet in "
+	CALL	DPRINT,SHANTY
+	PRINTR	" at 11:45 to discuss final arrangements.
+
+""We're all in this now,"" Johnny says to the group. ""I'm not gonna chance this operation if one of you doesn't show. We need everyone to pull this off. If anyone tries anything stupid, you won't live to regret it."""
+
+
+	.FUNCT	I-THIRD-MEETING,JMG
+	EQUAL?	HERE,POINT-LOOKOUT /?ELS3
+	CALL	INT,I-THIRD-MEETING
+	PUT	STACK,0,0
+	RFALSE	
+?ELS3:	IN?	JOHNNY,POINT-LOOKOUT \FALSE
+	LESS?	TM-CTR,6 \?CND1
+	INC	'TM-CTR
+?CND1:	IN?	MCGINTY,POINT-LOOKOUT \?ELS15
+	CALL	JIGS-UP,STR?435
+	RSTACK	
+?ELS15:	IN?	MCGINTY,OCEAN-ROAD-3 \?ELS17
+	CALL	IN-MOTION?,MCGINTY
+	ZERO?	STACK \?ELS17
+	CALL	JIGS-UP,STR?436
+	RSTACK	
+?ELS17:	EQUAL?	TM-CTR,1 \?ELS21
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"Johnny turns toward you. ""Well? Did you bring the money?"""
+?ELS21:	GRTR?	BLOOD-ALCOHOL,10 \?ELS25
+	CALL	JIGS-UP,STR?437
+	RSTACK	
+?ELS25:	EQUAL?	TM-CTR,4 \?ELS27
+	PRINTR	"Johnny glares at you as if you were a sea slug."
+?ELS27:	EQUAL?	TM-CTR,5 \?ELS31
+	CALL	JIGS-UP,STR?438
+	RSTACK	
+?ELS31:	EQUAL?	TM-CTR,6 \?ELS33
+	SET	'TM-CTR,7
+	CALL	RATING-UPD,20
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	CRLF	
+	PRINTI	"""Glad you're with us. Since you're okay, I'll level with you. Before Hevlin died, he told me he gave you the book. He also said you could handle this job. He's the one who gave me the "
+	CALL	DPRINT,SAMPLE-TREASURE
+	PRINTI	". I didn't want to say anything in front of Pete and "
+	CALL	DPRINT,WEASEL
+	PRINTI	" just in case.
+
+""We're gonna need a boat, but I don't know which one. If you need deep-sea diving gear, it'll have to be the "
+	CALL	DPRINT,SALVAGER
+	PRINTI	". Is the "
+	CALL	DPRINT,GLOBAL-TREASURE
+	PRINTR	" more than 200 feet deep?"""
+?ELS33:	EQUAL?	TM-CTR,7 \?ELS37
+	GRTR?	PRESENT-TIME,675 \?CND38
+	CALL	JIGS-UP,STR?439
+?CND38:	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"Johnny looks impatient. ""Don't confuse things. A yes or no will do."""
+?ELS37:	EQUAL?	TM-CTR,8 \FALSE
+	CALL	ESTABLISH-GOAL,JOHNNY,OUTFITTERS-HQ
+	PUT	MOVEMENT-GOALS,JOHNNY-C,JOHNNY-COMPLETES-TABLE
+	GET	MOVEMENT-GOALS,JOHNNY-C >JMG
+	SUB	838,PRESENT-TIME
+	PUT	JMG,MG-TIME,STACK
+	CALL	IMOVEMENT,JOHNNY,I-JOHNNY
+	CALL	INT,I-THIRD-MEETING
+	PUT	STACK,0,0
+	SET	'MEETINGS-COMPLETED,3
+	PRINTI	"""We'll rent the "
+	CALL	DPRINT,SHIP-CHOSEN
+	PRINTR	". Let's go get what we need."""
+
+
+	.FUNCT	I-EQUIP,MCG-GT,V=0
+	IN?	PLAYER,OUTFITTERS-HQ \?ELS5
+	IN?	MCGINTY,OUTFITTERS-HQ \?ELS10
+	INC	'WARNING-CTR
+	EQUAL?	WARNING-CTR,7 \?CND11
+	PRINTI	"Johnny leans over and whispers, ""Let's wait out McGinty. He should leave soon."""
+	CRLF	
+	SET	'V,TRUE-VALUE
+?CND11:	GRTR?	I-WAIT-DURATION,0 \?ELS20
+	SET	'I-WAIT-DURATION,0
+	SET	'I-WAIT-RTN,FALSE-VALUE
+	PRINTI	"Johnny ends his conversation, and "
+	CALL	DPRINT,MCGINTY
+	PRINTR	" asks the salesman some questions."
+?ELS20:	GET	GOAL-TABLES,MCGINTY-C >MCG-GT
+	GET	MCG-GT,GOAL-ENABLE
+	ZERO?	STACK /?ELS24
+	GET	MCG-GT,GOAL-F
+	EQUAL?	STACK,MCGINTY-HQ \?ELS24
+	ZERO?	MCGINTY-KNOWS \?CND27
+	SET	'MCGINTY-MEETS-WEASEL,TRUE-VALUE
+?CND27:	SET	'I-WAIT-DURATION,9
+	SET	'I-WAIT-RTN,I-EQUIP
+	RFALSE	
+?ELS24:	EQUAL?	PRSA,V?RENT,V?BUY \?ELS31
+	EQUAL?	PRSO,FERRY-TOKEN /?ELS31
+	SET	'MCGINTY-KNOWS,TRUE-VALUE
+	CALL	INT,I-MCGINTY-FOLLOWS
+	PUT	STACK,0,0
+	CALL	INT,I-EQUIP
+	PUT	STACK,0,0
+	MOVE	MCGINTY,WHARF-ROAD-4
+	CALL	ESTABLISH-GOAL,MCGINTY,MCGINTY-HQ
+	CALL	DPRINT,MCGINTY
+	PRINTI	" grins as he realizes what you're up to."
+	CALL	SAY-MCGINTY-KNOWS
+	RSTACK	
+?ELS31:	GRTR?	PRESENT-TIME,699 \?ELS37
+	IN?	JOHNNY,OUTFITTERS-HQ \?ELS42
+	CALL	ESTABLISH-GOAL,JOHNNY,SHANTY
+	PRINTI	"Johnny glares at "
+	CALL	DPRINT,MCGINTY
+	PRINTR	" and then at his watch. ""There's no way."" He turns to you. ""Forget it. We can't get this done in time."""
+?ELS42:	CALL	INT,I-MCGINTY-FOLLOWS
+	PUT	STACK,0,0
+	CALL	ESTABLISH-GOAL,MCGINTY,MCGINTY-HQ
+	CALL	INT,I-EQUIP
+	PUT	STACK,0,0
+	CALL	DPRINT,MCGINTY
+	PRINTR	" turns to the salesman. ""I think... yeah! I will need that boat after all."" He turns to you and grins."
+?ELS37:	EQUAL?	PRSA,V?WAIT-FOR,V?WAIT /?ELS50
+	EQUAL?	PRSA,V?WALK,V?LOOK /?ELS50
+	PRINTI	"Johnny glances nervously at "
+	CALL	DPRINT,MCGINTY
+	PRINTR	"."
+?ELS50:	RETURN	V
+?ELS10:	ZERO?	MCGINTY-KNOWS /?ELS58
+	CALL	INT,I-EQUIP
+	PUT	STACK,0,0
+	RFALSE	
+?ELS58:	ZERO?	I-WAIT-FLAG /?ELS61
+	PRINTI	"Johnny seems unhappy to have his conversation interrupted."
+	CRLF	
+	SET	'I-WAIT-DURATION,9
+	RETURN	I-WAIT-DURATION
+?ELS61:	EQUAL?	I-WAIT-RTN,I-EQUIP \?ELS66
+	GRTR?	I-WAIT-DURATION,0 /FALSE
+	CALL	ESTABLISH-GOAL,JOHNNY,SHANTY
+	SUB	870,PRESENT-TIME
+	CALL	QUEUE,I-SHOVE-OFF,STACK
+	PUT	STACK,0,1
+	CALL	INT,I-EQUIP
+	PUT	STACK,0,0
+	EQUAL?	SHIP-CHOSEN,TRAWLER \?ELS76
+	RANDOM	50
+	ADD	50,STACK >AMT-OWED
+	JUMP	?CND74
+?ELS76:	RANDOM	50
+	ADD	400,STACK >AMT-OWED
+?CND74:	SET	'JOHNNY-MADE-DEAL,TRUE-VALUE
+	CALL	RATING-UPD,20
+	PRINTI	"Johnny hands him a list and the salesman quotes a price. Johnny gives him the money he has, then says to you, ""You'll need to chip in $"
+	PRINTN	AMT-OWED
+	PRINTI	" plus the money for your stuff. We'll leave on the "
+	CALL	DPRINT,SHIP-CHOSEN
+	PRINTI	" at high tide.""
+
+He tells the "
+	CALL	DPRINT,SPEAR-CARRIER
+	PRINTR	", ""Deliver the stuff half an hour before high tide."" He turns back to you. ""Better be on board then to watch the stuff."""
+?ELS66:	IN?	MCGINTY,WHARF-ROAD-4 /FALSE
+	SET	'I-WAIT-DURATION,9
+	SET	'I-WAIT-RTN,I-EQUIP
+	RFALSE	
+?ELS5:	SET	'I-WAIT-DURATION,0
+	CALL	INT,I-EQUIP
+	GET	STACK,C-TICK
+	LESS?	STACK,-15 \FALSE
+	CALL	INT,I-EQUIP
+	PUT	STACK,0,0
+	IN?	JOHNNY,OUTFITTERS-HQ \?CND90
+	CALL	ESTABLISH-GOAL,JOHNNY,SHANTY
+?CND90:	CALL	I-PLOT-NEVER-STARTS
+	RFALSE	
+
+
+	.FUNCT	TELL-NEED-BOAT
+	PRINTR	" ""We will need that boat after all,"" he says to the salesman as he leaves."
+
+
+	.FUNCT	SAY-MCGINTY-KNOWS
+	CALL	TELL-NEED-BOAT
+	MOVE	JOHNNY,WHARF-ROAD-3
+	CALL	ZERO-ATTENTION,JOHNNY
+	CALL	ESTABLISH-GOAL,JOHNNY,SHANTY
+	CRLF	
+	PRINTR	"Johnny glares at you. ""That was stupid! Now he's stopped us from renting the boat we need."" He storms out. You can't help feeling fortunate that someone else happened to be here."
+
+
+	.FUNCT	I-OTHERS-MEET,V=1
+	GRTR?	PRESENT-TIME,720 \?ELS3
+	CALL	INT,I-OTHERS-MEET
+	PUT	STACK,0,0
+	CALL	I-PLOT-NEVER-STARTS
+	IN?	PLAYER,CHAIR \?ELS6
+	PRINTI	"Johnny tells Pete the deal's off."
+	CRLF	
+	RETURN	V
+?ELS6:	IN?	PLAYER,SHANTY \?ELS10
+	PRINTI	"Johnny says something to Pete."
+	CRLF	
+	RETURN	V
+?ELS10:	SET	'V,FALSE-VALUE
+	RETURN	V
+?ELS3:	IN?	JOHNNY,SHANTY \?THN17
+	IN?	PETE,SHANTY \?THN17
+	IN?	WEASEL,SHANTY /?ELS16
+?THN17:	CALL	QUEUE,I-OTHERS-MEET,1
+	PUT	STACK,0,1
+	RFALSE	
+?ELS16:	ZERO?	JOHNNY-MADE-DEAL \?CND1
+	CALL	I-PLOT-NEVER-STARTS
+?CND1:	IN?	PLAYER,CHAIR \?ELS25
+	PRINTI	"Johnny tells Pete and "
+	CALL	DPRINT,WEASEL
+	PRINTI	" the deal's "
+	ZERO?	JOHNNY-MADE-DEAL /?ELS30
+	PRINTI	"on and to be at the "
+	CALL	DPRINT,SHIP-CHOSEN
+	PRINTI	" at 2:30"
+	JUMP	?CND28
+?ELS30:	PRINTI	"off"
+?CND28:	PRINTR	"."
+?ELS25:	IN?	PLAYER,SHANTY \FALSE
+	PRINTI	"Johnny, Pete, and "
+	CALL	DPRINT,WEASEL
+	PRINTR	" are talking at a corner table."
+
+
+	.FUNCT	I-TRAITOR-MEETING,FERRY-HERE=0
+	IN?	WEASEL,FERRY /?THN6
+	ZERO?	MCGINTY-KNOWS \?THN6
+	IN?	MCGINTY,FERRY-LANDING /?ELS5
+?THN6:	CALL	INT,I-TRAITOR-MEETING
+	PUT	STACK,0,0
+	RFALSE	
+?ELS5:	IN?	WEASEL,FERRY-LANDING \FALSE
+	IN?	ID-CARD,WEASEL \?ELS11
+	IN?	PASSBOOK,WEASEL \?ELS16
+	IN?	FERRY,FERRY-LANDING \?CND17
+	MOVE	WEASEL,FERRY
+	SET	'FERRY-HERE,TRUE-VALUE
+?CND17:	CALL	INT,I-TRAITOR-MEETING
+	PUT	STACK,0,0
+	IN?	PLAYER,FERRY-LANDING \FALSE
+	CALL	TELL-CORNER,FERRY-HERE,STR?440
+	RSTACK	
+?ELS16:	MOVE	ID-CARD,MCGINTY
+	IN?	FERRY,FERRY-LANDING \?CND27
+	MOVE	WEASEL,FERRY
+	SET	'FERRY-HERE,TRUE-VALUE
+?CND27:	CALL	INT,I-TRAITOR-MEETING
+	PUT	STACK,0,0
+	IN?	PLAYER,FERRY-LANDING \FALSE
+	CALL	TELL-CORNER,FERRY-HERE,STR?441
+	RSTACK	
+?ELS11:	MOVE	ID-CARD,WEASEL
+	SET	'MCGINTY-MEETS-WEASEL,FALSE-VALUE
+	IN?	PLAYER,FERRY-LANDING \FALSE
+	CALL	DPRINT,MCGINTY
+	PRINTI	" takes "
+	CALL	DPRINT,WEASEL
+	PRINTR	" to a corner of the landing, where they talk."
+
+
+	.FUNCT	TELL-CORNER,FERRY-HERE,STR
+	CALL	DPRINT,MCGINTY
+	PRINTI	" and "
+	CALL	DPRINT,WEASEL
+	PRINTI	" are talking in a corner. The Weasel "
+	PRINT	STR
+	PRINTI	" and "
+	ZERO?	FERRY-HERE /?ELS5
+	PRINTI	"then boards the ferry"
+	JUMP	?CND3
+?ELS5:	PRINTI	"they separate"
+?CND3:	PRINTR	"."
+
+
+	.FUNCT	I-SHOVE-OFF,L,?TMP1
+	CALL	ENABLED?,I-JOHNNY
+	ZERO?	STACK /FALSE
+	CALL	META-LOC,PLAYER
+	GETP	STACK,P?LINE >?TMP1
+	GETP	SHIP-CHOSEN,P?LINE
+	EQUAL?	?TMP1,STACK \?ELS7
+	GRTR?	PRESENT-TIME,930 \?ELS10
+	ZERO?	LATITUDE-SET \?ELS10
+	ZERO?	LONGITUDE-SET \?ELS10
+	CALL	ALL-GO-HOME
+	RFALSE	
+?ELS10:	CALL	META-LOC,PLAYER
+	IN?	JOHNNY,STACK \?ELS14
+	CALL	DPRINT,JOHNNY
+	PRINTI	" turns to"
+	JUMP	?CND8
+?ELS14:	LOC	JOHNNY >L
+	CALL	META-LOC,PLAYER
+	MOVE	JOHNNY,STACK
+	CALL	ESTABLISH-GOAL,JOHNNY,L
+	CALL	DPRINT,JOHNNY
+	PRINTI	" walks up behind"
+?CND8:	PRINTI	" you and says, """
+	ZERO?	DELIVERY-MADE \?ELS25
+	PRINTI	"We're gonna have to forget it. Outfitters never delivered the stuff."
+	CRLF	
+	CALL	ALL-GO-HOME
+	RTRUE	
+?ELS25:	EQUAL?	0,LATITUDE-SET,LONGITUDE-SET \?ELS29
+	PRINTI	"If we're gonna go, you have to tell me the minutes of "
+	ZERO?	LATITUDE-SET \?CND32
+	PRINTI	"latitude"
+	ZERO?	LONGITUDE-SET \?CND32
+	PRINTI	" and "
+?CND32:	ZERO?	LONGITUDE-SET \?CND42
+	PRINTI	"longitude"
+?CND42:	PRINTI	"."""
+	CRLF	
+	CALL	GRAB-ATTENTION,JOHNNY
+	RANDOM	10
+	ADD	30,STACK
+	CALL	QUEUE,I-SHOVE-OFF,STACK
+	PUT	STACK,0,1
+	RTRUE	
+?ELS29:	PRINTI	"We'll be leaving shortly. Get some sleep."""
+	CRLF	
+?CND23:	EQUAL?	SHIP-CHOSEN,SALVAGER \?ELS55
+	CALL	ESTABLISH-GOAL,JOHNNY,MM-WHEELHOUSE
+	JUMP	?CND53
+?ELS55:	CALL	ESTABLISH-GOAL,JOHNNY,NW-WHEELHOUSE
+?CND53:	LOC	WEASEL
+	EQUAL?	STACK,FERRY,GLOBAL-FERRY,LOCAL-GLOBALS /?CND58
+	LOC	DECK-CHAIR
+	CALL	ESTABLISH-GOAL,WEASEL,STACK
+?CND58:	ZERO?	AMT-OWED \FALSE
+	CALL	QUEUE,I-BOAT-TRIP,10
+	PUT	STACK,0,1
+	RFALSE	
+?ELS7:	GRTR?	PRESENT-TIME,900 \?ELS67
+	CALL	ALL-GO-HOME
+	RFALSE	
+?ELS67:	RANDOM	10
+	ADD	30,STACK
+	CALL	QUEUE,I-SHOVE-OFF,STACK
+	PUT	STACK,0,1
+	RFALSE	
+
+
+	.FUNCT	ALL-GO-HOME
+	CALL	ESTABLISH-GOAL,PETE,SHANTY
+	IN?	WEASEL,FERRY /?CND1
+	IN?	WEASEL,GLOBAL-FERRY /?CND1
+	IN?	WEASEL,LOCAL-GLOBALS /?CND1
+	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+?CND1:	SET	'JOHNNY-SILENT,TRUE-VALUE
+	CALL	ESTABLISH-GOAL,JOHNNY,SHANTY
+	RSTACK	
+
+
+	.FUNCT	I-BOAT-TRIP,BOAT,OT,EXCESS,?TMP1
+	ZERO?	ASLEEP \FALSE
+	CALL	META-LOC,PLAYER
+	GETP	STACK,P?LINE >?TMP1
+	GETP	SHIP-CHOSEN,P?LINE >BOAT
+	EQUAL?	?TMP1,BOAT \FALSE
+	LOC	WEASEL
+	GETP	STACK,P?LINE
+	EQUAL?	STACK,BOAT /?ELS11
+	CALL	TELL-COMES-UP,JOHNNY
+	PRINTI	"""The Weasel's not on board. The deal's off."""
+	CRLF	
+	CALL	FINISH
+	JUMP	?CND9
+?ELS11:	LOC	MCGINTY
+	GETP	STACK,P?LINE
+	EQUAL?	STACK,BOAT \?ELS15
+	CALL	TELL-COMES-UP,WEASEL
+	CALL	JIGS-UP,STR?442
+	JUMP	?CND9
+?ELS15:	IN?	ENVELOPE,JOHNNY \?CND9
+	LOC	WEASEL
+	MOVE	JOHNNY,STACK
+	CALL	ROUGH-JUSTICE
+?CND9:	CALL	INT,I-MCGINTY-FOLLOWS
+	PUT	STACK,0,0
+	SET	'SOUPS-ON,TRUE-VALUE
+	CALL	RATING-UPD,20
+	EQUAL?	LATITUDE-SET,20 \?CND18
+	EQUAL?	LONGITUDE-SET,25 \?CND18
+	CALL	TELL-COMES-UP,JOHNNY
+	CALL	JIGS-UP,STR?443
+?CND18:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,MM-GALLEY,NW-GALLEY \?CND23
+	PRINTI	"Pete announces that the stew is ready."
+	CRLF	
+?CND23:	EQUAL?	SHIP-CHOSEN,TRAWLER \?ELS30
+	SET	'TRAWLER-DOCKED,FALSE-VALUE
+	JUMP	?CND28
+?ELS30:	SET	'SALVAGER-DOCKED,FALSE-VALUE
+?CND28:	SET	'AT-SEA,TRUE-VALUE
+	IN?	PLAYER,DECK-CHAIR \?CND33
+	LOC	DECK-CHAIR
+	MOVE	PLAYER,STACK
+?CND33:	LOC	PLAYER
+	CALL	GLOBAL-IN?,RAILING,STACK
+	ZERO?	STACK /?ELS38
+	PRINTI	"As the engines roar to life, you go to the "
+	CALL	DPRINT,RAILING
+	PRINTI	" to watch the shoreline recede."
+	LOC	PLAYER
+	IN?	DECK-CHAIR,STACK \?CND41
+	CALL	TELL-FERRY-KLUDGE,STR?444
+?CND41:	PRINTI	" As the boat leaves the wharf, y"
+	JUMP	?CND36
+?ELS38:	PRINTI	"The boat begins to move through the waves. Y"
+?CND36:	PRINTI	"ou feel the thrill of being out to sea once again."
+	CRLF	
+	CRLF	
+	IN?	PLAYER,BUNK /?CND52
+	PRINTI	"You "
+	LOC	BUNK
+	IN?	PLAYER,STACK /?CND57
+	LOC	BUNK >HERE
+	CALL	MOVE-SHARED-OBJECTS,HERE
+	IN?	AIR-HOSE,DEEP-SUIT \?CND60
+	MOVE	AIR-HOSE,MM-COMPRESSOR
+	PRINTI	"disconnect the "
+	CALL	DPRINT,AIR-HOSE
+	PRINTI	", "
+?CND60:	PRINTI	"go to the crew's quarters and "
+?CND57:	MOVE	PLAYER,BUNK
+	PRINTI	"climb into your bunk"
+	CALL	STRIP-EQUIPMENT
+	PRINTI	". "
+	CRLF	
+?CND52:	PRINTI	"In no time, the rhythm of the ocean lulls you to sleep..."
+	CRLF	
+	CRLF	
+	MOVE	PETE,DECK-CHAIR
+	MOVE	JOHNNY,HERE
+	EQUAL?	SHIP-CHOSEN,SALVAGER \?ELS75
+	MOVE	WEASEL,MM-AFT-DECK
+	JUMP	?CND73
+?ELS75:	MOVE	WEASEL,NW-AFT-DECK
+?CND73:	CALL	META-LOC,ENVELOPE
+	GETP	STACK,P?LINE
+	EQUAL?	STACK,BOAT \?CND78
+	IN?	ENVELOPE,UNDER-BUNK /?CND78
+	MOVE	ENVELOPE,WEASEL
+?CND78:	SET	'OT,PRESENT-TIME
+	RANDOM	15
+	ADD	345,STACK >PRESENT-TIME
+	ADD	PRESENT-TIME,1440
+	SUB	STACK,OT >EXCESS
+	CALL	INTERRUPT-CHECK,EXCESS
+	ZERO?	WATCH-WOUND /?CND83
+	MOD	EXCESS,60
+	ADD	WATCH-MOVES,STACK >WATCH-MOVES
+	GRTR?	WATCH-MOVES,59 \?CND87
+	SUB	WATCH-MOVES,60 >WATCH-MOVES
+	INC	'WATCH-SCORE
+?CND87:	DIV	EXCESS,60
+	ADD	WATCH-SCORE,STACK >WATCH-SCORE
+?PRG90:	GRTR?	WATCH-SCORE,11 \?REP91
+	SUB	WATCH-SCORE,12 >WATCH-SCORE
+	JUMP	?PRG90
+?REP91:	
+?CND83:	CALL	WATCH-UPDATE
+	EQUAL?	LATITUDE-SET,40 \?ELS99
+	EQUAL?	LONGITUDE-SET,45 \?ELS99
+	SET	'WRECK-CHOSEN,1
+	SET	'OCEAN-BOTTOM,400
+	JUMP	?CND97
+?ELS99:	EQUAL?	LATITUDE-SET,25 \?ELS103
+	EQUAL?	LONGITUDE-SET,25 \?ELS103
+	SET	'WRECK-CHOSEN,2
+	SET	'OCEAN-BOTTOM,150
+	JUMP	?CND97
+?ELS103:	EQUAL?	LATITUDE-SET,15 \?ELS107
+	EQUAL?	LONGITUDE-SET,50 \?ELS107
+	SET	'WRECK-CHOSEN,3
+	SET	'OCEAN-BOTTOM,350
+	JUMP	?CND97
+?ELS107:	CALL	OCEAN-BOTTOM-FCN >OCEAN-BOTTOM
+	ZERO?	OCEAN-BOTTOM \?CND97
+	CALL	JIGS-UP,STR?445
+?CND97:	SET	'HOW-TIRED,1
+	LESS?	HOW-HUNGRY,2 \?CND112
+	SET	'HOW-HUNGRY,1
+?CND112:	LESS?	HOW-THIRSTY,2 \?CND115
+	SET	'HOW-THIRSTY,1
+?CND115:	CALL	QUEUE,I-HUNGER,10
+	PUT	STACK,0,1
+	CALL	QUEUE,I-THIRST,15
+	PUT	STACK,0,1
+	CALL	QUEUE,I-TIRED,869
+	PUT	STACK,0,1
+	SUB	720,PRESENT-TIME
+	CALL	QUEUE,I-ENDIT,STACK
+	PUT	STACK,0,1
+	CALL	DPRINT,JOHNNY
+	PRINTI	" shakes your shoulder and wakes you. "
+	EQUAL?	SHIP-CHOSEN,TRAWLER \?ELS122
+	CALL	ESTABLISH-GOAL,JOHNNY,NW-CAPT-CABIN
+	JUMP	?CND120
+?ELS122:	CALL	ESTABLISH-GOAL,JOHNNY,MM-CAPT-CABIN
+?CND120:	CALL	INT,I-BOAT-TRIP
+	PUT	STACK,0,0
+	PRINTR	"""We've arrived. You're up as soon as you're ready."""
+
+
+	.FUNCT	STRIP-EQUIPMENT,F,N,V=0
+	FIRST?	PLAYER >F /?KLU17
+?KLU17:	
+?PRG1:	ZERO?	F \?CND3
+	JUMP	?REP2
+?CND3:	NEXT?	F >N /?KLU18
+?KLU18:	EQUAL?	F,WATCH /?CND6
+	LOC	BUNK
+	MOVE	F,STACK
+	FCLEAR	F,WORNBIT
+	SET	'V,TRUE-VALUE
+?CND6:	SET	'F,N
+	JUMP	?PRG1
+?REP2:	ZERO?	V /FALSE
+	PRINTI	", dropping your equipment"
+	RTRUE	
+
+
+	.FUNCT	INTERRUPT-CHECK,DUR,C,E,TICK,FOO,R
+	ADD	C-TABLE,C-INTS >C
+	ADD	C-TABLE,C-TABLELEN >E
+	SET	'ASLEEP,TRUE-VALUE
+?PRG1:	EQUAL?	C,E \?ELS5
+	JUMP	?REP2
+?ELS5:	GET	C,C-ENABLED?
+	ZERO?	STACK /?CND3
+	GET	C,C-TICK >TICK
+	ZERO?	TICK \?ELS10
+	JUMP	?CND3
+?ELS10:	SUB	TICK,DUR >FOO
+	LESS?	FOO,2 \?ELS15
+	GET	C,C-RTN
+	CALL	STACK
+	SUB	TICK,1
+	PUT	C,C-TICK,STACK
+	JUMP	?CND8
+?ELS15:	PUT	C,C-TICK,FOO
+?CND8:	
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+?REP2:	SET	'ASLEEP,FALSE-VALUE
+	RETURN	ASLEEP
+
+
+	.FUNCT	LE?,LAT,LON,CNST,?TMP1
+	MUL	LAT,LATITUDE-SET >?TMP1
+	MUL	LON,LONGITUDE-SET
+	ADD	?TMP1,STACK
+	GRTR?	STACK,CNST /FALSE
+	RTRUE	
+
+
+	.FUNCT	GE?,LAT,LON,CNST,?TMP1
+	MUL	LAT,LATITUDE-SET >?TMP1
+	MUL	LON,LONGITUDE-SET
+	ADD	?TMP1,STACK
+	LESS?	STACK,CNST /FALSE
+	RTRUE	
+
+
+	.FUNCT	OCEAN-BOTTOM-FCN
+	LESS?	LONGITUDE-SET,5 /?THN6
+	GRTR?	LONGITUDE-SET,55 /?THN6
+	LESS?	LATITUDE-SET,5 /?THN6
+	GRTR?	LATITUDE-SET,45 \?ELS5
+?THN6:	CALL	JIGS-UP,STR?446
+	RSTACK	
+?ELS5:	GRTR?	LATITUDE-SET,17 /?ELS9
+	CALL	LE?,2,-5,-11
+	ZERO?	STACK /?ELS9
+	CALL	LE?,1,1,30
+	ZERO?	STACK \FALSE
+?ELS9:	GRTR?	LATITUDE-SET,6 /?ELS13
+	GRTR?	LONGITUDE-SET,36 /?ELS13
+	LESS?	LONGITUDE-SET,34 \FALSE
+?ELS13:	GRTR?	LONGITUDE-SET,34 /?ELS17
+	GRTR?	LATITUDE-SET,7 /?ELS17
+	CALL	LE?,1,-1,-26
+	ZERO?	STACK \FALSE
+?ELS17:	CALL	GE?,2,1,115
+	ZERO?	STACK /?ELS21
+	RETURN	400
+?ELS21:	CALL	GE?,1,1,68
+	ZERO?	STACK /?ELS23
+	CALL	LE?,1,-2,-91
+	ZERO?	STACK /?ELS23
+	RETURN	400
+?ELS23:	LESS?	LATITUDE-SET,40 \?THN32
+	CALL	GE?,15,4,680
+	ZERO?	STACK \?THN32
+	CALL	GE?,2,1,107
+	ZERO?	STACK \?THN32
+	CALL	GE?,1,1,76
+	ZERO?	STACK \?THN32
+	LESS?	LONGITUDE-SET,44 /?ELS27
+	CALL	GE?,2,1,70
+	ZERO?	STACK /?ELS27
+	LESS?	LONGITUDE-SET,52 \?THN32
+	CALL	LE?,5,-3,-57
+	ZERO?	STACK \?THN32
+	CALL	LE?,1,-1,-31
+	ZERO?	STACK /?ELS27
+?THN32:	RETURN	350
+?ELS27:	GRTR?	LATITUDE-SET,37 /?THN40
+	CALL	GE?,6,1,240
+	ZERO?	STACK \?THN40
+	CALL	GE?,13,6,635
+	ZERO?	STACK \?THN40
+	CALL	GE?,1,1,72
+	ZERO?	STACK \?THN40
+	LESS?	LONGITUDE-SET,41 /?ELS35
+	CALL	GE?,13,8,497
+	ZERO?	STACK /?ELS35
+	LESS?	LONGITUDE-SET,49 \?THN40
+	CALL	LE?,6,-5,-121
+	ZERO?	STACK \?THN40
+	CALL	LE?,2,-3,-103
+	ZERO?	STACK /?ELS35
+?THN40:	RETURN	300
+?ELS35:	LESS?	LATITUDE-SET,35 \?THN48
+	CALL	GE?,2,-1,57
+	ZERO?	STACK \?THN48
+	CALL	GE?,44,15,1810
+	ZERO?	STACK \?THN48
+	CALL	GE?,4,3,230
+	ZERO?	STACK \?THN48
+	LESS?	LONGITUDE-SET,37 /?ELS43
+	CALL	GE?,13,7,415
+	ZERO?	STACK /?ELS43
+	LESS?	LONGITUDE-SET,46 \?THN48
+	CALL	LE?,3,-2,-32
+	ZERO?	STACK /?ELS43
+?THN48:	RETURN	250
+?ELS43:	GRTR?	LATITUDE-SET,19 /?ELS55
+	CALL	LE?,5,3,131
+	ZERO?	STACK /?ELS55
+	CALL	LE?,7,6,214
+	ZERO?	STACK \?THN52
+?ELS55:	GRTR?	LATITUDE-SET,7 /?ELS57
+	GRTR?	LONGITUDE-SET,35 \?THN52
+?ELS57:	GRTR?	LATITUDE-SET,8 /?ELS51
+	CALL	LE?,2,-1,-16
+	ZERO?	STACK /?ELS51
+	CALL	LE?,1,1,45
+	ZERO?	STACK /?ELS51
+	CALL	LE?,2,1,51
+	ZERO?	STACK /?ELS51
+?THN52:	RETURN	50
+?ELS51:	GRTR?	LATITUDE-SET,20 /?ELS65
+	CALL	LE?,2,1,50
+	ZERO?	STACK /?ELS65
+	CALL	LE?,10,7,286
+	ZERO?	STACK \?THN62
+?ELS65:	GRTR?	LATITUDE-SET,9 /?ELS61
+	CALL	LE?,3,2,99
+	ZERO?	STACK /?ELS61
+?THN62:	RETURN	100
+?ELS61:	GRTR?	LATITUDE-SET,22 /?THN74
+	CALL	LE?,5,3,140
+	ZERO?	STACK \?THN74
+	CALL	LE?,7,3,172
+	ZERO?	STACK \?THN70
+?THN74:	GRTR?	LATITUDE-SET,10 /?ELS69
+	CALL	LE?,9,5,270
+	ZERO?	STACK /?ELS69
+?THN70:	RETURN	150
+?ELS69:	GRTR?	LONGITUDE-SET,29 /?ELS79
+	LESS?	LONGITUDE-SET,18 /?ELS79
+	GRTR?	LATITUDE-SET,24 /?ELS79
+	LESS?	LATITUDE-SET,19 /?ELS79
+	CALL	LE?,9,4,296
+	ZERO?	STACK /?ELS79
+	CALL	GE?,4,1,102
+	ZERO?	STACK /?ELS79
+	CALL	GE?,2,1,62
+	ZERO?	STACK /?ELS79
+	RETURN	50
+?ELS79:	GRTR?	LATITUDE-SET,28 /?ELS83
+	LESS?	LATITUDE-SET,17 /?ELS83
+	GRTR?	LONGITUDE-SET,34 /?ELS83
+	LESS?	LONGITUDE-SET,15 /?ELS83
+	CALL	LE?,1,-1,11
+	ZERO?	STACK /?ELS83
+	CALL	GE?,1,1,39
+	ZERO?	STACK /?ELS83
+	CALL	GE?,5,2,141
+	ZERO?	STACK /?ELS83
+	CALL	GE?,1,-1,-15
+	ZERO?	STACK /?ELS83
+	CALL	LE?,4,1,118
+	ZERO?	STACK \?THN86
+	CALL	LE?,6,5,268
+	ZERO?	STACK /?ELS83
+?THN86:	RETURN	100
+?ELS83:	GRTR?	LATITUDE-SET,32 /?ELS89
+	LESS?	LATITUDE-SET,16 /?ELS89
+	GRTR?	LONGITUDE-SET,38 /?ELS89
+	CALL	GE?,5,-3,-19
+	ZERO?	STACK /?ELS89
+	CALL	GE?,7,3,196
+	ZERO?	STACK /?ELS89
+	CALL	GE?,3,7,164
+	ZERO?	STACK /?ELS89
+	CALL	LE?,1,-1,18
+	ZERO?	STACK /?ELS89
+	CALL	LE?,7,6,344
+	ZERO?	STACK \?THN92
+	CALL	LE?,11,4,394
+	ZERO?	STACK /?ELS89
+?THN92:	RETURN	150
+?ELS89:	RETURN	200
+
+
+	.FUNCT	I-HUNGER,N,?TMP1
+	ZERO?	ASLEEP \FALSE
+	INC	'HOW-HUNGRY
+	EQUAL?	HOW-HUNGRY,1 \?ELS9
+	CALL	QUEUE,I-HUNGER,300
+	PUT	STACK,0,1
+	RFALSE	
+?ELS9:	EQUAL?	HOW-HUNGRY,2 \?ELS11
+	CALL	QUEUE,I-HUNGER,20
+	PUT	STACK,0,1
+	PRINTI	"You begin to feel hungry."
+	CRLF	
+	RFALSE	
+?ELS11:	EQUAL?	HOW-HUNGRY,3 \?ELS15
+	CALL	QUEUE,I-HUNGER,20
+	PUT	STACK,0,1
+	PRINTI	"Your stomach begins to bother you. Better "
+	CALL	META-LOC,PLAYER >?TMP1
+	CALL	META-LOC,FOOD
+	EQUAL?	?TMP1,STACK \?ELS20
+	PRINTI	"do something about it"
+	JUMP	?CND18
+?ELS20:	PRINTI	"find some food"
+?CND18:	PRINTI	"!"
+	CRLF	
+	RFALSE	
+?ELS15:	GRTR?	HOW-HUNGRY,3 \FALSE
+	EQUAL?	HERE,SHANTY \?ELS33
+	SET	'N,2
+	JUMP	?CND31
+?ELS33:	SET	'N,6
+?CND31:	CALL	QUEUE,I-HUNGER,N
+	PUT	STACK,0,1
+	PRINTI	"Your stomach is growling loudly."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	I-THIRST
+	ZERO?	ASLEEP \FALSE
+	INC	'HOW-THIRSTY
+	EQUAL?	HOW-THIRSTY,1 \?ELS9
+	CALL	QUEUE,I-THIRST,110
+	PUT	STACK,0,1
+	PRINTI	"Your throat starts to feel dry."
+	CRLF	
+	RFALSE	
+?ELS9:	EQUAL?	HOW-THIRSTY,2 \?ELS13
+	CALL	QUEUE,I-THIRST,115
+	PUT	STACK,0,1
+	PRINTI	"You feel fairly thirsty."
+	CRLF	
+	RFALSE	
+?ELS13:	EQUAL?	HOW-THIRSTY,3 \?ELS17
+	CALL	QUEUE,I-THIRST,15
+	PUT	STACK,0,1
+	CALL	TELL-YOUD-BETTER,STR?447
+	RFALSE	
+?ELS17:	GRTR?	HOW-THIRSTY,3 \FALSE
+	CALL	QUEUE,I-THIRST,4
+	PUT	STACK,0,1
+	PRINTI	"You lick your lips and clear your throat."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	I-TIRED
+	ZERO?	ASLEEP \FALSE
+	LESS?	HOW-TIRED,6 \?CND1
+	INC	'HOW-TIRED
+?CND1:	EQUAL?	HOW-TIRED,1 \?ELS11
+	CALL	QUEUE,I-TIRED,479
+	PUT	STACK,0,1
+	RFALSE	
+?ELS11:	EQUAL?	HOW-TIRED,2 \?ELS13
+	CALL	QUEUE,I-TIRED,1
+	PUT	STACK,0,1
+	RFALSE	
+?ELS13:	EQUAL?	HOW-TIRED,3 \?ELS15
+	CALL	QUEUE,I-TIRED,30
+	PUT	STACK,0,1
+	PRINTR	"You yawn as you begin to feel drowsy."
+?ELS15:	EQUAL?	HOW-TIRED,4 \?ELS19
+	CALL	QUEUE,I-TIRED,20
+	PUT	STACK,0,1
+	PRINTI	"You are starting to feel tired."
+	CRLF	
+	RFALSE	
+?ELS19:	EQUAL?	HOW-TIRED,5 \?ELS23
+	CALL	QUEUE,I-TIRED,10
+	PUT	STACK,0,1
+	PRINTR	"You yawn and feel very tired. Think about going to bed."
+?ELS23:	EQUAL?	HOW-TIRED,6 \FALSE
+	PRINTI	"Exhaustion overwhelms you. Keeping your eyes open is painful."
+	ZERO?	AT-SEA \?ELS32
+	PRINTI	" "
+	CALL	V-SLEEP
+	RETURN	2
+?ELS32:	CALL	QUEUE,I-TIRED,6
+	PUT	STACK,0,1
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	I-SQUID,L
+	LOC	SQUID >L
+	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,L \?ELS5
+	CALL	JIGS-UP,STR?448
+	RSTACK	
+?ELS5:	CALL	INT,I-SQUID
+	PUT	STACK,0,0
+	RFALSE	
+
+
+	.FUNCT	I-SHARK
+	GETP	HERE,P?LINE
+	LESS?	STACK,UNDERWATER-LINE-C \?ELS5
+	CALL	INT,I-SHARK
+	PUT	STACK,0,0
+	MOVE	SHARK,LOCAL-GLOBALS
+	FCLEAR	SHARK,ONBIT
+	RFALSE	
+?ELS5:	IN?	SHARK,UNDERWATER \?ELS7
+	IN?	SHARK-REPELLENT,PLAYER \?ELS12
+	FSET?	SHARK-REPELLENT,OPENBIT \?ELS12
+	MOVE	SHARK,WINDING-ROAD-2
+	CALL	INT,I-SHARK
+	PUT	STACK,0,0
+	ZERO?	LIT /FALSE
+	FSET?	SHARK,ONBIT \?ELS19
+	PRINTI	"The shark continues"
+	JUMP	?CND15
+?ELS19:	PRINTI	"A shark swims"
+?CND15:	PRINTR	" toward you, then stops. It turns and swims away."
+?ELS12:	FSET?	SHARK,ONBIT \?ELS32
+	PRINTI	"The shark"
+	JUMP	?CND30
+?ELS32:	ZERO?	LIT /?ELS36
+	PRINTI	"A shark"
+	JUMP	?CND30
+?ELS36:	PRINTI	"Something"
+?CND30:	CALL	JIGS-UP,STR?449
+	RSTACK	
+?ELS7:	MOVE	SHARK,UNDERWATER
+	CALL	QUEUE,I-SHARK,-1
+	PUT	STACK,0,1
+	ZERO?	LIT /FALSE
+	FSET	SHARK,ONBIT
+	PRINTR	"A shark swims toward you!"
+
+
+	.FUNCT	I-PLUMMET
+	INC	'CRIMP-CTR
+	EQUAL?	CRIMP-CTR,1 \?ELS5
+	CALL	QUEUE,I-PLUMMET,-1
+	PUT	STACK,0,1
+	CALL	GLOBAL-IN?,FALLEN-BUNK,HERE
+	ZERO?	STACK /FALSE
+	SET	'P-IT-OBJECT,FALLEN-BUNK
+	PRINTR	"The row of bunks you moved starts to fall."
+?ELS5:	EQUAL?	CRIMP-CTR,2 \?ELS14
+	CALL	GLOBAL-IN?,FALLEN-BUNK,HERE
+	ZERO?	STACK /FALSE
+	SET	'P-IT-OBJECT,FALLEN-BUNK
+	PRINTI	"The row of bunks falls toward the doorway"
+	EQUAL?	HERE,WRECK-8 \?ELS24
+	PRINTI	", threatening to pinch your "
+	CALL	DPRINT,AIR-HOSE
+	PRINTI	"!"
+	JUMP	?CND22
+?ELS24:	PRINTI	"."
+?CND22:	CRLF	
+	RTRUE	
+?ELS14:	EQUAL?	CRIMP-CTR,3 \FALSE
+	CALL	GLOBAL-IN?,FALLEN-BUNK,HERE
+	ZERO?	STACK /?ELS37
+	EQUAL?	HERE,WRECK-8 \?ELS42
+	CALL	JIGS-UP,STR?450
+	RSTACK	
+?ELS42:	SET	'BUNKS-MOVED,FALSE-VALUE
+	SET	'P-IT-OBJECT,FALLEN-BUNK
+	PRINTR	"The bunks fall back into the doorway, blocking the passage."
+?ELS37:	EQUAL?	HERE,WRECK-1,WRECK-2,WRECK-3 /?THN49
+	EQUAL?	HERE,WRECK-4,WRECK-5,WRECK-6 /?THN49
+	EQUAL?	HERE,UNDERWATER \?ELS48
+?THN49:	SET	'BUNKS-MOVED,FALSE-VALUE
+	RFALSE	
+?ELS48:	CALL	JIGS-UP,STR?451
+	RSTACK	
+
+
+	.FUNCT	I-LIVER
+	GRTR?	BLOOD-ALCOHOL,0 \?CND1
+	DEC	'BLOOD-ALCOHOL
+?CND1:	GRTR?	SLOSH-CTR,0 \?CND4
+	DEC	'SLOSH-CTR
+?CND4:	CALL	QUEUE,I-LIVER,10
+	PUT	STACK,0,1
+	GRTR?	BLOOD-ALCOHOL,15 \FALSE
+	PRINTI	"Your head swims for a minute."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	I-PENDULUM,DIR=0
+	CALL	QUEUE,I-PENDULUM,-2
+	EQUAL?	LINE-LOC,5 \?ELS3
+	SET	'LINE-LOC-INC,-1
+	JUMP	?CND1
+?ELS3:	EQUAL?	LINE-LOC,1 \?ELS5
+	SET	'LINE-LOC-INC,1
+	JUMP	?CND1
+?ELS5:	CALL	META-LOC,PLAYER
+	IN?	SAFETY-LINE,STACK \?CND1
+	EQUAL?	LINE-LOC-INC,1 \?ELS10
+	SET	'DIR,STR?170
+	JUMP	?CND1
+?ELS10:	SET	'DIR,STR?171
+?CND1:	ADD	LINE-LOC,LINE-LOC-INC >LINE-LOC
+	EQUAL?	LINE-LOC,2 \?ELS17
+	MOVE	SAFETY-LINE,WEST-OF-WRECK-9
+	EQUAL?	HERE,WEST-OF-WRECK-9 \FALSE
+	CALL	TELL-LINE-SWINGS
+	RSTACK	
+?ELS17:	EQUAL?	LINE-LOC,4 \?ELS24
+	MOVE	SAFETY-LINE,WEST-OF-WRECK-11
+	EQUAL?	HERE,WEST-OF-WRECK-11 \FALSE
+	CALL	TELL-LINE-SWINGS
+	RSTACK	
+?ELS24:	MOVE	SAFETY-LINE,LOCAL-GLOBALS
+	ZERO?	DIR /FALSE
+	PRINTI	"The line swings away to the "
+	PRINT	DIR
+	PRINTR	"."
+
+
+	.FUNCT	TELL-LINE-SWINGS
+	PRINTI	"The "
+	CALL	DPRINT,SAFETY-LINE
+	PRINTI	" from above swings in from the "
+	EQUAL?	LINE-LOC-INC,1 \?ELS5
+	PRINTI	"south"
+	JUMP	?CND3
+?ELS5:	PRINTI	"north"
+?CND3:	PRINTR	"."
+
+
+	.FUNCT	I-CASE-LEAK,ALREADY=0
+	INC	'WATER-IN-CASE
+	GRTR?	WATER-IN-CASE,9 \?CND1
+	FSET?	STAMPS,RMUNGBIT \?CND4
+	SET	'ALREADY,TRUE-VALUE
+?CND4:	FSET	STAMPS,RMUNGBIT
+	CALL	INT,I-CASE-LEAK
+	PUT	STACK,0,0
+?CND1:	IN?	GLASS-CASE,PLAYER \FALSE
+	PRINTI	"The water level in the "
+	CALL	DPRINT,GLASS-CASE
+	PRINTI	" rises."
+	FSET?	STAMPS,RMUNGBIT \?CND14
+	ZERO?	ALREADY \?CND14
+	PRINTI	" As it reaches the stamps, it soaks them."
+?CND14:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-DRILL
+	FSET	BATTERY,RMUNGBIT
+	SET	'DRILL-POWERED,FALSE-VALUE
+	CALL	INT,I-DRILL
+	PUT	STACK,0,0
+	PRINTI	"The "
+	CALL	DPRINT,DRILL
+	PRINTR	" sputters, and the bit stops turning."
+
+
+	.FUNCT	I-AIR-SUPPLY
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \FALSE
+	IN?	AIR-TANK,PLAYER \FALSE
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK \FALSE
+	ADD	DEPTH,33
+	DIV	STACK,44
+	SUB	AIR-LEFT,STACK >AIR-LEFT
+	LESS?	AIR-LEFT,1 \?ELS12
+	CALL	JIGS-UP,STR?452
+	RSTACK	
+?ELS12:	LESS?	AIR-LEFT,15 \FALSE
+	PRINTI	"Your air supply is dangerously low."
+	CRLF	
+	EQUAL?	WAITED?,1 /TRUE
+	RETURN	2
+
+
+	.FUNCT	I-MM-COMPRESSOR
+	CALL	QUEUE,I-LAST-GASP,10
+	PUT	STACK,0,1
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \FALSE
+	PRINTI	"You have to breathe harder. Maybe you'd better surface."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	I-LAST-GASP
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS5
+	CALL	JIGS-UP,STR?453
+	RSTACK	
+?ELS5:	CALL	QUEUE,I-LAST-GASP,1
+	PUT	STACK,0,0
+	RTRUE	
+
+
+	.FUNCT	I-PLOT-NEVER-STARTS
+	CALL	INT,I-JOHNNY
+	PUT	STACK,0,0
+	CALL	INT,I-PETE
+	PUT	STACK,0,0
+	IN?	WEASEL,SHANTY \?CND1
+	CALL	INT,I-WEASEL
+	PUT	STACK,0,0
+?CND1:	SET	'FM-CTR,5
+	RFALSE	
+
+
+	.FUNCT	I-ENDIT
+	GETP	HERE,P?LINE
+	LESS?	STACK,UNDERWATER-LINE-C \FALSE
+	CALL	JIGS-UP,STR?454
+	RSTACK	
+
+	.ENDI
diff --git a/events.zil b/events.zil
new file mode 100644
index 0000000..dae51e1
--- /dev/null
+++ b/events.zil
@@ -0,0 +1,1629 @@
+"       EVENTS for TOA2
+ Copyright (C) 1984 Infocom Inc.
+      All rights reserved."
+
+<ROUTINE I-UNWOUND ()
+	 <SETG WATCH-WOUND <>>
+	 <RFALSE>>
+
+<ROUTINE I-BUSINESS-HOURS ()
+	 <COND (,BUSINESS-HOURS?
+		<SETG BUSINESS-HOURS? <>>
+		<COND (<IN? ,PLAYER ,MCGINTY-HQ>
+		       <MOVE ,PLAYER ,WHARF-ROAD-2>
+		       <SETG HERE ,WHARF-ROAD-2>
+		       <TELL
+"\"Closing time,\" says " D ,MCGINTY " as he escorts you out to the
+street..." CR CR>
+		       <V-FIRST-LOOK>)
+		      (<IN? ,PLAYER ,OUTFITTERS-HQ>
+		       <MOVE ,PLAYER ,WHARF-ROAD-4>
+		       <SETG HERE ,WHARF-ROAD-4>
+		       <TELL
+"\"Sorry, but it's closing time,\" the salesman says, then shows you out..." CR CR>
+		       <V-FIRST-LOOK>)
+		      (<IN? ,PLAYER ,BANK>
+		       <MOVE ,PLAYER ,SHORE-ROAD-2>
+		       <SETG HERE ,SHORE-ROAD-2>
+		       <TELL
+"The teller says, \"You'll have to leave. It's 5:00.\" A guard escorts you
+out..." CR CR>
+		       <V-FIRST-LOOK>)
+		      (T <RFALSE>)>
+		<RTRUE>)
+	       (T
+		<SETG BUSINESS-HOURS? T>
+		<ENABLE <QUEUE I-BUSINESS-HOURS 480>>
+		<RFALSE>)>>
+
+<ROUTINE I-FERRY-APPROACHING ()
+	 <ENABLE <QUEUE I-FERRY-APPROACHING -1>>
+	 <FCLEAR ,FERRY ,INVISIBLE>
+	 <COND (<IN? ,WEASEL ,GLOBAL-FERRY>
+		<MOVE ,WEASEL ,FERRY>)>
+	 <COND (<EQUAL? ,HERE ,FERRY-LANDING ,SHORE-ROAD-1 ,SHORE-ROAD-2>
+		<TELL
+"The ferry approaches the landing." CR>)>>
+
+<ROUTINE I-FERRY ("AUX" (WEASEL-HERE? <>))
+	 <DISABLE <INT I-FERRY-APPROACHING>>
+	 <ENABLE <QUEUE I-FERRY-LEAVING 5>>
+	 <ENABLE <QUEUE I-FERRY-GONE 8>>
+	 <MOVE ,FERRY ,FERRY-LANDING>
+	 <COND (<AND <IN? ,WEASEL ,FERRY-LANDING>
+		     <NOT <QUEUED? I-TRAITOR-MEETING>>>
+		<SET WEASEL-HERE? T>
+		<MOVE ,WEASEL ,FERRY>)
+	       (<IN? ,WEASEL ,FERRY>
+		<MOVE ,WEASEL ,FERRY-LANDING>
+		<COND (<AND <IN? ,JOHNNY ,FERRY-LANDING>
+			    ,WEASEL-BLOWN>
+		       <ROUGH-JUSTICE>)
+		      (<==? ,SHIP-CHOSEN ,TRAWLER>
+		       <ESTABLISH-GOAL ,WEASEL ,NW-CREW-QTRS>)
+		      (<==? ,SHIP-CHOSEN ,SALVAGER>
+		       <ESTABLISH-GOAL ,WEASEL ,MM-CREW-QTRS>)>)>
+	 <COND (<==? ,HERE ,FERRY-LANDING>
+		<TELL 
+"The ferry arrives. Some passengers get off and others get on.">
+		<COND (.WEASEL-HERE?
+		       <TELL-FERRY-KLUDGE "boards">)
+		      (<AND <IN? ,WEASEL ,FERRY-LANDING>
+			    <NOT <QUEUED? I-TRAITOR-MEETING>>>
+		       <TELL-FERRY-KLUDGE "disembarks">
+		       <COND (<IN? ,ENVELOPE ,PLAYER>
+			      <CRLF>
+			      <WEASEL-BEATS-YOU>)>)>
+		<CRLF>)
+	       (<EQUAL? ,HERE ,SHORE-ROAD-1 ,SHORE-ROAD-2>
+		<TELL "The ferry arrives at the landing." CR>)>>
+
+<ROUTINE TELL-FERRY-KLUDGE (STR)
+	 <TELL " The Weasel " .STR ".">>
+
+<ROUTINE I-FERRY-LEAVING ()
+	 <ENABLE <QUEUE I-FERRY-LEAVING -1>>
+	 <MOVE ,FERRY ,LOCAL-GLOBALS>
+	 <COND (<AND <IN? ,WEASEL ,FERRY>
+		     <IN? ,PASSBOOK ,WEASEL>>
+		<MOVE ,WEASEL ,LOCAL-GLOBALS>)>
+	 <COND (<EQUAL? ,HERE ,FERRY-LANDING ,SHORE-ROAD-1 ,SHORE-ROAD-2>
+		<TELL 
+"The ferry pulls away, heading for the mainland." CR>)>>
+
+<ROUTINE I-FERRY-GONE ()
+	 <DISABLE <INT I-FERRY-LEAVING>>
+	 <ENABLE <QUEUE I-FERRY-APPROACHING 109>>
+	 <ENABLE <QUEUE I-FERRY 112>>
+	 <FSET ,FERRY ,INVISIBLE>
+	 <COND (<IN? ,WEASEL ,FERRY>
+		<MOVE ,WEASEL ,GLOBAL-FERRY>)>
+	 <RFALSE>>
+
+<ROUTINE I-DISGUSTING-WEASEL-KLUDGE ("AUX" WGT);"make sure he goes to 1st mtg"
+	 <COND (<AND <NOT <IN? ,PASSBOOK ,WEASEL>>
+		     <NOT <==? <GET <SET WGT <GET ,GOAL-TABLES ,WEASEL-C>>
+				    ,GOAL-F>
+			  ,SHANTY>>>
+		<PUT .WGT ,ATTENTION 0>
+		<ESTABLISH-GOAL ,WEASEL ,SHANTY>
+		<RFALSE>)>>
+
+<ROUTINE I-FIRST-MEETING ()
+	 <COND (<==? ,FM-CTR 5>
+		<DISABLE <INT I-FIRST-MEETING>>
+		<RFALSE>)
+	       (<AND <IN? ,JOHNNY ,SHANTY>
+		     <IN? ,PETE ,SHANTY>
+		     <==? <META-LOC ,PLAYER> ,SHANTY>>
+		<COND (<==? ,FM-CTR 0>
+		       <COND (<G? ,PRESENT-TIME 535>
+			      <I-PLOT-NEVER-STARTS>
+			      <DISABLE <INT I-FIRST-MEETING>>
+			      <RFALSE>)>
+		       <SETG QCONTEXT ,JOHNNY>
+		       <SETG QCONTEXT-ROOM ,HERE>
+		       <TELL 
+"\"Sit down and we'll talk,\" " D ,JOHNNY " says." CR>)
+		      (<==? ,FM-CTR 1>
+		       <COND (<IN? ,WEASEL ,SHANTY>
+			      <SETG FM-CTR 2>
+			      <I-FIRST-MEETING>)
+			     (,WAITING-FOR-WEASEL
+			      <COND (<G? ,PRESENT-TIME 525>
+				     <DISABLE <INT I-FIRST-MEETING>>
+				     <I-PLOT-NEVER-STARTS>
+				     <SETG QCONTEXT ,JOHNNY>
+				     <SETG QCONTEXT-ROOM ,HERE>
+				     <TELL 
+"Pete looks at Johnny and says, \"Weasel ain't gonna show.\"|
+\"Guess not,\" replies Johnny. \"Without " D ,WEASEL ", there's
+no deal. Who knows what that creep is up to?\"" CR>)>)
+			     (T
+			      <SETG QCONTEXT ,JOHNNY>
+			      <SETG QCONTEXT-ROOM ,HERE>
+			      <TELL 
+"Johnny says, \"When " D ,WEASEL " shows, I'll tell ya what we got.\"" CR>
+			      <SETG WAITING-FOR-WEASEL T>)>)
+		       (<G? ,BLOOD-ALCOHOL 10>
+			<DISABLE <INT I-FIRST-MEETING>>
+			<I-PLOT-NEVER-STARTS>
+			<TELL
+"Pete turns to Johnny and says, \"This joker's drunk!\"|
+\"Yeah,\" Johnny says. He looks at you. \"Some diver! We'll find
+someone else.\"" CR>)
+		       (<==? ,FM-CTR 2>
+			<SETG QCONTEXT ,JOHNNY>
+			<SETG QCONTEXT-ROOM ,HERE>
+			<TELL 
+"At Pete's request, " D ,WEASEL " joins you. Johnny then whispers that he's
+come across some sunken " D ,GLOBAL-TREASURE "." CR>
+			<SETG FM-CTR 3>
+			<SETG I-WAIT-RTN ,I-FIRST-MEETING>
+			<SETG I-WAIT-DURATION 2>)
+		       (<==? ,FM-CTR 3>
+			<COND (,I-WAIT-FLAG
+			       <TELL
+"Unfortunately, this interrupts Johnny's explanation of what the meeting is
+about." CR>
+			       <SETG I-WAIT-DURATION 2>)
+			      (<AND <G? ,I-WAIT-DURATION 0>
+				    <==? ,I-WAIT-RTN ,I-FIRST-MEETING>>
+			       <RFALSE>)
+                              (T
+			       <SETG QCONTEXT ,JOHNNY>
+			       <SETG QCONTEXT-ROOM ,HERE>
+			       <TELL 
+"Johnny explains that they need more money to get started.
+They chose you because they know you've salted some money away and
+you're a great diver. He asks if you're interested in the deal."
+CR>
+			       <SETG FM-CTR 4>)>)
+		       (<==? ,FM-CTR 4>
+			<COND (<AND <G? ,PRESENT-TIME 539>
+				    <NOT <VERB? YES NO>>>
+			       <SETG QCONTEXT ,JOHNNY>
+			       <SETG QCONTEXT-ROOM ,HERE>
+			       <I-PLOT-NEVER-STARTS>
+			       <TELL 
+"Pete turns to Johnny. \"We don't want anyone who can't decide.\"|
+\"Right,\" says Johnny. \"We'll find someone else.\" He turns to
+you. \"Say a word about this and you're history!\"" CR>)
+			      (T
+			       <SETG QCONTEXT ,JOHNNY>
+			       <SETG QCONTEXT-ROOM ,HERE>
+			       <TELL 
+"\"Well, what is it? Yes or no?\" Pete asks anxiously." CR>)>)>)>>
+
+<GLOBAL WAITING-FOR-WEASEL <>>
+
+<GLOBAL I-WAIT-FLAG <>>
+
+<GLOBAL I-WAIT-DURATION 0>
+
+<GLOBAL I-WAIT-RTN <>>
+
+<GLOBAL FM-CTR 0>  "counter for throughout first meeting:
+		    0-waiting for player to sit down
+		    1-waiting for the Weasel to show up
+		    2-Johnny mentions treasure
+		    3-Johnny pitches the deal
+	    	    4-waiting for player to accept
+		      (handled in CHAIR-F, SHANTY-F)
+		    5-no meeting or meeting concluded"
+
+<GLOBAL SAMPLE-TREASURE <>>
+
+<OBJECT GOLD-COIN
+	(IN LOCAL-GLOBALS)
+	(SYNONYM COIN DOUBLO ESCUDO)
+	(ADJECTIVE GOLD PORTUG)
+	(DESC "gold coin")
+	(TEXT
+"It is dated 1680 and stamped with a portrait of King Peter II of Portugal.")
+	(FLAGS TRYTAKEBIT READBIT)
+	(ACTION RED-HERRING-F)>
+
+<OBJECT DINNER-PLATE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM PLATE DISH)
+	(ADJECTIVE DINNER SUPPER)
+	(DESC "dinner plate")
+	(TEXT
+"It bears the Hollywood Cruise Lines markings.")
+	(FLAGS TRYTAKEBIT READBIT)
+	(ACTION RED-HERRING-F)>
+
+;<OBJECT DINNER-PLATE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM TRAY ASHTRA)
+	(ADJECTIVE ASH)
+	(SDESC "ashtray")
+	(TEXT
+"This is an ashtray with the markings of the Hollywood Cruise Lines.")
+	(FLAGS TRYTAKEBIT VOWELBIT)
+	(ACTION SAMPLE-TREASURE-F)>
+
+;<OBJECT DINNER-PLATE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM FORK)
+	(ADJECTIVE SILVER SALAD)
+	(SDESC "salad fork")
+	(TEXT
+"This is a salad fork with the markings of the Hollywood Cruise Lines.")
+	(FLAGS TRYTAKEBIT)
+	(ACTION SAMPLE-TREASURE-F)>
+
+;<OBJECT DINNER-PLATE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM KNIFE)
+	(ADJECTIVE BUTTER SILVER)
+	(SDESC "dinner plate")
+	(TEXT
+"This is a butter knife with the markings of the Hollywood Cruise Lines.")
+	(FLAGS TRYTAKEBIT)
+	(ACTION SAMPLE-TREASURE-F)>
+
+;<OBJECT DINNER-PLATE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM SPOON)
+	(ADJECTIVE SOUP SILVER)
+	(SDESC "soup spoon")
+	(TEXT
+"This is a soup spoon with the markings of the Hollywood Cruise Lines.")
+	(FLAGS TRYTAKEBIT)
+	(ACTION RED-HERRING-F)>
+
+<ROUTINE SAMPLE-TREASURE-F ()
+	 <COND (<OR <VERB? TAKE>
+		    <AND <VERB? ASK-FOR>
+			 <PRSO? ,JOHNNY>>>
+		<COND (<IN? ,MCGINTY ,HERE>
+		       <PERFORM ,V?TELL ,MCGINTY ,SAMPLE-TREASURE>
+		       <RTRUE>)
+		      (T <TELL 
+"Red pulls it back. \"If we get the loot, there'll be plenty for all.\"" CR>)>)
+	       (<VERB? TURN>
+		<TELL D ,JOHNNY " has it." CR>)>>
+
+<ROUTINE I-SECOND-MEETING ()
+	 <COND (<AND <G? ,PRESENT-TIME 585>
+		     <OR <L? ,SM-CTR 2>
+			 <G? ,HOW-HUNGRY 3>>>
+		<ALL-GO-HOME>
+		<I-PLOT-NEVER-STARTS>
+		<SETG SM-CTR 4>)>
+	 <COND (<==? ,SM-CTR 4>
+		<DISABLE <INT I-SECOND-MEETING>>)
+	       (<NOT <==? ,HERE ,WINDING-ROAD-1>>
+		<DISABLE <INT I-SECOND-MEETING>>)
+	       (<AND <G? ,SM-CTR 1>
+		     <OR <IN? ,MCGINTY ,WINDING-ROAD-1>
+		         <IN? ,MCGINTY ,WINDING-ROAD-2>>>
+		<JIGS-UP
+"Pete spots McGinty, who is near enough to overhear! While Johnny
+chases McGinty, Pete accuses you of bringing McGinty along. Before you
+respond, the Weasel plunges his knife into your heart.">)
+	       (<L? ,SM-CTR 2>
+		<COND (<AND <IN? ,WEASEL ,WINDING-ROAD-1>
+			    <IN? ,JOHNNY ,WINDING-ROAD-1>
+			    <IN? ,PETE ,WINDING-ROAD-1>>
+		       <SETG SM-CTR 2>
+		       <I-SECOND-MEETING>
+		       <RTRUE>)
+	       	      (<==? ,SM-CTR 0>
+		       <COND (<IN? ,JOHNNY ,WINDING-ROAD-1>
+		       	      <SETG SM-CTR 1>
+		       	      <SETG QCONTEXT ,JOHNNY>
+			      <SETG QCONTEXT-ROOM ,HERE>
+			      <TELL 
+"Johnny says, \"We'll start when everyone's here.\"" CR>)>)>)
+	       (<G? ,BLOOD-ALCOHOL 10>
+		<SETG SM-CTR 4>
+		<DISABLE <INT I-SECOND-MEETING>>
+		<SETG QCONTEXT ,JOHNNY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<ALL-GO-HOME>
+		<I-PLOT-NEVER-STARTS>
+		<TELL
+"\"I won't risk everything on a drunk diver!\" " D ,WEASEL " says.|
+\"You're right,\" says Johnny. \"We're calling this off.\"" CR>)
+	       (<==? ,SM-CTR 2>
+		<SETG WRECK-FOUND <RANDOM 2>>
+		<COND (<==? ,WRECK-FOUND 1>
+		       <SETG SAMPLE-TREASURE ,GOLD-COIN>)
+		      (T <SETG SAMPLE-TREASURE ,DINNER-PLATE>)>
+		<PUTP ,SAMPLE-TREASURE ,P?ACTION SAMPLE-TREASURE-F>
+		<MOVE ,SAMPLE-TREASURE ,JOHNNY>
+		;<FCLEAR ,SAMPLE-TREASURE ,INVISIBLE>
+		<SETG P-IT-OBJECT ,SAMPLE-TREASURE>
+		<SETG SM-CTR 3>
+		<SETG I-WAIT-DURATION 6>
+		<SETG I-WAIT-RTN ,I-SECOND-MEETING>
+		<SETG QCONTEXT ,JOHNNY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL 
+"Johnny nods, then pulls out " A ,SAMPLE-TREASURE " he says he came across
+while on a shark hunt." CR>)
+	       (<==? ,SM-CTR 3>
+		<COND (,I-WAIT-FLAG
+		       <TELL 
+"This interrupts Johnny's explanation, which makes him angry." CR>
+		       <SETG I-WAIT-DURATION 6>)
+		      (<AND <G? ,I-WAIT-DURATION 0>
+			    <==? ,I-WAIT-RTN ,I-SECOND-MEETING>>
+		       <RFALSE>)
+		      (T
+		       <DISABLE <INT I-SECOND-MEETING>>
+		       <ENABLE <QUEUE I-OTHERS-MEET <- 705 ,PRESENT-TIME>>>
+		       <SETG SM-CTR 4>
+		       <SETG MEETINGS-COMPLETED 2>
+		       <PUT ,MOVEMENT-GOALS ,JOHNNY-C ,JOHNNY-CONTINUES-TABLE>
+		       <IMOVEMENT ,JOHNNY I-JOHNNY>
+		       <RATING-UPD 20>
+		       <SETG QCONTEXT ,JOHNNY>
+		       <SETG QCONTEXT-ROOM ,HERE>
+		       <CRLF>
+		       <TELL 
+"\"We're not sure which wreck to salvage,\" Johnny says.
+\"Since you're joining up, we're hoping you'll identify where
+the " D ,SAMPLE-TREASURE " came from, and then do the dive for us. I'll
+captain, Pete will cook, and " D ,WEASEL " will crew.|
+|
+Johnny winks at you. \"We'll need you to supply the minutes of longitude and
+latitude of the wreck. Get $500 and meet me at Point Lookout at 10:45. Then
+we'll provision the boat.\"|
+|
+He turns to the others. \"We'll meet in " D ,SHANTY " at 11:45 to discuss final
+arrangements.|
+|
+\"We're all in this now,\" Johnny says to the group. \"I'm not gonna chance
+this operation if one of you doesn't show. We need everyone to pull this off.
+If anyone tries anything stupid, you won't live to regret it.\"" CR>)>)>>
+
+<GLOBAL SM-CTR 0>  "counter for throughout second meeting:
+		    0-Johnny not here
+		    1-waiting for Weasel and/or Pete
+		    2-Johnny shows treasure
+		    3-Johnny shoots deal
+		    4-meeting's over" 
+
+<ROUTINE I-THIRD-MEETING ("AUX" JMG)
+	 <COND (<NOT <EQUAL? ,HERE ,POINT-LOOKOUT>>
+		<DISABLE <INT I-THIRD-MEETING>>
+		<RFALSE>)
+	       (<IN? ,JOHNNY ,POINT-LOOKOUT>
+		<COND (<L? ,TM-CTR 6> <SETG TM-CTR <+ ,TM-CTR 1>>)>)
+	       (T <RFALSE>)>
+	 <COND (<IN? ,MCGINTY ,POINT-LOOKOUT>
+		<JIGS-UP
+"Johnny glares at McGinty. \"Trying to cash in on my work again,
+huh? You probably killed Hevlin, too!\" And with that, he pushes McGinty off
+the cliff.|
+|
+\"I can't leave witnesses,\" he mumbles.
+Before you can react, you're on your way down to join what's left of
+McGinty.">)
+	       (<AND <IN? ,MCGINTY ,OCEAN-ROAD-3>
+		     <NOT <IN-MOTION? ,MCGINTY>>>
+		<JIGS-UP
+"Johnny sees McGinty on the road. \"You brought McGinty, you traitor! You
+probably killed Hevlin, too!\" A moment later, you're falling
+down to the rocks.">)
+	       (<==? ,TM-CTR 1>
+		<SETG QCONTEXT ,JOHNNY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL 
+"Johnny turns toward you. \"Well? Did you bring the money?\"" CR>)
+	       (<G? ,BLOOD-ALCOHOL 10>
+		<JIGS-UP
+"Johnny stares at you in disgust. \"A drunk diving for us? You'll probably
+tell McGinty, too. I'll make sure you don't.\" He pushes you off the cliff.
+Although you feel no pain, your landing is fatal.">)
+	       (<==? ,TM-CTR 4>
+		<TELL 
+"Johnny glares at you as if you were a sea slug." CR>)
+	       (<==? ,TM-CTR 5>
+		<JIGS-UP 
+"Johnny looks disgusted. \"No money? You probably told McGinty already.
+Traitor!\" He pushes you off the cliff, and you scream as
+the pointy rocks rush up to meet you.">)
+	       (<==? ,TM-CTR 6>
+		<SETG TM-CTR 7>
+                <RATING-UPD 20>
+		<SETG QCONTEXT ,JOHNNY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<CRLF>
+		<TELL
+"\"Glad you're with us. Since you're okay, I'll level with you. Before
+Hevlin died, he told me he gave you the book. He also said you could handle
+this job. He's the one who gave me the " D ,SAMPLE-TREASURE ". I didn't want
+to say anything in front of Pete and " D ,WEASEL " just in case.|
+|
+\"We're gonna need a boat, but I don't know which one. If
+you need deep-sea diving gear, it'll have to be
+the " D ,SALVAGER ". Is the " D ,GLOBAL-TREASURE " more than 200 feet deep?\""
+CR>)
+	       (<==? ,TM-CTR 7>
+		<COND (<G? ,PRESENT-TIME 675>
+		       <JIGS-UP
+"Johnny looks disgusted. \"I can't wait all day...\" You feel a shove and then
+find yourself on your way down to the rocks below.">)>
+		<SETG QCONTEXT ,JOHNNY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL 
+"Johnny looks impatient. \"Don't confuse things. A yes or no will do.\""
+CR>)
+	       (<==? ,TM-CTR 8>
+		<ESTABLISH-GOAL ,JOHNNY ,OUTFITTERS-HQ>
+		<PUT ,MOVEMENT-GOALS ,JOHNNY-C ,JOHNNY-COMPLETES-TABLE>
+		<SET JMG <GET ,MOVEMENT-GOALS ,JOHNNY-C>>
+		<PUT .JMG ,MG-TIME <- 838 ,PRESENT-TIME>>
+		<IMOVEMENT ,JOHNNY I-JOHNNY>
+		<DISABLE <INT I-THIRD-MEETING>>
+		<SETG MEETINGS-COMPLETED 3>
+		<TELL
+"\"We'll rent the " D ,SHIP-CHOSEN ". Let's go get what we need.\"" CR>)>>
+
+<GLOBAL TM-CTR 0>  "Counter for third meeting (incremented every move thru 5):
+		    0 - no meeting yet
+		    1 - Johnny wants to see money
+		    2-5 - Johnny is waiting to see money
+		    	  (on 5, he's waited long enough and kills you)
+		    6 - money shown; Johnny asks which ship to rent
+		    7 - waiting for answer about ship
+		    8 - meeting's over"
+
+<ROUTINE I-EQUIP ("AUX" MCG-GT (V <>))
+	 <COND (<IN? ,PLAYER ,OUTFITTERS-HQ>
+		<COND (<IN? ,MCGINTY ,OUTFITTERS-HQ>
+		       <SETG WARNING-CTR <+ ,WARNING-CTR 1>>
+		       <COND (<==? ,WARNING-CTR 7>
+			      <TELL
+"Johnny leans over and whispers, \"Let's wait out McGinty. He should leave soon.\"" CR>
+			      <SET V T>)>
+		       <COND (<G? ,I-WAIT-DURATION 0>
+			      <SETG I-WAIT-DURATION 0>
+			      <SETG I-WAIT-RTN <>>
+			      <TELL 
+"Johnny ends his conversation, and " D ,MCGINTY
+" asks the salesman some questions." CR>)
+			     (<AND <GET <SET MCG-GT
+					    <GET ,GOAL-TABLES ,MCGINTY-C>>
+					,GOAL-ENABLE>
+				   <==? <GET .MCG-GT ,GOAL-F> ,MCGINTY-HQ>>
+			      <COND (<NOT ,MCGINTY-KNOWS>
+				     <SETG MCGINTY-MEETS-WEASEL T>)>
+			      <SETG I-WAIT-DURATION 9>
+			      <SETG I-WAIT-RTN ,I-EQUIP>
+			      <RFALSE>)
+			     (<AND <VERB? BUY RENT>
+				   <NOT <PRSO? ,FERRY-TOKEN>>>
+			      <SETG MCGINTY-KNOWS T>
+			      <DISABLE <INT I-MCGINTY-FOLLOWS>>
+			      <DISABLE <INT I-EQUIP>>
+			      <MOVE ,MCGINTY ,WHARF-ROAD-4>
+			      ;<MOVE ,JOHNNY ,WHARF-ROAD-3>
+			      ;<ESTABLISH-GOAL ,JOHNNY ,SHANTY>
+			      <ESTABLISH-GOAL ,MCGINTY ,MCGINTY-HQ>
+			      <TELL D ,MCGINTY
+" grins as he realizes what you're up to.">
+			      <SAY-MCGINTY-KNOWS>)
+			     (<G? ,PRESENT-TIME 699>
+			      <COND (<IN? ,JOHNNY ,OUTFITTERS-HQ>
+				     <ESTABLISH-GOAL ,JOHNNY ,SHANTY>
+			      	     <TELL
+"Johnny glares at " D ,MCGINTY
+" and then at his watch. \"There's no way.\" He turns
+to you. \"Forget it. We can't get this done in time.\"" CR>)
+				    (T
+				     <DISABLE <INT I-MCGINTY-FOLLOWS>>
+				     <ESTABLISH-GOAL ,MCGINTY ,MCGINTY-HQ>
+				     <DISABLE <INT I-EQUIP>>
+				     <TELL
+D ,MCGINTY
+" turns to the salesman. \"I think... yeah! I will need that boat after
+all.\" He turns to you and grins." CR>)>)
+			     (<NOT <OR <VERB? WAIT WAIT-FOR>
+				       <VERB? LOOK WALK>>>
+			      <TELL
+"Johnny glances nervously at " D ,MCGINTY "." CR>)
+			     (T <RETURN .V>)>)
+		      (,MCGINTY-KNOWS
+		       <DISABLE <INT I-EQUIP>>
+		       <RFALSE>)
+		      (,I-WAIT-FLAG
+		       <TELL 
+"Johnny seems unhappy to have his conversation interrupted." CR>
+		       <SETG I-WAIT-DURATION 9>)
+		      (<==? ,I-WAIT-RTN ,I-EQUIP>
+		       <COND (<G? ,I-WAIT-DURATION 0>
+			      <RFALSE>)
+			     (T
+			      <ESTABLISH-GOAL ,JOHNNY ,SHANTY>
+			      <ENABLE <QUEUE I-SHOVE-OFF <- 870 ,PRESENT-TIME>>>
+			      <DISABLE <INT I-EQUIP>>
+		              <COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+				     <SETG AMT-OWED <+ 50 <RANDOM 50>>>)
+				    (T <SETG AMT-OWED <+ 400 <RANDOM 50>>>)>
+			      <SETG JOHNNY-MADE-DEAL T>
+			      <RATING-UPD 20>
+			      <TELL
+"Johnny hands him a list and the salesman quotes a price.
+Johnny gives him the money he has, then says to you, \"You'll need to chip
+in $" N ,AMT-OWED " plus the money for your stuff. We'll leave on the "
+D ,SHIP-CHOSEN " at high tide.\"|
+|
+He tells the " D ,SPEAR-CARRIER ", \"Deliver the stuff half an hour before high
+tide.\" He turns back to you. \"Better be on board then to watch
+the stuff.\"" CR>)>)
+		      (<NOT <IN? ,MCGINTY ,WHARF-ROAD-4>>
+		       <SETG I-WAIT-DURATION 9>
+		       <SETG I-WAIT-RTN ,I-EQUIP>
+		       <RFALSE>)>)
+	       (T
+		<SETG I-WAIT-DURATION 0>
+		<COND (<L? <GET <INT I-EQUIP> ,C-TICK> -15>
+		       <DISABLE <INT I-EQUIP>>
+		       <COND (<IN? ,JOHNNY ,OUTFITTERS-HQ>
+		       	      <ESTABLISH-GOAL ,JOHNNY ,SHANTY>)>
+		       <I-PLOT-NEVER-STARTS>
+		       <RFALSE>)>)>>
+
+<GLOBAL WARNING-CTR 0>
+
+<GLOBAL AMT-OWED 0>
+
+<GLOBAL MCGINTY-KNOWS <>>
+
+<GLOBAL JOHNNY-MADE-DEAL <>>
+
+<ROUTINE TELL-NEED-BOAT ()
+	 <TELL
+" \"We will need that boat after all,\" he says to the salesman as he
+leaves." CR>>
+
+<ROUTINE SAY-MCGINTY-KNOWS ()
+	 <TELL-NEED-BOAT>
+	 <MOVE ,JOHNNY ,WHARF-ROAD-3>
+	 <ZERO-ATTENTION ,JOHNNY>
+	 <ESTABLISH-GOAL ,JOHNNY ,SHANTY>
+	 <TELL CR
+"Johnny glares at you. \"That was stupid! Now he's stopped us from renting
+the boat we need.\" He storms out.
+You can't help feeling fortunate that someone else happened to be here." CR>>
+
+<ROUTINE I-OTHERS-MEET ("AUX" (V T))
+	 <COND (<G? ,PRESENT-TIME 720>
+		<DISABLE <INT I-OTHERS-MEET>>
+		<I-PLOT-NEVER-STARTS>
+		<COND (<IN? ,PLAYER ,CHAIR>
+		       <TELL "Johnny tells Pete the deal's off." CR>)
+		      (<IN? ,PLAYER ,SHANTY>
+		       <TELL "Johnny says something to Pete." CR>)
+		      (T <SET V <>>)>
+		<RETURN .V>)
+	       (<OR <NOT <IN? ,JOHNNY ,SHANTY>>
+		    <NOT <IN? ,PETE ,SHANTY>>
+		    <NOT <IN? ,WEASEL ,SHANTY>>>
+		<ENABLE <QUEUE I-OTHERS-MEET 1>>
+		<RFALSE>)
+	       (<NOT ,JOHNNY-MADE-DEAL>
+		<I-PLOT-NEVER-STARTS>)>
+	 <COND (<IN? ,PLAYER ,CHAIR>
+		<TELL "Johnny tells Pete and " D ,WEASEL " the deal's ">
+		<COND (,JOHNNY-MADE-DEAL
+		       <TELL "on and to be at the " D ,SHIP-CHOSEN " at 2:30">)
+		      (T <TELL "off">)>
+		<TELL "." CR>)
+	       (<IN? ,PLAYER ,SHANTY>
+		<TELL
+"Johnny, Pete, and " D ,WEASEL " are talking at a corner table." CR>)>>
+
+<ROUTINE I-TRAITOR-MEETING ("AUX" (FERRY-HERE <>))
+	 <COND (<OR <IN? ,WEASEL ,FERRY>
+		    ,MCGINTY-KNOWS
+		    <NOT <IN? ,MCGINTY ,FERRY-LANDING>>>
+		<DISABLE <INT I-TRAITOR-MEETING>>
+		<RFALSE>)
+	       (<NOT <IN? ,WEASEL ,FERRY-LANDING>>
+		<RFALSE>)
+	       (<IN? ,ID-CARD ,WEASEL>
+		<COND (<IN? ,PASSBOOK .WEASEL>
+		       <COND (<IN? ,FERRY ,FERRY-LANDING>
+		       	      <MOVE ,WEASEL ,FERRY>
+		       	      <SET FERRY-HERE T>)>
+		       <DISABLE <INT I-TRAITOR-MEETING>>
+		       <COND (<IN? ,PLAYER ,FERRY-LANDING>
+			      <TELL-CORNER .FERRY-HERE "shakes his head">)>)
+		      (T
+		       <MOVE ,ID-CARD ,MCGINTY>
+		       <COND (<IN? ,FERRY ,FERRY-LANDING>
+		       	      <MOVE ,WEASEL ,FERRY>
+		       	      <SET FERRY-HERE T>)>
+		       <DISABLE <INT I-TRAITOR-MEETING>>
+		       <COND (<IN? ,PLAYER ,FERRY-LANDING>
+		       	      <TELL-CORNER .FERRY-HERE
+					   "hands something to McGinty">)>)>)
+	       (T
+		<MOVE ,ID-CARD ,WEASEL>
+		<SETG MCGINTY-MEETS-WEASEL <>>
+		<COND (<IN? ,PLAYER ,FERRY-LANDING>
+		       <TELL
+D ,MCGINTY " takes " D ,WEASEL
+" to a corner of the landing, where they talk." CR>)>)>>
+
+<ROUTINE TELL-CORNER (FERRY-HERE STR)
+	 <TELL
+D ,MCGINTY " and " D ,WEASEL
+" are talking in a corner. The Weasel " .STR " and ">
+	 <COND (.FERRY-HERE
+	 	<TELL "then boards the ferry">)
+	       (T <TELL "they separate">)>
+	 <TELL "." CR>>
+
+<ROUTINE I-SHOVE-OFF ("AUX" L)
+	 <COND (<NOT <ENABLED? I-JOHNNY>>
+		<RFALSE>)
+	       (<==? <GETP <META-LOC ,PLAYER> ,P?LINE>
+		     <GETP ,SHIP-CHOSEN ,P?LINE>>
+		<COND (<AND <G? ,PRESENT-TIME 930>
+			    <NOT ,LATITUDE-SET>
+			    <NOT ,LONGITUDE-SET>>
+		       <ALL-GO-HOME>
+		       <RFALSE>)
+		      (<IN? ,JOHNNY <META-LOC ,PLAYER>>
+		       <TELL D ,JOHNNY " turns to">)
+		      (T
+		       <SET L <LOC ,JOHNNY>>
+		       <MOVE ,JOHNNY <META-LOC ,PLAYER>>
+	 	       <ESTABLISH-GOAL ,JOHNNY .L>
+	 	       <TELL D ,JOHNNY " walks up behind">)>
+		<TELL " you and says, \"">
+		<COND (<NOT ,DELIVERY-MADE>
+		       <TELL
+"We're gonna have to forget it. Outfitters never delivered the stuff." CR>
+		       <ALL-GO-HOME>
+		       <RTRUE>)
+		      (<EQUAL? 0 ,LATITUDE-SET ,LONGITUDE-SET>
+		       <TELL
+"If we're gonna go, you have to tell me the minutes of ">
+		       <COND (<==? ,LATITUDE-SET 0>
+			      <TELL "latitude">
+			      <COND (<==? ,LONGITUDE-SET 0>
+				     <TELL " and ">)>)>
+		       <COND (<==? ,LONGITUDE-SET 0>
+			      <TELL "longitude">)>
+		       <TELL ".\"" CR>
+	 	       <GRAB-ATTENTION ,JOHNNY>
+		       <ENABLE <QUEUE I-SHOVE-OFF <+ 30 <RANDOM 10>>>>
+		       <RTRUE>)
+		      (T <TELL
+"We'll be leaving shortly. Get some sleep.\"" CR>)>
+		;<COND (<AND <==? ,LATITUDE-SET
+				 <GET ,LATITUDE-TABLE ,WRECK-FOUND>>
+			    <==? ,LONGITUDE-SET
+				 <GET ,LONGITUDE-TABLE ,WRECK-FOUND>>>
+		       <SETG AT-WRECK? T>)>
+		<COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+		       <ESTABLISH-GOAL ,JOHNNY ,MM-WHEELHOUSE>)
+		      (T
+		       <ESTABLISH-GOAL ,JOHNNY ,NW-WHEELHOUSE>)>
+		<COND (<NOT <EQUAL? <LOC ,WEASEL>
+				    ,FERRY ,GLOBAL-FERRY ,LOCAL-GLOBALS>>
+		       <ESTABLISH-GOAL ,WEASEL <LOC ,DECK-CHAIR>>)>
+		<COND (<0? ,AMT-OWED>
+		       <ENABLE <QUEUE I-BOAT-TRIP 10>>
+		       <RFALSE>)>)
+	       (<G? ,PRESENT-TIME 900>
+		<ALL-GO-HOME>
+		<RFALSE>)
+	       (T <ENABLE <QUEUE I-SHOVE-OFF <+ 30 <RANDOM 10>>>>
+		<RFALSE>)>>
+
+<ROUTINE ALL-GO-HOME ()
+	 <ESTABLISH-GOAL ,PETE ,SHANTY>
+	 <COND (<AND <NOT <IN? ,WEASEL ,FERRY>>
+		     <NOT <IN? ,WEASEL ,GLOBAL-FERRY>>
+		     <NOT <IN? ,WEASEL ,LOCAL-GLOBALS>>>
+		<ESTABLISH-GOAL ,WEASEL ,SHANTY>)>
+	 <SETG JOHNNY-SILENT T>
+	 <ESTABLISH-GOAL ,JOHNNY ,SHANTY>>
+
+<ROUTINE I-BOAT-TRIP ("AUX" BOAT OT EXCESS)
+	 <COND (,ASLEEP <RFALSE>)
+	       (<EQUAL? <GETP <META-LOC ,PLAYER> ,P?LINE>
+			<SET BOAT <GETP ,SHIP-CHOSEN ,P?LINE>>>
+		<COND (<NOT <==? <GETP <LOC ,WEASEL> ,P?LINE> .BOAT>>
+		       <TELL-COMES-UP ,JOHNNY>
+		       <TELL
+"\"The Weasel's not on board. The deal's off.\"" CR>
+		       <FINISH>)
+		      (<==? <GETP <LOC ,MCGINTY> ,P?LINE> .BOAT>
+		       <TELL-COMES-UP ,WEASEL>
+		       <JIGS-UP
+"\"You brought McGinty!\" Next thing you know, your throat's been slit.">)
+		      (<IN? ,ENVELOPE ,JOHNNY>
+		       <MOVE ,JOHNNY <LOC ,WEASEL>>
+		       <ROUGH-JUSTICE>)>
+		;<ENABLE <QUEUE I-CHANGE-WATCH <- 1075 ,PRESENT-TIME>>>
+		;<ENABLE <QUEUE I-OBSTACLES <RANDOM 90>>>
+		;<SETG HOW-TIRED 2>
+		<DISABLE <INT I-MCGINTY-FOLLOWS>>
+		<SETG SOUPS-ON T>
+		<RATING-UPD 20>
+		<COND (<AND <==? ,LATITUDE-SET 20>
+			    <==? ,LONGITUDE-SET 25>>
+		       <TELL-COMES-UP ,JOHNNY>
+		       <JIGS-UP
+"\"What kind of joke is this, giving me the coordinates of the island?\"">)>
+		<COND (<EQUAL? <META-LOC ,PLAYER> ,MM-GALLEY ,NW-GALLEY>
+		       <TELL "Pete announces that the stew is ready." CR>)>
+		<COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+		       <SETG TRAWLER-DOCKED <>>)
+		      (T <SETG SALVAGER-DOCKED <>>)>
+		<SETG AT-SEA T>
+		;<SETG ON-WATCH ,WEASEL>
+		;<SET-NEXT-WATCH>
+		<COND (<IN? ,PLAYER ,DECK-CHAIR>
+		       <MOVE ,PLAYER <LOC ,DECK-CHAIR>>)>
+		;<MOVE ,WEASEL ,DECK-CHAIR>
+		<COND (<GLOBAL-IN? ,RAILING <LOC ,PLAYER>>
+		       <TELL
+"As the engines roar to life, you go to the " D ,RAILING
+" to watch the shoreline recede.">
+		       <COND (<IN? ,DECK-CHAIR <LOC ,PLAYER>>
+			      <TELL-FERRY-KLUDGE "sits down for his watch">)>
+		       <TELL
+" As the boat leaves the wharf, y">)
+		      (T <TELL
+"The boat begins to move through the waves. Y">)>
+		<TELL "ou feel the thrill of being out to sea once again." CR>
+		<CRLF>
+		<COND (<NOT <IN? ,PLAYER ,BUNK>>
+		       <TELL "You ">
+		       <COND (<NOT <IN? ,PLAYER <LOC ,BUNK>>>
+			      <SETG HERE <LOC ,BUNK>>
+			      <MOVE-SHARED-OBJECTS ,HERE>
+			      <COND (<IN? ,AIR-HOSE ,DEEP-SUIT>
+				     <MOVE ,AIR-HOSE ,MM-COMPRESSOR>
+				     <TELL "disconnect the " D ,AIR-HOSE ", ">)>
+			      <TELL "go to the crew's quarters and ">)>
+		       <MOVE ,PLAYER ,BUNK>
+		       <TELL "climb into your bunk">
+		       <STRIP-EQUIPMENT>
+		       <TELL ". " CR>)>
+		<TELL
+"In no time, the rhythm of the ocean lulls you to sleep..." CR CR>
+		<MOVE ,PETE ,DECK-CHAIR>
+		<MOVE ,JOHNNY ,HERE>
+		<COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+		       <MOVE ,WEASEL ,MM-AFT-DECK>)
+		      (T <MOVE ,WEASEL ,NW-AFT-DECK>)>
+		<COND (<AND <==? <GETP <META-LOC ,ENVELOPE> ,P?LINE> .BOAT>
+			    <NOT <IN? ,ENVELOPE ,UNDER-BUNK>>>
+		       <MOVE ,ENVELOPE ,WEASEL>)>
+		<SET OT ,PRESENT-TIME>
+		<SETG PRESENT-TIME <+ 345 <RANDOM 15>>>
+		;<DISABLE <INT I-FERRY>>
+		;<DISABLE <INT I-FERRY-APPROACHING>>
+		;<DISABLE <INT I-FERRY-LEAVING>>
+		;<DISABLE <INT I-FERRY-GONE>>
+		<INTERRUPT-CHECK <SET EXCESS <- <+ ,PRESENT-TIME 1440> .OT>>>
+		<COND (,WATCH-WOUND
+		       <SETG WATCH-MOVES <+ ,WATCH-MOVES <MOD .EXCESS 60>>>
+		       <COND (<G? ,WATCH-MOVES 59>
+			      <SETG WATCH-MOVES <- ,WATCH-MOVES 60>>
+			      <SETG WATCH-SCORE <+ ,WATCH-SCORE 1>>)>
+		       <SETG WATCH-SCORE <+ ,WATCH-SCORE </ .EXCESS 60>>>
+		       <REPEAT ()
+			       <COND (<G? ,WATCH-SCORE 11>
+				      <SETG WATCH-SCORE <- ,WATCH-SCORE 12>>)
+				     (T <RETURN>)>>)>
+		<WATCH-UPDATE>
+		<COND (<AND <==? ,LATITUDE-SET 40>
+		       	    <==? ,LONGITUDE-SET 45>>
+		       <SETG WRECK-CHOSEN 1>
+		       <SETG OCEAN-BOTTOM 400>)
+	       	      (<AND <==? ,LATITUDE-SET 25>
+		     	    <==? ,LONGITUDE-SET 25>>
+		       <SETG WRECK-CHOSEN 2>
+		       <SETG OCEAN-BOTTOM 150>)
+	       	      (<AND <==? ,LATITUDE-SET 15>
+		     	    <==? ,LONGITUDE-SET 50>>
+		       <SETG WRECK-CHOSEN 3>
+		       <SETG OCEAN-BOTTOM 350>)
+		      (<NOT <SETG OCEAN-BOTTOM <OCEAN-BOTTOM-FCN>>>
+		       <JIGS-UP
+"You are awakened by what feels like your ship running aground. You are put
+back to a permanent sleep by the Weasel's knife.">)>
+		<SETG HOW-TIRED 1>
+		<COND (<L? ,HOW-HUNGRY 2>
+		       <SETG HOW-HUNGRY 1>)>
+	 	<COND (<L? ,HOW-THIRSTY 2>
+		       <SETG HOW-THIRSTY 1>)>
+	 	<ENABLE <QUEUE I-HUNGER 10>>
+	 	<ENABLE <QUEUE I-THIRST 15>>
+	 	<ENABLE <QUEUE I-TIRED 869>>
+		<ENABLE <QUEUE I-ENDIT <- 720 ,PRESENT-TIME>>>
+		<TELL D ,JOHNNY " shakes your shoulder and wakes you. ">
+	 	<COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+		       <ESTABLISH-GOAL ,JOHNNY ,NW-CAPT-CABIN>)
+	       	      (T <ESTABLISH-GOAL ,JOHNNY ,MM-CAPT-CABIN>)>
+	        ;<SETG MOMENT-OF-TRUTH T>
+	 	<DISABLE <INT I-BOAT-TRIP>>
+	 	<TELL "\"We've arrived. You're up as soon as you're ready.\"" CR>)>>    
+
+<ROUTINE STRIP-EQUIPMENT ("AUX" F N (V <>))
+	 <SET F <FIRST? ,PLAYER>>
+	 <REPEAT ()
+	  <COND (<NOT .F> <RETURN>)>
+	  <SET N <NEXT? .F>>
+	  <COND (<NOT <==? .F ,WATCH>>
+		 <MOVE .F <LOC ,BUNK>>
+		 <FCLEAR .F ,WORNBIT>
+		 <SET V T>)>
+	  <SET F .N>>
+	 <COND (.V <TELL ", dropping your equipment">)>>
+
+<ROUTINE INTERRUPT-CHECK (DUR "AUX" C E TICK FOO R)
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SETG ASLEEP T>
+	 <REPEAT ()
+		 <COND (<==? .C .E> <RETURN>)
+		       (<NOT <0? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<0? .TICK>)
+			      (T
+			       <SET FOO <- .TICK .DUR>>
+			       <COND (<L? .FOO 2>
+				      <APPLY <GET .C ,C-RTN>>
+				      <PUT .C ,C-TICK <- .TICK 1>>)
+				     (T <PUT .C ,C-TICK .FOO>)>
+			       ;<COND (<AND <NOT <G? .TICK 1>>
+				           <SET VAL <APPLY <GET .C ,C-RTN>>>>
+				      <COND (,DEBUG
+					     <TELL "[Interrupt returning T.]" CR>)>
+				      <COND (<OR <NOT .FLG>
+						 <==? .VAL ,M-FATAL>>
+					     <SET FLG .VAL>)>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>
+	 <SETG ASLEEP <>>>
+
+<GLOBAL ASLEEP <>>
+
+<ROUTINE LE? (LAT LON CNST)
+	 <NOT <G? <+ <* .LAT ,LATITUDE-SET> <* .LON ,LONGITUDE-SET>> .CNST>>>
+
+<ROUTINE GE? (LAT LON CNST)
+	 <NOT <L? <+ <* .LAT ,LATITUDE-SET> <* .LON ,LONGITUDE-SET>> .CNST>>>
+
+<ROUTINE OCEAN-BOTTOM-FCN ()
+	 <COND (<OR <L? ,LONGITUDE-SET 5>
+		    <G? ,LONGITUDE-SET 55>
+		    <L? ,LATITUDE-SET 5>
+		    <G? ,LATITUDE-SET 45>>
+		<JIGS-UP
+"Your boat is lost in a sudden squall while you sleep.">)
+	       (<AND <NOT <G? ,LATITUDE-SET 17>>
+		     <LE? 2 -5 -11>
+		     <LE? 1 1 30>>
+		<RFALSE>)
+	       (<AND <NOT <G? ,LATITUDE-SET 6>>
+		     <NOT <G? ,LONGITUDE-SET 36>>
+		     <NOT <L? ,LONGITUDE-SET 34>>>
+		<RFALSE>)
+	       (<AND <NOT <G? ,LONGITUDE-SET 34>>
+		     <NOT <G? ,LATITUDE-SET 7>>
+		     <LE? 1 -1 -26>>
+		<RFALSE>)
+	       (<GE? 2 1 115>
+		<RETURN 400>)
+	       (<AND <GE? 1 1 68>
+		     <LE? 1 -2 -91>>
+		<RETURN 400>)
+	       (<OR <NOT <L? ,LATITUDE-SET 40>>
+		    <GE? 15 4 680>
+		    <GE? 2 1 107>
+		    <GE? 1 1 76>
+		    <AND <NOT <L? ,LONGITUDE-SET 44>>
+			 <GE? 2 1 70>
+			 <OR <NOT <L? ,LONGITUDE-SET 52>>
+			     <LE? 5 -3 -57>
+			     <LE? 1 -1 -31>>>>
+	        <RETURN 350>)
+	       (<OR <G? ,LATITUDE-SET 37>
+		    <GE? 6 1 240>
+		    <GE? 13 6 635>
+		    <GE? 1 1 72>
+		    <AND <NOT <L? ,LONGITUDE-SET 41>>
+			 <GE? 13 8 497>
+			 <OR <NOT <L? ,LONGITUDE-SET 49>>
+			     <LE? 6 -5 -121>
+			     <LE? 2 -3 -103>>>>
+		<RETURN 300>)
+	       (<OR <NOT <L? ,LATITUDE-SET 35>>
+		    <GE? 2 -1 57>
+		    <GE? 44 15 1810>
+		    <GE? 4 3 230>
+		    <AND <NOT <L? ,LONGITUDE-SET 37>>
+			 <GE? 13 7 415>
+			 <OR <NOT <L? ,LONGITUDE-SET 46>>
+			     <LE? 3 -2 -32>>>>
+		<RETURN 250>)
+	       (<OR <AND <NOT <G? ,LATITUDE-SET 19>>
+			 <LE? 5 3 131>
+			 <LE? 7 6 214>>
+		    <AND <NOT <G? ,LATITUDE-SET 7>>
+			 <NOT <G? ,LONGITUDE-SET 35>>>
+		    <AND <NOT <G? ,LATITUDE-SET 8>>
+			 <LE? 2 -1 -16>
+			 <LE? 1 1 45>
+			 <LE? 2 1 51>>>
+		<RETURN 50>)
+	       (<OR <AND <NOT <G? ,LATITUDE-SET 20>>
+			 <LE? 2 1 50>
+			 <LE? 10 7 286>>
+		    <AND <NOT <G? ,LATITUDE-SET 9>>
+			 <LE? 3 2 99>>>
+		<RETURN 100>)
+	       (<OR <AND <NOT <G? ,LATITUDE-SET 22>>
+			 <OR <LE? 5 3 140>
+			     <LE? 7 3 172>>>
+		    <AND <NOT <G? ,LATITUDE-SET 10>>
+			 <LE? 9 5 270>>>
+		<RETURN 150>)
+	       (<AND <NOT <G? ,LONGITUDE-SET 29>>
+		     <NOT <L? ,LONGITUDE-SET 18>>
+		     <NOT <G? ,LATITUDE-SET 24>>
+		     <NOT <L? ,LATITUDE-SET 19>>
+		     <LE? 9 4 296>
+		     <GE? 4 1 102>
+		     <GE? 2 1 62>>
+		<RETURN 50>)
+	       (<AND <NOT <G? ,LATITUDE-SET 28>>
+		     <NOT <L? ,LATITUDE-SET 17>>
+		     <NOT <G? ,LONGITUDE-SET 34>>
+		     <NOT <L? ,LONGITUDE-SET 15>>
+		     <LE? 1 -1 11>
+		     <GE? 1 1 39>
+		     <GE? 5 2 141>
+		     <GE? 1 -1 -15>
+		     <OR <LE? 4 1 118>
+		     	 <LE? 6 5 268>>>
+		<RETURN 100>)
+	       (<AND <NOT <G? ,LATITUDE-SET 32>>
+		     <NOT <L? ,LATITUDE-SET 16>>
+		     <NOT <G? ,LONGITUDE-SET 38>>
+		     <GE? 5 -3 -19>
+		     <GE? 7 3 196>
+		     <GE? 3 7 164>
+		     <LE? 1 -1 18>
+		     <OR <LE? 7 6 344>
+			 <LE? 11 4 394>>>
+		<RETURN 150>)
+	       (T <RETURN 200>)>>
+
+;<ROUTINE V-DEPTH-CHECK ("AUX" DEP LAT LON)
+	 <SET LAT 5>
+	 <SET LON 5>
+	 <REPEAT ()
+	  <TELL "Latitude:" N .LAT " Longitude:" N .LON " Depth:">
+	  <SETG LATITUDE-SET .LAT>
+	  <SETG LONGITUDE-SET .LON>
+	  <COND (<SET DEP <OCEAN-BOTTOM-FCN>>
+		 <TELL N .DEP>)
+		(T <TELL "0">)>
+	  <CRLF>
+	  <COND (<G? <SET LON <+ .LON 5>> 55>
+		 <COND (<G? <SET LAT <+ .LAT 5>> 45>
+			<RETURN>)>
+		 <SET LON 5>)>>>
+
+;<ROUTINE I-DIVETIME ()
+	 <COND (<IN-MOTION? ,JOHNNY>
+		<COND (<NOT <EQUAL? <GET <GET ,GOAL-TABLES
+					 <GETP ,JOHNNY ,P?CHARACTER>> ,GOAL-F>
+				    <META-LOC ,PLAYER>>>
+		       <ESTABLISH-GOAL ,JOHNNY <META-LOC ,PLAYER>>)>
+		<RFALSE>)>
+	 <COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+		<ESTABLISH-GOAL ,WEASEL ,NW-AFT-DECK>)
+	       (T <ESTABLISH-GOAL ,WEASEL ,MM-AFT-DECK>)>
+	 <DISABLE <INT I-OBSTACLES>>
+	 <COND (<IN? ,JOHNNY <META-LOC ,PLAYER>>
+		<JOHNNY-SAYS-GO>
+		<RFATAL>)
+	       (T
+		<ESTABLISH-GOAL ,JOHNNY <META-LOC ,PLAYER>>
+		<ENABLE <QUEUE I-DIVETIME -1>>
+		<RFALSE>)>>
+
+<GLOBAL AT-SEA <>>
+
+<ROUTINE I-HUNGER ("AUX" N)
+	 <COND (,ASLEEP <RFALSE>)>
+	 <SETG HOW-HUNGRY <+ ,HOW-HUNGRY 1>>
+	 <COND (<==? ,HOW-HUNGRY 1>
+		<ENABLE <QUEUE I-HUNGER 300>>
+		<RFALSE>)
+	       (<==? ,HOW-HUNGRY 2>
+		<ENABLE <QUEUE I-HUNGER 20>>
+		<TELL "You begin to feel hungry." CR>
+		<RFALSE>)
+	       (<==? ,HOW-HUNGRY 3>
+		<ENABLE <QUEUE I-HUNGER 20>>
+		<TELL "Your stomach begins to bother you. Better ">
+		<COND (<EQUAL? <META-LOC ,PLAYER> <META-LOC ,FOOD>>
+		       <TELL "do something about it">)
+		      (T <TELL "find some food">)>
+		<TELL "!" CR>
+		<RFALSE>)
+	       (<G? ,HOW-HUNGRY 3>
+		<COND (<==? ,HERE ,SHANTY>
+		       <SET N 2>)
+		      (T <SET N 6>)>
+		<ENABLE <QUEUE I-HUNGER .N>>
+		<TELL "Your stomach is growling loudly." CR>
+		<RFATAL>)>>
+
+<ROUTINE I-THIRST ()
+	 <COND (,ASLEEP <RFALSE>)>
+	 <SETG HOW-THIRSTY <+ ,HOW-THIRSTY 1>>
+	 <COND (<==? ,HOW-THIRSTY 1>
+		<ENABLE <QUEUE I-THIRST 110>>
+		<TELL "Your throat starts to feel dry." CR>
+		<RFALSE>)
+	       (<==? ,HOW-THIRSTY 2>
+		<ENABLE <QUEUE I-THIRST 115>>
+		<TELL "You feel fairly thirsty." CR>
+		<RFALSE>)
+	       (<==? ,HOW-THIRSTY 3>
+		<ENABLE <QUEUE I-THIRST 15>>
+		<TELL-YOUD-BETTER "find something to drink soon!">
+		<RFALSE>)
+	       (<G? ,HOW-THIRSTY 3>
+		<ENABLE <QUEUE I-THIRST 4>>
+		<TELL "You lick your lips and clear your throat." CR>
+		<RFATAL>)>>
+
+<GLOBAL HOW-THIRSTY 0>
+
+<ROUTINE I-TIRED ()
+	 <COND (,ASLEEP <RFALSE>)
+	       (<L? ,HOW-TIRED 6>
+		<SETG HOW-TIRED <+ ,HOW-TIRED 1>>)>
+	 <COND (<==? ,HOW-TIRED 1>
+		<ENABLE <QUEUE I-TIRED 479>>
+		<RFALSE>)
+	       (<==? ,HOW-TIRED 2>
+		<ENABLE <QUEUE I-TIRED 1>>
+		<RFALSE>)
+	       (<==? ,HOW-TIRED 3>
+		<ENABLE <QUEUE I-TIRED 30>>
+		<TELL "You yawn as you begin to feel drowsy." CR>)
+	       (<==? ,HOW-TIRED 4>
+		<ENABLE <QUEUE I-TIRED 20>>
+		<TELL "You are starting to feel tired." CR>
+		<RFALSE>)
+	       (<==? ,HOW-TIRED 5>
+		<ENABLE <QUEUE I-TIRED 10>>
+		<TELL 
+"You yawn and feel very tired. Think about going to bed." CR>)
+	       (<==? ,HOW-TIRED 6>
+		<TELL
+"Exhaustion overwhelms you. Keeping your eyes open is painful.">
+		<COND (<NOT ,AT-SEA>
+		       <TELL " ">
+		       <V-SLEEP>)
+		      (T
+		       <ENABLE <QUEUE I-TIRED 6>>
+		       <CRLF>)>
+		<RFATAL>)>>
+
+;<ROUTINE I-OBSTACLES ("AUX" (UPFRONT? <>))
+	 <SETG O-CTR <+ ,O-CTR 1>>
+	 <COND (<AND <EQUAL? <META-LOC ,PLAYER> ,MM-FORE-DECK ,NW-FORE-DECK>
+		     <NOT ,ASLEEP?>>
+		<SET UPFRONT? T>)>;"Historical note: The compiler sucks."
+	 <COND (<==? ,O-CTR 1>
+		<ENABLE <QUEUE I-OBSTACLES -1>>
+		<SETG O-NUM <RANDOM 3>>
+		<SETG O-SIDE <RANDOM 2>>
+		<COND (<QUEUED? I-USELESS-TURN>
+		       <I-USELESS-TURN>)>
+		<COND (.UPFRONT?
+		       <OPRINT>
+		       <RFATAL>)>)
+	       (<==? ,O-CTR 2>
+		<COND (.UPFRONT?
+		       <OPRINT>
+		       <COND (<AND ,ON-WATCH
+				   <NOT <EQUAL? ,ON-WATCH ,PLAYER>>>
+			      <SETG BUTTON-PUSHED ,O-SIDE>
+			      <START-SENTENCE ,ON-WATCH>
+			      <TELL " pushes the button to his ">
+			      <COND (<==? ,O-SIDE 1>
+				     <TELL "left">)
+				    (T <TELL "right">)>
+			      <TELL "." CR>)
+			     (T <RFATAL>)>
+		       <RTRUE>)
+		      (<AND ,ON-WATCH
+			    <NOT <EQUAL? ,ON-WATCH ,PLAYER>>>
+		       <SETG BUTTON-PUSHED ,O-SIDE>
+		       <COND (<AND <EQUAL? ,HERE ,MM-WHEELHOUSE ,NW-WHEELHOUSE>
+			           <G? ,BUTTON-PUSHED 0>>
+		       	      <TELL 
+"A tone sounds. Johnny spins the wheel ">
+		       	      <COND (<==? ,BUTTON-PUSHED 1> <TELL "right">)
+			     	    (T <TELL "left">)>
+		       	      <TELL "." CR>)>)>)
+	       (<G? ,O-CTR 2>
+		<COND (.UPFRONT?
+		       <COND (<==? ,BUTTON-PUSHED 0>
+			      <TELL 
+"You watch in horror as the " D ,SHIP-CHOSEN " collides with" <OPRINT> "! ">
+			      <JIGS-UP
+"As the boat rapidly sinks, you see several sharks in the area. Mercifully,
+you black out before you meet your fate.">)
+			     (T
+			      <TELL "The boat veers to ">
+			      <COND (<==? ,BUTTON-PUSHED 1> <TELL "starboard">)
+				    (T <TELL "port">)>
+			      <COND (<==? ,O-SIDE ,BUTTON-PUSHED>
+				     <SETG BUTTON-PUSHED 0>
+				     <TELL ", away from" <OPRINT> "." CR>
+				     <SETG O-CTR 0>
+				     <ENABLE <QUEUE I-OBSTACLES
+						    <+ 15 <RANDOM 130>>>>
+				     <RTRUE>)
+				    (T <TELL
+". Unfortunately, this puts you directly on a collision course! ">
+				     <SETG BUTTON-PUSHED 0>
+				     <I-OBSTACLES>)>)>)
+		      (<NOT <EQUAL? ,O-SIDE ,BUTTON-PUSHED>>
+			    <TELL
+"You feel the boat list to ">
+			    <COND (<==? ,O-SIDE 1> <TELL "port">)
+				  (T <TELL "starboard">)>
+			    <JIGS-UP
+", and then start to sink! The water rises before you can respond.">)
+		      (T
+		       <SETG O-CTR 0>
+		       <SETG BUTTON-PUSHED 0>
+		       <ENABLE <QUEUE I-OBSTACLES <+ 15 <RANDOM 130>>>>
+		       <COND (<AND <NOT <EQUAL? ,ON-WATCH ,WEASEL>>
+				   <0? ,WATCH-CHANGE-CTR>>
+			      <COND (<EQUAL? ,SHIP-CHOSEN ,SALVAGER>
+				     <COND (<IN? ,WEASEL ,MM-ENGINE-ROOM>
+					    <ESTABLISH-GOAL ,WEASEL
+							    ,MM-CREW-QTRS>)
+				    	   (T <ESTABLISH-GOAL ,WEASEL
+							    ,MM-ENGINE-ROOM>)>)
+				    (T
+				     <COND (<IN? ,WEASEL ,NW-ENGINE-ROOM>
+					    <ESTABLISH-GOAL ,WEASEL
+							    ,NW-CREW-QTRS>)
+					   (T <ESTABLISH-GOAL ,WEASEL
+							 ,NW-ENGINE-ROOM>)>)>)>
+		       <COND (<AND <NOT <EQUAL? ,ON-WATCH ,PETE>>
+				   <0? ,WATCH-CHANGE-CTR>>
+			      <COND (<IN? ,PETE <LOC ,DRINKING-WATER>>
+				     <ESTABLISH-GOAL ,PETE <LOC ,BUNK>>)
+				    (T
+				 <ESTABLISH-GOAL ,PETE <LOC ,DRINKING-WATER>>)>
+			      ;<COND (<EQUAL? ,SHIP-CHOSEN ,SALVAGER>
+				     <COND (<IN? ,PETE ,MM-GALLEY>
+					    <ESTABLISH-GOAL ,PETE
+							    ,MM-CREW-QTRS>)
+				    	   (T <ESTABLISH-GOAL ,PETE
+							      ,MM-GALLEY>)>)
+				    (T
+				     <COND (<IN? ,PETE ,NW-GALLEY>
+					    <ESTABLISH-GOAL ,PETE
+							    ,NW-CREW-QTRS>)
+					   (T <ESTABLISH-GOAL ,PETE
+							      ,NW-GALLEY>)>)>)>
+		       <RFALSE>)>)>>
+
+;<ROUTINE OPRINT ("AUX" SIDE)
+	 <COND (<==? ,O-SIDE 1> <SET SIDE "port">)
+	       (T <SET SIDE "starboard">)>
+	 <COND (<==? ,O-NUM 1>
+		<COND (<==? ,O-CTR 1>
+		       <TELL
+"Some debris approaches the " .SIDE " bow of the boat!" CR>)
+		      (<==? ,O-CTR 2>
+		       <TELL
+"To " .SIDE ", some floating wreckage heads for the boat!" CR>)
+		      (<VERB? WALK> <RETURN " some debris">)
+		      (T <RETURN " the debris">)>)
+	       (<==? ,O-NUM 2>
+		<COND (<==? ,O-CTR 1>
+		       <TELL
+"You can see a coral reef ahead and off the " .SIDE " bow!" CR>)
+		      (<==? ,O-CTR 2>
+		       <TELL
+"A large, jagged coral reef looms ahead and to " .SIDE "!" CR>)
+		      (<VERB? WALK> <RETURN " a coral reef">)
+		      (T <RETURN " the coral reef">)>)
+	       (<==? ,O-NUM 3>
+		<COND (<==? ,O-CTR 1>
+		       <TELL
+"To " .SIDE ", a boat on a collision course approaches!" CR>)
+		      (<==? ,O-CTR 2>
+		       <TELL
+"A boat comes directly at your " .SIDE " bow!" CR>)
+		      (<VERB? WALK> <RETURN " a boat">)
+		      (T <RETURN " the boat">)>)>>
+
+;<GLOBAL ON-WATCH <>>
+
+;<GLOBAL O-NUM 0>
+
+;<GLOBAL O-SIDE 0>
+
+;<GLOBAL O-CTR 0>
+
+;<GLOBAL BUTTON-PUSHED 0>
+
+;<GLOBAL USELESS-TURNS 0>
+
+;<ROUTINE I-USELESS-TURN ("AUX" (V <>))
+	 <COND (<NOT ,AT-SEA>
+		<SETG BUTTON-PUSHED 0>
+		<DISABLE <INT I-USELESS-TURN>>
+		<RFALSE>)>
+	 <SETG USELESS-TURNS <+ ,USELESS-TURNS 1>>
+	 <COND (<G? ,O-CTR 1>
+		<RFALSE>)
+	       (<AND <VERB? PUSH>
+		     <PRSO? ,LEFT-BUTTON ,RIGHT-BUTTON>>
+		T)
+	       (T
+		<COND (<AND <EQUAL? <META-LOC ,PLAYER> ,MM-FORE-DECK
+				    		       ,NW-FORE-DECK>
+			    <NOT ,ASLEEP?>>
+		       <TELL "The boat veers to ">
+		       <COND (<==? ,BUTTON-PUSHED 1> <TELL "starboard">)
+		      	     (T <TELL "port">)>
+		       <TELL "." CR>
+		       <SET V T>)>
+	 	<SETG BUTTON-PUSHED 0>)>
+	 <DISABLE <INT I-USELESS-TURN>>
+	 .V>
+
+;<ROUTINE I-CHANGE-WATCH ("AUX" NEXT-UP (V <>))
+	 <COND (<AND <G? ,O-CTR 0>
+		     ,ON-WATCH>
+		<COND (<NOT <QUEUED? I-CHANGE-WATCH>>
+		       <ENABLE <QUEUE I-CHANGE-WATCH 1>>)>
+		<RFALSE>)>
+	 <SET NEXT-UP <GET ,WATCH-TABLE ,WT-PERSON>>
+	 <COND (<==? .NEXT-UP ,PLAYER>
+		<COND (<IN? ,PLAYER <LOC ,DECK-CHAIR>>
+		       <COND (<AND ,ON-WATCH
+				   <NOT <==? ,ON-WATCH ,PLAYER>>
+				   <NOT ,SEARCHER>>
+			      <SET V T>
+			      <START-SENTENCE ,ON-WATCH>
+		       	      <TELL
+" says to you, \"Your watch,\" stands, then goes down the ladder." CR>
+		       	      <MOVE ,ON-WATCH <LOC ,BUNK>>)>
+		       <SETG ON-WATCH ,PLAYER>
+		       <COND (<NOT ,SEARCHER>
+			      <SET-NEXT-WATCH>
+			      <RETURN .V>)>)>
+		<SETG WATCH-CHANGE-CTR <+ ,WATCH-CHANGE-CTR 1>>
+		<COND (<==? ,WATCH-CHANGE-CTR 1>
+		       <ENABLE <QUEUE I-CHANGE-WATCH -1>>
+		       <COND (<EQUAL? <META-LOC ,PLAYER> ,MM-CREW-QTRS
+				      			 ,NW-CREW-QTRS>
+			      <COND (,ASLEEP?
+				     <TELL "You are awakened by ">)
+				    (T <TELL "You hear ">)>
+			      <TELL
+D ,ON-WATCH " yelling down that it's your watch." CR>)
+			     (<AND <GLOBAL-IN? ,RAILING ,HERE>
+				   <NOT <IN? ,DECK-CHAIR ,HERE>>>
+			      <TELL
+"You hear " D ,ON-WATCH " yelling that it's your watch." CR>)>)
+		      (<==? ,WATCH-CHANGE-CTR 5>
+		       <COND (<EQUAL? <META-LOC ,PLAYER> ,MM-CREW-QTRS
+				      			 ,NW-CREW-QTRS>
+			      <RFALSE>)>
+		       <SETG SEARCHER ,ON-WATCH>
+		       <SETG ON-WATCH <>>
+		       <MOVE ,SEARCHER <LOC ,DECK-CHAIR>>
+		       <ESTABLISH-GOAL ,SEARCHER <META-LOC ,PLAYER>>
+		       <RFALSE>)
+		      (<G? ,WATCH-CHANGE-CTR 5>
+		       <COND (<EQUAL? ,ON-WATCH ,PETE ,WEASEL>
+			      <MOVE ,ON-WATCH <META-LOC ,PLAYER>>
+			      <SETG QCONTEXT ,ON-WATCH>
+			      <SETG QCONTEXT-ROOM <META-LOC ,PLAYER>>
+			      <COND (<IN? ,PLAYER ,BUNK>
+				     <TELL
+"A hand shakes you. \"Get up and get topside!\" " D ,ON-WATCH " says.
+\"You're on watch!\"" CR>)
+				    (T
+				     <START-SENTENCE ,ON-WATCH>
+				     <TELL
+" walks in. \"Get to the foredeck!\" he says. \"It's your watch!\"" CR>)>
+			      <SETG ON-WATCH <>>
+			      <RTRUE>)
+			     (<NOT ,SEARCHER> <RFALSE>)
+			     (<NOT <EQUAL? <GET <GET ,GOAL-TABLES
+						<GETP ,SEARCHER ,P?CHARACTER>>
+					   ,GOAL-F>
+					   <META-LOC ,PLAYER>>>
+			      <ESTABLISH-GOAL ,SEARCHER <META-LOC ,PLAYER>>
+			      <RFALSE>)>)>)
+	       (T
+		<SETG WATCH-CHANGE-CTR <+ ,WATCH-CHANGE-CTR 1>>
+		<COND (<==? ,WATCH-CHANGE-CTR 1>
+		       <ENABLE <QUEUE I-CHANGE-WATCH -1>>
+		       <COND (<AND <EQUAL? <META-LOC ,PLAYER> ,MM-CREW-QTRS
+				     			      ,NW-CREW-QTRS>
+				   <NOT <EQUAL? ,ON-WATCH ,PLAYER>>>
+			      <COND (,ASLEEP?
+				     <TELL "You are awakened by ">)
+				    (T <TELL "You hear ">)>
+			      <TELL
+D ,ON-WATCH " yelling to " D .NEXT-UP " that it's his watch." CR>
+			      <SET V T>)>
+		       <ESTABLISH-GOAL .NEXT-UP <LOC ,DECK-CHAIR>>
+		       .V)
+		      (<IN? .NEXT-UP <LOC ,DECK-CHAIR>>
+		       <COND (<==? ,ON-WATCH ,PLAYER>
+			      <COND (<IN? ,PLAYER ,DECK-CHAIR>
+				     <SETG QCONTEXT .NEXT-UP>
+				     <SETG QCONTEXT-ROOM <LOC ,DECK-CHAIR>>
+				     <TELL-COMES-UP .NEXT-UP>
+				     <TELL "\"Get up and I'll relieve you.\"" CR>)
+				    (T
+				     <SETG ON-WATCH .NEXT-UP>
+				     <MOVE ,ON-WATCH ,DECK-CHAIR>
+				     <COND (<L? ,HOW-TIRED 2>
+					    <SETG HOW-TIRED 2>)>
+				     <SET-NEXT-WATCH>
+				     <COND (<IN? ,PLAYER <LOC ,DECK-CHAIR>>
+					    <START-SENTENCE ,ON-WATCH>
+					    <TELL " sits in the chair." CR>)>)>)
+			     (T
+			      <COND (<IN? ,PLAYER <LOC ,DECK-CHAIR>>
+				     <START-SENTENCE .NEXT-UP>
+				     <TELL
+" comes up and says to " D ,ON-WATCH ", \"I'm here to stand watch.\" ">
+				     <START-SENTENCE ,ON-WATCH>
+				     <TELL
+" gets up and " D .NEXT-UP " sits in the lookout's chair." CR>
+				     <SET V T>)>
+			      <MOVE ,ON-WATCH <LOC ,DECK-CHAIR>>
+			      <MOVE .NEXT-UP ,DECK-CHAIR>
+			      <COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+				     <ESTABLISH-GOAL ,ON-WATCH ,MM-GALLEY>)
+				    (T <ESTABLISH-GOAL ,ON-WATCH ,NW-GALLEY>)>
+			      <SETG ON-WATCH .NEXT-UP>
+			      <SET-NEXT-WATCH>
+			      .V)>)>)>>
+
+;<ROUTINE SET-NEXT-WATCH ("AUX" NEXT-TIME)
+	 <SETG WATCH-CHANGE-CTR 0>
+	 <COND (<GET ,WATCH-TABLE ,WT-NEXT>
+		<COND (<L? <SET NEXT-TIME <GET ,WATCH-TABLE ,WT-TIME>>
+			   ,PRESENT-TIME>
+		       <SET NEXT-TIME <+ .NEXT-TIME 1440>>)>
+		<ENABLE <QUEUE I-CHANGE-WATCH <- .NEXT-TIME ,PRESENT-TIME>>>
+	 	<SETG WATCH-TABLE <REST ,WATCH-TABLE ,WT-REST>>)
+	       (T
+		<DISABLE <INT I-CHANGE-WATCH>>
+		<ENABLE <QUEUE I-DIVETIME <+ 165 <RANDOM 15>>>>)>>	 
+
+;<GLOBAL SEARCHER <>>
+
+;<GLOBAL WATCH-CHANGE-CTR 0>
+
+;<GLOBAL WATCH-TABLE
+	<TABLE WEASEL     1075
+	       PETE       1255
+	       ADVENTURER 1435
+	       WEASEL     175
+	       PETE       355
+	       0>>
+
+;<CONSTANT WT-PERSON 0>
+;<CONSTANT WT-TIME 1>
+;<CONSTANT WT-REST 4>
+;<CONSTANT WT-NEXT 2>
+
+<ROUTINE I-SQUID ("AUX" (L <LOC ,SQUID>))
+	 <COND (<==? <META-LOC ,PLAYER> .L>
+		<JIGS-UP
+"The giant squid stirs and sees what disturbed it. When the huge eyes spot
+you, it moves toward you and hugs you with its tentacles. You squirm in an
+attempt to get away, but more arms surround you and one disconnects your
+airhose.">)
+	       (T
+		<DISABLE <INT I-SQUID>>
+		<RFALSE>)>>
+
+<ROUTINE I-SHARK ()
+	 <COND (<L? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		<DISABLE <INT I-SHARK>>
+		<MOVE ,SHARK ,LOCAL-GLOBALS>
+		<FCLEAR ,SHARK ,ONBIT>
+		<RFALSE>)
+	       (<IN? ,SHARK ,UNDERWATER>
+		<COND (<AND <IN? ,SHARK-REPELLENT ,PLAYER>
+			    <FSET? ,SHARK-REPELLENT ,OPENBIT>>
+		       <MOVE ,SHARK ,WINDING-ROAD-2>;"now useless location"
+		       <DISABLE <INT I-SHARK>>
+		       <COND (<NOT ,LIT>
+			      <RFALSE>)
+			     (<FSET? ,SHARK ,ONBIT>
+			      <TELL "The shark continues">)
+			     (T <TELL "A shark swims">)>
+		       <TELL
+" toward you, then stops. It turns and swims away." CR>)
+		      (T
+		       <COND (<FSET? ,SHARK ,ONBIT>
+			      <TELL "The shark">)
+			     (,LIT <TELL "A shark">)
+			     (T <TELL "Something">)>
+		       <JIGS-UP " swims up to you and starts nibbling.">)>)
+	       (T
+		<MOVE ,SHARK ,UNDERWATER>
+		<ENABLE <QUEUE I-SHARK -1>>
+		<COND (,LIT
+		       <FSET ,SHARK ,ONBIT>
+		       <TELL "A shark swims toward you!" CR>)>)>>
+
+<ROUTINE I-PLUMMET ()
+	 <SETG CRIMP-CTR <+ ,CRIMP-CTR 1>>
+	 <COND (<==? ,CRIMP-CTR 1>
+		<ENABLE <QUEUE I-PLUMMET -1>>
+		<COND (<GLOBAL-IN? ,FALLEN-BUNK ,HERE>
+		       <SETG P-IT-OBJECT ,FALLEN-BUNK>
+		       <TELL
+"The row of bunks you moved starts to fall." CR>)>)
+	       (<==? ,CRIMP-CTR 2>
+		<COND (<GLOBAL-IN? ,FALLEN-BUNK ,HERE>
+		       <SETG P-IT-OBJECT ,FALLEN-BUNK>
+		       <TELL "The row of bunks falls toward the doorway">
+		       <COND (<EQUAL? ,HERE ,WRECK-8>
+			      <TELL
+			       ", threatening to pinch your " D ,AIR-HOSE "!">)
+			     (T <TELL ".">)>
+		       <CRLF>)>)
+	       (<==? ,CRIMP-CTR 3>
+		<COND (<GLOBAL-IN? ,FALLEN-BUNK ,HERE>
+		       <COND (<EQUAL? ,HERE ,WRECK-8>
+			      <JIGS-UP
+"The row of fallen bunks pinches your airhose. A few moments later,
+it is impossible to breathe.">)
+			     (T
+			      <SETG BUNKS-MOVED <>>
+			      <SETG P-IT-OBJECT ,FALLEN-BUNK>
+			      <TELL
+"The bunks fall back into the doorway, blocking the passage." CR>)>)
+		      (<OR <EQUAL? ,HERE ,WRECK-1 ,WRECK-2 ,WRECK-3>
+			   <EQUAL? ,HERE ,WRECK-4 ,WRECK-5 ,WRECK-6>
+			   <EQUAL? ,HERE ,UNDERWATER>>
+		       <SETG BUNKS-MOVED <>>
+		       <RFALSE>)
+		      (T
+		       <JIGS-UP
+"You find yourself gasping for air, but there's none to breathe!">)>)>>
+
+<GLOBAL CRIMP-CTR 0>
+
+<ROUTINE I-LIVER ()
+	 <COND (<G? ,BLOOD-ALCOHOL 0>
+		<SETG BLOOD-ALCOHOL <- ,BLOOD-ALCOHOL 1>>)>
+	 <COND (<G? ,SLOSH-CTR 0>
+		<SETG SLOSH-CTR <- ,SLOSH-CTR 1>>)>
+	 <ENABLE <QUEUE I-LIVER 10>>
+	 <COND (<G? ,BLOOD-ALCOHOL 15>
+	        <TELL "Your head swims for a minute." CR>
+		<RFATAL>)>
+	 <RFALSE>>
+
+<ROUTINE I-PENDULUM ("AUX" (DIR <>))
+	 <QUEUE I-PENDULUM -2>
+	 <COND (<==? ,LINE-LOC 5>
+		<SETG LINE-LOC-INC -1>)
+	       (<==? ,LINE-LOC 1>
+		<SETG LINE-LOC-INC 1>)
+	       (<IN? ,SAFETY-LINE <META-LOC ,PLAYER>>
+		<COND (<EQUAL? ,LINE-LOC-INC 1>
+		       <SET DIR "north">)
+		      (T <SET DIR "south">)>)>
+	 <SETG LINE-LOC <+ ,LINE-LOC ,LINE-LOC-INC>>
+	 <COND (<==? ,LINE-LOC 2>
+		<MOVE ,SAFETY-LINE ,WEST-OF-WRECK-9>
+		<COND (<==? ,HERE ,WEST-OF-WRECK-9>
+		       <TELL-LINE-SWINGS>)>)
+	       (<==? ,LINE-LOC 4>
+		<MOVE ,SAFETY-LINE ,WEST-OF-WRECK-11>
+		<COND (<==? ,HERE ,WEST-OF-WRECK-11>
+		       <TELL-LINE-SWINGS>)>)
+	       (T
+		<MOVE ,SAFETY-LINE ,LOCAL-GLOBALS>
+		<COND (.DIR
+		       <TELL "The line swings away to the " .DIR "." CR>)>)>>
+
+<ROUTINE TELL-LINE-SWINGS ()
+	 <TELL "The " D ,SAFETY-LINE " from above swings in from the ">
+	 <COND (<EQUAL? ,LINE-LOC-INC 1>
+		<TELL "south">)
+	       (T <TELL "north">)>
+	 <TELL "." CR>>
+
+<GLOBAL LINE-LOC 1>
+<GLOBAL LINE-LOC-INC 1>
+
+<ROUTINE I-CASE-LEAK ("AUX" (ALREADY <>))
+	 <SETG WATER-IN-CASE <+ ,WATER-IN-CASE 1>>
+	 <COND (<G? ,WATER-IN-CASE 9>
+		<COND (<FSET? ,STAMPS ,RMUNGBIT>
+		       <SET ALREADY T>)>
+		<FSET ,STAMPS ,RMUNGBIT>
+		<DISABLE <INT I-CASE-LEAK>>)>
+	 <COND (<IN? ,GLASS-CASE ,PLAYER>
+		<TELL "The water level in the " D ,GLASS-CASE " rises.">
+		<COND (<AND <FSET? ,STAMPS ,RMUNGBIT>
+			    <NOT .ALREADY>>
+		       <TELL " As it reaches the stamps, it soaks them.">)>
+		<CRLF>)>>
+
+<GLOBAL WATER-IN-CASE 0>
+
+<ROUTINE I-DRILL ()
+	 <FSET ,BATTERY ,RMUNGBIT>
+	 <SETG DRILL-POWERED <>>
+	 <DISABLE <INT I-DRILL>>
+	 <TELL "The " D ,DRILL " sputters, and the bit stops turning." CR>>
+
+<ROUTINE I-AIR-SUPPLY ()
+	 <COND (<AND <==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		     <IN? ,AIR-TANK ,PLAYER>
+		     <NOT <AIRTIGHT-ROOM?>>>
+		<SETG AIR-LEFT <- ,AIR-LEFT </ <+ ,DEPTH 33> 44>>>
+		<COND (<L? ,AIR-LEFT 1>
+		       <JIGS-UP "You've used all your air.">)
+		      (<L? ,AIR-LEFT 15>
+		       <TELL "Your air supply is dangerously low." CR>
+		       <COND (<==? ,WAITED? 1>
+			      <RTRUE>)
+			     (T <RFATAL>)>)>)>>
+
+<ROUTINE I-MM-COMPRESSOR ()
+	 <ENABLE <QUEUE I-LAST-GASP 10>>
+	 <COND (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		<TELL
+"You have to breathe harder. Maybe you'd better surface." CR>
+		<RFATAL>)>>
+
+<ROUTINE I-LAST-GASP ()
+	 <COND (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		<JIGS-UP
+"There's not enough air to breathe!">)
+	       (T
+		<DISABLE <QUEUE I-LAST-GASP 1>>)>>
+
+<ROUTINE I-PLOT-NEVER-STARTS ()
+	 <DISABLE <INT I-JOHNNY>>
+	 <DISABLE <INT I-PETE>>
+	 <COND (<IN? ,WEASEL ,SHANTY>
+		<DISABLE <INT I-WEASEL>>)>
+	 <SETG FM-CTR 5>
+	 <RFALSE>>
+
+<ROUTINE I-ENDIT ()
+	 <COND (<L? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		<JIGS-UP
+"You suddenly find Red's hands around your throat as he makes a comment
+about hating cowards and Hevlin being wrong.">)>>
\ No newline at end of file
diff --git a/globals.zap b/globals.zap
new file mode 100644
index 0000000..1fcf99c
--- /dev/null
+++ b/globals.zap
@@ -0,0 +1,1313 @@
+
+
+	.FUNCT	RED-HERRING-F
+	EQUAL?	PRSA,V?ASK-ABOUT /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,RED-HERRING
+	RSTACK	
+
+
+	.FUNCT	INTNUM-F
+	EQUAL?	PRSA,V?WITHDRAW,V?GIVE \?ELS5
+	ZERO?	P-DOLLAR-FLAG \?ELS5
+	PRINTI	"Next time, tell me what there's "
+	PRINTN	P-NUMBER
+	PRINTI	" of."
+	CRLF	
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	2
+?ELS5:	ZERO?	P-DOLLAR-FLAG /FALSE
+	EQUAL?	PRSA,V?ASK-FOR,V?TAKE,V?WITHDRAW /FALSE
+	EQUAL?	WINNER,PLAYER \FALSE
+	GRTR?	P-AMOUNT,POCKET-CHANGE \FALSE
+	CALL	TELL-DONT-HAVE,STR?2
+	RSTACK	
+
+
+	.FUNCT	AIR-F
+	EQUAL?	PRSA,V?TASTE,V?SMELL \?ELS5
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK /?ELS10
+	FSET?	MASK,WORNBIT /?ELS10
+	PRINTR	"The air is musty but breathable."
+?ELS10:	EQUAL?	HERE,MM-ENGINE-ROOM,NW-ENGINE-ROOM \?ELS16
+	PRINTR	"The air is heavy with diesel fumes."
+?ELS16:	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS20
+	PRINTR	"It feels a whole lot better than the water you could be breathing."
+?ELS20:	PRINTR	"You find nothing special about the air."
+?ELS5:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS28
+	PRINTR	"I think you're an air head."
+?ELS28:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS32
+	CALL	PERFORM,V?LOOK
+	RTRUE	
+?ELS32:	EQUAL?	PRSI,AIR \FALSE
+	EQUAL?	PRSA,V?DROP,V?THROW \FALSE
+	CALL	PERFORM,PRSA,PRSO,GROUND
+	RTRUE	
+
+
+	.FUNCT	FLOOR-F
+	EQUAL?	PRSA,V?PUT,V?PUT-ON \FALSE
+	EQUAL?	PRSI,GROUND \FALSE
+	CALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+
+	.FUNCT	DECK-F
+	EQUAL?	PRSA,V?WALK-TO \?ELS5
+	CALL	TELL-SHD-DIR
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?PUT,V?PUT-ON \FALSE
+	EQUAL?	PRSI,DECK \FALSE
+	CALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+
+	.FUNCT	FLOOR-HOLE-F
+	EQUAL?	PRSA,V?THROUGH \?ELS5
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS7
+	CALL	TELL-YOU-CANT,STR?6
+	RSTACK	
+?ELS7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,WRECK-5 \?ELS14
+	ZERO?	WRECK-5-FLOODED \?ELS14
+	PRINTR	"There's water on the other side."
+?ELS14:	CALL	TELL-LOOKS-HOLE
+	RSTACK	
+
+
+	.FUNCT	TELL-LOOKS-HOLE
+	PRINTR	"It looks a lot like a hole."
+
+
+	.FUNCT	CEILING-HOLE-F
+	EQUAL?	PRSA,V?THROUGH \?ELS5
+	CALL	DO-WALK,P?UP
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS7
+	CALL	TELL-YOU-CANT,STR?6
+	RSTACK	
+?ELS7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	CALL	TELL-LOOKS-HOLE
+	RSTACK	
+
+
+	.FUNCT	HOLE-F
+	EQUAL?	PRSA,V?DRILL /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,HOLE
+	RSTACK	
+
+
+	.FUNCT	MAST-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"There are several rotting masts here."
+	EQUAL?	HERE,WRECK-1 \?CND8
+	PRINTI	" The top of one has fallen into a hole at your feet."
+?CND8:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	PRINTR	"None of the masts looks sturdy enough."
+
+
+	.FUNCT	LIGHTHOUSE-F
+	EQUAL?	HERE,WINDING-ROAD-1 \?ELS5
+	EQUAL?	PRSA,V?OPEN,V?THROUGH \?ELS10
+	PRINTR	"The door is locked."
+?ELS10:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"You can see the base of a "
+	CALL	DPRINT,LIGHTHOUSE
+	PRINTI	". "
+	CALL	TELL-CLOSED,STR?7
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS23
+	PRINTI	"The "
+	CALL	DPRINT,LIGHTHOUSE
+	PRINTI	" towers over Hardscrabble Island from the island's northwest corner."
+	GRTR?	PRESENT-TIME,1200 /?THN29
+	LESS?	PRESENT-TIME,480 \?CND26
+?THN29:	PRINTI	" Its light provides a beacon for ships."
+?CND26:	CRLF	
+	RTRUE	
+?ELS23:	EQUAL?	PRSA,V?WALK-TO \?ELS34
+	CALL	TELL-SHD-DIR
+	RSTACK	
+?ELS34:	EQUAL?	PRSA,V?FIND /FALSE
+	EQUAL?	PRSA,V?ASK-ABOUT \?ELS38
+	FSET?	PRSO,VICBIT \FALSE
+	PRINTR	"""It's been there forever."""
+?ELS38:	PRINTR	"That would be difficult from this distance."
+
+
+	.FUNCT	GLOBAL-TREASURE-F
+	EQUAL?	PRSA,V?TELL,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /FALSE
+	EQUAL?	PRSA,V?FIND \?ELS7
+	EQUAL?	WINNER,PLAYER \?ELS12
+	CALL	TELL-NOT-EASY
+	RSTACK	
+?ELS12:	PRINTR	"""I'd like to know where some is."""
+?ELS7:	CALL	GLOBAL-NOT-HERE-PRINT,GLOBAL-TREASURE
+	RSTACK	
+
+
+	.FUNCT	TRAWLER-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,TRAWLER-LINE-C \?ELS10
+	PRINTI	"The "
+	CALL	DPRINT,TRAWLER
+	PRINTR	" is in decent shape."
+?ELS10:	EQUAL?	HERE,MM-WHEELHOUSE \?ELS14
+	ZERO?	AT-SEA /?ELS14
+	CALL	GLOBAL-NOT-HERE-PRINT,TRAWLER
+	RSTACK	
+?ELS14:	PRINTI	"The "
+	CALL	DPRINT,TRAWLER
+	CALL	TELL-BOAT-DESC
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?THROUGH,V?BOARD \?ELS22
+	EQUAL?	HERE,WHARF \?ELS25
+	CALL	DO-WALK,P?WEST
+	RTRUE	
+?ELS25:	EQUAL?	HERE,UNDERWATER \?ELS27
+	EQUAL?	DEPTH,50 \?ELS27
+	CALL	DO-WALK,P?UP
+	RTRUE	
+?ELS27:	CALL	TELL-YOU-CANT,STR?8
+	RTRUE	
+?ELS22:	EQUAL?	PRSA,V?DISEMBARK \?ELS33
+	ZERO?	AT-SEA /?ELS38
+	CALL	GLOBAL-IN?,RAILING,HERE
+	ZERO?	STACK /?ELS44
+	CALL	PERFORM,V?DIVE
+	RTRUE	
+?ELS44:	CALL	TELL-NO-EXIT
+	RSTACK	
+?ELS38:	EQUAL?	HERE,NW-STARBOARD-DECK \?ELS48
+	CALL	DO-WALK,P?EAST
+	RSTACK	
+?ELS48:	CALL	TELL-NO-EXIT
+	RSTACK	
+?ELS33:	EQUAL?	PRSA,V?LISTEN \?ELS52
+	ZERO?	AT-SEA /?ELS52
+	CALL	TELL-THRUM
+	RSTACK	
+?ELS52:	EQUAL?	PRSA,V?LAUNCH \FALSE
+	CALL	TELL-YOU-CANT,STR?9
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-EXIT
+	CALL	TELL-HOW-THAT,STR?10,STR?11
+	RSTACK	
+
+
+	.FUNCT	TELL-HOW-THAT,STR,LAST=0
+	PRINTI	"How can you "
+	PRINT	STR
+	PRINTI	" that"
+	ZERO?	LAST /?CND3
+	PRINTI	" "
+	PRINT	LAST
+?CND3:	PRINTR	"?"
+
+
+	.FUNCT	TELL-BOAT-DESC
+	PRINTR	" looks weathered but not aged."
+
+
+	.FUNCT	TELL-THRUM
+	PRINTR	"You hear the powerful thrum of diesel engines."
+
+
+	.FUNCT	SALVAGER-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,SALVAGER-LINE-C \?ELS10
+	PRINTI	"The "
+	CALL	DPRINT,SALVAGER
+	PRINTR	" is shipshape."
+?ELS10:	EQUAL?	HERE,NW-WHEELHOUSE \?ELS14
+	ZERO?	AT-SEA /?ELS14
+	CALL	GLOBAL-NOT-HERE-PRINT,SALVAGER
+	RSTACK	
+?ELS14:	PRINTI	"The "
+	CALL	DPRINT,SALVAGER
+	PRINTI	" is a medium-size boat that"
+	CALL	TELL-BOAT-DESC
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?THROUGH,V?BOARD \?ELS22
+	EQUAL?	HERE,WHARF \?ELS25
+	CALL	DO-WALK,P?EAST
+	RTRUE	
+?ELS25:	EQUAL?	HERE,UNDERWATER \?ELS27
+	EQUAL?	DEPTH,50 \?ELS27
+	CALL	DO-WALK,P?UP
+	RTRUE	
+?ELS27:	CALL	TELL-YOU-CANT,STR?8
+	RTRUE	
+?ELS22:	EQUAL?	PRSA,V?DISEMBARK \?ELS33
+	ZERO?	AT-SEA /?ELS38
+	CALL	GLOBAL-IN?,RAILING,HERE
+	ZERO?	STACK /?ELS44
+	CALL	PERFORM,V?DIVE
+	RTRUE	
+?ELS44:	CALL	TELL-NO-EXIT
+	RSTACK	
+?ELS38:	EQUAL?	HERE,MM-PORT-DECK \?ELS48
+	CALL	DO-WALK,P?WEST
+	RSTACK	
+?ELS48:	CALL	TELL-NO-EXIT
+	RSTACK	
+?ELS33:	EQUAL?	PRSA,V?LISTEN \?ELS52
+	ZERO?	AT-SEA /?ELS52
+	CALL	TELL-THRUM
+	RSTACK	
+?ELS52:	EQUAL?	PRSA,V?LAUNCH \FALSE
+	CALL	TELL-YOU-CANT,STR?9
+	RSTACK	
+
+
+	.FUNCT	SHIPWRECK-F
+	EQUAL?	PRSA,V?DISEMBARK \?ELS5
+	CALL	TELL-NOT-EASY
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"It is what's left of a "
+	EQUAL?	WRECK-CHOSEN,1,3 \?ELS12
+	PRINTI	"wooden"
+	JUMP	?CND10
+?ELS12:	PRINTI	"steel"
+?CND10:	PRINTR	" ship."
+
+
+	.FUNCT	GLOBAL-SLEEP-F
+	EQUAL?	PRSA,V?WALK-TO \?ELS5
+	CALL	PERFORM,V?SLEEP
+	RTRUE	
+?ELS5:	PRINTR	"Huh? Wake up!"
+
+
+	.FUNCT	FIELD-F
+	EQUAL?	PRSA,V?THROUGH,V?BOARD \?ELS5
+	CALL	TELL-YOU-CANT,STR?12
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?LOOK-BEHIND \?ELS7
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS7:	EQUAL?	PRSA,V?CUT \?ELS11
+	CALL	TELL-DONT-HAVE,STR?13
+	RSTACK	
+?ELS11:	EQUAL?	PRSA,V?PLAY \?ELS13
+	PRINTR	"Sounds exciting."
+?ELS13:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"This field was once productive farmland but hasn't been tended for many years."
+
+
+	.FUNCT	ROCKS-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTR	"The rocks here are large, pointy, and impossible to get through."
+?ELS5:	EQUAL?	PRSA,V?THROUGH,V?BOARD \FALSE
+	CALL	TELL-YOU-CANT,STR?14
+	RSTACK	
+
+
+	.FUNCT	POCKET-F
+	FSET?	WET-SUIT,WORNBIT /?THN6
+	FSET?	DEEP-SUIT,WORNBIT \?ELS5
+?THN6:	PRINTR	"Your diving gear is over the pocket."
+?ELS5:	EQUAL?	PRSA,V?TAKE \?ELS11
+	EQUAL?	PRSO,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY \?ELS11
+	CALL	TELL-FLASHING-CASH
+	RSTACK	
+?ELS11:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS15
+	PRINTI	"There is $"
+	PRINTN	POCKET-CHANGE
+	PRINTR	" in it."
+?ELS15:	EQUAL?	PRSA,V?EMPTY \?ELS19
+	PRINTR	"You think better of the idea."
+?ELS19:	EQUAL?	PRSA,V?OPEN \?ELS23
+	PRINTR	"It's open enough."
+?ELS23:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSI,POCKET \FALSE
+	ZERO?	P-DOLLAR-FLAG /?ELS34
+	EQUAL?	PRSO,INTNUM \?ELS34
+	GRTR?	P-AMOUNT,POCKET-CHANGE \?ELS34
+	CALL	TELL-DONT-HAVE,STR?2
+	RSTACK	
+?ELS34:	EQUAL?	PRSO,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY /?THN39
+	EQUAL?	PRSO,INTNUM \?ELS38
+	ZERO?	P-DOLLAR-FLAG /?ELS38
+?THN39:	CALL	TELL-ALREADY,STR?16
+	RSTACK	
+?ELS38:	CALL	TELL-NO-FIT
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-FIT,STR=0
+	PRINTI	"It won't fit"
+	ZERO?	STR /?CND3
+	PRINTI	" "
+	PRINT	STR
+?CND3:	PRINTR	"."
+
+
+	.FUNCT	PEOPLE-F
+	EQUAL?	HERE,SHANTY,FERRY-LANDING \?ELS5
+	PRINTR	"Leave them alone. They're not bothering you."
+?ELS5:	IN?	HERE,WEASEL /?THN10
+	IN?	HERE,JOHNNY /?THN10
+	IN?	HERE,PETE /?THN10
+	IN?	HERE,SPEAR-CARRIER /?THN10
+	IN?	HERE,DELIVERY-BOY \?ELS9
+?THN10:	CALL	TELL-REFER-INDIVIDUAL,STR?17
+	RSTACK	
+?ELS9:	CALL	GLOBAL-NOT-HERE-PRINT,PEOPLE
+	RSTACK	
+
+
+	.FUNCT	TELL-REFER-INDIVIDUAL,STR
+	PRINTI	"Refer to individual"
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	GLOBAL-SURFACE-F
+	EQUAL?	PRSA,V?OPEN \FALSE
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	MOVE-SHARED-OBJECTS,PLACE,CTR=0,SURFACE?=1,?TMP1
+	EQUAL?	PLACE,LAST-S-O-T-PLACE /FALSE
+	EQUAL?	LAST-S-O-T-PLACE,MM-CREW-QTRS,NW-CREW-QTRS \?ELS5
+	SET	'SURFACE?,FALSE-VALUE
+	CALL	UNLOAD,UNDER-BUNK
+	CALL	UNLOAD,BUNK
+	JUMP	?CND1
+?ELS5:	EQUAL?	LAST-S-O-T-PLACE,MM-GALLEY,NW-GALLEY \?ELS7
+	CALL	UNLOAD,STOVE
+	JUMP	?CND1
+?ELS7:	EQUAL?	LAST-S-O-T-PLACE,MM-LOUNGE,NW-LOUNGE \?CND1
+	CALL	UNLOAD,LOUNGE-CHAIR
+?CND1:	ZERO?	SURFACE? /?CND10
+	CALL	UNLOAD,GLOBAL-SURFACE
+?CND10:	EQUAL?	PLACE,MM-CREW-QTRS,NW-CREW-QTRS /?CND14
+	MOVE	GLOBAL-SURFACE,PLACE
+?CND14:	SET	'LAST-S-O-T-PLACE,PLACE
+?PRG17:	GRTR?	CTR,44 /TRUE
+	ADD	CTR,1
+	GET	SHARED-OBJECT-TABLE,STACK
+	EQUAL?	STACK,PLACE \?CND19
+	GET	SHARED-OBJECT-TABLE,CTR >?TMP1
+	ADD	CTR,2
+	GET	SHARED-OBJECT-TABLE,STACK
+	MOVE	?TMP1,STACK
+	PUT	SHARED-OBJECT-TABLE,CTR,0
+	ADD	CTR,1
+	PUT	SHARED-OBJECT-TABLE,STACK,0
+	ADD	CTR,2
+	PUT	SHARED-OBJECT-TABLE,STACK,0
+?CND19:	ADD	CTR,3 >CTR
+	JUMP	?PRG17
+
+
+	.FUNCT	UNLOAD,OBJ,F,N
+	FIRST?	OBJ >F \FALSE
+	NEXT?	F >N /?KLU11
+?KLU11:	CALL	PUT-IN-TABLE,F,LAST-S-O-T-PLACE,OBJ
+?PRG6:	ZERO?	N /TRUE
+	SET	'F,N
+	NEXT?	F >N /?KLU12
+?KLU12:	CALL	PUT-IN-TABLE,F,LAST-S-O-T-PLACE,OBJ
+	JUMP	?PRG6
+
+
+	.FUNCT	PUT-IN-TABLE,OBJ,RM,SURF,CTR=0
+	EQUAL?	OBJ,PLAYER /FALSE
+?PRG4:	GRTR?	CTR,44 \?ELS8
+	JUMP	?REP5
+?ELS8:	GET	SHARED-OBJECT-TABLE,CTR
+	ZERO?	STACK \?ELS10
+	PUT	SHARED-OBJECT-TABLE,CTR,OBJ
+	ADD	CTR,1
+	PUT	SHARED-OBJECT-TABLE,STACK,RM
+	ADD	CTR,2
+	PUT	SHARED-OBJECT-TABLE,STACK,SURF
+	MOVE	OBJ,LOCAL-GLOBALS
+	RFALSE	
+?ELS10:	ADD	CTR,3 >CTR
+	JUMP	?PRG4
+?REP5:	PRINTR	"[BUG: Too much on surfaces.]"
+
+
+	.FUNCT	GLOBAL-BANK-F
+	EQUAL?	HERE,BANK \?ELS5
+	EQUAL?	PRSA,V?EXAMINE \?ELS10
+	CALL	PERFORM,V?LOOK
+	SET	'P-IT-OBJECT,GLOBAL-BANK
+	RTRUE	
+?ELS10:	EQUAL?	PRSA,V?ROB \?ELS12
+	CALL	ROBBERY-ENDING
+	RSTACK	
+?ELS12:	EQUAL?	PRSA,V?EXIT,V?DROP \?ELS14
+	CALL	DO-WALK,P?OUT
+	RTRUE	
+?ELS14:	EQUAL?	PRSA,V?MUNG \FALSE
+	PRINTR	"This isn't Monte Carlo."
+?ELS5:	EQUAL?	HERE,SHORE-ROAD-2 \?ELS20
+	EQUAL?	PRSA,V?THROUGH \?ELS25
+	CALL	DO-WALK,P?IN
+	RTRUE	
+?ELS25:	EQUAL?	PRSA,V?EXAMINE \?ELS27
+	PRINTI	"The "
+	CALL	DPRINT,BANK
+	PRINTR	" is an imposing granite building."
+?ELS27:	EQUAL?	PRSA,V?ROB \FALSE
+	ZERO?	BUSINESS-HOURS? /?ELS36
+	CALL	ROBBERY-ENDING
+	RSTACK	
+?ELS36:	CALL	ROBBERY-ENDING,FALSE-VALUE
+	RSTACK	
+?ELS20:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS45
+	EQUAL?	PRSI,GLOBAL-BANK /FALSE
+?ELS45:	EQUAL?	PRSA,V?WALK-TO,V?FIND \?ELS41
+	EQUAL?	PRSO,GLOBAL-BANK /FALSE
+?ELS41:	CALL	GLOBAL-NOT-HERE-PRINT,GLOBAL-BANK
+	RSTACK	
+
+
+	.FUNCT	ROBBERY-ENDING,INSIDE?=1
+	ZERO?	INSIDE? /?ELS3
+	PRINTI	"The teller trips the alarm, and policemen come and drag you away. As you contemplate a stretch in prison, you consider that crime might not pay."
+	CRLF	
+	JUMP	?CND1
+?ELS3:	PRINTI	"You don't realize your attempts have set off a silent alarm until the police arrive. At that point, you can only wonder if attempted robbery wasn't such a bright idea."
+	CRLF	
+?CND1:	CRLF	
+	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	GLOBAL-MONEY-F
+	EQUAL?	PRSA,V?STEP,V?ASK-ABOUT,V?ASK-FOR /FALSE
+	EQUAL?	PRSA,V?FOLLOW,V?WHAT /FALSE
+	EQUAL?	PRSA,V?FIND \?ELS9
+	CALL	TELL-NOT-EASY
+	RTRUE	
+?ELS9:	GRTR?	POCKET-CHANGE,0 \?ELS11
+	FSET?	WET-SUIT,WORNBIT /?THN17
+	FSET?	DEEP-SUIT,WORNBIT \?ELS16
+?THN17:	CALL	TELL-CANT-REACH,STR?21
+	RSTACK	
+?ELS16:	EQUAL?	PRSA,V?COUNT \?ELS20
+	PRINTI	"You are carrying $"
+	PRINTN	POCKET-CHANGE
+	PRINTR	"."
+?ELS20:	EQUAL?	PRSA,V?EXAMINE \?ELS24
+	PRINTI	"It looks a lot like $"
+	PRINTN	POCKET-CHANGE
+	PRINTR	"."
+?ELS24:	EQUAL?	PRSA,V?TAKE /FALSE
+	CALL	TELL-FLASHING-CASH
+	RSTACK	
+?ELS11:	EQUAL?	HERE,BANK \?ELS30
+	PRINTR	"Not surprisingly, the money here is not easily accessible."
+?ELS30:	CALL	GLOBAL-NOT-HERE-PRINT,GLOBAL-MONEY
+	RSTACK	
+
+
+	.FUNCT	TELL-FLASHING-CASH
+	PRINTR	"Flashing your bankroll is not a good idea."
+
+
+	.FUNCT	FERRY-TOKEN-F
+	IN?	SPEAR-CARRIER,HERE \?ELS5
+	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS11
+	EQUAL?	PRSO,SPEAR-CARRIER /?THN8
+?ELS11:	EQUAL?	PRSA,V?BUY \?ELS5
+?THN8:	CALL	NO-TOKENS,HERE
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS13
+	FSET?	PRSO,PERSON \?ELS13
+	PRINTR	"""You need them for the ferry."""
+?ELS13:	EQUAL?	PRSA,V?ASK-FOR,V?FIND /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,FERRY-TOKEN
+	RSTACK	
+
+
+	.FUNCT	NO-TOKENS,PLACE
+	EQUAL?	PLACE,BANK \?ELS3
+	PRINTI	"The teller says, ""We're out. Try Outfitters."""
+	JUMP	?CND1
+?ELS3:	PRINTI	"The "
+	CALL	DPRINT,SPEAR-CARRIER
+	PRINTI	" checks and then says, ""I'm afraid we're out of tokens. Try "
+	CALL	DPRINT,BANK
+	PRINTI	"."""
+?CND1:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	GLOBAL-TIME-F
+	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK-FOR \?ELS5
+	EQUAL?	PRSO,SPEAR-CARRIER \?ELS10
+	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	PRINTI	" checks and tells you it's "
+	CALL	TIME-PRINT,PRESENT-TIME
+	CRLF	
+	RTRUE	
+?ELS10:	FSET?	PRSO,PERSON \FALSE
+	PRINTR	"""I'm not sure."""
+?ELS5:	EQUAL?	PRSA,V?TELL \?ELS18
+	EQUAL?	PRSO,GLOBAL-TIME \?ELS18
+	ZERO?	PRSI \?ELS18
+	PRINTR	"Didn't you learn that the little hand points to the hour and the big hand points to the minute?"
+?ELS18:	EQUAL?	PRSA,V?EXAMINE \?ELS24
+	CALL	PERFORM,V?TIME
+	SET	'P-IT-OBJECT,GLOBAL-TIME
+	RTRUE	
+?ELS24:	EQUAL?	PRSA,V?TELL \?ELS26
+	FSET?	PRSO,VICBIT \?ELS26
+	EQUAL?	PRSO,ME \FALSE
+?ELS26:	PRINTR	"If you want to know the time, check your watch."
+
+
+	.FUNCT	GLOBAL-DAY-F
+	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK-FOR \?ELS9
+	FSET?	PRSO,VICBIT /?THN6
+?ELS9:	EQUAL?	PRSA,V?WHAT \?ELS5
+	EQUAL?	WINNER,PLAYER /?ELS5
+?THN6:	PRINTR	"""Wednesday."""
+?ELS5:	EQUAL?	PRSA,V?WHAT \?ELS15
+	PRINTR	"Ask somebody."
+?ELS15:	CALL	TELL-SERIOUS
+	RSTACK	
+
+
+	.FUNCT	TELL-SERIOUS
+	PRINTR	"Be serious."
+
+
+	.FUNCT	ADVENTURER-F
+	GRTR?	BLOOD-ALCOHOL,25 \?ELS5
+	CALL	JIGS-UP,STR?22
+	RSTACK	
+?ELS5:	GRTR?	HOW-THIRSTY,3 /?THN8
+	GRTR?	BLOOD-ALCOHOL,15 /?THN8
+	GRTR?	HOW-HUNGRY,3 /?THN8
+	EQUAL?	HOW-TIRED,6 /?THN8
+	EQUAL?	P-ADVERB,W?SLOWLY \?ELS7
+?THN8:	EQUAL?	PRSA,V?WAIT,V?SLEEP /?THN15
+	EQUAL?	PRSA,V?TELL \?ELS18
+	ZERO?	PRSI /?THN15
+?ELS18:	CALL	GAME-COMMAND?
+	ZERO?	STACK \?THN15
+	ZERO?	WAITED? /?ELS14
+?THN15:	SET	'WAITED?,2
+	EQUAL?	PRSA,V?WALK \?ELS21
+	JUMP	?CND19
+?ELS21:	ZERO?	PRSO /?ELS23
+	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?ELS23
+	IN?	PRSO,GLOBAL-OBJECTS /?ELS23
+	SET	'PRSO,NOT-HERE-OBJECT
+	JUMP	?CND19
+?ELS23:	ZERO?	PRSI /?CND19
+	CALL	META-LOC,PRSI
+	EQUAL?	STACK,HERE /?CND19
+	IN?	PRSI,GLOBAL-OBJECTS /?CND19
+	SET	'PRSI,NOT-HERE-OBJECT
+?CND19:	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \FALSE
+	CALL	NOT-HERE-OBJECT-F
+	RSTACK	
+?ELS14:	SET	'WAITED?,1
+	CALL	CLOCKER
+	EQUAL?	STACK,M-FATAL \?ELS43
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTI	"This interrupts what you're trying to do."
+	CRLF	
+	RETURN	2
+?ELS43:	EQUAL?	PRSA,V?WALK \FALSE
+	IN?	PLAYER,UNDERWATER /FALSE
+	IN?	PLAYER,HERE \FALSE
+	GRTR?	BLOOD-ALCOHOL,15 \?ELS61
+	CALL	TELL-YOURE-NOT,STR?23
+	CRLF	
+	CALL	RANDOM-WALK
+	RSTACK	
+?ELS61:	RANDOM	100
+	GRTR?	40,STACK \FALSE
+	PRINTI	"You stop to sit down for a bit and then struggle back to your feet."
+	CRLF	
+	RETURN	2
+?ELS7:	FSET?	FLIPPERS,WORNBIT \FALSE
+	EQUAL?	PRSA,V?WALK \FALSE
+	ZERO?	AT-SEA \FALSE
+	GETP	HERE,P?LINE
+	LESS?	STACK,TRAWLER-LINE-C /?THN72
+	EQUAL?	HERE,MM-PORT-DECK \?ELS75
+	EQUAL?	P-WALK-DIR,P?WEST /?THN72
+?ELS75:	EQUAL?	HERE,NW-STARBOARD-DECK \FALSE
+	EQUAL?	P-WALK-DIR,P?EAST \FALSE
+?THN72:	PRINTR	"You'd look silly walking around in flippers."
+
+
+	.FUNCT	RANDOM-WALK,P,Z,L,S,D=0
+	SET	'P,0
+?PRG1:	NEXTP	HERE,P >P
+	LESS?	P,LOW-DIRECTION \?ELS5
+	ZERO?	D /TRUE
+	CALL	DO-WALK,D
+	RTRUE	
+?ELS5:	GETPT	HERE,P >Z
+	PTSIZE	Z >L
+	EQUAL?	L,UEXIT /?THN15
+	EQUAL?	L,CEXIT \?ELS18
+	GETB	Z,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK \?THN15
+?ELS18:	EQUAL?	L,DEXIT \?PRG1
+	GETB	Z,DEXITOBJ
+	FSET?	STACK,OPENBIT \?PRG1
+?THN15:	ZERO?	D \?ELS23
+	SET	'D,P
+	JUMP	?PRG1
+?ELS23:	RANDOM	100
+	GRTR?	50,STACK \?PRG1
+	SET	'D,P
+	JUMP	?PRG1
+
+
+	.FUNCT	DETECTOR-NOISE,LISTENING?=0,C,H,P,Z,L,R,LAST-R=0,?TMP1
+	CALL	META-LOC,PLAYER >H
+	ZERO?	LISTENING? \?ELS5
+	EQUAL?	PRSA,V?LISTEN \?ELS5
+	EQUAL?	PRSO,METAL-DETECTOR /FALSE
+?ELS5:	CALL	META-LOC,METAL-DETECTOR
+	EQUAL?	STACK,H \?ELS9
+	ZERO?	DETECTOR-ON /?ELS9
+	ZERO?	DETECTOR-POWERED /?ELS9
+	CALL	COUNT-METAL,H >?TMP1
+	GETP	H,P?DESCFCN
+	ADD	?TMP1,STACK >C
+	SET	'P,0
+?PRG12:	NEXTP	H,P >P
+	ZERO?	P \?ELS16
+	JUMP	?REP13
+?ELS16:	LESS?	P,LOW-DIRECTION /?PRG12
+	GETPT	H,P >Z
+	PTSIZE	Z >L
+	EQUAL?	L,UEXIT,CEXIT,DEXIT \?ELS21
+	GETB	Z,0 >R
+	EQUAL?	R,LAST-R /?PRG12
+	CALL	COUNT-METAL,R
+	DIV	STACK,2
+	ADD	C,STACK
+	GETP	R,P?DESCFCN
+	DIV	STACK,2
+	ADD	STACK,STACK >C >C
+	SET	'LAST-R,R
+	JUMP	?PRG12
+?ELS21:	EQUAL?	L,FEXIT \?PRG12
+	GET	Z,0
+	CALL	STACK,FALSE-VALUE >R
+	ZERO?	R /?PRG12
+	EQUAL?	R,LAST-R /?PRG12
+	CALL	COUNT-METAL,R
+	DIV	STACK,2
+	ADD	C,STACK
+	GETP	R,P?DESCFCN
+	DIV	STACK,2
+	ADD	STACK,STACK >C >C
+	SET	'LAST-R,R
+	JUMP	?PRG12
+?REP13:	ZERO?	C \?CND36
+	ZERO?	LISTENING? /FALSE
+	PRINTI	"The "
+	CALL	DPRINT,METAL-DETECTOR
+	PRINTR	" makes no noise."
+?CND36:	PRINTI	"The "
+	CALL	DPRINT,METAL-DETECTOR
+	PRINTI	" is clicking "
+	GRTR?	C,100 \?ELS51
+	PRINTI	"extremely fast"
+	JUMP	?CND49
+?ELS51:	GRTR?	C,75 \?ELS55
+	PRINTI	"quickly"
+	JUMP	?CND49
+?ELS55:	GRTR?	C,50 \?ELS59
+	PRINTI	"moderately"
+	JUMP	?CND49
+?ELS59:	GRTR?	C,25 \?ELS63
+	PRINTI	"slowly"
+	JUMP	?CND49
+?ELS63:	PRINTI	"occasionally"
+?CND49:	PRINTR	"."
+?ELS9:	ZERO?	LISTENING? /FALSE
+	PRINTI	"The "
+	CALL	DPRINT,METAL-DETECTOR
+	PRINTR	" makes no noise."
+
+
+	.FUNCT	COUNT-METAL,R,F,V=0
+	FIRST?	R >F /?KLU13
+?KLU13:	
+?PRG1:	ZERO?	F \?ELS5
+	RETURN	V
+?ELS5:	FSET?	F,INVISIBLE \?THN8
+	EQUAL?	F,PLAYER \?CND3
+?THN8:	GETP	F,P?STATION
+	ADD	V,STACK >V
+	FIRST?	F \?CND3
+	CALL	COUNT-METAL,F
+	ADD	V,STACK >V
+?CND3:	NEXT?	F >F /?KLU14
+?KLU14:	JUMP	?PRG1
+
+
+	.FUNCT	CRETIN-F
+	EQUAL?	PRSO,WINNER,ME \FALSE
+	EQUAL?	PRSA,V?EAT \?ELS6
+	PRINTR	"Stick to stew."
+?ELS6:	EQUAL?	PRSA,V?DRINK \?ELS10
+	PRINTR	"Stick to grog."
+?ELS10:	EQUAL?	PRSA,V?ALARM \?ELS14
+	PRINTR	"Good morning!"
+?ELS14:	EQUAL?	PRSA,V?KILL,V?ATTACK,V?MUNG \?ELS18
+	PRINTR	"Although it's not hard, I can't make it that simple."
+?ELS18:	EQUAL?	PRSA,V?FIND \?ELS22
+	PRINTR	"Have you tried asking the parrot?"
+?ELS22:	EQUAL?	PRSA,V?LAMP-ON,V?TAKE /?THN27
+	EQUAL?	PRSA,V?GIVE \?ELS26
+	EQUAL?	PRSO,ME \?ELS26
+?THN27:	PRINTR	"You romantic fool!"
+?ELS26:	EQUAL?	PRSA,V?EXAMINE \?ELS34
+	PRINTR	"You look like a diver."
+?ELS34:	EQUAL?	PRSA,V?LOOK-UNDER \?ELS38
+	PRINTR	"I think the center of the earth is down there somewhere."
+?ELS38:	EQUAL?	PRSA,V?RUB \?ELS42
+	PRINTR	"You're starting to rub me the wrong way."
+?ELS42:	EQUAL?	PRSA,V?PLAY \?ELS46
+	PRINTR	"Don't expect an Oscar."
+?ELS46:	EQUAL?	PRSA,V?THROUGH,V?BOARD,V?CLIMB-ON \?ELS50
+	PRINTR	"I'm not impressed."
+?ELS50:	EQUAL?	PRSA,V?SHAKE,V?CROSS \?ELS54
+	PRINTR	"I'm much too kind."
+?ELS54:	EQUAL?	PRSA,V?DROP \?ELS58
+	PRINTR	"Like a hot potato."
+?ELS58:	EQUAL?	PRSA,V?FOLLOW \?ELS62
+	PRINTR	"What makes you think you know where you're going?"
+?ELS62:	EQUAL?	PRSA,V?SEARCH \?ELS66
+	PRINTR	"Okay. I found one empty head but a strong heart."
+?ELS66:	EQUAL?	PRSA,V?PUSH,V?SMELL \?ELS70
+	PRINTR	"I'd rather not."
+?ELS70:	EQUAL?	PRSA,V?THROW \?ELS74
+	PRINTR	"For a loop?"
+?ELS74:	EQUAL?	PRSA,V?ROB \FALSE
+	PRINTR	"You wouldn't get much from anyone that stupid."
+
+
+	.FUNCT	GLOBAL-SELF-F
+	EQUAL?	WINNER,PLAYER \?CND1
+	EQUAL?	PRSI,GLOBAL-SELF \?CND4
+	SET	'PRSI,ME
+?CND4:	EQUAL?	PRSO,GLOBAL-SELF \?CND1
+	SET	'PRSO,ME
+?CND1:	CALL	PERFORM,PRSA,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	GLOBAL-ROOM-F,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?24
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	CALL	PERFORM,V?LOOK
+	SET	'P-IT-OBJECT,GLOBAL-ROOM
+	RTRUE	
+?ELS7:	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?DROP \?ELS9
+	CALL	DO-WALK,P?OUT
+	RTRUE	
+?ELS9:	EQUAL?	PRSA,V?THROUGH,V?ENTER \?ELS11
+	CALL	DO-WALK,P?IN
+	RTRUE	
+?ELS11:	EQUAL?	PRSA,V?ATTACK,V?MUNG \?ELS13
+	PRINTR	"It's sturdier than you give it credit for."
+?ELS13:	EQUAL?	PRSA,V?UNLOCK \?ELS17
+	PRINTR	"Please be more specific about what you want to unlock."
+?ELS17:	EQUAL?	PRSA,V?PUT \FALSE
+	CALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+
+	.FUNCT	WINDOW-F
+	EQUAL?	HERE,BEDROOM \?ELS5
+	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS10
+	PRINTI	"You see an "
+	CALL	DPRINT,FIELD
+	PRINTR	" beyond the alley where the terrible events of last night transpired."
+?ELS10:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINTR	"It's stuck shut."
+?ELS5:	EQUAL?	HERE,BANK \?ELS18
+	EQUAL?	PRSA,V?EXAMINE \?ELS23
+	PRINTR	"It is a barred window about chest-high behind which the teller transacts his business."
+?ELS23:	EQUAL?	PRSA,V?LOOK-BEHIND,V?LOOK-INSIDE \FALSE
+	PRINTR	"There is a teller there."
+?ELS18:	EQUAL?	HERE,MM-WHEELHOUSE,NW-WHEELHOUSE \FALSE
+	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTR	"You can see the ocean beyond the deck."
+
+
+	.FUNCT	IN-WINDOW-F,L,?TMP1
+	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTI	"You see "
+	LOC	JOHNNY >L
+	EQUAL?	L,MM-WHEELHOUSE,NW-WHEELHOUSE \?CND8
+	GETP	HERE,P?LINE >?TMP1
+	GETP	L,P?LINE
+	EQUAL?	?TMP1,STACK \?CND8
+	PRINTI	"Johnny in "
+?CND8:	PRINTR	"the wheelhouse."
+
+
+	.FUNCT	BEDROOM-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	FSET?	BEDROOM-DOOR,OPENBIT \?ELS10
+	CALL	TELL-ALREADY,STR?25
+	RTRUE	
+?ELS10:	EQUAL?	HERE,UPSTAIRS-HALLWAY \?ELS12
+	ZERO?	BEDROOM-DOOR-LOCKED /?ELS12
+	PRINTR	"It's locked."
+?ELS12:	FSET	BEDROOM-DOOR,OPENBIT
+	SET	'BEDROOM-DOOR-LOCKED,FALSE-VALUE
+	IN?	WEASEL,UPSTAIRS-HALLWAY \?ELS21
+	PRINTI	"You open the door and see "
+	CALL	DPRINT,WEASEL
+	PRINTI	". He says, ""Oh. Hi. I was just wonderin' if you were gonna be at the meetin' at "
+	CALL	DPRINT,SHANTY
+	PRINTI	"."" He turns and heads down the steps."
+	CRLF	
+	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+	CALL	INT,I-WEASEL-TO-BEDROOM
+	PUT	STACK,0,0
+	RTRUE	
+?ELS21:	CALL	TELL-NOW,BEDROOM-DOOR,STR?25
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?CLOSE \?ELS27
+	FSET?	BEDROOM-DOOR,OPENBIT /?ELS32
+	CALL	TELL-ALREADY,STR?26
+	RTRUE	
+?ELS32:	FCLEAR	BEDROOM-DOOR,OPENBIT
+	CALL	TELL-NOW,BEDROOM-DOOR,STR?26
+	RTRUE	
+?ELS27:	EQUAL?	PRSA,V?UNLOCK \FALSE
+	ZERO?	BEDROOM-DOOR-LOCKED /?ELS41
+	IN?	PLAYER,BEDROOM /?THN48
+	EQUAL?	PRSI,KEY \?ELS47
+?THN48:	SET	'BEDROOM-DOOR-LOCKED,FALSE-VALUE
+	CALL	TELL-NOW,BEDROOM-DOOR,STR?27
+	RSTACK	
+?ELS47:	ZERO?	PRSI /?ELS51
+	CALL	TELL-YOU-CANT,STR?28
+	RSTACK	
+?ELS51:	PRINTR	"Not without the key."
+?ELS41:	CALL	TELL-ALREADY,STR?27
+	RSTACK	
+
+
+	.FUNCT	OCEAN-F,L
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK /?ELS5
+	PRINTR	"There's no water in here."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS9
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS14
+	PRINTR	"There is water all around you."
+?ELS14:	PRINTI	"The ocean looks choppy"
+	ZERO?	AT-SEA /?ELS23
+	PRINTI	". Whitecaps rise and fall around the boat."
+	JUMP	?CND21
+?ELS23:	PRINTI	", and you know about the dangerous currents here."
+?CND21:	CRLF	
+	RTRUE	
+?ELS9:	EQUAL?	PRSA,V?LISTEN \?ELS32
+	PRINTR	"You hear the crashing of the waves."
+?ELS32:	EQUAL?	PRSA,V?SWIM,V?THROUGH,V?BOARD \?ELS36
+	GETP	HERE,P?LINE >L
+	EQUAL?	L,UNDERWATER-LINE-C \?ELS41
+	PRINTR	"You're already in it!"
+?ELS41:	EQUAL?	L,TRAWLER-LINE-C,SALVAGER-LINE-C /?THN46
+	EQUAL?	HERE,WHARF,FERRY-LANDING \?ELS45
+?THN46:	ZERO?	AT-SEA /?ELS52
+	CALL	PERFORM,V?DIVE
+	RTRUE	
+?ELS52:	CALL	JIGS-UP,STR?29
+	RSTACK	
+?ELS45:	CALL	TELL-NO-SHORELINE
+	RSTACK	
+?ELS36:	EQUAL?	PRSA,V?THROW,V?DROP \?ELS59
+	EQUAL?	PRSI,OCEAN \?ELS59
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS66
+	CALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?ELS66:	CALL	TELL-NO-LITTER
+	RSTACK	
+?ELS59:	EQUAL?	PRSA,V?SMELL \?ELS70
+	PRINTR	"It smells very salty, which is what you might expect from the sea."
+?ELS70:	EQUAL?	PRSA,V?TASTE,V?DRINK \?ELS74
+	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C /?THN80
+	EQUAL?	HERE,FERRY-LANDING,WHARF \?ELS79
+?THN80:	PRINTR	"Bleahhhh! You spit it out immediately!"
+?ELS79:	CALL	TELL-NO-SHORELINE
+	RSTACK	
+?ELS74:	EQUAL?	PRSA,V?RUB \FALSE
+	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C /?THN93
+	EQUAL?	HERE,FERRY-LANDING,WHARF \?ELS92
+?THN93:	PRINTR	"It's wet."
+?ELS92:	CALL	TELL-NO-SHORELINE
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-SHORELINE
+	CALL	TELL-YOU-CANT,STR?30
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-LITTER
+	PRINTR	"It would spoil the beauty of the sea."
+
+
+	.FUNCT	STAIRS-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"The carpeted stairway leads "
+	EQUAL?	HERE,UPSTAIRS-HALLWAY \?ELS10
+	PRINTI	"down"
+	JUMP	?CND8
+?ELS10:	EQUAL?	HERE,RED-BOAR-INN \?CND8
+	PRINTI	"up"
+?CND8:	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	EQUAL?	HERE,UPSTAIRS-HALLWAY \?ELS23
+	CALL	V-CLIMB-UP,P?DOWN
+	RTRUE	
+?ELS23:	CALL	V-CLIMB-UP
+	RTRUE	
+
+
+	.FUNCT	LADDER-TOP-F
+	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+
+
+	.FUNCT	LADDER-BOTTOM-F
+	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	CALL	DO-WALK,P?UP
+	RTRUE	
+
+
+	.FUNCT	RAILING-F
+	EQUAL?	PRSA,V?CLIMB-FOO \?ELS5
+	PRINTR	"You immediately climb back down."
+?ELS5:	EQUAL?	PRSA,V?LEAP,V?DISEMBARK \FALSE
+	CALL	PERFORM,V?DIVE
+	RTRUE	
+
+
+	.FUNCT	BUNKS-F
+	EQUAL?	PRSA,V?SLEEP,V?BOARD \?ELS5
+	CALL	TELL-BAD-SHAPE
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	PRINTR	"These stacks of bunks look as though they were never comfortable. The work of time and the sea have made them fairly decrepit, incapable of supporting much weight."
+?ELS7:	EQUAL?	PRSA,V?MUNG \FALSE
+	PRINTR	"Some pieces fall away, but the structure holds together."
+
+
+	.FUNCT	TELL-BAD-SHAPE
+	PRINTR	"They don't look as if they could support your weight."
+
+
+	.FUNCT	TIME-PRINT,NUM,HR,PM=0
+	DIV	NUM,60 >HR
+	GRTR?	HR,12 \?ELS3
+	SUB	HR,12 >HR
+	SET	'PM,TRUE-VALUE
+	JUMP	?CND1
+?ELS3:	EQUAL?	HR,12 \?ELS5
+	SET	'PM,TRUE-VALUE
+	JUMP	?CND1
+?ELS5:	ZERO?	HR \?CND1
+	SET	'HR,12
+?CND1:	PRINTN	HR
+	PRINTI	":"
+	MOD	NUM,60 >HR
+	LESS?	HR,10 \?CND10
+	PRINTI	"0"
+?CND10:	PRINTN	HR
+	PRINTI	" "
+	ZERO?	PM /?ELS23
+	PUSH	STR?34
+	JUMP	?CND19
+?ELS23:	PUSH	STR?35
+?CND19:	PRINT	STACK
+	RTRUE	
+
+
+	.FUNCT	TABLE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?36
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	PRINTR	"The table has a variety of forms and brochures you find boring."
+?ELS7:	EQUAL?	PRSA,V?PUT-ON,V?PUT \FALSE
+	EQUAL?	PRSI,PSEUDO-OBJECT \FALSE
+	PRINTI	"A bank official scurries out, picks up the "
+	CALL	DPRINT,PRSO
+	PRINTR	", and hands it to you, pointing out that the table is for bank business only."
+
+
+	.FUNCT	LIGHTHOUSE-LOCK-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?37
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?PICK \?ELS7
+	PRINTR	"You try for a while, but the lock won't give."
+?ELS7:	EQUAL?	PRSA,V?UNLOCK \?ELS11
+	CALL	TELL-NO-KEY
+	RTRUE	
+?ELS11:	EQUAL?	PRSA,V?MUNG \?ELS13
+	PRINTR	"You find that the door and lock withstand your attempts."
+?ELS13:	EQUAL?	PRSA,V?LOCK \FALSE
+	CALL	TELL-ALREADY,STR?38
+	RTRUE	
+
+
+	.FUNCT	WHEEL-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?39
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?SPIN,V?TURN \FALSE
+	IN?	JOHNNY,HERE \?ELS12
+	CALL	DPRINT,JOHNNY
+	PRINTR	" glares at you. You decide to leave the piloting to the captain."
+?ELS12:	PRINTR	"The wheel spins."
+
+
+	.FUNCT	BOLT-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?40
+	RTRUE	
+?ELS5:	PRINTR	"The bolts are rusted firmly into place."
+
+
+	.FUNCT	NOT-HERE-OBJECT-F,TBL,PRSO?=1,OBJ
+	EQUAL?	PRSO,NOT-HERE-OBJECT \?ELS3
+	EQUAL?	PRSI,NOT-HERE-OBJECT \?ELS3
+	PRINTR	"Those things aren't here."
+?ELS3:	EQUAL?	PRSO,NOT-HERE-OBJECT \?ELS9
+	SET	'TBL,P-PRSO
+	JUMP	?CND1
+?ELS9:	SET	'TBL,P-PRSI
+	SET	'PRSO?,FALSE-VALUE
+?CND1:	ZERO?	PRSO? /?ELS14
+	EQUAL?	PRSA,V?CLIMB-UP,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /?THN19
+	EQUAL?	PRSA,V?FOLLOW,V?FIND,V?EXAMINE /?THN19
+	EQUAL?	PRSA,V?$CALL,V?WHAT,V?WAIT-FOR /?THN19
+	EQUAL?	PRSA,V?THROUGH,V?MAKE,V?GIVE /?THN19
+	EQUAL?	PRSA,V?WALK-TO \?CND12
+?THN19:	CALL	FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,NOT-HERE-OBJECT \TRUE
+	JUMP	?CND12
+?ELS14:	EQUAL?	PRSA,V?SGIVE,V?ASK-FOR,V?ASK-ABOUT /?THN34
+	EQUAL?	PRSA,V?TELL \?CND12
+?THN34:	CALL	FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,NOT-HERE-OBJECT \TRUE
+?CND12:	EQUAL?	PRSA,V?$CALL \?ELS46
+	CALL	V-CALL-LOSE
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	JUMP	?CND44
+?ELS46:	EQUAL?	WINNER,ADVENTURER \?ELS48
+	CALL	TELL-YOU-CANT,STR?41,FALSE-VALUE
+	CALL	NOT-HERE-PRINT,PRSO?
+	PRINTI	" here."
+	CRLF	
+	JUMP	?CND44
+?ELS48:	CALL	START-SENTENCE,WINNER
+	PRINTI	" seems confused. ""I don't see any"
+	CALL	NOT-HERE-PRINT,PRSO?
+	PRINTI	" here!"""
+	CRLF	
+?CND44:	SET	'P-MOBY-FOUND,FALSE-VALUE
+	SET	'PRSA,FALSE-VALUE
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSI,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	FIND-NOT-HERE,TBL,PRSO?,M-F,OBJ,CTR,PER,?TMP1
+	CALL	MOBY-FIND,TBL >M-F
+	GRTR?	M-F,1 \?CND1
+	GET	TBL,1
+	GETP	STACK,P?GLOBAL >OBJ
+	ZERO?	OBJ /?CND1
+	SET	'M-F,1
+	SET	'P-MOBY-FOUND,OBJ
+?CND1:	EQUAL?	1,M-F \?ELS10
+	ZERO?	PRSO? /?ELS13
+	EQUAL?	PRSA,V?TELL \?ELS17
+	EQUAL?	WINNER,PLAYER \?ELS17
+	FSET?	P-MOBY-FOUND,VICBIT \?ELS17
+	SET	'P-CONT,FALSE-VALUE
+	CALL	TELL-NOT-HERE-TALK
+	RTRUE	
+?ELS17:	EQUAL?	PRSA,V?EXAMINE \?ELS21
+	FSET?	P-MOBY-FOUND,PERSON \?ELS24
+	CALL	META-LOC,PLAYER
+	GETP	STACK,P?CORRIDOR >?TMP1
+	LOC	P-MOBY-FOUND
+	GETP	STACK,P?CORRIDOR
+	BAND	?TMP1,STACK
+	ZERO?	STACK /?ELS24
+	PRINTI	"You can see "
+	CALL	DPRINT,P-MOBY-FOUND
+	PRINTR	" in the distance."
+?ELS24:	EQUAL?	PRSO,MCGINTY \?ELS30
+	IN?	PLAYER,BACK-ALLEY-2 \?ELS30
+	IN?	MCGINTY,MCGINTY-HQ \?ELS30
+	PRINTI	"Looking through the window, you see "
+	CALL	DPRINT,MCGINTY
+	PRINTR	" in his office."
+?ELS30:	CALL	GLOBAL-NOT-HERE-PRINT,PRSO
+	RTRUE	
+?ELS21:	SET	'PRSO,P-MOBY-FOUND
+	JUMP	?CND11
+?ELS13:	SET	'PRSI,P-MOBY-FOUND
+?CND11:	ZERO?	P-XADJ /?ELS43
+	ZERO?	P-XNAM \?ELS43
+	SET	'P-NONOUN,TRUE-VALUE
+	RFALSE	
+?ELS43:	SET	'P-NONOUN,FALSE-VALUE
+	RFALSE	
+?ELS10:	ZERO?	PRSO? \?ELS49
+	EQUAL?	PRSA,V?ASK-ABOUT /?THN55
+	EQUAL?	PRSA,V?TELL \?ELS54
+	EQUAL?	PRSO,ME \?ELS54
+?THN55:	EQUAL?	PRSO,ME \?ELS61
+	EQUAL?	WINNER,PLAYER \?ELS64
+	ZERO?	QCONTEXT /?ELS64
+	EQUAL?	HERE,QCONTEXT-ROOM \?ELS64
+	SET	'PER,QCONTEXT
+	JUMP	?CND59
+?ELS64:	SET	'PER,WINNER
+	JUMP	?CND59
+?ELS61:	SET	'PER,PRSO
+?CND59:	FSET?	PER,VICBIT \?ELS73
+	CALL	SAY-CONFUSED,PER,PRSO?
+	RTRUE	
+?ELS73:	CALL	SUDDENLY-REALIZE-TALKING,PER
+	RTRUE	
+?ELS54:	FSET?	PRSO,VICBIT \?ELS77
+	CALL	SAY-CONFUSED,PRSO,PRSO?
+	RSTACK	
+?ELS77:	PRINTI	"You wouldn't find any"
+	CALL	NOT-HERE-PRINT,PRSO?
+	PRINTR	" there."
+?ELS49:	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	GLOBAL-NOT-HERE-PRINT,OBJ
+	ZERO?	P-MULT /?ELS3
+	INC	'P-NOT-HERE
+	JUMP	?CND1
+?ELS3:	CALL	TELL-YOU-CANT,STR?41,FALSE-VALUE
+	EQUAL?	OBJ,PRSO \?ELS9
+	CALL	PRSO-PRINT
+	JUMP	?CND7
+?ELS9:	CALL	PRSI-PRINT
+?CND7:	PRINTI	" here."
+	CRLF	
+?CND1:	SET	'P-WON,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	SAY-CONFUSED,PER,PRSO?
+	CALL	START-SENTENCE,PER
+	PRINTI	" looks confused. ""I have no idea what"
+	CALL	NOT-HERE-PRINT,PRSO?
+	PRINTR	" you're talking about!"""
+
+
+	.FUNCT	NOT-HERE-PRINT,PRSO?,?TMP1
+	ZERO?	P-OFLAG /?ELS3
+	ZERO?	P-XADJ /?CND5
+	PRINTI	" "
+	PRINTB	P-XADJN
+?CND5:	ZERO?	P-XNAM /?CND1
+	PRINTI	" "
+	PRINTB	P-XNAM
+	JUMP	?CND1
+?ELS3:	ZERO?	PRSO? /?ELS18
+	GET	P-ITBL,P-NC1 >?TMP1
+	GET	P-ITBL,P-NC1L
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	JUMP	?CND1
+?ELS18:	GET	P-ITBL,P-NC2 >?TMP1
+	GET	P-ITBL,P-NC2L
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+?CND1:	SET	'P-WON,FALSE-VALUE
+	RETURN	P-WON
+
+
+	.FUNCT	TELL-YOU-CANT,STR,FINISH=1
+	PRINTI	"You can't "
+	PRINT	STR
+	ZERO?	FINISH /FALSE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TELL-ROPE-HIGH
+	CALL	TELL-CANT-REACH,STR?42
+	RSTACK	
+
+
+	.FUNCT	TELL-CANT-REACH,STR
+	CALL	TELL-YOU-CANT,STR?43,FALSE-VALUE
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	TELL-NO-GO,PRINT?
+	ZERO?	PRINT? /FALSE
+	CALL	TELL-YOU-CANT,STR?44
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-NO
+	CALL	TELL-YOU-CANT,STR?45
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-AFFORD
+	CALL	TELL-YOU-CANT,STR?46
+	RSTACK	
+
+
+	.FUNCT	TELL-TOO-BIG
+	CALL	TELL-YOU-CANT,STR?47
+	RSTACK	
+
+	.ENDI
diff --git a/globals.zil b/globals.zil
new file mode 100644
index 0000000..55e221c
--- /dev/null
+++ b/globals.zil
@@ -0,0 +1,1651 @@
+"GLOBALS for
+			      TOA #2
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
+"
+
+<DIRECTIONS NORTH EAST WEST SOUTH UP DOWN IN OUT SE SW NE NW>
+
+"SUBTITLE GLOBAL OBJECTS"
+
+
+<OBJECT GLOBAL-OBJECTS
+	(FLAGS RMUNGBIT INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT VICBIT DOORBIT
+	      TURNBIT PERSON VOWELBIT OPENBIT SEARCHBIT TRANSBIT WEARBIT ONBIT
+	      TOOLBIT RENTBIT PUSHBIT WORNBIT)
+	;(FDESC "")
+	;(LDESC "")
+	;(TEXT "")
+	;(SIZE 0)
+	;(VALUE 0)
+	;(CAPACITY 0)>
+
+<OBJECT LOCAL-GLOBALS
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ZZMGCK)
+	;(DESCFCN 0)
+        ;(GLOBAL GLOBAL-OBJECTS)
+	;(PSEUDO "FOOBAR" V-WAIT)
+	;(CONTFCN 0)
+	;(SIZE 0)>
+;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh"
+
+<OBJECT ROOMS>
+
+<OBJECT RED-HERRING
+	(IN LOCAL-GLOBALS)
+	(DESC "thingy")
+	(SYNONYM COMBIN)
+	(ACTION RED-HERRING-F)>
+
+<ROUTINE RED-HERRING-F ()
+	 <COND (<VERB? ASK-ABOUT>
+		<RFALSE>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,RED-HERRING>)>>
+
+;<OBJECT FOO-TOOL
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM HAMMER CROWBA EXPLOS MACHET)
+	(DESC "such thing")>
+
+;<OBJECT FINGER
+	(IN GLOBAL-OBJECTS)
+	(FLAGS SURFACEBIT OPENBIT CONTBIT TOUCHBIT)
+	(CAPACITY 1)
+	(SYNONYM FINGER)
+	(DESC "finger")
+	;(ACTION FINGER-FCN)>
+
+;<ROUTINE FINGER-FCN ()
+	 <COND (<AND <VERB? PUT-ON>
+		     <PRSI? ,FINGER>>
+		<PERFORM ,V?WEAR ,PRSO>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<FSET? ,RING ,WEARBIT>
+		       <TELL "Sitting on your finger is a ring." CR>
+		       <RTRUE>)
+		      (T
+		       <TELL "It's part of your hands." CR>
+		       <RTRUE>)>)>>
+
+<OBJECT INTNUM
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM INTNUM)
+	;(DESC "number")
+	(SDESC "number")
+	(ACTION INTNUM-F)>
+
+<ROUTINE INTNUM-F ()
+	 <COND (<AND <VERB? GIVE WITHDRAW>
+		     <NOT ,P-DOLLAR-FLAG>>
+		<TELL "Next time, tell me what there's " N ,P-NUMBER " of." CR>
+		<SETG CLOCK-WAIT T>
+		<RFATAL>)
+	       (<AND ,P-DOLLAR-FLAG
+		     <NOT <VERB? WITHDRAW TAKE ASK-FOR>>
+		     <==? ,WINNER ,PLAYER>
+		     <G? ,P-AMOUNT ,POCKET-CHANGE>>
+		<TELL-DONT-HAVE "that much">)>>
+
+<OBJECT INTDIR
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM INTDIR)
+	(ADJECTIVE NORTH EAST SOUTH WEST NE NW SE SW)
+	;(FLAGS TOOLBIT)
+	(DESC "direction")>
+
+<OBJECT PSEUDO-OBJECT
+	;(DESC "pseudo")
+	(SDESC "bunch of clothes")
+	(DESCFCN 0)
+	(ACTION CRETIN-F)>
+
+<OBJECT IT
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM IT THAT HIM HER)
+	(DESC "random object")
+	(FLAGS NDESCBIT TOUCHBIT)>
+
+<OBJECT AIR
+	(IN GLOBAL-OBJECTS)
+	(DESC "air")
+	(FLAGS VOWELBIT CONTBIT OPENBIT)
+	(SYNONYM AIR OXYGEN)
+	(TEXT "Air being what it is, you can't see it.")
+	(ACTION AIR-F)>
+
+<ROUTINE AIR-F ()
+	 <COND (<VERB? SMELL TASTE>
+		<COND (<AND <AIRTIGHT-ROOM?>
+			    <NOT <FSET? ,MASK ,WORNBIT>>>
+		       <TELL "The air is musty but breathable." CR>)
+		      (<EQUAL? ,HERE ,MM-ENGINE-ROOM ,NW-ENGINE-ROOM>
+		       <TELL "The air is heavy with diesel fumes." CR>)
+		      (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		       <TELL
+"It feels a whole lot better than the water you could be breathing." CR>)
+		      (T
+		       <TELL "You find nothing special about the air." CR>)>)
+	       (<VERB? OPEN CLOSE>
+		<TELL "I think you're an air head." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM ,V?LOOK>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSI ,AIR>
+		     <VERB? THROW DROP>>
+		<PERFORM ,PRSA ,PRSO ,GROUND>
+		<RTRUE>)>>
+
+<OBJECT GROUND	;"was GROUND"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM FLOOR GROUND)
+	(ADJECTIVE OCEAN)
+	(DESC "floor")
+	(ACTION FLOOR-F)>
+
+<ROUTINE FLOOR-F ()
+	 <COND (<AND <VERB? PUT-ON PUT>
+		     <PRSI? ,GROUND>>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)>>
+
+<OBJECT DECK
+	(IN LOCAL-GLOBALS)
+	(SYNONYM DECK)
+	(ADJECTIVE NORTH SOUTH EAST WEST);"my fingers are crossed"
+	(DESC "deck")
+	(ACTION DECK-F)>
+
+<ROUTINE DECK-F ()
+	 <COND (<VERB? WALK-TO>
+		<TELL-SHD-DIR>)
+	       (<AND <VERB? PUT-ON PUT>
+		     <PRSI? ,DECK>>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)>>
+
+<OBJECT FLOOR-HOLE-1
+	(IN LOCAL-GLOBALS)
+	(DESC "hole")
+	(SYNONYM HOLE HATCH HATCHW)
+	(ADJECTIVE BOTTOM LOWER)
+	(FLAGS INVISIBLE)
+	(ACTION FLOOR-HOLE-F)>
+
+<OBJECT FLOOR-HOLE-2
+	(IN LOCAL-GLOBALS)
+	;(DESC "hole")
+	(SDESC "hole")
+	(SYNONYM HOLE HATCH HATCHW)
+	(ADJECTIVE BOTTOM LOWER)
+	(FLAGS INVISIBLE)
+	(ACTION FLOOR-HOLE-F)>
+
+<ROUTINE FLOOR-HOLE-F ()
+	 <COND (<VERB? THROUGH>
+		<DO-WALK ,P?DOWN>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE ;LOOK-DOWN>
+		<TELL-YOU-CANT "make anything out on the other side.">)
+	       (<VERB? EXAMINE>
+		<COND (<AND <==? ,HERE ,WRECK-5>
+			    <NOT ,WRECK-5-FLOODED>>
+		       <TELL "There's water on the other side." CR>)
+		      (T <TELL-LOOKS-HOLE>)>)>>
+
+<ROUTINE TELL-LOOKS-HOLE ()
+	 <TELL "It looks a lot like a hole." CR>>
+
+<OBJECT CEILING-HOLE-1
+	(IN LOCAL-GLOBALS)
+	(DESC "hole")
+	(SYNONYM HOLE HATCH HATCHW)
+	(ADJECTIVE TOP UPPER)
+	(FLAGS INVISIBLE)
+	(ACTION CEILING-HOLE-F)>
+
+<OBJECT CEILING-HOLE-2
+	(IN LOCAL-GLOBALS)
+	;(DESC "hole")
+	(SDESC "hole")
+	(SYNONYM HOLE HATCH HATCHW)
+	(ADJECTIVE TOP UPPER)
+	(FLAGS INVISIBLE)
+	(ACTION CEILING-HOLE-F)>
+
+<ROUTINE CEILING-HOLE-F ()
+	 <COND (<VERB? THROUGH>
+		<DO-WALK ,P?UP>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE ;LOOK-UP>
+		<TELL-YOU-CANT "make anything out on the other side.">)
+	       (<VERB? EXAMINE>
+		<TELL-LOOKS-HOLE>)>>
+
+<OBJECT HOLE
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT)
+	(DESC "hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE SMALL)
+	(ACTION HOLE-F)>
+
+<ROUTINE HOLE-F ()
+	 <COND (<VERB? DRILL>
+		<RFALSE>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,HOLE>)>>
+
+<OBJECT BULKHEADS
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "bulkhead")
+	(SYNONYM BULKHE)>
+
+<OBJECT WALLS
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "wall")
+	(SYNONYM WALL WALLS)>
+		
+<OBJECT CEILING
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "ceiling")
+	(SYNONYM CEILIN)>
+
+<OBJECT MAST
+	(IN LOCAL-GLOBALS)
+	(DESC "mast")
+	(SYNONYM MAST MASTS)
+	(ADJECTIVE ROTTIN)
+	(FLAGS INVISIBLE)
+	(ACTION MAST-F)>
+
+<ROUTINE MAST-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "There are several rotting masts here.">
+		<COND (<==? ,HERE ,WRECK-1>
+		       <TELL
+" The top of one has fallen into a hole at your feet.">)>
+		<CRLF>)
+	       (<VERB? CLIMB-FOO>
+		<TELL "None of the masts looks sturdy enough." CR>)>>
+
+;<OBJECT HANDS
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM HAND HANDS PAIR ARMS)
+	(ADJECTIVE ARM)
+	(DESC "pair of hands")
+	(FLAGS NDESCBIT TOOLBIT WEAPONBIT TOUCHBIT)
+	;(ACTION READ-PALMS-F)>
+
+;<ROUTINE READ-PALMS-F ()
+	 <COND (<VERB? READ>
+		<TELL "I don't read palms." CR>
+		<RTRUE>)>>
+
+<OBJECT LIGHTHOUSE
+	(IN LOCAL-GLOBALS)
+	(SYNONYM LIGHTH BEACON)
+	(DESC "lighthouse")
+	(ACTION LIGHTHOUSE-F)>
+
+<ROUTINE LIGHTHOUSE-F ()
+	 <COND (<EQUAL? ,HERE ,WINDING-ROAD-1>
+	        <COND (<VERB? THROUGH OPEN>
+		       <TELL "The door is locked." CR>
+		       <RTRUE>)
+		      (<VERB? EXAMINE>
+		       <TELL 
+"You can see the base of a " D ,LIGHTHOUSE ". ">
+		       <TELL-CLOSED
+			"door, which has lettering stencilled on it,">
+		       <RTRUE>)>)
+	       (T
+	  	<COND (<VERB? EXAMINE>
+		       <TELL 
+"The " D ,LIGHTHOUSE " towers over Hardscrabble Island from the
+island's northwest corner.">
+		       <COND (<OR <G? ,PRESENT-TIME 1200>
+				  <L? ,PRESENT-TIME 480>>
+			      <TELL 
+" Its light provides a beacon for ships.">)>
+		       <CRLF>
+		       <RTRUE>)
+		      (<VERB? WALK-TO>
+		       <TELL-SHD-DIR>
+		       ;<TELL "You must supply a " D ,INTDIR "!" CR>)
+		      (<VERB? FIND>
+		       <RFALSE>)
+		      (<VERB? ASK-ABOUT>
+		       <COND (<FSET? ,PRSO ,VICBIT>
+			      <TELL "\"It's been there forever.\"" CR>)>)
+		      (T
+		       <TELL "That would be difficult from this distance." CR>)>)>>
+
+<OBJECT GLOBAL-TREASURE
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM TREASU)
+	(DESC "treasure")
+	(ACTION GLOBAL-TREASURE-F)>
+
+<ROUTINE GLOBAL-TREASURE-F ()
+	 <COND (<VERB? ASK-ABOUT ASK-CONTEXT-ABOUT TELL>
+		<RFALSE>)
+	       (<VERB? FIND>
+		<COND (<==? ,WINNER ,PLAYER>
+		       <TELL-NOT-EASY>)
+		      (T <TELL "\"I'd like to know where some is.\"" CR>)>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,GLOBAL-TREASURE>)>>
+
+<OBJECT TRAWLER
+	(IN LOCAL-GLOBALS)
+	(DESC "Night Wind")
+	(SYNONYM TRAWLE WIND BOAT SHIP)
+	(ADJECTIVE NIGHT)
+	(FLAGS RENTBIT)
+	(LINE 4)
+	(ACTION TRAWLER-F)>
+
+<ROUTINE TRAWLER-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<==? <GETP ,HERE ,P?LINE> ,TRAWLER-LINE-C>
+		       <TELL 
+"The " D ,TRAWLER " is in decent shape." CR>)
+		      (<AND <==? ,HERE ,MM-WHEELHOUSE>
+			    ,AT-SEA>
+		       <GLOBAL-NOT-HERE-PRINT ,TRAWLER>)
+		      (T 
+		       <TELL "The " D ,TRAWLER>
+		       <TELL-BOAT-DESC>)>)
+	       (<VERB? BOARD THROUGH>
+		<COND (<==? ,HERE ,WHARF>
+		       <DO-WALK ,P?WEST>)
+		      (<AND <==? ,HERE ,UNDERWATER>
+			    <==? ,DEPTH 50>>
+		       <DO-WALK ,P?UP>)
+		      (T <TELL-YOU-CANT "get there from here.">)>
+		<RTRUE>)
+	       (<VERB? DISEMBARK>
+		<COND (,AT-SEA
+		       <COND (<GLOBAL-IN? ,RAILING ,HERE>
+			      <PERFORM ,V?DIVE>
+			      <RTRUE>)
+			     (T <TELL-NO-EXIT>)>)
+		      (<==? ,HERE ,NW-STARBOARD-DECK>
+		       <DO-WALK ,P?EAST>)
+		      (T <TELL-NO-EXIT>)>)
+	       (<AND <VERB? LISTEN>
+		     ,AT-SEA>
+		<TELL-THRUM>)
+	       (<VERB? LAUNCH>
+		<TELL-YOU-CANT "do it alone.">)>>
+
+<ROUTINE TELL-NO-EXIT ()
+	 <TELL-HOW-THAT "do" "from here">>
+
+<ROUTINE TELL-HOW-THAT (STR "OPTIONAL" (LAST <>))
+	 <TELL "How can you " .STR " that">
+	 <COND (.LAST <TELL " " .LAST>)>
+	 <TELL "?" CR>>
+
+<ROUTINE TELL-BOAT-DESC ()
+	 <TELL " looks weathered but not aged." CR>>
+
+<ROUTINE TELL-THRUM ()
+	 <TELL "You hear the powerful thrum of diesel engines." CR>>
+
+<OBJECT SALVAGER
+	(IN LOCAL-GLOBALS)
+	(DESC "Mary Margaret")
+	(SYNONYM SALVAG MARGAR SHIP BOAT)
+	(ADJECTIVE MARY)
+	(FLAGS RENTBIT)
+	(LINE 5)
+	(ACTION SALVAGER-F)>
+
+<ROUTINE SALVAGER-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<==? <GETP ,HERE ,P?LINE> ,SALVAGER-LINE-C>
+		       <TELL 
+"The " D ,SALVAGER " is shipshape." CR>)
+		      (<AND <==? ,HERE ,NW-WHEELHOUSE>
+			    ,AT-SEA>
+		       <GLOBAL-NOT-HERE-PRINT ,SALVAGER>)
+		      (T
+		       <TELL "The " D ,SALVAGER " is a medium-size boat that">
+		       <TELL-BOAT-DESC>)>)
+	       (<VERB? BOARD THROUGH>
+		<COND (<==? ,HERE ,WHARF>
+		       <DO-WALK ,P?EAST>)
+		      (<AND <==? ,HERE ,UNDERWATER>
+			    <==? ,DEPTH 50>>
+		       <DO-WALK ,P?UP>)
+		      (T <TELL-YOU-CANT "get there from here.">)>
+		<RTRUE>)
+	       (<VERB? DISEMBARK>
+		<COND (,AT-SEA
+		       <COND (<GLOBAL-IN? ,RAILING ,HERE>
+			      <PERFORM ,V?DIVE>
+			      <RTRUE>)
+			     (T <TELL-NO-EXIT>)>)
+		      (<==? ,HERE ,MM-PORT-DECK>
+		       <DO-WALK ,P?WEST>)
+		      (T <TELL-NO-EXIT>)>)
+	       (<AND <VERB? LISTEN>
+		     ,AT-SEA>
+		<TELL-THRUM>)
+	       (<VERB? LAUNCH>
+		<TELL-YOU-CANT "do it alone.">)>>
+
+<OBJECT SHIPWRECK
+	(IN LOCAL-GLOBALS)
+	(DESC "shipwreck")
+	(SYNONYM WRECK SHIPWR SHIP)
+	(ADJECTIVE ROTTEN)
+	(ACTION SHIPWRECK-F)>
+
+<ROUTINE SHIPWRECK-F ()
+	 <COND (<VERB? DISEMBARK>
+		<TELL-NOT-EASY>)
+	       (<VERB? EXAMINE>
+		<TELL "It is what's left of a ">
+		<COND (<EQUAL? ,WRECK-CHOSEN 1 3>
+		       <TELL "wooden">)
+		      (T <TELL "steel">)>
+		<TELL " ship." CR>)>>
+
+<OBJECT GLOBAL-SLEEP
+	(IN GLOBAL-OBJECTS)
+	(DESC "sleep")
+	(SYNONYM SLEEP)
+	(ACTION GLOBAL-SLEEP-F)>
+
+<ROUTINE GLOBAL-SLEEP-F ()
+	 <COND (<VERB? WALK-TO>
+		<PERFORM ,V?SLEEP>
+		<RTRUE>)
+	       (T <TELL "Huh? Wake up!" CR>)>>
+
+;<OBJECT GLOBAL-MEETING
+	(IN GLOBAL-OBJECTS)
+	(DESC "meeting")
+	(SYNONYM MEETING)
+	(ACTION GLOBAL-MEETING-F)>
+
+;<ROUTINE GLOBAL-MEETING-F ()
+	<COND (<VERB? LAMP-ON>
+	       <TELL-YOURE-NOT "Tip O'Neill.">)
+	      (<VERB? EXAMINE>
+	       <TELL "How do you propose I do that?" CR>)>>
+
+<OBJECT FIELD
+	(IN LOCAL-GLOBALS)
+	(DESC "abandoned field")
+	(SYNONYM FIELD WEEDS)
+	(ADJECTIVE ABANDO OVERGR)
+	(FLAGS VOWELBIT)
+	(ACTION FIELD-F)>
+
+<ROUTINE FIELD-F ()
+	 <COND (<VERB? BOARD THROUGH>
+		<TELL-YOU-CANT "make your way through the growth.">)
+	       (<VERB? LOOK-BEHIND>
+		<TELL <PICK-ONE ,YUKS> CR>)
+	       (<VERB? CUT>
+		<TELL-DONT-HAVE "all week">)
+	       (<VERB? PLAY>
+		<TELL "Sounds exciting." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"This field was once productive farmland but hasn't been tended for many
+years." CR>)>>
+
+<OBJECT ROCKS
+	(IN LOCAL-GLOBALS)
+	(DESC "rocky coastline")
+	(SYNONYM ROCKS COASTL)
+	(ADJECTIVE ROCKY)
+	(ACTION ROCKS-F)>
+
+<ROUTINE ROCKS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The rocks here are large, pointy, and impossible to get through." CR>)
+	       (<VERB? BOARD THROUGH>
+		<TELL-YOU-CANT "get through the rocks.">)>>
+
+<OBJECT POCKET
+	(IN GLOBAL-OBJECTS)
+	(DESC "pocket")
+	(SYNONYM POCKET)
+	(FLAGS CONTBIT OPENBIT)
+	(TEXT "You keep your money in it.")
+	(ACTION POCKET-F)>
+
+<ROUTINE POCKET-F ()
+	 <COND (<OR <FSET? ,WET-SUIT ,WORNBIT>
+		    <FSET? ,DEEP-SUIT ,WORNBIT>>
+		<TELL "Your diving gear is over the pocket." CR>)
+	       (<AND <VERB? TAKE>
+		     <PRSO? ,GLOBAL-MONEY ,RIDICULOUS-MONEY-KLUDGE>>
+		<TELL-FLASHING-CASH>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "There is $" N ,POCKET-CHANGE " in it." CR>)
+	       (<VERB? EMPTY>
+		<TELL "You think better of the idea." CR>)
+	       (<VERB? OPEN>
+		<TELL "It's open enough." CR>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,POCKET>>
+		<COND (<AND ,P-DOLLAR-FLAG
+			    <PRSO? ,INTNUM>
+			    <G? ,P-AMOUNT ,POCKET-CHANGE>>
+		       <TELL-DONT-HAVE "that much">)
+		      (<OR <PRSO? ,GLOBAL-MONEY ,RIDICULOUS-MONEY-KLUDGE>
+			   <AND <PRSO? ,INTNUM> ,P-DOLLAR-FLAG>>
+		       <TELL-ALREADY "there">)
+		      (T <TELL-NO-FIT>)>)>>
+
+<ROUTINE TELL-NO-FIT ("OPTIONAL" (STR <>))
+	 <TELL "It won't fit">
+	 <COND (.STR <TELL " " .STR>)>
+	 <TELL "." CR>>
+
+<OBJECT PEOPLE
+	(IN GLOBAL-OBJECTS)
+	(DESC "bunch of people")
+	(SYNONYM PEOPLE)
+	(ACTION PEOPLE-F)>
+
+<ROUTINE PEOPLE-F ()
+	 <COND (<EQUAL? ,HERE ,SHANTY ,FERRY-LANDING>
+		<TELL "Leave them alone. They're not bothering you." CR>)
+	       (<OR <IN? ,HERE ,WEASEL>
+		    <IN? ,HERE ,JOHNNY>
+		    <IN? ,HERE ,PETE>
+		    <IN? ,HERE ,SPEAR-CARRIER>
+		    <IN? ,HERE ,DELIVERY-BOY>>
+		<TELL-REFER-INDIVIDUAL "s">)
+	       (T <GLOBAL-NOT-HERE-PRINT ,PEOPLE>)>>
+
+<ROUTINE TELL-REFER-INDIVIDUAL (STR)
+	 <TELL "Refer to individual" .STR "." CR>>
+
+<OBJECT WALLPAPER
+	(IN LOCAL-GLOBALS)
+	(DESC "wallpaper")
+	(SYNONYM WALLPA)
+	(ADJECTIVE FADED DRAB OFF-WH)
+	(TEXT "It's faded to a drab off-white.")>
+
+;<ROUTINE WALLPAPER-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "It's a drab off-white." CR>)>>
+
+<OBJECT CARPET
+	(IN LOCAL-GLOBALS)
+	(DESC "carpeting")
+	(SYNONYM CARPET RUG)
+	(ADJECTIVE DRAB WORN)
+	(TEXT "It's drab and worn.")>
+
+;<ROUTINE CARPET-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "It's drab and worn." CR>)>>
+
+<OBJECT GLOBAL-SURFACE ;"local that moves"
+	(IN RED-BOAR-INN)
+	;(DESC "counter")
+	(SDESC "counter")
+	(SYNONYM TABLE DESK COUNTE DRAWER)
+	(FLAGS SURFACEBIT CONTBIT OPENBIT NDESCBIT)
+	(CAPACITY 10)
+	(ACTION GLOBAL-SURFACE-F)>
+
+<ROUTINE GLOBAL-SURFACE-F ()
+	 <COND (<VERB? OPEN>
+		<TELL <PICK-ONE ,YUKS> CR>)>>
+
+<GLOBAL SHARED-OBJECT-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 0 0 0 0 0 0 0 0 0 0>>
+<GLOBAL LAST-S-O-T-PLACE <>>
+
+<ROUTINE MOVE-SHARED-OBJECTS (PLACE "AUX" (CTR 0) (SURFACE? T))
+	 <COND (<==? .PLACE ,LAST-S-O-T-PLACE>
+		<RFALSE>)
+	       (<EQUAL? ,LAST-S-O-T-PLACE ,MM-CREW-QTRS ,NW-CREW-QTRS>
+		<SET SURFACE? <>>
+		<UNLOAD ,UNDER-BUNK>
+		<UNLOAD ,BUNK>)
+	       (<EQUAL? ,LAST-S-O-T-PLACE ,MM-GALLEY ,NW-GALLEY>
+		<UNLOAD ,STOVE>)
+	       (<EQUAL? ,LAST-S-O-T-PLACE ,MM-LOUNGE ,NW-LOUNGE>
+		<UNLOAD ,LOUNGE-CHAIR>)>
+	 <COND (.SURFACE?
+		<UNLOAD ,GLOBAL-SURFACE>)>
+	 <COND (<NOT <EQUAL? .PLACE ,MM-CREW-QTRS ,NW-CREW-QTRS>>
+		<MOVE ,GLOBAL-SURFACE ,PLACE>)>
+	 <SETG LAST-S-O-T-PLACE .PLACE>
+	 <REPEAT ()
+		 <COND (<G? .CTR 44> <RETURN>)
+		       (<==? <GET ,SHARED-OBJECT-TABLE <+ .CTR 1>> .PLACE>
+			<MOVE <GET ,SHARED-OBJECT-TABLE .CTR>
+			      <GET ,SHARED-OBJECT-TABLE <+ .CTR 2>>>
+			<PUT ,SHARED-OBJECT-TABLE .CTR 0>
+			<PUT ,SHARED-OBJECT-TABLE <+ .CTR 1> 0>
+			<PUT ,SHARED-OBJECT-TABLE <+ .CTR 2> 0>)>
+		 <SET CTR <+ .CTR 3>>>>
+
+<ROUTINE UNLOAD (OBJ "AUX" F N)
+	 <COND (<SET F <FIRST? .OBJ>>
+		<SET N <NEXT? .F>>
+		<PUT-IN-TABLE .F ,LAST-S-O-T-PLACE .OBJ>
+		<REPEAT ()
+			<COND (<NOT .N> <RETURN>)>
+			<SET F .N>
+			<SET N <NEXT? .F>>
+			<PUT-IN-TABLE .F ,LAST-S-O-T-PLACE .OBJ>>)>>
+
+<ROUTINE PUT-IN-TABLE (OBJ RM SURF "AUX" (CTR 0))
+	 <COND (<==? .OBJ ,PLAYER> <RFALSE>)>
+	 <REPEAT ()
+		 <COND (<G? .CTR 44> <RETURN>)
+		       (<==? <GET ,SHARED-OBJECT-TABLE .CTR> 0>
+			<PUT ,SHARED-OBJECT-TABLE .CTR .OBJ>
+			<PUT ,SHARED-OBJECT-TABLE <+ .CTR 1> .RM>
+			<PUT ,SHARED-OBJECT-TABLE <+ .CTR 2> .SURF>
+			<MOVE .OBJ ,LOCAL-GLOBALS>
+			<RFALSE>)
+		       (T <SET CTR <+ .CTR 3>>)>>
+	 <TELL "[BUG: Too much on surfaces.]" CR>>
+
+<OBJECT GLOBAL-BANK
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM BANK TRUST)
+	(ADJECTIVE MARINE TRUST)
+	(DESC "bank")
+	(ACTION GLOBAL-BANK-F)>
+
+<ROUTINE GLOBAL-BANK-F ()
+	 <COND (<EQUAL? ,HERE ,BANK>
+		<COND (<VERB? EXAMINE>
+		       <PERFORM ,V?LOOK>
+		       <SETG P-IT-OBJECT ,GLOBAL-BANK>
+		       <RTRUE>)
+		      (<VERB? ROB>
+		       <ROBBERY-ENDING>)
+		      (<VERB? DROP EXIT>
+		       <DO-WALK ,P?OUT>
+		       <RTRUE>)
+		      (<VERB? MUNG>
+		       <TELL "This isn't Monte Carlo." CR>
+		       <RTRUE>)>)
+		(<EQUAL? ,HERE ,SHORE-ROAD-2>
+		 <COND (<VERB? THROUGH>
+			<DO-WALK ,P?IN>
+			<RTRUE>)
+		       (<VERB? EXAMINE>
+			<TELL 
+"The " D ,BANK " is an imposing granite building." CR>
+			<RTRUE>)
+		       (<VERB? ROB>
+			<COND (,BUSINESS-HOURS?
+			       <ROBBERY-ENDING>)
+			      (T <ROBBERY-ENDING <>>)>)>)
+		(<OR <AND <VERB? ASK-ABOUT>
+		      	  <PRSI? ,GLOBAL-BANK>>
+		     <AND <VERB? FIND WALK-TO>
+			  <PRSO? ,GLOBAL-BANK>>>
+		 <RFALSE>)
+		(T <GLOBAL-NOT-HERE-PRINT ,GLOBAL-BANK>)>>
+
+<ROUTINE ROBBERY-ENDING ("OPTIONAL" (INSIDE? T))
+	 <COND (.INSIDE?
+		<TELL 
+"The teller trips the alarm, and policemen come and drag you away.
+As you contemplate a stretch in prison, you consider that
+crime might not pay." CR>)
+	       (T
+		<TELL 
+"You don't realize your attempts have set off a silent alarm
+until the police arrive. At that point, you can only wonder if
+attempted robbery wasn't such a bright idea." CR>)>
+	 <CRLF>
+	 <FINISH>>
+
+<OBJECT GLOBAL-MONEY
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM MONEY CASH \$)
+	(DESC "money")
+	(ACTION GLOBAL-MONEY-F)>
+
+<ROUTINE GLOBAL-MONEY-F ()
+	 <COND (<VERB? ASK-FOR ASK-ABOUT STEP WHAT FOLLOW>
+		<RFALSE>)
+	       (<VERB? FIND>
+		<TELL-NOT-EASY>
+		<RTRUE>)
+	       (<G? ,POCKET-CHANGE 0>
+		<COND (<OR <FSET? ,WET-SUIT ,WORNBIT>
+			   <FSET? ,DEEP-SUIT ,WORNBIT>>
+		       <TELL-CANT-REACH "it">)
+		      (<VERB? COUNT>
+		       <TELL "You are carrying $" N ,POCKET-CHANGE "." CR>)
+		      (<VERB? EXAMINE>
+		       <TELL "It looks a lot like $" N ,POCKET-CHANGE "." CR>)
+		      (<NOT <VERB? TAKE>>
+		       <TELL-FLASHING-CASH>)>)
+	       (<EQUAL? ,HERE ,BANK>
+		<TELL 
+"Not surprisingly, the money here is not easily accessible." CR>
+		<RTRUE>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,GLOBAL-MONEY>)>>
+
+<ROUTINE TELL-FLASHING-CASH ()
+	 <TELL "Flashing your bankroll is not a good idea." CR>>
+
+<OBJECT FERRY-TOKEN
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM TOKEN)
+	(ADJECTIVE FERRY)
+	(DESC "ferry token")
+	(ACTION FERRY-TOKEN-F)>
+
+<ROUTINE FERRY-TOKEN-F ()
+	 <COND (<AND <IN? ,SPEAR-CARRIER ,HERE>
+		     <OR <AND <VERB? ASK-ABOUT ASK-FOR>
+		              <PRSO? ,SPEAR-CARRIER>>
+		         <VERB? BUY>>>
+		<NO-TOKENS ,HERE>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <FSET? ,PRSO ,PERSON>>
+		<TELL "\"You need them for the ferry.\"" CR>)
+	       (<VERB? FIND ASK-FOR>
+		<RFALSE>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,FERRY-TOKEN>)>>
+
+<ROUTINE NO-TOKENS (PLACE)
+	 <COND (<==? .PLACE ,BANK>
+		<TELL 
+"The teller says, \"We're out. Try Outfitters.\"">)
+	       (T <TELL
+"The " D ,SPEAR-CARRIER " checks and then says, \"I'm afraid we're
+out of tokens. Try " D ,BANK ".\"">)>
+	 <CRLF>
+	 <RTRUE>>
+
+<OBJECT GLOBAL-TIME
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM TIME)
+	(ADJECTIVE CORREC)
+	(DESC "time")
+	(FLAGS NDESCBIT)
+	(ACTION GLOBAL-TIME-F)>
+
+<ROUTINE GLOBAL-TIME-F ()
+	 <COND (<VERB? ASK-FOR ASK-ABOUT>
+		<COND (<PRSO? ,SPEAR-CARRIER>
+		       <TELL "The " D ,PRSO " checks and tells you it's ">
+		       <TIME-PRINT ,PRESENT-TIME>
+		       <CRLF>)
+		      (<FSET? ,PRSO ,PERSON>
+		       <TELL "\"I'm not sure.\"" CR>)>)
+	       (<AND <VERB? TELL>
+		     <PRSO? ,GLOBAL-TIME>
+		     <NOT ,PRSI>>
+		<TELL
+"Didn't you learn that the little hand points to the hour and the big hand
+points to the minute?" CR>)
+	       (<VERB? EXAMINE>
+		<PERFORM ,V?TIME>
+		<SETG P-IT-OBJECT ,GLOBAL-TIME>
+		<RTRUE>)
+	       (<AND <VERB? TELL>
+		     <FSET? ,PRSO ,VICBIT>
+		     <NOT <PRSO? ,ME>>>
+		<RFALSE>)
+	       (T <TELL "If you want to know the time, check your watch." CR>)>>
+
+<OBJECT GLOBAL-DAY ;"installed under protest"
+	(IN GLOBAL-OBJECTS)
+	(DESC "day")
+	(SYNONYM DAY)
+	(ACTION GLOBAL-DAY-F)>
+
+<ROUTINE GLOBAL-DAY-F ()
+	 <COND (<OR <AND <VERB? ASK-FOR ASK-ABOUT>
+		     	 <FSET? ,PRSO ,VICBIT>>
+		    <AND <VERB? WHAT>
+			 <NOT <==? ,WINNER ,PLAYER>>>>
+		<TELL "\"Wednesday.\"" CR>)
+	       (<VERB? WHAT> ;"waste of valuable space"
+		<TELL "Ask somebody." CR>)
+	       (T <TELL-SERIOUS>)>>
+
+<ROUTINE TELL-SERIOUS ()
+	 <TELL "Be serious." CR>>
+
+<OBJECT ADVENTURER
+	(IN BEDROOM)
+	(SYNONYM PLAYER ADVENT CRETIN)
+	(DESC "cretin")
+        (CHARACTER 0)
+	(FLAGS PERSON VICBIT NDESCBIT INVISIBLE)
+	(ACTION ADVENTURER-F)>
+
+<ROUTINE ADVENTURER-F ()
+	 <COND (<G? ,BLOOD-ALCOHOL 25>
+		<JIGS-UP
+"You pass out and never find that you've been mugged, rolled and killed.">)
+	       (<OR <G? ,HOW-THIRSTY 3>
+		    <G? ,BLOOD-ALCOHOL 15>
+		    <G? ,HOW-HUNGRY 3>
+		    <==? ,HOW-TIRED 6>
+		    <==? ,P-ADVERB ,W?SLOWLY>>
+		<COND (<OR <VERB? SLEEP WAIT>
+			   <AND <VERB? TELL> <NOT ,PRSI>>
+			   <GAME-COMMAND?>
+			   ,WAITED?>
+		       <SETG WAITED? 2>
+		       <COND (<VERB? WALK> T)
+			     (<AND ,PRSO
+				   <NOT <==? <META-LOC ,PRSO> ,HERE>>
+				   <NOT <IN? ,PRSO ,GLOBAL-OBJECTS>>>
+			      <SETG PRSO ,NOT-HERE-OBJECT>)
+			     (<AND ,PRSI
+				   <NOT <==? <META-LOC ,PRSI> ,HERE>>
+				   <NOT <IN? ,PRSI ,GLOBAL-OBJECTS>>>
+			      <SETG PRSI ,NOT-HERE-OBJECT>)>
+		       <COND (<EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
+			      <RETURN <NOT-HERE-OBJECT-F>>)
+			     (T <RFALSE>)>)
+		      (T
+		       <SETG WAITED? 1>
+		       <COND (<EQUAL? <CLOCKER> ,M-FATAL>
+			      <SETG CLOCK-WAIT T>
+		       	      <TELL "This interrupts what you're trying to do." CR>
+		       	      <RFATAL>)
+			     (<VERB? WALK>
+		       	      <COND (<AND <NOT <IN? ,PLAYER ,UNDERWATER>>
+					  <IN? ,PLAYER ,HERE>>
+				     <COND (<G? ,BLOOD-ALCOHOL 15>
+       					    <TELL-YOURE-NOT
+"quite sure which direction is which...">
+					    <CRLF>
+		       	      	     	    <RANDOM-WALK>)
+					   (<PROB 40>
+				     	    <TELL
+"You stop to sit down for a bit and then struggle back to your feet." CR>
+				     	    <RFATAL>)>)>)>)>)
+	       (<AND <FSET? ,FLIPPERS ,WORNBIT>
+		     <VERB? WALK>
+		     <NOT ,AT-SEA>
+		     <OR <L? <GETP ,HERE ,P?LINE> ,TRAWLER-LINE-C>
+			 <AND <==? ,HERE ,MM-PORT-DECK>
+			      <==? ,P-WALK-DIR ,P?WEST>>
+			 <AND <==? ,HERE ,NW-STARBOARD-DECK>
+			      <==? ,P-WALK-DIR ,P?EAST>>>>
+		<TELL "You'd look silly walking around in flippers." CR>)>>
+
+<GLOBAL WAITED? <>>
+
+<ROUTINE RANDOM-WALK ("AUX" P Z L S (D <>))
+	 <SET P 0>
+	 <REPEAT ()
+		 <COND (<L? <SET P <NEXTP ,HERE .P>> ,LOW-DIRECTION>
+			<COND (.D
+			       <DO-WALK .D>)>
+			<RETURN>)
+		       (T
+			<SET Z <GETPT ,HERE .P>>
+			<SET L <PTSIZE .Z>>
+			<COND (<OR <EQUAL? .L ,UEXIT>
+				   <AND <EQUAL? .L ,CEXIT>
+					<VALUE <GETB .Z ,CEXITFLAG>>>
+				   <AND <EQUAL? .L ,DEXIT>
+					<FSET? <GETB .Z ,DEXITOBJ> ,OPENBIT>>>
+			       <COND (<NOT .D> <SET D .P>)
+				     (<PROB 50> <SET D .P>)>)>)>>>
+
+<ROUTINE DETECTOR-NOISE ("OPTIONAL" (LISTENING? <>) "AUX" C H P Z L R
+			 				  (LAST-R <>))
+	 <SET H <META-LOC ,PLAYER>>
+	 <COND (<AND <NOT .LISTENING?>
+		     <VERB? LISTEN>
+		     <PRSO? ,METAL-DETECTOR>>
+		<RFALSE>)
+	       (<AND <==? <META-LOC ,METAL-DETECTOR> .H>
+		     ,DETECTOR-ON
+		     ,DETECTOR-POWERED>
+		<SET C <+ <COUNT-METAL .H> <GETP .H ,P?DESCFCN>>>
+		<SET P 0>
+		<REPEAT ()
+		        <COND (<0? <SET P <NEXTP .H .P>>>
+			       <RETURN>)
+			      (<NOT <L? .P ,LOW-DIRECTION>>
+			       <SET Z <GETPT .H .P>>
+			       <SET L <PTSIZE .Z>>
+			       <COND (<EQUAL? .L ,UEXIT ,CEXIT ,DEXIT>
+				      <SET R <GETB .Z 0>>
+				      <COND (<NOT <==? .R .LAST-R>>
+					    <SET C <+ .C </ <COUNT-METAL .R> 2>
+						</ <GETP .R ,P?DESCFCN> 2>>>
+					     <SET LAST-R .R>)>)
+				     (<EQUAL? .L ,FEXIT>
+				      <SET R <APPLY <GET .Z 0> <>>>
+				      <COND (<AND .R <NOT <==? .R .LAST-R>>>
+					     <SET C <+
+						     .C
+						     </ <COUNT-METAL .R> 2>
+						     </ <GETP .R ,P?DESCFCN> 2>
+						     >>
+					     <SET LAST-R .R>)>)>)>>
+		<COND (<EQUAL? .C 0>
+		       <COND (.LISTENING?
+			      <TELL
+"The " D ,METAL-DETECTOR " makes no noise." CR>
+			      <RTRUE>)
+			     (T <RFALSE>)>)>
+		<TELL "The " D ,METAL-DETECTOR " is clicking ">
+		<COND (<G? .C 100>
+		       <TELL "extremely fast">)
+		      (<G? .C 75>
+		       <TELL "quickly">)
+		      (<G? .C 50>
+		       <TELL "moderately">)
+		      (<G? .C 25>
+		       <TELL "slowly">)
+		      (T <TELL "occasionally">)>
+		<TELL "." CR>)
+	       (.LISTENING?
+		<TELL "The " D ,METAL-DETECTOR " makes no noise." CR>)>>
+
+<ROUTINE COUNT-METAL (R "AUX" F (V 0))
+	 <SET F <FIRST? .R>>
+	 <REPEAT ()
+		 <COND (<NOT .F> <RETURN .V>)
+		       (<OR <NOT <FSET? .F ,INVISIBLE>>
+			    <EQUAL? .F ,PLAYER>>
+			<SET V <+ .V <GETP .F ,P?STATION>>>
+			<COND (<FIRST? .F>
+			       <SET V <+ .V <COUNT-METAL .F>>>)>)>
+		 <SET F <NEXT? .F>>>>
+
+<OBJECT ME
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ME MYSELF)
+	(DESC "you")
+	(FLAGS PERSON VICBIT)
+	(ACTION CRETIN-F)>
+
+<ROUTINE CRETIN-F ()
+	 <COND (<NOT <EQUAL? ,PRSO ,WINNER ,ME>>
+		<RFALSE>)>
+	 <COND (<VERB? EAT>
+		<TELL "Stick to stew." CR>)
+	       (<VERB? DRINK>
+		<TELL "Stick to grog." CR>)
+	       (<VERB? ALARM>
+		<TELL "Good morning!" CR>)
+	       (<VERB? MUNG ATTACK KILL>
+		<TELL
+"Although it's not hard, I can't make it that simple." CR>)
+	       (<VERB? FIND>
+		<TELL "Have you tried asking the parrot?" CR>)
+	       (<OR <VERB? TAKE LAMP-ON>
+		    <AND <VERB? GIVE> <PRSO? ,ME>>>
+		<TELL "You romantic fool!" CR>)
+	       (<VERB? EXAMINE>
+		<TELL "You look like a diver." CR>)
+	       ;(<VERB? LOOK-INSIDE>
+		<TELL "I'm a computer, not a doctor!" CR>)
+	       (<VERB? LOOK-UNDER>
+		<TELL
+"I think the center of the earth is down there somewhere." CR>)
+	       (<VERB? RUB>
+		<TELL "You're starting to rub me the wrong way." CR>)
+	       (<VERB? PLAY>
+		<TELL "Don't expect an Oscar." CR>)
+	       (<VERB? CLIMB-ON BOARD THROUGH>
+		<TELL "I'm not impressed." CR>)
+	       ;(<VERB? CLOSE>
+		<TELL
+"I've heard of zipping one's lip..." CR>)
+	       (<VERB? CROSS SHAKE>
+		<TELL "I'm much too kind." CR>)
+	       ;(<VERB? DISEMBARK>
+		<TELL "What makes you think you deserve it?" CR>)
+	       (<VERB? DROP>
+		<TELL "Like a hot potato." CR>)
+	       ;(<VERB? LEAN-ON OPEN>
+		<TELL "I think you've got enough troubles." CR>)
+	       (<VERB? FOLLOW>
+		<TELL "What makes you think you know where you're going?" CR>)
+	       ;(<VERB? LISTEN>
+		<TELL "Huh? Did you say something?" CR>)
+	       (<VERB? SEARCH>
+		<TELL "Okay. I found one empty head but a strong heart." CR>)
+	       ;(<VERB? MAKE>
+		<TELL "What an attitude!" CR>)
+	       (<VERB? SMELL PUSH>
+		<TELL "I'd rather not." CR>)
+	       (<VERB? THROW>
+		<TELL "For a loop?" CR>)
+	       ;(<VERB? WEAR>
+		<TELL "Consider " D ,GLOBAL-SELF " worn. Happy?" CR>)
+	       (<VERB? ROB>
+		<TELL "You wouldn't get much from anyone that stupid." CR>)
+	       (T
+		<RFALSE>)>
+	 <RTRUE>>
+
+<OBJECT GLOBAL-SELF
+	(IN GLOBAL-OBJECTS)
+	(DESC "yourself")
+	(SYNONYM SELF YOURSE)
+	(FLAGS VICBIT)
+	(ACTION GLOBAL-SELF-F)>
+
+<ROUTINE GLOBAL-SELF-F ()
+	 <COND (<==? ,WINNER ,PLAYER>
+		<COND (<PRSI? ,GLOBAL-SELF>
+		       <SETG PRSI ,ME>)>
+		<COND (<PRSO? ,GLOBAL-SELF>
+		       <SETG PRSO ,ME>)>)>
+	 <PERFORM ,PRSA ,PRSO ,PRSI>
+	 <RTRUE>>
+
+<OBJECT GLOBAL-ROOM
+	(IN GLOBAL-OBJECTS)
+	(DESC "room")
+	(SYNONYM ROOM CABIN)
+	(ACTION GLOBAL-ROOM-F)>
+
+<ROUTINE GLOBAL-ROOM-F ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "room">)
+	       (<VERB? EXAMINE>
+		<PERFORM ,V?LOOK>
+		<SETG P-IT-OBJECT ,GLOBAL-ROOM>
+		<RTRUE>)
+	       (<VERB? DROP EXIT DISEMBARK>
+		<DO-WALK ,P?OUT>
+		<RTRUE>)
+	       (<VERB? ENTER THROUGH>
+		<DO-WALK ,P?IN>
+		<RTRUE>)
+	       (<VERB? MUNG ATTACK>
+		<TELL "It's sturdier than you give it credit for." CR>
+		<RTRUE>)
+	       (<VERB? UNLOCK>
+		<TELL "Please be more specific about what you want to unlock." CR>)
+	       (<VERB? PUT>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)>>
+
+;<OBJECT DOORWAY
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CONTBIT OPENBIT)
+	(DESC "doorway")
+	(SYNONYM DOORWAY OPENIN)
+	(ADJECTIVE ARCHED TIMBER)
+	;(ACTION DOORWAY-FCN)>
+
+;<ROUTINE DOORWAY-FCN ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<AND <EQUAL? ,HERE ,NORTH-ANTECHAMBER ,BURIAL-CHAMBER>
+			    <EQUAL? ,BEAM-PLACED 4>>
+		       <TELL
+"The mast is in the doorway, running from top to bottom." CR>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,SOUTH-ANTECHAMBER ,ANNEX>
+			    <EQUAL? ,BEAM-PLACED 2 3>>
+		       <TELL 
+"The beam is wedged in the doorway from side to side." CR>
+		       <RTRUE>)>)>>
+
+<OBJECT WINDOW
+	(IN LOCAL-GLOBALS)
+	(DESC "window")
+	(SYNONYM WINDOW)
+	(FLAGS TRANSBIT)
+	(ACTION WINDOW-F)>
+
+<ROUTINE WINDOW-F ()
+	 <COND (<EQUAL? ,HERE ,BEDROOM>
+		<COND (<VERB? LOOK-INSIDE>
+		       <TELL 
+"You see an " D ,FIELD " beyond the alley where the terrible events of last
+night transpired." CR>)
+		      (<VERB? OPEN CLOSE>
+		       <TELL "It's stuck shut." CR>)>)
+	       (<EQUAL? ,HERE ,BANK>
+		<COND (<VERB? EXAMINE>
+		       <TELL 
+"It is a barred window about chest-high behind which the teller transacts his
+business." CR>)
+		      (<VERB? LOOK-INSIDE LOOK-BEHIND>
+		       <TELL "There is a teller there." CR>)>)
+	       (<EQUAL? ,HERE ,MM-WHEELHOUSE ,NW-WHEELHOUSE>
+	        <COND (<VERB? LOOK-INSIDE>
+		       <TELL "You can see the ocean beyond the deck." CR>)>)>>
+
+<OBJECT IN-WINDOW
+	(IN LOCAL-GLOBALS)
+	(DESC "window")
+	(SYNONYM WINDOW)
+	(FLAGS TRANSBIT)
+	(ACTION IN-WINDOW-F)>
+
+<ROUTINE IN-WINDOW-F ("AUX" L)
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL "You see ">
+		<COND (<AND <EQUAL? <SET L <LOC ,JOHNNY>> ,MM-WHEELHOUSE
+				    		 	  ,NW-WHEELHOUSE>
+			    <==? <GETP ,HERE ,P?LINE> <GETP .L ,P?LINE>>>
+		       <TELL "Johnny in ">)>
+		<TELL "the wheelhouse." CR>)>>
+
+<OBJECT BEDROOM-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "bedroom door")
+	(SYNONYM DOOR)
+	(ADJECTIVE BEDROOM MY ROOM)
+	(FLAGS NDESCBIT DOORBIT)
+	(ACTION BEDROOM-DOOR-F)>
+
+<ROUTINE BEDROOM-DOOR-F ()
+	 <COND (<VERB? OPEN>
+	        <COND (<FSET? ,BEDROOM-DOOR ,OPENBIT>
+		       <TELL-ALREADY "open">
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,UPSTAIRS-HALLWAY>
+			    ,BEDROOM-DOOR-LOCKED>
+		       <TELL "It's locked." CR>
+		       <RTRUE>)
+		      (T
+		       <FSET ,BEDROOM-DOOR ,OPENBIT>
+		       <SETG BEDROOM-DOOR-LOCKED <>>
+		       <COND (<IN? ,WEASEL ,UPSTAIRS-HALLWAY>
+			      <TELL 
+"You open the door and see " D ,WEASEL ". He says,
+\"Oh. Hi. I was just wonderin' if you were gonna be at the meetin'
+at " D ,SHANTY ".\" He turns and heads down the steps." CR>
+			      <ESTABLISH-GOAL ,WEASEL ,SHANTY>
+			      <DISABLE <INT I-WEASEL-TO-BEDROOM>>)
+			     (T <TELL-NOW ,BEDROOM-DOOR "open">)>
+		       <RTRUE>)>)
+		(<VERB? CLOSE>
+		 <COND (<NOT <FSET? ,BEDROOM-DOOR ,OPENBIT>>
+			<TELL-ALREADY "closed">
+			<RTRUE>)
+		       (T
+			<FCLEAR ,BEDROOM-DOOR ,OPENBIT>
+			<TELL-NOW ,BEDROOM-DOOR "closed">
+			<RTRUE>)>)
+		(<VERB? UNLOCK>
+		 <COND (,BEDROOM-DOOR-LOCKED
+			<COND (<OR <IN? ,PLAYER ,BEDROOM>
+				   <PRSI? ,KEY>>
+			       <SETG BEDROOM-DOOR-LOCKED <>>
+			       <TELL-NOW ,BEDROOM-DOOR "unlocked">)
+			      (,PRSI
+			       <TELL-YOU-CANT "unlock it with that!">)
+			     (T <TELL "Not without the key." CR>)>)
+		       (T <TELL-ALREADY "unlocked">)>)>>
+
+<OBJECT OCEAN
+	(IN LOCAL-GLOBALS)
+	(SYNONYM WATER OCEAN SEA WAVES)
+	(ADJECTIVE BRINE SEA OCEAN)
+	(DESC "ocean")
+	(FLAGS OPENBIT DRINKBIT VOWELBIT)
+	(ACTION OCEAN-F)>
+
+<ROUTINE OCEAN-F ("AUX" L)
+	 <COND (<AIRTIGHT-ROOM?>
+		<TELL "There's no water in here." CR>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		       <TELL "There is water all around you." CR>)
+		      (T
+		       <TELL "The ocean looks choppy">
+		       <COND (,AT-SEA
+			      <TELL ". Whitecaps rise and fall around the boat.">)
+			     (T <TELL
+", and you know about the dangerous currents here.">)>
+		       <CRLF>)>)
+	       (<VERB? LISTEN>
+		<TELL "You hear the crashing of the waves." CR>)
+	       (<VERB? BOARD THROUGH SWIM>
+		<COND (<EQUAL? <SET L <GETP ,HERE ,P?LINE>> ,UNDERWATER-LINE-C>
+		       <TELL "You're already in it!" CR>)
+		      (<OR <EQUAL? .L ,TRAWLER-LINE-C ,SALVAGER-LINE-C>
+			   <EQUAL? ,HERE ,WHARF ,FERRY-LANDING>>
+		       <COND (,AT-SEA
+		       	      <PERFORM ,V?DIVE>
+		       	      <RTRUE>)
+		      	     (T
+		       	      <JIGS-UP
+"The currents pull you in several conflicting directions, and you end up
+much the worse for it.">)>)
+		      (T <TELL-NO-SHORELINE>)>)
+	       (<AND <VERB? DROP THROW>
+		     <PRSI? ,OCEAN>>
+		<COND (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)
+		      (T <TELL-NO-LITTER>)>)
+	       (<VERB? SMELL>
+		<TELL
+"It smells very salty, which is what you might expect from the sea." CR>)
+	       (<VERB? DRINK TASTE>
+		<COND (<OR <G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
+			   <EQUAL? ,HERE ,FERRY-LANDING ,WHARF>>
+		       <TELL "Bleahhhh! You spit it out immediately!" CR>)
+		      (T <TELL-NO-SHORELINE>)>)
+	       (<VERB? RUB>
+		<COND (<OR <G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
+			   <EQUAL? ,HERE ,FERRY-LANDING ,WHARF>>
+		       <TELL "It's wet." CR>)
+		      (T <TELL-NO-SHORELINE>)>)>>
+
+<ROUTINE TELL-NO-SHORELINE ()
+	 <TELL-YOU-CANT "make your way to the shoreline.">>
+
+<ROUTINE TELL-NO-LITTER ()
+	 <TELL "It would spoil the beauty of the sea." CR>>
+
+<OBJECT STAIRS
+	(IN LOCAL-GLOBALS)
+	(SYNONYM STAIRS STEPS STAIRW)
+	(DESC "stairs")
+	;(FLAGS NDESCBIT CLIMBBIT TOUCHBIT)
+	(ACTION STAIRS-F)>
+
+<ROUTINE STAIRS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The carpeted stairway leads ">
+		<COND (<EQUAL? ,HERE ,UPSTAIRS-HALLWAY>
+		       <TELL "down">)
+		      (<EQUAL? ,HERE ,RED-BOAR-INN>
+		       <TELL "up">)>
+		<TELL "." CR>)
+	       (<VERB? CLIMB-FOO>
+		<COND (<EQUAL? ,HERE ,UPSTAIRS-HALLWAY>
+		       <V-CLIMB-UP ,P?DOWN>)
+		      (T <V-CLIMB-UP>)>
+		<RTRUE>)>>
+
+<OBJECT LADDER-TOP
+	(IN LOCAL-GLOBALS)
+	(DESC "ladder top")
+	(SYNONYM LADDER TOP)
+	(ADJECTIVE LADDER TOP)
+	(TEXT "It's the top of a ladder that leads down.")
+	(ACTION LADDER-TOP-F)>
+
+<ROUTINE LADDER-TOP-F ()
+	 <COND (<VERB? CLIMB-FOO>
+		<DO-WALK ,P?DOWN>
+		<RTRUE>)>>
+
+<OBJECT LADDER-BOTTOM
+	(IN LOCAL-GLOBALS)
+	(DESC "ladder bottom")
+	(SYNONYM LADDER BOTTOM)
+	(ADJECTIVE LADDER BOTTOM)
+	(TEXT "It's the bottom of a ladder that leads up.")
+	(ACTION LADDER-BOTTOM-F)>
+
+<ROUTINE LADDER-BOTTOM-F ()
+	 <COND (<VERB? CLIMB-FOO>
+		<DO-WALK ,P?UP>
+		<RTRUE>)>>
+
+<OBJECT RAILING
+	(IN LOCAL-GLOBALS)
+	(DESC "railing")
+	(SYNONYM RAILIN RAIL)
+	(ADJECTIVE METAL STURDY)
+	(TEXT "The sturdy metal railing encircles the deck.")
+	(ACTION RAILING-F)>
+
+<ROUTINE RAILING-F ()
+	 <COND (<VERB? CLIMB-FOO>
+		<TELL "You immediately climb back down." CR>)
+	       (<VERB? DISEMBARK LEAP>
+		<PERFORM ,V?DIVE>
+		<RTRUE>)>>
+
+<OBJECT BUNKS
+	(IN LOCAL-GLOBALS)
+	(DESC "collection of decrepit bunks")
+	(SYNONYM BUNK BUNKS COLLEC BEDS)
+	(ADJECTIVE OLD DECREP ROTTIN ROTTEN)
+	(ACTION BUNKS-F)>
+
+<ROUTINE BUNKS-F ()
+	 <COND (<VERB? BOARD SLEEP>
+		<TELL-BAD-SHAPE>)
+	       (<VERB? EXAMINE>
+		<TELL
+"These stacks of bunks look as though they were never comfortable.
+The work of time and the sea have made them fairly
+decrepit, incapable of supporting much weight." CR>)
+	       (<VERB? MUNG>
+		<TELL
+"Some pieces fall away, but the structure holds together." CR>)>>
+
+<ROUTINE TELL-BAD-SHAPE ()
+	 <TELL "They don't look as if they could support your weight." CR>>
+
+<ROUTINE TIME-PRINT (NUM "AUX" HR (PM <>))
+	 <COND (<G? <SET HR </ .NUM 60>> 12>
+		<SET HR <- .HR 12>>
+		<SET PM T>)
+	       (<==? .HR 12> <SET PM T>)
+	       (<==? .HR 0> <SET HR 12>)>
+	 <PRINTN .HR>
+	 <TELL ":">
+	 <COND (<L? <SET HR <MOD .NUM 60>> 10>
+		<TELL "0">)>
+	 <TELL N .HR " ">
+	 <TELL <COND (.PM "p.m.") (T "a.m.")>>>
+
+;"GLOBAL VARIABLES"
+
+<GLOBAL HERE <>>
+
+<GLOBAL LOAD-ALLOWED 100>
+
+;<GLOBAL LOAD-MAX 0>
+
+<GLOBAL LIT T>
+
+;<GLOBAL DEBUG <>>
+
+<GLOBAL WATCH-SCORE 8>
+
+<GLOBAL WATCH-MOVES 0>
+
+<GLOBAL SCORE 8> ;"This is actually HOURS; STATUS-LINE stuff looks for SCORE.
+		   Normal SCORE is RATING here; initialized in VERBS."
+
+<GLOBAL MOVES 0> ;"This is actually minutes. Moves themselves aren't counted."
+
+<GLOBAL PRESENT-TIME 480>
+
+<GLOBAL WATCH-WOUND T>
+
+<GLOBAL SET-HR 0>
+
+<GLOBAL SET-MIN 60>
+
+<GLOBAL DELIVERY-TABLE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>>
+
+<GLOBAL DT-PTR 0>
+
+<GLOBAL QCONTEXT <>>
+
+<GLOBAL QCONTEXT-ROOM <>>
+
+<GLOBAL BEDROOM-MESSAGE <>>
+
+<GLOBAL MEETINGS-COMPLETED 0>
+
+<GLOBAL DETECTOR-POWERED <>>
+
+<GLOBAL DETECTOR-ON <>>
+
+<GLOBAL SOUPS-ON <>>
+
+<GLOBAL HOW-TIRED 1>
+
+<GLOBAL HOW-HUNGRY 1>
+
+<GLOBAL WRECK-FOUND 0>
+
+<GLOBAL WEASEL-PISSED <>>
+
+;<GLOBAL INDENTS
+	<TABLE ""
+	       "  "
+	       "    "
+	       "      "
+	       "        "
+	       "          ">>
+
+;"******************************************
+	Here come the pseudos
+********************************************"
+
+<ROUTINE TABLE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "table">)
+	       (<VERB? EXAMINE>
+		<TELL 
+"The table has a variety of forms and brochures you find boring." CR>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,PSEUDO-OBJECT>>
+		<TELL 
+"A bank official scurries out, picks up the " D ,PRSO ", and hands it
+to you, pointing out that the table is for bank business only." CR>
+		<RTRUE>)>>
+
+<ROUTINE LIGHTHOUSE-LOCK-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "lock">)
+	       (<VERB? PICK>
+		<TELL "You try for a while, but the lock won't give." CR>
+		<RTRUE>)
+	       (<VERB? UNLOCK>
+		<TELL-NO-KEY>
+		<RTRUE>)
+	       (<VERB? MUNG>
+		<TELL 
+"You find that the door and lock withstand your attempts." CR>
+		<RTRUE>)
+	       (<VERB? LOCK>
+		<TELL-ALREADY "locked">
+		<RTRUE>)>>
+
+<ROUTINE WHEEL-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "wheel">)
+	       (<VERB? TURN SPIN>
+		<COND (<IN? ,JOHNNY ,HERE>
+		       <TELL 
+D ,JOHNNY " glares at you. You decide to leave the piloting to the captain."
+CR>)
+		      (T <TELL "The wheel spins." CR>)>)>>
+
+<ROUTINE BOLT-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "bolts">)
+	       (T <TELL
+"The bolts are rusted firmly into place." CR>)>>
+
+;"Parser-related stuff"
+	 
+<OBJECT NOT-HERE-OBJECT
+	(DESC "such thing" ;"[not here]")
+	(ACTION NOT-HERE-OBJECT-F)>
+
+<ROUTINE NOT-HERE-OBJECT-F ("AUX" TBL (PRSO? T) OBJ)
+	 ;"This COND is game independent (except the TELL)"
+	 <COND (<AND <EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+		     <EQUAL? ,PRSI ,NOT-HERE-OBJECT>>
+		<TELL "Those things aren't here." CR>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+		<SET TBL ,P-PRSO>)
+	       (T
+		<SET TBL ,P-PRSI>
+		<SET PRSO? <>>)>
+	 <COND (.PRSO?
+		<COND (<VERB? ASK-CONTEXT-ABOUT ASK-CONTEXT-FOR CLIMB-UP
+			      EXAMINE FIND FOLLOW WAIT-FOR
+			      ;LOOK-INSIDE ;LOOK-OUTSIDE ;SEARCH WHAT
+			      $CALL GIVE MAKE THROUGH WALK-TO ;TELL>
+		       <COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
+			      <COND (<NOT <==? .OBJ ,NOT-HERE-OBJECT>>
+				     <RTRUE>)>)
+			     (T
+			      <RFALSE>)>)>)
+	       (T
+		<COND (<VERB? ASK-ABOUT ASK-FOR
+			      ;SEARCH-OBJECT-FOR SGIVE TELL>
+		       <COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
+			      <COND (<NOT <==? .OBJ ,NOT-HERE-OBJECT>>
+				     <RTRUE>)>)
+			     (T
+			      <RFALSE>)>)>)>
+        ;"Here is the default 'cant see any' printer"
+	 <COND (<VERB? $CALL>
+		<V-CALL-LOSE>
+		<SETG CLOCK-WAIT <>>)
+	       (<EQUAL? ,WINNER ,ADVENTURER>
+		<TELL-YOU-CANT "see any" <>>
+		<NOT-HERE-PRINT .PRSO?>
+		<TELL " here." CR>)
+	       (T
+		<START-SENTENCE ,WINNER>
+		<TELL " seems confused. \"I don't see any">
+		<NOT-HERE-PRINT .PRSO?>
+		<TELL " here!\"" CR>)>
+	 <SETG P-MOBY-FOUND <>>
+	 <SETG PRSA <>>
+	 <SETG PRSO <>>
+	 <SETG PRSI <>>
+	 <RFATAL>>
+
+<ROUTINE FIND-NOT-HERE (TBL PRSO? "AUX" M-F OBJ CTR PER)
+	;"Here is where special-case code goes. <MOBY-FIND .TBL> returns
+	   number of matches. If 1, then P-MOBY-FOUND is it. One may treat
+	   the 0 and >1 cases alike or different. It doesn't matter. Always
+	   return RFALSE (not handled) if you have resolved the problem (i.e.
+	   come up with one object)."
+	<SET M-F <MOBY-FIND .TBL>>
+	<COND (<AND <G? .M-F 1>
+	            <SET OBJ <GETP <1 .TBL> ,P?GLOBAL>>>
+	       <SET M-F 1>
+	       <SETG P-MOBY-FOUND .OBJ>)>
+	;<COND (<AND ,DEBUG
+		    <G? .M-F 0>>
+	       <TELL "[MOBY-FOUND " N .M-F "; to wit:">
+	       <SET CTR 1>
+	       <REPEAT ()
+		<COND (<G? .CTR .M-F>
+		       <TELL "]" CR>
+		       <RETURN>)>
+		<TELL " " D <GET .TBL .CTR>>
+		<SET CTR <+ .CTR 1>>
+		<COND (<L? .CTR .M-F> <TELL ",">)>>)
+	      (,DEBUG <TELL "[Nothing MOBY-FOUND.]" CR>)>
+	<COND (<==? 1 .M-F>
+	       <COND (.PRSO?
+		      <COND (<AND <VERB? TELL>
+				  <==? ,WINNER ,PLAYER>
+				  <FSET? ,P-MOBY-FOUND ,VICBIT>>
+			     <SETG P-CONT <>>
+			     <TELL-NOT-HERE-TALK>
+			     <RTRUE>)
+			    (<VERB? EXAMINE>
+			     <COND (<AND <FSET? ,P-MOBY-FOUND ,PERSON>
+				  	<NOT <0? <BAND <GETP <META-LOC ,PLAYER>
+							,P?CORRIDOR>
+						 <GETP <LOC ,P-MOBY-FOUND>
+							,P?CORRIDOR>>>>>
+			     	    <TELL
+"You can see " D ,P-MOBY-FOUND " in the distance." CR>)
+			    	   (<AND <PRSO? ,MCGINTY>
+				  	 <IN? ,PLAYER ,BACK-ALLEY-2>
+				  	 <IN? ,MCGINTY ,MCGINTY-HQ>>
+			     	    <TELL
+"Looking through the window, you see " D ,MCGINTY " in his office." CR>)
+				   (T
+				    <GLOBAL-NOT-HERE-PRINT ,PRSO>)>
+			     <RTRUE>)
+			    (T <SETG PRSO ,P-MOBY-FOUND>)>)
+		     (T <SETG PRSI ,P-MOBY-FOUND>)>
+	       <COND (<AND ,P-XADJ <NOT ,P-XNAM>> <SETG P-NONOUN T>)
+		     (T <SETG P-NONOUN <>>)>
+	       <RFALSE>)
+	      (<NOT .PRSO?>
+	       <COND (<OR <VERB? ASK-ABOUT>
+			  <AND <VERB? TELL>
+			       <PRSO? ,ME>>>
+		      <COND (<PRSO? ,ME>
+			     <COND (<AND <==? ,WINNER ,PLAYER>
+					 ,QCONTEXT
+					 <==? ,HERE ,QCONTEXT-ROOM>>
+				    <SET PER ,QCONTEXT>)
+				   (T <SET PER ,WINNER>)>)
+			    (T <SET PER ,PRSO>)>
+		      <COND (<FSET? .PER ,VICBIT>
+			     <SAY-CONFUSED .PER .PRSO?>)
+			    (T <SUDDENLY-REALIZE-TALKING .PER>
+			       ;<TELL 
+"You realize you're talking to " A ,PRSO "." CR>)>
+		      <RTRUE>)
+		     (<FSET? ,PRSO ,VICBIT>
+		      <SAY-CONFUSED ,PRSO .PRSO?>)
+		     (T
+	       	      <TELL "You wouldn't find any">
+	       	      <NOT-HERE-PRINT .PRSO?>
+	       	      <TELL " there." CR>
+	       	      <RTRUE>)>)
+	      (T ,NOT-HERE-OBJECT)>>
+
+<ROUTINE GLOBAL-NOT-HERE-PRINT (OBJ)
+	 <COND (,P-MULT <SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>)
+	       (T
+		<TELL-YOU-CANT "see any" <>>
+		<COND (<EQUAL? .OBJ ,PRSO> <PRSO-PRINT>)
+		      (T <PRSI-PRINT>)>
+		<TELL " here." CR>)>
+	 <SETG P-WON <>>
+	 <RTRUE>>
+
+<ROUTINE SAY-CONFUSED (PER PRSO?)
+	 <START-SENTENCE .PER>
+	 <TELL " looks confused. \"I have no idea what">
+	 <NOT-HERE-PRINT .PRSO?>
+	 <TELL " you're talking about!\"" CR>>
+
+<ROUTINE NOT-HERE-PRINT (PRSO?)
+ <COND (,P-OFLAG
+	<COND (,P-XADJ <TELL " "> <PRINTB ,P-XADJN>)>
+	<COND (,P-XNAM <TELL " "> <PRINTB ,P-XNAM>)>)
+       (.PRSO?
+	<BUFFER-PRINT <GET ,P-ITBL ,P-NC1> <GET ,P-ITBL ,P-NC1L> <>>)
+       (T
+	<BUFFER-PRINT <GET ,P-ITBL ,P-NC2> <GET ,P-ITBL ,P-NC2L> <>>)>
+ <SETG P-WON <>>>
+
+<ROUTINE TELL-YOU-CANT (STR "OPTIONAL" (FINISH T))
+	 <TELL "You can't " .STR>
+	 <COND (.FINISH <CRLF>)>>
+
+<ROUTINE TELL-ROPE-HIGH ()
+	 <TELL-CANT-REACH "the rope">>
+
+<ROUTINE TELL-CANT-REACH (STR)
+	 <TELL-YOU-CANT "reach " <>>
+	 <TELL .STR "." CR>>
+
+<ROUTINE TELL-NO-GO (PRINT?)
+	 <COND (.PRINT? <TELL-YOU-CANT "go that way.">)>>
+
+<ROUTINE TELL-NO-NO ()
+	 <TELL-YOU-CANT "do that.">>
+
+<ROUTINE TELL-NO-AFFORD ()
+	 <TELL-YOU-CANT "afford it.">>
+
+<ROUTINE TELL-TOO-BIG ()
+	 <TELL-YOU-CANT "fit through the hole carrying the tank.">>
diff --git a/goal.zap b/goal.zap
new file mode 100644
index 0000000..495b08a
--- /dev/null
+++ b/goal.zap
@@ -0,0 +1,528 @@
+
+
+	.FUNCT	DIR-PRINT,DIR,CNT=0,TBL,DRY=0
+	ZERO?	DIR \?ELS3
+	PRINTI	"out of view"
+	RTRUE	
+?ELS3:	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C \?ELS7
+	SET	'TBL,NAUTICAL-DIR-STRINGS
+	JUMP	?CND1
+?ELS7:	SET	'TBL,DIR-STRINGS
+	SET	'DRY,TRUE-VALUE
+?CND1:	
+?PRG10:	GET	TBL,CNT
+	EQUAL?	STACK,DIR \?CND12
+	ZERO?	DRY /?CND15
+	EQUAL?	DIR,P?UP,P?DOWN /?CND15
+	PRINTI	"the "
+?CND15:	ADD	CNT,1
+	GET	TBL,STACK
+	PRINT	STACK
+	RTRUE	
+?CND12:	INC	'CNT
+	JUMP	?PRG10
+
+
+	.FUNCT	FOLLOW-GOAL,PERSON,HERE,LINE,LN,RM,GT,GOAL,FLG,GOAL-FLAG=0,IGOAL=0,LOC,CNT=1,DIR
+	LOC	PERSON >HERE
+	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-F
+	EQUAL?	HERE,STACK \?ELS3
+	PUT	GT,GOAL-S,FALSE-VALUE
+	RETURN	FALSE-VALUE
+?ELS3:	GET	GT,GOAL-ENABLE
+	ZERO?	STACK /FALSE
+?CND1:	GETP	HERE,P?STATION >LOC
+	EQUAL?	LOC,HERE /?CND6
+	CALL	MOVE-PERSON,PERSON,LOC
+	RSTACK	
+?CND6:	GET	GT,GOAL-I >IGOAL
+	GET	TRANSFER-TABLE,IGOAL >GOAL
+	ZERO?	GOAL \?CND9
+	SET	'IGOAL,FALSE-VALUE
+	GET	GT,GOAL-S >GOAL
+?CND9:	ZERO?	GOAL /FALSE
+	EQUAL?	HERE,GOAL \?CND12
+	ZERO?	IGOAL /?ELS19
+	ADD	IGOAL,1
+	GET	TRANSFER-TABLE,STACK
+	CALL	MOVE-PERSON,PERSON,STACK >FLG
+	GET	GT,GOAL-F
+	CALL	ESTABLISH-GOAL,PERSON,STACK
+	RETURN	FLG
+?ELS19:	GET	GT,GOAL-F
+	EQUAL?	HERE,STACK /?ELS22
+	PUT	GT,GOAL-S,FALSE-VALUE
+	GET	GT,GOAL-F
+	CALL	MOVE-PERSON,PERSON,STACK >FLG
+	RETURN	FLG
+?ELS22:	PUT	GT,GOAL-S,FALSE-VALUE
+	RETURN	FALSE-VALUE
+?CND12:	GETP	GOAL,P?LINE
+	CALL	GET-LINE,STACK >LINE
+?PRG25:	GET	LINE,CNT >RM
+	EQUAL?	RM,HERE \?ELS29
+	ZERO?	GOAL-FLAG /?ELS32
+	SUB	CNT,3
+	GET	LINE,STACK >LOC
+	JUMP	?CND30
+?ELS32:	ADD	CNT,3
+	GET	LINE,STACK >LOC
+?CND30:	CALL	MOVE-PERSON,PERSON,LOC
+	RETURN	STACK
+?ELS29:	EQUAL?	RM,GOAL \?CND27
+	SET	'GOAL-FLAG,TRUE-VALUE
+?CND27:	ADD	CNT,3 >CNT
+	JUMP	?PRG25
+
+
+	.FUNCT	COR-DIR,HERE,THERE,COR,RM,PAST=0,CNT=2,?TMP1
+	GETP	THERE,P?CORRIDOR >?TMP1
+	GETP	HERE,P?CORRIDOR
+	BAND	?TMP1,STACK
+	CALL	GET-COR,STACK >COR
+?PRG1:	GET	COR,CNT >RM
+	EQUAL?	RM,HERE \?ELS5
+	SET	'PAST,1
+	JUMP	?REP2
+?ELS5:	EQUAL?	RM,THERE \?CND3
+	JUMP	?REP2
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	GET	COR,PAST
+	RSTACK	
+
+
+	.FUNCT	GET-LINE,LN
+	ZERO?	LN \?ELS5
+	RETURN	ROAD-WHARF-LINE
+?ELS5:	EQUAL?	LN,1 \?ELS7
+	RETURN	EAST-ROAD-LINE
+?ELS7:	EQUAL?	LN,2 \?ELS9
+	RETURN	BEDROOM-LINE
+?ELS9:	EQUAL?	LN,3 \?ELS11
+	RETURN	BACK-ALLEY-LINE
+?ELS11:	EQUAL?	LN,4 \?ELS13
+	RETURN	TRAWLER-LINE
+?ELS13:	EQUAL?	LN,5 \FALSE
+	RETURN	SALVAGER-LINE
+
+
+	.FUNCT	GET-COR,NUM
+	EQUAL?	NUM,1 \?ELS5
+	RETURN	COR-1
+?ELS5:	EQUAL?	NUM,2 \?ELS7
+	RETURN	COR-2
+?ELS7:	EQUAL?	NUM,4 \?ELS9
+	RETURN	COR-4
+?ELS9:	EQUAL?	NUM,8 \?ELS11
+	RETURN	COR-8
+?ELS11:	EQUAL?	NUM,16 \?ELS13
+	RETURN	COR-16
+?ELS13:	EQUAL?	NUM,32 \?ELS15
+	RETURN	COR-32
+?ELS15:	EQUAL?	NUM,64 \?ELS17
+	RETURN	COR-64
+?ELS17:	EQUAL?	NUM,128 \?ELS19
+	RETURN	COR-128
+?ELS19:	EQUAL?	NUM,256 \?ELS21
+	RETURN	COR-256
+?ELS21:	RETURN	COR-512
+
+
+	.FUNCT	CORRIDOR-LOOK,ITM=0,C,Z,COR,VAL,FOUND=0
+	GETP	HERE,P?CORRIDOR >C
+	ZERO?	C /FALSE
+?PRG6:	SUB	C,512 >Z
+	LESS?	Z,0 /?ELS10
+	SET	'COR,COR-512
+	JUMP	?CND8
+?ELS10:	SUB	C,256 >Z
+	LESS?	Z,0 /?ELS12
+	SET	'COR,COR-256
+	JUMP	?CND8
+?ELS12:	SUB	C,128 >Z
+	LESS?	Z,0 /?ELS14
+	SET	'COR,COR-128
+	JUMP	?CND8
+?ELS14:	SUB	C,64 >Z
+	LESS?	Z,0 /?ELS16
+	SET	'COR,COR-64
+	JUMP	?CND8
+?ELS16:	SUB	C,32 >Z
+	LESS?	Z,0 /?ELS18
+	SET	'COR,COR-32
+	JUMP	?CND8
+?ELS18:	SUB	C,16 >Z
+	LESS?	Z,0 /?ELS20
+	SET	'COR,COR-16
+	JUMP	?CND8
+?ELS20:	SUB	C,8 >Z
+	LESS?	Z,0 /?ELS22
+	SET	'COR,COR-8
+	JUMP	?CND8
+?ELS22:	SUB	C,4 >Z
+	LESS?	Z,0 /?ELS24
+	SET	'COR,COR-4
+	JUMP	?CND8
+?ELS24:	SUB	C,2 >Z
+	LESS?	Z,0 /?ELS26
+	SET	'COR,COR-2
+	JUMP	?CND8
+?ELS26:	SUB	C,1 >Z
+	LESS?	Z,0 /?REP7
+	SET	'COR,COR-1
+?CND8:	CALL	CORRIDOR-CHECK,COR,ITM >VAL
+	ZERO?	FOUND \?CND31
+	SET	'FOUND,VAL
+?CND31:	SET	'C,Z
+	JUMP	?PRG6
+?REP7:	RETURN	FOUND
+
+
+	.FUNCT	CORRIDOR-CHECK,COR,ITM,CNT=2,PAST=0,FOUND=0,RM,OBJ
+?PRG1:	GET	COR,CNT >RM
+	ZERO?	RM /FALSE
+	EQUAL?	RM,HERE \?ELS7
+	SET	'PAST,1
+	JUMP	?CND3
+?ELS7:	FIRST?	RM >OBJ \?CND3
+?PRG10:	ZERO?	ITM /?ELS14
+	EQUAL?	OBJ,ITM \?CND12
+	GET	COR,PAST >FOUND
+	JUMP	?REP11
+?ELS14:	GETP	OBJ,P?CHARACTER
+	ZERO?	STACK /?CND12
+	CALL	IN-MOTION?,OBJ
+	ZERO?	STACK \?CND12
+	EQUAL?	OBJ,MCGINTY \?THN23
+	CALL	QUEUED?,I-MCGINTY-FOLLOWS
+	ZERO?	STACK /?THN23
+	EQUAL?	PRSA,V?FOLLOW,V?WALK /?CND12
+?THN23:	CALL	START-SENTENCE,OBJ
+	PRINTI	" is "
+	PRINTI	"off to "
+	GET	COR,PAST
+	CALL	DIR-PRINT,STACK
+	PRINTI	"."
+	CRLF	
+?CND12:	NEXT?	OBJ >OBJ /?KLU38
+?KLU38:	ZERO?	OBJ \?PRG10
+?REP11:	ZERO?	FOUND /?CND3
+	RETURN	FOUND
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+
+
+	.FUNCT	IN-MOTION?,PERSON,GT,?TMP1
+	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	GET	GT,GOAL-ENABLE
+	ZERO?	STACK \?THN8
+	GET	GT,ATTENTION
+	EQUAL?	STACK,1 \FALSE
+?THN8:	GET	GT,GOAL-S
+	ZERO?	STACK /FALSE
+	LOC	PERSON >?TMP1
+	GET	GT,GOAL-F
+	EQUAL?	?TMP1,STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	START-MOVEMENT
+	CALL	QUEUE,I-MCGINTY,1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-JOHNNY,1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-PETE,1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-WEASEL,1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-DELIVERY-BOY,1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-FOLLOW,-1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-ATTENTION,-1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-DISGUSTING-WEASEL-KLUDGE,35
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	IMOVEMENT,PERSON,INT,TB,VAR,DIS,TIM,ID,RM,GT,?TMP1
+	GETP	PERSON,P?CHARACTER >ID
+	GET	MOVEMENT-GOALS,ID >TB
+	GET	GOAL-TABLES,ID >GT
+	GET	TB,MG-ROOM >RM
+	EQUAL?	0,RM /?CND1
+	GET	GT,GOAL-QUEUED
+	ZERO?	STACK /?ELS6
+	PUT	GT,GOAL-QUEUED,RM
+	JUMP	?CND1
+?ELS6:	CALL	ESTABLISH-GOAL,PERSON,RM
+?CND1:	GET	TB,MG-TIME >TIM
+	EQUAL?	0,TIM /FALSE
+	GET	TB,MG-VARIATION >VAR
+	MUL	VAR,2
+	RANDOM	STACK >DIS
+	SUB	DIS,VAR
+	ADD	TIM,STACK
+	CALL	QUEUE,INT,STACK
+	ADD	TB,MG-LENGTH
+	PUT	MOVEMENT-GOALS,ID,STACK
+	GET	TB,MG-NEXT
+	EQUAL?	0,STACK /FALSE
+	GET	TB,MG-NEXT >?TMP1
+	SUB	VAR,DIS
+	ADD	?TMP1,STACK
+	PUT	TB,MG-NEXT,STACK
+	RFALSE	
+
+
+	.FUNCT	I-FOLLOW,FLG=0,CNT=0,GT,VAL
+?PRG1:	IGRTR?	'CNT,CHARACTER-MAX \?ELS5
+	RETURN	FLG
+?ELS5:	GET	GOAL-TABLES,CNT >GT
+	GET	GT,GOAL-S
+	ZERO?	STACK /?PRG1
+	GET	GT,GOAL-ENABLE
+	ZERO?	STACK \?THN10
+	GET	GT,ATTENTION
+	ZERO?	STACK \?PRG1
+?THN10:	PUT	GT,GOAL-ENABLE,TRUE-VALUE
+	GET	CHARACTER-TABLE,CNT
+	CALL	FOLLOW-GOAL,STACK >VAL
+	ZERO?	VAL /?PRG1
+	EQUAL?	FLG,M-FATAL /?PRG1
+	SET	'FLG,VAL
+	JUMP	?PRG1
+
+
+	.FUNCT	I-ATTENTION,FLG=0,CNT=0,ATT,GT
+?PRG1:	IGRTR?	'CNT,CHARACTER-MAX \?ELS5
+	RETURN	FLG
+?ELS5:	GET	GOAL-TABLES,CNT >GT
+	GET	GT,ATTENTION
+	SUB	STACK,1 >ATT
+	ZERO?	ATT \?CND3
+	PUT	GT,GOAL-ENABLE,TRUE-VALUE
+?CND3:	PUT	GT,ATTENTION,ATT
+	JUMP	?PRG1
+
+
+	.FUNCT	GRAB-ATTENTION,PERSON,CHR,GT,ATT
+	GETP	PERSON,P?CHARACTER >CHR
+	GET	GOAL-TABLES,CHR >GT
+	GET	GT,GOAL-S
+	ZERO?	STACK /?CND1
+	GET	GT,ATTENTION-SPAN >ATT
+	PUT	GT,ATTENTION,ATT
+	ZERO?	ATT \?ELS6
+	PUT	GT,GOAL-ENABLE,TRUE-VALUE
+	RFALSE	
+?ELS6:	GET	GT,GOAL-ENABLE
+	ZERO?	STACK /?CND1
+	PUT	GT,GOAL-ENABLE,FALSE-VALUE
+?CND1:	SET	'QCONTEXT,PERSON
+	SET	'QCONTEXT-ROOM,HERE
+	RTRUE	
+
+
+	.FUNCT	ESTABLISH-GOAL,PERSON,GOAL,PRIORITY=0,HERE,HL,GL,GT,?TMP1
+	LOC	PERSON >HERE
+	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	ZERO?	PRIORITY /?CND1
+	PUT	GT,GOAL-ENABLE,TRUE-VALUE
+	PUT	GT,GOAL-QUEUED,HERE
+?CND1:	GETP	HERE,P?LINE
+	MUL	STACK,12 >?TMP1
+	GETP	GOAL,P?LINE
+	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
+	LOC	PERSON
+	RSTACK	
+
+
+	.FUNCT	GOAL-REACHED,PERSON,GT
+	GETP	PERSON,P?CHARACTER
+	GET	GOAL-TABLES,STACK >GT
+	PUT	GT,GOAL-S,FALSE-VALUE
+	GET	GT,GOAL-FUNCTION
+	CALL	STACK,G-REACHED
+	RSTACK	
+
+
+	.FUNCT	MOVE-PERSON,PERSON,WHERE,DIR,GT,OL,COR,PCOR,CHR,PUSHCART,FLG=0,VAL=0,DF,CD
+	GETP	PERSON,P?CHARACTER >CHR
+	GET	GOAL-TABLES,CHR >GT
+	LOC	PERSON >OL
+	CALL	DIR-FROM,OL,WHERE >DIR
+	SET	'PUSHCART,STR?187
+	EQUAL?	OL,HERE \?ELS3
+	FSET?	PERSON,INVISIBLE /?ELS3
+	SET	'FLG,TRUE-VALUE
+	CALL	START-SENTENCE,PERSON
+	EQUAL?	DIR,P?OUT \?ELS8
+	PRINTI	" leaves the room"
+	EQUAL?	PERSON,DELIVERY-BOY \?CND11
+	PRINT	PUSHCART
+?CND11:	PRINTI	"."
+	CRLF	
+	JUMP	?CND1
+?ELS8:	EQUAL?	DIR,P?IN \?ELS19
+	PRINTI	" goes into another room"
+	PRINTI	"."
+	CRLF	
+	JUMP	?CND1
+?ELS19:	PRINTI	" heads "
+	GETP	HERE,P?LINE
+	LESS?	STACK,TRAWLER-LINE-C \?CND28
+	EQUAL?	DIR,P?UP,P?DOWN /?CND28
+	PRINTI	"off to "
+?CND28:	CALL	DIR-PRINT,DIR
+	EQUAL?	PERSON,DELIVERY-BOY \?CND35
+	PRINT	PUSHCART
+?CND35:	PRINTI	"."
+	CRLF	
+	JUMP	?CND1
+?ELS3:	EQUAL?	WHERE,HERE \?ELS43
+	FSET?	PERSON,INVISIBLE /?ELS43
+	SET	'FLG,M-FATAL
+	GET	GT,GOAL-F
+	EQUAL?	HERE,STACK /?CND1
+	CALL	START-SENTENCE,PERSON
+	PRINTI	" walks "
+	EQUAL?	PRSA,V?WALK \?ELS53
+	EQUAL?	WHERE,HERE \?ELS53
+	EQUAL?	OL,LAST-PLAYER-LOC \?ELS53
+	PRINTI	"along with"
+	JUMP	?CND51
+?ELS53:	PRINTI	"past"
+?CND51:	PRINTI	" you"
+	EQUAL?	PERSON,DELIVERY-BOY \?CND64
+	PRINT	PUSHCART
+?CND64:	PRINTI	"."
+	CRLF	
+	JUMP	?CND1
+?ELS43:	GETP	HERE,P?CORRIDOR >COR
+	ZERO?	COR /?CND1
+	FSET?	PERSON,INVISIBLE /?CND1
+	GETP	OL,P?CORRIDOR >PCOR
+	ZERO?	PCOR /?ELS77
+	BAND	COR,PCOR
+	ZERO?	STACK /?ELS77
+	SET	'FLG,TRUE-VALUE
+	GETP	WHERE,P?CORRIDOR
+	ZERO?	STACK \?ELS82
+	CALL	START-SENTENCE,PERSON
+	PRINTI	", off to "
+	CALL	COR-DIR,HERE,OL
+	CALL	DIR-PRINT,STACK
+	PRINTI	","
+	PRINTI	" leaves your view"
+	PRINTI	" to "
+	CALL	DIR-FROM,OL,WHERE
+	CALL	DIR-PRINT,STACK
+	EQUAL?	PERSON,DELIVERY-BOY \?CND91
+	PRINT	PUSHCART
+?CND91:	PRINTI	"."
+	CRLF	
+	JUMP	?CND75
+?ELS82:	GETP	WHERE,P?CORRIDOR
+	BAND	COR,STACK
+	ZERO?	STACK \?ELS99
+	CALL	START-SENTENCE,PERSON
+	PRINTI	", off to "
+	CALL	COR-DIR,HERE,OL
+	CALL	DIR-PRINT,STACK
+	PRINTI	", disappears from sight to "
+	CALL	DIR-FROM,OL,WHERE >PCOR
+	CALL	DIR-PRINT,PCOR
+	EQUAL?	PERSON,DELIVERY-BOY \?CND104
+	PRINT	PUSHCART
+?CND104:	PRINTI	"."
+	CRLF	
+	JUMP	?CND75
+?ELS99:	CALL	START-SENTENCE,PERSON
+	PRINTI	" is to "
+	CALL	COR-DIR,HERE,WHERE >CD
+	CALL	DIR-PRINT,CD
+	PRINTI	", heading "
+	CALL	DIR-FROM,OL,WHERE >DF
+	EQUAL?	CD,DF \?ELS119
+	PRINTI	"away from you"
+	JUMP	?CND117
+?ELS119:	PRINTI	"toward "
+	CALL	DIR-PRINT,DF
+?CND117:	EQUAL?	PERSON,DELIVERY-BOY \?CND126
+	PRINT	PUSHCART
+?CND126:	PRINTI	"."
+	CRLF	
+	JUMP	?CND75
+?ELS77:	GETP	WHERE,P?CORRIDOR >PCOR
+	ZERO?	PCOR /?CND1
+	BAND	COR,PCOR
+	ZERO?	STACK /?CND1
+	SET	'FLG,TRUE-VALUE
+	PRINTI	"To "
+	CALL	COR-DIR,HERE,WHERE
+	CALL	DIR-PRINT,STACK
+	PRINTI	" "
+	CALL	THE?,PERSON
+	CALL	DPRINT,PERSON
+	PRINTI	" comes into view from "
+	CALL	DIR-FROM,WHERE,OL
+	CALL	DIR-PRINT,STACK
+	EQUAL?	PERSON,DELIVERY-BOY \?CND143
+	PRINT	PUSHCART
+?CND143:	PRINTI	"."
+	CRLF	
+?CND75:	
+?CND1:	MOVE	PERSON,WHERE
+	GET	GT,GOAL-F
+	EQUAL?	STACK,WHERE \?ELS152
+	CALL	GOAL-REACHED,PERSON >VAL
+	ZERO?	VAL \?CND150
+	EQUAL?	HERE,WHERE \?CND150
+	FSET?	PERSON,INVISIBLE /?CND150
+	SET	'FLG,M-FATAL
+	CALL	START-SENTENCE,PERSON
+	PRINTI	" stops here."
+	CRLF	
+	JUMP	?CND150
+?ELS152:	GET	GT,GOAL-FUNCTION
+	CALL	STACK,G-ENROUTE
+?CND150:	EQUAL?	VAL,M-FATAL \?ELS166
+	RETURN	VAL
+?ELS166:	RETURN	FLG
+
+
+	.FUNCT	DIR-FROM,HERE,THERE,V=0,P=0,L,Z,O
+?PRG1:	NEXTP	HERE,P >P
+	ZERO?	P \?ELS5
+	RETURN	V
+?ELS5:	EQUAL?	P,P?IN,P?OUT \?ELS7
+	JUMP	?PRG1
+?ELS7:	LESS?	P,LOW-DIRECTION /?PRG1
+	GETPT	HERE,P >Z
+	PTSIZE	Z >L
+	EQUAL?	L,DEXIT,UEXIT,CEXIT \?ELS12
+	GETB	Z,REXIT
+	EQUAL?	STACK,THERE \?ELS12
+	EQUAL?	P,P?UP,P?DOWN \?ELS17
+	SET	'V,P
+	JUMP	?PRG1
+?ELS17:	RETURN	P
+?ELS12:	ZERO?	V \?PRG1
+	EQUAL?	L,FEXIT \?PRG1
+	SET	'V,P
+	JUMP	?PRG1
+
+	.ENDI
diff --git a/goal.zil b/goal.zil
new file mode 100644
index 0000000..908090b
--- /dev/null
+++ b/goal.zil
@@ -0,0 +1,746 @@
+"GOAL for
+			     TOA #2
+	Copyright 1984 Infocom, Inc.  All rights reserved.
+"
+
+"This code is the local T system."
+
+<GLOBAL DIR-STRINGS
+	<PTABLE  P?NORTH "north" P?SOUTH "south"
+		P?EAST "east" P?WEST "west"
+		P?NW "northwest" P?NE "northeast"
+		P?SW "southwest" P?SE "southeast"
+		P?DOWN "downstairs" P?UP "upstairs"
+		P?IN "in" P?OUT "out">>
+
+<GLOBAL NAUTICAL-DIR-STRINGS
+	<PTABLE  P?NORTH "forward" P?SOUTH "aft"
+		P?EAST "starboard" P?WEST "port"
+		P?NW "northwest" P?NE "northeast"
+		P?SW "southwest" P?SE "southeast"
+		P?DOWN "below" P?UP "above"
+		P?IN "in" P?OUT "out">>
+
+<ROUTINE DIR-PRINT (DIR "AUX" (CNT 0) TBL (DRY <>))
+	 #DECL ((DIR CNT) FIX)
+	 <COND (<NOT .DIR>
+		<TELL "out of view">
+		<RTRUE>)
+	       (<G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
+		<SET TBL ,NAUTICAL-DIR-STRINGS>)
+	       (T
+		<SET TBL ,DIR-STRINGS>
+		<SET DRY T>)>
+	 <REPEAT ()
+		 <COND (<==? <GET .TBL .CNT> .DIR>
+			<COND (<AND .DRY
+				    <NOT <EQUAL? .DIR ,P?UP ,P?DOWN>>>
+			       <TELL "the ">)>
+			<PRINT <GET .TBL <+ .CNT 1>>>
+			<RTRUE>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+"Rapid Transit Line Definitions and Identifiers"
+
+<CONSTANT ROAD-WHARF-LINE-C 0>
+<CONSTANT EAST-ROAD-LINE-C 1>
+<CONSTANT BEDROOM-LINE-C 2>
+<CONSTANT BACK-ALLEY-LINE-C 3>
+<CONSTANT TRAWLER-LINE-C 4>
+<CONSTANT SALVAGER-LINE-C 5>
+<CONSTANT UNDERWATER-LINE-C 6>
+
+<GLOBAL ROAD-WHARF-LINE
+	<PTABLE 0 WINDING-ROAD-1 P?SE
+	       P?NW WINDING-ROAD-2 P?NE
+	       P?SW WINDING-ROAD-3 P?NE
+	       P?SW WHARF-ROAD-1 P?EAST
+	       P?WEST WHARF-ROAD-2 P?EAST
+	       P?WEST WHARF-ROAD-3 P?NORTH
+	       P?SOUTH WHARF 0>>
+	       
+<GLOBAL EAST-ROAD-LINE
+	<PTABLE 0 WHARF-ROAD-4 P?EAST
+	       P?WEST WHARF-ROAD-5 P?SE
+	       P?NW OCEAN-ROAD-1 P?SOUTH
+	       P?NORTH OCEAN-ROAD-2 P?SOUTH
+	       P?NORTH OCEAN-ROAD-3 P?SW
+	       P?NE SHORE-ROAD-2 P?WEST
+	       P?EAST SHORE-ROAD-1 P?WEST
+	       P?EAST FERRY-LANDING 0>>
+
+<GLOBAL BEDROOM-LINE
+	<PTABLE 0 RED-BOAR-INN P?UP
+	       P?DOWN UPSTAIRS-HALLWAY P?SOUTH
+	       P?NORTH BEDROOM 0>>
+
+<GLOBAL BACK-ALLEY-LINE
+	<PTABLE 0 BACK-ALLEY-1 P?EAST
+	       P?WEST BACK-ALLEY-2 P?EAST
+	       P?WEST BACK-ALLEY-3 P?EAST
+	       P?WEST BACK-ALLEY-4 P?EAST
+	       P?WEST BACK-ALLEY-5 0>>
+
+<GLOBAL TRAWLER-LINE
+	<PTABLE 0 NW-PORT-DECK P?NE
+	       P?SW NW-FORE-DECK P?SE
+	       P?NW NW-STARBOARD-DECK P?SW
+	       P?NE NW-AFT-DECK P?DOWN
+	       P?UP NW-LOUNGE P?NORTH
+	       P?SOUTH NW-GALLEY P?NORTH
+	       P?SOUTH NW-CREW-QTRS 0>>
+
+<GLOBAL SALVAGER-LINE
+	<PTABLE 0 MM-STARBOARD-DECK P?NW
+	       P?SE MM-FORE-DECK P?SW
+	       P?NE MM-PORT-DECK P?SE
+	       P?NW MM-AFT-DECK P?DOWN
+	       P?UP MM-LOUNGE P?NORTH
+	       P?SOUTH MM-GALLEY P?NORTH
+	       P?SOUTH MM-CREW-QTRS 0>>
+
+<GLOBAL TRANSFER-TABLE
+	<PTABLE 0 0
+	       WHARF-ROAD-3 WHARF-ROAD-4
+	       WHARF-ROAD-1 RED-BOAR-INN
+	       WHARF-ROAD-3 WHARF-ROAD-4
+	       WHARF NW-STARBOARD-DECK
+	       WHARF MM-PORT-DECK
+
+	       WHARF-ROAD-4 WHARF-ROAD-3
+	       0 0
+	       WHARF-ROAD-4 WHARF-ROAD-3
+	       OCEAN-ROAD-1 BACK-ALLEY-5
+	       WHARF-ROAD-4 WHARF-ROAD-3
+	       WHARF-ROAD-4 WHARF-ROAD-3
+
+	       RED-BOAR-INN WHARF-ROAD-1
+	       RED-BOAR-INN WHARF-ROAD-1
+	       0 0
+	       RED-BOAR-INN WHARF-ROAD-1
+	       RED-BOAR-INN WHARF-ROAD-1
+	       RED-BOAR-INN WHARF-ROAD-1
+
+	       BACK-ALLEY-5 OCEAN-ROAD-1
+	       BACK-ALLEY-5 OCEAN-ROAD-1
+	       BACK-ALLEY-5 OCEAN-ROAD-1
+	       0 0
+	       BACK-ALLEY-5 OCEAN-ROAD-1
+	       BACK-ALLEY-5 OCEAN-ROAD-1
+
+	       NW-STARBOARD-DECK WHARF
+	       NW-STARBOARD-DECK WHARF
+	       NW-STARBOARD-DECK WHARF
+	       NW-STARBOARD-DECK WHARF
+	       0 0
+	       NW-STARBOARD-DECK WHARF
+
+	       MM-PORT-DECK WHARF
+	       MM-PORT-DECK WHARF
+	       MM-PORT-DECK WHARF
+	       MM-PORT-DECK WHARF
+	       MM-PORT-DECK WHARF
+	       0 0>>
+
+<GLOBAL COR-1
+	<PTABLE P?NW P?SE
+	       WINDING-ROAD-1 WINDING-ROAD-2 0>>
+
+<GLOBAL COR-2
+	<PTABLE P?SW P?NE
+	       WINDING-ROAD-2 WINDING-ROAD-3 WHARF-ROAD-1 0>>
+
+<GLOBAL COR-4
+	<PTABLE P?WEST P?EAST
+	       WHARF-ROAD-1 WHARF-ROAD-2 WHARF-ROAD-3 WHARF-ROAD-4
+	       WHARF-ROAD-5 0>>
+
+<GLOBAL COR-8
+	<PTABLE P?NW P?SE
+	       WHARF-ROAD-5 OCEAN-ROAD-1 0>>
+
+<GLOBAL COR-16
+	<PTABLE P?NORTH P?SOUTH
+	       OCEAN-ROAD-1 OCEAN-ROAD-2 OCEAN-ROAD-3 0>>
+
+<GLOBAL COR-32
+	<PTABLE P?NW P?SE
+	       OCEAN-ROAD-3 POINT-LOOKOUT 0>>
+
+<GLOBAL COR-64
+	<PTABLE P?SW P?NE
+	       SHORE-ROAD-2 OCEAN-ROAD-3 0>>
+
+<GLOBAL COR-128
+	<PTABLE P?WEST P?EAST
+	       FERRY-LANDING SHORE-ROAD-1 SHORE-ROAD-2 0>>
+
+<GLOBAL COR-256
+	<PTABLE P?NORTH P?SOUTH
+	       WHARF WHARF-ROAD-3 VACANT-LOT BACK-ALLEY-3 0>>
+
+<GLOBAL COR-512
+	<PTABLE P?WEST P?EAST
+	       BACK-ALLEY-1 BACK-ALLEY-2 BACK-ALLEY-3 BACK-ALLEY-4
+	       BACK-ALLEY-5 0>>
+
+;"up to 16 corridors (65536)"
+
+"CODE"
+
+<ROUTINE FOLLOW-GOAL (PERSON "AUX" (HERE <LOC .PERSON>) LINE LN RM GT GOAL FLG
+		      		   (GOAL-FLAG <>) (IGOAL <>) LOC (CNT 1) DIR)
+	 #DECL ((PERSON HERE LOC RM) OBJECT (LN CNT) FIX
+		(GOAL-FLAG) <OR ATOM FALSE>)
+	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
+	 <COND (<==? .HERE <GET .GT ,GOAL-F>>
+		<PUT .GT ,GOAL-S <>>
+		<RETURN <>>)
+	       (<NOT <GET .GT ,GOAL-ENABLE>> <RFALSE>)>
+	 <COND (<NOT <EQUAL? <SET LOC <GETP .HERE ,P?STATION>>
+			     .HERE>>
+		<RETURN <MOVE-PERSON .PERSON .LOC>>)>
+	 ;%<COND (<GASSIGNED? PREDGEN>
+		 '<>)
+		(T
+		 '<COND (<NOT <EQUAL? <SET LOC ,<GETP .HERE ,P?STATION>>
+				      .HERE>>
+			 <RETURN <MOVE-PERSON .PERSON .LOC>>)>)>
+	 <COND (<==? <SET GOAL <GET ,TRANSFER-TABLE
+				    <SET IGOAL <GET .GT ,GOAL-I>>>> 0>
+		<SET IGOAL <>>
+		<SET GOAL <GET .GT ,GOAL-S>>)>
+	 <COND (<NOT .GOAL> <RFALSE>)
+	       (<==? .HERE .GOAL>
+		<COND (.IGOAL
+		       <SET FLG <MOVE-PERSON .PERSON
+				             <GET ,TRANSFER-TABLE
+						  <+ .IGOAL 1>>>>
+		       <ESTABLISH-GOAL .PERSON <GET .GT ,GOAL-F>>
+		       <RETURN .FLG>)
+		      (<NOT <==? .HERE <GET .GT ,GOAL-F>>>
+		       <PUT .GT ,GOAL-S <>>
+		       <SET FLG <MOVE-PERSON .PERSON <GET .GT ,GOAL-F>>>
+		       <RETURN .FLG>)
+		      (T
+		       <PUT .GT ,GOAL-S <>>
+		       <RETURN <>>)>)>
+	 <SET LINE <GET-LINE <GETP .GOAL ,P?LINE>>>
+	 <REPEAT ()
+		 <COND (<==? <SET RM <GET .LINE .CNT>> .HERE>
+		        <COND (.GOAL-FLAG
+			       <SET LOC <GET .LINE <- .CNT 3>>>)
+			      (T
+			       <SET LOC <GET .LINE <+ .CNT 3>>>)>
+			<RETURN <MOVE-PERSON .PERSON .LOC>>)
+		       (<==? .RM .GOAL>
+			<SET GOAL-FLAG T>)>
+		 <SET CNT <+ .CNT 3>>>>
+
+<ROUTINE COR-DIR (HERE THERE "AUX" COR RM (PAST 0) (CNT 2))
+	 <SET COR <GET-COR <BAND <GETP .THERE ,P?CORRIDOR>
+				 <GETP .HERE ,P?CORRIDOR>>>>
+	 <REPEAT ()
+		 <COND (<==? <SET RM <GET .COR .CNT>> .HERE>
+			<SET PAST 1>
+			<RETURN>)
+		       (<==? .RM .THERE>
+			<RETURN>)>
+		 <SET CNT <+ .CNT 1>>>
+	 <GET .COR .PAST>>
+
+<ROUTINE GET-LINE (LN)
+	 <COND (<==? .LN 0> ,ROAD-WHARF-LINE)
+	       (<==? .LN 1> ,EAST-ROAD-LINE)
+	       (<==? .LN 2> ,BEDROOM-LINE)
+	       (<==? .LN 3> ,BACK-ALLEY-LINE)
+	       (<==? .LN 4> ,TRAWLER-LINE)
+	       (<==? .LN 5> ,SALVAGER-LINE)>>
+
+<ROUTINE GET-COR (NUM)
+	 #DECL ((NUM) FIX)
+	 <COND (<==? .NUM 1> ,COR-1)
+	       (<==? .NUM 2> ,COR-2)
+	       (<==? .NUM 4> ,COR-4)
+	       (<==? .NUM 8> ,COR-8)
+	       (<==? .NUM 16> ,COR-16)
+	       (<==? .NUM 32> ,COR-32)
+	       (<==? .NUM 64> ,COR-64)
+	       (<==? .NUM 128> ,COR-128)
+	       (<==? .NUM 256> ,COR-256)
+	       (T ,COR-512)>>
+
+"Goal tables for the 4 characters (plus delivery boy), offset by a constant,
+which, for a given character, is the P?CHARACTER property of the object."
+
+<GLOBAL GOAL-TABLES
+	<TABLE <TABLE <> <> <> 1 <> I-FOLLOW 5 5>
+	       <TABLE <> <> <> 1 <> I-MCGINTY 5 5>
+	       <TABLE <> <> <> 1 <> I-JOHNNY 5 5>
+	       <TABLE <> <> <> 1 <> I-PETE 5 5>
+	       <TABLE <> <> <> 1 <> I-WEASEL 5 5>
+	       <TABLE <> <> <> 1 <> I-DELIVERY-BOY 0 0>>>
+
+<CONSTANT CHARACTER-MAX 5>
+<CONSTANT MCGINTY-C 1>
+<CONSTANT JOHNNY-C 2>
+<CONSTANT PETE-C 3>
+<CONSTANT WEASEL-C 4>
+<CONSTANT DELIVERY-BOY-C 5>
+
+"Offsets into GOAL-TABLEs"
+
+<CONSTANT GOAL-F 0> ;"final goal"
+<CONSTANT GOAL-S 1> ;"station of final goal"
+<CONSTANT GOAL-I 2> ;"intermediate goal (transfer point)"
+<CONSTANT GOAL-ENABLE 3> ;"character can move; usually false only when he's
+			   interrupted enroute"
+<CONSTANT GOAL-QUEUED 4> ;"secondary goal to go to when current, higher-
+			   priority one has been reached"
+<CONSTANT GOAL-FUNCTION 5> ;"routine to apply on arrival"
+<CONSTANT ATTENTION-SPAN 6> ;"how long character will wait when interrupted"
+<CONSTANT ATTENTION 7> ;"used to count down from ATTENTION-SPAN to 0"
+
+"Goal-function constants, similar to M-xxx in MAIN"
+
+<CONSTANT G-REACHED 1>
+<CONSTANT G-ENROUTE 2>
+
+"Routines to do looking down corridors"
+
+<ROUTINE CORRIDOR-LOOK ("OPTIONAL" (ITM <>) "AUX" C Z COR VAL (FOUND <>))
+	 <COND (<SET C <GETP ,HERE ,P?CORRIDOR>>
+		<REPEAT ()
+			<COND ;(<NOT <L? <SET Z <- .C 1024>> 0>>
+			       <SET COR ,COR-1024>)
+			      (<NOT <L? <SET Z <- .C 512>> 0>>
+			       <SET COR ,COR-512>)
+			      (<NOT <L? <SET Z <- .C 256>> 0>>
+			       <SET COR ,COR-256>)
+			      (<NOT <L? <SET Z <- .C 128>> 0>>
+			       <SET COR ,COR-128>)
+			      (<NOT <L? <SET Z <- .C 64>> 0>>
+			       <SET COR ,COR-64>)
+			      (<NOT <L? <SET Z <- .C 32>> 0>>
+			       <SET COR ,COR-32>)
+			      (<NOT <L? <SET Z <- .C 16>> 0>>
+			       <SET COR ,COR-16>)
+			      (<NOT <L? <SET Z <- .C 8>> 0>>
+			       <SET COR ,COR-8>)
+			      (<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>>
+			<COND (<NOT .FOUND> <SET FOUND .VAL>)>
+			<SET C .Z>>
+		.FOUND)>>
+
+<ROUTINE CORRIDOR-CHECK (COR ITM "AUX" (CNT 2) (PAST 0) (FOUND <>) RM OBJ)
+	 <REPEAT ()
+		 <COND (<==? <SET RM <GET .COR .CNT>> 0>
+			<RFALSE>)
+		       (<==? .RM ,HERE> <SET PAST 1>)
+		       (<SET OBJ <FIRST? .RM>>
+			<REPEAT ()
+				<COND (.ITM
+				       <COND (<==? .OBJ .ITM>
+					      <SET FOUND <GET .COR .PAST>>
+					      <RETURN>)>)
+				      (<AND <GETP .OBJ ,P?CHARACTER>
+					    <NOT <IN-MOTION? .OBJ>>
+					    <OR <NOT <==? .OBJ ,MCGINTY>>
+						<NOT <QUEUED?
+						      I-MCGINTY-FOLLOWS>>
+						<NOT <VERB? WALK FOLLOW>>>>
+				       <START-SENTENCE .OBJ>
+				       <TELL " is ">
+				       ;<COND (<IN-MOTION? .OBJ>
+					      <TELL "in motion ">)>
+				       <TELL "off to ">
+				       <DIR-PRINT <GET .COR .PAST>>
+				       <TELL ".">
+				       <CRLF>)>
+				<SET OBJ <NEXT? .OBJ>>
+				<COND (<NOT .OBJ> <RETURN>)>>
+			<COND (.FOUND <RETURN .FOUND>)>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+<GLOBAL CHARACTER-TABLE <PTABLE PLAYER MCGINTY JOHNNY PETE WEASEL DELIVERY-BOY>>
+
+"Goal tables for the 6 characters (including PLAYER), offset
+by the preceding constants, which, for a given character,
+is the P?CHARACTER property of the object."
+
+"The ATTENTION-TABLE is now a thing of the past. ATTENTION
+in the GOAL-TABLES is used instead."
+
+"Here's how the movement goals are done:  For each player is
+a table which consists of triplets, a number of minutes until
+the next movement (an clock interrupt number), a number of
+minutes allowed variation (for a bit of randomness), and a
+room toward which to start. All movement is controlled by
+the GOAL-ENABLE flag in the GOAL-TABLE for a character."
+
+"Time starts at 8AM. Characters are at that point in their
+starting positions, as reflected in PEOPLE."
+
+<GLOBAL MOVEMENT-GOALS <TABLE
+	;"PLAYER"
+	<TABLE 0 0 0>
+	;"MCGINTY"
+	<TABLE 0
+	       58  2 SHANTY
+	       15  1 MCGINTY-HQ
+	       65  2 BANK
+	       16  5 OUTFITTERS-HQ
+	       30  3 MCGINTY-HQ
+	       75  5 SHANTY
+	       30  5 MCGINTY-HQ
+	       ;69  ;2 ;MM-FORE-DECK
+	       0>
+	;"JOHNNY"
+	<TABLE 0
+	       61  2 WINDING-ROAD-1
+	       75  5 SHANTY
+	       0>
+	;"PETE"
+	<TABLE 0
+	       72  2 WINDING-ROAD-1
+	       81  5 SHANTY
+	       197 5 MM-GALLEY
+	       0>
+	;"WEASEL"
+	<TABLE 0
+	       8   5 UPSTAIRS-HALLWAY
+	       58  2 WINDING-ROAD-1
+	       78  5 UPSTAIRS-HALLWAY
+	       85  1 FERRY-LANDING
+	       0>
+	;"DELIVERY-BOY"
+	<TABLE 0
+	       345 1 MM-LOCKER
+	       0>>>
+
+<GLOBAL WEASEL-RETIRES-TABLE
+	<TABLE 0
+	       5  1  BACK-ALLEY-5
+	       45 5  BANK
+	       10 5  FERRY-LANDING
+	       0>>
+
+<GLOBAL JOHNNY-CONTINUES-TABLE
+	<TABLE 0
+	       5  1  OUTFITTERS-HQ
+	       60 5  POINT-LOOKOUT
+	       25 1  SHANTY
+	       0>>
+
+<GLOBAL JOHNNY-COMPLETES-TABLE
+	<TABLE 0
+	       200 5 MM-CAPT-CABIN
+	       0>>
+
+<ROUTINE IN-MOTION? (PERSON "AUX" GT)
+	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
+	 <COND (<AND <OR <GET .GT ,GOAL-ENABLE>
+			 <==? <GET .GT ,ATTENTION> 1>>
+		     <GET .GT ,GOAL-S>
+		     <NOT <==? <LOC .PERSON> <GET .GT ,GOAL-F>>>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<ROUTINE START-MOVEMENT ()
+	 <ENABLE <QUEUE I-MCGINTY 1>>
+	 <ENABLE <QUEUE I-JOHNNY 1>>
+	 <ENABLE <QUEUE I-PETE 1>>
+	 <ENABLE <QUEUE I-WEASEL 1>>
+	 <ENABLE <QUEUE I-DELIVERY-BOY 1>>
+	 <ENABLE <QUEUE I-FOLLOW -1>>
+	 <ENABLE <QUEUE I-ATTENTION -1>>
+	 <ENABLE <QUEUE I-DISGUSTING-WEASEL-KLUDGE 35>>>
+
+"This routine does the interrupt-driven goal establishment
+for the various characters, using the MOVEMENT-GOALS table."
+
+<CONSTANT MG-ROOM 0>
+<CONSTANT MG-TIME 1>
+<CONSTANT MG-VARIATION 2>
+<CONSTANT MG-LENGTH <* 3 2>>
+<CONSTANT MG-NEXT 4>
+
+<ROUTINE IMOVEMENT (PERSON INT "AUX" TB VAR DIS TIM ID RM GT)
+	 #DECL ((PERSON) OBJECT (TB) <PRIMTYPE VECTOR> (ID VAR DIS TIM) FIX)
+	 <SET TB <GET ,MOVEMENT-GOALS <SET ID <GETP .PERSON ,P?CHARACTER>>>>
+	 <SET GT <GET ,GOAL-TABLES .ID>>
+	 <COND (<NOT <==? 0 <SET RM <GET .TB ,MG-ROOM>>>>
+		<COND (<GET .GT ,GOAL-QUEUED>
+		       <PUT .GT ,GOAL-QUEUED .RM>)
+		      (T
+		       <ESTABLISH-GOAL .PERSON .RM>)>)>
+	 <COND (<NOT <==? 0 <SET TIM <GET .TB ,MG-TIME>>>>
+		<SET VAR <GET .TB ,MG-VARIATION>>
+		<SET DIS <RANDOM <* .VAR 2>>>
+	        <QUEUE .INT <+ .TIM <- .DIS .VAR>>>
+		<PUT ,MOVEMENT-GOALS .ID <REST .TB ,MG-LENGTH>>
+		<COND (<NOT <==? 0 <GET .TB ,MG-NEXT>>>
+		       <PUT .TB
+			    ,MG-NEXT
+			    <+ <GET .TB ,MG-NEXT> <- .VAR .DIS>>>)>)>
+	 <RFALSE>>
+
+<ROUTINE I-FOLLOW ("AUX" (FLG <>) (CNT 0) GT VAL)
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> ,CHARACTER-MAX>
+			<RETURN>)
+		       (<AND <GET <SET GT <GET ,GOAL-TABLES .CNT>> ,GOAL-S>
+			     <OR <GET .GT ,GOAL-ENABLE>
+				 <0? <GET .GT ,ATTENTION>>>>
+			<PUT .GT ,GOAL-ENABLE T>
+			<COND (<SET VAL
+				    <FOLLOW-GOAL <GET ,CHARACTER-TABLE .CNT>>>
+			       <COND (<NOT <==? .FLG ,M-FATAL>>
+				      <SET FLG .VAL>)>)>)>>
+	 .FLG>
+
+<ROUTINE I-ATTENTION ("AUX" (FLG <>) (CNT 0) ATT GT)
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> ,CHARACTER-MAX> <RETURN>)
+	       	       (<0? <SET ATT <- <GET
+					  <SET GT <GET ,GOAL-TABLES .CNT>>
+					  ,ATTENTION> 1>>>
+			<PUT .GT ,GOAL-ENABLE T>)
+		       ;(<==? <SET ATT <- <GET
+					  <SET GT <GET ,GOAL-TABLES .CNT>>
+					  ,ATTENTION> 1>> 1>
+			<COND (<AND <IN? <GET ,CHARACTER-TABLE .CNT> ,HERE>
+				    <NOT ,ASLEEP?>>
+			       <START-SENTENCE <GET ,CHARACTER-TABLE .CNT>>
+			       <TELL " is acting impatient." CR>
+			       <SET FLG T>)>)
+		       ;(<==? .ATT 0>
+			<PUT .GT ,GOAL-ENABLE T>)>
+		 <PUT .GT ,ATTENTION .ATT>>
+	 .FLG>
+
+<ROUTINE GRAB-ATTENTION (PERSON "AUX" (CHR<GETP .PERSON ,P?CHARACTER>) GT ATT)
+	 #DECL ((PERSON) OBJECT (ATT) FIX)
+	 <SET GT <GET ,GOAL-TABLES .CHR>>
+	 <COND (<GET .GT ,GOAL-S>
+		<PUT .GT ,ATTENTION <SET ATT <GET .GT ,ATTENTION-SPAN>>>
+		<COND (<==? .ATT 0>
+		       <PUT .GT ,GOAL-ENABLE T>
+		       <RFALSE>)
+		      (<GET .GT ,GOAL-ENABLE>
+		       <PUT .GT ,GOAL-ENABLE <>>)>)>
+	 <SETG QCONTEXT .PERSON>
+	 <SETG QCONTEXT-ROOM ,HERE>
+	 <RTRUE>>
+
+"Movement etc."
+
+;<ROUTINE UNPRIORITIZE (PERSON "AUX" GT)
+	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
+	 <COND (<GET .GT ,GOAL-QUEUED>
+		<ESTABLISH-GOAL .PERSON <GET .GT ,GOAL-QUEUED>>
+		<PUT .GT ,GOAL-QUEUED <>>)>>
+
+<ROUTINE ESTABLISH-GOAL (PERSON GOAL "OPTIONAL" (PRIORITY <>)
+			 	     "AUX" (HERE <LOC .PERSON>) HL GL GT)
+	 #DECL ((PERSON GOAL HERE) OBJECT (HL GL) FIX
+		(PRIORITY) <OR FALSE ATOM>)
+	 ;<COND (<==? .HERE .GOAL>
+		<RETURN .HERE>)>
+	 <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
+	 <COND (.PRIORITY
+		<PUT .GT ,GOAL-ENABLE T>
+		<PUT .GT ,GOAL-QUEUED .HERE>)>
+	 <PUT .GT ,GOAL-I <+ <* <GETP .HERE ,P?LINE> 12>
+			     <* <GETP .GOAL ,P?LINE> 2>>>
+	 <PUT .GT
+	      ,GOAL-S
+	      <GETP .GOAL ,P?STATION>
+	      ;%<COND (<GASSIGNED? PREDGEN> '<>)
+		     (T			  ',<GETP .GOAL ,P?STATION>)>>
+	 <PUT .GT ,GOAL-F .GOAL>
+	 <LOC .PERSON>>
+
+<ROUTINE GOAL-REACHED (PERSON "AUX" GT)
+	 #DECL ((PERSON) OBJECT)
+	 <PUT <SET GT <GET ,GOAL-TABLES <GETP .PERSON ,P?CHARACTER>>>
+	      ,GOAL-S <>>
+	 <APPLY <GET .GT ,GOAL-FUNCTION>
+		,G-REACHED>>
+
+<ROUTINE MOVE-PERSON (PERSON WHERE "AUX" DIR GT OL COR PCOR CHR PUSHCART
+		      			 (FLG <>) ;DR (VAL <>) DF CD)
+	 #DECL ((PERSON WHERE) OBJECT)
+	 <SET GT <GET ,GOAL-TABLES <SET CHR <GETP .PERSON ,P?CHARACTER>>>>
+	 <SET OL <LOC .PERSON>>
+	 <SET DIR <DIR-FROM .OL .WHERE>>
+	 <SET PUSHCART ", pushing his cart">
+	 ;<COND (<==? <PTSIZE <SET DR <GETPT .OL .DIR>>> ,DEXIT>
+		<SET DR <GETB .DR ,DEXITOBJ>>
+		<COND (<NOT <FSET? .DR ,OPENBIT>>
+		       <FSET .DR ,OPENBIT>
+		       ;<COND (<NOT <FSET? .DR ,LOCKED>> <FSET .DR ,OPENBIT>)>)
+		      (T <SET DR <>>)>)
+	       (T <SET DR <>>)>
+	 <COND (<AND <==? .OL ,HERE>
+		     <NOT <FSET? .PERSON ,INVISIBLE>>>
+		<SET FLG T>
+		<START-SENTENCE .PERSON>
+		<COND (<==? .DIR ,P?OUT>
+		       <TELL " leaves the room">
+		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
+		       <TELL "." CR>)
+		      (<==? .DIR ,P?IN>
+		       ;<COND (.DR
+			      <TELL " opens the " D .DR " and">)>
+		       <TELL " goes into another room">
+		       ;<COND (<AND .DR
+				   <FSET? .DR ,LOCKED>>
+			      ;<FCLEAR .DR ,OPENBIT>
+			      <TELL ", locking the door again">)>
+		       <TELL "." CR>)
+		      (T
+		       ;<COND (.DR
+			      <TELL " opens the " D .DR " and">)>
+		       <TELL " heads ">
+		       <COND (<AND <L? <GETP ,HERE ,P?LINE> ,TRAWLER-LINE-C>
+				   <NOT <EQUAL? .DIR ,P?UP ,P?DOWN>>>
+			      <TELL "off to ">)>
+		       <DIR-PRINT .DIR>
+		       ;<COND (<AND .DR
+				   <FSET? .DR ,LOCKED>>
+			      ;<FCLEAR .DR ,OPENBIT>
+			      <TELL ", locking the door again">)>
+		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
+		       <TELL "." CR>)>)
+	       (<AND <==? .WHERE ,HERE>
+		     <NOT <FSET? .PERSON ,INVISIBLE>>>
+		<SET FLG ,M-FATAL>
+		<COND (<NOT <==? ,HERE <GET .GT ,GOAL-F>>>
+		       <START-SENTENCE .PERSON>
+		       <TELL " walks ">
+		       <COND (<AND <VERB? WALK>
+				   <==? .WHERE ,HERE>
+				   <==? .OL ,LAST-PLAYER-LOC>>
+			      <TELL "along with">)
+			     (T <TELL "past">)>
+		       <TELL " you">
+		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
+		       <TELL "." CR>)>)
+	       (<AND <SET COR <GETP ,HERE ,P?CORRIDOR>>
+		     <NOT <FSET? .PERSON ,INVISIBLE>>>
+		<COND (<AND <SET PCOR <GETP .OL ,P?CORRIDOR>>
+			    <NOT <==? <BAND .COR .PCOR> 0>>>
+		       <SET FLG T>
+		       <COND (<NOT <GETP .WHERE ,P?CORRIDOR>>
+			      <START-SENTENCE .PERSON>
+			      <TELL ", off to ">
+			      <DIR-PRINT <COR-DIR ,HERE .OL>>
+			      <TELL ",">
+			      ;<COND (.DR
+				     <TELL " opens a door and">)>
+			      <TELL " leaves your view">
+			      <TELL " to ">
+			      <DIR-PRINT <DIR-FROM .OL .WHERE>>
+			      ;<COND (<AND .DR
+					  <FSET? .DR ,LOCKED>>
+				     ;<FCLEAR .DR ,OPENBIT>
+				     <TELL ", locking the door again">)>
+			      <COND (<==? .PERSON ,DELIVERY-BOY>
+				     <TELL .PUSHCART>)>
+			      <TELL "." CR>)
+			     (<0? <BAND .COR <GETP .WHERE ,P?CORRIDOR>>>
+			      <START-SENTENCE .PERSON>
+			      <TELL ", off to ">
+			      <DIR-PRINT <COR-DIR ,HERE .OL>>
+			      <TELL ", disappears from sight to ">
+			      <DIR-PRINT <SET PCOR <DIR-FROM .OL .WHERE>>>
+			      <COND (<==? .PERSON ,DELIVERY-BOY>
+				     <TELL .PUSHCART>)>
+			      <TELL "." CR>)
+			     (T
+			      <START-SENTENCE .PERSON>
+			      <TELL " is to ">
+			      <DIR-PRINT <SET CD <COR-DIR ,HERE .WHERE>>>
+			      <TELL ", heading ">
+			      <COND (<==? .CD <SET DF <DIR-FROM .OL .WHERE>>>
+				     <TELL "away from you">)
+				    (T
+				     <TELL "toward ">
+			      	     <DIR-PRINT .DF>)>
+			      <COND (<==? .PERSON ,DELIVERY-BOY>
+				     <TELL .PUSHCART>)>
+			      <TELL "." CR>)>)
+		      (<AND <SET PCOR <GETP .WHERE ,P?CORRIDOR>>
+			    <NOT <==? <BAND .COR .PCOR> 0>>>
+		       <SET FLG T>
+		       <TELL "To ">
+		       <DIR-PRINT <COR-DIR ,HERE .WHERE>>
+		       <TELL " ">
+		       <THE? .PERSON>
+		       <TELL D .PERSON " comes into view from ">
+		       <DIR-PRINT <DIR-FROM .WHERE .OL>>
+		       <COND (<==? .PERSON ,DELIVERY-BOY> <TELL .PUSHCART>)>
+		       <TELL "." CR>)>)>
+	 ;<WHERE-UPDATE .PERSON .FLG>
+	 <MOVE .PERSON .WHERE>
+	 <COND (<==? <GET .GT ,GOAL-F> .WHERE>
+		<COND (<AND <NOT <SET VAL <GOAL-REACHED .PERSON>>>
+			    <==? ,HERE .WHERE>
+			    <NOT <FSET? .PERSON ,INVISIBLE>>>
+		       <SET FLG ,M-FATAL>
+		       <START-SENTENCE .PERSON>
+		       <TELL " stops here." CR>)>)
+	       (T <APPLY <GET .GT ,GOAL-FUNCTION> ,G-ENROUTE>)>
+	;<COND (,DEBUG
+	       <TELL "[">
+	       <START-SENTENCE .PERSON>
+	       <TELL " just went into ">
+	       <THE? .WHERE>
+	       <TELL D .WHERE ".]" CR>)>
+	 <COND (<==? .VAL ,M-FATAL> .VAL)
+	       (T .FLG)>>
+
+<ROUTINE DIR-FROM (HERE THERE "AUX" (V <>) (P 0) L Z O)
+	 #DECL ((HERE THERE O) OBJECT (P L) FIX)
+ <REPEAT ()
+	 <COND (<0? <SET P <NEXTP .HERE .P>>>
+		<RETURN .V>)
+	       (<EQUAL? .P ,P?IN ,P?OUT> T)
+	       (<NOT <L? .P ,LOW-DIRECTION>>
+		<SET Z <GETPT .HERE .P>>
+		<SET L <PTSIZE .Z>>
+		<COND (<AND <EQUAL? .L ,DEXIT ,UEXIT ,CEXIT>
+			    <==? <GETB .Z ,REXIT> .THERE>>
+		       <COND (<EQUAL? .P ,P?UP ,P?DOWN>
+			      <SET V .P>)
+			     (T <RETURN .P>)>)
+		      (<AND <NOT .V>
+			    <EQUAL? .L ,FEXIT>>
+		       <SET V .P>)>)>>>
+
+;<ROUTINE WHERE-UPDATE (PERSON "OPTIONAL" (FLG <>) "AUX" WT NC (CNT 0))
+	 <SET NC <GETP .PERSON ,P?CHARACTER>>
+	 <SET WT <GET ,WHERE-TABLES .NC>>
+	 <REPEAT ()
+		 <COND (<G? .CNT ,CHARACTER-MAX> <RETURN>)
+		       (<==? .CNT .NC>)
+		       (<OR <AND <0? .CNT> .FLG>
+			    <IN? <GET ,CHARACTER-TABLE .CNT> <LOC .PERSON>>>
+			<PUT .WT .CNT ,PRESENT-TIME>
+			<PUT <GET ,WHERE-TABLES .CNT> .NC ,PRESENT-TIME>)>
+		 <SET CNT <+ .CNT 1>>>>
+
+;<GLOBAL WHERE-TABLES
+        <TABLE <TABLE 0 0 0 0 0>
+	       <TABLE 0 0 0 0 0>
+	       <TABLE 0 0 0 0 0>
+	       <TABLE 0 0 0 0 0>
+	       <TABLE 0 0 0 0 0>>>
\ No newline at end of file
diff --git a/island.zap b/island.zap
new file mode 100644
index 0000000..beb0120
--- /dev/null
+++ b/island.zap
@@ -0,0 +1,1670 @@
+
+
+	.FUNCT	WINDING-ROAD-1-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	PUTP	LOCKED-DOOR,P?SDESC,STR?190
+	EQUAL?	MEETINGS-COMPLETED,1 \FALSE
+	GRTR?	PRESENT-TIME,585 \?ELS15
+	CALL	ALL-GO-HOME
+	CALL	I-PLOT-NEVER-STARTS
+	SET	'SM-CTR,4
+	RETURN	SM-CTR
+?ELS15:	CALL	QUEUE,I-SECOND-MEETING,-1
+	PUT	STACK,0,1
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?WALK \FALSE
+	GRTR?	SM-CTR,0 \FALSE
+	LESS?	SM-CTR,4 \FALSE
+	GRTR?	HOW-HUNGRY,3 \?ELS36
+	PRINTI	"Johnny looks at you. ""If you can't keep in shape, we don't want you. One word to anyone and you're a goner."" He then lets you pass..."
+	CRLF	
+	CRLF	
+	SET	'SM-CTR,4
+	RFALSE	
+?ELS36:	PRINTR	"Johnny blocks you. ""What's the hurry, matey?"""
+
+
+	.FUNCT	WINDING-ROAD-2-F,RARG
+	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?THROUGH,V?BOARD \FALSE
+	EQUAL?	PRSO,PSEUDO-OBJECT \FALSE
+	PRINTR	"After trying to get a foothold, you give up."
+
+
+	.FUNCT	SWAMP-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?193
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?SMELL \FALSE
+	PRINTR	"It smells awful."
+
+
+	.FUNCT	WHARF-ROAD-2-S,PRINT?=1
+	ZERO?	PRINT? /FALSE
+	ZERO?	BUSINESS-HOURS? /?ELS7
+	IN?	MCGINTY,MCGINTY-HQ \?ELS7
+	RETURN	MCGINTY-HQ
+?ELS7:	CALL	DPRINT,MCGINTY
+	PRINTI	"'s is closed."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	FRONT-DOOR-F,OPEN?=0
+	EQUAL?	HERE,RED-BOAR-INN,WHARF-ROAD-1,WHARF-ROAD-5 /?THN4
+	EQUAL?	HERE,SHANTY \?ELS3
+?THN4:	SET	'OPEN?,TRUE-VALUE
+	JUMP	?CND1
+?ELS3:	ZERO?	BUSINESS-HOURS? /?CND1
+	EQUAL?	HERE,WHARF-ROAD-4,OUTFITTERS-HQ,BANK /?THN12
+	EQUAL?	HERE,SHORE-ROAD-2 \?ELS11
+?THN12:	SET	'OPEN?,TRUE-VALUE
+	JUMP	?CND1
+?ELS11:	IN?	MCGINTY,MCGINTY-HQ \?CND1
+	SET	'OPEN?,TRUE-VALUE
+?CND1:	EQUAL?	PRSA,V?EXAMINE \?ELS20
+	PRINTI	"The door is "
+	ZERO?	OPEN? /?ELS25
+	PRINTI	"open"
+	JUMP	?CND23
+?ELS25:	PRINTI	"closed"
+?CND23:	PRINTR	"."
+?ELS20:	EQUAL?	PRSA,V?OPEN \?ELS36
+	ZERO?	OPEN? /?ELS41
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS41:	EQUAL?	HERE,MCGINTY-HQ \?ELS44
+	CALL	TELL-BLOWS,STR?26
+	RSTACK	
+?ELS44:	PRINTR	"It's locked."
+?ELS36:	EQUAL?	PRSA,V?UNLOCK \?ELS50
+	EQUAL?	HERE,MCGINTY-HQ,OUTFITTERS-HQ,SHANTY /?THN56
+	EQUAL?	HERE,BANK,RED-BOAR-INN \?ELS55
+?THN56:	CALL	TELL-DONT-HAVE,STR?197
+	RSTACK	
+?ELS55:	CALL	TELL-NO-KEY
+	RSTACK	
+?ELS50:	EQUAL?	PRSA,V?CLOSE \FALSE
+	ZERO?	OPEN? /?ELS66
+	CALL	TELL-BLOWS,STR?25
+	RSTACK	
+?ELS66:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+
+
+	.FUNCT	TELL-BLOWS,STR
+	PRINTI	"It blows back "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	SHORE-ROAD-2-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is the east end of the "
+	CALL	DPRINT,SHORE-ROAD-1
+	PRINTI	", an east/west road with a ferry landing at its west end. The "
+	CALL	DPRINT,BANK
+	PRINTI	", the island's only bank, is off to the north. The "
+	CALL	DPRINT,OCEAN-ROAD-1
+	PRINTR	" starts up to the northeast."
+
+
+	.FUNCT	BACK-ALLEY-1-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	PUTP	LOCKED-DOOR,P?SDESC,STR?211
+	RTRUE	
+
+
+	.FUNCT	BACK-ALLEY-2-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	PUTP	LOCKED-DOOR,P?SDESC,STR?211
+	RTRUE	
+
+
+	.FUNCT	BACK-ALLEY-2-N,PRINT?=1
+	ZERO?	PRINT? /FALSE
+	FSET?	BACK-WINDOW,OPENBIT \?ELS7
+	IN?	MCGINTY,BACK-ALLEY-1 /?THN13
+	IN?	MCGINTY,BACK-ALLEY-2 /?THN13
+	IN?	MCGINTY,BACK-ALLEY-3 \?ELS12
+?THN13:	CALL	JIGS-UP,STR?213
+	RSTACK	
+?ELS12:	CALL	TELL-THRU-WINDOW
+	IN?	MCGINTY,MCGINTY-HQ \?CND17
+	SET	'MCGINTY-HQ-OCCUPIED,TRUE-VALUE
+	RETURN	MCGINTY-HQ
+?CND17:	RETURN	MCGINTY-HQ
+?ELS7:	PRINTI	"The door is locked."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	BACK-WINDOW-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	IN?	PLAYER,MCGINTY-HQ \?ELS10
+	CALL	TELL-YOU-CANT,STR?214
+	RSTACK	
+?ELS10:	FSET?	BACK-WINDOW,OPENBIT \?ELS12
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS12:	FSET	BACK-WINDOW,OPENBIT
+	PRINTR	"You open it enough to fit through it."
+?ELS5:	EQUAL?	PRSA,V?CLOSE \?ELS18
+	FSET?	BACK-WINDOW,OPENBIT \?ELS23
+	FCLEAR	BACK-WINDOW,OPENBIT
+	PRINTR	"You close the window."
+?ELS23:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS18:	EQUAL?	PRSA,V?BOARD,V?THROUGH \?ELS29
+	FSET?	BACK-WINDOW,OPENBIT \?ELS32
+	IN?	PLAYER,MCGINTY-HQ \?ELS35
+	CALL	DO-WALK,P?SOUTH
+	RTRUE	
+?ELS35:	CALL	DO-WALK,P?NORTH
+	RTRUE	
+?ELS32:	CALL	TELL-CLOSED,STR?215
+	RTRUE	
+?ELS29:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS41
+	PRINTI	"You see "
+	IN?	PLAYER,MCGINTY-HQ \?ELS46
+	PRINTI	"the back alley"
+	JUMP	?CND44
+?ELS46:	IN?	MCGINTY,MCGINTY-HQ \?ELS50
+	CALL	DPRINT,MCGINTY
+	PRINTI	" sitting at his desk"
+	JUMP	?CND44
+?ELS50:	CALL	DPRINT,MCGINTY
+	PRINTI	"'s office"
+?CND44:	PRINTR	"."
+?ELS41:	EQUAL?	PRSA,V?UNLOCK \FALSE
+	PRINTR	"It doesn't seem to be locked."
+
+
+	.FUNCT	LOCKED-DOOR-F,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?190
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?OPEN \?ELS7
+	PRINTR	"It's locked."
+?ELS7:	EQUAL?	PRSA,V?UNLOCK \?ELS11
+	CALL	TELL-NO-KEY
+	RSTACK	
+?ELS11:	EQUAL?	PRSA,V?EXAMINE,V?READ \?ELS13
+	EQUAL?	HERE,WINDING-ROAD-1 \?ELS18
+	PRINTI	"The lettering on the door reads:
+"
+	CALL	FIXED-FONT-ON
+	PRINTI	"    ""This "
+	CALL	DPRINT,LIGHTHOUSE
+	PRINTI	" is part of
+             CUTTHROATS
+    an Infocom Tale of Adventure
+ by Michael Berlyn and Jerry Wolper
+        (c)1984 Infocom, Inc."""
+	CRLF	
+	CALL	FIXED-FONT-OFF
+	RTRUE	
+?ELS18:	EQUAL?	PRSA,V?READ \?ELS24
+	CALL	V-READ
+	RSTACK	
+?ELS24:	CALL	TELL-CLOSED,STR?216
+	RSTACK	
+?ELS13:	EQUAL?	PRSA,V?MUNG \?ELS28
+	PRINTR	"The door and lock withstand your attempts."
+?ELS28:	EQUAL?	PRSA,V?KNOCK \?ELS32
+	CALL	TELL-NO-ANSWER
+	RSTACK	
+?ELS32:	EQUAL?	PRSA,V?CLOSE \?ELS34
+	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS34:	EQUAL?	PRSA,V?LOCK \FALSE
+	CALL	TELL-ALREADY,STR?38
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-ANSWER
+	PRINTR	"You wait a minute, but there's no answer."
+
+
+	.FUNCT	BACK-ALLEY-4-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	PUTP	LOCKED-DOOR,P?SDESC,STR?211
+	RTRUE	
+
+
+	.FUNCT	BACK-ALLEY-5-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	PUTP	LOCKED-DOOR,P?SDESC,STR?211
+	RTRUE	
+
+
+	.FUNCT	RED-BOAR-INN-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	MOVE	SPEAR-CARRIER,RED-BOAR-INN
+	PUTP	SPEAR-CARRIER,P?SDESC,STR?221
+	PUTP	SPEAR-CARRIER,P?LDESC,STR?222
+	PUTP	GLOBAL-SURFACE,P?SDESC,STR?20
+	CALL	MOVE-SHARED-OBJECTS,RED-BOAR-INN
+	RFALSE	
+
+
+	.FUNCT	MAIL-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?223
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?ASK-CONTEXT-FOR,V?ASK-FOR /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,PSEUDO-OBJECT
+	RETURN	2
+
+
+	.FUNCT	MESSAGE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?224
+	RTRUE	
+?ELS5:	CALL	MAIL-PSEUDO
+	RSTACK	
+
+
+	.FUNCT	BEDROOM-F,RARG
+	EQUAL?	RARG,M-FLASH \?ELS5
+	IN?	WEASEL,BEDROOM \?ELS10
+	EQUAL?	PRSA,V?LOOK /?ELS10
+	CALL	JIGS-UP,STR?228
+	RSTACK	
+?ELS10:	ZERO?	BEDROOM-MESSAGE /FALSE
+	PRINT	BEDROOM-MESSAGE
+	CRLF	
+	SET	'BEDROOM-MESSAGE,FALSE-VALUE
+	RETURN	BEDROOM-MESSAGE
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?TAKE \FALSE
+	EQUAL?	PRSO,PSEUDO-OBJECT \FALSE
+	CALL	TELL-CLOTHES
+	RSTACK	
+
+
+	.FUNCT	BEDROOM-W,PRINT?=1
+	ZERO?	PRINT? /FALSE
+	PRINTI	"It's not a walk-in closet."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	BED-F,RARG=0
+	EQUAL?	RARG,M-BEG \?ELS5
+	ZERO?	PRSO /?ELS10
+	IN?	PRSO,PLAYER /FALSE
+	IN?	PRSO,BED /FALSE
+	EQUAL?	PRSO,GLOBAL-ROOM /FALSE
+	EQUAL?	PRSA,V?DROP \?ELS10
+	EQUAL?	PRSO,BED /FALSE
+?ELS10:	EQUAL?	PRSA,V?EXAMINE \?ELS18
+	EQUAL?	PRSO,CLOSET,BUREAU /FALSE
+?ELS18:	CALL	BED-VERB?
+	ZERO?	STACK \FALSE
+	PRINTI	"You should get out of bed first."
+	CRLF	
+	RETURN	2
+?ELS5:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?BOARD \FALSE
+	FIRST?	BED /?THN36
+	CALL	WEARING-SOMETHING?
+	ZERO?	STACK /FALSE
+?THN36:	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+
+
+	.FUNCT	BED-VERB?
+	EQUAL?	PRSA,V?DIAGNOSE,V?SUPER-BRIEF,V?BRIEF /TRUE
+	EQUAL?	PRSA,V?QUIT,V?INVENTORY,V?VERBOSE /TRUE
+	EQUAL?	PRSA,V?SAVE,V?RESTORE,V?RESTART /TRUE
+	EQUAL?	PRSA,V?VERSION,V?$VERIFY,V?SCORE /TRUE
+	EQUAL?	PRSA,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT,V?AGAIN /TRUE
+	EQUAL?	PRSA,V?BREATHE,V?ASK-CONTEXT-FOR,V?ASK-FOR /TRUE
+	EQUAL?	PRSA,V?FIND,V?CALL,V?$CALL /TRUE
+	EQUAL?	PRSA,V?CURSES,V?COUNT,V?CHOMP /TRUE
+	EQUAL?	PRSA,V?HELLO,V?GOODBYE,V?DISEMBARK /TRUE
+	EQUAL?	PRSA,V?LATITUDE,V?ALARM,V?HELP /TRUE
+	EQUAL?	PRSA,V?LOOK,V?LISTEN,V?LONGITUDE /TRUE
+	EQUAL?	PRSA,V?MAYBE,V?CHASTISE,V?LOOK-INSIDE /TRUE
+	EQUAL?	PRSA,V?MUMBLE,V?NO,V?YES /TRUE
+	EQUAL?	PRSA,V?SIT,V?SCRIPT,V?PRAY /TRUE
+	EQUAL?	PRSA,V?SMELL,V?UNSCRIPT,V?SIT-ON /TRUE
+	EQUAL?	PRSA,V?TELL,V?STAY,V?STAND /TRUE
+	EQUAL?	PRSA,V?TIME,V?SLEEP,V?SAY /TRUE
+	EQUAL?	PRSA,V?WAVE-AT,V?WAIT-FOR,V?WAIT /TRUE
+	EQUAL?	PRSA,V?WHAT,V?YELL,V?WIN \FALSE
+	RTRUE	
+
+
+	.FUNCT	BUREAU-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	FSET?	BUREAU,OPENBIT \?ELS10
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS10:	FSET	BUREAU,OPENBIT
+	PRINTI	"Opening the "
+	CALL	DPRINT,BUREAU
+	PRINTI	" reveals "
+	CALL	TELL-BUREAU-CONTENTS
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?CLOSE \?ELS16
+	FSET?	BUREAU,OPENBIT \?ELS21
+	FCLEAR	BUREAU,OPENBIT
+	PRINTR	"Closed."
+?ELS21:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS16:	EQUAL?	PRSA,V?PUT-ON \?ELS27
+	EQUAL?	PRSI,BUREAU \?ELS27
+	CALL	IDROP
+	ZERO?	STACK /TRUE
+	PRINTR	"It slides off onto the floor."
+?ELS27:	EQUAL?	PRSA,V?EXAMINE \?ELS36
+	PRINTI	"It's a tilted old wooden "
+	CALL	DPRINT,BUREAU
+	FSET?	BUREAU,OPENBIT \?ELS43
+	FIRST?	BUREAU \?ELS48
+	PRINTI	". In addition to your clothes, you find "
+	CALL	PRINT-CONTENTS,BUREAU
+	PRINTR	" inside."
+?ELS48:	PRINTR	". Your clothes are in it."
+?ELS43:	PRINTR	", which is closed."
+?ELS36:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	FSET?	BUREAU,OPENBIT \FALSE
+	PRINTI	"The "
+	CALL	DPRINT,BUREAU
+	PRINTI	" contains "
+	CALL	TELL-BUREAU-CONTENTS
+	RSTACK	
+
+
+	.FUNCT	TELL-BUREAU-CONTENTS
+	FIRST?	BUREAU \?ELS3
+	CALL	PRINT-CONTENTS,BUREAU
+	PRINTI	", as well as"
+	JUMP	?CND1
+?ELS3:	PRINTI	"nothing but"
+?CND1:	PRINTR	" your clothes."
+
+
+	.FUNCT	PASSBOOK-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	FSET?	PASSBOOK,RMUNGBIT \?ELS10
+	CALL	TELL-SOGGY
+	RSTACK	
+?ELS10:	PRINTI	"This is a distinctive "
+	CALL	DPRINT,BANK
+	PRINTI	" passbook"
+	IN?	PASSBOOK,MCGINTY /?CND15
+	IN?	PASSBOOK,WEASEL /?CND15
+	PRINTI	" which shows a balance of $"
+	PRINTN	PASSBOOK-BALANCE
+	PRINTI	". The last date stamped in it is "
+	PRINT	STUPID-PROBLEM-STRING
+?CND15:	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?OPEN,V?READ \?ELS25
+	IN?	PASSBOOK,WEASEL /?THN31
+	IN?	PASSBOOK,MCGINTY \?ELS30
+?THN31:	LOC	PASSBOOK
+	CALL	START-SENTENCE,STACK
+	PRINTR	" has it."
+?ELS30:	CALL	PERFORM,V?EXAMINE,PASSBOOK
+	RTRUE	
+?ELS25:	EQUAL?	PRSA,V?CLOSE \FALSE
+	PRINTR	"It's closed."
+
+
+	.FUNCT	KEY-F
+	EQUAL?	PRSA,V?LOCK \?ELS5
+	EQUAL?	PRSO,BEDROOM-DOOR \?ELS5
+	ZERO?	BEDROOM-DOOR-LOCKED /?ELS12
+	CALL	TELL-ALREADY,STR?38
+	RTRUE	
+?ELS12:	FSET?	BEDROOM-DOOR,OPENBIT \?ELS15
+	PRINTR	"You should close it first."
+?ELS15:	SET	'BEDROOM-DOOR-LOCKED,TRUE-VALUE
+	CALL	TELL-NOW,BEDROOM-DOOR,STR?38
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?UNLOCK \?ELS21
+	EQUAL?	PRSO,BEDROOM-DOOR \?ELS21
+	ZERO?	BEDROOM-DOOR-LOCKED \?ELS28
+	CALL	TELL-ALREADY,STR?27
+	RTRUE	
+?ELS28:	SET	'BEDROOM-DOOR-LOCKED,FALSE-VALUE
+	CALL	TELL-NOW,BEDROOM-DOOR,STR?27
+	RTRUE	
+?ELS21:	EQUAL?	PRSA,V?OPEN \FALSE
+	EQUAL?	PRSO,BEDROOM-DOOR \FALSE
+	CALL	PERFORM,V?UNLOCK,BEDROOM-DOOR,KEY
+	CALL	PERFORM,V?OPEN,BEDROOM-DOOR
+	RTRUE	
+
+
+	.FUNCT	NOTE-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	FSET?	NOTE,RMUNGBIT \FALSE
+	CALL	TELL-SOGGY
+	RSTACK	
+
+
+	.FUNCT	BOOK-F
+	FSET?	BOOK,RMUNGBIT \?ELS5
+	EQUAL?	PRSA,V?EXAMINE,V?READ,V?OPEN \?ELS5
+	CALL	TELL-SOGGY
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	CALL	PERFORM,V?READ,BOOK
+	RTRUE	
+
+
+	.FUNCT	CLOTHES-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?3
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?DISEMBARK,V?WEAR \FALSE
+	CALL	TELL-CLOTHES
+	RSTACK	
+
+
+	.FUNCT	TELL-CLOTHES
+	PRINTR	"What you have on now is fine."
+
+
+	.FUNCT	CLOSET-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC /TRUE
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS7
+	PRINTR	"The closet has no door."
+?ELS7:	EQUAL?	PRSA,V?EXAMINE \?ELS11
+	PRINTI	"It looks as if the door was torn off its hinges a long time ago. "
+	RFALSE	
+?ELS11:	EQUAL?	PRSA,V?BOARD,V?THROUGH \FALSE
+	CALL	BEDROOM-W
+	RTRUE	
+
+
+	.FUNCT	WET-SUIT-F
+	EQUAL?	PRSA,V?DISEMBARK,V?THROW,V?DROP \?ELS5
+	FSET?	AIR-TANK,WORNBIT /?THN8
+	FSET?	FLIPPERS,WORNBIT /?THN8
+	FSET?	MASK,WORNBIT \?ELS5
+?THN8:	CALL	TELL-YOU-CANT,STR?236
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?WEAR \FALSE
+	FSET?	DEEP-SUIT,WORNBIT \FALSE
+	CALL	TELL-YOU-CANT,STR?237,FALSE-VALUE
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	"."
+
+
+	.FUNCT	FLIPPERS-F
+	EQUAL?	PRSA,V?WEAR \FALSE
+	FSET?	WET-SUIT,WORNBIT /FALSE
+	FSET?	DEEP-SUIT,WORNBIT \?ELS12
+	PRINTI	"They don't fit with the "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	"."
+?ELS12:	PRINTI	"The "
+	CALL	DPRINT,WET-SUIT
+	PRINTR	" won't fit over them."
+
+
+	.FUNCT	MASK-F
+	EQUAL?	PRSA,V?WEAR \?ELS5
+	FSET?	WET-SUIT,WORNBIT /FALSE
+	FSET?	DEEP-SUIT,WORNBIT \?ELS12
+	PRINTI	"It won't fit over the "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	"'s hood."
+?ELS12:	PRINTI	"You couldn't fit the "
+	CALL	DPRINT,WET-SUIT
+	PRINTR	" over it."
+?ELS5:	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \FALSE
+	FSET?	MASK,WORNBIT \FALSE
+	EQUAL?	PRSA,V?DISEMBARK,V?THROW,V?DROP \FALSE
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK \FALSE
+	CALL	JIGS-UP,STR?238
+	RSTACK	
+
+
+	.FUNCT	AIR-TANK-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"This double tank made of aluminum is designed to fit over a "
+	CALL	DPRINT,WET-SUIT
+	PRINTI	". Its gauge is currently at "
+	GRTR?	AIR-LEFT,150 \?ELS10
+	PRINTI	"full"
+	JUMP	?CND8
+?ELS10:	GRTR?	AIR-LEFT,100 \?ELS14
+	PRINTI	"fairly full"
+	JUMP	?CND8
+?ELS14:	GRTR?	AIR-LEFT,50 \?ELS18
+	PRINTI	"medium"
+	JUMP	?CND8
+?ELS18:	GRTR?	AIR-LEFT,15 \?ELS22
+	PRINTI	"almost empty"
+	JUMP	?CND8
+?ELS22:	PRINTI	"empty"
+?CND8:	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?FILL \?ELS32
+	EQUAL?	PRSI,COMPRESSOR /?THN38
+	EQUAL?	PRSI,AIR \?ELS37
+	IN?	COMPRESSOR,HERE \?ELS37
+?THN38:	GETP	COMPRESSOR,P?NORTH
+	GRTR?	STACK,0 \?ELS46
+	PRINTR	"The salesman tells you to rent the compressor first."
+?ELS46:	FSET?	AIR-TANK,WORNBIT \?ELS50
+	CALL	TELL-CONTORT
+	RSTACK	
+?ELS50:	SET	'AIR-LEFT,160
+	CALL	TELL-NOW,AIR-TANK,STR?239
+	RSTACK	
+?ELS37:	EQUAL?	PRSI,MM-COMPRESSOR \?ELS54
+	PRINTR	"There's no way to get air from this compressor to the tank."
+?ELS54:	EQUAL?	PRSI,AIR \FALSE
+	PRINTR	"The right compressor would probably help."
+?ELS32:	EQUAL?	PRSA,V?EMPTY \?ELS62
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS67
+	CALL	JIGS-UP,STR?240
+	RSTACK	
+?ELS67:	ZERO?	AIR-LEFT \?ELS69
+	CALL	TELL-ALREADY,STR?131
+	RSTACK	
+?ELS69:	SET	'AIR-LEFT,0
+	CALL	TELL-NOW,AIR-TANK,STR?131
+	RSTACK	
+?ELS62:	EQUAL?	PRSA,V?WEAR \?ELS73
+	FSET?	WET-SUIT,WORNBIT /FALSE
+	FSET?	DEEP-SUIT,WORNBIT \?ELS80
+	PRINTI	"This tank can't be worn with a "
+	CALL	DPRINT,DEEP-SUIT
+	PRINTR	"."
+?ELS80:	PRINTI	"This tank should be worn outside a "
+	CALL	DPRINT,WET-SUIT
+	PRINTR	"."
+?ELS73:	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \FALSE
+	EQUAL?	PRSA,V?THROW,V?DROP \FALSE
+	FSET?	DEEP-SUIT,WORNBIT /FALSE
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK \FALSE
+	CALL	JIGS-UP,STR?241
+	RSTACK	
+
+
+	.FUNCT	MCGINTY-HQ-F,RARG,DEST
+	EQUAL?	RARG,M-ENTER \?ELS5
+	PUTP	LOCKED-DOOR,P?SDESC,STR?211
+	PUTP	GLOBAL-SURFACE,P?SDESC,STR?243
+	CALL	MOVE-SHARED-OBJECTS,MCGINTY-HQ
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-FLASH \?ELS7
+	ZERO?	MCGINTY-HQ-OCCUPIED /?ELS12
+	IN?	PASSBOOK,PLAYER /?CND14
+	CALL	MCGINTY-F,M-OBJDESC
+	CRLF	
+?CND14:	CALL	JIGS-UP,STR?244
+	RSTACK	
+?ELS12:	IN?	MCGINTY,MCGINTY-HQ \FALSE
+	GET	GOAL-TABLES,MCGINTY-C
+	GET	STACK,GOAL-S >DEST
+	ZERO?	DEST /FALSE
+	EQUAL?	DEST,WHARF-ROAD-2 /FALSE
+	CALL	MCGINTY-ERRAND
+	RSTACK	
+?ELS7:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSO,GLOBAL-SURFACE \FALSE
+	EQUAL?	PRSA,V?OPEN \?ELS32
+	PRINTR	"It's locked."
+?ELS32:	EQUAL?	PRSA,V?UNLOCK \?ELS36
+	CALL	TELL-NO-KEY
+	RSTACK	
+?ELS36:	EQUAL?	PRSA,V?CLOSE \FALSE
+	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+
+
+	.FUNCT	MCGINTY-HQ-S,PRINT?=1
+	FSET?	BACK-WINDOW,OPENBIT \?ELS5
+	CALL	TELL-THRU-WINDOW
+	RETURN	BACK-ALLEY-2
+?ELS5:	EQUAL?	PRSO,WINDOW \?ELS7
+	ZERO?	PRINT? /FALSE
+	CALL	TELL-CLOSED,STR?215
+	RFALSE	
+?ELS7:	ZERO?	PRINT? /FALSE
+	PRINTI	"The door is locked."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	TELL-THRU-WINDOW
+	PRINTI	"You climb through the open window..."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	MCGINTY-CHAIR-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?245
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?PUT-ON \?ELS7
+	PRINTR	"It's too lopsided."
+?ELS7:	EQUAL?	PRSA,V?SIT-ON,V?CLIMB-ON \?ELS11
+	CALL	TELL-WHY-BOTHER
+	RSTACK	
+?ELS11:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's an impressively beat-up chair."
+
+
+	.FUNCT	STUBS-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTR	"The floor is littered with stubs from cheap cigars."
+?ELS5:	EQUAL?	PRSA,V?SMELL \?ELS9
+	PRINTR	"The aroma is reminiscent of burning tires."
+?ELS9:	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"You think twice and realize you don't want to carry a used cigar."
+
+
+	.FUNCT	ENVELOPE-F,L
+	EQUAL?	PRSA,V?LOOK-UNDER,V?TAKE,V?OPEN \?ELS5
+	EQUAL?	HERE,MCGINTY-HQ \?ELS5
+	IN?	MCGINTY,MCGINTY-HQ \?ELS5
+	IN?	ENVELOPE,PLAYER /?ELS5
+	CALL	DPRINT,MCGINTY
+	PRINTR	" squeals angrily. ""Keep your hands off of my private papers!"""
+?ELS5:	EQUAL?	PRSA,V?TAKE \?ELS11
+	IN?	WEASEL,HERE \?ELS11
+	CALL	WEASEL-BEATS-YOU
+	RSTACK	
+?ELS11:	IN?	ENVELOPE,UNDER-BUNK \?ELS15
+	EQUAL?	PRSA,V?ASK-ABOUT,V?TELL,V?TAKE /?ELS15
+	PRINTR	"It's hidden under the mattress."
+?ELS15:	IN?	ENVELOPE,PLAYER /?ELS21
+	LOC	ENVELOPE >L
+	FSET?	L,PERSON \?ELS21
+	EQUAL?	PRSA,V?OPEN \?ELS21
+	CALL	START-SENTENCE,L
+	PRINTR	" tells you to keep your hands off it."
+?ELS21:	FSET?	ENVELOPE,RMUNGBIT \FALSE
+	EQUAL?	PRSA,V?EXAMINE \?ELS32
+	PRINTI	"It's a soggy "
+	CALL	DPRINT,ENVELOPE
+	PRINTR	"."
+?ELS32:	EQUAL?	PRSA,V?READ \FALSE
+	CALL	TELL-SOGGY
+	RSTACK	
+
+
+	.FUNCT	OUTFITTERS-HQ-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	MOVE	SPEAR-CARRIER,OUTFITTERS-HQ
+	PUTP	SPEAR-CARRIER,P?SDESC,STR?251
+	PUTP	SPEAR-CARRIER,P?LDESC,STR?252
+	PUTP	GLOBAL-SURFACE,P?SDESC,STR?20
+	CALL	MOVE-SHARED-OBJECTS,OUTFITTERS-HQ
+	CALL	QUEUED?,I-EQUIP
+	ZERO?	STACK /FALSE
+	IN?	MCGINTY,OUTFITTERS-HQ /FALSE
+	SET	'I-WAIT-DURATION,9
+	SET	'I-WAIT-RTN,I-EQUIP
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PSEUDO-OBJECT,PRSO,PRSI \?ELS17
+	CALL	MERCHANDISE-PSEUDO
+	RSTACK	
+?ELS17:	EQUAL?	PRSO,SALVAGER,TRAWLER \?ELS19
+	EQUAL?	PRSA,V?RENT \?ELS24
+	ZERO?	JOHNNY-MADE-DEAL /?ELS29
+	EQUAL?	SHIP-CHOSEN,PRSO \?ELS29
+	PRINTR	"""Johnny already took care of that."""
+?ELS29:	CALL	TELL-YOU-CANT,STR?253
+	RSTACK	
+?ELS24:	EQUAL?	PRSA,V?ASK-ABOUT,V?FIND,V?BUY /FALSE
+	EQUAL?	PRSA,V?ASK-CONTEXT-ABOUT /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,PRSO
+	RSTACK	
+?ELS19:	EQUAL?	PRSI,SALVAGER,TRAWLER \?ELS43
+	EQUAL?	PRSA,V?TELL,V?ASK-ABOUT /FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,PRSI
+	RSTACK	
+?ELS43:	EQUAL?	PRSA,V?RENT,V?BUY \?ELS52
+	ZERO?	AMT-OWED /?ELS52
+	PRINTI	"The salesman looks sorry. ""I can't sell you anything until you pay the $"
+	PRINTN	AMT-OWED
+	PRINTI	" of "
+	CALL	DPRINT,JOHNNY
+	PRINTR	"'s."""
+?ELS52:	EQUAL?	PRSA,V?TAKE \?ELS58
+	GETP	PRSO,P?NORTH
+	EQUAL?	STACK,-1 \?ELS58
+	ZERO?	JOHNNY-MADE-DEAL /?ELS58
+	ZERO?	DELIVERY-MADE \?ELS58
+	IN?	PRSO,PLAYER /?ELS58
+	PRINTR	"The salesman says, ""Don't bother. It'll be delivered to the ship."""
+?ELS58:	EQUAL?	PRSA,V?LAMP-ON,V?OPEN \FALSE
+	GETP	PRSO,P?NORTH
+	GRTR?	STACK,0 \FALSE
+	PRINTR	"The salesman stops you. ""You want to play with it, you buy it."""
+
+
+	.FUNCT	MERCHANDISE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?254
+	RTRUE	
+?ELS5:	CALL	TELL-REFER-INDIVIDUAL,STR?255
+	RETURN	2
+
+
+	.FUNCT	OUT-OF-STOCK-F
+	EQUAL?	PRSA,V?BUY \?ELS5
+	PRINTI	"The salesman checks and says, "
+	CALL	TELL-WERE-OUT
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS9
+	EQUAL?	HERE,OUTFITTERS-HQ \FALSE
+	CALL	TELL-WERE-OUT
+	RSTACK	
+?ELS9:	EQUAL?	PRSO,SPEAR-GUN /?THN17
+	EQUAL?	PRSI,SPEAR-GUN \?ELS16
+?THN17:	CALL	GLOBAL-NOT-HERE-PRINT,SPEAR-GUN
+	RSTACK	
+?ELS16:	EQUAL?	PRSO,COMPASS /?THN21
+	EQUAL?	PRSI,COMPASS \?ELS20
+?THN21:	CALL	GLOBAL-NOT-HERE-PRINT,COMPASS
+	RSTACK	
+?ELS20:	CALL	GLOBAL-NOT-HERE-PRINT,WINCH
+	RSTACK	
+
+
+	.FUNCT	TELL-WERE-OUT
+	PRINTR	"""We're out of those. Try next week."""
+
+
+	.FUNCT	DRY-CELL-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The "
+	FSET?	DRY-CELL,RMUNGBIT \?CND8
+	PRINTI	"corroded "
+?CND8:	CALL	DPRINT,DRY-CELL
+	PRINTI	" reads "
+	RFALSE	
+
+
+	.FUNCT	NET-F
+	EQUAL?	PRSA,V?THROW-OFF,V?PUT-ON \FALSE
+	EQUAL?	PRSO,NET \FALSE
+	MOVE	NET,HERE
+	PRINTR	"It slides off."
+
+
+	.FUNCT	BATTERY-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The "
+	FSET?	BATTERY,RMUNGBIT \?ELS10
+	PRINTI	"corroded"
+	JUMP	?CND8
+?ELS10:	PRINTI	"standard"
+?CND8:	PRINTI	" battery reads "
+	RFALSE	
+
+
+	.FUNCT	TUBE-F
+	EQUAL?	PRSA,V?PUT \?ELS5
+	EQUAL?	PRSI,TUBE \?ELS5
+	PRINTR	"The tube refuses to accept anything."
+?ELS5:	EQUAL?	PRSA,V?PUT-ON,V?PUT \?ELS11
+	EQUAL?	PRSI,GLASS-CASE \?ELS11
+	FSET?	TUBE,OPENBIT \?ELS11
+	IN?	PUTTY,TUBE \?ELS11
+	CALL	PERFORM,V?PUT-ON,PUTTY,GLASS-CASE
+	RTRUE	
+?ELS11:	EQUAL?	PRSA,V?SQUEEZE \FALSE
+	FSET?	PRSO,OPENBIT \?ELS20
+	IN?	PUTTY,PRSO \?ELS20
+	MOVE	PUTTY,WINNER
+	PRINTR	"You are now holding some putty."
+?ELS20:	FSET?	PRSO,OPENBIT \?ELS26
+	PRINTR	"The tube is apparently empty."
+?ELS26:	CALL	TELL-CLOSED,STR?260
+	RSTACK	
+
+
+	.FUNCT	PUTTY-F
+	CALL	COMPILER-SUCKS-EXP
+	ZERO?	STACK /?ELS5
+	IN?	PUTTY,GLASS-CASE \?ELS10
+	CALL	TELL-IN-CRACK
+	RSTACK	
+?ELS10:	MOVE	PUTTY,GLASS-CASE
+	CALL	INT,I-CASE-LEAK
+	PUT	STACK,0,0
+	PRINTI	"The putty seals the crack"
+	IN?	HOLE-1,GLASS-CASE /?THN18
+	IN?	HOLE-2,GLASS-CASE \?ELS17
+?THN18:	PRINTI	" and hole"
+	JUMP	?CND15
+?ELS17:	SET	'NO-HOLE-PLUGGED,TRUE-VALUE
+?CND15:	PRINTI	" in the "
+	CALL	DPRINT,GLASS-CASE
+	PRINTR	"."
+?ELS5:	IN?	PUTTY,GLASS-CASE \?ELS27
+	EQUAL?	PRSA,V?FIND,V?EXAMINE /?ELS27
+	CALL	TELL-IN-CRACK
+	RSTACK	
+?ELS27:	EQUAL?	PRSA,V?OIL \?ELS35
+	EQUAL?	PRSI,PUTTY /?THN32
+?ELS35:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,PUTTY \FALSE
+?THN32:	EQUAL?	PRSI,TUBE \?ELS42
+	CALL	TELL-YOU-CANT,STR?261
+	RSTACK	
+?ELS42:	PRINTR	"It isn't a lubricant."
+
+
+	.FUNCT	COMPILER-SUCKS-EXP
+	EQUAL?	PRSA,V?PUT-ON,V?PUT \?ELS5
+	EQUAL?	PRSI,GLASS-CASE /TRUE
+	EQUAL?	PRSI,HOLE-1 \?ELS11
+	IN?	HOLE-1,GLASS-CASE /TRUE
+?ELS11:	EQUAL?	PRSI,HOLE-2 \?ELS5
+	IN?	HOLE-2,GLASS-CASE /TRUE
+?ELS5:	EQUAL?	PRSA,V?PLUG,V?FILL \FALSE
+	EQUAL?	PRSO,GLASS-CASE /TRUE
+	EQUAL?	PRSO,HOLE-1 \?ELS21
+	IN?	HOLE-1,GLASS-CASE /TRUE
+?ELS21:	EQUAL?	PRSO,HOLE-2 \FALSE
+	IN?	HOLE-2,GLASS-CASE \FALSE
+	RTRUE	
+
+
+	.FUNCT	TELL-IN-CRACK
+	PRINTR	"The putty is already set in the crack."
+
+
+	.FUNCT	INFIDEL-BOX-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTR	"This is state-of-the-art electronic equipment that automatically determines longitude and latitude when its button is pressed."
+?ELS5:	EQUAL?	PRSA,V?PUSH \FALSE
+	PRINTR	"Nothing happens, probably because you're indoors."
+
+
+	.FUNCT	DIVING-BOOK-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	FSET?	DIVING-BOOK,RMUNGBIT \?ELS10
+	CALL	TELL-SOGGY
+	RSTACK	
+?ELS10:	PRINTR	"This book is ""Everything About Diving"" by Fritz Zamboni."
+?ELS5:	EQUAL?	PRSA,V?OPEN,V?READ \FALSE
+	FSET?	DIVING-BOOK,RMUNGBIT \?ELS21
+	CALL	TELL-SOGGY
+	RSTACK	
+?ELS21:	PRINTR	"It says nothing you don't already know."
+
+
+	.FUNCT	TELL-SOGGY
+	PRINTR	"It's too soggy."
+
+
+	.FUNCT	MAGNET-F,RARG=0,F,N,OBJ
+	EQUAL?	RARG,M-CONT \?ELS5
+	EQUAL?	PRSA,V?WEAR,V?TAKE \?ELS10
+	EQUAL?	PRSO,MINE /?ELS10
+	ZERO?	MAGNET-ON /?ELS10
+	PRINTR	"The magnet's stronger than you are."
+?ELS10:	EQUAL?	PRSA,V?THROW,V?DROP \FALSE
+	PRINTR	"It's stuck to the magnet."
+?ELS5:	EQUAL?	RARG,M-OBJDESC \?ELS20
+	PRINTI	"There is a "
+	CALL	DPRINT,MAGNET
+	PRINTI	" here."
+	CRLF	
+	FIRST?	MAGNET >F \TRUE
+	EQUAL?	F,MINE /TRUE /?ELS30
+	PRINTI	"Attached to the magnet "
+	NEXT?	F \?ELS36
+	PRINTI	"are"
+	JUMP	?CND34
+?ELS36:	PRINTI	"is"
+?CND34:	PRINTI	" "
+	CALL	PRINT-CONTENTS,MAGNET
+	PRINTR	"."
+?ELS30:	CALL	DESCRIBE-OBJECT,F,TRUE-VALUE,0
+	RTRUE	
+?ELS20:	EQUAL?	PRSA,V?EXAMINE \?ELS50
+	ZERO?	MAGNET-ON /?ELS55
+	FIRST?	MAGNET \?ELS55
+	PRINTI	"The "
+	CALL	DPRINT,MAGNET
+	PRINTI	" is on and has "
+	CALL	PRINT-CONTENTS,MAGNET
+	PRINTI	" attached to it."
+	CRLF	
+	SET	'P-IT-OBJECT,MAGNET
+	RETURN	P-IT-OBJECT
+?ELS55:	PRINTI	"The "
+	CALL	DPRINT,MAGNET
+	PRINTI	" has a switch which is currently "
+	ZERO?	MAGNET-ON /?ELS68
+	PRINTI	"on"
+	JUMP	?CND66
+?ELS68:	PRINTI	"off"
+?CND66:	PRINTR	"."
+?ELS50:	EQUAL?	PRSA,V?LAMP-ON \?ELS79
+	ZERO?	MAGNET-ON /?ELS84
+	CALL	TELL-ALREADY,STR?56
+	RSTACK	
+?ELS84:	SET	'MAGNET-ON,TRUE-VALUE
+	CALL	TELL-NOW,MAGNET,STR?56
+	CALL	ATTRACTION
+	RSTACK	
+?ELS79:	EQUAL?	PRSA,V?LAMP-OFF \?ELS89
+	ZERO?	MAGNET-ON /?ELS94
+	SET	'MAGNET-ON,FALSE-VALUE
+	CALL	TELL-NOW,MAGNET,STR?263,FALSE-VALUE
+	FIRST?	MAGNET >F \?CND96
+	CALL	TELL-ALL-FALL
+?PRG99:	ZERO?	F \?CND101
+	JUMP	?CND96
+?CND101:	NEXT?	F >N /?KLU170
+?KLU170:	MOVE	F,HERE
+	EQUAL?	F,MINE \?CND104
+	FSET	MINE,RMUNGBIT
+	CRLF	
+	PRINTI	"The mine drifts harmlessly into a corner."
+?CND104:	SET	'F,N
+	JUMP	?PRG99
+?CND96:	CRLF	
+	RTRUE	
+?ELS94:	CALL	TELL-ALREADY,STR?264
+	RSTACK	
+?ELS89:	EQUAL?	PRSA,V?THROW,V?DROP \?ELS112
+	IN?	MINE,MAGNET \?ELS117
+	ZERO?	MAGNET-ON /?ELS120
+	FSET	MINE,RMUNGBIT
+	RFALSE	
+?ELS120:	MOVE	MINE,HERE
+	RFALSE	
+?ELS117:	ZERO?	MAGNET-ON \FALSE
+	CALL	CLEAR-MAGNET
+	RFALSE	
+?ELS112:	EQUAL?	PRSA,V?TAKE \?ELS127
+	EQUAL?	PRSO,MAGNET \?ELS127
+	IN?	MINE,MAGNET \FALSE
+	CALL	BOOM
+	RSTACK	
+?ELS127:	EQUAL?	PRSA,V?PUT-AGAINST,V?PUT-ON \?ELS140
+	EQUAL?	PRSO,MAGNET \?ELS140
+	SET	'OBJ,PRSI
+	ZERO?	OBJ \?THN137
+?ELS140:	EQUAL?	PRSA,V?RUB \FALSE
+	EQUAL?	PRSI,MAGNET \FALSE
+	SET	'OBJ,PRSO
+	ZERO?	OBJ /FALSE
+?THN137:	FSET?	OBJ,SURFACEBIT \?ELS147
+	CALL	CLEAR-MAGNET
+	RFALSE	
+?ELS147:	ZERO?	MAGNET-ON \?THN150
+	EQUAL?	OBJ,ME /?THN150
+	GETP	OBJ,P?CHARACTER
+	ZERO?	STACK /?ELS149
+?THN150:	CALL	TELL-WHY-BOTHER
+	RSTACK	
+?ELS149:	IN?	OBJ,PLAYER \?ELS153
+	PRINTI	"The magnet is touching "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+?ELS153:	FIRST?	MAGNET >F \?CND160
+	MOVE	F,HERE
+?CND160:	LOC	OBJ >N
+	ZERO?	N /?CND163
+	EQUAL?	N,GLOBAL-OBJECTS,LOCAL-GLOBALS /?CND163
+	MOVE	OBJ,MAGNET
+?CND163:	CALL	TELL-NOW,MAGNET,STR?265,FALSE-VALUE
+	CALL	THE?,OBJ
+	CALL	DPRINT,OBJ
+	PRINTR	"."
+
+
+	.FUNCT	TELL-NOW,OBJ,STR,FINISH?=1
+	PRINTI	"The "
+	CALL	DPRINT,OBJ
+	PRINTI	" is now "
+	PRINT	STR
+	ZERO?	FINISH? /FALSE
+	PRINTR	"."
+
+
+	.FUNCT	ATTRACTION,F,N
+	FIRST?	HERE >F /?KLU30
+?KLU30:	FIRST?	MAGNET >N \?CND1
+	GETP	N,P?STATION
+	ZERO?	STACK /?THN6
+	FSET?	N,TAKEBIT /?CND1
+?THN6:	MOVE	N,HERE
+?CND1:	
+?PRG8:	ZERO?	F /TRUE
+	NEXT?	F >N /?KLU31
+?KLU31:	FSET?	F,INVISIBLE /?CND13
+	GETP	F,P?STATION
+	ZERO?	STACK /?CND13
+	FSET?	F,TAKEBIT \?CND13
+	EQUAL?	F,MAGNET /?CND13
+	MOVE	F,MAGNET
+	EQUAL?	F,IRON-BAR \?CND18
+	EQUAL?	HERE,WRECK-5 \?CND18
+	CALL	JIGS-UP,STR?266
+?CND18:	PRINTI	"The "
+	CALL	DPRINT,F
+	PRINTI	" jumps to the magnet."
+	EQUAL?	F,MINE \?CND25
+	PRINTI	" Unfortunately, even though the spikes are spaced widely apart, one gets pushed..."
+	CRLF	
+	CRLF	
+	CALL	BOOM
+?CND25:	CRLF	
+?CND13:	SET	'F,N
+	JUMP	?PRG8
+
+
+	.FUNCT	CLEAR-MAGNET,F,N
+	FIRST?	MAGNET >F /?KLU6
+?KLU6:	
+?PRG1:	ZERO?	F /TRUE
+	NEXT?	F >N /?KLU7
+?KLU7:	MOVE	F,HERE
+	SET	'F,N
+	JUMP	?PRG1
+
+
+	.FUNCT	FLASHLIGHT-F
+	EQUAL?	PRSA,V?LAMP-ON \?ELS5
+	FSET?	FLASHLIGHT,ONBIT \?ELS10
+	CALL	TELL-ALREADY,STR?56
+	RSTACK	
+?ELS10:	FSET	FLASHLIGHT,ONBIT
+	CALL	TELL-NOW,FLASHLIGHT,STR?56
+	ZERO?	LIT \TRUE
+	CALL	LIT?,HERE >LIT
+	CRLF	
+	CALL	V-LOOK
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LAMP-OFF \?ELS17
+	FSET?	FLASHLIGHT,ONBIT \?ELS22
+	FCLEAR	FLASHLIGHT,ONBIT
+	CALL	LIT?,HERE >LIT
+	CALL	TELL-NOW,FLASHLIGHT,STR?264
+	RSTACK	
+?ELS22:	CALL	TELL-ALREADY,STR?264
+	RSTACK	
+?ELS17:	EQUAL?	PRSA,V?EXAMINE \?ELS26
+	PRINTI	"The sealed, waterproof "
+	CALL	DPRINT,FLASHLIGHT
+	PRINTI	" is "
+	FSET?	FLASHLIGHT,ONBIT \?ELS31
+	PRINTI	"on"
+	JUMP	?CND29
+?ELS31:	PRINTI	"off"
+?CND29:	PRINTR	"."
+?ELS26:	EQUAL?	PRSA,V?AIM \FALSE
+	EQUAL?	PRSO,FLASHLIGHT \FALSE
+	FSET?	FLASHLIGHT,ONBIT \FALSE
+	PRINTI	"The "
+	CALL	DPRINT,FLASHLIGHT
+	PRINTI	" is shining on "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+
+
+	.FUNCT	SHARK-REPELLENT-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	FSET?	SHARK-REPELLENT,OPENBIT \?ELS10
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS10:	FSET	SHARK-REPELLENT,OPENBIT
+	PRINTI	"Opened."
+	GETP	HERE,P?LINE
+	LESS?	STACK,UNDERWATER-LINE-C /?THN18
+	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK /?CND15
+?THN18:	CALL	JIGS-UP,STR?267
+?CND15:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?CLOSE \?ELS21
+	FSET?	SHARK-REPELLENT,OPENBIT \?ELS26
+	PRINTR	"It can't be closed."
+?ELS26:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS21:	EQUAL?	PRSA,V?EXAMINE \?ELS32
+	PRINTI	"The canister, which is "
+	FSET?	SHARK-REPELLENT,OPENBIT \?ELS37
+	PRINTI	"open"
+	JUMP	?CND35
+?ELS37:	PRINTI	"closed"
+?CND35:	PRINTR	", has a label which says, ""IMPORTANT: read this label!"""
+?ELS32:	EQUAL?	PRSA,V?READ \FALSE
+	PRINTR	"The label says: ""IMPORTANT: read this label!
+
+SWANZO BRAND SHARK REPELLENT
+
+This product will repel sharks, or your money back! Simply open the canister UNDERWATER. Works for 5 hours. WARNING: Fumes released in air may be hazardous to humans."""
+
+
+	.FUNCT	SHANTY-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	MOVE	FOOD,SHANTY
+	FSET	FOOD,NDESCBIT
+	SET	'SOUPS-ON,FALSE-VALUE
+	MOVE	DRINKING-WATER,SHANTY
+	FSET	DRINKING-WATER,NDESCBIT
+	MOVE	DRINK-OBJECT,SHANTY
+	FSET	DRINK-OBJECT,NDESCBIT
+	PUTP	DRINKING-WATER,P?SDESC,STR?271
+	MOVE	SPEAR-CARRIER,SHANTY
+	PUTP	SPEAR-CARRIER,P?SDESC,STR?272
+	PUTP	SPEAR-CARRIER,P?LDESC,STR?273
+	LESS?	PRESENT-TIME,541 \?ELS10
+	CALL	QUEUE,I-FIRST-MEETING,-1
+	PUT	STACK,0,1
+	RTRUE	
+?ELS10:	SET	'FM-CTR,5
+	RETURN	FM-CTR
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?YES \?ELS19
+	EQUAL?	FM-CTR,4 \?ELS19
+	PRINT	WARNING-STR
+	CRLF	
+	SET	'FM-CTR,5
+	CALL	RATING-UPD,20
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	SET	'MEETINGS-COMPLETED,1
+	RETURN	MEETINGS-COMPLETED
+?ELS19:	EQUAL?	PRSA,V?NO \FALSE
+	EQUAL?	FM-CTR,4 \FALSE
+	CALL	TELL-NO-CONTINUE
+	CALL	I-PLOT-NEVER-STARTS
+	SET	'JOHNNY-SILENT,TRUE-VALUE
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	RTRUE	
+
+
+	.FUNCT	TELL-NO-CONTINUE
+	PRINTI	"The three men look at each other in disbelief. ""If you wanna ignore the chance of a lifetime, you're nuts,"" "
+	CALL	DPRINT,WEASEL
+	PRINTR	" states. Johnny says, ""We'll find someone else."" They then ignore you."
+
+
+	.FUNCT	PARROT-F
+	EQUAL?	WINNER,PARROT \?ELS5
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	EQUAL?	PRSA,V?HELLO \?ELS8
+	CALL	PICK-ONE,PARROTISMS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS8:	EQUAL?	PRSA,V?FIND \?ELS12
+	EQUAL?	PRSO,ME \?ELS12
+	PRINTR	"""You're right here."""
+?ELS12:	PRINTR	"""An interesting concept, but I am incapable."""
+?ELS5:	EQUAL?	PRSA,V?TELL \?ELS22
+	ZERO?	P-CONT \FALSE
+?ELS22:	EQUAL?	PRSA,V?FIND,V?EXAMINE /FALSE
+	EQUAL?	HERE,SHANTY \FALSE
+	EQUAL?	PRSA,V?LOOK-UNDER \?ELS30
+	CALL	TELL-NOTHING,STR?276,TRUE-VALUE
+	RSTACK	
+?ELS30:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS32
+	EQUAL?	PRSI,PARROT /FALSE
+?ELS32:	CALL	PICK-ONE,PARROTISMS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PARROTS-PATCH-F
+	EQUAL?	PRSA,V?DISEMBARK,V?ASK-FOR,V?LOOK-UNDER /?THN10
+	EQUAL?	PRSA,V?MOVE /?THN10
+	EQUAL?	PRSA,V?TAKE \?ELS5
+	ZERO?	PRSI /?THN10
+	EQUAL?	PRSI,PARROT \?ELS5
+?THN10:	PRINTR	"Mind your manners."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's a small black eyepatch."
+
+
+	.FUNCT	CHAIR-F,RARG=0,F
+	EQUAL?	RARG,M-BEG \?ELS5
+	EQUAL?	PRSA,V?DISEMBARK \?ELS10
+	EQUAL?	PRSO,CHAIR \?ELS10
+	LESS?	FM-CTR,5 \?ELS10
+	PRINTR	"Johnny pushes you back. ""Can't you wait a few minutes?"""
+?ELS10:	EQUAL?	PRSA,V?YES \?ELS16
+	EQUAL?	FM-CTR,4 \?ELS16
+	PRINT	WARNING-STR
+	CRLF	
+	SET	'FM-CTR,5
+	CALL	RATING-UPD,20
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	SET	'MEETINGS-COMPLETED,1
+	RETURN	MEETINGS-COMPLETED
+?ELS16:	EQUAL?	PRSA,V?NO \FALSE
+	EQUAL?	FM-CTR,4 \FALSE
+	CALL	TELL-NO-CONTINUE
+	CALL	I-PLOT-NEVER-STARTS
+	CALL	INT,I-FIRST-MEETING
+	PUT	STACK,0,0
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,CHAIR \FALSE
+	EQUAL?	PRSA,V?BOARD \FALSE
+	FIRST?	CHAIR >F \?ELS36
+	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+?ELS36:	ZERO?	FM-CTR \FALSE
+	SET	'FM-CTR,1
+	CALL	INT,I-PLOT-NEVER-STARTS
+	PUT	STACK,0,0
+	RFALSE	
+
+
+	.FUNCT	FURNITURE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?283
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"There are a number of tables and chairs here."
+
+
+	.FUNCT	BAR-F,F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS5
+	PRINTR	"Leave that to the management."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS9
+	PRINTI	"It is a worn wooden bar that has had more than its share of drinks on it. The parrot doesn't do it much good, either"
+	FIRST?	BAR >F \?CND12
+	PRINTI	". Sitting on the bar "
+	NEXT?	F \?ELS19
+	PRINTI	"are "
+	JUMP	?CND17
+?ELS19:	PRINTI	"is "
+?CND17:	CALL	PRINT-CONTENTS,BAR
+?CND12:	PRINTR	"."
+?ELS9:	EQUAL?	PRSA,V?LOOK-BEHIND \FALSE
+	PRINTR	"The bartender is there."
+
+
+	.FUNCT	MIRROR-F
+	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?ELS5
+	PRINTR	"You see grime rather than a reflection."
+?ELS5:	EQUAL?	PRSA,V?CLEAN \?ELS9
+	CALL	TELL-CANT-REACH,STR?284
+	RSTACK	
+?ELS9:	EQUAL?	PRSA,V?MUNG \FALSE
+	PRINTR	"That would be unlucky."
+
+
+	.FUNCT	FOOD-F
+	EQUAL?	PRSA,V?FIND \?ELS5
+	ZERO?	P-NONOUN /?ELS5
+	EQUAL?	P-XADJN,W?BEEF \?ELS5
+	PRINTR	"Gimme a break!"
+?ELS5:	EQUAL?	PRSA,V?BUY \?ELS11
+	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C \?ELS16
+	PRINTR	"Free food is a benefit of this job."
+?ELS16:	ZERO?	HOW-HUNGRY \?ELS20
+	CALL	TELL-WAIT-HUNGRY
+	RSTACK	
+?ELS20:	ZERO?	SOUPS-ON /?ELS22
+	PRINTR	"You only need one meal at a time."
+?ELS22:	LESS?	POCKET-CHANGE,5 \?ELS27
+	CALL	TELL-NO-AFFORD
+	RSTACK	
+?ELS27:	SUB	POCKET-CHANGE,5 >POCKET-CHANGE
+	SET	'SOUPS-ON,TRUE-VALUE
+	MOVE	FOOD,TABLE-OBJECT
+	FCLEAR	FOOD,NDESCBIT
+	PRINTR	"You have bought a meal for $5."
+?ELS11:	EQUAL?	PRSA,V?EAT \?ELS33
+	ZERO?	SOUPS-ON /?ELS38
+	ZERO?	HOW-HUNGRY \?CND40
+	CALL	TELL-WAIT-HUNGRY
+	RTRUE	
+?CND40:	CALL	QUEUE,I-HUNGER,150
+	PUT	STACK,0,1
+	SET	'HOW-HUNGRY,0
+	EQUAL?	HERE,SHANTY \?CND43
+	SET	'SOUPS-ON,FALSE-VALUE
+	FSET	FOOD,NDESCBIT
+	MOVE	FOOD,SHANTY
+?CND43:	PRINTR	"Not bad! It really hit the spot."
+?ELS38:	EQUAL?	HERE,SHANTY \?ELS49
+	PRINTR	"You'll have to buy it before you can eat it."
+?ELS49:	PRINTR	"You'll have to wait for Pete to finish fixing it."
+?ELS33:	EQUAL?	PRSA,V?SMELL \?ELS57
+	PRINTR	"It smells fairly tasty."
+?ELS57:	EQUAL?	PRSA,V?EXAMINE \?ELS61
+	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C \?ELS66
+	PRINTR	"It looks like a pretty standard stew."
+?ELS66:	ZERO?	SOUPS-ON /?ELS70
+	PRINTI	"This stew is a staple of "
+	CALL	DPRINT,SHANTY
+	PRINTR	" and is edible."
+?ELS70:	CALL	GLOBAL-NOT-HERE-PRINT,PRSO
+	RSTACK	
+?ELS61:	EQUAL?	PRSA,V?FIND \FALSE
+	IN?	FOOD,TABLE-OBJECT \?ELS82
+	PRINTR	"It's on the table."
+?ELS82:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,SHANTY \FALSE
+	PRINTR	"You can order food here."
+
+
+	.FUNCT	TELL-WAIT-HUNGRY
+	PRINTR	"Wait until you're a little hungrier."
+
+
+	.FUNCT	DRINKING-WATER-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	IN?	DRINKING-WATER,TABLE-OBJECT \?ELS10
+	PRINTR	"It's a glass of water, what else?"
+?ELS10:	EQUAL?	HERE,MM-GALLEY,NW-GALLEY \?ELS14
+	PRINTR	"There's a tap in the sink which dispenses bottled water."
+?ELS14:	PRINTR	"You can ask the bartender for a glass."
+?ELS5:	EQUAL?	PRSA,V?DRINK \?ELS22
+	IN?	DRINKING-WATER,TABLE-OBJECT /?THN28
+	EQUAL?	HERE,MM-GALLEY,NW-GALLEY \?ELS27
+?THN28:	GRTR?	SLOSH-CTR,4 \?ELS34
+	PRINTR	"Are you trying to do an ocean imitation?"
+?ELS34:	SET	'HOW-THIRSTY,0
+	INC	'SLOSH-CTR
+	CALL	QUEUE,I-THIRST,180
+	PUT	STACK,0,1
+	MOVE	DRINKING-WATER,HERE
+	FSET	DRINKING-WATER,NDESCBIT
+	PUTP	DRINKING-WATER,P?SDESC,STR?271
+	PRINTR	"You feel much refreshed."
+?ELS27:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,SHANTY \FALSE
+	CALL	TELL-ASK-FIRST
+	RSTACK	
+?ELS22:	EQUAL?	PRSA,V?BUY \?ELS44
+	EQUAL?	HERE,MM-GALLEY,NW-GALLEY \?ELS44
+	CALL	TELL-JUST
+	RSTACK	
+?ELS44:	EQUAL?	PRSA,V?TAKE \?ELS48
+	IN?	DRINKING-WATER,SHANTY \?ELS53
+	CALL	TELL-ASK-FIRST
+	RSTACK	
+?ELS53:	CALL	TELL-JUST
+	RSTACK	
+?ELS48:	EQUAL?	PRSA,V?FIND \FALSE
+	IN?	DRINKING-WATER,TABLE-OBJECT \?ELS62
+	PRINTR	"It's on the table."
+?ELS62:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,SHANTY \FALSE
+	PRINTR	"You can order water here."
+
+
+	.FUNCT	TELL-ASK-FIRST
+	PRINTR	"Ask the bartender for some water first."
+
+
+	.FUNCT	TELL-JUST
+	PRINTR	"Just drink it."
+
+
+	.FUNCT	DRINK-OBJECT-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	IN?	DRINK-OBJECT,TABLE-OBJECT \?ELS10
+	PRINTR	"It's grog which has left many staggering."
+?ELS10:	CALL	TELL-BUY-FIRST
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?BUY \?ELS16
+	IN?	DRINK-OBJECT,TABLE-OBJECT \?ELS21
+	CALL	TELL-YOU-ALREADY,STR?285
+	RSTACK	
+?ELS21:	LESS?	POCKET-CHANGE,2 \?ELS23
+	CALL	TELL-NO-AFFORD
+	RSTACK	
+?ELS23:	MOVE	DRINK-OBJECT,TABLE-OBJECT
+	FCLEAR	DRINK-OBJECT,NDESCBIT
+	SUB	POCKET-CHANGE,2 >POCKET-CHANGE
+	PRINTR	"You have bought a drink for $2."
+?ELS16:	EQUAL?	PRSA,V?DRINK \?ELS29
+	IN?	DRINK-OBJECT,TABLE-OBJECT \?ELS34
+	MOVE	DRINK-OBJECT,SHANTY
+	CALL	QUEUE,I-THIRST,90
+	PUT	STACK,0,1
+	SET	'HOW-THIRSTY,0
+	FSET	DRINK-OBJECT,NDESCBIT
+	ADD	BLOOD-ALCOHOL,6 >BLOOD-ALCOHOL
+	PRINTR	"It burns your throat on the way down."
+?ELS34:	CALL	TELL-BUY-FIRST
+	RSTACK	
+?ELS29:	EQUAL?	PRSA,V?TASTE \?ELS40
+	IN?	DRINK-OBJECT,TABLE-OBJECT /FALSE
+	CALL	TELL-BUY-FIRST
+	RSTACK	
+?ELS40:	EQUAL?	PRSA,V?FIND \FALSE
+	IN?	DRINK-OBJECT,TABLE-OBJECT \?ELS52
+	PRINTR	"It's on the table."
+?ELS52:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,SHANTY \FALSE
+	PRINTR	"You can order grog here."
+
+
+	.FUNCT	TELL-BUY-FIRST
+	PRINTR	"You'll have to order one first."
+
+
+	.FUNCT	NON-DRINK-F
+	CALL	TELL-YOUD-BETTER,STR?286
+	RSTACK	
+
+
+	.FUNCT	BANK-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	MOVE	SPEAR-CARRIER,BANK
+	PUTP	SPEAR-CARRIER,P?SDESC,STR?288
+	PUTP	SPEAR-CARRIER,P?LDESC,STR?289
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?WITHDRAW \?ELS12
+	EQUAL?	PRSO,INTNUM \FALSE
+	ZERO?	P-DOLLAR-FLAG \?ELS19
+	CALL	TELL-YOU-CANT,STR?290
+	RSTACK	
+?ELS19:	LESS?	P-AMOUNT,1 \?ELS21
+	CALL	TELL-SERIOUS
+	RSTACK	
+?ELS21:	IN?	PASSBOOK,PLAYER /?ELS23
+	PRINTR	"The teller points out that you don't have your passbook."
+?ELS23:	GRTR?	P-AMOUNT,PASSBOOK-BALANCE \?ELS27
+	PRINTR	"The teller takes your passbook, checks the balance, tells you that there's not enough to cover your planned withdrawal, and returns it."
+?ELS27:	SUB	PASSBOOK-BALANCE,P-AMOUNT >PASSBOOK-BALANCE
+	ADD	POCKET-CHANGE,P-AMOUNT >POCKET-CHANGE
+	SET	'STUPID-PROBLEM-STRING,STR?291
+	PRINTR	"The teller takes your passbook, enters the withdrawal, hands you the money and your passbook, and says ""Have a good day."""
+?ELS12:	EQUAL?	PRSA,V?DEPOSIT \FALSE
+	ZERO?	PRSI /?ELS40
+	EQUAL?	PRSI,GLOBAL-BANK /?ELS40
+	CALL	PERFORM,V?PUT,PRSO,PRSI
+	RTRUE	
+?ELS40:	ZERO?	P-DOLLAR-FLAG /?THN45
+	EQUAL?	PRSO,INTNUM /?ELS44
+?THN45:	CALL	HELD?,PRSO
+	ZERO?	STACK \?ELS51
+	CALL	TELL-DONT-HAVE,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS51:	PRINTI	"The teller looks at the "
+	CALL	DPRINT,PRSO
+	PRINTR	" and returns it, pointing out that you don't have a safe deposit box."
+?ELS44:	GRTR?	P-AMOUNT,POCKET-CHANGE \?ELS59
+	CALL	TELL-YOU-CANT,STR?292
+	RSTACK	
+?ELS59:	LESS?	P-AMOUNT,1 \?ELS61
+	CALL	TELL-SERIOUS
+	RSTACK	
+?ELS61:	IN?	PASSBOOK,PLAYER /?ELS63
+	PRINTR	"The teller points out that you need to have your passbook."
+?ELS63:	ADD	PASSBOOK-BALANCE,P-AMOUNT >PASSBOOK-BALANCE
+	SUB	POCKET-CHANGE,P-AMOUNT >POCKET-CHANGE
+	SET	'STUPID-PROBLEM-STRING,STR?291
+	PRINTI	"The teller takes your money and passbook, records the deposit, returns the passbook, and says ""Thank you for banking at "
+	CALL	DPRINT,BANK
+	PRINTR	"."""
+
+
+	.FUNCT	RIDICULOUS-MONEY-KLUDGE-F
+	EQUAL?	PRSA,V?ASK-ABOUT /FALSE
+	EQUAL?	PRSA,V?COUNT,V?FIND \?ELS7
+	CALL	PERFORM,PRSA,GLOBAL-MONEY
+	RTRUE	
+?ELS7:	PRINTR	"You should specify an amount."
+
+
+	.FUNCT	VAULT-F
+	EQUAL?	PRSA,V?THROUGH \?ELS5
+	EQUAL?	HERE,BANK /?ELS5
+	CALL	GLOBAL-NOT-HERE-PRINT,SAFE
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS9
+	PRINTR	"The safe is behind the teller's window and is mostly empty."
+?ELS9:	EQUAL?	PRSA,V?FIND,V?ASK-ABOUT /FALSE
+	PRINTR	"There's no way you can get at the safe."
+
+
+	.FUNCT	POINT-LOOKOUT-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	EQUAL?	MEETINGS-COMPLETED,2 \FALSE
+	LESS?	PRESENT-TIME,660 \FALSE
+	CALL	QUEUE,I-THIRD-MEETING,-1
+	PUT	STACK,0,1
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?LEAP \?ELS19
+	CALL	JIGS-UP,STR?295
+	RSTACK	
+?ELS19:	GRTR?	TM-CTR,0 \?ELS21
+	LESS?	TM-CTR,6 \?ELS21
+	EQUAL?	PRSA,V?YES \?ELS28
+	PRINTR	"""That's nice, but I'd like to see it."""
+?ELS28:	EQUAL?	PRSA,V?NO \?ELS32
+	SET	'TM-CTR,4
+	CALL	I-THIRD-MEETING
+	RSTACK	
+?ELS32:	EQUAL?	PRSA,V?WALK \?ELS34
+	PRINTR	"Johnny puts a hand on your shoulder. ""Not so fast, matey."""
+?ELS34:	EQUAL?	PRSA,V?SHOW \?ELS38
+	EQUAL?	PRSI,JOHNNY \?ELS38
+	EQUAL?	PRSO,GLOBAL-MONEY /?ELS49
+	EQUAL?	PRSO,INTNUM \?ELS49
+	ZERO?	P-DOLLAR-FLAG /?CND41
+?ELS49:	FSET?	WET-SUIT,WORNBIT /?THN50
+	FSET?	DEEP-SUIT,WORNBIT \?CND41
+?THN50:	CALL	TELL-CANT-REACH,STR?296
+	RTRUE	
+?CND41:	EQUAL?	PRSO,GLOBAL-MONEY \?CND52
+	SET	'P-AMOUNT,0
+?CND52:	EQUAL?	PRSO,GLOBAL-MONEY \?ELS63
+	GRTR?	POCKET-CHANGE,499 /?THN60
+?ELS63:	EQUAL?	PRSO,INTNUM \?ELS59
+	ZERO?	P-DOLLAR-FLAG /?ELS59
+	GRTR?	P-AMOUNT,499 \?ELS59
+	GRTR?	P-AMOUNT,POCKET-CHANGE /?ELS59
+?THN60:	SET	'TM-CTR,5
+	PRINTR	"He smiles and flashes a wad that represents the contributions of your three partners."
+?ELS59:	EQUAL?	PRSO,GLOBAL-MONEY /?THN70
+	EQUAL?	PRSO,INTNUM \FALSE
+	ZERO?	P-DOLLAR-FLAG /FALSE
+?THN70:	GRTR?	P-AMOUNT,POCKET-CHANGE \?ELS78
+	PRINTR	"You haven't got that much to show him."
+?ELS78:	CALL	JIGS-UP,STR?297
+	RSTACK	
+?ELS38:	EQUAL?	PRSA,V?GIVE \FALSE
+	EQUAL?	PRSI,JOHNNY \FALSE
+	EQUAL?	PRSO,GLOBAL-MONEY \?CND87
+	SET	'P-AMOUNT,0
+?CND87:	EQUAL?	PRSO,GLOBAL-MONEY \?ELS96
+	GRTR?	POCKET-CHANGE,499 /?THN93
+?ELS96:	EQUAL?	PRSO,INTNUM \?CND90
+	ZERO?	P-DOLLAR-FLAG /?CND90
+	GRTR?	P-AMOUNT,499 \?CND90
+	GRTR?	P-AMOUNT,POCKET-CHANGE /?CND90
+?THN93:	FSET?	DEEP-SUIT,WORNBIT /?CND90
+	FSET?	WET-SUIT,WORNBIT /?CND90
+	PRINTI	"Johnny examines your money and returns it. ""You hold it. I needed to make sure you had it."" "
+?CND90:	EQUAL?	PRSO,GLOBAL-MONEY /?THN111
+	EQUAL?	PRSO,INTNUM \FALSE
+	ZERO?	P-DOLLAR-FLAG /FALSE
+?THN111:	GRTR?	P-AMOUNT,POCKET-CHANGE \?ELS119
+	CALL	TELL-YOU-CANT,STR?298
+	RSTACK	
+?ELS119:	CALL	PERFORM,V?SHOW,PRSO,JOHNNY
+	RTRUE	
+?ELS21:	EQUAL?	TM-CTR,7 \FALSE
+	EQUAL?	PRSA,V?YES \?ELS128
+	SET	'SHIP-CHOSEN,SALVAGER
+	SET	'TM-CTR,8
+	RTRUE	
+?ELS128:	EQUAL?	PRSA,V?NO \?ELS130
+	SET	'SHIP-CHOSEN,TRAWLER
+	SET	'TM-CTR,8
+	RTRUE	
+?ELS130:	EQUAL?	PRSA,V?MAYBE \?ELS132
+	PRINTI	"""A wise guy, huh?"" "
+	RTRUE	
+?ELS132:	EQUAL?	PRSA,V?WALK \FALSE
+	PRINTI	"""Let's finish here first, huh?"" "
+	RTRUE	
+
+
+	.FUNCT	CLIFF-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?299
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?THROW-OFF \?ELS7
+	CALL	PERFORM,V?THROW,PRSO,OCEAN
+	RTRUE	
+?ELS7:	EQUAL?	PRSA,V?DISEMBARK \FALSE
+	CALL	PERFORM,V?LEAP
+	RSTACK	
+
+
+	.FUNCT	WHARF-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	PRINTI	"You're on Hardscrabble Island's weatherbeaten wharf, north of the "
+	CALL	DPRINT,WHARF-ROAD-1
+	PRINTI	"."
+	ZERO?	TRAWLER-DOCKED /?CND8
+	PRINTI	" A trawler called the "
+	CALL	DPRINT,TRAWLER
+	PRINTI	" is berthed here to the west."
+?CND8:	ZERO?	SALVAGER-DOCKED /?CND14
+	PRINTI	" The "
+	CALL	DPRINT,SALVAGER
+	PRINTI	" is moored to the east."
+?CND14:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?THROUGH,V?BOARD \FALSE
+	EQUAL?	PRSO,TRAWLER \?ELS31
+	CALL	DO-WALK,P?WEST
+	RTRUE	
+?ELS31:	EQUAL?	PRSO,SALVAGER \FALSE
+	CALL	DO-WALK,P?EAST
+	RTRUE	
+
+	.ENDI
diff --git a/island.zil b/island.zil
new file mode 100644
index 0000000..f3fd954
--- /dev/null
+++ b/island.zil
@@ -0,0 +1,2520 @@
+"The island geography for TOA2.
+  Copyright (C) 1984 Infocom, Inc. All rights reserved."
+
+<GLOBAL BUSINESS-HOURS? <>>
+
+;<GLOBAL SHANTY-OPEN T>
+
+<GLOBAL TRAWLER-DOCKED T>
+
+<GLOBAL SALVAGER-DOCKED T>
+
+<GLOBAL BEDROOM-DOOR-LOCKED T>
+
+<GLOBAL PASSBOOK-BALANCE 603>
+
+<GLOBAL POCKET-CHANGE 20> ;"how much the player has on him"
+
+<ROOM WINDING-ROAD-1
+      (IN ROOMS)
+      (DESC "Winding Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"The road ends at the lighthouse to the north, and heads back to the southeast.
+You can see and hear the ocean pound the shoreline.")
+      (GLOBAL LIGHTHOUSE OCEAN LOCKED-DOOR)
+      (PSEUDO "LOCK" LIGHTHOUSE-LOCK-PSEUDO "LETTER" LOCKED-DOOR-F)
+      (SE TO WINDING-ROAD-2)
+      (NORTH "The lighthouse door is locked.")
+      (IN "The lighthouse door is locked.")
+      (CORRIDOR 1)
+      (LINE 0)
+      (STATION WINDING-ROAD-1)
+      (ACTION WINDING-ROAD-1-F)>
+
+<ROUTINE WINDING-ROAD-1-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,LOCKED-DOOR ,P?SDESC "lighthouse door">
+		<COND (<==? ,MEETINGS-COMPLETED 1>
+		       <COND (<G? ,PRESENT-TIME 585>
+			      <ALL-GO-HOME>
+			      <I-PLOT-NEVER-STARTS>
+			      <SETG SM-CTR 4>)
+			     (T <ENABLE <QUEUE I-SECOND-MEETING -1>>)>)>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<VERB? WALK>
+		       <COND (<AND <G? ,SM-CTR 0>
+			    	   <L? ,SM-CTR 4>>
+		       	      <COND (<G? ,HOW-HUNGRY 3>
+				     <TELL
+"Johnny looks at you. \"If you can't keep in shape, we don't want
+you. One word to anyone and you're a goner.\" He then lets you
+pass..." CR CR>
+				     <SETG SM-CTR 4>
+				     <RFALSE>)
+				    (T <TELL 
+"Johnny blocks you. \"What's the hurry, matey?\"" CR>)>)>)>)>>
+
+<ROOM WINDING-ROAD-2
+      (IN ROOMS)
+      (DESC "Winding Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"The road branches to the northeast and northwest with the lighthouse off to
+the northwest. To the south is an impenetrable swamp.")
+      (GLOBAL LIGHTHOUSE)
+      (NW TO WINDING-ROAD-1)
+      (NE TO WINDING-ROAD-3)
+      (SOUTH "There's no way to get footing on the swamp.")
+      (CORRIDOR 3)
+      (LINE 0)
+      (PSEUDO "SWAMP" SWAMP-PSEUDO)
+      (STATION WINDING-ROAD-2)
+      (ACTION WINDING-ROAD-2-F)>
+
+<ROUTINE WINDING-ROAD-2-F (RARG)
+	 <COND (<==? .RARG ,M-BEG>
+		<COND (<AND <VERB? BOARD THROUGH>
+			    <PRSO? ,PSEUDO-OBJECT>>
+		       <TELL "After trying to get a foothold, you give up." CR>)>)>>
+
+<ROUTINE SWAMP-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "swamp">)
+	       (<VERB? SMELL>
+		<TELL "It smells awful." CR>)>>
+
+<ROOM WINDING-ROAD-3
+      (IN ROOMS)
+      (DESC "Winding Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"A winding road starts up here to the southwest. You can see the
+top of the lighthouse off to the northwest. The Wharf Road lies to the
+northeast.")
+      (GLOBAL LIGHTHOUSE)
+      (SW TO WINDING-ROAD-2)
+      (NE TO WHARF-ROAD-1)
+      (CORRIDOR 2)
+      (LINE 0)
+      (STATION WINDING-ROAD-3)>
+
+<ROOM WHARF-ROAD-1
+      (IN ROOMS)
+      (DESC "Wharf Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"This is the end of the Wharf Road, an east/west, two-lane road
+that's the island's main street. Off to the east, small businesses line
+the south side of the street. A winding road starts to the southwest,
+heading toward the lighthouse. The Red Boar Inn is to the south.")
+      (GLOBAL LIGHTHOUSE OCEAN FRONT-DOOR)
+      (EAST TO WHARF-ROAD-2)
+      (SW TO WINDING-ROAD-3)
+      (SOUTH TO RED-BOAR-INN)
+      (IN TO RED-BOAR-INN)
+      (CORRIDOR 6)
+      (LINE 0)
+      (STATION WHARF-ROAD-1)>
+
+<ROOM WHARF-ROAD-2
+      (IN ROOMS)
+      (DESC "Wharf Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are on the Wharf Road, with the McGinty Salvage office to the south. The
+ocean lies to the north, its brine smell strong and refreshing.")
+      (GLOBAL LIGHTHOUSE OCEAN FRONT-DOOR)
+      (WEST TO WHARF-ROAD-1)
+      (EAST TO WHARF-ROAD-3)
+      (SOUTH PER WHARF-ROAD-2-S)
+      (IN PER WHARF-ROAD-2-S)
+      (CORRIDOR 4)
+      (LINE 0)
+      (STATION WHARF-ROAD-2)>
+
+<ROUTINE WHARF-ROAD-2-S ("OPTIONAL" (PRINT? T))
+	 <COND (<NOT .PRINT?>
+		<RFALSE>)
+	       (<AND ,BUSINESS-HOURS?
+		     <IN? ,MCGINTY ,MCGINTY-HQ>>
+		<RETURN ,MCGINTY-HQ>)
+	       (T
+		<TELL D ,MCGINTY "'s is closed." CR>
+		<RFALSE>)>>
+
+<OBJECT FRONT-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "front door")
+	(SYNONYM DOOR)
+	(ADJECTIVE FRONT)
+	(FLAGS DOORBIT)
+	(ACTION FRONT-DOOR-F)>
+
+<ROUTINE FRONT-DOOR-F ("AUX" (OPEN? <>))
+	 <COND (<OR <EQUAL? ,HERE ,RED-BOAR-INN ,WHARF-ROAD-1 ,WHARF-ROAD-5>
+		    <EQUAL? ,HERE ,SHANTY>>
+		<SET OPEN? T>)
+	       (,BUSINESS-HOURS?
+		<COND (<OR <EQUAL? ,HERE ,WHARF-ROAD-4 ,OUTFITTERS-HQ ,BANK>
+			   <EQUAL? ,HERE ,SHORE-ROAD-2>>
+		       <SET OPEN? T>)
+		      (<IN? ,MCGINTY ,MCGINTY-HQ>
+		       <SET OPEN? T>)>)>
+	 <COND (<VERB? EXAMINE>
+		<TELL "The door is ">
+		<COND (.OPEN? <TELL "open">)
+		      (T <TELL "closed">)>
+		<TELL "." CR>)
+	       (<VERB? OPEN>
+		<COND (.OPEN? <TELL-ALREADY "open">)
+		      (<==? ,HERE ,MCGINTY-HQ>
+		       <TELL-BLOWS "closed">)
+		      (T <TELL "It's locked." CR>)>)
+	       (<VERB? UNLOCK>
+		<COND (<OR <EQUAL? ,HERE ,MCGINTY-HQ ,OUTFITTERS-HQ ,SHANTY>
+		    	   <EQUAL? ,HERE ,BANK ,RED-BOAR-INN>>
+		       <TELL-DONT-HAVE "to from inside">)
+		      (T <TELL-NO-KEY>)>)
+	       (<VERB? CLOSE>
+		<COND (.OPEN? <TELL-BLOWS "open">)
+		      (T <TELL-ALREADY "closed">)>)>>
+
+<ROUTINE TELL-BLOWS (STR)
+	 <TELL "It blows back " .STR "." CR>>
+
+<ROOM WHARF-ROAD-3
+      (IN ROOMS)
+      (DESC "Wharf Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"You are on the Wharf Road where the wharf starts up to the north.
+The former site of Outfitters International's warehouse fronts the south
+side of the road.")
+      (GLOBAL LIGHTHOUSE OCEAN)
+      (NORTH TO WHARF)
+      (WEST TO WHARF-ROAD-2)
+      (EAST TO WHARF-ROAD-4)
+      (SOUTH TO VACANT-LOT)
+      (CORRIDOR 260)
+      (LINE 0)
+      (STATION WHARF-ROAD-3)>
+
+<ROOM WHARF-ROAD-4
+      (IN ROOMS)
+      (DESC "Wharf Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"The east/west Wharf Road continues, with Outfitters International,
+a store which supplies ocean-going vessels, to the south.")
+      (GLOBAL LIGHTHOUSE OCEAN FRONT-DOOR)
+      (WEST TO WHARF-ROAD-3)
+      (EAST TO WHARF-ROAD-5)
+      (SOUTH TO OUTFITTERS-HQ IF BUSINESS-HOURS? ELSE "Outfitters is closed.")
+      (IN TO OUTFITTERS-HQ IF BUSINESS-HOURS? ELSE "Outfitters is closed.")
+      (CORRIDOR 4)
+      (LINE 1)
+      (STATION WHARF-ROAD-4)>
+
+<ROOM WHARF-ROAD-5
+      (IN ROOMS)
+      (DESC "Wharf Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You're on the east end of Wharf Road. The Ocean Road starts here and
+parallels the island's east edge, heading to the southeast.
+The Shanty is to the south.")
+      (GLOBAL LIGHTHOUSE OCEAN FRONT-DOOR)
+      (WEST TO WHARF-ROAD-4)
+      (SOUTH TO SHANTY);(IF SHANTY-OPEN ELSE "It's after closing time.")
+      (IN TO SHANTY);(IF SHANTY-OPEN ELSE "It's after closing time.")
+      (SE TO OCEAN-ROAD-1)
+      (CORRIDOR 12)
+      (LINE 1)
+      (STATION WHARF-ROAD-5)>
+
+<ROOM OCEAN-ROAD-1
+      (IN ROOMS)
+      (DESC "Ocean Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are at the north end of the Ocean Road, a narrow north/south road
+on the east edge of the island. The Wharf Road starts
+to the northwest, and a back alley starts off to the southwest.")
+      (GLOBAL LIGHTHOUSE OCEAN ROCKS)
+      (NW TO WHARF-ROAD-5)
+      (SW TO BACK-ALLEY-5)
+      (SOUTH TO OCEAN-ROAD-2)
+      (EAST "The rocks are too sharp and dangerous.")
+      (CORRIDOR 24)
+      (LINE 1)
+      (STATION OCEAN-ROAD-1)>
+
+<ROOM OCEAN-ROAD-2
+      (IN ROOMS)
+      (DESC "Ocean Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are halfway along the Ocean Road, with the start of an
+alley off to the northwest. An empty field lies to your west,
+and the dangerous ocean shore lies off to your east.")
+      (GLOBAL LIGHTHOUSE OCEAN FIELD ROCKS)
+      (NORTH TO OCEAN-ROAD-1)
+      (NW TO BACK-ALLEY-5)
+      (SOUTH TO OCEAN-ROAD-3)
+      (WEST "You can't get through the weeds.")
+      (EAST "The rocks are too sharp and dangerous.")
+      (CORRIDOR 16)
+      (LINE 1)
+      (STATION OCEAN-ROAD-2)>
+
+<ROOM OCEAN-ROAD-3
+      (IN ROOMS)
+      (DESC "Ocean Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"This is the south end of the Ocean Road. To the southeast is a small path
+leading up to about 100 feet above sea level. The Ocean Road heads north,
+and the Shore Road starts to the southwest.")
+      (GLOBAL LIGHTHOUSE OCEAN ROCKS)
+      (NORTH TO OCEAN-ROAD-2)
+      (SW TO SHORE-ROAD-2)
+      (UP TO POINT-LOOKOUT)
+      (SE TO POINT-LOOKOUT)
+      (EAST "The rocks are too sharp and dangerous.")
+      (CORRIDOR 112)
+      (LINE 1)
+      (STATION OCEAN-ROAD-3)>
+
+<ROOM SHORE-ROAD-1
+      (IN ROOMS)
+      (DESC "Shore Road")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are at the west end of the east/west Shore Road, with the
+ferry landing to the west. To the north is an impenetrable field,
+while the south is bordered by the ocean. You can see the mainland in the
+distance.")
+      (GLOBAL LIGHTHOUSE FERRY OCEAN FIELD)
+      (WEST TO FERRY-LANDING)
+      (EAST TO SHORE-ROAD-2)
+      (NORTH "You can't get through the weeds.")
+      (CORRIDOR 128)
+      (LINE 1)
+      (STATION SHORE-ROAD-1)>
+
+<ROOM SHORE-ROAD-2
+      (IN ROOMS)
+      (DESC "Shore Road")
+      (FLAGS RLANDBIT ONBIT)
+      ;(LDESC 
+"This is the east end of the Shore Road, before the ferry. The Mariners'
+Trust, the island's only bank, is off to the north. The Ocean Road starts
+to the northeast.")
+      (GLOBAL LIGHTHOUSE FERRY OCEAN FRONT-DOOR)
+      (NORTH TO BANK IF BUSINESS-HOURS? ELSE "The bank is closed.")
+      (IN TO BANK IF BUSINESS-HOURS? ELSE "The bank is closed.")
+      (WEST TO SHORE-ROAD-1)
+      (NE TO OCEAN-ROAD-3)
+      (CORRIDOR 192)
+      (LINE 1)
+      (STATION SHORE-ROAD-2)
+      (ACTION SHORE-ROAD-2-F)>
+
+<ROUTINE SHORE-ROAD-2-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL
+"This is the east end of the " D ,SHORE-ROAD-1 ", an east/west road with a ferry landing
+at its west end. The " D ,BANK ", the island's only bank, is off to the north.
+The " D ,OCEAN-ROAD-1 " starts up to the northeast." CR>)>>
+
+<ROOM BACK-ALLEY-1
+      (IN ROOMS)
+      (DESC "Back Alley")
+      (LDESC
+"You're at the west end of an east/west alley. The back
+entrance to the Red Boar Inn is to the north, and an overgrown field is to
+the south.")
+      (GLOBAL LOCKED-DOOR FIELD)
+      (EAST TO BACK-ALLEY-2)
+      (NORTH "The door is locked.")
+      (SOUTH "You can't get through the weeds.")
+      (FLAGS RLANDBIT ONBIT)
+      (LINE 3)
+      (CORRIDOR 512)
+      (STATION BACK-ALLEY-1)
+      (ACTION BACK-ALLEY-1-F)>
+
+<ROUTINE BACK-ALLEY-1-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,LOCKED-DOOR ,P?SDESC "back door">)>>
+
+<ROOM BACK-ALLEY-2
+      (IN ROOMS)
+      (DESC "Back Alley")
+      (LDESC
+"You are in a narrow alley. To the north is the back door of McGinty
+Salvage, as well as a small window. An overgrown field lies to the south.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL BACK-WINDOW LOCKED-DOOR FIELD)
+      (NORTH PER BACK-ALLEY-2-N)
+      (IN PER BACK-ALLEY-2-N)
+      (SOUTH "You can't get through the weeds.")
+      (WEST TO BACK-ALLEY-1)
+      (EAST TO BACK-ALLEY-3)
+      (LINE 3)
+      (CORRIDOR 512)
+      (STATION BACK-ALLEY-2)
+      (ACTION BACK-ALLEY-2-F)>
+
+<ROUTINE BACK-ALLEY-2-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,LOCKED-DOOR ,P?SDESC "back door">)>>
+
+<ROUTINE BACK-ALLEY-2-N ("OPTIONAL" (PRINT? T))
+	 <COND (<NOT .PRINT?>
+		<RFALSE>)
+	       (<FSET? ,BACK-WINDOW ,OPENBIT>
+		<COND (<OR <IN? ,MCGINTY ,BACK-ALLEY-1>
+			   <IN? ,MCGINTY ,BACK-ALLEY-2>
+			   <IN? ,MCGINTY ,BACK-ALLEY-3>>
+		       <JIGS-UP
+"\"No, you don't!\" cries McGinty as he pulls out a gun and shoots you.">)
+		      (T
+	               <TELL-THRU-WINDOW>
+		       <COND (<IN? ,MCGINTY ,MCGINTY-HQ>
+		       	      <SETG MCGINTY-HQ-OCCUPIED T>)>
+		       <RETURN ,MCGINTY-HQ>)>)
+	       (T
+		<TELL "The door is locked." CR>
+		<RFALSE>)>>
+
+<GLOBAL MCGINTY-HQ-OCCUPIED <>>
+
+<OBJECT BACK-WINDOW
+	(IN LOCAL-GLOBALS)
+	(DESC "back window")
+	(SYNONYM WINDOW)
+	(ADJECTIVE SMALL BACK)
+	(ACTION BACK-WINDOW-F)>
+
+<ROUTINE BACK-WINDOW-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<IN? ,PLAYER ,MCGINTY-HQ>
+		       <TELL-YOU-CANT "open it from this side.">)
+		      (<FSET? ,BACK-WINDOW ,OPENBIT>
+		       <TELL-ALREADY "open">)
+		      (T
+		       <FSET ,BACK-WINDOW ,OPENBIT>
+		       <TELL
+"You open it enough to fit through it." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,BACK-WINDOW ,OPENBIT>
+		       <FCLEAR ,BACK-WINDOW ,OPENBIT>
+		       <TELL "You close the window." CR>)
+		      (T <TELL-ALREADY "closed">)>)
+	       (<VERB? THROUGH BOARD>
+		<COND (<FSET? ,BACK-WINDOW ,OPENBIT>
+		       <COND (<IN? ,PLAYER ,MCGINTY-HQ>
+			      <DO-WALK ,P?SOUTH>)
+			     (T <DO-WALK ,P?NORTH>)>)
+		      (T <TELL-CLOSED "window">)>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "You see ">
+                <COND (<IN? ,PLAYER ,MCGINTY-HQ>
+		       <TELL "the back alley">)
+		      (<IN? ,MCGINTY ,MCGINTY-HQ>
+		       <TELL D ,MCGINTY " sitting at his desk">)
+		      (T <TELL D ,MCGINTY "'s office">)>
+		<TELL "." CR>)
+	       (<VERB? UNLOCK>
+		<TELL "It doesn't seem to be locked." CR>)>>
+
+<OBJECT LOCKED-DOOR
+	(IN LOCAL-GLOBALS)
+	;(DESC "back door")
+	(SDESC "back door")
+	(SYNONYM DOOR)
+	(ADJECTIVE BACK LIGHTH)
+	(ACTION LOCKED-DOOR-F)>
+
+<ROUTINE LOCKED-DOOR-F ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "lighthouse door">)
+	       (<VERB? OPEN>
+		<TELL "It's locked." CR>)
+	       (<VERB? UNLOCK>
+		<TELL-NO-KEY>)
+	       (<VERB? READ EXAMINE>
+		<COND (<EQUAL? ,HERE ,WINDING-ROAD-1>
+		       <TELL 
+"The lettering on the door reads:|
+">
+		       <FIXED-FONT-ON>
+		       <TELL
+"    \"This " D ,LIGHTHOUSE " is part of|
+             CUTTHROATS|
+    an Infocom Tale of Adventure|
+ by Michael Berlyn and Jerry Wolper|
+        (c)1984 Infocom, Inc.\"" CR>
+		       <FIXED-FONT-OFF>
+		       <RTRUE>)
+		      (<VERB? READ>
+		       <V-READ>)
+		      (T <TELL-CLOSED "door">)>)
+	       (<VERB? MUNG>
+		<TELL "The door and lock withstand your attempts." CR>)
+	       (<VERB? KNOCK>
+		<TELL-NO-ANSWER>)
+	       (<VERB? CLOSE>
+	        <TELL-ALREADY "closed">)
+	       (<VERB? LOCK>
+		<TELL-ALREADY "locked">)>>
+
+<ROUTINE TELL-NO-ANSWER ()
+	 <TELL "You wait a minute, but there's no answer." CR>>
+
+<ROOM BACK-ALLEY-3
+      (IN ROOMS)
+      (DESC "Back Alley")
+      (LDESC
+"You are in an east/west alley. To the north is a
+vacant lot, and an overgrown field lies to the south.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FIELD)
+      (NORTH TO VACANT-LOT)
+      (SOUTH "You can't get through the weeds.")
+      (WEST TO BACK-ALLEY-2)
+      (EAST TO BACK-ALLEY-4)
+      (LINE 3)
+      (CORRIDOR 768)
+      (STATION BACK-ALLEY-3)>
+
+<ROOM BACK-ALLEY-4
+      (IN ROOMS)
+      (DESC "Back Alley")
+      (LDESC
+"You are in an alley behind Outfitters International. An abandoned
+field lies to the south.")
+      (GLOBAL LOCKED-DOOR FIELD)
+      (FLAGS RLANDBIT ONBIT)
+      (NORTH "The door is locked.")
+      (SOUTH "You can't get through the weeds.")
+      (WEST TO BACK-ALLEY-3)
+      (EAST TO BACK-ALLEY-5)
+      (LINE 3)
+      (CORRIDOR 512)
+      (STATION BACK-ALLEY-4)
+      (ACTION BACK-ALLEY-4-F)>
+
+<ROUTINE BACK-ALLEY-4-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,LOCKED-DOOR ,P?SDESC "back door">)>>
+
+<ROOM BACK-ALLEY-5
+      (IN ROOMS)
+      (DESC "Back Alley")
+      (LDESC
+"You're at the east end of an east/west alley. The back door of
+The Shanty is to the north, and an overgrown field is to the south.
+Narrow paths to the northeast and southeast lead to the Ocean Road.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL LOCKED-DOOR FIELD)
+      (NORTH "The door is locked.")
+      (SOUTH "You can't get through the weeds.")
+      (WEST TO BACK-ALLEY-4)
+      (NE TO OCEAN-ROAD-1)
+      (SE TO OCEAN-ROAD-2)
+      (LINE 3)
+      (CORRIDOR 512)
+      (STATION BACK-ALLEY-5)
+      (ACTION BACK-ALLEY-5-F)>
+
+<ROUTINE BACK-ALLEY-5-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,LOCKED-DOOR ,P?SDESC "back door">)>>
+
+<ROOM RED-BOAR-INN
+      (IN ROOMS)
+      (DESC "Red Boar Inn")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"This is the lobby of the Red Boar Inn, a place with the charm of a
+two-dollar flophouse. The Wharf Road is outside, to the north, and a
+stairway leads up to the rooms to the south.")
+      (GLOBAL STAIRS WALLPAPER CARPET FRONT-DOOR)
+      (NORTH TO WHARF-ROAD-1)
+      (OUT TO WHARF-ROAD-1)
+      (SOUTH TO UPSTAIRS-HALLWAY)
+      (UP TO UPSTAIRS-HALLWAY)
+      (LINE 2)
+      (STATION RED-BOAR-INN)
+      (PSEUDO "MAIL" MAIL-PSEUDO "MESSAG" MESSAGE-PSEUDO)
+      (ACTION RED-BOAR-INN-F)>
+
+<ROUTINE RED-BOAR-INN-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,SPEAR-CARRIER ,RED-BOAR-INN>
+		<PUTP ,SPEAR-CARRIER ,P?SDESC "desk clerk">
+		<PUTP ,SPEAR-CARRIER ,P?LDESC 
+"A desk clerk sits behind the counter.">
+		<PUTP ,GLOBAL-SURFACE ,P?SDESC "counter">
+		<MOVE-SHARED-OBJECTS ,RED-BOAR-INN>
+		<RFALSE>)>>
+
+<ROUTINE MAIL-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "mail">)
+	       (<VERB? ASK-FOR ASK-CONTEXT-FOR>
+		<RFALSE>)
+	       (T
+		<GLOBAL-NOT-HERE-PRINT ,PSEUDO-OBJECT>
+		<RFATAL>)>>
+
+<ROUTINE MESSAGE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "message">)
+	       (T <MAIL-PSEUDO>)>>
+
+<ROOM UPSTAIRS-HALLWAY
+      (IN ROOMS)
+      (DESC "Upstairs Hallway")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are at the top of the stairs in the Red Boar. Your room is to
+the south, and other rooms line the hall. The lighting in
+the hallway is dim and drab like the wallpaper and carpeting.")
+      (GLOBAL BEDROOM-DOOR STAIRS WALLPAPER CARPET)
+      (IN TO BEDROOM IF BEDROOM-DOOR IS OPEN)
+      (SOUTH TO BEDROOM IF BEDROOM-DOOR IS OPEN)
+      (EAST "The people in those rooms aren't interesting.")
+      (WEST "The people in those rooms aren't interesting.")
+      (DOWN TO RED-BOAR-INN)
+      (NORTH TO RED-BOAR-INN)
+      (LINE 2)
+      (STATION UPSTAIRS-HALLWAY)>
+
+<ROOM BEDROOM
+      (IN ROOMS)
+      (DESC "Your Room")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You're in your room in the Red Boar Inn. It's sparsely furnished, but
+comfortable enough. To the north is the door, and there's a closet without
+a door to the west.")
+      (GLOBAL BEDROOM-DOOR WALLPAPER CARPET WINDOW)
+      (OUT TO UPSTAIRS-HALLWAY IF BEDROOM-DOOR IS OPEN)
+      (NORTH TO UPSTAIRS-HALLWAY IF BEDROOM-DOOR IS OPEN)
+      (WEST PER BEDROOM-W)
+      (IN PER BEDROOM-W)
+      (PSEUDO "CLOTHE" CLOTHES-PSEUDO)
+      (LINE 2)
+      (STATION BEDROOM)
+      (ACTION BEDROOM-F)>
+
+<ROUTINE BEDROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-FLASH>
+		<COND (<AND <IN? ,WEASEL ,BEDROOM>
+			    <NOT <VERB? LOOK>>>
+		       <JIGS-UP 
+"The Weasel is rummaging through your stuff. He notices you, and
+before you have a chance to react, he smiles then cuts your throat.">)
+		      (,BEDROOM-MESSAGE
+		       <TELL ,BEDROOM-MESSAGE>
+		       <CRLF>
+		       <SETG BEDROOM-MESSAGE <>>)>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<AND <VERB? TAKE>
+		     	    <PRSO? ,PSEUDO-OBJECT>>
+		       <TELL-CLOTHES>)>)>>
+
+<ROUTINE BEDROOM-W ("OPTIONAL" (PRINT? T))
+	 <COND (.PRINT? <TELL "It's not a walk-in closet." CR>)>
+	 <RFALSE>>
+
+<OBJECT BED
+	(IN BEDROOM)
+	(DESC "bed")
+	(SYNONYM BED COT MATTRE)
+	(FLAGS VEHBIT SURFACEBIT CONTBIT OPENBIT TRANSBIT)
+	(LDESC "A comfortable bed sits along the wall.")
+	(CAPACITY 30)
+	(STATION 30) ;"metal content"
+	(ACTION BED-F)>
+
+<ROUTINE BED-F ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND ,PRSO
+			    <OR <IN? ,PRSO ,PLAYER>
+			   	<IN? ,PRSO ,BED>
+			   	<PRSO? ,GLOBAL-ROOM>
+			   	<AND <VERB? DROP> <PRSO? ,BED>>>>
+		       <RFALSE>)
+		      (<AND <VERB? EXAMINE>
+			    <PRSO? ,BUREAU ,CLOSET>>
+		       <RFALSE>)
+		      (<NOT <BED-VERB?>>
+		       <TELL "You should get out of bed first." CR>
+		       <RFATAL>)>)
+	       (<NOT .RARG>
+		<COND (<AND <VERB? BOARD>
+			    <OR <FIRST? ,BED>
+				<WEARING-SOMETHING?>>>
+		       <TELL-NOT-COMFORTABLE>
+		       ;<TELL "That would be uncomfortable." CR>)>)>>
+
+<ROUTINE BED-VERB? ()
+	 <COND (<VERB? BRIEF SUPER-BRIEF DIAGNOSE VERBOSE INVENTORY QUIT
+		       RESTART RESTORE SAVE SCORE $VERIFY VERSION AGAIN
+		       ;ANSWER ;REPLY ASK-ABOUT ASK-CONTEXT-ABOUT ASK-FOR
+		       ASK-CONTEXT-FOR BREATHE ;BUG $CALL CALL FIND CHOMP
+		       COUNT CURSES DISEMBARK GOODBYE HELLO HELP
+		       ALARM LATITUDE LONGITUDE LISTEN LOOK LOOK-INSIDE
+		       CHASTISE MAYBE YES NO MUMBLE ;ADVENTURE PRAY SCRIPT SIT
+		       SIT-ON UNSCRIPT SMELL STAND STAY TELL SAY SLEEP TIME
+		       WAIT WAIT-FOR WAVE-AT WIN YELL ;ZORK WHAT>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+ 
+<OBJECT BUREAU
+	(IN BEDROOM)
+	(DESC "dresser")
+	(FDESC "In a corner of the room is a lopsided wooden dresser.")
+	(SYNONYM BUREAU DRESSE DRAWER)
+	(ADJECTIVE OLD WOODEN LOPSID TILTED)
+	(FLAGS CONTBIT)
+	(CAPACITY 20)
+	(ACTION BUREAU-F)>
+
+<ROUTINE BUREAU-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,BUREAU ,OPENBIT>
+		       <TELL-ALREADY "open">)
+		      (T
+		       <FSET ,BUREAU ,OPENBIT>
+		       <TELL "Opening the " D ,BUREAU " reveals ">
+		       <TELL-BUREAU-CONTENTS>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,BUREAU ,OPENBIT>
+		       <FCLEAR ,BUREAU ,OPENBIT>
+		       <TELL "Closed." CR>)
+		      (T <TELL-ALREADY "closed">)>)
+	       (<AND <VERB? PUT-ON>
+		     <PRSI? ,BUREAU>>
+		<COND (<IDROP>
+		       <TELL "It slides off onto the floor." CR>)>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+	        <TELL "It's a tilted old wooden " D ,BUREAU>
+		<COND (<FSET? ,BUREAU ,OPENBIT>
+		       <COND (<FIRST? ,BUREAU>
+			      <TELL ". In addition to your clothes, you find ">
+			      <PRINT-CONTENTS ,BUREAU>
+			      <TELL " inside." CR>)
+			     (T <TELL ". Your clothes are in it." CR>)>)
+		      (T <TELL ", which is closed." CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<FSET? ,BUREAU ,OPENBIT>
+		       <TELL "The " D ,BUREAU " contains ">
+		       <TELL-BUREAU-CONTENTS>)>)>>
+
+<ROUTINE TELL-BUREAU-CONTENTS ()
+	 <COND (<FIRST? ,BUREAU>
+		<PRINT-CONTENTS ,BUREAU>
+		<TELL ", as well as">)
+	       (T <TELL "nothing but">)>
+	 <TELL " your clothes." CR>>
+
+<OBJECT PASSBOOK
+	(IN BUREAU)
+	(DESC "Mariners' Trust passbook")
+	(SYNONYM PASSBOOK BANKBOOK)
+	(ADJECTIVE BANK MARINE TRUST DISTIN)
+	(FLAGS TAKEBIT READBIT)
+	(SIZE 4)
+	(VALUE 10)
+	(ACTION PASSBOOK-F)>
+
+<ROUTINE PASSBOOK-F ()
+	 <COND ;(<VERB? TAKE>
+		<COND (<ITAKE <>>
+		       <TELL 
+"Taken. You notice that it's a little too big to be carried inconspicuously."
+CR>)
+		      (T <RFALSE>)>)
+	       (<VERB? EXAMINE>
+		<COND (<FSET? ,PASSBOOK ,RMUNGBIT>
+		       <TELL-SOGGY>)
+		      (T
+		       <TELL "This is a distinctive " D ,BANK " passbook">
+		       <COND (<AND <NOT <IN? ,PASSBOOK ,MCGINTY>>
+			    	   <NOT <IN? ,PASSBOOK ,WEASEL>>>
+			      <TELL
+" which shows a balance of $" N ,PASSBOOK-BALANCE ". The last date stamped in
+it is " ,STUPID-PROBLEM-STRING>)>
+		       <TELL "." CR>)>)
+	       (<VERB? READ OPEN LOOK-INSIDE>
+		<COND (<OR <IN? ,PASSBOOK ,WEASEL>
+			   <IN? ,PASSBOOK ,MCGINTY>>
+		       <START-SENTENCE <LOC ,PASSBOOK>>
+		       <TELL " has it." CR>)
+		      (T
+		       <PERFORM ,V?EXAMINE ,PASSBOOK>
+		       <RTRUE>)>)
+	       (<VERB? CLOSE>
+		<TELL "It's closed." CR>)>>
+
+<GLOBAL STUPID-PROBLEM-STRING "April 23">
+
+<OBJECT KEY
+	(IN BUREAU)
+	(DESC "room key")
+	(SYNONYM KEY)
+	(ADJECTIVE ROOM)
+	(TEXT "It's your room key.")
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 4)
+	(STATION 5) ;"metal content"
+	(ACTION KEY-F)>
+
+<ROUTINE KEY-F ()
+	 <COND (<AND <VERB? LOCK>
+		     <PRSO? ,BEDROOM-DOOR>>
+		<COND (,BEDROOM-DOOR-LOCKED
+		       <TELL-ALREADY "locked">
+		       <RTRUE>)
+		      (<FSET? ,BEDROOM-DOOR ,OPENBIT>
+		       <TELL "You should close it first." CR>
+		       <RTRUE>)
+		      (T
+		       <SETG BEDROOM-DOOR-LOCKED T>
+		       <TELL-NOW ,BEDROOM-DOOR "locked">
+		       <RTRUE>)>)
+	       (<AND <VERB? UNLOCK>
+		     <PRSO? ,BEDROOM-DOOR>>
+		<COND (<NOT ,BEDROOM-DOOR-LOCKED>
+		       <TELL-ALREADY "unlocked">
+		       <RTRUE>)
+		      (T
+		       <SETG BEDROOM-DOOR-LOCKED <>>
+		       <TELL-NOW ,BEDROOM-DOOR "unlocked">
+		       <RTRUE>)>)
+	       (<AND <VERB? OPEN>
+		     <PRSO? ,BEDROOM-DOOR>>
+		<PERFORM ,V?UNLOCK ,BEDROOM-DOOR ,KEY>
+		<PERFORM ,V?OPEN ,BEDROOM-DOOR>
+		<RTRUE>)>>
+
+<OBJECT NOTE
+	(IN BEDROOM)
+	(DESC "note")
+	(SYNONYM NOTE)
+	(ADJECTIVE HANDWRITTEN)
+	(FDESC 
+"On the floor is a note that must have been slipped under the
+door while you slept.")
+	(TEXT 
+"The note is hastily scrawled:|
+|
+\"If you're interested in a big deal, be at The Shanty at 8:30 this
+morning.|
+               -Johnny\"")
+	(SIZE 4)
+	(FLAGS TAKEBIT READBIT)
+	(ACTION NOTE-F)>
+
+<ROUTINE NOTE-F ()
+	 <COND (<AND <VERB? EXAMINE READ>
+		     <FSET? ,NOTE ,RMUNGBIT>>
+		<TELL-SOGGY>)>>
+
+<OBJECT BOOK
+	(IN BUREAU)
+	(DESC "book of shipwrecks")
+	(SYNONYM BOOK TEXT SHIPWR)
+	(ADJECTIVE SHIPWR OCEAN MARINE NAUTIC HEVLIN)
+	(TEXT "This book is included in your Cutthroats package.")
+	(FLAGS TAKEBIT READBIT)
+	(ACTION BOOK-F)>
+
+<ROUTINE BOOK-F ()
+	 <COND (<AND <FSET? ,BOOK ,RMUNGBIT>
+		     <VERB? OPEN READ EXAMINE>>
+		<TELL-SOGGY>)
+	       (<VERB? OPEN CLOSE>
+		<PERFORM ,V?READ ,BOOK>
+		<RTRUE>)>>
+
+<ROUTINE CLOTHES-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "bunch of clothes">)
+	       (<VERB? WEAR DISEMBARK>
+		<TELL-CLOTHES>)>>
+
+<ROUTINE TELL-CLOTHES ()
+	 <TELL "What you have on now is fine." CR>>
+
+<OBJECT CLOSET
+	(IN BEDROOM)
+	(DESC "closet")
+	(SYNONYM CLOSET)
+	(CAPACITY 40)
+	(FLAGS CONTBIT OPENBIT)
+	(DESCFCN CLOSET-F)
+	(ACTION CLOSET-F)>
+
+<ROUTINE CLOSET-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<TELL "The closet has no door." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"It looks as if the door was torn off its hinges a long time ago. ">
+		<RFALSE>)
+	       (<VERB? THROUGH BOARD>
+		<BEDROOM-W>
+		<RTRUE>)>>
+
+<OBJECT WET-SUIT
+	(IN CLOSET)
+	(DESC "wet suit")
+	(SYNONYM SUIT)
+	(ADJECTIVE WET SCUBA)
+	(FLAGS WEARBIT TAKEBIT)
+	(ACTION WET-SUIT-F)>
+
+<ROUTINE WET-SUIT-F ()
+	 <COND (<AND <VERB? DROP THROW DISEMBARK>
+		     <OR <FSET? ,AIR-TANK ,WORNBIT>
+			 <FSET? ,FLIPPERS ,WORNBIT>
+			 <FSET? ,MASK ,WORNBIT>>>
+		<TELL-YOU-CANT
+"get it over the other equipment you're wearing.">)
+	       (<AND <VERB? WEAR>
+		     <FSET? ,DEEP-SUIT ,WORNBIT>>
+		<TELL-YOU-CANT "fit that over the " <>>
+		<TELL D ,DEEP-SUIT "." CR>)>>
+
+<OBJECT FLIPPERS
+	(IN CLOSET)
+	(DESC "pair of flippers")
+	(SYNONYM FLIPPE PAIR FINS FIN)
+	(ADJECTIVE SWIM)
+	(FLAGS WEARBIT TAKEBIT)
+	(ACTION FLIPPERS-F)>
+
+<ROUTINE FLIPPERS-F ()
+	 <COND (<VERB? WEAR>
+		<COND (<FSET? ,WET-SUIT ,WORNBIT>
+		       <RFALSE>)
+		      (<FSET? ,DEEP-SUIT ,WORNBIT>
+		       <TELL "They don't fit with the " D ,DEEP-SUIT "." CR>)
+		      (T 
+		       <TELL
+"The " D ,WET-SUIT " won't fit over them." CR>)>)>>
+
+<OBJECT MASK
+	(IN CLOSET)
+	(DESC "diving mask")
+	(SYNONYM MASK)
+	(ADJECTIVE DIVING DIVER DIVERS SCUBA)
+	(FLAGS WEARBIT TAKEBIT TRANSBIT)
+	(ACTION MASK-F)>
+
+<ROUTINE MASK-F ()
+	 <COND (<VERB? WEAR>
+		<COND (<FSET? ,WET-SUIT ,WORNBIT>
+		       <RFALSE>)
+		      (<FSET? ,DEEP-SUIT ,WORNBIT>
+		       <TELL "It won't fit over the " D ,DEEP-SUIT "'s hood." CR>)
+		      (T <TELL
+"You couldn't fit the " D ,WET-SUIT " over it." CR>)>)
+	       (<AND <EQUAL? <GETP ,HERE ,P?LINE>
+			     ,UNDERWATER-LINE-C>
+		     <FSET? ,MASK ,WORNBIT>
+		     <VERB? DROP THROW DISEMBARK>
+		     <NOT <AIRTIGHT-ROOM?>>>
+		<JIGS-UP
+"As you remove the mask, you find you can't breathe.">)>>
+
+<OBJECT AIR-TANK
+	(IN CLOSET)
+	(DESC "air tank")
+	(SYNONYM TANK GAUGE)
+	(ADJECTIVE AIR DOUBLE ALUMIN SCUBA)
+	(FLAGS TAKEBIT WEARBIT VOWELBIT)
+	(STATION 25) ;"metal content"
+	(ACTION AIR-TANK-F)>
+
+<ROUTINE AIR-TANK-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"This double tank made of aluminum is designed to fit over a
+" D ,WET-SUIT ". Its gauge is currently at ">
+		<COND (<G? ,AIR-LEFT 150>
+		       <TELL "full">)
+		      (<G? ,AIR-LEFT 100>
+		       <TELL "fairly full">)
+		      (<G? ,AIR-LEFT 50>
+		       <TELL "medium">)
+		      (<G? ,AIR-LEFT 15>
+		       <TELL "almost empty">)
+		      (T <TELL "empty">)>
+		<TELL "." CR>)
+	       (<VERB? FILL>
+		<COND (<OR <PRSI? ,COMPRESSOR>
+			   <AND <PRSI? ,AIR>
+				<IN? ,COMPRESSOR ,HERE>>>
+		       <COND (<G? <GETP ,COMPRESSOR ,P?NORTH> 0>
+			      <TELL
+"The salesman tells you to rent the compressor first." CR>)
+			     (<FSET? ,AIR-TANK ,WORNBIT>
+			      <TELL-CONTORT>)
+			     (T
+			      <SETG AIR-LEFT 160>
+		       	      <TELL-NOW ,AIR-TANK "filled">)>)
+		      (<PRSI? ,MM-COMPRESSOR>
+		       <TELL
+"There's no way to get air from this compressor to the tank." CR>)
+		      (<PRSI? ,AIR>
+		       <TELL "The right compressor would probably help." CR>)>)
+	       (<VERB? EMPTY>
+		<COND (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		       <JIGS-UP "Not a very good idea...">)
+		      (<==? ,AIR-LEFT 0>
+		       <TELL-ALREADY "empty">)
+		      (T
+		       <SETG AIR-LEFT 0>
+		       <TELL-NOW ,AIR-TANK "empty">)>)
+	       (<VERB? WEAR>
+		<COND (<FSET? ,WET-SUIT ,WORNBIT>
+		       <RFALSE>)
+		      (<FSET? ,DEEP-SUIT ,WORNBIT>
+		       <TELL
+"This tank can't be worn with a " D ,DEEP-SUIT "." CR>)
+		      (T <TELL 
+"This tank should be worn outside a " D ,WET-SUIT "." CR>)>)
+	       (<AND <EQUAL? <GETP ,HERE ,P?LINE>
+			     ,UNDERWATER-LINE-C>
+		     <VERB? DROP THROW>
+		     <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>
+		     <NOT <AIRTIGHT-ROOM?>>>
+		<JIGS-UP
+"As the tank falls away, it pulls the airhose with it, making you
+regret your lack of gills.">)>>
+
+<GLOBAL AIR-LEFT 0>
+
+;<ROUTINE WHAT-FOO (OBJ)
+	 <COND (<PRSO? .OBJ>
+		<TELL "What" PRSO "?" CR>)
+	       (<PRSI? .OBJ>
+		<TELL "What" PRSI "?" CR>)>
+	 <SETG P-IT-OBJECT <>>
+	 <RTRUE>>
+
+<ROOM MCGINTY-HQ
+      (IN ROOMS)
+      (DESC "McGinty Salvage")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL BACK-WINDOW FRONT-DOOR LOCKED-DOOR)
+      (LDESC 
+"You are in the McGinty Salvage office, a concern whose main business is
+salvaging wrecks. The place is a mess, and the floor
+is littered with chewed-on cigar stubs. To the
+north lies the Wharf Road. You can't help feeling uncomfortable here.")
+      (NORTH TO WHARF-ROAD-2)
+      (OUT TO WHARF-ROAD-2)
+      (SOUTH PER MCGINTY-HQ-S)
+      (PSEUDO "CHAIR" MCGINTY-CHAIR-PSEUDO)
+      (LINE 0)
+      (STATION WHARF-ROAD-2)
+      (ACTION MCGINTY-HQ-F)>
+
+<ROUTINE MCGINTY-HQ-F (RARG "AUX" DEST)
+	 <COND (<==? .RARG ,M-ENTER>
+		<PUTP ,LOCKED-DOOR ,P?SDESC "back door">
+	        <PUTP ,GLOBAL-SURFACE ,P?SDESC "desk">
+		<MOVE-SHARED-OBJECTS ,MCGINTY-HQ>
+		<RFALSE>)
+	       (<==? .RARG ,M-FLASH>
+		<COND (,MCGINTY-HQ-OCCUPIED
+		       <COND (<NOT <IN? ,PASSBOOK ,PLAYER>>
+			      <MCGINTY-F ,M-OBJDESC>
+		       	      <CRLF>)>
+		       <JIGS-UP
+"As McGinty sees someone climbing through the window, he pulls out a gun
+and fires. His aim is better than your luck.">)
+		      (<AND <IN? ,MCGINTY ,MCGINTY-HQ>
+			    <SET DEST <GET <GET ,GOAL-TABLES ,MCGINTY-C>
+					   ,GOAL-S>>
+			    <NOT <==? .DEST ,WHARF-ROAD-2>>>
+		       <MCGINTY-ERRAND>)>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<PRSO? ,GLOBAL-SURFACE>
+		       <COND (<VERB? OPEN>
+			      <TELL "It's locked." CR>)
+			     (<VERB? UNLOCK>
+			      <TELL-NO-KEY>)
+			     (<VERB? CLOSE>
+			      <TELL-ALREADY "closed">)>)>)>>
+
+<ROUTINE MCGINTY-HQ-S ("OPTIONAL" (PRINT? T))
+	 <COND (<FSET? ,BACK-WINDOW ,OPENBIT>
+		<TELL-THRU-WINDOW>
+		<RETURN ,BACK-ALLEY-2>)
+	       (<PRSO? ,WINDOW>
+		<COND (.PRINT? <TELL-CLOSED "window">)>
+		<RFALSE>)
+	       (T
+		<COND (.PRINT? <TELL "The door is locked." CR>)>
+		<RFALSE>)>>
+
+<ROUTINE TELL-THRU-WINDOW ()
+	 <TELL "You climb through the open window..." CR CR>>
+
+<ROUTINE MCGINTY-CHAIR-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "chair">)
+	       (<VERB? PUT-ON>
+		<TELL "It's too lopsided." CR>)
+	       (<VERB? CLIMB-ON SIT-ON>
+		<TELL-WHY-BOTHER>)
+	       (<VERB? EXAMINE>
+		<TELL "It's an impressively beat-up chair." CR>)>>
+
+;<OBJECT PAPERS
+	(IN MCGINTY-HQ)
+	(DESC "mess of old papers")
+	(SYNONYM MESS PAPER PAPERS)
+	(ADJECTIVE OLD CRUMPL)
+	(FLAGS TRYTAKEBIT NDESCBIT READBIT)
+	(ACTION PAPERS-F)>
+
+;<ROUTINE PAPERS-F ()
+	 <COND (<VERB? EXAMINE READ>
+		<TELL
+"These are old papers relating to various deals of " D ,MCGINTY
+"'s. None of them
+pertain to you." CR>)
+	       (<VERB? TAKE>
+		<COND (<AND <==? ,HERE ,MCGINTY-HQ>
+			    <IN? ,MCGINTY ,MCGINTY-HQ>>
+		       <TELL
+D ,MCGINTY " squeals angrily. \"Keep your hands off of my private papers!\""
+CR>)
+		      (T <TELL "Why bother? They're not very interesting." CR>)>)>>
+
+<OBJECT STUBS
+	(IN MCGINTY-HQ)
+	(DESC "cigar stub")
+	(SYNONYM STUB STUBS BUTT BUTTS)
+	(ADJECTIVE OLD CHEWED CIGAR SMELLY CHEAP)
+	(FLAGS TRYTAKEBIT NDESCBIT)
+	(ACTION STUBS-F)>
+
+<ROUTINE STUBS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The floor is littered with stubs from cheap cigars." CR>)
+	       (<VERB? SMELL>
+		<TELL "The aroma is reminiscent of burning tires." CR>)
+	       (<VERB? TAKE>
+		<TELL
+"You think twice and realize you don't want to carry a used cigar." CR>)>>
+
+<OBJECT ENVELOPE
+	(IN LOCAL-GLOBALS)
+	(DESC "envelope")
+	(SYNONYM ENVELO WRITIN)
+	(ADJECTIVE BUSINE)
+	(FLAGS TAKEBIT READBIT CONTBIT VOWELBIT INVISIBLE)
+	(TEXT
+"The business envelope has the McGinty Salvage return address,
+and \"Weasel's Merchant Seaman's card - collateral for deal\" scribbled in
+McGinty's hand.")
+	(FDESC "An envelope with some writing on it sits on the desk.")
+	(SIZE 4)
+	(CAPACITY 2)
+	(ACTION ENVELOPE-F)>
+
+<ROUTINE ENVELOPE-F ("AUX" L)
+	 <COND (<AND <VERB? OPEN TAKE LOOK-UNDER>
+		     <==? ,HERE ,MCGINTY-HQ>
+		     <IN? ,MCGINTY ,MCGINTY-HQ>
+		     <NOT <IN? ,ENVELOPE ,PLAYER>>>
+		<TELL
+D ,MCGINTY " squeals angrily. \"Keep your hands off of my private papers!\""
+CR>)
+	       (<AND <VERB? TAKE>
+		     <IN? ,WEASEL ,HERE>>
+		<WEASEL-BEATS-YOU>)
+	       (<AND <IN? ,ENVELOPE ,UNDER-BUNK>
+		     <NOT <VERB? TAKE TELL ASK-ABOUT>>>
+	        <TELL "It's hidden under the mattress." CR>)
+	       (<AND <NOT <IN? ,ENVELOPE ,PLAYER>>
+		     <FSET? <SET L <LOC ,ENVELOPE>> ,PERSON>
+		     <VERB? OPEN>>
+		<START-SENTENCE .L>
+		<TELL " tells you to keep your hands off it." CR>)
+	       (<FSET? ,ENVELOPE ,RMUNGBIT>
+		<COND (<VERB? EXAMINE>
+		       <TELL "It's a soggy " D ,ENVELOPE "." CR>)
+		      (<VERB? READ>
+		       <TELL-SOGGY>)>)>>
+
+<ROOM VACANT-LOT
+      (IN ROOMS)
+      (DESC "Vacant Lot")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are standing on the former site of the Outfitters International warehouse,
+which burned down a few months back. To the north is the Wharf Road and an
+alley is to the south.")
+      (GLOBAL LIGHTHOUSE)
+      (NORTH TO WHARF-ROAD-3)
+      (SOUTH TO BACK-ALLEY-3)
+      (EAST "There's a wall in the way.")
+      (WEST "There's a wall in the way.")
+      (LINE 0)
+      (CORRIDOR 256)
+      (STATION WHARF-ROAD-3)>
+
+<ROOM OUTFITTERS-HQ
+      (IN ROOMS)
+      (DESC "Outfitters Int'l")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"This is Outfitters International, a store that specializes in marine supplies.
+There is a long, high counter separating the supplies and the front area. To
+the north is the Wharf Road.")
+      (GLOBAL TRAWLER SALVAGER FRONT-DOOR)
+      (NORTH TO WHARF-ROAD-4)
+      (OUT TO WHARF-ROAD-4)
+      (STATION WHARF-ROAD-4)
+      (LINE 1)
+      (PSEUDO "MERCHA" MERCHANDISE-PSEUDO)
+      (ACTION OUTFITTERS-HQ-F)>
+
+<ROUTINE OUTFITTERS-HQ-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,SPEAR-CARRIER ,OUTFITTERS-HQ>
+		<PUTP ,SPEAR-CARRIER ,P?SDESC "salesman">
+		<PUTP ,SPEAR-CARRIER ,P?LDESC 
+"A salesman stands behind the counter.">
+		<PUTP ,GLOBAL-SURFACE ,P?SDESC "counter">
+		<MOVE-SHARED-OBJECTS ,OUTFITTERS-HQ>
+		<COND (<AND <QUEUED? I-EQUIP>
+			    <NOT <IN? ,MCGINTY ,OUTFITTERS-HQ>>>
+		       <SETG I-WAIT-DURATION 9>
+		       <SETG I-WAIT-RTN ,I-EQUIP>)>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-BEG>
+		<COND (<EQUAL? ,PSEUDO-OBJECT ,PRSO ,PRSI>
+		       <MERCHANDISE-PSEUDO>)
+		      (<PRSO? ,TRAWLER ,SALVAGER>
+		       <COND (<VERB? RENT>
+			      <COND (<AND ,JOHNNY-MADE-DEAL
+					  <==? ,SHIP-CHOSEN ,PRSO>>
+				     <TELL
+"\"Johnny already took care of that.\"" CR>)
+				    (T <TELL-YOU-CANT "afford that.">)>)
+			     (<VERB? BUY FIND ASK-ABOUT ASK-CONTEXT-ABOUT>
+			      <RFALSE>)
+			     (T <GLOBAL-NOT-HERE-PRINT ,PRSO>)>)
+		      (<PRSI? ,TRAWLER ,SALVAGER>
+		       <COND (<VERB? ASK-ABOUT TELL>
+			      <RFALSE>)
+			     (T <GLOBAL-NOT-HERE-PRINT ,PRSI>)>)
+		      (<AND <VERB? BUY RENT>
+		       	    ,AMT-OWED>
+		       <TELL
+"The salesman looks sorry. \"I can't sell
+you anything until you pay the $" N ,AMT-OWED " of " D ,JOHNNY "'s.\"" CR>)
+		      (<AND <VERB? TAKE>
+			    <==? <GETP ,PRSO ,P?NORTH> -1>
+			    ,JOHNNY-MADE-DEAL
+			    <NOT ,DELIVERY-MADE>
+			    <NOT <IN? ,PRSO ,PLAYER>>>
+		       <TELL
+"The salesman says, \"Don't bother. It'll be delivered to the ship.\"" CR>)
+		      (<AND <VERB? OPEN LAMP-ON>
+			    <G? <GETP ,PRSO ,P?NORTH> 0>>
+		       <TELL
+"The salesman stops you. \"You want to play with it, you buy it.\"" CR>)>)>>
+
+<ROUTINE MERCHANDISE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "merchandise">)
+	       (T
+		<TELL-REFER-INDIVIDUAL " items">
+		<RFATAL>)>>
+
+<OBJECT PRICE-LIST
+	(IN OUTFITTERS-HQ)
+	(DESC "price list")
+	(SYNONYM LIST LISTIN CATALO)
+	(ADJECTIVE PRICE COMPLE)
+	(FLAGS TAKEBIT READBIT)
+	(SIZE 4)
+	(TEXT "This price list is included in your Cutthroats package.")>
+
+;"May this code rest in peace."
+;<ROUTINE PRICE-LIST-F ("AUX" OBJ PRICE)
+	 <COND (<VERB? EXAMINE READ>
+		<TELL
+"    OUTFITTERS INTERNATIONAL|
+       CURRENT PRICE LIST|
+|
+ITEM (PRICE)" CR>
+		<SET OBJ <FIRST? ,OUTFITTERS-HQ>>
+		<REPEAT ()
+			<COND (<NOT .OBJ>
+			       <RTRUE>)
+			      (<G? <SET PRICE <GETP .OBJ ,P?NORTH>> 0>
+			       <TELL D .OBJ " ($" N .PRICE>
+			       <COND (<FSET? .OBJ ,RENTBIT>
+				      <TELL " rental">)>
+			       <TELL ")" CR>)>
+			<SET OBJ <NEXT? .OBJ>>>)>>
+
+<OBJECT SPEAR-GUN
+	(IN OUTFITTERS-HQ)
+	(DESC "spear gun")
+	(SYNONYM GUN)
+	(ADJECTIVE SPEAR)
+	(FLAGS NDESCBIT)
+	(NORTH 1);"price - placeholder here"
+	(ACTION OUT-OF-STOCK-F)>
+
+<ROUTINE OUT-OF-STOCK-F ()
+	 <COND (<VERB? BUY>
+		<TELL "The salesman checks and says, ">
+		<TELL-WERE-OUT>)
+	       (<VERB? ASK-ABOUT>
+		<COND (<==? ,HERE ,OUTFITTERS-HQ>
+		       <TELL-WERE-OUT>)>)
+	       (<OR <PRSO? ,SPEAR-GUN> <PRSI? ,SPEAR-GUN>>
+		<GLOBAL-NOT-HERE-PRINT ,SPEAR-GUN>)
+	       (<OR <PRSO? ,COMPASS> <PRSI? ,COMPASS>>
+		<GLOBAL-NOT-HERE-PRINT ,COMPASS>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,WINCH>)>>
+
+<ROUTINE TELL-WERE-OUT ()
+	 <TELL "\"We're out of those. Try next week.\"" CR>>
+
+<OBJECT COMPASS
+	(IN OUTFITTERS-HQ)
+	(DESC "compass")
+	(SYNONYM COMPAS)
+	(ADJECTIVE SPARE)
+	(FLAGS NDESCBIT)
+	(NORTH 1);"price - placeholder here"
+	(ACTION OUT-OF-STOCK-F)>
+
+<OBJECT WINCH
+	(IN OUTFITTERS-HQ)
+	(DESC "winch")
+	(SYNONYM WINCH)
+	(ADJECTIVE SPARE)
+	(FLAGS NDESCBIT)
+	(NORTH 1);"price - placeholder here"
+	(ACTION OUT-OF-STOCK-F)>
+
+<OBJECT DRY-CELL
+	(IN OUTFITTERS-HQ)
+	(DESC "dry cell")
+	(SYNONYM BATTER CELL)
+	(ADJECTIVE NINE VOLT DRY NINE-V AJAX POWER)
+	(FLAGS NDESCBIT READBIT)
+	(SIZE 3)
+	(NORTH 5) ;"price"
+	(TEXT "\"Ajax 9-volt dry cell.\"")
+	(ACTION DRY-CELL-F)>
+
+<ROUTINE DRY-CELL-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The ">
+		<COND (<FSET? ,DRY-CELL ,RMUNGBIT>
+		       <TELL "corroded ">)>
+		<TELL D ,DRY-CELL " reads ">
+		<RFALSE>)>>
+
+<OBJECT NET
+	(IN OUTFITTERS-HQ)
+	(DESC "net")
+	(SYNONYM NET)
+	(FLAGS NDESCBIT)
+	(NORTH 50) ;"price"
+	(SIZE 10)
+	(ACTION NET-F)>
+
+<ROUTINE NET-F ()
+	 <COND (<AND <VERB? PUT-ON THROW-OFF>
+		     <PRSO? ,NET>>
+		<MOVE ,NET ,HERE>
+		<TELL "It slides off." CR>)>>
+
+<OBJECT BATTERY
+	(IN OUTFITTERS-HQ)
+	(DESC "C battery")
+	(SYNONYM BATTER CELL)
+	(ADJECTIVE C POWER)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT "\"Ajax C cell.\"")
+	(NORTH 1) ;"price"
+	(SIZE 3)
+	(ACTION BATTERY-F)>
+
+<ROUTINE BATTERY-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The ">
+		<COND (<FSET? ,BATTERY ,RMUNGBIT>
+		       <TELL "corroded">)
+		      (T <TELL "standard">)>
+		<TELL " battery reads ">
+		<RFALSE>)>>
+
+<OBJECT ANCHOR
+	(IN OUTFITTERS-HQ)
+	(DESC "anchor")
+	(SYNONYM ANCHOR)
+	(NORTH 50) ;"price"
+	(FLAGS NDESCBIT VOWELBIT)
+	(SIZE 80)>
+
+<OBJECT TUBE
+	(IN OUTFITTERS-HQ)
+	(DESC "tube of putty")
+	(SYNONYM TUBE PUTTY)
+	(ADJECTIVE TUBE)
+	(FLAGS NDESCBIT CONTBIT READBIT)
+	(CAPACITY 4)
+	(NORTH 15) ;"price"
+	(TEXT
+"The tube has \"Frobizz waterproof putty\" printed on the side.")
+	(ACTION TUBE-F)>
+
+<ROUTINE TUBE-F ()
+	 <COND (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,TUBE>>
+		<TELL "The tube refuses to accept anything." CR>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,GLASS-CASE>
+		     <FSET? ,TUBE ,OPENBIT>
+		     <IN? ,PUTTY ,TUBE>>
+		<PERFORM ,V?PUT-ON ,PUTTY ,GLASS-CASE>
+		<RTRUE>)
+	       (<VERB? SQUEEZE>
+		<COND (<AND <FSET? ,PRSO ,OPENBIT>
+			    <IN? ,PUTTY ,PRSO>>
+		       <MOVE ,PUTTY ,WINNER>
+		       <TELL "You are now holding some putty." CR>)
+		      (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "The tube is apparently empty." CR>)
+		      (T
+		       <TELL-CLOSED "tube">)>)>>
+
+<OBJECT PUTTY
+	(IN TUBE)
+	(DESC "glob of putty")
+	(SYNONYM PUTTY GUNK GLOB)
+	(ADJECTIVE GLOB)
+	(SIZE 4)
+	(FLAGS TAKEBIT)
+	(ACTION PUTTY-F)>
+
+<ROUTINE PUTTY-F ()
+	 <COND (<COMPILER-SUCKS-EXP>
+		<COND (<IN? ,PUTTY ,GLASS-CASE>
+		       <TELL-IN-CRACK>)
+		      (T
+		       <MOVE ,PUTTY ,GLASS-CASE>
+		       <DISABLE <INT I-CASE-LEAK>>
+		       <TELL "The putty seals the crack">
+		       <COND (<OR <IN? ,HOLE-1 ,GLASS-CASE>
+				  <IN? ,HOLE-2 ,GLASS-CASE>>
+			      <TELL " and hole">)
+			     (T <SETG NO-HOLE-PLUGGED T>)>
+		       <TELL " in the " D ,GLASS-CASE "." CR>)>)
+	       (<AND <IN? ,PUTTY ,GLASS-CASE>
+		     <NOT <VERB? EXAMINE FIND>>>
+		<TELL-IN-CRACK>)
+	       (<OR <AND <VERB? OIL>
+			 <EQUAL? ,PRSI ,PUTTY>>
+		    <AND <VERB? PUT>
+			 <EQUAL? ,PRSO ,PUTTY>>>
+		<COND (<PRSI? ,TUBE>
+		       <TELL-YOU-CANT "reverse entropy.">)
+		      (T <TELL "It isn't a lubricant." CR>)>)>>
+
+<ROUTINE COMPILER-SUCKS-EXP ()
+	 <COND (<AND <VERB? PUT PUT-ON>
+		     <OR <PRSI? ,GLASS-CASE>
+			 <AND <PRSI? ,HOLE-1>
+			      <IN? ,HOLE-1 ,GLASS-CASE>>
+			 <AND <PRSI? ,HOLE-2>
+			      <IN? ,HOLE-2 ,GLASS-CASE>>>>
+		<RTRUE>)
+	       (<AND <VERB? FILL PLUG>
+		     <OR <PRSO? ,GLASS-CASE>
+			 <AND <PRSO? ,HOLE-1>
+			      <IN? ,HOLE-1 ,GLASS-CASE>>
+			 <AND <PRSO? ,HOLE-2>
+			      <IN? ,HOLE-2 ,GLASS-CASE>>>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<ROUTINE TELL-IN-CRACK ()
+	 <TELL "The putty is already set in the crack." CR>>
+
+<GLOBAL NO-HOLE-PLUGGED <>>
+
+<OBJECT COMPRESSOR
+	(IN OUTFITTERS-HQ)
+	(DESC "small air compressor")
+	(SYNONYM COMPRE)
+	(ADJECTIVE AIR SMALL HEAVY SEMI-P)
+	(FLAGS NDESCBIT RENTBIT)
+	(TEXT
+"This heavy, semi-portable air compressor can fill scuba tanks.")
+	(SIZE 94)
+	(STATION 75) ;"metal content"
+	(NORTH 100) ;"price"
+	;(ACTION COMPRESSOR-F)>
+
+;<ROUTINE COMPRESSOR-F ()
+	 <COND (<VERB? TAKE>
+		<TELL "It's too heavy." CR>)>>
+
+<OBJECT INFIDEL-BOX
+	(IN OUTFITTERS-HQ)
+	(DESC "location box")
+	(SYNONYM BOX BUTTON)
+	(ADJECTIVE BLACK LOCATI DIRECT)
+	(FLAGS NDESCBIT)
+	(NORTH 1000) ;"price"
+	(ACTION INFIDEL-BOX-F)>
+
+<ROUTINE INFIDEL-BOX-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"This is state-of-the-art electronic equipment that automatically determines
+longitude and latitude when its button is pressed." CR>)
+	       (<VERB? PUSH>
+		<TELL
+"Nothing happens, probably because you're indoors." CR>)>>
+
+<OBJECT DIVING-BOOK
+	(IN OUTFITTERS-HQ)
+	(DESC "diving book")
+	(SYNONYM BOOK)
+	(ADJECTIVE DIVING)
+	(FLAGS NDESCBIT READBIT)
+	(NORTH 20) ;"price"
+	(ACTION DIVING-BOOK-F)>
+
+<ROUTINE DIVING-BOOK-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<FSET? ,DIVING-BOOK ,RMUNGBIT>
+		       <TELL-SOGGY>)
+		      (T <TELL
+"This book is \"Everything About Diving\" by Fritz Zamboni." CR>)>)
+	       (<VERB? READ OPEN>
+		<COND (<FSET? ,DIVING-BOOK ,RMUNGBIT>
+		       <TELL-SOGGY>)
+		      (T <TELL
+"It says nothing you don't already know." CR>)>)>>
+
+<ROUTINE TELL-SOGGY ()
+	 <TELL "It's too soggy." CR>>
+
+<OBJECT MAGNET
+	(IN OUTFITTERS-HQ)
+	(DESC "portable electromagnet")
+	(SYNONYM ELECTR MAGNET)
+	(ADJECTIVE PORTAB ELECTR)
+	(FLAGS NDESCBIT TRANSBIT)
+	(CONTFCN MAGNET-F)
+	(DESCFCN MAGNET-F)
+	(NORTH 250) ;"price"
+	(STATION 20) ;"metal content"
+	(ACTION MAGNET-F)>
+
+<ROUTINE MAGNET-F ("OPTIONAL" (RARG <>) "AUX" F N OBJ)
+	 <COND (<EQUAL? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE WEAR>
+			    <NOT <PRSO? ,MINE>>
+			    ,MAGNET-ON>
+		       <TELL "The magnet's stronger than you are." CR>)
+		      (<VERB? DROP THROW>
+		       <TELL "It's stuck to the magnet." CR>)>)
+	       (<==? .RARG ,M-OBJDESC>
+		<TELL "There is a " D ,MAGNET " here." CR>
+		<COND (<SET F <FIRST? ,MAGNET>>
+		       <COND (<==? .F ,MINE> T)
+			     (,MAGNET-ON
+			      <TELL "Attached to the magnet ">
+			      <COND (<NEXT? .F>
+				     <TELL "are">)
+				    (T <TELL "is">)>
+			      <TELL " ">
+			      <PRINT-CONTENTS ,MAGNET>
+			      <TELL "." CR>)
+			     (T
+			      <DESCRIBE-OBJECT .F T 0>)>)>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<COND (<AND ,MAGNET-ON
+			    <FIRST? ,MAGNET>>
+		       <TELL "The " D ,MAGNET " is on and has ">
+		       <PRINT-CONTENTS ,MAGNET>
+		       <TELL " attached to it." CR>
+		       <SETG P-IT-OBJECT ,MAGNET>)
+		      (T <TELL
+"The " D ,MAGNET " has a switch which is currently ">
+		       <COND (,MAGNET-ON <TELL "on">)
+			     (T <TELL "off">)>
+		       <TELL "." CR>)>)
+	       (<VERB? LAMP-ON>
+		<COND (,MAGNET-ON
+		       <TELL-ALREADY "on">)
+		      (T
+		       <SETG MAGNET-ON T>
+		       <TELL-NOW ,MAGNET "on">
+		       <ATTRACTION>)>)
+	       (<VERB? LAMP-OFF>
+		<COND (,MAGNET-ON
+		       <SETG MAGNET-ON <>>
+		       <TELL-NOW ,MAGNET "off." <>>
+		       <COND (<SET F <FIRST? ,MAGNET>>
+			      <TELL-ALL-FALL>
+			      <REPEAT ()
+			       <COND (<NOT .F> <RETURN>)>
+			       <SET N <NEXT? .F>>
+			       <MOVE .F ,HERE>
+			       <COND (<EQUAL? .F ,MINE>
+				      <FSET ,MINE ,RMUNGBIT>
+				      <TELL CR
+"The mine drifts harmlessly into a corner.">)>
+			       <SET F .N>>)>
+		       <CRLF>)
+		      (T <TELL-ALREADY "off">)>)
+	       (<VERB? DROP THROW>
+		<COND (<IN? ,MINE ,MAGNET>
+		       <COND (,MAGNET-ON
+			      <FSET ,MINE ,RMUNGBIT>)
+			     (T <MOVE ,MINE ,HERE>)>
+		       <RFALSE>)
+		      (<NOT ,MAGNET-ON>
+		       <CLEAR-MAGNET>
+		       <RFALSE>)>)
+	       (<AND <VERB? TAKE>
+		     <PRSO? ,MAGNET>>
+		<COND (<IN? ,MINE ,MAGNET>
+		       <BOOM>)>)
+	       (<OR <AND <VERB? PUT-ON PUT-AGAINST>
+		     	 <PRSO? ,MAGNET>
+			 <SET OBJ ,PRSI>>
+		    <AND <VERB? RUB>
+			 <PRSI? ,MAGNET>
+			 <SET OBJ ,PRSO>>>
+		<COND (<FSET? .OBJ ,SURFACEBIT>
+		       <CLEAR-MAGNET>
+		       <RFALSE>)
+		      (<OR ,MAGNET-ON
+			   <==? .OBJ ,ME>
+			   <GETP .OBJ ,P?CHARACTER>>
+		       <TELL-WHY-BOTHER>)
+		      (<IN? .OBJ ,PLAYER>
+		       <TELL "The magnet is touching ">
+		       <THE? ,PRSI>
+		       <TELL D ,PRSI "." CR>)
+		      (T
+		       <COND (<SET F <FIRST? ,MAGNET>>
+		       	      <MOVE .F ,HERE>)>
+		       <COND(<AND <SET N <LOC .OBJ>>
+			      <NOT <EQUAL? .N ,GLOBAL-OBJECTS ,LOCAL-GLOBALS>>>
+			     <MOVE .OBJ ,MAGNET>)>
+		       <TELL-NOW ,MAGNET "touching " <>>
+		       <THE? .OBJ>
+		       <TELL D .OBJ "." CR>)>)>>
+
+<ROUTINE TELL-NOW (OBJ STR "OPTIONAL" (FINISH? T))
+	 <TELL "The " D .OBJ " is now " .STR>
+	 <COND (.FINISH? <TELL "." CR>)>>
+
+<GLOBAL MAGNET-ON <>>
+
+<ROUTINE ATTRACTION ("AUX" F N)
+	 <SET F <FIRST? ,HERE>>
+	 <COND (<AND <SET N <FIRST? ,MAGNET>>
+		     <OR <NOT <GETP .N ,P?STATION>>
+			 <NOT <FSET? .N ,TAKEBIT>>>>
+		<MOVE .N ,HERE>)>
+	 <REPEAT ()
+	  <COND (<NOT .F> <RETURN>)>
+	  <SET N <NEXT? .F>>
+	  <COND (<AND <NOT <FSET? .F ,INVISIBLE>>
+		      <GETP .F ,P?STATION>
+		      <FSET? .F ,TAKEBIT>
+		      <NOT <==? .F ,MAGNET>>>
+		 <MOVE .F ,MAGNET>
+		 <COND (<AND <==? .F ,IRON-BAR>
+			     <==? ,HERE ,WRECK-5>>
+			<JIGS-UP
+"As the spikes jump toward the magnet, one of them pierces your chest!">)>
+		 <TELL "The " D .F " jumps to the magnet.">
+		 <COND (<EQUAL? .F ,MINE>
+			<TELL
+" Unfortunately, even though the spikes are spaced widely apart, one gets
+pushed..." CR CR>
+			<BOOM>)>
+		 <CRLF>)>
+	  <SET F .N>>>
+
+<ROUTINE CLEAR-MAGNET ("AUX" F N)
+	 <SET F <FIRST? ,MAGNET>>
+	 <REPEAT ()
+	  <COND (<NOT .F> <RETURN>)>
+	  <SET N <NEXT? .F>>
+	  <MOVE .F ,HERE>
+	  <SET F .N>>>
+
+<OBJECT FLASHLIGHT
+	(IN OUTFITTERS-HQ)
+	(DESC "flashlight")
+	(SYNONYM FLASHL LIGHT LAMP LANTER)
+	(ADJECTIVE SEALED WATERP PORTAB ONE-PI)
+	(FLAGS NDESCBIT)
+	(NORTH 24) ;"price"
+	(ACTION FLASHLIGHT-F)>
+
+<ROUTINE FLASHLIGHT-F ()
+	 <COND (<VERB? LAMP-ON>
+		<COND (<FSET? ,FLASHLIGHT ,ONBIT>
+		       <TELL-ALREADY "on">)
+		      (T
+		       <FSET ,FLASHLIGHT ,ONBIT>
+		       <TELL-NOW ,FLASHLIGHT "on">
+		       <COND (<NOT ,LIT>
+			      <SETG LIT <LIT? ,HERE>>
+			      <CRLF>
+			      <V-LOOK>)>
+		       <RTRUE>)>)
+	       (<VERB? LAMP-OFF>
+		<COND (<FSET? ,FLASHLIGHT ,ONBIT>
+		       <FCLEAR ,FLASHLIGHT ,ONBIT>
+		       <SETG LIT <LIT? ,HERE>>
+		       <TELL-NOW ,FLASHLIGHT "off">)
+		      (T <TELL-ALREADY "off">)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The sealed, waterproof " D ,FLASHLIGHT " is ">
+		<COND (<FSET? ,FLASHLIGHT ,ONBIT>
+		       <TELL "on">)
+		      (T <TELL "off">)>
+		<TELL "." CR>)
+	       (<AND <VERB? AIM>
+		     <PRSO? ,FLASHLIGHT>
+		     <FSET? ,FLASHLIGHT ,ONBIT>>
+		<TELL "The " D ,FLASHLIGHT " is shining on ">
+		<THE? ,PRSI>
+		<TELL D ,PRSI "." CR>)>>
+
+<OBJECT SHARK-REPELLENT
+	(IN OUTFITTERS-HQ)
+	(DESC "shark repellent canister")
+	(SYNONYM REPELL CAN CANIST LABEL ;LID)
+	(ADJECTIVE SHARK REPELL CANIST)
+	(FLAGS NDESCBIT)
+	(NORTH 20) ;"price"
+	(ACTION SHARK-REPELLENT-F)>
+
+<ROUTINE SHARK-REPELLENT-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,SHARK-REPELLENT ,OPENBIT>
+		       <TELL-ALREADY "open">)
+		      (T
+		       <FSET ,SHARK-REPELLENT ,OPENBIT>
+		       <TELL "Opened.">
+		       <COND (<OR <L? <GETP ,HERE ,P?LINE>
+				      ,UNDERWATER-LINE-C>
+				  <AIRTIGHT-ROOM?>>
+			      <JIGS-UP
+" The canister begins to emit noxious fumes. Before you can do anything
+about it, you lose consciousness.">)>
+		       <CRLF>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,SHARK-REPELLENT ,OPENBIT>
+		       <TELL "It can't be closed." CR>)
+		      (T
+		       <TELL-ALREADY "closed">)>)
+	       (<VERB? EXAMINE>
+		<TELL "The canister, which is ">
+		<COND (<FSET? ,SHARK-REPELLENT ,OPENBIT>
+		       <TELL "open">)
+		      (T <TELL "closed">)>
+		<TELL
+", has a label which says, \"IMPORTANT: read this label!\"" CR>)
+	       (<VERB? READ>
+		<TELL
+"The label says:
+\"IMPORTANT: read this label!|
+|
+SWANZO BRAND SHARK REPELLENT|
+|
+This product will repel sharks, or your money back! Simply
+open the canister UNDERWATER. Works for 5 hours. WARNING: Fumes
+released in air may be hazardous to humans.\"" CR>)>>
+
+;<OBJECT NEW-KNIFE
+	(IN OUTFITTERS-HQ)
+	(DESC "steel knife")
+	(SYNONYM KNIFE)
+	(ADJECTIVE NEW STEEL)
+	(FLAGS NDESCBIT)
+	(STATION 15) ;"metal content"
+	(NORTH 45) ;"price">
+
+<OBJECT CHARTS
+	(IN OUTFITTERS-HQ)
+	(DESC "set of nautical charts")
+	(SYNONYM CHARTS MAPS CHART SET)
+	(ADJECTIVE NAUTIC OCEAN SEA)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT "These are charts for the Hardscrabble Island area.")
+	(NORTH 150) ;"price">
+
+<OBJECT CAGE
+	(IN OUTFITTERS-HQ)
+	(DESC "diving cage")
+	(SYNONYM CAGE)
+	(ADJECTIVE DIVING)
+	(FLAGS NDESCBIT RENTBIT)
+	(STATION 90) ;"metal content"
+	(NORTH 650) ;"price">
+
+<ROOM SHANTY
+      (IN ROOMS)
+      (DESC "The Shanty")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"This is The Shanty, a tavern which serves the locals. A wooden bar
+travels the length of the place, and behind it is a mirror so dirty,
+it offers no reflection. Round tables occupy the floor. The smell of
+cooking food permeates the place.")
+      (GLOBAL FRONT-DOOR)
+      (NORTH TO WHARF-ROAD-5)
+      (OUT TO WHARF-ROAD-5)
+      (STATION WHARF-ROAD-5)
+      (LINE 1)
+      (PSEUDO "TABLES" FURNITURE-PSEUDO "CHAIRS" FURNITURE-PSEUDO)
+      (ACTION SHANTY-F)>
+
+<GLOBAL WARNING-STR
+"Johnny looks around and says, \"This is no place to continue. If McGinty
+finds out about this, we're sunk. We better meet at the lighthouse at 9:30.
+Glad you're aboard.\"">
+
+<ROUTINE SHANTY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,FOOD ,SHANTY>
+		<FSET ,FOOD ,NDESCBIT>
+		<SETG SOUPS-ON <>>
+		<MOVE ,DRINKING-WATER ,SHANTY>
+		<FSET ,DRINKING-WATER ,NDESCBIT>
+		<MOVE ,DRINK-OBJECT ,SHANTY>
+		<FSET ,DRINK-OBJECT ,NDESCBIT>
+		<PUTP ,DRINKING-WATER ,P?SDESC "water">
+		<MOVE ,SPEAR-CARRIER ,SHANTY>
+		<PUTP ,SPEAR-CARRIER ,P?SDESC "bartender">
+		<PUTP ,SPEAR-CARRIER ,P?LDESC 
+"A bartender behind the bar polishes glasses with a worn towel.">
+		<COND (<L? ,PRESENT-TIME 541>
+		       <ENABLE <QUEUE I-FIRST-MEETING -1>>)
+		      (T <SETG FM-CTR 5>)>)
+	       (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND <VERB? YES>
+			    <==? ,FM-CTR 4>>
+		       <TELL ,WARNING-STR CR>
+		       <SETG FM-CTR 5>
+		       <RATING-UPD 20>
+		       <DISABLE <INT I-FIRST-MEETING>>
+		       <SETG MEETINGS-COMPLETED 1>)
+		      (<AND <VERB? NO>
+			    <==? ,FM-CTR 4>>
+		       <TELL-NO-CONTINUE>
+		       <I-PLOT-NEVER-STARTS>
+		       <SETG JOHNNY-SILENT T>
+		       <DISABLE <INT I-FIRST-MEETING>>)>)>>
+
+<GLOBAL JOHNNY-SILENT <>>
+
+<ROUTINE TELL-NO-CONTINUE ()
+	 <TELL
+"The three men look at each other in disbelief. \"If you wanna ignore
+the chance of a lifetime, you're nuts,\" " D ,WEASEL " states. Johnny says,
+\"We'll find someone else.\" They then ignore you." CR>>
+
+<OBJECT PARROT
+	(IN SHANTY)
+	(SYNONYM PARROT BIRD LEG)
+	(ADJECTIVE POLLY WOODEN)
+	(DESC "parrot")
+	(LDESC
+"A parrot with an eyepatch hobbles up and down the bar.")
+	(TEXT 
+"It sports an eyepatch and wooden leg and has been here since the
+bartender bought it from a sailor. It's considered insane by the
+local patrons.")
+	(FLAGS VICBIT TRANSBIT)
+	(ACTION PARROT-F)>
+
+<ROUTINE PARROT-F ()
+	 <COND (<EQUAL? ,WINNER ,PARROT>
+		<SETG P-CONT <>>
+		<SETG QUOTE-FLAG <>>
+		<COND (<VERB? HELLO>
+		       <TELL <PICK-ONE ,PARROTISMS> CR>)
+		      (<AND <VERB? FIND> <PRSO? ,ME>>
+		       <TELL "\"You're right here.\"" CR>)
+		      (T
+		       <TELL
+"\"An interesting concept, but I am incapable.\"" CR>)>
+		<RTRUE>)
+	       (<AND <VERB? TELL>
+		     ,P-CONT>
+		<RFALSE>)
+	       (<VERB? EXAMINE FIND>
+		<RFALSE>)
+	       (<NOT <==? ,HERE ,SHANTY>>
+		<RFALSE>)
+	       (<VERB? LOOK-UNDER>
+		<TELL-NOTHING "but claw prints there" T>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,PARROT>>
+		<RFALSE>)
+	       (T
+		<TELL <PICK-ONE ,PARROTISMS> CR>)>>
+
+<GLOBAL PARROTISMS
+	<LTABLE
+"\"As my Pappy said, 'When you travel the highways of life, you do not
+always get to stop and look at a roadmap.'\""
+"\"I must admit that in my wide travels across this ball of wax, I have
+seen many human specimens, though none quite like you.\""
+"\"After due consideration, I find myself in an embarrassing position. I would
+gladly accept a hard biscuit today, if you would accept payment Tuesday.\""
+"\"Read any good books lately? I found 'Tropical Birds and their Native
+Habitats' quite engrossing.\""
+"\"Compared to salted biscuits, I like myself best.\""
+"\"Hello Sailor.\"">>
+
+<OBJECT PARROTS-PATCH
+	(IN PARROT)
+	(DESC "small eyepatch")
+	(SYNONYM PATCH EYEPAT)
+	(ADJECTIVE PARROT BLACK SMALL)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(ACTION PARROTS-PATCH-F)>
+
+<ROUTINE PARROTS-PATCH-F ()
+	 <COND (<OR <VERB? LOOK-UNDER ASK-FOR DISEMBARK>
+		    <VERB? MOVE>
+		    <AND <VERB? TAKE>
+			 <OR <NOT ,PRSI>
+			     <PRSI? ,PARROT>>>>
+		<TELL "Mind your manners." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "It's a small black eyepatch." CR>)>>
+
+<OBJECT TABLE-OBJECT
+	(IN SHANTY)
+	(DESC "table")
+	(SYNONYM TABLE)
+	(FLAGS NDESCBIT SURFACEBIT CONTBIT OPENBIT TRANSBIT)
+	(CAPACITY 15)>
+
+<OBJECT CHAIR
+	(IN SHANTY)
+	(DESC "chair")
+	(SYNONYM CHAIR SEAT)
+	(FLAGS NDESCBIT VEHBIT SURFACEBIT TRANSBIT OPENBIT)
+	(CAPACITY 10)
+	(ACTION CHAIR-F)>
+
+<ROUTINE CHAIR-F ("OPTIONAL" (RARG <>) "AUX" F)
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND <VERB? DISEMBARK>
+			    <PRSO? ,CHAIR>
+			    <L? ,FM-CTR 5>>
+		       <TELL 
+"Johnny pushes you back. \"Can't you wait a few minutes?\"" CR>
+		       <RTRUE>)
+		      (<AND <VERB? YES>
+			    <==? ,FM-CTR 4>>
+		       <TELL ,WARNING-STR CR>
+		       <SETG FM-CTR 5>
+		       <RATING-UPD 20>
+		       <DISABLE <INT I-FIRST-MEETING>>
+		       <SETG MEETINGS-COMPLETED 1>)
+		      (<AND <VERB? NO>
+			    <==? ,FM-CTR 4>>
+		       <TELL-NO-CONTINUE>
+		       <I-PLOT-NEVER-STARTS>
+		       <DISABLE <INT I-FIRST-MEETING>>)>)
+	       (<PRSO? ,CHAIR>
+		<COND (<VERB? BOARD>
+		       <COND (<SET F <FIRST? ,CHAIR>>
+			      <TELL-NOT-COMFORTABLE>
+			      ;<TELL "Sitting on ">
+			      ;<THE? .F>
+			      ;<TELL D .F " would be uncomfortable." CR>)
+		             (<==? ,FM-CTR 0>
+		       	      <SETG FM-CTR 1>
+		       	      <DISABLE <INT I-PLOT-NEVER-STARTS>>
+		       	      <RFALSE>)>)>)>>
+
+<ROUTINE FURNITURE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "furniture">)
+	       (<VERB? EXAMINE>
+		<TELL "There are a number of tables and chairs here." CR>)>>
+
+<OBJECT BAR
+	(IN SHANTY)
+	(DESC "bar")
+	(SYNONYM BAR SURFAC)
+	(ADJECTIVE AGED WOODEN OLD HUGE WORN)
+	(FLAGS SURFACEBIT CONTBIT NDESCBIT OPENBIT)
+	(CAPACITY 20)
+	(ACTION BAR-F)>
+
+<ROUTINE BAR-F ("AUX" F)
+	 <COND (<VERB? OPEN CLOSE>
+		<TELL "Leave that to the management." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"It is a worn wooden bar that has had more than its share of drinks on it.
+The parrot doesn't do it much good, either">
+		<COND (<SET F <FIRST? ,BAR>>
+		       <TELL ". Sitting on the bar ">
+		       <COND (<NEXT? .F>
+			      <TELL "are ">)
+			     (T <TELL "is ">)>
+		       <PRINT-CONTENTS ,BAR>)>
+		<TELL "." CR>
+		<RTRUE>)
+	       (<VERB? LOOK-BEHIND>
+		<TELL "The bartender is there." CR>)>>
+
+<OBJECT MIRROR
+	(IN SHANTY)
+	(DESC "mirror")
+	(SYNONYM MIRROR)
+	(ADJECTIVE DUSTY DIRTY AGED GRIMY)
+	(FLAGS NDESCBIT)
+	(ACTION MIRROR-F)>
+
+<ROUTINE MIRROR-F ()
+	 <COND (<VERB? LOOK-INSIDE EXAMINE>
+		<TELL "You see grime rather than a reflection." CR>)
+	       (<VERB? CLEAN>
+		<TELL-CANT-REACH "it to clean it">)
+	       (<VERB? MUNG>
+		<TELL "That would be unlucky." CR>)>>
+
+<OBJECT FOOD
+	(IN SHANTY)
+	(DESC "meal")
+	(SYNONYM FOOD MEAL STEW)
+	(ADJECTIVE BREAKF LUNCH DINNER BEEF)
+	(NORTH 5) ;"price"
+	(FLAGS NDESCBIT FOODBIT)
+	(ACTION FOOD-F)>
+
+<ROUTINE FOOD-F ()
+	 <COND (<AND <VERB? FIND>
+		     ,P-NONOUN
+		     <==? ,P-XADJN ,W?BEEF>>
+		<TELL "Gimme a break!" CR>)
+	       (<VERB? BUY>
+		<COND (<G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
+		       <TELL "Free food is a benefit of this job." CR>)
+		      (<==? ,HOW-HUNGRY 0>
+		       <TELL-WAIT-HUNGRY>)
+		      (,SOUPS-ON
+		       <TELL "You only need one meal at a time." CR>)
+		      (<L? ,POCKET-CHANGE 5>
+		       <TELL-NO-AFFORD>)
+		      (T
+		       <SETG POCKET-CHANGE <- ,POCKET-CHANGE 5>>
+		       <SETG SOUPS-ON T>
+		       <MOVE ,FOOD ,TABLE-OBJECT>
+		       <FCLEAR ,FOOD ,NDESCBIT>
+		       <TELL "You have bought a meal for $5." CR>)>)
+	       (<VERB? EAT>
+		<COND (,SOUPS-ON
+		       <COND (<0? ,HOW-HUNGRY>
+			      <TELL-WAIT-HUNGRY>
+			      <RTRUE>)>
+		       <ENABLE <QUEUE I-HUNGER 150>>
+		       <SETG HOW-HUNGRY 0>
+		       <COND (<==? ,HERE ,SHANTY>
+			      <SETG SOUPS-ON <>>
+			      <FSET ,FOOD ,NDESCBIT>
+			      <MOVE ,FOOD ,SHANTY>)>
+		       <TELL "Not bad! It really hit the spot." CR>)
+		      (<==? ,HERE ,SHANTY>
+		       <TELL "You'll have to buy it before you can eat it." CR>)
+		      (T <TELL
+"You'll have to wait for Pete to finish fixing it." CR>)>)
+	       (<VERB? SMELL>
+		<TELL "It smells fairly tasty." CR>)
+	       (<VERB? EXAMINE>
+		<COND (<G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
+		       <TELL "It looks like a pretty standard stew." CR>)
+		      (,SOUPS-ON
+		       <TELL 
+"This stew is a staple of " D ,SHANTY " and is edible." CR>)
+		      (T <GLOBAL-NOT-HERE-PRINT ,PRSO>)>)
+	       (<VERB? FIND>
+		<COND (<IN? ,FOOD ,TABLE-OBJECT>
+		       <TELL "It's on the table." CR>)
+		      (<EQUAL? <META-LOC ,PLAYER> ,SHANTY>
+		       <TELL "You can order food here." CR>)>)>>
+
+<ROUTINE TELL-WAIT-HUNGRY ()
+	 <TELL "Wait until you're a little hungrier." CR>>
+
+<OBJECT DRINKING-WATER
+	(IN SHANTY)
+	;(DESC "water")
+	(SDESC "water")
+	(SYNONYM WATER GLASS)
+	(ADJECTIVE DRINKI)
+	(FLAGS NDESCBIT DRINKBIT TRYTAKEBIT)
+	(ACTION DRINKING-WATER-F)>
+
+<ROUTINE DRINKING-WATER-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<IN? ,DRINKING-WATER ,TABLE-OBJECT>
+		       <TELL "It's a glass of water, what else?" CR>)
+		      (<EQUAL? ,HERE ,MM-GALLEY ,NW-GALLEY>
+		       <TELL
+"There's a tap in the sink which dispenses bottled water." CR>)
+		      (T <TELL
+"You can ask the bartender for a glass." CR>)>)
+	       (<VERB? DRINK>
+		<COND (<OR <IN? ,DRINKING-WATER ,TABLE-OBJECT>
+			   <EQUAL? ,HERE ,MM-GALLEY ,NW-GALLEY>>
+		       <COND (<G? ,SLOSH-CTR 4>
+			      <TELL "Are you trying to do an ocean imitation?" CR>)
+			     (T
+			      <SETG HOW-THIRSTY 0>
+		       	      <SETG SLOSH-CTR <+ ,SLOSH-CTR 1>>
+			      <ENABLE <QUEUE I-THIRST 180>>
+		       	      <MOVE ,DRINKING-WATER ,HERE>
+		       	      <FSET ,DRINKING-WATER ,NDESCBIT>
+		       	      <PUTP ,DRINKING-WATER ,P?SDESC "water">
+		       	      <TELL "You feel much refreshed." CR>)>)
+		      (<EQUAL? <META-LOC ,PLAYER> ,SHANTY>
+		       <TELL-ASK-FIRST>)>)
+	       (<AND <VERB? BUY>
+		     <EQUAL? ,HERE ,MM-GALLEY ,NW-GALLEY>>
+		<TELL-JUST>)
+	       (<VERB? TAKE>
+		<COND (<IN? ,DRINKING-WATER ,SHANTY>
+		       <TELL-ASK-FIRST>)
+		      (T <TELL-JUST>)>)
+	       (<VERB? FIND>
+		<COND (<IN? ,DRINKING-WATER ,TABLE-OBJECT>
+		       <TELL "It's on the table." CR>)
+		      (<EQUAL? <META-LOC ,PLAYER> ,SHANTY>
+		       <TELL "You can order water here." CR>)>)>>
+
+<GLOBAL SLOSH-CTR 0>
+
+<ROUTINE TELL-ASK-FIRST ()
+	 <TELL "Ask the bartender for some water first." CR>>
+
+<ROUTINE TELL-JUST ()
+	 <TELL "Just drink it." CR>>
+
+<OBJECT DRINK-OBJECT
+	(IN SHANTY)
+	(DESC "drink")
+	(SYNONYM DRINK GROG LIQUOR BOOZE)
+	(ADJECTIVE ALCOHO)
+	(NORTH 2) ;"price"
+	(FLAGS NDESCBIT DRINKBIT)
+	(ACTION DRINK-OBJECT-F)>
+
+<ROUTINE DRINK-OBJECT-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<IN? ,DRINK-OBJECT ,TABLE-OBJECT>
+		       <TELL
+"It's grog which has left many staggering." CR>)
+		      (T <TELL-BUY-FIRST>)>)
+	       (<VERB? BUY>
+		<COND (<IN? ,DRINK-OBJECT ,TABLE-OBJECT>
+		       <TELL-YOU-ALREADY "have a drink.">)
+		      (<L? ,POCKET-CHANGE 2>
+		       <TELL-NO-AFFORD>)
+		      (T
+		       <MOVE ,DRINK-OBJECT ,TABLE-OBJECT>
+		       <FCLEAR ,DRINK-OBJECT ,NDESCBIT>
+		       <SETG POCKET-CHANGE <- ,POCKET-CHANGE 2>>
+		       <TELL "You have bought a drink for $2." CR>)>)
+	       (<VERB? DRINK>
+		<COND (<IN? ,DRINK-OBJECT ,TABLE-OBJECT>
+		       <MOVE ,DRINK-OBJECT ,SHANTY>
+		       <ENABLE <QUEUE I-THIRST 90>>
+		       <SETG HOW-THIRSTY 0>
+		       <FSET ,DRINK-OBJECT ,NDESCBIT>
+		       <SETG BLOOD-ALCOHOL <+ ,BLOOD-ALCOHOL 6>>
+		       <TELL "It burns your throat on the way down." CR>)
+		      (T <TELL-BUY-FIRST>)>)
+	       (<VERB? TASTE>
+		<COND (<NOT <IN? ,DRINK-OBJECT ,TABLE-OBJECT>>
+		       <TELL-BUY-FIRST>)>)
+	       (<VERB? FIND>
+		<COND (<IN? ,DRINK-OBJECT ,TABLE-OBJECT>
+		       <TELL "It's on the table." CR>)
+		      (<EQUAL? <META-LOC ,PLAYER> ,SHANTY>
+		       <TELL "You can order grog here." CR>)>)>>
+
+<ROUTINE TELL-BUY-FIRST ()
+	 <TELL "You'll have to order one first." CR>>
+
+<GLOBAL BLOOD-ALCOHOL 0>
+
+<OBJECT NON-DRINK
+	(IN SHANTY)
+	(DESC "liquor")
+	(SYNONYM WHISKY WHISKE BEER WINE)
+	(ADJECTIVE SCOTCH BOURBO DRAFT RUM COFFEE)
+	(FLAGS DRINKBIT NDESCBIT)
+	(ACTION NON-DRINK-F)>
+
+<ROUTINE NON-DRINK-F ()
+	 <TELL-YOUD-BETTER "stick with grog.">>
+
+<ROOM BANK
+      (IN ROOMS)
+      (DESC "Mariners' Trust")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are in Mariners' Trust, the Island's bank.
+In it are a table and a teller's window.
+You can see the safe beyond, and it looks pretty empty.")
+      (GLOBAL WINDOW FRONT-DOOR)
+      (SOUTH TO SHORE-ROAD-2)
+      (OUT TO SHORE-ROAD-2)
+      (PSEUDO "TABLE" TABLE-PSEUDO)
+      (LINE 1)
+      (STATION SHORE-ROAD-2)
+      (ACTION BANK-F)>
+
+<ROUTINE BANK-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,SPEAR-CARRIER ,BANK>
+		<PUTP ,SPEAR-CARRIER ,P?SDESC "teller">
+		<PUTP ,SPEAR-CARRIER ,P?LDESC
+"A teller sits behind the window.">)
+	       (<EQUAL? .RARG ,M-BEG>
+		<COND (<VERB? WITHDRAW>
+		       <COND ;(<PRSO? ,RIDICULOUS-MONEY-KLUDGE>
+			      <TELL "You should specify an amount." CR>)
+			     (<NOT <PRSO? ,INTNUM>>
+			      <RFALSE>)
+			     (<NOT ,P-DOLLAR-FLAG>
+			      <TELL-YOU-CANT "withdraw that!">)
+			     (<L? ,P-AMOUNT 1>
+			      <TELL-SERIOUS>)
+			     (<NOT <IN? ,PASSBOOK ,PLAYER>>
+			      <TELL 
+"The teller points out that you don't have your passbook." CR>)
+			     (<G? ,P-AMOUNT ,PASSBOOK-BALANCE>
+			      <TELL 
+"The teller takes your passbook, checks the balance, tells you that there's not
+enough to cover your planned withdrawal, and returns it." CR>)
+			     (T
+			      <SETG PASSBOOK-BALANCE <- ,PASSBOOK-BALANCE
+							,P-AMOUNT>>
+			      <SETG POCKET-CHANGE <+ ,POCKET-CHANGE ,P-AMOUNT>>
+			      <SETG STUPID-PROBLEM-STRING "September 19">
+			      <TELL 
+"The teller takes your passbook, enters the withdrawal, hands you the
+money and your passbook, and says \"Have a good day.\"" CR>)>)
+		      (<VERB? DEPOSIT>
+		       <COND (<AND ,PRSI <NOT <PRSI? ,GLOBAL-BANK>>>
+			      <PERFORM ,V?PUT ,PRSO ,PRSI>
+			      <RTRUE>)
+			     (<OR <NOT ,P-DOLLAR-FLAG>
+				  <NOT <PRSO? ,INTNUM>>>
+			      <COND (<NOT <HELD? ,PRSO>>
+				     <TELL-DONT-HAVE <>>
+				     <THE? ,PRSO>
+				     <TELL D ,PRSO "." CR>)
+				    (T <TELL
+"The teller looks at the " D ,PRSO " and returns it, pointing out
+that you don't have a safe deposit box." CR>)>)
+			     (<G? ,P-AMOUNT ,POCKET-CHANGE>
+			      <TELL-YOU-CANT "deposit more than you have.">)
+			     (<L? ,P-AMOUNT 1>
+			      <TELL-SERIOUS>)
+			     (<NOT <IN? ,PASSBOOK ,PLAYER>>
+			      <TELL
+"The teller points out that you need to have your passbook." CR>)
+			     (T
+			      <SETG PASSBOOK-BALANCE
+				    <+ ,PASSBOOK-BALANCE ,P-AMOUNT>>
+			      <SETG POCKET-CHANGE <- ,POCKET-CHANGE ,P-AMOUNT>>
+			      <SETG STUPID-PROBLEM-STRING "September 19">
+			      <TELL
+"The teller takes your money and passbook, records the deposit, returns
+the passbook, and says \"Thank you for banking at " D ,BANK ".\"" CR>)>)>)>>
+
+;<ROUTINE TELL-SERIOUS ()
+	 <TELL "The teller fails to smile." CR>>
+
+<OBJECT RIDICULOUS-MONEY-KLUDGE
+	(IN BANK)
+	(SYNONYM MONEY CASH BILLS \$)
+	(DESC "money")
+	(FLAGS NDESCBIT)
+	(ACTION RIDICULOUS-MONEY-KLUDGE-F)>
+
+<ROUTINE RIDICULOUS-MONEY-KLUDGE-F ()
+	 <COND (<VERB? ASK-ABOUT>
+		<RFALSE>)
+	       (<VERB? FIND COUNT>
+		<PERFORM ,PRSA ,GLOBAL-MONEY>
+		<RTRUE>)
+	       (T <TELL "You should specify an amount." CR>)>>
+
+<ROUTINE VAULT-F ();"SAFE object defined in WRECKS"
+	 <COND (<AND <VERB? THROUGH>
+		     <NOT <==? ,HERE ,BANK>>>
+		<GLOBAL-NOT-HERE-PRINT ,SAFE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"The safe is behind the teller's window and is mostly empty." CR>)
+	       (<VERB? ASK-ABOUT FIND>
+		<RFALSE>)
+	       (T <TELL "There's no way you can get at the safe." CR>)>>
+
+<ROOM POINT-LOOKOUT
+      (IN ROOMS)
+      (DESC "Point Lookout")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are at Point Lookout, a small, high cliff that affords a spectacular
+view of the sea. The cliff bottom is dangerous, so the only safe path is
+the northwest footpath back to the Ocean Road.")
+      (GLOBAL LIGHTHOUSE OCEAN ROCKS)
+      (NW TO OCEAN-ROAD-3)
+      (DOWN 
+"If you really want to jump, say so, but do so at your own risk.")
+      (CORRIDOR 32)
+      (LINE 1)
+      (STATION OCEAN-ROAD-3)
+      (PSEUDO "CLIFF" CLIFF-PSEUDO)
+      (ACTION POINT-LOOKOUT-F)>
+
+<ROUTINE POINT-LOOKOUT-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<COND (<AND <==? ,MEETINGS-COMPLETED 2>
+			    <L? ,PRESENT-TIME 660>>
+		       <ENABLE <QUEUE I-THIRD-MEETING -1>>)>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<VERB? LEAP>
+		       <JIGS-UP 
+"Your pleasant leap is interrupted as you find yourself impaled on the
+jagged rocks.">)
+		      (<AND <G? ,TM-CTR 0>
+			    <L? ,TM-CTR 6>>
+		       <COND (<VERB? YES>
+			      <TELL "\"That's nice, but I'd like to see it.\"" CR>)
+			     (<VERB? NO>
+			      <SETG TM-CTR 4>
+			      <I-THIRD-MEETING>);"kills player"
+			     (<VERB? WALK>
+			      <TELL 
+"Johnny puts a hand on your shoulder. \"Not so fast, matey.\"" CR>)
+			     (<AND <VERB? SHOW>
+				   <PRSI? ,JOHNNY>>
+			      <COND (<AND <OR <PRSO? ,GLOBAL-MONEY>
+					      <AND <PRSO? ,INTNUM>
+						   ,P-DOLLAR-FLAG>>
+					  <OR <FSET? ,WET-SUIT ,WORNBIT>
+					      <FSET? ,DEEP-SUIT ,WORNBIT>>>
+				     <TELL-CANT-REACH "your money">
+				     <RTRUE>)>
+			      <COND (<PRSO? ,GLOBAL-MONEY>
+				     <SETG P-AMOUNT 0>)>
+			      <COND (<OR <AND <PRSO? ,GLOBAL-MONEY>
+					      <G? ,POCKET-CHANGE 499>>
+					 <AND <PRSO? ,INTNUM>
+					      ,P-DOLLAR-FLAG
+					      <G? ,P-AMOUNT 499>
+					      <NOT <G? ,P-AMOUNT ,POCKET-CHANGE>>>>
+				     <SETG TM-CTR 5>
+				     <TELL
+"He smiles and flashes a wad that represents the contributions of your
+three partners." CR>)
+				    (<OR <PRSO? ,GLOBAL-MONEY>
+					 <AND <PRSO? ,INTNUM>
+					      ,P-DOLLAR-FLAG>>
+				     <COND (<G? ,P-AMOUNT ,POCKET-CHANGE>
+					    <TELL 
+"You haven't got that much to show him." CR>)
+					   (T <JIGS-UP  
+"Johnny looks disappointed. \"We need at least $500
+from you. I hate to do this, but you might tell McGinty...\" Suddenly you
+feel a shove in the back and see the pointy rocks below rush up to meet your
+descent.">)>)>)
+			     (<AND <VERB? GIVE>
+				   <PRSI? ,JOHNNY>>
+			      <COND (<PRSO? ,GLOBAL-MONEY>
+				     <SETG P-AMOUNT 0>)>
+			      <COND (<OR <AND <PRSO? ,GLOBAL-MONEY>
+					      <G? ,POCKET-CHANGE 499>>
+					 <AND <PRSO? ,INTNUM>
+					      ,P-DOLLAR-FLAG
+					      <G? ,P-AMOUNT 499>
+					      <NOT <G? ,P-AMOUNT ,POCKET-CHANGE>>>>
+				     <COND (<AND <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>
+						 <NOT <FSET? ,WET-SUIT ,WORNBIT>>>
+					    <TELL 
+"Johnny examines your money and returns it. \"You hold it. I needed
+to make sure you had it.\" ">)>)>
+			      <COND (<OR <PRSO? ,GLOBAL-MONEY>
+					 <AND <PRSO? ,INTNUM>
+					      ,P-DOLLAR-FLAG>>
+				     <COND (<G? ,P-AMOUNT ,POCKET-CHANGE>
+					    <TELL-YOU-CANT
+					    "give him more than you've got.">)
+					   (T
+			              <PERFORM ,V?SHOW ,PRSO ,JOHNNY>
+			              <RTRUE>)>)>)>)
+		      (<==? ,TM-CTR 7>
+		       <COND (<VERB? YES>
+			      <SETG SHIP-CHOSEN ,SALVAGER>
+			      <SETG TM-CTR 8>
+			      <RTRUE>)
+			     (<VERB? NO>
+			      <SETG SHIP-CHOSEN ,TRAWLER>
+			      <SETG TM-CTR 8>
+			      <RTRUE>)
+			     (<VERB? MAYBE>
+			      <TELL "\"A wise guy, huh?\" ">)
+			     (<VERB? WALK>
+			      <TELL "\"Let's finish here first, huh?\" ">)>)>)>>
+
+<GLOBAL SHIP-CHOSEN <>>
+
+<ROUTINE CLIFF-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "cliff">)
+	       (<VERB? THROW-OFF>
+		<PERFORM ,V?THROW ,PRSO ,OCEAN>
+		<RTRUE>)
+	       (<VERB? DISEMBARK>
+		<PERFORM ,V?LEAP>)>>
+
+<ROOM FERRY-LANDING
+      (IN ROOMS)
+      (DESC "Ferry Landing")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"The ferry to the mainland arrives here every two hours during the day.
+People are milling about. The Shore Road starts off to the east.")
+      (GLOBAL LIGHTHOUSE FERRY OCEAN)
+      (EAST TO SHORE-ROAD-1)
+      (CORRIDOR 128)
+      (LINE 1)
+      (STATION FERRY-LANDING)>
+
+;<ROOM WHARF-1
+      (IN ROOMS)
+      (DESC "Wharf")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are at the northern end of the wharf. There is a dock to the west.")
+      (GLOBAL LIGHTHOUSE OCEAN)
+      (WEST TO N-DOCK-2)
+      (SOUTH TO WHARF-2)
+      (CORRIDOR 768)
+      (LINE 1)
+      (STATION WHARF-1)>
+
+;<ROOM WHARF-2
+      (IN ROOMS)
+      (DESC "Wharf")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are on a deteriorating wharf which runs north/south.")
+      (GLOBAL LIGHTHOUSE OCEAN)
+      (NORTH TO WHARF-1)
+      (SOUTH TO WHARF-3)
+      (CORRIDOR 256)
+      (LINE 1)
+      (STATION WHARF-2)>
+
+;<ROOM WHARF-3
+      (IN ROOMS)
+      (DESC "Wharf")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC 
+"You are in the middle of a wharf which travels north/south. There is an aging
+dock to the west.")
+      (GLOBAL LIGHTHOUSE OCEAN)
+      (NORTH TO WHARF-2)
+      (SOUTH TO WHARF-4)
+      (WEST TO S-DOCK-2)
+      (CORRIDOR 1280)
+      (LINE 2)
+      (STATION WHARF-3)>
+
+<ROOM WHARF
+      (IN ROOMS)
+      (DESC "Wharf")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL LIGHTHOUSE OCEAN SALVAGER TRAWLER)
+      (SOUTH TO WHARF-ROAD-3)
+      (WEST TO NW-STARBOARD-DECK IF TRAWLER-DOCKED ELSE
+"It would help if a ship were berthed. If you want to take a dip in the
+ocean, you'll have to say so.")
+      (EAST TO MM-PORT-DECK IF SALVAGER-DOCKED ELSE
+"It would help if a ship were berthed. If you want to take a dip in the
+ocean, you'll have to say so.")
+      (CORRIDOR 256)
+      (LINE 0)
+      (STATION WHARF)
+      (ACTION WHARF-F)>
+
+<ROUTINE WHARF-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+	        <TELL
+"You're on Hardscrabble Island's weatherbeaten wharf, north of the "
+D ,WHARF-ROAD-1 ".">
+		<COND (,TRAWLER-DOCKED
+		       <TELL 
+" A trawler called the " D ,TRAWLER " is berthed here to the west.">)>
+		<COND (,SALVAGER-DOCKED
+		       <TELL
+" The " D ,SALVAGER " is moored to the east.">)>
+		<CRLF>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<VERB? BOARD THROUGH>
+		       <COND (<PRSO? ,TRAWLER>
+			      <DO-WALK ,P?WEST>
+		       	      <RTRUE>)
+		       	     (<PRSO? ,SALVAGER>
+			      <DO-WALK ,P?EAST>
+		       	      <RTRUE>)>)>)>>
diff --git a/macros.zap b/macros.zap
new file mode 100644
index 0000000..c9de8fe
--- /dev/null
+++ b/macros.zap
@@ -0,0 +1,33 @@
+
+
+	.FUNCT	PICK-ONE,FROB
+	GET	FROB,0
+	RANDOM	STACK
+	GET	FROB,STACK
+	RSTACK	
+
+
+	.FUNCT	DPRINT,OBJ
+	GETP	OBJ,P?SDESC
+	ZERO?	STACK /?ELS5
+	GETP	OBJ,P?SDESC
+	PRINT	STACK
+	RTRUE	
+?ELS5:	PRINTD	OBJ
+	RTRUE	
+
+
+	.FUNCT	APRINT,OBJ
+	FSET?	OBJ,PERSON /?THN6
+	EQUAL?	OBJ,PETES-PATCH \?ELS5
+?THN6:	CALL	DPRINT,OBJ
+	RSTACK	
+?ELS5:	FSET?	OBJ,VOWELBIT \?ELS11
+	PRINTI	"an "
+	CALL	DPRINT,OBJ
+	RSTACK	
+?ELS11:	PRINTI	"a "
+	CALL	DPRINT,OBJ
+	RSTACK	
+
+	.ENDI
diff --git a/macros.zil b/macros.zil
new file mode 100644
index 0000000..6f87e97
--- /dev/null
+++ b/macros.zil
@@ -0,0 +1,145 @@
+"MACROS for
+			      TOA #2
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
+"
+
+<COND (<NOT <GASSIGNED? ZSTR-ON>>
+       <SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>)>
+
+<SETG C-ENABLED? 0>
+;<SETG C-ENABLED 1>
+;<SETG C-DISABLED 0>
+
+<DEFMAC TELL ("ARGS" A)
+	<FORM PROG ()
+	      !<MAPF ,LIST
+		     <FUNCTION ("AUX" E P O)
+			  <COND (<EMPTY? .A> <MAPSTOP>)
+				(<SET E <NTH .A 1>>
+				 <SET A <REST .A>>)>
+			  <COND (<TYPE? .E ATOM>
+				 <COND (<OR <=? <SET P <SPNAME .E>>
+						"CRLF">
+					    <=? .P "CR">>
+					<MAPRET '<CRLF>>)
+				       (<=? .P "PRSO">
+					<MAPRET '<PRSO-PRINT>>)
+				       (<=? .P "PRSI">
+					<MAPRET '<PRSI-PRINT>>)
+				       ;(<=? .P "THE-PRSO">
+					<MAPRET '<THE-PRSO-PRINT>>)
+				       ;(<=? .P "THE-PRSI">
+					<MAPRET '<THE-PRSI-PRINT>>)
+				       (<EMPTY? .A>
+					<ERROR INDICATOR-AT-END? .E>)
+				       (ELSE
+					<SET O <NTH .A 1>>
+					<SET A <REST .A>>
+					<COND (<OR <=? <SET P <SPNAME .E>>
+						       "DESC">
+						   <=? .P "D">
+						   <=? .P "OBJ">
+						   <=? .P "O">>
+					       <MAPRET <FORM DPRINT .O>>)
+					      (<OR <=? .P "A">
+						   <=? .P "AN">>
+					       <MAPRET <FORM APRINT .O>>)
+					      (<OR <=? .P "NUM">
+						   <=? .P "N">>
+					       <MAPRET <FORM PRINTN .O>>)
+					      (<OR <=? .P "CHAR">
+						   <=? .P "CHR">
+						   <=? .P "C">>
+					       <MAPRET <FORM PRINTC .O>>)
+					      (ELSE
+					       <MAPRET
+						 <FORM PRINT
+						       <FORM GETP .O .E>>>)>)>)
+				(<TYPE? .E STRING ZSTRING>
+				 <MAPRET <FORM PRINTI .E>>)
+				(<TYPE? .E FORM LVAL GVAL>
+				 <MAPRET <FORM PRINT .E>>)
+				(<TYPE? .E FIX>
+				 <MAPRET <FORM PRINTX .E>>)
+				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
+
+<DEFMAC VERB? ("ARGS" ATMS)
+	<MULTIFROB PRSA .ATMS>>
+
+<DEFMAC PRSO? ("ARGS" ATMS)
+	<MULTIFROB PRSO .ATMS>>
+
+<DEFMAC PRSI? ("ARGS" ATMS)
+	<MULTIFROB PRSI .ATMS>>
+
+<DEFMAC ROOM? ("ARGS" ATMS)
+	<MULTIFROB HERE .ATMS>>
+
+<ZSTR-OFF>
+
+<DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .OO 1> <ERROR .X>)
+				       (<LENGTH? .OO 2> <NTH .OO 2>)
+				       (ELSE <CHTYPE .OO FORM>)>>)>
+		<REPEAT ()
+			<COND (<EMPTY? .ATMS> <RETURN!->)>
+			<SET ATM <NTH .ATMS 1>>
+			<SET L
+			     (<COND (<TYPE? .ATM ATOM>
+				     <FORM GVAL
+					   <COND (<==? .X PRSA>
+						  <PARSE
+						    <STRING "V?"
+							    <SPNAME .ATM>>>)
+						 (ELSE .ATM)>>)
+				    (ELSE .ATM)>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O <REST <PUTREST .O (<FORM EQUAL? <FORM GVAL .X> !.L>)>>>
+		<SET L ()>>>
+
+<ZSTR-ON>
+
+<DEFMAC RFATAL ()
+	'<PROG () <PUSH 2> <RSTACK>>>
+
+<DEFMAC PROB ('BASE?)
+	<FORM G? .BASE? '<RANDOM 100>>>
+
+;<ROUTINE ZPROB
+	 (BASE)
+	 <COND (,LUCKY <G? .BASE <RANDOM 100>>)
+	       (ELSE <G? .BASE <RANDOM 300>>)>>
+
+<ROUTINE PICK-ONE (FROB)
+	 <GET .FROB <RANDOM <GET .FROB 0>>>>
+
+<DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>>
+
+<DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>>
+
+<DEFMAC OPENABLE? ('OBJ)
+	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
+	         <FORM FSET? .OBJ ',CONTBIT>>> 
+
+;<ROUTINE ABS (NUM)
+	 <COND (<G? .NUM 0>
+		<RETURN .NUM>)
+	       (ELSE
+		<RETURN <- 0 .NUM>>)>>
+
+<ROUTINE DPRINT (OBJ)
+	 <COND (<GETP .OBJ ,P?SDESC>
+		<TELL <GETP .OBJ ,P?SDESC>>)
+	       (T <PRINTD .OBJ>)>>
+
+<ROUTINE APRINT (OBJ)
+	<COND (<OR <FSET? .OBJ ,PERSON>
+		   <==? .OBJ ,PETES-PATCH>>
+	       <TELL D .OBJ>)
+	      (<FSET? .OBJ ,VOWELBIT> <TELL "an " D .OBJ>)
+	      (T <TELL "a " D .OBJ>)>>
+
diff --git a/main.zap b/main.zap
new file mode 100644
index 0000000..5edcb15
--- /dev/null
+++ b/main.zap
@@ -0,0 +1,481 @@
+
+
+	.FUNCT	GO
+START::
+
+?FCN:	CALL	QUEUE,I-UNWOUND,20
+	PUT	STACK,0,1
+	CALL	QUEUE,I-BUSINESS-HOURS,60
+	PUT	STACK,0,1
+	CALL	QUEUE,I-FERRY-APPROACHING,117
+	PUT	STACK,0,1
+	CALL	QUEUE,I-FERRY,120
+	PUT	STACK,0,1
+	CALL	QUEUE,I-HUNGER,15
+	PUT	STACK,0,1
+	CALL	QUEUE,I-THIRST,25
+	PUT	STACK,0,1
+	CALL	QUEUE,I-TIRED,929
+	PUT	STACK,0,1
+	CALL	QUEUE,I-LIVER,10
+	PUT	STACK,0,1
+	CALL	QUEUE,I-DRILL,5
+	CALL	QUEUE,I-MM-COMPRESSOR,80
+	CALL	QUEUE,I-PLOT-NEVER-STARTS,60
+	PUT	STACK,0,1
+	SET	'LIT,TRUE-VALUE
+	SET	'SCORE,8
+	SET	'WINNER,ADVENTURER
+	SET	'PLAYER,WINNER
+	SET	'SAMPLE-TREASURE,GLOBAL-OBJECTS
+	CALL	PUT-IN-TABLE,ENVELOPE,MCGINTY-HQ,GLOBAL-SURFACE
+	SET	'HERE,BEDROOM
+	SET	'P-IT-OBJECT,FALSE-VALUE
+	FSET?	HERE,TOUCHBIT /?CND1
+	CALL	START-MOVEMENT
+	CALL	TELL-START-STR
+	CRLF	
+	CALL	V-VERSION
+	CRLF	
+?CND1:	MOVE	WINNER,BED
+	CALL	V-LOOK
+	CALL	MAIN-LOOP
+	JUMP	?FCN
+
+
+	.FUNCT	MAIN-VERB-PRINT,TMP,?TMP1
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	P-OFLAG /?ELS5
+	GET	TMP,0
+	PRINTB	STACK
+	RTRUE	
+?ELS5:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,PLACE
+?PRG1:	SET	'CNT,0
+	SET	'OBJ,FALSE-VALUE
+	SET	'PTBL,TRUE-VALUE
+	SET	'WAITED?,FALSE-VALUE
+	SET	'P-WALK-DIR,FALSE-VALUE
+	EQUAL?	HERE,QCONTEXT-ROOM /?CND3
+	SET	'QCONTEXT,FALSE-VALUE
+?CND3:	CALL	PARSER >P-WON
+	ZERO?	P-WON /?ELS8
+	LOC	PLAYER >LAST-PLAYER-LOC
+	GET	P-PRSI,P-MATCHLEN >ICNT
+	GET	P-PRSO,P-MATCHLEN >OCNT
+	ZERO?	P-IT-OBJECT /?CND9
+	CALL	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CND9
+	SET	'TMP,FALSE-VALUE
+?PRG14:	IGRTR?	'CNT,ICNT \?ELS18
+	JUMP	?REP15
+?ELS18:	GET	P-PRSI,CNT
+	EQUAL?	STACK,IT \?PRG14
+	PUT	P-PRSI,CNT,P-IT-OBJECT
+	SET	'TMP,TRUE-VALUE
+?REP15:	ZERO?	TMP \?CND24
+	SET	'CNT,0
+?PRG27:	IGRTR?	'CNT,OCNT \?ELS31
+	JUMP	?CND24
+?ELS31:	GET	P-PRSO,CNT
+	EQUAL?	STACK,IT \?PRG27
+	PUT	P-PRSO,CNT,P-IT-OBJECT
+?CND24:	SET	'CNT,0
+?CND9:	ZERO?	OCNT \?ELS41
+	PUSH	OCNT
+	JUMP	?CND37
+?ELS41:	GRTR?	OCNT,1 \?ELS43
+	SET	'TBL,P-PRSO
+	ZERO?	ICNT \?ELS46
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND44
+?ELS46:	GET	P-PRSI,1 >OBJ
+?CND44:	PUSH	OCNT
+	JUMP	?CND37
+?ELS43:	GRTR?	ICNT,1 \?ELS50
+	SET	'PTBL,FALSE-VALUE
+	SET	'TBL,P-PRSI
+	GET	P-PRSO,1 >OBJ
+	PUSH	ICNT
+	JUMP	?CND37
+?ELS50:	PUSH	1
+?CND37:	SET	'NUM,STACK
+	ZERO?	OBJ \?CND53
+	EQUAL?	ICNT,1 \?CND53
+	GET	P-PRSI,1 >OBJ
+?CND53:	EQUAL?	PRSA,V?WALK \?ELS60
+	ZERO?	P-WALK-DIR /?ELS60
+	CALL	PERFORM,PRSA,PRSO >V
+	JUMP	?CND58
+?ELS60:	ZERO?	NUM \?ELS64
+	GETB	P-SYNTAX,P-SBITS
+	BAND	STACK,P-SONUMS
+	ZERO?	STACK \?ELS67
+	CALL	PERFORM,PRSA >V
+	SET	'PRSO,FALSE-VALUE
+	JUMP	?CND58
+?ELS67:	ZERO?	LIT \?ELS69
+	CALL	TELL-TOO-DARK
+	JUMP	?CND58
+?ELS69:	ZERO?	OBJ /?ELS74
+	EQUAL?	OBJ,NOT-HERE-OBJECT \?ELS78
+	CALL	GLOBAL-NOT-HERE-PRINT,OBJ
+	JUMP	?CND58
+?ELS78:	LOC	WINNER >PLACE
+	FSET?	PLACE,VEHBIT \?ELS80
+	LOC	OBJ
+	EQUAL?	PLACE,STACK /?CND58
+	PRINTI	"You should get "
+	FSET?	PLACE,SURFACEBIT \?ELS88
+	PRINTI	"off"
+	JUMP	?CND86
+?ELS88:	PRINTI	"out"
+?CND86:	PRINTI	" of "
+	CALL	THE?,PLACE
+	CALL	DPRINT,PLACE
+	PRINTI	" first."
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS80:	EQUAL?	PRSA,V?GIVE \?ELS100
+	CALL	TELL-NOTHING,STR?48
+	CALL	MAIN-VERB-PRINT
+	PRINTI	"."
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS100:	FSET?	OBJ,CONTBIT \?ELS104
+	FSET?	OBJ,OPENBIT /?ELS104
+	PRINTI	"Better open the "
+	CALL	DPRINT,OBJ
+	PRINTI	" first."
+	CRLF	
+	SET	'P-IT-OBJECT,OBJ
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS104:	FSET?	OBJ,CONTBIT /?ELS110
+	CALL	TELL-NOTHING,STR?49,TRUE-VALUE
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS110:	PRINTI	"It's not in that."
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS74:	EQUAL?	PRSA,V?$CALL \?ELS116
+	CALL	V-CALL-LOSE
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS116:	ZERO?	P-NONE /?ELS118
+	PRINTI	"I can't find any here!"
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS118:	PRINTI	"There isn't anything to "
+	CALL	MAIN-VERB-PRINT
+	PRINTI	" here!"
+	CRLF	
+	SET	'V,FALSE-VALUE
+	JUMP	?CND58
+?ELS64:	SET	'P-NOT-HERE,0
+	SET	'P-MULT,FALSE-VALUE
+	GRTR?	NUM,1 \?CND130
+	SET	'P-MULT,TRUE-VALUE
+?CND130:	SET	'TMP,FALSE-VALUE
+?PRG133:	IGRTR?	'CNT,NUM \?ELS137
+	GRTR?	P-NOT-HERE,0 \?ELS140
+	PRINTI	"The "
+	EQUAL?	P-NOT-HERE,NUM /?CND143
+	PRINTI	"other "
+?CND143:	PRINTI	"object"
+	EQUAL?	P-NOT-HERE,1 /?CND150
+	PRINTI	"s"
+?CND150:	PRINTI	" that you mentioned "
+	EQUAL?	P-NOT-HERE,1 /?ELS159
+	PRINTI	"are"
+	JUMP	?CND157
+?ELS159:	PRINTI	"is"
+?CND157:	PRINTI	"n't here."
+	CRLF	
+	JUMP	?REP134
+?ELS140:	ZERO?	TMP \?REP134
+	PRINTI	"I don't know what you're referring to."
+	CRLF	
+	JUMP	?REP134
+?ELS137:	ZERO?	PTBL /?ELS176
+	GET	P-PRSO,CNT >OBJ1
+	JUMP	?CND174
+?ELS176:	GET	P-PRSI,CNT >OBJ1
+?CND174:	ZERO?	PTBL /?ELS184
+	PUSH	OBJ1
+	JUMP	?CND180
+?ELS184:	PUSH	OBJ
+?CND180:	SET	'PRSO,STACK
+	ZERO?	PTBL /?ELS192
+	PUSH	OBJ
+	JUMP	?CND188
+?ELS192:	PUSH	OBJ1
+?CND188:	SET	'PRSI,STACK
+	GRTR?	NUM,1 \?CND196
+	EQUAL?	OBJ1,NOT-HERE-OBJECT \?ELS201
+	INC	'P-NOT-HERE
+	JUMP	?PRG133
+?ELS201:	EQUAL?	PRSA,V?TAKE \?ELS203
+	ZERO?	PRSI /?ELS203
+	GET	P-ITBL,P-NC1
+	GET	STACK,0
+	EQUAL?	STACK,W?ALL \?ELS203
+	IN?	PRSO,PRSI /?ELS203
+	JUMP	?PRG133
+?ELS203:	EQUAL?	P-GETFLAGS,P-ALL \?ELS207
+	EQUAL?	PRSA,V?TAKE \?ELS207
+	LOC	OBJ1
+	EQUAL?	STACK,WINNER,HERE /?ELS213
+	LOC	OBJ1
+	FSET?	STACK,TRANSBIT \?PRG133
+?ELS213:	FSET?	OBJ1,TAKEBIT /?ELS207
+	FSET?	OBJ1,TRYTAKEBIT /?ELS207
+	JUMP	?PRG133
+?ELS207:	EQUAL?	P-GETFLAGS,P-ALL \?ELS217
+	EQUAL?	PRSA,V?DROP \?ELS217
+	IN?	OBJ1,WINNER /?ELS217
+	IN?	P-IT-OBJECT,WINNER /?ELS217
+	JUMP	?PRG133
+?ELS217:	EQUAL?	OBJ1,IT \?ELS224
+	CALL	DPRINT,P-IT-OBJECT
+	JUMP	?CND222
+?ELS224:	CALL	DPRINT,OBJ1
+?CND222:	PRINTI	": "
+?CND196:	ZERO?	PTBL /?ELS233
+	PUSH	OBJ1
+	JUMP	?CND229
+?ELS233:	PUSH	OBJ
+?CND229:	CALL	QCONTEXT-CHECK,STACK >V
+	SET	'TMP,TRUE-VALUE
+	CALL	PERFORM,PRSA,PRSO,PRSI >V
+	EQUAL?	V,M-FATAL \?PRG133
+	JUMP	?CND58
+?REP134:	
+?CND58:	EQUAL?	V,M-FATAL /?CND240
+	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	STACK,M-END >V
+?CND240:	EQUAL?	PRSA,V?FOLLOW,V?WALK,V?AGAIN /?CND243
+	EQUAL?	PRSA,V?WAIT /?CND243
+	CALL	GAME-COMMAND?
+	ZERO?	STACK /?ELS245
+	JUMP	?CND243
+?ELS245:	SET	'L-PRSA,PRSA
+	SET	'L-PRSO,PRSO
+	SET	'L-PRSI,PRSI
+	SET	'L-WALK-DIR,P-WALK-DIR
+	SET	'L-WINNER,WINNER
+?CND243:	EQUAL?	V,M-FATAL \?CND6
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND6
+?ELS8:	SET	'P-CONT,FALSE-VALUE
+?CND6:	ZERO?	P-WON /?CND255
+	CALL	GAME-COMMAND?
+	ZERO?	STACK /?ELS261
+	JUMP	?CND255
+?ELS261:	EQUAL?	PRSA,V?TELL \?ELS263
+	ZERO?	PRSI \?ELS263
+	JUMP	?CND255
+?ELS263:	ZERO?	CLOCK-WAIT \?THN268
+	ZERO?	I-WAIT-DURATION \?ELS267
+?THN268:	CALL	CLOCKER >V
+	CALL	DETECTOR-NOISE >V
+	JUMP	?CND255
+?ELS267:	CALL	V-WAIT,I-WAIT-DURATION,FALSE-VALUE >I-WAIT-FLAG
+	ZERO?	I-WAIT-FLAG /?ELS274
+	CALL	I-WAIT-RTN
+	SET	'I-WAIT-FLAG,FALSE-VALUE
+	JUMP	?CND272
+?ELS274:	SET	'I-WAIT-DURATION,0
+	CALL	CLOCKER >V
+?CND272:	CALL	DETECTOR-NOISE >V
+?CND255:	SET	'PRSA,FALSE-VALUE
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSI,FALSE-VALUE
+	JUMP	?PRG1
+
+
+	.FUNCT	GAME-COMMAND?
+	EQUAL?	PRSA,V?VERBOSE,V?SUPER-BRIEF,V?BRIEF /TRUE
+	EQUAL?	PRSA,V?RESTART,V?RESTORE,V?SAVE /TRUE
+	EQUAL?	PRSA,V?UNSCRIPT,V?SCRIPT,V?QUIT /TRUE
+	EQUAL?	PRSA,V?SCORE,V?VERSION,V?$VERIFY /TRUE
+	EQUAL?	PRSA,V?TIME /TRUE
+	RFALSE
+
+
+	.FUNCT	QCONTEXT-CHECK,PRSO,OTHER,WHO=0,N=0
+	EQUAL?	PRSA,V?LONGITUDE,V?LATITUDE,V?HELP /?THN6
+	EQUAL?	PRSA,V?GIVE,V?TELL,V?SHOW \FALSE
+	EQUAL?	PRSO,PLAYER \FALSE
+?THN6:	FIRST?	HERE >OTHER /?KLU33
+?KLU33:	
+?PRG10:	ZERO?	OTHER \?ELS14
+	JUMP	?REP11
+?ELS14:	FSET?	OTHER,PERSON \?CND12
+	EQUAL?	OTHER,PLAYER /?CND12
+	INC	'N
+	SET	'WHO,OTHER
+?CND12:	NEXT?	OTHER >OTHER /?KLU34
+?KLU34:	JUMP	?PRG10
+?REP11:	EQUAL?	1,N \?CND19
+	ZERO?	QCONTEXT \?CND19
+	CALL	SAID-TO,WHO
+?CND19:	ZERO?	QCONTEXT /FALSE
+	IN?	QCONTEXT,HERE \FALSE
+	EQUAL?	QCONTEXT-ROOM,HERE \FALSE
+	EQUAL?	WINNER,PLAYER \FALSE
+	SET	'WINNER,QCONTEXT
+	PRINTI	"(said to "
+	CALL	DPRINT,QCONTEXT
+	PRINTR	")"
+
+
+	.FUNCT	SAID-TO,WHO
+	SET	'WINNER,WHO
+	SET	'QCONTEXT,WHO
+	SET	'QCONTEXT-ROOM,HERE
+	RETURN	QCONTEXT-ROOM
+
+
+	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI
+	SET	'OA,PRSA
+	SET	'OO,PRSO
+	SET	'OI,PRSI
+	EQUAL?	A,V?WALK /?CND1
+	EQUAL?	IT,I,O \?CND1
+	PRINTI	"I don't see what you are referring to."
+	CRLF	
+	RETURN	2
+?CND1:	SET	'PRSA,A
+	SET	'PRSO,O
+	ZERO?	PRSO /?CND10
+	EQUAL?	PRSI,IT /?CND10
+	EQUAL?	PRSA,V?WALK /?CND10
+	SET	'P-IT-OBJECT,PRSO
+?CND10:	SET	'PRSI,I
+	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?ELS17
+	EQUAL?	PRSA,V?WALK /?ELS17
+	CALL	NOT-HERE-OBJECT-F >V
+	ZERO?	V /?ELS17
+	SET	'P-WON,FALSE-VALUE
+	JUMP	?CND15
+?ELS17:	SET	'O,PRSO
+	SET	'I,PRSI
+	GETP	WINNER,P?ACTION
+	CALL	STACK >V
+	ZERO?	V /?ELS24
+	JUMP	?CND15
+?ELS24:	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	STACK,M-BEG >V
+	ZERO?	V /?ELS26
+	JUMP	?CND15
+?ELS26:	GET	PREACTIONS,A
+	CALL	STACK >V
+	ZERO?	V /?ELS28
+	JUMP	?CND15
+?ELS28:	SET	'I,PRSI
+	ZERO?	I /?ELS30
+	ZERO?	I /?ELS30
+	GETP	I,P?ACTION
+	CALL	STACK >V
+	ZERO?	V /?ELS30
+	JUMP	?CND15
+?ELS30:	ZERO?	O /?ELS34
+	EQUAL?	A,V?WALK /?ELS34
+	LOC	O
+	ZERO?	STACK /?ELS34
+	LOC	O
+	GETP	STACK,P?CONTFCN
+	CALL	STACK,M-CONT >V
+	ZERO?	V /?ELS34
+	JUMP	?CND15
+?ELS34:	ZERO?	O /?ELS38
+	EQUAL?	A,V?WALK /?ELS38
+	GETP	O,P?ACTION
+	CALL	STACK >V
+	ZERO?	V /?ELS38
+	JUMP	?CND15
+?ELS38:	GET	ACTIONS,A
+	CALL	STACK >V
+	ZERO?	V /?CND15
+?CND15:	EQUAL?	V,M-FATAL /?CND43
+	LOC	WINNER
+	EQUAL?	STACK,PRSO \?CND46
+	SET	'PRSO,FALSE-VALUE
+?CND46:	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	STACK,M-END >V
+?CND43:	SET	'PRSA,OA
+	SET	'PRSO,OO
+	SET	'PRSI,OI
+	RETURN	V
+
+
+	.FUNCT	TELL-START-STR
+	PRINTR	"Nights on Hardscrabble Island are lonely and cold when the lighthouse barely pierces the gloom. You sit on your bed, thinking of better times and far-off places. A knock on your door stirs you, and Hevlin, a shipmate you haven't seen for years, staggers in.
+
+""I'm in trouble,"" he says. ""I had a few too many at The Shanty. I was looking for Red, but he wasn't around, and I started talking about ... here,"" he says, handing you a slim volume that you recognize as a shipwreck book written years ago by the Historical Society.
+
+You smile. Every diver on the island has looked for those wrecks, without even an old boot to show for it. You open the door, hoping the drunken fool will leave. ""I know what you're thinkin',"" Hevlin scowls, ""but look!"" He points to the familiar map, and you see new locations marked for two of the wrecks.
+
+""Keep it for me,"" he says. ""Just for tonight. It'll be safe here with you. Don't let -- "" He stops and broods for a moment. ""I've got to go find Red!"" And with that, Hevlin leaves.
+
+You put the book in your dresser and think about following Hevlin. Then you hear a scuffle outside. You look through your window and see two men struggling. One falls to the ground in a heap. The other man bends down beside him, then turns as if startled and runs away. Another man then approaches the wounded figure. He kneels beside him for a long moment, then takes off after the other man.
+
+It isn't long before the police arrive to tell you that Hevlin's been murdered. You don't mention the book, and hours later, as you lie awake in your bed, you wonder if the book could really be what it seems."
+
+
+	.FUNCT	ACCESSIBLE?,OBJ,L
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	EQUAL?	OBJ,PSEUDO-OBJECT \?ELS7
+	GETP	PSEUDO-OBJECT,P?DESCFCN
+	EQUAL?	STACK,HERE \FALSE
+	RTRUE	
+?ELS7:	ZERO?	L /FALSE
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	EQUAL?	L,LOCAL-GLOBALS \?ELS20
+	CALL	GLOBAL-IN?,OBJ,HERE
+	ZERO?	STACK \TRUE
+?ELS20:	CALL	META-LOC,OBJ
+	EQUAL?	STACK,HERE \FALSE
+	EQUAL?	L,WINNER,HERE /TRUE
+	FSET?	L,OPENBIT /?THN31
+	FSET?	L,PERSON \FALSE
+?THN31:	CALL	ACCESSIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	VISIBLE?,OBJ,L
+	LOC	OBJ >L
+	CALL	ACCESSIBLE?,OBJ
+	ZERO?	STACK \TRUE
+	CALL	SEE-INSIDE?,L
+	ZERO?	STACK /FALSE
+	CALL	VISIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	META-LOC,OBJ
+?PRG1:	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CND3
+	RETURN	OBJ
+?CND3:	IN?	OBJ,ROOMS \?ELS10
+	RETURN	OBJ
+?ELS10:	LOC	OBJ >OBJ
+	JUMP	?PRG1
+
+	.ENDI
diff --git a/main.zil b/main.zil
new file mode 100644
index 0000000..22b1789
--- /dev/null
+++ b/main.zil
@@ -0,0 +1,581 @@
+"MAIN for
+		           TOA #2
+      Copyright (c) 1984 Infocom, Inc.  All Rights Reserved.
+"
+
+<GLOBAL PLAYER <>>
+
+<GLOBAL P-WON <>>
+
+<CONSTANT M-FATAL 2>
+ 
+<CONSTANT M-HANDLED 1>   
+ 
+<CONSTANT M-NOT-HANDLED <>>   
+ 
+<CONSTANT M-OBJECT <>>
+
+<CONSTANT M-BEG 1>  
+ 
+<CONSTANT M-END 6> 
+ 
+<CONSTANT M-ENTER 2>
+ 
+<CONSTANT M-LOOK 3> 
+ 
+<CONSTANT M-FLASH 4>
+
+<CONSTANT M-OBJDESC 5>
+
+<CONSTANT M-CONT 7>
+
+<CONSTANT M-NAME 8>
+
+<ROUTINE GO () 
+;"put interrupts on clock chain"
+	 <ENABLE <QUEUE I-UNWOUND 20>>
+	 <ENABLE <QUEUE I-BUSINESS-HOURS 60>>
+	 <ENABLE <QUEUE I-FERRY-APPROACHING 117>>
+	 <ENABLE <QUEUE I-FERRY 120>>
+	 <ENABLE <QUEUE I-HUNGER 15>>
+	 <ENABLE <QUEUE I-THIRST 25>>
+	 <ENABLE <QUEUE I-TIRED 929>>
+	 <ENABLE <QUEUE I-LIVER 10>>
+	 <QUEUE I-DRILL 5>
+	 <QUEUE I-MM-COMPRESSOR 80>
+	 <ENABLE <QUEUE I-PLOT-NEVER-STARTS 60>>
+;"set up and go"
+	 %<COND (<NOT <GASSIGNED? PREDGEN>>
+		 '(;<SETG XTELLCHAN <OPEN "READB" ,XTELLFILE>>
+		   <SETG LIT T>))
+		('<SETG LIT T>)>
+	 <SETG SCORE 8>
+	 <SETG WINNER ,ADVENTURER>
+	 <SETG PLAYER ,WINNER>
+	 <SETG SAMPLE-TREASURE ,GLOBAL-OBJECTS>
+	 <PUT-IN-TABLE ,ENVELOPE ,MCGINTY-HQ ,GLOBAL-SURFACE>
+	 <SETG HERE ,BEDROOM>
+	 ;<SETG P-IT-LOC ,HERE>
+	 <SETG P-IT-OBJECT <>>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<START-MOVEMENT>
+		<TELL-START-STR>
+		<CRLF>
+		<V-VERSION>
+		<CRLF>)>
+	 <MOVE ,WINNER ,BED>
+	 <V-LOOK>
+	 ;<USL>
+	 <MAIN-LOOP>
+	 <AGAIN>>    
+
+
+<ROUTINE MAIN-VERB-PRINT ("AUX" TMP)
+	 <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	 <COND (,P-OFLAG
+		<PRINTB <GET .TMP 0>>)
+	       (T
+		<WORD-PRINT <GETB .TMP 2>
+		<GETB .TMP 3>>)>>
+
+<ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP PLACE) 
+   #DECL ((CNT OCNT ICNT NUM) FIX (OBJ) <OR FALSE OBJECT>
+	  (OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
+   <REPEAT ()
+     <SET CNT 0>
+     <SET OBJ <>>
+     <SET PTBL T>
+     <SETG WAITED? <>>
+     <SETG P-WALK-DIR <>>
+     ;<SETG GROGGIED <>>
+     <COND (<NOT <==? ,HERE ,QCONTEXT-ROOM>>
+	    <SETG QCONTEXT <>>)>
+     <COND (<SETG P-WON <PARSER>>
+	    <SETG LAST-PLAYER-LOC <LOC ,PLAYER>>
+	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
+	    <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>
+	    <COND (<AND ,P-IT-OBJECT <ACCESSIBLE? ,P-IT-OBJECT>>
+		   <SET TMP <>>
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
+				  <RETURN>)
+				 (T
+				  <COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
+					 <PUT ,P-PRSI .CNT ,P-IT-OBJECT>
+					 <SET TMP T>
+					 <RETURN>)>)>>
+		   <COND (<NOT .TMP>
+			  <SET CNT 0>
+			  <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
+				  <RETURN>)
+				 (T
+				  <COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
+					 <PUT ,P-PRSO .CNT ,P-IT-OBJECT>
+					 <RETURN>)>)>>)>
+		   <SET CNT 0>)>
+	    <SET NUM
+		 <COND (<0? .OCNT> .OCNT)
+		       (<G? .OCNT 1>
+			<SET TBL ,P-PRSO>
+			<COND (<0? .ICNT> <SET OBJ <>>)
+			      (T <SET OBJ <GET ,P-PRSI 1>>)>
+			.OCNT)
+		       (<G? .ICNT 1>
+			<SET PTBL <>>
+			<SET TBL ,P-PRSI>
+			<SET OBJ <GET ,P-PRSO 1>>
+			.ICNT)
+		       (T 1)>>
+	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
+	    <COND (<AND <==? ,PRSA ,V?WALK> ,P-WALK-DIR>
+		   <SET V <PERFORM ,PRSA ,PRSO>>)
+		  (<0? .NUM>
+		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
+			  <SET V <PERFORM ,PRSA>>
+			  <SETG PRSO <>>)
+			 (<NOT ,LIT>
+			  <TELL-TOO-DARK>)
+			 (T
+;"** M"			  <COND (.OBJ
+				 <COND (<==? .OBJ ,NOT-HERE-OBJECT>
+					<GLOBAL-NOT-HERE-PRINT .OBJ>)
+				       (<FSET? 
+					<SET PLACE <LOC ,WINNER>>
+				        ,VEHBIT>
+					<COND (<NOT <EQUAL? .PLACE
+							    ;<LOC ,WINNER>
+						            <LOC .OBJ>>>
+					       <TELL "You should get ">
+					      <COND (<FSET? .PLACE ,SURFACEBIT>
+						     <TELL "off">)
+						    (T <TELL "out">)>
+					       <TELL " of ">
+					       <THE? .PLACE>
+					       <TELL D .PLACE " first." CR>
+					       <SET V <>>)>)
+				       (<VERB? GIVE>
+					<TELL-NOTHING "to ">
+					<MAIN-VERB-PRINT>
+					<TELL "." CR>
+				 	<SET V <>>)
+				       (<AND <FSET? .OBJ ,CONTBIT>
+					     <NOT <FSET? .OBJ ,OPENBIT>>>
+					<TELL "Better open the " D .OBJ
+					      " first." CR>
+					<SETG P-IT-OBJECT .OBJ>
+					<SET V <>>)
+				       (<NOT <FSET? .OBJ ,CONTBIT>>
+					<TELL-NOTHING "in that" T>
+					<SET V <>>)
+				       (T
+					<TELL "It's not in that." CR>
+					<SET V <>>)>) 
+			        (<VERB? $CALL>
+				 <V-CALL-LOSE>
+				 <SET V <>>)
+				(,P-NONE
+				 <TELL "I can't find any here!" CR>
+				 <SET V <>>)
+				(T
+				 <TELL "There isn't anything to ">
+				 <MAIN-VERB-PRINT>
+				 <TELL " here!" CR>
+				 <SET V <>>)>)>)
+		  (T
+		   <SETG P-NOT-HERE 0>
+		   <SETG P-MULT <>>
+		   <COND (<G? .NUM 1> <SETG P-MULT T>)>
+		   <SET TMP <>>
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM>
+				  <COND (<G? ,P-NOT-HERE 0>
+					 <TELL "The ">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE .NUM>>
+						<TELL "other ">)>
+					 <TELL "object">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
+						<TELL "s">)>
+					 <TELL " that you mentioned ">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
+						<TELL "are">)
+					       (T <TELL "is">)>
+					 <TELL "n't here." CR>)
+					(<NOT .TMP>
+					 <TELL 
+"I don't know what you're referring to." CR>)>
+				  <RETURN>)
+				 (T
+				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
+					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
+				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
+				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
+				  ;<COND (<EQUAL? ,HERE ,P-IT-LOC>
+					 <COND (<EQUAL? ,PRSO ,IT>
+					 	<SETG PRSO ,P-IT-OBJECT>
+						<COND (.PTBL
+						       <SET OBJ1 ,PRSO>
+						       <PUT ,P-PRSO 
+							    .CNT ,PRSO>)
+						      (T
+						       <SET OBJ ,PRSO>
+						       <PUT ,P-PRSO 1 ,PRSO>)>)
+					       (<EQUAL? ,PRSI ,IT>
+					 	<SETG PRSI ,P-IT-OBJECT>
+						<COND (.PTBL
+						       <SET OBJ ,PRSI>
+						       <PUT ,P-PRSI 1 ,PRSI>)
+						      (T
+						       <SET OBJ1 ,PRSI>
+						       <PUT ,P-PRSI 
+							    .CNT ,PRSI>)>)>)>
+				  <COND ;(<VERB? COMPARE> T)
+					(<G? .NUM 1>
+					 <COND (<EQUAL? .OBJ1
+							 ,NOT-HERE-OBJECT>
+						 <SETG P-NOT-HERE
+						       <+ ,P-NOT-HERE 1>>
+						 <AGAIN>)
+						(<AND <VERB? TAKE>
+						      ,PRSI
+						      <EQUAL? <GET <GET ,P-ITBL
+									,P-NC1>
+								   0>
+							      ,W?ALL>
+						      <NOT <IN? ,PRSO ,PRSI>>>
+						 <AGAIN>)
+						(<AND <EQUAL? ,P-GETFLAGS
+							      ,P-ALL>
+						      <VERB? TAKE>
+						      <OR <AND <NOT <EQUAL?
+								    <LOC .OBJ1>
+								    ,WINNER
+								    ,HERE>>
+							       <NOT <FSET?
+								  <LOC .OBJ1>
+								  ,TRANSBIT>>>
+							  <NOT <OR <FSET?
+								    .OBJ1
+								    ,TAKEBIT>
+								   <FSET?
+								    .OBJ1
+							       ,TRYTAKEBIT>>>>>
+						 <AGAIN>)
+						(<AND <EQUAL? ,P-GETFLAGS
+							      ,P-ALL>
+						      <VERB? DROP>
+						      <NOT <IN? .OBJ1 ,WINNER>>
+						      <NOT <IN? ,P-IT-OBJECT
+								,WINNER>>>
+						 <AGAIN>)
+						(T
+						 <COND (<EQUAL? .OBJ1 ,IT>
+							<DPRINT ,P-IT-OBJECT>)
+						       (T <DPRINT .OBJ1>)>
+						 <TELL ": ">)>)>
+				  <SET V <QCONTEXT-CHECK <COND (.PTBL .OBJ1)
+							(T .OBJ)>>>
+				  <SET TMP T>
+				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
+				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>)>
+	    <COND (<NOT <==? .V ,M-FATAL>>
+		   ;<COND (<==? <LOC ,WINNER> ,PRSO>
+			  <SETG PRSO <>>)>
+		   ;"Removing this code should fix the problem that AGAIN
+		     loses when in a vehicle and it is the PRSO."
+		   <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	    <COND (<OR <VERB? AGAIN WALK FOLLOW>
+		       <VERB? WAIT>
+		       <GAME-COMMAND?>>
+		   T)
+		  (T
+		   <SETG L-PRSA ,PRSA>
+		   <SETG L-PRSO ,PRSO>
+		   <SETG L-PRSI ,PRSI>
+		   <SETG L-WALK-DIR ,P-WALK-DIR>
+		   <SETG L-WINNER ,WINNER>)>
+	    <COND (<==? .V ,M-FATAL> <SETG P-CONT <>>)>)
+	   (T
+	    <SETG P-CONT <>>)>
+     <COND (,P-WON
+	    <COND (<GAME-COMMAND?>
+		   T)
+		  (<AND <VERB? TELL>
+			<NOT ,PRSI>>
+		   T)
+	    	  (<OR ,CLOCK-WAIT <0? ,I-WAIT-DURATION>>
+		   <SET V <CLOCKER>>
+		   <SET V <DETECTOR-NOISE>>)
+		  (T
+		   <SETG I-WAIT-FLAG <V-WAIT ,I-WAIT-DURATION <>>>
+		   <COND (,I-WAIT-FLAG
+		   	  <APPLY ,I-WAIT-RTN>
+		   	  <SETG I-WAIT-FLAG <>>)
+			 (T <SETG I-WAIT-DURATION 0> <SET V <CLOCKER>>)>
+		   <SET V <DETECTOR-NOISE>>)>)>
+     <SETG PRSA <>>
+     <SETG PRSO <>>
+     <SETG PRSI <>>>>
+
+<ROUTINE GAME-COMMAND? ()
+	 <COND (<VERB? BRIEF SUPER-BRIEF VERBOSE SAVE RESTORE RESTART
+		       QUIT SCRIPT UNSCRIPT $VERIFY VERSION SCORE TIME>
+		<RTRUE>)>>
+
+<ROUTINE QCONTEXT-CHECK (PRSO "AUX" OTHER (WHO <>) (N 0))
+	 <COND (<OR <VERB? HELP LATITUDE LONGITUDE>
+		    <AND <VERB? SHOW TELL GIVE> <==? .PRSO ,PLAYER>>> ;"? more?"
+		<SET OTHER <FIRST? ,HERE>>
+		<REPEAT ()
+			<COND (<NOT .OTHER> <RETURN>)
+			      (<AND <FSET? .OTHER ,PERSON>
+				    <NOT <==? .OTHER ,PLAYER>>>
+			       <SET N <+ 1 .N>>
+			       <SET WHO .OTHER>)>
+			<SET OTHER <NEXT? .OTHER>>>
+		<COND (<AND <==? 1 .N> <NOT ,QCONTEXT>>
+		       <SAID-TO .WHO>)>
+		<COND (<AND ,QCONTEXT
+			    <IN? ,QCONTEXT ,HERE>
+			    <==? ,QCONTEXT-ROOM ,HERE>
+			    <==? ,WINNER ,PLAYER>> ;"? more?"
+		       <SETG WINNER ,QCONTEXT>
+		       <TELL "(said to " D ,QCONTEXT ")" CR>)>)>>
+
+<ROUTINE SAID-TO (WHO)
+ <SETG WINNER .WHO>
+ <SETG QCONTEXT .WHO>
+ <SETG QCONTEXT-ROOM ,HERE>>
+ 
+<GLOBAL P-MULT <>>
+
+<GLOBAL P-NOT-HERE 0>
+
+<GLOBAL L-PRSA <>>  
+ 
+<GLOBAL L-PRSO <>>  
+ 
+<GLOBAL L-PRSI <>>
+
+<GLOBAL L-WINNER <>>
+
+<GLOBAL LAST-PLAYER-LOC <>>  
+
+;"PERFORM without DEBUG"
+<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
+	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<COND (<AND <NOT <==? .A ,V?WALK>>
+		    <EQUAL? ,IT .I .O>>
+	       ;<AND <EQUAL? ,IT .I .O>
+		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
+	       <TELL "I don't see what you are referring to." CR>
+	       <RFATAL>)>
+	;<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
+	;<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
+	<SETG PRSA .A>
+	<SETG PRSO .O>
+	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
+	       <SETG P-IT-OBJECT ,PRSO>
+	       ;<SETG P-IT-LOC ,HERE>)>
+	<SETG PRSI .I>
+	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
+		    <NOT <VERB? WALK>>
+		    <SET V <NOT-HERE-OBJECT-F>>>
+	       <SETG P-WON <>>
+	       .V)
+	      (T
+	       <SET O ,PRSO>
+	       <SET I ,PRSI>
+	       <COND
+		(<SET V <APPLY <GETP ,WINNER ,P?ACTION>>> .V)
+		(<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-BEG>> .V)
+		(<SET V <APPLY <GET ,PREACTIONS .A>>> .V)
+		(<AND <SET I ,PRSI> .I <SET V <APPLY <GETP .I ,P?ACTION>>>> .V)
+		(<AND .O
+		      <NOT <==? .A ,V?WALK>>
+		      <LOC .O>
+		      <SET V <APPLY <GETP <LOC .O> ,P?CONTFCN> ,M-CONT>>>
+		 .V)
+		(<AND .O
+		      <NOT <==? .A ,V?WALK>>
+		      <SET V <APPLY <GETP .O ,P?ACTION>>>>
+		 .V)
+		(<SET V <APPLY <GET ,ACTIONS .A>>> .V)>)>
+	<COND (<NOT <==? .V ,M-FATAL>>
+	       <COND (<==? <LOC ,WINNER> ,PRSO>
+		      <SETG PRSO <>>)>
+	       <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>
+
+;"PERFORM with DEBUG"
+;<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
+	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
+	<COND (,DEBUG
+	       <TELL "** PERFORM: PRSA = ">
+	       %<COND (<GASSIGNED? PREDGEN> '<TELL N .A>)
+		      (T '<PRINC <NTH ,ACTIONS <+ <* .A 2> 1>>>)>
+	       <COND (<AND .O <NOT <==? .A ,V?WALK>>>
+		      <TELL "/PRSO = " D .O>)>
+	       <COND (.I <TELL "/PRSI = " D .I>)>)>
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<COND (<AND <NOT <==? .A ,V?WALK>>
+		    <EQUAL? ,IT .I .O>>
+	       ;<AND <EQUAL? ,IT .I .O>
+		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
+	       <TELL "I don't see what you are referring to." CR>
+	       <RFATAL>)>
+	;<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
+	;<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
+	<SETG PRSA .A>
+	<SETG PRSO .O>
+	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
+	       <SETG P-IT-OBJECT ,PRSO>
+	       ;<SETG P-IT-LOC ,HERE>)>
+	<SETG PRSI .I>
+	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
+		    <NOT <VERB? WALK>>
+		    <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>>
+	       <SETG P-WON <>>
+	       .V)
+	      (T
+	       <SET O ,PRSO>
+	       <SET I ,PRSI>
+	       <COND (<SET V <DD-APPLY "Actor" ,WINNER
+				      <GETP ,WINNER ,P?ACTION>>> .V)
+		     (<SET V <D-APPLY "Room (M-BEG)"
+				      <GETP <LOC ,WINNER> ,P?ACTION>
+				      ,M-BEG>> .V)
+		     (<SET V <D-APPLY "Preaction"
+				      <GET ,PREACTIONS .A>>> .V)
+		     (<AND <SET I ,PRSI> .I <SET V <D-APPLY "PRSI"
+					      <GETP .I ,P?ACTION>>>> .V)
+		     (<AND .O
+			   <NOT <==? .A ,V?WALK>>
+			   <LOC .O>
+			   <GETP <LOC .O> ,P?CONTFCN>
+			   <SET V <DD-APPLY "Container" <LOC .O>
+					  <GETP <LOC .O> ,P?CONTFCN>>>>
+		      .V)
+		     (<AND .O
+			   <NOT <==? .A ,V?WALK>>
+			   <SET V <D-APPLY "PRSO"
+					   <GETP .O ,P?ACTION>>>>
+		      .V)
+		     (<SET V <D-APPLY <>
+				      <GET ,ACTIONS .A>>> .V)>)>
+	<COND (<NOT <==? .V ,M-FATAL>>
+	       <COND (<==? <LOC ,WINNER> ,PRSO>
+		      <SETG PRSO <>>)>
+	       <SET V <D-APPLY "Room (M-END)"
+			       <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>
+
+;"Next 2 routines for use with DEBUG"
+;<ROUTINE DD-APPLY (STR OBJ FCN "OPTIONAL" (FOO <>))
+	<COND (,DEBUG <TELL "[" D .OBJ "=]">)>
+	<D-APPLY .STR .FCN .FOO>>
+
+;<ROUTINE D-APPLY (STR FCN "OPTIONAL" (FOO <>) "AUX" RES)
+	<COND (<NOT .FCN> <>)
+	      (T
+	       <COND (,DEBUG
+		      <COND (<NOT .STR>
+			     <TELL "[Action:]" CR>)
+			    (T <TELL "[" .STR ": ">)>)>
+	       <COND (<==? .STR "Container">
+		      <SET FOO ,M-CONT>)>
+	       <SET RES
+		    <COND (.FOO <APPLY .FCN .FOO>)
+			  (T <APPLY .FCN>)>>
+	       <COND (<AND ,DEBUG .STR>
+		      <COND (<==? .RES ,M-FATAL>
+			     <TELL "Fatal]" CR>)
+			    (<NOT .RES>
+			     <TELL "Not handled]" CR>)
+			    (T <TELL "Handled]" CR>)>)>
+	       .RES)>>
+ 
+<ROUTINE TELL-START-STR () ;"submitted by a committee"
+	 <TELL
+"Nights on Hardscrabble Island are lonely and cold when the lighthouse
+barely pierces the gloom. You sit on your bed, thinking of better times
+and far-off places. A knock on your door stirs you, and Hevlin, a shipmate
+you haven't seen for years, staggers in.|
+|
+\"I'm in trouble,\" he says. \"I had a few too many at The Shanty.
+I was looking for Red, but he wasn't around, and I started talking about ...
+here,\" he says, handing you a slim volume that you recognize
+as a shipwreck book written years ago by the Historical Society.|
+|
+You smile. Every diver on the island has looked for those wrecks,
+without even an old boot to show for it. You open the door, hoping the
+drunken fool will leave. \"I know what you're thinkin',\" Hevlin scowls,
+\"but look!\" He points to the familiar map, and you see new locations
+marked for two of the wrecks.|
+|
+\"Keep it for me,\" he says. \"Just for tonight. It'll be safe here with
+you. Don't let -- \" He stops and broods for a moment. \"I've got to go
+find Red!\" And with that, Hevlin leaves.|
+|
+You put the book in your dresser and think about following Hevlin. Then you
+hear a scuffle outside. You look through your window and see two men
+struggling. One falls to the ground in a heap. The other man bends
+down beside him, then turns as if startled and runs away. Another man then
+approaches the wounded figure. He kneels beside him for a long moment,
+then takes off after the other man.|
+|
+It isn't long before the police arrive to tell you that Hevlin's been
+murdered. You don't mention the book, and hours later, as you lie awake
+in your bed, you wonder if the book could really be what it seems." CR>>
+
+<ROUTINE ACCESSIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player TOUCH object?"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<FSET? .OBJ ,INVISIBLE>	<RFALSE>)
+	       (<EQUAL? .OBJ ,PSEUDO-OBJECT>
+		<COND (<EQUAL? <GETP ,PSEUDO-OBJECT ,P?DESCFCN> ,HERE>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT .L> <RFALSE>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS> <RTRUE>)	       
+	       (<AND <EQUAL? .L ,LOCAL-GLOBALS>
+		     <GLOBAL-IN? .OBJ ,HERE>>
+		<RTRUE>)
+	       (<NOT <EQUAL? <META-LOC .OBJ> ,HERE>> <RFALSE>)
+	       (<EQUAL? .L ,WINNER ,HERE> <RTRUE>)
+	       (<AND <OR <FSET? .L ,OPENBIT>
+			 <FSET? .L ,PERSON>>
+		     <ACCESSIBLE? .L>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<ROUTINE VISIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player SEE object"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<ACCESSIBLE? .OBJ>
+		<RTRUE>)
+	       (<AND <SEE-INSIDE? .L>
+		     <VISIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ> <RFALSE>)
+		       (<EQUAL? .OBJ ,GLOBAL-OBJECTS ,LOCAL-GLOBALS>
+			<RETURN .OBJ>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (ELSE
+			<SET OBJ <LOC .OBJ>>)>>>
\ No newline at end of file
diff --git a/parser.zap b/parser.zap
new file mode 100644
index 0000000..0648741
--- /dev/null
+++ b/parser.zap
@@ -0,0 +1,1521 @@
+
+
+	.FUNCT	PARSER,PTR=P-LEXSTART,WORD,VAL=0,VERB=0,LEN,DIR=0,NW=0,LW=0,NUM,SCNT,CNT=-1
+?PRG1:	IGRTR?	'CNT,P-ITBLLEN \?ELS5
+	JUMP	?REP2
+?ELS5:	PUT	P-ITBL,CNT,0
+	JUMP	?PRG1
+?REP2:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADVERB,FALSE-VALUE
+	SET	'P-MERGED,FALSE-VALUE
+	SET	'P-NONE,FALSE-VALUE
+	PUT	P-PRSO,P-MATCHLEN,0
+	PUT	P-PRSI,P-MATCHLEN,0
+	PUT	P-BUTS,P-MATCHLEN,0
+	ZERO?	QUOTE-FLAG \?CND8
+	EQUAL?	WINNER,PLAYER /?CND8
+	SET	'WINNER,PLAYER
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND8
+	LOC	WINNER >HERE
+?CND8:	ZERO?	P-CONT /?ELS18
+	SET	'PTR,P-CONT
+	SET	'P-CONT,FALSE-VALUE
+	EQUAL?	L-PRSA,V?TELL /?CND16
+	CRLF	
+	JUMP	?CND16
+?ELS18:	SET	'WINNER,PLAYER
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND25
+	LOC	WINNER >HERE
+?CND25:	PUTB	P-LEXV,0,59
+	ZERO?	SUPER-BRIEF \?CND28
+	CRLF	
+?CND28:	PRINTI	">"
+	READ	P-INBUF,P-LEXV
+?CND16:	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	ZERO?	P-LEN \?ELS35
+	PRINTI	"What?"
+	CRLF	
+	RFALSE	
+?ELS35:	GET	P-LEXV,PTR >WORD
+	EQUAL?	WORD,W?WHY,W?HOW,W?WHEN /?THN40
+	EQUAL?	WORD,W?IS,W?DID,W?ARE \?CND33
+?THN40:	PRINTI	"Sorry, but this program can't handle questions like that. You should stick to questions like ""WHAT IS ..."" and ""WHERE IS ...."" Maybe you'd like to reread the manual."
+	CRLF	
+	RFALSE	
+?CND33:	SET	'LEN,P-LEN
+	SET	'P-DIR,FALSE-VALUE
+	SET	'P-NCN,0
+	SET	'P-GETFLAGS,0
+	PUT	P-ITBL,P-VERBN,0
+?PRG44:	DLESS?	'P-LEN,0 \?ELS48
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?REP45
+?ELS48:	GET	P-LEXV,PTR >WORD
+	ZERO?	WORD \?THN51
+	CALL	NUMBER?,PTR >WORD
+	ZERO?	WORD /?ELS50
+?THN51:	EQUAL?	WORD,W?TO \?ELS55
+	EQUAL?	VERB,ACT?TELL,ACT?ASK \?ELS55
+	SET	'WORD,W?QUOTE
+	JUMP	?CND53
+?ELS55:	EQUAL?	WORD,W?THEN \?CND53
+	ZERO?	VERB \?CND53
+	PUT	P-ITBL,P-VERB,ACT?TELL
+	PUT	P-ITBL,P-VERBN,0
+	SET	'WORD,W?QUOTE
+?CND53:	EQUAL?	WORD,W?PERIOD \?ELS64
+	EQUAL?	LW,W?MR \?ELS64
+	SET	'LW,0
+	JUMP	?CND46
+?ELS64:	EQUAL?	WORD,W?THEN,W?PERIOD,W?QUOTE \?ELS68
+	EQUAL?	WORD,W?QUOTE \?CND69
+	ZERO?	QUOTE-FLAG /?ELS74
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND69
+?ELS74:	SET	'QUOTE-FLAG,TRUE-VALUE
+?CND69:	ZERO?	P-LEN /?THN78
+	ADD	PTR,P-LEXELEN >P-CONT
+?THN78:	PUTB	P-LEXV,P-LEXWORDS,P-LEN
+	JUMP	?REP45
+?ELS68:	CALL	WT?,WORD,PS?DIRECTION,P1?DIRECTION >VAL
+	ZERO?	VAL /?ELS81
+	EQUAL?	VERB,FALSE-VALUE,ACT?WALK \?ELS81
+	EQUAL?	LEN,1 /?THN84
+	EQUAL?	LEN,2 \?ELS87
+	EQUAL?	VERB,ACT?WALK /?THN84
+?ELS87:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+	EQUAL?	NW,W?THEN,W?QUOTE \?ELS89
+	GRTR?	LEN,2 /?THN84
+?ELS89:	EQUAL?	NW,W?PERIOD \?ELS91
+	GRTR?	LEN,1 /?THN84
+?ELS91:	ZERO?	QUOTE-FLAG /?ELS93
+	EQUAL?	LEN,2 \?ELS93
+	EQUAL?	NW,W?QUOTE /?THN84
+?ELS93:	GRTR?	LEN,2 \?ELS81
+	EQUAL?	NW,W?COMMA,W?AND \?ELS81
+?THN84:	SET	'DIR,VAL
+	EQUAL?	NW,W?COMMA,W?AND \?CND96
+	ADD	PTR,P-LEXELEN
+	PUT	P-LEXV,STACK,W?THEN
+?CND96:	GRTR?	LEN,2 /?CND46
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?REP45
+?ELS81:	CALL	WT?,WORD,PS?VERB,P1?VERB >VAL
+	ZERO?	VAL /?ELS103
+	ZERO?	VERB \?ELS103
+	SET	'VERB,VAL
+	PUT	P-ITBL,P-VERB,VAL
+	PUT	P-ITBL,P-VERBN,P-VTBL
+	PUT	P-VTBL,0,WORD
+	MUL	PTR,2
+	ADD	STACK,2 >NUM
+	GETB	P-LEXV,NUM
+	PUTB	P-VTBL,2,STACK
+	ADD	NUM,1
+	GETB	P-LEXV,STACK
+	PUTB	P-VTBL,3,STACK
+	JUMP	?CND46
+?ELS103:	CALL	WT?,WORD,PS?PREPOSITION,0 >VAL
+	ZERO?	VAL \?THN110
+	EQUAL?	WORD,W?ALL,W?ONE,W?A /?THN114
+	CALL	WT?,WORD,PS?ADJECTIVE
+	ZERO?	STACK \?THN114
+	CALL	WT?,WORD,PS?OBJECT
+	ZERO?	STACK /?ELS109
+?THN114:	SET	'VAL,0
+?THN110:	GRTR?	P-LEN,0 \?ELS118
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?OF \?ELS118
+	EQUAL?	VERB,ACT?MAKE /?ELS118
+	ZERO?	VAL \?ELS118
+	EQUAL?	WORD,W?ALL,W?ONE,W?A /?ELS118
+	JUMP	?CND46
+?ELS118:	ZERO?	VAL /?ELS122
+	ZERO?	P-LEN /?THN125
+	ADD	PTR,2
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?THEN,W?PERIOD \?ELS122
+?THN125:	LESS?	P-NCN,2 \?CND46
+	PUT	P-ITBL,P-PREP1,VAL
+	PUT	P-ITBL,P-PREP1N,WORD
+	JUMP	?CND46
+?ELS122:	EQUAL?	P-NCN,2 \?ELS131
+	PRINTI	"I found more than two nouns in that sentence!"
+	CRLF	
+	RFALSE	
+?ELS131:	INC	'P-NCN
+	CALL	CLAUSE,PTR,VAL,WORD >PTR
+	ZERO?	PTR /FALSE
+	LESS?	PTR,0 \?CND46
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?REP45
+?ELS109:	EQUAL?	WORD,W?QUIETLY /?THN143
+	EQUAL?	WORD,W?SLOWLY,W?QUICKLY,W?BRIEFLY \?ELS142
+?THN143:	SET	'P-ADVERB,WORD
+	JUMP	?CND46
+?ELS142:	CALL	WT?,WORD,PS?BUZZ-WORD
+	ZERO?	STACK /?ELS146
+	JUMP	?CND46
+?ELS146:	CALL	CANT-USE,PTR
+	RFALSE	
+?ELS50:	CALL	UNKNOWN-WORD,PTR
+	RFALSE	
+?CND46:	SET	'LW,WORD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG44
+?REP45:	ZERO?	DIR /?CND151
+	SET	'PRSA,V?WALK
+	SET	'PRSO,DIR
+	SET	'P-WALK-DIR,DIR
+	RETURN	TRUE-VALUE
+?CND151:	ZERO?	P-OFLAG /?CND155
+	CALL	ORPHAN-MERGE
+?CND155:	GET	P-ITBL,P-VERB
+	ZERO?	STACK \?CND159
+	PUT	P-ITBL,P-VERB,ACT?$CALL
+?CND159:	CALL	SYNTAX-CHECK
+	ZERO?	STACK /FALSE
+	CALL	SNARF-OBJECTS
+	ZERO?	STACK /FALSE
+	CALL	MANY-CHECK
+	ZERO?	STACK /FALSE
+	CALL	TAKE-CHECK
+	ZERO?	STACK /FALSE
+	RTRUE
+
+
+	.FUNCT	WT?,PTR,BIT,B1=5,OFFSET=P-P1OFF,TYP
+	GETB	PTR,P-PSOFF >TYP
+	BTST	TYP,BIT \FALSE
+	GRTR?	B1,4 /TRUE
+	BAND	TYP,P-P1BITS >TYP
+	EQUAL?	TYP,B1 /?CND13
+	INC	'OFFSET
+?CND13:	GETB	PTR,OFFSET
+	RSTACK	
+
+
+	.FUNCT	CLAUSE,PTR,VAL,WORD,OFF,NUM,ANDFLG=0,FIRST??=1,NW,LW=0,?TMP1
+	SUB	P-NCN,1
+	MUL	STACK,2 >OFF
+	ZERO?	VAL /?ELS3
+	ADD	P-PREP1,OFF >NUM
+	PUT	P-ITBL,NUM,VAL
+	ADD	NUM,1
+	PUT	P-ITBL,STACK,WORD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND1
+?ELS3:	INC	'P-LEN
+?CND1:	ZERO?	P-LEN \?CND6
+	DEC	'P-NCN
+	RETURN	-1
+?CND6:	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 \?CND9
+	GET	P-ITBL,NUM
+	ADD	STACK,4
+	PUT	P-ITBL,NUM,STACK
+?CND9:	
+?PRG12:	DLESS?	'P-LEN,0 \?CND14
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	-1
+?CND14:	GET	P-LEXV,PTR >WORD
+	ZERO?	WORD \?THN20
+	CALL	NUMBER?,PTR >WORD
+	ZERO?	WORD /?ELS19
+?THN20:	ZERO?	P-LEN \?ELS24
+	SET	'NW,0
+	JUMP	?CND22
+?ELS24:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+?CND22:	EQUAL?	WORD,W?OF \?CND27
+	GET	P-ITBL,P-VERB
+	EQUAL?	STACK,ACT?MAKE \?CND27
+	PUT	P-LEXV,PTR,W?WITH
+	SET	'WORD,W?WITH
+?CND27:	EQUAL?	WORD,W?PERIOD \?ELS34
+	EQUAL?	LW,W?MR \?ELS34
+	SET	'LW,0
+	JUMP	?CND17
+?ELS34:	EQUAL?	WORD,W?AND,W?COMMA \?ELS38
+	SET	'ANDFLG,TRUE-VALUE
+	JUMP	?CND17
+?ELS38:	EQUAL?	WORD,W?ALL,W?ONE \?ELS40
+	EQUAL?	NW,W?OF \?CND17
+	DEC	'P-LEN
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND17
+?ELS40:	EQUAL?	WORD,W?THEN,W?PERIOD /?THN46
+	CALL	WT?,WORD,PS?PREPOSITION
+	ZERO?	STACK /?ELS45
+	ZERO?	FIRST?? \?ELS45
+?THN46:	INC	'P-LEN
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	SUB	PTR,P-LEXELEN
+	RETURN	STACK
+?ELS45:	ZERO?	ANDFLG /?ELS51
+	GET	P-ITBL,P-VERBN
+	ZERO?	STACK /?THN54
+	CALL	WT?,WORD,PS?DIRECTION
+	ZERO?	STACK \?THN54
+	CALL	WT?,WORD,PS?VERB
+	ZERO?	STACK /?ELS51
+?THN54:	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	PUT	P-LEXV,STACK,W?THEN
+	ADD	P-LEN,2 >P-LEN
+	JUMP	?CND17
+?ELS51:	CALL	WT?,WORD,PS?OBJECT
+	ZERO?	STACK /?ELS57
+	GRTR?	P-LEN,0 \?ELS60
+	EQUAL?	NW,W?OF \?ELS60
+	EQUAL?	WORD,W?ALL,W?ONE /?ELS60
+	JUMP	?CND17
+?ELS60:	CALL	WT?,WORD,PS?ADJECTIVE,P1?ADJECTIVE
+	ZERO?	STACK /?ELS64
+	ZERO?	NW /?ELS64
+	CALL	WT?,NW,PS?OBJECT
+	ZERO?	STACK /?ELS64
+	JUMP	?CND17
+?ELS64:	ZERO?	ANDFLG \?ELS68
+	EQUAL?	NW,W?BUT,W?EXCEPT /?ELS68
+	EQUAL?	NW,W?AND,W?COMMA /?ELS68
+	ADD	NUM,1 >?TMP1
+	ADD	PTR,2
+	MUL	STACK,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	PTR
+?ELS68:	SET	'ANDFLG,FALSE-VALUE
+	JUMP	?CND17
+?ELS57:	CALL	WT?,WORD,PS?ADJECTIVE
+	ZERO?	STACK /?ELS74
+	JUMP	?CND17
+?ELS74:	CALL	WT?,WORD,PS?BUZZ-WORD
+	ZERO?	STACK /?ELS79
+	JUMP	?CND17
+?ELS79:	CALL	WT?,WORD,PS?PREPOSITION
+	ZERO?	STACK /?ELS81
+	JUMP	?CND17
+?ELS81:	CALL	CANT-USE,PTR
+	RFALSE	
+?ELS19:	CALL	UNKNOWN-WORD,PTR
+	RFALSE	
+?CND17:	SET	'LW,WORD
+	SET	'FIRST??,FALSE-VALUE
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG12
+
+
+	.FUNCT	NUMBER?,PTR,CNT,BPTR,CHR,SUM=0,TIM=0,?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	GETB	STACK,2 >CNT
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	GETB	STACK,3 >BPTR
+	SET	'P-DOLLAR-FLAG,FALSE-VALUE
+?PRG1:	DLESS?	'CNT,0 \?ELS5
+	JUMP	?REP2
+?ELS5:	GETB	P-INBUF,BPTR >CHR
+	EQUAL?	CHR,58 \?ELS10
+	SET	'TIM,SUM
+	SET	'SUM,0
+	JUMP	?CND8
+?ELS10:	GRTR?	SUM,9999 /FALSE
+	LESS?	CHR,58 \?ELS14
+	GRTR?	CHR,47 \?ELS14
+	MUL	SUM,10 >?TMP1
+	SUB	CHR,48
+	ADD	?TMP1,STACK >SUM
+	JUMP	?CND8
+?ELS14:	EQUAL?	CHR,36 \FALSE
+	SET	'P-DOLLAR-FLAG,TRUE-VALUE
+?CND8:	INC	'BPTR
+	JUMP	?PRG1
+?REP2:	PUT	P-LEXV,PTR,W?INTNUM
+	GRTR?	SUM,9999 /FALSE
+	ZERO?	TIM /?CND21
+	SET	'SET-HR,TIM
+	SET	'SET-MIN,SUM
+	GRTR?	TIM,23 /FALSE
+	MUL	TIM,60
+	ADD	SUM,STACK >SUM
+?CND21:	ZERO?	P-DOLLAR-FLAG /?ELS32
+	GRTR?	SUM,0 \?ELS32
+	SET	'P-AMOUNT,SUM
+	FSET	INTNUM,VOWELBIT
+	PUTP	INTNUM,P?SDESC,STR?50
+	RETURN	W?INTNUM
+?ELS32:	SET	'P-NUMBER,SUM
+	SET	'P-DOLLAR-FLAG,FALSE-VALUE
+	FCLEAR	INTNUM,VOWELBIT
+	PUTP	INTNUM,P?SDESC,STR?1
+	RETURN	W?INTNUM
+
+
+	.FUNCT	ORPHAN-MERGE,CNT=-1,TEMP,VERB,BEG,END,ADJ=0,WRD,?TMP1
+	SET	'P-OFLAG,FALSE-VALUE
+	GET	P-ITBL,P-VERBN
+	GET	STACK,0
+	CALL	WT?,STACK,PS?ADJECTIVE,P1?ADJECTIVE
+	ZERO?	STACK /?CND1
+	SET	'ADJ,TRUE-VALUE
+?CND1:	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB /?ELS6
+	ZERO?	ADJ \?ELS6
+	GET	P-OTBL,P-VERB
+	EQUAL?	VERB,STACK \FALSE
+?ELS6:	EQUAL?	P-NCN,2 /FALSE
+	GET	P-OTBL,P-NC1
+	EQUAL?	STACK,1 \?ELS12
+	GET	P-ITBL,P-PREP1 >TEMP
+	GET	P-OTBL,P-PREP1
+	EQUAL?	TEMP,STACK /?THN16
+	ZERO?	TEMP \FALSE
+?THN16:	ZERO?	ADJ /?ELS20
+	ADD	P-LEXV,2
+	PUT	P-OTBL,P-NC1,STACK
+	ADD	P-LEXV,6
+	PUT	P-OTBL,P-NC1L,STACK
+	JUMP	?CND4
+?ELS20:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC1L,STACK
+	JUMP	?CND4
+?ELS12:	GET	P-OTBL,P-NC2
+	EQUAL?	STACK,1 \?ELS27
+	GET	P-ITBL,P-PREP1 >TEMP
+	GET	P-OTBL,P-PREP2
+	EQUAL?	TEMP,STACK /?THN31
+	ZERO?	TEMP \FALSE
+?THN31:	ZERO?	ADJ /?CND33
+	ADD	P-LEXV,2
+	PUT	P-ITBL,P-NC1,STACK
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+?CND33:	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	?CND4
+?ELS27:	ZERO?	P-ACLAUSE /?CND4
+	EQUAL?	P-NCN,1 /?ELS44
+	ZERO?	ADJ \?ELS44
+	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?ELS44:	GET	P-ITBL,P-NC1 >BEG
+	ZERO?	ADJ /?CND49
+	ADD	P-LEXV,2 >BEG
+	SET	'ADJ,FALSE-VALUE
+?CND49:	GET	P-ITBL,P-NC1L >END
+?PRG53:	GET	BEG,0 >WRD
+	EQUAL?	BEG,END \?ELS57
+	ZERO?	ADJ /?ELS60
+	CALL	ACLAUSE-WIN,ADJ
+	JUMP	?CND42
+?ELS60:	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?ELS57:	ZERO?	ADJ \?ELS65
+	GETB	WRD,P-PSOFF
+	BTST	STACK,PS?ADJECTIVE /?THN68
+	EQUAL?	WRD,W?ALL,W?ONE \?ELS65
+?THN68:	SET	'ADJ,WRD
+	JUMP	?CND55
+?ELS65:	GETB	WRD,P-PSOFF
+	BTST	STACK,PS?OBJECT /?THN72
+	EQUAL?	WRD,W?ONE \?CND55
+?THN72:	EQUAL?	WRD,P-ANAM,W?ONE \FALSE
+	CALL	ACLAUSE-WIN,ADJ
+	JUMP	?CND42
+?CND55:	ADD	BEG,P-WORDLEN >BEG
+	ZERO?	END \?PRG53
+	SET	'END,BEG
+	SET	'P-NCN,1
+	SUB	BEG,4
+	PUT	P-ITBL,P-NC1,STACK
+	PUT	P-ITBL,P-NC1L,BEG
+	JUMP	?PRG53
+?CND42:	
+?CND4:	
+?PRG82:	IGRTR?	'CNT,P-ITBLLEN \?ELS86
+	SET	'P-MERGED,TRUE-VALUE
+	RTRUE	
+?ELS86:	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG82
+
+
+	.FUNCT	ACLAUSE-WIN,ADJ
+	GET	P-OTBL,P-VERB
+	PUT	P-ITBL,P-VERB,STACK
+	SET	'P-CCSRC,P-OTBL
+	ADD	P-ACLAUSE,1
+	CALL	CLAUSE-COPY,P-ACLAUSE,STACK,ADJ
+	GET	P-OTBL,P-NC2
+	ZERO?	STACK /?ELS2
+	SET	'P-NCN,2
+?ELS2:	SET	'P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	WORD-PRINT,CNT,BUF
+?PRG1:	DLESS?	'CNT,0 /TRUE
+	GETB	P-INBUF,BUF
+	PRINTC	STACK
+	INC	'BUF
+	JUMP	?PRG1
+
+
+	.FUNCT	UNKNOWN-WORD,PTR,BUF,MSG,?TMP1
+	PRINTI	"I don't know 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
+	PRINTI	"""."
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+
+	.FUNCT	CANT-USE,PTR,BUF,?TMP1
+	PRINTI	"Sorry, but you can't use 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
+	PRINTI	""" in that sense."
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+
+	.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	TELL-COULDNT-FIND,STR?51
+	RFALSE	
+?CND1:	SUB	255,VERB
+	GET	VERBS,STACK >SYN
+	GETB	SYN,0 >LEN
+	ADD	1,SYN >SYN
+?PRG4:	GETB	SYN,P-SBITS
+	BAND	STACK,P-SONUMS >NUM
+	GRTR?	P-NCN,NUM \?ELS8
+	JUMP	?CND6
+?ELS8:	LESS?	NUM,1 /?ELS10
+	ZERO?	P-NCN \?ELS10
+	GET	P-ITBL,P-PREP1 >PREP
+	ZERO?	PREP /?THN13
+	GETB	SYN,P-SPREP1
+	EQUAL?	PREP,STACK \?ELS10
+?THN13:	SET	'DRIVE1,SYN
+	JUMP	?CND6
+?ELS10:	GETB	SYN,P-SPREP1 >?TMP1
+	GET	P-ITBL,P-PREP1
+	EQUAL?	?TMP1,STACK \?CND6
+	EQUAL?	NUM,2 \?ELS19
+	EQUAL?	P-NCN,1 \?ELS19
+	SET	'DRIVE2,SYN
+	JUMP	?CND6
+?ELS19:	GETB	SYN,P-SPREP2 >?TMP1
+	GET	P-ITBL,P-PREP2
+	EQUAL?	?TMP1,STACK \?CND6
+	CALL	SYNTAX-FOUND,SYN
+	RTRUE	
+?CND6:	DLESS?	'LEN,1 \?ELS26
+	ZERO?	DRIVE1 \?REP5
+	ZERO?	DRIVE2 /?ELS29
+	JUMP	?REP5
+?ELS29:	PRINTI	"I don't understand that sentence."
+	CRLF	
+	RFALSE	
+?ELS26:	ADD	SYN,P-SYNLEN >SYN
+	JUMP	?PRG4
+?REP5:	ZERO?	DRIVE1 /?ELS42
+	GETB	DRIVE1,P-SFWIM1 >?TMP2
+	GETB	DRIVE1,P-SLOC1 >?TMP1
+	GETB	DRIVE1,P-SPREP1
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?ELS42
+	PUT	P-PRSO,P-MATCHLEN,1
+	PUT	P-PRSO,1,OBJ
+	CALL	SYNTAX-FOUND,DRIVE1
+	RSTACK	
+?ELS42:	ZERO?	DRIVE2 /?ELS46
+	GETB	DRIVE2,P-SFWIM2 >?TMP2
+	GETB	DRIVE2,P-SLOC2 >?TMP1
+	GETB	DRIVE2,P-SPREP2
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?ELS46
+	PUT	P-PRSI,P-MATCHLEN,1
+	PUT	P-PRSI,1,OBJ
+	CALL	SYNTAX-FOUND,DRIVE2
+	RSTACK	
+?ELS46:	EQUAL?	VERB,ACT?FIND \?ELS50
+	EQUAL?	WINNER,PLAYER /?ELS53
+	PRINTI	"You'll have to ask a more specific question."
+	CRLF	
+	RFALSE	
+?ELS53:	PRINTI	"Sorry, but I can't answer that question."
+	CRLF	
+	RFALSE	
+?ELS50:	EQUAL?	WINNER,PLAYER \?ELS64
+	CALL	ORPHAN,DRIVE1,DRIVE2
+	EQUAL?	VERB,ACT?WALK \?ELS67
+	PRINTI	"Where"
+	JUMP	?CND65
+?ELS67:	PRINTI	"What"
+?CND65:	PRINTI	" do you want to "
+	JUMP	?CND62
+?ELS64:	CALL	REQUEST-INCOMPLETE
+	PRINTI	"what you want "
+	CALL	THE?,WINNER
+	CALL	DPRINT,WINNER
+	PRINTI	" to "
+?CND62:	CALL	VERB-PRINT
+	ZERO?	DRIVE2 /?CND82
+	CALL	CLAUSE-PRINT,P-NC1,P-NC1L
+?CND82:	ZERO?	DRIVE1 /?ELS90
+	GETB	DRIVE1,P-SPREP1
+	JUMP	?CND86
+?ELS90:	GETB	DRIVE2,P-SPREP2
+?CND86:	CALL	PREP-PRINT,STACK
+	EQUAL?	WINNER,PLAYER \?ELS96
+	SET	'P-OFLAG,TRUE-VALUE
+	PRINTI	"?"
+	CRLF	
+	RFALSE	
+?ELS96:	SET	'P-OFLAG,FALSE-VALUE
+	PRINTI	"."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	REQUEST-INCOMPLETE
+	PRINTI	"Your request was incomplete. Next time, say "
+	RTRUE	
+
+
+	.FUNCT	VERB-PRINT,TMP,?TMP1
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	TMP \?ELS5
+	PRINTI	"say"
+	RTRUE	
+?ELS5:	GETB	P-VTBL,2
+	ZERO?	STACK \?ELS9
+	GET	TMP,0
+	PRINTB	STACK
+	RTRUE	
+?ELS9:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK
+	PUTB	P-VTBL,2,0
+	RTRUE	
+
+
+	.FUNCT	ORPHAN,D1,D2,CNT=-1
+	PUT	P-OCLAUSE,P-MATCHLEN,0
+	SET	'P-CCSRC,P-ITBL
+?PRG1:	IGRTR?	'CNT,P-ITBLLEN \?ELS5
+	JUMP	?REP2
+?ELS5:	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+	JUMP	?PRG1
+?REP2:	EQUAL?	P-NCN,2 \?CND8
+	CALL	CLAUSE-COPY,P-NC2,P-NC2L
+?CND8:	LESS?	P-NCN,1 /?CND11
+	CALL	CLAUSE-COPY,P-NC1,P-NC1L
+?CND11:	ZERO?	D1 /?ELS18
+	GETB	D1,P-SPREP1
+	PUT	P-OTBL,P-PREP1,STACK
+	PUT	P-OTBL,P-NC1,1
+	RTRUE	
+?ELS18:	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,FIRST??=1,PN=0,?TMP1
+?PRG1:	EQUAL?	BEG,END /TRUE
+	ZERO?	NOSP /?ELS10
+	SET	'NOSP,FALSE-VALUE
+	JUMP	?CND8
+?ELS10:	PRINTI	" "
+?CND8:	GET	BEG,0 >WRD
+	EQUAL?	WRD,W?PERIOD \?ELS18
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND3
+?ELS18:	EQUAL?	WRD,W?MR \?ELS20
+	PRINTI	"Mr."
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?ELS20:	EQUAL?	WRD,W?MCGINTY \?ELS24
+	PRINTI	"McGinty"
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?ELS24:	EQUAL?	WRD,W?ME \?ELS28
+	CALL	DPRINT,GLOBAL-SELF
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?ELS28:	EQUAL?	WRD,W?WEASEL,W?PETE,W?JOHN /?THN33
+	EQUAL?	WRD,W?JOHNNY,W?RED,W?RAT /?THN33
+	EQUAL?	WRD,W?MARY,W?MARGAR,W?FRANK /?THN33
+	EQUAL?	WRD,W?WEBSTE,W?HEVLIN \?ELS32
+?THN33:	CALL	CAPITALIZE,BEG
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?ELS32:	ZERO?	FIRST?? /?CND37
+	ZERO?	PN \?CND37
+	ZERO?	CP /?CND37
+	PRINTI	"the "
+?CND37:	ZERO?	P-OFLAG \?THN47
+	ZERO?	P-MERGED /?ELS46
+?THN47:	EQUAL?	WRD,W?INTNUM \?ELS51
+	CALL	DPRINT,INTNUM
+	JUMP	?CND44
+?ELS51:	PRINTB	WRD
+	JUMP	?CND44
+?ELS46:	EQUAL?	WRD,W?IT,W?HIM \?ELS57
+	CALL	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?ELS57
+	EQUAL?	P-IT-OBJECT,PSEUDO-OBJECT /?ELS57
+	CALL	DPRINT,P-IT-OBJECT
+	JUMP	?CND44
+?ELS57:	GETB	BEG,2 >?TMP1
+	GETB	BEG,3
+	CALL	WORD-PRINT,?TMP1,STACK
+?CND44:	SET	'FIRST??,FALSE-VALUE
+?CND3:	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	CAPITALIZE,PTR,?TMP1
+	ZERO?	P-OFLAG \?THN6
+	ZERO?	P-MERGED /?ELS5
+?THN6:	GET	PTR,0
+	PRINTB	STACK
+	RTRUE	
+?ELS5:	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
+	ZERO?	PREP /FALSE
+	ZERO?	SP? /?CND6
+	PRINTI	" "
+?CND6:	CALL	PREP-FIND,PREP >WRD
+	GET	P-ITBL,P-VERBN
+	GET	STACK,0
+	EQUAL?	W?SIT,STACK \?ELS14
+	EQUAL?	W?DOWN,WRD \?ELS14
+	PRINTI	"on"
+	JUMP	?CND12
+?ELS14:	EQUAL?	WRD,W?AGAINST \?ELS20
+	PRINTI	"against"
+	JUMP	?CND12
+?ELS20:	PRINTB	WRD
+?CND12:	GET	P-ITBL,P-VERBN
+	GET	STACK,0
+	EQUAL?	W?GET,STACK \TRUE
+	EQUAL?	W?OUT,WRD \TRUE
+	PRINTI	" of"
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-COPY,BPTR,EPTR,INSERT=0,BEG,END
+	GET	P-CCSRC,BPTR >BEG
+	GET	P-CCSRC,EPTR >END
+	GET	P-OCLAUSE,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	P-OCLAUSE,STACK
+	PUT	P-OTBL,BPTR,STACK
+?PRG1:	EQUAL?	BEG,END \?ELS5
+	GET	P-OCLAUSE,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	P-OCLAUSE,STACK
+	PUT	P-OTBL,EPTR,STACK
+	RTRUE	
+?ELS5:	ZERO?	INSERT /?CND8
+	GET	BEG,0
+	EQUAL?	P-ANAM,STACK \?CND8
+	CALL	CLAUSE-ADD,INSERT
+?CND8:	GET	BEG,0
+	CALL	CLAUSE-ADD,STACK
+?CND3:	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	CLAUSE-ADD,WRD,PTR
+	GET	P-OCLAUSE,P-MATCHLEN
+	ADD	STACK,2 >PTR
+	SUB	PTR,1
+	PUT	P-OCLAUSE,STACK,WRD
+	PUT	P-OCLAUSE,PTR,0
+	PUT	P-OCLAUSE,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
+	RETURN	STACK
+
+
+	.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
+	PUT	P-MERGE,P-MATCHLEN,0
+	CALL	GET-OBJECT,P-MERGE,FALSE-VALUE
+	ZERO?	STACK /?ELS8
+	SET	'P-GWIMBIT,0
+	GET	P-MERGE,P-MATCHLEN
+	EQUAL?	STACK,1 \FALSE
+	GET	P-MERGE,1 >OBJ
+	PRINTI	"("
+	CALL	PREP-PRINT,PREP,FALSE-VALUE
+	ZERO?	STACK /?CND16
+	PRINTI	" "
+	CALL	THE?,OBJ
+?CND16:	CALL	DPRINT,OBJ
+	PRINTI	")"
+	CRLF	
+	RETURN	OBJ
+?ELS8:	SET	'P-GWIMBIT,0
+	RFALSE	
+
+
+	.FUNCT	SNARF-OBJECTS,PTR
+	GET	P-ITBL,P-NC1 >PTR
+	ZERO?	PTR /?CND1
+	GETB	P-SYNTAX,P-SLOC1 >P-SLOCBITS
+	GET	P-ITBL,P-NC1L
+	CALL	SNARFEM,PTR,STACK,P-PRSO
+	ZERO?	STACK /FALSE
+	GET	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /?CND1
+	CALL	BUT-MERGE,P-PRSO >P-PRSO
+?CND1:	GET	P-ITBL,P-NC2 >PTR
+	ZERO?	PTR /TRUE
+	GETB	P-SYNTAX,P-SLOC2 >P-SLOCBITS
+	GET	P-ITBL,P-NC2L
+	CALL	SNARFEM,PTR,STACK,P-PRSI
+	ZERO?	STACK /FALSE
+	GET	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /TRUE
+	GET	P-PRSI,P-MATCHLEN
+	EQUAL?	STACK,1 \?ELS18
+	CALL	BUT-MERGE,P-PRSO >P-PRSO
+	RTRUE	
+?ELS18:	CALL	BUT-MERGE,P-PRSI >P-PRSI
+	RTRUE	
+
+
+	.FUNCT	BUT-MERGE,TBL,LEN,BUTLEN,CNT=1,MATCHES=0,OBJ,NTBL
+	GET	TBL,P-MATCHLEN >LEN
+	PUT	P-MERGE,P-MATCHLEN,0
+?PRG1:	DLESS?	'LEN,0 \?ELS5
+	JUMP	?REP2
+?ELS5:	GET	TBL,CNT >OBJ
+	CALL	ZMEMQ,OBJ,P-BUTS
+	ZERO?	STACK /?ELS7
+	JUMP	?CND3
+?ELS7:	ADD	MATCHES,1
+	PUT	P-MERGE,STACK,OBJ
+	INC	'MATCHES
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	PUT	P-MERGE,P-MATCHLEN,MATCHES
+	SET	'NTBL,P-MERGE
+	SET	'P-MERGE,TBL
+	RETURN	NTBL
+
+
+	.FUNCT	SNARFEM,PTR,EPTR,TBL,AND=0,BUT=0,LEN,WV,WORD,NW
+	SET	'P-AND,FALSE-VALUE
+	SET	'P-GETFLAGS,0
+	SET	'P-CSPTR,PTR
+	SET	'P-CEPTR,EPTR
+	PUT	P-BUTS,P-MATCHLEN,0
+	PUT	TBL,P-MATCHLEN,0
+	GET	PTR,0 >WORD
+?PRG1:	EQUAL?	PTR,EPTR \?ELS5
+	ZERO?	BUT /?ORP9
+	PUSH	BUT
+	JUMP	?THN6
+?ORP9:	PUSH	TBL
+?THN6:	CALL	GET-OBJECT,STACK
+	RETURN	STACK
+?ELS5:	GET	PTR,P-LEXELEN >NW
+	EQUAL?	WORD,W?ALL \?ELS14
+	SET	'P-GETFLAGS,P-ALL
+	EQUAL?	NW,W?OF \?CND12
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND12
+?ELS14:	EQUAL?	WORD,W?BUT,W?EXCEPT \?ELS19
+	ZERO?	BUT /?ORP25
+	PUSH	BUT
+	JUMP	?THN22
+?ORP25:	PUSH	TBL
+?THN22:	CALL	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	SET	'BUT,P-BUTS
+	PUT	BUT,P-MATCHLEN,0
+	JUMP	?CND3
+?ELS19:	EQUAL?	WORD,W?A,W?ONE \?ELS27
+	ZERO?	P-ADJ \?ELS30
+	SET	'P-GETFLAGS,P-ONE
+	EQUAL?	NW,W?OF \?CND3
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND3
+?ELS30:	SET	'P-NAM,P-ONEOBJ
+	ZERO?	BUT /?ORP41
+	PUSH	BUT
+	JUMP	?THN38
+?ORP41:	PUSH	TBL
+?THN38:	CALL	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	ZERO?	NW /TRUE
+	JUMP	?CND3
+?ELS27:	EQUAL?	WORD,W?AND,W?COMMA \?ELS45
+	EQUAL?	NW,W?AND,W?COMMA /?ELS45
+	SET	'P-AND,TRUE-VALUE
+	ZERO?	BUT /?ORP53
+	PUSH	BUT
+	JUMP	?THN50
+?ORP53:	PUSH	TBL
+?THN50:	CALL	GET-OBJECT,STACK
+	ZERO?	STACK \?CND12
+	RFALSE	
+?ELS45:	CALL	WT?,WORD,PS?BUZZ-WORD
+	ZERO?	STACK /?ELS55
+	JUMP	?CND3
+?ELS55:	EQUAL?	WORD,W?AND,W?COMMA \?ELS57
+	JUMP	?CND3
+?ELS57:	EQUAL?	WORD,W?OF \?ELS59
+	ZERO?	P-GETFLAGS \?CND12
+	SET	'P-GETFLAGS,P-INHIBIT
+	JUMP	?CND12
+?ELS59:	CALL	WT?,WORD,PS?ADJECTIVE,P1?ADJECTIVE >WV
+	ZERO?	WV /?ELS64
+	ZERO?	P-ADJ \?ELS64
+	SET	'P-ADJ,WV
+	SET	'P-ADJN,WORD
+	JUMP	?CND3
+?ELS64:	CALL	WT?,WORD,PS?OBJECT,P1?OBJECT
+	ZERO?	STACK /?CND3
+	SET	'P-NAM,WORD
+	SET	'P-ONEOBJ,WORD
+?CND12:	
+?CND3:	EQUAL?	PTR,EPTR /?PRG1
+	ADD	PTR,P-WORDLEN >PTR
+	SET	'WORD,NW
+	JUMP	?PRG1
+
+
+	.FUNCT	GET-OBJECT,TBL,VRB=1,BITS,LEN,XBITS,TLEN,GCHECK=0,OLEN=0,OBJ
+	SET	'XBITS,P-SLOCBITS
+	GET	TBL,P-MATCHLEN >TLEN
+	BTST	P-GETFLAGS,P-INHIBIT /TRUE
+	ZERO?	P-NAM \?CND4
+	ZERO?	P-ADJ /?CND4
+	CALL	WT?,P-ADJN,PS?OBJECT,P1?OBJECT
+	ZERO?	STACK /?ELS11
+	SET	'P-NAM,P-ADJN
+	SET	'P-ADJ,FALSE-VALUE
+	JUMP	?CND4
+?ELS11:	CALL	WT?,P-ADJN,PS?DIRECTION,P1?DIRECTION >BITS
+	ZERO?	BITS /?CND4
+	SET	'P-ADJ,FALSE-VALUE
+	PUT	TBL,P-MATCHLEN,1
+	PUT	TBL,1,INTDIR
+	SET	'P-WALK-DIR,BITS
+	RTRUE	
+?CND4:	ZERO?	P-NAM \?CND14
+	ZERO?	P-ADJ \?CND14
+	EQUAL?	P-GETFLAGS,P-ALL /?CND14
+	ZERO?	P-GWIMBIT \?CND14
+	ZERO?	VRB /FALSE
+	CALL	TELL-COULDNT-FIND,STR?52
+	RFALSE	
+?CND14:	EQUAL?	P-GETFLAGS,P-ALL \?THN26
+	ZERO?	P-SLOCBITS \?CND23
+?THN26:	SET	'P-SLOCBITS,-1
+?CND23:	SET	'P-TABLE,TBL
+?PRG28:	ZERO?	GCHECK /?ELS32
+	CALL	GLOBAL-CHECK,TBL
+	JUMP	?CND30
+?ELS32:	ZERO?	LIT /?CND36
+	FCLEAR	PLAYER,TRANSBIT
+	CALL	DO-SL,HERE,SOG,SIR
+	FSET	PLAYER,TRANSBIT
+?CND36:	CALL	DO-SL,PLAYER,SH,SC
+?CND30:	GET	TBL,P-MATCHLEN
+	SUB	STACK,TLEN >LEN
+	BTST	P-GETFLAGS,P-ALL \?ELS42
+	ZERO?	LEN \?CND40
+	ZERO?	P-NAM /?CND40
+	SET	'P-NONE,TRUE-VALUE
+	JUMP	?CND40
+?ELS42:	BTST	P-GETFLAGS,P-ONE \?ELS49
+	ZERO?	LEN /?ELS49
+	EQUAL?	LEN,1 /?CND52
+	RANDOM	LEN
+	GET	TBL,STACK
+	PUT	TBL,1,STACK
+	PRINTI	"How about the "
+	GET	TBL,1
+	CALL	DPRINT,STACK
+	PRINTI	"?"
+	CRLF	
+?CND52:	PUT	TBL,P-MATCHLEN,1
+	JUMP	?CND40
+?ELS49:	GRTR?	LEN,1 /?THN61
+	ZERO?	LEN \?ELS60
+	EQUAL?	P-SLOCBITS,-1 /?ELS60
+?THN61:	EQUAL?	P-SLOCBITS,-1 \?ELS67
+	SET	'P-SLOCBITS,XBITS
+	SET	'OLEN,LEN
+	GET	TBL,P-MATCHLEN
+	SUB	STACK,LEN
+	PUT	TBL,P-MATCHLEN,STACK
+	JUMP	?PRG28
+?ELS67:	ZERO?	LEN \?CND70
+	SET	'LEN,OLEN
+?CND70:	ZERO?	VRB /?ELS75
+	ZERO?	P-NAM /?ELS75
+	EQUAL?	WINNER,PLAYER \?ELS80
+	CALL	WHICH-PRINT,TLEN,LEN,TBL
+	EQUAL?	TBL,P-PRSO \?ELS85
+	PUSH	P-NC1
+	JUMP	?CND81
+?ELS85:	PUSH	P-NC2
+?CND81:	SET	'P-ACLAUSE,STACK
+	SET	'P-AADJ,P-ADJ
+	SET	'P-ANAM,P-NAM
+	CALL	ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'P-OFLAG,TRUE-VALUE
+	JUMP	?CND73
+?ELS80:	CALL	REQUEST-INCOMPLETE
+	PRINTI	"which"
+	CALL	WHICH-PRINT-NOUN,TBL
+	PRINTI	" you mean, "
+	CALL	WHICH-PRINT-LIST,TLEN,LEN,TBL
+	SET	'P-OFLAG,FALSE-VALUE
+	PRINTI	"."
+	CRLF	
+	JUMP	?CND73
+?ELS75:	ZERO?	VRB /?CND73
+	CALL	TELL-COULDNT-FIND,STR?52
+?CND73:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?ELS60:	ZERO?	LEN \?ELS100
+	ZERO?	GCHECK /?ELS100
+	ZERO?	VRB /?CND103
+	ZERO?	LIT /?ELS109
+	CALL	OBJ-FOUND,NOT-HERE-OBJECT,TBL
+	SET	'P-XNAM,P-NAM
+	SET	'P-XADJ,P-ADJ
+	SET	'P-XADJN,P-ADJN
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
+	RTRUE	
+?ELS109:	CALL	TELL-TOO-DARK
+?CND103:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?ELS100:	ZERO?	LEN \?CND40
+	SET	'GCHECK,TRUE-VALUE
+	JUMP	?PRG28
+?CND40:	ZERO?	P-ADJ /?ELS117
+	ZERO?	P-NAM \?ELS117
+	SET	'P-NONOUN,TRUE-VALUE
+	JUMP	?CND115
+?ELS117:	SET	'P-NONOUN,FALSE-VALUE
+?CND115:	SET	'P-SLOCBITS,XBITS
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	TELL-COULDNT-FIND,STR
+	PRINTI	"I couldn't find "
+	PRINT	STR
+	PRINTR	" in that sentence."
+
+
+	.FUNCT	TELL-TOO-DARK
+	PRINTR	"It's too dark to see!"
+
+
+	.FUNCT	MOBY-FIND,TBL,FOO,LEN
+	SET	'P-MOBY-FLAG,TRUE-VALUE
+	SET	'P-SLOCBITS,-1
+	SET	'P-TABLE,TBL
+	SET	'P-NAM,P-XNAM
+	SET	'P-ADJ,P-XADJ
+	SET	'P-MOBY-FOUND,FALSE-VALUE
+	PUT	TBL,P-MATCHLEN,0
+	FIRST?	ROOMS >FOO /?KLU17
+?KLU17:	
+?PRG1:	ZERO?	FOO \?ELS5
+	JUMP	?REP2
+?ELS5:	CALL	SEARCH-LIST,FOO,TBL,P-SRCALL
+	NEXT?	FOO >FOO /?KLU18
+?KLU18:	JUMP	?PRG1
+?REP2:	GET	TBL,P-MATCHLEN >LEN
+	ZERO?	LEN \?CND8
+	CALL	DO-SL,LOCAL-GLOBALS,1,1
+?CND8:	GET	TBL,P-MATCHLEN >LEN
+	ZERO?	LEN \?CND11
+	CALL	SEARCH-LIST,GLOBAL-FERRY,TBL,P-SRCTOP
+?CND11:	GET	TBL,P-MATCHLEN >LEN
+	EQUAL?	LEN,1 \?CND14
+	GET	TBL,1 >P-MOBY-FOUND
+?CND14:	SET	'P-MOBY-FLAG,FALSE-VALUE
+	RETURN	LEN
+
+
+	.FUNCT	WHICH-PRINT,TLEN,LEN,TBL
+	PRINTI	"Which"
+	CALL	WHICH-PRINT-NOUN,TBL
+	PRINTI	" do you mean, "
+	CALL	WHICH-PRINT-LIST,TLEN,LEN,TBL
+	PRINTR	"?"
+
+
+	.FUNCT	WHICH-PRINT-NOUN,TBL
+	ZERO?	P-OFLAG \?THN6
+	ZERO?	P-MERGED \?THN6
+	ZERO?	P-AND /?ELS5
+?THN6:	PRINTI	" "
+	EQUAL?	P-NAM,W?INTNUM \?ELS14
+	CALL	DPRINT,INTNUM
+	RSTACK	
+?ELS14:	PRINTB	P-NAM
+	RTRUE	
+?ELS5:	EQUAL?	TBL,P-PRSO \?ELS20
+	CALL	CLAUSE-PRINT,P-NC1,P-NC1L,FALSE-VALUE
+	RSTACK	
+?ELS20:	CALL	CLAUSE-PRINT,P-NC2,P-NC2L,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	WHICH-PRINT-LIST,TLEN,LEN,TBL,OBJ,RLEN
+	SET	'RLEN,LEN
+?PRG1:	INC	'TLEN
+	GET	TBL,TLEN >OBJ
+	CALL	THE?,OBJ
+	CALL	DPRINT,OBJ
+	EQUAL?	LEN,2 \?ELS7
+	EQUAL?	RLEN,2 /?CND8
+	PRINTI	", "
+?CND8:	PRINTI	" or "
+	JUMP	?CND5
+?ELS7:	GRTR?	LEN,2 \?CND5
+	PRINTI	", "
+?CND5:	DLESS?	'LEN,1 \?PRG1
+	RTRUE	
+
+
+	.FUNCT	GLOBAL-CHECK,TBL,LEN,RMG,RMGL,CNT=0,OBJ,OBITS
+	GET	TBL,P-MATCHLEN >LEN
+	SET	'OBITS,P-SLOCBITS
+	GETPT	HERE,P?GLOBAL >RMG
+	ZERO?	RMG /?CND1
+	PTSIZE	RMG
+	SUB	STACK,1 >RMGL
+?PRG4:	GETB	RMG,CNT >OBJ
+	CALL	THIS-IT?,OBJ,TBL
+	ZERO?	STACK /?CND6
+	CALL	OBJ-FOUND,OBJ,TBL
+?CND6:	FSET?	OBJ,CONTBIT /?THN16
+	FSET?	OBJ,SURFACEBIT \?THN16
+?THN16:	FSET?	OBJ,OPENBIT /?THN12
+	FSET?	OBJ,TRANSBIT \?CND9
+?THN12:	CALL	SEARCH-LIST,OBJ,TBL,P-SRCTOP
+?CND9:	IGRTR?	'CNT,RMGL \?PRG4
+?CND1:	GETPT	HERE,P?PSEUDO >RMG
+	ZERO?	RMG /?CND21
+	PTSIZE	RMG
+	DIV	STACK,4
+	SUB	STACK,1 >RMGL
+	SET	'CNT,0
+?PRG24:	MUL	CNT,2
+	GET	RMG,STACK
+	EQUAL?	P-NAM,STACK \?ELS28
+	MUL	CNT,2
+	ADD	STACK,1
+	GET	RMG,STACK
+	PUTP	PSEUDO-OBJECT,P?ACTION,STACK
+	PUTP	PSEUDO-OBJECT,P?DESCFCN,HERE
+	GETP	PSEUDO-OBJECT,P?ACTION
+	CALL	STACK,M-NAME
+	CALL	OBJ-FOUND,PSEUDO-OBJECT,TBL
+	JUMP	?CND21
+?ELS28:	IGRTR?	'CNT,RMGL \?PRG24
+?CND21:	GET	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
+	RETURN	P-SLOCBITS
+
+
+	.FUNCT	DO-SL,OBJ,BIT1,BIT2,BITS
+	ADD	BIT1,BIT2
+	BTST	P-SLOCBITS,STACK \?ELS5
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCALL
+	RSTACK	
+?ELS5:	BTST	P-SLOCBITS,BIT1 \?ELS12
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCTOP
+	RSTACK	
+?ELS12:	BTST	P-SLOCBITS,BIT2 \TRUE
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCBOT
+	RSTACK	
+
+
+	.FUNCT	SEARCH-LIST,OBJ,TBL,LVL,FLS,NOBJ
+	FIRST?	OBJ >OBJ \FALSE
+?PRG6:	EQUAL?	LVL,P-SRCBOT /?CND8
+	GETPT	OBJ,P?SYNONYM
+	ZERO?	STACK /?CND8
+	CALL	THIS-IT?,OBJ,TBL
+	ZERO?	STACK /?CND8
+	CALL	OBJ-FOUND,OBJ,TBL
+?CND8:	EQUAL?	LVL,P-SRCTOP \?THN18
+	FSET?	OBJ,SEARCHBIT /?THN18
+	FSET?	OBJ,SURFACEBIT \?CND13
+?THN18:	FIRST?	OBJ >NOBJ \?CND13
+	FSET?	OBJ,OPENBIT /?THN20
+	FSET?	OBJ,TRANSBIT /?THN20
+	ZERO?	P-MOBY-FLAG \?THN20
+	FSET?	OBJ,PERSON \?CND13
+	EQUAL?	OBJ,PLAYER /?CND13
+?THN20:	FSET?	OBJ,SURFACEBIT \?ELS28
+	PUSH	P-SRCALL
+	JUMP	?CND24
+?ELS28:	FSET?	OBJ,SEARCHBIT \?ELS30
+	PUSH	P-SRCALL
+	JUMP	?CND24
+?ELS30:	PUSH	P-SRCTOP
+?CND24:	CALL	SEARCH-LIST,OBJ,TBL,STACK >FLS
+?CND13:	NEXT?	OBJ >OBJ /?PRG6
+	RTRUE	
+
+
+	.FUNCT	THIS-IT?,OBJ,TBL,SYNS,?TMP1
+	FSET?	OBJ,INVISIBLE /FALSE
+	ZERO?	P-NAM /?ELS5
+	GETPT	OBJ,P?SYNONYM >SYNS
+	PTSIZE	SYNS
+	DIV	STACK,2
+	SUB	STACK,1
+	CALL	ZMEMQ,P-NAM,SYNS,STACK
+	ZERO?	STACK /FALSE
+?ELS5:	ZERO?	P-ADJ /?ELS9
+	GETPT	OBJ,P?ADJECTIVE >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	SUB	STACK,1
+	CALL	ZMEMQB,P-ADJ,SYNS,STACK
+	ZERO?	STACK /FALSE
+?ELS9:	ZERO?	P-GWIMBIT /TRUE
+	FSET?	OBJ,P-GWIMBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	OBJ-FOUND,OBJ,TBL,PTR
+	GET	TBL,P-MATCHLEN >PTR
+	ADD	PTR,1
+	PUT	TBL,STACK,OBJ
+	ADD	PTR,1
+	PUT	TBL,P-MATCHLEN,STACK
+	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
+	GET	TBL,P-MATCHLEN >PTR
+	ZERO?	PTR /TRUE
+	BTST	BITS,SHAVE /?THN8
+	BTST	BITS,STAKE \TRUE
+?THN8:	
+?PRG10:	DLESS?	'PTR,0 /TRUE
+	ADD	PTR,1
+	GET	TBL,STACK >OBJ
+	EQUAL?	OBJ,IT \?CND17
+	SET	'OBJ,P-IT-OBJECT
+?CND17:	CALL	HELD?,OBJ
+	ZERO?	STACK \?PRG10
+	SET	'PRSO,OBJ
+	FSET?	OBJ,TRYTAKEBIT \?ELS25
+	SET	'TAKEN,TRUE-VALUE
+	JUMP	?CND23
+?ELS25:	EQUAL?	WINNER,PLAYER /?ELS27
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND23
+?ELS27:	BTST	BITS,STAKE \?ELS29
+	CALL	ITAKE,FALSE-VALUE
+	EQUAL?	STACK,TRUE-VALUE \?ELS29
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND23
+?ELS29:	SET	'TAKEN,TRUE-VALUE
+?CND23:	ZERO?	TAKEN /?ELS36
+	BTST	BITS,SHAVE \?ELS36
+	EQUAL?	OBJ,GLOBAL-MONEY,RIDICULOUS-MONEY-KLUDGE /?THN42
+	EQUAL?	OBJ,INTNUM \?ELS45
+	ZERO?	P-DOLLAR-FLAG \?THN42
+?ELS45:	EQUAL?	OBJ,IT \?ELS41
+	EQUAL?	P-IT-OBJECT,RIDICULOUS-MONEY-KLUDGE,INTNUM,GLOBAL-MONEY \?ELS41
+?THN42:	CALL	TELL-YOU-CANT,STR?53
+	RFALSE	
+?ELS41:	CALL	TELL-DONT-HAVE,FALSE-VALUE
+	EQUAL?	OBJ,NOT-HERE-OBJECT \?ELS52
+	PRINTI	"that."
+	CRLF	
+	RFALSE	
+?ELS52:	CALL	THE?,OBJ
+	CALL	DPRINT,OBJ
+	PRINTI	"."
+	CRLF	
+	RFALSE	
+?ELS36:	ZERO?	TAKEN \?PRG10
+	EQUAL?	WINNER,PLAYER \?PRG10
+	PRINTI	"(taking "
+	GET	P-PRSI,P-MATCHLEN
+	GRTR?	STACK,0 /?THN68
+	GET	TBL,P-MATCHLEN
+	GRTR?	STACK,1 \?ELS67
+?THN68:	CALL	THE?,OBJ
+	CALL	DPRINT,OBJ
+	JUMP	?CND65
+?ELS67:	PRINTI	"it"
+?CND65:	PRINTI	" first)"
+	CRLF	
+	JUMP	?PRG10
+
+
+	.FUNCT	MANY-CHECK,LOSS=0,TMP,?TMP1
+	GET	P-PRSO,P-MATCHLEN
+	GRTR?	STACK,1 \?ELS3
+	GETB	P-SYNTAX,P-SLOC1
+	BTST	STACK,SMANY /?ELS3
+	SET	'LOSS,1
+	JUMP	?CND1
+?ELS3:	GET	P-PRSI,P-MATCHLEN
+	GRTR?	STACK,1 \?CND1
+	GETB	P-SYNTAX,P-SLOC2
+	BTST	STACK,SMANY /?CND1
+	SET	'LOSS,2
+?CND1:	ZERO?	LOSS /TRUE
+	CALL	TELL-YOU-CANT,STR?54,FALSE-VALUE
+	EQUAL?	LOSS,2 \?CND16
+	PRINTI	"in"
+?CND16:	PRINTI	"direct objects with """
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	TMP \?ELS25
+	PRINTI	"tell"
+	JUMP	?CND23
+?ELS25:	ZERO?	P-OFLAG \?THN30
+	ZERO?	P-MERGED /?ELS29
+?THN30:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND23
+?ELS29:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK
+?CND23:	PRINTI	"""."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	ZMEMQ,ITM,TBL,SIZE=-1,CNT=1
+	ZERO?	TBL /FALSE
+	LESS?	SIZE,0 /?ELS6
+	SET	'CNT,0
+	JUMP	?CND4
+?ELS6:	GET	TBL,0 >SIZE
+?CND4:	
+?PRG9:	GET	TBL,CNT
+	EQUAL?	ITM,STACK /TRUE
+	IGRTR?	'CNT,SIZE \?PRG9
+	RFALSE	
+
+
+	.FUNCT	ZMEMQB,ITM,TBL,SIZE,CNT=0
+?PRG1:	GETB	TBL,CNT
+	EQUAL?	ITM,STACK /TRUE
+	IGRTR?	'CNT,SIZE \?PRG1
+	RFALSE	
+
+
+	.FUNCT	LIT?,RM,OHERE,LIT=0
+	SET	'P-GWIMBIT,ONBIT
+	SET	'OHERE,HERE
+	SET	'HERE,RM
+	FSET?	RM,ONBIT \?ELS3
+	SET	'LIT,TRUE-VALUE
+	JUMP	?CND1
+?ELS3:	PUT	P-MERGE,P-MATCHLEN,0
+	SET	'P-TABLE,P-MERGE
+	SET	'P-SLOCBITS,-1
+	EQUAL?	OHERE,RM \?CND6
+	CALL	DO-SL,WINNER,1,1
+?CND6:	CALL	DO-SL,RM,1,1
+	GET	P-TABLE,P-MATCHLEN
+	GRTR?	STACK,0 \?CND1
+	SET	'LIT,TRUE-VALUE
+?CND1:	SET	'HERE,OHERE
+	SET	'P-GWIMBIT,0
+	RETURN	LIT
+
+
+	.FUNCT	VPRINT,TMP,?TMP1
+	GET	P-OTBL,P-VERBN >TMP
+	ZERO?	TMP \?ELS5
+	PRINTI	"say"
+	RTRUE	
+?ELS5:	GETB	P-VTBL,2
+	ZERO?	STACK \?ELS9
+	GET	TMP,0
+	PRINTB	STACK
+	RTRUE	
+?ELS9:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	CALL	WORD-PRINT,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	PRSO-PRINT,PTR
+	GET	P-PRSO,P-MATCHLEN
+	GRTR?	STACK,1 /?THN6
+	ZERO?	P-MERGED \?THN6
+	GET	P-ITBL,P-NC1 >PTR
+	GET	PTR,0
+	EQUAL?	STACK,W?IT \?ELS5
+?THN6:	PRINTI	" "
+	CALL	DPRINT,PRSO
+	RSTACK	
+?ELS5:	GET	P-ITBL,P-NC1L
+	CALL	BUFFER-PRINT,PTR,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	PRSI-PRINT,PTR
+	GET	P-PRSI,P-MATCHLEN
+	GRTR?	STACK,1 /?THN6
+	ZERO?	P-MERGED \?THN6
+	GET	P-ITBL,P-NC2 >PTR
+	GET	PTR,0
+	EQUAL?	STACK,W?IT \?ELS5
+?THN6:	PRINTI	" "
+	CALL	DPRINT,PRSI
+	RSTACK	
+?ELS5:	GET	P-ITBL,P-NC2L
+	CALL	BUFFER-PRINT,PTR,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	THE?,OBJ
+	EQUAL?	OBJ,NOT-HERE-OBJECT \?ELS5
+	PRINTI	"any "
+	RTRUE	
+?ELS5:	FSET?	OBJ,PERSON /FALSE
+	EQUAL?	OBJ,PETES-PATCH /FALSE
+	PRINTI	"the "
+	RTRUE	
+
+
+	.FUNCT	START-SENTENCE,OBJ
+	EQUAL?	OBJ,WEASEL \?ELS5
+	PRINTI	"The Weasel"
+	RTRUE	
+?ELS5:	FSET?	OBJ,PERSON /?THN10
+	EQUAL?	OBJ,PETES-PATCH \?ELS9
+?THN10:	CALL	DPRINT,OBJ
+	RSTACK	
+?ELS9:	PRINTI	"The "
+	CALL	DPRINT,OBJ
+	RSTACK	
+
+
+	.FUNCT	TELL-DONT-HAVE,STR
+	PRINTI	"You don't have "
+	ZERO?	STR /FALSE
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	TELL-NO-KEY
+	CALL	TELL-DONT-HAVE,STR?55
+	RSTACK	
+
+	.ENDI
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..16f16ca
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,1494 @@
+"PARSER for TOA2
+Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+
+;"
+4/27/83 - SYNTAX-CHECK doesn't catch too-many-noun-clauses (MARC)
+3/28/83 - GWIM prints XDESC, if any, for PERSON not yet touched. (SWG)
+3/25/83 - Two additions to fix 'ACTOR, <non-verb>' doing the wrong
+	thing. Example: 'PHONG, WHY WERE YOU ...' (MARC)
+3/16/83 - LINDER, HELP bug in which HELP was both noun and verb. (MARC)
+"
+
+"Parser global variable convention:  All parser globals will 
+  begin with 'P-'.  Local variables are not restricted in any
+  way.
+" 
+ 
+<SETG SIBREAKS ".,\"!?">
+
+;<GLOBAL ALWAYS-LIT <>> ;"was ORed in LIT? with <FSET? ,HERE ,ONBIT>"   
+ 
+;<GLOBAL GWIM-DISABLE <>> 
+ 
+<GLOBAL PRSA 0>
+ 
+<GLOBAL PRSI 0>
+
+<GLOBAL PRSO 0>
+
+<GLOBAL P-TABLE 0>  
+ 
+<GLOBAL P-ONEOBJ 0> 
+ 
+<GLOBAL P-SYNTAX 0> 
+ 
+<GLOBAL P-CCSRC 0>  
+ 
+<GLOBAL P-LEN 0>    
+ 
+<GLOBAL P-DIR 0>    
+ 
+<GLOBAL HERE 0>
+ 
+<GLOBAL WINNER 0>   
+ 
+<GLOBAL P-WALK-DIR 0>
+ 
+<GLOBAL P-LEXV <ITABLE BYTE 120>>
+;"INBUF - Input buffer for READ"   
+ 
+<GLOBAL P-INBUF <ITABLE BYTE 100>>
+;"Parse-cont variable"  
+ 
+<GLOBAL P-CONT <>>  
+ 
+<GLOBAL P-IT-OBJECT <>>
+;<GLOBAL P-IT-LOC <>>
+
+;<GLOBAL P-HIM-HER <>>
+;<GLOBAL P-HIM-HER-LOC <>>
+;<ROUTINE THIS-IS-S-HE (PERSON)
+	 <SETG P-HIM-HER .PERSON>
+	 <SETG P-HIM-HER-LOC <LOC .PERSON>>>
+
+;"Orphan flag" 
+ 
+<GLOBAL P-OFLAG <>> 
+ 
+<GLOBAL P-MERGED <>>
+
+<GLOBAL P-ACLAUSE <>>    
+ 
+<GLOBAL P-ANAM <>>  
+ 
+<GLOBAL P-AADJ <>>
+;"Parser variables and temporaries"
+ 
+<CONSTANT P-PHRLEN 3>    
+ 
+<CONSTANT P-ORPHLEN 7>   
+ 
+<CONSTANT P-RTLEN 3>
+;"Byte offset to # of entries in LEXV"
+
+<CONSTANT P-LEXWORDS 1>
+;"Word offset to start of LEXV entries" 
+ 
+<CONSTANT P-LEXSTART 1>
+;"Number of words per LEXV entry"  
+ 
+<CONSTANT P-LEXELEN 2>   
+ 
+<CONSTANT P-WORDLEN 4>
+;"Offset to parts of speech byte"   
+ 
+<CONSTANT P-PSOFF 4>
+;"Offset to first part of speech"
+ 
+<CONSTANT P-P1OFF 5>
+;"First part of speech bit mask in PSOFF byte"  
+ 
+<CONSTANT P-P1BITS 3>    
+ 
+<CONSTANT P-ITBLLEN 9>   
+ 
+<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-VTBL <TABLE 0 0 0 0>>
+
+<GLOBAL P-NCN 0>    
+ 
+<CONSTANT P-VERB 0> 
+ 
+<CONSTANT P-VERBN 1>
+ 
+<CONSTANT P-PREP1 2>
+ 
+<CONSTANT P-PREP1N 3>    
+ 
+<CONSTANT P-PREP2 4>
+ 
+<CONSTANT P-PREP2N 5>    
+ 
+<CONSTANT P-NC1 6>  
+ 
+<CONSTANT P-NC1L 7> 
+ 
+<CONSTANT P-NC2 8>  
+ 
+<CONSTANT P-NC2L 9> 
+ 
+<GLOBAL QUOTE-FLAG <>>
+
+<GLOBAL P-NONE <>>
+
+<GLOBAL P-ADVERB <>>
+
+" Grovel down the input finding the verb, prepositions, and noun clauses.
+   If the input is <direction> or <walk> <direction>, fall out immediately
+   setting PRSA to ,V?WALK and PRSO to <direction>.  Otherwise, perform
+   all required orphaning, syntax checking, and noun clause lookup."   
+
+
+
+;<GLOBAL X-IS-LISTENING <>>
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WORD (VAL 0) (VERB <>)
+		       LEN (DIR <>) (NW 0) (LW 0) NUM SCNT (CNT -1)) 
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-ITBL .CNT 0>)>>
+	<SETG P-NAM <>>
+	<SETG P-ADJ <>>
+	<SETG P-ADVERB <>>
+	<SETG P-MERGED <>>
+	<SETG P-NONE <>>
+	<PUT ,P-PRSO ,P-MATCHLEN 0>
+	<PUT ,P-PRSI ,P-MATCHLEN 0>
+	<PUT ,P-BUTS ,P-MATCHLEN 0>
+	<COND (<AND <NOT ,QUOTE-FLAG> <N==? ,WINNER ,PLAYER>>
+	       <SETG WINNER ,PLAYER>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>)>
+	;<COND (<NOT ,P-OFLAG>
+	       <SETG P-DOLLAR-FLAG <>>)>
+	<COND (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <SETG P-CONT <>>
+	       <COND (<NOT <==? ,L-PRSA ,V?TELL>> <CRLF>)>)
+	      (T
+	       <SETG WINNER ,PLAYER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <PUTB ,P-LEXV 0 59>
+	       <COND (<NOT ,SUPER-BRIEF> <CRLF>)>	       
+	       <TELL ">">
+	       <READ ,P-INBUF ,P-LEXV>)>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<COND (<0? ,P-LEN> <TELL "What?" CR> <RFALSE>)
+	      (<OR <EQUAL? <SET WORD<GET ,P-LEXV .PTR>> ,W?WHY ,W?HOW ,W?WHEN>
+		   <EQUAL? .WORD ,W?IS ,W?DID ,W?ARE>>
+	       <TELL
+"Sorry, but this program can't handle questions like that.
+You should stick to questions like \"WHAT IS ...\" and \"WHERE IS ....\"
+Maybe you'd like to reread the manual."
+;"(Have you forgotten how to interrogate people in this story? You should
+review pages 2-3 of your manual again. Remember that the
+documents in the package contain the answers to all of the
+important questions that you can't ask directly.)" CR>
+	       <RFALSE>)>
+	<SET LEN ,P-LEN>
+	<SETG P-DIR <>>
+	<SETG P-NCN 0>
+	<SETG P-GETFLAGS 0>
+	;"3/25/83: Next statement added."
+	<PUT ,P-ITBL ,P-VERBN 0>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <SETG QUOTE-FLAG <>>
+		       <RETURN>)
+		      (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<AND <==? .WORD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ,ACT?ASK>>
+			      <SET WORD ,W?QUOTE>)
+			     (<AND <==? .WORD ,W?THEN>
+				   <NOT .VERB>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WORD ,W?QUOTE>)>
+		       <COND (<AND <EQUAL? .WORD ,W?PERIOD>
+				   <EQUAL? .LW ;,W?MRS ,W?MR ;,W?MS>>
+			      <SET LW 0>)
+			     (<EQUAL? .WORD ,W?THEN ,W?PERIOD ,W?QUOTE> 
+			      <COND (<EQUAL? .WORD ,W?QUOTE>
+				     <COND (,QUOTE-FLAG
+					    <SETG QUOTE-FLAG <>>)
+					   (T <SETG QUOTE-FLAG T>)>)>
+			      <OR <0? ,P-LEN>
+				  <SETG P-CONT <+ .PTR ,P-LEXELEN>>>
+			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+			      <RETURN>)
+			     (<AND <SET VAL
+					<WT? .WORD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <EQUAL? .VERB <> ,ACT?WALK>
+				   <OR <==? .LEN 1>
+				       <AND <==? .LEN 2>
+					    <==? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? <SET NW
+						     <GET ,P-LEXV
+							 <+ .PTR ,P-LEXELEN>>>
+					            ,W?THEN
+					            ,W?QUOTE>
+					    <G? .LEN 2>>
+				       <AND <EQUAL? .NW ,W?PERIOD>
+					    <G? .LEN 1>>	;"P-LEN?"
+				       <AND ,QUOTE-FLAG
+					    <==? .LEN 2>
+					    <EQUAL? .NW ,W?QUOTE>>
+				       <AND <G? .LEN 2>
+					    <EQUAL? .NW ,W?COMMA ,W?AND>>>>
+			      <SET DIR .VAL>
+			      <COND (<EQUAL? .NW ,W?COMMA ,W?AND>
+				     <PUT ,P-LEXV
+					  <+ .PTR ,P-LEXELEN>
+					  ,W?THEN>)>
+			      <COND (<NOT <G? .LEN 2>>
+				     <SETG QUOTE-FLAG <>>
+				     <RETURN>)>)
+			     (<AND <SET VAL <WT? .WORD ,PS?VERB ,P1?VERB>>
+				   <OR <NOT .VERB>
+				       ;<EQUAL? .VERB ,ACT?WHAT>>>
+			      <SET VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+			      <PUT ,P-VTBL 0 .WORD>
+			      <PUTB ,P-VTBL 2 <GETB ,P-LEXV
+						    <SET NUM
+							 <+ <* .PTR 2> 2>>>>
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .NUM 1>>>)
+			     (<OR <SET VAL <WT? .WORD ,PS?PREPOSITION 0>>
+				  <AND <OR <EQUAL? .WORD ,W?ALL ,W?ONE ,W?A>
+					   <WT? .WORD ,PS?ADJECTIVE>
+					   <WT? .WORD ,PS?OBJECT>>
+				       <SET VAL 0>>>
+			      <COND (<AND <G? ,P-LEN 0>
+					  <==? <GET ,P-LEXV
+						    <+ .PTR ,P-LEXELEN>>
+					       ,W?OF>
+					  <NOT <EQUAL? .VERB
+						       ;,ACT?ACCUSE
+						       ,ACT?MAKE>>
+					  <0? .VAL>
+					  <NOT <EQUAL? .WORD
+						       ,W?ALL ,W?ONE ,W?A>>>)
+				    (<AND <NOT <0? .VAL>>
+				          <OR <0? ,P-LEN>
+					      <EQUAL? <GET ,P-LEXV <+ .PTR 2>>
+						      ,W?THEN ,W?PERIOD>>>
+				     <COND (<L? ,P-NCN 2>
+					    <PUT ,P-ITBL ,P-PREP1 .VAL>
+					    <PUT ,P-ITBL ,P-PREP1N .WORD>)>)
+				    (<==? ,P-NCN 2>
+				     <TELL
+"I found more than two nouns in that sentence!" CR>
+				     <RFALSE>)
+				    (T
+				     <SETG P-NCN <+ ,P-NCN 1>>
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WORD>>
+					 <RFALSE>>
+				     <COND (<L? .PTR 0>
+					    <SETG QUOTE-FLAG <>>
+					    <RETURN>)>)>)
+			     ;(<==? .WORD ,W?CLOSELY>
+			      <SETG P-ADVERB ,W?CAREFULLY>)
+			     (<OR <EQUAL? .WORD
+					  ;,W?CAREFULLY ,W?QUIETLY>
+				  <EQUAL? .WORD
+					  ,W?SLOWLY ,W?QUICKLY ,W?BRIEFLY>>
+			      <SETG P-ADVERB .WORD>)
+			     (<WT? .WORD ,PS?BUZZ-WORD>)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T
+		       <UNKNOWN-WORD .PTR>
+		       <RFALSE>)>
+		<SET LW .WORD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+	<COND (.DIR
+	       <SETG PRSA ,V?WALK>
+	       <SETG PRSO .DIR>
+	       <SETG P-WALK-DIR .DIR>
+	       <RETURN T>)>
+	<COND (,P-OFLAG <ORPHAN-MERGE>)>
+	<COND (<==? <GET ,P-ITBL ,P-VERB> 0>
+	       <PUT ,P-ITBL ,P-VERB ,ACT?$CALL>)>
+	<COND (<AND <SYNTAX-CHECK> <SNARF-OBJECTS> <MANY-CHECK> <TAKE-CHECK>>
+	       T)>>
+;"Check whether word pointed at by PTR is the correct part of speech.
+   The second argument is the part of speech (,PS?<part of speech>).  The
+   3rd argument (,P1?<part of speech>), if given, causes the value
+   for that part of speech to be returned." 
+
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFSET ,P-P1OFF) TYP) 
+	<COND (<BTST <SET TYP <GETB .PTR ,P-PSOFF>> .BIT>
+	       <COND (<G? .B1 4> <RTRUE>)
+		     (T
+		      <SET TYP <BAND .TYP ,P-P1BITS>>
+		      <COND (<NOT <==? .TYP .B1>> <SET OFFSET <+ .OFFSET 1>>)>
+		      <GETB .PTR .OFFSET>)>)>>
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<ROUTINE CLAUSE (PTR VAL WORD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0)) 
+	#DECL ((PTR VAL OFF NUM) FIX (WORD NW) <OR FALSE FIX TABLE>
+	       (ANDFLG FIRST??) <OR ATOM FALSE>)
+	<SET OFF <* <- ,P-NCN 1> 2>>
+	<COND (<NOT <==? .VAL 0>>
+	       <PUT ,P-ITBL <SET NUM <+ ,P-PREP1 .OFF>> .VAL>
+	       <PUT ,P-ITBL <+ .NUM 1> .WORD>
+	       <SET PTR <+ .PTR ,P-LEXELEN>>)
+	      (T <SETG P-LEN <+ ,P-LEN 1>>)>
+	<COND (<0? ,P-LEN> <SETG P-NCN <- ,P-NCN 1>> <RETURN -1>)>
+	<PUT ,P-ITBL <SET NUM <+ ,P-NC1 .OFF>> <REST ,P-LEXV <* .PTR 2>>>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+	       <PUT ,P-ITBL .NUM <REST <GET ,P-ITBL .NUM> 4>>)>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
+		       <RETURN -1>)>
+		<COND (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<AND <==? .WORD ,W?OF>
+				   <EQUAL? <GET ,P-ITBL ,P-VERB>
+					   ;,ACT?ACCUSE ,ACT?MAKE>>
+			      <PUT ,P-LEXV .PTR ,W?WITH>
+			      <SET WORD ,W?WITH>)>
+		       <COND (<AND <EQUAL? .WORD ,W?PERIOD>
+				   <EQUAL? .LW ;,W?MRS ,W?MR ;,W?MS>>
+			      <SET LW 0>)
+			     (<EQUAL? .WORD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WORD ,W?ALL ,W?ONE>
+			      <COND (<==? .NW ,W?OF>
+				     <SETG P-LEN <- ,P-LEN 1>>
+				     <SET PTR <+ .PTR ,P-LEXELEN>>)>)
+			     (<OR <EQUAL? .WORD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WORD ,PS?PREPOSITION>
+				       <NOT .FIRST??>>>
+			      <SETG P-LEN <+ ,P-LEN 1>>
+			      <PUT ,P-ITBL
+				   <+ .NUM 1>
+				   <REST ,P-LEXV <* .PTR 2>>>
+			      <RETURN <- .PTR ,P-LEXELEN>>)
+			     ;"3/16/83: This clause used to be later."
+			     (<AND .ANDFLG
+				   <OR ;"3/25/83: next statement added."
+				       <EQUAL? <GET ,P-ITBL ,P-VERBN> 0>
+				       <WT? .WORD ,PS?DIRECTION>
+				       <WT? .WORD ,PS?VERB>>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WORD ,PS?OBJECT>
+			      <COND ;"First clause added 1/10/84 to fix
+				      'verb AT synonym OF synonym' bug"
+			            (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <NOT <EQUAL? .WORD ,W?ALL ,W?ONE>>>
+				     T)
+				    (<AND <WT? .WORD
+					       ,PS?ADJECTIVE
+					       ,P1?ADJECTIVE>
+					  <NOT <==? .NW 0>>
+					  <WT? .NW ,PS?OBJECT>>)
+				    (<AND <NOT .ANDFLG>
+					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+					  <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
+				     <RETURN .PTR>)
+				    (T <SET ANDFLG <>>)>)
+			     (<WT? .WORD ,PS?ADJECTIVE>
+			      <COND ;(<WT? .WORD ,PS?DIRECTION>
+				     <SETG P-LEN <+ ,P-LEN 1>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* .PTR 2>>>
+				     <RETURN <- .PTR ,P-LEXELEN>>)
+				    (T T)>)
+			     (<WT? .WORD ,PS?BUZZ-WORD> T)
+			     (<WT? .WORD ,PS?PREPOSITION> T)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
+		<SET LW .WORD>
+		<SET FIRST?? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+
+<GLOBAL P-DOLLAR-FLAG <>>
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <SETG P-DOLLAR-FLAG <>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0> <RETURN>)
+		       (T
+			<SET CHR <GETB ,P-INBUF .BPTR>>
+			<COND (<==? .CHR 58>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 9999> <RFALSE>)
+			      (<AND <L? .CHR 58> <G? .CHR 47>>
+			       <SET SUM <+ <* .SUM 10> <- .CHR 48>>>)
+			      (<EQUAL? .CHR %<ASCII !\$>>
+			       <SETG P-DOLLAR-FLAG T>)
+			      (T <RFALSE>)>
+			<SET BPTR <+ .BPTR 1>>)>>
+	 <PUT ,P-LEXV .PTR ,W?INTNUM>
+	 <COND (<G? .SUM 9999> <RFALSE>)
+	       (.TIM
+		<SETG SET-HR .TIM>
+		<SETG SET-MIN .SUM>
+		<COND (<G? .TIM 23> <RFALSE>)
+		      ;(<G? .TIM 19> T)
+		      ;(<G? .TIM 12> <RFALSE>)
+		      ;(<G? .TIM  7> T)
+		      ;(T <SET TIM <+ 12 .TIM>>)>
+		<SET SUM <+ .SUM <* .TIM 60>>>)>
+	 <COND (<AND ,P-DOLLAR-FLAG <G? .SUM 0>>
+		<SETG P-AMOUNT .SUM>
+		<FSET ,INTNUM ,VOWELBIT>
+		<PUTP ,INTNUM ,P?SDESC "amount of money">)
+	       (T
+		<SETG P-NUMBER .SUM>
+		<SETG P-DOLLAR-FLAG <>>
+		<FCLEAR ,INTNUM ,VOWELBIT>
+		<PUTP ,INTNUM ,P?SDESC "number">)>
+	 ,W?INTNUM>
+
+<GLOBAL P-NUMBER 0>
+<GLOBAL P-AMOUNT 0>
+
+
+;"Improved ORPHAN-MERGE with both TRAP retrofixes 6/25/84"
+
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   <SETG P-OFLAG <>>
+   <COND (<WT? <GET <GET ,P-ITBL ,P-VERBN> 0> ,PS?ADJECTIVE ,P1?ADJECTIVE>
+	  <SET ADJ T>)>
+   <COND (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	       <NOT .ADJ>
+	       <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+	  <RFALSE>)
+	 (<==? ,P-NCN 2> <RFALSE>)
+	 (<==? <GET ,P-OTBL ,P-NC1> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP1>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-OTBL ,P-NC1L <REST ,P-LEXV 6>>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+			<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>)
+		(T <RFALSE>)>)
+	 (<==? <GET ,P-OTBL ,P-NC2> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP2>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+		 <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+		 <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+		 <SETG P-NCN 2>)
+		(T <RFALSE>)>)
+	 (,P-ACLAUSE
+	  <COND (<AND <NOT <==? ,P-NCN 1>> <NOT .ADJ>>
+		 <SETG P-ACLAUSE <>>
+		 <RFALSE>)
+		(T
+		 <SET BEG <GET ,P-ITBL ,P-NC1>>
+		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+		 <SET END <GET ,P-ITBL ,P-NC1L>>
+		 <REPEAT ()
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<==? .BEG .END>
+				<COND (.ADJ <ACLAUSE-WIN .ADJ> <RETURN>)
+				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
+			       (<AND <NOT .ADJ>
+				     <OR <BTST <GETB .WRD ,P-PSOFF>
+					       ,PS?ADJECTIVE>
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				    <==? .WRD ,W?ONE>>
+				<COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>>
+				       <RFALSE>)
+				      (T <ACLAUSE-WIN .ADJ> <RETURN>)>)>
+			 <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-NC1L .BEG>)>>)>)>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+;"New ACLAUSE-WIN for TRAP retrofix 6/21/84"
+
+<ROUTINE ACLAUSE-WIN (ADJ) 
+	<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
+	<SETG P-CCSRC ,P-OTBL>
+	<CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+
+;<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   #DECL ((CNT TEMP VERB) FIX (BEG END) <PRIMTYPE VECTOR> (WRD) TABLE)
+   <SETG P-OFLAG <>>
+   <COND
+    (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	  <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+     <RFALSE>)
+    (<==? ,P-NCN 2>
+     <RFALSE>)
+    (<==? <GET ,P-OTBL ,P-NC1> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP1>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
+	   (T <RFALSE>)>)
+    (<==? <GET ,P-OTBL ,P-NC2> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP2>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+	    <SETG P-NCN 2>)
+	   (T <RFALSE>)>)
+    (,P-ACLAUSE
+     <COND
+      (<NOT <==? ,P-NCN 1>> <SETG P-ACLAUSE <>> <RFALSE>)
+      (T
+       <SET BEG <GET ,P-ITBL ,P-NC1>>
+       <SET END <GET ,P-ITBL ,P-NC1L>>
+       <REPEAT ()
+	       <COND (<==? .BEG .END>
+		      <COND (.ADJ
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)
+			    (T
+			     <SETG P-ACLAUSE <>>
+			     <RFALSE>)>)
+		     (<AND <NOT .ADJ>
+			   <BTST <GETB <SET WRD <GET .BEG 0>> ,P-PSOFF>
+			         ,PS?ADJECTIVE>>
+		      <SET ADJ .WRD>)
+		     (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+			  <==? .WRD ,W?ONE>>
+		      <COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>> <RFALSE>)
+			    (T
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)>)>
+	       <SET BEG <REST .BEG ,P-WORDLEN>>>)>)>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+;<ROUTINE ACLAUSE-WIN (ADJ)
+	 <SETG P-CCSRC ,P-OTBL>
+	 <CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	 <AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>>
+	      <SETG P-NCN 2>>
+	 <SETG P-ACLAUSE <>>
+	 <RTRUE>>
+
+;"Print undefined word in input.
+   PTR points to the unknown word in P-LEXV"   
+
+<ROUTINE WORD-PRINT (CNT BUF)
+	 <REPEAT ()
+		 <COND (<DLESS? CNT 0> <RETURN>)
+		       (ELSE
+			<PRINTC <GETB ,P-INBUF .BUF>>
+			<SET BUF <+ .BUF 1>>)>>>
+
+
+
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF MSG) 
+	#DECL ((PTR BUF) FIX)
+	<TELL "I don't know the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\"." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+<ROUTINE CANT-USE (PTR "AUX" BUF) 
+	#DECL ((PTR BUF) FIX)
+	<TELL "Sorry, but you can't use the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\" in that sense." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+;" Perform syntax matching operations, using P-ITBL as the source of
+   the verb and adjectives for this input.  Returns false if no
+   syntax matches, and does it's own orphaning.  If return is true,
+   the syntax is saved in P-SYNTAX."   
+ 
+<GLOBAL P-SLOCBITS 0>    
+ 
+<CONSTANT P-SYNLEN 8>    
+ 
+<CONSTANT P-SBITS 0>
+ 
+<CONSTANT P-SPREP1 1>    
+ 
+<CONSTANT P-SPREP2 2>    
+ 
+<CONSTANT P-SFWIM1 3>    
+ 
+<CONSTANT P-SFWIM2 4>    
+ 
+<CONSTANT P-SLOC1 5>
+ 
+<CONSTANT P-SLOC2 6>
+ 
+<CONSTANT P-SACTION 7>   
+ 
+<CONSTANT P-SONUMS 3>    
+
+<ROUTINE SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ (DRIVE1 <>) (DRIVE2 <>)
+			     PREP VERB) 
+	#DECL ((DRIVE1 DRIVE2) <OR FALSE <PRIMTYPE VECTOR>>
+	       (SYN) <PRIMTYPE VECTOR> (LEN NUM VERB PREP) FIX
+	       (OBJ) <OR FALSE OBJECT>)
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL-COULDNT-FIND "a verb">
+	       <RFALSE>)>
+	<SET SYN <GET ,VERBS <- 255 .VERB>>>
+	<SET LEN <GETB .SYN 0>>
+	<SET SYN <REST .SYN>>
+	<REPEAT ()
+		<SET NUM <BAND <GETB .SYN ,P-SBITS> ,P-SONUMS>>
+		<COND (<G? ,P-NCN .NUM> T) ;"Added 4/27/83"
+		      (<AND <NOT <L? .NUM 1>>
+			    <0? ,P-NCN>
+			    <OR <0? <SET PREP <GET ,P-ITBL ,P-PREP1>>>
+				<==? .PREP <GETB .SYN ,P-SPREP1>>>>
+		       <SET DRIVE1 .SYN>)
+		      (<==? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
+		       <COND (<AND <==? .NUM 2> <==? ,P-NCN 1>>
+			      <SET DRIVE2 .SYN>)
+			     (<==? <GETB .SYN ,P-SPREP2>
+				   <GET ,P-ITBL ,P-PREP2>>
+			      <SYNTAX-FOUND .SYN>
+			      <RTRUE>)>)>
+		<COND (<DLESS? LEN 1>
+		       <COND (<OR .DRIVE1 .DRIVE2> <RETURN>)
+			     (T
+			      <TELL "I don't understand that sentence." CR>
+			      <RFALSE>)>)
+		      (T <SET SYN <REST .SYN ,P-SYNLEN>>)>>
+	<COND (<AND .DRIVE1
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE1 ,P-SFWIM1>
+			       <GETB .DRIVE1 ,P-SLOC1>
+			       <GETB .DRIVE1 ,P-SPREP1>>>>
+	       <PUT ,P-PRSO ,P-MATCHLEN 1>
+	       <PUT ,P-PRSO 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE1>)
+	      (<AND .DRIVE2
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE2 ,P-SFWIM2>
+			       <GETB .DRIVE2 ,P-SLOC2>
+			       <GETB .DRIVE2 ,P-SPREP2>>>>
+	       <PUT ,P-PRSI ,P-MATCHLEN 1>
+	       <PUT ,P-PRSI 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE2>)
+	      (<EQUAL? .VERB ,ACT?FIND ;,ACT?WHAT>
+	       <COND (<NOT <==? ,WINNER ,PLAYER>>
+		      <TELL "You'll have to ask a more specific question." CR>)
+		     (T <TELL "Sorry, but I can't answer that question." CR>)>
+	       <RFALSE>)
+	      (T
+	       <COND (<EQUAL? ,WINNER ,PLAYER>
+		      <ORPHAN .DRIVE1 .DRIVE2>
+		      <COND (<EQUAL? .VERB ,ACT?WALK> ;"This COND added by JW"
+			     <TELL "Where">)
+			    (T <TELL "What">)>
+		      <TELL " do you want to ">)
+		     (T
+		      <REQUEST-INCOMPLETE>
+		      <TELL "what you want ">
+		      <THE? ,WINNER>
+		      <TELL D ,WINNER " to ">)>
+	       <VERB-PRINT>
+	       <COND (.DRIVE2
+		      <CLAUSE-PRINT ,P-NC1 ,P-NC1L>)>
+	       <PREP-PRINT <COND (.DRIVE1 <GETB .DRIVE1 ,P-SPREP1>)
+				 (T <GETB .DRIVE2 ,P-SPREP2>)>>
+	       <COND (<EQUAL? ,WINNER ,PLAYER>
+		      <SETG P-OFLAG T>
+		      <TELL "?" CR>)
+		     (T
+		      <SETG P-OFLAG <>>
+		      <TELL "." CR>)>
+	       <RFALSE>)>> 
+
+<ROUTINE REQUEST-INCOMPLETE ()
+	<TELL "Your request was incomplete. Next time, say ">>
+
+<ROUTINE VERB-PRINT ("AUX" TMP)
+	<SET TMP <GET ,P-ITBL ,P-VERBN>>
+	<COND (<==? .TMP 0> <TELL "say">)
+	      (<0? <GETB ,P-VTBL 2>>
+	       <PRINTB <GET .TMP 0>>)
+	      (T
+	       <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+	       <PUTB ,P-VTBL 2 0>)>>
+
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1)) 
+	#DECL ((D1 D2) <OR FALSE <PRIMTYPE VECTOR>>)
+	<PUT ,P-OCLAUSE ,P-MATCHLEN 0>
+	<SETG P-CCSRC ,P-ITBL>
+	<REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>>
+	<COND (<==? ,P-NCN 2> <CLAUSE-COPY ,P-NC2 ,P-NC2L>)>
+	<COND (<NOT <L? ,P-NCN 1>> <CLAUSE-COPY ,P-NC1 ,P-NC1L>)>
+	<COND (.D1
+	       <PUT ,P-OTBL ,P-PREP1 <GETB .D1 ,P-SPREP1>>
+	       <PUT ,P-OTBL ,P-NC1 1>)
+	      (.D2
+	       <PUT ,P-OTBL ,P-PREP2 <GETB .D2 ,P-SPREP2>>
+	       <PUT ,P-OTBL ,P-NC2 1>)>> 
+
+<ROUTINE CLAUSE-PRINT (BPTR EPTR "OPTIONAL" (THE? T)) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> .THE?>>    
+
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+	 #DECL ((BEG END) <PRIMTYPE VECTOR> (CP) <OR FALSE ATOM>)
+	 <REPEAT ()
+		<COND (<==? .BEG .END> <RETURN>)
+		      (T
+		       <COND (.NOSP <SET NOSP <>>)
+			     (T <TELL " ">)>
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD> <SET NOSP T>)
+			     ;(<==? .WRD ,W?MRS> <TELL "Mrs."> <SET PN T>)
+			     ;(<==? .WRD ,W?MS> <TELL "Ms."> <SET PN T>)
+			     (<==? .WRD ,W?MR> <TELL "Mr."> <SET PN T>)
+			     (<==? .WRD ,W?MCGINTY> <TELL "McGinty"> <SET PN T>)
+			     (<==? .WRD ,W?ME> <TELL D ,GLOBAL-SELF> <SET PN T>)
+			     (<OR <EQUAL? .WRD ,W?WEASEL ,W?PETE ,W?JOHN>
+				  <EQUAL? .WRD ,W?JOHNNY ,W?RED ,W?RAT>
+				  <EQUAL? .WRD ,W?MARY ,W?MARGAR ,W?FRANK>
+				  <EQUAL? .WRD ,W?WEBSTE ,W?HEVLIN>>
+			      <CAPITALIZE .BEG>
+			      <SET PN T>)
+			     (T
+			      <COND (<AND .FIRST?? <NOT .PN> .CP>
+				     <TELL "the ">)>
+			      <COND (<OR ,P-OFLAG ,P-MERGED>
+				     <COND (<==? .WRD ,W?INTNUM>
+					    <TELL D ,INTNUM>)
+					   (T <PRINTB .WRD>)>)
+				    (<AND <EQUAL? .WRD ,W?IT ,W?HIM>
+					  <ACCESSIBLE? ,P-IT-OBJECT>
+					  <NOT <EQUAL? ,P-IT-OBJECT
+						       ,PSEUDO-OBJECT>>>
+				     <DPRINT ,P-IT-OBJECT>)
+				    ;(<AND <EQUAL? .WRD ,W?HIM ;,W?HER>
+					  <==? ,P-HIM-HER-LOC ,HERE>>
+				     <DPRINT ,P-HIM-HER>)
+				    (T
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>)>
+			      <SET FIRST?? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+
+<ROUTINE CAPITALIZE (PTR)
+ <COND (<OR ,P-OFLAG ,P-MERGED> <PRINTB <GET .PTR 0>>)
+       (T
+	<PRINTC <- <GETB ,P-INBUF <GETB .PTR 3>> 32>>
+	<WORD-PRINT <- <GETB .PTR 2> 1> <+ <GETB .PTR 3> 1>>)>>
+
+<ROUTINE PREP-PRINT (PREP "OPTIONAL" (SP? T) "AUX" WRD) 
+	#DECL ((PREP) FIX)
+	<COND (<NOT <0? .PREP>>
+	       <COND (.SP? <TELL " ">)>
+	       <SET WRD <PREP-FIND .PREP>>
+	       <COND (<AND <==? ,W?SIT <GET <GET ,P-ITBL ,P-VERBN> 0>>
+			   <==? ,W?DOWN .WRD>>	;"Will it ever work? --SWG"
+		      <TELL "on">)
+		     (<==? .WRD ,W?AGAINST> <TELL "against">)
+		     (T <PRINTB .WRD>)>
+	       <COND (<AND <==? ,W?GET <GET <GET ,P-ITBL ,P-VERBN> 0>>
+			   <==? ,W?OUT .WRD>>
+		      <TELL " of">)>
+	       <RTRUE>)>>    
+
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSERT <>) "AUX" BEG END) 
+	#DECL ((BPTR EPTR) FIX (BEG END) <PRIMTYPE VECTOR>
+	       (INSERT) <OR FALSE TABLE>)
+	<SET BEG <GET ,P-CCSRC .BPTR>>
+	<SET END <GET ,P-CCSRC .EPTR>>
+	<PUT ,P-OTBL
+	     .BPTR
+	     <REST ,P-OCLAUSE
+		   <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
+	<REPEAT ()
+		<COND (<==? .BEG .END>
+		       <PUT ,P-OTBL
+			    .EPTR
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
+				     2>>>
+		       <RETURN>)
+		      (T
+		       <COND (<AND .INSERT <==? ,P-ANAM <GET .BEG 0>>>
+			      <CLAUSE-ADD .INSERT>)>
+		       <CLAUSE-ADD <GET .BEG 0>>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR) 
+	#DECL ((WRD) TABLE (PTR) FIX)
+	<SET PTR <+ <GET ,P-OCLAUSE ,P-MATCHLEN> 2>>
+	<PUT ,P-OCLAUSE <- .PTR 1> .WRD>
+	<PUT ,P-OCLAUSE .PTR 0>
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>   
+ 
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE) 
+	#DECL ((PREP CNT SIZE) FIX)
+	<SET SIZE <* <GET ,PREPOSITIONS 0> 2>>
+	<REPEAT ()
+		<COND (<IGRTR? CNT .SIZE> <RFALSE>)
+		      (<==? <GET ,PREPOSITIONS .CNT> .PREP>
+		       <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>  
+ 
+<ROUTINE SYNTAX-FOUND (SYN) 
+	#DECL ((SYN) <PRIMTYPE VECTOR>)
+	<SETG P-SYNTAX .SYN>
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
+ 
+<GLOBAL P-GWIMBIT 0>
+ 
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ) 
+	#DECL ((GBIT LBIT) FIX (OBJ) OBJECT)
+	<COND (<==? .GBIT ,RMUNGBIT>
+	       <RETURN ,ROOMS>)>
+	<SETG P-GWIMBIT .GBIT>
+	<SETG P-SLOCBITS .LBIT>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<COND (<GET-OBJECT ,P-MERGE <>>
+	       <SETG P-GWIMBIT 0>
+	       <COND (<==? <GET ,P-MERGE ,P-MATCHLEN> 1>
+		      <SET OBJ <GET ,P-MERGE 1>>
+		      <TELL "(">
+		      <COND (<PREP-PRINT .PREP <>>
+			     ;<NOT <0? .PREP>>
+			     ;<PRINTB <PREP-FIND .PREP>>
+			     <TELL " ">
+			     <THE? .OBJ>
+			     ;<COND (<NOT <FSET? .OBJ ,PERSON>>
+				    <TELL " the ">)
+				   (T <TELL " ">)>)>
+		      <COND ;(<AND <FSET? .OBJ ,PERSON>
+				  <NOT <FSET? .OBJ ,TOUCHBIT>>
+				  ;<GETP .OBJ ,P?DESCFCN>
+				  <GETP .OBJ ,P?XDESC>>
+			     <TELL "the " <GETP .OBJ ,P?XDESC> ")" CR>)
+			    (T <TELL D .OBJ ")" CR>)>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR) 
+	#DECL ((PTR) <OR FIX <PRIMTYPE VECTOR>>)
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC1>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>
+	       <OR <0? <GET ,P-BUTS ,P-MATCHLEN>>
+		   <SETG P-PRSO <BUT-MERGE ,P-PRSO>>>)>
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC2>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>
+	       <COND (<NOT <0? <GET ,P-BUTS ,P-MATCHLEN>>>
+		      <COND (<==? <GET ,P-PRSI ,P-MATCHLEN> 1>
+			     <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)
+			    (T <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>)>
+	<RTRUE>>  
+
+<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL) 
+	#DECL ((TBL NTBL) TABLE (LEN BUTLEN MATCHES) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<REPEAT ()
+		<COND (<DLESS? LEN 0> <RETURN>)
+		      (<ZMEMQ <SET OBJ <GET .TBL .CNT>> ,P-BUTS>)
+		      (T
+		       <PUT ,P-MERGE <+ .MATCHES 1> .OBJ>
+		       <SET MATCHES <+ .MATCHES 1>>)>
+		<SET CNT <+ .CNT 1>>>
+	<PUT ,P-MERGE ,P-MATCHLEN .MATCHES>
+	<SET NTBL ,P-MERGE>
+	<SETG P-MERGE .TBL>
+	.NTBL>    
+ 
+<GLOBAL P-NAM <>>   
+ 
+<GLOBAL P-XNAM <>>
+
+<GLOBAL P-ADJ <>>   
+ 
+<GLOBAL P-XADJ <>>
+
+<GLOBAL P-ADJN <>>  
+ 
+<GLOBAL P-XADJN <>>
+
+<GLOBAL P-PRSO <ITABLE NONE 50>>   
+ 
+<GLOBAL P-PRSI <ITABLE NONE 50>>   
+ 
+<GLOBAL P-BUTS <ITABLE NONE 50>>   
+ 
+<GLOBAL P-MERGE <ITABLE NONE 50>>  
+ 
+<GLOBAL P-OCLAUSE <ITABLE NONE 50>>
+ 
+<GLOBAL P-MATCHLEN 0>    
+ 
+<GLOBAL P-GETFLAGS 0>    
+ 
+<CONSTANT P-ALL 1>  
+ 
+<CONSTANT P-ONE 2>  
+ 
+<CONSTANT P-INHIBIT 4>   
+
+<GLOBAL P-CSPTR <>>
+<GLOBAL P-CEPTR <>>
+<GLOBAL P-AND <>>
+
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (AND <>) (BUT <>) LEN WV WORD NW) 
+   #DECL ((TBL) TABLE (PTR EPTR) <PRIMTYPE VECTOR> (AND) <OR ATOM FALSE>
+	  (BUT) <OR FALSE TABLE> (WV) <OR FALSE FIX>)
+   <SETG P-AND <>>
+   <SETG P-GETFLAGS 0>
+   <SETG P-CSPTR .PTR>
+   <SETG P-CEPTR .EPTR>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WORD <GET .PTR 0>>
+   <REPEAT ()
+	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<==? .WORD ,W?ALL>
+			 <SETG P-GETFLAGS ,P-ALL>
+			 <COND (<==? .NW ,W?OF>
+				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			(<EQUAL? .WORD ,W?BUT ,W?EXCEPT>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 <SET BUT ,P-BUTS>
+			 <PUT .BUT ,P-MATCHLEN 0>)
+			(<EQUAL? .WORD ,W?A ,W?ONE>
+			 <COND (<NOT ,P-ADJ>
+				<SETG P-GETFLAGS ,P-ONE>
+				<COND (<==? .NW ,W?OF>
+				       <SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			       (T
+				<SETG P-NAM ,P-ONEOBJ>
+				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+				<AND <0? .NW> <RTRUE>>)>)
+			(<AND <EQUAL? .WORD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <SETG P-AND T>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<WT? .WORD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WORD ,W?AND ,W?COMMA>)
+			(<==? .WORD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND <SET WV <WT? .WORD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
+			      <NOT ,P-ADJ>>
+			 <SETG P-ADJ .WV>
+			 <SETG P-ADJN .WORD>)
+			(<WT? .WORD ,PS?OBJECT ,P1?OBJECT>
+			 <SETG P-NAM .WORD>
+			 <SETG P-ONEOBJ .WORD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WORD .NW>)>>>   
+ 
+<CONSTANT SH 128>   
+ 
+<CONSTANT SC 64>    
+ 
+<CONSTANT SIR 32>   
+ 
+<CONSTANT SOG 16>   
+ 
+<CONSTANT STAKE 8>  
+ 
+<CONSTANT SMANY 4>  
+ 
+<CONSTANT SHAVE 2>  
+
+<ROUTINE GET-OBJECT (TBL
+		    "OPTIONAL" (VRB T)
+		    "AUX" BITS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+	#DECL ((TBL) TABLE (XBITS TLEN LEN) FIX (GWIM) <OR FALSE FIX>
+	       (VRB GCHECK) <OR ATOM FALSE>)
+ <SET XBITS ,P-SLOCBITS>
+ <SET TLEN <GET .TBL ,P-MATCHLEN>>
+ <COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+ <COND (<AND <NOT ,P-NAM> ,P-ADJ>
+	<COND (<WT? ,P-ADJN ,PS?OBJECT ,P1?OBJECT>
+	       <SETG P-NAM ,P-ADJN>
+	       <SETG P-ADJ <>>)
+	      (<SET BITS <WT? ,P-ADJN ,PS?DIRECTION ,P1?DIRECTION>>
+	       <SETG P-ADJ <>>
+	       <PUT .TBL ,P-MATCHLEN 1>
+	       <PUT .TBL 1 ,INTDIR>
+	       <SETG P-WALK-DIR .BITS>
+	       <RTRUE>)>)>
+ <COND (<AND <NOT ,P-NAM>
+	     <NOT ,P-ADJ>
+	     <NOT <==? ,P-GETFLAGS ,P-ALL>>
+	     <0? ,P-GWIMBIT>>
+	<COND (.VRB
+	       <TELL-COULDNT-FIND "enough nouns">)>
+	<RFALSE>)>
+ <COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+	<SETG P-SLOCBITS -1>)>
+ <SETG P-TABLE .TBL>
+ <PROG ()
+  <COND (.GCHECK <GLOBAL-CHECK .TBL>)
+	(T
+	 <COND (,LIT
+		<FCLEAR ,PLAYER ,TRANSBIT>
+		<DO-SL ,HERE ,SOG ,SIR>
+		<FSET ,PLAYER ,TRANSBIT>)>
+	 <DO-SL ,PLAYER ,SH ,SC>)>
+  <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+  <COND (<BTST ,P-GETFLAGS ,P-ALL>
+         <COND (<AND <0? .LEN> ,P-NAM>
+		<SETG P-NONE T>)>)
+	(<AND <BTST ,P-GETFLAGS ,P-ONE>
+	      <NOT <0? .LEN>>>
+	 <COND (<NOT <==? .LEN 1>>
+		<PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+		<TELL "How about the ">
+		<DPRINT <GET .TBL 1>>
+		<TELL "?" CR>)>
+	 <PUT .TBL ,P-MATCHLEN 1>)
+	(<OR <G? .LEN 1>
+	     <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+	 <COND (<==? ,P-SLOCBITS -1>
+		<SETG P-SLOCBITS .XBITS>
+		<SET OLEN .LEN>
+		<PUT .TBL ,P-MATCHLEN <- <GET .TBL ,P-MATCHLEN> .LEN>>
+		<AGAIN>)
+	       (T
+		<COND (<0? .LEN> <SET LEN .OLEN>)>
+		<COND ;(<AND ,P-NAM
+			    <VERB? ASK-ABOUT ASK-CONTEXT-ABOUT TELL-ME WHAT
+				   GIVE SGIVE ASK-FOR ASK-CONTEXT-FOR TAKE
+				   FIND SEARCH ;SEARCH-OBJECT-FOR
+				   MAKE DISEMBARK>
+			    <SET OBJ <GET .TBL <+ .TLEN 1>>>
+			    <SET OBJ <APPLY <GETP .OBJ ,P?GENERIC> .OBJ>>>
+		       <COND (<==? .OBJ ,NOT-HERE-OBJECT> <RFALSE>)>
+		       <PUT .TBL 1 .OBJ>
+		       <PUT .TBL ,P-MATCHLEN 1>
+		       <SETG P-NAM <>>
+		       <SETG P-ADJ <>>
+		       <RTRUE>)
+		      (<AND .VRB ,P-NAM>
+		       <COND (<EQUAL? ,WINNER ,PLAYER>
+			      <WHICH-PRINT .TLEN .LEN .TBL>
+			      <SETG P-ACLAUSE
+				    <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+					  (T ,P-NC2)>>
+			      <SETG P-AADJ ,P-ADJ>
+			      <SETG P-ANAM ,P-NAM>
+			      <ORPHAN <> <>>
+			      <SETG P-OFLAG T>)
+			     (T
+			      <REQUEST-INCOMPLETE>
+			      <TELL "which">
+			      <WHICH-PRINT-NOUN .TBL>
+			      <TELL " you mean, ">
+			      <WHICH-PRINT-LIST .TLEN .LEN .TBL>
+			      <SETG P-OFLAG <>>
+			      <TELL "." CR>)>)
+		      (.VRB
+		       <TELL-COULDNT-FIND "enough nouns">)>
+		<SETG P-NAM <>>
+		<SETG P-ADJ <>>
+		<RFALSE>)>)
+	(<AND <0? .LEN> .GCHECK>
+	 <COND (.VRB
+		<COND (,LIT
+		       ;"Changed 6/10/83 - MARC"
+		       <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
+		       ;<PUT .TBL ,P-MATCHLEN 1>
+		       ;<PUT .TBL 1 ,NOT-HERE-OBJECT>
+		       <SETG P-XNAM ,P-NAM>
+		       <SETG P-XADJ ,P-ADJ>
+		       <SETG P-XADJN ,P-ADJN>
+		       <SETG P-NAM <>>
+		       <SETG P-ADJ <>>
+		       <SETG P-ADJN <>>
+		       <RTRUE>)
+		      (T <TELL-TOO-DARK>)>)>
+	 <SETG P-NAM <>>
+	 <SETG P-ADJ <>>
+	 <RFALSE>)
+	(<0? .LEN> <SET GCHECK T> <AGAIN>)>
+  <COND (<AND ,P-ADJ <NOT ,P-NAM>> <SETG P-NONOUN T>) (T <SETG P-NONOUN <>>)>
+  <SETG P-SLOCBITS .XBITS>
+  <SETG P-NAM <>>
+  <SETG P-ADJ <>>
+  <RTRUE>>>
+
+<ROUTINE TELL-COULDNT-FIND (STR)
+	 <TELL "I couldn't find " .STR " in that sentence." CR>>
+
+<ROUTINE TELL-TOO-DARK ()
+	 <TELL "It's too dark to see!" CR>>
+
+<GLOBAL P-NONOUN <>>
+
+<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN)
+	 <SETG P-MOBY-FLAG T>
+	 <SETG P-SLOCBITS -1>
+	 <SETG P-TABLE .TBL>
+	 <SETG P-NAM ,P-XNAM>
+	 <SETG P-ADJ ,P-XADJ>
+	 <SETG P-MOBY-FOUND <>>
+	 <PUT .TBL ,P-MATCHLEN 0>
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,LOCAL-GLOBALS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<SEARCH-LIST ,GLOBAL-FERRY .TBL ,P-SRCTOP>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 1>
+		<SETG P-MOBY-FOUND <GET .TBL 1>>)>
+	 <SETG P-MOBY-FLAG <>>
+	 .LEN>
+
+<GLOBAL P-MOBY-FOUND <>>
+<GLOBAL P-MOBY-FLAG <>>
+
+<ROUTINE WHICH-PRINT (TLEN LEN TBL)
+	 <TELL "Which">
+         <WHICH-PRINT-NOUN .TBL>
+	 <TELL " do you mean, ">
+	 <WHICH-PRINT-LIST .TLEN .LEN .TBL>
+	 <TELL "?" CR>>
+
+<ROUTINE WHICH-PRINT-NOUN (TBL)
+	 <COND (<OR ,P-OFLAG ,P-MERGED ,P-AND>
+		<TELL " ">
+		<COND (<==? ,P-NAM ,W?INTNUM> <TELL D ,INTNUM>)
+		      (T <PRINTB ,P-NAM>)>)
+	       (<==? .TBL ,P-PRSO>
+		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
+	       (T <CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>>
+
+<ROUTINE WHICH-PRINT-LIST (TLEN LEN TBL "AUX" OBJ RLEN)
+	 <SET RLEN .LEN>
+	 <REPEAT ()
+		 <SET TLEN <+ .TLEN 1>>
+		 <SET OBJ <GET .TBL .TLEN>>
+		 <THE? .OBJ>
+		 ;<COND (<NOT <FSET? .OBJ ,PERSON>> <TELL " the">)>
+		 <TELL D .OBJ>
+		 <COND (<==? .LEN 2>
+		        <COND (<NOT <==? .RLEN 2>> <TELL ", ">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2> <TELL ", ">)>
+		 <COND (<L? <SET LEN <- .LEN 1>> 1>
+		        <RETURN>)>>>
+
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS) 
+	#DECL ((TBL) TABLE (RMG) <OR FALSE TABLE> (RMGL CNT) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,HERE ,P?GLOBAL>>
+	       <SET RMGL <- <PTSIZE .RMG> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GETB .RMG .CNT>> .TBL>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<OR <AND <OR <FSET? .OBJ ,CONTBIT>
+				       	   <FSET? .OBJ ,SURFACEBIT>>
+				       <FSET? .OBJ ,OPENBIT>>
+				  <FSET? .OBJ ,TRANSBIT>>
+			      <SEARCH-LIST .OBJ .TBL ,P-SRCTOP>)>
+		       <COND (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<SET RMG <GETPT ,HERE ,P?PSEUDO>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 4> 1>>
+	       <SET CNT 0>
+	       <REPEAT ()
+		       <COND (<==? ,P-NAM <GET .RMG <* .CNT 2>>>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ <* .CNT 2> 1>>>
+			      <PUTP ,PSEUDO-OBJECT ,P?DESCFCN ,HERE>
+			      <APPLY <GETP ,PSEUDO-OBJECT ,P?ACTION> ,M-NAME>
+			      <OBJ-FOUND ,PSEUDO-OBJECT .TBL>
+			      <RETURN>)
+			     (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<==? <GET .TBL ,P-MATCHLEN> .LEN>
+	       <SETG P-SLOCBITS -1>
+	       <SETG P-TABLE .TBL>
+	       <DO-SL ,GLOBAL-OBJECTS 1 1>
+	       <SETG P-SLOCBITS .OBITS>)>>
+
+<ROUTINE DO-SL (OBJ BIT1 BIT2 "AUX" BITS) 
+	#DECL ((OBJ) OBJECT (BIT1 BIT2 BITS) FIX)
+	<COND (<BTST ,P-SLOCBITS <+ .BIT1 .BIT2>>
+	       <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCALL>)
+	      (T
+	       <COND (<BTST ,P-SLOCBITS .BIT1>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCTOP>)
+		     (<BTST ,P-SLOCBITS .BIT2>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCBOT>)
+		     (T <RTRUE>)>)>>  
+ 
+<CONSTANT P-SRCBOT 2>    
+ 
+<CONSTANT P-SRCTOP 0>    
+ 
+<CONSTANT P-SRCALL 1>    
+ 
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ) 
+	#DECL ((OBJ NOBJ) <OR FALSE OBJECT> (TBL) TABLE (LVL) FIX (FLS) ANY)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <NOT <==? .LVL ,P-SRCBOT>>
+				   <GETPT .OBJ ,P?SYNONYM>
+				   <THIS-IT? .OBJ .TBL>>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<AND <OR <NOT <==? .LVL ,P-SRCTOP>>
+				       <FSET? .OBJ ,SEARCHBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <SET NOBJ <FIRST? .OBJ>>
+				   <OR <FSET? .OBJ ,OPENBIT>
+				       <FSET? .OBJ ,TRANSBIT>
+				       ,P-MOBY-FLAG
+				       <AND <FSET? .OBJ ,PERSON>
+					    <NOT <==? .OBJ ,PLAYER>>>>>
+			      <SET FLS
+				   <SEARCH-LIST .OBJ
+						.TBL
+						<COND (<FSET? .OBJ ,SURFACEBIT>
+						       ,P-SRCALL)
+						      (<FSET? .OBJ ,SEARCHBIT>
+						       ,P-SRCALL)
+						      (T ,P-SRCTOP)>>>)>
+		       <COND (<SET OBJ <NEXT? .OBJ>>) (T <RETURN>)>>)>>
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <ZMEMQ ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 <NOT <ZMEMQB ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>>>
+	<RFALSE>)
+       (<AND <NOT <0? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>> 
+
+<ROUTINE OBJ-FOUND (OBJ TBL "AUX" PTR) 
+	#DECL ((OBJ) OBJECT (TBL) TABLE (PTR) FIX)
+	<SET PTR <GET .TBL ,P-MATCHLEN>>
+	<PUT .TBL <+ .PTR 1> .OBJ>
+	<PUT .TBL ,P-MATCHLEN <+ .PTR 1>>> 
+ 
+<ROUTINE TAKE-CHECK () 
+	<AND <ITAKE-CHECK ,P-PRSO <GETB ,P-SYNTAX ,P-SLOC1>>
+	     <ITAKE-CHECK ,P-PRSI <GETB ,P-SYNTAX ,P-SLOC2>>>> 
+
+<ROUTINE ITAKE-CHECK (TBL BITS "AUX" PTR OBJ TAKEN) 
+	 #DECL ((TBL) TABLE (BITS PTR) FIX (OBJ) OBJECT
+		(TAKEN) <OR FALSE FIX ATOM>)
+	 <COND (<AND <SET PTR <GET .TBL ,P-MATCHLEN>>
+		     <OR <BTST .BITS ,SHAVE>
+			 <BTST .BITS ,STAKE>>>
+		<REPEAT ()
+			<COND (<L? <SET PTR <- .PTR 1>> 0> <RETURN>)
+			      (T
+			       <SET OBJ <GET .TBL <+ .PTR 1>>>
+			       <COND (<==? .OBJ ,IT> <SET OBJ ,P-IT-OBJECT>)
+				     ;(<==? .OBJ ,HIM-HER>
+				      <SET OBJ ,P-HIM-HER>)>
+			       <COND (<NOT <HELD? .OBJ>>
+				      <SETG PRSO .OBJ>
+				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
+					     <SET TAKEN T>)
+					    (<NOT <==? ,WINNER ,PLAYER>>
+					     <SET TAKEN <>>)
+					    (<AND <BTST .BITS ,STAKE>
+						  <==? <ITAKE <>> T>>
+					     <SET TAKEN <>>)
+					    (T <SET TAKEN T>)>
+				      <COND (<AND .TAKEN <BTST .BITS ,SHAVE>>
+					     <COND (<OR
+						     <EQUAL? .OBJ ,GLOBAL-MONEY
+						      ,RIDICULOUS-MONEY-KLUDGE>
+						     <AND <==? .OBJ ,INTNUM>
+							  ,P-DOLLAR-FLAG>
+						     <AND <==? .OBJ ,IT>
+						      <EQUAL? ,P-IT-OBJECT
+						       ,RIDICULOUS-MONEY-KLUDGE
+						       ,INTNUM ,GLOBAL-MONEY>>>
+						  <TELL-YOU-CANT "afford to.">)
+						    (T
+						     <TELL-DONT-HAVE <>>
+					     	     <COND (<EQUAL? .OBJ
+							      ,NOT-HERE-OBJECT>
+						    	    <TELL "that." CR>)
+						   	   (T
+						    	    <THE? .OBJ>
+						    	    <TELL
+							     D .OBJ "." CR>)>)>
+					     <RFALSE>)
+					    (<AND <NOT .TAKEN>
+						  <==? ,WINNER ,PLAYER>>
+					     <TELL "(taking ">
+					     <COND (<OR <G?
+							 <GET ,P-PRSI
+							      ,P-MATCHLEN>
+							 0>
+							<G?
+							 <GET .TBL ,P-MATCHLEN>
+							 1>>
+						    <THE? .OBJ>
+						    <TELL D .OBJ>)
+						   (T <TELL "it">)>
+					     <TELL " first)" CR>)>)>)>>)
+	       (T)>>
+
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	#DECL ((LOSS) <OR FALSE FIX>)
+	<COND (<AND <G? <GET ,P-PRSO ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC1> ,SMANY>>>
+	       <SET LOSS 1>)
+	      (<AND <G? <GET ,P-PRSI ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC2> ,SMANY>>>
+	       <SET LOSS 2>)>
+	<COND (.LOSS
+	       <TELL-YOU-CANT "use multiple " <>>
+	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<0? .TMP> <TELL "tell">)
+		     (<OR ,P-OFLAG ,P-MERGED>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL "\"." CR>
+	       <RFALSE>)
+	      (T)>>  
+ 
+<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+	<COND (<NOT .TBL> <RFALSE>)>
+	<COND (<NOT <L? .SIZE 0>> <SET CNT 0>)
+	      (ELSE <SET SIZE <GET .TBL 0>>)>
+	<REPEAT ()
+		<COND (<==? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+	#DECL ((ITM) ANY (TBL) TABLE (SIZE CNT) FIX)
+	<REPEAT ()
+		<COND (<==? .ITM <GETB .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>  
+ 
+;<SETG ALWAYS-LIT <>>
+ 
+<ROUTINE LIT? (RM "AUX" OHERE (LIT <>)) 
+	#DECL ((RM OHERE) OBJECT (LIT) <OR ATOM FALSE>)
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<FSET? .RM ,ONBIT> <SET LIT T>)
+	      (T
+	       <PUT ,P-MERGE ,P-MATCHLEN 0>
+	       <SETG P-TABLE ,P-MERGE>
+	       <SETG P-SLOCBITS -1>
+	       <COND (<==? .OHERE .RM> <DO-SL ,WINNER 1 1>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0> <SET LIT T>)>)>
+	<SETG HERE .OHERE>
+	<SETG P-GWIMBIT 0>
+	.LIT>
+
+<ROUTINE VPRINT ("AUX" TMP)
+	 <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	 <COND (<==? .TMP 0> <TELL "say">)
+	       (<0? <GETB ,P-VTBL 2>>
+		<PRINTB <GET .TMP 0>>)
+	       (T
+		<WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>>
+
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR <G? <GET ,P-PRSO ,P-MATCHLEN> 1>
+		    ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+
+;<ROUTINE THE-PRSO-PRINT () <THE? ,PRSO> <TELL PRSO>>
+
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR <G? <GET ,P-PRSI ,P-MATCHLEN> 1>
+		    ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSI>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
+
+;<ROUTINE THE-PRSI-PRINT () <THE? ,PRSI> <TELL PRSI>>
+
+<ROUTINE THE? (OBJ)
+	 <COND (<==? .OBJ ,NOT-HERE-OBJECT>
+		<TELL "any ">)
+	       (<AND <NOT <FSET? .OBJ ,PERSON>>
+		     <NOT <==? .OBJ ,PETES-PATCH>>>
+		<TELL "the ">)>>
+
+<ROUTINE START-SENTENCE (OBJ)
+	 <COND (<EQUAL? .OBJ ,WEASEL>
+		<TELL "The Weasel">)
+	       (<OR <FSET? .OBJ ,PERSON>
+		    <==? .OBJ ,PETES-PATCH>>
+		<TELL D .OBJ>)
+	       (T <TELL "The " D .OBJ>)>>
+
+<ROUTINE TELL-DONT-HAVE (STR)
+	 <TELL "You don't have ">
+	 <COND (.STR <TELL .STR "." CR>)>>
+
+<ROUTINE TELL-NO-KEY ()
+	 <TELL-DONT-HAVE "the right key">>
diff --git a/people.zap b/people.zap
new file mode 100644
index 0000000..1a6a6eb
--- /dev/null
+++ b/people.zap
@@ -0,0 +1,1905 @@
+
+
+	.FUNCT	TELL-NEVER-KNEW
+	PRINTR	"""Never heard of him."""
+
+
+	.FUNCT	MCGINTY-F,RARG=0,OBJ,PFLAG=0
+	EQUAL?	RARG,M-OBJDESC \?ELS3
+	ZERO?	MCGINTY-KNOWS /?ELS6
+	JUMP	?CND4
+?ELS6:	IN?	PASSBOOK,PLAYER \?ELS9
+	CALL	QUEUED?,I-MCGINTY-FOLLOWS
+	ZERO?	STACK \?ELS9
+	SET	'PFLAG,1
+	CALL	MCGINTY-WILL-FOLLOW
+	JUMP	?CND4
+?ELS9:	IN?	PASSBOOK,HERE \?CND4
+	CALL	MCGINTY-WILL-FOLLOW
+	MOVE	PASSBOOK,MCGINTY
+	SET	'PFLAG,2
+?CND4:	CALL	IN-MOTION?,MCGINTY
+	ZERO?	STACK \TRUE
+	CALL	QUEUED?,I-MCGINTY-FOLLOWS
+	ZERO?	STACK /?ELS20
+	EQUAL?	PRSA,V?FOLLOW,V?WALK \?ELS20
+	LOC	PLAYER
+	IN?	MCGINTY,STACK \TRUE
+?ELS20:	CALL	TRAITOR-TIME?
+	ZERO?	STACK \TRUE
+	FSET?	MCGINTY,TOUCHBIT \?ELS22
+	CALL	DPRINT,MCGINTY
+	PRINTI	" is here, "
+	EQUAL?	HERE,OUTFITTERS-HQ \?ELS27
+	PRINTI	"talking with the salesman"
+	JUMP	?CND25
+?ELS27:	PRINTI	"smoking his cigar"
+?CND25:	PRINTI	"."
+	JUMP	?CND14
+?ELS22:	CALL	DPRINT,MCGINTY
+	PRINTI	", a small, nervous man, is "
+	IN?	MCGINTY,MCGINTY-HQ \?ELS42
+	PRINTI	"sitting behind a desk"
+	JUMP	?CND40
+?ELS42:	PRINTI	"standing nearby"
+?CND40:	PRINTI	". His lips clamp around a cigar too large for his face."
+	FSET	MCGINTY,TOUCHBIT
+?CND14:	EQUAL?	PFLAG,1 \?ELS53
+	CALL	TELL-EYES-NARROW
+	JUMP	?CND51
+?ELS53:	EQUAL?	PFLAG,2 \?CND51
+	CALL	TELL-TAKE-PASS,STR?403
+?CND51:	CRLF	
+	RTRUE	
+?ELS3:	EQUAL?	RARG,M-CONT \?CND1
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	PRSO,TAKEBIT \FALSE
+	CALL	DPRINT,MCGINTY
+	PRINTR	" pulls it back. ""I'm not gonna give that to you!"""
+?CND1:	EQUAL?	WINNER,MCGINTY \?CND67
+	CALL	META-LOC,PLAYER
+	IN?	MCGINTY,STACK /?ELS72
+	SET	'P-CONT,FALSE-VALUE
+	CALL	TELL-NOT-HERE-TALK
+	RETURN	2
+?ELS72:	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?CND67
+	CALL	TELL-IN-MEETING
+	RETURN	2
+?CND67:	FSET	MCGINTY,TOUCHBIT
+	EQUAL?	PRSA,V?FOLLOW \?ELS81
+	EQUAL?	PRSO,MCGINTY /FALSE
+?ELS81:	EQUAL?	PRSA,V?$CALL \?ELS85
+	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?ELS85
+	CALL	TELL-IN-MEETING
+	RTRUE	
+?ELS85:	EQUAL?	PRSA,V?HELLO \?ELS89
+	SET	'QCONTEXT,MCGINTY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Howdy."""
+?ELS89:	EQUAL?	PRSA,V?GOODBYE \?ELS93
+	SET	'QCONTEXT,MCGINTY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""So long."""
+?ELS93:	EQUAL?	PRSA,V?TAKE \?ELS101
+	EQUAL?	PRSI,MCGINTY /?THN98
+?ELS101:	EQUAL?	PRSA,V?ASK-FOR \?ELS97
+	EQUAL?	PRSO,MCGINTY \?ELS97
+?THN98:	EQUAL?	PRSO,MCGINTY \?ELS106
+	SET	'OBJ,PRSI
+	JUMP	?CND104
+?ELS106:	SET	'OBJ,PRSO
+?CND104:	IN?	OBJ,MCGINTY \?ELS111
+	PRINTR	"""I'm not gonna give that to you."""
+?ELS111:	PRINTR	"""I don't have that."""
+?ELS97:	EQUAL?	PRSA,V?BUY \?CND79
+	EQUAL?	PRSO,FERRY-TOKEN \?CND79
+	PRINTR	"""I don't have one. Try the bank."""
+?CND79:	EQUAL?	PRSA,V?$CALL \?ELS127
+	EQUAL?	WINNER,PLAYER /FALSE
+?ELS127:	CALL	GRAB-ATTENTION,MCGINTY
+	ZERO?	STACK /TRUE
+	EQUAL?	PRSA,V?TELL \?ELS134
+	EQUAL?	PRSO,MCGINTY \?ELS134
+	EQUAL?	PRSI,SAMPLE-TREASURE,GLOBAL-TREASURE \?CND132
+	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?ELS142
+	CALL	JIGS-UP,STR?404
+	RTRUE	
+?ELS142:	ZERO?	MCGINTY-KNOWS /?ELS144
+	PRINTR	"""Thanks, but I already know about it."""
+?ELS144:	IN?	SPEAR-CARRIER,HERE /?THN153
+	IN?	JOHNNY,HERE /?THN153
+	IN?	PETE,HERE /?THN153
+	IN?	WEASEL,HERE \?ELS152
+?THN153:	SET	'MCGINTY-KNOWS,TRUE-VALUE
+	CALL	ZERO-ATTENTION,MCGINTY
+	GET	GOAL-TABLES,MCGINTY-C
+	PUT	STACK,GOAL-ENABLE,TRUE-VALUE
+	CALL	DPRINT,MCGINTY
+	PRINTI	" looks delighted with the information."
+	IN?	MCGINTY,OUTFITTERS-HQ \?ELS159
+	CALL	ESTABLISH-GOAL,MCGINTY,MCGINTY-HQ
+	IN?	JOHNNY,OUTFITTERS-HQ \?ELS162
+	CALL	SAY-MCGINTY-KNOWS
+	RTRUE	
+?ELS162:	PRINTI	" He thanks you."
+	CALL	TELL-NEED-BOAT
+	RTRUE	
+?ELS159:	CALL	ESTABLISH-GOAL,MCGINTY,OUTFITTERS-HQ
+	CALL	ALL-GO-HOME
+	CALL	I-PLOT-NEVER-STARTS
+	CALL	INT,I-SHOVE-OFF
+	PUT	STACK,0,0
+	PRINTR	" ""Excuse me,"" he says. ""I have business to attend to."""
+?ELS152:	CALL	JIGS-UP,STR?405
+	RTRUE	
+?ELS134:	EQUAL?	PRSA,V?SHOW \?ELS174
+	EQUAL?	PRSO,BOOK,NOTE \?ELS174
+	EQUAL?	PRSI,MCGINTY \?ELS174
+	CALL	PERFORM,V?TELL,MCGINTY,GLOBAL-TREASURE
+	RTRUE	
+?ELS174:	EQUAL?	PRSA,V?ASK-ABOUT \?CND132
+	EQUAL?	PRSO,MCGINTY \?CND132
+	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?ELS183
+	CALL	TELL-IN-MEETING
+	RETURN	2
+?ELS183:	EQUAL?	PRSI,GLOBAL-TREASURE \?ELS187
+	PRINTI	"""I'm always looking for "
+	CALL	DPRINT,GLOBAL-TREASURE
+	PRINTR	","" he says, grinning."
+?ELS187:	EQUAL?	PRSI,SPEAR-CARRIER \?ELS191
+	PRINTR	"""He does his job."""
+?ELS191:	EQUAL?	PRSI,PETES-PATCH \?ELS195
+	PRINTR	"""All I know is that Pete wears it."""
+?ELS195:	EQUAL?	PRSI,CIGAR \?ELS199
+	PRINTR	"""Yeah. That's my cigar."""
+?ELS199:	EQUAL?	PRSI,HEVLIN \?ELS203
+	CALL	TELL-NEVER-KNEW
+	RTRUE	
+?ELS203:	EQUAL?	PRSI,WEASEL,PETE,JOHNNY \?ELS205
+	PRINTR	"""He's worked for me. He's all right."""
+?ELS205:	EQUAL?	PRSI,ME \?ELS209
+	CALL	TELL-YOURE-DIVER
+	RTRUE	
+?ELS209:	EQUAL?	PRSI,MCGINTY \?ELS211
+	CALL	TELL-KNOW-ME
+	RTRUE	
+?ELS211:	EQUAL?	PRSI,PARROT \?ELS213
+	PRINTR	"""It's the queerest bird I've ever seen."""
+?ELS213:	EQUAL?	PRSI,SALVAGER,TRAWLER \FALSE
+	PRINTR	"""She's a nice boat."""
+?CND132:	EQUAL?	WINNER,MCGINTY \FALSE
+	EQUAL?	PRSO,GLOBAL-SELF \?CND227
+	SET	'PRSO,MCGINTY
+?CND227:	EQUAL?	PRSI,GLOBAL-SELF \?CND230
+	SET	'PRSI,MCGINTY
+?CND230:	EQUAL?	PRSA,V?TELL \?ELS237
+	EQUAL?	PRSO,ME /FALSE
+?ELS237:	EQUAL?	PRSA,V?$CALL \?ELS241
+	CALL	TELL-SO-WHAT
+	RSTACK	
+?ELS241:	EQUAL?	PRSA,V?LEAVE,V?DISEMBARK,V?WALK \?ELS243
+	PRINTR	"""I'll leave when I'm ready."""
+?ELS243:	EQUAL?	PRSA,V?SHOW \?ELS247
+	IN?	PRSO,MCGINTY \?ELS247
+	EQUAL?	PRSI,ME \?ELS247
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?EXAMINE,PRSO
+	SET	'WINNER,MCGINTY
+	RETURN	WINNER
+?ELS247:	EQUAL?	PRSA,V?MAYBE,V?NO,V?YES /FALSE
+	EQUAL?	PRSA,V?SSHOW,V?FIND,V?WHAT /FALSE
+	EQUAL?	PRSA,V?ALARM /FALSE
+	PRINTI	"""I'd rather not."""
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	ZERO-ATTENTION,PER
+	GETP	PER,P?CHARACTER
+	GET	GOAL-TABLES,STACK
+	PUT	STACK,ATTENTION,0
+	RTRUE	
+
+
+	.FUNCT	TELL-SO-WHAT
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTR	"""What about him?"""
+?ELS5:	CALL	V-CALL-LOSE
+	RSTACK	
+
+
+	.FUNCT	TELL-TAKE-PASS,STR
+	PRINT	STR
+	PRINTI	" sees the passbook, picks it up, looks at it and then at you."
+	RTRUE	
+
+
+	.FUNCT	TRAITOR-TIME?
+	IN?	ID-CARD,WEASEL \FALSE
+	CALL	QUEUED?,I-TRAITOR-MEETING
+	ZERO?	STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	TELL-IN-MEETING
+	PRINTR	"He's too engrossed in his meeting to hear you."
+
+
+	.FUNCT	MCGINTY-ERRAND
+	MOVE	PLAYER,WHARF-ROAD-2
+	MOVE	MCGINTY,WHARF-ROAD-2
+	SET	'HERE,WHARF-ROAD-2
+	PRINTI	"""I'm closing to run an errand,"" "
+	CALL	DPRINT,MCGINTY
+	PRINTI	" says, ushering you out..."
+	CRLF	
+	CRLF	
+	CALL	V-FIRST-LOOK
+	RSTACK	
+
+
+	.FUNCT	I-MCGINTY,GARG=0,L,DEST,MMG,V=0
+	LOC	MCGINTY >L
+	ZERO?	GARG \?ELS5
+	GET	MOVEMENT-GOALS,MCGINTY-C >MMG
+	IN?	MCGINTY,MCGINTY-HQ \?CND6
+	IN?	PLAYER,MCGINTY-HQ \?CND6
+	GET	MMG,MG-ROOM
+	EQUAL?	STACK,MCGINTY-HQ /?CND6
+	CALL	MCGINTY-ERRAND
+	SET	'V,TRUE-VALUE
+?CND6:	EQUAL?	L,FERRY-LANDING \?CND11
+	SET	'MCGINTY-MEETS-WEASEL,FALSE-VALUE
+?CND11:	CALL	IMOVEMENT,MCGINTY,I-MCGINTY
+	RETURN	V
+?ELS5:	EQUAL?	GARG,G-REACHED \?ELS15
+	EQUAL?	L,MCGINTY-HQ \?ELS20
+	IN?	PLAYER,L \?ELS23
+	CALL	JIGS-UP,STR?406
+	JUMP	?CND21
+?ELS23:	IN?	PLAYER,WHARF-ROAD-2 \?ELS25
+	EQUAL?	LAST-PLAYER-LOC,MCGINTY-HQ \?ELS25
+	CALL	JIGS-UP,STR?407
+	JUMP	?CND21
+?ELS25:	IN?	ID-CARD,MCGINTY \?ELS29
+	MOVE	ID-CARD,ENVELOPE
+	FSET	ID-CARD,TAKEBIT
+	FCLEAR	ENVELOPE,INVISIBLE
+	JUMP	?CND21
+?ELS29:	ZERO?	MCGINTY-KNOWS \?CND21
+	ZERO?	MCGINTY-MEETS-WEASEL /?CND21
+	GET	MOVEMENT-GOALS,MCGINTY-C
+	GET	STACK,MG-ROOM
+	EQUAL?	STACK,SHANTY \?CND21
+	PUT	MOVEMENT-GOALS,MCGINTY-C,MCGINTY-MEETS-WEASEL-TABLE
+	CALL	IMOVEMENT,MCGINTY,I-MCGINTY
+	RFALSE	
+?CND21:	IN?	PLAYER,BACK-ALLEY-2 \FALSE
+	FSET?	WINDOW,OPENBIT \FALSE
+	PRINTI	"The window gets slammed shut."
+	CRLF	
+	FCLEAR	BACK-WINDOW,OPENBIT
+	RTRUE	
+?ELS20:	EQUAL?	L,FERRY-LANDING \?ELS44
+	CALL	QUEUE,I-TRAITOR-MEETING,-1
+	PUT	STACK,0,1
+	IN?	PLAYER,L \?CND45
+	CALL	DPRINT,MCGINTY
+	PRINTI	" wanders in, looking preoccupied."
+	CRLF	
+	SET	'V,TRUE-VALUE
+?CND45:	IN?	WEASEL,L \?CND50
+	CALL	I-TRAITOR-MEETING
+	RETURN	V
+?CND50:	RETURN	V
+?ELS44:	EQUAL?	L,HERE \?ELS54
+	CALL	DPRINT,MCGINTY
+	PRINTI	" wanders in."
+	IN?	PASSBOOK,PLAYER \?ELS59
+	ZERO?	MCGINTY-KNOWS \?ELS59
+	CALL	QUEUED?,I-MCGINTY-FOLLOWS
+	ZERO?	STACK \?ELS59
+	CALL	MCGINTY-WILL-FOLLOW
+	CALL	TELL-EYES-NARROW
+	JUMP	?CND57
+?ELS59:	IN?	PASSBOOK,L \?CND57
+	SET	'MCGINTY-MEETS-WEASEL,TRUE-VALUE
+?CND57:	CRLF	
+	RETURN	2
+?ELS54:	IN?	PASSBOOK,L \FALSE
+	MOVE	PASSBOOK,MCGINTY
+	SET	'MCGINTY-MEETS-WEASEL,TRUE-VALUE
+	RFALSE	
+?ELS15:	EQUAL?	GARG,G-ENROUTE \FALSE
+	IN?	PLAYER,L \?ELS74
+	IN?	PASSBOOK,PLAYER \?ELS74
+	ZERO?	MCGINTY-KNOWS \?ELS74
+	CALL	QUEUED?,I-MCGINTY-FOLLOWS
+	ZERO?	STACK \?ELS74
+	CALL	MCGINTY-WILL-FOLLOW
+	CALL	TELL-EYES-NARROW,FALSE-VALUE
+	CRLF	
+	RTRUE	
+?ELS74:	IN?	PASSBOOK,L \FALSE
+	ZERO?	MCGINTY-KNOWS \FALSE
+	CALL	META-LOC,PLAYER
+	IN?	MCGINTY,STACK \?ELS85
+	CALL	MCGINTY-WILL-FOLLOW
+	MOVE	PASSBOOK,MCGINTY
+	CALL	TELL-TAKE-PASS,STR?408
+	CRLF	
+	RTRUE	
+?ELS85:	SET	'MCGINTY-MEETS-WEASEL,TRUE-VALUE
+	MOVE	PASSBOOK,MCGINTY
+	RFALSE	
+
+
+	.FUNCT	TELL-EYES-NARROW,SPACE=1
+	ZERO?	ALREADY-FOLLOWED \FALSE
+	ZERO?	SPACE /?CND6
+	PRINTI	" "
+?CND6:	PRINTI	"As he looks at you, he does a double take and stares intently at your possessions."
+	RTRUE	
+
+
+	.FUNCT	MCGINTY-WILL-FOLLOW,GT
+	ZERO?	MCGINTY-KNOWS \FALSE
+	GET	GOAL-TABLES,MCGINTY-C >GT
+	PUT	GT,GOAL-ENABLE,FALSE-VALUE
+	PUT	GT,GOAL-F,WRECK-13
+	PUT	GT,ATTENTION,500
+	CALL	INT,I-MCGINTY
+	PUT	STACK,0,0
+	CALL	QUEUE,I-MCGINTY-FOLLOWS,-1
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	I-MCGINTY-FOLLOWS,GT,MCG-LOC
+	LOC	MCGINTY >MCG-LOC
+	GRTR?	PRESENT-TIME,810 \?CND1
+	ZERO?	ALREADY-FOLLOWED \?CND1
+	CALL	INT,I-MCGINTY-FOLLOWS
+	PUT	STACK,0,0
+	GET	GOAL-TABLES,MCGINTY-C >GT
+	PUT	GT,ATTENTION,0
+	PUT	GT,GOAL-ENABLE,TRUE-VALUE
+	SET	'ALREADY-FOLLOWED,TRUE-VALUE
+	CALL	ESTABLISH-GOAL,MCGINTY,MCGINTY-HQ
+	RFALSE	
+?CND1:	GET	GOAL-TABLES,MCGINTY-C
+	PUT	STACK,ATTENTION,5
+	EQUAL?	HERE,OUTFITTERS-HQ \?ELS10
+	EQUAL?	MCG-LOC,WHARF-ROAD-4 \?ELS10
+	CALL	MOVE-PERSON,MCGINTY,OUTFITTERS-HQ
+	RSTACK	
+?ELS10:	EQUAL?	HERE,MCG-LOC,LAST-PLAYER-LOC /FALSE
+	EQUAL?	MCG-LOC,LAST-PLAYER-LOC /FALSE
+	CALL	META-LOC,LAST-PLAYER-LOC
+	EQUAL?	LAST-PLAYER-LOC,STACK \FALSE
+	CALL	MOVE-PERSON,MCGINTY,LAST-PLAYER-LOC
+	RSTACK	
+
+
+	.FUNCT	CIGAR-F
+	EQUAL?	PRSA,V?TAKE \?ELS5
+	CALL	DPRINT,MCGINTY
+	PRINTR	" yanks it back, then tenderly clamps it between his teeth."
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS9
+	CALL	TELL-ALREADY,STR?410
+	RSTACK	
+?ELS9:	EQUAL?	PRSA,V?SMELL \FALSE
+	PRINTR	"The cigar smells like a burning tire."
+
+
+	.FUNCT	JOHNNY-F,RARG=0,TREAS,?TMP1
+	EQUAL?	RARG,M-OBJDESC \?ELS3
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK /?ELS6
+	CALL	INT,I-PENDULUM
+	GET	STACK,C-TICK
+	EQUAL?	STACK,-1 /TRUE
+?ELS6:	CALL	IN-MOTION?,JOHNNY
+	ZERO?	STACK \TRUE
+	EQUAL?	HERE,MM-AFT-DECK,NW-AFT-DECK \?ELS12
+	ZERO?	WEASEL-APPREHENDED /?ELS12
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK \?ELS12
+	CALL	I-JOHNNY,G-REACHED
+	RTRUE	
+?ELS12:	FSET?	JOHNNY,TOUCHBIT \?ELS16
+	CALL	DPRINT,JOHNNY
+	PRINTI	" is here"
+	IN?	SPEAR-CARRIER,HERE \?CND19
+	IN?	MCGINTY,HERE \?ELS24
+	PRINTI	", glaring at "
+	CALL	DPRINT,MCGINTY
+	JUMP	?CND19
+?ELS24:	LESS?	FM-CTR,2 /?THN31
+	GRTR?	FM-CTR,4 \?CND19
+?THN31:	EQUAL?	PRESENT-TIME,704 /?CND19
+	PRINTI	", chatting with the "
+	CALL	DPRINT,SPEAR-CARRIER
+?CND19:	PRINTR	"."
+?ELS16:	CALL	DPRINT,JOHNNY
+	PRINTI	" is here. Red hair sprouts from his head and from beneath his flannel shirt."
+	CRLF	
+	FSET	JOHNNY,TOUCHBIT
+	RTRUE	
+?ELS3:	EQUAL?	RARG,M-CONT \?CND1
+	EQUAL?	PRSA,V?TAKE \?ELS45
+	FSET?	PRSO,TAKEBIT \?ELS45
+	PRINTR	"Johnny glares down at you. ""Get your hands off of that!"""
+?ELS45:	EQUAL?	KNIFE,PRSO,PRSI \FALSE
+	EQUAL?	PRSA,V?ASK-ABOUT,V?FIND,V?EXAMINE /FALSE
+	EQUAL?	PRSA,V?ASK-CONTEXT-ABOUT /FALSE
+	PRINTI	"Johnny pulls it back. ""I'm not gonna let you give this to "
+	CALL	DPRINT,WEASEL
+	PRINTR	"."""
+?CND1:	EQUAL?	JOHNNY,WINNER \?CND60
+	CALL	META-LOC,JOHNNY >?TMP1
+	CALL	META-LOC,PLAYER
+	EQUAL?	?TMP1,STACK /?CND60
+	SET	'P-CONT,FALSE-VALUE
+	CALL	TELL-NOT-HERE-TALK
+	RETURN	2
+?CND60:	FSET	JOHNNY,TOUCHBIT
+	EQUAL?	PRSA,V?FOLLOW \?ELS69
+	EQUAL?	PRSO,JOHNNY /FALSE
+?ELS69:	EQUAL?	PRSA,V?TELL \?ELS73
+	ZERO?	PRSI /FALSE
+?ELS73:	ZERO?	MCGINTY-KNOWS \?THN78
+	ZERO?	JOHNNY-SILENT /?ELS77
+?THN78:	CALL	DPRINT,JOHNNY
+	PRINTI	" looks right through you."
+	CRLF	
+	RETURN	2
+?ELS77:	EQUAL?	PRSA,V?GOODBYE,V?HELLO \?ELS85
+	SET	'QCONTEXT,JOHNNY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Ahoy, matey."""
+?ELS85:	EQUAL?	PRSA,V?BUY \?CND67
+	EQUAL?	PRSO,FERRY-TOKEN \?CND67
+	PRINTI	"""Try "
+	CALL	DPRINT,BANK
+	PRINTR	"."""
+?CND67:	EQUAL?	PRSA,V?$CALL \?ELS97
+	EQUAL?	WINNER,PLAYER /FALSE
+?ELS97:	CALL	GRAB-ATTENTION,JOHNNY
+	ZERO?	STACK /TRUE
+	EQUAL?	PRSA,V?SHOW,V?GIVE \?ELS104
+	EQUAL?	PRSO,CHARTS \?ELS104
+	PRINTR	"""No thanks. I have my own."""
+?ELS104:	EQUAL?	PRSA,V?SHOW \?ELS114
+	EQUAL?	PRSO,NOTE /?THN111
+?ELS114:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS110
+	EQUAL?	PRSI,NOTE \?ELS110
+?THN111:	PRINTR	"""Yeah. I wrote that."""
+?ELS110:	EQUAL?	PRSA,V?GIVE \?ELS120
+	EQUAL?	PRSO,ENVELOPE /?THN123
+	EQUAL?	PRSO,ID-CARD \?ELS120
+?THN123:	IN?	ID-CARD,ENVELOPE /?CND125
+	CALL	TELL-RETURNS,JOHNNY
+?CND125:	CALL	PERFORM,V?SHOW,PRSO,JOHNNY
+	RTRUE	
+?ELS120:	EQUAL?	PRSA,V?SHOW \?ELS129
+	EQUAL?	PRSI,JOHNNY \?ELS129
+	IN?	ID-CARD,ENVELOPE \?ELS134
+	EQUAL?	PRSO,ENVELOPE /?THN137
+	EQUAL?	PRSO,ID-CARD \?ELS134
+?THN137:	PRINTI	"Johnny takes the card and "
+	CALL	DPRINT,ENVELOPE
+	PRINTI	" and studies them. "
+	ZERO?	WEASEL-APPREHENDED /?ELS143
+	CALL	TELL-ALREADY-SHOWN
+	PRINTI	","" he says, handing the "
+	CALL	DPRINT,ENVELOPE
+	PRINTI	" back."
+	JUMP	?CND141
+?ELS143:	ZERO?	CLUMSILY-HANDLED /?ELS148
+	PRINTI	"""You trying to frame "
+	CALL	DPRINT,WEASEL
+	PRINTI	"?"" He returns the "
+	CALL	DPRINT,ENVELOPE
+	PRINTI	"."
+	JUMP	?CND141
+?ELS148:	MOVE	ENVELOPE,JOHNNY
+	PRINTI	"""So,"" he muses, """
+	CALL	DPRINT,WEASEL
+	PRINTI	" is working with "
+	CALL	DPRINT,MCGINTY
+	PRINTI	". I'll take care of him."""
+	SET	'WEASEL-BLOWN,TRUE-VALUE
+	LOC	JOHNNY
+	IN?	WEASEL,STACK \?ELS158
+	CALL	ROUGH-JUSTICE
+	JUMP	?CND141
+?ELS158:	IN?	WEASEL,FERRY /?THN161
+	IN?	WEASEL,GLOBAL-FERRY \?ELS160
+?THN161:	CALL	ESTABLISH-GOAL,JOHNNY,FERRY-LANDING
+	JUMP	?CND141
+?ELS160:	CALL	META-LOC,WEASEL
+	CALL	ESTABLISH-GOAL,JOHNNY,STACK
+?CND141:	CRLF	
+	RTRUE	
+?ELS134:	EQUAL?	PRSO,ENVELOPE \?ELS166
+	ZERO?	WEASEL-BLOWN /?ELS169
+	CALL	TELL-ALREADY-SHOWN
+	JUMP	?CND167
+?ELS169:	PRINTI	"""It's empty. It don't mean nothing"
+	SET	'CLUMSILY-HANDLED,TRUE-VALUE
+?CND167:	PRINTR	"."""
+?ELS166:	EQUAL?	PRSO,ID-CARD \?CND102
+	ZERO?	WEASEL-BLOWN /?ELS181
+	CALL	TELL-ALREADY-SHOWN
+	JUMP	?CND179
+?ELS181:	PRINTI	"""That's "
+	CALL	DPRINT,WEASEL
+	PRINTI	"'s. He'll be glad you found it"
+	SET	'CLUMSILY-HANDLED,TRUE-VALUE
+?CND179:	PRINTR	"."""
+?ELS129:	EQUAL?	PRSA,V?ASK-ABOUT \?CND102
+	EQUAL?	PRSO,JOHNNY \?CND102
+	EQUAL?	PRSI,SHARK,SAMPLE-TREASURE,GLOBAL-TREASURE \?ELS195
+	IN?	MCGINTY,HERE \?ELS198
+	CALL	MCGINTY-AND-TREASURE,GLOBAL-TREASURE
+	RTRUE	
+?ELS198:	CALL	ENABLED?,I-JOHNNY
+	ZERO?	STACK /?THN201
+	ZERO?	SAMPLE-TREASURE \?ELS200
+?THN201:	PRINTI	"Red scowls. ""What "
+	CALL	DPRINT,GLOBAL-TREASURE
+	PRINTR	"?"""
+?ELS200:	LESS?	SM-CTR,2 \?ELS206
+	PRINTR	"""All in good time."""
+?ELS206:	LESS?	TM-CTR,7 /?THN211
+	IN?	WEASEL,HERE /?THN211
+	IN?	PETE,HERE /?THN211
+	IN?	SPEAR-CARRIER,HERE \?ELS210
+?THN211:	PRINTI	"""I told you. I found a "
+	CALL	DPRINT,SAMPLE-TREASURE
+	PRINTR	" while I was cleaning a shark."""
+?ELS210:	EQUAL?	PRSI,SHARK \?ELS216
+	PRINTR	"""I made that up."""
+?ELS216:	PRINTR	"""Hevlin gave it to me."""
+?ELS195:	EQUAL?	PRSI,BOOK \?ELS224
+	LESS?	TM-CTR,7 /FALSE
+	IN?	WEASEL,HERE /FALSE
+	IN?	PETE,HERE /FALSE
+	IN?	SPEAR-CARRIER,HERE /FALSE
+	PRINTR	"""That's the one Hevlin gave you."""
+?ELS224:	EQUAL?	PRSI,PETES-PATCH \?ELS235
+	PRINTR	"""Pete's worn it a long time."""
+?ELS235:	EQUAL?	PRSI,HEVLIN \?ELS239
+	PRINTR	"""He was an old friend of mine."""
+?ELS239:	EQUAL?	PRSI,SPEAR-CARRIER \?ELS243
+	PRINTR	"""You know him as well as I do."""
+?ELS243:	EQUAL?	PRSI,ME \?ELS247
+	CALL	TELL-YOURE-DIVER
+	RTRUE	
+?ELS247:	EQUAL?	PRSI,WEASEL \?ELS249
+	PRINTI	"""The Weasel? "
+	ZERO?	WEASEL-BLOWN /?ELS254
+	PRINTI	"Lower than a sea slug..."""
+	JUMP	?CND252
+?ELS254:	IN?	WEASEL,HERE \?ELS259
+	PRINTI	"He's my pal."""
+	CALL	TELL-FERRY-KLUDGE,STR?412
+	JUMP	?CND252
+?ELS259:	PRINTI	"I wouldn't trust him farther than I could throw a whale! But he's a great one-man crew."""
+?CND252:	CRLF	
+	RTRUE	
+?ELS249:	EQUAL?	PRSI,MCGINTY \?ELS267
+	IN?	MCGINTY,HERE \?ELS270
+	PRINTC	34
+	CALL	DPRINT,MCGINTY
+	PRINTR	"'s one of my favorite people to work for!"""
+?ELS270:	PRINTR	"""That man would sell his mother for a profit!"""
+?ELS267:	EQUAL?	PRSI,PETE \?ELS278
+	IN?	PETE,HERE \?CND279
+	PRINTI	"Johnny leans over and mutters, "
+?CND279:	PRINTR	"""Pete's no genius, but he's dependable. He got a bad name 'cause of what happened, him serving his mates rats for mess. But he'll never make that mistake again!"""
+?ELS278:	EQUAL?	PRSI,JOHNNY \?ELS287
+	CALL	TELL-KNOW-ME
+	RTRUE	
+?ELS287:	EQUAL?	PRSI,PARROT \?ELS289
+	PRINTI	"""It's what makes "
+	CALL	DPRINT,SHANTY
+	PRINTR	" what it is."""
+?ELS289:	EQUAL?	PRSI,SALVAGER,TRAWLER \?ELS293
+	PRINTR	"""It's one of Outfitters' boats."""
+?ELS293:	EQUAL?	PRSI,LINE-HACK \FALSE
+	PRINT	LINE-STR
+	CRLF	
+	RTRUE	
+?CND102:	EQUAL?	WINNER,JOHNNY \FALSE
+	EQUAL?	PRSO,GLOBAL-SELF \?CND307
+	SET	'PRSO,JOHNNY
+?CND307:	EQUAL?	PRSI,GLOBAL-SELF \?CND310
+	SET	'PRSI,JOHNNY
+?CND310:	IN?	MCGINTY,HERE \?CND313
+	EQUAL?	PRSO,SAMPLE-TREASURE,GLOBAL-TREASURE \?ELS318
+	SET	'TREAS,PRSO
+	JUMP	?CND316
+?ELS318:	EQUAL?	PRSI,GLOBAL-TREASURE,SAMPLE-TREASURE \?CND316
+	SET	'TREAS,PRSI
+?CND316:	ZERO?	TREAS /?CND313
+	CALL	MCGINTY-AND-TREASURE,TREAS
+	RTRUE	
+?CND313:	EQUAL?	PRSA,V?TELL \?ELS329
+	EQUAL?	PRSO,ME /FALSE
+?ELS329:	EQUAL?	PRSA,V?$CALL \?ELS333
+	CALL	TELL-SO-WHAT
+	RSTACK	
+?ELS333:	EQUAL?	PRSA,V?SHOW \?ELS335
+	IN?	PRSO,JOHNNY \?ELS335
+	EQUAL?	PRSI,ME \?ELS335
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?EXAMINE,PRSO
+	SET	'WINNER,JOHNNY
+	RETURN	WINNER
+?ELS335:	EQUAL?	PRSA,V?MAYBE,V?NO,V?YES /FALSE
+	EQUAL?	PRSA,V?WHAT,V?LONGITUDE,V?LATITUDE /FALSE
+	EQUAL?	PRSA,V?ALARM,V?SSHOW,V?FIND /FALSE
+	PRINTI	"""I'll do what I want."""
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	MCGINTY-AND-TREASURE,TRE
+	CALL	MCGINTY-WILL-FOLLOW
+	PRINTI	"Johnny looks at "
+	CALL	DPRINT,MCGINTY
+	PRINTI	" and then at you. ""What "
+	CALL	DPRINT,TRE
+	PRINTR	"?"""
+
+
+	.FUNCT	TELL-RETURNS,PER
+	CALL	START-SENTENCE,PER
+	PRINTI	" looks at the "
+	CALL	DPRINT,PRSO
+	PRINTI	" and hands it back to you. "
+	RTRUE	
+
+
+	.FUNCT	TELL-ALREADY-SHOWN
+	CALL	TELL-YOU-ALREADY,STR?413,TRUE-VALUE,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	TELL-YOU-ALREADY,STR,QUOTE?=0,DONE=1
+	ZERO?	QUOTE? /?CND1
+	PRINTI	""""
+?CND1:	PRINTI	"You already "
+	PRINT	STR
+	ZERO?	DONE /FALSE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-JOHNNY,GARG=0,L,JMG,V,?TMP1
+	LOC	JOHNNY >L
+	ZERO?	GARG \?ELS5
+	ZERO?	WEASEL-BLOWN \FALSE
+	GRTR?	FM-CTR,1 \?ELS15
+	LESS?	FM-CTR,5 /?THN12
+?ELS15:	GRTR?	TM-CTR,0 \?CND6
+	LESS?	TM-CTR,8 \?CND6
+?THN12:	CALL	QUEUE,I-JOHNNY,1
+	PUT	STACK,0,1
+	RFALSE	
+?CND6:	GET	MOVEMENT-GOALS,JOHNNY-C >JMG
+	GET	JMG,MG-ROOM
+	EQUAL?	STACK,MM-CAPT-CABIN \?CND18
+	EQUAL?	SHIP-CHOSEN,TRAWLER \?CND18
+	PUT	JMG,MG-ROOM,NW-CAPT-CABIN
+?CND18:	CALL	IMOVEMENT,JOHNNY,I-JOHNNY
+	RSTACK	
+?ELS5:	EQUAL?	GARG,G-REACHED \?ELS24
+	ZERO?	WEASEL-APPREHENDED /?ELS27
+	EQUAL?	L,MM-LOUNGE,NW-LOUNGE \?ELS31
+	LOC	WEASEL
+	IN?	PLAYER,STACK \?CND32
+	CALL	TELL-JOHNNY-DRAGS
+?CND32:	MOVE	WEASEL,L
+	EQUAL?	SHIP-CHOSEN,TRAWLER \?ELS37
+	CALL	ESTABLISH-GOAL,JOHNNY,NW-AFT-DECK
+	JUMP	?CND35
+?ELS37:	CALL	ESTABLISH-GOAL,JOHNNY,MM-AFT-DECK
+?CND35:	IN?	PLAYER,L \TRUE
+	PRINTI	"Johnny drags "
+	CALL	DPRINT,WEASEL
+	PRINTR	" in, ties him up, and throws him to the floor."
+?ELS31:	EQUAL?	L,MM-AFT-DECK,NW-AFT-DECK \?CND25
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK \?CND25
+	IN?	PLAYER,L \?CND25
+	CALL	QUEUE,I-PENDULUM,-1
+	PUT	STACK,0,1
+	FCLEAR	LINE-HACK,INVISIBLE
+	MOVE	LINE-HACK,L
+	PRINTI	"Johnny approaches, throws a weighted "
+	CALL	DPRINT,SAFETY-LINE
+	PRINTI	" over the side, and says, "
+	PRINT	LINE-STR
+	CRLF	
+	RTRUE	
+?ELS27:	ZERO?	WEASEL-BLOWN /?ELS55
+	CALL	META-LOC,WEASEL
+	EQUAL?	L,STACK \?ELS59
+	CALL	ROUGH-JUSTICE
+	JUMP	?CND25
+?ELS59:	IN?	WEASEL,GLOBAL-FERRY /FALSE
+	IN?	WEASEL,FERRY /FALSE
+	IN?	WEASEL,LOCAL-GLOBALS /FALSE
+	GET	GOAL-TABLES,JOHNNY-C
+	GET	STACK,GOAL-F >?TMP1
+	CALL	META-LOC,WEASEL
+	EQUAL?	?TMP1,STACK /?CND25
+	CALL	META-LOC,WEASEL
+	CALL	ESTABLISH-GOAL,JOHNNY,STACK
+	RFALSE	
+?ELS55:	EQUAL?	L,OUTFITTERS-HQ \?CND25
+	EQUAL?	MEETINGS-COMPLETED,3 \?CND25
+	CALL	QUEUE,I-EQUIP,-1
+	PUT	STACK,0,1
+?CND25:	EQUAL?	L,HERE \FALSE
+	CALL	DPRINT,JOHNNY
+	PRINTI	" appears, striding like a proud lion."
+	CRLF	
+	CALL	QUEUED?,I-THIRD-MEETING
+	ZERO?	STACK /?CND82
+	CALL	I-THIRD-MEETING
+?CND82:	RETURN	2
+?ELS24:	EQUAL?	GARG,G-ENROUTE \FALSE
+	ZERO?	WEASEL-BLOWN /FALSE
+	ZERO?	WEASEL-APPREHENDED /?ELS99
+	LOC	WEASEL
+	EQUAL?	STACK,MM-LOUNGE,NW-LOUNGE /FALSE
+	IN?	WEASEL,L \?CND106
+	SET	'V,TRUE-VALUE
+?CND106:	MOVE	WEASEL,L
+	ZERO?	V \?THN114
+	IN?	PLAYER,L \FALSE
+?THN114:	CALL	TELL-JOHNNY-DRAGS
+	RSTACK	
+?ELS99:	CALL	META-LOC,WEASEL
+	EQUAL?	L,STACK \?ELS122
+	CALL	ROUGH-JUSTICE
+	RSTACK	
+?ELS122:	IN?	WEASEL,GLOBAL-FERRY /FALSE
+	IN?	WEASEL,FERRY /FALSE
+	IN?	WEASEL,LOCAL-GLOBALS /FALSE
+	GET	GOAL-TABLES,JOHNNY-C
+	GET	STACK,GOAL-F >?TMP1
+	CALL	META-LOC,WEASEL
+	EQUAL?	?TMP1,STACK /FALSE
+	CALL	META-LOC,WEASEL
+	CALL	ESTABLISH-GOAL,JOHNNY,STACK
+	RFALSE	
+
+
+	.FUNCT	TELL-JOHNNY-DRAGS
+	PRINTI	"Johnny drags "
+	CALL	DPRINT,WEASEL
+	PRINTR	" along with him."
+
+
+	.FUNCT	ROUGH-JUSTICE,PRINT?=0
+	LOC	JOHNNY
+	IN?	PLAYER,STACK \?CND1
+	SET	'PRINT?,TRUE-VALUE
+	CRLF	
+	PRINTI	"Johnny grabs "
+	CALL	DPRINT,WEASEL
+	PRINTI	" and his knife. ""All right, slime. Thought you and "
+	CALL	DPRINT,MCGINTY
+	PRINTI	" could rip us off, huh?"" Before he turns to lead "
+	CALL	DPRINT,WEASEL
+	PRINTI	" away, "
+?CND1:	ZERO?	AT-SEA /?ELS10
+	SET	'WEASEL-APPREHENDED,TRUE-VALUE
+	MOVE	KNIFE,JOHNNY
+	LOC	LOUNGE-CHAIR
+	CALL	ESTABLISH-GOAL,JOHNNY,STACK
+	RSTACK	
+?ELS10:	ZERO?	PRINT? /?ELS16
+	PRINTI	"Johnny says, ""We'd have to find someone else to crew. I better call it off."" You head for "
+	CALL	DPRINT,SHANTY
+	PRINTI	", wishing you had more to do today than drink."
+	CRLF	
+	JUMP	?CND14
+?ELS16:	CALL	TELL-COMES-UP,JOHNNY
+	PRINTI	"""I've taken care of "
+	CALL	DPRINT,WEASEL
+	PRINTI	", but we can't go out without a crew. Maybe next time."""
+	CRLF	
+?CND14:	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	TELL-COMES-UP,WHO
+	CALL	START-SENTENCE,WHO
+	PRINTI	" comes up to you and says, "
+	RTRUE	
+
+
+	.FUNCT	PETE-F,RARG=0,?TMP1
+	EQUAL?	RARG,M-OBJDESC \?ELS3
+	CALL	IN-MOTION?,PETE
+	ZERO?	STACK \TRUE
+	LOC	PETE
+	EQUAL?	STACK,MM-GALLEY,NW-GALLEY \?ELS8
+	CALL	DPRINT,PETE
+	PRINTR	" is watching over his stew."
+?ELS8:	GRTR?	FM-CTR,1 \?ELS16
+	LESS?	FM-CTR,5 /?THN13
+?ELS16:	EQUAL?	PRESENT-TIME,704 \?ELS12
+?THN13:	CALL	DPRINT,PETE
+	PRINTR	" is sitting here, listening intently."
+?ELS12:	FSET?	PETE,TOUCHBIT \?ELS20
+	CALL	DPRINT,PETE
+	PRINTR	" fiddles with his eyepatch, shifting his weight from foot to foot."
+?ELS20:	PRINTI	"A man wearing an eyepatch, black turtleneck, and jeans is standing about. He is known as "
+	CALL	DPRINT,PETE
+	PRINTI	"."
+	CRLF	
+	FSET	PETE,TOUCHBIT
+	RTRUE	
+?ELS3:	EQUAL?	RARG,M-CONT \?CND1
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	PRSO,TAKEBIT \FALSE
+	PRINTR	"Pete pulls it back. ""That's mine!"""
+?CND1:	EQUAL?	WINNER,PETE \?CND38
+	CALL	META-LOC,PETE >?TMP1
+	CALL	META-LOC,PLAYER
+	EQUAL?	?TMP1,STACK /?CND38
+	SET	'P-CONT,FALSE-VALUE
+	CALL	TELL-NOT-HERE-TALK
+	RETURN	2
+?CND38:	FSET	PETE,TOUCHBIT
+	EQUAL?	PRSA,V?FOLLOW \?ELS47
+	EQUAL?	PRSO,PETE /FALSE
+?ELS47:	EQUAL?	PRSA,V?HELLO \?ELS51
+	SET	'QCONTEXT,PETE
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Hi."""
+?ELS51:	EQUAL?	PRSA,V?GOODBYE \?ELS55
+	SET	'QCONTEXT,PETE
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Bye."""
+?ELS55:	EQUAL?	PRSA,V?SMELL \?ELS59
+	PRINTR	"Phew! Better stay upwind of him."
+?ELS59:	EQUAL?	PRSA,V?BUY \?CND45
+	EQUAL?	PRSO,FERRY-TOKEN \?CND45
+	PRINTR	"Pete checks his pockets, then holds out his empty hands."
+?CND45:	EQUAL?	PRSA,V?$CALL \?ELS71
+	EQUAL?	WINNER,PLAYER /FALSE
+?ELS71:	CALL	GRAB-ATTENTION,PETE
+	ZERO?	STACK /TRUE
+	EQUAL?	PRSA,V?GIVE \?ELS78
+	EQUAL?	PRSO,ENVELOPE /?THN81
+	EQUAL?	PRSO,ID-CARD \?ELS78
+?THN81:	IN?	ID-CARD,ENVELOPE /?CND83
+	CALL	TELL-RETURNS,PETE
+?CND83:	CALL	PERFORM,V?SHOW,PRSO,PETE
+	RTRUE	
+?ELS78:	EQUAL?	PRSA,V?SHOW \?ELS87
+	EQUAL?	PRSI,PETE \?ELS87
+	IN?	ID-CARD,ENVELOPE \?ELS92
+	EQUAL?	PRSO,ENVELOPE /?THN95
+	EQUAL?	PRSO,ID-CARD \?ELS92
+?THN95:	PRINTI	"Pete takes the "
+	CALL	DPRINT,ENVELOPE
+	PRINTI	", studies it, then returns it. ""Looks like "
+	CALL	DPRINT,WEASEL
+	PRINTR	"'s card to me,"" he says."
+?ELS92:	EQUAL?	PRSO,ENVELOPE \?ELS100
+	PRINTR	"""Looks like it's empty."""
+?ELS100:	EQUAL?	PRSO,ID-CARD \?CND76
+	PRINTI	"""Looks like "
+	CALL	DPRINT,WEASEL
+	PRINTR	"'s card. Better return it."""
+?ELS87:	EQUAL?	PRSA,V?ASK-ABOUT \?CND76
+	EQUAL?	PRSO,PETE \?CND76
+	EQUAL?	PRSI,GLOBAL-TREASURE \?ELS113
+	IN?	MCGINTY,HERE \?CND114
+	CALL	MCGINTY-WILL-FOLLOW
+?CND114:	LESS?	FM-CTR,3 \?ELS119
+	PRINTR	"""I think that's what Johnny wants to talk about."""
+?ELS119:	GETP	HERE,P?LINE
+	LESS?	STACK,TRAWLER-LINE-C \?ELS123
+	PRINTR	"""Looks like Johnny found some."""
+?ELS123:	PRINTR	"""That's what we're lookin' for."""
+?ELS113:	EQUAL?	PRSI,SAMPLE-TREASURE \?ELS131
+	IN?	SAMPLE-TREASURE,JOHNNY \?ELS131
+	IN?	MCGINTY,HERE \?CND134
+	CALL	MCGINTY-WILL-FOLLOW
+?CND134:	PRINTR	"""You saw it. You should know more about it than me."""
+?ELS131:	EQUAL?	PRSI,PETES-PATCH \?ELS140
+	PRINTR	"""That's my eyepatch. It covers my bad eye."""
+?ELS140:	EQUAL?	PRSI,STOVE \?ELS144
+	PRINTI	"""There's nothing special about the "
+	CALL	DPRINT,STOVE
+	PRINTR	"."""
+?ELS144:	EQUAL?	PRSI,SPEAR-CARRIER \?ELS148
+	PRINTR	"""He's a good guy."""
+?ELS148:	EQUAL?	PRSI,JOHNNY \?ELS152
+	PRINTR	"Pete thinks for a second. ""Yeah, Red's a friend of mine."""
+?ELS152:	EQUAL?	PRSI,MCGINTY \?ELS156
+	PRINTR	"""I done work for him, but I don't like him."""
+?ELS156:	EQUAL?	PRSI,HEVLIN \?ELS160
+	CALL	TELL-NEVER-KNEW
+	RTRUE	
+?ELS160:	EQUAL?	PRSI,WEASEL \?ELS162
+	PRINTI	"Pete frowns for a moment, then "
+	IN?	WEASEL,HERE \?ELS167
+	PRINTI	"leans over and whispers"
+	JUMP	?CND165
+?ELS167:	PRINTI	"says"
+?CND165:	PRINTR	", ""The Weasel's a friend, but I don't trust him. He's awful quick with that knife."""
+?ELS162:	EQUAL?	PRSI,PETE \?ELS177
+	CALL	TELL-KNOW-ME
+	RTRUE	
+?ELS177:	EQUAL?	PRSI,ME \?ELS179
+	CALL	TELL-YOURE-DIVER
+	RTRUE	
+?ELS179:	EQUAL?	PRSI,PARROT \?ELS181
+	PRINTR	"""He's weird. He talks funny."""
+?ELS181:	EQUAL?	PRSI,FOOD \?ELS185
+	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C \?ELS185
+	PRINTR	"""It's a beef stew. There's nothing wrong with it."""
+?ELS185:	EQUAL?	PRSI,TRAWLER,SALVAGER \FALSE
+	PRINTR	"""She's a boat."""
+?CND76:	EQUAL?	WINNER,PETE \FALSE
+	EQUAL?	PRSO,GLOBAL-SELF \?CND201
+	SET	'PRSO,PETE
+?CND201:	EQUAL?	PRSI,GLOBAL-SELF \?CND204
+	SET	'PRSI,PETE
+?CND204:	EQUAL?	PRSA,V?TELL \?ELS211
+	EQUAL?	PRSO,ME /FALSE
+?ELS211:	EQUAL?	PRSA,V?$CALL \?ELS215
+	CALL	TELL-SO-WHAT
+	RSTACK	
+?ELS215:	EQUAL?	PRSA,V?SHOW \?ELS217
+	IN?	PRSO,PETE \?ELS217
+	EQUAL?	PRSI,ME \?ELS217
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?EXAMINE,PRSO
+	SET	'WINNER,PETE
+	RETURN	WINNER
+?ELS217:	EQUAL?	PRSA,V?MAYBE,V?NO,V?YES /FALSE
+	EQUAL?	PRSA,V?WHAT,V?LONGITUDE,V?LATITUDE /FALSE
+	EQUAL?	PRSA,V?ALARM,V?SSHOW,V?FIND /FALSE
+	PRINTI	"""I don't think I can do that."""
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	I-PETE,GARG=0,L,PMG,?TMP1
+	LOC	PETE >L
+	ZERO?	GARG \?ELS5
+	GRTR?	FM-CTR,1 \?CND6
+	LESS?	FM-CTR,5 \?CND6
+	CALL	QUEUE,I-PETE,1
+	PUT	STACK,0,1
+	RFALSE	
+?CND6:	GET	MOVEMENT-GOALS,PETE-C >PMG
+	GET	PMG,MG-ROOM
+	EQUAL?	STACK,MM-GALLEY \?CND11
+	EQUAL?	SHIP-CHOSEN,TRAWLER \?CND11
+	PUT	PMG,MG-ROOM,NW-GALLEY
+?CND11:	CALL	IMOVEMENT,PETE,I-PETE
+	RSTACK	
+?ELS5:	EQUAL?	GARG,G-REACHED \FALSE
+	EQUAL?	L,MM-GALLEY,NW-GALLEY \?CND18
+	GETP	L,P?LINE >?TMP1
+	CALL	META-LOC,PLAYER
+	GETP	STACK,P?LINE
+	EQUAL?	?TMP1,STACK \?CND18
+	FSET	FOOD,NDESCBIT
+	MOVE	FOOD,STOVE
+?CND18:	EQUAL?	HERE,L \FALSE
+	CALL	DPRINT,PETE
+	PRINTI	" arrives, quickly taking in the situation."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	PETES-PATCH-F
+	EQUAL?	PRSA,V?DISEMBARK,V?ASK-FOR,V?LOOK-UNDER /?THN10
+	EQUAL?	PRSA,V?MOVE /?THN10
+	EQUAL?	PRSA,V?TAKE \?ELS5
+	ZERO?	PRSI /?THN10
+	EQUAL?	PRSI,PETE \?ELS5
+?THN10:	PRINTR	"Mind your manners."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's a standard black eyepatch."
+
+
+	.FUNCT	WEASEL-F,RARG=0,?TMP1
+	EQUAL?	RARG,M-OBJDESC \?ELS3
+	IN?	ENVELOPE,PLAYER \?ELS6
+	CALL	WEASEL-BEATS-YOU
+	ZERO?	STACK \TRUE
+?ELS6:	ZERO?	WEASEL-APPREHENDED /?ELS10
+	EQUAL?	HERE,MM-LOUNGE,NW-LOUNGE \?ELS14
+	CALL	TELL-TIED
+	JUMP	?CND12
+?ELS14:	PRINTI	"The Weasel is firmly in Johnny's grasp."
+?CND12:	CRLF	
+	RTRUE	
+?ELS10:	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK /?ELS20
+	CALL	INT,I-PENDULUM
+	GET	STACK,C-TICK
+	EQUAL?	STACK,-1 /TRUE
+?ELS20:	EQUAL?	HERE,UPSTAIRS-HALLWAY \?ELS24
+	CALL	QUEUED?,I-WEASEL-TO-BEDROOM
+	ZERO?	STACK /?ELS24
+	CALL	INT,I-WEASEL-TO-BEDROOM
+	PUT	STACK,0,0
+	PRINTI	"The Weasel sees you come up"
+	CALL	TELL-WEASEL-EXCUSE
+	RTRUE	
+?ELS24:	GRTR?	FM-CTR,1 \?ELS34
+	LESS?	FM-CTR,5 /?THN31
+?ELS34:	EQUAL?	PRESENT-TIME,704 \?ELS30
+	EQUAL?	HERE,SHANTY \?ELS30
+?THN31:	PRINTR	"The Weasel is sitting here, eyes darting."
+?ELS30:	CALL	IN-MOTION?,WEASEL
+	ZERO?	STACK \TRUE
+	CALL	TRAITOR-TIME?
+	ZERO?	STACK \TRUE
+	FSET?	WEASEL,TOUCHBIT \?ELS44
+	LOC	WEASEL
+	EQUAL?	STACK,MM-AFT-DECK,NW-AFT-DECK \?ELS47
+	ZERO?	AT-SEA /?ELS47
+	ZERO?	WEASEL-APPREHENDED \?ELS47
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK \?ELS47
+	CALL	QUEUE,I-PENDULUM,-1
+	PUT	STACK,0,1
+	CALL	TELL-WEASEL-TOSSES
+	RTRUE	
+?ELS47:	PRINTR	"The Weasel is picking his teeth with a nasty knife, looking around furtively."
+?ELS44:	PRINTI	"A short, wiry guy known only as """
+	CALL	DPRINT,WEASEL
+	PRINTI	""" is over in a corner, picking his teeth with a knife."
+	CRLF	
+	FSET	WEASEL,TOUCHBIT
+	RTRUE	
+?ELS3:	EQUAL?	RARG,M-CONT \?CND1
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	PRSO,TAKEBIT \FALSE
+	PRINTR	"The Weasel glares at you. ""I ain't gonna give that to ya!"""
+?CND1:	EQUAL?	WINNER,WEASEL \?CND69
+	CALL	META-LOC,WEASEL >?TMP1
+	CALL	META-LOC,PLAYER
+	EQUAL?	?TMP1,STACK /?ELS74
+	SET	'P-CONT,FALSE-VALUE
+	CALL	TELL-NOT-HERE-TALK
+	RETURN	2
+?ELS74:	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?CND69
+	CALL	TELL-IN-MEETING
+	RETURN	2
+?CND69:	FSET	WEASEL,TOUCHBIT
+	EQUAL?	PRSA,V?FOLLOW \?ELS83
+	EQUAL?	PRSO,WEASEL /FALSE
+?ELS83:	EQUAL?	PRSA,V?$CALL \?ELS87
+	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?ELS87
+	CALL	TELL-IN-MEETING
+	RTRUE	
+?ELS87:	EQUAL?	PRSA,V?UNTIE \?ELS91
+	ZERO?	WEASEL-APPREHENDED /?ELS91
+	EQUAL?	HERE,MM-LOUNGE,NW-LOUNGE \?ELS91
+	CALL	JIGS-UP,STR?417
+	JUMP	?CND81
+?ELS91:	EQUAL?	PRSA,V?SEARCH \?ELS95
+	ZERO?	WEASEL-APPREHENDED /?ELS98
+	IN?	PASSBOOK,WEASEL \?ELS102
+	MOVE	PASSBOOK,PLAYER
+	PRINTR	"You take back your passbook."
+?ELS102:	PRINTR	"Despite his writhing, you search him fruitlessly."
+?ELS98:	ZERO?	WEASEL-PISSED /?ELS110
+	CALL	JIGS-UP,STR?418
+	RTRUE	
+?ELS110:	SET	'WEASEL-PISSED,TRUE-VALUE
+	PRINTR	"The Weasel shrinks back and says, ""Hey, don't you trust me? I don't gotta take this from you!"""
+?ELS95:	ZERO?	WEASEL-APPREHENDED /?ELS117
+	EQUAL?	PRSA,V?EXAMINE \?ELS121
+	CALL	TELL-TIED
+	JUMP	?CND119
+?ELS121:	EQUAL?	PRSA,V?TELL,V?ASK-ABOUT \?ELS123
+	EQUAL?	PRSI,WEASEL \?ELS123
+	EQUAL?	PRSO,WEASEL \FALSE
+?ELS123:	IN?	WEASEL,HERE \FALSE
+	EQUAL?	PRSA,V?FIND /FALSE
+	PRINTI	"The Weasel just glares at you."
+?CND119:	CRLF	
+	EQUAL?	PRSA,V?ASK-ABOUT,V?TELL \?CND134
+	EQUAL?	PRSO,WEASEL \?CND134
+	SET	'QCONTEXT,WEASEL
+	SET	'QCONTEXT-ROOM,HERE
+?CND134:	RETURN	2
+?ELS117:	EQUAL?	PRSA,V?HELLO \?ELS142
+	SET	'QCONTEXT,WEASEL
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Yeah. Hi."""
+?ELS142:	EQUAL?	PRSA,V?GOODBYE \?ELS146
+	SET	'QCONTEXT,WEASEL
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Yeah. Bye."""
+?ELS146:	EQUAL?	PRSA,V?ASK-FOR \?ELS154
+	EQUAL?	PRSO,WEASEL /?THN151
+?ELS154:	EQUAL?	PRSA,V?TAKE \?ELS150
+	EQUAL?	PRSI,WEASEL \?ELS150
+?THN151:	EQUAL?	KNIFE,PRSI,PRSO /FALSE
+	PRINTR	"""If I got it, I ain't gonna give it to ya."""
+?ELS150:	EQUAL?	PRSA,V?BUY \?CND81
+	EQUAL?	PRSO,FERRY-TOKEN \?CND81
+	PRINTR	"""I might need it. Try the bank."""
+?CND81:	EQUAL?	PRSA,V?$CALL \?ELS173
+	EQUAL?	WINNER,PLAYER /FALSE
+?ELS173:	CALL	GRAB-ATTENTION,WEASEL
+	ZERO?	STACK /TRUE
+	EQUAL?	PRSA,V?GIVE \?ELS180
+	EQUAL?	PRSO,ENVELOPE /?THN183
+	EQUAL?	PRSO,ID-CARD \?ELS180
+?THN183:	CALL	PERFORM,V?SHOW,PRSO,WEASEL
+	RTRUE	
+?ELS180:	EQUAL?	PRSA,V?SHOW \?ELS186
+	EQUAL?	PRSI,WEASEL \?ELS186
+	IN?	ID-CARD,ENVELOPE \?ELS191
+	EQUAL?	PRSO,ENVELOPE /?THN194
+	EQUAL?	PRSO,ID-CARD \?ELS191
+?THN194:	MOVE	ENVELOPE,WEASEL
+	PRINTI	"The Weasel takes the "
+	CALL	DPRINT,ENVELOPE
+	PRINTR	". ""Thanks. I was wonderin' what happened to my card."""
+?ELS191:	EQUAL?	PRSO,ENVELOPE \?ELS199
+	PRINTR	"The Weasel shoves it back at you. ""I dunno nothin' about this. Could be old."""
+?ELS199:	EQUAL?	PRSO,ID-CARD \?CND178
+	MOVE	ID-CARD,WEASEL
+	PRINTR	"The Weasel takes the card. ""Thanks. I'd be in trouble without this."""
+?ELS186:	EQUAL?	PRSA,V?ASK-ABOUT \?CND178
+	EQUAL?	PRSO,WEASEL \?CND178
+	CALL	TRAITOR-TIME?
+	ZERO?	STACK /?ELS212
+	CALL	TELL-IN-MEETING
+	RETURN	2
+?ELS212:	EQUAL?	PRSI,GLOBAL-TREASURE \?ELS216
+	IN?	MCGINTY,HERE \?ELS219
+	CALL	MCGINTY-WILL-FOLLOW
+	PRINTI	"The Weasel glances at "
+	CALL	DPRINT,MCGINTY
+	PRINTI	" and says, ""What "
+	CALL	DPRINT,GLOBAL-TREASURE
+	PRINTR	"?"""
+?ELS219:	LESS?	FM-CTR,3 \?ELS223
+	PRINTR	"""That could be what Johnny wants to talk about."""
+?ELS223:	PRINTR	"""I guess that's what we're lookin' for."""
+?ELS216:	EQUAL?	PRSI,KNIFE \?ELS231
+	PRINTR	"""Yeah. That's my knife."""
+?ELS231:	EQUAL?	PRSI,HEVLIN \?ELS235
+	CALL	TELL-NEVER-KNEW
+	RTRUE	
+?ELS235:	EQUAL?	PRSI,PETES-PATCH \?ELS237
+	PRINTR	"""Pete's worn it as long as I've known him."""
+?ELS237:	EQUAL?	PRSI,TRAWLER,SALVAGER \?ELS241
+	PRINTR	"""It's a decent boat."""
+?ELS241:	EQUAL?	PRSI,SPEAR-CARRIER \?ELS245
+	PRINTR	"""I guess he's okay."""
+?ELS245:	EQUAL?	PRSI,JOHNNY \?ELS249
+	PRINTR	"""Yeah. Red's okay."""
+?ELS249:	EQUAL?	PRSI,ME \?ELS253
+	CALL	TELL-YOURE-DIVER
+	RTRUE	
+?ELS253:	EQUAL?	PRSI,PETE \?ELS255
+	PRINTR	"""Pete's a good guy. Just don't eat his chow."""
+?ELS255:	EQUAL?	PRSI,MCGINTY \?ELS259
+	CALL	WEASEL-SHUFFLE
+	PRINTR	"""He's all right. I work with him now and then."""
+?ELS259:	EQUAL?	PRSI,WEASEL \?ELS263
+	CALL	TELL-KNOW-ME
+	RTRUE	
+?ELS263:	EQUAL?	PRSI,PARROT \?ELS265
+	PRINTR	"""She is one strange bird."""
+?ELS265:	EQUAL?	PRSI,GLOBAL-FERRY,FERRY \?ELS269
+	CALL	WEASEL-SHUFFLE
+	PRINTR	"""I use it to go home on the mainland."""
+?ELS269:	EQUAL?	PRSI,LINE-HACK \FALSE
+	PRINT	LINE-STR
+	CRLF	
+	RTRUE	
+?CND178:	EQUAL?	WINNER,WEASEL \FALSE
+	EQUAL?	PRSO,GLOBAL-SELF \?CND283
+	SET	'PRSO,WEASEL
+?CND283:	EQUAL?	PRSI,GLOBAL-SELF \?CND286
+	SET	'PRSI,WEASEL
+?CND286:	EQUAL?	PRSA,V?TELL \?ELS293
+	EQUAL?	PRSO,ME /FALSE
+?ELS293:	EQUAL?	PRSA,V?$CALL \?ELS297
+	CALL	TELL-SO-WHAT
+	RSTACK	
+?ELS297:	EQUAL?	PRSA,V?SHOW \?ELS299
+	IN?	PRSO,WEASEL \?ELS299
+	EQUAL?	PRSO,PASSBOOK,ENVELOPE /?ELS299
+	EQUAL?	PRSI,ME \?ELS299
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?EXAMINE,PRSO
+	SET	'WINNER,WEASEL
+	RETURN	WINNER
+?ELS299:	EQUAL?	FM-CTR,2 \?ELS303
+	EQUAL?	PRSA,V?SIT-ON,V?SIT \?ELS303
+	PRINTR	"""Wait a second."""
+?ELS303:	EQUAL?	PRSA,V?MAYBE,V?NO,V?YES /FALSE
+	EQUAL?	PRSA,V?WHAT,V?LONGITUDE,V?LATITUDE /FALSE
+	EQUAL?	PRSA,V?ALARM,V?SSHOW,V?FIND /FALSE
+	PRINTI	"""I don't wanna do that."""
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	WEASEL-SHUFFLE
+	GRTR?	PRESENT-TIME,840 \FALSE
+	IN?	ENVELOPE,LOCAL-GLOBALS /FALSE
+	PRINTI	"The Weasel's eyes dart as he shuffles his feet. "
+	RTRUE	
+
+
+	.FUNCT	TELL-TIED
+	PRINTI	"The Weasel is tied up and squirming."
+	RTRUE	
+
+
+	.FUNCT	I-WEASEL,GARG=0,L,VAL=0,GT
+	LOC	WEASEL >L
+	ZERO?	GARG \?ELS5
+	GRTR?	FM-CTR,1 \?CND6
+	LESS?	FM-CTR,5 \?CND6
+	CALL	QUEUE,I-JOHNNY,1
+	PUT	STACK,0,1
+	RFALSE	
+?CND6:	CALL	IMOVEMENT,WEASEL,I-WEASEL
+	RSTACK	
+?ELS5:	EQUAL?	GARG,G-REACHED \?ELS12
+	CALL	META-LOC,PLAYER
+	EQUAL?	L,STACK \?ELS15
+	IN?	ENVELOPE,PLAYER \?ELS15
+	CALL	WEASEL-BEATS-YOU
+	ZERO?	STACK \TRUE
+?ELS15:	EQUAL?	L,BANK \?ELS19
+	IN?	PASSBOOK,WEASEL \?ELS19
+	SET	'PASSBOOK-BALANCE,0
+	SET	'STUPID-PROBLEM-STRING,STR?291
+	JUMP	?CND13
+?ELS19:	EQUAL?	L,UPSTAIRS-HALLWAY \?ELS23
+	IN?	PASSBOOK,UPSTAIRS-HALLWAY \?ELS26
+	GRTR?	PASSBOOK-BALANCE,99 \?ELS26
+	IN?	PLAYER,UPSTAIRS-HALLWAY /?ELS26
+	MOVE	PASSBOOK,WEASEL
+	PUT	MOVEMENT-GOALS,WEASEL-C,WEASEL-RETIRES-TABLE
+	CALL	IMOVEMENT,WEASEL,I-WEASEL
+	JUMP	?CND13
+?ELS26:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,BEDROOM \?ELS30
+	FSET?	BEDROOM-DOOR,OPENBIT \?ELS33
+	MOVE	WEASEL,BEDROOM
+	GRTR?	PRESENT-TIME,540 \?ELS36
+	PRINTI	"The Weasel comes in, and fear flashes across his face. ""Don't forget to meet Johnny later,"" he says."
+	CRLF	
+	JUMP	?CND34
+?ELS36:	PRINTI	"You hear something at the door and "
+	EQUAL?	PRSA,V?OPEN \?THN46
+	EQUAL?	PRSO,BEDROOM-DOOR /?CND43
+?THN46:	PRINTI	"turn to "
+?CND43:	PRINTI	"see "
+	CALL	DPRINT,WEASEL
+	PRINTI	" walk in. Fear flashes across his face, but only for an instant. He says, ""Oh, hi. I was just wonderin' if you was comin' to the meeting. Looks like we found the real thing this time."""
+	CRLF	
+?CND34:	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+	JUMP	?CND31
+?ELS33:	CALL	QUEUE,I-WEASEL-TO-BEDROOM,2
+	PUT	STACK,0,1
+	PRINTI	"You hear a knock at the door."
+	CRLF	
+	SET	'P-IT-OBJECT,BEDROOM-DOOR
+?CND31:	SET	'VAL,M-FATAL
+	JUMP	?CND13
+?ELS30:	EQUAL?	HERE,UPSTAIRS-HALLWAY \?ELS57
+	PRINTI	"The Weasel gets to the top of the stairs, sees you,"
+	CALL	TELL-WEASEL-EXCUSE
+	SET	'VAL,M-FATAL
+	JUMP	?CND13
+?ELS57:	FSET?	BEDROOM-DOOR,OPENBIT \?ELS64
+	CALL	WEASEL-ALONE-IN-BEDROOM
+	JUMP	?CND13
+?ELS64:	CALL	QUEUE,I-WEASEL-TO-BEDROOM,2
+	PUT	STACK,0,1
+	JUMP	?CND13
+?ELS23:	EQUAL?	L,HERE \?CND13
+	PRINTI	"The Weasel approaches, glancing around furtively."
+	CRLF	
+	SET	'VAL,M-FATAL
+?CND13:	CALL	WEASEL-CHECK,ENVELOPE,L
+	CALL	WEASEL-CHECK,ID-CARD,L
+	RETURN	VAL
+?ELS12:	EQUAL?	GARG,G-ENROUTE \FALSE
+	EQUAL?	HERE,UPSTAIRS-HALLWAY \?CND76
+	ZERO?	BEDROOM-MESSAGE /?CND76
+	SET	'BEDROOM-DOOR-LOCKED,FALSE-VALUE
+?CND76:	IN?	PASSBOOK,L \?CND81
+	GRTR?	PASSBOOK-BALANCE,99 \?CND81
+	CALL	META-LOC,PLAYER
+	IN?	WEASEL,STACK /?CND81
+	MOVE	PASSBOOK,WEASEL
+	GET	GOAL-TABLES,WEASEL-C >GT
+	GET	GT,GOAL-F
+	EQUAL?	STACK,FERRY-LANDING \?CND86
+	CALL	ESTABLISH-GOAL,WEASEL,BACK-ALLEY-5
+?CND86:	GETP	L,P?LINE
+	LESS?	STACK,TRAWLER-LINE-C \?CND81
+	PUT	MOVEMENT-GOALS,WEASEL-C,WEASEL-RETIRES-TABLE
+	CALL	IMOVEMENT,WEASEL,I-WEASEL
+?CND81:	IN?	ENVELOPE,PLAYER \?ELS94
+	CALL	META-LOC,PLAYER
+	EQUAL?	L,STACK \?ELS94
+	CALL	WEASEL-BEATS-YOU
+	ZERO?	STACK \TRUE
+?ELS94:	CALL	WEASEL-CHECK,ENVELOPE,L
+	CALL	WEASEL-CHECK,ID-CARD,L
+	RSTACK	
+
+
+	.FUNCT	TELL-WEASEL-PICKUP,STR
+	PRINTI	"The Weasel picks up "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	TELL-WEASEL-EXCUSE
+	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+	PRINTI	" and says, "
+	GRTR?	PRESENT-TIME,540 \?ELS7
+	PRINTR	"""Umm, well, better not forget to meet with Johnny."""
+?ELS7:	PRINTI	"""Oh. I was just checkin' to see if you're goin' to the meeting at "
+	CALL	DPRINT,SHANTY
+	PRINTR	"."" He looks slightly disappointed."
+
+
+	.FUNCT	WEASEL-CHECK,OBJ,L
+	LOC	OBJ
+	EQUAL?	STACK,ENVELOPE,UNDER-BUNK /?ELS9
+	CALL	META-LOC,OBJ
+	EQUAL?	STACK,L \?ELS9
+	LOC	OBJ
+	FSET?	STACK,PERSON \?THN6
+?ELS9:	CALL	REALLY-HERE?,OBJ,L
+	ZERO?	STACK /FALSE
+?THN6:	MOVE	OBJ,WEASEL
+	CALL	META-LOC,PLAYER
+	EQUAL?	L,STACK \FALSE
+	EQUAL?	L,ID-CARD \?ELS19
+	CALL	TELL-WEASEL-PICKUP,STR?419
+	RSTACK	
+?ELS19:	CALL	TELL-WEASEL-PICKUP,STR?420
+	RSTACK	
+
+
+	.FUNCT	REALLY-HERE?,OBJ,L,CTR=0
+?PRG1:	GRTR?	CTR,44 /FALSE
+	GET	SHARED-OBJECT-TABLE,CTR
+	EQUAL?	STACK,OBJ \?CND3
+	ADD	CTR,1
+	GET	SHARED-OBJECT-TABLE,STACK
+	EQUAL?	STACK,L \?CND3
+	ADD	CTR,2
+	GET	SHARED-OBJECT-TABLE,STACK
+	EQUAL?	STACK,UNDER-BUNK /?CND3
+	PUT	SHARED-OBJECT-TABLE,CTR,0
+	ADD	CTR,1
+	PUT	SHARED-OBJECT-TABLE,STACK,0
+	ADD	CTR,2
+	PUT	SHARED-OBJECT-TABLE,STACK,0
+	RTRUE	
+?CND3:	ADD	CTR,3 >CTR
+	JUMP	?PRG1
+
+
+	.FUNCT	I-WEASEL-TO-BEDROOM
+	ZERO?	BEDROOM-DOOR-LOCKED /?ELS5
+	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+	RFALSE	
+?ELS5:	CALL	META-LOC,PLAYER
+	EQUAL?	STACK,BEDROOM \?ELS13
+	MOVE	WEASEL,BEDROOM
+	PRINTI	"The door opens and "
+	CALL	DPRINT,WEASEL
+	PRINTI	" walks in. He sees you and says, ""Oh. Hi. I just wanted to make sure you "
+	GRTR?	PRESENT-TIME,540 \?ELS18
+	PRINTI	"remembered to meet Johnny later."""
+	JUMP	?CND16
+?ELS18:	PRINTI	"knew about the meetin' at "
+	CALL	DPRINT,SHANTY
+	PRINTI	"."
+	FSET?	NOTE,TOUCHBIT \?ELS27
+	PRINTI	" You got Johnny's note, right?"""
+	JUMP	?CND16
+?ELS27:	PRINTI	""" He points to the note on the floor. ""You better read this note."""
+?CND16:	CRLF	
+	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+	RSTACK	
+?ELS13:	CALL	WEASEL-ALONE-IN-BEDROOM
+	RFALSE	
+
+
+	.FUNCT	WEASEL-ALONE-IN-BEDROOM,WGT
+	GET	GOAL-TABLES,WEASEL-C >WGT
+	MOVE	WEASEL,BEDROOM
+	PUT	WGT,ATTENTION,5
+	FSET	BUREAU,OPENBIT
+	CALL	META-LOC,PASSBOOK
+	EQUAL?	STACK,BEDROOM \?ELS3
+	GRTR?	PASSBOOK-BALANCE,99 \?ELS3
+	MOVE	PASSBOOK,WEASEL
+	PUT	MOVEMENT-GOALS,WEASEL-C,WEASEL-RETIRES-TABLE
+	CALL	IMOVEMENT,WEASEL,I-WEASEL
+	JUMP	?CND1
+?ELS3:	CALL	ESTABLISH-GOAL,WEASEL,SHANTY
+?CND1:	PUT	WGT,GOAL-ENABLE,FALSE-VALUE
+	SET	'BEDROOM-MESSAGE,STR?421
+	RETURN	BEDROOM-MESSAGE
+
+
+	.FUNCT	WEASEL-BEATS-YOU
+	ZERO?	WEASEL-APPREHENDED \FALSE
+	CALL	TELL-COMES-UP,WEASEL
+	CALL	JIGS-UP,STR?422
+	RSTACK	
+
+
+	.FUNCT	KNIFE-F
+	EQUAL?	PRSA,V?TAKE /?THN6
+	EQUAL?	PRSA,V?ASK-FOR \?ELS5
+	EQUAL?	PRSO,WEASEL \?ELS5
+?THN6:	IN?	KNIFE,WEASEL \FALSE
+	PRINTR	"The Weasel pulls it away. ""Don't mess with my knife,"" he warns, ""or I'll give it to ya in a way ya won't much like."""
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"This knife "
+	IN?	KNIFE,WEASEL \?ELS23
+	PRINTI	"is"
+	JUMP	?CND21
+?ELS23:	PRINTI	"was"
+?CND21:	PRINTI	" "
+	CALL	DPRINT,WEASEL
+	PRINTR	"'s, and it's razor sharp."
+
+
+	.FUNCT	WATCH-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \?ELS5
+	PRINTI	"Your trusty old wind-up diver's watch is waterproof to 350 fathoms. It currently shows "
+	CALL	WATCH-TIME
+	PRINTI	" a.m. (The AM/PM indicator never did work.)"
+	ZERO?	WATCH-WOUND \?CND10
+	PRINTI	" The sweep hand isn't moving on it."
+?CND10:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LISTEN \?ELS16
+	ZERO?	WATCH-WOUND /?ELS21
+	PRINTR	"It's ticking."
+?ELS21:	PRINTI	"The "
+	CALL	DPRINT,WATCH
+	PRINTR	" makes no sound. And it's not battery-operated."
+?ELS16:	EQUAL?	PRSA,V?WIND \?ELS30
+	EQUAL?	PRSO,WATCH \?ELS30
+	SET	'WATCH-WOUND,TRUE-VALUE
+	CALL	QUEUE,I-UNWOUND,1500
+	PUT	STACK,0,1
+	PRINTR	"Okay. You've wound the watch."
+?ELS30:	EQUAL?	PRSA,V?SHAKE \?ELS36
+	PRINTR	"Shaken. It's not self-winding, but it is shock-proof."
+?ELS36:	EQUAL?	PRSA,V?TURN \FALSE
+	ZERO?	PRSI \?ELS45
+	PRINTR	"If you want to set the watch, specify the time to which you want it set."
+?ELS45:	EQUAL?	PRSI,INTNUM \FALSE
+	GRTR?	SET-HR,23 /?THN53
+	GRTR?	SET-MIN,59 \?ELS52
+?THN53:	PRINTR	"Try setting it to a more reasonable time."
+?ELS52:	GRTR?	SET-HR,11 \?CND50
+	SUB	SET-HR,12 >SET-HR
+?CND50:	SET	'WATCH-SCORE,SET-HR
+	SET	'WATCH-MOVES,SET-MIN
+	SET	'SET-MIN,60
+	CALL	TELL-NOW,WATCH,STR?424,FALSE-VALUE
+	CALL	WATCH-TIME
+	PRINTR	"."
+
+
+	.FUNCT	WATCH-TIME,HR
+	ZERO?	WATCH-SCORE \?ELS3
+	SET	'HR,12
+	JUMP	?CND1
+?ELS3:	SET	'HR,WATCH-SCORE
+?CND1:	PRINTN	HR
+	PRINTI	":"
+	LESS?	WATCH-MOVES,10 \?CND8
+	PRINTI	"0"
+?CND8:	PRINTN	WATCH-MOVES
+	RTRUE	
+
+
+	.FUNCT	DELIVERY-BOY-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC \?ELS5
+	CALL	IN-MOTION?,DELIVERY-BOY
+	ZERO?	STACK \TRUE
+	PRINTI	"The "
+	CALL	DPRINT,DELIVERY-BOY
+	PRINTR	" is here."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS16
+	PRINTI	"The "
+	CALL	DPRINT,DELIVERY-BOY
+	PRINTI	" is young. He's pushing a cart which is "
+	ZERO?	DELIVERY-MADE /?ELS21
+	PRINTI	"currently empty"
+	JUMP	?CND19
+?ELS21:	PRINTI	"loaded with stuff"
+?CND19:	PRINTR	"."
+?ELS16:	EQUAL?	DELIVERY-BOY,WINNER /?THN33
+	EQUAL?	PRSA,V?GOODBYE,V?HELLO /?THN33
+	EQUAL?	PRSA,V?TELL \FALSE
+	EQUAL?	PRSO,DELIVERY-BOY \FALSE
+?THN33:	SET	'QCONTEXT,DELIVERY-BOY
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"""I can't stop now. I'm working!"""
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	I-DELIVERY-BOY,GARG=0,L,DMG,OBJ,DEST,?TMP1
+	LOC	DELIVERY-BOY >L
+	ZERO?	GARG \?ELS5
+	GET	MOVEMENT-GOALS,DELIVERY-BOY-C >DMG
+	LESS?	PRESENT-TIME,485 \?ELS8
+	JUMP	?CND6
+?ELS8:	ZERO?	AMT-OWED \FALSE
+	ZERO?	JOHNNY-MADE-DEAL /FALSE
+	GET	DMG,MG-ROOM
+	EQUAL?	STACK,MM-LOCKER \?CND6
+	MOVE	DELIVERY-BOY,OUTFITTERS-HQ
+	EQUAL?	SHIP-CHOSEN,TRAWLER \?CND6
+	PUT	DMG,MG-ROOM,NW-LOCKER
+?CND6:	CALL	IMOVEMENT,DELIVERY-BOY,I-DELIVERY-BOY
+	RSTACK	
+?ELS5:	EQUAL?	GARG,G-REACHED \?ELS19
+	EQUAL?	L,OUTFITTERS-HQ \?CND20
+	MOVE	DELIVERY-BOY,LOCAL-GLOBALS
+?CND20:	EQUAL?	L,MM-LOCKER,NW-LOCKER \?ELS27
+?PRG28:	SUB	DT-PTR,2 >DT-PTR
+	LESS?	DT-PTR,0 \?CND30
+	JUMP	?REP29
+?CND30:	GET	DELIVERY-TABLE,DT-PTR >OBJ
+	MOVE	OBJ,L
+	EQUAL?	OBJ,COMPRESSOR /?CND33
+	FSET	OBJ,TAKEBIT
+?CND33:	FCLEAR	OBJ,TRYTAKEBIT
+	FCLEAR	OBJ,NDESCBIT
+	JUMP	?PRG28
+?REP29:	SET	'DELIVERY-MADE,TRUE-VALUE
+	CALL	ESTABLISH-GOAL,DELIVERY-BOY,OUTFITTERS-HQ
+	EQUAL?	L,HERE \FALSE
+	PRINTI	"The "
+	CALL	DPRINT,DELIVERY-BOY
+	PRINTI	" arrives with a cartful of stuff which he unloads."
+	CRLF	
+	RETURN	2
+?ELS27:	EQUAL?	L,HERE \FALSE
+	PRINTI	"The "
+	CALL	DPRINT,DELIVERY-BOY
+	PRINTI	" walks in."
+	CRLF	
+	RETURN	2
+?ELS19:	EQUAL?	GARG,G-ENROUTE \FALSE
+	EQUAL?	L,MM-GALLEY,NW-GALLEY \FALSE
+	ZERO?	WATER-DELIVERED \FALSE
+	SET	'WATER-DELIVERED,TRUE-VALUE
+	GET	GOAL-TABLES,DELIVERY-BOY-C
+	PUT	STACK,ATTENTION,2
+	GETP	L,P?LINE >?TMP1
+	CALL	META-LOC,WINNER
+	GETP	STACK,P?LINE
+	EQUAL?	?TMP1,STACK \?CND60
+	MOVE	DRINKING-WATER,L
+	FSET	DRINKING-WATER,NDESCBIT
+?CND60:	IN?	PLAYER,L \FALSE
+	PRINTR	"The delivery boy stops to drop off some stuff."
+
+
+	.FUNCT	SPEAR-CARRIER-F,CHANGE,COST
+	EQUAL?	PRSA,V?HELLO \?ELS3
+	SET	'QCONTEXT,SPEAR-CARRIER
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""Hi there! What can I do for you?"""
+?ELS3:	EQUAL?	PRSA,V?GOODBYE \?ELS7
+	SET	'QCONTEXT,SPEAR-CARRIER
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTR	"""So long. See you around."""
+?ELS7:	EQUAL?	PRSA,V?ALARM /FALSE
+	EQUAL?	PRSA,V?TIME /?THN14
+	EQUAL?	PRSA,V?WHAT \?ELS13
+	EQUAL?	PRSO,GLOBAL-TIME \?ELS13
+?THN14:	CALL	PERFORM,V?ASK-ABOUT,SPEAR-CARRIER,GLOBAL-TIME
+	RTRUE	
+?ELS13:	EQUAL?	WINNER,SPEAR-CARRIER \?ELS19
+	EQUAL?	PRSO,GLOBAL-SELF \?CND20
+	SET	'PRSO,SPEAR-CARRIER
+?CND20:	EQUAL?	PRSI,GLOBAL-SELF \?CND23
+	SET	'PRSI,SPEAR-CARRIER
+?CND23:	EQUAL?	PRSA,V?FIND \?ELS28
+	EQUAL?	PRSO,GLOBAL-BANK \?ELS28
+	EQUAL?	HERE,BANK \?ELS33
+	PRINTR	"""This is the bank!"""
+?ELS33:	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,SPEAR-CARRIER,GLOBAL-BANK
+	SET	'WINNER,SPEAR-CARRIER
+	RTRUE	
+?ELS28:	EQUAL?	PRSA,V?$CALL \?ELS39
+	CALL	TELL-SO-WHAT
+	RTRUE	
+?ELS39:	EQUAL?	PRSA,V?WHAT,V?SSHOW,V?SGIVE /FALSE
+	EQUAL?	PRSA,V?NO,V?YES,V?FIND /FALSE
+	EQUAL?	PRSA,V?MAYBE /FALSE
+	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS45
+	EQUAL?	PRSI,GLOBAL-TIME /FALSE
+?ELS45:	EQUAL?	PRSA,V?GIVE \?ELS49
+	EQUAL?	PRSI,ME \?ELS49
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-FOR,SPEAR-CARRIER,PRSO
+	SET	'WINNER,SPEAR-CARRIER
+	RTRUE	
+?ELS49:	EQUAL?	PRSA,V?TELL \?ELS53
+	EQUAL?	PRSO,ME \?ELS53
+	ZERO?	PRSI /FALSE
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,SPEAR-CARRIER,PRSI
+	SET	'WINNER,SPEAR-CARRIER
+	RTRUE	
+?ELS53:	EQUAL?	PRSA,V?HELLO \?ELS63
+	PRINTR	"""Hi there! What can I do for you?"""
+?ELS63:	EQUAL?	PRSA,V?GOODBYE \?ELS67
+	PRINTR	"""So long. See you around."""
+?ELS67:	EQUAL?	PRSA,V?WITHDRAW \?ELS71
+	EQUAL?	HERE,BANK /FALSE
+?ELS71:	EQUAL?	PRSA,V?SHOW \?ELS75
+	EQUAL?	PRSI,ME \?ELS75
+	PRINTI	"""Examine it "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."""
+?ELS75:	PRINTR	"""I can't do that while I'm on the job."""
+?ELS19:	EQUAL?	PRSA,V?TELL \?ELS85
+	ZERO?	PRSI /FALSE
+?ELS85:	EQUAL?	PRSA,V?BUY \?ELS89
+	EQUAL?	PRSO,FERRY-TOKEN \?ELS89
+	CALL	NO-TOKENS,HERE
+	RTRUE	
+?ELS89:	EQUAL?	PRSA,V?SEARCH \?ELS93
+	CALL	TELL-YOU-CANT,STR?426,FALSE-VALUE
+	IN?	BAR,HERE \?ELS96
+	CALL	DPRINT,BAR
+	JUMP	?CND94
+?ELS96:	IN?	WINDOW,HERE \?ELS100
+	CALL	DPRINT,WINDOW
+	JUMP	?CND94
+?ELS100:	CALL	DPRINT,GLOBAL-SURFACE
+?CND94:	PRINTR	"."
+?ELS93:	EQUAL?	PRSA,V?ASK-ABOUT \?CND1
+	EQUAL?	PRSO,SPEAR-CARRIER \?CND1
+	SET	'QCONTEXT,SPEAR-CARRIER
+	SET	'QCONTEXT-ROOM,HERE
+	EQUAL?	PRSI,SPEAR-CARRIER \?ELS115
+	PRINTR	"""Just another of the people who keep this island running."""
+?ELS115:	EQUAL?	PRSI,ME \?ELS119
+	CALL	TELL-YOURE-DIVER
+	RTRUE	
+?ELS119:	FSET?	PRSI,PERSON \?ELS121
+	PRINTI	"""You know "
+	CALL	DPRINT,PRSI
+	PRINTR	"."""
+?ELS121:	EQUAL?	PRSI,GLOBAL-BANK \?ELS125
+	EQUAL?	HERE,BANK \?ELS128
+	PRINTI	"""It's the "
+	CALL	DPRINT,BANK
+	PRINTR	", a savings bank which has served Hardscrabble Island for over forty years."""
+?ELS128:	PRINTI	"""It's at the eastern end of the "
+	CALL	DPRINT,SHORE-ROAD-1
+	PRINTR	"."""
+?ELS125:	EQUAL?	PRSI,GLOBAL-MONEY \?ELS136
+	PRINTR	"""That's what makes the world go around. Right?"""
+?ELS136:	EQUAL?	PRSI,RIDICULOUS-MONEY-KLUDGE \?ELS140
+	PRINTR	"He smiles. ""Money is our most important product."""
+?ELS140:	EQUAL?	PRSI,PARROT \?ELS144
+	EQUAL?	HERE,SHANTY \?ELS147
+	PRINTR	"""Isn't it great? I bought it from a passing sailor some years back. I never did figure out why it has a wooden leg and an eyepatch."""
+?ELS147:	PRINTI	"""The one in "
+	CALL	DPRINT,SHANTY
+	PRINTR	"? I can't imagine the island without it!"""
+?ELS144:	EQUAL?	HERE,RED-BOAR-INN \?ELS155
+	EQUAL?	PRSI,HEVLIN \?CND113
+	PRINTR	"""He came in here last night looking for you."""
+?ELS155:	EQUAL?	HERE,OUTFITTERS-HQ \?CND1
+	EQUAL?	PRSI,DELIVERY-BOY \?ELS165
+	PRINTI	""""
+	CALL	IN-MOTION?,DELIVERY-BOY
+	ZERO?	STACK \?CND168
+	PRINTI	"He's probably in the back room setting up the next delivery. "
+?CND168:	PRINTR	"He's very conscientious, you know."""
+?ELS165:	EQUAL?	PRSI,PRICE-LIST \?ELS176
+	PRINTR	"""It's up to date."""
+?ELS176:	EQUAL?	PRSI,SALVAGER,TRAWLER \?ELS180
+	PRINTI	"""She's a great boat. You can read all about her in the "
+	CALL	DPRINT,PRICE-LIST
+	PRINTR	"."""
+?ELS180:	GETP	PRSI,P?NORTH
+	ZERO?	STACK /?CND113
+	IN?	PRSI,ROOMS /?CND113
+	EQUAL?	PRSI,DRINK-OBJECT,FOOD /?CND113
+	PRINTI	"""It's a great "
+	CALL	DPRINT,PRSI
+	PRINTR	"."""
+?CND113:	
+?CND1:	EQUAL?	PRSA,V?WALK \?ELS193
+	PRINTR	"He indicates that he'd rather stay where he is."
+?ELS193:	EQUAL?	HERE,BANK \?ELS197
+	EQUAL?	PRSI,SPEAR-CARRIER \?ELS197
+	EQUAL?	PRSA,V?GIVE \?ELS204
+	PRINTI	"The teller examines the "
+	EQUAL?	PRSO,PASSBOOK \?ELS211
+	PRINTI	"passbook, says"
+	CALL	TELL-OUR-PASSBOOK
+	PRINTR	" If you want to withdraw some money, say so,"" and hands it back to you."
+?ELS211:	CALL	DPRINT,PRSO
+	PRINTR	", thinks for a moment, and then hands it back to you, pointing out that you have no safe deposit box."
+?ELS204:	EQUAL?	PRSA,V?SHOW \FALSE
+	EQUAL?	PRSO,PASSBOOK \FALSE
+	PRINTI	"The teller says,"
+	CALL	TELL-OUR-PASSBOOK
+	PRINTR	""""
+?ELS197:	EQUAL?	HERE,RED-BOAR-INN \?ELS229
+	EQUAL?	PRSA,V?ASK-FOR \?ELS234
+	EQUAL?	PRSI,GLOBAL-ROOM \?ELS239
+	PRINTR	"""We're full. Your current room will have to do."""
+?ELS239:	EQUAL?	PRSI,PSEUDO-OBJECT \FALSE
+	PRINTR	"""Nope. No messages."""
+?ELS234:	EQUAL?	PRSA,V?GIVE \FALSE
+	EQUAL?	PRSO,KEY \FALSE
+	PRINTR	"The desk clerk hands you back the key. ""You've paid for another week."""
+?ELS229:	EQUAL?	HERE,BANK \?ELS253
+	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	EQUAL?	PRSI,INTNUM,RIDICULOUS-MONEY-KLUDGE \FALSE
+	GRTR?	PASSBOOK-BALANCE,0 \?ELS265
+	PRINTR	"""If you want to make a withdrawal, be specific."""
+?ELS265:	PRINTR	"""I'm afraid that the loan officer is out today."""
+?ELS253:	EQUAL?	HERE,OUTFITTERS-HQ \?ELS273
+	EQUAL?	PRSA,V?ASK-FOR \?ELS273
+	EQUAL?	PRSO,SPEAR-CARRIER \?ELS273
+	GETP	PRSO,P?NORTH >COST
+	GRTR?	COST,0 \?ELS280
+	PRINTR	"""You want it, you buy it."""
+?ELS280:	LESS?	COST,0 \FALSE
+	CALL	TELL-YOU-ALREADY,STR?427,TRUE-VALUE
+	RTRUE	
+?ELS273:	EQUAL?	HERE,OUTFITTERS-HQ \?ELS286
+	EQUAL?	PRSI,SPEAR-CARRIER \?ELS286
+	EQUAL?	PRSA,V?GIVE \FALSE
+	EQUAL?	PRSO,INTNUM \?ELS296
+	ZERO?	P-DOLLAR-FLAG /?ELS296
+	FSET?	WET-SUIT,WORNBIT /?THN302
+	FSET?	DEEP-SUIT,WORNBIT \?ELS301
+?THN302:	CALL	TELL-YOU-CANT,STR?78
+	RTRUE	
+?ELS301:	GRTR?	P-AMOUNT,POCKET-CHANGE \?ELS305
+	PRINTR	"You haven't got that much."
+?ELS305:	ZERO?	AMT-OWED /?ELS309
+	LESS?	P-AMOUNT,AMT-OWED \?ELS313
+	SUB	AMT-OWED,P-AMOUNT >AMT-OWED
+	SUB	POCKET-CHANGE,P-AMOUNT >POCKET-CHANGE
+	PRINTI	"The salesman takes the money and says, ""You still owe me $"
+	PRINTN	AMT-OWED
+	PRINTR	"."""
+?ELS313:	GRTR?	P-AMOUNT,AMT-OWED \?CND318
+	SUB	P-AMOUNT,AMT-OWED >CHANGE
+	PRINTI	"The salesman takes the money, counts it, and hands you back $"
+	PRINTN	CHANGE
+	PRINTI	". "
+?CND318:	SUB	POCKET-CHANGE,AMT-OWED >POCKET-CHANGE
+	SET	'AMT-OWED,0
+	PRINTR	"""Thank you very much. Let me know what else you want."""
+?ELS309:	PRINTR	"The salesman hands it back to you. ""If you want to buy anything, please be specific."""
+?ELS296:	EQUAL?	PRSO,GLOBAL-MONEY \?ELS330
+	SET	'P-AMOUNT,AMT-OWED
+	SET	'P-DOLLAR-FLAG,TRUE-VALUE
+	CALL	PERFORM,V?GIVE,INTNUM,PRSI
+	SET	'P-IT-OBJECT,GLOBAL-MONEY
+	RTRUE	
+?ELS330:	PRINTI	"The salesman looks at "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	", then returns it."
+?ELS286:	EQUAL?	SHANTY,HERE \FALSE
+	EQUAL?	PRSA,V?ASK-FOR \?ELS347
+	EQUAL?	PRSI,DRINKING-WATER /?THN344
+?ELS347:	EQUAL?	PRSA,V?BUY \?ELS343
+	EQUAL?	PRSO,DRINKING-WATER \?ELS343
+?THN344:	IN?	DRINKING-WATER,TABLE-OBJECT \?ELS354
+	PRINTR	"""One glass to a customer."""
+?ELS354:	MOVE	DRINKING-WATER,TABLE-OBJECT
+	FCLEAR	DRINKING-WATER,NDESCBIT
+	PUTP	DRINKING-WATER,P?SDESC,STR?428
+	PRINTR	"The bartender puts a glass of water on the table."
+?ELS343:	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK-FOR \FALSE
+	EQUAL?	PRSI,FOOD \?ELS367
+	PRINTR	"""It's beef stew today. You can buy it for $5."""
+?ELS367:	EQUAL?	PRSI,DRINK-OBJECT \FALSE
+	PRINTR	"""Grog is $2."""
+
+
+	.FUNCT	TELL-OUR-PASSBOOK
+	PRINTI	" ""Yes. That's one of our passbooks."
+	RTRUE	
+
+
+	.FUNCT	TELL-NOT-HERE-TALK
+	CALL	TELL-YOU-CANT,STR?429
+	RSTACK	
+
+
+	.FUNCT	TELL-YOURE-DIVER
+	PRINTR	"""You're a diver!"""
+
+
+	.FUNCT	TELL-KNOW-ME
+	PRINTR	"""You know me."""
+
+
+	.FUNCT	HEVLIN-F,OWINNER
+	EQUAL?	PRSA,V?ASK-FOR,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /FALSE
+	EQUAL?	PRSA,V?ASK-CONTEXT-FOR /FALSE
+	EQUAL?	PRSA,V?TELL \?ELS5
+	EQUAL?	PRSO,HEVLIN,ME \FALSE
+?ELS5:	EQUAL?	PRSA,V?WHAT \?ELS11
+	SET	'OWINNER,WINNER
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,OWINNER,HEVLIN
+	SET	'WINNER,OWINNER
+	RTRUE	
+?ELS11:	EQUAL?	PRSA,V?FIND \?ELS13
+	EQUAL?	WINNER,JOHNNY /?THN19
+	EQUAL?	WINNER,SPEAR-CARRIER \?ELS18
+	EQUAL?	HERE,RED-BOAR-INN \?ELS18
+?THN19:	PRINTR	"""He was killed last night."""
+?ELS18:	EQUAL?	WINNER,PLAYER \?ELS26
+	CALL	TELL-HES-DEAD
+	RSTACK	
+?ELS26:	CALL	TELL-NEVER-KNEW
+	RSTACK	
+?ELS13:	EQUAL?	PRSA,V?PRAY,V?HELP,V?FIND \?ELS30
+	CALL	TELL-HES-DEAD
+	RETURN	2
+?ELS30:	CALL	GLOBAL-NOT-HERE-PRINT,HEVLIN
+	RSTACK	
+
+
+	.FUNCT	TELL-HES-DEAD
+	PRINTR	"Hevlin is dead."
+
+	.ENDI
diff --git a/people.zil b/people.zil
new file mode 100644
index 0000000..c36e330
--- /dev/null
+++ b/people.zil
@@ -0,0 +1,2313 @@
+"PEOPLE for TOA #2
+ Copyright 1984, Infocom Inc."
+
+<OBJECT MCGINTY
+	(IN MCGINTY-HQ)
+	(DESC "McGinty")
+	(SYNONYM MCGINTY)
+	(ADJECTIVE MR MISTER)
+	(DESCFCN MCGINTY-F)
+	(CHARACTER 1)
+	(FLAGS PERSON VICBIT)
+	(TEXT
+"He is wiry, hyper, and devoid of ethics. A fat cigar seems to be his
+only companion, since he's the type of man who would sell his own mother if
+given the opportunity.")
+	(CONTFCN MCGINTY-F)
+	(ACTION MCGINTY-F)>
+
+<ROUTINE TELL-NEVER-KNEW ()
+	 <TELL "\"Never heard of him.\"" CR>>
+
+<ROUTINE MCGINTY-F ("OPTIONAL" (RARG <>) "AUX" OBJ (PFLAG 0))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<COND (,MCGINTY-KNOWS T)
+		      (<AND <IN? ,PASSBOOK ,PLAYER>
+			    <NOT <QUEUED? I-MCGINTY-FOLLOWS>>>
+		       <SET PFLAG 1>
+		       <MCGINTY-WILL-FOLLOW>)
+		      (<IN? ,PASSBOOK ,HERE>
+		       <MCGINTY-WILL-FOLLOW>
+		       <MOVE ,PASSBOOK ,MCGINTY>
+		       <SET PFLAG 2>)>
+		<COND (<OR <IN-MOTION? ,MCGINTY>
+			   <AND <QUEUED? I-MCGINTY-FOLLOWS>
+				<VERB? WALK FOLLOW>
+				<NOT <IN? ,MCGINTY <LOC ,PLAYER>>>>
+			   <TRAITOR-TIME?>>
+		       <RTRUE>)
+		      (<FSET? ,MCGINTY ,TOUCHBIT>
+		       <TELL D ,MCGINTY " is here, ">
+		       <COND (<==? ,HERE ,OUTFITTERS-HQ>
+			      <TELL "talking with the salesman">)
+			     (T <TELL "smoking his cigar">)>
+		       <TELL ".">)
+		      (T
+		       <TELL D ,MCGINTY ", a small, nervous man, is ">
+		       <COND (<IN? ,MCGINTY ,MCGINTY-HQ>
+			      <TELL "sitting behind a desk">)
+			     (T <TELL "standing nearby">)>
+		       <TELL
+". His lips clamp around a cigar too large for his face.">
+		       <FSET ,MCGINTY ,TOUCHBIT>)>
+		<COND (<==? .PFLAG 1> <TELL-EYES-NARROW>)
+		      (<==? .PFLAG 2> <TELL-TAKE-PASS " He">)>
+		<CRLF>
+		<RTRUE>)
+	       (<==? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE>
+			    <FSET? ,PRSO ,TAKEBIT>>
+		       <TELL
+D ,MCGINTY " pulls it back. \"I'm not gonna give that to you!\""CR>
+		       <RTRUE>)
+		      (T <RFALSE>)>)>
+	 <COND (<==? ,WINNER ,MCGINTY>
+	        <COND (<NOT <IN? ,MCGINTY <META-LOC ,PLAYER>>>
+		       <SETG P-CONT <>>
+		       <TELL-NOT-HERE-TALK>
+		       <RFATAL>)
+		      (<TRAITOR-TIME?>
+		       <TELL-IN-MEETING>
+		       <RFATAL>)>)>
+	 <FSET ,MCGINTY ,TOUCHBIT>
+	 <COND (<AND <VERB? FOLLOW>
+		     <PRSO? ,MCGINTY>>
+		<RFALSE>)
+	       (<AND <VERB? $CALL>
+		     <TRAITOR-TIME?>>
+		<TELL-IN-MEETING>
+		<RTRUE>)
+	       (<VERB? HELLO>
+		<SETG QCONTEXT ,MCGINTY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Howdy.\"" CR>
+		<RTRUE>)
+	       (<VERB? GOODBYE>
+		<SETG QCONTEXT ,MCGINTY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"So long.\"" CR>
+		<RTRUE>)
+	       (<OR <AND <VERB? TAKE>
+		         <PRSI? ,MCGINTY>>
+		    <AND <VERB? ASK-FOR>
+			 <PRSO? ,MCGINTY>>>
+		<COND (<PRSO? ,MCGINTY> <SET OBJ ,PRSI>)
+		      (T <SET OBJ ,PRSO>)>
+		<COND (<IN? .OBJ ,MCGINTY>
+		       <TELL "\"I'm not gonna give that to you.\"" CR>)
+		      (T <TELL "\"I don't have that.\"" CR>)>
+		<RTRUE>)
+	       (<VERB? BUY>
+		<COND (<PRSO? ,FERRY-TOKEN>
+		       <TELL
+ "\"I don't have one. Try the bank.\"" CR>
+		       <RTRUE>)>)>
+	 <COND (<AND <VERB? $CALL> <==? ,WINNER ,PLAYER>> <RFALSE>)
+	       (<NOT <GRAB-ATTENTION ,MCGINTY>> <RTRUE>)>
+	 <COND (<AND <VERB? TELL>
+		     <PRSO? ,MCGINTY>>
+		<COND (<PRSI? ,GLOBAL-TREASURE ,SAMPLE-TREASURE>
+		       <COND (<TRAITOR-TIME?>
+			      <JIGS-UP
+"The Weasel turns and yells, \"Traitor!\" Next thing you know, you've been
+stabbed.">)
+			     (,MCGINTY-KNOWS
+			      <TELL "\"Thanks, but I already know about it.\"" CR>)
+			     (T
+			      <COND (<OR <IN? ,SPEAR-CARRIER ,HERE>
+					 <IN? ,JOHNNY ,HERE>
+					 <IN? ,PETE ,HERE>
+					 <IN? ,WEASEL ,HERE>>
+				     <SETG MCGINTY-KNOWS T>
+		       	      	     <ZERO-ATTENTION ,MCGINTY>
+			      	     <PUT <GET ,GOAL-TABLES ,MCGINTY-C>
+					  ,GOAL-ENABLE T>
+		       	      	     <TELL
+D ,MCGINTY " looks delighted with the information.">
+		       	      	     <COND (<IN? ,MCGINTY ,OUTFITTERS-HQ>
+			             	  <ESTABLISH-GOAL ,MCGINTY ,MCGINTY-HQ>
+			      	     	    <COND (<IN? ,JOHNNY ,OUTFITTERS-HQ>
+				     	    	   <SAY-MCGINTY-KNOWS>)
+				    	   	  (T 
+				     	    	   <TELL " He thanks you.">
+				            	   <TELL-NEED-BOAT>)>)
+			     	    	   (T
+			      	       <ESTABLISH-GOAL ,MCGINTY ,OUTFITTERS-HQ>
+			      	     	    <ALL-GO-HOME>
+			      	     	    <I-PLOT-NEVER-STARTS>
+			      	     	    <DISABLE <INT I-SHOVE-OFF>>
+			      	     	    <TELL
+" \"Excuse me,\" he says. \"I have business to attend to.\"" CR>)>)
+				    (T
+				     <JIGS-UP
+"\"Thanks for the info, pal, but I better make sure you don't use it.\" He
+pulls out his gun and shoots.">)>)>
+		       <RTRUE>)>)
+	       (<AND <VERB? SHOW>
+		     <PRSO? ,NOTE ,BOOK>
+		     <PRSI? ,MCGINTY>>
+		<PERFORM ,V?TELL ,MCGINTY ,GLOBAL-TREASURE>
+		<RTRUE>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,MCGINTY>>
+		<COND (<TRAITOR-TIME?>
+		       <TELL-IN-MEETING>
+		       <RFATAL>)
+		      (<PRSI? ,GLOBAL-TREASURE>
+		       <TELL
+"\"I'm always looking for " D ,GLOBAL-TREASURE ",\" he says, grinning." CR>)
+		      (<PRSI? ,SPEAR-CARRIER>
+		       <TELL "\"He does his job.\"" CR>)
+		      (<PRSI? ,PETES-PATCH>
+		       <TELL "\"All I know is that Pete wears it.\"" CR>)
+		      (<PRSI? ,CIGAR>
+		       <TELL "\"Yeah. That's my cigar.\"" CR>)
+		      (<PRSI? ,HEVLIN>
+		       <TELL-NEVER-KNEW>)
+		      (<PRSI? ,JOHNNY ,PETE ,WEASEL>
+		       <TELL
+"\"He's worked for me. He's all right.\"" CR>)
+		      (<PRSI? ,ME>
+		       <TELL-YOURE-DIVER>)
+		      (<PRSI? ,MCGINTY>
+		       <TELL-KNOW-ME>)
+		      (<PRSI? ,PARROT>
+		       <TELL
+"\"It's the queerest bird I've ever seen.\"" CR>)
+		      (<PRSI? ,TRAWLER ,SALVAGER>
+		       <TELL "\"She's a nice boat.\"" CR>)
+		      (T <RFALSE>)>
+		<RTRUE>)>
+	 <COND (<EQUAL? ,WINNER ,MCGINTY>
+		<COND (<PRSO? ,GLOBAL-SELF>
+		       <SETG PRSO ,MCGINTY>)>
+		<COND (<PRSI? ,GLOBAL-SELF>
+		       <SETG PRSI ,MCGINTY>)>
+		<COND (<AND <VERB? TELL>
+			    <PRSO? ,ME>>
+		       <RFALSE>)
+		      (<VERB? $CALL>
+		       <TELL-SO-WHAT>)
+		      (<VERB? WALK DISEMBARK LEAVE>
+		       <TELL "\"I'll leave when I'm ready.\"" CR>)
+		      (<AND <VERB? SHOW>
+			    <IN? ,PRSO ,MCGINTY>
+		       	    <PRSI? ,ME>>
+		       <SETG WINNER ,PLAYER>
+		       <PERFORM ,V?EXAMINE ,PRSO>
+		       <SETG WINNER ,MCGINTY>)
+		      (<VERB? YES NO MAYBE WHAT FIND SSHOW ALARM>
+		       <RFALSE>)
+		      (T
+		       <TELL "\"I'd rather not.\"" CR>
+		       <RFATAL>)>)>>
+
+<ROUTINE ZERO-ATTENTION (PER)
+	 <PUT <GET ,GOAL-TABLES <GETP .PER ,P?CHARACTER>> ,ATTENTION 0>>
+
+<ROUTINE TELL-SO-WHAT ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "\"What about him?\"" CR>)
+	       (T <V-CALL-LOSE>)>>
+
+<ROUTINE TELL-TAKE-PASS (STR)
+	 <TELL
+.STR " sees the passbook, picks it up, looks at it and then at you.">>
+
+<ROUTINE TRAITOR-TIME? ()
+	 <COND (<AND <IN? ,ID-CARD ,WEASEL>
+		     <QUEUED? ,I-TRAITOR-MEETING>>
+		<RTRUE>)>>
+
+<ROUTINE TELL-IN-MEETING ()
+	 <TELL "He's too engrossed in his meeting to hear you." CR>>
+
+<ROUTINE MCGINTY-ERRAND ()
+	 <MOVE ,PLAYER ,WHARF-ROAD-2>
+         <MOVE ,MCGINTY ,WHARF-ROAD-2>
+	 <SETG HERE ,WHARF-ROAD-2>
+	 <TELL
+"\"I'm closing to run an errand,\" " D ,MCGINTY " says, ushering you out..."
+CR CR>
+	 <V-FIRST-LOOK>>
+
+<ROUTINE I-MCGINTY ("OPTIONAL" (GARG <>) "AUX" (L <LOC ,MCGINTY>) DEST MMG
+		    			       (V <>))
+	 <COND (<NOT .GARG>
+		<SET MMG <GET ,MOVEMENT-GOALS ,MCGINTY-C>>
+		;<COND (<AND <EQUAL? <GET .MMG ,MG-ROOM> ,MM-FORE-DECK>
+			    <EQUAL? ,SHIP-CHOSEN ,TRAWLER>>
+		       <PUT .MMG ,MG-ROOM ,NW-FORE-DECK>)>
+		<COND (<AND <IN? ,MCGINTY ,MCGINTY-HQ>
+			    <IN? ,PLAYER ,MCGINTY-HQ>
+			    <NOT <==? <GET .MMG ,MG-ROOM> ,MCGINTY-HQ>>>
+		       <MCGINTY-ERRAND>
+		       <SET V T>)>
+		<COND (<==? .L ,FERRY-LANDING>
+		       <SETG MCGINTY-MEETS-WEASEL <>>)>
+		<IMOVEMENT ,MCGINTY I-MCGINTY>
+		<RETURN .V>)
+	       (<==? .GARG ,G-REACHED>
+		<COND ;(<EQUAL? .L ,MM-FORE-DECK ,NW-FORE-DECK>
+		       <COND (<IN? ,PLAYER .L>
+			      <TELL
+D ,MCGINTY " comes in, looks around, and sees you. ">)>
+		       <MCGINTY-FORAY-CHECK .L>
+		       <COND (,MCGINTY-RETURNS
+			      <RTRUE>)
+			     (T
+			      <ENABLE <QUEUE I-MCGINTY-FORAY -1>>
+			      <RFALSE>)>)
+		      (<==? .L ,MCGINTY-HQ>
+		       <COND (<IN? ,PLAYER .L>
+			      <JIGS-UP
+"McGinty walks in the front door, spots something in the shadows, pulls out
+a gun, and fires. Unfortunately, you are what he noticed.">)
+			     (<AND <IN? ,PLAYER ,WHARF-ROAD-2>
+				   <==? ,LAST-PLAYER-LOC ,MCGINTY-HQ>>
+			      <JIGS-UP
+"A moment later, McGinty sticks his head out, asks why you were in his place,
+and shoots you.">)
+			     (<IN? ,ID-CARD ,MCGINTY>
+			      <MOVE ,ID-CARD ,ENVELOPE>
+			      <FSET ,ID-CARD ,TAKEBIT>
+			      <FCLEAR ,ENVELOPE ,INVISIBLE>
+			      ;<COND (<IN? ,PLAYER .L><"This can't happen.">
+				     <TELL
+"\"Excuse me,\" says " D ,MCGINTY
+" as he scribbles something on an " D ,ENVELOPE " and
+puts a card in it." CR>)>)
+			     (<AND <NOT ,MCGINTY-KNOWS>
+				   ,MCGINTY-MEETS-WEASEL
+				   <==? <GET <GET ,MOVEMENT-GOALS ,MCGINTY-C>
+					     ,MG-ROOM> ,SHANTY>>
+			      <PUT ,MOVEMENT-GOALS ,MCGINTY-C
+				   ,MCGINTY-MEETS-WEASEL-TABLE>
+			      <IMOVEMENT ,MCGINTY I-MCGINTY>
+			      <RFALSE>)>
+		       <COND (<AND <IN? ,PLAYER ,BACK-ALLEY-2>
+				   <FSET? ,WINDOW ,OPENBIT>>
+			      <TELL "The window gets slammed shut." CR>
+			      <FCLEAR ,BACK-WINDOW ,OPENBIT>)>)
+		      (<==? .L ,FERRY-LANDING>
+		       <ENABLE <QUEUE I-TRAITOR-MEETING -1>>
+		       <COND (<IN? ,PLAYER .L>
+			      <TELL
+D ,MCGINTY " wanders in, looking preoccupied." CR>
+			      <SET V T>)>
+		       <COND (<IN? ,WEASEL .L>
+			      <I-TRAITOR-MEETING>)>
+		       <RETURN .V>)
+		      (<==? .L ,HERE>
+		       <TELL D ,MCGINTY " wanders in."
+;" struts in as if he owned the whole island.">
+		       <COND (<AND <IN? ,PASSBOOK ,PLAYER>
+				   <NOT ,MCGINTY-KNOWS>
+				   <NOT <QUEUED? I-MCGINTY-FOLLOWS>>>
+			      <MCGINTY-WILL-FOLLOW>
+		       	      <TELL-EYES-NARROW>)
+			     (<IN? ,PASSBOOK .L>
+			      <SETG MCGINTY-MEETS-WEASEL T>)>
+			      <CRLF>
+			      <RFATAL>)
+		      (<IN? ,PASSBOOK .L>
+		       <MOVE ,PASSBOOK ,MCGINTY>
+		       <SETG MCGINTY-MEETS-WEASEL T>
+		       <RFALSE>
+		       ;<COND (,DEBUG
+			      <TELL
+"[McGinty has arrived at " D .L " and found the passbook.]" CR>)>)
+		      ;(,DEBUG <TELL "[McGinty has arrived at " D .L ".]" CR>)>)
+	       (<EQUAL? .GARG ,G-ENROUTE>
+		;<SET DEST <GET <GET ,GOAL-TABLES ,MCGINTY-C> ,GOAL-F>>
+		<COND ;(<EQUAL? .DEST ,MM-FORE-DECK ,NW-FORE-DECK>
+		       <MCGINTY-FORAY-CHECK .L>)
+	       	      (<AND <IN? ,PLAYER .L>
+			    <IN? ,PASSBOOK ,PLAYER>
+			    <NOT ,MCGINTY-KNOWS>
+			    <NOT <QUEUED? I-MCGINTY-FOLLOWS>>>
+		       <MCGINTY-WILL-FOLLOW>
+		       <TELL-EYES-NARROW <>>
+		       <CRLF>)
+		      (<AND <IN? ,PASSBOOK .L>
+			    <NOT ,MCGINTY-KNOWS>>
+		       <COND (<IN? ,MCGINTY <META-LOC ,PLAYER>>
+		       	      <MCGINTY-WILL-FOLLOW>
+		       	      <MOVE ,PASSBOOK ,MCGINTY>
+		       	      <TELL-TAKE-PASS "McGinty">
+			      <CRLF>)
+		      	     (T
+		       	      <SETG MCGINTY-MEETS-WEASEL T>
+		       	      <MOVE ,PASSBOOK ,MCGINTY>
+		       	      <RFALSE>)>)>)>>
+
+<ROUTINE TELL-EYES-NARROW ("OPTIONAL" (SPACE T))
+	 <COND (<NOT ,ALREADY-FOLLOWED>
+		<COND (.SPACE <TELL " ">)>
+	 	<TELL
+"As he looks at you, he does a double take and stares intently at your
+possessions.">)>>
+
+;<ROUTINE I-MCGINTY-FORAY ("AUX" DEST MCGL (V <>) F N)
+	 <COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+		<SET DEST <GET ,NW-FORAY-TABLE 0>>
+	 	<SETG NW-FORAY-TABLE <REST ,NW-FORAY-TABLE 2>>)
+	       (T
+		<SET DEST <GET ,MM-FORAY-TABLE 0>>
+	 	<SETG MM-FORAY-TABLE <REST ,MM-FORAY-TABLE 2>>)>
+	 <SET MCGL <LOC ,MCGINTY>>
+	 <COND (<IN? .DEST ,ROOMS>
+		<MOVE-PERSON ,MCGINTY .DEST>
+		<SET MCGL <LOC ,MCGINTY>>
+		<COND (<EQUAL? .MCGL ,MM-FORE-DECK ,NW-FORE-DECK>
+		       <SET F <FIRST? ,MCGINTY>>
+		       <COND (<AND <IN? ,MCGINTY <META-LOC ,PLAYER>>
+				   <NEXT? .F>>
+			      <SET V T>
+			      <TELL
+D ,MCGINTY " throws something over the " D ,RAILING
+". He then sees you and says,
+\"Have fun!\"" CR>)>
+		       <REPEAT ()
+			<SET N <NEXT? .F>>
+			<COND (<NOT <==? .F ,CIGAR>>
+			       <MOVE .F ,LOCAL-GLOBALS>)>
+			<SET F .N>
+			<COND (<NOT .F> <RETURN>)>>
+		       <ESTABLISH-GOAL ,MCGINTY ,MCGINTY-HQ>
+		       <DISABLE <INT I-MCGINTY-FORAY>>
+		       <RETURN .V>)>
+		<COND (,MCGINTY-RETURNS
+		       <DISABLE <INT I-MCGINTY-FORAY>>)>
+		<COND (<IN? ,PLAYER .MCGL> <RTRUE>)>)
+	       (<EQUAL? .MCGL ,MM-LOCKER ,NW-LOCKER>
+		<COND (,MCGINTY-RETURNS
+		       <DISABLE <INT I-MCGINTY-FORAY>>
+		       <COND (<IN? ,PLAYER .MCGL> <RTRUE>)
+			     (T <RFALSE>)>)>
+		<SET F <FIRST? .MCGL>>
+		<REPEAT ()
+		 <SET N <NEXT? .F>>
+		 <COND (<AND <NOT <EQUAL? .F ,DEEP-SUIT>>
+			     <NOT <EQUAL? .F ,METAL-DETECTOR>>
+			     <NOT <FSET? .F ,PERSON>>>
+			<MOVE .F ,MCGINTY>)>
+		 <SET F .N>
+		 <COND (<NOT .F> <RFALSE>)>>)>>
+
+;<GLOBAL MM-FORAY-TABLE
+	<TABLE MM-CREW-QTRS MM-LOCKER 0 MM-CREW-QTRS MM-FORE-DECK>>
+
+;<GLOBAL NW-FORAY-TABLE
+	<TABLE NW-CREW-QTRS NW-LOCKER 0 NW-CREW-QTRS NW-FORE-DECK>>
+
+;<ROUTINE MCGINTY-FORAY-CHECK (MCGL)
+	 <COND (<OR <IN? ,WEASEL .MCGL>
+		    <IN? ,PETE .MCGL>
+		    <IN? ,JOHNNY .MCGL>
+		    <IN? ,PLAYER .MCGL>>
+		<ESTABLISH-GOAL ,MCGINTY ,MCGINTY-HQ>
+		<SETG MCGINTY-RETURNS T>
+		<COND (<IN? ,PLAYER .MCGL>
+		       <TELL
+"\"If you're using the ship, I'll look it over later,\" he says." CR>)>)>>
+
+;<GLOBAL MCGINTY-RETURNS <>>
+
+<ROUTINE MCGINTY-WILL-FOLLOW ("AUX" GT)
+	 <COND (,MCGINTY-KNOWS <RFALSE>)>
+	 <SET GT <GET ,GOAL-TABLES ,MCGINTY-C>>
+	 <PUT .GT ,GOAL-ENABLE <>>
+	 ;<PUT .GT ,GOAL-QUEUED <GET .GT ,GOAL-F>>
+	 <PUT .GT ,GOAL-F ,WRECK-13>
+	 <PUT .GT ,ATTENTION 500>
+	 <DISABLE <INT I-MCGINTY>>
+	 <ENABLE <QUEUE I-MCGINTY-FOLLOWS -1>>>
+
+<ROUTINE I-MCGINTY-FOLLOWS ("AUX" GT (MCG-LOC <LOC ,MCGINTY>))
+	 <COND (<AND <G? ,PRESENT-TIME 810>
+		     <NOT ,ALREADY-FOLLOWED>>
+		<DISABLE <INT I-MCGINTY-FOLLOWS>>
+		<PUT <SET GT <GET ,GOAL-TABLES ,MCGINTY-C>>
+		     ,ATTENTION 0>
+		<PUT .GT ,GOAL-ENABLE T>
+		<SETG ALREADY-FOLLOWED T>
+		<ESTABLISH-GOAL ,MCGINTY ,MCGINTY-HQ>
+		<RFALSE>)>
+	 <PUT <GET ,GOAL-TABLES ,MCGINTY-C> ,ATTENTION 5>
+	 <COND (<AND <==? ,HERE ,OUTFITTERS-HQ>
+		     <==? .MCG-LOC ,WHARF-ROAD-4>>
+		<MOVE-PERSON ,MCGINTY ,OUTFITTERS-HQ>)
+	       (<EQUAL? ,HERE .MCG-LOC ,LAST-PLAYER-LOC>
+		<RFALSE>)
+	       (<==? .MCG-LOC ,LAST-PLAYER-LOC>
+		<RFALSE>)
+	       (<NOT <EQUAL? ,LAST-PLAYER-LOC <META-LOC ,LAST-PLAYER-LOC>>>
+		<RFALSE>)
+	       (T <MOVE-PERSON ,MCGINTY ,LAST-PLAYER-LOC>)>>
+
+<GLOBAL MCGINTY-MEETS-WEASEL <>>
+<GLOBAL MCGINTY-MEETS-WEASEL-TABLE
+	<TABLE
+	 0
+	 20  1 FERRY-LANDING
+	 35  3 MCGINTY-HQ
+	 30  5 SHANTY
+	 30  5 MCGINTY-HQ
+	 0>>
+<GLOBAL ALREADY-FOLLOWED <>>
+
+<OBJECT CIGAR
+	(IN MCGINTY)
+	(DESC "cigar")
+	(SYNONYM CIGAR STOGIE CHEROO)
+	(ADJECTIVE LARGE STINKIN)
+	(FLAGS TRYTAKEBIT NDESCBIT)
+	(TEXT "A Supremo it's not.")
+	(ACTION CIGAR-F)>
+
+<ROUTINE CIGAR-F ()
+	 <COND (<VERB? TAKE>
+		<TELL 
+D ,MCGINTY " yanks it back, then tenderly clamps it between his teeth." CR>)
+	       (<VERB? LAMP-ON>
+		<TELL-ALREADY "lit">)
+	       (<VERB? SMELL>
+		<TELL 
+"The cigar smells like a burning tire." CR>)>>
+
+<OBJECT JOHNNY
+	(IN SHANTY)
+	(DESC "Johnny Red")
+	(DESCFCN JOHNNY-F)
+	(SYNONYM JOHNNY JOHN RED)
+	(ADJECTIVE JOHNNY JOHN MISTER MR)
+	(CHARACTER 2)
+	(FLAGS PERSON VICBIT)
+	(TEXT
+"Red got his name from flame-red hair which sprouts from his head and face, and
+peeks out from under his flannel shirt. He takes no guff, but he is fair and
+has a sense of justice.")
+	(CONTFCN JOHNNY-F)
+	(ACTION JOHNNY-F)>
+
+<ROUTINE JOHNNY-F ("OPTIONAL" (RARG <>) "AUX" TREAS)
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<COND (<AND <QUEUED? I-PENDULUM>
+			    <==? <GET <INT I-PENDULUM> ,C-TICK> -1>>
+		       <RTRUE>)
+		      (<IN-MOTION? ,JOHNNY>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,MM-AFT-DECK ,NW-AFT-DECK>
+			    ,WEASEL-APPREHENDED
+			    <NOT <QUEUED? I-PENDULUM>>>
+		       <I-JOHNNY ,G-REACHED>);"throws line over side"
+		      (<FSET? ,JOHNNY ,TOUCHBIT>
+		       <TELL D ,JOHNNY " is here">
+		       <COND (<IN? ,SPEAR-CARRIER ,HERE>
+			      <COND (<IN? ,MCGINTY ,HERE>
+			      	     <TELL ", glaring at " D ,MCGINTY>)
+			            (<AND <OR <L? ,FM-CTR 2>
+					      <G? ,FM-CTR 4>>
+					  <NOT <==? ,PRESENT-TIME 704>>>
+				     <TELL
+", chatting with the " D ,SPEAR-CARRIER>)>)>
+		       <TELL "." CR>)
+		      (T <TELL
+D ,JOHNNY " is here. Red hair sprouts from his head and from beneath his
+flannel shirt." CR>
+		       <FSET ,JOHNNY ,TOUCHBIT>)>
+	        <RTRUE>)
+	       (<==? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE>
+			    <FSET? ,PRSO ,TAKEBIT>>
+		       <TELL
+"Johnny glares down at you. \"Get your hands off of that!\"" CR>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,KNIFE ,PRSO ,PRSI>
+			    <AND <NOT <VERB? EXAMINE FIND ASK-ABOUT>>
+				 <NOT <VERB? ASK-CONTEXT-ABOUT>>>>
+		       <TELL
+"Johnny pulls it back. \"I'm not gonna let you give this to " D ,WEASEL ".\""
+CR>
+		       <RTRUE>)
+		      (T <RFALSE>)>)>
+	 <COND (<AND <==? ,JOHNNY ,WINNER>
+		     <NOT <==? <META-LOC ,JOHNNY> <META-LOC ,PLAYER>>>>
+		<SETG P-CONT <>>
+		<TELL-NOT-HERE-TALK>
+		<RFATAL>)>
+	 <FSET ,JOHNNY ,TOUCHBIT>
+	 <COND (<AND <VERB? FOLLOW>
+		     <PRSO? ,JOHNNY>>
+		<RFALSE>)
+	       (<AND <VERB? TELL>
+		     <NOT ,PRSI>>
+		<RFALSE>)
+	       (<OR ,MCGINTY-KNOWS ,JOHNNY-SILENT>
+		<TELL D ,JOHNNY " looks right through you." CR>
+		<RFATAL>)
+	       (<VERB? HELLO GOODBYE>
+		<SETG QCONTEXT ,JOHNNY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Ahoy, matey.\"" CR>
+		<RTRUE>)
+	       (<VERB? BUY>
+		<COND (<PRSO? ,FERRY-TOKEN>
+		       <TELL "\"Try " D ,BANK ".\"" CR>
+		       <RTRUE>)>)>
+	 <COND (<AND <VERB? $CALL> <==? ,WINNER ,PLAYER>> <RFALSE>)
+	       (<NOT <GRAB-ATTENTION ,JOHNNY>> <RTRUE>)>
+	 <COND (<AND <VERB? GIVE SHOW>
+		     <PRSO? ,CHARTS>>
+		<TELL "\"No thanks. I have my own.\"" CR>
+		<RTRUE>)
+	       (<OR <AND <VERB? SHOW>
+		     	 <PRSO? ,NOTE>>
+		    <AND <VERB? ASK-ABOUT>
+			 <PRSI? ,NOTE>>>
+		<TELL "\"Yeah. I wrote that.\"" CR>
+		<RTRUE>)
+	       (<AND <VERB? GIVE>
+		     <OR <PRSO? ,ENVELOPE>
+			 <PRSO? ,ID-CARD>>>
+		<COND (<NOT <IN? ,ID-CARD ,ENVELOPE>>
+		       <TELL-RETURNS ,JOHNNY>)>
+		<PERFORM ,V?SHOW ,PRSO ,JOHNNY>
+		<RTRUE>)
+	       (<AND <VERB? SHOW>
+		     <PRSI? ,JOHNNY>>
+		<COND (<AND <IN? ,ID-CARD ,ENVELOPE>
+			    <OR <PRSO? ,ENVELOPE>
+			        <PRSO? ,ID-CARD>>>
+		       <TELL
+"Johnny takes the card and " D ,ENVELOPE " and studies them. ">
+		       <COND (,WEASEL-APPREHENDED
+			      <TELL-ALREADY-SHOWN>
+			      <TELL
+",\" he says, handing the " D ,ENVELOPE " back.">)
+			     (,CLUMSILY-HANDLED
+			      <TELL
+"\"You trying to frame " D ,WEASEL "?\" He returns the " D ,ENVELOPE ".">)
+			     (T
+		       	      <MOVE ,ENVELOPE ,JOHNNY>
+		       	      <TELL
+"\"So,\" he muses, \"" D ,WEASEL " is working with " D ,MCGINTY
+". I'll take care of him.\"">
+		       	      ;<COND (<AND ,AT-SEA
+					  <NOT ,WEASEL-BLOWN>
+					  <NOT ,MOMENT-OF-TRUTH>>
+			      	     <TELL " He stops the boat.">
+			      	     <DISABLE <INT I-OBSTACLES>>)>
+			      <SETG WEASEL-BLOWN T>
+		       	      <COND (<IN? ,WEASEL <LOC ,JOHNNY>>
+			      	     <ROUGH-JUSTICE>)
+			     	    (<OR <IN? ,WEASEL ,FERRY>
+					 <IN? ,WEASEL ,GLOBAL-FERRY>>
+				     <ESTABLISH-GOAL ,JOHNNY ,FERRY-LANDING>)
+				    (T
+				     <ESTABLISH-GOAL ,JOHNNY <META-LOC ,WEASEL>>)>)>
+		       <CRLF>
+		       <RTRUE>)
+		      (<PRSO? ,ENVELOPE>
+		       <COND (,WEASEL-BLOWN
+			      <TELL-ALREADY-SHOWN>)
+			     (T
+			     <TELL "\"It's empty. It don't mean nothing">
+		       	      <SETG CLUMSILY-HANDLED T>)>
+		       <TELL ".\"" CR>
+		       <RTRUE>)
+		      (<PRSO? ,ID-CARD>
+		       <COND (,WEASEL-BLOWN
+			      <TELL-ALREADY-SHOWN>)
+			     (T
+			      <TELL
+"\"That's " D ,WEASEL "'s. He'll be glad you found it">
+		       	      <SETG CLUMSILY-HANDLED T>)>
+		       <TELL ".\"" CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,JOHNNY>>
+		<COND ;(<PRSI? ,GLOBAL-MEETING>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-WILL-FOLLOW>
+			      <TELL
+"Johnny looks at " D ,MCGINTY " and says, \"You mean the one tomorrow to
+discuss, er, buying a ship at, uh, 3 o'clock? It'll be at the ferry landing.\""
+CR>)
+			     (<==? ,MEETINGS-COMPLETED 0>
+			      <COND (<AND <G? ,FM-CTR 1>
+					  <L? ,FM-CTR 5>>
+				     <TELL "\"We're in it!\"" CR>)
+				    (<L? ,PRESENT-TIME 525>
+				     <COND (<==? ,FM-CTR 0>
+					    <RTRUE>)
+					   (T <TELL 
+"\"Glad you got the note. We'll start when everyone shows.\"" CR>)>)
+				    (<QUEUED? I-FIRST-MEETING>
+				     <RTRUE>)
+				    (T <TELL "\"It's too late.\"" CR>)>)
+			     (<==? ,MEETINGS-COMPLETED 1>
+			      <COND (<AND <G? ,SM-CTR 1>
+					  <L? ,SM-CTR 4>>
+				     <TELL
+"\"This isn't a bingo game!\"" CR>)
+				    (<L? ,PRESENT-TIME 586>
+				     <COND (<EQUAL? ,HERE ,WINDING-ROAD-1>
+					    <COND (<==? ,SM-CTR 0>
+						   <RTRUE>)
+						  (T <TELL
+"\"It'll start when we're all here.\"" CR>)>)
+					   (T <TELL
+"\"9:30 at the " D ,LIGHTHOUSE ".\"" CR>)>)
+				    (T <TELL "\"You missed it, turkey!\"" CR>)>)
+			     (<==? ,MEETINGS-COMPLETED 2>
+			      <COND (<AND <G? ,TM-CTR 0>
+					  <L? ,TM-CTR 8>>
+				     <TELL
+"\"It's what I'm doing now. I hope you are, too.\"" CR>)
+				    (<L? ,PRESENT-TIME 660>
+				     <TELL
+"\"Point Lookout at 10:45. Bring $500.\"" CR>)
+				    (T <TELL
+"\"I waited for you at Point Lookout. It's too late now.\"" CR>)>)
+			     (<OR <G? ,PRESENT-TIME 870>
+				  <AND <G? ,PRESENT-TIME 705>
+				       <NOT ,JOHNNY-MADE-DEAL>>>
+			      <TELL
+"\"There are no more " D ,GLOBAL-MEETING "s.\"" CR>)
+			     (<==? ,MEETINGS-COMPLETED 3>
+			      <TELL
+"\"We'll all meet at the ship at 2:30.\"" CR>)>)
+		      (<PRSI? ,GLOBAL-TREASURE ,SAMPLE-TREASURE ,SHARK>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-AND-TREASURE ,GLOBAL-TREASURE>)
+			     (<OR <NOT <ENABLED? I-JOHNNY>>
+				  <NOT ,SAMPLE-TREASURE>>
+			      <TELL
+"Red scowls. \"What " D ,GLOBAL-TREASURE "?\"" CR>)
+			     (<L? ,SM-CTR 2>
+			      <TELL "\"All in good time.\"" CR>)
+			     (<OR <L? ,TM-CTR 7>
+				  <IN? ,WEASEL ,HERE>
+				  <IN? ,PETE ,HERE>
+				  <IN? ,SPEAR-CARRIER ,HERE>>
+			      <TELL
+"\"I told you. I found a " D ,SAMPLE-TREASURE " while I was cleaning a shark.\"" CR>)
+			     (<PRSI? ,SHARK>
+			      <TELL "\"I made that up.\"" CR>)
+			     (T <TELL "\"Hevlin gave it to me.\"" CR>)>)
+		      ;(<AND <PRSI? ,LEFT-BUTTON ,RIGHT-BUTTON ,DECK-CHAIR>
+			    <G? <GETP ,HERE ,P?LINE>
+				,BACK-ALLEY-LINE-C>>
+		       <TELL-BUTTON-EXPLAIN>)
+		      (<PRSI? ,BOOK>
+		       <COND (<OR <L? ,TM-CTR 7>
+				  <IN? ,WEASEL ,HERE>
+				  <IN? ,PETE ,HERE>
+				  <IN? ,SPEAR-CARRIER ,HERE>>
+			      <RFALSE>)
+			     (T
+			      <TELL "\"That's the one Hevlin gave you.\"" CR>)>)
+		      (<PRSI? ,PETES-PATCH>
+		       <TELL "\"Pete's worn it a long time.\"" CR>)
+		      (<PRSI? ,HEVLIN>
+		       <TELL "\"He was an old friend of mine.\"" CR>)
+		      (<PRSI? ,SPEAR-CARRIER>
+		       <TELL "\"You know him as well as I do.\"" CR>)
+		      (<PRSI? ,ME>
+		       <TELL-YOURE-DIVER>)
+		      (<PRSI? ,WEASEL>
+		       <TELL "\"The Weasel? ">
+		       <COND (,WEASEL-BLOWN
+			      <TELL "Lower than a sea slug...\"">)
+			     (<IN? ,WEASEL ,HERE>
+			      <TELL "He's my pal.\"">
+			      <TELL-FERRY-KLUDGE "grins">)
+			     (T <TELL
+"I wouldn't trust him farther than I could throw a whale! But he's a great
+one-man crew.\"">)>
+		       <CRLF>)
+		      (<PRSI? ,MCGINTY>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <PRINTC %<ASCII !\">>
+			      <TELL 
+D ,MCGINTY "'s one of my favorite people to work for!\"" CR>)
+			     (T <TELL
+"\"That man would sell his mother for a profit!\"" CR>)>)
+		      (<PRSI? ,PETE>
+		       <COND (<IN? ,PETE ,HERE>
+			      <TELL "Johnny leans over and mutters, ">)>
+		       <TELL 
+"\"Pete's no genius, but he's dependable. He got a bad name 'cause of
+what happened, him serving his mates rats for mess. But he'll
+never make that mistake again!\"" CR>)
+		      (<PRSI? ,JOHNNY>
+		       <TELL-KNOW-ME>)
+		      (<PRSI? ,PARROT>
+		       <TELL "\"It's what makes " D ,SHANTY " what it is.\"" CR>)
+		      (<PRSI? ,TRAWLER ,SALVAGER>
+		       <TELL "\"It's one of Outfitters' boats.\"" CR>)
+		      (<PRSI? ,LINE-HACK>
+		       <TELL ,LINE-STR CR>)
+		      (T <RFALSE>)>
+		<RTRUE>)>
+	 <COND (<EQUAL? ,WINNER ,JOHNNY>
+		<COND (<PRSO? ,GLOBAL-SELF>
+		       <SETG PRSO ,JOHNNY>)>
+		<COND (<PRSI? ,GLOBAL-SELF>
+		       <SETG PRSI ,JOHNNY>)>
+		<COND (<IN? ,MCGINTY ,HERE>
+		       <COND (<PRSO? ,GLOBAL-TREASURE ,SAMPLE-TREASURE>
+			      <SET TREAS ,PRSO>)
+			     (<PRSI? ,SAMPLE-TREASURE ,GLOBAL-TREASURE> 
+			      <SET TREAS ,PRSI>)>
+			<COND (.TREAS
+			       <MCGINTY-AND-TREASURE .TREAS>
+			       <RTRUE>)>)>
+		<COND (<AND <VERB? TELL>
+			    <PRSO? ,ME>>
+		       <RFALSE>)
+		      (<VERB? $CALL>
+		       <TELL-SO-WHAT>)
+		      (<AND <VERB? SHOW>
+			    <IN? ,PRSO ,JOHNNY>
+			    <PRSI? ,ME>>
+		       <SETG WINNER ,PLAYER>
+		       <PERFORM ,V?EXAMINE ,PRSO>
+		       <SETG WINNER ,JOHNNY>)
+		      (<VERB? YES NO MAYBE LATITUDE LONGITUDE WHAT FIND SSHOW 
+			      ALARM>
+		       <RFALSE>)
+		      (T
+		       <TELL "\"I'll do what I want.\"" CR>
+		       <RFATAL>)>)>>
+
+<ROUTINE MCGINTY-AND-TREASURE (TRE)
+	 <MCGINTY-WILL-FOLLOW>
+	 <TELL
+"Johnny looks at " D ,MCGINTY " and then at you. \"What " D .TRE "?\"" CR>>
+
+<ROUTINE TELL-RETURNS (PER)
+	 <START-SENTENCE .PER>
+	 <TELL " looks at the " D ,PRSO " and hands it back to you. ">>
+
+<ROUTINE TELL-ALREADY-SHOWN ()
+	 <TELL-YOU-ALREADY "showed me this" T <>>>
+
+<ROUTINE TELL-YOU-ALREADY (STR "OPTIONAL" (QUOTE? <>) (DONE T))
+	 <COND (.QUOTE? <TELL "\"">)>
+	 <TELL "You already " .STR>
+	 <COND (.DONE <CRLF>)>>
+
+<ROUTINE I-JOHNNY ("OPTIONAL" (GARG <>) "AUX" (L <LOC ,JOHNNY>) JMG V)
+	 <COND (<NOT .GARG>
+		<COND (,WEASEL-BLOWN
+		       <RFALSE>)
+		      (<OR <AND <G? ,FM-CTR 1>
+			    	<L? ,FM-CTR 5>>
+			   <AND <G? ,TM-CTR 0>
+				<L? ,TM-CTR 8>>>
+		       <ENABLE <QUEUE I-JOHNNY 1>>
+		       <RFALSE>)> ;"So he doesn't leave during 1st meeting"
+		<SET JMG <GET ,MOVEMENT-GOALS ,JOHNNY-C>>
+		<COND (<AND <EQUAL? <GET .JMG ,MG-ROOM> ,MM-CAPT-CABIN>
+		       	    <EQUAL? ,SHIP-CHOSEN ,TRAWLER>>
+		       <PUT .JMG ,MG-ROOM ,NW-CAPT-CABIN>)>
+		<IMOVEMENT ,JOHNNY I-JOHNNY>)
+	       (<==? .GARG ,G-REACHED>
+		<COND (,WEASEL-APPREHENDED
+		       <COND (<EQUAL? .L ,MM-LOUNGE ,NW-LOUNGE>
+		       	      <COND (<IN? ,PLAYER <LOC ,WEASEL>>
+				     <TELL-JOHNNY-DRAGS>)>
+			      <MOVE ,WEASEL .L>
+		       	      <COND (<==? ,SHIP-CHOSEN ,TRAWLER>
+			      	     <ESTABLISH-GOAL ,JOHNNY ,NW-AFT-DECK>)
+			     	    (T <ESTABLISH-GOAL ,JOHNNY ,MM-AFT-DECK>)>
+		       	      <COND (<IN? ,PLAYER .L>
+			      	     <TELL
+"Johnny drags " D ,WEASEL " in, ties him up, and throws him to the floor."
+CR>)>
+			      <RTRUE>)
+			     (<EQUAL? .L ,MM-AFT-DECK ,NW-AFT-DECK>
+			      <COND (<AND <NOT <QUEUED? I-PENDULUM>>
+					  <IN? ,PLAYER .L>>
+				     <ENABLE <QUEUE I-PENDULUM -1>>
+				     <FCLEAR ,LINE-HACK ,INVISIBLE>
+				     <MOVE ,LINE-HACK .L>
+				     <TELL
+"Johnny approaches, throws a weighted " D ,SAFETY-LINE
+" over the side, and says, " ,LINE-STR CR>
+				     <RTRUE>)>)>)
+		      (,WEASEL-BLOWN
+		       <COND (<EQUAL? .L <META-LOC ,WEASEL>>
+		       	      <ROUGH-JUSTICE>)
+		       	     (<OR <IN? ,WEASEL ,GLOBAL-FERRY>
+				  <IN? ,WEASEL ,FERRY>
+				  <IN? ,WEASEL ,LOCAL-GLOBALS>>
+			      <RFALSE>)
+			     (<NOT <EQUAL? <GET <GET ,GOAL-TABLES ,JOHNNY-C>
+						,GOAL-F> <META-LOC ,WEASEL>>>
+			      <ESTABLISH-GOAL ,JOHNNY <META-LOC ,WEASEL>>
+			      <RFALSE>)>)
+		      (<AND <==? .L ,OUTFITTERS-HQ>
+			    <==? ,MEETINGS-COMPLETED 3>>
+		       <ENABLE <QUEUE I-EQUIP -1>>)>
+		<COND (<==? .L ,HERE>
+		       <COND ;(<QUEUED? I-DIVETIME>
+			      <JOHNNY-SAYS-GO>
+			      <RFATAL>)
+	                     (T
+		       	      <TELL
+D ,JOHNNY " appears, striding like a proud lion." CR>
+			      <COND (<QUEUED? I-THIRD-MEETING>
+				     <I-THIRD-MEETING>)>
+		       	      <RFATAL>)>)
+		      ;(,DEBUG
+		       <TELL "[Johnny Red has arrived at " D .L ".]" CR>)>)
+	       (<EQUAL? .GARG ,G-ENROUTE>
+		<COND (,WEASEL-BLOWN
+		       <COND (,WEASEL-APPREHENDED
+			      <COND (<NOT <EQUAL? <LOC ,WEASEL>
+					         ,MM-LOUNGE ,NW-LOUNGE>>
+			      	     <COND (<IN? ,WEASEL .L>
+					    <SET V T>)>
+				     <MOVE ,WEASEL .L>
+			      	     <COND (<OR .V <IN? ,PLAYER .L>>
+				     	    <TELL-JOHNNY-DRAGS>)>)>)
+			     (T
+			      <COND (<EQUAL? .L <META-LOC ,WEASEL>>
+		       	      	     <ROUGH-JUSTICE>)
+		             	    (<OR <IN? ,WEASEL ,GLOBAL-FERRY>
+					 <IN? ,WEASEL ,FERRY>
+					 <IN? ,WEASEL ,LOCAL-GLOBALS>>
+				     <RFALSE>)
+				    (<NOT <EQUAL?
+					   <GET <GET ,GOAL-TABLES ,JOHNNY-C>
+						,GOAL-F>
+				    	  <META-LOC ,WEASEL>>>
+			      	     <ESTABLISH-GOAL ,JOHNNY <META-LOC ,WEASEL>>
+			      	     <RFALSE>)>)>)>)>>
+
+;<GLOBAL MOMENT-OF-TRUTH <>>
+<GLOBAL WEASEL-BLOWN <>>
+<GLOBAL WEASEL-APPREHENDED <>>
+<GLOBAL CLUMSILY-HANDLED <>>
+<GLOBAL LINE-STR "\"Tie the line to the treasure when you've got it, then pull
+on it and we'll pull the treasure up.\"">
+
+<ROUTINE TELL-JOHNNY-DRAGS ()
+	 <TELL "Johnny drags " D ,WEASEL " along with him." CR>>
+
+<ROUTINE ROUGH-JUSTICE ("AUX" (PRINT? <>))
+	 <COND (<IN? ,PLAYER <LOC ,JOHNNY>>
+		<SET PRINT? T>
+		<CRLF>
+		<TELL
+"Johnny grabs " D ,WEASEL " and his knife. \"All right, slime.
+Thought you and " D ,MCGINTY " could rip us off, huh?\"
+Before he turns to lead " D ,WEASEL " away, ">)>
+	 <COND (,AT-SEA ;,MOMENT-OF-TRUTH
+	        <SETG WEASEL-APPREHENDED T>
+		<MOVE ,KNIFE ,JOHNNY>
+		;<COND (.PRINT? <TELL
+"Red tells you to meet him at the Aft Deck before you dive." CR>)>
+	        <ESTABLISH-GOAL ,JOHNNY <LOC ,LOUNGE-CHAIR>>
+		;<COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+		       <ESTABLISH-GOAL ,JOHNNY ,NW-LOUNGE>)
+		      (T <ESTABLISH-GOAL ,JOHNNY ,MM-LOUNGE>)>)
+	       ;(,AT-SEA
+	        <COND (.PRINT? <TELL
+"Red says, \"We'll turn around. I don't wanna waste my chance
+without a crew.\" You head back for the Island, cursing " D ,MCGINTY " and
+" D ,WEASEL "." CR>)
+		      (T
+		       <TELL-COMES-UP ,JOHNNY>
+		       <TELL
+"\"I've taken care of Weasel, but
+I don't want to go on without a full crew. It would be a shame to find the
+treasure and not get back with it. Maybe next time.\"" CR>)>
+	        <FINISH>)
+	       (T
+	        <COND (.PRINT? <TELL
+"Johnny says, \"We'd have to find someone else to crew. I better call it
+off.\" You head for " D ,SHANTY ", wishing you had more to do today than
+drink." CR>)
+		      (T
+		       <TELL-COMES-UP ,JOHNNY>
+		       <TELL
+"\"I've taken care of " D ,WEASEL ", but we can't go out without a crew.
+Maybe next time.\"" CR>)>
+	        <FINISH>)>>
+
+<OBJECT PETE
+	(IN SHANTY)
+	(DESC "Pete the Rat")
+	(DESCFCN PETE-F)
+	(SYNONYM RAT COOK)
+	(ADJECTIVE PETE PETER MR MISTER)
+	(CHARACTER 3)
+	(FLAGS PERSON VICBIT)
+	(TEXT
+"Pete wears an eyepatch and got his name on a far-east voyage as the cook.
+The food ran out, and he did what he could to supply the crew with fresh meat.
+Needless to say, he was left at the nearest port.")
+	(CONTFCN PETE-F)
+	(ACTION PETE-F)>
+
+;"Unfortunately, the only meat available came in the form of the ever-present
+rodent. [This sentence was the next-to-last one above, but SCF objected: 'If
+someone can't figure out that the Rat in Pete's name is what he fed, then they
+don't deserve to.']"
+
+<ROUTINE TELL-COMES-UP (WHO)
+	 <START-SENTENCE .WHO>
+	 <TELL " comes up to you and says, ">>
+
+;<ROUTINE TELL-MAKE-SURE ()
+	 <TELL
+"\"Just wanted to make sure you were standing watch.\"" CR>>
+
+;<ROUTINE TELL-DO-WATCH ()
+	 <TELL
+"\"You're supposed to be up at the foredeck standing watch! Better hurry!\"" CR>>
+
+<ROUTINE PETE-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<COND ;(<==? ,PETE ,SEARCHER>
+		       <SETG SEARCHER <>>
+		       <ESTABLISH-GOAL ,PETE <LOC ,DRINKING-WATER>>
+		       ;<COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+			      <ESTABLISH-GOAL ,PETE ,MM-GALLEY>)
+			     (T <ESTABLISH-GOAL ,PETE ,NW-GALLEY>)>
+		       <COND (<IN? ,DECK-CHAIR <LOC ,PETE>>
+			      <SET-NEXT-WATCH>
+			      <TELL-COMES-UP ,PETE>
+			      <TELL-MAKE-SURE>)
+			     (T
+			      <TELL-COMES-UP ,PETE>
+			      <TELL-DO-WATCH>)>)
+		      (<IN-MOTION? ,PETE> <RTRUE>)
+		      (<EQUAL? <LOC ,PETE> ,MM-GALLEY ,NW-GALLEY>
+		       <TELL D ,PETE " is watching over his stew." CR>)
+		      ;(<AND <EQUAL? <LOC ,PETE> ,MM-CREW-QTRS ,NW-CREW-QTRS>
+			    ,AT-SEA
+			    <NOT <EQUAL? <GET <GET ,GOAL-TABLES
+					    <GETP ,PETE ,P?CHARACTER>> ,GOAL-F>
+				      	 ,MM-GALLEY ,NW-GALLEY>>>
+		       <TELL D ,PETE " is asleep in a bunk." CR>)
+		      (<OR <AND <G? ,FM-CTR 1>
+			    	<L? ,FM-CTR 5>>
+			   <==? ,PRESENT-TIME 704>>
+		       <TELL
+D ,PETE " is sitting here, listening intently." CR>)
+		      (<FSET? ,PETE ,TOUCHBIT>
+		       <TELL 
+D ,PETE " fiddles with his eyepatch, shifting his weight
+from foot to foot." CR>)
+		      (T <TELL
+"A man wearing an eyepatch, black turtleneck, and jeans is standing about.
+He is known as " D ,PETE "." CR>
+		       <FSET ,PETE ,TOUCHBIT>)>
+	        <RTRUE>)
+	       (<==? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE>
+			    <FSET? ,PRSO ,TAKEBIT>>
+		       <TELL "Pete pulls it back. \"That's mine!\"" CR>
+		       <RTRUE>)
+		      (T <RFALSE>)>)>
+	 <COND (<AND <==? ,WINNER ,PETE>
+		     <NOT <==? <META-LOC ,PETE> <META-LOC ,PLAYER>>>>
+		<SETG P-CONT <>>
+		<TELL-NOT-HERE-TALK>
+		<RFATAL>)>
+	 <FSET ,PETE ,TOUCHBIT>
+	 <COND (<AND <VERB? FOLLOW>
+		     <PRSO? ,PETE>>
+		<RFALSE>)
+	       (<VERB? HELLO>
+		<SETG QCONTEXT ,PETE>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Hi.\"" CR>
+		<RTRUE>)
+	       (<VERB? GOODBYE>
+		<SETG QCONTEXT ,PETE>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Bye.\"" CR>
+		<RTRUE>)
+	       (<VERB? SMELL>
+		<TELL "Phew! Better stay upwind of him." CR>
+		<RTRUE>)
+	       (<VERB? BUY>
+		<COND (<PRSO? ,FERRY-TOKEN>
+		       <TELL 
+"Pete checks his pockets, then holds out his empty hands." CR>
+		       <RTRUE>)>)>
+	 <COND (<AND <VERB? $CALL> <==? ,WINNER ,PLAYER>> <RFALSE>)
+	       (<NOT <GRAB-ATTENTION ,PETE>> <RTRUE>)>
+	 <COND (<AND <VERB? GIVE>
+		     <OR <PRSO? ,ENVELOPE>
+			 <PRSO? ,ID-CARD>>>
+		<COND (<NOT <IN? ,ID-CARD ,ENVELOPE>>
+		       <TELL-RETURNS ,PETE>)>
+		<PERFORM ,V?SHOW ,PRSO ,PETE>
+		<RTRUE>)
+	       (<AND <VERB? SHOW>
+		     <PRSI? ,PETE>>
+		<COND (<AND <IN? ,ID-CARD ,ENVELOPE>
+			    <OR <PRSO? ,ENVELOPE>
+			        <PRSO? ,ID-CARD>>>
+		       <TELL
+"Pete takes the " D ,ENVELOPE ", studies it, then returns it. \"Looks like
+" D ,WEASEL "'s card to me,\" he says." CR>		       
+		       <RTRUE>)
+		      (<PRSO? ,ENVELOPE>
+		       <TELL "\"Looks like it's empty.\"" CR>
+		       <RTRUE>)
+		      (<PRSO? ,ID-CARD>
+		       <TELL
+"\"Looks like " D ,WEASEL "'s card. Better return it.\"" CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,PETE>>
+		<COND ;(<PRSI? ,GLOBAL-MEETING>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-WILL-FOLLOW>)>
+		       <COND (<AND <==? ,MEETINGS-COMPLETED 0>
+				   <L? ,PRESENT-TIME 525>>
+			      <COND (<G? ,FM-CTR 1>
+				     <TELL "\"That's what we're having.\"" CR>)
+				    (<IN? ,WEASEL ,SHANTY>
+				     <TELL
+"\"We can start as soon as you sit down.\"" CR>)
+				    (T <TELL
+"\"Yeah. Johnny wants to talk about something he found. We're waiting
+for " D ,WEASEL ".\"" CR>)>)
+			     (<AND <==? ,MEETINGS-COMPLETED 1>
+				   <L? ,PRESENT-TIME 586>>
+			      <COND (<==? ,HERE ,WINDING-ROAD-1>
+				     <TELL "\"That's why we're here.\"" CR>)
+				    (T <TELL 
+"\"Didn't you hear Johnny? We meet at the " D ,LIGHTHOUSE " at 9:30.\"" CR>)>)
+			     (<==? ,MEETINGS-COMPLETED 2>
+			      <COND (<L? ,PRESENT-TIME 705>
+				     <TELL
+"\"The Weasel and me meet Johnny in " D ,SHANTY " at 11:45. But I don't
+think you're supposed to be there.\"" CR>)
+				    (T <TELL
+"\"Forget it. The deal's off.\"" CR>)>)
+			     (<OR <G? ,PRESENT-TIME 870>
+				  <G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>>
+			      <TELL
+"\"I don't think there's any more " D ,GLOBAL-MEETING "s.\"" CR>)
+			     (<==? ,MEETINGS-COMPLETED 3>
+			      <TELL
+"\"We're supposed to meet at 2:30 at the ship, I think.\"" CR>)
+			     (T <TELL
+"\"The " D ,GLOBAL-MEETING " was called off since everyone wasn't there.\""
+CR>)>)
+		      (<PRSI? ,GLOBAL-TREASURE>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-WILL-FOLLOW>)>
+		       <COND (<L? ,FM-CTR 3>
+			      <TELL
+"\"I think that's what Johnny wants to talk about.\"" CR>)
+			     (<L? <GETP ,HERE ,P?LINE> ,TRAWLER-LINE-C>
+			      <TELL "\"Looks like Johnny found some.\"" CR>)
+			     (T <TELL "\"That's what we're lookin' for.\"" CR>)>)
+		      (<AND <PRSI? ,SAMPLE-TREASURE>
+			    <IN? ,SAMPLE-TREASURE ,JOHNNY>>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-WILL-FOLLOW>)>
+		       <TELL
+"\"You saw it. You should know more about it than me.\"" CR>)
+		      ;(<AND <PRSI? ,LEFT-BUTTON ,RIGHT-BUTTON ,DECK-CHAIR>
+			    <G? <GETP ,HERE ,P?LINE>
+				,BACK-ALLEY-LINE-C>>
+		       <TELL
+"\"You've never seen this setup? The " D ,LEFT-BUTTON
+" tells the captain there's
+danger to port, and the " D ,RIGHT-BUTTON
+" means there's something to starboard.\"" CR>)
+		      (<PRSI? ,PETES-PATCH>
+		       <TELL
+"\"That's my eyepatch. It covers my bad eye.\"" CR>)
+		      (<PRSI? ,STOVE>
+		       <TELL "\"There's nothing special about the " D ,STOVE ".\"" CR>)
+		      (<PRSI? ,SPEAR-CARRIER>
+		       <TELL "\"He's a good guy.\"" CR>)
+		      (<PRSI? ,JOHNNY>
+		       <TELL 
+"Pete thinks for a second. \"Yeah, Red's a friend of mine.\"" CR>)
+		      (<PRSI? ,MCGINTY>
+		       <TELL 
+"\"I done work for him, but I don't like him.\"" CR>)
+		      (<PRSI? ,HEVLIN>
+		       <TELL-NEVER-KNEW>)
+		      (<PRSI? ,WEASEL>
+		       <TELL "Pete frowns for a moment, then ">
+		       <COND (<IN? ,WEASEL ,HERE>
+			      <TELL "leans over and whispers">)
+			     (T <TELL "says">)>
+		       <TELL 
+", \"The Weasel's a friend, but I don't trust him. He's awful quick
+with that knife.\"" CR>)
+		      (<PRSI? ,PETE>
+		       <TELL-KNOW-ME>)
+		      (<PRSI? ,ME>
+		       <TELL-YOURE-DIVER>)
+		      (<PRSI? ,PARROT>
+		       <TELL "\"He's weird. He talks funny.\"" CR>)
+		      (<AND <PRSI? ,FOOD>
+			    <G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>>
+		       <TELL
+"\"It's a beef stew. There's nothing wrong with it.\"" CR>)
+		      (<PRSI? ,SALVAGER ,TRAWLER>
+		       <TELL "\"She's a boat.\"" CR>)
+		      (T <RFALSE>)>
+		<RTRUE>)>
+	 <COND (<EQUAL? ,WINNER ,PETE>
+		<COND (<PRSO? ,GLOBAL-SELF>
+		       <SETG PRSO ,PETE>)>
+		<COND (<PRSI? ,GLOBAL-SELF>
+		       <SETG PRSI ,PETE>)>
+		<COND (<AND <VERB? TELL>
+			    <PRSO? ,ME>>
+		       <RFALSE>)
+		      (<VERB? $CALL>
+		       <TELL-SO-WHAT>)
+		      (<AND <VERB? SHOW>
+			    <IN? ,PRSO ,PETE>
+			    <PRSI? ,ME>>
+		       <SETG WINNER ,PLAYER>
+		       <PERFORM ,V?EXAMINE ,PRSO>
+		       <SETG WINNER ,PETE>)
+		      (<VERB? YES NO MAYBE LATITUDE LONGITUDE WHAT FIND SSHOW
+			      ALARM>
+		       <RFALSE>)
+		      (T
+		       <TELL "\"I don't think I can do that.\"" CR>
+		       <RFATAL>)>)>>
+
+<ROUTINE I-PETE ("OPTIONAL" (GARG <>) "AUX" (L <LOC ,PETE>) PMG)
+	 <COND (<NOT .GARG>
+		<COND (<AND <G? ,FM-CTR 1>
+			    <L? ,FM-CTR 5>>
+		       <ENABLE <QUEUE I-PETE 1>>
+		       <RFALSE>)> ;"So he doesn't leave during 1st meeting"
+		<SET PMG <GET ,MOVEMENT-GOALS ,PETE-C>>
+		<COND (<AND <EQUAL? <GET .PMG ,MG-ROOM> ,MM-GALLEY>
+			    <EQUAL? ,SHIP-CHOSEN ,TRAWLER>>
+		       <PUT .PMG ,MG-ROOM ,NW-GALLEY>)>
+		<IMOVEMENT ,PETE I-PETE>)
+	       (<==? .GARG ,G-REACHED>
+		<COND (<AND <EQUAL? .L ,MM-GALLEY ,NW-GALLEY>
+			    <EQUAL? <GETP .L ,P?LINE>
+				    <GETP <META-LOC ,PLAYER> ,P?LINE>>>
+		       <FSET ,FOOD ,NDESCBIT>
+		       <MOVE ,FOOD ,STOVE>)>
+		<COND (<==? ,HERE .L>
+		       <COND ;(<==? ,PETE ,SEARCHER>
+		       	      <SETG SEARCHER <>>
+		       	      <ESTABLISH-GOAL ,PETE <LOC ,DRINKING-WATER>>
+			      ;<COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+			      	     <ESTABLISH-GOAL ,PETE ,MM-GALLEY>)
+			     	    (T <ESTABLISH-GOAL ,PETE ,NW-GALLEY>)>
+		       	      <COND (<IN? ,DECK-CHAIR .L>
+				     <SET-NEXT-WATCH>
+				     <TELL-COMES-UP ,PETE>
+				     <TELL-MAKE-SURE>)
+				    (T
+				     <TELL-COMES-UP ,PETE>
+				     <TELL-DO-WATCH>)>)
+			     (T
+			      <TELL D ,PETE
+" arrives, quickly taking in the situation." CR>
+			      ;<COND (<AND <EQUAL? .L ,MM-CREW-QTRS
+						     ,NW-CREW-QTRS>
+					  ,AT-SEA>
+				     <TELL
+" comes in and falls asleep in one of the bunks." CR>)
+				    (T <TELL
+" arrives, quickly taking in the situation." CR>)>
+			      <RFATAL>)>)
+		      ;(,DEBUG
+		       <TELL "[Pete the Rat has arrived at " D .L ".]" CR>)>)>>
+
+<OBJECT PETES-PATCH
+	(IN PETE)
+	(DESC "Pete's eyepatch")
+	(SYNONYM EYEPAT PATCH)
+	(ADJECTIVE PETE\'S PETES BLACK)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(ACTION PETES-PATCH-F)>
+
+<ROUTINE PETES-PATCH-F ()
+	 <COND (<OR <VERB? LOOK-UNDER ASK-FOR DISEMBARK>
+		    <VERB? MOVE>
+		    <AND <VERB? TAKE>
+			 <OR <NOT ,PRSI>
+			     <PRSI? ,PETE>>>>
+		<TELL "Mind your manners." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "It's a standard black eyepatch." CR>)>>
+
+<OBJECT WEASEL
+	(IN FERRY-LANDING)
+	(DESC "the Weasel")
+	(DESCFCN WEASEL-F)
+	(SYNONYM WEASEL WEBSTE)
+	(ADJECTIVE FRANK MR MISTER)
+	(CHARACTER 4)
+	(FLAGS PERSON VICBIT)
+	(TEXT
+"The Weasel is a small, greasy man with shifty eyes. He loves his sharp
+little knife more than life itself, and would sell out anybody for a price.
+Even himself.")
+	(CONTFCN WEASEL-F)
+	(ACTION WEASEL-F)>
+
+;<ROUTINE TELL-WHAT-MEETING? ()
+	 <TELL 
+"\"What meeting? I don't know nothing about no meeting.\"" CR>>
+
+;<ROUTINE TELL-BUTTON-EXPLAIN ()
+	 <TELL
+"\"Those are the buttons that tell the captain when there's danger ahead. The
+" D ,LEFT-BUTTON
+" means there's something to port, and the right one is for something
+to starboard.\"" CR>>
+
+;<ROUTINE TELL-MEETING-OFF ()
+	  <TELL
+"\"The meeting got cancelled when you didn't show.\"" CR>>
+
+<ROUTINE WEASEL-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<COND (<AND <IN? ,ENVELOPE ,PLAYER> <WEASEL-BEATS-YOU>>
+		       <RTRUE>)
+		      ;(<==? ,SEARCHER ,WEASEL>
+		       <SETG SEARCHER <>>
+		       <COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+			      <ESTABLISH-GOAL ,WEASEL ,MM-ENGINE-ROOM>)
+			     (T <ESTABLISH-GOAL ,WEASEL ,NW-ENGINE-ROOM>)>
+		       <COND (<IN? ,DECK-CHAIR <LOC ,WEASEL>>
+			      <SET-NEXT-WATCH>
+			      <TELL
+"The Weasel appears beside you. \"Glad you got here. You were late.\"" CR>)
+			     (T
+			      <TELL
+"The Weasel stalks in. \"You better get topside and stand your
+watch. Now.\"" CR>)>)
+		      (,WEASEL-APPREHENDED
+      		       <COND (<EQUAL? ,HERE ,MM-LOUNGE ,NW-LOUNGE>
+			      <TELL-TIED>)
+			     (T <TELL
+"The Weasel is firmly in Johnny's grasp.">)>
+		       <CRLF>)
+		      (<AND <QUEUED? I-PENDULUM>
+			    <==? <GET <INT I-PENDULUM> ,C-TICK> -1>>
+		       <RTRUE>)
+		      (<AND <==? ,HERE ,UPSTAIRS-HALLWAY>
+			    <QUEUED? I-WEASEL-TO-BEDROOM>>
+		       <DISABLE <INT I-WEASEL-TO-BEDROOM>>
+		       <TELL "The Weasel sees you come up">
+		       <TELL-WEASEL-EXCUSE>)
+		      (<OR <AND <G? ,FM-CTR 1>
+			    	<L? ,FM-CTR 5>>
+			   <AND <==? ,PRESENT-TIME 704>
+				<==? ,HERE ,SHANTY>>>
+		       <TELL "The Weasel is sitting here, eyes darting." CR>)
+		      (<OR <IN-MOTION? ,WEASEL>
+			   <TRAITOR-TIME?>>
+		       <RTRUE>)
+		      (<FSET? ,WEASEL ,TOUCHBIT>
+		       <COND ;(<EQUAL? ,HERE ,MM-ENGINE-ROOM ,NW-ENGINE-ROOM>
+			      <TELL
+"The Weasel is tinkering with the engines." CR>)
+			     (<AND <EQUAL? <LOC ,WEASEL> ,MM-AFT-DECK
+					   		 ,NW-AFT-DECK>
+				   ,AT-SEA ;,MOMENT-OF-TRUTH
+				   <NOT ,WEASEL-APPREHENDED>
+				   <NOT <QUEUED? I-PENDULUM>>>
+			      <ENABLE <QUEUE I-PENDULUM -1>>
+		       	      <TELL-WEASEL-TOSSES>);"throws line over side"
+			     ;(<AND <EQUAL? <LOC ,WEASEL> ,MM-CREW-QTRS
+					   		 ,NW-CREW-QTRS>
+				   ,AT-SEA
+				   <NOT <EQUAL? <GET <GET ,GOAL-TABLES
+						   <GETP ,WEASEL ,P?CHARACTER>>
+						    ,GOAL-F> ,MM-ENGINE-ROOM
+							     ,NW-ENGINE-ROOM>>>
+			      <TELL "The Weasel is asleep in a bunk." CR>)
+			     (T <TELL
+"The Weasel is picking his teeth with a nasty knife, looking around furtively." CR>)>)
+		      (T <TELL 
+"A short, wiry guy known only as \"" D ,WEASEL
+"\" is over in a corner, picking
+his teeth with a knife." CR>
+		       <FSET ,WEASEL ,TOUCHBIT>)>
+		<RTRUE>)
+	       (<==? .RARG ,M-CONT>
+		<COND (<AND <VERB? TAKE>
+			    <FSET? ,PRSO ,TAKEBIT>>
+		       <TELL
+"The Weasel glares at you. \"I ain't gonna give that to ya!\"" CR>
+		       <RTRUE>)
+		      (T <RFALSE>)>)>
+	 <COND (<==? ,WINNER ,WEASEL>
+		<COND (<NOT <==? <META-LOC ,WEASEL> <META-LOC ,PLAYER>>>
+		       <SETG P-CONT <>>
+		       <TELL-NOT-HERE-TALK>
+		       <RFATAL>)
+		      (<TRAITOR-TIME?>
+		       <TELL-IN-MEETING>
+		       <RFATAL>)>)>
+	 <FSET ,WEASEL ,TOUCHBIT>
+	 <COND (<AND <VERB? FOLLOW>
+		     <PRSO? ,WEASEL>>
+		<RFALSE>)
+	       (<AND <VERB? $CALL>
+		     <TRAITOR-TIME?>>
+		<TELL-IN-MEETING>
+		<RTRUE>)
+	       (<AND <VERB? UNTIE>
+		     ,WEASEL-APPREHENDED
+		     <EQUAL? ,HERE ,MM-LOUNGE ,NW-LOUNGE>>
+		<JIGS-UP
+"The Weasel, quite panic-stricken, doesn't stop to thank you before he
+pulls a small knife from his ankle and kills you.">)
+	       (<VERB? SEARCH>
+		<COND (,WEASEL-APPREHENDED
+		       <COND (<IN? ,PASSBOOK ,WEASEL>
+			      <MOVE ,PASSBOOK ,PLAYER>
+			      <TELL "You take back your passbook." CR>)
+			     (T <TELL
+"Despite his writhing, you search him fruitlessly." CR>)>)
+		      (,WEASEL-PISSED
+		       <JIGS-UP 
+"The Weasel glares at you and says, \"I don't take this from no one!\" He
+pulls out his knife, touches its too-sharp point with a finger, then introduces
+it to your chest.">)
+		      (T
+		       <SETG WEASEL-PISSED T>
+		       <TELL 
+"The Weasel shrinks back and says, \"Hey, don't you trust me? I don't gotta
+take this from you!\"" CR>)>
+		<RTRUE>)
+	       (,WEASEL-APPREHENDED
+		<COND (<VERB? EXAMINE>
+		       <TELL-TIED>)
+		      (<AND <VERB? ASK-ABOUT TELL>
+			    <PRSI? ,WEASEL>
+			    <NOT <PRSO? ,WEASEL>>>
+		       <RFALSE>)
+		      (<NOT <IN? ,WEASEL ,HERE>>
+		       <RFALSE>)
+		      (<VERB? FIND>
+		       <RFALSE>)
+		      (T <TELL "The Weasel just glares at you.">)>
+		<CRLF>
+		<COND (<AND <VERB? TELL ASK-ABOUT>
+			    <PRSO? ,WEASEL>>
+		       <SETG QCONTEXT ,WEASEL>
+		       <SETG QCONTEXT-ROOM ,HERE>)>
+		<RFATAL>)
+	       (<VERB? HELLO>
+	        <SETG QCONTEXT ,WEASEL>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Yeah. Hi.\"" CR>
+		<RTRUE>)
+	       (<VERB? GOODBYE>
+		<SETG QCONTEXT ,WEASEL>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Yeah. Bye.\"" CR>
+		<RTRUE>)
+	       (<OR <AND <VERB? ASK-FOR>
+		     	 <PRSO? ,WEASEL>>
+		    <AND <VERB? TAKE>
+			 <PRSI? ,WEASEL>>>
+		<COND (<EQUAL? ,KNIFE ,PRSI ,PRSO>
+		       <RFALSE>)
+		      (T
+		       <TELL "\"If I got it, I ain't gonna give it to ya.\"" CR>)>
+		<RTRUE>)
+	       (<VERB? BUY>
+		<COND (<PRSO? ,FERRY-TOKEN>
+		       <TELL "\"I might need it. Try the bank.\"" CR>
+		       <RTRUE>)>)>
+	 <COND (<AND <VERB? $CALL> <==? ,WINNER ,PLAYER>> <RFALSE>)
+	       (<NOT <GRAB-ATTENTION ,WEASEL>> <RTRUE>)>
+	 <COND (<AND <VERB? GIVE>
+		     <OR <PRSO? ,ENVELOPE>
+			 <PRSO? ,ID-CARD>>>
+		<PERFORM ,V?SHOW ,PRSO ,WEASEL>
+		<RTRUE>)
+	       (<AND <VERB? SHOW>
+		     <PRSI? ,WEASEL>>
+		<COND (<AND <IN? ,ID-CARD ,ENVELOPE>
+			    <OR <PRSO? ,ENVELOPE>
+			        <PRSO? ,ID-CARD>>>
+		       <MOVE ,ENVELOPE ,WEASEL>
+		       <TELL
+"The Weasel takes the " D ,ENVELOPE ". \"Thanks. I was wonderin' what
+happened to my card.\"" CR>
+		       <RTRUE>)
+		      (<PRSO? ,ENVELOPE>
+		       <TELL
+"The Weasel shoves it back at you. \"I dunno nothin' about this. Could be old.\"" CR>
+		       <RTRUE>)
+		      (<PRSO? ,ID-CARD>
+		       <MOVE ,ID-CARD ,WEASEL>
+		       <TELL
+"The Weasel takes the card. \"Thanks. I'd be in trouble without this.\"" CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,WEASEL>>
+		<COND (<TRAITOR-TIME?>
+		       <TELL-IN-MEETING>
+		       <RFATAL>)
+		      ;(<PRSI? ,GLOBAL-MEETING>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-WILL-FOLLOW>
+			      <TELL
+"The Weasel glances at " D ,MCGINTY ", gives you a dirty look, and says, ">
+			      <TELL-WHAT-MEETING?>
+			      <RTRUE>)
+			     (<WEASEL-SHUFFLE>)>
+		       <COND (<==? ,MEETINGS-COMPLETED 0>
+			      <COND (<IN? ,PASSBOOK ,WEASEL>
+				     <TELL-WHAT-MEETING?>)
+				    (<L? ,PRESENT-TIME 525>
+				     <COND (<EQUAL? ,HERE ,SHANTY>
+					    <TELL
+"\"That's what we're here for.\"" CR>)
+					   (T <TELL
+"\"Yeah. " D ,JOHNNY " thinks he's found a big score and needs our help.\""
+CR>)>)
+				    (<QUEUED? I-FIRST-MEETING>
+				     <TELL "\"When you sit down...\"" CR>)
+				    (T <TELL-MEETING-OFF>)>)
+			     (<==? ,MEETINGS-COMPLETED 1>
+			      <COND (<L? ,PRESENT-TIME 586>
+				     <COND (<EQUAL? ,HERE ,WINDING-ROAD-1>
+					    <TELL
+"\"That's what we're here for.\"" CR>)
+					   (T
+					    <TELL "\"Weren't you listening">
+					    <COND (<NOT <EQUAL? 
+							 ,HERE
+							 <META-LOC ,SHANTY>>>
+						   <TELL " in " D ,SHANTY>)>
+					    <TELL
+"? We're " D ,GLOBAL-MEETING " at the " D ,LIGHTHOUSE " at 9:30.\"" CR>)>)
+				    (T <TELL-MEETING-OFF>)>)
+			     (T
+			      <TELL "\"We don't meet again.">
+			      <COND (<L? ,PRESENT-TIME 870>
+				     <TELL " I'll see ya when we cast off.">)>
+			      <TELL "\"" CR>)>)
+		      (<PRSI? ,GLOBAL-TREASURE>
+		       <COND (<IN? ,MCGINTY ,HERE>
+			      <MCGINTY-WILL-FOLLOW>
+			      <TELL
+"The Weasel glances at " D ,MCGINTY " and says, \"What " D ,GLOBAL-TREASURE
+"?\"" CR>)
+			     (<L? ,FM-CTR 3>
+			      <TELL
+"\"That could be what Johnny wants to talk about.\"" CR>)
+			     (T <TELL
+"\"I guess that's what we're lookin' for.\"" CR>)>)
+		      ;(<AND <PRSI? ,LEFT-BUTTON ,RIGHT-BUTTON ,DECK-CHAIR>
+			    <G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>>
+		       <TELL-BUTTON-EXPLAIN>)
+		      (<PRSI? ,KNIFE>
+		       <TELL "\"Yeah. That's my knife.\"" CR>)
+		      (<PRSI? ,HEVLIN>
+		       <TELL-NEVER-KNEW>)
+		      (<PRSI? ,PETES-PATCH>
+		       <TELL "\"Pete's worn it as long as I've known him.\"" CR>)
+		      (<PRSI? ,SALVAGER ,TRAWLER>
+		       <TELL "\"It's a decent boat.\"" CR>)
+		      (<PRSI? ,SPEAR-CARRIER>
+		       <TELL "\"I guess he's okay.\"" CR>)
+		      (<PRSI? ,JOHNNY>
+		       <TELL "\"Yeah. Red's okay.\"" CR>)
+		      (<PRSI? ,ME>
+		       <TELL-YOURE-DIVER>)
+		      (<PRSI? ,PETE>
+		       <TELL
+"\"Pete's a good guy. Just don't eat his chow.\"" CR>)
+		      (<PRSI? ,MCGINTY>
+		       <WEASEL-SHUFFLE>
+		       <TELL
+"\"He's all right. I work with him now and then.\"" CR>)
+		      (<PRSI? ,WEASEL>
+		       <TELL-KNOW-ME>)
+		      (<PRSI? ,PARROT>
+		       <TELL "\"She is one strange bird.\"" CR>)
+		      (<PRSI? ,FERRY ,GLOBAL-FERRY>
+		       <WEASEL-SHUFFLE>;"?"
+		       <TELL "\"I use it to go home on the mainland.\"" CR>)
+		      (<PRSI? ,LINE-HACK>
+		       <TELL ,LINE-STR CR>)
+		      (T <RFALSE>)>
+		<RTRUE>)>
+	 <COND (<EQUAL? ,WINNER ,WEASEL>
+		<COND (<PRSO? ,GLOBAL-SELF>
+		       <SETG PRSO ,WEASEL>)>
+		<COND (<PRSI? ,GLOBAL-SELF>
+		       <SETG PRSI ,WEASEL>)>
+		<COND (<AND <VERB? TELL>
+			    <PRSO? ,ME>>
+		       <RFALSE>)
+		      (<VERB? $CALL>
+		       <TELL-SO-WHAT>)
+		      (<AND <VERB? SHOW>
+			    <IN? ,PRSO ,WEASEL>
+			    <NOT <PRSO? ,ENVELOPE ,PASSBOOK>>
+			    <PRSI? ,ME>>
+		       <SETG WINNER ,PLAYER>
+		       <PERFORM ,V?EXAMINE ,PRSO>
+		       <SETG WINNER ,WEASEL>)
+		      (<AND <==? ,FM-CTR 2>
+			    <VERB? SIT SIT-ON>>
+		       <TELL "\"Wait a second.\"" CR>)
+		      (<VERB? YES NO MAYBE LATITUDE LONGITUDE WHAT FIND SSHOW
+			      ALARM>
+		       <RFALSE>)
+		      (T
+		       <TELL "\"I don't wanna do that.\"" CR>
+		       <RFATAL>)>)>>
+
+<ROUTINE WEASEL-SHUFFLE ()
+	 <COND (<AND <G? ,PRESENT-TIME 840>
+		     <NOT <IN? ,ENVELOPE ,LOCAL-GLOBALS>>>
+		<TELL "The Weasel's eyes dart as he shuffles his feet. ">)>>
+
+<ROUTINE TELL-TIED ()
+	 <TELL "The Weasel is tied up and squirming.">>
+
+<ROUTINE I-WEASEL ("OPTIONAL" (GARG <>) "AUX" (L <LOC ,WEASEL>)(VAL <>) GT)
+	 <COND (<NOT .GARG>
+		<COND (<AND <G? ,FM-CTR 1>
+			    <L? ,FM-CTR 5>>
+		       <ENABLE <QUEUE I-JOHNNY 1>>
+		       <RFALSE>)> ;"So he doesn't leave during 1st meeting"
+		<IMOVEMENT ,WEASEL I-WEASEL>)
+	       (<==? .GARG ,G-REACHED>
+		<COND (<AND <EQUAL? .L <META-LOC ,PLAYER>>
+			    <IN? ,ENVELOPE ,PLAYER>
+		       	    <WEASEL-BEATS-YOU>>
+		       <RTRUE>)
+		      (<AND <==? .L ,BANK>
+			    <IN? ,PASSBOOK ,WEASEL>>
+		       <SETG PASSBOOK-BALANCE 0>
+		       <SETG STUPID-PROBLEM-STRING "September 19">)
+		      ;(<AND <EQUAL? .L ,MM-AFT-DECK ,NW-AFT-DECK>
+			    <IN? ,PLAYER .L>
+			    <NOT <QUEUED? I-PENDULUM>>>
+		       <ENABLE <QUEUE I-PENDULUM -1>>
+		       <TELL-WEASEL-TOSSES>
+		       <SET VAL T>)
+		      (<==? .L ,UPSTAIRS-HALLWAY>
+		       <COND (<AND <IN? ,PASSBOOK ,UPSTAIRS-HALLWAY>
+				   <G? ,PASSBOOK-BALANCE 99>
+				   <NOT <IN? ,PLAYER ,UPSTAIRS-HALLWAY>>>
+			      <MOVE ,PASSBOOK ,WEASEL>
+			      <PUT ,MOVEMENT-GOALS ,WEASEL-C
+				   ,WEASEL-RETIRES-TABLE>
+			      <IMOVEMENT ,WEASEL I-WEASEL>)
+			     (<==? <META-LOC ,PLAYER> ,BEDROOM>
+			      <COND (<FSET? ,BEDROOM-DOOR ,OPENBIT>
+				     <MOVE ,WEASEL ,BEDROOM>
+				     <COND (<G? ,PRESENT-TIME 540>
+					    <TELL
+"The Weasel comes in, and fear flashes across his face. \"Don't forget to
+meet Johnny later,\" he says." CR>)
+					   (T <TELL 
+"You hear something at the door and ">
+					    <COND (<OR <NOT <VERB? OPEN>>
+						   <NOT <PRSO? ,BEDROOM-DOOR>>>
+						   <TELL "turn to ">)>
+					    <TELL
+"see " D ,WEASEL " walk in. Fear flashes across his face, but only for an
+instant. He says, \"Oh, hi. I was just wonderin' if you was comin' to
+the meeting. Looks like we found the real thing this
+time.\"" CR>)>
+				     <ESTABLISH-GOAL ,WEASEL ,SHANTY>)
+				    (T
+				     <ENABLE <QUEUE I-WEASEL-TO-BEDROOM 2>>
+				     <TELL "You hear a knock at the door." CR>
+				     <SETG P-IT-OBJECT ,BEDROOM-DOOR>)>
+			      <SET VAL ,M-FATAL>)
+			     (<==? ,HERE ,UPSTAIRS-HALLWAY>
+			      <TELL
+"The Weasel gets to the top of the stairs, sees you,">
+			      <TELL-WEASEL-EXCUSE>
+			     ;<COND (<NOT ,BEDROOM-MESSAGE>
+				     <TELL
+"The Weasel gets to the top of the stairs, sees you,">
+				     <TELL-WEASEL-EXCUSE>)
+				    (T <TELL 
+"The Weasel enters the hallway from your room. His hands are jammed deep
+into his pockets as he looks at the floor." CR>)>
+			      <SET VAL ,M-FATAL>)
+			     (T
+			      ;<COND (,DEBUG
+			    <TELL "[The Weasel has arrived at " D .L ".]" CR>)>
+			      <COND (<FSET? ,BEDROOM-DOOR ,OPENBIT>
+				     <WEASEL-ALONE-IN-BEDROOM>)
+				    (T <ENABLE <QUEUE I-WEASEL-TO-BEDROOM 2>>)>)>)
+		      (<==? .L ,HERE>
+		       <COND ;(<==? ,SEARCHER ,WEASEL>
+		       	      <SETG SEARCHER <>>
+		       	      <COND (<==? ,SHIP-CHOSEN ,SALVAGER>
+			      	     <ESTABLISH-GOAL ,WEASEL ,MM-ENGINE-ROOM>)
+			     	    (T <ESTABLISH-GOAL ,WEASEL ,NW-ENGINE-ROOM>)>
+			      <COND (<IN? ,DECK-CHAIR .L>
+				     <SET-NEXT-WATCH>
+				     <TELL
+"The Weasel appears beside you. \"Glad you got up here. You were late.\"" CR>)
+				    (T
+				     <TELL
+"The Weasel stalks in, looking angry. \"You better get topside and stand your
+watch. Now.\"" CR>)>)
+			     (T
+		       	      <TELL
+"The Weasel approaches, glancing around furtively." CR>
+			      ;<COND (<AND <EQUAL? .L ,MM-CREW-QTRS
+						     ,NW-CREW-QTRS>
+					  ,AT-SEA>
+				     <TELL
+"The Weasel comes in and climbs into a bunk for some sleep." CR>)
+				    (T <TELL
+"The Weasel approaches, glancing around furtively." CR>)>
+		              <SET VAL ,M-FATAL>)>)
+		      ;(,DEBUG
+		       <TELL "[The Weasel has arrived at " D .L ".]" CR>)>
+		<WEASEL-CHECK ,ENVELOPE .L>
+		<WEASEL-CHECK ,ID-CARD .L>
+		<RETURN .VAL>)
+	       (<EQUAL? .GARG ,G-ENROUTE>
+		<COND (<AND <==? ,HERE ,UPSTAIRS-HALLWAY>
+			    ,BEDROOM-MESSAGE>
+		       <SETG BEDROOM-DOOR-LOCKED <>>)>
+	        <COND (<AND <IN? ,PASSBOOK .L>
+			    <G? ,PASSBOOK-BALANCE 99>
+			    <NOT <IN? ,WEASEL <META-LOC ,PLAYER>>>>
+		       <MOVE ,PASSBOOK ,WEASEL>
+		       <SET GT <GET ,GOAL-TABLES ,WEASEL-C>>
+		       <COND (<==? <GET .GT ,GOAL-F> ,FERRY-LANDING>
+			      <ESTABLISH-GOAL ,WEASEL ,BACK-ALLEY-5>)>
+		       <COND (<L? <GETP .L ,P?LINE> ,TRAWLER-LINE-C>
+			      <PUT ,MOVEMENT-GOALS ,WEASEL-C
+				   ,WEASEL-RETIRES-TABLE>
+		       	      <IMOVEMENT ,WEASEL I-WEASEL>)>)>
+	        <COND (<AND <IN? ,ENVELOPE ,PLAYER>
+			    <EQUAL? .L <META-LOC ,PLAYER>>
+		       	    <WEASEL-BEATS-YOU>>
+		       <RTRUE>)
+		      (T <WEASEL-CHECK ,ENVELOPE .L>)>
+	        <WEASEL-CHECK ,ID-CARD .L>)>>
+
+<ROUTINE TELL-WEASEL-PICKUP (STR)
+	 <TELL "The Weasel picks up " .STR "." CR>>
+
+<ROUTINE TELL-WEASEL-EXCUSE ()
+	 <ESTABLISH-GOAL ,WEASEL ,SHANTY>
+	 <TELL " and says, ">
+	 <COND (<G? ,PRESENT-TIME 540>
+		<TELL
+"\"Umm, well, better not forget to meet with Johnny.\"" CR>)
+	       (T <TELL
+"\"Oh. I was just checkin' to see if you're goin' to the meeting at "
+D ,SHANTY ".\" He looks slightly disappointed." CR>)>>
+
+;<ROUTINE ENVELOPE-CHECK (L)
+	 <COND (<OR <AND <NOT <IN? ,ENVELOPE ,UNDER-BUNK>>
+			 <==? <META-LOC ,ENVELOPE> .L>
+			 <NOT <FSET? <LOC ,ENVELOPE> ,PERSON>>>
+		    <REALLY-HERE? ,ENVELOPE .L>>
+		<MOVE ,ENVELOPE ,WEASEL>
+		<COND (<EQUAL? .L <META-LOC ,PLAYER>>
+		       <TELL-WEASEL-PICKUP "the envelope">)>)>>
+
+<ROUTINE WEASEL-CHECK (OBJ L)
+	 <COND (<OR <AND <NOT <EQUAL? <LOC .OBJ> ,ENVELOPE ,UNDER-BUNK>>
+			 <==? <META-LOC .OBJ> .L>
+			 <NOT <FSET? <LOC .OBJ> ,PERSON>>>
+		    <REALLY-HERE? .OBJ .L>>
+	        <MOVE .OBJ ,WEASEL>
+		<COND (<EQUAL? .L <META-LOC ,PLAYER>>
+		       <COND (<==? .L ,ID-CARD>
+			      <TELL-WEASEL-PICKUP "his card">)
+			     (T <TELL-WEASEL-PICKUP "the envelope">)>)>)>>
+
+<ROUTINE REALLY-HERE? (OBJ L "AUX" (CTR 0))
+	 <REPEAT ()
+		 <COND (<G? .CTR 44> <RETURN>)
+		       (<AND <==? <GET ,SHARED-OBJECT-TABLE .CTR> .OBJ>
+			     <==? <GET ,SHARED-OBJECT-TABLE <+ .CTR 1>> .L>
+			     <NOT <==? <GET ,SHARED-OBJECT-TABLE <+ .CTR 2>>
+				       ,UNDER-BUNK>>>
+			<PUT ,SHARED-OBJECT-TABLE .CTR 0>
+			<PUT ,SHARED-OBJECT-TABLE <+ .CTR 1> 0>
+			<PUT ,SHARED-OBJECT-TABLE <+ .CTR 2> 0>
+			<RTRUE>)>
+		 <SET CTR <+ .CTR 3>>>
+	 <RFALSE>>
+
+<ROUTINE I-WEASEL-TO-BEDROOM ()
+	 <COND (,BEDROOM-DOOR-LOCKED
+		<ESTABLISH-GOAL ,WEASEL ,SHANTY>
+		<RFALSE>)
+	       (T
+		<COND (<==? <META-LOC ,PLAYER> ,BEDROOM>
+		       <MOVE ,WEASEL ,BEDROOM>
+		       <TELL
+"The door opens and " D ,WEASEL " walks in. He sees you and says, \"Oh. Hi.
+I just wanted to make sure you ">
+		       <COND (<G? ,PRESENT-TIME 540>
+			      <TELL "remembered to meet Johnny later.\"">)
+			      (T
+			       <TELL
+"knew about the meetin' at " D ,SHANTY ".">
+		       	       <COND (<FSET? ,NOTE ,TOUCHBIT>
+			      	      <TELL " You got Johnny's note, right?\"">)
+			     	     (T <TELL 
+"\" He points to the note on the floor. \"You better read this note.\"">)>)>
+		       <CRLF>
+		       <ESTABLISH-GOAL ,WEASEL ,SHANTY>)
+		      (T <WEASEL-ALONE-IN-BEDROOM> <RFALSE>)>)>>
+
+<ROUTINE WEASEL-ALONE-IN-BEDROOM ("AUX" WGT)
+	 <SET WGT <GET ,GOAL-TABLES ,WEASEL-C>>
+	 <MOVE ,WEASEL ,BEDROOM>
+	 <PUT .WGT ,ATTENTION 5>
+	 <FSET ,BUREAU ,OPENBIT>
+	 <COND (<AND <EQUAL? <META-LOC ,PASSBOOK> ,BEDROOM>
+		     <G? ,PASSBOOK-BALANCE 99>>
+	        <MOVE ,PASSBOOK ,WEASEL>
+	        <PUT ,MOVEMENT-GOALS ,WEASEL-C ,WEASEL-RETIRES-TABLE>
+		<IMOVEMENT ,WEASEL I-WEASEL>)
+	       (T <ESTABLISH-GOAL ,WEASEL ,SHANTY>)>
+	 <PUT .WGT ,GOAL-ENABLE <>>
+	 <SETG BEDROOM-MESSAGE
+"You can't help notice that your dresser has been opened and the contents
+messed up.">>
+
+<ROUTINE WEASEL-BEATS-YOU ()
+	 <COND (,WEASEL-APPREHENDED
+		<RFALSE>)
+	       (T
+		<TELL-COMES-UP ,WEASEL>
+		<JIGS-UP
+"\"That's one of McGinty's envelopes!
+Traitor!\" Before you can respond, the Weasel's knife has violated the
+sanctity of your body.">)>>
+
+<OBJECT KNIFE
+	(IN WEASEL)
+	(DESC "Weasel's knife")
+	(SYNONYM KNIFE BLADE)
+	(ADJECTIVE OLD WEASEL USED WELL-W SHARP)
+	(FLAGS TRYTAKEBIT NDESCBIT WEAPONBIT)
+	(ACTION KNIFE-F)>
+
+<ROUTINE KNIFE-F ()
+	 <COND (<OR <VERB? TAKE>
+		    <AND <VERB? ASK-FOR>
+			 <PRSO? ,WEASEL>>>
+		<COND (<IN? ,KNIFE ,WEASEL>
+		       <TELL 
+"The Weasel pulls it away. \"Don't mess with my
+knife,\" he warns, \"or I'll give it to ya in a way ya won't much like.\"" CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL "This knife ">
+		<COND (<IN? ,KNIFE ,WEASEL>
+		       <TELL "is">)
+		      (T <TELL "was">)>
+		<TELL
+" " D ,WEASEL "'s, and it's razor sharp." CR>)>>
+
+<OBJECT ID-CARD
+	(IN LOCAL-GLOBALS)
+	(DESC "Merchant Seaman's card")
+	(SYNONYM CARD)
+	(ADJECTIVE MERCHA SEAMAN ID WEASEL)
+	(FLAGS READBIT TAKEBIT)
+	(TEXT "The card says:|
+   \"Frank Webster|
+   Seaman First Class|
+   No. 2626868\"")
+	(SIZE 2)>
+
+<OBJECT WATCH
+	(IN ADVENTURER)
+	(DESC "wrist watch")
+	(SYNONYM WATCH WRISTW TIMEPI)
+	(ADJECTIVE WRIST)
+	(FLAGS WEARBIT WORNBIT TAKEBIT TURNBIT)
+	(ACTION WATCH-F)>
+
+<ROUTINE WATCH-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL 
+"Your trusty old wind-up diver's watch is waterproof to 350 fathoms. It
+currently shows ">
+		<WATCH-TIME>
+		<TELL " a.m. (The AM/PM indicator never did work.)">
+		<COND (<NOT ,WATCH-WOUND>
+		       <TELL " The sweep hand isn't moving on it.">)>
+		<CRLF>)
+	       (<VERB? LISTEN>
+		<COND (,WATCH-WOUND
+		       <TELL "It's ticking." CR>)
+		      (T <TELL 
+"The " D ,WATCH " makes no sound. And it's not battery-operated." CR>)>)
+	       (<AND <VERB? WIND>
+		     <PRSO? ,WATCH>>
+		<SETG WATCH-WOUND T>
+		<ENABLE <QUEUE I-UNWOUND 1500>>
+		<TELL "Okay. You've wound the watch." CR>)
+	       (<VERB? SHAKE>
+		<TELL
+"Shaken. It's not self-winding, but it is shock-proof." CR>)
+	       (<VERB? TURN>
+		<COND (<NOT ,PRSI>
+		       <TELL 
+"If you want to set the watch, specify the time to which you want it set." CR>)
+		      (<PRSI? ,INTNUM>
+		       <COND (<OR <G? ,SET-HR 23>
+			          <G? ,SET-MIN 59>>
+		              <TELL 
+"Try setting it to a more reasonable time." CR>
+		              <RTRUE>)
+		             (<G? ,SET-HR 11>
+		              <SETG SET-HR <- ,SET-HR 12>>)>
+		       <SETG WATCH-SCORE ,SET-HR>
+		       <SETG WATCH-MOVES ,SET-MIN>
+		       <SETG SET-MIN 60>
+		       <TELL-NOW ,WATCH "set to " <>>
+		       <WATCH-TIME>
+		       <TELL "." CR>
+		       <RTRUE>)>)>>
+
+<ROUTINE WATCH-TIME ("AUX" HR)
+	 <COND (<0? ,WATCH-SCORE>
+		<SET HR 12>)
+	       (T <SET HR ,WATCH-SCORE>)>
+	 <TELL N .HR ":">
+	 <COND (<L? ,WATCH-MOVES 10>
+		<TELL "0">)>
+	 <TELL N ,WATCH-MOVES>>
+
+<OBJECT DELIVERY-BOY
+	(IN LOCAL-GLOBALS)
+	(SYNONYM BOY KID)
+	(ADJECTIVE DELIVE)
+	(DESC "Outfitters' delivery boy")
+	(DESCFCN DELIVERY-BOY-F)
+	(FLAGS VICBIT VOWELBIT)
+	(CHARACTER 5)
+	(ACTION DELIVERY-BOY-F)>
+
+<ROUTINE DELIVERY-BOY-F ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-OBJDESC>
+		<COND (<IN-MOTION? ,DELIVERY-BOY> <RTRUE>)
+		      (T <TELL
+"The " D ,DELIVERY-BOY " is here." CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The " D ,DELIVERY-BOY " is young. He's pushing a cart which is ">
+		<COND (,DELIVERY-MADE
+		       <TELL "currently empty">)
+		      (T <TELL "loaded with stuff">)>
+		<TELL "." CR>)
+	       (<OR <EQUAL? ,DELIVERY-BOY ,WINNER>
+		    <VERB? HELLO GOODBYE>
+		    <AND <VERB? TELL> <PRSO? ,DELIVERY-BOY>>>
+		<SETG QCONTEXT ,DELIVERY-BOY>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"I can't stop now. I'm working!\"" CR>
+		<SETG P-CONT <>>
+		<SETG QUOTE-FLAG <>>
+		<RTRUE>)>>
+
+<ROUTINE I-DELIVERY-BOY ("OPTIONAL" (GARG <>) "AUX" (L <LOC ,DELIVERY-BOY>)
+			                            DMG OBJ DEST)
+	 <COND (<NOT .GARG>
+		<SET DMG <GET ,MOVEMENT-GOALS ,DELIVERY-BOY-C>>
+		<COND (<L? ,PRESENT-TIME 485> T)
+		      (<OR <NOT <0? ,AMT-OWED>>
+			   <NOT ,JOHNNY-MADE-DEAL>>
+		       <RFALSE>)
+		      (<EQUAL? <GET .DMG ,MG-ROOM> ,MM-LOCKER>
+		       <MOVE ,DELIVERY-BOY ,OUTFITTERS-HQ>
+		       <COND (<EQUAL? ,SHIP-CHOSEN ,TRAWLER>
+		       	      <PUT .DMG ,MG-ROOM ,NW-LOCKER>)>)>
+		<IMOVEMENT ,DELIVERY-BOY I-DELIVERY-BOY>)
+	       (<==? .GARG ,G-REACHED>
+		<COND (<==? .L ,OUTFITTERS-HQ>
+		       <MOVE ,DELIVERY-BOY ,LOCAL-GLOBALS>)>
+		<COND (<EQUAL? .L ,MM-LOCKER ,NW-LOCKER>
+		       <REPEAT ()
+			<SETG DT-PTR <- ,DT-PTR 2>>
+			<COND (<L? ,DT-PTR 0> <RETURN>)>
+			<MOVE <SET OBJ <GET ,DELIVERY-TABLE ,DT-PTR>> .L>
+			<COND (<NOT <==? .OBJ ,COMPRESSOR>>
+			       <FSET .OBJ ,TAKEBIT>)>
+			<FCLEAR .OBJ ,TRYTAKEBIT>
+			<FCLEAR .OBJ ,NDESCBIT>>
+		       <SETG DELIVERY-MADE T>
+		       <ESTABLISH-GOAL ,DELIVERY-BOY ,OUTFITTERS-HQ>
+		       <COND (<==? .L ,HERE>
+			      <TELL
+"The " D ,DELIVERY-BOY" arrives with a cartful of stuff which he unloads." CR>
+			      <RFATAL>)>)
+		      (<==? .L ,HERE>
+		       <TELL "The " D ,DELIVERY-BOY " walks in." CR>
+		       <RFATAL>)
+		      ;(,DEBUG
+		       <TELL "[The delivery boy has arrived at " D .L ".]" CR>)>)
+	       (<==? .GARG ,G-ENROUTE>
+		<COND (<AND <EQUAL? .L ,MM-GALLEY ,NW-GALLEY>
+			    <NOT ,WATER-DELIVERED>>
+		       <SETG WATER-DELIVERED T>
+		       <PUT
+			<GET ,GOAL-TABLES ,DELIVERY-BOY-C> ,ATTENTION 2>
+		       <COND (<==? <GETP .L ,P?LINE>
+				   <GETP <META-LOC ,WINNER> ,P?LINE>>
+			      <MOVE ,DRINKING-WATER .L>
+		       	      <FSET ,DRINKING-WATER ,NDESCBIT>)>
+		       <COND (<IN? ,PLAYER .L>
+			      <TELL
+"The delivery boy stops to drop off some stuff." CR>)>)>)>>
+
+<GLOBAL DELIVERY-MADE <>>
+<GLOBAL WATER-DELIVERED <>>
+
+<OBJECT SPEAR-CARRIER
+	(IN RED-BOAR-INN)
+	(SYNONYM CLERK SALESM BARTEN TELLER)
+	(ADJECTIVE ROOM DESK BANK)
+	(SDESC "desk clerk")
+	(LDESC "A desk clerk is sitting behind the counter.")
+	(FLAGS VICBIT)
+	(ACTION SPEAR-CARRIER-F)>
+
+<ROUTINE SPEAR-CARRIER-F ("AUX" CHANGE COST)
+	 <COND (<VERB? HELLO>
+		<SETG QCONTEXT ,SPEAR-CARRIER>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"Hi there! What can I do for you?\"" CR>
+		<RTRUE>)
+	       (<VERB? GOODBYE>
+		<SETG QCONTEXT ,SPEAR-CARRIER>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "\"So long. See you around.\"" CR>
+		<RTRUE>)
+	       (<VERB? ALARM>
+		<RFALSE>)
+	       (<OR <VERB? TIME>
+		    <AND <VERB? WHAT>
+			 <PRSO? ,GLOBAL-TIME>>>
+		<PERFORM ,V?ASK-ABOUT ,SPEAR-CARRIER ,GLOBAL-TIME>
+		<RTRUE>)
+	       (<==? ,WINNER ,SPEAR-CARRIER>
+		<COND (<PRSO? ,GLOBAL-SELF>
+		       <SETG PRSO ,SPEAR-CARRIER>)>
+	        <COND (<PRSI? ,GLOBAL-SELF>
+		       <SETG PRSI ,SPEAR-CARRIER>)>
+		<COND (<AND <VERB? FIND>
+			    <PRSO? ,GLOBAL-BANK>>
+		       <COND (<==? ,HERE ,BANK>
+			      <TELL "\"This is the bank!\"" CR>)
+			     (T
+		       	      <SETG WINNER ,PLAYER>
+		       	      <PERFORM ,V?ASK-ABOUT ,SPEAR-CARRIER ,GLOBAL-BANK>
+		       	      <SETG WINNER ,SPEAR-CARRIER>)>
+		       <RTRUE>)
+		      (<VERB? $CALL>
+		       <TELL-SO-WHAT>
+		       <RTRUE>)
+		      (<VERB? SGIVE SSHOW WHAT FIND YES NO MAYBE>
+		       <RFALSE>)
+		      (<AND <VERB? ASK-ABOUT ASK-FOR>
+			    <PRSI? ,GLOBAL-TIME>>
+		       <RFALSE>)
+		      (<AND <VERB? GIVE>
+			    <PRSI? ,ME>>
+		       <SETG WINNER ,PLAYER>
+		       <PERFORM ,V?ASK-FOR ,SPEAR-CARRIER ,PRSO>
+		       <SETG WINNER ,SPEAR-CARRIER>
+		       <RTRUE>)
+		      (<AND <VERB? TELL>
+			    <PRSO? ,ME>>
+		       <COND (,PRSI
+			      <SETG WINNER ,PLAYER>
+		       	      <PERFORM ,V?ASK-ABOUT ,SPEAR-CARRIER ,PRSI>
+		       	      <SETG WINNER ,SPEAR-CARRIER>
+		       	      <RTRUE>)
+			     (T <RFALSE>)>)
+		      (<VERB? HELLO>
+		       <TELL "\"Hi there! What can I do for you?\"" CR>
+		       <RTRUE>)
+	       	      (<VERB? GOODBYE>
+		       <TELL "\"So long. See you around.\"" CR>
+		       <RTRUE>)
+		      (<AND <VERB? WITHDRAW>
+			    <==? ,HERE ,BANK>>
+		       <RFALSE>)
+		      (<AND <VERB? SHOW>
+			    <PRSI? ,ME>>
+		       <TELL "\"Examine it " D ,GLOBAL-SELF ".\"" CR>
+		       <RTRUE>)
+		      (T
+		       <TELL "\"I can't do that while I'm on the job.\"" CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? TELL>
+		     <NOT ,PRSI>>
+		<RFALSE>)
+	       (<AND <VERB? BUY>
+		     <PRSO? ,FERRY-TOKEN>>
+		<NO-TOKENS ,HERE>
+		<RTRUE>)
+	       (<VERB? SEARCH>
+		<TELL-YOU-CANT "reach behind the " <>>
+		<COND (<IN? ,BAR ,HERE>
+		       <TELL D ,BAR>)
+		      (<IN? ,WINDOW ,HERE>
+		       <TELL D ,WINDOW>)
+		      (T <TELL D ,GLOBAL-SURFACE>)>
+		<TELL "." CR>
+		<RTRUE>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,SPEAR-CARRIER>>
+		<SETG QCONTEXT ,SPEAR-CARRIER>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<COND (<PRSI? ,SPEAR-CARRIER>
+		       <TELL 
+"\"Just another of the people who keep this island running.\"" CR>
+		       <RTRUE>)
+		      (<PRSI? ,ME>
+		       <TELL-YOURE-DIVER>
+		       <RTRUE>)
+		      (<FSET? ,PRSI ,PERSON>
+		       <TELL "\"You know " D ,PRSI ".\"" CR>
+		       <RTRUE>)
+		      (<PRSI? ,GLOBAL-BANK>
+		       <COND (<EQUAL? ,HERE ,BANK>
+			      <TELL 
+"\"It's the " D ,BANK ", a savings bank which has served Hardscrabble
+Island for over forty years.\"" CR>)
+			     (T <TELL 
+"\"It's at the eastern end of the " D ,SHORE-ROAD-1 ".\"" CR>)>
+		       <RTRUE>)
+		      (<PRSI? ,GLOBAL-MONEY>
+		       <TELL
+"\"That's what makes the world go around. Right?\"" CR>
+		       <RTRUE>)
+		      (<PRSI? ,RIDICULOUS-MONEY-KLUDGE>
+		       <TELL 
+"He smiles. \"Money is our most important product.\"" CR>
+		       <RTRUE>)
+		      (<PRSI? ,PARROT>
+		       <COND (<EQUAL? ,HERE ,SHANTY>
+			      <TELL
+"\"Isn't it great? I bought it from a passing sailor some years back. I never
+did figure out why it has a wooden leg and an eyepatch.\"" CR>)
+			     (T <TELL
+"\"The one in " D ,SHANTY "? I can't imagine the island without it!\"" CR>)>
+		       <RTRUE>)
+		      (<==? ,HERE ,RED-BOAR-INN>
+		       <COND (<PRSI? ,HEVLIN>
+			      <TELL
+"\"He came in here last night looking for you.\"" CR>
+			      <RTRUE>)>)
+		      (<EQUAL? ,HERE ,OUTFITTERS-HQ>
+		       <COND (<PRSI? ,DELIVERY-BOY>
+		       	      <TELL "\"">
+			      <COND (<NOT <IN-MOTION? ,DELIVERY-BOY>>
+				     <TELL
+"He's probably in the back room setting up the next delivery. ">)>
+			      <TELL "He's very conscientious, you know.\"" CR>
+		       	      <RTRUE>)
+		             (<PRSI? ,PRICE-LIST>
+			      <TELL "\"It's up to date.\"" CR>
+			      <RTRUE>)
+			     (<PRSI? ,TRAWLER ,SALVAGER>
+			      <TELL
+"\"She's a great boat. You can read all about her in the " D ,PRICE-LIST ".\""
+CR>
+			      <RTRUE>)
+			     (<AND <GETP ,PRSI ,P?NORTH>
+				   <NOT <IN? ,PRSI ,ROOMS>>
+				   <NOT <PRSI? ,FOOD ,DRINK-OBJECT>>>
+			      <TELL "\"It's a great " D ,PRSI ".\"" CR>
+			      <RTRUE>)>)>)>
+	 <COND ;(<EQUAL? ,WINNER ,SPEAR-CARRIER>)
+	       (<VERB? WALK>
+		<TELL "He indicates that he'd rather stay where he is." CR>
+		<RTRUE>)
+	       (<AND <EQUAL? ,HERE ,BANK>
+		     <PRSI? ,SPEAR-CARRIER>>
+		<COND (<VERB? GIVE>
+		       <TELL "The teller examines the ">
+		       <COND (<PRSO? ,PASSBOOK>
+			      <TELL "passbook, says">
+			      <TELL-OUR-PASSBOOK>
+			      <TELL
+" If you want to withdraw some money, say so,\" and hands it back to you." CR>
+		       	      <RTRUE>)
+		      	     (T <TELL 
+D ,PRSO ", thinks for a moment, and then hands it
+back to you, pointing out that you have no safe deposit box." CR>
+		       		<RTRUE>)>)
+		      (<AND <VERB? SHOW>
+			    <PRSO? ,PASSBOOK>>
+		       <TELL "The teller says,">
+		       <TELL-OUR-PASSBOOK>
+		       <TELL "\"" CR>
+		       <RTRUE>)>)
+	       (<EQUAL? ,HERE ,RED-BOAR-INN>
+		<COND (<VERB? ASK-FOR>
+		       <COND (<PRSI? ,GLOBAL-ROOM>
+		       	      <TELL
+"\"We're full. Your current room will have to do.\"" CR>)
+			     (<PRSI? ,PSEUDO-OBJECT>
+			      <TELL "\"Nope. No messages.\"" CR>)>)
+		      (<AND <VERB? GIVE>
+			    <PRSO? ,KEY>>
+		       <TELL
+"The desk clerk hands you back the key. \"You've paid for another week.\"" CR>)>)
+	       (<EQUAL? ,HERE ,BANK>
+		<COND (<AND <VERB? ASK-FOR>
+			    <PRSI? ,RIDICULOUS-MONEY-KLUDGE ,INTNUM>>
+		       <COND (<G? ,PASSBOOK-BALANCE 0>
+			      <TELL 
+"\"If you want to make a withdrawal, be specific.\"" CR>
+			      <RTRUE>)
+			     (T <TELL 
+"\"I'm afraid that the loan officer is out today.\"" CR>
+			      <RTRUE>)>)>)
+	       (<AND <EQUAL? ,HERE ,OUTFITTERS-HQ>
+		     <VERB? ASK-FOR>
+		     <PRSO? ,SPEAR-CARRIER>>
+		<COND (<G? <SET COST <GETP ,PRSO ,P?NORTH>> 0>
+		       <TELL "\"You want it, you buy it.\"" CR>
+		       <RTRUE>)
+		      (<L? .COST 0>
+		       <TELL-YOU-ALREADY "bought it.\"" T>
+		       <RTRUE>)>)
+	       (<AND <EQUAL? ,HERE ,OUTFITTERS-HQ>
+		     <PRSI? ,SPEAR-CARRIER>>
+		<COND (<VERB? GIVE>
+		       <COND (<AND <PRSO? ,INTNUM> ,P-DOLLAR-FLAG>
+			      <COND (<OR <FSET? ,WET-SUIT ,WORNBIT>
+					 <FSET? ,DEEP-SUIT ,WORNBIT>>
+				     <TELL-YOU-CANT "get at your money.">
+				     <RTRUE>)
+				    (<G? ,P-AMOUNT ,POCKET-CHANGE>
+				     <TELL "You haven't got that much." CR>
+				     <RTRUE>)
+				    (,AMT-OWED
+				     <COND (<L? ,P-AMOUNT ,AMT-OWED>
+					    <SETG AMT-OWED
+						  <- ,AMT-OWED ,P-AMOUNT>>
+					    <SETG POCKET-CHANGE
+						  <- ,POCKET-CHANGE ,P-AMOUNT>>
+					    <TELL
+"The salesman takes the money and says, \"You still owe me $" N ,AMT-OWED ".\""
+CR>)
+					   (T
+					    <COND (<G? ,P-AMOUNT ,AMT-OWED>
+						   <SET CHANGE
+						       <- ,P-AMOUNT ,AMT-OWED>>
+					    	   <TELL
+"The salesman takes the money, counts it, and hands you back $" N .CHANGE ". ">)>
+					    <SETG POCKET-CHANGE
+						  <- ,POCKET-CHANGE ,AMT-OWED>>
+					    <SETG AMT-OWED 0>
+					    <TELL
+"\"Thank you very much. Let me know what else you want.\"" CR>)>)
+				    (T <TELL
+"The salesman hands it back to you. \"If you want to buy anything, please be
+specific.\"" CR>)>)
+			     (<PRSO? ,GLOBAL-MONEY>
+			      <SETG P-AMOUNT ,AMT-OWED>
+			      <SETG P-DOLLAR-FLAG T>
+			      <PERFORM ,V?GIVE ,INTNUM ,PRSI>
+			      <SETG P-IT-OBJECT ,GLOBAL-MONEY>
+			      <RTRUE>)
+			     (T
+		       	      <TELL "The salesman looks at ">
+		       	      <THE? ,PRSO>
+		       	      <TELL D ,PRSO ", then returns it." CR>)>
+		       <RTRUE>)>)
+	       (<EQUAL? ,SHANTY ,HERE>
+		<COND (<OR <AND <VERB? ASK-FOR>
+		            	<PRSI? ,DRINKING-WATER>>
+			   <AND <VERB? BUY>
+				<PRSO? ,DRINKING-WATER>>>
+		       <COND (<IN? ,DRINKING-WATER ,TABLE-OBJECT>
+			      <TELL "\"One glass to a customer.\"" CR>)
+			     (T
+			      <MOVE ,DRINKING-WATER ,TABLE-OBJECT>
+			      <FCLEAR ,DRINKING-WATER ,NDESCBIT>
+			      <PUTP ,DRINKING-WATER ,P?SDESC "glass of water">
+			      <TELL
+"The bartender puts a glass of water on the table." CR>)>)
+		      (<VERB? ASK-FOR ASK-ABOUT>
+		       <COND (<PRSI? ,FOOD>
+		       	      <TELL
+"\"It's beef stew today. You can buy it for $5.\"" CR>)
+			     (<PRSI? ,DRINK-OBJECT>
+			      <TELL "\"Grog is $2.\"" CR>)>)>)>>
+
+<ROUTINE TELL-OUR-PASSBOOK ()
+	  <TELL " \"Yes. That's one of our passbooks.">>
+
+<ROUTINE TELL-NOT-HERE-TALK ()
+	 <TELL-YOU-CANT "talk to someone who's not here.">>
+
+<ROUTINE TELL-YOURE-DIVER () <TELL "\"You're a diver!\"" CR>>
+
+<ROUTINE TELL-KNOW-ME ()
+	 <TELL "\"You know me.\"" CR>>
+
+<OBJECT HEVLIN
+	(IN GLOBAL-OBJECTS)
+	(DESC "dead man")
+	(SYNONYM HEVLIN MAN)
+	(ADJECTIVE DEAD)
+	(ACTION HEVLIN-F)>
+
+<ROUTINE HEVLIN-F ("AUX" OWINNER)
+	 <COND (<OR <VERB? ASK-ABOUT ASK-CONTEXT-ABOUT ASK-FOR>
+		    <VERB? ASK-CONTEXT-FOR>
+		    <AND <VERB? TELL>
+			 <NOT <PRSO? ,ME ,HEVLIN>>>>
+		<RFALSE>)
+	       (<VERB? WHAT>
+		<SET OWINNER ,WINNER>
+		<SETG WINNER ,PLAYER>
+		<PERFORM ,V?ASK-ABOUT .OWINNER ,HEVLIN>
+		<SETG WINNER .OWINNER>
+		<RTRUE>)
+	       (<VERB? FIND>
+		<COND (<OR <==? ,WINNER ,JOHNNY>
+			   <AND <==? ,WINNER ,SPEAR-CARRIER>
+			    	<==? ,HERE ,RED-BOAR-INN>>>
+		       <TELL "\"He was killed last night.\"" CR>)
+		      (<==? ,WINNER ,PLAYER>
+		       <TELL-HES-DEAD>)
+		      (T <TELL-NEVER-KNEW>)>)
+	       (<VERB? FIND HELP PRAY>
+		<TELL-HES-DEAD>
+		<RFATAL>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,HEVLIN>)>>
+
+<ROUTINE TELL-HES-DEAD ()
+	 <TELL "Hevlin is dead." CR>>
\ No newline at end of file
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
new file mode 100644
index 0000000..a8cce88
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,821 @@
+"SYNTAX for
+			      TOA #2
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
+"
+
+"SUBTITLE VOCABULARY"
+
+<BUZZ A AN THE IS AND SOME OF THEN ALL ONE BUT EXCEPT \. \, \" 
+      WHY HOW WHEN DID ARE HERE MY CLOSELY ;CAREFULLY QUIETLY
+      SLOWLY QUICKLY BRIEFLY PLEASE MINUTE>
+
+;<SYNONYM WITH USING THROUGH>
+<SYNONYM THROUGH THRU>
+<SYNONYM ON ONTO>
+<SYNONYM IN INSIDE INTO>
+<SYNONYM UNDER BELOW BENEATH UNDERNEATH>
+
+<SYNONYM NORTH N FORE FORWARD F>
+<SYNONYM SOUTH S AFT ABAFT>
+<SYNONYM EAST E STARBO SB>
+<SYNONYM WEST W PORT P>
+<SYNONYM DOWN D DOWNSTAIRS>
+<SYNONYM UP U UPSTAIRS>
+<SYNONYM NW NORTHWEST>
+<SYNONYM NE NORTHE>
+<SYNONYM SW SOUTHWEST>
+<SYNONYM SE SOUTHE>
+
+\
+
+"ZORK game commands"
+
+<SYNTAX BRIEF = V-BRIEF>
+
+<SYNTAX SUPER = V-SUPER-BRIEF>
+<SYNONYM SUPER SUPERBRIEF>
+
+<SYNTAX DIAGNOSE = V-DIAGNOSE>
+
+;<SYNTAX $DEBUG = V-$DEBUG>
+;<SYNTAX $FUBLIO = V-$W1>
+;<SYNTAX $WRECK = V-$W2>
+;<SYNTAX $DC = V-DEPTH-CHECK>
+;<SYNTAX $DIVETIME = V-$DIVETIME>
+
+<SYNTAX INVENTORY = V-INVENTORY>
+<SYNONYM INVENTORY I>
+
+<SYNTAX QUIT = V-QUIT>
+<SYNONYM QUIT Q>
+
+<SYNTAX RESTART = V-RESTART>
+
+<SYNTAX RESTORE = V-RESTORE>
+
+<SYNTAX SAVE = V-SAVE>
+
+<SYNTAX SCORE = V-SCORE>
+<SYNONYM SCORE RATING PROGRESS>
+
+<SYNTAX $VERIFY = V-$VERIFY>
+
+<SYNTAX VERSION = V-VERSION>
+
+<SYNTAX VERBOSE = V-VERBOSE>
+
+\
+
+"SUBTITLE REAL VERBS"
+
+<SYNTAX AGAIN = V-AGAIN>
+<SYNONYM AGAIN G>
+
+<SYNTAX AIM OBJECT ;(FIND WEAPONBIT) AT OBJECT = V-AIM>
+<SYNONYM AIM POINT>
+
+;<SYNTAX ANSWER = V-ANSWER>
+;<SYNTAX ANSWER OBJECT = V-REPLY>
+;<SYNONYM ANSWER REPLY>
+
+<SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX ASK OBJECT (FIND PERSON) = V-TELL PRE-TELL>
+<SYNTAX ASK ABOUT OBJECT (HELD CARRIED ;HAVE)
+	= V-ASK-CONTEXT-ABOUT PRE-ASK-CONTEXT-ABOUT>
+<SYNTAX ASK FOR OBJECT (HELD CARRIED ;HAVE)
+	= V-ASK-CONTEXT-FOR PRE-ASK-CONTEXT-FOR>
+<SYNTAX ASK OBJECT (FIND PERSON)
+	ABOUT OBJECT (HELD CARRIED ;HAVE) = V-ASK-ABOUT>
+<SYNTAX ASK OBJECT (FIND PERSON)
+	FOR OBJECT (HELD CARRIED ;HAVE) = V-ASK-FOR>
+<SYNONYM ASK QUESTION INQUIRE>
+
+<SYNTAX ATTACK
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-ATTACK>
+<SYNONYM ATTACK FIGHT HURT INJURE>
+
+<SYNTAX BACK = V-BACK>
+
+;<SYNTAX BLAST = V-BLAST>
+
+<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
+	= V-BOARD PRE-BOARD>
+
+<SYNTAX BRACE OBJECT WITH OBJECT = V-BRACE PRE-BRACE>
+<SYNONYM BRACE SUPPORT>
+
+<SYNTAX BREATHE = V-BREATHE>
+<SYNTAX BREATHE OBJECT = V-BREATHE>
+
+;<SYNTAX BUG = V-BUG>
+
+<SYNTAX BURN
+	OBJECT ;(FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-BURN PRE-BURN>
+<SYNTAX BURN
+	DOWN
+	OBJECT ;(FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-BURN PRE-BURN>
+<SYNONYM BURN INCINERATE IGNITE>
+
+<SYNTAX BUY OBJECT (IN-ROOM ON-GROUND) (MANY)= V-BUY PRE-BUY>
+<SYNTAX BUY OBJECT (IN-ROOM ON-GROUND) (MANY)
+	FROM OBJECT (FIND VICBIT) (ON-GROUND) = V-BUY PRE-BUY>
+<SYNONYM BUY PURCHASE ORDER>
+
+<SYNTAX $CALL OBJECT = V-$CALL PRE-$CALL>
+<SYNTAX CALL OBJECT = V-CALL>
+<SYNTAX CALL TO OBJECT = V-CALL>
+
+<SYNTAX CHECK OBJECT = V-EXAMINE PRE-EXAMINE>
+<SYNTAX CHECK FOR OBJECT = V-FIND>
+
+<SYNTAX CHOMP = V-CHOMP>
+<SYNONYM CHOMP LOSE BARF>
+
+<SYNTAX CLEAN OBJECT = V-CLEAN>
+<SYNONYM CLEAN SCRUB POLISH>
+
+<SYNTAX CLIMB UP OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
+<SYNTAX CLIMB DOWN OBJECT ;(FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB OBJECT ;(FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
+<SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB THROUGH OBJECT (ON-GROUND IN-ROOM) = V-THROUGH>
+<SYNTAX CLIMB OUT OBJECT (ON-GROUND IN-ROOM) = V-THROUGH>
+<SYNONYM CLIMB>
+
+<SYNTAX SIT ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-SIT-ON>
+<SYNTAX SIT DOWN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-SIT-ON>
+<SYNTAX SIT WITH OBJECT = V-SIT-WITH>
+
+<SYNTAX CLOSE
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-CLOSE>
+<SYNONYM CLOSE SHUT>
+
+;<SYNTAX COMPARE OBJECT TO OBJECT = V-COMPARE PRE-COMPARE>
+;<SYNTAX COMPARE OBJECT WITH OBJECT = V-COMPARE PRE-COMPARE>
+;<SYNTAX COMPARE OBJECT (HELD CARRIED MANY) = V-FOO-COMPARE>
+
+<SYNTAX COUNT OBJECT = V-COUNT>
+
+<SYNTAX CROSS OBJECT = V-CROSS>
+<SYNONYM CROSS FORD>
+
+<SYNTAX CUT OBJECT WITH OBJECT ;(FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
+<SYNONYM CUT SLICE PIERCE SCRAPE> 
+
+<SYNTAX CURSE = V-CURSES>
+<SYNTAX CURSE OBJECT (FIND VICBIT) = V-CURSES>
+<SYNONYM CURSE SWEAR CUSS DAMN FUCK SHIT HELL>
+
+<SYNTAX DEFLATE OBJECT = V-DEFLATE>
+
+<SYNTAX DEPOSIT OBJECT = V-DEPOSIT>
+<SYNTAX DEPOSIT OBJECT (ON-GROUND HELD MANY) IN OBJECT = V-DEPOSIT>
+<SYNTAX DEPOSIT OBJECT (ON-GROUND HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+
+<SYNTAX DIG
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
+	= V-DIG PRE-DIG ;*>
+<SYNTAX DIG
+	IN
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
+	= V-DIG PRE-DIG>
+<SYNTAX DIG OBJECT IN OBJECT = V-HOLE-DIG>
+;<SYNTAX DIG WITH OBJECT = V-DIG-WITH>
+
+;<SYNTAX DIP OBJECT (FIND BURNBIT) (HELD CARRIED HAVE)
+	IN OBJECT (ON-GROUND HAVE) = V-DIP-IN>
+;<SYNONYM DIP IMMERSE SUBMERGE DUNK>
+
+<SYNTAX DISEMBARK = V-EXIT>
+<SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
+	= V-DISEMBARK>
+
+<SYNTAX DIVE = V-DIVE>
+<SYNTAX DIVE IN OBJECT = V-DIVE>
+
+<SYNTAX DRILL OBJECT WITH OBJECT (FIND TOOLBIT) = V-DRILL PRE-DRILL>
+<SYNTAX DRILL OBJECT IN OBJECT = V-DRILL-IN PRE-DRILL-IN>
+
+<SYNTAX DRINK
+	OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-DRINK PRE-DRINK>
+;<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
+;<SYNTAX DRINK OBJECT (FIND DRINKBIT) 
+	IN OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND) = V-DRINK-FROM>
+;<SYNTAX DRINK OBJECT (FIND DRINKBIT) 
+	FROM OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND) = V-DRINK-FROM>
+<SYNONYM DRINK IMBIBE SWALLOW SIP GUZZLE>
+
+<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP ;*>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
+<SYNONYM DROP RELEASE>
+
+<SYNTAX LEAN ON OBJECT (HELD HAVE) = V-LEAN-ON>
+
+<SYNTAX EAT
+	OBJECT (FIND FOODBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-EAT PRE-EAT>
+<SYNONYM EAT CONSUME BITE CHEW MUNCH NIBBLE>
+
+<SYNTAX TASTE OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-TASTE>
+
+<SYNTAX EMPTY OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-EMPTY>
+
+<SYNTAX ENTER = V-ENTER>
+<SYNTAX ENTER OBJECT = V-THROUGH>
+<SYNTAX EXIT = V-EXIT>
+<SYNTAX EXIT OBJECT = V-DISEMBARK>
+
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-EXAMINE
+								PRE-EXAMINE>
+;<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND ;MANY) 
+		= V-LOOK-INSIDE>
+;<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND ;MANY)
+		= V-LOOK-INSIDE>
+<SYNONYM EXAMINE DESCRIBE>
+
+;<SYNTAX EXORCISE OBJECT = V-EXORCISE>
+;<SYNTAX EXORCISE OUT OBJECT (FIND VICBIT) = V-EXORCISE>
+;<SYNTAX EXORCISE AWAY OBJECT (FIND VICBIT) = V-EXORCISE>
+;<SYNONYM EXORCISE BANISH CAST DRIVE BEGONE>
+
+<SYNTAX EXTINGUISH
+	OBJECT 
+	;(FIND FLAMEBIT) (MANY HELD CARRIED ON-GROUND IN-ROOM ;TAKE HAVE)
+	= V-LAMP-OFF>
+<SYNONYM EXTINGUISH DOUSE>
+
+<SYNTAX FILL OBJECT (HELD CARRIED ON-GROUND TAKE HAVE) WITH OBJECT = V-FILL>
+;<SYNTAX FILL IN OBJECT (ON-GROUND IN-ROOM) = V-FILL-IN>
+<SYNTAX FILL OBJECT (HELD CARRIED ON-GROUND TAKE HAVE) = V-FILL>
+;<SYNTAX FILL OUT OBJECT = V-FILL-OUT>
+
+<SYNTAX FIND OBJECT = V-FIND>
+<SYNONYM FIND WHERE SEEK SEE>
+
+<SYNTAX FOLLOW = V-FOLLOW>
+<SYNTAX FOLLOW OBJECT = V-FOLLOW>
+<SYNONYM FOLLOW PURSUE CHASE COME>
+
+<SYNTAX GIVE
+	OBJECT ;(MANY ;HELD ;HAVE ;CARRIED ;ON-GROUND ;IN-ROOM)
+	TO
+	OBJECT (FIND VICBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX GIVE
+	OBJECT (FIND VICBIT) (ON-GROUND)
+	OBJECT ;(MANY ;HELD ;HAVE ;CARRIED)
+	= V-SGIVE PRE-SGIVE>
+<SYNONYM GIVE HAND DONATE OFFER FEED PAY>
+
+<SYNTAX GOODBYE = V-GOODBYE>
+<SYNTAX GOODBYE OBJECT = V-GOODBYE>
+<SYNONYM GOODBYE BYE>
+
+<SYNTAX HELLO = V-HELLO ;*>
+<SYNTAX HELLO OBJECT = V-HELLO>
+<SYNONYM HELLO HI>
+
+<SYNTAX HELP = V-HELP>
+<SYNTAX HELP OBJECT = V-HELP>
+
+<SYNTAX HIDE UNDER OBJECT = V-HIDE>
+<SYNTAX HIDE IN OBJECT = V-HIDE>
+<SYNTAX HIDE BEHIND OBJECT = V-HIDE>
+<SYNTAX HIDE OBJECT (HELD HAVE) UNDER OBJECT = V-HIDE-UNDER>
+<SYNTAX HIDE OBJECT (HELD HAVE) IN OBJECT = V-HIDE>
+<SYNTAX HIDE OBJECT (HELD HAVE) BEHIND OBJECT = V-HIDE>
+
+<SYNTAX BLOW OUT OBJECT (HELD CARRIED ON-GROUND HAVE) = V-LAMP-OFF>
+<SYNTAX BLOW UP
+	OBJECT
+	WITH
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-INFLATE ;*>
+;<SYNTAX BLOW UP OBJECT = V-BLAST>
+
+<SYNTAX INFLAT
+	OBJECT
+	WITH
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-INFLATE>
+
+<SYNTAX JUMP = V-LEAP>
+<SYNTAX JUMP OVER OBJECT = V-LEAP>
+<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
+<SYNTAX JUMP IN OBJECT = V-LEAP>
+<SYNTAX JUMP FROM OBJECT = V-DISEMBARK>
+<SYNTAX JUMP OFF OBJECT = V-DISEMBARK>
+;<SYNTAX JUMP OBJECT = V-JUMP-ROPE>
+<SYNONYM JUMP LEAP>
+
+<SYNTAX KICK OBJECT = V-KICK>
+<SYNONYM KICK>
+
+<SYNTAX KILL
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-KILL>
+<SYNONYM KILL MURDER SLAY DISPATCH STAB>
+
+<SYNTAX KISS OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-KISS>
+
+<SYNTAX KNOCK AT OBJECT = V-KNOCK ;*>
+<SYNTAX KNOCK ON OBJECT = V-KNOCK>
+<SYNTAX KNOCK OVER OBJECT = V-PUSH>
+<SYNTAX KNOCK DOWN OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
+<SYNONYM KNOCK RAP>
+
+<SYNTAX LATITUDE OBJECT = V-LATITUDE ;PRE-LATITUDE>
+<SYNTAX LONGITUDE OBJECT = V-LONGITUDE ;PRE-LATITUDE>
+
+<SYNTAX LAUNCH OBJECT (FIND VEHBIT) = V-LAUNCH>
+
+<SYNTAX LEAVE = V-LEAVE>
+<SYNTAX LEAVE OBJECT = V-DROP>
+
+<SYNTAX LIGHT
+	OBJECT ;(FIND LIGHTBIT) ;(FIND BURNBIT)
+	(CARRIED ON-GROUND IN-ROOM)
+	= V-LAMP-ON ;*>
+<SYNTAX LIGHT
+	OBJECT ;(FIND LIGHTBIT) ;(FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-BURN PRE-BURN>
+<SYNONYM LIGHT START>
+
+<SYNTAX LISTEN TO OBJECT = V-LISTEN>
+<SYNTAX LISTEN FOR OBJECT = V-LISTEN>
+
+<SYNTAX LOCK
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (TAKE HELD CARRIED ON-GROUND IN-ROOM)
+	= V-LOCK>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
+;<SYNTAX LOOK UP OBJECT (FIND RMUNGBIT) = V-LOOK-UP>
+;<SYNTAX LOOK UP OBJECT = V-LOOK-UP>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-EXAMINE
+								PRE-EXAMINE>
+<SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK OUT OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
+;<SYNTAX LOOK DOWN OBJECT = V-LOOK-DOWN>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-LOOK-INSIDE
+								PRE-LOOK-IN>
+<SYNTAX LOOK ON OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) = V-LOOK-INSIDE
+								PRE-LOOK-ON>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM ;MANY) WITH OBJECT = 
+	V-READ PRE-READ>
+<SYNTAX LOOK FOR OBJECT = V-FIND>
+<SYNTAX LOOK OBJECT = V-CHASTISE>
+<SYNONYM LOOK L STARE GAZE PEER>
+
+<SYNTAX SEARCH OBJECT = V-SEARCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH>
+<SYNTAX SEARCH FOR OBJECT = V-FIND>
+
+<SYNTAX LOWER OBJECT = V-LOWER>
+<SYNTAX LOWER OBJECT DOWN OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX MAKE OBJECT = V-MAKE>
+
+<SYNTAX MAYBE = V-MAYBE>
+<SYNONYM MAYBE DUNNO>
+
+<SYNTAX MELT
+	OBJECT
+	WITH
+	OBJECT ;(FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-MELT>
+<SYNONYM MELT LIQUIFY>
+
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) WITH OBJECT = V-MOVE PRE-MOVE>
+<SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+
+<SYNTAX PLAY OBJECT = V-PLAY>
+
+;<SYNTAX PRICE OBJECT = V-PRICE>
+;<SYNTAX PRICE OF OBJECT = V-PRICE>
+
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+;<SYNTAX PULL UP OBJECT (ON-GROUND IN-ROOM) = V-PULL-UP PRE-PULL-UP>
+;<SYNTAX PULL OBJECT THROUGH OBJECT (ON-GROUND IN-ROOM) = V-PULL-UP PRE-PULL-UP>
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
+<SYNONYM PULL TUG YANK>
+
+<SYNTAX MUMBLE = V-MUMBLE>
+<SYNONYM MUMBLE SIGH>
+
+<SYNTAX DESTROY
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH
+	OBJECT (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNTAX DESTROY IN OBJECT = V-CHIP PRE-CHIP>
+<SYNTAX DESTROY IN OBJECT (ON-GROUND IN-ROOM)
+		WITH
+		OBJECT (HELD CARRIED HAVE) = V-MUNG PRE-MUNG>
+<SYNTAX DESTROY
+	DOWN
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH
+	OBJECT (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNONYM DESTROY DAMAGE BREAK SMASH CHOP CHIP HIT>
+
+<SYNTAX LUBRICATE OBJECT WITH OBJECT (HELD CARRIED) = V-OIL ;PRE-OIL>
+<SYNONYM LUBRICATE GREASE>
+
+<SYNTAX NO = V-NO>
+<SYNONYM NO NEGATIVE NOPE UH-UH>
+
+<SYNTAX OPEN
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN PRE-OPEN>
+<SYNTAX OPEN
+	UP
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN PRE-OPEN>
+<SYNTAX OPEN
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
+	= V-OPEN PRE-OPEN>
+
+<SYNTAX PICK OBJECT = V-PICK>
+<SYNTAX PICK OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PICK>
+
+<SYNTAX PICK UP
+	OBJECT (FIND TAKEBIT)
+	       (ON-GROUND MANY)
+	= V-TAKE PRE-TAKE>
+
+<SYNTAX PLUG OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PLUG>
+<SYNONYM PLUG GLUE PATCH REPAIR FIX>
+
+;<SYNTAX PLUGH = V-ADVENTURE>
+;<SYNONYM PLUGH XYZZY>
+
+<SYNTAX POKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNONYM POKE JAB BLIND>
+
+<SYNTAX POUR OBJECT (HELD CARRIED) = V-POUR ;*>
+<SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-POUR-IN>
+<SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = V-POUR-ON ;PRE-POUR-ON>
+<SYNTAX POUR OBJECT (HELD CARRIED) FROM OBJECT = V-POUR>
+<SYNONYM POUR SPILL>
+
+<SYNTAX PRAY = V-PRAY>
+<SYNTAX PRAY FOR OBJECT = V-PRAY>
+
+<SYNTAX PUMP UP OBJECT = V-PUMP>
+<SYNTAX PUMP UP OBJECT WITH OBJECT = V-PUMP>
+
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
+<SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) OFF OBJECT = V-PUSH-OFF>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
+<SYNTAX PUSH OBJECT (HELD CARRIED HAVE) UNDER OBJECT = V-PUSH-UNDER>
+<SYNTAX PUSH OBJECT (HELD CARRIED HAVE) THROUGH OBJECT = V-PUSH-THROUGH>
+<SYNTAX PUSH UP OBJECT = V-MOVE PRE-MOVE>
+<SYNONYM PUSH PRESS SHOVE>
+
+<SYNTAX PUT OBJECT (ON-GROUND HELD MANY)
+	IN OBJECT = V-PUT PRE-PUT ;*>
+<SYNTAX PUT OBJECT (ON-GROUND HELD MANY)
+	ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT DOWN OBJECT (HELD MANY) = V-DROP>
+<SYNTAX PUT OBJECT (HELD MANY HAVE) UNDER OBJECT = V-PUT-UNDER> 
+<SYNTAX PUT ON OBJECT (IN-ROOM ON-GROUND CARRIED MANY) = V-WEAR>
+<SYNTAX PUT OBJECT (HELD MANY HAVE) BEHIND OBJECT = V-HIDE>
+<SYNTAX PUT OBJECT (HELD HAVE) AGAINST OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) BY OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) AT OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) ACROSS OBJECT = V-PUT-ACROSS>
+<SYNTAX PUT OBJECT (HELD HAVE) OVER OBJECT = V-PUT-ACROSS>
+<SYNTAX PUT OBJECT (HELD HAVE) BETWEEN OBJECT = V-PUT-ON PRE-PUT>
+<SYNONYM PUT STUFF INSERT PLACE WEDGE>
+
+<SYNTAX RAISE OBJECT = V-MOVE PRE-MOVE>
+<SYNTAX RAISE UP OBJECT = V-MOVE PRE-MOVE>
+<SYNTAX RAISE OBJECT WITH OBJECT = V-MOVE PRE-MOVE>
+<SYNONYM RAISE LIFT>
+
+<SYNTAX RAPE OBJECT (FIND VICBIT) = V-RAPE>
+<SYNONYM RAPE MOLEST>
+
+<SYNTAX REACH IN OBJECT (FIND OPENBIT) = V-REACH-IN PRE-REACH-IN>
+
+<SYNTAX READ
+	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-READ PRE-READ ; *>
+<SYNTAX READ IN OBJECT (HELD CARRIED HAVE) = V-READ-INSIDE>
+<SYNTAX READ
+	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (HELD CARRIED HAVE)
+	= V-READ PRE-READ>
+<SYNONYM READ SKIM>
+
+<SYNTAX RENT OBJECT (IN-ROOM ON-GROUND MANY) = V-RENT>
+<SYNTAX RENT OBJECT (IN-ROOM ON-GROUND MANY)
+	FROM OBJECT (FIND VICBIT) (ON-GROUND) = V-RENT>
+<SYNONYM RENT LEASE>
+
+;<SYNTAX REPENT = V-REPENT>
+
+<SYNTAX ROB OBJECT = V-ROB>
+
+<SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
+<SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
+<SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO ;PRE-PUSH-TO>
+
+<SYNTAX RUB OBJECT = V-RUB>
+<SYNTAX RUB OBJECT WITH OBJECT = V-RUB>
+<SYNTAX RUB OBJECT TO OBJECT = V-PUT-AGAINST> ;"touch magnet to mine"
+<SYNONYM RUB TOUCH FEEL PAT PET>
+
+<SYNTAX SCRIPT = V-SCRIPT>
+<SYNTAX UNSCRIPT = V-UNSCRIPT>
+
+<SYNTAX SEND OBJECT = V-SEND>
+<SYNTAX SEND FOR OBJECT = V-SEND>
+
+<SYNTAX SHAKE OBJECT = V-SHAKE>
+
+<SYNTAX SHOW OBJECT TO OBJECT (FIND PERSON) = V-SHOW>
+<SYNTAX SHOW OBJECT (FIND PERSON) OBJECT = V-SSHOW PRE-SSHOW>
+<SYNONYM SHOW FLASH>
+
+<SYNTAX SLIDE OBJECT = V-PUSH>
+<SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
+<SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) OBJECT = V-PUSH-TO>
+<SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) TO OBJECT = V-PUSH-TO>
+
+<SYNTAX SKIP = V-SKIP>
+<SYNONYM SKIP HOP>
+
+<SYNTAX SMELL OBJECT = V-SMELL PRE-SMELL>
+<SYNONYM SMELL SNIFF>
+
+<SYNTAX SMOKE OBJECT = V-SMOKE>
+
+<SYNTAX SPIN OBJECT = V-SPIN>
+
+<SYNTAX SPRAY OBJECT ON OBJECT = V-SPRAY>
+<SYNTAX SPRAY OBJECT WITH OBJECT = V-SSPRAY>
+
+<SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
+<SYNTAX SQUEEZE OBJECT ON OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX STAND ON OBJECT (FIND VEHBIT) = V-CLIMB-ON>
+;<SYNTAX STAND UNDER OBJECT = V-STAND-UNDER>
+
+<SYNTAX STAY = V-STAY>
+
+<SYNTAX STRIKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-ATTACK>
+<SYNTAX STRIKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	= V-ATTACK ;*>
+<SYNTAX STRIKE OBJECT (CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
+
+<SYNTAX SWIM = V-SWIM>
+<SYNTAX SWIM OBJECT = V-SWIM>
+<SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNONYM SWIM BATHE WADE>
+
+<SYNTAX SWING
+	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-SWING>
+<SYNTAX SWING
+	OBJECT ;(FIND WEAPONBIT) (HELD CARRIED HAVE)
+	AT
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	= V-SWING>
+<SYNONYM SWING THRUST>
+
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT)
+	(ON-GROUND IN-ROOM MANY)
+	= V-TAKE PRE-TAKE ;*>
+<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
+<SYNTAX TAKE OFF OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
+<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+;<SYNTAX TAKE UNDER OBJECT = V-STAND-UNDER>
+<SYNTAX TAKE UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+	OUT
+	OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+	OFF
+	OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	FROM
+	OBJECT
+	= V-TAKE PRE-TAKE>
+;<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	OF
+	OBJECT
+	= V-TAKE PRE-TAKE> ;"Take a sip of water"
+;<SYNTAX TAKE OBJECT (FIND TAKEBIT)
+	WITH OBJECT (FIND TOOLBIT) = V-TAKE PRE-TAKE>
+<SYNONYM TAKE GRAB GET HOLD CARRY REMOVE>
+
+<SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL PRE-TELL>
+<SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) ABOUT OBJECT = V-TELL PRE-TELL>
+
+<SYNTAX SAY TO OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL PRE-TELL>
+<SYNTAX SAY WITH OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL PRE-TELL>
+<SYNTAX SAY = V-SAY>
+<SYNONYM SAY TALK SPEAK CHAT>
+
+<SYNTAX SLEEP = V-SLEEP>
+<SYNTAX SLEEP IN OBJECT = V-SLEEP>
+<SYNTAX SLEEP ON OBJECT = V-SLEEP>
+<SYNTAX SLEEP DOWN ON OBJECT = V-SLEEP> ;"lie down"
+<SYNTAX SLEEP DOWN OBJECT (FIND RMUNGBIT) = V-SLEEP>
+<SYNONYM SLEEP LIE REST NAP>
+
+;<SYNTAX INCANT = V-INCANT>
+;<SYNONYM INCANT CHANT>
+
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) = V-THROW PRE-THROW>
+;<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OBJECT = V-THROW-DOWN>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) DOWN OBJECT = V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) AT OBJECT = V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OFF OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OVER OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE)
+	WITH  OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) IN OBJECT = V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) ON OBJECT = V-THROW PRE-THROW>
+;<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) TO OBJECT = V-THROW-DOWN>
+<SYNONYM THROW HURL CHUCK TOSS CAST>
+
+<SYNTAX TIE OBJECT (ON-GROUND CARRIED)
+	TO OBJECT = V-TIE PRE-TIE>
+<SYNTAX TIE OBJECT (ON-GROUND CARRIED)
+	AROUND OBJECT = V-TIE PRE-TIE>
+<SYNTAX TIE UP
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (ON-GROUND IN-ROOM CARRIED)
+	= V-TIE-UP>
+<SYNONYM TIE FASTEN SECURE ATTACH CONNECT>
+
+"<SYNTAX $TIME = V-$TIME>"
+<SYNTAX TIME = V-TIME>
+<SYNONYM TIME T>
+
+<SYNTAX TURN OVER OBJECT = V-TURN-OVER>
+<SYNTAX TURN OBJECT (FIND TURNBIT) TO OBJECT = V-TURN PRE-TURN>
+<SYNTAX TURN OBJECT (FIND TURNBIT) FOR OBJECT = V-TURN PRE-TURN>
+<SYNTAX TURN OBJECT (FIND TURNBIT) = V-TURN PRE-TURN>
+<SYNTAX TURN
+	OBJECT (FIND TURNBIT) ( HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
+	= V-TURN PRE-TURN ;*>
+<SYNTAX TURN ON
+	OBJECT ;(FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	= V-LAMP-ON>
+<SYNTAX TURN OFF
+	OBJECT ;(FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	= V-LAMP-OFF>
+<SYNONYM TURN FLIP SET>
+
+<SYNTAX UNFOLD OBJECT = V-UNFOLD>
+<SYNTAX FOLD OBJECT = V-FOLD>
+<SYNTAX FOLD UP OBJECT = V-FOLD>
+
+<SYNTAX UNLOCK OBJECT (ON-GROUND IN-ROOM) = V-UNLOCK PRE-UNLOCK>
+<SYNTAX UNLOCK
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-UNLOCK>
+
+<SYNTAX UNTIE
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-UNTIE ;*>
+<SYNTAX UNTIE
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	FROM
+	OBJECT
+	= V-UNTIE>
+<SYNONYM UNTIE FREE UNFASTEN DETACH UNHOOK DISCONNECT>
+
+<SYNTAX WAIT = V-WAIT>
+<SYNTAX WAIT OBJECT = V-WAIT-FOR>
+;<SYNTAX WAIT UNTIL OBJECT = V-WAIT-UNTIL>
+<SYNTAX WAIT FOR OBJECT = V-WAIT-FOR>
+<SYNONYM WAIT Z>
+
+<SYNTAX WAKE OBJECT (ON-GROUND IN-ROOM) = V-ALARM ;*>
+<SYNTAX WAKE UP OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-ALARM>
+<SYNONYM WAKE AWAKE SURPRISE STARTLE>
+
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT = V-THROUGH>
+<SYNTAX WALK ON OBJECT = V-STEP>
+<SYNTAX WALK OVER OBJECT = V-LEAP>
+<SYNTAX WALK THROUGH OBJECT = V-THROUGH>
+<SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
+<SYNTAX WALK UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX WALK DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX WALK TO OBJECT = V-WALK-TO>
+<SYNONYM WALK GO RUN PROCEED STEP>
+
+<SYNTAX WAVE AT OBJECT = V-WAVE-AT>
+<SYNTAX WAVE TO OBJECT = V-WAVE-AT>
+<SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
+<SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE>
+<SYNONYM WAVE BRANDISH>
+
+<SYNTAX WEAR OBJECT (FIND WEARBIT) = V-WEAR>
+
+<SYNTAX WEIGH OBJECT = V-WEIGH>
+
+;<SYNTAX WET OBJECT (ON-GROUND IN-ROOM HELD CARRIED HAVE)
+	WITH OBJECT = V-WET>
+
+<SYNTAX WIN = V-WIN>
+<SYNONYM WIN WINNAGE>
+
+<SYNTAX WIND OBJECT = V-WIND>
+<SYNTAX WIND UP OBJECT = V-WIND>
+
+<SYNTAX WITHDRAW = V-LEAVE>
+<SYNTAX WITHDRAW OBJECT = V-WITHDRAW>
+
+<SYNTAX YELL = V-YELL>
+<SYNTAX YELL AT OBJECT = V-YELL>
+<SYNONYM YELL SCREAM SHOUT>
+
+<SYNTAX YES = V-YES>
+<SYNONYM YES Y AFFIRMATIVE YUP UH-HUH YEAH OK OKAY SURE>
+
+;<SYNTAX ZORK = V-ZORK>
+
+;"Simple questions"
+
+<SYNTAX WHAT = V-WHAT>
+<SYNTAX WHAT OBJECT = V-WHAT>
+<SYNTAX WHAT OBJECT OBJECT = V-WHAT PRE-WHAT>
+<SYNONYM WHAT WHAT\'S WHATS WHO WHOS WHO\'S>
+
+;"<SYNTAX WHERE ...> WHERE is a synonym of FIND"
+
+;<SYNTAX IS OBJECT IN OBJECT = V-IS-IN>
+;<SYNTAX IS OBJECT ON OBJECT = V-IS-IN>
+
+"<SYNTAX $FO = V-$FORCE>
+<SYNTAX $FO OBJECT = V-$FORCE>"
\ No newline at end of file
diff --git a/toa.xzap b/toa.xzap
new file mode 100644
index 0000000..15626e3
--- /dev/null
+++ b/toa.xzap
@@ -0,0 +1,49 @@
+	.TIME
+	
+	.INSERT "TOAFREQ"
+
+	.INSERT "TOADAT"			; DATA IS IN THIS FILE
+
+
+	.INSERT "MACROS"
+
+
+	.INSERT "GLOBALS"
+
+
+	.INSERT "SYNTAX"
+
+
+	.INSERT "CLOCK"
+
+
+	.INSERT "MAIN"
+
+
+	.INSERT "PARSER"
+
+
+	.INSERT "VERBS"
+
+
+	.INSERT "GOAL"
+
+
+	.INSERT "ISLAND"
+
+
+	.INSERT "BOAT"
+
+
+	.INSERT "WRECKS"
+
+
+	.INSERT "PEOPLE"
+
+
+	.INSERT "EVENTS"
+
+
+	.INSERT "TOASTR"
+
+	.END
diff --git a/toa.zap b/toa.zap
new file mode 100644
index 0000000..28f0300
--- /dev/null
+++ b/toa.zap
@@ -0,0 +1,46 @@
+
+	.INSERT "TOADAT"			; DATA IS IN THIS FILE
+
+
+	.INSERT "MACROS"
+
+
+	.INSERT "GLOBALS"
+
+
+	.INSERT "SYNTAX"
+
+
+	.INSERT "CLOCK"
+
+
+	.INSERT "MAIN"
+
+
+	.INSERT "PARSER"
+
+
+	.INSERT "VERBS"
+
+
+	.INSERT "GOAL"
+
+
+	.INSERT "ISLAND"
+
+
+	.INSERT "BOAT"
+
+
+	.INSERT "WRECKS"
+
+
+	.INSERT "PEOPLE"
+
+
+	.INSERT "EVENTS"
+
+
+	.INSERT "TOASTR"
+
+	.END
diff --git a/toa.zil b/toa.zil
new file mode 100644
index 0000000..25a3a1d
--- /dev/null
+++ b/toa.zil
@@ -0,0 +1,67 @@
+"
+			      TOA #2
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
+"
+
+<GC-MON <>>
+;<COND (<GASSIGNED? ZILCH> <GC 0 T>)
+      (T <GC 0 T 5>)>
+<GC 0 T 5>
+
+<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+
+;<SETG SHORT-STRINGS 2>
+
+<SET REDEFINE T>
+
+;<GLOBAL BIGFIX 10000>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
+
+<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
+	<INSERT-FILE .STR .FLOAD?>>
+
+<PRINC "CUTTHROATS: Frobozz Magic Adventure Fiction
+">
+
+<COND (<GASSIGNED? PREDGEN>
+       <ID 0>)>
+
+<IFILE "MACROS" T>
+
+<IFILE "GLOBALS" T>
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+;<PROPDEF VALUE 0>
+
+<IFILE "SYNTAX" T>
+<ENDLOAD>
+
+<IFILE "CLOCK" T>
+<IFILE "MAIN" T>
+<IFILE "PARSER" T>
+<IFILE "VERBS" T>
+
+
+
+;"Jerry: Add your files here, as with GOAL"
+
+<IFILE "GOAL" T>
+<IFILE "ISLAND" T>
+<IFILE "BOAT" T>
+<IFILE "WRECKS" T>
+<IFILE "PEOPLE" T>
+<IFILE "EVENTS" T>
+;<COND (<NOT <GASSIGNED? PREDGEN>>
+       <CLOSE!- ,XTELLCHAN>)>
+<PRINC "
+Formerly SCUM: Interlogic Adventure Fiction
+
+
+
+
+
+
+
+Get ready!">
\ No newline at end of file
diff --git a/toa.zip b/toa.zip
new file mode 100644
index 0000000..a9d33fc
Binary files /dev/null and b/toa.zip differ
diff --git a/toadat.zap b/toadat.zap
new file mode 100644
index 0000000..6470d6d
--- /dev/null
+++ b/toadat.zap
@@ -0,0 +1,14265 @@
+
+
+; TOP LEVEL DEFINITIONS
+
+	TRUE-VALUE=1
+	FALSE-VALUE=0
+
+	O?ANY=1
+	
+	PS?OBJECT=128
+	PS?VERB=64
+	PS?ADJECTIVE=32
+	PS?DIRECTION=16
+	PS?PREPOSITION=8
+	PS?BUZZ-WORD=4
+
+	P1?OBJECT=0
+	P1?VERB=1
+	P1?ADJECTIVE=2
+	P1?DIRECTION=3
+
+
+; OBJECT FLAGS ARE DEFINED HERE
+
+
+	FX?WEAPONBIT=4096
+	WEAPONBIT=3
+
+	FX?RLANDBIT=2048
+	RLANDBIT=4
+
+	FX?CLIMBBIT=1024
+	CLIMBBIT=5
+
+	FX?READBIT=512
+	READBIT=6
+
+	FX?TAKEBIT=256
+	TAKEBIT=7
+
+	FX?FOODBIT=128
+	FOODBIT=8
+
+	FX?VEHBIT=64
+	VEHBIT=9
+
+	FX?DRINKBIT=32
+	DRINKBIT=10
+
+	FX?CONTBIT=16
+	CONTBIT=11
+
+	FX?NDESCBIT=8
+	NDESCBIT=12
+
+	FX?WORNBIT=4
+	WORNBIT=13
+
+	FX?PUSHBIT=2
+	PUSHBIT=14
+
+	FX?RENTBIT=1
+	RENTBIT=15
+
+	FX?TOOLBIT=32768
+	TOOLBIT=16
+
+	FX?ONBIT=16384
+	ONBIT=17
+
+	FX?WEARBIT=8192
+	WEARBIT=18
+
+	FX?TRANSBIT=4096
+	TRANSBIT=19
+
+	FX?SEARCHBIT=2048
+	SEARCHBIT=20
+
+	FX?OPENBIT=1024
+	OPENBIT=21
+
+	FX?VOWELBIT=512
+	VOWELBIT=22
+
+	FX?PERSON=256
+	PERSON=23
+
+	FX?TURNBIT=128
+	TURNBIT=24
+
+	FX?DOORBIT=64
+	DOORBIT=25
+
+	FX?VICBIT=32
+	VICBIT=26
+
+	FX?TRYTAKEBIT=16
+	TRYTAKEBIT=27
+
+	FX?SURFACEBIT=8
+	SURFACEBIT=28
+
+	FX?TOUCHBIT=4
+	TOUCHBIT=29
+
+	FX?INVISIBLE=2
+	INVISIBLE=30
+
+	FX?RMUNGBIT=1
+	RMUNGBIT=31
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?BRIEF=0
+	V?SUPER-BRIEF=1
+	V?DIAGNOSE=2
+	V?INVENTORY=3
+	V?QUIT=4
+	V?RESTART=5
+	V?RESTORE=6
+	V?SAVE=7
+	V?SCORE=8
+	V?$VERIFY=9
+	V?VERSION=10
+	V?VERBOSE=11
+	V?AGAIN=12
+	V?AIM=13
+	V?PUT=14
+	V?TELL=15
+	V?ASK-CONTEXT-ABOUT=16
+	V?ASK-CONTEXT-FOR=17
+	V?ASK-ABOUT=18
+	V?ASK-FOR=19
+	V?ATTACK=20
+	V?BACK=21
+	V?BOARD=22
+	V?BRACE=23
+	V?BREATHE=24
+	V?BURN=25
+	V?BUY=26
+	V?$CALL=27
+	V?CALL=28
+	V?EXAMINE=29
+	V?FIND=30
+	V?CHOMP=31
+	V?CLEAN=32
+	V?CLIMB-FOO=33
+	V?CLIMB-DOWN=34
+	V?CLIMB-ON=35
+	V?THROUGH=36
+	V?SIT-ON=37
+	V?SIT=38
+	V?SIT-WITH=39
+	V?CLOSE=40
+	V?COUNT=41
+	V?CROSS=42
+	V?CUT=43
+	V?CURSES=44
+	V?DEFLATE=45
+	V?DEPOSIT=46
+	V?PUT-ON=47
+	V?DIG=48
+	V?HOLE-DIG=49
+	V?EXIT=50
+	V?DISEMBARK=51
+	V?DIVE=52
+	V?DRILL=53
+	V?DRILL-IN=54
+	V?DRINK=55
+	V?DROP=56
+	V?LEAN-ON=57
+	V?EAT=58
+	V?TASTE=59
+	V?EMPTY=60
+	V?ENTER=61
+	V?LAMP-OFF=62
+	V?FILL=63
+	V?FOLLOW=64
+	V?GIVE=65
+	V?SGIVE=66
+	V?GOODBYE=67
+	V?HELLO=68
+	V?HELP=69
+	V?HIDE=70
+	V?HIDE-UNDER=71
+	V?INFLATE=72
+	V?LEAP=73
+	V?KICK=74
+	V?KILL=75
+	V?KISS=76
+	V?KNOCK=77
+	V?PUSH=78
+	V?LATITUDE=79
+	V?LONGITUDE=80
+	V?LAUNCH=81
+	V?LEAVE=82
+	V?LAMP-ON=83
+	V?LISTEN=84
+	V?LOCK=85
+	V?LOOK=86
+	V?LOOK-INSIDE=87
+	V?LOOK-UNDER=88
+	V?LOOK-BEHIND=89
+	V?READ=90
+	V?CHASTISE=91
+	V?SEARCH=92
+	V?LOWER=93
+	V?MAKE=94
+	V?MAYBE=95
+	V?MELT=96
+	V?MOVE=97
+	V?PUSH-TO=98
+	V?PLAY=99
+	V?MUMBLE=100
+	V?MUNG=101
+	V?CHIP=102
+	V?OIL=103
+	V?NO=104
+	V?OPEN=105
+	V?PICK=106
+	V?TAKE=107
+	V?PLUG=108
+	V?POUR=109
+	V?POUR-IN=110
+	V?POUR-ON=111
+	V?PRAY=112
+	V?PUMP=113
+	V?PUSH-OFF=114
+	V?PUSH-UNDER=115
+	V?PUSH-THROUGH=116
+	V?PUT-UNDER=117
+	V?WEAR=118
+	V?PUT-AGAINST=119
+	V?PUT-ACROSS=120
+	V?RAPE=121
+	V?REACH-IN=122
+	V?READ-INSIDE=123
+	V?RENT=124
+	V?ROB=125
+	V?RUB=126
+	V?SCRIPT=127
+	V?UNSCRIPT=128
+	V?SEND=129
+	V?SHAKE=130
+	V?SHOW=131
+	V?SSHOW=132
+	V?SKIP=133
+	V?SMELL=134
+	V?SMOKE=135
+	V?SPIN=136
+	V?SPRAY=137
+	V?SSPRAY=138
+	V?SQUEEZE=139
+	V?STAND=140
+	V?STAY=141
+	V?SWIM=142
+	V?SWING=143
+	V?SAY=144
+	V?SLEEP=145
+	V?THROW=146
+	V?THROW-OFF=147
+	V?TIE=148
+	V?TIE-UP=149
+	V?TIME=150
+	V?TURN-OVER=151
+	V?TURN=152
+	V?UNFOLD=153
+	V?FOLD=154
+	V?UNLOCK=155
+	V?UNTIE=156
+	V?WAIT=157
+	V?WAIT-FOR=158
+	V?ALARM=159
+	V?WALK=160
+	V?STEP=161
+	V?WALK-AROUND=162
+	V?CLIMB-UP=163
+	V?WALK-TO=164
+	V?WAVE-AT=165
+	V?WAVE=166
+	V?WEIGH=167
+	V?WIN=168
+	V?WIND=169
+	V?WITHDRAW=170
+	V?YELL=171
+	V?YES=172
+	V?WHAT=173
+
+; PROPERTIES ARE DEFINED HERE
+
+	P?NORTH=31
+	P?EAST=30
+	P?WEST=29
+	P?SOUTH=28
+	P?UP=27
+	P?DOWN=26
+	P?IN=25
+	P?OUT=24
+	P?SE=23
+	P?SW=22
+	P?NE=21
+	P?NW=20
+	P?SYNONYM=19
+	P?ACTION=18
+	P?SDESC=17
+	P?ADJECTIVE=16
+	P?DESCFCN=15
+	P?TEXT=14
+	P?LINE=13
+	P?CAPACITY=12
+	P?CHARACTER=11
+	P?SIZE=10
+	P?LDESC=9
+	P?GLOBAL=8
+	P?PSEUDO=7
+	P?CORRIDOR=6
+	P?STATION=5
+	P?FDESC=4
+	P?VALUE=3
+	P?CONTFCN=2
+
+; 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?OCEAN=247
+	A?BOTTOM=246
+	A?LOWER=245
+	A?TOP=244
+	A?UPPER=243
+	A?SMALL=242
+	A?ROTTIN=241
+	A?NIGHT=240
+	A?MARY=239
+	A?ROTTEN=238
+	A?ABANDO=237
+	A?OVERGR=236
+	A?ROCKY=235
+	A?FADED=234
+	A?DRAB=233
+	A?OFF-WH=232
+	A?WORN=231
+	A?MARINE=230
+	A?TRUST=229
+	A?FERRY=228
+	A?CORREC=227
+	A?BEDROOM=226
+	A?MY=225
+	A?ROOM=224
+	A?BRINE=223
+	A?SEA=222
+	A?LADDER=221
+	A?METAL=220
+	A?STURDY=219
+	A?OLD=218
+	A?DECREP=217
+	A?FRONT=216
+	A?BACK=215
+	A?LIGHTH=214
+	A?WOODEN=213
+	A?LOPSID=212
+	A?TILTED=211
+	A?BANK=210
+	A?DISTIN=209
+	A?HANDWRITTEN=208
+	A?SHIPWR=207
+	A?NAUTIC=206
+	A?HEVLIN=205
+	A?WET=204
+	A?SCUBA=203
+	A?SWIM=202
+	A?DIVING=201
+	A?DIVER=200
+	A?DIVERS=199
+	A?AIR=198
+	A?DOUBLE=197
+	A?ALUMIN=196
+	A?CHEWED=195
+	A?CIGAR=194
+	A?SMELLY=193
+	A?CHEAP=192
+	A?BUSINE=191
+	A?PRICE=190
+	A?COMPLE=189
+	A?SPEAR=188
+	A?SPARE=187
+	A?NINE=186
+	A?VOLT=185
+	A?DRY=184
+	A?NINE-V=183
+	A?AJAX=182
+	A?POWER=181
+	A?C=180
+	A?TUBE=179
+	A?GLOB=178
+	A?HEAVY=177
+	A?SEMI-P=176
+	A?BLACK=175
+	A?LOCATI=174
+	A?DIRECT=173
+	A?PORTAB=172
+	A?ELECTR=171
+	A?SEALED=170
+	A?WATERP=169
+	A?ONE-PI=168
+	A?SHARK=167
+	A?REPELL=166
+	A?CANIST=165
+	A?POLLY=164
+	A?PARROT=163
+	A?AGED=162
+	A?HUGE=161
+	A?DUSTY=160
+	A?DIRTY=159
+	A?GRIMY=158
+	A?BREAKF=157
+	A?LUNCH=156
+	A?DINNER=155
+	A?BEEF=154
+	A?DRINKI=153
+	A?ALCOHO=152
+	A?SCOTCH=151
+	A?BOURBO=150
+	A?DRAFT=149
+	A?RUM=148
+	A?COFFEE=147
+	A?LOOKOU=146
+	A?SAFETY=145
+	A?WEIGHT=144
+	A?FLOURE=143
+	A?ORANGE=142
+	A?LARGE=141
+	A?RETRAC=140
+	A?ACME=139
+	A?WELL=138
+	A?WELL-W=137
+	A?MACHIN=136
+	A?DETECT=135
+	A?ON-OFF=134
+	A?ON/OFF=133
+	A?DEEP=132
+	A?DEEP-S=131
+	A?BULKY=130
+	A?COMFOR=129
+	A?LOOKIN=128
+	A?CAPTAI=127
+	A?FIRST=126
+	A?1ST=125
+	A?HOLE=124
+	A?I=123
+	A?SECOND=122
+	A?2ND=121
+	A?UGLY=120
+	A?BIG=119
+	A?TOOTHY=118
+	A?BROKEN=117
+	A?RUNG=116
+	A?RUNGS=115
+	A?HANGIN=114
+	A?SUSPEN=113
+	A?FALLEN=112
+	A?IRON=111
+	A?BARNAC=110
+	A?WHOLE=109
+	A?SAFE=108
+	A?GLASS=107
+	A?CLEAR=106
+	A?RARE=105
+	A?VALUAB=104
+	A?PRICEL=103
+	A?MAPLE=102
+	A?WOOD=101
+	A?TREASU=100
+	A?JAGGED=99
+	A?LOCKER=98
+	A?OAK=97
+	A?EXPLOS=96
+	A?LOOSE=95
+	A?FLOATI=94
+	A?GIANT=93
+	A?MR=92
+	A?MISTER=91
+	A?STINKIN=90
+	A?JOHNNY=89
+	A?JOHN=88
+	A?PETE=87
+	A?PETER=86
+	A?PETE'S=85
+	A?PETES=84
+	A?FRANK=83
+	A?WEASEL=82
+	A?USED=81
+	A?SHARP=80
+	A?MERCHA=79
+	A?SEAMAN=78
+	A?ID=77
+	A?WRIST=76
+	A?DELIVE=75
+	A?DESK=74
+	A?DEAD=73
+	A?GOLD=72
+	A?PORTUG=71
+	A?SUPPER=70
+
+; BUZZ WORDS ARE DEFINED HERE
+
+	B?A=255
+	B?AN=254
+	B?THE=253
+	B?IS=252
+	B?AND=251
+	B?SOME=250
+	B?OF=249
+	B?THEN=248
+	B?ALL=247
+	B?ONE=246
+	B?BUT=245
+	B?EXCEPT=244
+	B?PERIOD=243
+	B?COMMA=242
+	B?QUOTE=241
+	B?WHY=240
+	B?HOW=239
+	B?WHEN=238
+	B?DID=237
+	B?ARE=236
+	B?HERE=235
+	B?MY=234
+	B?CLOSELY=233
+	B?QUIETLY=232
+	B?SLOWLY=231
+	B?QUICKLY=230
+	B?BRIEFLY=229
+	B?PLEASE=228
+	B?MINUTE=227
+
+; PREPOSITIONS ARE DEFINED HERE
+
+	PR?AT=255
+	PR?TO=254
+	PR?ABOUT=253
+	PR?FOR=252
+	PR?WITH=251
+	PR?DOWN=250
+	PR?FROM=249
+	PR?UP=248
+	PR?IN=247
+	PR?ON=246
+	PR?THROUGH=245
+	PR?OUT=244
+	PR?UNDER=243
+	PR?BEHIND=242
+	PR?OVER=241
+	PR?ACROSS=240
+	PR?OFF=239
+	PR?AROUND=238
+	PR?AGAINST=237
+	PR?BY=236
+	PR?BETWEEN=235
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+	ACT?WHAT=255
+	ACT?YES=254
+	ACT?YELL=253
+	ACT?WITHDRAW=252
+	ACT?WIND=251
+	ACT?WIN=250
+	ACT?WEIGH=249
+	ACT?WEAR=248
+	ACT?WAVE=247
+	ACT?WALK=246
+	ACT?WAKE=245
+	ACT?WAIT=244
+	ACT?UNTIE=243
+	ACT?UNLOCK=242
+	ACT?FOLD=241
+	ACT?UNFOLD=240
+	ACT?TURN=239
+	ACT?TIME=238
+	ACT?TIE=237
+	ACT?THROW=236
+	ACT?SLEEP=235
+	ACT?SAY=234
+	ACT?TELL=233
+	ACT?TAKE=232
+	ACT?SWING=231
+	ACT?SWIM=230
+	ACT?STRIKE=229
+	ACT?STAY=228
+	ACT?STAND=227
+	ACT?SQUEEZE=226
+	ACT?SPRAY=225
+	ACT?SPIN=224
+	ACT?SMOKE=223
+	ACT?SMELL=222
+	ACT?SKIP=221
+	ACT?SLIDE=220
+	ACT?SHOW=219
+	ACT?SHAKE=218
+	ACT?SEND=217
+	ACT?UNSCRIPT=216
+	ACT?SCRIPT=215
+	ACT?RUB=214
+	ACT?ROB=213
+	ACT?RENT=212
+	ACT?READ=211
+	ACT?REACH=210
+	ACT?RAPE=209
+	ACT?RAISE=208
+	ACT?PUT=207
+	ACT?PUSH=206
+	ACT?PUMP=205
+	ACT?PRAY=204
+	ACT?POUR=203
+	ACT?POKE=202
+	ACT?PLUG=201
+	ACT?PICK=200
+	ACT?OPEN=199
+	ACT?NO=198
+	ACT?LUBRICATE=197
+	ACT?DESTROY=196
+	ACT?MUMBLE=195
+	ACT?PULL=194
+	ACT?PLAY=193
+	ACT?ROLL=192
+	ACT?MOVE=191
+	ACT?MELT=190
+	ACT?MAYBE=189
+	ACT?MAKE=188
+	ACT?LOWER=187
+	ACT?SEARCH=186
+	ACT?LOOK=185
+	ACT?LOCK=184
+	ACT?LISTEN=183
+	ACT?LIGHT=182
+	ACT?LEAVE=181
+	ACT?LAUNCH=180
+	ACT?LONGITUDE=179
+	ACT?LATITUDE=178
+	ACT?KNOCK=177
+	ACT?KISS=176
+	ACT?KILL=175
+	ACT?KICK=174
+	ACT?JUMP=173
+	ACT?INFLAT=172
+	ACT?BLOW=171
+	ACT?HIDE=170
+	ACT?HELP=169
+	ACT?HELLO=168
+	ACT?GOODBYE=167
+	ACT?GIVE=166
+	ACT?FOLLOW=165
+	ACT?FIND=164
+	ACT?FILL=163
+	ACT?EXTINGUISH=162
+	ACT?EXAMINE=161
+	ACT?EXIT=160
+	ACT?ENTER=159
+	ACT?EMPTY=158
+	ACT?TASTE=157
+	ACT?EAT=156
+	ACT?LEAN=155
+	ACT?DROP=154
+	ACT?DRINK=153
+	ACT?DRILL=152
+	ACT?DIVE=151
+	ACT?DISEMBARK=150
+	ACT?DIG=149
+	ACT?DEPOSIT=148
+	ACT?DEFLATE=147
+	ACT?CURSE=146
+	ACT?CUT=145
+	ACT?CROSS=144
+	ACT?COUNT=143
+	ACT?CLOSE=142
+	ACT?SIT=141
+	ACT?CLIMB=140
+	ACT?CLEAN=139
+	ACT?CHOMP=138
+	ACT?CHECK=137
+	ACT?CALL=136
+	ACT?$CALL=135
+	ACT?BUY=134
+	ACT?BURN=133
+	ACT?BREATHE=132
+	ACT?BRACE=131
+	ACT?BOARD=130
+	ACT?BACK=129
+	ACT?ATTACK=128
+	ACT?ASK=127
+	ACT?APPLY=126
+	ACT?AIM=125
+	ACT?AGAIN=124
+	ACT?VERBOSE=123
+	ACT?VERSION=122
+	ACT?$VERIFY=121
+	ACT?SCORE=120
+	ACT?SAVE=119
+	ACT?RESTORE=118
+	ACT?RESTART=117
+	ACT?QUIT=116
+	ACT?INVENTORY=115
+	ACT?DIAGNOSE=114
+	ACT?SUPER=113
+	ACT?BRIEF=112
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	ZORKID=18
+	MG-NEXT=4
+	MG-LENGTH=6
+	MG-VARIATION=2
+	MG-TIME=1
+	MG-ROOM=0
+	G-ENROUTE=2
+	G-REACHED=1
+	ATTENTION=7
+	ATTENTION-SPAN=6
+	GOAL-FUNCTION=5
+	GOAL-QUEUED=4
+	GOAL-ENABLE=3
+	GOAL-I=2
+	GOAL-S=1
+	GOAL-F=0
+	DELIVERY-BOY-C=5
+	WEASEL-C=4
+	PETE-C=3
+	JOHNNY-C=2
+	MCGINTY-C=1
+	CHARACTER-MAX=5
+	UNDERWATER-LINE-C=6
+	SALVAGER-LINE-C=5
+	TRAWLER-LINE-C=4
+	BACK-ALLEY-LINE-C=3
+	BEDROOM-LINE-C=2
+	EAST-ROAD-LINE-C=1
+	ROAD-WHARF-LINE-C=0
+	DEXITSTR=1
+	DEXITOBJ=1
+	CEXITSTR=1
+	CEXITFLAG=1
+	FEXITFCN=0
+	NEXITSTR=0
+	DEXIT=5
+	CEXIT=4
+	FEXIT=3
+	NEXIT=2
+	UEXIT=1
+	REXIT=0
+	P-SRCALL=1
+	P-SRCTOP=0
+	P-SRCBOT=2
+	SHAVE=2
+	SMANY=4
+	STAKE=8
+	SOG=16
+	SIR=32
+	SC=64
+	SH=128
+	P-INHIBIT=4
+	P-ONE=2
+	P-ALL=1
+	P-SONUMS=3
+	P-SACTION=7
+	P-SLOC2=6
+	P-SLOC1=5
+	P-SFWIM2=4
+	P-SFWIM1=3
+	P-SPREP2=2
+	P-SPREP1=1
+	P-SBITS=0
+	P-SYNLEN=8
+	P-NC2L=9
+	P-NC2=8
+	P-NC1L=7
+	P-NC1=6
+	P-PREP2N=5
+	P-PREP2=4
+	P-PREP1N=3
+	P-PREP1=2
+	P-VERBN=1
+	P-VERB=0
+	P-ITBLLEN=9
+	P-P1BITS=3
+	P-P1OFF=5
+	P-PSOFF=4
+	P-WORDLEN=4
+	P-LEXELEN=2
+	P-LEXSTART=1
+	P-LEXWORDS=1
+	P-RTLEN=3
+	P-ORPHLEN=7
+	P-PHRLEN=3
+	M-NAME=8
+	M-CONT=7
+	M-OBJDESC=5
+	M-FLASH=4
+	M-LOOK=3
+	M-ENTER=2
+	M-END=6
+	M-BEG=1
+	M-OBJECT=0
+	M-NOT-HANDLED=0
+	M-HANDLED=1
+	M-FATAL=2
+	C-RTN=2
+	C-TICK=1
+	C-ENABLED?=0
+	C-INTLEN=6
+	C-TABLELEN=246
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+OBJECT::.TABLE 2357
+	0			;(NONE)
+	0			;(P?CONTFCN)
+	0			;(P?VALUE)
+	0			;(P?FDESC)
+	0			;(P?STATION)
+	0			;(P?CORRIDOR)
+	0			;(P?PSEUDO)
+	0			;(P?GLOBAL)
+	0			;(P?LDESC)
+	5			;(P?SIZE)
+	0			;(P?CHARACTER)
+	0			;(P?CAPACITY)
+	0			;(P?LINE)
+	0			;(P?TEXT)
+	0			;(P?DESCFCN)
+	0			;(P?ADJECTIVE)
+	0			;(P?SDESC)
+	0			;(P?ACTION)
+	0			;(P?SYNONYM)
+	0			;(P?NW)
+	0			;(P?NE)
+	0			;(P?SW)
+	0			;(P?SE)
+	0			;(P?OUT)
+	0			;(P?IN)
+	0			;(P?DOWN)
+	0			;(P?UP)
+	0			;(P?SOUTH)
+	0			;(P?WEST)
+	0			;(P?EAST)
+	0			;(P?NORTH)
+	.OBJECT DINNER-PLATE,FX?READBIT,FX?TRYTAKEBIT,LOCAL-GLOBALS,GOLD-COIN,0,T?DINNER-PLATE
+	.OBJECT GOLD-COIN,FX?READBIT,FX?TRYTAKEBIT,LOCAL-GLOBALS,DELIVERY-BOY,0,T?GOLD-COIN
+	.OBJECT HEVLIN,0,0,GLOBAL-OBJECTS,GLOBAL-FERRY,0,T?HEVLIN
+	.OBJECT SPEAR-CARRIER,0,FX?VICBIT,RED-BOAR-INN,0,0,T?SPEAR-CARRIER
+	.OBJECT DELIVERY-BOY,0,FX?VOWELBIT+FX?VICBIT,LOCAL-GLOBALS,ID-CARD,0,T?DELIVERY-BOY
+	.OBJECT WATCH,FX?TAKEBIT+FX?WORNBIT,FX?TURNBIT+FX?WEARBIT,ADVENTURER,0,0,T?WATCH
+	.OBJECT ID-CARD,FX?TAKEBIT+FX?READBIT,0,LOCAL-GLOBALS,SQUID,0,T?ID-CARD
+	.OBJECT KNIFE,FX?WEAPONBIT+FX?NDESCBIT,FX?TRYTAKEBIT,WEASEL,0,0,T?KNIFE
+	.OBJECT WEASEL,0,FX?VICBIT+FX?PERSON,FERRY-LANDING,0,KNIFE,T?WEASEL
+	.OBJECT PETES-PATCH,FX?NDESCBIT,FX?TRYTAKEBIT,PETE,0,0,T?PETES-PATCH
+	.OBJECT PETE,0,FX?VICBIT+FX?PERSON,SHANTY,JOHNNY,PETES-PATCH,T?PETE
+	.OBJECT JOHNNY,0,FX?VICBIT+FX?PERSON,SHANTY,NON-DRINK,0,T?JOHNNY
+	.OBJECT CIGAR,FX?NDESCBIT,FX?TRYTAKEBIT,MCGINTY,0,0,T?CIGAR
+	.OBJECT MCGINTY,0,FX?VICBIT+FX?PERSON,MCGINTY-HQ,0,CIGAR,T?MCGINTY
+	.OBJECT WRECK-13,FX?RLANDBIT,0,ROOMS,WRECK-12,0,T?WRECK-13
+	.OBJECT SQUID,0,0,LOCAL-GLOBALS,CLUMP-OF-MINES,0,T?SQUID
+	.OBJECT WRECK-12,FX?RLANDBIT,0,ROOMS,WEST-OF-WRECK-11,0,T?WRECK-12
+	.OBJECT WEST-OF-WRECK-11,FX?RLANDBIT,0,ROOMS,WRECK-11,0,T?WEST-OF-WRECK-11
+	.OBJECT CLUMP-OF-MINES,0,0,LOCAL-GLOBALS,MINE,0,T?CLUMP-OF-MINES
+	.OBJECT MINE,FX?TAKEBIT+FX?NDESCBIT,0,LOCAL-GLOBALS,TREASURE-CHEST,0,T?MINE
+	.OBJECT TREASURE-CHEST,FX?VEHBIT+FX?CLIMBBIT+FX?PUSHBIT,FX?OPENBIT+FX?TRYTAKEBIT+FX?VOWELBIT+FX?SURFACEBIT,LOCAL-GLOBALS,BARNACLES,0,T?TREASURE-CHEST
+	.OBJECT WRECK-11,FX?RLANDBIT,0,ROOMS,WRECK-10,0,T?WRECK-11
+	.OBJECT SWORD,FX?WEAPONBIT+FX?TAKEBIT,0,SCABBARD,0,0,T?SWORD
+	.OBJECT SCABBARD,FX?CONTBIT,FX?OPENBIT+FX?TRYTAKEBIT,LOCAL-GLOBALS,SKELETON,SWORD,T?SCABBARD
+	.OBJECT SKELETON,0,FX?TRANSBIT+FX?SEARCHBIT+FX?TRYTAKEBIT,LOCAL-GLOBALS,LOCKER-DOOR,0,T?SKELETON
+	.OBJECT LOCKER-DOOR,FX?READBIT,FX?OPENBIT+FX?DOORBIT+FX?INVISIBLE,LOCAL-GLOBALS,SAFETY-LINE,0,T?LOCKER-DOOR
+	.OBJECT WRECK-10,FX?RLANDBIT,0,ROOMS,WEST-OF-WRECK-9,0,T?WRECK-10
+	.OBJECT SAFETY-LINE,FX?TAKEBIT,FX?VOWELBIT,LOCAL-GLOBALS,JAGGED-HOLE,0,T?SAFETY-LINE
+	.OBJECT WEST-OF-WRECK-9,FX?RLANDBIT,0,ROOMS,WRECK-9,0,T?WEST-OF-WRECK-9
+	.OBJECT EMPTY-CHEST,FX?CLIMBBIT+FX?VEHBIT+FX?PUSHBIT,FX?OPENBIT+FX?TRYTAKEBIT+FX?SURFACEBIT,LOCAL-GLOBALS,GLASS-CASE,0,T?EMPTY-CHEST
+	.OBJECT JAGGED-HOLE,0,FX?INVISIBLE,LOCAL-GLOBALS,EMPTY-CHEST,0,T?JAGGED-HOLE
+	.OBJECT WRECK-9,FX?RLANDBIT,0,ROOMS,WRECK-8,0,T?WRECK-9
+	.OBJECT STAMPS,0,0,GLASS-CASE,0,0,T?STAMPS
+	.OBJECT GLASS-CASE,FX?TAKEBIT+FX?CONTBIT,FX?TRANSBIT,LOCAL-GLOBALS,EAST-LADDER,STAMPS,T?GLASS-CASE
+	.OBJECT SAFE,FX?CONTBIT+FX?NDESCBIT,FX?SEARCHBIT,BANK,0,0,T?SAFE
+	.OBJECT EAST-LADDER,0,0,LOCAL-GLOBALS,FALLEN-BUNK,0,T?EAST-LADDER
+	.OBJECT WRECK-8,FX?RLANDBIT,0,ROOMS,WRECK-7,0,T?WRECK-8
+	.OBJECT FALLEN-BUNK,0,FX?TRANSBIT+FX?INVISIBLE,LOCAL-GLOBALS,CASK,0,T?FALLEN-BUNK
+	.OBJECT WRECK-7,FX?RLANDBIT,0,ROOMS,WRECK-6,0,T?WRECK-7
+	.OBJECT CASK,FX?CLIMBBIT+FX?VEHBIT+FX?CONTBIT+FX?PUSHBIT,FX?OPENBIT+FX?SURFACEBIT,LOCAL-GLOBALS,LG-IRON-BAR,0,T?CASK
+	.OBJECT WRECK-6,FX?RLANDBIT,0,ROOMS,WRECK-5,0,T?WRECK-6
+	.OBJECT IRON-BAR,FX?NDESCBIT+FX?TAKEBIT,FX?VOWELBIT,LOCAL-GLOBALS,AIRTIGHT-DOOR,0,T?IRON-BAR
+	.OBJECT BARNACLES,0,0,LOCAL-GLOBALS,SCABBARD,0,T?BARNACLES
+	.OBJECT LG-IRON-BAR,0,FX?TRYTAKEBIT,LOCAL-GLOBALS,IRON-BAR,0,T?LG-IRON-BAR
+	.OBJECT AIRTIGHT-DOOR,0,FX?OPENBIT+FX?DOORBIT+FX?INVISIBLE,LOCAL-GLOBALS,BROKEN-MAST,0,T?AIRTIGHT-DOOR
+	.OBJECT WRECK-5,FX?RLANDBIT,0,ROOMS,WRECK-4,0,T?WRECK-5
+	.OBJECT BROKEN-MAST,FX?NDESCBIT,0,LOCAL-GLOBALS,ROPE,0,T?BROKEN-MAST
+	.OBJECT ROPE,FX?NDESCBIT,FX?TRYTAKEBIT,LOCAL-GLOBALS,WEST-LADDER,0,T?ROPE
+	.OBJECT WRECK-4,FX?RLANDBIT,0,ROOMS,WRECK-3,0,T?WRECK-4
+	.OBJECT WRECK-3,FX?RLANDBIT,0,ROOMS,WRECK-2,0,T?WRECK-3
+	.OBJECT WRECK-2,FX?RLANDBIT,0,ROOMS,WRECK-1,0,T?WRECK-2
+	.OBJECT WEST-LADDER,0,FX?TRYTAKEBIT,LOCAL-GLOBALS,SHARK,0,T?WEST-LADDER
+	.OBJECT WRECK-1,FX?RLANDBIT,0,ROOMS,OCEAN-FLOOR,0,T?WRECK-1
+	.OBJECT OCEAN-FLOOR,FX?RLANDBIT,0,ROOMS,UNDERWATER,0,T?OCEAN-FLOOR
+	.OBJECT SHARK,FX?NDESCBIT,0,LOCAL-GLOBALS,HOLE-2,0,T?SHARK
+	.OBJECT UNDERWATER,FX?RLANDBIT,0,ROOMS,NW-ENGINE-ROOM,0,T?UNDERWATER
+	.OBJECT NW-ENGINE-ROOM,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-CAPT-CABIN,0,T?NW-ENGINE-ROOM
+	.OBJECT NW-CAPT-CABIN,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-LOUNGE,0,T?NW-CAPT-CABIN
+	.OBJECT NW-LOUNGE,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-GALLEY,0,T?NW-LOUNGE
+	.OBJECT NW-GALLEY,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-CREW-QTRS,0,T?NW-GALLEY
+	.OBJECT NW-CREW-QTRS,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-LOCKER,0,T?NW-CREW-QTRS
+	.OBJECT HOLE-2,FX?NDESCBIT,FX?INVISIBLE,LOCAL-GLOBALS,HOLE-1,0,T?HOLE-2
+	.OBJECT HOLE-1,FX?NDESCBIT,FX?INVISIBLE,LOCAL-GLOBALS,LINE-HACK,0,T?HOLE-1
+	.OBJECT DRILL,FX?CONTBIT+FX?TAKEBIT,FX?TOOLBIT,NW-LOCKER,0,0,T?DRILL
+	.OBJECT NW-LOCKER,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-WHEELHOUSE,DRILL,T?NW-LOCKER
+	.OBJECT NW-WHEELHOUSE,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-AFT-DECK,0,T?NW-WHEELHOUSE
+	.OBJECT NW-AFT-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-PORT-DECK,0,T?NW-AFT-DECK
+	.OBJECT NW-PORT-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-STARBOARD-DECK,0,T?NW-PORT-DECK
+	.OBJECT NW-STARBOARD-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,NW-FORE-DECK,0,T?NW-STARBOARD-DECK
+	.OBJECT NW-FORE-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-ENGINE-ROOM,0,T?NW-FORE-DECK
+	.OBJECT MM-ENGINE-ROOM,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-CAPT-CABIN,0,T?MM-ENGINE-ROOM
+	.OBJECT REDS-BUNK,FX?NDESCBIT,0,MM-CAPT-CABIN,0,0,T?REDS-BUNK
+	.OBJECT MM-CAPT-CABIN,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-LOUNGE,REDS-BUNK,T?MM-CAPT-CABIN
+	.OBJECT LOUNGE-CHAIR,FX?VEHBIT+FX?NDESCBIT,FX?OPENBIT+FX?TRANSBIT+FX?SURFACEBIT,MM-LOUNGE,0,0,T?LOUNGE-CHAIR
+	.OBJECT MM-LOUNGE,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-GALLEY,LOUNGE-CHAIR,T?MM-LOUNGE
+	.OBJECT STOVE,FX?NDESCBIT+FX?CONTBIT,FX?OPENBIT+FX?SURFACEBIT,MM-GALLEY,0,0,T?STOVE
+	.OBJECT MM-GALLEY,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-CREW-QTRS,STOVE,T?MM-GALLEY
+	.OBJECT UNDER-BUNK,FX?NDESCBIT+FX?CONTBIT,FX?OPENBIT,MM-CREW-QTRS,0,0,T?UNDER-BUNK
+	.OBJECT BUNK,FX?NDESCBIT+FX?CONTBIT+FX?VEHBIT,FX?TRANSBIT+FX?OPENBIT+FX?SURFACEBIT,MM-CREW-QTRS,UNDER-BUNK,0,T?BUNK
+	.OBJECT MM-CREW-QTRS,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-LOCKER,BUNK,T?MM-CREW-QTRS
+	.OBJECT DEEP-SUIT,FX?CONTBIT+FX?TAKEBIT,FX?OPENBIT+FX?WEARBIT,MM-LOCKER,0,0,T?DEEP-SUIT
+	.OBJECT DETECTOR-COMPARTMENT,FX?NDESCBIT+FX?CONTBIT,0,METAL-DETECTOR,DETECTOR-SWITCH,0,T?DETECTOR-COMPARTMENT
+	.OBJECT DETECTOR-SWITCH,FX?NDESCBIT,FX?TURNBIT,METAL-DETECTOR,0,0,T?DETECTOR-SWITCH
+	.OBJECT DETECTOR-LABEL,FX?NDESCBIT+FX?READBIT,0,METAL-DETECTOR,DETECTOR-COMPARTMENT,0,T?DETECTOR-LABEL
+	.OBJECT METAL-DETECTOR,FX?TAKEBIT+FX?CONTBIT,FX?SEARCHBIT+FX?TRANSBIT,MM-LOCKER,DEEP-SUIT,DETECTOR-LABEL,T?METAL-DETECTOR
+	.OBJECT MM-LOCKER,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-WHEELHOUSE,METAL-DETECTOR,T?MM-LOCKER
+	.OBJECT MM-WHEELHOUSE,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-AFT-DECK,0,T?MM-WHEELHOUSE
+	.OBJECT AIR-HOSE,FX?NDESCBIT,FX?VOWELBIT+FX?TRYTAKEBIT,MM-COMPRESSOR,0,0,T?AIR-HOSE
+	.OBJECT MM-COMPRESSOR,FX?NDESCBIT+FX?CONTBIT,FX?OPENBIT,MM-AFT-DECK,0,AIR-HOSE,T?MM-COMPRESSOR
+	.OBJECT LINE-HACK,FX?NDESCBIT,FX?VOWELBIT+FX?INVISIBLE+FX?TRYTAKEBIT,LOCAL-GLOBALS,FERRY,0,T?LINE-HACK
+	.OBJECT MM-AFT-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-PORT-DECK,MM-COMPRESSOR,T?MM-AFT-DECK
+	.OBJECT MM-PORT-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-STARBOARD-DECK,0,T?MM-PORT-DECK
+	.OBJECT MM-STARBOARD-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,MM-FORE-DECK,0,T?MM-STARBOARD-DECK
+	.OBJECT DECK-CHAIR,FX?VEHBIT,FX?TRANSBIT+FX?SURFACEBIT,MM-FORE-DECK,0,0,T?DECK-CHAIR
+	.OBJECT MM-FORE-DECK,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF,DECK-CHAIR,T?MM-FORE-DECK
+	.OBJECT GLOBAL-FERRY,FX?CONTBIT,0,GLOBAL-OBJECTS,GLOBAL-ROOM,0,T?GLOBAL-FERRY
+	.OBJECT WHARF,FX?RLANDBIT,FX?ONBIT,ROOMS,FERRY-LANDING,0,T?WHARF
+	.OBJECT FERRY-LANDING,FX?RLANDBIT,FX?ONBIT,ROOMS,POINT-LOOKOUT,WEASEL,T?FERRY-LANDING
+	.OBJECT POINT-LOOKOUT,FX?RLANDBIT,FX?ONBIT,ROOMS,BANK,0,T?POINT-LOOKOUT
+	.OBJECT RIDICULOUS-MONEY-KLUDGE,FX?NDESCBIT,0,BANK,SAFE,0,T?RIDICULOUS-MONEY-KLUDGE
+	.OBJECT BANK,FX?RLANDBIT,FX?ONBIT,ROOMS,SHANTY,RIDICULOUS-MONEY-KLUDGE,T?BANK
+	.OBJECT NON-DRINK,FX?NDESCBIT+FX?DRINKBIT,0,SHANTY,DRINK-OBJECT,0,T?NON-DRINK
+	.OBJECT DRINK-OBJECT,FX?DRINKBIT+FX?NDESCBIT,0,SHANTY,DRINKING-WATER,0,T?DRINK-OBJECT
+	.OBJECT DRINKING-WATER,FX?DRINKBIT+FX?NDESCBIT,FX?TRYTAKEBIT,SHANTY,FOOD,0,T?DRINKING-WATER
+	.OBJECT FOOD,FX?FOODBIT+FX?NDESCBIT,0,SHANTY,MIRROR,0,T?FOOD
+	.OBJECT MIRROR,FX?NDESCBIT,0,SHANTY,BAR,0,T?MIRROR
+	.OBJECT BAR,FX?NDESCBIT+FX?CONTBIT,FX?OPENBIT+FX?SURFACEBIT,SHANTY,CHAIR,0,T?BAR
+	.OBJECT CHAIR,FX?VEHBIT+FX?NDESCBIT,FX?OPENBIT+FX?TRANSBIT+FX?SURFACEBIT,SHANTY,TABLE-OBJECT,0,T?CHAIR
+	.OBJECT TABLE-OBJECT,FX?CONTBIT+FX?NDESCBIT,FX?TRANSBIT+FX?OPENBIT+FX?SURFACEBIT,SHANTY,0,0,T?TABLE-OBJECT
+	.OBJECT PARROTS-PATCH,FX?NDESCBIT,FX?TRYTAKEBIT,PARROT,0,0,T?PARROTS-PATCH
+	.OBJECT PARROT,0,FX?TRANSBIT+FX?VICBIT,SHANTY,PETE,PARROTS-PATCH,T?PARROT
+	.OBJECT SHANTY,FX?RLANDBIT,FX?ONBIT,ROOMS,OUTFITTERS-HQ,PARROT,T?SHANTY
+	.OBJECT CAGE,FX?RENTBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,CHARTS,0,T?CAGE
+	.OBJECT CHARTS,FX?READBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,SHARK-REPELLENT,0,T?CHARTS
+	.OBJECT SHARK-REPELLENT,FX?NDESCBIT,0,OUTFITTERS-HQ,FLASHLIGHT,0,T?SHARK-REPELLENT
+	.OBJECT FLASHLIGHT,FX?NDESCBIT,0,OUTFITTERS-HQ,MAGNET,0,T?FLASHLIGHT
+	.OBJECT MAGNET,FX?NDESCBIT,FX?TRANSBIT,OUTFITTERS-HQ,DIVING-BOOK,0,T?MAGNET
+	.OBJECT DIVING-BOOK,FX?READBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,INFIDEL-BOX,0,T?DIVING-BOOK
+	.OBJECT INFIDEL-BOX,FX?NDESCBIT,0,OUTFITTERS-HQ,COMPRESSOR,0,T?INFIDEL-BOX
+	.OBJECT COMPRESSOR,FX?RENTBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,TUBE,0,T?COMPRESSOR
+	.OBJECT PUTTY,FX?TAKEBIT,0,TUBE,0,0,T?PUTTY
+	.OBJECT TUBE,FX?READBIT+FX?CONTBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,ANCHOR,PUTTY,T?TUBE
+	.OBJECT ANCHOR,FX?NDESCBIT,FX?VOWELBIT,OUTFITTERS-HQ,BATTERY,0,T?ANCHOR
+	.OBJECT BATTERY,FX?READBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,NET,0,T?BATTERY
+	.OBJECT NET,FX?NDESCBIT,0,OUTFITTERS-HQ,DRY-CELL,0,T?NET
+	.OBJECT DRY-CELL,FX?READBIT+FX?NDESCBIT,0,OUTFITTERS-HQ,WINCH,0,T?DRY-CELL
+	.OBJECT WINCH,FX?NDESCBIT,0,OUTFITTERS-HQ,COMPASS,0,T?WINCH
+	.OBJECT COMPASS,FX?NDESCBIT,0,OUTFITTERS-HQ,SPEAR-GUN,0,T?COMPASS
+	.OBJECT SPEAR-GUN,FX?NDESCBIT,0,OUTFITTERS-HQ,0,0,T?SPEAR-GUN
+	.OBJECT PRICE-LIST,FX?READBIT+FX?TAKEBIT,0,OUTFITTERS-HQ,CAGE,0,T?PRICE-LIST
+	.OBJECT OUTFITTERS-HQ,FX?RLANDBIT,FX?ONBIT,ROOMS,VACANT-LOT,PRICE-LIST,T?OUTFITTERS-HQ
+	.OBJECT VACANT-LOT,FX?RLANDBIT,FX?ONBIT,ROOMS,MCGINTY-HQ,0,T?VACANT-LOT
+	.OBJECT ENVELOPE,FX?CONTBIT+FX?READBIT+FX?TAKEBIT,FX?INVISIBLE+FX?VOWELBIT,LOCAL-GLOBALS,LOCKED-DOOR,0,T?ENVELOPE
+	.OBJECT STUBS,FX?NDESCBIT,FX?TRYTAKEBIT,MCGINTY-HQ,MCGINTY,0,T?STUBS
+	.OBJECT MCGINTY-HQ,FX?RLANDBIT,FX?ONBIT,ROOMS,BEDROOM,STUBS,T?MCGINTY-HQ
+	.OBJECT AIR-TANK,FX?TAKEBIT,FX?VOWELBIT+FX?WEARBIT,CLOSET,MASK,0,T?AIR-TANK
+	.OBJECT MASK,FX?TAKEBIT,FX?TRANSBIT+FX?WEARBIT,CLOSET,FLIPPERS,0,T?MASK
+	.OBJECT FLIPPERS,FX?TAKEBIT,FX?WEARBIT,CLOSET,0,0,T?FLIPPERS
+	.OBJECT WET-SUIT,FX?TAKEBIT,FX?WEARBIT,CLOSET,AIR-TANK,0,T?WET-SUIT
+	.OBJECT CLOSET,FX?CONTBIT,FX?OPENBIT,BEDROOM,NOTE,WET-SUIT,T?CLOSET
+	.OBJECT BOOK,FX?READBIT+FX?TAKEBIT,0,BUREAU,KEY,0,T?BOOK
+	.OBJECT NOTE,FX?READBIT+FX?TAKEBIT,0,BEDROOM,BUREAU,0,T?NOTE
+	.OBJECT KEY,FX?TAKEBIT,FX?TOOLBIT,BUREAU,0,0,T?KEY
+	.OBJECT PASSBOOK,FX?READBIT+FX?TAKEBIT,0,BUREAU,BOOK,0,T?PASSBOOK
+	.OBJECT BUREAU,FX?CONTBIT,0,BEDROOM,BED,PASSBOOK,T?BUREAU
+	.OBJECT BED,FX?CONTBIT+FX?VEHBIT,FX?TRANSBIT+FX?OPENBIT+FX?SURFACEBIT,BEDROOM,0,0,T?BED
+	.OBJECT UPSTAIRS-HALLWAY,FX?RLANDBIT,FX?ONBIT,ROOMS,RED-BOAR-INN,0,T?UPSTAIRS-HALLWAY
+	.OBJECT BACK-ALLEY-5,FX?RLANDBIT,FX?ONBIT,ROOMS,BACK-ALLEY-4,0,T?BACK-ALLEY-5
+	.OBJECT BACK-ALLEY-4,FX?RLANDBIT,FX?ONBIT,ROOMS,BACK-ALLEY-3,0,T?BACK-ALLEY-4
+	.OBJECT BACK-ALLEY-3,FX?RLANDBIT,FX?ONBIT,ROOMS,BACK-ALLEY-2,0,T?BACK-ALLEY-3
+	.OBJECT BACK-WINDOW,0,0,LOCAL-GLOBALS,FRONT-DOOR,0,T?BACK-WINDOW
+	.OBJECT BACK-ALLEY-2,FX?RLANDBIT,FX?ONBIT,ROOMS,BACK-ALLEY-1,0,T?BACK-ALLEY-2
+	.OBJECT BACK-ALLEY-1,FX?RLANDBIT,FX?ONBIT,ROOMS,SHORE-ROAD-2,0,T?BACK-ALLEY-1
+	.OBJECT SHORE-ROAD-2,FX?RLANDBIT,FX?ONBIT,ROOMS,SHORE-ROAD-1,0,T?SHORE-ROAD-2
+	.OBJECT FERRY,FX?VEHBIT,FX?INVISIBLE,LOCAL-GLOBALS,ENVELOPE,0,T?FERRY
+	.OBJECT SHORE-ROAD-1,FX?RLANDBIT,FX?ONBIT,ROOMS,OCEAN-ROAD-3,0,T?SHORE-ROAD-1
+	.OBJECT OCEAN-ROAD-3,FX?RLANDBIT,FX?ONBIT,ROOMS,OCEAN-ROAD-2,0,T?OCEAN-ROAD-3
+	.OBJECT OCEAN-ROAD-2,FX?RLANDBIT,FX?ONBIT,ROOMS,OCEAN-ROAD-1,0,T?OCEAN-ROAD-2
+	.OBJECT OCEAN-ROAD-1,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF-ROAD-5,0,T?OCEAN-ROAD-1
+	.OBJECT WHARF-ROAD-5,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF-ROAD-4,0,T?WHARF-ROAD-5
+	.OBJECT WHARF-ROAD-4,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF-ROAD-3,0,T?WHARF-ROAD-4
+	.OBJECT WHARF-ROAD-3,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF-ROAD-2,0,T?WHARF-ROAD-3
+	.OBJECT WHARF-ROAD-2,FX?RLANDBIT,FX?ONBIT,ROOMS,WHARF-ROAD-1,0,T?WHARF-ROAD-2
+	.OBJECT FRONT-DOOR,0,FX?DOORBIT,LOCAL-GLOBALS,BUNKS,0,T?FRONT-DOOR
+	.OBJECT WHARF-ROAD-1,FX?RLANDBIT,FX?ONBIT,ROOMS,WINDING-ROAD-3,0,T?WHARF-ROAD-1
+	.OBJECT WINDING-ROAD-3,FX?RLANDBIT,FX?ONBIT,ROOMS,WINDING-ROAD-2,0,T?WINDING-ROAD-3
+	.OBJECT WINDING-ROAD-2,FX?RLANDBIT,FX?ONBIT,ROOMS,0,0,T?WINDING-ROAD-2
+	.OBJECT LOCKED-DOOR,0,0,LOCAL-GLOBALS,BACK-WINDOW,0,T?LOCKED-DOOR
+	.OBJECT WINDING-ROAD-1,FX?RLANDBIT,FX?ONBIT,ROOMS,WRECK-13,0,T?WINDING-ROAD-1
+	.OBJECT NOT-HERE-OBJECT,0,0,0,0,0,T?NOT-HERE-OBJECT
+	.OBJECT BUNKS,0,0,LOCAL-GLOBALS,RAILING,0,T?BUNKS
+	.OBJECT RAILING,0,0,LOCAL-GLOBALS,LADDER-BOTTOM,0,T?RAILING
+	.OBJECT LADDER-BOTTOM,0,0,LOCAL-GLOBALS,LADDER-TOP,0,T?LADDER-BOTTOM
+	.OBJECT LADDER-TOP,0,0,LOCAL-GLOBALS,STAIRS,0,T?LADDER-TOP
+	.OBJECT STAIRS,0,0,LOCAL-GLOBALS,OCEAN,0,T?STAIRS
+	.OBJECT OCEAN,FX?DRINKBIT,FX?VOWELBIT+FX?OPENBIT,LOCAL-GLOBALS,BEDROOM-DOOR,0,T?OCEAN
+	.OBJECT BEDROOM-DOOR,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,IN-WINDOW,0,T?BEDROOM-DOOR
+	.OBJECT IN-WINDOW,0,FX?TRANSBIT,LOCAL-GLOBALS,WINDOW,0,T?IN-WINDOW
+	.OBJECT WINDOW,0,FX?TRANSBIT,LOCAL-GLOBALS,CARPET,0,T?WINDOW
+	.OBJECT GLOBAL-ROOM,0,0,GLOBAL-OBJECTS,GLOBAL-SELF,0,T?GLOBAL-ROOM
+	.OBJECT GLOBAL-SELF,0,FX?VICBIT,GLOBAL-OBJECTS,ME,0,T?GLOBAL-SELF
+	.OBJECT ME,0,FX?VICBIT+FX?PERSON,GLOBAL-OBJECTS,GLOBAL-DAY,0,T?ME
+	.OBJECT BEDROOM,FX?RLANDBIT,FX?ONBIT,ROOMS,UPSTAIRS-HALLWAY,ADVENTURER,T?BEDROOM
+	.OBJECT ADVENTURER,FX?NDESCBIT,FX?INVISIBLE+FX?VICBIT+FX?PERSON,BEDROOM,CLOSET,WATCH,T?ADVENTURER
+	.OBJECT GLOBAL-DAY,0,0,GLOBAL-OBJECTS,GLOBAL-TIME,0,T?GLOBAL-DAY
+	.OBJECT GLOBAL-TIME,FX?NDESCBIT,0,GLOBAL-OBJECTS,FERRY-TOKEN,0,T?GLOBAL-TIME
+	.OBJECT FERRY-TOKEN,0,0,GLOBAL-OBJECTS,GLOBAL-MONEY,0,T?FERRY-TOKEN
+	.OBJECT GLOBAL-MONEY,0,0,GLOBAL-OBJECTS,GLOBAL-BANK,0,T?GLOBAL-MONEY
+	.OBJECT GLOBAL-BANK,0,0,GLOBAL-OBJECTS,PEOPLE,0,T?GLOBAL-BANK
+	.OBJECT RED-BOAR-INN,FX?RLANDBIT,FX?ONBIT,ROOMS,BACK-ALLEY-5,GLOBAL-SURFACE,T?RED-BOAR-INN
+	.OBJECT GLOBAL-SURFACE,FX?NDESCBIT+FX?CONTBIT,FX?OPENBIT+FX?SURFACEBIT,RED-BOAR-INN,SPEAR-CARRIER,0,T?GLOBAL-SURFACE
+	.OBJECT CARPET,0,0,LOCAL-GLOBALS,WALLPAPER,0,T?CARPET
+	.OBJECT WALLPAPER,0,0,LOCAL-GLOBALS,ROCKS,0,T?WALLPAPER
+	.OBJECT PEOPLE,0,0,GLOBAL-OBJECTS,POCKET,0,T?PEOPLE
+	.OBJECT POCKET,FX?CONTBIT,FX?OPENBIT,GLOBAL-OBJECTS,GLOBAL-SLEEP,0,T?POCKET
+	.OBJECT ROCKS,0,0,LOCAL-GLOBALS,FIELD,0,T?ROCKS
+	.OBJECT FIELD,0,FX?VOWELBIT,LOCAL-GLOBALS,SHIPWRECK,0,T?FIELD
+	.OBJECT GLOBAL-SLEEP,0,0,GLOBAL-OBJECTS,GLOBAL-TREASURE,0,T?GLOBAL-SLEEP
+	.OBJECT SHIPWRECK,0,0,LOCAL-GLOBALS,SALVAGER,0,T?SHIPWRECK
+	.OBJECT SALVAGER,FX?RENTBIT,0,LOCAL-GLOBALS,TRAWLER,0,T?SALVAGER
+	.OBJECT TRAWLER,FX?RENTBIT,0,LOCAL-GLOBALS,LIGHTHOUSE,0,T?TRAWLER
+	.OBJECT GLOBAL-TREASURE,0,0,GLOBAL-OBJECTS,CEILING,0,T?GLOBAL-TREASURE
+	.OBJECT LIGHTHOUSE,0,0,LOCAL-GLOBALS,MAST,0,T?LIGHTHOUSE
+	.OBJECT MAST,0,FX?INVISIBLE,LOCAL-GLOBALS,CEILING-HOLE-2,0,T?MAST
+	.OBJECT CEILING,FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,WALLS,0,T?CEILING
+	.OBJECT WALLS,FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,BULKHEADS,0,T?WALLS
+	.OBJECT BULKHEADS,FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,HOLE,0,T?BULKHEADS
+	.OBJECT HOLE,FX?NDESCBIT,0,GLOBAL-OBJECTS,GROUND,0,T?HOLE
+	.OBJECT CEILING-HOLE-2,0,FX?INVISIBLE,LOCAL-GLOBALS,CEILING-HOLE-1,0,T?CEILING-HOLE-2
+	.OBJECT CEILING-HOLE-1,0,FX?INVISIBLE,LOCAL-GLOBALS,FLOOR-HOLE-2,0,T?CEILING-HOLE-1
+	.OBJECT FLOOR-HOLE-2,0,FX?INVISIBLE,LOCAL-GLOBALS,FLOOR-HOLE-1,0,T?FLOOR-HOLE-2
+	.OBJECT FLOOR-HOLE-1,0,FX?INVISIBLE,LOCAL-GLOBALS,DECK,0,T?FLOOR-HOLE-1
+	.OBJECT DECK,0,0,LOCAL-GLOBALS,0,0,T?DECK
+	.OBJECT GROUND,0,0,GLOBAL-OBJECTS,AIR,0,T?GROUND
+	.OBJECT AIR,FX?CONTBIT,FX?OPENBIT+FX?VOWELBIT,GLOBAL-OBJECTS,IT,0,T?AIR
+	.OBJECT IT,FX?NDESCBIT,FX?TOUCHBIT,GLOBAL-OBJECTS,INTDIR,0,T?IT
+	.OBJECT PSEUDO-OBJECT,0,0,0,0,0,T?PSEUDO-OBJECT
+	.OBJECT INTDIR,0,0,GLOBAL-OBJECTS,INTNUM,0,T?INTDIR
+	.OBJECT INTNUM,0,0,GLOBAL-OBJECTS,0,0,T?INTNUM
+	.OBJECT RED-HERRING,0,0,LOCAL-GLOBALS,DINNER-PLATE,0,T?RED-HERRING
+	.OBJECT ROOMS,0,0,0,0,WINDING-ROAD-1,T?ROOMS
+	.OBJECT LOCAL-GLOBALS,0,0,GLOBAL-OBJECTS,HEVLIN,RED-HERRING,T?LOCAL-GLOBALS
+	.OBJECT GLOBAL-OBJECTS,FX?WORNBIT+FX?PUSHBIT+FX?RENTBIT,FX?TOOLBIT+FX?ONBIT+FX?WEARBIT+FX?TRANSBIT+FX?SEARCHBIT+FX?OPENBIT+FX?VOWELBIT+FX?PERSON+FX?TURNBIT+FX?DOORBIT+FX?VICBIT+FX?TRYTAKEBIT+FX?SURFACEBIT+FX?TOUCHBIT+FX?INVISIBLE+FX?RMUNGBIT,0,0,LOCAL-GLOBALS,T?GLOBAL-OBJECTS
+	.ENDT
+
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+T?DINNER-PLATE::	.TABLE			; TABLE FOR OBJECT DINNER-PLATE
+	.STRL "dinner plate"
+	.PROP 4,P?SYNONYM
+	W?PLATE
+	W?DISH
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RED-HERRING-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DINNER
+	.BYTE A?SUPPER
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?433
+	.BYTE	0
+	.ENDT
+
+T?GOLD-COIN::	.TABLE			; TABLE FOR OBJECT GOLD-COIN
+	.STRL "gold coin"
+	.PROP 6,P?SYNONYM
+	W?COIN
+	W?DOUBLO
+	W?ESCUDO
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RED-HERRING-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?GOLD
+	.BYTE A?PORTUG
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?432
+	.BYTE	0
+	.ENDT
+
+T?HEVLIN::	.TABLE			; TABLE FOR OBJECT HEVLIN
+	.STRL "dead man"
+	.PROP 4,P?SYNONYM
+	W?HEVLIN
+	W?MAN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HEVLIN-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DEAD
+	.BYTE	0
+	.ENDT
+
+T?SPEAR-CARRIER::	.TABLE			; TABLE FOR OBJECT SPEAR-CARRIER
+	.STRL ""
+	.PROP 8,P?SYNONYM
+	W?CLERK
+	W?SALESM
+	W?BARTEN
+	W?TELLER
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SPEAR-CARRIER-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?221
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?ROOM
+	.BYTE A?DESK
+	.BYTE A?BANK
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?425
+	.BYTE	0
+	.ENDT
+
+T?DELIVERY-BOY::	.TABLE			; TABLE FOR OBJECT DELIVERY-BOY
+	.STRL "Outfitters' delivery boy"
+	.PROP 4,P?SYNONYM
+	W?BOY
+	W?KID
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DELIVERY-BOY-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DELIVE
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	DELIVERY-BOY-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?WATCH::	.TABLE			; TABLE FOR OBJECT WATCH
+	.STRL "wrist watch"
+	.PROP 6,P?SYNONYM
+	W?WATCH
+	W?WRISTW
+	W?TIMEPI
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WATCH-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WRIST
+	.BYTE	0
+	.ENDT
+
+T?ID-CARD::	.TABLE			; TABLE FOR OBJECT ID-CARD
+	.STRL "Merchant Seaman's card"
+	.PROP 2,P?SYNONYM
+	W?CARD
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?MERCHA
+	.BYTE A?SEAMAN
+	.BYTE A?ID
+	.BYTE A?WEASEL
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?423
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.BYTE	0
+	.ENDT
+
+T?KNIFE::	.TABLE			; TABLE FOR OBJECT KNIFE
+	.STRL "Weasel's knife"
+	.PROP 4,P?SYNONYM
+	W?KNIFE
+	W?BLADE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	KNIFE-F
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?WEASEL
+	.BYTE A?USED
+	.BYTE A?WELL-W
+	.BYTE A?SHARP
+	.BYTE	0
+	.ENDT
+
+T?WEASEL::	.TABLE			; TABLE FOR OBJECT WEASEL
+	.STRL "the Weasel"
+	.PROP 4,P?SYNONYM
+	W?WEASEL
+	W?WEBSTE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WEASEL-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?FRANK
+	.BYTE A?MR
+	.BYTE A?MISTER
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	WEASEL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?416
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	WEASEL-F
+	.BYTE	0
+	.ENDT
+
+T?PETES-PATCH::	.TABLE			; TABLE FOR OBJECT PETES-PATCH
+	.STRL "Pete's eyepatch"
+	.PROP 4,P?SYNONYM
+	W?EYEPAT
+	W?PATCH
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PETES-PATCH-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?PETE'S
+	.BYTE A?PETES
+	.BYTE A?BLACK
+	.BYTE	0
+	.ENDT
+
+T?PETE::	.TABLE			; TABLE FOR OBJECT PETE
+	.STRL "Pete the Rat"
+	.PROP 4,P?SYNONYM
+	W?RAT
+	W?COOK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PETE-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?PETE
+	.BYTE A?PETER
+	.BYTE A?MR
+	.BYTE A?MISTER
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	PETE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?415
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	PETE-F
+	.BYTE	0
+	.ENDT
+
+T?JOHNNY::	.TABLE			; TABLE FOR OBJECT JOHNNY
+	.STRL "Johnny Red"
+	.PROP 6,P?SYNONYM
+	W?JOHNNY
+	W?JOHN
+	W?RED
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	JOHNNY-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?JOHNNY
+	.BYTE A?JOHN
+	.BYTE A?MISTER
+	.BYTE A?MR
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	JOHNNY-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?411
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	JOHNNY-F
+	.BYTE	0
+	.ENDT
+
+T?CIGAR::	.TABLE			; TABLE FOR OBJECT CIGAR
+	.STRL "cigar"
+	.PROP 6,P?SYNONYM
+	W?CIGAR
+	W?STOGIE
+	W?CHEROO
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CIGAR-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LARGE
+	.BYTE A?STINKIN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?409
+	.BYTE	0
+	.ENDT
+
+T?MCGINTY::	.TABLE			; TABLE FOR OBJECT MCGINTY
+	.STRL "McGinty"
+	.PROP 2,P?SYNONYM
+	W?MCGINTY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MCGINTY-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MR
+	.BYTE A?MISTER
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	MCGINTY-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?402
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	MCGINTY-F
+	.BYTE	0
+	.ENDT
+
+T?WRECK-13::	.TABLE			; TABLE FOR OBJECT WRECK-13
+	.STRL "Below Decks"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-12
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD WRECK-13-U
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-13-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 5,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE EAST-LADDER
+	.BYTE CEILING-HOLE-1
+	.BYTE	0
+	.ENDT
+
+T?SQUID::	.TABLE			; TABLE FOR OBJECT SQUID
+	.STRL "giant squid"
+	.PROP 2,P?SYNONYM
+	W?SQUID
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SQUID-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?GIANT
+	.BYTE A?HUGE
+	.BYTE A?LARGE
+	.BYTE A?BIG
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?399
+	.BYTE	0
+	.ENDT
+
+T?WRECK-12::	.TABLE			; TABLE FOR OBJECT WRECK-12
+	.STRL "Below Decks"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-11
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-13
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-12-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 4,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE BUNKS
+	.BYTE	0
+	.ENDT
+
+T?WEST-OF-WRECK-11::	.TABLE			; TABLE FOR OBJECT WEST-OF-WRECK-11
+	.STRL "Ocean Floor"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE WRECK-11
+	.PROP 1,P?IN			; UNCONDITIONAL EXIT
+	.BYTE WRECK-11
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-WEST-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 3,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE JAGGED-HOLE
+	.BYTE	0
+	.ENDT
+
+T?CLUMP-OF-MINES::	.TABLE			; TABLE FOR OBJECT CLUMP-OF-MINES
+	.STRL "bunch of mines"
+	.PROP 6,P?SYNONYM
+	W?MINES
+	W?BOMBS
+	W?POINTS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CLUMP-OF-MINES-F
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	CLUMP-OF-MINES-F
+	.BYTE	0
+	.ENDT
+
+T?MINE::	.TABLE			; TABLE FOR OBJECT MINE
+	.STRL "loose mine"
+	.PROP 8,P?SYNONYM
+	W?MINE
+	W?BOMB
+	W?SPIKE
+	W?SPIKES
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MINE-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?EXPLOS
+	.BYTE A?LOOSE
+	.BYTE A?FLOATI
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	40
+	.BYTE	0
+	.ENDT
+
+T?TREASURE-CHEST::	.TABLE			; TABLE FOR OBJECT TREASURE-CHEST
+	.STRL "oak chest"
+	.PROP 4,P?SYNONYM
+	W?CHEST
+	W?TRUNK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TREASURE-CHEST-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?WOODEN
+	.BYTE A?TREASU
+	.BYTE A?OAK
+	.BYTE A?WOOD
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	100
+	.BYTE	0
+	.ENDT
+
+T?WRECK-11::	.TABLE			; TABLE FOR OBJECT WRECK-11
+	.STRL "Below Decks"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE WRECK-10				; ROOM NAME
+	.BYTE LOCKER-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 3,P?WEST			; FUNCTION EXIT
+	.WORD WRECK-11-W
+	.BYTE 0
+	.PROP 3,P?SOUTH			; FUNCTION EXIT
+	.WORD WRECK-11-S
+	.BYTE 0
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD WRECK-11-U
+	.BYTE 0
+	.PROP 3,P?OUT			; FUNCTION EXIT
+	.WORD WRECK-11-W
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-11-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 6,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE LOCKER-DOOR
+	.BYTE JAGGED-HOLE
+	.BYTE CEILING-HOLE-2
+	.BYTE	0
+	.ENDT
+
+T?SWORD::	.TABLE			; TABLE FOR OBJECT SWORD
+	.STRL "sword"
+	.PROP 6,P?SYNONYM
+	W?SWORD
+	W?BLADE
+	W?RAPIER
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?WORN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?394
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	30
+	.BYTE	0
+	.ENDT
+
+T?SCABBARD::	.TABLE			; TABLE FOR OBJECT SCABBARD
+	.STRL "scabbard"
+	.PROP 2,P?SYNONYM
+	W?SCABBA
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SCABBARD-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?SKELETON::	.TABLE			; TABLE FOR OBJECT SKELETON
+	.STRL "skeleton"
+	.PROP 4,P?SYNONYM
+	W?SKELET
+	W?BONES
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SKELETON-F
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	SKELETON-F
+	.BYTE	0
+	.ENDT
+
+T?LOCKER-DOOR::	.TABLE			; TABLE FOR OBJECT LOCKER-DOOR
+	.STRL "door"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?SIGN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LOCKER-DOOR-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?LOCKER
+	.BYTE	0
+	.ENDT
+
+T?WRECK-10::	.TABLE			; TABLE FOR OBJECT WRECK-10
+	.STRL "Below Decks"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-9
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE WRECK-11				; ROOM NAME
+	.BYTE LOCKER-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD WRECK-10-U
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-10-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 4,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE LOCKER-DOOR
+	.PROP 4,P?PSEUDO
+	W?BARNAC
+	BARNACLE-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?SAFETY-LINE::	.TABLE			; TABLE FOR OBJECT SAFETY-LINE
+	.STRL "orange line"
+	.PROP 4,P?SYNONYM
+	W?LINE
+	W?ROPE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SAFETY-LINE-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SAFETY
+	.BYTE A?WEIGHT
+	.BYTE A?FLOURE
+	.BYTE A?ORANGE
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	SAFETY-LINE-F
+	.BYTE	0
+	.ENDT
+
+T?WEST-OF-WRECK-9::	.TABLE			; TABLE FOR OBJECT WEST-OF-WRECK-9
+	.STRL "Ocean Floor"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE WRECK-9
+	.PROP 1,P?IN			; UNCONDITIONAL EXIT
+	.BYTE WRECK-9
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-WEST-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 3,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE JAGGED-HOLE
+	.BYTE	0
+	.ENDT
+
+T?EMPTY-CHEST::	.TABLE			; TABLE FOR OBJECT EMPTY-CHEST
+	.STRL "maple chest"
+	.PROP 4,P?SYNONYM
+	W?CHEST
+	W?TRUNK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	EMPTY-CHEST-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?WOODEN
+	.BYTE A?MAPLE
+	.BYTE A?WOOD
+	.BYTE A?TREASU
+	.BYTE	0
+	.ENDT
+
+T?JAGGED-HOLE::	.TABLE			; TABLE FOR OBJECT JAGGED-HOLE
+	.STRL "jagged hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	JAGGED-HOLE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?JAGGED
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?386
+	.BYTE	0
+	.ENDT
+
+T?WRECK-9::	.TABLE			; TABLE FOR OBJECT WRECK-9
+	.STRL "Below Decks"
+	.PROP 3,P?WEST			; FUNCTION EXIT
+	.WORD WRECK-9-W
+	.BYTE 0
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-10
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD WRECK-9-U
+	.BYTE 0
+	.PROP 3,P?OUT			; FUNCTION EXIT
+	.WORD WRECK-9-W
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-9-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 6,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE BUNKS
+	.BYTE JAGGED-HOLE
+	.BYTE CEILING-HOLE-2
+	.BYTE	0
+	.ENDT
+
+T?STAMPS::	.TABLE			; TABLE FOR OBJECT STAMPS
+	.STRL "collection of rare stamps"
+	.PROP 4,P?SYNONYM
+	W?STAMPS
+	W?COLLEC
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	STAMPS-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?RARE
+	.BYTE A?VALUAB
+	.BYTE A?PRICEL
+	.BYTE	0
+	.ENDT
+
+T?GLASS-CASE::	.TABLE			; TABLE FOR OBJECT GLASS-CASE
+	.STRL "glass case"
+	.PROP 6,P?SYNONYM
+	W?CASE
+	W?CRACK
+	W?SHELF
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLASS-CASE-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SEALED
+	.BYTE A?GLASS
+	.BYTE A?CLEAR
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	25
+	.BYTE	0
+	.ENDT
+
+T?SAFE::	.TABLE			; TABLE FOR OBJECT SAFE
+	.STRL "safe"
+	.PROP 8,P?SYNONYM
+	W?SAFE
+	W?VAULT
+	W?DOOR
+	W?LOCK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VAULT-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?BANK
+	.BYTE A?SAFE
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.BYTE	0
+	.ENDT
+
+T?EAST-LADDER::	.TABLE			; TABLE FOR OBJECT EAST-LADDER
+	.STRL "ladder"
+	.PROP 6,P?SYNONYM
+	W?LADDER
+	W?RUNG
+	W?RUNGS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	EAST-LADDER-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?WOODEN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?380
+	.BYTE	0
+	.ENDT
+
+T?WRECK-8::	.TABLE			; TABLE FOR OBJECT WRECK-8
+	.STRL "Middle Deck"
+	.PROP 3,P?NORTH			; FUNCTION EXIT
+	.WORD WRECK-8-N
+	.BYTE 0
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD WRECK-8-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-8-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 6,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE DECK
+	.BYTE BUNKS
+	.BYTE FALLEN-BUNK
+	.BYTE EAST-LADDER
+	.BYTE FLOOR-HOLE-1
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.BYTE	0
+	.ENDT
+
+T?FALLEN-BUNK::	.TABLE			; TABLE FOR OBJECT FALLEN-BUNK
+	.STRL "row of fallen bunks"
+	.PROP 6,P?SYNONYM
+	W?BUNK
+	W?BUNKS
+	W?ROW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FALLEN-BUNK-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FALLEN
+	.BYTE	0
+	.ENDT
+
+T?WRECK-7::	.TABLE			; TABLE FOR OBJECT WRECK-7
+	.STRL "Middle Deck"
+	.PROP 3,P?NORTH			; FUNCTION EXIT
+	.WORD WRECK-7-N
+	.BYTE 0
+	.PROP 3,P?SOUTH			; FUNCTION EXIT
+	.WORD WRECK-7-S
+	.BYTE 0
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD WRECK-7-U
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-7-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 4,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE DECK
+	.BYTE FALLEN-BUNK
+	.BYTE CEILING-HOLE-1
+	.PROP 4,P?PSEUDO
+	W?DEBRIS
+	DEBRIS-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?CASK::	.TABLE			; TABLE FOR OBJECT CASK
+	.STRL "wooden cask"
+	.PROP 4,P?SYNONYM
+	W?CASK
+	W?BARREL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CASK-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?WOODEN
+	.BYTE A?WHOLE
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	15
+	.PROP 2,P?FDESC			; STRING PROPERTY
+	STR?370
+	.BYTE	0
+	.ENDT
+
+T?WRECK-6::	.TABLE			; TABLE FOR OBJECT WRECK-6
+	.STRL "Middle Deck"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE WRECK-5				; ROOM NAME
+	.BYTE AIRTIGHT-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 3,P?SOUTH			; FUNCTION EXIT
+	.WORD WRECK-6-S
+	.BYTE 0
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD WRECK-6-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-6-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 5,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE AIRTIGHT-DOOR
+	.BYTE FLOOR-HOLE-2
+	.PROP 8,P?PSEUDO
+	W?WOOD
+	WOOD-PSEUDO
+	W?TABLES
+	OVERTURNED-PSEUDO
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.BYTE	0
+	.ENDT
+
+T?IRON-BAR::	.TABLE			; TABLE FOR OBJECT IRON-BAR
+	.STRL "iron bar"
+	.PROP 6,P?SYNONYM
+	W?BAR
+	W?ROD
+	W?PIKE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	IRON-BAR-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?IRON
+	.BYTE A?METAL
+	.BYTE A?HEAVY
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?364
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	9
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	30
+	.BYTE	0
+	.ENDT
+
+T?BARNACLES::	.TABLE			; TABLE FOR OBJECT BARNACLES
+	.STRL "barnacle"
+	.PROP 2,P?SYNONYM
+	W?BARNAC
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BARNACLE-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?LG-IRON-BAR::	.TABLE			; TABLE FOR OBJECT LG-IRON-BAR
+	.STRL "lot of iron bars"
+	.PROP 8,P?SYNONYM
+	W?BAR
+	W?PIKE
+	W?PIKES
+	W?BARS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LG-IRON-BAR-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?IRON
+	.BYTE A?BARNAC
+	.BYTE A?METAL
+	.BYTE	0
+	.ENDT
+
+T?AIRTIGHT-DOOR::	.TABLE			; TABLE FOR OBJECT AIRTIGHT-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRTIGHT-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?WRECK-5::	.TABLE			; TABLE FOR OBJECT WRECK-5
+	.STRL "Middle Deck"
+	.PROP 3,P?NORTH			; FUNCTION EXIT
+	.WORD WRECK-5-N
+	.BYTE 0
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE WRECK-6				; ROOM NAME
+	.BYTE AIRTIGHT-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD WRECK-5-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-5-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 8,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE BUNKS
+	.BYTE AIRTIGHT-DOOR
+	.BYTE FLOOR-HOLE-2
+	.BYTE LG-IRON-BAR
+	.BYTE BARNACLES
+	.PROP 8,P?PSEUDO
+	W?PLAQUE
+	PLAQUE-PSEUDO
+	W?PARTIT
+	PARTITIONS-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?BROKEN-MAST::	.TABLE			; TABLE FOR OBJECT BROKEN-MAST
+	.STRL "mast"
+	.PROP 2,P?SYNONYM
+	W?MAST
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BROKEN-MAST-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?BROKEN
+	.BYTE A?SUSPEN
+	.BYTE A?FALLEN
+	.BYTE	0
+	.ENDT
+
+T?ROPE::	.TABLE			; TABLE FOR OBJECT ROPE
+	.STRL "rope"
+	.PROP 2,P?SYNONYM
+	W?ROPE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ROPE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?HANGIN
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	ROPE-F
+	.BYTE	0
+	.ENDT
+
+T?WRECK-4::	.TABLE			; TABLE FOR OBJECT WRECK-4
+	.STRL "Middle Deck"
+	.PROP 3,P?SOUTH			; FUNCTION EXIT
+	.WORD WRECK-4-N
+	.BYTE 0
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD WRECK-4-U
+	.BYTE 0
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD WRECK-4-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-4-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 8,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE WEST-LADDER
+	.BYTE BUNKS
+	.BYTE CEILING-HOLE-1
+	.BYTE CEILING-HOLE-2
+	.BYTE FLOOR-HOLE-2
+	.PROP 8,P?PSEUDO
+	W?DEBRIS
+	DEBRIS-PSEUDO
+	W?BARNAC
+	BARNACLE-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?WRECK-3::	.TABLE			; TABLE FOR OBJECT WRECK-3
+	.STRL "Top Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-2
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD UNDERWATER-U
+	.BYTE 0
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD WRECK-3-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-3-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 5,P?GLOBAL
+	.BYTE MAST
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE FLOOR-HOLE-1
+	.BYTE	0
+	.ENDT
+
+T?WRECK-2::	.TABLE			; TABLE FOR OBJECT WRECK-2
+	.STRL "Top Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-1
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-3
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD UNDERWATER-U
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-2-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 3,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE	0
+	.ENDT
+
+T?WEST-LADDER::	.TABLE			; TABLE FOR OBJECT WEST-LADDER
+	.STRL "ladder"
+	.PROP 8,P?SYNONYM
+	W?LADDER
+	W?WOOD
+	W?PIECE
+	W?PIECES
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WEST-LADDER-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?BROKEN
+	.BYTE A?WOODEN
+	.BYTE A?RUNG
+	.BYTE A?RUNGS
+	.BYTE	0
+	.ENDT
+
+T?WRECK-1::	.TABLE			; TABLE FOR OBJECT WRECK-1
+	.STRL "Top Deck"
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE WRECK-2
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD UNDERWATER-U
+	.BYTE 0
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD WRECK-1-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WRECK-1-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 7,P?GLOBAL
+	.BYTE SHIPWRECK
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE WEST-LADDER
+	.BYTE FLOOR-HOLE-1
+	.BYTE FLOOR-HOLE-2
+	.BYTE MAST
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.BYTE	0
+	.ENDT
+
+T?OCEAN-FLOOR::	.TABLE			; TABLE FOR OBJECT OCEAN-FLOOR
+	.STRL "Ocean Floor"
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD UNDERWATER-U
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OCEAN-FLOOR-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?345
+	.PROP 1,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE	0
+	.ENDT
+
+T?SHARK::	.TABLE			; TABLE FOR OBJECT SHARK
+	.STRL "shark"
+	.PROP 4,P?SYNONYM
+	W?SHARK
+	W?FISH
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?UGLY
+	.BYTE A?LARGE
+	.BYTE A?BIG
+	.BYTE A?HUGE
+	.BYTE A?TOOTHY
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?344
+	.BYTE	0
+	.ENDT
+
+T?UNDERWATER::	.TABLE			; TABLE FOR OBJECT UNDERWATER
+	.STRL "Underwater"
+	.PROP 3,P?UP			; FUNCTION EXIT
+	.WORD UNDERWATER-U
+	.BYTE 0
+	.PROP 3,P?DOWN			; FUNCTION EXIT
+	.WORD UNDERWATER-D
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	UNDERWATER-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 1,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE	0
+	.ENDT
+
+T?NW-ENGINE-ROOM::	.TABLE			; TABLE FOR OBJECT NW-ENGINE-ROOM
+	.STRL "Engine Room"
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE NW-LOUNGE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-ENGINE-ROOM-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	100
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 3,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE LADDER-BOTTOM
+	.PROP 4,P?PSEUDO
+	W?ENGINE
+	ENGINE-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-LOUNGE
+	.BYTE	0
+	.ENDT
+
+T?NW-CAPT-CABIN::	.TABLE			; TABLE FOR OBJECT NW-CAPT-CABIN
+	.STRL "Captain's Cabin"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-LOUNGE
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?337
+	.PROP 2,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-LOUNGE
+	.BYTE	0
+	.ENDT
+
+T?NW-LOUNGE::	.TABLE			; TABLE FOR OBJECT NW-LOUNGE
+	.STRL "Lounge"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-GALLEY
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-CAPT-CABIN
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE NW-AFT-DECK
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE NW-ENGINE-ROOM
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-LOUNGE-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?336
+	.PROP 4,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE LADDER-BOTTOM
+	.BYTE LADDER-TOP
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-LOUNGE
+	.BYTE	0
+	.ENDT
+
+T?NW-GALLEY::	.TABLE			; TABLE FOR OBJECT NW-GALLEY
+	.STRL "Galley"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-CREW-QTRS
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-LOUNGE
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE NW-WHEELHOUSE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-GALLEY-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 3,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE LADDER-BOTTOM
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-GALLEY
+	.BYTE	0
+	.ENDT
+
+T?NW-CREW-QTRS::	.TABLE			; TABLE FOR OBJECT NW-CREW-QTRS
+	.STRL "Crew's Quarters"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-LOCKER
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-GALLEY
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE NW-FORE-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-CREW-QTRS-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 3,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE LADDER-BOTTOM
+	.PROP 4,P?PSEUDO
+	W?BUNKS
+	BUNKS-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-CREW-QTRS
+	.BYTE	0
+	.ENDT
+
+T?HOLE-2::	.TABLE			; TABLE FOR OBJECT HOLE-2
+	.STRL ""
+	.PROP 4,P?SYNONYM
+	W?HOLE
+	W?DRILLE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-HOLE-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?334
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SECOND
+	.BYTE A?2ND
+	.BYTE A?HOLE
+	.BYTE A?I
+	.BYTE	0
+	.ENDT
+
+T?HOLE-1::	.TABLE			; TABLE FOR OBJECT HOLE-1
+	.STRL ""
+	.PROP 4,P?SYNONYM
+	W?HOLE
+	W?DRILLE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-HOLE-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?333
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?FIRST
+	.BYTE A?1ST
+	.BYTE A?HOLE
+	.BYTE A?I
+	.BYTE	0
+	.ENDT
+
+T?DRILL::	.TABLE			; TABLE FOR OBJECT DRILL
+	.STRL "portable drill"
+	.PROP 8,P?SYNONYM
+	W?DRILL
+	W?BIT
+	W?PANEL
+	W?SWITCH
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DRILL-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?WATERP
+	.BYTE A?PORTAB
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	25
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	DRILL-F
+	.BYTE	0
+	.ENDT
+
+T?NW-LOCKER::	.TABLE			; TABLE FOR OBJECT NW-LOCKER
+	.STRL "Storage Locker"
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-CREW-QTRS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-LOCKER-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.PROP 4,P?PSEUDO
+	W?LOCKER
+	GLOBAL-ROOM-F
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-CREW-QTRS
+	.BYTE	0
+	.ENDT
+
+T?NW-WHEELHOUSE::	.TABLE			; TABLE FOR OBJECT NW-WHEELHOUSE
+	.STRL "Wheelhouse"
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-AFT-DECK
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE NW-GALLEY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-WHEELHOUSE-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 6,P?GLOBAL
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE SALVAGER
+	.BYTE LADDER-TOP
+	.BYTE WINDOW
+	.BYTE OCEAN
+	.PROP 4,P?PSEUDO
+	W?WHEEL
+	WHEEL-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-AFT-DECK
+	.BYTE	0
+	.ENDT
+
+T?NW-AFT-DECK::	.TABLE			; TABLE FOR OBJECT NW-AFT-DECK
+	.STRL "Aft Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-WHEELHOUSE
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE NW-STARBOARD-DECK
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE NW-PORT-DECK
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE NW-LOUNGE
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE NW-STARBOARD-DECK
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE NW-PORT-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-AFT-DECK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 5,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE RAILING
+	.BYTE LADDER-TOP
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-AFT-DECK
+	.BYTE	0
+	.ENDT
+
+T?NW-PORT-DECK::	.TABLE			; TABLE FOR OBJECT NW-PORT-DECK
+	.STRL "Port Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-FORE-DECK
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-AFT-DECK
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE NW-AFT-DECK
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE NW-FORE-DECK
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?331
+	.PROP 5,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE RAILING
+	.BYTE IN-WINDOW
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-PORT-DECK
+	.BYTE	0
+	.ENDT
+
+T?NW-STARBOARD-DECK::	.TABLE			; TABLE FOR OBJECT NW-STARBOARD-DECK
+	.STRL "Starboard Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE NW-FORE-DECK
+	.PROP 4,P?EAST			; CONDITIONAL EXIT
+	.BYTE WHARF				; ROOM NAME
+	.BYTE TRAWLER-DOCKED				; FLAG NAME
+	STR?307			; STRING
+	.PROP 2,P?WEST			; STRING PROPERTY
+	STR?330
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE NW-AFT-DECK
+	.PROP 4,P?OUT			; CONDITIONAL EXIT
+	.BYTE WHARF				; ROOM NAME
+	.BYTE TRAWLER-DOCKED				; FLAG NAME
+	STR?307			; STRING
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE NW-AFT-DECK
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE NW-FORE-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-STARBOARD-DECK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 5,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE RAILING
+	.BYTE IN-WINDOW
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-STARBOARD-DECK
+	.BYTE	0
+	.ENDT
+
+T?NW-FORE-DECK::	.TABLE			; TABLE FOR OBJECT NW-FORE-DECK
+	.STRL "Fore Deck"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE NW-STARBOARD-DECK
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE NW-PORT-DECK
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?249
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE NW-CREW-QTRS
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE NW-STARBOARD-DECK
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE NW-PORT-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NW-FORE-DECK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 6,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE TRAWLER
+	.BYTE RAILING
+	.BYTE IN-WINDOW
+	.BYTE LADDER-TOP
+	.PROP 8,P?PSEUDO
+	W?BOLT
+	BOLT-PSEUDO
+	W?BOLTS
+	BOLT-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	NW-FORE-DECK
+	.BYTE	0
+	.ENDT
+
+T?MM-ENGINE-ROOM::	.TABLE			; TABLE FOR OBJECT MM-ENGINE-ROOM
+	.STRL "Engine Room"
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE MM-LOUNGE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-ENGINE-ROOM-F
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	100
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 3,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE LADDER-BOTTOM
+	.PROP 4,P?PSEUDO
+	W?ENGINE
+	ENGINE-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-LOUNGE
+	.BYTE	0
+	.ENDT
+
+T?REDS-BUNK::	.TABLE			; TABLE FOR OBJECT REDS-BUNK
+	.STRL "large bunk"
+	.PROP 6,P?SYNONYM
+	W?BUNK
+	W?BED
+	W?MATTRE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	REDS-BUNK-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?LARGE
+	.BYTE A?COMFOR
+	.BYTE A?LOOKIN
+	.BYTE A?CAPTAI
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?327
+	.BYTE	0
+	.ENDT
+
+T?MM-CAPT-CABIN::	.TABLE			; TABLE FOR OBJECT MM-CAPT-CABIN
+	.STRL "Captain's Cabin"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-LOUNGE
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?326
+	.PROP 2,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-LOUNGE
+	.BYTE	0
+	.ENDT
+
+T?LOUNGE-CHAIR::	.TABLE			; TABLE FOR OBJECT LOUNGE-CHAIR
+	.STRL "chair"
+	.PROP 6,P?SYNONYM
+	W?CHAIR
+	W?CHAIRS
+	W?SEAT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LOUNGE-CHAIR-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?MM-LOUNGE::	.TABLE			; TABLE FOR OBJECT MM-LOUNGE
+	.STRL "Lounge"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-GALLEY
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-CAPT-CABIN
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE MM-AFT-DECK
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE MM-ENGINE-ROOM
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-LOUNGE-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?325
+	.PROP 4,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE LADDER-BOTTOM
+	.BYTE LADDER-TOP
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-LOUNGE
+	.BYTE	0
+	.ENDT
+
+T?STOVE::	.TABLE			; TABLE FOR OBJECT STOVE
+	.STRL "stove"
+	.PROP 6,P?SYNONYM
+	W?STOVE
+	W?RANGE
+	W?GIMBAL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	STOVE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SMALL
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?MM-GALLEY::	.TABLE			; TABLE FOR OBJECT MM-GALLEY
+	.STRL "Galley"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-CREW-QTRS
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-LOUNGE
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE MM-WHEELHOUSE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-GALLEY-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 3,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE LADDER-BOTTOM
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-GALLEY
+	.BYTE	0
+	.ENDT
+
+T?UNDER-BUNK::	.TABLE			; TABLE FOR OBJECT UNDER-BUNK
+	.STRL "under the bunk"
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	UNDER-BUNK-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	UNDER-BUNK-F
+	.BYTE	0
+	.ENDT
+
+T?BUNK::	.TABLE			; TABLE FOR OBJECT BUNK
+	.STRL "bunk"
+	.PROP 6,P?SYNONYM
+	W?BUNK
+	W?BED
+	W?MATTRE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BUNK-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	25
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	30
+	.BYTE	0
+	.ENDT
+
+T?MM-CREW-QTRS::	.TABLE			; TABLE FOR OBJECT MM-CREW-QTRS
+	.STRL "Crew's Quarters"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-LOCKER
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-GALLEY
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE MM-FORE-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-CREW-QTRS-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 3,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE LADDER-BOTTOM
+	.PROP 4,P?PSEUDO
+	W?BUNKS
+	BUNKS-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-CREW-QTRS
+	.BYTE	0
+	.ENDT
+
+T?DEEP-SUIT::	.TABLE			; TABLE FOR OBJECT DEEP-SUIT
+	.STRL "deep-sea diving suit"
+	.PROP 4,P?SYNONYM
+	W?SUIT
+	W?HOOD
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DEEP-SUIT-F
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?DEEP
+	.BYTE A?DEEP-S
+	.BYTE A?SEA
+	.BYTE A?DIVING
+	.BYTE A?BULKY
+	.BYTE	0
+	.ENDT
+
+T?DETECTOR-COMPARTMENT::	.TABLE			; TABLE FOR OBJECT DETECTOR-COMPARTMENT
+	.STRL "machine compartment"
+	.PROP 6,P?SYNONYM
+	W?COMPAR
+	W?RECESS
+	W?PANEL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DETECTOR-COMPARTMENT-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE A?MACHIN
+	.BYTE A?METAL
+	.BYTE A?DETECT
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	DETECTOR-COMPARTMENT-F
+	.BYTE	0
+	.ENDT
+
+T?DETECTOR-SWITCH::	.TABLE			; TABLE FOR OBJECT DETECTOR-SWITCH
+	.STRL "machine switch"
+	.PROP 2,P?SYNONYM
+	W?SWITCH
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DETECTOR-SWITCH-F
+	.PROP 7,P?ADJECTIVE
+	.BYTE A?MACHIN
+	.BYTE A?DETECT
+	.BYTE A?METAL
+	.BYTE A?SMALL
+	.BYTE A?POWER
+	.BYTE A?ON-OFF
+	.BYTE A?ON/OFF
+	.BYTE	0
+	.ENDT
+
+T?DETECTOR-LABEL::	.TABLE			; TABLE FOR OBJECT DETECTOR-LABEL
+	.STRL "machine label"
+	.PROP 8,P?SYNONYM
+	W?LABEL
+	W?TAG
+	W?STICKE
+	W?LOGO
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DETECTOR-LABEL-F
+	.PROP 7,P?ADJECTIVE
+	.BYTE A?WELL
+	.BYTE A?WORN
+	.BYTE A?WELL-W
+	.BYTE A?MACHIN
+	.BYTE A?DETECT
+	.BYTE A?METAL
+	.BYTE A?SMALL
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?318
+	.BYTE	0
+	.ENDT
+
+T?METAL-DETECTOR::	.TABLE			; TABLE FOR OBJECT METAL-DETECTOR
+	.STRL "small machine"
+	.PROP 6,P?SYNONYM
+	W?MACHIN
+	W?DETECT
+	W?DEVICE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	METAL-DETECTOR-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE A?METAL
+	.BYTE A?ACME
+	.BYTE	0
+	.ENDT
+
+T?MM-LOCKER::	.TABLE			; TABLE FOR OBJECT MM-LOCKER
+	.STRL "Storage Locker"
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-CREW-QTRS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-LOCKER-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.PROP 4,P?PSEUDO
+	W?LOCKER
+	GLOBAL-ROOM-F
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-CREW-QTRS
+	.BYTE	0
+	.ENDT
+
+T?MM-WHEELHOUSE::	.TABLE			; TABLE FOR OBJECT MM-WHEELHOUSE
+	.STRL "Wheelhouse"
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-AFT-DECK
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE MM-GALLEY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-WHEELHOUSE-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 6,P?GLOBAL
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE TRAWLER
+	.BYTE LADDER-TOP
+	.BYTE WINDOW
+	.BYTE OCEAN
+	.PROP 8,P?PSEUDO
+	W?WHEEL
+	WHEEL-PSEUDO
+	W?COMPRE
+	COMPRESSOR-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-AFT-DECK
+	.BYTE	0
+	.ENDT
+
+T?AIR-HOSE::	.TABLE			; TABLE FOR OBJECT AIR-HOSE
+	.STRL "airhose"
+	.PROP 4,P?SYNONYM
+	W?AIRHOSE
+	W?HOSE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIR-HOSE-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?AIR
+	.BYTE A?RETRAC
+	.BYTE	0
+	.ENDT
+
+T?MM-COMPRESSOR::	.TABLE			; TABLE FOR OBJECT MM-COMPRESSOR
+	.STRL "large air compressor"
+	.PROP 4,P?SYNONYM
+	W?COMPRE
+	W?SWITCH
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-COMPRESSOR-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?LARGE
+	.BYTE A?AIR
+	.BYTE A?HUGE
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	100
+	.BYTE	0
+	.ENDT
+
+T?LINE-HACK::	.TABLE			; TABLE FOR OBJECT LINE-HACK
+	.STRL "orange line"
+	.PROP 4,P?SYNONYM
+	W?LINE
+	W?ROPE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LINE-HACK-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SAFETY
+	.BYTE A?WEIGHT
+	.BYTE A?FLOURE
+	.BYTE A?ORANGE
+	.BYTE	0
+	.ENDT
+
+T?MM-AFT-DECK::	.TABLE			; TABLE FOR OBJECT MM-AFT-DECK
+	.STRL "Aft Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-WHEELHOUSE
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE MM-STARBOARD-DECK
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE MM-PORT-DECK
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE MM-LOUNGE
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE MM-STARBOARD-DECK
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE MM-PORT-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-AFT-DECK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 5,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE RAILING
+	.BYTE LADDER-TOP
+	.PROP 8,P?PSEUDO
+	W?BOLT
+	BOLT-PSEUDO
+	W?BOLTS
+	BOLT-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-AFT-DECK
+	.BYTE	0
+	.ENDT
+
+T?MM-PORT-DECK::	.TABLE			; TABLE FOR OBJECT MM-PORT-DECK
+	.STRL "Port Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-FORE-DECK
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?249
+	.PROP 4,P?WEST			; CONDITIONAL EXIT
+	.BYTE WHARF				; ROOM NAME
+	.BYTE SALVAGER-DOCKED				; FLAG NAME
+	STR?307			; STRING
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-AFT-DECK
+	.PROP 4,P?OUT			; CONDITIONAL EXIT
+	.BYTE WHARF				; ROOM NAME
+	.BYTE SALVAGER-DOCKED				; FLAG NAME
+	STR?307			; STRING
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE MM-AFT-DECK
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE MM-FORE-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-PORT-DECK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 5,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE RAILING
+	.BYTE IN-WINDOW
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-PORT-DECK
+	.BYTE	0
+	.ENDT
+
+T?MM-STARBOARD-DECK::	.TABLE			; TABLE FOR OBJECT MM-STARBOARD-DECK
+	.STRL "Starboard Deck"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE MM-FORE-DECK
+	.PROP 2,P?WEST			; STRING PROPERTY
+	STR?249
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE MM-AFT-DECK
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE MM-AFT-DECK
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE MM-FORE-DECK
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?306
+	.PROP 5,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE RAILING
+	.BYTE IN-WINDOW
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-STARBOARD-DECK
+	.BYTE	0
+	.ENDT
+
+T?DECK-CHAIR::	.TABLE			; TABLE FOR OBJECT DECK-CHAIR
+	.STRL "chair"
+	.PROP 6,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	W?ARMCHA
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DECK-CHAIR-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?LOOKOU
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	DECK-CHAIR-F
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	70
+	.BYTE	0
+	.ENDT
+
+T?MM-FORE-DECK::	.TABLE			; TABLE FOR OBJECT MM-FORE-DECK
+	.STRL "Fore Deck"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE MM-STARBOARD-DECK
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE MM-PORT-DECK
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?249
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE MM-CREW-QTRS
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE MM-STARBOARD-DECK
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE MM-PORT-DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MM-FORE-DECK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 6,P?GLOBAL
+	.BYTE OCEAN
+	.BYTE DECK
+	.BYTE SALVAGER
+	.BYTE RAILING
+	.BYTE IN-WINDOW
+	.BYTE LADDER-TOP
+	.PROP 8,P?PSEUDO
+	W?BOLT
+	BOLT-PSEUDO
+	W?BOLTS
+	BOLT-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	MM-FORE-DECK
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-FERRY::	.TABLE			; TABLE FOR OBJECT GLOBAL-FERRY
+	.STRL "ferry"
+	.PROP 2,P?SYNONYM
+	W?FERRY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-FERRY-F
+	.BYTE	0
+	.ENDT
+
+T?WHARF::	.TABLE			; TABLE FOR OBJECT WHARF
+	.STRL "Wharf"
+	.PROP 4,P?EAST			; CONDITIONAL EXIT
+	.BYTE MM-PORT-DECK				; ROOM NAME
+	.BYTE SALVAGER-DOCKED				; FLAG NAME
+	STR?301			; STRING
+	.PROP 4,P?WEST			; CONDITIONAL EXIT
+	.BYTE NW-STARBOARD-DECK				; ROOM NAME
+	.BYTE TRAWLER-DOCKED				; FLAG NAME
+	STR?301			; STRING
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-3
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 4,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE SALVAGER
+	.BYTE TRAWLER
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	256
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF
+	.BYTE	0
+	.ENDT
+
+T?FERRY-LANDING::	.TABLE			; TABLE FOR OBJECT FERRY-LANDING
+	.STRL "Ferry Landing"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE SHORE-ROAD-1
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?300
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE FERRY
+	.BYTE OCEAN
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	128
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	FERRY-LANDING
+	.BYTE	0
+	.ENDT
+
+T?POINT-LOOKOUT::	.TABLE			; TABLE FOR OBJECT POINT-LOOKOUT
+	.STRL "Point Lookout"
+	.PROP 2,P?DOWN			; STRING PROPERTY
+	STR?294
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-3
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	POINT-LOOKOUT-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?293
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE ROCKS
+	.PROP 4,P?PSEUDO
+	W?CLIFF
+	CLIFF-PSEUDO
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	32
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	OCEAN-ROAD-3
+	.BYTE	0
+	.ENDT
+
+T?RIDICULOUS-MONEY-KLUDGE::	.TABLE			; TABLE FOR OBJECT RIDICULOUS-MONEY-KLUDGE
+	.STRL "money"
+	.PROP 8,P?SYNONYM
+	W?MONEY
+	W?CASH
+	W?BILLS
+	W?$
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RIDICULOUS-MONEY-KLUDGE-F
+	.BYTE	0
+	.ENDT
+
+T?BANK::	.TABLE			; TABLE FOR OBJECT BANK
+	.STRL "Mariners' Trust"
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE SHORE-ROAD-2
+	.PROP 1,P?OUT			; UNCONDITIONAL EXIT
+	.BYTE SHORE-ROAD-2
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BANK-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?287
+	.PROP 2,P?GLOBAL
+	.BYTE WINDOW
+	.BYTE FRONT-DOOR
+	.PROP 4,P?PSEUDO
+	W?TABLE
+	TABLE-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	SHORE-ROAD-2
+	.BYTE	0
+	.ENDT
+
+T?NON-DRINK::	.TABLE			; TABLE FOR OBJECT NON-DRINK
+	.STRL "liquor"
+	.PROP 8,P?SYNONYM
+	W?WHISKY
+	W?WHISKE
+	W?BEER
+	W?WINE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NON-DRINK-F
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?SCOTCH
+	.BYTE A?BOURBO
+	.BYTE A?DRAFT
+	.BYTE A?RUM
+	.BYTE A?COFFEE
+	.BYTE	0
+	.ENDT
+
+T?DRINK-OBJECT::	.TABLE			; TABLE FOR OBJECT DRINK-OBJECT
+	.STRL "drink"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 8,P?SYNONYM
+	W?DRINK
+	W?GROG
+	W?LIQUOR
+	W?BOOZE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DRINK-OBJECT-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ALCOHO
+	.BYTE	0
+	.ENDT
+
+T?DRINKING-WATER::	.TABLE			; TABLE FOR OBJECT DRINKING-WATER
+	.STRL ""
+	.PROP 4,P?SYNONYM
+	W?WATER
+	W?GLASS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DRINKING-WATER-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?271
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DRINKI
+	.BYTE	0
+	.ENDT
+
+T?FOOD::	.TABLE			; TABLE FOR OBJECT FOOD
+	.STRL "meal"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 6,P?SYNONYM
+	W?FOOD
+	W?MEAL
+	W?STEW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FOOD-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?BREAKF
+	.BYTE A?LUNCH
+	.BYTE A?DINNER
+	.BYTE A?BEEF
+	.BYTE	0
+	.ENDT
+
+T?MIRROR::	.TABLE			; TABLE FOR OBJECT MIRROR
+	.STRL "mirror"
+	.PROP 2,P?SYNONYM
+	W?MIRROR
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MIRROR-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?DUSTY
+	.BYTE A?DIRTY
+	.BYTE A?AGED
+	.BYTE A?GRIMY
+	.BYTE	0
+	.ENDT
+
+T?BAR::	.TABLE			; TABLE FOR OBJECT BAR
+	.STRL "bar"
+	.PROP 4,P?SYNONYM
+	W?BAR
+	W?SURFAC
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BAR-F
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?AGED
+	.BYTE A?WOODEN
+	.BYTE A?OLD
+	.BYTE A?HUGE
+	.BYTE A?WORN
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.BYTE	0
+	.ENDT
+
+T?CHAIR::	.TABLE			; TABLE FOR OBJECT CHAIR
+	.STRL "chair"
+	.PROP 4,P?SYNONYM
+	W?CHAIR
+	W?SEAT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CHAIR-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?TABLE-OBJECT::	.TABLE			; TABLE FOR OBJECT TABLE-OBJECT
+	.STRL "table"
+	.PROP 2,P?SYNONYM
+	W?TABLE
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	15
+	.BYTE	0
+	.ENDT
+
+T?PARROTS-PATCH::	.TABLE			; TABLE FOR OBJECT PARROTS-PATCH
+	.STRL "small eyepatch"
+	.PROP 4,P?SYNONYM
+	W?PATCH
+	W?EYEPAT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PARROTS-PATCH-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?PARROT
+	.BYTE A?BLACK
+	.BYTE A?SMALL
+	.BYTE	0
+	.ENDT
+
+T?PARROT::	.TABLE			; TABLE FOR OBJECT PARROT
+	.STRL "parrot"
+	.PROP 6,P?SYNONYM
+	W?PARROT
+	W?BIRD
+	W?LEG
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PARROT-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?POLLY
+	.BYTE A?WOODEN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?275
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?274
+	.BYTE	0
+	.ENDT
+
+T?SHANTY::	.TABLE			; TABLE FOR OBJECT SHANTY
+	.STRL "The Shanty"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-5
+	.PROP 1,P?OUT			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-5
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SHANTY-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?269
+	.PROP 1,P?GLOBAL
+	.BYTE FRONT-DOOR
+	.PROP 8,P?PSEUDO
+	W?TABLES
+	FURNITURE-PSEUDO
+	W?CHAIRS
+	FURNITURE-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-5
+	.BYTE	0
+	.ENDT
+
+T?CAGE::	.TABLE			; TABLE FOR OBJECT CAGE
+	.STRL "diving cage"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	650
+	.PROP 2,P?SYNONYM
+	W?CAGE
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DIVING
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	90
+	.BYTE	0
+	.ENDT
+
+T?CHARTS::	.TABLE			; TABLE FOR OBJECT CHARTS
+	.STRL "set of nautical charts"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	150
+	.PROP 8,P?SYNONYM
+	W?CHARTS
+	W?MAPS
+	W?CHART
+	W?SET
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?NAUTIC
+	.BYTE A?OCEAN
+	.BYTE A?SEA
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?268
+	.BYTE	0
+	.ENDT
+
+T?SHARK-REPELLENT::	.TABLE			; TABLE FOR OBJECT SHARK-REPELLENT
+	.STRL "shark repellent canister"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.PROP 8,P?SYNONYM
+	W?REPELL
+	W?CAN
+	W?CANIST
+	W?LABEL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SHARK-REPELLENT-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?SHARK
+	.BYTE A?REPELL
+	.BYTE A?CANIST
+	.BYTE	0
+	.ENDT
+
+T?FLASHLIGHT::	.TABLE			; TABLE FOR OBJECT FLASHLIGHT
+	.STRL "flashlight"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	24
+	.PROP 8,P?SYNONYM
+	W?FLASHL
+	W?LIGHT
+	W?LAMP
+	W?LANTER
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FLASHLIGHT-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?SEALED
+	.BYTE A?WATERP
+	.BYTE A?PORTAB
+	.BYTE A?ONE-PI
+	.BYTE	0
+	.ENDT
+
+T?MAGNET::	.TABLE			; TABLE FOR OBJECT MAGNET
+	.STRL "portable electromagnet"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	250
+	.PROP 4,P?SYNONYM
+	W?ELECTR
+	W?MAGNET
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MAGNET-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?PORTAB
+	.BYTE A?ELECTR
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	MAGNET-F
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	MAGNET-F
+	.BYTE	0
+	.ENDT
+
+T?DIVING-BOOK::	.TABLE			; TABLE FOR OBJECT DIVING-BOOK
+	.STRL "diving book"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.PROP 2,P?SYNONYM
+	W?BOOK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DIVING-BOOK-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?DIVING
+	.BYTE	0
+	.ENDT
+
+T?INFIDEL-BOX::	.TABLE			; TABLE FOR OBJECT INFIDEL-BOX
+	.STRL "location box"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	1000
+	.PROP 4,P?SYNONYM
+	W?BOX
+	W?BUTTON
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	INFIDEL-BOX-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?BLACK
+	.BYTE A?LOCATI
+	.BYTE A?DIRECT
+	.BYTE	0
+	.ENDT
+
+T?COMPRESSOR::	.TABLE			; TABLE FOR OBJECT COMPRESSOR
+	.STRL "small air compressor"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	100
+	.PROP 2,P?SYNONYM
+	W?COMPRE
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?AIR
+	.BYTE A?SMALL
+	.BYTE A?HEAVY
+	.BYTE A?SEMI-P
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?262
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	94
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	75
+	.BYTE	0
+	.ENDT
+
+T?PUTTY::	.TABLE			; TABLE FOR OBJECT PUTTY
+	.STRL "glob of putty"
+	.PROP 6,P?SYNONYM
+	W?PUTTY
+	W?GUNK
+	W?GLOB
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PUTTY-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?GLOB
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.BYTE	0
+	.ENDT
+
+T?TUBE::	.TABLE			; TABLE FOR OBJECT TUBE
+	.STRL "tube of putty"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	15
+	.PROP 4,P?SYNONYM
+	W?TUBE
+	W?PUTTY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TUBE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?TUBE
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?259
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.BYTE	0
+	.ENDT
+
+T?ANCHOR::	.TABLE			; TABLE FOR OBJECT ANCHOR
+	.STRL "anchor"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	50
+	.PROP 2,P?SYNONYM
+	W?ANCHOR
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	80
+	.BYTE	0
+	.ENDT
+
+T?BATTERY::	.TABLE			; TABLE FOR OBJECT BATTERY
+	.STRL "C battery"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 4,P?SYNONYM
+	W?BATTER
+	W?CELL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BATTERY-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?C
+	.BYTE A?POWER
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?258
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.BYTE	0
+	.ENDT
+
+T?NET::	.TABLE			; TABLE FOR OBJECT NET
+	.STRL "net"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	50
+	.PROP 2,P?SYNONYM
+	W?NET
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NET-F
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?DRY-CELL::	.TABLE			; TABLE FOR OBJECT DRY-CELL
+	.STRL "dry cell"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 4,P?SYNONYM
+	W?BATTER
+	W?CELL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DRY-CELL-F
+	.PROP 6,P?ADJECTIVE
+	.BYTE A?NINE
+	.BYTE A?VOLT
+	.BYTE A?DRY
+	.BYTE A?NINE-V
+	.BYTE A?AJAX
+	.BYTE A?POWER
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?257
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.BYTE	0
+	.ENDT
+
+T?WINCH::	.TABLE			; TABLE FOR OBJECT WINCH
+	.STRL "winch"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?SYNONYM
+	W?WINCH
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUT-OF-STOCK-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SPARE
+	.BYTE	0
+	.ENDT
+
+T?COMPASS::	.TABLE			; TABLE FOR OBJECT COMPASS
+	.STRL "compass"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?SYNONYM
+	W?COMPAS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUT-OF-STOCK-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SPARE
+	.BYTE	0
+	.ENDT
+
+T?SPEAR-GUN::	.TABLE			; TABLE FOR OBJECT SPEAR-GUN
+	.STRL "spear gun"
+	.PROP 2,P?NORTH			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?SYNONYM
+	W?GUN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUT-OF-STOCK-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SPEAR
+	.BYTE	0
+	.ENDT
+
+T?PRICE-LIST::	.TABLE			; TABLE FOR OBJECT PRICE-LIST
+	.STRL "price list"
+	.PROP 6,P?SYNONYM
+	W?LIST
+	W?LISTIN
+	W?CATALO
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?PRICE
+	.BYTE A?COMPLE
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?256
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.BYTE	0
+	.ENDT
+
+T?OUTFITTERS-HQ::	.TABLE			; TABLE FOR OBJECT OUTFITTERS-HQ
+	.STRL "Outfitters Int'l"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-4
+	.PROP 1,P?OUT			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-4
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUTFITTERS-HQ-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?250
+	.PROP 3,P?GLOBAL
+	.BYTE TRAWLER
+	.BYTE SALVAGER
+	.BYTE FRONT-DOOR
+	.PROP 4,P?PSEUDO
+	W?MERCHA
+	MERCHANDISE-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-4
+	.BYTE	0
+	.ENDT
+
+T?VACANT-LOT::	.TABLE			; TABLE FOR OBJECT VACANT-LOT
+	.STRL "Vacant Lot"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-3
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?249
+	.PROP 2,P?WEST			; STRING PROPERTY
+	STR?249
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-3
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?248
+	.PROP 1,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	256
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-3
+	.BYTE	0
+	.ENDT
+
+T?ENVELOPE::	.TABLE			; TABLE FOR OBJECT ENVELOPE
+	.STRL "envelope"
+	.PROP 4,P?SYNONYM
+	W?ENVELO
+	W?WRITIN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ENVELOPE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?BUSINE
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?246
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?FDESC			; STRING PROPERTY
+	STR?247
+	.BYTE	0
+	.ENDT
+
+T?STUBS::	.TABLE			; TABLE FOR OBJECT STUBS
+	.STRL "cigar stub"
+	.PROP 8,P?SYNONYM
+	W?STUB
+	W?STUBS
+	W?BUTT
+	W?BUTTS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	STUBS-F
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?CHEWED
+	.BYTE A?CIGAR
+	.BYTE A?SMELLY
+	.BYTE A?CHEAP
+	.BYTE	0
+	.ENDT
+
+T?MCGINTY-HQ::	.TABLE			; TABLE FOR OBJECT MCGINTY-HQ
+	.STRL "McGinty Salvage"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-2
+	.PROP 3,P?SOUTH			; FUNCTION EXIT
+	.WORD MCGINTY-HQ-S
+	.BYTE 0
+	.PROP 1,P?OUT			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-2
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MCGINTY-HQ-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?242
+	.PROP 3,P?GLOBAL
+	.BYTE BACK-WINDOW
+	.BYTE FRONT-DOOR
+	.BYTE LOCKED-DOOR
+	.PROP 4,P?PSEUDO
+	W?CHAIR
+	MCGINTY-CHAIR-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-2
+	.BYTE	0
+	.ENDT
+
+T?AIR-TANK::	.TABLE			; TABLE FOR OBJECT AIR-TANK
+	.STRL "air tank"
+	.PROP 4,P?SYNONYM
+	W?TANK
+	W?GAUGE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIR-TANK-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?AIR
+	.BYTE A?DOUBLE
+	.BYTE A?ALUMIN
+	.BYTE A?SCUBA
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	25
+	.BYTE	0
+	.ENDT
+
+T?MASK::	.TABLE			; TABLE FOR OBJECT MASK
+	.STRL "diving mask"
+	.PROP 2,P?SYNONYM
+	W?MASK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MASK-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?DIVING
+	.BYTE A?DIVER
+	.BYTE A?DIVERS
+	.BYTE A?SCUBA
+	.BYTE	0
+	.ENDT
+
+T?FLIPPERS::	.TABLE			; TABLE FOR OBJECT FLIPPERS
+	.STRL "pair of flippers"
+	.PROP 8,P?SYNONYM
+	W?FLIPPE
+	W?PAIR
+	W?FINS
+	W?FIN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FLIPPERS-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SWIM
+	.BYTE	0
+	.ENDT
+
+T?WET-SUIT::	.TABLE			; TABLE FOR OBJECT WET-SUIT
+	.STRL "wet suit"
+	.PROP 2,P?SYNONYM
+	W?SUIT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WET-SUIT-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?WET
+	.BYTE A?SCUBA
+	.BYTE	0
+	.ENDT
+
+T?CLOSET::	.TABLE			; TABLE FOR OBJECT CLOSET
+	.STRL "closet"
+	.PROP 2,P?SYNONYM
+	W?CLOSET
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CLOSET-F
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	CLOSET-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	40
+	.BYTE	0
+	.ENDT
+
+T?BOOK::	.TABLE			; TABLE FOR OBJECT BOOK
+	.STRL "book of shipwrecks"
+	.PROP 6,P?SYNONYM
+	W?BOOK
+	W?TEXT
+	W?SHIPWR
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BOOK-F
+	.PROP 5,P?ADJECTIVE
+	.BYTE A?SHIPWR
+	.BYTE A?OCEAN
+	.BYTE A?MARINE
+	.BYTE A?NAUTIC
+	.BYTE A?HEVLIN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?235
+	.BYTE	0
+	.ENDT
+
+T?NOTE::	.TABLE			; TABLE FOR OBJECT NOTE
+	.STRL "note"
+	.PROP 2,P?SYNONYM
+	W?NOTE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NOTE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?HANDWRITTEN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?234
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?FDESC			; STRING PROPERTY
+	STR?233
+	.BYTE	0
+	.ENDT
+
+T?KEY::	.TABLE			; TABLE FOR OBJECT KEY
+	.STRL "room key"
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	KEY-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ROOM
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?232
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?PASSBOOK::	.TABLE			; TABLE FOR OBJECT PASSBOOK
+	.STRL "Mariners' Trust passbook"
+	.PROP 4,P?SYNONYM
+	W?PASSBOOK
+	W?BANKBOOK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PASSBOOK-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?BANK
+	.BYTE A?MARINE
+	.BYTE A?TRUST
+	.BYTE A?DISTIN
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?BUREAU::	.TABLE			; TABLE FOR OBJECT BUREAU
+	.STRL "dresser"
+	.PROP 6,P?SYNONYM
+	W?BUREAU
+	W?DRESSE
+	W?DRAWER
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BUREAU-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?WOODEN
+	.BYTE A?LOPSID
+	.BYTE A?TILTED
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	20
+	.PROP 2,P?FDESC			; STRING PROPERTY
+	STR?230
+	.BYTE	0
+	.ENDT
+
+T?BED::	.TABLE			; TABLE FOR OBJECT BED
+	.STRL "bed"
+	.PROP 6,P?SYNONYM
+	W?BED
+	W?COT
+	W?MATTRE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BED-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	30
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?229
+	.PROP 2,P?STATION			; INTEGER/CONSTANT PROPERTY
+
+	30
+	.BYTE	0
+	.ENDT
+
+T?UPSTAIRS-HALLWAY::	.TABLE			; TABLE FOR OBJECT UPSTAIRS-HALLWAY
+	.STRL "Upstairs Hallway"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE RED-BOAR-INN
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?226
+	.PROP 2,P?WEST			; STRING PROPERTY
+	STR?226
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE BEDROOM				; ROOM NAME
+	.BYTE BEDROOM-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?DOWN			; UNCONDITIONAL EXIT
+	.BYTE RED-BOAR-INN
+	.PROP 5,P?IN			; DOOR EXIT
+	.BYTE BEDROOM				; ROOM NAME
+	.BYTE BEDROOM-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?225
+	.PROP 4,P?GLOBAL
+	.BYTE BEDROOM-DOOR
+	.BYTE STAIRS
+	.BYTE WALLPAPER
+	.BYTE CARPET
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	UPSTAIRS-HALLWAY
+	.BYTE	0
+	.ENDT
+
+T?BACK-ALLEY-5::	.TABLE			; TABLE FOR OBJECT BACK-ALLEY-5
+	.STRL "Back Alley"
+	.PROP 2,P?NORTH			; STRING PROPERTY
+	STR?210
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-4
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?205
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-2
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-1
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-5-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?219
+	.PROP 2,P?GLOBAL
+	.BYTE LOCKED-DOOR
+	.BYTE FIELD
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	512
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-5
+	.BYTE	0
+	.ENDT
+
+T?BACK-ALLEY-4::	.TABLE			; TABLE FOR OBJECT BACK-ALLEY-4
+	.STRL "Back Alley"
+	.PROP 2,P?NORTH			; STRING PROPERTY
+	STR?210
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-5
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-3
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?205
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-4-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?218
+	.PROP 2,P?GLOBAL
+	.BYTE LOCKED-DOOR
+	.BYTE FIELD
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	512
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-4
+	.BYTE	0
+	.ENDT
+
+T?BACK-ALLEY-3::	.TABLE			; TABLE FOR OBJECT BACK-ALLEY-3
+	.STRL "Back Alley"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE VACANT-LOT
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-4
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-2
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?205
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?217
+	.PROP 1,P?GLOBAL
+	.BYTE FIELD
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	768
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-3
+	.BYTE	0
+	.ENDT
+
+T?BACK-WINDOW::	.TABLE			; TABLE FOR OBJECT BACK-WINDOW
+	.STRL "back window"
+	.PROP 2,P?SYNONYM
+	W?WINDOW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-WINDOW-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE A?BACK
+	.BYTE	0
+	.ENDT
+
+T?BACK-ALLEY-2::	.TABLE			; TABLE FOR OBJECT BACK-ALLEY-2
+	.STRL "Back Alley"
+	.PROP 3,P?NORTH			; FUNCTION EXIT
+	.WORD BACK-ALLEY-2-N
+	.BYTE 0
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-3
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-1
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?205
+	.PROP 3,P?IN			; FUNCTION EXIT
+	.WORD BACK-ALLEY-2-N
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-2-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?212
+	.PROP 3,P?GLOBAL
+	.BYTE BACK-WINDOW
+	.BYTE LOCKED-DOOR
+	.BYTE FIELD
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	512
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-2
+	.BYTE	0
+	.ENDT
+
+T?BACK-ALLEY-1::	.TABLE			; TABLE FOR OBJECT BACK-ALLEY-1
+	.STRL "Back Alley"
+	.PROP 2,P?NORTH			; STRING PROPERTY
+	STR?210
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-2
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?205
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-1-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?209
+	.PROP 2,P?GLOBAL
+	.BYTE LOCKED-DOOR
+	.BYTE FIELD
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	512
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	BACK-ALLEY-1
+	.BYTE	0
+	.ENDT
+
+T?SHORE-ROAD-2::	.TABLE			; TABLE FOR OBJECT SHORE-ROAD-2
+	.STRL "Shore Road"
+	.PROP 4,P?NORTH			; CONDITIONAL EXIT
+	.BYTE BANK				; ROOM NAME
+	.BYTE BUSINESS-HOURS?				; FLAG NAME
+	STR?208			; STRING
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE SHORE-ROAD-1
+	.PROP 4,P?IN			; CONDITIONAL EXIT
+	.BYTE BANK				; ROOM NAME
+	.BYTE BUSINESS-HOURS?				; FLAG NAME
+	STR?208			; STRING
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-3
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SHORE-ROAD-2-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 4,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE FERRY
+	.BYTE OCEAN
+	.BYTE FRONT-DOOR
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	192
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	SHORE-ROAD-2
+	.BYTE	0
+	.ENDT
+
+T?FERRY::	.TABLE			; TABLE FOR OBJECT FERRY
+	.STRL "ferry"
+	.PROP 8,P?SYNONYM
+	W?FERRY
+	W?BOAT
+	W?SHIP
+	W?ENGINE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FERRY-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FERRY
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?302
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?302
+	.BYTE	0
+	.ENDT
+
+T?SHORE-ROAD-1::	.TABLE			; TABLE FOR OBJECT SHORE-ROAD-1
+	.STRL "Shore Road"
+	.PROP 2,P?NORTH			; STRING PROPERTY
+	STR?205
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE SHORE-ROAD-2
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE FERRY-LANDING
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?207
+	.PROP 4,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE FERRY
+	.BYTE OCEAN
+	.BYTE FIELD
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	128
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	SHORE-ROAD-1
+	.BYTE	0
+	.ENDT
+
+T?OCEAN-ROAD-3::	.TABLE			; TABLE FOR OBJECT OCEAN-ROAD-3
+	.STRL "Ocean Road"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-2
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?203
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE POINT-LOOKOUT
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE POINT-LOOKOUT
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE SHORE-ROAD-2
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?206
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE ROCKS
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	112
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	OCEAN-ROAD-3
+	.BYTE	0
+	.ENDT
+
+T?OCEAN-ROAD-2::	.TABLE			; TABLE FOR OBJECT OCEAN-ROAD-2
+	.STRL "Ocean Road"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-1
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?203
+	.PROP 2,P?WEST			; STRING PROPERTY
+	STR?205
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-3
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-5
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?204
+	.PROP 4,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE FIELD
+	.BYTE ROCKS
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	16
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	OCEAN-ROAD-2
+	.BYTE	0
+	.ENDT
+
+T?OCEAN-ROAD-1::	.TABLE			; TABLE FOR OBJECT OCEAN-ROAD-1
+	.STRL "Ocean Road"
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?203
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-2
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE BACK-ALLEY-5
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-5
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?202
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE ROCKS
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	24
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	OCEAN-ROAD-1
+	.BYTE	0
+	.ENDT
+
+T?WHARF-ROAD-5::	.TABLE			; TABLE FOR OBJECT WHARF-ROAD-5
+	.STRL "Wharf Road"
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-4
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE SHANTY
+	.PROP 1,P?IN			; UNCONDITIONAL EXIT
+	.BYTE SHANTY
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE OCEAN-ROAD-1
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?201
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE FRONT-DOOR
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	12
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-5
+	.BYTE	0
+	.ENDT
+
+T?WHARF-ROAD-4::	.TABLE			; TABLE FOR OBJECT WHARF-ROAD-4
+	.STRL "Wharf Road"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-5
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-3
+	.PROP 4,P?SOUTH			; CONDITIONAL EXIT
+	.BYTE OUTFITTERS-HQ				; ROOM NAME
+	.BYTE BUSINESS-HOURS?				; FLAG NAME
+	STR?200			; STRING
+	.PROP 4,P?IN			; CONDITIONAL EXIT
+	.BYTE OUTFITTERS-HQ				; ROOM NAME
+	.BYTE BUSINESS-HOURS?				; FLAG NAME
+	STR?200			; STRING
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?199
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE FRONT-DOOR
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-4
+	.BYTE	0
+	.ENDT
+
+T?WHARF-ROAD-3::	.TABLE			; TABLE FOR OBJECT WHARF-ROAD-3
+	.STRL "Wharf Road"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-4
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-2
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE VACANT-LOT
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?198
+	.PROP 2,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	260
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-3
+	.BYTE	0
+	.ENDT
+
+T?WHARF-ROAD-2::	.TABLE			; TABLE FOR OBJECT WHARF-ROAD-2
+	.STRL "Wharf Road"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-3
+	.PROP 1,P?WEST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-1
+	.PROP 3,P?SOUTH			; FUNCTION EXIT
+	.WORD WHARF-ROAD-2-S
+	.BYTE 0
+	.PROP 3,P?IN			; FUNCTION EXIT
+	.WORD WHARF-ROAD-2-S
+	.BYTE 0
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?196
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE FRONT-DOOR
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-2
+	.BYTE	0
+	.ENDT
+
+T?FRONT-DOOR::	.TABLE			; TABLE FOR OBJECT FRONT-DOOR
+	.STRL "front door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FRONT-DOOR-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FRONT
+	.BYTE	0
+	.ENDT
+
+T?WHARF-ROAD-1::	.TABLE			; TABLE FOR OBJECT WHARF-ROAD-1
+	.STRL "Wharf Road"
+	.PROP 1,P?EAST			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-2
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE RED-BOAR-INN
+	.PROP 1,P?IN			; UNCONDITIONAL EXIT
+	.BYTE RED-BOAR-INN
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE WINDING-ROAD-3
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?195
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE FRONT-DOOR
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WHARF-ROAD-1
+	.BYTE	0
+	.ENDT
+
+T?WINDING-ROAD-3::	.TABLE			; TABLE FOR OBJECT WINDING-ROAD-3
+	.STRL "Winding Road"
+	.PROP 1,P?SW			; UNCONDITIONAL EXIT
+	.BYTE WINDING-ROAD-2
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-1
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?194
+	.PROP 1,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WINDING-ROAD-3
+	.BYTE	0
+	.ENDT
+
+T?WINDING-ROAD-2::	.TABLE			; TABLE FOR OBJECT WINDING-ROAD-2
+	.STRL "Winding Road"
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?192
+	.PROP 1,P?NE			; UNCONDITIONAL EXIT
+	.BYTE WINDING-ROAD-3
+	.PROP 1,P?NW			; UNCONDITIONAL EXIT
+	.BYTE WINDING-ROAD-1
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WINDING-ROAD-2-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?191
+	.PROP 1,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.PROP 4,P?PSEUDO
+	W?SWAMP
+	SWAMP-PSEUDO
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WINDING-ROAD-2
+	.BYTE	0
+	.ENDT
+
+T?LOCKED-DOOR::	.TABLE			; TABLE FOR OBJECT LOCKED-DOOR
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LOCKED-DOOR-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?211
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?BACK
+	.BYTE A?LIGHTH
+	.BYTE	0
+	.ENDT
+
+T?WINDING-ROAD-1::	.TABLE			; TABLE FOR OBJECT WINDING-ROAD-1
+	.STRL "Winding Road"
+	.PROP 2,P?NORTH			; STRING PROPERTY
+	STR?189
+	.PROP 2,P?IN			; STRING PROPERTY
+	STR?189
+	.PROP 1,P?SE			; UNCONDITIONAL EXIT
+	.BYTE WINDING-ROAD-2
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WINDING-ROAD-1-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?188
+	.PROP 3,P?GLOBAL
+	.BYTE LIGHTHOUSE
+	.BYTE OCEAN
+	.BYTE LOCKED-DOOR
+	.PROP 8,P?PSEUDO
+	W?LOCK
+	LIGHTHOUSE-LOCK-PSEUDO
+	W?LETTER
+	LOCKED-DOOR-F
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	WINDING-ROAD-1
+	.BYTE	0
+	.ENDT
+
+T?NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT NOT-HERE-OBJECT
+	.STRL "such thing"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NOT-HERE-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?BUNKS::	.TABLE			; TABLE FOR OBJECT BUNKS
+	.STRL "collection of decrepit bunks"
+	.PROP 8,P?SYNONYM
+	W?BUNK
+	W?BUNKS
+	W?COLLEC
+	W?BEDS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BUNKS-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?OLD
+	.BYTE A?DECREP
+	.BYTE A?ROTTIN
+	.BYTE A?ROTTEN
+	.BYTE	0
+	.ENDT
+
+T?RAILING::	.TABLE			; TABLE FOR OBJECT RAILING
+	.STRL "railing"
+	.PROP 4,P?SYNONYM
+	W?RAILIN
+	W?RAIL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RAILING-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?METAL
+	.BYTE A?STURDY
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?33
+	.BYTE	0
+	.ENDT
+
+T?LADDER-BOTTOM::	.TABLE			; TABLE FOR OBJECT LADDER-BOTTOM
+	.STRL "ladder bottom"
+	.PROP 4,P?SYNONYM
+	W?LADDER
+	W?BOTTOM
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LADDER-BOTTOM-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LADDER
+	.BYTE A?BOTTOM
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?32
+	.BYTE	0
+	.ENDT
+
+T?LADDER-TOP::	.TABLE			; TABLE FOR OBJECT LADDER-TOP
+	.STRL "ladder top"
+	.PROP 4,P?SYNONYM
+	W?LADDER
+	W?TOP
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LADDER-TOP-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?LADDER
+	.BYTE A?TOP
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?31
+	.BYTE	0
+	.ENDT
+
+T?STAIRS::	.TABLE			; TABLE FOR OBJECT STAIRS
+	.STRL "stairs"
+	.PROP 6,P?SYNONYM
+	W?STAIRS
+	W?STEPS
+	W?STAIRW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	STAIRS-F
+	.BYTE	0
+	.ENDT
+
+T?OCEAN::	.TABLE			; TABLE FOR OBJECT OCEAN
+	.STRL "ocean"
+	.PROP 8,P?SYNONYM
+	W?WATER
+	W?OCEAN
+	W?SEA
+	W?WAVES
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OCEAN-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?BRINE
+	.BYTE A?SEA
+	.BYTE A?OCEAN
+	.BYTE	0
+	.ENDT
+
+T?BEDROOM-DOOR::	.TABLE			; TABLE FOR OBJECT BEDROOM-DOOR
+	.STRL "bedroom door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BEDROOM-DOOR-F
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?BEDROOM
+	.BYTE A?MY
+	.BYTE A?ROOM
+	.BYTE	0
+	.ENDT
+
+T?IN-WINDOW::	.TABLE			; TABLE FOR OBJECT IN-WINDOW
+	.STRL "window"
+	.PROP 2,P?SYNONYM
+	W?WINDOW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	IN-WINDOW-F
+	.BYTE	0
+	.ENDT
+
+T?WINDOW::	.TABLE			; TABLE FOR OBJECT WINDOW
+	.STRL "window"
+	.PROP 2,P?SYNONYM
+	W?WINDOW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WINDOW-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-ROOM::	.TABLE			; TABLE FOR OBJECT GLOBAL-ROOM
+	.STRL "room"
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?CABIN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SELF::	.TABLE			; TABLE FOR OBJECT GLOBAL-SELF
+	.STRL "yourself"
+	.PROP 4,P?SYNONYM
+	W?SELF
+	W?YOURSE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SELF-F
+	.BYTE	0
+	.ENDT
+
+T?ME::	.TABLE			; TABLE FOR OBJECT ME
+	.STRL "you"
+	.PROP 4,P?SYNONYM
+	W?ME
+	W?MYSELF
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CRETIN-F
+	.BYTE	0
+	.ENDT
+
+T?BEDROOM::	.TABLE			; TABLE FOR OBJECT BEDROOM
+	.STRL "Your Room"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE UPSTAIRS-HALLWAY				; ROOM NAME
+	.BYTE BEDROOM-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 3,P?WEST			; FUNCTION EXIT
+	.WORD BEDROOM-W
+	.BYTE 0
+	.PROP 3,P?IN			; FUNCTION EXIT
+	.WORD BEDROOM-W
+	.BYTE 0
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE UPSTAIRS-HALLWAY				; ROOM NAME
+	.BYTE BEDROOM-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BEDROOM-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?227
+	.PROP 4,P?GLOBAL
+	.BYTE BEDROOM-DOOR
+	.BYTE WALLPAPER
+	.BYTE CARPET
+	.BYTE WINDOW
+	.PROP 4,P?PSEUDO
+	W?CLOTHE
+	CLOTHES-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	BEDROOM
+	.BYTE	0
+	.ENDT
+
+T?ADVENTURER::	.TABLE			; TABLE FOR OBJECT ADVENTURER
+	.STRL "cretin"
+	.PROP 6,P?SYNONYM
+	W?PLAYER
+	W?ADVENT
+	W?CRETIN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ADVENTURER-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-DAY::	.TABLE			; TABLE FOR OBJECT GLOBAL-DAY
+	.STRL "day"
+	.PROP 2,P?SYNONYM
+	W?DAY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-DAY-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-TIME::	.TABLE			; TABLE FOR OBJECT GLOBAL-TIME
+	.STRL "time"
+	.PROP 2,P?SYNONYM
+	W?TIME
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-TIME-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?CORREC
+	.BYTE	0
+	.ENDT
+
+T?FERRY-TOKEN::	.TABLE			; TABLE FOR OBJECT FERRY-TOKEN
+	.STRL "ferry token"
+	.PROP 2,P?SYNONYM
+	W?TOKEN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FERRY-TOKEN-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?FERRY
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-MONEY::	.TABLE			; TABLE FOR OBJECT GLOBAL-MONEY
+	.STRL "money"
+	.PROP 6,P?SYNONYM
+	W?MONEY
+	W?CASH
+	W?$
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-MONEY-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-BANK::	.TABLE			; TABLE FOR OBJECT GLOBAL-BANK
+	.STRL "bank"
+	.PROP 4,P?SYNONYM
+	W?BANK
+	W?TRUST
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-BANK-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?MARINE
+	.BYTE A?TRUST
+	.BYTE	0
+	.ENDT
+
+T?RED-BOAR-INN::	.TABLE			; TABLE FOR OBJECT RED-BOAR-INN
+	.STRL "Red Boar Inn"
+	.PROP 1,P?NORTH			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-1
+	.PROP 1,P?SOUTH			; UNCONDITIONAL EXIT
+	.BYTE UPSTAIRS-HALLWAY
+	.PROP 1,P?UP			; UNCONDITIONAL EXIT
+	.BYTE UPSTAIRS-HALLWAY
+	.PROP 1,P?OUT			; UNCONDITIONAL EXIT
+	.BYTE WHARF-ROAD-1
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RED-BOAR-INN-F
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?220
+	.PROP 4,P?GLOBAL
+	.BYTE STAIRS
+	.BYTE WALLPAPER
+	.BYTE CARPET
+	.BYTE FRONT-DOOR
+	.PROP 8,P?PSEUDO
+	W?MAIL
+	MAIL-PSEUDO
+	W?MESSAG
+	MESSAGE-PSEUDO
+	.PROP 2,P?STATION			; ATOM (CONSTANT) PROPERTY
+
+	RED-BOAR-INN
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SURFACE::	.TABLE			; TABLE FOR OBJECT GLOBAL-SURFACE
+	.STRL ""
+	.PROP 8,P?SYNONYM
+	W?TABLE
+	W?DESK
+	W?COUNTE
+	W?DRAWER
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SURFACE-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?20
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?CARPET::	.TABLE			; TABLE FOR OBJECT CARPET
+	.STRL "carpeting"
+	.PROP 4,P?SYNONYM
+	W?CARPET
+	W?RUG
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?DRAB
+	.BYTE A?WORN
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?19
+	.BYTE	0
+	.ENDT
+
+T?WALLPAPER::	.TABLE			; TABLE FOR OBJECT WALLPAPER
+	.STRL "wallpaper"
+	.PROP 2,P?SYNONYM
+	W?WALLPA
+	.PROP 3,P?ADJECTIVE
+	.BYTE A?FADED
+	.BYTE A?DRAB
+	.BYTE A?OFF-WH
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?18
+	.BYTE	0
+	.ENDT
+
+T?PEOPLE::	.TABLE			; TABLE FOR OBJECT PEOPLE
+	.STRL "bunch of people"
+	.PROP 2,P?SYNONYM
+	W?PEOPLE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PEOPLE-F
+	.BYTE	0
+	.ENDT
+
+T?POCKET::	.TABLE			; TABLE FOR OBJECT POCKET
+	.STRL "pocket"
+	.PROP 2,P?SYNONYM
+	W?POCKET
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	POCKET-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?15
+	.BYTE	0
+	.ENDT
+
+T?ROCKS::	.TABLE			; TABLE FOR OBJECT ROCKS
+	.STRL "rocky coastline"
+	.PROP 4,P?SYNONYM
+	W?ROCKS
+	W?COASTL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ROCKS-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ROCKY
+	.BYTE	0
+	.ENDT
+
+T?FIELD::	.TABLE			; TABLE FOR OBJECT FIELD
+	.STRL "abandoned field"
+	.PROP 4,P?SYNONYM
+	W?FIELD
+	W?WEEDS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FIELD-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?ABANDO
+	.BYTE A?OVERGR
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SLEEP::	.TABLE			; TABLE FOR OBJECT GLOBAL-SLEEP
+	.STRL "sleep"
+	.PROP 2,P?SYNONYM
+	W?SLEEP
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SLEEP-F
+	.BYTE	0
+	.ENDT
+
+T?SHIPWRECK::	.TABLE			; TABLE FOR OBJECT SHIPWRECK
+	.STRL "shipwreck"
+	.PROP 6,P?SYNONYM
+	W?WRECK
+	W?SHIPWR
+	W?SHIP
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SHIPWRECK-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ROTTEN
+	.BYTE	0
+	.ENDT
+
+T?SALVAGER::	.TABLE			; TABLE FOR OBJECT SALVAGER
+	.STRL "Mary Margaret"
+	.PROP 8,P?SYNONYM
+	W?SALVAG
+	W?MARGAR
+	W?SHIP
+	W?BOAT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SALVAGER-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?MARY
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?TRAWLER::	.TABLE			; TABLE FOR OBJECT TRAWLER
+	.STRL "Night Wind"
+	.PROP 8,P?SYNONYM
+	W?TRAWLE
+	W?WIND
+	W?BOAT
+	W?SHIP
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TRAWLER-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?NIGHT
+	.PROP 2,P?LINE			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-TREASURE::	.TABLE			; TABLE FOR OBJECT GLOBAL-TREASURE
+	.STRL "treasure"
+	.PROP 2,P?SYNONYM
+	W?TREASU
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-TREASURE-F
+	.BYTE	0
+	.ENDT
+
+T?LIGHTHOUSE::	.TABLE			; TABLE FOR OBJECT LIGHTHOUSE
+	.STRL "lighthouse"
+	.PROP 4,P?SYNONYM
+	W?LIGHTH
+	W?BEACON
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LIGHTHOUSE-F
+	.BYTE	0
+	.ENDT
+
+T?MAST::	.TABLE			; TABLE FOR OBJECT MAST
+	.STRL "mast"
+	.PROP 4,P?SYNONYM
+	W?MAST
+	W?MASTS
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MAST-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?ROTTIN
+	.BYTE	0
+	.ENDT
+
+T?CEILING::	.TABLE			; TABLE FOR OBJECT CEILING
+	.STRL "ceiling"
+	.PROP 2,P?SYNONYM
+	W?CEILIN
+	.BYTE	0
+	.ENDT
+
+T?WALLS::	.TABLE			; TABLE FOR OBJECT WALLS
+	.STRL "wall"
+	.PROP 4,P?SYNONYM
+	W?WALL
+	W?WALLS
+	.BYTE	0
+	.ENDT
+
+T?BULKHEADS::	.TABLE			; TABLE FOR OBJECT BULKHEADS
+	.STRL "bulkhead"
+	.PROP 2,P?SYNONYM
+	W?BULKHE
+	.BYTE	0
+	.ENDT
+
+T?HOLE::	.TABLE			; TABLE FOR OBJECT HOLE
+	.STRL "hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HOLE-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE	0
+	.ENDT
+
+T?CEILING-HOLE-2::	.TABLE			; TABLE FOR OBJECT CEILING-HOLE-2
+	.STRL ""
+	.PROP 6,P?SYNONYM
+	W?HOLE
+	W?HATCH
+	W?HATCHW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CEILING-HOLE-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?5
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?TOP
+	.BYTE A?UPPER
+	.BYTE	0
+	.ENDT
+
+T?CEILING-HOLE-1::	.TABLE			; TABLE FOR OBJECT CEILING-HOLE-1
+	.STRL "hole"
+	.PROP 6,P?SYNONYM
+	W?HOLE
+	W?HATCH
+	W?HATCHW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CEILING-HOLE-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?TOP
+	.BYTE A?UPPER
+	.BYTE	0
+	.ENDT
+
+T?FLOOR-HOLE-2::	.TABLE			; TABLE FOR OBJECT FLOOR-HOLE-2
+	.STRL ""
+	.PROP 6,P?SYNONYM
+	W?HOLE
+	W?HATCH
+	W?HATCHW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FLOOR-HOLE-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?5
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?BOTTOM
+	.BYTE A?LOWER
+	.BYTE	0
+	.ENDT
+
+T?FLOOR-HOLE-1::	.TABLE			; TABLE FOR OBJECT FLOOR-HOLE-1
+	.STRL "hole"
+	.PROP 6,P?SYNONYM
+	W?HOLE
+	W?HATCH
+	W?HATCHW
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FLOOR-HOLE-F
+	.PROP 2,P?ADJECTIVE
+	.BYTE A?BOTTOM
+	.BYTE A?LOWER
+	.BYTE	0
+	.ENDT
+
+T?DECK::	.TABLE			; TABLE FOR OBJECT DECK
+	.STRL "deck"
+	.PROP 2,P?SYNONYM
+	W?DECK
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DECK-F
+	.PROP 4,P?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE A?SOUTH
+	.BYTE A?EAST
+	.BYTE A?WEST
+	.BYTE	0
+	.ENDT
+
+T?GROUND::	.TABLE			; TABLE FOR OBJECT GROUND
+	.STRL "floor"
+	.PROP 4,P?SYNONYM
+	W?FLOOR
+	W?GROUND
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FLOOR-F
+	.PROP 1,P?ADJECTIVE
+	.BYTE A?OCEAN
+	.BYTE	0
+	.ENDT
+
+T?AIR::	.TABLE			; TABLE FOR OBJECT AIR
+	.STRL "air"
+	.PROP 4,P?SYNONYM
+	W?AIR
+	W?OXYGEN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIR-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?4
+	.BYTE	0
+	.ENDT
+
+T?IT::	.TABLE			; TABLE FOR OBJECT IT
+	.STRL "random object"
+	.PROP 8,P?SYNONYM
+	W?IT
+	W?THAT
+	W?HIM
+	W?HER
+	.BYTE	0
+	.ENDT
+
+T?PSEUDO-OBJECT::	.TABLE			; TABLE FOR OBJECT PSEUDO-OBJECT
+	.STRL ""
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CRETIN-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?3
+	.PROP 2,P?DESCFCN			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.BYTE	0
+	.ENDT
+
+T?INTDIR::	.TABLE			; TABLE FOR OBJECT INTDIR
+	.STRL "direction"
+	.PROP 2,P?SYNONYM
+	W?INTDIR
+	.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?INTNUM::	.TABLE			; TABLE FOR OBJECT INTNUM
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?INTNUM
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	INTNUM-F
+	.PROP 2,P?SDESC			; STRING PROPERTY
+	STR?1
+	.BYTE	0
+	.ENDT
+
+T?RED-HERRING::	.TABLE			; TABLE FOR OBJECT RED-HERRING
+	.STRL "thingy"
+	.PROP 2,P?SYNONYM
+	W?COMBIN
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RED-HERRING-F
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?ZZMGCK
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR HERE=0
+	.GVAR SCORE=0
+	.GVAR MOVES=0
+	.GVAR WATER-IN-CASE=0
+	.GVAR LINE-LOC-INC=1
+	.GVAR LINE-LOC=1
+	.GVAR CRIMP-CTR=0
+	.GVAR HOW-THIRSTY=0
+	.GVAR AT-SEA=0
+	.GVAR ASLEEP=0
+	.GVAR JOHNNY-MADE-DEAL=0
+	.GVAR MCGINTY-KNOWS=0
+	.GVAR AMT-OWED=0
+	.GVAR WARNING-CTR=0
+	.GVAR TM-CTR=0
+	.GVAR SM-CTR=0
+	.GVAR SAMPLE-TREASURE=0
+	.GVAR FM-CTR=0
+	.GVAR I-WAIT-RTN=0
+	.GVAR I-WAIT-DURATION=0
+	.GVAR I-WAIT-FLAG=0
+	.GVAR WAITING-FOR-WEASEL=0
+	.GVAR WATER-DELIVERED=0
+	.GVAR DELIVERY-MADE=0
+	.GVAR LINE-STR=STR?414
+	.GVAR CLUMSILY-HANDLED=0
+	.GVAR WEASEL-APPREHENDED=0
+	.GVAR WEASEL-BLOWN=0
+	.GVAR ALREADY-FOLLOWED=0
+	.GVAR MCGINTY-MEETS-WEASEL-TABLE=T?72
+	.GVAR MCGINTY-MEETS-WEASEL=0
+	.GVAR WRECK-13-DESCS=T?71
+	.GVAR WRECK-12-DESCS=T?70
+	.GVAR WRECK-11-DESCS=T?69
+	.GVAR WRECK-10-DESCS=T?68
+	.GVAR CHEST-TIE-POINTS=15
+	.GVAR CHEST-CLIMB-POINTS=10
+	.GVAR WRECK-9-DESCS=T?67
+	.GVAR WRECK-8-DESCS=T?66
+	.GVAR WEDGED-STR=STR?376
+	.GVAR BUNKS-MOVED=0
+	.GVAR WRECK-7-DESCS=T?65
+	.GVAR WRECK-6-DESCS=T?64
+	.GVAR WATERY-ENVIRONMENT=STR?367
+	.GVAR WRECK-5-DESCS=T?63
+	.GVAR ROPE-HANGING=0
+	.GVAR WRECK-5-FLOODED=0
+	.GVAR WRECK-4-DESCS=T?62
+	.GVAR DOOMED=0
+	.GVAR WRECK-3-DESCS=T?61
+	.GVAR WRECK-2-DESCS=T?60
+	.GVAR WRECK-1-DESCS=T?59
+	.GVAR WRECK-CHOSEN=0
+	.GVAR DEPTH=0
+	.GVAR OCEAN-BOTTOM=400
+	.GVAR DRILL-POWERED=0
+	.GVAR DRILL-ON=0
+	.GVAR SPARE-PARTS-STR=STR?317
+	.GVAR CONNECT-STR=STR?312
+	.GVAR SHIP-CHOSEN=0
+	.GVAR BLOOD-ALCOHOL=0
+	.GVAR SLOSH-CTR=0
+	.GVAR PARROTISMS=T?58
+	.GVAR JOHNNY-SILENT=0
+	.GVAR WARNING-STR=STR?270
+	.GVAR MAGNET-ON=0
+	.GVAR NO-HOLE-PLUGGED=0
+	.GVAR AIR-LEFT=0
+	.GVAR STUPID-PROBLEM-STRING=STR?231
+	.GVAR MCGINTY-HQ-OCCUPIED=0
+	.GVAR POCKET-CHANGE=20
+	.GVAR PASSBOOK-BALANCE=603
+	.GVAR BEDROOM-DOOR-LOCKED=1
+	.GVAR SALVAGER-DOCKED=1
+	.GVAR TRAWLER-DOCKED=1
+	.GVAR BUSINESS-HOURS?=0
+	.GVAR JOHNNY-COMPLETES-TABLE=T?57
+	.GVAR JOHNNY-CONTINUES-TABLE=T?56
+	.GVAR WEASEL-RETIRES-TABLE=T?55
+	.GVAR MOVEMENT-GOALS=T?54
+	.GVAR CHARACTER-TABLE=T?47
+	.GVAR GOAL-TABLES=T?46
+	.GVAR COR-512=T?39
+	.GVAR COR-256=T?38
+	.GVAR COR-128=T?37
+	.GVAR COR-64=T?36
+	.GVAR COR-32=T?35
+	.GVAR COR-16=T?34
+	.GVAR COR-8=T?33
+	.GVAR COR-4=T?32
+	.GVAR COR-2=T?31
+	.GVAR COR-1=T?30
+	.GVAR TRANSFER-TABLE=T?29
+	.GVAR SALVAGER-LINE=T?28
+	.GVAR TRAWLER-LINE=T?27
+	.GVAR BACK-ALLEY-LINE=T?26
+	.GVAR BEDROOM-LINE=T?25
+	.GVAR EAST-ROAD-LINE=T?24
+	.GVAR ROAD-WHARF-LINE=T?23
+	.GVAR NAUTICAL-DIR-STRINGS=T?22
+	.GVAR DIR-STRINGS=T?21
+	.GVAR YUKS=T?20
+	.GVAR LONGITUDE-SET=0
+	.GVAR LATITUDE-SET=0
+	.GVAR HO-HUM=T?19
+	.GVAR WHEEEEE=T?18
+	.GVAR HELLOS=T?17
+	.GVAR STOOD-UP=0
+	.GVAR COPR-NOTICE=STR?73
+	.GVAR FUMBLE-NUMBER=7
+	.GVAR INDENTS=T?16
+	.GVAR L-WALK-DIR=0
+	.GVAR Y-LEXV=T?15
+	.GVAR Y-INBUF=T?14
+	.GVAR RATING-MAX=250
+	.GVAR BASE-RATING=0
+	.GVAR RATING=0
+	.GVAR DESC-OBJECT=0
+	.GVAR SUPER-BRIEF=0
+	.GVAR VERBOSE=0
+	.GVAR P-MOBY-FLAG=0
+	.GVAR P-MOBY-FOUND=0
+	.GVAR P-NONOUN=0
+	.GVAR P-AND=0
+	.GVAR P-CEPTR=0
+	.GVAR P-CSPTR=0
+	.GVAR P-GETFLAGS=0
+	.GVAR P-MATCHLEN=0
+	.GVAR P-OCLAUSE=T?13
+	.GVAR P-MERGE=T?12
+	.GVAR P-BUTS=T?11
+	.GVAR P-PRSI=T?10
+	.GVAR P-PRSO=T?9
+	.GVAR P-XADJN=0
+	.GVAR P-ADJN=0
+	.GVAR P-XADJ=0
+	.GVAR P-ADJ=0
+	.GVAR P-XNAM=0
+	.GVAR P-NAM=0
+	.GVAR P-GWIMBIT=0
+	.GVAR P-SLOCBITS=0
+	.GVAR P-AMOUNT=0
+	.GVAR P-NUMBER=0
+	.GVAR P-DOLLAR-FLAG=0
+	.GVAR P-ADVERB=0
+	.GVAR P-NONE=0
+	.GVAR QUOTE-FLAG=0
+	.GVAR P-NCN=0
+	.GVAR P-VTBL=T?8
+	.GVAR P-OTBL=T?7
+	.GVAR P-ITBL=T?6
+	.GVAR P-AADJ=0
+	.GVAR P-ANAM=0
+	.GVAR P-ACLAUSE=0
+	.GVAR P-MERGED=0
+	.GVAR P-OFLAG=0
+	.GVAR P-IT-OBJECT=0
+	.GVAR P-CONT=0
+	.GVAR P-INBUF=T?5
+	.GVAR P-LEXV=T?4
+	.GVAR P-WALK-DIR=0
+	.GVAR WINNER=0
+	.GVAR P-DIR=0
+	.GVAR P-LEN=0
+	.GVAR P-CCSRC=0
+	.GVAR P-SYNTAX=0
+	.GVAR P-ONEOBJ=0
+	.GVAR P-TABLE=0
+	.GVAR PRSO=0
+	.GVAR PRSI=0
+	.GVAR PRSA=0
+	.GVAR LAST-PLAYER-LOC=0
+	.GVAR L-WINNER=0
+	.GVAR L-PRSI=0
+	.GVAR L-PRSO=0
+	.GVAR L-PRSA=0
+	.GVAR P-NOT-HERE=0
+	.GVAR P-MULT=0
+	.GVAR P-WON=0
+	.GVAR PLAYER=0
+	.GVAR CLOCK-WAIT=0
+	.GVAR C-INTS=246
+	.GVAR C-TABLE=T?3
+	.GVAR WEASEL-PISSED=0
+	.GVAR WRECK-FOUND=0
+	.GVAR HOW-HUNGRY=1
+	.GVAR HOW-TIRED=1
+	.GVAR SOUPS-ON=0
+	.GVAR DETECTOR-ON=0
+	.GVAR DETECTOR-POWERED=0
+	.GVAR MEETINGS-COMPLETED=0
+	.GVAR BEDROOM-MESSAGE=0
+	.GVAR QCONTEXT-ROOM=0
+	.GVAR QCONTEXT=0
+	.GVAR DT-PTR=0
+	.GVAR DELIVERY-TABLE=T?2
+	.GVAR SET-MIN=60
+	.GVAR SET-HR=0
+	.GVAR WATCH-WOUND=1
+	.GVAR PRESENT-TIME=480
+	.GVAR WATCH-MOVES=0
+	.GVAR WATCH-SCORE=8
+	.GVAR LIT=0
+	.GVAR LOAD-ALLOWED=100
+	.GVAR WAITED?=0
+	.GVAR LAST-S-O-T-PLACE=0
+	.GVAR SHARED-OBJECT-TABLE=T?1
+	.GVAR LOW-DIRECTION=20
+	.GVAR PREPOSITIONS=PRTBL
+	.GVAR ACTIONS=ATBL
+	.GVAR PREACTIONS=PATBL
+	.GVAR VERBS=VTBL
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+T?1::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	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?4::	.TABLE
+	30720
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	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?5::	.TABLE
+	25600
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	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?6::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?7::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?8::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?9::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?10::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?11::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?12::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?13::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?14::	.TABLE
+	3072
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?15::	.TABLE
+	2560
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?19::	.TABLE
+	4
+	STR?122
+	STR?123
+	STR?124
+	STR?125
+	.ENDT
+
+T?40::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-FOLLOW
+	5
+	5
+	.ENDT
+
+T?41::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-MCGINTY
+	5
+	5
+	.ENDT
+
+T?42::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-JOHNNY
+	5
+	5
+	.ENDT
+
+T?43::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-PETE
+	5
+	5
+	.ENDT
+
+T?44::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-WEASEL
+	5
+	5
+	.ENDT
+
+T?45::	.TABLE
+	0
+	0
+	0
+	1
+	0
+	I-DELIVERY-BOY
+	0
+	0
+	.ENDT
+
+T?46::	.TABLE
+	T?40
+	T?41
+	T?42
+	T?43
+	T?44
+	T?45
+	.ENDT
+
+T?48::	.TABLE
+	0
+	0
+	0
+	.ENDT
+
+T?49::	.TABLE
+	0
+	58
+	2
+	SHANTY
+	15
+	1
+	MCGINTY-HQ
+	65
+	2
+	BANK
+	16
+	5
+	OUTFITTERS-HQ
+	30
+	3
+	MCGINTY-HQ
+	75
+	5
+	SHANTY
+	30
+	5
+	MCGINTY-HQ
+	0
+	.ENDT
+
+T?50::	.TABLE
+	0
+	61
+	2
+	WINDING-ROAD-1
+	75
+	5
+	SHANTY
+	0
+	.ENDT
+
+T?51::	.TABLE
+	0
+	72
+	2
+	WINDING-ROAD-1
+	81
+	5
+	SHANTY
+	197
+	5
+	MM-GALLEY
+	0
+	.ENDT
+
+T?52::	.TABLE
+	0
+	8
+	5
+	UPSTAIRS-HALLWAY
+	58
+	2
+	WINDING-ROAD-1
+	78
+	5
+	UPSTAIRS-HALLWAY
+	85
+	1
+	FERRY-LANDING
+	0
+	.ENDT
+
+T?53::	.TABLE
+	0
+	345
+	1
+	MM-LOCKER
+	0
+	.ENDT
+
+T?54::	.TABLE
+	T?48
+	T?49
+	T?50
+	T?51
+	T?52
+	T?53
+	.ENDT
+
+T?55::	.TABLE
+	0
+	5
+	1
+	BACK-ALLEY-5
+	45
+	5
+	BANK
+	10
+	5
+	FERRY-LANDING
+	0
+	.ENDT
+
+T?56::	.TABLE
+	0
+	5
+	1
+	OUTFITTERS-HQ
+	60
+	5
+	POINT-LOOKOUT
+	25
+	1
+	SHANTY
+	0
+	.ENDT
+
+T?57::	.TABLE
+	0
+	200
+	5
+	MM-CAPT-CABIN
+	0
+	.ENDT
+
+T?58::	.TABLE
+	6
+	STR?277
+	STR?278
+	STR?279
+	STR?280
+	STR?281
+	STR?282
+	.ENDT
+
+T?72::	.TABLE
+	0
+	20
+	1
+	FERRY-LANDING
+	35
+	3
+	MCGINTY-HQ
+	30
+	5
+	SHANTY
+	30
+	5
+	MCGINTY-HQ
+	0
+	.ENDT
+
+
+; END OF PURENESS
+
+IMPURE::
+
+
+
+; VERB TABLE IS DEFINED HERE
+
+VTBL::	.TABLE
+	ST?WHAT
+	ST?YES
+	ST?YELL
+	ST?WITHDRAW
+	ST?WIND
+	ST?WIN
+	ST?WEIGH
+	ST?WEAR
+	ST?WAVE
+	ST?WALK
+	ST?WAKE
+	ST?WAIT
+	ST?UNTIE
+	ST?UNLOCK
+	ST?FOLD
+	ST?UNFOLD
+	ST?TURN
+	ST?TIME
+	ST?TIE
+	ST?THROW
+	ST?SLEEP
+	ST?SAY
+	ST?TELL
+	ST?TAKE
+	ST?SWING
+	ST?SWIM
+	ST?STRIKE
+	ST?STAY
+	ST?STAND
+	ST?SQUEEZE
+	ST?SPRAY
+	ST?SPIN
+	ST?SMOKE
+	ST?SMELL
+	ST?SKIP
+	ST?SLIDE
+	ST?SHOW
+	ST?SHAKE
+	ST?SEND
+	ST?UNSCRIPT
+	ST?SCRIPT
+	ST?RUB
+	ST?ROB
+	ST?RENT
+	ST?READ
+	ST?REACH
+	ST?RAPE
+	ST?RAISE
+	ST?PUT
+	ST?PUSH
+	ST?PUMP
+	ST?PRAY
+	ST?POUR
+	ST?POKE
+	ST?PLUG
+	ST?PICK
+	ST?OPEN
+	ST?NO
+	ST?LUBRICATE
+	ST?DESTROY
+	ST?MUMBLE
+	ST?PULL
+	ST?PLAY
+	ST?ROLL
+	ST?MOVE
+	ST?MELT
+	ST?MAYBE
+	ST?MAKE
+	ST?LOWER
+	ST?SEARCH
+	ST?LOOK
+	ST?LOCK
+	ST?LISTEN
+	ST?LIGHT
+	ST?LEAVE
+	ST?LAUNCH
+	ST?LONGITUDE
+	ST?LATITUDE
+	ST?KNOCK
+	ST?KISS
+	ST?KILL
+	ST?KICK
+	ST?JUMP
+	ST?INFLAT
+	ST?BLOW
+	ST?HIDE
+	ST?HELP
+	ST?HELLO
+	ST?GOODBYE
+	ST?GIVE
+	ST?FOLLOW
+	ST?FIND
+	ST?FILL
+	ST?EXTINGUISH
+	ST?EXAMINE
+	ST?EXIT
+	ST?ENTER
+	ST?EMPTY
+	ST?TASTE
+	ST?EAT
+	ST?LEAN
+	ST?DROP
+	ST?DRINK
+	ST?DRILL
+	ST?DIVE
+	ST?DISEMBARK
+	ST?DIG
+	ST?DEPOSIT
+	ST?DEFLATE
+	ST?CURSE
+	ST?CUT
+	ST?CROSS
+	ST?COUNT
+	ST?CLOSE
+	ST?SIT
+	ST?CLIMB
+	ST?CLEAN
+	ST?CHOMP
+	ST?CHECK
+	ST?CALL
+	ST?$CALL
+	ST?BUY
+	ST?BURN
+	ST?BREATHE
+	ST?BRACE
+	ST?BOARD
+	ST?BACK
+	ST?ATTACK
+	ST?ASK
+	ST?APPLY
+	ST?AIM
+	ST?AGAIN
+	ST?VERBOSE
+	ST?VERSION
+	ST?$VERIFY
+	ST?SCORE
+	ST?SAVE
+	ST?RESTORE
+	ST?RESTART
+	ST?QUIT
+	ST?INVENTORY
+	ST?DIAGNOSE
+	ST?SUPER
+	ST?BRIEF
+	.ENDT
+
+; SYNTAX DEFINITION TABLES ARE DEFINED HERE
+
+ST?WHAT::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 173
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 173
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 173
+	.BYTE 0
+	.ENDT
+
+ST?YES::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 172
+	.BYTE 0
+	.ENDT
+
+ST?YELL::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 171
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 171
+	.BYTE 0
+	.ENDT
+
+ST?WITHDRAW::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 170
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 82
+	.BYTE 0
+	.ENDT
+
+ST?WIND::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 169
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 169
+	.BYTE 0
+	.ENDT
+
+ST?WIN::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 168
+	.BYTE 0
+	.ENDT
+
+ST?WEIGH::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 167
+	.BYTE 0
+	.ENDT
+
+ST?WEAR::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 18
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 118
+	.BYTE 0
+	.ENDT
+
+ST?WAVE::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 166
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 166
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 165
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 165
+	.BYTE 0
+	.ENDT
+
+ST?WALK::	.TABLE
+	.BYTE 9
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 164
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 5
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 34
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 5
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 163
+	.BYTE 1
+	.BYTE 238
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 162
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 36
+	.BYTE 1
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 161
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 36
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 160
+	.BYTE 0
+	.ENDT
+
+ST?WAKE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 159
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 159
+	.BYTE 0
+	.ENDT
+
+ST?WAIT::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 158
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 158
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 157
+	.BYTE 0
+	.ENDT
+
+ST?UNTIE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 156
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 156
+	.BYTE 0
+	.ENDT
+
+ST?UNLOCK::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 242
+	.BYTE 155
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 155
+	.BYTE 0
+	.ENDT
+
+ST?FOLD::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 154
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 154
+	.BYTE 0
+	.ENDT
+
+ST?UNFOLD::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 153
+	.BYTE 0
+	.ENDT
+
+ST?TURN::	.TABLE
+	.BYTE 7
+	.BYTE 1
+	.BYTE 239
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 62
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 24
+	.BYTE 16
+	.BYTE 240
+	.BYTE 242
+	.BYTE 152
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 24
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 152
+	.BYTE 2
+	.BYTE 0
+	.BYTE 252
+	.BYTE 24
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 152
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 24
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 152
+	.BYTE 1
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 151
+	.BYTE 0
+	.ENDT
+
+ST?TIME::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 150
+	.BYTE 0
+	.ENDT
+
+ST?TIE::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 248
+	.BYTE 251
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 112
+	.BYTE 149
+	.BYTE 2
+	.BYTE 0
+	.BYTE 238
+	.BYTE 0
+	.BYTE 0
+	.BYTE 80
+	.BYTE 0
+	.BYTE 148
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 80
+	.BYTE 0
+	.BYTE 148
+	.BYTE 0
+	.ENDT
+
+ST?THROW::	.TABLE
+	.BYTE 8
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 146
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 146
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 48
+	.BYTE 146
+	.BYTE 2
+	.BYTE 0
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 147
+	.BYTE 2
+	.BYTE 0
+	.BYTE 239
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 147
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 146
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 146
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 202
+	.BYTE 0
+	.BYTE 146
+	.BYTE 0
+	.ENDT
+
+ST?SLEEP::	.TABLE
+	.BYTE 5
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 0
+	.ENDT
+
+ST?SAY::	.TABLE
+	.BYTE 3
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 144
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 15
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 15
+	.BYTE 0
+	.ENDT
+
+ST?TELL::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 253
+	.BYTE 26
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 15
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 15
+	.BYTE 0
+	.ENDT
+
+ST?TAKE::	.TABLE
+	.BYTE 9
+	.BYTE 2
+	.BYTE 0
+	.BYTE 249
+	.BYTE 7
+	.BYTE 0
+	.BYTE 100
+	.BYTE 0
+	.BYTE 107
+	.BYTE 2
+	.BYTE 0
+	.BYTE 239
+	.BYTE 7
+	.BYTE 0
+	.BYTE 100
+	.BYTE 0
+	.BYTE 107
+	.BYTE 2
+	.BYTE 0
+	.BYTE 244
+	.BYTE 7
+	.BYTE 0
+	.BYTE 100
+	.BYTE 0
+	.BYTE 107
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 140
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 35
+	.BYTE 1
+	.BYTE 239
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 16
+	.BYTE 0
+	.BYTE 51
+	.BYTE 1
+	.BYTE 244
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 16
+	.BYTE 0
+	.BYTE 51
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 22
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 7
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 107
+	.BYTE 0
+	.ENDT
+
+ST?SWING::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 26
+	.BYTE 194
+	.BYTE 48
+	.BYTE 143
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 143
+	.BYTE 0
+	.ENDT
+
+ST?SWIM::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 142
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 142
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 142
+	.BYTE 0
+	.ENDT
+
+ST?STRIKE::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112
+	.BYTE 0
+	.BYTE 83
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 20
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 242
+	.BYTE 20
+	.BYTE 0
+	.ENDT
+
+ST?STAY::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 141
+	.BYTE 0
+	.ENDT
+
+ST?STAND::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 35
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 140
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 140
+	.BYTE 0
+	.ENDT
+
+ST?SQUEEZE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 14
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 139
+	.BYTE 0
+	.ENDT
+
+ST?SPRAY::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 138
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 137
+	.BYTE 0
+	.ENDT
+
+ST?SPIN::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 136
+	.BYTE 0
+	.ENDT
+
+ST?SMOKE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 135
+	.BYTE 0
+	.ENDT
+
+ST?SMELL::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.ENDT
+
+ST?SKIP::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 133
+	.BYTE 0
+	.ENDT
+
+ST?SLIDE::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 2
+	.BYTE 0
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 117
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 78
+	.BYTE 0
+	.ENDT
+
+ST?SHOW::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 23
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 132
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 23
+	.BYTE 0
+	.BYTE 0
+	.BYTE 131
+	.BYTE 0
+	.ENDT
+
+ST?SHAKE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.ENDT
+
+ST?SEND::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 129
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 129
+	.BYTE 0
+	.ENDT
+
+ST?UNSCRIPT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128
+	.BYTE 0
+	.ENDT
+
+ST?SCRIPT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 127
+	.BYTE 0
+	.ENDT
+
+ST?RUB::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 126
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 126
+	.BYTE 0
+	.ENDT
+
+ST?ROB::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 125
+	.BYTE 0
+	.ENDT
+
+ST?RENT::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 249
+	.BYTE 0
+	.BYTE 26
+	.BYTE 52
+	.BYTE 16
+	.BYTE 124
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 124
+	.BYTE 0
+	.ENDT
+
+ST?READ::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 6
+	.BYTE 0
+	.BYTE 240
+	.BYTE 194
+	.BYTE 90
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 123
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 90
+	.BYTE 0
+	.ENDT
+
+ST?REACH::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 21
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 122
+	.BYTE 0
+	.ENDT
+
+ST?RAPE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121
+	.BYTE 0
+	.ENDT
+
+ST?RAISE::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 97
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 97
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 97
+	.BYTE 0
+	.ENDT
+
+ST?PUT::	.TABLE
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 235
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 47
+	.BYTE 2
+	.BYTE 0
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 120
+	.BYTE 2
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 120
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 119
+	.BYTE 2
+	.BYTE 0
+	.BYTE 236
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 119
+	.BYTE 2
+	.BYTE 0
+	.BYTE 237
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 119
+	.BYTE 2
+	.BYTE 0
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 70
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 116
+	.BYTE 0
+	.BYTE 118
+	.BYTE 2
+	.BYTE 0
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 117
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 132
+	.BYTE 0
+	.BYTE 56
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 148
+	.BYTE 0
+	.BYTE 47
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 148
+	.BYTE 0
+	.BYTE 14
+	.BYTE 0
+	.ENDT
+
+ST?PUSH::	.TABLE
+	.BYTE 8
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 97
+	.BYTE 2
+	.BYTE 0
+	.BYTE 245
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 116
+	.BYTE 2
+	.BYTE 0
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 115
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 2
+	.BYTE 0
+	.BYTE 239
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 114
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 78
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 78
+	.BYTE 0
+	.ENDT
+
+ST?PUMP::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 248
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 113
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 113
+	.BYTE 0
+	.ENDT
+
+ST?PRAY::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112
+	.BYTE 0
+	.ENDT
+
+ST?POUR::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 109
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 111
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 110
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 109
+	.BYTE 0
+	.ENDT
+
+ST?POKE::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 194
+	.BYTE 101
+	.BYTE 0
+	.ENDT
+
+ST?PLUG::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 108
+	.BYTE 0
+	.ENDT
+
+ST?PICK::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 7
+	.BYTE 0
+	.BYTE 20
+	.BYTE 0
+	.BYTE 107
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 106
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 106
+	.BYTE 0
+	.ENDT
+
+ST?OPEN::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 25
+	.BYTE 16
+	.BYTE 240
+	.BYTE 242
+	.BYTE 105
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 105
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 105
+	.BYTE 0
+	.ENDT
+
+ST?NO::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 104
+	.BYTE 0
+	.ENDT
+
+ST?LUBRICATE::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 103
+	.BYTE 0
+	.ENDT
+
+ST?DESTROY::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 250
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 194
+	.BYTE 101
+	.BYTE 2
+	.BYTE 247
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 194
+	.BYTE 101
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 102
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 194
+	.BYTE 101
+	.BYTE 0
+	.ENDT
+
+ST?MUMBLE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 100
+	.BYTE 0
+	.ENDT
+
+ST?PULL::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 97
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 97
+	.BYTE 0
+	.ENDT
+
+ST?PLAY::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 99
+	.BYTE 0
+	.ENDT
+
+ST?ROLL::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 97
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 97
+	.BYTE 0
+	.ENDT
+
+ST?MOVE::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 97
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 98
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 97
+	.BYTE 0
+	.ENDT
+
+ST?MELT::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 96
+	.BYTE 0
+	.ENDT
+
+ST?MAYBE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 95
+	.BYTE 0
+	.ENDT
+
+ST?MAKE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 94
+	.BYTE 0
+	.ENDT
+
+ST?LOWER::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 14
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 93
+	.BYTE 0
+	.ENDT
+
+ST?SEARCH::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 92
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 92
+	.BYTE 0
+	.ENDT
+
+ST?LOOK::	.TABLE
+	.BYTE 13
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 91
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 2
+	.BYTE 255
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 90
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 87
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 87
+	.BYTE 1
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 89
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 88
+	.BYTE 1
+	.BYTE 244
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 87
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 87
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 87
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 29
+	.BYTE 1
+	.BYTE 238
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 86
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 86
+	.BYTE 0
+	.ENDT
+
+ST?LOCK::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 16
+	.BYTE 48
+	.BYTE 248
+	.BYTE 85
+	.BYTE 0
+	.ENDT
+
+ST?LISTEN::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 84
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 84
+	.BYTE 0
+	.ENDT
+
+ST?LIGHT::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 240
+	.BYTE 25
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112
+	.BYTE 0
+	.BYTE 83
+	.BYTE 0
+	.ENDT
+
+ST?LEAVE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 56
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 82
+	.BYTE 0
+	.ENDT
+
+ST?LAUNCH::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 81
+	.BYTE 0
+	.ENDT
+
+ST?LONGITUDE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 80
+	.BYTE 0
+	.ENDT
+
+ST?LATITUDE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 79
+	.BYTE 0
+	.ENDT
+
+ST?KNOCK::	.TABLE
+	.BYTE 4
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 20
+	.BYTE 1
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 78
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 77
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 77
+	.BYTE 0
+	.ENDT
+
+ST?KISS::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 76
+	.BYTE 0
+	.ENDT
+
+ST?KILL::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 194
+	.BYTE 75
+	.BYTE 0
+	.ENDT
+
+ST?KICK::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 74
+	.BYTE 0
+	.ENDT
+
+ST?JUMP::	.TABLE
+	.BYTE 6
+	.BYTE 1
+	.BYTE 239
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 51
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 51
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.BYTE 1
+	.BYTE 240
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.BYTE 1
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.BYTE 0
+	.ENDT
+
+ST?INFLAT::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 72
+	.BYTE 0
+	.ENDT
+
+ST?BLOW::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 248
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 72
+	.BYTE 1
+	.BYTE 244
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 210
+	.BYTE 0
+	.BYTE 62
+	.BYTE 0
+	.ENDT
+
+ST?HIDE::	.TABLE
+	.BYTE 6
+	.BYTE 2
+	.BYTE 0
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 70
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 70
+	.BYTE 2
+	.BYTE 0
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 71
+	.BYTE 1
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.BYTE 0
+	.ENDT
+
+ST?HELP::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 69
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 69
+	.BYTE 0
+	.ENDT
+
+ST?HELLO::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 68
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 68
+	.BYTE 0
+	.ENDT
+
+ST?GOODBYE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 67
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 67
+	.BYTE 0
+	.ENDT
+
+ST?GIVE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 16
+	.BYTE 0
+	.BYTE 66
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 16
+	.BYTE 65
+	.BYTE 0
+	.ENDT
+
+ST?FOLLOW::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 64
+	.BYTE 0
+	.ENDT
+
+ST?FIND::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.ENDT
+
+ST?FILL::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 218
+	.BYTE 0
+	.BYTE 63
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 218
+	.BYTE 0
+	.BYTE 63
+	.BYTE 0
+	.ENDT
+
+ST?EXTINGUISH::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 62
+	.BYTE 0
+	.ENDT
+
+ST?EXAMINE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 29
+	.BYTE 0
+	.ENDT
+
+ST?EXIT::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 51
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 50
+	.BYTE 0
+	.ENDT
+
+ST?ENTER::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 36
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61
+	.BYTE 0
+	.ENDT
+
+ST?EMPTY::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 60
+	.BYTE 0
+	.ENDT
+
+ST?TASTE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 59
+	.BYTE 0
+	.ENDT
+
+ST?EAT::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 8
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 58
+	.BYTE 0
+	.ENDT
+
+ST?LEAN::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 0
+	.BYTE 57
+	.BYTE 0
+	.ENDT
+
+ST?DROP::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 14
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 14
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 14
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 56
+	.BYTE 0
+	.ENDT
+
+ST?DRINK::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 10
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 55
+	.BYTE 0
+	.ENDT
+
+ST?DRILL::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 54
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 16
+	.BYTE 0
+	.BYTE 0
+	.BYTE 53
+	.BYTE 0
+	.ENDT
+
+ST?DIVE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.ENDT
+
+ST?DISEMBARK::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 51
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 50
+	.BYTE 0
+	.ENDT
+
+ST?DIG::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49
+	.BYTE 2
+	.BYTE 247
+	.BYTE 251
+	.BYTE 0
+	.BYTE 16
+	.BYTE 48
+	.BYTE 194
+	.BYTE 48
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 16
+	.BYTE 48
+	.BYTE 194
+	.BYTE 48
+	.BYTE 0
+	.ENDT
+
+ST?DEPOSIT::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 148
+	.BYTE 0
+	.BYTE 47
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 148
+	.BYTE 0
+	.BYTE 46
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 46
+	.BYTE 0
+	.ENDT
+
+ST?DEFLATE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 45
+	.BYTE 0
+	.ENDT
+
+ST?CURSE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 44
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 44
+	.BYTE 0
+	.ENDT
+
+ST?CUT::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 43
+	.BYTE 0
+	.ENDT
+
+ST?CROSS::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 42
+	.BYTE 0
+	.ENDT
+
+ST?COUNT::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 41
+	.BYTE 0
+	.ENDT
+
+ST?CLOSE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 40
+	.BYTE 0
+	.ENDT
+
+ST?SIT::	.TABLE
+	.BYTE 4
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 39
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 37
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 38
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 37
+	.BYTE 0
+	.ENDT
+
+ST?CLIMB::	.TABLE
+	.BYTE 7
+	.BYTE 1
+	.BYTE 244
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 36
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 36
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 35
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 22
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 33
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 34
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 33
+	.BYTE 0
+	.ENDT
+
+ST?CLEAN::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.ENDT
+
+ST?CHOMP::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.ENDT
+
+ST?CHECK::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 29
+	.BYTE 0
+	.ENDT
+
+ST?CALL::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 28
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 28
+	.BYTE 0
+	.ENDT
+
+ST?$CALL::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 27
+	.BYTE 0
+	.ENDT
+
+ST?BUY::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 249
+	.BYTE 0
+	.BYTE 26
+	.BYTE 52
+	.BYTE 16
+	.BYTE 26
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.ENDT
+
+ST?BURN::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 250
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 242
+	.BYTE 25
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 242
+	.BYTE 25
+	.BYTE 0
+	.ENDT
+
+ST?BREATHE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 24
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 24
+	.BYTE 0
+	.ENDT
+
+ST?BRACE::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 23
+	.BYTE 0
+	.ENDT
+
+ST?BOARD::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 22
+	.BYTE 0
+	.ENDT
+
+ST?BACK::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 21
+	.BYTE 0
+	.ENDT
+
+ST?ATTACK::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 26
+	.BYTE 0
+	.BYTE 48
+	.BYTE 194
+	.BYTE 20
+	.BYTE 0
+	.ENDT
+
+ST?ASK::	.TABLE
+	.BYTE 5
+	.BYTE 2
+	.BYTE 0
+	.BYTE 252
+	.BYTE 23
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 19
+	.BYTE 2
+	.BYTE 0
+	.BYTE 253
+	.BYTE 23
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 18
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 17
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 192
+	.BYTE 0
+	.BYTE 16
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 23
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 15
+	.BYTE 0
+	.ENDT
+
+ST?APPLY::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 14
+	.BYTE 0
+	.ENDT
+
+ST?AIM::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 13
+	.BYTE 0
+	.ENDT
+
+ST?AGAIN::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 12
+	.BYTE 0
+	.ENDT
+
+ST?VERBOSE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 11
+	.BYTE 0
+	.ENDT
+
+ST?VERSION::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 10
+	.BYTE 0
+	.ENDT
+
+ST?$VERIFY::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 9
+	.BYTE 0
+	.ENDT
+
+ST?SCORE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 8
+	.BYTE 0
+	.ENDT
+
+ST?SAVE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 7
+	.BYTE 0
+	.ENDT
+
+ST?RESTORE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.BYTE 0
+	.ENDT
+
+ST?RESTART::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 5
+	.BYTE 0
+	.ENDT
+
+ST?QUIT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 4
+	.BYTE 0
+	.ENDT
+
+ST?INVENTORY::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 3
+	.BYTE 0
+	.ENDT
+
+ST?DIAGNOSE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 2
+	.BYTE 0
+	.ENDT
+
+ST?SUPER::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 1
+	.BYTE 0
+	.ENDT
+
+ST?BRIEF::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ATBL::	.TABLE
+	V-BRIEF
+	V-SUPER-BRIEF
+	V-DIAGNOSE
+	V-INVENTORY
+	V-QUIT
+	V-RESTART
+	V-RESTORE
+	V-SAVE
+	V-SCORE
+	V-$VERIFY
+	V-VERSION
+	V-VERBOSE
+	V-AGAIN
+	V-AIM
+	V-PUT
+	V-TELL
+	V-ASK-CONTEXT-ABOUT
+	V-ASK-CONTEXT-FOR
+	V-ASK-ABOUT
+	V-ASK-FOR
+	V-ATTACK
+	V-BACK
+	V-BOARD
+	V-BRACE
+	V-BREATHE
+	V-BURN
+	V-BUY
+	V-$CALL
+	V-CALL
+	V-EXAMINE
+	V-FIND
+	V-CHOMP
+	V-CLEAN
+	V-CLIMB-FOO
+	V-CLIMB-DOWN
+	V-CLIMB-ON
+	V-THROUGH
+	V-SIT-ON
+	V-SIT
+	V-SIT-WITH
+	V-CLOSE
+	V-COUNT
+	V-CROSS
+	V-CUT
+	V-CURSES
+	V-DEFLATE
+	V-DEPOSIT
+	V-PUT-ON
+	V-DIG
+	V-HOLE-DIG
+	V-EXIT
+	V-DISEMBARK
+	V-DIVE
+	V-DRILL
+	V-DRILL-IN
+	V-DRINK
+	V-DROP
+	V-LEAN-ON
+	V-EAT
+	V-TASTE
+	V-EMPTY
+	V-ENTER
+	V-LAMP-OFF
+	V-FILL
+	V-FOLLOW
+	V-GIVE
+	V-SGIVE
+	V-GOODBYE
+	V-HELLO
+	V-HELP
+	V-HIDE
+	V-HIDE-UNDER
+	V-INFLATE
+	V-LEAP
+	V-KICK
+	V-KILL
+	V-KISS
+	V-KNOCK
+	V-PUSH
+	V-LATITUDE
+	V-LONGITUDE
+	V-LAUNCH
+	V-LEAVE
+	V-LAMP-ON
+	V-LISTEN
+	V-LOCK
+	V-LOOK
+	V-LOOK-INSIDE
+	V-LOOK-UNDER
+	V-LOOK-BEHIND
+	V-READ
+	V-CHASTISE
+	V-SEARCH
+	V-LOWER
+	V-MAKE
+	V-MAYBE
+	V-MELT
+	V-MOVE
+	V-PUSH-TO
+	V-PLAY
+	V-MUMBLE
+	V-MUNG
+	V-CHIP
+	V-OIL
+	V-NO
+	V-OPEN
+	V-PICK
+	V-TAKE
+	V-PLUG
+	V-POUR
+	V-POUR-IN
+	V-POUR-ON
+	V-PRAY
+	V-PUMP
+	V-PUSH-OFF
+	V-PUSH-UNDER
+	V-PUSH-THROUGH
+	V-PUT-UNDER
+	V-WEAR
+	V-PUT-AGAINST
+	V-PUT-ACROSS
+	V-RAPE
+	V-REACH-IN
+	V-READ-INSIDE
+	V-RENT
+	V-ROB
+	V-RUB
+	V-SCRIPT
+	V-UNSCRIPT
+	V-SEND
+	V-SHAKE
+	V-SHOW
+	V-SSHOW
+	V-SKIP
+	V-SMELL
+	V-SMOKE
+	V-SPIN
+	V-SPRAY
+	V-SSPRAY
+	V-SQUEEZE
+	V-STAND
+	V-STAY
+	V-SWIM
+	V-SWING
+	V-SAY
+	V-SLEEP
+	V-THROW
+	V-THROW-OFF
+	V-TIE
+	V-TIE-UP
+	V-TIME
+	V-TURN-OVER
+	V-TURN
+	V-UNFOLD
+	V-FOLD
+	V-UNLOCK
+	V-UNTIE
+	V-WAIT
+	V-WAIT-FOR
+	V-ALARM
+	V-WALK
+	V-STEP
+	V-WALK-AROUND
+	V-CLIMB-UP
+	V-WALK-TO
+	V-WAVE-AT
+	V-WAVE
+	V-WEIGH
+	V-WIN
+	V-WIND
+	V-WITHDRAW
+	V-YELL
+	V-YES
+	V-WHAT
+	.ENDT
+
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PATBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT
+	PRE-TELL
+	PRE-ASK-CONTEXT-ABOUT
+	PRE-ASK-CONTEXT-FOR
+	0
+	0
+	0
+	0
+	PRE-BOARD
+	PRE-BRACE
+	0
+	PRE-BURN
+	PRE-BUY
+	PRE-$CALL
+	0
+	PRE-EXAMINE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT
+	PRE-DIG
+	0
+	0
+	0
+	0
+	PRE-DRILL
+	PRE-DRILL-IN
+	PRE-DRINK
+	0
+	0
+	PRE-EAT
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-GIVE
+	PRE-SGIVE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-READ
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-MOVE
+	0
+	0
+	0
+	PRE-MUNG
+	PRE-CHIP
+	0
+	0
+	PRE-OPEN
+	0
+	PRE-TAKE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-REACH-IN
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-SSHOW
+	0
+	PRE-SMELL
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-THROW
+	0
+	PRE-TIE
+	0
+	0
+	0
+	PRE-TURN
+	0
+	0
+	PRE-UNLOCK
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; PREPOSITION TABLE IS DEFINED HERE
+
+PRTBL::	.TABLE
+	.WORD 21
+	W?BETWEEN
+	PR?BETWEEN
+	W?BY
+	PR?BY
+	W?AGAINST
+	PR?AGAINST
+	W?AROUND
+	PR?AROUND
+	W?OFF
+	PR?OFF
+	W?ACROSS
+	PR?ACROSS
+	W?OVER
+	PR?OVER
+	W?BEHIND
+	PR?BEHIND
+	W?UNDER
+	PR?UNDER
+	W?OUT
+	PR?OUT
+	W?THROUGH
+	PR?THROUGH
+	W?ON
+	PR?ON
+	W?IN
+	PR?IN
+	W?UP
+	PR?UP
+	W?FROM
+	PR?FROM
+	W?DOWN
+	PR?DOWN
+	W?WITH
+	PR?WITH
+	W?FOR
+	PR?FOR
+	W?ABOUT
+	PR?ABOUT
+	W?TO
+	PR?TO
+	W?AT
+	PR?AT
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 3
+	.BYTE 44
+	.BYTE 46 
+	.BYTE 34
+	.BYTE 7
+	790
+W?$::	.ZWORD "$"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+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?PERIOD::	.ZWORD "."
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PERIOD
+	.BYTE 0
+W?COMMA::	.ZWORD ","
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COMMA
+	.BYTE 0
+W?QUOTE::	.ZWORD """"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?QUOTE
+	.BYTE 0
+W?A::	.ZWORD "a"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?A
+	.BYTE 0
+W?ABAFT::	.ZWORD "abaft"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SOUTH
+	.BYTE 28
+W?ABANDO::	.ZWORD "abando"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ABANDO
+	.BYTE 0
+W?ABOUT::	.ZWORD "about"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 253
+	.BYTE 0
+W?ACME::	.ZWORD "acme"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ACME
+	.BYTE 0
+W?ACROSS::	.ZWORD "across"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 240
+	.BYTE 0
+W?ADVENT::	.ZWORD "advent"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?AFFIRMATIVE::	.ZWORD "affirm"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?AFT::	.ZWORD "aft"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SOUTH
+	.BYTE 28
+W?AGAIN::	.ZWORD "again"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?AGAIN
+	.BYTE 0
+W?AGAINST::	.ZWORD "agains"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 237
+	.BYTE 0
+W?AGED::	.ZWORD "aged"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AGED
+	.BYTE 0
+W?AIM::	.ZWORD "aim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?AIM
+	.BYTE 0
+W?AIR::	.ZWORD "air"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?AIR
+W?AIRHOSE::	.ZWORD "airhos"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?AJAX::	.ZWORD "ajax"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AJAX
+	.BYTE 0
+W?ALCOHO::	.ZWORD "alcoho"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ALCOHO
+	.BYTE 0
+W?ALL::	.ZWORD "all"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ALL
+	.BYTE 0
+W?ALUMIN::	.ZWORD "alumin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ALUMIN
+	.BYTE 0
+W?AN::	.ZWORD "an"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AN
+	.BYTE 0
+W?ANCHOR::	.ZWORD "anchor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?AND::	.ZWORD "and"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AND
+	.BYTE 0
+W?APPLY::	.ZWORD "apply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPLY
+	.BYTE 0
+W?ARE::	.ZWORD "are"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ARE
+	.BYTE 0
+W?ARMCHA::	.ZWORD "armcha"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?AROUND::	.ZWORD "around"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 238
+	.BYTE 0
+W?ASK::	.ZWORD "ask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?AT::	.ZWORD "at"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 255
+	.BYTE 0
+W?ATTACH::	.ZWORD "attach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?ATTACK::	.ZWORD "attack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.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?BANK::	.ZWORD "bank"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?BANK
+W?BANKBOOK::	.ZWORD "bankbo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BAR::	.ZWORD "bar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BARF::	.ZWORD "barf"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHOMP
+	.BYTE 0
+W?BARNAC::	.ZWORD "barnac"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?BARNAC
+W?BARREL::	.ZWORD "barrel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BARS::	.ZWORD "bars"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BARTEN::	.ZWORD "barten"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BATHE::	.ZWORD "bathe"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SWIM
+	.BYTE ACT?SWIM
+W?BATTER::	.ZWORD "batter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BEACON::	.ZWORD "beacon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BED::	.ZWORD "bed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BEDROOM::	.ZWORD "bedroo"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BEDROOM
+	.BYTE 0
+W?BEDS::	.ZWORD "beds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BEEF::	.ZWORD "beef"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BEEF
+	.BYTE 0
+W?BEER::	.ZWORD "beer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BEHIND::	.ZWORD "behind"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 242
+	.BYTE 0
+W?BELOW::	.ZWORD "below"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 243
+	.BYTE 0
+W?BENEATH::	.ZWORD "beneat"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 243
+	.BYTE 0
+W?BETWEEN::	.ZWORD "betwee"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 235
+	.BYTE 0
+W?BIG::	.ZWORD "big"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BIG
+	.BYTE 0
+W?BILLS::	.ZWORD "bills"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BIRD::	.ZWORD "bird"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BIT::	.ZWORD "bit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BITE::	.ZWORD "bite"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?BLACK::	.ZWORD "black"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLACK
+	.BYTE 0
+W?BLADE::	.ZWORD "blade"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BLIND::	.ZWORD "blind"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POKE
+	.BYTE 0
+W?BLOW::	.ZWORD "blow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BLOW
+	.BYTE 0
+W?BOARD::	.ZWORD "board"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BOARD
+	.BYTE 0
+W?BOAT::	.ZWORD "boat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOLT::	.ZWORD "bolt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOLTS::	.ZWORD "bolts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOMB::	.ZWORD "bomb"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOMBS::	.ZWORD "bombs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BONES::	.ZWORD "bones"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOOK::	.ZWORD "book"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOOZE::	.ZWORD "booze"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOTTOM::	.ZWORD "bottom"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BOTTOM
+	.BYTE O?ANY
+W?BOURBO::	.ZWORD "bourbo"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BOURBO
+	.BYTE 0
+W?BOX::	.ZWORD "box"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOY::	.ZWORD "boy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BRACE::	.ZWORD "brace"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRACE
+	.BYTE 0
+W?BRANDISH::	.ZWORD "brandi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAVE
+	.BYTE 0
+W?BREAK::	.ZWORD "break"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?BREAKF::	.ZWORD "breakf"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BREAKF
+	.BYTE 0
+W?BREATHE::	.ZWORD "breath"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BREATHE
+	.BYTE 0
+W?BRIEF::	.ZWORD "brief"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRIEF
+	.BYTE 0
+W?BRIEFLY::	.ZWORD "briefl"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BRIEFLY
+	.BYTE 0
+W?BRINE::	.ZWORD "brine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BRINE
+	.BYTE 0
+W?BROKEN::	.ZWORD "broken"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BROKEN
+	.BYTE 0
+W?BULKHE::	.ZWORD "bulkhe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BULKY::	.ZWORD "bulky"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BULKY
+	.BYTE 0
+W?BUNK::	.ZWORD "bunk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUNKS::	.ZWORD "bunks"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUREAU::	.ZWORD "bureau"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BURN::	.ZWORD "burn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BURN
+	.BYTE 0
+W?BUSINE::	.ZWORD "busine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BUSINE
+	.BYTE 0
+W?BUT::	.ZWORD "but"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BUT
+	.BYTE 0
+W?BUTT::	.ZWORD "butt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUTTON::	.ZWORD "button"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUTTS::	.ZWORD "butts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUY::	.ZWORD "buy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BUY
+	.BYTE 0
+W?BY::	.ZWORD "by"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 236
+	.BYTE 0
+W?BYE::	.ZWORD "bye"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GOODBYE
+	.BYTE 0
+W?C::	.ZWORD "c"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?C
+	.BYTE 0
+W?CABIN::	.ZWORD "cabin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CAGE::	.ZWORD "cage"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CALL::	.ZWORD "call"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CALL
+	.BYTE 0
+W?CAN::	.ZWORD "can"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CANIST::	.ZWORD "canist"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?CANIST
+W?CAPTAI::	.ZWORD "captai"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CAPTAI
+	.BYTE 0
+W?CARD::	.ZWORD "card"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CARPET::	.ZWORD "carpet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CARRY::	.ZWORD "carry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?CASE::	.ZWORD "case"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CASH::	.ZWORD "cash"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CASK::	.ZWORD "cask"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CAST::	.ZWORD "cast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?CATALO::	.ZWORD "catalo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CEILIN::	.ZWORD "ceilin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CELL::	.ZWORD "cell"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHAIR::	.ZWORD "chair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHAIRS::	.ZWORD "chairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHART::	.ZWORD "chart"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHARTS::	.ZWORD "charts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?CHEAP::	.ZWORD "cheap"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CHEAP
+	.BYTE 0
+W?CHECK::	.ZWORD "check"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHECK
+	.BYTE 0
+W?CHEROO::	.ZWORD "cheroo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHEST::	.ZWORD "chest"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHEW::	.ZWORD "chew"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?CHEWED::	.ZWORD "chewed"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CHEWED
+	.BYTE 0
+W?CHIP::	.ZWORD "chip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?CHOMP::	.ZWORD "chomp"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHOMP
+	.BYTE 0
+W?CHOP::	.ZWORD "chop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?CHUCK::	.ZWORD "chuck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?CIGAR::	.ZWORD "cigar"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CIGAR
+	.BYTE O?ANY
+W?CLEAN::	.ZWORD "clean"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?CLEAR::	.ZWORD "clear"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CLEAR
+	.BYTE 0
+W?CLERK::	.ZWORD "clerk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CLIFF::	.ZWORD "cliff"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?CLOSELY::	.ZWORD "closel"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CLOSELY
+	.BYTE 0
+W?CLOSET::	.ZWORD "closet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CLOTHE::	.ZWORD "clothe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COASTL::	.ZWORD "coastl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COFFEE::	.ZWORD "coffee"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COFFEE
+	.BYTE 0
+W?COIN::	.ZWORD "coin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COLLEC::	.ZWORD "collec"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COMBIN::	.ZWORD "combin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COME::	.ZWORD "come"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?COMFOR::	.ZWORD "comfor"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COMFOR
+	.BYTE 0
+W?COMPAR::	.ZWORD "compar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COMPAS::	.ZWORD "compas"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COMPLE::	.ZWORD "comple"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COMPLE
+	.BYTE 0
+W?COMPRE::	.ZWORD "compre"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CONNECT::	.ZWORD "connec"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?CONSUME::	.ZWORD "consum"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?COOK::	.ZWORD "cook"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CORREC::	.ZWORD "correc"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CORREC
+	.BYTE 0
+W?COT::	.ZWORD "cot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COUNT::	.ZWORD "count"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COUNT
+	.BYTE 0
+W?COUNTE::	.ZWORD "counte"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CRACK::	.ZWORD "crack"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CRETIN::	.ZWORD "cretin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CROSS::	.ZWORD "cross"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CROSS
+	.BYTE 0
+W?CURSE::	.ZWORD "curse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?CUSS::	.ZWORD "cuss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?CUT::	.ZWORD "cut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?D::	.ZWORD "d"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 250
+	.BYTE 26
+W?DAMAGE::	.ZWORD "damage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?DAMN::	.ZWORD "damn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?DAY::	.ZWORD "day"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DEAD::	.ZWORD "dead"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEAD
+	.BYTE 0
+W?DEBRIS::	.ZWORD "debris"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DECK::	.ZWORD "deck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DECREP::	.ZWORD "decrep"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DECREP
+	.BYTE 0
+W?DEEP::	.ZWORD "deep"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEEP
+	.BYTE 0
+W?DEEP-S::	.ZWORD "deep-s"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEEP-S
+	.BYTE 0
+W?DEFLATE::	.ZWORD "deflat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEFLATE
+	.BYTE 0
+W?DELIVE::	.ZWORD "delive"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DELIVE
+	.BYTE 0
+W?DEPOSIT::	.ZWORD "deposi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEPOSIT
+	.BYTE 0
+W?DESCRIBE::	.ZWORD "descri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?DESK::	.ZWORD "desk"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?DESK
+W?DESTROY::	.ZWORD "destro"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?DETACH::	.ZWORD "detach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?DETECT::	.ZWORD "detect"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?DETECT
+W?DEVICE::	.ZWORD "device"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DIAGNOSE::	.ZWORD "diagno"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIAGNOSE
+	.BYTE 0
+W?DID::	.ZWORD "did"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DID
+	.BYTE 0
+W?DIG::	.ZWORD "dig"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIG
+	.BYTE 0
+W?DINNER::	.ZWORD "dinner"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DINNER
+	.BYTE 0
+W?DIRECT::	.ZWORD "direct"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIRECT
+	.BYTE 0
+W?DIRTY::	.ZWORD "dirty"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIRTY
+	.BYTE 0
+W?DISCONNECT::	.ZWORD "discon"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?DISEMBARK::	.ZWORD "disemb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISEMBARK
+	.BYTE 0
+W?DISH::	.ZWORD "dish"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DISPATCH::	.ZWORD "dispat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+	.BYTE 0
+W?DISTIN::	.ZWORD "distin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DISTIN
+	.BYTE 0
+W?DIVE::	.ZWORD "dive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIVE
+	.BYTE 0
+W?DIVER::	.ZWORD "diver"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIVER
+	.BYTE 0
+W?DIVERS::	.ZWORD "divers"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIVERS
+	.BYTE 0
+W?DIVING::	.ZWORD "diving"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIVING
+	.BYTE 0
+W?DONATE::	.ZWORD "donate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?DOOR::	.ZWORD "door"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DOUBLE::	.ZWORD "double"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOUBLE
+	.BYTE 0
+W?DOUBLO::	.ZWORD "doublo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DOUSE::	.ZWORD "douse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+	.BYTE 0
+W?DOWN::	.ZWORD "down"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 250
+	.BYTE 26
+W?DOWNSTAIRS::	.ZWORD "downst"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 250
+	.BYTE 26
+W?DRAB::	.ZWORD "drab"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRAB
+	.BYTE 0
+W?DRAFT::	.ZWORD "draft"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRAFT
+	.BYTE 0
+W?DRAWER::	.ZWORD "drawer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DRESSE::	.ZWORD "dresse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DRILL::	.ZWORD "drill"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DRILL
+W?DRILLE::	.ZWORD "drille"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DRINK::	.ZWORD "drink"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DRINK
+W?DRINKI::	.ZWORD "drinki"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRINKI
+	.BYTE 0
+W?DROP::	.ZWORD "drop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?DRY::	.ZWORD "dry"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DRY
+	.BYTE 0
+W?DUNNO::	.ZWORD "dunno"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAYBE
+	.BYTE 0
+W?DUSTY::	.ZWORD "dusty"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DUSTY
+	.BYTE 0
+W?E::	.ZWORD "e"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?EAST
+	.BYTE 30
+W?EAST::	.ZWORD "east"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?EAST
+	.BYTE 30
+W?EAT::	.ZWORD "eat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?ELECTR::	.ZWORD "electr"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?ELECTR
+W?EMPTY::	.ZWORD "empty"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMPTY
+	.BYTE 0
+W?ENGINE::	.ZWORD "engine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ENTER::	.ZWORD "enter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENTER
+	.BYTE 0
+W?ENVELO::	.ZWORD "envelo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ESCUDO::	.ZWORD "escudo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?EXIT::	.ZWORD "exit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+	.BYTE 0
+W?EXPLOS::	.ZWORD "explos"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EXPLOS
+	.BYTE 0
+W?EXTINGUISH::	.ZWORD "exting"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+	.BYTE 0
+W?EYEPAT::	.ZWORD "eyepat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?F::	.ZWORD "f"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE 31
+W?FADED::	.ZWORD "faded"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FADED
+	.BYTE 0
+W?FALLEN::	.ZWORD "fallen"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FALLEN
+	.BYTE 0
+W?FASTEN::	.ZWORD "fasten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?FEED::	.ZWORD "feed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?FEEL::	.ZWORD "feel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?FERRY::	.ZWORD "ferry"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FERRY
+	.BYTE O?ANY
+W?FIELD::	.ZWORD "field"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?FIN::	.ZWORD "fin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FIND::	.ZWORD "find"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?FINS::	.ZWORD "fins"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FIRST::	.ZWORD "first"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FIRST
+	.BYTE 0
+W?FISH::	.ZWORD "fish"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FIX::	.ZWORD "fix"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLUG
+	.BYTE 0
+W?FLASH::	.ZWORD "flash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+	.BYTE 0
+W?FLASHL::	.ZWORD "flashl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FLIP::	.ZWORD "flip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+	.BYTE 0
+W?FLIPPE::	.ZWORD "flippe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FLOATI::	.ZWORD "floati"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FLOATI
+	.BYTE 0
+W?FLOOR::	.ZWORD "floor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FLOURE::	.ZWORD "floure"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FLOURE
+	.BYTE 0
+W?FOLD::	.ZWORD "fold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLD
+	.BYTE 0
+W?FOLLOW::	.ZWORD "follow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?FOOD::	.ZWORD "food"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FOR::	.ZWORD "for"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 252
+	.BYTE 0
+W?FORD::	.ZWORD "ford"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CROSS
+	.BYTE 0
+W?FORE::	.ZWORD "fore"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE 31
+W?FORWARD::	.ZWORD "forwar"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE 31
+W?FRANK::	.ZWORD "frank"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FRANK
+	.BYTE 0
+W?FREE::	.ZWORD "free"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?FROM::	.ZWORD "from"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 249
+	.BYTE 0
+W?FRONT::	.ZWORD "front"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FRONT
+	.BYTE 0
+W?FUCK::	.ZWORD "fuck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?G::	.ZWORD "g"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?AGAIN
+	.BYTE 0
+W?GAUGE::	.ZWORD "gauge"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?TAKE
+	.BYTE 0
+W?GIANT::	.ZWORD "giant"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GIANT
+	.BYTE 0
+W?GIMBAL::	.ZWORD "gimbal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GIVE::	.ZWORD "give"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?GLASS::	.ZWORD "glass"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?GLASS
+W?GLOB::	.ZWORD "glob"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?GLOB
+W?GLUE::	.ZWORD "glue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLUG
+	.BYTE 0
+W?GO::	.ZWORD "go"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?GOLD::	.ZWORD "gold"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GOLD
+	.BYTE 0
+W?GOODBYE::	.ZWORD "goodby"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GOODBYE
+	.BYTE 0
+W?GRAB::	.ZWORD "grab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?GREASE::	.ZWORD "grease"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LUBRICATE
+	.BYTE 0
+W?GRIMY::	.ZWORD "grimy"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GRIMY
+	.BYTE 0
+W?GROG::	.ZWORD "grog"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GROUND::	.ZWORD "ground"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GUN::	.ZWORD "gun"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GUNK::	.ZWORD "gunk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GUZZLE::	.ZWORD "guzzle"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DRINK
+W?HAND::	.ZWORD "hand"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?HANDWRITTEN::	.ZWORD "handwr"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HANDWRITTEN
+	.BYTE 0
+W?HANGIN::	.ZWORD "hangin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HANGIN
+	.BYTE 0
+W?HATCH::	.ZWORD "hatch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HATCHW::	.ZWORD "hatchw"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HEAVY::	.ZWORD "heavy"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HEAVY
+	.BYTE 0
+W?HELL::	.ZWORD "hell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?HELLO::	.ZWORD "hello"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HELP::	.ZWORD "help"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HER::	.ZWORD "her"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HERE::	.ZWORD "here"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HERE
+	.BYTE 0
+W?HEVLIN::	.ZWORD "hevlin"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HEVLIN
+	.BYTE O?ANY
+W?HI::	.ZWORD "hi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HIDE::	.ZWORD "hide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIDE
+	.BYTE 0
+W?HIM::	.ZWORD "him"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HIT::	.ZWORD "hit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?HOLD::	.ZWORD "hold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?HOLE::	.ZWORD "hole"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?HOLE
+W?HOOD::	.ZWORD "hood"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HOP::	.ZWORD "hop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SKIP
+	.BYTE 0
+W?HOSE::	.ZWORD "hose"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HOW::	.ZWORD "how"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HOW
+	.BYTE 0
+W?HUGE::	.ZWORD "huge"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HUGE
+	.BYTE 0
+W?HURL::	.ZWORD "hurl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?HURT::	.ZWORD "hurt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?I::	.ZWORD "i"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INVENTORY
+	.BYTE 0
+W?ID::	.ZWORD "id"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ID
+	.BYTE 0
+W?IGNITE::	.ZWORD "ignite"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BURN
+	.BYTE 0
+W?IMBIBE::	.ZWORD "imbibe"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DRINK
+W?IN::	.ZWORD "in"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 247
+	.BYTE 25
+W?INCINERATE::	.ZWORD "incine"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BURN
+	.BYTE 0
+W?INFLAT::	.ZWORD "inflat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INFLAT
+	.BYTE 0
+W?INJURE::	.ZWORD "injure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.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?PUT
+	.BYTE 0
+W?INSIDE::	.ZWORD "inside"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 247
+	.BYTE 25
+W?INTDIR::	.ZWORD "intdir"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?INTNUM::	.ZWORD "intnum"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?INTO::	.ZWORD "into"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 247
+	.BYTE 25
+W?INVENTORY::	.ZWORD "invent"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INVENTORY
+	.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?IT::	.ZWORD "it"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?JAB::	.ZWORD "jab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POKE
+	.BYTE 0
+W?JAGGED::	.ZWORD "jagged"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JAGGED
+	.BYTE 0
+W?JOHN::	.ZWORD "john"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?JOHN
+W?JOHNNY::	.ZWORD "johnny"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?JOHNNY
+W?JUMP::	.ZWORD "jump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?KEY::	.ZWORD "key"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?KICK::	.ZWORD "kick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KICK
+	.BYTE 0
+W?KID::	.ZWORD "kid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?KILL::	.ZWORD "kill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+	.BYTE 0
+W?KISS::	.ZWORD "kiss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KISS
+	.BYTE 0
+W?KNIFE::	.ZWORD "knife"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?LOOK
+	.BYTE 0
+W?LABEL::	.ZWORD "label"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LADDER::	.ZWORD "ladder"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?LADDER
+W?LAMP::	.ZWORD "lamp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LANTER::	.ZWORD "lanter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LARGE::	.ZWORD "large"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LARGE
+	.BYTE 0
+W?LATITUDE::	.ZWORD "latitu"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LATITUDE
+	.BYTE 0
+W?LAUNCH::	.ZWORD "launch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LAUNCH
+	.BYTE 0
+W?LEAN::	.ZWORD "lean"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAN
+	.BYTE 0
+W?LEAP::	.ZWORD "leap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?LEASE::	.ZWORD "lease"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RENT
+	.BYTE 0
+W?LEAVE::	.ZWORD "leave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?LEG::	.ZWORD "leg"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LETTER::	.ZWORD "letter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LIE::	.ZWORD "lie"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SLEEP
+W?LIFT::	.ZWORD "lift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+	.BYTE 0
+W?LIGHT::	.ZWORD "light"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?LIGHT
+W?LIGHTH::	.ZWORD "lighth"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?LIGHTH
+W?LINE::	.ZWORD "line"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LIQUIFY::	.ZWORD "liquif"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MELT
+	.BYTE 0
+W?LIQUOR::	.ZWORD "liquor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LIST::	.ZWORD "list"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LISTEN::	.ZWORD "listen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LISTEN
+	.BYTE 0
+W?LISTIN::	.ZWORD "listin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LOCATI::	.ZWORD "locati"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOCATI
+	.BYTE 0
+W?LOCK::	.ZWORD "lock"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?LOCK
+W?LOCKER::	.ZWORD "locker"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?LOCKER
+W?LOGO::	.ZWORD "logo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LONGITUDE::	.ZWORD "longit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LONGITUDE
+	.BYTE 0
+W?LOOK::	.ZWORD "look"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?LOOKIN::	.ZWORD "lookin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOOKIN
+	.BYTE 0
+W?LOOKOU::	.ZWORD "lookou"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOOKOU
+	.BYTE 0
+W?LOOSE::	.ZWORD "loose"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOOSE
+	.BYTE 0
+W?LOPSID::	.ZWORD "lopsid"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOPSID
+	.BYTE 0
+W?LOSE::	.ZWORD "lose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CHOMP
+	.BYTE 0
+W?LOWER::	.ZWORD "lower"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOWER
+	.BYTE ACT?LOWER
+W?LUBRICATE::	.ZWORD "lubric"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LUBRICATE
+	.BYTE 0
+W?LUNCH::	.ZWORD "lunch"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LUNCH
+	.BYTE 0
+W?MACHIN::	.ZWORD "machin"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?MACHIN
+W?MAGNET::	.ZWORD "magnet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAIL::	.ZWORD "mail"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAKE::	.ZWORD "make"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAKE
+	.BYTE 0
+W?MAN::	.ZWORD "man"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAPLE::	.ZWORD "maple"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MAPLE
+	.BYTE 0
+W?MAPS::	.ZWORD "maps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MARGAR::	.ZWORD "margar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MARINE::	.ZWORD "marine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MARINE
+	.BYTE 0
+W?MARY::	.ZWORD "mary"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MARY
+	.BYTE 0
+W?MASK::	.ZWORD "mask"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAST::	.ZWORD "mast"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MASTS::	.ZWORD "masts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MATTRE::	.ZWORD "mattre"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAYBE::	.ZWORD "maybe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAYBE
+	.BYTE 0
+W?MCGINTY::	.ZWORD "mcgint"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ME::	.ZWORD "me"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MEAL::	.ZWORD "meal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MELT::	.ZWORD "melt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MELT
+	.BYTE 0
+W?MERCHA::	.ZWORD "mercha"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?MERCHA
+W?MESSAG::	.ZWORD "messag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?METAL::	.ZWORD "metal"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?METAL
+	.BYTE 0
+W?MINE::	.ZWORD "mine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MINES::	.ZWORD "mines"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MINUTE::	.ZWORD "minute"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?MINUTE
+	.BYTE 0
+W?MIRROR::	.ZWORD "mirror"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?RAPE
+	.BYTE 0
+W?MONEY::	.ZWORD "money"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?MUMBLE::	.ZWORD "mumble"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MUMBLE
+	.BYTE 0
+W?MUNCH::	.ZWORD "munch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?MURDER::	.ZWORD "murder"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+	.BYTE 0
+W?MY::	.ZWORD "my"
+	.BYTE PS?ADJECTIVE+PS?BUZZ-WORD
+	.BYTE A?MY
+	.BYTE B?MY
+W?MYSELF::	.ZWORD "myself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?N::	.ZWORD "n"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE 31
+W?NAP::	.ZWORD "nap"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SLEEP
+W?NAUTIC::	.ZWORD "nautic"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NAUTIC
+	.BYTE 0
+W?NE::	.ZWORD "ne"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NE
+	.BYTE 21
+W?NEGATIVE::	.ZWORD "negati"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NET::	.ZWORD "net"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?NIBBLE::	.ZWORD "nibble"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?NIGHT::	.ZWORD "night"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NIGHT
+	.BYTE 0
+W?NINE::	.ZWORD "nine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NINE
+	.BYTE 0
+W?NINE-V::	.ZWORD "nine-v"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NINE-V
+	.BYTE 0
+W?NO::	.ZWORD "no"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.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?ADJECTIVE
+	.BYTE A?NORTH
+	.BYTE 31
+W?NORTHE::	.ZWORD "northe"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NE
+	.BYTE 21
+W?NORTHWEST::	.ZWORD "northw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NW
+	.BYTE 20
+W?NOTE::	.ZWORD "note"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?NW::	.ZWORD "nw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NW
+	.BYTE 20
+W?OAK::	.ZWORD "oak"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OAK
+	.BYTE 0
+W?OCEAN::	.ZWORD "ocean"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OCEAN
+	.BYTE O?ANY
+W?OF::	.ZWORD "of"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?OF
+	.BYTE 0
+W?OFF::	.ZWORD "off"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 239
+	.BYTE 0
+W?OFF-WH::	.ZWORD "off-wh"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OFF-WH
+	.BYTE 0
+W?OFFER::	.ZWORD "offer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.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?ON::	.ZWORD "on"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 246
+	.BYTE 0
+W?ON/OFF::	.ZWORD "on/off"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ON/OFF
+	.BYTE 0
+W?ON-OFF::	.ZWORD "on-off"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ON-OFF
+	.BYTE 0
+W?ONE::	.ZWORD "one"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ONE
+	.BYTE 0
+W?ONE-PI::	.ZWORD "one-pi"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ONE-PI
+	.BYTE 0
+W?ONTO::	.ZWORD "onto"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 246
+	.BYTE 0
+W?OPEN::	.ZWORD "open"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?ORANGE::	.ZWORD "orange"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ORANGE
+	.BYTE 0
+W?ORDER::	.ZWORD "order"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BUY
+	.BYTE 0
+W?OUT::	.ZWORD "out"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 244
+	.BYTE 24
+W?OVER::	.ZWORD "over"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 241
+	.BYTE 0
+W?OVERGR::	.ZWORD "overgr"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OVERGR
+	.BYTE 0
+W?OXYGEN::	.ZWORD "oxygen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?P::	.ZWORD "p"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?WEST
+	.BYTE 29
+W?PAIR::	.ZWORD "pair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PANEL::	.ZWORD "panel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PARROT::	.ZWORD "parrot"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?PARROT
+W?PARTIT::	.ZWORD "partit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PASSBOOK::	.ZWORD "passbo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PAT::	.ZWORD "pat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?PATCH::	.ZWORD "patch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLUG
+	.BYTE 0
+W?PAY::	.ZWORD "pay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?PEER::	.ZWORD "peer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?PEOPLE::	.ZWORD "people"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PET::	.ZWORD "pet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?PETE::	.ZWORD "pete"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PETE
+	.BYTE 0
+W?PETE'S::	.ZWORD "pete's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PETE'S
+	.BYTE 0
+W?PETER::	.ZWORD "peter"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PETER
+	.BYTE 0
+W?PETES::	.ZWORD "petes"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PETES
+	.BYTE 0
+W?PICK::	.ZWORD "pick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PICK
+	.BYTE 0
+W?PIECE::	.ZWORD "piece"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PIECES::	.ZWORD "pieces"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PIERCE::	.ZWORD "pierce"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?PIKE::	.ZWORD "pike"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PIKES::	.ZWORD "pikes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLACE::	.ZWORD "place"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?PLAQUE::	.ZWORD "plaque"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLATE::	.ZWORD "plate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLAY::	.ZWORD "play"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+	.BYTE 0
+W?PLAYER::	.ZWORD "player"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLEASE::	.ZWORD "please"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PLEASE
+	.BYTE 0
+W?PLUG::	.ZWORD "plug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLUG
+	.BYTE 0
+W?POCKET::	.ZWORD "pocket"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?POINT::	.ZWORD "point"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?AIM
+	.BYTE 0
+W?POINTS::	.ZWORD "points"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?POKE::	.ZWORD "poke"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POKE
+	.BYTE 0
+W?POLISH::	.ZWORD "polish"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?POLLY::	.ZWORD "polly"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?POLLY
+	.BYTE 0
+W?PORT::	.ZWORD "port"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?WEST
+	.BYTE 29
+W?PORTAB::	.ZWORD "portab"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PORTAB
+	.BYTE 0
+W?PORTUG::	.ZWORD "portug"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PORTUG
+	.BYTE 0
+W?POUR::	.ZWORD "pour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?POWER::	.ZWORD "power"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?POWER
+	.BYTE 0
+W?PRAY::	.ZWORD "pray"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PRAY
+	.BYTE 0
+W?PRESS::	.ZWORD "press"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PRICE::	.ZWORD "price"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PRICE
+	.BYTE 0
+W?PRICEL::	.ZWORD "pricel"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PRICEL
+	.BYTE 0
+W?PROCEED::	.ZWORD "procee"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?PROGRESS::	.ZWORD "progre"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+	.BYTE 0
+W?PULL::	.ZWORD "pull"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?PUMP::	.ZWORD "pump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUMP
+	.BYTE 0
+W?PURCHASE::	.ZWORD "purcha"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BUY
+	.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?PUT
+	.BYTE 0
+W?PUTTY::	.ZWORD "putty"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?QUICKLY::	.ZWORD "quickl"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?QUICKLY
+	.BYTE 0
+W?QUIETLY::	.ZWORD "quietl"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?QUIETLY
+	.BYTE 0
+W?QUIT::	.ZWORD "quit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?RAIL::	.ZWORD "rail"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RAILIN::	.ZWORD "railin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RAISE::	.ZWORD "raise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+	.BYTE 0
+W?RANGE::	.ZWORD "range"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?RAPE
+	.BYTE 0
+W?RAPIER::	.ZWORD "rapier"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RARE::	.ZWORD "rare"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RARE
+	.BYTE 0
+W?RAT::	.ZWORD "rat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RATING::	.ZWORD "rating"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+	.BYTE 0
+W?REACH::	.ZWORD "reach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REACH
+	.BYTE 0
+W?READ::	.ZWORD "read"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?RECESS::	.ZWORD "recess"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RED::	.ZWORD "red"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RELEASE::	.ZWORD "releas"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?REMOVE::	.ZWORD "remove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?RENT::	.ZWORD "rent"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RENT
+	.BYTE 0
+W?REPAIR::	.ZWORD "repair"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLUG
+	.BYTE 0
+W?REPELL::	.ZWORD "repell"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?REPELL
+W?REST::	.ZWORD "rest"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SLEEP
+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?RETRAC::	.ZWORD "retrac"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RETRAC
+	.BYTE 0
+W?ROB::	.ZWORD "rob"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ROB
+	.BYTE 0
+W?ROCKS::	.ZWORD "rocks"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ROCKY::	.ZWORD "rocky"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ROCKY
+	.BYTE 0
+W?ROD::	.ZWORD "rod"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ROLL::	.ZWORD "roll"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ROLL
+	.BYTE 0
+W?ROOM::	.ZWORD "room"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?ROOM
+W?ROPE::	.ZWORD "rope"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ROTTEN::	.ZWORD "rotten"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ROTTEN
+	.BYTE 0
+W?ROTTIN::	.ZWORD "rottin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ROTTIN
+	.BYTE 0
+W?ROW::	.ZWORD "row"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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 O?ANY
+	.BYTE 0
+W?RUM::	.ZWORD "rum"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RUM
+	.BYTE 0
+W?RUN::	.ZWORD "run"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?RUNG::	.ZWORD "rung"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RUNG
+	.BYTE O?ANY
+W?RUNGS::	.ZWORD "rungs"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RUNGS
+	.BYTE O?ANY
+W?S::	.ZWORD "s"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SOUTH
+	.BYTE 28
+W?SAFE::	.ZWORD "safe"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?SAFE
+W?SAFETY::	.ZWORD "safety"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SAFETY
+	.BYTE 0
+W?SALESM::	.ZWORD "salesm"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SALVAG::	.ZWORD "salvag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?SB::	.ZWORD "sb"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?EAST
+	.BYTE 30
+W?SCABBA::	.ZWORD "scabba"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SCORE::	.ZWORD "score"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+	.BYTE 0
+W?SCOTCH::	.ZWORD "scotch"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SCOTCH
+	.BYTE 0
+W?SCRAPE::	.ZWORD "scrape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?SCREAM::	.ZWORD "scream"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SCRIPT::	.ZWORD "script"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCRIPT
+	.BYTE 0
+W?SCRUB::	.ZWORD "scrub"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLEAN
+	.BYTE 0
+W?SCUBA::	.ZWORD "scuba"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SCUBA
+	.BYTE 0
+W?SE::	.ZWORD "se"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SE
+	.BYTE 23
+W?SEA::	.ZWORD "sea"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?SEA
+W?SEALED::	.ZWORD "sealed"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEALED
+	.BYTE 0
+W?SEAMAN::	.ZWORD "seaman"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEAMAN
+	.BYTE 0
+W?SEARCH::	.ZWORD "search"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?SEAT::	.ZWORD "seat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SECOND::	.ZWORD "second"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SECOND
+	.BYTE 0
+W?SECURE::	.ZWORD "secure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?SEE::	.ZWORD "see"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?SEEK::	.ZWORD "seek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?SELF::	.ZWORD "self"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SEMI-P::	.ZWORD "semi-p"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEMI-P
+	.BYTE 0
+W?SEND::	.ZWORD "send"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEND
+	.BYTE 0
+W?SET::	.ZWORD "set"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+	.BYTE 0
+W?SHAKE::	.ZWORD "shake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHAKE
+	.BYTE 0
+W?SHARK::	.ZWORD "shark"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SHARK
+	.BYTE O?ANY
+W?SHARP::	.ZWORD "sharp"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SHARP
+	.BYTE 0
+W?SHELF::	.ZWORD "shelf"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SHIP::	.ZWORD "ship"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SHIPWR::	.ZWORD "shipwr"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?SHIPWR
+W?SHIT::	.ZWORD "shit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.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?CLOSE
+	.BYTE 0
+W?SIGH::	.ZWORD "sigh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MUMBLE
+	.BYTE 0
+W?SIGN::	.ZWORD "sign"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SIP::	.ZWORD "sip"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DRINK
+W?SIT::	.ZWORD "sit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?SKELET::	.ZWORD "skelet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SKIM::	.ZWORD "skim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?SKIP::	.ZWORD "skip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SKIP
+	.BYTE 0
+W?SLAY::	.ZWORD "slay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+	.BYTE 0
+W?SLEEP::	.ZWORD "sleep"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SLEEP
+W?SLICE::	.ZWORD "slice"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?SLIDE::	.ZWORD "slide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLIDE
+	.BYTE 0
+W?SLOWLY::	.ZWORD "slowly"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SLOWLY
+	.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?DESTROY
+	.BYTE 0
+W?SMELL::	.ZWORD "smell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SMELLY::	.ZWORD "smelly"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SMELLY
+	.BYTE 0
+W?SMOKE::	.ZWORD "smoke"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMOKE
+	.BYTE 0
+W?SNIFF::	.ZWORD "sniff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SOME::	.ZWORD "some"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SOME
+	.BYTE 0
+W?SOUTH::	.ZWORD "south"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SOUTH
+	.BYTE 28
+W?SOUTHE::	.ZWORD "southe"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SE
+	.BYTE 23
+W?SOUTHWEST::	.ZWORD "southw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SW
+	.BYTE 22
+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?SPEAR::	.ZWORD "spear"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SPEAR
+	.BYTE 0
+W?SPIKE::	.ZWORD "spike"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SPIKES::	.ZWORD "spikes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SPILL::	.ZWORD "spill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?SPIN::	.ZWORD "spin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPIN
+	.BYTE 0
+W?SPRAY::	.ZWORD "spray"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPRAY
+	.BYTE 0
+W?SQUEEZE::	.ZWORD "squeez"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SQUEEZE
+	.BYTE 0
+W?SQUID::	.ZWORD "squid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STAB::	.ZWORD "stab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+	.BYTE 0
+W?STAIRS::	.ZWORD "stairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STAIRW::	.ZWORD "stairw"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STAMPS::	.ZWORD "stamps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STAND::	.ZWORD "stand"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+	.BYTE 0
+W?STARBO::	.ZWORD "starbo"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?EAST
+	.BYTE 30
+W?STARE::	.ZWORD "stare"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?START::	.ZWORD "start"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?LIGHT
+W?STARTLE::	.ZWORD "startl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?STAY::	.ZWORD "stay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAY
+	.BYTE 0
+W?STEP::	.ZWORD "step"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?STEPS::	.ZWORD "steps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STEW::	.ZWORD "stew"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STICKE::	.ZWORD "sticke"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STINKIN::	.ZWORD "stinki"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STINKIN
+	.BYTE 0
+W?STOGIE::	.ZWORD "stogie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STOVE::	.ZWORD "stove"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STRIKE::	.ZWORD "strike"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STRIKE
+	.BYTE 0
+W?STUB::	.ZWORD "stub"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STUBS::	.ZWORD "stubs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STUFF::	.ZWORD "stuff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?STURDY::	.ZWORD "sturdy"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STURDY
+	.BYTE 0
+W?SUIT::	.ZWORD "suit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SUPER::	.ZWORD "super"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+	.BYTE 0
+W?SUPERBRIEF::	.ZWORD "superb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+	.BYTE 0
+W?SUPPER::	.ZWORD "supper"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SUPPER
+	.BYTE 0
+W?SUPPORT::	.ZWORD "suppor"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRACE
+	.BYTE 0
+W?SURE::	.ZWORD "sure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?SURFAC::	.ZWORD "surfac"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SURPRISE::	.ZWORD "surpri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?SUSPEN::	.ZWORD "suspen"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SUSPEN
+	.BYTE 0
+W?SW::	.ZWORD "sw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SW
+	.BYTE 22
+W?SWALLOW::	.ZWORD "swallo"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DRINK
+W?SWAMP::	.ZWORD "swamp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SWEAR::	.ZWORD "swear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?SWIM::	.ZWORD "swim"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SWIM
+	.BYTE ACT?SWIM
+W?SWING::	.ZWORD "swing"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWING
+	.BYTE 0
+W?SWITCH::	.ZWORD "switch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SWORD::	.ZWORD "sword"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?T::	.ZWORD "t"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?TIME
+W?TABLE::	.ZWORD "table"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TABLES::	.ZWORD "tables"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TAG::	.ZWORD "tag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?TANK::	.ZWORD "tank"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TASTE::	.ZWORD "taste"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TASTE
+	.BYTE 0
+W?TELL::	.ZWORD "tell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+	.BYTE 0
+W?TELLER::	.ZWORD "teller"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TEXT::	.ZWORD "text"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THAT::	.ZWORD "that"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?THROUGH::	.ZWORD "throug"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 245
+	.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 245
+	.BYTE 0
+W?THRUST::	.ZWORD "thrust"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWING
+	.BYTE 0
+W?TIE::	.ZWORD "tie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?TILTED::	.ZWORD "tilted"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TILTED
+	.BYTE 0
+W?TIME::	.ZWORD "time"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?TIME
+W?TIMEPI::	.ZWORD "timepi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TO::	.ZWORD "to"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 254
+	.BYTE 0
+W?TOKEN::	.ZWORD "token"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TOOTHY::	.ZWORD "toothy"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TOOTHY
+	.BYTE 0
+W?TOP::	.ZWORD "top"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TOP
+	.BYTE O?ANY
+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?TRAWLE::	.ZWORD "trawle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TREASU::	.ZWORD "treasu"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?TREASU
+W?TRUNK::	.ZWORD "trunk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TRUST::	.ZWORD "trust"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?TRUST
+W?TUBE::	.ZWORD "tube"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?TUBE
+W?TUG::	.ZWORD "tug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?TURN::	.ZWORD "turn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+	.BYTE 0
+W?U::	.ZWORD "u"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 248
+	.BYTE 27
+W?UGLY::	.ZWORD "ugly"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UGLY
+	.BYTE 0
+W?UH-HUH::	.ZWORD "uh-huh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?UH-UH::	.ZWORD "uh-uh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?UNDER::	.ZWORD "under"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 243
+	.BYTE 0
+W?UNDERNEATH::	.ZWORD "undern"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 243
+	.BYTE 0
+W?UNFASTEN::	.ZWORD "unfast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNFOLD::	.ZWORD "unfold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNFOLD
+	.BYTE 0
+W?UNHOOK::	.ZWORD "unhook"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNLOCK::	.ZWORD "unlock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNLOCK
+	.BYTE 0
+W?UNSCRIPT::	.ZWORD "unscri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNSCRIPT
+	.BYTE 0
+W?UNTIE::	.ZWORD "untie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UP::	.ZWORD "up"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 248
+	.BYTE 27
+W?UPPER::	.ZWORD "upper"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UPPER
+	.BYTE 0
+W?UPSTAIRS::	.ZWORD "upstai"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 248
+	.BYTE 27
+W?USED::	.ZWORD "used"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?USED
+	.BYTE 0
+W?VALUAB::	.ZWORD "valuab"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VALUAB
+	.BYTE 0
+W?VAULT::	.ZWORD "vault"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?VERSION
+	.BYTE 0
+W?VOLT::	.ZWORD "volt"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VOLT
+	.BYTE 0
+W?W::	.ZWORD "w"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?WEST
+	.BYTE 29
+W?WADE::	.ZWORD "wade"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SWIM
+	.BYTE ACT?SWIM
+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?WALK
+	.BYTE 0
+W?WALL::	.ZWORD "wall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WALLPA::	.ZWORD "wallpa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WALLS::	.ZWORD "walls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WATCH::	.ZWORD "watch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WATER::	.ZWORD "water"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WATERP::	.ZWORD "waterp"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WATERP
+	.BYTE 0
+W?WAVE::	.ZWORD "wave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAVE
+	.BYTE 0
+W?WAVES::	.ZWORD "waves"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WEAR::	.ZWORD "wear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+	.BYTE 0
+W?WEASEL::	.ZWORD "weasel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?WEASEL
+W?WEBSTE::	.ZWORD "webste"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WEDGE::	.ZWORD "wedge"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?WEEDS::	.ZWORD "weeds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WEIGH::	.ZWORD "weigh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEIGH
+	.BYTE 0
+W?WEIGHT::	.ZWORD "weight"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WEIGHT
+	.BYTE 0
+W?WELL::	.ZWORD "well"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WELL
+	.BYTE 0
+W?WELL-W::	.ZWORD "well-w"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WELL-W
+	.BYTE 0
+W?WEST::	.ZWORD "west"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?WEST
+	.BYTE 29
+W?WET::	.ZWORD "wet"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WET
+	.BYTE 0
+W?WHAT::	.ZWORD "what"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHAT'S::	.ZWORD "what's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHATS::	.ZWORD "whats"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHEEL::	.ZWORD "wheel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WHEN::	.ZWORD "when"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHEN
+	.BYTE 0
+W?WHERE::	.ZWORD "where"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?WHISKE::	.ZWORD "whiske"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WHISKY::	.ZWORD "whisky"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WHO::	.ZWORD "who"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHO'S::	.ZWORD "who's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHOLE::	.ZWORD "whole"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WHOLE
+	.BYTE 0
+W?WHOS::	.ZWORD "whos"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHY::	.ZWORD "why"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHY
+	.BYTE 0
+W?WIN::	.ZWORD "win"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WIN
+	.BYTE 0
+W?WINCH::	.ZWORD "winch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WIND::	.ZWORD "wind"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?WIND
+W?WINDOW::	.ZWORD "window"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WINE::	.ZWORD "wine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WINNAGE::	.ZWORD "winnag"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WIN
+	.BYTE 0
+W?WITH::	.ZWORD "with"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 251
+	.BYTE 0
+W?WITHDRAW::	.ZWORD "withdr"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WITHDRAW
+	.BYTE 0
+W?WOOD::	.ZWORD "wood"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?WOOD
+W?WOODEN::	.ZWORD "wooden"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WOODEN
+	.BYTE 0
+W?WORN::	.ZWORD "worn"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WORN
+	.BYTE 0
+W?WRECK::	.ZWORD "wreck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WRIST::	.ZWORD "wrist"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WRIST
+	.BYTE 0
+W?WRISTW::	.ZWORD "wristw"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WRITIN::	.ZWORD "writin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?Y::	.ZWORD "y"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YANK::	.ZWORD "yank"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.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?YES::	.ZWORD "yes"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YOURSE::	.ZWORD "yourse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?ZZMGCK::	.ZWORD "zzmgck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+
+; PURE TABLES ARE DEFINED HERE
+
+T?16::	.TABLE
+	STR?60
+	STR?60
+	STR?61
+	STR?62
+	STR?63
+	STR?64
+	.ENDT
+
+T?17::	.TABLE
+	4
+	STR?91
+	STR?92
+	STR?93
+	STR?94
+	.ENDT
+
+T?18::	.TABLE
+	5
+	STR?95
+	STR?96
+	STR?97
+	STR?98
+	STR?99
+	.ENDT
+
+T?20::	.TABLE
+	8
+	STR?146
+	STR?147
+	STR?148
+	STR?149
+	STR?150
+	STR?151
+	STR?152
+	STR?153
+	.ENDT
+
+T?21::	.TABLE
+	P?NORTH
+	STR?170
+	P?SOUTH
+	STR?171
+	P?EAST
+	STR?172
+	P?WEST
+	STR?173
+	P?NW
+	STR?174
+	P?NE
+	STR?175
+	P?SW
+	STR?176
+	P?SE
+	STR?177
+	P?DOWN
+	STR?178
+	P?UP
+	STR?179
+	P?IN
+	STR?57
+	P?OUT
+	STR?180
+	.ENDT
+
+T?22::	.TABLE
+	P?NORTH
+	STR?181
+	P?SOUTH
+	STR?182
+	P?EAST
+	STR?183
+	P?WEST
+	STR?184
+	P?NW
+	STR?174
+	P?NE
+	STR?175
+	P?SW
+	STR?176
+	P?SE
+	STR?177
+	P?DOWN
+	STR?185
+	P?UP
+	STR?186
+	P?IN
+	STR?57
+	P?OUT
+	STR?180
+	.ENDT
+
+T?23::	.TABLE
+	0
+	WINDING-ROAD-1
+	P?SE
+	P?NW
+	WINDING-ROAD-2
+	P?NE
+	P?SW
+	WINDING-ROAD-3
+	P?NE
+	P?SW
+	WHARF-ROAD-1
+	P?EAST
+	P?WEST
+	WHARF-ROAD-2
+	P?EAST
+	P?WEST
+	WHARF-ROAD-3
+	P?NORTH
+	P?SOUTH
+	WHARF
+	0
+	.ENDT
+
+T?24::	.TABLE
+	0
+	WHARF-ROAD-4
+	P?EAST
+	P?WEST
+	WHARF-ROAD-5
+	P?SE
+	P?NW
+	OCEAN-ROAD-1
+	P?SOUTH
+	P?NORTH
+	OCEAN-ROAD-2
+	P?SOUTH
+	P?NORTH
+	OCEAN-ROAD-3
+	P?SW
+	P?NE
+	SHORE-ROAD-2
+	P?WEST
+	P?EAST
+	SHORE-ROAD-1
+	P?WEST
+	P?EAST
+	FERRY-LANDING
+	0
+	.ENDT
+
+T?25::	.TABLE
+	0
+	RED-BOAR-INN
+	P?UP
+	P?DOWN
+	UPSTAIRS-HALLWAY
+	P?SOUTH
+	P?NORTH
+	BEDROOM
+	0
+	.ENDT
+
+T?26::	.TABLE
+	0
+	BACK-ALLEY-1
+	P?EAST
+	P?WEST
+	BACK-ALLEY-2
+	P?EAST
+	P?WEST
+	BACK-ALLEY-3
+	P?EAST
+	P?WEST
+	BACK-ALLEY-4
+	P?EAST
+	P?WEST
+	BACK-ALLEY-5
+	0
+	.ENDT
+
+T?27::	.TABLE
+	0
+	NW-PORT-DECK
+	P?NE
+	P?SW
+	NW-FORE-DECK
+	P?SE
+	P?NW
+	NW-STARBOARD-DECK
+	P?SW
+	P?NE
+	NW-AFT-DECK
+	P?DOWN
+	P?UP
+	NW-LOUNGE
+	P?NORTH
+	P?SOUTH
+	NW-GALLEY
+	P?NORTH
+	P?SOUTH
+	NW-CREW-QTRS
+	0
+	.ENDT
+
+T?28::	.TABLE
+	0
+	MM-STARBOARD-DECK
+	P?NW
+	P?SE
+	MM-FORE-DECK
+	P?SW
+	P?NE
+	MM-PORT-DECK
+	P?SE
+	P?NW
+	MM-AFT-DECK
+	P?DOWN
+	P?UP
+	MM-LOUNGE
+	P?NORTH
+	P?SOUTH
+	MM-GALLEY
+	P?NORTH
+	P?SOUTH
+	MM-CREW-QTRS
+	0
+	.ENDT
+
+T?29::	.TABLE
+	0
+	0
+	WHARF-ROAD-3
+	WHARF-ROAD-4
+	WHARF-ROAD-1
+	RED-BOAR-INN
+	WHARF-ROAD-3
+	WHARF-ROAD-4
+	WHARF
+	NW-STARBOARD-DECK
+	WHARF
+	MM-PORT-DECK
+	WHARF-ROAD-4
+	WHARF-ROAD-3
+	0
+	0
+	WHARF-ROAD-4
+	WHARF-ROAD-3
+	OCEAN-ROAD-1
+	BACK-ALLEY-5
+	WHARF-ROAD-4
+	WHARF-ROAD-3
+	WHARF-ROAD-4
+	WHARF-ROAD-3
+	RED-BOAR-INN
+	WHARF-ROAD-1
+	RED-BOAR-INN
+	WHARF-ROAD-1
+	0
+	0
+	RED-BOAR-INN
+	WHARF-ROAD-1
+	RED-BOAR-INN
+	WHARF-ROAD-1
+	RED-BOAR-INN
+	WHARF-ROAD-1
+	BACK-ALLEY-5
+	OCEAN-ROAD-1
+	BACK-ALLEY-5
+	OCEAN-ROAD-1
+	BACK-ALLEY-5
+	OCEAN-ROAD-1
+	0
+	0
+	BACK-ALLEY-5
+	OCEAN-ROAD-1
+	BACK-ALLEY-5
+	OCEAN-ROAD-1
+	NW-STARBOARD-DECK
+	WHARF
+	NW-STARBOARD-DECK
+	WHARF
+	NW-STARBOARD-DECK
+	WHARF
+	NW-STARBOARD-DECK
+	WHARF
+	0
+	0
+	NW-STARBOARD-DECK
+	WHARF
+	MM-PORT-DECK
+	WHARF
+	MM-PORT-DECK
+	WHARF
+	MM-PORT-DECK
+	WHARF
+	MM-PORT-DECK
+	WHARF
+	MM-PORT-DECK
+	WHARF
+	0
+	0
+	.ENDT
+
+T?30::	.TABLE
+	P?NW
+	P?SE
+	WINDING-ROAD-1
+	WINDING-ROAD-2
+	0
+	.ENDT
+
+T?31::	.TABLE
+	P?SW
+	P?NE
+	WINDING-ROAD-2
+	WINDING-ROAD-3
+	WHARF-ROAD-1
+	0
+	.ENDT
+
+T?32::	.TABLE
+	P?WEST
+	P?EAST
+	WHARF-ROAD-1
+	WHARF-ROAD-2
+	WHARF-ROAD-3
+	WHARF-ROAD-4
+	WHARF-ROAD-5
+	0
+	.ENDT
+
+T?33::	.TABLE
+	P?NW
+	P?SE
+	WHARF-ROAD-5
+	OCEAN-ROAD-1
+	0
+	.ENDT
+
+T?34::	.TABLE
+	P?NORTH
+	P?SOUTH
+	OCEAN-ROAD-1
+	OCEAN-ROAD-2
+	OCEAN-ROAD-3
+	0
+	.ENDT
+
+T?35::	.TABLE
+	P?NW
+	P?SE
+	OCEAN-ROAD-3
+	POINT-LOOKOUT
+	0
+	.ENDT
+
+T?36::	.TABLE
+	P?SW
+	P?NE
+	SHORE-ROAD-2
+	OCEAN-ROAD-3
+	0
+	.ENDT
+
+T?37::	.TABLE
+	P?WEST
+	P?EAST
+	FERRY-LANDING
+	SHORE-ROAD-1
+	SHORE-ROAD-2
+	0
+	.ENDT
+
+T?38::	.TABLE
+	P?NORTH
+	P?SOUTH
+	WHARF
+	WHARF-ROAD-3
+	VACANT-LOT
+	BACK-ALLEY-3
+	0
+	.ENDT
+
+T?39::	.TABLE
+	P?WEST
+	P?EAST
+	BACK-ALLEY-1
+	BACK-ALLEY-2
+	BACK-ALLEY-3
+	BACK-ALLEY-4
+	BACK-ALLEY-5
+	0
+	.ENDT
+
+T?47::	.TABLE
+	0
+	MCGINTY
+	JOHNNY
+	PETE
+	WEASEL
+	DELIVERY-BOY
+	.ENDT
+
+T?59::	.TABLE
+	3
+	STR?346
+	STR?347
+	STR?348
+	.ENDT
+
+T?60::	.TABLE
+	3
+	STR?349
+	STR?349
+	STR?349
+	.ENDT
+
+T?61::	.TABLE
+	3
+	STR?350
+	STR?351
+	STR?352
+	.ENDT
+
+T?62::	.TABLE
+	3
+	STR?357
+	STR?358
+	STR?359
+	.ENDT
+
+T?63::	.TABLE
+	3
+	STR?362
+	STR?359
+	STR?359
+	.ENDT
+
+T?64::	.TABLE
+	3
+	STR?368
+	STR?369
+	STR?359
+	.ENDT
+
+T?65::	.TABLE
+	3
+	STR?359
+	STR?375
+	STR?359
+	.ENDT
+
+T?66::	.TABLE
+	3
+	STR?378
+	STR?379
+	STR?359
+	.ENDT
+
+T?67::	.TABLE
+	3
+	STR?382
+	STR?383
+	STR?359
+	.ENDT
+
+T?68::	.TABLE
+	3
+	STR?391
+	STR?392
+	STR?359
+	.ENDT
+
+T?69::	.TABLE
+	3
+	STR?395
+	STR?396
+	STR?359
+	.ENDT
+
+T?70::	.TABLE
+	3
+	STR?398
+	STR?359
+	STR?359
+	.ENDT
+
+T?71::	.TABLE
+	3
+	STR?400
+	STR?359
+	STR?359
+	.ENDT
+
+	.ENDI
diff --git a/toafreq.xzap b/toafreq.xzap
new file mode 100644
index 0000000..e6e27bf
--- /dev/null
+++ b/toafreq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;1546	773
+	.FSTR FSTR?2,"The "	;804	268
+	.FSTR FSTR?3,"You "	;669	223
+	.FSTR FSTR?4,", "	;533	533
+	.FSTR FSTR?5,"you "	;526	263
+	.FSTR FSTR?6,"and "	;486	243
+	.FSTR FSTR?7,". "	;414	414
+	.FSTR FSTR?8,"to "	;411	411
+	.FSTR FSTR?9,"your "	;390	130
+	.FSTR FSTR?10,"Johnny "	;372	62
+	.FSTR FSTR?11,"It's "	;360	72
+	.FSTR FSTR?12,"that "	;318	106
+	.FSTR FSTR?13,"is "	;287	287
+	.FSTR FSTR?14,"with "	;264	88
+	.FSTR FSTR?15,"don't "	;255	51
+	.FSTR FSTR?16,"of "	;243	243
+	.FSTR FSTR?17,"This "	;224	56
+	.FSTR FSTR?18,"are "	;212	106
+	.FSTR FSTR?19,"have "	;201	67
+	.FSTR FSTR?20,"through "	;186	31
+	.FSTR FSTR?21,"can't "	;185	37
+	.FSTR FSTR?22,"There's "	;184	23
+	.FSTR FSTR?23,"you're "	;174	29
+	.FSTR FSTR?24,"There "	;165	33
+	.FSTR FSTR?25,"for "	;156	78
+	.FSTR FSTR?26,"Weasel "	;156	26
+	.FSTR FSTR?27,"which "	;148	37
+	.FSTR FSTR?28,"in "	;147	147
+	.FSTR FSTR?29,"this "	;144	48
+	.FSTR FSTR?30,"You're "	;140	20
+	.FSTR FSTR?31,"That's "	;140	20
+	.FSTR FSTR?32,"looks "	;136	34
+	.FSTR FSTR?33,"about "	;132	33
+	.FSTR FSTR?34,"from "	;126	42
+	.FSTR FSTR?35,"salesman "	;119	17
+	.FSTR FSTR?36,"I "	;117	117
+	.FSTR FSTR?37,"already "	;114	19
+	.FSTR FSTR?38,"but "	;112	56
+	.FSTR FSTR?39,"here"	;108	54
+	.FSTR FSTR?40,"It "	;108	54
+	.FSTR FSTR?41,"what "	;108	36
+	.FSTR FSTR?42,"find "	;108	36
+	.FSTR FSTR?43,"it "	;107	107
+	.FSTR FSTR?44,"back "	;105	35
+	.FSTR FSTR?45,"doesn't "	;105	15
+	.FSTR FSTR?46,"out "	;100	50
+	.FSTR FSTR?47,"that"	;98	49
+	.FSTR FSTR?48,"McGinty "	;98	14
+	.FSTR FSTR?49,"his "	;96	48
+	.FSTR FSTR?50,"something "	;96	12
+	.FSTR FSTR?51,"on "	;94	94
+	.FSTR FSTR?52,"at "	;94	94
+	.FSTR FSTR?53,"not "	;94	47
+	.FSTR FSTR?54,"says"	;90	45
+	.FSTR FSTR?55,"can "	;88	44
+	.FSTR FSTR?56,"like "	;87	29
+	.FSTR FSTR?57,"see "	;86	43
+	.FSTR FSTR?58,"you"	;85	85
+	.FSTR FSTR?59,"starts "	;85	17
+	.FSTR FSTR?60,"then "	;84	28
+	.FSTR FSTR?61,"would "	;84	21
+	.FSTR FSTR?62,"nothing "	;84	14
+	.FSTR FSTR?63,"anything "	;84	12
+	.FSTR FSTR?64,"compressor "	;81	9
+	.FSTR FSTR?65,"off "	;80	40
+	.FSTR FSTR?66,"Pete "	;80	20
+	.FSTR FSTR?67,"I'm "	;80	20
+	.FSTR FSTR?68,"ladder "	;80	16
+	.FSTR FSTR?69,"isn't "	;80	16
+	.FSTR FSTR?70,"Wharf "	;80	16
+	.FSTR FSTR?71,"He's "	;80	16
+	.FSTR FSTR?72,"Outfitters "	;80	8
+	.FSTR FSTR?73,"door "	;78	26
+	.FSTR FSTR?74,"McGinty"	;78	13
+	.FSTR FSTR?75,"has "	;76	38
+	.FSTR FSTR?76,"He "	;76	38
+	.FSTR FSTR?77,"water "	;76	19
+	.FSTR FSTR?78,"Your "	;76	19
+	.FSTR FSTR?79,"than "	;72	24
+	.FSTR FSTR?80,"Road"	;72	24
+	.FSTR FSTR?81,"hands "	;72	18
+	.FSTR FSTR?82,"passbook"	;72	12
+	.FSTR FSTR?83,"forward "	;72	12
+	.FSTR FSTR?84,"Unfortunately"	;72	6
+	.FSTR FSTR?85,"teller "	;70	14
+	.FSTR FSTR?86,"better "	;70	14
+	.FSTR FSTR?87,"around "	;70	14
+	.FSTR FSTR?88,"I'll "	;70	14
+	.FSTR FSTR?89,"into "	;69	23
+	.FSTR FSTR?90,"down "	;69	23
+	.FSTR FSTR?91,"turns "	;68	17
+	.FSTR FSTR?92,"think "	;68	17
+	.FSTR FSTR?93,"leads "	;68	17
+	.FSTR FSTR?94,"That "	;68	17
+	.FSTR FSTR?95,"get "	;66	33
+	.FSTR FSTR?96,"more "	;66	22
+
+
+;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/toastr.zap b/toastr.zap
new file mode 100644
index 0000000..173c34c
--- /dev/null
+++ b/toastr.zap
@@ -0,0 +1,471 @@
+
+
+; STRINGS ARE DEFINED HERE
+
+	.GSTR STR?1,"number"
+	.GSTR STR?2,"that much"
+	.GSTR STR?3,"bunch of clothes"
+	.GSTR STR?4,"Air being what it is, you can't see it."
+	.GSTR STR?5,"hole"
+	.GSTR STR?6,"make anything out on the other side."
+	.GSTR STR?7,"door, which has lettering stencilled on it,"
+	.GSTR STR?8,"get there from here."
+	.GSTR STR?9,"do it alone."
+	.GSTR STR?10,"do"
+	.GSTR STR?11,"from here"
+	.GSTR STR?12,"make your way through the growth."
+	.GSTR STR?13,"all week"
+	.GSTR STR?14,"get through the rocks."
+	.GSTR STR?15,"You keep your money in it."
+	.GSTR STR?16,"there"
+	.GSTR STR?17,"s"
+	.GSTR STR?18,"It's faded to a drab off-white."
+	.GSTR STR?19,"It's drab and worn."
+	.GSTR STR?20,"counter"
+	.GSTR STR?21,"it"
+	.GSTR STR?22,"You pass out and never find that you've been mugged, rolled and killed."
+	.GSTR STR?23,"quite sure which direction is which..."
+	.GSTR STR?24,"room"
+	.GSTR STR?25,"open"
+	.GSTR STR?26,"closed"
+	.GSTR STR?27,"unlocked"
+	.GSTR STR?28,"unlock it with that!"
+	.GSTR STR?29,"The currents pull you in several conflicting directions, and you end up much the worse for it."
+	.GSTR STR?30,"make your way to the shoreline."
+	.GSTR STR?31,"It's the top of a ladder that leads down."
+	.GSTR STR?32,"It's the bottom of a ladder that leads up."
+	.GSTR STR?33,"The sturdy metal railing encircles the deck."
+	.GSTR STR?34,"p.m."
+	.GSTR STR?35,"a.m."
+	.GSTR STR?36,"table"
+	.GSTR STR?37,"lock"
+	.GSTR STR?38,"locked"
+	.GSTR STR?39,"wheel"
+	.GSTR STR?40,"bolts"
+	.GSTR STR?41,"see any"
+	.GSTR STR?42,"the rope"
+	.GSTR STR?43,"reach "
+	.GSTR STR?44,"go that way."
+	.GSTR STR?45,"do that."
+	.GSTR STR?46,"afford it."
+	.GSTR STR?47,"fit through the hole carrying the tank."
+	.GSTR STR?48,"to "
+	.GSTR STR?49,"in that"
+	.GSTR STR?50,"amount of money"
+	.GSTR STR?51,"a verb"
+	.GSTR STR?52,"enough nouns"
+	.GSTR STR?53,"afford to."
+	.GSTR STR?54,"use multiple "
+	.GSTR STR?55,"the right key"
+	.GSTR STR?56,"on"
+	.GSTR STR?57,"in"
+	.GSTR STR?58,"see "
+	.GSTR STR?59,"The water is too dark for you to see anything. After a moment, however, you feel something start to munch on you. Something large."
+	.GSTR STR?60,"  "
+	.GSTR STR?61,"    "
+	.GSTR STR?62,"      "
+	.GSTR STR?63,"        "
+	.GSTR STR?64,"          "
+	.GSTR STR?65,"going anywhere."
+	.GSTR STR?66,"have it."
+	.GSTR STR?67,"that"
+	.GSTR STR?68,"open the "
+	.GSTR STR?69,"give "
+	.GSTR STR?70,"carrying "
+	.GSTR STR?71,"talking to anyone!"
+	.GSTR STR?72,"close that."
+	.GSTR STR?73," a transcript of interaction with CUTTHROATS.
+CUTTHROATS is a trademark of Infocom, Inc.
+Copyright (c) 1984, Infocom, Inc. All rights reserved.
+"
+	.GSTR STR?74,"move "
+	.GSTR STR?75,"turn that on."
+	.GSTR STR?76,"turn that off."
+	.GSTR STR?77,"in that!"
+	.GSTR STR?78,"get at your money."
+	.GSTR STR?79,"had to buy"
+	.GSTR STR?80,"need to rent"
+	.GSTR STR?81,"bought it!"
+	.GSTR STR?82,"rent that."
+	.GSTR STR?83,"get "
+	.GSTR STR?84,"You suddenly bump into something in the darkness. You find that this something has long, sharp teeth that feel uncomfortable when they enter your body."
+	.GSTR STR?85,"Moses!"
+	.GSTR STR?86,"pour that."
+	.GSTR STR?87,"holding the drill."
+	.GSTR STR?88,"drill that!"
+	.GSTR STR?89,"drink that."
+	.GSTR STR?90,"This was not a very safe place to try jumping."
+	.GSTR STR?91,"Hello."
+	.GSTR STR?92,"Good day."
+	.GSTR STR?93,"Nice weather we've been having lately."
+	.GSTR STR?94,"Goodbye."
+	.GSTR STR?95,"Very good. Now you can go to the second grade."
+	.GSTR STR?96,"I hope you enjoyed that as much as I did."
+	.GSTR STR?97,"Are you enjoying yourself?"
+	.GSTR STR?98,"Wheeeeeeeeee!!!!!"
+	.GSTR STR?99,"Do you expect me to applaud?"
+	.GSTR STR?100,"but "
+	.GSTR STR?101,"behind "
+	.GSTR STR?102,"on "
+	.GSTR STR?103,"special to be "
+	.GSTR STR?104,"on the "
+	.GSTR STR?105,"turn things to a specific direction."
+	.GSTR STR?106,"inflate"
+	.GSTR STR?107,"pick that."
+	.GSTR STR?108,"cut"
+	.GSTR STR?109,"kill"
+	.GSTR STR?110,"here to "
+	.GSTR STR?111,"The squid, angered and wounded, starts wrapping tentacles around you. As you attempt another foray, you find that the squid's strength is too much for you."
+	.GSTR STR?112,"attack"
+	.GSTR STR?113,"Benny Goodman"
+	.GSTR STR?114,"Kicking"
+	.GSTR STR?115,"Waving"
+	.GSTR STR?116,"Playing in this way with"
+	.GSTR STR?117,"Fiddling with"
+	.GSTR STR?118,"Pushing"
+	.GSTR STR?119,"on the floor"
+	.GSTR STR?120,"push things to that."
+	.GSTR STR?121,"Trying to destroy"
+	.GSTR STR?122," doesn't seem to work."
+	.GSTR STR?123," isn't notably helpful."
+	.GSTR STR?124," doesn't work."
+	.GSTR STR?125," has no effect."
+	.GSTR STR?126,"latitude"
+	.GSTR STR?127,"longitude"
+	.GSTR STR?128,"told me that."""
+	.GSTR STR?129,"empty that!"
+	.GSTR STR?130,"empty it when it's closed!"
+	.GSTR STR?131,"empty"
+	.GSTR STR?132,"in the "
+	.GSTR STR?133,"take it; thus, you can't shake it!"
+	.GSTR STR?134,"dig it, man."
+	.GSTR STR?135,"smell anything beyond your mask."
+	.GSTR STR?136,"You find that diving here is a bad idea without the proper equipment."
+	.GSTR STR?137,"You find that the lack of oxygen you quickly encounter is fatally frustrating."
+	.GSTR STR?138,"You find the water here too shallow for diving."
+	.GSTR STR?139,"tie it to yourself."
+	.GSTR STR?140,"climb onto "
+	.GSTR STR?141,"climb "
+	.GSTR STR?142," that you kill yourself, just as he would have done!"
+	.GSTR STR?143,"cross that!"
+	.GSTR STR?144,"talk to "
+	.GSTR STR?145,"spin that!"
+	.GSTR STR?146,"Not a chance."
+	.GSTR STR?147,"No way. At least not in this reality."
+	.GSTR STR?148,"Did you say that just to impress me?"
+	.GSTR STR?149,"An interesting concept, but beyond this reality."
+	.GSTR STR?150,"I'll give you the benefit of the doubt and just ignore that."
+	.GSTR STR?151,"A fishy idea..."
+	.GSTR STR?152,"What a concept!"
+	.GSTR STR?153,"Not a prayer."
+	.GSTR STR?154,"wear "
+	.GSTR STR?155,"wearing that!"
+	.GSTR STR?156,"make a withdrawal here!"
+	.GSTR STR?157,"make a deposit here!"
+	.GSTR STR?158,"throw anything off that!"
+	.GSTR STR?159," knocks you out. About all you feel after that is a cold knife drawing warm blood from your throat."
+	.GSTR STR?160,"of interest there"
+	.GSTR STR?161,"pick it up"
+	.GSTR STR?162,"to read there"
+	.GSTR STR?163,"into that"
+	.GSTR STR?164,"tell without your watch."
+	.GSTR STR?165,"You fall asleep and run out of air."
+	.GSTR STR?166,"tired."
+	.GSTR STR?167,"positive"
+	.GSTR STR?168,"ambivalent"
+	.GSTR STR?169,"negative"
+	.GSTR STR?170,"north"
+	.GSTR STR?171,"south"
+	.GSTR STR?172,"east"
+	.GSTR STR?173,"west"
+	.GSTR STR?174,"northwest"
+	.GSTR STR?175,"northeast"
+	.GSTR STR?176,"southwest"
+	.GSTR STR?177,"southeast"
+	.GSTR STR?178,"downstairs"
+	.GSTR STR?179,"upstairs"
+	.GSTR STR?180,"out"
+	.GSTR STR?181,"forward"
+	.GSTR STR?182,"aft"
+	.GSTR STR?183,"starboard"
+	.GSTR STR?184,"port"
+	.GSTR STR?185,"below"
+	.GSTR STR?186,"above"
+	.GSTR STR?187,", pushing his cart"
+	.GSTR STR?188,"The road ends at the lighthouse to the north, and heads back to the southeast. You can see and hear the ocean pound the shoreline."
+	.GSTR STR?189,"The lighthouse door is locked."
+	.GSTR STR?190,"lighthouse door"
+	.GSTR STR?191,"The road branches to the northeast and northwest with the lighthouse off to the northwest. To the south is an impenetrable swamp."
+	.GSTR STR?192,"There's no way to get footing on the swamp."
+	.GSTR STR?193,"swamp"
+	.GSTR STR?194,"A winding road starts up here to the southwest. You can see the top of the lighthouse off to the northwest. The Wharf Road lies to the northeast."
+	.GSTR STR?195,"This is the end of the Wharf Road, an east/west, two-lane road that's the island's main street. Off to the east, small businesses line the south side of the street. A winding road starts to the southwest, heading toward the lighthouse. The Red Boar Inn is to the south."
+	.GSTR STR?196,"You are on the Wharf Road, with the McGinty Salvage office to the south. The ocean lies to the north, its brine smell strong and refreshing."
+	.GSTR STR?197,"to from inside"
+	.GSTR STR?198,"You are on the Wharf Road where the wharf starts up to the north. The former site of Outfitters International's warehouse fronts the south side of the road."
+	.GSTR STR?199,"The east/west Wharf Road continues, with Outfitters International, a store which supplies ocean-going vessels, to the south."
+	.GSTR STR?200,"Outfitters is closed."
+	.GSTR STR?201,"You're on the east end of Wharf Road. The Ocean Road starts here and parallels the island's east edge, heading to the southeast. The Shanty is to the south."
+	.GSTR STR?202,"You are at the north end of the Ocean Road, a narrow north/south road on the east edge of the island. The Wharf Road starts to the northwest, and a back alley starts off to the southwest."
+	.GSTR STR?203,"The rocks are too sharp and dangerous."
+	.GSTR STR?204,"You are halfway along the Ocean Road, with the start of an alley off to the northwest. An empty field lies to your west, and the dangerous ocean shore lies off to your east."
+	.GSTR STR?205,"You can't get through the weeds."
+	.GSTR STR?206,"This is the south end of the Ocean Road. To the southeast is a small path leading up to about 100 feet above sea level. The Ocean Road heads north, and the Shore Road starts to the southwest."
+	.GSTR STR?207,"You are at the west end of the east/west Shore Road, with the ferry landing to the west. To the north is an impenetrable field, while the south is bordered by the ocean. You can see the mainland in the distance."
+	.GSTR STR?208,"The bank is closed."
+	.GSTR STR?209,"You're at the west end of an east/west alley. The back entrance to the Red Boar Inn is to the north, and an overgrown field is to the south."
+	.GSTR STR?210,"The door is locked."
+	.GSTR STR?211,"back door"
+	.GSTR STR?212,"You are in a narrow alley. To the north is the back door of McGinty Salvage, as well as a small window. An overgrown field lies to the south."
+	.GSTR STR?213,"""No, you don't!"" cries McGinty as he pulls out a gun and shoots you."
+	.GSTR STR?214,"open it from this side."
+	.GSTR STR?215,"window"
+	.GSTR STR?216,"door"
+	.GSTR STR?217,"You are in an east/west alley. To the north is a vacant lot, and an overgrown field lies to the south."
+	.GSTR STR?218,"You are in an alley behind Outfitters International. An abandoned field lies to the south."
+	.GSTR STR?219,"You're at the east end of an east/west alley. The back door of The Shanty is to the north, and an overgrown field is to the south. Narrow paths to the northeast and southeast lead to the Ocean Road."
+	.GSTR STR?220,"This is the lobby of the Red Boar Inn, a place with the charm of a two-dollar flophouse. The Wharf Road is outside, to the north, and a stairway leads up to the rooms to the south."
+	.GSTR STR?221,"desk clerk"
+	.GSTR STR?222,"A desk clerk sits behind the counter."
+	.GSTR STR?223,"mail"
+	.GSTR STR?224,"message"
+	.GSTR STR?225,"You are at the top of the stairs in the Red Boar. Your room is to the south, and other rooms line the hall. The lighting in the hallway is dim and drab like the wallpaper and carpeting."
+	.GSTR STR?226,"The people in those rooms aren't interesting."
+	.GSTR STR?227,"You're in your room in the Red Boar Inn. It's sparsely furnished, but comfortable enough. To the north is the door, and there's a closet without a door to the west."
+	.GSTR STR?228,"The Weasel is rummaging through your stuff. He notices you, and before you have a chance to react, he smiles then cuts your throat."
+	.GSTR STR?229,"A comfortable bed sits along the wall."
+	.GSTR STR?230,"In a corner of the room is a lopsided wooden dresser."
+	.GSTR STR?231,"April 23"
+	.GSTR STR?232,"It's your room key."
+	.GSTR STR?233,"On the floor is a note that must have been slipped under the door while you slept."
+	.GSTR STR?234,"The note is hastily scrawled:
+
+""If you're interested in a big deal, be at The Shanty at 8:30 this morning.
+               -Johnny"""
+	.GSTR STR?235,"This book is included in your Cutthroats package."
+	.GSTR STR?236,"get it over the other equipment you're wearing."
+	.GSTR STR?237,"fit that over the "
+	.GSTR STR?238,"As you remove the mask, you find you can't breathe."
+	.GSTR STR?239,"filled"
+	.GSTR STR?240,"Not a very good idea..."
+	.GSTR STR?241,"As the tank falls away, it pulls the airhose with it, making you regret your lack of gills."
+	.GSTR STR?242,"You are in the McGinty Salvage office, a concern whose main business is salvaging wrecks. The place is a mess, and the floor is littered with chewed-on cigar stubs. To the north lies the Wharf Road. You can't help feeling uncomfortable here."
+	.GSTR STR?243,"desk"
+	.GSTR STR?244,"As McGinty sees someone climbing through the window, he pulls out a gun and fires. His aim is better than your luck."
+	.GSTR STR?245,"chair"
+	.GSTR STR?246,"The business envelope has the McGinty Salvage return address, and ""Weasel's Merchant Seaman's card - collateral for deal"" scribbled in McGinty's hand."
+	.GSTR STR?247,"An envelope with some writing on it sits on the desk."
+	.GSTR STR?248,"You are standing on the former site of the Outfitters International warehouse, which burned down a few months back. To the north is the Wharf Road and an alley is to the south."
+	.GSTR STR?249,"There's a wall in the way."
+	.GSTR STR?250,"This is Outfitters International, a store that specializes in marine supplies. There is a long, high counter separating the supplies and the front area. To the north is the Wharf Road."
+	.GSTR STR?251,"salesman"
+	.GSTR STR?252,"A salesman stands behind the counter."
+	.GSTR STR?253,"afford that."
+	.GSTR STR?254,"merchandise"
+	.GSTR STR?255," items"
+	.GSTR STR?256,"This price list is included in your Cutthroats package."
+	.GSTR STR?257,"""Ajax 9-volt dry cell."""
+	.GSTR STR?258,"""Ajax C cell."""
+	.GSTR STR?259,"The tube has ""Frobizz waterproof putty"" printed on the side."
+	.GSTR STR?260,"tube"
+	.GSTR STR?261,"reverse entropy."
+	.GSTR STR?262,"This heavy, semi-portable air compressor can fill scuba tanks."
+	.GSTR STR?263,"off."
+	.GSTR STR?264,"off"
+	.GSTR STR?265,"touching "
+	.GSTR STR?266,"As the spikes jump toward the magnet, one of them pierces your chest!"
+	.GSTR STR?267," The canister begins to emit noxious fumes. Before you can do anything about it, you lose consciousness."
+	.GSTR STR?268,"These are charts for the Hardscrabble Island area."
+	.GSTR STR?269,"This is The Shanty, a tavern which serves the locals. A wooden bar travels the length of the place, and behind it is a mirror so dirty, it offers no reflection. Round tables occupy the floor. The smell of cooking food permeates the place."
+	.GSTR STR?270,"Johnny looks around and says, ""This is no place to continue. If McGinty finds out about this, we're sunk. We better meet at the lighthouse at 9:30. Glad you're aboard."""
+	.GSTR STR?271,"water"
+	.GSTR STR?272,"bartender"
+	.GSTR STR?273,"A bartender behind the bar polishes glasses with a worn towel."
+	.GSTR STR?274,"A parrot with an eyepatch hobbles up and down the bar."
+	.GSTR STR?275,"It sports an eyepatch and wooden leg and has been here since the bartender bought it from a sailor. It's considered insane by the local patrons."
+	.GSTR STR?276,"but claw prints there"
+	.GSTR STR?277,"""As my Pappy said, 'When you travel the highways of life, you do not always get to stop and look at a roadmap.'"""
+	.GSTR STR?278,"""I must admit that in my wide travels across this ball of wax, I have seen many human specimens, though none quite like you."""
+	.GSTR STR?279,"""After due consideration, I find myself in an embarrassing position. I would gladly accept a hard biscuit today, if you would accept payment Tuesday."""
+	.GSTR STR?280,"""Read any good books lately? I found 'Tropical Birds and their Native Habitats' quite engrossing."""
+	.GSTR STR?281,"""Compared to salted biscuits, I like myself best."""
+	.GSTR STR?282,"""Hello Sailor."""
+	.GSTR STR?283,"furniture"
+	.GSTR STR?284,"it to clean it"
+	.GSTR STR?285,"have a drink."
+	.GSTR STR?286,"stick with grog."
+	.GSTR STR?287,"You are in Mariners' Trust, the Island's bank. In it are a table and a teller's window. You can see the safe beyond, and it looks pretty empty."
+	.GSTR STR?288,"teller"
+	.GSTR STR?289,"A teller sits behind the window."
+	.GSTR STR?290,"withdraw that!"
+	.GSTR STR?291,"September 19"
+	.GSTR STR?292,"deposit more than you have."
+	.GSTR STR?293,"You are at Point Lookout, a small, high cliff that affords a spectacular view of the sea. The cliff bottom is dangerous, so the only safe path is the northwest footpath back to the Ocean Road."
+	.GSTR STR?294,"If you really want to jump, say so, but do so at your own risk."
+	.GSTR STR?295,"Your pleasant leap is interrupted as you find yourself impaled on the jagged rocks."
+	.GSTR STR?296,"your money"
+	.GSTR STR?297,"Johnny looks disappointed. ""We need at least $500 from you. I hate to do this, but you might tell McGinty..."" Suddenly you feel a shove in the back and see the pointy rocks below rush up to meet your descent."
+	.GSTR STR?298,"give him more than you've got."
+	.GSTR STR?299,"cliff"
+	.GSTR STR?300,"The ferry to the mainland arrives here every two hours during the day. People are milling about. The Shore Road starts off to the east."
+	.GSTR STR?301,"It would help if a ship were berthed. If you want to take a dip in the ocean, you'll have to say so."
+	.GSTR STR?302,"The ferry for the mainland bobs up and down, its engines running."
+	.GSTR STR?303,"at the landing."
+	.GSTR STR?304,"a ferry token"
+	.GSTR STR?305,"occupied"
+	.GSTR STR?306,"The starboard side of the Mary Margaret has the wheelhouse to port. The deck is well-worn after many years of use, but still solid. The ocean is off to the other side of the rail."
+	.GSTR STR?307,"You're out to sea now."
+	.GSTR STR?308,"connected"
+	.GSTR STR?309,"connect the airhose to that!"
+	.GSTR STR?310,"Oops! So much for instantly growing gills."
+	.GSTR STR?311,"climb that!"
+	.GSTR STR?312,"connected to the deep-sea diving suit"
+	.GSTR STR?313,"from here."
+	.GSTR STR?314,"large air compressor"
+	.GSTR STR?315,"make out too many details from here."
+	.GSTR STR?316,"it from here"
+	.GSTR STR?317," There are spare parts for the engine and other equipment scattered about."
+	.GSTR STR?318,"The label is worn, so all you can make out is a large ""ACME"" at the top."
+	.GSTR STR?319,"small panel on the side of the machine"
+	.GSTR STR?320,"panel"
+	.GSTR STR?321,"over the wet suit"
+	.GSTR STR?322,"You take the suit off and quickly realize you're not a dolphin. You realize this too late, though."
+	.GSTR STR?323,"hidden under the mattress"
+	.GSTR STR?324,"bunks"
+	.GSTR STR?325,"You are in a small, cramped cabin decorated with a table and a few chairs. To the aft is the captain's cabin, while the galley lies forward. A ladder leading down goes into the engine room."
+	.GSTR STR?326,"You are in the captain's cabin. There is a large and comfortable-looking bunk here. The forward doorway leads to the crew's lounge."
+	.GSTR STR?327,"This large, comfortable-looking bunk is the captain's."
+	.GSTR STR?328,"diesel engine"
+	.GSTR STR?329,"avoid it."
+	.GSTR STR?330,"There's a bulkhead there."
+	.GSTR STR?331,"You are on the port side of the Night Wind. The wheelhouse is to starboard. The teak deck is very well-kept. The ocean lies off to port."
+	.GSTR STR?332,"in the drill"
+	.GSTR STR?333,"hole you drilled"
+	.GSTR STR?334,"second hole you drilled"
+	.GSTR STR?335,"first hole you drilled"
+	.GSTR STR?336,"You are in the crew's lounge, a cramped cabin with little more than a table and a few chairs. To aft is the captain's cabin, while the galley lies forward. A ladder leads into the engine room."
+	.GSTR STR?337,"You are in the captain's cabin. A large and comfortable-looking bunk is one of the many comforts in the cabin. The forward doorway leads to the crew's lounge."
+	.GSTR STR?338,"the line. Worry about it when you've found the treasure"
+	.GSTR STR?339,"do that underwater."
+	.GSTR STR?340,"You suddenly find yourself inhaling water! The airhose trailing behind must have torn, and there's no time to do anything about it!"
+	.GSTR STR?341,"As you descend further, Merv Griffin swims by, offering you Pittsburgh Penguin tickets. You realize too late that this is a hallucination, since Merv doesn't even like the Penguins. At this depth, narcosis takes over, and all that's left is to say bye to Merv..."
+	.GSTR STR?342,"a shipwreck"
+	.GSTR STR?343,"the ocean floor"
+	.GSTR STR?344,"The large, ugly, toothy shark is headed toward you!"
+	.GSTR STR?345,"You are on the ocean floor. Sediment and seaweed wave slowly with the current."
+	.GSTR STR?346,"You are at the bow of an old, rotting wreck where a ladder leads down through a large square hole in the deck. When the ship sank, the top of one of the masts broke off and fell into the hole. What's left of the deck continues aft."
+	.GSTR STR?347,"You are at the bow of a steel ship that has been here for quite a while. The deck continues aft, and there is a passage leading down at your feet."
+	.GSTR STR?348,"This is the bow of a very empty-looking wreck. The deck continues aft."
+	.GSTR STR?349,"You are now aft of midships on the topmost deck. The deck continues fore and aft."
+	.GSTR STR?350,"You are on the narrowing aft deck of the ship, which continues forward. A hole at the base of one mast leads down."
+	.GSTR STR?351,"You are on the aft deck of the ship. Passengers could have gathered here to sun themselves and sip drinks. Those times are long gone. The only way to proceed is forward."
+	.GSTR STR?352,"You are at the stern of this wreck. The deck continues forward."
+	.GSTR STR?353,"Your airhose catches and tears on the way down."
+	.GSTR STR?354,"the mast"
+	.GSTR STR?355,"upper hole"
+	.GSTR STR?356,"lower hole"
+	.GSTR STR?357,"This cabin was apparently used for storage, although what's left can only be described as debris. There is an exit abaft, a doorway outlined with barnacle-encrusted timbers. There is a hole above your head through which a broken-off mast descends."
+	.GSTR STR?358,"This cabin seems to have been sleeping quarters. It must have been used by the crew, as it is spartanly furnished. The only ways out of this room are up and down."
+	.GSTR STR?359,"bug"
+	.GSTR STR?360,"cut it with that."
+	.GSTR STR?361,"the top knot"
+	.GSTR STR?362,"This area is full of barnacle-encrusted iron bars, probably pikes used by the sailors for fending off boarding parties. There is a plaque on one wall. Exits are fore and aft."
+	.GSTR STR?363,"Water rushes into the room, making you realize the value of your equipment."
+	.GSTR STR?364,"This heavy iron bar was probably used as a pike."
+	.GSTR STR?365,"plaque"
+	.GSTR STR?366,"fallen partition"
+	.GSTR STR?367,"As you return to a watery environment, you realize the value of leaving your equipment on."
+	.GSTR STR?368,"This was a galley or a pantry, though only the shape and size of the cabin suggest that. There are exits fore and aft."
+	.GSTR STR?369,"This former dining room has some tables upturned and scattered about, a door forward, a hole through the floor, and a narrow opening abaft."
+	.GSTR STR?370,"Amidst a stack of rotted wood is a cask that is still in one piece."
+	.GSTR STR?371,"climb the rope with that load."
+	.GSTR STR?372,"stack of rotted wood"
+	.GSTR STR?373,"bunch of overturned tables"
+	.GSTR STR?374,"As you begin to move, you suddenly find yourself breathing water! Your airhose tore on some of the sharper debris."
+	.GSTR STR?375,"The settling of debris has left a very narrow passage through this cabin. You can go forward or aft."
+	.GSTR STR?376," wedged under the bunks."
+	.GSTR STR?377,"debris"
+	.GSTR STR?378,"You are in a bunk-lined cabin. The forward bulkhead has an open doorway in it, and a ladder leads down through the deck. The rotting interior of the hull lies aft."
+	.GSTR STR?379,"This might have been the purser's cabin. It can be exited forward through a narrow opening."
+	.GSTR STR?380,"Except for two broken rungs at the bottom, this ladder looks as if it's in good shape."
+	.GSTR STR?381,"the combination"
+	.GSTR STR?382,"You can go aft from this cabin, a small and claustrophobic area little more than a widened passageway, or through a jagged hole in the port bulkhead."
+	.GSTR STR?383,"This cabin is the third-class passengers' quarters. There couldn't have been many frills here since the remains are spartan. The cabin can be exited aft and up."
+	.GSTR STR?384,"get off the chest"
+	.GSTR STR?385,"As the chest starts to rise, you fall off it rather awkwardly and disconnect your airhose."
+	.GSTR STR?386,"This jagged hole is the result of centuries of wear on the hull."
+	.GSTR STR?387," to take with you"
+	.GSTR STR?388,"As you move away from the hole, your airhose gets caught on the edge of the hole in the wreck! As it tears, you find that breathing water is beyond your talents."
+	.GSTR STR?389,", dragging the chest up with it."
+	.GSTR STR?390,"."
+	.GSTR STR?391,"This room, which may have been a lounge, can be exited fore or aft."
+	.GSTR STR?392,"This was once the supplies locker, with exits forward and up, and a door with a sign on it in the aft bulkhead."
+	.GSTR STR?393,"barnacle"
+	.GSTR STR?394,"Although this sword is old and worn, it is still moderately sharp."
+	.GSTR STR?395,"You're in one of the large holds of the ship, impressive in size. There are rooms fore and aft, and a hole in the port bulkhead."
+	.GSTR STR?396,"This had to have been a mine locker. There is a door forward and a passage above your head."
+	.GSTR STR?397,"BOOOOOOOOOOMMMMMMMMMM!"
+	.GSTR STR?398,"This is another cabin used to house the ship's crew. There are exits forward and aft."
+	.GSTR STR?399,"There is a giant squid sleeping here."
+	.GSTR STR?400,"This cabin has suffered the ravages of the sea. Above your head at one end of the cabin a ladder leads up. The bottom two rungs of the ladder are broken, but the rest of it seems to be pretty sturdy. A doorway, outlined by rotting timbers, leads forward."
+	.GSTR STR?401,"high enough to get past the two broken rungs"
+	.GSTR STR?402,"He is wiry, hyper, and devoid of ethics. A fat cigar seems to be his only companion, since he's the type of man who would sell his own mother if given the opportunity."
+	.GSTR STR?403," He"
+	.GSTR STR?404,"The Weasel turns and yells, ""Traitor!"" Next thing you know, you've been stabbed."
+	.GSTR STR?405,"""Thanks for the info, pal, but I better make sure you don't use it."" He pulls out his gun and shoots."
+	.GSTR STR?406,"McGinty walks in the front door, spots something in the shadows, pulls out a gun, and fires. Unfortunately, you are what he noticed."
+	.GSTR STR?407,"A moment later, McGinty sticks his head out, asks why you were in his place, and shoots you."
+	.GSTR STR?408,"McGinty"
+	.GSTR STR?409,"A Supremo it's not."
+	.GSTR STR?410,"lit"
+	.GSTR STR?411,"Red got his name from flame-red hair which sprouts from his head and face, and peeks out from under his flannel shirt. He takes no guff, but he is fair and has a sense of justice."
+	.GSTR STR?412,"grins"
+	.GSTR STR?413,"showed me this"
+	.GSTR STR?414,"""Tie the line to the treasure when you've got it, then pull on it and we'll pull the treasure up."""
+	.GSTR STR?415,"Pete wears an eyepatch and got his name on a far-east voyage as the cook. The food ran out, and he did what he could to supply the crew with fresh meat. Needless to say, he was left at the nearest port."
+	.GSTR STR?416,"The Weasel is a small, greasy man with shifty eyes. He loves his sharp little knife more than life itself, and would sell out anybody for a price. Even himself."
+	.GSTR STR?417,"The Weasel, quite panic-stricken, doesn't stop to thank you before he pulls a small knife from his ankle and kills you."
+	.GSTR STR?418,"The Weasel glares at you and says, ""I don't take this from no one!"" He pulls out his knife, touches its too-sharp point with a finger, then introduces it to your chest."
+	.GSTR STR?419,"his card"
+	.GSTR STR?420,"the envelope"
+	.GSTR STR?421,"You can't help notice that your dresser has been opened and the contents messed up."
+	.GSTR STR?422,"""That's one of McGinty's envelopes! Traitor!"" Before you can respond, the Weasel's knife has violated the sanctity of your body."
+	.GSTR STR?423,"The card says:
+   ""Frank Webster
+   Seaman First Class
+   No. 2626868"""
+	.GSTR STR?424,"set to "
+	.GSTR STR?425,"A desk clerk is sitting behind the counter."
+	.GSTR STR?426,"reach behind the "
+	.GSTR STR?427,"bought it."""
+	.GSTR STR?428,"glass of water"
+	.GSTR STR?429,"talk to someone who's not here."
+	.GSTR STR?430,"boards"
+	.GSTR STR?431,"disembarks"
+	.GSTR STR?432,"It is dated 1680 and stamped with a portrait of King Peter II of Portugal."
+	.GSTR STR?433,"It bears the Hollywood Cruise Lines markings."
+	.GSTR STR?434,"Pete spots McGinty, who is near enough to overhear! While Johnny chases McGinty, Pete accuses you of bringing McGinty along. Before you respond, the Weasel plunges his knife into your heart."
+	.GSTR STR?435,"Johnny glares at McGinty. ""Trying to cash in on my work again, huh? You probably killed Hevlin, too!"" And with that, he pushes McGinty off the cliff.
+
+""I can't leave witnesses,"" he mumbles. Before you can react, you're on your way down to join what's left of McGinty."
+	.GSTR STR?436,"Johnny sees McGinty on the road. ""You brought McGinty, you traitor! You probably killed Hevlin, too!"" A moment later, you're falling down to the rocks."
+	.GSTR STR?437,"Johnny stares at you in disgust. ""A drunk diving for us? You'll probably tell McGinty, too. I'll make sure you don't."" He pushes you off the cliff. Although you feel no pain, your landing is fatal."
+	.GSTR STR?438,"Johnny looks disgusted. ""No money? You probably told McGinty already. Traitor!"" He pushes you off the cliff, and you scream as the pointy rocks rush up to meet you."
+	.GSTR STR?439,"Johnny looks disgusted. ""I can't wait all day..."" You feel a shove and then find yourself on your way down to the rocks below."
+	.GSTR STR?440,"shakes his head"
+	.GSTR STR?441,"hands something to McGinty"
+	.GSTR STR?442,"""You brought McGinty!"" Next thing you know, your throat's been slit."
+	.GSTR STR?443,"""What kind of joke is this, giving me the coordinates of the island?"""
+	.GSTR STR?444,"sits down for his watch"
+	.GSTR STR?445,"You are awakened by what feels like your ship running aground. You are put back to a permanent sleep by the Weasel's knife."
+	.GSTR STR?446,"Your boat is lost in a sudden squall while you sleep."
+	.GSTR STR?447,"find something to drink soon!"
+	.GSTR STR?448,"The giant squid stirs and sees what disturbed it. When the huge eyes spot you, it moves toward you and hugs you with its tentacles. You squirm in an attempt to get away, but more arms surround you and one disconnects your airhose."
+	.GSTR STR?449," swims up to you and starts nibbling."
+	.GSTR STR?450,"The row of fallen bunks pinches your airhose. A few moments later, it is impossible to breathe."
+	.GSTR STR?451,"You find yourself gasping for air, but there's none to breathe!"
+	.GSTR STR?452,"You've used all your air."
+	.GSTR STR?453,"There's not enough air to breathe!"
+	.GSTR STR?454,"You suddenly find Red's hands around your throat as he makes a comment about hating cowards and Hevlin being wrong."
+
+	.ENDI
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..e52f750
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,3557 @@
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSE,TRUE-VALUE
+	SET	'SUPER-BRIEF,FALSE-VALUE
+	PRINTI	"Maximum verbosity."
+	CRLF	
+	CRLF	
+	CALL	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSE,FALSE-VALUE
+	SET	'SUPER-BRIEF,FALSE-VALUE
+	PRINTR	"Brief descriptions."
+
+
+	.FUNCT	V-SUPER-BRIEF
+	SET	'SUPER-BRIEF,TRUE-VALUE
+	PRINTR	"Super-brief descriptions."
+
+
+	.FUNCT	V-LOOK
+	CALL	DESCRIBE-ROOM,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	DESCRIBE-OBJECTS,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-FIRST-LOOK
+	CALL	DESCRIBE-ROOM
+	ZERO?	STACK /FALSE
+	ZERO?	SUPER-BRIEF \FALSE
+	CALL	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	PRE-EXAMINE
+	ZERO?	LIT \FALSE
+	FSET?	PRSO,READBIT \FALSE
+	CALL	PERFORM,V?READ,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-EXAMINE
+	GETP	PRSO,P?TEXT
+	ZERO?	STACK /?ELS5
+	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	FSET?	PRSO,CONTBIT /?THN10
+	FSET?	PRSO,DOORBIT \?ELS9
+?THN10:	CALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?ELS9:	PRINTI	"I see nothing special about "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	DESCRIBE-ROOM,LOOK?=0,V?,STR,AV=0
+	ZERO?	LOOK? /?ORP4
+	PUSH	LOOK?
+	JUMP	?THN1
+?ORP4:	PUSH	VERBOSE
+?THN1:	POP	'V?
+	ZERO?	LIT \?CND5
+	CALL	TELL-TOO-DARK
+	RETURN	FALSE-VALUE
+?CND5:	FSET?	HERE,TOUCHBIT /?CND8
+	FSET	HERE,TOUCHBIT
+	SET	'V?,TRUE-VALUE
+?CND8:	IN?	HERE,ROOMS \?CND11
+	CALL	DPRINT,HERE
+	LOC	WINNER >AV
+	FSET?	AV,VEHBIT \?CND16
+	PRINTI	", "
+	CALL	VEHPREP,AV
+	PRINT	STACK
+	PRINTI	" the "
+	CALL	DPRINT,AV
+?CND16:	CRLF	
+?CND11:	ZERO?	LOOK? \?THN24
+	ZERO?	SUPER-BRIEF \?CND21
+?THN24:	ZERO?	V? /?ELS28
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK \TRUE
+?ELS28:	ZERO?	V? /?CND26
+	GETP	HERE,P?LDESC >STR
+	ZERO?	STR /?CND26
+	PRINT	STR
+	CRLF	
+?CND26:	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+	ZERO?	AV /?CND21
+	EQUAL?	HERE,AV /?CND21
+	FSET?	AV,VEHBIT \?CND21
+	GETP	AV,P?ACTION
+	CALL	STACK,M-LOOK
+?CND21:	GETP	HERE,P?CORRIDOR
+	ZERO?	STACK /TRUE
+	CALL	CORRIDOR-LOOK
+	RTRUE	
+
+
+	.FUNCT	VEHPREP,VEH
+	FSET?	VEH,SURFACEBIT \?ELS5
+	RETURN	STR?56
+?ELS5:	RETURN	STR?57
+
+
+	.FUNCT	DESCRIBE-OBJECTS,V?=0
+	ZERO?	LIT /?ELS5
+	FIRST?	HERE \FALSE
+	ZERO?	V? /?ORP15
+	PUSH	V?
+	JUMP	?THN12
+?ORP15:	PUSH	VERBOSE
+?THN12:	POP	'V?
+	CALL	PRINT-CONT,HERE,V?,-1
+	RSTACK	
+?ELS5:	PRINTR	"I can't see anything in the dark."
+
+
+	.FUNCT	DESCRIBE-OBJECT,OBJ,V?,LEVEL,STR=0,AV
+	SET	'DESC-OBJECT,OBJ
+	ZERO?	LEVEL \?ELS3
+	GETP	OBJ,P?DESCFCN
+	CALL	STACK,M-OBJDESC
+	ZERO?	STACK \TRUE
+?ELS3:	ZERO?	LEVEL \?ELS7
+	FSET?	OBJ,TOUCHBIT /?ELS13
+	GETP	OBJ,P?FDESC >STR
+	ZERO?	STR \?THN10
+?ELS13:	GETP	OBJ,P?LDESC >STR
+	ZERO?	STR /?ELS7
+?THN10:	PRINT	STR
+	JUMP	?CND1
+?ELS7:	ZERO?	LEVEL \?ELS17
+	PRINTI	"There is "
+	CALL	APRINT,OBJ
+	PRINTI	" here."
+	JUMP	?CND1
+?ELS17:	GET	INDENTS,LEVEL
+	PRINT	STACK
+	PRINTI	"A"
+	CALL	VOWEL?,OBJ
+	CALL	DPRINT,OBJ
+	FSET?	OBJ,WORNBIT \?CND1
+	IN?	OBJ,WINNER \?CND1
+	PRINTI	" (being worn)"
+?CND1:	CRLF	
+	CALL	SEE-INSIDE?,OBJ
+	ZERO?	STACK /FALSE
+	FIRST?	OBJ \FALSE
+	CALL	PRINT-CONT,OBJ,V?,LEVEL
+	RSTACK	
+
+
+	.FUNCT	PRINT-CONT,OBJ,V?=0,LEVEL=0,Y,1ST?,AV,STR,PV?=0,INV?=0,FLG=0
+	FIRST?	OBJ >Y \TRUE
+	LOC	WINNER >AV
+	ZERO?	AV /?ELS6
+	FSET?	AV,VEHBIT \?ELS6
+	JUMP	?CND4
+?ELS6:	SET	'AV,FALSE-VALUE
+?CND4:	SET	'1ST?,TRUE-VALUE
+	LOC	OBJ
+	EQUAL?	WINNER,OBJ,STACK \?ELS13
+	SET	'INV?,TRUE-VALUE
+	JUMP	?CND11
+?ELS13:	
+?PRG16:	ZERO?	Y \?ELS20
+	JUMP	?CND11
+?ELS20:	EQUAL?	Y,AV \?ELS22
+	SET	'PV?,TRUE-VALUE
+	JUMP	?CND18
+?ELS22:	EQUAL?	Y,WINNER \?ELS24
+	JUMP	?CND18
+?ELS24:	FSET?	Y,INVISIBLE /?CND18
+	FSET?	Y,TOUCHBIT /?CND18
+	GETP	Y,P?FDESC >STR
+	ZERO?	STR /?CND18
+	GETP	Y,P?DESCFCN
+	ZERO?	STACK \?CND18
+	FSET?	Y,NDESCBIT /?CND29
+	PRINT	STR
+	CRLF	
+	SET	'FLG,TRUE-VALUE
+?CND29:	CALL	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND18
+	LOC	Y
+	GETP	STACK,P?DESCFCN
+	ZERO?	STACK \?CND18
+	FIRST?	Y \?CND18
+	CALL	PRINT-CONT,Y,V?,0
+?CND18:	NEXT?	Y >Y /?KLU74
+?KLU74:	JUMP	?PRG16
+?CND11:	FIRST?	OBJ >Y /?KLU75
+?KLU75:	
+?PRG39:	ZERO?	Y \?ELS43
+	ZERO?	PV? /?REP40
+	ZERO?	AV /?REP40
+	FIRST?	AV \?REP40
+	CALL	PRINT-CONT,AV,V?,LEVEL
+	RETURN	FLG
+?ELS43:	EQUAL?	Y,AV,ADVENTURER \?ELS50
+	JUMP	?CND41
+?ELS50:	FSET?	Y,INVISIBLE /?CND41
+	ZERO?	INV? \?THN55
+	FSET?	Y,TOUCHBIT /?THN55
+	GETP	Y,P?DESCFCN
+	ZERO?	STACK \?THN55
+	GETP	Y,P?FDESC
+	ZERO?	STACK \?CND41
+?THN55:	FSET?	Y,NDESCBIT /?ELS59
+	ZERO?	1ST? /?CND60
+	CALL	FIRSTER,OBJ,LEVEL
+	ZERO?	STACK /?CND64
+	SET	'FLG,TRUE-VALUE
+	LESS?	LEVEL,0 \?CND64
+	SET	'LEVEL,0
+?CND64:	INC	'LEVEL
+	SET	'1ST?,FALSE-VALUE
+?CND60:	CALL	DESCRIBE-OBJECT,Y,V?,LEVEL
+	JUMP	?CND41
+?ELS59:	GETP	Y,P?DESCFCN
+	ZERO?	STACK \?CND41
+	FIRST?	Y \?CND41
+	CALL	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND41
+	CALL	PRINT-CONT,Y,V?,LEVEL
+?CND41:	NEXT?	Y >Y /?KLU76
+?KLU76:	JUMP	?PRG39
+?REP40:	RETURN	FLG
+
+
+	.FUNCT	FIRSTER,OBJ,LEVEL,F
+	EQUAL?	OBJ,WINNER \?ELS5
+	PRINTR	"You are carrying:"
+?ELS5:	IN?	OBJ,ROOMS /FALSE
+	GRTR?	LEVEL,0 \?CND10
+	GET	INDENTS,LEVEL
+	PRINT	STACK
+?CND10:	EQUAL?	OBJ,MAGNET \?ELS17
+	PRINTI	"The "
+	CALL	DPRINT,OBJ
+	PRINTI	" is touching"
+	JUMP	?CND15
+?ELS17:	FSET?	OBJ,SURFACEBIT \?ELS21
+	PRINTI	"Sitting on the "
+	CALL	DPRINT,OBJ
+	FIRST?	OBJ >F /?KLU39
+?KLU39:	NEXT?	F \?ELS26
+	PRINTI	" are"
+	JUMP	?CND15
+?ELS26:	PRINTI	" is"
+	JUMP	?CND15
+?ELS21:	PRINTI	"The "
+	CALL	DPRINT,OBJ
+	PRINTI	" contains"
+?CND15:	PRINTR	":"
+
+
+	.FUNCT	RATING-UPD,NUM
+	ADD	BASE-RATING,NUM >BASE-RATING
+	ADD	RATING,NUM >RATING
+	RTRUE	
+
+
+	.FUNCT	RATING-OBJ,OBJ,TEMP
+	GETP	OBJ,P?VALUE
+	ZERO?	STACK /TRUE
+	GETP	OBJ,P?VALUE >TEMP
+	GRTR?	TEMP,0 \FALSE
+	CALL	RATING-UPD,TEMP
+	PUTP	OBJ,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	V-SCORE,ASK?=1
+	PRINTI	"Your score is "
+	PRINTN	RATING
+	PRINTI	" out of a possible "
+	PRINTN	RATING-MAX
+	PRINTI	"."
+	CRLF	
+	PRINTI	"This score gives you the rank of a "
+	GRTR?	RATING,245 \?ELS9
+	PRINTI	"rich diver"
+	JUMP	?CND7
+?ELS9:	GRTR?	RATING,190 \?ELS13
+	PRINTI	"good adventurer"
+	JUMP	?CND7
+?ELS13:	GRTR?	RATING,125 \?ELS17
+	PRINTI	"decent diver"
+	JUMP	?CND7
+?ELS17:	GRTR?	RATING,45 \?ELS21
+	PRINTI	"so-so sailor"
+	JUMP	?CND7
+?ELS21:	PRINTI	"chicken of the sea"
+?CND7:	PRINTI	"."
+	CRLF	
+	RETURN	RATING
+
+
+	.FUNCT	FINISH
+	CRLF	
+	CALL	V-SCORE
+	USL	
+	CRLF	
+?PRG1:	PRINTI	"Would you like to restart the game from the beginning, restore a saved game position, or end this session of the game? (Type RESTART, RESTORE, or QUIT): >"
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTART \?ELS7
+	RESTART	
+	CALL	TELL-FAILED
+	JUMP	?PRG1
+?ELS7:	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTORE \?ELS9
+	RESTORE	 \?ELS12
+	CALL	TELL-OKAY
+	JUMP	?PRG1
+?ELS12:	CALL	TELL-FAILED
+	JUMP	?PRG1
+?ELS9:	GET	P-LEXV,1
+	EQUAL?	STACK,W?QUIT,W?Q \?PRG1
+	QUIT	
+	JUMP	?PRG1
+
+
+	.FUNCT	V-QUIT,ASK?=1,SCOR
+	CALL	V-SCORE
+	ZERO?	ASK? /?ELS9
+	PRINTI	"Do you wish to leave the game? (Y is affirmative): "
+	CALL	YES?
+	ZERO?	STACK \?THN6
+?ELS9:	ZERO?	ASK? \?ELS5
+?THN6:	USL	
+	QUIT	
+	RTRUE	
+?ELS5:	CALL	TELL-OKAY
+	RSTACK	
+
+
+	.FUNCT	YES?
+	PRINTI	">"
+	READ	Y-INBUF,Y-LEXV
+	GET	Y-LEXV,1
+	EQUAL?	STACK,W?YES,W?Y \FALSE
+	RTRUE	
+
+
+	.FUNCT	V-VERSION,CNT=17
+	PRINTI	"CUTTHROATS
+Copyright (c) 1984 by Infocom, Inc. All rights reserved.
+CUTTHROATS is a trademark of Infocom, Inc.
+Release "
+	GET	0,1
+	BAND	STACK,2047
+	PRINTN	STACK
+	PRINTI	" / Serial number "
+?PRG5:	IGRTR?	'CNT,23 \?ELS9
+	JUMP	?REP6
+?ELS9:	GETB	0,CNT
+	PRINTC	STACK
+	JUMP	?PRG5
+?REP6:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-AGAIN,OBJ,N=0
+	EQUAL?	L-PRSO,NOT-HERE-OBJECT \?ELS3
+	ZERO?	P-MOBY-FOUND /?ELS3
+	SET	'N,TRUE-VALUE
+	SET	'L-PRSO,P-MOBY-FOUND
+	JUMP	?CND1
+?ELS3:	EQUAL?	L-PRSI,NOT-HERE-OBJECT \?CND1
+	ZERO?	P-MOBY-FOUND /?CND1
+	SET	'N,TRUE-VALUE
+	SET	'L-PRSI,P-MOBY-FOUND
+?CND1:	ZERO?	L-PRSA \?ELS14
+	PRINTR	"Not until you do something."
+?ELS14:	EQUAL?	L-PRSA,V?WALK,V?FOLLOW \?ELS18
+	CALL	PERFORM,L-PRSA,L-PRSO
+	RSTACK	
+?ELS18:	ZERO?	L-PRSO /?ELS25
+	CALL	VISIBLE?,L-PRSO
+	ZERO?	STACK \?ELS25
+	PUSH	L-PRSO
+	JUMP	?CND21
+?ELS25:	ZERO?	L-PRSI /?PRD23
+	CALL	VISIBLE?,L-PRSI
+	ZERO?	STACK \?PRD23
+	PUSH	L-PRSI
+	JUMP	?CND21
+?PRD23:	PUSH	0
+?CND21:	SET	'OBJ,STACK
+	ZERO?	OBJ /?ELS36
+	EQUAL?	OBJ,ROOMS /?ELS36
+	ZERO?	N /?ELS41
+	CALL	TELL-YOU-CANT,STR?58,FALSE-VALUE
+	EQUAL?	OBJ,WEASEL /?CND43
+	PRINTI	"any "
+?CND43:	CALL	DPRINT,OBJ
+	PRINTI	" here."
+	CRLF	
+	JUMP	?CND39
+?ELS41:	PRINTI	"I can't see "
+	CALL	THE?,OBJ
+	CALL	DPRINT,OBJ
+	PRINTI	" anymore."
+	CRLF	
+?CND39:	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	2
+?ELS36:	EQUAL?	L-WINNER,PLAYER /?THN65
+	CALL	CONTACT-ESTABLISHED
+	EQUAL?	STACK,M-FATAL /FALSE
+?THN65:	SET	'P-WALK-DIR,L-WALK-DIR
+	SET	'P-MERGED,TRUE-VALUE
+	SET	'P-MULT,FALSE-VALUE
+	CALL	PERFORM,L-PRSA,L-PRSO,L-PRSI >N
+	ZERO?	N \?CND67
+	SET	'N,TRUE-VALUE
+?CND67:	SET	'P-MERGED,FALSE-VALUE
+	RETURN	N
+
+
+	.FUNCT	CONTACT-ESTABLISHED,OCONT,V
+	SET	'OCONT,P-CONT
+	SET	'P-CONT,TRUE-VALUE
+	SET	'P-MERGED,TRUE-VALUE
+	CALL	PERFORM,V?TELL,L-WINNER >V
+	SET	'P-CONT,OCONT
+	SET	'P-MERGED,FALSE-VALUE
+	RETURN	V
+
+
+	.FUNCT	JIGS-UP,DESC,PLAYER?=0
+	PRINT	DESC
+	CRLF	
+	PRINTI	" 
+   ****  You have died  **** 
+
+"
+	PRINTI	"Too bad."
+	CRLF	
+	CRLF	
+	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	V-RESTORE
+	RESTORE	 \?ELS5
+	CALL	TELL-OKAY
+	CALL	V-FIRST-LOOK
+	RSTACK	
+?ELS5:	CALL	TELL-FAILED
+	RSTACK	
+
+
+	.FUNCT	TELL-FAILED
+	PRINTR	"Failed."
+
+
+	.FUNCT	TELL-OKAY
+	PRINTR	"Okay."
+
+
+	.FUNCT	V-SAVE
+	SAVE	 \?ELS5
+	CALL	TELL-OKAY
+	RSTACK	
+?ELS5:	CALL	TELL-FAILED
+	RSTACK	
+
+
+	.FUNCT	V-RESTART
+	CALL	V-SCORE,TRUE-VALUE
+	PRINTI	"Do you wish to restart? (Y is affirmative): "
+	CALL	YES?
+	ZERO?	STACK /FALSE
+	PRINTI	"Restarting."
+	CRLF	
+	RESTART	
+	CALL	TELL-FAILED
+	RSTACK	
+
+
+	.FUNCT	V-WALK-AROUND
+	CALL	TELL-SHD-DIR
+	RSTACK	
+
+
+	.FUNCT	V-LAUNCH
+	PRINTR	"How does one launch that?"
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM
+	ZERO?	P-WALK-DIR \?ELS5
+	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?ELS5:	GETPT	HERE,PRSO >PT
+	ZERO?	PT /?ELS7
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?ELS12
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	RSTACK	
+?ELS12:	EQUAL?	PTS,NEXIT \?ELS14
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	CRLF	
+	RETURN	2
+?ELS14:	EQUAL?	PTS,FEXIT \?ELS20
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?ELS25
+	CALL	GOTO,RM
+	RSTACK	
+?ELS25:	RETURN	2
+?ELS20:	EQUAL?	PTS,CEXIT \?ELS31
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?ELS36
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	RSTACK	
+?ELS36:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?ELS38
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?ELS38:	CALL	TELL-NO-GO,TRUE-VALUE
+	RETURN	2
+?ELS31:	EQUAL?	PTS,DEXIT \FALSE
+	GETB	PT,DEXITOBJ >OBJ
+	FSET?	OBJ,OPENBIT \?ELS53
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	RSTACK	
+?ELS53:	GET	PT,DEXITSTR >STR
+	ZERO?	STR /?ELS55
+	PRINT	STR
+	CRLF	
+	SET	'P-IT-OBJECT,OBJ
+	RETURN	2
+?ELS55:	CALL	TELL-CLOSED,OBJ,FALSE-VALUE
+	SET	'P-IT-OBJECT,OBJ
+	RETURN	2
+?ELS7:	ZERO?	LIT \?ELS65
+	RANDOM	100
+	GRTR?	90,STACK \?ELS65
+	CALL	JIGS-UP,STR?59
+	RSTACK	
+?ELS65:	CALL	TELL-NO-GO,TRUE-VALUE
+	RETURN	2
+
+
+	.FUNCT	V-INVENTORY
+	FIRST?	WINNER \?ELS3
+	CALL	PRINT-CONT,WINNER
+	JUMP	?CND1
+?ELS3:	PRINTI	"You are empty-handed."
+	CRLF	
+?CND1:	EQUAL?	WINNER,PLAYER \FALSE
+	GRTR?	POCKET-CHANGE,0 \FALSE
+	FSET?	WET-SUIT,WORNBIT /FALSE
+	FSET?	DEEP-SUIT,WORNBIT /FALSE
+	PRINTI	"You have $"
+	PRINTN	POCKET-CHANGE
+	PRINTR	" in your pocket."
+
+
+	.FUNCT	PRE-TAKE
+	EQUAL?	PRSO,NOT-HERE-OBJECT /FALSE
+	EQUAL?	PRSO,OCEAN \?ELS5
+	EQUAL?	PRSI,GLASS-CASE /FALSE
+?ELS5:	EQUAL?	PRSI,GLOBAL-ROOM \?ELS9
+	CALL	TELL-YOURE-NOT,STR?65
+	RTRUE	
+?ELS9:	EQUAL?	PRSO,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY /?THN12
+	EQUAL?	PRSO,INTNUM \?ELS11
+	ZERO?	P-DOLLAR-FLAG /?ELS11
+?THN12:	CALL	TELL-NOT-EASY
+	RTRUE	
+?ELS11:	IN?	PRSO,MAGNET \?CND1
+	ZERO?	PRSI /FALSE
+	EQUAL?	PRSI,MAGNET /FALSE
+?CND1:	IN?	PRSO,WINNER \?ELS26
+	FSET?	PRSO,WORNBIT \?ELS31
+	GET	P-VTBL,0
+	EQUAL?	STACK,W?REMOVE \?ELS36
+	CALL	PERFORM,V?DISEMBARK,PRSO
+	RTRUE	
+?ELS36:	PRINTR	"You are already wearing it."
+?ELS31:	CALL	TELL-YOU-ALREADY,STR?66
+	RSTACK	
+?ELS26:	LOC	PRSO
+	FSET?	STACK,CONTBIT \?ELS44
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?ELS44
+	EQUAL?	PRSO,PUTTY /FALSE
+	CALL	TELL-CANT-REACH,STR?67
+	RTRUE	
+?ELS44:	ZERO?	PRSI /?ELS55
+	LOC	PRSO
+	EQUAL?	PRSI,STACK /?ELS61
+	EQUAL?	PRSO,NOT-HERE-OBJECT \?ELS66
+	FSET?	PRSI,CONTBIT \?ELS66
+	FSET?	PRSI,OPENBIT /?ELS66
+	CALL	TELL-YOUD-BETTER,STR?68,FALSE-VALUE,FALSE-VALUE
+	CALL	DPRINT,PRSI
+	PRINTI	" first."
+	CRLF	
+	SET	'P-IT-OBJECT,PRSI
+	RTRUE	
+?ELS66:	EQUAL?	PRSO,PRSI \?ELS72
+	CALL	TELL-SERIOUS
+	RSTACK	
+?ELS72:	FSET?	PRSI,VICBIT \?ELS74
+	CALL	PERFORM,V?ASK-FOR,PRSI,PRSO
+	RTRUE	
+?ELS74:	EQUAL?	PRSO,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY /?ELS82
+	EQUAL?	PRSO,INTNUM \?ELS82
+	ZERO?	P-DOLLAR-FLAG /?ELS76
+?ELS82:	EQUAL?	PRSI,POCKET \?ELS76
+	CALL	TELL-WHY-BOTHER
+	RSTACK	
+?ELS76:	EQUAL?	PRSO,AIR \?ELS84
+	EQUAL?	PRSI,AIR-TANK \?ELS84
+	CALL	PERFORM,V?EMPTY,AIR-TANK
+	RTRUE	
+?ELS84:	CALL	START-SENTENCE,PRSO
+	PRINTI	" isn't in "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+?ELS61:	SET	'PRSI,FALSE-VALUE
+	RFALSE	
+?ELS55:	LOC	WINNER
+	EQUAL?	PRSO,STACK \FALSE
+	PRINTI	"You are "
+	LOC	WINNER
+	CALL	VEHPREP,STACK
+	PRINT	STACK
+	PRINTR	" it, loser!"
+
+
+	.FUNCT	TELL-YOURE-NOT,STR,DONE?=1
+	PRINTI	"You're not "
+	PRINT	STR
+	ZERO?	DONE? /FALSE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TELL-NOT-EASY
+	PRINTR	"It's not that easy."
+
+
+	.FUNCT	V-TAKE
+	CALL	ITAKE
+	ZERO?	STACK /FALSE
+	PRINTR	"Taken."
+
+
+	.FUNCT	ITAKE,VB=1,CNT,OBJ,TEMP,?TMP1
+	FSET?	PRSO,TAKEBIT /?ELS5
+	ZERO?	VB /FALSE
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RFALSE	
+?ELS5:	EQUAL?	PRSO,ENVELOPE \?ELS13
+	EQUAL?	HERE,MCGINTY-HQ \?ELS13
+	IN?	MCGINTY,MCGINTY-HQ \?ELS13
+	SET	'TEMP,PRSA
+	SET	'PRSA,V?TAKE
+	CALL	ENVELOPE-F
+	SET	'PRSA,TEMP
+	RFALSE	
+?ELS13:	LOC	PRSO
+	IN?	STACK,WINNER /?ELS17
+	CALL	WEIGHT,PRSO >?TMP1
+	CALL	WEIGHT,WINNER
+	ADD	?TMP1,STACK
+	GRTR?	STACK,LOAD-ALLOWED \?ELS17
+	ZERO?	VB /FALSE
+	PRINTI	"Your load is too heavy."
+	CRLF	
+	RFALSE	
+?ELS17:	CALL	CCOUNT,WINNER >CNT
+	GRTR?	CNT,FUMBLE-NUMBER \?ELS27
+	PRINTI	"You're carrying too many things already!"
+	CRLF	
+	RFALSE	
+?ELS27:	EQUAL?	PRSO,MINE \?ELS31
+	CALL	BOOM
+	RSTACK	
+?ELS31:	MOVE	PRSO,WINNER
+	FSET	PRSO,TOUCHBIT
+	FCLEAR	PRSO,NDESCBIT
+	CALL	RATING-OBJ,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-PUT-ACROSS
+	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	V-PUT-ON
+	FSET?	PRSI,SURFACEBIT \?ELS5
+	CALL	V-PUT
+	RTRUE	
+?ELS5:	EQUAL?	PRSI,ME \?ELS7
+	PRINTR	"Sounds kinky."
+?ELS7:	FSET?	PRSI,VICBIT \?ELS11
+	PRINTR	"I don't think he'd appreciate it."
+?ELS11:	PRINTI	"There's no good surface on "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+
+
+	.FUNCT	PRE-PUT,OBJ
+	ZERO?	PRSI \?ELS5
+	PRINTR	"Huh?"
+?ELS5:	EQUAL?	PRSO,MAGNET,GLOBAL-SELF,NOT-HERE-OBJECT /FALSE
+	EQUAL?	PRSI,OCEAN \?ELS11
+	CALL	PERFORM,V?THROW,PRSO,OCEAN
+	RTRUE	
+?ELS11:	EQUAL?	PRSA,V?PUT \?ELS13
+	EQUAL?	PRSO,ME \?ELS13
+	CALL	PERFORM,V?WEAR,PRSI
+	RTRUE	
+?ELS13:	EQUAL?	PRSA,V?PUT-ON \?ELS17
+	EQUAL?	PRSI,ME \?ELS17
+	CALL	PERFORM,V?WEAR,PRSO
+	RTRUE	
+?ELS17:	EQUAL?	PRSO,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY /?THN22
+	ZERO?	P-DOLLAR-FLAG /?ELS21
+	EQUAL?	PRSO,INTNUM \?ELS21
+?THN22:	EQUAL?	PRSI,POCKET /FALSE
+	CALL	TELL-YOU-CANT,STR?53
+	RSTACK	
+?ELS21:	EQUAL?	PRSO,AIR-HOSE \?ELS34
+	EQUAL?	PRSI,DEEP-SUIT /FALSE
+?ELS34:	CALL	HELD?,PRSO
+	ZERO?	STACK \?ELS38
+	CALL	TELL-DONT-HAVE,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS38:	IN?	PRSO,GLOBAL-OBJECTS /?THN43
+	FSET?	PRSO,TAKEBIT /FALSE
+?THN43:	PRINTR	"Nice try."
+
+
+	.FUNCT	V-PUT,?TMP1
+	FSET?	PRSI,OPENBIT /?CND1
+	FSET?	PRSI,DOORBIT /?THN6
+	FSET?	PRSI,CONTBIT /?CND1
+?THN6:	FSET?	PRSI,VEHBIT \?ELS3
+	JUMP	?CND1
+?ELS3:	CALL	TELL-NO-NO
+	RTRUE	
+?CND1:	FSET?	PRSI,OPENBIT /?ELS14
+	PRINTI	"The "
+	CALL	DPRINT,PRSI
+	PRINTR	" isn't open."
+?ELS14:	EQUAL?	PRSI,PRSO \?ELS18
+	CALL	TELL-HOW-THAT,STR?10
+	RSTACK	
+?ELS18:	IN?	PRSO,PRSI \?ELS20
+	CALL	START-SENTENCE,PRSO
+	PRINTI	" is already in "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+?ELS20:	CALL	WEIGHT,PRSI >?TMP1
+	CALL	WEIGHT,PRSO
+	ADD	?TMP1,STACK >?TMP1
+	GETP	PRSI,P?SIZE
+	SUB	?TMP1,STACK >?TMP1
+	GETP	PRSI,P?CAPACITY
+	GRTR?	?TMP1,STACK \?ELS26
+	PRINTR	"There's no room."
+?ELS26:	CALL	HELD?,PRSO
+	ZERO?	STACK \?ELS30
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+?ELS30:	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	FCLEAR	PRSO,WORNBIT
+	PRINTR	"Done."
+
+
+	.FUNCT	PRE-DROP
+	LOC	WINNER
+	EQUAL?	PRSO,STACK \FALSE
+	CALL	PERFORM,V?DISEMBARK,PRSO
+	RTRUE	
+
+
+	.FUNCT	PRE-GIVE
+	ZERO?	PRSI \?ELS5
+	PRINTR	"Huh?"
+?ELS5:	EQUAL?	PRSO,ME,NOT-HERE-OBJECT /FALSE
+	FSET?	PRSI,VICBIT /?ELS11
+	PRINTI	"To "
+	CALL	APRINT,PRSI
+	PRINTR	"???"
+?ELS11:	EQUAL?	WINNER,PLAYER \?ELS15
+	EQUAL?	PRSI,ME \?ELS15
+	ZERO?	QCONTEXT /?ELS15
+	EQUAL?	HERE,QCONTEXT-ROOM \?ELS15
+	CALL	META-LOC,QCONTEXT
+	EQUAL?	HERE,STACK \?ELS15
+	SET	'WINNER,QCONTEXT
+	CALL	PERFORM,V?GIVE,PRSO,PRSI
+	SET	'WINNER,PLAYER
+	RTRUE	
+?ELS15:	EQUAL?	PRSI,WINNER /?THN20
+	EQUAL?	WINNER,PLAYER \?ELS19
+	EQUAL?	PRSI,ME \?ELS19
+?THN20:	CALL	TELL-CHARITY
+	RSTACK	
+?ELS19:	EQUAL?	PRSO,INTNUM,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY /FALSE
+	EQUAL?	PRSO,DRINKING-WATER \?ELS27
+	EQUAL?	HERE,SHANTY \?ELS27
+	EQUAL?	PRSI,SPEAR-CARRIER /FALSE
+?ELS27:	EQUAL?	PRSO,DRINK-OBJECT \?ELS31
+	IN?	DRINK-OBJECT,TABLE-OBJECT /FALSE
+?ELS31:	CALL	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	EQUAL?	WINNER,PLAYER \?ELS40
+	PRINTR	"That's easy for you to say since you don't even have it."
+?ELS40:	PRINTI	"""I don't have "
+	CALL	APRINT,PRSO
+	PRINTI	" to give!"" exclaims "
+	CALL	THE?,WINNER
+	CALL	DPRINT,WINNER
+	PRINTR	"."
+
+
+	.FUNCT	TELL-CHARITY
+	PRINTR	"I know charity begins at home, but this is ridiculous."
+
+
+	.FUNCT	PRE-SGIVE
+	CALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	HELD?,OBJ
+	ZERO?	OBJ /FALSE
+	IN?	OBJ,WINNER /TRUE
+	EQUAL?	OBJ,ME,GLOBAL-SELF /TRUE
+	LOC	OBJ
+	CALL	HELD?,STACK
+	RSTACK	
+
+
+	.FUNCT	V-GIVE
+	EQUAL?	PRSI,SPEAR-CARRIER \?ELS5
+	EQUAL?	PRSO,INTNUM \?ELS5
+	ZERO?	P-DOLLAR-FLAG /?ELS5
+	PRINTR	"""If you want to buy something, be specific."""
+?ELS5:	FSET?	PRSI,VICBIT \?ELS11
+	CALL	START-SENTENCE,PRSI
+	PRINTR	" declines your generous offer."
+?ELS11:	CALL	TELL-YOU-CANT,STR?69,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	" to "
+	CALL	APRINT,PRSI
+	PRINTR	"!"
+
+
+	.FUNCT	V-SGIVE
+	PRINTR	"Bug."
+
+
+	.FUNCT	V-DROP,SUPPRESS=0
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	ZERO?	SUPPRESS \FALSE
+	PRINTR	"Dropped."
+
+
+	.FUNCT	PRE-THROW
+	EQUAL?	PRSO,NOT-HERE-OBJECT /FALSE
+	IN?	PRSO,WINNER /FALSE
+	CALL	TELL-YOURE-NOT,STR?70,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-THROW
+	ZERO?	PRSI /?CND1
+	FSET?	PRSI,CONTBIT /?THN8
+	FSET?	PRSI,CLIMBBIT \?ELS7
+?THN8:	CALL	PERFORM,V?PUT,PRSO,PRSI
+	RTRUE	
+?ELS7:	EQUAL?	PRSI,ME \?ELS11
+	PRINTR	"You'd probably miss."
+?ELS11:	EQUAL?	PRSI,FIELD \?ELS15
+	CALL	START-SENTENCE,PRSO
+	PRINTI	" bounces off the weeds."
+	CRLF	
+	JUMP	?CND1
+?ELS15:	CALL	START-SENTENCE,PRSI
+	FSET?	PRSI,VICBIT \?ELS22
+	PRINTI	" ducks"
+	JUMP	?CND20
+?ELS22:	PRINTI	" doesn't duck"
+?CND20:	PRINTI	" as the "
+	CALL	DPRINT,PRSO
+	PRINTI	" flies by."
+	CRLF	
+?CND1:	CALL	IDROP
+	ZERO?	PRSI \TRUE
+	PRINTR	"Thrown."
+
+
+	.FUNCT	IDROP
+	IN?	PRSO,WINNER /?ELS5
+	LOC	PRSO
+	IN?	STACK,WINNER /?ELS5
+	CALL	TELL-YOURE-NOT,STR?70,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	"."
+	CRLF	
+	RFALSE	
+?ELS5:	IN?	PRSO,WINNER /?ELS11
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?ELS11
+	LOC	PRSO
+	CALL	TELL-CLOSED,STACK,FALSE-VALUE
+	RFALSE	
+?ELS11:	LOC	PLAYER
+	FSET?	STACK,VEHBIT \?ELS18
+	IN?	PLAYER,BED /?ELS18
+	CALL	META-LOC,PLAYER
+	MOVE	PRSO,STACK
+	JUMP	?CND16
+?ELS18:	LOC	WINNER
+	MOVE	PRSO,STACK
+?CND16:	FCLEAR	PRSO,WORNBIT
+	EQUAL?	PRSO,SAFETY-LINE \TRUE
+	CALL	QUEUE,I-PENDULUM,3
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	PRE-OPEN
+	ZERO?	PRSI /FALSE
+	FSET?	PRSI,TOOLBIT /FALSE
+	CALL	PRE-BURN
+	RSTACK	
+
+
+	.FUNCT	V-OPEN,F,STR
+	FSET?	PRSO,CONTBIT /?ELS5
+	CALL	SAY-MUST-TELL
+	RSTACK	
+?ELS5:	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS7
+	FSET?	PRSO,OPENBIT \?ELS12
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS12:	FSET	PRSO,OPENBIT
+	FIRST?	PRSO /?ELS19
+	PRINTR	"Opened."
+?ELS19:	FIRST?	PRSO >F \?ELS23
+	NEXT?	F /?ELS23
+	GETP	F,P?FDESC >STR
+	ZERO?	STR /?ELS23
+	CALL	TELL-OPENS
+	PRINT	STR
+	CRLF	
+	RTRUE	
+?ELS23:	PRINTI	"Opening the "
+	CALL	DPRINT,PRSO
+	PRINTI	" reveals "
+	CALL	PRINT-CONTENTS,PRSO
+	PRINTR	"."
+?ELS7:	FSET?	PRSO,DOORBIT \?ELS35
+	FSET?	PRSO,OPENBIT \?ELS40
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS40:	CALL	TELL-OPENS
+	FSET	PRSO,OPENBIT
+	RTRUE	
+?ELS35:	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	PRINTR	" fails to open."
+
+
+	.FUNCT	TELL-OPENS
+	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	PRINTR	" opens."
+
+
+	.FUNCT	SAY-MUST-TELL
+	PRINTI	"You must tell me how to do that to "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	PRINT-CONTENTS,OBJ,F,N,1ST?=1,2ND=0
+	FIRST?	OBJ >F \FALSE
+	NEXT?	F /?CND6
+	SET	'P-IT-OBJECT,F
+?CND6:	
+?PRG9:	NEXT?	F >N /?KLU36
+?KLU36:	ZERO?	1ST? /?ELS13
+	SET	'1ST?,FALSE-VALUE
+	SET	'2ND,TRUE-VALUE
+	JUMP	?CND11
+?ELS13:	ZERO?	N \?THN20
+	ZERO?	2ND \?CND17
+?THN20:	SET	'2ND,FALSE-VALUE
+	PRINTI	","
+?CND17:	PRINTI	" "
+	ZERO?	N \?CND11
+	PRINTI	"and "
+?CND11:	CALL	APRINT,F
+	SET	'F,N
+	ZERO?	F \?PRG9
+	RTRUE	
+
+
+	.FUNCT	V-ASK-ABOUT
+	EQUAL?	PRSO,ME,PLAYER \?ELS5
+	CALL	TELL-NO-INFO
+	RSTACK	
+?ELS5:	FSET?	PRSO,VICBIT /?ELS7
+	CALL	SUDDENLY-REALIZE-TALKING,PRSO
+	RTRUE	
+?ELS7:	PRINTI	"After a moment's thought, "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" disavows any knowledge of that."
+
+
+	.FUNCT	SUDDENLY-REALIZE-TALKING,OBJ
+	PRINTI	"You suddenly realize that you're talking to "
+	CALL	APRINT,OBJ
+	PRINTR	"."
+
+
+	.FUNCT	TELL-NO-INFO
+	PRINTI	"You find that you can provide "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	" with no new information."
+
+
+	.FUNCT	PRE-ASK-CONTEXT-ABOUT,P
+	ZERO?	QCONTEXT /FALSE
+	EQUAL?	HERE,QCONTEXT-ROOM \FALSE
+	CALL	META-LOC,QCONTEXT
+	EQUAL?	HERE,STACK \FALSE
+	PRINTI	"(said to "
+	CALL	DPRINT,QCONTEXT
+	PRINTI	")"
+	CRLF	
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-ABOUT
+	CALL	V-ASK-CONTEXT-FOR
+	RSTACK	
+
+
+	.FUNCT	V-ASK-FOR
+	EQUAL?	PRSO,ME,PLAYER \?ELS5
+	CALL	TELL-NO-INFO
+	RSTACK	
+?ELS5:	FSET?	PRSO,VICBIT \?ELS7
+	EQUAL?	PRSO,PLAYER \?ELS12
+	IN?	PRSI,PLAYER \?ELS17
+	CALL	TELL-YOU-ALREADY,STR?66
+	RSTACK	
+?ELS17:	CALL	TELL-DONT-HAVE,STR?21
+	RSTACK	
+?ELS12:	EQUAL?	PRSI,RIDICULOUS-MONEY-KLUDGE,GLOBAL-MONEY,KNIFE /?THN22
+	EQUAL?	PRSI,INTNUM \?ELS21
+	ZERO?	P-DOLLAR-FLAG /?ELS21
+?THN22:	CALL	START-SENTENCE,PRSO
+	PRINTR	" refuses."
+?ELS21:	EQUAL?	PRSO,SPEAR-CARRIER \?ELS29
+	GETP	PRSI,P?NORTH
+	GRTR?	STACK,0 \?ELS29
+	CALL	TELL-CHARITY
+	RSTACK	
+?ELS29:	CALL	START-SENTENCE,PRSO
+	IN?	PRSI,PRSO \?ELS38
+	PRINTI	" hands you the "
+	CALL	DPRINT,PRSI
+	PRINTI	"."
+	CRLF	
+	MOVE	PRSI,WINNER
+	RTRUE	
+?ELS38:	PRINTR	" doesn't have that."
+?ELS7:	CALL	SUDDENLY-REALIZE-TALKING,PRSO
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-CONTEXT-FOR,P
+	ZERO?	QCONTEXT /FALSE
+	EQUAL?	HERE,QCONTEXT-ROOM \FALSE
+	CALL	META-LOC,QCONTEXT
+	EQUAL?	HERE,STACK \FALSE
+	PRINTI	"(said to "
+	CALL	DPRINT,QCONTEXT
+	PRINTI	")"
+	CRLF	
+	CALL	PERFORM,V?ASK-FOR,QCONTEXT,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-FOR
+	CALL	TELL-YOURE-NOT,STR?71
+	RSTACK	
+
+
+	.FUNCT	V-CALL
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	PERFORM,V?$CALL,PRSO
+	RTRUE	
+?ELS5:	FSET?	PRSO,VICBIT \?ELS7
+	SET	'QCONTEXT,PRSO
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	CALL	TELL-LISTENING
+	RSTACK	
+?ELS7:	PRINTR	"There's no response."
+
+
+	.FUNCT	V-CALL-LOSE
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"You must use a verb!"
+
+
+	.FUNCT	PRE-$CALL
+	EQUAL?	PRSO,INTDIR \?ELS5
+	CALL	PERFORM,V?WALK,P-WALK-DIR
+	RTRUE	
+?ELS5:	FSET?	PRSO,VICBIT /FALSE
+	CALL	V-CALL-LOSE
+	RSTACK	
+
+
+	.FUNCT	V-$CALL,MOT=0
+	EQUAL?	PRSO,PLAYER,ME \?ELS5
+	CALL	V-CALL-LOSE
+	RSTACK	
+?ELS5:	FSET?	PRSO,PERSON \?ELS7
+	CALL	IN-MOTION?,PRSO
+	ZERO?	STACK /?CND8
+	SET	'MOT,TRUE-VALUE
+?CND8:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?THN16
+	CALL	CORRIDOR-LOOK,PRSO
+	ZERO?	STACK /?ELS15
+?THN16:	CALL	START-SENTENCE,PRSO
+	CALL	GRAB-ATTENTION,PRSO
+	ZERO?	STACK /?ELS22
+	FSET	PRSO,TOUCHBIT
+	CALL	META-LOC,PRSO >QCONTEXT-ROOM
+	ZERO?	MOT /?ELS27
+	PRINTR	" stops and turns toward you."
+?ELS27:	CALL	TELL-LISTENING
+	RSTACK	
+?ELS22:	PRINTR	" ignores you."
+?ELS15:	PRINTI	"You don't see "
+	CALL	DPRINT,PRSO
+	PRINTR	" here."
+?ELS7:	EQUAL?	PRSO,SPEAR-CARRIER \?ELS42
+	SET	'QCONTEXT,SPEAR-CARRIER
+	SET	'QCONTEXT-ROOM,HERE
+	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	CALL	TELL-LISTENING
+	RSTACK	
+?ELS42:	CALL	V-CALL-LOSE
+	RSTACK	
+
+
+	.FUNCT	TELL-LISTENING
+	PRINTR	" is listening."
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,CONTBIT /?ELS5
+	CALL	SAY-MUST-TELL
+	RSTACK	
+?ELS5:	FSET?	PRSO,SURFACEBIT /?ELS7
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS7
+	FSET?	PRSO,OPENBIT \?ELS14
+	FCLEAR	PRSO,OPENBIT
+	PRINTR	"Closed."
+?ELS14:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS7:	FSET?	PRSO,DOORBIT \?ELS20
+	FSET?	PRSO,OPENBIT \?ELS25
+	CALL	TELL-NOW,PRSO,STR?26
+	FCLEAR	PRSO,OPENBIT
+	RTRUE	
+?ELS25:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS20:	CALL	TELL-YOU-CANT,STR?72
+	RSTACK	
+
+
+	.FUNCT	CCOUNT,OBJ,CNT=0,X
+	FIRST?	OBJ >X \?CND1
+?PRG4:	FSET?	X,WORNBIT /?CND6
+	INC	'CNT
+?CND6:	NEXT?	X >X /?PRG4
+?CND1:	RETURN	CNT
+
+
+	.FUNCT	WEIGHT,OBJ,CONT,WT=0
+	FIRST?	OBJ >CONT \?CND1
+?PRG4:	EQUAL?	OBJ,WINNER \?ELS8
+	FSET?	CONT,WEARBIT \?ELS8
+	INC	'WT
+	JUMP	?CND6
+?ELS8:	CALL	WEIGHT,CONT
+	ADD	WT,STACK >WT
+?CND6:	NEXT?	CONT >CONT /?PRG4
+?CND1:	GETP	OBJ,P?SIZE
+	ADD	WT,STACK
+	RSTACK	
+
+
+	.FUNCT	V-BREATHE
+	ZERO?	PRSO /?ELS5
+	EQUAL?	PRSO,AIR /?ELS5
+	PRINTR	"Stick to air."
+?ELS5:	PRINTR	"If you stop breathing, I'll let you know."
+
+
+	.FUNCT	V-SCRIPT
+	GET	0,8
+	BOR	STACK,1
+	PUT	0,8,STACK
+	PRINTI	"Here begins"
+	PRINT	COPR-NOTICE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	PRINTI	"Here ends"
+	PRINT	COPR-NOTICE
+	CRLF	
+	GET	0,8
+	BAND	STACK,-2
+	PUT	0,8,STACK
+	RTRUE	
+
+
+	.FUNCT	PRE-MOVE
+	EQUAL?	PRSO,SAFETY-LINE /FALSE
+	IN?	PLAYER,PRSO \?ELS7
+	CALL	TELL-CONTORT
+	RSTACK	
+?ELS7:	CALL	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	PRINTR	"I don't juggle objects!"
+
+
+	.FUNCT	V-MOVE
+	FSET?	PRSO,TAKEBIT \?ELS5
+	PRINTI	"Moving the "
+	CALL	DPRINT,PRSO
+	PRINTR	" reveals nothing."
+?ELS5:	FSET?	PRSO,PUSHBIT \?ELS9
+	CALL	TELL-MOVES-BIT
+	RSTACK	
+?ELS9:	CALL	TELL-YOU-CANT,STR?74,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-LAMP-ON
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTR	"Restrain yourself."
+?ELS5:	CALL	TELL-YOU-CANT,STR?75
+	RSTACK	
+
+
+	.FUNCT	V-LAMP-OFF
+	CALL	TELL-YOU-CANT,STR?76
+	RSTACK	
+
+
+	.FUNCT	TELL-PASSES
+	PRINTR	"Time passes..."
+
+
+	.FUNCT	V-WAIT,NUM=10,NOT-INT?=1,WHO=0,INTERRUPTED=0
+	ZERO?	NOT-INT? /?CND1
+	CALL	TELL-PASSES
+	GRTR?	I-WAIT-DURATION,0 /FALSE
+?CND1:	
+?PRG8:	DLESS?	'NUM,0 \?ELS12
+	JUMP	?REP9
+?ELS12:	CALL	CLOCKER
+	ZERO?	STACK /?ELS14
+	SET	'INTERRUPTED,TRUE-VALUE
+	JUMP	?REP9
+?ELS14:	ZERO?	WHO /?CND10
+	IN?	WHO,HERE \?CND10
+	SET	'INTERRUPTED,TRUE-VALUE
+	JUMP	?REP9
+?CND10:	USL	
+	JUMP	?PRG8
+?REP9:	ZERO?	NOT-INT? /?ELS23
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	CLOCK-WAIT
+?ELS23:	RETURN	INTERRUPTED
+
+
+	.FUNCT	V-WAIT-FOR
+	EQUAL?	PRSO,INTNUM \?ELS5
+	GRTR?	P-NUMBER,180 \?ELS10
+	PRINTR	"That's too long to wait."
+?ELS10:	CALL	V-WAIT,P-NUMBER
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,PLAYER,ME \?ELS16
+	PRINTR	"You're already here!"
+?ELS16:	FSET?	PRSO,PERSON /?THN21
+	EQUAL?	PRSO,DELIVERY-BOY \?ELS20
+?THN21:	IN?	PRSO,HERE \?ELS27
+	PRINTR	"He's already here!"
+?ELS27:	CALL	TELL-PASSES
+?PRG32:	CALL	V-WAIT,30,FALSE-VALUE,PRSO
+	ZERO?	STACK /?CND34
+	IN?	PRSO,HERE \?CND34
+	FSET	PRSO,TOUCHBIT
+	CALL	START-SENTENCE,PRSO
+	PRINTI	", for whom you were waiting, has arrived."
+	CRLF	
+	SET	'P-IT-OBJECT,PRSO
+	JUMP	?REP33
+?CND34:	CALL	START-SENTENCE,PRSO
+	PRINTI	" isn't here yet. Do you want to keep waiting? (YES or NO?)"
+	CALL	YES?
+	ZERO?	STACK \?PRG32
+	PRINTI	"If you say so..."
+	CRLF	
+?REP33:	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	CLOCK-WAIT
+?ELS20:	FSET?	PRSO,VICBIT \?ELS50
+	PRINTR	"I don't think he's going anywhere."
+?ELS50:	PRINTR	"Why? It's not going anywhere."
+
+
+	.FUNCT	PRE-BOARD,AV
+	LOC	WINNER >AV
+	FSET?	PRSO,VEHBIT \?ELS3
+	FSET?	AV,VEHBIT \FALSE
+	PRINTI	"You are already "
+	CALL	VEHPREP,AV
+	PRINT	STACK
+	PRINTI	" the "
+	CALL	DPRINT,AV
+	PRINTI	"!"
+	CRLF	
+	RETURN	2
+?ELS3:	FSET?	PRSO,WEARBIT \?ELS12
+	CALL	PERFORM,V?WEAR,PRSO
+	RETURN	2
+?ELS12:	EQUAL?	PRSO,FIELD,CLOSET,NOT-HERE-OBJECT /FALSE
+	EQUAL?	PRSO,BACK-WINDOW,REDS-BUNK,OCEAN /FALSE
+	PRINTI	"I suppose you have a theory on getting into "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	"."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-BOARD
+	PRINTI	"You are now "
+	CALL	VEHPREP,PRSO
+	PRINT	STACK
+	PRINTI	" the "
+	CALL	DPRINT,PRSO
+	PRINTI	"."
+	CRLF	
+	MOVE	WINNER,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-DISEMBARK
+	FSET?	PRSO,WORNBIT \?ELS5
+	CALL	UNWEAR
+	RTRUE	
+?ELS5:	LOC	WINNER
+	EQUAL?	STACK,PRSO /?ELS7
+	CALL	TELL-YOURE-NOT,STR?77
+	RETURN	2
+?ELS7:	FSET?	HERE,RLANDBIT \?ELS11
+	ZERO?	STOOD-UP \?ELS14
+	PRINTI	"You get out of bed."
+	CRLF	
+	SET	'STOOD-UP,TRUE-VALUE
+	JUMP	?CND12
+?ELS14:	PRINTI	"You are on your feet again."
+	CRLF	
+?CND12:	MOVE	WINNER,HERE
+	RTRUE	
+?ELS11:	PRINTI	"A bad idea."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	PRE-BUY
+	EQUAL?	PRSO,DRINKING-WATER /FALSE
+	FSET?	WET-SUIT,WORNBIT /?THN8
+	FSET?	DEEP-SUIT,WORNBIT \FALSE
+?THN8:	CALL	TELL-YOU-CANT,STR?78
+	RSTACK	
+
+
+	.FUNCT	V-BUY,RENT=0,COST,?TMP1
+	IN?	PRSO,ROOMS /?ELS5
+	GETP	PRSO,P?NORTH >COST
+	ZERO?	COST /?ELS5
+	GRTR?	COST,0 \?ELS5
+	CALL	ENABLED?,I-EQUIP
+	ZERO?	STACK /?ELS12
+	IN?	MCGINTY,OUTFITTERS-HQ /?ELS12
+	PRINTR	"The salesman is too busy with Johnny right now."
+?ELS12:	FSET?	PRSO,RENTBIT \?ELS18
+	ZERO?	RENT \?ELS18
+	PRINTR	"That's not for sale, but you might try renting it."
+?ELS18:	GRTR?	COST,POCKET-CHANGE \?ELS24
+	CALL	TELL-NO-AFFORD
+	RSTACK	
+?ELS24:	SUB	POCKET-CHANGE,COST >POCKET-CHANGE
+	PUTP	PRSO,P?NORTH,-1
+	ZERO?	JOHNNY-MADE-DEAL /?ELS29
+	ZERO?	DELIVERY-MADE \?ELS29
+	FSET	PRSO,TRYTAKEBIT
+	PUT	DELIVERY-TABLE,DT-PTR,PRSO
+	ADD	DT-PTR,2 >DT-PTR
+	JUMP	?CND27
+?ELS29:	FSET	PRSO,TAKEBIT
+	FCLEAR	PRSO,NDESCBIT
+	CALL	WEIGHT,PRSO >?TMP1
+	CALL	WEIGHT,WINNER
+	ADD	?TMP1,STACK
+	GRTR?	STACK,LOAD-ALLOWED /?THN37
+	CALL	CCOUNT,WINNER
+	GRTR?	STACK,FUMBLE-NUMBER \?ELS36
+?THN37:	MOVE	PRSO,GLOBAL-SURFACE
+	JUMP	?CND27
+?ELS36:	MOVE	PRSO,WINNER
+?CND27:	PRINTI	"You have "
+	ZERO?	RENT /?ELS45
+	PRINTI	"rented"
+	JUMP	?CND43
+?ELS45:	PRINTI	"purchased"
+?CND43:	PRINTI	" "
+	CALL	APRINT,PRSO
+	PRINTI	" for $"
+	PRINTN	COST
+	IN?	PRSO,GLOBAL-SURFACE \?CND55
+	PRINTI	". Since you can't currently carry it, the salesman leaves it on the counter"
+?CND55:	PRINTR	"."
+?ELS5:	EQUAL?	COST,-1 \?ELS63
+	FSET?	PRSO,RENTBIT \?ELS68
+	PRINTR	"You've already rented it."
+?ELS68:	CALL	TELL-ONLY-ONCE,STR?79
+	RSTACK	
+?ELS63:	EQUAL?	PRSO,DRINKING-WATER \?ELS74
+	EQUAL?	HERE,MM-GALLEY,NW-GALLEY \?ELS79
+	PRINTI	"Get it "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."
+?ELS79:	CALL	PERFORM,V?ASK-FOR,SPEAR-CARRIER,DRINKING-WATER
+	SET	'P-IT-OBJECT,DRINKING-WATER
+	RTRUE	
+?ELS74:	PRINTR	"That's not for sale."
+
+
+	.FUNCT	TELL-ONLY-ONCE,STR
+	PRINTI	"You only "
+	PRINT	STR
+	PRINTR	" it once."
+
+
+	.FUNCT	V-RENT,COST
+	IN?	PRSO,ROOMS /?ELS5
+	GETP	PRSO,P?NORTH >COST
+	ZERO?	COST /?ELS5
+	GRTR?	COST,0 \?ELS5
+	FSET?	PRSO,RENTBIT /?ELS12
+	PRINTR	"That's not available for rental. You might try buying it."
+?ELS12:	CALL	V-BUY,TRUE-VALUE
+	RSTACK	
+?ELS5:	EQUAL?	COST,-1 \?ELS18
+	FSET?	PRSO,RENTBIT \?ELS23
+	CALL	TELL-ONLY-ONCE,STR?80
+	RSTACK	
+?ELS23:	CALL	TELL-YOU-ALREADY,STR?81
+	RSTACK	
+?ELS18:	CALL	TELL-YOU-CANT,STR?82
+	RSTACK	
+
+
+	.FUNCT	GOTO,RM,V?=1,LB,WLOC,AV=0,OLIT,F,N
+	FSET?	RM,RLANDBIT /?PRD1
+	PUSH	0
+	JUMP	?PRD2
+?PRD1:	PUSH	1
+?PRD2:	SET	'LB,STACK
+	LOC	WINNER >WLOC
+	SET	'OLIT,LIT
+	FSET?	WLOC,VEHBIT \?CND3
+	CALL	TELL-YOUD-BETTER,STR?83,FALSE-VALUE,FALSE-VALUE
+	FSET?	WLOC,SURFACEBIT \?ELS8
+	PRINTI	"off"
+	JUMP	?CND6
+?ELS8:	PRINTI	"out"
+?CND6:	PRINTI	" of the "
+	CALL	DPRINT,WLOC
+	PRINTI	" first."
+	CRLF	
+	RETURN	2
+?CND3:	MOVE	WINNER,RM
+	SET	'HERE,RM
+	CALL	LIT?,HERE >LIT
+	ZERO?	OLIT \?CND24
+	ZERO?	LIT \?CND24
+	RANDOM	100
+	GRTR?	90,STACK \?CND24
+	CALL	JIGS-UP,STR?84
+?CND24:	GETP	HERE,P?ACTION
+	CALL	STACK,M-ENTER
+	CALL	RATING-OBJ,RM
+	EQUAL?	HERE,RM \TRUE
+	EQUAL?	ADVENTURER,WINNER /?ELS33
+	CALL	START-SENTENCE,WINNER
+	PRINTI	" leaves the room."
+	CRLF	
+	RETURN	2
+?ELS33:	ZERO?	V? /TRUE
+	CALL	V-FIRST-LOOK
+	IN?	MAGNET,PLAYER \TRUE
+	ZERO?	MAGNET-ON /?ELS46
+	CALL	ATTRACTION
+	RTRUE	
+?ELS46:	FIRST?	MAGNET >F \TRUE
+	MOVE	F,WLOC
+	RTRUE	
+
+
+	.FUNCT	V-BACK
+	PRINTI	"Sorry, my memory isn't that good. "
+	CALL	TELL-SHD-DIR
+	RSTACK	
+
+
+	.FUNCT	POURABLE?,OBJ
+	EQUAL?	OBJ,DRINKING-WATER,DRINK-OBJECT \FALSE
+	RTRUE	
+
+
+	.FUNCT	V-POUR
+	EQUAL?	PRSO,OCEAN \?ELS5
+	CALL	TELL-YOURE-NOT,STR?85
+	RSTACK	
+?ELS5:	CALL	POURABLE?,PRSO
+	ZERO?	STACK \?ELS7
+	CALL	TELL-YOU-CANT,STR?86
+	RTRUE	
+?ELS7:	EQUAL?	HERE,SHANTY \?ELS9
+	IN?	PRSO,TABLE-OBJECT /?ELS9
+	CALL	TELL-BUY-FIRST
+	RSTACK	
+?ELS9:	MOVE	PRSO,HERE
+	FSET	PRSO,NDESCBIT
+	PRINTR	"It evaporates immediately."
+
+
+	.FUNCT	V-POUR-IN,L
+	CALL	POURABLE?,PRSO
+	ZERO?	STACK \?ELS5
+	PRINTI	"I don't think you can pour "
+	CALL	APRINT,PRSO
+	PRINTI	"."
+	RTRUE	
+?ELS5:	FSET?	PRSI,CONTBIT /?ELS9
+	PRINTI	"You'd have a lot of trouble pouring the "
+	CALL	DPRINT,PRSO
+	PRINTI	" into "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+?ELS9:	CALL	TELL-WHY-BOTHER
+	RSTACK	
+
+
+	.FUNCT	V-POUR-ON
+	CALL	POURABLE?,PRSO
+	ZERO?	STACK /?ELS5
+	CALL	TELL-WHY-BOTHER
+	RSTACK	
+?ELS5:	CALL	TELL-YOU-CANT,STR?86
+	RSTACK	
+
+
+	.FUNCT	V-SHOW
+	ZERO?	PRSI \?ELS5
+	PRINTR	"Huh?"
+?ELS5:	EQUAL?	PRSI,ME,PLAYER \?ELS9
+	PRINTI	"Do you often talk to "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"?"
+?ELS9:	FSET?	PRSI,VICBIT /?ELS13
+	PRINTI	"Don't wait for "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	" to applaud."
+?ELS13:	EQUAL?	PRSI,PRSO \?ELS19
+	PRINTR	"He's already aware of his own presence."
+?ELS19:	PRINTI	"Although "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	" takes a look, he seems disinterested."
+
+
+	.FUNCT	PRE-SSHOW
+	SET	'P-MERGED,TRUE-VALUE
+	CALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOW
+	PRINTI	"Bug."
+	RTRUE	
+
+
+	.FUNCT	V-SPRAY
+	CALL	V-SQUEEZE
+	RSTACK	
+
+
+	.FUNCT	V-SSPRAY
+	CALL	PERFORM,V?SPRAY,PRSI,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-SQUEEZE
+	PRINTR	"How singularly useless."
+
+
+	.FUNCT	V-OIL
+	PRINTR	"That's not very useful."
+
+
+	.FUNCT	V-FILL
+	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	PRE-DRILL
+	ZERO?	PRSI \?CND1
+	SET	'PRSI,DRILL
+?CND1:	EQUAL?	PRSI,DRILL /?ELS8
+	CALL	PRE-BURN
+	RSTACK	
+?ELS8:	IN?	DRILL,PLAYER /FALSE
+	CALL	TELL-YOURE-NOT,STR?87
+	RSTACK	
+
+
+	.FUNCT	V-DRILL
+	CALL	TELL-YOU-CANT,STR?88
+	RSTACK	
+
+
+	.FUNCT	PRE-DRILL-IN
+	IN?	DRILL,PLAYER /?ELS5
+	PRINTR	"A drill might help."
+?ELS5:	EQUAL?	PRSO,HOLE-2,HOLE-1,HOLE /?THN10
+	EQUAL?	PRSO,CEILING-HOLE-2,CEILING-HOLE-1,JAGGED-HOLE /?THN10
+	EQUAL?	PRSO,FLOOR-HOLE-2,FLOOR-HOLE-1 \?ELS9
+?THN10:	PRINTI	"(with the "
+	CALL	DPRINT,DRILL
+	PRINTI	")"
+	CRLF	
+	CALL	PERFORM,V?DRILL,PRSI,DRILL
+	RTRUE	
+?ELS9:	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"I can't figure out what you mean."
+
+
+	.FUNCT	V-DRILL-IN
+	PRINTR	"Bug."
+
+
+	.FUNCT	PRE-DRINK
+	EQUAL?	WINNER,PLAYER /?ELS5
+	PRINTR	"""I'm not thirsty."""
+?ELS5:	FSET?	PRSO,DRINKBIT \?ELS9
+	FSET?	DEEP-SUIT,WORNBIT \?ELS14
+	CALL	TELL-IN-WAY
+	RSTACK	
+?ELS14:	FSET?	MASK,WORNBIT \FALSE
+	CALL	TELL-IN-WAY,FALSE-VALUE
+	RSTACK	
+?ELS9:	CALL	TELL-YOU-CANT,STR?89
+	RSTACK	
+
+
+	.FUNCT	V-DRINK
+	PRINTI	"I don't think "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" would go down very well."
+
+
+	.FUNCT	TELL-IN-WAY,HOOD?=1
+	PRINTI	"The "
+	ZERO?	HOOD? /?ELS5
+	PRINTI	"hood"
+	JUMP	?CND3
+?ELS5:	CALL	DPRINT,MASK
+?CND3:	PRINTR	" would get in the way."
+
+
+	.FUNCT	PRE-EAT
+	EQUAL?	WINNER,PLAYER /?ELS5
+	PRINTR	"""I'm not hungry."""
+?ELS5:	ZERO?	SOUPS-ON /?ELS9
+	FSET?	PRSO,FOODBIT \?ELS9
+	FSET?	DEEP-SUIT,WORNBIT \?ELS16
+	CALL	TELL-IN-WAY
+	RSTACK	
+?ELS16:	FSET?	MASK,WORNBIT \FALSE
+	CALL	TELL-IN-WAY,FALSE-VALUE
+	RSTACK	
+?ELS9:	EQUAL?	HERE,SHANTY \?ELS22
+	FSET?	PRSO,FOODBIT \?ELS22
+	PRINTR	"You'll have to buy it first."
+?ELS22:	FSET?	PRSO,DRINKBIT \FALSE
+	PRINTR	"Try drinking it."
+
+
+	.FUNCT	V-EAT
+	FSET?	PRSO,PERSON \?ELS5
+	PRINTR	"Cannibalism isn't a good idea. Especially when you're more likely to be the dinner than the diner."
+?ELS5:	PRINTI	"I don't think that "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" would agree with you."
+
+
+	.FUNCT	V-CURSES
+	ZERO?	PRSO /?ELS5
+	FSET?	PRSO,VICBIT \?ELS11
+	PRINTR	"Insults of this nature won't help you."
+?ELS11:	PRINTI	"And to think that "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" never said anything bad about you..."
+?ELS5:	PRINTR	"You really don't have to swear like a sailor."
+
+
+	.FUNCT	V-LISTEN
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTI	"If "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" says anything useful, I'll let you know."
+?ELS5:	CALL	START-SENTENCE,PRSO
+	PRINTR	" makes no sound."
+
+
+	.FUNCT	V-FOLLOW,CN,CHR,COR,PCOR,L
+	SET	'L-PRSO,PRSO
+	SET	'L-PRSA,PRSA
+	EQUAL?	WINNER,PLAYER /?ELS5
+	CALL	TELL-FREE-WILL
+	RETURN	2
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	PRINTR	"It's not clear whom you're talking to."
+?ELS9:	FSET?	PRSO,PERSON /?ELS13
+	EQUAL?	PRSO,DELIVERY-BOY /?ELS13
+	PRINTR	"That doesn't sound very exciting."
+?ELS13:	LOC	PRSO >L
+	EQUAL?	HERE,L \?ELS19
+	PRINTI	"You're in the same place as "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"!"
+?ELS19:	GETP	HERE,P?CORRIDOR >COR
+	ZERO?	COR /?ELS25
+	GETP	L,P?CORRIDOR >PCOR
+	ZERO?	PCOR /?ELS25
+	BAND	COR,PCOR
+	ZERO?	STACK /?ELS25
+	CALL	COR-DIR,HERE,L >PRSO
+	SET	'P-WALK-DIR,PRSO
+	CALL	V-WALK
+	RSTACK	
+?ELS25:	IN?	PRSO,FERRY \?ELS29
+	CALL	TELL-CANT-BOARD
+	RSTACK	
+?ELS29:	PRINTI	"You seem to have lost track of "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	TELL-FREE-WILL
+	PRINTR	"""I'll go where I want!"""
+
+
+	.FUNCT	V-STAY
+	EQUAL?	WINNER,PLAYER \?ELS5
+	PRINTR	"I'm not going anywhere."
+?ELS5:	CALL	TELL-FREE-WILL
+	RETURN	2
+
+
+	.FUNCT	V-PRAY
+	PRINTR	"If you pray enough, your prayers may be answered."
+
+
+	.FUNCT	V-LEAP,Z,S
+	ZERO?	PRSO /?ELS5
+	EQUAL?	PRSO,INTDIR /?ELS5
+	CALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?ELS5:	GETPT	HERE,P?DOWN >Z
+	ZERO?	Z /?ELS9
+	PTSIZE	Z >S
+	EQUAL?	S,2 /?THN15
+	EQUAL?	S,4 \?ELS14
+	GETB	Z,1
+	VALUE	STACK
+	ZERO?	STACK \?ELS14
+?THN15:	CALL	JIGS-UP,STR?90
+	RSTACK	
+?ELS14:	CALL	V-SKIP
+	RSTACK	
+?ELS9:	CALL	V-SKIP
+	RSTACK	
+
+
+	.FUNCT	V-SKIP
+	LOC	PLAYER
+	FSET?	STACK,VEHBIT \?ELS5
+	PRINTR	"That would be tough from your current position."
+?ELS5:	CALL	PICK-ONE,WHEEEEE
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-LEAVE
+	CALL	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-HELLO
+	ZERO?	PRSO /?ELS5
+	CALL	TELL-NO-RESPONSE
+	RSTACK	
+?ELS5:	CALL	PICK-ONE,HELLOS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-GOODBYE
+	CALL	V-HELLO
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-RESPONSE
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" fails to respond."
+
+
+	.FUNCT	PRE-READ
+	ZERO?	LIT \?ELS5
+	PRINTR	"It is impossible to read in the dark."
+?ELS5:	ZERO?	PRSI /FALSE
+	PRINTI	"How does one look through "
+	CALL	APRINT,PRSI
+	PRINTR	"?"
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT /?ELS5
+	PRINTI	"How can I read "
+	CALL	APRINT,PRSO
+	PRINTR	"?"
+?ELS5:	FSET	PRSO,TOUCHBIT
+	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-LOOK-UNDER
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTR	"His feet are on the floor."
+?ELS5:	EQUAL?	PRSO,LIGHTHOUSE,DRINK-OBJECT,FOOD /?THN10
+	EQUAL?	PRSO,OCEAN,GROUND,CLOSET \?ELS9
+?THN10:	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS9:	IN?	PRSO,PLAYER \?ELS15
+	PRINTR	"You have it."
+?ELS15:	CALL	TELL-NOTHING,STR?100
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS22
+	PRINTI	"seaweed"
+	JUMP	?CND20
+?ELS22:	EQUAL?	PRSO,FERRY,SALVAGER,TRAWLER /?THN27
+	EQUAL?	PRSO,GLOBAL-FERRY \?ELS26
+?THN27:	PRINTI	"water"
+	JUMP	?CND20
+?ELS26:	PRINTI	"dust"
+?CND20:	PRINTR	" there."
+
+
+	.FUNCT	V-LOOK-BEHIND
+	CALL	TELL-NOTHING,STR?101
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	TELL-NOTHING,STR,DONE?=0
+	PRINTI	"There's nothing "
+	PRINT	STR
+	ZERO?	DONE? /FALSE
+	PRINTR	"."
+
+
+	.FUNCT	PRE-LOOK-IN
+	FSET?	PRSO,SURFACEBIT \FALSE
+	PRINTR	"It's solid."
+
+
+	.FUNCT	PRE-LOOK-ON
+	FSET?	PRSO,CONTBIT \FALSE
+	FSET?	PRSO,SURFACEBIT /FALSE
+	CALL	TELL-NOTHING,STR?102
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-INSIDE,REACH?=0
+	FSET?	PRSO,DOORBIT \?ELS5
+	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	PRINTI	" is "
+	FSET?	PRSO,OPENBIT \?ELS10
+	PRINTI	"open, but you can't tell what's beyond it"
+	JUMP	?CND8
+?ELS10:	PRINTI	"closed"
+?CND8:	PRINTR	"."
+?ELS5:	FSET?	PRSO,CONTBIT \?ELS20
+	FSET?	PRSO,VICBIT \?ELS25
+	CALL	TELL-NOTHING,STR?103
+	ZERO?	REACH? /?ELS28
+	PRINTI	"felt"
+	JUMP	?CND26
+?ELS28:	PRINTI	"seen"
+?CND26:	PRINTR	"."
+?ELS25:	CALL	SEE-INSIDE?,PRSO
+	ZERO?	STACK /?ELS39
+	FIRST?	PRSO \?ELS44
+	CALL	PRINT-CONT,PRSO
+	ZERO?	STACK \TRUE
+?ELS44:	FSET?	PRSO,WORNBIT \?ELS48
+	PRINTR	"You're wearing it."
+?ELS48:	FSET?	PRSO,SURFACEBIT \?ELS52
+	IN?	WINNER,PRSO \?ELS57
+	PRINTR	"You're on it!"
+?ELS57:	CALL	TELL-NOTHING,STR?104
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS52:	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	PRINTR	" is empty."
+?ELS39:	CALL	TELL-CLOSED,PRSO,FALSE-VALUE
+	RSTACK	
+?ELS20:	PRINTR	"I don't know how to do that."
+
+
+	.FUNCT	SEE-INSIDE?,OBJ
+	FSET?	OBJ,INVISIBLE /FALSE
+	FSET?	OBJ,OPENBIT /TRUE
+	FSET?	OBJ,TRANSBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	PRE-BURN
+	ZERO?	PRSI \?ELS5
+	PRINTR	"Huh?"
+?ELS5:	PRINTI	"With "
+	CALL	APRINT,PRSI
+	PRINTR	"??!?"
+
+
+	.FUNCT	V-BURN
+	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	PRE-TURN
+	EQUAL?	PRSO,NOT-HERE-OBJECT /FALSE
+	EQUAL?	PRSO,PSEUDO-OBJECT \?ELS7
+	EQUAL?	HERE,MM-WHEELHOUSE,NW-WHEELHOUSE /FALSE
+?ELS7:	FSET?	PRSO,TURNBIT /?ELS11
+	CALL	TELL-WHY-BOTHER
+	RSTACK	
+?ELS11:	ZERO?	PRSI /FALSE
+	EQUAL?	PRSI,INTDIR \FALSE
+	CALL	TELL-YOU-CANT,STR?105
+	RSTACK	
+
+
+	.FUNCT	V-TURN
+	CALL	TELL-NO-EFFECT
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-EFFECT
+	PRINTR	"This has no effect."
+
+
+	.FUNCT	V-PUMP
+	PRINTR	"I really don't see how."
+
+
+	.FUNCT	V-INFLATE
+	CALL	TELL-HOW-THAT,STR?106
+	RSTACK	
+
+
+	.FUNCT	V-DEFLATE
+	PRINTR	"Come on, now!"
+
+
+	.FUNCT	V-LOCK
+	PRINTR	"It doesn't seem to work."
+
+
+	.FUNCT	V-PICK
+	CALL	TELL-YOU-CANT,STR?107
+	RSTACK	
+
+
+	.FUNCT	PRE-UNLOCK
+	EQUAL?	PRSO,SAFE /FALSE
+	ZERO?	PRSI \FALSE
+	IN?	KEY,PLAYER \FALSE
+	SET	'PRSI,KEY
+	PRINTI	"(with the room key)"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	V-UNLOCK
+	FSET?	PRSO,DOORBIT \?ELS5
+	PRINTR	"It's not locked."
+?ELS5:	CALL	V-LOCK
+	RSTACK	
+
+
+	.FUNCT	V-CUT
+	ZERO?	PRSI \?ELS5
+	PRINTR	"Huh?"
+?ELS5:	FSET?	PRSI,WEAPONBIT /?ELS9
+	PRINTI	"Not with "
+	CALL	APRINT,PRSI
+	PRINTR	"!"
+?ELS9:	FSET?	PRSO,VICBIT /?THN14
+	EQUAL?	PRSO,SQUID \?ELS13
+?THN14:	CALL	IKILL,STR?108
+	RSTACK	
+?ELS13:	PRINTI	"Strange concept, cutting "
+	CALL	APRINT,PRSO
+	PRINTR	"..."
+
+
+	.FUNCT	V-KILL
+	CALL	IKILL,STR?109
+	RSTACK	
+
+
+	.FUNCT	IKILL,STR
+	ZERO?	PRSO \?ELS5
+	CALL	TELL-NOTHING,STR?110
+	PRINT	STR
+	PRINTR	"."
+?ELS5:	EQUAL?	PRSO,SQUID \?ELS9
+	CALL	JIGS-UP,STR?111
+	RSTACK	
+?ELS9:	FSET?	PRSO,VICBIT /?ELS11
+	PRINTI	"I've known strange people, but fighting "
+	CALL	APRINT,PRSO
+	PRINTR	"?"
+?ELS11:	ZERO?	PRSI /?THN16
+	EQUAL?	PRSI,GLOBAL-SELF,ME \?ELS15
+?THN16:	PRINTI	"Trying to "
+	PRINT	STR
+	PRINTI	" "
+	CALL	APRINT,PRSO
+	PRINTR	" with your bare hands is suicidal."
+?ELS15:	IN?	PRSI,WINNER /?ELS21
+	PRINTI	"You aren't even holding "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+?ELS21:	FSET?	PRSI,WEAPONBIT /?ELS27
+	PRINTI	"Trying to "
+	PRINT	STR
+	PRINTI	" "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	" with "
+	CALL	APRINT,PRSI
+	PRINTR	" is suicidal."
+?ELS27:	CALL	TELL-NOT-SMART
+	RSTACK	
+
+
+	.FUNCT	V-ATTACK
+	CALL	IKILL,STR?112
+	RSTACK	
+
+
+	.FUNCT	V-SWING
+	CALL	HELD?,PRSO
+	ZERO?	STACK \?ELS5
+	CALL	TELL-YOURE-NOT,STR?113
+	RSTACK	
+?ELS5:	PRINTR	"Whoosh!"
+
+
+	.FUNCT	V-KICK
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	TELL-NOT-SMART
+	RSTACK	
+?ELS5:	CALL	HACK-HACK,STR?114
+	RSTACK	
+
+
+	.FUNCT	TELL-NOT-SMART
+	PRINTR	"That wouldn't be too smart."
+
+
+	.FUNCT	V-WAVE
+	CALL	HACK-HACK,STR?115
+	RSTACK	
+
+
+	.FUNCT	V-WAVE-AT
+	ZERO?	PRSO /?ELS5
+	FSET?	PRSO,VICBIT \?ELS5
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" acknowledges your greeting."
+?ELS5:	CALL	TELL-NO-RESPONSE
+	RSTACK	
+
+
+	.FUNCT	V-LOWER
+	CALL	HACK-HACK,STR?116
+	RSTACK	
+
+
+	.FUNCT	V-RUB
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	TELL-HANDS-OFF
+	RSTACK	
+?ELS5:	CALL	HACK-HACK,STR?117
+	RSTACK	
+
+
+	.FUNCT	TELL-HANDS-OFF
+	PRINTR	"""Get your hands off me!"""
+
+
+	.FUNCT	V-PUSH
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	TELL-HANDS-OFF
+	RSTACK	
+?ELS5:	IN?	WINNER,PRSO \?ELS7
+	CALL	TELL-CONTORT
+	RSTACK	
+?ELS7:	FSET?	PRSO,PUSHBIT \?ELS9
+	CALL	TELL-MOVES-BIT
+	RSTACK	
+?ELS9:	CALL	HACK-HACK,STR?118
+	RSTACK	
+
+
+	.FUNCT	TELL-MOVES-BIT
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" moves a bit."
+
+
+	.FUNCT	V-PUSH-OFF
+	FSET?	PRSI,SURFACEBIT \?ELS5
+	IN?	PRSO,PRSI \?ELS5
+	LOC	PRSI
+	MOVE	PRSO,STACK
+	CALL	TELL-NOW,PRSO,STR?119
+	RSTACK	
+?ELS5:	PRINTR	"A ludicrous idea at best."
+
+
+	.FUNCT	V-PUSH-TO,FALLEN=0,OH,F
+	IN?	WINNER,PRSO \?ELS5
+	CALL	TELL-CONTORT
+	RSTACK	
+?ELS5:	FSET?	PRSO,PUSHBIT /?ELS7
+	FSET?	PRSO,TAKEBIT \?ELS12
+	PRINTR	"There's no need for that. Why not just pick it up and then carry it there?"
+?ELS12:	EQUAL?	PRSO,ME \?ELS16
+	PRINTR	"Do it yourself."
+?ELS16:	FSET?	PRSO,VICBIT \?ELS20
+	CALL	TELL-HANDS-OFF
+	RSTACK	
+?ELS20:	PRINTI	"You push and strain, but can't budge "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS7:	EQUAL?	PRSI,INTDIR /?ELS28
+	CALL	TELL-YOU-CANT,STR?120
+	RTRUE	
+?ELS28:	SET	'OH,HERE
+	ZERO?	OH /FALSE
+	CALL	DO-WALK,P-WALK-DIR
+	EQUAL?	STACK,M-FATAL /FALSE
+?PRG33:	FIRST?	PRSO >F \?REP34
+	MOVE	F,OH
+	SET	'FALLEN,TRUE-VALUE
+	JUMP	?PRG33
+?REP34:	MOVE	PRSO,HERE
+	FSET	PRSO,TOUCHBIT
+	PRINTI	"You bring the "
+	CALL	DPRINT,PRSO
+	PRINTI	" along with you."
+	ZERO?	FALLEN /?CND42
+	CALL	TELL-ALL-FALL
+?CND42:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	TELL-CONTORT
+	PRINTR	"That would require some impressive contortions."
+
+
+	.FUNCT	TELL-ALL-FALL
+	PRINTI	" Everything that was on it falls off."
+	RTRUE	
+
+
+	.FUNCT	PRE-CHIP
+	GET	P-VTBL,0
+	EQUAL?	STACK,W?CHIP \?ELS3
+	IN?	SPEAR-CARRIER,HERE \?ELS3
+	EQUAL?	PRSO,INTNUM \?ELS3
+	ZERO?	P-DOLLAR-FLAG /?ELS3
+	CALL	PERFORM,V?GIVE,PRSO,SPEAR-CARRIER
+	RTRUE	
+?ELS3:	CALL	PERFORM,V?MUNG,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-CHIP
+	PRINTR	"Bug."
+
+
+	.FUNCT	PRE-MUNG
+	EQUAL?	PRSO,WINNER,ME,NOT-HERE-OBJECT /FALSE
+	EQUAL?	PRSO,MIRROR,GLOBAL-BANK,ADVENTURER /FALSE
+	ZERO?	PRSI /?ELS7
+	FSET?	PRSI,WEAPONBIT /FALSE
+?ELS7:	FSET?	PRSO,VICBIT /?CND1
+	EQUAL?	PRSO,SQUID /?CND1
+	CALL	HACK-HACK,STR?121
+	RTRUE	
+?CND1:	PRINTI	"Trying to destroy "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	" with "
+	ZERO?	PRSI \?ELS20
+	PRINTI	"your bare hands is suicidal"
+	JUMP	?CND18
+?ELS20:	CALL	APRINT,PRSI
+	PRINTI	" is insane"
+?CND18:	PRINTR	"."
+
+
+	.FUNCT	V-MUNG
+	FSET?	PRSO,VICBIT /?THN6
+	EQUAL?	PRSO,SQUID \?ELS5
+?THN6:	CALL	IKILL,STR?112
+	RSTACK	
+?ELS5:	PRINTR	"Nothing much happens."
+
+
+	.FUNCT	HACK-HACK,STR
+	IN?	PRSO,GLOBAL-OBJECTS \?ELS5
+	EQUAL?	PRSA,V?LOWER,V?WAVE \?ELS5
+	PRINTI	"Unfortunately, "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" isn't here."
+?ELS5:	PRINT	STR
+	PRINTI	" "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	CALL	PICK-ONE,HO-HUM
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-KNOCK
+	FSET?	PRSO,DOORBIT \?ELS5
+	CALL	TELL-NO-ANSWER
+	RSTACK	
+?ELS5:	PRINTI	"Why knock on "
+	CALL	APRINT,PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-CHOMP
+	PRINTR	"I don't know how to do that. I win in all cases!"
+
+
+	.FUNCT	V-WIN
+	PRINTR	"Naturally!"
+
+
+	.FUNCT	V-YELL
+	ZERO?	PRSO /?ELS5
+	PRINTR	"You could be more polite and lower your voice."
+?ELS5:	PRINTR	"Aarrrrrgggggggghhhhhhhhhhh!"
+
+
+	.FUNCT	V-PLUG
+	CALL	TELL-NO-EFFECT
+	RSTACK	
+
+
+	.FUNCT	V-LATITUDE,LAT=1,STR,NEW=0
+	ZERO?	LAT /?ELS3
+	SET	'STR,STR?126
+	JUMP	?CND1
+?ELS3:	SET	'STR,STR?127
+?CND1:	EQUAL?	WINNER,PLAYER \?ELS11
+	PRINTI	"Why don't you tell someone who cares?"
+	CRLF	
+	RETURN	2
+?ELS11:	LESS?	MEETINGS-COMPLETED,2 \?ELS17
+	CALL	START-SENTENCE,WINNER
+	PRINTI	" looks bewildered. ""What does that have to do with anything?"" he asks."
+	CRLF	
+	RETURN	2
+?ELS17:	EQUAL?	WINNER,JOHNNY /?ELS23
+	CALL	START-SENTENCE,WINNER
+	PRINTI	" says, ""That's nice. Why don't you let the captain know?"""
+	CRLF	
+	RETURN	2
+?ELS23:	EQUAL?	PRSO,INTNUM /?ELS29
+	PRINTI	"Johnny looks at you strangely. ""What kind of a "
+	PRINT	STR
+	PRINTR	" is that?"""
+?ELS29:	GRTR?	P-NUMBER,59 \?ELS33
+	PRINTR	"""There are 60 minutes in a degree."""
+?ELS33:	ZERO?	LAT /?ELS40
+	ZERO?	LATITUDE-SET /?CND42
+	EQUAL?	LATITUDE-SET,P-NUMBER \?ELS48
+	SET	'NEW,M-FATAL
+	JUMP	?CND42
+?ELS48:	SET	'NEW,TRUE-VALUE
+?CND42:	SET	'LATITUDE-SET,P-NUMBER
+	JUMP	?CND38
+?ELS40:	ZERO?	LONGITUDE-SET /?CND53
+	EQUAL?	LONGITUDE-SET,P-NUMBER \?ELS59
+	SET	'NEW,M-FATAL
+	JUMP	?CND53
+?ELS59:	SET	'NEW,TRUE-VALUE
+?CND53:	SET	'LONGITUDE-SET,P-NUMBER
+?CND38:	EQUAL?	NEW,M-FATAL \?ELS66
+	CALL	TELL-YOU-ALREADY,STR?128,TRUE-VALUE
+	RSTACK	
+?ELS66:	ZERO?	NEW /?ELS68
+	PRINTI	"""Now the "
+	PRINT	STR
+	PRINTI	" is "
+	PRINTN	P-NUMBER
+	PRINTR	", huh?"""
+?ELS68:	PRINTI	"""Okay. The "
+	PRINT	STR
+	PRINTI	" is "
+	PRINTN	P-NUMBER
+	PRINTR	"."""
+
+
+	.FUNCT	V-LONGITUDE
+	CALL	V-LATITUDE,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-EMPTY,X
+	FSET?	PRSO,CONTBIT /?ELS5
+	CALL	TELL-YOU-CANT,STR?129
+	RSTACK	
+?ELS5:	FSET?	PRSO,OPENBIT /?ELS7
+	CALL	TELL-YOU-CANT,STR?130
+	RSTACK	
+?ELS7:	FIRST?	PRSO \?ELS9
+?PRG10:	FIRST?	PRSO >X \?REP11
+	MOVE	X,HERE
+	JUMP	?PRG10
+?REP11:	CALL	TELL-NOW,PRSO,STR?131
+	RSTACK	
+?ELS9:	CALL	TELL-NOTHING,STR?132
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-SHAKE,X
+	FSET?	PRSO,VICBIT \?ELS5
+	CALL	TELL-NO-EFFECT
+	RSTACK	
+?ELS5:	FSET?	PRSO,TAKEBIT /?ELS7
+	CALL	TELL-YOU-CANT,STR?133
+	RSTACK	
+?ELS7:	FSET?	PRSO,OPENBIT /?ELS9
+	FIRST?	PRSO \?ELS9
+	PRINTI	"It sounds as if there is something inside the "
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS9:	FSET?	PRSO,OPENBIT \?ELS15
+	FIRST?	PRSO \?ELS15
+?PRG18:	FIRST?	PRSO >X \?REP19
+	MOVE	X,HERE
+	JUMP	?PRG18
+?REP19:	PRINTI	"All of the objects spill onto the "
+	CALL	SPILL-WHERE?
+	RSTACK	
+?ELS15:	CALL	TELL-NOTHING,STR?132
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	SPILL-WHERE?
+	IN?	WINNER,BED \?ELS3
+	PRINTI	"floor by your bed."
+	JUMP	?CND1
+?ELS3:	GETP	HERE,P?LINE
+	GRTR?	STACK,BACK-ALLEY-LINE-C \?ELS7
+	PRINTI	"deck by your feet."
+	JUMP	?CND1
+?ELS7:	PRINTI	"floor."
+?CND1:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-DIAGNOSE
+	PRINTI	"You are "
+	GRTR?	HOW-HUNGRY,3 \?ELS5
+	PRINTI	"extremely"
+	JUMP	?CND3
+?ELS5:	ZERO?	HOW-HUNGRY \?ELS9
+	PRINTI	"not"
+	JUMP	?CND3
+?ELS9:	EQUAL?	HOW-HUNGRY,1 \?ELS13
+	PRINTI	"a bit"
+	JUMP	?CND3
+?ELS13:	EQUAL?	HOW-HUNGRY,2 \?ELS17
+	PRINTI	"pretty"
+	JUMP	?CND3
+?ELS17:	EQUAL?	HOW-HUNGRY,3 \?CND3
+	PRINTI	"very"
+?CND3:	PRINTI	" hungry, "
+	ZERO?	HOW-THIRSTY \?ELS28
+	PRINTI	"not thirsty"
+	JUMP	?CND26
+?ELS28:	EQUAL?	HOW-THIRSTY,1 \?ELS32
+	PRINTI	"a little thirsty"
+	JUMP	?CND26
+?ELS32:	EQUAL?	HOW-THIRSTY,2 \?ELS36
+	PRINTI	"fairly thirsty"
+	JUMP	?CND26
+?ELS36:	EQUAL?	HOW-THIRSTY,3 \?ELS40
+	PRINTI	"very thirsty"
+	JUMP	?CND26
+?ELS40:	GRTR?	HOW-THIRSTY,3 \?CND26
+	PRINTI	"utterly parched"
+?CND26:	PRINTI	", and "
+	ZERO?	HOW-TIRED \?ELS51
+	PRINTI	"half-awake"
+	JUMP	?CND49
+?ELS51:	LESS?	HOW-TIRED,3 \?ELS55
+	PRINTI	"wide-awake"
+	JUMP	?CND49
+?ELS55:	EQUAL?	HOW-TIRED,3 \?ELS59
+	PRINTI	"a bit drowsy"
+	JUMP	?CND49
+?ELS59:	EQUAL?	HOW-TIRED,4 \?ELS63
+	PRINTI	"fairly tired"
+	JUMP	?CND49
+?ELS63:	EQUAL?	HOW-TIRED,5 \?ELS67
+	PRINTI	"very sleepy"
+	JUMP	?CND49
+?ELS67:	EQUAL?	HOW-TIRED,6 \?CND49
+	PRINTI	"dead on your feet"
+?CND49:	PRINTR	"."
+
+
+	.FUNCT	PRE-DIG
+	EQUAL?	PRSO,NOT-HERE-OBJECT /FALSE
+	ZERO?	PRSI \?ELS7
+	PRINTR	"Huh?"
+?ELS7:	FSET?	PRSI,TOOLBIT /FALSE
+	PRINTI	"Digging with "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	" is very silly."
+
+
+	.FUNCT	V-AIM
+	PRINTR	"That would be pointless."
+
+
+	.FUNCT	V-DIG
+	CALL	TELL-YOU-CANT,STR?134
+	RSTACK	
+
+
+	.FUNCT	PRE-SMELL
+	FSET?	MASK,WORNBIT /?THN6
+	FSET?	DEEP-SUIT,WORNBIT \FALSE
+?THN6:	CALL	TELL-YOU-CANT,STR?135
+	RSTACK	
+
+
+	.FUNCT	V-SMELL
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTR	"Nothing a good deodorant couldn't fix."
+?ELS5:	PRINTI	"It smells just like "
+	CALL	APRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,Z
+	GETPT	OBJ2,P?GLOBAL >Z
+	ZERO?	Z /FALSE
+	PTSIZE	Z
+	SUB	STACK,1
+	CALL	ZMEMQB,OBJ1,Z,STACK
+	RSTACK	
+
+
+	.FUNCT	V-SWIM
+	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS5
+	EQUAL?	PRSO,INTDIR \?ELS10
+	CALL	DO-WALK,P-WALK-DIR
+	RSTACK	
+?ELS10:	CALL	TELL-SHD-DIR
+	RSTACK	
+?ELS5:	PRINTR	"I think you're all wet."
+
+
+	.FUNCT	V-DIVE
+	ZERO?	PRSO /?ELS5
+	EQUAL?	PRSO,OCEAN /?ELS5
+	PRINTR	"This isn't a circus!"
+?ELS5:	GETP	HERE,P?LINE
+	EQUAL?	STACK,UNDERWATER-LINE-C \?ELS11
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?ELS11:	LOC	PLAYER
+	CALL	GLOBAL-IN?,OCEAN,STACK
+	ZERO?	STACK /?ELS13
+	EQUAL?	HERE,MM-WHEELHOUSE,NW-WHEELHOUSE /?ELS13
+	GETP	HERE,P?LINE
+	LESS?	STACK,TRAWLER-LINE-C \?ELS20
+	EQUAL?	HERE,FERRY-LANDING,WHARF /?ELS20
+	CALL	PERFORM,V?BOARD,OCEAN
+	RTRUE	
+?ELS20:	FSET?	DEEP-SUIT,WORNBIT /?ELS24
+	FSET?	WET-SUIT,WORNBIT \?THN27
+	IN?	AIR-TANK,PLAYER \?THN27
+	FSET?	MASK,WORNBIT \?THN27
+	FSET?	FLIPPERS,WORNBIT /?ELS24
+?THN27:	CALL	JIGS-UP,STR?136
+	RSTACK	
+?ELS24:	FSET?	DEEP-SUIT,WORNBIT \?ELS30
+	IN?	AIR-HOSE,DEEP-SUIT \?THN33
+	FSET?	MM-COMPRESSOR,ONBIT /?ELS30
+?THN33:	CALL	JIGS-UP,STR?137
+	RSTACK	
+?ELS30:	ZERO?	AT-SEA \?ELS36
+	CALL	JIGS-UP,STR?138
+	RSTACK	
+?ELS36:	EQUAL?	OCEAN-BOTTOM,50 \?ELS41
+	SET	'HERE,OCEAN-FLOOR
+	MOVE	PLAYER,OCEAN-FLOOR
+	JUMP	?CND39
+?ELS41:	MOVE	PLAYER,UNDERWATER
+	SET	'HERE,UNDERWATER
+	CALL	UNDERWATER-F,M-ENTER
+?CND39:	FCLEAR	OCEAN,VEHBIT
+	CALL	INT,I-ENDIT
+	PUT	STACK,0,0
+	SET	'DEPTH,50
+	IN?	PASSBOOK,PLAYER \?CND44
+	FSET	PASSBOOK,RMUNGBIT
+?CND44:	IN?	DIVING-BOOK,PLAYER \?CND47
+	FSET	DIVING-BOOK,RMUNGBIT
+?CND47:	IN?	NOTE,PLAYER \?CND50
+	FSET	NOTE,RMUNGBIT
+?CND50:	IN?	BOOK,PLAYER \?CND53
+	FSET	BOOK,RMUNGBIT
+?CND53:	IN?	ENVELOPE,PLAYER \?CND56
+	FSET	ENVELOPE,RMUNGBIT
+?CND56:	IN?	BATTERY,PLAYER /?THN62
+	IN?	BATTERY,DRILL \?CND59
+	FSET?	DRILL,OPENBIT \?CND59
+?THN62:	FSET	BATTERY,RMUNGBIT
+	SET	DRILL-POWERED,FALSE-VALUE
+?CND59:	IN?	DRY-CELL,PLAYER /?THN69
+	IN?	DRY-CELL,DETECTOR-COMPARTMENT \?CND66
+	FSET?	DETECTOR-COMPARTMENT,OPENBIT \?CND66
+?THN69:	FSET	DRY-CELL,RMUNGBIT
+	SET	DETECTOR-POWERED,FALSE-VALUE
+?CND66:	IN?	AIR-TANK,PLAYER \?ELS75
+	FSET?	DEEP-SUIT,WORNBIT /?ELS75
+	CALL	QUEUE,I-AIR-SUPPLY,-1
+	PUT	STACK,0,1
+	JUMP	?CND73
+?ELS75:	CALL	INT,I-MM-COMPRESSOR
+	GET	STACK,C-TICK
+	GRTR?	STACK,0 \?ELS79
+	CALL	INT,I-MM-COMPRESSOR
+	PUT	STACK,0,1
+	JUMP	?CND73
+?ELS79:	CALL	INT,I-LAST-GASP
+	PUT	STACK,0,1
+?CND73:	CALL	V-LOOK
+	RSTACK	
+?ELS13:	PRINTR	"Consulting your years of experience, you come to the conclusion that the lack of water here would make this a lousy place to try diving."
+
+
+	.FUNCT	V-UNTIE
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	PRINTR	"This cannot be tied, so it cannot be untied!"
+
+
+	.FUNCT	PRE-TIE
+	EQUAL?	PRSO,AIR-HOSE /FALSE
+	EQUAL?	PRSO,ROPE,SAFETY-LINE /?ELS7
+	EQUAL?	PRSI,ROPE,SAFETY-LINE /?ELS7
+	PRINTR	"Even if I knew how to do that, I wouldn't."
+?ELS7:	EQUAL?	PRSI,WINNER /?THN14
+	EQUAL?	PRSO,WINNER \FALSE
+?THN14:	CALL	TELL-YOU-CANT,STR?139
+	RSTACK	
+
+
+	.FUNCT	V-TIE
+	PRINTR	"Don't bother."
+
+
+	.FUNCT	V-TIE-UP
+	PRINTR	"You could certainly never tie it with that!"
+
+
+	.FUNCT	V-MELT
+	PRINTI	"I'm not sure that "
+	CALL	APRINT,PRSO
+	PRINTR	" can be melted."
+
+
+	.FUNCT	V-MUMBLE
+	PRINTR	"You'll have to speak up if you expect me to hear you!"
+
+
+	.FUNCT	V-ALARM
+	EQUAL?	PRSO,ROOMS \?ELS9
+	EQUAL?	WINNER,PLAYER \?THN6
+?ELS9:	FSET?	PRSO,VICBIT \?ELS5
+	EQUAL?	PRSO,ME /?ELS5
+?THN6:	PRINTR	"He's wide awake, or haven't you noticed?"
+?ELS5:	EQUAL?	PRSO,ROOMS \?ELS15
+	PRINTR	"You're already awake."
+?ELS15:	CALL	START-SENTENCE,PRSO
+	PRINTR	" isn't sleeping."
+
+
+	.FUNCT	V-CLIMB-ON
+	FSET?	PRSO,CLIMBBIT /?THN6
+	FSET?	PRSO,VEHBIT \?ELS5
+?THN6:	CALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?ELS5:	CALL	TELL-YOU-CANT,STR?140,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-CLIMB-FOO
+	EQUAL?	PRSO,ROOMS \?ELS5
+	CALL	V-CLIMB-UP
+	RSTACK	
+?ELS5:	FSET?	PRSO,CLIMBBIT /?ELS7
+	FSET?	PRSO,VEHBIT /?ELS7
+	CALL	TELL-YOU-CANT,STR?141,FALSE-VALUE
+	CALL	APRINT,PRSO
+	PRINTI	"!"
+	CRLF	
+	RETURN	2
+?ELS7:	CALL	V-CLIMB-UP,P?UP,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-UP,DIR=P?UP,OBJ=0,X,?TMP1
+	GETPT	HERE,DIR
+	ZERO?	STACK /?ELS5
+	CALL	DO-WALK,DIR
+	RTRUE	
+?ELS5:	ZERO?	OBJ \?ELS7
+	CALL	TELL-NO-GO,TRUE-VALUE
+	RSTACK	
+?ELS7:	ZERO?	OBJ /?ELS9
+	GETPT	PRSO,P?SYNONYM >X
+	PTSIZE	X
+	CALL	ZMEMQ,W?WALLS,X,STACK
+	ZERO?	STACK /?ELS9
+	PRINTR	"Climbing the walls is to no avail."
+?ELS9:	PRINTR	"Bizarre!"
+
+
+	.FUNCT	V-CLIMB-DOWN
+	CALL	V-CLIMB-UP,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	V-SEND
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTI	"I doubt that "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" is at your beck and call."
+?ELS5:	PRINTR	"That doesn't make sends."
+
+
+	.FUNCT	V-WIND
+	PRINTI	"You cannot wind up "
+	CALL	APRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-COUNT
+	PRINTR	"I can't deal with those numbers."
+
+
+	.FUNCT	PRE-BRACE
+	CALL	PERFORM,V?PUT-UNDER,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-BRACE
+	PRINTR	"Bug."
+
+
+	.FUNCT	V-PUT-UNDER
+	FSET?	PRSI,DOORBIT \?ELS5
+	GETP	PRSO,P?SIZE
+	LESS?	STACK,5 \?ELS5
+	FSET?	PRSI,OPENBIT \?ELS12
+	CALL	TELL-WHY-BOTHER
+	RSTACK	
+?ELS12:	CALL	IDROP
+	ZERO?	STACK /FALSE
+	CALL	OTHER-SIDE,PRSI,TRUE-VALUE
+	MOVE	PRSO,STACK
+	PRINTR	"Done."
+?ELS5:	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	V-PUSH-UNDER
+	FSET?	PRSO,TAKEBIT /?THN6
+	FSET?	PRSO,PUSHBIT \?ELS5
+?THN6:	CALL	PERFORM,V?PUT-UNDER,PRSO,PRSI
+	RTRUE	
+?ELS5:	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	V-PLAY
+	FSET?	PRSO,VICBIT \?ELS5
+	PRINTI	"You are so engrossed in the role of "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	CALL	JIGS-UP,STR?142
+	RSTACK	
+?ELS5:	PRINTR	"How peculiar!"
+
+
+	.FUNCT	V-MAKE
+	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	V-ENTER
+	EQUAL?	HERE,WINDING-ROAD-1 \?ELS5
+	CALL	PERFORM,V?THROUGH,LIGHTHOUSE
+	RTRUE	
+?ELS5:	CALL	DO-WALK,P?IN
+	RSTACK	
+
+
+	.FUNCT	V-EXIT
+	CALL	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-CROSS
+	CALL	TELL-YOU-CANT,STR?143
+	RSTACK	
+
+
+	.FUNCT	V-SEARCH
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" glares at you. ""Get away from me!"" he growls."
+?ELS5:	FSET?	PRSO,CONTBIT \?ELS9
+	CALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?ELS9:	PRINTR	"You find nothing unusual."
+
+
+	.FUNCT	V-FIND,L
+	LOC	PRSO >L
+	EQUAL?	WINNER,PLAYER /?ELS5
+	PRINTI	"""Find "
+	FSET?	PRSO,VICBIT \?ELS10
+	PRINTI	"him "
+	JUMP	?CND8
+?ELS10:	PRINTI	"it "
+?CND8:	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."""
+?ELS5:	EQUAL?	L,GLOBAL-OBJECTS \?ELS20
+	PRINTI	"Why don't you try finding it "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"?"
+?ELS20:	IN?	PRSO,WINNER \?ELS24
+	PRINTR	"You have it."
+?ELS24:	IN?	PRSO,HERE /?THN29
+	EQUAL?	PRSO,PSEUDO-OBJECT \?ELS28
+?THN29:	FSET?	PRSO,VICBIT \?ELS33
+	PRINTI	"He's"
+	JUMP	?CND31
+?ELS33:	PRINTI	"It's"
+?CND31:	PRINTR	" right here."
+?ELS28:	IN?	L,HERE /?THN44
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?ELS43
+?THN44:	FSET?	L,PERSON \?ELS50
+	PRINTI	"You notice that "
+	CALL	DPRINT,L
+	PRINTR	" has it."
+?ELS50:	FSET?	L,CONTBIT \?ELS54
+	PRINTI	"It's "
+	CALL	VEHPREP,L
+	PRINT	STACK
+	PRINTI	" the "
+	CALL	DPRINT,L
+	PRINTR	"."
+?ELS54:	EQUAL?	L,FERRY \?ELS58
+	PRINTR	"He's on the ferry."
+?ELS58:	PRINTR	"It's around here somewhere."
+?ELS43:	PRINTI	"Find "
+	FSET?	PRSO,VICBIT \?ELS71
+	PRINTI	"him"
+	JUMP	?CND69
+?ELS71:	PRINTI	"it"
+?CND69:	PRINTI	" "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."
+
+
+	.FUNCT	PRE-TELL
+	ZERO?	PRSI /?ELS5
+	EQUAL?	PRSO,ME,PLAYER \?ELS5
+	EQUAL?	WINNER,PLAYER /?ELS10
+	SET	'PRSA,V?ASK-ABOUT
+	CALL	PERFORM,V?ASK-ABOUT,WINNER,PRSI
+	RTRUE	
+?ELS10:	SET	'PRSA,V?ASK-CONTEXT-ABOUT
+	CALL	PERFORM,V?ASK-CONTEXT-ABOUT,PRSI
+	RTRUE	
+?ELS5:	ZERO?	PRSI \FALSE
+	FSET?	PRSO,VICBIT /FALSE
+	CALL	TELL-NO-TELL
+	RSTACK	
+
+
+	.FUNCT	V-TELL
+	ZERO?	PRSI /?ELS5
+	FSET?	PRSO,PERSON \?ELS11
+	CALL	START-SENTENCE,PRSO
+	PRINTR	" seems less than impressed with this information."
+?ELS11:	FSET?	PRSO,VICBIT /?THN16
+	EQUAL?	PRSO,SQUID \?ELS15
+?THN16:	PRINTI	"The "
+	CALL	DPRINT,PRSO
+	PRINTR	" ignores what you have to say."
+?ELS15:	CALL	TELL-NO-RESPONSE
+	RSTACK	
+?ELS5:	EQUAL?	WINNER,PLAYER \?ELS23
+	EQUAL?	PRSO,ME,WINNER \?ELS23
+	PRINTI	"Talking to "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTI	" is diverting, but unnecessary."
+	CRLF	
+	RETURN	2
+?ELS23:	EQUAL?	PRSO,PLAYER,ME \?ELS31
+	PRINTI	"""What in the world are you trying to say?"""
+	CRLF	
+	RETURN	2
+?ELS31:	FSET?	PRSO,VICBIT \?ELS37
+	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?ELS40
+	CALL	GLOBAL-NOT-HERE-PRINT,PRSO
+	RETURN	2
+?ELS40:	EQUAL?	WINNER,PLAYER /?CND38
+	ZERO?	P-CONT \?CND38
+	PRINTI	"""I'll talk to whoever I want."""
+	CRLF	
+	RETURN	2
+?CND38:	SET	'WINNER,PRSO
+	CALL	META-LOC,WINNER >HERE
+	SET	'QCONTEXT,WINNER
+	SET	'QCONTEXT-ROOM,HERE
+	ZERO?	P-CONT \FALSE
+	CALL	START-SENTENCE,PRSO
+	PRINTI	" turns and looks at you as though he thought you were about to say something."
+	CRLF	
+	RETURN	2
+?ELS37:	CALL	TELL-NO-TELL
+	RSTACK	
+
+
+	.FUNCT	TELL-NO-TELL
+	CALL	TELL-YOU-CANT,STR?144,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	"!"
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	V-KISS
+	PRINTR	"I'd sooner kiss a parrot."
+
+
+	.FUNCT	V-RAPE
+	PRINTR	"An ugly idea from an ugly person."
+
+
+	.FUNCT	FIND-IN,WHERE,WHAT,W,R=0
+	FIRST?	WHERE >W /?KLU19
+?KLU19:	ZERO?	W /FALSE
+?PRG4:	FSET?	W,WHAT \?ELS8
+	ZERO?	R /?ELS11
+	RETURN	2
+?ELS11:	SET	'R,W
+	JUMP	?PRG4
+?ELS8:	NEXT?	W >W /?PRG4
+	RETURN	R
+
+
+	.FUNCT	V-SAY,V
+	CALL	FIND-IN,HERE,VICBIT >V
+	ZERO?	V /?ELS5
+	PRINTI	"You must address "
+	EQUAL?	V,M-FATAL \?ELS10
+	PRINTI	"someone"
+	JUMP	?CND8
+?ELS10:	CALL	THE?,V
+	CALL	DPRINT,V
+?CND8:	PRINTI	" directly."
+	CRLF	
+	RETURN	2
+?ELS5:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?HELLO \?ELS22
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RTRUE	
+?ELS22:	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	PRINTI	"Talking to "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	" is said to be a sign of impending mental collapse."
+
+
+	.FUNCT	V-SPIN
+	CALL	TELL-YOU-CANT,STR?145
+	RSTACK	
+
+
+	.FUNCT	V-THROUGH,M
+	FSET?	PRSO,DOORBIT \?ELS5
+	CALL	OTHER-SIDE,PRSO
+	CALL	DO-WALK,STACK
+	RTRUE	
+?ELS5:	FSET?	PRSO,VEHBIT /?THN8
+	EQUAL?	HERE,MCGINTY-HQ \?ELS7
+	EQUAL?	PRSO,PSEUDO-OBJECT \?ELS7
+?THN8:	CALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?ELS7:	IN?	PRSO,GLOBAL-OBJECTS /?ELS13
+	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE /?ELS13
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \?ELS13
+	CALL	GLOBAL-NOT-HERE-PRINT,PRSO
+	RSTACK	
+?ELS13:	FSET?	PRSO,TAKEBIT /?ELS17
+	PRINTI	"You hit your head against "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" as you attempt this feat."
+?ELS17:	IN?	PRSO,WINNER \?ELS23
+	CALL	TELL-CONTORT
+	RSTACK	
+?ELS23:	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-STEP
+	FSET?	PRSO,VEHBIT \?ELS5
+	CALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,GROUND \?ELS7
+	PRINTR	"Fred Astaire you're not."
+?ELS7:	PRINTR	"That sounds pretty useless."
+
+
+	.FUNCT	V-WEAR
+	FSET?	PRSO,WEARBIT /?ELS5
+	CALL	TELL-YOU-CANT,STR?154,FALSE-VALUE
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS5:	FSET?	PRSO,WORNBIT \?ELS9
+	PRINTR	"You are already wearing it."
+?ELS9:	IN?	PRSO,WINNER /?THN14
+	CALL	ITAKE
+	ZERO?	STACK /FALSE
+?THN14:	FSET	PRSO,WORNBIT
+	PRINTI	"You are now wearing "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	UNWEAR
+	FSET?	PRSO,WORNBIT \?ELS5
+	FCLEAR	PRSO,WORNBIT
+	PRINTI	"You are now holding "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+?ELS5:	CALL	TELL-YOURE-NOT,STR?155
+	RSTACK	
+
+
+	.FUNCT	V-WITHDRAW
+	EQUAL?	PRSO,INTNUM /?ELS5
+	CALL	PERFORM,V?TAKE,PRSO
+	RSTACK	
+?ELS5:	CALL	TELL-YOU-CANT,STR?156
+	RSTACK	
+
+
+	.FUNCT	V-DEPOSIT
+	EQUAL?	PRSO,INTNUM /?ELS5
+	CALL	PERFORM,V?PUT,PRSO,PRSI
+	RSTACK	
+?ELS5:	CALL	TELL-YOU-CANT,STR?157
+	RSTACK	
+
+
+	.FUNCT	V-THROW-OFF
+	CALL	TELL-YOU-CANT,STR?158
+	RSTACK	
+
+
+	.FUNCT	V-$VERIFY
+	PRINTI	"Verifying game..."
+	CRLF	
+	VERIFY	 \?ELS7
+	PRINTR	"Yup. Game correct."
+?ELS7:	PRINTR	"** UH OH! Game File Failure. **"
+
+
+	.FUNCT	V-STAND
+	ZERO?	PRSO /?CND1
+	EQUAL?	PRSO,GLOBAL-BANK /?THN8
+	FSET?	PRSO,VICBIT \?ELS7
+?THN8:	CALL	PERFORM,V?ROB,PRSO
+	RTRUE	
+?ELS7:	FSET?	PRSO,VEHBIT \?ELS11
+	CALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?ELS11:	EQUAL?	PRSO,ROOMS /?CND1
+	CALL	HACK-HACK,STR?116
+	RTRUE	
+?CND1:	LOC	WINNER
+	FSET?	STACK,VEHBIT \?ELS18
+	LOC	WINNER
+	CALL	PERFORM,V?DISEMBARK,STACK
+	RTRUE	
+?ELS18:	PRINTR	"You are already standing, I think."
+
+
+	.FUNCT	V-HIDE
+	PRINTR	"That's not a good hiding place."
+
+
+	.FUNCT	V-HIDE-UNDER
+	CALL	V-HIDE
+	RSTACK	
+
+
+	.FUNCT	DO-WALK,DIR
+	SET	'P-WALK-DIR,DIR
+	CALL	PERFORM,V?WALK,DIR
+	EQUAL?	STACK,M-FATAL \TRUE
+	RETURN	2
+
+
+	.FUNCT	V-WALK-TO
+	EQUAL?	PRSO,INTDIR \?ELS5
+	CALL	DO-WALK,P-WALK-DIR
+	RSTACK	
+?ELS5:	IN?	PRSO,HERE /?THN8
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?ELS7
+?THN8:	FSET?	PRSO,VICBIT \?ELS12
+	PRINTI	"He"
+	JUMP	?CND10
+?ELS12:	PRINTI	"It"
+?CND10:	PRINTR	"'s here!"
+?ELS7:	CALL	TELL-SHD-DIR
+	RSTACK	
+
+
+	.FUNCT	TELL-SHD-DIR
+	PRINTI	"You should supply a "
+	CALL	DPRINT,INTDIR
+	PRINTR	"!"
+
+
+	.FUNCT	OTHER-SIDE,DOBJ,RM?=0,P=0,Z
+?PRG1:	NEXTP	HERE,P >P
+	LESS?	P,LOW-DIRECTION /FALSE
+	GETPT	HERE,P >Z
+	PTSIZE	Z
+	EQUAL?	STACK,DEXIT \?PRG1
+	GETB	Z,DEXITOBJ
+	EQUAL?	STACK,DOBJ \?PRG1
+	ZERO?	RM? /?ELS15
+	GETB	Z,0
+	RETURN	STACK
+?ELS15:	RETURN	P
+
+
+	.FUNCT	V-LEAN-ON
+	PRINTR	"Are you so very tired, then?"
+
+
+	.FUNCT	V-PUT-AGAINST
+	CALL	TELL-NO-NO
+	RSTACK	
+
+
+	.FUNCT	V-TASTE
+	FSET?	PRSO,FOODBIT \?ELS5
+	CALL	PERFORM,V?EAT,PRSO
+	RSTACK	
+?ELS5:	PRINTI	"It tastes just like "
+	CALL	APRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	TELL-WHY-BOTHER
+	PRINTR	"Why bother?"
+
+
+	.FUNCT	V-ROB
+	FSET?	PRSO,PERSON /?THN6
+	EQUAL?	PRSO,SPEAR-CARRIER \?ELS5
+?THN6:	PRINTI	"Even as you begin to make your move, "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	CALL	JIGS-UP,STR?159
+	RSTACK	
+?ELS5:	PRINTR	"No wonder you never made the Ten Most Wanted list."
+
+
+	.FUNCT	V-PUSH-THROUGH
+	PRINTI	"Pushing "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTR	" in that way isn't particularly helpful."
+
+
+	.FUNCT	HOW?,OBJ
+	PRINTI	"I don't know how to do that to "
+	CALL	APRINT,OBJ
+	PRINTR	"."
+
+
+	.FUNCT	VOWEL?,OBJ
+	FSET?	OBJ,VOWELBIT \?CND1
+	PRINTI	"n"
+?CND1:	PRINTI	" "
+	RTRUE	
+
+
+	.FUNCT	V-SMOKE
+	PRINTR	"Smoking is bad for your health."
+
+
+	.FUNCT	V-UNFOLD
+	CALL	HOW?,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-FOLD
+	CALL	V-UNFOLD
+	RSTACK	
+
+
+	.FUNCT	V-HOLE-DIG
+	PRINTI	"I can't dig in "
+	CALL	THE?,PRSI
+	CALL	DPRINT,PRSI
+	PRINTR	"."
+
+
+	.FUNCT	V-TURN-OVER
+	IN?	PRSO,WINNER \?ELS5
+	CALL	TELL-NOTHING,STR?160,TRUE-VALUE
+	RSTACK	
+?ELS5:	FSET?	PRSO,TAKEBIT \?ELS7
+	CALL	TELL-YOUD-BETTER,STR?161,TRUE-VALUE
+	RSTACK	
+?ELS7:	PRINTR	"Good luck!"
+
+
+	.FUNCT	V-READ-INSIDE
+	CALL	TELL-NOTHING,STR?162,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	PRE-REACH-IN
+	EQUAL?	PRSO,NOT-HERE-OBJECT /FALSE
+	FSET?	PRSO,CONTBIT /?CND1
+	CALL	TELL-CANT-REACH,STR?163
+	RTRUE	
+?CND1:	FSET?	PRSO,OPENBIT /FALSE
+	CALL	TELL-CLOSED,PRSO,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-REACH-IN
+	CALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RSTACK	
+
+
+	.FUNCT	TELL-CLOSED,ARG,STR?=1
+	PRINTI	"The "
+	ZERO?	STR? /?ELS5
+	PRINT	ARG
+	JUMP	?CND3
+?ELS5:	CALL	DPRINT,ARG
+?CND3:	PRINTR	" is closed."
+
+
+	.FUNCT	V-CLEAN
+	PRINTR	"Cleanliness may be next to godliness, but there are limits."
+
+
+	.FUNCT	V-TIME
+	IN?	WATCH,WINNER /?THN6
+	IN?	WATCH,HERE \?ELS5
+?THN6:	PRINTI	"Your watch says it's "
+	CALL	WATCH-TIME
+	PRINTR	"."
+?ELS5:	CALL	TELL-YOU-CANT,STR?164
+	RSTACK	
+
+
+	.FUNCT	V-WEIGH
+	FSET?	PRSO,TAKEBIT \?ELS5
+	PRINTR	"Tough to do without a scale."
+?ELS5:	PRINTR	"Now that's bizarre!"
+
+
+	.FUNCT	V-CHASTISE
+	EQUAL?	PRSO,INTDIR \?ELS5
+	PRINTR	"The best way to see what's happening there is to go there."
+?ELS5:	PRINTI	"Please be more specific. LOOKing AT, BEHIND, UNDER, THROUGH, INSIDE, ON, DOWN, FOR, or any other method of LOOKing mean different things to me. Please specify which preposition you'd like to use next time, like LOOK AT "
+	FSET?	PRSO,PERSON /?CND12
+	PRINTI	"THE "
+?CND12:	CALL	DPRINT,PRSO
+	PRINTI	", or LOOK INSIDE "
+	FSET?	PRSO,PERSON /?CND19
+	PRINTI	"THE "
+?CND19:	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-HELP
+	ZERO?	PRSO /?CND1
+	EQUAL?	PRSO,WINNER /?CND1
+	PRINTI	"It seems that "
+	CALL	THE?,PRSO
+	CALL	DPRINT,PRSO
+	PRINTI	" doesn't need any help."
+	CRLF	
+?CND1:	PRINTI	"I'm afraid you'll have to figure this out "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	"."
+
+
+	.FUNCT	GET-COMFORTABLE,OBJ
+	FIRST?	OBJ /?THN6
+	CALL	WEARING-SOMETHING?
+	ZERO?	STACK /?ELS5
+?THN6:	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+?ELS5:	MOVE	WINNER,OBJ
+	PRINTI	"You get into the "
+	CALL	DPRINT,OBJ
+	PRINTI	" and try to get comfortable. "
+	CALL	V-SLEEP
+	RSTACK	
+
+
+	.FUNCT	TELL-NOT-COMFORTABLE
+	PRINTR	"That doesn't sound very comfortable."
+
+
+	.FUNCT	V-SLEEP
+	EQUAL?	HOW-TIRED,6 \?ELS5
+	GETP	HERE,P?LINE
+	LESS?	STACK,UNDERWATER-LINE-C \?ELS10
+	CALL	SLEEP-LOSE
+	RSTACK	
+?ELS10:	CALL	JIGS-UP,STR?165
+	RSTACK	
+?ELS5:	ZERO?	PRSO /?ELS14
+	EQUAL?	PRSO,BUNK,BED,ROOMS /?ELS14
+	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+?ELS14:	IN?	WINNER,BED /?THN19
+	IN?	WINNER,BUNK \?ELS18
+?THN19:	EQUAL?	HOW-TIRED,1 /?ELS25
+	IN?	WINNER,BED \FALSE
+	CALL	SLEEP-LOSE
+	RSTACK	
+?ELS25:	PRINTR	"You close your eyes, but your mind is too active to let you sleep."
+?ELS18:	IN?	BED,HERE \?ELS36
+	CALL	GET-COMFORTABLE,BED
+	RTRUE	
+?ELS36:	IN?	BUNK,HERE \?ELS38
+	CALL	GET-COMFORTABLE,BUNK
+	RTRUE	
+?ELS38:	ZERO?	PRSO /?ELS40
+	CALL	TELL-NOT-COMFORTABLE
+	RSTACK	
+?ELS40:	LESS?	HOW-TIRED,2 \?ELS43
+	CALL	TELL-YOURE-NOT,STR?166
+	RSTACK	
+?ELS43:	PRINTR	"Better find a good place to lie down."
+
+
+	.FUNCT	SLEEP-LOSE
+	PRINTI	"You drift off to sleep.
+
+You wake up. Once again, you find "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTI	" with the usual nothing to do. It seems as if you are destined to spend the rest of your days on this island, waiting for a break that may never come."
+	CRLF	
+	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	PRE-WHAT
+	ZERO?	PRSI /FALSE
+	EQUAL?	PRSO,GLOBAL-DAY,GLOBAL-TIME /FALSE
+	EQUAL?	PRSI,P-IT-OBJECT,IT /FALSE
+	PRINTI	"I'm afraid that question is beyond me."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-WHAT
+	EQUAL?	WINNER,PLAYER \?THN6
+	ZERO?	QCONTEXT /?ELS5
+	EQUAL?	HERE,QCONTEXT-ROOM \?ELS5
+	CALL	META-LOC,QCONTEXT
+	EQUAL?	HERE,STACK \?ELS5
+	FSET?	QCONTEXT,PERSON \?ELS5
+?THN6:	PRINTR	"""Isn't it obvious?"""
+?ELS5:	ZERO?	PRSO \?ELS13
+	PRINTR	"Huh?"
+?ELS13:	FSET?	PRSO,PERSON \?ELS17
+	PRINTR	"Try asking that person."
+?ELS17:	PRINTI	"Are you talking to "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTR	" again?"
+
+
+	.FUNCT	V-YES
+	CALL	TELL-RATHER,STR?167
+	RSTACK	
+
+
+	.FUNCT	V-MAYBE
+	CALL	TELL-RATHER,STR?168
+	RSTACK	
+
+
+	.FUNCT	V-NO
+	CALL	TELL-RATHER,STR?169
+	RSTACK	
+
+
+	.FUNCT	TELL-RATHER,STR
+	PRINTI	"You sound rather "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	V-SIT
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	PERFORM,V?SIT-WITH,PRSO
+	RSTACK	
+?ELS5:	CALL	PERFORM,V?SIT-ON,PRSO
+	RSTACK	
+
+
+	.FUNCT	V-SIT-ON
+	FSET?	PRSO,VEHBIT \?ELS5
+	CALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,GROUND,DECK \?ELS7
+	LOC	WINNER
+	FSET?	STACK,VEHBIT \?CND8
+	MOVE	WINNER,HERE
+?CND8:	PRINTR	"After a moment, you stand back up."
+?ELS7:	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-SIT-WITH
+	FSET?	PRSO,PERSON /?ELS5
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	IN?	PLAYER,SHANTY \?ELS9
+	IN?	PRSO,SHANTY \?ELS9
+	CALL	PERFORM,V?SIT-ON,CHAIR
+	RSTACK	
+?ELS9:	PRINTI	"There's no place to sit with "
+	CALL	DPRINT,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	TELL-ALREADY,STR
+	PRINTI	"It's already "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	TELL-YOUD-BETTER,STR,1ST=0,DONE=1
+	PRINTI	"You'd better "
+	PRINT	STR
+	ZERO?	1ST /?CND3
+	PRINTI	" first."
+?CND3:	ZERO?	DONE /FALSE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	FIXED-FONT-ON
+	GET	0,8
+	BOR	STACK,2
+	PUT	0,8,STACK
+	RTRUE	
+
+
+	.FUNCT	FIXED-FONT-OFF
+	GET	0,8
+	BAND	STACK,-3
+	PUT	0,8,STACK
+	RTRUE	
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..8a9a47c
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,3337 @@
+"VERBS for
+			      TOA #2
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved.
+"
+
+"SUBTITLE DESCRIBE THE UNIVERSE"
+
+"SUBTITLE SETTINGS FOR VARIOUS LEVELS OF DESCRIPTION"
+
+<GLOBAL VERBOSE <>>
+<GLOBAL SUPER-BRIEF <>>
+<GDECL (VERBOSE SUPER-BRIEF) <OR ATOM FALSE>>
+
+<ROUTINE V-VERBOSE ()
+	 <SETG VERBOSE T>
+	 <SETG SUPER-BRIEF <>>
+	 <TELL "Maximum verbosity." CR CR>
+	 <V-LOOK>>
+
+<ROUTINE V-BRIEF ()
+	 <SETG VERBOSE <>>
+	 <SETG SUPER-BRIEF <>>
+	 <TELL "Brief descriptions." CR>>
+
+<ROUTINE V-SUPER-BRIEF ()
+	 <SETG SUPER-BRIEF T>
+	 <TELL "Super-brief descriptions." CR>>
+
+\
+
+"SUBTITLE DESCRIBERS"
+
+;<ROUTINE V-RNAME ()
+	 <TELL D ,HERE CR>>
+
+;<ROUTINE V-OBJECTS ()
+	 <DESCRIBE-OBJECTS T>>
+
+;<ROUTINE V-ROOM ()
+	 <DESCRIBE-ROOM T>>
+
+<ROUTINE V-LOOK ()
+	 <COND (<DESCRIBE-ROOM T>
+		<DESCRIBE-OBJECTS T>)>>
+
+<ROUTINE V-FIRST-LOOK ()
+	 <COND (<DESCRIBE-ROOM>
+		<COND (<NOT ,SUPER-BRIEF> <DESCRIBE-OBJECTS>)>)>>
+
+<ROUTINE PRE-EXAMINE ()
+	 <COND (<AND <NOT ,LIT>
+		     <FSET? ,PRSO ,READBIT>>
+		<PERFORM ,V?READ ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-EXAMINE ()
+	 <COND (<GETP ,PRSO ,P?TEXT>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>)
+	       (<OR <FSET? ,PRSO ,CONTBIT>
+		    <FSET? ,PRSO ,DOORBIT>>
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "I see nothing special about ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)>>
+
+<GLOBAL LIT <>>
+
+<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? STR (AV <>))
+	 <SET V? <OR .LOOK? ,VERBOSE>>
+	 <COND (<NOT ,LIT>
+		<TELL-TOO-DARK>
+		<RETURN <>>)>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<FSET ,HERE ,TOUCHBIT>
+		<SET V? T>)>
+	 <COND (<IN? ,HERE ,ROOMS>
+		<TELL D ,HERE>
+		<COND (<FSET? <SET AV <LOC ,WINNER>> ,VEHBIT>
+		       <TELL ", " <VEHPREP .AV> " the " D .AV>)>
+		<CRLF>)>
+	 <COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>
+		<COND (<AND .V? <APPLY <GETP ,HERE ,P?ACTION> ,M-LOOK>>
+		       <RTRUE>)
+		      (<AND .V? <SET STR <GETP ,HERE ,P?LDESC>>>
+		       <TELL .STR CR>)>
+		<APPLY <GETP ,HERE ,P?ACTION> ,M-FLASH>
+		<COND (<AND .AV <NOT <==? ,HERE .AV>> <FSET? .AV ,VEHBIT>>
+		       <APPLY <GETP .AV ,P?ACTION> ,M-LOOK>)>)>
+	 <COND (<GETP ,HERE ,P?CORRIDOR> <CORRIDOR-LOOK>)>
+	 T>
+
+<ROUTINE VEHPREP (VEH)
+	 <COND (<FSET? .VEH ,SURFACEBIT>
+		<RETURN "on">)
+	       (T <RETURN "in">)>>
+
+<ROUTINE DESCRIBE-OBJECTS ("OPTIONAL" (V? <>))
+	 <COND (,LIT
+		<COND (<FIRST? ,HERE>
+		       <PRINT-CONT ,HERE <SET V? <OR .V? ,VERBOSE>> -1>)>)
+	       (ELSE
+		<TELL "I can't see anything in the dark." CR>)>>
+
+"DESCRIBE-OBJECT -- takes object and flag.  if flag is true will print a
+long description (fdesc or ldesc), otherwise will print short."
+
+<GLOBAL DESC-OBJECT <>>
+
+<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV)
+	 <SETG DESC-OBJECT .OBJ>
+	 <COND (<AND <0? .LEVEL>
+		     <APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>
+		<RTRUE>)
+	       (<AND <0? .LEVEL>
+		     <OR <AND <NOT <FSET? .OBJ ,TOUCHBIT>>
+			      <SET STR <GETP .OBJ ,P?FDESC>>>
+			 <SET STR <GETP .OBJ ,P?LDESC>>>>
+		<TELL .STR>)
+	       (<0? .LEVEL>
+		<TELL "There is " A .OBJ " here.">)
+	       (ELSE
+		<TELL <GET ,INDENTS .LEVEL>>
+		<TELL "A">
+		<VOWEL? .OBJ>
+		<TELL D .OBJ>
+		<COND (<AND <FSET? .OBJ ,WORNBIT>
+			    <IN? .OBJ ,WINNER>>
+		       <TELL " (being worn)">)>
+		;<COND (<AND <FLAMING? .OBJ>
+			    <NOT <EQUAL? .OBJ ,MANY-MATCHES>>>
+		       <TELL " (lit and burning)">)>
+		;<COND (<AND <EQUAL? .OBJ ,ROPE> ,ROPE-TIED>
+		       <TELL " (tied to the " D ,ROPE-TIED ")">)>)>
+	 ;<COND (<AND <0? .LEVEL>
+		     <SET AV <LOC ,WINNER>>
+		     <FSET? .AV ,VEHBIT>>
+		<TELL " (outside the " D .AV ")">)>
+	 <CRLF>
+	 <COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
+		<PRINT-CONT .OBJ .V? .LEVEL>)>>
+
+<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (V? <>) (LEVEL 0) "AUX" Y 1ST? AV STR
+		     (PV? <>) (INV? <>) (FLG <>))
+	 <COND (<NOT <SET Y <FIRST? .OBJ>>> <RTRUE>)>
+	 <COND (<AND <SET AV <LOC ,WINNER>> <FSET? .AV ,VEHBIT>>
+		T)
+	       (ELSE <SET AV <>>)>
+	 <SET 1ST? T>
+	 <COND (<EQUAL? ,WINNER .OBJ <LOC .OBJ>>
+		<SET INV? T>)
+	       (ELSE
+		<REPEAT ()
+			<COND (<NOT .Y> <RETURN <NOT .1ST?>>)
+			      (<==? .Y .AV> <SET PV? T>)
+			      (<==? .Y ,WINNER>)
+			      (<AND <NOT <FSET? .Y ,INVISIBLE>>
+				    <NOT <FSET? .Y ,TOUCHBIT>>
+				    <SET STR <GETP .Y ,P?FDESC>>
+				    <NOT <GETP .Y ,P?DESCFCN>>>
+			       <COND (<NOT <FSET? .Y ,NDESCBIT>>
+				      <TELL .STR CR>
+				      <SET FLG T>
+				      ;<SETG P-IT-OBJECT .Y>)>
+			       <COND (<AND <SEE-INSIDE? .Y>
+					   <NOT <GETP <LOC .Y> ,P?DESCFCN>>
+					   <FIRST? .Y>>
+				      <PRINT-CONT .Y .V? 0>)>)>
+			<SET Y <NEXT? .Y>>>)>
+	 <SET Y <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .Y>
+			<COND (<AND .PV? .AV <FIRST? .AV>>
+			       <PRINT-CONT .AV .V? .LEVEL>)>
+			<RETURN <NOT .1ST?>>)
+		       (<EQUAL? .Y .AV ,ADVENTURER>)
+		       (<AND <NOT <FSET? .Y ,INVISIBLE>>
+			     <OR .INV?
+				 <FSET? .Y ,TOUCHBIT>
+				 <GETP .Y ,P?DESCFCN>
+				 <NOT <GETP .Y ,P?FDESC>>>>
+			<COND (<NOT <FSET? .Y ,NDESCBIT>>
+			       <COND (.1ST?
+				      <COND (<FIRSTER .OBJ .LEVEL>
+					     <SET FLG T>
+					     <COND (<L? .LEVEL 0>
+						    <SET LEVEL 0>)>)>
+				      <SET LEVEL <+ 1 .LEVEL>>
+				      <SET 1ST? <>>)>
+			       <DESCRIBE-OBJECT .Y .V? .LEVEL>
+			       ;<SETG P-IT-OBJECT .Y>)
+			      (<AND <NOT <GETP .Y ,P?DESCFCN>>
+				    <FIRST? .Y>
+				    <SEE-INSIDE? .Y>>
+			       <PRINT-CONT .Y .V? .LEVEL>)>)>
+		 <SET Y <NEXT? .Y>>>
+	 .FLG>
+
+<ROUTINE FIRSTER (OBJ LEVEL "AUX" F)
+	 <COND (<==? .OBJ ,WINNER>
+		<TELL "You are carrying:" CR>)
+	       (<NOT <IN? .OBJ ,ROOMS>>
+		<COND (<G? .LEVEL 0>
+		       <TELL <GET ,INDENTS .LEVEL>>)>
+		<COND (<==? .OBJ ,MAGNET>
+		       <TELL "The " D .OBJ " is touching">)
+		      (<FSET? .OBJ ,SURFACEBIT>
+		       <TELL "Sitting on the " D .OBJ>
+		       <SET F <FIRST? .OBJ>>
+		       <COND (<NEXT? .F> <TELL " are">)
+			     (T <TELL" is">)>)
+		      (ELSE
+		       <TELL "The " D .OBJ " contains">)>
+		<TELL ":" CR>)>>
+
+"SUBTITLE SCORING"
+
+;<GLOBAL MOVES 0>
+<GLOBAL RATING 0>
+<GLOBAL BASE-RATING 0>
+
+;<GLOBAL WON-FLAG <>>
+
+<GLOBAL RATING-MAX 250>
+
+<ROUTINE RATING-UPD (NUM)
+	 <SETG BASE-RATING <+ ,BASE-RATING .NUM>>
+	 <SETG RATING <+ ,RATING .NUM>>
+	 T>
+
+<ROUTINE RATING-OBJ (OBJ "AUX" TEMP)
+	 <COND (<GETP .OBJ ,P?VALUE>
+		<COND (<G? <SET TEMP <GETP .OBJ ,P?VALUE>> 0>
+		       <RATING-UPD .TEMP>
+		       <PUTP .OBJ ,P?VALUE 0>)>)
+	       (T <RTRUE>)>>
+
+<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
+	 <TELL "Your score is " N ,RATING>
+	 <TELL " out of a possible " N ,RATING-MAX ".">
+	 <CRLF>
+	 <TELL
+"This score gives you the rank of a ">
+	 <COND (<G? ,RATING 245>
+		<TELL "rich diver">)
+	       (<G? ,RATING 190>
+		<TELL "good adventurer">)
+	       (<G? ,RATING 125>
+		<TELL "decent diver">)
+	       (<G? ,RATING 45>
+		<TELL "so-so sailor">)
+	       (T
+		<TELL "chicken of the sea">)>
+	 <TELL "." CR>
+	 ,RATING>
+
+<ROUTINE FINISH () ;("OPTIONAL" (REPEATING <>))
+	 <CRLF>
+	 ;<COND (<NOT .REPEATING>
+		<V-SCORE>
+		<USL>
+		<CRLF>)>
+	 <V-SCORE>
+	 <USL>
+	 <CRLF>
+	<REPEAT ()
+	 <TELL
+"Would you like to restart the game from the beginning, restore a saved
+game position, or end this session of the game? (Type RESTART, RESTORE,
+or QUIT): >">
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?RESTART>
+	        <RESTART>
+		<TELL-FAILED>
+		;<FINISH T>)
+	       (<EQUAL? <GET ,P-LEXV 1> ,W?RESTORE>
+		<COND (<RESTORE>
+		       <TELL-OKAY>)
+		      (T
+		       <TELL-FAILED>
+		       ;<FINISH T>)>)
+	       (<EQUAL? <GET ,P-LEXV 1> ,W?QUIT ,W?Q>
+		<QUIT>)>>>
+
+<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
+	 <V-SCORE>
+	 <COND (<OR <AND .ASK?
+			 <TELL
+"Do you wish to leave the game? (Y is affirmative): ">
+			 <YES?>>
+		    <NOT .ASK?>>
+		<USL>
+		<QUIT>)
+	       (T <TELL-OKAY>)>>
+
+;<ROUTINE PRE-FINISH ()
+	 <V-SCORE>
+	 <TELL
+"Do you wish to start the game again? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Okay. Restarting..." CR>
+		<RESTART>
+		<TELL "Failed. Please reboot your system." CR>
+		<QUIT>)
+	       (T <TELL "Ok. See you next time!" CR>
+		<USL>
+		<QUIT>)>>
+
+<ROUTINE YES? ()
+	 <PRINTI ">">
+	 <READ ,Y-INBUF ,Y-LEXV>
+	 <COND (<EQUAL? <GET ,Y-LEXV 1> ,W?YES ,W?Y>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<GLOBAL Y-INBUF <ITABLE BYTE 12>>
+<GLOBAL Y-LEXV <ITABLE BYTE 10>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17))
+	 <TELL
+"CUTTHROATS|
+Copyright (c) 1984 by Infocom, Inc. All rights reserved.|
+CUTTHROATS is a trademark of Infocom, Inc.|
+Release ">
+	 <PRINTN <BAND <GET 0 1> *3777*>>
+	 <TELL " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <CRLF>>
+
+;<ROUTINE IN-HERE? (OBJ)
+	 <OR <IN? .OBJ ,HERE>
+	     <GLOBAL-IN? .OBJ ,HERE>>>
+
+<ROUTINE V-AGAIN ("AUX" OBJ (N <>))
+	 <COND (<AND <==? ,L-PRSO ,NOT-HERE-OBJECT> ,P-MOBY-FOUND>
+		<SET N T>
+		<SETG L-PRSO ,P-MOBY-FOUND>)
+	       (<AND <==? ,L-PRSI ,NOT-HERE-OBJECT> ,P-MOBY-FOUND>
+		<SET N T>
+		<SETG L-PRSI ,P-MOBY-FOUND>)>
+	 <COND (<NOT ,L-PRSA>
+		<TELL "Not until you do something." CR>)
+	       (<EQUAL? ,L-PRSA ,V?WALK ,V?FOLLOW>
+		<PERFORM ,L-PRSA ,L-PRSO>)
+	       (T
+		<SET OBJ
+		     <COND (<AND ,L-PRSO <NOT <VISIBLE? ,L-PRSO>>>
+			    ,L-PRSO)
+			   (<AND ,L-PRSI <NOT <VISIBLE? ,L-PRSI>>>
+			    ,L-PRSI)>>
+		<COND (<AND .OBJ 
+			    <NOT <EQUAL? .OBJ ,ROOMS>>>
+		       <COND (.N
+			      <TELL-YOU-CANT "see " <>>
+			      <COND (<NOT <==? .OBJ ,WEASEL>>
+				     <TELL "any ">)>
+			      <TELL D .OBJ " here." CR>)
+			     (T
+			      <TELL "I can't see ">
+		       	      <THE? .OBJ>
+		       	      <TELL D .OBJ " anymore." CR>)>
+		       <SETG CLOCK-WAIT T>
+		       <RFATAL>)
+		      (T
+		       ;<SETG WINNER ,L-WINNER>
+		       <COND (<OR <==? ,L-WINNER ,PLAYER>
+			          <NOT <==? <CONTACT-ESTABLISHED> ,M-FATAL>>>
+			      <SETG P-WALK-DIR ,L-WALK-DIR>
+		       	      <SETG P-MERGED T>
+			      <SETG P-MULT <>>
+			      <SET N <PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>>
+			      <COND (<NOT .N><SET N T>)>
+			      <SETG P-MERGED <>>
+			      <RETURN .N>)>)>)>>
+
+<ROUTINE CONTACT-ESTABLISHED ("AUX" OCONT V)
+	 <SET OCONT ,P-CONT>
+	 <SETG P-CONT T>
+	 <SETG P-MERGED T>
+	 <SET V <PERFORM ,V?TELL ,L-WINNER>>
+	 <SETG P-CONT .OCONT>
+	 <SETG P-MERGED <>>
+	 <RETURN .V>>
+
+<GLOBAL L-WALK-DIR <>>
+
+;<ROUTINE V-$DEBUG ()
+	 <COND (,DEBUG
+		<SETG DEBUG <>>
+		<TELL "No longer in debug mode." CR>)
+	       (T <SETG DEBUG T> <TELL "Now in debug mode." CR>)>>
+
+;<ROUTINE V-$W1 ()
+	 <SETG WRECK-FOUND 1>
+	 <SETG WRECK-CHOSEN 1>
+	 <MOVE ,DEEP-SUIT ,PLAYER>
+	 <FSET ,DEEP-SUIT ,WORNBIT>
+	 <MOVE ,AIR-HOSE ,DEEP-SUIT>
+	 <MOVE ,PLAYER ,WRECK-1>
+	 <SETG HERE ,WRECK-1>
+	 <WRECK-1-F ,M-ENTER>
+	 <MOVE ,FLASHLIGHT ,PLAYER>
+	 <FCLEAR ,FLASHLIGHT ,NDESCBIT>
+	 <FSET ,FLASHLIGHT ,ONBIT>
+	 <MOVE ,SHARK-REPELLENT ,PLAYER>
+	 <FCLEAR ,SHARK-REPELLENT ,NDESCBIT>
+	 <PUTP ,SHARK-REPELLENT ,P?NORTH -1>
+	 <ENABLE <QUEUE I-PENDULUM -1>>
+	 <V-LOOK>>
+
+;<ROUTINE V-$W2 ()
+	 <SETG WRECK-FOUND 2>
+	 <SETG WRECK-CHOSEN 2>
+	 <MOVE ,PLAYER ,WRECK-1>
+	 <MOVE ,WET-SUIT ,PLAYER>
+	 <FSET ,WET-SUIT ,WORNBIT>
+	 <MOVE ,MASK ,PLAYER>
+	 <FSET ,MASK ,WORNBIT>
+	 <MOVE ,AIR-TANK ,PLAYER>
+	 <FSET ,AIR-TANK ,WORNBIT>
+	 <SETG AIR-LEFT 160>
+	 <ENABLE <QUEUE I-AIR-SUPPLY -1>>
+	 <MOVE ,FLIPPERS ,PLAYER>
+	 <FSET ,FLIPPERS ,WORNBIT>
+	 <SETG DEPTH 150>
+	 <SETG HERE ,WRECK-1>
+	 <WRECK-1-F ,M-ENTER>
+	 <MOVE ,FLASHLIGHT ,PLAYER>
+	 <FCLEAR ,FLASHLIGHT ,NDESCBIT>
+	 <FSET ,FLASHLIGHT ,ONBIT>
+	 <PUTP ,FLASHLIGHT ,P?NORTH -1>
+	 <MOVE ,MAGNET ,PLAYER>
+	 <FCLEAR ,MAGNET ,NDESCBIT>
+	 <PUTP ,MAGNET ,P?NORTH -1>
+	 <MOVE ,DRILL ,PLAYER>
+	 <MOVE ,BATTERY ,DRILL>
+	 <FCLEAR ,BATTERY ,NDESCBIT>
+	 <PUTP ,BATTERY ,P?NORTH -1>
+	 <SETG DRILL-POWERED T>
+	 <MOVE ,SHARK-REPELLENT ,PLAYER>
+	 <FCLEAR ,SHARK-REPELLENT ,NDESCBIT>
+	 <PUTP ,SHARK-REPELLENT ,P?NORTH -1>
+	 <MOVE ,TUBE ,PLAYER>
+	 <FCLEAR ,TUBE ,NDESCBIT>
+	 <PUTP ,TUBE ,P?NORTH -1>
+	 <V-LOOK>>
+
+;<ROUTINE V-$DIVETIME ("AUX" D)
+	 <SET D <INT I-DIVETIME>>
+	 <SETG CLOCK-WAIT T>
+	 <COND (<GET .D ,C-ENABLED?>
+		<TELL "Enabled">)
+	       (T <TELL "Disabled">)>
+	 <TELL " at time " N <GET .D ,C-TICK> "." CR>>
+
+"SUBTITLE DEATH AND TRANSFIGURATION"
+
+;<GLOBAL DEAD <>>
+;<GLOBAL DEATHS 0>
+;<GLOBAL LUCKY 1>
+
+<ROUTINE JIGS-UP (DESC "OPTIONAL" (PLAYER? <>))
+ 	 <TELL .DESC CR>
+	 <TELL "
+|    ****  You have died  ****
+|
+|">
+	 <TELL "Too bad." CR>
+	 <CRLF>
+	 <FINISH>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (<RESTORE>
+		<TELL-OKAY>
+		<V-FIRST-LOOK>)
+	       (T
+		<TELL-FAILED>)>>
+
+<ROUTINE TELL-FAILED () <TELL "Failed." CR>>
+<ROUTINE TELL-OKAY () <TELL "Okay." CR>>
+
+<ROUTINE V-SAVE ()
+	 <COND (<SAVE>
+	        <TELL-OKAY>)
+	       (T
+		<TELL-FAILED>)>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE T>
+	 <TELL "Do you wish to restart? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Restarting." CR>
+		<RESTART>
+		<TELL-FAILED>)>>
+
+<CONSTANT REXIT 0>
+<CONSTANT UEXIT 1>
+<CONSTANT NEXIT 2>
+<CONSTANT FEXIT 3>
+<CONSTANT CEXIT 4>
+<CONSTANT DEXIT 5>
+
+<CONSTANT NEXITSTR 0>
+<CONSTANT FEXITFCN 0>
+<CONSTANT CEXITFLAG 1>
+<CONSTANT CEXITSTR 1>
+<CONSTANT DEXITOBJ 1>
+<CONSTANT DEXITSTR 1>
+
+<ROUTINE V-WALK-AROUND ()
+	 <TELL-SHD-DIR>
+	 ;<TELL "Use " D ,INTDIR "s for movement here." CR>>
+
+<ROUTINE V-LAUNCH ()
+	  <TELL "How does one launch that?" CR>>
+
+;<ROUTINE GO-NEXT (TBL "AUX" VAL)
+	 <COND (<SET VAL <LKP ,HERE .TBL>>
+		<GOTO .VAL>)>>
+
+;<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
+			<RFALSE>)
+		       (<==? <GET .TBL .CNT> .ITM>
+			<COND (<==? .CNT .LEN> <RFALSE>)
+			      (T
+			       <RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
+	 <COND (<NOT ,P-WALK-DIR>
+		<PERFORM ,V?WALK-TO ,PRSO>
+		<RTRUE>)
+	       (<SET PT <GETPT ,HERE ,PRSO>>
+		<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <GOTO <GETB .PT ,REXIT>>)
+		      (<==? .PTS ,NEXIT>
+		       <TELL <GET .PT ,NEXITSTR> CR>
+		       <RFATAL>)
+		      (<==? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <GOTO .RM>)
+			     (T
+			      <RFATAL>)>)
+		      (<==? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TELL-NO-GO T>
+			      <RFATAL>)>)
+		      (<==? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GETB .PT ,DEXITOBJ>> ,OPENBIT>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <TELL .STR CR>
+			      <SETG P-IT-OBJECT .OBJ>
+			      <RFATAL>)
+			     (T
+			      <TELL-CLOSED .OBJ <>>
+			      <SETG P-IT-OBJECT .OBJ>
+			      <RFATAL>)>)>)
+	       (<AND <NOT ,LIT> <PROB 90>>
+		<JIGS-UP
+"The water is too dark for you to see anything. After a moment, however, you
+feel something start to munch on you. Something large.">)
+	       (T
+		<TELL-NO-GO T>
+		<RFATAL>)>>
+
+;<ROUTINE THIS-IS-IT (OBJ)
+	 <SETG P-IT-OBJECT .OBJ>
+	 ;<SETG P-IT-LOC ,HERE>>
+
+<ROUTINE V-INVENTORY ()
+	 <COND (<FIRST? ,WINNER> <PRINT-CONT ,WINNER>)
+	       (T <TELL "You are empty-handed." CR>)>
+	 <COND (<AND <==? ,WINNER ,PLAYER>
+		     <G? ,POCKET-CHANGE 0>
+		     <NOT <FSET? ,WET-SUIT ,WORNBIT>>
+		     <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>>
+		<TELL "You have $" N ,POCKET-CHANGE " in your pocket." CR>)>>
+
+<GLOBAL INDENTS
+	<PTABLE ""
+	        "  "
+	        "    "
+	        "      "
+	        "        "
+	        "          ">>
+
+\
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<AND <PRSO? ,OCEAN>
+		     <PRSI? ,GLASS-CASE>>
+		<RFALSE>)
+	       (<PRSI? ,GLOBAL-ROOM>
+		<TELL-YOURE-NOT "going anywhere.">
+		<RTRUE>)
+	       (<OR <PRSO? ,GLOBAL-MONEY ,RIDICULOUS-MONEY-KLUDGE>
+		    <AND <PRSO? ,INTNUM> ,P-DOLLAR-FLAG>>
+		<TELL-NOT-EASY>
+		<RTRUE>)
+	       (<AND <IN? ,PRSO ,MAGNET>
+		     <OR <NOT ,PRSI>
+			 <PRSI? ,MAGNET>>>
+		<RFALSE>)>
+	 <COND (<IN? ,PRSO ,WINNER>
+		<COND (<FSET? ,PRSO ,WORNBIT>
+		       <COND (<EQUAL? <GET ,P-VTBL 0> ,W?REMOVE>
+			      <PERFORM ,V?DISEMBARK ,PRSO>
+			      <RTRUE>)
+			     (T <TELL "You are already wearing it." CR>)>)
+		      (T <TELL-YOU-ALREADY "have it.">)>)
+	       (<AND <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<COND (<PRSO? ,PUTTY>
+		       <RFALSE>)
+		      (T
+		       <TELL-CANT-REACH "that">
+		       <RTRUE>)>)
+	       (,PRSI
+		<COND (<NOT <==? ,PRSI <LOC ,PRSO>>>
+		       <COND (<AND <EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+				   <FSET? ,PRSI ,CONTBIT>
+				   <NOT <FSET? ,PRSI ,OPENBIT>>>
+			      <TELL-YOUD-BETTER "open the " <> <>>
+			      <TELL D ,PRSI " first." CR>
+			      <SETG P-IT-OBJECT ,PRSI>
+			      <RTRUE>)
+			     (<==? ,PRSO ,PRSI>
+			      <TELL-SERIOUS>)
+			     (<FSET? ,PRSI ,VICBIT>
+			      <PERFORM ,V?ASK-FOR ,PRSI ,PRSO>
+			      <RTRUE>)
+			     (<AND <OR <PRSO? ,GLOBAL-MONEY
+					      ,RIDICULOUS-MONEY-KLUDGE>
+				       <AND <PRSO? ,INTNUM> ,P-DOLLAR-FLAG>>
+				   <PRSI? ,POCKET>>
+			      <TELL-WHY-BOTHER>)
+			     (<AND <PRSO? ,AIR>
+				   <PRSI? ,AIR-TANK>>
+			      <PERFORM ,V?EMPTY ,AIR-TANK>
+			      <RTRUE>)
+			     (T
+			      <START-SENTENCE ,PRSO>
+			      <TELL " isn't in ">
+			      <THE? ,PRSI>
+			      <TELL D ,PRSI "." CR>)>)
+		      (T
+		       <SETG PRSI <>>
+		       <RFALSE>)>)
+	       (<==? ,PRSO <LOC ,WINNER>>
+		<TELL "You are " <VEHPREP <LOC ,WINNER>> " it, loser!" CR>)>>
+
+<ROUTINE TELL-YOURE-NOT (STR "OPTIONAL" (DONE? T))
+	 <TELL "You're not " .STR>
+	 <COND (.DONE? <CRLF>)>>
+
+<ROUTINE TELL-NOT-EASY ()
+	 <TELL "It's not that easy." CR>>
+
+<ROUTINE V-TAKE ()
+	 <COND (<ITAKE>
+		<TELL "Taken." CR>)>>
+
+<GLOBAL FUMBLE-NUMBER 7>
+
+<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ TEMP)
+	 <COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<COND (.VB
+		       <TELL <PICK-ONE ,YUKS> CR>)>
+		<RFALSE>)
+	       (<AND <==? ,PRSO ,ENVELOPE>
+		     <==? ,HERE ,MCGINTY-HQ>
+		     <IN? ,MCGINTY ,MCGINTY-HQ>>
+		<SET TEMP ,PRSA>
+		<SETG PRSA ,V?TAKE>
+		<ENVELOPE-F>
+		<SETG PRSA .TEMP>
+		<RFALSE>)
+	       (<AND <NOT <IN? <LOC ,PRSO> ,WINNER>>
+		     <G? <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>> ,LOAD-ALLOWED>>
+		<COND (.VB
+		       <TELL "Your load is too heavy." CR>)>
+		<RFALSE>)
+	       (<G? <SET CNT <CCOUNT ,WINNER>> ,FUMBLE-NUMBER>
+		<TELL "You're carrying too many things already!" CR>
+		<RFALSE>)
+	       (<PRSO? ,MINE>
+		<BOOM>)
+	       (T
+		<MOVE ,PRSO ,WINNER>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<RATING-OBJ ,PRSO>
+	        <RTRUE>)>>
+
+<ROUTINE V-PUT-ACROSS ()
+	  <TELL-NO-NO>>
+
+<ROUTINE V-PUT-ON ()
+	 <COND ;(<AND <PRSI? ,GLASS-CASE>
+		     <PRSO? ,PUTTY>>
+		<RFALSE>)
+	       (<FSET? ,PRSI ,SURFACEBIT>
+		<V-PUT>
+		<RTRUE>)
+	       (<PRSI? ,ME>
+		<TELL "Sounds kinky." CR>)
+	       (<FSET? ,PRSI ,VICBIT>
+		<TELL "I don't think he'd appreciate it." CR>)
+	       (T <TELL "There's no good surface on ">
+		  <THE? ,PRSI>
+		  <TELL D ,PRSI "." CR>)>>
+
+<ROUTINE PRE-PUT ("AUX" OBJ)
+	 <COND (<NOT ,PRSI>
+		<TELL "Huh?" CR>)
+	       (<PRSO? ,NOT-HERE-OBJECT ,GLOBAL-SELF ,MAGNET>
+		<RFALSE>)
+	       (<==? ,PRSI ,OCEAN>
+		<PERFORM ,V?THROW ,PRSO ,OCEAN>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <PRSO? ,ME>>
+		<PERFORM ,V?WEAR ,PRSI>
+		<RTRUE>)
+	       (<AND <VERB? PUT-ON>
+		     <PRSI? ,ME>>
+		<PERFORM ,V?WEAR ,PRSO>
+		<RTRUE>)
+	       (<OR <PRSO? ,GLOBAL-MONEY ,RIDICULOUS-MONEY-KLUDGE>
+		    <AND ,P-DOLLAR-FLAG
+			 <PRSO? ,INTNUM>>>
+		<COND (<PRSI? ,POCKET> <RFALSE>)
+		      (T <TELL-YOU-CANT "afford to.">)>)
+	       (<AND <PRSO? ,AIR-HOSE>
+		     <PRSI? ,DEEP-SUIT>>
+		<RFALSE>)
+	       (<NOT <HELD? ,PRSO>>
+		<TELL-DONT-HAVE <>>
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)
+	       (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <NOT <FSET? ,PRSO ,TAKEBIT>>>
+		<TELL "Nice try." CR>)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<OR <FSET? ,PRSI ,OPENBIT>
+		    <OPENABLE? ,PRSI>
+		    <FSET? ,PRSI ,VEHBIT>>)
+	       (T
+		<TELL-NO-NO>
+		<RTRUE>)>
+	 <COND (<NOT <FSET? ,PRSI ,OPENBIT>>
+		<TELL "The " D ,PRSI " isn't open." CR>)
+	       (<==? ,PRSI ,PRSO>
+		<TELL-HOW-THAT "do">)
+	       (<IN? ,PRSO ,PRSI>
+		<START-SENTENCE ,PRSO>
+		<TELL " is already in ">
+		<THE? ,PRSI>
+		<TELL D ,PRSI "." CR>)
+	       (<G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>>
+		       <GETP ,PRSI ,P?SIZE>>
+		    <GETP ,PRSI ,P?CAPACITY>>
+		<TELL "There's no room." CR>)
+	       (<AND <NOT <HELD? ,PRSO>>
+		     <NOT <ITAKE>>>
+		<RTRUE>)
+	       (T
+		<MOVE ,PRSO ,PRSI>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,WORNBIT>
+		<TELL "Done." CR>)>>
+
+<ROUTINE PRE-DROP ()
+	 <COND (<==? ,PRSO <LOC ,WINNER>>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<NOT ,PRSI>
+		<TELL "Huh?" CR>)
+	       (<PRSO? ,NOT-HERE-OBJECT ,ME>
+		<RFALSE>)
+	       (<NOT <FSET? ,PRSI ,VICBIT>>
+		<TELL "To " A ,PRSI "???" CR>)
+	       (<AND <==? ,WINNER ,PLAYER>
+		     <PRSI? ,ME>
+		     ,QCONTEXT
+		     <==? ,HERE ,QCONTEXT-ROOM>
+		     <==? ,HERE <META-LOC ,QCONTEXT>>>
+		<SETG WINNER ,QCONTEXT>
+		<PERFORM ,V?GIVE ,PRSO ,PRSI>
+		<SETG WINNER ,PLAYER>
+		<RTRUE>)
+	       (<OR <EQUAL? ,PRSI ,WINNER>
+		    <AND <EQUAL? ,WINNER ,PLAYER>
+			 <PRSI? ,ME>>>
+		<TELL-CHARITY>)
+	       (<PRSO? ,GLOBAL-MONEY ,RIDICULOUS-MONEY-KLUDGE ,INTNUM>
+		<RFALSE>)
+	       (<AND <PRSO? ,DRINKING-WATER>
+		     <==? ,HERE ,SHANTY>
+		     <PRSI? ,SPEAR-CARRIER>>
+		<RFALSE>)
+	       (<AND <PRSO? ,DRINK-OBJECT>
+		     <IN? ,DRINK-OBJECT ,TABLE-OBJECT>>
+		<RFALSE>)
+	       (<NOT <HELD? ,PRSO>>
+		<COND (<==? ,WINNER ,PLAYER>
+		       <TELL 
+"That's easy for you to say since you don't even have it." CR>)
+		      (T <TELL 
+"\"I don't have " A ,PRSO " to give!\" exclaims ">
+		       <THE? ,WINNER>
+		       <TELL D ,WINNER "." CR>)>)>>
+
+<ROUTINE TELL-CHARITY ()
+	 <TELL "I know charity begins at home, but this is ridiculous." CR>>
+
+<ROUTINE PRE-SGIVE ()
+	 <PERFORM ,V?GIVE ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE HELD? (OBJ)
+	 <COND (<NOT .OBJ> <RFALSE>)
+	       (<IN? .OBJ ,WINNER> <RTRUE>)
+	       (<EQUAL? .OBJ ,ME ,GLOBAL-SELF> <RTRUE>)
+	       (T <HELD? <LOC .OBJ>>)>>
+
+<ROUTINE V-GIVE ()
+	 <COND (<AND <PRSI? ,SPEAR-CARRIER>
+		     <PRSO? ,INTNUM>
+		     ,P-DOLLAR-FLAG>
+		<TELL "\"If you want to buy something, be specific.\"" CR>)
+	       (<FSET? ,PRSI ,VICBIT>
+		<START-SENTENCE ,PRSI>
+		<TELL " declines your generous offer." CR>)
+	       (T
+		<TELL-YOU-CANT "give " <>>
+		<THE? ,PRSO>
+		<TELL D ,PRSO " to " A ,PRSI "!" CR>)>>
+
+<ROUTINE V-SGIVE ()
+	 <TELL "Bug." CR>>
+
+<ROUTINE V-DROP ("OPTIONAL" (SUPPRESS <>))
+	 <COND (<IDROP>
+		<COND (<NOT .SUPPRESS>
+		       <TELL "Dropped." CR>)>)>>
+
+<ROUTINE PRE-THROW ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <IN? ,PRSO ,WINNER>>
+		<TELL-YOURE-NOT "carrying " <>>
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-THROW ()
+	 <COND (,PRSI
+		<COND (<OR <FSET? ,PRSI ,CONTBIT>
+			   <FSET? ,PRSI ,CLIMBBIT>>
+		       <PERFORM ,V?PUT ,PRSO ,PRSI>
+		       <RTRUE>)
+		      (<PRSI? ,ME>
+		       <TELL "You'd probably miss." CR>
+		       <RTRUE>)
+		      (<PRSI? ,FIELD>
+		       <START-SENTENCE ,PRSO>
+		       <TELL " bounces off the weeds." CR>)
+		      (T
+		       <START-SENTENCE ,PRSI>
+	       	       <COND (<FSET? ,PRSI ,VICBIT> <TELL " ducks">)
+			     (T <TELL " doesn't duck">)>
+	       	       <TELL " as the " D ,PRSO " flies by." CR>)>)>
+	 <IDROP>
+	 <COND (<NOT ,PRSI> <TELL "Thrown." CR>)>
+	 <RTRUE>>
+
+<ROUTINE IDROP ()
+	 <COND (<AND <NOT <IN? ,PRSO ,WINNER>> <NOT <IN? <LOC ,PRSO> ,WINNER>>>
+		<TELL-YOURE-NOT "carrying " <>>
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>
+		<RFALSE>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TELL-CLOSED <LOC ,PRSO> <>>
+		<RFALSE>)
+	       (T
+		<COND (<AND <FSET? <LOC ,PLAYER> ,VEHBIT>
+			    <NOT <IN? ,PLAYER ,BED>>>
+		       <MOVE ,PRSO <META-LOC ,PLAYER>>)
+		      (T <MOVE ,PRSO <LOC ,WINNER>>)>
+		<FCLEAR ,PRSO ,WORNBIT>
+		<COND (<PRSO? ,SAFETY-LINE> <ENABLE <QUEUE I-PENDULUM 3>>)>
+		<RTRUE>)>>
+
+<ROUTINE PRE-OPEN ()
+	 <COND (<AND ,PRSI
+		     <NOT <FSET? ,PRSI ,TOOLBIT>>>
+		<PRE-BURN>)>>
+
+<ROUTINE V-OPEN ("AUX" F STR)
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<SAY-MUST-TELL>)
+	       (<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>
+		<COND (<FSET? ,PRSO ,OPENBIT> <TELL-ALREADY "open">)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <COND (<NOT <FIRST? ,PRSO>>
+			      <TELL "Opened." CR>)
+			     (<AND <SET F <FIRST? ,PRSO>>
+				   <NOT <NEXT? .F>>
+				   <SET STR <GETP .F ,P?FDESC>>>
+			      <TELL-OPENS>
+			      <TELL .STR CR>)
+			     (T
+			      <TELL "Opening the " D ,PRSO " reveals ">
+			      <PRINT-CONTENTS ,PRSO>
+			      <TELL "." CR>)>)>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL-ALREADY "open">)
+		      (T
+		       <TELL-OPENS>
+		       <FSET ,PRSO ,OPENBIT>)>)
+	       (T <TELL "The " D ,PRSO " fails to open." CR>)>>
+
+<ROUTINE TELL-OPENS ()
+	 <TELL "The " D ,PRSO " opens." CR>>
+
+<ROUTINE SAY-MUST-TELL ()
+	 <TELL "You must tell me how to do that to ">
+	 <THE? ,PRSO>
+	 <TELL D ,PRSO "." CR>>
+
+<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T) (2ND <>))
+	 <COND (<SET F <FIRST? .OBJ>>
+		<COND (<NOT <NEXT? .F>>
+		       <SETG P-IT-OBJECT .F>)>
+		<REPEAT ()
+			<SET N <NEXT? .F>>
+			<COND (.1ST? <SET 1ST? <>> <SET 2ND T>)
+			      (T
+			       <COND (<OR .N <NOT .2ND>>
+				      <SET 2ND <>>
+				      <TELL ",">)>
+			       <TELL " ">
+			       <COND (<NOT .N> <TELL "and ">)>)>
+			<TELL A .F>
+			<SET F .N>
+			<COND (<NOT .F> <RETURN>)>>)>>
+
+<ROUTINE V-ASK-ABOUT ()
+	 <COND (<PRSO? ,PLAYER ,ME>
+		<TELL-NO-INFO>)
+	       (<NOT <FSET? ,PRSO ,VICBIT>>
+		<SUDDENLY-REALIZE-TALKING ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "After a moment's thought, ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO " disavows any knowledge of that." CR>)>>
+
+<ROUTINE SUDDENLY-REALIZE-TALKING (OBJ)
+	<TELL 
+"You suddenly realize that you're talking to " A .OBJ "." CR>>
+
+<ROUTINE TELL-NO-INFO ()
+	 <TELL
+"You find that you can provide " D ,GLOBAL-SELF " with no new information."
+CR>>
+
+<ROUTINE PRE-ASK-CONTEXT-ABOUT ("AUX" P)
+ <COND (<AND ,QCONTEXT
+	     <==? ,HERE ,QCONTEXT-ROOM>
+	     <==? ,HERE <META-LOC ,QCONTEXT>>>
+	<TELL "(said to " D ,QCONTEXT ")" CR>
+	<PERFORM ,V?ASK-ABOUT ,QCONTEXT ,PRSO>
+	<RTRUE>)
+       ;(<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	<PERFORM ,V?ASK-ABOUT .P ,PRSO>
+	<RTRUE>)>>
+
+<ROUTINE V-ASK-CONTEXT-ABOUT ()
+	<V-ASK-CONTEXT-FOR>>
+
+<ROUTINE V-ASK-FOR ()
+	 <COND (<PRSO? ,PLAYER ,ME>
+		<TELL-NO-INFO>)
+	       (<FSET? ,PRSO ,VICBIT>
+		<COND (<==? ,PRSO ,PLAYER>
+		       <COND (<IN? ,PRSI ,PLAYER>
+			      <TELL-YOU-ALREADY "have it.">)
+			     (T <TELL-DONT-HAVE "it">)>)
+		      (<OR <PRSI? ,KNIFE ,GLOBAL-MONEY
+				  ,RIDICULOUS-MONEY-KLUDGE>
+			   <AND <PRSI? ,INTNUM> ,P-DOLLAR-FLAG>>
+		       <START-SENTENCE ,PRSO>
+		       <TELL " refuses." CR>)
+		      (<AND <PRSO? ,SPEAR-CARRIER>
+			    <G? <GETP ,PRSI ,P?NORTH> 0>>
+		       <TELL-CHARITY>)
+		      (T
+		       <START-SENTENCE ,PRSO>
+		       <COND (<IN? ,PRSI ,PRSO>
+			      <TELL " hands you the " D ,PRSI "." CR>
+			      <MOVE ,PRSI ,WINNER>)
+			     (T <TELL " doesn't have that." CR>)>)>)
+	       (T
+		<SUDDENLY-REALIZE-TALKING ,PRSO>)>>
+
+<ROUTINE PRE-ASK-CONTEXT-FOR ("AUX" P)
+ <COND (<AND ,QCONTEXT
+	     <==? ,HERE ,QCONTEXT-ROOM>
+	     <==? ,HERE <META-LOC ,QCONTEXT>>>
+	<TELL "(said to " D ,QCONTEXT ")" CR>
+	<PERFORM ,V?ASK-FOR ,QCONTEXT ,PRSO>
+	<RTRUE>)
+       ;(<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	<PERFORM ,V?ASK-FOR .P ,PRSO>
+	<RTRUE>)>>
+
+<ROUTINE V-ASK-CONTEXT-FOR ()
+	<TELL-YOURE-NOT "talking to anyone!">>
+
+<ROUTINE V-CALL ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<PERFORM ,V?$CALL ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,VICBIT>
+		<SETG QCONTEXT ,PRSO>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "The " D ,PRSO>
+		<TELL-LISTENING>)
+	       (T <TELL "There's no response." CR>)>>
+
+<ROUTINE V-CALL-LOSE ()
+	 <SETG CLOCK-WAIT T>
+	 <TELL "You must use a verb!" CR>>
+
+<ROUTINE PRE-$CALL ()
+	 <COND (<PRSO? ,INTDIR>
+		<PERFORM ,V?WALK ,P-WALK-DIR>
+		<RTRUE>)
+	       (<NOT <FSET? ,PRSO ,VICBIT>>
+		<V-CALL-LOSE>)>>
+
+<ROUTINE V-$CALL ("AUX" ;PER (MOT <>))
+	 <COND (<PRSO? ,ME ,PLAYER>
+		<V-CALL-LOSE>)
+	       (<FSET? ,PRSO ,PERSON>
+		;<SET PER <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>
+		<COND (<IN-MOTION? ,PRSO> <SET MOT T>)>
+		<COND (<OR <==? <META-LOC ,PRSO> ,HERE> <CORRIDOR-LOOK ,PRSO>>
+		       <START-SENTENCE ,PRSO>
+		       <COND (<GRAB-ATTENTION ,PRSO>
+			      <FSET ,PRSO ,TOUCHBIT>
+			      ;<SETG QCONTEXT ,PRSO> ;"done in GRAB-ATTENTION"
+			      <SETG QCONTEXT-ROOM <META-LOC ,PRSO>>
+			      <COND (.MOT
+				     <TELL " stops and turns toward you." CR>)
+			      	    (T <TELL-LISTENING>)>)
+			     (T
+			      <TELL " ignores you." CR>)>)
+		      (T <TELL "You don't see " D ,PRSO " here." CR>)>)
+	       (<PRSO? ,SPEAR-CARRIER>
+		<SETG QCONTEXT ,SPEAR-CARRIER>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<TELL "The " D ,PRSO>
+		<TELL-LISTENING>)
+	       (T <V-CALL-LOSE>)>>
+
+<ROUTINE TELL-LISTENING ()
+	 <TELL " is listening." CR>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<SAY-MUST-TELL>)
+	       (<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
+		     <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <FCLEAR ,PRSO ,OPENBIT>
+		       <TELL "Closed." CR>)
+		      (T <TELL-ALREADY "closed">)>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL-NOW ,PRSO "closed">
+		       <FCLEAR ,PRSO ,OPENBIT>)
+		      (T <TELL-ALREADY "closed">)>)
+	       (T <TELL-YOU-CANT "close that.">)>>
+
+<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<NOT <FSET? .X ,WORNBIT>>
+			       <SET CNT <+ .CNT 1>>)>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+"WEIGHT:  Get sum of SIZEs of supplied object, recursing to the nth level."
+
+<ROUTINE WEIGHT
+	 (OBJ "AUX" CONT (WT 0))
+	 <COND (<SET CONT <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<AND <==? .OBJ ,WINNER> <FSET? .CONT ,WEARBIT>>
+			       <SET WT <+ .WT 1>>)
+			      (T <SET WT <+ .WT <WEIGHT .CONT>>>)>
+			<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
+	 <+ .WT <GETP .OBJ ,P?SIZE>>>
+
+<ROUTINE V-BREATHE ()
+	 <COND (<AND ,PRSO <NOT <PRSO? ,AIR>>>
+		<TELL "Stick to air." CR>)
+	       (T <TELL "If you stop breathing, I'll let you know." CR>)>>
+
+;<ROUTINE V-BUG ()
+	 <TELL
+"If there is a problem here, it is unintentional. You may report
+your problem to the address provided in your documentation." CR>>
+
+<GLOBAL COPR-NOTICE
+" a transcript of interaction with CUTTHROATS.|
+CUTTHROATS is a trademark of Infocom, Inc.|
+Copyright (c) 1984, Infocom, Inc. All rights reserved.|">
+
+<ROUTINE V-SCRIPT ()
+	<PUT 0 8 <BOR <GET 0 8> 1>>
+	<TELL "Here begins" ,COPR-NOTICE CR>>
+
+<ROUTINE V-UNSCRIPT ()
+	<TELL "Here ends" ,COPR-NOTICE CR>
+	<PUT 0 8 <BAND <GET 0 8> -2>>
+	<RTRUE>>
+
+<ROUTINE PRE-MOVE ()
+	 <COND (<PRSO? ,SAFETY-LINE> <RFALSE>)
+	       (<IN? ,PLAYER ,PRSO> <TELL-CONTORT>)
+	       (<HELD? ,PRSO> <TELL "I don't juggle objects!" CR>)>>
+
+<ROUTINE V-MOVE ()
+	 <COND (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "Moving the " D ,PRSO " reveals nothing." CR>)
+	       (<FSET? ,PRSO ,PUSHBIT>
+		<TELL-MOVES-BIT>)
+	       (T <TELL-YOU-CANT "move " <>>
+		  <THE? ,PRSO>
+		  <TELL D ,PRSO "." CR>)>>
+
+<ROUTINE V-LAMP-ON ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "Restrain yourself." CR>)
+	       (T <TELL-YOU-CANT "turn that on.">)>>
+
+;<ROUTINE FLAMING? (OBJ)
+	 <COND (<FSET? .OBJ ,FLAMEBIT>
+		<RTRUE>)>>
+
+;<ROUTINE LIGHT-THE (OBJECT SUPPRESS?)
+	 <FSET .OBJECT ,ONBIT>
+	 ;<FSET .OBJECT ,FLAMEBIT>
+	 <COND (<NOT .SUPPRESS?>
+		<TELL "The " D .OBJECT " is now lit." CR>)>
+	 <COND (<NOT ,LIT>
+		<SETG LIT <LIT? ,HERE>>
+		<CRLF>
+		<V-LOOK>)>>
+
+<ROUTINE V-LAMP-OFF ()
+	 <TELL-YOU-CANT "turn that off.">>
+
+<ROUTINE TELL-PASSES () <TELL "Time passes..." CR>>
+
+<ROUTINE V-WAIT ("OPTIONAL" (NUM 10) (NOT-INT? T) (WHO <>)
+		 "AUX" (INTERRUPTED <>))
+	 <COND (.NOT-INT?
+		<TELL-PASSES>
+		<COND (<G? ,I-WAIT-DURATION 0>
+		       <RFALSE>)>)>
+	 <REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)
+		       (<CLOCKER> <SET INTERRUPTED T> <RETURN>)
+		       (<AND .WHO <IN? .WHO ,HERE>>
+			<SET INTERRUPTED T> <RETURN>)>
+		 <USL>>
+	 <COND (.NOT-INT? <SETG CLOCK-WAIT T>)
+	       (T .INTERRUPTED)>>
+
+<ROUTINE V-WAIT-FOR ()
+	 <COND (<==? ,PRSO ,INTNUM>
+		<COND ;(<G? ,P-NUMBER ,PRESENT-TIME> <V-WAIT-UNTIL> <RTRUE>)
+		      (<G? ,P-NUMBER 180>
+		       <TELL "That's too long to wait." CR>)
+		      (T <V-WAIT ,P-NUMBER>)>)
+	       ;(<==? ,PRSO ,MIDNIGHT> <V-WAIT-UNTIL> <RTRUE>)
+	       (<PRSO? ,ME ,PLAYER> <TELL "You're already here!" CR>)
+	       (<OR <FSET? ,PRSO ,PERSON>
+		    <==? ,PRSO ,DELIVERY-BOY>>
+		<COND (<IN? ,PRSO ,HERE>
+		       <TELL "He's already here!" CR>)
+		      (T <TELL-PASSES>
+		       <REPEAT ()
+			       <COND (<V-WAIT 30 <> ,PRSO>
+				      <COND (<IN? ,PRSO ,HERE>
+					     <FSET ,PRSO ,TOUCHBIT>
+			       		     <START-SENTENCE ,PRSO>
+					     <TELL
+", for whom you were waiting, has arrived." CR>
+			       		     <SETG P-IT-OBJECT ,PRSO>
+					     <RETURN>)>)>
+			       <START-SENTENCE ,PRSO>
+			       <TELL
+" isn't here yet. Do you want to keep waiting? (YES or NO?)">
+			       <COND (<NOT <YES?>>
+				      <TELL "If you say so..." CR>
+				      <RETURN>)>>
+		       <SETG CLOCK-WAIT T>)>)
+	       (<FSET? ,PRSO ,VICBIT>
+		<TELL "I don't think he's going anywhere." CR>)
+	       (T <TELL "Why? It's not going anywhere." CR>)>>
+
+;<ROUTINE V-WAIT-UNTIL ("AUX" NUM)	;"?? time?"
+	 <COND ;(<==? ,PRSO ,MIDNIGHT>
+		<SETG P-NUMBER 720>
+		<SETG PRSO ,INTNUM>)
+	       (<L? ,P-NUMBER 24>
+		<SETG P-NUMBER <* ,P-NUMBER 60>>)>
+	 <COND (<==? ,PRSO ,INTNUM>
+		<SET NUM ,P-NUMBER>
+		<TELL-PASSES>
+		<REPEAT ()
+			<COND (<G? .NUM ,PRESENT-TIME>
+		       	       <COND (<V-WAIT <- .NUM ,PRESENT-TIME> <>>
+				      <TELL
+"Do you want to keep waiting? (YES or NO?)">
+				      <COND (<NOT <YES?>> <RTRUE>)
+					    (T <SET NUM <- .NUM 1440>>)>)
+			       	     (T <RTRUE>)>)
+		      	      (T <SET NUM <+ .NUM 720>>)>>
+		<V-TIME>)
+	       (T <TELL "Wash your brain out with soap!" CR>)>>
+
+<ROUTINE PRE-BOARD ("AUX" AV)
+	 <SET AV <LOC ,WINNER>>
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<COND (<FSET? .AV ,VEHBIT>
+		       <TELL
+"You are already " <VEHPREP .AV> " the " D .AV "!" CR>)
+		      (T <RFALSE>)>)
+	       (<FSET? ,PRSO ,WEARBIT>
+		<PERFORM ,V?WEAR ,PRSO>)
+	       (<PRSO? ,NOT-HERE-OBJECT ,CLOSET ,FIELD ,OCEAN ,REDS-BUNK
+		       ,BACK-WINDOW>
+		<RFALSE>)
+	       (T
+		<TELL "I suppose you have a theory on getting into ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)>
+	 <RFATAL>>
+
+<ROUTINE V-BOARD ()
+	 <TELL "You are now " <VEHPREP ,PRSO> " the " D ,PRSO "." CR>
+	 <MOVE ,WINNER ,PRSO>
+	 ;<APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
+	 <RTRUE>>
+
+<GLOBAL STOOD-UP <>>
+
+<ROUTINE V-DISEMBARK ()
+	 <COND (<FSET? ,PRSO ,WORNBIT>
+		<UNWEAR>
+		<RTRUE>)
+	       (<NOT <==? <LOC ,WINNER> ,PRSO>>
+		<TELL-YOURE-NOT "in that!">
+		<RFATAL>)
+	       (<FSET? ,HERE ,RLANDBIT>
+		<COND (<NOT ,STOOD-UP>
+		       <TELL "You get out of bed." CR>
+		       <SETG STOOD-UP T>)
+		      (T
+		       <TELL "You are on your feet again." CR>)>
+		<MOVE ,WINNER ,HERE>)
+	       (T
+		<TELL
+;"You realize, just in time, that getting out here would probably be fatal."
+		 "A bad idea." CR>;"I don't think this case happens"
+		<RFATAL>)>>
+
+;<ROUTINE V-BLAST ()
+	 <TELL-YOU-CANT "blast anything by using words.">>
+
+<ROUTINE PRE-BUY ()
+	 <COND (<AND <NOT <PRSO? ,DRINKING-WATER>>
+		     <OR <FSET? ,WET-SUIT ,WORNBIT>
+		    	 <FSET? ,DEEP-SUIT ,WORNBIT>>>
+		<TELL-YOU-CANT "get at your money.">)>>
+
+<ROUTINE V-BUY ("OPTIONAL" (RENT <>) "AUX" COST)
+	 <COND (<AND <NOT <IN? ,PRSO ,ROOMS>>
+		     <SET COST <GETP ,PRSO ,P?NORTH>>
+		     <G? .COST 0>>
+		<COND (<AND <ENABLED? I-EQUIP>
+			    <NOT <IN? ,MCGINTY ,OUTFITTERS-HQ>>>
+		       <TELL "The salesman is too busy with Johnny right now." CR>)
+		      (<AND <FSET? ,PRSO ,RENTBIT>
+			    <NOT .RENT>>
+		       <TELL
+"That's not for sale, but you might try renting it." CR>)
+		      (<G? .COST ,POCKET-CHANGE>
+		       <TELL-NO-AFFORD>)
+		      (T
+		       <SETG POCKET-CHANGE <- ,POCKET-CHANGE .COST>>
+		       <PUTP ,PRSO ,P?NORTH -1>
+		       <COND (<AND ,JOHNNY-MADE-DEAL
+				   <NOT ,DELIVERY-MADE>>
+			      <FSET ,PRSO ,TRYTAKEBIT>
+			      <PUT ,DELIVERY-TABLE ,DT-PTR ,PRSO>
+			      <SETG DT-PTR <+ ,DT-PTR 2>>)
+			     (T
+			      <FSET ,PRSO ,TAKEBIT>
+			      <FCLEAR ,PRSO ,NDESCBIT>
+			      <COND (<OR <G?
+					  <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>>
+					  ,LOAD-ALLOWED>
+					 <G? <CCOUNT ,WINNER> ,FUMBLE-NUMBER>>
+				     <MOVE ,PRSO ,GLOBAL-SURFACE>)
+				    (T <MOVE ,PRSO ,WINNER>)>)>
+		       <TELL "You have ">
+		       <COND (.RENT <TELL "rented">)
+			     (T <TELL "purchased">)>
+		       <TELL " " A ,PRSO " for $" N .COST>
+		       <COND (<IN? ,PRSO ,GLOBAL-SURFACE>
+			      <TELL
+". Since you can't currently carry it, the salesman leaves it on the counter">)>
+		       <TELL "." CR>)>)
+	       (<==? .COST -1>
+		<COND (<FSET? ,PRSO ,RENTBIT>
+		       <TELL "You've already rented it." CR>)
+		      (T <TELL-ONLY-ONCE "had to buy">)>)
+	       (<PRSO? ,DRINKING-WATER>
+		<COND (<EQUAL? ,HERE ,MM-GALLEY ,NW-GALLEY>
+		       <TELL "Get it " D ,GLOBAL-SELF "." CR>)
+		      (T
+		       <PERFORM ,V?ASK-FOR ,SPEAR-CARRIER ,DRINKING-WATER>
+		       <SETG P-IT-OBJECT ,DRINKING-WATER>
+		       <RTRUE>)>)
+	       (T <TELL "That's not for sale." CR>)>>
+
+<ROUTINE TELL-ONLY-ONCE (STR)
+	 <TELL "You only " .STR " it once." CR>>
+
+<ROUTINE V-RENT ("AUX" COST)
+	 <COND (<AND <NOT <IN? ,PRSO ,ROOMS>>
+		     <SET COST <GETP ,PRSO ,P?NORTH>>
+		     <G? .COST 0>>
+		<COND (<NOT <FSET? ,PRSO ,RENTBIT>>
+		       <TELL
+"That's not available for rental. You might try buying it." CR>)
+		      (T <V-BUY T>)>)
+	       (<==? .COST -1>
+		<COND (<FSET? ,PRSO ,RENTBIT>
+		       <TELL-ONLY-ONCE "need to rent">)
+		      (T <TELL-YOU-ALREADY "bought it!">)>)
+	       (T <TELL-YOU-CANT "rent that.">)>>
+
+<ROUTINE GOTO (RM "OPTIONAL" (V? T)
+	       "AUX" (LB <FSET? .RM ,RLANDBIT>) (WLOC <LOC ,WINNER>)
+	             (AV <>) OLIT F N)
+	 <SET OLIT ,LIT>
+	 <COND (<FSET? .WLOC ,VEHBIT>
+		<TELL-YOUD-BETTER "get " <> <>>
+		<COND (<FSET? .WLOC ,SURFACEBIT>
+		       <TELL "off">)
+		      (T <TELL "out">)>
+		<TELL " of the " D .WLOC " first." CR>
+		<RFATAL>
+		;<SET AV <GETP .WLOC ,P?VTYPE>>)>
+	 <COND ;(<OR <AND <NOT .LB> <OR <NOT .AV> <NOT <FSET? .RM .AV>>>>
+		    <AND <FSET? ,HERE ,RLANDBIT>
+			 .LB
+			 .AV
+			 <NOT <==? .AV ,RLANDBIT>>
+			 <NOT <FSET? .RM .AV>>>>
+		<COND (.AV
+		       <TELL-YOU-CANT "go there in " <>>
+		       <TELL A .WLOC ".">)
+		      (T <TELL-YOU-CANT "go there without a vehicle." <>>)>
+		<CRLF>
+		<RFALSE>)
+	       ;(<FSET? .RM ,RMUNGBIT> <TELL <GETP .RM ,P?LDESC> CR> <RFALSE>)
+	       (T
+		;<COND (.AV <MOVE .WLOC .RM>)
+		      (T
+		       <MOVE ,WINNER .RM>)>
+		<MOVE ,WINNER .RM>
+		<SETG HERE .RM>
+		<SETG LIT <LIT? ,HERE>>
+		<COND (<AND <NOT .OLIT>
+			    <NOT ,LIT>
+			    <PROB 90>>
+		       <JIGS-UP
+"You suddenly bump into something in the darkness. You find that this something
+has long, sharp teeth that feel uncomfortable when they enter your body.">)>
+		<APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
+		<RATING-OBJ .RM>
+		<COND (<NOT <==? ,HERE .RM>> <RTRUE>)
+		      (<NOT <==? ,ADVENTURER ,WINNER>>
+		       <START-SENTENCE ,WINNER>
+		       <TELL " leaves the room." CR>
+		       <RFATAL>)
+		      (.V?
+		       <V-FIRST-LOOK>
+		       <COND (<IN? ,MAGNET ,PLAYER>
+			      <COND (,MAGNET-ON
+				     <ATTRACTION>)
+				    (<SET F <FIRST? ,MAGNET>>
+				     <MOVE .F .WLOC>)>)>)>
+		<RTRUE>)>>
+
+<ROUTINE V-BACK ()
+	 <TELL "Sorry, my memory isn't that good. ">
+	 <TELL-SHD-DIR>>
+
+<ROUTINE POURABLE? (OBJ)
+	 <COND (<EQUAL? .OBJ ,DRINKING-WATER ,DRINK-OBJECT>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<ROUTINE V-POUR ()
+	 <COND (<PRSO? ,OCEAN>
+	        <TELL-YOURE-NOT "Moses!">)
+	       (<NOT <POURABLE? ,PRSO>>
+		<TELL-YOU-CANT "pour that.">
+		<RTRUE>)
+	       (<AND <==? ,HERE ,SHANTY>
+		     <NOT <IN? ,PRSO ,TABLE-OBJECT>>>
+		<TELL-BUY-FIRST>)
+	       (T
+		<MOVE ,PRSO ,HERE>
+		<FSET ,PRSO ,NDESCBIT>
+		<TELL "It evaporates immediately." CR>)>>
+
+<ROUTINE V-POUR-IN ("AUX" L)
+	 <COND (<NOT <POURABLE? ,PRSO>>
+		<TELL "I don't think you can pour " A ,PRSO ".">)
+	       (<NOT <FSET? ,PRSI ,CONTBIT>>
+	        <TELL
+"You'd have a lot of trouble pouring the " D ,PRSO " into ">		
+		<THE? ,PRSI>
+		<TELL D ,PRSI "." CR>
+		<RTRUE>)
+	       (T
+		<TELL-WHY-BOTHER>)>>
+	        
+<ROUTINE V-POUR-ON ()
+	 <COND (<POURABLE? ,PRSO>
+		<TELL-WHY-BOTHER>)
+	       (T <TELL-YOU-CANT "pour that.">)>>
+
+<ROUTINE V-SHOW ()
+	 <COND (<NOT ,PRSI>
+		<TELL "Huh?" CR>)
+	       (<PRSI? ,PLAYER ,ME>
+		<TELL "Do you often talk to " D ,GLOBAL-SELF "?" CR>)
+	       (<NOT <FSET? ,PRSI ,VICBIT>>
+		<TELL "Don't wait for ">
+		<THE? ,PRSI>
+		<TELL D ,PRSI " to applaud." CR>)
+	       (<==? ,PRSI ,PRSO>
+		<TELL "He's already aware of his own presence." CR>)
+	       (T
+		<TELL "Although ">
+		<THE? ,PRSI>
+		<TELL D ,PRSI " takes a look, he seems disinterested." CR>)>>
+
+<ROUTINE PRE-SSHOW ()
+	 <SETG P-MERGED T>
+	 <PERFORM ,V?SHOW ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SSHOW () <TELL "Bug.">>
+
+<ROUTINE V-SPRAY () <V-SQUEEZE>>
+<ROUTINE V-SSPRAY () <PERFORM ,V?SPRAY ,PRSI ,PRSO>>
+
+<ROUTINE V-SQUEEZE ()
+	  <TELL "How singularly useless." CR>>
+
+;<ROUTINE PRE-OIL ()
+	 <TELL "You probably put spinach in your gas tank, too." CR>>
+
+<ROUTINE V-OIL () <TELL "That's not very useful." CR>>
+
+<ROUTINE V-FILL ()
+	 <TELL-NO-NO>>
+
+;<ROUTINE V-ADVENTURE () <TELL "A hollow voice says \"Fool.\"" CR>>
+
+<ROUTINE PRE-DRILL ()
+	 <COND (<NOT ,PRSI>
+		<SETG PRSI ,DRILL>)>
+	 <COND (<NOT <PRSI? ,DRILL>>
+		<PRE-BURN>)
+	       (<NOT <IN? ,DRILL ,PLAYER>>
+		<TELL-YOURE-NOT "holding the drill.">)>>
+
+<ROUTINE V-DRILL ()
+	 <TELL-YOU-CANT "drill that!">>
+
+<ROUTINE PRE-DRILL-IN ()
+	 <COND (<NOT <IN? ,DRILL ,PLAYER>>
+		<TELL "A drill might help." CR>)
+	       (<OR <PRSO? ,HOLE ,HOLE-1 ,HOLE-2>
+		    <PRSO? ,JAGGED-HOLE ,CEILING-HOLE-1 ,CEILING-HOLE-2>
+		    <PRSO? ,FLOOR-HOLE-1 ,FLOOR-HOLE-2>>
+		<TELL "(with the " D ,DRILL ")" CR>
+		<PERFORM ,V?DRILL ,PRSI ,DRILL>
+		<RTRUE>)
+	       (T
+		<SETG CLOCK-WAIT T>
+		<TELL "I can't figure out what you mean." CR>)>>
+
+<ROUTINE V-DRILL-IN ()
+	 <TELL "Bug." CR>>
+
+<ROUTINE PRE-DRINK ()
+	 <COND (<NOT <==? ,WINNER ,PLAYER>>
+		<TELL "\"I'm not thirsty.\"" CR>)
+	       (<FSET? ,PRSO ,DRINKBIT>
+		<COND (<FSET? ,DEEP-SUIT ,WORNBIT>
+		       <TELL-IN-WAY>)
+		      (<FSET? ,MASK ,WORNBIT>
+		       <TELL-IN-WAY <>>)
+		      (T <RFALSE>)>)
+	       (T <TELL-YOU-CANT "drink that.">)>>
+
+<ROUTINE V-DRINK ()
+	 <TELL "I don't think ">
+	 <THE? ,PRSO>
+	 <TELL D ,PRSO " would go down very well." CR>>
+
+<ROUTINE TELL-IN-WAY ("OPTIONAL" (HOOD? T))
+	 <TELL "The ">
+	 <COND (.HOOD? <TELL "hood">)
+	       (T <TELL D ,MASK>)>
+	 <TELL " would get in the way." CR>>
+
+<ROUTINE PRE-EAT ()
+	 <COND (<NOT <==? ,WINNER ,PLAYER>>
+		<TELL "\"I'm not hungry.\"" CR>)
+	       (<AND ,SOUPS-ON
+		     <FSET? ,PRSO ,FOODBIT>>
+		<COND (<FSET? ,DEEP-SUIT ,WORNBIT>
+		       <TELL-IN-WAY>)
+		      (<FSET? ,MASK ,WORNBIT>
+		       <TELL-IN-WAY <>>)
+		      (T <RFALSE>)>)
+	       (<AND <==? ,HERE ,SHANTY>
+		     <FSET? ,PRSO ,FOODBIT>>
+		<TELL "You'll have to buy it first." CR>)
+	       (<FSET? ,PRSO ,DRINKBIT>
+		<TELL "Try drinking it." CR>)>
+	      ;<COND (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <FSET? ,PRSO ,FOODBIT>>
+		<COND (<EQUAL? <ITAKE <>> T>
+		       <TELL "(Taken)" CR>
+		       <RFALSE>)
+		      (T <RTRUE>)>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <EQUAL? ,PRSO ,ME ,WINNER ,ADVENTURER>>
+		     <FSET? ,PRSO ,FOODBIT>>
+		<TELL-YOURE-NOT "holding " <>>
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-EAT ()
+	 <COND ;(<FSET? ,PRSO ,FOODBIT>
+		<REMOVE ,PRSO>
+		<TELL "That really hit the spot." CR>)
+	       (<FSET? ,PRSO ,PERSON>
+		<TELL 
+"Cannibalism isn't a good idea. Especially when you're more likely to be the
+dinner than the diner." CR>)
+	       (T
+		<TELL "I don't think that ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO " would agree with you." CR>)>>
+
+<ROUTINE V-CURSES ()
+	 <COND (,PRSO
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL "Insults of this nature won't help you." CR>)
+		      (T
+		       <TELL "And to think that ">
+		       <THE? ,PRSO>
+		       <TELL D ,PRSO " never said anything bad about you..." CR>)>)
+	       (T
+		<TELL "You really don't have to swear like a sailor." CR>)>>
+
+<ROUTINE V-LISTEN ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "If ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO " says anything useful, I'll let you know." CR>)
+	       (T
+		<START-SENTENCE ,PRSO>
+		<TELL " makes no sound." CR>)>>
+
+<ROUTINE V-FOLLOW ("AUX" CN CHR COR PCOR L)
+	 <SETG L-PRSO ,PRSO>
+	 <SETG L-PRSA ,PRSA>
+	 <COND (<NOT <==? ,WINNER ,PLAYER>>
+		<TELL-FREE-WILL>
+		<RFATAL>)
+	       (<==? ,PRSO ,PLAYER>
+		<TELL "It's not clear whom you're talking to." CR>)
+	       (<AND <NOT <FSET? ,PRSO ,PERSON>>
+		     <NOT <==? ,PRSO ,DELIVERY-BOY>>>
+		<TELL "That doesn't sound very exciting." CR>)
+	       (<==? ,HERE <SET L <LOC ,PRSO>>>
+		<TELL "You're in the same place as ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "!" CR>)
+	       (<AND <SET COR <GETP ,HERE ,P?CORRIDOR>>
+		     <SET PCOR <GETP .L ,P?CORRIDOR>>
+		     <NOT <==? <BAND .COR .PCOR> 0>>>
+		<SETG PRSO <COR-DIR ,HERE .L>>
+		<SETG P-WALK-DIR ,PRSO>
+		<V-WALK>)
+	       (<IN? ,PRSO ,FERRY>
+		<TELL-CANT-BOARD>)
+	       (T
+		<TELL "You seem to have lost track of ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE TELL-FREE-WILL () <TELL "\"I'll go where I want!\"" CR>>
+
+<ROUTINE V-STAY ()
+	 <COND (<==? ,WINNER ,PLAYER>
+		<TELL "I'm not going anywhere." CR>)
+	       (T
+	        <TELL-FREE-WILL>
+		<RFATAL>)>>
+
+<ROUTINE V-PRAY ()
+	 <TELL "If you pray enough, your prayers may be answered." CR>>
+
+;<ROUTINE V-PRICE ("AUX" COST)
+	 <COND (<AND <NOT <IN? ,PRSO ,ROOMS>>
+		     <SET COST <GETP ,PRSO ,P?NORTH>>
+		     <G? .COST 0>>
+		<TELL "The " D ,PRSO " will cost $" N .COST "." CR>)
+	       (T <TELL "That's not for sale." CR>)>>
+
+<ROUTINE V-LEAP ("AUX" Z S)
+	 <COND (<AND ,PRSO
+		     <NOT <PRSO? ,INTDIR>>>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (<SET Z <GETPT ,HERE ,P?DOWN>>
+		<SET S <PTSIZE .Z>>
+		<COND (<OR <==? .S 2>					 ;NEXIT
+			   <AND <==? .S 4>				 ;CEXIT
+				<NOT <VALUE <GETB .Z 1>>>>>
+		       <JIGS-UP
+"This was not a very safe place to try jumping.">)
+		      (T <V-SKIP>)>)
+	       (T <V-SKIP>)>>
+
+<ROUTINE V-SKIP ()
+	 <COND (<FSET? <LOC ,PLAYER> ,VEHBIT>
+		<TELL "That would be tough from your current position." CR>)
+	       (T <TELL <PICK-ONE ,WHEEEEE> CR>)>>
+
+<ROUTINE V-LEAVE () <DO-WALK ,P?OUT>>
+
+;<GLOBAL HS 0>
+
+<ROUTINE V-HELLO ()
+	 <COND (,PRSO
+		<TELL-NO-RESPONSE>)
+	       (ELSE <TELL <PICK-ONE ,HELLOS> CR>)>>
+
+<ROUTINE V-GOODBYE ()
+	 <V-HELLO>
+	 ;<COND (,PRSO
+		<TELL
+"I think that only lunatics say \"Goodbye\" to " A ,PRSO "." CR>)
+	       (ELSE <TELL <PICK-ONE ,HELLOS> CR>)>>
+
+<ROUTINE TELL-NO-RESPONSE ()
+	 <START-SENTENCE ,PRSO>
+	 <TELL " fails to respond." CR>>
+
+<GLOBAL HELLOS
+	<PLTABLE "Hello."
+	       "Good day."
+	       "Nice weather we've been having lately."
+	       "Goodbye.">>
+
+<GLOBAL WHEEEEE
+	<PLTABLE "Very good. Now you can go to the second grade."
+	       "I hope you enjoyed that as much as I did."
+	       "Are you enjoying yourself?"
+	       "Wheeeeeeeeee!!!!!"
+	       "Do you expect me to applaud?">>
+
+;<GLOBAL JUMPLOSS
+	<LTABLE "You should have looked before you leaped."
+	       "I'm afraid that leap was a bit much for your weak frame."
+	       "In the movies, your life would be passing in front of your eyes."
+	       "Geronimo.....">>
+
+<ROUTINE PRE-READ ()
+	 <COND (<NOT ,LIT> <TELL "It is impossible to read in the dark." CR>)
+	       (,PRSI 
+		<TELL "How does one look through " A ,PRSI "?" CR>)>>
+
+<ROUTINE V-READ ()
+	 <COND (<NOT <FSET? ,PRSO ,READBIT>>
+		<TELL "How can I read " A ,PRSO "?" CR>)
+	       (T
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>)>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "His feet are on the floor." CR>)
+	       (<PRSO? ,FOOD ,DRINK-OBJECT ,LIGHTHOUSE ,CLOSET ,GROUND ,OCEAN>
+		<TELL <PICK-ONE ,YUKS> CR>)
+	       (<IN? ,PRSO ,PLAYER>
+		<TELL "You have it." CR>)
+	       (T
+		<TELL-NOTHING "but ">
+	 	<COND (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		       <TELL "seaweed">)
+	       	      (<PRSO? ,TRAWLER ,SALVAGER ,FERRY ,GLOBAL-FERRY>
+		       <TELL "water">)
+		      (T <TELL "dust">)>
+	 	<TELL " there." CR>)>>
+
+;<ROUTINE V-LOOK-DOWN () <TELL "You can't see anything down there." CR>>
+
+<ROUTINE V-LOOK-BEHIND ()
+	 <TELL-NOTHING "behind ">
+	 <THE? ,PRSO>
+	 <TELL D ,PRSO "." CR>>
+
+<ROUTINE TELL-NOTHING (STR "OPTIONAL" (DONE? <>))
+	 <TELL "There's nothing " .STR>
+	 <COND (.DONE? <TELL "." CR>)>>
+
+<ROUTINE PRE-LOOK-IN ()
+	 <COND (<FSET? ,PRSO ,SURFACEBIT>
+		<TELL "It's solid." CR>)>>
+
+<ROUTINE PRE-LOOK-ON ()
+	 <COND (<AND <FSET? ,PRSO ,CONTBIT>
+		     <NOT <FSET? ,PRSO ,SURFACEBIT>>>
+		<TELL-NOTHING "on ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE V-LOOK-INSIDE ("OPTIONAL" (REACH? <>))
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<TELL "The " D ,PRSO " is ">
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "open, but you can't tell what's beyond it">)
+		      (T <TELL "closed">)>
+		<TELL "." CR>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL-NOTHING "special to be ">
+		       <COND (.REACH?
+			      <TELL "felt">)
+			     (T
+			      <TELL "seen">)>
+		       <TELL "." CR>)
+		      (<SEE-INSIDE? ,PRSO>
+		       <COND (<AND <FIRST? ,PRSO> <PRINT-CONT ,PRSO>>
+			      <RTRUE>)
+			     (<FSET? ,PRSO ,WORNBIT>
+			      <TELL "You're wearing it." CR>
+			      <RTRUE>)
+			     (<FSET? ,PRSO ,SURFACEBIT>
+			      <COND (<IN? ,WINNER ,PRSO>
+				     <TELL "You're on it!" CR>
+				     <RTRUE>)
+				    (T
+				     <TELL-NOTHING "on the ">
+				     <TELL D ,PRSO "." CR>
+				     <RTRUE>)>)
+			     (T
+			      <TELL "The " D ,PRSO " is empty." CR>
+			      <RTRUE>)>)
+		      (T <TELL-CLOSED ,PRSO <>>)>)
+	       (T <TELL "I don't know how to do that." CR>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	      <OR <FSET? .OBJ ,OPENBIT>
+		  <FSET? .OBJ ,TRANSBIT>>>>
+
+;<ROUTINE V-REPENT () <TELL "It could very well be too late!" CR>>
+
+<ROUTINE PRE-BURN ()
+	 <COND (<NOT ,PRSI>
+		<TELL "Huh?" CR>)
+	       (T <TELL "With " A ,PRSI "??!?" CR>)>>
+
+<ROUTINE V-BURN ()
+	 <TELL-NO-NO>>
+
+<ROUTINE PRE-TURN ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<AND <PRSO? ,PSEUDO-OBJECT>
+		     <EQUAL? ,HERE ,MM-WHEELHOUSE ,NW-WHEELHOUSE>>
+		<RFALSE>)
+	       (<NOT <FSET? ,PRSO ,TURNBIT>>
+		<TELL-WHY-BOTHER>)
+	       (<AND ,PRSI
+		     <EQUAL? ,PRSI ,INTDIR>>
+		<TELL-YOU-CANT "turn things to a specific direction.">)>>
+
+<ROUTINE V-TURN () <TELL-NO-EFFECT>>
+
+<ROUTINE TELL-NO-EFFECT () <TELL "This has no effect." CR>>
+
+<ROUTINE V-PUMP ()
+	 <TELL "I really don't see how." CR>>
+
+<ROUTINE V-INFLATE () <TELL-HOW-THAT "inflate">>
+
+<ROUTINE V-DEFLATE () <TELL "Come on, now!" CR>>
+
+<ROUTINE V-LOCK () <TELL "It doesn't seem to work." CR>>
+
+<ROUTINE V-PICK () <TELL-YOU-CANT "pick that.">>
+
+<ROUTINE PRE-UNLOCK ()
+	 <COND (<PRSO? ,SAFE>
+		<RFALSE>)
+	       (<AND <NOT ,PRSI>
+		     <IN? ,KEY ,PLAYER>>
+		<SETG PRSI ,KEY>
+		<TELL "(with the room key)" CR>
+		<RFALSE>)>>
+
+<ROUTINE V-UNLOCK ()
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<TELL "It's not locked." CR>)
+	       (T <V-LOCK>)>>
+
+<ROUTINE V-CUT ()
+	 <COND (<NOT ,PRSI>
+		<TELL "Huh?" CR>)
+	       (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<TELL "Not with " A ,PRSI "!" CR>)
+	       (<OR <FSET? ,PRSO ,VICBIT>
+		    <PRSO? ,SQUID>>
+		<IKILL "cut">)
+	       (T
+		<TELL "Strange concept, cutting " A ,PRSO "..." CR>)>>
+
+<ROUTINE V-KILL ()
+	 <IKILL "kill">>
+
+<ROUTINE IKILL (STR)
+	 <COND (<NOT ,PRSO>
+		<TELL-NOTHING "here to ">
+		<TELL .STR "." CR>)
+	       (<PRSO? ,SQUID>
+		<JIGS-UP
+"The squid, angered and wounded, starts wrapping tentacles around you. As you
+attempt another foray, you find that the squid's strength is too much for you.">)
+	       (<NOT <FSET? ,PRSO ,VICBIT>>
+		<TELL 
+		    "I've known strange people, but fighting " A ,PRSO "?" CR>)
+	       (<OR <NOT ,PRSI>
+		    <PRSI? ,ME ,GLOBAL-SELF>>
+		<TELL
+"Trying to " .STR " " A ,PRSO " with your bare hands is suicidal." CR>)
+	       (<NOT <IN? ,PRSI ,WINNER>>
+		<TELL "You aren't even holding ">
+		<THE? ,PRSI>
+		<TELL D ,PRSI "." CR>)
+	       (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<TELL "Trying to " .STR " ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO " with " A ,PRSI " is suicidal." CR>)
+	       (T <TELL-NOT-SMART>)>>
+
+<ROUTINE V-ATTACK () <IKILL "attack">>
+
+<ROUTINE V-SWING ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<TELL-YOURE-NOT "Benny Goodman">)
+	       (T
+		<TELL "Whoosh!" CR>)>>
+
+<ROUTINE V-KICK ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL-NOT-SMART>)
+	       (T <HACK-HACK "Kicking">)>>
+
+<ROUTINE TELL-NOT-SMART ()
+	 <TELL "That wouldn't be too smart." CR>>
+
+<ROUTINE V-WAVE () <HACK-HACK "Waving">>
+
+<ROUTINE V-WAVE-AT ()
+	 <COND (<AND ,PRSO
+		     <FSET? ,PRSO ,VICBIT>>
+		<START-SENTENCE ,PRSO>
+		<TELL " acknowledges your greeting." CR>)
+	       (T
+		<TELL-NO-RESPONSE>)>>
+
+;<ROUTINE V-RAISE () <HACK-HACK "Playing in this way with">>
+
+<ROUTINE V-LOWER () <HACK-HACK "Playing in this way with">>
+
+<ROUTINE V-RUB ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL-HANDS-OFF>)
+	       (T <HACK-HACK "Fiddling with">)>>
+
+<ROUTINE TELL-HANDS-OFF ()
+	 <TELL "\"Get your hands off me!\"" CR>>
+
+<ROUTINE V-PUSH ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL-HANDS-OFF>)
+	       (<IN? ,WINNER ,PRSO>
+		<TELL-CONTORT>)
+	       (<FSET? ,PRSO ,PUSHBIT>
+		<TELL-MOVES-BIT>)
+	       (T <HACK-HACK "Pushing">)>>
+
+<ROUTINE TELL-MOVES-BIT ()
+	 <START-SENTENCE ,PRSO>
+	 <TELL " moves a bit." CR>>
+
+<ROUTINE V-PUSH-OFF ()
+	 <COND (<AND <FSET? ,PRSI ,SURFACEBIT>
+		     <IN? ,PRSO ,PRSI>>
+		<MOVE ,PRSO <LOC ,PRSI>>
+		<TELL-NOW ,PRSO "on the floor">)
+	       (T <TELL "A ludicrous idea at best." CR>)>>
+
+;<ROUTINE PRE-PUSH-TO ()
+	 <COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <IN? ,PRSO ,LOCAL-GLOBALS>>
+		<TELL "Nice try." CR>)
+	       (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<PRSO? ,SARCOPH>
+		<TELL "Be serious. Any idea what that must weigh?" CR>
+		<RTRUE>)
+	       (<AND <NOT <IN? ,PRSO <LOC ,WINNER>>>
+		     <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <EQUAL? ,PRSO ,NOT-HERE-OBJECT>>>
+		<START-SENTENCE ,PRSO>
+		<TELL "? Get serious." CR>)>>
+
+<ROUTINE V-PUSH-TO ("AUX" (FALLEN <>) OH F)
+	 <COND (<IN? ,WINNER ,PRSO>
+		<TELL-CONTORT>)
+	       (<NOT <FSET? ,PRSO ,PUSHBIT>>
+		<COND (<FSET? ,PRSO ,TAKEBIT>
+		       <TELL 
+"There's no need for that. Why not just pick it up and then carry it there?" 
+			CR>
+		       <RTRUE>)
+	       	      (<PRSO? ,ME>
+		       <TELL "Do it yourself." CR>)
+		      (<FSET? ,PRSO ,VICBIT>
+		       <TELL-HANDS-OFF>)
+		      (T
+		       <TELL "You push and strain, but can't budge ">
+		       <THE? ,PRSO>
+		       <TELL D ,PRSO "." CR>)>)
+	       (<NOT <EQUAL? ,PRSI ,INTDIR>>
+		<TELL-YOU-CANT "push things to that.">
+		<RTRUE>)
+	       (<AND <SET OH ,HERE>
+		     <NOT <==? <DO-WALK ,P-WALK-DIR> ,M-FATAL>>>
+		<REPEAT ()
+		   <COND (<SET F <FIRST? ,PRSO>>
+			  <MOVE .F .OH>
+			  <SET FALLEN T>)
+			 (T <RETURN>)>>
+		<MOVE ,PRSO ,HERE>
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL "You bring the " D ,PRSO " along with you.">
+		<COND (.FALLEN <TELL-ALL-FALL>)>
+		<CRLF>)>>
+
+<ROUTINE TELL-CONTORT ()
+	 <TELL "That would require some impressive contortions." CR>>
+
+<ROUTINE TELL-ALL-FALL ()
+	 <TELL " Everything that was on it falls off.">>
+
+<ROUTINE PRE-CHIP ()
+	 <COND (<AND <EQUAL? <GET ,P-VTBL 0> ,W?CHIP>
+		     <IN? ,SPEAR-CARRIER ,HERE>
+		     <PRSO? ,INTNUM>
+		     ,P-DOLLAR-FLAG>
+		<PERFORM ,V?GIVE ,PRSO ,SPEAR-CARRIER>)
+	       (T <PERFORM ,V?MUNG ,PRSO>)>
+	 <RTRUE>>
+
+<ROUTINE V-CHIP ()
+	 <TELL "Bug." CR>>
+
+<ROUTINE PRE-MUNG ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT ,ME ,WINNER ,ADVENTURER ,GLOBAL-BANK
+		       ,MIRROR>
+		<RFALSE>)
+	       (<AND ,PRSI <FSET? ,PRSI ,WEAPONBIT>>
+		<RFALSE>)
+	       (<AND <NOT <FSET? ,PRSO ,VICBIT>>
+		     <NOT <PRSO? ,SQUID>>>
+		<HACK-HACK "Trying to destroy">
+		<RTRUE>)>
+	 <TELL "Trying to destroy ">
+	 <THE? ,PRSO>
+	 <TELL D ,PRSO " with ">
+	 <COND (<NOT ,PRSI>
+		<TELL "your bare hands is suicidal">)
+	       (T
+		<TELL A ,PRSI " is insane">)>
+	 <TELL "." CR>>
+
+<ROUTINE V-MUNG ()
+	 <COND (<OR <FSET? ,PRSO ,VICBIT>
+		    <PRSO? ,SQUID>>
+		<IKILL "attack">)
+	       (T <TELL "Nothing much happens." CR>)>>
+
+<ROUTINE HACK-HACK
+	 (STR)
+	 <COND (<AND <IN? ,PRSO ,GLOBAL-OBJECTS> <VERB? WAVE LOWER>>
+		<TELL "Unfortunately, ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO " isn't here." CR>)
+	       (T <TELL .STR " ">
+		  <THE? ,PRSO>
+		  <TELL D ,PRSO <PICK-ONE ,HO-HUM> CR>)>>
+
+<GLOBAL HO-HUM
+	<LTABLE
+	 " doesn't seem to work."
+	 " isn't notably helpful."
+	 " doesn't work."
+	 " has no effect.">>
+
+;<ROUTINE WORD-TYPE
+	 (OBJ WORD "AUX" SYNS)
+	 <ZMEMQ .WORD
+		<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+		<- </ <PTSIZE .SYNS> 2> 1>>>
+
+<ROUTINE V-KNOCK ()
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<TELL-NO-ANSWER>)
+	       (T <TELL "Why knock on " A ,PRSO "?" CR>)>>
+
+<ROUTINE V-CHOMP ()
+	 <TELL "I don't know how to do that. I win in all cases!" CR>>
+
+;<ROUTINE V-FROBOZZ
+	 ()
+	 <TELL
+"The FROBOZZ Corporation created, owns, and operates this programmer." CR>>
+
+<ROUTINE V-WIN () <TELL "Naturally!" CR>>
+
+<ROUTINE V-YELL ()
+	 <COND (,PRSO
+		<TELL "You could be more polite and lower your voice." CR>)
+	       (T <TELL "Aarrrrrgggggggghhhhhhhhhhh!" CR>)>>
+
+<ROUTINE V-PLUG () <TELL-NO-EFFECT>>
+
+;<ROUTINE V-EXORCISE () <TELL "What a bizarre concept!" CR>>
+
+\
+
+;<ROUTINE PRE-LATITUDE ("AUX" P)
+ <COND (<NOT <==? ,WINNER ,PLAYER>>
+	<RFALSE>)
+       (<AND ,QCONTEXT
+	     <==? ,HERE ,QCONTEXT-ROOM>
+	     <==? ,HERE <META-LOC ,QCONTEXT>>>
+	<SETG WINNER ,QCONTEXT>
+	<PERFORM ,PRSA ,PRSO>
+	<SETG WINNER ,PLAYER>
+	<RTRUE>)
+       ;(<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	<PERFORM ,V?ASK-ABOUT .P ,PRSO>
+	<RTRUE>)>>
+
+<ROUTINE V-LATITUDE ("OPTIONAL" (LAT T) "AUX" STR (NEW <>))
+	 <COND (.LAT <SET STR "latitude">)
+	       (T <SET STR "longitude">)>
+	 <COND (<==? ,WINNER ,PLAYER>
+		<TELL "Why don't you tell someone who cares?" CR>
+		<RFATAL>)
+	       (<L? ,MEETINGS-COMPLETED 2>
+		<START-SENTENCE ,WINNER>
+		<TELL
+" looks bewildered. \"What does that have to do with anything?\" he asks." CR>
+		<RFATAL>)
+	       (<NOT <==? ,WINNER ,JOHNNY>>
+		<START-SENTENCE ,WINNER>
+		<TELL
+" says, \"That's nice. Why don't you let the captain know?\"" CR>
+		<RFATAL>)
+	       (<NOT <==? ,PRSO ,INTNUM>>
+		<TELL
+"Johnny looks at you strangely. \"What kind of a " .STR " is that?\"" CR>)
+	       (<G? ,P-NUMBER 59>
+		<TELL "\"There are 60 minutes in a degree.\"" CR>)
+	       (T
+		<COND (.LAT
+		       <COND (,LATITUDE-SET
+			      <COND (<==? ,LATITUDE-SET ,P-NUMBER>
+				     <SET NEW ,M-FATAL>)
+				    (T <SET NEW T>)>)>
+		       <SETG LATITUDE-SET ,P-NUMBER>)
+		      (T
+		       <COND (,LONGITUDE-SET
+			      <COND (<==? ,LONGITUDE-SET ,P-NUMBER>
+				     <SET NEW ,M-FATAL>)
+				    (T <SET NEW T>)>)>
+		       <SETG LONGITUDE-SET ,P-NUMBER>)>
+		<COND (<==? .NEW ,M-FATAL>
+		       <TELL-YOU-ALREADY "told me that.\"" T>)
+		      (.NEW
+		       <TELL "\"Now the " .STR " is " N ,P-NUMBER ", huh?\"" CR>)
+		      (T <TELL "\"Okay. The " .STR " is " N ,P-NUMBER ".\"" CR>)>)>>
+
+<ROUTINE V-LONGITUDE ()
+	 <V-LATITUDE <>>>
+
+<GLOBAL LATITUDE-SET 0>
+<GLOBAL LONGITUDE-SET 0>
+
+<ROUTINE V-EMPTY ("AUX" X)
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<TELL-YOU-CANT "empty that!">)
+	       (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL-YOU-CANT "empty it when it's closed!">)
+	       (<FIRST? ,PRSO>
+		       <REPEAT ()
+			       <COND (<SET X <FIRST? ,PRSO>>
+			              <MOVE .X ,HERE>)
+			             (ELSE <RETURN>)>>
+		       <TELL-NOW ,PRSO "empty">)
+	       (T
+		<TELL-NOTHING "in the ">
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE V-SHAKE ("AUX" X)
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL-NO-EFFECT>)
+	       (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<TELL-YOU-CANT "take it; thus, you can't shake it!">)
+	       (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+		     <FIRST? ,PRSO>>
+		<TELL "It sounds as if there is something inside the "
+		      D
+		      ,PRSO
+		      "."
+		      CR>)
+	       (<AND <FSET? ,PRSO ,OPENBIT> <FIRST? ,PRSO>>
+		<REPEAT ()
+			<COND (<SET X <FIRST? ,PRSO>> <MOVE .X ,HERE>)
+			      (ELSE <RETURN>)>>
+	        <TELL "All of the objects spill onto the ">
+		<SPILL-WHERE?>)
+	       (T
+		<TELL-NOTHING "in the ">
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE SPILL-WHERE? ()
+	 <COND (<IN? ,WINNER ,BED>
+		<TELL
+		 "floor by your bed.">)
+	       (<G? <GETP ,HERE ,P?LINE> ,BACK-ALLEY-LINE-C>
+		<TELL
+		 "deck by your feet.">)
+	       (T <TELL "floor.">)>
+	 <CRLF>>
+
+<ROUTINE V-DIAGNOSE ()
+	 <TELL "You are ">
+	 <COND (<G? ,HOW-HUNGRY 3>
+		<TELL "extremely">)
+	       (<==? ,HOW-HUNGRY 0>
+		<TELL "not">)
+	       (<==? ,HOW-HUNGRY 1>
+		<TELL "a bit">)
+	       (<==? ,HOW-HUNGRY 2>
+		<TELL "pretty">)
+	       (<==? ,HOW-HUNGRY 3>
+		<TELL "very">)>
+	 <TELL " hungry, ">
+	 <COND (<==? ,HOW-THIRSTY 0>
+		<TELL "not thirsty">)
+	       (<==? ,HOW-THIRSTY 1>
+		<TELL "a little thirsty">)
+	       (<==? ,HOW-THIRSTY 2>
+		<TELL "fairly thirsty">)
+	       (<==? ,HOW-THIRSTY 3>
+		<TELL "very thirsty">)
+	       (<G? ,HOW-THIRSTY 3>
+		<TELL "utterly parched">)>
+	 <TELL ", and ">
+	 <COND (<==? ,HOW-TIRED 0>
+		<TELL "half-awake">)
+	       (<L? ,HOW-TIRED 3>
+		<TELL "wide-awake">)
+	       (<==? ,HOW-TIRED 3>
+		<TELL "a bit drowsy">)
+	       (<==? ,HOW-TIRED 4>
+		<TELL "fairly tired">)
+	       (<==? ,HOW-TIRED 5>
+		<TELL "very sleepy">)
+	       (<==? ,HOW-TIRED 6>
+		<TELL "dead on your feet">)>
+	 <TELL "." CR>>
+
+<ROUTINE PRE-DIG () 
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT ,PRSI>
+		<TELL "Huh?" CR>)
+	       (<FSET? ,PRSI ,TOOLBIT>
+		<RFALSE>)
+	       (T
+		<TELL "Digging with ">
+		<THE? ,PRSI>
+		<TELL D ,PRSI " is very silly." CR>)>>
+
+<ROUTINE V-AIM ()
+	 <TELL "That would be pointless." CR>>
+
+<ROUTINE V-DIG ()
+	 <TELL-YOU-CANT "dig it, man.">>
+
+<ROUTINE PRE-SMELL ()
+	 <COND (<OR <FSET? ,MASK ,WORNBIT>
+		    <FSET? ,DEEP-SUIT ,WORNBIT>>
+		<TELL-YOU-CANT "smell anything beyond your mask.">)>>
+
+<ROUTINE V-SMELL ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "Nothing a good deodorant couldn't fix." CR>)
+	       (T <TELL "It smells just like " A ,PRSO "." CR>)>>
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" Z)
+	 <COND (<SET Z <GETPT .OBJ2 ,P?GLOBAL>>
+		<ZMEMQB .OBJ1 .Z <- <PTSIZE .Z> 1>>)>>
+
+<ROUTINE V-SWIM ()
+	 <COND (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		<COND (<==? ,PRSO ,INTDIR>
+		       <DO-WALK ,P-WALK-DIR>)
+		      (T <TELL-SHD-DIR>
+			 ;<TELL "You should supply a " D ,INTDIR "." CR>)>)
+	       (T <TELL "I think you're all wet." CR>)>>
+
+<ROUTINE V-DIVE ()
+	 <COND (<AND ,PRSO <NOT <PRSO? ,OCEAN>>>
+		<TELL "This isn't a circus!" CR>)
+	       (<==? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		<DO-WALK ,P?DOWN>
+		<RTRUE>)
+	       (<AND <GLOBAL-IN? ,OCEAN <LOC ,PLAYER>>
+		     <NOT <EQUAL? ,HERE ,MM-WHEELHOUSE ,NW-WHEELHOUSE>>>
+		<COND (<AND <L? <GETP ,HERE ,P?LINE> ,TRAWLER-LINE-C>
+			    <NOT <EQUAL? ,HERE ,FERRY-LANDING ,WHARF>>>
+		       <PERFORM ,V?BOARD ,OCEAN>
+		       <RTRUE>)
+		      (<AND <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>
+			    <OR <NOT <FSET? ,WET-SUIT ,WORNBIT>>
+				<NOT <IN? ,AIR-TANK ,PLAYER>>
+				<NOT <FSET? ,MASK ,WORNBIT>>
+				<NOT <FSET? ,FLIPPERS ,WORNBIT>>>>
+		       <JIGS-UP
+"You find that diving here is a bad idea without the proper equipment.">)
+		      (<AND <FSET? ,DEEP-SUIT ,WORNBIT>
+			    <OR <NOT <IN? ,AIR-HOSE ,DEEP-SUIT>>
+				<NOT <FSET? ,MM-COMPRESSOR ,ONBIT>>>>
+		       <JIGS-UP
+"You find that the lack of oxygen you quickly encounter is fatally frustrating.">)
+		      (<NOT ,AT-SEA>
+		       <JIGS-UP
+"You find the water here too shallow for diving.">)
+		      (T
+		       ;<COND (<AND <L? ,TIME-SLEPT 300>
+		     	           <L? ,HOW-TIRED 4>>
+		      	      <SETG HOW-TIRED 4>
+			      <ENABLE <QUEUE I-TIRED 5>>)>
+		       <COND (<==? ,OCEAN-BOTTOM 50>
+			      <SETG HERE ,OCEAN-FLOOR>
+			      <MOVE ,PLAYER ,OCEAN-FLOOR>)
+			     (T
+			      <MOVE ,PLAYER ,UNDERWATER>
+		       	      <SETG HERE ,UNDERWATER>
+			      <UNDERWATER-F ,M-ENTER>)>
+		       <FCLEAR ,OCEAN ,VEHBIT>
+		       <DISABLE <INT I-ENDIT>>
+		       <SETG DEPTH 50>
+		       <COND (<IN? ,PASSBOOK ,PLAYER>
+			      <FSET ,PASSBOOK ,RMUNGBIT>)>
+		       <COND (<IN? ,DIVING-BOOK ,PLAYER>
+			      <FSET ,DIVING-BOOK ,RMUNGBIT>)>
+		       <COND (<IN? ,NOTE ,PLAYER>
+			      <FSET ,NOTE ,RMUNGBIT>)>
+		       <COND (<IN? ,BOOK ,PLAYER>
+			      <FSET ,BOOK ,RMUNGBIT>)>
+		       <COND (<IN? ,ENVELOPE ,PLAYER>
+			      <FSET ,ENVELOPE ,RMUNGBIT>)>
+		       <COND (<OR <IN? ,BATTERY ,PLAYER>
+				  <AND <IN? ,BATTERY ,DRILL>
+				       <FSET? ,DRILL ,OPENBIT>>>
+			      <FSET ,BATTERY ,RMUNGBIT>
+			      <SETG ,DRILL-POWERED <>>)>
+		       <COND (<OR <IN? ,DRY-CELL ,PLAYER>
+				  <AND <IN? ,DRY-CELL ,DETECTOR-COMPARTMENT>
+				       <FSET? ,DETECTOR-COMPARTMENT ,OPENBIT>>>
+			      <FSET ,DRY-CELL ,RMUNGBIT>
+			      <SETG ,DETECTOR-POWERED <>>)>
+		       <COND (<AND <IN? ,AIR-TANK ,PLAYER>
+				   <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>>
+			      <ENABLE <QUEUE I-AIR-SUPPLY -1>>)
+			     (<G? <GET <INT I-MM-COMPRESSOR> ,C-TICK> 0>
+			      <ENABLE <INT I-MM-COMPRESSOR>>)
+			     (T <ENABLE <INT I-LAST-GASP>>)>
+		       <V-LOOK>)>)
+	       (T <TELL
+"Consulting your years of experience, you come to the conclusion that the lack
+of water here would make this a lousy place to try diving." CR>)>>
+
+<ROUTINE V-UNTIE ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL <PICK-ONE ,YUKS> CR>)
+	       (T <TELL "This cannot be tied, so it cannot be untied!" CR>)>>
+
+<ROUTINE PRE-TIE ()
+	 <COND (<PRSO? ,AIR-HOSE>
+		<RFALSE>)
+	       (<AND <NOT <PRSO? ,SAFETY-LINE ,ROPE>>
+		     <NOT <PRSI? ,SAFETY-LINE ,ROPE>>>
+		<TELL "Even if I knew how to do that, I wouldn't." CR>)
+	       (<OR <PRSI? ,WINNER>
+		    <PRSO? ,WINNER>>
+		<TELL-YOU-CANT "tie it to yourself.">)>>
+
+<ROUTINE V-TIE ()
+	 <TELL "Don't bother." CR>>
+
+<ROUTINE V-TIE-UP () <TELL "You could certainly never tie it with that!" CR>>
+
+<ROUTINE V-MELT () <TELL "I'm not sure that " A ,PRSO " can be melted." CR>>
+
+<ROUTINE V-MUMBLE
+	 ()
+	 <TELL "You'll have to speak up if you expect me to hear you!" CR>>
+
+<ROUTINE V-ALARM ()
+	 <COND (<OR <AND <PRSO? ,ROOMS>
+			 <NOT <==? ,WINNER ,PLAYER>>>
+		    <AND <FSET? ,PRSO ,VICBIT>
+			 <NOT <PRSO? ,ME>>>>
+		<TELL "He's wide awake, or haven't you noticed?" CR>
+		;<COND (<OR <IN? ,PRSO ,MM-CREW-QTRS>
+			   <IN? ,PRSO ,NW-CREW-QTRS>>
+		       <START-SENTENCE ,PRSO>
+		       <TELL
+" turns over, looks at you, mumbles something, and falls back asleep." CR>)
+		      (T <TELL "He's wide awake, or haven't you noticed?" CR>)>)
+	       (<PRSO? ,ROOMS>
+		<TELL "You're already awake." CR>)
+	       (T
+		<START-SENTENCE ,PRSO>
+		<TELL " isn't sleeping." CR>)>>
+
+;<ROUTINE V-ZORK () <TELL "I highly recommend it." CR>>
+
+\
+
+;<ROUTINE MUNG-ROOM (RM STR)
+	 <FSET .RM ,RMUNGBIT>
+	 <PUTP .RM ,P?LDESC .STR>>
+
+;<ROUTINE V-COMMAND ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL "You notice that " D ,PRSO " pays no attention." CR>)
+	       (T
+		<TELL-NO-RESPONSE>)>>
+
+<ROUTINE V-CLIMB-ON ()
+	 <COND (<OR <FSET? ,PRSO ,CLIMBBIT>
+		    <FSET? ,PRSO ,VEHBIT>>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL-YOU-CANT "climb onto " <>>
+	 	<THE? ,PRSO>
+	 	<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE V-CLIMB-FOO ()
+	 <COND (<PRSO? ,ROOMS>
+		<V-CLIMB-UP>)
+	       ;(<EQUAL? ,PRSO ,INTDIR>
+		<TELL-YOU-CANT "climb a direction!">
+		<RFATAL>)
+	       (<AND <NOT <FSET? ,PRSO ,CLIMBBIT>>
+		     <NOT <FSET? ,PRSO ,VEHBIT>>>
+		<TELL-YOU-CANT "climb " <>>
+		<TELL A ,PRSO "!" CR>
+		<RFATAL>)
+	       (T
+		<V-CLIMB-UP ,P?UP T>)>>
+
+<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
+	 <COND (<GETPT ,HERE .DIR>
+		<DO-WALK .DIR>
+		<RTRUE>)
+	       (<NOT .OBJ>
+		<TELL-NO-GO T>)
+	       (<AND .OBJ
+		     <ZMEMQ ,W?WALLS
+			    <SET X <GETPT ,PRSO ,P?SYNONYM>> <PTSIZE .X>>>
+		<TELL "Climbing the walls is to no avail." CR>)
+	       (T <TELL "Bizarre!" CR>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	 <V-CLIMB-UP ,P?DOWN>>
+
+<ROUTINE V-SEND ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "I doubt that ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO " is at your beck and call." CR>)
+	       (T <TELL "That doesn't make sends." CR>)>>
+
+<ROUTINE V-WIND ()
+	 <TELL "You cannot wind up " A ,PRSO "." CR>>
+
+<ROUTINE V-COUNT ()
+	 <TELL "I can't deal with those numbers." CR>>
+
+<ROUTINE PRE-BRACE ()
+	 <PERFORM ,V?PUT-UNDER ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-BRACE ()
+	 <TELL "Bug." CR>>
+
+<ROUTINE V-PUT-UNDER ()
+         <COND (<AND <FSET? ,PRSI ,DOORBIT>
+		     <L? <GETP ,PRSO ,P?SIZE> 5>>
+		<COND (<FSET? ,PRSI ,OPENBIT>
+		       <TELL-WHY-BOTHER>)
+		      (<IDROP>
+		       <MOVE ,PRSO <OTHER-SIDE ,PRSI T>>
+		       <TELL "Done." CR>)>)
+	       (T <TELL-NO-NO>)>>
+
+<ROUTINE V-PUSH-UNDER ()
+	 <COND (<OR <FSET? ,PRSO ,TAKEBIT>
+		    <FSET? ,PRSO ,PUSHBIT>>
+		<PERFORM ,V?PUT-UNDER ,PRSO ,PRSI>
+		<RTRUE>)
+	       (T <TELL-NO-NO>)>>
+
+<ROUTINE V-PLAY ()
+         <COND (<FSET? ,PRSO ,VICBIT>
+	        <TELL "You are so engrossed in the role of ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO>
+	        <JIGS-UP " that you kill yourself, just as he would have done!">)
+	       (T <TELL "How peculiar!" CR>)>>
+
+<ROUTINE V-MAKE ()
+    	<TELL-NO-NO>>
+
+<ROUTINE V-ENTER ()
+	 <COND (<EQUAL? ,HERE ,WINDING-ROAD-1>
+	        <PERFORM ,V?THROUGH ,LIGHTHOUSE>
+		<RTRUE>)
+	       (T <DO-WALK ,P?IN>)>>
+
+<ROUTINE V-EXIT ()
+	 <DO-WALK ,P?OUT>>
+
+<ROUTINE V-CROSS ()
+	 <TELL-YOU-CANT "cross that!">>
+
+<ROUTINE V-SEARCH ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<START-SENTENCE ,PRSO>
+		<TELL " glares at you. \"Get away from me!\" he growls." CR>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)
+	       (T <TELL "You find nothing unusual." CR>)>>
+
+<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
+	 <COND (<NOT <==? ,WINNER ,PLAYER>>
+		<TELL "\"Find ">
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL "him ">)
+		      (T <TELL "it ">)>
+		<TELL D ,GLOBAL-SELF ".\"" CR>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<TELL "Why don't you try finding it " D ,GLOBAL-SELF "?" CR>)
+	       (<IN? ,PRSO ,WINNER>
+		<TELL "You have it." CR>)
+	       (<OR <IN? ,PRSO ,HERE>
+		    <==? ,PRSO ,PSEUDO-OBJECT>>
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL "He's">)
+		      (T <TELL "It's">)>
+		<TELL " right here." CR>)
+	       (<OR <IN? .L ,HERE>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<COND (<FSET? .L ,PERSON>
+		       <TELL "You notice that " D .L " has it." CR>)
+		      (<FSET? .L ,CONTBIT>
+		       <TELL "It's " <VEHPREP .L> " the " D .L "." CR>)
+		      (<==? .L ,FERRY>
+		       <TELL "He's on the ferry." CR>)
+		      (T <TELL "It's around here somewhere." CR>)>)
+	       (T
+		<TELL "Find ">
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL "him">)
+		      (T <TELL "it">)>
+		<TELL " " D ,GLOBAL-SELF "." CR>)>>
+
+<ROUTINE PRE-TELL ()
+	 <COND (<AND ,PRSI
+		     <EQUAL? ,PRSO ,ME ,PLAYER>>
+		<COND (<NOT <==? ,WINNER ,PLAYER>>
+		       <SETG PRSA ,V?ASK-ABOUT>
+		       <PERFORM ,V?ASK-ABOUT ,WINNER ,PRSI>)
+		      (T
+		       <SETG PRSA ,V?ASK-CONTEXT-ABOUT>
+		       <PERFORM ,V?ASK-CONTEXT-ABOUT ,PRSI>)>
+		<RTRUE>)
+	       (<AND <NOT ,PRSI>
+		     <NOT <FSET? ,PRSO ,VICBIT>>>
+		<TELL-NO-TELL>)>>
+
+<ROUTINE V-TELL ()
+	 <COND (,PRSI
+		<COND (<FSET? ,PRSO ,PERSON>
+		       <START-SENTENCE ,PRSO>
+		       <TELL 
+" seems less than impressed with this information." CR>)
+		      (<OR <FSET? ,PRSO ,VICBIT>
+			   <==? ,PRSO ,SQUID>>
+		       <TELL "The " D ,PRSO " ignores what you have to say." CR>)
+		      (T
+		       <TELL-NO-RESPONSE>)>)
+	       (<AND <==? ,WINNER ,PLAYER>
+		     <EQUAL? ,PRSO ,ME ,WINNER>>
+		<TELL
+"Talking to " D ,GLOBAL-SELF " is diverting, but unnecessary." CR>
+		<RFATAL>)
+	       (<PRSO? ,ME ,PLAYER>
+		<TELL "\"What in the world are you trying to say?\"" CR>
+		<RFATAL>)
+	       (<FSET? ,PRSO ,VICBIT>
+		<COND (<NOT <==? <META-LOC ,PRSO> ,HERE>>
+		       <GLOBAL-NOT-HERE-PRINT ,PRSO>
+		       <RFATAL>)
+		      (<AND <NOT <==? ,WINNER ,PLAYER>>
+			    <NOT ,P-CONT>>
+		       <TELL "\"I'll talk to whoever I want.\"" CR>
+		       <RFATAL>)>
+		<SETG WINNER ,PRSO>
+		<SETG HERE <META-LOC ,WINNER>>
+		<SETG QCONTEXT ,WINNER>
+		<SETG QCONTEXT-ROOM ,HERE>
+		<COND (<NOT ,P-CONT>
+		       <START-SENTENCE ,PRSO>
+		       <TELL 
+" turns and looks at you as though he thought you were about to say something." CR>
+		       <RFATAL>)>)
+	       (T
+		<TELL-NO-TELL>)>>
+
+<ROUTINE TELL-NO-TELL ()
+	 <TELL-YOU-CANT "talk to " <>>
+	 <THE? ,PRSO>
+	 <TELL D ,PRSO "!" CR>
+	 <SETG QUOTE-FLAG <>>
+	 <SETG P-CONT <>>
+	 <RFATAL>>
+
+;<ROUTINE V-ANSWER ()
+	 <TELL "Nobody seems to be awaiting your answer." CR>
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RTRUE>>
+
+;<ROUTINE V-REPLY ()
+	 <TELL "It is hardly likely that the " D ,PRSO " is interested." CR>
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RTRUE>>
+
+;<ROUTINE V-IS-IN ()
+	 <COND (<IN? ,PRSO ,PRSI>
+		<TELL "Yes, it is ">
+		<COND (<FSET? ,PRSI ,SURFACEBIT>
+		       <TELL "on">)
+		      (T <TELL "in">)>
+		<TELL " the " D ,PRSI "." CR>)
+	       (T <TELL "No, it isn't." CR>)>>
+
+<ROUTINE V-KISS ()
+	 <TELL "I'd sooner kiss a parrot." CR>>
+
+<ROUTINE V-RAPE ()
+	 <TELL "An ugly idea from an ugly person." CR>>
+
+<ROUTINE FIND-IN (WHERE WHAT "AUX" W (R <>));"returns FALSE if no matches, the
+			      		      match if 1, or M-FATAL if >1"
+	 <SET W <FIRST? .WHERE>>
+	 <COND (<NOT .W> <RFALSE>)>
+	 <REPEAT ()
+		 <COND (<FSET? .W .WHAT>
+			<COND (.R <RFATAL>)
+			      (T <SET R .W>)>)
+		       (<NOT <SET W <NEXT? .W>>> <RETURN>)>>
+	 <RETURN .R>>
+
+<ROUTINE V-SAY ("AUX" V)
+	 <COND (<SET V <FIND-IN ,HERE ,VICBIT>>
+		<TELL "You must address ">
+		<COND (<==? .V ,M-FATAL>
+		       <TELL "someone">)
+		      (T
+		       <THE? .V>
+		       <TELL D .V>)>
+		<TELL " directly." CR>
+		<RFATAL>)
+	       (<==? <GET ,P-LEXV ,P-CONT> ,W?HELLO>
+		<SETG QUOTE-FLAG <>>
+		<RTRUE>)
+	       (ELSE
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<TELL
+"Talking to " D ,GLOBAL-SELF
+" is said to be a sign of impending mental collapse." CR>)>>
+
+;<ROUTINE V-INCANT ()
+	 <TELL
+"The incantation echoes back faintly, but nothing else happens." CR>
+	 <SETG QUOTE-FLAG <>>
+	 <SETG P-CONT <>>
+	 <RTRUE>>
+
+<ROUTINE V-SPIN ()
+	 <TELL-YOU-CANT "spin that!">>
+
+<ROUTINE V-THROUGH ("AUX" M)
+	<COND (<FSET? ,PRSO ,DOORBIT>
+	       <DO-WALK <OTHER-SIDE ,PRSO>>
+	       <RTRUE>)
+	      (<OR <FSET? ,PRSO ,VEHBIT>
+		   <AND <==? ,HERE ,MCGINTY-HQ>
+			<PRSO? ,PSEUDO-OBJECT>>>
+	       <PERFORM ,V?BOARD ,PRSO>
+	       <RTRUE>)
+	      (<AND <NOT <IN? ,PRSO ,GLOBAL-OBJECTS>>
+		    <NOT <==? <META-LOC ,PRSO> ,HERE>>
+		    <NOT <GLOBAL-IN? ,PRSO ,HERE>>>
+	       <GLOBAL-NOT-HERE-PRINT ,PRSO>)
+	      (<NOT <FSET? ,PRSO ,TAKEBIT>>
+	       <TELL "You hit your head against ">
+	       <THE? ,PRSO>
+	       <TELL D ,PRSO " as you attempt this feat." CR>)
+	      (<IN? ,PRSO ,WINNER>
+	       <TELL-CONTORT>)
+	      (T <TELL <PICK-ONE ,YUKS> CR>)>>
+
+<GLOBAL YUKS
+	<PLTABLE "Not a chance."
+		"No way. At least not in this reality."
+		"Did you say that just to impress me?"
+		"An interesting concept, but beyond this reality."
+    		"I'll give you the benefit of the doubt and just ignore that."
+		"A fishy idea..."
+		"What a concept!"
+		"Not a prayer.">>
+
+<ROUTINE V-STEP ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (<PRSO? ,GROUND>
+		<TELL "Fred Astaire you're not." CR>)
+	       (T <TELL "That sounds pretty useless." CR>)>>
+
+<ROUTINE V-WEAR ()
+	 <COND (<NOT <FSET? ,PRSO ,WEARBIT>>
+		<TELL-YOU-CANT "wear " <>>
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<TELL "You are already wearing it." CR>)
+	       (<OR <IN? ,PRSO ,WINNER>
+		    <ITAKE>>
+		<FSET ,PRSO ,WORNBIT>
+		<TELL "You are now wearing ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE UNWEAR ()
+	 <COND (<FSET? ,PRSO ,WORNBIT>
+		<FCLEAR ,PRSO ,WORNBIT>
+		<TELL "You are now holding ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO "." CR>)
+	       (T <TELL-YOURE-NOT "wearing that!">)>>
+
+<ROUTINE V-WITHDRAW ()
+	 <COND (<NOT <PRSO? ,INTNUM>>
+		<PERFORM ,V?TAKE ,PRSO>)
+	       (T <TELL-YOU-CANT "make a withdrawal here!">)>>
+
+<ROUTINE V-DEPOSIT ()
+	 <COND (<NOT <PRSO? ,INTNUM>>
+		<PERFORM ,V?PUT ,PRSO ,PRSI>)
+	       (T <TELL-YOU-CANT "make a deposit here!">)>>
+
+<ROUTINE V-THROW-OFF ()
+	 <TELL-YOU-CANT "throw anything off that!">>
+
+<ROUTINE V-$VERIFY ()
+	 <TELL "Verifying game..." CR>
+	 <COND (<VERIFY> <TELL "Yup. Game correct." CR>)
+	       (T <TELL "** UH OH! Game File Failure. **" CR>)>>
+
+<ROUTINE V-STAND ()
+	 <COND (,PRSO
+		<COND (<OR <PRSO? ,GLOBAL-BANK>
+		    	   <FSET? ,PRSO ,VICBIT>>
+		       <PERFORM ,V?ROB ,PRSO>
+		       <RTRUE>)
+	       	      (<FSET? ,PRSO ,VEHBIT>
+		       <PERFORM ,V?BOARD ,PRSO>
+		       <RTRUE>)
+		      (<NOT <PRSO? ,ROOMS>>
+		       <HACK-HACK "Playing in this way with">
+		       <RTRUE>)>)>
+	 <COND (<FSET? <LOC ,WINNER> ,VEHBIT>
+		<PERFORM ,V?DISEMBARK <LOC ,WINNER>>
+		<RTRUE>)
+	       (T <TELL "You are already standing, I think." CR>)>>
+
+<ROUTINE V-HIDE ()
+	 <TELL "That's not a good hiding place." CR>>
+
+<ROUTINE V-HIDE-UNDER ()
+	 <V-HIDE>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <COND (<==? <PERFORM ,V?WALK .DIR> ,M-FATAL>
+		<RFATAL>)
+	       (T <RTRUE>)>>
+
+<ROUTINE V-WALK-TO ()
+	 <COND (<PRSO? ,INTDIR>
+		<DO-WALK ,P-WALK-DIR>)
+	       (<OR <IN? ,PRSO ,HERE>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL "He">)
+		      (T <TELL "It">)>
+		<TELL "'s here!" CR>)
+	       (T <TELL-SHD-DIR>)>>
+
+<ROUTINE TELL-SHD-DIR ()
+	 <TELL "You should supply a " D ,INTDIR "!" CR>>
+
+;"Finds the room on the other side of a door"
+
+<ROUTINE OTHER-SIDE (DOBJ "OPTIONAL" (RM? <>) "AUX" (P 0) Z)
+	 <REPEAT ()
+		 <COND (<L? <SET P <NEXTP ,HERE .P>> ,LOW-DIRECTION>
+			<RETURN <>>)
+		       (ELSE
+			<SET Z <GETPT ,HERE .P>>
+			<COND (<AND <EQUAL? <PTSIZE .Z> ,DEXIT>
+				    <EQUAL? <GETB .Z ,DEXITOBJ> .DOBJ>>
+			       <COND (.RM?
+				      <RETURN <GETB .Z 0>>)
+				     (T <RETURN .P>)>)>)>>>
+
+<ROUTINE V-LEAN-ON ()
+	 <TELL "Are you so very tired, then?" CR>>
+
+;<ROUTINE V-DIP-IN ()
+	 <COND (<AND <EQUAL? ,PRSI ,GLOBAL-WATER ,NILE-RIBBAH>
+		     <EQUAL? ,PRSO ,CANTEEN>>
+		<PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSI ,OIL-JAR ,LIQUID>>
+		<TELL "You can't dip the " D ,PRSO " in that!" CR>)
+	       (<OR <FLAMING? ,PRSO>
+		    <FLAMING? ,PRSI>>
+		<JIGS-UP
+"Poof. There's no need to get burned up about it though...">)
+	       (<NOT <EQUAL? ,PRSO ,TORCH>>
+		<TELL "Huh? Dip the " D ,PRSO "!?" CR>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?POUR-ON ,OIL-JAR ,TORCH>
+		<RTRUE>)>>
+
+<ROUTINE V-PUT-AGAINST ()
+	 <TELL-NO-NO>>
+
+<ROUTINE V-TASTE ()
+	 <COND (<FSET? ,PRSO ,FOODBIT>
+		<PERFORM ,V?EAT ,PRSO>)
+	       (T <TELL "It tastes just like " A ,PRSO "." CR>)>>
+
+;<ROUTINE V-ROLL () <TELL-WHY-BOTHER>>
+
+<ROUTINE TELL-WHY-BOTHER ()
+	 <TELL "Why bother?" CR>>
+
+<ROUTINE V-ROB ()
+	 <COND (<OR <FSET? ,PRSO ,PERSON>
+		    <PRSO? ,SPEAR-CARRIER>>
+		<TELL "Even as you begin to make your move, ">
+		<THE? ,PRSO>
+		<TELL D ,PRSO>
+		<JIGS-UP
+" knocks you out. About all you feel after that is a cold knife drawing warm
+blood from your throat.">)
+	       (T 
+		<TELL "No wonder you never made the Ten Most Wanted list." CR>)>>
+
+<ROUTINE V-PUSH-THROUGH ()
+	 <TELL "Pushing ">
+	 <THE? ,PRSO>
+	 <TELL D ,PRSO " in that way isn't particularly helpful." CR>>
+
+<ROUTINE HOW? (OBJ)
+	 <TELL "I don't know how to do that to " A .OBJ "." CR>>
+
+<ROUTINE VOWEL? (OBJ)
+	 <COND (<FSET? .OBJ ,VOWELBIT>
+		<TELL "n">)>
+	 <TELL " ">>
+
+;<ROUTINE HUH? ("OPTIONAL" (RARG <>))
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-SMOKE ()
+	 <TELL "Smoking is bad for your health." CR>>
+
+<ROUTINE V-UNFOLD ()
+	 <HOW? ,PRSO>>
+
+<ROUTINE V-FOLD ()
+	 <V-UNFOLD>>
+
+<ROUTINE V-HOLE-DIG ()
+	 <TELL "I can't dig in ">
+	 <THE? ,PRSI>
+	 <TELL D ,PRSI "." CR>
+	 ;<COND (T
+		<TELL "I don't know how to dig " A ,PRSO "." CR>)
+	       (ELSE
+		<TELL "I can't dig in the " D ,PRSI "." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-TURN-OVER ()
+	 <COND (<IN? ,PRSO ,WINNER>
+		<TELL-NOTHING "of interest there" T>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<TELL-YOUD-BETTER "pick it up" T>)
+	       (T
+		<TELL "Good luck!" CR>)>>
+		
+<ROUTINE V-READ-INSIDE ()
+	 <TELL-NOTHING "to read there" T>>
+
+<ROUTINE PRE-REACH-IN ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<TELL-CANT-REACH "into that">
+		<RTRUE>)>
+	 <COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL-CLOSED ,PRSO <>>)>>
+
+<ROUTINE V-REACH-IN ()
+	 <PERFORM ,V?LOOK-INSIDE ,PRSO>>
+
+<ROUTINE TELL-CLOSED (ARG "OPTIONAL" (STR? T))
+	 <TELL "The ">
+	 <COND (.STR? <TELL .ARG>)
+	       (T <TELL D .ARG>)>
+	 <TELL " is closed." CR>>
+
+<ROUTINE V-CLEAN ()
+	 <TELL
+"Cleanliness may be next to godliness, but there are limits." CR>>
+
+
+
+;<ROUTINE V-THROW-DOWN ("AUX" FOO)
+	 <COND (<STAIRWAY-CHECK?>
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSO ,ROPE>>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?NORTH>>
+		<SET FOO ,NORTH-STAIRS>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?SOUTH>>
+		<SET FOO ,SOUTH-STAIRS>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?EAST>>
+		<SET FOO ,EAST-STAIRS>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?WEST>>
+		<SET FOO ,WEST-STAIRS>)
+	       (ELSE
+		<SET FOO ,GROUND>)>
+	 <PERFORM ,V?PUT ,PRSO .FOO>
+	 <RTRUE>>
+
+<ROUTINE V-TIME ()
+	 <COND (<OR <IN? ,WATCH ,WINNER>
+		    <IN? ,WATCH ,HERE>>
+		<TELL "Your watch says it's ">
+		<WATCH-TIME>
+		<TELL "." CR>)
+	       (T <TELL-YOU-CANT "tell without your watch.">)>>
+
+;<ROUTINE V-$TIME ()
+	 <TELL "The \"real\" time is ">
+	 <TIME-PRINT ,PRESENT-TIME>
+	 <CRLF>>
+
+;<ROUTINE PRE-COMPARE ("AUX" (FLG <>))
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <GETP ,PRSO ,P?MAP>>
+		<SET FLG T>)
+	       (<NOT <EQUAL? <GETP ,PRSO ,P?MAP>
+			     <GETP ,PRSI ,P?MAP>>>
+		<SET FLG T>)>
+	 <COND (.FLG
+		<TELL "Comparisons between the " D ,PRSO " and the " D ,PRSI
+		      " would not really help." CR>
+		<RTRUE>)
+	       (ELSE
+		<RFALSE>)>>
+
+;<ROUTINE V-COMPARE ()
+	 <COND (<PRSO? ,ROCK-LOCK ,STONE-KEY>
+		<TELL 
+"It looks as if the small cube would fit into the opening almost exactly." CR>)
+	       (<EQUAL? <GETP ,PRSO ,P?MAP> 1> ;"CUPS"
+		<TELL
+"The two chalices are of exactly the same size and dimensions, though empty
+they have different weights." CR>)
+	       (<AND <EQUAL? <GETP ,PRSO ,P?MAP> 3 4> ;"Book & L AREA"
+		     <EQUAL? <GETP ,PRSO ,P?MAP> <GETP ,PRSI ,P?MAP>>>
+		<TELL "Looks as if the area is just big enough to hold it." CR>)
+	       (<AND <EQUAL? <GETP ,PRSO ,P?MAP> 3 4> ;"Book & L AREA"
+		     <NOT <EQUAL? <GETP ,PRSO ,P?MAP> <GETP ,PRSI ,P?MAP>>>>
+		<TELL "Well, the match up between them wasn't made in heaven."
+		      CR>)
+	       (T
+		<TELL "The " D ,PRSO " and the " D ,PRSI " are the same size."
+		      CR>)>>
+
+;<ROUTINE V-FOO-COMPARE ()
+	 <COND (<L? <GET ,P-PRSO 0> 2>
+		<TELL "You have to compare the " D ,PRSO " to something else."
+		      CR>
+		<RTRUE>)
+	       (T
+	        <PERFORM ,V?COMPARE <GET ,P-PRSO 1> <GET ,P-PRSO 2>>
+		<RFATAL>)>>
+
+<ROUTINE V-WEIGH ()
+	 <COND (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "Tough to do without a scale." CR>)
+	       (T
+		<TELL "Now that's bizarre!" CR>)>>
+
+<ROUTINE V-CHASTISE ()
+	 <COND (<PRSO? ,INTDIR>
+		<TELL
+"The best way to see what's happening there is to go there." CR>)
+	       (T
+		<TELL 
+"Please be more specific. LOOKing AT, BEHIND, UNDER, THROUGH, INSIDE, ON, DOWN,
+FOR, or any other method of LOOKing mean different things to me. Please
+specify which preposition you'd like to use next time, like LOOK AT ">
+	        <COND (<NOT <FSET? ,PRSO ,PERSON>>
+		       <TELL "THE ">)>
+	 	<TELL D ,PRSO ", or LOOK INSIDE ">
+	 	<COND (<NOT <FSET? ,PRSO ,PERSON>>
+		       <TELL "THE ">)>
+	 	<TELL D ,PRSO "." CR>)>>
+
+;<ROUTINE V-LOOK-UP ()
+	 <TELL "I can't. There's a crick in me neck!" CR>>
+
+<ROUTINE V-HELP ()
+	 <COND (,PRSO
+		<COND (<NOT <EQUAL? ,PRSO ,WINNER>>
+		       <TELL "It seems that ">
+		       <THE? ,PRSO>
+		       <TELL D ,PRSO " doesn't need any help." CR>)>)>
+	 <TELL
+"I'm afraid you'll have to figure this out " D ,GLOBAL-SELF "." CR>>
+
+<ROUTINE GET-COMFORTABLE (OBJ)
+	<COND (<OR <FIRST? .OBJ>
+		   <WEARING-SOMETHING?>>
+	       <TELL-NOT-COMFORTABLE>)
+	      (T
+	       <MOVE ,WINNER .OBJ>
+	       <TELL "You get into the " D .OBJ " and try to get comfortable. ">
+	       <V-SLEEP>)>>
+
+<ROUTINE TELL-NOT-COMFORTABLE ()
+	<TELL "That doesn't sound very comfortable." CR>>
+
+<ROUTINE V-SLEEP ()
+	 <COND (<==? ,HOW-TIRED 6>
+		<COND (<L? <GETP ,HERE ,P?LINE> ,UNDERWATER-LINE-C>
+		       <SLEEP-LOSE>)
+		      (T <JIGS-UP "You fall asleep and run out of air.">)>)
+	       (<AND ,PRSO
+		     <NOT <PRSO? ,ROOMS ,BED ,BUNK>>>
+		<TELL-NOT-COMFORTABLE>)
+	       (<OR <IN? ,WINNER ,BED>
+		    <IN? ,WINNER ,BUNK>>
+		<COND (<NOT <==? ,HOW-TIRED 1>>
+		       <COND (<IN? ,WINNER ,BED>
+			      <SLEEP-LOSE>)
+			     ;(T
+			      <SLEEP-WIN>)>)
+		      (T <TELL 
+"You close your eyes, but your mind is too active to let you sleep." CR>)>)
+	       (<IN? ,BED ,HERE>
+		<GET-COMFORTABLE ,BED>
+		<RTRUE>)
+	       (<IN? ,BUNK ,HERE>
+		<GET-COMFORTABLE ,BUNK>
+		<RTRUE>)
+	       (,PRSO
+		<TELL-NOT-COMFORTABLE>)
+	       (<L? ,HOW-TIRED 2>
+		<TELL-YOURE-NOT "tired.">)
+	       (T
+		<TELL "Better find a good place to lie down." CR>)>>
+
+;<GLOBAL ASLEEP? <>>
+
+<ROUTINE SLEEP-LOSE ()
+	 <TELL 
+"You drift off to sleep.|
+|
+You wake up. Once again, you find " D ,GLOBAL-SELF " with the usual nothing to
+do. It seems as if you are destined to spend the rest of your days on this
+island, waiting for a break that may never come." CR>
+	 <FINISH>>
+
+;<ROUTINE SLEEP-WIN ("OPTIONAL" (DOWNTIME 480) "AUX" TIRED-AGAIN START-TIME)
+	 <COND (<G? .DOWNTIME 300>
+		<SET TIRED-AGAIN 869>
+		<TELL "You drift ">
+		<COND (<==? ,HOW-TIRED 0>
+		       <TELL "back">)
+		      (T <TELL "off">)>
+		<TELL " to sleep.">)
+	       (T
+		<SET TIRED-AGAIN 479>
+		<TELL "You fall into an uncomfortable sleep ">
+		<COND (<IN? ,PLAYER ,DECK-CHAIR>
+		       <TELL "in the chair.">)
+		      (T <TELL "on the deck.">)>)>
+	 <CRLF>
+	 <CRLF>
+	 <SETG ASLEEP? T>
+	 <DISABLE <INT I-TIRED>>
+	 <SET START-TIME ,PRESENT-TIME>
+	 <COND (<V-WAIT .DOWNTIME <>>
+		<COND (,MOMENT-OF-TRUTH
+		       <SETG HOW-TIRED 1>
+		       <ENABLE <QUEUE I-TIRED .TIRED-AGAIN>>)
+		      (T
+		       <SETG HOW-TIRED 0>
+		       <ENABLE <QUEUE I-TIRED 5>>)>)
+	       (T
+		<SETG HOW-TIRED 1>
+		<ENABLE <QUEUE I-TIRED .TIRED-AGAIN>>
+		<TELL "You wake up refreshed." CR>)>
+	 <COND (<G? .START-TIME ,PRESENT-TIME>
+		<SETG TIME-SLEPT <+ ,TIME-SLEPT ,PRESENT-TIME
+				    <- 1440 .START-TIME>>>)
+	       (T <SETG TIME-SLEPT <+ ,TIME-SLEPT <- ,PRESENT-TIME .START-TIME>>>)>
+	 <SETG ASLEEP? <>>
+	 <SETG HOW-HUNGRY 1>
+	 <SETG HOW-THIRSTY 1>
+	 <ENABLE <QUEUE I-HUNGER 10>>
+	 <ENABLE <QUEUE I-THIRST 15>>
+	 ;<TELL 
+"You wake up to find that you're still on the ship, which has made considerable
+progress toward its destination." CR>
+	 <RTRUE>>
+
+;<GLOBAL TIME-SLEPT 0>
+
+;<ROUTINE V-WET ()
+	  <PERFORM ,V?POUR-ON ,PRSI ,PRSO>
+	  <SETG P-IT-OBJECT ,PRSO>
+	  <RTRUE>>
+
+<ROUTINE PRE-WHAT ()
+	 <COND (<AND ,PRSI
+		     <NOT <PRSO? ,GLOBAL-TIME ,GLOBAL-DAY>>
+		     <NOT <PRSI? ,IT ,P-IT-OBJECT>>>
+		<TELL "I'm afraid that question is beyond me." CR>
+		<RFATAL>)>>
+
+<ROUTINE V-WHAT ()
+	 <COND (<OR <NOT <==? ,WINNER ,PLAYER>>
+		    <AND ,QCONTEXT
+		     	 <==? ,HERE ,QCONTEXT-ROOM>
+		     	 <==? ,HERE <META-LOC ,QCONTEXT>>
+		     	 <FSET? ,QCONTEXT ,PERSON>>>		    
+		<TELL "\"Isn't it obvious?\"" CR>)
+	       (<NOT ,PRSO>
+		<TELL "Huh?" CR>)
+	       (<FSET? ,PRSO ,PERSON>
+		<TELL "Try asking that person." CR>)
+	       (T <TELL "Are you talking to " D ,GLOBAL-SELF " again?" CR>)>>
+
+<ROUTINE V-YES ()
+	 <TELL-RATHER "positive">>
+
+<ROUTINE V-MAYBE ()
+	 <TELL-RATHER "ambivalent">>
+
+<ROUTINE V-NO ()
+	 <TELL-RATHER "negative">>
+
+<ROUTINE TELL-RATHER (STR)
+	 <TELL "You sound rather " .STR "." CR>>
+
+<ROUTINE V-SIT ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<PERFORM ,V?SIT-WITH ,PRSO>)
+	       (T <PERFORM ,V?SIT-ON ,PRSO>)>>
+
+<ROUTINE V-SIT-ON ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,GROUND ;,SAND ,DECK>
+		<COND (<FSET? <LOC ,WINNER> ,VEHBIT>
+		       <MOVE ,WINNER ,HERE>)>
+		<TELL "After a moment, you stand back up." CR>)
+	       (T
+		<TELL <PICK-ONE ,YUKS> CR>)>>
+
+<ROUTINE V-SIT-WITH ()
+	 <COND (<NOT <FSET? ,PRSO ,PERSON>>
+		<TELL <PICK-ONE ,YUKS> CR>)
+	       (<AND <IN? ,PLAYER ,SHANTY>
+		     <IN? ,PRSO ,SHANTY>>
+		<PERFORM ,V?SIT-ON ,CHAIR>)
+	       (T <TELL "There's no place to sit with " D ,PRSO "." CR>)>>
+
+;<ROUTINE TBL-TO-INSIDE (OBJ TBL "OPTIONAL" STR "AUX" (OFFS 0) MAX)
+	 <COND (<NOT <FSET? .OBJ ,SURFACEBIT>>
+		<TELL "The " D .OBJ " is already open." CR>
+		<RTRUE>)>
+	 <COND (<FIRST? .OBJ>
+		<OBJS-SLIDE-OFF .OBJ>)>
+	 <SET MAX <GET .TBL 0>>
+	 <COND (<NOT .STR>
+		<TELL "Opened.">)
+	       (T <TELL .STR>)>
+	 <FCLEAR .OBJ ,SURFACEBIT>
+	 <REPEAT ()
+		 <SET OFFS <+ .OFFS 1>>
+		 <COND (<G? .OFFS .MAX>
+			<RETURN>)
+		       (<NOT <EQUAL? <GET .TBL .OFFS> 0>>
+			<MOVE <GET .TBL .OFFS> .OBJ>
+			<PUT .TBL .OFFS 0>)>>
+	 <COND (<FIRST? .OBJ>
+		<TELL " Opening the " D .OBJ " reveals ">
+		<PRINT-CONTENTS .OBJ>
+		<TELL ".">)>
+	 <CRLF>>
+
+;<ROUTINE INSIDE-OBJ-TO (TBL OBJ "AUX" (OFFS 0) F N)
+	 <COND (<FSET? .OBJ ,SURFACEBIT>
+		<TELL "The " D .OBJ " is already closed." CR>
+		<RTRUE>)>
+	 <FSET .OBJ ,SURFACEBIT>
+	 <TELL "Closed." CR>
+	 <COND (<NOT <FIRST? .OBJ>>
+		<RTRUE>)>
+	 <SET F <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<REMOVE .N>
+			<REPEAT ()
+				<SET OFFS <+ .OFFS 1>>
+				<COND (<EQUAL? <GET .TBL .OFFS> 0>
+				       <PUT .TBL .OFFS .N>
+				       <RETURN>)>>)>>>
+	       
+;<ROUTINE OBJS-SLIDE-OFF (OBJ "AUX" F N THERE)
+	 <SET THERE <LOC .OBJ>>
+	 <COND (<EQUAL? .THERE ,WINNER>
+		<SET THERE ,HERE>)>
+	 <SET F <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<MOVE .N .THERE>)>>
+	 <TELL "Everything on the " D .OBJ " slides off its top." CR>
+	 <CRLF>>
+
+;<ROUTINE V-JUMP-ROPE ()
+	 <COND (<NOT <EQUAL? ,PRSO ,ROPE>>
+		<TELL "I can jump rope, and that's about all." CR>)
+	       (T
+		<TELL "Well, it takes all kinds of weirdos..." CR>)>>
+
+;<ROUTINE EMPTY-THE (OBJ "OPTIONAL" (BURN? T) "AUX" F N (FLG <>))
+	 <SET F <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<SET FLG 1>
+			;<COND (<AND <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+				    <NOT <FSET? ,PIT ,INVISIBLE>>>
+			       <REMOVE .N>
+			       <SET FLG 1>)
+			      (T
+			       <MOVE .N ,HERE>
+			       <SET FLG 2>)>)>>
+	 <COND (<NOT .FLG>
+		<RTRUE>)
+	       (T
+		<TELL " Whatever was inside the " D .OBJ>
+		<COND (<EQUAL? .FLG 1>
+		       <TELL " has fallen out." CR>)
+		      (<EQUAL? .FLG 2>
+		       <TELL " falls into the pit." CR>)>)>>
+
+<ROUTINE TELL-ALREADY (STR)
+	 <TELL "It's already " .STR "." CR>>
+
+<ROUTINE TELL-YOUD-BETTER (STR "OPTIONAL" (1ST <>) (DONE T))
+	 <TELL "You'd better " .STR>
+	 <COND (.1ST <TELL " first.">)>
+	 <COND (.DONE <CRLF>)>>
+
+;<ROUTINE V-$FORCE ("AUX" I (TM 0))
+	 <COND (,PRSO
+		<SET TM ,P-NUMBER>)>
+	 <COND (<ENABLED? I-DIVETIME>
+		<SET I <INT I-DIVETIME>>)
+	       (T <SET I <INT I-CHANGE-WATCH>>)>
+	 <ENABLE <QUEUE I-OBSTACLES <SET TM <- <GET .I ,C-TICK> .TM>>>>
+	 <TELL "Queued for " N .TM "." CR>>
+
+<ROUTINE FIXED-FONT-ON () <PUT 0 8 <BOR <GET 0 8> 2>>>
+
+<ROUTINE FIXED-FONT-OFF() <PUT 0 8 <BAND <GET 0 8> -3>>>
diff --git a/wrecks.zap b/wrecks.zap
new file mode 100644
index 0000000..6772127
--- /dev/null
+++ b/wrecks.zap
@@ -0,0 +1,1531 @@
+
+
+	.FUNCT	UNDERWATER-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	FCLEAR	UNDERWATER,TOUCHBIT
+	IN?	SHARK,LOCAL-GLOBALS \?CND6
+	CALL	QUEUED?,I-SHARK
+	ZERO?	STACK \?CND6
+	DIV	OCEAN-BOTTOM,50
+	SUB	STACK,1
+	RANDOM	STACK
+	CALL	QUEUE,I-SHARK,STACK
+	PUT	STACK,0,1
+?CND6:	MOVE	LINE-HACK,UNDERWATER
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-LOOK \?ELS12
+	PRINTR	"You are in the sea, completely surrounded by water."
+?ELS12:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	LINE-HACK,PRSO,PRSI \?ELS21
+	CALL	TELL-CANT-REACH,STR?338
+	RSTACK	
+?ELS21:	EQUAL?	PRSA,V?WALK \?ELS23
+	EQUAL?	P-WALK-DIR,P?UP,P?DOWN /?ELS23
+	CALL	TELL-NOWHERE
+	RSTACK	
+?ELS23:	EQUAL?	PRSA,V?SWIM,V?DIVE,V?WALK /FALSE
+	EQUAL?	PRSA,V?SAVE,V?EXAMINE,V?LOOK /FALSE
+	EQUAL?	PRSA,V?SCORE,V?QUIT,V?RESTORE /FALSE
+	EQUAL?	PRSA,V?DIAGNOSE,V?FIND,V?TIME /FALSE
+	EQUAL?	PRSA,V?OPEN,V?LAMP-OFF,V?LAMP-ON /FALSE
+	EQUAL?	PRSA,V?READ,V?TAKE,V?CLOSE /FALSE
+	EQUAL?	PRSA,V?INVENTORY,V?WAIT,V?BREATHE /FALSE
+	EQUAL?	PRSA,V?WHAT,V?AGAIN,V?VERSION /FALSE
+	EQUAL?	PRSA,V?RESTART,V?UNSCRIPT,V?SCRIPT /FALSE
+	EQUAL?	PRSA,V?$CALL /FALSE
+	EQUAL?	PRSA,V?THROW,V?DROP \?ELS31
+	CALL	TELL-NO-LITTER
+	RSTACK	
+?ELS31:	CALL	TELL-YOU-CANT,STR?339
+	RETURN	2
+
+
+	.FUNCT	TELL-NOWHERE
+	PRINTR	"That won't get you anywhere."
+
+
+	.FUNCT	UNDERWATER-U,PRINT?=1,L
+	ZERO?	PRINT? /FALSE
+	SUB	DEPTH,50 >DEPTH
+	LOC	WEASEL >L
+	IN?	SAFETY-LINE,L /?CND4
+	IN?	TREASURE-CHEST,L /?CND4
+	IN?	EMPTY-CHEST,L /?CND4
+	FCLEAR	LINE-HACK,INVISIBLE
+?CND4:	ZERO?	DEPTH \?ELS13
+	PRINTI	"You get out of the water and reboard your ship..."
+	CRLF	
+	CRLF	
+	CALL	INT,I-AIR-SUPPLY
+	PUT	STACK,0,0
+	CALL	ENABLED?,I-LAST-GASP
+	ZERO?	STACK /?ELS18
+	CALL	INT,I-LAST-GASP
+	PUT	STACK,0,0
+	JUMP	?CND16
+?ELS18:	CALL	INT,I-MM-COMPRESSOR
+	PUT	STACK,0,0
+?CND16:	FSET?	OCEAN-FLOOR,TOUCHBIT /?THN26
+	FSET?	WRECK-1,TOUCHBIT \?ELS25
+?THN26:	CALL	RATING-UPD,25
+	IN?	SAFETY-LINE,TREASURE-CHEST /?THN33
+	IN?	GLASS-CASE,PLAYER \?ELS32
+	FSET?	STAMPS,RMUNGBIT /?ELS32
+?THN33:	CALL	RATING-UPD,25
+	LOC	WEASEL
+	IN?	TREASURE-CHEST,STACK \?ELS39
+	CALL	TREASURE-CHEST-WIN
+	JUMP	?CND37
+?ELS39:	IN?	SAFETY-LINE,TREASURE-CHEST \?ELS41
+	CALL	CHEST-PULL-UP
+	CALL	TREASURE-CHEST-WIN
+	JUMP	?CND37
+?ELS41:	PRINTI	"When your shipmates find that you've recovered these priceless stamps, they congratulate you. "
+?CND37:	ZERO?	WEASEL-BLOWN \?THN51
+	FSET?	ENVELOPE,INVISIBLE \?ELS50
+?THN51:	PRINTI	"Johnny slaps you on the back. ""Good job, matey!"" As you return to the island over the calm, dazzling blue sea, you contemplate your wealth with a touch of sadness. You think of Hevlin and hope his soul is resting a little easier now."
+	CRLF	
+	CRLF	
+	CALL	RATING-UPD,20
+	CALL	V-SCORE
+	USL	
+	QUIT	
+	RTRUE	
+?ELS50:	PRINTI	"Exhilarated but tired, you lie out on the deck. You fall asleep at once, and dream of a tropical paradise. But even as you dream, your throat is cut! And as your life drains away, you realize how foolish it was not to have suspected a traitor!"
+	CRLF	
+	CALL	FINISH
+	RSTACK	
+?ELS32:	IN?	GLASS-CASE,PLAYER \?ELS60
+	FSET?	STAMPS,RMUNGBIT \?ELS60
+	PRINTI	"But their elation turns to disappointment, as they notice that the stamps are waterlogged and, thus, worthless"
+	CALL	LONG-TRIP
+	RSTACK	
+?ELS60:	LOC	WEASEL
+	IN?	EMPTY-CHEST,STACK \?ELS66
+	CALL	EMPTY-CHEST-LOSE
+	RSTACK	
+?ELS66:	IN?	SAFETY-LINE,EMPTY-CHEST \?ELS68
+	CALL	CHEST-PULL-UP
+	CALL	EMPTY-CHEST-LOSE
+	RSTACK	
+?ELS68:	PRINTI	"When your shipmates find out that you haven't found any treasure, Johnny shakes his head. You can't help feeling you've let them, as well as "
+	CALL	DPRINT,GLOBAL-SELF
+	PRINTI	", down"
+	CALL	LONG-TRIP
+	RSTACK	
+?ELS25:	ZERO?	AT-SEA /?ELS74
+	GRTR?	PRESENT-TIME,720 \?ELS74
+	PRINTI	"Johnny looks downcast when he sees that you empty-handed. ""Let's get back to the Island. Maybe another time..."""
+	CRLF	
+	CALL	FINISH
+	RSTACK	
+?ELS74:	EQUAL?	SHIP-CHOSEN,TRAWLER \?ELS80
+	FSET	OCEAN,VEHBIT
+	MOVE	LINE-HACK,NW-AFT-DECK
+	RETURN	NW-AFT-DECK
+?ELS80:	FSET	OCEAN,VEHBIT
+	MOVE	LINE-HACK,MM-AFT-DECK
+	RETURN	MM-AFT-DECK
+?ELS13:	PRINTI	"You ascend "
+	EQUAL?	HERE,UNDERWATER \?CND87
+	PRINTI	"another "
+?CND87:	PRINTI	"50 feet..."
+	CRLF	
+	CRLF	
+	ZERO?	DOOMED /?ELS98
+	EQUAL?	DEPTH,250 \?ELS98
+	CALL	JIGS-UP,STR?340
+	RSTACK	
+?ELS98:	RETURN	UNDERWATER
+
+
+	.FUNCT	CHEST-PULL-UP
+	LOC	WEASEL
+	EQUAL?	STACK,MM-AFT-DECK,NW-AFT-DECK \?ELS3
+	CALL	START-SENTENCE,WEASEL
+	JUMP	?CND1
+?ELS3:	CALL	START-SENTENCE,JOHNNY
+?CND1:	PRINTI	" pulls on the "
+	CALL	DPRINT,SAFETY-LINE
+	PRINTI	" and drags up the chest. "
+	RTRUE	
+
+
+	.FUNCT	EMPTY-CHEST-LOSE
+	CALL	TELL-1ST-CHEST-LINE
+	PRINTI	"disappointment, the contents are nothing more than old Portuguese newspapers"
+	CALL	LONG-TRIP
+	RSTACK	
+
+
+	.FUNCT	TELL-1ST-CHEST-LINE
+	PRINTI	"Johnny spends several minutes forcing open the chest. To everyone's "
+	RTRUE	
+
+
+	.FUNCT	LONG-TRIP
+	PRINTI	". It will be a long trip back."
+	CRLF	
+	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	TREASURE-CHEST-WIN
+	CALL	TELL-1ST-CHEST-LINE
+	PRINTI	"delight, there are hundreds of gold escudos inside. "
+	RTRUE	
+
+
+	.FUNCT	UNDERWATER-D,PRINT?=1
+	ZERO?	PRINT? /FALSE
+	ADD	DEPTH,50 >DEPTH
+	GRTR?	DEPTH,300 \?ELS8
+	FSET?	DEEP-SUIT,WORNBIT /?ELS8
+	CALL	JIGS-UP,STR?341
+	RSTACK	
+?ELS8:	EQUAL?	DEPTH,OCEAN-BOTTOM \?ELS12
+	ZERO?	WRECK-CHOSEN /?ELS17
+	CALL	TELL-FLUTTER-TO,STR?342
+	RETURN	WRECK-1
+?ELS17:	CALL	TELL-FLUTTER-TO,STR?343
+	RETURN	OCEAN-FLOOR
+?ELS12:	PRINTI	"You descend another 50 feet..."
+	CRLF	
+	CRLF	
+	RETURN	UNDERWATER
+
+
+	.FUNCT	TELL-FLUTTER-TO,STR
+	PRINTI	"You flutter down to "
+	PRINT	STR
+	PRINTI	"..."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	OCEAN-FLOOR-F,RARG=0
+	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?WALK \FALSE
+	EQUAL?	P-WALK-DIR,P?UP /FALSE
+	CALL	TELL-NOWHERE
+	RSTACK	
+
+
+	.FUNCT	WRECK-1-F,RARG
+	EQUAL?	RARG,M-ENTER \?ELS5
+	FSET?	WRECK-1,TOUCHBIT /?ELS10
+	FSET	LINE-HACK,INVISIBLE
+	EQUAL?	WRECK-CHOSEN,1 \?ELS15
+	MOVE	SQUID,WRECK-12
+	MOVE	IRON-BAR,WRECK-5
+	EQUAL?	WRECK-FOUND,1 \?CND16
+	MOVE	TREASURE-CHEST,WRECK-11
+	MOVE	EMPTY-CHEST,WRECK-9
+?CND16:	MOVE	SKELETON,WRECK-10
+	MOVE	SCABBARD,SKELETON
+	PUTP	WRECK-8,P?VALUE,10
+	FCLEAR	CEILING-HOLE-1,INVISIBLE
+	FCLEAR	FLOOR-HOLE-1,INVISIBLE
+	MOVE	CASK,WRECK-6
+	MOVE	ROPE,WRECK-4
+	MOVE	BROKEN-MAST,WRECK-4
+	PUTP	WRECK-5,P?DESCFCN,80
+	PUTP	WRECK-7,P?DESCFCN,45
+	PUTP	WRECK-8,P?DESCFCN,45
+	FCLEAR	FALLEN-BUNK,INVISIBLE
+	FCLEAR	MAST,INVISIBLE
+	FCLEAR	JAGGED-HOLE,INVISIBLE
+	RTRUE	
+?ELS15:	EQUAL?	WRECK-CHOSEN,2 \FALSE
+	FCLEAR	AIRTIGHT-DOOR,INVISIBLE
+	FCLEAR	AIRTIGHT-DOOR,OPENBIT
+	FCLEAR	LOCKER-DOOR,INVISIBLE
+	FCLEAR	LOCKER-DOOR,OPENBIT
+	MOVE	SAFE,WRECK-8
+	PUTP	SAFE,P?ACTION,SAFE-F
+	FCLEAR	SAFE,NDESCBIT
+	EQUAL?	WRECK-FOUND,2 \?CND21
+	MOVE	GLASS-CASE,SAFE
+?CND21:	MOVE	MINE,WRECK-11
+	MOVE	CLUMP-OF-MINES,WRECK-11
+	FCLEAR	CEILING-HOLE-2,INVISIBLE
+	FCLEAR	FLOOR-HOLE-2,INVISIBLE
+	PUTP	WRECK-6,P?VALUE,25
+	PUTP	WRECK-1,P?DESCFCN,100
+	PUTP	WRECK-2,P?DESCFCN,100
+	PUTP	WRECK-3,P?DESCFCN,100
+	PUTP	WRECK-4,P?DESCFCN,100
+	PUTP	WRECK-5,P?DESCFCN,100
+	PUTP	WRECK-6,P?DESCFCN,100
+	PUTP	WRECK-7,P?DESCFCN,100
+	PUTP	WRECK-8,P?DESCFCN,100
+	PUTP	WRECK-9,P?DESCFCN,100
+	PUTP	WRECK-10,P?DESCFCN,100
+	PUTP	WRECK-11,P?DESCFCN,100
+	PUTP	WRECK-12,P?DESCFCN,100
+	PUTP	WRECK-13,P?DESCFCN,100
+	RTRUE	
+?ELS10:	EQUAL?	WRECK-CHOSEN,2 \FALSE
+	PUTP	FLOOR-HOLE-2,P?SDESC,STR?5
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
+	GET	WRECK-1-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-1-D,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	PRINT? /?CND6
+	FSET?	WEST-LADDER,RMUNGBIT \?ELS12
+	CALL	TELL-GRACEFUL
+	RETURN	WRECK-4
+?ELS12:	FSET	WEST-LADDER,RMUNGBIT
+	PRINTI	"As you put your foot on the top rung, the rotting wood gives way. The other rungs break beneath your weight, and you plummet down to the deck below..."
+	CRLF	
+	CRLF	
+?CND6:	RETURN	WRECK-4
+?ELS5:	EQUAL?	WRECK-CHOSEN,3 \?ELS18
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS18:	RETURN	WRECK-4
+
+
+	.FUNCT	WEST-LADDER-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	FSET?	WEST-LADDER,RMUNGBIT \?ELS10
+	EQUAL?	HERE,WRECK-1 \?ELS15
+	PRINTR	"All that's left are a couple of pieces that were broken off at the top."
+?ELS15:	PRINTR	"The ladder is nothing more than some broken pieces of wood."
+?ELS10:	PRINTR	"Looks like a ladder."
+?ELS5:	EQUAL?	PRSA,V?TAKE \?ELS27
+	EQUAL?	HERE,WRECK-1 /?THN33
+	FSET?	WEST-LADDER,RMUNGBIT /?ELS32
+?THN33:	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS32:	PRINTR	"None of the pieces looks useful."
+?ELS27:	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	EQUAL?	HERE,WRECK-1 \?ELS45
+	CALL	DO-WALK,P?DOWN
+	JUMP	?CND43
+?ELS45:	CALL	DO-WALK,P?UP
+?CND43:	SET	'P-IT-OBJECT,WEST-LADDER
+	RTRUE	
+
+
+	.FUNCT	WRECK-2-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	GET	WRECK-2-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-3-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	GET	WRECK-3-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-3-D,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	PRINT? /?CND6
+	ZERO?	DOOMED /?ELS12
+	CALL	JIGS-UP,STR?353
+	RETURN	WRECK-7
+?ELS12:	SET	'DOOMED,TRUE-VALUE
+	CALL	TELL-GRACEFUL
+?CND6:	RETURN	WRECK-7
+?ELS5:	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+
+
+	.FUNCT	TELL-GRACEFUL
+	PRINTI	"You sink gracefully down to the next deck..."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-4-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	GET	WRECK-4-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	EQUAL?	WRECK-CHOSEN,1 \?CND8
+	FSET?	ROPE,NDESCBIT \?CND8
+	CALL	TELL-WRAPPED,STR?354
+?CND8:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-ENTER \?ELS15
+	EQUAL?	WRECK-CHOSEN,2 \?ELS15
+	PUTP	CEILING-HOLE-2,P?SDESC,STR?355
+	FSET	CEILING-HOLE-2,VOWELBIT
+	PUTP	FLOOR-HOLE-2,P?SDESC,STR?356
+	RFALSE	
+?ELS15:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	WRECK-CHOSEN,1 \?ELS24
+	CALL	NOT-THIS-WRECK,BUNKS
+	RSTACK	
+?ELS24:	EQUAL?	WRECK-CHOSEN,2 \FALSE
+	CALL	NOT-THIS-WRECK,PSEUDO-OBJECT
+	RSTACK	
+
+
+	.FUNCT	TELL-WRAPPED,STR
+	PRINTI	" A rope is wrapped around "
+	PRINT	STR
+	PRINTI	"."
+	RTRUE	
+
+
+	.FUNCT	WRECK-4-N,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-5
+
+
+	.FUNCT	WRECK-4-U,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	PRINT? /?ELS10
+	ZERO?	ROPE-HANGING /?ELS14
+	CALL	TELL-ROPE-HIGH
+	RFALSE	
+?ELS14:	FSET?	WEST-LADDER,RMUNGBIT \?ELS17
+	PRINTI	"There's no way to get back up what's left of the ladder."
+	CRLF	
+	RFALSE	
+?ELS17:	FSET	WEST-LADDER,RMUNGBIT
+	PRINTI	"As you start to climb, a rung collapses under your foot. You grab at other rungs but find you are back where you started amidst several pieces of what used to be the ladder."
+	CRLF	
+	RFALSE	
+?ELS10:	RETURN	WRECK-1
+?ELS5:	IN?	GLASS-CASE,PLAYER \?CND28
+	FSET?	STAMPS,RMUNGBIT /?CND28
+	GRTR?	WATER-IN-CASE,0 \?CND28
+	FSET	STAMPS,RMUNGBIT
+	SET	'WATER-IN-CASE,10
+	PRINTI	"As you go up, the water in the "
+	CALL	DPRINT,GLASS-CASE
+	PRINTI	" sloshes around, ruining the stamps."
+	CRLF	
+	CRLF	
+	RETURN	WRECK-1
+?CND28:	RETURN	WRECK-1
+
+
+	.FUNCT	WRECK-4-D,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-9
+
+
+	.FUNCT	AIRTIGHT-ROOM?
+	EQUAL?	WRECK-CHOSEN,2 \FALSE
+	EQUAL?	HERE,WRECK-5 \FALSE
+	ZERO?	WRECK-5-FLOODED /TRUE
+	RFALSE
+
+
+	.FUNCT	ROPE-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC \?ELS5
+	FSET?	ROPE,TAKEBIT \?ELS8
+	PRINTI	"A length of rope lies here."
+	JUMP	?CND6
+?ELS8:	PRINTI	"A rope hangs down here."
+?CND6:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?CUT \?ELS16
+	EQUAL?	PRSI,SWORD \?ELS21
+	ZERO?	ROPE-HANGING /?ELS26
+	FSET	ROPE,TAKEBIT
+	SET	'ROPE-HANGING,FALSE-VALUE
+	PRINTR	"A three-foot length of rope falls to the deck."
+?ELS26:	FSET?	ROPE,NDESCBIT \?ELS31
+	IN?	PLAYER,CASK \?ELS36
+	SET	'ROPE-HANGING,TRUE-VALUE
+	FCLEAR	ROPE,NDESCBIT
+	CALL	RATING-UPD,15
+	PRINTR	"The rope falls to within eight feet of the floor."
+?ELS36:	CALL	TELL-ROPE-HIGH
+	RSTACK	
+?ELS31:	MOVE	ROPE,LOCAL-GLOBALS
+	PRINTR	"You chop the rope into many small pieces, which float off on the current and become lost among the debris."
+?ELS21:	CALL	TELL-YOU-CANT,STR?360
+	RSTACK	
+?ELS16:	ZERO?	ROPE-HANGING \?ELS48
+	EQUAL?	PRSA,V?UNTIE,V?MOVE,V?RUB /?THN54
+	EQUAL?	PRSA,V?TAKE,V?CLIMB-FOO \FALSE
+?THN54:	FSET?	ROPE,TAKEBIT /FALSE
+	CALL	TELL-ROPE-HIGH
+	RSTACK	
+?ELS48:	EQUAL?	PRSA,V?TAKE \?ELS64
+	PRINTR	"It's tied securely above."
+?ELS64:	EQUAL?	PRSA,V?CLIMB-FOO \?ELS68
+	CALL	DO-WALK,P?UP
+	SET	'P-IT-OBJECT,ROPE
+	RTRUE	
+?ELS68:	EQUAL?	PRSA,V?UNTIE \FALSE
+	CALL	TELL-CANT-REACH,STR?361
+	RSTACK	
+
+
+	.FUNCT	BROKEN-MAST-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"The mast is suspended securely above you."
+	ZERO?	ROPE-HANGING /?ELS10
+	PRINTI	" A rope is hanging from it."
+	JUMP	?CND8
+?ELS10:	FSET?	ROPE,NDESCBIT \?CND8
+	CALL	TELL-WRAPPED,STR?21
+?CND8:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?UNTIE,V?MOVE,V?RUB /?THN18
+	EQUAL?	PRSA,V?TAKE,V?CLIMB-FOO \FALSE
+?THN18:	CALL	TELL-CANT-REACH,STR?354
+	RSTACK	
+
+
+	.FUNCT	WRECK-5-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	EQUAL?	WRECK-CHOSEN,2 \?ELS8
+	PRINTI	"This cabin was once a passenger compartment, "
+	ZERO?	WRECK-5-FLOODED /?ELS13
+	PRINTI	"but it is now flooded. There is a passage leading down through the deck, and a door in the aft "
+	CALL	DPRINT,BULKHEADS
+	PRINTI	"."
+	JUMP	?CND6
+?ELS13:	PRINTI	"although the fragile partitions within have collapsed. The room is filled with air and a glance tells you why: the closed door to aft kept the air and water pressures equalized, stopping the flow of water up through the hole in the deck."
+	JUMP	?CND6
+?ELS8:	GET	WRECK-5-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+?CND6:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \?ELS26
+	EQUAL?	WRECK-CHOSEN,1 /?ELS31
+	EQUAL?	LG-IRON-BAR,PRSO,PRSI \?ELS31
+	CALL	GLOBAL-NOT-HERE-PRINT,LG-IRON-BAR
+	RSTACK	
+?ELS31:	EQUAL?	WRECK-CHOSEN,1 /FALSE
+	EQUAL?	BARNACLES,PRSO,PRSI \FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,BARNACLES
+	RSTACK	
+?ELS26:	EQUAL?	RARG,M-ENTER \FALSE
+	IN?	GLASS-CASE,PLAYER \FALSE
+	ZERO?	WRECK-5-FLOODED \FALSE
+	CALL	INT,I-CASE-LEAK
+	PUT	STACK,0,0
+	IN?	HOLE-2,GLASS-CASE \FALSE
+	IN?	PUTTY,GLASS-CASE /FALSE
+	SET	'WATER-IN-CASE,0
+	RETURN	WATER-IN-CASE
+
+
+	.FUNCT	WRECK-5-N,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-4
+
+
+	.FUNCT	WRECK-5-D,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-10
+
+
+	.FUNCT	AIRTIGHT-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	FSET?	AIRTIGHT-DOOR,OPENBIT \?ELS10
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS10:	FSET	AIRTIGHT-DOOR,OPENBIT
+	CALL	TELL-NOW,AIRTIGHT-DOOR,STR?25
+	ZERO?	WRECK-5-FLOODED \TRUE
+	SET	'WRECK-5-FLOODED,TRUE-VALUE
+	EQUAL?	HERE,WRECK-5 \?ELS18
+	FSET?	DEEP-SUIT,WORNBIT /?ELS21
+	FSET?	MASK,WORNBIT \?THN24
+	IN?	AIR-TANK,PLAYER \?THN24
+	FSET?	WET-SUIT,WORNBIT /?ELS21
+?THN24:	CALL	JIGS-UP,STR?363
+	RTRUE	
+?ELS21:	PRINTR	"Water rushes in through the open door and the hole in the deck, filling the room to above your head, forcing the air out."
+?ELS18:	PRINTR	"Water rushes through the door into the next room."
+?ELS5:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	AIRTIGHT-DOOR,OPENBIT \?ELS40
+	FCLEAR	AIRTIGHT-DOOR,OPENBIT
+	CALL	TELL-NOW,AIRTIGHT-DOOR,STR?26
+	RSTACK	
+?ELS40:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+
+
+	.FUNCT	IRON-BAR-F
+	IN?	IRON-BAR,FALLEN-BUNK \?ELS5
+	EQUAL?	PRSA,V?EXAMINE \?ELS10
+	PRINTI	"The "
+	CALL	DPRINT,IRON-BAR
+	PRINTI	" is"
+	PRINT	WEDGED-STR
+	CRLF	
+	RTRUE	
+?ELS10:	EQUAL?	PRSA,V?MOVE,V?TAKE \FALSE
+	PRINTI	"It's too tightly"
+	PRINT	WEDGED-STR
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?TAKE \?ELS18
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+	EQUAL?	HERE,WRECK-5 \?ELS24
+	FCLEAR	IRON-BAR,NDESCBIT
+	PRINTI	"You take one of the "
+	CALL	DPRINT,IRON-BAR
+	PRINTR	"s."
+?ELS24:	PRINTI	"Taken."
+	CRLF	
+	RTRUE	
+?ELS18:	EQUAL?	PRSA,V?DROP \FALSE
+	CALL	V-DROP
+	ZERO?	STACK /TRUE
+	EQUAL?	HERE,WRECK-5 \TRUE
+	FSET	IRON-BAR,NDESCBIT
+	RTRUE	
+
+
+	.FUNCT	LG-IRON-BAR-F
+	EQUAL?	PRSA,V?TAKE \?ELS5
+	IN?	IRON-BAR,HERE \?ELS5
+	CALL	PERFORM,V?TAKE,IRON-BAR
+	RTRUE	
+?ELS5:	PRINTI	"These are a "
+	CALL	DPRINT,LG-IRON-BAR
+	PRINTR	" held firmly together by barnacles."
+
+
+	.FUNCT	PLAQUE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?365
+	RTRUE	
+?ELS5:	EQUAL?	WRECK-CHOSEN,1 \?ELS7
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTR	"Although your knowledge of 17th-century Portuguese is minimal, you can see that the ship is named the Sao Vera, and the plaque is signed by King Alfonso VI."
+?ELS7:	CALL	GLOBAL-NOT-HERE-PRINT,PSEUDO-OBJECT
+	RSTACK	
+
+
+	.FUNCT	PARTITIONS-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?366
+	RTRUE	
+?ELS5:	EQUAL?	WRECK-CHOSEN,2 \?ELS7
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"These partitions once separated cabins."
+?ELS7:	CALL	GLOBAL-NOT-HERE-PRINT,PSEUDO-OBJECT
+	RSTACK	
+
+
+	.FUNCT	WRECK-6-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	GET	WRECK-6-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	DEEP-SUIT,WORNBIT /?ELS14
+	FSET?	MASK,WORNBIT \?THN17
+	IN?	AIR-TANK,PLAYER \?THN17
+	FSET?	WET-SUIT,WORNBIT /?ELS14
+?THN17:	CALL	JIGS-UP,WATERY-ENVIRONMENT
+	RSTACK	
+?ELS14:	CALL	COMPILER-SUCKS-EXP-2
+	ZERO?	STACK /FALSE
+	CALL	INT,I-CASE-LEAK
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	COMPILER-SUCKS-EXP-2
+	FSET?	STAMPS,RMUNGBIT /FALSE
+	IN?	GLASS-CASE,PLAYER \FALSE
+	IN?	PUTTY,GLASS-CASE \TRUE
+	IN?	HOLE-1,GLASS-CASE /?THN14
+	IN?	HOLE-2,GLASS-CASE \FALSE
+?THN14:	ZERO?	NO-HOLE-PLUGGED /FALSE
+	RTRUE	
+
+
+	.FUNCT	WRECK-6-D,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	ZERO?	PRINT? \?ELS12
+	RETURN	WRECK-11
+?ELS12:	FSET?	MINE,RMUNGBIT \?ELS14
+	FSET?	AIR-TANK,WORNBIT /?THN20
+	IN?	AIR-TANK,PLAYER /?ELS19
+?THN20:	RETURN	WRECK-11
+?ELS19:	CALL	TELL-TOO-BIG
+	RFALSE	
+?ELS14:	PRINTI	"As you make your way down, you bump what had to be a floating mine. A second later..."
+	CRLF	
+	CRLF	
+	CALL	BOOM
+	RSTACK	
+
+
+	.FUNCT	TELL-SCUBA-STOPS
+	PRINTR	"The scuba tank makes it impossible to fit through the passage."
+
+
+	.FUNCT	TELL-CARRY-SCUBA?
+	IN?	AIR-TANK,PLAYER \FALSE
+	PRINTI	"Carrying your tank in front of you, you swim to the next room..."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-6-S,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	ZERO?	PRINT? \?ELS10
+	RETURN	WRECK-7
+?ELS10:	FSET?	AIR-TANK,WORNBIT \?ELS12
+	CALL	TELL-SCUBA-STOPS
+	RFALSE	
+?ELS12:	CALL	TELL-CARRY-SCUBA?
+	RETURN	WRECK-7
+?ELS5:	RETURN	WRECK-7
+
+
+	.FUNCT	CASK-F,RARG=0
+	EQUAL?	RARG,M-BEG \?ELS5
+	ZERO?	ROPE-HANGING /FALSE
+	EQUAL?	PRSA,V?WALK \FALSE
+	EQUAL?	P-WALK-DIR,P?UP \FALSE
+	IN?	CASK,WRECK-4 \FALSE
+	CALL	WEIGHT,PLAYER
+	GRTR?	STACK,22 \?ELS17
+	CALL	TELL-YOU-CANT,STR?371
+	RSTACK	
+?ELS17:	MOVE	PLAYER,WRECK-1
+	SET	'HERE,WRECK-1
+	PRINTI	"You reach up, grab the rope, and climb..."
+	CRLF	
+	CRLF	
+	CALL	WRECK-1-F,M-ENTER
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?ELS5:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?CLIMB-FOO \?ELS28
+	CALL	PERFORM,V?CLIMB-ON,CASK
+	RTRUE	
+?ELS28:	EQUAL?	PRSA,DRILL \FALSE
+	PRINTI	"There is now a hole in the "
+	CALL	DPRINT,CASK
+	PRINTI	"."
+	CRLF	
+	CALL	ADD-HOLE,CASK
+	RSTACK	
+
+
+	.FUNCT	WOOD-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?372
+	RTRUE	
+?ELS5:	EQUAL?	WRECK-CHOSEN,2 \FALSE
+	CALL	GLOBAL-NOT-HERE-PRINT,PSEUDO-OBJECT
+	RSTACK	
+
+
+	.FUNCT	OVERTURNED-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?373
+	RTRUE	
+?ELS5:	EQUAL?	WRECK-CHOSEN,1 \?ELS7
+	CALL	GLOBAL-NOT-HERE-PRINT,PSEUDO-OBJECT
+	RSTACK	
+?ELS7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"These are dining tables now scattered in various positions."
+
+
+	.FUNCT	WRECK-7-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	EQUAL?	WRECK-CHOSEN,1 \?ELS8
+	PRINTI	"This cabin was used for housing the crew. In addition to lining the "
+	CALL	DPRINT,BULKHEADS
+	PRINTI	"s, bunks are strewn about the cabin"
+	ZERO?	BUNKS-MOVED \?ELS13
+	PRINTI	", blocking a doorway aft. There is"
+	JUMP	?CND11
+?ELS13:	PRINTI	". There is a doorway aft, and"
+?CND11:	PRINTI	" an unblocked forward exit."
+	JUMP	?CND6
+?ELS8:	GET	WRECK-7-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+?CND6:	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	WRECK-CHOSEN,2 \FALSE
+	EQUAL?	PRSA,V?WEAR \?ELS35
+	PRINTR	"There's not enough room here for you to put that on."
+?ELS35:	EQUAL?	PRSA,V?WALK \?CND33
+	FSET?	DEEP-SUIT,WORNBIT \?CND33
+	CALL	JIGS-UP,STR?374
+?CND33:	CALL	NOT-THIS-WRECK,PSEUDO-OBJECT
+	RSTACK	
+
+
+	.FUNCT	WRECK-7-S,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	BUNKS-MOVED \?THN11
+	ZERO?	PRINT? \?ELS10
+?THN11:	RETURN	WRECK-8
+?ELS10:	SET	'P-IT-OBJECT,FALLEN-BUNK
+	PRINTI	"There are bunks in the way."
+	CRLF	
+	RFALSE	
+?ELS5:	ZERO?	PRINT? \?ELS23
+	RETURN	WRECK-8
+?ELS23:	FSET?	AIR-TANK,WORNBIT \?ELS25
+	CALL	TELL-SCUBA-STOPS
+	RFALSE	
+?ELS25:	CALL	TELL-CARRY-SCUBA?
+	RETURN	WRECK-8
+
+
+	.FUNCT	WRECK-7-N,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	ZERO?	PRINT? \?ELS10
+	RETURN	WRECK-6
+?ELS10:	FSET?	AIR-TANK,WORNBIT \?ELS12
+	CALL	TELL-SCUBA-STOPS
+	RFALSE	
+?ELS12:	CALL	TELL-CARRY-SCUBA?
+	RETURN	WRECK-6
+?ELS5:	RETURN	WRECK-6
+
+
+	.FUNCT	WRECK-7-U,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	PRINT? /?ELS10
+	PRINTI	"There's no way you can reach that hole."
+	CRLF	
+	RFALSE	
+?ELS10:	RETURN	WRECK-3
+?ELS5:	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+
+
+	.FUNCT	FALLEN-BUNK-F
+	EQUAL?	PRSA,V?PUSH \?ELS5
+	PRINTR	"The bunks move a bit but fall back to where they were."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS9
+	ZERO?	BUNKS-MOVED /?ELS14
+	PRINTI	"A "
+	CALL	DPRINT,FALLEN-BUNK
+	PRINTI	" teeters by the passageway."
+	IN?	IRON-BAR,FALLEN-BUNK \?CND18
+	PRINTI	" They are being held up by an "
+	CALL	DPRINT,IRON-BAR
+	PRINTI	"."
+?CND18:	CRLF	
+	RTRUE	
+?ELS14:	PRINTI	"There is a "
+	CALL	DPRINT,FALLEN-BUNK
+	PRINTR	" before the aft doorway."
+?ELS9:	EQUAL?	PRSA,V?SLEEP \?ELS28
+	CALL	TELL-BAD-SHAPE
+	RSTACK	
+?ELS28:	EQUAL?	PRSA,V?MOVE \?ELS30
+	EQUAL?	PRSI,IRON-BAR \?ELS35
+	ZERO?	BUNKS-MOVED /?ELS40
+	PRINTR	"They've already been moved."
+?ELS40:	SET	'BUNKS-MOVED,TRUE-VALUE
+	CALL	QUEUE,I-PLUMMET,2
+	PUT	STACK,0,1
+	SET	'CRIMP-CTR,0
+	PRINTI	"Using the "
+	CALL	DPRINT,IRON-BAR
+	PRINTR	", you move the bunks out of the way."
+?ELS35:	PRINTI	"They're too heavy to move "
+	ZERO?	PRSI /?ELS54
+	PRINTI	"that way"
+	JUMP	?CND52
+?ELS54:	PRINTI	"by hand"
+?CND52:	PRINTR	"."
+?ELS30:	EQUAL?	PRSA,V?LOOK-BEHIND \?ELS65
+	EQUAL?	HERE,WRECK-7 \?ELS65
+	ZERO?	BUNKS-MOVED \?ELS65
+	PRINTR	"There is a passageway there."
+?ELS65:	ZERO?	BUNKS-MOVED /?ELS71
+	EQUAL?	PRSA,V?PUT-UNDER \?ELS71
+	EQUAL?	PRSO,IRON-BAR \?ELS71
+	CALL	INT,I-PLUMMET
+	PUT	STACK,0,0
+	MOVE	IRON-BAR,FALLEN-BUNK
+	PUTP	WRECK-7,P?DESCFCN,65
+	PUTP	WRECK-8,P?DESCFCN,65
+	PRINTI	"The "
+	CALL	DPRINT,IRON-BAR
+	PRINTR	" is wedging the bunks up."
+?ELS71:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	IN?	IRON-BAR,FALLEN-BUNK \FALSE
+	PRINTI	"The "
+	CALL	DPRINT,IRON-BAR
+	PRINTI	" is there,"
+	PRINT	WEDGED-STR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DEBRIS-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?377
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"All sorts of jetsam has collected here, none of it very interesting on its own."
+
+
+	.FUNCT	WRECK-8-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	GET	WRECK-8-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-8-D,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-13
+
+
+	.FUNCT	WRECK-8-N,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	ZERO?	PRINT? \?ELS10
+	RETURN	WRECK-7
+?ELS10:	FSET?	AIR-TANK,WORNBIT \?ELS12
+	CALL	TELL-SCUBA-STOPS
+	RFALSE	
+?ELS12:	CALL	TELL-CARRY-SCUBA?
+	RETURN	WRECK-7
+?ELS5:	RETURN	WRECK-7
+
+
+	.FUNCT	EAST-LADDER-F
+	EQUAL?	PRSA,V?CLIMB-FOO \FALSE
+	EQUAL?	HERE,WRECK-8 \?ELS8
+	CALL	DO-WALK,P?DOWN
+	JUMP	?CND6
+?ELS8:	CALL	DO-WALK,P?UP
+?CND6:	SET	'P-IT-OBJECT,EAST-LADDER
+	RTRUE	
+
+
+	.FUNCT	SAFE-F
+	EQUAL?	PRSA,V?THROUGH \?ELS5
+	EQUAL?	HERE,WRECK-8 /?ELS5
+	EQUAL?	WRECK-CHOSEN,2 /?ELS5
+	CALL	GLOBAL-NOT-HERE-PRINT,SAFE
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?OPEN /?THN10
+	EQUAL?	PRSA,V?DRILL \?ELS9
+?THN10:	EQUAL?	PRSI,DRILL \?ELS16
+	FSET	SAFE,OPENBIT
+	CALL	QUEUE,I-CASE-LEAK,-1
+	PUT	STACK,0,1
+	PRINTI	"As you drill through the lock, the door pops open with a rush of escaping air!"
+	FIRST?	SAFE \?CND19
+	PRINTI	" This reveals "
+	CALL	PRINT-CONTENTS,SAFE
+	PRINTI	"!"
+?CND19:	CRLF	
+	CALL	ADD-HOLE,SAFE
+	RSTACK	
+?ELS16:	ZERO?	PRSI /?ELS27
+	PRINTI	"With "
+	CALL	APRINT,PRSI
+	PRINTR	"??!?"
+?ELS27:	IN?	HOLE-1,SAFE /FALSE
+	IN?	HOLE-2,SAFE /FALSE
+	PRINTR	"It's locked."
+?ELS9:	EQUAL?	PRSA,V?UNLOCK \FALSE
+	IN?	HOLE-1,SAFE /?THN46
+	IN?	HOLE-2,SAFE \?ELS45
+?THN46:	PRINTR	"You've already done it. By brute force."
+?ELS45:	CALL	TELL-DONT-HAVE,STR?381
+	RSTACK	
+
+
+	.FUNCT	GLASS-CASE-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	PRINTR	"It's sealed shut."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS9
+	PRINTI	"The "
+	CALL	DPRINT,GLASS-CASE
+	PRINTI	" has a shelf inside it. A collection of extremely rare "
+	FSET?	STAMPS,RMUNGBIT \?CND12
+	PRINTI	"but soggy "
+?CND12:	PRINTI	"postage stamps sits on the shelf. There is a crack near a bottom corner of the case"
+	IN?	PUTTY,GLASS-CASE \?CND19
+	PRINTI	", which is sealed with putty"
+?CND19:	PRINTI	"."
+	IN?	HOLE-1,GLASS-CASE /?THN29
+	IN?	HOLE-2,GLASS-CASE \?CND26
+?THN29:	PRINTI	" Near the crack is the hole you drilled"
+	IN?	PUTTY,GLASS-CASE \?CND33
+	ZERO?	NO-HOLE-PLUGGED \?CND33
+	PRINTI	", which is also filled with putty"
+?CND33:	PRINTI	"."
+?CND26:	GRTR?	WATER-IN-CASE,0 \?CND42
+	PRINTI	" The case has some water in it."
+?CND42:	CRLF	
+	RTRUE	
+?ELS9:	EQUAL?	PRSA,V?TAKE,V?POUR \?ELS52
+	EQUAL?	PRSO,OCEAN /?THN49
+?ELS52:	EQUAL?	PRSA,V?EMPTY \?ELS48
+?THN49:	ZERO?	WATER-IN-CASE \?ELS57
+	PRINTR	"There's no water in the case."
+?ELS57:	CALL	AIRTIGHT-ROOM?
+	ZERO?	STACK \?ELS61
+	PRINTR	"That would be a losing battle."
+?ELS61:	SET	'WATER-IN-CASE,0
+	FSET	STAMPS,RMUNGBIT
+	PRINTR	"In the process of emptying the case, you manage to get the stamps wet."
+?ELS48:	EQUAL?	PRSA,V?DRILL \?ELS69
+	IN?	PLAYER,WRECK-5 \?ELS72
+	ZERO?	WRECK-5-FLOODED \?ELS72
+	SET	'WATER-IN-CASE,0
+	PRINTI	"The water pours out of the hole."
+	CRLF	
+	JUMP	?CND70
+?ELS72:	SET	'WATER-IN-CASE,10
+	CALL	INT,I-CASE-LEAK
+	PUT	STACK,0,0
+	FSET	STAMPS,RMUNGBIT
+	PRINTI	"Water pours into the case, ruining the stamps."
+	CRLF	
+?CND70:	CALL	ADD-HOLE,GLASS-CASE
+	RSTACK	
+?ELS69:	EQUAL?	PRSA,V?MUNG \FALSE
+	EQUAL?	PRSO,GLASS-CASE \FALSE
+	PRINTR	"That wouldn't be too smart."
+
+
+	.FUNCT	STAMPS-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTI	"These are rare stamps which include a little-known sheet of ""inverted biplanes,"" full sheets of ""Graf Zeppelins,"" and other rarities. Sold at auction, their value would exceed $50 million"
+	FSET?	STAMPS,RMUNGBIT \?CND8
+	PRINTI	". Unfortunately, since they're all stuck together and salty, they're not even worth the price of a cup of coffee"
+?CND8:	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?COUNT \FALSE
+	PRINTR	"It's hard to tell."
+
+
+	.FUNCT	WRECK-9-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	GET	WRECK-9-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-ENTER \?ELS9
+	EQUAL?	WRECK-CHOSEN,2 \?ELS9
+	PUTP	CEILING-HOLE-2,P?SDESC,STR?5
+	FCLEAR	CEILING-HOLE-2,VOWELBIT
+	PUTP	FLOOR-HOLE-2,P?SDESC,STR?5
+	RTRUE	
+?ELS9:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	WRECK-CHOSEN,1 \FALSE
+	CALL	NOT-THIS-WRECK,BUNKS
+	RSTACK	
+
+
+	.FUNCT	WRECK-9-U,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-4
+
+
+	.FUNCT	WRECK-9-W,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	PRINT? /FALSE
+	CALL	TELL-CAREFULLY-PICK
+	RETURN	WEST-OF-WRECK-9
+?ELS5:	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+
+
+	.FUNCT	EMPTY-CHEST-F,RARG=0
+	CALL	GENERIC-CHEST-F,EMPTY-CHEST,RARG
+	RSTACK	
+
+
+	.FUNCT	GENERIC-CHEST-F,CHEST,RARG
+	EQUAL?	RARG,M-BEG \?ELS5
+	EQUAL?	PRSA,V?WALK \?ELS10
+	EQUAL?	P-WALK-DIR,P?UP \?ELS10
+	IN?	CHEST,WRECK-13 \?ELS10
+	MOVE	PLAYER,WRECK-8
+	SET	'HERE,WRECK-8
+	ZERO?	CHEST-CLIMB-POINTS /?CND13
+	CALL	RATING-UPD,CHEST-CLIMB-POINTS
+	SET	'CHEST-CLIMB-POINTS,0
+?CND13:	PRINTI	"You reach the first unbroken rung and climb the ladder..."
+	CRLF	
+	CRLF	
+	CALL	WRECK-8-F,M-ENTER
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?ELS10:	EQUAL?	PRSA,V?WALK \?ELS20
+	EQUAL?	P-WALK-DIR,P?UP /?ELS20
+	CALL	TELL-YOUD-BETTER,STR?384,TRUE-VALUE
+	RSTACK	
+?ELS20:	EQUAL?	PRSA,V?MOVE \FALSE
+	EQUAL?	PRSO,SAFETY-LINE \FALSE
+	IN?	SAFETY-LINE,CHEST \FALSE
+	CALL	JIGS-UP,STR?385
+	RSTACK	
+?ELS5:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?CLIMB-FOO \?ELS33
+	CALL	PERFORM,V?CLIMB-ON,CHEST
+	RTRUE	
+?ELS33:	EQUAL?	PRSA,V?TAKE \?ELS35
+	PRINTR	"It's much too heavy."
+?ELS35:	EQUAL?	PRSA,V?PUSH-TO \?ELS39
+	IN?	SAFETY-LINE,CHEST \?ELS39
+	EQUAL?	P-WALK-DIR,P?EAST \?ELS39
+	CALL	TELL-TOO-SHORT
+	RSTACK	
+?ELS39:	EQUAL?	PRSA,V?TIE \FALSE
+	EQUAL?	PRSO,SAFETY-LINE /?THN49
+	EQUAL?	PRSI,SAFETY-LINE \FALSE
+?THN49:	MOVE	SAFETY-LINE,CHEST
+	FSET	SAFETY-LINE,NDESCBIT
+	ZERO?	CHEST-TIE-POINTS /?CND51
+	CALL	RATING-UPD,CHEST-TIE-POINTS
+	SET	'CHEST-TIE-POINTS,0
+?CND51:	CALL	INT,I-PENDULUM
+	PUT	STACK,0,0
+	PRINTR	"Tied."
+
+
+	.FUNCT	JAGGED-HOLE-F,OUTSIDE?=0
+	EQUAL?	HERE,WEST-OF-WRECK-9,WEST-OF-WRECK-11 \?CND1
+	SET	'OUTSIDE?,TRUE-VALUE
+?CND1:	EQUAL?	PRSA,V?THROUGH \?ELS8
+	ZERO?	OUTSIDE? /?ELS13
+	CALL	DO-WALK,P?EAST
+	RSTACK	
+?ELS13:	CALL	DO-WALK,P?WEST
+	RSTACK	
+?ELS8:	EQUAL?	PRSA,V?PUSH-THROUGH \?ELS18
+	EQUAL?	PRSI,JAGGED-HOLE \?ELS18
+	ZERO?	OUTSIDE? /?ELS23
+	SET	P-WALK-DIR,P?EAST
+	JUMP	?CND21
+?ELS23:	SET	P-WALK-DIR,P?WEST
+?CND21:	CALL	PERFORM,V?PUSH-TO,PRSO,INTDIR
+	RTRUE	
+?ELS18:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	CALL	TELL-YOU-CANT,STR?6
+	RSTACK	
+
+
+	.FUNCT	TELL-TOO-SHORT,STR=0
+	PRINTI	"The "
+	CALL	DPRINT,SAFETY-LINE
+	PRINTI	" isn't long enough"
+	ZERO?	STR /?CND3
+	PRINT	STR
+?CND3:	PRINTR	"."
+
+
+	.FUNCT	GENERIC-WEST-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	PRINTI	"You are on the murky ocean floor, outside the rotted hull of a "
+	CALL	DPRINT,SHIPWRECK
+	PRINTR	". You can return to the wreck through the hole in the hull to starboard."
+?ELS5:	EQUAL?	RARG,M-BEG \?ELS9
+	EQUAL?	PRSA,V?WALK \?ELS14
+	EQUAL?	P-WALK-DIR,P?EAST,P?IN \?ELS19
+	IN?	SAFETY-LINE,PLAYER \FALSE
+	CALL	TELL-TOO-SHORT,STR?387
+	RETURN	2
+?ELS19:	ZERO?	P-WALK-DIR /FALSE
+	CALL	LINE-SNAGS
+	RSTACK	
+?ELS14:	EQUAL?	PRSA,V?WAIT-FOR \FALSE
+	EQUAL?	PRSO,SAFETY-LINE \FALSE
+	CALL	QUEUED?,I-PENDULUM
+	ZERO?	STACK /FALSE
+	IN?	SAFETY-LINE,HERE \?ELS39
+	SET	'CLOCK-WAIT,TRUE-VALUE
+	PRINTR	"It's right here!"
+?ELS39:	CALL	V-WAIT
+	RSTACK	
+?ELS9:	EQUAL?	RARG,M-END \FALSE
+	IN?	SAFETY-LINE,HERE \FALSE
+	CALL	ENABLED?,I-PENDULUM
+	ZERO?	STACK \FALSE
+	CALL	QUEUE,I-PENDULUM,3
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	LINE-SNAGS
+	CALL	JIGS-UP,STR?388
+	RSTACK	
+
+
+	.FUNCT	SAFETY-LINE-F,RARG=0,MSTR
+	EQUAL?	RARG,M-OBJDESC \?ELS5
+	PRINTI	"The "
+	CALL	DPRINT,SAFETY-LINE
+	PRINTR	" from the ship is swaying to and fro."
+?ELS5:	EQUAL?	PRSA,V?TAKE \?ELS9
+	IN?	SAFETY-LINE,TREASURE-CHEST /?THN13
+	IN?	SAFETY-LINE,EMPTY-CHEST \?ELS12
+?THN13:	PRINTR	"It's tied to the chest."
+?ELS12:	IN?	SAFETY-LINE,HERE /?ELS18
+	PRINTR	"It's no longer here."
+?ELS18:	CALL	ITAKE
+	ZERO?	STACK /TRUE
+	CALL	INT,I-PENDULUM
+	PUT	STACK,0,0
+	PRINTR	"Taken."
+?ELS9:	EQUAL?	PRSA,V?UNTIE \?ELS26
+	IN?	SAFETY-LINE,TREASURE-CHEST /?THN32
+	IN?	SAFETY-LINE,EMPTY-CHEST \?ELS31
+?THN32:	CALL	META-LOC,SAFETY-LINE
+	MOVE	SAFETY-LINE,STACK
+	FCLEAR	SAFETY-LINE,NDESCBIT
+	CALL	QUEUE,I-PENDULUM,3
+	PUT	STACK,0,1
+	PRINTR	"Untied."
+?ELS31:	PRINTR	"It's not tied to anything!"
+?ELS26:	EQUAL?	PRSA,V?MOVE \?ELS41
+	PRINTI	"The line starts to move upward"
+	SET	'MSTR,STR?389
+	IN?	SAFETY-LINE,TREASURE-CHEST \?ELS46
+	LOC	WEASEL
+	MOVE	TREASURE-CHEST,STACK
+	JUMP	?CND44
+?ELS46:	IN?	SAFETY-LINE,EMPTY-CHEST \?ELS48
+	LOC	WEASEL
+	MOVE	EMPTY-CHEST,STACK
+	JUMP	?CND44
+?ELS48:	SET	'MSTR,STR?390
+	CALL	INT,I-PENDULUM
+	PUT	STACK,0,0
+	LOC	WEASEL
+	MOVE	SAFETY-LINE,STACK
+?CND44:	PRINT	MSTR
+	CRLF	
+	RTRUE	
+?ELS41:	EQUAL?	PRSA,V?CLIMB-FOO \?ELS54
+	CALL	LINE-SNAGS
+	RSTACK	
+?ELS54:	EQUAL?	PRSA,V?CUT \FALSE
+	PRINTR	"This rope is too strong."
+
+
+	.FUNCT	WRECK-10-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	GET	WRECK-10-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	DEEP-SUIT,WORNBIT /?ELS14
+	FSET?	MASK,WORNBIT \?THN17
+	IN?	AIR-TANK,PLAYER \?THN17
+	FSET?	WET-SUIT,WORNBIT /?ELS14
+?THN17:	CALL	JIGS-UP,WATERY-ENVIRONMENT
+	RSTACK	
+?ELS14:	CALL	COMPILER-SUCKS-EXP-2
+	ZERO?	STACK /FALSE
+	CALL	INT,I-CASE-LEAK
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	WRECK-10-U,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-5
+
+
+	.FUNCT	LOCKER-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?ELS5
+	FSET?	LOCKER-DOOR,OPENBIT \?ELS10
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS10:	FSET	LOCKER-DOOR,OPENBIT
+	CALL	TELL-NOW,LOCKER-DOOR,STR?25
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?CLOSE \?ELS14
+	FSET?	LOCKER-DOOR,OPENBIT \?ELS19
+	FCLEAR	LOCKER-DOOR,OPENBIT
+	CALL	TELL-NOW,LOCKER-DOOR,STR?26
+	RSTACK	
+?ELS19:	CALL	TELL-ALREADY,STR?26
+	RSTACK	
+?ELS14:	EQUAL?	PRSA,V?READ \?ELS23
+	CALL	FIXED-FONT-ON
+	PRINTI	"    ""S.S. LEVIATHAN
+     STORAGE LOCKER
+   DANGER: EXPLOSIVES!""
+"
+	CALL	FIXED-FONT-OFF
+	RTRUE	
+?ELS23:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The door, which has a sign on it, is "
+	FSET?	LOCKER-DOOR,OPENBIT \?ELS32
+	PRINTI	"open"
+	JUMP	?CND30
+?ELS32:	PRINTI	"closed"
+?CND30:	PRINTR	"."
+
+
+	.FUNCT	SKELETON-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC \?ELS5
+	PRINTI	"Some who went down with the ship were in here, where they are nothing more than "
+	CALL	DPRINT,SKELETON
+	PRINTR	"s."
+?ELS5:	EQUAL?	PRSA,V?KILL \?ELS9
+	PRINTI	"The "
+	CALL	DPRINT,SKELETON
+	PRINTR	"s remain dead."
+?ELS9:	EQUAL?	PRSA,V?TAKE,V?ATTACK,V?MUNG /?THN14
+	EQUAL?	PRSA,V?PUSH \?ELS13
+?THN14:	PRINTI	"One of the "
+	CALL	DPRINT,SKELETON
+	PRINTR	"s falls apart."
+?ELS13:	EQUAL?	PRSA,V?COUNT,V?EXAMINE \FALSE
+	PRINTI	"There are about fifty of them. "
+	EQUAL?	PRSA,V?COUNT \?ELS26
+	PRINTR	"It's hard to tell exactly."
+?ELS26:	PRINTI	"As you look around, you notice that one of the "
+	CALL	DPRINT,SKELETON
+	PRINTI	"s has what looks like a "
+	CALL	DPRINT,SCABBARD
+	PRINTR	" at its hip."
+
+
+	.FUNCT	SCABBARD-F,F
+	EQUAL?	PRSA,V?TAKE \?ELS5
+	PRINTI	"The "
+	CALL	DPRINT,SCABBARD
+	PRINTI	" is stuck to the "
+	CALL	DPRINT,SKELETON
+	PRINTR	" by encrusted barnacles."
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS9
+	PRINTI	"There is very little of the original leather left to this "
+	CALL	DPRINT,SCABBARD
+	PRINTI	", but barnacles have collected in its place."
+	FIRST?	SCABBARD >F \?CND12
+	PRINTI	" There is "
+	CALL	APRINT,F
+	PRINTI	" in the "
+	CALL	DPRINT,SCABBARD
+	PRINTI	"."
+?CND12:	CRLF	
+	RTRUE	
+?ELS9:	EQUAL?	PRSA,V?OPEN \?ELS18
+	CALL	TELL-ALREADY,STR?25
+	RSTACK	
+?ELS18:	EQUAL?	PRSA,V?CLOSE \?ELS20
+	PRINTR	"It doesn't close."
+?ELS20:	EQUAL?	PRSA,V?CUT \FALSE
+	CALL	TELL-BARNACLES
+	RSTACK	
+
+
+	.FUNCT	TELL-BARNACLES
+	PRINTR	"The barnacles are too firmly emplaced."
+
+
+	.FUNCT	BARNACLE-PSEUDO,PARG=0
+	EQUAL?	PARG,M-NAME \?ELS5
+	PUTP	PSEUDO-OBJECT,P?SDESC,STR?393
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS7
+	PRINTR	"The barnacles look very firmly emplaced."
+?ELS7:	EQUAL?	PRSA,V?MOVE,V?CUT,V?TAKE \FALSE
+	CALL	TELL-BARNACLES
+	RSTACK	
+
+
+	.FUNCT	WRECK-11-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	GET	WRECK-11-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-BEG \FALSE
+	EQUAL?	PRSA,V?WALK \FALSE
+	IN?	MINE,MAGNET \FALSE
+	IN?	MAGNET,PLAYER \FALSE
+	ZERO?	MAGNET-ON /FALSE
+	PRINTI	"The mine bumps a "
+	CALL	DPRINT,BULKHEADS
+	PRINTI	"..."
+	CRLF	
+	CRLF	
+	CALL	BOOM
+	RSTACK	
+
+
+	.FUNCT	WRECK-11-U,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	ZERO?	PRINT? \?ELS12
+	RETURN	WRECK-6
+?ELS12:	FSET?	MINE,RMUNGBIT /?ELS14
+	PRINTI	"As you make your way up, you bump the floating mine. A second later..."
+	CRLF	
+	CRLF	
+	CALL	BOOM
+	RSTACK	
+?ELS14:	FSET?	AIR-TANK,WORNBIT \?ELS18
+	RETURN	WRECK-6
+?ELS18:	CALL	TELL-TOO-BIG
+	RFALSE	
+
+
+	.FUNCT	WRECK-11-S,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,2 \?ELS5
+	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+?ELS5:	RETURN	WRECK-12
+
+
+	.FUNCT	TELL-CAREFULLY-PICK
+	PRINTI	"You carefully pick your way through the jagged edge of the hole..."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-11-W,PRINT?=1
+	EQUAL?	WRECK-CHOSEN,1 \?ELS5
+	ZERO?	PRINT? /FALSE
+	CALL	TELL-CAREFULLY-PICK
+	RETURN	WEST-OF-WRECK-11
+?ELS5:	CALL	TELL-NO-GO,PRINT?
+	RFALSE	
+
+
+	.FUNCT	TREASURE-CHEST-F,RARG=0
+	CALL	GENERIC-CHEST-F,TREASURE-CHEST,RARG
+	RSTACK	
+
+
+	.FUNCT	MINE-F
+	EQUAL?	PRSA,V?THROW-OFF,V?THROW,V?TAKE /?THN6
+	EQUAL?	PRSA,V?PUSH,V?MUNG,V?MOVE /?THN6
+	EQUAL?	PRSA,V?PUSH-TO \?ELS5
+?THN6:	CALL	BOOM
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	IN?	MINE,MAGNET \?ELS12
+	ZERO?	MAGNET-ON /?ELS12
+	PRINTI	"A single mine is being held by the "
+	CALL	DPRINT,MAGNET
+	PRINTR	" which is safely attached between its spikes."
+?ELS12:	FSET?	MINE,RMUNGBIT \?ELS18
+	PRINTI	"A single mine is floating relatively harmlessly in one corner of the room."
+	JUMP	?CND10
+?ELS18:	PRINTI	"This mine is blocking the hole that leads to the room above."
+?CND10:	PRINTI	" It has lots of widely-spaced spikes pointing out from it."
+	IN?	MINE,MAGNET \?CND27
+	PRINTI	" You are holding the "
+	CALL	DPRINT,MAGNET
+	PRINTI	" next to it."
+?CND27:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CLUMP-OF-MINES-F,RARG=0
+	EQUAL?	RARG,M-OBJDESC \?ELS5
+	PRINTI	"A number of spherical mines with spikes sticking out of them litter the room. These mines must have once been used to blockade shipping lanes. Most of them are tethered together on the deck, but one is "
+	IN?	MINE,MAGNET \?ELS10
+	ZERO?	MAGNET-ON /?ELS13
+	PRINTI	"being held by the "
+	JUMP	?CND11
+?ELS13:	PRINTI	"touching your "
+?CND11:	CALL	DPRINT,MAGNET
+	JUMP	?CND8
+?ELS10:	FSET?	MINE,RMUNGBIT \?ELS24
+	PRINTI	"floating in a corner of the room"
+	JUMP	?CND8
+?ELS24:	PRINTI	"floating up near the hole in the "
+	CALL	DPRINT,CEILING
+?CND8:	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?TAKE \FALSE
+	CALL	BOOM
+	RSTACK	
+
+
+	.FUNCT	BOOM
+	CALL	JIGS-UP,STR?397
+	RSTACK	
+
+
+	.FUNCT	WRECK-12-F,RARG
+	EQUAL?	RARG,M-LOOK \?ELS5
+	GET	WRECK-12-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	QUEUE,I-SQUID,2
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	SQUID-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	PRINTR	"The squid is huge, its body 20 feet long, and each of its ten arms 35 feet long! It is currently asleep, its arms waving placidly beneath its body."
+?ELS5:	EQUAL?	PRSA,V?ALARM \FALSE
+	PRINTI	"As it awakens, the behemoth turns to you. "
+	CALL	I-SQUID
+	RSTACK	
+
+
+	.FUNCT	WRECK-13-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	GET	WRECK-13-DESCS,WRECK-CHOSEN
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WRECK-13-U,PRINT?=1
+	ZERO?	PRINT? \?ELS5
+	RETURN	WRECK-8
+?ELS5:	CALL	TELL-CANT-REACH,STR?401
+	RFALSE	
+
+
+	.FUNCT	NOT-THIS-WRECK,OBJ
+	EQUAL?	PRSO,OBJ /?THN6
+	EQUAL?	PRSI,OBJ \FALSE
+?THN6:	CALL	GLOBAL-NOT-HERE-PRINT,OBJ
+	RTRUE	
+
+	.ENDI
diff --git a/wrecks.zil b/wrecks.zil
new file mode 100644
index 0000000..8970c87
--- /dev/null
+++ b/wrecks.zil
@@ -0,0 +1,1925 @@
+"WRECKS for TOA2
+ Copyright (c) 1984 Infocom, Inc."
+
+<ROOM UNDERWATER
+      (IN ROOMS)
+      (DESC "Underwater")
+      (FLAGS RLANDBIT)
+      (GLOBAL OCEAN)
+      (UP PER UNDERWATER-U)
+      (DOWN PER UNDERWATER-D)
+      (ACTION UNDERWATER-F)
+      (LINE 6)>
+
+<ROUTINE UNDERWATER-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<FCLEAR ,UNDERWATER ,TOUCHBIT>
+		<COND (<AND <IN? ,SHARK ,LOCAL-GLOBALS>
+			    <NOT <QUEUED? I-SHARK>>>
+		       <ENABLE <QUEUE I-SHARK <RANDOM
+					       <- </ ,OCEAN-BOTTOM 50> 1>>>>)>
+		<MOVE ,LINE-HACK ,UNDERWATER>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL "You are in the sea, completely surrounded by water." CR>)
+	       (<EQUAL? .RARG ,M-BEG>
+		<COND (<EQUAL? ,LINE-HACK ,PRSO ,PRSI>
+		       <TELL-CANT-REACH
+"the line. Worry about it when you've found the treasure">)
+		      (<AND <VERB? WALK>
+			    <NOT <EQUAL? ,P-WALK-DIR ,P?UP ,P?DOWN>>>
+		       <TELL-NOWHERE>)
+		      (<VERB? WALK DIVE SWIM LOOK EXAMINE SAVE RESTORE QUIT
+			      SCORE TIME FIND DIAGNOSE LAMP-ON LAMP-OFF OPEN
+			      CLOSE TAKE READ BREATHE WAIT INVENTORY VERSION
+			      AGAIN WHAT SCRIPT UNSCRIPT RESTART $CALL>
+		       <RFALSE>)
+		      (<VERB? DROP THROW>
+		       <TELL-NO-LITTER>)
+		      ;(<VERB? LOOK-UP>
+		       <TELL "You see water." CR>)
+		      (T
+		       <TELL-YOU-CANT "do that underwater.">
+		       <RFATAL>)>)>>
+
+<ROUTINE TELL-NOWHERE ()
+	 <TELL "That won't get you anywhere." CR>>
+
+<ROUTINE UNDERWATER-U ("OPTIONAL" (PRINT? T) "AUX" L)
+	 <COND (<NOT .PRINT?>
+		<RFALSE>)>
+	 <SETG DEPTH <- ,DEPTH 50>>
+	 <COND (<AND <NOT <IN? ,SAFETY-LINE <SET L <LOC ,WEASEL>>>>
+		     <NOT <IN? ,TREASURE-CHEST .L>>
+		     <NOT <IN? ,EMPTY-CHEST .L>>>
+		<FCLEAR ,LINE-HACK ,INVISIBLE>)>
+	 <COND (<==? ,DEPTH 0>
+		<TELL "You get out of the water and reboard your ship..." CR CR>		
+		<DISABLE <INT I-AIR-SUPPLY>>
+		<COND (<ENABLED? I-LAST-GASP>
+		       <DISABLE <INT I-LAST-GASP>>)
+		      (T <DISABLE <INT I-MM-COMPRESSOR>>)>
+		<COND (<OR <FSET? ,OCEAN-FLOOR ,TOUCHBIT>
+			   <FSET? ,WRECK-1 ,TOUCHBIT>>
+		       <RATING-UPD 25>
+		       <COND (<OR <IN? ,SAFETY-LINE ,TREASURE-CHEST>
+				  <AND <IN? ,GLASS-CASE ,PLAYER>
+				       <NOT <FSET? ,STAMPS ,RMUNGBIT>>>>
+			      <RATING-UPD 25>
+			      <COND (<IN? ,TREASURE-CHEST <LOC, WEASEL>>
+				     <TREASURE-CHEST-WIN>)
+				    (<IN? ,SAFETY-LINE ,TREASURE-CHEST>
+				     <CHEST-PULL-UP>
+				     <TREASURE-CHEST-WIN>)
+				    (T <TELL
+"When your shipmates find that you've recovered these priceless stamps, they
+congratulate you. ">)>
+			      <COND (<OR ,WEASEL-BLOWN
+					 <FSET? ,ENVELOPE ,INVISIBLE>>
+				     <TELL
+"Johnny slaps you on the back. \"Good job, matey!\" As you return to the
+island over the calm, dazzling blue sea, you contemplate your wealth with a
+touch of sadness. You think of Hevlin and hope his soul is resting a little
+easier now." CR CR>
+				     <RATING-UPD 20>
+				     <V-SCORE>
+			      	     <USL>
+			      	     <QUIT>)
+				    (T
+				     <TELL
+"Exhilarated but tired, you lie out on the deck. You fall asleep at once,
+and dream of a tropical paradise. But even as you dream, your throat is
+cut! And as your life drains away, you realize how foolish it was not to
+have suspected a traitor!" CR>
+				     <FINISH>)>)
+			     (<AND <IN? ,GLASS-CASE ,PLAYER>
+				   <FSET? ,STAMPS ,RMUNGBIT>>
+			      <TELL
+"But their elation turns to disappointment, as they notice that the
+stamps are waterlogged and, thus, worthless">
+			      <LONG-TRIP>)
+			     (<IN? ,EMPTY-CHEST <LOC ,WEASEL>>
+			      <EMPTY-CHEST-LOSE>)
+			     (<IN? ,SAFETY-LINE ,EMPTY-CHEST>
+			      <CHEST-PULL-UP>
+			      <EMPTY-CHEST-LOSE>)
+			     (T
+			      <TELL
+"When your shipmates find out that you haven't found any treasure,
+Johnny shakes his head. You can't help feeling you've let them, as well as
+" D ,GLOBAL-SELF ", down">
+			      <LONG-TRIP>)>)
+		      (<AND ,AT-SEA ;,MOMENT-OF-TRUTH <G? ,PRESENT-TIME 720>>
+		       <TELL
+"Johnny looks downcast when he sees that you empty-handed. \"Let's get back
+to the Island. Maybe another time...\"" CR>
+		       <FINISH>)
+		      (<==? ,SHIP-CHOSEN ,TRAWLER>
+		       <FSET ,OCEAN ,VEHBIT>
+		       <MOVE ,LINE-HACK ,NW-AFT-DECK>
+		       <RETURN ,NW-AFT-DECK>)
+	       	      (T
+		       <FSET ,OCEAN ,VEHBIT>
+		       <MOVE ,LINE-HACK ,MM-AFT-DECK>
+		       <RETURN ,MM-AFT-DECK>)>)
+	       (T
+		<TELL "You ascend ">
+		<COND (<==? ,HERE ,UNDERWATER>
+		       <TELL "another ">)>
+		<TELL "50 feet..." CR CR>
+	        <COND (<AND ,DOOMED <==? ,DEPTH 250>>
+		       <JIGS-UP
+"You suddenly find yourself inhaling water! The airhose trailing behind
+must have torn, and there's no time to do anything about it!">)
+		      (T <RETURN ,UNDERWATER>)>)>>
+
+<ROUTINE CHEST-PULL-UP ()
+	 <COND (<EQUAL? <LOC ,WEASEL> ,MM-AFT-DECK ,NW-AFT-DECK>
+		<START-SENTENCE ,WEASEL>)
+	       (T <START-SENTENCE ,JOHNNY>)>
+	 <TELL " pulls on the " D ,SAFETY-LINE " and drags up the chest. ">>
+
+<ROUTINE EMPTY-CHEST-LOSE ()
+	 <TELL-1ST-CHEST-LINE>
+	 <TELL
+"disappointment, the contents are nothing more than old Portuguese
+newspapers">
+	 <LONG-TRIP>>
+
+<ROUTINE TELL-1ST-CHEST-LINE ()
+	 <TELL
+"Johnny spends several minutes forcing open the chest. To everyone's ">>
+
+<ROUTINE LONG-TRIP ()
+	 <TELL ". It will be a long trip back." CR>
+	 <FINISH>>
+
+<ROUTINE TREASURE-CHEST-WIN ()
+	 <TELL-1ST-CHEST-LINE>
+	 <TELL
+"delight, there are hundreds of gold escudos inside. ">>
+
+<ROUTINE UNDERWATER-D ("OPTIONAL" (PRINT? T))
+	 <COND (<NOT .PRINT?>
+		<RFALSE>)>
+	 <SETG DEPTH <+ ,DEPTH 50>>
+	 <COND (<AND <G? ,DEPTH 300>
+		     <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>>
+		<JIGS-UP
+"As you descend further, Merv Griffin swims by, offering you Pittsburgh
+Penguin tickets. You realize too late that this is a hallucination, since
+Merv doesn't even like the Penguins. At this depth, narcosis takes over,
+and all that's left is to say bye to Merv...">)
+	       (<==? ,DEPTH ,OCEAN-BOTTOM>
+		<COND (,WRECK-CHOSEN
+		       <TELL-FLUTTER-TO "a shipwreck">
+		       <RETURN ,WRECK-1>)
+		      (T
+		       <TELL-FLUTTER-TO "the ocean floor">
+		       <RETURN ,OCEAN-FLOOR>)>)
+	       (T
+		<TELL "You descend another 50 feet..." CR CR>
+		<RETURN ,UNDERWATER>)>>
+
+<ROUTINE TELL-FLUTTER-TO (STR)
+	 <TELL "You flutter down to " .STR "..." CR CR>>
+
+<GLOBAL OCEAN-BOTTOM 400>
+<GLOBAL DEPTH 0>
+
+<OBJECT SHARK
+	(IN LOCAL-GLOBALS)
+	(DESC "shark")
+	(SYNONYM SHARK FISH)
+	(ADJECTIVE UGLY LARGE BIG HUGE TOOTHY)
+	(FLAGS NDESCBIT)
+	(TEXT
+"The large, ugly, toothy shark is headed toward you!")>
+
+<ROOM OCEAN-FLOOR
+      (IN ROOMS)
+      (DESC "Ocean Floor")
+      (LDESC 
+"You are on the ocean floor. Sediment and seaweed wave slowly with the
+current.")
+      (GLOBAL OCEAN)
+      (FLAGS RLANDBIT)
+      (LINE 6)
+      (UP PER UNDERWATER-U)
+      (ACTION OCEAN-FLOOR-F)>
+
+<ROUTINE OCEAN-FLOOR-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-BEG>
+		<COND (<AND <VERB? WALK>
+			    <NOT <==? ,P-WALK-DIR ,P?UP>>>
+		       <TELL-NOWHERE>)>)>>
+<ROOM WRECK-1
+      (IN ROOMS)
+      (DESC "Top Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK WEST-LADDER FLOOR-HOLE-1 FLOOR-HOLE-2 MAST)
+      (VALUE 20)
+      (UP PER UNDERWATER-U)
+      (SOUTH TO WRECK-2)
+      (DOWN PER WRECK-1-D)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-1-F)>
+
+<ROUTINE WRECK-1-F (RARG)
+	 <COND (<==? .RARG ,M-ENTER>
+		<COND (<NOT <FSET? ,WRECK-1 ,TOUCHBIT>>
+		       <FSET ,LINE-HACK ,INVISIBLE>
+		       <COND (<==? ,WRECK-CHOSEN 1>
+			      ;<ENABLE <QUEUE I-PENDULUM -1>>
+			      <MOVE ,SQUID ,WRECK-12>
+			      <MOVE ,IRON-BAR ,WRECK-5>
+			      <COND (<==? ,WRECK-FOUND 1>
+				     <MOVE ,TREASURE-CHEST ,WRECK-11>
+			      	     <MOVE ,EMPTY-CHEST ,WRECK-9>)>
+			      <MOVE ,SKELETON ,WRECK-10>
+			      <MOVE ,SCABBARD ,SKELETON>
+			      <PUTP ,WRECK-8 ,P?VALUE 10>
+			      ;<PUTP ,WRECK-16 ,P?VALUE 10>
+			      ;<PUTP ,WRECK-3 ,P?VALUE 20>
+			      <FCLEAR ,CEILING-HOLE-1 ,INVISIBLE>
+			      <FCLEAR ,FLOOR-HOLE-1 ,INVISIBLE>
+			      <MOVE ,CASK ,WRECK-6>
+			      <MOVE ,ROPE ,WRECK-4>
+			      <MOVE ,BROKEN-MAST ,WRECK-4>
+			      <PUTP ,WRECK-5 ,P?DESCFCN 80>
+			      <PUTP ,WRECK-7 ,P?DESCFCN 45>
+			      <PUTP ,WRECK-8 ,P?DESCFCN 45>
+			      <FCLEAR ,FALLEN-BUNK ,INVISIBLE>
+			      <FCLEAR ,MAST ,INVISIBLE>
+			      <FCLEAR ,JAGGED-HOLE ,INVISIBLE>)
+			     (<==? ,WRECK-CHOSEN 2>
+			      <FCLEAR ,AIRTIGHT-DOOR ,INVISIBLE>
+			      <FCLEAR ,AIRTIGHT-DOOR ,OPENBIT>
+			      <FCLEAR ,LOCKER-DOOR ,INVISIBLE>
+			      <FCLEAR ,LOCKER-DOOR ,OPENBIT>
+			      <MOVE ,SAFE ,WRECK-8>
+			      <PUTP ,SAFE ,P?ACTION SAFE-F>
+			      <FCLEAR ,SAFE ,NDESCBIT>
+			      <COND (<==? ,WRECK-FOUND 2>
+				     <MOVE ,GLASS-CASE ,SAFE>)>
+			      <MOVE ,MINE ,WRECK-11>
+			      <MOVE ,CLUMP-OF-MINES ,WRECK-11>
+			      <FCLEAR ,CEILING-HOLE-2 ,INVISIBLE>
+			      <FCLEAR ,FLOOR-HOLE-2 ,INVISIBLE>
+			      <PUTP ,WRECK-6 ,P?VALUE 25>
+			      <PUTP ,WRECK-1 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-2 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-3 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-4 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-5 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-6 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-7 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-8 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-9 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-10 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-11 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-12 ,P?DESCFCN 100>
+			      <PUTP ,WRECK-13 ,P?DESCFCN 100>)>)
+		      (<==? ,WRECK-CHOSEN 2>
+		       <PUTP ,FLOOR-HOLE-2 ,P?SDESC "hole">)>)
+	       (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-1-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)>>
+
+<GLOBAL WRECK-CHOSEN 0>
+
+<GLOBAL WRECK-1-DESCS
+	<PLTABLE
+"You are at the bow of an old, rotting wreck where a ladder leads down
+through a large square hole in the deck. When the ship sank, the top of one of
+the masts broke off and fell into the hole. What's left of the
+deck continues aft."
+"You are at the bow of a steel ship that has been here
+for quite a while. The deck continues aft, and there is a passage
+leading down at your feet."
+"This is the bow of a very empty-looking wreck. The deck continues aft.">>
+
+<ROUTINE WRECK-1-D ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (.PRINT?
+		       <COND (<FSET? ,WEST-LADDER ,RMUNGBIT>
+		       	      <TELL-GRACEFUL>)
+		      	     (T
+		       	      <FSET ,WEST-LADDER ,RMUNGBIT>
+		       	      <TELL
+"As you put your foot on the top rung, the rotting wood gives way. The other
+rungs break beneath your weight, and you plummet down to the deck below..." CR
+CR>)>)>
+		<RETURN ,WRECK-4>)
+	       (<EQUAL? ,WRECK-CHOSEN 3>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-4>)>>
+
+<OBJECT WEST-LADDER
+	(IN LOCAL-GLOBALS)
+	(DESC "ladder")
+	(SYNONYM LADDER WOOD PIECE PIECES)
+	(ADJECTIVE BROKEN WOODEN RUNG RUNGS)
+	(FLAGS TRYTAKEBIT)
+	(ACTION WEST-LADDER-F)>
+
+<ROUTINE WEST-LADDER-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<FSET? ,WEST-LADDER ,RMUNGBIT>
+		       <COND (<EQUAL? ,HERE ,WRECK-1>
+			      <TELL
+"All that's left are a couple of pieces that were broken off at the top."
+CR>)
+			     (T <TELL
+"The ladder is nothing more than some broken pieces of wood." CR>)>)
+		      (T <TELL "Looks like a ladder." CR>)>)
+	       (<VERB? TAKE>
+		<COND (<OR <EQUAL? ,HERE ,WRECK-1>
+			   <NOT <FSET? ,WEST-LADDER ,RMUNGBIT>>>
+		       <TELL <PICK-ONE ,YUKS> CR>)
+		      (T <TELL "None of the pieces looks useful." CR>)>)
+	       (<VERB? CLIMB-FOO>
+		<COND (<EQUAL? ,HERE ,WRECK-1>
+		       <DO-WALK ,P?DOWN>)
+		      (T <DO-WALK ,P?UP>)>
+		<SETG P-IT-OBJECT ,WEST-LADDER>
+		<RTRUE>)>>
+
+<ROOM WRECK-2
+      (IN ROOMS)
+      (DESC "Top Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK)
+      (NORTH TO WRECK-1)
+      (SOUTH TO WRECK-3)
+      (UP PER UNDERWATER-U)
+      ;(DOWN PER WRECK-2-D)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-2-F)>
+
+<ROUTINE WRECK-2-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-2-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)>>
+
+<GLOBAL WRECK-2-DESCS
+	<PLTABLE 
+"You are now aft of midships on the topmost deck. The deck continues fore and
+aft."
+"You are now aft of midships on the topmost deck. The deck continues fore and
+aft."
+"You are now aft of midships on the topmost deck. The deck continues fore and
+aft.">>
+
+;<ROUTINE WRECK-2-D ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-6>)>>
+
+;<ROUTINE WRECK-2-E ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-3>)
+		      (T
+		       <TELL "Fallen masts block your way." CR>
+		       <RFALSE>)>)
+	       (T <RETURN ,WRECK-3>)>>
+
+<ROOM WRECK-3
+      (IN ROOMS)
+      (DESC "Top Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL MAST SHIPWRECK OCEAN DECK FLOOR-HOLE-1)
+      (NORTH TO WRECK-2)
+      (UP PER UNDERWATER-U)
+      (DOWN PER WRECK-3-D)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-3-F)>
+
+<ROUTINE WRECK-3-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-3-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)>>
+
+<GLOBAL WRECK-3-DESCS
+	<PLTABLE 
+"You are on the narrowing aft deck of the ship, which continues forward. A hole
+at the base of one mast leads down."
+"You are on the aft deck of the ship. Passengers could have gathered
+here to sun themselves and sip drinks. Those times are long gone.
+The only way to proceed is forward."
+"You are at the stern of this wreck. The deck continues forward.">>
+
+<ROUTINE WRECK-3-D ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (.PRINT?
+		       <COND (,DOOMED
+			      <JIGS-UP
+"Your airhose catches and tears on the way down.">)
+			     (T
+			      <SETG DOOMED T>
+		       	      <TELL-GRACEFUL>)>)>
+		<RETURN ,WRECK-7>)
+	       (T
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)>>
+
+<ROUTINE TELL-GRACEFUL ()
+	 <TELL "You sink gracefully down to the next deck..." CR CR>>
+
+<GLOBAL DOOMED <>>
+
+;<ROUTINE WRECK-3-W ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-2>)
+		      (T
+		       <TELL "Fallen masts block your way." CR>
+		       <RFALSE>)>)
+	       (T <RETURN ,WRECK-2>)>>
+
+<ROOM WRECK-4
+      (IN ROOMS)
+      (DESC "Middle Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK WEST-LADDER BUNKS CEILING-HOLE-1
+       	      CEILING-HOLE-2 FLOOR-HOLE-2)
+      (UP PER WRECK-4-U)
+      (SOUTH PER WRECK-4-N)
+      (DOWN PER WRECK-4-D)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (PSEUDO "DEBRIS" DEBRIS-PSEUDO "BARNAC" BARNACLE-PSEUDO)
+      (ACTION WRECK-4-F)>
+
+<ROUTINE WRECK-4-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-4-DESCS ,WRECK-CHOSEN>>
+		<COND (<EQUAL? ,WRECK-CHOSEN 1>
+		       <COND (<FSET? ,ROPE ,NDESCBIT>
+			      <TELL-WRAPPED "the mast">)>)>
+		<CRLF>)
+	       (<AND <==? .RARG ,M-ENTER>
+		     <==? ,WRECK-CHOSEN 2>>
+		<PUTP ,CEILING-HOLE-2 ,P?SDESC "upper hole">
+		<FSET ,CEILING-HOLE-2 ,VOWELBIT>
+		<PUTP ,FLOOR-HOLE-2 ,P?SDESC "lower hole">
+		<RFALSE>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<==? ,WRECK-CHOSEN 1>
+		       <NOT-THIS-WRECK ,BUNKS>)
+		      (<==? ,WRECK-CHOSEN 2>
+		       <NOT-THIS-WRECK ,PSEUDO-OBJECT>)>)>>
+
+<GLOBAL WRECK-4-DESCS
+	<PLTABLE
+"This cabin was apparently used for storage, although what's left can only
+be described as debris. There is an exit abaft, a doorway outlined with
+barnacle-encrusted timbers. There is a hole above your head through which
+a broken-off mast descends."
+"This cabin seems to have been sleeping quarters. It must have
+been used by the crew, as it is spartanly furnished. The only ways
+out of this room are up and down."
+"bug"
+;"This cabin is eerily empty, as though someone had taken everything out. You
+can go aft, up, or down from here.">>
+
+<ROUTINE TELL-WRAPPED (STR)
+	 <TELL " A rope is wrapped around " .STR ".">>
+
+<ROUTINE WRECK-4-N ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-5>)>>
+
+<ROUTINE WRECK-4-U ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (.PRINT?
+		       <COND (,ROPE-HANGING
+			      <TELL-ROPE-HIGH>)
+			     (<FSET? ,WEST-LADDER ,RMUNGBIT>
+			      <TELL
+"There's no way to get back up what's left of the ladder." CR>)
+			     (T
+			      <FSET ,WEST-LADDER ,RMUNGBIT>
+			      <TELL
+"As you start to climb, a rung collapses under your foot. You grab
+at other rungs but find you are back where you started
+amidst several pieces of what used to be the ladder." CR>)>
+		       <RFALSE>)
+		      (T <RETURN ,WRECK-1>)>)
+	       (T
+		<COND (<AND <IN? ,GLASS-CASE ,PLAYER>
+			    <NOT <FSET? ,STAMPS ,RMUNGBIT>>
+			    <G? ,WATER-IN-CASE 0>>
+		       <FSET ,STAMPS ,RMUNGBIT>
+		       <SETG WATER-IN-CASE 10>
+		       <TELL
+"As you go up, the water in the " D ,GLASS-CASE
+" sloshes around, ruining the stamps." CR CR>)>
+		<RETURN ,WRECK-1>)>>
+
+<ROUTINE WRECK-4-D ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-9>)>>
+
+<GLOBAL WRECK-5-FLOODED <>>
+
+<ROUTINE AIRTIGHT-ROOM? ()
+	 <COND (<AND <==? ,WRECK-CHOSEN 2>
+	      	     <==? ,HERE ,WRECK-5>
+	      	     <NOT ,WRECK-5-FLOODED>>
+		<RTRUE>)>>
+
+;<GLOBAL DOOR-HOLES 0>
+
+<OBJECT ROPE
+	(IN LOCAL-GLOBALS)
+	(DESC "rope")
+	(SYNONYM ROPE)
+	(ADJECTIVE HANGIN)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(DESCFCN ROPE-F)
+	(ACTION ROPE-F)>
+
+<ROUTINE ROPE-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<COND (<FSET? ,ROPE ,TAKEBIT>
+		       <TELL "A length of rope lies here.">)
+		      (T <TELL "A rope hangs down here.">)>
+		<CRLF>)
+	       (<VERB? CUT>
+		<COND (<PRSI? ,SWORD>
+		       <COND (,ROPE-HANGING ;"second cut"
+			      <FSET ,ROPE ,TAKEBIT>
+			      <SETG ROPE-HANGING <>>
+			      <TELL
+"A three-foot length of rope falls to the deck." CR>)
+			     (<FSET? ,ROPE ,NDESCBIT> ;"first cut"
+			      <COND (<IN? ,PLAYER ,CASK>
+				     <SETG ROPE-HANGING T>
+			      	     <FCLEAR ,ROPE ,NDESCBIT>
+			      	     <RATING-UPD 15>
+				     <TELL
+"The rope falls to within eight feet of the floor." CR>)
+				    (T <TELL-ROPE-HIGH>)>)
+			     (T ;"third cut"
+			      <MOVE ,ROPE ,LOCAL-GLOBALS>
+			      <TELL
+"You chop the rope into many small pieces, which float off on the current and
+become lost among the debris." CR>)>)
+		      (T <TELL-YOU-CANT "cut it with that.">)>)
+	       (<NOT ,ROPE-HANGING>
+		<COND (<VERB? RUB MOVE UNTIE CLIMB-FOO TAKE>
+		       <COND (<FSET? ,ROPE ,TAKEBIT>
+			      <RFALSE>)
+			     (T <TELL-ROPE-HIGH>)>)>)
+	       (<VERB? TAKE>
+		<TELL "It's tied securely above." CR>)
+	       (<VERB? CLIMB-FOO>
+	        <DO-WALK ,P?UP>
+		<SETG P-IT-OBJECT ,ROPE>
+		<RTRUE>)
+	       (<VERB? UNTIE>
+		<TELL-CANT-REACH "the top knot">)>>
+
+<GLOBAL ROPE-HANGING <>>
+
+<OBJECT BROKEN-MAST
+	(IN LOCAL-GLOBALS)
+	(DESC "mast")
+	(SYNONYM MAST)
+	(ADJECTIVE BROKEN SUSPEN FALLEN)
+	(FLAGS NDESCBIT)
+	(ACTION BROKEN-MAST-F)>
+
+<ROUTINE BROKEN-MAST-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The mast is suspended securely above you.">
+		<COND (,ROPE-HANGING
+		       <TELL " A rope is hanging from it.">)
+		      (<FSET? ,ROPE ,NDESCBIT>
+		       <TELL-WRAPPED "it">)>
+		<CRLF>)
+	       (<VERB? RUB MOVE UNTIE CLIMB-FOO TAKE>
+		<TELL-CANT-REACH "the mast">)>>
+
+<ROOM WRECK-5
+      (IN ROOMS)
+      (DESC "Middle Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK BUNKS AIRTIGHT-DOOR FLOOR-HOLE-2
+       	      LG-IRON-BAR BARNACLES)
+      (SOUTH TO WRECK-6 IF AIRTIGHT-DOOR IS OPEN)
+      (NORTH PER WRECK-5-N)
+      (DOWN PER WRECK-5-D)
+      (PSEUDO "PLAQUE" PLAQUE-PSEUDO "PARTIT" PARTITIONS-PSEUDO)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-5-F)>
+
+<ROUTINE WRECK-5-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<COND (<==? ,WRECK-CHOSEN 2>
+		       <TELL "This cabin was once a passenger compartment, ">
+		       <COND (,WRECK-5-FLOODED
+			      <TELL
+"but it is now flooded. There is a passage leading down through the deck, and a
+door in the aft " D ,BULKHEADS ".">)
+			     (T <TELL
+"although the fragile
+partitions within have collapsed. The room is filled with
+air and a glance tells you why: the closed door to aft kept the
+air and water pressures equalized, stopping the flow of water up
+through the hole in the deck.">)>)
+		      (T <TELL <GET ,WRECK-5-DESCS ,WRECK-CHOSEN>>)>
+		<CRLF>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<AND <NOT <==? ,WRECK-CHOSEN 1>>
+			    <EQUAL? ,LG-IRON-BAR ,PRSO ,PRSI>>
+		       <GLOBAL-NOT-HERE-PRINT ,LG-IRON-BAR>)
+		      (<AND <NOT <==? ,WRECK-CHOSEN 1>>
+			    <EQUAL? ,BARNACLES ,PRSO ,PRSI>>
+		       <GLOBAL-NOT-HERE-PRINT ,BARNACLES>)>)
+	       (<==? .RARG ,M-ENTER>
+		<COND (<AND <IN? ,GLASS-CASE ,PLAYER>
+			    <NOT ,WRECK-5-FLOODED>>
+		       <DISABLE <INT I-CASE-LEAK>>
+		       <COND (<AND <IN? ,HOLE-2 ,GLASS-CASE>
+				   <NOT <IN? ,PUTTY ,GLASS-CASE>>>
+			      <SETG WATER-IN-CASE 0>)>)>)>>
+
+<GLOBAL WRECK-5-DESCS
+	<PLTABLE
+"This area is full of barnacle-encrusted iron bars, probably pikes used by
+the sailors for fending off boarding parties. There is a plaque on one wall.
+Exits are fore and aft."
+"bug"
+"bug"
+;"You are in a cabin with nothing in it. There are passages fore, aft, up, and
+down.">>
+
+<ROUTINE WRECK-5-N ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-4>)>>
+
+<ROUTINE WRECK-5-D ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-10>)>>
+
+<OBJECT AIRTIGHT-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "door")
+	(FLAGS INVISIBLE DOORBIT OPENBIT)
+	(SYNONYM DOOR)
+	(ACTION AIRTIGHT-DOOR-F)>
+
+<ROUTINE AIRTIGHT-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,AIRTIGHT-DOOR ,OPENBIT>
+		       <TELL-ALREADY "open">)
+		      (T
+		       <FSET ,AIRTIGHT-DOOR ,OPENBIT>
+		       <TELL-NOW ,AIRTIGHT-DOOR "open">
+		       <COND (<NOT ,WRECK-5-FLOODED>
+			      <SETG WRECK-5-FLOODED T>
+			      <COND (<EQUAL? ,HERE ,WRECK-5>
+				     <COND (<AND
+					     <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>
+			    		     <OR <NOT <FSET? ,MASK ,WORNBIT>>
+						 <NOT <IN? ,AIR-TANK ,PLAYER>>
+						 <NOT <FSET? ,WET-SUIT ,WORNBIT>>>>
+					    <JIGS-UP
+"Water rushes into the room, making you realize the value of your equipment.">)
+					   (T <TELL
+"Water rushes in through the open door and the hole in the deck,
+filling the room to above your head, forcing the air out." CR>)>)
+				     (T <TELL
+"Water rushes through the door into the next room." CR>)>)>
+		       <RTRUE>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? AIRTIGHT-DOOR ,OPENBIT>
+		       <FCLEAR ,AIRTIGHT-DOOR ,OPENBIT>
+		       <TELL-NOW ,AIRTIGHT-DOOR "closed">)
+		      (T
+		       <TELL-ALREADY "closed">)>)>>
+
+<OBJECT IRON-BAR
+	(IN LOCAL-GLOBALS)
+	(DESC "iron bar")
+	(SYNONYM BAR ROD PIKE)
+	(ADJECTIVE IRON METAL HEAVY)
+	(FLAGS TAKEBIT NDESCBIT VOWELBIT)
+	(STATION 30) ;"metal content"
+	(SIZE 9)
+	(TEXT
+"This heavy iron bar was probably used as a pike.")
+	(ACTION IRON-BAR-F)>
+
+<ROUTINE IRON-BAR-F ()
+	 <COND (<IN? ,IRON-BAR ,FALLEN-BUNK>
+		<COND (<VERB? EXAMINE>
+		       <TELL "The " D ,IRON-BAR " is" ,WEDGED-STR CR>)
+		      (<VERB? TAKE MOVE>
+		       <TELL "It's too tightly" ,WEDGED-STR CR>)>)
+	       (<VERB? TAKE>
+		<COND (<ITAKE>
+		       <COND (<EQUAL? ,HERE ,WRECK-5>
+			      <FCLEAR ,IRON-BAR ,NDESCBIT>
+		       	      <TELL
+"You take one of the " D ,IRON-BAR "s." CR>)
+			     (T <TELL "Taken." CR>)>)>
+		<RTRUE>)
+	       (<VERB? DROP>
+		<COND (<AND <V-DROP>
+			    <EQUAL? ,HERE ,WRECK-5>>
+		       <FSET ,IRON-BAR ,NDESCBIT>)>
+		<RTRUE>)>>
+
+<OBJECT LG-IRON-BAR ;"the ones left on the deck"
+	(IN LOCAL-GLOBALS)
+	(DESC "lot of iron bars")
+	(SYNONYM BAR PIKE PIKES BARS)
+	(ADJECTIVE IRON BARNAC METAL)
+	(FLAGS TRYTAKEBIT)
+	(ACTION LG-IRON-BAR-F)>
+
+<ROUTINE LG-IRON-BAR-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <IN? ,IRON-BAR ,HERE>>
+		<PERFORM ,V?TAKE ,IRON-BAR>
+		<RTRUE>)
+	       (T <TELL
+"These are a " D ,LG-IRON-BAR " held firmly together by barnacles." CR>)>>
+
+<ROUTINE PLAQUE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "plaque">)
+	       (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (<VERB? READ EXAMINE>
+		       <TELL
+"Although your knowledge of 17th-century Portuguese is minimal,
+you can see that the ship is named the Sao Vera, and the plaque
+is signed by King Alfonso VI." CR>)>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,PSEUDO-OBJECT>)>>
+
+<ROUTINE PARTITIONS-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "fallen partition">)
+	       (<==? ,WRECK-CHOSEN 2>
+		<COND (<VERB? EXAMINE>
+		       <TELL
+"These partitions once separated cabins." CR>)>)
+	       (T <GLOBAL-NOT-HERE-PRINT ,PSEUDO-OBJECT>)>>
+
+<ROOM WRECK-6
+      (IN ROOMS)
+      (DESC "Middle Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK AIRTIGHT-DOOR FLOOR-HOLE-2)
+      (NORTH TO WRECK-5 IF AIRTIGHT-DOOR IS OPEN)
+      (SOUTH PER WRECK-6-S)
+      (DOWN PER WRECK-6-D)
+      ;(UP PER WRECK-6-U)
+      (VALUE 0)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (PSEUDO "WOOD" WOOD-PSEUDO "TABLES" OVERTURNED-PSEUDO)
+      (ACTION WRECK-6-F)>
+
+<ROUTINE WRECK-6-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-6-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)
+	       (<==? .RARG ,M-ENTER>
+		<COND (<AND <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>
+			    <OR <NOT <FSET? ,MASK ,WORNBIT>>
+				<NOT <IN? ,AIR-TANK ,PLAYER>>
+				<NOT <FSET? ,WET-SUIT ,WORNBIT>>>>
+		       <JIGS-UP ,WATERY-ENVIRONMENT>)
+		      (<COMPILER-SUCKS-EXP-2>
+		       <ENABLE <INT I-CASE-LEAK>>)>)>>
+
+<GLOBAL WATERY-ENVIRONMENT
+"As you return to a watery environment, you realize the value of leaving your
+equipment on.">
+
+<ROUTINE COMPILER-SUCKS-EXP-2 ()
+	 <COND (<FSET? ,STAMPS ,RMUNGBIT>
+		<RFALSE>)
+	       (<NOT <IN? ,GLASS-CASE ,PLAYER>>
+		<RFALSE>)
+	       (<OR <NOT <IN? ,PUTTY ,GLASS-CASE>>
+		    <AND <OR <IN? ,HOLE-1 ,GLASS-CASE>
+			     <IN? ,HOLE-2 ,GLASS-CASE>>
+			 ,NO-HOLE-PLUGGED>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<GLOBAL WRECK-6-DESCS
+	<PLTABLE 
+"This was a galley or a pantry, though only the shape and
+size of the cabin suggest that. There are exits fore and aft."
+"This former dining room has some tables upturned and scattered about, a door
+forward, a hole through the floor, and a narrow opening abaft."
+"bug"
+;"This cabin is notable for its complete lack of contents. You can go up, down,
+forward, or aft from here.">>
+
+;<ROUTINE WRECK-6-U ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-2>)>>
+
+<ROUTINE WRECK-6-D ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T
+		<COND (<NOT .PRINT?>
+		       <RETURN ,WRECK-11>)
+		      (<FSET? ,MINE ,RMUNGBIT>
+		       <COND (<OR <FSET? ,AIR-TANK ,WORNBIT>
+				  <NOT <IN? ,AIR-TANK ,PLAYER>>>
+			      <RETURN ,WRECK-11>)
+			     (T
+			      <TELL-TOO-BIG>
+			      <RFALSE>)>)
+		      (T
+		       <TELL
+"As you make your way down, you bump what had to be a floating mine. A second
+later..." CR CR>
+		       <BOOM>)>)>>
+
+<ROUTINE TELL-SCUBA-STOPS ()
+	 <TELL
+"The scuba tank makes it impossible to fit through the passage." CR>>
+
+<ROUTINE TELL-CARRY-SCUBA? ()
+	 <COND (<IN? ,AIR-TANK ,PLAYER>
+		<TELL
+"Carrying your tank in front of you, you swim to the next room..." CR CR>)>>
+
+<ROUTINE WRECK-6-S ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 2>
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-7>)
+		      (<FSET? ,AIR-TANK ,WORNBIT>
+		       <TELL-SCUBA-STOPS>
+		       <RFALSE>)
+		      (T
+		       <TELL-CARRY-SCUBA?>
+		       <RETURN ,WRECK-7>)>)
+	       (T <RETURN ,WRECK-7>)>>
+
+<OBJECT CASK
+	(IN LOCAL-GLOBALS)
+	(DESC "wooden cask")
+	(SYNONYM CASK BARREL)
+	(ADJECTIVE WOODEN WHOLE)
+	(FLAGS PUSHBIT SURFACEBIT CONTBIT VEHBIT CLIMBBIT OPENBIT)
+	(FDESC
+"Amidst a stack of rotted wood is a cask that is still in one piece.")
+	(CAPACITY 15)
+	(ACTION CASK-F)>
+
+<ROUTINE CASK-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-BEG>
+		<COND (<AND ,ROPE-HANGING
+			    <VERB? WALK>
+			    <EQUAL? ,P-WALK-DIR ,P?UP>
+			    <IN? ,CASK ,WRECK-4>>
+		       <COND (<G? <WEIGHT ,PLAYER> 22>
+			      <TELL-YOU-CANT "climb the rope with that load.">)
+			     (T
+			      <MOVE ,PLAYER ,WRECK-1>
+		       	      <SETG HERE ,WRECK-1>
+		       	      <TELL
+"You reach up, grab the rope, and climb..." CR CR>
+		       	      <WRECK-1-F ,M-ENTER>
+		       	      <V-FIRST-LOOK>
+		       	      <RTRUE>)>)>)
+	       (<NOT .RARG>
+		<COND (<VERB? CLIMB-FOO>
+		       <PERFORM ,V?CLIMB-ON ,CASK>
+		       <RTRUE>)
+		      (<VERB? ,DRILL>
+		       <TELL "There is now a hole in the " D ,CASK "." CR>
+		       <ADD-HOLE ,CASK>)>)>>
+
+<ROUTINE WOOD-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "stack of rotted wood">)
+	       (<==? ,WRECK-CHOSEN 2>
+		<GLOBAL-NOT-HERE-PRINT ,PSEUDO-OBJECT>)>>
+
+<ROUTINE OVERTURNED-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "bunch of overturned tables">)
+	       (<==? ,WRECK-CHOSEN 1>
+		<GLOBAL-NOT-HERE-PRINT ,PSEUDO-OBJECT>)
+	       (<VERB? EXAMINE>
+		<TELL
+"These are dining tables now scattered in various positions." CR>)>>
+
+<ROOM WRECK-7
+      (IN ROOMS)
+      (DESC "Middle Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK DECK ;BUNKS FALLEN-BUNK CEILING-HOLE-1)
+      (NORTH PER WRECK-7-N)
+      (SOUTH PER WRECK-7-S)
+      (UP PER WRECK-7-U)
+      ;(DOWN PER WRECK-7-D)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (PSEUDO "DEBRIS" DEBRIS-PSEUDO)
+      (ACTION WRECK-7-F)>
+
+<ROUTINE WRECK-7-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<COND (<EQUAL? ,WRECK-CHOSEN 1>
+		       <TELL
+"This cabin was used for housing the crew. In addition to lining the
+" D ,BULKHEADS "s, bunks are strewn about the cabin">
+		       <COND (<NOT ,BUNKS-MOVED>
+			      <TELL ", blocking a doorway aft. There is">)
+			     (T <TELL ". There is a doorway aft, and">)>
+		       <TELL " an unblocked forward exit.">)
+		      (T
+		       <TELL <GET ,WRECK-7-DESCS ,WRECK-CHOSEN>>)>
+		<CRLF>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<==? ,WRECK-CHOSEN 2>
+		       <COND (<VERB? WEAR>
+		       	      <TELL
+"There's not enough room here for you to put that on." CR>
+			      <RTRUE>)
+		      	     (<AND <VERB? WALK>
+			    	   <FSET? ,DEEP-SUIT ,WORNBIT>>
+		       	      <JIGS-UP
+"As you begin to move, you suddenly find yourself breathing water! Your
+airhose tore on some of the sharper debris.">)>
+		       <NOT-THIS-WRECK ,PSEUDO-OBJECT>)>)>>
+
+<GLOBAL WRECK-7-DESCS
+	<PLTABLE 
+"bug"
+"The settling of debris has left a very narrow passage through this
+cabin. You can go forward or aft."
+"bug"
+;"This cabin is also empty. It has exits forward, aft, up, and down.">>
+
+<ROUTINE WRECK-7-S ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (<OR ,BUNKS-MOVED <NOT .PRINT?>>
+		       <RETURN ,WRECK-8>)
+		      (T
+		       <SETG P-IT-OBJECT ,FALLEN-BUNK>
+		       <TELL "There are bunks in the way." CR>
+		       <RFALSE>)>)
+	       (T
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-8>)
+		      (<FSET? ,AIR-TANK ,WORNBIT>
+		       <TELL-SCUBA-STOPS>
+		       <RFALSE>)
+		      (T
+		       <TELL-CARRY-SCUBA?>
+		       <RETURN ,WRECK-8>)>)>>
+
+<ROUTINE WRECK-7-N ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 2>
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-6>)
+		      (<FSET? ,AIR-TANK ,WORNBIT>
+		       <TELL-SCUBA-STOPS>
+		       <RFALSE>)
+		      (T
+		       <TELL-CARRY-SCUBA?>
+		       <RETURN ,WRECK-6>)>)
+	       (T <RETURN ,WRECK-6>)>>
+
+<ROUTINE WRECK-7-U ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<COND (.PRINT?
+		       <TELL "There's no way you can reach that hole." CR>
+		       <RFALSE>)
+		      (T <RETURN ,WRECK-3>)>)
+	       (T <TELL-NO-GO .PRINT?> <RFALSE>)>>
+
+;<ROUTINE WRECK-7-D ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-12>)>>
+
+<OBJECT FALLEN-BUNK
+	(IN LOCAL-GLOBALS)
+	(DESC "row of fallen bunks")
+	(SYNONYM BUNK BUNKS ROW)
+	(ADJECTIVE FALLEN)
+	(FLAGS INVISIBLE TRANSBIT)
+	(ACTION FALLEN-BUNK-F)>
+
+<ROUTINE FALLEN-BUNK-F ()
+	 <COND (<VERB? PUSH>
+		<TELL
+"The bunks move a bit but fall back to where they were." CR>)
+	       (<VERB? EXAMINE>
+		<COND (,BUNKS-MOVED
+		       <TELL
+"A " D ,FALLEN-BUNK " teeters by the passageway.">
+		       <COND (<IN? ,IRON-BAR ,FALLEN-BUNK>
+			      <TELL
+" They are being held up by an " D ,IRON-BAR ".">)>
+		       <CRLF>)
+		      (T <TELL
+"There is a " D, FALLEN-BUNK " before the aft doorway." CR>)>)
+	       (<VERB? SLEEP>
+		<TELL-BAD-SHAPE>)
+	       (<VERB? MOVE>
+		<COND (<PRSI? ,IRON-BAR>
+		       <COND (,BUNKS-MOVED
+			      <TELL "They've already been moved." CR>)
+			     (T
+			      <SETG BUNKS-MOVED T>
+		       	      <ENABLE <QUEUE I-PLUMMET 2>>
+		       	      <SETG CRIMP-CTR 0>
+		       	      <TELL
+"Using the " D ,IRON-BAR ", you move the bunks out of the way." CR>)>)
+		      (T
+		       <TELL "They're too heavy to move ">
+		       <COND (,PRSI <TELL "that way">)
+			     (T <TELL "by hand">)>
+		       <TELL "." CR>)>)
+	       (<AND <VERB? LOOK-BEHIND>
+		     <==? ,HERE ,WRECK-7>
+		     <NOT ,BUNKS-MOVED>>
+		<TELL "There is a passageway there." CR>)
+	       (<AND ,BUNKS-MOVED
+		     <VERB? PUT-UNDER>
+		     <PRSO? ,IRON-BAR>>
+		<DISABLE <INT I-PLUMMET>>
+		<MOVE ,IRON-BAR ,FALLEN-BUNK>
+		<PUTP ,WRECK-7 ,P?DESCFCN 65>
+		<PUTP ,WRECK-8 ,P?DESCFCN 65>
+		<TELL "The " D ,IRON-BAR " is wedging the bunks up." CR>)
+	       (<AND <VERB? LOOK-UNDER>
+		     <IN? ,IRON-BAR ,FALLEN-BUNK>>
+		<TELL "The " D ,IRON-BAR " is there," ,WEDGED-STR CR>)>>
+
+<GLOBAL BUNKS-MOVED <>>
+<GLOBAL WEDGED-STR " wedged under the bunks.">
+
+<ROUTINE DEBRIS-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "debris">)
+	       (<VERB? EXAMINE>
+		<TELL
+"All sorts of jetsam has collected here, none of it very
+interesting on its own." CR>)>>
+
+<ROOM WRECK-8
+      (IN ROOMS)
+      (DESC "Middle Deck")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK DECK BUNKS FALLEN-BUNK EAST-LADDER FLOOR-HOLE-1)
+      ;(UP PER WRECK-8-U)
+      (NORTH PER WRECK-8-N)
+      (DOWN PER WRECK-8-D)
+      (DESCFCN 0);"metal content"
+      (VALUE 0)
+      (LINE 6)
+      (ACTION WRECK-8-F)>
+
+<ROUTINE WRECK-8-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-8-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)>>
+
+<GLOBAL WRECK-8-DESCS
+	<PLTABLE 
+"You are in a bunk-lined cabin. The forward bulkhead has an open
+doorway in it, and a ladder leads down through the deck. The rotting interior
+of the hull lies aft."
+"This might have been the purser's cabin. It can be exited forward
+through a narrow opening."
+"bug"
+;"There is nothing at all in this cabin. Exits lead up, down, and forward.">>
+
+;<ROUTINE WRECK-8-U ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-3>)>>
+
+<ROUTINE WRECK-8-D ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-13>)>>
+
+<ROUTINE WRECK-8-N ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 2>
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-7>)
+		      (<FSET? ,AIR-TANK ,WORNBIT>
+		       <TELL-SCUBA-STOPS>
+		       <RFALSE>)
+		      (T
+		       <TELL-CARRY-SCUBA?>
+		       <RETURN ,WRECK-7>)>)
+	       (T <RETURN ,WRECK-7>)>>
+
+;<ROUTINE WRECK-8-SW ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-10>)>>
+
+<OBJECT EAST-LADDER
+	(IN LOCAL-GLOBALS)
+	(DESC "ladder")
+	(SYNONYM LADDER RUNG RUNGS)
+	(ADJECTIVE WOODEN)
+	(TEXT
+"Except for two broken rungs at the bottom, this ladder looks as if it's in
+good shape.")
+	(ACTION EAST-LADDER-F)>
+
+<ROUTINE EAST-LADDER-F ()
+	 <COND (<VERB? CLIMB-FOO>
+		<COND (<EQUAL? ,HERE ,WRECK-8>
+		       <DO-WALK ,P?DOWN>)
+		      (T <DO-WALK ,P?UP>)>
+		<SETG P-IT-OBJECT ,EAST-LADDER>
+		<RTRUE>)>>
+
+<OBJECT SAFE
+	(IN BANK)
+	(DESC "safe")
+	(SYNONYM SAFE VAULT DOOR LOCK)
+	(ADJECTIVE BANK SAFE)
+	(FLAGS NDESCBIT SEARCHBIT CONTBIT)
+	(CAPACITY 20)
+	(ACTION VAULT-F);"VAULT-F can be found in ISLAND">
+
+<ROUTINE SAFE-F ()
+	 <COND (<AND <VERB? THROUGH>
+		     <NOT <==? ,HERE ,WRECK-8>>
+		     <NOT <==? ,WRECK-CHOSEN 2>>>
+		<GLOBAL-NOT-HERE-PRINT ,SAFE>)
+	       (<OR <VERB? OPEN>
+		    <VERB? DRILL>>
+		<COND (<PRSI? ,DRILL>
+		       <FSET ,SAFE ,OPENBIT>
+		       <ENABLE <QUEUE I-CASE-LEAK -1>>
+		       <TELL
+"As you drill through the lock, the door pops open with a rush of escaping
+air!">
+		       <COND (<FIRST? ,SAFE>
+			      <TELL " This reveals ">
+			      <PRINT-CONTENTS ,SAFE>
+			      <TELL "!">)>
+		       <CRLF>
+		       <ADD-HOLE ,SAFE>)
+		      (,PRSI <TELL "With " A ,PRSI "??!?" CR>)
+		      (<OR <IN? ,HOLE-1 ,SAFE>
+			   <IN? ,HOLE-2 ,SAFE>>
+		       <RFALSE>)
+		      (T <TELL "It's locked." CR>)>)
+	       (<VERB? UNLOCK>
+		<COND (<OR <IN? ,HOLE-1 ,SAFE>
+			   <IN? ,HOLE-2 ,SAFE>>
+		       <TELL "You've already done it. By brute force." CR>)
+		      (T <TELL-DONT-HAVE "the combination">)>)>>
+
+<OBJECT GLASS-CASE
+	(IN LOCAL-GLOBALS)
+	(DESC ;"sealed " "glass case")
+	(SYNONYM CASE CRACK SHELF)
+	(ADJECTIVE SEALED GLASS CLEAR)
+	(FLAGS CONTBIT TRANSBIT TAKEBIT)
+	(CAPACITY 10)
+	(VALUE 25)
+	(ACTION GLASS-CASE-F)>
+
+<ROUTINE GLASS-CASE-F ()
+	 <COND (<VERB? OPEN>
+		<TELL "It's sealed shut." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The " D ,GLASS-CASE " has a shelf inside it. A collection of
+extremely rare ">
+		<COND (<FSET? ,STAMPS ,RMUNGBIT>
+		       <TELL "but soggy ">)>
+		<TELL
+"postage stamps sits on the shelf. There is a crack near a bottom corner of
+the case">
+		<COND (<IN? ,PUTTY ,GLASS-CASE>
+		       <TELL ", which is sealed with putty">)>
+		<TELL ".">
+		<COND (<OR <IN? ,HOLE-1 ,GLASS-CASE>
+			   <IN? ,HOLE-2 ,GLASS-CASE>>
+		       <TELL " Near the crack is the hole you drilled">
+		       <COND (<AND <IN? ,PUTTY ,GLASS-CASE>
+				   <NOT ,NO-HOLE-PLUGGED>>
+			      <TELL ", which is also filled with putty">)>
+		       <TELL ".">)>
+		<COND (<G? ,WATER-IN-CASE 0>
+		       <TELL " The case has some water in it.">)>
+		<CRLF>)
+	       (<OR <AND <VERB? POUR TAKE>
+		     	 <PRSO? ,OCEAN>>
+		    <VERB? EMPTY>>
+		<COND (<==? ,WATER-IN-CASE 0>
+		       <TELL "There's no water in the case." CR>)
+		      (<NOT <AIRTIGHT-ROOM?>>
+		       <TELL "That would be a losing battle." CR>)
+		      (T
+		       <SETG WATER-IN-CASE 0>
+		       <FSET ,STAMPS ,RMUNGBIT>
+		       <TELL
+"In the process of emptying the case, you manage to get the stamps wet." CR>)>)
+	       (<VERB? DRILL>
+		<COND (<AND <IN? ,PLAYER ,WRECK-5>
+			    <NOT ,WRECK-5-FLOODED>>
+		       <SETG WATER-IN-CASE 0>
+		       <TELL "The water pours out of the hole." CR>)
+		      (T
+		       <SETG WATER-IN-CASE 10>
+		       <DISABLE <INT I-CASE-LEAK>>
+		       <FSET ,STAMPS ,RMUNGBIT>
+		       <TELL "Water pours into the case, ruining the stamps." CR>)>
+		<ADD-HOLE ,GLASS-CASE>)
+	       (<AND <VERB? MUNG>
+		     <PRSO? ,GLASS-CASE>>
+		<TELL "That wouldn't be too smart." CR>)>>
+
+<OBJECT STAMPS
+	(IN GLASS-CASE)
+	(DESC "collection of rare stamps")
+	(SYNONYM STAMPS COLLEC)
+	(ADJECTIVE RARE VALUAB PRICEL)
+	(ACTION STAMPS-F)>
+
+<ROUTINE STAMPS-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"These are rare stamps which include a little-known sheet of
+\"inverted biplanes,\" full sheets of \"Graf Zeppelins,\" and other rarities.
+Sold at auction, their value would exceed $50 million">
+		<COND (<FSET? ,STAMPS ,RMUNGBIT>
+		       <TELL
+". Unfortunately, since they're all stuck together and salty, they're
+not even worth the price of a cup of coffee">)>
+		<TELL "." CR>)
+	       (<VERB? COUNT>
+		<TELL "It's hard to tell." CR>)>>
+
+<ROOM WRECK-9
+      (IN ROOMS)
+      (DESC "Below Decks")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK BUNKS JAGGED-HOLE CEILING-HOLE-2)
+      (UP PER WRECK-9-U)
+      (SOUTH TO WRECK-10)
+      (WEST PER WRECK-9-W)
+      (OUT PER WRECK-9-W)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-9-F)>
+
+<ROUTINE WRECK-9-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-9-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)
+	       (<AND <==? .RARG ,M-ENTER>
+		     <==? ,WRECK-CHOSEN 2>>
+		<PUTP ,CEILING-HOLE-2 ,P?SDESC "hole">
+		<FCLEAR ,CEILING-HOLE-2 ,VOWELBIT>
+		<PUTP ,FLOOR-HOLE-2 ,P?SDESC "hole">)
+	       (<==? .RARG ,M-BEG>
+		<COND (<==? ,WRECK-CHOSEN 1>
+		       <NOT-THIS-WRECK ,BUNKS>)>)>>
+
+<GLOBAL WRECK-9-DESCS
+	<PLTABLE 
+"You can go aft from this cabin, a small and claustrophobic area
+little more than a widened passageway, or through a jagged hole in the port
+bulkhead."
+"This cabin is the third-class passengers' quarters. There
+couldn't have been many frills here since the remains are spartan. The cabin
+can be exited aft and up."
+"bug"
+;"This room, once again, is entirely devoid of contents. You can leave it aft or
+go up.">>
+
+<ROUTINE WRECK-9-U ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-4>)>>
+
+<ROUTINE WRECK-9-W ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (.PRINT?
+		       <TELL-CAREFULLY-PICK>
+		       <RETURN ,WEST-OF-WRECK-9>)
+		      (T <RFALSE>)>)
+	       (T
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)>>
+
+<OBJECT EMPTY-CHEST
+	(IN LOCAL-GLOBALS)
+	(DESC "maple chest")
+	(SYNONYM CHEST TRUNK)
+	(ADJECTIVE WOODEN MAPLE WOOD TREASU)
+	(FLAGS PUSHBIT SURFACEBIT VEHBIT CLIMBBIT TRYTAKEBIT OPENBIT)
+	(ACTION EMPTY-CHEST-F)>
+
+<ROUTINE EMPTY-CHEST-F ("OPTIONAL" (RARG <>))
+	 <GENERIC-CHEST-F ,EMPTY-CHEST .RARG>>
+
+<ROUTINE GENERIC-CHEST-F (CHEST RARG)
+	 <COND (<==? .RARG ,M-BEG>
+		<COND (<AND <VERB? WALK>
+			    <EQUAL? ,P-WALK-DIR ,P?UP>
+			    <IN? .CHEST ,WRECK-13>>
+		       <MOVE ,PLAYER ,WRECK-8>
+		       <SETG HERE ,WRECK-8>
+		       <COND (,CHEST-CLIMB-POINTS
+			      <RATING-UPD ,CHEST-CLIMB-POINTS>
+			      <SETG CHEST-CLIMB-POINTS 0>)>
+		       <TELL
+"You reach the first unbroken rung and climb the ladder..." CR CR>
+		       <WRECK-8-F ,M-ENTER>
+		       <V-FIRST-LOOK>
+		       <RTRUE>)
+		      (<AND <VERB? WALK>
+			    <NOT <==? ,P-WALK-DIR ,P?UP>>>
+		       <TELL-YOUD-BETTER "get off the chest" T>)
+		      (<AND <VERB? MOVE>
+			    <PRSO? ,SAFETY-LINE>
+			    <IN? ,SAFETY-LINE ,CHEST>>
+		       <JIGS-UP
+"As the chest starts to rise, you fall off it rather awkwardly and disconnect
+your airhose.">)>)
+	       (<NOT .RARG>
+		<COND (<VERB? CLIMB-FOO>
+		       <PERFORM ,V?CLIMB-ON .CHEST>
+		       <RTRUE>)
+		      (<VERB? TAKE>
+		       <TELL "It's much too heavy." CR>)
+		      (<AND <VERB? PUSH-TO>
+			    <IN? ,SAFETY-LINE .CHEST>
+			    <==? ,P-WALK-DIR ,P?EAST>>
+		       <TELL-TOO-SHORT>)
+		      (<VERB? TIE>
+		       <COND (<OR <PRSO? ,SAFETY-LINE>
+			   	  <PRSI? ,SAFETY-LINE>>
+		       	      <COND (<IN? ,SAFETY-LINE .CHEST>
+				     <TELL-ALREADY "tied">)
+				    (T
+				     <MOVE ,SAFETY-LINE .CHEST>
+			      	     <FSET ,SAFETY-LINE ,NDESCBIT>
+		       	      	     <COND (,CHEST-TIE-POINTS
+				     	    <RATING-UPD ,CHEST-TIE-POINTS>
+				     	    <SETG CHEST-TIE-POINTS 0>)>
+			      	     <DISABLE <INT I-PENDULUM>>
+		       	      	     <TELL "Tied." CR>)>)>)>)>>
+
+<GLOBAL CHEST-CLIMB-POINTS 10>
+<GLOBAL CHEST-TIE-POINTS 15>
+
+<OBJECT JAGGED-HOLE
+	(IN LOCAL-GLOBALS)
+	(DESC "jagged hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE JAGGED)
+	(FLAGS INVISIBLE)
+	(TEXT
+"This jagged hole is the result of centuries of wear on the hull.")
+	(ACTION JAGGED-HOLE-F)>
+
+<ROUTINE JAGGED-HOLE-F ("AUX" (OUTSIDE? <>))
+	 <COND (<EQUAL? ,HERE ,WEST-OF-WRECK-9 ,WEST-OF-WRECK-11>
+		<SET OUTSIDE? T>)>
+	 <COND (<VERB? THROUGH>
+		<COND (.OUTSIDE? <DO-WALK ,P?EAST>)
+		      (T <DO-WALK ,P?WEST>)>)
+	       (<AND <VERB? PUSH-THROUGH>
+		     <PRSI? ,JAGGED-HOLE>>
+		<COND (.OUTSIDE? <SETG ,P-WALK-DIR ,P?EAST>)
+		      (T <SETG ,P-WALK-DIR ,P?WEST>)>
+		<PERFORM ,V?PUSH-TO ,PRSO ,INTDIR>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL-YOU-CANT "make anything out on the other side.">)>>
+
+<ROOM WEST-OF-WRECK-9
+      (IN ROOMS)
+      (DESC "Ocean Floor")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN JAGGED-HOLE)
+      (LINE 6)
+      (EAST TO WRECK-9)
+      (IN TO WRECK-9)
+      (ACTION GENERIC-WEST-F)>
+
+<ROUTINE TELL-TOO-SHORT ("OPTIONAL" (STR <>))
+	 <TELL "The " D ,SAFETY-LINE " isn't long enough">
+	 <COND (.STR <TELL .STR>)>
+	 <TELL "." CR>>
+
+<ROUTINE GENERIC-WEST-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL
+"You are on the murky ocean floor, outside the rotted hull of a " D ,SHIPWRECK
+". You can return to the wreck through the hole in the hull to starboard." CR>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<VERB? WALK>
+		       <COND (<EQUAL? ,P-WALK-DIR ,P?EAST ,P?IN>
+			      <COND (<IN? ,SAFETY-LINE ,PLAYER>
+		       		     <TELL-TOO-SHORT " to take with you">
+				     <RFATAL>)>)
+			     (<NOT ,P-WALK-DIR>
+			      <RFALSE>)
+			     (T <LINE-SNAGS>)>)
+		      (<AND <VERB? WAIT-FOR>
+			    <PRSO? ,SAFETY-LINE>
+			    <QUEUED? I-PENDULUM>>
+		       <COND (<IN? ,SAFETY-LINE ,HERE>
+			      <SETG CLOCK-WAIT T>
+			      <TELL "It's right here!" CR>)
+			     (T <V-WAIT>)>)>)
+	       (<==? .RARG ,M-END>
+		<COND (<AND <IN? ,SAFETY-LINE ,HERE>
+			    <NOT <ENABLED? I-PENDULUM>>>
+		       <ENABLE <QUEUE I-PENDULUM 3>>)>)>>
+
+<ROUTINE LINE-SNAGS ()
+	 <JIGS-UP
+"As you move away from the hole, your airhose gets caught on
+the edge of the hole in the wreck! As it tears, you find that breathing water
+is beyond your talents.">>
+
+<OBJECT SAFETY-LINE
+	(IN LOCAL-GLOBALS)
+	(DESC "orange line")
+	(SYNONYM LINE ROPE)
+	(ADJECTIVE SAFETY WEIGHT FLOURE ORANGE)
+	(FLAGS TAKEBIT VOWELBIT)
+	(DESCFCN SAFETY-LINE-F)
+	(ACTION SAFETY-LINE-F)>
+
+<ROUTINE SAFETY-LINE-F ("OPTIONAL" (RARG <>) "AUX" MSTR)
+	 <COND (<EQUAL? .RARG ,M-OBJDESC>
+		<TELL
+"The " D ,SAFETY-LINE " from the ship is swaying to and fro." CR>)
+	       (<VERB? TAKE>
+		<COND (<OR <IN? ,SAFETY-LINE ,TREASURE-CHEST>
+			   <IN? ,SAFETY-LINE ,EMPTY-CHEST>>
+		       <TELL "It's tied to the chest." CR>)
+		      (<NOT <IN? ,SAFETY-LINE ,HERE>>
+		       <TELL "It's no longer here." CR>)
+		      (<ITAKE>
+		       <DISABLE <INT I-PENDULUM>>
+		       <TELL "Taken." CR>)>
+		<RTRUE>)
+	       (<VERB? UNTIE>
+		<COND (<OR <IN? ,SAFETY-LINE ,TREASURE-CHEST>
+			   <IN? ,SAFETY-LINE ,EMPTY-CHEST>>
+		       <MOVE ,SAFETY-LINE <META-LOC ,SAFETY-LINE>>
+		       <FCLEAR ,SAFETY-LINE ,NDESCBIT>
+		       <ENABLE <QUEUE I-PENDULUM 3>>
+		       <TELL "Untied." CR>)
+		      (T <TELL "It's not tied to anything!" CR>)>)
+	       (<VERB? MOVE>
+		<TELL "The line starts to move upward">
+		<SET MSTR ", dragging the chest up with it.">
+		<COND (<IN? ,SAFETY-LINE ,TREASURE-CHEST>
+		       <MOVE ,TREASURE-CHEST <LOC ,WEASEL>>)
+		      (<IN? ,SAFETY-LINE ,EMPTY-CHEST>
+		       <MOVE ,EMPTY-CHEST <LOC ,WEASEL>>)
+		      (T
+		       <SET MSTR ".">
+		       <DISABLE <INT I-PENDULUM>>
+		       <MOVE ,SAFETY-LINE <LOC ,WEASEL>>)>
+		<TELL .MSTR CR>)
+	       (<VERB? CLIMB-FOO>
+		<LINE-SNAGS>)
+	       (<VERB? CUT>
+		<TELL "This rope is too strong." CR>)>>
+
+<ROOM WRECK-10
+      (IN ROOMS)
+      (DESC "Below Decks")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK LOCKER-DOOR)
+      (UP PER WRECK-10-U)
+      (NORTH TO WRECK-9)
+      (SOUTH TO WRECK-11 IF LOCKER-DOOR IS OPEN)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (PSEUDO "BARNAC" BARNACLE-PSEUDO)
+      (ACTION WRECK-10-F)>
+
+<ROUTINE WRECK-10-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-10-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)
+	       (<==? .RARG ,M-ENTER>
+		<COND (<AND <NOT <FSET? ,DEEP-SUIT ,WORNBIT>>
+			    <OR <NOT <FSET? ,MASK ,WORNBIT>>
+				<NOT <IN? ,AIR-TANK ,PLAYER>>
+				<NOT <FSET? ,WET-SUIT ,WORNBIT>>>>
+		       <JIGS-UP ,WATERY-ENVIRONMENT>)
+		      (<COMPILER-SUCKS-EXP-2>
+		       <ENABLE <INT I-CASE-LEAK>>)>)>>
+
+<GLOBAL WRECK-10-DESCS
+	<PLTABLE 
+"This room, which may have been a lounge, can be exited fore or aft."
+"This was once the supplies locker, with exits forward and up, and a door
+with a sign on it in the aft bulkhead."
+"bug"
+;"This cabin actually has the phrase \"H.M.S. INTRANSIGENT\" carved in one of
+the bulkheads. Aside from that, it's empty, with exits fore and aft and a
+passage up.">>
+
+<ROUTINE WRECK-10-U ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-5>)>>
+
+<OBJECT LOCKER-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR SIGN)
+	(ADJECTIVE LOCKER)
+	(FLAGS INVISIBLE DOORBIT OPENBIT READBIT)
+	(ACTION LOCKER-DOOR-F)>
+
+<ROUTINE LOCKER-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,LOCKER-DOOR ,OPENBIT>
+		       <TELL-ALREADY "open">)
+		      (T
+		       <FSET ,LOCKER-DOOR ,OPENBIT>
+		       <TELL-NOW ,LOCKER-DOOR "open">)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,LOCKER-DOOR ,OPENBIT>
+		       <FCLEAR ,LOCKER-DOOR ,OPENBIT>
+		       <TELL-NOW ,LOCKER-DOOR "closed">)
+		      (T <TELL-ALREADY "closed">)>)
+	       (<VERB? READ>
+		<FIXED-FONT-ON>
+		<TELL
+"    \"S.S. LEVIATHAN|
+     STORAGE LOCKER|
+   DANGER: EXPLOSIVES!\"|
+">
+		<FIXED-FONT-OFF>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL "The door, which has a sign on it, is ">
+		<COND (<FSET? ,LOCKER-DOOR ,OPENBIT>
+		       <TELL "open">)
+		      (T <TELL "closed">)>
+		<TELL "." CR>)>>
+
+<OBJECT SKELETON
+	(IN LOCAL-GLOBALS)
+	(DESC "skeleton")
+	(SYNONYM SKELET BONES)
+	(FLAGS TRYTAKEBIT SEARCHBIT TRANSBIT)
+	;(LDESC "The cabin is full of skeletons.")
+	(DESCFCN SKELETON-F)
+	(ACTION SKELETON-F)>
+
+<ROUTINE SKELETON-F ("OPTIONAL" (RARG <>))
+	 <COND (<==? .RARG ,M-OBJDESC>
+		<TELL
+"Some who went down with the ship were in here, where they are nothing more
+than " D ,SKELETON "s." CR>)
+	       (<VERB? KILL>
+		<TELL "The " D ,SKELETON "s remain dead." CR>)
+	       (<VERB? MUNG ATTACK TAKE PUSH>
+		<TELL "One of the " D ,SKELETON "s falls apart." CR>)
+	       (<VERB? EXAMINE COUNT>
+		<TELL "There are about fifty of them. ">
+		<COND (<VERB? COUNT>
+		       <TELL "It's hard to tell exactly." CR>)
+		      (T <TELL
+"As you look around, you notice
+that one of the " D ,SKELETON "s has what looks like a " D ,SCABBARD
+" at its hip."
+CR>)>)>>
+
+<OBJECT SCABBARD
+	(IN LOCAL-GLOBALS)
+	(DESC "scabbard")
+	(SYNONYM SCABBA)
+	(FLAGS CONTBIT TRYTAKEBIT OPENBIT)
+	(CAPACITY 5)
+	;(DESCFCN SCABBARD-F)
+	(ACTION SCABBARD-F)>
+
+<ROUTINE SCABBARD-F ("AUX" F)
+	 <COND (<VERB? TAKE>
+		<TELL
+"The " D ,SCABBARD " is stuck to the " D ,SKELETON " by encrusted barnacles."
+CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"There is very little of the original leather left to this " D ,SCABBARD
+", but barnacles have collected in its place.">
+		<COND (<SET F <FIRST? ,SCABBARD>>
+		       <TELL " There is " A .F " in the " D ,SCABBARD ".">)>
+		<CRLF>)
+	       (<VERB? OPEN>
+		<TELL-ALREADY "open">)
+	       (<VERB? CLOSE>
+		<TELL "It doesn't close." CR>)
+	       	(<VERB? CUT>
+		<TELL-BARNACLES>)>>
+
+<ROUTINE TELL-BARNACLES ()
+	 <TELL "The barnacles are too firmly emplaced." CR>>
+
+<OBJECT BARNACLES
+	(IN LOCAL-GLOBALS)
+	(SYNONYM BARNAC)
+	(DESC "barnacle")
+	(ACTION BARNACLE-PSEUDO)>
+
+<ROUTINE BARNACLE-PSEUDO ("OPTIONAL" (PARG <>))
+	 <COND (<==? .PARG ,M-NAME>
+		<PUTP ,PSEUDO-OBJECT ,P?SDESC "barnacle">)
+	       (<VERB? EXAMINE>
+		<TELL "The barnacles look very firmly emplaced." CR>)
+	       (<VERB? TAKE CUT MOVE>
+		<TELL-BARNACLES>)>>
+
+<OBJECT SWORD
+	(IN SCABBARD)
+	(DESC "sword")
+	(SYNONYM SWORD BLADE RAPIER)
+	(ADJECTIVE OLD WORN)
+	(STATION 30) ;"metal content"
+	(TEXT
+"Although this sword is old and worn, it is still moderately sharp.")
+	(FLAGS TAKEBIT WEAPONBIT)>
+
+<ROOM WRECK-11
+      (IN ROOMS)
+      (DESC "Below Decks")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK LOCKER-DOOR JAGGED-HOLE CEILING-HOLE-2)
+      (UP PER WRECK-11-U)
+      (NORTH TO WRECK-10 IF LOCKER-DOOR IS OPEN)
+      (SOUTH PER WRECK-11-S)
+      (WEST PER WRECK-11-W)
+      (OUT PER WRECK-11-W)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-11-F)>
+
+<ROUTINE WRECK-11-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-11-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)
+	       (<==? .RARG ,M-BEG>
+		<COND (<AND <VERB? WALK>
+			    <IN? ,MINE ,MAGNET>
+		     	    <IN? ,MAGNET ,PLAYER>
+			    ,MAGNET-ON>
+		       <TELL "The mine bumps a " D ,BULKHEADS "..." CR CR>
+		       <BOOM>)>)>>
+
+<GLOBAL WRECK-11-DESCS
+	<PLTABLE
+"You're in one of the large holds of the ship, impressive in size.
+There are rooms fore and aft, and a hole in the port bulkhead."
+"This had to have been a mine locker. There is a door forward and a
+passage above your head."
+"bug"
+;"This cabin has nothing in it. You can leave through the passage above your
+head, or fore or aft.">>
+
+<ROUTINE WRECK-11-U ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T
+		<COND (<NOT .PRINT?>
+		       <RETURN ,WRECK-6>)
+		      (<NOT <FSET? ,MINE ,RMUNGBIT>>
+		       <TELL
+"As you make your way up, you bump the floating mine. A second later..." CR CR>
+		       <BOOM>)
+		      (<FSET? ,AIR-TANK ,WORNBIT>
+		       <RETURN ,WRECK-6>)
+		      (T
+		       <TELL-TOO-BIG>
+		       <RFALSE>)>)>>
+
+<ROUTINE WRECK-11-S ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 2>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-12>)>>
+
+<ROUTINE TELL-CAREFULLY-PICK ()
+	 <TELL
+"You carefully pick your way through the jagged edge of the hole..." CR CR>>
+
+<ROUTINE WRECK-11-W ("OPTIONAL" (PRINT? T))
+	 <COND (<EQUAL? ,WRECK-CHOSEN 1>
+		<COND (.PRINT?
+		       <TELL-CAREFULLY-PICK>
+		       <RETURN ,WEST-OF-WRECK-11>)
+		      (T <RFALSE>)>)
+	       (T
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)>>
+
+<OBJECT TREASURE-CHEST
+	(IN LOCAL-GLOBALS)
+	(DESC "oak chest")
+	(SYNONYM CHEST TRUNK)
+	(ADJECTIVE WOODEN TREASU OAK WOOD)
+	(STATION 100) ;"metal content"
+	(FLAGS PUSHBIT CLIMBBIT VEHBIT SURFACEBIT VOWELBIT TRYTAKEBIT OPENBIT)
+	(ACTION TREASURE-CHEST-F)>
+
+<ROUTINE TREASURE-CHEST-F ("OPTIONAL" (RARG <>))
+	 <GENERIC-CHEST-F ,TREASURE-CHEST .RARG>>
+
+<OBJECT MINE
+	(IN LOCAL-GLOBALS)
+	(DESC "loose mine")
+	(SYNONYM MINE BOMB SPIKE SPIKES)
+	(ADJECTIVE EXPLOS LOOSE FLOATI)
+	(FLAGS NDESCBIT TAKEBIT)
+	(STATION 40) ;"metal content"
+	(ACTION MINE-F)>
+
+<ROUTINE MINE-F ()
+	 <COND (<VERB? TAKE THROW THROW-OFF MOVE MUNG PUSH PUSH-TO>
+		<BOOM>)
+	       (<VERB? EXAMINE>
+		<COND (<AND <IN? ,MINE ,MAGNET>
+			    ,MAGNET-ON>
+		       <TELL
+"A single mine is being held by the " D ,MAGNET " which
+is safely attached between its spikes." CR>
+		       <RTRUE>)
+		      (<FSET? ,MINE ,RMUNGBIT>
+		       <TELL
+"A single mine is floating relatively harmlessly in one corner of the room.">)
+		      (T <TELL
+"This mine is blocking the hole that leads to the room above.">)>
+		<TELL
+" It has lots of widely-spaced spikes pointing out from it.">
+		<COND (<IN? ,MINE ,MAGNET>
+		       <TELL
+" You are holding the " D ,MAGNET " next to it.">)>
+		<CRLF>)>>
+
+<OBJECT CLUMP-OF-MINES
+	(IN LOCAL-GLOBALS)
+	(DESC "bunch of mines")
+	(SYNONYM MINES BOMBS POINTS)
+	(DESCFCN CLUMP-OF-MINES-F) ;"metal content covered in room's DESCFCN"
+	(ACTION CLUMP-OF-MINES-F)>
+
+<ROUTINE CLUMP-OF-MINES-F ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-OBJDESC>
+		<TELL
+"A number of spherical mines with spikes sticking out of them
+litter the room. These mines must have once been used to blockade shipping
+lanes. Most of them are tethered together on the deck, but one is ">
+		<COND (<IN? ,MINE ,MAGNET>
+		       <COND (,MAGNET-ON
+		       	      <TELL "being held by the ">)
+		       	     (T <TELL "touching your ">)>
+		       <TELL D ,MAGNET>)
+		      (<FSET? ,MINE ,RMUNGBIT>
+		       <TELL "floating in a corner of the room">)
+		      (T <TELL "floating up near the hole in the " D ,CEILING>)>
+		<TELL "." CR>)
+	       (<VERB? TAKE>
+		<BOOM>)>>
+
+<ROUTINE BOOM () <JIGS-UP "BOOOOOOOOOOMMMMMMMMMM!">>
+
+<ROOM WEST-OF-WRECK-11
+      (IN ROOMS)
+      (DESC "Ocean Floor")
+      (FLAGS RLANDBIT)
+      (LINE 6)
+      (GLOBAL SHIPWRECK OCEAN JAGGED-HOLE)
+      (EAST TO WRECK-11)
+      (IN TO WRECK-11)
+      (ACTION GENERIC-WEST-F)>
+
+<ROOM WRECK-12
+      (IN ROOMS)
+      (DESC "Below Decks")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK BUNKS)
+      ;(UP PER WRECK-12-U)
+      (NORTH TO WRECK-11)
+      (SOUTH TO WRECK-13)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-12-F)>
+
+<ROUTINE WRECK-12-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-12-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)
+	       (<==? .RARG ,M-ENTER>
+		<ENABLE <QUEUE I-SQUID 2>>)>>
+
+<GLOBAL WRECK-12-DESCS
+	<PLTABLE 
+"This is another cabin used to house the ship's crew. There are exits forward
+and aft."
+"bug"
+"bug"
+;"You are in another spookily empty cabin, which you can leave to forward, aft,
+or up.">>
+
+;<ROUTINE WRECK-12-U ("OPTIONAL" (PRINT? T))
+	 <COND (<==? ,WRECK-CHOSEN 1>
+		<TELL-NO-GO .PRINT?>
+		<RFALSE>)
+	       (T <RETURN ,WRECK-7>)>>
+
+<OBJECT SQUID
+	(IN LOCAL-GLOBALS)
+	(DESC "giant squid")
+	(SYNONYM SQUID)
+	(ADJECTIVE GIANT HUGE LARGE BIG)
+	(LDESC "There is a giant squid sleeping here.")
+	(ACTION SQUID-F)>
+
+<ROUTINE SQUID-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The squid is huge, its body 20 feet long, and each of its ten arms 35 feet
+long! It is currently asleep, its arms waving placidly beneath its body." CR>)
+	       (<VERB? ALARM>
+		<TELL "As it awakens, the behemoth turns to you. ">
+		<I-SQUID>)>>
+
+<ROOM WRECK-13
+      (IN ROOMS)
+      (DESC "Below Decks")
+      (FLAGS RLANDBIT)
+      (GLOBAL SHIPWRECK OCEAN DECK EAST-LADDER CEILING-HOLE-1)
+      (UP PER WRECK-13-U)
+      (NORTH TO WRECK-12)
+      (DESCFCN 0);"metal content"
+      (LINE 6)
+      (ACTION WRECK-13-F)>
+
+<ROUTINE WRECK-13-F (RARG)
+	 <COND (<==? .RARG ,M-LOOK>
+		<TELL <GET ,WRECK-13-DESCS ,WRECK-CHOSEN>>
+		<CRLF>)>>
+
+<GLOBAL WRECK-13-DESCS
+	<PLTABLE
+"This cabin has suffered the ravages of the sea. Above your head at one end of
+the cabin a ladder leads up. The bottom two rungs of the ladder are broken,
+but the rest of it seems to be pretty sturdy. A doorway, outlined by rotting
+timbers, leads forward."
+"bug"
+"bug"
+;"This cabin is completely deserted. You can leave it by going up or forward.">>
+
+<ROUTINE WRECK-13-U ("OPTIONAL" (PRINT? T))
+		<COND (<NOT .PRINT?> <RETURN ,WRECK-8>)
+		      (T 
+		       <TELL-CANT-REACH
+"high enough to get past the two broken rungs">
+		       <RFALSE>)>>
+
+<ROUTINE NOT-THIS-WRECK (OBJ)
+	 <COND (<OR <PRSO? .OBJ> <PRSI? .OBJ>>
+		<GLOBAL-NOT-HERE-PRINT .OBJ>
+		<RTRUE>)>>
\ No newline at end of file