diff --git a/a2.zil b/a2.zil
new file mode 100644
index 0000000..8f84be2
--- /dev/null
+++ b/a2.zil
@@ -0,0 +1,52 @@
+"COMPILE/LOAD FILE for SEASTALKER
+Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+
+<COND (<GASSIGNED? PREDGEN>
+       <PRINC "Compiling">
+       <SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>
+       <ID 0>)
+      (T <PRINC "Loading">)>
+
+<PRINC " SEASTALKER: junior-level interactive fiction from Infocom!">
+
+<COND (<GASSIGNED? MUDDLE>
+       <BLOAT 90000 0 0 3500 0 0 0 0 0 512>)>
+
+<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?>>
+
+<DIRECTIONS ;"Do not change the order of the first eight
+	      without consulting MARC! -- ENCHANTER"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<IFILE "MACROS" T>
+<IFILE "SYNTAX" T>
+<IFILE "MAIN" T>
+<IFILE "SUB" T>
+<IFILE "BATTLE" T>
+<IFILE "THINGS" T>
+<IFILE "DOME" T>
+
+<IFILE "PEOPLE" T>
+<IFILE "PLACES" T>
+<IFILE "GLOBAL" T>
+<CONSTANT SERIAL 0>
+<IFILE "CLOCK" T>
+<ENDLOAD>
+<IFILE "PARSER" T>
+<IFILE "VERBS" T>
+<IFILE "EVENTS" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+
+<GC-MON T>
+<COND (<GASSIGNED? MUDDLE>
+       <GC 0 T 5>)>
diff --git a/atari.zip b/atari.zip
index 9c3ce3b..15da98f 100644
Binary files a/atari.zip and b/atari.zip differ
diff --git a/battle.xzap b/battle.xzap
new file mode 100644
index 0000000..078f854
--- /dev/null
+++ b/battle.xzap
@@ -0,0 +1,733 @@
+
+
+	.FUNCT	THORPE-SHOOT?,X,Y
+	ZERO?	SNARK-TRANKED /?ELS5
+	CALL	FORWARD-OF-THORPE?,X,Y
+	RSTACK	
+?ELS5:	CALL	STARBOARD-OF-THORPE?,X,Y
+	ZERO?	STACK /FALSE
+	CALL	FORWARD-OF-THORPE?,X,Y
+	RSTACK	
+
+
+	.FUNCT	STARBOARD-OF-THORPE?,X,Y,?TMP1
+	SUB	X,THORPE-LON
+	MUL	THORPE-HLAT,STACK >?TMP1
+	SUB	Y,THORPE-LAT
+	MUL	THORPE-HLON,STACK
+	SUB	?TMP1,STACK
+	GRTR?	0,STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	FORWARD-OF-THORPE?,X,Y,?TMP1
+	SUB	X,THORPE-LON
+	MUL	THORPE-HLON,STACK >?TMP1
+	SUB	THORPE-LAT,Y
+	MUL	THORPE-HLAT,STACK
+	SUB	?TMP1,STACK
+	GRTR?	0,STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	THORPE-POS?,LON,LAT
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \FALSE
+	SUB	THORPE-LAT,THORPE-HLAT
+	EQUAL?	LAT,STACK \?ELS7
+	SUB	THORPE-LON,THORPE-HLON
+	EQUAL?	LON,STACK /TRUE
+?ELS7:	EQUAL?	LAT,THORPE-LAT \FALSE
+	EQUAL?	LON,THORPE-LON /TRUE
+	RFALSE
+
+
+	.FUNCT	SNARK-POS?,LON,LAT,?ORTMP
+	CALL	SNARK-HEAD-POS?,LON,LAT
+	POP	'?ORTMP
+	ZERO?	?ORTMP /?ORP4
+	RETURN	?ORTMP
+?ORP4:	CALL	SNARK-TAIL-POS?,LON,LAT
+	RSTACK	
+
+
+	.FUNCT	SNARK-HEAD-POS?,LON,LAT
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \FALSE
+	EQUAL?	LAT,SNARK-LAT \FALSE
+	EQUAL?	LON,SNARK-LON /TRUE
+	RFALSE
+
+
+	.FUNCT	SNARK-TAIL-POS?,LON,LAT,X,Y,HLON,HLAT
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \FALSE
+	ZERO?	SNARK-TRANKED /?ELS5
+	SET	'HLON,SNARK-HLON
+	SET	'HLAT,SNARK-HLAT
+	JUMP	?CND1
+?ELS5:	SET	'HLON,THORPE-HLON
+	SET	'HLAT,THORPE-HLAT
+?CND1:	SUB	SNARK-LON,HLON >X
+	SUB	SNARK-LAT,HLAT >Y
+	EQUAL?	LAT,Y \?CND9
+	EQUAL?	LON,X /TRUE
+?CND9:	SUB	X,HLON >X
+	SUB	Y,HLAT >Y
+	EQUAL?	LAT,Y \?CND14
+	EQUAL?	LON,X /TRUE
+?CND14:	SUB	Y,HLAT
+	EQUAL?	LAT,STACK \FALSE
+	SUB	X,HLON
+	EQUAL?	LON,STACK /TRUE
+	RFALSE
+
+
+	.FUNCT	THORPE-SUB-F
+	EQUAL?	PRSA,V?FIND \?ELS5
+	PRINTR	"It's not far away!"
+?ELS5:	EQUAL?	PRSA,V?PUSH,V?MOVE \?ELS9
+	PRINTR	"It's too big!"
+?ELS9:	EQUAL?	PRSA,V?ATTACK,V?KILL,V?SHOOT \?ELS13
+	PRINTI	"You have to shoot"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" with a weapon."
+?ELS13:	EQUAL?	PRSA,V?WALK-TO \FALSE
+	PRINTR	"You're the pilot!"
+
+
+	.FUNCT	I-UPDATE-THORPE,DLAT,DLON,Z
+	ZERO?	SUB-IN-BATTLE /?CND1
+	MUL	THORPE-HLON,THORPE-HLAT >Z
+	CALL	THORPE-SHOOT?,SUB-LON,SUB-LAT
+	ZERO?	STACK \?ELS7
+	ZERO?	THORPE-DLON \?ELS10
+	ZERO?	THORPE-DLAT \?ELS10
+	ZERO?	THORPE-TURNING? \?PRD13
+	PUSH	1
+	JUMP	?PRD14
+?PRD13:	PUSH	0
+?PRD14:	SET	'THORPE-TURNING?,STACK
+	ZERO?	THORPE-TURNING? /?ELS17
+	JUMP	?CND1
+?ELS17:	CALL	STARBOARD-OF-THORPE?,SUB-LON,SUB-LAT
+	ZERO?	STACK /?ELS20
+	ZERO?	THORPE-HLON \?ELS23
+	SET	'THORPE-HLON,THORPE-HLAT
+	JUMP	?CND5
+?ELS23:	EQUAL?	-1,Z \?ELS25
+	SET	'THORPE-HLON,0
+	JUMP	?CND5
+?ELS25:	EQUAL?	1,Z \?ELS27
+	SET	'THORPE-HLAT,0
+	JUMP	?CND5
+?ELS27:	SUB	0,THORPE-HLON >THORPE-HLAT
+	JUMP	?CND5
+?ELS20:	ZERO?	THORPE-HLON \?ELS34
+	SUB	0,THORPE-HLAT >THORPE-HLON
+	JUMP	?CND5
+?ELS34:	EQUAL?	-1,Z \?ELS36
+	SET	'THORPE-HLAT,0
+	JUMP	?CND5
+?ELS36:	EQUAL?	1,Z \?ELS38
+	SET	'THORPE-HLON,0
+	JUMP	?CND5
+?ELS38:	SET	'THORPE-HLAT,THORPE-HLON
+	JUMP	?CND5
+?ELS10:	SET	'THORPE-DLON,0
+	SET	'THORPE-DLAT,0
+	JUMP	?CND5
+?ELS7:	PRINTI	"Thorpe zeroed in on you and fired his rocket! It streaks through the water toward the "
+	PRINTD	SUB
+	PRINTI	"! In an instant your sub will be just twisted metal, trapping you and Tip forever in Davy Jones's locker!"
+	CALL	FINISH
+?CND5:	
+?CND1:	ADD	THORPE-LON,THORPE-DLON >THORPE-LON
+	ADD	THORPE-LAT,THORPE-DLAT >THORPE-LAT
+	MUL	THORPE-HLON,THORPE-HLAT >Z
+	ZERO?	Z \?ELS49
+	ZERO?	THORPE-HLAT \?ELS52
+	ADD	THORPE-LAT,THORPE-HLON >SNARK-LAT
+	ADD	THORPE-LON,THORPE-HLON >SNARK-LON
+	RFALSE	
+?ELS52:	ADD	THORPE-LAT,THORPE-HLAT >SNARK-LAT
+	SUB	THORPE-LON,THORPE-HLAT >SNARK-LON
+	RFALSE	
+?ELS49:	EQUAL?	-1,Z \?ELS56
+	ADD	THORPE-LON,THORPE-HLON >SNARK-LON
+	SET	'SNARK-LAT,THORPE-LAT
+	RFALSE	
+?ELS56:	EQUAL?	1,Z \FALSE
+	ADD	THORPE-LAT,THORPE-HLAT >SNARK-LAT
+	SET	'SNARK-LON,THORPE-LON
+	RFALSE	
+
+
+	.FUNCT	DART-F
+	CALL	WEAPON-F,DART
+	RSTACK	
+
+
+	.FUNCT	MOUNTING-VERB?,OBJ
+	ZERO?	SUB-IN-DOME /FALSE
+	EQUAL?	PRSO,OBJ \FALSE
+	EQUAL?	PRSA,V?USE /TRUE
+	EQUAL?	PRSA,V?PUT-UNDER \?ELS13
+	EQUAL?	PRSO,ESCAPE-POD-UNIT \?ELS13
+	EQUAL?	PRSI,PILOT-SEAT,CHAIR /TRUE
+?ELS13:	EQUAL?	PRSA,V?TIE-TO,V?PUT \FALSE
+	EQUAL?	PRSI,CLAW,LOCAL-SUB,GLOBAL-SUB /TRUE
+	RFALSE
+
+
+	.FUNCT	NO-GOOD-MUNGED
+	PRINTR	"Doc Horvak has to fix it first."
+
+
+	.FUNCT	WEAPON-F,OBJ,WHICH=0,O,NOT-ON-SUB=0,SOMEONE=0
+	CALL	BAD-AIR?
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?TAKE,V?SEARCH-FOR,V?FIND \?ELS5
+	JUMP	?CND1
+?ELS5:	CALL	MOUNTING-VERB?,OBJ
+	ZERO?	STACK /?ELS7
+	JUMP	?CND1
+?ELS7:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+?CND1:	EQUAL?	OBJ,DART \?CND10
+	SET	'WHICH,1
+?CND10:	GET	ON-SUB,WHICH
+	EQUAL?	OBJ,STACK /?CND13
+	SET	'NOT-ON-SUB,1
+?CND13:	ZERO?	SUB-IN-DOME \?CND16
+	ZERO?	NOT-ON-SUB /?CND16
+	PRINTI	"You can't use"
+	CALL	PRINTT,OBJ
+	PRINTR	" now!"
+?CND16:	ZERO?	NOT-ON-SUB /?ELS27
+	EQUAL?	PRSA,V?SEARCH-FOR,V?FIND \?ELS33
+	LOC	OBJ
+	EQUAL?	HERE,STACK \FALSE
+	FSET?	OBJ,TOUCHBIT /FALSE
+	FCLEAR	OBJ,NDESCBIT
+	CALL	HE-SHE-IT,WINNER,1,STR?58
+	PRINTR	" it among lots of equipment and supplies."
+?ELS33:	EQUAL?	PRSA,V?TAKE \?ELS44
+	EQUAL?	WHICH,1 \FALSE
+	FCLEAR	DART,NDESCBIT
+	FSET?	DART,MUNGBIT \FALSE
+	CALL	NO-GOOD-MUNGED
+	RSTACK	
+?ELS44:	CALL	MOUNTING-VERB?,OBJ
+	ZERO?	STACK /FALSE
+	EQUAL?	WINNER,PLAYER /?ELS59
+	SET	'SOMEONE,WINNER
+	JUMP	?CND57
+?ELS59:	CALL	FIND-FLAG,HERE,PERSON,PLAYER >SOMEONE
+	ZERO?	SOMEONE /?CND57
+?CND57:	ZERO?	SOMEONE \?CND62
+	CALL	META-LOC,OBJ
+	EQUAL?	HERE,STACK /?ELS67
+	CALL	NOT-HERE,OBJ
+	RTRUE	
+?ELS67:	EQUAL?	HERE,AIRLOCK /?CND62
+	CALL	NOT-HERE,CLAW
+	RTRUE	
+?CND62:	ZERO?	WHICH \?ELS74
+	ZERO?	SOMEONE /?ELS79
+	EQUAL?	HERE,AIRLOCK /?ELS79
+	PRINTI	"""Good idea! That should stop the "
+	PRINTD	SNARK
+	PRINTI	"! It could disable an enemy sub, too! Shall I "
+	EQUAL?	PRSA,V?PUT \?ELS86
+	PRINTI	"do it"
+	JUMP	?CND84
+?ELS86:	PRINTI	"have it mounted"
+	EQUAL?	PRSI,CLAW /?CND84
+	PRINTI	" on an "
+	PRINTD	CLAW
+	PRINTI	" of the "
+	PRINTD	SUB
+?CND84:	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK /TRUE
+	CALL	MOUNT-WEAPON,BAZOOKA
+	CALL	FINE-SEQUENCE
+	RTRUE	
+?ELS79:	CALL	MOUNT-WEAPON,BAZOOKA
+	CALL	OKAY,BAZOOKA,STR?59
+	CALL	FINE-SEQUENCE
+	RTRUE	
+?ELS74:	FSET?	DART,MUNGBIT \?ELS106
+	CALL	NO-GOOD-MUNGED
+	RSTACK	
+?ELS106:	CALL	MOUNT-WEAPON,DART
+	ZERO?	SOMEONE /?ELS111
+	EQUAL?	HERE,AIRLOCK /?ELS111
+	PRINTD	SOMEONE
+	PRINTI	" promptly mounts the "
+	PRINTD	DART
+	PRINTI	" on an "
+	PRINTD	CLAW
+	PRINTI	"."
+	CRLF	
+	JUMP	?CND109
+?ELS111:	CALL	OKAY,DART,STR?59
+?CND109:	GET	ON-SUB,0
+	EQUAL?	BAZOOKA,STACK \TRUE
+	CALL	FINE-SEQUENCE
+	RTRUE	
+?ELS27:	EQUAL?	PRSA,V?EXAMINE,V?FIND \?ELS127
+	PRINTI	"It's mounted on one of the "
+	PRINTD	SUB
+	PRINTI	"'s "
+	PRINTD	CLAW
+	PRINTR	"s."
+?ELS127:	EQUAL?	PRSA,V?TAKE /?THN132
+	CALL	MOUNTING-VERB?,OBJ
+	ZERO?	STACK /?ELS131
+?THN132:	PRINTI	"You'd better leave it mounted on the "
+	PRINTD	CLAW
+	PRINTR	"."
+?ELS131:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE \?ELS139
+	PRINTR	"You should type where you want to aim it."
+?ELS139:	EQUAL?	PRSA,V?AIM \?ELS143
+	FSET?	CLAW,MUNGBIT \?ELS146
+	PRINTI	"Nothing happens. Either the "
+	PRINTD	CLAW
+	PRINTI	" or the "
+	PRINTD	OBJ
+	PRINTI	" was damaged when you rammed the "
+	PRINTD	SNARK
+	PRINTR	"!"
+?ELS146:	EQUAL?	PRSI,GLOBAL-THORPE,THORPE-SUB \?ELS150
+	CALL	STARBOARD-OF-THORPE?,SUB-LON,SUB-LAT
+	ZERO?	STACK \?ELS153
+	CALL	YOU-CANT,STR?60,GLOBAL-SNARK,STR?61
+	RTRUE	
+?ELS153:	ZERO?	SUB-IN-BATTLE /?CND156
+	CALL	SCORE-OBJ,THORPE-SUB
+?CND156:	PUT	OBJ-AIMED-AT,WHICH,THORPE-SUB
+	PUT	LON-AIMED-AT,WHICH,THORPE-LON
+	PUT	LAT-AIMED-AT,WHICH,THORPE-LAT
+	JUMP	?CND144
+?ELS150:	EQUAL?	PRSI,GLOBAL-SNARK,SNARK \FALSE
+	PUT	OBJ-AIMED-AT,WHICH,SNARK
+	PUT	LON-AIMED-AT,WHICH,SNARK-LON
+	PUT	LAT-AIMED-AT,WHICH,SNARK-LAT
+?CND144:	PRINTR	"Aimed."
+?ELS143:	EQUAL?	PRSA,V?ATTACK,V?KILL,V?SHOOT \FALSE
+	GET	OBJ-AIMED-AT,WHICH >O
+	GET	ALREADY-SHOT,WHICH
+	ZERO?	STACK /?ELS170
+	PRINTI	"You already shot"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"!"
+?ELS170:	ZERO?	O \?CND168
+	PRINTR	"You have to aim it first!"
+?CND168:	EQUAL?	THORPE-SUB,O \?ELS183
+	EQUAL?	PRSO,GLOBAL-THORPE,THORPE-SUB \?THN180
+?ELS183:	EQUAL?	SNARK,O \?CND177
+	EQUAL?	PRSO,GLOBAL-SNARK,SNARK /?CND177
+?THN180:	PRINTI	"You didn't aim it at"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?CND177:	EQUAL?	PRSO,GLOBAL-THORPE,THORPE-SUB \?ELS192
+	GET	LON-AIMED-AT,WHICH
+	EQUAL?	STACK,THORPE-LON \?ELS197
+	GET	LAT-AIMED-AT,WHICH
+	EQUAL?	STACK,THORPE-LAT \?ELS197
+	PUT	ALREADY-SHOT,WHICH,1
+	ZERO?	WHICH \?ELS204
+	CALL	MUNG-TARGET
+	RSTACK	
+?ELS204:	PRINTI	"Fudge! Your tranquilizer dart hit the "
+	PRINTD	THORPE-SUB
+	PRINTI	", and its metal hull can't be put to sleep! Tough luck, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."
+?ELS197:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" moved since you aimed."
+?ELS192:	EQUAL?	PRSO,GLOBAL-SNARK,SNARK \FALSE
+	GET	LON-AIMED-AT,WHICH
+	EQUAL?	STACK,SNARK-LON \?ELS219
+	GET	LAT-AIMED-AT,WHICH
+	EQUAL?	STACK,SNARK-LAT \?ELS219
+	PUT	ALREADY-SHOT,WHICH,1
+	SET	'SNARK-TRANKED,1
+	SET	'SNARK-HLON,THORPE-HLON
+	SET	'SNARK-HLAT,THORPE-HLAT
+	ZERO?	WHICH \?ELS226
+	PRINTI	"KA-VOOOM! The "
+	PRINTD	SNARK
+	PRINTI	" shudders and stops moving! You scored a clean hit with your "
+	PRINTD	BAZOOKA
+	PRINTI	"!
+"
+	CALL	TIP-SAYS
+	PRINTI	"Rats! There goes our safety shield!"" And he's right. Even though you've saved the "
+	PRINTD	AQUADOME
+	PRINTI	" from further danger of monster attack, the "
+	PRINTD	SUB
+	PRINTI	" is now exposed to the "
+	PRINTD	THORPE-SUB
+	PRINTR	"'s rocket weapon!"
+?ELS226:	PRINTI	"Right on! The dart hits the "
+	PRINTD	SNARK
+	PRINTI	" and sticks out of its side. The tranquilizer spreads through the "
+	PRINTD	SNARK
+	PRINTI	", sending it to Slumberland.
+But this may have been a bad move. With the "
+	PRINTD	SNARK
+	PRINTI	" fast asleep, its huge body can't hide you from the "
+	PRINTD	THORPE-SUB
+	PRINTR	"'s rocket attack!"
+?ELS219:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" moved since you aimed."
+
+
+	.FUNCT	MUNG-TARGET
+	CALL	SCORE-UPD,5
+	FSET	PRSO,MUNGBIT
+	PRINTI	"Great! You and Tip can see"
+	CALL	THE-PRSI-PRINT
+	PRINTI	" slam into the "
+	PRINTD	THORPE-SUB
+	PRINTI	"'s power pod!
+""Hooray! That crippled the "
+	PRINTD	THORPE-SUB
+	PRINTI	" for keeps!"" Tip cheers.
+You hear a voice come over the "
+	PRINTD	SONARPHONE
+	PRINTI	": "
+?PRG3:	PRINTI	""""
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", this is Sharon! Do you read me?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG3
+	PRINTI	"""Something hit us, and Thorpe's out cold! He cracked his skull on the bulkhead! I was waking up when I saw it all happen. I'll tie him up so he can't cause any trouble.
+The "
+	PRINTD	THORPE-SUB
+	PRINTI	"'s regular engine is kaput, but he installed a backup engine for emergencies. And the sonar control's still working. If you like, I'll guide the monster to its cavern.""
+"
+	GETP	GREENUP,P?VALUE
+	ZERO?	STACK /?CND12
+	CALL	TIP-SAYS
+	PRINTI	"It's too bad we didn't find the "
+	PRINTD	TRAITOR
+	PRINTI	" at the "
+	PRINTD	AQUADOME
+	PRINTI	".""
+"
+?CND12:	PRINTI	"
+CONGRATULATIONS, "
+	CALL	PRINT-NAME,FIRST-NAME,1
+	PRINTI	"! YOU'VE COMPLETED YOUR MISSION!!"
+	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	MOUNT,WHICH,WEAPON,OBJ
+	GET	ON-SUB,WHICH >OBJ
+	ZERO?	OBJ /?CND1
+	MOVE	OBJ,AIRLOCK
+?CND1:	PUT	ON-SUB,WHICH,WEAPON
+	RTRUE	
+
+
+	.FUNCT	MOUNT-WEAPON,OBJ
+	EQUAL?	OBJ,BAZOOKA \?ELS3
+	CALL	SCORE-OBJ,BLY
+	PUTP	BAZOOKA,P?LDESC,STR?62
+	GETP	BAZOOKA,P?VALUE
+	ZERO?	STACK /?CND4
+	PRINTI	"""Of course I'll have to get it first."""
+	CRLF	
+	CALL	SCORE-OBJ,BAZOOKA
+?CND4:	CALL	MOUNT,0,BAZOOKA
+	JUMP	?CND1
+?ELS3:	EQUAL?	OBJ,DART \?ELS10
+	PUTP	DART,P?LDESC,STR?63
+	CALL	SCORE-OBJ,HORVAK
+	CALL	MOUNT,1,DART
+	JUMP	?CND1
+?ELS10:	GET	ON-SUB,0
+	ZERO?	STACK /?ELS12
+	GET	ON-SUB,1
+	ZERO?	STACK /?ELS15
+	PRINTI	"The claws are holding all they can."
+	CRLF	
+	RFALSE	
+?ELS15:	PUT	ON-SUB,1,OBJ
+	JUMP	?CND1
+?ELS12:	PUT	ON-SUB,0,OBJ
+?CND1:	EQUAL?	HERE,SUB,CRAWL-SPACE \?ELS24
+	MOVE	OBJ,SUB
+	JUMP	?CND22
+?ELS24:	ZERO?	SUB-IN-DOME /?ELS26
+	MOVE	OBJ,AIRLOCK
+	JUMP	?CND22
+?ELS26:	MOVE	OBJ,NORTH-TANK-AREA
+?CND22:	FSET	OBJ,NDESCBIT
+	FCLEAR	OBJ,TAKEBIT
+	FSET	OBJ,TRYTAKEBIT
+	RTRUE	
+
+
+	.FUNCT	FINE-SEQUENCE
+	ZERO?	TIP-FOLLOWS-YOU? /FALSE
+	CALL	READY-FOR-SNARK?
+	ZERO?	STACK \FALSE
+	CALL	MOVE-HERE-NOT-SUB,BLY
+	PRINTI	"""Are you ready to take off now, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"" Zoe Bly "
+	IN?	BLY,HERE \?ELS12
+	PUSH	STR?64
+	JUMP	?CND8
+?ELS12:	PUSH	STR?65
+?CND8:	PRINT	STACK
+	PRINTI	"s anxiously."
+	CALL	YES?
+	ZERO?	STACK /FALSE
+	PRINTI	"""Wait!"" Tip cuts in. "
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,TIP,FINE-GRID
+	RSTACK	
+
+
+	.FUNCT	BAZOOKA-F
+	CALL	WEAPON-F,BAZOOKA
+	RSTACK	
+
+
+	.FUNCT	I-THORPE-APPEARS
+	GRTR?	17,SUB-LON /?THN6
+	LESS?	-17,SUB-LAT /?THN6
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH /?ELS5
+?THN6:	SUB	MOVES,LEFT-DOME
+	LESS?	40,STACK \FALSE
+	SET	'LEFT-DOME,MOVES
+	PRINTI	"Suddenly "
+	CALL	TIP-SAYS
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", what "
+	PRINTD	INTDIR
+	PRINTI	" do you think the "
+	PRINTD	SNARK
+	PRINTR	" went, anyway?"""
+?ELS5:	CALL	QUEUE,I-SNARK-ATTACKS,0
+	CALL	QUEUE,I-THORPE-APPEARS,0
+	CALL	QUEUE,I-THORPE-AWAKES,9
+	PUT	STACK,0,1
+	FSET	SEARCH-BEAM,ONBIT
+	PRINTI	"""Holy halibut!"" cries Tip. ""There's a big cloud of silt ahead in the "
+	PRINTD	SEARCH-BEAM
+	PRINTI	". It's out of sonar range. This could be the "
+	PRINTD	SNARK
+	PRINTI	"! Want to hold course till we find out?"""
+	CALL	YES?
+	PRINTI	"However you steer, the cloud holds steady. You may be on a collision course with the behemoth that almost wrecked the "
+	PRINTD	AQUADOME
+	PRINTI	"!
+"
+	PRINTI	"Your "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" reveals TWO objects dead ahead!
+One is the "
+	PRINTD	SNARK
+	PRINTI	". To the left of the tentacled creature -- YOUR left -- you can make out a vehicle crawling along the ocean floor.
+"
+	CALL	TIP-SAYS
+	PRINTI	"That's one of your Sea Cats!""
+A voice crackles over the "
+	PRINTD	SONARPHONE
+	PRINTI	": ""This is "
+	PRINTD	GLOBAL-THORPE
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! Do you read me?"""
+	CALL	YES?
+	PRINTI	"Your answer brings a rasping laugh. ""Of course you read me, or you wouldn't be answering! Your "
+	PRINTD	LAB-ASSISTANT
+	PRINTI	", "
+	PRINTD	SHARON
+	PRINTI	", is seated behind me. She'll enjoy what's about to happen as much as I will. Would you like to hear what's in store for you?"""
+	CALL	YES?
+	ZERO?	STACK \?ELS31
+	PRINTI	"""You'll soon find out -- like it or not! "
+	JUMP	?CND29
+?ELS31:	PRINTI	""""
+?CND29:	PRINTI	"I'll blast your sub with a rocket! Then I'll guide my synthetic monster to the "
+	PRINTD	AQUADOME
+	PRINTI	" to destroy it! Can you guess what sealed your doom, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK \?ELS42
+	PRINTI	""""
+	JUMP	?CND40
+?ELS42:	PRINTI	"""I'll tell you anyhow. "
+?CND40:	PRINTI	"I want to own the "
+	PRINTD	ORE-NODULES
+	PRINTI	" near the "
+	PRINTD	AQUADOME
+	PRINTI	"! Sharon and I consider it a wedding present from you and your dad ...""
+Thorpe breaks off with a sudden gulp, followed by some noise and then a soft female voice:
+"
+?PRG51:	PRINTI	"""This is "
+	PRINTD	SHARON
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! Do you read me?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG51
+	CALL	PHONE-ON,GLOBAL-SHARON,THORPE-SUB,SONARPHONE
+	CALL	QUEUE,I-UPDATE-THORPE,-1
+	PUT	STACK,0,1
+	FCLEAR	SNARK,INVISIBLE
+	FCLEAR	THORPE-SUB,INVISIBLE
+	ADD	SUB-LON,SONAR-RANGE
+	ADD	2,STACK >THORPE-LON
+	SUB	SUB-LAT,SONAR-RANGE >THORPE-LAT
+	ADD	THORPE-LON,THORPE-HLON >SNARK-LON
+	SET	'SNARK-LAT,THORPE-LAT
+	FSET	THORPE,MUNGBIT
+	PRINTI	"""Thank goodness! I conked Thorpe with a wrench! He fell onto the microphone, and he's too heavy for me to move!"""
+	CRLF	
+	CALL	SCORE-OBJ,SNARK
+	RETURN	2
+
+
+	.FUNCT	SHARON-EXPLAINS
+	EQUAL?	PRSA,V?SAY /?CND1
+	PRINTI	"""Wait a second, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", till I catch my breath!"" Sharon cuts in. "
+?CND1:	CALL	SHARON-ABOUT-THORPE
+	PRINTI	"""Can I interrupt, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"" asks Tip."
+	CALL	YES?
+	ZERO?	STACK \?CND8
+	CALL	TIP-SAYS
+	PRINTI	"Sorry, but I have to. This is important.""
+"
+?CND8:	PRINTI	"""Sharon, how does Thorpe control the monster?""
+""By sonar pulse signals,"" she replies. "
+	PRINT	SHARON-ABOUT-MONSTER
+	PRINTI	"
+""Is the transducer sending out signals now?"" Tip asks her.
+""Yes, it operates all the time. Can you make out our position on your "
+	PRINTD	SONARSCOPE
+	PRINTI	"?""
+""Thanks to the "
+	PRINTD	FINE-GRID
+	PRINTI	"!"" says Tip."
+	ZERO?	THROTTLE-SETTING /?CND15
+	SET	'THROTTLE-SETTING,0
+	PRINTI	" ""Maybe we'd better stop the "
+	PRINTD	SUB
+	PRINTI	" before we collide with you!""
+Tip uses his dual-control throttle to stop your sub. Then he adds apologetically: ""This isn't mutiny, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! I just figured we should stop now."""
+?CND15:	CRLF	
+	PRINT	SHARON-ABOUT-CAT
+	PRINTI	"
+""Was it out of control when it attacked the "
+	PRINTD	AQUADOME
+	PRINTI	"?"" asks Tip.
+""Oh no!"" Sharon replies. "
+?PRG22:	PRINTI	"""Thorpe has a helper at the "
+	PRINTD	AQUADOME
+	PRINTI	" who put a "
+	PRINTD	BLACK-BOX
+	PRINTI	" on the "
+	PRINTD	SONAR-EQUIPMENT
+	PRINTI	", which made it emit signals to ATTRACT the monster and make it attack. Do you follow me so far, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG22
+	PRINTI	"""Good. Before that first attack, Thorpe got the monster close enough for the "
+	PRINTD	BLACK-BOX
+	PRINTI	" to take over. Then he surfaced near "
+	PRINTD	BAY
+	PRINTI	" to get me. By the time we went back to the ocean floor, something had gone wrong: the "
+	PRINTD	AQUADOME
+	PRINTI	" was okay, and the monster had wandered off to its cavern. That reminds me, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	". "
+?PRG31:	PRINTI	"Do you want to take the monster to its cavern peacefully? (With no more sonar pulse input, it'll stay there until you're ready to study it scientifically.)"""
+	CALL	YES?
+	ZERO?	STACK /?CND35
+	JUMP	?REP32
+?CND35:	PRINTI	"(Better listen, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	". Sharon's trying to show you how to deal with this threat to the "
+	PRINTD	AQUADOME
+	PRINTI	".)
+"""
+	JUMP	?PRG31
+?REP32:	PRINTI	"""First tell me, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	": do you have any tranquilizer or weapon to use against it?"""
+	CALL	YES?
+	ZERO?	STACK /TRUE
+	PRINTI	"""Do you want to capture it for scientific study?"""
+	CALL	YES?
+	ZERO?	STACK /?ELS49
+	PRINTR	"""Then try the following:
+Position your sub on the other side of the monster -- on the monster's LEFT side -- just 5 meters from it. If anything goes wrong and it gets out of control, you can tranquilize it immediately."""
+?ELS49:	PRINTI	"""That's odd! I thought you would."""
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SHARON-ABOUT-THORPE
+	PRINTI	"""I'm not in on Thorpe's plot, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	". I'm playing along, trying to wreck his plans. I know it was risky for me to leave that "
+	PRINTD	CATALYST-CAPSULE
+	PRINTI	" out of the "
+	PRINTD	SUB
+	ZERO?	SHARON-BROKE-CIRCUIT /?CND3
+	PRINTI	", and to open that "
+	PRINTD	CIRCUIT-BREAKER
+?CND3:	PRINTI	", but it was part of my plan, and you got to the "
+	PRINTD	AQUADOME
+	PRINTR	" anyway."""
+
+
+	.FUNCT	I-THORPE-AWAKES
+	FCLEAR	THORPE,MUNGBIT
+	SET	'SUB-IN-BATTLE,1
+	CALL	PHONE-OFF
+	CALL	PHONE-ON,GLOBAL-THORPE,THORPE-SUB,SONARPHONE
+	CRLF	
+	PRINTI	"Suddenly the sonarphone gets louder.
+"
+	CALL	TIP-SAYS
+	PRINTI	"That could mean Thorpe is awake and has moved away from the microphone!""
+You hear a sharp cry of pain from Sharon, then Thorpe yelling: ""That'll take care of you, my little double-crosser!""
+Thorpe speaks into the microphone: ""Now then, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	" "
+	CALL	PRINT-NAME,LAST-NAME
+	PRINTI	", I'm stopping my "
+	PRINTD	THORPE-SUB
+	PRINTI	" so I can blow you into Kingdom Come as soon as you're in my sights!""
+"
+	CALL	STARBOARD-OF-THORPE?,SUB-LON,SUB-LAT
+	ZERO?	STACK \?CND5
+	CALL	TIP-SAYS
+	PRINTI	"He'll have to go around the "
+	PRINTD	SNARK
+	PRINTI	" to fire at us, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! And we'll have to go around its tail to shoot at HIM!""
+"
+?CND5:	CALL	TELL-HINT,42,THORPE-SUB,0
+	RETURN	2
+
+	.ENDI
diff --git a/battle.zap b/battle.zap
new file mode 100644
index 0000000..0e2ddef
--- /dev/null
+++ b/battle.zap
@@ -0,0 +1,747 @@
+
+
+	.FUNCT	THORPE-SHOOT?,X,Y
+	ZERO?	SNARK-TRANKED /?ELS5
+	CALL	FORWARD-OF-THORPE?,X,Y
+	RSTACK	
+?ELS5:	CALL	STARBOARD-OF-THORPE?,X,Y
+	ZERO?	STACK /FALSE
+	CALL	FORWARD-OF-THORPE?,X,Y
+	RSTACK	
+
+
+	.FUNCT	STARBOARD-OF-THORPE?,X,Y,?TMP1
+	SUB	X,THORPE-LON
+	MUL	THORPE-HLAT,STACK >?TMP1
+	SUB	Y,THORPE-LAT
+	MUL	THORPE-HLON,STACK
+	SUB	?TMP1,STACK
+	GRTR?	0,STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	FORWARD-OF-THORPE?,X,Y,?TMP1
+	SUB	X,THORPE-LON
+	MUL	THORPE-HLON,STACK >?TMP1
+	SUB	THORPE-LAT,Y
+	MUL	THORPE-HLAT,STACK
+	SUB	?TMP1,STACK
+	GRTR?	0,STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	THORPE-POS?,LON,LAT
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \FALSE
+	SUB	THORPE-LAT,THORPE-HLAT
+	EQUAL?	LAT,STACK \?ELS7
+	SUB	THORPE-LON,THORPE-HLON
+	EQUAL?	LON,STACK /TRUE
+?ELS7:	EQUAL?	LAT,THORPE-LAT \FALSE
+	EQUAL?	LON,THORPE-LON /TRUE
+	RFALSE
+
+
+	.FUNCT	SNARK-POS?,LON,LAT,?ORTMP
+	CALL	SNARK-HEAD-POS?,LON,LAT
+	POP	'?ORTMP
+	ZERO?	?ORTMP /?ORP4
+	RETURN	?ORTMP
+?ORP4:	CALL	SNARK-TAIL-POS?,LON,LAT
+	RSTACK	
+
+
+	.FUNCT	SNARK-HEAD-POS?,LON,LAT
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \FALSE
+	EQUAL?	LAT,SNARK-LAT \FALSE
+	EQUAL?	LON,SNARK-LON /TRUE
+	RFALSE
+
+
+	.FUNCT	SNARK-TAIL-POS?,LON,LAT,X,Y,HLON,HLAT
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \FALSE
+	ZERO?	SNARK-TRANKED /?ELS5
+	SET	'HLON,SNARK-HLON
+	SET	'HLAT,SNARK-HLAT
+	JUMP	?CND1
+?ELS5:	SET	'HLON,THORPE-HLON
+	SET	'HLAT,THORPE-HLAT
+?CND1:	SUB	SNARK-LON,HLON >X
+	SUB	SNARK-LAT,HLAT >Y
+	EQUAL?	LAT,Y \?CND9
+	EQUAL?	LON,X /TRUE
+?CND9:	SUB	X,HLON >X
+	SUB	Y,HLAT >Y
+	EQUAL?	LAT,Y \?CND14
+	EQUAL?	LON,X /TRUE
+?CND14:	SUB	Y,HLAT
+	EQUAL?	LAT,STACK \FALSE
+	SUB	X,HLON
+	EQUAL?	LON,STACK /TRUE
+	RFALSE
+
+
+	.FUNCT	THORPE-SUB-F
+	EQUAL?	PRSA,V?FIND \?ELS5
+	PRINTR	"It's not far away!"
+?ELS5:	EQUAL?	PRSA,V?PUSH,V?MOVE \?ELS9
+	PRINTR	"It's too big!"
+?ELS9:	EQUAL?	PRSA,V?ATTACK,V?KILL,V?SHOOT \?ELS13
+	PRINTI	"You have to shoot"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" with a weapon."
+?ELS13:	EQUAL?	PRSA,V?WALK-TO \FALSE
+	PRINTR	"You're the pilot!"
+
+
+	.FUNCT	I-UPDATE-THORPE,DLAT,DLON,Z
+	ZERO?	SUB-IN-BATTLE /?CND1
+	MUL	THORPE-HLON,THORPE-HLAT >Z
+	CALL	THORPE-SHOOT?,SUB-LON,SUB-LAT
+	ZERO?	STACK \?ELS7
+	ZERO?	THORPE-DLON \?ELS10
+	ZERO?	THORPE-DLAT \?ELS10
+	ZERO?	THORPE-TURNING? \?PRD13
+	PUSH	1
+	JUMP	?PRD14
+?PRD13:	PUSH	0
+?PRD14:	SET	'THORPE-TURNING?,STACK
+	ZERO?	THORPE-TURNING? /?ELS17
+	JUMP	?CND1
+?ELS17:	CALL	STARBOARD-OF-THORPE?,SUB-LON,SUB-LAT
+	ZERO?	STACK /?ELS20
+	ZERO?	THORPE-HLON \?ELS23
+	SET	'THORPE-HLON,THORPE-HLAT
+	JUMP	?CND5
+?ELS23:	EQUAL?	-1,Z \?ELS25
+	SET	'THORPE-HLON,0
+	JUMP	?CND5
+?ELS25:	EQUAL?	1,Z \?ELS27
+	SET	'THORPE-HLAT,0
+	JUMP	?CND5
+?ELS27:	SUB	0,THORPE-HLON >THORPE-HLAT
+	JUMP	?CND5
+?ELS20:	ZERO?	THORPE-HLON \?ELS34
+	SUB	0,THORPE-HLAT >THORPE-HLON
+	JUMP	?CND5
+?ELS34:	EQUAL?	-1,Z \?ELS36
+	SET	'THORPE-HLAT,0
+	JUMP	?CND5
+?ELS36:	EQUAL?	1,Z \?ELS38
+	SET	'THORPE-HLON,0
+	JUMP	?CND5
+?ELS38:	SET	'THORPE-HLAT,THORPE-HLON
+	JUMP	?CND5
+?ELS10:	SET	'THORPE-DLON,0
+	SET	'THORPE-DLAT,0
+	JUMP	?CND5
+?ELS7:	PRINTI	"Thorpe zeroed in on you and fired his rocket! It streaks through the water toward the "
+	PRINTD	SUB
+	PRINTI	"! In an instant your sub will be just twisted metal, trapping you and Tip forever in Davy Jones's locker!"
+	CALL	FINISH
+?CND5:	
+?CND1:	ADD	THORPE-LON,THORPE-DLON >THORPE-LON
+	ADD	THORPE-LAT,THORPE-DLAT >THORPE-LAT
+	MUL	THORPE-HLON,THORPE-HLAT >Z
+	ZERO?	Z \?ELS49
+	ZERO?	THORPE-HLAT \?ELS52
+	ADD	THORPE-LAT,THORPE-HLON >SNARK-LAT
+	ADD	THORPE-LON,THORPE-HLON >SNARK-LON
+	RFALSE	
+?ELS52:	ADD	THORPE-LAT,THORPE-HLAT >SNARK-LAT
+	SUB	THORPE-LON,THORPE-HLAT >SNARK-LON
+	RFALSE	
+?ELS49:	EQUAL?	-1,Z \?ELS56
+	ADD	THORPE-LON,THORPE-HLON >SNARK-LON
+	SET	'SNARK-LAT,THORPE-LAT
+	RFALSE	
+?ELS56:	EQUAL?	1,Z \FALSE
+	ADD	THORPE-LAT,THORPE-HLAT >SNARK-LAT
+	SET	'SNARK-LON,THORPE-LON
+	RFALSE	
+
+
+	.FUNCT	DART-F
+	CALL	WEAPON-F,DART
+	RSTACK	
+
+
+	.FUNCT	MOUNTING-VERB?,OBJ
+	ZERO?	SUB-IN-DOME /FALSE
+	EQUAL?	PRSO,OBJ \FALSE
+	EQUAL?	PRSA,V?USE /TRUE
+	EQUAL?	PRSA,V?SHOW \?ELS13
+	EQUAL?	PRSO,BLY \?ELS13
+	EQUAL?	PRSI,BAZOOKA /TRUE
+?ELS13:	EQUAL?	PRSA,V?PUT-UNDER \?ELS15
+	EQUAL?	PRSO,ESCAPE-POD-UNIT \?ELS15
+	EQUAL?	PRSI,PILOT-SEAT,CHAIR /TRUE
+?ELS15:	EQUAL?	PRSA,V?TIE-TO,V?PUT \FALSE
+	EQUAL?	PRSI,CLAW,LOCAL-SUB,GLOBAL-SUB /TRUE
+	RFALSE
+
+
+	.FUNCT	NO-GOOD-MUNGED
+	PRINTD	HORVAK
+	PRINTR	" has to fix it first."
+
+
+	.FUNCT	WEAPON-F,OBJ,WHICH=0,O,NOT-ON-SUB=0,SOMEONE=0
+	CALL	BAD-AIR?
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSA,V?TAKE,V?SEARCH-FOR,V?FIND \?ELS5
+	JUMP	?CND1
+?ELS5:	CALL	MOUNTING-VERB?,OBJ
+	ZERO?	STACK /?ELS7
+	JUMP	?CND1
+?ELS7:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+?CND1:	EQUAL?	OBJ,DART \?CND10
+	SET	'WHICH,1
+?CND10:	GET	ON-SUB,WHICH
+	EQUAL?	OBJ,STACK /?CND13
+	SET	'NOT-ON-SUB,TRUE-VALUE
+?CND13:	ZERO?	SUB-IN-DOME \?CND16
+	ZERO?	NOT-ON-SUB /?CND16
+	PRINTI	"You can't use"
+	CALL	PRINTT,OBJ
+	PRINTR	" now!"
+?CND16:	ZERO?	NOT-ON-SUB /?ELS27
+	EQUAL?	PRSA,V?SEARCH-FOR,V?FIND \?ELS33
+	LOC	OBJ
+	EQUAL?	HERE,STACK \FALSE
+	FSET?	OBJ,TOUCHBIT /FALSE
+	FCLEAR	OBJ,NDESCBIT
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?55
+	PRINTR	" it among lots of equipment and supplies."
+?ELS33:	EQUAL?	PRSA,V?TAKE \?ELS44
+	EQUAL?	WHICH,1 \FALSE
+	FCLEAR	DART,NDESCBIT
+	FSET?	DART,MUNGBIT \FALSE
+	CALL	NO-GOOD-MUNGED
+	RSTACK	
+?ELS44:	CALL	MOUNTING-VERB?,OBJ
+	ZERO?	STACK /FALSE
+	EQUAL?	WINNER,PLAYER /?ELS59
+	SET	'SOMEONE,WINNER
+	JUMP	?CND57
+?ELS59:	CALL	FIND-FLAG,HERE,PERSON,PLAYER >SOMEONE
+	ZERO?	SOMEONE /?CND57
+?CND57:	ZERO?	SOMEONE \?CND62
+	CALL	META-LOC,OBJ
+	EQUAL?	HERE,STACK /?ELS67
+	CALL	NOT-HERE,OBJ
+	RTRUE	
+?ELS67:	EQUAL?	HERE,AIRLOCK /?CND62
+	CALL	NOT-HERE,CLAW
+	RTRUE	
+?CND62:	ZERO?	WHICH \?ELS74
+	ZERO?	SOMEONE /?ELS79
+	EQUAL?	HERE,AIRLOCK /?ELS79
+	PRINTI	"""Good idea! That should stop the "
+	PRINTD	SNARK
+	PRINTI	"! It could disable an enemy sub, too! Shall I "
+	EQUAL?	PRSA,V?PUT \?ELS86
+	PRINTI	"do it"
+	JUMP	?CND84
+?ELS86:	PRINTI	"have it mounted"
+	EQUAL?	PRSI,CLAW /?CND84
+	PRINTI	" on an "
+	PRINTD	CLAW
+	PRINTI	" of the "
+	PRINTD	SUB
+?CND84:	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK /TRUE
+	CALL	MOUNT-WEAPON,BAZOOKA
+	CALL	FINE-SEQUENCE
+	RTRUE	
+?ELS79:	CALL	MOUNT-WEAPON,BAZOOKA
+	CALL	OKAY,BAZOOKA,STR?56
+	CALL	FINE-SEQUENCE
+	RTRUE	
+?ELS74:	FSET?	DART,MUNGBIT \?ELS106
+	CALL	NO-GOOD-MUNGED
+	RSTACK	
+?ELS106:	CALL	MOUNT-WEAPON,DART
+	ZERO?	SOMEONE /?ELS111
+	EQUAL?	HERE,AIRLOCK /?ELS111
+	PRINTD	SOMEONE
+	PRINTI	" promptly mounts the "
+	PRINTD	DART
+	PRINTI	" on an "
+	PRINTD	CLAW
+	PRINTI	"."
+	CRLF	
+	JUMP	?CND109
+?ELS111:	CALL	OKAY,DART,STR?56
+?CND109:	GET	ON-SUB,0
+	EQUAL?	BAZOOKA,STACK \TRUE
+	CALL	FINE-SEQUENCE
+	RTRUE	
+?ELS27:	EQUAL?	PRSA,V?EXAMINE,V?FIND \?ELS127
+	PRINTI	"It's mounted on one of the "
+	PRINTD	SUB
+	PRINTI	"'s "
+	PRINTD	CLAW
+	PRINTR	"s."
+?ELS127:	EQUAL?	PRSA,V?TAKE /?THN132
+	CALL	MOUNTING-VERB?,OBJ
+	ZERO?	STACK /?ELS131
+?THN132:	PRINTI	"You'd better leave it mounted on the "
+	PRINTD	CLAW
+	PRINTR	"."
+?ELS131:	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE \?ELS139
+	PRINTR	"You should type where you want to aim it."
+?ELS139:	EQUAL?	PRSA,V?AIM \?ELS143
+	FSET?	CLAW,MUNGBIT \?ELS146
+	PRINTI	"Nothing happens. Either the "
+	PRINTD	CLAW
+	PRINTI	" or the "
+	PRINTD	OBJ
+	PRINTI	" was damaged when you rammed the "
+	PRINTD	SNARK
+	PRINTR	"!"
+?ELS146:	EQUAL?	PRSI,GLOBAL-THORPE,THORPE-SUB \?ELS150
+	CALL	STARBOARD-OF-THORPE?,SUB-LON,SUB-LAT
+	ZERO?	STACK \?ELS153
+	CALL	YOU-CANT,STR?57,GLOBAL-SNARK,STR?58
+	RTRUE	
+?ELS153:	ZERO?	SUB-IN-BATTLE /?CND156
+	CALL	SCORE-OBJ,THORPE-SUB
+?CND156:	PUT	OBJ-AIMED-AT,WHICH,THORPE-SUB
+	PUT	LON-AIMED-AT,WHICH,THORPE-LON
+	PUT	LAT-AIMED-AT,WHICH,THORPE-LAT
+	JUMP	?CND144
+?ELS150:	EQUAL?	PRSI,GLOBAL-SNARK,SNARK \FALSE
+	PUT	OBJ-AIMED-AT,WHICH,SNARK
+	PUT	LON-AIMED-AT,WHICH,SNARK-LON
+	PUT	LAT-AIMED-AT,WHICH,SNARK-LAT
+?CND144:	PRINTR	"Aimed."
+?ELS143:	EQUAL?	PRSA,V?ATTACK,V?KILL,V?SHOOT \FALSE
+	GET	OBJ-AIMED-AT,WHICH >O
+	GET	ALREADY-SHOT,WHICH
+	ZERO?	STACK /?ELS170
+	PRINTI	"You already shot"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"!"
+?ELS170:	ZERO?	O \?CND168
+	PRINTR	"You have to aim it first!"
+?CND168:	EQUAL?	THORPE-SUB,O \?ELS183
+	EQUAL?	PRSO,GLOBAL-THORPE,THORPE-SUB \?THN180
+?ELS183:	EQUAL?	SNARK,O \?CND177
+	EQUAL?	PRSO,GLOBAL-SNARK,SNARK /?CND177
+?THN180:	PRINTI	"You didn't aim it at"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?CND177:	EQUAL?	PRSO,GLOBAL-THORPE,THORPE-SUB \?ELS192
+	GET	LON-AIMED-AT,WHICH
+	EQUAL?	STACK,THORPE-LON \?ELS197
+	GET	LAT-AIMED-AT,WHICH
+	EQUAL?	STACK,THORPE-LAT \?ELS197
+	PUT	ALREADY-SHOT,WHICH,TRUE-VALUE
+	ZERO?	WHICH \?ELS204
+	CALL	MUNG-TARGET
+	RSTACK	
+?ELS204:	PRINTI	"Fudge! Your tranquilizer dart hit the "
+	PRINTD	THORPE-SUB
+	PRINTI	", and its metal hull can't be put to sleep! Tough luck, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."
+?ELS197:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" moved since you aimed."
+?ELS192:	EQUAL?	PRSO,GLOBAL-SNARK,SNARK \FALSE
+	GET	LON-AIMED-AT,WHICH
+	EQUAL?	STACK,SNARK-LON \?ELS219
+	GET	LAT-AIMED-AT,WHICH
+	EQUAL?	STACK,SNARK-LAT \?ELS219
+	PUT	ALREADY-SHOT,WHICH,TRUE-VALUE
+	SET	'SNARK-TRANKED,TRUE-VALUE
+	SET	'SNARK-HLON,THORPE-HLON
+	SET	'SNARK-HLAT,THORPE-HLAT
+	ZERO?	WHICH \?ELS226
+	PRINTI	"KA-VOOOM! The "
+	PRINTD	SNARK
+	PRINTI	" shudders and stops moving! You scored a clean hit with your "
+	PRINTD	BAZOOKA
+	PRINTI	"!
+"
+	CALL	TIP-SAYS
+	PRINTI	"Rats! There goes our safety shield!"" And he's right. Even though you've saved the "
+	PRINTD	AQUADOME
+	PRINTI	" from further danger of monster attack, the "
+	PRINTD	SUB
+	PRINTI	" is now exposed to the "
+	PRINTD	THORPE-SUB
+	PRINTR	"'s rocket weapon!"
+?ELS226:	PRINTI	"Right on! The dart hits the "
+	PRINTD	SNARK
+	PRINTI	" and sticks out of its side. The tranquilizer spreads through the "
+	PRINTD	SNARK
+	PRINTI	", sending it to Slumberland.
+But this may have been a bad move. With the "
+	PRINTD	SNARK
+	PRINTI	" fast asleep, its huge body can't hide you from the "
+	PRINTD	THORPE-SUB
+	PRINTR	"'s rocket attack!"
+?ELS219:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" moved since you aimed."
+
+
+	.FUNCT	MUNG-TARGET
+	CALL	SCORE-UPD,5
+	FSET	PRSO,MUNGBIT
+	PRINTI	"Great! You and Tip can see"
+	CALL	THE-PRSI-PRINT
+	PRINTI	" slam into the "
+	PRINTD	THORPE-SUB
+	PRINTI	"'s power pod!
+""Hooray! That crippled the "
+	PRINTD	THORPE-SUB
+	PRINTI	" for keeps!"" Tip cheers.
+You hear a voice come over the "
+	PRINTD	SONARPHONE
+	PRINTI	": "
+?PRG3:	PRINTI	""""
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", this is Sharon! Do you read me?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG3
+	PRINTI	"""Something hit us, and Thorpe's out cold! He cracked his skull on the bulkhead! I was waking up when I saw it all happen. I'll tie him up so he can't cause any trouble.
+The "
+	PRINTD	THORPE-SUB
+	PRINTI	"'s regular engine is kaput, but he installed a backup engine for emergencies. And the sonar control's still working. If you like, I'll guide the monster to its cavern.""
+"
+	GETP	GREENUP,P?VALUE
+	ZERO?	STACK /?CND12
+	CALL	TIP-SAYS
+	PRINTI	"It's too bad we didn't find the "
+	PRINTD	TRAITOR
+	PRINTI	" at the "
+	PRINTD	AQUADOME
+	PRINTI	".""
+"
+?CND12:	PRINTI	"
+CONGRATULATIONS, "
+	CALL	PRINT-NAME,FIRST-NAME,TRUE-VALUE
+	PRINTI	"! YOU'VE COMPLETED YOUR MISSION!!"
+	CALL	FINISH
+	RSTACK	
+
+
+	.FUNCT	MOUNT,WHICH,WEAPON,OBJ
+	GET	ON-SUB,WHICH >OBJ
+	ZERO?	OBJ /?CND1
+	MOVE	OBJ,AIRLOCK
+?CND1:	PUT	ON-SUB,WHICH,WEAPON
+	RTRUE	
+
+
+	.FUNCT	MOUNT-WEAPON,OBJ
+	EQUAL?	OBJ,BAZOOKA \?ELS3
+	CALL	SCORE-OBJ,BLY
+	PUTP	BAZOOKA,P?LDESC,STR?59
+	GETP	BAZOOKA,P?VALUE
+	ZERO?	STACK /?CND4
+	PRINTI	"""Of course I'll have to get it first."""
+	CRLF	
+	CALL	SCORE-OBJ,BAZOOKA
+?CND4:	CALL	MOUNT,0,BAZOOKA
+	JUMP	?CND1
+?ELS3:	EQUAL?	OBJ,DART \?ELS10
+	PUTP	DART,P?LDESC,STR?60
+	CALL	SCORE-OBJ,HORVAK
+	CALL	MOUNT,1,DART
+	JUMP	?CND1
+?ELS10:	GET	ON-SUB,0
+	ZERO?	STACK /?ELS12
+	GET	ON-SUB,1
+	ZERO?	STACK /?ELS15
+	PRINTI	"The claws are holding all they can."
+	CRLF	
+	RFALSE	
+?ELS15:	PUT	ON-SUB,1,OBJ
+	JUMP	?CND1
+?ELS12:	PUT	ON-SUB,0,OBJ
+?CND1:	EQUAL?	HERE,SUB,CRAWL-SPACE \?ELS24
+	MOVE	OBJ,SUB
+	JUMP	?CND22
+?ELS24:	ZERO?	SUB-IN-DOME /?ELS26
+	MOVE	OBJ,AIRLOCK
+	JUMP	?CND22
+?ELS26:	MOVE	OBJ,NORTH-TANK-AREA
+?CND22:	FSET	OBJ,NDESCBIT
+	FCLEAR	OBJ,TAKEBIT
+	FSET	OBJ,TRYTAKEBIT
+	RTRUE	
+
+
+	.FUNCT	FINE-SEQUENCE
+	ZERO?	TIP-FOLLOWS-YOU? /FALSE
+	CALL	READY-FOR-SNARK?
+	ZERO?	STACK \FALSE
+	CALL	MOVE-HERE-NOT-SUB,BLY
+	PRINTI	"""Are you ready to take off now, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"" Zoe Bly "
+	IN?	BLY,HERE \?ELS12
+	PUSH	STR?61
+	JUMP	?CND8
+?ELS12:	PUSH	STR?62
+?CND8:	PRINT	STACK
+	PRINTI	"s anxiously."
+	CALL	YES?
+	ZERO?	STACK /FALSE
+	PRINTI	"""Wait!"" Tip cuts in. "
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK-ABOUT,TIP,FINE-GRID
+	RSTACK	
+
+
+	.FUNCT	BAZOOKA-F
+	CALL	WEAPON-F,BAZOOKA
+	RSTACK	
+
+
+	.FUNCT	I-THORPE-APPEARS
+	GRTR?	17,SUB-LON /?THN6
+	LESS?	-17,SUB-LAT /?THN6
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH /?ELS5
+?THN6:	SUB	MOVES,LEFT-DOME
+	LESS?	40,STACK \FALSE
+	SET	'LEFT-DOME,MOVES
+	PRINTI	"Suddenly "
+	CALL	TIP-SAYS
+	CALL	PRINT-NAME,FIRST-NAME
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \?ELS21
+	PRINTI	", what "
+	PRINTD	INTDIR
+	PRINTI	" do you think the "
+	PRINTD	SNARK
+	PRINTR	" went, anyway?"""
+?ELS21:	PRINTR	", I wonder if we're at the right depth?"""
+?ELS5:	CALL	QUEUE,I-SNARK-ATTACKS,0
+	CALL	QUEUE,I-THORPE-APPEARS,0
+	CALL	QUEUE,I-THORPE-AWAKES,9
+	PUT	STACK,0,1
+	FSET	SEARCH-BEAM,ONBIT
+	PRINTI	"""Holy halibut!"" cries Tip. ""There's a big cloud of silt ahead in the "
+	PRINTD	SEARCH-BEAM
+	PRINTI	". It's out of sonar range. This could be the "
+	PRINTD	SNARK
+	PRINTI	"! Want to hold course till we find out?"""
+	CALL	YES?
+	PRINTI	"However you steer, the cloud holds steady. You may be on a collision course with the behemoth that almost wrecked the "
+	PRINTD	AQUADOME
+	PRINTI	"!
+"
+	PRINTI	"Your "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" reveals TWO objects dead ahead!
+One is the "
+	PRINTD	SNARK
+	PRINTI	". To the left of the tentacled creature -- YOUR left -- you can make out a vehicle crawling along the ocean floor.
+"
+	CALL	TIP-SAYS
+	PRINTI	"That's one of your Sea Cats!""
+A voice crackles over the "
+	PRINTD	SONARPHONE
+	PRINTI	": ""This is "
+	PRINTD	GLOBAL-THORPE
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! Do you read me?"""
+	CALL	YES?
+	PRINTI	"Your answer brings a rasping laugh. ""Of course you read me, or you wouldn't be answering! Your "
+	PRINTD	LAB-ASSISTANT
+	PRINTI	", "
+	PRINTD	SHARON
+	PRINTI	", is seated behind me. She'll enjoy what's about to happen as much as I will. Would you like to hear what's in store for you?"""
+	CALL	YES?
+	ZERO?	STACK \?ELS42
+	PRINTI	"""You'll soon find out -- like it or not! "
+	JUMP	?CND40
+?ELS42:	PRINTI	""""
+?CND40:	PRINTI	"I'll blast your sub with a rocket! Then I'll guide my synthetic monster to the "
+	PRINTD	AQUADOME
+	PRINTI	" to destroy it! Can you guess what sealed your doom, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK \?ELS53
+	PRINTI	""""
+	JUMP	?CND51
+?ELS53:	PRINTI	"""I'll tell you anyhow. "
+?CND51:	PRINTI	"I want to own the "
+	PRINTD	ORE-NODULES
+	PRINTI	" near the "
+	PRINTD	AQUADOME
+	PRINTI	"! Sharon and I consider it a wedding present from you and your dad ...""
+Thorpe breaks off with a sudden gulp, followed by some noise and then a soft female voice:
+"
+?PRG62:	PRINTI	"""This is "
+	PRINTD	SHARON
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! Do you read me?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG62
+	CALL	PHONE-ON,GLOBAL-SHARON,THORPE-SUB,SONARPHONE
+	CALL	QUEUE,I-UPDATE-THORPE,-1
+	PUT	STACK,0,1
+	FCLEAR	SNARK,INVISIBLE
+	FCLEAR	THORPE-SUB,INVISIBLE
+	ADD	SUB-LON,SONAR-RANGE
+	ADD	2,STACK >THORPE-LON
+	SUB	SUB-LAT,SONAR-RANGE >THORPE-LAT
+	ADD	THORPE-LON,THORPE-HLON >SNARK-LON
+	SET	'SNARK-LAT,THORPE-LAT
+	FSET	THORPE,MUNGBIT
+	PRINTI	"""Thank goodness! I conked Thorpe with a wrench! He fell onto the microphone, and he's too heavy for me to move!"""
+	CRLF	
+	CALL	SCORE-OBJ,SNARK
+	RETURN	2
+
+
+	.FUNCT	SHARON-EXPLAINS
+	EQUAL?	PRSA,V?SAY /?CND1
+	PRINTI	"""Wait a second, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", till I catch my breath!"" Sharon cuts in. "
+?CND1:	CALL	SHARON-ABOUT-THORPE
+	PRINTI	"""Can I interrupt, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"" asks Tip."
+	CALL	YES?
+	ZERO?	STACK \?CND8
+	CALL	TIP-SAYS
+	PRINTI	"Sorry, but I have to. This is important.""
+"
+?CND8:	PRINTI	"""Sharon, how does Thorpe control the monster?""
+""By sonar pulse signals,"" she replies. "
+	CALL	SHARON-ABOUT-MONSTER
+	PRINTI	"""Is the transducer sending out signals now?"" Tip asks her.
+""Yes, it operates all the time. Can you make out our position on your "
+	PRINTD	SONARSCOPE
+	PRINTI	"?""
+""Thanks to the "
+	PRINTD	FINE-GRID
+	PRINTI	"!"" says Tip."
+	ZERO?	THROTTLE-SETTING /?CND17
+	SET	'THROTTLE-SETTING,0
+	PRINTI	" ""Maybe we'd better stop the "
+	PRINTD	SUB
+	PRINTI	" before we collide with you!""
+Tip uses his dual-control throttle to stop your sub. Then he adds apologetically: ""This isn't mutiny, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! I just figured we should stop now."""
+?CND17:	CRLF	
+	CALL	SHARON-ABOUT-CAT
+	PRINTI	"""Was it out of control when it attacked the "
+	PRINTD	AQUADOME
+	PRINTI	"?"" asks Tip.
+""Oh no!"" Sharon replies. "
+?PRG24:	PRINTI	"""Thorpe has a helper at the "
+	PRINTD	AQUADOME
+	PRINTI	" who put a "
+	PRINTD	BLACK-BOX
+	PRINTI	" on the "
+	PRINTD	SONAR-EQUIPMENT
+	PRINTI	", which made it emit signals to ATTRACT the monster and make it attack. Do you follow me so far, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"?"""
+	CALL	YES?
+	ZERO?	STACK /?PRG24
+	PRINTI	"""Good. Before that first attack, Thorpe got the monster close enough for the "
+	PRINTD	BLACK-BOX
+	PRINTI	" to take over. Then he surfaced near "
+	PRINTD	BAY
+	PRINTI	" to get me. By the time we went back to the ocean floor, something had gone wrong: the "
+	PRINTD	AQUADOME
+	PRINTI	" was okay, and the monster had wandered off to its cavern. That reminds me, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	". "
+?PRG33:	PRINTI	"Do you want to take the monster to its cavern peacefully? (With no more sonar pulse input, it'll stay there until you're ready to study it scientifically.)"""
+	CALL	YES?
+	ZERO?	STACK /?CND37
+	JUMP	?REP34
+?CND37:	PRINTI	"(Better listen, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	". Sharon's trying to show you how to deal with this threat to the "
+	PRINTD	AQUADOME
+	PRINTI	".)
+"""
+	JUMP	?PRG33
+?REP34:	PRINTI	"""First tell me, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	": do you have any tranquilizer or weapon to use against it?"""
+	CALL	YES?
+	ZERO?	STACK /TRUE
+	PRINTI	"""Do you want to capture it for scientific study?"""
+	CALL	YES?
+	ZERO?	STACK /?ELS51
+	PRINTR	"""Then try the following:
+Position your sub on the other side of the monster -- on the monster's LEFT side -- just 5 meters from it. If anything goes wrong and it gets out of control, you can tranquilize it immediately."""
+?ELS51:	PRINTI	"""That's odd! I thought you would."""
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SHARON-ABOUT-THORPE
+	PRINTI	"""I'm not in on Thorpe's plot, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	". I'm playing along, trying to wreck his plans. I know it was risky for me to leave that "
+	PRINTD	CATALYST-CAPSULE
+	PRINTI	" out of the "
+	PRINTD	SUB
+	ZERO?	SHARON-BROKE-CIRCUIT /?CND3
+	PRINTI	", and to open that "
+	PRINTD	CIRCUIT-BREAKER
+?CND3:	PRINTI	", but it was part of my plan, and you got to the "
+	PRINTD	AQUADOME
+	PRINTR	" anyway."""
+
+
+	.FUNCT	SHARON-ABOUT-MONSTER
+	PRINTI	"""It's sensitive to the signals on its RIGHT side. Thorpe has installed a sonar transducer on the LEFT or PORT side of this sub. He has to stay on the same side of the monster all the time."""
+	RTRUE	
+
+
+	.FUNCT	SHARON-ABOUT-CAT
+	PRINTI	"Sharon says, ""Notice how we keep 5 meters to the monster's right and 5 meters behind its nose. The Sea Cat is programmed that way, so the signals reach the monster with enough strength to keep it in control."""
+	RTRUE	
+
+
+	.FUNCT	I-THORPE-AWAKES
+	FCLEAR	THORPE,MUNGBIT
+	SET	'SUB-IN-BATTLE,TRUE-VALUE
+	CALL	PHONE-OFF
+	CALL	PHONE-ON,GLOBAL-THORPE,THORPE-SUB,SONARPHONE
+	PRINTI	"
+Suddenly the sonarphone gets louder.
+"
+	CALL	TIP-SAYS
+	PRINTI	"That could mean Thorpe is awake and has moved away from the microphone!""
+You hear a sharp cry of pain from Sharon, then Thorpe yelling: ""That'll take care of you, my little double-crosser!""
+Thorpe speaks into the microphone: ""Now then, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	" "
+	CALL	PRINT-NAME,LAST-NAME
+	PRINTI	", I'm stopping my "
+	PRINTD	THORPE-SUB
+	PRINTI	" so I can blow you into Kingdom Come as soon as you're in my sights!""
+"
+	CALL	STARBOARD-OF-THORPE?,SUB-LON,SUB-LAT
+	ZERO?	STACK \?CND5
+	CALL	TIP-SAYS
+	PRINTI	"He'll have to go around the "
+	PRINTD	SNARK
+	PRINTI	" to fire at us, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! And we'll have to go around its tail to shoot at HIM!""
+"
+?CND5:	CALL	TELL-HINT,42,THORPE-SUB,FALSE-VALUE
+	RETURN	2
+
+	.ENDI
diff --git a/battle.zil b/battle.zil
index 3e1e7be..77ebf7c 100644
--- a/battle.zil
+++ b/battle.zil
@@ -97,7 +97,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
  <COND (<VERB? FIND> <TELL "It's not far away!" CR>)
        (<VERB? MOVE PUSH> <TELL "It's too big!" CR>)
        (<VERB? SHOOT KILL ATTACK>
-	%<XTELL
+	<TELL
 "You have to shoot" THE-PRSO " with a weapon." CR>)
        (<VERB? WALK-TO> <TELL "You're the pilot!" CR>)>>
 
@@ -131,7 +131,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		      <TELL "[T-HLon=" N ,THORPE-HLON
 			   ", T-HLat=" N ,THORPE-HLAT "]" CR>)>)
 	      (T
-	       %<XTELL
+	       <TELL
 "Thorpe zeroed in on you and fired his rocket! It streaks through the
 water toward the " D ,SUB "! In an instant your sub will be just twisted
 metal, trapping you and Tip forever in Davy Jones's locker!">
@@ -179,6 +179,9 @@ metal, trapping you and Tip forever in Davy Jones's locker!">
  <COND (<NOT ,SUB-IN-DOME> <RFALSE>)
        (<AND <EQUAL? ,PRSO .OBJ>
 	     <OR <VERB? USE>
+		 <AND <VERB? SHOW>
+		      <DOBJ? BLY>
+		      <IOBJ? BAZOOKA>>
 		 <AND <VERB? PUT-UNDER>
 		      <DOBJ? ESCAPE-POD-UNIT>
 		      <IOBJ? CHAIR PILOT-SEAT>>
@@ -191,8 +194,7 @@ metal, trapping you and Tip forever in Davy Jones's locker!">
 	<RTRUE>)>>
 
 <ROUTINE NO-GOOD-MUNGED ()
-	%<XTELL
-"Doc Horvak has to fix it first." CR>>
+	<TELL D ,HORVAK " has to fix it first." CR>>
 
 <ROUTINE WEAPON-F (OBJ "AUX" (WHICH 0) O (NOT-ON-SUB <>) (SOMEONE <>))
  <COND (<BAD-AIR?>	;<FSET? ,BLY ,MUNGBIT>
@@ -205,7 +207,7 @@ metal, trapping you and Tip forever in Davy Jones's locker!">
  <COND (<NOT <==? .OBJ <GET ,ON-SUB .WHICH>>>
 	<SET NOT-ON-SUB T>)>
  <COND (<AND <NOT ,SUB-IN-DOME> .NOT-ON-SUB>
-	%<XTELL "You can't use" THE .OBJ " now!" CR>
+	<TELL "You can't use" THE .OBJ " now!" CR>
 	<RTRUE>)>
  <COND (.NOT-ON-SUB
 	<COND (<VERB? FIND SEARCH-FOR>
@@ -231,7 +233,7 @@ metal, trapping you and Tip forever in Davy Jones's locker!">
 			     <RTRUE>)>)>
 	       <COND (<0? .WHICH>
 		      <COND (<AND .SOMEONE <NOT <==? ,HERE ,AIRLOCK>>>
-			     %<XTELL
+			     <TELL
 "\"Good idea! That should stop the " D ,SNARK "! It could disable an
 enemy sub, too! Shall I ">
 			     <COND (<VERB? PUT> <TELL "do it">)
@@ -255,7 +257,7 @@ enemy sub, too! Shall I ">
 		     (T
 		      <MOUNT-WEAPON ,DART>
 		      <COND (<AND .SOMEONE <NOT <==? ,HERE ,AIRLOCK>>>
-			     %<XTELL
+			     <TELL
 D .SOMEONE " promptly mounts the " D ,DART " on an " D ,CLAW "." CR>)
 			    (T
 			     <OKAY ,DART "mounted">)>
@@ -264,16 +266,16 @@ D .SOMEONE " promptly mounts the " D ,DART " on an " D ,CLAW "." CR>)
 		      <RTRUE>)>)>)
        (T
 	<COND (<VERB? FIND EXAMINE>
-	       %<XTELL
+	       <TELL
 "It's mounted on one of the " D ,SUB "'s " D ,CLAW "s." CR>)
 	      (<OR <VERB? TAKE> <MOUNTING-VERB? .OBJ>>
-	       %<XTELL "You'd better leave it mounted on the " D ,CLAW "."CR>)
+	       <TELL "You'd better leave it mounted on the " D ,CLAW "."CR>)
 	      (<REMOTE-VERB?> <RFALSE>)
 	      ;(,SUB-IN-DOME	;<NOT <EQUAL? ,HERE ,SUB>>
-	       %<XTELL
+	       <TELL
 "You shouldn't do that inside the " D ,AQUADOME "!" CR>)
 	      (<VERB? MOVE MOVE-DIR>
-	       %<XTELL "You should type where you want to aim it." CR>)
+	       <TELL "You should type where you want to aim it." CR>)
 	      (<VERB? AIM>
 	       <COND (<FSET? ,CLAW ,MUNGBIT>
 		      <TELL
@@ -296,21 +298,21 @@ when you rammed the " D ,SNARK "!" CR>
 		     (T <RFALSE>)>
 	       ;<COND (<AND ,DEBUG <GET ,OBJ-AIMED-AT .WHICH>>
 		      <TELL "[at: " D <GET ,OBJ-AIMED-AT .WHICH> "] ">)>
-	       %<XTELL "Aimed." CR>)
+	       <TELL "Aimed." CR>)
 	      (<VERB? SHOOT KILL ATTACK>
 	       <SET O <GET ,OBJ-AIMED-AT .WHICH>>
 	       <COND (<GET ,ALREADY-SHOT .WHICH>
-		      %<XTELL "You already shot" THE-PRSI "!" CR>
+		      <TELL "You already shot" THE-PRSI "!" CR>
 		      <RTRUE>)
 		     (<NOT .O>
-		      %<XTELL "You have to aim it first!" CR>
+		      <TELL "You have to aim it first!" CR>
 		      <RTRUE>)>
 	       ;<COND (<0? .I> <SET I ,PRSO>)>
 	       <COND (<OR <AND <==? ,THORPE-SUB .O>
 			       <NOT <DOBJ? THORPE-SUB GLOBAL-THORPE>>>
 			  <AND <==? ,SNARK .O>
 			       <NOT <DOBJ? SNARK GLOBAL-SNARK>>>>
-		      %<XTELL "You didn't aim it at" THE-PRSO "." CR>
+		      <TELL "You didn't aim it at" THE-PRSO "." CR>
 		      <RTRUE>)>
 	       <COND (<DOBJ? THORPE-SUB GLOBAL-THORPE>
 		      <COND (<AND <==? <GET ,LON-AIMED-AT .WHICH> ,THORPE-LON>
@@ -318,9 +320,9 @@ when you rammed the " D ,SNARK "!" CR>
 			     <PUT ,ALREADY-SHOT .WHICH T>
 			     <COND (<0? .WHICH> <MUNG-TARGET>)
 				   (T
-				    %<XTELL
-"Fudge! Your tranquilizer dart hit the " D ,THORPE-SUB ", and its metal hull can't
-be put to sleep! Tough luck, "FN"." CR>)>)
+				    <TELL
+"Fudge! Your tranquilizer dart hit the " D ,THORPE-SUB ", and its metal
+hull can't be put to sleep! Tough luck, "FN"." CR>)>)
 			    (T
 			     <TOO-BAD-BUT ,PRSO>
 			     <TELL " moved since you aimed." CR>)>)
@@ -332,7 +334,7 @@ be put to sleep! Tough luck, "FN"." CR>)>)
 			     <SETG SNARK-HLON ,THORPE-HLON>
 			     <SETG SNARK-HLAT ,THORPE-HLAT>
 			     <COND (<0? .WHICH>
-				    %<XTELL
+				    <TELL
 "KA-VOOOM! The " D ,SNARK " shudders and stops moving! You scored a
 clean hit with your " D ,BAZOOKA "!|
 ">
@@ -342,7 +344,7 @@ clean hit with your " D ,BAZOOKA "!|
 Even though you've saved the " D ,AQUADOME " from further danger of
 monster attack, the " D ,SUB " is now exposed to the " D ,THORPE-SUB
 "'s rocket weapon!" CR>)
-				   (T %<XTELL
+				   (T <TELL
 "Right on! The dart hits the " D ,SNARK " and sticks out of its side.
 The tranquilizer spreads through the " D ,SNARK ", sending it to Slumberland.|
 But this may have been a bad move. With the " D ,SNARK " fast asleep, its
@@ -356,7 +358,7 @@ CR>)>)
 <ROUTINE MUNG-TARGET ()
 	<SCORE-UPD 5>
 	<FSET ,PRSO ,MUNGBIT>
-	%<XTELL
+	<TELL
 "Great! You and Tip can see" THE-PRSI " slam into the " D ,THORPE-SUB"'s power
 pod!|
 \"Hooray! That crippled the " D ,THORPE-SUB " for keeps!\" Tip cheers.|
@@ -364,7 +366,7 @@ You hear a voice come over the " D ,SONARPHONE ": ">
 	<REPEAT ()
 		<TELL "\"" FN ", this is Sharon! Do you read me?\"">
 		<COND (<YES?> <RETURN>)>>
-	%<XTELL
+	<TELL
 "\"Something hit us, and Thorpe's out cold! He cracked his skull on the
 bulkhead! I was waking up when I saw it all happen. I'll tie him up so
 he can't cause any trouble.|
@@ -380,7 +382,7 @@ you like, I'll guide the monster to its cavern.\"|
 	<TELL "|
 CONGRATULATIONS, ">
 	<PRINT-NAME ,FIRST-NAME T>
-	%<XTELL
+	<TELL
 "! YOU'VE COMPLETED YOUR MISSION!!">
 	<FINISH>>
 
@@ -421,11 +423,11 @@ CONGRATULATIONS, ">
 	      (<READY-FOR-SNARK?>
 	       <RFALSE>)>
 	<MOVE-HERE-NOT-SUB ,BLY>
-	%<XTELL "\"Are you ready to take off now, "FN"?\" Zoe Bly "
+	<TELL "\"Are you ready to take off now, "FN"?\" Zoe Bly "
 		<COND (<IN? ,BLY ,HERE> "ask") (T "shout")>
 		"s anxiously.">
 	<COND (<NOT <YES?>> <RFALSE>)>
-	%<XTELL "\"Wait!\" Tip cuts in. ">
+	<TELL "\"Wait!\" Tip cuts in. ">
 	<SETG WINNER ,PLAYER>
 	<PERFORM ,V?ASK-ABOUT ,TIP ,FINE-GRID>>
 
@@ -448,27 +450,30 @@ CONGRATULATIONS, ">
 	    <NOT <==? ,SUB-DEPTH ,AIRLOCK-DEPTH>>>
 	<COND (<L? 40 <- ,MOVES ,LEFT-DOME>>
 	       <SETG LEFT-DOME ,MOVES>
-	       %<XTELL "Suddenly ">
+	       <TELL "Suddenly ">
 	       <TIP-SAYS>
-	       <TELL
-;"Say, " FN ", what " D ,INTDIR " do you think the " D
-,SNARK " went, anyway?\"" CR>)>)
+	       <TELL FN>
+	       <COND (<==? ,SUB-DEPTH ,AIRLOCK-DEPTH>
+		      <TELL
+", what " D ,INTDIR " do you think the " D ,SNARK " went, anyway?\"" CR>)
+		     (T <TELL
+", I wonder if we're at the right depth?\"" CR>)>)>)
        (T
 	<QUEUE I-SNARK-ATTACKS 0>
 	<QUEUE I-THORPE-APPEARS 0>
 	<ENABLE <QUEUE I-THORPE-AWAKES 9 ;-1>>
 	<FSET ,SEARCH-BEAM ,ONBIT>
-	%<XTELL
+	<TELL
 "\"Holy halibut!\" cries Tip. \"There's a big cloud of silt ahead in the "
 D ,SEARCH-BEAM ". It's out of sonar range. This
 could be the " D ,SNARK "! Want to hold course till we find out?\"">
 	<YES?>
-	%<XTELL
+	<TELL
 "However you steer, the cloud holds steady.
 You may be on a collision course with the behemoth
 that almost wrecked the " D ,AQUADOME "!|
 ">
-	%<XTELL
+	<TELL
 "Your " D ,SEARCH-BEAM " reveals TWO
 objects dead ahead!|
 One is the " D ,SNARK ". To the left of the tentacled
@@ -481,7 +486,7 @@ crawling along the ocean floor.|
 A voice crackles over the " D ,SONARPHONE ": \"This is " D ,GLOBAL-THORPE
 ", " FN "! Do you read me?\"">
 	<YES?>
-	%<XTELL
+	<TELL
 "Your answer brings a rasping laugh. \"Of course
 you read me, or you wouldn't be answering!
 Your " D ,LAB-ASSISTANT
@@ -491,14 +496,13 @@ Would you like to hear what's in store for you?\"">
 	<COND (<NOT <YES?>>
 	       <TELL "\"You'll soon find out -- like it or not! ">)
 	      (T <TELL "\"">)>
-	%<XTELL
+	<TELL
 "I'll blast your sub with a rocket! Then I'll guide my
 synthetic monster to the " D ,AQUADOME " to destroy it! Can you guess
 what sealed your doom, " FN "?\"">
 	<COND (<NOT <YES?>> <TELL "\"">)
 	      (T <TELL "\"I'll tell you anyhow. ">)>
-	%<XTELL
-;"Your undersea research station must be eliminated, so I'll have"
+	<TELL
 "I want to own the " D ,ORE-NODULES " near the " D ,AQUADOME
 "! Sharon and I consider it a wedding present from you and your dad ...\"|
 Thorpe breaks off with a sudden gulp, followed by some noise and
@@ -517,7 +521,7 @@ then a soft female voice:|
 	<SETG SNARK-LON <+ ,THORPE-LON ,THORPE-HLON>>
 	<SETG SNARK-LAT ,THORPE-LAT>
 	<FSET ,THORPE ,MUNGBIT>
-	%<XTELL
+	<TELL
 "\"Thank goodness! I conked Thorpe with a wrench! He fell onto the
 microphone, and he's too heavy for me to move!\"" CR>
 	<SCORE-OBJ ,SNARK>
@@ -531,13 +535,15 @@ microphone, and he's too heavy for me to move!\"" CR>
 	<TELL "\"Can I interrupt, "FN"?\" asks Tip.">
 	<COND (<NOT <YES?>>
 	       <TIP-SAYS>
-	       %<XTELL
+	       <TELL
 "Sorry, but I have to. This is important.\"|
 ">)>
-	%<XTELL
+	<TELL
 "\"Sharon, how does Thorpe control the monster?\"|
-\"By sonar pulse signals,\" she replies. " ,SHARON-ABOUT-MONSTER "|
-\"Is the transducer sending out signals now?\" Tip asks her.|
+\"By sonar pulse signals,\" she replies. ">
+	<SHARON-ABOUT-MONSTER>
+	<TELL
+"\"Is the transducer sending out signals now?\" Tip asks her.|
 \"Yes, it operates all the time. Can you make out our position on your "
 D ,SONARSCOPE "?\"|
 \"Thanks to the " D ,FINE-GRID "!\" says Tip.">
@@ -549,16 +555,17 @@ Tip uses his dual-control throttle to stop your sub.
 Then he adds apologetically:
 \"This isn't mutiny, "FN"! I just figured we should stop now.\"">)>
 	<CRLF>
-	%<XTELL ,SHARON-ABOUT-CAT "|
-\"Was it out of control when it attacked the " D ,AQUADOME "?\" asks Tip.|
+	<SHARON-ABOUT-CAT>
+	<TELL
+"\"Was it out of control when it attacked the " D ,AQUADOME "?\" asks Tip.|
 \"Oh no!\" Sharon replies. ">
 	<REPEAT ()
-		%<XTELL
+		<TELL
 "\"Thorpe has a helper at the " D ,AQUADOME " who put a
 " D ,BLACK-BOX " on the " D ,SONAR-EQUIPMENT ", which made it emit signals to
 ATTRACT the monster and make it attack. Do you follow me so far, " FN "?\"">
 		<COND (<YES?> <RETURN>)>>
-	%<XTELL
+	<TELL
 "\"Good. Before that first attack, Thorpe got the monster close enough
 for the " D ,BLACK-BOX " to take over. Then he surfaced near " D ,BAY
 " to get me.
@@ -566,22 +573,22 @@ By the time we went back to the ocean floor, something had gone wrong: the " D
 ,AQUADOME " was okay, and the monster had wandered off to its cavern.
 That reminds me, "FN". ">
 	<REPEAT ()
-		%<XTELL
+		<TELL
 "Do you want to take the monster to its cavern peacefully? (With no
-more sonar pulse input, it'll stay there till you're ready to study it
+more sonar pulse input, it'll stay there until you're ready to study it
 scientifically.)\"">
 		<COND (<YES?> <RETURN>)>
-		%<XTELL
+		<TELL
 "(Better listen, "FN". Sharon's trying to show you how to deal with
 this threat to the " D ,AQUADOME ".)|
 \"">>
-	%<XTELL
+	<TELL
 "\"First tell me, "FN": do you have any tranquilizer or weapon
 to use against it?\"">
 	<COND (<YES?>
-	       %<XTELL "\"Do you want to capture it for scientific study?\"">
+	       <TELL "\"Do you want to capture it for scientific study?\"">
 	       <COND (<YES?>
-		      %<XTELL
+		      <TELL
 "\"Then try the following:|
 Position your sub on the other side of the monster -- on the monster's
 LEFT side -- just 5 meters from it. If anything goes wrong and it gets out
@@ -590,7 +597,7 @@ of control, you can tranquilize it immediately.\"" CR>)
 	<RTRUE>>
 
 <ROUTINE SHARON-ABOUT-THORPE ()
-	%<XTELL
+	<TELL
 "\"I'm not in on Thorpe's plot, "FN". I'm playing along, trying to wreck
 his plans. I know it was risky for me to leave that " D
 ,CATALYST-CAPSULE " out of the " D ,SUB>
@@ -600,25 +607,27 @@ his plans. I know it was risky for me to leave that " D
 ", but it was part of my plan, and you got to the " D ,AQUADOME " anyway.\""
 CR>>
 
-<GLOBAL SHARON-ABOUT-MONSTER
+<ROUTINE SHARON-ABOUT-MONSTER ()
+	<TELL
 "\"It's sensitive to the signals on its RIGHT side.
 Thorpe has installed a sonar transducer on the LEFT or
 PORT side of this sub. He has to stay on the same side of
-the monster all the time.\"">
+the monster all the time.\"">>
 
-<GLOBAL SHARON-ABOUT-CAT
+<ROUTINE SHARON-ABOUT-CAT ()
+	<TELL
 "Sharon says, \"Notice how we keep 5 meters to the monster's right and 5
 meters behind its nose.
 The Sea Cat is programmed that way, so the signals reach
-the monster with enough strength to keep it in control.\"">
+the monster with enough strength to keep it in control.\"">>
 
 <ROUTINE I-THORPE-AWAKES ()
 	<FCLEAR ,THORPE ,MUNGBIT>
 	<SETG SUB-IN-BATTLE T>
 	<PHONE-OFF>
 	<PHONE-ON ,GLOBAL-THORPE ,THORPE-SUB ,SONARPHONE>
-	%<XTELL CR
-"Suddenly the sonarphone gets louder.|
+	<TELL "|
+Suddenly the sonarphone gets louder.|
 ">
 	<TIP-SAYS>
 	<TELL
@@ -631,7 +640,7 @@ Kingdom Come as soon as you're in my sights!\"|
 ">
 	<COND (<NOT <STARBOARD-OF-THORPE? ,SUB-LON ,SUB-LAT>>
 	       <TIP-SAYS>
-	       %<XTELL
+	       <TELL
 "He'll have to go around the " D ,SNARK " to fire at us, "FN"!
 And we'll have to go around its tail to shoot at HIM!\"|
 ">)>
diff --git a/bay.rno b/bay.rno
new file mode 100644
index 0000000..56141a6
--- /dev/null
+++ b/bay.rno
@@ -0,0 +1,53 @@
+.lm 0
+.rm 80
+.c
+MAP OF FROBTON BAY
+.s 5
+.lit
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 6 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 2 3 0 0 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 2 4 4 0 0 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 2 2 3 4 4 4 0 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 2 3 3 3 4 4 4 5 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 2 2 3 3 3 4 4 4 4 4 5 5 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 2 3 3 3 3 4 4 4 4 4 4 5 5 5 5 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 1 1 2 2 2 2 2 3 3 3 4 4 4 4 4 4 4 4 5 5 5 5 5 5 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 1 1 2 2 2 3 3 3 3 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 6 6 6 6 6 6
+0 0 0 0 0 0 1 1 2 2 3 3 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 0 0 6 6 6
+0 0 0 0 0 1 1 2 2 3 3 3 4 4 4 4 4 1 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 4 4 0 0 6 6
+0 0 0 0 1 1 2 2 3 3 3 4 4 4 4 1 1 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 4 4 4 4 0 0 6
+0 0 0 0 1 2 2 3 3 3 4 4 4 4 1 1 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 0 0
+0 0 0 1 1 2 3 3 3 4 4 4 4 1 1 1 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 3 3 0
+0 0 0 1 2 2 3 3 4 4 4 4 4 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 3 2 1 0
+0 0 1 1 2 3 3 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 3 2 2 1 0
+0 0 1 2 2 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 2 1 1 0
+0 0 2 2 3 3 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 3 2 1 1 0
+0 0 3 3 3 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 0 4 4 4 4 3 3 2 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 2 2 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 3 2 2 1 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 3 2 2 2 1 1 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 0 0
+0 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 4 3 3 3 2 2 1 1 1 1 1 1 1 1 1 0 0
+0 2 2 3 3 4 4 4 4 4 4 4 4 4 4 4 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 0 0
+0 1 2 2 3 4 4 4 4 4 4 4 4 4 1 1 1 4 4 4 4 4 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+0 1 2 2 3 3 4 4 4 4 4 4 1 1 1 1 1 4 4 4 4 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0
+0 1 1 2 2 3 4 4 4 4 4 1 1 1 1 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
+0 1 1 2 2 3 1 1 1 1 1 1 1 1 1 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
+0 1 1 2 2 1 1 1 1 1 1 1 1 1 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
+0 1 1 2 2 3 1 1 1 1 1 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
+0 1 1 2 2 3 3 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
+0 1 2 2 2 2 3 4 4 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
+0 2 2 2 2 2 3 3 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
+0 0 1 1 1 2 2 3 3 4 4 4 4 4 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
+0 0 0 1 1 1 2 2 3 3 3 4 3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
+0 0 0 0 1 1 1 2 2 2 3 3 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 1 1 1 1 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 1 1 1 1 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+.eli
diff --git a/bay.runoff b/bay.runoff
new file mode 100644
index 0000000..39b0cee
--- /dev/null
+++ b/bay.runoff
@@ -0,0 +1,53 @@
+.lm 0
+.rm 80
+.c
+MAP OF FROBTON BAY
+.s 5
+.lit
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 6 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 3 0 0 6 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 3 4 4 0 0 6 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 2 2 2 2 3 3 4 4 4 0 5 6 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 4 5 5 5 6 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 2 3 3 3 3 4 4 4 4 4 4 4 5 5 5 5 5 6 6 6 6 6 6 6
+0 0 0 0 0 0 0 1 1 1 2 2 2 2 3 3 3 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 6 6 6 6 6 6
+0 0 0 0 0 0 1 1 2 2 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 6 6 6 6 6
+0 0 0 0 0 1 1 2 2 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 0 6 6 6 6
+0 0 0 0 1 1 2 2 3 3 3 4 4 4 4 1 1 1 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 4 0 0 6 6 6
+0 0 0 0 1 2 2 3 3 3 4 4 4 4 1 1 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 4 4 4 0 0 6 6
+0 0 0 1 1 2 2 3 3 4 4 4 4 1 1 1 1 4 4 4 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 0 0 6
+0 0 0 1 2 2 3 3 4 4 4 4 4 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 0 0
+0 0 0 1 2 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 3 2 2 1 0
+0 0 1 2 2 3 3 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 2 1 0 0
+0 0 2 2 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 2 2 1 0 0
+0 0 3 3 3 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 3 2 2 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 0 4 4 4 4 3 2 1 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 1 1 1 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 0 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 3 3 2 2 1 1 1 0 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 3 2 2 2 1 1 1 1 0 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 0 0
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 0 0
+0 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 4 3 3 3 2 2 1 1 1 1 1 1 1 1 1 0 0
+0 2 2 3 4 4 4 4 4 4 4 4 4 4 4 1 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 0 0
+0 2 2 2 3 4 4 4 4 4 4 4 4 4 1 1 1 4 4 4 4 4 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 0 0
+0 1 2 2 3 4 4 4 4 4 4 1 1 1 1 1 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
+0 1 2 2 2 3 4 4 4 4 1 1 1 1 1 4 4 4 4 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
+0 1 1 2 2 3 1 1 1 1 1 1 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0
+0 1 1 2 2 1 1 1 1 1 1 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0
+0 1 1 2 2 3 1 1 1 1 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
+0 1 2 2 2 3 3 4 4 4 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0
+0 1 2 2 2 2 3 4 4 4 4 4 4 4 3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0
+0 2 2 2 2 2 3 3 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0
+0 0 1 1 1 2 2 3 3 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
+0 0 0 1 1 1 2 2 3 3 3 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0
+0 0 0 0 1 1 1 2 2 2 3 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 1 1 1 1 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 1 1 1 1 2 2 2 2 2 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 1 1 1 1 2 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+.eli
diff --git a/clock.zap b/clock.zap
index 9c38185..20dbf82 100644
--- a/clock.zap
+++ b/clock.zap
@@ -6,14 +6,12 @@
 	RETURN	CINT
 
 
-	.FUNCT	INT,RTN,DEMON=0,E,C,INT
+	.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
-	ZERO?	DEMON /?ELS7
-	SUB	C-DEMONS,C-INTLEN >C-DEMONS
-?ELS7:	ADD	C-TABLE,C-INTS >INT
+	ADD	C-TABLE,C-INTS >INT
 	PUT	INT,C-RTN,RTN
 	RETURN	INT
 ?ELS5:	GET	C,C-RTN
@@ -25,33 +23,33 @@
 
 	.FUNCT	CLOCKER,C,E,TICK,FLG=0,VAL
 	ZERO?	CLOCK-WAIT /?CND1
-	SET	'CLOCK-WAIT,0
+	SET	'CLOCK-WAIT,FALSE-VALUE
 	RFALSE	
-?CND1:	ZERO?	P-WON /?ELS9
+?CND1:	ZERO?	P-WON /?PRD7
 	PUSH	C-INTS
 	JUMP	?CND5
-?ELS9:	PUSH	C-DEMONS
+?PRD7:	PUSH	0
 ?CND5:	ADD	C-TABLE,STACK >C
 	ADD	C-TABLE,C-TABLELEN >E
-?PRG13:	EQUAL?	C,E \?ELS17
+?PRG11:	EQUAL?	C,E \?ELS15
 	INC	'MOVES
 	RETURN	FLG
-?ELS17:	GET	C,C-ENABLED?
-	ZERO?	STACK /?CND15
+?ELS15:	GET	C,C-ENABLED?
+	ZERO?	STACK /?CND13
 	GET	C,C-TICK >TICK
-	ZERO?	TICK \?ELS22
-	JUMP	?CND15
-?ELS22:	SUB	TICK,1
+	ZERO?	TICK \?ELS20
+	JUMP	?CND13
+?ELS20:	SUB	TICK,1
 	PUT	C,C-TICK,STACK
-	GRTR?	TICK,1 /?CND20
+	GRTR?	TICK,1 /?CND18
 	GET	C,C-RTN
 	CALL	STACK >VAL
-	ZERO?	VAL /?CND20
-	ZERO?	FLG /?THN33
-	EQUAL?	VAL,M-FATAL \?CND15
-?THN33:	SET	'FLG,VAL
-?CND20:	
-?CND15:	ADD	C,C-INTLEN >C
-	JUMP	?PRG13
+	ZERO?	VAL /?CND18
+	ZERO?	FLG /?THN31
+	EQUAL?	VAL,M-FATAL \?CND13
+?THN31:	SET	'FLG,VAL
+?CND18:	
+?CND13:	ADD	C,C-INTLEN >C
+	JUMP	?PRG11
 
 	.ENDI
diff --git a/clock.zil b/clock.zil
index c22790e..ecc06eb 100644
--- a/clock.zil
+++ b/clock.zil
@@ -36,13 +36,14 @@ I-UPDATE-FREIGHTER
 I-UPDATE-SUB-POSITION
 I-UPDATE-THORPE"
 
-<CONSTANT C-TABLELEN 111>
+<CONSTANT C-TABLELEN 222>
 
-<GLOBAL C-TABLE <ITABLE NONE 111>>
+<GLOBAL C-TABLE %<COND (<GASSIGNED? PREDGEN> '<ITABLE NONE 111>)
+		       (T '<ITABLE NONE 222>)>>
 
-<GLOBAL C-DEMONS 111>
+;<GLOBAL C-DEMONS 111>
 
-<GLOBAL C-INTS 111>
+<GLOBAL C-INTS 222>
 
 <CONSTANT C-INTLEN 6>
 
@@ -62,15 +63,13 @@ I-UPDATE-THORPE"
 	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
 	 .CINT>
 
-<ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
-	 #DECL ((RTN) ATOM (DEMON) <OR ATOM FALSE> (E C INT) <PRIMTYPE
-							      VECTOR>)
+<ROUTINE INT (RTN "OPTIONAL" ;(DEMON <>) E C INT)
 	 <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>>>
+			;<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
 			<SET INT <REST ,C-TABLE ,C-INTS>>
 			<PUT .INT ,C-RTN .RTN>
 			<RETURN .INT>)
@@ -79,10 +78,11 @@ I-UPDATE-THORPE"
 
 <GLOBAL CLOCK-WAIT <>>
 ;<GLOBAL PRESENT-TIME 0>
+
 <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>)>
-	 <SET C <REST ,C-TABLE <COND (,P-WON ,C-INTS) (T ,C-DEMONS)>>>
+	 <SET C <REST ,C-TABLE <COND (,P-WON ,C-INTS) ;(T ,C-DEMONS)>>>
 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
 	 <REPEAT ()
 		 <COND (<==? .C .E>
diff --git a/dome.zap b/dome.zap
index d6f9dab..2a83bf6 100644
--- a/dome.zap
+++ b/dome.zap
@@ -27,7 +27,7 @@
 	PRINTR	"."""
 ?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS29
 	LESS?	DISTANCE-FROM-BAY,AQUADOME-VISIBLE /?ELS29
-	SET	'P-WON,0
+	SET	'P-WON,FALSE-VALUE
 	GETP	LOCAL-SUB,P?TEXT
 	PRINT	STACK
 	CRLF	
@@ -55,11 +55,11 @@
 
 
 	.FUNCT	IN-DOME?,RM
-	ZERO?	SUB-IN-DOME /?ELS5
-	EQUAL?	RM,SUB,CRAWL-SPACE /?THN1
+	EQUAL?	RM,SUB,CRAWL-SPACE \?ELS5
+	RETURN	SUB-IN-DOME
 ?ELS5:	CALL	ZMEMQ,RM,IN-DOME-AROUND
-	RSTACK	
-?THN1:	RSTACK	
+	ZERO?	STACK /FALSE
+	RTRUE
 
 
 	.FUNCT	AIR-ROOM?,RM
@@ -125,64 +125,67 @@
 	PRINTD	AIRLOCK
 	PRINTR	", at the foot of the ramp."
 ?ELS16:	ZERO?	RARG \FALSE
-	ZERO?	SUB-IN-DOME \?ELS23
+	CALL	REMOTE-VERB?
+	ZERO?	STACK /?ELS23
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
+?ELS23:	ZERO?	SUB-IN-DOME \?ELS27
 	CALL	SUB-OUTSIDE-AIRLOCK?
-	ZERO?	STACK \?ELS23
+	ZERO?	STACK \?ELS27
 	CALL	NOT-HERE,AIRLOCK
 	RSTACK	
-?ELS23:	EQUAL?	PRSA,V?EMPTY \?ELS27
-	ZERO?	AIRLOCK-FULL \?ELS32
-	CALL	ALREADY,AIRLOCK,STR?70
+?ELS27:	EQUAL?	PRSA,V?EMPTY \?ELS31
+	ZERO?	AIRLOCK-FULL \?ELS36
+	CALL	ALREADY,AIRLOCK,STR?65
 	RSTACK	
-?ELS32:	FSET?	AIRLOCK-HATCH,OPENBIT \?ELS34
-	CALL	YOU-CANT,0,AIRLOCK-HATCH,STR?23
+?ELS36:	FSET?	AIRLOCK-HATCH,OPENBIT \?ELS38
+	CALL	YOU-CANT,FALSE-VALUE,AIRLOCK-HATCH,STR?21
 	RSTACK	
-?ELS34:	EQUAL?	HERE,SUB,CRAWL-SPACE /?THN37
+?ELS38:	EQUAL?	HERE,SUB,CRAWL-SPACE /?THN41
 	EQUAL?	HERE,BLY-OFFICE,FOOT-OF-RAMP \FALSE
-?THN37:	CALL	QUEUE,I-AIRLOCK-EMPTY,2
+?THN41:	CALL	QUEUE,I-AIRLOCK-EMPTY,2
 	PUT	STACK,0,1
 	PRINTR	"This will take 1 turn."
-?ELS27:	EQUAL?	PRSA,V?FILL \?ELS42
-	ZERO?	AIRLOCK-FULL /?ELS45
-	CALL	ALREADY,AIRLOCK,STR?71
+?ELS31:	EQUAL?	PRSA,V?FILL \?ELS46
+	ZERO?	AIRLOCK-FULL /?ELS49
+	CALL	ALREADY,AIRLOCK,STR?66
 	RTRUE	
-?ELS45:	FSET?	AIRLOCK-ELECTRICITY,ONBIT /?ELS48
-	CALL	YOU-CANT,0,AIRLOCK-ELECTRICITY,STR?44
+?ELS49:	FSET?	AIRLOCK-ELECTRICITY,ONBIT /?ELS52
+	CALL	YOU-CANT,FALSE-VALUE,AIRLOCK-ELECTRICITY,STR?39
 	RTRUE	
-?ELS48:	CALL	AIRLOCK-POP?
-	ZERO?	STACK /?CND43
-	CALL	YOU-CANT,0,AIRLOCK,STR?72
+?ELS52:	CALL	AIRLOCK-POP?
+	ZERO?	STACK /?CND47
+	CALL	YOU-CANT,FALSE-VALUE,AIRLOCK,STR?67
 	RTRUE	
-?CND43:	ZERO?	GREENUP-ESCAPE \?CND51
-	FSET?	SUB-DOOR,OPENBIT \?CND54
-	CALL	YOU-CANT,0,SUB-DOOR,STR?23
+?CND47:	ZERO?	GREENUP-ESCAPE \?CND55
+	FSET?	SUB-DOOR,OPENBIT \?CND58
+	CALL	YOU-CANT,FALSE-VALUE,SUB-DOOR,STR?21
 	RTRUE	
-?CND54:	FSET?	AIRLOCK-ROOF,OPENBIT \?CND51
+?CND58:	FSET?	AIRLOCK-ROOF,OPENBIT \?CND55
 	CALL	THIS-IS-IT,AIRLOCK-ROOF
 	PRINTI	"A safety mechanism prevents it. The "
 	PRINTD	AIRLOCK-ROOF
 	PRINTR	" is open!"
-?CND51:	ZERO?	GREENUP-ESCAPE /?ELS66
-	GRTR?	4,GREENUP-ESCAPE \?ELS66
+?CND55:	ZERO?	GREENUP-ESCAPE /?ELS70
+	GRTR?	4,GREENUP-ESCAPE \?ELS70
 	PRINTI	"Greenup is frantically scrambling back up the ladder to avoid being swept off and drowned! "
 	CALL	GREENUP-CUFF
 	PRINTI	"Tip immediately empties the "
 	PRINTD	AIRLOCK
 	PRINTR	" again."
-?ELS66:	EQUAL?	HERE,SUB,CRAWL-SPACE /?THN75
+?ELS70:	EQUAL?	HERE,SUB,CRAWL-SPACE /?THN79
 	EQUAL?	HERE,BLY-OFFICE,FOOT-OF-RAMP \FALSE
-?THN75:	CALL	QUEUE,I-AIRLOCK-EMPTY,2
+?THN79:	CALL	QUEUE,I-AIRLOCK-EMPTY,2
 	PUT	STACK,0,1
 	PRINTR	"This will take 1 turn."
-?ELS42:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS80
+?ELS46:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS84
 	CALL	PERFORM,PRSA,AIRLOCK-HATCH
 	RTRUE	
-?ELS80:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
-	ZERO?	SUB-IN-DOME \?CND83
-	EQUAL?	HERE,SUB,CRAWL-SPACE \?CND83
+?ELS84:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
+	ZERO?	SUB-IN-DOME \?CND87
+	EQUAL?	HERE,SUB,CRAWL-SPACE \?CND87
 	CALL	TOO-BAD-BUT,PRSO,STR?16
 	RTRUE	
-?CND83:	SET	'PRSO,AIRLOCK
+?CND87:	SET	'PRSO,AIRLOCK
 	CALL	CHEERS?
 	RFALSE	
 
@@ -202,7 +205,7 @@
 	.FUNCT	I-AIRLOCK-EMPTY
 	ZERO?	AIRLOCK-FULL /?ELS5
 	FSET?	AIRLOCK-HATCH,OPENBIT /FALSE
-	SET	'AIRLOCK-FULL,0
+	SET	'AIRLOCK-FULL,FALSE-VALUE
 	CRLF	
 	PRINTI	"The "
 	PRINTD	AIRLOCK
@@ -227,7 +230,7 @@ A ramp swings down from the top of the "
 	PRINTI	"."
 	CRLF	
 	RETURN	2
-?ELS5:	SET	'AIRLOCK-FULL,1
+?ELS5:	SET	'AIRLOCK-FULL,TRUE-VALUE
 	CRLF	
 	PRINTI	"The "
 	PRINTD	AIRLOCK
@@ -362,7 +365,7 @@ Doctor Walt Horvak, marine biologist and first-aid medic;
 	PRINTI	"The "
 	PRINTD	CREW-GLOBAL
 	CALL	NOT-HERE-PERSON,CREW
-	SET	'P-CONT,0
+	SET	'P-CONT,FALSE-VALUE
 	RTRUE	
 ?ELS5:	EQUAL?	PRSA,V?WALK-TO \?ELS11
 	CALL	PERFORM,PRSA,CREW
@@ -412,10 +415,10 @@ Doctor Walt Horvak, marine biologist and first-aid medic;
 	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR /FALSE
 	IN?	OXYGEN-GEAR,PLAYER \?THN8
 	FSET?	OXYGEN-GEAR,ONBIT /FALSE
-?THN8:	PRINTI	"You are having"
+?THN8:	PRINTI	"You are having "
 	GRTR?	13,DOME-AIR-BAD? /?CND12
-	PRINTI	" real"
-?CND12:	PRINTR	" trouble breathing."
+	PRINTI	"real "
+?CND12:	PRINTR	"trouble breathing."
 
 
 	.FUNCT	TIP-REPORTS?
@@ -432,7 +435,7 @@ Doctor Walt Horvak, marine biologist and first-aid medic;
 	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS5
 	ZERO?	DOME-AIR-BAD? \?CND6
 	SET	'DOME-AIR-BAD?,INITIAL-DOME-AIR-BAD
-	SET	'DOME-AIR-CRIME,1
+	SET	'DOME-AIR-CRIME,TRUE-VALUE
 	CALL	QUEUE,I-DOME-AIR,-1
 	PUT	STACK,0,1
 	CALL	VISIBLE?,BLY >X
@@ -516,7 +519,7 @@ At this desperate moment, "
 	FSET	SPECIAL-TOOL,TOUCHBIT
 	REMOVE	SPECIAL-TOOL-GLOBAL
 	CALL	FIX-AIR-SUPPLY
-	SET	'HORVAK-FIXED-AIR,1
+	SET	'HORVAK-FIXED-AIR,TRUE-VALUE
 	PRINTI	". He's clutching an oddly-shaped gadget.
 "
 	CALL	TIP-SAYS
@@ -545,9 +548,9 @@ At this desperate moment, "
 ?ELS89:	PRINTI	". He "
 	LOC	HORVAK
 	EQUAL?	HERE,STACK \?ELS118
-	PUSH	STR?74
+	PUSH	STR?69
 	JUMP	?CND114
-?ELS118:	PUSH	STR?65
+?ELS118:	PUSH	STR?62
 ?CND114:	PRINT	STACK
 	PRINTI	"s, ""I never wanted it to go this far! I sabotaged the "
 	PRINTD	AIR-SUPPLY-SYSTEM
@@ -568,7 +571,7 @@ As Doc breaks down in tears and Bly suffocates, you realize there's no point in
 	PUT	STACK,0,0
 	CALL	QUEUE,I-ANTRIM-TO-SUB,10
 	PUT	STACK,0,1
-	SET	'DOME-AIR-BAD?,0
+	SET	'DOME-AIR-BAD?,FALSE-VALUE
 	FSET?	BLY,MUNGBIT \FALSE
 	FCLEAR	BLY,MUNGBIT
 	FCLEAR	GREENUP,MUNGBIT
@@ -620,7 +623,7 @@ As Doc breaks down in tears and Bly suffocates, you realize there's no point in
 ?ELS29:	PRINTD	BLY
 	PRINTR	" and the others gather to shake your hand and wish you luck on your perilous mission."
 ?ELS22:	ZERO?	BLY-WELCOMED \FALSE
-	SET	'BLY-WELCOMED,1
+	SET	'BLY-WELCOMED,TRUE-VALUE
 	PRINTD	BLY
 	PRINTI	" says, """
 	CALL	BLY-WELCOME
@@ -652,13 +655,13 @@ As Doc breaks down in tears and Bly suffocates, you realize there's no point in
 	EQUAL?	EXCLAM-DOME-AIR-BAD,DOME-AIR-BAD? \FALSE
 	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \FALSE
 	CRLF	
-	CALL	BADGES-RED,1
+	CALL	BADGES-RED,TRUE-VALUE
 	RTRUE	
 
 
 	.FUNCT	BADGES-RED,SHOUT?=0
 	ZERO?	BADGES-RED-SAID? \FALSE
-	SET	'BADGES-RED-SAID?,1
+	SET	'BADGES-RED-SAID?,TRUE-VALUE
 	ZERO?	SHOUT? /?CND6
 	PRINTI	"Someone shouts, "
 ?CND6:	PRINTI	"""Our badges are turning red! The air's bad! Everyone use your "
@@ -674,15 +677,15 @@ As Doc breaks down in tears and Bly suffocates, you realize there's no point in
 
 	.FUNCT	FROM-HERE,DIR1,DIR2
 	PRINTI	"From here, you can go "
-	CALL	DIR-PRINT,DIR1,0
+	CALL	DIR-PRINT,DIR1,FALSE-VALUE
 	PRINTI	" or "
-	CALL	DIR-PRINT,DIR2,0
+	CALL	DIR-PRINT,DIR2,FALSE-VALUE
 	PRINTR	" into the building."
 
 
 	.FUNCT	WOMENS-QUARTERS-F,RARG=0
 	EQUAL?	RARG,M-LOOK \FALSE
-	CALL	QUARTERS-F,WOMENS-QUARTERS,STR?75
+	CALL	QUARTERS-F,WOMENS-QUARTERS,STR?70
 	RSTACK	
 
 
@@ -694,7 +697,7 @@ As Doc breaks down in tears and Bly suffocates, you realize there's no point in
 
 	.FUNCT	MENS-QUARTERS-F,RARG=0
 	EQUAL?	RARG,M-LOOK \FALSE
-	CALL	QUARTERS-F,MENS-QUARTERS,STR?76
+	CALL	QUARTERS-F,MENS-QUARTERS,STR?71
 	RSTACK	
 
 
@@ -744,7 +747,7 @@ As Doc breaks down in tears and Bly suffocates, you realize there's no point in
 	PRINTI	", that he will never willingly surrender it. You have no right to demand it without a search warrant. The "
 	PRINTD	AQUADOME
 	PRINTR	" is neither a military establishment nor a ship at sea, so you could get in legal trouble."
-?ELS16:	CALL	HE-SHE-IT,WINNER,1,STR?77
+?ELS16:	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?72
 	PRINTI	", "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	". Do not pursue this any further, or you will lose the respect and cooperation of the "
@@ -771,7 +774,7 @@ There must be some way! She doesn't do everything by the rule book. She even bre
 "
 	FSET?	SPECIAL-TOOL,TOUCHBIT \TRUE
 	PRINTI	"
-Well! Sounds as if "
+Well! It sounds as if "
 	PRINTD	HORVAK
 	PRINTI	" found the answer to his problem by sabotaging the "
 	PRINTD	AIR-SUPPLY-SYSTEM
@@ -832,13 +835,13 @@ Well! Sounds as if "
 ?CND17:	ZERO?	HORVAK-TOLD-AH \TRUE
 	FSET?	DART,MUNGBIT \TRUE
 	FSET?	HORVAK,BUSYBIT /TRUE
-	SET	'HORVAK-TOLD-AH,1
+	SET	'HORVAK-TOLD-AH,TRUE-VALUE
 	CRLF	
 	PRINTD	HORVAK
 	PRINTI	" says:
 """
 	CALL	PRINT-NAME,FIRST-NAME
-	PRINTI	", right after the Snark ceased its attack, I detected a high concentration of AH molecules in the "
+	PRINTI	", right after the Snark ceased its attack, I detected a high concentration of A.H. molecules in the "
 	PRINTD	GLOBAL-WATER
 	PRINTI	" around the "
 	PRINTD	AQUADOME
@@ -855,12 +858,12 @@ Well! Sounds as if "
 	PRINTD	CLAW
 	PRINTI	"s.
 But without knowing the creature's biochemistry, there's no guarantee the 'trank' will work. Shall I go ahead and make some up, anyhow?"""
-	CALL	YES?
+	CALL	YES? >MAGLOC
 ?CND31:	CALL	META-LOC,MAGAZINE >MAGLOC
 	CALL	IN-DOME?,MAGLOC
 	ZERO?	STACK /TRUE
 	CALL	TIP-SAYS
-	PRINTI	"Wait a minute! Wasn't there something about AH molecules in that "
+	PRINTI	"Wait a minute! Wasn't there something about A.H. molecules in that "
 	PRINTD	MAGAZINE
 	PRINTI	"? Shall "
 	EQUAL?	MAGLOC,HERE \?ELS43
@@ -876,7 +879,9 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	PRINTI	"Tip "
 	EQUAL?	MAGLOC,HERE /?CND60
 	PRINTI	"returns quickly and "
-?CND60:	PRINTI	"hands you the magazine. "
+?CND60:	PRINTI	"hands you the "
+	PRINTD	MAGAZINE
+	PRINTI	". "
 ?CND55:	CALL	THIS-IS-IT,HORVAK
 	PRINTD	HORVAK
 	PRINTR	" looks interested. ""I'd like to see that."""
@@ -920,7 +925,7 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 
 
 	.FUNCT	MICROPHONE-DOME-F
-	CALL	MICROPHONE-F,1
+	CALL	MICROPHONE-F,TRUE-VALUE
 	RSTACK	
 
 
@@ -961,16 +966,16 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	CALL	EXIT-VERB?
 	ZERO?	STACK /?ELS28
 	ZERO?	GREENUP-ESCAPE /?ELS35
-	CALL	HE-SHE-IT,WINNER,1
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
 	PRINTR	"'d better stay here and trap Greenup."
 ?ELS35:	FSET?	SPECIAL-TOOL,INVISIBLE \FALSE
 	EQUAL?	WINNER,PLAYER \FALSE
-	PRINTI	"As you start to leave, you notice"
+	PRINTI	"As you start to leave, you notice "
 	CALL	SPECIAL-TOOL-VISIBLE
 	RSTACK	
 ?ELS28:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \FALSE
 	FSET?	SPECIAL-TOOL,INVISIBLE \FALSE
-	PRINTI	"You find"
+	PRINTI	"You find "
 	CALL	SPECIAL-TOOL-VISIBLE
 	RSTACK	
 
@@ -980,13 +985,13 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	FSET	SPECIAL-TOOL,TOUCHBIT
 	REMOVE	SPECIAL-TOOL-GLOBAL
 	CALL	THIS-IS-IT,SPECIAL-TOOL
-	PRINTI	" an oddly shaped metallic object lying under Zoe's desk. It must be the "
+	PRINTI	"an oddly shaped metallic object lying under Zoe's desk. It must be the "
 	PRINTD	SPECIAL-TOOL
 	PRINTR	"!"
 
 
 	.FUNCT	ZOE-MENTIONS-EVIDENCE
-	SET	'ZOE-MENTIONED-EVIDENCE,1
+	SET	'ZOE-MENTIONED-EVIDENCE,TRUE-VALUE
 	MOVE	TRAITOR,GLOBAL-OBJECTS
 	CALL	THIS-IS-IT,EVIDENCE
 	CALL	QUEUE,I-BLY-SAYS,6
@@ -1003,16 +1008,16 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	PRINTD	AQUADOME
 	PRINTI	", "
 	CALL	PRINT-NAME,FIRST-NAME
-	PRINTI	"!"
+	PRINTI	"! "
 	ZERO?	DOME-AIR-CRIME /?CND10
-	PRINTI	" I'm not saying that just because the "
+	PRINTI	"I'm not saying that just because the "
 	PRINTD	AIR-SUPPLY-SYSTEM
-	PRINTI	" had been sabotaged."
-?CND10:	PRINTI	" I discovered "
+	PRINTI	" was sabotaged. "
+?CND10:	PRINTI	"I discovered "
 	ZERO?	DOME-AIR-CRIME /?ELS22
-	PUSH	STR?78
+	PUSH	STR?73
 	JUMP	?CND18
-?ELS22:	PUSH	STR?79
+?ELS22:	PUSH	STR?74
 ?CND18:	PRINT	STACK
 	PRINTD	EVIDENCE
 	PRINTI	" after we talked on the "
@@ -1023,7 +1028,7 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	.FUNCT	BLY-DESK-F
 	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
 	FSET?	SPECIAL-TOOL,TOUCHBIT /FALSE
-	PRINTI	"There's"
+	PRINTI	"There's "
 	CALL	SPECIAL-TOOL-VISIBLE
 	RSTACK	
 
@@ -1031,17 +1036,17 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	.FUNCT	BLACK-BOX-F
 	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS5
 	FSET?	BLACK-BOX,OPENBIT \?ELS10
-	SET	'BLACK-BOX-EXAMINED,1
+	SET	'BLACK-BOX-EXAMINED,TRUE-VALUE
 	PRINTI	"After a brief study of the "
 	PRINTD	BLACK-CIRCUITRY
-	PRINTR	", you deduce its purpose: it was designed to change the sonar output so the ultrasonic pulses make a more complex pattern (for example BURPETY-BURP-B'DURP) instead of just a simple, clear-cut BURP. This would also make fuzzier blips."
+	PRINTR	", you deduce its purpose: it was designed to change the sonar output so the ultrasonic pulses make a more complex pattern (for example BURPETY BURP B'DURP) instead of just a simple, clear-cut BURP. This would also make fuzzier blips."
 ?ELS10:	PRINTR	"You'll need a suitable tool to open its cover."
 ?ELS5:	EQUAL?	PRSA,V?OPEN-WITH,V?OPEN \FALSE
 	FSET?	BLACK-BOX,OPENBIT \?ELS23
-	CALL	ALREADY,BLACK-BOX,STR?23
+	CALL	ALREADY,BLACK-BOX,STR?21
 	RSTACK	
 ?ELS23:	EQUAL?	PRSI,UNIVERSAL-TOOL \?ELS25
-	CALL	OKAY,BLACK-BOX,STR?23
+	CALL	OKAY,BLACK-BOX,STR?21
 	RSTACK	
 ?ELS25:	PRINTI	"You can't open it with"
 	ZERO?	PRSI /?ELS32
@@ -1117,7 +1122,7 @@ But without knowing the creature's biochemistry, there's no guarantee the 'trank
 	PRINTD	AIRLOCK-ROOF
 	PRINTI	": "
 	FSET?	AIRLOCK-ROOF,OPENBIT \?ELS16
-	PUSH	STR?23
+	PUSH	STR?21
 	JUMP	?CND12
 ?ELS16:	PUSH	STR?17
 ?CND12:	PRINT	STACK
@@ -1237,13 +1242,9 @@ Tip reports that the part under his seat appears to be okay."
 	CALL	THIS-IS-IT,ELECTROLYTE-RELAY
 	PRINTR	"Something is lying at the base of the cylinder, just inside the housing."
 ?ELS24:	PRINTR	"There's a lot of complicated machinery inside."
-?ELS19:	PRINTI	"The first thing you notice is a stenciled sign saying: ""To repair "
-	PRINTD	AIR-SUPPLY-SYSTEM
-	PRINTI	", first open "
-	PRINTD	ACCESS-PLATE
-	PRINTI	" with "
-	PRINTD	SPECIAL-TOOL
-	PRINTR	" hanging on hook at right."" An arrow points to this hook."
+?ELS19:	PRINTI	"The first thing you notice is a stenciled sign saying: "
+	CALL	READ-AIR-SUPPLY
+	RSTACK	
 ?ELS14:	CALL	TOO-FAR-AWAY,AIR-SUPPLY-SYSTEM
 	RSTACK	
 ?ELS9:	EQUAL?	PRSA,V?WALK-TO,V?FIND \?ELS45
@@ -1257,6 +1258,16 @@ Tip reports that the part under his seat appears to be okay."
 	RTRUE	
 
 
+	.FUNCT	READ-AIR-SUPPLY
+	PRINTI	"""To repair "
+	PRINTD	AIR-SUPPLY-SYSTEM
+	PRINTI	", first open "
+	PRINTD	ACCESS-PLATE
+	PRINTI	" with "
+	PRINTD	SPECIAL-TOOL
+	PRINTR	" hanging on hook at right."" An arrow points to this hook."
+
+
 	.FUNCT	AIR-SUPPLY-VERB?
 	EQUAL?	PRSA,V?YELL-FOR /?THN6
 	EQUAL?	PRSA,V?TAKE,V?FIND,V?GIVE \?ELS5
@@ -1270,30 +1281,33 @@ Tip reports that the part under his seat appears to be okay."
 
 
 	.FUNCT	ACCESS-PLATE-F
-	EQUAL?	PRSA,V?EXAMINE \?ELS5
-	FSET?	ACCESS-PLATE,OPENBIT \?ELS10
+	EQUAL?	PRSA,V?READ \?ELS5
+	CALL	READ-AIR-SUPPLY
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE \?ELS7
+	FSET?	ACCESS-PLATE,OPENBIT \?ELS12
 	PRINTR	"It's open."
-?ELS10:	PRINTI	"It's held in place on the cylinder by curiously-shaped fram bolts, which no ordinary wrench will fit."
-	FSET	AIR-SUPPLY-SYSTEM,TOUCHBIT
+?ELS12:	PRINTI	"It's held in place on the cylinder by curiously-shaped fram bolts, which no ordinary wrench will fit."
+	FSET?	AIR-SUPPLY-SYSTEM,TOUCHBIT /TRUE
 	PRINTI	" To open it, you need a "
 	PRINTD	SPECIAL-TOOL
 	PRINTR	", or something like it."
-?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS23
+?ELS7:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS25
 	CALL	PERFORM,PRSA,AIR-SUPPLY-SYSTEM,PRSI
 	RTRUE	
-?ELS23:	EQUAL?	PRSA,V?CLOSE \?ELS25
+?ELS25:	EQUAL?	PRSA,V?CLOSE \?ELS27
 	FSET?	ACCESS-PLATE,OPENBIT \?ELS32
 	FCLEAR	ACCESS-PLATE,OPENBIT
 	CALL	OKAY,AIR-SUPPLY-SYSTEM,STR?17
 	RSTACK	
 ?ELS32:	CALL	ALREADY,AIR-SUPPLY-SYSTEM,STR?17
 	RSTACK	
-?ELS25:	EQUAL?	PRSA,V?TAKE-WITH,V?OPEN-WITH,V?OPEN \?ELS36
+?ELS27:	EQUAL?	PRSA,V?TAKE-WITH,V?OPEN-WITH,V?OPEN \?ELS36
 	EQUAL?	PRSI,SPECIAL-TOOL,UNIVERSAL-TOOL \?ELS36
 	FSET?	ACCESS-PLATE,OPENBIT \?ELS43
-	CALL	ALREADY,ACCESS-PLATE,STR?23
+	CALL	ALREADY,ACCESS-PLATE,STR?21
 	RSTACK	
-?ELS43:	CALL	OKAY,ACCESS-PLATE,STR?23
+?ELS43:	CALL	OKAY,ACCESS-PLATE,STR?21
 	FSET	AIR-SUPPLY-SYSTEM,OPENBIT
 	FSET	AIR-SUPPLY-SYSTEM,TOUCHBIT
 	CALL	PERFORM,V?LOOK-INSIDE,AIR-SUPPLY-SYSTEM
@@ -1301,7 +1315,7 @@ Tip reports that the part under his seat appears to be okay."
 	RTRUE	
 ?ELS36:	EQUAL?	PRSA,V?TAKE-WITH,V?TAKE,V?OPEN \FALSE
 	FSET?	ACCESS-PLATE,OPENBIT \?ELS52
-	CALL	ALREADY,ACCESS-PLATE,STR?23
+	CALL	ALREADY,ACCESS-PLATE,STR?21
 	RSTACK	
 ?ELS52:	EQUAL?	PRSI,SPECIAL-TOOL-GLOBAL \?ELS54
 	CALL	NOT-HERE,PRSI
@@ -1333,7 +1347,7 @@ Tip reports that the part under his seat appears to be okay."
 
 
 	.FUNCT	ARROW-F
-	EQUAL?	PRSA,V?FOLLOW \FALSE
+	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE,V?FOLLOW \FALSE
 	PRINTR	"It points to the hook."
 
 
@@ -1384,7 +1398,7 @@ Tip reports that the part under his seat appears to be okay."
 	FCLEAR	ELECTROLYTE-RELAY,TAKEBIT
 	FSET	ELECTROLYTE-RELAY,NDESCBIT
 	FCLEAR	ELECTROLYTE-RELAY,MUNGBIT
-	PUTP	ELECTROLYTE-RELAY,P?TEXT,STR?82
+	PUTP	ELECTROLYTE-RELAY,P?TEXT,STR?77
 	RTRUE	
 
 
diff --git a/dome.zil b/dome.zil
index f37555a..0f50d94 100644
--- a/dome.zil
+++ b/dome.zil
@@ -19,17 +19,17 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	       <PERFORM ,V?FIND ,PLAYER>
 	       <RTRUE>)
 	      (,SUB-IN-OPEN-SEA
-	       %<XTELL
+	       <TELL
 "Its location is stored in the " D ,AUTO-PILOT "'s computer memory." CR>)
 	      (<AND <NOT ,SUB-IN-DOME>
 		    <NOT <==? ,NOW-TERRAIN ,SEA-TERRAIN>>>
-	       %<XTELL
+	       <TELL
 "\"The " D ,AQUADOME " encloses the " ,URS " of " D
 ,IU-GLOBAL ", on the ocean floor off the Atlantic coast. Most " LN "
 subs can reach it by " D ,AUTO-PILOT ".\"" CR>)>)
        (<AND <VERB? EXAMINE> <NOT <L? ,DISTANCE-FROM-BAY ,AQUADOME-VISIBLE>>>
 	<SETG P-WON <>>
-	%<XTELL <GETP ,LOCAL-SUB ,P?TEXT> CR>)
+	<TELL <GETP ,LOCAL-SUB ,P?TEXT> CR>)
        (<VERB? LOOK-INSIDE LOOK-OUTSIDE>
 	<PERFORM ,PRSA ,WINDOW>
 	<RTRUE>)
@@ -46,14 +46,14 @@ subs can reach it by " D ,AUTO-PILOT ".\"" CR>)>)
 	       <PERFORM ,V?FIND ,PLAYER>
 	       <RTRUE>)
 	      (,SUB-IN-DOME
-	       %<XTELL "You're in it!" CR>)
+	       <TELL "You're in it!" CR>)
 	      (,SUB-IN-OPEN-SEA	;<FSET? ,AUTO-PILOT ,ONBIT>
-	       %<XTELL "Let the " D ,AUTO-PILOT " handle that." CR>)
-	      (T %<XTELL "First you must reach the open sea." CR>)>)>>
+	       <TELL "Let the " D ,AUTO-PILOT " handle that." CR>)
+	      (T <TELL "First you must reach the open sea." CR>)>)>>
 
 <ROUTINE IN-DOME? (RM)
-	<OR <AND ,SUB-IN-DOME <EQUAL? .RM ,SUB ,CRAWL-SPACE>>
-	    <ZMEMQ .RM ,IN-DOME-AROUND>>>
+ <COND (<EQUAL? .RM ,SUB ,CRAWL-SPACE> ,SUB-IN-DOME)
+       (<ZMEMQ .RM ,IN-DOME-AROUND> T)>>
 
 <ROUTINE AIR-ROOM? (RM)
 	<OR <EQUAL? .RM ,FOOT-OF-RAMP ,AIRLOCK ,AIRLOCK-WALL>
@@ -75,29 +75,29 @@ subs can reach it by " D ,AUTO-PILOT ".\"" CR>)>)
 
 <ROUTINE WINDOW-F ("AUX" ;(RM <WINDOW-ROOM ,HERE ,PRSO>) POP)
 	 <COND (<VERB? BRUSH>
-		%<XTELL
+		<TELL
 "The window is clean enough without your interference." CR>)
 	       (<VERB? EXAMINE>
-		%<XTELL
+		<TELL
 "The window is a simple plastic sheet, giving a view of the dome outside."
 CR>)
 	       (<VERB? LOOK-INSIDE LOOK-OUTSIDE>
 		<COND (<0? ,SNARK-ATTACK-COUNT>
-		       %<XTELL "You can see the dome outside." CR>)
+		       <TELL "You can see the dome outside." CR>)
 		      (T
 		       ;<MOVE-HERE-NOT-SUB ,BLY>
 		       <MOVE ,BLY ,HERE>
-		       %<XTELL	;" to the southeast"
+		       <TELL	;" to the southeast"
 "The " D ,AQUADOME "'s search lights probe the ocean, but
 the " D ,GLOBAL-WATER " is too murky for the beams to penetrate.|
 \"Tip's right!\" " D ,BLY " says. \"That must be the " D ,SNARK " out there.
 Its tentacles churned up silt from the seabed that way during its first
 attack, "FN"!\"" CR>)>)
 	       (<VERB? MUNG>
-		%<XTELL
+		<TELL
 "Vandalism is for vandals, not famous inventors!" CR>)
 	       (<VERB? OPEN CLOSE LOCK UNLOCK>
-		%<XTELL "The window can't be opened." CR>)>>
+		<TELL "The window can't be opened." CR>)>>
 
 <OBJECT EXERCISE-TRACK
 	(IN GLOBAL-OBJECTS)
@@ -134,10 +134,12 @@ attack, "FN"!\"" CR>)>)
 	<COND (<OR ,GREENUP-ESCAPE ,GREENUP-TRAPPED>
 	       <MOVE ,LOWELL ,HERE>
 	       <MOVE ,ANTRIM ,HERE>
-	       %<XTELL "Two of the crew are with you." CR>)>)
+	       <TELL "Two of the crew are with you." CR>)>)
        (<==? .RARG ,M-LOOK>
 	<TELL "You're now in the " D ,AIRLOCK", at the foot of the ramp." CR>)
        (.RARG <RFALSE>)
+       (<AND <REMOTE-VERB?> <NOT <VERB? THROUGH WALK-TO>>>
+	<RFALSE>)
        (<AND <NOT ,SUB-IN-DOME> <NOT <SUB-OUTSIDE-AIRLOCK?>>>
 	<NOT-HERE ,AIRLOCK>)
        (<VERB? EMPTY>
@@ -148,7 +150,7 @@ attack, "FN"!\"" CR>)>)
 	      (<OR <EQUAL? ,HERE ,SUB ,CRAWL-SPACE>
 		   <EQUAL? ,HERE ,BLY-OFFICE ,FOOT-OF-RAMP>>
 	       <ENABLE <QUEUE I-AIRLOCK-EMPTY 2>>
-	       %<XTELL "This will take 1 turn." CR>
+	       <TELL "This will take 1 turn." CR>
 	       ;<COND (,GREENUP-ESCAPE
 		      <COND (<G? 4 ,GREENUP-ESCAPE>
 			     <TELL
@@ -193,11 +195,11 @@ CR>
 	       <COND (<FSET? ,AIRLOCK-ROOF ,OPENBIT>
 		      ;<ENABLE <QUEUE I-DOME-FLOODED 2>>
 		      <THIS-IS-IT ,AIRLOCK-ROOF>
-		      %<XTELL
+		      <TELL
 "A safety mechanism prevents it. The " D ,AIRLOCK-ROOF " is open!" CR>
 		      <RTRUE>)>)>
 	<COND (<AND ,GREENUP-ESCAPE <G? 4 ,GREENUP-ESCAPE>>
-	       %<XTELL
+	       <TELL
 "Greenup is frantically scrambling back up the ladder to avoid being
 swept off and drowned! ">
 	       <GREENUP-CUFF>
@@ -206,7 +208,7 @@ swept off and drowned! ">
 	      (<OR <EQUAL? ,HERE ,SUB ,CRAWL-SPACE>
 		   <EQUAL? ,HERE ,BLY-OFFICE ,FOOT-OF-RAMP>>
 	       <ENABLE <QUEUE I-AIRLOCK-EMPTY 2>>
-	       %<XTELL "This will take 1 turn." CR>
+	       <TELL "This will take 1 turn." CR>
 	       <RTRUE>)>)
        (<VERB? OPEN CLOSE>
 	;<COND (<VERB? FILL>
@@ -228,14 +230,14 @@ swept off and drowned! ">
 	     <ZMEMQ ,HERE ,IN-DOME-AROUND>
 	     <NOT <EQUAL? ,HERE ,AIRLOCK ,AIRLOCK-WALL>>>
 	<COND (<READY-FOR-SNARK?>
-	       %<XTELL
+	       <TELL
 "Cheers follow as you start up the ladder into the " D ,AIRLOCK "." CR>)>)>>
 
 <ROUTINE I-AIRLOCK-EMPTY ()
  <COND (,AIRLOCK-FULL
 	<COND (<FSET? ,AIRLOCK-HATCH ,OPENBIT> <RFALSE>)>
 	<SETG AIRLOCK-FULL <>>
-	%<XTELL CR
+	<TELL CR
 "The " D ,AIRLOCK " is now clear of " D ,GLOBAL-WATER " and filled with
 air at sea-level pressure.">
 	<COND (<FSET? ,ENGINE ,ONBIT>
@@ -244,7 +246,7 @@ air at sea-level pressure.">
 	<COND (T ;<EQUAL? ,HERE ,SUB>
 	       <FSET ,AIRLOCK-ROOF ,OPENBIT>
 	       <THIS-IS-IT ,SUB-DOOR>
-	       %<XTELL CR
+	       <TELL CR
 "The roof of the " D ,AIRLOCK " is sliding open, and the " D ,SUB
 " is in dry dock.|
 A ramp swings down from the top of the " D ,AIRLOCK "'s north wall to your "
@@ -252,7 +254,7 @@ D ,SUB-DOOR "." CR>
 	       <RFATAL>)>)
        (T
 	<SETG AIRLOCK-FULL T>
-	%<XTELL CR
+	<TELL CR
 "The " D ,AIRLOCK " is now filled with " D ,GLOBAL-WATER "." CR>
 	<COND (,SUB-IN-DOME
 	       <TELL
@@ -269,7 +271,7 @@ grip." CR>)>)>>
 
 <ROUTINE GREENUP-LADDER-F ()
  <COND (<VERB? BOARD ;ENTER CLIMB-DOWN CLIMB-ON CLIMB-UP THROUGH>
-	%<XTELL "The " D ,GREENUP-LADDER " is only for emergencies." CR>)>>
+	<TELL "The " D ,GREENUP-LADDER " is only for emergencies." CR>)>>
 ]
 <OBJECT AIRLOCK-RAMP
 	(IN LOCAL-GLOBALS)
@@ -306,10 +308,10 @@ grip." CR>)>)>>
 
 <ROUTINE AIRLOCK-WALL-F ("OPTIONAL" (ARG <>))
 	<COND (<==? .ARG ,M-LOOK>
-	       %<XTELL
+	       <TELL
 "You're now atop the north wall of the " D ,AQUADOME "'s " D ,AIRLOCK "."
 CR>
-	       %<XTELL
+	       <TELL
 "This gives you a bird's-eye view of the whole " ,URS " of "
 D ,IU-GLOBAL ".|
 |
@@ -334,10 +336,10 @@ outside the " D ,AIRLOCK "'s north wall.|
 	       <COND (<AND <CREW-5-TOGETHER?>
 			   <IN? ,CREW ,FOOT-OF-RAMP>
 			   <NOT <FSET? ,BLY ,MUNGBIT>>>
-		      %<XTELL D ,BLY " and her five " D ,CREW " are">
+		      <TELL D ,BLY " and her five " D ,CREW " are">
 		      <COND (<NOT <FSET? ,FOOT-OF-RAMP ,TOUCHBIT>>
 			     <TELL " waiting to greet you">)>
-		      %<XTELL " at the foot of this ladder." CR>)>)>>
+		      <TELL " at the foot of this ladder." CR>)>)>>
 
 <OBJECT AIRLOCK-LADDER
 	(IN LOCAL-GLOBALS)
@@ -371,7 +373,7 @@ outside the " D ,AIRLOCK "'s north wall.|
 		      <IOBJ? CREW CREW-GLOBAL>>
 		 <AND <VERB? WHAT> <DOBJ? CREW CREW-GLOBAL>>
 		 <AND <VERB? TELL-ABOUT> <DOBJ? PLAYER>>>>
-	%<XTELL
+	<TELL
 "\"The crew consists of:|
 Doctor Walt Horvak, marine biologist and first-aid medic;|
 " D ,ANTRIM ", laser expert and frogman;|
@@ -386,10 +388,10 @@ Doctor Walt Horvak, marine biologist and first-aid medic;|
 	<TELL D ,PRSO " nods at you." CR>)
        (<VERB? DIAGNOSE EXAMINE>
 	<COND (,DOME-AIR-BAD?
-	       %<XTELL
+	       <TELL
 D ,BLY " and the two divers, Greenup and Lowell, are without
 oxygen." CR>)
-	      (T %<XTELL "All the crew members are okay now." CR>)>)>>
+	      (T <TELL "All the crew members are okay now." CR>)>)>>
 
 <OBJECT CREW-GLOBAL
 	(IN GLOBAL-OBJECTS)
@@ -448,11 +450,11 @@ oxygen." CR>)
 <ROUTINE EXAMINE-BADGE ()
 	<COND (,DOME-AIR-BAD?
 	       <COND (<FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>
-		      %<XTELL
+		      <TELL
 "The badge is turning red! The air is becoming unbreathable!">)
-		     (T %<XTELL
+		     (T <TELL
 "The badge is less red now. The air is improving.">)>)
-	      (T %<XTELL
+	      (T <TELL
 "When a badge turns red, the air is no longer breathable.
 It's not red now.">)>>
 
@@ -470,17 +472,17 @@ It's not red now.">)>>
        (<NOT <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>> <RFALSE>)
        (<AIR-SUPPLY-VERB?> <RFALSE>)
        (T
-	%<XTELL "Shouldn't you fix the " D ,AIR-SUPPLY-SYSTEM " first?" CR>)>>
+	<TELL "Shouldn't you fix the " D ,AIR-SUPPLY-SYSTEM " first?" CR>)>>
 
 <ROUTINE TROUBLE-BREATHING? ()
 	<COND (<VERB? WAIT-FOR WAIT-UNTIL>
 	       <RFALSE>)
 	      (<OR <NOT <IN? ,OXYGEN-GEAR ,PLAYER>>
 		   <NOT <FSET? ,OXYGEN-GEAR ,ONBIT>>>
-	       <TELL "You are having">
+	       <TELL "You are having ">
 	       <COND (<NOT <G? 13 ,DOME-AIR-BAD?>>
-		      <TELL " real">)>
-	       <TELL " trouble breathing." CR>)>>
+		      <TELL "real ">)>
+	       <TELL "trouble breathing." CR>)>>
 
 <ROUTINE TIP-REPORTS? ()
  <COND (<AND <NOT <==? ,HERE ,CENTER-OF-DOME>>
@@ -517,17 +519,17 @@ Everyone">
 	<SETG DOME-AIR-BAD? <+ 1 ,DOME-AIR-BAD?>>
 	;<COND (,DEBUG <TELL "[Air=" N ,DOME-AIR-BAD? "]" CR>)>
 	<COND (<==? 7 ,DOME-AIR-BAD?>
-	       %<XTELL CR
+	       <TELL CR
 "In 10 turns Bly, Greenup and Lowell, who were not carrying "
 D ,OXYGEN-GEAR ", will suffocate from
 lack of oxygen. In 20 turns, ">
 	       <COND (<IN? ,OXYGEN-GEAR ,PLAYER> <TELL "you and the others">)
 		     (T <TELL "those">)>
-	       %<XTELL
+	       <TELL
 " who do have " D ,OXYGEN-GEAR " will have exhausted their supply of
 oxygen. Need we say more?" CR>)
 	      (<==? 13 ,DOME-AIR-BAD?>
-	       %<XTELL CR
+	       <TELL CR
 "Zoe Bly and the two crew members without " D ,OXYGEN-GEAR " now
 have only 4 TURNS left to live! Their lives depend on you, " FN "!" CR>
 	       <COND (<AND <NOT <FSET? ,ACCESS-PLATE ,OPENBIT>>
@@ -539,12 +541,12 @@ have only 4 TURNS left to live! Their lives depend on you, " FN "!" CR>
 		      <COND (<NOT <IN? ,TIP ,HERE>>
 			     <MOVE ,TIP ,HERE>
 			     <TELL " runs up and">)>
-		      %<XTELL
+		      <TELL
 " gives you a " D ,UNIVERSAL-TOOL " and says, \"Here, " FN>
 		      <COND (<FSET? ,CENTER-OF-DOME ,TOUCHBIT>
-			     %<XTELL
+			     <TELL
 ", open the cylinder with this! It'll fit anything!\"" CR>)
-			    (T %<XTELL
+			    (T <TELL
 ", maybe you can use this somehow.\"" CR>)>)>
 	       <RTRUE>)
 	      (<==? 17 ,DOME-AIR-BAD?>
@@ -564,7 +566,7 @@ At this desperate moment, ">
 		      <REMOVE ,SPECIAL-TOOL-GLOBAL>
 		      <FIX-AIR-SUPPLY>
 		      <SETG HORVAK-FIXED-AIR T>
-		      %<XTELL
+		      <TELL
 ". He's clutching an oddly-shaped gadget.|
 ">
 		      <TIP-SAYS>
@@ -582,7 +584,7 @@ D ,ACCESS-PLATE ". ">)>
 fallen out of its socket. Horvak">
 		      <COND (<NOT <IN? ,ELECTROLYTE-RELAY ,HORVAK>>
 			     <TELL " takes it and">)>
-		      %<XTELL
+		      <TELL
 " screws it back in place; and within seconds, a fresh supply of oxygen
 is flowing out into the " D ,AQUADOME "." CR>)
 		     (T
@@ -617,7 +619,7 @@ point in continuing your mission.">
 				    <TELL CR
 D ,HORVAK " has just returned from the " D ,BLY-OFFICE ", where he went
 to get Bly's " D ,OXYGEN-GEAR ", but it's no longer needed." CR>)>
-			     %<XTELL CR
+			     <TELL CR
 D ,BLY " is sitting up and her normal color has returned. Ditto
 for Greenup and Lowell, who collapsed. All are recovering from their
 temporary lack of air." CR>
@@ -657,9 +659,9 @@ temporary lack of air." CR>
 		      <MOVE ,SIEGEL ,HERE>
 		      <MOVE ,LOWELL ,HERE>
 		      <COND (<OR ,GREENUP-ESCAPE ,GREENUP-TRAPPED>
-			     %<XTELL
+			     <TELL
 "The rest of the " D ,CREW " are with you." CR>)
-			    (T %<XTELL
+			    (T <TELL
 D ,BLY " and the others gather to shake your hand and wish you
 luck on your perilous mission." CR>)>)
 		     (<NOT ,BLY-WELCOMED>
@@ -674,16 +676,16 @@ luck on your perilous mission." CR>)>)
 		      <COND (<NOT <FSET? ,CREW ,TOUCHBIT>>
 			     <FSET ,CREW ,TOUCHBIT>
 			     <ENABLE <QUEUE I-BLY-PRIVATELY 15>>
-			     %<XTELL
+			     <TELL
 "You're now face-to-face with Zoe Bly and the " D ,CREW ". They are wearing
 badges which show the air quality in the " D ,AQUADOME "." CR>)
 			    (T
-			     %<XTELL "You're at the foot of the ladder. ">
+			     <TELL "You're at the foot of the ladder. ">
 			     <COND (<IN? ,BLY ,FOOT-OF-RAMP>
 				    <TELL "Zoe Bly and t">)
 				   (T <TELL "T">)>
-			     %<XTELL "he " D ,CREW " are still here." CR>)>)
-		     (T %<XTELL
+			     <TELL "he " D ,CREW " are still here." CR>)>)
+		     (T <TELL
 "You're now at the foot of the ladder." CR>)>)
 	      (<AND <==? .ARG ,M-END>
 		    <==? ,EXCLAM-DOME-AIR-BAD ,DOME-AIR-BAD?>
@@ -697,7 +699,7 @@ badges which show the air quality in the " D ,AQUADOME "." CR>)
 	<COND (<NOT ,BADGES-RED-SAID?>
 	       <SETG BADGES-RED-SAID? T>
 	       <COND (.SHOUT? <TELL "Someone shouts, ">)>
-	       %<XTELL
+	       <TELL
 "\"Our badges are turning red! The air's bad! Everyone use your "
 D ,OXYGEN-GEAR "!\"" CR>)>>
 
@@ -829,7 +831,7 @@ bunk and locker. In the center of the room are a table and chairs." CR>>
 
 <ROUTINE HORVAK-LOCKER-F ()
  <COND (<AND <VERB? LOOK-INSIDE> <FSET? ,HORVAK-LOCKER ,OPENBIT>>
-	%<XTELL
+	<TELL
 "The locker contains mostly clothing, toilet articles and books.">
 	<COND (<IN? ,DIARY ,HORVAK-LOCKER>
 	       <TELL " One of the books is labeled DIARY.">
@@ -843,7 +845,7 @@ bunk and locker. In the center of the room are a table and chairs." CR>>
 	      (<AND <FSET? ,HORVAK-LOCKER ,LOCKED>
 		    <NOT <IOBJ? UNIVERSAL-TOOL>>>
 	       <THIS-IS-IT ,HORVAK-KEY>
-	       %<XTELL
+	       <TELL
 "It's locked. The normal way to open its lock (which you yourself designed, " FN ") is with a key." CR>
 	       <RTRUE>)>
 	<FCLEAR ,HORVAK-LOCKER ,LOCKED>
@@ -864,14 +866,14 @@ bunk and locker. In the center of the room are a table and chairs." CR>>
  <COND (<OR <AND <IOBJ? HORVAK> <VERB? TAKE>>
 	    <AND <DOBJ? HORVAK> <VERB? ASK-FOR SEARCH-FOR>>>
 	<COND (<==? ,WINNER ,PLAYER>
-	       %<XTELL
+	       <TELL
 "Be warned, " FN ", that he will never willingly surrender it.
 You have no right to demand it without a search warrant.
 The " D ,AQUADOME " is neither a military establishment
 nor a ship at sea, so you could get in legal trouble." CR>)
 	      (T
 	       <HE-SHE-IT ,WINNER T "refuse">
-	       %<XTELL
+	       <TELL
 ", " FN ". Do not pursue this any further, or you will lose the
 respect and cooperation of the " D ,CREW ", and thereby abort your rescue
 mission. If you attempt to use force, they may even mutiny and place you
@@ -891,12 +893,12 @@ under arrest." CR>)>)>>
 	;<ENABLE <QUEUE I-TIP-SONAR-PLAN -1>>
 	<FSET ,DIARY ,OPENBIT>
 	<MOVE ,PHOTO ,HERE>
-	%<XTELL
+	<TELL
 "As you do so, a picture falls out. Oh, oh! It's a snapshot of Zoe Bly!" CR>)
        (<VERB? READ LOOK-INSIDE>
 	<COND (<NOT <FSET? ,DIARY ,OPENBIT>>
-	       %<XTELL "You must open it first." CR>)
-	      (T %<XTELL
+	       <TELL "You must open it first." CR>)
+	      (T <TELL
 "You quickly discover references to Zoe Bly. It seems clear that "
 D ,HORVAK " has fallen for Zoe. But her unsentimental manner is a
 large obstacle.|
@@ -911,7 +913,7 @@ only a human being, but a warm, desirable woman...!\"|
 ">
 	       <COND (<FSET? ,SPECIAL-TOOL ,TOUCHBIT>	;,DOME-AIR-CRIME
 		      <TELL "|
-Well! Sounds as if " D ,HORVAK " found the answer to his problem
+Well! It sounds as if " D ,HORVAK " found the answer to his problem
 by sabotaging the " D ,AIR-SUPPLY-SYSTEM " -- at a time when " D ,BLY
 " was breaking regulations by not wearing her " D ,OXYGEN-GEAR
 "!" CR>)>
@@ -988,7 +990,7 @@ It contains assorted hand tools, machine tools, and spare parts." CR>)>>
 
 <ROUTINE WORKSHOP-STUFF-F ()
  <COND (<VERB? MAKE>
-	%<XTELL
+	<TELL
 "That's too difficult, even for a famous young inventor." CR>)>>
 
 <OBJECT DOME-LAB-DOOR 
@@ -1034,26 +1036,26 @@ research. ">
 		   <FSET? ,HORVAK ,BUSYBIT>>
 	       <RTRUE>)>
 	<SETG HORVAK-TOLD-AH T>
-	%<XTELL CR
+	<TELL CR
 D ,HORVAK " says:|
 \"" FN ", right after the Snark ceased
-its attack, I detected a high concentration of AH molecules in the
+its attack, I detected a high concentration of A.H. molecules in the
 " D ,GLOBAL-WATER " around the " D ,AQUADOME ". Have you ever heard of such a
 phenomenon before?\"">
 	<COND (<NOT <YES?>>
-	       %<XTELL
+	       <TELL
 "\"I can make up an intense tranquilizer to subdue the " D ,SNARK ",\" "
 D ,HORVAK " continues. \"You could use one of our aquatic dart
 guns to inject it into the creature. You could mount the gun
 on one of the " D ,SUB "'s " D ,CLAW "s.|
 But without knowing the creature's biochemistry, there's no guarantee the
 'trank' will work. Shall I go ahead and make some up, anyhow?\"">
-	       <YES?>)>
+	       <SET MAGLOC <YES?>>)>
 	<SET MAGLOC <META-LOC ,MAGAZINE>>
 	<COND (<NOT <IN-DOME? .MAGLOC>> <RTRUE>)>
 	<TIP-SAYS>
-	%<XTELL
-"Wait a minute! Wasn't there something about AH
+	<TELL
+"Wait a minute! Wasn't there something about A.H.
 molecules in that " D ,MAGAZINE "? Shall ">
 	<COND (<EQUAL? .MAGLOC ,HERE>
 	       <TELL "we">)
@@ -1066,8 +1068,8 @@ molecules in that " D ,MAGAZINE "? Shall ">
 		      <MOVE ,MAGAZINE ,PLAYER>
 		      <TELL "Tip ">
 		      <COND (<NOT <EQUAL? .MAGLOC ,HERE>>
-			     %<XTELL "returns quickly and ">)>
-		      <TELL "hands you the magazine. ">)>
+			     <TELL "returns quickly and ">)>
+		      <TELL "hands you the " D ,MAGAZINE ". ">)>
 	       <THIS-IS-IT ,HORVAK>
 	       <TELL
 D ,HORVAK " looks interested. \"I'd like to see that.\"" CR>)>
@@ -1128,7 +1130,7 @@ detecting objects in the " D ,GLOBAL-WATER " around the dome." CR>)>>
 	(DESC "Aquadome sonar equipment")
 	(ADJECTIVE AQUADOME SONAR)
 	(SYNONYM SONAR SYSTEM EQUIPM SCREEN ;TRANSDUCER)
-	(FLAGS SURFACEBIT ;CONTBIT OPENBIT ONBIT ;ON?BIT VOWELBIT NDESCBIT NARTICLEBIT)
+	(FLAGS SURFACEBIT OPENBIT ONBIT ;ON?BIT VOWELBIT NDESCBIT NARTICLEBIT)
 	(CAPACITY 19)
 	(ACTION SONAR-EQUIPMENT-F)>
 
@@ -1236,20 +1238,20 @@ and a good view of the ocean through the " D ,WINDOW "." CR>)
 		    <NOT ,GREENUP-CUFFED>
 		    <NOT ,ZOE-MENTIONED-EVIDENCE>>
 	       <FCLEAR ,BLY ,NDESCBIT>
-	       %<XTELL "As you enter the office, ">
+	       <TELL "As you enter the office, ">
 	       <ZOE-MENTIONS-EVIDENCE>)
 	      (<AND ,GREENUP-ESCAPE <NOT <IN? ,BLY ,BLY-OFFICE>>>
 	       <MOVE ,BLY ,BLY-OFFICE>
-	       %<XTELL "Zoe comes with you." CR>)>)
+	       <TELL "Zoe comes with you." CR>)>)
        (<AND <==? .ARG ,M-BEG> <EXIT-VERB?>>
 	<COND (,GREENUP-ESCAPE
 	       <HE-SHE-IT ,WINNER T>
-	       %<XTELL "'d better stay here and trap Greenup." CR>)
+	       <TELL "'d better stay here and trap Greenup." CR>)
 	      (<AND <FSET? ,SPECIAL-TOOL ,INVISIBLE> <==? ,WINNER ,PLAYER>>
-	       <TELL "As you start to leave, you notice">
+	       <TELL "As you start to leave, you notice ">
 	       <SPECIAL-TOOL-VISIBLE>)>)
        (<AND <VERB? SEARCH SEARCH-FOR> <FSET? ,SPECIAL-TOOL ,INVISIBLE>>
-	<TELL "You find">
+	<TELL "You find ">
 	<SPECIAL-TOOL-VISIBLE>)>>
 
 <ROUTINE SPECIAL-TOOL-VISIBLE ()
@@ -1257,8 +1259,8 @@ and a good view of the ocean through the " D ,WINDOW "." CR>)
 	<FSET ,SPECIAL-TOOL ,TOUCHBIT>
 	<REMOVE ,SPECIAL-TOOL-GLOBAL>
 	<THIS-IS-IT ,SPECIAL-TOOL>
-	%<XTELL
-" an oddly shaped metallic object lying under Zoe's desk. It must
+	<TELL
+"an oddly shaped metallic object lying under Zoe's desk. It must
 be the " D ,SPECIAL-TOOL "!" CR>>
 
 <ROUTINE ZOE-MENTIONS-EVIDENCE ()
@@ -1272,13 +1274,13 @@ be the " D ,SPECIAL-TOOL "!" CR>>
 	<COND (<FSET? ,BLY-DOOR ,OPENBIT>
 	       <FCLEAR ,BLY-DOOR ,OPENBIT>
 	       <TELL " closes the door and">)>
-	%<XTELL " says:|
-\"There's a " D ,TRAITOR " here at the " D ,AQUADOME ", " FN "!">
+	<TELL " says:|
+\"There's a " D ,TRAITOR " here at the " D ,AQUADOME ", " FN "! ">
 	<COND (,DOME-AIR-CRIME
-	       %<XTELL
-" I'm not saying that just because the " D ,AIR-SUPPLY-SYSTEM
-" had been sabotaged.">)>
-	<TELL " I discovered "
+	       <TELL
+"I'm not saying that just because the " D ,AIR-SUPPLY-SYSTEM
+" was sabotaged. ">)>
+	<TELL "I discovered "
 	      <COND (,DOME-AIR-CRIME "other ") (T "the ")>
 	      D ,EVIDENCE " after we talked on the " D ,VIDEOPHONE
 	      "!\"" CR>>
@@ -1296,7 +1298,7 @@ be the " D ,SPECIAL-TOOL "!" CR>>
 <ROUTINE BLY-DESK-F ()
  <COND (<VERB? LOOK-UNDER>
 	<COND (<NOT <FSET? ,SPECIAL-TOOL ,TOUCHBIT>>
-	       <TELL "There's">
+	       <TELL "There's ">
 	       <SPECIAL-TOOL-VISIBLE>
 	       ;<RFALSE>)>)>>
 
@@ -1315,13 +1317,13 @@ be the " D ,SPECIAL-TOOL "!" CR>>
  <COND (<VERB? EXAMINE LOOK-INSIDE>
 	<COND (<FSET? ,BLACK-BOX ,OPENBIT>
 	       <SETG BLACK-BOX-EXAMINED T>
-	       %<XTELL
+	       <TELL
 "After a brief study of the " D ,BLACK-CIRCUITRY
 ", you deduce its purpose: it was
 designed to change the sonar output so the ultrasonic pulses make a more
-complex pattern (for example BURPETY-BURP-B'DURP) instead of just a simple,
+complex pattern (for example BURPETY BURP B'DURP) instead of just a simple,
 clear-cut BURP. This would also make fuzzier blips." CR>)
-	      (T %<XTELL
+	      (T <TELL
 "You'll need a suitable tool to open its cover." CR>)>)
        (<VERB? OPEN OPEN-WITH>
 	<COND (<FSET? ,BLACK-BOX ,OPENBIT>
@@ -1357,13 +1359,13 @@ clear-cut BURP. This would also make fuzzier blips." CR>)
 	<COND (,GREENUP-ESCAPE
 	       <ENABLE <QUEUE I-GREENUP-ESCAPE -1>>
 	       <COND (<EQUAL? ,GREENUP-ESCAPE 1>
-		      %<XTELL
+		      <TELL
 "The monitor screen shows Greenup's head just coming into view
 above the top of the " D ,AIRLOCK
 "'s west wall, as he climbs the outside ladder.|
 ">
 		      <COND (<NOT <FSET? ,AIRLOCK-ROOF ,OPENBIT>>
-			     %<XTELL
+			     <TELL
 "But since the " D ,AIRLOCK-ROOF " is closed,
 Greenup can't get into the " D ,SUB " to escape. ">
 			     <GREENUP-CUFF>
@@ -1372,7 +1374,7 @@ Greenup can't get into the " D ,SUB " to escape. ">
 "Once he reaches the top of this wall, he will come down the inside
 ladder to the " D ,SUB "." CR>)>)
 		     (T <RTRUE>	;"output from I-GREENUP-ESCAPE")>)
-	      (T %<XTELL
+	      (T <TELL
 D ,BLY " uses this monitor to check on activities in the " D ,AQUADOME "."
 CR>)>)>>
 
@@ -1391,7 +1393,7 @@ CR>)>)>>
        (<VERB? LAMP-OFF>
 	<COND (<AND ,GREENUP-ESCAPE ;<G? 5 ,GREENUP-ESCAPE>>
 	       <FCLEAR ,AIRLOCK-ELECTRICITY ,ONBIT>
-	       %<XTELL
+	       <TELL
 "Very good, " FN "! With the " D ,AIRLOCK-ELECTRICITY " off, the " D
 ,AIRLOCK-HATCH " won't respond to command signals from the " D ,SUB "
 and will remain closed.|
@@ -1412,7 +1414,7 @@ and will remain closed.|
 	<PERFORM ,V?LAMP-OFF ,AIRLOCK-ELECTRICITY>
 	<RTRUE>)
        (<VERB? ANALYZE EXAMINE READ>
-	%<XTELL
+	<TELL
 "MAIN OPERATING CONTROLS:|
 ">
 	<FIXED-FONT-ON>
@@ -1480,7 +1482,7 @@ want to find something, you'll have to search for it." CR>>
 	<NOT-HERE ,ESCAPE-POD-UNIT>)
        (<IN? ,ESCAPE-POD-UNIT ,SUB>
 	<COND (<VERB? ANALYZE EXAMINE>
-	       %<XTELL
+	       <TELL
 "A brief inspection under your seat leads to a horrifying discovery! A
 body-heat sensor was substituted for the electronic monitor, and a wire
 leads from the sensor to ">
@@ -1571,7 +1573,7 @@ But is this output good, breathable oxygen?" CR>)>)>>
 <OBJECT AIR-SUPPLY-SYSTEM-GLOBAL
 	(IN LOCAL-GLOBALS)
 	(DESC "Air Supply System")
-	(ADJECTIVE	AIR OXYGEN SUPPLY)
+	(ADJECTIVE	AIR OXYGEN SUPPLY AQUADOME DOME STATION)
 	(SYNONYM	SUPPLY SYSTEM CYLINDER HOUSING)
 	(FLAGS VOWELBIT)
 	(ACTION AIR-SUPPLY-SYSTEM-F)>
@@ -1579,7 +1581,7 @@ But is this output good, breathable oxygen?" CR>)>)>>
 <OBJECT AIR-SUPPLY-SYSTEM
 	(IN CENTER-OF-DOME)
 	(DESC "Air Supply System")
-	(ADJECTIVE	AIR OXYGEN SUPPLY)
+	(ADJECTIVE	AIR OXYGEN SUPPLY AQUADOME DOME STATION)
 	(SYNONYM	SUPPLY SYSTEM CYLINDER SIGN ;HOUSING)
 	(FLAGS NDESCBIT VOWELBIT CONTBIT ;SEARCHBIT MUNGBIT READBIT)
 	(CAPACITY 9)
@@ -1598,16 +1600,14 @@ But is this output good, breathable oxygen?" CR>)>)>>
 Something has been unscrewed from this space!" CR>
 			     <COND(<IN? ,ELECTROLYTE-RELAY ,AIR-SUPPLY-SYSTEM>
 				   <THIS-IS-IT ,ELECTROLYTE-RELAY>
-				   %<XTELL
+				   <TELL
 "Something is lying at the base of the cylinder, just inside the
 housing." CR>)>)
 			    (T <TELL
 "There's a lot of complicated machinery inside." CR>)>)
 		     (T <TELL
-"The first thing you notice is a stenciled sign saying: \"To repair "
-D ,AIR-SUPPLY-SYSTEM ", first open " D ,ACCESS-PLATE " with "
-D ,SPECIAL-TOOL " hanging on hook at right.\" An arrow points to this
-hook." CR>)>)
+"The first thing you notice is a stenciled sign saying: ">
+		      <READ-AIR-SUPPLY>)>)
 	      (T <TOO-FAR-AWAY ,AIR-SUPPLY-SYSTEM>)>)
        (<VERB? FIND WALK-TO>
 	<COND (<DOBJ? AIR-SUPPLY-SYSTEM-GLOBAL>
@@ -1625,6 +1625,12 @@ CR>)
 "May we suggest that the best way to find out about the system is to
 examine it." CR>)>>
 
+<ROUTINE READ-AIR-SUPPLY ()
+	<TELL
+"\"To repair " D ,AIR-SUPPLY-SYSTEM ", first open " D ,ACCESS-PLATE "
+with " D ,SPECIAL-TOOL " hanging on hook at right.\" An arrow points to
+this hook." CR>>
+
 <ROUTINE AIR-SUPPLY-VERB? ()
  <COND (<VERB? GIVE FIND TAKE YELL-FOR>
 	<COND (<DOBJ? UNIVERSAL-TOOL SPECIAL-TOOL SPECIAL-TOOL-GLOBAL
@@ -1645,20 +1651,22 @@ examine it." CR>)>>
 	(ACTION ACCESS-PLATE-F)>
 
 <ROUTINE ACCESS-PLATE-F ()
- <COND (<VERB? EXAMINE>
+ <COND (<VERB? READ>
+	<READ-AIR-SUPPLY>)
+       (<VERB? EXAMINE ANALYZE>
 	<COND (<FSET? ,ACCESS-PLATE ,OPENBIT> <TELL "It's open." CR>)
 	      (T
 	       <TELL
 "It's held in place on the cylinder by curiously-shaped fram bolts, which
 no ordinary wrench will fit.">
-	       <COND (<NOT <FSET ,AIR-SUPPLY-SYSTEM ,TOUCHBIT>>
+	       <COND (<NOT <FSET? ,AIR-SUPPLY-SYSTEM ,TOUCHBIT>>
 		      <TELL
 " To open it, you need a " D ,SPECIAL-TOOL ", or something like it." CR>)>
 	       <RTRUE>)>)
        (<VERB? LOOK-INSIDE>
 	<PERFORM ,PRSA ,AIR-SUPPLY-SYSTEM ,PRSI>
 	<RTRUE>)
-       (<AND <VERB? CLOSE>>
+       (<VERB? CLOSE>
 	<COND (<FSET? ,ACCESS-PLATE ,OPENBIT>
 	       <FCLEAR ,ACCESS-PLATE ,OPENBIT>
 	       <OKAY ,AIR-SUPPLY-SYSTEM "closed">)
@@ -1678,7 +1686,7 @@ no ordinary wrench will fit.">
 	<COND (<FSET? ,ACCESS-PLATE ,OPENBIT>
 	       <ALREADY ,ACCESS-PLATE "open">)
 	      (<IOBJ? SPECIAL-TOOL-GLOBAL> <NOT-HERE ,PRSI> <RTRUE>)
-	      (T %<XTELL
+	      (T <TELL
 "You can't remove" THE-PRSO " with your bare hands!" CR>)>)>>
 
 <OBJECT HOOK
@@ -1692,14 +1700,14 @@ no ordinary wrench will fit.">
 <ROUTINE HOOK-F ()
  <COND (<NOT <FIRST? ,HOOK>>
 	<COND (<VERB? EXAMINE LOOK-ON>
-	       %<XTELL "There's nothing hanging on the " D ,HOOK "." CR>)
+	       <TELL "There's nothing hanging on the " D ,HOOK "." CR>)
 	      (<VERB? PUT>
 	       <COND (<DOBJ? SPECIAL-TOOL ;UNIVERSAL-TOOL>
 		      <MOVE ,PRSO ,HOOK>
 		      <TELL "Okay." CR>)
 		     (T <TELL "It won't fit on the " D ,HOOK "." CR>)>)>)
        (<VERB? EXAMINE LOOK-ON>
-	%<XTELL "There's " A ,SPECIAL-TOOL " hanging on the " D ,HOOK"."CR>)>>
+	<TELL "There's " A ,SPECIAL-TOOL " hanging on the " D ,HOOK"."CR>)>>
 
 <OBJECT ARROW
 	(IN CENTER-OF-DOME)
@@ -1709,7 +1717,7 @@ no ordinary wrench will fit.">
 	(ACTION ARROW-F)>
 
 <ROUTINE ARROW-F ()
- <COND (<VERB? FOLLOW> <TELL "It points to the hook." CR>)>>
+ <COND (<VERB? FOLLOW EXAMINE ANALYZE> <TELL "It points to the hook." CR>)>>
 
 <OBJECT SPECIAL-TOOL-GLOBAL
 	(DESC "special Fram Bolt Wrench")
@@ -1737,7 +1745,7 @@ no ordinary wrench will fit.">
 <ROUTINE ELECTROLYTE-RELAY-F ()
  <COND (<VERB? TAKE>
 	<COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
-	       %<XTELL
+	       <TELL
 "What!? You don't want to spoil the " D ,AIR-SUPPLY-SYSTEM " again!" CR>)>)
        (<REMOTE-VERB?> <RFALSE>)
        (<NOT-HOLDING? ,ELECTROLYTE-RELAY>
@@ -1749,7 +1757,7 @@ no ordinary wrench will fit.">
 "It looks as if the " D ,ELECTROLYTE-RELAY " fits perfectly into the "
 D ,EMPTY-SPACE "." CR>)
        (<VERB? EXAMINE>
-	%<XTELL
+	<TELL
 "It has screw threads and, judging by its size and shape, it should
 screw very neatly into that " D ,EMPTY-SPACE " in the "
 D ,AIR-SUPPLY-SYSTEM " assembly." CR>)
@@ -1759,8 +1767,7 @@ D ,AIR-SUPPLY-SYSTEM " assembly." CR>)
 	       <TOO-BAD-BUT ,ACCESS-PLATE "closed">
 	       <RTRUE>)>
 	<FIX-AIR-SUPPLY>
-	%<XTELL
-"It fits!" ;" (And, by the way, congratulations, ' FN '!)" CR>
+	<TELL "It fits!" CR>
 	<SCORE-OBJ ,ACCESS-PLATE>
 	<RTRUE>)>>
 
@@ -1788,7 +1795,7 @@ D ,AIR-SUPPLY-SYSTEM " assembly." CR>)
 "Sorry, but" THE-PRSO " won't stay unless you screw it in." CR>)>>
 
 <GLOBAL IN-DOME-AROUND
- <LTABLE FOOT-OF-RAMP OUTSIDE-ADMIN-BLDG OUTSIDE-COMM-BLDG OUTSIDE-WORKSHOP
+ <PLTABLE FOOT-OF-RAMP OUTSIDE-ADMIN-BLDG OUTSIDE-COMM-BLDG OUTSIDE-WORKSHOP
 	 OUTSIDE-DORM FOOT-OF-RAMP	;"preceding for WALK AROUND DOME"
 	AIRLOCK AIRLOCK-WALL CENTER-OF-DOME BLY-OFFICE DOME-STORAGE
 	COMM-BLDG GALLEY WORKSHOP DOME-LAB WOMENS-QUARTERS MENS-QUARTERS>>
diff --git a/events.mss b/events.mss
new file mode 100644
index 0000000..b0c7158
--- /dev/null
+++ b/events.mss
@@ -0,0 +1,97 @@
+@style (spacing 1)
+@title (Events in the Aquadome)
+@pageheading(DRAFT)
+@majorheading (EVENTS IN THE AQUADOME)
+
+Events in the Aquadome fall into several sequences.
+The program can step through several sequences concurrently.
+For convenience, let's call
+them by letters, and let's call the beginning of each sequence "turn zero."
+
+Note: "he" never refers to Player, since Player's gender is unpredictable.
+@heading (A. The air supply)
+This sequence stops if and when Player fixes the air supply.
+@begin (itemize)
+0. Player debarks from the @I(Scimitar).
+
+11. Player realizes that Zoe (or Tip, if Zoe is not visible) is having trouble
+breathing.
+(If Player asks Bly about the "private matter" before this turn,
+then Antrim explodes angrily, and this sequence begins at this turn.)
+
+17. First reminder appears on screen, giving 10-turn deadline.
+
+23. Second reminder appears, giving 4-turn deadline, and Tip offers Player
+Universal Tool if he hasn't before now.
+
+27. At the last moment, Doc Horvak runs up and saves the day.
+
+30. Zoe Bly asks Player for a private talk, and then again every 3 turns
+until Player agrees.
+@end (itemize)
+@heading (P. Bly's private matter)
+Zoe has perhaps already mentioned a "private matter" over the
+sonarphone while Player was in the @I(Scimitar).
+@begin (itemize)
+0. Player enters Reception Area for first time.
+
+15. If Player hasn't asked her about the private matter, she asks Player
+directly, both now and every 3 turns after this. If Player assents or
+asks her about it directly: if the air supply hasn't been fixed, then
+Antrim explodes angrily, and sequence "A" begins at turn 11.
+
+X. (The timing is unpredictable.)
+Player enters Bly's office for the private discussion. She shows Player
+the "black box" (see sequence "S").
+
+X+6. Bly reminds Player that the Snark may return and asks if she may ask
+Player some questions. If Player assents, she asks about
+the @I(Scimitar) and lists Player's options for weapons; if not, this
+"event" repeats after 3 turns.
+@end (itemize)
+@heading (S. Siegel's work on sonar)
+This sequence begins when Bly shows Player the "black box." The next time
+Player and Tip are alone, he says he has an idea for testing Marv.
+(He also reminds Player, if necessary, to look in the black box.)
+@begin (itemize)
+0. Player asks Siegel directly to check the sonar.
+Or Player asks Bly to give Siegel a job, and Player assents
+to a job in the communications bldg.
+
+4. Siegel reports back to Player about black box.
+
+5. Tip asks to speak to Player privately: if Player refuses, Tip asks
+again every 3 turns; if Player assents, Tip suggests testing Antrim
+(see sequence "O").
+@end (itemize)
+@heading (O. Mick Antrim's work on overheating in sub)
+@begin (itemize)
+0. Player asks Antrim to check sub.
+Even if Player doesn't ask him, Antrim goes off to
+check it, 10 turns after the air supply is fixed
+(sequence "A").
+
+9. Antrim reports back to Player if the voltage regulator is still broken.
+
+19. Antrim reports back to Player if Player already fixed the problem.
+
+At end of Antrim's report, he suggests installing Emergency Survival Units.
+If Player agrees, Greenup & Lowell report back 12 turns later.
+@end (itemize)
+@heading (G. Greenup's attempted escape)
+Greenup starts to escape when Player tries to arrest him.
+However, the timing doesn't begin until:
+@begin (itemize)
+0. Player looks at the video monitor in Bly's office.
+Greenup's head is just coming into view.
+If Player closes the airlock roof, the escape is foiled.
+
+1. Greenup is climbing into the airlock.
+If Player opens the airlock hatch, the escape is foiled.
+
+2. Greenup is scrambling aboard the sub.
+If Player cuts electricity, the escape is foiled.
+
+3. If Player opened the airlock hatch and didn't close it, then
+the Aquadome itself is flooded and the game's over.
+@end (itemize)
diff --git a/events.zap b/events.zap
index c85df89..1aae34d 100644
--- a/events.zap
+++ b/events.zap
@@ -12,7 +12,7 @@
 	CALL	BAD-AIR?
 	ZERO?	STACK \FALSE
 	FSET?	X,BUSYBIT \?ELS7
-	CALL	TOO-BAD-BUT,X,STR?203
+	CALL	TOO-BAD-BUT,X,STR?195
 	RFALSE	
 ?ELS7:	ZERO?	SNARK-ATTACK-COUNT /TRUE
 	CALL	DONT-KNOW,X,OBJ
@@ -82,20 +82,6 @@
 	RTRUE	
 
 
-	.FUNCT	DIR-FROM,HERE,THERE,P=0,L,T,O
-?PRG1:	NEXTP	HERE,P >P
-	ZERO?	P /FALSE
-	EQUAL?	P,P?IN,P?OUT \?ELS7
-	JUMP	?PRG1
-?ELS7:	LESS?	P,LOW-DIRECTION /?PRG1
-	GETPT	HERE,P >T
-	PTSIZE	T >L
-	EQUAL?	L,DEXIT,UEXIT,CEXIT \?PRG1
-	GETB	T,REXIT
-	EQUAL?	STACK,THERE \?PRG1
-	RETURN	P
-
-
 	.FUNCT	I-SHARON-GONE,L
 	ZERO?	MONSTER-GONE \?CND1
 	CALL	QUEUE,I-SHARON-GONE,4
@@ -167,10 +153,10 @@ Suddenly Sharon "
 	FCLEAR	VIDEOPHONE,ONBIT
 	FSET	VIDEOPHONE,MUNGBIT
 	CALL	PHONE-OFF
-	SET	'SHARON-BROKE-CIRCUIT,1
+	SET	'SHARON-BROKE-CIRCUIT,TRUE-VALUE
 	FSET	CIRCUIT-BREAKER,MUNGBIT
 	FSET	CIRCUIT-BREAKER,OPENBIT
-	SET	'MONSTER-GONE,1
+	SET	'MONSTER-GONE,TRUE-VALUE
 	CALL	IN-LAB?,HERE
 	ZERO?	STACK /?CND16
 	CRLF	
@@ -209,39 +195,40 @@ Suddenly Sharon "
 
 
 	.FUNCT	I-BLY-PRIVATELY
+	ZERO?	SNARK-ATTACK-COUNT \FALSE
 	CALL	READY-FOR-SNARK?
 	ZERO?	STACK \FALSE
 	ZERO?	ZOE-MENTIONED-EVIDENCE \FALSE
 	CALL	NOT-NOW?
-	ZERO?	STACK /?CND8
-	SET	'BLY-PRIVATELY-DELAY,0
+	ZERO?	STACK /?CND11
+	SET	'BLY-PRIVATELY-DELAY,FALSE-VALUE
 	CALL	QUEUE,I-BLY-PRIVATELY,7
 	RFALSE	
-?CND8:	SET	'BLY-PRIVATELY-DELAY,1
+?CND11:	SET	'BLY-PRIVATELY-DELAY,TRUE-VALUE
 	MOVE	PRIVATE-MATTER,GLOBAL-OBJECTS
 	CRLF	
 	PRINTI	"Suddenly "
 	PRINTD	BLY
 	PRINTI	" "
 	CALL	META-LOC,BLY
-	EQUAL?	STACK,HERE /?CND13
+	EQUAL?	STACK,HERE /?CND16
 	MOVE	BLY,HERE
 	PRINTI	"comes over and "
-?CND13:	ZERO?	BLY-PRIVATELY-COUNT \?ELS20
+?CND16:	ZERO?	BLY-PRIVATELY-COUNT \?ELS23
 	PRINTI	"say"
-	JUMP	?CND18
-?ELS20:	PRINTI	"repeat"
-?CND18:	PRINTI	"s, """
+	JUMP	?CND21
+?ELS23:	PRINTI	"repeat"
+?CND21:	PRINTI	"s, """
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", can we discuss a "
 	PRINTD	PRIVATE-MATTER
 	PRINTI	" now?"""
 	INC	'BLY-PRIVATELY-COUNT
 	CALL	YES?
-	ZERO?	STACK \?CND29
+	ZERO?	STACK \?CND32
 	CALL	QUEUE,I-BLY-PRIVATELY,7
 	RFALSE	
-?CND29:	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
+?CND32:	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
 	RTRUE	
 
 
@@ -253,10 +240,10 @@ Suddenly Sharon "
 	ZERO?	STACK \FALSE
 	CALL	NOT-NOW?
 	ZERO?	STACK /?CND1
-	SET	'BLY-PRIVATELY-DELAY,0
+	SET	'BLY-PRIVATELY-DELAY,FALSE-VALUE
 	CALL	QUEUE,I-BLY-SAYS,7
 	RFALSE	
-?CND1:	SET	'BLY-PRIVATELY-DELAY,1
+?CND1:	SET	'BLY-PRIVATELY-DELAY,TRUE-VALUE
 	CALL	META-LOC,BLY >L
 	ZERO?	ASKED? \?THN14
 	EQUAL?	L,BLY-OFFICE \?ELS13
@@ -284,7 +271,7 @@ Suddenly Sharon "
 	PRINTI	" for attacking?"""
 	CALL	YES?
 	ZERO?	STACK /?CND34
-	CALL	TELL-HINT,73,CLAW,0
+	CALL	TELL-HINT,73,CLAW,FALSE-VALUE
 	CALL	TELL-HINT,72,DART
 	EQUAL?	HERE,DOME-LAB /?CND39
 	PRINTI	"
@@ -323,21 +310,22 @@ Suddenly Sharon "
 	FSET?	TIP,BUSYBIT \?ELS3
 	CALL	QUEUE,I-TIP-SONAR-PLAN,3
 	RFALSE	
-?ELS3:	CALL	READY-FOR-SNARK?
+?ELS3:	ZERO?	SNARK-ATTACK-COUNT \?THN6
+	CALL	READY-FOR-SNARK?
 	ZERO?	STACK /?CND1
-	CALL	QUEUE,I-TIP-SONAR-PLAN,0
+?THN6:	CALL	QUEUE,I-TIP-SONAR-PLAN,0
 	RFALSE	
 ?CND1:	CALL	FIND-FLAG,HERE,PERSON,PLAYER >P
-	ZERO?	P \?ELS10
+	ZERO?	P \?ELS12
 	CALL	TIP-COMES
 	RSTACK	
-?ELS10:	EQUAL?	P,TIP \?ELS12
+?ELS12:	EQUAL?	P,TIP \?ELS14
 	REMOVE	PLAYER
 	CALL	FIND-FLAG,HERE,PERSON,TIP >P
 	MOVE	PLAYER,HERE
 	CALL	TIP-COMES,P
 	RSTACK	
-?ELS12:	CALL	TIP-COMES,1
+?ELS14:	CALL	TIP-COMES,TRUE-VALUE
 	RSTACK	
 
 
@@ -373,7 +361,7 @@ Suddenly Sharon "
 	SUB	0,ALMOST
 	MOD	STACK,7
 	EQUAL?	STACK,2 \FALSE
-?THN20:	CALL	TIP-SAYS,1
+?THN20:	CALL	TIP-SAYS,TRUE-VALUE
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", I'd like to talk with you alone."""
 	CRLF	
@@ -385,7 +373,7 @@ Suddenly Sharon "
 	ZERO?	BLACK-BOX-EXAMINED \?CND29
 	CALL	TELL-HINT,11,BLACK-BOX
 ?CND29:	MOVE	TIP,HERE
-	CALL	TIP-SAYS,1
+	CALL	TIP-SAYS,TRUE-VALUE
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", did "
 	PRINTD	BLY
@@ -476,7 +464,7 @@ Suddenly Sharon "
 	PRINTI	" on the "
 	PRINTD	SONAR-EQUIPMENT
 	PRINTR	" again!"""
-?ELS31:	SET	'SIEGEL-TESTED,1
+?ELS31:	SET	'SIEGEL-TESTED,TRUE-VALUE
 	PRINTI	" what I found attached to the "
 	PRINTD	SONAR-EQUIPMENT
 	PRINTI	", "
@@ -526,7 +514,9 @@ Tip snaps his fingers and says: """
 	RFALSE	
 ?CND10:	PRINTI	"""The Snark could be a synthetic monster created by "
 	PRINTD	THORPE
-	PRINTI	"!"" he says when you're alone. ""I read about them in that magazine. If I'm right, whoever attached the "
+	PRINTI	"!"" he says when you're alone. ""I read about them in that "
+	PRINTD	MAGAZINE
+	PRINTI	". If I'm right, whoever attached the "
 	PRINTD	BLACK-BOX
 	PRINTI	" to the "
 	PRINTD	SONAR-EQUIPMENT
@@ -542,7 +532,7 @@ Tip snaps his fingers and says: """
 	PRINT	RECONSIDER?
 	PRINTI	""""
 	CRLF	
-?CND15:	CALL	MIKE-1-F,ANTRIM,1
+?CND15:	CALL	MIKE-1-F,ANTRIM,TRUE-VALUE
 	CALL	YES?
 	ZERO?	STACK \?ELS22
 	PRINT	RECONSIDER?
@@ -558,10 +548,10 @@ Tip snaps his fingers and says: """
 	PRINTI	"."""
 	CRLF	
 	IN?	PRIVATE-MATTER,GLOBAL-OBJECTS \?CND39
-	CALL	TELL-HINT,12,OVERHEATING,0
+	CALL	TELL-HINT,12,OVERHEATING,FALSE-VALUE
 	ZERO?	REGULATOR-MSG-SEEN /?CND39
-	CALL	TELL-HINT,43,ANTRIM,0
-?CND39:	CALL	TELL-HINT,22,ANTRIM,0
+	CALL	TELL-HINT,43,ANTRIM,FALSE-VALUE
+?CND39:	CALL	TELL-HINT,22,ANTRIM,FALSE-VALUE
 	RSTACK	
 
 
@@ -571,7 +561,7 @@ Tip snaps his fingers and says: """
 	ZERO?	ANTRIM-CHECKED-SUB \FALSE
 	ZERO?	STR /?ELS8
 	JUMP	?CND1
-?ELS8:	CALL	NOT-NOW?,0
+?ELS8:	CALL	NOT-NOW?,FALSE-VALUE
 	ZERO?	STACK /?CND1
 	CALL	QUEUE,I-ANTRIM-TO-SUB,3
 	RFALSE	
@@ -581,9 +571,9 @@ Tip snaps his fingers and says: """
 	JUMP	?CND12
 ?ELS14:	CALL	QUEUE,I-ANTRIM-REPORTS,19
 	PUT	STACK,0,1
-?CND12:	SET	'ANTRIM-CHECKED-SUB,1
+?CND12:	SET	'ANTRIM-CHECKED-SUB,TRUE-VALUE
 	IN?	BLY,HERE \?CND17
-	SET	'BLY-HEARD-ANTRIM,1
+	SET	'BLY-HEARD-ANTRIM,TRUE-VALUE
 ?CND17:	FSET	ANTRIM,BUSYBIT
 	ZERO?	STR /?ELS22
 	PRINT	STR
@@ -612,9 +602,10 @@ Suddenly "
 
 
 	.FUNCT	TIP-FLASHES
-	ZERO?	TIP-FLASHED /?CND1
+	IN?	TIP,HERE \FALSE
+	ZERO?	TIP-FLASHED /?CND4
 	PRINTI	"Once again "
-?CND1:	SET	'TIP-FLASHED,1
+?CND4:	SET	'TIP-FLASHED,TRUE-VALUE
 	PRINTI	"Tip flashes you a meaningful glance. "
 	RTRUE	
 
@@ -745,10 +736,11 @@ Would you like one installed, just in case? "
 ?CND3:	PRINTI	"."""
 	CRLF	
 	LOC	SYRINGE
-	EQUAL?	STACK,LOWELL,GREENUP,ESCAPE-POD-UNIT \?ELS14
-	SET	'X,1
+	EQUAL?	STACK,LOWELL,GREENUP,ESCAPE-POD-UNIT \?CND10
+	SET	'X,TRUE-VALUE
+?CND10:	ZERO?	X /?ELS17
 	LOC	ESCAPE-POD-UNIT
-	EQUAL?	STACK,LOWELL,GREENUP,DOME-STORAGE \?ELS14
+	EQUAL?	STACK,LOWELL,GREENUP,DOME-STORAGE \?ELS17
 	CALL	SCORE-OBJ,ESCAPE-POD-UNIT
 	MOVE	GREENUP,SUB
 	MOVE	LOWELL,SUB
@@ -760,19 +752,19 @@ Would you like one installed, just in case? "
 	CALL	QUEUE,I-LOWELL-REPORTS,12
 	PUT	STACK,0,1
 	RTRUE	
-?ELS14:	PRINTI	"But "
+?ELS17:	PRINTI	"But "
 	CALL	HE-SHE-IT,PER
 	MOVE	PER,HERE
 	PRINTI	" returns a moment later and says, ""We can't find the "
-	ZERO?	X /?ELS25
+	ZERO?	X /?ELS28
 	PRINTD	ESCAPE-POD-UNIT
-	JUMP	?CND23
-?ELS25:	PRINTD	SYRINGE
-?CND23:	PRINTR	"."""
+	JUMP	?CND26
+?ELS28:	PRINTD	SYRINGE
+?CND26:	PRINTR	"."""
 
 
 	.FUNCT	I-LOWELL-REPORTS
-	CALL	NOT-NOW?,0
+	CALL	NOT-NOW?,FALSE-VALUE
 	ZERO?	STACK /?CND1
 	CALL	QUEUE,I-LOWELL-REPORTS,3
 	RFALSE	
@@ -795,7 +787,8 @@ Suddenly "
 	PRINTD	SUB
 	JUMP	?CND6
 ?ELS8:	PRINTD	AIRLOCK
-?CND6:	PRINTI	".
+?CND6:	CALL	SAID-TO,LOWELL
+	PRINTI	".
 ""That "
 	PRINTD	ESCAPE-POD-UNIT
 	PRINTI	" is in place, "
@@ -815,7 +808,7 @@ Suddenly "
 	PRINTI	" appears. ""I couldn't find anything unusual about the "
 	PRINTD	SYRINGE
 	PRINTR	"."""
-?ELS10:	SET	'GREENUP-GUILT,1
+?ELS10:	SET	'GREENUP-GUILT,TRUE-VALUE
 	PRINTD	HORVAK
 	PRINTI	"'s face is grim and pale as he reports the result of his analysis.
 "
@@ -839,13 +832,13 @@ Tip turns to you with a gasp. ""Holy smoke, "
 	CALL	THIS-IS-IT,DART
 	CALL	SAID-TO,HORVAK
 	PRINTI	"Doc Horvak "
-	CALL	MOVE-HERE-NOT-SUB,HORVAK,STR?205,STR?206
+	CALL	MOVE-HERE-NOT-SUB,HORVAK,STR?197,STR?198
 	PRINTI	" holding an aquatic dart gun. "
 	IN?	HORVAK,HERE /?CND5
 	PRINTI	"He shouts from outside, "
 ?CND5:	PRINTI	"""Okay, "
 	CALL	PRINT-NAME,FIRST-NAME
-	PRINTI	", I've made a special 'trank' to use against an AH-type organism! It's loaded in the dart gun. What shall I do with it?"""
+	PRINTI	", I've made a special 'trank' to use against an A.H.-type organism! It's loaded in the dart gun. What shall I do with it?"""
 	CRLF	
 	CALL	SCORE-OBJ,DART
 	RTRUE	
@@ -900,12 +893,12 @@ Tip turns to you with a gasp. ""Holy smoke, "
 	PRINTD	AIRLOCK-HATCH
 	PRINTI	" and shove off!"""
 	CRLF	
-	CALL	TELL-HINT,52,AIRLOCK-ELECTRICITY,0
+	CALL	TELL-HINT,52,AIRLOCK-ELECTRICITY,FALSE-VALUE
 	RTRUE	
 ?ELS7:	EQUAL?	9,GREENUP-ESCAPE \FALSE
 	FCLEAR	AIRLOCK-ROOF,OPENBIT
 	FSET	AIRLOCK-HATCH,OPENBIT
-	SET	'AIRLOCK-FULL,1
+	SET	'AIRLOCK-FULL,TRUE-VALUE
 	CALL	QUEUE,I-SNARK-ATTACKS,1
 	PRINTI	"
 Better not raise any false hopes. As the "
@@ -926,11 +919,11 @@ A "
 
 	.FUNCT	GREENUP-CUFF
 	SET	'GREENUP-ESCAPE,0
-	SET	'GREENUP-TRAPPED,0
+	SET	'GREENUP-TRAPPED,FALSE-VALUE
 	CALL	QUEUE,I-GREENUP-ESCAPE,0
 	MOVE	GREENUP,GALLEY
 	FSET	GREENUP,MUNGBIT
-	SET	'GREENUP-CUFFED,1
+	SET	'GREENUP-CUFFED,TRUE-VALUE
 	PRINTI	"Knowing he's trapped, "
 	PRINTD	GREENUP
 	PRINTI	" gives up without a fight. "
@@ -987,8 +980,8 @@ Most regrettable!"
 	JUMP	?CND6
 ?ELS8:	MOVE	TIP,HERE
 ?CND6:	FCLEAR	TIP,BUSYBIT
-	SET	'TIP-FOLLOWS-YOU?,1
-	SET	'FINE-SONAR,1
+	SET	'TIP-FOLLOWS-YOU?,TRUE-VALUE
+	SET	'FINE-SONAR,TRUE-VALUE
 	MOVE	FINE-GRID,SUB
 	FCLEAR	FINE-GRID,TAKEBIT
 	CALL	TIP-SAYS
@@ -1034,6 +1027,13 @@ Most regrettable!"
 	PRINTR	"!"""
 
 
+	.FUNCT	USE-FEWER-TURNS
+	PRINTI	"
+
+(You'll probably do better if you restart and use fewer turns next time.)"
+	RTRUE	
+
+
 	.FUNCT	I-SNARK-ATTACKS
 	ZERO?	SNARK-ATTACK-COUNT \?CND1
 	ZERO?	SUB-IN-DOME \?ELS6
@@ -1059,9 +1059,8 @@ Most regrettable!"
 	PRINTD	AQUADOME
 	PRINTI	": the "
 	PRINTD	GLOBAL-SNARK
-	PRINTI	" is attacking and destroying it! You're too late!
-
-You'll probably do better if you restart and use fewer turns next time."
+	PRINTI	" is attacking and destroying it! You're too late!"
+	CALL	USE-FEWER-TURNS
 	CALL	FINISH
 	JUMP	?CND1
 ?ELS6:	CALL	QUEUE,I-SNARK-ATTACKS,-1
@@ -1128,6 +1127,7 @@ The Atlantic Ocean is pouring into the "
 	PRINTI	"! And your last thought, before a zillion tons of "
 	PRINTD	GLOBAL-WATER
 	PRINTI	" crushes you to jelly, is ""Oh gosh! I wonder if I shut off the Bunsen burner in the lab?"""
+	CALL	USE-FEWER-TURNS
 	CALL	FINISH
 	RSTACK	
 
diff --git a/events.zil b/events.zil
index 1033cf6..c9f2935 100644
--- a/events.zil
+++ b/events.zil
@@ -18,7 +18,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 
 <ROUTINE TELL-HINT (CARDNUM OBJ "OPTIONAL" (CR? T))
 	<COND (.CR? <CRLF>)>
-	%<XTELL
+	<TELL
 "(If you want a clue, find Infocard #" N </ .CARDNUM 10> " in your
 " D ,GAME " package. Read hidden clue #" N <MOD .CARDNUM 10> " and put
 \"" D .OBJ "\" in the blank space.)" CR>>
@@ -61,17 +61,17 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	       <FCLEAR ,TIP ,TOUCHBIT>)>
 	<MOVE ,TIP .RM>)>>
 
-<ROUTINE DIR-FROM (HERE THERE "AUX" (P 0) L T O)
+;<ROUTINE DIR-FROM (HERE THERE "AUX" (P 0) L TBL O)
 	 #DECL ((HERE THERE O) OBJECT (P L) FIX)
  <REPEAT ()
 	 <COND (<0? <SET P <NEXTP .HERE .P>>>
 		<RFALSE>)
 	       (<EQUAL? .P ,P?IN ,P?OUT> T)
 	       (<NOT <L? .P ,LOW-DIRECTION>>
-		<SET T <GETPT .HERE .P>>
-		<SET L <PTSIZE .T>>
+		<SET TBL <GETPT .HERE .P>>
+		<SET L <PTSIZE .TBL>>
 		<COND (<AND <EQUAL? .L ,DEXIT ,UEXIT ,CEXIT>
-			    <==? <GETB .T ,REXIT> .THERE>>
+			    <==? <GETB .TBL ,REXIT> .THERE>>
 		       <RETURN .P>)>)>>>
 
 <ROUTINE I-SHARON-GONE ("AUX" L)
@@ -87,7 +87,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	       <SUDDENLY-SHARON .L>
 	       <TELL "really must go now, "FN". I'll see you later.\"" CR>
 	       <COND (<EQUAL? ,HERE ,OFFICE>
-		      %<XTELL
+		      <TELL
 "She leaves through the " D ,OFFICE-DOOR "." CR>)>
 	       <RTRUE>)>>
 
@@ -137,7 +137,7 @@ Suddenly Sharon ">
 		      ;<COND (,DEBUG<TELL"[circuit breaker just opened]" CR>)>
 		      <SETG MONSTER-GONE T>
 		      <COND (<IN-LAB? ,HERE>
-			     %<XTELL CR
+			     <TELL CR
 "Something's wrong! The picture vanished from your
 " D ,VIDEOPHONE " screen, and the sound conked out!|
 ">
@@ -166,6 +166,8 @@ Suddenly Sharon ">
 	<RTRUE>)>>
 
 <ROUTINE I-BLY-PRIVATELY ()
+	<COND (<NOT <0? ,SNARK-ATTACK-COUNT>>
+	       <RFALSE>)>
 	<COND (<READY-FOR-SNARK?>
 	       <RFALSE>)>
 	<COND (,ZOE-MENTIONED-EVIDENCE
@@ -182,7 +184,7 @@ Suddenly Sharon ">
 	       <TELL "comes over and ">)>
 	<COND (<0? ,BLY-PRIVATELY-COUNT> <TELL "say">)
 	      (T <TELL "repeat">)>
-	%<XTELL
+	<TELL
 "s, \"" FN ", can we discuss a " D ,PRIVATE-MATTER " now?\"">
 	<INC BLY-PRIVATELY-COUNT>
 	<COND (<NOT <YES?>> <QUEUE I-BLY-PRIVATELY 7 ;3> <RFALSE>)>
@@ -204,23 +206,23 @@ Suddenly Sharon ">
 	    <AND <EQUAL? .L ,BLY-OFFICE>
 		 <EQUAL? .L ,HERE>>>
 	<COND (<NOT .ASKED?> <CRLF>)>
-	%<XTELL
+	<TELL
 "\"" FN ",\" says Zoe, \"we could be in danger!
 The Snark may attack again any time! Would you answer some questions?\"">
 	<COND (<NOT <YES?>>
 	       <COND (.ASKED? <RTRUE>)
 		     (T <ENABLE <QUEUE I-BLY-SAYS 3>> <RFALSE>)>)>
-	%<XTELL
+	<TELL
 "\"Can you use the " D ,SUB " to hunt the " D ,GLOBAL-SNARK
 ", instead of waiting for it to attack?\"">
 	<COND (<YES?>
-	       %<XTELL
+	       <TELL
 "\"Do you wish to arm the " D ,SUB " for attacking?\"">
 	       <COND (<YES?>
 		      <TELL-HINT 73 ;22 ,CLAW <>>
 		      <TELL-HINT 72 ;23 ,DART ;<>>
 		      <COND (<NOT <==? ,HERE ,DOME-LAB>>
-			     %<XTELL
+			     <TELL
 "|
 \"If you want to think it over, we should go to the " D ,DOME-LAB ". Shall we
 go now?\"">
@@ -251,7 +253,8 @@ go now?\"">
  <COND (<FSET? ,TIP ,BUSYBIT>
 	<QUEUE I-TIP-SONAR-PLAN 3>
 	<RFALSE>)
-       (<READY-FOR-SNARK?>
+       (<OR <NOT <0? ,SNARK-ATTACK-COUNT>>
+	    <READY-FOR-SNARK?>>
 	<QUEUE I-TIP-SONAR-PLAN 0>
 	<RFALSE>)>
  <SET P <FIND-FLAG ,HERE ,PERSON ,PLAYER>>
@@ -295,27 +298,27 @@ go now?\"">
 	<COND (<NOT ,BLACK-BOX-EXAMINED> <TELL-HINT 11 ;13 ,BLACK-BOX>)>
 	<MOVE ,TIP ,HERE>
 	<TIP-SAYS T>
-	%<XTELL
+	<TELL
 FN ", did " D ,BLY " mention any troublemakers among the " D ,CREW "?\"">
 	<COND (<YES?>
 	       <TELL
 "\"Do you suspect " D ,ANTRIM " or " D ,HORVAK " or " D ,SIEGEL "?\"">
 	       <COND (<YES?>
-		      %<XTELL "\"Marv maintains the "D ,SONAR-EQUIPMENT",\" ">
+		      <TELL "\"Marv maintains the "D ,SONAR-EQUIPMENT",\" ">
 		      <TIP-SAYS>
 		      <TELL
 "and we'll
 need it to warn us if the " D ,SNARK " comes back. Didn't Zoe say something is
 wrong with it?\"">
 		      <COND (<YES?>
-			     %<XTELL
+			     <TELL
 "\"" FN ", do you think someone tampered with it?\"">
 			     <COND (<YES?>
-				    %<XTELL
+				    <TELL
 "\"Does Marv suspect you've discovered signs of tampering?\"">
 				    <COND (<NOT <YES?>>
 					   <THIS-IS-IT ,TIP-IDEA>
-					   %<XTELL
+					   <TELL
 "\"Then I have an idea how to trap Marv and find out if he's the " D ,TRAITOR
 "!\"" CR>)>)>)>)>)>
 	<RTRUE>>
@@ -338,7 +341,7 @@ But you'll have to decide for yourself." CR>>
 	<COND (<NOT <IN? ,SIEGEL ,COMM-BLDG>> <RFALSE>)>
 	<MOVE-HERE-NOT-SUB ,SIEGEL>
 	<COND (<NOT <IN? ,BLACK-BOX ,SONAR-EQUIPMENT>>
-	       %<XTELL
+	       <TELL
 "Suddenly " D ,SIEGEL " reports: \"The " D ,SONAR-EQUIPMENT " looks okay
 to me, "FN".\"" CR>
 	       <RTRUE>)>
@@ -347,10 +350,10 @@ to me, "FN".\"" CR>
 	      (T
 	       <COND (<IN? ,TIP ,HERE>
 		      <TIP-SAYS>
-		      %<XTELL FN ", here comes Marv, and he looks excited!\"|
+		      <TELL FN ", here comes Marv, and he looks excited!\"|
 ">)>
 	       <TELL "Marv comes running up to you">)>
-	%<XTELL " with the " D ,BLACK-BOX " and says: \"Look">
+	<TELL " with the " D ,BLACK-BOX " and says: \"Look">
 	<MOVE ,BLACK-BOX ,SIEGEL>
 	<COND (,SIEGEL-TESTED
 	       <TELL
@@ -358,13 +361,13 @@ to me, "FN".\"" CR>
 CR>)
 	      (T
 	       <SETG SIEGEL-TESTED T>
-	       %<XTELL
+	       <TELL
 " what I found attached to the " D ,SONAR-EQUIPMENT ", " FN "! ">
 	       <SIEGEL-BOX>
 	       <COND (<IN? ,TIP ,HERE>
 		      <TIP-FLASHES>
 		      <REACTION-MAY-BE ,SIEGEL>
-		      %<XTELL
+		      <TELL
 "|
 Tip snaps his fingers and says: \"" FN "! Didn't that article in the "
 D ,MAGAZINE "
@@ -387,12 +390,12 @@ a special way?\"">
 	       <ENABLE <QUEUE I-TIP-PRIVATELY 3>>
 	       <RFALSE>)>
 	<MOVE ,TIP ,HERE>
-	%<XTELL
+	<TELL
 CR "Tip draws you aside. \"Could I speak to you privately, " FN "?\"">
 	<COND (<NOT <YES?>> <ENABLE <QUEUE I-TIP-PRIVATELY 3>> <RFALSE>)>
-	%<XTELL
+	<TELL
 "\"The Snark could be a synthetic monster created by " D ,THORPE "!\" he
-says when you're alone. \"I read about them in that magazine. If I'm
+says when you're alone. \"I read about them in that " D ,MAGAZINE ". If I'm
 right, whoever attached the " D ,BLACK-BOX " to the " D ,SONAR-EQUIPMENT
 " could be working for Thorpe! That way the " D ,GLOBAL-SNARK
 " would be lured into attacking the " D ,AQUADOME
@@ -401,12 +404,12 @@ right, whoever attached the " D ,BLACK-BOX " to the " D ,SONAR-EQUIPMENT
 	       <TELL ,RECONSIDER? "\"" CR>)>
 	<MIKE-1-F ,ANTRIM T>
 	<COND (<NOT <YES?>>
-	       %<XTELL ,RECONSIDER? " In fact ">)
+	       <TELL ,RECONSIDER? " In fact ">)
 	      (T <TELL "\"Then ">)>
 	<TELL "why not test him">
 	<COND (,SIEGEL-TESTED
 	       <TELL ", since you tested " D ,SIEGEL>)>
-	%<XTELL
+	<TELL
 "?\" Tip
 asks. \"Mick is a laser expert in charge of maintenance on subs at the " D
 ,AQUADOME ".\"" CR>
@@ -439,7 +442,7 @@ Suddenly " D ,ANTRIM>
 	       <COND (<NOT <IN? ,ANTRIM ,HERE>> <TELL " appears and">)>
 	       <TELL
 " says, \"I'm going to check out your new " D ,SUB ", ">)>
-	%<XTELL FN "!\" Mick turns and ">
+	<TELL FN "!\" Mick turns and ">
 	<MOVE ,ANTRIM ,CRAWL-SPACE>
 	<FSET ,ENGINE-ACCESS-HATCH ,OPENBIT>
 	<COND (<EQUAL? ,HERE ,SUB ,CRAWL-SPACE>
@@ -452,9 +455,10 @@ Suddenly " D ,ANTRIM>
 
 <GLOBAL  TIP-FLASHED <>>
 <ROUTINE TIP-FLASHES ()
+	<COND (<NOT <IN? ,TIP ,HERE>> <RFALSE>)>
 	<COND (,TIP-FLASHED <TELL "Once again ">)>
 	<SETG TIP-FLASHED T>
-	%<XTELL "Tip flashes you a meaningful glance. ">>
+	<TELL "Tip flashes you a meaningful glance. ">>
 
 <ROUTINE I-ANTRIM-REPORTS ()
 	;<COND (,DEBUG <TELL "[time for Mick to report?]" CR>)>
@@ -466,16 +470,16 @@ Suddenly " D ,ANTRIM>
 	<MOVE-HERE-NOT-SUB ,ANTRIM>
 	<CRLF>
 	<COND (,ASKED-ANTRIM
-	       %<XTELL D ,ANTRIM " reports back ">
+	       <TELL D ,ANTRIM " reports back ">
 	       <COND (<EQUAL? ,HERE ,SUB ,AIRLOCK> <TELL "to you">)
 		     (T <TELL "from the " D ,AIRLOCK>)>
 	       <COND (<FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>
-		      %<XTELL ".|
+		      <TELL ".|
 \"I think I found your " D ,OVERHEATING " problem. The " D
 ,VOLTAGE-REGULATOR " was making the lasers overcharge.|
 I've adjusted it, but I could replace it. Want me to?\"">
 		      <COND (<YES?> <FCLEAR ,VOLTAGE-REGULATOR ,MUNGBIT>)>)
-		     (T %<XTELL ", looking somewhat puzzled.|
+		     (T <TELL ", looking somewhat puzzled.|
 \"" FN ", I ran the " D ,ENGINE " on full, but it didn't overheat.|
 The " D ,VOLTAGE-REGULATOR " PROBABLY got out of adjustment and
 overcharged the lasers, but it seems okay now. Just to be safe, I
@@ -487,13 +491,13 @@ installed a new " D ,VOLTAGE-REGULATOR ".|
 		      <TELL "Suddenly ">)
 		     (T
 		      <MOVE-HERE-NOT-SUB ,BLY>
-		      %<XTELL
+		      <TELL
 D ,BLY " is approaching.|
 \"" FN ", did you send " D ,ANTRIM " to work on the " D ,SUB "?\" she
 asks. \"I was just ">
 		      <COND (<NOT <EQUAL? ,HERE ,BLY-OFFICE>>
 			     <TELL "in my office, ">)>
-		      %<XTELL
+		      <TELL
 "checking the " D ,STATION-MONITOR " to see what each of
 the crew was doing, and I discovered Mick had gone to the " D ,AIRLOCK ".
 When I saw him on the " D ,STATION-MONITOR ",
@@ -507,7 +511,7 @@ now.\"" CR>)>
 	<TIP-FLASHES>
 	<COND (<FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>
 	       <SETG TEST-BUTTON-READOUT ,TEST-BUTTON-NORMAL>
-	       %<XTELL
+	       <TELL
 "It now looks as though " D ,ANTRIM " can be eliminated as the " D ,TRAITOR ",
 but you'll want to confirm this by pushing the " D ,TEST-BUTTON
 " before you set out again in the " D ,SUB ".|
@@ -517,7 +521,7 @@ but you'll want to confirm this by pushing the " D ,TEST-BUTTON
 	<COND (<READY-FOR-SNARK?>
 	       <RTRUE>)>
 	<COND (<IN? ,ESCAPE-POD-UNIT ,SUB> <RTRUE>)>
-	%<XTELL CR D ,ANTRIM
+	<TELL CR D ,ANTRIM
 " turns away, then stops and says:|
 \"" FN ", there's no " D ,ESCAPE-POD-UNIT "
 under your seats in the " D ,SUB ". I hear you're planning a new type
@@ -536,9 +540,9 @@ Would you like one installed, just in case? " D ,GREENUP " and " D ,LOWELL
 	<COND (<EQUAL? ,HERE <LOC ,LOWELL> <LOC ,GREENUP>>
 	       <TELL ", we'll install it">)>
 	<TELL ".\"" CR>
-	<COND (<AND <EQUAL? <LOC ,SYRINGE>
-			    ,LOWELL ,GREENUP ,ESCAPE-POD-UNIT>
-		    <SET X T>
+	<COND (<EQUAL? <LOC ,SYRINGE> ,LOWELL ,GREENUP ,ESCAPE-POD-UNIT>
+	       <SET X T>)>
+	<COND (<AND .X
 		    <EQUAL? <LOC ,ESCAPE-POD-UNIT>
 			    ,LOWELL ,GREENUP ,DOME-STORAGE>>
 	       <SCORE-OBJ ,ESCAPE-POD-UNIT>
@@ -572,11 +576,12 @@ Would you like one installed, just in case? " D ,GREENUP " and " D ,LOWELL
 	<MOVE ,LOWELL ,HERE>
 	<FCLEAR ,GREENUP ,BUSYBIT>
 	<FCLEAR ,LOWELL ,BUSYBIT>
-	%<XTELL "|
+	<TELL "|
 Suddenly " D ,GREENUP " and " D ,LOWELL " report back from the ">
 	<COND (<EQUAL? ,HERE ,AIRLOCK> <TELL D ,SUB>)
 	      (T <TELL D ,AIRLOCK>)>
-	%<XTELL
+	<SAID-TO ,LOWELL>
+	<TELL
 ".|
 \"That " D ,ESCAPE-POD-UNIT " is in place, " FN ",\" says Amy. \"Bill
 installed the part under your pilot's seat, and I installed the rest.\"" CR>>
@@ -593,13 +598,13 @@ installed the part under your pilot's seat, and I installed the rest.\"" CR>>
 about the " D ,SYRINGE ".\"" CR>)
 		     (T
 		      <SETG GREENUP-GUILT T>
-		      %<XTELL
+		      <TELL
 D ,HORVAK "'s face is grim and pale as he reports the result of his
 analysis.|
 ">
 		      <PERFORM ,V?ASK-ABOUT ,HORVAK ,SYRINGE>
 		      <COND (<IN? ,TIP ,HERE>
-			     %<XTELL "|
+			     <TELL "|
 Tip turns to you with a gasp. \"Holy smoke, " FN "! That's exactly what
 would have happened once you warmed up the pilot's seat enough to
 trigger the sensor relay!\"" CR>)>)>)
@@ -618,10 +623,10 @@ trigger the sensor relay!\"" CR>)>)>)
 	<SAID-TO ,HORVAK>
 	<TELL "Doc Horvak ">
 	<MOVE-HERE-NOT-SUB ,HORVAK "is now" "now comes rushing back,">
-	%<XTELL " holding an aquatic dart gun. ">
+	<TELL " holding an aquatic dart gun. ">
 	<COND (<NOT <IN? ,HORVAK ,HERE>> <TELL "He shouts from outside, ">)>
-	%<XTELL "\"Okay, "
-FN ", I've made a special 'trank' to use against an AH-type organism!
+	<TELL "\"Okay, "
+FN ", I've made a special 'trank' to use against an A.H.-type organism!
 It's loaded in the dart gun. What shall I do with it?\"" CR>
 	<SCORE-OBJ ,DART>
 	<RTRUE>>
@@ -649,12 +654,12 @@ It's loaded in the dart gun. What shall I do with it?\"" CR>
 	<SETG GREENUP-ESCAPE <+ 1 ,GREENUP-ESCAPE>>
 	<COND (<EQUAL? 3 ,GREENUP-ESCAPE>
 	       <MOVE ,GREENUP ,AIRLOCK>
-	       %<XTELL CR
+	       <TELL CR
 "Greenup has reached the top of the wall and is climbing down the ladder
 into the " D ,AIRLOCK ". In a moment he'll reach the floor
 and head for the " D ,SUB "." CR>)
 	      (<EQUAL? 4 ,GREENUP-ESCAPE>
-	       %<XTELL CR
+	       <TELL CR
 "Greenup is scrambling aboard the " D ,SUB ". Tip groans.
 \"There's no way to stop him now, " FN "! All he has to do is
 open the " D ,AIRLOCK-HATCH " and shove off!\"" CR>
@@ -665,7 +670,7 @@ open the " D ,AIRLOCK-HATCH " and shove off!\"" CR>
 	       <FSET ,AIRLOCK-HATCH ,OPENBIT>
 	       <SETG AIRLOCK-FULL T>
 	       <QUEUE I-SNARK-ATTACKS 1>
-	       %<XTELL
+	       <TELL
 "|
 Better not raise any false hopes. As the " D ,SUB " glides out,
 a pall of gloom settles over the " D ,AQUADOME ". All
@@ -684,7 +689,7 @@ general S.O.S. to any craft in the vicinity isn't answered.">
 	<MOVE ,GREENUP ,GALLEY>
 	<FSET ,GREENUP ,MUNGBIT>
 	<SETG GREENUP-CUFFED T>
-	%<XTELL
+	<TELL
 "Knowing he's trapped, " D ,GREENUP " gives up without a fight. " D ,BLY
 " orders him handcuffed to a pipe in the " D ,GALLEY "." CR>
 	<SCORE-OBJ ,GLOBAL-GREENUP>
@@ -695,7 +700,7 @@ general S.O.S. to any craft in the vicinity isn't answered.">
 	     <IN? ,ESCAPE-POD-UNIT ,SUB>
 	     <FSET? ,SYRINGE ,MUNGBIT>
 	     <IN? ,SYRINGE ,ESCAPE-POD-UNIT>>
-	%<XTELL CR
+	<TELL CR
 "A sudden jab in your right buttock makes you realize that the "
 D ,SYRINGE " in the " D ,ESCAPE-POD-UNIT " has been activated, even though
 no alarm sounded.|
@@ -740,10 +745,15 @@ Most regrettable!">
 	       <COND (.D <TELL " the " D ,DART>)>
 	       <COND (<AND .B .D> <TELL " and">)>
 	       <COND (.B <TELL " the " D ,BAZOOKA>)>)>
-	%<XTELL "! Let's shove off and find the " D ,GLOBAL-SNARK "!\"" CR>>
+	<TELL "! Let's shove off and find the " D ,GLOBAL-SNARK "!\"" CR>>
 
 <GLOBAL SNARK-ATTACK-COUNT 0>
 
+<ROUTINE USE-FEWER-TURNS ()
+	<TELL "|
+|
+(You'll probably do better if you restart and use fewer turns next time.)">>
+
 <ROUTINE I-SNARK-ATTACKS ()
  <COND (<0? ,SNARK-ATTACK-COUNT>
 	<COND (<NOT ,SUB-IN-DOME>
@@ -752,22 +762,21 @@ Most regrettable!">
 			       <NOT <L? ,SONAR-RANGE <ABS ,SUB-LAT>>>>>
 		      <QUEUE I-SNARK-ATTACKS 3>
 		      <RFALSE>)>
-	       %<XTELL "A call comes on the ">	;"[more?]"
+	       <TELL "A call comes on the ">	;"[more?]"
 	       <COND (<EQUAL? ,HERE ,SUB ,CRAWL-SPACE>
 		      <TELL D ,SONARPHONE>)
 		     (T <TELL D ,VIDEOPHONE>)>
-	       %<XTELL
+	       <TELL
 " from the " D ,AQUADOME": the " D ,GLOBAL-SNARK
-" is attacking and destroying it! You're too late!|
-|
-You'll probably do better if you restart and use fewer turns next time.">
+" is attacking and destroying it! You're too late!">
+	       <USE-FEWER-TURNS>
 	       <FINISH>)
 	      (T <ENABLE <QUEUE I-SNARK-ATTACKS -1>>)>)>
  <INC SNARK-ATTACK-COUNT>
  <COND (<==? 1 ,SNARK-ATTACK-COUNT>
 	<MOVE ,SIEGEL ,COMM-BLDG>
 	<MOVE ,TIP ,HERE>
-	%<XTELL
+	<TELL
 "|
 Suddenly an alarm rings through the " D ,AQUADOME "! " D ,SIEGEL " yells
 over the squawk box:|
@@ -781,7 +790,7 @@ over the squawk box:|
 	<COND (<EQUAL? ,HERE ,SUB ,CRAWL-SPACE ,AIRLOCK>
 	       <COND (<FSET? ,AIRLOCK-HATCH ,OPENBIT>
 		      <FCLEAR ,AIRLOCK-HATCH ,OPENBIT>
-		      %<XTELL
+		      <TELL
 "The " D ,AIRLOCK-HATCH " closes in defense.">)>)
 	      (T
 	       <COND (<GLOBAL-IN? ,WINDOW ,HERE>
@@ -791,7 +800,7 @@ over the squawk box:|
 	<CRLF>
 	<RFATAL>)
        (<==? 2 ,SNARK-ATTACK-COUNT>
-	%<XTELL
+	<TELL
 "|
 Even as you try this, the undersea nightmare takes shape!|
 \"Holy spaghetti! LOOK at that thing!\" cries Tip.|
@@ -801,7 +810,7 @@ terror, the " D ,GLOBAL-SNARK " seems as big as a house,
 and it's just outside the " D ,AQUADOME "!" CR>
 	<RFATAL>)
        (<==? 3 ,SNARK-ATTACK-COUNT>
-	%<XTELL
+	<TELL
 "|
 No more time for that! The " D ,SNARK " has flopped down on the " D
 ,AQUADOME "!
@@ -812,4 +821,5 @@ The Atlantic Ocean is pouring into the " D ,AQUADOME "! And
 your last thought, before a zillion tons of " D ,GLOBAL-WATER " crushes you
 to jelly, is
 \"Oh gosh! I wonder if I shut off the Bunsen burner in the lab?\"">
+	<USE-FEWER-TURNS>
 	<FINISH>)>>
diff --git a/game.script b/game.script
new file mode 100644
index 0000000..1ba5597
--- /dev/null
+++ b/game.script
@@ -0,0 +1,305 @@
+Here begins a transcript of interaction with
+SEASTALKER: JIM LAWRENCE AND THE ULTRAMARINE BIOCEPTOR
+Junior-level interactive fiction from Infocom
+Copyright (c) 1984 Infocom, Inc. All rights reserved.
+SEASTALKER is a trademark of Infocom, Inc.
+Release number 17 / Serial number 850208
+
+Okay, Jim, what do you want to do now?
+>ANSWER THE ALARM
+
+Why not turn on the videophone?
+The alarm bell continues to ring.
+
+What next?
+>TURN ON THE VIDEOPHONE
+
+As the alarm bell stops ringing, a picture of a woman holding a microphone
+appears, and you can hear her voice from the speaker. But both sound and
+picture are fuzzy.
+(Your score just went up by 1 point!)
+
+What next?
+>TUNE IT
+
+Ah, that's better! You recognize the woman as Commander Bly, who's in charge of
+the Undersea Research Station of Inventions Unlimited, called the Aquadome,
+just off the Atlantic coast. "Jim! Jim!" she's saying. "This is the Aquadome
+calling the Lawrence Research Lab! We have an urgent problem!"
+(Your score just went up by 1 point!)
+
+What next?
+>TALK TO HER
+
+She can't hear you unless you pick up your microphone and switch it on.
+
+What next?
+>PICK UP THE MIKE AND SWITCH IT ON
+
+(Your score just went up by 1 point!)
+You are now holding the microphone.
+
+Okay, the microphone is now on.
+
+What next?
+>TALK TO COMMANDER BLY
+
+"Jim! Jim! Our transparent dome enclosing the Undersea Research Station is
+being battered by a huge monster!"
+
+What next?
+>BLY, SHOW ME THE MONSTER
+
+The Aquadome's camera pans, and the monster comes into view on your videophone
+screen. It resembles a huge sea slug, about 5 meters tall. Its clawed tentacles
+pound and scratch at the dome.
+
+What next?
+>BLY, TELL ME ABOUT THE MONSTER
+
+"Some of our divers saw it while exploring the undersea environment. They
+nicknamed it the Snark. This is the first time it has approached the Aquadome,
+and it may be the last time, Jim! I'm not sure how long our plastic dome
+enclosure can withstand such a battering!"
+
+What next?
+>BLY, ATTACK THE MONSTER
+
+"Jim, this is a peaceful research facility. We have no weapons."
+
+What next?
+>BLY, LEAVE THE AQUADOME
+
+"Our emergency escape bell would be vulnerable to a monster as big as the
+Snark. Ditto for SCUBA gear, deep-sea diving suits, or jet-propelled
+observation bubbles."
+
+What next?
+>BLY, WAIT THERE FOR ME
+
+"Okay, Jim, but hurry!"
+
+(Are you tired of seeing "What next?" Well, you won't see it any more.)
+
+
+>HANG UP
+
+"I hope to see you soon, Jim."
+
+Something's wrong! The picture vanished from your videophone screen, and the
+sound conked out!
+Tip says, "That's strange! Maybe you should use the Computestor."
+(Oh no! Your score just went down by 3 points!)
+
+>GO TO THE COMPUTESTOR
+
+You can't walk away while you are holding the microphone!
+
+>PUT IT ON THE TABLE
+
+Okay.
+
+>GO TO THE COMPUTESTOR
+
+It's in the north part.
+(north part)
+You're in the north part of your laboratory. A Computestor stands here to help
+test your inventions.
+
+>USE IT
+
+The Computestor is off!
+
+>TURN IT ON
+
+The Computestor is ready for questions.
+
+>ASK IT ABOUT THE VIDEOPHONE
+
+"Symptoms: no picture, no sound.
+Possible causes:
+1) Failure of the transmitter at source.
+2) A short in the undersea coaxial cable linking transmitter to the Lawrence
+Research Lab, if signal is coming from Aquadome.
+3) Sunspot interference or satellite malfunction if transmitter is at earth's
+surface.
+4) Failure of the video receiver.
+5) Overload in the Electrical Panel (circuit breaker popped).
+6) Sabotage (circuit breaker open)."
+
+>GO TO THE CIRCUIT BREAKER
+
+It's in the corridor.
+(corridor)
+You're in a corridor, with your laboratory to the west, a storage closet to the
+south, and Kemp's office to the east. An Electrical Panel fills most of the
+north wall.
+
+Tip follows you into the corridor.
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read hidden
+clue #1 and put "Electrical Panel" in the blank space.)
+
+>CHECK THE BREAKER
+
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read hidden
+clue #1 and put "Electrical Panel" in the blank space.)
+
+>CLOSE IT
+
+Okay, the circuit breaker is now closed.
+(Your score just went up by 3 points!)
+
+>GO BACK TO THE LAB
+
+(lab center)
+You're at your workbench in the center of your laboratory, a small part of the
+Lawrence Research Lab in the town of Frobton. The videophone screen looms
+overhead.
+
+Tip follows you into the lab center.
+Sitting on the workbench is:
+  a microphone
+  a diagram
+As you re-enter the lab, Tip says, "Look, Jim! The videophone's working again!
+There's a normal test pattern on the screen!"
+
+>TIP, GO TO THE SUBMARINE
+
+"I think you can do that better yourself."
+
+>GO TO THE SUB
+
+(SCIMITAR)
+You're in the pilot's seat of the SCIMITAR, its operating control panel before
+you.
+A wraparound viewport, both fore and aft, provides a view ahead and astern. You
+can also observe your surroundings with a sonarscope and a hydrophone listening
+device. There's a sonarphone for communication. You'll discover other features
+when you need them.
+Tip is sitting behind you, reading a magazine.
+The power reactor is off and open.
+(Your score just went up by 1 point!)
+
+>TURN IT ON
+
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read hidden
+clue #3 and put "catalyst capsule" in the blank space.)
+
+>GO TO THE CAPSULE
+
+It's in the west walkway.
+(west walkway)
+You're at a work counter, next to the control gear used to operate the test
+tank.
+The test tank (which is now empty of sea water) is located in a large work
+room, just south of your laboratory, with concrete-block walls on three sides
+and a high metal roof. Most of its floor is dug out and lined with steel, to
+form the huge tank used for developing and testing underwater gear and the
+pilot models of your submarine craft.
+There's a walkway around the tank on three sides -- north, west and south. On
+the east side, a steel gate forms the wall of the room.
+
+Tip follows you into the west walkway.
+Sitting on the work counter is:
+  a catalyst capsule
+
+>TAKE IT
+
+(Your score just went up by 5 points!)
+You are now holding the catalyst capsule.
+
+>GET IN THE SUB
+
+You have to go north to board the SCIMITAR.
+
+>GO NORTH
+
+(north walkway)
+Tip is off to the south.
+
+>BOARD THE SCIMITAR
+
+(SCIMITAR)
+Tip is sitting behind you, reading a magazine.
+The power reactor is off and open.
+
+>PUT THE CAPSULE IN THE REACTOR
+
+Okay.
+
+>CLOSE THE REACTOR THEN TURN IT ON
+
+Okay, the reactor is now closed.
+
+Electrical systems now activated.
+(Your score just went up by 5 points!)
+
+>READ THE INSTRUMENTS
+
+Main instruments:
+depth finder, hydrophone, sonarscope, and temperature gauge.
+
+>LEAVE THE TANK
+
+The tank is empty!
+
+>FILL IT
+
+The sea water quickly fills the tank, up to the level of the walkway.
+
+>LEAVE IT
+
+The gate is closed!
+
+>OPEN IT
+
+Opened (by remote control).
+
+>LEAVE THE TANK
+
+The engine is off!
+
+>TURN IT ON
+
+You can immediately hear the powerful thrum of the hydrojet turbine.
+(Your score just went up by 5 points!)
+
+>LEAVE THE TANK
+
+You can do this by setting the throttle to the speed you want (slow, medium, or
+fast) and by moving the joystick in the compass direction you wish to go.
+
+>SET THE THROTTLE TO SLOW SPEED
+
+(I found too many nouns in that sentence!)
+
+>SET THE THROTTLE TO SLOW
+
+You shouldn't leave the tank with the hatch open!
+
+>CLOSE IT
+
+Okay, the entry hatch is now closed.
+
+>SLOW
+
+Okay, now that the throttle is set, try pushing the joystick to the east.
+
+>PUSH THE STICK EAST
+
+The SCIMITAR glides smoothly out of the tank onto the surface of Frobton Bay.
+You're heading east at 1 sea square per turn.
+(Your score just went up by 5 points!)
+(This might be a good time to use the command: SAVE.)
+
+A speedboat came out of nowhere and almost hit you! It's dangerous on the
+surface of the bay.
+
+>Q
+
+Your score is 24 points out of 100, in 44 turns.
+This score gives you the rank of a fair adventurer.
+(If you want to continue from this point at another time, you must "SAVE"
+first.)
+Do you want to stop playing now? >Y
+
diff --git a/german.rno b/german.rno
new file mode 100644
index 0000000..0c4d5e8
--- /dev/null
+++ b/german.rno
@@ -0,0 +1,56 @@
+.c;Seastalker -- a perfect adventure
+.s
+.p 2,0
+^*Whoever believes that text adventures are boring doesn't know 
+"Seastalker". This deep-sea adventure for the C64, Atari, Apple II, and
+IBM-PC amazes with its variety and extras, that provide for atmosphere:
+from a sticker to a logbook and "Infocard-decoder".\*
+.s
+Many dangers lie in waiting in the unfathomable deeps of the sea.  The 
+"Aquadome", the first underwater research station, is threatened by a
+catastrophe. As the upright, young hero (no false modesty) you swing into
+the submarine to help.  Indeed you were ready and waiting for a wicked 
+sea monster.
+   What sounds to you like the plot of a wild action game is the fanciful 
+story to "Seastalker", one of the newest adventure games of an American
+software house, that is famous for its cunning text-adventures, that show
+themselves in two ways:  First, the programs are positively uncannily 
+"intelligent", they understand complicated sentences and reach an almost
+literary niveau.  Second, one gets a great quantity of accessories for 
+one's money.
+   Also with "Seastalker" the extras aren't spared: Along with the disk and the
+usual loading directions one gets a logbook, just like the original, out of
+which detailed instructions are revealed, a sea chart, a sticker and a whole 
+pack of "Infocards" with their decoder.
+   On these Infocards are hidden hints, that are only able to be seen when they
+are shoved through the groove in the decoder.  A frustrated adventurer gets
+discrete tips this way, that he could not see by "accident", only when he
+really wants to.  The logbook gives one a real seaman's atmosphere.  Along 
+with a rousing letter from the president of the USA, it gives a hint of the 
+way to use the technical equipment and how to communicate with the program.
+   The adventure begins with you in the research laboratory, working 
+industriously away.  Suddenly the alarms go off. If you are lively, you 
+can get radio contact with the Aquadome.  A woman appears in the adventure
+on a screen and implores you for help, because the underwater station is 
+being threatened by a horrible monster, that so far is not more closely 
+described. Luckily, your submarine "Scimitar" stands ready, with it you
+can rush to the Aquadome to help.
+.s
+.c;Literary niveau
+   "Seastalker" is not an exaggeratedly difficult text-adventure. In the USA it is 
+suggested for children from nine years up. The program is in very clean
+English and a knowledge of the correspondence style is given in advance, 
+this allows it to address in our degree of longitude a previously matured public.
+   This pretentious game is designed with "speech intelligence".  Where other
+adventures accept only "Get food", "Seastalker" swallows extensive sentences
+like "Unlock the front door with key and go north". One can even talk with
+other people in the adventure.
+   "Seastalker" is a very worthily made text-adventure for players with a progressive
+knowledge of English.  Although it is relatively easy, some beginners have
+great trouble to succesfully complete the mission.  The program comes on a
+diskette and costs about 100 Marks. 
+.s
+   [caption at top] Naked text fills the screen
+   [caption at bottom] The inclusions to "Seastalker" are not only charming and pleasurable to the great journey in this underwater adventure
+.s
+.c;[translation by Linde Simpson]
diff --git a/global.zap b/global.zap
index 4134d42..568ea59 100644
--- a/global.zap
+++ b/global.zap
@@ -64,7 +64,7 @@
 
 
 	.FUNCT	LOCAL-SUB-F
-	EQUAL?	PRSA,V?PUT \?ELS5
+	EQUAL?	PRSA,V?TURN,V?PUT \?ELS5
 	CALL	MORE-SPECIFIC
 	RSTACK	
 ?ELS5:	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH \?ELS7
@@ -108,7 +108,7 @@
 	RSTACK	
 ?ELS45:	EQUAL?	PRSA,V?BOARD,V?THROUGH \?ELS49
 	EQUAL?	HERE,SUB,CRAWL-SPACE \?ELS54
-	CALL	ALREADY,WINNER,STR?123
+	CALL	ALREADY,WINNER,STR?117
 	RSTACK	
 ?ELS54:	EQUAL?	HERE,AIRLOCK-WALL \?ELS56
 	CALL	GOTO,AIRLOCK
@@ -141,7 +141,7 @@
 	CALL	PERFORM,PRSA,SUB-DOOR
 	RTRUE	
 ?ELS89:	EQUAL?	PRSA,V?ANALYZE \?ELS93
-	EQUAL?	PRSI,DAMAGE,GLOBAL-SABOTAGE,0 \?ELS93
+	EQUAL?	PRSI,DAMAGE,GLOBAL-SABOTAGE,FALSE-VALUE \?ELS93
 	PRINTI	"You can do this by pushing the "
 	PRINTD	TEST-BUTTON
 	EQUAL?	HERE,SUB,CRAWL-SPACE /?CND98
@@ -256,10 +256,10 @@
 	PRINTR	" subs."
 
 
-	.FUNCT	PHONE-ON,PERSON,PWHERE,ON
-	SET	'REMOTE-PERSON,PERSON
-	SET	'QCONTEXT,PERSON
-	CALL	THIS-IS-IT,PERSON
+	.FUNCT	PHONE-ON,PER,PWHERE,ON
+	SET	'REMOTE-PERSON,PER
+	SET	'QCONTEXT,PER
+	CALL	THIS-IS-IT,PER
 	SET	'REMOTE-PERSON-REMLOC,PWHERE
 	SET	'REMOTE-PERSON-ON,ON
 	SET	'REMOTE-PERSON-LOC,HERE
@@ -271,10 +271,10 @@
 	.FUNCT	PHONE-OFF
 	ZERO?	REMOTE-PERSON /FALSE
 	MOVE	REMOTE-PERSON,GLOBAL-OBJECTS
-	SET	'REMOTE-PERSON,0
-	SET	'REMOTE-PERSON-LOC,0
-	SET	'REMOTE-PERSON-ON,0
-	RTRUE	
+	SET	'REMOTE-PERSON,FALSE-VALUE
+	SET	'REMOTE-PERSON-LOC,FALSE-VALUE
+	SET	'REMOTE-PERSON-ON,FALSE-VALUE
+	RETURN	REMOTE-PERSON-ON
 
 
 	.FUNCT	INTERCOM-F,P,L
@@ -316,7 +316,7 @@
 	EQUAL?	PRSA,V?LAMP-OFF,V?TURN,V?PUSH \FALSE
 ?THN6:	EQUAL?	HERE,CENTER-OF-LAB \?ELS12
 	FSET?	VIDEOPHONE,MUNGBIT \?ELS15
-	CALL	TELL-HINT,83,POWER-SUPPLY,0
+	CALL	TELL-HINT,83,POWER-SUPPLY,FALSE-VALUE
 	RTRUE	
 ?ELS15:	EQUAL?	P-XADJN,W?TEST \?ELS17
 	CALL	A-O-K
@@ -346,7 +346,7 @@
 	PRINTI	"No damage. Hull still watertight."
 	JUMP	?CND41
 ?ELS45:	EQUAL?	TEST-BUTTON-READOUT,REGULATOR-MSG \?ELS49
-	SET	'REGULATOR-MSG-SEEN,1
+	SET	'REGULATOR-MSG-SEEN,TRUE-VALUE
 	PRINTI	"Lasers in operational computers are over-charging.
 To correct, adjust "
 	PRINTD	VOLTAGE-REGULATOR
@@ -499,7 +499,7 @@ WARNING: "
 	RTRUE	
 ?ELS89:	ZERO?	WOMAN-ON-SCREEN \?CND83
 	PRINTR	"Nothing changes."
-?CND83:	SET	'WOMAN-ON-SCREEN,0
+?CND83:	SET	'WOMAN-ON-SCREEN,FALSE-VALUE
 	CALL	PHONE-ON,GLOBAL-BLY,AQUADOME,VIDEOPHONE
 	CALL	THIS-IS-IT,PROBLEM
 	PRINTI	"Ah, that's better! You recognize the woman as "
@@ -524,7 +524,7 @@ WARNING: "
 	RTRUE	
 ?ELS82:	EQUAL?	PRSA,V?LAMP-OFF \?ELS99
 	FSET?	VIDEOPHONE,ONBIT \FALSE
-	SET	'WOMAN-ON-SCREEN,0
+	SET	'WOMAN-ON-SCREEN,FALSE-VALUE
 	FCLEAR	VIDEOPHONE,ONBIT
 	EQUAL?	REMOTE-PERSON-ON,VIDEOPHONE \?ELS107
 	FSET?	MICROPHONE,ONBIT \?ELS107
@@ -535,8 +535,8 @@ WARNING: "
 ?ELS99:	EQUAL?	PRSA,V?REPLY,V?LAMP-ON \?ELS115
 	ZERO?	SUB-IN-TANK /?ELS115
 	FSET?	VIDEOPHONE,ONBIT \?ELS120
-	CALL	ALREADY,VIDEOPHONE,STR?47
-	JUMP	?CND118
+	CALL	ALREADY,VIDEOPHONE,STR?42
+	RTRUE	
 ?ELS120:	FSET?	CIRCUIT-BREAKER,OPENBIT /?THN123
 	FSET?	VIDEOPHONE,MUNGBIT \?CND118
 ?THN123:	PRINTR	"You can't. It's conked out."
@@ -544,9 +544,9 @@ WARNING: "
 	PUT	STACK,0,0
 	FSET	VIDEOPHONE,ONBIT
 	ZERO?	ALARM-RINGING /?ELS131
-	SET	'ALARM-RINGING,0
+	SET	'ALARM-RINGING,FALSE-VALUE
 	CALL	QUEUE,I-ALARM-RINGING,0
-	SET	'WOMAN-ON-SCREEN,1
+	SET	'WOMAN-ON-SCREEN,TRUE-VALUE
 	CALL	THIS-IS-IT,GLOBAL-BLY
 	PRINTI	"As the "
 	PRINTD	ALARM
@@ -692,9 +692,9 @@ WARNING: "
 	ZERO?	VAL /?ELS44
 	PRINTI	"Your "
 	EQUAL?	P-ADVERB,W?CAREFULLY \?ELS52
-	PUSH	STR?124
+	PUSH	STR?118
 	JUMP	?CND48
-?ELS52:	PUSH	STR?125
+?ELS52:	PUSH	STR?119
 ?CND48:	PRINT	STACK
 	PRINTR	" search reveals nothing exciting."
 ?ELS44:	PRINTR	"You didn't finish looking over the place."
@@ -707,7 +707,7 @@ WARNING: "
 ?ELS69:	FSET?	F,CONTBIT \?ELS71
 	CALL	INHABITED?,F
 	ZERO?	STACK /?ELS71
-	SET	'FLG,1
+	SET	'FLG,TRUE-VALUE
 	SET	'HR,HERE
 	SET	'HERE,F
 	CALL	GLOBAL-HERE-F
@@ -715,8 +715,8 @@ WARNING: "
 	JUMP	?CND67
 ?ELS71:	FSET?	F,PERSON \?CND67
 	EQUAL?	F,PLAYER /?CND67
-	SET	'FLG,1
-	CALL	DESCRIBE-OBJECT,F,1,0
+	SET	'FLG,TRUE-VALUE
+	CALL	DESCRIBE-OBJECT,F,TRUE-VALUE,0
 ?CND67:	NEXT?	F >F /?KLU84
 ?KLU84:	JUMP	?PRG65
 ?REP66:	ZERO?	FLG \TRUE
@@ -752,7 +752,7 @@ WARNING: "
 	EQUAL?	PRSA,V?WALK-TO \?ELS5
 	CALL	IN-TANK-AREA?,HERE
 	ZERO?	STACK /?ELS10
-	CALL	ALREADY,PLAYER,STR?123
+	CALL	ALREADY,PLAYER,STR?117
 	RSTACK	
 ?ELS10:	ZERO?	SUB-IN-TANK /FALSE
 	CALL	PERFORM,PRSA,NORTH-TANK-AREA
@@ -785,23 +785,23 @@ WARNING: "
 	PRINTR	"You'll have to go west to do that."
 ?ELS41:	EQUAL?	PRSA,V?EMPTY \?ELS47
 	FSET?	TANK-GATE,OPENBIT \?ELS52
-	CALL	YOU-CANT,STR?70,TANK-GATE,STR?23
+	CALL	YOU-CANT,STR?65,TANK-GATE,STR?21
 	RSTACK	
 ?ELS52:	FSET?	ENGINE,ONBIT \?ELS54
-	CALL	YOU-CANT,STR?70,ENGINE,STR?47
+	CALL	YOU-CANT,STR?65,ENGINE,STR?42
 	RSTACK	
 ?ELS54:	ZERO?	TEST-TANK-FULL /?ELS56
-	SET	'TEST-TANK-FULL,0
+	SET	'TEST-TANK-FULL,FALSE-VALUE
 	PRINTI	"The "
 	PRINTD	GLOBAL-WATER
 	PRINTR	" quickly drains from the tank."
-?ELS56:	CALL	ALREADY,TEST-TANK,STR?70
+?ELS56:	CALL	ALREADY,TEST-TANK,STR?65
 	RSTACK	
 ?ELS47:	EQUAL?	PRSA,V?FILL \?ELS63
 	ZERO?	TEST-TANK-FULL /?ELS68
-	CALL	ALREADY,TEST-TANK,STR?71
+	CALL	ALREADY,TEST-TANK,STR?66
 	RSTACK	
-?ELS68:	SET	'TEST-TANK-FULL,1
+?ELS68:	SET	'TEST-TANK-FULL,TRUE-VALUE
 	PRINTI	"The "
 	PRINTD	GLOBAL-WATER
 	PRINTR	" quickly fills the tank, up to the level of the walkway."
@@ -866,9 +866,9 @@ WARNING: "
 ?ELS11:	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \?ELS15
 	PRINTI	"This gate "
 	FSET?	TANK-GATE,OPENBIT \?ELS22
-	PUSH	STR?126
+	PUSH	STR?113
 	JUMP	?CND18
-?ELS22:	PUSH	STR?127
+?ELS22:	PUSH	STR?120
 ?CND18:	PRINT	STACK
 	PRINTI	" raised to permit submarines to go in or out of the tank. The gate can be raised or lowered by wall controls or by remote control from all "
 	CALL	PRINT-NAME,LAST-NAME
@@ -921,29 +921,29 @@ WARNING: "
 	.FUNCT	GATE-STATUS
 	ZERO?	SUB-IN-TANK /?ELS5
 	FSET?	TANK-GATE,OPENBIT \?ELS11
-	RETURN	STR?23
+	RETURN	STR?21
 ?ELS11:	RETURN	STR?17
 ?ELS5:	ZERO?	SUB-IN-DOME \?THN16
 	CALL	SUB-OUTSIDE-AIRLOCK?
 	ZERO?	STACK /?ELS15
 ?THN16:	FSET?	AIRLOCK-HATCH,OPENBIT \?ELS22
-	RETURN	STR?23
+	RETURN	STR?21
 ?ELS22:	RETURN	STR?17
-?ELS15:	RETURN	STR?128
+?ELS15:	RETURN	STR?121
 
 
 	.FUNCT	TANK-STATUS
 	ZERO?	SUB-IN-TANK /?ELS5
 	ZERO?	TEST-TANK-FULL /?ELS11
-	RETURN	STR?71
-?ELS11:	RETURN	STR?70
+	RETURN	STR?66
+?ELS11:	RETURN	STR?65
 ?ELS5:	ZERO?	SUB-IN-DOME \?THN17
 	CALL	SUB-OUTSIDE-AIRLOCK?
 	ZERO?	STACK /?ELS16
 ?THN17:	ZERO?	AIRLOCK-FULL /?ELS23
-	RETURN	STR?71
-?ELS23:	RETURN	STR?70
-?ELS16:	RETURN	STR?128
+	RETURN	STR?66
+?ELS23:	RETURN	STR?65
+?ELS16:	RETURN	STR?121
 
 
 	.FUNCT	AIRLOCK-HATCH-F
@@ -972,7 +972,7 @@ WARNING: "
 	.FUNCT	OPEN-CLOSE-GATE,GATE,FULL,TANK
 	EQUAL?	PRSA,V?RAISE,V?OPEN \?ELS3
 	FSET?	GATE,OPENBIT \?ELS6
-	CALL	ALREADY,GATE,STR?23
+	CALL	ALREADY,GATE,STR?21
 	RTRUE	
 ?ELS6:	ZERO?	FULL \?ELS8
 	PRINTI	"You'd better fill the "
@@ -980,7 +980,7 @@ WARNING: "
 	PRINTR	" first, unless you want to go surfing!"
 ?ELS8:	EQUAL?	GATE,TANK-GATE \?CND13
 	EQUAL?	HERE,SUB \?CND13
-	SET	'OPENED-GATE-FROM-SUB,1
+	SET	'OPENED-GATE-FROM-SUB,TRUE-VALUE
 ?CND13:	FSET	GATE,OPENBIT
 	JUMP	?CND1
 ?ELS3:	FSET?	GATE,OPENBIT \?ELS22
@@ -1039,7 +1039,7 @@ WARNING: "
 	RSTACK	
 ?ELS11:	EQUAL?	PRSA,V?OPEN \?ELS17
 	FSET?	AIRLOCK-ROOF,OPENBIT \?ELS20
-	CALL	ALREADY,AIRLOCK-ROOF,STR?23
+	CALL	ALREADY,AIRLOCK-ROOF,STR?21
 	RTRUE	
 ?ELS20:	FSET?	AIRLOCK-HATCH,OPENBIT \?CND18
 	CALL	THIS-IS-IT,AIRLOCK-HATCH
@@ -1079,28 +1079,23 @@ WARNING: "
 
 	.FUNCT	LAB-ASSISTANT-F
 	EQUAL?	PRSA,V?WALK-TO,V?FIND \FALSE
-	CALL	DO-INSTEAD-OF,LAB-ASSISTANT,LOWELL
+	CALL	DO-INSTEAD-OF,LOWELL,LAB-ASSISTANT
 	RSTACK	
 
 
 	.FUNCT	DOC-LABORATORY-F
-	ZERO?	SUB-IN-DOME \?THN6
-	EQUAL?	PRSA,V?FIND \?ELS5
-?THN6:	CALL	DO-INSTEAD-OF,HERE,DOC-LABORATORY
-	RTRUE	
-?ELS5:	EQUAL?	PRSA,V?WALK-TO \FALSE
-	CALL	PERFORM,PRSA,DOME-LAB
+	EQUAL?	PRSA,V?THROUGH,V?WALK-TO \FALSE
+	CALL	PERFORM,V?WALK-TO,DOME-LAB
 	RTRUE	
 
 
 	.FUNCT	YOUR-LABORATORY-F
 	CALL	IN-LAB?,HERE
-	ZERO?	STACK \?THN6
-	EQUAL?	PRSA,V?FIND \?ELS5
-?THN6:	CALL	DO-INSTEAD-OF,HERE,YOUR-LABORATORY
+	ZERO?	STACK /?ELS5
+	CALL	DO-INSTEAD-OF,HERE,YOUR-LABORATORY
 	RTRUE	
-?ELS5:	EQUAL?	PRSA,V?WALK-TO \FALSE
-	CALL	PERFORM,PRSA,CENTER-OF-LAB
+?ELS5:	EQUAL?	PRSA,V?THROUGH,V?WALK-TO \FALSE
+	CALL	PERFORM,V?WALK-TO,CENTER-OF-LAB
 	RTRUE	
 
 
@@ -1135,8 +1130,9 @@ WARNING: "
 
 
 	.FUNCT	CHAIR-F
-	EQUAL?	PRSA,V?LOOK-UNDER,V?SIT \FALSE
-	PRINTR	"That's just a waste of time."
+	EQUAL?	PRSA,V?CLIMB-DOWN /?THN6
+	EQUAL?	PRSA,V?CLIMB-ON,V?LOOK-UNDER,V?SIT \FALSE
+?THN6:	PRINTR	"That's just a waste of time."
 
 
 	.FUNCT	UNDERWATER-F
@@ -1148,12 +1144,12 @@ WARNING: "
 
 	.FUNCT	GAME-F
 	EQUAL?	PRSA,V?READ,V?PLAY,V?EXAMINE \FALSE
-	SET	'P-WON,0
+	SET	'P-WON,FALSE-VALUE
 	PRINTR	"(You're doing it!)"
 
 
 	.FUNCT	SOMETHING-F
-	SET	'P-WON,0
+	SET	'P-WON,FALSE-VALUE
 	PRINTI	"(Type a real word instead of "
 	PRINTD	SOMETHING
 	PRINTR	".)"
diff --git a/global.zil b/global.zil
index bb6c0dd..ed36a76 100644
--- a/global.zil
+++ b/global.zil
@@ -5,7 +5,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	(PSEUDO "NOTHIN" RANDOM-PSEUDO)
 	(VALUE 0)
 	(GENERIC NULL-F)
-	(FLAGS	BUSYBIT CONTBIT DOORBIT ;DRINKBIT FEMALE ;FOODBIT FURNITURE
+	(FLAGS	BUSYBIT CONTBIT DOORBIT ;DRINKBIT FEMALE ;FOODBIT ;FURNITURE
 		INVISIBLE LIGHTBIT LOCKED MUNGBIT
 		NARTICLEBIT NDESCBIT ONBIT ON?BIT OPENBIT
 		PERSON READBIT RLANDBIT RMUNGBIT SEARCHBIT SURFACEBIT TAKEBIT
@@ -47,7 +47,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		 <VERB? ASK-ABOUT ASK-FOR SEARCH-FOR TELL-ABOUT>>
 	    <AND <DOBJ? IT>
 		 <VERB? ASK-CONTEXT-ABOUT ASK-CONTEXT-FOR FIND WHAT>>>
-	%<XTELL "\"I'm not sure what you're talking about.\"" CR>)>>
+	<TELL "\"I'm not sure what you're talking about.\"" CR>)>>
 
 <OBJECT FLOOR
 	(IN GLOBAL-OBJECTS)
@@ -65,7 +65,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		       <PERFORM ,PRSA ,TEST-TANK>
 		       <RTRUE>)>)
 	       (<VERB? EXAMINE SEARCH LOOK-ON>
-		%<XTELL "You don't find anything new there." CR>)>>
+		<TELL "You don't find anything new there." CR>)>>
 
 <OBJECT IU-GLOBAL
 	(IN GLOBAL-OBJECTS)
@@ -108,7 +108,7 @@ to the family name with your own unique inventions.")>
 	;"I-SNARK-ATTACKS provides output."
 	<RTRUE>)
        (<AND <VERB? FIND> <NOT ,MONSTER-GONE>>
-	%<XTELL "It's attacking the " D ,AQUADOME "!" CR>
+	<TELL "It's attacking the " D ,AQUADOME "!" CR>
 	<RTRUE>)>>
 
 <OBJECT GLOBAL-WEAPON
@@ -137,16 +137,16 @@ to the family name with your own unique inventions.")>
 	 <TELL "The " D .OBJ " is mounted on " A ,CLAW "." CR>>
 
 <ROUTINE CANT-SEND ()
-	%<XTELL "You can't send it. Only you can pilot it there." CR>>
+	<TELL "You can't send it. Only you can pilot it there." CR>>
 
 <ROUTINE LOCAL-SUB-F ()
- <COND (<VERB? PUT> <MORE-SPECIFIC>)
+ <COND (<VERB? PUT TURN> <MORE-SPECIFIC>)
        (<VERB? SEARCH SEARCH-FOR>
 	<DO-INSTEAD-OF ,SUB ,LOCAL-SUB>
 	<RTRUE>)
        (<VERB? EXAMINE>
 	<COND (<AND <NOT <GET ,ON-SUB 0>> <NOT <GET ,ON-SUB 1>>>
-	       %<XTELL <GETP ,LOCAL-SUB ,P?TEXT>
+	       <TELL <GETP ,LOCAL-SUB ,P?TEXT>
 ;"(You'll find that information in your SEASTALKER package.)" CR>
 	       <RTRUE>)>
 	<COND (<GET ,ON-SUB 0>
@@ -156,7 +156,7 @@ to the family name with your own unique inventions.")>
 	<RTRUE>)
        (<VERB? FIND>
 	<DISABLE <INT I-SEND-SUB>>
-	%<XTELL "It's right here!" CR>)
+	<TELL "It's right here!" CR>)
        (<OR <VERB? LOOK-BEHIND>
 	    <AND <VERB? LOOK-OUTSIDE> <EQUAL? ,HERE ,SUB>>>
 	<PERFORM ,V?LOOK-OUTSIDE ,SUB-WINDOW>
@@ -199,14 +199,14 @@ to the family name with your own unique inventions.")>
 	<PERFORM ,PRSA ,SUB-DOOR>
 	<RTRUE>)
        (<AND <VERB? ANALYZE> <EQUAL? ,PRSI ,DAMAGE ,GLOBAL-SABOTAGE <>>>
-	%<XTELL "You can do this by pushing the " D ,TEST-BUTTON>
+	<TELL "You can do this by pushing the " D ,TEST-BUTTON>
 	<COND (<NOT <EQUAL? ,HERE ,SUB ,CRAWL-SPACE>>
 	       <TELL " on the " D ,CONTROLS " inside">)>
 	<TELL "." CR>)
        (<VERB? LAMP-ON>
 	<COND (<NOT <EQUAL? ,HERE ,SUB ;,CRAWL-SPACE>>
 	       <THIS-IS-IT ,SUB>
-	       %<XTELL "You have to be in the " D ,SUB " to start it." CR>)
+	       <TELL "You have to be in the " D ,SUB " to start it." CR>)
 	      ;(<EQUAL? ,HERE ,CRAWL-SPACE>
 	       <THIS-IS-IT ,SUB>
 	       <TELL "You have to be in the pilot's seat to start it." CR>)
@@ -231,7 +231,7 @@ to the family name with your own unique inventions.")>
 	       <THIS-IS-IT ,ENGINE>
 	       <TELL "The engine is off!" CR>)
 	      (T
-	       %<XTELL
+	       <TELL
 "You can do this by setting the throttle to the speed you want (slow,
 medium, or fast) and by moving the " D ,JOYSTICK
 " in the " D ,INTDIR " you wish to go." CR
@@ -240,11 +240,11 @@ medium, or fast) and by moving the " D ,JOYSTICK
        (<VERB? STOP>
 	<COND (<NOT <EQUAL? ,HERE ,SUB ;,CRAWL-SPACE>>
 	       <THIS-IS-IT ,SUB>
-	       %<XTELL "You have to be in the " D ,SUB " to stop it." CR>)
+	       <TELL "You have to be in the " D ,SUB " to stop it." CR>)
 	      ;(<EQUAL? ,HERE ,CRAWL-SPACE>
 	       <TELL "You have to be in the pilot's seat to stop it." CR>)
 	      (<NOT <FSET? ,ENGINE ,ONBIT>>
-	       %<XTELL "The engine is off!" CR>)
+	       <TELL "The engine is off!" CR>)
 	      (T	;<EQUAL? ,SUB-DEPTH ,TARGET-DEPTH>
 	       <SETG TARGET-DEPTH ,SUB-DEPTH>
 	       <TELL ,I-ASSUME " close the " D ,THROTTLE ".)" CR>
@@ -282,7 +282,7 @@ your present depth." CR>)>)>>
 	     <OR <VERB? FIND>
 		 <AND <VERB? ASK-ABOUT> <FSET? ,PRSO ,PERSON>>>>
 	<DISABLE <INT I-SEND-SUB>>
-	%<XTELL "The only sub at">
+	<TELL "The only sub at">
 	<RESEARCH-LAB>
 	<TELL " is your new " D ,GLOBAL-SUB ".
 It's located in the test tank just south of " D ,YOUR-LABORATORY "." CR>)
@@ -311,16 +311,16 @@ It's located in the test tank just south of " D ,YOUR-LABORATORY "." CR>)
 	<RTRUE>)
        (<EQUAL? ,HERE ,WEST-TANK-AREA>
 	<COND (<VERB? EXAMINE>
-	       %<XTELL
+	       <TELL
 "These are valves, gauges and control gear needed to make full use of
 the tank. Two important controls are the " D ,OPEN-GATE-BUTTON " and the
 " D ,FILL-TANK-BUTTON ". This gear can be operated by remote control
 from all " LN " subs." CR>)>)>>
 
-<ROUTINE PHONE-ON (PERSON PWHERE ON ;WHERE)
-	<SETG REMOTE-PERSON .PERSON>
-	<SETG QCONTEXT .PERSON>
-	<THIS-IS-IT .PERSON>
+<ROUTINE PHONE-ON (PER PWHERE ON ;WHERE)
+	<SETG REMOTE-PERSON .PER>
+	<SETG QCONTEXT .PER>
+	<THIS-IS-IT .PER>
 	<SETG REMOTE-PERSON-REMLOC .PWHERE>
 	<SETG REMOTE-PERSON-ON .ON>
 	<SETG REMOTE-PERSON-LOC ,HERE ;.WHERE>
@@ -343,7 +343,7 @@ from all " LN " subs." CR>)>)>>
 
 <ROUTINE INTERCOM-F ("AUX" P L)
  <COND (<VERB? LAMP-ON SAY-INTO>
-	%<XTELL "Try the command: CALL (someone) ON THE INTERCOM." CR>)
+	<TELL "Try the command: CALL (someone) ON THE INTERCOM." CR>)
        (<VERB? PHONE>
 	<COND (<FSET? ,PRSO ,PERSON>
 	       <SET P <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>
@@ -447,11 +447,6 @@ D ,ESCAPE-POD-UNIT " is not properly connected.">)
 	(SYNONYM SUPPLY)
 	(TEXT "(You'll find that information in your SEASTALKER package.)")>
 
-;<OBJECT LIGHTS
-	(IN LOCAL-GLOBALS)
-	(DESC "lights")
-	(SYNONYM LIGHT LIGHTS)>
-
 <OBJECT DISTRESS-CALL
 	(IN GLOBAL-OBJECTS)
 	(DESC "distress call")
@@ -501,7 +496,7 @@ D ,ESCAPE-POD-UNIT " is not properly connected.">)
 		     (T <TELL "It's not ringing!" CR>)>)>>
 
 <ROUTINE WHY-NOT-VP ()
-	%<XTELL "Why not turn on the " D ,VIDEOPHONE "?" CR>>
+	<TELL "Why not turn on the " D ,VIDEOPHONE "?" CR>>
 
 <OBJECT VIDEOPHONE
 	(IN LOCAL-GLOBALS)
@@ -552,7 +547,7 @@ turn the knob." CR>)
 	       <TELL
 "An " D ,ALARM " on the " D ,VIDEOPHONE " is ringing." CR>)>)
        (<AND <VERB? ANALYZE> <IOBJ? GLOBAL-SABOTAGE> ,SUB-IN-TANK>
-	%<XTELL
+	<TELL
 "If you wish
 to determine at once whether any saboteur or other intruder may have
 penetrated">
@@ -568,13 +563,13 @@ penetrated">
 	<RTRUE>)
        (<REMOTE-VERB?> <RFALSE>)
        (<NOT <EQUAL? ,HERE ,CENTER-OF-LAB ,COMM-BLDG>>
-	%<XTELL "You must be in the ">
+	<TELL "You must be in the ">
 	<COND (,SUB-IN-TANK <TELL D ,CENTER-OF-LAB>)
 	      (T <TELL D ,COMM-BLDG>)>
 	<TELL " to do that." CR>)
        (<VERB? ADJUST FIX TURN>
 	<COND (<FSET? ,VIDEOPHONE ,MUNGBIT>
-	       %<XTELL
+	       <TELL
 "You can't fix the " D ,VIDEOPHONE " until you know what is wrong.
 The simplest way to find out is to consult your "LN" " D ,COMPUTESTOR ",
 which is programmed to troubleshoot many of your inventions.
@@ -591,7 +586,7 @@ D ,GLOBAL-TECHNICIAN "." CR>
 	<PHONE-ON ,GLOBAL-BLY ,AQUADOME ,VIDEOPHONE>
 	;<ENABLE <QUEUE I-SHARON-TO-HALLWAY 12>>
 	<THIS-IS-IT ,PROBLEM>
-	%<XTELL
+	<TELL
 "Ah, that's better! You recognize the woman as " D ,BLY ", who's in
 charge of the " ,URS " of " D ,IU-GLOBAL ", called
 the " D ,AQUADOME ", just off the Atlantic coast. \"" FN "! " FN "!\" she's
@@ -612,10 +607,11 @@ saying. \"This is the " D ,AQUADOME " calling">
 	       <RTRUE>)
 	      (T
 	       <PHONE-OFF>
-	       %<XTELL "The screen goes dark." CR>)>)
+	       <TELL "The screen goes dark." CR>)>)
        (<AND <VERB? LAMP-ON REPLY> ,SUB-IN-TANK>
 	<COND (<FSET? ,VIDEOPHONE ,ONBIT>
-	       <ALREADY ,VIDEOPHONE "on">)
+	       <ALREADY ,VIDEOPHONE "on">
+	       <RTRUE>)
 	      (<OR <FSET? ,CIRCUIT-BREAKER ,OPENBIT>
 		   <FSET? ,VIDEOPHONE ,MUNGBIT>>
 	       <TELL "You can't. It's conked out." CR>
@@ -627,17 +623,17 @@ saying. \"This is the " D ,AQUADOME " calling">
 	       <QUEUE I-ALARM-RINGING 0>
 	       <SETG WOMAN-ON-SCREEN T>
 	       <THIS-IS-IT ,GLOBAL-BLY>
-	       %<XTELL
+	       <TELL
 "As the " D ,ALARM " stops ringing, a picture of a woman holding a " D
 ,MICROPHONE " appears, and you can hear her voice from the speaker. But
 both sound and picture are fuzzy." CR>
 	       <SCORE-OBJ ,VIDEOPHONE>
 	       <RTRUE>)
-	      (T %<XTELL "A test pattern appears." CR>)>)
+	      (T <TELL "A test pattern appears." CR>)>)
        (<VERB? PHONE>
 	<COND (<OR ,WOMAN-ON-SCREEN
 		   <EQUAL? ,REMOTE-PERSON-ON ,VIDEOPHONE>>
-	       %<XTELL "You should finish talking with ">
+	       <TELL "You should finish talking with ">
 	       <COND (,WOMAN-ON-SCREEN <TELL "the woman">)
 		     (T <TELL D ,REMOTE-PERSON>)>
 	       <TELL " first." CR>
@@ -646,7 +642,7 @@ both sound and picture are fuzzy." CR>
 	       <TELL "There's no answer." CR>)
 	      (<AND <DOBJ? AQUADOME GLOBAL-BLY> ,SUB-IN-TANK>
 	       <COND (,BLY-TOLD-PROBLEM
-		      %<XTELL
+		      <TELL
 "There's no answer. The crew must be busy with the " D ,SNARK "." CR>
 		      <RTRUE>)
 		     (,ALARM-RINGING
@@ -731,7 +727,7 @@ both sound and picture are fuzzy." CR>
 	       <PERFORM ,V?LOOK-OUTSIDE ,SUB-WINDOW>
 	       <RTRUE>)>)
        (<VERB? SWIM THROUGH>
-	%<XTELL "This is no time for a swim, " FN "!" CR>)>>
+	<TELL "This is no time for a swim, " FN "!" CR>)>>
 
 <OBJECT SEA
 	(IN GLOBAL-OBJECTS)
@@ -751,11 +747,11 @@ both sound and picture are fuzzy." CR>
 	<COND (<OR ,SUB-IN-DOME
 		   ,SUB-IN-OPEN-SEA
 		   <==? ,NOW-TERRAIN ,SEA-TERRAIN>>
-	       %<XTELL "You're in it!" CR>)
+	       <TELL "You're in it!" CR>)
 	      (<EQUAL? ,HERE ,SUB ,CRAWL-SPACE>
-	       %<XTELL
+	       <TELL
 "The nautical chart in your SEASTALKER package should help." CR>)
-	      (T %<XTELL "First you must get in the " D ,SUB "." CR>)>)>>
+	      (T <TELL "First you must get in the " D ,SUB "." CR>)>)>>
 
 <OBJECT HER
 	(IN GLOBAL-OBJECTS)
@@ -821,7 +817,7 @@ both sound and picture are fuzzy." CR>
 
 <ROUTINE GLOBAL-HERE-F ("AUX" (FLG <>) F HR TIM VAL)
 	 <COND (<VERB? KNOCK>
-		%<XTELL "Knocking on the walls reveals nothing unusual." CR>)
+		<TELL "Knocking on the walls reveals nothing unusual." CR>)
 	       (<VERB? PUT TIE-TO>
 		<MORE-SPECIFIC>)
 	       (<VERB? SEARCH EXAMINE>
@@ -831,25 +827,25 @@ both sound and picture are fuzzy." CR>
 		       <SET TIM 3>)
 		      (T <SET TIM <+ 2 <GETP ,HERE ,P?SIZE>>>)>
 		<COND (<==? ,P-ADVERB ,W?CAREFULLY> <SET TIM <* 2 .TIM>>)>
-		%<XTELL
+		<TELL
 "(It's better to examine or search one thing at a time. It would take a
 long time to search a whole room or area thoroughly. A ">
 		<COND (<==? ,P-ADVERB ,W?CAREFULLY> <TELL "careful">)
 		      (T <TELL "brief">)>
-		%<XTELL " search would take
+		<TELL " search would take
 " N .TIM " turns, and it might not reveal much. Would you like
 to do it anyway?)">
 		<COND (<YES?>
 		       <COND (<==? ,M-FATAL <SET VAL <INT-WAIT .TIM>>>
 			      <RTRUE>)
 			     (.VAL
-			      %<XTELL "Your "
+			      <TELL "Your "
 				      <COND (<==? ,P-ADVERB ,W?CAREFULLY>
 					     "careful")
 					    (T "brief")>
 				      " search reveals nothing exciting." CR>)
 			     (T
-			      %<XTELL
+			      <TELL
 "You didn't finish looking over the place." CR>)>)
 		      (T <TELL "Okay." CR>)>)
 	       (<VERB? WHAT ANALYZE ;ASK-ABOUT>
@@ -878,14 +874,14 @@ to do it anyway?)">
 
 <ROUTINE AIR-F ()
 	 <COND (<VERB? EXAMINE>
-		%<XTELL "You can see through the air around you." CR>)
+		<TELL "You can see through the air around you." CR>)
 	       (<VERB? WALK-TO>
 		<TELL "It's all around you!" CR>)
 	       (<VERB? SMELL>
 		<COND ;(<OUTSIDE? ,HERE>
-		       %<XTELL "The air is clear and fresh." CR>)
+		       <TELL "The air is clear and fresh." CR>)
 		      (<FRESH-AIR? ,HERE> <RTRUE>)
-		      (T %<XTELL "The air is rather musty." CR>)>)>>
+		      (T <TELL "The air is rather musty." CR>)>)>>
 
 <ROUTINE GENERIC-TANK-F (OBJ)
  <COND ;(<VERB? LEAVE>
@@ -927,7 +923,7 @@ to do it anyway?)">
        (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
 	<TOO-FAR-AWAY ,TEST-TANK>)
        (<NOT ,SUB-IN-TANK>
-	%<XTELL "You're nowhere near">
+	<TELL "You're nowhere near">
 	<RESEARCH-LAB>
 	<TELL "!" CR>)
        (<AND <OR <NOT <EQUAL? ,HERE ,SUB>> <NOT ,SUB-IN-TANK>>
@@ -936,15 +932,15 @@ to do it anyway?)">
 	;<SETG P-WON <>>
 	<NOT-HERE ,TEST-TANK>)
        (<VERB? BOARD>
-	%<XTELL "That won't do any good." CR>)
+	<TELL "That won't do any good." CR>)
        (<VERB? ;DROP LEAVE>
-	%<XTELL
+	<TELL
 "You can either walk north, or get in the " D ,SUB " and go east." CR>)
        (<VERB? ANALYZE EXAMINE LOOK-INSIDE>
 	<FILL-TANK-BUTTON-F>)
        (<AND <VERB? EMPTY FILL>
 	     <NOT <EQUAL? ,HERE ,WEST-TANK-AREA ,SUB>>>
-	%<XTELL "You'll have to go west to do that." CR>
+	<TELL "You'll have to go west to do that." CR>
 	<RTRUE>)
        (<VERB? EMPTY>
 	<COND (<FSET? ,TANK-GATE ,OPENBIT>
@@ -961,12 +957,12 @@ to do it anyway?)">
 	       <ALREADY ,TEST-TANK "full">)
 	      (T
 	       <SETG TEST-TANK-FULL T>
-	       %<XTELL
+	       <TELL
 "The " D ,GLOBAL-WATER " quickly fills the tank, up to the level of the
 walkway." CR>)>)
        (<VERB? OPEN CLOSE> <PERFORM ,PRSA ,TANK-GATE> <RTRUE>)
        (<VERB? SWIM THROUGH>
-	%<XTELL "This is no time for a swim, " FN "!" CR>)>>
+	<TELL "This is no time for a swim, " FN "!" CR>)>>
 
 <OBJECT FILL-TANK-BUTTON
 	(IN LOCAL-GLOBALS ;SUB)
@@ -1011,14 +1007,14 @@ walkway." CR>)>)
 <GLOBAL OPENED-GATE-FROM-SUB <>>
 <ROUTINE TANK-GATE-F ()
  <COND (<VERB? FIND>
-	%<XTELL "It's on the east wall of the test tank." CR>)
+	<TELL "It's on the east wall of the test tank." CR>)
        (<REMOTE-VERB?> <RFALSE>)
        (<AND <NOT <EQUAL? ,HERE ,SUB>>
 	     <NOT <IN-TANK-AREA? ,HERE>>>
 	;<SETG P-WON <>>
 	<NOT-HERE ,TANK-GATE>)
        (<VERB? ANALYZE EXAMINE>
-	%<XTELL
+	<TELL
 "This gate "
 <COND (<FSET? ,TANK-GATE ,OPENBIT> "is") (T "can be")>
 " raised to
@@ -1027,7 +1023,7 @@ be raised or lowered by wall controls or by remote control from
 all " LN " subs." CR>)
        (<VERB? OPEN CLOSE RAISE DROP>
 	<COND (<NOT <EQUAL? ,HERE ,WEST-TANK-AREA ,SUB>>
-	       %<XTELL "You'll have to go west to do that." CR>
+	       <TELL "You'll have to go west to do that." CR>
 	       <RTRUE>)>
 	<OPEN-CLOSE-GATE ,TANK-GATE ,TEST-TANK-FULL ,TEST-TANK>)>>
 
@@ -1085,7 +1081,7 @@ all " LN " subs." CR>)
 
 <ROUTINE AIRLOCK-HATCH-F ()
  <COND (<VERB? FIND>
-	%<XTELL
+	<TELL
 "It's on the south wall of the " D ,AQUADOME " " D ,AIRLOCK "." CR>)
        (<REMOTE-VERB?> <RFALSE>)
        (<AND <OR <NOT ,SUB-IN-DOME>
@@ -1093,7 +1089,7 @@ all " LN " subs." CR>)
 	     <NOT <SUB-OUTSIDE-AIRLOCK?>>>
 	<TOO-FAR-AWAY ,AIRLOCK-HATCH>)
        (<NOT <0? ,SNARK-ATTACK-COUNT>>
-	%<XTELL "It's too late now! The machinery is jammed!" CR>)
+	<TELL "It's too late now! The machinery is jammed!" CR>)
        (<VERB? OPEN CLOSE RAISE DROP>
 	<OPEN-CLOSE-GATE ,AIRLOCK-HATCH ,AIRLOCK-FULL ,AIRLOCK>)>>
 
@@ -1103,7 +1099,7 @@ all " LN " subs." CR>)
 		      <ALREADY .GATE "open">
 		      <RTRUE>)
 		     (<NOT .FULL>
-		      %<XTELL
+		      <TELL
 "You'd better fill the " D .TANK " first, unless you want to go surfing!" CR>
 		      <RTRUE>)
 		     (T
@@ -1154,7 +1150,7 @@ all " LN " subs." CR>)
 
 <ROUTINE AIRLOCK-ROOF-F ()
  <COND (<VERB? FIND>
-	%<XTELL "It covers the " D ,AQUADOME " " D ,AIRLOCK "." CR>)
+	<TELL "It covers the " D ,AQUADOME " " D ,AIRLOCK "." CR>)
        (<REMOTE-VERB?> <RFALSE>)
        (<OR <NOT ,SUB-IN-DOME>
 	    <AND <NOT <EQUAL? ,HERE ,SUB ,AIRLOCK ,BLY-OFFICE>>
@@ -1167,7 +1163,7 @@ all " LN " subs." CR>)
 	      (<FSET? ,AIRLOCK-HATCH ,OPENBIT>
 	       ;<ENABLE <QUEUE I-DOME-FLOODED 2>>
 	       <THIS-IS-IT ,AIRLOCK-HATCH>
-	       %<XTELL
+	       <TELL
 "A safety mechanism prevents it. The " D ,AIRLOCK-HATCH " is open!" CR>
 	       <RTRUE>)>
 	<FSET ,AIRLOCK-ROOF ,OPENBIT>
@@ -1186,7 +1182,7 @@ all " LN " subs." CR>)
 	<TELL "." CR>
 	;<DISABLE <INT I-DOME-FLOODED>>
 	<COND (<AND ,GREENUP-ESCAPE <G? 3 ,GREENUP-ESCAPE>>
-	       %<XTELL
+	       <TELL
 "Greenup can't get into the " D ,SUB " and escape any more. ">
 	       <GREENUP-CUFF>)>
 	<RTRUE>)>>
@@ -1194,7 +1190,7 @@ all " LN " subs." CR>)
 <OBJECT PRIVATE-MATTER
 	(DESC "private matter")
 	;(IN GLOBAL-OBJECTS)
-	(ADJECTIVE PERSONNEL ;PRIVATELY)
+	(ADJECTIVE PERSONAL ;PRIVATELY)
 	(SYNONYM MATTER)>
 
 <OBJECT EVIDENCE
@@ -1254,7 +1250,7 @@ all " LN " subs." CR>)
 
 <ROUTINE LAB-ASSISTANT-F ()
  <COND (<VERB? FIND WALK-TO>
-	<DO-INSTEAD-OF ,LAB-ASSISTANT ,LOWELL>)>>
+	<DO-INSTEAD-OF ,LOWELL ,LAB-ASSISTANT>)>>
 
 "? Delete this object and put following in local-globals?"
 <OBJECT DOC-LABORATORY
@@ -1267,11 +1263,11 @@ all " LN " subs." CR>)
 	(ACTION DOC-LABORATORY-F)>
 
 <ROUTINE DOC-LABORATORY-F ()
- <COND (<OR ,SUB-IN-DOME ;<IN-DOME? ,HERE> <VERB? FIND>>
+ <COND ;"(<OR ,SUB-IN-DOME ;<IN-DOME? ,HERE> <VERB? FIND>>
 	<DO-INSTEAD-OF ,HERE ,DOC-LABORATORY>
-	<RTRUE>)
-       (<VERB? WALK-TO>
-	<PERFORM ,PRSA ,DOME-LAB>
+	<RTRUE>)"
+       (<VERB? WALK-TO THROUGH>
+	<PERFORM ,V?WALK-TO ,DOME-LAB>
 	<RTRUE>)>>
 
 <OBJECT YOUR-LABORATORY
@@ -1284,11 +1280,11 @@ all " LN " subs." CR>)
 	(ACTION YOUR-LABORATORY-F)>
 
 <ROUTINE YOUR-LABORATORY-F ()
- <COND (<OR <IN-LAB? ,HERE> ;,SUB-IN-TANK <VERB? FIND>>
+ <COND (<OR <IN-LAB? ,HERE> ;",SUB-IN-TANK <VERB? FIND>">
 	<DO-INSTEAD-OF ,HERE ,YOUR-LABORATORY>
 	<RTRUE>)
-       (<VERB? WALK-TO>
-	<PERFORM ,PRSA ,CENTER-OF-LAB>
+       (<VERB? WALK-TO THROUGH>
+	<PERFORM ,V?WALK-TO ,CENTER-OF-LAB>
 	<RTRUE>)>>
 
 <ROUTINE GENERIC-LABORATORY-F (OBJ)
@@ -1315,7 +1311,7 @@ all " LN " subs." CR>)
 		   <VERB? ASK-ABOUT>
 		   ;<NOT <EQUAL? ,WINNER ,PLAYER>>>>
 	<COND (.X <TELL "\"">)>
-	%<XTELL "I guess you'll have to figure that out, " FN ".">
+	<TELL "I guess you'll have to figure that out, " FN ".">
 	<COND (.X <TELL "\"">)>
 	<CRLF>)>>
 
@@ -1323,12 +1319,12 @@ all " LN " subs." CR>)
 	(IN LOCAL-GLOBALS)
 	(DESC "chair")
 	(SYNONYM CHAIR CHAIRS SEAT)
-	(FLAGS NDESCBIT FURNITURE)
+	(FLAGS NDESCBIT ;FURNITURE)
 	(ACTION CHAIR-F)>
 
 <ROUTINE CHAIR-F ()
- <COND (<VERB? SIT LOOK-UNDER>
-	%<XTELL "That's just a waste of time." CR>)>>
+ <COND (<VERB? SIT LOOK-UNDER CLIMB-ON CLIMB-DOWN>
+	<TELL "That's just a waste of time." CR>)>>
 
 <OBJECT UNDERWATER
 	(IN GLOBAL-OBJECTS)
@@ -1339,7 +1335,7 @@ all " LN " subs." CR>)
 
 <ROUTINE UNDERWATER-F ()
  <COND (<VERB? WALK>
-	%<XTELL "You must be in the " D ,SUB " to do that." CR>)>>
+	<TELL "You must be in the " D ,SUB " to do that." CR>)>>
 
 <OBJECT GAME
 	(IN GLOBAL-OBJECTS)
@@ -1351,7 +1347,7 @@ all " LN " subs." CR>)
 <ROUTINE GAME-F ()
  <COND (<VERB? EXAMINE PLAY READ>
 	<SETG P-WON <>>
-	%<XTELL "(You're doing it!)" CR>)>>
+	<TELL "(You're doing it!)" CR>)>>
 
 <OBJECT SOMETHING
 	(IN GLOBAL-OBJECTS)
@@ -1361,7 +1357,7 @@ all " LN " subs." CR>)
 
 <ROUTINE SOMETHING-F ()
 	<SETG P-WON <>>
-	%<XTELL "(Type a real word instead of " D ,SOMETHING ".)" CR>>
+	<TELL "(Type a real word instead of " D ,SOMETHING ".)" CR>>
 
 "WARNING: object numbers for LEFT & RIGHT must not equal direction numbers!"
 
diff --git a/hintbk.mss b/hintbk.mss
new file mode 100644
index 0000000..d3d13cd
--- /dev/null
+++ b/hintbk.mss
@@ -0,0 +1,75 @@
+@style (spacing 1)
+@title (Seastalker: end of hint booklet)
+@pageheading(DRAFT)
+
+@majorheading (SEASTALKER: END OF HINT BOOKLET)
+
+* Just for fun, have you:
+@begin(itemize)
+
+read the diagram on the workbench?
+
+told Tip to leave the sub and then closed the hatch?
+
+picked up something in an extensor claw before leaving the lab?
+
+crashed the submarine into the Aquadome?
+
+taken the electrolyte relay but not screwed it in?
+
+said "Hello" to anyone on the sonarphone?
+
+asked anyone besides Doc to fix the gash in your arm?
+
+tried to shoot the Sea Cat with a tranquilizer dart?
+
+tried to arrest an object instead of a person?
+
+tried to clean or wipe anything?
+
+tried to find someone who's in the same place as you?
+
+tried to climb the sea wall?
+
+tried to break down a door?
+
+tried to enter something that you're holding?
+
+asked anyone about yourself?
+
+asked anyone to find you?
+
+kicked anyone?
+
+rubbed anyone?
+
+tried to look inside or under anyone?
+
+looked up?
+
+kissed anyone or anything?
+
+slapped anyone or anything, including yourself or a handcuffed person?
+
+thrown something at a person and then at an object?
+
+tried to break a window in the Aquadome?
+
+tried to turn off a person?
+
+tried to wake up anyone?
+
+tried to eat a meal or take the food?
+
+tried to shoot yourself?
+
+followed an inanimate object?
+
+played something?
+
+typed HELLO SAILOR?
+
+typed RESTART or RESTORE at the very beginning instead of your name?
+
+cursed at the program?
+@end(itemize)
diff --git a/hintbook.txt b/hintbook.txt
new file mode 100644
index 0000000..1d513e1
--- /dev/null
+++ b/hintbook.txt
@@ -0,0 +1,673 @@
+
+HINTBOOK FOR SEASTALKER
+
+
+
+
+
+Table of Contents
+
+
+
+Introduction............
+
+The Lab.................
+
+The Scimitar............
+
+The Bay and Ocean.......
+
+The Aquadome............
+
+The Battle..............
+
+How Points are Scored...
+
+For Your Amusement......
+
+
+
+
+
+The Lab
+
+
+
+Why is the alarm bell ringing?
+    
+   A. Someone is trying to contact you.
+   B. Someone is calling the lab on the videophone.
+   C. Have you tried turning off the alarm?
+   D. If you have, then you know you should TURN ON THE VIDEOPHONE.
+
+
+The picture and sound on the videophone are fuzzy. What should I do?
+
+   A. You could try tuning the videophone.
+   B. Type TUNE THE VIDEOPHONE.
+
+
+How can I get better reception on the videophone?
+
+   A. Call Frobton Cable Vision and have cable installed. Much better reception, plus lots of movies!
+
+
+How do I finish my conversation on the videophone?
+  
+   A. How do you normally finish a phone conversation?
+   B. Type in SAY "GOOD-BYE"
+
+
+Why can't I walk away with the microphone?
+    
+    A. The cord is too short.
+    
+
+Why did the videophone conk out?
+
+ A. Power failure?
+ B. Someone in the lab shut off the power...
+ C. ... by opening the circuit breaker. Who was it?
+ D. Use the microwave security scanner.
+ E. There are only three people in the lab ...
+ F. ... and you and Tip were in the same room when the videophone conked out.
+ G. That leaves only one person.
+ H. That person is Sharon.
+
+
+How can I fix the videophone?
+
+ A. Is there a technician nearby?
+ B. If not you may have to fix it yourself.
+ C. Go to the computestor and ask about the videophone.
+ D. Go to the electrical panel and close the circuit breaker.
+
+
+What is the storage closet used for?
+
+ A. Storage. But you don't have anything to store.
+ B. Nothing.
+
+
+Why does Tip always follow me around?
+
+   A. He doesn't ALWAYS follow you around.
+   B. He tries to keep you in sight, except when he's working on something.
+   C. He's your pal, and there to help.
+
+
+Why does Sharon Kemp look embarrassed?
+   
+   A. There is something about her you don't know.
+   B. And it has nothing to do with her mother.
+   C. Try reading the article in Tip's magazine.
+   D. Sharon opened the circuit breaker, which made the Videophone conk out. Hmmm...
+   
+
+Is there anything I should look at in the file cabinet?
+
+ A. There seems to be nothing interesting about the papers.
+ B. But there are a lot of them.
+ C. The papers are of no help to you.
+    
+
+How do I get out of the lab building?
+            
+ A. Have you tried all the doors in all the rooms?
+ B. There's a door to the parking lot, but you can't open it. 
+ C. The only way out is by submarine.
+
+
+Where is the submarine?
+
+ A. Right where you left it.
+ B. Did you try to FIND it.
+ C. The Scimitar is in the test tank.
+ D. Go south from the lab center, three times.
+
+
+Why won't the submarine start?
+   
+   A. Try asking the COMPUTESTOR.
+   
+
+What should I do with the catalyst capsule?
+
+ A. Don't try to swallow it.
+ B. The capsule powers the Scimitar's plasma-fusion reactor.
+ C. Take the capsule and try inserting it in the reactor.
+ D. PUT THE CAPSULE IN THE REACTOR THEN CLOSE THE REACTOR.
+
+
+
+
+
+The Scimitar
+
+
+
+How do I get the Scimitar moving?
+
+   A. Look at the control panel.
+   B. You'll need the catalyst capsule.
+   C. Put the capsule in the reactor.
+   D. Close the reactor.
+   E. Turn on the reactor.
+   F. Close the entry hatch.
+   G. Fill the test tank.
+   H. Open the gate.
+   I. Start the engine.
+   J. Open the throttle.
+   K. Go east.
+
+
+Should I set my throttle to slow, medium, or fast?
+   
+   A. It depends on how quickly you want to reach your destination.
+   B. Remember, the Aquadome is in trouble and your help is needed.
+   C. On the other hand, you haven't fully tested this sub yet.
+   D. Set it to slow the first time you play, then experiment later.
+            
+
+The Scimitar is overheating! What should I do?
+    
+    A. If your throttle is set to slow, relax.
+    B. It's not?! Better do something quick!
+    C. Did the program prompt you to press the test button?  If so, you know that you should ... 
+    D. Adjust the voltage regulator located in the engine crawl space.
+    E. Be careful; it's dangerous.
+
+
+How do I open the engine access panel?
+
+    A. Read the sign.
+    B. Ask Tip for the Universal Tool.
+    C. Type OPEN THE ACCESS PANEL.
+
+
+How can I fix the regulator?
+    
+    A. Open the engine access panel.
+    B. Enter the engine crawl space.
+    C. Type FIX THE REGULATOR.
+
+
+How do I keep from disturbing the machinery in the crawl space?
+
+    A. Don't spend any more time than you need in the crawl space.
+    B. When you are in the crawl space, use the word "carefully" in each command. Example: FIX REGULATOR CAREFULLY.
+    C. Enter the crawl space, fix the regulator, then leave.
+    D. The more time you spend in the engine crawl space, the greater your chances of disturbing the machinery.
+
+
+How do I use the sonarscope?
+
+   A. You can use it only in the bay and near the Aquadome.
+   B. When you look at it, you see a small area around the Scimitar.
+   C. The sonarscope shows obstacles at the same depth as the Scimitar. 
+   D. To check for obstacles below you, use the Depth Finder.
+
+
+How do I use the Depth Finder?
+ 
+   A. Type EXAMINE THE DEPTH FINDER.
+   B. The Depth Finder tells you how deep you are and how far below you the bottom is.
+
+
+How do I use the hydrophone?
+
+   A. Type LISTEN TO HYDROPHONE.
+
+How do I use the temperature gauge?
+
+   A. Type LOOK AT GAUGE.
+
+
+
+
+
+The Bay and Ocean
+
+
+
+How do I keep from getting hit by the speedboats?
+
+   A. Duck!
+   B. You can avoid them if you are underwater.
+   C. If you DIVE TO 5 METERS, you will not be hit by the speedboats.
+
+
+How do I find my way through the bay?
+
+   A. Once you are in the sub and in the bay, you should look at the Sonarscope.
+   B. Use the Sonarscope and the map of Frobton Bay to avoid shoals and safely navigate through the bay.
+   C. Head for the opening in the sea wall.
+
+
+Ships keep running into Tip and me. What should I do?
+
+   A. Stay out of their way.
+   B. Go around them.
+   C. You're in a submarine -- dive under them.
+   D. You will have to dive to at least 15 meters to avoid the ships' keels, which are 10 meters deep.
+
+
+Where is the Aquadome?
+
+   A. Ask Commander Bly when you talk to her on the Videophone.
+   B. Ask Tip. He's a sharp guy.
+   C. Look at your map of Frobton Bay.
+   D. The Aquadome can be reached only from the open sea.
+   E. When you reach the open sea, turn on the Autopilot.
+
+
+What is the Friendly Mermaid trying to tell me?
+
+   A. You left the gas cap off the sub.
+   B. She's telling you the directions to the Aquadome.
+   C. But it's very hard to hear her ...
+   D. ... because there is no Friendly Mermaid in this game. Remember, some of these questions and answers are fakes. Don't assume the absense or presents of a question means it's important. Also don't assume long answers are always associated with important questions.
+   E. Because that was hardly the case here!
+
+
+
+
+
+The Aquadome
+
+   
+
+How do I enter the Aquadome?
+
+  A. When the autopilot shuts off, type DOCK.
+
+
+Why is everyone having trouble breathing?
+
+   A. Did you remember to use your mouth-wash this morning?
+   B. There must be something wrong with the air.
+   C. I hope you have your emergency oxygen gear.
+   D. Even if you do have it, you should find out what is wrong with the air supply system.
+
+
+How can I fix the air supply system?
+
+   A. First you must OPEN THE DOOR WITH THE UNIVERSAL TOOL.
+   B. If you don't have the Universal Tool, ask Tip for it.
+   C. Something inside has been unscrewed.
+   D. Could it be the electrolyte relay?
+   E. Type TAKE RELAY AND SCREW IT INTO THE EMPTY SPACE.
+
+
+Where is the Fram Bolt wrench?
+   
+   A. Did you read the sign?
+   B. It should be on the hook.
+   C. Someone misplaced the Fram Bolt wrench. 
+   D. It might have been the same person who unscrewed the electrolyte relay.
+
+
+Now that I am at the Aquadome, what should I do?
+    
+   A. When Commander Bly asks if she can speak to you in private, you should say yes.
+   B. Once Commander Bly starts telling you about the problems at the Aquadome, you will have an idea what you should do.
+            
+
+Is the "black box" useful for anything?
+   
+   A. Yes.
+   B. Try opening the black box.
+   C. Any time after Commander Bly tells you about the "black box" ask Tip about his idea.
+                     
+
+Should I let Mick examine my sub?
+          
+   A. Yes.
+   B. You really don't have any choice.
+          
+
+Why does Commander Bly want to talk to me?
+    
+    A. She has something important to tell you.
+    B. When Commander Bly asks for a word in private, go with her.
+    C. When she tells you she has evidence, ASK HER ABOUT THE EVIDENCE.
+    D. The "black box" is her evidence.
+                     
+
+Do I need the emergency survival unit?
+
+    A. It would come in handy if there were an emergency.  
+    B. You also need it installed to get all the points in the game.
+
+What is that "oddly shaped metallic object"?
+
+   A. It's the Fram Bolt wrench.
+   B. It's supposed to be hanging on the hook next to the air supply system.
+   C. In case of an emergency, you would need the Fram Bolt wrench to repair the air supply system.
+   D. Someone took the Fram Bolt wrench from the hook and dropped it under Commander Bly's desk.
+   E. It was the same person who sabotaged the air supply system by unscrewing the electrolyte relay.
+
+
+What happened to the Air Supply System?
+
+   A. Someone unscrewed the Electrolyte Relay, causing the system to malfunction ...
+   B. ... and that someone also took the Fram Bolt Wrench so no one could repair the Air Supply System.
+
+
+Is Commander Bly in love with anyone?
+
+   A. No.
+   B. But might someone else be in love with her?
+   C. Have you checked personal storage areas?
+   D. Including the lockers?
+   E. Did you read the diary?
+   F. Then you know Doc Horvak is in love with Commander Bly.
+   
+
+I found this 'mushy' diary. What should I do with it?
+
+   A. Reading a diary is an invasion of privacy.
+   B. But this is a life-or-death situation.
+   C. Under the circumstances, you should read it.
+   D. Doc Horvak sabotaged the air supply system because he wanted to embarrass Commander Bly. 
+   E. Take the diary and the photo and show them to Commander Bly.
+
+
+Amy Lowell asked to borrow the Scimitar. Should I let her?
+
+   A. Ask her if she has a submariner's license.
+   B. Tell her you promised the Scimitar to Tip for the day.
+   C. Amy never asks to borrow the Scimitar. You must be cheating. 
+   D. Ask your parents to firmly punish you by ...
+   E. ... buying "Suspended" and making you complete the game before they will feed you again.
+
+ 
+What do I do with the dart gun?
+
+   A. Doc Horvak can fix it.
+   B. Doc Horvak will prepare a special tranquilizer for the dart gun, which you can use on the Snark if you need to.
+   C. Show Doc Horvak the magazine that Tip brought along.
+   D. When Doc Horvak asks you what he should do with the dart gun, type DOC, MOUNT DART GUN ON SUB.
+
+
+What about the "49er" Prospecting Bazooka?
+
+   A. A bazooka seems as if it might come in handy.
+   B. There are several ways to mount the bazooka on the Scimitar.
+   C. One way is to find the bazooka. Take it and mount it on the claw of the Scimitar yourself.
+   D. Or, when Commander Bly asks you if you can think of any high-power weapon, tell her about the bazooka. Get the bazooka, then tell Commander Bly to mount it on the Scimitar. 
+
+
+How do I know when I'm ready to leave the Aquadome?
+
+   A. Commander Bly will ask you if you are ready to take off.
+
+
+What does the fine grid do?
+
+   A. The fine grid will show objects within 25 meters of the Scimitar. The regular sonar shows objects within  2,500 meters.
+   B. Having the fine grid installed will give you a better picture of objects very near the Scimitar, like the Snark.
+   C. So when Tip asks if he should install it, tell him yes.
+
+
+Who put the stew in the galley?
+
+   A. Stu Galley?
+   B. The cook?
+   C. What stew? There is no stew in this game.
+
+
+Is someone trying to kill me?
+
+   A. Have you been killed yet?
+   B. Someone replaced the stimulant in the syringe with poison.
+   C. Someone is trying to kill you.
+   D. Someone who worked on the Scimitar.
+   E. Someone who installed the Emergency Survival Unit.
+   F. Someone who installed the part under your seat.
+   G. Give up?
+   H. That someone is Bill Greenup.
+
+
+What should I do with the syringe?
+
+   A. Talk to the person who installed the emergency survival unit under your seat.
+   B. Ask that person about the syringe.
+   
+
+Hey, where is Bill Greenup going and how can I stop him?
+
+   A. If you don't know why Bill is running away, don't develop any more of the answers for this question until you do.
+   B. Bill is running away because you know he tried to kill you.
+   C. One way to stop him is to close the Docking Tank roof when he first appears on the station monitor. 
+   D. Another way is to turn off the Docking Tank electricity
+. Then he won't be able to open the gate and escape in the Scimitar. 
+   D. Another way to stop Bill is to flood the Docking Tank before he enters the Scimitar.
+
+
+I'm ready to leave the Aquadome. What should I do?
+
+   A. Remember what you had to do to leave the Lab's Test Tank?
+   B. Flood the tank, open the gate, start the engine, open the throttle and go south.
+
+
+
+
+
+The Battle
+
+
+
+Where's the Snark?
+          
+   A. Try asking Commander Bly.
+   B. Or any of the crew members.
+   C. Go southeast from the Aquadome.
+        
+
+We have spotted a cloud of silt ahead. Should we continue?
+              
+   A. It might be the Snark. Are you prepared to deal with it?
+   B. Yes, you should continue.
+   C. Besides, you don't have any choice.
+
+
+How did Sharon get in the Seacat?
+
+   A. Hitch-hiked?
+   B. Dr. Thorpe picked her up at the Research Lab.
+
+
+Is Sharon a traitor?
+
+   A. She opened the circuit breaker, didn't she?
+   B. She left the catalyst capsule out of the Scimitar, didn't she?
+   C. And now she is in the Seacat with the man who is trying to kill you. What do you think?
+   D. Try saying something to her over the sonarphone.
+   E. Of course she isn't a traitor. She was just playing along with Dr. Thorpe in the hope of stopping him.
+
+
+Is Tip a traitor?
+
+   A. Tip, your good-buddy, pal and friend, a traitor?
+   B. Tip, who has stood by you in this game while you killed both yourself and him many times, a traitor?
+   C. No way. You should be ashamed of yourself for even developing the answers to this question.
+   D. You owe Tip an apology.
+
+
+Are you a traitor?
+
+   A. Why are you wasting your developing fluid on this answer.
+   B. Go ahead and develop, there's plenty of fluid.
+   C. And plenty more dumb answers.
+   D. See, I told you.
+   E. You can stop now.
+   F. Some people never learn!
+   G. Absolutely never!!!
+
+
+Why can't I get around the Snark?
+
+   A. The Snark and the Seacat are moving too fast?
+   B. Maybe you should move faster.
+   C. Try setting the throttle to medium.
+   D. Better yet, try setting the throttle to fast.
+
+
+What should I do with the dart?
+
+   A. You could tranquilize the Snark.
+   B. Or maybe that isn't such a good idea.
+   C. If you tranquilize the Snark there won't be much to stop Dr. Thorpe from blasting you with his rocket.
+
+
+What should I do with the bazooka?
+
+   A. You could try shooting the Snark.
+   B. But the Snark has tremedous scientific value, so it would be a waste to shoot it.
+   C. Another good reason not to shoot the Snark with the bazooka is that then Dr. Thorpe will have a clear shot at you! 
+   D. So why not shoot the Seacat's Power Pod and disable it?
+
+
+
+
+
+How Points are Scored
+
+(use as a last resort)
+
+
+
+Points / Actions
+
+1   Turning on the videophone.
+
+1   Tuning the videophone.
+
+1   Picking up the microphone.
+
+-3  The circuit breaker is opened.
+
+3   Closing the circuit breaker.
+
+5   Taking the catalyst capsule.
+
+1   Entering the Scimitar.
+
+5   Starting the reactor.
+
+5   Starting the engine.
+
+5   Entering Frobton Bay.
+
+5   Entering the ocean.
+
+5   Turning on the autopilot.
+
+5   Docking at the Aquadome.
+
+5   Opening the air supply system.
+
+5   Screwing in the electrolyte relay.
+
+5   Having the emergency survival unit installed.
+
+5   Arresting Bill Greenup.
+
+5   Capturing Bill Greenup.
+
+5   Having Doc Horvak fix the dart gun.
+
+5   Installing the dart gun.
+
+5   Taking the bazooka.
+
+5   Installing the bazooka.
+
+1   Leaving the Aquadome.
+
+5   Finding the Snark.
+
+5   Aiming the bazooka at the Seacat.
+
+5   Firing the bazooka at the Seacat.
+
+-----
+
+100 Total
+
+
+
+
+
+For Your Amusement
+
+Have you...
+
+
+read the diagram on the workbench?
+
+told Tip to leave the sub and then closed the hatch?
+
+picked up something in an extensor claw before leaving the lab?
+
+crashed the Scimitar into the Aquadome?
+
+taken the electrolyte relay but not screwed it in?
+
+said "Hello" to anyone on the sonarphone?
+
+asked anyone besides Doc Horvak to fix the gash in your arm?
+
+tried to shoot the Seacat with a tranquilizer dart?
+
+tried to arrest an object instead of a person?
+
+tried to clean or wipe anything?
+
+tried to find someone who's in the same place as you?
+
+tried to climb the sea wall?
+
+tried to break down a door?
+
+tried to enter something that you're holding?
+
+asked anyone about yourself?
+
+asked anyone to find you?
+
+kicked anyone?
+
+rubbed anyone?
+
+tried to look inside or under anyone?
+
+looked up?
+
+kissed anyone or anything?
+
+slapped anyone or anything, including yourself or a handcuffed person?
+
+thrown something at a person and then at an object?
+
+tried to break a window in the Aquadome?
+
+tried to turn off a person?
+
+tried to wake up anyone?
+
+tried to eat a meal or take the food?
+
+tried to shoot yourself?
+
+followed an inanimate object?
+
+played something?
+
+typed HELLO SAILOR?
+
+typed RESTART or RESTORE at the very beginning instead of your name?
+
+cursed at the program?
+
diff --git a/hints.mss b/hints.mss
new file mode 100644
index 0000000..e708340
--- /dev/null
+++ b/hints.mss
@@ -0,0 +1,53 @@
+@style (spacing 1)
+@title (Infocards)
+@pageheading (DRAFT)
+@majorheading (INFOCARDS FOR "SEASTALKER")
+
+Card #1, Hint #1. You'd better look inside that "[black box]".
+
+Card #1, Hint #2. Tell him about the [overheating problem] we ran into with your new Bioceptor.
+
+Card #1, Hint #3. "First, one of us puts this black box back on the sonar transducer. Then we'll send [Marv] to check on the sonar system -- and we'll see if he reports the black box!"
+
+Card #2, Hint #1. Try finding [Horvak's diary]. It's in his locker in the dormitory. [never used]
+
+Card #2, Hint #2. "Why not ask [Mick] to troubleshoot the @I(Scimitar) and see what he says?"
+
+Card #2, Hint #3. While you're waiting, do you want to look at the [magazine] that Tip brought along?
+
+Card #3, Hint #1. A [circuit breaker] has popped open on the Electrical Panel!
+
+Card #3, Hint #2. The [Videoscope] has never conked out before! It @I(must) be due to sabotage!
+
+Card #3, Hint #3. Why won't the reactor start? Is the [catalyst capsule] inserted in the reactor? Tip exclaims, "But you told Sharon to put the capsule in, so the @I(Scimitar) would be ready for another test run. I heard you tell her first thing this morning!"
+
+Card #4, Hint #1. That [electrolyte relay] you screwed back in place is essential to the Air Supply System -- without it, the system would break down in a few minutes! That means someone must have removed it while you were docking in the airlock!
+
+Card #4, Hint #2. If you can get behind [Thorpe's vehicle], you can shoot its controls, and then he'll be stuck!
+
+Card #4, Hint #3. "We know what was causing it -- but [Mick] doesn't @I(know) that we know."
+
+Card #5, Hint #1. You'd better check the [Emergency Survival Unit] under your seat.
+
+Card #5, Hint #2. The gate isn't open yet -- and it won't respond to a remote-control signal without [electricity]!
+
+Card #5, Hint #3. Hey! Don't forget your [Emergency Oxygen Gear]!
+
+Card #6, Hint #1. "Don't bother going thru the sub tool kit," says [Tip]. "I've got one of your Universal Tools in my pocket. Here, use this -- it'll fit anything!"
+
+Card #6, Hint #2. "The last time we saw the [Snark], it went off to the southeast. I suggest you look in that direction first."
+
+Card #6, Hint #3. If you can shoot the [tranquilizer dart] at the Snark, then it would still be intact for scientific study. [never used]
+
+Card #7, Hint #1. "What about a [49-er prospecting bazooka]? If that can drive a stake into bedrock, it can sure put a dent in that sea monster -- or maybe even in an enemy sub!"
+
+Card #7, Hint #2. "Also, Doc Horvak @I(may) be able to concoct some sort of [tranquilizer] with which to sedate or stun the Snark -- although he fears the huge size of the creature may make this method unreliable."
+
+Card #7, Hint #3. "We have a prospecting bazooka which could be fitted to the @I(Scimitar)'s [extensor claws]."
+
+Card #8, Hint #1. The Aquadome needs help desperately! You must take a [submarine] there at once!
+
+Card #8, Hint #2. Hadn't you better turn on the [Videophone] and answer that alarm call?!
+
+Card #8, Hint #3. There's no response, because there's no [power].
+
diff --git a/j1.chart b/j1.chart
new file mode 100644
index 0000000..5b8c165
--- /dev/null
+++ b/j1.chart
@@ -0,0 +1,4 @@
+-date-  -rel-	-size-	-pre-	-obj-	-glo-	-voc-
+ 9/19     18	117024	21505	254	229	913
+ 9/19     18	116812	21505	254	229	913
+ 9/19     18	116802	21505	254	229	913
diff --git a/j1.mss b/j1.mss
new file mode 100644
index 0000000..a645823
--- /dev/null
+++ b/j1.mss
@@ -0,0 +1,271 @@
+@style(spacing 1)
+@title (TIM QUICK - SUMMARY)
+@pageheading(DRAFT)
+
+@majorheading (TIM QUICK AND HIS ULTRAMARINE BIOCEPTOR)
+@center (by Jim Lawrence)
+@center (June 1983)
+@blankspace(5)
+
+@heading (Opening Scene)
+
+"Tim, snap out of it!" cries Buzz Berkeley, bursting into 
+the young inventor's private lab.  "The red alert
+signal's flashing on your videoscope!"
+
+Reluctantly you tear your eyes away from the blueprints 
+and circuit diagrams spread out on your workbench.  They're
+the plans of your newest, top-secret invention--a deep-sea
+submarine specially designed for capturing rare specimens
+of marine life on the ocean floor.
+
+As Buzz's voice shatters your spell of concentration, an 
+alarm bell on the videoscope also begins to ring.
+
+Obviously someone's trying urgently to get in touch with 
+you over the Quick's private TV communications network!
+
+@heading (Lab Layout)
+
+The layout of the lab is as follows---
+
+On the North wall of the lab, from left to right, is a
+COMPUTESTOR for troubleshooting any invention, machine
+or system . . . DOORWAY N (thru which Buzz entered) 
+leading out onto the grounds of Quick Enterprises and 
+the airstrip . . . and a QUICK SPECTROSCOPE for analyzing
+the chemical makeup of any substance.
+
+On the East wall of the lab is a MICROWAVE SECURITY
+SCANNER for detecting the presence on the grounds of
+QUICK Enterprises of any intruder not equipped with a 
+proper Electronic Identification Amulet . . . DOORWAY E,
+leading past the Electrical Control Panel to the office
+of Tim's secretary and lab aide, SHANA KEMP . . . and Tim's
+DESK, bearing the telephone.
+
+On the South Wall of the lab are the CHEMICAL SUPPLY
+SHELVES . . . DOORWAY S, leading to the SUBMARINE TEST PEN,
+in which Tim's revolutionary new ULTRAMARINE BIOCEPTOR is 
+now resting . . . and the ELECTRONIC SUPPLY SHELVES.
+
+On the West wall of the lab are the MECHANICAL SUPPLY
+SHELVES and an array of machine tools and other devices
+used by Tim in constructing pilot models of his inventions.
+
+In the center of the lab is Tim's WORKBENCH, with the 
+VIDEOSCOPE and its control knobs in easy reach at his left.
+
+@heading (First Scene)
+
+The game begins as the player responds to the red light and 
+alarm bell by turning on the Videoscope.  The screen lights
+up and we see COMMANDER BRENT inside the Quick's Undersea
+City, called the AQUADOME.
+
+Brent excitedly reports that a huge monster is attacking
+the Undersea City, threatening to batter its way thru the 
+transparent plastic shell of the Aquadome, which encloses
+the city.  In fact, as the video camera pans, Tim and Buzz can
+actually see the monster.
+
+This creature--which looks like an enormous sea slug with
+clawed tentacles--has been glimpsed before by Aquadome 
+personnel while exploring the environment outside the
+Undersea City.  They've nicknamed it the SNARK.
+
+Brent barely has time to plead for immediate help before 
+the picture on the Videoscope collapses, and the screen 
+goes dark again!
+
+Has something catastrophic happened?!  Alarmed, Buzz darts
+to the Computestor.  It immediately pinpoints four possible 
+causes: (1) failure of the transmitting equipment at the 
+Undersea City--(2) a short in the coaxial cable linking the
+Undersea City and Quick Enterprises--(3) failure of the
+Video receiver--and (4) sabotage.
+
+Since the boys can't check (1) or (2) may require 
+lengthy and elaborate testing--Buzz's first impulse is to 
+check out the possibility of sabotage.  He suggests that
+they either activate the Microwave Security Scanner, or 
+else phone SECURITY CHIEF LOU PERELLI to inquire about
+any signs of a saboteur at work.
+
+Instead, Tim may simply elect to go thru Doorway E and
+look at the Electrical Control Panel.  If he does so, he'll
+find that the Video Network's circuit-breaker has popped.
+Tim closes it, and nothing drastic happens.
+
+With power restored, the Videoscope screen lights up again.
+But the incoming signal from the Aquadome is no longer 
+being received.  Nor can Tim get any response to repeated
+calls.
+
+Meanwhile, as Buzz points out, they still don't know why
+the circuit-breaker popped.  Was there a power overload,
+or did someone open it to interrupt the signal?
+
+If Tim takes time to check with Security, Lou Perelli will
+inform him that they've picked up some disturbing information
+about his secretary and lab aide, Shana Kemp.
+
+It will turn out that she manually opened the circuit-breaker
+to impede Tim's efforts to save the Undersea City from the
+Snark.  If questioned now, she may admit this--either due
+to panic or belated pangs of conscience.  She may also 
+blurt out further information which would be helpful to Tim
+in later stages of the game.
+
+However, Tim may not take time to bother with all this.  
+His overriding concern may be for the safety of the
+Aquadome personnel--and the possible chance of capturing
+the monstrous Snark, a sub-oceanic equivalent of King Kong.
+
+His newest invention--the ULTRAMARINE BIOCEPTOR--is
+obviously the only sub capable of hunting down the monster
+in its native habitat on the ocean floor.  In fact it's
+the only craft in the Quick submarine fleet which is now
+at Quick Enterprises and available for an immediate dive.
+
+However, the UB has performed erratically during tests.
+This is the problem Tim was working on when the call for
+help came over the Videoscope.  Since the craft is still in
+the pilot-model stage and hasn't been perfected, the 
+Computestor has not yet been programmed to troubleshoot it
+--it can only check out sub-assemblies or sub-systems of 
+the craft.
+
+Tim may, therefore, decide to phone the US Navy in Washington 
+for help.  Its nuclear subs are at least capable of diving 
+to the depth of the Aquadome.  But none may be close enough
+to dispatch on such a mission.
+
+On the other hand, if Tim and Buzz themselves take off in the
+Ultramarine Bioceptor, they run the risk of encountering
+operation trouble en route.
+
+When the boys do embark in the UB, the test pen must first
+be flooded before the craft can be taken out to sea.  They
+then discover that its jet engines won't start.
+
+It turns out that this is due to the fact that a CATALYST
+CAPSULE was not installed in the reactor--altho Tim had
+instructed Shana to do so that morning, in preparation
+for a power test of the hydrojets.
+
+If Tim cares to pursue the question of why she didn't 
+install it, he may have another chance of discovering that
+Shana is now, in effect, an enemy agent--or at least an
+enemy stooge.
+
+@heading (Summary of Remainder)
+
+(NOTE:  I have tried to imagine the opening setting and 
+actions in some detail, but the remainder of the game will
+just be outlined briefly.)
+
+At Buzz's suggestion, Tim may take along (purely as a
+distraction) a copy of a magazine called SCIENCE WORLD.
+The idea is that this will give him something to peruse
+en route, to relax his mind and ease the tension of the
+situation, while the UB is operating on auto-pilot.
+
+If Tim does take along the magazine, he may learn from its 
+cover story that a distinguished marine biologist, DR
+JEROME THORP, has reportedly created synthetic forms of
+marine life by means of genetic engineering.
+
+Reading further, Tim may also learn (1) that Dr Thorp has
+disappeared and apparently gone into hiding to duck the
+publicity resulting from his sensational feat--and (2) that
+before going into hiding, Thorp confided to close friends
+that he would soon marry a young American woman, Shana 
+Kemp.
+
+Obviously this story may have implications with regard 
+to the Snark's attack on the Aquadome, and the strange
+behavior of Shana Kemp.
+
+En route, the sub's control circuits show signs of 
+overheating.  This is due to the fact that the lasers in 
+the operational computers are over-charging.  This could
+lead to a breakdown of the UB.  Since the craft's external
+communications system also depends on underwater laser
+beams, Tim and Buzz may even lose contact with Quick 
+Enterprises--or with the Undersea City as they dive
+toward the Aquadome.
+
+Tim may decide to turn back to Quick Enterprises--or else
+try to trace and correct the trouble en route--or simply 
+continue despite the overheating problem.
+
+On reaching the Undersea City, the boys learn to their
+relief that the Snark has temporarily given up its attack.
+But, of course, it may return and renew its savage
+assault at any time.
+
+There are four main buildings in the Undersea City: the
+ADMINISTRATION BUILDING containing an office, communications
+center and storeroom . . . the DORMITORY . . . the SCIENTIFIC
+LAB . . . and the POWER PLANT, containing a reactor and the 
+air-conditioning system, which is based on extracting oxygen
+from the surrounding sea water.
+
+It turns out that the failure of the video transmitter was 
+due to sabotage.  Besides Commander Brent herself, who's 
+in charge of the Aquadome, two other persons had access
+to the communications center, where the transmitting 
+equipment was stored:  MICK CASEY, a frogman-technician who's
+also a laser expert--and DR WALT NOVAK, a young marine 
+biochemist.
+
+Tim learns that Casey is feuding with Commander Brent, who's 
+a hard-nosed, up-tight disciplinarian . . . and that Dr. Novak
+frequently dated Shana Kemp before he signed on for a 
+six-month hitch underwater in the Aquadome.
+
+It appears that Brent may have become somewhat paranoid due
+to the strain of her undersea duties.
+
+Tim also learns that a chemical substance called AMINO-
+HYDROPHASE (or AH) has been detected in the sea water.  
+Apparently this stuff is secreted by the Snark.  Yet it's
+also a synthetic compound not known to occur elsewhere in 
+nature.  This may help to clue Tim in to the fact that the 
+Snark is a man-made monster, artificially created by Dr. Thorp.
+
+Based on certain information in the magazine article about
+Thorp's experiments, Tim reasons that another chemical,
+called Dormiphen, may be just the right drug to tranquilize
+the creature.
+
+At this point, Tim has the option of (1) setting out at
+once in his Ultramarine Bioceptor to hunt down the Snark,
+rather than wait passively for it to attack the Aquadome 
+again . . . or (2) take time to trap the traitor who 
+sabotaged the video transmitter, and who may therefore be
+in league with Dr. Thorp . . . or (3) concentrate on
+devising an underwater tranquilizer dart gun which can 
+be mounted on the UB, while Dr. Novak is synthesizing some 
+Dormiphen, and Mick Casey is repairing the computer lasers
+which caused the UB to overheat--and meanwhile, perhaps,
+let Buzz venture out either in scuba gear or deep-sea
+diving armor, to scout for the Snark.
+
+Eventually Tim and Buzz embark together in the Ultramarine
+Bioceptor to hunt for the Snark.
+
+Their hydrophones detect another sub in the vicinity.  If
+they try to communicate with it by sonarphone, it may or
+may not respond.  Conceivably it may be a Russian spy craft,
+prowling around the Aquadome area--or it may be Dr. Thorp's
+sub.  And Tim may or may not take the time to find out its
+intent.
+
+The boys finally encounter the Snark and a ding-dong battle
+ensues.  Before the creature is subdued by tranquilizer,
+they have to battle it with their sub's grappler arms.
+
+Conceivably the battle may end either in victory or
+disaster for Tim and Buzz.
diff --git a/j1.serial b/j1.serial
new file mode 100644
index 0000000..00750ed
--- /dev/null
+++ b/j1.serial
@@ -0,0 +1 @@
+3
diff --git a/j1.transcript b/j1.transcript
new file mode 100644
index 0000000..b38e41a
--- /dev/null
+++ b/j1.transcript
@@ -0,0 +1,350 @@
+Copyright (c) 1984 Infocom, Inc. All rights reserved.
+
+Welcome to junior-level interactive fiction from Infocom!
+
+In this story, you're the hero or heroine, so we'll use your name!
+
+Please type your first name.
+
+> JIM
+Hello Jim! Now type your last name.
+
+> LAWRENCE
+Is Jim Lawrence right? > YES
+Then let the story begin!
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+SEASTALKER: JIM LAWRENCE AND THE ULTRAMARINE BIOCEPTOR
+Junior-level interactive fiction from Infocom
+Copyright (c) 1984 Infocom, Inc. All rights reserved.
+SEASTALKER is a trademark of Infocom, Inc.
+Revision number 8 / Serial number 840424
+
+"Jim, snap out of it!" cries Tip Randall, bursting into your laboratory.
+"The alert signal is on!"
+As you look up from your top-secret plans for the SCIMITAR, a submarine
+for capturing marine life on the ocean floor and still being tested,
+you notice the alarm bell on the videophone ringing. Someone's trying
+to reach you over the private videophone network of Inventions Unlimited!
+
+(lab center)
+You're at your workbench in the center of your laboratory, a small
+part of the Lawrence Research Lab in the town of Frobton. The videophone
+screen looms overhead, with its alarm bell ringing.
+Tip is here.
+A microphone is sitting on your workbench.
+
+Okay, Jim, what do you want to do now?
+> ANSWER THE ALARM
+
+Why not turn on the videophone?
+The alarm bell continues to ring.
+
+What next?
+> TURN ON THE VIDEOPHONE
+
+As the alarm bell stops ringing, a picture of a woman holding a microphone
+appears, and you can hear her voice from the speaker. But both sound and
+picture are fuzzy.
+(Your score just went up by 1 point!)
+
+What next?
+> TUNE IT
+
+Ah, that's better! You recognize the woman as Commander Bly, who's in charge of
+the Undersea Research Station of Inventions Unlimited, called the Aquadome,
+just off the Atlantic coast. "Jim! Jim!" she's saying. "This is the Aquadome
+calling the Lawrence Research Lab! We have an urgent problem!"
+(Your score just went up by 1 point!)
+
+What next?
+> TALK TO HER
+
+She can't hear you unless you pick up your microphone and switch it on.
+
+What next?
+> PICK UP THE MIKE AND SWITCH IT ON
+
+(Your score just went up by 1 point!)
+You are now holding the microphone.
+
+Okay, the microphone is now on.
+
+What next?
+> TALK TO COMMANDER BLY
+
+"Jim! Jim! Our transparent dome enclosing the Undersea Research Station is
+being battered by a huge monster!"
+
+What next?
+> BLY, SHOW ME THE MONSTER
+
+The Aquadome's camera pans, and the monster comes into view on your videophone
+screen. It resembles a huge sea slug, about 5 meters tall. Its clawed tentacles
+pound and scratch at the dome.
+
+What next?
+> BLY, TELL ME ABOUT THE MONSTER
+
+"Some of our divers saw it while exploring the undersea environment. They
+nicknamed it the Snark. This is the first time it has approached the Aquadome,
+and it may be the last time, Jim! I'm not sure how long our plastic dome
+enclosure can withstand such a battering!"
+
+What next?
+> BLY, ATTACK THE MONSTER
+
+"Jim, this is a peaceful research facility. We have no weapons."
+
+What next?
+> BLY, LEAVE THE AQUADOME
+
+"Our emergency escape bell would be vulnerable to a monster as big as the
+Snark. Ditto for SCUBA gear, deep-sea diving suits, or jet-propelled
+observation bubbles."
+
+What next?
+> BLY, WAIT THERE FOR ME
+
+"Okay, Jim, but hurry!"
+
+(Are you tired of seeing "What next?" Well, you won't see it any more.)
+
+
+> HANG UP
+
+"I hope to see you soon, Jim."
+
+Something's wrong! The picture vanished from your videophone screen, and the
+sound conked out!
+Tip says, "That's strange! Maybe you should use the Computestor."
+(Oh no! Your score just went down by 3 points!)
+
+> GO TO THE COMPUTESTOR
+
+You can't walk away while you are holding the microphone!
+
+> PUT IT ON THE TABLE
+
+Okay.
+
+> GO TO THE COMPUTESTOR
+
+It's in the north part.
+(north part)
+You're in the north part of your laboratory. A Computestor stands here to help
+test your inventions.
+
+> USE IT
+
+The Computestor is off!
+
+> TURN IT ON
+
+The Computestor is ready for questions.
+
+> ASK IT ABOUT THE VIDEOPHONE
+
+"Symptoms: no picture, no sound.
+Possible causes:
+1) Failure of the transmitter at source.
+2) A short in the undersea coaxial cable linking transmitter to the Lawrence
+Research Lab, if signal is coming from Aquadome.
+3) Sunspot interference or satellite malfunction if transmitter is at earth's
+surface.
+4) Failure of the video receiver.
+5) Overload in the Electrical Panel (circuit breaker popped).
+6) Sabotage (circuit breaker open)."
+
+> GO TO THE CIRCUIT BREAKER
+
+It's in the corridor.
+(corridor)
+You're in a corridor, with your laboratory to the west, a storage closet to the
+south, and Kemp's office to the east. An Electrical Panel fills most of the
+north wall.
+
+Tip follows you into the corridor.
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read hidden
+clue #1 and put "Electrical Panel" in the blank space.)
+
+> CHECK THE BREAKER
+
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read hidden
+clue #1 and put "Electrical Panel" in the blank space.)
+
+> CLOSE IT
+
+Okay, the circuit breaker is now closed.
+(Your score just went up by 3 points!)
+
+> GO BACK TO THE LAB
+
+(lab center)
+You're at your workbench in the center of your laboratory, a small part of the
+Lawrence Research Lab in the town of Frobton. The videophone screen looms
+overhead.
+
+Tip follows you into the lab center.
+Sitting on the workbench is:
+  a microphone
+  a diagram
+As you re-enter the lab, Tip says, "Look, Jim! The videophone's working again!
+There's a normal test pattern on the screen!"
+
+> TIP, GO TO THE SUBMARINE
+
+"I think you can do that better yourself."
+
+> GO TO THE SUB
+
+(SCIMITAR)
+You're in the pilot's seat of the SCIMITAR, its operating control panel before
+you.
+A wraparound viewport, both fore and aft, provides a view ahead and astern. You
+can also observe your surroundings with a sonarscope and a hydrophone listening
+device. There's a sonarphone for communication. You'll discover other features
+when you need them.
+Tip is sitting behind you, reading a magazine.
+The power reactor is off and open.
+(Your score just went up by 1 point!)
+
+> TURN IT ON
+
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read hidden
+clue #3 and put "catalyst capsule" in the blank space.)
+
+> GO TO THE CAPSULE
+
+It's in the west walkway.
+(west walkway)
+You're at a work counter, next to the control gear used to operate the test
+tank.
+The test tank (which is now empty of sea water) is located in a large work
+room, just south of your laboratory, with concrete-block walls on three sides
+and a high metal roof. Most of its floor is dug out and lined with steel, to
+form the huge tank used for developing and testing underwater gear and the
+pilot models of your submarine craft.
+There's a walkway around the tank on three sides -- north, west and south. On
+the east side, a steel gate forms the wall of the room.
+
+Tip follows you into the west walkway.
+Sitting on the work counter is:
+  a catalyst capsule
+
+> TAKE IT
+
+(Your score just went up by 5 points!)
+You are now holding the catalyst capsule.
+
+> GET IN THE SUB
+
+You have to go north to board the SCIMITAR.
+
+> GO NORTH
+
+(north walkway)
+Tip is off to the south.
+
+> BOARD THE SCIMITAR
+
+(SCIMITAR)
+Tip is sitting behind you, reading a magazine.
+The power reactor is off and open.
+
+> PUT THE CAPSULE IN THE REACTOR
+
+Okay.
+
+> CLOSE THE REACTOR THEN TURN IT ON
+
+Okay, the reactor is now closed.
+
+Electrical systems now activated.
+(Your score just went up by 5 points!)
+
+> READ THE INSTRUMENTS
+
+Main instruments:
+depth finder, hydrophone, sonarscope, and temperature gauge.
+
+> LEAVE THE TANK
+
+The tank is empty!
+
+> FILL IT
+
+The sea water quickly fills the tank, up to the level of the walkway.
+
+> LEAVE IT
+
+The gate is closed!
+
+> OPEN IT
+
+Opened (by remote control).
+
+> LEAVE THE TANK
+
+The engine is off!
+
+> TURN IT ON
+
+You can immediately hear the powerful thrum of the hydrojet turbine.
+(Your score just went up by 5 points!)
+
+> LEAVE THE TANK
+
+You can do this by setting the throttle to the speed you want (slow, medium, or
+fast) and by moving the joystick in the compass direction you wish to go.
+
+> SET THE THROTTLE TO SLOW
+
+You shouldn't leave the tank with the hatch open!
+
+> CLOSE IT
+
+Okay, the entry hatch is now closed.
+
+> SLOW
+
+Okay, now that the throttle is set, try pushing the joystick to the east.
+
+> PUSH THE STICK EAST
+
+The SCIMITAR glides smoothly out of the tank onto the surface of Frobton Bay.
+You're heading east at 1 sea square per turn.
+(Your score just went up by 5 points!)
+(This might be a good time to use the command: SAVE.)
+
+A speedboat came out of nowhere and almost hit you! It's dangerous on the
+surface of the bay.
+
+> QUIT
+
+Your score is 24 points out of 100, in 44 turns.
+This score gives you the rank of a fair adventurer.
+(If you want to continue from this point at another time, you must "SAVE"
+first.)
+Do you want to stop playing now? > YES
diff --git a/j1.vocab b/j1.vocab
new file mode 100644
index 0000000..7c310ab
--- /dev/null
+++ b/j1.vocab
@@ -0,0 +1,914 @@
+
+#WORD *002460310346*  "$ba"
+#WORD *002460310406*  "$ca"
+#WORD *002460310563*  "$fn"
+#WORD *002460311063*  "$ln"
+#WORD *002460311552*  "$ve"
+#WORD *002511320274*  "10-"
+#WORD *002541342274*  "49-"
+#WORD *002541342527*  "49er"
+#WORD *002621312245*  "."
+#WORD *002631312245*  ","
+#WORD *002641312245*  "!"
+#WORD *002651312245*  "?"
+#WORD *002672316605*  "#dbg"
+#WORD *002711312245*  """
+#WORD *002766151112*  "(some"
+#WORD *003051312245*  "a"
+#WORD *003071546464*  "abando"
+#WORD *003075165445*  "about"
+#WORD *003102125430*  "access"
+#WORD *003106335546*  "activa"
+#WORD *003113765431*  "adjust"
+#WORD *003114535145*  "admin"
+#WORD *003114535156*  "admini"
+#WORD *003132735362*  "affirm"
+#WORD *003141535145*  "again"
+#WORD *003141535170*  "agains"
+#WORD *003164512245*  "aim"
+#WORD *003165712245*  "air"
+#WORD *003165743210*  "airloc"
+#WORD *003211557105*  "alarm"
+#WORD *003214312245*  "all"
+#WORD *003221312245*  "am"
+#WORD *003227512245*  "amy"
+#WORD *003227513430*  "amy's"
+#WORD *003231312245*  "an"
+#WORD *003231543730*  "analys"
+#WORD *003231543737*  "analyz"
+#WORD *003232312245*  "and"
+#WORD *003236170527*  "answer"
+#WORD *003236356722*  "antrim"
+#WORD *003237512245*  "any"
+#WORD *003255343705*  "apply"
+#WORD *003266514245*  "aqua"
+#WORD *003266514464*  "aquado"
+#WORD *003266515456*  "aquati"
+#WORD *003272512245*  "are"
+#WORD *003272514245*  "area"
+#WORD *003274512245*  "arm"
+#WORD *003274560245*  "arms"
+#WORD *003275165151*  "around"
+#WORD *003275725431*  "arrest"
+#WORD *003275751605*  "arrow"
+#WORD *003276334421*  "articl"
+#WORD *003302125151*  "ascend"
+#WORD *003304112245*  "ask"
+#WORD *003306115521*  "assaul"
+#WORD *003306135431*  "assist"
+#WORD *003306151371*  "assort"
+#WORD *003311312245*  "at"
+#WORD *003314315171*  "atlant"
+#WORD *003316314415*  "attach"
+#WORD *003316314420*  "attack"
+#WORD *003326350245*  "auto"
+#WORD *003326351106*  "automa"
+#WORD *003326351256*  "autopi"
+#WORD *003341540505*  "awake"
+#WORD *003341574245*  "away"
+#WORD *003362512245*  "aye"
+#WORD *003462140245*  "back"
+#WORD *003462330505*  "badge"
+#WORD *003462330530*  "badges"
+#WORD *003466162327*  "bastar"
+#WORD *003466332505*  "bathe"
+#WORD *003467512245*  "bay"
+#WORD *003467751220*  "bazook"
+#WORD *003521544245*  "beam"
+#WORD *003522312245*  "bed"
+#WORD *003523335151*  "behind"
+#WORD *003524342245*  "bell"
+#WORD *003524720645*  "bench"
+#WORD *003524724331*  "beneat"
+#WORD *003564342245*  "bill"
+#WORD *003564342270*  "bill'"
+#WORD *003564342724*  "billio"
+#WORD *003565120525*  "biocep"
+#WORD *003566324245*  "bite"
+#WORD *003611521005*  "black"
+#WORD *003611561445*  "blast"
+#WORD *003612330245*  "bldg"
+#WORD *003613552245*  "blip"
+#WORD *003615170245*  "blow"
+#WORD *003616524245*  "blue"
+#WORD *003616525267*  "bluepr"
+#WORD *003617512245*  "bly"
+#WORD *003617513430*  "bly's"
+#WORD *003641556445*  "board"
+#WORD *003641562245*  "boat"
+#WORD *003644362245*  "bolt"
+#WORD *003645140245*  "book"
+#WORD *003647312245*  "box"
+#WORD *003647512245*  "boy"
+#WORD *003671561405*  "brass"
+#WORD *003672515005*  "break"
+#WORD *003672515012*  "breake"
+#WORD *003672525752*  "breeze"
+#WORD *003673524545*  "brief"
+#WORD *003673524561*  "briefl"
+#WORD *003673546605*  "bring"
+#WORD *003676560645*  "brush"
+#WORD *003723542445*  "build"
+#WORD *003723542456*  "buildi"
+#WORD *003724552527*  "bumper"
+#WORD *003724720645*  "bunch"
+#WORD *003724740245*  "bunk"
+#WORD *003726135152*  "busine"
+#WORD *003726363223*  "button"
+#WORD *003727776527*  "buzzer"
+#WORD *003761312245*  "by"
+#WORD *003762512245*  "bye"
+#WORD *004061735152*  "cabine"
+#WORD *004061742505*  "cable"
+#WORD *004064342245*  "call"
+#WORD *004064712245*  "can"
+#WORD *004064735431*  "canist"
+#WORD *004065361521*  "capsul"
+#WORD *004065363527*  "captur"
+#WORD *004065724572*  "carefu"
+#WORD *004065757705*  "carry"
+#WORD *004066312245*  "cat"
+#WORD *004066315076*  "cataly"
+#WORD *004124762527*  "center"
+#WORD *004124763352*  "centre"
+#WORD *004151535345*  "chair"
+#WORD *004151535370*  "chairs"
+#WORD *004151556612*  "charge"
+#WORD *004151560505*  "chase"
+#WORD *004152521005*  "check"
+#WORD *004152544710*  "chemic"
+#WORD *004155156505*  "chore"
+#WORD *004156521005*  "chuck"
+#WORD *004165721516*  "circui"
+#WORD *004211570245*  "claw"
+#WORD *004211571405*  "claws"
+#WORD *004212515145*  "clean"
+#WORD *004212515345*  "clear"
+#WORD *004213544345*  "climb"
+#WORD *004215160505*  "close"
+#WORD *004215160521*  "closel"
+#WORD *004215160531*  "closet"
+#WORD *004216524245*  "clue"
+#WORD *004216561452*  "cluste"
+#WORD *004241572706*  "coaxia"
+#WORD *004244524245*  "come"
+#WORD *004244544245*  "comm"
+#WORD *004244544323*  "comman"
+#WORD *004244545523*  "commun"
+#WORD *004244552323*  "compan"
+#WORD *004244552327*  "compar"
+#WORD *004244553531*  "comput"
+#WORD *004244727364*  "confro"
+#WORD *004244761521*  "consul"
+#WORD *004244761522*  "consum"
+#WORD *004244762310*  "contac"
+#WORD *004244762523*  "conten"
+#WORD *004244763364*  "contro"
+#WORD *004245756711*  "corrid"
+#WORD *004246542445*  "could"
+#WORD *004246547452*  "counte"
+#WORD *004246725345*  "cover"
+#WORD *004271571045*  "crawl"
+#WORD *004272515472*  "creatu"
+#WORD *004272570245*  "crew"
+#WORD *004275164415*  "crouch"
+#WORD *004276535412*  "cruise"
+#WORD *004276560645*  "crush"
+#WORD *004325756523*  "curren"
+#WORD *004325760505*  "curse"
+#WORD *004325760530*  "curses"
+#WORD *004326160245*  "cuss"
+#WORD *004326312245*  "cut"
+#WORD *004364335151*  "cylind"
+#WORD *004451312245*  "d"
+#WORD *004464514612*  "damage"
+#WORD *004464546245*  "damn"
+#WORD *004464730527*  "danger"
+#WORD *004465762245*  "dart"
+#WORD *004521715360*  "debark"
+#WORD *004522140245*  "deck"
+#WORD *004522735156*  "defini"
+#WORD *004525351416*  "deposi"
+#WORD *004525362645*  "depth"
+#WORD *004525362653*  "depthf"
+#WORD *004526120523*  "descen"
+#WORD *004526121356*  "descri"
+#WORD *004526140245*  "desk"
+#WORD *004526163364*  "destro"
+#WORD *004526324431*  "detect"
+#WORD *004526734412*  "device"
+#WORD *004561531164*  "diagno"
+#WORD *004561531346*  "diagra"
+#WORD *004561557705*  "diary"
+#WORD *004562312245*  "did"
+#WORD *004563112245*  "dig"
+#WORD *004565724431*  "direct"
+#WORD *004566121530*  "discus"
+#WORD *004566125107*  "disemb"
+#WORD *004566163352*  "distre"
+#WORD *004566724245*  "dive"
+#WORD *004566725345*  "diver"
+#WORD *004566725370*  "divers"
+#WORD *004566735154*  "diving"
+#WORD *004641312245*  "do"
+#WORD *004642112245*  "doc"
+#WORD *004642113430*  "doc's"
+#WORD *004642140245*  "dock"
+#WORD *004642140723*  "dockin"
+#WORD *004642163227*  "doctor"
+#WORD *004644524245*  "dome"
+#WORD *004644715452*  "donate"
+#WORD *004645156245*  "door"
+#WORD *004645157606*  "doorwa"
+#WORD *004645744245*  "dorm"
+#WORD *004645744731*  "dormit"
+#WORD *004646560505*  "douse"
+#WORD *004647146245*  "down"
+#WORD *004671312245*  "dr"
+#WORD *004671535145*  "drain"
+#WORD *004671570527*  "drawer"
+#WORD *004673547005*  "drink"
+#WORD *004673566505*  "drive"
+#WORD *004675152245*  "drop"
+#WORD *005051312245*  "e"
+#WORD *005066162245*  "east"
+#WORD *005066312245*  "eat"
+#WORD *005113562724*  "editio"
+#WORD *005163133445*  "eight"
+#WORD *005163133452*  "eighte"
+#WORD *005163133476*  "eighty"
+#WORD *005212521467*  "electr"
+#WORD *005212566523*  "eleven"
+#WORD *005222556612*  "emerge"
+#WORD *005225363705*  "empty"
+#WORD *005233114612*  "engage"
+#WORD *005233135152*  "engine"
+#WORD *005236325345*  "enter"
+#WORD *005236335352*  "entire"
+#WORD *005236356323*  "entran"
+#WORD *005236357705*  "entry"
+#WORD *005266535262*  "equipm"
+#WORD *005331521506*  "evacua"
+#WORD *005333522523*  "eviden"
+#WORD *005351544723*  "examin"
+#WORD *005352556416*  "exerci"
+#WORD *005353562245*  "exit"
+#WORD *005355325371*  "expert"
+#WORD *005355342316*  "explai"
+#WORD *005355343227*  "explor"
+#WORD *005355343230*  "explos"
+#WORD *005356325151*  "extend"
+#WORD *005356325170*  "extens"
+#WORD *005356335154*  "exting"
+#WORD *005464551530*  "famous"
+#WORD *005466162245*  "fast"
+#WORD *005466162523*  "fasten"
+#WORD *005466162527*  "faster"
+#WORD *005522522245*  "feed"
+#WORD *005522542245*  "feel"
+#WORD *005524515052*  "female"
+#WORD *005526320645*  "fetch"
+#WORD *005562542445*  "field"
+#WORD *005562762512*  "fiftee"
+#WORD *005562763705*  "fifty"
+#WORD *005563133445*  "fight"
+#WORD *005564324245*  "file"
+#WORD *005564325405*  "files"
+#WORD *005564342245*  "fill"
+#WORD *005564722245*  "find"
+#WORD *005564722527*  "finder"
+#WORD *005564724245*  "fine"
+#WORD *005565724245*  "fire"
+#WORD *005565761445*  "first"
+#WORD *005566312245*  "fit"
+#WORD *005566724245*  "five"
+#WORD *005567312245*  "fix"
+#WORD *005613552245*  "flip"
+#WORD *005615150445*  "flood"
+#WORD *005615151345*  "floor"
+#WORD *005642165405*  "focus"
+#WORD *005644343234*  "follow"
+#WORD *005645712245*  "for"
+#WORD *005645763705*  "forty"
+#WORD *005646556245*  "four"
+#WORD *005646557452*  "fourte"
+#WORD *005671544245*  "fram"
+#WORD *005672524245*  "free"
+#WORD *005672534615*  "freigh"
+#WORD *005675117464*  "frobto"
+#WORD *005675144245*  "from"
+#WORD *005722140245*  "fuck"
+#WORD *005722330505*  "fudge"
+#WORD *005724342245*  "full"
+#WORD *005725746731*  "furnit"
+#WORD *006051312245*  "g"
+#WORD *006064342536*  "galley"
+#WORD *006064524245*  "game"
+#WORD *006064731261*  "gangpl"
+#WORD *006066132245*  "gash"
+#WORD *006066324245*  "gate"
+#WORD *006066325405*  "gates"
+#WORD *006066530505*  "gauge"
+#WORD *006066530530*  "gauges"
+#WORD *006067724245*  "gaze"
+#WORD *006121556245*  "gear"
+#WORD *006121557405*  "gears"
+#WORD *006124725346*  "genera"
+#WORD *006126312245*  "get"
+#WORD *006165742245*  "girl"
+#WORD *006166724245*  "give"
+#WORD *006241312245*  "go"
+#WORD *006245122274*  "good-"
+#WORD *006245122376*  "goodby"
+#WORD *006271516245*  "grab"
+#WORD *006272525172*  "greenu"
+#WORD *006272525445*  "greet"
+#WORD *006272525456*  "greeti"
+#WORD *006273522245*  "grid"
+#WORD *006273523405*  "grids"
+#WORD *006273546245*  "grin"
+#WORD *006275165151*  "ground"
+#WORD *006324712245*  "gun"
+#WORD *006464326245*  "half"
+#WORD *006464342245*  "hall"
+#WORD *006464343606*  "hallwa"
+#WORD *006464722245*  "hand"
+#WORD *006464723052*  "handle"
+#WORD *006464730245*  "hang"
+#WORD *006466112245*  "has"
+#WORD *006466320645*  "hatch"
+#WORD *006466724245*  "have"
+#WORD *006521312245*  "he"
+#WORD *006521361405*  "he's"
+#WORD *006521522245*  "head"
+#WORD *006524343205*  "hello"
+#WORD *006524352245*  "help"
+#WORD *006525712245*  "her"
+#WORD *006525724245*  "here"
+#WORD *006525760521*  "hersel"
+#WORD *006561312245*  "hi"
+#WORD *006562324245*  "hide"
+#WORD *006563132245*  "high"
+#WORD *006564512245*  "him"
+#WORD *006564560521*  "himsel"
+#WORD *006564762245*  "hint"
+#WORD *006566112245*  "his"
+#WORD *006566312245*  "hit"
+#WORD *006644324245*  "hole"
+#WORD *006645140245*  "hook"
+#WORD *006645766320*  "horvak"
+#WORD *006646560723*  "housin"
+#WORD *006647112245*  "how"
+#WORD *006723124245*  "huge"
+#WORD *006724723352*  "hundre"
+#WORD *006725742245*  "hurl"
+#WORD *006725762245*  "hurt"
+#WORD *006762357217*  "hydroj"
+#WORD *006762357225*  "hydrop"
+#WORD *006765350245*  "hypo"
+#WORD *006765350452*  "hypode"
+#WORD *007051312245*  "i"
+#WORD *007056143045*  "i'll"
+#WORD *007056144245*  "i'm"
+#WORD *007056166505*  "i've"
+#WORD *007112514245*  "idea"
+#WORD *007112547456*  "identi"
+#WORD *007221734352*  "imbibe"
+#WORD *007231312245*  "in"
+#WORD *007233765352*  "injure"
+#WORD *007235564727*  "inquir"
+#WORD *007236125371*  "insert"
+#WORD *007236134452*  "inside"
+#WORD *007236152510*  "inspec"
+#WORD *007236162321*  "instal"
+#WORD *007236163372*  "instru"
+#WORD *007236325350*  "interc"
+#WORD *007236325367*  "interr"
+#WORD *007236350245*  "into"
+#WORD *007236725171*  "invent"
+#WORD *007301312245*  "is"
+#WORD *007311312245*  "it"
+#WORD *007311361405*  "it's"
+#WORD *007525751112*  "jerome"
+#WORD *007641712245*  "job"
+#WORD *007643130723*  "joggin"
+#WORD *007647512245*  "joy"
+#WORD *007647561456*  "joysti"
+#WORD *007724740245*  "junk"
+#WORD *010122542245*  "keel"
+#WORD *010124552245*  "kemp"
+#WORD *010124552270*  "kemp'"
+#WORD *010127512245*  "key"
+#WORD *010162140245*  "kick"
+#WORD *010164342245*  "kill"
+#WORD *010166160245*  "kiss"
+#WORD *010235116245*  "knob"
+#WORD *010235117405*  "knobs"
+#WORD *010235121005*  "knock"
+#WORD *010451312245*  "l"
+#WORD *010461712245*  "lab"
+#WORD *010461751346*  "labora"
+#WORD *010462322527*  "ladder"
+#WORD *010466546415*  "launch"
+#WORD *010521522245*  "lead"
+#WORD *010521566505*  "leave"
+#WORD *010522762245*  "left"
+#WORD *010526313430*  "let's"
+#WORD *010526725045*  "level"
+#WORD *010526725345*  "lever"
+#WORD *010562762245*  "lift"
+#WORD *010563133445*  "light"
+#WORD *010563133470*  "lights"
+#WORD *010566162523*  "listen"
+#WORD *010641522245*  "load"
+#WORD *010642115452*  "locate"
+#WORD *010642140245*  "lock"
+#WORD *010642140527*  "locker"
+#WORD *010643112245*  "log"
+#WORD *010643117224*  "logboo"
+#WORD *010645140245*  "look"
+#WORD *010646312245*  "lot"
+#WORD *010647112245*  "low"
+#WORD *010647125061*  "lowell"
+#WORD *010647125345*  "lower"
+#WORD *011051312245*  "m"
+#WORD *011062132723*  "machin"
+#WORD *011063112245*  "mag"
+#WORD *011063115756*  "magazi"
+#WORD *011064124245*  "make"
+#WORD *011064324245*  "male"
+#WORD *011064712245*  "man"
+#WORD *011064764321*  "manual"
+#WORD *011065735152*  "marine"
+#WORD *011065766245*  "marv"
+#WORD *011065766270*  "marv'"
+#WORD *011066320645*  "match"
+#WORD *011066325356*  "materi"
+#WORD *011066362527*  "matter"
+#WORD *011067335132*  "maximu"
+#WORD *011067516505*  "maybe"
+#WORD *011121312245*  "me"
+#WORD *011122132323*  "mechan"
+#WORD *011122334405*  "medic"
+#WORD *011122335446*  "medita"
+#WORD *011122335522*  "medium"
+#WORD *011126160245*  "mess"
+#WORD *011126315061*  "metall"
+#WORD *011126325345*  "meter"
+#WORD *011126325370*  "meters"
+#WORD *011126356530*  "metres"
+#WORD *011162140245*  "mick"
+#WORD *011162140270*  "mick'"
+#WORD *011162157225*  "microp"
+#WORD *011162157234*  "microw"
+#WORD *011164124245*  "mike"
+#WORD *011164342724*  "millio"
+#WORD *011164735132*  "minimu"
+#WORD *011164765452*  "minute"
+#WORD *011166160723*  "missin"
+#WORD *011243561472*  "moistu"
+#WORD *011244325431*  "molest"
+#WORD *011244735464*  "monito"
+#WORD *011244761452*  "monste"
+#WORD *011245724245*  "more"
+#WORD *011246335552*  "motive"
+#WORD *011246547445*  "mount"
+#WORD *011246724245*  "move"
+#WORD *011361312245*  "my"
+#WORD *011366125053*  "myself"
+#WORD *011451312245*  "n"
+#WORD *011464524245*  "name"
+#WORD *011467512245*  "nay"
+#WORD *011521312245*  "ne"
+#WORD *011522523052*  "needle"
+#WORD *011523115456*  "negati"
+#WORD *011527112245*  "new"
+#WORD *011527161246*  "newspa"
+#WORD *011564724245*  "nine"
+#WORD *011564725452*  "ninete"
+#WORD *011564725476*  "ninety"
+#WORD *011641312245*  "no"
+#WORD *011642312245*  "nod"
+#WORD *011642365052*  "nodule"
+#WORD *011645324245*  "nope"
+#WORD *011645762645*  "north"
+#WORD *011645762652*  "northe"
+#WORD *011645762674*  "northw"
+#WORD *011646332723*  "nothin"
+#WORD *011647112245*  "now"
+#WORD *011724516527*  "number"
+#WORD *011741312245*  "nw"
+#WORD *012073724431*  "object"
+#WORD *012076125373*  "observ"
+#WORD *012102515145*  "ocean"
+#WORD *012112312245*  "odd"
+#WORD *012112343705*  "oddly"
+#WORD *012131312245*  "of"
+#WORD *012132712245*  "off"
+#WORD *012132725345*  "offer"
+#WORD *012132734412*  "office"
+#WORD *012201312245*  "ok"
+#WORD *012201574245*  "okay"
+#WORD *012231312245*  "on"
+#WORD *012232512245*  "one"
+#WORD *012236350245*  "onto"
+#WORD *012252546245*  "open"
+#WORD *012252556331*  "operat"
+#WORD *012271546612*  "orange"
+#WORD *012272512245*  "ore"
+#WORD *012313325345*  "other"
+#WORD *012326312245*  "out"
+#WORD *012332556245*  "over"
+#WORD *012332556652*  "overhe"
+#WORD *012357530523*  "oxygen"
+#WORD *012451312245*  "p"
+#WORD *012463124245*  "page"
+#WORD *012464725045*  "panel"
+#WORD *012465325345*  "paper"
+#WORD *012465325370*  "papers"
+#WORD *012465762245*  "part"
+#WORD *012465763405*  "parts"
+#WORD *012466312245*  "pat"
+#WORD *012466560505*  "pause"
+#WORD *012521542245*  "peal"
+#WORD *012522512245*  "pee"
+#WORD *012522540245*  "peek"
+#WORD *012525761223*  "person"
+#WORD *012525765412*  "peruse"
+#WORD *012526312245*  "pet"
+#WORD *012555146505*  "phone"
+#WORD *012555163205*  "photo"
+#WORD *012555163214*  "photog"
+#WORD *012562140245*  "pick"
+#WORD *012562163527*  "pictur"
+#WORD *012564351445*  "pilot"
+#WORD *012566160245*  "piss"
+#WORD *012611520505*  "place"
+#WORD *012611546245*  "plan"
+#WORD *012611547405*  "plans"
+#WORD *012611561456*  "plasti"
+#WORD *012611562505*  "plate"
+#WORD *012611574245*  "play"
+#WORD *012612515412*  "please"
+#WORD *012642312245*  "pod"
+#WORD *012643547445*  "point"
+#WORD *012645112245*  "poo"
+#WORD *012645720645*  "porch"
+#WORD *012645762245*  "port"
+#WORD *012647125345*  "power"
+#WORD *012672552327*  "prepar"
+#WORD *012672560523*  "presen"
+#WORD *012672561405*  "press"
+#WORD *012673566331*  "privat"
+#WORD *012675117052*  "proble"
+#WORD *012675120512*  "procee"
+#WORD *012675153521*  "propul"
+#WORD *012675161252*  "prospe"
+#WORD *012724342245*  "pull"
+#WORD *012724552245*  "pump"
+#WORD *012724720645*  "punch"
+#WORD *012725761512*  "pursue"
+#WORD *012726132245*  "push"
+#WORD *012726312245*  "put"
+#WORD *013051312245*  "q"
+#WORD *013322561456*  "questi"
+#WORD *013323521021*  "quickl"
+#WORD *013323525461*  "quietl"
+#WORD *013323562245*  "quit"
+#WORD *013463560505*  "raise"
+#WORD *013464552245*  "ramp"
+#WORD *013464722321*  "randal"
+#WORD *013465312245*  "rap"
+#WORD *013465324245*  "rape"
+#WORD *013521521464*  "reacto"
+#WORD *013521522245*  "read"
+#WORD *013521561223*  "reason"
+#WORD *013522124733*  "receiv"
+#WORD *013522125271*  "recept"
+#WORD *013522312245*  "red"
+#WORD *013522322730*  "reddis"
+#WORD *013523165046*  "regula"
+#WORD *013524315645*  "relax"
+#WORD *013524315705*  "relay"
+#WORD *013524324330*  "releas"
+#WORD *013524551452*  "remote"
+#WORD *013524551552*  "remove"
+#WORD *013525314727*  "repair"
+#WORD *013525325045*  "repel"
+#WORD *013525325046*  "repela"
+#WORD *013525342310*  "replac"
+#WORD *013525343705*  "reply"
+#WORD *013525351371*  "report"
+#WORD *013526124327*  "resear"
+#WORD *013526125445*  "reset"
+#WORD *013526153223*  "respon"
+#WORD *013526162245*  "rest"
+#WORD *013526162327*  "restar"
+#WORD *013526163227*  "restor"
+#WORD *013526165112*  "resume"
+#WORD *013526735416*  "revisi"
+#WORD *013526751072*  "revolu"
+#WORD *013562312245*  "rid"
+#WORD *013563133445*  "right"
+#WORD *013564730245*  "ring"
+#WORD *013566124245*  "rise"
+#WORD *013643125345*  "roger"
+#WORD *013645126245*  "roof"
+#WORD *013645144245*  "room"
+#WORD *013721712245*  "rub"
+#WORD *013721716527*  "rubber"
+#WORD *013724712245*  "run"
+#WORD *013724746723*  "runnin"
+#WORD *013724770336*  "runway"
+#WORD *014051312245*  "s"
+#WORD *014061751446*  "sabota"
+#WORD *014062725476*  "safety"
+#WORD *014063543227*  "sailor"
+#WORD *014066325061*  "satell"
+#WORD *014066724245*  "save"
+#WORD *014067512245*  "say"
+#WORD *014071312245*  "sb"
+#WORD *014101547152*  "scanne"
+#WORD *014103544731*  "scimit"
+#WORD *014105152505*  "scope"
+#WORD *014105156505*  "score"
+#WORD *014105724322*  "scream"
+#WORD *014105724523*  "screen"
+#WORD *014105725605*  "screw"
+#WORD *014105735271*  "script"
+#WORD *014105765456*  "scruti"
+#WORD *014121312245*  "se"
+#WORD *014121512245*  "sea"
+#WORD *014121520331*  "seacat"
+#WORD *014121556415*  "search"
+#WORD *014121561446*  "seasta"
+#WORD *014121562245*  "seat"
+#WORD *014121570331*  "seawat"
+#WORD *014122162724*  "sectio"
+#WORD *014122165352*  "secure"
+#WORD *014122165356*  "securi"
+#WORD *014122512245*  "see"
+#WORD *014123576505*  "seize"
+#WORD *014124722245*  "send"
+#WORD *014125735232*  "seriou"
+#WORD *014126312245*  "set"
+#WORD *014126725145*  "seven"
+#WORD *014126725171*  "sevent"
+#WORD *014151522505*  "shade"
+#WORD *014151543045*  "shall"
+#WORD *014151552511*  "shaped"
+#WORD *014151557223*  "sharon"
+#WORD *014152512245*  "she"
+#WORD *014152513430*  "she's"
+#WORD *014152542545*  "shelf"
+#WORD *014152543552*  "shelve"
+#WORD *014153552245*  "ship"
+#WORD *014153562245*  "shit"
+#WORD *014155151445*  "shoot"
+#WORD *014155152245*  "shop"
+#WORD *014155165051*  "should"
+#WORD *014155165445*  "shout"
+#WORD *014155170245*  "show"
+#WORD *014156562245*  "shut"
+#WORD *014162530521*  "siegel"
+#WORD *014163146245*  "sign"
+#WORD *014163146321*  "signal"
+#WORD *014166312245*  "sit"
+#WORD *014167312245*  "six"
+#WORD *014167362512*  "sixtee"
+#WORD *014167363705*  "sixty"
+#WORD *014203544245*  "skim"
+#WORD *014211552245*  "slap"
+#WORD *014213522723*  "slidin"
+#WORD *014215170245*  "slow"
+#WORD *014215170527*  "slower"
+#WORD *014215171076*  "slowly"
+#WORD *014216530245*  "slug"
+#WORD *014221543045*  "small"
+#WORD *014221560645*  "smash"
+#WORD *014222543045*  "smell"
+#WORD *014223542505*  "smile"
+#WORD *014225140505*  "smoke"
+#WORD *014231553415*  "snapsh"
+#WORD *014231557005*  "snark"
+#WORD *014233526545*  "sniff"
+#WORD *014235162245*  "snot"
+#WORD *014244524245*  "some"
+#WORD *014244525455*  "someth"
+#WORD *014244715345*  "sonar"
+#WORD *014244715365*  "sonarp"
+#WORD *014244715370*  "sonars"
+#WORD *014245146245*  "soon"
+#WORD *014246112245*  "sos"
+#WORD *014246546445*  "sound"
+#WORD *014246562645*  "south"
+#WORD *014246562652*  "southe"
+#WORD *014246562674*  "southw"
+#WORD *014251520505*  "space"
+#WORD *014251556505*  "spare"
+#WORD *014252515005*  "speak"
+#WORD *014252515012*  "speake"
+#WORD *014252520706*  "specia"
+#WORD *014252524445*  "speed"
+#WORD *014255724311*  "spread"
+#WORD *014266515352*  "square"
+#WORD *014311535145*  "stain"
+#WORD *014311546445*  "stand"
+#WORD *014311546456*  "standi"
+#WORD *014311556364*  "starbo"
+#WORD *014311556505*  "stare"
+#WORD *014311557445*  "start"
+#WORD *014311557452*  "starte"
+#WORD *014311557461*  "startl"
+#WORD *014311562505*  "state"
+#WORD *014311562724*  "statio"
+#WORD *014311574245*  "stay"
+#WORD *014312515045*  "steal"
+#WORD *014312525045*  "steel"
+#WORD *014312525345*  "steer"
+#WORD *014312546416*  "stenci"
+#WORD *014313521005*  "stick"
+#WORD *014313543045*  "still"
+#WORD *014315152245*  "stop"
+#WORD *014315156314*  "storag"
+#WORD *014315157705*  "story"
+#WORD *014315715154*  "strang"
+#WORD *014315715605*  "straw"
+#WORD *014315735012*  "strike"
+#WORD *014316523705*  "study"
+#WORD *014316526545*  "stuff"
+#WORD *014321712245*  "sub"
+#WORD *014321713430*  "sub's"
+#WORD *014321744327*  "submar"
+#WORD *014321744527*  "submer"
+#WORD *014322140245*  "suck"
+#WORD *014324545223*  "summon"
+#WORD *014325325345*  "super"
+#WORD *014325325347*  "superb"
+#WORD *014325353056*  "suppli"
+#WORD *014325353076*  "supply"
+#WORD *014325724245*  "sure"
+#WORD *014325726310*  "surfac"
+#WORD *014325753356*  "surpri"
+#WORD *014325766733*  "surviv"
+#WORD *014326152523*  "suspen"
+#WORD *014341312245*  "sw"
+#WORD *014341543064*  "swallo"
+#WORD *014343544245*  "swim"
+#WORD *014343546605*  "swing"
+#WORD *014343562415*  "switch"
+#WORD *014365735154*  "syring"
+#WORD *014366162522*  "system"
+#WORD *014461742505*  "table"
+#WORD *014464124245*  "take"
+#WORD *014464340245*  "talk"
+#WORD *014464740245*  "tank"
+#WORD *014521556245*  "tear"
+#WORD *014522133156*  "techni"
+#WORD *014524342245*  "tell"
+#WORD *014524552527*  "temper"
+#WORD *014524553227*  "tempor"
+#WORD *014524712245*  "ten"
+#WORD *014526162245*  "test"
+#WORD *014526162527*  "tester"
+#WORD *014526163227*  "testor"
+#WORD *014551547005*  "thank"
+#WORD *014551547030*  "thanks"
+#WORD *014551562270*  "that'"
+#WORD *014552512245*  "the"
+#WORD *014552544245*  "them"
+#WORD *014552546245*  "then"
+#WORD *014552556505*  "there"
+#WORD *014552560505*  "these"
+#WORD *014552574245*  "they"
+#WORD *014552574270*  "they'"
+#WORD *014553546605*  "thing"
+#WORD *014553557452*  "thirte"
+#WORD *014553557476*  "thirty"
+#WORD *014553560245*  "this"
+#WORD *014555157252*  "thorpe"
+#WORD *014555165406*  "thousa"
+#WORD *014555724331*  "threat"
+#WORD *014555724505*  "three"
+#WORD *014555751471*  "thrott"
+#WORD *014555751514*  "throug"
+#WORD *014555751605*  "throw"
+#WORD *014555764245*  "thru"
+#WORD *014562512245*  "tie"
+#WORD *014564342245*  "till"
+#WORD *014565312245*  "tip"
+#WORD *014565313430*  "tip's"
+#WORD *014641312245*  "to"
+#WORD *014645142245*  "tool"
+#WORD *014645312245*  "top"
+#WORD *014646160245*  "toss"
+#WORD *014646520645*  "touch"
+#WORD *014671520505*  "trace"
+#WORD *014671521005*  "track"
+#WORD *014671521464*  "tracto"
+#WORD *014671535464*  "traito"
+#WORD *014671547005*  "trank"
+#WORD *014671547332*  "tranqu"
+#WORD *014671547422*  "transm"
+#WORD *014671547425*  "transp"
+#WORD *014671552245*  "trap"
+#WORD *014675164361*  "troubl"
+#WORD *014723112245*  "tug"
+#WORD *014724724245*  "tune"
+#WORD *014725716723*  "turbin"
+#WORD *014725746245*  "turn"
+#WORD *014725747405*  "turns"
+#WORD *014742543552*  "twelve"
+#WORD *014742547476*  "twenty"
+#WORD *014745112245*  "two"
+#WORD *015051312245*  "u"
+#WORD *015216356322*  "ultram"
+#WORD *015231563446*  "unatta"
+#WORD *015232164553*  "uncuff"
+#WORD *015232325345*  "under"
+#WORD *015232325363*  "undern"
+#WORD *015232325370*  "unders"
+#WORD *015232325374*  "underw"
+#WORD *015232715431*  "unfast"
+#WORD *015233351220*  "unhook"
+#WORD *015233562245*  "unit"
+#WORD *015233566527*  "univer"
+#WORD *015234335116*  "unlimi"
+#WORD *015234350420*  "unlock"
+#WORD *015236121356*  "unscri"
+#WORD *015236334505*  "untie"
+#WORD *015236335045*  "until"
+#WORD *015251312245*  "up"
+#WORD *015273125171*  "urgent"
+#WORD *015301312245*  "us"
+#WORD *015302512245*  "use"
+#WORD *015303546605*  "using"
+#WORD *015464364307*  "valuab"
+#WORD *015464366505*  "valve"
+#WORD *015464366530*  "valves"
+#WORD *015525717230*  "verbos"
+#WORD *015525760724*  "versio"
+#WORD *015562325205*  "video"
+#WORD *015562325225*  "videop"
+#WORD *015562571264*  "viewpo"
+#WORD *015644362314*  "voltag"
+#WORD *016051312245*  "w"
+#WORD *016062324245*  "wade"
+#WORD *016063562245*  "wait"
+#WORD *016064124245*  "wake"
+#WORD *016064340245*  "walk"
+#WORD *016064341606*  "walkwa"
+#WORD *016064342245*  "wall"
+#WORD *016064362245*  "walt"
+#WORD *016064362270*  "walt'"
+#WORD *016065744245*  "warm"
+#WORD *016065746723*  "warnin"
+#WORD *016066112245*  "was"
+#WORD *016066325345*  "water"
+#WORD *016121312245*  "we"
+#WORD *016121361352*  "we're"
+#WORD *016121553223*  "weapon"
+#WORD *016124342245*  "well"
+#WORD *016125724245*  "were"
+#WORD *016126162245*  "west"
+#WORD *016151542505*  "whale"
+#WORD *016151562245*  "what"
+#WORD *016151562270*  "what'"
+#WORD *016152546245*  "when"
+#WORD *016152546270*  "when'"
+#WORD *016152556505*  "where"
+#WORD *016153520645*  "which"
+#WORD *016155112245*  "who"
+#WORD *016155113430*  "who's"
+#WORD *016157512245*  "why"
+#WORD *016164321205*  "wilco"
+#WORD *016164342245*  "will"
+#WORD *016164722245*  "wind"
+#WORD *016164723234*  "window"
+#WORD *016164740245*  "wink"
+#WORD *016165324245*  "wipe"
+#WORD *016166332245*  "with"
+#WORD *016244515145*  "woman"
+#WORD *016244713431*  "won't"
+#WORD *016245740245*  "work"
+#WORD *016245740352*  "workbe"
+#WORD *016245740424*  "workco"
+#WORD *016245741415*  "worksh"
+#WORD *016246542445*  "would"
+#WORD *016272546415*  "wrench"
+#WORD *017051312245*  "y"
+#WORD *017121532245*  "yeah"
+#WORD *017124342245*  "yell"
+#WORD *017124343234*  "yellow"
+#WORD *017126112245*  "yes"
+#WORD *017246512245*  "you"
+#WORD *017246513427*  "you'r"
+#WORD *017246546605*  "young"
+#WORD *017246557412*  "yourse"
+#WORD *017325312245*  "yup"
+#WORD *017451312245*  "z"
+#WORD *017525750245*  "zero"
+#WORD *017642512245*  "zoe"
+#WORD *017642513430*  "zoe's"
+#WORD *017777742605*  "zzzlg"
+#WORD *017777777054*  "zzzzlg"
diff --git a/j1.xzap b/j1.xzap
new file mode 100644
index 0000000..22cc32f
--- /dev/null
+++ b/j1.xzap
@@ -0,0 +1,18 @@
+	.INSERT "J1FREQ"
+	.INSERT "J1DAT"
+	.INSERT "MACROS"
+	.INSERT "MAIN"
+	.INSERT "CLOCK"
+	.INSERT "SUB"
+	.INSERT "BATTLE"
+	.INSERT "DOME"
+	.INSERT "PLACES"
+	.INSERT "PEOPLE"
+	.INSERT "THINGS"
+	.INSERT "GLOBAL"
+	.INSERT "PARSER"
+	.INSERT "SYNTAX"
+	.INSERT "VERBS"
+	.INSERT "EVENTS"
+	.INSERT "J1STR"
+	.END
diff --git a/j1.zap b/j1.zap
index cbeedad..f09d4b8 100644
--- a/j1.zap
+++ b/j1.zap
@@ -1,7 +1,6 @@
 
 	.INSERT "J1DAT"			; DATA IS IN THIS FILE
 
-
 	.INSERT "MACROS"
 
 
diff --git a/j1.zbin b/j1.zbin
new file mode 100644
index 0000000..8925c0c
--- /dev/null
+++ b/j1.zbin
@@ -0,0 +1,52 @@
+"COMPILE/LOAD FILE for SEASTALKER
+Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+
+<COND (<GASSIGNED? PREDGEN>
+       <PRINC "Compiling">
+       <SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>
+       <ID 0>)
+      (T <PRINC "Loading">)>
+
+<PRINC " SEASTALKER: junior-level interactive fiction from Infocom!">
+
+<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+
+<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?>>
+
+;<DIRECTIONS NORTH SOUTH EAST WEST NE NW SE SW UP DOWN IN OUT>
+<DIRECTIONS ;"Do not change the order of the first eight
+	      without consulting MARC! -- ENCHANTER"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<IFILE "MACROS.ZEN" T>
+<IFILE "SYNTAX.ZEN" T>
+<IFILE "MAIN.ZEN" T>
+
+<IFILE "SUB.ZEN" T>
+<IFILE "BATTLE.ZEN" T>
+<IFILE "THINGS.ZEN" T>
+<IFILE "DOME.ZEN" T>
+
+<IFILE "PEOPLE.ZEN" T>
+<IFILE "PLACES.ZEN" T>
+<IFILE "GLOBAL.ZEN" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+
+<IFILE "CLOCK.ZEN" T>
+<ENDLOAD>
+<IFILE "PARSER.ZEN" T>
+<IFILE "VERBS.ZEN" T>
+<IFILE "EVENTS.ZEN" T>
+
+<GC-MON T>
+<GC 0 T 5>
diff --git a/j1.zebra b/j1.zebra
new file mode 100644
index 0000000..b6e6d53
--- /dev/null
+++ b/j1.zebra
@@ -0,0 +1,15 @@
+	.INSERT "MACROS"
+	.INSERT "SYNTAX"
+	.INSERT "MAIN"
+	.INSERT "SUB"
+	.INSERT "BATTLE"
+	.INSERT "THINGS"
+	.INSERT "DOME"
+	.INSERT "PEOPLE"
+	.INSERT "PLACES"
+	.INSERT "GLOBAL"
+	.INSERT "CLOCK"
+	.INSERT "PARSER"
+	.INSERT "VERBS"
+	.INSERT "EVENTS"
+	.END
diff --git a/j1.zil b/j1.zil
index 92b83c8..e9dbdda 100644
--- a/j1.zil
+++ b/j1.zil
@@ -3,16 +3,23 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 
 <COND (<GASSIGNED? PREDGEN>
        <PRINC "Compiling">
+       <SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>
        <ID 0>)
       (T <PRINC "Loading">)>
 
 <PRINC " SEASTALKER: junior-level interactive fiction from Infocom!">
 
-<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+ON!-INITIAL	"for DEBUGR"
+OFF!-INITIAL
+ENABLE!-INITIAL
+DISABLE!-INITIAL
+
+<COND (<GASSIGNED? MUDDLE>
+       <BLOAT 90000 0 0 3500 0 0 0 0 0 512>)>
 
 <SET REDEFINE T>
 
-<GLOBAL BIGFIX 10000>
+"<GLOBAL BIGFIX 10000>"
 
 <OR <GASSIGNED? ZILCH>
     <SETG WBREAKS <STRING !\" !,WBREAKS>>>
@@ -20,7 +27,6 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
 	<INSERT-FILE .STR .FLOAD?>>
 
-;<DIRECTIONS NORTH SOUTH EAST WEST NE NW SE SW UP DOWN IN OUT>
 <DIRECTIONS ;"Do not change the order of the first eight
 	      without consulting MARC! -- ENCHANTER"
  	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
@@ -28,28 +34,24 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <IFILE "MACROS" T>
 <IFILE "SYNTAX" T>
 <IFILE "MAIN" T>
-
-<COND (<GASSIGNED? PREDGEN>
-       <IFILE "SUB" T>
-       <IFILE "BATTLE" T>
-       <IFILE "THINGS" T>
-       <IFILE "DOME" T>)>
+<IFILE "SUB" T>
+<IFILE "BATTLE" T>
+<IFILE "THINGS" T>
+<IFILE "DOME" T>
 
 <IFILE "PEOPLE" T>
 <IFILE "PLACES" T>
 <IFILE "GLOBAL" T>
-
-<PROPDEF SIZE 5>
-<PROPDEF CAPACITY 0>
-
+<CONSTANT SERIAL 0>
 <IFILE "CLOCK" T>
 <ENDLOAD>
 <IFILE "PARSER" T>
 <IFILE "VERBS" T>
-<COND (<GASSIGNED? PREDGEN> <IFILE "EVENTS" T>)>
+<IFILE "EVENTS" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
 
 <GC-MON T>
-<GC 0 T 5>
-
-<COND (<NOT <GASSIGNED? PREDGEN>>
-       <CLOSE!- ,XTELLCHAN>)>
\ No newline at end of file
+<COND (<GASSIGNED? MUDDLE>
+       <GC 0 T 5>)>
diff --git a/j1.zip b/j1.zip
index 9fc5580..bd4992a 100644
Binary files a/j1.zip and b/j1.zip differ
diff --git a/j1dat.zap b/j1dat.zap
new file mode 100644
index 0000000..11ca57a
--- /dev/null
+++ b/j1dat.zap
@@ -0,0 +1,14856 @@
+
+
+; 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?NONE=0
+	P1?OBJECT=0
+	P1?VERB=1
+	P1?ADJECTIVE=2
+	P1?DIRECTION=3
+
+
+; OBJECT FLAGS ARE DEFINED HERE
+
+
+	FX?LIGHTBIT=64
+	LIGHTBIT=25
+
+	FX?TRANSBIT=512
+	TRANSBIT=6
+
+	FX?CONTBIT=32
+	CONTBIT=26
+
+	FX?NARTICLEBIT=64
+	NARTICLEBIT=9
+
+	FX?RMUNGBIT=1
+	RMUNGBIT=31
+
+	FX?FEMALE=2048
+	FEMALE=4
+
+	FX?TOOLBIT=128
+	TOOLBIT=24
+
+	FX?MUNGBIT=2
+	MUNGBIT=14
+
+	FX?TOUCHBIT=1024
+	TOUCHBIT=5
+
+	FX?PERSON=2
+	PERSON=30
+
+	FX?RLANDBIT=1024
+	RLANDBIT=21
+
+	FX?SEARCHBIT=16
+	SEARCHBIT=11
+
+	FX?OPENBIT=4096
+	OPENBIT=19
+
+	FX?VEHBIT=8
+	VEHBIT=28
+
+	FX?LOCKED=32768
+	LOCKED=16
+
+	FX?DOORBIT=16
+	DOORBIT=27
+
+	FX?ONBIT=2048
+	ONBIT=20
+
+	FX?NDESCBIT=8192
+	NDESCBIT=18
+
+	FX?INVISIBLE=4
+	INVISIBLE=13
+
+	FX?READBIT=512
+	READBIT=22
+
+	FX?WEAPONBIT=4
+	WEAPONBIT=29
+
+	FX?ON?BIT=8
+	ON?BIT=12
+
+	FX?TRYTAKEBIT=128
+	TRYTAKEBIT=8
+
+	FX?WINDOWBIT=16384
+	WINDOWBIT=17
+
+	FX?BUSYBIT=4096
+	BUSYBIT=3
+
+	FX?SURFACEBIT=256
+	SURFACEBIT=7
+
+	FX?TAKEBIT=256
+	TAKEBIT=23
+
+	FX?UNITBIT=32
+	UNITBIT=10
+
+	FX?VOWELBIT=1
+	VOWELBIT=15
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?$VERIFY=0
+	V?DEBUG=1
+	V?$BAY=2
+	V?ADJUST=3
+	V?AIM=4
+	V?SAIM=5
+	V?ANALYZE=6
+	V?LOOK-UNDER=7
+	V?LOOK-UP=8
+	V?SANALYZE=9
+	V?ANSWER=10
+	V?REPLY=11
+	V?PUT=12
+	V?ARM=13
+	V?ARREST=14
+	V?ASK=15
+	V?ASK-CONTEXT-ABOUT=16
+	V?ASK-CONTEXT-FOR=17
+	V?ASK-ABOUT=18
+	V?ASK-FOR=19
+	V?ATTACK=20
+	V?BRIEF=21
+	V?BRING=22
+	V?SBRING=23
+	V?BRUSH=24
+	V?$CALL=25
+	V?PHONE=26
+	V?BOARD=27
+	V?CLIMB-DOWN=28
+	V?CLIMB-ON=29
+	V?DISEMBARK=30
+	V?THROUGH=31
+	V?CLIMB-UP=32
+	V?CLOSE=33
+	V?WALK-TO=34
+	V?FOLLOW=35
+	V?COME-WITH=36
+	V?COMPARE=37
+	V?CONFRONT=38
+	V?CUT=39
+	V?MUNG=40
+	V?DIAGNOSE=41
+	V?DISCUSS=42
+	V?DIVE=43
+	V?DOCK=44
+	V?DRINK=45
+	V?DROP=46
+	V?EAT=47
+	V?EMPTY=48
+	V?ENTER=49
+	V?EXAMINE=50
+	V?LAMP-OFF=51
+	V?FILL=52
+	V?FIND=53
+	V?FIND-WITH=54
+	V?FIX=55
+	V?GIVE=56
+	V?SGIVE=57
+	V?GOODBYE=58
+	V?HANGUP=59
+	V?HELLO=60
+	V?HELP=61
+	V?PUT-UNDER=62
+	V?INVENTORY=63
+	V?KILL=64
+	V?KISS=65
+	V?KNOCK=66
+	V?LAUNCH=67
+	V?STAND=68
+	V?LEVEL=69
+	V?LEAVE=70
+	V?LISTEN=71
+	V?LOCK=72
+	V?LOOK=73
+	V?READ=74
+	V?LOOK-BEHIND=75
+	V?LOOK-DOWN=76
+	V?LOOK-INSIDE=77
+	V?LOOK-ON=78
+	V?LOOK-OUTSIDE=79
+	V?MAKE=80
+	V?MOVE=81
+	V?MOVE-DIR=82
+	V?SET=83
+	V?NO=84
+	V?OPEN=85
+	V?OPEN-WITH=86
+	V?PICK=87
+	V?TAKE=88
+	V?PLAY=89
+	V?PUSH=90
+	V?LAMP-ON=91
+	V?QUIT=92
+	V?RAISE=93
+	V?RESTART=94
+	V?RESTORE=95
+	V?RING=96
+	V?RISE=97
+	V?RUB=98
+	V?RUB-OVER=99
+	V?SAVE=100
+	V?SAY=101
+	V?TALK-ABOUT=102
+	V?SAY-INTO=103
+	V?TELL=104
+	V?TELL-ABOUT=105
+	V?SCORE=106
+	V?SCREW-IN=107
+	V?SCREW=108
+	V?SCRIPT=109
+	V?SEARCH=110
+	V?SEARCH-FOR=111
+	V?SEND=112
+	V?SEND-OUT=113
+	V?SSEND=114
+	V?SEND-TO=115
+	V?SHOOT=116
+	V?SSHOOT=117
+	V?SHOW=118
+	V?SSHOW=119
+	V?SIT=120
+	V?SLAP=121
+	V?SMELL=122
+	V?SMILE=123
+	V?SMOKE=124
+	V?STOP=125
+	V?SUPER-BRIEF=126
+	V?SURFACE=127
+	V?SWIM=128
+	V?TAKE-TO=129
+	V?TAKE-WITH=130
+	V?THANKS=131
+	V?THROW-AT=132
+	V?THROW-THROUGH=133
+	V?TIE-TO=134
+	V?TIE-WITH=135
+	V?TURN=136
+	V?UNLOCK=137
+	V?UNSCRIPT=138
+	V?UNTIE=139
+	V?USE=140
+	V?USE-AGAINST=141
+	V?VERBOSE=142
+	V?VERSION=143
+	V?WAIT-FOR=144
+	V?WAIT-UNTIL=145
+	V?ALARM=146
+	V?WALK=147
+	V?WALK-AROUND=148
+	V?RUN-OVER=149
+	V?WALK-UNDER=150
+	V?WHAT=151
+	V?YELL=152
+	V?YELL-FOR=153
+	V?YES=154
+
+; PROPERTIES ARE DEFINED HERE
+
+	P?NORTH=31
+	P?NE=30
+	P?EAST=29
+	P?SE=28
+	P?SOUTH=27
+	P?SW=26
+	P?WEST=25
+	P?NW=24
+	P?UP=23
+	P?DOWN=22
+	P?IN=21
+	P?OUT=20
+	P?ACTION=19
+	P?TEXT=18
+	P?GLOBAL=17
+	P?VALUE=16
+	P?ADJECTIVE=15
+	P?SYNONYM=14
+	P?LDESC=13
+	P?PSEUDO=12
+	P?GENERIC=11
+	P?CAPACITY=10
+	P?DESCFCN=9
+	P?CONTFCN=8
+	P?SIZE=7
+	P?CORRIDOR=6
+	P?CHARACTER=5
+	P?FDESC=4
+
+; ADJECTIVES ARE DEFINED HERE
+
+	A?ENTRY=255
+	A?BIOCEPTOR=254
+	A?SUB=253
+	A?SUBMARINE=252
+	A?SCIMITAR=251
+	A?ENGINE=250
+	A?ACCESS=249
+	A?STENCIL=248
+	A?CRAWL=247
+	A?VOLTAGE=246
+	A?SEA=245
+	A?CAPSULE=244
+	A?INSERT=243
+	A?REACTOR=242
+	A?DEPTH=241
+	A?DEPTHFINDER=240
+	A?FINDER=239
+	A?WARNING=238
+	A?ORANGE=237
+	A?RED=236
+	A?SONAR=235
+	A?SONARSCOPE=234
+	A?YELLOW=233
+	A?ALARM=232
+	A?HYDROPHONE=231
+	A?LISTEN=230
+	A?POWER=229
+	A?PROPULSION=228
+	A?HYDROJET=227
+	A?STARTER=226
+	A?JOY=225
+	A?STANDING=224
+	A?PRESENT=223
+	A?CURRENT=222
+	A?SUB'S=221
+	A?GRID=220
+	A?NUMBER=219
+	A?AUTO=218
+	A?AUTOMATIC=217
+	A?CONTROL=216
+	A?CIRCUIT=215
+	A?TEMPERATURE=214
+	A?GAUGE=213
+	A?BRASS=212
+	A?SEARCH=211
+	A?LIGHT=210
+	A?FROBTON=209
+	A?EXTENSOR=208
+	A?EXTENDER=207
+	A?INSTRUMENT=206
+	A?OPERATOR=205
+	A?THIS=204
+	A?HUGE=203
+	A?DOCTOR=202
+	A?DOC'S=201
+	A?JEROME=200
+	A?THORPE=199
+	A?MARINE=198
+	A?AQUATIC=197
+	A?DART=196
+	A?TRANQUILIZER=195
+	A?TRANK=194
+	A?49-ER=193
+	A?49ER=192
+	A?PROSPECTING=191
+	A?LOG=190
+	A?TIP'S=189
+	A?RANDALL=188
+	A?MAGAZINE=187
+	A?MAG=186
+	A?COVER=185
+	A?CATALYST=184
+	A?OTHER=183
+	A?WALT'S=182
+	A?HORVAK=181
+	A?MARV'S=180
+	A?SIEGEL=179
+	A?MICK'S=178
+	A?ANTRIM=177
+	A?DIVER=176
+	A?DIVERS=175
+	A?BILL'S=174
+	A?GREENUP=173
+	A?AMY'S=172
+	A?LOWELL=171
+	A?COMMANDER=170
+	A?ZOE'S=169
+	A?BLY'S=168
+	A?EMERGE=167
+	A?OXYGEN=166
+	A?RUBBER=165
+	A?MY=164
+	A?SPECIAL=163
+	A?IDENTIFY=162
+	A?SHARON=161
+	A?KEMP'S=160
+	A?UNIVERSAL=159
+	A?UNDERSEA=158
+	A?UNDERWATER=157
+	A?RESEARCH=156
+	A?AQUA=155
+	A?PLASTIC=154
+	A?TRANSPARENT=153
+	A?RUNNING=152
+	A?JOGGING=151
+	A?EXERCISE=150
+	A?DOCKING=149
+	A?TANK=148
+	A?AIRLOCK=147
+	A?AQUADOME=146
+	A?ENTIRE=145
+	A?THESE=144
+	A?RECEPTION=143
+	A?SW=142
+	A?FEMALE=141
+	A?MALE=140
+	A?DORM=139
+	A?DORMITORY=138
+	A?BLUE=137
+	A?LOCKER=136
+	A?NW=135
+	A?WORKSHOP=134
+	A?LAB=133
+	A?LABORATORY=132
+	A?WORK=131
+	A?ASSORTED=130
+	A?HAND=129
+	A?MACHIN=128
+	A?SPARE=127
+	A?DOME=126
+	A?NE=125
+	A?COMM=124
+	A?COMMUN=123
+	A?BLDG=122
+	A?BUILDI=121
+	A?GALLEY=120
+	A?CENTER=119
+	A?CENTRE=118
+	A?SE=117
+	A?ADMIN=116
+	A?ADMINI=115
+	A?OFFICE=114
+	A?STORAGE=113
+	A?DESK=112
+	A?SMALL=111
+	A?ELECTR=110
+	A?BLACK=109
+	A?BOX=108
+	A?STATION=107
+	A?SUPPLY=106
+	A?SURVIVAL=105
+	A?HYPO=104
+	A?HYPODERMIC=103
+	A?FINE=102
+	A?AIR=101
+	A?FRAM=100
+	A?BOLT=99
+	A?ODD=98
+	A?ODDLY=97
+	A?SHAPED=96
+	A?METALLIC=95
+	A?MISSING=94
+	A?SOME=93
+	A?EMPTY=92
+	A?FAMOUS=91
+	A?YOUNG=90
+	A?$FN=89
+	A?WARM=88
+	A?SPREADING=87
+	A?REDDISH=86
+	A?SERIOUS=85
+	A?TIP=84
+	A?ZOE=83
+	A?MICK=82
+	A?DOC=81
+	A?WALT=80
+	A?DR=79
+	A?MARV=78
+	A?BILL=77
+	A?AMY=76
+	A?NORTH=75
+	A?VIDEO=74
+	A?EAST=73
+	A?MICROWAVE=72
+	A?SECURITY=71
+	A?SLIDING=70
+	A?OPEN=69
+	A?ROOM=68
+	A?CLOSET=67
+	A?FILE=66
+	A?BUSINESS=65
+	A?SOUTH=64
+	A?CHEMICAL=63
+	A?WEST=62
+	A?MECHANICAL=61
+	A?TEMPORARY=60
+	A?WALL=59
+	A?REMOTE=58
+	A?FULL=57
+	A?INVENT=56
+	A?URGENT=55
+	A?EXPLOSIVE=54
+	A?REVOLUTIONARY=53
+	A?NEW=52
+	A?ULTRAMARINE=51
+	A?TEST=50
+	A?DISTRESS=49
+	A?SOS=48
+	A?DETECT=47
+	A?VIDEOPHONE=46
+	A?COAXIAL=45
+	A?ATLANTIC=44
+	A?STEEL=43
+	A?REPELATRON=42
+	A?SAFETY=41
+	A?FLOOD=40
+	A?GATE=39
+	A?PERSONAL=38
+	A?DEFINITE=37
+	A?VALUABLE=36
+	A?ORE=35
+	A?HIS=34
+	A?HER=33
+	A?$LN=32
+
+; BUZZ WORDS ARE DEFINED HERE
+
+	B?A=255
+	B?AN=254
+	B?THE=253
+	B?AND=252
+	B?OF=251
+	B?THEN=250
+	B?ONE=249
+	B?PERIOD=248
+	B?COMMA=247
+	B?QUOTE=246
+	B?!=245
+	B??=244
+	B?BACK=243
+	B?FIRST=242
+	B?NOW=241
+	B?SOON=240
+	B?WELL=239
+	B?THERE=238
+	B?PLEASE=237
+	B?MAYBE=236
+	B?CAREFULLY=235
+	B?CLOSELY=234
+	B?QUIETLY=233
+	B?SLOWLY=232
+	B?QUICKLY=231
+	B?BRIEFLY=230
+	B?PRIVATELY=229
+	B?ALL=228
+	B?AGAIN=227
+	B?G=226
+	B?AM=225
+	B?ANY=224
+	B?ARE=223
+	B?CAN=222
+	B?COULD=221
+	B?DID=220
+	B?DO=219
+	B?HAS=218
+	B?HAVE=217
+	B?HE'S=216
+	B?HOW=215
+	B?IS=214
+	B?IT'S=213
+	B?I'LL=212
+	B?I'M=211
+	B?I'VE=210
+	B?LET'S=209
+	B?SHALL=208
+	B?SHE'S=207
+	B?SHOULD=206
+	B?THAT'S=205
+	B?THEY'RE=204
+	B?WAS=203
+	B?WERE=202
+	B?WE'RE=201
+	B?WHAT=200
+	B?WHAT'S=199
+	B?WHEN=198
+	B?WHEN'S=197
+	B?WHERE=196
+	B?WHICH=195
+	B?WHO=194
+	B?WHO'S=193
+	B?WHY=192
+	B?WILL=191
+	B?WON'T=190
+	B?WOULD=189
+	B?YOU'RE=188
+	B?ZERO=187
+	B?TWO=186
+	B?THREE=185
+	B?FOUR=184
+	B?FIVE=183
+	B?SIX=182
+	B?SEVEN=181
+	B?EIGHT=180
+	B?NINE=179
+	B?TEN=178
+	B?ELEVEN=177
+	B?TWELVE=176
+	B?THIRTE=175
+	B?FOURTE=174
+	B?FIFTEE=173
+	B?SIXTEE=172
+	B?SEVENT=171
+	B?EIGHTE=170
+	B?NINETE=169
+	B?TWENTY=168
+	B?THIRTY=167
+	B?FORTY=166
+	B?FIFTY=165
+	B?SIXTY=164
+	B?EIGHTY=163
+	B?NINETY=162
+	B?HUNDRE=161
+	B?THOUSA=160
+	B?MILLIO=159
+	B?BILLIO=158
+	B?CURSE=157
+	B?CURSES=156
+	B?CUSS=155
+	B?DAMN=154
+	B?SHIT=153
+	B?SUCK=152
+	B?FUCK=151
+	B?FUDGE=150
+	B?PISS=149
+	B?PEE=148
+	B?POO=147
+	B?SNOT=146
+	B?BASTARD=145
+
+; PREPOSITIONS ARE DEFINED HERE
+
+	PR?WITH=255
+	PR?IN=254
+	PR?UP=253
+	PR?AT=252
+	PR?TO=251
+	PR?FOR=250
+	PR?OUT=249
+	PR?UNDER=248
+	PR?ON=247
+	PR?ABOUT=246
+	PR?OFF=245
+	PR?BY=244
+	PR?DOWN=243
+	PR?THROUGH=242
+	PR?FROM=241
+	PR?AROUND=240
+	PR?BEHIND=239
+	PR?OVER=238
+	PR?RID=237
+	PR?AWAY=236
+	PR?AGAINST=235
+	PR?TILL=234
+	PR?UNTIL=233
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+	ACT?KISS=255
+	ACT?I=254
+	ACT?PULL=253
+	ACT?BRING=252
+	ACT?VERBOSE=251
+	ACT?WALK=250
+	ACT?DISCUSS=249
+	ACT?QUIT=248
+	ACT?FIND=247
+	ACT?YES=246
+	ACT?STOP=245
+	ACT?MATCH=244
+	ACT?UNLOCK=243
+	ACT?READ=242
+	ACT?CONFRONT=241
+	ACT?SAY=240
+	ACT?WAIT=239
+	ACT?DIVE=238
+	ACT?TAKE=237
+	ACT?NO=236
+	ACT?RAISE=235
+	ACT?CALL=234
+	ACT?FOLLOW=233
+	ACT?GOODBYE=232
+	ACT?#DBG=231
+	ACT?MOVE=230
+	ACT?ARREST=229
+	ACT?PLAY=228
+	ACT?OPEN=227
+	ACT?NAME=226
+	ACT?KNOCK=225
+	ACT?INVENT=224
+	ACT?PICK=223
+	ACT?SMOKE=222
+	ACT?APPLY=221
+	ACT?AIM=220
+	ACT?STAND=219
+	ACT?LISTEN=218
+	ACT?TIE=217
+	ACT?SHOW=216
+	ACT?NOD=215
+	ACT?HELP=214
+	ACT?SAVE=213
+	ACT?TELL=212
+	ACT?THROW=211
+	ACT?RISE=210
+	ACT?USE=209
+	ACT?HIDE=208
+	ACT?ATTACK=207
+	ACT?DAMAGE=206
+	ACT?KILL=205
+	ACT?ENTER=204
+	ACT?THANKS=203
+	ACT?PLACE=202
+	ACT?SEARCH=201
+	ACT?SWITCH=200
+	ACT?SWIM=199
+	ACT?UNTIE=198
+	ACT?PUMP=197
+	ACT?CUT=196
+	ACT?SET=195
+	ACT?UNSCRIPT=194
+	ACT?HANG=193
+	ACT?BRUSH=192
+	ACT?RING=191
+	ACT?PUSH=190
+	ACT?RUB=189
+	ACT?SIT=188
+	ACT?SUPER=187
+	ACT?LEVEL=186
+	ACT?SEND=185
+	ACT?SCORE=184
+	ACT?SLAP=183
+	ACT?COME=182
+	ACT?LOOK=181
+	ACT?EMPTY=180
+	ACT?DOCK=179
+	ACT?SCREW=178
+	ACT?DROP=177
+	ACT?LEAVE=176
+	ACT?HAND=175
+	ACT?SCRIPT=174
+	ACT?$VERIFY=173
+	ACT?EXTINGUISH=172
+	ACT?RESTART=171
+	ACT?SMELL=170
+	ACT?BRIEF=169
+	ACT?DIAGNOSE=168
+	ACT?SMILE=167
+	ACT?WAKE=166
+	ACT?DRINK=165
+	ACT?ANSWER=164
+	ACT?$CALL=163
+	ACT?YELL=162
+	ACT?LOCK=161
+	ACT?ADJUST=160
+	ACT?TURN=159
+	ACT?START=158
+	ACT?SURFACE=157
+	ACT?TEST=156
+	ACT?MAKE=155
+	ACT?$BAY=154
+	ACT?RESTORE=153
+	ACT?CLOSE=152
+	ACT?STRIKE=151
+	ACT?FIX=150
+	ACT?EXAMINE=149
+	ACT?RELEASE=148
+	ACT?EAT=147
+	ACT?FIRE=146
+	ACT?FILL=145
+	ACT?FIT=144
+	ACT?ARM=143
+	ACT?CLIMB=142
+	ACT?LAUNCH=141
+	ACT?ASK=140
+	ACT?HELLO=139
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	SOG=16
+	HIT-DOME-CODE=5
+	SIR=32
+	DEXITSTR=1
+	P-ITBLLEN=9
+	P-SYNLEN=8
+	P-SRCTOP=0
+	C-INTLEN=6
+	EXCLAM-DOME-AIR-BAD=3
+	DEXITOBJ=1
+	P-P1OFF=5
+	SONAR-RANGE=5
+	SONAR-RED=2
+	SEA-WALL-LAT=38
+	THROTTLE-MAX=3
+	AIRLOCK-DEPTH=29
+	DOME-AIR-FIX-RATE=5
+	C-TABLELEN=222
+	P-NC2=8
+	SPIRE-LON=29
+	P-NC1=6
+	SEA-DEPTH=30
+	P-WORDLEN=4
+	SERIAL=0
+	P-VERBN=1
+	P-P1BITS=3
+	FEXIT=3
+	ZORKID=1
+	P-SPREP1=1
+	HIT-SHORE-CODE=2
+	P-PREP1=2
+	M-BEG=1
+	TEST-BUTTON-POD=2
+	DEPTH-ORANGE=5
+	DOME-AIR-ONSET=11
+	M-FATAL=2
+	NEXITSTR=0
+	P-SLOC2=6
+	NEXIT=2
+	SC=64
+	P-PREP1N=3
+	P-PSOFF=4
+	HIT-BOTTOM-CODE=1
+	SPIRE-LAT=26
+	P-VERB=0
+	TEST-BUTTON-NORMAL=1
+	M-ENTER=2
+	SHAVE=2
+	DEXIT=5
+	P-SRCBOT=2
+	M-OBJDESC=5
+	SMANY=4
+	STAKE=8
+	P-SPREP2=2
+	IN-DOME-CODE=3
+	CEXIT=4
+	P-LEXSTART=1
+	M-LOOK=3
+	UEXIT=1
+	REGULATOR-MSG=3
+	CLAW-MUNGED-MSG=5
+	P-LEXELEN=2
+	AQUADOME-DISTANCE=60
+	P-LEXWORDS=1
+	P-ALL=1
+	AQUADOME-VISIBLE=55
+	P-SFWIM1=3
+	P-INHIBIT=4
+	CEXITFLAG=1
+	GATE-CRASHED-MSG=4
+	SEA-WALL-LON=32
+	OPEN-SEA-CODE=4
+	M-FLASH=4
+	FEXITFCN=0
+	INITIAL-DOME-AIR-BAD=1
+	P-SBITS=0
+	P-SRCALL=1
+	CEXITSTR=1
+	P-SLOC1=5
+	M-END=6
+	P-PREP2=4
+	P-SONUMS=3
+	C-TICK=1
+	P-NC2L=9
+	P-NC1L=7
+	P-ONE=2
+	G-REACHED=1
+	SONAR-YELLOW=1
+	P-SACTION=7
+	P-SFWIM2=4
+	DEPTH-RED=6
+	C-ENABLED?=0
+	REXIT=0
+	SH=128
+	C-RTN=2
+	NAME-LENGTH=19
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+OBJECT::.TABLE 
+	0			;(NONE)
+	0			;(NONE)
+	0			;(NONE)
+	0			;(P?FDESC)
+	0			;(P?CHARACTER)
+	0			;(P?CORRIDOR)
+	5			;(P?SIZE)
+	0			;(P?CONTFCN)
+	0			;(P?DESCFCN)
+	0			;(P?CAPACITY)
+	0			;(P?GENERIC)
+	0			;(P?PSEUDO)
+	0			;(P?LDESC)
+	0			;(P?SYNONYM)
+	0			;(P?ADJECTIVE)
+	0			;(P?VALUE)
+	0			;(P?GLOBAL)
+	0			;(P?TEXT)
+	0			;(P?ACTION)
+	0			;(P?OUT)
+	0			;(P?IN)
+	0			;(P?DOWN)
+	0			;(P?UP)
+	0			;(P?NW)
+	0			;(P?WEST)
+	0			;(P?SW)
+	0			;(P?SOUTH)
+	0			;(P?SE)
+	0			;(P?EAST)
+	0			;(P?NE)
+	0			;(P?NORTH)
+	.OBJECT INSTRUMENTS,FX?VOWELBIT,FX?NDESCBIT,SUB,PILOT-SEAT,0,T?INSTRUMENTS
+	.OBJECT OXYGEN-GEAR-OTHER,FX?VOWELBIT,0,GLOBAL-OBJECTS,0,0,T?OXYGEN-GEAR-OTHER
+	.OBJECT STORAGE-DOOR,0,FX?DOORBIT,LOCAL-GLOBALS,EAST-DOORWAY,0,T?STORAGE-DOOR
+	.OBJECT VIDEOPHONE,0,FX?NDESCBIT,LOCAL-GLOBALS,ALARM,0,T?VIDEOPHONE
+	.OBJECT LAB-STORAGE,0,FX?ONBIT+FX?RLANDBIT,ROOMS,HALLWAY,0,T?LAB-STORAGE
+	.OBJECT AIR,FX?VOWELBIT,0,GLOBAL-OBJECTS,GLOBAL-HERE,0,T?AIR
+	.OBJECT GAME,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,UNDERWATER,0,T?GAME
+	.OBJECT ARTICLE,FX?VOWELBIT,FX?READBIT,MAGAZINE,0,0,T?ARTICLE
+	.OBJECT GLOBAL-WATER,0,0,GLOBAL-OBJECTS,INTDIR,0,T?GLOBAL-WATER
+	.OBJECT BADGE-SHARON,FX?NARTICLEBIT,FX?NDESCBIT,SHARON,0,0,T?BADGE-SHARON
+	.OBJECT WOMENS-QUARTERS,0,FX?ONBIT+FX?RLANDBIT,ROOMS,OUTSIDE-DORM,WOMENS-FURNITURE,T?WOMENS-QUARTERS
+	.OBJECT CENTER-OF-DOME,0,FX?ONBIT+FX?RLANDBIT,ROOMS,DOME-STORAGE,AIR-SUPPLY-SYSTEM,T?CENTER-OF-DOME
+	.OBJECT WINDOW,0,FX?LOCKED+FX?WINDOWBIT+FX?NDESCBIT,LOCAL-GLOBALS,ENGINE-BUTTON,0,T?WINDOW
+	.OBJECT CONTROLS-OFFICE,0,FX?NDESCBIT,BLY-OFFICE,AIRLOCK-ELECTRICITY,0,T?CONTROLS-OFFICE
+	.OBJECT PROBLEM,0,0,GLOBAL-OBJECTS,MOTIVE,0,T?PROBLEM
+	.OBJECT BLY-DOOR,FX?VOWELBIT,FX?DOORBIT,LOCAL-GLOBALS,GALLEY-DOOR,0,T?BLY-DOOR
+	.OBJECT MENS-QUARTERS,0,FX?ONBIT+FX?RLANDBIT,ROOMS,WOMENS-QUARTERS,MENS-FURNITURE,T?MENS-QUARTERS
+	.OBJECT ENGINE,FX?ON?BIT,FX?NDESCBIT,SUB,REACTOR,0,T?ENGINE
+	.OBJECT DEPTH-CONTROL,0,FX?NDESCBIT,SUB,DEPTH,0,T?DEPTH-CONTROL
+	.OBJECT BADGE-PLAYER,FX?NARTICLEBIT,FX?NDESCBIT,PLAYER,0,0,T?BADGE-PLAYER
+	.OBJECT OFF,FX?VOWELBIT,FX?NDESCBIT,SUB,SLOW,0,T?OFF
+	.OBJECT SONAR-EQUIPMENT,FX?NARTICLEBIT+FX?VOWELBIT+FX?SURFACEBIT,FX?NDESCBIT+FX?ONBIT+FX?OPENBIT,COMM-BLDG,0,MICROPHONE-DOME,T?SONAR-EQUIPMENT
+	.OBJECT CENTER-OF-LAB,0,FX?ONBIT+FX?RLANDBIT,ROOMS,WEST-WALL,PLAYER,T?CENTER-OF-LAB
+	.OBJECT THORPE-SUB,FX?INVISIBLE,FX?NDESCBIT,SUB,SNARK,0,T?THORPE-SUB
+	.OBJECT WORK-COUNTER,FX?SURFACEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,WEST-TANK-AREA,TANK-CONTROL-GEAR-2,CATALYST-CAPSULE,T?WORK-COUNTER
+	.OBJECT OXYGEN-GEAR,FX?ON?BIT+FX?VOWELBIT+FX?NARTICLEBIT,FX?NDESCBIT+FX?TAKEBIT,SUB,THORPE-SUB,0,T?OXYGEN-GEAR
+	.OBJECT OXYGEN-GEAR-BLY,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,OXYGEN-GEAR-DIVER,0,T?OXYGEN-GEAR-BLY
+	.OBJECT AIRLOCK-WALL,0,FX?ONBIT+FX?RLANDBIT,ROOMS,AIRLOCK,0,T?AIRLOCK-WALL
+	.OBJECT HOOK,FX?SURFACEBIT,FX?NDESCBIT,CENTER-OF-DOME,ACCESS-PLATE,0,T?HOOK
+	.OBJECT ELECTROLYTE-RELAY,FX?MUNGBIT+FX?VOWELBIT,FX?TAKEBIT,AIR-SUPPLY-SYSTEM,EMPTY-SPACE,0,T?ELECTROLYTE-RELAY
+	.OBJECT LIGHTS,0,0,LOCAL-GLOBALS,ENGINE-ACCESS-HATCH,0,T?LIGHTS
+	.OBJECT REASON,0,0,0,0,0,T?REASON
+	.OBJECT VIDEOPHONE-CABLE,0,FX?NDESCBIT,GLOBAL-OBJECTS,VIDEOPHONE-TRANSMITTER,0,T?VIDEOPHONE-CABLE
+	.OBJECT DOME-LAB-DOOR,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,WORKSHOP-DOOR,0,T?DOME-LAB-DOOR
+	.OBJECT INTDIR,0,0,GLOBAL-OBJECTS,GLOBAL-SABOTAGE,0,T?INTDIR
+	.OBJECT ROOMS,FX?NARTICLEBIT,0,0,0,SUB,T?ROOMS
+	.OBJECT LOCAL-SUB,FX?VOWELBIT,FX?NDESCBIT+FX?VEHBIT,LOCAL-GLOBALS,SOUTH-DOORWAY,0,T?LOCAL-SUB
+	.OBJECT GANGPLANK,0,FX?NDESCBIT,NORTH-TANK-AREA,0,0,T?GANGPLANK
+	.OBJECT LEFT,0,0,GLOBAL-OBJECTS,SOMETHING,0,T?LEFT
+	.OBJECT SONARSCOPE-LIGHT,0,FX?NDESCBIT,SUB,SONARSCOPE,0,T?SONARSCOPE-LIGHT
+	.OBJECT MEDIUM,0,FX?NDESCBIT,SUB,FAST,0,T?MEDIUM
+	.OBJECT OUTSIDE-WORKSHOP,0,FX?ONBIT+FX?RLANDBIT,ROOMS,MENS-QUARTERS,0,T?OUTSIDE-WORKSHOP
+	.OBJECT LIMBO,0,FX?ONBIT+FX?RLANDBIT,ROOMS,OFFICE,0,T?LIMBO
+	.OBJECT GLOBAL-GREENUP,0,FX?PERSON,GLOBAL-OBJECTS,GLOBAL-SIEGEL,0,T?GLOBAL-GREENUP
+	.OBJECT GLOBAL-TECHNICIAN,0,FX?NDESCBIT,CENTER-OF-LAB,WORKBENCH,0,T?GLOBAL-TECHNICIAN
+	.OBJECT DEPTHFINDER,FX?ON?BIT,FX?ONBIT+FX?NDESCBIT,SUB,CAPSULE-LEVER,0,T?DEPTHFINDER
+	.OBJECT PLAYER,FX?TRANSBIT+FX?NARTICLEBIT,FX?PERSON+FX?NDESCBIT,CENTER-OF-LAB,GLOBAL-TECHNICIAN,NOTEBOOK,T?PLAYER
+	.OBJECT GLOBAL-ANTRIM,0,FX?PERSON,GLOBAL-OBJECTS,GLOBAL-BLY,0,T?GLOBAL-ANTRIM
+	.OBJECT LOCAL-GLOBALS,0,0,GLOBAL-OBJECTS,GLOBAL-THORPE,SUB-DOOR,T?LOCAL-GLOBALS
+	.OBJECT CHAIR,0,FX?NDESCBIT,LOCAL-GLOBALS,OPEN-GATE-BUTTON,0,T?CHAIR
+	.OBJECT ORE-NODULES,0,0,GLOBAL-OBJECTS,MORE,0,T?ORE-NODULES
+	.OBJECT CONTROL-CIRCUITS,0,FX?NDESCBIT,SUB,AUTO-PILOT,0,T?CONTROL-CIRCUITS
+	.OBJECT HER,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,SEA,0,T?HER
+	.OBJECT WORKSHOP-STUFF,0,FX?NDESCBIT,WORKSHOP,0,0,T?WORKSHOP-STUFF
+	.OBJECT COMM-BLDG-DOOR,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,DOME-LAB-DOOR,0,T?COMM-BLDG-DOOR
+	.OBJECT GASH,FX?INVISIBLE,FX?NDESCBIT,ARM,0,0,T?GASH
+	.OBJECT OFFICE,FX?NARTICLEBIT+FX?VOWELBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,LAB-STORAGE,SHARON,T?OFFICE
+	.OBJECT GLOBAL-HORVAK,0,FX?PERSON,GLOBAL-OBJECTS,GLOBAL-ANTRIM,0,T?GLOBAL-HORVAK
+	.OBJECT COMPUTESTOR,FX?ON?BIT,FX?NDESCBIT,NORTH-WALL,VIDEOPHONE-RECEIVER,0,T?COMPUTESTOR
+	.OBJECT PILOT-SEAT,0,FX?NDESCBIT,SUB,BAY,0,T?PILOT-SEAT
+	.OBJECT CONTROLS,0,0,LOCAL-GLOBALS,LOCAL-SUB,0,T?CONTROLS
+	.OBJECT VIDEOPHONE-RECEIVER,0,FX?NDESCBIT,NORTH-WALL,0,0,T?VIDEOPHONE-RECEIVER
+	.OBJECT AIRLOCK-HATCH,FX?VOWELBIT,FX?DOORBIT,GLOBAL-OBJECTS,TANK-GATE,0,T?AIRLOCK-HATCH
+	.OBJECT CONTROL-CIRCUITS-GAUGE,0,FX?NDESCBIT,SUB,CONTROL-CIRCUITS,0,T?CONTROL-CIRCUITS-GAUGE
+	.OBJECT OPEN-GATE-BUTTON,0,FX?NDESCBIT,LOCAL-GLOBALS,FILL-TANK-BUTTON,0,T?OPEN-GATE-BUTTON
+	.OBJECT ELECTRONICS,0,FX?NDESCBIT,ELECTRONIC-SUPPLY-SHELVES,0,0,T?ELECTRONICS
+	.OBJECT MOTIVE,0,0,GLOBAL-OBJECTS,DANGER,0,T?MOTIVE
+	.OBJECT PHOTO,0,FX?TAKEBIT,DIARY,0,0,T?PHOTO
+	.OBJECT GLOBAL-OBJECTS,FX?VOWELBIT+FX?TRYTAKEBIT+FX?TRANSBIT+FX?TOUCHBIT+FX?SURFACEBIT+FX?SEARCHBIT+FX?ON?BIT+FX?NARTICLEBIT+FX?MUNGBIT+FX?INVISIBLE+FX?FEMALE+FX?BUSYBIT,FX?WINDOWBIT+FX?WEAPONBIT+FX?VEHBIT+FX?TOOLBIT+FX?TAKEBIT+FX?RMUNGBIT+FX?RLANDBIT+FX?READBIT+FX?PERSON+FX?OPENBIT+FX?ONBIT+FX?NDESCBIT+FX?LOCKED+FX?LIGHTBIT+FX?DOORBIT+FX?CONTBIT,0,0,CLAW,T?GLOBAL-OBJECTS
+	.OBJECT AUTO-PILOT,FX?VOWELBIT,FX?NDESCBIT,SUB,METER,0,T?AUTO-PILOT
+	.OBJECT PLAYER-NAME,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,SPECIAL-TOOL-GLOBAL,0,T?PLAYER-NAME
+	.OBJECT PRIVATE-MATTER,0,0,0,0,0,T?PRIVATE-MATTER
+	.OBJECT BADGE-GLOBAL,0,0,GLOBAL-OBJECTS,CREW-GLOBAL,0,T?BADGE-GLOBAL
+	.OBJECT IT,FX?NARTICLEBIT+FX?VOWELBIT,0,GLOBAL-OBJECTS,TURN,0,T?IT
+	.OBJECT SYRINGE,0,FX?WEAPONBIT+FX?TAKEBIT,ESCAPE-POD-UNIT,0,0,T?SYRINGE
+	.OBJECT CHEMICALS,0,FX?NDESCBIT,CHEMICAL-SUPPLY-SHELVES,0,0,T?CHEMICALS
+	.OBJECT MORE,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,EVIDENCE,0,T?MORE
+	.OBJECT THORPE,0,FX?PERSON,0,0,0,T?THORPE
+	.OBJECT WOMENS-QUARTERS-DOOR,0,FX?DOORBIT,LOCAL-GLOBALS,AIRLOCK-LADDER,0,T?WOMENS-QUARTERS-DOOR
+	.OBJECT HORVAK-LOCKER,FX?NARTICLEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?LOCKED+FX?CONTBIT,MENS-QUARTERS,MENS-LOCKER,DIARY,T?HORVAK-LOCKER
+	.OBJECT WORKBENCH,FX?SURFACEBIT+FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT+FX?NDESCBIT,CENTER-OF-LAB,0,SUB-PLANS,T?WORKBENCH
+	.OBJECT BLY-DESK,FX?NARTICLEBIT+FX?SEARCHBIT,FX?CONTBIT+FX?NDESCBIT,BLY-OFFICE,SPECIAL-TOOL,0,T?BLY-DESK
+	.OBJECT JOB,0,0,GLOBAL-OBJECTS,YOUR-LABORATORY,0,T?JOB
+	.OBJECT AUTOMATIC,FX?VOWELBIT,FX?NDESCBIT,SUB,DEPTHFINDER-LIGHT,0,T?AUTOMATIC
+	.OBJECT UNDERWATER,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,JOB,0,T?UNDERWATER
+	.OBJECT OFFICE-DOOR,FX?VOWELBIT,FX?NDESCBIT+FX?DOORBIT,OFFICE,0,0,T?OFFICE-DOOR
+	.OBJECT FOOT-OF-RAMP,0,FX?ONBIT+FX?RLANDBIT,ROOMS,AIRLOCK-WALL,CREW,T?FOOT-OF-RAMP
+	.OBJECT FAST,0,FX?NDESCBIT,SUB,THROTTLE,0,T?FAST
+	.OBJECT DOME-STORAGE,0,FX?ONBIT+FX?RLANDBIT,ROOMS,BLY-OFFICE,BAZOOKA,T?DOME-STORAGE
+	.OBJECT CREW-GLOBAL,FX?VOWELBIT,0,GLOBAL-OBJECTS,EXERCISE-TRACK,0,T?CREW-GLOBAL
+	.OBJECT DESK,FX?SURFACEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,EAST-WALL,0,0,T?DESK
+	.OBJECT SONARSCOPE,FX?ON?BIT,FX?READBIT+FX?ONBIT+FX?NDESCBIT,SUB,MANUAL,0,T?SONARSCOPE
+	.OBJECT WORKSHOP,0,FX?ONBIT+FX?RLANDBIT,ROOMS,OUTSIDE-WORKSHOP,WORKSHOP-STUFF,T?WORKSHOP
+	.OBJECT SOUTH-WALL,0,FX?ONBIT+FX?RLANDBIT,ROOMS,LIMBO,CHEMICAL-SUPPLY-SHELVES,T?SOUTH-WALL
+	.OBJECT GLOBAL-SUB-2,0,0,GLOBAL-OBJECTS,GLOBAL-SUB,0,T?GLOBAL-SUB-2
+	.OBJECT DOC-LABORATORY,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,LAB-ASSISTANT,0,T?DOC-LABORATORY
+	.OBJECT DANGER,0,0,GLOBAL-OBJECTS,IU-GLOBAL,0,T?DANGER
+	.OBJECT ENGINE-BUTTON,FX?VOWELBIT,FX?NDESCBIT,LOCAL-GLOBALS,REACTOR-SWITCH,0,T?ENGINE-BUTTON
+	.OBJECT GLOBAL-SIEGEL,0,FX?PERSON,GLOBAL-OBJECTS,GLOBAL-HORVAK,0,T?GLOBAL-SIEGEL
+	.OBJECT SPECIAL-TOOL-GLOBAL,0,0,GLOBAL-OBJECTS,HORVAK-KEY,0,T?SPECIAL-TOOL-GLOBAL
+	.OBJECT ELECTRONIC-SUPPLY-SHELVES,FX?VOWELBIT+FX?SURFACEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,SOUTH-WALL,0,ELECTRONICS,T?ELECTRONIC-SUPPLY-SHELVES
+	.OBJECT DEPTHFINDER-LIGHT,0,FX?NDESCBIT,SUB,DEPTHFINDER,0,T?DEPTHFINDER-LIGHT
+	.OBJECT SLOW,0,FX?NDESCBIT,SUB,MEDIUM,0,T?SLOW
+	.OBJECT DAMAGE,0,0,GLOBAL-OBJECTS,VIDEOPHONE-SATELLITE,0,T?DAMAGE
+	.OBJECT SUB,0,FX?ONBIT+FX?RLANDBIT,ROOMS,SOUTH-TANK-AREA,SUB-WINDOW,T?SUB
+	.OBJECT IU-GLOBAL,FX?NARTICLEBIT+FX?VOWELBIT,0,GLOBAL-OBJECTS,FLOOR,0,T?IU-GLOBAL
+	.OBJECT SONAR-MAN,0,0,GLOBAL-OBJECTS,ORE-NODULES,0,T?SONAR-MAN
+	.OBJECT AIR-SUPPLY-SYSTEM,FX?MUNGBIT+FX?VOWELBIT,FX?READBIT+FX?CONTBIT+FX?NDESCBIT,CENTER-OF-DOME,ARROW,ELECTROLYTE-RELAY,T?AIR-SUPPLY-SYSTEM
+	.OBJECT VIDEOPHONE-SATELLITE,0,FX?NDESCBIT,GLOBAL-OBJECTS,VIDEOPHONE-CABLE,0,T?VIDEOPHONE-SATELLITE
+	.OBJECT CONTROLS-SUB,0,FX?NDESCBIT,SUB,INSTRUMENTS,0,T?CONTROLS-SUB
+	.OBJECT FILE-DRAWER,FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,OFFICE,OFFICE-DOOR,PAPERS,T?FILE-DRAWER
+	.OBJECT GREENUP-LADDER,FX?VOWELBIT,FX?NDESCBIT,AIRLOCK,0,0,T?GREENUP-LADDER
+	.OBJECT SEA,FX?VOWELBIT,0,GLOBAL-OBJECTS,GLOBAL-WATER,0,T?SEA
+	.OBJECT EVIDENCE,FX?VOWELBIT,0,GLOBAL-OBJECTS,AIRLOCK-ROOF,0,T?EVIDENCE
+	.OBJECT HORVAK,FX?TOUCHBIT,FX?PERSON,FOOT-OF-RAMP,ANTRIM,0,T?HORVAK
+	.OBJECT WOMENS-FURNITURE,FX?SURFACEBIT,FX?NDESCBIT,WOMENS-QUARTERS,0,0,T?WOMENS-FURNITURE
+	.OBJECT TIP,FX?TOUCHBIT,FX?PERSON,0,0,MAGAZINE,T?TIP
+	.OBJECT CRAWL-SPACE,0,FX?ONBIT+FX?RLANDBIT,ROOMS,0,VOLTAGE-REGULATOR,T?CRAWL-SPACE
+	.OBJECT GLOBAL-SURFACE,0,0,GLOBAL-OBJECTS,GLOBAL-SONAR,0,T?GLOBAL-SURFACE
+	.OBJECT YOUR-LABORATORY,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,DOC-LABORATORY,0,T?YOUR-LABORATORY
+	.OBJECT MICROWAVE-SECURITY-SCANNER,0,FX?NDESCBIT,EAST-WALL,DESK,0,T?MICROWAVE-SECURITY-SCANNER
+	.OBJECT ELECTRICAL-CONTROL-PANEL,FX?VOWELBIT,FX?NDESCBIT+FX?ONBIT,HALLWAY,CIRCUIT-BREAKER,0,T?ELECTRICAL-CONTROL-PANEL
+	.OBJECT BAZOOKA,0,FX?TAKEBIT+FX?WEAPONBIT+FX?NDESCBIT,DOME-STORAGE,FINE-GRID,0,T?BAZOOKA
+	.OBJECT GLOBAL-SABOTAGE,0,0,GLOBAL-OBJECTS,DAMAGE,0,T?GLOBAL-SABOTAGE
+	.OBJECT TRAITOR,0,0,0,0,0,T?TRAITOR
+	.OBJECT SOMETHING,0,0,GLOBAL-OBJECTS,GAME,0,T?SOMETHING
+	.OBJECT SEARCH-BEAM,FX?ON?BIT,FX?NDESCBIT,SUB,CONTROL-CIRCUITS-GAUGE,0,T?SEARCH-BEAM
+	.OBJECT OXYGEN-GEAR-DIVER,0,0,GLOBAL-OBJECTS,OXYGEN-GEAR-OTHER,0,T?OXYGEN-GEAR-DIVER
+	.OBJECT DOME-LAB,FX?VOWELBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,WORKSHOP,DART,T?DOME-LAB
+	.OBJECT WEST-TANK-AREA,0,FX?ONBIT+FX?RLANDBIT,ROOMS,NORTH-TANK-AREA,WORK-COUNTER,T?WEST-TANK-AREA
+	.OBJECT STATION-MONITOR,0,FX?ONBIT+FX?NDESCBIT,BLY-OFFICE,0,0,T?STATION-MONITOR
+	.OBJECT FINE-GRID,0,FX?TAKEBIT+FX?NDESCBIT,DOME-STORAGE,ESCAPE-POD-UNIT,0,T?FINE-GRID
+	.OBJECT TANK-CONTROL-GEAR-2,0,FX?NDESCBIT,WEST-TANK-AREA,TANK-CONTROL-GEAR-1,0,T?TANK-CONTROL-GEAR-2
+	.OBJECT AIRLOCK-LADDER,0,0,LOCAL-GLOBALS,AIRLOCK-RAMP,0,T?AIRLOCK-LADDER
+	.OBJECT DOME-STORAGE-DOOR,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,BLY-DOOR,0,T?DOME-STORAGE-DOOR
+	.OBJECT GLOBAL-SUB,0,0,GLOBAL-OBJECTS,GLOBAL-EXPLOSIVE,0,T?GLOBAL-SUB
+	.OBJECT DISTRESS-CALL,0,0,GLOBAL-OBJECTS,POWER-SUPPLY,0,T?DISTRESS-CALL
+	.OBJECT BLACK-CIRCUITRY,0,0,BLACK-BOX,0,0,T?BLACK-CIRCUITRY
+	.OBJECT RIGHT,0,0,GLOBAL-OBJECTS,LEFT,0,T?RIGHT
+	.OBJECT HIM,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,HER,0,T?HIM
+	.OBJECT HINT,0,0,GLOBAL-OBJECTS,YOU,0,T?HINT
+	.OBJECT MICROPHONE-DOME,FX?ON?BIT,FX?NDESCBIT+FX?TAKEBIT,SONAR-EQUIPMENT,0,0,T?MICROPHONE-DOME
+	.OBJECT REACTOR,FX?SEARCHBIT,FX?OPENBIT+FX?CONTBIT,SUB,HYDROPHONE,0,T?REACTOR
+	.OBJECT MENS-QUARTERS-DOOR,0,FX?DOORBIT,LOCAL-GLOBALS,WOMENS-QUARTERS-DOOR,0,T?MENS-QUARTERS-DOOR
+	.OBJECT BADGE-GLOBAL-3,0,0,GLOBAL-OBJECTS,BADGE-GLOBAL-2,0,T?BADGE-GLOBAL-3
+	.OBJECT MANUAL,0,FX?NDESCBIT,SUB,AUTOMATIC,0,T?MANUAL
+	.OBJECT OUTSIDE-DORM,0,FX?ONBIT+FX?RLANDBIT,ROOMS,FOOT-OF-RAMP,0,T?OUTSIDE-DORM
+	.OBJECT ARROW,FX?VOWELBIT,FX?NDESCBIT,CENTER-OF-DOME,HOOK,0,T?ARROW
+	.OBJECT NORTH-WALL,0,FX?ONBIT+FX?RLANDBIT,ROOMS,CENTER-OF-DOME,COMPUTESTOR,T?NORTH-WALL
+	.OBJECT TANK-CONTROL-GEAR-1,0,FX?NDESCBIT,WEST-TANK-AREA,0,0,T?TANK-CONTROL-GEAR-1
+	.OBJECT BLACK-BOX,FX?SEARCHBIT,FX?CONTBIT+FX?TAKEBIT,0,0,BLACK-CIRCUITRY,T?BLACK-BOX
+	.OBJECT MECHANICALS,0,FX?NDESCBIT,MECHANICAL-SUPPLY-SHELVES,0,0,T?MECHANICALS
+	.OBJECT GLOBAL-SNARK,0,0,GLOBAL-OBJECTS,PROBLEM,0,T?GLOBAL-SNARK
+	.OBJECT AIRLOCK,0,FX?ONBIT+FX?RLANDBIT,ROOMS,CRAWL-SPACE,GREENUP-LADDER,T?AIRLOCK
+	.OBJECT EMPTY-SPACE,FX?VOWELBIT,0,AIR-SUPPLY-SYSTEM,0,0,T?EMPTY-SPACE
+	.OBJECT TEST-TANK,0,0,GLOBAL-OBJECTS,DOCKING-TANK,0,T?TEST-TANK
+	.OBJECT WORKSHOP-DOOR,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,MENS-QUARTERS-DOOR,0,T?WORKSHOP-DOOR
+	.OBJECT GALLEY,0,FX?ONBIT+FX?RLANDBIT,ROOMS,COMM-BLDG,0,T?GALLEY
+	.OBJECT EAST-WALL,FX?VOWELBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,NORTH-WALL,MICROWAVE-SECURITY-SCANNER,T?EAST-WALL
+	.OBJECT TANK-GATE,0,FX?DOORBIT,GLOBAL-OBJECTS,TEST-TANK,0,T?TANK-GATE
+	.OBJECT SONARPHONE,0,FX?NDESCBIT,SUB,ALARM-SUB,0,T?SONARPHONE
+	.OBJECT NORTH-TANK-AREA,0,FX?ONBIT+FX?RLANDBIT,ROOMS,CENTER-OF-LAB,GANGPLANK,T?NORTH-TANK-AREA
+	.OBJECT SUB-WINDOW,0,FX?LOCKED+FX?WINDOWBIT+FX?NDESCBIT,SUB,OXYGEN-GEAR,0,T?SUB-WINDOW
+	.OBJECT BLY-OFFICE,FX?VOWELBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,OUTSIDE-ADMIN-BLDG,BLY-DESK,T?BLY-OFFICE
+	.OBJECT BLY,FX?TOUCHBIT+FX?FEMALE,FX?PERSON,FOOT-OF-RAMP,0,0,T?BLY
+	.OBJECT ACCESS-PLATE,FX?VOWELBIT,FX?NDESCBIT,CENTER-OF-DOME,0,0,T?ACCESS-PLATE
+	.OBJECT SHARON,FX?FEMALE+FX?TOUCHBIT,FX?NDESCBIT+FX?PERSON,OFFICE,KEMP-DESK,BADGE-SHARON,T?SHARON
+	.OBJECT ESCAPE-POD-UNIT,FX?VOWELBIT+FX?SEARCHBIT,FX?TAKEBIT+FX?NDESCBIT+FX?CONTBIT,DOME-STORAGE,0,SYRINGE,T?ESCAPE-POD-UNIT
+	.OBJECT GLOBAL-TIP,0,FX?PERSON,GLOBAL-OBJECTS,PLAYER-NAME,0,T?GLOBAL-TIP
+	.OBJECT WEST-WALL,0,FX?ONBIT+FX?RLANDBIT,ROOMS,SOUTH-WALL,MECHANICAL-SUPPLY-SHELVES,T?WEST-WALL
+	.OBJECT INTERCOM,FX?VOWELBIT,0,LOCAL-GLOBALS,CONTROLS,0,T?INTERCOM
+	.OBJECT BADGE-GLOBAL-2,0,0,GLOBAL-OBJECTS,BADGE-GLOBAL,0,T?BADGE-GLOBAL-2
+	.OBJECT HALLWAY,0,FX?ONBIT+FX?RLANDBIT,ROOMS,EAST-WALL,ELECTRICAL-CONTROL-PANEL,T?HALLWAY
+	.OBJECT GLOBAL-WEAPON,0,0,GLOBAL-OBJECTS,GLOBAL-SNARK,0,T?GLOBAL-WEAPON
+	.OBJECT GLOBAL-SONAR,0,0,GLOBAL-OBJECTS,DISTRESS-CALL,0,T?GLOBAL-SONAR
+	.OBJECT AIRLOCK-ELECTRICITY,FX?ON?BIT,FX?ONBIT+FX?NDESCBIT,BLY-OFFICE,STATION-MONITOR,0,T?AIRLOCK-ELECTRICITY
+	.OBJECT ANTRIM,FX?TOUCHBIT,FX?PERSON,FOOT-OF-RAMP,BLY,0,T?ANTRIM
+	.OBJECT VIDEOPHONE-TRANSMITTER,0,FX?NDESCBIT,GLOBAL-OBJECTS,GLOBAL-SURFACE,0,T?VIDEOPHONE-TRANSMITTER
+	.OBJECT GLOBAL-SHARON,FX?FEMALE,FX?NDESCBIT+FX?PERSON,GLOBAL-OBJECTS,GLOBAL-TIP,0,T?GLOBAL-SHARON
+	.OBJECT SOUTH-DOORWAY,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,STORAGE-DOOR,0,T?SOUTH-DOORWAY
+	.OBJECT YOU,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,HIM,0,T?YOU
+	.OBJECT NOTEBOOK,0,FX?READBIT+FX?TAKEBIT,PLAYER,ARM,0,T?NOTEBOOK
+	.OBJECT VIDEOPHONE-2,0,0,LOCAL-GLOBALS,VIDEOPHONE,0,T?VIDEOPHONE-2
+	.OBJECT DOCKING-TANK,0,0,GLOBAL-OBJECTS,AIR,0,T?DOCKING-TANK
+	.OBJECT GLOBAL-LOWELL,FX?VOWELBIT+FX?FEMALE,FX?PERSON,GLOBAL-OBJECTS,GLOBAL-GREENUP,0,T?GLOBAL-LOWELL
+	.OBJECT LOWELL,FX?TOUCHBIT+FX?VOWELBIT+FX?FEMALE,FX?PERSON,FOOT-OF-RAMP,GREENUP,0,T?LOWELL
+	.OBJECT DIRNS,0,0,GLOBAL-OBJECTS,HINT,0,T?DIRNS
+	.OBJECT OVERHEATING,0,0,0,0,0,T?OVERHEATING
+	.OBJECT NOT-HERE-OBJECT,FX?NARTICLEBIT,0,0,0,0,T?NOT-HERE-OBJECT
+	.OBJECT TIP-IDEA,FX?NARTICLEBIT,0,0,0,0,T?TIP-IDEA
+	.OBJECT SOUTH-TANK-AREA,0,FX?ONBIT+FX?RLANDBIT,ROOMS,WEST-TANK-AREA,0,T?SOUTH-TANK-AREA
+	.OBJECT FILL-TANK-BUTTON,0,FX?NDESCBIT,LOCAL-GLOBALS,VIDEOPHONE-2,0,T?FILL-TANK-BUTTON
+	.OBJECT FLOOR,0,0,GLOBAL-OBJECTS,IT,0,T?FLOOR
+	.OBJECT JOYSTICK,0,FX?NDESCBIT,SUB,ENGINE,0,T?JOYSTICK
+	.OBJECT GRID-UNIT,FX?UNITBIT,FX?NDESCBIT,SUB,DEPTH-CONTROL,0,T?GRID-UNIT
+	.OBJECT UNIVERSAL-TOOL,0,FX?TOOLBIT+FX?TAKEBIT,TIP,BADGE-TIP,0,T?UNIVERSAL-TOOL
+	.OBJECT ALARM,FX?VOWELBIT,FX?NDESCBIT,LOCAL-GLOBALS,TEST-BUTTON,0,T?ALARM
+	.OBJECT FREIGHTER,FX?INVISIBLE,FX?NDESCBIT,SUB,SEA-WALL,0,T?FREIGHTER
+	.OBJECT MAGAZINE,FX?SEARCHBIT,FX?CONTBIT+FX?TAKEBIT+FX?READBIT,TIP,UNIVERSAL-TOOL,ARTICLE,T?MAGAZINE
+	.OBJECT ENGINE-ACCESS-HATCH,FX?VOWELBIT,FX?DOORBIT,LOCAL-GLOBALS,0,0,T?ENGINE-ACCESS-HATCH
+	.OBJECT CAPSULE-LEVER,0,FX?NDESCBIT,SUB,FREIGHTER,0,T?CAPSULE-LEVER
+	.OBJECT VOLTAGE-REGULATOR,FX?MUNGBIT,FX?NDESCBIT,CRAWL-SPACE,0,0,T?VOLTAGE-REGULATOR
+	.OBJECT DEPTH,0,FX?NDESCBIT,SUB,OFF,0,T?DEPTH
+	.OBJECT DIARY,FX?SEARCHBIT,FX?READBIT+FX?CONTBIT,HORVAK-LOCKER,0,PHOTO,T?DIARY
+	.OBJECT CHEMICAL-SUPPLY-SHELVES,FX?SURFACEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,SOUTH-WALL,ELECTRONIC-SUPPLY-SHELVES,CHEMICALS,T?CHEMICAL-SUPPLY-SHELVES
+	.OBJECT CLAW,FX?VOWELBIT,0,GLOBAL-OBJECTS,RIGHT,0,T?CLAW
+	.OBJECT AIR-SUPPLY-SYSTEM-GLOBAL,FX?VOWELBIT,0,LOCAL-GLOBALS,DOME-STORAGE-DOOR,0,T?AIR-SUPPLY-SYSTEM-GLOBAL
+	.OBJECT MENS-FURNITURE,FX?SURFACEBIT,FX?NDESCBIT,MENS-QUARTERS,HORVAK-LOCKER,0,T?MENS-FURNITURE
+	.OBJECT OUTSIDE-ADMIN-BLDG,0,FX?ONBIT+FX?RLANDBIT,ROOMS,GALLEY,0,T?OUTSIDE-ADMIN-BLDG
+	.OBJECT GREENUP,FX?TOUCHBIT,FX?PERSON,FOOT-OF-RAMP,SIEGEL,0,T?GREENUP
+	.OBJECT AIRLOCK-RAMP,0,0,LOCAL-GLOBALS,WINDOW,0,T?AIRLOCK-RAMP
+	.OBJECT BADGE-TIP,FX?NARTICLEBIT,FX?NDESCBIT,TIP,0,0,T?BADGE-TIP
+	.OBJECT DART,FX?TRYTAKEBIT+FX?MUNGBIT,FX?NDESCBIT+FX?WEAPONBIT,DOME-LAB,0,0,T?DART
+	.OBJECT CATALYST-CAPSULE,0,FX?TAKEBIT,WORK-COUNTER,0,0,T?CATALYST-CAPSULE
+	.OBJECT GLOBAL-HERE,FX?NARTICLEBIT,0,GLOBAL-OBJECTS,DIRNS,0,T?GLOBAL-HERE
+	.OBJECT HORVAK-KEY,FX?NARTICLEBIT,FX?NDESCBIT+FX?TOOLBIT,GLOBAL-OBJECTS,BADGE-GLOBAL-3,0,T?HORVAK-KEY
+	.OBJECT SIEGEL,FX?TOUCHBIT,FX?PERSON,FOOT-OF-RAMP,HORVAK,0,T?SIEGEL
+	.OBJECT SNARK,FX?INVISIBLE,FX?NDESCBIT,SUB,CONTROLS-SUB,0,T?SNARK
+	.OBJECT CREW,FX?VOWELBIT,FX?NDESCBIT,FOOT-OF-RAMP,LOWELL,0,T?CREW
+	.OBJECT MECHANICAL-SUPPLY-SHELVES,FX?SURFACEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,WEST-WALL,0,MECHANICALS,T?MECHANICAL-SUPPLY-SHELVES
+	.OBJECT TURN,FX?UNITBIT,0,GLOBAL-OBJECTS,LOCAL-GLOBALS,0,T?TURN
+	.OBJECT BLY-PLAN,FX?NARTICLEBIT,0,0,0,0,T?BLY-PLAN
+	.OBJECT WHALE,FX?INVISIBLE,FX?NDESCBIT,0,0,0,T?WHALE
+	.OBJECT MENS-LOCKER,FX?VOWELBIT,FX?NDESCBIT,MENS-QUARTERS,0,0,T?MENS-LOCKER
+	.OBJECT GALLEY-DOOR,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,COMM-BLDG-DOOR,0,T?GALLEY-DOOR
+	.OBJECT MICROPHONE,FX?ON?BIT,FX?TAKEBIT,WORKBENCH,0,0,T?MICROPHONE
+	.OBJECT METER,FX?UNITBIT,FX?NDESCBIT,SUB,GRID-UNIT,0,T?METER
+	.OBJECT COMM-BLDG,0,FX?ONBIT+FX?RLANDBIT,ROOMS,OUTSIDE-COMM-BLDG,SONAR-EQUIPMENT,T?COMM-BLDG
+	.OBJECT SPECIAL-TOOL,FX?INVISIBLE,FX?TOOLBIT+FX?TAKEBIT,BLY-OFFICE,CONTROLS-OFFICE,0,T?SPECIAL-TOOL
+	.OBJECT AQUADOME,FX?VOWELBIT,0,GLOBAL-OBJECTS,OXYGEN-GEAR-BLY,0,T?AQUADOME
+	.OBJECT HYDROPHONE,FX?ON?BIT,FX?ONBIT+FX?NDESCBIT,SUB,SONARPHONE,0,T?HYDROPHONE
+	.OBJECT EXERCISE-TRACK,FX?VOWELBIT,0,GLOBAL-OBJECTS,AQUADOME,0,T?EXERCISE-TRACK
+	.OBJECT SEA-WALL,0,FX?NDESCBIT,SUB,0,0,T?SEA-WALL
+	.OBJECT REACTOR-SWITCH,0,FX?NDESCBIT,LOCAL-GLOBALS,LIGHTS,0,T?REACTOR-SWITCH
+	.OBJECT POWER-SUPPLY,0,0,GLOBAL-OBJECTS,GLOBAL-SUB-2,0,T?POWER-SUPPLY
+	.OBJECT GLOBAL-EXPLOSIVE,FX?VOWELBIT,0,GLOBAL-OBJECTS,GLOBAL-WEAPON,0,T?GLOBAL-EXPLOSIVE
+	.OBJECT LAB-ASSISTANT,0,0,GLOBAL-OBJECTS,SONAR-MAN,0,T?LAB-ASSISTANT
+	.OBJECT CIRCUIT-BREAKER,FX?TOUCHBIT,FX?NDESCBIT+FX?CONTBIT,HALLWAY,0,0,T?CIRCUIT-BREAKER
+	.OBJECT OBJECT-PAIR,0,0,0,0,0,T?OBJECT-PAIR
+	.OBJECT SUB-DOOR,0,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,CHAIR,0,T?SUB-DOOR
+	.OBJECT TEST-BUTTON,0,0,LOCAL-GLOBALS,INTERCOM,0,T?TEST-BUTTON
+	.OBJECT EAST-DOORWAY,FX?VOWELBIT,FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,AIR-SUPPLY-SYSTEM-GLOBAL,0,T?EAST-DOORWAY
+	.OBJECT AIRLOCK-ROOF,FX?VOWELBIT,FX?DOORBIT,GLOBAL-OBJECTS,AIRLOCK-HATCH,0,T?AIRLOCK-ROOF
+	.OBJECT BAY,FX?NARTICLEBIT,FX?NDESCBIT,SUB,SEARCH-BEAM,0,T?BAY
+	.OBJECT ARM,FX?SEARCHBIT+FX?NARTICLEBIT,FX?NDESCBIT,PLAYER,BADGE-PLAYER,GASH,T?ARM
+	.OBJECT KEMP-DESK,FX?NARTICLEBIT+FX?SURFACEBIT+FX?SEARCHBIT,FX?NDESCBIT+FX?OPENBIT+FX?CONTBIT,OFFICE,FILE-DRAWER,0,T?KEMP-DESK
+	.OBJECT ALARM-SUB,0,FX?NDESCBIT,SUB,SONARSCOPE-LIGHT,0,T?ALARM-SUB
+	.OBJECT GLOBAL-THORPE,0,FX?NDESCBIT+FX?PERSON,GLOBAL-OBJECTS,GLOBAL-LOWELL,0,T?GLOBAL-THORPE
+	.OBJECT PAPERS,FX?TRYTAKEBIT,FX?NDESCBIT+FX?READBIT,FILE-DRAWER,0,0,T?PAPERS
+	.OBJECT SUB-PLANS,0,FX?NDESCBIT,WORKBENCH,MICROPHONE,0,T?SUB-PLANS
+	.OBJECT OUTSIDE-COMM-BLDG,0,FX?ONBIT+FX?RLANDBIT,ROOMS,DOME-LAB,0,T?OUTSIDE-COMM-BLDG
+	.OBJECT PSEUDO-OBJECT,0,0,0,0,0,T?PSEUDO-OBJECT
+	.OBJECT THROTTLE,0,FX?NDESCBIT,SUB,JOYSTICK,0,T?THROTTLE
+	.OBJECT GLOBAL-BLY,FX?FEMALE,FX?NDESCBIT+FX?PERSON,GLOBAL-OBJECTS,GLOBAL-SHARON,0,T?GLOBAL-BLY
+	.ENDT
+
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+T?INSTRUMENTS::	.TABLE			; TABLE FOR OBJECT INSTRUMENTS
+	.STRL "instrument cluster"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	INSTRUMENTS-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?INSTRUMENT
+	.PROP 6,P?SYNONYM
+	W?INSTRUMENT
+	W?CLUSTER
+	W?GAUGES
+	.BYTE	0
+	.ENDT
+
+T?OXYGEN-GEAR-OTHER::	.TABLE			; TABLE FOR OBJECT OXYGEN-GEAR-OTHER
+	.STRL "other Gear"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OXYGEN-GEAR-GLOBAL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 8,P?ADJECTIVE
+        .BYTE A?OTHER
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+        .BYTE A?MARV'S
+        .BYTE A?SIEGEL
+        .BYTE A?MICK'S
+        .BYTE A?ANTRIM
+	.PROP 4,P?SYNONYM
+	W?GEAR
+	W?GEARS
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-OXYGEN-GEAR-F
+	.BYTE	0
+	.ENDT
+
+T?STORAGE-DOOR::	.TABLE			; TABLE FOR OBJECT STORAGE-DOOR
+	.STRL "storage door"
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?STORAGE
+        .BYTE A?SUPPLY
+        .BYTE A?ROOM
+        .BYTE A?CLOSET
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?DOORWAY
+	.BYTE	0
+	.ENDT
+
+T?VIDEOPHONE::	.TABLE			; TABLE FOR OBJECT VIDEOPHONE
+	.STRL "videophone"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VIDEOPHONE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?VIDEOPHONE
+        .BYTE A?VIDEO
+	.PROP 8,P?SYNONYM
+	W?VIDEOPHONE
+	W?SPEAKER
+	W?PHONE
+	W?SCREEN
+	.BYTE	0
+	.ENDT
+
+T?LAB-STORAGE::	.TABLE			; TABLE FOR OBJECT LAB-STORAGE
+	.STRL "storage closet"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE HALLWAY				; ROOM NAME
+	.BYTE STORAGE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE HALLWAY				; ROOM NAME
+	.BYTE STORAGE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?GLOBAL
+        .BYTE STORAGE-DOOR
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?STORAGE
+        .BYTE A?SUPPLY
+	.PROP 6,P?SYNONYM
+	W?CLOSET
+	W?ROOM
+	W?AREA
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?111
+	.PROP 4,P?PSEUDO
+	W?JUNK
+	RANDOM-PSEUDO
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-STORAGE-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?AIR::	.TABLE			; TABLE FOR OBJECT AIR
+	.STRL "air"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIR-F
+	.PROP 8,P?SYNONYM
+	W?AIR
+	W?WIND
+	W?BREEZE
+	W?OXYGEN
+	.BYTE	0
+	.ENDT
+
+T?GAME::	.TABLE			; TABLE FOR OBJECT GAME
+	.STRL "SEASTALKER"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GAME-F
+	.PROP 4,P?SYNONYM
+	W?SEASTALKER
+	W?GAME
+	.BYTE	0
+	.ENDT
+
+T?ARTICLE::	.TABLE			; TABLE FOR OBJECT ARTICLE
+	.STRL "article"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ARTICLE-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?COVER
+	.PROP 8,P?SYNONYM
+	W?ARTICLE
+	W?STORY
+	W?REPORT
+	W?PAGE
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-WATER::	.TABLE			; TABLE FOR OBJECT GLOBAL-WATER
+	.STRL "sea water"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WATER-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SEA
+	.PROP 4,P?SYNONYM
+	W?WATER
+	W?SEAWATER
+	.BYTE	0
+	.ENDT
+
+T?BADGE-SHARON::	.TABLE			; TABLE FOR OBJECT BADGE-SHARON
+	.STRL "Sharon's badge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BADGE-PLAYER-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?THIS
+        .BYTE A?SPECIAL
+        .BYTE A?IDENTIFY
+        .BYTE A?SHARON
+        .BYTE A?KEMP'S
+	.PROP 2,P?SYNONYM
+	W?BADGE
+	.BYTE	0
+	.ENDT
+
+T?WOMENS-QUARTERS::	.TABLE			; TABLE FOR OBJECT WOMENS-QUARTERS
+	.STRL "female dorm"
+	.PROP 5,P?EAST			; DOOR EXIT
+	.BYTE OUTSIDE-DORM				; ROOM NAME
+	.BYTE WOMENS-QUARTERS-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-DORM				; ROOM NAME
+	.BYTE WOMENS-QUARTERS-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WOMENS-QUARTERS-F
+	.PROP 3,P?GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE WOMENS-QUARTERS-DOOR
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?FEMALE
+	.PROP 8,P?SYNONYM
+	W?DORM
+	W?DORMITORY
+	W?AREA
+	W?ROOM
+	.BYTE	0
+	.ENDT
+
+T?CENTER-OF-DOME::	.TABLE			; TABLE FOR OBJECT CENTER-OF-DOME
+	.STRL "dome center"
+	.PROP 1,P?NE
+	.BYTE OUTSIDE-COMM-BLDG
+	.PROP 1,P?SE
+	.BYTE OUTSIDE-ADMIN-BLDG
+	.PROP 1,P?SOUTH
+	.BYTE FOOT-OF-RAMP
+	.PROP 1,P?SW
+	.BYTE OUTSIDE-DORM
+	.PROP 1,P?NW
+	.BYTE OUTSIDE-WORKSHOP
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CENTER-OF-DOME-F
+	.PROP 1,P?GLOBAL
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?DOME
+	.PROP 4,P?SYNONYM
+	W?CENTER
+	W?CENTRE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-CENTER-F
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	896
+	.BYTE	0
+	.ENDT
+
+T?WINDOW::	.TABLE			; TABLE FOR OBJECT WINDOW
+	.STRL "window"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WINDOW-F
+	.PROP 2,P?SYNONYM
+	W?WINDOW
+	.BYTE	0
+	.ENDT
+
+T?CONTROLS-OFFICE::	.TABLE			; TABLE FOR OBJECT CONTROLS-OFFICE
+	.STRL "docking tank control panel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROLS-OFFICE-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?CONTROL
+	.PROP 8,P?SYNONYM
+	W?CONTROL
+	W?PANEL
+	W?KNOB
+	W?KNOBS
+	.BYTE	0
+	.ENDT
+
+T?PROBLEM::	.TABLE			; TABLE FOR OBJECT PROBLEM
+	.STRL "problem"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?URGENT
+	.PROP 2,P?SYNONYM
+	W?PROBLEM
+	.BYTE	0
+	.ENDT
+
+T?BLY-DOOR::	.TABLE			; TABLE FOR OBJECT BLY-DOOR
+	.STRL "office door"
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?AQUADOME
+        .BYTE A?DOME
+        .BYTE A?OFFICE
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?MENS-QUARTERS::	.TABLE			; TABLE FOR OBJECT MENS-QUARTERS
+	.STRL "male dorm"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE OUTSIDE-DORM				; ROOM NAME
+	.BYTE MENS-QUARTERS-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-DORM				; ROOM NAME
+	.BYTE MENS-QUARTERS-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MENS-QUARTERS-F
+	.PROP 3,P?GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE MENS-QUARTERS-DOOR
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?MALE
+	.PROP 8,P?SYNONYM
+	W?DORM
+	W?DORMITORY
+	W?AREA
+	W?ROOM
+	.BYTE	0
+	.ENDT
+
+T?ENGINE::	.TABLE			; TABLE FOR OBJECT ENGINE
+	.STRL "hydrojet"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ENGINE-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?PROPULSION
+        .BYTE A?HYDROJET
+	.PROP 8,P?SYNONYM
+	W?HYDROJET
+	W?ENGINE
+	W?SYSTEM
+	W?TURBINE
+	.BYTE	0
+	.ENDT
+
+T?DEPTH-CONTROL::	.TABLE			; TABLE FOR OBJECT DEPTH-CONTROL
+	.STRL "depth control"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DEPTH-CONTROL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?DEPTH
+	.PROP 6,P?SYNONYM
+	W?CONTROL
+	W?LEVER
+	W?HANDLE
+	.BYTE	0
+	.ENDT
+
+T?BADGE-PLAYER::	.TABLE			; TABLE FOR OBJECT BADGE-PLAYER
+	.STRL "your badge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BADGE-PLAYER-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?THIS
+        .BYTE A?SPECIAL
+        .BYTE A?IDENTIFY
+        .BYTE A?MY
+	.PROP 2,P?SYNONYM
+	W?BADGE
+	.BYTE	0
+	.ENDT
+
+T?OFF::	.TABLE			; TABLE FOR OBJECT OFF
+	.STRL "off"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?STANDING
+	.PROP 6,P?SYNONYM
+	W?OFF
+	W?STILL
+	W?STOP
+	.BYTE	0
+	.ENDT
+
+T?SONAR-EQUIPMENT::	.TABLE			; TABLE FOR OBJECT SONAR-EQUIPMENT
+	.STRL "Aquadome sonar equipment"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SONAR-EQUIPMENT-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?AQUADOME
+        .BYTE A?SONAR
+	.PROP 8,P?SYNONYM
+	W?SONAR
+	W?SYSTEM
+	W?EQUIPM
+	W?SCREEN
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	19
+	.BYTE	0
+	.ENDT
+
+T?CENTER-OF-LAB::	.TABLE			; TABLE FOR OBJECT CENTER-OF-LAB
+	.STRL "lab center"
+	.PROP 1,P?NORTH
+	.BYTE NORTH-WALL
+	.PROP 1,P?EAST
+	.BYTE EAST-WALL
+	.PROP 1,P?SOUTH
+	.BYTE SOUTH-WALL
+	.PROP 1,P?WEST
+	.BYTE WEST-WALL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CENTER-OF-LAB-F
+	.PROP 5,P?GLOBAL
+        .BYTE TEST-BUTTON
+        .BYTE CONTROLS
+        .BYTE VIDEOPHONE
+        .BYTE VIDEOPHONE-2
+        .BYTE ALARM
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?LAB
+        .BYTE A?LABORATORY
+	.PROP 4,P?SYNONYM
+	W?CENTER
+	W?CENTRE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-CENTER-F
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	12
+	.BYTE	0
+	.ENDT
+
+T?THORPE-SUB::	.TABLE			; TABLE FOR OBJECT THORPE-SUB
+	.STRL "Sea Cat"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	THORPE-SUB-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 8,P?ADJECTIVE
+        .BYTE A?DOCTOR
+        .BYTE A?DOC'S
+        .BYTE A?JEROME
+        .BYTE A?THORPE
+        .BYTE A?MARINE
+        .BYTE A?AQUATIC
+        .BYTE A?SEA
+        .BYTE A?POWER
+	.PROP 8,P?SYNONYM
+	W?TRACTOR
+	W?CAT
+	W?SEACAT
+	W?POD
+	.BYTE	0
+	.ENDT
+
+T?WORK-COUNTER::	.TABLE			; TABLE FOR OBJECT WORK-COUNTER
+	.STRL "work counter"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?WORK
+	.PROP 4,P?SYNONYM
+	W?COUNTER
+	W?WORKCOUNTER
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	99
+	.BYTE	0
+	.ENDT
+
+T?OXYGEN-GEAR::	.TABLE			; TABLE FOR OBJECT OXYGEN-GEAR
+	.STRL "Emergency Oxygen Gear"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OXYGEN-GEAR-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?EMERGE
+        .BYTE A?OXYGEN
+        .BYTE A?RUBBER
+        .BYTE A?MY
+	.PROP 8,P?SYNONYM
+	W?GEAR
+	W?CANISTER
+	W?VALVE
+	W?STRAW
+	.BYTE	0
+	.ENDT
+
+T?OXYGEN-GEAR-BLY::	.TABLE			; TABLE FOR OBJECT OXYGEN-GEAR-BLY
+	.STRL "Bly's Emergency Oxygen Gear"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OXYGEN-GEAR-GLOBAL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?COMMANDER
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?EMERGE
+        .BYTE A?OXYGEN
+	.PROP 2,P?SYNONYM
+	W?GEAR
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-OXYGEN-GEAR-F
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-WALL::	.TABLE			; TABLE FOR OBJECT AIRLOCK-WALL
+	.STRL "docking tank entrance"
+	.PROP 1,P?NORTH
+	.BYTE FOOT-OF-RAMP
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE AIRLOCK				; ROOM NAME
+	.BYTE AIRLOCK-ROOF			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?DOWN			; STRING PROPERTY
+	STR?68
+	.PROP 1,P?IN
+	.BYTE FOOT-OF-RAMP
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE AIRLOCK				; ROOM NAME
+	.BYTE AIRLOCK-ROOF			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-WALL-F
+	.PROP 4,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE AIRLOCK-RAMP
+        .BYTE AIRLOCK-LADDER
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?AIRLOCK
+	.PROP 2,P?SYNONYM
+	W?ENTRANCE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	512
+	.BYTE	0
+	.ENDT
+
+T?HOOK::	.TABLE			; TABLE FOR OBJECT HOOK
+	.STRL "special hook"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HOOK-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SPECIAL
+	.PROP 2,P?SYNONYM
+	W?HOOK
+	.BYTE	0
+	.ENDT
+
+T?ELECTROLYTE-RELAY::	.TABLE			; TABLE FOR OBJECT ELECTROLYTE-RELAY
+	.STRL "electrolyte relay"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ELECTROLYTE-RELAY-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?76
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?ELECTR
+        .BYTE A?MISSING
+        .BYTE A?SOME
+	.PROP 8,P?SYNONYM
+	W?RELAY
+	W?OBJECT
+	W?SOMETHING
+	W?THING
+	.BYTE	0
+	.ENDT
+
+T?LIGHTS::	.TABLE			; TABLE FOR OBJECT LIGHTS
+	.STRL "lights"
+	.PROP 4,P?SYNONYM
+	W?LIGHT
+	W?LIGHTS
+	.BYTE	0
+	.ENDT
+
+T?REASON::	.TABLE			; TABLE FOR OBJECT REASON
+	.STRL "reason"
+	.PROP 2,P?SYNONYM
+	W?REASON
+	.BYTE	0
+	.ENDT
+
+T?VIDEOPHONE-CABLE::	.TABLE			; TABLE FOR OBJECT VIDEOPHONE-CABLE
+	.STRL "undersea coaxial cable"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VIDEOPHONE-TEST-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?UNDERSEA
+        .BYTE A?COAXIAL
+	.PROP 2,P?SYNONYM
+	W?CABLE
+	.BYTE	0
+	.ENDT
+
+T?DOME-LAB-DOOR::	.TABLE			; TABLE FOR OBJECT DOME-LAB-DOOR
+	.STRL "laboratory door"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?LABORATORY
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?INTDIR::	.TABLE			; TABLE FOR OBJECT INTDIR
+	.STRL "compass direction"
+	.PROP 8,P?ADJECTIVE
+        .BYTE A?NORTH
+        .BYTE A?EAST
+        .BYTE A?SOUTH
+        .BYTE A?WEST
+        .BYTE A?NE
+        .BYTE A?NW
+        .BYTE A?SE
+        .BYTE A?SW
+	.PROP 2,P?SYNONYM
+	W?DIRECT
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL "that"
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-SUB::	.TABLE			; TABLE FOR OBJECT LOCAL-SUB
+	.STRL "SCIMITAR"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LOCAL-SUB-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?REVOLUTIONARY
+        .BYTE A?NEW
+        .BYTE A?ULTRAMARINE
+        .BYTE A?MY
+	.PROP 8,P?SYNONYM
+	W?BIOCEPTOR
+	W?SUB
+	W?SUBMARINE
+	W?SCIMITAR
+	.BYTE	0
+	.ENDT
+
+T?GANGPLANK::	.TABLE			; TABLE FOR OBJECT GANGPLANK
+	.STRL "gangplank"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GANGPLANK-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?TEMPORARY
+	.PROP 4,P?SYNONYM
+	W?GANGPLANK
+	W?RUNWAY
+	.BYTE	0
+	.ENDT
+
+T?LEFT::	.TABLE			; TABLE FOR OBJECT LEFT
+	.STRL "left"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LEFT-RIGHT-F
+	.PROP 6,P?SYNONYM
+	W?LEFT
+	W?PORT
+	W?P
+	.BYTE	0
+	.ENDT
+
+T?SONARSCOPE-LIGHT::	.TABLE			; TABLE FOR OBJECT SONARSCOPE-LIGHT
+	.STRL "sonarscope warning light"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SONARSCOPE-LIGHT-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?SONARSCOPE
+        .BYTE A?WARNING
+        .BYTE A?YELLOW
+        .BYTE A?RED
+	.PROP 4,P?SYNONYM
+	W?WARNING
+	W?LIGHT
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-LIGHT-F
+	.BYTE	0
+	.ENDT
+
+T?MEDIUM::	.TABLE			; TABLE FOR OBJECT MEDIUM
+	.STRL "medium"
+	.PROP 6,P?SYNONYM
+	W?MEDIUM
+	W?HALF
+	W?CRUISE
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-WORKSHOP::	.TABLE			; TABLE FOR OBJECT OUTSIDE-WORKSHOP
+	.STRL "northwest deck"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE DOME-LAB				; ROOM NAME
+	.BYTE DOME-LAB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?EAST
+	.BYTE OUTSIDE-COMM-BLDG
+	.PROP 1,P?SE
+	.BYTE CENTER-OF-DOME
+	.PROP 1,P?SOUTH
+	.BYTE OUTSIDE-DORM
+	.PROP 5,P?WEST			; DOOR EXIT
+	.BYTE WORKSHOP				; ROOM NAME
+	.BYTE WORKSHOP-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUTSIDE-WORKSHOP-F
+	.PROP 3,P?GLOBAL
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+        .BYTE WORKSHOP-DOOR
+        .BYTE DOME-LAB-DOOR
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?NW
+        .BYTE A?WORKSHOP
+        .BYTE A?LAB
+        .BYTE A?LABORATORY
+	.PROP 6,P?SYNONYM
+	W?DECK
+	W?PORCH
+	W?ENTRANCE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	6272
+	.BYTE	0
+	.ENDT
+
+T?LIMBO::	.TABLE			; TABLE FOR OBJECT LIMBO
+	.STRL "limbo"
+	.PROP 1,P?WEST
+	.BYTE OFFICE
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-GREENUP::	.TABLE			; TABLE FOR OBJECT GLOBAL-GREENUP
+	.STRL "Bill Greenup"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-PERSON
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?BILL
+	.PROP 8,P?SYNONYM
+	W?BILL
+	W?GREENUP
+	W?DIVER
+	W?TECHNICIAN
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	9
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-TECHNICIAN::	.TABLE			; TABLE FOR OBJECT GLOBAL-TECHNICIAN
+	.STRL "technician"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TECHNICIAN-F
+	.PROP 2,P?SYNONYM
+	W?TECHNICIAN
+	.BYTE	0
+	.ENDT
+
+T?DEPTHFINDER::	.TABLE			; TABLE FOR OBJECT DEPTHFINDER
+	.STRL "depth finder"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DEPTHFINDER-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?DEPTH
+	.PROP 8,P?SYNONYM
+	W?FINDER
+	W?METER
+	W?GAUGE
+	W?DEPTHFINDER
+	.BYTE	0
+	.ENDT
+
+T?PLAYER::	.TABLE			; TABLE FOR OBJECT PLAYER
+	.STRL "yourself"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PLAYER-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?FAMOUS
+        .BYTE A?YOUNG
+	.PROP 6,P?SYNONYM
+	W?I
+	W?ME
+	W?MYSELF
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-ANTRIM::	.TABLE			; TABLE FOR OBJECT GLOBAL-ANTRIM
+	.STRL "Mick Antrim"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-PERSON
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?MICK
+	.PROP 4,P?SYNONYM
+	W?MICK
+	W?ANTRIM
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL ""
+	.PROP 4,P?SYNONYM
+	W?ZZZZLG
+	W?ZZZLG
+	.BYTE	0
+	.ENDT
+
+T?CHAIR::	.TABLE			; TABLE FOR OBJECT CHAIR
+	.STRL "chair"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CHAIR-F
+	.PROP 6,P?SYNONYM
+	W?CHAIR
+	W?CHAIRS
+	W?SEAT
+	.BYTE	0
+	.ENDT
+
+T?ORE-NODULES::	.TABLE			; TABLE FOR OBJECT ORE-NODULES
+	.STRL "valuable ore deposit"
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?VALUABLE
+        .BYTE A?ORE
+	.PROP 6,P?SYNONYM
+	W?DEPOSIT
+	W?FIELD
+	W?NODULE
+	.BYTE	0
+	.ENDT
+
+T?CONTROL-CIRCUITS::	.TABLE			; TABLE FOR OBJECT CONTROL-CIRCUITS
+	.STRL "control circuit"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROL-CIRCUITS-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?CONTROL
+	.PROP 2,P?SYNONYM
+	W?CIRCUIT
+	.BYTE	0
+	.ENDT
+
+T?HER::	.TABLE			; TABLE FOR OBJECT HER
+	.STRL "her"
+	.PROP 8,P?SYNONYM
+	W?SHE
+	W?HER
+	W?WOMAN
+	W?GIRL
+	.BYTE	0
+	.ENDT
+
+T?WORKSHOP-STUFF::	.TABLE			; TABLE FOR OBJECT WORKSHOP-STUFF
+	.STRL "workshop material"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WORKSHOP-STUFF-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?ASSORTED
+        .BYTE A?HAND
+        .BYTE A?MACHIN
+        .BYTE A?SPARE
+        .BYTE A?WORKSHOP
+	.PROP 6,P?SYNONYM
+	W?TOOL
+	W?PARTS
+	W?MATERIAL
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TOOL-F
+	.BYTE	0
+	.ENDT
+
+T?COMM-BLDG-DOOR::	.TABLE			; TABLE FOR OBJECT COMM-BLDG-DOOR
+	.STRL "comm center door"
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?COMM
+        .BYTE A?COMMUN
+        .BYTE A?CENTER
+        .BYTE A?CENTRE
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?GASH::	.TABLE			; TABLE FOR OBJECT GASH
+	.STRL "gash"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ARM-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?WARM
+        .BYTE A?SPREADING
+        .BYTE A?REDDISH
+        .BYTE A?SERIOUS
+        .BYTE A?MY
+	.PROP 6,P?SYNONYM
+	W?GASH
+	W?MOISTURE
+	W?STAIN
+	.BYTE	0
+	.ENDT
+
+T?OFFICE::	.TABLE			; TABLE FOR OBJECT OFFICE
+	.STRL "Kemp's office"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE LIMBO				; ROOM NAME
+	.BYTE OFFICE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?WEST
+	.BYTE HALLWAY
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OFFICE-F
+	.PROP 2,P?GLOBAL
+        .BYTE CHAIR
+        .BYTE INTERCOM
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?SHARON
+        .BYTE A?KEMP'S
+	.PROP 2,P?SYNONYM
+	W?OFFICE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-OFFICE-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-HORVAK::	.TABLE			; TABLE FOR OBJECT GLOBAL-HORVAK
+	.STRL "Doc Horvak"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-PERSON
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?DOCTOR
+        .BYTE A?DOC
+        .BYTE A?WALT
+        .BYTE A?DR
+	.PROP 8,P?SYNONYM
+	W?DOC
+	W?WALT
+	W?HORVAK
+	W?MEDIC
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	7
+	.BYTE	0
+	.ENDT
+
+T?COMPUTESTOR::	.TABLE			; TABLE FOR OBJECT COMPUTESTOR
+	.STRL "Computestor"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	COMPUTESTOR-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 6,P?SYNONYM
+	W?COMPUTESTOR
+	W?TESTOR
+	W?TESTER
+	.BYTE	0
+	.ENDT
+
+T?PILOT-SEAT::	.TABLE			; TABLE FOR OBJECT PILOT-SEAT
+	.STRL "seat"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PILOT-SEAT-F
+	.PROP 4,P?SYNONYM
+	W?SEAT
+	W?CHAIR
+	.BYTE	0
+	.ENDT
+
+T?CONTROLS::	.TABLE			; TABLE FOR OBJECT CONTROLS
+	.STRL "control panel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROLS-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?OPERATOR
+        .BYTE A?CONTROL
+	.PROP 8,P?SYNONYM
+	W?CONTROL
+	W?PANEL
+	W?KNOB
+	W?KNOBS
+	.BYTE	0
+	.ENDT
+
+T?VIDEOPHONE-RECEIVER::	.TABLE			; TABLE FOR OBJECT VIDEOPHONE-RECEIVER
+	.STRL "receiver"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VIDEOPHONE-TEST-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?VIDEO
+	.PROP 2,P?SYNONYM
+	W?RECEIVER
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-HATCH::	.TABLE			; TABLE FOR OBJECT AIRLOCK-HATCH
+	.STRL "docking tank gate"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-HATCH-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?AQUADOME
+        .BYTE A?AIRLOCK
+	.PROP 4,P?SYNONYM
+	W?GATE
+	W?GATES
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-GATE-F
+	.BYTE	0
+	.ENDT
+
+T?CONTROL-CIRCUITS-GAUGE::	.TABLE			; TABLE FOR OBJECT CONTROL-CIRCUITS-GAUGE
+	.STRL "temperature gauge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROL-CIRCUITS-GAUGE-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?CONTROL
+        .BYTE A?CIRCUIT
+        .BYTE A?TEMPERATURE
+        .BYTE A?GAUGE
+	.PROP 6,P?SYNONYM
+	W?TEMPERATURE
+	W?GAUGE
+	W?NEEDLE
+	.BYTE	0
+	.ENDT
+
+T?OPEN-GATE-BUTTON::	.TABLE			; TABLE FOR OBJECT OPEN-GATE-BUTTON
+	.STRL "gate control"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OPEN-GATE-BUTTON-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?GATE
+	.PROP 4,P?SYNONYM
+	W?CONTROL
+	W?SWITCH
+	.BYTE	0
+	.ENDT
+
+T?ELECTRONICS::	.TABLE			; TABLE FOR OBJECT ELECTRONICS
+	.STRL "bunch of electronic supplies"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?ELECTR
+	.PROP 8,P?SYNONYM
+	W?BUNCH
+	W?ELECTR
+	W?SUPPLY
+	W?SUPPLIES
+	.BYTE	0
+	.ENDT
+
+T?MOTIVE::	.TABLE			; TABLE FOR OBJECT MOTIVE
+	.STRL "motive"
+	.PROP 2,P?SYNONYM
+	W?MOTIVE
+	.BYTE	0
+	.ENDT
+
+T?PHOTO::	.TABLE			; TABLE FOR OBJECT PHOTO
+	.STRL "photograph"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PHOTO-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+	.PROP 8,P?SYNONYM
+	W?PHOTO
+	W?PHOTOGRAPH
+	W?PICTURE
+	W?SNAPSHOT
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL ""
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.PROP 4,P?PSEUDO
+	W?NOTHIN
+	RANDOM-PSEUDO
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	NULL-F
+	.BYTE	0
+	.ENDT
+
+T?AUTO-PILOT::	.TABLE			; TABLE FOR OBJECT AUTO-PILOT
+	.STRL "autopilot"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AUTO-PILOT-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?AUTO
+        .BYTE A?AUTOMATIC
+	.PROP 4,P?SYNONYM
+	W?PILOT
+	W?AUTOPILOT
+	.BYTE	0
+	.ENDT
+
+T?PLAYER-NAME::	.TABLE			; TABLE FOR OBJECT PLAYER-NAME
+	.STRL "yourself"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PLAYER-NAME-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?$FN
+	.PROP 6,P?SYNONYM
+	W?$LN
+	W?WE
+	W?US
+	.BYTE	0
+	.ENDT
+
+T?PRIVATE-MATTER::	.TABLE			; TABLE FOR OBJECT PRIVATE-MATTER
+	.STRL "private matter"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?PERSONAL
+	.PROP 2,P?SYNONYM
+	W?MATTER
+	.BYTE	0
+	.ENDT
+
+T?BADGE-GLOBAL::	.TABLE			; TABLE FOR OBJECT BADGE-GLOBAL
+	.STRL "badge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BADGE-GLOBAL-F
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?THIS
+        .BYTE A?THESE
+        .BYTE A?BILL'S
+        .BYTE A?GREENUP
+        .BYTE A?AMY'S
+        .BYTE A?LOWELL
+	.PROP 4,P?SYNONYM
+	W?BADGE
+	W?BADGES
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-BADGE-F
+	.BYTE	0
+	.ENDT
+
+T?IT::	.TABLE			; TABLE FOR OBJECT IT
+	.STRL "it"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	IT-F
+	.PROP 8,P?SYNONYM
+	W?IT
+	W?THEM
+	W?THEY
+	W?THIS
+	.BYTE	0
+	.ENDT
+
+T?SYRINGE::	.TABLE			; TABLE FOR OBJECT SYRINGE
+	.STRL "hypodermic syringe"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SYRINGE-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?HYPO
+        .BYTE A?HYPODERMIC
+        .BYTE A?THIS
+	.PROP 6,P?SYNONYM
+	W?SYRINGE
+	W?CONTENTS
+	W?NEEDLE
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?CHEMICALS::	.TABLE			; TABLE FOR OBJECT CHEMICALS
+	.STRL "bunch of chemicals"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?CHEMICAL
+	.PROP 8,P?SYNONYM
+	W?BUNCH
+	W?CHEMICAL
+	W?SUPPLY
+	W?SUPPLIES
+	.BYTE	0
+	.ENDT
+
+T?MORE::	.TABLE			; TABLE FOR OBJECT MORE
+	.STRL "more"
+	.PROP 2,P?SYNONYM
+	W?MORE
+	.BYTE	0
+	.ENDT
+
+T?THORPE::	.TABLE			; TABLE FOR OBJECT THORPE
+	.STRL "Doctor Jerome Thorpe"
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.BYTE	0
+	.ENDT
+
+T?WOMENS-QUARTERS-DOOR::	.TABLE			; TABLE FOR OBJECT WOMENS-QUARTERS-DOOR
+	.STRL "red door"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?RED
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?HORVAK-LOCKER::	.TABLE			; TABLE FOR OBJECT HORVAK-LOCKER
+	.STRL "Horvak's locker"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HORVAK-LOCKER-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+        .BYTE A?DORM
+        .BYTE A?DORMITORY
+	.PROP 2,P?SYNONYM
+	W?LOCKER
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-FURNITURE-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	13
+	.BYTE	0
+	.ENDT
+
+T?WORKBENCH::	.TABLE			; TABLE FOR OBJECT WORKBENCH
+	.STRL "workbench"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WORKBENCH-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?WORK
+	.PROP 6,P?SYNONYM
+	W?WORKBENCH
+	W?BENCH
+	W?TABLE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-FURNITURE-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	99
+	.BYTE	0
+	.ENDT
+
+T?BLY-DESK::	.TABLE			; TABLE FOR OBJECT BLY-DESK
+	.STRL "Bly's desk"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BLY-DESK-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?DESK
+	.PROP 4,P?SYNONYM
+	W?DESK
+	W?DRAWER
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-DESK-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	99
+	.BYTE	0
+	.ENDT
+
+T?JOB::	.TABLE			; TABLE FOR OBJECT JOB
+	.STRL "job"
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SOME
+	.PROP 6,P?SYNONYM
+	W?JOB
+	W?WORK
+	W?CHORE
+	.BYTE	0
+	.ENDT
+
+T?AUTOMATIC::	.TABLE			; TABLE FOR OBJECT AUTOMATIC
+	.STRL "automatic"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AUTOMATIC-F
+	.PROP 4,P?SYNONYM
+	W?AUTO
+	W?AUTOMATIC
+	.BYTE	0
+	.ENDT
+
+T?UNDERWATER::	.TABLE			; TABLE FOR OBJECT UNDERWATER
+	.STRL "underwater"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	UNDERWATER-F
+	.PROP 2,P?SYNONYM
+	W?UNDERWATER
+	.BYTE	0
+	.ENDT
+
+T?OFFICE-DOOR::	.TABLE			; TABLE FOR OBJECT OFFICE-DOOR
+	.STRL "office door"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OFFICE-DOOR-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?OFFICE
+        .BYTE A?SHARON
+        .BYTE A?KEMP'S
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?DOORWAY
+	.BYTE	0
+	.ENDT
+
+T?FOOT-OF-RAMP::	.TABLE			; TABLE FOR OBJECT FOOT-OF-RAMP
+	.STRL "reception area"
+	.PROP 1,P?NORTH
+	.BYTE CENTER-OF-DOME
+	.PROP 1,P?EAST
+	.BYTE OUTSIDE-ADMIN-BLDG
+	.PROP 1,P?SOUTH
+	.BYTE AIRLOCK-WALL
+	.PROP 1,P?WEST
+	.BYTE OUTSIDE-DORM
+	.PROP 1,P?UP
+	.BYTE AIRLOCK-WALL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FOOT-OF-RAMP-F
+	.PROP 2,P?GLOBAL
+        .BYTE AIRLOCK-LADDER
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?RECEPTION
+	.PROP 4,P?SYNONYM
+	W?AREA
+	W?ROOM
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	1536
+	.BYTE	0
+	.ENDT
+
+T?FAST::	.TABLE			; TABLE FOR OBJECT FAST
+	.STRL "fast"
+	.PROP 8,P?SYNONYM
+	W?FAST
+	W?FASTER
+	W?HIGH
+	W?MAXIMUM
+	.BYTE	0
+	.ENDT
+
+T?DOME-STORAGE::	.TABLE			; TABLE FOR OBJECT DOME-STORAGE
+	.STRL "storage room"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE OUTSIDE-ADMIN-BLDG				; ROOM NAME
+	.BYTE DOME-STORAGE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-ADMIN-BLDG				; ROOM NAME
+	.BYTE DOME-STORAGE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DOME-STORAGE-F
+	.PROP 3,P?GLOBAL
+        .BYTE DOME-STORAGE-DOOR
+        .BYTE WINDOW
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?STORAGE
+        .BYTE A?SUPPLY
+	.PROP 4,P?SYNONYM
+	W?ROOM
+	W?AREA
+	.PROP 8,P?PSEUDO
+	W?EQUIPM
+	RANDOM-PSEUDO
+	W?SUPPLIES
+	RANDOM-PSEUDO
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-STORAGE-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?CREW-GLOBAL::	.TABLE			; TABLE FOR OBJECT CREW-GLOBAL
+	.STRL "Aquadome crew"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CREW-GLOBAL-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?AQUADOME
+        .BYTE A?ENTIRE
+	.PROP 4,P?SYNONYM
+	W?CREW
+	W?DIVERS
+	.BYTE	0
+	.ENDT
+
+T?DESK::	.TABLE			; TABLE FOR OBJECT DESK
+	.STRL "lab desk"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DESK-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?MY
+        .BYTE A?LAB
+        .BYTE A?LABORATORY
+	.PROP 2,P?SYNONYM
+	W?DESK
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-DESK-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	33
+	.BYTE	0
+	.ENDT
+
+T?SONARSCOPE::	.TABLE			; TABLE FOR OBJECT SONARSCOPE
+	.STRL "sonarscope"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SONARSCOPE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SONAR
+	.PROP 8,P?SYNONYM
+	W?SONARSCOPE
+	W?SCOPE
+	W?SCREEN
+	W?BLIP
+	.BYTE	0
+	.ENDT
+
+T?WORKSHOP::	.TABLE			; TABLE FOR OBJECT WORKSHOP
+	.STRL "workshop"
+	.PROP 5,P?EAST			; DOOR EXIT
+	.BYTE OUTSIDE-WORKSHOP				; ROOM NAME
+	.BYTE WORKSHOP-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-WORKSHOP				; ROOM NAME
+	.BYTE WORKSHOP-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WORKSHOP-F
+	.PROP 3,P?GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE WORKSHOP-DOOR
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?WORK
+	.PROP 8,P?SYNONYM
+	W?WORKSHOP
+	W?SHOP
+	W?AREA
+	W?ROOM
+	.BYTE	0
+	.ENDT
+
+T?SOUTH-WALL::	.TABLE			; TABLE FOR OBJECT SOUTH-WALL
+	.STRL "south part"
+	.PROP 1,P?NORTH
+	.BYTE CENTER-OF-LAB
+	.PROP 1,P?EAST
+	.BYTE EAST-WALL
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE NORTH-TANK-AREA				; ROOM NAME
+	.BYTE SOUTH-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?WEST
+	.BYTE WEST-WALL
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE NORTH-TANK-AREA				; ROOM NAME
+	.BYTE SOUTH-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SOUTH-WALL-F
+	.PROP 2,P?GLOBAL
+        .BYTE SOUTH-DOORWAY
+        .BYTE ALARM
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SOUTH
+	.PROP 8,P?SYNONYM
+	W?PART
+	W?SECTION
+	W?AREA
+	W?ROOM
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	21
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SUB-2::	.TABLE			; TABLE FOR OBJECT GLOBAL-SUB-2
+	.STRL "boat"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SUB-2-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?REVOLUTIONARY
+        .BYTE A?NEW
+        .BYTE A?ULTRAMARINE
+        .BYTE A?MY
+	.PROP 2,P?SYNONYM
+	W?BOAT
+	.BYTE	0
+	.ENDT
+
+T?DOC-LABORATORY::	.TABLE			; TABLE FOR OBJECT DOC-LABORATORY
+	.STRL "Doc's laboratory"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DOC-LABORATORY-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+	.PROP 4,P?SYNONYM
+	W?LAB
+	W?LABORATORY
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-LABORATORY-F
+	.BYTE	0
+	.ENDT
+
+T?DANGER::	.TABLE			; TABLE FOR OBJECT DANGER
+	.STRL "danger"
+	.PROP 4,P?SYNONYM
+	W?DANGER
+	W?THREAT
+	.BYTE	0
+	.ENDT
+
+T?ENGINE-BUTTON::	.TABLE			; TABLE FOR OBJECT ENGINE-BUTTON
+	.STRL "engine starter"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ENGINE-BUTTON-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?ENGINE
+        .BYTE A?STARTER
+	.PROP 4,P?SYNONYM
+	W?STARTER
+	W?BUTTON
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SIEGEL::	.TABLE			; TABLE FOR OBJECT GLOBAL-SIEGEL
+	.STRL "Marv Siegel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-PERSON
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?MARV
+        .BYTE A?SONAR
+        .BYTE A?ELECTR
+	.PROP 8,P?SYNONYM
+	W?MARV
+	W?SIEGEL
+	W?OPERATOR
+	W?EXPERT
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	8
+	.BYTE	0
+	.ENDT
+
+T?SPECIAL-TOOL-GLOBAL::	.TABLE			; TABLE FOR OBJECT SPECIAL-TOOL-GLOBAL
+	.STRL "special Fram Bolt Wrench"
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?SPECIAL
+        .BYTE A?FRAM
+        .BYTE A?BOLT
+	.PROP 2,P?SYNONYM
+	W?WRENCH
+	.BYTE	0
+	.ENDT
+
+T?ELECTRONIC-SUPPLY-SHELVES::	.TABLE			; TABLE FOR OBJECT ELECTRONIC-SUPPLY-SHELVES
+	.STRL "electronic supply shelf"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ELECTRONIC-SUPPLY-SHELVES-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?ELECTR
+        .BYTE A?SUPPLY
+	.PROP 4,P?SYNONYM
+	W?SHELF
+	W?SHELVES
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	15
+	.BYTE	0
+	.ENDT
+
+T?DEPTHFINDER-LIGHT::	.TABLE			; TABLE FOR OBJECT DEPTHFINDER-LIGHT
+	.STRL "depth finder warning light"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DEPTHFINDER-LIGHT-F
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?DEPTHFINDER
+        .BYTE A?DEPTH
+        .BYTE A?FINDER
+        .BYTE A?WARNING
+        .BYTE A?ORANGE
+        .BYTE A?RED
+	.PROP 4,P?SYNONYM
+	W?WARNING
+	W?LIGHT
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-LIGHT-F
+	.BYTE	0
+	.ENDT
+
+T?SLOW::	.TABLE			; TABLE FOR OBJECT SLOW
+	.STRL "slow"
+	.PROP 8,P?SYNONYM
+	W?SLOW
+	W?SLOWER
+	W?MINIMUM
+	W?LOW
+	.BYTE	0
+	.ENDT
+
+T?DAMAGE::	.TABLE			; TABLE FOR OBJECT DAMAGE
+	.STRL "damage"
+	.PROP 2,P?SYNONYM
+	W?DAMAGE
+	.BYTE	0
+	.ENDT
+
+T?SUB::	.TABLE			; TABLE FOR OBJECT SUB
+	.STRL "SCIMITAR"
+	.PROP 5,P?IN			; DOOR EXIT
+	.BYTE CRAWL-SPACE				; ROOM NAME
+	.BYTE ENGINE-ACCESS-HATCH			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 3,P?OUT
+	.WORD SUB-EXIT-F
+	.BYTE 0
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SUB-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?15
+	.PROP 8,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE SUB-DOOR
+        .BYTE ENGINE-ACCESS-HATCH
+        .BYTE REACTOR-SWITCH
+        .BYTE FILL-TANK-BUTTON
+        .BYTE OPEN-GATE-BUTTON
+        .BYTE TEST-BUTTON
+        .BYTE ENGINE-BUTTON
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?IU-GLOBAL::	.TABLE			; TABLE FOR OBJECT IU-GLOBAL
+	.STRL "Inventions Unlimited"
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?116
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?INVENT
+	.PROP 6,P?SYNONYM
+	W?UNLIMITED
+	W?COMPANY
+	W?BUSINESS
+	.BYTE	0
+	.ENDT
+
+T?SONAR-MAN::	.TABLE			; TABLE FOR OBJECT SONAR-MAN
+	.STRL "sonar operator"
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?AQUADOME
+        .BYTE A?SONAR
+	.PROP 4,P?SYNONYM
+	W?MAN
+	W?OPERATOR
+	.BYTE	0
+	.ENDT
+
+T?AIR-SUPPLY-SYSTEM::	.TABLE			; TABLE FOR OBJECT AIR-SUPPLY-SYSTEM
+	.STRL "Air Supply System"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIR-SUPPLY-SYSTEM-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?AIR
+        .BYTE A?OXYGEN
+        .BYTE A?SUPPLY
+        .BYTE A?AQUADOME
+        .BYTE A?DOME
+        .BYTE A?STATION
+	.PROP 8,P?SYNONYM
+	W?SUPPLY
+	W?SYSTEM
+	W?CYLINDER
+	W?SIGN
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	9
+	.BYTE	0
+	.ENDT
+
+T?VIDEOPHONE-SATELLITE::	.TABLE			; TABLE FOR OBJECT VIDEOPHONE-SATELLITE
+	.STRL "satellite"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VIDEOPHONE-TEST-F
+	.PROP 2,P?SYNONYM
+	W?SATELLITE
+	.BYTE	0
+	.ENDT
+
+T?CONTROLS-SUB::	.TABLE			; TABLE FOR OBJECT CONTROLS-SUB
+	.STRL "control panel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROLS-SUB-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?OPERATOR
+        .BYTE A?CONTROL
+	.PROP 8,P?SYNONYM
+	W?CONTROL
+	W?PANEL
+	W?KNOB
+	W?KNOBS
+	.BYTE	0
+	.ENDT
+
+T?FILE-DRAWER::	.TABLE			; TABLE FOR OBJECT FILE-DRAWER
+	.STRL "file drawer"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PAPERS-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?FILE
+        .BYTE A?SHARON
+        .BYTE A?KEMP'S
+	.PROP 8,P?SYNONYM
+	W?DRAWER
+	W?FILE
+	W?FILES
+	W?CABINET
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	33
+	.BYTE	0
+	.ENDT
+
+T?GREENUP-LADDER::	.TABLE			; TABLE FOR OBJECT GREENUP-LADDER
+	.STRL "emergency ladder"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GREENUP-LADDER-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?EMERGE
+	.PROP 2,P?SYNONYM
+	W?LADDER
+	.BYTE	0
+	.ENDT
+
+T?SEA::	.TABLE			; TABLE FOR OBJECT SEA
+	.STRL "open sea"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SEA-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?OPEN
+        .BYTE A?ATLANTIC
+	.PROP 4,P?SYNONYM
+	W?OCEAN
+	W?SEA
+	.BYTE	0
+	.ENDT
+
+T?EVIDENCE::	.TABLE			; TABLE FOR OBJECT EVIDENCE
+	.STRL "evidence"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	EVIDENCE-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?OTHER
+        .BYTE A?DEFINITE
+	.PROP 2,P?SYNONYM
+	W?EVIDENCE
+	.BYTE	0
+	.ENDT
+
+T?HORVAK::	.TABLE			; TABLE FOR OBJECT HORVAK
+	.STRL "Doc Horvak"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HORVAK-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?DOCTOR
+        .BYTE A?DOC
+        .BYTE A?WALT
+        .BYTE A?DR
+	.PROP 8,P?SYNONYM
+	W?DOC
+	W?WALT
+	W?HORVAK
+	W?MEDIC
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	HORVAK-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	7
+	.BYTE	0
+	.ENDT
+
+T?WOMENS-FURNITURE::	.TABLE			; TABLE FOR OBJECT WOMENS-FURNITURE
+	.STRL "furniture"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RANDOM-PSEUDO
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?COMMANDER
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?AMY'S
+        .BYTE A?LOWELL
+	.PROP 8,P?SYNONYM
+	W?TABLE
+	W?BUNK
+	W?BED
+	W?LOCKER
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-FURNITURE-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	13
+	.BYTE	0
+	.ENDT
+
+T?TIP::	.TABLE			; TABLE FOR OBJECT TIP
+	.STRL "Tip"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TIP-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?TIP
+	.PROP 6,P?SYNONYM
+	W?TIP
+	W?RANDALL
+	W?SAILOR
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	40
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	TIP-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?CRAWL-SPACE::	.TABLE			; TABLE FOR OBJECT CRAWL-SPACE
+	.STRL "crawl space"
+	.PROP 2,P?NORTH			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?NE			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?SE			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?SOUTH			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?SW			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?WEST			; STRING PROPERTY
+	STR?25
+	.PROP 2,P?NW			; STRING PROPERTY
+	STR?25
+	.PROP 5,P?UP			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE ENGINE-ACCESS-HATCH			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE ENGINE-ACCESS-HATCH			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CRAWL-SPACE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 4,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE ENGINE-ACCESS-HATCH
+        .BYTE LIGHTS
+        .BYTE TEST-BUTTON
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?ENGINE
+        .BYTE A?CRAWL
+        .BYTE A?ACCESS
+	.PROP 8,P?SYNONYM
+	W?COMPARE
+	W?SPACE
+	W?ROOM
+	W?AREA
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?24
+	.PROP 4,P?PSEUDO
+	W?MACHIN
+	RANDOM-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SURFACE::	.TABLE			; TABLE FOR OBJECT GLOBAL-SURFACE
+	.STRL "surface"
+	.PROP 2,P?SYNONYM
+	W?SURFACE
+	.BYTE	0
+	.ENDT
+
+T?YOUR-LABORATORY::	.TABLE			; TABLE FOR OBJECT YOUR-LABORATORY
+	.STRL "your laboratory"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	YOUR-LABORATORY-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?MY
+        .BYTE A?RESEARCH
+        .BYTE A?$LN
+        .BYTE A?FROBTON
+	.PROP 4,P?SYNONYM
+	W?LAB
+	W?LABORATORY
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-LABORATORY-F
+	.BYTE	0
+	.ENDT
+
+T?MICROWAVE-SECURITY-SCANNER::	.TABLE			; TABLE FOR OBJECT MICROWAVE-SECURITY-SCANNER
+	.STRL "Microwave Security Scanner"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MICROWAVE-SECURITY-SCANNER-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?MICROWAVE
+        .BYTE A?SECURITY
+	.PROP 2,P?SYNONYM
+	W?SCANNER
+	.BYTE	0
+	.ENDT
+
+T?ELECTRICAL-CONTROL-PANEL::	.TABLE			; TABLE FOR OBJECT ELECTRICAL-CONTROL-PANEL
+	.STRL "Electrical Panel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ELECTRICAL-CONTROL-PANEL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?ELECTR
+        .BYTE A?SUPPLY
+	.PROP 4,P?SYNONYM
+	W?SUPPLY
+	W?PANEL
+	.BYTE	0
+	.ENDT
+
+T?BAZOOKA::	.TABLE			; TABLE FOR OBJECT BAZOOKA
+	.STRL "bazooka"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BAZOOKA-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?49-ER
+        .BYTE A?49ER
+        .BYTE A?PROSPECTING
+	.PROP 6,P?SYNONYM
+	W?BAZOOKA
+	W?GUN
+	W?WEAPON
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?63
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SABOTAGE::	.TABLE			; TABLE FOR OBJECT GLOBAL-SABOTAGE
+	.STRL "sabotage"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SABOTAGE-F
+	.PROP 2,P?SYNONYM
+	W?SABOTAGE
+	.BYTE	0
+	.ENDT
+
+T?TRAITOR::	.TABLE			; TABLE FOR OBJECT TRAITOR
+	.STRL "traitor"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TRAITOR-F
+	.PROP 2,P?SYNONYM
+	W?TRAITOR
+	.BYTE	0
+	.ENDT
+
+T?SOMETHING::	.TABLE			; TABLE FOR OBJECT SOMETHING
+	.STRL "(something)"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SOMETHING-F
+	.PROP 2,P?SYNONYM
+	W?(SOMETHING)
+	.BYTE	0
+	.ENDT
+
+T?SEARCH-BEAM::	.TABLE			; TABLE FOR OBJECT SEARCH-BEAM
+	.STRL "brass search light"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SEARCH-BEAM-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?BRASS
+        .BYTE A?SEARCH
+        .BYTE A?LIGHT
+	.PROP 4,P?SYNONYM
+	W?BEAM
+	W?LIGHT
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-LIGHT-F
+	.BYTE	0
+	.ENDT
+
+T?OXYGEN-GEAR-DIVER::	.TABLE			; TABLE FOR OBJECT OXYGEN-GEAR-DIVER
+	.STRL "divers' Gear"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OXYGEN-GEAR-GLOBAL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?DIVER
+        .BYTE A?DIVERS
+        .BYTE A?BILL'S
+        .BYTE A?GREENUP
+        .BYTE A?AMY'S
+        .BYTE A?LOWELL
+	.PROP 4,P?SYNONYM
+	W?GEAR
+	W?GEARS
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-OXYGEN-GEAR-F
+	.BYTE	0
+	.ENDT
+
+T?DOME-LAB::	.TABLE			; TABLE FOR OBJECT DOME-LAB
+	.STRL "Aquadome laboratory"
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE OUTSIDE-WORKSHOP				; ROOM NAME
+	.BYTE DOME-LAB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-WORKSHOP				; ROOM NAME
+	.BYTE DOME-LAB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DOME-LAB-F
+	.PROP 3,P?GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE DOME-LAB-DOOR
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+        .BYTE A?AQUADOME
+        .BYTE A?DOME
+	.PROP 4,P?SYNONYM
+	W?LAB
+	W?LABORATORY
+	.PROP 8,P?PSEUDO
+	W?EQUIPM
+	RANDOM-PSEUDO
+	W?SUPPLIES
+	RANDOM-PSEUDO
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-LABORATORY-F
+	.BYTE	0
+	.ENDT
+
+T?WEST-TANK-AREA::	.TABLE			; TABLE FOR OBJECT WEST-TANK-AREA
+	.STRL "west walkway"
+	.PROP 1,P?NORTH
+	.BYTE NORTH-TANK-AREA
+	.PROP 1,P?NE
+	.BYTE NORTH-TANK-AREA
+	.PROP 2,P?EAST			; STRING PROPERTY
+	STR?115
+	.PROP 1,P?SE
+	.BYTE SOUTH-TANK-AREA
+	.PROP 1,P?SOUTH
+	.BYTE SOUTH-TANK-AREA
+	.PROP 2,P?DOWN			; STRING PROPERTY
+	STR?115
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TANK-AREA-F
+	.PROP 5,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE SOUTH-DOORWAY
+        .BYTE SUB-DOOR
+        .BYTE FILL-TANK-BUTTON
+        .BYTE OPEN-GATE-BUTTON
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?WEST
+        .BYTE A?TANK
+	.PROP 6,P?SYNONYM
+	W?WALKWAY
+	W?AREA
+	W?ROOM
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-AREA-F
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	64
+	.BYTE	0
+	.ENDT
+
+T?STATION-MONITOR::	.TABLE			; TABLE FOR OBJECT STATION-MONITOR
+	.STRL "station monitor"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	STATION-MONITOR-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?STATION
+	.PROP 2,P?SYNONYM
+	W?MONITOR
+	.BYTE	0
+	.ENDT
+
+T?FINE-GRID::	.TABLE			; TABLE FOR OBJECT FINE-GRID
+	.STRL "fine grid"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FINE-GRID-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?FINE
+	.PROP 4,P?SYNONYM
+	W?GRID
+	W?GRIDS
+	.BYTE	0
+	.ENDT
+
+T?TANK-CONTROL-GEAR-2::	.TABLE			; TABLE FOR OBJECT TANK-CONTROL-GEAR-2
+	.STRL "control gear"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROLS-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?CONTROL
+        .BYTE A?WALL
+        .BYTE A?REMOTE
+	.PROP 8,P?SYNONYM
+	W?VALVE
+	W?VALVES
+	W?GAUGE
+	W?GAUGES
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-CONTROL-GEAR-F
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-LADDER::	.TABLE			; TABLE FOR OBJECT AIRLOCK-LADDER
+	.STRL "docking tank ladder"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-LADDER-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?AIRLOCK
+	.PROP 2,P?SYNONYM
+	W?LADDER
+	.BYTE	0
+	.ENDT
+
+T?DOME-STORAGE-DOOR::	.TABLE			; TABLE FOR OBJECT DOME-STORAGE-DOOR
+	.STRL "storage door"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?STORAGE
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SUB::	.TABLE			; TABLE FOR OBJECT GLOBAL-SUB
+	.STRL "SCIMITAR"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SUB-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?REVOLUTIONARY
+        .BYTE A?NEW
+        .BYTE A?ULTRAMARINE
+        .BYTE A?MY
+	.PROP 8,P?SYNONYM
+	W?BIOCEPTOR
+	W?SUB
+	W?SUBMARINE
+	W?SCIMITAR
+	.BYTE	0
+	.ENDT
+
+T?DISTRESS-CALL::	.TABLE			; TABLE FOR OBJECT DISTRESS-CALL
+	.STRL "distress call"
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?DISTRESS
+        .BYTE A?SOS
+	.PROP 4,P?SYNONYM
+	W?CALL
+	W?SOS
+	.BYTE	0
+	.ENDT
+
+T?BLACK-CIRCUITRY::	.TABLE			; TABLE FOR OBJECT BLACK-CIRCUITRY
+	.STRL "circuit"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BLACK-CIRCUITRY-F
+	.PROP 2,P?SYNONYM
+	W?CIRCUIT
+	.BYTE	0
+	.ENDT
+
+T?RIGHT::	.TABLE			; TABLE FOR OBJECT RIGHT
+	.STRL "right"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LEFT-RIGHT-F
+	.PROP 6,P?SYNONYM
+	W?RIGHT
+	W?STARBOARD
+	W?SB
+	.BYTE	0
+	.ENDT
+
+T?HIM::	.TABLE			; TABLE FOR OBJECT HIM
+	.STRL "him"
+	.PROP 8,P?SYNONYM
+	W?HE
+	W?HIM
+	W?MAN
+	W?BOY
+	.BYTE	0
+	.ENDT
+
+T?HINT::	.TABLE			; TABLE FOR OBJECT HINT
+	.STRL "clue"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HINT-F
+	.PROP 6,P?SYNONYM
+	W?CLUE
+	W?HINT
+	W?HELP
+	.BYTE	0
+	.ENDT
+
+T?MICROPHONE-DOME::	.TABLE			; TABLE FOR OBJECT MICROPHONE-DOME
+	.STRL "microphone"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MICROPHONE-DOME-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?HAND
+	.PROP 4,P?SYNONYM
+	W?MIKE
+	W?MICROPHONE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-MICROPHONE-F
+	.BYTE	0
+	.ENDT
+
+T?REACTOR::	.TABLE			; TABLE FOR OBJECT REACTOR
+	.STRL "reactor"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	REACTOR-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?POWER
+        .BYTE A?SUB
+        .BYTE A?SUBMARINE
+        .BYTE A?ENGINE
+	.PROP 6,P?SYNONYM
+	W?REACTOR
+	W?GENERATOR
+	W?HOLE
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	11
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	REACTOR-F
+	.BYTE	0
+	.ENDT
+
+T?MENS-QUARTERS-DOOR::	.TABLE			; TABLE FOR OBJECT MENS-QUARTERS-DOOR
+	.STRL "blue door"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?BLUE
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?BADGE-GLOBAL-3::	.TABLE			; TABLE FOR OBJECT BADGE-GLOBAL-3
+	.STRL "badge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BADGE-GLOBAL-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+        .BYTE A?MARV'S
+        .BYTE A?SIEGEL
+	.PROP 4,P?SYNONYM
+	W?BADGE
+	W?BADGES
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-BADGE-F
+	.BYTE	0
+	.ENDT
+
+T?MANUAL::	.TABLE			; TABLE FOR OBJECT MANUAL
+	.STRL "manual"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MANUAL-F
+	.PROP 2,P?SYNONYM
+	W?MANUAL
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-DORM::	.TABLE			; TABLE FOR OBJECT OUTSIDE-DORM
+	.STRL "southwest deck"
+	.PROP 1,P?NORTH
+	.BYTE OUTSIDE-WORKSHOP
+	.PROP 1,P?NE
+	.BYTE CENTER-OF-DOME
+	.PROP 1,P?EAST
+	.BYTE FOOT-OF-RAMP
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE MENS-QUARTERS				; ROOM NAME
+	.BYTE MENS-QUARTERS-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?WEST			; DOOR EXIT
+	.BYTE WOMENS-QUARTERS				; ROOM NAME
+	.BYTE WOMENS-QUARTERS-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUTSIDE-DORM-F
+	.PROP 3,P?GLOBAL
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+        .BYTE WOMENS-QUARTERS-DOOR
+        .BYTE MENS-QUARTERS-DOOR
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?SW
+        .BYTE A?FEMALE
+        .BYTE A?MALE
+        .BYTE A?DORM
+        .BYTE A?DORMITORY
+	.PROP 6,P?SYNONYM
+	W?DECK
+	W?PORCH
+	W?ENTRANCE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	3328
+	.BYTE	0
+	.ENDT
+
+T?ARROW::	.TABLE			; TABLE FOR OBJECT ARROW
+	.STRL "arrow"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ARROW-F
+	.PROP 2,P?SYNONYM
+	W?ARROW
+	.BYTE	0
+	.ENDT
+
+T?NORTH-WALL::	.TABLE			; TABLE FOR OBJECT NORTH-WALL
+	.STRL "north part"
+	.PROP 1,P?EAST
+	.BYTE EAST-WALL
+	.PROP 1,P?SOUTH
+	.BYTE CENTER-OF-LAB
+	.PROP 1,P?WEST
+	.BYTE WEST-WALL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NORTH-WALL-F
+	.PROP 2,P?GLOBAL
+        .BYTE TEST-BUTTON
+        .BYTE ALARM
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?NORTH
+	.PROP 8,P?SYNONYM
+	W?PART
+	W?SECTION
+	W?AREA
+	W?ROOM
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	38
+	.BYTE	0
+	.ENDT
+
+T?TANK-CONTROL-GEAR-1::	.TABLE			; TABLE FOR OBJECT TANK-CONTROL-GEAR-1
+	.STRL "control gear"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CONTROLS-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?CONTROL
+        .BYTE A?WALL
+        .BYTE A?REMOTE
+	.PROP 6,P?SYNONYM
+	W?GEAR
+	W?CONTROL
+	W?WALL
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-CONTROL-GEAR-F
+	.BYTE	0
+	.ENDT
+
+T?BLACK-BOX::	.TABLE			; TABLE FOR OBJECT BLACK-BOX
+	.STRL "black box"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BLACK-BOX-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?SMALL
+        .BYTE A?ELECTR
+        .BYTE A?BLACK
+        .BYTE A?BOX
+	.PROP 6,P?SYNONYM
+	W?COVER
+	W?BOX
+	W?DEVICE
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?MECHANICALS::	.TABLE			; TABLE FOR OBJECT MECHANICALS
+	.STRL "bunch of mechanical supplies"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?MECHANICAL
+	.PROP 8,P?SYNONYM
+	W?BUNCH
+	W?MECHANICAL
+	W?SUPPLY
+	W?SUPPLIES
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SNARK::	.TABLE			; TABLE FOR OBJECT GLOBAL-SNARK
+	.STRL "Snark"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SNARK-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?SEA
+        .BYTE A?THIS
+        .BYTE A?HUGE
+	.PROP 8,P?SYNONYM
+	W?SNARK
+	W?MONSTER
+	W?SLUG
+	W?CREATURE
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK::	.TABLE			; TABLE FOR OBJECT AIRLOCK
+	.STRL "docking tank"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE AIRLOCK-WALL				; ROOM NAME
+	.BYTE AIRLOCK-ROOF			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE SUB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?UP			; DOOR EXIT
+	.BYTE AIRLOCK-WALL				; ROOM NAME
+	.BYTE AIRLOCK-ROOF			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?DOWN			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE SUB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?IN			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE SUB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE AIRLOCK-WALL				; ROOM NAME
+	.BYTE AIRLOCK-ROOF			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-F
+	.PROP 4,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE SUB-DOOR
+        .BYTE AIRLOCK-RAMP
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?DOCKING
+	.PROP 8,P?SYNONYM
+	W?TANK
+	W?AREA
+	W?ROOM
+	W?DOCK
+	.BYTE	0
+	.ENDT
+
+T?EMPTY-SPACE::	.TABLE			; TABLE FOR OBJECT EMPTY-SPACE
+	.STRL "empty space"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	EMPTY-SPACE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?76
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?EMPTY
+	.PROP 4,P?SYNONYM
+	W?SPACE
+	W?HOLE
+	.BYTE	0
+	.ENDT
+
+T?TEST-TANK::	.TABLE			; TABLE FOR OBJECT TEST-TANK
+	.STRL "test tank"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TEST-TANK-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?TEST
+	.PROP 4,P?SYNONYM
+	W?TANK
+	W?DOCK
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-F
+	.BYTE	0
+	.ENDT
+
+T?WORKSHOP-DOOR::	.TABLE			; TABLE FOR OBJECT WORKSHOP-DOOR
+	.STRL "workshop door"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?WORKSHOP
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?GALLEY::	.TABLE			; TABLE FOR OBJECT GALLEY
+	.STRL "galley"
+	.PROP 5,P?WEST			; DOOR EXIT
+	.BYTE OUTSIDE-COMM-BLDG				; ROOM NAME
+	.BYTE GALLEY-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-COMM-BLDG				; ROOM NAME
+	.BYTE GALLEY-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GALLEY-F
+	.PROP 3,P?GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE GALLEY-DOOR
+	.PROP 4,P?SYNONYM
+	W?GALLEY
+	W?MESS
+	.BYTE	0
+	.ENDT
+
+T?EAST-WALL::	.TABLE			; TABLE FOR OBJECT EAST-WALL
+	.STRL "east part"
+	.PROP 1,P?NORTH
+	.BYTE NORTH-WALL
+	.PROP 5,P?EAST			; DOOR EXIT
+	.BYTE HALLWAY				; ROOM NAME
+	.BYTE EAST-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?SOUTH
+	.BYTE SOUTH-WALL
+	.PROP 1,P?WEST
+	.BYTE CENTER-OF-LAB
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE HALLWAY				; ROOM NAME
+	.BYTE EAST-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	EAST-WALL-F
+	.PROP 6,P?GLOBAL
+        .BYTE EAST-DOORWAY
+        .BYTE INTERCOM
+        .BYTE CONTROLS
+        .BYTE VIDEOPHONE
+        .BYTE TEST-BUTTON
+        .BYTE ALARM
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?EAST
+	.PROP 8,P?SYNONYM
+	W?PART
+	W?SECTION
+	W?AREA
+	W?ROOM
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	11
+	.BYTE	0
+	.ENDT
+
+T?TANK-GATE::	.TABLE			; TABLE FOR OBJECT TANK-GATE
+	.STRL "test tank gate"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TANK-GATE-F
+	.PROP 7,P?ADJECTIVE
+        .BYTE A?STEEL
+        .BYTE A?TEST
+        .BYTE A?TANK
+        .BYTE A?SEA
+        .BYTE A?REPELATRON
+        .BYTE A?SAFETY
+        .BYTE A?FLOOD
+	.PROP 6,P?SYNONYM
+	W?GATE
+	W?GATES
+	W?BUMPER
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-GATE-F
+	.BYTE	0
+	.ENDT
+
+T?SONARPHONE::	.TABLE			; TABLE FOR OBJECT SONARPHONE
+	.STRL "sonarphone"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SONARPHONE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SONAR
+	.PROP 4,P?SYNONYM
+	W?SONARPHONE
+	W?PHONE
+	.BYTE	0
+	.ENDT
+
+T?NORTH-TANK-AREA::	.TABLE			; TABLE FOR OBJECT NORTH-TANK-AREA
+	.STRL "north walkway"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE SOUTH-WALL				; ROOM NAME
+	.BYTE SOUTH-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE SUB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?SW
+	.BYTE WEST-TANK-AREA
+	.PROP 1,P?WEST
+	.BYTE WEST-TANK-AREA
+	.PROP 5,P?DOWN			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE SUB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?IN			; DOOR EXIT
+	.BYTE SUB				; ROOM NAME
+	.BYTE SUB-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE SOUTH-WALL				; ROOM NAME
+	.BYTE SOUTH-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TANK-AREA-F
+	.PROP 3,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE SOUTH-DOORWAY
+        .BYTE SUB-DOOR
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?NORTH
+        .BYTE A?TANK
+        .BYTE A?WORK
+	.PROP 6,P?SYNONYM
+	W?WALKWAY
+	W?AREA
+	W?ROOM
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-AREA-F
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	64
+	.BYTE	0
+	.ENDT
+
+T?SUB-WINDOW::	.TABLE			; TABLE FOR OBJECT SUB-WINDOW
+	.STRL "viewport"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SUB-WINDOW-F
+	.PROP 4,P?SYNONYM
+	W?VIEWPORT
+	W?DIVING
+	.BYTE	0
+	.ENDT
+
+T?BLY-OFFICE::	.TABLE			; TABLE FOR OBJECT BLY-OFFICE
+	.STRL "Aquadome office"
+	.PROP 5,P?WEST			; DOOR EXIT
+	.BYTE OUTSIDE-ADMIN-BLDG				; ROOM NAME
+	.BYTE BLY-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-ADMIN-BLDG				; ROOM NAME
+	.BYTE BLY-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BLY-OFFICE-F
+	.PROP 6,P?GLOBAL
+        .BYTE BLY-DOOR
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE OPEN-GATE-BUTTON
+        .BYTE FILL-TANK-BUTTON
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?AQUADOME
+        .BYTE A?DOME
+	.PROP 2,P?SYNONYM
+	W?OFFICE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-OFFICE-F
+	.BYTE	0
+	.ENDT
+
+T?BLY::	.TABLE			; TABLE FOR OBJECT BLY
+	.STRL "Commander Bly"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BLY-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?COMMANDER
+        .BYTE A?ZOE
+	.PROP 6,P?SYNONYM
+	W?COMMANDER
+	W?ZOE
+	W?BLY
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	40
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	BLY-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?ACCESS-PLATE::	.TABLE			; TABLE FOR OBJECT ACCESS-PLATE
+	.STRL "access door"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ACCESS-PLATE-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?ACCESS
+	.PROP 6,P?SYNONYM
+	W?DOOR
+	W?PLATE
+	W?PANEL
+	.BYTE	0
+	.ENDT
+
+T?SHARON::	.TABLE			; TABLE FOR OBJECT SHARON
+	.STRL "Sharon Kemp"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SHARON-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SHARON
+	.PROP 4,P?SYNONYM
+	W?SHARON
+	W?KEMP
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	40
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	SHARON-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.BYTE	0
+	.ENDT
+
+T?ESCAPE-POD-UNIT::	.TABLE			; TABLE FOR OBJECT ESCAPE-POD-UNIT
+	.STRL "Emergency Survival Unit"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ESCAPE-POD-UNIT-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?EMERGE
+        .BYTE A?SURVIVAL
+	.PROP 2,P?SYNONYM
+	W?UNIT
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-TIP::	.TABLE			; TABLE FOR OBJECT GLOBAL-TIP
+	.STRL "Tip Randall"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-PERSON
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?TIP
+	.PROP 4,P?SYNONYM
+	W?TIP
+	W?RANDALL
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?WEST-WALL::	.TABLE			; TABLE FOR OBJECT WEST-WALL
+	.STRL "west part"
+	.PROP 1,P?NORTH
+	.BYTE NORTH-WALL
+	.PROP 1,P?EAST
+	.BYTE CENTER-OF-LAB
+	.PROP 1,P?SOUTH
+	.BYTE SOUTH-WALL
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WEST-WALL-F
+	.PROP 1,P?GLOBAL
+        .BYTE ALARM
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?WEST
+	.PROP 8,P?SYNONYM
+	W?PART
+	W?SECTION
+	W?AREA
+	W?ROOM
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	56
+	.BYTE	0
+	.ENDT
+
+T?INTERCOM::	.TABLE			; TABLE FOR OBJECT INTERCOM
+	.STRL "intercom"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	INTERCOM-F
+	.PROP 2,P?SYNONYM
+	W?INTERCOM
+	.BYTE	0
+	.ENDT
+
+T?BADGE-GLOBAL-2::	.TABLE			; TABLE FOR OBJECT BADGE-GLOBAL-2
+	.STRL "badge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BADGE-GLOBAL-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?COMMANDER
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+        .BYTE A?MICK'S
+        .BYTE A?ANTRIM
+	.PROP 4,P?SYNONYM
+	W?BADGE
+	W?BADGES
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-BADGE-F
+	.BYTE	0
+	.ENDT
+
+T?HALLWAY::	.TABLE			; TABLE FOR OBJECT HALLWAY
+	.STRL "corridor"
+	.PROP 1,P?EAST
+	.BYTE OFFICE
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE LAB-STORAGE				; ROOM NAME
+	.BYTE STORAGE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?WEST			; DOOR EXIT
+	.BYTE EAST-WALL				; ROOM NAME
+	.BYTE EAST-DOORWAY			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HALLWAY-F
+	.PROP 3,P?GLOBAL
+        .BYTE EAST-DOORWAY
+        .BYTE STORAGE-DOOR
+        .BYTE CONTROLS
+	.PROP 6,P?SYNONYM
+	W?CORRIDOR
+	W?HALL
+	W?HALLWAY
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-WEAPON::	.TABLE			; TABLE FOR OBJECT GLOBAL-WEAPON
+	.STRL "weapon"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SOME
+	.PROP 2,P?SYNONYM
+	W?WEAPON
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SONAR::	.TABLE			; TABLE FOR OBJECT GLOBAL-SONAR
+	.STRL "sonar"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SONAR-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?DETECT
+        .BYTE A?SONAR
+	.PROP 8,P?SYNONYM
+	W?SONAR
+	W?SYSTEM
+	W?EQUIPM
+	W?GEAR
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-ELECTRICITY::	.TABLE			; TABLE FOR OBJECT AIRLOCK-ELECTRICITY
+	.STRL "docking tank electricity"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-ELECTRICITY-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?AIRLOCK
+	.PROP 6,P?SYNONYM
+	W?ELECTR
+	W?SUPPLY
+	W?POWER
+	.BYTE	0
+	.ENDT
+
+T?ANTRIM::	.TABLE			; TABLE FOR OBJECT ANTRIM
+	.STRL "Mick Antrim"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ANTRIM-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?MICK
+	.PROP 4,P?SYNONYM
+	W?MICK
+	W?ANTRIM
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	ANTRIM-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	6
+	.BYTE	0
+	.ENDT
+
+T?VIDEOPHONE-TRANSMITTER::	.TABLE			; TABLE FOR OBJECT VIDEOPHONE-TRANSMITTER
+	.STRL "transmitter"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VIDEOPHONE-TEST-F
+	.PROP 2,P?SYNONYM
+	W?TRANSMITTER
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SHARON::	.TABLE			; TABLE FOR OBJECT GLOBAL-SHARON
+	.STRL "Sharon Kemp"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-SHARON-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SHARON
+	.PROP 4,P?SYNONYM
+	W?SHARON
+	W?KEMP
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	2
+	.BYTE	0
+	.ENDT
+
+T?SOUTH-DOORWAY::	.TABLE			; TABLE FOR OBJECT SOUTH-DOORWAY
+	.STRL "south doorway"
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?SOUTH
+        .BYTE A?SLIDING
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?DOORWAY
+	.BYTE	0
+	.ENDT
+
+T?YOU::	.TABLE			; TABLE FOR OBJECT YOU
+	.STRL "himself or herself"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	YOU-F
+	.PROP 8,P?SYNONYM
+	W?YOU
+	W?YOURSELF
+	W?HIMSELF
+	W?HERSELF
+	.BYTE	0
+	.ENDT
+
+T?NOTEBOOK::	.TABLE			; TABLE FOR OBJECT NOTEBOOK
+	.STRL "Logbook"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NOTEBOOK-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?LOG
+	.PROP 4,P?SYNONYM
+	W?LOGBOOK
+	W?BOOK
+	.BYTE	0
+	.ENDT
+
+T?VIDEOPHONE-2::	.TABLE			; TABLE FOR OBJECT VIDEOPHONE-2
+	.STRL "videophone"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VIDEOPHONE-2-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?VIDEOPHONE
+	.PROP 4,P?SYNONYM
+	W?PICTURE
+	W?SOUND
+	.BYTE	0
+	.ENDT
+
+T?DOCKING-TANK::	.TABLE			; TABLE FOR OBJECT DOCKING-TANK
+	.STRL "docking tank"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?DOCKING
+	.PROP 4,P?SYNONYM
+	W?TANK
+	W?DOCK
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-LOWELL::	.TABLE			; TABLE FOR OBJECT GLOBAL-LOWELL
+	.STRL "Amy Lowell"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-PERSON
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?AMY
+	.PROP 8,P?SYNONYM
+	W?AMY
+	W?LOWELL
+	W?DIVER
+	W?TECHNICIAN
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?LOWELL::	.TABLE			; TABLE FOR OBJECT LOWELL
+	.STRL "Amy Lowell"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LOWELL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?AMY
+	.PROP 8,P?SYNONYM
+	W?AMY
+	W?LOWELL
+	W?DIVER
+	W?TECHNICIAN
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	LOWELL-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	10
+	.BYTE	0
+	.ENDT
+
+T?DIRNS::	.TABLE			; TABLE FOR OBJECT DIRNS
+	.STRL "Aquadome directions"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DIRNS-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?DOME
+        .BYTE A?AQUADOME
+	.PROP 2,P?SYNONYM
+	W?DIRECT
+	.BYTE	0
+	.ENDT
+
+T?OVERHEATING::	.TABLE			; TABLE FOR OBJECT OVERHEATING
+	.STRL "overheating"
+	.PROP 2,P?SYNONYM
+	W?OVERHEATING
+	.BYTE	0
+	.ENDT
+
+T?NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT NOT-HERE-OBJECT
+	.STRL "that thing"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NOT-HERE-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?TIP-IDEA::	.TABLE			; TABLE FOR OBJECT TIP-IDEA
+	.STRL "Tip's idea"
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?HIS
+        .BYTE A?TIP'S
+        .BYTE A?RANDALL
+	.PROP 4,P?SYNONYM
+	W?IDEA
+	W?TRAP
+	.BYTE	0
+	.ENDT
+
+T?SOUTH-TANK-AREA::	.TABLE			; TABLE FOR OBJECT SOUTH-TANK-AREA
+	.STRL "south walkway"
+	.PROP 1,P?NORTH
+	.BYTE WEST-TANK-AREA
+	.PROP 1,P?WEST
+	.BYTE WEST-TANK-AREA
+	.PROP 1,P?NW
+	.BYTE WEST-TANK-AREA
+	.PROP 2,P?DOWN			; STRING PROPERTY
+	STR?115
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TANK-AREA-F
+	.PROP 3,P?GLOBAL
+        .BYTE LOCAL-SUB
+        .BYTE SOUTH-DOORWAY
+        .BYTE SUB-DOOR
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?SOUTH
+        .BYTE A?TANK
+	.PROP 6,P?SYNONYM
+	W?WALKWAY
+	W?AREA
+	W?ROOM
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-AREA-F
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	64
+	.BYTE	0
+	.ENDT
+
+T?FILL-TANK-BUTTON::	.TABLE			; TABLE FOR OBJECT FILL-TANK-BUTTON
+	.STRL "tank control"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FILL-TANK-BUTTON-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?TANK
+	.PROP 4,P?SYNONYM
+	W?CONTROL
+	W?SWITCH
+	.BYTE	0
+	.ENDT
+
+T?FLOOR::	.TABLE			; TABLE FOR OBJECT FLOOR
+	.STRL "floor"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FLOOR-F
+	.PROP 8,P?SYNONYM
+	W?FLOOR
+	W?DECK
+	W?WALKWAY
+	W?GROUND
+	.BYTE	0
+	.ENDT
+
+T?JOYSTICK::	.TABLE			; TABLE FOR OBJECT JOYSTICK
+	.STRL "joystick"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	JOYSTICK-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?JOY
+	.PROP 4,P?SYNONYM
+	W?STICK
+	W?JOYSTICK
+	.BYTE	0
+	.ENDT
+
+T?GRID-UNIT::	.TABLE			; TABLE FOR OBJECT GRID-UNIT
+	.STRL "sea square"
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?SEA
+        .BYTE A?GRID
+        .BYTE A?NUMBER
+	.PROP 2,P?SYNONYM
+	W?SQUARE
+	.BYTE	0
+	.ENDT
+
+T?UNIVERSAL-TOOL::	.TABLE			; TABLE FOR OBJECT UNIVERSAL-TOOL
+	.STRL "Universal Tool"
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?UNIVERSAL
+        .BYTE A?TIP'S
+        .BYTE A?RANDALL
+	.PROP 2,P?SYNONYM
+	W?TOOL
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TOOL-F
+	.BYTE	0
+	.ENDT
+
+T?ALARM::	.TABLE			; TABLE FOR OBJECT ALARM
+	.STRL "alarm bell"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ALARM-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?VIDEOPHONE
+        .BYTE A?ALARM
+        .BYTE A?WARNING
+	.PROP 4,P?SYNONYM
+	W?ALARM
+	W?BELL
+	.BYTE	0
+	.ENDT
+
+T?FREIGHTER::	.TABLE			; TABLE FOR OBJECT FREIGHTER
+	.STRL "ship"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	FREIGHTER-F
+	.PROP 6,P?SYNONYM
+	W?FREIGHTER
+	W?SHIP
+	W?KEEL
+	.BYTE	0
+	.ENDT
+
+T?MAGAZINE::	.TABLE			; TABLE FOR OBJECT MAGAZINE
+	.STRL "magazine"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MAGAZINE-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?TIP'S
+        .BYTE A?RANDALL
+        .BYTE A?MAGAZINE
+        .BYTE A?MAG
+	.PROP 8,P?SYNONYM
+	W?MAGAZINE
+	W?MAG
+	W?COVER
+	W?NEWSPAPER
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.BYTE	0
+	.ENDT
+
+T?ENGINE-ACCESS-HATCH::	.TABLE			; TABLE FOR OBJECT ENGINE-ACCESS-HATCH
+	.STRL "access panel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ENGINE-ACCESS-HATCH-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?ENGINE
+        .BYTE A?ACCESS
+        .BYTE A?STENCIL
+	.PROP 4,P?SYNONYM
+	W?PANEL
+	W?SIGN
+	.BYTE	0
+	.ENDT
+
+T?CAPSULE-LEVER::	.TABLE			; TABLE FOR OBJECT CAPSULE-LEVER
+	.STRL "reactor lever"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CAPSULE-LEVER-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?CAPSULE
+        .BYTE A?INSERT
+        .BYTE A?REACTOR
+	.PROP 4,P?SYNONYM
+	W?LEVER
+	W?HANDLE
+	.BYTE	0
+	.ENDT
+
+T?VOLTAGE-REGULATOR::	.TABLE			; TABLE FOR OBJECT VOLTAGE-REGULATOR
+	.STRL "voltage regulator"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	VOLTAGE-REGULATOR-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?VOLTAGE
+	.PROP 2,P?SYNONYM
+	W?REGULATOR
+	.BYTE	0
+	.ENDT
+
+T?DEPTH::	.TABLE			; TABLE FOR OBJECT DEPTH
+	.STRL "present depth"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DEPTH-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?PRESENT
+        .BYTE A?CURRENT
+        .BYTE A?SUB'S
+        .BYTE A?SUBMARINE
+	.PROP 2,P?SYNONYM
+	W?DEPTH
+	.BYTE	0
+	.ENDT
+
+T?DIARY::	.TABLE			; TABLE FOR OBJECT DIARY
+	.STRL "diary"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DIARY-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+	.PROP 2,P?SYNONYM
+	W?DIARY
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+T?CHEMICAL-SUPPLY-SHELVES::	.TABLE			; TABLE FOR OBJECT CHEMICAL-SUPPLY-SHELVES
+	.STRL "chemical supply shelf"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CHEMICAL-SUPPLY-SHELVES-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?CHEMICAL
+        .BYTE A?SUPPLY
+	.PROP 4,P?SYNONYM
+	W?SHELF
+	W?SHELVES
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	15
+	.BYTE	0
+	.ENDT
+
+T?CLAW::	.TABLE			; TABLE FOR OBJECT CLAW
+	.STRL "extensor claw"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CLAW-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?EXTENSOR
+        .BYTE A?EXTENDER
+        .BYTE A?SCIMITAR
+	.PROP 8,P?SYNONYM
+	W?CLAW
+	W?CLAWS
+	W?ARM
+	W?ARMS
+	.BYTE	0
+	.ENDT
+
+T?AIR-SUPPLY-SYSTEM-GLOBAL::	.TABLE			; TABLE FOR OBJECT AIR-SUPPLY-SYSTEM-GLOBAL
+	.STRL "Air Supply System"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIR-SUPPLY-SYSTEM-F
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?AIR
+        .BYTE A?OXYGEN
+        .BYTE A?SUPPLY
+        .BYTE A?AQUADOME
+        .BYTE A?DOME
+        .BYTE A?STATION
+	.PROP 8,P?SYNONYM
+	W?SUPPLY
+	W?SYSTEM
+	W?CYLINDER
+	W?HOUSING
+	.BYTE	0
+	.ENDT
+
+T?MENS-FURNITURE::	.TABLE			; TABLE FOR OBJECT MENS-FURNITURE
+	.STRL "furniture"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RANDOM-PSEUDO
+	.PROP 8,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?HORVAK
+        .BYTE A?MARV'S
+        .BYTE A?SIEGEL
+        .BYTE A?MICK'S
+        .BYTE A?ANTRIM
+        .BYTE A?BILL'S
+        .BYTE A?GREENUP
+	.PROP 8,P?SYNONYM
+	W?TABLE
+	W?BUNK
+	W?BED
+	W?FURNITURE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-FURNITURE-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	13
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-ADMIN-BLDG::	.TABLE			; TABLE FOR OBJECT OUTSIDE-ADMIN-BLDG
+	.STRL "southeast deck"
+	.PROP 1,P?NORTH
+	.BYTE OUTSIDE-COMM-BLDG
+	.PROP 5,P?EAST			; DOOR EXIT
+	.BYTE BLY-OFFICE				; ROOM NAME
+	.BYTE BLY-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE DOME-STORAGE				; ROOM NAME
+	.BYTE DOME-STORAGE-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?WEST
+	.BYTE FOOT-OF-RAMP
+	.PROP 1,P?NW
+	.BYTE CENTER-OF-DOME
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUTSIDE-ADMIN-BLDG-F
+	.PROP 3,P?GLOBAL
+        .BYTE BLY-DOOR
+        .BYTE DOME-STORAGE-DOOR
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+	.PROP 7,P?ADJECTIVE
+        .BYTE A?SE
+        .BYTE A?ADMIN
+        .BYTE A?ADMINI
+        .BYTE A?BLDG
+        .BYTE A?BUILDI
+        .BYTE A?OFFICE
+        .BYTE A?STORAGE
+	.PROP 6,P?SYNONYM
+	W?DECK
+	W?PORCH
+	W?ENTRANCE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	9344
+	.BYTE	0
+	.ENDT
+
+T?GREENUP::	.TABLE			; TABLE FOR OBJECT GREENUP
+	.STRL "Bill Greenup"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GREENUP-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?BILL
+	.PROP 8,P?SYNONYM
+	W?BILL
+	W?GREENUP
+	W?DIVER
+	W?TECHNICIAN
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	GREENUP-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	9
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-RAMP::	.TABLE			; TABLE FOR OBJECT AIRLOCK-RAMP
+	.STRL "docking tank ramp"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-RAMP-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?AIRLOCK
+	.PROP 2,P?SYNONYM
+	W?RAMP
+	.BYTE	0
+	.ENDT
+
+T?BADGE-TIP::	.TABLE			; TABLE FOR OBJECT BADGE-TIP
+	.STRL "Tip's badge"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BADGE-PLAYER-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?THIS
+        .BYTE A?SPECIAL
+        .BYTE A?IDENTIFY
+        .BYTE A?TIP'S
+        .BYTE A?RANDALL
+	.PROP 2,P?SYNONYM
+	W?BADGE
+	.BYTE	0
+	.ENDT
+
+T?DART::	.TABLE			; TABLE FOR OBJECT DART
+	.STRL "dart gun"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	DART-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?AQUATIC
+        .BYTE A?DART
+        .BYTE A?TRANQUILIZER
+        .BYTE A?TRANK
+	.PROP 6,P?SYNONYM
+	W?DART
+	W?GUN
+	W?WEAPON
+	.PROP 2,P?LDESC			; STRING PROPERTY
+	STR?54
+	.BYTE	0
+	.ENDT
+
+T?CATALYST-CAPSULE::	.TABLE			; TABLE FOR OBJECT CATALYST-CAPSULE
+	.STRL "catalyst capsule"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CATALYST-CAPSULE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?CATALYST
+	.PROP 2,P?SYNONYM
+	W?CAPSULE
+	.PROP 2,P?SIZE			; INTEGER/CONSTANT PROPERTY
+
+	11
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-HERE::	.TABLE			; TABLE FOR OBJECT GLOBAL-HERE
+	.STRL "here"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-HERE-F
+	.PROP 8,P?SYNONYM
+	W?HERE
+	W?AREA
+	W?ROOM
+	W?PLACE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-TANK-F
+	.BYTE	0
+	.ENDT
+
+T?HORVAK-KEY::	.TABLE			; TABLE FOR OBJECT HORVAK-KEY
+	.STRL "Horvak's key"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HORVAK-KEY-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+        .BYTE A?LOCKER
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.BYTE	0
+	.ENDT
+
+T?SIEGEL::	.TABLE			; TABLE FOR OBJECT SIEGEL
+	.STRL "Marv Siegel"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SIEGEL-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?MARV
+        .BYTE A?SONAR
+        .BYTE A?ELECTR
+	.PROP 8,P?SYNONYM
+	W?MARV
+	W?SIEGEL
+	W?OPERATOR
+	W?EXPERT
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	SIEGEL-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	8
+	.BYTE	0
+	.ENDT
+
+T?SNARK::	.TABLE			; TABLE FOR OBJECT SNARK
+	.STRL "Snark"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	THORPE-SUB-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?SEA
+        .BYTE A?THIS
+        .BYTE A?HUGE
+	.PROP 8,P?SYNONYM
+	W?SNARK
+	W?MONSTER
+	W?SLUG
+	W?CREATURE
+	.BYTE	0
+	.ENDT
+
+T?CREW::	.TABLE			; TABLE FOR OBJECT CREW
+	.STRL "Aquadome crew"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CREW-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?AQUADOME
+        .BYTE A?ENTIRE
+	.PROP 4,P?SYNONYM
+	W?CREW
+	W?DIVERS
+	.BYTE	0
+	.ENDT
+
+T?MECHANICAL-SUPPLY-SHELVES::	.TABLE			; TABLE FOR OBJECT MECHANICAL-SUPPLY-SHELVES
+	.STRL "mechanical supply shelf"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MECHANICAL-SUPPLY-SHELVES-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?MECHANICAL
+        .BYTE A?SUPPLY
+	.PROP 4,P?SYNONYM
+	W?SHELF
+	W?SHELVES
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	15
+	.BYTE	0
+	.ENDT
+
+T?TURN::	.TABLE			; TABLE FOR OBJECT TURN
+	.STRL "turn"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TURN-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?NUMBER
+        .BYTE A?FULL
+	.PROP 6,P?SYNONYM
+	W?TURN
+	W?TURNS
+	W?MINUTE
+	.BYTE	0
+	.ENDT
+
+T?BLY-PLAN::	.TABLE			; TABLE FOR OBJECT BLY-PLAN
+	.STRL "Bly's plan"
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?HER
+        .BYTE A?ZOE'S
+        .BYTE A?BLY'S
+	.PROP 2,P?SYNONYM
+	W?PLAN
+	.BYTE	0
+	.ENDT
+
+T?WHALE::	.TABLE			; TABLE FOR OBJECT WHALE
+	.STRL "whale"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	WHALE-F
+	.PROP 2,P?SYNONYM
+	W?WHALE
+	.BYTE	0
+	.ENDT
+
+T?MENS-LOCKER::	.TABLE			; TABLE FOR OBJECT MENS-LOCKER
+	.STRL "other locker"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	RANDOM-PSEUDO
+	.PROP 7,P?ADJECTIVE
+        .BYTE A?OTHER
+        .BYTE A?MARV'S
+        .BYTE A?SIEGEL
+        .BYTE A?MICK'S
+        .BYTE A?ANTRIM
+        .BYTE A?BILL'S
+        .BYTE A?GREENUP
+	.PROP 2,P?SYNONYM
+	W?LOCKER
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-FURNITURE-F
+	.BYTE	0
+	.ENDT
+
+T?GALLEY-DOOR::	.TABLE			; TABLE FOR OBJECT GALLEY-DOOR
+	.STRL "galley door"
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?GALLEY
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?MICROPHONE::	.TABLE			; TABLE FOR OBJECT MICROPHONE
+	.STRL "microphone"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	MICROPHONE-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	1
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?MY
+        .BYTE A?HAND
+	.PROP 4,P?SYNONYM
+	W?MIKE
+	W?MICROPHONE
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-MICROPHONE-F
+	.PROP 2,P?FDESC			; STRING PROPERTY
+	STR?114
+	.BYTE	0
+	.ENDT
+
+T?METER::	.TABLE			; TABLE FOR OBJECT METER
+	.STRL "meter"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	METER-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?NUMBER
+	.PROP 8,P?SYNONYM
+	W?METER
+	W?METERS
+	W?METRES
+	W?M
+	.BYTE	0
+	.ENDT
+
+T?COMM-BLDG::	.TABLE			; TABLE FOR OBJECT COMM-BLDG
+	.STRL "comm center"
+	.PROP 5,P?SOUTH			; DOOR EXIT
+	.BYTE OUTSIDE-COMM-BLDG				; ROOM NAME
+	.BYTE COMM-BLDG-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?OUT			; DOOR EXIT
+	.BYTE OUTSIDE-COMM-BLDG				; ROOM NAME
+	.BYTE COMM-BLDG-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	COMM-BLDG-F
+	.PROP 8,P?GLOBAL
+        .BYTE WINDOW
+        .BYTE CHAIR
+        .BYTE COMM-BLDG-DOOR
+        .BYTE TEST-BUTTON
+        .BYTE CONTROLS
+        .BYTE VIDEOPHONE
+        .BYTE VIDEOPHONE-2
+        .BYTE ALARM
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?COMM
+        .BYTE A?COMMUN
+        .BYTE A?SONAR
+	.PROP 8,P?SYNONYM
+	W?CENTER
+	W?CENTRE
+	W?AREA
+	W?ROOM
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-CENTER-F
+	.BYTE	0
+	.ENDT
+
+T?SPECIAL-TOOL::	.TABLE			; TABLE FOR OBJECT SPECIAL-TOOL
+	.STRL "special Fram Bolt Wrench"
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?75
+	.PROP 7,P?ADJECTIVE
+        .BYTE A?SPECIAL
+        .BYTE A?FRAM
+        .BYTE A?BOLT
+        .BYTE A?ODD
+        .BYTE A?ODDLY
+        .BYTE A?SHAPED
+        .BYTE A?METALLIC
+	.PROP 4,P?SYNONYM
+	W?WRENCH
+	W?OBJECT
+	.BYTE	0
+	.ENDT
+
+T?AQUADOME::	.TABLE			; TABLE FOR OBJECT AQUADOME
+	.STRL "Aquadome"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AQUADOME-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?UNDERSEA
+        .BYTE A?UNDERWATER
+        .BYTE A?RESEARCH
+        .BYTE A?AQUA
+        .BYTE A?PLASTIC
+        .BYTE A?TRANSPARENT
+	.PROP 6,P?SYNONYM
+	W?AQUADOME
+	W?DOME
+	W?STATION
+	.BYTE	0
+	.ENDT
+
+T?HYDROPHONE::	.TABLE			; TABLE FOR OBJECT HYDROPHONE
+	.STRL "hydrophone"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	HYDROPHONE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?HYDROPHONE
+        .BYTE A?LISTEN
+	.PROP 4,P?SYNONYM
+	W?HYDROPHONE
+	W?DEVICE
+	.BYTE	0
+	.ENDT
+
+T?EXERCISE-TRACK::	.TABLE			; TABLE FOR OBJECT EXERCISE-TRACK
+	.STRL "exercise track"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	EXERCISE-TRACK-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?RUNNING
+        .BYTE A?JOGGING
+        .BYTE A?EXERCISE
+	.PROP 2,P?SYNONYM
+	W?TRACK
+	.BYTE	0
+	.ENDT
+
+T?SEA-WALL::	.TABLE			; TABLE FOR OBJECT SEA-WALL
+	.STRL "sea wall"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SEA-WALL-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?SEA
+	.PROP 2,P?SYNONYM
+	W?WALL
+	.BYTE	0
+	.ENDT
+
+T?REACTOR-SWITCH::	.TABLE			; TABLE FOR OBJECT REACTOR-SWITCH
+	.STRL "reactor starter"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	REACTOR-SWITCH-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?REACTOR
+	.PROP 4,P?SYNONYM
+	W?STARTER
+	W?BUTTON
+	.BYTE	0
+	.ENDT
+
+T?POWER-SUPPLY::	.TABLE			; TABLE FOR OBJECT POWER-SUPPLY
+	.STRL "power"
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?POWER
+	.PROP 2,P?SYNONYM
+	W?SUPPLY
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-EXPLOSIVE::	.TABLE			; TABLE FOR OBJECT GLOBAL-EXPLOSIVE
+	.STRL "explosive charge"
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?SOME
+        .BYTE A?EXPLOSIVE
+	.PROP 4,P?SYNONYM
+	W?EXPLOSIVE
+	W?CHARGE
+	.BYTE	0
+	.ENDT
+
+T?LAB-ASSISTANT::	.TABLE			; TABLE FOR OBJECT LAB-ASSISTANT
+	.STRL "lab assistant"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	LAB-ASSISTANT-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?DOC'S
+        .BYTE A?WALT'S
+        .BYTE A?HORVAK
+        .BYTE A?LAB
+	.PROP 2,P?SYNONYM
+	W?ASSISTANT
+	.BYTE	0
+	.ENDT
+
+T?CIRCUIT-BREAKER::	.TABLE			; TABLE FOR OBJECT CIRCUIT-BREAKER
+	.STRL "circuit breaker"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	CIRCUIT-BREAKER-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	3
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?THIS
+        .BYTE A?CIRCUIT
+        .BYTE A?OPEN
+	.PROP 6,P?SYNONYM
+	W?BREAKER
+	W?CIRCUIT
+	W?SWITCH
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	0
+	.BYTE	0
+	.ENDT
+
+T?OBJECT-PAIR::	.TABLE			; TABLE FOR OBJECT OBJECT-PAIR
+	.STRL "such things"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OBJECT-PAIR-F
+	.BYTE	0
+	.ENDT
+
+T?SUB-DOOR::	.TABLE			; TABLE FOR OBJECT SUB-DOOR
+	.STRL "entry hatch"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SUB-DOOR-F
+	.PROP 5,P?ADJECTIVE
+        .BYTE A?ENTRY
+        .BYTE A?BIOCEPTOR
+        .BYTE A?SUB
+        .BYTE A?SUBMARINE
+        .BYTE A?SCIMITAR
+	.PROP 8,P?SYNONYM
+	W?DOOR
+	W?HATCH
+	W?TOP
+	W?ENTRANCE
+	.BYTE	0
+	.ENDT
+
+T?TEST-BUTTON::	.TABLE			; TABLE FOR OBJECT TEST-BUTTON
+	.STRL "test button"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	TEST-BUTTON-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?TEST
+	.PROP 4,P?SYNONYM
+	W?BUTTON
+	W?SWITCH
+	.BYTE	0
+	.ENDT
+
+T?EAST-DOORWAY::	.TABLE			; TABLE FOR OBJECT EAST-DOORWAY
+	.STRL "lab door"
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?LAB
+        .BYTE A?LABORATORY
+        .BYTE A?SLIDING
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?DOORWAY
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-ROOF::	.TABLE			; TABLE FOR OBJECT AIRLOCK-ROOF
+	.STRL "docking tank roof"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	AIRLOCK-ROOF-F
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCKING
+        .BYTE A?TANK
+        .BYTE A?AIRLOCK
+	.PROP 2,P?SYNONYM
+	W?ROOF
+	.BYTE	0
+	.ENDT
+
+T?BAY::	.TABLE			; TABLE FOR OBJECT BAY
+	.STRL "Frobton Bay"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	BAY-F
+	.PROP 2,P?VALUE			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?FROBTON
+	.PROP 4,P?SYNONYM
+	W?BAY
+	W?SURFACE
+	.BYTE	0
+	.ENDT
+
+T?ARM::	.TABLE			; TABLE FOR OBJECT ARM
+	.STRL "your arm"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ARM-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?MY
+	.PROP 2,P?SYNONYM
+	W?ARM
+	.BYTE	0
+	.ENDT
+
+T?KEMP-DESK::	.TABLE			; TABLE FOR OBJECT KEMP-DESK
+	.STRL "Kemp's desk"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	KEMP-DESK-F
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?SHARON
+        .BYTE A?KEMP'S
+	.PROP 2,P?SYNONYM
+	W?DESK
+	.PROP 2,P?GENERIC			; ATOM (CONSTANT) PROPERTY
+
+	GENERIC-DESK-F
+	.PROP 2,P?CAPACITY			; INTEGER/CONSTANT PROPERTY
+
+	33
+	.BYTE	0
+	.ENDT
+
+T?ALARM-SUB::	.TABLE			; TABLE FOR OBJECT ALARM-SUB
+	.STRL "warning buzzer"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	ALARM-SUB-F
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?DEPTHFINDER
+        .BYTE A?DEPTH
+        .BYTE A?FINDER
+        .BYTE A?SONARSCOPE
+        .BYTE A?ALARM
+        .BYTE A?WARNING
+	.PROP 4,P?SYNONYM
+	W?ALARM
+	W?BUZZER
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-THORPE::	.TABLE			; TABLE FOR OBJECT GLOBAL-THORPE
+	.STRL "Doctor Jerome Thorpe"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-THORPE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 3,P?ADJECTIVE
+        .BYTE A?DOCTOR
+        .BYTE A?DR
+        .BYTE A?JEROME
+	.PROP 4,P?SYNONYM
+	W?JEROME
+	W?THORPE
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	4
+	.BYTE	0
+	.ENDT
+
+T?PAPERS::	.TABLE			; TABLE FOR OBJECT PAPERS
+	.STRL "lot of business papers"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	PAPERS-F
+	.PROP 4,P?ADJECTIVE
+        .BYTE A?BUSINESS
+        .BYTE A?OFFICE
+        .BYTE A?SHARON
+        .BYTE A?KEMP'S
+	.PROP 6,P?SYNONYM
+	W?LOT
+	W?PAPERS
+	W?PAPER
+	.PROP 2,P?FDESC			; STRING PROPERTY
+	STR?112
+	.BYTE	0
+	.ENDT
+
+T?SUB-PLANS::	.TABLE			; TABLE FOR OBJECT SUB-PLANS
+	.STRL "diagram"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	SUB-PLANS-F
+	.PROP 1,P?ADJECTIVE
+        .BYTE A?CIRCUIT
+	.PROP 8,P?SYNONYM
+	W?DIAGRAM
+	W?BLUEPRINTS
+	W?PLAN
+	W?PLANS
+	.BYTE	0
+	.ENDT
+
+T?OUTSIDE-COMM-BLDG::	.TABLE			; TABLE FOR OBJECT OUTSIDE-COMM-BLDG
+	.STRL "northeast deck"
+	.PROP 5,P?NORTH			; DOOR EXIT
+	.BYTE COMM-BLDG				; ROOM NAME
+	.BYTE COMM-BLDG-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 5,P?EAST			; DOOR EXIT
+	.BYTE GALLEY				; ROOM NAME
+	.BYTE GALLEY-DOOR			; DOOR NAME
+	.WORD 0
+	.BYTE 0				; STRING TO PRINT
+	.PROP 1,P?SOUTH
+	.BYTE OUTSIDE-ADMIN-BLDG
+	.PROP 1,P?SW
+	.BYTE CENTER-OF-DOME
+	.PROP 1,P?WEST
+	.BYTE OUTSIDE-WORKSHOP
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	OUTSIDE-COMM-BLDG-F
+	.PROP 3,P?GLOBAL
+        .BYTE AIR-SUPPLY-SYSTEM-GLOBAL
+        .BYTE COMM-BLDG-DOOR
+        .BYTE GALLEY-DOOR
+	.PROP 6,P?ADJECTIVE
+        .BYTE A?NE
+        .BYTE A?COMM
+        .BYTE A?COMMUN
+        .BYTE A?BLDG
+        .BYTE A?BUILDI
+        .BYTE A?GALLEY
+	.PROP 6,P?SYNONYM
+	W?DECK
+	W?PORCH
+	W?ENTRANCE
+	.PROP 2,P?CORRIDOR			; INTEGER/CONSTANT PROPERTY
+
+	12544
+	.BYTE	0
+	.ENDT
+
+T?PSEUDO-OBJECT::	.TABLE			; TABLE FOR OBJECT PSEUDO-OBJECT
+	.STRL "pseudo"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	NULL-F
+	.PROP 2,P?CONTFCN			; ATOM (CONSTANT) PROPERTY
+
+	NULL-F
+	.BYTE	0
+	.ENDT
+
+T?THROTTLE::	.TABLE			; TABLE FOR OBJECT THROTTLE
+	.STRL "throttle"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	THROTTLE-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 4,P?SYNONYM
+	W?THROTTLE
+	W?SPEED
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-BLY::	.TABLE			; TABLE FOR OBJECT GLOBAL-BLY
+	.STRL "Commander Bly"
+	.PROP 2,P?ACTION			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-BLY-F
+	.PROP 2,P?TEXT			; STRING PROPERTY
+	STR?26
+	.PROP 2,P?ADJECTIVE
+        .BYTE A?COMMANDER
+        .BYTE A?ZOE
+	.PROP 6,P?SYNONYM
+	W?COMMANDER
+	W?ZOE
+	W?BLY
+	.PROP 2,P?DESCFCN			; ATOM (CONSTANT) PROPERTY
+
+	GLOBAL-BLY-F
+	.PROP 2,P?CHARACTER			; INTEGER/CONSTANT PROPERTY
+
+	5
+	.BYTE	0
+	.ENDT
+
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR HERE=0
+	.GVAR SCORE=0
+	.GVAR MOVES=0
+	.GVAR BAY-TERRAIN=T?50
+	.GVAR THORPE-DLAT=1
+	.GVAR SUPER-BRIEF=0
+	.GVAR SUB-LAT=9
+	.GVAR VERBOSE=0
+	.GVAR THORPE-DLON=-1
+	.GVAR P-BUTS=T?89
+	.GVAR P-WHAT-IGNORED=0
+	.GVAR THORPE-HLAT=1
+	.GVAR REMOTE-PERSON=0
+	.GVAR P-HIM-OBJECT=0
+	.GVAR P-DIR=0
+	.GVAR P-ACLAUSE=0
+	.GVAR P-CSPTR=0
+	.GVAR LAT-AIMED-AT=T?54
+	.GVAR THORPE-HLON=-1
+	.GVAR P-SLOCBITS=0
+	.GVAR COR-4000=T?69
+	.GVAR SNARK-HLAT=1
+	.GVAR P-MATCHLEN=0
+	.GVAR GREENUP-GUILT=0
+	.GVAR P-ADVERB=0
+	.GVAR SNARK-LAT=-1
+	.GVAR COR-2000=T?70
+	.GVAR COR-64=T?74
+	.GVAR COR-1000=T?71
+	.GVAR OPENED-GATE-FROM-SUB=0
+	.GVAR TIP-PICKS=T?63
+	.GVAR ALARM-RINGING=1
+	.GVAR CLOCK-WAIT=0
+	.GVAR P-OTBL=T?85
+	.GVAR ZOE-MENTIONED-EVIDENCE=0
+	.GVAR TIP-FLASHED=0
+	.GVAR P-NAM=0
+	.GVAR C-TABLE=T?81
+	.GVAR DOME-AIR-CRIME=0
+	.GVAR P-XNAM=0
+	.GVAR OLD-OBSTACLE?=0
+	.GVAR P-MOBY-FOUND=0
+	.GVAR NOW-TERRAIN=0
+	.GVAR WARNINGS-USED=0
+	.GVAR P-WALK-DIR=0
+	.GVAR P-ANAM=0
+	.GVAR SPEEDBOAT-WARNING-GIVEN?=0
+	.GVAR SCREEN-NOW-SPLIT=0
+	.GVAR LAST-NAME=T?60
+	.GVAR URS=STR?64
+	.GVAR TEST-TANK-FULL=0
+	.GVAR LAST-PSEUDO-LOC=0
+	.GVAR THROTTLE-DESCS=T?52
+	.GVAR BLY-TOLD-PROBLEM=0
+	.GVAR GREENUP-ESCAPE=0
+	.GVAR SIEGEL-TESTED=0
+	.GVAR P-CEPTR=0
+	.GVAR P-CONT=0
+	.GVAR NOW-PRSI=0
+	.GVAR TBL5-MASK=T?2
+	.GVAR P-PRSI=T?88
+	.GVAR P-DIRECTION=0
+	.GVAR SUB-STILL-HEADING=0
+	.GVAR SHARON-ASKED=T?64
+	.GVAR TARGET-DEPTH=0
+	.GVAR HORVAK-FIXED-AIR=0
+	.GVAR FUMBLE-NUMBER=7
+	.GVAR BREAKER-JUST-FIXED=0
+	.GVAR EVER-SUBMERGED?=0
+	.GVAR ANTRIM-CHECKED-SUB=0
+	.GVAR COR-400=T?72
+	.GVAR LIT=0
+	.GVAR WARNINGS-THIS-TURN=T?51
+	.GVAR FREIGHTER-LAT=0
+	.GVAR ZOE-BLUSHING=0
+	.GVAR ANTRIM-EXPLODED=0
+	.GVAR ALREADY-SHOT=T?56
+	.GVAR COR-200=T?73
+	.GVAR YES-LEXV=T?93
+	.GVAR SHARON-BROKE-CIRCUIT=0
+	.GVAR P-VTBL=T?86
+	.GVAR P-XADJN=0
+	.GVAR SUB-LON=2
+	.GVAR YES-INBUF=T?92
+	.GVAR IN-DOME-AROUND=T?58
+	.GVAR TIP-SAYS-1=0
+	.GVAR TIP-FOLLOWS-YOU?=1
+	.GVAR P-ADJ=0
+	.GVAR TIP-SAYS-2=0
+	.GVAR BLY-HEARD-ANTRIM=0
+	.GVAR SEA-TERRAIN=1
+	.GVAR P-LEN=0
+	.GVAR BLY-PRIVATELY-DELAY=0
+	.GVAR JOYSTICK-DIR=25
+	.GVAR TOLD-SNARK-WENT=0
+	.GVAR C-INTS=222
+	.GVAR P-LEXV=T?82
+	.GVAR TIP-PLAYS=0
+	.GVAR THORPE-TURNING?=0
+	.GVAR FIRST-NAME=T?59
+	.GVAR RANKS=T?98
+	.GVAR THROTTLE-SETTING=0
+	.GVAR AIRLOCK-FULL=1
+	.GVAR COR-16=T?76
+	.GVAR FN-SPACE=0
+	.GVAR FINE-SONAR=0
+	.GVAR SNARK-ATTACK-COUNT=0
+	.GVAR COR-20000=T?67
+	.GVAR DIR-STRINGS=T?66
+	.GVAR DEBUG=0
+	.GVAR DIVING?=0
+	.GVAR COR-10000=T?68
+	.GVAR PRSO=0
+	.GVAR LOOKED-AT-SONAR=0
+	.GVAR P-MERGED=0
+	.GVAR P-GWIMBIT=0
+	.GVAR SONAR-LAT=0
+	.GVAR P-OCLAUSE=T?91
+	.GVAR FAILED=STR?128
+	.GVAR P-SYNTAX=0
+	.GVAR P-XADJ=0
+	.GVAR RECONSIDER?=STR?196
+	.GVAR NAME-OUTLEN=0
+	.GVAR SNARK-HLON=-1
+	.GVAR GREENUP-CUFFED=0
+	.GVAR ITAKE-LOC=0
+	.GVAR REMOTE-PERSON-ON=0
+	.GVAR P-AADJ=0
+	.GVAR PRSA=0
+	.GVAR DISTANCE-FROM-BAY=0
+	.GVAR WHY-ME=T?65
+	.GVAR P-PRSO=T?87
+	.GVAR WARNINGS-RTRUE=0
+	.GVAR GATE-CRASHED=0
+	.GVAR FREIGHTER-COUNT=0
+	.GVAR P-AND=0
+	.GVAR ON-SUB=T?57
+	.GVAR SONAR-LON=0
+	.GVAR REGULATOR-MSG-SEEN=0
+	.GVAR P-ONEOBJ=0
+	.GVAR FREIGHTER-DLON=0
+	.GVAR OFFENDED=T?1
+	.GVAR LON-AIMED-AT=T?53
+	.GVAR P-INBUF=T?83
+	.GVAR SONAR-WARNING=0
+	.GVAR P-MERGE=T?90
+	.GVAR LEFT-DOME=0
+	.GVAR P-WON=0
+	.GVAR WOMAN-ON-SCREEN=0
+	.GVAR SUB-DLON=0
+	.GVAR BLACK-BOX-EXAMINED=0
+	.GVAR CIRCUIT-TEMP=0
+	.GVAR BLY-SAW-PHOTO=0
+	.GVAR CIRCUIT-RED=0
+	.GVAR SUB-IN-DOME=0
+	.GVAR QCONTEXT=0
+	.GVAR SNARK-LON=1
+	.GVAR GLOBAL-CHARACTER-TABLE=T?62
+	.GVAR WHO-CARES=T?96
+	.GVAR WHO-WAIT=0
+	.GVAR P-ITBL=T?84
+	.GVAR QUOTE-FLAG=0
+	.GVAR HORVAK-TOLD-AH=0
+	.GVAR P-TABLE=0
+	.GVAR LN-SPACE=0
+	.GVAR P-GETFLAGS=0
+	.GVAR SUB-DEPTH=0
+	.GVAR YUKS=T?97
+	.GVAR SHIP-WARNING=0
+	.GVAR BADGES-RED-SAID?=0
+	.GVAR AUTOMATIC-SONAR=0
+	.GVAR FREIGHTER-DLAT=0
+	.GVAR THORPE-LON=0
+	.GVAR SNARK-TRANKED=0
+	.GVAR INDENTS=T?95
+	.GVAR FUMBLE-PROB=8
+	.GVAR CIRCUIT-TIP=0
+	.GVAR P-NUMBER=-1
+	.GVAR P-SPACE=1
+	.GVAR P-OFLAG=0
+	.GVAR THORPE-LAT=0
+	.GVAR WINNER=0
+	.GVAR P-ADJN=0
+	.GVAR QCONTEXT-ROOM=0
+	.GVAR COR-32=T?75
+	.GVAR REMOTE-PERSON-LOC=0
+	.GVAR COR-8=T?77
+	.GVAR P-CCSRC=0
+	.GVAR SONAR-DIR=0
+	.GVAR REMOTE-PERSON-REMLOC=0
+	.GVAR DEPTH-WARNING=0
+	.GVAR OBJ-AIMED-AT=T?55
+	.GVAR SUB-IN-BATTLE=0
+	.GVAR TBL5-SHIFT=T?3
+	.GVAR COR-4=T?78
+	.GVAR COR-2=T?79
+	.GVAR P-IT-OBJECT=0
+	.GVAR HO-HUM=T?94
+	.GVAR COR-1=T?80
+	.GVAR OLD-HERE=0
+	.GVAR LOW-DIRECTION=20
+	.GVAR SHARON-EXPLAINED=0
+	.GVAR P-PROMPT=2
+	.GVAR SUB-IN-TANK=1
+	.GVAR DOME-AIR-BAD?=0
+	.GVAR PRSI=0
+	.GVAR FREIGHTER-LON=0
+	.GVAR BLY-WELCOMED=0
+	.GVAR MONSTER-GONE=0
+	.GVAR WHALE-HEARD=0
+	.GVAR SONAR-DEP=0
+	.GVAR CHARACTER-TABLE=T?61
+	.GVAR QUESTION-WORD-COUNT=0
+	.GVAR SUB-IN-OPEN-SEA=0
+	.GVAR BLY-CALLING=0
+	.GVAR SIEGEL-OUT-OF-SIGHT=0
+	.GVAR I-ASSUME=STR?137
+	.GVAR TEST-BUTTON-READOUT=1
+	.GVAR SUB-DLAT=0
+	.GVAR P-NCN=0
+	.GVAR P-HER-OBJECT=0
+	.GVAR ASKED-ANTRIM=0
+	.GVAR HELP-TEXT=STR?160
+	.GVAR GREENUP-TRAPPED=0
+	.GVAR BLY-PRIVATELY-COUNT=0
+	.GVAR PREPOSITIONS=PRTBL
+	.GVAR ACTIONS=ATBL
+	.GVAR PREACTIONS=PATBL
+	.GVAR VERBS=VTBL
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+T?51::	.TABLE
+	18
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?53::	.TABLE
+	0
+	0
+	.ENDT
+
+T?54::	.TABLE
+	0
+	0
+	.ENDT
+
+T?55::	.TABLE
+	0
+	0
+	.ENDT
+
+T?56::	.TABLE
+	0
+	0
+	.ENDT
+
+T?57::	.TABLE
+	0
+	0
+	.ENDT
+
+T?59::	.TABLE
+	4864
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?60::	.TABLE
+	4864
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?81::	.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
+	.ENDT
+
+T?82::	.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?83::	.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?84::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?85::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?86::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?87::	.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?88::	.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?89::	.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?90::	.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?91::	.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?92::	.TABLE
+	3072
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?93::	.TABLE
+	2560
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; END OF PURENESS
+
+IMPURE::
+
+
+
+; VERB TABLE IS DEFINED HERE
+
+VTBL::	.TABLE
+	ST?KISS
+	ST?I
+	ST?PULL
+	ST?BRING
+	ST?VERBOSE
+	ST?WALK
+	ST?DISCUSS
+	ST?QUIT
+	ST?FIND
+	ST?YES
+	ST?STOP
+	ST?MATCH
+	ST?UNLOCK
+	ST?READ
+	ST?CONFRONT
+	ST?SAY
+	ST?WAIT
+	ST?DIVE
+	ST?TAKE
+	ST?NO
+	ST?RAISE
+	ST?CALL
+	ST?FOLLOW
+	ST?GOODBYE
+	ST?#DBG
+	ST?MOVE
+	ST?ARREST
+	ST?PLAY
+	ST?OPEN
+	ST?NAME
+	ST?KNOCK
+	ST?INVENT
+	ST?PICK
+	ST?SMOKE
+	ST?APPLY
+	ST?AIM
+	ST?STAND
+	ST?LISTEN
+	ST?TIE
+	ST?SHOW
+	ST?NOD
+	ST?HELP
+	ST?SAVE
+	ST?TELL
+	ST?THROW
+	ST?RISE
+	ST?USE
+	ST?HIDE
+	ST?ATTACK
+	ST?DAMAGE
+	ST?KILL
+	ST?ENTER
+	ST?THANKS
+	ST?PLACE
+	ST?SEARCH
+	ST?SWITCH
+	ST?SWIM
+	ST?UNTIE
+	ST?PUMP
+	ST?CUT
+	ST?SET
+	ST?UNSCRIPT
+	ST?HANG
+	ST?BRUSH
+	ST?RING
+	ST?PUSH
+	ST?RUB
+	ST?SIT
+	ST?SUPER
+	ST?LEVEL
+	ST?SEND
+	ST?SCORE
+	ST?SLAP
+	ST?COME
+	ST?LOOK
+	ST?EMPTY
+	ST?DOCK
+	ST?SCREW
+	ST?DROP
+	ST?LEAVE
+	ST?HAND
+	ST?SCRIPT
+	ST?$VERIFY
+	ST?EXTINGUISH
+	ST?RESTART
+	ST?SMELL
+	ST?BRIEF
+	ST?DIAGNOSE
+	ST?SMILE
+	ST?WAKE
+	ST?DRINK
+	ST?ANSWER
+	ST?$CALL
+	ST?YELL
+	ST?LOCK
+	ST?ADJUST
+	ST?TURN
+	ST?START
+	ST?SURFACE
+	ST?TEST
+	ST?MAKE
+	ST?$BAY
+	ST?RESTORE
+	ST?CLOSE
+	ST?STRIKE
+	ST?FIX
+	ST?EXAMINE
+	ST?RELEASE
+	ST?EAT
+	ST?FIRE
+	ST?FILL
+	ST?FIT
+	ST?ARM
+	ST?CLIMB
+	ST?LAUNCH
+	ST?ASK
+	ST?HELLO
+	.ENDT
+
+; SYNTAX DEFINITION TABLES ARE DEFINED HERE
+
+ST?KISS::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 65
+	.ENDT
+
+ST?I::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63
+	.ENDT
+
+ST?PULL::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 81
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 82
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 81
+	.ENDT
+
+ST?BRING::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 22
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 23
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 22
+	.ENDT
+
+ST?VERBOSE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 142
+	.ENDT
+
+ST?WALK::	.TABLE
+	.BYTE 12
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 35
+	.BYTE 1
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 32
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 150
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 34
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.BYTE 2
+	.BYTE 0
+	.BYTE 238
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 149
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 28
+	.BYTE 1
+	.BYTE 239
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 1
+	.BYTE 240
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 148
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 147
+	.ENDT
+
+ST?DISCUSS::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 42
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 42
+	.ENDT
+
+ST?QUIT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 92
+	.ENDT
+
+ST?FIND::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 16
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.BYTE 0
+	.BYTE 54
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.BYTE 0
+	.BYTE 53
+	.ENDT
+
+ST?YES::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 154
+	.ENDT
+
+ST?STOP::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 125
+	.ENDT
+
+ST?MATCH::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 240
+	.BYTE 37
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 240
+	.BYTE 37
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 4
+	.BYTE 0
+	.BYTE 37
+	.ENDT
+
+ST?UNLOCK::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 137
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 137
+	.ENDT
+
+ST?READ::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 246
+	.BYTE 254
+	.BYTE 0
+	.BYTE 22
+	.BYTE 0
+	.BYTE 248
+	.BYTE 8
+	.BYTE 2
+	.BYTE 0
+	.BYTE 242
+	.BYTE 22
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 74
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 22
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 74
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 22
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 74
+	.ENDT
+
+ST?CONFRONT::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 38
+	.ENDT
+
+ST?SAY::	.TABLE
+	.BYTE 7
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 104
+	.BYTE 2
+	.BYTE 251
+	.BYTE 246
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 105
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 104
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 103
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 102
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 102
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 101
+	.ENDT
+
+ST?WAIT::	.TABLE
+	.BYTE 4
+	.BYTE 1
+	.BYTE 233
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 1
+	.BYTE 234
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 145
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 144
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 144
+	.ENDT
+
+ST?DIVE::	.TABLE
+	.BYTE 5
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 43
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 43
+	.BYTE 1
+	.BYTE 244
+	.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
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 43
+	.ENDT
+
+ST?TAKE::	.TABLE
+	.BYTE 12
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 68
+	.BYTE 1
+	.BYTE 237
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 46
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 30
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 28
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 29
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 46
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 28
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 27
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 23
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 130
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 23
+	.BYTE 0
+	.BYTE 12
+	.BYTE 0
+	.BYTE 129
+	.BYTE 2
+	.BYTE 0
+	.BYTE 249
+	.BYTE 23
+	.BYTE 26
+	.BYTE 100
+	.BYTE 0
+	.BYTE 88
+	.BYTE 2
+	.BYTE 0
+	.BYTE 245
+	.BYTE 23
+	.BYTE 0
+	.BYTE 100
+	.BYTE 0
+	.BYTE 88
+	.BYTE 2
+	.BYTE 0
+	.BYTE 241
+	.BYTE 23
+	.BYTE 0
+	.BYTE 100
+	.BYTE 0
+	.BYTE 88
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 23
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 88
+	.ENDT
+
+ST?NO::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 84
+	.ENDT
+
+ST?RAISE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 93
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 93
+	.ENDT
+
+ST?CALL::	.TABLE
+	.BYTE 6
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 25
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 2
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.ENDT
+
+ST?FOLLOW::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 35
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 35
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 35
+	.ENDT
+
+ST?GOODBYE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 58
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 58
+	.ENDT
+
+ST?#DBG::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 1
+	.ENDT
+
+ST?MOVE::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 82
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 81
+	.ENDT
+
+ST?ARREST::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 14
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 14
+	.ENDT
+
+ST?PLAY::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 89
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 89
+	.ENDT
+
+ST?OPEN::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 27
+	.BYTE 24
+	.BYTE 240
+	.BYTE 242
+	.BYTE 86
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 27
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 85
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 27
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 85
+	.ENDT
+
+ST?NAME::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 151
+	.ENDT
+
+ST?KNOCK::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 20
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 66
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 66
+	.ENDT
+
+ST?INVENT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 63
+	.ENDT
+
+ST?PICK::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 23
+	.BYTE 0
+	.BYTE 20
+	.BYTE 0
+	.BYTE 88
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 87
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 87
+	.ENDT
+
+ST?SMOKE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 124
+	.ENDT
+
+ST?APPLY::	.TABLE
+	.BYTE 1
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+ST?AIM::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 252
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 5
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 4
+	.ENDT
+
+ST?STAND::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 68
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 68
+	.ENDT
+
+ST?LISTEN::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 71
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 71
+	.ENDT
+
+ST?TIE::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 253
+	.BYTE 255
+	.BYTE 30
+	.BYTE 24
+	.BYTE 48
+	.BYTE 242
+	.BYTE 135
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 30
+	.BYTE 24
+	.BYTE 48
+	.BYTE 242
+	.BYTE 135
+	.BYTE 2
+	.BYTE 253
+	.BYTE 251
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 48
+	.BYTE 134
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 48
+	.BYTE 134
+	.ENDT
+
+ST?SHOW::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 119
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 118
+	.ENDT
+
+ST?NOD::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 60
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 60
+	.ENDT
+
+ST?HELP::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61
+	.ENDT
+
+ST?SAVE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 61
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 100
+	.ENDT
+
+ST?TELL::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 105
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 102
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 105
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 104
+	.ENDT
+
+ST?THROW::	.TABLE
+	.BYTE 6
+	.BYTE 2
+	.BYTE 0
+	.BYTE 242
+	.BYTE 0
+	.BYTE 30
+	.BYTE 194
+	.BYTE 48
+	.BYTE 133
+	.BYTE 2
+	.BYTE 0
+	.BYTE 238
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 252
+	.BYTE 0
+	.BYTE 30
+	.BYTE 194
+	.BYTE 48
+	.BYTE 132
+	.BYTE 1
+	.BYTE 236
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 46
+	.ENDT
+
+ST?RISE::	.TABLE
+	.BYTE 4
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 97
+	.BYTE 1
+	.BYTE 244
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 32
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 97
+	.ENDT
+
+ST?USE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 235
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 141
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 140
+	.ENDT
+
+ST?HIDE::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 62
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 12
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.ENDT
+
+ST?ATTACK::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 30
+	.BYTE 29
+	.BYTE 48
+	.BYTE 194
+	.BYTE 20
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 20
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 20
+	.ENDT
+
+ST?DAMAGE::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 243
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 200
+	.BYTE 40
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 200
+	.BYTE 40
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 40
+	.ENDT
+
+ST?KILL::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 30
+	.BYTE 29
+	.BYTE 48
+	.BYTE 194
+	.BYTE 64
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 64
+	.ENDT
+
+ST?ENTER::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 49
+	.ENDT
+
+ST?THANKS::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 131
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 131
+	.ENDT
+
+ST?PLACE::	.TABLE
+	.BYTE 6
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 91
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 46
+	.BYTE 2
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 62
+	.BYTE 2
+	.BYTE 0
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 26
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+ST?SEARCH::	.TABLE
+	.BYTE 5
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 110
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 110
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 53
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 111
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 110
+	.ENDT
+
+ST?SWITCH::	.TABLE
+	.BYTE 7
+	.BYTE 2
+	.BYTE 247
+	.BYTE 255
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 91
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 91
+	.BYTE 2
+	.BYTE 245
+	.BYTE 255
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 51
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 51
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 136
+	.ENDT
+
+ST?SWIM::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 128
+	.ENDT
+
+ST?UNTIE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 139
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 139
+	.ENDT
+
+ST?PUMP::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 48
+	.ENDT
+
+ST?CUT::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 39
+	.ENDT
+
+ST?SET::	.TABLE
+	.BYTE 6
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 31
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.ENDT
+
+ST?UNSCRIPT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 138
+	.ENDT
+
+ST?HANG::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 59
+	.ENDT
+
+ST?BRUSH::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 24
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 24
+	.ENDT
+
+ST?RING::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 96
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 96
+	.ENDT
+
+ST?PUSH::	.TABLE
+	.BYTE 6
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 90
+	.BYTE 2
+	.BYTE 0
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 62
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 82
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 90
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 82
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 52
+	.BYTE 0
+	.BYTE 90
+	.ENDT
+
+ST?RUB::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 10
+	.BYTE 98
+	.BYTE 2
+	.BYTE 0
+	.BYTE 238
+	.BYTE 0
+	.BYTE 0
+	.BYTE 10
+	.BYTE 0
+	.BYTE 99
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 10
+	.BYTE 0
+	.BYTE 99
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 98
+	.ENDT
+
+ST?SIT::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 120
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 120
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 120
+	.ENDT
+
+ST?SUPER::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 126
+	.ENDT
+
+ST?LEVEL::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 69
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 69
+	.ENDT
+
+ST?SEND::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 115
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 114
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 113
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 112
+	.ENDT
+
+ST?SCORE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 106
+	.ENDT
+
+ST?SLAP::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 121
+	.ENDT
+
+ST?COME::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 255
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 36
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 35
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 34
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 34
+	.ENDT
+
+ST?LOOK::	.TABLE
+	.BYTE 15
+	.BYTE 1
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 77
+	.BYTE 2
+	.BYTE 253
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 8
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 8
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 7
+	.BYTE 1
+	.BYTE 238
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 50
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 79
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 78
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 77
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 53
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 76
+	.BYTE 1
+	.BYTE 239
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 75
+	.BYTE 2
+	.BYTE 252
+	.BYTE 242
+	.BYTE 0
+	.BYTE 0
+	.BYTE 196
+	.BYTE 0
+	.BYTE 74
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 50
+	.BYTE 1
+	.BYTE 240
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 73
+	.ENDT
+
+ST?EMPTY::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 48
+	.ENDT
+
+ST?DOCK::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 44
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 44
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 44
+	.ENDT
+
+ST?SCREW::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 108
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 107
+	.ENDT
+
+ST?DROP::	.TABLE
+	.BYTE 4
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 46
+	.ENDT
+
+ST?LEAVE::	.TABLE
+	.BYTE 3
+	.BYTE 1
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 70
+	.ENDT
+
+ST?HAND::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 16
+	.BYTE 134
+	.BYTE 57
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 30
+	.BYTE 134
+	.BYTE 16
+	.BYTE 56
+	.ENDT
+
+ST?SCRIPT::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 109
+	.ENDT
+
+ST?$VERIFY::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+ST?EXTINGUISH::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 51
+	.ENDT
+
+ST?RESTART::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 94
+	.ENDT
+
+ST?SMELL::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 122
+	.ENDT
+
+ST?BRIEF::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 21
+	.ENDT
+
+ST?DIAGNOSE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 41
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 41
+	.ENDT
+
+ST?SMILE::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 252
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 123
+	.ENDT
+
+ST?WAKE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 146
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 146
+	.ENDT
+
+ST?DRINK::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 45
+	.ENDT
+
+ST?ANSWER::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 11
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 10
+	.ENDT
+
+ST?$CALL::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 25
+	.ENDT
+
+ST?YELL::	.TABLE
+	.BYTE 4
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 32
+	.BYTE 0
+	.BYTE 104
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 103
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 153
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 152
+	.ENDT
+
+ST?LOCK::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 72
+	.ENDT
+
+ST?ADJUST::	.TABLE
+	.BYTE 4
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 3
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 3
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 3
+	.ENDT
+
+ST?TURN::	.TABLE
+	.BYTE 8
+	.BYTE 1
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 136
+	.BYTE 2
+	.BYTE 247
+	.BYTE 255
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 91
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 91
+	.BYTE 2
+	.BYTE 245
+	.BYTE 255
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 51
+	.BYTE 1
+	.BYTE 245
+	.BYTE 0
+	.BYTE 25
+	.BYTE 0
+	.BYTE 244
+	.BYTE 0
+	.BYTE 51
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 83
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 136
+	.ENDT
+
+ST?START::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 238
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 94
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 91
+	.ENDT
+
+ST?SURFACE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 127
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 127
+	.ENDT
+
+ST?TEST::	.TABLE
+	.BYTE 6
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 9
+	.BYTE 2
+	.BYTE 0
+	.BYTE 254
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 8
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 7
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 6
+	.ENDT
+
+ST?MAKE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 80
+	.BYTE 2
+	.BYTE 0
+	.BYTE 241
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 80
+	.ENDT
+
+ST?$BAY::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 2
+	.ENDT
+
+ST?RESTORE::	.TABLE
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 95
+	.ENDT
+
+ST?CLOSE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 27
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 33
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 27
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 33
+	.ENDT
+
+ST?STRIKE::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 30
+	.BYTE 29
+	.BYTE 48
+	.BYTE 242
+	.BYTE 20
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 121
+	.ENDT
+
+ST?FIX::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 24
+	.BYTE 0
+	.BYTE 0
+	.BYTE 55
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 55
+	.ENDT
+
+ST?EXAMINE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 248
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 7
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 50
+	.ENDT
+
+ST?RELEASE::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 139
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 143
+	.ENDT
+
+ST?EAT::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 252
+	.BYTE 0
+	.BYTE 47
+	.ENDT
+
+ST?FIRE::	.TABLE
+	.BYTE 3
+	.BYTE 2
+	.BYTE 0
+	.BYTE 252
+	.BYTE 29
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 117
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 116
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 0
+	.BYTE 29
+	.BYTE 48
+	.BYTE 0
+	.BYTE 116
+	.ENDT
+
+ST?FILL::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 255
+	.BYTE 26
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 52
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 26
+	.BYTE 0
+	.BYTE 240
+	.BYTE 0
+	.BYTE 52
+	.ENDT
+
+ST?FIT::	.TABLE
+	.BYTE 2
+	.BYTE 2
+	.BYTE 0
+	.BYTE 251
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.BYTE 2
+	.BYTE 0
+	.BYTE 247
+	.BYTE 0
+	.BYTE 0
+	.BYTE 134
+	.BYTE 0
+	.BYTE 12
+	.ENDT
+
+ST?ARM::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 13
+	.ENDT
+
+ST?CLIMB::	.TABLE
+	.BYTE 7
+	.BYTE 1
+	.BYTE 253
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 32
+	.BYTE 1
+	.BYTE 242
+	.BYTE 0
+	.BYTE 27
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 1
+	.BYTE 249
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 30
+	.BYTE 1
+	.BYTE 247
+	.BYTE 0
+	.BYTE 28
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 29
+	.BYTE 1
+	.BYTE 254
+	.BYTE 0
+	.BYTE 28
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 27
+	.BYTE 1
+	.BYTE 243
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 28
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 48
+	.BYTE 0
+	.BYTE 27
+	.ENDT
+
+ST?LAUNCH::	.TABLE
+	.BYTE 1
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 31
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 67
+	.ENDT
+
+ST?ASK::	.TABLE
+	.BYTE 5
+	.BYTE 2
+	.BYTE 0
+	.BYTE 250
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 19
+	.BYTE 2
+	.BYTE 0
+	.BYTE 246
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 18
+	.BYTE 1
+	.BYTE 250
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 17
+	.BYTE 1
+	.BYTE 246
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 194
+	.BYTE 0
+	.BYTE 16
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 30
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 15
+	.ENDT
+
+ST?HELLO::	.TABLE
+	.BYTE 2
+	.BYTE 1
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 60
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 60
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ATBL::	.TABLE
+	V-$VERIFY
+	V-DEBUG
+	V-$BAY
+	V-ADJUST
+	V-AIM
+	V-SAIM
+	V-ANALYZE
+	V-LOOK-UNDER
+	V-LOOK-UP
+	V-SANALYZE
+	V-ANSWER
+	V-REPLY
+	V-PUT
+	V-ARM
+	V-ARREST
+	V-ASK
+	V-ASK-CONTEXT-ABOUT
+	V-ASK-CONTEXT-FOR
+	V-ASK-ABOUT
+	V-ASK-FOR
+	V-ATTACK
+	V-BRIEF
+	V-BRING
+	V-SBRING
+	V-BRUSH
+	V-$CALL
+	V-PHONE
+	V-BOARD
+	V-CLIMB-DOWN
+	V-CLIMB-ON
+	V-DISEMBARK
+	V-THROUGH
+	V-CLIMB-UP
+	V-CLOSE
+	V-WALK-TO
+	V-FOLLOW
+	V-COME-WITH
+	V-COMPARE
+	V-CONFRONT
+	V-CUT
+	V-MUNG
+	V-DIAGNOSE
+	V-DISCUSS
+	V-DIVE
+	V-DOCK
+	V-DRINK
+	V-DROP
+	V-EAT
+	V-EMPTY
+	V-ENTER
+	V-EXAMINE
+	V-LAMP-OFF
+	V-FILL
+	V-FIND
+	V-FIND-WITH
+	V-FIX
+	V-GIVE
+	V-SGIVE
+	V-GOODBYE
+	V-HANGUP
+	V-HELLO
+	V-HELP
+	V-PUT-UNDER
+	V-INVENTORY
+	V-KILL
+	V-KISS
+	V-KNOCK
+	V-LAUNCH
+	V-STAND
+	V-LEVEL
+	V-LEAVE
+	V-LISTEN
+	V-LOCK
+	V-LOOK
+	V-READ
+	V-LOOK-BEHIND
+	V-LOOK-DOWN
+	V-LOOK-INSIDE
+	V-LOOK-ON
+	V-LOOK-OUTSIDE
+	V-MAKE
+	V-MOVE
+	V-MOVE-DIR
+	V-SET
+	V-NO
+	V-OPEN
+	V-OPEN-WITH
+	V-PICK
+	V-TAKE
+	V-PLAY
+	V-PUSH
+	V-LAMP-ON
+	V-QUIT
+	V-RAISE
+	V-RESTART
+	V-RESTORE
+	V-RING
+	V-RISE
+	V-RUB
+	V-RUB-OVER
+	V-SAVE
+	V-SAY
+	V-TALK-ABOUT
+	V-SAY-INTO
+	V-TELL
+	V-TELL-ABOUT
+	V-SCORE
+	V-SCREW-IN
+	V-SCREW
+	V-SCRIPT
+	V-SEARCH
+	V-SEARCH-FOR
+	V-SEND
+	V-SEND-OUT
+	V-SSEND
+	V-SEND-TO
+	V-SHOOT
+	V-SSHOOT
+	V-SHOW
+	V-SSHOW
+	V-SIT
+	V-SLAP
+	V-SMELL
+	V-SMILE
+	V-SMOKE
+	V-STOP
+	V-SUPER-BRIEF
+	V-SURFACE
+	V-SWIM
+	V-TAKE-TO
+	V-TAKE-WITH
+	V-THANKS
+	V-THROW-AT
+	V-THROW-THROUGH
+	V-TIE-TO
+	V-TIE-WITH
+	V-TURN
+	V-UNLOCK
+	V-UNSCRIPT
+	V-UNTIE
+	V-USE
+	V-USE-AGAINST
+	V-VERBOSE
+	V-VERSION
+	V-WAIT-FOR
+	V-WAIT-UNTIL
+	V-ALARM
+	V-WALK
+	V-WALK-AROUND
+	V-RUN-OVER
+	V-WALK-UNDER
+	V-WHAT
+	V-YELL
+	V-YELL-FOR
+	V-YES
+	.ENDT
+
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PATBL::	.TABLE
+	0
+	0
+	0
+	0
+	PRE-AIM
+	PRE-SAIM
+	0
+	0
+	0
+	PRE-SANALYZE
+	0
+	0
+	PRE-PUT
+	0
+	PRE-ARREST
+	PRE-ASK
+	PRE-ASK-CONTEXT-ABOUT
+	PRE-ASK-CONTEXT-FOR
+	PRE-ASK-ABOUT
+	PRE-ASK-FOR
+	0
+	0
+	PRE-BRING
+	PRE-SBRING
+	0
+	0
+	PRE-PHONE
+	0
+	0
+	0
+	0
+	PRE-THROUGH
+	0
+	0
+	0
+	0
+	PRE-COME-WITH
+	PRE-COMPARE
+	0
+	0
+	0
+	0
+	PRE-DISCUSS
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-EXAMINE
+	0
+	PRE-FILL
+	PRE-FIND
+	0
+	0
+	PRE-GIVE
+	PRE-SGIVE
+	PRE-GOODBYE
+	PRE-HANGUP
+	PRE-HELLO
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-READ
+	0
+	0
+	PRE-LOOK-INSIDE
+	0
+	0
+	0
+	PRE-MOVE
+	PRE-MOVE-DIR
+	PRE-SET
+	0
+	0
+	PRE-OPEN-WITH
+	0
+	PRE-TAKE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-RUB-OVER
+	0
+	0
+	PRE-TALK-ABOUT
+	PRE-SAY-INTO
+	0
+	PRE-TELL-ABOUT
+	0
+	0
+	0
+	0
+	PRE-SEARCH
+	PRE-SEARCH-FOR
+	0
+	0
+	PRE-SSEND
+	PRE-SEND-TO
+	PRE-SHOOT
+	PRE-SSHOOT
+	0
+	PRE-SSHOW
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TIE-TO
+	PRE-TIE-WITH
+	0
+	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 23
+	W?UNTIL
+	PR?UNTIL
+	W?TILL
+	PR?TILL
+	W?AGAINST
+	PR?AGAINST
+	W?AWAY
+	PR?AWAY
+	W?RID
+	PR?RID
+	W?OVER
+	PR?OVER
+	W?BEHIND
+	PR?BEHIND
+	W?AROUND
+	PR?AROUND
+	W?FROM
+	PR?FROM
+	W?THROUGH
+	PR?THROUGH
+	W?DOWN
+	PR?DOWN
+	W?BY
+	PR?BY
+	W?OFF
+	PR?OFF
+	W?ABOUT
+	PR?ABOUT
+	W?ON
+	PR?ON
+	W?UNDER
+	PR?UNDER
+	W?OUT
+	PR?OUT
+	W?FOR
+	PR?FOR
+	W?TO
+	PR?TO
+	W?AT
+	PR?AT
+	W?UP
+	PR?UP
+	W?IN
+	PR?IN
+	W?WITH
+	PR?WITH
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 3
+	.BYTE 44
+	.BYTE 46 
+	.BYTE 34
+	.BYTE 7
+	913
+W?$BAY::	.ZWORD "$bay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$BAY
+	.BYTE 0
+W?$CALL::	.ZWORD "$call"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$CALL
+	.BYTE 0
+W?$FN::	.ZWORD "$fn"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?$FN
+	.BYTE 0
+W?$LN::	.ZWORD "$ln"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?$LN
+W?$VERIFY::	.ZWORD "$verif"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+	.BYTE 0
+W?10-4::	.ZWORD "10-4"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?49-ER::	.ZWORD "49-er"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?49-ER
+	.BYTE 0
+W?49ER::	.ZWORD "49er"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?49ER
+	.BYTE 0
+W?PERIOD::	.ZWORD "."
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PERIOD
+	.BYTE 0
+W?COMMA::	.ZWORD ","
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COMMA
+	.BYTE 0
+W?!::	.ZWORD "!"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?!
+	.BYTE 0
+W??::	.ZWORD "?"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B??
+	.BYTE 0
+W?#DBG::	.ZWORD "#dbg"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?#DBG
+	.BYTE 0
+W?QUOTE::	.ZWORD """"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?QUOTE
+	.BYTE 0
+W?(SOMETHING)::	.ZWORD "(somet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?A::	.ZWORD "a"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?A
+	.BYTE 0
+W?ABANDON::	.ZWORD "abando"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?ABOUT::	.ZWORD "about"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 246
+	.BYTE 0
+W?ACCESS::	.ZWORD "access"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ACCESS
+	.BYTE 0
+W?ACTIVATE::	.ZWORD "activa"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+	.BYTE 0
+W?ADJUST::	.ZWORD "adjust"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ADJUST
+	.BYTE 0
+W?ADMIN::	.ZWORD "admin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ADMIN
+	.BYTE 0
+W?ADMINI::	.ZWORD "admini"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ADMINI
+	.BYTE 0
+W?AFFIRM::	.ZWORD "affirm"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?AGAIN::	.ZWORD "again"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AGAIN
+	.BYTE 0
+W?AGAINST::	.ZWORD "agains"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 235
+	.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?ADJECTIVE
+	.BYTE A?AIR
+	.BYTE O?ANY
+W?AIRLOCK::	.ZWORD "airloc"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AIRLOCK
+	.BYTE 0
+W?ALARM::	.ZWORD "alarm"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ALARM
+	.BYTE O?ANY
+W?ALL::	.ZWORD "all"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ALL
+	.BYTE 0
+W?AM::	.ZWORD "am"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AM
+	.BYTE 0
+W?AMY::	.ZWORD "amy"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AMY
+	.BYTE O?ANY
+W?AMY'S::	.ZWORD "amy's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AMY'S
+	.BYTE 0
+W?AN::	.ZWORD "an"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AN
+	.BYTE 0
+W?ANALYSE::	.ZWORD "analys"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEST
+	.BYTE ACT?TEST
+W?ANALYZE::	.ZWORD "analyz"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEST
+	.BYTE ACT?TEST
+W?AND::	.ZWORD "and"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?AND
+	.BYTE 0
+W?ANSWER::	.ZWORD "answer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?ANTRIM::	.ZWORD "antrim"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ANTRIM
+	.BYTE O?ANY
+W?ANY::	.ZWORD "any"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ANY
+	.BYTE 0
+W?APPLY::	.ZWORD "apply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPLY
+	.BYTE 0
+W?AQUA::	.ZWORD "aqua"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AQUA
+	.BYTE 0
+W?AQUADOME::	.ZWORD "aquado"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?AQUADOME
+W?AQUATIC::	.ZWORD "aquati"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?AQUATIC
+	.BYTE 0
+W?ARE::	.ZWORD "are"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ARE
+	.BYTE 0
+W?AREA::	.ZWORD "area"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ARM::	.ZWORD "arm"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?ARM
+W?ARMS::	.ZWORD "arms"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?AROUND::	.ZWORD "around"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 240
+	.BYTE 0
+W?ARREST::	.ZWORD "arrest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ARREST
+	.BYTE 0
+W?ARROW::	.ZWORD "arrow"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ARTICLE::	.ZWORD "articl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ASCEND::	.ZWORD "ascend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RISE
+	.BYTE 0
+W?ASK::	.ZWORD "ask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?ASSAULT::	.ZWORD "assaul"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?ASSISTANT::	.ZWORD "assist"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ASSORTED::	.ZWORD "assort"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ASSORTED
+	.BYTE 0
+W?AT::	.ZWORD "at"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 252
+	.BYTE 0
+W?ATLANTIC::	.ZWORD "atlant"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ATLANTIC
+	.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?AUTO::	.ZWORD "auto"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?AUTO
+W?AUTOMATIC::	.ZWORD "automa"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?AUTOMATIC
+W?AUTOPILOT::	.ZWORD "autopi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?AWAKE::	.ZWORD "awake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?AWAY::	.ZWORD "away"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 236
+	.BYTE 0
+W?AYE::	.ZWORD "aye"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?BACK::	.ZWORD "back"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BACK
+	.BYTE 0
+W?BADGE::	.ZWORD "badge"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BADGES::	.ZWORD "badges"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BASTARD::	.ZWORD "bastar"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BASTARD
+	.BYTE 0
+W?BATHE::	.ZWORD "bathe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?BAY::	.ZWORD "bay"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BAZOOKA::	.ZWORD "bazook"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BEAM::	.ZWORD "beam"
+	.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?BEHIND::	.ZWORD "behind"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 239
+	.BYTE 0
+W?BELL::	.ZWORD "bell"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BENCH::	.ZWORD "bench"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BENEATH::	.ZWORD "beneat"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 248
+	.BYTE 0
+W?BILL::	.ZWORD "bill"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BILL
+	.BYTE O?ANY
+W?BILL'S::	.ZWORD "bill's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BILL'S
+	.BYTE 0
+W?BILLIO::	.ZWORD "billio"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?BILLIO
+	.BYTE 0
+W?BIOCEPTOR::	.ZWORD "biocep"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BIOCEPTOR
+	.BYTE O?ANY
+W?BITE::	.ZWORD "bite"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLAP
+	.BYTE 0
+W?BLACK::	.ZWORD "black"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLACK
+	.BYTE 0
+W?BLAST::	.ZWORD "blast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?BLDG::	.ZWORD "bldg"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLDG
+	.BYTE 0
+W?BLIP::	.ZWORD "blip"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BLOW::	.ZWORD "blow"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EMPTY
+	.BYTE ACT?EMPTY
+W?BLUE::	.ZWORD "blue"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLUE
+	.BYTE 0
+W?BLUEPRINTS::	.ZWORD "bluepr"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BLY::	.ZWORD "bly"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BLY'S::	.ZWORD "bly's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BLY'S
+	.BYTE 0
+W?BOARD::	.ZWORD "board"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+	.BYTE 0
+W?BOAT::	.ZWORD "boat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOLT::	.ZWORD "bolt"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BOLT
+	.BYTE 0
+W?BOOK::	.ZWORD "book"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BOX::	.ZWORD "box"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BOX
+	.BYTE O?ANY
+W?BOY::	.ZWORD "boy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BRASS::	.ZWORD "brass"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BRASS
+	.BYTE 0
+W?BREAK::	.ZWORD "break"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DAMAGE
+W?BREAKER::	.ZWORD "breake"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BREEZE::	.ZWORD "breeze"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?BRING::	.ZWORD "bring"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRING
+	.BYTE 0
+W?BRUSH::	.ZWORD "brush"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRUSH
+	.BYTE 0
+W?BUILD::	.ZWORD "build"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAKE
+	.BYTE 0
+W?BUILDI::	.ZWORD "buildi"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BUILDI
+	.BYTE 0
+W?BUMPER::	.ZWORD "bumper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUNCH::	.ZWORD "bunch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUNK::	.ZWORD "bunk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUSINESS::	.ZWORD "busine"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?BUSINESS
+	.BYTE O?ANY
+W?BUTTON::	.ZWORD "button"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BUZZER::	.ZWORD "buzzer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?BY::	.ZWORD "by"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 255
+	.BYTE 0
+W?BYE::	.ZWORD "bye"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GOODBYE
+	.BYTE 0
+W?CABINET::	.ZWORD "cabine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CABLE::	.ZWORD "cable"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CALL::	.ZWORD "call"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?CALL
+W?CAN::	.ZWORD "can"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CAN
+	.BYTE 0
+W?CANISTER::	.ZWORD "canist"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CAPSULE::	.ZWORD "capsul"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CAPSULE
+	.BYTE O?ANY
+W?CAPTURE::	.ZWORD "captur"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ARREST
+	.BYTE 0
+W?CAREFULLY::	.ZWORD "carefu"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CAREFULLY
+	.BYTE 0
+W?CARRY::	.ZWORD "carry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?CAT::	.ZWORD "cat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CATALYST::	.ZWORD "cataly"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CATALYST
+	.BYTE 0
+W?CENTER::	.ZWORD "center"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CENTER
+	.BYTE O?ANY
+W?CENTRE::	.ZWORD "centre"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CENTRE
+	.BYTE O?ANY
+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?CHARGE::	.ZWORD "charge"
+	.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?CHECK::	.ZWORD "check"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEST
+	.BYTE ACT?TEST
+W?CHEMICAL::	.ZWORD "chemic"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CHEMICAL
+	.BYTE O?ANY
+W?CHORE::	.ZWORD "chore"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CHUCK::	.ZWORD "chuck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?CIRCUIT::	.ZWORD "circui"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?CIRCUIT
+W?CLAW::	.ZWORD "claw"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CLAWS::	.ZWORD "claws"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CLEAN::	.ZWORD "clean"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRUSH
+	.BYTE 0
+W?CLEAR::	.ZWORD "clear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ADJUST
+	.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+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?CLOSET
+W?CLUE::	.ZWORD "clue"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CLUSTER::	.ZWORD "cluste"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COAXIAL::	.ZWORD "coaxia"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COAXIAL
+	.BYTE 0
+W?COME::	.ZWORD "come"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COME
+	.BYTE 0
+W?COMM::	.ZWORD "comm"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COMM
+	.BYTE 0
+W?COMMANDER::	.ZWORD "comman"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COMMANDER
+	.BYTE O?ANY
+W?COMMUN::	.ZWORD "commun"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?COMMUN
+	.BYTE 0
+W?COMPANY::	.ZWORD "compan"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COMPARE::	.ZWORD "compar"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MATCH
+	.BYTE 0
+W?COMPUTESTOR::	.ZWORD "comput"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CONFRONT::	.ZWORD "confro"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONFRONT
+	.BYTE 0
+W?CONSULT::	.ZWORD "consul"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?CONSUME::	.ZWORD "consum"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?CONTACT::	.ZWORD "contac"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?CALL
+W?CONTENTS::	.ZWORD "conten"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CONTROL::	.ZWORD "contro"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?CONTROL
+W?CORRIDOR::	.ZWORD "corrid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COULD::	.ZWORD "could"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?COULD
+	.BYTE 0
+W?COUNTER::	.ZWORD "counte"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?COVER::	.ZWORD "cover"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?COVER
+W?CRAWL::	.ZWORD "crawl"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CRAWL
+	.BYTE 0
+W?CREATURE::	.ZWORD "creatu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CREW::	.ZWORD "crew"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CROUCH::	.ZWORD "crouch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIDE
+	.BYTE 0
+W?CRUISE::	.ZWORD "cruise"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?CRUSH::	.ZWORD "crush"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DAMAGE
+W?CURRENT::	.ZWORD "curren"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?CURRENT
+	.BYTE 0
+W?CURSE::	.ZWORD "curse"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CURSE
+	.BYTE 0
+W?CURSES::	.ZWORD "curses"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CURSES
+	.BYTE 0
+W?CUSS::	.ZWORD "cuss"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?CUSS
+	.BYTE 0
+W?CUT::	.ZWORD "cut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?CYLINDER::	.ZWORD "cylind"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?D::	.ZWORD "d"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 243
+	.BYTE 22
+W?DAMAGE::	.ZWORD "damage"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DAMAGE
+W?DAMN::	.ZWORD "damn"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DAMN
+	.BYTE 0
+W?DANGER::	.ZWORD "danger"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DART::	.ZWORD "dart"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DART
+	.BYTE O?ANY
+W?DEBARK::	.ZWORD "debark"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?DECK::	.ZWORD "deck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DEFINITE::	.ZWORD "defini"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEFINITE
+	.BYTE 0
+W?DEPOSIT::	.ZWORD "deposi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DEPTH::	.ZWORD "depth"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DEPTH
+	.BYTE O?ANY
+W?DEPTHFINDER::	.ZWORD "depthf"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?DEPTHFINDER
+W?DESCEND::	.ZWORD "descen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIVE
+	.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?ADJECTIVE
+	.BYTE A?DESK
+	.BYTE O?ANY
+W?DESTROY::	.ZWORD "destro"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DAMAGE
+W?DETECT::	.ZWORD "detect"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+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?DIAGRAM::	.ZWORD "diagra"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DIARY::	.ZWORD "diary"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DID::	.ZWORD "did"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DID
+	.BYTE 0
+W?DIG::	.ZWORD "dig"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEARCH
+	.BYTE ACT?SEARCH
+W?DIRECT::	.ZWORD "direct"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DISCUSS::	.ZWORD "discus"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISCUSS
+	.BYTE 0
+W?DISEMBARK::	.ZWORD "disemb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?DISTRESS::	.ZWORD "distre"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DISTRESS
+	.BYTE 0
+W?DIVE::	.ZWORD "dive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIVE
+	.BYTE 0
+W?DIVER::	.ZWORD "diver"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIVER
+	.BYTE O?ANY
+W?DIVERS::	.ZWORD "divers"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DIVERS
+	.BYTE O?ANY
+W?DIVING::	.ZWORD "diving"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DO::	.ZWORD "do"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?DO
+	.BYTE 0
+W?DOC::	.ZWORD "doc"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOC
+	.BYTE O?ANY
+W?DOC'S::	.ZWORD "doc's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOC'S
+	.BYTE 0
+W?DOCK::	.ZWORD "dock"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DOCK
+W?DOCKING::	.ZWORD "dockin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOCKING
+	.BYTE 0
+W?DOCTOR::	.ZWORD "doctor"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DOCTOR
+	.BYTE 0
+W?DOME::	.ZWORD "dome"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?DOME
+W?DONATE::	.ZWORD "donate"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HAND
+	.BYTE ACT?HAND
+W?DOOR::	.ZWORD "door"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DOORWAY::	.ZWORD "doorwa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DORM::	.ZWORD "dorm"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DORM
+	.BYTE O?ANY
+W?DORMITORY::	.ZWORD "dormit"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DORMITORY
+	.BYTE O?ANY
+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 243
+	.BYTE 22
+W?DR::	.ZWORD "dr"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?DR
+	.BYTE 0
+W?DRAIN::	.ZWORD "drain"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EMPTY
+	.BYTE ACT?EMPTY
+W?DRAWER::	.ZWORD "drawer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?DRINK::	.ZWORD "drink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?DRIVE::	.ZWORD "drive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?DROP::	.ZWORD "drop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?E::	.ZWORD "e"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 29
+	.BYTE A?EAST
+W?EAST::	.ZWORD "east"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 29
+	.BYTE A?EAST
+W?EAT::	.ZWORD "eat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?EDITION::	.ZWORD "editio"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?EIGHT::	.ZWORD "eight"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?EIGHT
+	.BYTE 0
+W?EIGHTE::	.ZWORD "eighte"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?EIGHTE
+	.BYTE 0
+W?EIGHTY::	.ZWORD "eighty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?EIGHTY
+	.BYTE 0
+W?ELECTR::	.ZWORD "electr"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ELECTR
+	.BYTE O?ANY
+W?ELEVEN::	.ZWORD "eleven"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ELEVEN
+	.BYTE 0
+W?EMERGE::	.ZWORD "emerge"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EMERGE
+	.BYTE 0
+W?EMPTY::	.ZWORD "empty"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EMPTY
+	.BYTE ACT?EMPTY
+W?ENGAGE::	.ZWORD "engage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+	.BYTE 0
+W?ENGINE::	.ZWORD "engine"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ENGINE
+	.BYTE O?ANY
+W?ENTER::	.ZWORD "enter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENTER
+	.BYTE 0
+W?ENTIRE::	.ZWORD "entire"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ENTIRE
+	.BYTE 0
+W?ENTRANCE::	.ZWORD "entran"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ENTRY::	.ZWORD "entry"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ENTRY
+	.BYTE 0
+W?EQUIPM::	.ZWORD "equipm"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?EVACUATE::	.ZWORD "evacua"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?EVIDENCE::	.ZWORD "eviden"
+	.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?EXERCISE::	.ZWORD "exerci"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EXERCISE
+	.BYTE 0
+W?EXIT::	.ZWORD "exit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?EXPERT::	.ZWORD "expert"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?EXPLAIN::	.ZWORD "explai"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?EXPLORE::	.ZWORD "explor"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?EXPLOSIVE::	.ZWORD "explos"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EXPLOSIVE
+	.BYTE O?ANY
+W?EXTENDER::	.ZWORD "extend"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EXTENDER
+	.BYTE 0
+W?EXTENSOR::	.ZWORD "extens"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?EXTENSOR
+	.BYTE 0
+W?EXTINGUISH::	.ZWORD "exting"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+	.BYTE 0
+W?FAMOUS::	.ZWORD "famous"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FAMOUS
+	.BYTE 0
+W?FAST::	.ZWORD "fast"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FASTEN::	.ZWORD "fasten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?FASTER::	.ZWORD "faster"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FEED::	.ZWORD "feed"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HAND
+	.BYTE ACT?HAND
+W?FEEL::	.ZWORD "feel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?FEMALE::	.ZWORD "female"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FEMALE
+	.BYTE 0
+W?FETCH::	.ZWORD "fetch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRING
+	.BYTE 0
+W?FIELD::	.ZWORD "field"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FIFTEE::	.ZWORD "fiftee"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FIFTEE
+	.BYTE 0
+W?FIFTY::	.ZWORD "fifty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FIFTY
+	.BYTE 0
+W?FIGHT::	.ZWORD "fight"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?FILE::	.ZWORD "file"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FILE
+	.BYTE O?ANY
+W?FILES::	.ZWORD "files"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FILL::	.ZWORD "fill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FILL
+	.BYTE 0
+W?FIND::	.ZWORD "find"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?FINDER::	.ZWORD "finder"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?FINDER
+W?FINE::	.ZWORD "fine"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FINE
+	.BYTE 0
+W?FIRE::	.ZWORD "fire"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?FIRST::	.ZWORD "first"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FIRST
+	.BYTE 0
+W?FIT::	.ZWORD "fit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIT
+	.BYTE 0
+W?FIVE::	.ZWORD "five"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FIVE
+	.BYTE 0
+W?FIX::	.ZWORD "fix"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?FLIP::	.ZWORD "flip"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SWITCH
+W?FLOOD::	.ZWORD "flood"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FILL
+	.BYTE 0
+W?FLOOR::	.ZWORD "floor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FOCUS::	.ZWORD "focus"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ADJUST
+	.BYTE 0
+W?FOLLOW::	.ZWORD "follow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?FOR::	.ZWORD "for"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 250
+	.BYTE 0
+W?FORTY::	.ZWORD "forty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FORTY
+	.BYTE 0
+W?FOUR::	.ZWORD "four"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FOUR
+	.BYTE 0
+W?FOURTE::	.ZWORD "fourte"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FOURTE
+	.BYTE 0
+W?FRAM::	.ZWORD "fram"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FRAM
+	.BYTE 0
+W?FREE::	.ZWORD "free"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?FREIGHTER::	.ZWORD "freigh"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?FROBTON::	.ZWORD "frobto"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FROBTON
+	.BYTE 0
+W?FROM::	.ZWORD "from"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 241
+	.BYTE 0
+W?FUCK::	.ZWORD "fuck"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FUCK
+	.BYTE 0
+W?FUDGE::	.ZWORD "fudge"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?FUDGE
+	.BYTE 0
+W?FULL::	.ZWORD "full"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?FULL
+	.BYTE 0
+W?FURNITURE::	.ZWORD "furnit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?G::	.ZWORD "g"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?G
+	.BYTE 0
+W?GALLEY::	.ZWORD "galley"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GALLEY
+	.BYTE O?ANY
+W?GAME::	.ZWORD "game"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GANGPLANK::	.ZWORD "gangpl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GASH::	.ZWORD "gash"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GATE::	.ZWORD "gate"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?GATE
+W?GATES::	.ZWORD "gates"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GAUGE::	.ZWORD "gauge"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?GAUGE
+W?GAUGES::	.ZWORD "gauges"
+	.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?GEAR::	.ZWORD "gear"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GEARS::	.ZWORD "gears"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GENERATOR::	.ZWORD "genera"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GET::	.ZWORD "get"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?GIRL::	.ZWORD "girl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GIVE::	.ZWORD "give"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HAND
+	.BYTE ACT?HAND
+W?GO::	.ZWORD "go"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?GOOD-BYE::	.ZWORD "good-b"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GOODBYE
+	.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?GREENUP::	.ZWORD "greenu"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GREENUP
+	.BYTE O?ANY
+W?GREET::	.ZWORD "greet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?GREETINGS::	.ZWORD "greeti"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?GRID::	.ZWORD "grid"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?GRID
+	.BYTE O?ANY
+W?GRIDS::	.ZWORD "grids"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?GRIN::	.ZWORD "grin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.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?HALF::	.ZWORD "half"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HALL::	.ZWORD "hall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HALLWAY::	.ZWORD "hallwa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HAND::	.ZWORD "hand"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HAND
+	.BYTE ACT?HAND
+W?HANDLE::	.ZWORD "handle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HANG::	.ZWORD "hang"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HANG
+	.BYTE 0
+W?HAS::	.ZWORD "has"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HAS
+	.BYTE 0
+W?HATCH::	.ZWORD "hatch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HAVE::	.ZWORD "have"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HAVE
+	.BYTE 0
+W?HE::	.ZWORD "he"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HE'S::	.ZWORD "he's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HE'S
+	.BYTE 0
+W?HEAD::	.ZWORD "head"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?HELLO::	.ZWORD "hello"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HELP::	.ZWORD "help"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?HELP
+W?HER::	.ZWORD "her"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?HER
+W?HERE::	.ZWORD "here"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HERSELF::	.ZWORD "hersel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+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?HIGH::	.ZWORD "high"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HIM::	.ZWORD "him"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HIMSELF::	.ZWORD "himsel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HINT::	.ZWORD "hint"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HIS::	.ZWORD "his"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HIS
+	.BYTE 0
+W?HIT::	.ZWORD "hit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLAP
+	.BYTE 0
+W?HOLE::	.ZWORD "hole"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HOOK::	.ZWORD "hook"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?HORVAK::	.ZWORD "horvak"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HORVAK
+	.BYTE O?ANY
+W?HOUSING::	.ZWORD "housin"
+	.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?HUNDRE::	.ZWORD "hundre"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?HUNDRE
+	.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?SLAP
+	.BYTE 0
+W?HYDROJET::	.ZWORD "hydroj"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HYDROJET
+	.BYTE O?ANY
+W?HYDROPHONE::	.ZWORD "hydrop"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HYDROPHONE
+	.BYTE O?ANY
+W?HYPO::	.ZWORD "hypo"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HYPO
+	.BYTE 0
+W?HYPODERMIC::	.ZWORD "hypode"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HYPODERMIC
+	.BYTE 0
+W?I::	.ZWORD "i"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?I
+W?I'LL::	.ZWORD "i'll"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?I'LL
+	.BYTE 0
+W?I'M::	.ZWORD "i'm"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?I'M
+	.BYTE 0
+W?I'VE::	.ZWORD "i've"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?I'VE
+	.BYTE 0
+W?IDEA::	.ZWORD "idea"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?IDENTIFY::	.ZWORD "identi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NAME
+	.BYTE 0
+W?IMBIBE::	.ZWORD "imbibe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?IN::	.ZWORD "in"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 254
+	.BYTE 21
+W?INJURE::	.ZWORD "injure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLAP
+	.BYTE 0
+W?INQUIRE::	.ZWORD "inquir"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?INSERT::	.ZWORD "insert"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+W?INSIDE::	.ZWORD "inside"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 254
+	.BYTE 21
+W?INSPECT::	.ZWORD "inspec"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?INSTALL::	.ZWORD "instal"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+W?INSTRUMENT::	.ZWORD "instru"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?INSTRUMENT
+	.BYTE O?ANY
+W?INTERCOM::	.ZWORD "interc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?INTERRUPT::	.ZWORD "interr"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?INTO::	.ZWORD "into"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 254
+	.BYTE 21
+W?INVENT::	.ZWORD "invent"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?INVENT
+	.BYTE ACT?INVENT
+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?IT'S::	.ZWORD "it's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?IT'S
+	.BYTE 0
+W?JEROME::	.ZWORD "jerome"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JEROME
+	.BYTE O?ANY
+W?JOB::	.ZWORD "job"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?JOGGING::	.ZWORD "joggin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JOGGING
+	.BYTE 0
+W?JOY::	.ZWORD "joy"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?JOY
+	.BYTE 0
+W?JOYSTICK::	.ZWORD "joysti"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?JUNK::	.ZWORD "junk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?KEEL::	.ZWORD "keel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?KEMP::	.ZWORD "kemp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?KEMP'S::	.ZWORD "kemp's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?KEMP'S
+	.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?SLAP
+	.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?KNOB::	.ZWORD "knob"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?KNOBS::	.ZWORD "knobs"
+	.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?LAB::	.ZWORD "lab"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LAB
+	.BYTE O?ANY
+W?LABORATORY::	.ZWORD "labora"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LABORATORY
+	.BYTE O?ANY
+W?LADDER::	.ZWORD "ladder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LAUNCH::	.ZWORD "launch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LAUNCH
+	.BYTE 0
+W?LEAD::	.ZWORD "lead"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?LEAVE::	.ZWORD "leave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?LEFT::	.ZWORD "left"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LET'S::	.ZWORD "let's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?LET'S
+	.BYTE 0
+W?LEVEL::	.ZWORD "level"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEVEL
+	.BYTE 0
+W?LEVER::	.ZWORD "lever"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LIFT::	.ZWORD "lift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+	.BYTE 0
+W?LIGHT::	.ZWORD "light"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?LIGHT
+W?LIGHTS::	.ZWORD "lights"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LISTEN::	.ZWORD "listen"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LISTEN
+	.BYTE ACT?LISTEN
+W?LOAD::	.ZWORD "load"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+W?LOCATE::	.ZWORD "locate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?LOCK::	.ZWORD "lock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOCK
+	.BYTE 0
+W?LOCKER::	.ZWORD "locker"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?LOCKER
+W?LOG::	.ZWORD "log"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOG
+	.BYTE 0
+W?LOGBOOK::	.ZWORD "logboo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LOOK::	.ZWORD "look"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?LOT::	.ZWORD "lot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LOW::	.ZWORD "low"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?LOWELL::	.ZWORD "lowell"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?LOWELL
+	.BYTE O?ANY
+W?LOWER::	.ZWORD "lower"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?M::	.ZWORD "m"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MACHIN::	.ZWORD "machin"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?MACHIN
+W?MAG::	.ZWORD "mag"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MAG
+	.BYTE O?ANY
+W?MAGAZINE::	.ZWORD "magazi"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MAGAZINE
+	.BYTE O?ANY
+W?MAKE::	.ZWORD "make"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAKE
+	.BYTE 0
+W?MALE::	.ZWORD "male"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MALE
+	.BYTE 0
+W?MAN::	.ZWORD "man"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MANUAL::	.ZWORD "manual"
+	.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?MARV::	.ZWORD "marv"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MARV
+	.BYTE O?ANY
+W?MARV'S::	.ZWORD "marv's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MARV'S
+	.BYTE 0
+W?MATCH::	.ZWORD "match"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MATCH
+	.BYTE 0
+W?MATERIAL::	.ZWORD "materi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MATTER::	.ZWORD "matter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAXIMUM::	.ZWORD "maximu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MAYBE::	.ZWORD "maybe"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?MAYBE
+	.BYTE 0
+W?ME::	.ZWORD "me"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MECHANICAL::	.ZWORD "mechan"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MECHANICAL
+	.BYTE O?ANY
+W?MEDIC::	.ZWORD "medic"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MEDITATE::	.ZWORD "medita"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?MEDIUM::	.ZWORD "medium"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MESS::	.ZWORD "mess"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?METALLIC::	.ZWORD "metall"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?METALLIC
+	.BYTE 0
+W?METER::	.ZWORD "meter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?METERS::	.ZWORD "meters"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?METRES::	.ZWORD "metres"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MICK::	.ZWORD "mick"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MICK
+	.BYTE O?ANY
+W?MICK'S::	.ZWORD "mick's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MICK'S
+	.BYTE 0
+W?MICROPHONE::	.ZWORD "microp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MICROWAVE::	.ZWORD "microw"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MICROWAVE
+	.BYTE 0
+W?MIKE::	.ZWORD "mike"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MILLIO::	.ZWORD "millio"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?MILLIO
+	.BYTE 0
+W?MINIMUM::	.ZWORD "minimu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MINUTE::	.ZWORD "minute"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MISSING::	.ZWORD "missin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MISSING
+	.BYTE 0
+W?MOISTURE::	.ZWORD "moistu"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MOLEST::	.ZWORD "molest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?MONITOR::	.ZWORD "monito"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MONSTER::	.ZWORD "monste"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MORE::	.ZWORD "more"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MOTIVE::	.ZWORD "motive"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?MOUNT::	.ZWORD "mount"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+W?MOVE::	.ZWORD "move"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+	.BYTE 0
+W?MY::	.ZWORD "my"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?MY
+	.BYTE 0
+W?MYSELF::	.ZWORD "myself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?N::	.ZWORD "n"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 31
+	.BYTE A?NORTH
+W?NAME::	.ZWORD "name"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NAME
+	.BYTE 0
+W?NAY::	.ZWORD "nay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NE::	.ZWORD "ne"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 30
+	.BYTE A?NE
+W?NEEDLE::	.ZWORD "needle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?NEGATIVE::	.ZWORD "negati"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NEW::	.ZWORD "new"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NEW
+	.BYTE 0
+W?NEWSPAPER::	.ZWORD "newspa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?NINE::	.ZWORD "nine"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?NINE
+	.BYTE 0
+W?NINETE::	.ZWORD "ninete"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?NINETE
+	.BYTE 0
+W?NINETY::	.ZWORD "ninety"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?NINETY
+	.BYTE 0
+W?NO::	.ZWORD "no"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NOD::	.ZWORD "nod"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NOD
+	.BYTE 0
+W?NODULE::	.ZWORD "nodule"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?NOPE::	.ZWORD "nope"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NORTH::	.ZWORD "north"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 31
+	.BYTE A?NORTH
+W?NORTHE::	.ZWORD "northe"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 30
+	.BYTE A?NE
+W?NORTHW::	.ZWORD "northw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NW
+	.BYTE 24
+W?NOTHIN::	.ZWORD "nothin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?NOW::	.ZWORD "now"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?NOW
+	.BYTE 0
+W?NUMBER::	.ZWORD "number"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?NUMBER
+	.BYTE 0
+W?NW::	.ZWORD "nw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?NW
+	.BYTE 24
+W?OBJECT::	.ZWORD "object"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?OBSERVE::	.ZWORD "observ"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?OCEAN::	.ZWORD "ocean"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ODD::	.ZWORD "odd"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ODD
+	.BYTE 0
+W?ODDLY::	.ZWORD "oddly"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ODDLY
+	.BYTE 0
+W?OF::	.ZWORD "of"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?OF
+	.BYTE 0
+W?OFF::	.ZWORD "off"
+	.BYTE PS?OBJECT+PS?PREPOSITION+P1?OBJECT
+	.BYTE 245
+	.BYTE O?ANY
+W?OFFER::	.ZWORD "offer"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?HAND
+	.BYTE ACT?HAND
+W?OFFICE::	.ZWORD "office"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OFFICE
+	.BYTE O?ANY
+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?ON::	.ZWORD "on"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 247
+	.BYTE 0
+W?ONE::	.ZWORD "one"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ONE
+	.BYTE 0
+W?ONTO::	.ZWORD "onto"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 247
+	.BYTE 0
+W?OPEN::	.ZWORD "open"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OPEN
+	.BYTE ACT?OPEN
+W?OPERATOR::	.ZWORD "operat"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OPERATOR
+	.BYTE O?ANY
+W?ORANGE::	.ZWORD "orange"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ORANGE
+	.BYTE 0
+W?ORE::	.ZWORD "ore"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ORE
+	.BYTE 0
+W?OTHER::	.ZWORD "other"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OTHER
+	.BYTE 0
+W?OUT::	.ZWORD "out"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 249
+	.BYTE 20
+W?OVER::	.ZWORD "over"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 238
+	.BYTE 0
+W?OVERHEATING::	.ZWORD "overhe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?OXYGEN::	.ZWORD "oxygen"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?OXYGEN
+	.BYTE O?ANY
+W?P::	.ZWORD "p"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PAGE::	.ZWORD "page"
+	.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?PAPER::	.ZWORD "paper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PAPERS::	.ZWORD "papers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PART::	.ZWORD "part"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PARTS::	.ZWORD "parts"
+	.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?PAUSE::	.ZWORD "pause"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAVE
+	.BYTE 0
+W?PEAL::	.ZWORD "peal"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?PEE::	.ZWORD "pee"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PEE
+	.BYTE 0
+W?PEEK::	.ZWORD "peek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?PERSONAL::	.ZWORD "person"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PERSONAL
+	.BYTE 0
+W?PERUSE::	.ZWORD "peruse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?PET::	.ZWORD "pet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?PHONE::	.ZWORD "phone"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?CALL
+W?PHOTO::	.ZWORD "photo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PHOTOGRAPH::	.ZWORD "photog"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PICK::	.ZWORD "pick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PICK
+	.BYTE 0
+W?PICTURE::	.ZWORD "pictur"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PILOT::	.ZWORD "pilot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PISS::	.ZWORD "piss"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PISS
+	.BYTE 0
+W?PLACE::	.ZWORD "place"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+W?PLAN::	.ZWORD "plan"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLANS::	.ZWORD "plans"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLASTIC::	.ZWORD "plasti"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PLASTIC
+	.BYTE 0
+W?PLATE::	.ZWORD "plate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PLAY::	.ZWORD "play"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+	.BYTE 0
+W?PLEASE::	.ZWORD "please"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PLEASE
+	.BYTE 0
+W?POD::	.ZWORD "pod"
+	.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?POO::	.ZWORD "poo"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?POO
+	.BYTE 0
+W?PORCH::	.ZWORD "porch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PORT::	.ZWORD "port"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?POWER::	.ZWORD "power"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?POWER
+	.BYTE O?ANY
+W?PREPARE::	.ZWORD "prepar"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAKE
+	.BYTE 0
+W?PRESENT::	.ZWORD "presen"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PRESENT
+	.BYTE 0
+W?PRESS::	.ZWORD "press"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PRIVATELY::	.ZWORD "privat"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?PRIVATELY
+	.BYTE 0
+W?PROBLEM::	.ZWORD "proble"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?PROCEED::	.ZWORD "procee"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?PROPULSION::	.ZWORD "propul"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PROPULSION
+	.BYTE 0
+W?PROSPECTING::	.ZWORD "prospe"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?PROSPECTING
+	.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?PUNCH::	.ZWORD "punch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLAP
+	.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?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+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?RAISE::	.ZWORD "raise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+	.BYTE 0
+W?RAMP::	.ZWORD "ramp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RANDALL::	.ZWORD "randal"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RANDALL
+	.BYTE O?ANY
+W?RAP::	.ZWORD "rap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?RAPE::	.ZWORD "rape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?REACTOR::	.ZWORD "reacto"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?REACTOR
+	.BYTE O?ANY
+W?READ::	.ZWORD "read"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?REASON::	.ZWORD "reason"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RECEIVER::	.ZWORD "receiv"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RECEPTION::	.ZWORD "recept"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RECEPTION
+	.BYTE 0
+W?RED::	.ZWORD "red"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RED
+	.BYTE 0
+W?REDDISH::	.ZWORD "reddis"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?REDDISH
+	.BYTE 0
+W?REGULATOR::	.ZWORD "regula"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RELAX::	.ZWORD "relax"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?RELAY::	.ZWORD "relay"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RELEASE::	.ZWORD "releas"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?REMOTE::	.ZWORD "remote"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?REMOTE
+	.BYTE 0
+W?REMOVE::	.ZWORD "remove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?REPAIR::	.ZWORD "repair"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?REPEL::	.ZWORD "repel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?REPELATRON::	.ZWORD "repela"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?REPELATRON
+	.BYTE 0
+W?REPLACE::	.ZWORD "replac"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?REPLY::	.ZWORD "reply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?REPORT::	.ZWORD "report"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RESEARCH::	.ZWORD "resear"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RESEARCH
+	.BYTE 0
+W?RESET::	.ZWORD "reset"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?RESPOND::	.ZWORD "respon"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?REST::	.ZWORD "rest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?RESTART::	.ZWORD "restar"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTART
+	.BYTE 0
+W?RESTORE::	.ZWORD "restor"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+	.BYTE 0
+W?RESUME::	.ZWORD "resume"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+	.BYTE 0
+W?REVISION::	.ZWORD "revisi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELEASE
+	.BYTE 0
+W?REVOLUTIONARY::	.ZWORD "revolu"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?REVOLUTIONARY
+	.BYTE 0
+W?RID::	.ZWORD "rid"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 237
+	.BYTE 0
+W?RIGHT::	.ZWORD "right"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?RING::	.ZWORD "ring"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RING
+	.BYTE 0
+W?RISE::	.ZWORD "rise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RISE
+	.BYTE 0
+W?ROGER::	.ZWORD "roger"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?ROOF::	.ZWORD "roof"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ROOM::	.ZWORD "room"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?ROOM
+W?RUB::	.ZWORD "rub"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?RUBBER::	.ZWORD "rubber"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RUBBER
+	.BYTE 0
+W?RUN::	.ZWORD "run"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?RUNNING::	.ZWORD "runnin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?RUNNING
+	.BYTE 0
+W?RUNWAY::	.ZWORD "runway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?S::	.ZWORD "s"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 27
+	.BYTE A?SOUTH
+W?SABOTAGE::	.ZWORD "sabota"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SAFETY::	.ZWORD "safety"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SAFETY
+	.BYTE 0
+W?SAILOR::	.ZWORD "sailor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SATELLITE::	.ZWORD "satell"
+	.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?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SCANNER::	.ZWORD "scanne"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SCIMITAR::	.ZWORD "scimit"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SCIMITAR
+	.BYTE O?ANY
+W?SCOPE::	.ZWORD "scope"
+	.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?SCREAM::	.ZWORD "scream"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SCREEN::	.ZWORD "screen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SCREW::	.ZWORD "screw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCREW
+	.BYTE 0
+W?SCRIPT::	.ZWORD "script"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCRIPT
+	.BYTE 0
+W?SCRUTINIZE::	.ZWORD "scruti"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?SE::	.ZWORD "se"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 28
+	.BYTE A?SE
+W?SEA::	.ZWORD "sea"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEA
+	.BYTE O?ANY
+W?SEACAT::	.ZWORD "seacat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SEARCH::	.ZWORD "search"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SEARCH
+	.BYTE ACT?SEARCH
+W?SEASTALKER::	.ZWORD "seasta"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SEAT::	.ZWORD "seat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SEAWATER::	.ZWORD "seawat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SECTION::	.ZWORD "sectio"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SECURE::	.ZWORD "secure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?SECURITY::	.ZWORD "securi"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SECURITY
+	.BYTE 0
+W?SEE::	.ZWORD "see"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?SEIZE::	.ZWORD "seize"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?SEND::	.ZWORD "send"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEND
+	.BYTE 0
+W?SERIOUS::	.ZWORD "seriou"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SERIOUS
+	.BYTE 0
+W?SET::	.ZWORD "set"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SET
+	.BYTE 0
+W?SEVEN::	.ZWORD "seven"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SEVEN
+	.BYTE 0
+W?SEVENT::	.ZWORD "sevent"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SEVENT
+	.BYTE 0
+W?SHADE::	.ZWORD "shade"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?SHALL::	.ZWORD "shall"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHALL
+	.BYTE 0
+W?SHAPED::	.ZWORD "shaped"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SHAPED
+	.BYTE 0
+W?SHARON::	.ZWORD "sharon"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SHARON
+	.BYTE O?ANY
+W?SHE::	.ZWORD "she"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SHE'S::	.ZWORD "she's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHE'S
+	.BYTE 0
+W?SHELF::	.ZWORD "shelf"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SHELVES::	.ZWORD "shelve"
+	.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?SHIT::	.ZWORD "shit"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHIT
+	.BYTE 0
+W?SHOOT::	.ZWORD "shoot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?SHOP::	.ZWORD "shop"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SHOULD::	.ZWORD "should"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SHOULD
+	.BYTE 0
+W?SHOUT::	.ZWORD "shout"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SHOW::	.ZWORD "show"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+	.BYTE 0
+W?SHUT::	.ZWORD "shut"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SWITCH
+W?SIEGEL::	.ZWORD "siegel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SIEGEL
+	.BYTE O?ANY
+W?SIGN::	.ZWORD "sign"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SIGNAL::	.ZWORD "signal"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?CALL
+W?SIT::	.ZWORD "sit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?SIX::	.ZWORD "six"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SIX
+	.BYTE 0
+W?SIXTEE::	.ZWORD "sixtee"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SIXTEE
+	.BYTE 0
+W?SIXTY::	.ZWORD "sixty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SIXTY
+	.BYTE 0
+W?SKIM::	.ZWORD "skim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?SLAP::	.ZWORD "slap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLAP
+	.BYTE 0
+W?SLIDING::	.ZWORD "slidin"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SLIDING
+	.BYTE 0
+W?SLOW::	.ZWORD "slow"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SLOWER::	.ZWORD "slower"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SLOWLY::	.ZWORD "slowly"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SLOWLY
+	.BYTE 0
+W?SLUG::	.ZWORD "slug"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SMALL::	.ZWORD "small"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SMALL
+	.BYTE 0
+W?SMASH::	.ZWORD "smash"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DAMAGE
+W?SMELL::	.ZWORD "smell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SMILE::	.ZWORD "smile"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?SMOKE::	.ZWORD "smoke"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMOKE
+	.BYTE 0
+W?SNAPSHOT::	.ZWORD "snapsh"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SNARK::	.ZWORD "snark"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SNIFF::	.ZWORD "sniff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SNOT::	.ZWORD "snot"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SNOT
+	.BYTE 0
+W?SOME::	.ZWORD "some"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SOME
+	.BYTE 0
+W?SOMETHING::	.ZWORD "someth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SONAR::	.ZWORD "sonar"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SONAR
+	.BYTE O?ANY
+W?SONARPHONE::	.ZWORD "sonarp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SONARSCOPE::	.ZWORD "sonars"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?SONARSCOPE
+W?SOON::	.ZWORD "soon"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SOON
+	.BYTE 0
+W?SOS::	.ZWORD "sos"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SOS
+	.BYTE O?ANY
+W?SOUND::	.ZWORD "sound"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SOUTH::	.ZWORD "south"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 27
+	.BYTE A?SOUTH
+W?SOUTHE::	.ZWORD "southe"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 28
+	.BYTE A?SE
+W?SOUTHW::	.ZWORD "southw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SW
+	.BYTE 26
+W?SPACE::	.ZWORD "space"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SPARE::	.ZWORD "spare"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SPARE
+	.BYTE 0
+W?SPEAK::	.ZWORD "speak"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?SPEAKER::	.ZWORD "speake"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SPECIAL::	.ZWORD "specia"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SPECIAL
+	.BYTE 0
+W?SPEED::	.ZWORD "speed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SPREADING::	.ZWORD "spread"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SPREADING
+	.BYTE 0
+W?SQUARE::	.ZWORD "square"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STAIN::	.ZWORD "stain"
+	.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?STANDING::	.ZWORD "standi"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STANDING
+	.BYTE 0
+W?STARBOARD::	.ZWORD "starbo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STARE::	.ZWORD "stare"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?START::	.ZWORD "start"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+	.BYTE 0
+W?STARTER::	.ZWORD "starte"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?STARTER
+W?STARTLE::	.ZWORD "startl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?STATE::	.ZWORD "state"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?STATION::	.ZWORD "statio"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?STATION
+W?STAY::	.ZWORD "stay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?STEAL::	.ZWORD "steal"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?STEEL::	.ZWORD "steel"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STEEL
+	.BYTE 0
+W?STEER::	.ZWORD "steer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?STENCIL::	.ZWORD "stenci"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STENCIL
+	.BYTE 0
+W?STICK::	.ZWORD "stick"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STILL::	.ZWORD "still"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STOP::	.ZWORD "stop"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?STOP
+W?STORAGE::	.ZWORD "storag"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?STORAGE
+	.BYTE 0
+W?STORY::	.ZWORD "story"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?STRANGLE::	.ZWORD "strang"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KILL
+	.BYTE 0
+W?STRAW::	.ZWORD "straw"
+	.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?STUDY::	.ZWORD "study"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?STUFF::	.ZWORD "stuff"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?PLACE
+W?SUB::	.ZWORD "sub"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SUB
+	.BYTE O?ANY
+W?SUB'S::	.ZWORD "sub's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SUB'S
+	.BYTE 0
+W?SUBMARINE::	.ZWORD "submar"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SUBMARINE
+	.BYTE O?ANY
+W?SUBMERGE::	.ZWORD "submer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIVE
+	.BYTE 0
+W?SUCK::	.ZWORD "suck"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?SUCK
+	.BYTE 0
+W?SUMMON::	.ZWORD "summon"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?CALL
+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?SUPPLIES::	.ZWORD "suppli"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SUPPLY::	.ZWORD "supply"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?SUPPLY
+W?SURE::	.ZWORD "sure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?SURFACE::	.ZWORD "surfac"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SURFACE
+W?SURPRISE::	.ZWORD "surpri"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?SURVIVAL::	.ZWORD "surviv"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?SURVIVAL
+	.BYTE 0
+W?SUSPEND::	.ZWORD "suspen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAVE
+	.BYTE 0
+W?SW::	.ZWORD "sw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?ADJECTIVE
+	.BYTE A?SW
+	.BYTE 26
+W?SWALLOW::	.ZWORD "swallo"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?SWIM::	.ZWORD "swim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?SWING::	.ZWORD "swing"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SWITCH
+W?SWITCH::	.ZWORD "switch"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?SWITCH
+W?SYRINGE::	.ZWORD "syring"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?SYSTEM::	.ZWORD "system"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TABLE::	.ZWORD "table"
+	.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+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?TANK
+W?TEAR::	.ZWORD "tear"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?DAMAGE
+W?TECHNICIAN::	.ZWORD "techni"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TELL::	.ZWORD "tell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+	.BYTE 0
+W?TEMPERATURE::	.ZWORD "temper"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEMPERATURE
+	.BYTE O?ANY
+W?TEMPORARY::	.ZWORD "tempor"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEMPORARY
+	.BYTE 0
+W?TEN::	.ZWORD "ten"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TEN
+	.BYTE 0
+W?TEST::	.ZWORD "test"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEST
+	.BYTE ACT?TEST
+W?TESTER::	.ZWORD "tester"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TESTOR::	.ZWORD "testor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THANK::	.ZWORD "thank"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANKS
+	.BYTE 0
+W?THANKS::	.ZWORD "thanks"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANKS
+	.BYTE 0
+W?THAT'S::	.ZWORD "that's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THAT'S
+	.BYTE 0
+W?THE::	.ZWORD "the"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THE
+	.BYTE 0
+W?THEM::	.ZWORD "them"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THEN::	.ZWORD "then"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THEN
+	.BYTE 0
+W?THERE::	.ZWORD "there"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THERE
+	.BYTE 0
+W?THESE::	.ZWORD "these"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?THESE
+	.BYTE 0
+W?THEY::	.ZWORD "they"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THEY'RE::	.ZWORD "they'r"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THEY'RE
+	.BYTE 0
+W?THING::	.ZWORD "thing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THIRTE::	.ZWORD "thirte"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THIRTE
+	.BYTE 0
+W?THIRTY::	.ZWORD "thirty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THIRTY
+	.BYTE 0
+W?THIS::	.ZWORD "this"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?THIS
+	.BYTE O?ANY
+W?THORPE::	.ZWORD "thorpe"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?THORPE
+	.BYTE O?ANY
+W?THOUSA::	.ZWORD "thousa"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THOUSA
+	.BYTE 0
+W?THREAT::	.ZWORD "threat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THREE::	.ZWORD "three"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?THREE
+	.BYTE 0
+W?THROTTLE::	.ZWORD "thrott"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?THROUGH::	.ZWORD "throug"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 242
+	.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 242
+	.BYTE 0
+W?TIE::	.ZWORD "tie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?TILL::	.ZWORD "till"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 234
+	.BYTE 0
+W?TIP::	.ZWORD "tip"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TIP
+	.BYTE O?ANY
+W?TIP'S::	.ZWORD "tip's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TIP'S
+	.BYTE 0
+W?TO::	.ZWORD "to"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 251
+	.BYTE 0
+W?TOOL::	.ZWORD "tool"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TOP::	.ZWORD "top"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TOSS::	.ZWORD "toss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?TOUCH::	.ZWORD "touch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?TRACE::	.ZWORD "trace"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?TRACK::	.ZWORD "track"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TRACTOR::	.ZWORD "tracto"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TRAITOR::	.ZWORD "traito"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TRANK::	.ZWORD "trank"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TRANK
+	.BYTE 0
+W?TRANQUILIZER::	.ZWORD "tranqu"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TRANQUILIZER
+	.BYTE 0
+W?TRANSMITTER::	.ZWORD "transm"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TRANSPARENT::	.ZWORD "transp"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TRANSPARENT
+	.BYTE 0
+W?TRAP::	.ZWORD "trap"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TROUBLESHOOT::	.ZWORD "troubl"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?TEST
+	.BYTE ACT?TEST
+W?TUG::	.ZWORD "tug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?TUNE::	.ZWORD "tune"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ADJUST
+	.BYTE 0
+W?TURBINE::	.ZWORD "turbin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TURN::	.ZWORD "turn"
+	.BYTE PS?OBJECT+PS?VERB+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE ACT?TURN
+W?TURNS::	.ZWORD "turns"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?TWELVE::	.ZWORD "twelve"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TWELVE
+	.BYTE 0
+W?TWENTY::	.ZWORD "twenty"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TWENTY
+	.BYTE 0
+W?TWO::	.ZWORD "two"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?TWO
+	.BYTE 0
+W?U::	.ZWORD "u"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 253
+	.BYTE 23
+W?ULTRAMARINE::	.ZWORD "ultram"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ULTRAMARINE
+	.BYTE 0
+W?UNATTACH::	.ZWORD "unatta"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNCUFF::	.ZWORD "uncuff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNDER::	.ZWORD "under"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 248
+	.BYTE 0
+W?UNDERNEATH::	.ZWORD "undern"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 248
+	.BYTE 0
+W?UNDERSEA::	.ZWORD "unders"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UNDERSEA
+	.BYTE 0
+W?UNDERWATER::	.ZWORD "underw"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UNDERWATER
+	.BYTE O?ANY
+W?UNFASTEN::	.ZWORD "unfast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNHOOK::	.ZWORD "unhook"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNIT::	.ZWORD "unit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?UNIVERSAL::	.ZWORD "univer"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?UNIVERSAL
+	.BYTE 0
+W?UNLIMITED::	.ZWORD "unlimi"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.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?UNTIL::	.ZWORD "until"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 233
+	.BYTE 0
+W?UP::	.ZWORD "up"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?OBJECT
+	.BYTE 253
+	.BYTE 23
+W?URGENT::	.ZWORD "urgent"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?URGENT
+	.BYTE 0
+W?US::	.ZWORD "us"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?USE::	.ZWORD "use"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?USE
+	.BYTE 0
+W?USING::	.ZWORD "using"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 255
+	.BYTE 0
+W?VALUABLE::	.ZWORD "valuab"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VALUABLE
+	.BYTE 0
+W?VALVE::	.ZWORD "valve"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?VALVES::	.ZWORD "valves"
+	.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?RELEASE
+	.BYTE 0
+W?VIDEO::	.ZWORD "video"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VIDEO
+	.BYTE 0
+W?VIDEOPHONE::	.ZWORD "videop"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VIDEOPHONE
+	.BYTE O?ANY
+W?VIEWPORT::	.ZWORD "viewpo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?VOLTAGE::	.ZWORD "voltag"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?VOLTAGE
+	.BYTE 0
+W?W::	.ZWORD "w"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 25
+	.BYTE A?WEST
+W?WADE::	.ZWORD "wade"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?WAIT::	.ZWORD "wait"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?WAKE::	.ZWORD "wake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?WALK::	.ZWORD "walk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?WALKWAY::	.ZWORD "walkwa"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WALL::	.ZWORD "wall"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE A?WALL
+W?WALT::	.ZWORD "walt"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WALT
+	.BYTE O?ANY
+W?WALT'S::	.ZWORD "walt's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WALT'S
+	.BYTE 0
+W?WARM::	.ZWORD "warm"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WARM
+	.BYTE 0
+W?WARNING::	.ZWORD "warnin"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WARNING
+	.BYTE O?ANY
+W?WAS::	.ZWORD "was"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WAS
+	.BYTE 0
+W?WATER::	.ZWORD "water"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WE::	.ZWORD "we"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WE'RE::	.ZWORD "we're"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WE'RE
+	.BYTE 0
+W?WEAPON::	.ZWORD "weapon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WELL::	.ZWORD "well"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WELL
+	.BYTE 0
+W?WERE::	.ZWORD "were"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WERE
+	.BYTE 0
+W?WEST::	.ZWORD "west"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 25
+	.BYTE A?WEST
+W?WHALE::	.ZWORD "whale"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WHAT::	.ZWORD "what"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHAT
+	.BYTE 0
+W?WHAT'S::	.ZWORD "what's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHAT'S
+	.BYTE 0
+W?WHEN::	.ZWORD "when"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHEN
+	.BYTE 0
+W?WHEN'S::	.ZWORD "when's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHEN'S
+	.BYTE 0
+W?WHERE::	.ZWORD "where"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHERE
+	.BYTE 0
+W?WHICH::	.ZWORD "which"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHICH
+	.BYTE 0
+W?WHO::	.ZWORD "who"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHO
+	.BYTE 0
+W?WHO'S::	.ZWORD "who's"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHO'S
+	.BYTE 0
+W?WHY::	.ZWORD "why"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WHY
+	.BYTE 0
+W?WILCO::	.ZWORD "wilco"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?WILL::	.ZWORD "will"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WILL
+	.BYTE 0
+W?WIND::	.ZWORD "wind"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WINDOW::	.ZWORD "window"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WINK::	.ZWORD "wink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?WIPE::	.ZWORD "wipe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRUSH
+	.BYTE 0
+W?WITH::	.ZWORD "with"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE 255
+	.BYTE 0
+W?WOMAN::	.ZWORD "woman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WON'T::	.ZWORD "won't"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WON'T
+	.BYTE 0
+W?WORK::	.ZWORD "work"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WORK
+	.BYTE O?ANY
+W?WORKBENCH::	.ZWORD "workbe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WORKCOUNTER::	.ZWORD "workco"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?WORKSHOP::	.ZWORD "worksh"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?WORKSHOP
+	.BYTE O?ANY
+W?WOULD::	.ZWORD "would"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?WOULD
+	.BYTE 0
+W?WRENCH::	.ZWORD "wrench"
+	.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?YEAH::	.ZWORD "yeah"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YELL::	.ZWORD "yell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?YELLOW::	.ZWORD "yellow"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?YELLOW
+	.BYTE 0
+W?YES::	.ZWORD "yes"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YOU::	.ZWORD "you"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?YOU'RE::	.ZWORD "you're"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?YOU'RE
+	.BYTE 0
+W?YOUNG::	.ZWORD "young"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?YOUNG
+	.BYTE 0
+W?YOURSELF::	.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?ZERO::	.ZWORD "zero"
+	.BYTE PS?BUZZ-WORD
+	.BYTE B?ZERO
+	.BYTE 0
+W?ZOE::	.ZWORD "zoe"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ZOE
+	.BYTE O?ANY
+W?ZOE'S::	.ZWORD "zoe's"
+	.BYTE PS?ADJECTIVE+P1?ADJECTIVE
+	.BYTE A?ZOE'S
+	.BYTE 0
+W?ZZZLG::	.ZWORD "zzzlg"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+W?ZZZZLG::	.ZWORD "zzzzlg"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE O?ANY
+	.BYTE 0
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+
+; PURE TABLES ARE DEFINED HERE
+
+T?1::	.TABLE
+	4
+	STR?1
+	STR?2
+	STR?3
+	STR?4
+	.ENDT
+
+T?2::	.TABLE
+	32767
+	4095
+	511
+	63
+	7
+	.ENDT
+
+T?3::	.TABLE
+	4096
+	512
+	64
+	8
+	1
+	.ENDT
+
+T?4::	.TABLE
+	8
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5::	.TABLE
+	8
+	0
+	0
+	73
+	4681
+	4096
+	0
+	0
+	0
+	.ENDT
+
+T?6::	.TABLE
+	8
+	0
+	1
+	4689
+	4681
+	4672
+	0
+	0
+	0
+	.ENDT
+
+T?7::	.TABLE
+	8
+	0
+	73
+	5266
+	8777
+	4681
+	0
+	0
+	0
+	.ENDT
+
+T?8::	.TABLE
+	8
+	0
+	4682
+	9362
+	8777
+	4681
+	4608
+	0
+	0
+	.ENDT
+
+T?9::	.TABLE
+	8
+	1
+	4754
+	14034
+	8777
+	4681
+	4680
+	0
+	0
+	.ENDT
+
+T?10::	.TABLE
+	8
+	9
+	5275
+	14554
+	9289
+	4681
+	4681
+	0
+	0
+	.ENDT
+
+T?11::	.TABLE
+	8
+	73
+	9436
+	18715
+	9289
+	4681
+	4681
+	4096
+	0
+	.ENDT
+
+T?12::	.TABLE
+	8
+	1170
+	9956
+	18715
+	9353
+	4681
+	4681
+	4608
+	0
+	.ENDT
+
+T?13::	.TABLE
+	8
+	658
+	10020
+	18723
+	13969
+	4681
+	4681
+	4672
+	0
+	.ENDT
+
+T?14::	.TABLE
+	8
+	658
+	14116
+	18724
+	13970
+	4681
+	4681
+	4680
+	0
+	.ENDT
+
+T?15::	.TABLE
+	8
+	594
+	12873
+	18724
+	18130
+	4681
+	4681
+	4680
+	0
+	.ENDT
+
+T?16::	.TABLE
+	8
+	594
+	4681
+	4708
+	18650
+	9289
+	4681
+	4681
+	0
+	.ENDT
+
+T?17::	.TABLE
+	8
+	594
+	12873
+	4684
+	18715
+	9353
+	4681
+	4681
+	4096
+	.ENDT
+
+T?18::	.TABLE
+	8
+	658
+	14628
+	4681
+	18723
+	13961
+	4681
+	4681
+	4096
+	.ENDT
+
+T?19::	.TABLE
+	8
+	659
+	18724
+	16969
+	6436
+	13969
+	4681
+	4681
+	4096
+	.ENDT
+
+T?20::	.TABLE
+	8
+	1171
+	18724
+	18721
+	4900
+	18642
+	8777
+	4681
+	4608
+	.ENDT
+
+T?21::	.TABLE
+	8
+	1180
+	18724
+	18724
+	4708
+	18650
+	9289
+	4681
+	4608
+	.ENDT
+
+T?22::	.TABLE
+	8
+	2925
+	23405
+	18724
+	18724
+	18715
+	13449
+	4681
+	4608
+	.ENDT
+
+T?23::	.TABLE
+	8
+	2925
+	23405
+	23404
+	18724
+	18724
+	13969
+	4681
+	4608
+	.ENDT
+
+T?24::	.TABLE
+	8
+	2925
+	23405
+	23405
+	23332
+	18724
+	18130
+	8777
+	4608
+	.ENDT
+
+T?25::	.TABLE
+	8
+	2925
+	23405
+	23405
+	23404
+	18724
+	18651
+	9353
+	4608
+	.ENDT
+
+T?26::	.TABLE
+	8
+	2925
+	23405
+	23405
+	23405
+	18724
+	18715
+	13969
+	4608
+	.ENDT
+
+T?27::	.TABLE
+	8
+	2925
+	23405
+	23405
+	23405
+	23332
+	18724
+	18130
+	4608
+	.ENDT
+
+T?28::	.TABLE
+	8
+	2925
+	23405
+	23405
+	23405
+	23396
+	18724
+	18650
+	4672
+	.ENDT
+
+T?29::	.TABLE
+	8
+	2925
+	23405
+	23405
+	23405
+	23405
+	18692
+	18714
+	4672
+	.ENDT
+
+T?30::	.TABLE
+	8
+	219
+	18724
+	23405
+	23405
+	23405
+	22820
+	18714
+	8768
+	.ENDT
+
+T?31::	.TABLE
+	8
+	147
+	14628
+	18733
+	23405
+	23405
+	23332
+	18714
+	8704
+	.ENDT
+
+T?32::	.TABLE
+	8
+	82
+	14116
+	18724
+	23405
+	23405
+	23396
+	18723
+	8704
+	.ENDT
+
+T?33::	.TABLE
+	8
+	10
+	14116
+	18724
+	18797
+	23405
+	23404
+	18723
+	9280
+	.ENDT
+
+T?34::	.TABLE
+	8
+	10
+	9956
+	18700
+	18733
+	23405
+	23405
+	18724
+	17920
+	.ENDT
+
+T?35::	.TABLE
+	8
+	9
+	9436
+	18697
+	4900
+	23405
+	23405
+	22820
+	16432
+	.ENDT
+
+T?36::	.TABLE
+	8
+	1
+	9435
+	18721
+	4900
+	19309
+	23405
+	23332
+	432
+	.ENDT
+
+T?37::	.TABLE
+	8
+	1
+	5275
+	14628
+	4708
+	18733
+	23405
+	23392
+	3504
+	.ENDT
+
+T?38::	.TABLE
+	8
+	0
+	4755
+	14052
+	18724
+	18725
+	23405
+	23400
+	28080
+	.ENDT
+
+T?39::	.TABLE
+	8
+	0
+	594
+	14043
+	18724
+	18724
+	23405
+	23406
+	28080
+	.ENDT
+
+T?40::	.TABLE
+	8
+	0
+	73
+	9363
+	14116
+	18724
+	19309
+	23414
+	28080
+	.ENDT
+
+T?41::	.TABLE
+	8
+	0
+	1
+	4690
+	9947
+	18724
+	18797
+	23478
+	28080
+	.ENDT
+
+T?42::	.TABLE
+	8
+	0
+	0
+	4681
+	9363
+	14052
+	18733
+	23990
+	28080
+	.ENDT
+
+T?43::	.TABLE
+	8
+	0
+	0
+	73
+	4682
+	9371
+	18725
+	28086
+	28080
+	.ENDT
+
+T?44::	.TABLE
+	8
+	0
+	0
+	0
+	9
+	4755
+	18438
+	28086
+	28080
+	.ENDT
+
+T?45::	.TABLE
+	8
+	0
+	0
+	0
+	0
+	586
+	12342
+	28086
+	28080
+	.ENDT
+
+T?46::	.TABLE
+	8
+	0
+	0
+	0
+	0
+	9
+	438
+	28086
+	28080
+	.ENDT
+
+T?47::	.TABLE
+	8
+	0
+	0
+	0
+	0
+	0
+	3510
+	28086
+	28080
+	.ENDT
+
+T?48::	.TABLE
+	8
+	0
+	0
+	0
+	0
+	0
+	28086
+	28086
+	28080
+	.ENDT
+
+T?49::	.TABLE
+	8
+	0
+	0
+	0
+	0
+	0
+	28086
+	28086
+	28080
+	.ENDT
+
+T?50::	.TABLE
+	46
+	T?4
+	T?5
+	T?6
+	T?7
+	T?8
+	T?9
+	T?10
+	T?11
+	T?12
+	T?13
+	T?14
+	T?15
+	T?16
+	T?17
+	T?18
+	T?19
+	T?20
+	T?21
+	T?22
+	T?23
+	T?24
+	T?25
+	T?26
+	T?27
+	T?28
+	T?29
+	T?30
+	T?31
+	T?32
+	T?33
+	T?34
+	T?35
+	T?36
+	T?37
+	T?38
+	T?39
+	T?40
+	T?41
+	T?42
+	T?43
+	T?44
+	T?45
+	T?46
+	T?47
+	T?48
+	T?49
+	.ENDT
+
+T?52::	.TABLE
+	STR?17
+	STR?46
+	STR?47
+	STR?48
+	.ENDT
+
+T?58::	.TABLE
+	17
+	FOOT-OF-RAMP
+	OUTSIDE-ADMIN-BLDG
+	OUTSIDE-COMM-BLDG
+	OUTSIDE-WORKSHOP
+	OUTSIDE-DORM
+	FOOT-OF-RAMP
+	AIRLOCK
+	AIRLOCK-WALL
+	CENTER-OF-DOME
+	BLY-OFFICE
+	DOME-STORAGE
+	COMM-BLDG
+	GALLEY
+	WORKSHOP
+	DOME-LAB
+	WOMENS-QUARTERS
+	MENS-QUARTERS
+	.ENDT
+
+T?61::	.TABLE
+	PLAYER
+	TIP
+	SHARON
+	GLOBAL-PERELLI
+	THORPE
+	BLY
+	ANTRIM
+	HORVAK
+	SIEGEL
+	GREENUP
+	LOWELL
+	.ENDT
+
+T?62::	.TABLE
+	PLAYER
+	GLOBAL-TIP
+	GLOBAL-SHARON
+	GLOBAL-PERELLI
+	GLOBAL-THORPE
+	GLOBAL-BLY
+	GLOBAL-ANTRIM
+	GLOBAL-HORVAK
+	GLOBAL-SIEGEL
+	GLOBAL-GREENUP
+	GLOBAL-LOWELL
+	.ENDT
+
+T?63::	.TABLE
+	2
+	STATION-MONITOR
+	WINDOW
+	.ENDT
+
+T?64::	.TABLE
+	2
+	STR?84
+	STR?85
+	.ENDT
+
+T?65::	.TABLE
+	2
+	STR?91
+	STR?92
+	.ENDT
+
+T?66::	.TABLE
+	P?NORTH
+	STR?99
+	P?SOUTH
+	STR?100
+	P?EAST
+	STR?101
+	P?WEST
+	STR?102
+	P?NW
+	STR?103
+	P?NE
+	STR?104
+	P?SW
+	STR?105
+	P?SE
+	STR?106
+	P?DOWN
+	STR?107
+	P?UP
+	STR?108
+	P?IN
+	STR?109
+	P?OUT
+	STR?110
+	.ENDT
+
+T?67::	.TABLE
+	P?NORTH
+	P?SOUTH
+	OUTSIDE-COMM-BLDG
+	OUTSIDE-ADMIN-BLDG
+	0
+	.ENDT
+
+T?68::	.TABLE
+	P?WEST
+	P?EAST
+	OUTSIDE-WORKSHOP
+	OUTSIDE-COMM-BLDG
+	0
+	.ENDT
+
+T?69::	.TABLE
+	P?NORTH
+	P?SOUTH
+	OUTSIDE-WORKSHOP
+	OUTSIDE-DORM
+	0
+	.ENDT
+
+T?70::	.TABLE
+	P?WEST
+	P?EAST
+	OUTSIDE-DORM
+	FOOT-OF-RAMP
+	OUTSIDE-ADMIN-BLDG
+	0
+	.ENDT
+
+T?71::	.TABLE
+	P?NORTH
+	P?SOUTH
+	CENTER-OF-DOME
+	FOOT-OF-RAMP
+	AIRLOCK-WALL
+	0
+	.ENDT
+
+T?72::	.TABLE
+	P?NE
+	P?SW
+	OUTSIDE-COMM-BLDG
+	CENTER-OF-DOME
+	OUTSIDE-DORM
+	0
+	.ENDT
+
+T?73::	.TABLE
+	P?NW
+	P?SE
+	OUTSIDE-WORKSHOP
+	CENTER-OF-DOME
+	OUTSIDE-ADMIN-BLDG
+	0
+	.ENDT
+
+T?74::	.TABLE
+	P?NORTH
+	P?SOUTH
+	NORTH-TANK-AREA
+	WEST-TANK-AREA
+	SOUTH-TANK-AREA
+	0
+	.ENDT
+
+T?75::	.TABLE
+	P?NORTH
+	P?SOUTH
+	NORTH-WALL
+	WEST-WALL
+	0
+	.ENDT
+
+T?76::	.TABLE
+	P?NORTH
+	P?SOUTH
+	WEST-WALL
+	SOUTH-WALL
+	0
+	.ENDT
+
+T?77::	.TABLE
+	P?WEST
+	P?EAST
+	WEST-WALL
+	CENTER-OF-LAB
+	EAST-WALL
+	0
+	.ENDT
+
+T?78::	.TABLE
+	P?NORTH
+	P?SOUTH
+	NORTH-WALL
+	CENTER-OF-LAB
+	SOUTH-WALL
+	0
+	.ENDT
+
+T?79::	.TABLE
+	P?NORTH
+	P?SOUTH
+	NORTH-WALL
+	EAST-WALL
+	0
+	.ENDT
+
+T?80::	.TABLE
+	P?NORTH
+	P?SOUTH
+	EAST-WALL
+	SOUTH-WALL
+	0
+	.ENDT
+
+T?94::	.TABLE
+	2
+	STR?130
+	STR?131
+	.ENDT
+
+T?95::	.TABLE
+	STR?132
+	STR?132
+	STR?133
+	STR?134
+	STR?135
+	STR?136
+	.ENDT
+
+T?96::	.TABLE
+	4
+	STR?138
+	STR?139
+	STR?140
+	STR?141
+	.ENDT
+
+T?97::	.TABLE
+	7
+	STR?142
+	STR?143
+	STR?144
+	STR?145
+	STR?146
+	STR?147
+	STR?148
+	.ENDT
+
+T?98::	.TABLE
+	STR?189
+	STR?190
+	STR?191
+	STR?192
+	STR?193
+	STR?194
+	.ENDT
+
+	.ENDI
diff --git a/j1freq.xzap b/j1freq.xzap
new file mode 100644
index 0000000..6fb246e
--- /dev/null
+++ b/j1freq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;1712	856
+	.FSTR FSTR?2,", "	;612	612
+	.FSTR FSTR?3,"The "	;579	193
+	.FSTR FSTR?4,"You "	;537	179
+	.FSTR FSTR?5,"you "	;530	265
+	.FSTR FSTR?6,"and "	;438	219
+	.FSTR FSTR?7,"You're "	;420	60
+	.FSTR FSTR?8,"to "	;408	408
+	.FSTR FSTR?9,"There's "	;368	46
+	.FSTR FSTR?10,"your "	;357	119
+	.FSTR FSTR?11,"It's "	;345	69
+	.FSTR FSTR?12,". "	;331	331
+	.FSTR FSTR?13,"can't "	;325	65
+	.FSTR FSTR?14,"that "	;288	96
+	.FSTR FSTR?15,"is "	;244	244
+	.FSTR FSTR?16,"of "	;239	239
+	.FSTR FSTR?17,"have "	;237	79
+	.FSTR FSTR?18,"with "	;219	73
+	.FSTR FSTR?19,"from "	;189	63
+	.FSTR FSTR?20,"in "	;172	172
+	.FSTR FSTR?21,"don't "	;170	34
+	.FSTR FSTR?22,"I "	;164	164
+	.FSTR FSTR?23,"for "	;160	80
+	.FSTR FSTR?24,"can "	;156	78
+	.FSTR FSTR?25,"you're "	;156	26
+	.FSTR FSTR?26,"should "	;150	30
+	.FSTR FSTR?27,"This "	;140	35
+	.FSTR FSTR?28,"! "	;133	133
+	.FSTR FSTR?29,"That's "	;133	19
+	.FSTR FSTR?30,"Suddenly "	;128	16
+	.FSTR FSTR?31,"about "	;124	31
+	.FSTR FSTR?32,"through "	;120	20
+	.FSTR FSTR?33,"on "	;117	117
+	.FSTR FSTR?34,"want "	;114	38
+	.FSTR FSTR?35,"not "	;110	55
+	.FSTR FSTR?36,"think "	;108	27
+	.FSTR FSTR?37,"nothing "	;108	18
+	.FSTR FSTR?38,"it "	;107	107
+	.FSTR FSTR?39,"just "	;105	35
+	.FSTR FSTR?40,"find "	;105	35
+	.FSTR FSTR?41,"out "	;104	52
+	.FSTR FSTR?42,"something "	;104	13
+	.FSTR FSTR?43,"this "	;102	34
+	.FSTR FSTR?44,"but "	;100	50
+	.FSTR FSTR?45,"will "	;96	32
+	.FSTR FSTR?46,"Your "	;96	24
+	.FSTR FSTR?47,"That "	;96	24
+	.FSTR FSTR?48,"has "	;94	47
+	.FSTR FSTR?49,"doesn't "	;91	13
+	.FSTR FSTR?50,"You'll "	;91	13
+	.FSTR FSTR?51,"Greenup "	;91	13
+	.FSTR FSTR?52,"here"	;88	44
+	.FSTR FSTR?53,"still "	;88	22
+	.FSTR FSTR?54,"could "	;88	22
+	.FSTR FSTR?55,"I'm "	;88	22
+	.FSTR FSTR?56,"into "	;87	29
+	.FSTR FSTR?57,"that"	;86	43
+	.FSTR FSTR?58,"around "	;85	17
+	.FSTR FSTR?59,"Tip "	;84	28
+	.FSTR FSTR?60,"control "	;84	14
+	.FSTR FSTR?61,"Thorpe "	;84	14
+	.FSTR FSTR?62,"Sharon "	;84	14
+	.FSTR FSTR?63,"looks "	;80	20
+	.FSTR FSTR?64,"Sorry"	;80	20
+	.FSTR FSTR?65,"won't "	;80	16
+	.FSTR FSTR?66,"monster "	;78	13
+	.FSTR FSTR?67,"anything "	;77	11
+	.FSTR FSTR?68,"see "	;76	38
+	.FSTR FSTR?69,"open "	;75	25
+	.FSTR FSTR?70,"must "	;75	25
+	.FSTR FSTR?71,"are "	;74	37
+	.FSTR FSTR?72,"Okay"	;72	24
+	.FSTR FSTR?73,"looking "	;72	12
+	.FSTR FSTR?74,"didn't "	;72	12
+	.FSTR FSTR?75,"at "	;71	71
+	.FSTR FSTR?76,"now "	;70	35
+	.FSTR FSTR?77,"It "	;70	35
+	.FSTR FSTR?78,"meters "	;70	14
+	.FSTR FSTR?79,"isn't "	;70	14
+	.FSTR FSTR?80,"engine "	;70	14
+	.FSTR FSTR?81,"would "	;68	17
+	.FSTR FSTR?82,"right "	;68	17
+	.FSTR FSTR?83,"better "	;65	13
+	.FSTR FSTR?84,"I'll "	;65	13
+	.FSTR FSTR?85,"be "	;64	64
+	.FSTR FSTR?86,"what "	;63	21
+	.FSTR FSTR?87,"do "	;61	61
+	.FSTR FSTR?88,"tank "	;60	20
+	.FSTR FSTR?89,"like "	;60	20
+	.FSTR FSTR?90,"under "	;60	15
+	.FSTR FSTR?91,"comes "	;60	15
+	.FSTR FSTR?92,"sitting "	;60	10
+	.FSTR FSTR?93,"docking "	;60	10
+	.FSTR FSTR?94,"already "	;60	10
+	.FSTR FSTR?95,"take "	;57	19
+	.FSTR FSTR?96,"But "	;57	19
+
+
+;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/j1str.zap b/j1str.zap
index 3da75bc..b504157 100644
--- a/j1str.zap
+++ b/j1str.zap
@@ -22,195 +22,184 @@
 	.GSTR STR?18,"not close enough to the claw"
 	.GSTR STR?19,"take"
 	.GSTR STR?20,"push"
-	.GSTR STR?21,"east"
-	.GSTR STR?22,"south"
-	.GSTR STR?23,"open"
-	.GSTR STR?24,"under water"
-	.GSTR STR?25,"clean enough"
-	.GSTR STR?26,"The space is dimly illuminated by small work lights, but you can see machinery everywhere."
-	.GSTR STR?27,"The only way out is ""OUT""."
-	.GSTR STR?28,"(You'll find that information in your SEASTALKER package.)"
-	.GSTR STR?29,"fixed"
-	.GSTR STR?30,"orange"
-	.GSTR STR?31,"red"
-	.GSTR STR?32,"changes to orange"
-	.GSTR STR?33,"fades to dark again"
-	.GSTR STR?34,"turns red"
-	.GSTR STR?35,"continues to sound."
-	.GSTR STR?36,"ceases."
-	.GSTR STR?37,"rises to a shriller whine."
-	.GSTR STR?38,"Sonar shows the object reaching from the surface of the bay downward to a depth of 10 meters. This must be the keel of a freighter entering the harbor. It's moving toward the waterfront at the rate of 1 sea square per turn."
-	.GSTR STR?39,"The yellow light on the sonarscope continues to glow."
-	.GSTR STR?40,"The red light on the sonarscope continues to glow, and the buzzer also continues to sound."
-	.GSTR STR?41,"looking at it"
-	.GSTR STR?42,"set to automatic"
-	.GSTR STR?43,"set to manual"
-	.GSTR STR?44,"off"
-	.GSTR STR?45,"n"
-	.GSTR STR?46,"ff"
-	.GSTR STR?47,"on"
-	.GSTR STR?48,"start"
-	.GSTR STR?49,"turned on"
-	.GSTR STR?50,"stop"
-	.GSTR STR?51,"slow"
-	.GSTR STR?52,"medium"
-	.GSTR STR?53,"fast"
-	.GSTR STR?54,"submerge"
-	.GSTR STR?55,"here"
-	.GSTR STR?56,"at that depth"
-	.GSTR STR?57,"There's a dart gun here."
-	.GSTR STR?58,"find"
-	.GSTR STR?59,"mounted"
-	.GSTR STR?60,"aim"
-	.GSTR STR?61,"in the way"
-	.GSTR STR?62,"The bazooka is mounted on a claw."
-	.GSTR STR?63,"The dart is mounted on a claw."
-	.GSTR STR?64,"ask"
-	.GSTR STR?65,"shout"
-	.GSTR STR?66,"There's a bazooka here."
-	.GSTR STR?67,"""It's sensitive to the signals on its RIGHT side. Thorpe has installed a sonar transducer on the LEFT or PORT side of this sub. He has to stay on the same side of the monster all the time."""
-	.GSTR STR?68,"Sharon says, ""Notice how we keep 5 meters to the monster's right and 5 meters behind its nose. The Sea Cat is programmed that way, so the signals reach the monster with enough strength to keep it in control."""
-	.GSTR STR?69,"Undersea Research Station"
-	.GSTR STR?70,"empty"
-	.GSTR STR?71,"full"
-	.GSTR STR?72,"full of people"
-	.GSTR STR?73,"You can go down to the north or south."
-	.GSTR STR?74,"say"
-	.GSTR STR?75,"On each side"
-	.GSTR STR?76,"In each corner"
-	.GSTR STR?77,"refuse"
-	.GSTR STR?78,"other "
-	.GSTR STR?79,"the "
-	.GSTR STR?80,"It's stamped: ""AIR SUPPLY SYSTEM / Fram Bolt Wrench."""
-	.GSTR STR?81,"It has screw threads."
-	.GSTR STR?82,"It's sitting neatly in place."
-	.GSTR STR?83,"ea"
-	.GSTR STR?84,"we"
-	.GSTR STR?85,"nor"
-	.GSTR STR?86,"sou"
-	.GSTR STR?87,"looking out"
-	.GSTR STR?88,"playing with"
-	.GSTR STR?89,"""I can't help you there."""
-	.GSTR STR?90,"""That has nothing to do with me."""
-	.GSTR STR?91,"is "
-	.GSTR STR?92,"at "
-	.GSTR STR?93,"working on the SCIMITAR"
-	.GSTR STR?94,"""Wilco, "
-	.GSTR STR?95,"working on the sonar equipment"
-	.GSTR STR?96,"""If you think that will help, do it!"""
-	.GSTR STR?97,"""I think you can do that better yourself."""
-	.GSTR STR?98,"the bottom"
-	.GSTR STR?99,"an obstacle"
-	.GSTR STR?100,"looking at you anxiously"
-	.GSTR STR?101,"collapsing on the floor"
-	.GSTR STR?102,"recovering from collapse"
-	.GSTR STR?103,"using Oxygen Gear"
-	.GSTR STR?104,"north"
-	.GSTR STR?105,"west"
-	.GSTR STR?106,"northwest"
-	.GSTR STR?107,"northeast"
-	.GSTR STR?108,"southwest"
-	.GSTR STR?109,"southeast"
-	.GSTR STR?110,"downstairs"
-	.GSTR STR?111,"upstairs"
-	.GSTR STR?112,"in"
-	.GSTR STR?113,"out"
-	.GSTR STR?114,"A circuit breaker is open on the Electrical Panel."
-	.GSTR STR?115,"There's so much junk in here that there's barely enough room for you."
-	.GSTR STR?116,"The file drawer is filled with a lot of business papers."
-	.GSTR STR?117,"Screenplay by Jim Lawrence
-"
-	.GSTR STR?118,"A microphone is sitting on your workbench."
-	.GSTR STR?119,"You have to go north to board the SCIMITAR."
-	.GSTR STR?120,". The hatch is "
-	.GSTR STR?121,".
-"
-	.GSTR STR?122,"This vast enterprise was originally founded by your father, a world-famous inventor. You have added even greater luster to the family name with your own unique inventions."
-	.GSTR STR?123,"in it"
-	.GSTR STR?124,"careful"
-	.GSTR STR?125,"brief"
-	.GSTR STR?126,"is"
-	.GSTR STR?127,"can be"
-	.GSTR STR?128,"???"
-	.GSTR STR?129,"(I don't know the word """
-	.GSTR STR?130,""".)"
-	.GSTR STR?131,"ere"
-	.GSTR STR?132,"at"
-	.GSTR STR?133,"begin"
-	.GSTR STR?134,"end"
-	.GSTR STR?135,"superbrief"
-	.GSTR STR?136,"verbose"
-	.GSTR STR?137,"(Sorry, but it didn't work. Maybe your instruction manual or Reference Card can tell you why.)"
-	.GSTR STR?138,"go"
-	.GSTR STR?139," doesn't help any."
-	.GSTR STR?140," is a waste of time."
-	.GSTR STR?141,"  "
-	.GSTR STR?142,"    "
-	.GSTR STR?143,"      "
-	.GSTR STR?144,"        "
-	.GSTR STR?145,"          "
-	.GSTR STR?146,"(I assume you mean:"
-	.GSTR STR?147," doesn't appear interested"
-	.GSTR STR?148," doesn't care"
-	.GSTR STR?149," lets out a loud yawn"
-	.GSTR STR?150," seems to be growing impatient"
-	.GSTR STR?151,"That's ridiculous!"
-	.GSTR STR?152,"That's wacky!"
-	.GSTR STR?153,"What a fruitcake!"
-	.GSTR STR?154,"What a screwball!"
-	.GSTR STR?155,"You're off your rocker!"
-	.GSTR STR?156,"You're crazy in the head!"
-	.GSTR STR?157,"You can't be serious!"
-	.GSTR STR?158,"seem"
-	.GSTR STR?159,"escape"
-	.GSTR STR?160,"attack"
-	.GSTR STR?161,"not wired for phoning"
-	.GSTR STR?162,"climb onto"
-	.GSTR STR?163,"on the deck"
-	.GSTR STR?164,"on the floor"
-	.GSTR STR?165,"Hello"
-	.GSTR STR?166,"Good-bye"
-	.GSTR STR?167,"(You'll find plenty of help in your SEASTALKER package.
-If you're really stuck, you can order an InvisiClues (TM) hint booklet either with the form in your package or by writing to:
-Infocom, Dept. A2, P.O. Box 620, Garden City, NY 11530.)"
-	.GSTR STR?168,"Kicking"
-	.GSTR STR?169,"kill"
-	.GSTR STR?170,"kisse"
-	.GSTR STR?171,"standing up"
-	.GSTR STR?172,"look inside"
-	.GSTR STR?173,"look outside"
-	.GSTR STR?174,"locked"
-	.GSTR STR?175,"Pushing"
-	.GSTR STR?176,"pick up"
-	.GSTR STR?177,"Fiddling with"
-	.GSTR STR?178,"talk into"
-	.GSTR STR?179,"screw in"
-	.GSTR STR?180,"her"
-	.GSTR STR?181,"his"
-	.GSTR STR?182,"shoot"
-	.GSTR STR?183,"slap"
-	.GSTR STR?184,"smell"
-	.GSTR STR?185,"holding it"
-	.GSTR STR?186,"reach"
-	.GSTR STR?187,"talk to"
-	.GSTR STR?188," ducks"
-	.GSTR STR?189," doesn't duck"
-	.GSTR STR?190,"turn off"
-	.GSTR STR?191,"turn on"
-	.GSTR STR?192,"unlocked"
-	.GSTR STR?193,"wait until"
-	.GSTR STR?194,"not asleep"
-	.GSTR STR?195,"room."
-	.GSTR STR?196,"go under"
-	.GSTR STR?197,"beginning"
-	.GSTR STR?198,"fair"
-	.GSTR STR?199,"good"
-	.GSTR STR?200,"very good"
-	.GSTR STR?201,"master"
-	.GSTR STR?202,"famous"
-	.GSTR STR?203,"busy"
-	.GSTR STR?204,"""I think you should reconsider."
-	.GSTR STR?205,"is now"
-	.GSTR STR?206,"now comes rushing back,"
+	.GSTR STR?21,"open"
+	.GSTR STR?22,"under water"
+	.GSTR STR?23,"clean enough"
+	.GSTR STR?24,"The space is dimly illuminated by small work lights, but you can see machinery everywhere."
+	.GSTR STR?25,"The only way out is ""OUT""."
+	.GSTR STR?26,"(You'll find that information in your SEASTALKER package.)"
+	.GSTR STR?27,"fixed"
+	.GSTR STR?28,"orange"
+	.GSTR STR?29,"red"
+	.GSTR STR?30,"changes to orange"
+	.GSTR STR?31,"fades to dark again"
+	.GSTR STR?32,"turns red"
+	.GSTR STR?33,"continues to sound."
+	.GSTR STR?34,"ceases."
+	.GSTR STR?35,"rises to a shriller whine."
+	.GSTR STR?36,"looking at it"
+	.GSTR STR?37,"set to automatic"
+	.GSTR STR?38,"set to manual"
+	.GSTR STR?39,"off"
+	.GSTR STR?40,"n"
+	.GSTR STR?41,"ff"
+	.GSTR STR?42,"on"
+	.GSTR STR?43,"start"
+	.GSTR STR?44,"turned on"
+	.GSTR STR?45,"stop"
+	.GSTR STR?46,"slow"
+	.GSTR STR?47,"medium"
+	.GSTR STR?48,"fast"
+	.GSTR STR?49,"submerge"
+	.GSTR STR?50,"here"
+	.GSTR STR?51,"at that depth"
+	.GSTR STR?52,"de"
+	.GSTR STR?53,"a"
+	.GSTR STR?54,"There's a dart gun here."
+	.GSTR STR?55,"find"
+	.GSTR STR?56,"mounted"
+	.GSTR STR?57,"aim"
+	.GSTR STR?58,"in the way"
+	.GSTR STR?59,"The bazooka is mounted on a claw."
+	.GSTR STR?60,"The dart is mounted on a claw."
+	.GSTR STR?61,"ask"
+	.GSTR STR?62,"shout"
+	.GSTR STR?63,"There's a bazooka here."
+	.GSTR STR?64,"Undersea Research Station"
+	.GSTR STR?65,"empty"
+	.GSTR STR?66,"full"
+	.GSTR STR?67,"full of people"
+	.GSTR STR?68,"You can go down to the north or south."
+	.GSTR STR?69,"say"
+	.GSTR STR?70,"On each side"
+	.GSTR STR?71,"In each corner"
+	.GSTR STR?72,"refuse"
+	.GSTR STR?73,"other "
+	.GSTR STR?74,"the "
+	.GSTR STR?75,"It's stamped: ""AIR SUPPLY SYSTEM / Fram Bolt Wrench."""
+	.GSTR STR?76,"It has screw threads."
+	.GSTR STR?77,"It's sitting neatly in place."
+	.GSTR STR?78,"ea"
+	.GSTR STR?79,"we"
+	.GSTR STR?80,"nor"
+	.GSTR STR?81,"sou"
+	.GSTR STR?82,"looking out"
+	.GSTR STR?83,"playing with"
+	.GSTR STR?84,"""I can't help you there."""
+	.GSTR STR?85,"""That has nothing to do with me."""
+	.GSTR STR?86,"this "
+	.GSTR STR?87,"that "
+	.GSTR STR?88,"working on the SCIMITAR"
+	.GSTR STR?89,"""Wilco, "
+	.GSTR STR?90,"working on the sonar equipment"
+	.GSTR STR?91,"""If you think that will help, do it!"""
+	.GSTR STR?92,"""I think you can do that better yourself."""
+	.GSTR STR?93,"the bottom"
+	.GSTR STR?94,"an obstacle"
+	.GSTR STR?95,"looking at you anxiously"
+	.GSTR STR?96,"collapsing on the floor"
+	.GSTR STR?97,"recovering from collapse"
+	.GSTR STR?98,"using Oxygen Gear"
+	.GSTR STR?99,"north"
+	.GSTR STR?100,"south"
+	.GSTR STR?101,"east"
+	.GSTR STR?102,"west"
+	.GSTR STR?103,"northwest"
+	.GSTR STR?104,"northeast"
+	.GSTR STR?105,"southwest"
+	.GSTR STR?106,"southeast"
+	.GSTR STR?107,"downstairs"
+	.GSTR STR?108,"upstairs"
+	.GSTR STR?109,"in"
+	.GSTR STR?110,"out"
+	.GSTR STR?111,"There's so much junk in here that there's barely enough room for you."
+	.GSTR STR?112,"The file drawer is filled with a lot of business papers."
+	.GSTR STR?113,"is"
+	.GSTR STR?114,"A microphone is sitting on your workbench."
+	.GSTR STR?115,"You have to go north to board the SCIMITAR."
+	.GSTR STR?116,"This vast enterprise was originally founded by your father, a world-famous inventor. You have added even greater luster to the family name with your own unique inventions."
+	.GSTR STR?117,"in it"
+	.GSTR STR?118,"careful"
+	.GSTR STR?119,"brief"
+	.GSTR STR?120,"can be"
+	.GSTR STR?121,"???"
+	.GSTR STR?122,"ere"
+	.GSTR STR?123,"at"
+	.GSTR STR?124,"begin"
+	.GSTR STR?125,"end"
+	.GSTR STR?126,"superbrief"
+	.GSTR STR?127,"verbose"
+	.GSTR STR?128,"(Sorry, but it didn't work. Maybe your instruction manual or Reference Card can tell you why.)"
+	.GSTR STR?129,"go"
+	.GSTR STR?130," doesn't help any."
+	.GSTR STR?131," is a waste of time."
+	.GSTR STR?132,"  "
+	.GSTR STR?133,"    "
+	.GSTR STR?134,"      "
+	.GSTR STR?135,"        "
+	.GSTR STR?136,"          "
+	.GSTR STR?137,"(I assume you mean:"
+	.GSTR STR?138," doesn't appear interested"
+	.GSTR STR?139," doesn't care"
+	.GSTR STR?140," lets out a loud yawn"
+	.GSTR STR?141," seems to be growing impatient"
+	.GSTR STR?142,"That's ridiculous!"
+	.GSTR STR?143,"That's wacky!"
+	.GSTR STR?144,"What a fruitcake!"
+	.GSTR STR?145,"What a screwball!"
+	.GSTR STR?146,"You're off your rocker!"
+	.GSTR STR?147,"You're crazy in the head!"
+	.GSTR STR?148,"You can't be serious!"
+	.GSTR STR?149,"seem"
+	.GSTR STR?150,"escape"
+	.GSTR STR?151,"attack"
+	.GSTR STR?152,"not wired for phoning"
+	.GSTR STR?153,"get in"
+	.GSTR STR?154,"climb onto"
+	.GSTR STR?155,"on the deck"
+	.GSTR STR?156,"on the floor"
+	.GSTR STR?157,"bang"
+	.GSTR STR?158,"Hello"
+	.GSTR STR?159,"Good-bye"
+	.GSTR STR?160,"(You'll find plenty of help in your SEASTALKER package.
+If you're really stuck, you can order an InvisiClues (TM) Hint Booklet either with the form in your package or from your dealer.)"
+	.GSTR STR?161,"kill"
+	.GSTR STR?162,"kisse"
+	.GSTR STR?163,"standing up"
+	.GSTR STR?164,"look inside"
+	.GSTR STR?165,"look outside"
+	.GSTR STR?166,"locked"
+	.GSTR STR?167,"Pushing"
+	.GSTR STR?168,"pick up"
+	.GSTR STR?169,"Fiddling with"
+	.GSTR STR?170,"talk into"
+	.GSTR STR?171,"screw in"
+	.GSTR STR?172,"her"
+	.GSTR STR?173,"his"
+	.GSTR STR?174,"shoot"
+	.GSTR STR?175,"slap"
+	.GSTR STR?176,"smell"
+	.GSTR STR?177,"holding it"
+	.GSTR STR?178,"reach"
+	.GSTR STR?179,"talk to"
+	.GSTR STR?180," ducks"
+	.GSTR STR?181," doesn't duck"
+	.GSTR STR?182,"turn off"
+	.GSTR STR?183,"turn on"
+	.GSTR STR?184,"unlocked"
+	.GSTR STR?185,"wait until"
+	.GSTR STR?186,"not asleep"
+	.GSTR STR?187,"room."
+	.GSTR STR?188,"go under"
+	.GSTR STR?189,"beginning"
+	.GSTR STR?190,"fair"
+	.GSTR STR?191,"good"
+	.GSTR STR?192,"very good"
+	.GSTR STR?193,"master"
+	.GSTR STR?194,"famous"
+	.GSTR STR?195,"busy"
+	.GSTR STR?196,"""I think you should reconsider."
+	.GSTR STR?197,"is now"
+	.GSTR STR?198,"now comes rushing back,"
 
 	.ENDI
diff --git a/jdl.txt b/jdl.txt
new file mode 100644
index 0000000..248e4c2
--- /dev/null
+++ b/jdl.txt
@@ -0,0 +1,23 @@
+ 3-Sep-84 10:20:30-EDT,955;000000000001
+Date:  3 Sep 1984 1020-EDT
+From: Stu Galley <SWG at ZORK>
+Subject: Re: JIM LAWRENCE
+To: JON
+cc: SWG, MD, BLANK
+In-Reply-To: Your message of 28-Aug-84 1104-EDT
+
+I think he should be included in Seastalker's About the Author.
+
+Here's a summary of the bio he supplied to us:
+
+Jim Lawrence has written fiction extensively for both children and
+adults in a variety of media: books, magazine articles, film and radio
+scripts, and comic strips, including "decision" strips.  He estimates
+that he has written some sixty books of fiction, many of them under pen
+names for series like Tom Swift Jr and Nancy Drew.  His radio credits
+include weekly scripts for Sergeant Preston of the Yukon, The Green
+Hornet, and Sky King.  He has written for, and in some cases created and
+illustrated, the comic strips Dallas, Joe Palooka, Captain Easy, Friday
+Foster, and Buck Rogers.  Seastalker is his first published work of
+interactive fiction.
+-------
diff --git a/macros.zap b/macros.zap
index 7763000..4e4f80e 100644
--- a/macros.zap
+++ b/macros.zap
@@ -24,12 +24,6 @@
 	RTRUE	
 
 
-	.FUNCT	ZPROB,BASE
-	RANDOM	100
-	GRTR?	BASE,STACK /TRUE
-	RFALSE	
-
-
 	.FUNCT	PICK-ONE,FROB
 	GET	FROB,0
 	RANDOM	STACK
diff --git a/macros.zil b/macros.zil
index e6643bc..8677a82 100644
Binary files a/macros.zil and b/macros.zil differ
diff --git a/main.zap b/main.zap
index 193a982..3681a52 100644
--- a/main.zap
+++ b/main.zap
@@ -3,10 +3,11 @@
 	.FUNCT	GO
 START::
 
-?FCN:	SET	'LIT,1
+?FCN:	SET	'LIT,TRUE-VALUE
 	PUTB	P-LEXV,0,59
 	PUTB	YES-LEXV,0,4
 	SET	'SCORE,0
+	SET	'HERE,GAME
 	PUTB	FIRST-NAME,0,3
 	PUTB	FIRST-NAME,1,45
 	PUTB	FIRST-NAME,2,45
@@ -16,25 +17,23 @@ START::
 	PUTB	LAST-NAME,2,45
 	PUTB	LAST-NAME,3,45
 	SET	'WINNER,PLAYER
-	SET	'HERE,CENTER-OF-LAB
 	CALL	THIS-IS-IT,VIDEOPHONE
-	MOVE	TIP,HERE
 	CALL	THIS-IS-IT,TIP
 	CALL	THIS-IS-IT,SHARON
-	FSET?	HERE,TOUCHBIT /?CND1
-	CALL	QUEUE-MAIN-EVENTS
+	FSET?	CENTER-OF-LAB,TOUCHBIT /?CND1
 	CALL	INTRO
-?CND1:	MOVE	PLAYER,HERE
-	ZERO?	RESTORED-DURING-NAME-INPUT \?CND4
-	CALL	V-LOOK
-?CND4:	CALL	MAIN-LOOP
+	CALL	QUEUE-MAIN-EVENTS
+?CND1:	SET	'HERE,CENTER-OF-LAB
+	MOVE	TIP,HERE
+	MOVE	PLAYER,HERE
+	CALL	MAIN-LOOP
 	JUMP	?FCN
 
 
 	.FUNCT	INTRO,N
-	PRINTI	"Copyright (c) 1984 Infocom, Inc. All rights reserved.
+	PRINTI	"Copyright (c) 1984, 1985 Infocom, Inc. All rights reserved.
 
-Welcome to junior-level interactive fiction from Infocom!
+Welcome to interactive fiction from Infocom!
 
 In this story, you're the hero or heroine, so we'll use your name!"
 	CRLF	
@@ -83,14 +82,14 @@ You look up from your plans for the "
 
 
 	.FUNCT	QUEUE-MAIN-EVENTS
-	SET	'ALARM-RINGING,1
+	SET	'ALARM-RINGING,TRUE-VALUE
 	CALL	QUEUE,I-ALARM-RINGING,-1
 	PUT	STACK,0,1
 	CALL	QUEUE,I-SHOW-SONAR,0
 	CALL	QUEUE,I-UPDATE-FREIGHTER,0
 	CALL	QUEUE,I-UPDATE-SUB-POSITION,0
-	SET	'OLD-HERE,HERE
-	SET	'TIP-FOLLOWS-YOU?,1
+	SET	'OLD-HERE,CENTER-OF-LAB
+	SET	'TIP-FOLLOWS-YOU?,TRUE-VALUE
 	RANDOM	250
 	ADD	250,STACK
 	CALL	QUEUE,I-SNARK-ATTACKS,STACK
@@ -106,122 +105,127 @@ You look up from your plans for the "
 	RTRUE	
 
 
-	.FUNCT	MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,?TMP1
-?PRG1:	SET	'CNT,0
-	SET	'OBJ,0
-	SET	'PTBL,1
-	EQUAL?	QCONTEXT-ROOM,HERE /?CND3
-	SET	'QCONTEXT,0
-?CND3:	CALL	PARSER >P-WON
-	ZERO?	P-WON /?ELS8
+	.FUNCT	MAIN-LOOP,TRASH
+?PRG1:	CALL	MAIN-LOOP-1 >TRASH
+	JUMP	?PRG1
+
+
+	.FUNCT	MAIN-LOOP-1,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,?TMP1
+	SET	'CNT,0
+	SET	'OBJ,FALSE-VALUE
+	SET	'PTBL,TRUE-VALUE
+	EQUAL?	QCONTEXT-ROOM,HERE /?CND1
+	SET	'QCONTEXT,FALSE-VALUE
+?CND1:	CALL	PARSER >P-WON
+	ZERO?	P-WON /?ELS6
 	GET	P-PRSI,P-MATCHLEN >ICNT
 	GET	P-PRSO,P-MATCHLEN >OCNT
-	ZERO?	OCNT \?ELS13
+	ZERO?	OCNT \?ELS11
 	PUSH	OCNT
-	JUMP	?CND9
-?ELS13:	GRTR?	OCNT,1 \?ELS15
+	JUMP	?CND7
+?ELS11:	GRTR?	OCNT,1 \?ELS13
 	SET	'TBL,P-PRSO
-	ZERO?	ICNT \?ELS18
-	SET	'OBJ,0
-	JUMP	?CND16
-?ELS18:	GET	P-PRSI,1 >OBJ
-?CND16:	PUSH	OCNT
-	JUMP	?CND9
-?ELS15:	GRTR?	ICNT,1 \?ELS22
-	SET	'PTBL,0
+	ZERO?	ICNT \?ELS16
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND14
+?ELS16:	GET	P-PRSI,1 >OBJ
+?CND14:	PUSH	OCNT
+	JUMP	?CND7
+?ELS13:	GRTR?	ICNT,1 \?ELS20
+	SET	'PTBL,FALSE-VALUE
 	SET	'TBL,P-PRSI
 	GET	P-PRSO,1 >OBJ
 	PUSH	ICNT
-	JUMP	?CND9
-?ELS22:	PUSH	1
-?CND9:	SET	'NUM,STACK
-	ZERO?	OBJ \?CND25
-	EQUAL?	ICNT,1 \?CND25
+	JUMP	?CND7
+?ELS20:	PUSH	1
+?CND7:	SET	'NUM,STACK
+	ZERO?	OBJ \?CND23
+	EQUAL?	ICNT,1 \?CND23
 	GET	P-PRSI,1 >OBJ
-?CND25:	EQUAL?	PRSA,V?WALK \?ELS32
+?CND23:	EQUAL?	PRSA,V?WALK \?ELS30
 	CALL	PERFORM,PRSA,PRSO >V
-	JUMP	?CND30
-?ELS32:	ZERO?	NUM \?ELS34
+	JUMP	?CND28
+?ELS30:	ZERO?	NUM \?ELS32
 	GETB	P-SYNTAX,P-SBITS
 	BAND	STACK,P-SONUMS
-	ZERO?	STACK \?ELS37
+	ZERO?	STACK \?ELS35
 	CALL	PERFORM,PRSA >V
-	SET	'PRSO,0
-	JUMP	?CND30
-?ELS37:	PRINTI	"(There isn't anything to "
+	SET	'PRSO,FALSE-VALUE
+	JUMP	?CND28
+?ELS35:	PRINTI	"(There isn't anything to "
 	GET	P-ITBL,P-VERBN >TMP
-	ZERO?	P-OFLAG /?ELS44
+	ZERO?	P-OFLAG /?ELS42
 	GET	TMP,0
 	PRINTB	STACK
-	JUMP	?CND42
-?ELS44:	GETB	TMP,2 >?TMP1
+	JUMP	?CND40
+?ELS42:	GETB	TMP,2 >?TMP1
 	GETB	TMP,3
 	CALL	WORD-PRINT,?TMP1,STACK
-?CND42:	PRINTI	"!)"
+?CND40:	PRINTI	"!)"
 	CRLF	
-	SET	'V,0
-	JUMP	?CND30
-?ELS34:	ZERO?	PTBL /?ELS51
-	GRTR?	NUM,1 \?ELS51
-	EQUAL?	PRSA,V?COMPARE \?ELS51
+	SET	'V,FALSE-VALUE
+	JUMP	?CND28
+?ELS32:	ZERO?	PTBL /?ELS49
+	GRTR?	NUM,1 \?ELS49
+	EQUAL?	PRSA,V?COMPARE \?ELS49
 	CALL	PERFORM,PRSA,OBJECT-PAIR >V
-	JUMP	?CND30
-?ELS51:	SET	'TMP,0
-?PRG56:	IGRTR?	'CNT,NUM \?ELS60
-	GRTR?	TMP,0 \?REP57
+	JUMP	?CND28
+?ELS49:	SET	'TMP,0
+?PRG54:	IGRTR?	'CNT,NUM \?ELS58
+	GRTR?	TMP,0 \?REP55
 	PRINTI	"The other thing"
-	EQUAL?	TMP,1 /?CND66
+	EQUAL?	TMP,1 /?CND64
 	PRINTI	"s"
-?CND66:	PRINTI	" that you mentioned "
-	EQUAL?	TMP,1 /?ELS75
+?CND64:	PRINTI	" that you mentioned "
+	EQUAL?	TMP,1 /?ELS73
 	PRINTI	"are"
-	JUMP	?CND73
-?ELS75:	PRINTI	"is"
-?CND73:	PRINTI	"n't here."
+	JUMP	?CND71
+?ELS73:	PRINTI	"is"
+?CND71:	PRINTI	"n't here."
 	CRLF	
-	JUMP	?REP57
-?ELS60:	ZERO?	PTBL /?ELS88
+	JUMP	?REP55
+?ELS58:	ZERO?	PTBL /?ELS86
 	GET	P-PRSO,CNT >OBJ1
-	JUMP	?CND86
-?ELS88:	GET	P-PRSI,CNT >OBJ1
-?CND86:	GRTR?	NUM,1 \?CND92
-	EQUAL?	OBJ1,NOT-HERE-OBJECT \?ELS97
+	JUMP	?CND84
+?ELS86:	GET	P-PRSI,CNT >OBJ1
+?CND84:	GRTR?	NUM,1 \?CND90
+	EQUAL?	OBJ1,NOT-HERE-OBJECT \?ELS95
 	INC	'TMP
-	JUMP	?PRG56
-?ELS97:	EQUAL?	OBJ1,PLAYER \?ELS99
-	JUMP	?PRG56
-?ELS99:	EQUAL?	OBJ1,IT \?ELS104
+	JUMP	?PRG54
+?ELS95:	EQUAL?	OBJ1,PLAYER \?ELS97
+	JUMP	?PRG54
+?ELS97:	EQUAL?	OBJ1,IT \?ELS102
 	PRINTD	P-IT-OBJECT
-	JUMP	?CND102
-?ELS104:	PRINTD	OBJ1
-?CND102:	PRINTI	": "
-?CND92:	ZERO?	PTBL /?ELS113
+	JUMP	?CND100
+?ELS102:	PRINTD	OBJ1
+?CND100:	PRINTI	": "
+?CND90:	ZERO?	PTBL /?ELS111
 	PUSH	OBJ1
-	JUMP	?CND109
-?ELS113:	PUSH	OBJ
-?CND109:	CALL	QCONTEXT-CHECK,STACK >V
-	ZERO?	PTBL /?ELS121
+	JUMP	?CND107
+?ELS111:	PUSH	OBJ
+?CND107:	CALL	QCONTEXT-CHECK,STACK >V
+	ZERO?	PTBL /?ELS119
 	PUSH	OBJ1
-	JUMP	?CND117
-?ELS121:	PUSH	OBJ
-?CND117:	SET	'?TMP1,STACK
-	ZERO?	PTBL /?ELS129
+	JUMP	?CND115
+?ELS119:	PUSH	OBJ
+?CND115:	SET	'?TMP1,STACK
+	ZERO?	PTBL /?ELS127
 	PUSH	OBJ
-	JUMP	?CND125
-?ELS129:	PUSH	OBJ1
-?CND125:	CALL	PERFORM,PRSA,?TMP1,STACK >V
-	EQUAL?	V,M-FATAL \?PRG56
-	JUMP	?CND30
-?REP57:	
-?CND30:	EQUAL?	V,M-FATAL \?CND6
-	SET	'P-CONT,0
-	JUMP	?CND6
-?ELS8:	SET	'P-CONT,0
-?CND6:	ZERO?	P-WON /?PRG1
+	JUMP	?CND123
+?ELS127:	PUSH	OBJ1
+?CND123:	CALL	PERFORM,PRSA,?TMP1,STACK >V
+	EQUAL?	V,M-FATAL \?PRG54
+	JUMP	?CND28
+?REP55:	
+?CND28:	EQUAL?	V,M-FATAL \?CND4
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND4
+?ELS6:	SET	'P-CONT,FALSE-VALUE
+?CND4:	ZERO?	P-WON /FALSE
 	CALL	GAME-VERB?
-	ZERO?	STACK \?PRG1
+	ZERO?	STACK \FALSE
 	CALL	CLOCKER >V
-	JUMP	?PRG1
+	RETURN	V
 
 
 	.FUNCT	QCONTEXT-CHECK,PRSO,OTHER,WHO=0,N=0
@@ -263,7 +267,7 @@ You look up from your plans for the "
 	.FUNCT	SAID-TO,WHO
 	SET	'QCONTEXT,WHO
 	SET	'QCONTEXT-ROOM,HERE
-	RTRUE	
+	RETURN	QCONTEXT-ROOM
 
 
 	.FUNCT	OBJECT-PAIR-F,P1,P2,?TMP1
@@ -294,7 +298,7 @@ You look up from your plans for the "
 
 
 	.FUNCT	FAKE-ORPHAN,TMP,?TMP1
-	CALL	ORPHAN,P-SYNTAX,0
+	CALL	ORPHAN,P-SYNTAX,FALSE-VALUE
 	PRINTI	"(Be specific: what thing do you want to "
 	GET	P-OTBL,P-VERBN >TMP
 	ZERO?	TMP \?ELS5
@@ -309,8 +313,8 @@ You look up from your plans for the "
 	GETB	TMP,3
 	CALL	WORD-PRINT,?TMP1,STACK
 	PUTB	P-VTBL,2,0
-?CND3:	SET	'P-OFLAG,1
-	SET	'P-WON,0
+?CND3:	SET	'P-OFLAG,TRUE-VALUE
+	SET	'P-WON,FALSE-VALUE
 	PRINTR	"?)"
 
 
@@ -328,19 +332,18 @@ You look up from your plans for the "
 
 
 	.FUNCT	FIX-HIM-HER,HEM-OBJECT,V
-	CALL	NOT-ACCESSIBLE?,HEM-OBJECT
-	ZERO?	STACK /?CND1
-	GETP	HEM-OBJECT,P?CHARACTER
-	GET	GLOBAL-CHARACTER-TABLE,STACK
+	GETP	HEM-OBJECT,P?CHARACTER >V
+	CALL	ACCESSIBLE?,HEM-OBJECT
+	ZERO?	STACK \?CND1
+	GET	GLOBAL-CHARACTER-TABLE,V
 	RSTACK	
-?CND1:	GETP	HEM-OBJECT,P?CHARACTER
-	GET	CHARACTER-TABLE,STACK >V
+?CND1:	GET	CHARACTER-TABLE,V >V
 	LOC	V
 	EQUAL?	HERE,STACK \FALSE
 	RETURN	V
 
 
-	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI,?TMP1
+	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI
 	ZERO?	DEBUG /?CND1
 	PRINTI	"[Perform: "
 	PRINTN	A
@@ -361,8 +364,8 @@ You look up from your plans for the "
 	SET	'PRSA,A
 	EQUAL?	A,V?WALK /?CND30
 	EQUAL?	IT,I,O \?CND33
-	CALL	NOT-ACCESSIBLE?,P-IT-OBJECT
-	ZERO?	STACK /?CND33
+	CALL	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK \?CND33
 	ZERO?	I \?ELS40
 	CALL	FAKE-ORPHAN
 	RETURN	2
@@ -405,72 +408,57 @@ You look up from your plans for the "
 	SET	'I,P-HIM-OBJECT
 ?CND30:	SET	'PRSI,I
 	SET	'PRSO,O
-	EQUAL?	A,V?WALK /?ELS87
-	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?ELS87
+	SET	'V,FALSE-VALUE
+	EQUAL?	A,V?WALK /?CND85
+	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?CND85
 	CALL	D-APPLY,STR?7,NOT-HERE-OBJECT-F >V
-	ZERO?	V /?ELS87
-	SET	'P-WON,0
-	JUMP	?CND85
-?ELS87:	CALL	THIS-IS-IT,PRSI
-	ZERO?	STACK /?ELS91
+	ZERO?	V /?CND85
+	SET	'P-WON,FALSE-VALUE
+?CND85:	CALL	THIS-IS-IT,PRSI
 	CALL	THIS-IS-IT,PRSO
-	ZERO?	STACK /?ELS91
 	SET	'O,PRSO
 	SET	'I,PRSI
-	CALL	NULL-F
-	ZERO?	STACK /?ELS91
-	CALL	NULL-F
-	JUMP	?CND85
-?ELS91:	GETP	WINNER,P?ACTION
+	ZERO?	V \?CND94
+	GETP	WINNER,P?ACTION
 	CALL	DD-APPLY,STR?8,WINNER,STACK >V
-	ZERO?	V /?ELS95
-	JUMP	?CND85
-?ELS95:	LOC	WINNER
+?CND94:	ZERO?	V \?CND97
+	LOC	WINNER
 	GETP	STACK,P?ACTION
 	CALL	D-APPLY,STR?9,STACK,M-BEG >V
-	ZERO?	V /?ELS97
-	JUMP	?CND85
-?ELS97:	GET	PREACTIONS,A
+?CND97:	ZERO?	V \?CND100
+	GET	PREACTIONS,A
 	CALL	D-APPLY,STR?10,STACK >V
-	ZERO?	V /?ELS99
-	JUMP	?CND85
-?ELS99:	ZERO?	I /?ELS101
-	SET	'NOW-PRSI,1
+?CND100:	SET	'NOW-PRSI,TRUE-VALUE
+	ZERO?	V \?CND103
+	ZERO?	I /?CND103
 	GETP	I,P?ACTION
 	CALL	D-APPLY,STR?11,STACK >V
-	ZERO?	V /?ELS101
-	JUMP	?CND85
-?ELS101:	SET	'NOW-PRSI,0
-	ZERO?	O /?ELS105
-	EQUAL?	A,V?WALK /?ELS105
+?CND103:	SET	'NOW-PRSI,FALSE-VALUE
+	ZERO?	V \?CND108
+	ZERO?	O /?CND108
+	EQUAL?	A,V?WALK /?CND108
 	LOC	O
-	ZERO?	STACK /?ELS105
+	ZERO?	STACK /?CND108
 	LOC	O
-	GETP	STACK,P?CONTFCN
-	ZERO?	STACK /?ELS105
-	LOC	O >?TMP1
+	GETP	STACK,P?CONTFCN >V
+	ZERO?	V /?CND108
 	LOC	O
-	GETP	STACK,P?CONTFCN
-	CALL	DD-APPLY,STR?12,?TMP1,STACK >V
-	ZERO?	V /?ELS105
-	JUMP	?CND85
-?ELS105:	ZERO?	O /?ELS109
-	EQUAL?	A,V?WALK /?ELS109
+	CALL	DD-APPLY,STR?12,STACK,V >V
+?CND108:	ZERO?	V \?CND117
+	ZERO?	O /?CND117
+	EQUAL?	A,V?WALK /?CND117
 	GETP	O,P?ACTION
 	CALL	D-APPLY,STR?13,STACK >V
-	ZERO?	V /?ELS109
-	JUMP	?CND85
-?ELS109:	GET	ACTIONS,A
-	CALL	D-APPLY,0,STACK >V
-	ZERO?	V /?CND85
-?CND85:	EQUAL?	V,M-FATAL /?CND114
+?CND117:	ZERO?	V \?CND122
+	GET	ACTIONS,A
+	CALL	D-APPLY,FALSE-VALUE,STACK >V
+?CND122:	EQUAL?	V,M-FATAL /?CND125
+	CALL	GAME-VERB?
+	ZERO?	STACK \?CND125
 	LOC	WINNER
-	EQUAL?	STACK,PRSO \?CND117
-	SET	'PRSO,0
-?CND117:	LOC	WINNER
 	GETP	STACK,P?ACTION
 	CALL	D-APPLY,STR?14,STACK,M-END >V
-?CND114:	SET	'PRSA,OA
+?CND125:	SET	'PRSA,OA
 	SET	'PRSO,OO
 	SET	'PRSI,OI
 	RETURN	V
diff --git a/main.zil b/main.zil
index ad3f258..44cce64 100644
--- a/main.zil
+++ b/main.zil
@@ -1,13 +1,13 @@
 "MAIN for SEASTALKER
-Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+Copyright (C) 1984, 1985 Infocom, Inc.  All rights reserved."
 
 <GLOBAL P-WON <>>
 
 <CONSTANT M-FATAL 2>
 
-<CONSTANT M-HANDLED 1>   
+"<CONSTANT M-HANDLED 1>   
 
-<CONSTANT M-NOT-HANDLED <>>   
+<CONSTANT M-NOT-HANDLED <>>"   
 
 <CONSTANT M-BEG 1>  
 
@@ -22,13 +22,11 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <CONSTANT M-OBJDESC 5>
 
 <ROUTINE GO ()
-	%<COND (<NOT <GASSIGNED? PREDGEN>>
-		'(<SETG XTELLCHAN <OPEN "READB" ,XTELLFILE>>
-		  <SETG LIT T>))
-	       ('<SETG LIT T>)>
+	<SETG LIT T>
 	<PUTB ,P-LEXV 0 59>
 	<PUTB ,YES-LEXV 0 4>
 	<SETG SCORE 0>
+	<SETG HERE ,GAME>
 	<PUTB ,FIRST-NAME 0 3>
 	<PUTB ,FIRST-NAME 1 %<ASCII !\->>
 	<PUTB ,FIRST-NAME 2 %<ASCII !\->>
@@ -48,26 +46,23 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	<PUTB  ,GAME-NAME 9 %<ASCII !\E>>
 	<PUTB  ,GAME-NAME 10 %<ASCII !\R>>"
 	<SETG WINNER ,PLAYER>
-	<SETG HERE ,CENTER-OF-LAB>
 	<THIS-IS-IT ,VIDEOPHONE>
-	<MOVE ,TIP ,HERE>
 	<THIS-IS-IT ,TIP>
 	<THIS-IS-IT ,SHARON>
-	%<COND (<GASSIGNED? PREDGEN>
-		'<COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
-			<QUEUE-MAIN-EVENTS>
-			<INTRO>)>)
-	       (T '<NULL-F>)>
+	<COND (<NOT <FSET? ,CENTER-OF-LAB ,TOUCHBIT>>
+	       <INTRO>
+	       <QUEUE-MAIN-EVENTS>)>
+	<SETG HERE ,CENTER-OF-LAB>
+	<MOVE ,TIP ,HERE>
 	<MOVE ,PLAYER ,HERE>
-	<COND (<NOT ,RESTORED-DURING-NAME-INPUT> <V-LOOK>)>
 	<MAIN-LOOP>
 	<AGAIN>>    
 
 <ROUTINE INTRO ("AUX" N)
-	%<XTELL
-"Copyright (c) 1984 Infocom, Inc.  All rights reserved.|
+	<TELL
+"Copyright (c) 1984, 1985 Infocom, Inc.  All rights reserved.|
 |
-Welcome to junior-level interactive fiction from Infocom!|
+Welcome to interactive fiction from Infocom!|
 |
 In this story, you're the hero or heroine, so
 we'll use your name!" CR>
@@ -75,17 +70,17 @@ we'll use your name!" CR>
 		<TELL CR>
 		<SET N <READ-NAME ,FIRST-NAME "Please type your first name.">>
 		<COND (<==? .N ,M-FATAL> <RFALSE>)>
-		%<XTELL "Hello " FN "! ">
+		<TELL "Hello " FN "! ">
 		<SET N <READ-NAME ,LAST-NAME "Now type your last name.">>
 		<COND (<==? .N ,M-FATAL> <RFALSE>)>
-		%<XTELL "Is " FN " " LN " right?">
+		<TELL "Is " FN " " LN " right?">
 		<COND (<YES?> <RETURN>)>>
-	%<XTELL "Then let the story begin!">
+	<TELL "Then let the story begin!">
 	<SET N 24>
 	<REPEAT () <COND (<DLESS? N 0> <RETURN>) (T <CRLF>)>>
 	<V-VERSION>
 	<CRLF>
-	%<XTELL
+	<TELL
 "\"" FN ", snap out of it!\" cries " D ,GLOBAL-TIP ", bursting into
 " D ,YOUR-LABORATORY ". \"The alert signal is on!\"|
 You look up from your plans for the " D ,SUB ", a top-secret submarine
@@ -101,7 +96,7 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 	<QUEUE I-SHOW-SONAR 0>
 	<QUEUE I-UPDATE-FREIGHTER 0>
 	<QUEUE I-UPDATE-SUB-POSITION 0>
-	<SETG OLD-HERE ,HERE>
+	<SETG OLD-HERE ,CENTER-OF-LAB>
 	<SETG TIP-FOLLOWS-YOU? T>
 	<ENABLE <QUEUE I-SNARK-ATTACKS <+ 250 <RANDOM 250>>>>
 	<ENABLE <QUEUE I-LAMP-ON-SCOPE 5>>
@@ -110,10 +105,13 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 	<ENABLE <QUEUE I-SHARON-GONE 25>>>
 
 
-<ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP) 
+<ROUTINE MAIN-LOOP ("AUX" TRASH)
+	<REPEAT ()
+	     <SET TRASH <MAIN-LOOP-1>>>>
+
+<ROUTINE MAIN-LOOP-1 ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP) 
    #DECL ((CNT OCNT ICNT NUM) FIX (V) <OR 'T FIX FALSE> (OBJ)<OR FALSE OBJECT>
 	  (OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
-   <REPEAT ()
      <SET CNT 0>
      <SET OBJ <>>
      <SET PTBL T>
@@ -191,7 +189,7 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 	   (T
 	    <SETG P-CONT <>>)>
      <COND (,P-WON
-	    <COND (<NOT <GAME-VERB?>> <SET V <CLOCKER>>)>)>>>
+	    <COND (<NOT <GAME-VERB?>> <SET V <CLOCKER>>)>)>>
 
 <ROUTINE QCONTEXT-CHECK (PRSO "AUX" OTHER (WHO <>) (N 0))
 	 <COND (<OR <VERB? ;FIND HELP WHAT>
@@ -235,7 +233,7 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 <ROUTINE OBJECT-PAIR-F ("AUX" P1 P2)
  <COND (<L? 2 <GET ,P-PRSO ,P-MATCHLEN>>
 	<COND (<VERB? COMPARE>
-	       %<XTELL
+	       <TELL
 "That's too many things to compare all at once!" CR>)>
 	<RTRUE>)
        (<VERB? COMPARE>
@@ -279,17 +277,16 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 	      (<IN? .OBJ ,ROOMS>		<TELL "(rm)">)>>
 
 <ROUTINE FIX-HIM-HER (HEM-OBJECT "AUX" V)
-	<COND (<NOT-ACCESSIBLE? .HEM-OBJECT>
+	<SET V <GETP .HEM-OBJECT ,P?CHARACTER>>
+	<COND (<NOT <ACCESSIBLE? .HEM-OBJECT>>
 	       ;<COND (,DEBUG <TELL "[" D .HEM-OBJECT ":NA]" CR>)>
-	       <RETURN <GET ,GLOBAL-CHARACTER-TABLE
-			    <GETP .HEM-OBJECT ,P?CHARACTER>>>)>
-	<SET V <GET ,CHARACTER-TABLE <GETP .HEM-OBJECT ,P?CHARACTER>>>
+	       <RETURN <GET ,GLOBAL-CHARACTER-TABLE .V>>)>
+	<SET V <GET ,CHARACTER-TABLE .V>>
 	<COND (<EQUAL? ,HERE <LOC .V>>
 	       ;<COND (,DEBUG <TELL "[" D .HEM-OBJECT ":LO]" CR>)>
 	       <RETURN .V>)>>
 
 <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: ">
 	       %<COND (<GASSIGNED? PREDGEN> '<TELL N .A>)
@@ -308,7 +305,7 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 	<SETG PRSA .A>
 	<COND (<NOT <EQUAL? .A ,V?WALK>>
 	       <COND (<AND <EQUAL? ,IT .I .O>
-			   <NOT-ACCESSIBLE? ,P-IT-OBJECT>>
+			   <NOT <ACCESSIBLE? ,P-IT-OBJECT>>>
 		      <COND (<NOT .I> <FAKE-ORPHAN>)
 			    (T <TELL
 "(Sorry, but" THE ,P-IT-OBJECT " isn't here!)" CR>)>
@@ -329,47 +326,46 @@ ringing. Someone's trying to reach you over the private " D ,VIDEOPHONE
 		     (<==? .I ,HIM> <SET I ,P-HIM-OBJECT>)>)>
 	<SETG PRSI .I>
 	<SETG PRSO .O>
+	<SET V <>>
 	<COND (<AND <NOT <EQUAL? .A ,V?WALK>>
-		    <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
-		    <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>>
-	       <SETG P-WON <>>
-	       .V)
-	      (<AND <THIS-IS-IT ,PRSI>
-		    <THIS-IS-IT ,PRSO>
-		    <SET O ,PRSO>
-		    <SET I ,PRSI>
-		    <NULL-F>>
-	       <NULL-F>)		;"[in case last clause changed PRSx]"
-	      (<SET V <DD-APPLY "Actor" ,WINNER <GETP ,WINNER ,P?ACTION>>> .V)
-	      (<SET V <D-APPLY "Room (M-BEG)"
+		    <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>>
+	       <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>
+	       <COND (.V
+		      <SETG P-WON <>>)>)>
+	<THIS-IS-IT ,PRSI>
+	<THIS-IS-IT ,PRSO>
+	<SET O ,PRSO>
+	<SET I ,PRSI>
+	<COND (<ZERO? .V>
+	       <SET V <DD-APPLY "Actor" ,WINNER <GETP ,WINNER ,P?ACTION>>>)>
+	<COND (<ZERO? .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 .I
-		    <SETG NOW-PRSI T>
-		    <SET V <D-APPLY "PRSI" <GETP .I ,P?ACTION>>>>
-	       .V)
-	      (<AND <NOT <SETG NOW-PRSI <>>>
+			       ,M-BEG>>)>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY "Preaction" <GET ,PREACTIONS .A>>>)>
+	<SETG NOW-PRSI T>
+	<COND (<AND <ZERO? .V>
+		    .I>
+	       <SET V <D-APPLY "PRSI" <GETP .I ,P?ACTION>>>)>
+	<SETG NOW-PRSI <>>
+	<COND (<AND <ZERO? .V>
 		    .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)>
+		    <LOC .O>>
+	       <SET V <GETP <LOC .O> ,P?CONTFCN>>
+	       <COND (.V
+		      <SET V <DD-APPLY "Container" <LOC .O> .V>>)>)>
+	<COND (<AND <ZERO? .V>
+		    .O
+		    <NOT <==? .A ,V?WALK>>>
+	       <SET V <D-APPLY "PRSO" <GETP .O ,P?ACTION>>>)>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY <> <GET ,ACTIONS .A>>>)>
 	<COND (<NOT <==? .V ,M-FATAL>>
-	       <COND (<==? <LOC ,WINNER> ,PRSO>	;"was not in compiled PERFORM"
-		      <SETG PRSO <>>)>
-	       <SET V <D-APPLY "Room (M-END)"
-			       <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	       <COND (<NOT <GAME-VERB?>>
+		      <SET V <D-APPLY "Room (M-END)"
+				   <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>)>
 	<SETG PRSA .OA>
 	<SETG PRSO .OO>
 	<SETG PRSI .OI>
diff --git a/manual.gr b/manual.gr
new file mode 100644
index 0000000..365466c
--- /dev/null
+++ b/manual.gr
@@ -0,0 +1,737 @@
+@style (spacing 1)
+@title [SEASTALKER(tm) MANUAL]
+@center [MANUAL FOR SEASTALKER(tm)]
+@center (Comments to Stu Galley)
+
+@chapter (INTRODUCTION)
+
+Welcome to the world of Infocom Young Adventures -- a world where:
+@begin (itemize)
+you become the hero or heroine in a story,
+
+you can use your own thinking and
+imagination to guide that story from start to finish,
+
+you can meet other people, who may help you or not, and
+
+you can go to new places, figure out mysteries and puzzles,
+and fight against monsters or enemies.
+@end (itemize)
+
+In SEASTALKER, you become a young inventor working in your father's
+business. Your newest invention is a small submarine that has only two seats
+inside, for you and your pal Tip. The submarine can dive deeply into
+the sea to capture plants and animals for you to study. But you will
+have to use it to save your undersea scientific station from a sea monster
+that is attacking it!
+
+@heading (RULES AND STRATEGIES)
+
+When you play SEASTALKER, the story goes on only from the time you hit
+the RETURN (or ENTER) key until you see the prompt ">". You could
+imagine a clock that ticks once for each sentence you type, and the
+story continues only at each tick. Nothing happens in the story from the
+time you see the prompt ">" until you hit the RETURN (or ENTER) key. You
+can think and plan your moves as slowly and carefully as you want.
+
+SEASTALKER keeps track of your score and gives you points when it
+thinks you have done something "right." You can try to get a perfect
+score if you want, but you should also try to guide the story to an
+ending that you like and to have fun along the way.
+
+One
+way to move from place to place in the story is to type "GO TO [a place]"
+-- that means to type the words "GO TO" and then the name of the place
+where you want to go. You can find the names of places by looking at the
+maps in your SEASTALKER package.
+
+If you don't want to miss anything on the way to another place, you can
+go toward it one place at a time, by typing the compass direction in
+which you want to go each turn. The main compass directions are "NORTH",
+"EAST", "SOUTH", and "WEST", and the ones in between are "NORTHEAST",
+"SOUTHEAST", "SOUTHWEST", and "NORTHWEST." Most players like to type
+these shorter words instead: "N", "E", "S", "W", "NE", "SE", "SW", and
+"NW." Sometimes you can use "UP" or "DOWN" ("U" or "D" for short) or
+"IN" or "OUT."
+
+Whenever you go into a place, SEASTALKER tells you the name of the place.
+It displays the name of the place, in parentheses, like "(lab center)".
+As you explore the different places in SEASTALKER, you should read
+carefully what the program displays and get to know the places you
+visit. You don't need to walk around or turn around within a place;
+anything you can see there is always within your reach, unless you are sitting
+or lying down or hiding.
+
+When you enter a place for the first time, SEASTALKER normally displays
+the name of the place and all about what you can see there. When you
+return to that place again, SEASTALKER normally displays only the name
+of the place and the names of interesting things there.
+
+If you want
+SEASTALKER to display all about a place every time you go there, not
+just the first time, type the command "VERBOSE" instead of a sentence.
+If you want SEASTALKER to go back to normal, type the command "BRIEF"
+instead of a sentence. If you want SEASTALKER to display only the name
+of a place and not to tell you what's there, even the very first time
+you go there, type the command "SUPERBRIEF" instead of a sentence.
+SUPERBRIEF mode is really only for Young Adventurers who already know
+their way around the story. (When
+you are in SUPERBRIEF mode, you can still type "LOOK" or "L", and
+SEASTALKER will describe the place you are in and the things there.)
+
+@heading (CONCEPTS FOR EXPLORING)
+
+One main idea of Young Adventure stories is to solve puzzles.
+You should think of a locked door or an
+unfriendly creature in the story not as an obstacle but as a
+puzzle that you need to solve. Sometimes the best way to solve a puzzle is to
+find something that appears in the story, take
+it with you, and then use it in the right way. Here are some ways
+that things in the story behave:
+
+@U(Containers):  Some things are containers that can hold other
+things. You can open or close some containers, like a box. Other
+containers are always open, like a bowl. Other containers are
+transparent, like a glass box, and you can see inside them even when
+they are closed. Other things have a surface, like a table, and you can
+put things on them. All containers can hold a certain amount and no
+more, like a small box. Some things are big, and some are little.
+
+Here is an example to show how a container works:
+
+@begin (example)
+
+>OPEN THE TINY BOX
+Opening the tiny box reveals an ID amulet.
+
+>PUT THE DIARY IN THE TINY BOX
+There's no room.
+
+>TAKE THE AMULET
+You are now holding the ID amulet.
+
+>LOOK IN THE BOX
+It's empty.
+
+@end (example)
+
+@U(People): You can talk to the other people in SEASTALKER. (For
+details, see the section later in this manual called "Typing to
+SEASTALKER.") Most other people will be glad to help you by doing what
+you tell them to. Some other people may be unfriendly or too busy to
+help, or they may think that you are an enemy.
+
+Here is an example of dealing with a person:
+
+@begin (example)
+Tip is standing here, chewing his gum.
+
+>TIP, FOLLOW ME
+"I'm already following you, Sheila."
+
+>SOUTH
+(south tank area)
+Tip follows you into the south tank area.
+
+>ASK TIP ABOUT THE PROBLEM
+Tip says, "I don't know anything about it, Sheila."
+@end (example)
+
+@heading (LOADING "SEASTALKER")
+
+Now that you know something about the world of Young Adventure, it's
+time to try "booting" your diskette in order to load the program. To
+load SEASTALKER, follow the instructions on the Reference Card in your
+SEASTALKER package.
+
+First the program will ask you for your first and last name, so it can
+use them in the story. Then it will display the title of the story,
+followed by the first bit of action and a description of the
+place where the story begins. Finally, the prompt ">" will appear. When
+you have finished reading this manual, you will be ready to play SEASTALKER.
+
+When you see the prompt ">", SEASTALKER is waiting for you to type in
+your instructions. When you have finished that, press the RETURN (or
+ENTER) key. The program will respond, and another prompt will appear.
+
+Here is a quick exercise to help you get used to SEASTALKER. After you
+read the beginning of the story, type this sentence after the prompt
+">":
+
+@begin (example)
+GO EAST
+@end (example)
+
+and then press the RETURN (or ENTER) key. SEASTALKER will respond
+by describing the place that you went:
+
+@begin (example)
+(east part)
+You are standing in the east part of your lab. A doorway leads out
+past the Electrical Power Panel via a short corridor to the office
+of your lab aide. A telephone and intercom sit on your desk.
+Tip is off to the west.
+There's a Microwave Security Scanner here.
+There's a desk here.
+@end (example)
+
+Now try typing:
+
+@begin (example)
+TURN ON THE SCANNER
+@end (example)
+
+After you press the RETURN (or ENTER) key, the program will respond:
+
+@begin (example)
+No beep occurs. Scanner displays: NO INTRUDER PRESENT ON GROUNDS.
+@end (example)
+
+You can explore the area around the lab, if you want; there's a map
+in your SEASTALKER package to help you. But soon, events in the story may make
+you want to get involved in it. You should read the rest of this manual first.
+@heading (TYPING TO "SEASTALKER")
+
+When you play any Young Adventure story, you type your sentences in plain
+English each time you see the prompt ">". You can pretend that all your
+sentences begin with "I want to...", but you should not actually type
+those words. You can use words like "THE" if you want, and you can use
+capital letters if you want; the program doesn't care either way.
+
+When you have finished typing a sentence, press the RETURN (or ENTER)
+key. Then the program will respond, telling you if what you want to do
+is possible at this point in the story, and what happens next.
+
+SEASTALKER looks only at the first six letters of each long word you
+type, and it ignores any letters after that. So, the words "ELECTRic"
+and "ELECTRonic" would look like the same word to SEASTALKER.
+
+SEASTALKER understands many different kinds of sentences. Here are
+some examples, using things or situations that may not actually occur in
+the story:
+
+@begin (example)
+	TAKE THE MIKE
+	PUT ON THE AMULET
+	PICK UP THE CATALYST CAPSULE
+	DROP IT
+	GO OUT
+	DROP THE MIKE ONTO THE WORKBENCH
+	WALK NORTH
+	WEST
+	SW
+	GET IN THE SUBMARINE
+	PUSH THE JOYSTICK EAST
+	EXAMINE THE DEPTH FINDER
+	SHOOT THE MONSTER WITH THE DART
+	LOOK AT THE SONARSCOPE
+	LOOK UNDER THE WORKBENCH
+	LOOK BEHIND THE COMPUTESTOR
+	AIM SEARCH BEAM TO STARBOARD
+	QUESTION TIP
+@end (example)
+
+You can use more than one noun for a "direct object" or
+"indirect object" with some verbs, if you
+separate the nouns by the word "AND" or by a comma.
+For example:
+
+@begin (example)
+	DROP THE MIKE AND THE NOTEBOOK
+	TAKE BLACK BOX, OXYGEN GEAR, AND UNIVERSAL TOOL
+	PUT THE DIARY AND THE PHOTO IN THE LOCKER
+@end (example)
+
+You can put more than one sentence on one input line, if you separate
+them by the word "THEN" or by a period. You don't need a
+period at the end of an input line. For example, you
+could type all these sentences on one input line, before pressing the
+RETURN (or ENTER) key:
+
+@begin (example)
+	READ THE SIGN. OPEN THE HATCH. GO THROUGH IT.
+@end (example)
+
+There are @U(only three) kinds of questions that SEASTALKER understands:
+"WHAT IS [something]", "WHO IS [someone]", and "WHERE IS [something]."
+(You can probably guess that you don't type a question as if it started
+with "I want to...") You can type a question mark at the end of a
+question if you want, but the program doesn't care. For example:
+
+@begin (example)
+	WHERE IS TIP?
+	WHO IS AMY.
+	WHAT IS A DEPTH FINDER
+@end (example)
+
+You will meet other people as you play
+SEASTALKER. You can "talk" to these people by typing their name,
+then a comma, then whatever you want to say to them. For example:
+
+@begin (example)
+	MARV, WHERE IS THE SONAR EQUIPMENT
+	TIP, FOLLOW ME
+	ZOE, KILL THE MONSTER
+	MICK, GO TO THE AIRLOCK THEN FIX THE SUBMARINE
+	AMY, WAIT HERE
+@end (example)
+
+If you forget to type the person's name first, SEASTALKER will sometimes
+assume that you meant to talk to the same person again, or to the only
+other person in the same place with you. When it does this, it will tell
+you. For example:
+
+@begin (example)
+>ASK ABOUT THE MONSTER
+(said to Tip)
+"You know as much about it as I do."
+@end (example)
+
+SEASTALKER tries to guess what you really mean if you don't give
+enough information. For example, if you type that you want to do
+something, but not what to do it with, SEASTALKER may
+decide that there was only one possible thing you could have meant.
+When it does this, it will tell you. For example:
+
+@begin (example)
+
+>UNLOCK THE DOOR
+(with the key)
+The door is now unlocked.
+
+>GET OUT
+(out of the Ultramarine Bioceptor)
+(airlock)
+
+@end (example)
+
+If you try to use something that you need to be holding, but you forgot
+to pick it up first, SEASTALKER will pick it up for you. For example:
+
+@begin (example)
+>LOOK
+You are in the library. There is a book here.
+
+>READ THE BOOK
+(taken)
+The book is far too long to read it all now.
+
+>INVENTORY
+You are carrying:
+   a book
+@end (example)
+
+If SEASTALKER thinks that your sentence could have more than one
+meaning, it will ask what you really meant.
+You can answer it by typing just the missing
+information; you don't have to type the whole sentence again. For example:
+
+@begin (example)
+>PUT THE RELAY
+What do you want to put the relay in?
+>THE EMPTY SPACE
+It fits!
+
+>OPEN THE HATCH
+Which hatch do you mean, the entry hatch or the access hatch?
+>ENTRY
+O.K.
+@end (example)
+
+SEASTALKER uses many words that it will not recognize in your
+sentences. For example, you might see "Sunlight shimmers across the
+dusty cobwebs." in the description of a place. However, if the program
+doesn't recognize the words "SUNLIGHT" or "COBWEBS" in your sentence,
+then you know that you don't need the sunlight and cobwebs to finish the
+story; they are in the description only to make the story more
+interesting. SEASTALKER recognizes nearly all the words that you are
+likely to type, over 700 of them. If SEASTALKER doesn't know a word
+that you want to use, or any word that means the same thing, you are almost
+certainly trying the wrong way to solve a puzzle.
+
+SEASTALKER will complain to you if you type a sentence that confuses
+it completely. (The end of this manual has an explanation of these
+complaints.) After it complains, SEASTALKER will ignore the rest of
+your input line. SEASTALKER will also ignore the rest of the sentences
+you typed on one line if something really important happens in the
+story, since you may want to change your mind about what to do next.
+
+@heading (TIPS FOR NEW PLAYERS)
+
+Many things that you discover in the story are important, because they
+give you clues about the puzzles you must solve. You should examine or
+read everything that seems important to you. Even silly or dangerous
+actions may give you clues; they can even be fun. Besides, you can
+always start the story over again, or you can save your place first.
+(There is a section later in this manual about starting over and saving
+your place.) Here's a silly example:
+
+@begin (example)
+>GIVE THE MAGIC GERANIUM TO THE MONSTER
+For a moment, the monster thinks about eating the geranium instead
+of you. But then it decides not to, and it comes closer and closer to you.
+@end (example)
+
+Here you have learned something about what the monster does not
+like to eat, and you have a clue that giving something else (maybe that
+yellow "goo" you are carrying?) to it would work better.
+
+There are many possible ways to get to the end of
+SEASTALKER. Some puzzles that you find along the way may have more
+than one solution, and you may not need to solve others at all. Sometimes
+solving a puzzle one way will make it harder to solve another,
+and sometimes it will make it easier.
+
+Many people like
+to play SEASTALKER with another person. One person may find a
+puzzle hard while another may find it easy, so two or more players often
+can have more fun than one player alone.
+
+You can use the maps that came with your SEASTALKER package
+to help you move from place to place.
+Remember that there are eight compass directions, not counting "IN" and "OUT".
+
+If you get stuck, you can order a booklet of hints from
+Infocom by filling out and mailing in the "Bilk and Wheedle" flyer in your
+SEASTALKER package.
+
+If you read the sample transcript in the next section, you should get a
+feeling for how Young Adventure stories are played.
+
+@heading (SAMPLE STORY TRANSCRIPT)
+
+This transcript is not from SEASTALKER, but it does show most of
+the usual things that you can do while playing. It shows
+several simple puzzles and their solutions, and it should give the
+new player a good idea of how an interactive text adventure story works.
+
+@begin (example)
+[to be supplied]
+@end (example)
+
+@heading (SAVING, RESTORING, RESTARTING, AND QUITTING)
+
+If you want to stop playing, and you don't care about saving your
+place for another time, type the command "QUIT." Just to be sure,
+SEASTALKER will ask you if you really want to leave the story, and you
+should type "YES."
+
+If you want to start over from the beginning of the story, type the
+command "RESTART." Once again, SEASTALKER will ask to make sure that
+this is really what you want to do.
+
+If you want to stop playing for now, but continue from this same place
+at another time, type the command "SAVE." Since it takes many hours to
+finish SEASTALKER, you will probably not finish it in one sitting. By
+using the "SAVE" command, you can continue playing at a later time
+without having to start over from the beginning, just as you can put a
+bookmark in a book you are reading. The "SAVE" command makes a
+"snapshot" of your place in the story on another diskette. If you are a
+cautious or careful player, you may want to save your place before you
+try something dangerous or tricky. Then you can return to the same
+place, even if you have gotten "killed" or lost since then.
+
+To save your place in the story, just type "SAVE"
+after the prompt ">" and then follow the instructions on your
+Reference Card. Remember that most computers need a diskette for storage
+that has been initialized
+("formatted") before you start the story. Remember also
+that you may not be able to use that diskette for anything else.
+
+To continue playing from any place where you used the "SAVE" command,
+just type "RESTORE" after the prompt ">" and follow the instructions on
+your Reference Card. Then you can continue playing from the place where
+you used the "SAVE" command. You can type "LOOK" to get a description of
+where you are. You can use "RESTORE" on any "snapshot" you have made
+whenever you want.
+
+@heading (IMPORTANT COMMANDS)
+
+You can type a command to SEASTALKER instead of a sentence. Some
+commands give you information and others let you start or stop the
+story. Some of these commands were also explained earlier in this
+manual. You can use these commands again and again, as you wish. Some
+commands count as a turn, and the story will go on, while others do not.
+
+"BRIEF" commands SEASTALKER to
+display all about a place or thing only the first time you see it.
+This is the way it works when the story begins.
+
+"DIAGNOSE" commands SEASTALKER to give you a brief report about your medical
+condition.
+
+"INVENTORY" or "I" commands SEASTALKER to display a list of all the
+things that you are carrying or wearing.
+
+"LOOK" or "L" commands SEASTALKER to describe the place you are in.
+
+"QUIT" or "Q" allows you to quit playing. If you want to quit for now,
+but continue from this same place at another time, use the "SAVE" command.
+
+"RELEASE" tells you the Release number and the Serial number of
+your copy of SEASTALKER.
+
+"RESTART" stops the story and starts over from the beginning.
+
+"RESTORE" lets you continue playing from any place where you used the
+"SAVE" command.
+
+"SAVE" lets you stop playing for now, but continue from this same place
+at another time, by making a "snapshot" on your storage diskette.
+
+"SCORE" tells your current score and a rank based on it.
+
+"SCRIPT" commands your printer to start making a transcript of the story
+as you play. Your Reference Card tells if you can use this feature.
+
+"SUPERBRIEF" commands SEASTALKER to
+display only the name of a place, even the first time you see it.
+
+"UNSCRIPT" commands your printer to stop making a transcript.
+
+"VERBOSE" commands SEASTALKER to
+display all about a place or thing every time you see it.
+
+"WAIT" or "Z" causes time in the story to pass. Normally, between your
+input lines, nothing happens in the story. You could leave the computer,
+travel around the world underwater for a year, and return to the story
+to find that nothing has changed. You can use the "WAIT" command to make
+time pass in the story without doing anything, if you are waiting for a
+person to arrive, waiting for something to happen, and so on.
+
+@heading (USEFUL VERBS)
+
+Here is a list of some of the verbs that SEASTALKER
+understands. Remember that you can use prepositions with these verbs;
+for example, "LOOK" can become "LOOK INSIDE", "LOOK
+BEHIND", "LOOK UNDER", "LOOK THROUGH", "LOOK AT", and so on.
+
+@begin (example)
+
+ASK	ATTACK	BOARD	BURN
+CLIMB	CLOSE	COUNT	CROSS
+CUT	DESTROY	DIG	DISEMBARK
+DRINK	DROP	EAT	ENTER
+EXAMINE	EXIT	EXTINGUISH	FILL
+FIND	FLY	FOLLOW	GIVE
+HELLO	JUMP	KICK	KILL
+KISS	KNOCK	LAUNCH	LIE
+LIGHT	LISTEN	LOCK	LOOK
+LOWER	MOVE	OPEN	POINT
+POUR	PULL	PUSH	PUT
+RAISE	REACH	READ	SEARCH
+SHAKE	SHOOT	SHOW	SLEEP
+SLIDE	SMELL	SPRAY	STAND
+SWIM	TAKE	TELL	THROW
+TIE	TOUCH	TURN	UNLOCK
+UNTIE	WAKE	WALK	WAVE
+
+@end (example)
+
+@heading ("SEASTALKER" COMPLAINTS)
+
+SEASTALKER will complain to you if you type a sentence that confuses
+it completely. Here is a list of some of these complaints:
+
+I DON'T KNOW THE WORD "[your word]".@*
+The word you typed is not in the
+program's list of words. Sometimes you can use another word that means
+the same thing. If not, SEASTALKER probably can't understand what
+you're trying to do.
+
+YOU CAN'T USE THE WORD "[your word]" IN THAT WAY.@*
+The program knows the word you
+typed, but it couldn't understand the word in the way that you used it,
+usually because the program knows the word as a different part of
+speech. For example, if you typed "PRESS THE LOWER BUTTON", you used
+"LOWER" as an adjective, but the program might recognize it only as a
+verb.
+
+I COULDN'T FIND A VERB IN THAT SENTENCE!@*
+Unless you are answering a
+question, each sentence must have a verb (or a command) in it somewhere.
+
+I COULDN'T FIND ENOUGH NOUNS IN THAT SENTENCE!@*
+SEASTALKER expected
+a noun and couldn't find one. This usually means that your sentence was
+not complete, such as "PUT THE LAMP IN THE."
+
+I FOUND TOO MANY NOUNS IN THAT SENTENCE!@*
+A valid SEASTALKER sentence
+has no more than two "objects." They are called the "direct object" and
+the "indirect object."
+For example, there are too many objects in
+"PUT THE SOUP IN THE BOWL WITH THE SPOON."
+
+BE SPECIFIC: WHAT THING DO YOU WANT TO [your verb]?@*
+You used the word "HIM" or "HER" or "IT", but SEASTALKER didn't know
+what you meant. You should answer by typing the name of the person or
+thing you meant.
+
+I BEG YOUR PARDON?@*
+SEASTALKER thinks that you didn't type anything
+after the prompt ">" and before hitting the RETURN (or ENTER) key.
+
+YOU CAN'T SEE ANY [thing] HERE!@*
+The thing in your sentence was not
+visible. It might be somewhere else, inside a container, and so on.
+
+THE OTHER THING(S) THAT YOU MENTIONED ISN'T (AREN'T) HERE.@*
+You
+used two or more nouns in the same sentence, and at least one of them
+wasn't visible.
+
+YOU CAN'T GO THAT WAY.@*
+There was no way to go in the direction you tried.
+
+YOU CAN'T USE MULTIPLE (IN)DIRECT OBJECTS WITH "[your verb]".@*
+You can
+use more than one "object" only with certain verbs, like "TAKE", "DROP",
+and "PUT". (This means nouns or noun phrases separated by the word "AND"
+or a comma). You can't use more than one object with most verbs, like
+"ATTACK", so you can't "ATTACK THE MONSTER AND THE ENEMY."
+
+I ASSUME YOU MEAN THE [thing].@*
+You typed a word that the program knows as an adjective, like "BLUE,"
+without a noun, but it knew what you meant anyway. It's just telling you what noun it
+thinks you meant.
+
+USE FIGURES FOR NUMBERS, FOR EXAMPLE "10."@*
+The program found a number word in your sentence, like "TEN," but it
+understands only figures, like "10."
+
+PLEASE USE UNITS WITH NUMBERS.@*
+The program found a number in your sentence without any units to tell
+what the number means. Use a word after the number like "METERS" or "TURNS".
+
+SORRY, BUT ENGLISH IS MY SECOND LANGUAGE. PLEASE REPHRASE THAT OR TRY
+SOMETHING ELSE.@*
+The program thought your sentence was
+nonsense, such as "GIVE HIM WITH TOOL." Or it didn't understand the
+syntax of your sentence, such as "SMELL UNDER THE ROCK." Try typing the
+sentence in a different way.
+
+@heading (SENTENCE SYNTAX)
+
+A valid SEASTALKER sentence should start with a verb or a command (such
+as "SCORE").
+
+If you use multiple nouns for one "object", you must separate them by
+the word "AND" or by a comma.
+
+If you type several sentences on one input line, you must separate them
+by a period or by the word "THEN". You don't need a period at the end of
+an input line.
+
+You can ask @U(only three) kinds of questions: "WHO", "WHERE" and "WHAT".
+
+The short way to type compass directions is "N", "E", "S", "W", "NE", "SE", "SW", and "NW."
+The short way to type "UP" and "DOWN" is "U" and "D."
+
+Other short words include "L" for "LOOK", "I" for "INVENTORY",
+and "Z" for "WAIT."
+
+@heading (COMMAND SUMMARY)
+
+You can type these commands when the prompt ">" has appeared
+on the screen. For an explanation of these commands, see the section
+called "Important Commands" earlier in this manual.
+
+@begin (example)
+	BRIEF
+	DIAGNOSE
+	INVENTORY (or I)
+	LOOK (or L)
+	QUIT (or Q)
+	RELEASE
+	RESTART
+	RESTORE
+	SAVE
+	SCORE
+	SCRIPT
+	SUPERBRIEF
+	UNSCRIPT
+	VERBOSE
+	WAIT
+@end (example)
+
+@heading (WE'RE NEVER SATISFIED)
+
+Here at the Cambridge chapter of the Young Adventure Story Writers
+Club, we take great pride in the quality of our work. Even after
+our stories are in your hands, we still want to make them better.
+
+Your comments are important. No matter how much testing we do, it seems that
+there are "bugs" that never crawl into view until thousands of you
+begin typing all those millions of sentences into the program. If you find a
+"bug", or if you think the program should recognize your favorite word
+or sentence, or if you found a certain puzzle too hard or too
+easy, or if you'd just like to tell us what you thought of the story, then
+write to us! We love an excuse to stop working and fool around for a
+while, and a letter from you would be just such an excuse! Write to:
+
+@begin (example)
+
+Infocom, Inc.
+Department J
+55 Wheeler street
+Cambridge, Mass. 02138
+
+@end (example)
+
+You can call the Infocom Technical Support Team to report "bugs" and
+technical problems at (617) 576-3190. If your diskette fails within 90
+days after purchase, we will replace it free of charge. Otherwise, we
+will replace it for a fee of $5.00. Please mail us your registration
+card if you'd like to be on our mailing list and receive our newsletter.
+
+@heading (OPERATING CONTROLS)
+
+If the Ultramarine Bioceptor (UB) operated like a real submarine, you
+would need a long training period just to learn how to operate it before
+you could enjoy playing this game!
+
+Instead of travelling in a straight line in any direction you want, the
+UB moves from square to square like a chess queen. The UB's squares are
+rather large, 500 meters on a side.
+And since the UB is a submarine that can go down and up under water
+("DIVE" and "SURFACE"), it uses a grid of squares for each depth. To keep
+it simple, the UB goes up or down only in steps of 5 meters,
+and it goes only one step up or down for each square that it
+moves side-to-side.
+
+You can pilot the UB using its four controls:
+@begin (itemize)
+
+The THROTTLE controls how fast the UB travels. You can set it to one of
+several different speeds, corresponding to moving a certain number of
+squares per turn: (0) standing still, (1) slow, (2) cruise,
+or (3) high speed.
+
+The FORWARD/REVERSE LEVER controls whether the UB moves forward or
+backward. You can switch from one to the other only when the UB is
+standing still. If you enter the Aquadome going forward, you have to
+back out, and vice versa.
+
+The JOYSTICK
+turns the UB to face one of the compass directions:
+north, northeast, east, southeast, south, southwest, west, or northwest.
+(If you have a joystick on your computer, and if it's the right kind of
+computer, then you can use your joystick instead of the UB's!)
+
+The DEPTH CONTROL directs the UB's automatic guidance system to keep
+a certain depth below the surface of the water. You can set it to any
+multiple of 5 meters within the sub's operating range. When you set
+it to a new target depth, the UB automatically adjusts its buoyancy and
+diving planes so it will approach the target depth. It will change depth
+by 5 meters each time it moves one square horizontally. If the
+throttle is set to "standing still," so that the UB isn't moving
+horizontally, then it will go straight up or straight down, 5
+meters per turn.
+When it
+reaches target depth, it will automatically level out and stay at that
+depth, assuming that it doesn't run into anything.
+
+The AUTO PILOT can handle all these controls automatically, except
+the throttle.
+@end (itemize)
diff --git a/manual.mss b/manual.mss
new file mode 100644
index 0000000..0b2048b
--- /dev/null
+++ b/manual.mss
@@ -0,0 +1,720 @@
+@style (spacing 1)
+@title [SEASTALKER(tm) MANUAL]
+@center [MANUAL FOR SEASTALKER(tm)]
+@center (Comments to Stu Galley)
+
+@chapter (INTRODUCTION)
+
+Welcome to the world of Infocom interactive fiction -- a world where:
+@begin (itemize)
+you become the hero or heroine in a story,
+
+you can use your own thinking and
+imagination to guide that story from start to finish,
+
+you can meet other people, who may help you or not, and
+
+you can go to new places, figure out mysteries and puzzles,
+and fight against monsters or enemies.
+@end (itemize)
+
+In SEASTALKER, you become a young inventor working in your father's
+business. Your newest invention is a small submarine that has only two seats
+inside, for you and your pal Tip. The submarine can dive deeply into
+the sea to capture plants and animals for you to study. But you will
+have to use it to save your undersea scientific station from a sea monster
+that is attacking it!
+
+@heading (RULES AND STRATEGIES)
+
+When you play SEASTALKER, the story goes on only from the time you hit
+the RETURN (or ENTER) key until you see the prompt ">". You could
+imagine a clock that ticks once for each sentence you type, and the
+story continues only at each tick. Nothing happens in the story from the
+time you see the prompt ">" until you hit the RETURN (or ENTER) key. You
+can think and plan your moves as slowly and carefully as you want.
+
+SEASTALKER keeps track of your score and gives you points when it
+thinks you have done something "right." You can try to get a perfect
+score if you want, but you should also try to guide the story to an
+ending that you like and to have fun along the way.
+
+One
+way to move from place to place in the story is to type "GO TO [a place]"
+-- that means to type the words "GO TO" and then the name of the place
+where you want to go. You can find the names of places by looking at the
+maps in your SEASTALKER package.
+
+If you don't want to miss anything on the way to another place, you can
+go toward it one place at a time, by typing the compass direction in
+which you want to go each turn. The main compass directions are "NORTH",
+"EAST", "SOUTH", and "WEST", and the ones in between are "NORTHEAST",
+"SOUTHEAST", "SOUTHWEST", and "NORTHWEST." Most players like to type
+these shorter words instead: "N", "E", "S", "W", "NE", "SE", "SW", and
+"NW." Sometimes you can use "UP" or "DOWN" ("U" or "D" for short) or
+"IN" or "OUT."
+
+Whenever you go into a place, SEASTALKER tells you the name of the place.
+It displays the name of the place, in parentheses, like "(lab center)".
+As you explore the different places in SEASTALKER, you should read
+carefully what the program displays and get to know the places you
+visit. You don't need to walk around or turn around within a place;
+anything you can see there is always within your reach, unless you are sitting
+or lying down or hiding.
+
+When you enter a place for the first time, SEASTALKER normally displays
+the name of the place and all about what you can see there. When you
+return to that place again, SEASTALKER normally displays only the name
+of the place and the names of interesting things there.
+
+If you want
+SEASTALKER to display all about a place every time you go there, not
+just the first time, type the command "VERBOSE" instead of a sentence.
+If you want SEASTALKER to go back to normal, type the command "BRIEF"
+instead of a sentence. If you want SEASTALKER to display only the name
+of a place and not to tell you what's there, even the very first time
+you go there, type the command "SUPERBRIEF" instead of a sentence.
+SUPERBRIEF mode is really only for players who already know
+their way around the story. (When
+you are in SUPERBRIEF mode, you can still type "LOOK" or "L", and
+SEASTALKER will describe the place you are in and the things there.)
+
+@heading (CONCEPTS FOR EXPLORING)
+
+One main idea of interactive fiction is to solve puzzles.
+You should think of a locked door or an
+unfriendly creature in the story not as an obstacle but as a
+puzzle that you need to solve. Sometimes the best way to solve a puzzle is to
+find something that appears in the story, take
+it with you, and then use it in the right way. Here are some ways
+that things in the story behave:
+
+@U(Containers):  Some things are containers that can hold other
+things. You can open or close some containers, like a box. Other
+containers are always open, like a bowl. Other containers are
+transparent, like a glass box, and you can see inside them even when
+they are closed. Other things have a surface, like a table, and you can
+put things on them. All containers can hold a certain amount and no
+more, like a small box. Some things are big, and some are little.
+
+Here is an example to show how a container works:
+
+@begin (example)
+
+>OPEN THE TINY BOX
+Opening the tiny box reveals an ID amulet.
+
+>PUT THE DIARY IN THE TINY BOX
+There's no room.
+
+>TAKE THE AMULET
+You are now holding the ID amulet.
+
+>LOOK IN THE BOX
+It's empty.
+
+@end (example)
+
+@U(People): You can talk to the other people in SEASTALKER. (For
+details, see the section later in this manual called "Typing to
+SEASTALKER.") Most other people will be glad to help you by doing what
+you tell them to. Some other people may be unfriendly or too busy to
+help, or they may think that you are an enemy.
+
+Here is an example of dealing with a person:
+
+@begin (example)
+Tip is standing here, chewing his gum.
+
+>TIP, FOLLOW ME
+"I'm already following you."
+
+>SOUTH
+(south tank area)
+Tip follows you into the south tank area.
+
+>ASK TIP ABOUT THE PROBLEM
+Tip says, "I don't know anything about it."
+@end (example)
+
+@heading (LOADING "SEASTALKER")
+
+Now that you know something about the world of interactive fiction, it's
+time to try "booting" your diskette in order to load the program. To
+load SEASTALKER, follow the instructions on the Reference Card in your
+SEASTALKER package.
+
+First the program will ask you for your first and last name, so it can
+use them in the story. Then it will display the title of the story,
+followed by the first bit of action and a description of the
+place where the story begins. Finally, the prompt ">" will appear. When
+you have finished reading this manual, you will be ready to play SEASTALKER.
+
+When you see the prompt ">", SEASTALKER is waiting for you to type in
+your instructions. When you have finished that, press the RETURN (or
+ENTER) key. The program will respond, and another prompt will appear.
+
+Here is a quick exercise to help you get used to SEASTALKER. After you
+read the beginning of the story, type this sentence after the prompt
+">":
+
+@begin (example)
+GO EAST
+@end (example)
+
+and then press the RETURN (or ENTER) key. SEASTALKER will respond
+by describing the place that you went:
+
+@begin (example)
+(east part)
+You're in the east part of your laboratory. A doorway leads out through
+a corridor to the office of your lab assistant. A Microwave Security
+Scanner stands against the wall. An intercom sits on the lab desk.
+Tip is off to the west.
+@end (example)
+
+Now try typing:
+
+@begin (example)
+TURN ON THE SCANNER
+@end (example)
+
+After you press the RETURN (or ENTER) key, the program will respond:
+
+@begin (example)
+No beep occurs. Scanner displays: NO INTRUDER PRESENT ON GROUNDS.
+@end (example)
+
+You can explore the area around the lab, if you want; there's a map
+in your SEASTALKER package to help you. But soon, events in the story may make
+you want to get involved in it. You should read the rest of this manual first.
+@heading (TYPING TO "SEASTALKER")
+
+When you play interactive fiction from Infocom,
+you type your sentences in plain
+English each time you see the prompt ">". You can pretend that all your
+sentences begin with "I want to...", but you should not actually type
+those words. You can use words like "THE" if you want, and you can use
+capital letters if you want; the program doesn't care either way.
+
+When you have finished typing a sentence, press the RETURN (or ENTER)
+key. Then the program will respond, telling you if what you want to do
+is possible at this point in the story, and what happens next.
+
+SEASTALKER looks only at the first six letters of each long word you
+type, and it ignores any letters after that. So, the words "ELECTRic"
+and "ELECTRonic" would look like the same word to SEASTALKER.
+
+SEASTALKER understands many different kinds of sentences. Here are
+some examples, using things or situations that may not actually occur in
+the story:
+
+@begin (example)
+	TAKE THE MIKE
+	PUT ON THE AMULET
+	PICK UP THE CATALYST CAPSULE
+	DROP IT
+	GO OUT
+	DROP THE MIKE ONTO THE WORKBENCH
+	WALK NORTH
+	WEST
+	SW
+	GET IN THE SUBMARINE
+	PUSH THE JOYSTICK EAST
+	EXAMINE THE DEPTH FINDER
+	SHOOT THE MONSTER WITH THE DART
+	LOOK AT THE SONARSCOPE
+	LOOK UNDER THE WORKBENCH
+	LOOK BEHIND THE COMPUTESTOR
+	AIM SEARCH BEAM TO STARBOARD
+	QUESTION TIP
+@end (example)
+
+You can use more than one noun for a "direct object" or
+"indirect object" with some verbs, if you
+separate the nouns by the word "AND" or by a comma.
+For example:
+
+@begin (example)
+	DROP THE MIKE AND THE NOTEBOOK
+	TAKE BLACK BOX, OXYGEN GEAR, AND UNIVERSAL TOOL
+	PUT THE DIARY AND THE PHOTO IN THE LOCKER
+@end (example)
+
+You can put more than one sentence on one input line, if you separate
+them by the word "THEN" or by a period. You don't need a
+period at the end of an input line. For example, you
+could type all these sentences on one input line, before pressing the
+RETURN (or ENTER) key:
+
+@begin (example)
+	READ THE SIGN. OPEN THE HATCH. GO THROUGH IT.
+@end (example)
+
+You will meet other people as you play
+SEASTALKER. You can "talk" to these people by typing their name,
+then a comma, then whatever you want them to do. For example:
+
+@begin (example)
+	TIP, FOLLOW ME
+	ZOE, KILL THE MONSTER
+	MICK, GO TO THE AIRLOCK THEN FIX THE SUBMARINE
+	AMY, WAIT HERE
+@end (example)
+
+If you forget to type the person's name first, SEASTALKER will sometimes
+assume that you meant to talk to the same person again, or to the only
+other person in the same place with you. When it does this, it will tell
+you. For example:
+
+@begin (example)
+>ASK ABOUT THE MONSTER
+(said to Tip)
+"You know as much about it as I do."
+@end (example)
+
+SEASTALKER tries to guess what you really mean if you don't give
+enough information. For example, if you type that you want to do
+something, but not what to do it with, SEASTALKER may
+decide that there was only one possible thing you could have meant.
+When it does this, it will tell you. For example:
+
+@begin (example)
+
+>UNLOCK THE DOOR
+(with the key)
+The door is now unlocked.
+
+>GET OUT
+(out of the Ultramarine Bioceptor)
+
+@end (example)
+
+If you try to use something that you need to be holding, but you forgot
+to pick it up first, SEASTALKER will pick it up for you. For example:
+
+@begin (example)
+>LOOK
+You are in the library. There is a book here.
+
+>READ THE BOOK
+(taken)
+The book is far too long to read it all now.
+
+>INVENTORY
+You are carrying:
+   a book
+@end (example)
+
+If SEASTALKER thinks that your sentence could have more than one
+meaning, it will ask what you really meant.
+You can answer it by typing just the missing
+information; you don't have to type the whole sentence again. For example:
+
+@begin (example)
+>PUT THE RELAY
+What do you want to put the relay in?
+>THE EMPTY SPACE
+It fits!
+
+>OPEN THE HATCH
+Which hatch do you mean, the entry hatch or the access hatch?
+>ENTRY
+O.K.
+@end (example)
+
+SEASTALKER uses many words that it will not recognize in your
+sentences. For example, you might see "Sunlight shimmers across the
+dusty cobwebs." in the description of a place. However, if the program
+doesn't recognize the words "SUNLIGHT" or "COBWEBS" in your sentence,
+then you know that you don't need the sunlight and cobwebs to finish the
+story; they are in the description only to make the story more
+interesting. SEASTALKER recognizes nearly all the words that you are
+likely to type, over 900 of them. If SEASTALKER doesn't know a word
+that you want to use, or any word that means the same thing, you are almost
+certainly trying the wrong way to solve a puzzle.
+
+SEASTALKER will complain to you if you type a sentence that confuses
+it completely. (The end of this manual has an explanation of these
+complaints.) After it complains, SEASTALKER will ignore the rest of
+your input line. SEASTALKER will also ignore the rest of the sentences
+you typed on one line if something really important happens in the
+story, since you may want to change your mind about what to do next.
+
+@heading (TIPS FOR NEW PLAYERS)
+
+Many things that you discover in the story are important, because they
+give you clues about the puzzles you must solve. You should examine or
+read everything that seems important to you. Even silly or dangerous
+actions may give you clues; they can even be fun. Besides, you can
+always start the story over again, or you can save your place first.
+(There is a section later in this manual about starting over and saving
+your place.) Here's a silly example:
+
+@begin (example)
+>GIVE THE MAGIC GERANIUM TO THE MONSTER
+For a moment, the monster thinks about eating the geranium instead
+of you. But then it decides not to, and it comes closer and closer to you.
+@end (example)
+
+Here you have learned something about what the monster does not
+like to eat, and you have a clue that giving something else (maybe that
+yellow "goo" you are carrying?) to it would work better.
+
+There are many possible ways to get to the end of
+SEASTALKER. Some puzzles that you find along the way may have more
+than one solution, and you may not need to solve others at all. Sometimes
+solving a puzzle one way will make it harder to solve another,
+and sometimes it will make it easier.
+
+Many people like
+to play SEASTALKER with another person. One person may find a
+puzzle hard while another may find it easy, so two or more players often
+can have more fun than one player alone.
+
+You can use the maps that came with your SEASTALKER package
+to help you move from place to place.
+Remember that there are eight compass directions, not counting "IN" and "OUT".
+
+If you get stuck, you can order a booklet of hints from
+Infocom by filling out and mailing in the "Bilk and Wheedle" flyer in your
+SEASTALKER package.
+
+If you read the sample transcript in the next section, you should get a
+feeling for how to play interactive fiction.
+
+@heading (SAMPLE STORY TRANSCRIPT)
+
+This transcript is not from SEASTALKER, but it does show most of
+the usual things that you can do while playing. It shows
+several simple puzzles and their solutions, and it should give the
+new player a good idea of how interactive fiction works.
+
+@begin (example)
+[to be supplied]
+@end (example)
+
+@heading (SAVING, RESTORING, RESTARTING, AND QUITTING)
+
+If you want to stop playing, and you don't care about saving your
+place for another time, type the command "QUIT." Just to be sure,
+SEASTALKER will ask you if you really want to leave the story, and you
+should type "YES."
+
+If you want to start over from the beginning of the story, type the
+command "RESTART." Once again, SEASTALKER will ask to make sure that
+this is really what you want to do.
+
+If you want to stop playing for now, but continue from this same place
+at another time, type the command "SAVE." Since it takes many hours to
+finish SEASTALKER, you will probably not finish it in one sitting. By
+using the "SAVE" command, you can continue playing at a later time
+without having to start over from the beginning, just as you can put a
+bookmark in a book you are reading. The "SAVE" command makes a
+"snapshot" of your place in the story on another diskette. If you are a
+cautious or careful player, you may want to save your place before you
+try something dangerous or tricky. Then you can return to the same
+place, even if you have gotten "killed" or lost since then.
+
+To save your place in the story, just type "SAVE"
+after the prompt ">" and then follow the instructions on your
+Reference Card. Remember that most computers need a diskette for storage
+that has been initialized
+("formatted") before you start the story. Remember also
+that you may not be able to use that diskette for anything else.
+
+To continue playing from any place where you used the "SAVE" command,
+just type "RESTORE" after the prompt ">" and follow the instructions on
+your Reference Card. Then you can continue playing from the place where
+you used the "SAVE" command. You can type "LOOK" to get a description of
+where you are. You can use "RESTORE" on any "snapshot" you have made
+whenever you want.
+
+@heading (IMPORTANT COMMANDS)
+
+You can type a command to SEASTALKER instead of a sentence. Some
+commands give you information and others let you start or stop the
+story. Some of these commands were also explained earlier in this
+manual. You can use these commands again and again, as you wish. Some
+commands count as a turn, and the story will go on, while others do not.
+
+"BRIEF" commands SEASTALKER to
+display all about a place or thing only the first time you see it.
+This is the way it works when the story begins.
+
+"DIAGNOSE" commands SEASTALKER to give you a brief report about your medical
+condition.
+
+"INVENTORY" or "I" commands SEASTALKER to display a list of all the
+things that you are carrying.
+
+"LOOK" or "L" commands SEASTALKER to describe the place you are in.
+
+"QUIT" or "Q" allows you to quit playing. If you want to quit for now,
+but continue from this same place at another time, use the "SAVE" command.
+
+"RESTART" stops the story and starts over from the beginning.
+
+"RESTORE" lets you continue playing from any place where you used the
+"SAVE" command.
+
+"REVISION" tells you the Revision number and the Serial number of
+your copy of SEASTALKER.
+
+"SAVE" lets you stop playing for now, but continue from this same place
+at another time, by making a "snapshot" on your storage diskette.
+
+"SCORE" tells your current score and a rank based on it.
+
+"SCRIPT" commands your printer to start making a transcript of the story
+as you play. Your Reference Card tells if you can use this feature.
+
+"SUPERBRIEF" commands SEASTALKER to
+display only the name of a place, even the first time you see it.
+
+"UNSCRIPT" commands your printer to stop making a transcript.
+
+"VERBOSE" commands SEASTALKER to
+display all about a place or thing every time you see it.
+
+"WAIT" or "Z" causes time in the story to pass. Normally, between your
+input lines, nothing happens in the story. You could leave the computer,
+travel around the world underwater for a year, and return to the story
+to find that nothing has changed. You can use the "WAIT" command to make
+time pass in the story without doing anything, if you are waiting for a
+person to arrive, waiting for something to happen, and so on.
+
+@heading (USEFUL VERBS)
+
+Here is a list of some of the verbs that SEASTALKER
+understands. Remember that you can use prepositions with these verbs;
+for example, "LOOK" can become "LOOK INSIDE", "LOOK
+BEHIND", "LOOK UNDER", "LOOK THROUGH", "LOOK AT", and so on.
+
+@begin (example)
+
+ASK	ATTACK	BOARD	BURN
+CLIMB	CLOSE	COUNT	CROSS
+CUT	DESTROY	DIG	DISEMBARK
+DRINK	DROP	EAT	ENTER
+EXAMINE	EXIT	EXTINGUISH	FILL
+FIND	FLY	FOLLOW	GIVE
+HELLO	JUMP	KICK	KILL
+KISS	KNOCK	LAUNCH	LIE
+LIGHT	LISTEN	LOCK	LOOK
+LOWER	MOVE	OPEN	POINT
+POUR	PULL	PUSH	PUT
+RAISE	REACH	READ	SEARCH
+SHAKE	SHOOT	SHOW	SLEEP
+SLIDE	SMELL	SPRAY	STAND
+SWIM	TAKE	TELL	THROW
+TIE	TOUCH	TURN	UNLOCK
+UNTIE	WAKE	WALK	WAVE
+
+@end (example)
+
+@heading ("SEASTALKER" COMPLAINTS)
+
+SEASTALKER will complain to you if you type a sentence that confuses
+it completely. Here is a list of some of these complaints:
+
+I DON'T KNOW THE WORD "[your word]".@*
+The word you typed is not in the
+program's list of words. Sometimes you can use another word that means
+the same thing. If not, SEASTALKER probably can't understand what
+you're trying to do.
+
+YOU CAN'T USE THE WORD "[your word]" IN THAT WAY.@*
+The program knows the word you
+typed, but it couldn't understand the word in the way that you used it,
+usually because the program knows the word as a different part of
+speech. For example, if you typed "PRESS THE LOWER BUTTON", you used
+"LOWER" as an adjective, but the program might recognize it only as a
+verb, as in "LOWER THE BOOM."
+
+I COULDN'T FIND A VERB IN THAT SENTENCE!@*
+Unless you are answering a
+question, each sentence must have a verb (or a command) in it somewhere.
+
+I COULDN'T FIND ENOUGH NOUNS IN THAT SENTENCE!@*
+SEASTALKER expected
+a noun and couldn't find one. This usually means that your sentence was
+not complete, such as "PUT THE LAMP IN THE."
+
+I FOUND TOO MANY NOUNS IN THAT SENTENCE!@*
+A valid SEASTALKER sentence
+has no more than two "objects." They are called the "direct object" and
+the "indirect object."
+For example, there are too many objects in
+"PUT THE SOUP IN THE BOWL WITH THE SPOON."
+
+BE SPECIFIC: WHAT THING DO YOU WANT TO [your verb]?@*
+You used the word "HIM" or "HER" or "IT", but SEASTALKER didn't know
+what you meant. You should answer by typing the name of the person or
+thing you meant.
+
+I BEG YOUR PARDON?@*
+SEASTALKER thinks that you didn't type anything
+after the prompt ">" and before hitting the RETURN (or ENTER) key.
+
+YOU CAN'T SEE ANY [thing] HERE!@*
+The thing in your sentence was not
+visible. It might be somewhere else, inside a container, and so on.
+
+THE OTHER THING(S) THAT YOU MENTIONED ISN'T (AREN'T) HERE.@*
+You
+used two or more nouns in the same sentence, and at least one of them
+wasn't visible.
+
+YOU CAN'T GO THAT WAY.@*
+There was no way to go in the direction you tried.
+
+YOU CAN'T USE MULTIPLE (IN)DIRECT OBJECTS WITH "[your verb]".@*
+You can
+use more than one "object" only with certain verbs, like "TAKE", "DROP",
+and "PUT". (This means nouns or noun phrases separated by the word "AND"
+or a comma.)  You can't use more than one object with most verbs, like
+"ATTACK", so you can't "ATTACK THE MONSTER AND THE ENEMY."
+
+I ASSUME YOU MEAN THE [thing].@*
+You typed a word that the program knows as an adjective, like "BLUE,"
+without a noun, but it knew what you meant anyway. It's just telling you what noun it
+thinks you meant.
+
+USE FIGURES FOR NUMBERS, FOR EXAMPLE "10."@*
+The program found a number word in your sentence, like "TEN," but it
+understands only figures, like "10."
+
+PLEASE USE UNITS WITH NUMBERS.@*
+The program found a number in your sentence without any units to tell
+what the number means. Use a word after the number like "METERS" or "TURNS".
+
+SORRY, BUT I DON'T UNDERSTAND. PLEASE REWORD THAT OR TRY
+SOMETHING ELSE.@*
+The program thought your sentence was
+nonsense, such as "GIVE HIM WITH TOOL." Or it didn't understand the
+syntax of your sentence, such as "SMELL UNDER THE ROCK." Try typing the
+sentence in a different way.
+
+@heading (SENTENCE SYNTAX)
+
+A valid SEASTALKER sentence should start with a verb or a command (such
+as "SCORE").
+
+If you use multiple nouns for one "object", you must separate them by
+the word "AND" or by a comma.
+
+If you type several sentences on one input line, you must separate them
+by a period or by the word "THEN". You don't need a period at the end of
+an input line.
+
+The short way to type compass directions is "N", "E", "S", "W", "NE", "SE", "SW", and "NW."
+The short way to type "UP" and "DOWN" is "U" and "D."
+
+Other short words include "L" for "LOOK", "I" for "INVENTORY",
+and "Z" for "WAIT."
+
+@heading (COMMAND SUMMARY)
+
+You can type these commands when the prompt ">" has appeared
+on the screen. For an explanation of these commands, see the section
+called "Important Commands" earlier in this manual.
+
+@begin (example)
+	BRIEF
+	DIAGNOSE
+	INVENTORY (or I)
+	LOOK (or L)
+	QUIT (or Q)
+	RELEASE
+	RESTART
+	RESTORE
+	SAVE
+	SCORE
+	SCRIPT
+	SUPERBRIEF
+	UNSCRIPT
+	VERBOSE
+	WAIT
+@end (example)
+
+@heading (WE'RE NEVER SATISFIED)
+
+Here at the Cambridge chapter of the Young Adventure Story Writers
+Club, we take great pride in the quality of our work. Even after
+our stories are in your hands, we still want to make them better.
+
+Your comments are important. No matter how much testing we do, it seems that
+there are "bugs" that never crawl into view until thousands of you
+begin typing all those millions of sentences into the program. If you find a
+"bug", or if you think the program should recognize your favorite word
+or sentence, or if you found a certain puzzle too hard or too
+easy, or if you'd just like to tell us what you thought of the story, then
+write to us! We love an excuse to stop working and fool around for a
+while, and a letter from you would be just such an excuse! Write to:
+
+@begin (example)
+
+Infocom, Inc.
+Department J
+55 Wheeler street
+Cambridge, Mass. 02138
+
+@end (example)
+
+You can call the Infocom Technical Support Team to report "bugs" and
+technical problems at (617) 576-3190. If your diskette fails within 90
+days after purchase, we will replace it free of charge. Otherwise, we
+will replace it for a fee of $5.00. Please mail us your registration
+card if you'd like to be on our mailing list and receive our newsletter.
+
+@heading (OPERATING CONTROLS)
+
+If the Ultramarine Bioceptor (UB) operated like a real submarine, you
+would need a long training period just to learn how to operate it before
+you could enjoy playing this story!
+
+Instead of travelling in a straight line in any direction you want, the
+UB moves from square to square like a chess queen. The UB's squares are
+rather large, 500 meters on a side.
+And since the UB is a submarine that can go down and up under water
+("DIVE" and "SURFACE"), it uses a grid of squares for each depth. To keep
+it simple, the UB goes up or down only in steps of 5 meters,
+and it goes only one step up or down for each square that it
+moves side-to-side.
+
+You can pilot the UB using its four controls:
+@begin (itemize)
+
+The THROTTLE controls how fast the UB travels. You can set it to one of
+several different speeds, corresponding to moving a certain number of
+squares per turn: (0) standing still, (1) slow, (2) cruise,
+or (3) high speed.
+
+The FORWARD/REVERSE LEVER controls whether the UB moves forward or
+backward. You can switch from one to the other only when the UB is
+standing still. If you enter the Aquadome going forward, you have to
+back out, and vice versa.
+
+The JOYSTICK
+turns the UB to face one of the compass directions:
+north, northeast, east, southeast, south, southwest, west, or northwest.
+(If you have a joystick on your computer, and if it's the right kind of
+computer, then you can use your joystick instead of the UB's!)
+
+The DEPTH CONTROL directs the UB's automatic guidance system to keep
+a certain depth below the surface of the water. You can set it to any
+multiple of 5 meters within the sub's operating range. When you set
+it to a new target depth, the UB automatically adjusts its buoyancy and
+diving planes so it will approach the target depth. It will change depth
+by 5 meters each time it moves one square horizontally. If the
+throttle is set to "standing still," so that the UB isn't moving
+horizontally, then it will go straight up or straight down, 5
+meters per turn.
+When it
+reaches target depth, it will automatically level out and stay at that
+depth, assuming that it doesn't run into anything.
+
+The AUTO PILOT can handle all these controls automatically, except
+the throttle.
+@end (itemize)
diff --git a/non-atari.serial b/non-atari.serial
new file mode 100644
index 0000000..0cfbf08
--- /dev/null
+++ b/non-atari.serial
@@ -0,0 +1 @@
+2
diff --git a/non-atari.xzap b/non-atari.xzap
new file mode 100644
index 0000000..dfda358
--- /dev/null
+++ b/non-atari.xzap
@@ -0,0 +1,18 @@
+	.INSERT "J1FREQ"
+	.INSERT "J1DAT.ZAP.1"
+	.INSERT "MACROS"
+	.INSERT "MAIN"
+	.INSERT "CLOCK"
+	.INSERT "SUB"
+	.INSERT "BATTLE"
+	.INSERT "DOME"
+	.INSERT "PLACES"
+	.INSERT "PEOPLE"
+	.INSERT "THINGS"
+	.INSERT "GLOBAL"
+	.INSERT "PARSER"
+	.INSERT "SYNTAX"
+	.INSERT "VERBS"
+	.INSERT "EVENTS"
+	.INSERT "J1STR"
+	.END
diff --git a/non-atari.zip b/non-atari.zip
new file mode 100644
index 0000000..da92e60
Binary files /dev/null and b/non-atari.zip differ
diff --git a/outhouse.questionaire b/outhouse.questionaire
new file mode 100644
index 0000000..799219e
--- /dev/null
+++ b/outhouse.questionaire
@@ -0,0 +1,114 @@
+.c;Seastalker Testing Questionnaire
+.s
+.c;(If you need more room, use the back or another sheet.)
+.s 3
+.ts 40
+Tester's Name	Parent's Name
+.s 2 
+Address
+.s 3 
+.ts 50,60
+Telephone number (include Area Code)	Age	Grade
+.s
+.s 
+What brand of computer are you using?
+.ts 20
+	Apple II 
+	Apple IIe
+        Apple IIe with Apple 80-column option
+	IBM-PC
+	Other __________________
+.s
+How much memory does the computer have?
+	32K
+	48K
+	64K
+	more
+.s
+Have you ever played an Infocom game before?
+	Yes
+	No
+.s
+If you have, which ones?
+.s 4
+Have you ever played any other "adventure" games before?
+	Yes
+	No
+.s
+If you have, which ones?
+.s 4
+Do you think the Logbook in Seastalker was helpful?  YES  NO
+.s
+Do you think the Infocards were helpful?  YES  NO
+.s
+Do you think the nautical chart was helpful?  YES  NO
+.s
+ 	What would you change?
+.s 4
+Do you think the vocabulary in Seastalker is:
+	Too easy
+	Easy
+	Just right
+	Hard
+	Too hard
+.s
+What words didn't you understand?
+.s 4
+Do you think the descriptions in Seastalker are:
+	Very clear
+	Clear enough
+	A little confusing
+	Difficult to understand
+	Too difficult to understand
+.s
+Which descriptions are not clear?
+.s 
+.s
+.s
+.s
+.s
+.s     
+After you finished the game, did you understand most of the story  
+or only some parts?
+.s 2
+Did you understand what happened at the beginning, in the lab?
+What parts didn't you understand?
+.s 6
+Did you think operating the submarine was hard?      Was it fun?     What parts didn't you understand?
+.s 6
+Did you understand the things that happened in the Aquadome?     What parts
+didn't you understand?
+.s 6
+Did you understand the final battle?     What parts didn't
+you understand?
+.s 6
+Did the story make sense to you? If not, why didn't it make sense?
+.s 6
+Are there any things you would put in or take out to make the story
+clearer or better or more fun? Are there things you would not take out,
+no matter what? 
+.s 6
+Overall, did you think the game was:
+	Excellent
+	Very good
+	Good
+	Fair
+	Bad
+.s
+Which of the following "thank you" games would you like? (Check two if you are
+sending a transcript of your playing):
+	Zork 1
+	Zork 2
+	Zork 3
+	Enchanter
+	Sorcerer
+	Deadline
+	Witness
+	Starcross
+	Suspended
+	Planetfall
+	Infidel
+	Seastalker
+.s
+What brand of computer do you want these game(s) for?
+(Sorry, we cannot send a TRS-80 version of Zork I)
\ No newline at end of file
diff --git a/package.gr b/package.gr
new file mode 100644
index 0000000..7122c3d
--- /dev/null
+++ b/package.gr
@@ -0,0 +1,302 @@
+@style(spacing 1)
+@title (SEASTALKER - PACKAGE)
+@pageheading(DRAFT)
+
+@majorheading (SEASTALKER DATA CARDS)
+
+@heading (PLACES)
+
+@begin (itemize)
+
+FROBTON BAY -
+"Frobton Bay is roughly circular in shape. One arm of the bay ends at
+North. The other arm of the bay ends at East. The harbor is protected by
+a concrete seawall extending from one arm to the other. The opening in
+this sea wall -- through which all vessels must pass in order to enter
+or leave the bay -- lies NE of the test tank, about 30 grid squares away.@*
+North of Inventions Unlimited, along the shore of the bay, lies the town of
+Frobton, fronted by its commercial docks and fisheries -- then a
+boatyard, and finally the North Point lighthouse.@*
+East of Inventions Unlimited is a marina, a resort area, and the East Point
+Yacht Club.@*
+Frobton is a busy seaport. The waters are dotted with pleasure boats,
+fishing craft and commercial shipping. Vessels are constantly moving
+into and out of the harbor. Observe all Rules of the Road -- unless you
+prefer to submerge."
+
+INVENTIONS UNLIMITED -
+This vast scientific enterprise was originally founded by your father,
+himself a world-famous inventor. You have since added even greater luster
+to the family name with your own numerous and unique inventions.@*
+The purpose of Inventions Unlimited is to advance the frontiers of human
+knowledge in every field of science, and to increase our awareness of and
+adjustment to the physical world on land, under the sea, in the air, and
+beyond Earth's own life-supporting atmosphere into the remotest reaches of
+Outer Space.@*
+There are five main units of Inventions Unlimited -- namely, the original
+research laboratory near the town of Frobton on the east coast of the
+United States; the Psycho-Biological Laboratory in Arizona; the undersea
+research station known as the Aquadome; the IU spaceport on a previously
+uninhabited island in the Caribbean; and the IU Satellite Network, consisting
+of an inhabited orbital space station and two communication satellites.
+Together, these three satellites provide the IU Videocom Network with
+global television and radio communication.
+
+@end (itemize)
+@heading (THINGS)
+@begin (itemize)
+
+COMPUTESTOR -
+The Computestor is for troubleshooting any invention, machine or system.
+It is connected by wires to all the ones in the lab.
+To consult it, you type "ASK COMPUTESTOR ABOUT (a device)."
+
+MICROWAVE SECURITY SCANNER -
+This device is located at the East Wall of your laboratory. It sweeps
+the entire grounds of the research facility with harmless microwaves.
+All legitimate personnel carry special identification amulets which are
+automatically "read" by the microwaves. But any human configuration
+not so equipped will cause the scanner to beep loudly.
+
+POWER SUPPLY -
+Inventions Unlimited generates its own electrical power by nuclear fusion.
+This power is transmitted to your lab via the building's Electrical
+Power Panel. This panel is located in the corridor just east of your
+lab.
+
+CIRCUIT BREAKER -
+This breaker controls the power supply to the Videoscope and other
+equipment related to the private Television Network.
+
+RADIO - for communication while on the surface
+
+SONARPHONE -
+Since ordinary radio waves cannot travel very far through water, a
+submerged submarine must rely on the transmission and reception of sonar
+waves for most underwater communication. This is done by a sonar
+transceiver, entirely separate from the sonarscope used for ranging and
+searching the underwater environment.@*
+The sonar transceiver has a sonarphone to speak over, plus a loudspeaker
+and headset. The speaker and headset are automatically activated by
+incoming signals.
+
+HYDROPHONE -
+This device picks up and amplifies all sounds in the surrounding
+undersea environment -- including possibly meaningful noises emitted by
+whales, dolphins, and other aquatic mammals. Inside the submarine, these
+sounds can be heard over either a loudspeaker or earphones.
+
+SUBMARINE -
+This revolutionary new undersea craft has a special monocoque hull
+design which can withstand tremendous pressure. If your computations are
+right, it will be strong enough to explore any ocean trench
+-- and its searchlight will be able to pierce the
+sub-ocean darkness for 1000 meters in any direction.@*
+Its extensor claws, jointed like a lazy tongs, will be able to seize and
+transport not only mineral samples but also live biological specimens of
+considerable strength and size. However, you purposely made the pilot
+model of small, two-seater size so that Tip and you can test it thoroughly
+before undertaking larger commercial versions.@*
+
+REACTOR -
+The craft is powered by a midget plasma-fusion reactor. This generates
+the electricity needed to power the Bioceptor's hydrojet propulsion
+system. The secret of the midget reactor is a special catalyst capsule.
+This capsule must be inserted into the reactor by the push of a lever in
+order to start the fusion process.
+
+EMERGENCY OXYGEN GEAR -
+This is a little canister of oxygen that you can wear slung around
+your neck. When you turn the valve, you can suck air through a rubber
+straw at the top.
+Two canisters are in the "Scimitar", just like in all Inventions Unlimited
+submarines.
+
+SEARCH BEAM - 
+A yellow search light is switched on automatically by an
+electronic eye in the hull, when you descend beyond the depth
+to which daylight easily penetrates. You can aim it left or right
+(also called port or starboard) to illuminate objects up to 1000 meters away.
+
+DEPTH FINDER -
+This device uses echo-sounding to determine the depth of the water
+below the sub. It is automatically activated whenever the sub is in
+motion. The depth is displayed in the form of a digital readout.@*
+During a dive, an orange warning light comes on and a warning buzzer is
+heard when the sub comes within 10 meters of the bottom.
+The light turns red, and the buzzer becomes louder and shriller when the
+sub comes within 5 meters of the bottom.
+
+EXTENSOR CLAWS -
+These are the remote-controlled manipulating devices that make your
+revolutionary new submarine a true hunter and prober of the ocean depths.
+The claws are mounted on arms, which are jointed like lazy tongs and
+can be extended out to a maximum length of 10 meters from the hull of the
+submarine. The Ultramarine Bioceptor is equipped with two such claws.
+They can, of course, be swiveled and aimed in any direction.
+
+EXTENSOR CLAW CONTROLS - (extend, retract, take, drop, aim, shoot)
+
+REMOTE-CONTROL BUTTON - for signalling gates and airlocks to open or close
+
+VIDEO CAMERAS -
+There are four video cameras installed in the hull of the Bioceptor.
+They are specially designed for underwater operation at great depths,
+and they have both infra-red sensitivity and image-enhancement features
+in order to obtain the best possible picture under the darkest, most adverse
+conditions.@*
+The cameras are so positioned on the hull as to command a full spherical
+view of the undersea environment. They are also equipped for immediate
+closed-circuit viewing on monitor screens inside the cabin, or for
+videotaping and playback.
+
+SONARSCOPE -
+The sonarscope shows you solid objects at the same depth as the "Scimitar"
+within 2500 meters in any direction.
+A yellow warning light indicates that the bearing of an underwater blip
+is not changing, even though your sub and/or the object causing the blip
+are moving. This means you are on a collision course!
+The light will turn red and a loud alarm buzzer will sound when you
+and the approaching object are within one turn of a collision!
+
+SONAR TRANSDUCER -
+This is the device that converts electrical oscillations into
+ultrasonic search pulses which are beamed out through the water and
+reflected from surrounding objects to produce "blips" on the sonarscope.@*
+A similar but separate transducer for the sonarphone system emits a
+continuous ultrasonic signal which can be used as an underwater carrier wave
+and modulated to transmit voice communication.
+
+TEST BUTTON -
+All of your inventions, such as the Videocoms and the Ultramarine Bioceptor,
+have a built-in capability of testing themselves to discover the cause of
+any possible operating trouble. This troubleshooting circuitry is activated by
+pushing a test button. The results of the test are instantly displayed in
+the form of an electronic readout.
+
+ENGINE COMPARTMENT -
+"It is located via an access door in the bulkhead just below and to the
+right of control panel."@*
+"The space is dimly illuminated by small work lights."@*
+"CRAWL CAREFULLY: Too large a waist or hip circumference, or
+too violent wriggling may pose SERIOUS DANGERS!"
+1-- Tight space presents risk of knocking delicate bearings out of alignment.
+2-- Hot, sharp or moving parts present danger of personal injury.
+
+ESCAPE POD EJECTOR UNIT -
+This unit includes three parts:@*
+(1) an electronic monitor and alarm, designed to alert the user to any
+deterioration in the environment - oxygen, air pressure or whatever;@*
+(2) a hypodermic stimulant, designed to jab the user in the buttock
+in case s/he has passed out and does not respond to the warning alarm
+within two minutes; and@*
+(3) a pod and ejector system, designed to enclose the user in a watertight
+pod and eject him/her from the sub unless s/he manually deactivates
+the escape system within two minutes after the stimulant has been
+administered.@*
+The pod will contain a 12-hour air supply and S.O.S@. sonar signal
+transmitter. If reliably installed, these pods will offer you and Tip
+a chance to survive if a battle turns out disastrously.
+
+AQUATIC DART GUN - 
+The aquatic dart gun was originally designed for use as a handgun by
+individual divers in order to capture or temporarily immobilize large fish
+or other undersea creatures for purposes of scientific study. The dart is
+projected from the gun by means of a carbon-dioxide cartridge.@*
+Each dart contains a medical substance known as a "tranquilizer" which
+tends to soothe and make drowsy any creature into which it is injected.@*
+In this adventure, the dart gun is adapted by certain small changes so that
+it can be held and fired by one of the extensor claws on your new submarine,
+the Ultramarine Bioceptor.
+
+PROSPECTING BAZOOKA OR 49-ER -
+Originally invented by you for use by individual miners and prospectors
+on land, you have since adapted it for purposes of prospecting for undersea
+minerals. Unlike the military weapon, the prospecting bazooka has a rifled
+launching tube and a screw-threaded projectile which has sufficient rocket
+power to bore a dozen feet into bedrock. The projectile is hollow and yields
+a core sample which can be reeled or winched up to the surface of the sea bed
+by means of a slender steel and nylon cable.
+The 49-er is usually fired by the diver from a shoulder-held position.
+@end (itemize)
+@heading (PEOPLE)
+@begin (itemize)
+
+TIP BERKELEY -
+Tip is your closest pal and constant companion. A 19-year-old native
+Californian, he's an expert flier and often serves as test pilot of your
+futuristic aerospace craft, as well as land vehicles and undersea craft.@*
+Blond-haired, muscular, compactly built and good-natured if sometimes
+quick-tempered, he's more of a jock than a theoretical science buff of
+your caliber. Nevertheless, his rollicking high spirits and bulldog
+courage in tight spots make him an ideal sidekick and participant in all
+of your thrilling adventures.
+
+SHANA KEMP -
+Shana is 21, red-haired, highly attractive and scarcely a year out of
+college.@*
+She acquired a degree in biochemistry at MIT, where her keen
+intelligence and inquiring mind quickly gained her a working familiarity
+with most other fields of science. Her late father, a professor of the
+history of science, was an old friend of your father. This led to her
+hiring at Inventions Unlimited, where she has since become a valued
+associate of you, the famous young inventor.
+
+LOU PERELLI -
+Lou Perelli was trained as a military
+intelligence officer and later, after leaving the Army, became a private
+security expert before joining Inventions Unlimited. He has since undergone
+further training by both the FBI and CIA, and has a first-hand expertise
+in all phases of police work and counterespionage.
+
+COMMANDER ZOE BRENT -
+Small, slim, with curly dark hair and the delicate beauty of a China
+doll, Zoe Brent is astonishingly strong and agile for her size and sex.
+Going by looks alone, it would be easy to forget that she's been a
+champion athlete since girlhood and is every bit as much physical as she
+is mental in her behavior and outlook.@*
+Already an Olympic-class swimmer and expert scuba diver while still in
+her teens, Zoe Brent joined the Naval ROTC program at UCLA and was
+commissioned Ensign USN. She then served two years on active duty and
+underwent training at the Navy's Frogman School. Later she got her
+doctorate in marine biology at Caltech and did research at Scripps
+Institute of Oceanography before joining Inventions Unlimited.@*
+Now 29, she has been in command of the Aquadome for the past three
+months. Reportedly not all personnel are happy to be serving under her.
+Aside from sexist prejudice, perhaps her own superb mental and physical
+capabilities, combined with her eagerness to carry out important
+undersea research, may tend to make her somewhat impatient and
+short-tempered with more plodding subordinates.
+
+MICK CASEY -
+Mick Casey is a frogman-technician who's also a laser expert.
+
+WALT NOVAK -
+Walt Novak is a young marine biochemist.
+
+DOCTOR JEROME THORP -
+Dr@. Jerome Thorp is a distinguished marine biologist.@*
+"This is a copy of a magazine called 'Science World.' It is a popular
+magazine, not aimed just at scientists. It reports on interesting new
+scientific developments.@*
+The cover bears a picture of Dr@. Jerome Thorp, noted marine biologist,
+surrounded by an artist's imaginative drawings of weird new undersea
+life forms. The cover blurb says:@*
+HOT FLASH FROM THE MARINE BIOLOGY FRONT!@*
+... NEW SEA CREATURES SPAWNED BY TEST TUBE?@*
+The cover story is about Dr@. Thorp, who has
+reportedly created synthetic forms of marine life by means of genetic
+engineering. Reading further, you learn (1) that Dr@. Thorp has
+disappeared and apparently gone into hiding to duck the publicity
+resulting from his sensational feat; and (2) that before going into hiding,
+Thorp confided to close friends that he would soon marry a young
+American woman, Shana Kemp."@*
+"Size and appearance of synthetic creatures unknown.@*
+Their movements are said to be stimulated by ultrasonic pulses. Reportedly
+they can be trained to respond to such pulses.@*
+Because of secrecy, many scientists are skeptical of Thorp's experiments.@*
+Earlier technical papers by Thorp claimed that one-celled organisms
+had evolved in his lab from a bio-chemical called AMINO-HYDROPHASE or AH.@*
+If present rumors are true, these synthetic sea creatures presumably
+must also be based on the AH molecule."
+@end (itemize)
diff --git a/package.mss b/package.mss
new file mode 100644
index 0000000..6f6d2eb
--- /dev/null
+++ b/package.mss
@@ -0,0 +1,35 @@
+@style(spacing 1)
+@title (SEASTALKER - PACKAGE)
+@pageheading(DRAFT)
+
+@majorheading (SEASTALKER INFOCARDS)
+
+@begin (itemize)
+
+INVENTIONS UNLIMITED -
+This vast scientific enterprise was originally founded by your father,
+himself a world-famous inventor. You have since added even greater luster
+to the family name with your own numerous and unique inventions.@*
+The purpose of Inventions Unlimited is to advance the frontiers of human
+knowledge in every field of science, and to increase our awareness of and
+adjustment to the physical world on land, under the sea, in the air, and
+beyond Earth's own life-supporting atmosphere into the remotest reaches of
+Outer Space.@*
+There are five main units of Inventions Unlimited -- namely, the original
+research laboratory near the town of Frobton on the east coast of the
+United States; the Psycho-Biological Laboratory in Arizona; the undersea
+research station known as the Aquadome; the IU spaceport on a previously
+uninhabited island in the Caribbean; and the IU Satellite Network, consisting
+of an inhabited orbital space station and two communication satellites.
+Together, these three satellites provide the IU Videocom Network with
+global television and radio communication.
+
+VIDEOSCOPE -
+All the parts of Inventions Unlimited are connected in a Videoscope
+network for communicating with voice and picture. In the center of your
+lab is a Videoscope unit that works somewhat like a telephone. When it
+rings, you should answer by turning it on. If the person is calling
+urgently, a red alert signal will flash also. After you turn on the
+Videoscope, you may need to tune it by turning the tuning knob.
+
+@end (itemize)
diff --git a/parser.zap b/parser.zap
index e40498e..d0db151 100644
--- a/parser.zap
+++ b/parser.zap
@@ -7,7 +7,7 @@
 
 	.FUNCT	I-PROMPT-2
 	ZERO?	P-PROMPT /FALSE
-	SET	'P-PROMPT,0
+	SET	'P-PROMPT,FALSE-VALUE
 	CRLF	
 	PRINTI	"(Are you tired of seeing ""What next?"" Well, you won't see it any more.)"
 	CRLF	
@@ -18,17 +18,17 @@
 	RFALSE	
 
 
-	.FUNCT	PARSER,PTR=P-LEXSTART,WORD,VAL=0,VERB=0,LEN,DIR=0,NW=0,LW=0,NUM,SCNT,CNT=-1
+	.FUNCT	PARSER,PTR=P-LEXSTART,WRD,VAL=0,VERB=0,OF-FLAG=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-NUMBER,-1
-	SET	'P-NAM,0
-	SET	'P-ADJ,0
-	SET	'P-ADVERB,0
-	SET	'P-MERGED,0
-	SET	'P-WHAT-IGNORED,0
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADVERB,FALSE-VALUE
+	SET	'P-MERGED,FALSE-VALUE
+	SET	'P-WHAT-IGNORED,FALSE-VALUE
 	PUT	P-PRSO,P-MATCHLEN,0
 	PUT	P-PRSI,P-MATCHLEN,0
 	PUT	P-BUTS,P-MATCHLEN,0
@@ -40,12 +40,12 @@
 	LOC	WINNER >HERE
 ?CND8:	ZERO?	P-CONT /?ELS18
 	SET	'PTR,P-CONT
-	SET	'P-CONT,0
+	SET	'P-CONT,FALSE-VALUE
 	EQUAL?	PRSA,V?TELL /?CND16
 	CRLF	
 	JUMP	?CND16
 ?ELS18:	SET	'WINNER,PLAYER
-	SET	'QUOTE-FLAG,0
+	SET	'QUOTE-FLAG,FALSE-VALUE
 	LOC	WINNER
 	FSET?	STACK,VEHBIT /?CND25
 	LOC	WINNER >HERE
@@ -85,43 +85,43 @@
 	CRLF	
 	RFALSE	
 ?CND59:	SET	'LEN,P-LEN
-	SET	'P-DIR,0
+	SET	'P-DIR,FALSE-VALUE
 	SET	'P-NCN,0
 	SET	'P-GETFLAGS,0
 	PUT	P-ITBL,P-VERBN,0
 ?PRG64:	DLESS?	'P-LEN,0 \?ELS68
-	SET	'QUOTE-FLAG,0
+	SET	'QUOTE-FLAG,FALSE-VALUE
 	JUMP	?REP65
-?ELS68:	GET	P-LEXV,PTR >WORD
-	CALL	BUZZER-WORD?,WORD
+?ELS68:	GET	P-LEXV,PTR >WRD
+	CALL	BUZZER-WORD?,WRD
 	ZERO?	STACK \FALSE
-	ZERO?	WORD \?THN73
-	CALL	NUMBER?,PTR >WORD
-	ZERO?	WORD \?THN73
-	CALL	NAME?,PTR >WORD
-	ZERO?	WORD /?ELS72
-?THN73:	EQUAL?	WORD,W?TO \?ELS77
+	ZERO?	WRD \?THN73
+	CALL	NUMBER?,PTR >WRD
+	ZERO?	WRD \?THN73
+	CALL	NAME?,PTR >WRD
+	ZERO?	WRD /?ELS72
+?THN73:	EQUAL?	WRD,W?TO \?ELS77
 	EQUAL?	VERB,ACT?TELL,ACT?ASK \?ELS77
 	SET	'VERB,ACT?TELL
-	SET	'WORD,W?QUOTE
+	SET	'WRD,W?QUOTE
 	JUMP	?CND75
-?ELS77:	EQUAL?	WORD,W?THEN \?CND75
+?ELS77:	EQUAL?	WRD,W?THEN \?CND75
 	ZERO?	VERB \?CND75
 	PUT	P-ITBL,P-VERB,ACT?TELL
 	PUT	P-ITBL,P-VERBN,0
-	SET	'WORD,W?QUOTE
-?CND75:	EQUAL?	WORD,W?THEN,W?. /?THN87
-	EQUAL?	WORD,W?QUOTE \?ELS86
-?THN87:	EQUAL?	WORD,W?QUOTE \?CND89
+	SET	'WRD,W?QUOTE
+?CND75:	EQUAL?	WRD,W?THEN,W?PERIOD /?THN87
+	EQUAL?	WRD,W?QUOTE \?ELS86
+?THN87:	EQUAL?	WRD,W?QUOTE \?CND89
 	ZERO?	QUOTE-FLAG /?ELS94
-	SET	'QUOTE-FLAG,0
+	SET	'QUOTE-FLAG,FALSE-VALUE
 	JUMP	?CND89
-?ELS94:	SET	'QUOTE-FLAG,1
+?ELS94:	SET	'QUOTE-FLAG,TRUE-VALUE
 ?CND89:	ZERO?	P-LEN /?THN98
 	ADD	PTR,P-LEXELEN >P-CONT
 ?THN98:	PUTB	P-LEXV,P-LEXWORDS,P-LEN
 	JUMP	?REP65
-?ELS86:	CALL	WT?,WORD,PS?DIRECTION,P1?DIRECTION >VAL
+?ELS86:	CALL	WT?,WRD,PS?DIRECTION,P1?DIRECTION >VAL
 	ZERO?	VAL /?ELS101
 	EQUAL?	LEN,1 /?THN104
 	EQUAL?	LEN,2 \?ELS107
@@ -130,7 +130,7 @@
 	GET	P-LEXV,STACK >NW
 	EQUAL?	NW,W?THEN,W?QUOTE \?ELS109
 	GRTR?	LEN,2 /?THN104
-?ELS109:	EQUAL?	NW,W?. \?ELS111
+?ELS109:	EQUAL?	NW,W?PERIOD \?ELS111
 	GRTR?	LEN,1 /?THN104
 ?ELS111:	ZERO?	QUOTE-FLAG /?ELS113
 	EQUAL?	LEN,2 \?ELS113
@@ -142,18 +142,18 @@
 	ADD	PTR,P-LEXELEN
 	PUT	P-LEXV,STACK,W?THEN
 ?CND116:	GRTR?	LEN,2 /?CND66
-	SET	'QUOTE-FLAG,0
+	SET	'QUOTE-FLAG,FALSE-VALUE
 	JUMP	?REP65
-?ELS101:	CALL	WT?,WORD,PS?VERB,P1?VERB >VAL
+?ELS101:	CALL	WT?,WRD,PS?VERB,P1?VERB >VAL
 	ZERO?	VAL /?ELS123
 	ZERO?	VERB /?THN126
 	EQUAL?	VERB,ACT?NAME \?ELS123
 ?THN126:	EQUAL?	VERB,ACT?NAME \?CND128
-	SET	'P-WHAT-IGNORED,1
+	SET	'P-WHAT-IGNORED,TRUE-VALUE
 ?CND128:	SET	'VERB,VAL
 	PUT	P-ITBL,P-VERB,VAL
 	PUT	P-ITBL,P-VERBN,P-VTBL
-	PUT	P-VTBL,0,WORD
+	PUT	P-VTBL,0,WRD
 	MUL	PTR,2
 	ADD	STACK,2 >NUM
 	GETB	P-LEXV,NUM
@@ -162,70 +162,80 @@
 	GETB	P-LEXV,STACK
 	PUTB	P-VTBL,3,STACK
 	JUMP	?CND66
-?ELS123:	CALL	WT?,WORD,PS?PREPOSITION,0 >VAL
+?ELS123:	CALL	WT?,WRD,PS?PREPOSITION,0 >VAL
 	ZERO?	VAL \?THN133
-	EQUAL?	WORD,W?ONE,W?A /?THN137
-	CALL	WT?,WORD,PS?ADJECTIVE
+	EQUAL?	WRD,W?ONE,W?A /?THN137
+	CALL	WT?,WRD,PS?ADJECTIVE
 	ZERO?	STACK \?THN137
-	CALL	WT?,WORD,PS?OBJECT
+	CALL	WT?,WRD,PS?OBJECT
 	ZERO?	STACK /?ELS132
-?THN137:	SET	'VAL,0
-?THN133:	GRTR?	P-LEN,0 \?ELS141
+?THN137:	SET	'VAL,0 \?ELS132
+?THN133:	GRTR?	P-LEN,1 \?ELS141
 	ADD	PTR,P-LEXELEN
 	GET	P-LEXV,STACK
 	EQUAL?	STACK,W?OF \?ELS141
 	EQUAL?	VERB,ACT?MAKE /?ELS141
 	ZERO?	VAL \?ELS141
-	EQUAL?	WORD,W?ONE,W?A /?ELS141
+	EQUAL?	WRD,W?ONE,W?A /?ELS141
+	SET	'OF-FLAG,TRUE-VALUE
 	JUMP	?CND66
 ?ELS141:	ZERO?	VAL /?ELS145
 	ZERO?	P-LEN /?THN148
 	ADD	PTR,2
 	GET	P-LEXV,STACK
-	EQUAL?	STACK,W?THEN,W?. \?ELS145
+	EQUAL?	STACK,W?THEN,W?PERIOD \?ELS145
 ?THN148:	LESS?	P-NCN,2 \?CND66
 	PUT	P-ITBL,P-PREP1,VAL
-	PUT	P-ITBL,P-PREP1N,WORD
+	PUT	P-ITBL,P-PREP1N,WRD
 	JUMP	?CND66
 ?ELS145:	EQUAL?	P-NCN,2 \?ELS154
 	PRINTI	"(I found too many nouns in that sentence!)"
 	CRLF	
 	RFALSE	
 ?ELS154:	INC	'P-NCN
-	CALL	CLAUSE,PTR,VAL,WORD >PTR
+	CALL	CLAUSE,PTR,VAL,WRD >PTR
 	ZERO?	PTR /FALSE
 	LESS?	PTR,0 \?CND66
-	SET	'QUOTE-FLAG,0
+	SET	'QUOTE-FLAG,FALSE-VALUE
 	JUMP	?REP65
-?ELS132:	EQUAL?	WORD,W?CLOSELY \?ELS165
+?ELS132:	EQUAL?	WRD,W?CLOSELY \?ELS165
 	SET	'P-ADVERB,W?CAREFULLY
 	JUMP	?CND66
-?ELS165:	EQUAL?	WORD,W?CAREFULLY,W?QUIETLY,W?PRIVATELY /?THN168
-	EQUAL?	WORD,W?SLOWLY,W?QUICKLY,W?BRIEFLY \?ELS167
-?THN168:	SET	'P-ADVERB,WORD
+?ELS165:	EQUAL?	WRD,W?CAREFULLY,W?QUIETLY,W?PRIVATELY /?THN168
+	EQUAL?	WRD,W?SLOWLY,W?QUICKLY,W?BRIEFLY \?ELS167
+?THN168:	SET	'P-ADVERB,WRD
 	JUMP	?CND66
-?ELS167:	CALL	WT?,WORD,PS?BUZZ-WORD
-	ZERO?	STACK /?ELS171
+?ELS167:	EQUAL?	WRD,W?OF \?ELS171
+	ZERO?	OF-FLAG /?THN175
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?PERIOD,W?THEN \?ELS174
+?THN175:	CALL	CANT-USE,PTR
+	RFALSE	
+?ELS174:	SET	'OF-FLAG,FALSE-VALUE
 	JUMP	?CND66
-?ELS171:	CALL	CANT-USE,PTR
+?ELS171:	CALL	WT?,WRD,PS?BUZZ-WORD
+	ZERO?	STACK /?ELS180
+	JUMP	?CND66
+?ELS180:	CALL	CANT-USE,PTR
 	RFALSE	
 ?ELS72:	CALL	UNKNOWN-WORD,PTR
 	RFALSE	
-?CND66:	SET	'LW,WORD
+?CND66:	SET	'LW,WRD
 	ADD	PTR,P-LEXELEN >PTR
 	JUMP	?PRG64
-?REP65:	ZERO?	DIR /?CND176
+?REP65:	ZERO?	DIR /?CND185
 	SET	'PRSA,V?WALK
 	SET	'PRSO,DIR
 	SET	'P-WALK-DIR,DIR
-	RTRUE	
-?CND176:	SET	'P-WALK-DIR,0
-	ZERO?	P-OFLAG /?CND180
+	RETURN	TRUE-VALUE
+?CND185:	SET	'P-WALK-DIR,FALSE-VALUE
+	ZERO?	P-OFLAG /?CND189
 	CALL	ORPHAN-MERGE
-?CND180:	GET	P-ITBL,P-VERB
-	ZERO?	STACK \?CND184
+?CND189:	GET	P-ITBL,P-VERB
+	ZERO?	STACK \?CND193
 	PUT	P-ITBL,P-VERB,ACT?$CALL
-?CND184:	CALL	SYNTAX-CHECK
+?CND193:	CALL	SYNTAX-CHECK
 	ZERO?	STACK /FALSE
 	CALL	SNARF-OBJECTS
 	ZERO?	STACK /FALSE
@@ -247,14 +257,14 @@
 	RSTACK	
 
 
-	.FUNCT	CLAUSE,PTR,VAL,WORD,OFF,NUM,ANDFLG=0,FIRST??=1,NW,LW=0,?TMP1
+	.FUNCT	CLAUSE,PTR,VAL,WRD,OFF,NUM,ANDFLG=0,FIRST??=1,NW,LW=0,?TMP1
 	SUB	P-NCN,1
 	MUL	STACK,2 >OFF
 	ZERO?	VAL /?ELS3
 	ADD	P-PREP1,OFF >NUM
 	PUT	P-ITBL,NUM,VAL
 	ADD	NUM,1
-	PUT	P-ITBL,STACK,WORD
+	PUT	P-ITBL,STACK,WRD
 	ADD	PTR,P-LEXELEN >PTR
 	JUMP	?CND1
 ?ELS3:	INC	'P-LEN
@@ -277,34 +287,34 @@
 	ADD	P-LEXV,STACK
 	PUT	P-ITBL,?TMP1,STACK
 	RETURN	-1
-?CND14:	GET	P-LEXV,PTR >WORD
-	CALL	BUZZER-WORD?,WORD
+?CND14:	GET	P-LEXV,PTR >WRD
+	CALL	BUZZER-WORD?,WRD
 	ZERO?	STACK \FALSE
-	ZERO?	WORD \?THN22
-	CALL	NUMBER?,PTR >WORD
-	ZERO?	WORD \?THN22
-	CALL	NAME?,PTR >WORD
-	ZERO?	WORD /?ELS21
+	ZERO?	WRD \?THN22
+	CALL	NUMBER?,PTR >WRD
+	ZERO?	WRD \?THN22
+	CALL	NAME?,PTR >WRD
+	ZERO?	WRD /?ELS21
 ?THN22:	ZERO?	P-LEN \?ELS26
 	SET	'NW,0
 	JUMP	?CND24
 ?ELS26:	ADD	PTR,P-LEXELEN
 	GET	P-LEXV,STACK >NW
-?CND24:	EQUAL?	WORD,W?OF \?CND29
+?CND24:	EQUAL?	WRD,W?OF \?CND29
 	GET	P-ITBL,P-VERB
 	EQUAL?	STACK,ACT?MAKE \?CND29
 	PUT	P-LEXV,PTR,W?WITH
-	SET	'WORD,W?WITH
-?CND29:	EQUAL?	WORD,W?AND,W?COMMA \?ELS36
-	SET	'ANDFLG,1
+	SET	'WRD,W?WITH
+?CND29:	EQUAL?	WRD,W?AND,W?COMMA \?ELS36
+	SET	'ANDFLG,TRUE-VALUE
 	JUMP	?CND17
-?ELS36:	EQUAL?	WORD,W?ONE \?ELS38
+?ELS36:	EQUAL?	WRD,W?ONE \?ELS38
 	EQUAL?	NW,W?OF \?CND17
 	DEC	'P-LEN
 	ADD	PTR,P-LEXELEN >PTR
 	JUMP	?CND17
-?ELS38:	EQUAL?	WORD,W?THEN,W?. /?THN44
-	CALL	WT?,WORD,PS?PREPOSITION
+?ELS38:	EQUAL?	WRD,W?THEN,W?PERIOD /?THN44
+	CALL	WT?,WRD,PS?PREPOSITION
 	ZERO?	STACK /?ELS43
 	ZERO?	FIRST?? \?ELS43
 ?THN44:	INC	'P-LEN
@@ -317,18 +327,18 @@
 ?ELS43:	ZERO?	ANDFLG /?ELS49
 	GET	P-ITBL,P-VERBN
 	ZERO?	STACK /?THN52
-	CALL	WT?,WORD,PS?DIRECTION
+	CALL	WT?,WRD,PS?DIRECTION
 	ZERO?	STACK \?THN52
-	CALL	WT?,WORD,PS?VERB
+	CALL	WT?,WRD,PS?VERB
 	ZERO?	STACK /?ELS49
 ?THN52:	SUB	PTR,4 >PTR
 	ADD	PTR,2
 	PUT	P-LEXV,STACK,W?THEN
 	ADD	P-LEN,2 >P-LEN
 	JUMP	?CND17
-?ELS49:	CALL	WT?,WORD,PS?OBJECT
+?ELS49:	CALL	WT?,WRD,PS?OBJECT
 	ZERO?	STACK /?ELS55
-	CALL	WT?,WORD,PS?ADJECTIVE,P1?ADJECTIVE
+	CALL	WT?,WRD,PS?ADJECTIVE,P1?ADJECTIVE
 	ZERO?	STACK /?ELS58
 	ZERO?	NW /?ELS58
 	CALL	WT?,NW,PS?OBJECT
@@ -342,22 +352,22 @@
 	ADD	P-LEXV,STACK
 	PUT	P-ITBL,?TMP1,STACK
 	RETURN	PTR
-?ELS62:	SET	'ANDFLG,0
+?ELS62:	SET	'ANDFLG,FALSE-VALUE
 	JUMP	?CND17
-?ELS55:	CALL	WT?,WORD,PS?ADJECTIVE
+?ELS55:	CALL	WT?,WRD,PS?ADJECTIVE
 	ZERO?	STACK \?CND17
-	CALL	WT?,WORD,PS?BUZZ-WORD
+	CALL	WT?,WRD,PS?BUZZ-WORD
 	ZERO?	STACK /?ELS68
 	JUMP	?CND17
-?ELS68:	CALL	WT?,WORD,PS?PREPOSITION
+?ELS68:	CALL	WT?,WRD,PS?PREPOSITION
 	ZERO?	STACK /?ELS72
 	JUMP	?CND17
 ?ELS72:	CALL	CANT-USE,PTR
 	RFALSE	
 ?ELS21:	CALL	UNKNOWN-WORD,PTR
 	RFALSE	
-?CND17:	SET	'LW,WORD
-	SET	'FIRST??,0
+?CND17:	SET	'LW,WRD
+	SET	'FIRST??,FALSE-VALUE
 	ADD	PTR,P-LEXELEN >PTR
 	JUMP	?PRG12
 
@@ -401,7 +411,7 @@
 
 
 	.FUNCT	ORPHAN-MERGE,CNT=-1,TEMP,VERB,BEG,END,ADJ=0,WRD,?TMP1
-	SET	'P-OFLAG,0
+	SET	'P-OFLAG,FALSE-VALUE
 	GET	P-ITBL,P-VERB >VERB
 	ZERO?	VERB /?ELS3
 	GET	P-OTBL,P-VERB
@@ -413,67 +423,75 @@
 	GET	P-OTBL,P-PREP1
 	EQUAL?	TEMP,STACK /?THN13
 	ZERO?	TEMP \FALSE
-?THN13:	GET	P-ITBL,P-NC1
+?THN13:	ZERO?	ADJ /?ELS17
+	ADD	P-LEXV,2
+	PUT	P-OTBL,P-NC1,STACK
+	ADD	P-LEXV,6
+	PUT	P-OTBL,P-NC1L,STACK
+	JUMP	?CND1
+?ELS17:	GET	P-ITBL,P-NC1
 	PUT	P-OTBL,P-NC1,STACK
 	GET	P-ITBL,P-NC1L
 	PUT	P-OTBL,P-NC1L,STACK
 	JUMP	?CND1
 ?ELS9:	GET	P-OTBL,P-NC2
-	EQUAL?	STACK,1 \?ELS18
+	EQUAL?	STACK,1 \?ELS24
 	GET	P-ITBL,P-PREP1 >TEMP
 	GET	P-OTBL,P-PREP2
-	EQUAL?	TEMP,STACK /?THN22
+	EQUAL?	TEMP,STACK /?THN28
 	ZERO?	TEMP \FALSE
-?THN22:	GET	P-ITBL,P-NC1
+?THN28:	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	?CND1
-?ELS18:	ZERO?	P-ACLAUSE /?CND1
-	EQUAL?	P-NCN,1 /?ELS31
-	SET	'P-ACLAUSE,0
+?ELS24:	ZERO?	P-ACLAUSE /?CND1
+	EQUAL?	P-NCN,1 /?ELS37
+	SET	'P-ACLAUSE,FALSE-VALUE
 	RFALSE	
-?ELS31:	GET	P-ITBL,P-NC1 >BEG
+?ELS37:	GET	P-ITBL,P-NC1 >BEG
 	GET	P-ITBL,P-NC1L >END
-?PRG34:	EQUAL?	BEG,END \?ELS38
-	ZERO?	ADJ /?ELS41
+?PRG40:	EQUAL?	BEG,END \?ELS44
+	ZERO?	ADJ /?ELS47
 	CALL	ACLAUSE-WIN,ADJ
-	JUMP	?CND29
-?ELS41:	SET	'P-ACLAUSE,0
+	JUMP	?CND35
+?ELS47:	SET	'P-ACLAUSE,FALSE-VALUE
 	RFALSE	
-?ELS38:	ZERO?	ADJ \?ELS46
+?ELS44:	ZERO?	ADJ \?ELS52
 	GET	BEG,0 >WRD
 	GETB	WRD,P-PSOFF
-	BTST	STACK,PS?ADJECTIVE \?ELS46
+	BTST	STACK,PS?ADJECTIVE \?ELS52
 	SET	'ADJ,WRD
-	JUMP	?CND36
-?ELS46:	GETB	WRD,P-PSOFF
-	BTST	STACK,PS?OBJECT /?THN51
-	EQUAL?	WRD,W?ONE \?CND36
-?THN51:	EQUAL?	WRD,P-ANAM,W?ONE \FALSE
+	JUMP	?CND42
+?ELS52:	GETB	WRD,P-PSOFF
+	BTST	STACK,PS?OBJECT /?THN57
+	EQUAL?	WRD,W?ONE \?CND42
+?THN57:	EQUAL?	WRD,P-ANAM,W?ONE \FALSE
 	CALL	ACLAUSE-WIN,ADJ
-	JUMP	?CND29
-?CND36:	ADD	BEG,P-WORDLEN >BEG
-	JUMP	?PRG34
-?CND29:	
+	JUMP	?CND35
+?CND42:	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG40
+?CND35:	
 ?CND1:	
-?PRG58:	IGRTR?	'CNT,P-ITBLLEN \?ELS62
-	SET	'P-MERGED,1
+?PRG64:	IGRTR?	'CNT,P-ITBLLEN \?ELS68
+	SET	'P-MERGED,TRUE-VALUE
 	RTRUE	
-?ELS62:	GET	P-OTBL,CNT
+?ELS68:	GET	P-OTBL,CNT
 	PUT	P-ITBL,CNT,STACK
-	JUMP	?PRG58
+	JUMP	?PRG64
 
 
 	.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,0
+?ELS2:	SET	'P-ACLAUSE,FALSE-VALUE
 	RTRUE	
 
 
@@ -486,20 +504,16 @@
 
 
 	.FUNCT	UNKNOWN-WORD,PTR,BUF,?TMP1
-	GET	UNKNOWN-MSGS,0
-	PRINT	STACK
+	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
-	SET	'QUOTE-FLAG,0
-	SET	'P-OFLAG,0
-	GET	UNKNOWN-MSGS,1
-	PRINT	STACK
-	CRLF	
-	RTRUE	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	PRINTR	""".)"
 
 
 	.FUNCT	CANT-USE,PTR,BUF,?TMP1
@@ -512,9 +526,9 @@
 	CALL	WORD-PRINT,?TMP1,STACK
 	PRINTI	""" when you use it that way.)"
 	CRLF	
-	SET	'QUOTE-FLAG,0
-	SET	'P-OFLAG,0
-	RTRUE	
+	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
@@ -586,18 +600,18 @@
 ?ELS50:	EQUAL?	WINNER,PLAYER \?ELS57
 	CALL	ORPHAN,DRIVE1,DRIVE2
 	PRINTI	"(Wh"
-	EQUAL?	VERB,ACT?WALK,ACT?CRAWL \?ELS64
-	PUSH	STR?131
+	EQUAL?	VERB,ACT?WALK \?ELS64
+	PUSH	STR?122
 	JUMP	?CND60
-?ELS64:	PUSH	STR?132
+?ELS64:	PUSH	STR?123
 ?CND60:	PRINT	STACK
 	PRINTI	" do you want to "
 	JUMP	?CND55
 ?ELS57:	PRINTI	"(Your command was not complete. Next time, type wh"
 	EQUAL?	VERB,ACT?WALK \?ELS75
-	PUSH	STR?131
+	PUSH	STR?122
 	JUMP	?CND71
-?ELS75:	PUSH	STR?132
+?ELS75:	PUSH	STR?123
 ?CND71:	PRINT	STACK
 	PRINTI	" you want "
 	PRINTD	WINNER
@@ -611,11 +625,11 @@
 ?ELS86:	GETB	DRIVE2,P-SPREP2
 ?CND82:	CALL	PREP-PRINT,STACK
 	EQUAL?	WINNER,PLAYER \?ELS92
-	SET	'P-OFLAG,1
+	SET	'P-OFLAG,TRUE-VALUE
 	PRINTI	"?)"
 	CRLF	
 	RFALSE	
-?ELS92:	SET	'P-OFLAG,0
+?ELS92:	SET	'P-OFLAG,FALSE-VALUE
 	PRINTI	".)"
 	CRLF	
 	RFALSE	
@@ -672,24 +686,24 @@
 	.FUNCT	BUFFER-PRINT,BEG,END,CP,NOSP=0,WRD,FIRST??=1,PN=0,?TMP1
 ?PRG1:	EQUAL?	BEG,END /TRUE
 	ZERO?	NOSP /?ELS10
-	SET	'NOSP,0
+	SET	'NOSP,FALSE-VALUE
 	JUMP	?CND8
 ?ELS10:	PRINTI	" "
 ?CND8:	GET	BEG,0 >WRD
-	EQUAL?	WRD,W?. \?ELS18
-	SET	'NOSP,1
+	EQUAL?	WRD,W?PERIOD \?ELS18
+	SET	'NOSP,TRUE-VALUE
 	JUMP	?CND3
 ?ELS18:	EQUAL?	WRD,W?DR \?ELS20
 	PRINTI	"Dr."
-	SET	'PN,1
+	SET	'PN,TRUE-VALUE
 	JUMP	?CND3
 ?ELS20:	EQUAL?	WRD,W?HIM,W?HER,W?ME \?ELS24
-	SET	'PN,1
+	SET	'PN,TRUE-VALUE
 	JUMP	?CND3
 ?ELS24:	CALL	CAPITAL-NOUN?,WRD
 	ZERO?	STACK /?ELS26
 	CALL	CAPITALIZE,BEG
-	SET	'PN,1
+	SET	'PN,TRUE-VALUE
 	JUMP	?CND3
 ?ELS26:	ZERO?	FIRST?? /?CND29
 	ZERO?	PN \?CND29
@@ -717,7 +731,7 @@
 ?ELS50:	GETB	BEG,2 >?TMP1
 	GETB	BEG,3
 	CALL	WORD-PRINT,?TMP1,STACK
-?CND36:	SET	'FIRST??,0
+?CND36:	SET	'FIRST??,FALSE-VALUE
 ?CND3:	ADD	BEG,P-WORDLEN >BEG
 	JUMP	?PRG1
 
@@ -818,14 +832,14 @@
 ?CND1:	SET	'P-GWIMBIT,GBIT
 	SET	'P-SLOCBITS,LBIT
 	PUT	P-MERGE,P-MATCHLEN,0
-	CALL	GET-OBJECT,P-MERGE,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,0
+	CALL	PREP-PRINT,PREP,FALSE-VALUE
 	ZERO?	STACK /?CND16
 	CALL	THE?,OBJ
 	PRINTI	" "
@@ -883,13 +897,14 @@
 	RETURN	NTBL
 
 
-	.FUNCT	SNARFEM,PTR,EPTR,TBL,AND=0,BUT=0,LEN,WV,WORD,NW
+	.FUNCT	SNARFEM,PTR,EPTR,TBL,BUT=0,LEN,WV,WRD,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
+	GET	PTR,0 >WRD
 ?PRG1:	EQUAL?	PTR,EPTR \?ELS5
 	ZERO?	BUT /?ORP9
 	PUSH	BUT
@@ -898,9 +913,9 @@
 ?THN6:	CALL	GET-OBJECT,STACK
 	RETURN	STACK
 ?ELS5:	GET	PTR,P-LEXELEN >NW
-	CALL	BUZZER-WORD?,WORD
+	CALL	BUZZER-WORD?,WRD
 	ZERO?	STACK \FALSE
-	EQUAL?	WORD,W?A,W?ONE \?ELS16
+	EQUAL?	WRD,W?A,W?ONE \?ELS16
 	ZERO?	P-ADJ \?ELS19
 	SET	'P-GETFLAGS,P-ONE
 	EQUAL?	NW,W?OF \?CND3
@@ -915,8 +930,9 @@
 	ZERO?	STACK /FALSE
 	ZERO?	NW /TRUE
 	JUMP	?CND3
-?ELS16:	EQUAL?	WORD,W?AND,W?COMMA \?ELS34
+?ELS16:	EQUAL?	WRD,W?AND,W?COMMA \?ELS34
 	EQUAL?	NW,W?AND,W?COMMA /?ELS34
+	SET	'P-AND,TRUE-VALUE
 	ZERO?	BUT /?ORP42
 	PUSH	BUT
 	JUMP	?THN39
@@ -924,29 +940,29 @@
 ?THN39:	CALL	GET-OBJECT,STACK
 	ZERO?	STACK \?CND12
 	RFALSE	
-?ELS34:	CALL	WT?,WORD,PS?BUZZ-WORD
+?ELS34:	CALL	WT?,WRD,PS?BUZZ-WORD
 	ZERO?	STACK /?ELS44
 	JUMP	?CND3
-?ELS44:	EQUAL?	WORD,W?AND,W?COMMA \?ELS46
+?ELS44:	EQUAL?	WRD,W?AND,W?COMMA \?ELS46
 	JUMP	?CND3
-?ELS46:	EQUAL?	WORD,W?OF \?ELS48
+?ELS46:	EQUAL?	WRD,W?OF \?ELS48
 	ZERO?	P-GETFLAGS \?CND12
 	SET	'P-GETFLAGS,P-INHIBIT
 	JUMP	?CND12
-?ELS48:	CALL	WT?,WORD,PS?ADJECTIVE,P1?ADJECTIVE >WV
+?ELS48:	CALL	WT?,WRD,PS?ADJECTIVE,P1?ADJECTIVE >WV
 	ZERO?	WV /?ELS53
 	ZERO?	P-ADJ \?ELS53
 	SET	'P-ADJ,WV
-	SET	'P-ADJN,WORD
+	SET	'P-ADJN,WRD
 	JUMP	?CND3
-?ELS53:	CALL	WT?,WORD,PS?OBJECT,P1?OBJECT
+?ELS53:	CALL	WT?,WRD,PS?OBJECT,P1?OBJECT
 	ZERO?	STACK /?CND3
-	SET	'P-NAM,WORD
-	SET	'P-ONEOBJ,WORD
+	SET	'P-NAM,WRD
+	SET	'P-ONEOBJ,WRD
 ?CND12:	
 ?CND3:	EQUAL?	PTR,EPTR /?PRG1
 	ADD	PTR,P-WORDLEN >PTR
-	SET	'WORD,NW
+	SET	'WRD,NW
 	JUMP	?PRG1
 
 
@@ -960,11 +976,11 @@
 	CALL	WT?,P-ADJN,PS?OBJECT,P1?OBJECT
 	ZERO?	STACK /?ELS11
 	SET	'P-NAM,P-ADJN
-	SET	'P-ADJ,0
+	SET	'P-ADJ,FALSE-VALUE
 	JUMP	?CND4
 ?ELS11:	CALL	WT?,P-ADJN,PS?DIRECTION,P1?DIRECTION >BTS
 	ZERO?	BTS /?CND4
-	SET	'P-ADJ,0
+	SET	'P-ADJ,FALSE-VALUE
 	PUT	TBL,P-MATCHLEN,1
 	PUT	TBL,1,INTDIR
 	SET	'P-DIRECTION,BTS
@@ -1027,8 +1043,8 @@
 	EQUAL?	OBJ,NOT-HERE-OBJECT /FALSE
 	PUT	TBL,1,OBJ
 	PUT	TBL,P-MATCHLEN,1
-	SET	'P-NAM,0
-	SET	'P-ADJ,0
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
 	RTRUE	
 ?ELS68:	ZERO?	VRB /?ELS75
 	ZERO?	P-NAM /?ELS75
@@ -1040,33 +1056,34 @@
 ?CND78:	SET	'P-ACLAUSE,STACK
 	SET	'P-AADJ,P-ADJ
 	SET	'P-ANAM,P-NAM
-	CALL	ORPHAN,0,0
-	SET	'P-OFLAG,1
+	CALL	ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'P-OFLAG,TRUE-VALUE
 	JUMP	?CND66
 ?ELS75:	ZERO?	VRB /?CND66
 	CALL	MISSING-NOUN,ADJ
-?CND66:	SET	'P-NAM,0
-	SET	'P-ADJ,0
+?CND66:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
 	RFALSE	
 ?ELS53:	ZERO?	LEN \?ELS89
 	ZERO?	GCHECK /?ELS89
 	ZERO?	VRB /?CND92
+	SET	'P-SLOCBITS,XBITS
 	ZERO?	LIT /?ELS98
 	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,0
-	SET	'P-ADJ,0
-	SET	'P-ADJN,0
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	SET	'P-ADJN,FALSE-VALUE
 	RTRUE	
 ?ELS98:	PRINTI	"(It's too dark to see!)"
 	CRLF	
-?CND92:	SET	'P-NAM,0
-	SET	'P-ADJ,0
+?CND92:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
 	RFALSE	
 ?ELS89:	ZERO?	LEN \?CND40
-	SET	'GCHECK,1
+	SET	'GCHECK,TRUE-VALUE
 	JUMP	?PRG28
 ?CND40:	ZERO?	P-ADJ /?CND106
 	ZERO?	P-NAM \?CND106
@@ -1077,8 +1094,8 @@
 	PRINTI	".)"
 	CRLF	
 ?CND106:	SET	'P-SLOCBITS,XBITS
-	SET	'P-NAM,0
-	SET	'P-ADJ,0
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
 	RTRUE	
 
 
@@ -1121,14 +1138,15 @@
 	SET	'RLEN,LEN
 	PRINTI	"(Which"
 	ZERO?	P-OFLAG \?THN6
-	ZERO?	P-MERGED /?ELS5
+	ZERO?	P-MERGED \?THN6
+	ZERO?	P-AND /?ELS5
 ?THN6:	PRINTI	" "
 	PRINTB	P-NAM
 	JUMP	?CND3
 ?ELS5:	EQUAL?	TBL,P-PRSO \?ELS11
-	CALL	CLAUSE-PRINT,P-NC1,P-NC1L,0
+	CALL	CLAUSE-PRINT,P-NC1,P-NC1L,FALSE-VALUE
 	JUMP	?CND3
-?ELS11:	CALL	CLAUSE-PRINT,P-NC2,P-NC2L,0
+?ELS11:	CALL	CLAUSE-PRINT,P-NC2,P-NC2L,FALSE-VALUE
 ?CND3:	PRINTI	" do you mean,"
 ?PRG16:	INC	'TLEN
 	GET	TBL,TLEN >OBJ
@@ -1165,6 +1183,7 @@
 ?PRG15:	MUL	CNT,2
 	GET	RMG,STACK
 	EQUAL?	P-NAM,STACK \?ELS19
+	SET	'LAST-PSEUDO-LOC,HERE
 	MUL	CNT,2
 	ADD	STACK,1
 	GET	RMG,STACK
@@ -1289,13 +1308,13 @@
 ?CND15:	IN?	OBJ,WINNER /?PRG8
 	SET	'PRSO,OBJ
 	FSET?	OBJ,TRYTAKEBIT \?ELS27
-	SET	'TAKEN,1
+	SET	'TAKEN,TRUE-VALUE
 	JUMP	?CND25
-?ELS27:	CALL	ITAKE,0
-	EQUAL?	STACK,1 \?ELS29
-	SET	'TAKEN,0
+?ELS27:	CALL	ITAKE,FALSE-VALUE
+	EQUAL?	STACK,TRUE-VALUE \?ELS29
+	SET	'TAKEN,FALSE-VALUE
 	JUMP	?CND25
-?ELS29:	SET	'TAKEN,1
+?ELS29:	SET	'TAKEN,TRUE-VALUE
 ?CND25:	ZERO?	TAKEN /?ELS34
 	BTST	BITS,SHAVE \?ELS34
 	PRINTI	"(You aren't holding"
@@ -1379,28 +1398,6 @@
 	RFALSE	
 
 
-	.FUNCT	LIT?,RM,OHERE,LIT=0
-	SET	'P-GWIMBIT,ONBIT
-	SET	'OHERE,HERE
-	SET	'HERE,RM
-	FSET?	RM,ONBIT /?THN4
-	ZERO?	ALWAYS-LIT /?ELS3
-?THN4:	SET	'LIT,1
-	JUMP	?CND1
-?ELS3:	PUT	P-MERGE,P-MATCHLEN,0
-	SET	'P-TABLE,P-MERGE
-	SET	'P-SLOCBITS,-1
-	EQUAL?	OHERE,RM \?CND8
-	CALL	DO-SL,WINNER,1,1
-?CND8:	CALL	DO-SL,RM,1,1
-	GET	P-TABLE,P-MATCHLEN
-	GRTR?	STACK,0 \?CND1
-	SET	'LIT,1
-?CND1:	SET	'HERE,OHERE
-	SET	'P-GWIMBIT,0
-	RETURN	LIT
-
-
 	.FUNCT	PRSO-PRINT,PTR
 	PRINTI	" "
 	PRINTD	PRSO
diff --git a/parser.zil b/parser.zil
index 8ea7b8a..b23abe8 100644
--- a/parser.zil
+++ b/parser.zil
@@ -16,9 +16,9 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
  
 <SETG SIBREAKS ".,\"!?">
 
-<GLOBAL ALWAYS-LIT <>>   
+"<GLOBAL ALWAYS-LIT <>>"   
  
-<GLOBAL GWIM-DISABLE <>> 
+"<GLOBAL GWIM-DISABLE <>>" 
  
 <GLOBAL PRSA 0>
  
@@ -70,11 +70,11 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <GLOBAL P-AADJ <>>
 "Parser variables and temporaries"
  
-<CONSTANT P-PHRLEN 3>    
+"<CONSTANT P-PHRLEN 3>    
  
 <CONSTANT P-ORPHLEN 7>   
  
-<CONSTANT P-RTLEN 3>
+<CONSTANT P-RTLEN 3>"
 
 "Byte offset to # of entries in LEXV"
 <CONSTANT P-LEXWORDS 1>
@@ -116,7 +116,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
  
 <CONSTANT P-PREP2 4>
  
-<CONSTANT P-PREP2N 5>    
+"<CONSTANT P-PREP2N 5>"    
  
 <CONSTANT P-NC1 6>  
  
@@ -144,14 +144,14 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <ROUTINE I-PROMPT-2 ()
  <COND (,P-PROMPT
 	<SETG P-PROMPT <>>
-	%<XTELL CR
+	<TELL CR
 "(Are you tired of seeing \"What next?\" Well, you won't see it
 any more.)" CR>
 	<COND (<VERB? ;WAIT WAIT-FOR WAIT-UNTIL> <CRLF>)>
 	<DISABLE <INT I-PROMPT-2>>
 	<RFALSE>)>>
 
-<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WORD (VAL 0) (VERB <>)
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>) (OF-FLAG <>)
 		       LEN (DIR <>) (NW 0) (LW 0) NUM SCNT (CNT -1)) 
 	<REPEAT ()
 		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
@@ -211,26 +211,26 @@ any more.)" CR>
 		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
 		       <SETG QUOTE-FLAG <>>
 		       <RETURN>)
-		      (<BUZZER-WORD? <SET WORD <GET ,P-LEXV .PTR>>>
+		      (<BUZZER-WORD? <SET WRD <GET ,P-LEXV .PTR>>>
 		       <RFALSE>)
-		      (<OR .WORD
-			   <SET WORD <NUMBER? .PTR>>
-			   <SET WORD <NAME? .PTR>>>
-		       <COND (<AND <==? .WORD ,W?TO>
+		      (<OR .WRD
+			   <SET WRD <NUMBER? .PTR>>
+			   <SET WRD <NAME? .PTR>>>
+		       <COND (<AND <==? .WRD ,W?TO>
 				   <EQUAL? .VERB ,ACT?TELL ,ACT?ASK>>
 			      <SET VERB ,ACT?TELL>
-			      <SET WORD ,W?QUOTE>)
-			     (<AND <==? .WORD ,W?THEN>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <==? .WRD ,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?.>
+			      <SET WRD ,W?QUOTE>)>
+		       <COND ;(<AND <EQUAL? .WRD ,W?PERIOD>
 				   <EQUAL? .LW ,W?MRS ,W?MR>>
 			      <SET LW 0>)
-			     (<OR <EQUAL? .WORD ,W?THEN ,W?.>
-				  <EQUAL? .WORD ,W?QUOTE>> 
-			      <COND (<EQUAL? .WORD ,W?QUOTE>
+			     (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <EQUAL? .WRD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
 				     <COND (,QUOTE-FLAG
 					    <SETG QUOTE-FLAG <>>)
 					   (T <SETG QUOTE-FLAG T>)>)>
@@ -239,7 +239,7 @@ any more.)" CR>
 			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
 			      <RETURN>)
 			     (<AND <SET VAL
-					<WT? .WORD
+					<WT? .WRD
 					     ,PS?DIRECTION
 					     ,P1?DIRECTION>>
 				   <OR <==? .LEN 1>
@@ -250,7 +250,7 @@ any more.)" CR>
 					            ,W?THEN
 					            ,W?QUOTE>
 					    <G? .LEN 2>>
-				       <AND <EQUAL? .NW ,W?.>
+				       <AND <EQUAL? .NW ,W?PERIOD>
 					    <G? .LEN 1>>
 				       <AND ,QUOTE-FLAG
 					    <==? .LEN 2>
@@ -265,7 +265,7 @@ any more.)" CR>
 			      <COND (<NOT <G? .LEN 2>>
 				     <SETG QUOTE-FLAG <>>
 				     <RETURN>)>)
-			     (<AND <SET VAL <WT? .WORD ,PS?VERB ,P1?VERB>>
+			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
 				   <OR <NOT .VERB>
 				       <EQUAL? .VERB ,ACT?NAME>>>
 			      <COND (<EQUAL? .VERB ,ACT?NAME>
@@ -273,58 +273,68 @@ any more.)" CR>
 			      <SET VERB .VAL>
 			      <PUT ,P-ITBL ,P-VERB .VAL>
 			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
-			      <PUT ,P-VTBL 0 .WORD>
+			      <PUT ,P-VTBL 0 .WRD>
 			      <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>
+			     (<OR <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
+				  <AND <OR <EQUAL? .WRD ;,W?ALL ,W?ONE ,W?A>
+					   <WT? .WRD ,PS?ADJECTIVE>
+					   <WT? .WRD ,PS?OBJECT>>
+				       ;<SET VAL 0>>>
+			      <COND (<AND <G? ,P-LEN 1 ;0>
 					  <==? <GET ,P-LEXV
 						    <+ .PTR ,P-LEXELEN>>
 					       ,W?OF>
 					  <NOT <EQUAL? .VERB
 						       ,ACT?MAKE>>
 					  <0? .VAL>
-					  <NOT <EQUAL? .WORD
-						       ;,W?ALL ,W?ONE ,W?A>>>)
+					  <NOT <EQUAL? .WRD
+						       ;,W?ALL ,W?ONE ,W?A>>>
+				     <SET OF-FLAG T>)
 				    (<AND <NOT <0? .VAL>>
 				          <OR <0? ,P-LEN>
 					      <EQUAL? <GET ,P-LEXV <+ .PTR 2>>
-						      ,W?THEN ,W?.>>>
+						      ,W?THEN ,W?PERIOD>>>
 				     <COND (<L? ,P-NCN 2>
 					    <PUT ,P-ITBL ,P-PREP1 .VAL>
-					    <PUT ,P-ITBL ,P-PREP1N .WORD>)>)
+					    <PUT ,P-ITBL ,P-PREP1N .WRD>)>)
 				    (<==? ,P-NCN 2>
 				     <TELL
 "(I found too many nouns in that sentence!)" CR>
 				     <RFALSE>)
 				    (T
 				     <SETG P-NCN <+ ,P-NCN 1>>
-				     <OR <SET PTR <CLAUSE .PTR .VAL .WORD>>
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WRD>>
 					 <RFALSE>>
 				     <COND (<L? .PTR 0>
 					    <SETG QUOTE-FLAG <>>
 					    <RETURN>)>)>)
-			     (<==? .WORD ,W?CLOSELY>
+			     (<==? .WRD ,W?CLOSELY>
 			      <SETG P-ADVERB ,W?CAREFULLY>)
-			     (<OR <EQUAL? .WORD
+			     (<OR <EQUAL? .WRD
 					 ,W?CAREFULLY ,W?QUIETLY ,W?PRIVATELY>
-				  <EQUAL? .WORD
+				  <EQUAL? .WRD
 					  ,W?SLOWLY ,W?QUICKLY ,W?BRIEFLY>>
-			      <SETG P-ADVERB .WORD>)
-			     (<WT? .WORD ,PS?BUZZ-WORD>)
+			      <SETG P-ADVERB .WRD>)
+			     (<EQUAL? .WRD ,W?OF>
+			      <COND (<OR <NOT .OF-FLAG>
+					 <EQUAL?
+					  <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					  ,W?PERIOD ,W?THEN>>
+				     <CANT-USE .PTR>
+				     <RFALSE>)
+				    (T
+				     <SET OF-FLAG <>>)>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>)
 			     (T
 			      <CANT-USE .PTR>
 			      <RFALSE>)>)
 		      (T
 		       <UNKNOWN-WORD .PTR>
 		       <RFALSE>)>
-		<SET LW .WORD>
+		<SET LW .WRD>
 		<SET PTR <+ .PTR ,P-LEXELEN>>>
 	<COND (.DIR
 	       <SETG PRSA ,V?WALK>
@@ -354,13 +364,13 @@ any more.)" CR>
 		      <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>
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0))
+	#DECL ((PTR VAL OFF NUM) FIX (WRD 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>
+	       <PUT ,P-ITBL <+ .NUM 1> .WRD>
 	       <SET PTR <+ .PTR ,P-LEXELEN>>)
 	      (T <SETG P-LEN <+ ,P-LEN 1>>)>
 	<COND (<0? ,P-LEN> <SETG P-NCN <- ,P-NCN 1>> <RETURN -1>)>
@@ -371,27 +381,27 @@ any more.)" CR>
 		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
 		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
 		       <RETURN -1>)>
-		<COND (<BUZZER-WORD? <SET WORD <GET ,P-LEXV .PTR>>>
+		<COND (<BUZZER-WORD? <SET WRD <GET ,P-LEXV .PTR>>>
 		       <RFALSE>)
-		      (<OR .WORD
-			   <SET WORD <NUMBER? .PTR>>
-			   <SET WORD <NAME? .PTR>>>
+		      (<OR .WRD
+			   <SET WRD <NUMBER? .PTR>>
+			   <SET WRD <NAME? .PTR>>>
 		       <COND (<0? ,P-LEN> <SET NW 0>)
 			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
-		       <COND (<AND <==? .WORD ,W?OF>
+		       <COND (<AND <==? .WRD ,W?OF>
 				   <EQUAL? <GET ,P-ITBL ,P-VERB> ,ACT?MAKE>>
 			      <PUT ,P-LEXV .PTR ,W?WITH>
-			      <SET WORD ,W?WITH>)>
-		       <COND ;(<AND <EQUAL? .WORD ,W?.>
+			      <SET WRD ,W?WITH>)>
+		       <COND ;(<AND <EQUAL? .WRD ,W?PERIOD>
 				   <EQUAL? .LW ,W?MRS ,W?MR>>
 			      <SET LW 0>)
-			     (<EQUAL? .WORD ,W?AND ,W?COMMA> <SET ANDFLG T>)
-			     (<EQUAL? .WORD ;,W?ALL ,W?ONE>
+			     (<EQUAL? .WRD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WRD ;,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?.>
-				  <AND <WT? .WORD ,PS?PREPOSITION>
+			     (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WRD ,PS?PREPOSITION>
 				       <NOT .FIRST??>>>
 			      <SETG P-LEN <+ ,P-LEN 1>>
 			      <PUT ,P-ITBL
@@ -402,13 +412,13 @@ any more.)" CR>
 			     (<AND .ANDFLG
 				   <OR ;"3/25/83: next statement added."
 				       <EQUAL? <GET ,P-ITBL ,P-VERBN> 0>
-				       <WT? .WORD ,PS?DIRECTION>
-				       <WT? .WORD ,PS?VERB>>>
+				       <WT? .WRD ,PS?DIRECTION>
+				       <WT? .WRD ,PS?VERB>>>
 			      <SET PTR <- .PTR 4>>
 			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
 			      <SETG P-LEN <+ ,P-LEN 2>>)
-			     (<WT? .WORD ,PS?OBJECT>
-			      <COND (<AND <WT? .WORD
+			     (<WT? .WRD ,PS?OBJECT>
+			      <COND (<AND <WT? .WRD
 					       ,PS?ADJECTIVE
 					       ,P1?ADJECTIVE>
 					  <NOT <==? .NW 0>>
@@ -421,14 +431,14 @@ any more.)" CR>
 					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
 				     <RETURN .PTR>)
 				    (T <SET ANDFLG <>>)>)
-			     (<OR <WT? .WORD ,PS?ADJECTIVE>
-				  <WT? .WORD ,PS?BUZZ-WORD>>)
-			     (<WT? .WORD ,PS?PREPOSITION> T)
+			     (<OR <WT? .WRD ,PS?ADJECTIVE>
+				  <WT? .WRD ,PS?BUZZ-WORD>>)
+			     (<WT? .WRD ,PS?PREPOSITION> T)
 			     (T
 			      <CANT-USE .PTR>
 			      <RFALSE>)>)
 		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
-		<SET LW .WORD>
+		<SET LW .WRD>
 		<SET FIRST?? <>>
 		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
 
@@ -477,8 +487,12 @@ any more.)" CR>
     (<==? <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>>)
+	    <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>>
@@ -520,6 +534,7 @@ any more.)" CR>
    T>
 
 <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>>
@@ -537,20 +552,18 @@ any more.)" CR>
 			<PRINTC <GETB ,P-INBUF .BUF>>
 			<SET BUF <+ .BUF 1>>)>>>
 
-<GLOBAL UNKNOWN-MSGS <TABLE "(I don't know the word \"" "\".)">>
-
 <ROUTINE UNKNOWN-WORD (PTR "AUX" BUF) 
 	#DECL ((PTR BUF) FIX)
-	<TELL <GET ,UNKNOWN-MSGS 0>>
+	<TELL "(I don't know the word \"">
 	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
 		    <GETB <REST ,P-LEXV .BUF> 3>>
 	<SETG QUOTE-FLAG <>>
 	<SETG P-OFLAG <>>
-	<TELL <GET ,UNKNOWN-MSGS 1> CR>>
+	<TELL "\".)" CR>>
 
 <ROUTINE CANT-USE (PTR "AUX" BUF) 
 	#DECL ((PTR BUF) FIX)
-	%<XTELL "(Sorry, but I don't understand the word \"">
+	<TELL "(Sorry, but I don't understand the word \"">
 	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
 		    <GETB <REST ,P-LEXV .BUF> 3>>
 	<TELL "\" when you use it that way.)" CR>
@@ -635,13 +648,13 @@ CR>
 	       <PUT ,P-PRSI 1 .OBJ>
 	       <SYNTAX-FOUND .DRIVE2>)
 	      (<EQUAL? .VERB ,ACT?FIND ,ACT?NAME>
-	       %<XTELL "(Sorry, but I can't answer that question.)" CR>
+	       <TELL "(Sorry, but I can't answer that question.)" CR>
 	       <RFALSE>)
 	      (T
 	       <COND (<EQUAL? ,WINNER ,PLAYER>
 		      <ORPHAN .DRIVE1 .DRIVE2>
 		      <TELL "(Wh"
-			    <COND (<EQUAL? .VERB ,ACT?WALK ,ACT?CRAWL> "ere")
+			    <COND (<EQUAL? .VERB ,ACT?WALK> "ere")
 				  (T "at")>
 			    " do you want to ">)
 		     (T
@@ -697,7 +710,8 @@ CR>
 		      (T
 		       <COND (.NOSP <SET NOSP <>>)
 			     (T <TELL " ">)>
-		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?.> <SET NOSP T>)
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD>
+			      <SET NOSP T>)
 			     (<==? .WRD ,W?DR> <TELL "Dr."> <SET PN T>)
 			     (<EQUAL? .WRD ,W?HIM ,W?HER ,W?ME> <SET PN T>)
 			     (<CAPITAL-NOUN? .WRD>
@@ -877,31 +891,31 @@ CR>
 
 <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>)
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW) 
+   <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>>
+   <SET WRD <GET .PTR 0>>
    <REPEAT ()
 	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
 		 (T
 		  <SET NW <GET .PTR ,P-LEXELEN>>
-		  <COND ;(<==? .WORD ,W?ALL>
+		  <COND ;(<==? .WRD ,W?ALL>
 			 <SETG P-GETFLAGS ,P-ALL>
 			 <COND (<==? .NW ,W?OF>
 				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
-			;(<EQUAL? .WORD ,W?BUT ,W?EXCEPT>
+			;(<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
 			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
 			 <SET BUT ,P-BUTS>
 			 <PUT .BUT ,P-MATCHLEN 0>)
-			(<BUZZER-WORD? .WORD>
+			(<BUZZER-WORD? .WRD>
 			 <RFALSE>)
-			(<EQUAL? .WORD ,W?A ,W?ONE>
+			(<EQUAL? .WRD ,W?A ,W?ONE>
 			 <COND (<NOT ,P-ADJ>
 				<SETG P-GETFLAGS ,P-ONE>
 				<COND (<==? .NW ,W?OF>
@@ -910,25 +924,26 @@ CR>
 				<SETG P-NAM ,P-ONEOBJ>
 				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
 				<AND <0? .NW> <RTRUE>>)>)
-			(<AND <EQUAL? .WORD ,W?AND ,W?COMMA>
+			(<AND <EQUAL? .WRD ,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>
+			(<WT? .WRD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WRD ,W?AND ,W?COMMA>)
+			(<==? .WRD ,W?OF>
 			 <COND (<0? ,P-GETFLAGS>
 				<SETG P-GETFLAGS ,P-INHIBIT>)>)
-			(<AND <SET WV <WT? .WORD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
+			(<AND <SET WV <WT? .WRD ,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>)>)>
+			 <SETG P-ADJN .WRD>)
+			(<WT? .WRD ,PS?OBJECT ,P1?OBJECT>
+			 <SETG P-NAM .WRD>
+			 <SETG P-ONEOBJ .WRD>)>)>
 	   <COND (<NOT <==? .PTR .EPTR>>
 		  <SET PTR <REST .PTR ,P-WORDLEN>>
-		  <SET WORD .NW>)>>>   
+		  <SET WRD .NW>)>>>   
  
 <CONSTANT SH 128>   
  
@@ -1028,6 +1043,7 @@ CR>
 		<RFALSE>)>)
 	(<AND <0? .LEN> .GCHECK>
 	 <COND (.VRB
+		<SETG P-SLOCBITS .XBITS>
 		<COND (,LIT
 		       ;"Changed 6/10/83 - MARC"
 		       <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
@@ -1040,7 +1056,7 @@ CR>
 		       <SETG P-ADJ <>>
 		       <SETG P-ADJN <>>
 		       <RTRUE>)
-		      (T %<XTELL "(It's too dark to see!)" CR>)>)>
+		      (T <TELL "(It's too dark to see!)" CR>)>)>
 	 <SETG P-NAM <>>
 	 <SETG P-ADJ <>>
 	 <RFALSE>)
@@ -1088,7 +1104,7 @@ CR>
 <ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN)
 	 <SET RLEN .LEN>
 	 <TELL "(Which">
-         <COND (<OR ,P-OFLAG ,P-MERGED> <TELL " "> <PRINTB ,P-NAM>)
+         <COND (<OR ,P-OFLAG ,P-MERGED ,P-AND> <TELL " "> <PRINTB ,P-NAM>)
 	       (<==? .TBL ,P-PRSO>
 		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
 	       (T <CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
@@ -1123,6 +1139,7 @@ CR>
 	       ;<COND (,DEBUG <TELL "[GLBCHK: (PS) RMGL=" N .RMGL "]" CR>)>
 	       <REPEAT ()
 		       <COND (<==? ,P-NAM <GET .RMG <* .CNT 2>>>
+			      <SETG LAST-PSEUDO-LOC ,HERE>
 			      <PUTP ,PSEUDO-OBJECT
 				    ,P?ACTION
 				    <GET .RMG <+ <* .CNT 2> 1>>>
@@ -1254,9 +1271,9 @@ CR>
 		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC2> ,SMANY>>>
 	       <SET LOSS 2>)>
 	<COND (.LOSS
-	       %<XTELL "(You can't use more than one ">
+	       <TELL "(You can't use more than one ">
 	       <COND (<==? .LOSS 2> <TELL "in">)>
-	       %<XTELL "direct object with \"">
+	       <TELL "direct object with \"">
 	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
 	       <COND (<0? .TMP> <TELL "tell">)
 		     (,P-OFLAG
@@ -1287,9 +1304,9 @@ CR>
 		<COND (<FSET? <SET X <GETB .TBL .CNT>> .ITM> <RETURN .X>)
 		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>  
 
-<SETG ALWAYS-LIT <>>
+"<SETG ALWAYS-LIT <>>"
  
-<ROUTINE LIT? (RM "AUX" OHERE (LIT <>)) 
+;<ROUTINE LIT? (RM "AUX" OHERE (LIT <>)) 
 	#DECL ((RM OHERE) OBJECT (LIT) <OR ATOM FALSE>)
 	<SETG P-GWIMBIT ,ONBIT>
 	<SET OHERE ,HERE>
diff --git a/party-boys.manual b/party-boys.manual
new file mode 100644
index 0000000..67def08
--- /dev/null
+++ b/party-boys.manual
@@ -0,0 +1,99 @@
+
+   The Party Boys Handbook:
+
+              Seven twisted, demented tales of survival
+
+1. Frank and Joe Pack Survival Kits
+
+   "I'm sure glad Dad's out of town this weekend," Frank said as he swerved
+into the garage, and slumped over the steering column.
+   
+   "So am I," Joe agreed, shaking Frank to rouse him from his intoxicated
+state. "Even though we learned alot in the Boy Scouts, you can't beat the
+weekend parties that we have."
+
+   "How true!" Frank stumbled into the house. "Weekends really tought me
+the basic priorities of life: Tequila, peyote and columbian tapdancing
+powder."
+
+   "A human being can live for three minutes without air, three days without
+water and three WEEKS without food. But we can't go three seconds without a
+pop or a hit. I call it the 'Rule of Three.'"
+
+   Frank winked at his younger brother teasingly. "And it never takes you
+more than THREE beers to get tanked!"
+
+   Joe grinned sheepishly, then answered, "That's because I never drink beer
+unless I've already done three tabs of acid. Three glasses of WATER could
+get me tanked when I'm tripping."
+
+   "That's amusing." Frank belched out. "Learning how much fun it is to
+provide beer mixer to counteract the LSD and keep your reaction complex as
+normal as possible."
+
+   "Amusing, but exciting too," Joe answered, "to think how swiftly our
+minds react when we do LSD AND beer. And to realize that then we can't make
+wise decisions for ourselves, that we can become so... so FUCKED UP!"
+
+   "Right," Frank replied, "but thanks to last weekend, we now know what the
+real priorities of life are and, regardles of circumstances, how to provide
+for them." He hesitated. "And how important it is that we carry survival
+kits so we can take care of ourselves on Sundays or if BayVille goes dry or
+something."
+
+   Joe, scratching his butt, nodded in agreement.
+   "Let's see now -- have we got everything we need to put the survival kits
+together?" He faced Frank across the kitchen table. Carefully, they
+scrutinized the jumble of illegal substances spread out before them. Some of
+the things were from Mom and Dad's liquor cabinet, but the boys had bought
+most of the loot that afternoon, from Chet, their connection.
+
+   "It sure looks like it," Joe answered. "So let's get busy and start with
+the small pocket kits."
+
+   Frank grinned at his younger brother. "Why don't you read off what's on
+that list in Dr. Hunter S. Thompson's novel, Fear and Loathing in Las Vegas,
+and I'll put each item aside, one for you and one for me."
+
+   "Okay," said Joe, retreiving the novel from under a floorboard. "The first
+thing is a container in which to carry everything."
+
+   Frank nodded as he placed two 'Mr. T' lunchboxes at one end of the table.
+
+   "Item two, two plastic bags of fine Brazilian shake," Joe read as Frank
+measured the portions from a plastic lawn bag filled with two kilos of
+marijuana.
+
+   "Next, two grams of cocaine -- wait, I don't trust you with that," joe
+said.
+
+   The boys cut and measured two two-gram portions of coke, which they stowed
+with the other articles. Joe picked up the coke and grass and said, "It's
+hard to believe that THIS can bring on an adequate high."
+
+   "Not if you stretch the word ADEQUATE," Frank responded, winking. "This is
+a SURVIVAL kit we're putting together, not a week-long euphoria outfit."
+  
+   "That's right," Joe laughed. "I'm too wasted to think straight... Okay,
+what's next? A metal "Sneak-a-toke" pipe and a nip of Everclear."
+
+   "Got 'em," Frank said, and added, "This sneak-a-toke is a great gadget."
+He held up the tiny pipe. "No smoke escapes the chambe, so you get WICKED
+wasted off just one hit! But when Dr. Thompson reccomended using Everclear to
+mix with the pot, he really surprised me."
+
+   "Me too," agreed Joe, "but he's right. You want something that'll set you
+on fire even when you're high, and no other booze will do that. Hey, are you
+sure that our brand is good enough?"
+
+   "Yes," Frank quipped, holding up the bottle. Joe read the label aloud: VERY
+FINE TRIPLE-X EVERCLEAR ( 190 PROOF ). He watched as Frank uncorked one bottle
+and swigged it down.
+
+   "Now what?" He asked as Joe consulted the list.
+
+   "Lighters," Joe replied.
+
+   Frank added two "Side Swipe" pipe lighters to the sneak-a-tokes. "Fun and
+
+  
\ No newline at end of file
diff --git a/people.zap b/people.zap
index 372f953..153afd7 100644
--- a/people.zap
+++ b/people.zap
@@ -27,7 +27,6 @@
 ?ELS21:	EQUAL?	N,ACT?RESTORE \?CND10
 	CALL	V-RESTORE
 	ZERO?	STACK /?FCN
-	SET	'RESTORED-DURING-NAME-INPUT,1
 	RETURN	2
 ?CND10:	GETB	P-LEXV,1 >NUMTOKENS
 	SET	'TOK,NUMTOKENS
@@ -86,12 +85,12 @@
 	JUMP	?CND6
 ?ELS8:	PRINTC	CH
 ?CND6:	EQUAL?	CH,32,45,39 \?ELS17
-	SET	'SP?,1
+	SET	'SP?,TRUE-VALUE
 	JUMP	?PRG1
 ?ELS17:	EQUAL?	CH,38 \?ELS19
-	SET	'SP?,1
+	SET	'SP?,TRUE-VALUE
 	JUMP	?PRG1
-?ELS19:	SET	'SP?,0
+?ELS19:	SET	'SP?,FALSE-VALUE
 	JUMP	?PRG1
 
 
@@ -120,10 +119,10 @@
 ?CND7:	
 ?PRG10:	IGRTR?	'NCNT,MAX \?ELS14
 	ZERO?	CNT /?REP11
-	SET	'N?,0
+	SET	'N?,FALSE-VALUE
 	JUMP	?REP11
 ?ELS14:	DLESS?	'CNT,0 \?ELS19
-	SET	'N?,0
+	SET	'N?,FALSE-VALUE
 	JUMP	?REP11
 ?ELS19:	GETB	P-INBUF,BPTR >CHR
 	EQUAL?	CHR,45,38,39 /?CND22
@@ -131,7 +130,7 @@
 	ADD	96,STACK >CHR
 ?CND22:	GETB	TBL,NCNT
 	EQUAL?	CHR,STACK /?CND25
-	SET	'N?,0
+	SET	'N?,FALSE-VALUE
 ?CND25:	INC	'BPTR
 	JUMP	?PRG10
 ?REP11:	ZERO?	N? /FALSE
@@ -142,21 +141,6 @@
 	RETURN	W?$LN
 
 
-	.FUNCT	CAPITAL-NOUN?,WRD
-	EQUAL?	WRD,W?DOC,W?TIP,W?RANDALL /TRUE
-	EQUAL?	WRD,W?DOC'S,W?TIP'S,W?BILL'S /TRUE
-	EQUAL?	WRD,W?KEMP'S,W?ZOE'S,W?MARV'S /TRUE
-	EQUAL?	WRD,W?SHARON,W?KEMP,W?ZOE /TRUE
-	EQUAL?	WRD,W?BLY'S,W?AMY'S,W?FROBTON /TRUE
-	EQUAL?	WRD,W?BLY,W?AMY,W?LOWELL /TRUE
-	EQUAL?	WRD,W?MICK'S,W?WALT'S /TRUE
-	EQUAL?	WRD,W?MICK,W?ANTRIM,W?WALT /TRUE
-	EQUAL?	WRD,W?DOCTOR,W?DR,W?MARV /TRUE
-	EQUAL?	WRD,W?SIEGEL,W?BILL,W?GREENUP /TRUE
-	EQUAL?	WRD,W?HORVAK,W?JEROME,W?THORPE /TRUE
-	RFALSE	
-
-
 	.FUNCT	PLAYER-NAME-F
 	CALL	DO-INSTEAD-OF,PLAYER,PLAYER-NAME
 	RTRUE	
@@ -195,9 +179,9 @@
 	PRINTI	"00"
 ?CND49:	PRINTI	" meters "
 	GRTR?	0,LON \?ELS60
-	PUSH	STR?83
+	PUSH	STR?78
 	JUMP	?CND56
-?ELS60:	PUSH	STR?84
+?ELS60:	PUSH	STR?79
 ?CND56:	PRINT	STACK
 	PRINTI	"st "
 	ZERO?	LAT /?CND37
@@ -213,9 +197,9 @@
 	PRINTI	"00"
 ?CND80:	PRINTI	" meters "
 	GRTR?	0,LAT \?ELS91
-	PUSH	STR?85
+	PUSH	STR?80
 	JUMP	?CND87
-?ELS91:	PUSH	STR?86
+?ELS91:	PUSH	STR?81
 ?CND87:	PRINT	STACK
 	PRINTI	"th "
 ?CND68:	PRINTI	"of here."
@@ -242,16 +226,15 @@
 ?ELS5:	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \FALSE
 	FSET?	ARM,MUNGBIT \?ELS14
 	PRINTR	"Your arm is seriously gashed."
-?ELS14:	PRINTI	"There's nothing special about"
-	CALL	THE-PRSO-PRINT
-	PRINTR	"."
+?ELS14:	CALL	NOTHING-SPECIAL
+	RSTACK	
 
 
 	.FUNCT	TIP-IS-PLAYING
 	EQUAL?	TIP-PLAYS,WINDOW \?ELS7
-	PUSH	STR?87
+	PUSH	STR?82
 	JUMP	?CND3
-?ELS7:	PUSH	STR?88
+?ELS7:	PUSH	STR?83
 ?CND3:	PRINT	STACK
 	PRINTI	" the "
 	PRINTD	TIP-PLAYS
@@ -276,7 +259,9 @@
 	PRINTD	TIP
 	PRINTI	" is sitting behind you, "
 	IN?	MAGAZINE,TIP \?ELS24
-	PRINTR	"reading a magazine."
+	PRINTI	"reading a "
+	PRINTD	MAGAZINE
+	PRINTR	"."
 ?ELS24:	ZERO?	TIP-FOLLOWS-YOU? \?ELS28
 	PRINTI	"installing a "
 	PRINTD	FINE-GRID
@@ -316,45 +301,41 @@
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS44:	ZERO?	PRSI /?ELS90
-	SET	'OBJ,PRSI
-	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS90
-	EQUAL?	PRSO,TIP /?THN87
-?ELS90:	ZERO?	PRSO /?ELS86
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS86
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS86
-?THN87:	CALL	GRAB-ATTENTION,TIP
+?ELS44:	CALL	ASK-ABOUT?,TIP >OBJ
+	ZERO?	OBJ /?ELS86
+	CALL	GRAB-ATTENTION,TIP
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,TIP
-	EQUAL?	OBJ,AUTO-PILOT \?ELS100
-	ZERO?	SUB-IN-OPEN-SEA /?ELS100
-	FSET?	AUTO-PILOT,ONBIT /?ELS100
+	EQUAL?	OBJ,AUTO-PILOT \?ELS94
+	ZERO?	SUB-IN-OPEN-SEA /?ELS94
+	FSET?	AUTO-PILOT,ONBIT /?ELS94
 	CALL	TIME-FOR-PILOT
 	RSTACK	
-?ELS100:	EQUAL?	OBJ,REACTOR,CATALYST-CAPSULE \?ELS104
+?ELS94:	EQUAL?	OBJ,REACTOR,CATALYST-CAPSULE \?ELS98
 	IN?	CATALYST-CAPSULE,REACTOR /FALSE
-	CALL	TELL-HINT,33,CATALYST-CAPSULE,0
+	CALL	TELL-HINT,33,CATALYST-CAPSULE,FALSE-VALUE
 	RSTACK	
-?ELS104:	EQUAL?	OBJ,SPECIAL-TOOL-GLOBAL,SPECIAL-TOOL \?ELS111
+?ELS98:	EQUAL?	OBJ,SPECIAL-TOOL-GLOBAL,SPECIAL-TOOL \?ELS105
 	EQUAL?	HERE,SUB \FALSE
-	CALL	TELL-HINT,61,TIP,0
+	CALL	TELL-HINT,61,TIP,FALSE-VALUE
 	RSTACK	
-?ELS111:	EQUAL?	OBJ,TRAITOR,BLACK-BOX \?ELS118
+?ELS105:	EQUAL?	OBJ,TRAITOR,BLACK-BOX \?ELS112
 	CALL	TIP-COMES
 	ZERO?	STACK \TRUE
-?ELS118:	EQUAL?	OBJ,TIP-IDEA,GLOBAL-SONAR \?ELS122
-	IN?	TIP-IDEA,GLOBAL-OBJECTS \?ELS122
-	CALL	TELL-HINT,13,SIEGEL,0
+?ELS112:	EQUAL?	OBJ,TIP-IDEA,GLOBAL-SONAR,GLOBAL-SIEGEL \?ELS116
+	IN?	TIP-IDEA,GLOBAL-OBJECTS \?ELS116
+	ZERO?	SIEGEL-TESTED \?ELS116
+	FSET?	SIEGEL,BUSYBIT /?ELS116
+	CALL	TELL-HINT,13,SIEGEL,FALSE-VALUE
 	RSTACK	
-?ELS122:	EQUAL?	OBJ,STATION-MONITOR \?ELS126
+?ELS116:	EQUAL?	OBJ,STATION-MONITOR \?ELS120
 	PRINTR	"""I just like to play with it."""
-?ELS126:	EQUAL?	OBJ,FINE-GRID \?ELS130
-	ZERO?	FINE-SONAR \?THN134
-	ZERO?	SUB-IN-DOME \?CND131
-	EQUAL?	NOW-TERRAIN,SEA-TERRAIN /?CND131
-?THN134:	PRINTR	"""I think it's swell!"""
-?CND131:	PRINTI	"""If the "
+?ELS120:	EQUAL?	OBJ,FINE-GRID \?ELS124
+	ZERO?	FINE-SONAR \?THN128
+	ZERO?	SUB-IN-DOME \?CND125
+	EQUAL?	NOW-TERRAIN,SEA-TERRAIN /?CND125
+?THN128:	PRINTR	"""I think it's swell!"""
+?CND125:	PRINTI	"""If the "
 	PRINTD	SNARK
 	PRINTI	" stays near the sea floor, "
 	CALL	PRINT-NAME,FIRST-NAME
@@ -370,14 +351,14 @@
 	PRINTI	" shows each "
 	PRINTD	GRID-UNIT
 	PRINTI	" as 500 meters across. A blip indicates the APPROXIMATE position of an object. That's not good enough to hit the broad side of a barn! "
-	ZERO?	SUB-IN-DOME \?CND147
-	IN?	FINE-GRID,TIP /?CND147
+	ZERO?	SUB-IN-DOME \?CND141
+	IN?	FINE-GRID,TIP /?CND141
 	PRINTI	"When we're in the "
 	PRINTD	AQUADOME
 	PRINTI	", ask me about a "
 	PRINTD	FINE-GRID
 	PRINTR	"."""
-?CND147:	PRINTI	"Let me install a "
+?CND141:	PRINTI	"Let me install a "
 	PRINTD	FINE-GRID
 	PRINTI	" on the "
 	PRINTD	SONARSCOPE
@@ -388,19 +369,19 @@
 	PUT	STACK,0,1
 	FSET	TIP,BUSYBIT
 	ZERO?	SUB-IN-DOME /TRUE
-	EQUAL?	HERE,SUB,AIRLOCK,AIRLOCK-WALL \?ELS165
+	EQUAL?	HERE,SUB,AIRLOCK,AIRLOCK-WALL \?ELS159
 	MOVE	TIP,DOME-STORAGE
-	JUMP	?CND163
-?ELS165:	MOVE	TIP,SUB
-?CND163:	MOVE	FINE-GRID,TIP
-	SET	'TIP-FOLLOWS-YOU?,0
+	JUMP	?CND157
+?ELS159:	MOVE	TIP,SUB
+?CND157:	MOVE	FINE-GRID,TIP
+	SET	'TIP-FOLLOWS-YOU?,FALSE-VALUE
 	PRINTI	""""
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", I checked"
-	EQUAL?	HERE,DOME-STORAGE /?CND170
+	EQUAL?	HERE,DOME-STORAGE /?CND164
 	PRINTI	" the "
 	PRINTD	DOME-STORAGE
-?CND170:	PRINTI	" and found a "
+?CND164:	PRINTI	" and found a "
 	PRINTD	FINE-GRID
 	PRINTI	" that'll fit our "
 	PRINTD	SONARSCOPE
@@ -409,100 +390,113 @@
 	PRINTI	"s -- 0, 5, 10, or 15 meters per turn."""
 	CRLF	
 	RTRUE	
-?ELS130:	CALL	COMMON-ASK-ABOUT,TIP,OBJ >X
-	ZERO?	X /?ELS178
+?ELS124:	CALL	COMMON-ASK-ABOUT,TIP,OBJ >X
+	ZERO?	X /?ELS172
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS178:	PRINTI	"""You know as much as I do, "
+?ELS172:	PRINTI	"""You know as much as I do, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
-?ELS86:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS191
+?ELS86:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS185
 	EQUAL?	PRSO,GLOBAL-SNARK \FALSE
 	PRINTI	"""I know, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	"! We'd better go there fast in the "
 	PRINTD	GLOBAL-SUB
 	PRINTR	"!"""
-?ELS191:	CALL	COMMON-OTHER,TIP
+?ELS185:	CALL	COMMON-OTHER,TIP
 	ZERO?	STACK \TRUE
 	RFALSE
 
 
+	.FUNCT	ASK-ABOUT?,PER
+	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS5
+	EQUAL?	PRSO,PER \?ELS5
+	ZERO?	PRSI /?ELS5
+	RETURN	PRSI
+?ELS5:	EQUAL?	PRSA,V?WHAT,V?FIND \FALSE
+	ZERO?	PRSO /FALSE
+	IN?	PRSO,GLOBAL-OBJECTS \FALSE
+	RETURN	PRSO
+
+
 	.FUNCT	GLOBAL-SHARON-F,ARG=0,OBJ,L,X
 	SET	'L,REMOTE-PERSON-LOC
 	ZERO?	SHARON-EXPLAINED \?ELS5
 	EQUAL?	REMOTE-PERSON,GLOBAL-SHARON \?ELS5
-	SET	'SHARON-EXPLAINED,1
+	SET	'SHARON-EXPLAINED,TRUE-VALUE
 	CALL	SHARON-EXPLAINS
 	RETURN	2
 ?ELS5:	EQUAL?	WINNER,GLOBAL-SHARON \?ELS11
 	EQUAL?	PRSA,V?FIND \?ELS16
 	EQUAL?	PRSO,GLOBAL-SHARON \?ELS16
-	PRINTR	"""I'm in the Sea Cat."""
+	PRINTI	"""I'm in the "
+	PRINTD	THORPE-SUB
+	PRINTR	"."""
 ?ELS16:	EQUAL?	PRSA,V?FIND \?ELS22
 	EQUAL?	PRSO,GLOBAL-SNARK \?ELS22
 	PRINTR	"""It's right here, next to me."""
-?ELS22:	EQUAL?	PRSA,V?PUSH /?THN31
+?ELS22:	EQUAL?	PRSA,V?SET,V?PUSH /?THN31
 	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE,V?STOP \?ELS28
-?THN31:	EQUAL?	PRSO,THORPE-SUB,SNARK \?ELS28
+?THN31:	EQUAL?	PRSO,THORPE-SUB,SNARK,ROOMS \?ELS28
 	PRINTR	"""I'm afraid I can't control it that well."""
 ?ELS28:	CALL	COM-CHECK,GLOBAL-SHARON >X
 	ZERO?	X /?ELS36
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS36:	CALL	PICK-ONE,WHY-ME
-	PRINT	STACK
+?ELS36:	PRINTI	"""Sorry, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", but I'm too busy driving this "
+	PRINTD	THORPE-SUB
+	PRINTI	"."""
 	CRLF	
 	RETURN	2
 ?ELS11:	EQUAL?	REMOTE-PERSON,GLOBAL-SHARON \?ELS51
-	ZERO?	PRSI /?ELS57
-	SET	'OBJ,PRSI
-	EQUAL?	PRSO,GLOBAL-SHARON \?ELS57
-	EQUAL?	PRSA,V?ASK-ABOUT,V?CONFRONT /?THN54
-?ELS57:	ZERO?	PRSO /?ELS51
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS51
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS51
-?THN54:	CALL	SAID-TO,GLOBAL-SHARON
-	EQUAL?	OBJ,SNARK \?ELS64
-	PRINT	SHARON-ABOUT-MONSTER
-	CRLF	
+	CALL	ASK-ABOUT?,GLOBAL-SHARON >OBJ
+	ZERO?	OBJ /?ELS51
+	CALL	SAID-TO,GLOBAL-SHARON
+	EQUAL?	OBJ,SNARK \?ELS58
+	CALL	SHARON-ABOUT-MONSTER
 	RTRUE	
-?ELS64:	EQUAL?	OBJ,THORPE-SUB \?ELS68
-	PRINT	SHARON-ABOUT-CAT
-	CRLF	
+?ELS58:	EQUAL?	OBJ,THORPE-SUB \?ELS60
+	CALL	SHARON-ABOUT-CAT
 	RTRUE	
-?ELS68:	EQUAL?	OBJ,GLOBAL-THORPE \?ELS72
+?ELS60:	EQUAL?	OBJ,GLOBAL-THORPE \?ELS62
 	CALL	SHARON-ABOUT-THORPE
 	RTRUE	
-?ELS72:	CALL	COMMON-ASK-ABOUT,GLOBAL-SHARON,OBJ >X
-	ZERO?	X /?ELS74
+?ELS62:	CALL	COMMON-ASK-ABOUT,GLOBAL-SHARON,OBJ >X
+	ZERO?	X /?ELS64
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS74:	CALL	DONT-KNOW,GLOBAL-SHARON,OBJ
+?ELS64:	CALL	DONT-KNOW,GLOBAL-SHARON,OBJ
 	RSTACK	
-?ELS51:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS85
-	EQUAL?	PRSA,V?HELLO \?ELS85
-	EQUAL?	REMOTE-PERSON-ON,SONARPHONE,INTERCOM \?ELS85
+?ELS51:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS75
+	EQUAL?	PRSA,V?HELLO \?ELS75
+	EQUAL?	REMOTE-PERSON-ON,SONARPHONE,INTERCOM \?ELS75
 	PRINTI	"You hear "
 	PRINTD	PRSO
 	PRINTR	" nodding at you."
-?ELS85:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS91
-	EQUAL?	PRSA,V?REPLY,V?LISTEN \?ELS91
+?ELS75:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS81
+	EQUAL?	PRSA,V?REPLY,V?LISTEN \?ELS81
 	CALL	WAITING-FOR-YOU-TO-SPEAK
 	RTRUE	
-?ELS91:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS95
-	EQUAL?	PRSA,V?PHONE \?ELS95
-	EQUAL?	HERE,SUB,CRAWL-SPACE /?ELS95
-	ZERO?	SUB-IN-DOME \?ELS95
+?ELS81:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS85
+	EQUAL?	PRSA,V?PHONE \?ELS85
+	EQUAL?	HERE,SUB,CRAWL-SPACE /?ELS85
+	ZERO?	SUB-IN-DOME \?ELS85
 	PRINTR	"There's no phone line to where she is."
-?ELS95:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS101
-	EQUAL?	PRSA,V?READ \?ELS101
-	PRINTR	"That's just a figure of speech! Try the command: SHARON, HELLO."
-?ELS101:	CALL	GLOBAL-PERSON
+?ELS85:	EQUAL?	PRSO,GLOBAL-SHARON \?ELS91
+	EQUAL?	PRSA,V?READ \?ELS91
+	CALL	FIGURE-OF-SPEECH
+	RTRUE	
+?ELS91:	CALL	GLOBAL-PERSON
 	RSTACK	
 
 
+	.FUNCT	FIGURE-OF-SPEECH
+	PRINTR	"That's just a figure of speech! Try the command: SAY ""HELLO."""
+
+
 	.FUNCT	DONT-KNOW-ANYTHING
 	PRINTR	"""Uh . . . I don't know anything about it."""
 
@@ -542,65 +536,61 @@
 	IN?	SHARON,OFFICE \?ELS57
 	CALL	PERFORM,V?ASK-ABOUT,SHARON,FILE-DRAWER
 	RTRUE	
-?ELS57:	ZERO?	PRSO /?ELS65
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS65
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND /?THN62
-?ELS65:	ZERO?	PRSI /?ELS61
-	SET	'OBJ,PRSI
-	EQUAL?	PRSO,SHARON \?ELS61
-	EQUAL?	PRSA,V?ASK-ABOUT,V?CONFRONT \?ELS61
-?THN62:	CALL	GRAB-ATTENTION,SHARON
+?ELS57:	CALL	ASK-ABOUT?,SHARON >OBJ
+	ZERO?	OBJ /?ELS61
+	CALL	GRAB-ATTENTION,SHARON
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,SHARON
-	EQUAL?	OBJ,MAGAZINE,ARTICLE \?ELS75
+	EQUAL?	OBJ,MAGAZINE,ARTICLE \?ELS69
 	LOC	MAGAZINE
-	EQUAL?	STACK,SHARON,PLAYER \?ELS75
-	PRINTR	"""Uh . . . That's not the magazine I'm looking for."""
-?ELS75:	EQUAL?	OBJ,CIRCUIT-BREAKER,ELECTRICAL-CONTROL-PANEL \?ELS81
-	ZERO?	SHARON-BROKE-CIRCUIT /?ELS81
+	EQUAL?	STACK,SHARON,PLAYER \?ELS69
+	PRINTI	"""Uh . . . That's not the "
+	PRINTD	MAGAZINE
+	PRINTR	" I'm looking for."""
+?ELS69:	EQUAL?	OBJ,CIRCUIT-BREAKER,ELECTRICAL-CONTROL-PANEL \?ELS75
+	ZERO?	SHARON-BROKE-CIRCUIT /?ELS75
 	CALL	DONT-KNOW-ANYTHING
 	RSTACK	
-?ELS81:	EQUAL?	OBJ,CATALYST-CAPSULE \?ELS85
+?ELS75:	EQUAL?	OBJ,CATALYST-CAPSULE \?ELS79
 	PRINTR	"""Uh . . . I guess I forgot about it. Sorry."""
-?ELS85:	EQUAL?	OBJ,GLOBAL-SHARON,SHARON \?ELS89
+?ELS79:	EQUAL?	OBJ,GLOBAL-SHARON,SHARON \?ELS83
 	PRINTR	"""You know me well and trust me completely."""
-?ELS89:	EQUAL?	OBJ,PROBLEM \?ELS93
+?ELS83:	EQUAL?	OBJ,PROBLEM \?ELS87
 	PRINTI	"""Sorry, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", but I just got word that my mother is ill. They want me to come to the hospital at once."
 	PRINTR	""""
-?ELS93:	EQUAL?	OBJ,ARTICLE /?THN102
-	EQUAL?	OBJ,FILE-DRAWER,PAPERS,MAGAZINE \?ELS101
-?THN102:	PRINTI	"""I can't find the "
+?ELS87:	EQUAL?	OBJ,ARTICLE /?THN96
+	EQUAL?	OBJ,FILE-DRAWER,PAPERS,MAGAZINE \?ELS95
+?THN96:	PRINTI	"""I can't find the "
 	PRINTD	MAGAZINE
 	PRINTI	" I bought for my mother this morning. I thought it might be in the "
 	PRINTD	FILE-DRAWER
 	PRINTI	". I wanted to take it to the hospital for her to read. I really must rush off, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"!"""
-?ELS101:	EQUAL?	OBJ,THORPE,GLOBAL-THORPE \?ELS107
+?ELS95:	EQUAL?	OBJ,THORPE,GLOBAL-THORPE \?ELS101
 	CALL	PERFORM,V?ASK-ABOUT,SHARON,PRIVATE-MATTER
 	RTRUE	
-?ELS107:	CALL	COMMON-ASK-ABOUT,SHARON,OBJ >X
-	ZERO?	X /?ELS109
+?ELS101:	CALL	COMMON-ASK-ABOUT,SHARON,OBJ >X
+	ZERO?	X /?ELS103
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS109:	CALL	PICK-ONE,SHARON-ASKED
+?ELS103:	CALL	PICK-ONE,SHARON-ASKED
 	PRINT	STACK
 	CRLF	
 	RTRUE	
-?ELS61:	EQUAL?	PRSA,V?GOODBYE \?ELS122
+?ELS61:	EQUAL?	PRSA,V?GOODBYE \?ELS116
 	PRINTI	"""I'm going as soon as I find that "
 	PRINTD	MAGAZINE
 	PRINTR	"."""
-?ELS122:	CALL	COMMON-OTHER,SHARON
+?ELS116:	CALL	COMMON-OTHER,SHARON
 	ZERO?	STACK \TRUE
 	RFALSE
 
 
 	.FUNCT	BLY-TELLS-PROBLEM
-	SET	'BLY-TOLD-PROBLEM,1
+	SET	'BLY-TOLD-PROBLEM,TRUE-VALUE
 	CALL	QUEUE,I-SHARON-TO-HALLWAY,6
 	PUT	STACK,0,1
 	CALL	SAID-TO,GLOBAL-BLY
@@ -634,10 +624,10 @@
 ?ELS5:	EQUAL?	L,CENTER-OF-LAB \?ELS24
 	CALL	SPEAKING-VERB?
 	ZERO?	STACK /?ELS24
-	EQUAL?	PRSO,0,GLOBAL-BLY,PLAYER \?ELS24
+	EQUAL?	PRSO,FALSE-VALUE,GLOBAL-BLY,PLAYER \?ELS24
 	IN?	MICROPHONE,PLAYER \?THN27
 	FSET?	MICROPHONE,ONBIT /?ELS24
-?THN27:	SET	'P-CONT,0
+?THN27:	SET	'P-CONT,FALSE-VALUE
 	CALL	THIS-IS-IT,MICROPHONE
 	PRINTI	"She can't hear you unless you "
 	IN?	MICROPHONE,PLAYER /?ELS35
@@ -692,7 +682,7 @@
 	EQUAL?	PRSO,GLOBAL-SNARK /?THN113
 ?ELS108:	EQUAL?	PRSA,V?SHOOT,V?ATTACK \?ELS110
 	EQUAL?	PRSO,GLOBAL-SNARK \?ELS110
-	EQUAL?	PRSI,0,GLOBAL-WEAPON,GLOBAL-EXPLOSIVE /?THN113
+	EQUAL?	PRSI,FALSE-VALUE,GLOBAL-WEAPON,GLOBAL-EXPLOSIVE /?THN113
 ?ELS110:	EQUAL?	PRSO,GLOBAL-EXPLOSIVE,GLOBAL-WEAPON \?ELS104
 	EQUAL?	PRSA,V?USE /?THN113
 	EQUAL?	PRSA,V?USE-AGAINST \?ELS104
@@ -728,11 +718,11 @@
 	EQUAL?	PRSA,V?FIND /?THN155
 	EQUAL?	PRSA,V?FIND-WITH \?ELS152
 	EQUAL?	PRSI,GLOBAL-SONAR \?ELS152
-?THN155:	PRINTI	"""Sonar pulses show no echo blips on the "
-	PRINTD	SONARSCOPE
+?THN155:	PRINTI	"""No blips appear on the "
+	PRINTD	SONAR-EQUIPMENT
 	PRINTR	"."""
 ?ELS152:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE /?THN163
-	EQUAL?	PRSA,V?COME \?ELS162
+	EQUAL?	PRSA,V?WALK-TO \?ELS162
 	EQUAL?	PRSO,GLOBAL-HERE,YOUR-LABORATORY,GLOBAL-SURFACE \?ELS162
 ?THN163:	PRINTR	"""Our emergency escape bell would be vulnerable to a monster as big as the Snark. Ditto for SCUBA gear, deep-sea diving suits, or jet-propelled observation bubbles."""
 ?ELS162:	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS170
@@ -760,23 +750,17 @@
 	CRLF	
 	RETURN	2
 ?ELS63:	EQUAL?	REMOTE-PERSON,GLOBAL-BLY \?ELS205
-	ZERO?	PRSI /?ELS211
-	SET	'OBJ,PRSI
-	EQUAL?	PRSO,GLOBAL-BLY \?ELS211
-	EQUAL?	PRSA,V?ASK-ABOUT,V?CONFRONT /?THN208
-?ELS211:	ZERO?	PRSO /?ELS205
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS205
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS205
-?THN208:	CALL	SAID-TO,GLOBAL-BLY
-	EQUAL?	OBJ,PROBLEM \?ELS218
-	EQUAL?	L,SUB \?ELS223
+	CALL	ASK-ABOUT?,GLOBAL-BLY >OBJ
+	ZERO?	OBJ /?ELS205
+	CALL	SAID-TO,GLOBAL-BLY
+	EQUAL?	OBJ,PROBLEM \?ELS212
+	EQUAL?	L,SUB \?ELS217
 	PRINTR	"""I'll tell you when we can talk privately."""
-?ELS223:	PRINTI	""""
+?ELS217:	PRINTI	""""
 	CALL	BLY-TELLS-PROBLEM
 	RSTACK	
-?ELS218:	EQUAL?	OBJ,GLOBAL-SNARK \?ELS231
-	EQUAL?	REMOTE-PERSON-ON,SONARPHONE \?ELS234
+?ELS212:	EQUAL?	OBJ,GLOBAL-SNARK \?ELS225
+	EQUAL?	REMOTE-PERSON-ON,SONARPHONE \?ELS228
 	MOVE	PRIVATE-MATTER,GLOBAL-OBJECTS
 	INC	'BLY-PRIVATELY-COUNT
 	PRINTI	"""There have been no new attacks, "
@@ -784,61 +768,62 @@
 	PRINTI	". But the creature may come back. And"
 	CALL	DISCUSS-PRIVATE
 	RTRUE	
-?ELS234:	PRINTI	"""Some of our divers saw it while exploring the undersea environment. They nicknamed it the Snark. This is the first time it has approached the "
+?ELS228:	PRINTI	"""Some of our divers saw it while exploring the undersea environment. They nicknamed it the Snark. This is the first time it has approached the "
 	PRINTD	AQUADOME
 	PRINTI	", and it may be the last time, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	"! I'm not sure how long our plastic dome enclosure c"
-	ZERO?	MONSTER-GONE /?ELS243
+	ZERO?	MONSTER-GONE /?ELS237
 	PRINTI	"ould"
-	JUMP	?CND241
-?ELS243:	PRINTI	"an"
-?CND241:	PRINTR	" withstand such a battering!"""
-?ELS231:	CALL	COMMON-ASK-ABOUT,GLOBAL-BLY,OBJ >X
-	ZERO?	X /?ELS254
+	JUMP	?CND235
+?ELS237:	PRINTI	"an"
+?CND235:	PRINTR	" withstand such a battering!"""
+?ELS225:	CALL	COMMON-ASK-ABOUT,GLOBAL-BLY,OBJ >X
+	ZERO?	X /?ELS248
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS254:	CALL	DONT-KNOW,GLOBAL-BLY,OBJ
+?ELS248:	CALL	DONT-KNOW,GLOBAL-BLY,OBJ
 	RSTACK	
-?ELS205:	EQUAL?	PRSA,V?$CALL,V?ASK \?ELS265
+?ELS205:	EQUAL?	PRSA,V?$CALL,V?ASK \?ELS259
 	PRINTI	"""Ask me about something in particular, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
-?ELS265:	ZERO?	WOMAN-ON-SCREEN /?ELS269
-	EQUAL?	PRSA,V?EXAMINE \?ELS269
+?ELS259:	ZERO?	WOMAN-ON-SCREEN /?ELS263
+	EQUAL?	PRSA,V?EXAMINE \?ELS263
 	PRINTR	"You can't tell who the woman is."
-?ELS269:	EQUAL?	PRSO,GLOBAL-BLY \?ELS275
-	EQUAL?	PRSA,V?HELLO \?ELS275
-	EQUAL?	REMOTE-PERSON-ON,SONARPHONE,INTERCOM \?ELS275
+?ELS263:	EQUAL?	PRSO,GLOBAL-BLY \?ELS269
+	EQUAL?	PRSA,V?HELLO \?ELS269
+	EQUAL?	REMOTE-PERSON-ON,SONARPHONE,INTERCOM \?ELS269
 	PRINTI	"You hear "
 	PRINTD	PRSO
 	PRINTR	" nodding at you."
-?ELS275:	EQUAL?	PRSA,V?GOODBYE \?ELS281
+?ELS269:	EQUAL?	PRSA,V?GOODBYE \?ELS275
 	PRINTI	"""I hope to see you soon, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	"."""
 	CRLF	
-	EQUAL?	REMOTE-PERSON-ON,VIDEOPHONE \?CND286
+	EQUAL?	REMOTE-PERSON-ON,VIDEOPHONE \?CND280
 	CALL	I-SHARON-TO-HALLWAY
-?CND286:	CALL	PHONE-OFF
+?CND280:	CALL	PHONE-OFF
 	RTRUE	
-?ELS281:	EQUAL?	PRSO,GLOBAL-BLY \?ELS290
-	EQUAL?	PRSA,V?REPLY,V?LISTEN \?ELS290
+?ELS275:	EQUAL?	PRSO,GLOBAL-BLY \?ELS284
+	EQUAL?	PRSA,V?REPLY,V?LISTEN \?ELS284
 	CALL	WAITING-FOR-YOU-TO-SPEAK
 	RTRUE	
-?ELS290:	EQUAL?	PRSO,GLOBAL-BLY \?ELS294
-	EQUAL?	PRSA,V?PHONE \?ELS294
-	EQUAL?	HERE,SUB,CRAWL-SPACE /?ELS294
+?ELS284:	EQUAL?	PRSO,GLOBAL-BLY \?ELS288
+	EQUAL?	PRSA,V?PHONE \?ELS288
+	EQUAL?	HERE,SUB,CRAWL-SPACE /?ELS288
 	ZERO?	SUB-IN-DOME /FALSE
-?ELS294:	EQUAL?	PRSO,GLOBAL-BLY \?ELS298
-	EQUAL?	PRSA,V?READ \?ELS298
-	PRINTR	"That's just a figure of speech! Try the command: BLY, HELLO."
-?ELS298:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS304
+?ELS288:	EQUAL?	PRSO,GLOBAL-BLY \?ELS292
+	EQUAL?	PRSA,V?READ \?ELS292
+	CALL	FIGURE-OF-SPEECH
+	RTRUE	
+?ELS292:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS296
 	EQUAL?	PRSI,GLOBAL-SUB \FALSE
 	PRINTI	"""The only submarine capable of hunting it at such depths is your "
 	PRINTD	GLOBAL-SUB
 	PRINTR	". Please send us that!"""
-?ELS304:	CALL	COMMON-OTHER,GLOBAL-BLY
+?ELS296:	CALL	COMMON-OTHER,GLOBAL-BLY
 	ZERO?	STACK \TRUE
 	CALL	GLOBAL-PERSON
 	RSTACK	
@@ -889,7 +874,7 @@
 	PRINTI	"is."""
 	CALL	YES?
 	ZERO?	STACK /?ELS47
-	SET	'SIEGEL-OUT-OF-SIGHT,1
+	SET	'SIEGEL-OUT-OF-SIGHT,TRUE-VALUE
 	CALL	ZOE-SENDS-MARV,AIRLOCK
 	RTRUE	
 ?ELS47:	PRINTI	"""Then, you'd better do it, "
@@ -915,129 +900,122 @@
 	RTRUE	
 ?ELS63:	EQUAL?	PRSO,PLAYER \?ELS67
 	EQUAL?	P-ADVERB,W?PRIVATELY \?ELS67
-	EQUAL?	PRSA,V?TELL /?THN72
+	EQUAL?	PRSA,V?TELL /?THN70
 	EQUAL?	PRSA,V?TELL-ABOUT \?ELS67
 	EQUAL?	PRSI,PRIVATE-MATTER \?ELS67
-?THN72:	SET	'WINNER,PLAYER
+?THN70:	SET	'WINNER,PLAYER
 	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
 	RTRUE	
-?ELS67:	EQUAL?	PRSA,V?ASK \?ELS77
-	EQUAL?	PRSO,PLAYER \?ELS77
-	CALL	I-BLY-SAYS,1
+?ELS67:	EQUAL?	PRSA,V?ASK \?ELS75
+	EQUAL?	PRSO,PLAYER \?ELS75
+	CALL	I-BLY-SAYS,TRUE-VALUE
 	ZERO?	STACK \TRUE
-?ELS77:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS81
+?ELS75:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS79
 	CALL	EXIT-VERB?
-	ZERO?	STACK /?ELS81
+	ZERO?	STACK /?ELS79
 	PRINTI	"""Not now, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
-?ELS81:	CALL	COM-CHECK,BLY >X
-	ZERO?	X /?ELS87
+?ELS79:	CALL	COM-CHECK,BLY >X
+	ZERO?	X /?ELS85
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS87:	CALL	PICK-ONE,WHY-ME
+?ELS85:	CALL	PICK-ONE,WHY-ME
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS15:	EQUAL?	PRSA,V?ASK /?THN103
-	EQUAL?	PRSO,BLY \?ELS102
-	EQUAL?	PRSA,V?TELL \?ELS102
-	EQUAL?	P-ADVERB,W?PRIVATELY \?ELS102
-?THN103:	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
+?ELS15:	EQUAL?	PRSA,V?ASK /?THN101
+	EQUAL?	PRSO,BLY \?ELS100
+	EQUAL?	PRSA,V?TELL \?ELS100
+	EQUAL?	P-ADVERB,W?PRIVATELY \?ELS100
+?THN101:	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
 	RTRUE	
-?ELS102:	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT \?ELS108
-	EQUAL?	PRSI,CONTROL-CIRCUITS-GAUGE,CONTROL-CIRCUITS,OVERHEATING /?THN111
-	EQUAL?	PRSI,VOLTAGE-REGULATOR,LOCAL-SUB,GLOBAL-SUB \?ELS108
-?THN111:	PRINTI	"""You mean the problem you had on the way here? Shall I ask Mick to check on it?"""
+?ELS100:	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT \?ELS106
+	EQUAL?	PRSI,CONTROL-CIRCUITS-GAUGE,CONTROL-CIRCUITS,OVERHEATING /?THN109
+	EQUAL?	PRSI,VOLTAGE-REGULATOR,LOCAL-SUB,GLOBAL-SUB \?ELS106
+?THN109:	PRINTI	"""You mean the problem you had on the way here? Shall I ask Mick to check on it?"""
 	CALL	YES?
 	ZERO?	STACK /TRUE
 	MOVE	ANTRIM,HERE
 	SET	'WINNER,ANTRIM
 	CALL	PERFORM,V?FIX,GLOBAL-SUB
 	RTRUE	
-?ELS108:	ZERO?	PRSI /?ELS123
-	SET	'OBJ,PRSI
-	EQUAL?	PRSO,BLY \?ELS123
-	EQUAL?	PRSA,V?ASK-ABOUT,V?CONFRONT /?THN120
-?ELS123:	ZERO?	PRSO /?ELS119
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS119
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS119
-?THN120:	CALL	GRAB-ATTENTION,BLY
+?ELS106:	CALL	ASK-ABOUT?,BLY >OBJ
+	ZERO?	OBJ /?ELS117
+	CALL	GRAB-ATTENTION,BLY
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,BLY
 	FSET	BLY,TOUCHBIT
-	EQUAL?	OBJ,PRIVATE-MATTER \?ELS133
+	EQUAL?	OBJ,PRIVATE-MATTER \?ELS125
 	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
 	RSTACK	
-?ELS133:	EQUAL?	OBJ,PROBLEM \?ELS135
-	ZERO?	DOME-AIR-BAD? /?ELS140
-	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS140
+?ELS125:	EQUAL?	OBJ,PROBLEM \?ELS127
+	ZERO?	DOME-AIR-BAD? /?ELS132
+	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS132
 	CALL	BADGES-RED
 	RTRUE	
-?ELS140:	ZERO?	ZOE-MENTIONED-EVIDENCE \?ELS144
+?ELS132:	ZERO?	ZOE-MENTIONED-EVIDENCE \?ELS136
 	SET	'WINNER,PLAYER
 	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
 	RTRUE	
-?ELS144:	EQUAL?	HERE,BLY-OFFICE \?ELS146
-	ZERO?	ZOE-BLUSHING /?ELS146
+?ELS136:	EQUAL?	HERE,BLY-OFFICE \?ELS138
+	ZERO?	ZOE-BLUSHING /?ELS138
 	CALL	DOC-IN-LOVE
 	RSTACK	
-?ELS146:	PRINTI	"""I'm worried that the "
+?ELS138:	PRINTI	"""I'm worried that the "
 	PRINTD	SNARK
 	PRINTI	" may attack again, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
-?ELS135:	EQUAL?	OBJ,DIARY \?ELS154
+?ELS127:	EQUAL?	OBJ,DIARY \?ELS146
 	PRINTR	"""I think that I can guess what's in it."""
-?ELS154:	EQUAL?	OBJ,REASON,PHOTO \?ELS158
-	EQUAL?	OBJ,PHOTO \?CND159
-	SET	'BLY-SAW-PHOTO,1
-?CND159:	CALL	DISCRETION,BLY,HORVAK
+?ELS146:	EQUAL?	OBJ,REASON,PHOTO \?ELS150
+	EQUAL?	OBJ,PHOTO \?CND151
+	SET	'BLY-SAW-PHOTO,TRUE-VALUE
+?CND151:	CALL	DISCRETION,BLY,HORVAK
 	PRINTI	"""A friend took a picture of me just before I was assigned here. I usually keep it on my desk, but a few days after Doc came on to me, I realized it was gone."
-	ZERO?	BLY-SAW-PHOTO \?CND164
+	ZERO?	BLY-SAW-PHOTO \?CND156
 	PRINTI	" It still hasn't turned up."
-?CND164:	PRINTR	" I think Doc took it. He wanted a picture of me."""
-?ELS158:	EQUAL?	OBJ,EVIDENCE,BLACK-BOX \?ELS172
-	ZERO?	ZOE-MENTIONED-EVIDENCE \?CND173
+?CND156:	PRINTR	" I think Doc took it. He wanted a picture of me."""
+?ELS150:	EQUAL?	OBJ,EVIDENCE,BLACK-BOX \?ELS164
+	ZERO?	ZOE-MENTIONED-EVIDENCE \?CND165
 	CALL	ASK-BLY-ABOUT-PRIVATE-MATTER
 	RTRUE	
-?CND173:	PRINTI	"""I wanted to make sure the "
+?CND165:	PRINTI	"""I wanted to make sure the "
 	PRINTD	SONAR-EQUIPMENT
 	PRINTI	" would warn us if the "
 	PRINTD	SNARK
 	PRINTI	" approached again. I was worried because the blips on the scope looked fuzzy, as if the system was out of alignment. When I inspected it, I found someone had secretly attached "
-	IN?	BLACK-BOX,BLY-DESK /?ELS180
-	PRINTI	"th"
-	IN?	BLACK-BOX,BLY \?ELS187
-	PUSH	STR?91
-	JUMP	?CND183
-?ELS187:	PUSH	STR?92
-?CND183:	PRINT	STACK
+	IN?	BLACK-BOX,BLY-DESK /?ELS172
+	IN?	BLACK-BOX,BLY \?ELS179
+	PUSH	STR?86
+	JUMP	?CND175
+?ELS179:	PUSH	STR?87
+?CND175:	PRINT	STACK
 	PRINTD	BLACK-BOX
-	JUMP	?CND178
-?ELS180:	PRINTI	"this device"
-?CND178:	PRINTI	" to it!"""
+	JUMP	?CND170
+?ELS172:	PRINTI	"this device"
+?CND170:	PRINTI	" to it!"""
 	CRLF	
-	IN?	BLACK-BOX,BLY-DESK \?CND196
+	IN?	BLACK-BOX,BLY-DESK \?CND188
 	MOVE	BLACK-BOX,BLY
 	CALL	THIS-IS-IT,BLACK-BOX
 	PRINTI	"Zoe takes a small """
 	PRINTD	BLACK-BOX
 	PRINTI	""" device from her desk drawer."
 	CRLF	
-?CND196:	CALL	QUEUE,I-TIP-SONAR-PLAN,-1
+?CND188:	CALL	QUEUE,I-TIP-SONAR-PLAN,-1
 	PUT	STACK,0,1
 	MOVE	TIP-IDEA,GLOBAL-OBJECTS
 	RTRUE	
-?ELS172:	EQUAL?	OBJ,SIEGEL,GLOBAL-SIEGEL \?ELS202
-	ZERO?	SIEGEL-TESTED \?THN206
-	FSET?	SIEGEL,BUSYBIT /?THN206
-	IN?	BLACK-BOX,BLY-DESK \?ELS205
-?THN206:	CALL	DISCRETION,BLY,SIEGEL
+?ELS164:	EQUAL?	OBJ,SIEGEL,GLOBAL-SIEGEL \?ELS194
+	ZERO?	SIEGEL-TESTED \?THN198
+	FSET?	SIEGEL,BUSYBIT /?THN198
+	IN?	BLACK-BOX,BLY-DESK \?ELS197
+?THN198:	CALL	DISCRETION,BLY,SIEGEL
 	PRINTI	""""
-	JUMP	?CND203
-?ELS205:	CALL	DISCRETION,BLY,SIEGEL,ANTRIM
+	JUMP	?CND195
+?ELS197:	CALL	DISCRETION,BLY,SIEGEL,ANTRIM
 	PRINTI	"""I bet you're wondering if he could have attached that "
 	PRINTD	BLACK-BOX
 	PRINTI	" to the "
@@ -1049,7 +1027,7 @@ I agree that he had the opportunity, but all I can say, "
 	PRINTD	ANTRIM
 	PRINTI	"."
 	CRLF	
-?CND203:	PRINTI	"He's a great diver and a skilled electronics engineer.
+?CND195:	PRINTI	"He's a great diver and a skilled electronics engineer.
 I think he really enjoys exploring the undersea environment. He discovered that "
 	PRINTD	ORE-NODULES
 	PRINTI	" on the sea floor near the "
@@ -1060,34 +1038,35 @@ I have no reason to suspect him of trying to sabotage the "
 	PRINTI	" of "
 	PRINTD	IU-GLOBAL
 	PRINTI	"."
-	ZERO?	SIEGEL-TESTED \?THN221
-	FSET?	SIEGEL,BUSYBIT /?THN221
-	IN?	BLACK-BOX,BLY-DESK \?ELS220
-?THN221:	PRINTR	""""
-?ELS220:	PRINTI	" But I do have a plan that will help us find out. Do you want to hear it, "
+	ZERO?	SIEGEL-TESTED \?THN213
+	FSET?	SIEGEL,BUSYBIT /?THN213
+	IN?	BLACK-BOX,BLY-DESK \?ELS212
+?THN213:	PRINTR	""""
+?ELS212:	PRINTI	" But I do have a plan that will help us find out. Do you want to hear it, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	"?"""
 	MOVE	BLY-PLAN,GLOBAL-OBJECTS
 	CALL	YES?
 	ZERO?	STACK /TRUE
-	CALL	TELL-HINT,13,SIEGEL,0
+	CALL	QUEUE,I-TIP-SONAR-PLAN,0
+	CALL	TELL-HINT,13,SIEGEL,FALSE-VALUE
 	RTRUE	
-?ELS202:	EQUAL?	OBJ,BLY-PLAN \?ELS233
-	CALL	TELL-HINT,13,SIEGEL,0
+?ELS194:	EQUAL?	OBJ,BLY-PLAN \?ELS225
+	CALL	TELL-HINT,13,SIEGEL,FALSE-VALUE
 	RSTACK	
-?ELS233:	EQUAL?	OBJ,ANTRIM,GLOBAL-ANTRIM \?ELS235
+?ELS225:	EQUAL?	OBJ,ANTRIM,GLOBAL-ANTRIM \?ELS227
 	PRINTI	"Just hearing Antrim's name makes her eyes flash fire, and she clenches her fists. You can tell she's had a hard time keeping her temper when dealing with Antrim.
 "
 	CALL	DISCRETION,BLY,ANTRIM
 	PRINTI	""""
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", that redheaded troublemaker's been nothing but bad news since the day I arrived! He's always got a chip on his shoulder and looks for ways to embarrass me or start a fight."
-	ZERO?	ANTRIM-EXPLODED /?CND240
+	ZERO?	ANTRIM-EXPLODED /?CND232
 	PRINTI	" You heard his remarks about the "
 	PRINTD	OXYGEN-GEAR
 	PRINTI	"."
-?CND240:	PRINTR	" Most of the time he complains about discipline, but whenever I ease up he's always the first to accuse me of laxity!"""
-?ELS235:	EQUAL?	OBJ,ORE-NODULES \?ELS249
+?CND232:	PRINTR	" Most of the time he complains about discipline, but whenever I ease up he's always the first to accuse me of laxity!"""
+?ELS227:	EQUAL?	OBJ,ORE-NODULES \?ELS241
 	PRINTI	"""Oops, I forgot you hadn't heard about it, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	". I was about to report it when we were attacked. "
@@ -1095,50 +1074,49 @@ I have no reason to suspect him of trying to sabotage the "
 	PRINTI	" discovered it by accident. The ore is mostly manganese and iron, but there's gold and platinum, and there may be traces of rare earths, too. This could be the richest payoff yet from the "
 	PRINTD	AQUADOME
 	PRINTR	"!"""
-?ELS249:	EQUAL?	OBJ,SPECIAL-TOOL \?ELS253
+?ELS241:	EQUAL?	OBJ,SPECIAL-TOOL \?ELS245
 	PRINTI	"""That belongs on the "
 	PRINTD	HOOK
 	PRINTI	"!"
-	IN?	SPECIAL-TOOL,BLY-OFFICE \?CND256
+	IN?	SPECIAL-TOOL,BLY-OFFICE \?CND248
 	PRINTI	" Why is it in my office? It hasn't been there long! When I "
-	EQUAL?	HERE,BLY-OFFICE \?ELS263
+	EQUAL?	HERE,BLY-OFFICE \?ELS255
 	PRINTI	"came back "
-	JUMP	?CND261
-?ELS263:	PRINTI	"went back t"
-?CND261:	PRINTI	"here to put something in a drawer, I knocked a pen off my desk. I had to stoop down to find it. Had that wrench been lying under my desk, I would have seen it!"
-?CND256:	PRINTR	""""
-?ELS253:	EQUAL?	OBJ,GLOBAL-HORVAK,HORVAK \?ELS275
-	FSET?	SPECIAL-TOOL,TOUCHBIT /?ELS280
+	JUMP	?CND253
+?ELS255:	PRINTI	"went back t"
+?CND253:	PRINTI	"here to put something in a drawer, I knocked a pen off my desk. I had to stoop down to find it. Had that wrench been lying under my desk, I would have seen it!"
+?CND248:	PRINTR	""""
+?ELS245:	EQUAL?	OBJ,GLOBAL-HORVAK,HORVAK \?ELS267
+	FSET?	SPECIAL-TOOL,TOUCHBIT /?ELS272
 	CALL	DOC-IN-LOVE
 	RSTACK	
-?ELS280:	SET	'ZOE-BLUSHING,1
+?ELS272:	SET	'ZOE-BLUSHING,TRUE-VALUE
 	CALL	DISCRETION,BLY,HORVAK
-	PRINTI	"""I bet you're wondering if he"
-	ZERO?	HORVAK-FIXED-AIR \?CND285
-	PRINTI	" ditched the wrench there after he"
-?CND285:	PRINTI	" sabotaged the "
+	PRINTI	"""I wonder if he sabotaged the "
 	PRINTD	AIR-SUPPLY-SYSTEM
-	PRINTI	"?"
-	ZERO?	HORVAK-FIXED-AIR \?CND292
+	ZERO?	HORVAK-FIXED-AIR \?CND277
+	PRINTI	" and then ditched the wrench there"
+?CND277:	PRINTI	"?"
+	ZERO?	HORVAK-FIXED-AIR \?CND284
 	PRINTI	" He had the opportunity: he could have tossed it there when he came to get my "
 	PRINTD	OXYGEN-GEAR
 	PRINTI	". But"
-?CND292:	PRINTR	" I just can't BELIEVE Doc would cut off our air supply!""
+?CND284:	PRINTR	" I just can't BELIEVE Doc would cut off our air supply!""
 Zoe blushes and her voice trembles with emotion as she speaks."
-?ELS275:	EQUAL?	OBJ,LOWELL,GLOBAL-LOWELL /?THN301
-	EQUAL?	OBJ,GREENUP,GLOBAL-GREENUP \?ELS300
-	ZERO?	GREENUP-GUILT \?ELS300
-?THN301:	PRINTI	""""
-	CALL	HE-SHE-IT,OBJ,1
+?ELS267:	EQUAL?	OBJ,LOWELL,GLOBAL-LOWELL /?THN293
+	EQUAL?	OBJ,GREENUP,GLOBAL-GREENUP \?ELS292
+	ZERO?	GREENUP-GUILT \?ELS292
+?THN293:	PRINTI	""""
+	CALL	HE-SHE-IT,OBJ,TRUE-VALUE
 	PRINTR	"'s an excellent diver."""
-?ELS300:	EQUAL?	OBJ,GREENUP,GLOBAL-GREENUP \?ELS310
+?ELS292:	EQUAL?	OBJ,GREENUP,GLOBAL-GREENUP \?ELS302
 	PRINTR	"""I never would have suspected him!"""
-?ELS310:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT /?ELS314
-	EQUAL?	OBJ,AIR-SUPPLY-SYSTEM,AIR-SUPPLY-SYSTEM-GLOBAL,GLOBAL-SABOTAGE \?ELS314
-	IN?	CREW,HERE \?CND317
+?ELS302:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT /?ELS306
+	EQUAL?	OBJ,AIR-SUPPLY-SYSTEM,AIR-SUPPLY-SYSTEM-GLOBAL,GLOBAL-SABOTAGE \?ELS306
+	IN?	CREW,HERE \?CND309
 	PRINTI	"Zoe shoots a troubled glance at her five crew members.
 "
-?CND317:	PRINTI	"""Once we saw your "
+?CND309:	PRINTI	"""Once we saw your "
 	PRINTD	SEARCH-BEAM
 	PRINTI	" beam, "
 	CALL	PRINT-NAME,FIRST-NAME
@@ -1152,18 +1130,18 @@ Zoe blushes and her voice trembles with emotion as she speaks."
 	PRINTI	"!""
 "
 	IN?	ANTRIM,HERE \TRUE
-	SET	'ANTRIM-EXPLODED,1
+	SET	'ANTRIM-EXPLODED,TRUE-VALUE
 	PRINTD	ANTRIM
 	PRINTI	" explodes: ""That shows you what kind of a commander Bly is! Regulations state that EVERYONE has to wear "
 	PRINTD	OXYGEN-GEAR
 	PRINTR	" all the time. But neither of those two divers were wearing theirs! Bly wasn't even wearing HER OWN!"""
-?ELS314:	CALL	COMMON-ASK-ABOUT,BLY,OBJ >X
-	ZERO?	X /?ELS332
+?ELS306:	CALL	COMMON-ASK-ABOUT,BLY,OBJ >X
+	ZERO?	X /?ELS324
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS332:	CALL	DONT-KNOW,BLY,OBJ
+?ELS324:	CALL	DONT-KNOW,BLY,OBJ
 	RSTACK	
-?ELS119:	CALL	COMMON-OTHER,BLY
+?ELS117:	CALL	COMMON-OTHER,BLY
 	ZERO?	STACK \TRUE
 	RFALSE
 
@@ -1190,7 +1168,7 @@ Zoe blushes and her voice trembles with emotion as she speaks."
 Before you can say anything, Zoe yells:
 ""That's enough, Antrim! Maybe I have some complaints about the way the crew performs. When I make any about you, or hand out disciplinary action, you'll be the first to -- to --""
 "
-	CALL	I-DOME-AIR,1
+	CALL	I-DOME-AIR,TRUE-VALUE
 	RSTACK	
 ?ELS10:	MOVE	BLY,BLY-OFFICE
 	FSET	BLY,NDESCBIT
@@ -1243,9 +1221,9 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINTR	"."
 
 
-	.FUNCT	IS-CREW?,PERSON
-	EQUAL?	PERSON,LOWELL,ANTRIM,HORVAK /TRUE
-	EQUAL?	PERSON,SIEGEL,GREENUP /TRUE
+	.FUNCT	IS-CREW?,PER
+	EQUAL?	PER,LOWELL,ANTRIM,HORVAK /TRUE
+	EQUAL?	PER,SIEGEL,GREENUP /TRUE
 	RFALSE	
 
 
@@ -1265,11 +1243,10 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	RFALSE	
 
 
-	.FUNCT	ANTRIM-F,ARG=0,OBJ,X,L
-	LOC	ANTRIM >L
+	.FUNCT	ANTRIM-F,ARG=0,OBJ,X,SUB0,SUB1
 	EQUAL?	ARG,M-OBJDESC \?ELS5
 	IN?	ANTRIM,AIRLOCK \?ELS8
-	CALL	DESCRIBE-PERSON,ANTRIM,STR?93
+	CALL	DESCRIBE-PERSON,ANTRIM,STR?88
 	RTRUE	
 ?ELS8:	CALL	DESCRIBE-COLLAPSE,ANTRIM
 	RTRUE	
@@ -1283,8 +1260,8 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 ?THN24:	ZERO?	ANTRIM-CHECKED-SUB /?CND26
 	PRINTR	"""I already did that!"""
 ?CND26:	MOVE	BLY,HERE
-	SET	'ASKED-ANTRIM,1
-	CALL	I-ANTRIM-TO-SUB,STR?94
+	SET	'ASKED-ANTRIM,TRUE-VALUE
+	CALL	I-ANTRIM-TO-SUB,STR?89
 	PRINTI	"But "
 	PRINTD	BLY
 	PRINTI	" has heard your order. ""Please remember, "
@@ -1298,36 +1275,30 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINTI	" now?"""
 	CALL	YES?
 	ZERO?	STACK /TRUE
-	GET	ON-SUB,0
-	EQUAL?	BAZOOKA,STACK \?THN40
-	GET	ON-SUB,1
-	EQUAL?	DART,STACK /TRUE
+	GET	ON-SUB,0 >SUB0
+	GET	ON-SUB,1 >SUB1
+	EQUAL?	BAZOOKA,SUB0 \?THN40
+	EQUAL?	DART,SUB1 /TRUE
 ?THN40:	PRINTI	"""Then why not use the time to arm the "
 	PRINTD	SUB
-	GET	ON-SUB,0
-	EQUAL?	BAZOOKA,STACK /?THN47
-	GET	ON-SUB,1
-	EQUAL?	DART,STACK \?CND44
+	EQUAL?	BAZOOKA,SUB0 /?THN47
+	EQUAL?	DART,SUB1 \?CND44
 ?THN47:	PRINTI	" better"
 ?CND44:	PRINTI	"?"" Zoe goes on."
 	CRLF	
-	GET	ON-SUB,0
-	EQUAL?	BAZOOKA,STACK /?CND53
-	CALL	TELL-HINT,73,CLAW,0
-?CND53:	GET	ON-SUB,1
-	EQUAL?	DART,STACK /?CND56
+	EQUAL?	BAZOOKA,SUB0 /?CND53
+	CALL	TELL-HINT,73,CLAW,FALSE-VALUE
+?CND53:	EQUAL?	DART,SUB1 /?CND56
 	CALL	TELL-HINT,72,DART
-?CND56:	SET	'BLY-PRIVATELY-DELAY,1
+?CND56:	SET	'BLY-PRIVATELY-DELAY,TRUE-VALUE
 	PRINTI	"
 ""If you want to consider your options"
 	PRINTI	", let's go to"
-	GET	ON-SUB,1
-	EQUAL?	DART,STACK /?ELS65
+	EQUAL?	DART,SUB1 /?ELS65
 	PRINTI	" the "
 	PRINTD	DOME-LAB
 	JUMP	?CND63
-?ELS65:	GET	ON-SUB,0
-	EQUAL?	BAZOOKA,STACK /?CND63
+?ELS65:	EQUAL?	BAZOOKA,SUB0 /?CND63
 	LOC	BAZOOKA
 	CALL	PRINTT,STACK
 ?CND63:	PRINTI	"."""
@@ -1341,24 +1312,18 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS12:	ZERO?	PRSI /?ELS94
-	SET	'OBJ,PRSI
-	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS94
-	EQUAL?	PRSO,ANTRIM /?THN91
-?ELS94:	ZERO?	PRSO /?ELS90
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS90
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS90
-?THN91:	CALL	GRAB-ATTENTION,ANTRIM
+?ELS12:	CALL	ASK-ABOUT?,ANTRIM >OBJ
+	ZERO?	OBJ /?ELS90
+	CALL	GRAB-ATTENTION,ANTRIM
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,ANTRIM
-	EQUAL?	OBJ,GLOBAL-BLY \?ELS104
+	EQUAL?	OBJ,GLOBAL-BLY \?ELS98
 	PRINTR	"""What a slave driver! Sometimes I call her 'Captain Bly'!"""
-?ELS104:	CALL	COMMON-ASK-ABOUT,ANTRIM,OBJ >X
-	ZERO?	X /?ELS108
+?ELS98:	CALL	COMMON-ASK-ABOUT,ANTRIM,OBJ >X
+	ZERO?	X /?ELS102
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS108:	CALL	DONT-KNOW,ANTRIM,OBJ
+?ELS102:	CALL	DONT-KNOW,ANTRIM,OBJ
 	RSTACK	
 ?ELS90:	CALL	COMMON-OTHER,ANTRIM
 	ZERO?	STACK \TRUE
@@ -1420,19 +1385,13 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS7:	ZERO?	PRSI /?ELS71
-	SET	'OBJ,PRSI
-	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS71
-	EQUAL?	PRSO,HORVAK /?THN68
-?ELS71:	ZERO?	PRSO /?ELS67
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS67
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS67
-?THN68:	CALL	GRAB-ATTENTION,HORVAK
+?ELS7:	CALL	ASK-ABOUT?,HORVAK >OBJ
+	ZERO?	OBJ /?ELS67
+	CALL	GRAB-ATTENTION,HORVAK
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,HORVAK
-	EQUAL?	OBJ,SPECIAL-TOOL,SPECIAL-TOOL-GLOBAL \?ELS81
-	ZERO?	HORVAK-FIXED-AIR /?ELS86
+	EQUAL?	OBJ,SPECIAL-TOOL,SPECIAL-TOOL-GLOBAL \?ELS75
+	ZERO?	HORVAK-FIXED-AIR /?ELS80
 	PRINTI	"""I found it in the "
 	PRINTD	BLY-OFFICE
 	PRINTI	", "
@@ -1440,20 +1399,20 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINTI	", when I ran in there to get her "
 	PRINTD	OXYGEN-GEAR
 	PRINTR	". I spotted it under her desk."""
-?ELS86:	CALL	DONT-KNOW-ANYTHING
+?ELS80:	CALL	DONT-KNOW-ANYTHING
 	RSTACK	
-?ELS81:	EQUAL?	OBJ,BLY,GLOBAL-BLY \?ELS93
-	IN?	REASON,GLOBAL-OBJECTS \?ELS98
+?ELS75:	EQUAL?	OBJ,BLY,GLOBAL-BLY \?ELS87
+	IN?	REASON,GLOBAL-OBJECTS \?ELS92
 	PRINTR	"""It's true. I can't hide my love for her any longer."""
-?ELS98:	PRINTR	"""I have no complaints."""
-?ELS93:	EQUAL?	OBJ,HORVAK-LOCKER,HORVAK-KEY \?ELS106
+?ELS92:	PRINTR	"""I have no complaints."""
+?ELS87:	EQUAL?	OBJ,HORVAK-LOCKER,HORVAK-KEY \?ELS100
 	SET	'WINNER,PLAYER
 	CALL	PERFORM,V?SEARCH,HORVAK
 	RTRUE	
-?ELS106:	EQUAL?	OBJ,PHOTO \?ELS108
+?ELS100:	EQUAL?	OBJ,PHOTO \?ELS102
 	PRINTR	"""I took it because I wanted a picture of her."""
-?ELS108:	EQUAL?	OBJ,SYRINGE,ESCAPE-POD-UNIT \?ELS112
-	ZERO?	GREENUP-GUILT /?ELS117
+?ELS102:	EQUAL?	OBJ,SYRINGE,ESCAPE-POD-UNIT \?ELS106
+	ZERO?	GREENUP-GUILT /?ELS111
 	PRINTI	""""
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", the "
@@ -1463,11 +1422,11 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINTI	"! If you'd been jabbed with that "
 	PRINTD	SYRINGE
 	PRINTR	", you'd be dead!"""
-?ELS117:	SET	'WINNER,HORVAK
+?ELS111:	SET	'WINNER,HORVAK
 	CALL	PERFORM,V?ANALYZE,SYRINGE
 	RTRUE	
-?ELS112:	EQUAL?	OBJ,MAGAZINE,ARTICLE \?ELS124
-	FSET?	DART,MUNGBIT \?ELS124
+?ELS106:	EQUAL?	OBJ,MAGAZINE,ARTICLE \?ELS118
+	FSET?	DART,MUNGBIT \?ELS118
 	PRINTI	"Doc quickly reads the "
 	PRINTD	ARTICLE
 	PRINTI	", then flashes you an excited glance.
@@ -1486,11 +1445,11 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTI	", you should have a really high-powered weapon, too. You may run up against an enemy sub, if Thorpe himself is operating around here. Can you think of any device to use as a weapon of last resort?"""
 	CALL	YES?
-	ZERO?	STACK /?CND139
+	ZERO?	STACK /?CND133
 	PRINTI	"""Show me what device you have in mind, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
-?CND139:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT /TRUE
+?CND133:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT /TRUE
 	CALL	SAID-TO,TIP
 	CALL	THIS-IS-IT,BAZOOKA
 	PRINTI	"Once again, Tip has an idea."
@@ -1506,21 +1465,21 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	CALL	MOUNT-WEAPON,BAZOOKA
 	CALL	FINE-SEQUENCE
 	RTRUE	
-?ELS124:	CALL	COMMON-ASK-ABOUT,HORVAK,OBJ >X
-	ZERO?	X /?ELS155
+?ELS118:	CALL	COMMON-ASK-ABOUT,HORVAK,OBJ >X
+	ZERO?	X /?ELS149
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS155:	CALL	DONT-KNOW,HORVAK,OBJ
+?ELS149:	CALL	DONT-KNOW,HORVAK,OBJ
 	RSTACK	
-?ELS67:	EQUAL?	PRSA,V?GIVE \?ELS166
-	IN?	PRSO,PLAYER \?ELS166
-	EQUAL?	PRSI,HORVAK \?ELS166
-	EQUAL?	PRSO,MAGAZINE \?ELS173
+?ELS67:	EQUAL?	PRSA,V?GIVE \?ELS160
+	IN?	PRSO,PLAYER \?ELS160
+	EQUAL?	PRSI,HORVAK \?ELS160
+	EQUAL?	PRSO,MAGAZINE \?ELS167
 	MOVE	PRSO,HORVAK
 	SET	'WINNER,PLAYER
 	CALL	PERFORM,V?ASK-ABOUT,HORVAK,MAGAZINE
 	RTRUE	
-?ELS173:	EQUAL?	PRSO,SYRINGE \FALSE
+?ELS167:	EQUAL?	PRSO,SYRINGE \FALSE
 	MOVE	PRSO,HORVAK
 	PRINTI	"""Want me to analyze this, "
 	CALL	PRINT-NAME,FIRST-NAME
@@ -1530,9 +1489,9 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	SET	'WINNER,HORVAK
 	CALL	PERFORM,V?ANALYZE,SYRINGE
 	RTRUE	
-?ELS166:	EQUAL?	PRSA,V?SEARCH \?ELS184
+?ELS160:	EQUAL?	PRSA,V?SEARCH \?ELS178
 	PRINTR	"""Certainly not! The contents of my locker are my private property!"""
-?ELS184:	CALL	COMMON-OTHER,HORVAK
+?ELS178:	CALL	COMMON-OTHER,HORVAK
 	ZERO?	STACK \TRUE
 	RFALSE
 
@@ -1552,7 +1511,7 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	LOC	SIEGEL >L
 	EQUAL?	ARG,M-OBJDESC \?ELS5
 	FSET?	SIEGEL,BUSYBIT \?ELS10
-	CALL	DESCRIBE-PERSON,SIEGEL,STR?95
+	CALL	DESCRIBE-PERSON,SIEGEL,STR?90
 	RSTACK	
 ?ELS10:	CALL	DESCRIBE-COLLAPSE,SIEGEL
 	RSTACK	
@@ -1582,33 +1541,27 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS14:	ZERO?	PRSI /?ELS58
-	SET	'OBJ,PRSI
-	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS58
-	EQUAL?	PRSO,SIEGEL /?THN55
-?ELS58:	ZERO?	PRSO /?ELS54
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS54
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS54
-?THN55:	CALL	GRAB-ATTENTION,SIEGEL
+?ELS14:	CALL	ASK-ABOUT?,SIEGEL >OBJ
+	ZERO?	OBJ /?ELS54
+	CALL	GRAB-ATTENTION,SIEGEL
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,SIEGEL
-	EQUAL?	OBJ,GLOBAL-SONAR,SONAR-EQUIPMENT,SONAR-MAN \?ELS68
+	EQUAL?	OBJ,GLOBAL-SONAR,SONAR-EQUIPMENT,SONAR-MAN \?ELS62
 	PRINTI	"""I operate the "
 	PRINTD	SONAR-EQUIPMENT
 	PRINTR	"."""
-?ELS68:	EQUAL?	OBJ,BLACK-BOX \?ELS72
-	FSET?	SIEGEL,BUSYBIT \?ELS77
+?ELS62:	EQUAL?	OBJ,BLACK-BOX \?ELS66
+	FSET?	SIEGEL,BUSYBIT \?ELS71
 	CALL	I-SIEGEL-REPORTS
 	ZERO?	STACK \TRUE
-?ELS77:	PRINTI	""""
+?ELS71:	PRINTI	""""
 	CALL	SIEGEL-BOX
 	RTRUE	
-?ELS72:	CALL	COMMON-ASK-ABOUT,SIEGEL,OBJ >X
-	ZERO?	X /?ELS85
+?ELS66:	CALL	COMMON-ASK-ABOUT,SIEGEL,OBJ >X
+	ZERO?	X /?ELS79
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS85:	CALL	DONT-KNOW,SIEGEL,OBJ
+?ELS79:	CALL	DONT-KNOW,SIEGEL,OBJ
 	RSTACK	
 ?ELS54:	CALL	COMMON-OTHER,SIEGEL
 	ZERO?	STACK \TRUE
@@ -1638,39 +1591,33 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS17:	ZERO?	PRSI /?ELS47
-	SET	'OBJ,PRSI
-	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS47
-	EQUAL?	PRSO,GREENUP /?THN44
-?ELS47:	ZERO?	PRSO /?ELS43
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS43
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS43
-?THN44:	CALL	GRAB-ATTENTION,GREENUP
+?ELS17:	CALL	ASK-ABOUT?,GREENUP >OBJ
+	ZERO?	OBJ /?ELS43
+	CALL	GRAB-ATTENTION,GREENUP
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,GREENUP
-	EQUAL?	OBJ,SYRINGE,ESCAPE-POD-UNIT \?ELS57
-	IN?	ESCAPE-POD-UNIT,SUB \?ELS57
-	ZERO?	GREENUP-GUILT /?ELS64
-	FSET?	GREENUP,MUNGBIT /?ELS64
+	EQUAL?	OBJ,SYRINGE,ESCAPE-POD-UNIT \?ELS51
+	IN?	ESCAPE-POD-UNIT,SUB \?ELS51
+	ZERO?	GREENUP-GUILT /?ELS58
+	FSET?	GREENUP,MUNGBIT /?ELS58
 	CALL	PERFORM,V?ARREST,GREENUP
 	RTRUE	
-?ELS64:	CALL	DONT-KNOW-ANYTHING
+?ELS58:	CALL	DONT-KNOW-ANYTHING
 	RTRUE	
-?ELS57:	ZERO?	GREENUP-TRAPPED \?THN73
-	ZERO?	GREENUP-CUFFED /?ELS70
-?THN73:	PRINTR	"His only response is a sneer and silence."
-?ELS70:	CALL	COMMON-ASK-ABOUT,GREENUP,OBJ >X
-	ZERO?	X /?ELS78
+?ELS51:	ZERO?	GREENUP-TRAPPED \?THN67
+	ZERO?	GREENUP-CUFFED /?ELS64
+?THN67:	PRINTR	"His only response is a sneer and silence."
+?ELS64:	CALL	COMMON-ASK-ABOUT,GREENUP,OBJ >X
+	ZERO?	X /?ELS72
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS78:	CALL	DONT-KNOW,GREENUP,OBJ
+?ELS72:	CALL	DONT-KNOW,GREENUP,OBJ
 	RSTACK	
-?ELS43:	EQUAL?	PRSA,V?ASK \?ELS89
+?ELS43:	EQUAL?	PRSA,V?ASK \?ELS83
 	ZERO?	GREENUP-TRAPPED /FALSE
 	CALL	PERFORM,V?ASK-ABOUT,GREENUP,MOTIVE
 	RTRUE	
-?ELS89:	CALL	COMMON-OTHER,GREENUP
+?ELS83:	CALL	COMMON-OTHER,GREENUP
 	ZERO?	STACK \TRUE
 	RFALSE
 
@@ -1700,18 +1647,12 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 	PRINT	STACK
 	CRLF	
 	RETURN	2
-?ELS7:	ZERO?	PRSI /?ELS44
-	SET	'OBJ,PRSI
-	EQUAL?	PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS44
-	EQUAL?	PRSO,LOWELL /?THN41
-?ELS44:	ZERO?	PRSO /?ELS40
-	IN?	PRSO,GLOBAL-OBJECTS \?ELS40
-	SET	'OBJ,PRSO
-	EQUAL?	PRSA,V?WHAT,V?FIND \?ELS40
-?THN41:	CALL	GRAB-ATTENTION,LOWELL
+?ELS7:	CALL	ASK-ABOUT?,LOWELL >OBJ
+	ZERO?	OBJ /?ELS40
+	CALL	GRAB-ATTENTION,LOWELL
 	ZERO?	STACK /TRUE
 	CALL	SAID-TO,LOWELL
-	EQUAL?	OBJ,HORVAK,GLOBAL-HORVAK \?ELS54
+	EQUAL?	OBJ,HORVAK,GLOBAL-HORVAK \?ELS48
 	CALL	DISCRETION,LOWELL,HORVAK
 	PRINTI	"""He's dedicated to scientific research. He's a great marine biologist and enjoys his work here at the "
 	PRINTD	AQUADOME
@@ -1719,23 +1660,23 @@ When he said he loved me, I didn't handle it well. I lost my poise and told him
 I don't know why, but "
 	PRINTD	HORVAK
 	PRINTR	" has become moody and introverted. I've seen him writing in a private diary."""
-?ELS54:	EQUAL?	OBJ,DIARY \?ELS58
-	FSET?	DIARY,TOUCHBIT /?ELS58
+?ELS48:	EQUAL?	OBJ,DIARY \?ELS52
+	FSET?	DIARY,TOUCHBIT /?ELS52
 	CALL	DISCRETION,LOWELL,HORVAK
 	PRINTI	"""It's not in the lab. "
 	PRINTD	HORVAK
 	PRINTR	"'s always secretive about his diary. He would never leave it around where anyone might find it. It's probably in his locker, in the crew's dormitory."""
-?ELS58:	EQUAL?	OBJ,LAB-ASSISTANT \?ELS64
+?ELS52:	EQUAL?	OBJ,LAB-ASSISTANT \?ELS58
 	PRINTI	"""I'm "
 	PRINTD	HORVAK
 	PRINTI	"'s "
 	PRINTD	LAB-ASSISTANT
 	PRINTR	"."""
-?ELS64:	CALL	COMMON-ASK-ABOUT,LOWELL,OBJ >X
-	ZERO?	X /?ELS68
+?ELS58:	CALL	COMMON-ASK-ABOUT,LOWELL,OBJ >X
+	ZERO?	X /?ELS62
 	EQUAL?	X,M-FATAL \TRUE
 	RFALSE	
-?ELS68:	CALL	DONT-KNOW,LOWELL,OBJ
+?ELS62:	CALL	DONT-KNOW,LOWELL,OBJ
 	RSTACK	
 ?ELS40:	CALL	COMMON-OTHER,LOWELL
 	ZERO?	STACK \TRUE
@@ -1782,7 +1723,7 @@ He has told close friends he will soon marry an American woman named "
 	EQUAL?	HERE,CRAWL-SPACE,SUB /?ELS10
 ?THN13:	EQUAL?	L,HERE \?CND19
 	FSET?	WHAT,PERSON \?CND19
-	CALL	ALREADY,WHAT,STR?55
+	CALL	ALREADY,WHAT,STR?50
 	RTRUE	
 ?CND19:	MOVE	WHO,HERE
 	MOVE	WHAT,WHO
@@ -1799,7 +1740,7 @@ He has told close friends he will soon marry an American woman named "
 	PRINTI	"."" "
 ?CND24:	FSET?	WHAT,PERSON \?CND33
 	MOVE	WHAT,HERE
-	CALL	HE-SHE-IT,WHAT,1
+	CALL	HE-SHE-IT,WHAT,TRUE-VALUE
 	PRINTI	"'s wondering why you want to see "
 	CALL	HIM-HER-IT,WHAT
 	PRINTI	"."
@@ -1812,20 +1753,20 @@ He has told close friends he will soon marry an American woman named "
 	PRINTR	", but I don't think I can."""
 
 
-	.FUNCT	CARRY-CHECK,PERSON
-	CALL	PRINT-CONT,PERSON,1,0
+	.FUNCT	CARRY-CHECK,PER
+	CALL	PRINT-CONT,PER,TRUE-VALUE,0
 	RSTACK	
 
 
-	.FUNCT	COM-CHECK,PERSON
-	CALL	GRAB-ATTENTION,PERSON
+	.FUNCT	COM-CHECK,PER
+	CALL	GRAB-ATTENTION,PER
 	ZERO?	STACK /TRUE
 	EQUAL?	PRSA,V?ARM \?ELS7
 	EQUAL?	PRSO,GLOBAL-SUB,LOCAL-SUB \FALSE
 	PRINTI	"""Good idea, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"! How do you want to do that?"""
-?ELS7:	EQUAL?	PRSA,V?COME \?ELS16
+?ELS7:	EQUAL?	PRSA,V?WALK-TO \?ELS16
 	EQUAL?	PRSO,GLOBAL-HERE \FALSE
 	PRINTI	"""I am here, "
 	CALL	PRINT-NAME,FIRST-NAME
@@ -1839,11 +1780,11 @@ He has told close friends he will soon marry an American woman named "
 ?ELS25:	EQUAL?	PRSA,V?FIND \?ELS29
 	EQUAL?	PRSO,GLOBAL-SNARK \?ELS34
 	ZERO?	MONSTER-GONE /?ELS34
-	CALL	IS-CREW?,PERSON
+	CALL	IS-CREW?,PER
 	ZERO?	STACK \?THN37
-	EQUAL?	PERSON,BLY,GLOBAL-BLY \?ELS34
-?THN37:	SET	'TOLD-SNARK-WENT,1
-	CALL	TELL-HINT,62,SNARK,0
+	EQUAL?	PER,BLY,GLOBAL-BLY \?ELS34
+?THN37:	SET	'TOLD-SNARK-WENT,TRUE-VALUE
+	CALL	TELL-HINT,62,SNARK,FALSE-VALUE
 	RSTACK	
 ?ELS34:	RETURN	2
 ?ELS29:	EQUAL?	PRSA,V?FIX \?ELS44
@@ -1861,14 +1802,14 @@ He has told close friends he will soon marry an American woman named "
 	EQUAL?	PRSA,V?SEND-TO,V?SEND,V?BRING \?ELS68
 ?THN69:	IN?	PRSO,PLAYER \?ELS75
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?GIVE,PRSO,PERSON
+	CALL	PERFORM,V?GIVE,PRSO,PER
 	RTRUE	
 ?ELS75:	FSET?	PRSO,TRYTAKEBIT /FALSE
-	CALL	BRING-ME,PRSO,PERSON
+	CALL	BRING-ME,PRSO,PER
 	RSTACK	
 ?ELS68:	EQUAL?	PRSA,V?EXAMINE \?ELS83
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?SHOW,PERSON,PRSO
+	CALL	PERFORM,V?SHOW,PER,PRSO
 	RTRUE	
 ?ELS83:	EQUAL?	PRSA,V?FOLLOW \?ELS85
 	EQUAL?	PRSO,PLAYER \FALSE
@@ -1876,80 +1817,78 @@ He has told close friends he will soon marry an American woman named "
 ?ELS85:	EQUAL?	PRSA,V?GIVE \?ELS94
 	EQUAL?	PRSI,PLAYER \?ELS94
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?TAKE,PRSO,PERSON
+	CALL	PERFORM,V?TAKE,PRSO,PER
 	RTRUE	
 ?ELS94:	EQUAL?	PRSA,V?SGIVE \?ELS98
 	EQUAL?	PRSO,PLAYER \?ELS98
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?TAKE,PRSI,PERSON
+	CALL	PERFORM,V?TAKE,PRSI,PER
 	RTRUE	
 ?ELS98:	EQUAL?	PRSA,V?THROUGH /?THN103
 	EQUAL?	PRSA,V?LEAVE,V?WALK-TO,V?WALK /?THN103
 	EQUAL?	PRSA,V?SGIVE,V?GIVE,V?DROP \?ELS102
-?THN103:	EQUAL?	PERSON,REMOTE-PERSON /FALSE
+?THN103:	EQUAL?	PER,REMOTE-PERSON /FALSE
 	RETURN	2
 ?ELS102:	EQUAL?	PRSA,V?GOODBYE,V?HELLO \?ELS113
 	ZERO?	PRSO /?THN119
-	EQUAL?	PRSO,PERSON \FALSE
+	EQUAL?	PRSO,PER \FALSE
 ?THN119:	SET	'WINNER,PLAYER
-	CALL	PERFORM,PRSA,PERSON
+	CALL	PERFORM,PRSA,PER
 	RTRUE	
 ?ELS113:	EQUAL?	PRSA,V?HELP \?ELS122
-	EQUAL?	PRSO,0,PLAYER \?ELS127
+	EQUAL?	PRSO,FALSE-VALUE,PLAYER \?ELS127
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?ASK,PERSON
+	CALL	PERFORM,V?ASK,PER
 	RTRUE	
-?ELS127:	FSET?	PRSO,PERSON \?ELS129
-	PRINTR	"""I don't need any help."""
-?ELS129:	RETURN	2
-?ELS122:	EQUAL?	PRSA,V?INVENTORY \?ELS137
-	CALL	CARRY-CHECK,PERSON
+?ELS127:	RETURN	2
+?ELS122:	EQUAL?	PRSA,V?INVENTORY \?ELS133
+	CALL	CARRY-CHECK,PER
 	ZERO?	STACK \TRUE
-	PRINTD	PERSON
+	PRINTD	PER
 	PRINTR	" isn't holding anything."
-?ELS137:	EQUAL?	PRSA,V?LISTEN \?ELS144
-	EQUAL?	PRSO,PLAYER-NAME /?THN150
+?ELS133:	EQUAL?	PRSA,V?LISTEN \?ELS140
+	EQUAL?	PRSO,PLAYER-NAME /?THN146
 	IN?	PRSO,GLOBAL-OBJECTS /FALSE
-?THN150:	PRINTI	"""I'm trying to, "
+?THN146:	PRINTI	"""I'm trying to, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"!"""
-?ELS144:	EQUAL?	PRSA,V?SHOW \?ELS155
+?ELS140:	EQUAL?	PRSA,V?SHOW \?ELS151
 	EQUAL?	PRSO,PLAYER \FALSE
-	IN?	PRSI,PERSON \?ELS165
+	IN?	PRSI,PER \?ELS161
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?TAKE,PRSI,PERSON
+	CALL	PERFORM,V?TAKE,PRSI,PER
 	RTRUE	
-?ELS165:	PRINTI	"""I'm sure you can find "
+?ELS161:	PRINTI	"""I'm sure you can find "
 	CALL	HIM-HER-IT,PRSI
 	PRINTI	", "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
-?ELS155:	EQUAL?	PRSA,V?TELL \?ELS173
+?ELS151:	EQUAL?	PRSA,V?TELL \?ELS169
 	EQUAL?	PRSO,PLAYER \FALSE
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?ASK,PERSON
+	CALL	PERFORM,V?ASK,PER
 	RTRUE	
-?ELS173:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS180
+?ELS169:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS176
 	EQUAL?	PRSO,PLAYER \FALSE
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?ASK-ABOUT,PERSON,PRSI
+	CALL	PERFORM,V?ASK-ABOUT,PER,PRSI
 	RTRUE	
-?ELS180:	EQUAL?	PRSA,V?WAIT-FOR \?ELS187
-	EQUAL?	PRSO,PLAYER \?ELS187
+?ELS176:	EQUAL?	PRSA,V?WAIT-FOR \?ELS183
+	EQUAL?	PRSO,PLAYER \?ELS183
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?$CALL,PERSON
+	CALL	PERFORM,V?$CALL,PER
 	RTRUE	
-?ELS187:	EQUAL?	PRSA,V?TALK-ABOUT,V?WHAT \?ELS193
+?ELS183:	EQUAL?	PRSA,V?TALK-ABOUT,V?WHAT \?ELS189
 	SET	'WINNER,PLAYER
-	CALL	PERFORM,V?ASK-ABOUT,PERSON,PRSO
+	CALL	PERFORM,V?ASK-ABOUT,PER,PRSO
 	RTRUE	
-?ELS193:	EQUAL?	PRSA,V?NO,V?YES \FALSE
+?ELS189:	EQUAL?	PRSA,V?NO,V?YES \FALSE
 	PRINTC	34
-	EQUAL?	PRSA,V?YES \?ELS198
+	EQUAL?	PRSA,V?YES \?ELS194
 	PRINTI	"Glad"
-	JUMP	?CND196
-?ELS198:	PRINTI	"Sorry"
-?CND196:	PRINTI	" to hear it, "
+	JUMP	?CND192
+?ELS194:	PRINTI	"Sorry"
+?CND192:	PRINTI	" to hear it, "
 	CALL	PRINT-NAME,FIRST-NAME
 	PRINTR	"."""
 
@@ -1983,15 +1922,15 @@ He has told close friends he will soon marry an American woman named "
 ?ELS31:	EQUAL?	OBJ,VIDEOPHONE \?ELS35
 	CALL	GLOBAL-IN?,VIDEOPHONE,HERE
 	ZERO?	STACK /FALSE
-	SET	'P-WON,0
+	SET	'P-WON,FALSE-VALUE
 	GETP	OBJ,P?TEXT
 	PRINT	STACK
 	CRLF	
 	RTRUE	
 ?ELS35:	FSET?	OBJ,PERSON /FALSE
 	GETP	OBJ,P?TEXT
-	EQUAL?	STACK,STR?28 \?ELS46
-	SET	'P-WON,0
+	EQUAL?	STACK,STR?26 \?ELS46
+	SET	'P-WON,FALSE-VALUE
 	GETP	OBJ,P?TEXT
 	PRINT	STACK
 	CRLF	
@@ -2006,7 +1945,9 @@ He has told close friends he will soon marry an American woman named "
 	CALL	SHOULD-ASK,TIP,PER
 	RSTACK	
 ?ELS61:	EQUAL?	OBJ,MAGAZINE,ARTICLE \?ELS63
-	PRINTR	"""It's a magazine called 'SCIENCE WORLD.'"""
+	PRINTI	"""It's a "
+	PRINTD	MAGAZINE
+	PRINTR	" called 'SCIENCE WORLD.'"""
 ?ELS63:	EQUAL?	OBJ,CONTROL-CIRCUITS-GAUGE \?ELS67
 	PRINTI	"The "
 	PRINTD	CONTROL-CIRCUITS-GAUGE
@@ -2047,18 +1988,18 @@ The canister is in the "
 	PRINTR	"."""
 ?ELS92:	EQUAL?	OBJ,PROBLEM /?THN106
 	ZERO?	DEPTH-WARNING /?ELS109
-	EQUAL?	OBJ,DEPTHFINDER-LIGHT,ALARM /?THN106
+	EQUAL?	OBJ,DEPTHFINDER-LIGHT,ALARM-SUB /?THN106
 ?ELS109:	ZERO?	SONAR-WARNING \?THN112
 	ZERO?	SHIP-WARNING /?ELS105
-?THN112:	EQUAL?	OBJ,SONARSCOPE-LIGHT,ALARM \?ELS105
+?THN112:	EQUAL?	OBJ,SONARSCOPE-LIGHT,ALARM-SUB \?ELS105
 ?THN106:	ZERO?	DEPTH-WARNING \?THN119
 	ZERO?	SONAR-WARNING \?THN119
 	ZERO?	SHIP-WARNING /?ELS118
 ?THN119:	PRINTI	"""I think you're going too close to "
 	ZERO?	DEPTH-WARNING /?ELS127
-	PUSH	STR?98
+	PUSH	STR?93
 	JUMP	?CND123
-?ELS127:	PUSH	STR?99
+?ELS127:	PUSH	STR?94
 ?CND123:	PRINT	STACK
 	PRINTI	", "
 	CALL	PRINT-NAME,FIRST-NAME
@@ -2144,8 +2085,8 @@ The canister is in the "
 	PRINTR	"!"""
 ?ELS198:	EQUAL?	OBJ,GLOBAL-SNARK \FALSE
 	ZERO?	MONSTER-GONE /FALSE
-	SET	'TOLD-SNARK-WENT,1
-	CALL	TELL-HINT,62,SNARK,0
+	SET	'TOLD-SNARK-WENT,TRUE-VALUE
+	CALL	TELL-HINT,62,SNARK,FALSE-VALUE
 	RSTACK	
 
 
@@ -2188,7 +2129,7 @@ The canister is in the "
 	PRINTD	AIR-SUPPLY-SYSTEM
 	PRINTR	"."
 ?ELS32:	IN?	PER,GLOBAL-OBJECTS /FALSE
-	CALL	PRSO-PRINT
+	PRINTD	PER
 	PRINTR	" looks offended. ""I'm quite capable by myself, you know."""
 ?ELS25:	EQUAL?	PRSO,PER \?ELS42
 	EQUAL?	PRSA,V?RUB \?ELS42
@@ -2200,46 +2141,46 @@ The canister is in the "
 	RTRUE	
 
 
-	.FUNCT	DESCRIBE-COLLAPSE,PERSON
+	.FUNCT	DESCRIBE-COLLAPSE,PER
 	FSET?	BLY,MUNGBIT \?ELS5
-	EQUAL?	PERSON,TIP \?ELS10
+	EQUAL?	PER,TIP \?ELS10
 	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS15
-	CALL	DESCRIBE-PERSON,PERSON,STR?100
+	CALL	DESCRIBE-PERSON,PER,STR?95
 	RSTACK	
-?ELS15:	CALL	DESCRIBE-PERSON,PERSON
+?ELS15:	CALL	DESCRIBE-PERSON,PER
 	RSTACK	
-?ELS10:	EQUAL?	PERSON,BLY,LOWELL,GREENUP \?ELS19
+?ELS10:	EQUAL?	PER,BLY,LOWELL,GREENUP \?ELS19
 	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS24
-	CALL	DESCRIBE-PERSON,PERSON,STR?101
+	CALL	DESCRIBE-PERSON,PER,STR?96
 	RSTACK	
-?ELS24:	CALL	DESCRIBE-PERSON,PERSON,STR?102
+?ELS24:	CALL	DESCRIBE-PERSON,PER,STR?97
 	RSTACK	
 ?ELS19:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS33
 	ZERO?	BADGES-RED-SAID? /?ELS38
-	CALL	DESCRIBE-PERSON,PERSON,STR?103
+	CALL	DESCRIBE-PERSON,PER,STR?98
 	RSTACK	
-?ELS38:	CALL	DESCRIBE-PERSON,PERSON,STR?100
+?ELS38:	CALL	DESCRIBE-PERSON,PER,STR?95
 	RSTACK	
-?ELS33:	CALL	DESCRIBE-PERSON,PERSON
+?ELS33:	CALL	DESCRIBE-PERSON,PER
 	RSTACK	
-?ELS5:	CALL	DESCRIBE-PERSON,PERSON
+?ELS5:	CALL	DESCRIBE-PERSON,PER
 	RSTACK	
 
 
-	.FUNCT	DESCRIBE-PERSON,PERSON,STR=0
-	CALL	IS-CREW?,PERSON
+	.FUNCT	DESCRIBE-PERSON,PER,STR=0
+	CALL	IS-CREW?,PER
 	ZERO?	STACK /?ELS5
 	CALL	CREW-5-TOGETHER?
 	ZERO?	STACK /?ELS5
 	FSET?	BLY,MUNGBIT /?ELS5
-	EQUAL?	PERSON,LOWELL \FALSE
+	EQUAL?	PER,LOWELL \FALSE
 	PRINTI	"The five "
 	PRINTD	CREW
 	PRINTR	" members are here."
-?ELS5:	PRINTD	PERSON
+?ELS5:	PRINTD	PER
 	PRINTI	" is "
 	ZERO?	STR \?ELS23
-	PUSH	STR?55
+	PUSH	STR?50
 	JUMP	?CND19
 ?ELS23:	PUSH	STR
 ?CND19:	PRINT	STACK
@@ -2273,11 +2214,6 @@ The canister is in the "
 	PRINTR	" and then speaks in a whisper."
 
 
-	.FUNCT	NOT-IMPORTANT,CHAR
-	CALL	DONT-KNOW,CHAR,PROBLEM
-	RSTACK	
-
-
 	.FUNCT	DONT-KNOW,CHAR,OBJ
 	PRINTD	CHAR
 	PRINTI	" says, ""I don't think that's important right now, "
@@ -2285,16 +2221,6 @@ The canister is in the "
 	PRINTR	"."""
 
 
-	.FUNCT	FOLLOWED?,PERSON,L,?TMP1
-	LOC	PERSON >L
-	EQUAL?	L,HERE /TRUE
-	GETP	L,P?CORRIDOR >?TMP1
-	GETP	HERE,P?CORRIDOR
-	BAND	?TMP1,STACK
-	ZERO?	STACK /FALSE
-	RTRUE	
-
-
 	.FUNCT	GLOBAL-PERSON,L
 	EQUAL?	PRSA,V?WHAT,V?WALK-TO /FALSE
 	EQUAL?	PRSA,V?WAIT-FOR,V?PHONE,V?LOOK-UP /FALSE
@@ -2324,7 +2250,7 @@ The canister is in the "
 	GET	CHARACTER-TABLE,STACK
 	CALL	PERFORM,PRSA,PRSO,STACK
 	RTRUE	
-?ELS27:	SET	'P-CONT,0
+?ELS27:	SET	'P-CONT,FALSE-VALUE
 	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT /?THN35
 	ZERO?	NOW-PRSI \?ELS34
 ?THN35:	PRINTD	PRSO
diff --git a/people.zil b/people.zil
index 0d55967..946a006 100644
--- a/people.zil
+++ b/people.zil
@@ -3,21 +3,22 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 
 "Necessary Flags"
 
-;<GLOBAL LOAD-MAX 100>
-;<GLOBAL LOAD-ALLOWED 100>
+"<GLOBAL LOAD-MAX 100>
+<GLOBAL LOAD-ALLOWED 100>"
 
 "Customization"
 
 <CONSTANT NAME-LENGTH 19>
-;"<GLOBAL  GAME-NAME <ITABLE BYTE 19>>"
+"<GLOBAL  GAME-NAME <ITABLE BYTE 19>>"
 <GLOBAL FIRST-NAME <ITABLE BYTE 19>>
 <GLOBAL  LAST-NAME <ITABLE BYTE 19>>
 <GLOBAL FN-SPACE 0>
 <GLOBAL LN-SPACE 0>
 
-%<COND (<GASSIGNED? PREDGEN>
+"%<COND (<GASSIGNED? PREDGEN>"
+
+"<GLOBAL RESTORED-DURING-NAME-INPUT <>>"
 
-<GLOBAL RESTORED-DURING-NAME-INPUT <>>
 <ROUTINE READ-NAME (TBL STR "AUX" PTR LEN N NUMTOKENS TOK)
 	<TELL .STR CR>
 	<TELL ">">
@@ -38,7 +39,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		      <AGAIN>)
 		     (<EQUAL? .N ,ACT?RESTORE>
 		      <COND (<V-RESTORE>
-			     <SETG RESTORED-DURING-NAME-INPUT T>
+			     ;<SETG RESTORED-DURING-NAME-INPUT T>
 			     <RFATAL>)
 			    (T
 			     <AGAIN>)>)>)>
@@ -77,12 +78,11 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		<COND (<IGRTR? NAME-OUTLEN ,NAME-LENGTH> <RETURN>)>
 		<SET PTR <+ 1 .PTR>>>>
 
-)(T
+")(T
 
-;<ROUTINE IN-MOTION? (PERSON) <RFALSE>>
 <ROUTINE IS-CREW? (PERSON) <RFALSE>>
 
-)>
+)>"
 
 <ROUTINE PRINT-NAME (TBL "OPTIONAL" (CAP <>) "AUX" (PTR 0) LEN CH (SP? T))
 	 <SET LEN <GETB .TBL 0>>
@@ -143,7 +143,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 
 "Constants used as table offsets for each character, including the player:"
 
-<CONSTANT PLAYER-C 0>
+"<CONSTANT PLAYER-C 0>
 <CONSTANT TIP-C 1>
 <CONSTANT SHARON-C 2>
 ;<CONSTANT PERELLI-C 3>
@@ -154,32 +154,19 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <CONSTANT SIEGEL-C 8>
 <CONSTANT GREENUP-C 9>
 <CONSTANT LOWELL-C 10>
-<CONSTANT CHARACTER-MAX 10>
+<CONSTANT CHARACTER-MAX 10>"
 
 <GLOBAL CHARACTER-TABLE
-	<TABLE PLAYER TIP SHARON GLOBAL-PERELLI THORPE
+	<PTABLE PLAYER TIP SHARON GLOBAL-PERELLI THORPE
 	       BLY ANTRIM HORVAK SIEGEL GREENUP LOWELL>>
 
 <GLOBAL GLOBAL-CHARACTER-TABLE
-	<TABLE PLAYER GLOBAL-TIP GLOBAL-SHARON GLOBAL-PERELLI GLOBAL-THORPE
+	<PTABLE PLAYER GLOBAL-TIP GLOBAL-SHARON GLOBAL-PERELLI GLOBAL-THORPE
 	       GLOBAL-BLY GLOBAL-ANTRIM GLOBAL-HORVAK GLOBAL-SIEGEL
 	       GLOBAL-GREENUP GLOBAL-LOWELL>>
 
-<ROUTINE CAPITAL-NOUN? (WRD)
-	<OR <EQUAL? .WRD ,W?DOC ,W?TIP ,W?RANDALL>
-	    <EQUAL? .WRD ,W?DOC\'S ,W?TIP\'S ,W?BILL\'S>
-	    <EQUAL? .WRD ,W?KEMP\'S ,W?ZOE\'S ,W?MARV\'S>
-	    <EQUAL? .WRD ,W?SHARON ,W?KEMP ,W?ZOE>
-	    <EQUAL? .WRD ,W?BLY\'S ,W?AMY\'S ,W?FROBTON>
-	    <EQUAL? .WRD ,W?BLY ,W?AMY ,W?LOWELL>
-	    <EQUAL? .WRD ,W?MICK\'S ,W?WALT\'S>
-	    <EQUAL? .WRD ,W?MICK ,W?ANTRIM ,W?WALT>
-	    <EQUAL? .WRD ,W?DOCTOR ,W?DR ,W?MARV>
-	    <EQUAL? .WRD ,W?SIEGEL ,W?BILL ,W?GREENUP>
-	    <EQUAL? .WRD ,W?HORVAK ,W?JEROME ,W?THORPE>>>
-
 <OBJECT PLAYER
-	(IN CENTER-LAB)
+	(IN CENTER-OF-LAB)
 	(DESC "yourself" ;"famous young inventor")
 	(ADJECTIVE FAMOUS YOUNG)
 	(SYNONYM I ME MYSELF ;INVENT)
@@ -199,7 +186,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	<DO-INSTEAD-OF ,PLAYER ,PLAYER-NAME>
 	<RTRUE>>
 
-;<GLOBAL PLAYER-HIDING <>>
+;"<GLOBAL PLAYER-HIDING <>>"
 
 <ROUTINE PLAYER-F ("AUX" LON LAT)
  <COND (<DOBJ? PLAYER>
@@ -286,7 +273,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
        (<VERB? ANALYZE EXAMINE>
 	<COND (<FSET? ,ARM ,MUNGBIT>
 	       <TELL "Your arm is seriously gashed." CR>)
-	      (T <TELL "There's nothing special about" THE-PRSO "." CR>)>)>>
+	      (T <NOTHING-SPECIAL>)>)>>
 
 <OBJECT GLOBAL-TIP
 	(DESC "Tip Randall")
@@ -311,7 +298,8 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	(CHARACTER 1)>
 
 <GLOBAL TIP-PLAYS <>>
-<GLOBAL TIP-PICKS <LTABLE STATION-MONITOR WINDOW>>
+<GLOBAL TIP-PICKS <PLTABLE STATION-MONITOR WINDOW>>
+
 <ROUTINE TIP-IS-PLAYING ()
 	<TELL <COND (<==? ,TIP-PLAYS ,WINDOW> "looking out")
 		    (T "playing with")>
@@ -331,7 +319,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	      (<==? .L ,SUB>
 	       <TELL D ,TIP " is sitting behind you, ">
 	       <COND (<IN? ,MAGAZINE ,TIP>
-		      <TELL "reading a magazine." CR>)
+		      <TELL "reading a " D ,MAGAZINE "." CR>)
 		     (<NOT ,TIP-FOLLOWS-YOU?>
 		      <TELL "installing a " D ,FINE-GRID "." CR>)
 		     (T
@@ -360,10 +348,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	      (<SET X <COM-CHECK ,TIP>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <VERB? ASK-ABOUT CONFRONT> <DOBJ? TIP>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,TIP>>
 	<COND (<NOT <GRAB-ATTENTION ,TIP>> <RTRUE>)>
 	<SAID-TO ,TIP>
 	<COND (<AND <EQUAL? .OBJ ,AUTO-PILOT>
@@ -378,8 +363,10 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		      <TELL-HINT 61 ,TIP <>>)>)
 	      (<AND <EQUAL? .OBJ ,TRAITOR ,BLACK-BOX> <TIP-COMES>>
 	       <RTRUE>)
-	      (<AND <EQUAL? .OBJ ,TIP-IDEA ,GLOBAL-SONAR>
-		    <IN? ,TIP-IDEA ,GLOBAL-OBJECTS>>
+	      (<AND <EQUAL? .OBJ ,TIP-IDEA ,GLOBAL-SONAR ,GLOBAL-SIEGEL>
+		    <IN? ,TIP-IDEA ,GLOBAL-OBJECTS>
+		    <NOT ,SIEGEL-TESTED>
+		    <NOT <FSET? ,SIEGEL ,BUSYBIT>>>
 	       <TELL-HINT 13 ,SIEGEL <>>)
 	      (<EQUAL? .OBJ ,STATION-MONITOR>
 	       <TELL "\"I just like to play with it.\"" CR>)
@@ -389,13 +376,13 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 			       <NOT <==? ,NOW-TERRAIN ,SEA-TERRAIN>>>>
 		      <TELL "\"I think it's swell!\"" CR>
 		      <RTRUE>)>
-	       %<XTELL
+	       <TELL
 "\"If the " D ,SNARK " stays near the
 sea floor, "FN", it may churn up silt. Even with our " D ,SEARCH-BEAM"
 on, we might have trouble aiming a weapon. Wouldn't it be easier if we
 could spot its exact position by sonar?\"">
 	       <COND (<YES?>
-		      %<XTELL
+		      <TELL
 "\""FN", our " D ,SONARSCOPE " shows each " D ,GRID-UNIT " as 500 meters
 across. A blip indicates the APPROXIMATE position of an object. That's not
 good enough to hit the broad side of a barn! ">
@@ -429,20 +416,30 @@ D ,GRID-UNIT "s -- 0, 5, 10, or 15 meters per turn.\"" CR>)>)>)>
 	      (<SET X <COMMON-ASK-ABOUT ,TIP .OBJ>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      (T
-	       ;<OR <EQUAL? .OBJ ,GLOBAL-SUB ,LOCAL-SUB ,VOLTAGE-REGULATOR>
+	       ;"<OR <EQUAL? .OBJ ,GLOBAL-SUB ,LOCAL-SUB ,VOLTAGE-REGULATOR>
 		   <EQUAL? .OBJ ,OVERHEATING ,CONTROL-CIRCUITS ,MICROPHONE>
 		   <EQUAL? .OBJ ,ELECTROLYTE-RELAY ,MICROPHONE-DOME
 				,SPECIAL-TOOL-GLOBAL ,SPECIAL-TOOL>
-		   <EQUAL? .OBJ ,GLOBAL-SNARK ,CONTROL-CIRCUITS-GAUGE>>
-	       %<XTELL "\"You know as much as I do, "FN".\"" CR>)
+		   <EQUAL? .OBJ ,GLOBAL-SNARK ,CONTROL-CIRCUITS-GAUGE>>"
+	       <TELL "\"You know as much as I do, "FN".\"" CR>)
 	      ;(T <DONT-KNOW ,TIP .OBJ>)>)
        (<VERB? TELL-ABOUT>
 	<COND (<DOBJ? GLOBAL-SNARK>
-	       %<XTELL
+	       <TELL
 "\"I know, " FN "! We'd better go there fast in the " D ,GLOBAL-SUB "!\""
 CR>)>)
        (<COMMON-OTHER ,TIP> <RTRUE>)>>
 
+<ROUTINE ASK-ABOUT? (PER)
+ <COND (<AND <VERB? ASK-ABOUT CONFRONT>
+	     <EQUAL? ,PRSO .PER>
+	     ,PRSI>
+	,PRSI)
+       (<AND <VERB? FIND WHAT>
+	     ,PRSO
+	     <IN? ,PRSO ,GLOBAL-OBJECTS>>
+	,PRSO)>>
+
 <OBJECT GLOBAL-SHARON
 	(IN GLOBAL-OBJECTS)
 	(DESC "Sharon Kemp")
@@ -465,27 +462,26 @@ CR>)>)
        (<==? ,WINNER ,GLOBAL-SHARON>
 	<COND (<AND <VERB? FIND>
 		    <DOBJ? GLOBAL-SHARON>>
-	       %<XTELL "\"I'm in the Sea Cat.\"" CR>)
+	       <TELL "\"I'm in the " D ,THORPE-SUB ".\"" CR>)
 	      (<AND <VERB? FIND>
 		    <DOBJ? GLOBAL-SNARK>
 		    ;<==? ,REMOTE-PERSON-ON ,SONARPHONE>>
-	       %<XTELL "\"It's right here, next to me.\"" CR>)
-	      (<AND <VERB? STOP MOVE MOVE-DIR PUSH>
-		    <DOBJ? SNARK THORPE-SUB>>
+	       <TELL "\"It's right here, next to me.\"" CR>)
+	      (<AND <VERB? STOP MOVE MOVE-DIR PUSH SET>
+		    <DOBJ? ROOMS SNARK THORPE-SUB>>
 	       <TELL "\"I'm afraid I can't control it that well.\"" CR>)
 	      (<SET X <COM-CHECK ,GLOBAL-SHARON>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
-	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
+	      (T <TELL
+"\"Sorry, "FN", but I'm too busy driving this " D ,THORPE-SUB ".\"" CR>
+	       <RFATAL>)>)
        ;(<VERB? ASK> <RFALSE>)
        (<AND <EQUAL? ,REMOTE-PERSON ,GLOBAL-SHARON>
-	     <OR <AND ,PRSI <SET OBJ ,PRSI>
-		      <DOBJ? GLOBAL-SHARON> <VERB? CONFRONT ASK-ABOUT>>
-		 <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		      <VERB? FIND WHAT>>>>
+	     <SET OBJ <ASK-ABOUT? ,GLOBAL-SHARON>>>
 	;<COND (<NOT <GRAB-ATTENTION ,GLOBAL-SHARON>> <RTRUE>)>
 	<SAID-TO ,GLOBAL-SHARON>
-	<COND (<EQUAL? .OBJ ,SNARK> <TELL ,SHARON-ABOUT-MONSTER CR>)
-	      (<EQUAL? .OBJ ,THORPE-SUB> <TELL ,SHARON-ABOUT-CAT CR>)
+	<COND (<EQUAL? .OBJ ,SNARK> <SHARON-ABOUT-MONSTER> <RTRUE>)
+	      (<EQUAL? .OBJ ,THORPE-SUB> <SHARON-ABOUT-CAT> <RTRUE>)
 	      (<EQUAL? .OBJ ,GLOBAL-THORPE> <SHARON-ABOUT-THORPE> <RTRUE>)
 	      (<SET X <COMMON-ASK-ABOUT ,GLOBAL-SHARON .OBJ>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
@@ -494,7 +490,7 @@ CR>)>)
        (<AND <DOBJ? GLOBAL-SHARON>
 	     <VERB? HELLO>
 	     <EQUAL? ,REMOTE-PERSON-ON ,SONARPHONE ,INTERCOM>>
-	%<XTELL "You hear " D ,PRSO " nodding at you." CR>)
+	<TELL "You hear " D ,PRSO " nodding at you." CR>)
        (<AND <DOBJ? GLOBAL-SHARON> <VERB? LISTEN REPLY>>
 	<WAITING-FOR-YOU-TO-SPEAK>
 	<RTRUE>)
@@ -502,12 +498,16 @@ CR>)>)
 	     <VERB? PHONE>
 	     <NOT <EQUAL? ,HERE ,SUB ,CRAWL-SPACE>>
 	     <NOT ,SUB-IN-DOME ;<IN-DOME? ,HERE>>>
-	%<XTELL "There's no phone line to where she is." CR>)
+	<TELL "There's no phone line to where she is." CR>)
        (<AND <DOBJ? GLOBAL-SHARON> <VERB? READ>>
-	%<XTELL
-"That's just a figure of speech! Try the command: SHARON, HELLO." CR>)
+	<FIGURE-OF-SPEECH>
+	<RTRUE>)
        (T <GLOBAL-PERSON>)>>
 
+<ROUTINE FIGURE-OF-SPEECH ()
+	<TELL
+"That's just a figure of speech! Try the command: SAY \"HELLO.\"" CR>>
+
 <OBJECT SHARON
 	(IN OFFICE)
 	(DESC "Sharon Kemp")
@@ -523,16 +523,16 @@ CR>)>)
 ;<GLOBAL SHARON-CALLED <>>
 
 <ROUTINE DONT-KNOW-ANYTHING ()
-	%<XTELL "\"Uh . . . I don't know anything about it.\"" CR>>
+	<TELL "\"Uh . . . I don't know anything about it.\"" CR>>
 
 <ROUTINE SHARON-F ("OPTIONAL" (ARG <>) "AUX" OBJ (L <LOC ,SHARON>) X)
  <COND (<==? .ARG ,M-OBJDESC>
 	<COND ;(<IN-MOTION? ,SHARON> <RTRUE>)
 	      (<IN? ,SHARON ,OFFICE>
-	       %<XTELL "Sharon is looking through the file drawer." CR>)
+	       <TELL "Sharon is looking through the file drawer." CR>)
 	      (<AND <IN? ,SHARON ,HERE> <IN? ,HERE ,ROOMS>>
-	       %<XTELL "Sharon is pacing back and forth." CR>)
-	      (T %<XTELL "Sharon is sitting on the " D <LOC ,SHARON> "." CR>)>
+	       <TELL "Sharon is pacing back and forth." CR>)
+	      (T <TELL "Sharon is sitting on the " D <LOC ,SHARON> "." CR>)>
 	;<CARRY-CHECK ,SHARON>)
        (<==? ,WINNER ,SHARON>
 	<COND (<VERB? FIND>
@@ -540,7 +540,7 @@ CR>)>)
 		      <PERFORM ,V?ASK-ABOUT ,SHARON ,MAGAZINE>
 		      <RTRUE>)
 		     (<DOBJ? GLOBAL-THORPE>
-		      %<XTELL
+		      <TELL
 "Sharon looks surprised. \"I don't know, " FN ".\"" CR>)>)
 	      (<AND <VERB? LOOK-INSIDE> <DOBJ? FILE-DRAWER>>
 	       <SETG WINNER ,PLAYER>
@@ -548,31 +548,28 @@ CR>)>)
 	       <RTRUE>)
 	      (<SET X <COM-CHECK ,SHARON>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
-	      (T %<XTELL "\"I'm too busy right now.\"" CR>)>)
+	      (T <TELL "\"I'm too busy right now.\"" CR>)>)
        (<AND <VERB? ASK> <IN? ,SHARON ,OFFICE>>
 	<PERFORM ,V?ASK-ABOUT ,SHARON ,FILE-DRAWER>
 	<RTRUE>)
-       (<OR <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>
-	    <AND ,PRSI <SET OBJ ,PRSI>
-		 <DOBJ? SHARON> <VERB? CONFRONT ASK-ABOUT>>>
+       (<SET OBJ <ASK-ABOUT? ,SHARON>>
 	<COND (<NOT <GRAB-ATTENTION ,SHARON>> <RTRUE>)>
 	<SAID-TO ,SHARON>
 	<COND (<AND <EQUAL? .OBJ ,MAGAZINE ,ARTICLE>
 		    <EQUAL? <LOC ,MAGAZINE> ,SHARON ,PLAYER>>
-	       %<XTELL "\"Uh . . . That's not the magazine I'm looking for.\""
-		       ;"\"I've never seen it before.\"" CR>)
+	       <TELL
+"\"Uh . . . That's not the " D ,MAGAZINE " I'm looking for.\"" CR>)
 	      (<AND <EQUAL? .OBJ ,CIRCUIT-BREAKER ,ELECTRICAL-CONTROL-PANEL>
 		    ,SHARON-BROKE-CIRCUIT>
 	       <DONT-KNOW-ANYTHING>)
 	      (<EQUAL? .OBJ ,CATALYST-CAPSULE>
-	       %<XTELL "\"Uh . . . I guess I forgot about it. Sorry.\"" CR>)
+	       <TELL "\"Uh . . . I guess I forgot about it. Sorry.\"" CR>)
 	      (<EQUAL? .OBJ ,GLOBAL-SHARON ,SHARON>
-	       %<XTELL "\"You know me well and trust me completely.\"" CR>)
+	       <TELL "\"You know me well and trust me completely.\"" CR>)
 	      (<OR <EQUAL? .OBJ ,PROBLEM>
 		   ;<AND ,SHARON-CALLED
 			<EQUAL? .OBJ ,TELEPHONE ,GLOBAL-CALL>>>
-	       %<XTELL
+	       <TELL
 "\"Sorry, " FN ", but I just got word that my mother is ill. They want
 me to come to the hospital at once.">
 	       ;<COND (,SHARON-CALLED
@@ -581,7 +578,7 @@ me to come to the hospital at once.">
 	       <TELL "\"" CR>)
 	      (<OR <EQUAL? .OBJ ,ARTICLE>
 		   <EQUAL? .OBJ ,FILE-DRAWER ,PAPERS ,MAGAZINE>>
-	       %<XTELL
+	       <TELL
 "\"I can't find the " D ,MAGAZINE " I bought for my mother this morning. I
 thought it might be in the " D ,FILE-DRAWER ". I wanted to take it to the
 hospital for her to read. I really must rush off, "FN"!\"" CR>)
@@ -599,7 +596,7 @@ hospital for her to read. I really must rush off, "FN"!\"" CR>)
        (<COMMON-OTHER ,SHARON> <RTRUE>)>>
 
 <GLOBAL SHARON-ASKED
-	<LTABLE "\"I can't help you there.\""
+	<PLTABLE "\"I can't help you there.\""
 		"\"That has nothing to do with me.\"">>
 
 <OBJECT GLOBAL-BLY
@@ -624,12 +621,12 @@ hospital for her to read. I really must rush off, "FN"!\"" CR>)
 	<ENABLE <QUEUE I-SHARON-TO-HALLWAY 6 ;12>>
 	<SAID-TO ,GLOBAL-BLY>
 	<THIS-IS-IT ,GLOBAL-SNARK>
-	%<XTELL
+	<TELL
 FN "! Our transparent dome enclosing the " ,URS
 " is being battered by a huge monster!\"" CR>>
 
 <ROUTINE MIKE-2-F ()
-	 %<XTELL
+	 <TELL
 "\"The " D ,SNARK "'s gone for now, " FN ". It's no longer in sight.">>
 
 <ROUTINE GLOBAL-BLY-F ("OPTIONAL" (ARG <>) "AUX" OBJ L X)
@@ -637,8 +634,8 @@ FN "! Our transparent dome enclosing the " ,URS
  <COND (<==? .ARG ,M-OBJDESC>
 	<COND (<EQUAL? .L ,CENTER-OF-LAB>
 	       <COND (,WOMAN-ON-SCREEN
-		      %<XTELL "You can't tell who the woman is." CR>)
-		     (T %<XTELL
+		      <TELL "You can't tell who the woman is." CR>)
+		     (T <TELL
 "You can see a picture of " D ,BLY " on the " D ,REMOTE-PERSON-ON "." CR>)>)>)
        (<AND <EQUAL? .L ,CENTER-OF-LAB>
 	     <SPEAKING-VERB?>
@@ -647,13 +644,13 @@ FN "! Our transparent dome enclosing the " ,URS
 		 <NOT <FSET? ,MICROPHONE ,ONBIT>>>>
 	<SETG P-CONT <>>
 	<THIS-IS-IT ,MICROPHONE>
-	%<XTELL "She can't hear you unless you ">
+	<TELL "She can't hear you unless you ">
 	<COND (<NOT <IN? ,MICROPHONE ,PLAYER>>
-	       %<XTELL "pick up your " D ,MICROPHONE>
+	       <TELL "pick up your " D ,MICROPHONE>
 	       <COND (<NOT <FSET? ,MICROPHONE ,ONBIT>>
-		      %<XTELL " and switch it on">)>
-	       %<XTELL "." CR>)
-	      (T %<XTELL "switch on your " D ,MICROPHONE "." CR>)>)
+		      <TELL " and switch it on">)>
+	       <TELL "." CR>)
+	      (T <TELL "switch on your " D ,MICROPHONE "." CR>)>)
        (<AND <NOT ,BLY-TOLD-PROBLEM>	;<FSET? ,GLOBAL-SNARK ,INVISIBLE>
 	     <NOT <VERB? GOODBYE LISTEN>>
 	     <NOT ,MONSTER-GONE>
@@ -668,7 +665,7 @@ FN "! Our transparent dome enclosing the " ,URS
        (<==? ,WINNER ,GLOBAL-BLY>
 	<COND (<AND <VERB? FIND>
 		    <DOBJ? GLOBAL-BLY>>
-	       %<XTELL "\"I'm at the " D ,AQUADOME ".\"" CR>)
+	       <TELL "\"I'm at the " D ,AQUADOME ".\"" CR>)
 	      (<AND <DOBJ? PLAYER>
 		    <==? ,P-ADVERB ,W?PRIVATELY>
 		    <OR <AND <VERB? TELL>>
@@ -685,7 +682,7 @@ may return any time.\"" CR>)
 		     (,MONSTER-GONE
 		      <MIKE-2-F>
 		      <TELL "\"" CR>)
-		     (T %<XTELL
+		     (T <TELL
 "The " D ,AQUADOME "'s camera pans, and the monster comes into
 view on your " D ,VIDEOPHONE " screen. It resembles a huge sea slug, about
 5 meters tall. Its clawed tentacles pound and scratch at the dome." CR>)>)
@@ -699,29 +696,29 @@ view on your " D ,VIDEOPHONE " screen. It resembles a huge sea slug, about
 		      <MIKE-2-F>
 		      <TELL "\"" CR>)
 		     (<OR <DOBJ? GLOBAL-EXPLOSIVE> <IOBJ? GLOBAL-EXPLOSIVE>>
-		      %<XTELL
+		      <TELL
 "\"Setting off explosions so close might damage the
 " D ,AQUADOME " even worse than the Snark is doing.\"" CR>)
-		     (T %<XTELL
+		     (T <TELL
 "\"" FN ", this is a peaceful research facility. We
 have no weapons.\"" CR>)>)
 	      (<AND <VERB? SEND SEND-OUT> <DOBJ? GLOBAL-SUB>>
-	       %<XTELL
+	       <TELL
 "\"No subs are stationed here at the " D ,AQUADOME ", " FN ".\"" CR>)
 	      (<AND <DOBJ? DISTRESS-CALL>
 		    <OR <VERB? SEND>
 			<AND <VERB? SEND-TO> <IOBJ? GLOBAL-SUB>>>>
-	       %<XTELL
+	       <TELL
 "\"No response to our " D ,SONARPHONE " " D ,DISTRESS-CALL "s.\"" CR>)
 	      (<AND <DOBJ? GLOBAL-SUB>
 		    <OR <VERB? FIND>
 			<AND <VERB? FIND-WITH> <IOBJ? GLOBAL-SONAR>>>>
-	       %<XTELL
-"\"Sonar pulses show no echo blips on the " D ,SONARSCOPE ".\"" CR>)
+	       <TELL
+"\"No blips appear on the " D ,SONAR-EQUIPMENT ".\"" CR>)
 	      (<OR <VERB? LEAVE DISEMBARK>
-		   <AND <VERB? COME>
+		   <AND <VERB? WALK-TO ;COME>
 			<DOBJ? GLOBAL-SURFACE YOUR-LABORATORY GLOBAL-HERE>>>
-	       %<XTELL
+	       <TELL
 "\"Our emergency escape bell would be vulnerable to a monster
 as big as the Snark. Ditto for SCUBA gear, deep-sea diving suits, or
 jet-propelled observation bubbles.\"" CR>)
@@ -735,24 +732,17 @@ jet-propelled observation bubbles.\"" CR>)
 	       <RTRUE>)
 	      (<OR <AND <VERB? WAIT-FOR> ;<EQUAL? ,PRSO <> ,PLAYER>>
 		   <AND <VERB? FIND ;"LOOK FOR"> <DOBJ? PLAYER>>>
-	       %<XTELL "\"Okay, "FN", but hurry!\"" CR>)
+	       <TELL "\"Okay, "FN", but hurry!\"" CR>)
 	      (<SET X <COM-CHECK ,GLOBAL-BLY>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
        (<AND <EQUAL? ,REMOTE-PERSON ,GLOBAL-BLY>
-	     <OR <AND ,PRSI <SET OBJ ,PRSI>
-		      <DOBJ? GLOBAL-BLY> <VERB? CONFRONT ASK-ABOUT>>
-		 <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		      <VERB? FIND WHAT>>>>
+	     <SET OBJ <ASK-ABOUT? ,GLOBAL-BLY>>>
 	;<COND (<NOT <GRAB-ATTENTION ,GLOBAL-BLY>> <RTRUE>)>
 	<SAID-TO ,GLOBAL-BLY>
-	<COND ;(<EQUAL? .OBJ ,GLOBAL-BLY>
-	       <TELL 
-"\"I'm the commander of the " ,URS ". If you want to
-know more, look in the personnel file.\"" CR>)
-	      (<EQUAL? .OBJ ,PROBLEM>
+	<COND (<EQUAL? .OBJ ,PROBLEM>
 	       <COND (<EQUAL? .L ,SUB>
-		      %<XTELL
+		      <TELL
 "\"I'll tell you when we can talk privately.\"" CR>)
 		     ;(,MONSTER-GONE
 		      <MIKE-2-F>
@@ -763,25 +753,23 @@ attack at any time!
 		      <PERFORM ,V?TELL-ABOUT ,GLOBAL-BLY ,GLOBAL-SUB>
 		      <RTRUE>)
 		     (T
-		      ;<SETG BLY-TOLD-PROBLEM T>
-		      ;<FCLEAR ,GLOBAL-SNARK ,INVISIBLE>
 		      <TELL "\"">
 		      <BLY-TELLS-PROBLEM>)>)
 	      (<EQUAL? .OBJ ,GLOBAL-SNARK>
 	       <COND (<EQUAL? ,REMOTE-PERSON-ON ,SONARPHONE>
 		      <MOVE ,PRIVATE-MATTER ,GLOBAL-OBJECTS>
 		      <INC BLY-PRIVATELY-COUNT>
-		      %<XTELL
+		      <TELL
 "\"There have been no new attacks, "FN". But the creature may come back. And">
 		      <DISCUSS-PRIVATE>)
 		     (T
-		      %<XTELL
+		      <TELL
 "\"Some of our divers saw it while exploring the undersea environment. They
 nicknamed it the Snark. This is the first time it has approached the " D ,AQUADOME ",
 and it may be the last time, " FN "! I'm not sure how long our plastic dome
 enclosure c">
 		      <COND (,MONSTER-GONE <TELL "ould">) (T <TELL "an">)>
-		      %<XTELL " withstand such a battering!\"" CR>)>
+		      <TELL " withstand such a battering!\"" CR>)>
 	       <RTRUE>)
 	      (<SET X <COMMON-ASK-ABOUT ,GLOBAL-BLY .OBJ>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
@@ -790,11 +778,11 @@ enclosure c">
        (<VERB? ASK $CALL>
 	<TELL "\"Ask me about something in particular, "FN".\"" CR>)
        (<AND ,WOMAN-ON-SCREEN <VERB? EXAMINE>>
-	%<XTELL "You can't tell who the woman is." CR>)
+	<TELL "You can't tell who the woman is." CR>)
        (<AND <DOBJ? GLOBAL-BLY>
 	     <VERB? HELLO>
 	     <EQUAL? ,REMOTE-PERSON-ON ,SONARPHONE ,INTERCOM>>
-	%<XTELL "You hear " D ,PRSO " nodding at you." CR>)
+	<TELL "You hear " D ,PRSO " nodding at you." CR>)
        (<AND <VERB? GOODBYE>
 	     ;<EQUAL? ,REMOTE-PERSON-ON ,VIDEOPHONE>>
 	<TELL "\"I hope to see you soon, " FN ".\"" CR>
@@ -810,11 +798,11 @@ enclosure c">
 	     <NOT ,SUB-IN-DOME ;<IN-DOME? ,HERE>>>
 	<RFALSE>)
        (<AND <DOBJ? GLOBAL-BLY> <VERB? READ>>
-	%<XTELL
-"That's just a figure of speech! Try the command: BLY, HELLO." CR>)
+	<FIGURE-OF-SPEECH>
+	<RTRUE>)
        (<VERB? TELL-ABOUT>
 	<COND (<IOBJ? GLOBAL-SUB>
-	       %<XTELL
+	       <TELL
 "\"The only submarine capable of hunting it at such depths is
 your " D ,GLOBAL-SUB ". Please send us that!\"" CR>)>)
        (<COMMON-OTHER ,GLOBAL-BLY> <RTRUE>)
@@ -841,7 +829,7 @@ your " D ,GLOBAL-SUB ". Please send us that!\"" CR>)>)
  <COND (<==? .ARG ,M-OBJDESC>
 	<DESCRIBE-COLLAPSE ,BLY>)
        (<AND ,DOME-AIR-BAD? <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
-	%<XTELL
+	<TELL
 "\"Never mind me, " FN "!\" she cries. \"S-S-Something's wrong with the "
 D ,AIR-SUPPLY-SYSTEM "! ... F-Fix it -- or we'll all s-s-soon be ...\"" CR>
 	<RFATAL>)
@@ -849,7 +837,7 @@ D ,AIR-SUPPLY-SYSTEM "! ... F-Fix it -- or we'll all s-s-soon be ...\"" CR>
 	;<FSET ,BLY ,TOUCHBIT>
 	<COND (<NOT <GRAB-ATTENTION ,BLY>> <RTRUE>)
 	      (<AND <VERB? FIND> <DOBJ? PHOTO> <NOT ,BLY-SAW-PHOTO>>
-	       %<XTELL
+	       <TELL
 "\"It's either on his person or in his locker, in the
 dormitory.\"" CR>)
 	      (<AND <VERB? GIVE> <DOBJ? JOB> <IOBJ? SIEGEL GLOBAL-SIEGEL>>
@@ -883,10 +871,10 @@ where the " D ,SONAR-EQUIPMENT "is.\"">
 	       <SETG WINNER ,PLAYER>
 	       <PERFORM ,V?ASK-ABOUT ,BLY ,PRSI>
 	       <RTRUE>)
-	      (<OR <AND <DOBJ? PLAYER>
-			<==? ,P-ADVERB ,W?PRIVATELY>
-			<OR <VERB? TELL>
-			    <AND <VERB? TELL-ABOUT> <IOBJ? PRIVATE-MATTER>>>>>
+	      (<AND <DOBJ? PLAYER>
+		    <==? ,P-ADVERB ,W?PRIVATELY>
+		    <OR <VERB? TELL>
+			<AND <VERB? TELL-ABOUT> <IOBJ? PRIVATE-MATTER>>>>
 	       <SETG WINNER ,PLAYER>
 	       <ASK-BLY-ABOUT-PRIVATE-MATTER>
 	       <RTRUE>)
@@ -904,7 +892,7 @@ where the " D ,SONAR-EQUIPMENT "is.\"">
        (<AND <VERB? ASK-ABOUT TELL-ABOUT>
 	     <IOBJ? GLOBAL-SUB LOCAL-SUB VOLTAGE-REGULATOR OVERHEATING
 		    CONTROL-CIRCUITS CONTROL-CIRCUITS-GAUGE>>
-	%<XTELL
+	<TELL
 "\"You mean the problem you had on the way here? Shall I ask Mick to
 check on it?\"">
 	<COND (<NOT <YES?>> <RTRUE>)>
@@ -912,10 +900,7 @@ check on it?\"">
 	<SETG WINNER ,ANTRIM>
 	<PERFORM ,V?FIX ,GLOBAL-SUB>
 	<RTRUE>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <DOBJ? BLY> <VERB? CONFRONT ASK-ABOUT>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,BLY>>
 	<COND (<NOT <GRAB-ATTENTION ,BLY>> <RTRUE>)>
 	<SAID-TO ,BLY>
 	<FSET ,BLY ,TOUCHBIT>
@@ -937,31 +922,30 @@ check on it?\"">
 "\"I'm worried that the " D ,SNARK " may attack again, "FN".\"" CR>
 		      ;<DONT-KNOW ,BLY .OBJ>)>)
 	      (<EQUAL? .OBJ ,DIARY>
-	       %<XTELL "\"I think that I can guess what's in it.\"" CR>)
+	       <TELL "\"I think that I can guess what's in it.\"" CR>)
 	      (<EQUAL? .OBJ ,REASON ,PHOTO>
 	       <COND (<EQUAL? .OBJ ,PHOTO> <SETG BLY-SAW-PHOTO T>)>
 	       <DISCRETION ,BLY ,HORVAK>
-	       %<XTELL
+	       <TELL
 "\"A friend took a picture of me just before I was assigned here.
 I usually keep it on my desk, but a few days after Doc came on to me,
 I realized it was gone.">
 	       <COND (<NOT ,BLY-SAW-PHOTO>
 		      <TELL " It still hasn't turned up.">)>
-	       %<XTELL
+	       <TELL
 " I think Doc took it. He wanted a picture of me.\"" CR>)
 	      (<EQUAL? .OBJ ,EVIDENCE ,BLACK-BOX>
 	       <COND (<NOT ,ZOE-MENTIONED-EVIDENCE>
 		      <ASK-BLY-ABOUT-PRIVATE-MATTER>
 		      <RTRUE>)>
-	       %<XTELL
+	       <TELL
 "\"I wanted to make sure the " D ,SONAR-EQUIPMENT " would warn us if the "
 D ,SNARK "
 approached again. I was worried because the blips on the scope looked fuzzy,
 as if the system was out of alignment. When I inspected it, I found someone
 had secretly attached ">
 	       <COND (<NOT <IN? ,BLACK-BOX ,BLY-DESK>>
-		      <TELL "th"
-			    <COND (<IN? ,BLACK-BOX ,BLY> "is ") (T "at ")>
+		      <TELL <COND (<IN? ,BLACK-BOX ,BLY> "this ") (T "that ")>
 			    D ,BLACK-BOX>)
 		     (T <TELL "this device">)>
 	       <TELL " to it!\"" CR>
@@ -981,12 +965,12 @@ had secretly attached ">
 		      <TELL "\"">)
 		     (T
 		      <DISCRETION ,BLY ,SIEGEL ,ANTRIM>
-		      %<XTELL
+		      <TELL
 "\"I bet you're wondering if he could have attached that " D ,BLACK-BOX
 " to the " D ,SONAR-EQUIPMENT ".|
 I agree that he had the opportunity, but all I can say, " FN ", is that he's
 no troublemaker like " D ,ANTRIM "." CR>)>
-	       %<XTELL
+	       <TELL
 "He's a great diver and a skilled electronics engineer.|
 I think he really enjoys exploring the undersea
 environment. He discovered that " D ,ORE-NODULES "
@@ -998,35 +982,36 @@ the " ,URS " of " D ,IU-GLOBAL ".">
 			  <IN? ,BLACK-BOX ,BLY-DESK>>
 		      <TELL "\"" CR>)
 		     (T
-		      %<XTELL
+		      <TELL
 " But I do have a plan
 that will help us find out. Do you want to hear it, " FN "?\"">
 		      <MOVE ,BLY-PLAN ,GLOBAL-OBJECTS>
 		      <COND (<NOT <YES?>> <RTRUE>)>
+		      <QUEUE I-TIP-SONAR-PLAN 0>
 		      <TELL-HINT 13 ;18 ,SIEGEL <>>
 		      ;<PERFORM ,V?ASK-ABOUT ,BLY ,BLY-PLAN>
 		      <RTRUE>)>)
 	      (<EQUAL? .OBJ ,BLY-PLAN>
 	       <TELL-HINT 13 ;18 ,SIEGEL <>>)
 	      (<EQUAL? .OBJ ,ANTRIM ,GLOBAL-ANTRIM>
-	       %<XTELL
+	       <TELL
 "Just hearing Antrim's name makes her eyes flash fire, and she
 clenches her fists. You can tell she's had a hard time keeping her
 temper when dealing with Antrim.|">
 	       <DISCRETION ,BLY ,ANTRIM>
-	       %<XTELL
+	       <TELL
 "\"" FN ", that redheaded troublemaker's been nothing but bad news since
 the day I arrived! He's always got a chip on his shoulder and looks
 for ways to embarrass me or start a fight.">
 	       <COND (,ANTRIM-EXPLODED
 		      <TELL
 " You heard his remarks about the " D ,OXYGEN-GEAR ".">)>
-	       %<XTELL
+	       <TELL
 " Most of
 the time he complains about discipline, but whenever I ease up he's always the
 first to accuse me of laxity!\"" CR>)
 	      (<EQUAL? .OBJ ,ORE-NODULES>
-	       %<XTELL
+	       <TELL
 "\"Oops, I forgot you hadn't heard about it, " FN ". I was
 about to report it when we were attacked.
 " D ,SIEGEL " discovered it by accident. The ore is mostly
@@ -1034,13 +1019,13 @@ manganese and iron, but there's gold and platinum, and there may
 be traces of rare earths, too.
 This could be the richest payoff yet from the " D ,AQUADOME "!\"" CR>)
 	      (<EQUAL? .OBJ ,SPECIAL-TOOL ;,SPECIAL-TOOL-GLOBAL>
-	       %<XTELL "\"That belongs on the " D ,HOOK "!">
+	       <TELL "\"That belongs on the " D ,HOOK "!">
 	       <COND (<IN? ,SPECIAL-TOOL ,BLY-OFFICE>
 		      <TELL
 " Why is it in my office? It hasn't been there long! When I ">
 		      <COND (<EQUAL? ,HERE ,BLY-OFFICE> <TELL "came back ">)
 			    (T <TELL "went back t">)>
-		      %<XTELL ;"that black box"
+		      <TELL ;"that black box"
 "here to put something
 in a drawer, I knocked a pen off my desk.
 I had to stoop down to find it. Had that wrench
@@ -1052,10 +1037,11 @@ been lying under my desk, I would have seen it!">)>
 		     (T
 		      <SETG ZOE-BLUSHING T>
 		      <DISCRETION ,BLY ,HORVAK>
-		      <TELL "\"I bet you're wondering if he">
+		      <TELL
+"\"I wonder if he sabotaged the " D ,AIR-SUPPLY-SYSTEM>
 		      <COND (<NOT ,HORVAK-FIXED-AIR>
-			     <TELL " ditched the wrench there after he">)>
-		      <TELL " sabotaged the " D ,AIR-SUPPLY-SYSTEM "?">
+			     <TELL " and then ditched the wrench there">)>
+		      <TELL "?">
 		      <COND (<NOT ,HORVAK-FIXED-AIR>
 			     <TELL
 " He had the opportunity: he could have tossed it there when he came to
@@ -1070,14 +1056,14 @@ Zoe blushes and her voice trembles with emotion as she speaks." CR>)>)
 	       <HE-SHE-IT .OBJ T>
 	       <TELL "'s an excellent diver.\"" CR>)
 	      (<EQUAL? .OBJ ,GREENUP ,GLOBAL-GREENUP>
-	       %<XTELL "\"I never would have suspected him!\"" CR>)
+	       <TELL "\"I never would have suspected him!\"" CR>)
 	      (<AND <NOT <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
 		    <EQUAL? .OBJ ,AIR-SUPPLY-SYSTEM ,AIR-SUPPLY-SYSTEM-GLOBAL
 				 ,GLOBAL-SABOTAGE>>
 	       <COND (<IN? ,CREW ,HERE>
-		      %<XTELL
+		      <TELL
 "Zoe shoots a troubled glance at her five crew members.|">)>
-	       %<XTELL
+	       <TELL
 "\"Once we saw your " D ,SEARCH-BEAM " beam, " FN ", we were all
 watching for your arrival outside the dome. Any one of us could have
 tampered with the " D ,AIR-SUPPLY-SYSTEM " without being noticed.\"|
@@ -1088,7 +1074,7 @@ tampered with the " D ,AIR-SUPPLY-SYSTEM " without being noticed.\"|
 also took that " D ,SPECIAL-TOOL "!\"|">
 	       <COND (<IN? ,ANTRIM ,HERE>
 		      <SETG ANTRIM-EXPLODED T>
-		      %<XTELL
+		      <TELL
 D ,ANTRIM " explodes: \"That shows you what kind of a commander Bly is!
 Regulations state that EVERYONE has to wear " D ,OXYGEN-GEAR " all the time.
 But neither of those two divers were wearing theirs! Bly wasn't even wearing
@@ -1109,7 +1095,7 @@ HER OWN!\"" CR>)>
 	<COND (<AND <NOT ,DOME-AIR-BAD?>
 		    <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
 	       <MOVE ,ANTRIM ,HERE>
-	       %<XTELL
+	       <TELL
 "As you turn to leave with " D ,BLY ", " D ,ANTRIM " explodes
 angrily:|
 \"What's so private, 'Captain Bly'? If you have a complaint, why not spill
@@ -1129,7 +1115,7 @@ action, you'll be the first to -- to --\"|
 
 <ROUTINE DOC-IN-LOVE ()
 	<DISCRETION ,BLY ,HORVAK>
-	%<XTELL
+	<TELL
 "\"This is embarrassing. Doc's in love with me, or so he says.|
 When he said he loved me, I didn't handle it well. I lost my poise
 and told him this was a scientific research station,
@@ -1163,9 +1149,9 @@ D ,LAB-ASSISTANT ".\"" CR>>
 	       <ENABLE <QUEUE I-SIEGEL-REPORTS 4>>)>
 	<TELL "\"" CR "Zoe sends " D ,SIEGEL " into the " D .PLACE "." CR>>
 
-<ROUTINE IS-CREW? (PERSON)
-	<OR <EQUAL? .PERSON ,LOWELL ,ANTRIM ,HORVAK>
-	    <EQUAL? .PERSON ,SIEGEL ,GREENUP>>>
+<ROUTINE IS-CREW? (PER)
+	<OR <EQUAL? .PER ,LOWELL ,ANTRIM ,HORVAK>
+	    <EQUAL? .PER ,SIEGEL ,GREENUP>>>
 
 <ROUTINE CREW-5-TOGETHER? ("AUX" (L <LOC ,LOWELL>))
  <COND (<AND <==? .L <LOC ,ANTRIM>>
@@ -1202,7 +1188,7 @@ D ,LAB-ASSISTANT ".\"" CR>>
 <GLOBAL ASKED-ANTRIM <>>
 <GLOBAL ANTRIM-CHECKED-SUB <>>
 
-<ROUTINE ANTRIM-F ("OPTIONAL" (ARG <>) "AUX" OBJ X (L <LOC ,ANTRIM>))
+<ROUTINE ANTRIM-F ("OPTIONAL" (ARG <>) "AUX" OBJ X SUB0 SUB1)
  <COND (<==? .ARG ,M-OBJDESC>
 	<COND (<IN? ,ANTRIM ,AIRLOCK>
 	       <DESCRIBE-PERSON ,ANTRIM "working on the SCIMITAR">)
@@ -1214,37 +1200,39 @@ D ,LAB-ASSISTANT ".\"" CR>>
 		    <DOBJ? GLOBAL-SUB LOCAL-SUB VOLTAGE-REGULATOR OVERHEATING
 			   CONTROL-CIRCUITS CONTROL-CIRCUITS-GAUGE>>
 	       <COND (,ANTRIM-CHECKED-SUB
-		      %<XTELL "\"I already did that!\"" CR>
+		      <TELL "\"I already did that!\"" CR>
 		      <RTRUE>)>
 	       <MOVE ,BLY ,HERE>
 	       <SETG ASKED-ANTRIM T>
 	       <I-ANTRIM-TO-SUB "\"Wilco, ">
-	       %<XTELL
+	       <TELL
 "But " D ,BLY " has heard your order. \"Please remember, " FN ",\"
 she says, \"while Mick is working on your " D ,SUB ", it'll
 be out of action. The " D ,SNARK " may return at any time, and we'll
 be defenseless! Are you sure you want to repair the
 " D ,SUB " now?\"">
 	       <COND (<YES?>
-		      <COND (<OR <NOT <==? ,BAZOOKA <GET ,ON-SUB 0>>>
-				 <NOT <==? ,DART <GET ,ON-SUB 1>>>>
-			     %<XTELL
+		      <SET SUB0 <GET ,ON-SUB 0>>
+		      <SET SUB1 <GET ,ON-SUB 1>>
+		      <COND (<OR <NOT <==? ,BAZOOKA .SUB0>>
+				 <NOT <==? ,DART .SUB1>>>
+			     <TELL
 "\"Then why not use the time to arm the " D ,SUB>
-			     <COND (<OR <==? ,BAZOOKA <GET ,ON-SUB 0>>
-					<==? ,DART <GET ,ON-SUB 1>>>
+			     <COND (<OR <==? ,BAZOOKA .SUB0>
+					<==? ,DART .SUB1>>
 				    <TELL " better">)>
-			     %<XTELL "?\" Zoe goes on." CR>
-			     <COND (<NOT <==? ,BAZOOKA <GET ,ON-SUB 0>>>
+			     <TELL "?\" Zoe goes on." CR>
+			     <COND (<NOT <==? ,BAZOOKA .SUB0>>
 				    <TELL-HINT 73 ;22 ,CLAW <>>)>
-			     <COND (<NOT <==? ,DART <GET ,ON-SUB 1>>>
+			     <COND (<NOT <==? ,DART .SUB1>>
 				    <TELL-HINT 72 ;23 ,DART ;<>>)>
 			     <SETG BLY-PRIVATELY-DELAY T>
-			     %<XTELL "|
+			     <TELL "|
 \"If you want to consider your options">
-			     %<XTELL ", let's go to">
-			     <COND (<NOT <==? ,DART <GET ,ON-SUB 1>>>
+			     <TELL ", let's go to">
+			     <COND (<NOT <==? ,DART .SUB1>>
 				    <TELL " the " D ,DOME-LAB>)
-				   (<NOT <==? ,BAZOOKA <GET ,ON-SUB 0>>>
+				   (<NOT <==? ,BAZOOKA .SUB0>>
 				    <TELL THE <LOC ,BAZOOKA>>)>
 			     <TELL ".\"" CR>)>)>
 	       <RTRUE>)
@@ -1252,14 +1240,11 @@ be defenseless! Are you sure you want to repair the
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      ;(<VERB? HELP> <RFALSE>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <VERB? ASK-ABOUT CONFRONT> <DOBJ? ANTRIM>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,ANTRIM>>
 	<COND (<NOT <GRAB-ATTENTION ,ANTRIM>> <RTRUE>)>
 	<SAID-TO ,ANTRIM>
 	<COND (<EQUAL? .OBJ ,GLOBAL-BLY>
-	       %<XTELL
+	       <TELL
 "\"What a slave driver! Sometimes I call her 'Captain Bly'!\"" CR>)
 	      (<SET X <COMMON-ASK-ABOUT ,ANTRIM .OBJ>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
@@ -1302,7 +1287,7 @@ be defenseless! Are you sure you want to repair the
 	       <COND (<NOT <IN? ,HORVAK ,DOME-LAB>>
 		      <MOVE ,HORVAK ,DOME-LAB>
 		      <TELL "He heads for the " D ,DOME-LAB ". ">)>
-	       %<XTELL
+	       <TELL
 "It will take " D ,HORVAK " 4 turns to analyze the chemical contents of"
 THE-PRSO "." CR>)
 	      (<AND <VERB? FIX TAKE> <DOBJ? DART>>
@@ -1329,15 +1314,12 @@ THE-PRSO "." CR>)
 	       <TELL "er!\"" CR>)
 	      ;(<VERB? HELP> <RFALSE>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <VERB? ASK-ABOUT CONFRONT> <DOBJ? HORVAK>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,HORVAK>>
 	<COND (<NOT <GRAB-ATTENTION ,HORVAK>> <RTRUE>)>
 	<SAID-TO ,HORVAK>
 	<COND (<EQUAL? .OBJ ,SPECIAL-TOOL ,SPECIAL-TOOL-GLOBAL>
 	       <COND (,HORVAK-FIXED-AIR
-		      %<XTELL
+		      <TELL
 "\"I found it in the " D ,BLY-OFFICE ", "FN", when I ran in there to get
 her " D ,OXYGEN-GEAR ". I spotted it under her desk.\"" CR>)
 		     (T <DONT-KNOW-ANYTHING>)>)
@@ -1351,10 +1333,10 @@ her " D ,OXYGEN-GEAR ". I spotted it under her desk.\"" CR>)
 	       <PERFORM ,V?SEARCH ,HORVAK>
 	       <RTRUE>)
 	      (<EQUAL? .OBJ ,PHOTO>
-	       %<XTELL "\"I took it because I wanted a picture of her.\"" CR>)
+	       <TELL "\"I took it because I wanted a picture of her.\"" CR>)
 	      (<EQUAL? .OBJ ,SYRINGE ,ESCAPE-POD-UNIT>
 	       <COND (,GREENUP-GUILT
-		      %<XTELL
+		      <TELL
 "\"" FN ", the " D ,SYRINGE " contains a lot of arsenic, and some arsenic is
 missing from my " D ,CHEMICAL-SUPPLY-SHELVES "! If you'd been jabbed with that
 " D ,SYRINGE ", you'd be dead!\"" CR>)
@@ -1363,7 +1345,7 @@ missing from my " D ,CHEMICAL-SUPPLY-SHELVES "! If you'd been jabbed with that
 		      <PERFORM ,V?ANALYZE ,SYRINGE>
 		      <RTRUE>)>)
 	      (<AND <EQUAL? .OBJ ,MAGAZINE ,ARTICLE> <FSET? ,DART ,MUNGBIT>>
-	       %<XTELL
+	       <TELL
 "Doc quickly reads the " D ,ARTICLE ", then flashes you an excited glance.|
 \"" FN ", Thorpe's sea creatures evolved from AMINO-HYDROPHASE. If the
 Snark's his creation, then I know exactly what drug will
@@ -1374,21 +1356,21 @@ tranquilize it! Shall I make some up?\"">
 		      <RTRUE>)
 		     (<NOT <EQUAL? <META-LOC ,BLY> ,HERE>>
 		      <RTRUE>)>
-	       %<XTELL
+	       <TELL
 D ,BLY " still looks worried.
 \"" FN ", you should have a really high-powered weapon, too. You may run up
 against an enemy sub, if Thorpe himself is operating around here. Can you
 think of any device to use as a weapon of last resort?\"">
 	       <COND (<YES?>
-		      %<XTELL
+		      <TELL
 "\"Show me what device you have in mind, " FN ".\"" CR>
 		      <RTRUE>)>
 	       <COND (<FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT> <RTRUE>)>
 	       <SAID-TO ,TIP>
 	       <THIS-IS-IT ,BAZOOKA>
-	       %<XTELL "Once again, Tip has an idea." CR>
+	       <TELL "Once again, Tip has an idea." CR>
 	       <TELL-HINT 71 ;15 ,BAZOOKA ;<>>
-	       %<XTELL
+	       <TELL
 "\"Shall I have it mounted on the other " D ,CLAW " of the
 " D ,SUB "?\"">
 	       <COND (<YES?>
@@ -1415,19 +1397,19 @@ think of any device to use as a weapon of last resort?\"">
 		      <PERFORM ,V?ANALYZE ,SYRINGE>
 		      <RTRUE>)>)>)
        (<VERB? SEARCH>
-	%<XTELL
+	<TELL
 "\"Certainly not! The contents of my locker are my private property!\"" CR>)
        (<COMMON-OTHER ,HORVAK> <RTRUE>)>>
 
 <ROUTINE FIX-DART ()
  <COND (<NOT <FSET? ,DART ,MUNGBIT>>
-	%<XTELL "\"Hey, I already did that!\"" CR>)
+	<TELL "\"Hey, I already did that!\"" CR>)
        (T
 	<MOVE ,HORVAK ,DOME-LAB>
 	<MOVE ,DART ,HORVAK>
 	<ENABLE <QUEUE I-SYNTHESIS 5>>
 	<FSET ,HORVAK ,BUSYBIT>
-	%<XTELL "This will take 5 turns." CR>)>>
+	<TELL "This will take 5 turns." CR>)>>
 
 <OBJECT GLOBAL-SIEGEL
 	(IN GLOBAL-OBJECTS)
@@ -1467,7 +1449,7 @@ think of any device to use as a weapon of last resort?\"">
 in the " D ,COMM-BLDG " a little while ago. She may have checked
 it out. But I'll double-check it anyhow.\"" CR>)
 		     (T
-		      %<XTELL
+		      <TELL
 "\"Right, " FN ". No doubt you're testing all systems. I'll ">
 		      <COND (<NOT <EQUAL? ,HERE ,COMM-BLDG>>
 			     <TELL "report back and ">)>
@@ -1480,14 +1462,11 @@ it out. But I'll double-check it anyhow.\"" CR>)
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      ;(<VERB? HELP> <RFALSE>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <VERB? ASK-ABOUT CONFRONT> <DOBJ? SIEGEL>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,SIEGEL>>
 	<COND (<NOT <GRAB-ATTENTION ,SIEGEL>> <RTRUE>)>
 	<SAID-TO ,SIEGEL>
 	<COND (<EQUAL? .OBJ ,GLOBAL-SONAR ,SONAR-EQUIPMENT ,SONAR-MAN>
-	       %<XTELL "\"I operate the " D ,SONAR-EQUIPMENT ".\"" CR>)
+	       <TELL "\"I operate the " D ,SONAR-EQUIPMENT ".\"" CR>)
 	      (<==? .OBJ ,BLACK-BOX>
 	       <COND (<AND <FSET? ,SIEGEL ,BUSYBIT> <I-SIEGEL-REPORTS>>
 		      <RTRUE>)
@@ -1538,10 +1517,7 @@ it out. But I'll double-check it anyhow.\"" CR>)
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      ;(<VERB? HELP> <RFALSE>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <VERB? ASK-ABOUT CONFRONT> <DOBJ? GREENUP>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,GREENUP>>
 	<COND (<NOT <GRAB-ATTENTION ,GREENUP>> <RTRUE>)>
 	<SAID-TO ,GREENUP>
 	<COND (<AND <EQUAL? .OBJ ,SYRINGE ,ESCAPE-POD-UNIT>
@@ -1555,7 +1531,7 @@ it out. But I'll double-check it anyhow.\"" CR>)
 		      <RTRUE>)>)
 	      (<AND <OR ,GREENUP-TRAPPED ,GREENUP-CUFFED>
 		    ;<EQUAL? .OBJ ,MOTIVE ,SYRINGE ,ESCAPE-POD-UNIT>>
-	       %<XTELL
+	       <TELL
 "His only response is a sneer and silence." CR>)
 	      (<SET X <COMMON-ASK-ABOUT ,GREENUP .OBJ>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
@@ -1603,15 +1579,12 @@ it out. But I'll double-check it anyhow.\"" CR>)
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      ;(<VERB? HELP> <RFALSE>)
 	      (T <TELL <PICK-ONE ,WHY-ME> CR> <RFATAL>)>)
-       (<OR <AND ,PRSI <SET OBJ ,PRSI>
-		 <VERB? ASK-ABOUT CONFRONT> <DOBJ? LOWELL>>
-	    <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
-		 <VERB? FIND WHAT>>>
+       (<SET OBJ <ASK-ABOUT? ,LOWELL>>
 	<COND (<NOT <GRAB-ATTENTION ,LOWELL>> <RTRUE>)>
 	<SAID-TO ,LOWELL>
 	<COND (<EQUAL? .OBJ ,HORVAK ,GLOBAL-HORVAK>
 	       <DISCRETION ,LOWELL ,HORVAK>
-	       %<XTELL
+	       <TELL
 "\"He's dedicated to scientific research. He's a great marine
 biologist and enjoys his work here at the " D ,AQUADOME ", or he HAS enjoyed it
 until recently.|
@@ -1619,12 +1592,12 @@ I don't know why, but " D ,HORVAK " has become moody and introverted.
 I've seen him writing in a private diary.\"" CR>)
 	      (<AND <EQUAL? .OBJ ,DIARY> <NOT <FSET? ,DIARY ,TOUCHBIT>>>
 	       <DISCRETION ,LOWELL ,HORVAK>
-	       %<XTELL
+	       <TELL
 "\"It's not in the lab. " D ,HORVAK "'s always secretive about his diary.
 He would never leave it around where anyone might find it. It's
 probably in his locker, in the crew's dormitory.\"" CR>)
 	      (<EQUAL? .OBJ ,LAB-ASSISTANT>
-	       %<XTELL "\"I'm " D ,HORVAK "'s " D ,LAB-ASSISTANT ".\"" CR>)
+	       <TELL "\"I'm " D ,HORVAK "'s " D ,LAB-ASSISTANT ".\"" CR>)
 	      (<SET X <COMMON-ASK-ABOUT ,LOWELL .OBJ>>
 	       <COND (<==? .X ,M-FATAL> <RFALSE>) (T <RTRUE>)>)
 	      (T <DONT-KNOW ,LOWELL .OBJ>)>)
@@ -1651,7 +1624,7 @@ probably in his locker, in the crew's dormitory.\"" CR>)
 	<RFALSE>)
        (<AND <VERB? TELL-ABOUT> <DOBJ? PLAYER>>
 	<COND (<IN? ,MAGAZINE ,PLAYER>
-	       %<XTELL
+	       <TELL
 "He is a noted marine biologist.|
 The " D ,ARTICLE " mentions that he may have created synthetic
 forms of sea life by genetic engineering.|
@@ -1660,14 +1633,14 @@ gone into hiding to evade the resulting publicity.|
 He has told close friends he will soon marry an American woman named
 " D ,SHARON "." CR>)	;"He is a Cuban national.|"
 	      (<FSET? ,MAGAZINE ,TOUCHBIT>
-	       %<XTELL "Try looking in the " D ,MAGAZINE "." CR>)
+	       <TELL "Try looking in the " D ,MAGAZINE "." CR>)
 	      ;(T <RFALSE>)>)
        (T <GLOBAL-PERSON>)>>
 
 "People Functions"
 
 <GLOBAL WHY-ME
-	<LTABLE "\"If you think that will help, do it!\""
+	<PLTABLE "\"If you think that will help, do it!\""
 		"\"I think you can do that better yourself.\"">>
 
 <ROUTINE BRING-ME (WHAT WHO "AUX" L ;(C <GETP .WHO ,P?CHARACTER>))
@@ -1693,11 +1666,11 @@ He has told close friends he will soon marry an American woman named
 	<FCLEAR .WHAT ,INVISIBLE>
 	<FSET .WHAT ,TOUCHBIT>
 	<COND (<EQUAL? .L ,HERE> <TELL "\"Okay.\"">)
-	      (T %<XTELL "\"Here is" THE .WHAT ", " FN ".\" ">)>
+	      (T <TELL "\"Here is" THE .WHAT ", " FN ".\" ">)>
 	<COND (<FSET? .WHAT ,PERSON>
 	       <MOVE .WHAT ,HERE>
 	       <HE-SHE-IT .WHAT T>
-	       %<XTELL "'s wondering why you want to see ">
+	       <TELL "'s wondering why you want to see ">
 	       <HIM-HER-IT .WHAT>
 	       <TELL ".">)>
 	<CRLF>
@@ -1708,21 +1681,21 @@ He has told close friends he will soon marry an American woman named
        (T
 	<TELL "\"Sorry, " FN ", but I don't think I can.\"" CR>)>>
 
-<ROUTINE CARRY-CHECK (PERSON)
-	 <COND (T ;<FIRST? .PERSON>
-		<PRINT-CONT .PERSON T 0>
+<ROUTINE CARRY-CHECK (PER)
+	 <COND (T ;<FIRST? .PER>
+		<PRINT-CONT .PER T 0>
 		;<RTRUE>)>>
 
 <GLOBAL TOLD-SNARK-WENT <>>
-<ROUTINE COM-CHECK (PERSON)
- 	 <COND (<NOT <GRAB-ATTENTION .PERSON>> <RTRUE>)
+<ROUTINE COM-CHECK (PER)
+ 	 <COND (<NOT <GRAB-ATTENTION .PER>> <RTRUE>)
 	       (<VERB? ARM>
 		<COND (<DOBJ? LOCAL-SUB GLOBAL-SUB>
-		       %<XTELL
+		       <TELL
 "\"Good idea, "FN"! How do you want to do that?\"" CR>)>)
-	       (<VERB? COME>
+	       (<VERB? WALK-TO ;COME>
 		<COND (<DOBJ? GLOBAL-HERE>
-		       %<XTELL "\"I am here, "FN"!\"" CR>)>)
+		       <TELL "\"I am here, "FN"!\"" CR>)>)
 	       (<AND <DOBJ? DART BAZOOKA>
 		     <MOUNTING-VERB? ,PRSO>>
 		<SETG WINNER ,PLAYER>
@@ -1731,8 +1704,8 @@ He has told close friends he will soon marry an American woman named
 	       (<VERB? FIND>
 		<COND (<AND <DOBJ? GLOBAL-SNARK>
 			    ,MONSTER-GONE
-			    <OR <IS-CREW? .PERSON>
-				<EQUAL? .PERSON ,BLY ,GLOBAL-BLY>>>
+			    <OR <IS-CREW? .PER>
+				<EQUAL? .PER ,BLY ,GLOBAL-BLY>>>
 		       <SETG TOLD-SNARK-WENT T>
 		       <TELL-HINT 62 ,SNARK <>>)
 		      (T <RFATAL>)>)
@@ -1741,23 +1714,23 @@ He has told close friends he will soon marry an American woman named
 		       <COND (<==? ,WINNER ,HORVAK>
 			      <FCLEAR ,ARM ,MUNGBIT>
 			      <FSET ,GASH ,INVISIBLE>
-			      %<XTELL
+			      <TELL
 D ,HORVAK " quickly bandages your gash. Your arm is as good as new." CR>)
-			     (T %<XTELL
+			     (T <TELL
 "\"I think Doc can do that better himself.\"" CR>)>)>)
 	       (<VERB? ;GOODBYE ;HELLO THANKS> <RFATAL>)
 	       (<VERB? BRING SEND SEND-TO TAKE ;GET>
 		<COND (<IN? ,PRSO ,PLAYER>
 		       <SETG WINNER ,PLAYER>
-		       <PERFORM ,V?GIVE ,PRSO .PERSON>
+		       <PERFORM ,V?GIVE ,PRSO .PER>
 		       <RTRUE>)
 		      (<AND ;<DOBJ? DART> <FSET? ,PRSO ,TRYTAKEBIT>>
 		       <RFALSE>)
 		      (T
-		       <BRING-ME ,PRSO .PERSON>)>)
+		       <BRING-ME ,PRSO .PER>)>)
 	       (<VERB? EXAMINE>
 		<SETG WINNER ,PLAYER>
-		<PERFORM ,V?SHOW .PERSON ,PRSO>
+		<PERFORM ,V?SHOW .PER ,PRSO>
 		<RTRUE>)
 	       (<VERB? FOLLOW>
 		<COND (<DOBJ? PLAYER>
@@ -1765,84 +1738,84 @@ D ,HORVAK " quickly bandages your gash. Your arm is as good as new." CR>)
 "\"If you want me to go somewhere, just say so.\"" CR>)>)
 	       (<AND <VERB? GIVE> <IOBJ? PLAYER>>
 		<SETG WINNER ,PLAYER>
-		<PERFORM ,V?TAKE ,PRSO .PERSON>
+		<PERFORM ,V?TAKE ,PRSO .PER>
 		<RTRUE>)
 	       (<AND <VERB? SGIVE> <DOBJ? PLAYER>>
 		<SETG WINNER ,PLAYER>
-		<PERFORM ,V?TAKE ,PRSI .PERSON>
+		<PERFORM ,V?TAKE ,PRSI .PER>
 		<RTRUE>)
 	       (<VERB? DROP GIVE SGIVE WALK WALK-TO LEAVE THROUGH>
-		<COND (<NOT <==? .PERSON ,REMOTE-PERSON>> <RFATAL>)>)
+		<COND (<NOT <==? .PER ,REMOTE-PERSON>> <RFATAL>)>)
 	       (<VERB? HELLO GOODBYE>
-		<COND (<OR <NOT ,PRSO> <==? ,PRSO .PERSON>>
+		<COND (<OR <NOT ,PRSO> <==? ,PRSO .PER>>
 		       <SETG WINNER ,PLAYER>
-		       <PERFORM ,PRSA .PERSON>
+		       <PERFORM ,PRSA .PER>
 		       <RTRUE>)>)
 	       (<VERB? HELP>
 		<COND (<EQUAL? ,PRSO <> ,PLAYER>
 		       <SETG WINNER ,PLAYER>
-		       <PERFORM ,V?ASK .PERSON>
+		       <PERFORM ,V?ASK .PER>
 		       <RTRUE>)
-		      (<FSET? ,PRSO ,PERSON>
-		       %<XTELL "\"I don't need any help.\"" CR>)
+		      ;(<FSET? ,PRSO ,PERSON>
+		       <TELL "\"I don't need any help.\"" CR>)
 		      (T <RFATAL>)>)
 	       (<VERB? INVENTORY>
-		<COND (<NOT <CARRY-CHECK .PERSON>>
-		       <TELL D .PERSON " isn't holding anything." CR>)>
+		<COND (<NOT <CARRY-CHECK .PER>>
+		       <TELL D .PER " isn't holding anything." CR>)>
 		<RTRUE>)
 	       (<VERB? LISTEN>
 		<COND (<OR <DOBJ? PLAYER-NAME>
 			   <NOT <IN? ,PRSO ,GLOBAL-OBJECTS>>>
-		       %<XTELL "\"I'm trying to, " FN "!\"" CR>)>)
+		       <TELL "\"I'm trying to, " FN "!\"" CR>)>)
 	       (<VERB? SHOW>
 		<COND (<DOBJ? PLAYER>
-		       <COND (<IN? ,PRSI .PERSON>
+		       <COND (<IN? ,PRSI .PER>
 			      <SETG WINNER ,PLAYER>
-			      <PERFORM ,V?TAKE ,PRSI .PERSON>
+			      <PERFORM ,V?TAKE ,PRSI .PER>
 			      <RTRUE>)
 			     (T
-			      %<XTELL "\"I'm sure you can find ">
+			      <TELL "\"I'm sure you can find ">
 			      <HIM-HER-IT ,PRSI>
 			      <TELL ", " FN ".\"" CR>)>)>)
 	       (<VERB? TELL>
 		<COND (<DOBJ? PLAYER>
 		       <SETG WINNER ,PLAYER>
-		       <PERFORM ,V?ASK .PERSON>
+		       <PERFORM ,V?ASK .PER>
 		       <RTRUE>)>)
 	       (<VERB? TELL-ABOUT>
 		<COND (<DOBJ? PLAYER>
 		       <SETG WINNER ,PLAYER>
-		       <PERFORM ,V?ASK-ABOUT .PERSON ,PRSI>
+		       <PERFORM ,V?ASK-ABOUT .PER ,PRSI>
 		       <RTRUE>)>)
 	       (<OR ;<VERB? WAIT>
 		    <AND <VERB? WAIT-FOR> <DOBJ? PLAYER>>>
 		<SETG WINNER ,PLAYER>
-		<PERFORM ,V?$CALL .PERSON>
+		<PERFORM ,V?$CALL .PER>
 		<RTRUE>)
 	       (<VERB? WHAT TALK-ABOUT>
 		<SETG WINNER ,PLAYER>
-	        <PERFORM ,V?ASK-ABOUT .PERSON ,PRSO>
+	        <PERFORM ,V?ASK-ABOUT .PER ,PRSO>
 		<RTRUE>)
 	       (<VERB? YES NO>
 		<PRINTC %<ASCII !\">>
 		<COND (<VERB? YES> <TELL "Glad">) (T <TELL "Sorry">)>
-		%<XTELL " to hear it, " FN ".\"" CR>)>>
+		<TELL " to hear it, " FN ".\"" CR>)>>
 
 <ROUTINE COMMON-ASK-ABOUT (PER OBJ)
  ;<COND (,DEBUG <TELL "[COMMON-ASK-ABOUT: " D .PER "/" D .OBJ "]" CR>)>
  <COND (<EQUAL? .OBJ ,DEPTH ,CREW ,CREW-GLOBAL> <RFATAL>)
        (<EQUAL? .OBJ ,DEPTHFINDER> <RFATAL>)
        (<EQUAL? .OBJ ,GLOBAL-WEAPON ,MORE>
-	%<XTELL "\"Ask me about something specific, "FN".\"" CR>)
+	<TELL "\"Ask me about something specific, "FN".\"" CR>)
        (<OR <EQUAL? .OBJ ,BAY ,GLOBAL-SONAR ,SONAR-EQUIPMENT>
 	    <EQUAL? .OBJ ,GLOBAL-SUB ,LOCAL-SUB ,CLAW>>
-	%<XTELL "\"You know more about it than I do, " FN ".\"" CR>)
+	<TELL "\"You know more about it than I do, " FN ".\"" CR>)
        (<EQUAL? .OBJ .PER>
-	%<XTELL "\"I have no secrets. Anyone can see what I am.\"" CR>)
+	<TELL "\"I have no secrets. Anyone can see what I am.\"" CR>)
        (<EQUAL? .OBJ ,PLAYER>
-	%<XTELL "\"You're "FN" "LN", the famous young inventor.\"" CR>)
+	<TELL "\"You're "FN" "LN", the famous young inventor.\"" CR>)
        (<EQUAL? .OBJ ,AIRLOCK-ELECTRICITY>
-	%<XTELL "\"It powers the " D ,AIRLOCK-HATCH ".\"" CR>)
+	<TELL "\"It powers the " D ,AIRLOCK-HATCH ".\"" CR>)
        (<EQUAL? .OBJ ,VIDEOPHONE>	;"Player could mean PHOTO."
 	<COND (<GLOBAL-IN? ,VIDEOPHONE ,HERE>
 	       <SETG P-WON <>>
@@ -1855,19 +1828,19 @@ D ,HORVAK " quickly bandages your gash. Your arm is as good as new." CR>)
 	<TELL <GETP .OBJ ,P?TEXT> CR>)
        (<EQUAL? .OBJ ,DIARY>
 	<COND (<FSET? ,DIARY ,TOUCHBIT>
-	       %<XTELL "\"I think that it's pretty obvious.\"" CR>)>)
+	       <TELL "\"I think that it's pretty obvious.\"" CR>)>)
        (<EQUAL? .OBJ ,EVIDENCE ,BLACK-BOX>
 	<SHOULD-ASK ,BLY .PER>)
        (<EQUAL? .OBJ ,FINE-GRID>
 	<SHOULD-ASK ,TIP .PER>)
        (<EQUAL? .OBJ ,MAGAZINE ,ARTICLE>
-	%<XTELL "\"It's a magazine called 'SCIENCE WORLD.'\"" CR>)
+	<TELL "\"It's a " D ,MAGAZINE " called 'SCIENCE WORLD.'\"" CR>)
        (<EQUAL? .OBJ ,CONTROL-CIRCUITS-GAUGE>
 	<TELL
 "The " D ,CONTROL-CIRCUITS-GAUGE " is a thermometer for an important
 part of the engine." CR>)
        (<EQUAL? .OBJ ,OXYGEN-GEAR>
-	%<XTELL
+	<TELL
 "\"Your Dad made the rule about it, " FN ". Everyone in
 the " D ,AQUADOME " should carry one at all times, remember?|
 They're little canisters of oxygen that you can wear around
@@ -1879,47 +1852,47 @@ The canister is in the " D ,SUB ", just like in all " LN " submarines."
 ;" clipped under your pilot's seat">)>
 	<TELL "\"" CR>)
        (<IN? .OBJ .PER>
-	%<XTELL "\"I have it right here, "FN".\"" CR>)
+	<TELL "\"I have it right here, "FN".\"" CR>)
        (<OR <EQUAL? .OBJ ,BLACK-CIRCUITRY ,GLOBAL-SABOTAGE>
 	    <EQUAL? .OBJ ,AIR-SUPPLY-SYSTEM ,AIR-SUPPLY-SYSTEM-GLOBAL>>
-	%<XTELL "\"You know as much as I do.\"" CR>)
+	<TELL "\"You know as much as I do.\"" CR>)
        (<EQUAL? .OBJ ,PRIVATE-MATTER>
 	<COND (<==? .PER ,REMOTE-PERSON>	;<IN? .PER ,GLOBAL-OBJECTS>
-	       %<XTELL "\"Wait until you see me, " FN ".\"" CR>)
+	       <TELL "\"Wait until you see me, " FN ".\"" CR>)
 	      (T
 	       <MOVE ,PRIVATE-MATTER ,GLOBAL-OBJECTS>
-	       %<XTELL
+	       <TELL
 D .PER " says, \"I'm sorry, " FN ", but that's a " D ,PRIVATE-MATTER ".\""
 CR>)>)
        (<OR <EQUAL? .OBJ ,PROBLEM>
 	    <AND ,DEPTH-WARNING
-		 <EQUAL? .OBJ ,DEPTHFINDER-LIGHT ,ALARM>>
+		 <EQUAL? .OBJ ,DEPTHFINDER-LIGHT ,ALARM-SUB>>
 	    <AND <OR ,SONAR-WARNING ,SHIP-WARNING>
-		 <EQUAL? .OBJ ,SONARSCOPE-LIGHT ,ALARM>>>
+		 <EQUAL? .OBJ ,SONARSCOPE-LIGHT ,ALARM-SUB>>>
 	<COND (<OR ,DEPTH-WARNING ,SONAR-WARNING ,SHIP-WARNING>
-	       %<XTELL "\"I think you're going too close to "
+	       <TELL "\"I think you're going too close to "
 		       <COND (,DEPTH-WARNING "the bottom") (T "an obstacle")>
 		       ", " FN ".\"" CR>)
 	      (<AND ,DOME-AIR-BAD? <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
 	       <BADGES-RED>
 	       <RTRUE>)
-	      (T %<XTELL D .PER " says, \"I don't know, " FN ".\"" CR>)>)
+	      (T <TELL D .PER " says, \"I don't know, " FN ".\"" CR>)>)
        (<EQUAL? .OBJ ,BADGE-GLOBAL ,BADGE-GLOBAL-2 ,BADGE-GLOBAL-3>
 	<PRINTC %<ASCII !\">>
 	<EXAMINE-BADGE>
 	<TELL "\"" CR>
 	<RTRUE>)
        (<EQUAL? .OBJ ,GLOBAL-SONAR ,SONAR-MAN>
-	%<XTELL "\"" D ,SIEGEL " operates the " D ,SONAR-EQUIPMENT ".\"" CR>)
+	<TELL "\"" D ,SIEGEL " operates the " D ,SONAR-EQUIPMENT ".\"" CR>)
        (<EQUAL? .OBJ ,LAB-ASSISTANT>
-	%<XTELL
+	<TELL
 "\"" D ,LOWELL " is " D ,HORVAK "'s " D ,LAB-ASSISTANT ".\"" CR>)
        (<EQUAL? .OBJ ,ALARM>
 	<COND (,ALARM-RINGING
 	       <WHY-NOT-VP>)>)
        (<EQUAL? .OBJ ,SYRINGE ,ESCAPE-POD-UNIT ,GLOBAL-GREENUP>
 	<COND (,GREENUP-GUILT
-	       %<XTELL
+	       <TELL
 "\"I never suspected " D ,GREENUP " of being a " D ,TRAITOR ".\"" CR>
 	       <COND (<AND <IN? ,GREENUP ,HERE>
 			   <NOT <FSET? ,GREENUP ,MUNGBIT>>
@@ -1931,7 +1904,7 @@ CR>)>)
 	      (<EQUAL? .OBJ ,SYRINGE ,ESCAPE-POD-UNIT>
 	       <TELL "\"Maybe " D ,HORVAK " can analyze it.\"" CR>)>)
        (<AND <FSET? ,ARM ,MUNGBIT> <EQUAL? .OBJ ,ARM ,GASH>>
-	%<XTELL "\"That looks pretty serious, "FN".\"" CR>)
+	<TELL "\"That looks pretty serious, "FN".\"" CR>)
        (<OR <IS-CREW? .PER> <EQUAL? .PER ,BLY ;,GLOBAL-BLY>>
 	<COND (<AND <EQUAL? .OBJ ,ELECTROLYTE-RELAY> ,SUB-IN-DOME>
 	       <TELL "\"It belongs in the " D ,EMPTY-SPACE ".\"" CR>)
@@ -1939,7 +1912,7 @@ CR>)>)
 		    ,SUB-IN-DOME>
 	       <COND (<OR <FSET? ,SPECIAL-TOOL ,INVISIBLE>
 			  <FSET? ,ELECTROLYTE-RELAY ,MUNGBIT>>
-		      %<XTELL
+		      <TELL
 "\"The " D ,SPECIAL-TOOL " should be on that hook.\"" CR>
 		      <RTRUE>)>
 	       <TELL "\"I'm sure glad ">
@@ -1953,7 +1926,7 @@ CR>)>)
 
 <ROUTINE SHOULD-ASK (WHO "OPTIONAL" (PER <>))
 	<COND (.PER <TELL D .PER " says, ">)>
-	%<XTELL
+	<TELL
 "\"I think you should ask " D .WHO " about that.\"" CR>>
 
 <ROUTINE COMMON-OTHER (PER "AUX" (LPER <>))
@@ -1970,75 +1943,75 @@ CR>)>)
 	     <NOT <DOBJ? BADGE-PLAYER>>
 	     <VERB? GIVE>>
 	<MOVE ,PRSO .LPER>
-	%<XTELL "\"Hey, thanks, " FN "!\"" CR>)
+	<TELL "\"Hey, thanks, " FN "!\"" CR>)
        (<AND <EQUAL? ,PRSO .PER> <VERB? HELP>>
 	<COND (<AND ,DOME-AIR-BAD? <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
-	       %<XTELL
+	       <TELL
 "It would help more to fix the " D ,AIR-SUPPLY-SYSTEM "." CR>)
 	      (<NOT <IN? .PER ,GLOBAL-OBJECTS>>
-	       %<XTELL
-PRSO " looks offended. \"I'm quite capable by myself, you know.\"" CR>)>)
+	       <TELL
+D .PER " looks offended. \"I'm quite capable by myself, you know.\"" CR>)>)
        (<AND <EQUAL? ,PRSO .PER> <VERB? RUB>>
-	%<XTELL
+	<TELL
 D .PER " looks bewildered. \"What are you trying to do?\"" CR>)
        (<AND <EQUAL? ,PRSO .PER> <VERB? SHOW>>
 	<PERFORM ,V?ASK-ABOUT ,PRSO ,PRSI>
 	<RTRUE>)>>
 
-<ROUTINE DESCRIBE-COLLAPSE (PERSON)
+<ROUTINE DESCRIBE-COLLAPSE (PER)
  <COND (<FSET? ,BLY ,MUNGBIT>	;,DOME-AIR-BAD?
-	<COND (<EQUAL? .PERSON ,TIP>
+	<COND (<EQUAL? .PER ,TIP>
 	       <COND (<FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>
-		      <DESCRIBE-PERSON .PERSON "looking at you anxiously">)
+		      <DESCRIBE-PERSON .PER "looking at you anxiously">)
 		     (T
-		      <DESCRIBE-PERSON .PERSON>)>)
-	      (<EQUAL? .PERSON ,BLY ,LOWELL ,GREENUP>
+		      <DESCRIBE-PERSON .PER>)>)
+	      (<EQUAL? .PER ,BLY ,LOWELL ,GREENUP>
 	       <COND (<FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>
-		      <DESCRIBE-PERSON .PERSON "collapsing on the floor">)
+		      <DESCRIBE-PERSON .PER "collapsing on the floor">)
 		     (T
-		     <DESCRIBE-PERSON .PERSON "recovering from collapse">)>)
+		     <DESCRIBE-PERSON .PER "recovering from collapse">)>)
 	      (T
 	       <COND (<FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>
 		      <COND (,BADGES-RED-SAID?
-			     <DESCRIBE-PERSON .PERSON "using Oxygen Gear">)
+			     <DESCRIBE-PERSON .PER "using Oxygen Gear">)
 			    (T
-			     <DESCRIBE-PERSON .PERSON
+			     <DESCRIBE-PERSON .PER
 					      "looking at you anxiously">)>)
 		     (T
-		     <DESCRIBE-PERSON .PERSON>)>)>)
-       (T <DESCRIBE-PERSON .PERSON>)>>
+		     <DESCRIBE-PERSON .PER>)>)>)
+       (T <DESCRIBE-PERSON .PER>)>>
 
-<ROUTINE DESCRIBE-PERSON (PERSON "OPTIONAL" (STR <>))
- <COND (<AND <IS-CREW? .PERSON>
+<ROUTINE DESCRIBE-PERSON (PER "OPTIONAL" (STR <>))
+ <COND (<AND <IS-CREW? .PER>
 	     <CREW-5-TOGETHER?>
 	     <NOT <FSET? ,BLY ,MUNGBIT>>>
-	<COND (<==? .PERSON ,LOWELL>
+	<COND (<==? .PER ,LOWELL>
 	       <TELL "The five " D ,CREW " members are here." CR>)>)
-       (T <TELL D .PERSON " is "
+       (T <TELL D .PER " is "
 		<COND (<NOT .STR> "here") (T .STR)>
 		"." CR>
 	;<COND (,DEBUG <TELL "[now calling CARRY-CHECK:]" CR>)>
-	;<CARRY-CHECK .PERSON>)>>
+	;<CARRY-CHECK .PER>)>>
 
 <ROUTINE DISCRETION (P1 P2 "OPTIONAL" (P3 <>))
 	 <COND (<AND <==? ,HERE <META-LOC .P2>>
 		     .P3 <==? ,HERE <META-LOC .P3>>>
-	        %<XTELL D .P1 " looks briefly toward " D .P2 " and " D .P3
+	        <TELL D .P1 " looks briefly toward " D .P2 " and " D .P3
 " and then speaks in a whisper." CR>)
 	       (<==? ,HERE <META-LOC .P2>>
-	        %<XTELL D .P1 " looks briefly toward " D .P2
+	        <TELL D .P1 " looks briefly toward " D .P2
 " and then speaks in a whisper." CR>)
 	       (<AND .P3 <==? ,HERE <META-LOC .P3>>>
-	        %<XTELL D .P1 " looks briefly toward " D .P3
+	        <TELL D .P1 " looks briefly toward " D .P3
 " and then speaks in a whisper." CR>)>>
 
-<ROUTINE NOT-IMPORTANT (CHAR) <DONT-KNOW .CHAR ,PROBLEM>>
+"<ROUTINE NOT-IMPORTANT (CHAR) <DONT-KNOW .CHAR ,PROBLEM>>"
 
 <ROUTINE DONT-KNOW (CHAR OBJ)
 	<TELL
 D .CHAR " says, \"I don't think that's important right now, " FN ".\"" CR>>
 
-<ROUTINE FOLLOWED? (PERSON "AUX" (L <LOC .PERSON>))
+;<ROUTINE FOLLOWED? (PER "AUX" (L <LOC .PER>))
 	 <COND (<==? .L ,HERE> <RTRUE>)
 	       (<NOT <==? <BAND <GETP .L ,P?CORRIDOR>
 				<GETP ,HERE ,P?CORRIDOR>> 0>>
@@ -2052,21 +2025,8 @@ D .CHAR " says, \"I don't think that's important right now, " FN ".\"" CR>>
        (<AND <VERB? EXAMINE>
 	     <FSET? ,PRSO ,PERSON>
 	     <SET L <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>>
-	<COND ;(<AND <EQUAL? ,REMOTE-PERSON ,PRSO>
-		    <EQUAL? ,REMOTE-PERSON-ON ,VIDEOPHONE>>
-	       <COND (T <SET L <GETP .L ,P?TEXT>>
-		      <TELL .L CR>)
-		     ;(T <TELL
-"There's nothing special about" THE-PRSO "." CR>)>)
-	      (<NOT <CORRIDOR-LOOK .L>>
-	       <NOT-HERE ,PRSO>
-	       ;<TELL "You can't see " D ,PRSO " here!" CR>)>)
-       ;(<VERB? PHONE>
-	<COND (<AND <FSET? ,PRSO ,PERSON>
-		    <SET L <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>>
-	       <PERFORM ,PRSA .L ,PRSI>
-	       <RTRUE>)
-	      (T <RFALSE>)>)
+	<COND (<NOT <CORRIDOR-LOOK .L>>
+	       <NOT-HERE ,PRSO>)>)
        (<AND <VERB? ASK-ABOUT ASK-FOR HELLO REPLY TELL TELL-ABOUT>
 	     ,PRSO
 	     <FSET? ,PRSO ,PERSON>
@@ -2080,10 +2040,6 @@ D .CHAR " says, \"I don't think that's important right now, " FN ".\"" CR>>
 	<PERFORM ,PRSA ,PRSO
 		 <GET ,CHARACTER-TABLE <GETP ,PRSI ,P?CHARACTER>>>
 	<RTRUE>)
-       ;(<VERB? TELL>
-	<TELL "You can't speak to someone who isn't here." CR>
-	<SETG P-CONT <>>
-	<RTRUE>)
        (T
 	<SETG P-CONT <>>
 	<COND (<OR <VERB? ASK-ABOUT TELL-ABOUT>
diff --git a/places.zap b/places.zap
index 47e71f9..3c8b345 100644
--- a/places.zap
+++ b/places.zap
@@ -17,27 +17,16 @@
 	RFALSE	
 
 
-	.FUNCT	DDESC,STR1,DOOR,STR2
-	PRINT	STR1
-	FSET?	DOOR,OPENBIT \?ELS5
-	PRINTI	"open"
-	JUMP	?CND3
-?ELS5:	PRINTI	"closed"
-?CND3:	PRINT	STR2
-	CRLF	
-	RTRUE	
-
-
-	.FUNCT	DOOR-ROOM,RM,DR,P=0,T
+	.FUNCT	DOOR-ROOM,RM,DR,P=0,TBL
 ?PRG1:	NEXTP	RM,P >P
 	ZERO?	P /FALSE
 	LESS?	P,LOW-DIRECTION /FALSE
-	GETPT	RM,P >T
-	PTSIZE	T
+	GETPT	RM,P >TBL
+	PTSIZE	TBL
 	EQUAL?	DEXIT,STACK \?PRG1
-	GETB	T,DEXITOBJ
+	GETB	TBL,DEXITOBJ
 	EQUAL?	DR,STACK \?PRG1
-	GETB	T,REXIT
+	GETB	TBL,REXIT
 	RETURN	STACK
 
 
@@ -123,7 +112,7 @@
 
 
 	.FUNCT	NORTH-WALL-F,RARG=0
-	EQUAL?	RARG,M-LOOK \FALSE
+	EQUAL?	RARG,M-LOOK \?ELS5
 	PRINTI	"You're in the "
 	PRINTD	NORTH-WALL
 	PRINTI	" of "
@@ -131,6 +120,10 @@
 	PRINTI	". A "
 	PRINTD	COMPUTESTOR
 	PRINTR	" stands here to help test your inventions."
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	VIDEOPHONE-WORKING
+	ZERO?	STACK \TRUE
+	RFALSE
 
 
 	.FUNCT	COMPUTESTOR-F
@@ -141,9 +134,9 @@
 	PRINTD	COMPUTESTOR
 	PRINTI	" is o"
 	FSET?	COMPUTESTOR,ONBIT \?ELS16
-	PUSH	STR?45
+	PUSH	STR?40
 	JUMP	?CND12
-?ELS16:	PUSH	STR?46
+?ELS16:	PUSH	STR?41
 ?CND12:	PRINT	STACK
 	PRINTR	"."
 ?ELS9:	EQUAL?	PRSA,V?LAMP-ON \?ELS20
@@ -284,9 +277,15 @@ Possible causes:
 	PRINTD	DESK
 	PRINTR	"."
 ?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	VIDEOPHONE-WORKING
+	ZERO?	STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	VIDEOPHONE-WORKING
 	ZERO?	BREAKER-JUST-FIXED /FALSE
 	FSET?	CIRCUIT-BREAKER,OPENBIT /FALSE
-	SET	'BREAKER-JUST-FIXED,0
+	SET	'BREAKER-JUST-FIXED,FALSE-VALUE
 	PRINTI	"As you re-enter the lab, "
 	CALL	TIP-SAYS
 	PRINTI	"Look, "
@@ -302,14 +301,21 @@ Possible causes:
 
 
 	.FUNCT	DESK-F
+	CALL	COMMON-DESK-F,DESK
+	RSTACK	
+
+
+	.FUNCT	COMMON-DESK-F,OBJ
 	EQUAL?	PRSA,V?OPEN \?ELS5
 	PRINTR	"It has no drawers."
 ?ELS5:	EQUAL?	PRSA,V?LOOK-ON,V?LOOK-INSIDE,V?EXAMINE \FALSE
-	EQUAL?	PRSO,DESK \FALSE
-	PRINTI	"An intercom is on the desk"
-	FIRST?	DESK \?CND14
+	EQUAL?	PRSO,OBJ \FALSE
+	PRINTI	"An "
+	PRINTD	INTERCOM
+	PRINTI	" is on the desk"
+	FIRST?	OBJ \?CND14
 	PRINTI	", as well as "
-	CALL	PRINT-CONTENTS,DESK
+	CALL	PRINT-CONTENTS,OBJ
 ?CND14:	PRINTR	"."
 
 
@@ -338,7 +344,7 @@ Possible causes:
 	PRINTR	" fills most of the north wall."
 ?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
 	FSET?	CIRCUIT-BREAKER,MUNGBIT \FALSE
-	CALL	TELL-HINT,31,ELECTRICAL-CONTROL-PANEL,0
+	CALL	TELL-HINT,31,ELECTRICAL-CONTROL-PANEL,FALSE-VALUE
 	RSTACK	
 
 
@@ -372,15 +378,15 @@ Possible causes:
 	.FUNCT	CIRCUIT-BREAKER-F,V
 	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \?ELS5
 	FSET?	PRSO,OPENBIT \?ELS5
-	CALL	TELL-HINT,31,ELECTRICAL-CONTROL-PANEL,0
+	CALL	TELL-HINT,31,ELECTRICAL-CONTROL-PANEL,FALSE-VALUE
 	RSTACK	
-?ELS5:	EQUAL?	PRSA,V?TURN,V?MOVE /?THN10
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON,V?TURN,V?MOVE /?THN10
 	EQUAL?	PRSA,V?FIX,V?PUSH,V?CLOSE \?ELS9
 ?THN10:	FSET?	PRSO,OPENBIT \?ELS16
 	FSET	PRSO,NDESCBIT
 	CALL	OKAY,CIRCUIT-BREAKER,STR?17
 	FSET?	PRSO,MUNGBIT \TRUE
-	SET	'BREAKER-JUST-FIXED,1
+	SET	'BREAKER-JUST-FIXED,TRUE-VALUE
 	FCLEAR	PRSO,MUNGBIT
 	FCLEAR	VIDEOPHONE,MUNGBIT
 	FSET	VIDEOPHONE,ONBIT
@@ -388,9 +394,9 @@ Possible causes:
 	RTRUE	
 ?ELS16:	CALL	ALREADY,CIRCUIT-BREAKER,STR?17
 	RSTACK	
-?ELS9:	EQUAL?	PRSA,V?OPEN \FALSE
+?ELS9:	EQUAL?	PRSA,V?LAMP-OFF,V?OPEN \FALSE
 	FSET?	PRSO,OPENBIT \?ELS28
-	CALL	ALREADY,CIRCUIT-BREAKER,STR?23
+	CALL	ALREADY,CIRCUIT-BREAKER,STR?21
 	RSTACK	
 ?ELS28:	PRINTR	"You shouldn't do that."
 
@@ -477,8 +483,13 @@ Possible causes:
 ?CND32:	PRINTR	" find nothing suspicious, so you decide to leave the papers alone."
 
 
+	.FUNCT	KEMP-DESK-F
+	CALL	COMMON-DESK-F,KEMP-DESK
+	RSTACK	
+
+
 	.FUNCT	SOUTH-WALL-F,RARG=0
-	EQUAL?	RARG,M-LOOK \FALSE
+	EQUAL?	RARG,M-LOOK \?ELS5
 	PRINTI	"You're in the "
 	PRINTD	SOUTH-WALL
 	PRINTI	" of "
@@ -486,6 +497,10 @@ Possible causes:
 	PRINTI	", next to shelves full of chemical and electronic supplies. A door leads south to the "
 	PRINTD	TEST-TANK
 	PRINTR	"."
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	VIDEOPHONE-WORKING
+	ZERO?	STACK \TRUE
+	RFALSE
 
 
 	.FUNCT	CHEMICAL-SUPPLY-SHELVES-F
@@ -503,12 +518,16 @@ Possible causes:
 
 
 	.FUNCT	WEST-WALL-F,RARG=0
-	EQUAL?	RARG,M-LOOK \FALSE
+	EQUAL?	RARG,M-LOOK \?ELS5
 	PRINTI	"You're in the "
 	PRINTD	WEST-WALL
 	PRINTI	" of "
 	PRINTD	YOUR-LABORATORY
 	PRINTR	", next to a shelf full of mechanical supplies."
+?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	VIDEOPHONE-WORKING
+	ZERO?	STACK \TRUE
+	RFALSE
 
 
 	.FUNCT	MECHANICAL-SUPPLY-SHELVES-F
@@ -532,17 +551,13 @@ Possible causes:
 	CALL	EXIT-VERB?
 	ZERO?	STACK /?ELS5
 	CALL	THIS-IS-IT,MICROPHONE
-	CALL	HE-SHE-IT,WINNER,1
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
 	PRINTI	" can't walk away while "
-	CALL	HE-SHE-IT,WINNER
-	IN?	MICROPHONE,PLAYER \?ELS12
-	PRINTI	"'re"
-	JUMP	?CND10
-?ELS12:	PRINTI	"'s"
-?CND10:	PRINTI	" holding the "
+	CALL	HE-SHE-IT,WINNER,FALSE-VALUE,STR?113
+	PRINTI	" holding the "
 	PRINTD	MICROPHONE
 	PRINTR	"!"
-?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
+?ELS5:	EQUAL?	RARG,M-LOOK \?ELS13
 	PRINTI	"You're at your workbench in the center of "
 	PRINTD	YOUR-LABORATORY
 	PRINTI	", a small part of"
@@ -550,11 +565,15 @@ Possible causes:
 	PRINTI	" in the town of Frobton. The "
 	PRINTD	VIDEOPHONE
 	PRINTI	" screen looms overhead"
-	ZERO?	ALARM-RINGING /?CND27
+	ZERO?	ALARM-RINGING /?CND18
 	PRINTI	", with its "
 	PRINTD	ALARM
 	PRINTI	" ringing"
-?CND27:	PRINTR	"."
+?CND18:	PRINTR	"."
+?ELS13:	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	VIDEOPHONE-WORKING
+	ZERO?	STACK \TRUE
+	RFALSE
 
 
 	.FUNCT	WORKBENCH-F
@@ -564,25 +583,23 @@ Possible causes:
 	RFALSE	
 
 
-	.FUNCT	SUB-PLANS-F,X,STR
+	.FUNCT	SCREENPLAY
+	PRINTR	"Screenplay by Jim Lawrence"
+
+
+	.FUNCT	SUB-PLANS-F,X
 	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
-	RANDOM	100
-	GRTR?	50,STACK /?PRD6
-	PUSH	0
-	JUMP	?PRD7
-?PRD6:	PUSH	1
-?PRD7:	SET	'X,STACK
-	SET	'STR,STR?117
 	PRINTI	"Written in one corner is the legend:
 
 "
-	ZERO?	X /?CND10
-	PRINT	STR
-?CND10:	PRINTI	"  Directed by Stu Galley
+	RANDOM	2 >X
+	EQUAL?	X,1 \?CND8
+	CALL	SCREENPLAY
+?CND8:	PRINTI	"  Directed by Stu Galley
 "
-	ZERO?	X \?CND18
-	PRINT	STR
-?CND18:	CRLF	
+	EQUAL?	X,1 /?CND13
+	CALL	SCREENPLAY
+?CND13:	CRLF	
 	CALL	V-VERSION
 	RSTACK	
 
@@ -614,7 +631,8 @@ Possible causes:
 	ZERO?	STACK /?ELS26
 ?THN29:	EQUAL?	PRSO,MICROPHONE-DOME,MICROPHONE \?ELS26
 	EQUAL?	VIDEOPHONE,REMOTE-PERSON-ON \?ELS26
-	PRINTI	"You'd better say ""Good-bye"""
+	PRINTI	"You'd better say ""Good-bye"" to "
+	PRINTD	REMOTE-PERSON
 	PRINTR	" first."
 ?ELS26:	EQUAL?	PRSA,V?SAY-INTO,V?REPLY \?ELS34
 	FSET?	VIDEOPHONE,ONBIT /?ELS34
@@ -635,22 +653,29 @@ Possible causes:
 	FSET?	MICROPHONE-DOME,ONBIT /?THN66
 ?ELS69:	ZERO?	DOME? \?CND63
 	FSET?	MICROPHONE,ONBIT \?CND63
-?THN66:	CALL	ALREADY,MICROPHONE,STR?47
+?THN66:	CALL	ALREADY,MICROPHONE,STR?42
 	RTRUE	
 ?CND63:	ZERO?	DOME? /?ELS76
-	CALL	OKAY,MICROPHONE-DOME,STR?47
+	CALL	OKAY,MICROPHONE-DOME,STR?42
 	RSTACK	
-?ELS76:	CALL	OKAY,MICROPHONE,STR?47
+?ELS76:	CALL	OKAY,MICROPHONE,STR?42
 	RSTACK	
 
 
 	.FUNCT	TECHNICIAN-F
 	EQUAL?	PRSA,V?$CALL /?THN6
 	EQUAL?	PRSA,V?TAKE,V?PHONE,V?FIND \FALSE
-?THN6:	PRINTI	"How can you do that? By telepathy or carrier pigeon? Seriously, "
-	PRINTI	"your "
+?THN6:	PRINTI	"How can you do that? By telepathy or carrier pigeon? "
+	IN?	SHARON,OFFICE \?CND10
+	PRINTI	"Seriously, your "
 	PRINTD	LAB-ASSISTANT
-	PRINTR	", Sharon Kemp, is in her office, which is through a doorway to the east. Or, you could summon her by the intercom on your desk."
+	PRINTI	", "
+	PRINTD	SHARON
+	PRINTI	", is in her office, which is through a doorway to the east. Or, you could summon her by the "
+	PRINTD	INTERCOM
+	PRINTI	" on your desk."
+?CND10:	CRLF	
+	RTRUE	
 
 
 	.FUNCT	GANGPLANK-F
@@ -674,9 +699,12 @@ Possible causes:
 	FSET	WEST-TANK-AREA,TOUCHBIT
 	FSET	SOUTH-TANK-AREA,TOUCHBIT
 	EQUAL?	HERE,NORTH-TANK-AREA \?ELS8
-	PRINTI	"You're at a temporary runway or gangplank that leads from the walkway to the entry hatch of the "
+	PRINTI	"You're at a temporary runway or gangplank that leads from the walkway to the "
+	PRINTD	SUB-DOOR
+	PRINTI	" of the "
 	PRINTD	GLOBAL-SUB
-	CALL	DDESC,STR?120,SUB-DOOR,STR?121
+	PRINTI	". "
+	CALL	CHECK-DOOR,SUB-DOOR
 	JUMP	?CND6
 ?ELS8:	EQUAL?	HERE,WEST-TANK-AREA \?CND6
 	PRINTI	"You're at a "
@@ -701,7 +729,7 @@ Possible causes:
 There's a walkway around the tank on three sides -- north, west and south. On the east side, a steel gate forms the wall of the room."
 
 
-	.FUNCT	FRESH-AIR?,RM,P,L,T,O
+	.FUNCT	FRESH-AIR?,RM,P,L,TBL,O
 	ZERO?	DOME-AIR-BAD? /?CND1
 	ZERO?	SUB-IN-DOME /?CND1
 	PRINTR	"It's impossible to tell that way whether the air is good."
@@ -709,10 +737,10 @@ There's a walkway around the tank on three sides -- north, west and south. On th
 ?PRG8:	NEXTP	HERE,P >P
 	ZERO?	P /FALSE
 	LESS?	P,LOW-DIRECTION /?PRG8
-	GETPT	HERE,P >T
-	PTSIZE	T >L
+	GETPT	HERE,P >TBL
+	PTSIZE	TBL >L
 	EQUAL?	L,DEXIT \?PRG8
-	GETB	T,DEXITOBJ >O
+	GETB	TBL,DEXITOBJ >O
 	FSET?	O,OPENBIT \?PRG8
 	PRINTI	"There's a pleasant breeze coming through the "
 	PRINTD	O
@@ -834,51 +862,4 @@ There's a walkway around the tank on three sides -- north, west and south. On th
 ?CND3:	INC	'CNT
 	JUMP	?PRG1
 
-
-	.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-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-200
-?ELS19:	EQUAL?	NUM,256 \?ELS21
-	RETURN	COR-400
-?ELS21:	EQUAL?	NUM,512 \?ELS23
-	RETURN	COR-1000
-?ELS23:	EQUAL?	NUM,1024 \?ELS25
-	RETURN	COR-2000
-?ELS25:	EQUAL?	NUM,2048 \?ELS27
-	RETURN	COR-4000
-?ELS27:	EQUAL?	NUM,4096 \?ELS29
-	RETURN	COR-10000
-?ELS29:	RETURN	COR-20000
-
 	.ENDI
diff --git a/places.zil b/places.zil
index 6ca7dd6..51c7a30 100644
--- a/places.zil
+++ b/places.zil
@@ -4,7 +4,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 "Directions"
 
 <GLOBAL DIR-STRINGS
-	<TABLE  P?NORTH "north" P?SOUTH "south"
+	<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"
@@ -39,34 +39,15 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <ROUTINE NULL-F ("OPTIONAL" A1 A2)
 	<RFALSE>>
 
-<ROUTINE DDESC (STR1 DOOR STR2)
-	 #DECL ((STR1) <OR STRING ZSTRING> (DOOR) OBJECT
-		(STR2) <OR FALSE STRING ZSTRING>)
-	 <TELL .STR1>
-	 <COND (<FSET? .DOOR ,OPENBIT> <TELL "open">)
-	       (T <TELL "closed">)>
-	 <TELL .STR2 CR>>
-
-<DEFINE XDDESC ("CALL" F "AUX" (L ,XTELLEN))
- <COND (<NOT <GASSIGNED? PREDGEN>>
-	<MAPR <>
-	      <FUNCTION (FF "AUX" (A <1 .FF>))
-	       <COND (<AND <TYPE? .A STRING ZSTRING>
-			   <NOT <LENGTH? .A .L>>>
-		      <1 .FF <STRING <SUBSTRUC .A 0 <- .L 3>>
-				     "...">>)>>
-	      .F>)>
- <1 .F DDESC>>
-
-<ROUTINE DOOR-ROOM (RM DR "AUX" (P 0) T)
+<ROUTINE DOOR-ROOM (RM DR "AUX" (P 0) TBL)
 	 #DECL ((RM DR) OBJECT (P) FIX)
 	 <REPEAT ()
 		 <COND (<OR <0? <SET P <NEXTP .RM .P>>>
 			    <L? .P ,LOW-DIRECTION>>
 			<RFALSE>)
-		       (<AND <==? ,DEXIT <PTSIZE <SET T <GETPT .RM .P>>>>
-			     <==? .DR <GETB .T ,DEXITOBJ>>>
-			<RETURN <GETB .T ,REXIT>>)>>>
+		       (<AND <==? ,DEXIT <PTSIZE <SET TBL <GETPT .RM .P>>>>
+			     <==? .DR <GETB .TBL ,DEXITOBJ>>>
+			<RETURN <GETB .TBL ,REXIT>>)>>>
 
 <ROUTINE FIND-FLAG (RM FLAG "OPTIONAL" (EXCLUDED <>) "AUX" (O <FIRST? .RM>))
 	<REPEAT ()
@@ -148,7 +129,9 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
  <COND (<==? .RARG ,M-LOOK>
 	<TELL
 "You're in the " D ,NORTH-WALL " of " D ,YOUR-LABORATORY ". A " D
-,COMPUTESTOR " stands here to help test your inventions." CR>)>>
+,COMPUTESTOR " stands here to help test your inventions." CR>)
+       (<AND <==? .RARG ,M-ENTER> <VIDEOPHONE-WORKING>>
+	<RTRUE>)>>
 
 <OBJECT COMPUTESTOR
 	(IN NORTH-WALL)
@@ -167,13 +150,13 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	      "." CR>)
        ;(<OR <VERB? FIND>
 	    <AND <VERB? SHOW TELL-ABOUT> <DOBJ? PLAYER>>>
-	%<XTELL
+	<TELL
 "The " D ,COMPUTESTOR " is located in the north part of " D ,YOUR-LABORATORY
 ". For more information, look in your Logbook." CR>)
        (<VERB? LAMP-ON>
 	<COND (<NOT <FSET? ,COMPUTESTOR ,ONBIT>>
 	       <FSET ,COMPUTESTOR ,ONBIT>
-	       %<XTELL "The " D ,COMPUTESTOR " is ready for questions." CR>)>)
+	       <TELL "The " D ,COMPUTESTOR " is ready for questions." CR>)>)
        (<AND <REMOTE-VERB?>
 	     <OR <NOT <VERB? ASK-ABOUT>>
 		 <NOT <DOBJ? COMPUTESTOR>>>>
@@ -181,7 +164,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
        (<NOT <FSET? ,COMPUTESTOR ,ONBIT>>
 	<TELL "The " D ,COMPUTESTOR " is off!" CR>)
        ;(<VERB? TELL>
-	%<XTELL
+	<TELL
 "Ask the " D ,COMPUTESTOR " about something specific." CR>)
        (<VERB? ASK USE>
 	<COND (<FSET? ,VIDEOPHONE ,MUNGBIT>
@@ -198,14 +181,14 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	       <SETG TIP-SAYS-1 32 ;4>
 	       <SETG TIP-SAYS-2 ,VIDEOPHONE>
 	       <ENABLE <QUEUE I-TIP-SAYS 3>>
-	       %<XTELL
+	       <TELL
 "\"Symptoms: no picture, no sound.|
 Possible causes:|
 1) Failure of the " D ,VIDEOPHONE-TRANSMITTER " at source.|
 2) A short in the " D ,VIDEOPHONE-CABLE " linking " D ,VIDEOPHONE-TRANSMITTER
 " to">
 	       <RESEARCH-LAB>
-	       %<XTELL
+	       <TELL
 ", if signal is coming from " D ,AQUADOME ".|
 3) Sunspot interference or " D ,VIDEOPHONE-SATELLITE " malfunction if "
 D ,VIDEOPHONE-TRANSMITTER " is at earth's surface.|
@@ -215,31 +198,31 @@ D ,VIDEOPHONE-TRANSMITTER " is at earth's surface.|
 6) Sabotage (" D ,CIRCUIT-BREAKER " open).\"" CR>)
 	      (<AND <IOBJ? VIDEOPHONE-TRANSMITTER>
 		    <FSET? ,VIDEOPHONE ,MUNGBIT>>
-	       %<XTELL
+	       <TELL
 "Impossible. It's located " D ,UNDERWATER " at the " D ,AQUADOME ",
 beyond your control. Right now you have no communication with the " D
 ,AQUADOME "." CR>)
 	      (<IOBJ? VIDEOPHONE-CABLE>
-	       %<XTELL "This can be done only by submarine." CR>)
+	       <TELL "This can be done only by submarine." CR>)
 	      (<IOBJ? VIDEOPHONE-SATELLITE>
-	       %<XTELL
+	       <TELL
 "You're goofing off, " FN ". Video signals from the " D ,AQUADOME " to">
 	       <RESEARCH-LAB>
-	       %<XTELL
+	       <TELL
 " are NOT relayed by a space " D ,VIDEOPHONE-SATELLITE "." CR>)
 	      (<IOBJ? VIDEOPHONE-RECEIVER>
-	       %<XTELL
+	       <TELL
 "You can do this by pushing the " D ,TEST-BUTTON " on the " D
 ,VIDEOPHONE "." CR>)
 	      (<AND <IOBJ? GLOBAL-SUB REACTOR>
 		    <NOT <IN? ,CATALYST-CAPSULE ,REACTOR>>>
-	       %<XTELL
+	       <TELL
 "\"Symptom: " D ,ENGINE " won't start.|
 Possible causes:|
 1) The " D ,CATALYST-CAPSULE " is not inserted in the " D ,REACTOR ".|
 2) The " D ,REACTOR " is not turned on.|
 3) The " D ,TEST-TANK " is not filled.\"" CR>)
-	      (T %<XTELL
+	      (T <TELL
 "\"This device is designed only to troubleshoot operating problems.\"|
 (Maybe you can find information about" THE-PRSI " in your SEASTALKER
 package.)" CR>)>)>>
@@ -283,13 +266,16 @@ leads out through a " D ,HALLWAY " to the office of your " D
 ,LAB-ASSISTANT ", " D ,GLOBAL-SHARON ". A " D
 ,MICROWAVE-SECURITY-SCANNER " stands against the wall. An " D ,INTERCOM " sits
 on the " D ,DESK "." CR>)
-       (<AND <==? .RARG ,M-ENTER>
-	     ,BREAKER-JUST-FIXED
+       (<AND <==? .RARG ,M-ENTER> <VIDEOPHONE-WORKING>>
+	<RTRUE>)>>
+
+<ROUTINE VIDEOPHONE-WORKING ()
+ <COND (<AND ,BREAKER-JUST-FIXED
 	     <NOT <FSET? ,CIRCUIT-BREAKER ,OPENBIT>>>
 	<SETG BREAKER-JUST-FIXED <>>
 	<TELL "As you re-enter the lab, ">
 	<TIP-SAYS>
-	%<XTELL
+	<TELL
 "Look, " FN "! The " D ,VIDEOPHONE
 "'s working again! There's a normal test pattern on the screen!\"" CR>)>>
 
@@ -305,12 +291,12 @@ on the " D ,DESK "." CR>)
 <ROUTINE MICROWAVE-SECURITY-SCANNER-F ()
  <COND ;(<OR <VERB? FIND>
 	    <AND <VERB? SHOW TELL-ABOUT> <DOBJ? PLAYER>>>
-	%<XTELL
+	<TELL
 "The " D ,MICROWAVE-SECURITY-SCANNER " is located in the east part of "
 D ,YOUR-LABORATORY ".
 For more information, look in your Logbook." CR>)
        (<VERB? LAMP-ON>
-	%<XTELL
+	<TELL
 "No beep occurs. Scanner displays: \"NO INTRUDER PRESENT ON GROUNDS.\"" CR>)>>
 
 <OBJECT DESK
@@ -323,13 +309,15 @@ For more information, look in your Logbook." CR>)
 	(GENERIC GENERIC-DESK-F)
 	(ACTION DESK-F)>
 
-<ROUTINE DESK-F ()
- <COND (<VERB? OPEN> %<XTELL "It has no drawers." CR>)
-       (<AND <VERB? EXAMINE LOOK-INSIDE LOOK-ON> <DOBJ? DESK>>
-	%<XTELL "An intercom is on the desk">
-	<COND (<FIRST? ,DESK>
-	       %<XTELL ", as well as ">
-	       <PRINT-CONTENTS ,DESK>)>
+<ROUTINE DESK-F () <COMMON-DESK-F ,DESK>>
+
+<ROUTINE COMMON-DESK-F (OBJ)
+ <COND (<VERB? OPEN> <TELL "It has no drawers." CR>)
+       (<AND <VERB? EXAMINE LOOK-INSIDE LOOK-ON> <EQUAL? ,PRSO .OBJ>>
+	<TELL "An " D ,INTERCOM " is on the desk">
+	<COND (<FIRST? .OBJ>
+	       <TELL ", as well as ">
+	       <PRINT-CONTENTS .OBJ>)>
 	<TELL "." CR>)>>
 
 <ROUTINE GENERIC-DESK-F (OBJ)
@@ -381,7 +369,7 @@ D ,ELECTRICAL-CONTROL-PANEL " fills most of the north wall." CR>)
 <ROUTINE ELECTRICAL-CONTROL-PANEL-F ()
 	<COND (<AND <VERB? ANALYZE EXAMINE> <FSET? ,CIRCUIT-BREAKER ,OPENBIT>>
 	       <THIS-IS-IT ,CIRCUIT-BREAKER>
-	       %<XTELL
+	       <TELL
 "A " D ,CIRCUIT-BREAKER ;" has popped open" " on the " D
 ,ELECTRICAL-CONTROL-PANEL " is open. This " D ,CIRCUIT-BREAKER" controls the "
 D ,POWER-SUPPLY " to the " D ,VIDEOPHONE " and other equipment in the
@@ -392,17 +380,17 @@ private " D ,VIDEOPHONE " network." CR>
 "How did that happen? You didn't overload the circuit.\"" CR>)>
 	       <RTRUE>)
 	      (<VERB? OPEN>
-	       %<XTELL
+	       <TELL
 "You don't need to open the " D ,ELECTRICAL-CONTROL-PANEL "." CR>)>>
 
 <GLOBAL BREAKER-JUST-FIXED <>>
 <OBJECT CIRCUIT-BREAKER
 	(IN HALLWAY)
-	(ADJECTIVE THIS CIRCUIT)
+	(ADJECTIVE THIS CIRCUIT OPEN)
 	(SYNONYM BREAKER CIRCUIT SWITCH)
 	(DESC "circuit breaker")
-	(FDESC
-"A circuit breaker is open on the Electrical Panel." ;" Power")
+	;(FDESC
+"A circuit breaker is open on the Electrical Panel.")
 	(FLAGS CONTBIT NDESCBIT TOUCHBIT)
 	(CAPACITY 0)
 	(TEXT "(You'll find that information in your SEASTALKER package.)")
@@ -412,7 +400,7 @@ private " D ,VIDEOPHONE " network." CR>
 <ROUTINE CIRCUIT-BREAKER-F ("AUX" V)
  <COND (<AND <VERB? ANALYZE EXAMINE> <FSET? ,PRSO ,OPENBIT>>
 	<TELL-HINT 31 ,ELECTRICAL-CONTROL-PANEL <>>)
-       (<VERB? CLOSE PUSH FIX MOVE TURN>
+       (<VERB? CLOSE PUSH FIX MOVE TURN LAMP-ON>
 	<COND (<FSET? ,PRSO ,OPENBIT>
 	       <FSET ,PRSO ,NDESCBIT>
 	       <OKAY ,CIRCUIT-BREAKER "closed">
@@ -424,7 +412,7 @@ private " D ,VIDEOPHONE " network." CR>
 		      <SCORE-OBJ ,CIRCUIT-BREAKER>)>
 	       <RTRUE>)
 	      (T <ALREADY ,CIRCUIT-BREAKER "closed">)>)
-       (<VERB? OPEN>
+       (<VERB? OPEN LAMP-OFF>
 	<COND (<FSET? ,PRSO ,OPENBIT> <ALREADY ,CIRCUIT-BREAKER "open">)
 	      (T
 	       <TELL "You shouldn't do that." CR>)>)>>
@@ -493,7 +481,7 @@ out to the parking lot. To the west, a " D ,HALLWAY " leads back to " D
 	<COND (<IN? ,SHARON ,OFFICE>
 	       <THIS-IS-IT ,SHARON>
 	       <THIS-IS-IT ,FILE-DRAWER>
-	       %<XTELL
+	       <TELL
 "As you enter, Sharon is hastily going through the contents of an open
 " D ,FILE-DRAWER ". She turns with a startled expression as you
 appear in the doorway. Her face is flushed and her manner seems
@@ -513,7 +501,7 @@ slightly emotional." CR>)>)>>
 
 <OBJECT FILE-DRAWER
 	(IN OFFICE)
-	(ADJECTIVE FILE PERSONNEL SHARON KEMP\'S)
+	(ADJECTIVE FILE SHARON KEMP\'S)
 	(SYNONYM DRAWER FILE FILES CABINET)
 	(DESC "file drawer")
 	(FLAGS CONTBIT SEARCHBIT OPENBIT NDESCBIT)
@@ -532,13 +520,12 @@ slightly emotional." CR>)>)>>
 <ROUTINE PAPERS-F ("AUX" X)
  <COND (<AND <VERB? LOOK-UP> <IOBJ? FILE-DRAWER PAPERS>>
 	<COND (<FSET? ,PRSO ,PERSON>
-	       %<XTELL <GETP ,LOCAL-SUB ,P?TEXT>
-;"(You'll find that information in your SEASTALKER package.)" CR>)
-	      (T %<XTELL
+	       <TELL <GETP ,LOCAL-SUB ,P?TEXT> CR>)
+	      (T <TELL
 "There's no information in the drawer about that.">)>
 	<CRLF>)
        (<AND <VERB? CLOSE> <IN? ,SHARON ,OFFICE>>
-	%<XTELL
+	<TELL
 "Sharon stops you from closing it. \"Hey, " FN "! I can't do my job here
 if you interfere!\"" CR>)
        (<VERB? ;BURN EXAMINE LOOK-INSIDE READ TAKE SEARCH SEARCH-FOR>
@@ -546,11 +533,11 @@ if you interfere!\"" CR>)
 	       <TOO-BAD-BUT ,FILE-DRAWER "closed">
 	       <RTRUE>)>
 	<FSET ,PAPERS ,TOUCHBIT>
-	%<XTELL "You look ">
+	<TELL "You look ">
 	<COND (<==? ,P-ADVERB ,W?CAREFULLY>
-	       %<XTELL "more thoroughly through the drawer and still">)
-	      (T %<XTELL "quickly through the drawer but">)>
-	%<XTELL
+	       <TELL "more thoroughly through the drawer and still">)
+	      (T <TELL "quickly through the drawer but">)>
+	<TELL
 " find nothing suspicious, so you decide to leave the papers alone." CR>)>>
 
 <OBJECT KEMP-DESK
@@ -561,7 +548,10 @@ if you interfere!\"" CR>)
 	(FLAGS CONTBIT SEARCHBIT SURFACEBIT OPENBIT NDESCBIT NARTICLEBIT)
 	(CAPACITY 33)
 	(GENERIC GENERIC-DESK-F)
-	(ACTION DESK-F)>
+	(ACTION KEMP-DESK-F)>
+
+<ROUTINE KEMP-DESK-F () <COMMON-DESK-F ,KEMP-DESK>>
+
 ]
 <ROOM LIMBO
 	(IN ROOMS)
@@ -593,7 +583,9 @@ if you interfere!\"" CR>)
 	<TELL
 "You're in the " D ,SOUTH-WALL " of " D ,YOUR-LABORATORY ", next to
 shelves full of chemical and electronic supplies. A door leads south to
-the " D ,TEST-TANK "." CR>)>>
+the " D ,TEST-TANK "." CR>)
+       (<AND <==? .RARG ,M-ENTER> <VIDEOPHONE-WORKING>>
+	<RTRUE>)>>
 
 <OBJECT CHEMICAL-SUPPLY-SHELVES
 	(IN SOUTH-WALL)
@@ -656,7 +648,9 @@ the " D ,TEST-TANK "." CR>)>>
  <COND (<==? .RARG ,M-LOOK>
 	<TELL
 "You're in the " D ,WEST-WALL " of " D ,YOUR-LABORATORY ", next to a
-shelf full of mechanical supplies." CR>)>>
+shelf full of mechanical supplies." CR>)
+       (<AND <==? .RARG ,M-ENTER> <VIDEOPHONE-WORKING>>
+	<RTRUE>)>>
 
 <OBJECT MECHANICAL-SUPPLY-SHELVES
 	(IN WEST-WALL)
@@ -678,15 +672,6 @@ shelf full of mechanical supplies." CR>)>>
 	(SYNONYM BUNCH MECHANICAL SUPPLY SUPPLIES)
 	(DESC "bunch of mechanical supplies")
 	(FLAGS NDESCBIT)>
-
-"<OBJECT TOOLS
-	(IN WEST-WALL)
-	(ADJECTIVE MACHIN OTHER)
-	(SYNONYM TOOL TOOLS DEVICE BUNCH)
-	(DESC 'bunch of machine tools and other devices')
-	(TEXT
-'The machine tools and other devices are used by you in constructing
-pilot models of your inventions.')>"
 ][
 <ROOM CENTER-OF-LAB
 	(IN ROOMS)
@@ -714,20 +699,20 @@ pilot models of your inventions.')>"
 	     <EXIT-VERB?>>
 	<THIS-IS-IT ,MICROPHONE>
 	<HE-SHE-IT ,WINNER T>
-	%<XTELL " can't walk away while ">
-	<HE-SHE-IT ,WINNER>
-	<COND (<IN? ,MICROPHONE ,PLAYER> <TELL "'re">)
-	      (T <TELL "'s">)>
+	<TELL " can't walk away while ">
+	<HE-SHE-IT ,WINNER <> "is">
 	<TELL " holding the " D ,MICROPHONE "!" CR>	;"[YOU-CANT?]")
        (<==? .RARG ,M-LOOK>
-	%<XTELL
+	<TELL
 "You're at your workbench in the center of " D ,YOUR-LABORATORY ",
 a small part of">
 	<RESEARCH-LAB>
 	<TELL
 " in the town of Frobton. The " D ,VIDEOPHONE " screen looms overhead">
 	<COND (,ALARM-RINGING <TELL ", with its " D ,ALARM " ringing">)>
-	<TELL "." CR>)>>
+	<TELL "." CR>)
+       (<AND <==? .RARG ,M-ENTER> <VIDEOPHONE-WORKING>>
+	<RTRUE>)>>
 
 <OBJECT WORKBENCH
 	(IN CENTER-OF-LAB)
@@ -752,19 +737,19 @@ a small part of">
 	(FLAGS NDESCBIT)
 	(ACTION SUB-PLANS-F)>
 
-<ROUTINE SUB-PLANS-F ("AUX" X STR)
+<ROUTINE SCREENPLAY () <TELL "Screenplay by Jim Lawrence" CR>>
+
+<ROUTINE SUB-PLANS-F ("AUX" X)
  <COND (<VERB? ANALYZE EXAMINE READ>
-	<SET X <G? 50 <RANDOM 100>> ;<PROB 50>>
-	<SET STR "Screenplay by Jim Lawrence|
-">
-	%<XTELL
+	<TELL
 "Written in one corner is the legend:|
 |
 ">
-	<COND (.X <TELL .STR>)>
+	<SET X <RANDOM 2>>
+	<COND (<1? .X> <SCREENPLAY>)>
 	<TELL "  Directed by Stu Galley|
 ">
-	<COND (<NOT .X> <TELL .STR>)>
+	<COND (<NOT <1? .X>> <SCREENPLAY>)>
 	<CRLF>
 	<V-VERSION>)>>
 
@@ -785,7 +770,7 @@ a small part of">
 
 <ROUTINE MICROPHONE-F ("OPTIONAL" (DOME? <>))
  <COND (<VERB? EXAMINE>
-	%<XTELL
+	<TELL
 "The " D ,MICROPHONE " is connected to the " D ,VIDEOPHONE " by a coiled
 cord. At the moment, it is turned o">
 	<COND (<OR <AND .DOME? <FSET? ,MICROPHONE-DOME ,ONBIT>>
@@ -797,18 +782,18 @@ cord. At the moment, it is turned o">
 		 <DIVESTMENT? ,MICROPHONE-DOME>>
 	     <DOBJ? MICROPHONE MICROPHONE-DOME>
 	     <EQUAL? ,VIDEOPHONE ,REMOTE-PERSON-ON>>
-	%<XTELL
-"You'd better say \"Good-bye\"" ;" to  D ,REMOTE-PERSON" " first." CR>)
+	<TELL
+"You'd better say \"Good-bye\" to " D ,REMOTE-PERSON " first." CR>)
        (<AND <VERB? REPLY SAY-INTO> <NOT <FSET? ,VIDEOPHONE ,ONBIT>>>
-	%<XTELL
+	<TELL
 "That won't do any good while the " D ,VIDEOPHONE " is off." CR>)
        (<VERB? SAY-INTO>
 	<COND (<EQUAL? ,REMOTE-PERSON-ON ,VIDEOPHONE>
-	       %<XTELL D ,REMOTE-PERSON " nods at you." CR>)
+	       <TELL D ,REMOTE-PERSON " nods at you." CR>)
 	      (,WOMAN-ON-SCREEN
-	       %<XTELL
+	       <TELL
 "That won't do any good while the sound is fuzzy." CR>)
-	      (T %<XTELL "It's not clear whom you're talking to." CR>)>)
+	      (T <TELL "It's not clear whom you're talking to." CR>)>)
        (<AND <VERB? LAMP-ON>
 	     <OR <IN? ,MICROPHONE ,PLAYER> <IN? ,MICROPHONE-DOME ,PLAYER>>>
 	<COND (<OR <AND .DOME? <FSET? ,MICROPHONE-DOME ,ONBIT>>
@@ -827,13 +812,14 @@ cord. At the moment, it is turned o">
 
 <ROUTINE TECHNICIAN-F ()
  <COND (<VERB? FIND PHONE TAKE $CALL>
-	%<XTELL
-"How can you do that? By telepathy or carrier pigeon?
-Seriously, "
-;"the telephone is on your desk to the east. "
-"your " D ,LAB-ASSISTANT
-", Sharon Kemp, is in her office, which is through a doorway to
-the east. Or, you could summon her by the intercom on your desk." CR>)>>
+	<TELL
+"How can you do that? By telepathy or carrier pigeon? ">
+	<COND (<IN? ,SHARON ,OFFICE>
+	       <TELL
+"Seriously, your " D ,LAB-ASSISTANT ", " D ,SHARON ", is in her office,
+which is through a doorway to the east. Or, you could summon her by the
+" D ,INTERCOM " on your desk.">)>
+	<CRLF>)>>
 ]
 <OBJECT SOUTH-DOORWAY
 	(ADJECTIVE SOUTH SLIDING)
@@ -955,18 +941,18 @@ the east. Or, you could summon her by the intercom on your desk." CR>)>>
 		<FSET ,WEST-TANK-AREA  ,TOUCHBIT>
 		<FSET ,SOUTH-TANK-AREA ,TOUCHBIT>
 		<COND (<EQUAL? ,HERE ,NORTH-TANK-AREA>
-		       %<XTELL
+		       <TELL
 "You're at a temporary runway or gangplank that leads from the walkway
-to the entry hatch of the " D ,GLOBAL-SUB>
-		       <DDESC ". The hatch is " ,SUB-DOOR ".|">)
+to the " D ,SUB-DOOR " of the " D ,GLOBAL-SUB ". ">
+		       <CHECK-DOOR ,SUB-DOOR>)
 		      (<EQUAL? ,HERE ,WEST-TANK-AREA>
-		       %<XTELL
+		       <TELL
 "You're at a " D ,WORK-COUNTER ", next to the " D ,TANK-CONTROL-GEAR-1
 " used to operate the " D ,TEST-TANK ".|">)>
-		%<XTELL "The test tank (which is now ">
+		<TELL "The test tank (which is now ">
 		<COND (,TEST-TANK-FULL <TELL "filled with ">)
 		      (T <TELL "empty of ">)>
-		%<XTELL
+		<TELL
 D ,GLOBAL-WATER ") is located in a large work room, just south of "
 D ,YOUR-LABORATORY ", with
 concrete-block walls on three sides and a high metal roof. Most of
@@ -979,10 +965,10 @@ a steel gate forms the wall of the room." CR>)>>
 
 "Other stuff"
 
-<ROUTINE FRESH-AIR? (RM "AUX" P L T O)
+<ROUTINE FRESH-AIR? (RM "AUX" P L TBL O)
 	#DECL ((RM O) OBJECT (P L) FIX)
 	<COND (<AND ,DOME-AIR-BAD? ,SUB-IN-DOME ;<IN-DOME? .RM>>
-	       %<XTELL
+	       <TELL
 "It's impossible to tell that way whether the air is good." CR>
 	       <RTRUE>)>
 	<SET P 0>
@@ -990,47 +976,47 @@ a steel gate forms the wall of the room." CR>)>>
 		<COND (<0? <SET P <NEXTP ,HERE .P>>>
 		       <RFALSE>)
 		      (<NOT <L? .P ,LOW-DIRECTION>>
-		       <SET T <GETPT ,HERE .P>>
-		       <SET L <PTSIZE .T>>
+		       <SET TBL <GETPT ,HERE .P>>
+		       <SET L <PTSIZE .TBL>>
 		       <COND (<AND <EQUAL? .L ,DEXIT>	;"Door EXIT"
-				   <FSET? <SET O <GETB .T ,DEXITOBJ>>
+				   <FSET? <SET O <GETB .TBL ,DEXITOBJ>>
 					  ,OPENBIT>>
-			      %<XTELL
+			      <TELL
 "There's a pleasant breeze coming through the " D .O "." CR>
 			      <RETURN>)>)>>>
 
 "unused corridor: COR-40000"
 [
 <GLOBAL COR-20000
-	<TABLE P?NORTH P?SOUTH OUTSIDE-COMM-BLDG OUTSIDE-ADMIN-BLDG 0>>
+	<PTABLE P?NORTH P?SOUTH OUTSIDE-COMM-BLDG OUTSIDE-ADMIN-BLDG 0>>
 <GLOBAL COR-10000
-	<TABLE P?WEST P?EAST OUTSIDE-WORKSHOP OUTSIDE-COMM-BLDG 0>>
+	<PTABLE P?WEST P?EAST OUTSIDE-WORKSHOP OUTSIDE-COMM-BLDG 0>>
 <GLOBAL COR-4000
-	<TABLE P?NORTH P?SOUTH OUTSIDE-WORKSHOP OUTSIDE-DORM 0>>
+	<PTABLE P?NORTH P?SOUTH OUTSIDE-WORKSHOP OUTSIDE-DORM 0>>
 <GLOBAL COR-2000
-	<TABLE P?WEST P?EAST OUTSIDE-DORM FOOT-OF-RAMP OUTSIDE-ADMIN-BLDG 0>>
+	<PTABLE P?WEST P?EAST OUTSIDE-DORM FOOT-OF-RAMP OUTSIDE-ADMIN-BLDG 0>>
 <GLOBAL COR-1000
-	<TABLE P?NORTH P?SOUTH CENTER-OF-DOME FOOT-OF-RAMP AIRLOCK-WALL 0>>
+	<PTABLE P?NORTH P?SOUTH CENTER-OF-DOME FOOT-OF-RAMP AIRLOCK-WALL 0>>
 <GLOBAL COR-400
-	<TABLE P?NE P?SW OUTSIDE-COMM-BLDG CENTER-OF-DOME OUTSIDE-DORM 0>>
+	<PTABLE P?NE P?SW OUTSIDE-COMM-BLDG CENTER-OF-DOME OUTSIDE-DORM 0>>
 <GLOBAL COR-200
-	<TABLE P?NW P?SE
+	<PTABLE P?NW P?SE
 	       OUTSIDE-WORKSHOP CENTER-OF-DOME OUTSIDE-ADMIN-BLDG 0>>
 <GLOBAL COR-64
-	<TABLE P?NORTH P?SOUTH
+	<PTABLE P?NORTH P?SOUTH
 	       NORTH-TANK-AREA WEST-TANK-AREA SOUTH-TANK-AREA 0>>
 <GLOBAL COR-32
-	<TABLE P?NORTH P?SOUTH NORTH-WALL WEST-WALL 0>>
+	<PTABLE P?NORTH P?SOUTH NORTH-WALL WEST-WALL 0>>
 <GLOBAL COR-16
-	<TABLE P?NORTH P?SOUTH WEST-WALL SOUTH-WALL 0>>
+	<PTABLE P?NORTH P?SOUTH WEST-WALL SOUTH-WALL 0>>
 <GLOBAL COR-8
-	<TABLE P?WEST P?EAST WEST-WALL CENTER-OF-LAB EAST-WALL 0>>
+	<PTABLE P?WEST P?EAST WEST-WALL CENTER-OF-LAB EAST-WALL 0>>
 <GLOBAL COR-4
-	<TABLE P?NORTH P?SOUTH NORTH-WALL CENTER-OF-LAB SOUTH-WALL 0>>
+	<PTABLE P?NORTH P?SOUTH NORTH-WALL CENTER-OF-LAB SOUTH-WALL 0>>
 <GLOBAL COR-2
-	<TABLE P?NORTH P?SOUTH NORTH-WALL EAST-WALL 0>>
+	<PTABLE P?NORTH P?SOUTH NORTH-WALL EAST-WALL 0>>
 <GLOBAL COR-1
-	<TABLE P?NORTH P?SOUTH EAST-WALL SOUTH-WALL 0>>
+	<PTABLE P?NORTH P?SOUTH EAST-WALL SOUTH-WALL 0>>
 ]
 
 "Routines to do looking down corridors"
@@ -1096,7 +1082,7 @@ a steel gate forms the wall of the room." CR>)>>
 	 <COND (.FOUND <RETURN .FOUND>)>)>
   <SET CNT <+ .CNT 1>>>>
 
-<ROUTINE COR-DIR (HERE THERE "AUX" COR RM (PAST 0) (CNT 2))
+;<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 ()
@@ -1108,7 +1094,7 @@ a steel gate forms the wall of the room." CR>)>>
 		 <SET CNT <+ .CNT 1>>>
 	 <GET .COR .PAST>>
 
-<ROUTINE GET-COR (NUM)
+;<ROUTINE GET-COR (NUM)
 	 #DECL ((NUM) FIX)
 	 <COND (<==? .NUM 1> ,COR-1)
 	       (<==? .NUM 2> ,COR-2)
diff --git a/points.mss b/points.mss
new file mode 100644
index 0000000..d1e1cbf
--- /dev/null
+++ b/points.mss
@@ -0,0 +1,64 @@
+@style (spacing 1)
+@title (Points in "Seastalker")
+@pageheading (DRAFT)
+@majorheading (POINTS IN "SEASTALKER")
+
+Copyright (C) 1984 Infocom, Inc.  All rights reserved.
+
+@begin (description)
+1@\TURN ON VIDEOSCOPE
+
+1@\TUNE VIDEOSCOPE
+
+1@\TAKE MICROPHONE
+
+-3@\[open circuit breaker]
+
+3@\CLOSE CIRCUIT BREAKER
+
+5@\TAKE CATALYST CAPSULE
+
+1@\ENTER SUBMARINE
+
+5@\TURN ON REACTOR
+
+5@\TURN ON ENGINE
+
+5@\enter bay
+
+5@\enter ocean
+
+5@\TURN ON AUTOPILOT
+
+5@\enter Aquadome
+
+5@\OPEN AIR SUPPLY
+
+5@\SCREW IN RELAY
+
+5@\install Escape Unit
+
+5@\ARREST GREENUP
+
+5@\CAPTURE GREENUP
+
+5@\FIX DART
+
+5@\INSTALL DART
+
+5@\TAKE BAZOOKA
+
+5@\INSTALL BAZOOKA
+
+1@\leave Aquadome
+
+5@\find Snark
+
+5@\AIM BAZOOKA AT SEACAT
+
+5@\FIRE BAZOOKA
+
+-----
+
+100@\TOTAL
+@end (description)
diff --git a/sample.mss b/sample.mss
new file mode 100644
index 0000000..759dabc
--- /dev/null
+++ b/sample.mss
@@ -0,0 +1,205 @@
+@style (spacing 1)
+@title [SAMPLE TRANSCRIPT]
+@center (SAMPLE YOUNG-ADVENTURE TRANSCRIPT)
+@center (Comments to Stu Galley)
+
+This transcript is not from SEASTALKER, but it shows most of
+the usual things that you can do while playing. It shows
+several simple puzzles and their solutions, and it should give
+you a good idea of how an interactive text adventure story works.
+(The comments inside brackets [] are not real parts of the transcript.
+They just explain what's going on.)
+
+@begin (example)
+
+You are lying on your bed, trying to do your homework and listen to the
+radio at the same time. Suddenly your telephone rings!
+
+>ANSWER THE PHONE
+You pick up the receiver, but you can't hear who's calling because the
+radio is too loud.
+
+>TURN OFF THE RADIO
+That's better! Now you can tell that it's your mother, calling
+from her office.
+
+>MOTHER, WHAT'S HAPPENING?
+"Someone just asked me to go meet a visitor at the airport. Could you
+please drive here to pick me up?"
+
+>MOTHER, RIDE THE BUS
+"That wouldn't get me there on time."
+
+>BORROW A CAR
+You can't see any car here.
+[It can make a big difference if the program thinks you're not talking
+to someone.]
+
+>MOTHER, BORROW A CAR
+"I tried that, but I just can't find one. Won't you please do this favor
+for me?" (Answer yes or no:) >YES
+
+"Thank you, dear. I'll do a favor for you, soon. Goodbye!"
+
+>MOTHER, GOODBYE
+If it isn't one thing, it's another -- as soon as you hang up the phone,
+the doorbell rings!
+
+>GO TO THE FRON
+(I don't know the word "fron".)
+
+>GO TO THE FRONT
+(I assume you mean the front door.)
+It's in the front hall. Now you're there too.
+(front hall)
+The front hall is bare, except for a coat rack and two doors. A door
+into the living room is on the east side, and the front door is on the
+south.
+
+>OPEN IT
+When you open the front door, your friend Pat steps in and says, "Hi!
+What's up?"
+
+>MY MOTHER NEEDS A RIDE
+(I don't know the word "needs".)
+[And that command doesn't begin with a verb or a question word.]
+
+>COME WITH ME TO MY MOTHER'S OFFICE
+(Sorry, but English is not my native language. Please re-word that or
+try something else.)
+[The command looks okay, but the program doesn't recognize that form.]
+
+>COME WITH ME
+"Okay, let's go!"
+
+>FIND THE CAR
+It's usually parked in the garage.
+
+>GO TO THE GARAGE
+Pat goes with you.
+(garage)
+The garage is just big enough for one car, two bikes, and a bunch of
+garden tools. There is a car-sized door on the east wall and a
+people-sized door on the west.
+The family car, a snazzy convertible, is parked here.
+
+>GET IN
+(What do you want to get in?)
+
+>CAR
+Pat goes with you.
+(car)
+You are now sitting in the driver's seat of the convertible, and Pat is
+sitting beside you.
+
+>START THE CAR
+"Hey," says Pat, "why won't it start? Did you put the key in?"
+
+>FIND THE KEY
+You should know where it is -- it's your house!
+
+>PAT, WAIT HERE
+"Okay." Pat settles into the seat and gets comfortable.
+
+>GO WEST
+You can't go that way while you're in the car.
+
+>GET OUT
+(out of the car)
+(garage)
+The family car, a snazzy convertible, is parked here.
+
+>GO WEST
+[If you're looking for something, you should probably go one room at a time.]
+(kitchen)
+The kitchen looks a lot like most kitchens: a stove, a sink, a fridge,
+shelves, and so on. The last of this morning's coffee is in a pot on the
+stove, and the faucet is dripping a little.
+
+>DRINK THE COFFEE THEN FIX THE FAUCET
+You don't have time for that.
+You don't have time for that.
+[Sometimes the computer will seem to act foolish or repeat things. After all,
+it's only a machine!]
+
+>LOOK AT THE SHELVES
+The shelves hold cookbooks, spices, knick-knacks, a cookie jar, and so on.
+
+>LOOK IN COOKIE JAR
+It's full of cookies!
+
+>TAKE A COOKIE AND A SPICE
+cookie: Taken.
+spice: Don't be silly!
+
+>FIND THE KEY
+It's right here, on the shelf.
+
+>LOOK AT THE SHELVES
+The shelves hold cookbooks, spices, knick-knacks, a cookie jar, and so on.
+A car key is also visible on the shelf.
+[Sometimes you have to try hard to find something in a crowded place.]
+
+>TAKE KEY. WEST. PUT IT IN THE LOCK
+Taken.
+You can't go that way.
+[If one of your commands doesn't work, the program ignores the rest of
+your input line.]
+
+>E
+(garage)
+The family car, a snazzy convertible, is parked here.
+
+>IN
+(car)
+You are now sitting in the driver's seat of the convertible, and Pat is
+sitting beside you.
+
+>INVENTORY
+You are holding:
+  a car key
+  a cookie
+
+>PUT KEY IN LOCK
+Done.
+
+>GIVE THE COOKIE TO PAT
+"Hey, thanks!"
+
+>I
+You are empty-handed.
+[The short word for INVENTORY is I.]
+
+>START THE CAR
+Vr-r-r-roooooom!
+
+>BACK OUT
+(I don't understand the word "back" when you use it that way.)
+[The program recognizes the word "back" but not as a verb.]
+
+>GO EAST
+Oops! You ran into the closed garage door. It's a good thing you
+weren't driving very fast!
+
+>GET OUT
+(out of the car)
+(garage)
+The family car, a snazzy convertible, is parked here.
+
+>OPEN DOOR
+(Which door do you mean, the car door, the car-sized door, or the
+people-sized door?)
+
+>CAR-SI
+Okay, it's now wide open.
+[If you want to count letters, you can always stop at six.]
+
+>IN
+(car)
+You are now sitting in the driver's seat of the convertible, and Pat is
+sitting beside you.
+
+>E
+As the car backs out of the garage, we come to the end of this sample.
+Have a good trip!
+@end (example)
diff --git a/screens.zil b/screens.zil
new file mode 100644
index 0000000..da7094f
--- /dev/null
+++ b/screens.zil
@@ -0,0 +1,137 @@
+"The SPLIT & SCREEN operations allow you to divide the screen into two
+parts: one that behaves as usual and another that you update without
+scrolling.
+
+<SPLIT INT>
+divides the screen into two windows: #1 occupies INT lines, preferably
+at the top of the screen, and #0 occupies the remainder of the screen.
+<SPLIT 0>
+restores the normal screen format.
+
+<SCREEN INT>
+causes subsequent screen output to fall into window #INT.
+If INT is 1, the output cursor is moved to the upper left-hand corner;
+if INT is 0, the output cursor is restored to its previous position.
+You should be careful not to let window #1 scroll; output will be
+unpredictable.
+
+Only the more popular micro-computers support these operations.
+To check whether the program is running on one, use this:"
+
+<ROUTINE SPLIT-SCREEN? () <NOT <EQUAL? 0 <BAND 32 <GETB 0 1>>>>>
+
+"Here's a fragment from Seastalker that splits the screen:"
+
+	<COND (<AND ,AUTOMATIC-SONAR	;"Did player SET SCOPE TO AUTO ?"
+		    <SPLIT-SCREEN?>>
+	       <SETG SCREEN-NOW-SPLIT T>
+	       <START-SONAR?>)>
+	<TELL "The submarine glides smoothly out of the tank ...">
+
+"And here are the routines that support it:"
+
+<ROUTINE START-SONAR? ()
+	 <COND (,SCREEN-NOW-SPLIT
+		<SPLIT <+ 3 <* 2 ,SONAR-RANGE>>>
+		<SETG SONAR-DIR 0>	;"to ensure update"
+		<I-SHOW-SONAR>		;"to update immediately"
+		<ENABLE <QUEUE I-SHOW-SONAR -1>>)>>
+
+<ROUTINE I-SHOW-SONAR ()
+ <COND (<AND <FSET? ,SNARK ,INVISIBLE>
+	     <FSET? ,FREIGHTER ,INVISIBLE>
+	     <==? ,SONAR-LON ,SUB-LON>
+	     <==? ,SONAR-LAT ,SUB-LAT>
+	     <==? ,SONAR-DEP ,SUB-DEPTH>
+	     <==? ,SONAR-DIR ,JOYSTICK-DIR>>
+	<COND (,DEBUG <TELL "[no sonar update]" CR>)>
+	<RFALSE>)
+       (T
+	<SCREEN 1>
+	<SHOW-SONARSCOPE>
+	<SCREEN 0>
+	<SETG SONAR-LON ,SUB-LON>
+	<SETG SONAR-LAT ,SUB-LAT>
+	<SETG SONAR-DEP ,SUB-DEPTH>
+	<SETG SONAR-DIR ,JOYSTICK-DIR>
+	<RFALSE>)>>
+
+"In Seastalker, nothing happens unless the player 'turns on' the scope:"
+
+<ROUTINE SONARSCOPE-F ("AUX" DEP N)
+ <COND (<REMOTE-VERB?> <RFALSE>)
+       (<VERB? LAMP-ON>
+	<COND (<SPLIT-SCREEN?>
+	       <FSET ,SONARSCOPE ,ONBIT>
+	       <PERFORM ,V?SET ,SONARSCOPE ,AUTOMATIC>
+	       <RTRUE>)>)
+       (<NOT <FSET? ,SONARSCOPE ,ONBIT>>
+	<THIS-IS-IT ,SONARSCOPE>
+	<TELL "It's not turned on!" CR>
+	<RTRUE>)
+       (<VERB? LAMP-OFF>
+	<COND (,AUTOMATIC-SONAR
+	       <PERFORM ,V?SET ,SONARSCOPE ,MANUAL>
+	       <SETG AUTOMATIC-SONAR <>>
+	       <RTRUE>)>)
+       (<VERB? ANALYZE EXAMINE READ LOOK-INSIDE LOOK-ON>
+	<FIXED-FONT-ON>
+	<TELL "(+=you, .=open water, *=obstacle)" CR>
+	<SET N <* 2 ,SONAR-RANGE>>
+	<REPEAT ()
+		<TELL "--">
+		<COND (<DLESS? N 0> <CRLF> <RETURN>)>>
+	<COND (,SCREEN-NOW-SPLIT
+	       <FIXED-FONT-OFF>
+	       <ALREADY ,PLAYER "looking at it">)
+	      (T <SHOW-SONARSCOPE>)>
+	<RTRUE>)
+       (<AND <VERB? SET PUT MOVE-DIR> <DOBJ? SONARSCOPE>>
+	<COND (<IOBJ? AUTOMATIC>
+	       <COND (,AUTOMATIC-SONAR
+		      <ALREADY ,SONARSCOPE "set to automatic">)
+		     (<SPLIT-SCREEN?>
+		      <SETG AUTOMATIC-SONAR T>
+		      <SETG SCREEN-NOW-SPLIT T>
+		      <START-SONAR?>
+		      <OKAY ,SONARSCOPE "set to automatic">)
+		     (T <NOT-AVAILABLE>)>)
+	      (<IOBJ? MANUAL>
+	       <COND (<NOT ,AUTOMATIC-SONAR>
+		      <ALREADY ,SONARSCOPE "set to manual">)
+		     (<SPLIT-SCREEN?>
+		      <SETG AUTOMATIC-SONAR <>>
+		      <SETG SCREEN-NOW-SPLIT <>>
+		      <SPLIT 0>
+		      <DISABLE <INT I-SHOW-SONAR>>
+		      <OKAY ,SONARSCOPE "set to manual">)
+		     (T <NOT-AVAILABLE>)>)>)>>
+
+"And there are times when the scope must be 'off':"
+
+<ROUTINE SONAR-TO-MANUAL ()
+ <COND (<AND ,AUTOMATIC-SONAR <SPLIT-SCREEN?>>
+	<SETG AUTOMATIC-SONAR <>>
+	<SETG SCREEN-NOW-SPLIT <>>
+	<SPLIT 0>
+	<DISABLE <INT I-SHOW-SONAR>>
+	<TELL "The sonarscope automatically sets itself to manual." CR>)>>
+
+"Finally, there's a little extra work for SAVE & RESTORE:"
+
+<ROUTINE V-SAVE ()
+	 <COND (,SCREEN-NOW-SPLIT <SPLIT 0>)>
+	 <COND (<SAVE>
+	        <TELL "Okay." CR>
+		<V-FIRST-LOOK>)
+	       (T
+		<TELL ,FAILED CR>)>
+	 <START-SONAR?>
+	 <RTRUE>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (,SCREEN-NOW-SPLIT <SPLIT 0>)>
+	 <COND (<NOT <RESTORE>>
+		<TELL ,FAILED CR>
+		<START-SONAR?>
+		<RFALSE>)>>
diff --git a/script.mss b/script.mss
new file mode 100644
index 0000000..c5131e1
--- /dev/null
+++ b/script.mss
@@ -0,0 +1,959 @@
+@style (spacing 1)
+Copyright (c) 1984 Infocom, Inc. All rights reserved.
+
+Welcome to junior-level interactive fiction from Infocom!
+
+In this story, you're the hero or heroine, so we'll use your name!
+
+Please type your first name.
+
+> JIM@*
+Hello Jim! Now type your last name.
+
+> LAWRENCE@*
+Is Jim Lawrence right? > YES@*
+Then let the story begin!
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+SEASTALKER: JIM LAWRENCE AND THE ULTRAMARINE BIOCEPTOR@*
+Junior-level interactive fiction from Infocom@*
+Copyright (c) 1984 Infocom, Inc. All rights reserved.@*
+SEASTALKER is a trademark of Infocom, Inc.@*
+Revision number 8 / Serial number 840424@*
+
+"Jim, snap out of it!" cries Tip Randall, bursting into your laboratory.
+"The alert signal is on!"@*
+As you look up from your top-secret plans for the SCIMITAR, a submarine
+for capturing marine life on the ocean floor and still being tested,
+you notice the alarm bell on the videophone ringing. Someone's trying
+to reach you over the private videophone network of Inventions Unlimited!
+
+(lab center)@*
+You're at your workbench in the center of your laboratory, a small
+part of the Lawrence Research Lab in the town of Frobton. The videophone
+screen looms overhead, with its alarm bell ringing.@*
+Tip is here.@*
+A microphone is sitting on your workbench.
+
+Okay, Jim, what do you want to do now?@*
+> ANSWER PHONE@*
+As the alarm bell stops ringing, a picture of a woman holding a microphone
+appears, and you can hear her voice from the speaker. But both sound
+and picture are fuzzy.@*
+(Your score just went up by 1 point!)
+
+What next?
+
+> FIX IT@*
+Ah, that's better! You recognize the woman as Commander Bly, who's
+in charge of the Undersea Research Station of Inventions Unlimited,
+called the Aquadome, just off the Atlantic coast. "Jim! Jim!" she's
+saying. "This is the Aquadome calling the Lawrence Research Lab! We
+have an urgent problem!"@*
+(Your score just went up by 1 point!)
+
+What next?
+
+> TAKE MIKE@*
+(Your score just went up by 1 point!)@*
+You're now holding the microphone.
+
+What next?
+
+> TURN IT ON@*
+Okay, the microphone is now on.
+
+What next?
+
+> HELLO@*
+"Jim! Jim! Our transparent dome enclosing the Undersea Research Station
+is being battered by a huge monster!"
+
+What next?
+
+> GOODBYE@*
+"I hope to see you soon, Jim."
+
+Something's wrong! The picture vanished from your videophone screen,
+and the sound conked out!@*
+Tip says, "That's strange! Maybe you should use the Computestor."@*
+(Oh no! Your score just went down by 3 points!)
+
+What next?
+
+> DROP MIKE@*
+Okay, the microphone is now on the floor.
+
+What next?
+
+> GO TO BREAKER@*
+It's in the corridor.@*
+(corridor)@*
+You're in a corridor, with your laboratory to the west, a storage closet
+to the south, and Kemp's office to the east. An Electrical Panel fills
+most of the north wall.
+
+Tip follows you into the corridor.@*
+(If you want a clue, find Infocard #3 in your SEASTALKER package. Read
+hidden clue #1 and put "Electrical Panel" in the blank space.)
+
+What next?
+
+> CLOSE IT@*
+Okay, the circuit breaker is now closed.@*
+(Your score just went up by 3 points!)
+
+What next?
+
+> GO TO CAPSULE@*
+It's in the west walkway.@*
+(west walkway)@*
+You're at a work counter, next to the control gear used to operate
+the test tank.
+The test tank (which is now empty of sea water) is located in a large
+work room, just south of your laboratory, with concrete-block walls
+on three sides and a high metal roof. Most of its floor is dug out
+and lined with steel, to form the huge tank used for developing and
+testing underwater gear and the pilot models of your submarine craft.
+There's a walkway around the tank on three sides -- north, west and
+south. On the east side, a steel gate forms the wall of the room.
+
+Tip follows you into the west walkway.@*
+Sitting on the work counter is:@*
+  a catalyst capsule
+
+(Are you tired of seeing "What next?" Well, you won't see it any more.)
+
+
+> TAKE IT@*
+(Your score just went up by 5 points!)@*
+You're now holding the catalyst capsule.
+
+
+> GO TO REACTOR@*
+It's in the SCIMITAR.@*
+(SCIMITAR)@*
+You're in the pilot's seat of the SCIMITAR, its operating control panel
+before you.
+A wraparound viewport, both fore and aft, provides a view ahead and
+astern. You can also observe your surroundings with a sonarscope and
+a hydrophone listening device. There's a sonarphone for communication.
+You'll discover other features when you need them.@*
+Tip is sitting behind you, reading a magazine.@*
+The power reactor is off and open.@*
+(Your score just went up by 1 point!)
+
+(If you want a clue, find Infocard #8 in your SEASTALKER package. Read
+hidden clue #1 and put "SCIMITAR" in the blank space.)
+
+
+> PUT CAPSULE IN IT@*
+Okay.
+
+
+> CLOSE REACTOR@*
+Okay, the reactor is now closed.
+
+
+> TURN IT ON@*
+Electrical systems now activated.@*
+(Your score just went up by 5 points!)
+
+
+> TAKE TOOL@*
+Tip gives it to you. You're now holding the Universal Tool.
+
+
+> OPEN ACCESS PANEL@*
+Okay, the access panel is now open.
+
+
+> IN@*
+(crawl space)@*
+The space is dimly illuminated by small work lights, but you can see
+machinery everywhere.
+
+
+> FIX REGULATOR CAREFULLY@*
+Fixed.
+
+
+> EXIT CAREFULLY@*
+(SCIMITAR)@*
+Tip is sitting behind you, reading a magazine.
+
+
+> FILL TANK@*
+The sea water quickly fills the tank, up to the level of the walkway.
+
+
+> OPEN GATE@*
+Opened (by remote control).
+
+
+> START ENGINE@*
+You can immediately hear the powerful thrum of the hydrojet turbine.@*
+(Your score just went up by 5 points!)
+
+
+> E@*
+Okay, the SCIMITAR is now facing toward the east. But it won't go that
+way unless you open the throttle.
+
+
+> CLOSE HATCH@*
+Okay, the entry hatch is now closed.
+
+
+> OPEN THROTTLE@*
+The SCIMITAR glides smoothly out of the tank onto the surface of Frobton
+Bay. You're heading east at 1 sea square per turn.@*
+(Your score just went up by 5 points!)@*
+(This might be a good time to use the command: SAVE.)
+
+
+> D@*
+The SCIMITAR noses downward, and sea water begins to wash over your
+forward viewport. You're now diving at a speed of 5 meters per sea
+square.@*
+The sea water darkens to a deeper green as you descend from the sunlit
+surface. Engine and propeller noises come over the hydrophone loudspeaker.@*
+Suddenly a loud alarm bell begins to ring! The depth finder warning
+light has begun to glow red.
+
+
+> WAIT@*
+(I assume you mean: wait 10 turns.)@*
+Time passes...@*
+The SCIMITAR quickly levels out at the desired depth of 5 meters. It's
+still moving toward the east at a speed of 1 sea square per turn.@*
+The depth finder warning light changes to orange, and the alarm bell
+continues to sound.@*
+The depth finder warning light fades to dark again, and the alarm bell
+ceases.@*
+The sonarscope shows an obstacle ahead! Unless you change course, you
+will crash the SCIMITAR!
+Tip says, "Hey, Jim, maybe you should look at the sonarscope."
+
+
+> NE@*
+Okay, the SCIMITAR is now moving toward the northeast.@*
+The sonarscope warning light goes out.
+
+
+> WAIT@*
+(I assume you mean: wait 10 turns.)@*
+Time passes...@*
+Suddenly a loud alarm bell begins to ring! The depth finder warning
+light has begun to glow orange.
+Do you want to keep waiting? > YES@*
+The depth finder warning light fades to dark again, and the alarm bell
+ceases.
+
+
+> WAIT@*
+(I assume you mean: wait 10 turns.)@*
+Time passes...@*
+The sonarscope shows an obstacle ahead! Unless you change course, you
+will crash the SCIMITAR!
+Tip says, "Hey, Jim, maybe you should look at the sonarscope."
+Do you want to keep waiting? > NO@*
+
+
+> N@*
+Okay, the SCIMITAR is now moving toward the north, straight toward
+the opening in the seawall.
+The sonarscope warning light goes out.
+
+
+> WAIT@*
+(I assume you mean: wait 10 turns.)@*
+Time passes...@*
+The sonarscope warning light is flashing yellow! A ship is approaching!
+Tip says, "Hey, Jim, maybe you should look at the sonarscope."@*
+The yellow light on the sonarscope continues to glow.
+Do you want to keep waiting? > NO@*
+
+
+> LOOK AT SONAR@*
+The yellow light on the sonarscope continues to glow.@*
+Sonar shows the object reaching from the surface of the bay downward
+to a depth of 10 meters. This must be the keel of a freighter entering
+the harbor. It's moving toward the waterfront at the rate of 1 sea
+square per turn.
+
+@begin (example)
+(+=you, .=open water, *=obstacle, @@=ship)
+----------------------
+SONAR:YELLOW                @@ = SHIP
+ . . . . . . . . . . .
+ . . . . . @@ . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . * * . .   ! 
+ . . . . . + . . * * .   +  (hdg:N) 
+ . . . . . . . . . * *     
+ . . . . . . . . . . *
+ . . . . . . . . . . .
+ . . . . . . . . . . *
+ . . . . . . . . . . *
+----------------------
+@end (example)
+The yellow light on the sonarscope continues to glow.
+
+> NE@*
+Okay, the SCIMITAR is now moving toward the northeast, straight toward
+the opening in the seawall.@*
+You have just passed through the opening in the sea wall across the
+mouth of Frobton Bay, and you're now in the open ocean.@*
+(Your score just went up by 5 points!)@*
+(This might be a good time to use the command: SAVE.)
+
+
+> TURN ON AUTOPILOT@*
+Okay, your trip to the Aquadome will take 60 turns at your current
+speed. But you can set the throttle to a different speed, if you want.@*
+(Your score just went up by 5 points!)
+
+
+> WAIT 60 TURNS@*
+Time passes...
+
+(If you want a clue, find Infocard #2 in your SEASTALKER package. Read
+hidden clue #3 and put "magazine" in the blank space.)
+Do you want to keep waiting? > YES@*
+
+The ocean has been getting darker as you dive toward the Aquadome,
+turning from blue-green to dark green to a dull gray-green. It's becoming
+duskier and murkier with every minute.
+
+A yellow cone of light now illumines the water ahead. The SCIMITAR's
+brass search light was automatically switched on by an electronic eye,
+now that you're too deep for the sun to light the water.
+
+Colorful sea life swims through the brass search light beam: a playful
+dolphin, a school of herring... Oh, oh! Here comes a hammerhead shark.
+And now a huge manta ray is gracefully gliding and flapping toward
+you.
+
+A crooning noise comes over the hydrophone loudspeaker, punctuated
+by sighs and moans and a few weird whistles.
+
+"There's a blip on the sonarscope at three o'clock!" yells Tip. "Aim
+the brass search light to starboard, Jim!"
+Do you want to keep waiting? > YES@*
+The amazing Aquadome looms ahead. Its bright lights suffuse the sea
+water around it with a glowing radiance.
+The sonarphone is ringing.
+Do you want to keep waiting? > YES@*
+
+The SCIMITAR slows to a gentle stop, with engine idling and the joystick
+pointing north. The autopilot has brought you to the docking tank on
+the south side of the Aquadome. It also turned off the depth finder
+for you.
+At Commander Bly's order, the docking tank gate slides open, but you
+could have done it by remote control, just as you did the test tank
+gate.
+The docking tank is filling up with tons of sea water.@*
+The docking tank lies north. You can enter it by opening the throttle.
+The bottom of the docking tank has an adjustable plastic cradle, which
+adjusts to the keel of any submarine.
+
+
+> OPEN THROTTLE@*
+You feel the seat press against you, and the hydrojet gets louder.
+You're now travelling at a speed of 1 sea square per turn.
+
+The SCIMITAR is now resting in the cradle in the rectangular docking
+tank. The docking tank gate closes, and so does the throttle.
+Through the viewport you can see the water level going down inside
+the docking tank. The docking crew is pumping out the sea water. This
+will take 1 turn.
+(Your score just went up by 5 points!)
+
+
+> I@*
+You're holding:@*
+  a Universal Tool@*
+  a Logbook
+
+The docking tank is now clear of sea water and filled with air at sea-level
+pressure. The engine shuts off.
+The roof of the docking tank is sliding open, and the SCIMITAR is in
+dry dock.
+A ramp swings down from the top of the docking tank's north wall to
+your entry hatch.
+
+
+> OPEN IT@*
+Okay, the entry hatch is now open.
+
+
+> GO TO BLY@*
+(If you want a clue, find Infocard #5 in your SEASTALKER package. Read
+hidden clue #3 and put "Emergency Oxygen Gear" in the blank space.)
+
+She's in the reception area.@*
+(reception area)@*
+You're now face-to-face with Zoe Bly and the Aquadome crew. They are
+wearing badges which show the air quality in the Aquadome.
+
+Tip follows you into the reception area.
+The five Aquadome crew members are here.
+Commander Bly is here.@*
+Commander Bly says, "Welcome to the Aquadome, Jim! You're a sight for
+sore eyes! We've been anxiously awaiting your arrival!"
+
+
+> N@*
+(dome center)@*
+You're in the very center of the Aquadome, where the Air Supply System
+rises like a tower, almost to the top of the dome itself.
+
+Tip follows you into the dome center.
+
+
+> OPEN DOOR WITH TOOL@*
+Okay, the access door is now open.
+You notice an empty space in the complicated assembly facing you. Something
+has been unscrewed from this space!
+Something is lying at the base of the cylinder, just inside the housing.
+(Your score just went up by 5 points!)
+
+
+> TAKE IT@*
+You're now holding the electrolyte relay.
+
+
+> SCREW IT IN@*
+It fits!
+(Your score just went up by 5 points!)
+
+
+> GO TO STORAGE ROOM@*
+(storage room)@*
+The room is crowded with supplies and equipment. If you want to find
+something, you'll have to search for it.
+
+Tip follows you into the storage room.
+
+
+> TAKE BAZOOKA@*
+(Your score just went up by 5 points!)@*
+You're now holding the bazooka.
+
+
+> GO TO LAB@*
+(Aquadome laboratory)@*
+The Aquadome laboratory is equipped for all sorts of marine biochemical
+research. The room is crowded with supplies and equipment. If you want
+to find something, you'll have to search for it.
+
+Tip follows you into the Aquadome laboratory.
+Commander Bly comes too.
+Doc Horvak comes too.
+
+Doc Horvak says:
+"Jim, right after the Snark ceased its attack, I detected a high concentration
+of AH molecules in the sea water around the Aquadome. Have you ever
+heard of such a phenomenon before?" > YES@*
+Tip says, "Wait a minute! Wasn't there something about AH molecules
+in that magazine? Shall I get it and see?" > NO@*
+
+
+> DOC, FIX DART@*
+This will take 5 turns.
+
+
+> MOUNT BAZOOKA ON SUB@*
+"Good idea! That should stop the Snark! It could disable an enemy sub,
+too! Shall I do it?" > YES@*
+(Your score just went up by 5 points!)@*
+"Are you ready to take off now, Jim?" Zoe Bly asks anxiously. > NO@*
+
+
+> GO TO STORAGE ROOM@*
+(storage room)@*
+
+Tip follows you into the storage room.
+
+
+> CALL BILL@*
+"Right here, Jim," he replies. "What would you like me to do?"
+
+
+> BILL, INSTALL UNIT IN SUB@*
+"Okay, we'll install it."@*
+(Your score just went up by 5 points!)@*
+Doc Horvak now comes rushing back, holding an aquatic dart gun. "Okay,
+Jim, I've made a special 'trank' to use against an AH-type organism!
+It's loaded in the dart gun. What shall I do with it?"
+(Your score just went up by 5 points!)
+
+
+> DOC, MOUNT IT ON CLAW@*
+(Your score just went up by 5 points!)@*
+Doc Horvak promptly mounts the dart gun on an extensor claw.@*
+"Are you ready to take off now, Jim?" Zoe Bly asks anxiously. > NO@*
+
+
+> GO TO TANK@*
+(docking tank)@*
+You're now in the docking tank, at the foot of the ramp.
+
+Tip follows you into the docking tank.
+
+Suddenly Commander Bly comes over and says, "Jim, can we discuss a
+private matter now?" > NO@*
+
+
+> WAIT FOR BILL@*
+Time passes...
+
+Suddenly Mick Antrim appears and says, "I'm going to check out your
+new SCIMITAR, Jim!" Mick turns and climbs aboard the SCIMITAR.
+Do you want to keep waiting? > YES@*
+
+Suddenly Bill Greenup and Amy Lowell report back from the SCIMITAR.
+"That Emergency Survival Unit is in place, Jim," says Amy. "Bill installed
+the part under your pilot's seat, and I installed the rest."@*
+Bill Greenup, for whom you're waiting, has arrived.
+
+
+> IN@*
+(SCIMITAR)@*
+Tip is sitting behind you, checking the instruments.@*
+The Emergency Survival Unit contains:@*
+  a hypodermic syringe@*
+There's a magazine here.
+
+(If you want a clue, find Infocard #5 in your SEASTALKER package. Read
+hidden clue #1 and put "Emergency Survival Unit" in the blank space.)
+
+
+> TAKE SYRINGE@*
+You're now holding the hypodermic syringe.
+
+
+> GO TO DOC@*
+He's in the storage room.@*
+(storage room)
+
+Tip follows you into the storage room.
+Doc Horvak is here.
+
+
+> DOC, CHECK SYRINGE@*
+He heads for the Aquadome laboratory. It will take Doc Horvak 4 turns
+to analyze the chemical contents of the hypodermic syringe.
+
+
+> GO TO OFFICE@*
+(Aquadome office)@*
+The Aquadome office is small but tidy, with a single door leading out
+and a good view of the ocean through the window.
+
+Tip follows you into the Aquadome office and begins playing with the
+station monitor.
+
+Suddenly Commander Bly comes over and repeats, "Jim, can we discuss
+a private matter now?" > NO@*
+
+
+> WAIT FOR DOC@*
+Time passes...
+
+Doc Horvak's face is grim and pale as he reports the result of his
+analysis.
+"Jim, the hypodermic syringe contains a lot of arsenic, and some arsenic
+is missing from my chemical supply shelf! If you'd been jabbed with
+that hypodermic syringe, you'd be dead!"
+
+Tip turns to you with a gasp. "Holy smoke, Jim! That's exactly what
+would have happened once you warmed up the pilot's seat enough to trigger
+the sensor relay!"@*
+Doc Horvak, for whom you're waiting, has arrived.
+
+
+> ARREST BILL@*
+Greenup turns and runs away. Then a crew member reports seeing Greenup
+running behind the dormitory. "He's going to try to escape in the SCIMITAR,
+Jim!"
+Commander Bly adds: "We can see him on the station monitor! The docking
+tank control panel is here, too!"
+(Your score just went up by 5 points!)
+
+
+> LOOK AT MONITOR@*
+The monitor screen shows Greenup's head just coming into view above
+the top of the docking tank's west wall, as he climbs the outside ladder.
+Once he reaches the top of this wall, he will come down the inside
+ladder to the SCIMITAR.
+
+
+> CLOSE ROOF@*
+Closed.@*
+Greenup can't get into the SCIMITAR and escape any more. Knowing he's
+trapped, Bill Greenup gives up without a fight. Commander Bly orders
+him handcuffed to a pipe in the galley.
+(Your score just went up by 5 points!)
+
+
+> OPEN ROOF@*
+Opened.
+
+
+> OUT@*
+As you start to leave, you notice an oddly shaped metallic object lying
+under Zoe's desk. It must be the special Fram Bolt Wrench!
+
+
+> GO TO STORAGE ROOM@*
+(storage room)
+
+Tip follows you into the storage room.
+
+
+> TIP, PUT FINE GRID IN SUB@*
+"If the Snark stays near the sea floor, Jim, it may churn up silt.
+Even with our brass search light on, we might have trouble aiming a
+weapon. Wouldn't it be easier if we could spot its exact position by
+sonar?" > YES@*
+"Jim, our sonarscope shows each sea square as 500 meters across. A
+blip indicates the APPROXIMATE position of an object. That's not good
+enough to hit the broad side of a barn! Let me install a fine grid
+on the sonarscope that'll show a blip's position to within 5 meters,
+okay?" > YES@*
+"Jim, I checked and found a fine grid that'll fit our sonarscope. I
+can install it quickly! I'll have someone install a fine throttle control,
+too, for tight maneuvering. It has the same 3 settings, but for small
+sea squares -- 0, 5, 10, or 15 meters per turn."
+
+
+> GO TO TANK@*
+(docking tank)@*
+Amy Lowell is here.
+
+
+> AMY, LEAVE@*
+"Okay."
+
+Suddenly Mick appears and says, "I thought maybe you had a problem
+on the way here, Jim, so I wanted to check on it. Everything seems
+to be okay now."@*
+Tip flashes you a meaningful glance. Mick Antrim's reaction may be
+all you need to prove he's NOT the traitor. But you'll have to decide
+for yourself.
+
+
+> MICK, LEAVE@*
+"Okay."
+
+
+> CLOSE ROOF@*
+Closed.@*
+Tip says, "All set, Jim! The fine grid is installed on both the sonarscope
+and the throttle -- and so are the dart gun and the bazooka! Let's
+shove off and find the Snark!"
+
+
+> IN@*
+(SCIMITAR)@*
+Tip is sitting behind you, checking the instruments.@*
+There's a magazine here.@*
+As you and Tip take your places in your seats, and close the hatch,
+the docking tank roof is also sliding shut.
+
+
+> FILL TANK@*
+This will take 1 turn.
+
+
+> I@*
+You're holding:@*
+  a Universal Tool@*
+  a Logbook
+
+The docking tank is now filled with sea water.
+The adjustable cradle then releases the SCIMITAR's keel from its grip.
+
+
+> OPEN GATE@*
+Opened (by remote control).
+
+
+> START ENGINE@*
+Your revolutionary craft thrums with power, matching your own excited
+heartbeat!
+
+
+> S@*
+Okay, the SCIMITAR is now facing toward the south. But it won't go
+that way unless you open the throttle.
+
+
+> SET THROTTLE FAST@*
+The SCIMITAR glides smoothly out of the tank into the ocean. You're
+heading south at 3 sea squares per turn.@*
+(Your score just went up by 1 point!)@*
+(This might be a good time to use the command: SAVE.)
+
+
+> SE@*
+Okay, the SCIMITAR is now moving toward the southeast.
+
+
+> WAIT@*
+(I assume you mean: wait 10 turns.)@*
+Time passes...@*
+"Holy halibut!" cries Tip. "There's a big cloud of silt ahead in the
+brass search light. It's out of sonar range. This could be the Snark!
+Want to hold course till we find out?" > YES@*
+However you steer, the cloud holds steady. You may be on a collision
+course with the behemoth that almost wrecked the Aquadome!@*
+Your brass search light reveals TWO objects dead ahead!
+One is the Snark. To the left of the tentacled creature -- YOUR left
+-- you can make out a vehicle crawling along the ocean floor.
+Tip says, "That's one of your Sea Cats!"@*
+A voice crackles over the sonarphone: "This is Doctor Jerome Thorpe,
+Jim! Do you read me?" > YES@*
+Your answer brings a rasping laugh. "Of course you read me, or you
+wouldn't be answering! Your lab assistant, Sharon Kemp, is seated behind
+me. She'll enjoy what's about to happen as much as I will. Would you
+like to hear what's in store for you?" > YES@*
+"I'll blast your sub with a rocket! Then I'll guide my synthetic monster
+to the Aquadome to destroy it! Can you guess what sealed your doom,
+Jim?" > YES@*
+"I'll tell you anyhow. I want to own the valuable ore deposit near
+the Aquadome! Sharon and I consider it a wedding present from you and
+your dad ..."@*
+Thorpe breaks off with a sudden gulp, followed by some noise and then
+a soft female voice:
+"This is Sharon Kemp, Jim! Do you read me?" > YES@*
+"Thank goodness! I conked Thorpe with a wrench! He fell onto the microphone,
+and he's too heavy for me to move!"
+(Your score just went up by 5 points!)
+
+
+> E@*
+Okay, the SCIMITAR is now moving toward the east.
+
+
+> SET SONAR TO AUTO@*
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .     
+ . . . . . + . . . . .   +-- (hdg:E)
+ . . . . O @@ . . . . .     
+ . . . . . o @@ . . . .
+ . . . . . . o . . . .
+ . . . . . . . o . . .
+ . . . . . . . . . . .
+----------------------
+@end (example)
+Okay, the sonarscope is now set to automatic.
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .     
+ O @@ . . . + . . . . .   +-- (hdg:E)
+ . o @@ . . . . . . . .     
+ . . o . . . . . . . .
+ . . . o . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+@end (example)
+
+> NW@*
+Okay, the SCIMITAR is now moving toward the northwest.
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .  \  
+ . . . . . + . . . . .   +  (hdg:NW) 
+ . . . . . . . . . . .     
+ . . O @@ . . . . . . .
+ . . . o @@ . . . . . .
+ . . . . o . . . . . .
+ . . . . . o . . . . .
+----------------------
+@end (example)
+
+
+> STOP@*
+(I assume you mean: close the throttle.)@*
+The SCIMITAR slows to a halt.
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .  \  
+ . . . . . + . . . . .   +  (hdg:NW) 
+ . O @@ . . . . . . . .     
+ . . o @@ . . . . . . .
+ . . . o . . . . . . .
+ . . . . o . . . . . .
+ . . . . . . . . . . .
+----------------------
+@end (example)
+
+
+> WAIT@*
+(I assume you mean: wait 10 turns.)@*
+Time passes...
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .  \  
+ O @@ . . . + . . . . .   +  (hdg:NW) 
+ . o @@ . . . . . . . .     
+ . . o . . . . . . . .
+ . . . o . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ @@ . . . . . . . . . .  \  
+ o @@ . . . + . . . . .   +  (hdg:NW) 
+ . o . . . . . . . . .     
+ . . o . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ @@ . . . . . . . . . .  \  
+ o . . . . + . . . . .   +  (hdg:NW) 
+ . o . . . . . . . . .     
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+
+@@@@=SEA CAT, Oooo=MONSTER          
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .  \  
+ o . . . . + . . . . .   +  (hdg:NW) 
+ . . . . . . . . . . .     
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+@end (example)
+
+Suddenly the sonarphone gets louder.
+Tip says, "That could mean Thorpe is awake and has moved away from
+the microphone!"
+You hear a sharp cry of pain from Sharon, then Thorpe yelling: "That'll
+take care of you, my little double-crosser!"@*
+Thorpe speaks into the microphone: "Now then, Jim Lawrence, I'm stopping
+my Sea Cat so I can blow you into Kingdom Come as soon as you're in
+my sights!"@*
+(If you want a clue, find Infocard #4 in your SEASTALKER package. Read
+hidden clue #2 and put "Sea Cat" in the blank space.)
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER, #=DANGER
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .  \  
+ . . . . . + . . . . .   +  (hdg:NW) 
+ . . . . . . . . . . .     
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+@end (example)
+
+> AIM BAZOOKA AT THORPE@*
+(Your score just went up by 5 points!)@*
+Aimed.
+@begin (example)
+@@@@=SEA CAT, Oooo=MONSTER, #=DANGER
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .  \  
+ . . . . . + . . . . .   +  (hdg:NW) 
+ . . . . . . . . . . .     
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+ . . . . . . . . . . .
+----------------------
+@end (example)
+
+
+> FIRE BAZOOKA@*
+(Your score just went up by 5 points!)@*
+Great! You and Tip can see the bazooka slam into the Sea Cat's power
+pod!
+"Hooray! That crippled the Sea Cat for keeps!" Tip cheers.@*
+You hear a voice come over the sonarphone: "Jim, this is Sharon! Do
+you read me?" > YES@*
+"Something hit us, and Thorpe's out cold! He cracked his skull on the
+bulkhead! I was waking up when I saw it all happen. I'll tie him up
+so he can't cause any trouble.
+The Sea Cat's regular engine is kaput, but he installed a backup engine
+for emergencies. And the sonar control's still working. If you like,
+I'll guide the monster to its cavern."
+
+CONGRATULATIONS, JIM! YOU'VE COMPLETED YOUR MISSION!!
+
+Your score is 100 points out of 100, in 194 turns.
+This score gives you the rank of a famous adventurer.
diff --git a/seastalker b/seastalker
new file mode 100644
index 0000000..0c4d5e8
--- /dev/null
+++ b/seastalker
@@ -0,0 +1,56 @@
+.c;Seastalker -- a perfect adventure
+.s
+.p 2,0
+^*Whoever believes that text adventures are boring doesn't know 
+"Seastalker". This deep-sea adventure for the C64, Atari, Apple II, and
+IBM-PC amazes with its variety and extras, that provide for atmosphere:
+from a sticker to a logbook and "Infocard-decoder".\*
+.s
+Many dangers lie in waiting in the unfathomable deeps of the sea.  The 
+"Aquadome", the first underwater research station, is threatened by a
+catastrophe. As the upright, young hero (no false modesty) you swing into
+the submarine to help.  Indeed you were ready and waiting for a wicked 
+sea monster.
+   What sounds to you like the plot of a wild action game is the fanciful 
+story to "Seastalker", one of the newest adventure games of an American
+software house, that is famous for its cunning text-adventures, that show
+themselves in two ways:  First, the programs are positively uncannily 
+"intelligent", they understand complicated sentences and reach an almost
+literary niveau.  Second, one gets a great quantity of accessories for 
+one's money.
+   Also with "Seastalker" the extras aren't spared: Along with the disk and the
+usual loading directions one gets a logbook, just like the original, out of
+which detailed instructions are revealed, a sea chart, a sticker and a whole 
+pack of "Infocards" with their decoder.
+   On these Infocards are hidden hints, that are only able to be seen when they
+are shoved through the groove in the decoder.  A frustrated adventurer gets
+discrete tips this way, that he could not see by "accident", only when he
+really wants to.  The logbook gives one a real seaman's atmosphere.  Along 
+with a rousing letter from the president of the USA, it gives a hint of the 
+way to use the technical equipment and how to communicate with the program.
+   The adventure begins with you in the research laboratory, working 
+industriously away.  Suddenly the alarms go off. If you are lively, you 
+can get radio contact with the Aquadome.  A woman appears in the adventure
+on a screen and implores you for help, because the underwater station is 
+being threatened by a horrible monster, that so far is not more closely 
+described. Luckily, your submarine "Scimitar" stands ready, with it you
+can rush to the Aquadome to help.
+.s
+.c;Literary niveau
+   "Seastalker" is not an exaggeratedly difficult text-adventure. In the USA it is 
+suggested for children from nine years up. The program is in very clean
+English and a knowledge of the correspondence style is given in advance, 
+this allows it to address in our degree of longitude a previously matured public.
+   This pretentious game is designed with "speech intelligence".  Where other
+adventures accept only "Get food", "Seastalker" swallows extensive sentences
+like "Unlock the front door with key and go north". One can even talk with
+other people in the adventure.
+   "Seastalker" is a very worthily made text-adventure for players with a progressive
+knowledge of English.  Although it is relatively easy, some beginners have
+great trouble to succesfully complete the mission.  The program comes on a
+diskette and costs about 100 Marks. 
+.s
+   [caption at top] Naked text fills the screen
+   [caption at bottom] The inclusions to "Seastalker" are not only charming and pleasurable to the great journey in this underwater adventure
+.s
+.c;[translation by Linde Simpson]
diff --git a/seastalker.zil b/seastalker.zil
new file mode 100644
index 0000000..8f84be2
--- /dev/null
+++ b/seastalker.zil
@@ -0,0 +1,52 @@
+"COMPILE/LOAD FILE for SEASTALKER
+Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+
+<COND (<GASSIGNED? PREDGEN>
+       <PRINC "Compiling">
+       <SETG ZSTR-ON <SETG ZSTR-OFF ,TIME>>
+       <ID 0>)
+      (T <PRINC "Loading">)>
+
+<PRINC " SEASTALKER: junior-level interactive fiction from Infocom!">
+
+<COND (<GASSIGNED? MUDDLE>
+       <BLOAT 90000 0 0 3500 0 0 0 0 0 512>)>
+
+<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?>>
+
+<DIRECTIONS ;"Do not change the order of the first eight
+	      without consulting MARC! -- ENCHANTER"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<IFILE "MACROS" T>
+<IFILE "SYNTAX" T>
+<IFILE "MAIN" T>
+<IFILE "SUB" T>
+<IFILE "BATTLE" T>
+<IFILE "THINGS" T>
+<IFILE "DOME" T>
+
+<IFILE "PEOPLE" T>
+<IFILE "PLACES" T>
+<IFILE "GLOBAL" T>
+<CONSTANT SERIAL 0>
+<IFILE "CLOCK" T>
+<ENDLOAD>
+<IFILE "PARSER" T>
+<IFILE "VERBS" T>
+<IFILE "EVENTS" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+
+<GC-MON T>
+<COND (<GASSIGNED? MUDDLE>
+       <GC 0 T 5>)>
diff --git a/seastalker.zip b/seastalker.zip
new file mode 100644
index 0000000..8917f76
Binary files /dev/null and b/seastalker.zip differ
diff --git a/sub.zap b/sub.zap
new file mode 100644
index 0000000..2d94842
--- /dev/null
+++ b/sub.zap
@@ -0,0 +1,2962 @@
+
+
+	.FUNCT	SUB-EXIT-F,X
+	FSET?	SUB-DOOR,OPENBIT /?ELS5
+	CALL	THIS-IS-IT,SUB-DOOR
+	PRINTI	"The "
+	PRINTD	SUB-DOOR
+	PRINTI	" is closed."
+	CRLF	
+	RFALSE	
+?ELS5:	ZERO?	SUB-IN-TANK /?ELS9
+	GET	ON-SUB,0 >X
+	ZERO?	X /?CND11
+	MOVE	X,NORTH-TANK-AREA
+?CND11:	GET	ON-SUB,1 >X
+	ZERO?	X /?CND14
+	MOVE	X,NORTH-TANK-AREA
+?CND14:	RETURN	NORTH-TANK-AREA
+?ELS9:	ZERO?	SUB-IN-DOME /?ELS18
+	ZERO?	AIRLOCK-FULL /?ELS24
+	PRINTI	"You can't go out while the "
+	PRINTD	AIRLOCK
+	PRINTI	" is full of water!"
+	CRLF	
+	RFALSE	
+?ELS24:	ZERO?	DOME-AIR-BAD? \?CND30
+	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?CND30
+	CALL	QUEUE,I-DOME-AIR,DOME-AIR-ONSET
+	PUT	STACK,0,1
+	IN?	OXYGEN-GEAR,PLAYER /?CND30
+	CALL	TELL-HINT,53,OXYGEN-GEAR,FALSE-VALUE
+	CRLF	
+?CND30:	GET	ON-SUB,0 >X
+	ZERO?	X /?CND38
+	MOVE	X,AIRLOCK
+?CND38:	GET	ON-SUB,1 >X
+	ZERO?	X /?CND41
+	MOVE	X,AIRLOCK
+?CND41:	IN?	MAGAZINE,TIP \?CND44
+	MOVE	MAGAZINE,SUB
+?CND44:	CALL	QUEUE,I-POISON-JAB,0
+	RETURN	AIRLOCK
+?ELS18:	PRINTI	"You can't go out of the "
+	PRINTD	SUB
+	PRINTI	" here!"
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	DOCKING-VERB?
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN,SEA-TERRAIN \FALSE
+	EQUAL?	PRSA,V?DOCK /TRUE
+	EQUAL?	PRSA,V?WALK \?ELS9
+	EQUAL?	PRSO,P?IN /TRUE
+?ELS9:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS18
+	EQUAL?	PRSO,YOUR-LABORATORY,TANK-GATE,TEST-TANK \FALSE
+	RTRUE	
+?ELS18:	EQUAL?	PRSO,AIRLOCK-HATCH /TRUE
+	EQUAL?	PRSO,AQUADOME,AIRLOCK,DOCKING-TANK /TRUE
+	RFALSE
+
+
+	.FUNCT	SOMEONE-WORKING?
+	CALL	POPULATION,CRAWL-SPACE,PLAYER
+	ZERO?	STACK \TRUE
+	CALL	POPULATION,SUB,TIP,PLAYER
+	ZERO?	STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	CANT-GO-TO-THRU-CLOSED-HATCH?,X
+	SET	'X,PRSO
+	FSET?	PRSO,PERSON \?CND1
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >X
+?CND1:	CALL	GLOBAL-IN?,PRSO,SUB
+	ZERO?	STACK \FALSE
+	CALL	GLOBAL-IN?,PRSO,CRAWL-SPACE
+	ZERO?	STACK \FALSE
+	EQUAL?	X,DOCKING-TANK,TEST-TANK /?THN6
+	CALL	META-LOC,X
+	EQUAL?	STACK,SUB,CRAWL-SPACE,GLOBAL-OBJECTS /FALSE
+?THN6:	CALL	SUB-EXIT-F
+	ZERO?	STACK \FALSE
+	RTRUE	
+
+
+	.FUNCT	SUB-F,RARG=0,RM,X,?TMP1
+	EQUAL?	RARG,M-BEG \?ELS5
+	ZERO?	SUB-IN-TANK \?THN13
+	ZERO?	SUB-IN-DOME /?ELS10
+?THN13:	EQUAL?	PRSA,V?LAUNCH /?THN15
+	EQUAL?	PRSA,V?LEAVE \?ELS10
+	EQUAL?	PRSO,TEST-TANK,AIRLOCK \?ELS10
+?THN15:	CALL	PERFORM,V?LAMP-ON,LOCAL-SUB
+	RTRUE	
+?ELS10:	EQUAL?	PRSA,V?STAND \?ELS20
+	PRINTR	"There's no room in here!"
+?ELS20:	EQUAL?	PRSA,V?$CALL \?ELS24
+	EQUAL?	PRSO,FAST,MEDIUM,SLOW \FALSE
+	CALL	PERFORM,V?SET,THROTTLE,PRSO
+	RTRUE	
+?ELS24:	EQUAL?	PRSA,V?LEAVE,V?DISEMBARK \?ELS31
+	ZERO?	PRSO /?THN34
+	EQUAL?	PRSO,LOCAL-SUB \?ELS31
+?THN34:	CALL	SUB-EXIT-F >RM
+	ZERO?	RM /TRUE
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	EQUAL?	WINNER,PLAYER /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS31:	CALL	DOCKING-VERB?
+	ZERO?	STACK /?ELS45
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS50
+	PRINTI	"You can't go back to the "
+	PRINTD	TEST-TANK
+	PRINTR	" now!"
+?ELS50:	CALL	SUB-OUTSIDE-AIRLOCK?
+	ZERO?	STACK \?ELS54
+	CALL	TOO-BAD-BUT,AIRLOCK,STR?16
+	RSTACK	
+?ELS54:	FSET?	AIRLOCK-HATCH,OPENBIT /?ELS56
+	CALL	TOO-BAD-BUT,AIRLOCK-HATCH,STR?17
+	RSTACK	
+?ELS56:	SET	'THROTTLE-SETTING,1
+	SET	'JOYSTICK-DIR,P?NORTH
+	SET	'SUB-DLON,0
+	SET	'SUB-DLAT,1
+	RTRUE	
+?ELS45:	ZERO?	SUB-IN-DOME \?ELS60
+	EQUAL?	PRSA,V?WALK-TO,V?FIND \?ELS60
+	EQUAL?	PRSO,DOCKING-TANK,AQUADOME,LOCAL-SUB \?ELS60
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN,SEA-TERRAIN \FALSE
+	CALL	PERFORM,V?FIND,PLAYER
+	RTRUE	
+?ELS60:	EQUAL?	PRSA,V?LEVEL,V?CLIMB-UP,V?CLIMB-DOWN \?ELS69
+	ZERO?	SUB-IN-TANK \?THN75
+	ZERO?	SUB-IN-DOME /?ELS74
+?THN75:	PRINTI	"You can't do that while the "
+	PRINTD	SUB
+	PRINTR	" is here."
+?ELS74:	EQUAL?	PRSA,V?LEVEL \?ELS80
+	SET	'TARGET-DEPTH,SUB-DEPTH
+	RTRUE	
+?ELS80:	FSET?	PRSO,UNITBIT \FALSE
+	EQUAL?	PRSA,V?CLIMB-DOWN \?ELS85
+	MUL	5,SUB-DEPTH
+	ADD	STACK,P-NUMBER >P-NUMBER
+	JUMP	?CND83
+?ELS85:	EQUAL?	PRSA,V?CLIMB-UP \?CND83
+	MUL	5,SUB-DEPTH
+	SUB	STACK,P-NUMBER >P-NUMBER
+	GRTR?	0,P-NUMBER \?CND83
+	PRINTR	"You're not deep enough!"
+?CND83:	CALL	PERFORM,V?DIVE,PRSO
+	RTRUE	
+?ELS69:	EQUAL?	PRSA,V?WALK \?ELS94
+	EQUAL?	PRSO,UNDERWATER \?CND95
+	SET	'PRSO,P?DOWN
+?CND95:	LESS?	PRSO,LOW-DIRECTION \?CND98
+	CALL	V-WALK-AROUND
+	RTRUE	
+?CND98:	EQUAL?	PRSO,P?OUT,P?IN /FALSE
+	EQUAL?	PRSO,P?UP,P?DOWN \?CND104
+	SET	'P-NUMBER,5
+	EQUAL?	PRSO,P?UP \?ELS109
+	CALL	PERFORM,V?CLIMB-UP,METER
+	RTRUE	
+?ELS109:	CALL	PERFORM,V?CLIMB-DOWN,METER
+	RTRUE	
+?CND104:	EQUAL?	PRSO,FAST,MEDIUM,SLOW \?CND112
+	CALL	PERFORM,V?SET,THROTTLE,PRSO
+	RTRUE	
+?CND112:	EQUAL?	PRSO,P?EAST,P?SE,P?NE \?ELS117
+	SET	'SUB-DLON,1
+	JUMP	?CND115
+?ELS117:	EQUAL?	PRSO,P?WEST,P?SW,P?NW \?ELS119
+	SET	'SUB-DLON,-1
+	JUMP	?CND115
+?ELS119:	SET	'SUB-DLON,0
+?CND115:	EQUAL?	PRSO,P?NORTH,P?NW,P?NE \?ELS124
+	SET	'SUB-DLAT,1
+	JUMP	?CND122
+?ELS124:	EQUAL?	PRSO,P?SOUTH,P?SW,P?SE \?ELS126
+	SET	'SUB-DLAT,-1
+	JUMP	?CND122
+?ELS126:	SET	'SUB-DLAT,0
+?CND122:	FSET?	AUTO-PILOT,ONBIT \?ELS131
+	PRINTI	"Let the "
+	PRINTD	AUTO-PILOT
+	PRINTI	" handle that."
+	CRLF	
+	JUMP	?CND129
+?ELS131:	ZERO?	SUB-IN-TANK /?ELS135
+	CALL	TRY-TO-EMERGE,P?EAST,TANK-GATE,TEST-TANK-FULL
+	JUMP	?CND129
+?ELS135:	ZERO?	SUB-IN-DOME /?ELS138
+	CALL	TRY-TO-EMERGE,P?SOUTH,AIRLOCK-HATCH,AIRLOCK-FULL
+	JUMP	?CND129
+?ELS138:	CALL	READY-FOR-SNARK?
+	ZERO?	STACK /?ELS141
+	ZERO?	TOLD-SNARK-WENT /?ELS141
+	FSET?	SNARK,INVISIBLE \?ELS141
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \?ELS141
+	EQUAL?	PRSO,P?SE \?ELS141
+	EQUAL?	JOYSTICK-DIR,PRSO /?ELS141
+	PRINTI	"Pulses racing and hearts thumping, you and Tip at last set out to capture the monstrous Snark!"
+	CRLF	
+	JUMP	?CND129
+?ELS141:	CALL	SUB-NOW-HEADING
+?CND129:	SET	'JOYSTICK-DIR,PRSO
+	RTRUE	
+?ELS94:	EQUAL?	PRSA,V?WALK-UNDER \?ELS149
+	EQUAL?	PRSO,SEA,BAY,GLOBAL-WATER \?ELS149
+	ZERO?	SUB-DEPTH \?ELS156
+	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?ELS156:	PRINTI	"You're already "
+	PRINTD	UNDERWATER
+	PRINTR	"."
+?ELS149:	CALL	EXIT-VERB?
+	ZERO?	STACK /?ELS162
+	CALL	CANT-GO-TO-THRU-CLOSED-HATCH?
+	ZERO?	STACK \TRUE
+?ELS162:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS169
+	EQUAL?	PRSO,DOCKING-TANK,TEST-TANK \?ELS169
+	PRINT	I-ASSUME
+	PRINTI	" look through the "
+	PRINTD	SUB-WINDOW
+	PRINTI	".)"
+	CRLF	
+	CALL	PERFORM,V?LOOK-INSIDE,SUB-WINDOW
+	RTRUE	
+?ELS169:	EQUAL?	PRSA,V?EXAMINE \?ELS175
+	EQUAL?	PRSO,GLOBAL-SNARK,SNARK /?THN178
+	EQUAL?	PRSO,GLOBAL-SHARON,GLOBAL-THORPE,THORPE-SUB \?ELS175
+?THN178:	FSET?	SNARK,INVISIBLE /?ELS184
+	PRINTI	"The "
+	PRINTD	GLOBAL-WATER
+	PRINTR	" is too cloudy to see anything."
+?ELS184:	CALL	TOO-BAD-BUT,PRSO,STR?16
+	RSTACK	
+?ELS175:	EQUAL?	PRSA,V?DROP \?ELS190
+	GET	ON-SUB,0 >?TMP1
+	GET	ON-SUB,1
+	EQUAL?	PRSO,?TMP1,STACK \?ELS190
+	GET	ON-SUB,0
+	EQUAL?	PRSO,STACK \?ELS195
+	PUT	ON-SUB,0,FALSE-VALUE
+	JUMP	?CND193
+?ELS195:	GET	ON-SUB,1
+	EQUAL?	PRSO,STACK \?CND193
+	PUT	ON-SUB,1,FALSE-VALUE
+?CND193:	ZERO?	SUB-IN-TANK /?ELS200
+	MOVE	PRSO,NORTH-TANK-AREA
+	JUMP	?CND198
+?ELS200:	ZERO?	SUB-IN-DOME /?ELS203
+	MOVE	PRSO,AIRLOCK
+	JUMP	?CND198
+?ELS203:	REMOVE	PRSO
+?CND198:	FCLEAR	PRSO,NDESCBIT
+	FSET	PRSO,TAKEBIT
+	FCLEAR	PRSO,TRYTAKEBIT
+	PRINTR	"Dropped."
+?ELS190:	EQUAL?	PRSA,V?TAKE-WITH \FALSE
+	EQUAL?	PRSI,CLAW \FALSE
+	LOC	PRSO
+	EQUAL?	STACK,AIRLOCK,NORTH-TANK-AREA /?ELS217
+	CALL	TOO-BAD-BUT,PRSO,STR?18
+	RSTACK	
+?ELS217:	FSET?	PRSO,TAKEBIT /?ELS219
+	CALL	YOU-CANT,STR?19
+	RSTACK	
+?ELS219:	CALL	MOUNT-WEAPON,PRSO
+	ZERO?	STACK /TRUE
+	PRINTR	"Taken."
+?ELS5:	EQUAL?	RARG,M-ENTER \?ELS227
+	CALL	POPULATION,SUB,TIP,PLAYER
+	ZERO?	STACK /?CND228
+	CALL	TOO-CROWDED
+	ZERO?	SUB-IN-DOME /?ELS233
+	CALL	GOTO,AIRLOCK
+	RTRUE	
+?ELS233:	ZERO?	SUB-IN-TANK /TRUE
+	CALL	GOTO,NORTH-TANK-AREA
+	RTRUE	
+?CND228:	CALL	QUEUE,I-POISON-JAB,9
+	PUT	STACK,0,1
+	GET	ON-SUB,0 >X
+	ZERO?	X /?CND238
+	MOVE	X,SUB
+?CND238:	GET	ON-SUB,1 >X
+	ZERO?	X /?CND241
+	MOVE	X,SUB
+?CND241:	IN?	ESCAPE-POD-UNIT,SUB \?CND244
+	FSET?	SYRINGE,MUNGBIT \?CND244
+	FSET?	SYRINGE,TOUCHBIT /?CND244
+	CALL	QUEUE,I-CHECK-POD,1
+	PUT	STACK,0,1
+?CND244:	ZERO?	SUB-IN-DOME /?CND249
+	CALL	READY-FOR-SNARK?
+	ZERO?	STACK /?CND249
+	CALL	SOMEONE-WORKING?
+	ZERO?	STACK \?CND249
+	FCLEAR	SUB-DOOR,OPENBIT
+	MOVE	TIP,HERE
+	PRINTI	"As you and Tip take your places in your seats, "
+	FSET?	AIRLOCK-ROOF,OPENBIT \?ELS258
+	CALL	AIRLOCK-POP?
+	ZERO?	STACK \?ELS258
+	FCLEAR	AIRLOCK-ROOF,OPENBIT
+	PRINTI	"and close the hatch, the "
+	PRINTD	AIRLOCK-ROOF
+	PRINTI	" is also sliding shut."
+	CRLF	
+	JUMP	?CND249
+?ELS258:	PRINTI	"Tip closes the hatch."
+	CRLF	
+?CND249:	CALL	SCORE-OBJ,SUB
+	RTRUE	
+?ELS227:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You're in the pilot's seat of the "
+	PRINTD	SUB
+	PRINTI	", its operating "
+	PRINTD	CONTROLS-SUB
+	PRINTI	" before you."
+	FSET?	ENGINE-ACCESS-HATCH,OPENBIT \?CND271
+	PRINTI	" The "
+	PRINTD	ENGINE-ACCESS-HATCH
+	PRINTI	" is open."
+?CND271:	PRINTI	"
+A wraparound "
+	PRINTD	SUB-WINDOW
+	PRINTI	", both fore and aft, provides a view ahead and astern."
+	ZERO?	SUB-DEPTH \?CND278
+	ZERO?	SUB-IN-TANK \?CND278
+	PRINTI	" Sunlight pours in through the "
+	PRINTD	SUB-WINDOW
+	PRINTI	"."
+?CND278:	PRINTI	" You can also observe your surroundings with a "
+	PRINTD	SONARSCOPE
+	PRINTI	" and a "
+	PRINTD	HYDROPHONE
+	PRINTI	" listening device. There's a "
+	PRINTD	SONARPHONE
+	PRINTR	" for communication. You'll discover other features when you need them."
+
+
+	.FUNCT	TOO-CROWDED
+	PRINTR	"It's too crowded in here! You'll have to wait outside."
+
+
+	.FUNCT	TRY-TO-EMERGE,DIR,GATE,FULL?
+	ZERO?	FULL? \?ELS5
+	PRINTI	"You can't turn the sub around while the "
+	EQUAL?	DIR,P?EAST \?ELS10
+	PRINTD	TEST-TANK
+	JUMP	?CND8
+?ELS10:	PRINTD	AIRLOCK
+?CND8:	PRINTR	" is empty."
+?ELS5:	EQUAL?	PRSO,DIR \?ELS20
+	ZERO?	THROTTLE-SETTING /?ELS25
+	FSET?	ENGINE,ONBIT /?ELS30
+	PRINTI	"Nothing happens when you push the "
+	PRINTD	JOYSTICK
+	PRINTI	". The engine is off."
+	ZERO?	GATE-CRASHED /?CND33
+	PRINTI	" It was stopped by Automatic Shutoff when you crashed into the sea gate."
+?CND33:	CRLF	
+	RTRUE	
+?ELS30:	CALL	HATCH-GATE-NOT-READY?,GATE
+	ZERO?	STACK \TRUE
+	EQUAL?	DIR,P?SOUTH \?ELS42
+	CALL	SUB-LEAVES,FALSE-VALUE,P?SOUTH
+	RSTACK	
+?ELS42:	CALL	SUB-LEAVES,TRUE-VALUE,P?EAST
+	RSTACK	
+?ELS25:	CALL	SUB-NOW-HEADING
+	RSTACK	
+?ELS20:	PRINTI	"Okay, the "
+	PRINTD	JOYSTICK
+	PRINTI	" is now pointing to "
+	CALL	DIR-PRINT,PRSO
+	PRINTI	". But the only way the sub can leave the tank is to "
+	CALL	DIR-PRINT,DIR
+	PRINTR	"."
+
+
+	.FUNCT	HATCH-GATE-NOT-READY?,GATE
+	FSET?	SUB-DOOR,OPENBIT \?ELS5
+	CALL	THIS-IS-IT,SUB-DOOR
+	PRINTR	"You shouldn't leave the tank with the hatch open!"
+?ELS5:	FSET?	GATE,OPENBIT /FALSE
+	CALL	GATE-CRASH,STR?20,JOYSTICK,GATE
+	RTRUE	
+
+
+	.FUNCT	READY-FOR-SNARK?
+	GET	ON-SUB,0
+	EQUAL?	BAZOOKA,STACK /?THN3
+	GET	ON-SUB,1
+	EQUAL?	DART,STACK \FALSE
+?THN3:	RETURN	FINE-SONAR
+
+
+	.FUNCT	SUB-LEAVES,FROM-LAB?,DIR
+	ZERO?	FROM-LAB? /?ELS3
+	SET	'GATE-CRASHED,FALSE-VALUE
+	SET	'SUB-IN-TANK,FALSE-VALUE
+	REMOVE	SHARON
+	CALL	ROB,SHARON,GLOBAL-SHARON
+	SET	'ALARM-RINGING,FALSE-VALUE
+	GETPT	VIDEOPHONE-2,P?SYNONYM
+	PUT	STACK,0,W?ZZZZLG
+	CALL	QUEUE,I-UPDATE-SUB-POSITION,-1
+	PUT	STACK,0,1
+	SET	'MONSTER-GONE,TRUE-VALUE
+	SET	'NOW-TERRAIN,BAY-TERRAIN
+	JUMP	?CND1
+?ELS3:	SET	'SUB-IN-DOME,FALSE-VALUE
+	SET	'NOW-TERRAIN,SEA-TERRAIN
+	SET	'SUB-LON,0
+	SET	'SUB-LAT,-1
+	SET	'SUB-DEPTH,AIRLOCK-DEPTH
+	SET	'TARGET-DEPTH,AIRLOCK-DEPTH
+?CND1:	ZERO?	AUTOMATIC-SONAR /?CND7
+	CALL	SPLIT-SCREEN?
+	ZERO?	STACK /?CND7
+	SET	'SCREEN-NOW-SPLIT,TRUE-VALUE
+	CALL	START-SONAR?
+?CND7:	PRINTI	"The "
+	PRINTD	SUB
+	PRINTI	" glides smoothly out of the tank "
+	ZERO?	FROM-LAB? /?ELS16
+	PRINTI	"onto the surface of "
+	PRINTD	BAY
+	JUMP	?CND14
+?ELS16:	PRINTI	"into the ocean"
+?CND14:	PRINTI	". You're heading "
+	CALL	DIR-PRINT,DIR,FALSE-VALUE
+	PRINTI	" at "
+	PRINTN	THROTTLE-SETTING
+	PRINTI	" "
+	PRINTD	GRID-UNIT
+	EQUAL?	1,THROTTLE-SETTING /?CND28
+	PRINTI	"s"
+?CND28:	PRINTI	" per turn."
+	CRLF	
+	ZERO?	FROM-LAB? /?ELS37
+	CALL	SCORE-OBJ,BAY
+	JUMP	?CND35
+?ELS37:	FSET?	TIP,BUSYBIT \?CND41
+	CALL	I-TIP-REPORTS
+?CND41:	CALL	READY-FOR-SNARK?
+	ZERO?	STACK /?ELS46
+	CALL	SCORE-OBJ,AIRLOCK
+	SET	'LEFT-DOME,MOVES
+	CALL	QUEUE,I-THORPE-APPEARS,-1
+	PUT	STACK,0,1
+	JUMP	?CND35
+?ELS46:	CALL	TIP-SAYS
+	PRINTI	"I've got a bad feeling about this. I don't think we should go out there without a "
+	ZERO?	FINE-SONAR /?ELS53
+	PRINTI	"weapon of some kind."""
+	CRLF	
+	JUMP	?CND44
+?ELS53:	PRINTD	FINE-GRID
+	PRINTI	"."""
+	CRLF	
+?CND44:	
+?CND35:	CALL	SAVE-HINT
+	RTRUE	
+
+
+	.FUNCT	HEADING-FOR-SEAWALL?,Y-X
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \FALSE
+	CALL	OBSTACLE-AHEAD?,SUB-DEPTH,SUB-LON,SUB-LAT
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSO,P?NORTH \?ELS9
+	GRTR?	SUB-LON,29 \FALSE
+	LESS?	SUB-LON,35 /TRUE
+?ELS9:	EQUAL?	PRSO,P?EAST \?ELS18
+	GRTR?	SUB-LAT,35 \FALSE
+	LESS?	SUB-LAT,41 /TRUE
+?ELS18:	EQUAL?	PRSO,P?NE \FALSE
+	SUB	SUB-LAT,SUB-LON >Y-X
+	GRTR?	Y-X,0 \FALSE
+	LESS?	Y-X,12 /TRUE
+	RFALSE
+
+
+	.FUNCT	SUB-NOW-HEADING
+	PRINTI	"Okay, the "
+	PRINTD	SUB
+	PRINTI	" is "
+	EQUAL?	JOYSTICK-DIR,PRSO \?ELS5
+	ZERO?	SUB-IN-BATTLE \?CND6
+	INC	'SUB-STILL-HEADING
+?CND6:	PRINTI	"still "
+	JUMP	?CND3
+?ELS5:	PRINTI	"now "
+?CND3:	ZERO?	THROTTLE-SETTING \?ELS17
+	PRINTI	"facing"
+	JUMP	?CND15
+?ELS17:	PRINTI	"moving"
+?CND15:	PRINTI	" toward "
+	CALL	DIR-PRINT,PRSO
+	CALL	HEADING-FOR-SEAWALL?
+	ZERO?	STACK /?CND26
+	PRINTI	", straight toward the opening in the "
+	PRINTD	SEA-WALL
+?CND26:	ZERO?	THROTTLE-SETTING \?CND31
+	CALL	THIS-IS-IT,THROTTLE
+	PRINTI	". But it won't go that way unless you open the "
+	PRINTD	THROTTLE
+?CND31:	PRINTI	"."
+	CRLF	
+	EQUAL?	SUB-STILL-HEADING,9 \FALSE
+	SET	'SUB-STILL-HEADING,0
+	PRINTI	"(You didn't change the "
+	PRINTD	SUB
+	PRINTI	"'s heading. Remember, you don't have to type a "
+	PRINTD	INTDIR
+	PRINTR	" every turn if you want to WAIT or do something else.)"
+
+
+	.FUNCT	SUB-DOOR-F
+	EQUAL?	PRSA,V?CLOSE \?ELS5
+	ZERO?	SUB-IN-DOME /?ELS10
+	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?ELS10
+	PRINTR	"It's too soon for that!"
+?ELS10:	CALL	SOMEONE-WORKING?
+	ZERO?	STACK /?ELS16
+	PRINTR	"There are too many people inside."
+?ELS16:	EQUAL?	HERE,SUB /?ELS20
+	PRINTI	"You should board the "
+	PRINTD	SUB
+	PRINTR	" first."
+?ELS20:	LOC	TIP
+	EQUAL?	STACK,SUB,CRAWL-SPACE /FALSE
+	FSET?	TIP,BUSYBIT \?ELS27
+	CALL	I-TIP-REPORTS
+	RFALSE	
+?ELS27:	MOVE	TIP,SUB
+	PRINTI	"Tip rushes in just before you close it. ""Wait for me, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!"""
+	CRLF	
+	RFALSE	
+?ELS5:	EQUAL?	PRSA,V?OPEN \FALSE
+	GRTR?	SUB-DEPTH,0 \?ELS38
+	ZERO?	SUB-IN-DOME /?THN41
+	ZERO?	AIRLOCK-FULL /?ELS38
+?THN41:	CALL	YOU-CANT,STR?21,SUB,STR?22
+	RSTACK	
+?ELS38:	ZERO?	SUB-IN-OPEN-SEA /?ELS44
+	PRINTR	"This is no time for a swim!"
+?ELS44:	EQUAL?	HERE,SUB,NORTH-TANK-AREA,AIRLOCK /?ELS49
+	PRINTI	"You can't reach"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" from here."
+?ELS49:	ZERO?	GREENUP-ESCAPE \?THN54
+	ZERO?	GREENUP-TRAPPED /FALSE
+?THN54:	FSET	SUB-DOOR,OPENBIT
+	PRINTI	"Before the crew can carry out your order, the hatch opens. Greenup rises into view from the pilot's seat and gives himself up. "
+	CALL	GREENUP-CUFF
+	RTRUE	
+
+
+	.FUNCT	SUB-WINDOW-F,POP,?TMP1
+	EQUAL?	PRSA,V?BRUSH \?ELS5
+	CALL	ALREADY,SUB-WINDOW,STR?23
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-INSIDE \?ELS7
+	ZERO?	SUB-IN-TANK /?ELS13
+	PRINTR	"You can see the test tank outside."
+?ELS13:	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS18
+	ZERO?	SUB-DEPTH \?ELS21
+	PRINTI	"Frobton is a busy seaport full of constantly moving pleasure boats, fishing craft and commercial shipping. The biggest ships move in the shipping lanes, but you can dive to 15 meters and go under them. Observe all ""Rules of the Road"", unless you want to submerge. When you're "
+	PRINTD	UNDERWATER
+	PRINTR	", you should avoid shallow areas called shoals."
+?ELS21:	CALL	PLENTY-WATER
+	RTRUE	
+?ELS18:	ZERO?	SUB-IN-OPEN-SEA /?ELS27
+	LESS?	DISTANCE-FROM-BAY,AQUADOME-VISIBLE /?ELS31
+	PRINTI	"You can see the "
+	PRINTD	AQUADOME
+	PRINTR	"."
+?ELS31:	FSET?	WHALE,INVISIBLE /?ELS35
+	PRINTR	"The whale is still following you."
+?ELS35:	FSET?	SEARCH-BEAM,ONBIT \?ELS39
+	PRINTI	"Your sub's "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" lights up the "
+	PRINTD	GLOBAL-WATER
+	PRINTR	" outside."
+?ELS39:	CALL	PLENTY-WATER
+	RTRUE	
+?ELS27:	EQUAL?	NOW-TERRAIN,SEA-TERRAIN \?ELS45
+	EQUAL?	SUB-DEPTH,AIRLOCK-DEPTH \?ELS45
+	MUL	SUB-LON,SUB-LON >?TMP1
+	MUL	SUB-LAT,SUB-LAT
+	ADD	?TMP1,STACK
+	GRTR?	4,STACK \?ELS45
+	PRINTI	"You can see the "
+	PRINTD	AQUADOME
+	PRINTR	"."
+?ELS45:	ZERO?	SUB-IN-DOME /?ELS51
+	CALL	ROOM-PEEK,AIRLOCK
+	RTRUE	
+?ELS51:	FSET?	SNARK,INVISIBLE /?ELS54
+	ZERO?	SUB-IN-BATTLE /?ELS57
+	CALL	TOO-CLOUDY
+	RTRUE	
+?ELS57:	PRINTI	"You can see the "
+	PRINTD	SNARK
+	PRINTI	" and the "
+	PRINTD	THORPE-SUB
+	PRINTI	" in the "
+	PRINTD	SEARCH-BEAM
+	PRINTR	" beam."
+?ELS54:	CALL	PLENTY-WATER
+	RTRUE	
+?ELS7:	EQUAL?	PRSA,V?MUNG \?ELS66
+	PRINTR	"Vandalism is for vandals, not famous inventors!"
+?ELS66:	EQUAL?	PRSA,V?UNLOCK /?THN71
+	EQUAL?	PRSA,V?LOCK,V?CLOSE,V?OPEN \?ELS70
+?THN71:	PRINTR	"You can't."
+?ELS70:	EQUAL?	PRSA,V?STOP \FALSE
+	CALL	PERFORM,V?LEVEL
+	RTRUE	
+
+
+	.FUNCT	TOO-CLOUDY
+	PRINTI	"The "
+	PRINTD	GLOBAL-WATER
+	PRINTR	" is too cloudy to see much."
+
+
+	.FUNCT	PLENTY-WATER
+	PRINTI	"You can see plenty of "
+	PRINTD	GLOBAL-WATER
+	PRINTR	"."
+
+
+	.FUNCT	ENGINE-ACCESS-HATCH-F
+	EQUAL?	PRSA,V?TAKE \?ELS5
+	ZERO?	PRSI \FALSE
+	CALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?TAKE-WITH \?ELS12
+	EQUAL?	PRSI,UNIVERSAL-TOOL \FALSE
+	CALL	PERFORM,V?OPEN-WITH,PRSO,PRSI
+	RTRUE	
+?ELS12:	EQUAL?	PRSA,V?OPEN-WITH,V?OPEN \?ELS19
+	EQUAL?	PRSO,ENGINE-ACCESS-HATCH \?ELS19
+	IN?	WINNER,SUB \?ELS19
+	IN?	UNIVERSAL-TOOL,WINNER /?ELS19
+	PRINTR	"Suggest you read the stenciled sign."
+?ELS19:	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE,V?READ \FALSE
+	IN?	WINNER,SUB \FALSE
+	PRINTI	"""THIS REQUIRES SPECIAL ULTRA WRENCH FROM SUB TOOL KIT."""
+	CRLF	
+	IN?	UNIVERSAL-TOOL,TIP \TRUE
+	CALL	THIS-IS-IT,UNIVERSAL-TOOL
+	CALL	TELL-HINT,61,TIP,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	CRAWL-SPACE-F,RARG=0
+	EQUAL?	RARG,M-BEG \?ELS5
+	CALL	EXIT-VERB?
+	ZERO?	STACK /?CND6
+	MOVE	ENGINE,SUB
+	RFALSE	
+?CND6:	CALL	GAME-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	P-ADVERB,W?CAREFULLY /FALSE
+	RANDOM	100
+	GRTR?	20,STACK \?ELS19
+	FSET?	ENGINE,ONBIT \?ELS19
+	ZERO?	SUB-IN-TANK \?ELS19
+	ZERO?	SUB-IN-DOME \?ELS19
+	PRINTI	"
+Suddenly the "
+	PRINTD	SUB
+	PRINTI	" begins to shake violently! Your foot has knocked an engine bearing out of alignment! It will be necessary to surface at once and await rescue! Your mission must be aborted."
+	CALL	FINISH
+	RSTACK	
+?ELS19:	RANDOM	100
+	GRTR?	20,STACK \FALSE
+	FSET?	GASH,INVISIBLE \FALSE
+	FSET	ARM,MUNGBIT
+	FCLEAR	GASH,INVISIBLE
+	PRINTI	"There's a sharp pain in your right arm! A flood of wet warmth and a spreading red stain mean you've seriously gashed your arm on a sharp metal corner!"
+	CRLF	
+	RFALSE	
+?ELS5:	EQUAL?	RARG,M-ENTER \?ELS31
+	CALL	POPULATION,CRAWL-SPACE,PLAYER
+	ZERO?	STACK /?ELS36
+	CALL	TOO-CROWDED
+	CALL	GOTO,SUB
+	RSTACK	
+?ELS36:	MOVE	ENGINE,CRAWL-SPACE
+	RFALSE	
+?ELS31:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?FIND \?ELS43
+	EQUAL?	HERE,CRAWL-SPACE \?ELS48
+	PRINTR	"You're in it!"
+?ELS48:	PRINTI	"It's located beyond an "
+	PRINTD	ENGINE-ACCESS-HATCH
+	PRINTR	" in the bulkhead just below and to the right of control panel."
+?ELS43:	EQUAL?	PRSA,V?LOOK-INSIDE,V?OPEN \?ELS56
+	EQUAL?	PRSO,CRAWL-SPACE \FALSE
+	CALL	PERFORM,PRSA,ENGINE-ACCESS-HATCH,PRSI
+	RTRUE	
+?ELS56:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
+	FSET?	ENGINE-ACCESS-HATCH,OPENBIT \?ELS68
+	CALL	GOTO,CRAWL-SPACE
+	ZERO?	STACK /TRUE
+	PRINTI	"BE CAREFUL: Too much wriggling may pose SERIOUS DANGERS!"
+	FSET?	ENGINE,ONBIT \?CND74
+	PRINTI	" And wouldn't it be safer to stop the engine first?"
+?CND74:	CRLF	
+	RTRUE	
+?ELS68:	CALL	TOO-BAD-BUT,ENGINE-ACCESS-HATCH,STR?17
+	CALL	THIS-IS-IT,ENGINE-ACCESS-HATCH
+	RETURN	2
+
+
+	.FUNCT	VOLTAGE-REGULATOR-F
+	EQUAL?	PRSA,V?WALK-TO \?ELS5
+	EQUAL?	HERE,CRAWL-SPACE /FALSE
+	CALL	PERFORM,PRSA,CRAWL-SPACE
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?FIND \?ELS12
+	EQUAL?	HERE,CRAWL-SPACE \FALSE
+	FCLEAR	VOLTAGE-REGULATOR,NDESCBIT
+	PRINTR	"You find it in the middle of some complicated machinery."
+?ELS12:	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \?ELS21
+	FSET?	VOLTAGE-REGULATOR,MUNGBIT \FALSE
+	PRINTR	"It's hard to tell anything by looking at it."
+?ELS21:	EQUAL?	PRSA,V?FIX,V?ADJUST \FALSE
+	FSET?	ARM,MUNGBIT \?ELS35
+	PRINTR	"You can't do that since you gashed your arm!"
+?ELS35:	FSET?	VOLTAGE-REGULATOR,MUNGBIT /?ELS39
+	CALL	ALREADY,VOLTAGE-REGULATOR,STR?27
+	RSTACK	
+?ELS39:	SET	'TEST-BUTTON-READOUT,TEST-BUTTON-NORMAL
+	PRINTI	"Fixed."
+	CRLF	
+	CALL	COOL-BACK
+	FCLEAR	VOLTAGE-REGULATOR,MUNGBIT
+	RTRUE	
+
+
+	.FUNCT	COOL-BACK,X
+	LESS?	20,CIRCUIT-TEMP \FALSE
+	FSET?	VOLTAGE-REGULATOR,MUNGBIT \FALSE
+	SUB	CIRCUIT-TEMP,15 >X
+	PRINTI	"It will take about "
+	PRINTN	X
+	PRINTI	" turn"
+	EQUAL?	X,1 /?CND10
+	PRINTI	"s"
+?CND10:	PRINTI	" for the "
+	PRINTD	CONTROL-CIRCUITS
+	PRINTR	" to cool to a normal operating temperature."
+
+
+	.FUNCT	GET5,TBL5,NUM,NUM1,?TMP1
+	SUB	NUM,1 >NUM1
+	MOD	NUM1,5
+	GET	TBL5-MASK,STACK >?TMP1
+	DIV	NUM1,5
+	ADD	1,STACK
+	GET	TBL5,STACK
+	BAND	?TMP1,STACK >?TMP1
+	MOD	NUM1,5
+	GET	TBL5-SHIFT,STACK
+	DIV	?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	ADD-WARNING,MSG,RTRUE?=0,TBL,LEN,N,M
+	ZERO?	RTRUE? /?CND1
+	SET	'WARNINGS-RTRUE,TRUE-VALUE
+?CND1:	SET	'TBL,WARNINGS-THIS-TURN
+	GET	TBL,0
+	EQUAL?	STACK,WARNINGS-USED /TRUE
+	GET	TBL,0 >LEN
+	SET	'N,0
+?PRG8:	IGRTR?	'N,LEN /TRUE
+	GET	TBL,N >M
+	EQUAL?	MSG,M /TRUE
+	EQUAL?	MSG,5 \?ELS17
+	EQUAL?	M,3,9 /TRUE
+?ELS17:	EQUAL?	MSG,6 \?ELS21
+	EQUAL?	M,4,11 /TRUE
+?ELS21:	EQUAL?	MSG,8 \?ELS25
+	EQUAL?	M,7 /TRUE
+?ELS25:	GET	TBL,N
+	ZERO?	STACK \?PRG8
+	PUT	TBL,N,MSG
+	SET	'WARNINGS-USED,N
+	RTRUE	
+
+
+	.FUNCT	GIVE-WARNINGS,TBL,LEN,N,MSG,SONAR?=0
+	SET	'TBL,WARNINGS-THIS-TURN
+	SET	'LEN,WARNINGS-USED
+	SET	'N,0
+?PRG1:	IGRTR?	'N,LEN \?ELS5
+	JUMP	?REP2
+?ELS5:	GET	TBL,N >MSG
+	ZERO?	MSG \?CND3
+	JUMP	?REP2
+?CND3:	SET	'WARNINGS-USED,0
+	PUT	TBL,N,0
+	ZERO?	SUB-IN-OPEN-SEA /?CND8
+	JUMP	?PRG1
+?CND8:	EQUAL?	MSG,1 \?ELS14
+	PRINTI	"
+A speedboat came out of nowhere and almost hit you! It's dangerous on the surface of the bay."
+	JUMP	?CND12
+?ELS14:	EQUAL?	MSG,2 \?ELS18
+	SET	'SONAR?,TRUE-VALUE
+	PRINTI	"
+If you don't change course or stop, you'll crash!"
+	JUMP	?CND12
+?ELS18:	EQUAL?	MSG,3,4 \?ELS22
+	CALL	THIS-IS-IT,DEPTHFINDER-LIGHT
+	PRINTI	"Suddenly a loud "
+	PRINTD	ALARM-SUB
+	PRINTI	" begins to ring! The "
+	PRINTD	DEPTHFINDER-LIGHT
+	PRINTI	" has begun to glow "
+	EQUAL?	MSG,3 \?ELS29
+	PUSH	STR?28
+	JUMP	?CND25
+?ELS29:	PUSH	STR?29
+?CND25:	PRINT	STACK
+	PRINTI	"."
+	JUMP	?CND12
+?ELS22:	EQUAL?	MSG,5,6 \?ELS33
+	CALL	THIS-IS-IT,ALARM-SUB
+	PRINTI	"The "
+	PRINTD	DEPTHFINDER-LIGHT
+	PRINTI	" is still glowing "
+	EQUAL?	MSG,5 \?ELS40
+	PUSH	STR?28
+	JUMP	?CND36
+?ELS40:	PUSH	STR?29
+?CND36:	PRINT	STACK
+	PRINTI	", and the "
+	PRINTD	ALARM-SUB
+	PRINTI	" is still ringing."
+	JUMP	?CND12
+?ELS33:	EQUAL?	MSG,7,8 \?ELS44
+	SET	'SONAR?,TRUE-VALUE
+	PRINTI	"The "
+	PRINTD	SONARSCOPE
+	EQUAL?	MSG,8 \?CND47
+	CALL	THIS-IS-IT,SONARSCOPE
+	PRINTI	" still"
+?CND47:	PRINTI	" shows an obstacle ahead!"
+	EQUAL?	MSG,7 \?CND12
+	CALL	THIS-IS-IT,SUB
+	PRINTI	" Unless you change course, you will crash the "
+	PRINTD	SUB
+	PRINTI	"!"
+	JUMP	?CND12
+?ELS44:	EQUAL?	MSG,9,10,11 \?ELS60
+	CALL	THIS-IS-IT,ALARM-SUB
+	PRINTI	"The "
+	PRINTD	DEPTHFINDER-LIGHT
+	PRINTI	" "
+	EQUAL?	MSG,9 \?ELS67
+	PUSH	STR?30
+	JUMP	?CND63
+?ELS67:	EQUAL?	MSG,10 \?ELS69
+	PUSH	STR?31
+	JUMP	?CND63
+?ELS69:	PUSH	STR?32
+?CND63:	PRINT	STACK
+	PRINTI	", and the "
+	PRINTD	ALARM-SUB
+	PRINTI	" "
+	EQUAL?	MSG,9 \?ELS76
+	PUSH	STR?33
+	JUMP	?CND72
+?ELS76:	EQUAL?	MSG,10 \?ELS78
+	PUSH	STR?34
+	JUMP	?CND72
+?ELS78:	PUSH	STR?35
+?CND72:	PRINT	STACK
+	JUMP	?CND12
+?ELS60:	EQUAL?	MSG,12,13 \?ELS82
+	SET	'SONAR?,TRUE-VALUE
+	CALL	THIS-IS-IT,FREIGHTER
+	PRINTI	"The "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTI	" is flashing yellow! A"
+	EQUAL?	MSG,13 \?CND85
+	PRINTI	"nother"
+?CND85:	PRINTI	" ship is approaching!"
+	JUMP	?CND12
+?ELS82:	EQUAL?	MSG,14 \?CND12
+	SET	'SONAR?,TRUE-VALUE
+	PRINTI	"
+The yellow "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTI	" just turned red! A loud "
+	PRINTD	ALARM-SUB
+	PRINTI	" is sending chills up and down your spine! The keel of the approaching ship is visible in your "
+	PRINTD	SUB-WINDOW
+	FSET?	HYDROPHONE,ONBIT \?CND96
+	PRINTI	", and the noise of its screws booms over the "
+	PRINTD	HYDROPHONE
+?CND96:	PRINTI	"!"
+?CND12:	CRLF	
+	JUMP	?PRG1
+?REP2:	ZERO?	SONAR? /?CND103
+	ZERO?	AUTOMATIC-SONAR \?CND103
+	ZERO?	LOOKED-AT-SONAR \?CND103
+	CALL	THIS-IS-IT,SONARSCOPE
+	CALL	TIP-SAYS
+	PRINTI	"Hey, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	", maybe you should look at the "
+	PRINTD	SONARSCOPE
+	PRINTI	"."""
+	CRLF	
+?CND103:	ZERO?	WARNINGS-RTRUE /FALSE
+	SET	'WARNINGS-RTRUE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	SAVE-HINT
+	PRINTR	"(This might be a good time to use the command: SAVE.)"
+
+
+	.FUNCT	FALL-FROM-CLAW,NUM,X
+	GET	ON-SUB,NUM >X
+	ZERO?	X /FALSE
+	PRINTI	"You can see"
+	CALL	PRINTT,X
+	PRINTI	" fall out of the "
+	PRINTD	CLAW
+	PRINTI	" and sink."
+	CRLF	
+	REMOVE	X
+	RTRUE	
+
+
+	.FUNCT	I-UPDATE-SUB-POSITION,LON,LAT,DEP,TH,VAL=0,?ORTMP
+	ZERO?	SUB-IN-TANK \FALSE
+	LESS?	0,CIRCUIT-TEMP \?CND5
+	DEC	'CIRCUIT-TEMP
+?CND5:	FSET?	VOLTAGE-REGULATOR,MUNGBIT \?CND8
+	ADD	CIRCUIT-TEMP,THROTTLE-SETTING >CIRCUIT-TEMP
+?CND8:	LESS?	20,CIRCUIT-TEMP \?ELS13
+	ZERO?	CIRCUIT-TIP \?ELS13
+	SET	'CIRCUIT-TIP,TRUE-VALUE
+	MOVE	OVERHEATING,GLOBAL-OBJECTS
+	CRLF	
+	PRINTI	"Suddenly "
+	CALL	TIP-SAYS
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! Look at the way that "
+	PRINTD	CONTROL-CIRCUITS
+	PRINTI	" "
+	PRINTD	CONTROL-CIRCUITS-GAUGE
+	PRINTI	" is rising!"""
+	CRLF	
+	SET	'VAL,TRUE-VALUE
+	JUMP	?CND11
+?ELS13:	LESS?	20,CIRCUIT-TEMP /?ELS21
+	ZERO?	CIRCUIT-TIP /?ELS21
+	SET	'CIRCUIT-TIP,FALSE-VALUE
+	JUMP	?CND11
+?ELS21:	LESS?	25,CIRCUIT-TEMP /?ELS25
+	ZERO?	CIRCUIT-RED /?ELS25
+	SET	'CIRCUIT-RED,FALSE-VALUE
+	EQUAL?	HERE,SUB \?CND11
+	CRLF	
+	PRINTI	"The "
+	PRINTD	CONTROL-CIRCUITS-GAUGE
+	PRINTI	" drops below the red danger zone."
+	CRLF	
+	JUMP	?CND11
+?ELS25:	LESS?	25,CIRCUIT-TEMP \?ELS34
+	ZERO?	CIRCUIT-RED \?ELS34
+	SET	'CIRCUIT-RED,TRUE-VALUE
+	CRLF	
+	PRINTI	"The "
+	PRINTD	CONTROL-CIRCUITS-GAUGE
+	PRINTI	" has entered the red danger zone!
+The circuit tester is activated. Push "
+	PRINTD	TEST-BUTTON
+	PRINTI	" for readout."
+	CRLF	
+	SET	'TEST-BUTTON-READOUT,REGULATOR-MSG
+	SET	'VAL,TRUE-VALUE
+	JUMP	?CND11
+?ELS34:	LESS?	30,CIRCUIT-TEMP \?CND11
+	CRLF	
+	PRINTI	"The "
+	PRINTD	CONTROL-CIRCUITS-GAUGE
+	PRINTI	" has gone off the scale!
+The engine grinds to a halt. Your mission is finished."
+	CALL	FINISH
+?CND11:	ZERO?	SUB-IN-DOME /?ELS45
+	RETURN	VAL
+?ELS45:	FSET?	AUTO-PILOT,ONBIT \?CND43
+	SET	'TH,THROTTLE-SETTING
+?PRG49:	DLESS?	'TH,0 \?CND51
+	RETURN	VAL
+?CND51:	INC	'DISTANCE-FROM-BAY
+	DIV	DISTANCE-FROM-BAY,2 >DEP
+	SET	'TARGET-DEPTH,DEP
+	SET	'SUB-DEPTH,DEP
+	EQUAL?	DISTANCE-FROM-BAY,20 \?ELS59
+	CALL	FALL-FROM-CLAW,0
+	CALL	FALL-FROM-CLAW,1
+	JUMP	?PRG49
+?ELS59:	EQUAL?	DISTANCE-FROM-BAY,30 \?ELS61
+	CRLF	
+	PRINTI	"The ocean has been getting darker as you dive toward the "
+	PRINTD	AQUADOME
+	PRINTI	", turning from blue-green to dark green to a dull gray-green. It's becoming duskier and murkier with every minute."
+	CRLF	
+	JUMP	?PRG49
+?ELS61:	EQUAL?	DISTANCE-FROM-BAY,39 \?ELS65
+	FSET?	SEARCH-BEAM,ONBIT /?CND66
+	FSET	SEARCH-BEAM,ONBIT
+	CRLF	
+	PRINTI	"A yellow cone of light now illumines the water ahead. The "
+	PRINTD	SUB
+	PRINTI	"'s "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" was "
+	PRINTD	AUTOMATIC
+	PRINTI	"ally switched on by an electronic eye, now that you're too deep for the sun to light the water."
+	CRLF	
+?CND66:	CRLF	
+	PRINTI	"Colorful sea life swims through the "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" beam: a playful dolphin, a school of herring... Oh, oh! Here comes a hammerhead shark. And now a huge manta ray is gracefully gliding and flapping toward you."
+	CRLF	
+	JUMP	?PRG49
+?ELS65:	EQUAL?	DISTANCE-FROM-BAY,45 \?ELS74
+	MOVE	WHALE,SUB
+	FSET?	HYDROPHONE,ONBIT \?CND75
+	SET	'WHALE-HEARD,TRUE-VALUE
+	PRINTI	"
+A crooning noise comes over the "
+	PRINTD	HYDROPHONE
+	PRINTI	" loudspeaker, punctuated by sighs and moans and a few weird whistles."
+	CRLF	
+?CND75:	EQUAL?	HERE,SUB \?PRG49
+	IN?	TIP,HERE \?PRG49
+	PRINTI	"
+""There's a blip on the "
+	PRINTD	SONARSCOPE
+	PRINTI	" at three o'clock!"" yells Tip. ""Aim the "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" to starboard, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"!"""
+?ELS74:	EQUAL?	DISTANCE-FROM-BAY,50 \?ELS88
+	FSET?	VOLTAGE-REGULATOR,MUNGBIT \?ELS88
+	ZERO?	CIRCUIT-TIP \?PRG49
+	SET	'CIRCUIT-TEMP,28
+	JUMP	?PRG49
+?ELS88:	EQUAL?	DISTANCE-FROM-BAY,AQUADOME-VISIBLE \?ELS95
+	REMOVE	WHALE
+	FSET	WHALE,INVISIBLE
+	SET	'BLY-CALLING,TRUE-VALUE
+	CALL	THIS-IS-IT,SONARPHONE
+	FCLEAR	SEARCH-BEAM,ONBIT
+	PRINTI	"The amazing "
+	PRINTD	AQUADOME
+	PRINTI	" looms ahead"
+	FSET?	SEARCH-BEAM,ONBIT \?ELS100
+	FCLEAR	SEARCH-BEAM,ONBIT
+	PRINTI	". Your "
+	PRINTD	SEARCH-BEAM
+	PRINTI	" switches off since the "
+	PRINTD	AQUADOME
+	PRINTI	"'s own"
+	JUMP	?CND98
+?ELS100:	PRINTI	". Its"
+?CND98:	PRINTI	" bright lights suffuse the "
+	PRINTD	GLOBAL-WATER
+	PRINTI	" around it with a glowing radiance.
+The "
+	PRINTD	SONARPHONE
+	PRINTR	" is ringing."
+?ELS95:	LESS?	DISTANCE-FROM-BAY,AQUADOME-DISTANCE /?PRG49
+	SET	'SUB-IN-OPEN-SEA,FALSE-VALUE
+	FCLEAR	AUTO-PILOT,ONBIT
+	MOVE	HORVAK-KEY,HORVAK
+	SET	'NOW-TERRAIN,SEA-TERRAIN
+	SET	'SUB-LON,0
+	SET	'SUB-LAT,-1
+	SET	'SUB-DEPTH,AIRLOCK-DEPTH
+	SET	'TARGET-DEPTH,AIRLOCK-DEPTH
+	SET	'DIVING?,0
+	SET	'THROTTLE-SETTING,0
+	SET	'JOYSTICK-DIR,P?NORTH
+	SET	'SUB-DLON,0
+	SET	'SUB-DLAT,1
+	SET	'DEPTH-WARNING,FALSE-VALUE
+	FCLEAR	DEPTHFINDER,ONBIT
+	FSET	AIRLOCK-HATCH,OPENBIT
+	CRLF	
+	PRINTI	"The "
+	PRINTD	SUB
+	PRINTI	" slows to a gentle stop, with engine idling and the "
+	PRINTD	JOYSTICK
+	PRINTI	" pointing north. The "
+	PRINTD	AUTO-PILOT
+	PRINTI	" has brought you to the "
+	PRINTD	AIRLOCK
+	PRINTI	" on the south side of the "
+	PRINTD	AQUADOME
+	PRINTI	". It also turned off the "
+	PRINTD	DEPTHFINDER
+	PRINTI	" for you.
+At "
+	PRINTD	BLY
+	PRINTI	"'s order, the "
+	PRINTD	AIRLOCK-HATCH
+	PRINTI	" slides open, but you could have done it by remote control, just as you "
+	ZERO?	OPENED-GATE-FROM-SUB /?ELS115
+	PRINTI	"did "
+	JUMP	?CND113
+?ELS115:	PRINTI	"could have "
+?CND113:	PRINTI	"the "
+	PRINTD	TANK-GATE
+	PRINTI	".
+The "
+	PRINTD	AIRLOCK
+	PRINTI	" is filling up with tons of "
+	PRINTD	GLOBAL-WATER
+	PRINTI	".
+The "
+	PRINTD	AIRLOCK
+	PRINTI	" lies north. You can enter it by opening the "
+	PRINTD	THROTTLE
+	PRINTI	". The bottom of the "
+	PRINTD	AIRLOCK
+	PRINTI	" has an adjustable plastic cradle, which adjusts to the keel of any submarine."
+	CRLF	
+	RETURN	2
+?CND43:	SET	'LON,SUB-LON
+	SET	'LAT,SUB-LAT
+	SET	'DEP,SUB-DEPTH
+	SET	'TH,THROTTLE-SETTING
+?PRG127:	CALL	CHANGE-DEPTH,DEP >DEP
+	ZERO?	TH /?CND129
+	ADD	LON,SUB-DLON >LON
+	ADD	LAT,SUB-DLAT >LAT
+?CND129:	CALL	COLLISION?,DEP,LON,LAT
+	ZERO?	STACK /?ELS134
+	JUMP	?REP128
+?ELS134:	EQUAL?	NOW-TERRAIN,SEA-TERRAIN \?ELS136
+	JUMP	?CND132
+?ELS136:	ZERO?	DEP \?ELS138
+	RANDOM	100
+	GRTR?	20,STACK \?ELS138
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS138
+	ZERO?	SPEEDBOAT-WARNING-GIVEN? /?ELS143
+	EQUAL?	MOVES,SPEEDBOAT-WARNING-GIVEN? /?ELS143
+	CALL	GIVE-WARNINGS
+	CRLF	
+	PRINTI	"A speedboat came out of nowhere, hit your rudder, and ended your mission. Too bad you were "
+	ZERO?	EVER-SUBMERGED? \?CND148
+	PRINTI	"still "
+?CND148:	PRINTI	"on the surface."
+	CALL	FINISH
+	JUMP	?CND132
+?ELS143:	SET	'SPEEDBOAT-WARNING-GIVEN?,MOVES
+	CALL	ADD-WARNING,1,TRUE-VALUE
+	JUMP	?CND132
+?ELS138:	CALL	TIME-FOR-FREIGHTER?,DEP,LON,LAT
+	ZERO?	STACK /?ELS158
+	EQUAL?	JOYSTICK-DIR,P?NORTH \?ELS161
+	SET	'FREIGHTER-LON,LON
+	SET	'FREIGHTER-DLON,0
+	ADD	LAT,SONAR-RANGE >FREIGHTER-LAT
+	SET	'FREIGHTER-DLAT,-1
+	JUMP	?CND159
+?ELS161:	EQUAL?	JOYSTICK-DIR,P?EAST \?ELS163
+	ADD	LON,SONAR-RANGE >FREIGHTER-LON
+	SET	'FREIGHTER-DLON,-1
+	SET	'FREIGHTER-LAT,LAT
+	SET	'FREIGHTER-DLAT,0
+	JUMP	?CND159
+?ELS163:	ADD	LON,SONAR-RANGE >FREIGHTER-LON
+	SET	'FREIGHTER-DLON,-1
+	ADD	LAT,SONAR-RANGE >FREIGHTER-LAT
+	SET	'FREIGHTER-DLAT,-1
+?CND159:	GET	NOW-TERRAIN,FREIGHTER-LAT
+	CALL	GET5,STACK,FREIGHTER-LON
+	LESS?	1,STACK \?CND132
+	CALL	FREIGHTER-WARNING
+	JUMP	?CND132
+?ELS158:	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?CND132
+	EQUAL?	LON,7 \?ELS176
+	EQUAL?	LAT,15 /?THN173
+?ELS176:	EQUAL?	LON,13 \?ELS178
+	EQUAL?	LAT,17 /?THN173
+?ELS178:	EQUAL?	LON,16 \?CND132
+	EQUAL?	LAT,31 \?CND132
+?THN173:	PRINTI	"A submerged wreck on the floor of the bay to starboard will be cleared safely."
+	CRLF	
+?CND132:	CALL	CHECK-FOR-OBSTACLE,DEP,LON,LAT
+	DLESS?	'TH,1 \?PRG127
+?REP128:	SET	'SUB-LON,LON
+	SET	'SUB-LAT,LAT
+	SET	'SUB-DEPTH,DEP
+	CALL	GIVE-WARNINGS
+	POP	'?ORTMP
+	ZERO?	?ORTMP /?ORP189
+	RETURN	?ORTMP
+?ORP189:	RETURN	VAL
+
+
+	.FUNCT	TIME-FOR-FREIGHTER?,DEP,LON,LAT
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \FALSE
+	FSET?	FREIGHTER,INVISIBLE \FALSE
+	LESS?	DEP,3 \FALSE
+	GET	NOW-TERRAIN,LAT
+	CALL	GET5,STACK,LON
+	EQUAL?	5,STACK \FALSE
+	CALL	OBSTACLE-AHEAD?,SUB-DEPTH,SUB-LON,SUB-LAT
+	ZERO?	STACK \FALSE
+	EQUAL?	JOYSTICK-DIR,P?NE,P?EAST /TRUE
+	EQUAL?	JOYSTICK-DIR,P?NORTH \FALSE
+	EQUAL?	SUB-LON,SPIRE-LON \TRUE
+	RFALSE
+
+
+	.FUNCT	CHECK-FOR-OBSTACLE,DEP,LON,LAT,X
+	CALL	OBSTACLE-AHEAD?,DEP,LON,LAT >X
+	ZERO?	X /?ELS5
+	ZERO?	OLD-OBSTACLE? /?ELS10
+	GRTR?	X,THROTTLE-SETTING /?ELS16
+	SET	'SONAR-WARNING,SONAR-RED
+	CALL	ADD-WARNING,2,TRUE-VALUE
+	RSTACK	
+?ELS16:	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR /FALSE
+	CALL	ADD-WARNING,8
+	RSTACK	
+?ELS10:	SET	'OLD-OBSTACLE?,TRUE-VALUE
+	GRTR?	X,THROTTLE-SETTING /?ELS23
+	SET	'SONAR-WARNING,SONAR-RED
+	JUMP	?CND21
+?ELS23:	SET	'SONAR-WARNING,SONAR-YELLOW
+?CND21:	CALL	ADD-WARNING,7,TRUE-VALUE
+	RSTACK	
+?ELS5:	SET	'OLD-OBSTACLE?,FALSE-VALUE
+	ZERO?	SONAR-WARNING /FALSE
+	SET	'SONAR-WARNING,FALSE-VALUE
+	ZERO?	SHIP-WARNING \FALSE
+	PRINTI	"The "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTR	" goes out."
+
+
+	.FUNCT	OBSTACLE-AHEAD?,DEP,LON,LAT,XLON,XLAT,RANGE,X
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN,SEA-TERRAIN \FALSE
+	ADD	LON,SUB-DLON >XLON
+	ADD	LAT,SUB-DLAT >XLAT
+	SET	'RANGE,1
+?PRG4:	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?CND6
+	CALL	TOO-DEEP?,DEP,XLON,XLAT >X
+	ZERO?	X /?CND6
+	EQUAL?	X,OPEN-SEA-CODE /?CND6
+	RETURN	RANGE
+?CND6:	EQUAL?	NOW-TERRAIN,SEA-TERRAIN \?CND11
+	CALL	DOME-ON-SONAR?,DEP,XLON,XLAT
+	ZERO?	STACK /?CND11
+	CALL	HEADING-INTO-DOME?,SUB-DEPTH,SUB-LON,SUB-LAT
+	ZERO?	STACK \?CND11
+	RETURN	RANGE
+?CND11:	IGRTR?	'RANGE,SONAR-RANGE /FALSE
+	ADD	XLON,SUB-DLON >XLON
+	ADD	XLAT,SUB-DLAT >XLAT
+	JUMP	?PRG4
+
+
+	.FUNCT	HEADING-INTO-DOME?,DEP,LON,LAT
+	EQUAL?	DEP,AIRLOCK-DEPTH \FALSE
+	ZERO?	LON \FALSE
+	LESS?	LAT,1 \FALSE
+	ZERO?	SUB-DLON \FALSE
+	LESS?	0,SUB-DLAT \FALSE
+	FSET?	AIRLOCK-HATCH,OPENBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	CHANGE-DEPTH,DEP
+	LESS?	DEP,TARGET-DEPTH \?ELS3
+	CALL	DIVE-DESC,DEP,TRUE-VALUE
+	INC	'DEP
+	RETURN	DEP
+?ELS3:	GRTR?	DEP,TARGET-DEPTH \?ELS5
+	CALL	DIVE-DESC,DEP,FALSE-VALUE
+	DEC	'DEP
+	RETURN	DEP
+?ELS5:	ZERO?	DIVING? /?CND1
+	SET	'DIVING?,0
+	PRINTI	"The "
+	PRINTD	SUB
+	PRINTI	" quickly levels out at the "
+	ZERO?	DEP \?ELS12
+	PRINTI	"surface."
+	JUMP	?CND10
+?ELS12:	PRINTI	"desired depth of "
+	MUL	5,DEP
+	PRINTN	STACK
+	PRINTI	" meters."
+?CND10:	ZERO?	THROTTLE-SETTING \?ELS21
+	PRINTI	" It's now standing still in the water."
+	JUMP	?CND19
+?ELS21:	PRINTI	" It's still moving toward "
+	CALL	DIR-PRINT,JOYSTICK-DIR
+	PRINTI	" at a speed of "
+	PRINTN	THROTTLE-SETTING
+	PRINTI	" "
+	PRINTD	GRID-UNIT
+	EQUAL?	1,THROTTLE-SETTING /?CND30
+	PRINTI	"s"
+?CND30:	PRINTI	" per turn."
+?CND19:	CRLF	
+	RETURN	DEP
+?CND1:	RETURN	DEP
+
+
+	.FUNCT	DIVE-DESC,DEP,DOWN?
+	ZERO?	DEP \FALSE
+	PRINTI	"The "
+	PRINTD	GLOBAL-WATER
+	PRINTI	" darkens to a deeper green as you descend from the sunlit surface."
+	FSET?	HYDROPHONE,ONBIT \?CND8
+	PRINTI	" Engine and propeller noises come over the "
+	PRINTD	HYDROPHONE
+	PRINTI	" loudspeaker."
+?CND8:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SEA-WALL-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	CALL	TOO-FAR-AWAY,SEA-WALL
+	RSTACK	
+
+
+	.FUNCT	FREIGHTER-F
+	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE \FALSE
+	CALL	FREIGHTER-SIZE
+	RSTACK	
+
+
+	.FUNCT	FREIGHTER-SIZE
+	PRINTI	"Sonar shows the object reaching from the surface of the bay downward to a depth of 10 meters. This must be the keel of a freighter entering the harbor. It's moving toward the waterfront at the rate of 1 "
+	PRINTD	GRID-UNIT
+	PRINTR	" per turn."
+
+
+	.FUNCT	FREIGHTER-WARNING
+	FCLEAR	FREIGHTER,INVISIBLE
+	CALL	QUEUE,I-UPDATE-FREIGHTER,-1
+	PUT	STACK,0,1
+	INC	'FREIGHTER-COUNT
+	SET	'SHIP-WARNING,SONAR-YELLOW
+	EQUAL?	1,FREIGHTER-COUNT \?ELS5
+	CALL	ADD-WARNING,12,TRUE-VALUE
+	RSTACK	
+?ELS5:	CALL	ADD-WARNING,13,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	I-UPDATE-FREIGHTER,DLAT,DLON
+	ADD	FREIGHTER-LON,FREIGHTER-DLON >FREIGHTER-LON
+	ADD	FREIGHTER-LAT,FREIGHTER-DLAT >FREIGHTER-LAT
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?THN6
+	SUB	FREIGHTER-LAT,SUB-LAT >DLAT
+	LESS?	DLAT,0 \?ELS12
+	SUB	FREIGHTER-LAT,SUB-LAT >DLAT
+	SUB	0,DLAT
+	JUMP	?CND8
+?ELS12:	SUB	FREIGHTER-LAT,SUB-LAT >DLAT
+	PUSH	DLAT
+?CND8:	LESS?	SONAR-RANGE,STACK /?THN6
+	SUB	FREIGHTER-LON,SUB-LON >DLON
+	LESS?	DLON,0 \?ELS19
+	SUB	FREIGHTER-LON,SUB-LON >DLON
+	SUB	0,DLON
+	JUMP	?CND15
+?ELS19:	SUB	FREIGHTER-LON,SUB-LON >DLON
+	PUSH	DLON
+?CND15:	LESS?	SONAR-RANGE,STACK /?THN6
+	GET	NOW-TERRAIN,FREIGHTER-LAT
+	CALL	GET5,STACK,FREIGHTER-LON
+	GRTR?	2,STACK \?ELS5
+?THN6:	CALL	QUEUE,I-UPDATE-FREIGHTER,0
+	FSET	FREIGHTER,INVISIBLE
+	RFALSE	
+?ELS5:	ZERO?	DLAT \?ELS23
+	ZERO?	DLON \?ELS23
+	LESS?	SUB-DEPTH,3 \?ELS23
+	CALL	FREIGHTER-COLLIDED
+	CALL	FINISH
+	RSTACK	
+?ELS23:	LESS?	SUB-DEPTH,3 \?ELS27
+	EQUAL?	JOYSTICK-DIR,P?NORTH \?ELS33
+	ZERO?	DLON \?ELS33
+	GRTR?	DLAT,0 /?THN30
+?ELS33:	EQUAL?	JOYSTICK-DIR,P?EAST \?ELS35
+	ZERO?	DLAT \?ELS35
+	GRTR?	DLON,0 /?THN30
+?ELS35:	EQUAL?	JOYSTICK-DIR,P?NE \?ELS27
+	EQUAL?	DLON,DLAT \?ELS27
+	GRTR?	DLAT,0 \?ELS27
+?THN30:	EQUAL?	JOYSTICK-DIR,P?NORTH \?ELS50
+	LESS?	DLAT,THROTTLE-SETTING /?ELS50
+	EQUAL?	DLAT,THROTTLE-SETTING /?ELS50
+	ZERO?	THROTTLE-SETTING \?ELS50
+	LESS?	DLAT,2 /?THN59
+?ELS50:	EQUAL?	JOYSTICK-DIR,P?EAST \?ELS56
+	LESS?	DLON,THROTTLE-SETTING /?ELS56
+	EQUAL?	DLON,THROTTLE-SETTING /?ELS56
+	ZERO?	THROTTLE-SETTING \?ELS56
+	LESS?	DLON,2 /?THN59
+?ELS56:	EQUAL?	JOYSTICK-DIR,P?NE \?ELS42
+	LESS?	DLAT,THROTTLE-SETTING /?THN59
+	EQUAL?	DLAT,THROTTLE-SETTING /?THN59
+	ZERO?	THROTTLE-SETTING \?ELS42
+	LESS?	DLAT,2 \?ELS42
+?THN59:	EQUAL?	SHIP-WARNING,SONAR-RED \?ELS67
+	CALL	TELL-SONAR-WARNING,SHIP-WARNING
+	RSTACK	
+?ELS67:	SET	'SHIP-WARNING,SONAR-RED
+	CALL	ADD-WARNING,14,TRUE-VALUE
+	RSTACK	
+?ELS42:	ZERO?	SHIP-WARNING /FALSE
+	CALL	TELL-SONAR-WARNING,SHIP-WARNING
+	RSTACK	
+?ELS27:	ZERO?	SHIP-WARNING /FALSE
+	ZERO?	SONAR-WARNING \FALSE
+	PRINTI	"The "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTI	" goes out and your heartbeat gradually slows to normal"
+	EQUAL?	SHIP-WARNING,SONAR-RED \?CND79
+	PRINTI	", now that the noise from the "
+	PRINTD	ALARM-SUB
+	PRINTI	" and the ship have gone"
+?CND79:	SET	'SHIP-WARNING,FALSE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	DOME-ON-SONAR?,DEP,LON,LAT,HYPOT,X,?TMP1
+	LESS?	1,LON /FALSE
+	LESS?	1,LAT /FALSE
+	GRTR?	-1,LON /FALSE
+	GRTR?	-1,LAT /FALSE
+	SUB	SEA-DEPTH,DEP >X
+	LESS?	2,X /FALSE
+	ZERO?	FINE-SONAR /?ELS15
+	MUL	LON,LON >?TMP1
+	MUL	LAT,LAT
+	ADD	?TMP1,STACK >HYPOT
+	ADD	X,HYPOT
+	GRTR?	3,STACK \FALSE
+	RTRUE	
+?ELS15:	ZERO?	LON \FALSE
+	ZERO?	LAT \FALSE
+	RTRUE	
+
+
+	.FUNCT	FREIGHTER-COLLIDED
+	PRINTI	"
+You and Tip are hurled from your seats as the "
+	PRINTD	SUB
+	PRINTI	" and the ship collide! The sub is up-ended and swept aside by the momentum of the ship. Thanks to the strength of your revolutionary hull design, the "
+	PRINTD	SUB
+	PRINTI	" is still okay, but its machinery is hopelessly damaged.
+
+Because you didn't change heading or dive under the ship, you and Tip are now adrift and must wait to be rescued by"
+	CALL	RESEARCH-LAB
+	PRINTI	". Your mission to save the "
+	PRINTD	AQUADOME
+	PRINTI	" and its crew from attack by the "
+	PRINTD	GLOBAL-SNARK
+	PRINTI	" will have to be abandoned."
+	RTRUE	
+
+
+	.FUNCT	SONAR-TO-MANUAL
+	ZERO?	AUTOMATIC-SONAR /FALSE
+	CALL	SPLIT-SCREEN?
+	ZERO?	STACK /FALSE
+	SET	'AUTOMATIC-SONAR,FALSE-VALUE
+	SET	'SCREEN-NOW-SPLIT,FALSE-VALUE
+	SPLIT	0
+	CALL	INT,I-SHOW-SONAR
+	PUT	STACK,0,0
+	PRINTI	"The "
+	PRINTD	SONARSCOPE
+	PRINTI	" "
+	PRINTD	AUTOMATIC
+	PRINTR	"ally sets itself to manual."
+
+
+	.FUNCT	COLLISION?,DEP,LON,LAT,X
+	ZERO?	SUB-IN-OPEN-SEA \FALSE
+	FSET?	SNARK,INVISIBLE /?ELS6
+	CALL	THORPE-POS?,LON,LAT
+	ZERO?	STACK /?ELS9
+	PRINTI	"
+CRR-R-RAAASSSHHH-H-H!
+
+With a deafening clang, the "
+	PRINTD	THORPE-SUB
+	PRINTI	" and your sub collide! The "
+	PRINTD	SUB
+	PRINTI	" shudders, and you and Tip are hurled to the deck!
+You claw your way to the controls, but there's no power, no matter how you gun the throttle! The engine's been damaged by the collision!
+"
+	FSET?	THORPE,MUNGBIT /?CND12
+	PRINTI	"Through the "
+	PRINTD	SUB-WINDOW
+	PRINTI	" you see the "
+	PRINTD	THORPE-SUB
+	PRINTI	", and it looks helpless too. Its hull is intact, but . . . UH-OH! Its rocket weapon is swinging slowly in your direction!
+"
+?CND12:	PRINTI	"As you and Tip eye each other despairingly, one thing's for sure: THE ADVENTURE'S OVER!"
+	JUMP	?CND7
+?ELS9:	CALL	SNARK-POS?,LON,LAT
+	ZERO?	STACK /FALSE
+	PRINTI	"There's a sudden jolt! Your "
+	PRINTD	SUB
+	PRINTI	" stops moving for a moment, as if you hit some huge mass. Tip looks "
+	FSET?	SONARSCOPE,ONBIT \?ELS25
+	PRINTI	"at the "
+	PRINTD	SONARSCOPE
+	JUMP	?CND23
+?ELS25:	PRINTI	"out the "
+	PRINTD	SUB-WINDOW
+?CND23:	PRINTI	" and gulps, ""We've rammed the "
+	PRINTD	SNARK
+	FSET?	CLAW,MUNGBIT \?ELS36
+	PRINTI	" again!"""
+	CRLF	
+	RFALSE	
+?ELS36:	FSET	CLAW,MUNGBIT
+	SET	'TEST-BUTTON-READOUT,CLAW-MUNGED-MSG
+	PRINTI	"! I hope the "
+	PRINTD	CLAW
+	PRINTI	"s aren't damaged!"""
+	CRLF	
+	RFALSE	
+?CND7:	CALL	FINISH
+	JUMP	?CND1
+?ELS6:	FSET?	FREIGHTER,INVISIBLE /?CND1
+	EQUAL?	FREIGHTER-LAT,LAT \?CND1
+	EQUAL?	FREIGHTER-LON,LON \?CND1
+	LESS?	DEP,3 \?CND1
+	CALL	FREIGHTER-COLLIDED
+	CALL	FINISH
+?CND1:	CALL	TOO-DEEP?,DEP,LON,LAT >X
+	ZERO?	X /?ELS53
+	EQUAL?	X,HIT-BOTTOM-CODE,HIT-SHORE-CODE \?ELS56
+	ZERO?	SCREEN-NOW-SPLIT /?CND57
+	SCREEN	1
+	CALL	SHOW-SONARSCOPE
+	SCREEN	0
+?CND57:	PRINTI	"
+Suddenly you're thrown out of your seat by a thunderous crash, and the "
+	PRINTD	SUB
+	PRINTI	" comes to a shuddering halt!
+"
+	CALL	TIP-SAYS
+	PRINTI	"Skipper! You've plowed into the "
+	EQUAL?	LON,SPIRE-LON \?ELS67
+	EQUAL?	LAT,SPIRE-LAT \?ELS67
+	PRINTI	"rock spire"
+	JUMP	?CND65
+?ELS67:	EQUAL?	X,HIT-SHORE-CODE \?ELS73
+	PRINTI	"shore"
+	JUMP	?CND65
+?ELS73:	PRINTI	"floor of the "
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS82
+	PRINTI	"bay"
+	JUMP	?CND65
+?ELS82:	PRINTI	"ocean"
+?CND65:	PRINTI	"! Jumpin' jets, let's hope your new "
+	PRINTD	SUB
+	PRINTI	" isn't wrecked!""
+Unfortunately, the "
+	PRINTD	SUB
+	PRINTI	" is now disabled. You must call"
+	CALL	RESEARCH-LAB
+	PRINTI	" for help, and the situation forces you to abandon hope of saving the "
+	PRINTD	AQUADOME
+	PRINTI	" from attacks by the "
+	PRINTD	SNARK
+	PRINTI	"."
+	JUMP	?CND54
+?ELS56:	EQUAL?	X,OPEN-SEA-CODE \?ELS94
+	SET	'NOW-TERRAIN,FALSE-VALUE
+	SET	'SUB-IN-OPEN-SEA,TRUE-VALUE
+	FCLEAR	CATALYST-CAPSULE,TAKEBIT
+	FSET	CATALYST-CAPSULE,TRYTAKEBIT
+	MOVE	BLACK-BOX,BLY-DESK
+	SET	'DEPTH-WARNING,FALSE-VALUE
+	SET	'SONAR-WARNING,FALSE-VALUE
+	SET	'SHIP-WARNING,FALSE-VALUE
+	FSET	FREIGHTER,INVISIBLE
+	CALL	THIS-IS-IT,AUTO-PILOT
+	PRINTI	"You have just passed through the opening in the "
+	PRINTD	SEA-WALL
+	PRINTI	" across the mouth of "
+	PRINTD	BAY
+	PRINTI	", and you're now in the "
+	PRINTD	SEA
+	PRINTI	"."
+	CRLF	
+	CALL	QUEUE,I-AUTO-PILOT,1
+	PUT	STACK,0,1
+	CALL	SONAR-TO-MANUAL
+	CALL	SCORE-OBJ,SEA-WALL
+	CALL	SAVE-HINT
+	RETURN	2
+?ELS94:	EQUAL?	X,HIT-DOME-CODE \?ELS100
+	PRINTI	"Oh, oh! The "
+	PRINTD	SUB
+	PRINTI	" has crashed into the "
+	PRINTD	AQUADOME
+	PRINTI	"!
+""We've cracked the dome, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!"" gulps Tip as he surveys the damage.
+You're speechless. The "
+	PRINTD	AQUADOME
+	PRINTI	" is flooding fast, and soon it will break apart under zillions of tons of "
+	PRINTD	GLOBAL-WATER
+	PRINTI	"!
+You try to shut out the scattered screams for help coming over the sonarphone.
+
+There's nothing left but to report that the "
+	PRINTD	AQUADOME
+	PRINTI	" was accidentally destroyed, and your mission has failed."
+	JUMP	?CND54
+?ELS100:	EQUAL?	X,IN-DOME-CODE \?CND54
+	SET	'NOW-TERRAIN,FALSE-VALUE
+	SET	'SUB-IN-DOME,TRUE-VALUE
+	SET	'BLY-CALLING,FALSE-VALUE
+	CALL	PHONE-OFF
+	CALL	SONAR-TO-MANUAL
+	SET	'THROTTLE-SETTING,0
+	SET	'SHIP-WARNING,FALSE-VALUE
+	SET	'SONAR-WARNING,FALSE-VALUE
+	SET	'DEPTH-WARNING,FALSE-VALUE
+	PRINTI	"
+The "
+	PRINTD	SUB
+	PRINTI	" is now resting in the cradle in the rectangular "
+	PRINTD	AIRLOCK
+	PRINTI	". The "
+	PRINTD	AIRLOCK-HATCH
+	PRINTI	" closes, and so does the "
+	PRINTD	THROTTLE
+	PRINTI	".
+Through the "
+	PRINTD	SUB-WINDOW
+	PRINTI	" you can see the water level going down inside the "
+	PRINTD	AIRLOCK
+	PRINTI	". The docking crew is pumping out the "
+	PRINTD	GLOBAL-WATER
+	PRINTI	". This will take 1 turn."
+	CRLF	
+	FCLEAR	AIRLOCK-HATCH,OPENBIT
+	CALL	QUEUE,I-THORPE-APPEARS,0
+	CALL	QUEUE,I-AIRLOCK-EMPTY,1
+	PUT	STACK,0,1
+	CALL	SCORE-OBJ,AQUADOME
+	RTRUE	
+?CND54:	CALL	FINISH
+	RSTACK	
+?ELS53:	FSET?	DEPTHFINDER,ONBIT \FALSE
+	CALL	CHECK-DEPTH,DEP,LON,LAT
+	ZERO?	STACK \FALSE
+	ZERO?	DEPTH-WARNING /FALSE
+	SET	'DEPTH-WARNING,FALSE-VALUE
+	CALL	ADD-WARNING,10
+	RFALSE	
+
+
+	.FUNCT	TOO-DEEP?,DEP,LON,LAT,X
+	EQUAL?	NOW-TERRAIN,SEA-TERRAIN \?ELS5
+	CALL	HEADING-INTO-DOME?,DEP,LON,LAT
+	ZERO?	STACK /?ELS10
+	ZERO?	FINE-SONAR /?ELS16
+	GRTR?	LAT,-2 /?THN13
+?ELS16:	ZERO?	LAT \?ELS10
+?THN13:	RETURN	IN-DOME-CODE
+?ELS10:	CALL	DOME-ON-SONAR?,DEP,LON,LAT
+	ZERO?	STACK /?ELS18
+	RETURN	HIT-DOME-CODE
+?ELS18:	EQUAL?	DEP,SEA-DEPTH \FALSE
+	RETURN	HIT-BOTTOM-CODE
+?ELS5:	GET	NOW-TERRAIN,LAT
+	CALL	GET5,STACK,LON >X
+	EQUAL?	X,6 \?ELS27
+	RETURN	OPEN-SEA-CODE
+?ELS27:	LESS?	DEP,X /FALSE
+	ZERO?	X \?ELS31
+	RETURN	HIT-SHORE-CODE
+?ELS31:	RETURN	HIT-BOTTOM-CODE
+
+
+	.FUNCT	GATE-CRASH,STR,OBJ,GATE
+	EQUAL?	GATE,AIRLOCK-HATCH \?ELS5
+	PRINTI	"You can't leave the "
+	PRINTD	AIRLOCK
+	PRINTI	" with the "
+	PRINTD	AIRLOCK-HATCH
+	PRINTR	" closed!"
+?ELS5:	SET	'GATE-CRASHED,TRUE-VALUE
+	FCLEAR	ENGINE,ONBIT
+	SET	'TEST-BUTTON-READOUT,GATE-CRASHED-MSG
+	PRINTI	"As you "
+	PRINT	STR
+	CALL	PRINTT,OBJ
+	PRINTI	", you hear a loud boom! The "
+	PRINTD	SUB
+	PRINTI	" shivers. You have crashed into the Repelatron Safety Bumper on the "
+	PRINTD	TANK-GATE
+	PRINTI	". The turbine stops "
+	PRINTD	AUTOMATIC
+	PRINTR	"ally. Too bad the gate was closed!"
+
+
+	.FUNCT	CAPSULE-LEVER-F
+	EQUAL?	PRSA,V?EXAMINE \?ELS5
+	CALL	PERFORM,PRSA,REACTOR
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?USE,V?PUSH,V?MOVE \FALSE
+	FSET?	REACTOR,ONBIT \?ELS12
+	PRINT	I-ASSUME
+	PRINTI	" turn off the "
+	PRINTD	REACTOR
+	PRINTI	".)"
+	CRLF	
+	CALL	PERFORM,V?LAMP-OFF,REACTOR
+	RTRUE	
+?ELS12:	PRINT	I-ASSUME
+	PRINTI	" turn on the "
+	PRINTD	REACTOR
+	PRINTI	".)"
+	CRLF	
+	CALL	PERFORM,V?LAMP-ON,REACTOR
+	RTRUE	
+
+
+	.FUNCT	DEPTHFINDER-F,N
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	ZERO?	SUB-IN-TANK /?ELS7
+	CALL	WHY-NEED,DEPTHFINDER,TEST-TANK
+	ZERO?	STACK \TRUE
+?ELS7:	ZERO?	SUB-IN-DOME /?ELS11
+	CALL	WHY-NEED,DEPTHFINDER,AIRLOCK
+	ZERO?	STACK \TRUE
+?ELS11:	EQUAL?	PRSA,V?LAMP-OFF \?ELS15
+	SET	'DEPTH-WARNING,FALSE-VALUE
+	RFALSE	
+?ELS15:	EQUAL?	PRSA,V?LAMP-ON \?ELS17
+	CALL	CHECK-DEPTH,SUB-DEPTH,SUB-LON,SUB-LAT
+	RFALSE	
+?ELS17:	EQUAL?	PRSA,V?READ /?THN20
+	EQUAL?	PRSA,V?WHAT,V?EXAMINE,V?ANALYZE \FALSE
+?THN20:	FSET?	DEPTHFINDER,ONBIT /?CND22
+	PRINTR	"It's not on!"
+?CND22:	PRINTI	"You're now "
+	ZERO?	SUB-DEPTH \?ELS31
+	PRINTI	"on the surface"
+	JUMP	?CND29
+?ELS31:	PRINTI	"at a depth of "
+	MUL	5,SUB-DEPTH
+	PRINTN	STACK
+	PRINTI	" meters"
+?CND29:	ZERO?	NOW-TERRAIN \?CND38
+	PRINTR	"."
+?CND38:	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS47
+	GET	NOW-TERRAIN,SUB-LAT
+	CALL	GET5,STACK,SUB-LON
+	JUMP	?CND43
+?ELS47:	PUSH	SEA-DEPTH
+?CND43:	SUB	STACK,SUB-DEPTH >N
+	PRINTI	", "
+	MUL	5,N
+	PRINTN	STACK
+	PRINTI	" meters above the "
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS54
+	PRINTR	"floor of the bay."
+?ELS54:	PRINTR	"bottom of the sea."
+
+
+	.FUNCT	CHECK-DEPTH,DEP,LON,LAT
+	ZERO?	DEP /?ELS5
+	ADD	1,DEP
+	CALL	TOO-DEEP?,STACK,LON,LAT
+	ZERO?	STACK /?ELS5
+	EQUAL?	DEPTH-WARNING,DEPTH-ORANGE \?ELS10
+	CALL	ADD-WARNING,11,TRUE-VALUE
+	JUMP	?CND8
+?ELS10:	EQUAL?	DEPTH-WARNING,DEPTH-RED \?ELS12
+	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR \?ELS15
+	JUMP	?CND8
+?ELS15:	CALL	ADD-WARNING,DEPTH-RED
+	JUMP	?CND8
+?ELS12:	CALL	ADD-WARNING,4,TRUE-VALUE
+?CND8:	SET	'DEPTH-WARNING,DEPTH-RED
+	RTRUE	
+?ELS5:	ZERO?	DEP /FALSE
+	ADD	2,DEP
+	CALL	TOO-DEEP?,STACK,LON,LAT
+	ZERO?	STACK /FALSE
+	EQUAL?	DEPTH-WARNING,DEPTH-ORANGE \?ELS26
+	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR \?ELS29
+	JUMP	?CND24
+?ELS29:	CALL	ADD-WARNING,DEPTH-ORANGE
+	JUMP	?CND24
+?ELS26:	EQUAL?	DEPTH-WARNING,DEPTH-RED \?ELS33
+	CALL	ADD-WARNING,9
+	JUMP	?CND24
+?ELS33:	CALL	ADD-WARNING,3,TRUE-VALUE
+?CND24:	SET	'DEPTH-WARNING,DEPTH-ORANGE
+	RTRUE	
+
+
+	.FUNCT	DEPTHFINDER-LIGHT-F
+	EQUAL?	PRSA,V?REPLY /?THN6
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+?THN6:	ZERO?	DEPTH-WARNING \?CND8
+	PRINTI	"The "
+	PRINTD	DEPTHFINDER-LIGHT
+	PRINTI	" is off."
+	CRLF	
+?CND8:	PRINTI	"During a dive, the "
+	PRINTD	DEPTHFINDER-LIGHT
+	PRINTI	" turns orange and a "
+	PRINTD	ALARM-SUB
+	PRINTI	" sounds if the "
+	PRINTD	SUB
+	PRINTI	" comes within 10 meters of the bottom.
+The light turns red and the "
+	PRINTD	ALARM-SUB
+	PRINTI	" becomes louder if the "
+	PRINTD	SUB
+	PRINTR	" comes within 5 meters of the bottom."
+
+
+	.FUNCT	TELL-SONAR-WARNING,W=0
+	PRINTI	"The "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTI	" continues to glow "
+	ZERO?	W \?CND3
+	SET	'W,SONAR-WARNING
+?CND3:	EQUAL?	W,1 \?ELS10
+	PRINTR	"yellow."
+?ELS10:	PRINTI	"red, and the "
+	PRINTD	ALARM-SUB
+	PRINTR	" also continues to sound."
+
+
+	.FUNCT	AUTOMATIC-F
+	EQUAL?	PRSA,V?LAMP-OFF,V?LAMP-ON \FALSE
+	CALL	PERFORM,PRSA,AUTO-PILOT
+	RTRUE	
+
+
+	.FUNCT	MANUAL-F
+	EQUAL?	PRSA,V?LAMP-ON \?ELS5
+	CALL	PERFORM,V?LAMP-OFF,AUTO-PILOT
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LAMP-OFF \?ELS7
+	CALL	PERFORM,V?LAMP-ON,AUTO-PILOT
+	RTRUE	
+?ELS7:	EQUAL?	PRSA,V?TURN,V?OPEN,V?TAKE /?THN10
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+?THN10:	PRINTR	"It's not that kind of manual."
+
+
+	.FUNCT	NOT-AVAILABLE
+	PRINTI	"Sorry, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	", but that feature isn't available."
+
+
+	.FUNCT	SONARSCOPE-F,DEP,N
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?LAMP-ON \?ELS7
+	CALL	SPLIT-SCREEN?
+	ZERO?	STACK /FALSE
+	FSET	SONARSCOPE,ONBIT
+	CALL	PERFORM,V?SET,SONARSCOPE,AUTOMATIC
+	RTRUE	
+?ELS7:	FSET?	SONARSCOPE,ONBIT /?ELS17
+	CALL	THIS-IS-IT,SONARSCOPE
+	PRINTR	"It's not turned on!"
+?ELS17:	EQUAL?	PRSA,V?LAMP-OFF \?ELS21
+	ZERO?	AUTOMATIC-SONAR /FALSE
+	CALL	PERFORM,V?SET,SONARSCOPE,MANUAL
+	SET	'AUTOMATIC-SONAR,FALSE-VALUE
+	RTRUE	
+?ELS21:	ZERO?	SUB-IN-TANK /?ELS29
+	CALL	WHY-NEED,SONARSCOPE,TEST-TANK
+	ZERO?	STACK \TRUE
+?ELS29:	ZERO?	SUB-IN-OPEN-SEA /?ELS33
+	CALL	WHY-NEED,SONARSCOPE,SEA
+	ZERO?	STACK \TRUE
+?ELS33:	ZERO?	SUB-IN-DOME /?ELS37
+	CALL	WHY-NEED,SONARSCOPE,AIRLOCK
+	ZERO?	STACK \TRUE
+?ELS37:	EQUAL?	PRSA,V?LOOK-ON,V?LOOK-INSIDE /?THN42
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS41
+?THN42:	SET	'P-WON,FALSE-VALUE
+	INC	'LOOKED-AT-SONAR
+	CALL	SPLIT-SCREEN?
+	ZERO?	STACK /?CND44
+	MOD	LOOKED-AT-SONAR,4
+	ZERO?	STACK \?CND44
+	CALL	TIP-SAYS
+	PRINTI	"You wouldn't have to keep looking at the "
+	PRINTD	SONARSCOPE
+	PRINTI	" if you set it to "
+	PRINTD	AUTOMATIC
+	PRINTI	"."""
+	CRLF	
+?CND44:	SET	'DEP,SUB-DEPTH
+	ZERO?	SONAR-WARNING /?CND51
+	CALL	TELL-SONAR-WARNING
+?CND51:	ZERO?	SHIP-WARNING /?CND55
+	CALL	TELL-SONAR-WARNING,SHIP-WARNING
+?CND55:	LESS?	DEP,3 \?CND59
+	FSET?	FREIGHTER,INVISIBLE /?CND59
+	CALL	FREIGHTER-SIZE
+	CRLF	
+?CND59:	CALL	FIXED-FONT-ON
+	PRINTI	"(+=you, .=open water, *=obstacle)"
+	CRLF	
+	MUL	2,SONAR-RANGE >N
+?PRG66:	PRINTI	"--"
+	DLESS?	'N,0 \?PRG66
+	CRLF	
+	ZERO?	SCREEN-NOW-SPLIT /?ELS75
+	CALL	FIXED-FONT-OFF
+	CALL	ALREADY,PLAYER,STR?36
+	RTRUE	
+?ELS75:	CALL	SHOW-SONARSCOPE
+	RTRUE	
+?ELS41:	EQUAL?	PRSA,V?MOVE-DIR,V?PUT,V?SET \FALSE
+	EQUAL?	PRSO,SONARSCOPE \FALSE
+	EQUAL?	PRSI,AUTOMATIC \?ELS87
+	ZERO?	AUTOMATIC-SONAR /?ELS92
+	CALL	ALREADY,SONARSCOPE,STR?37
+	RSTACK	
+?ELS92:	CALL	SPLIT-SCREEN?
+	ZERO?	STACK /?ELS95
+	SET	'AUTOMATIC-SONAR,TRUE-VALUE
+	SET	'SCREEN-NOW-SPLIT,TRUE-VALUE
+	CALL	START-SONAR?
+	CALL	OKAY,SONARSCOPE,STR?37
+	RSTACK	
+?ELS95:	CALL	NOT-AVAILABLE
+	RSTACK	
+?ELS87:	EQUAL?	PRSI,MANUAL \FALSE
+	ZERO?	AUTOMATIC-SONAR \?ELS104
+	CALL	ALREADY,SONARSCOPE,STR?38
+	RSTACK	
+?ELS104:	CALL	SPLIT-SCREEN?
+	ZERO?	STACK /?ELS106
+	SET	'AUTOMATIC-SONAR,FALSE-VALUE
+	SET	'SCREEN-NOW-SPLIT,FALSE-VALUE
+	SPLIT	0
+	CALL	INT,I-SHOW-SONAR
+	PUT	STACK,0,0
+	CALL	OKAY,SONARSCOPE,STR?38
+	RSTACK	
+?ELS106:	CALL	NOT-AVAILABLE
+	RSTACK	
+
+
+	.FUNCT	SHOW-SONARSCOPE,DEP,N,RANGE,LAT,MINLAT,LON,MAXLON,X,Y,LATP2,LATP1,LATM1
+	SET	'DEP,SUB-DEPTH
+	CALL	FIXED-FONT-ON
+	FSET?	SNARK,INVISIBLE /?ELS3
+	PRINTI	"@@=SEACAT Oooo=MONSTER"
+	ZERO?	SUB-IN-BATTLE /?ELS8
+	PRINTI	" #=DANGER"
+	JUMP	?CND1
+?ELS8:	PRINTI	"         "
+	JUMP	?CND1
+?ELS3:	EQUAL?	SHIP-WARNING,SONAR-RED /?THN21
+	EQUAL?	SONAR-WARNING,SONAR-RED \?ELS20
+?THN21:	PRINTI	"SONAR:*RED*"
+	JUMP	?CND18
+?ELS20:	EQUAL?	SHIP-WARNING,SONAR-YELLOW /?THN27
+	EQUAL?	SONAR-WARNING,SONAR-YELLOW \?ELS26
+?THN27:	PRINTI	"SONAR:YELLO"
+	JUMP	?CND18
+?ELS26:	PRINTI	"           "
+?CND18:	PRINTI	" "
+	EQUAL?	DEPTH-WARNING,DEPTH-ORANGE \?ELS39
+	PRINTI	"DEPTH:ORANGE"
+	JUMP	?CND37
+?ELS39:	EQUAL?	DEPTH-WARNING,DEPTH-RED \?ELS43
+	PRINTI	"DEPTH:*RED* "
+	JUMP	?CND37
+?ELS43:	PRINTI	"            "
+?CND37:	PRINTI	" "
+	LESS?	DEP,3 \?ELS54
+	FSET?	FREIGHTER,INVISIBLE /?ELS54
+	PRINTI	"@=SHIP"
+	JUMP	?CND1
+?ELS54:	PRINTI	"      "
+?CND1:	CRLF	
+	SET	'RANGE,SONAR-RANGE
+	ADD	SUB-LAT,RANGE >LAT
+	SUB	SUB-LAT,RANGE >MINLAT
+	ADD	SUB-LON,RANGE >MAXLON
+	SET	'X,39
+	GET	NOW-TERRAIN,0 >Y
+	ADD	SUB-LAT,2 >LATP2
+	ADD	SUB-LAT,1 >LATP1
+	SUB	SUB-LAT,1 >LATM1
+?PRG63:	SUB	SUB-LON,RANGE >LON
+?PRG65:	EQUAL?	LAT,SUB-LAT \?ELS69
+	EQUAL?	LON,SUB-LON \?ELS69
+	PRINTI	" +"
+	JUMP	?CND67
+?ELS69:	FSET?	SNARK,INVISIBLE /?ELS75
+	CALL	THORPE-POS?,LON,LAT
+	ZERO?	STACK /?ELS78
+	PRINTI	" @"
+	JUMP	?CND67
+?ELS78:	CALL	SNARK-HEAD-POS?,LON,LAT
+	ZERO?	STACK /?ELS82
+	PRINTI	" O"
+	JUMP	?CND67
+?ELS82:	CALL	SNARK-TAIL-POS?,LON,LAT
+	ZERO?	STACK /?ELS86
+	PRINTI	" o"
+	JUMP	?CND67
+?ELS86:	ZERO?	SUB-IN-BATTLE /?ELS90
+	CALL	THORPE-SHOOT?,LON,LAT
+	ZERO?	STACK /?ELS90
+	PRINTI	" #"
+	JUMP	?CND67
+?ELS90:	PRINTI	" ."
+	JUMP	?CND67
+?ELS75:	EQUAL?	NOW-TERRAIN,SEA-TERRAIN \?ELS100
+	CALL	DOME-ON-SONAR?,DEP,LON,LAT
+	ZERO?	STACK /?ELS103
+	PRINTI	" *"
+	JUMP	?CND67
+?ELS103:	PRINTI	" ."
+	JUMP	?CND67
+?ELS100:	FSET?	FREIGHTER,INVISIBLE /?ELS111
+	LESS?	DEP,3 \?ELS111
+	EQUAL?	LAT,FREIGHTER-LAT \?ELS111
+	EQUAL?	LON,FREIGHTER-LON \?ELS111
+	PRINTI	" @"
+	JUMP	?CND67
+?ELS111:	GRTR?	LAT,Y \?ELS121
+	GET	NOW-TERRAIN,Y
+	CALL	GET5,STACK,LON
+	EQUAL?	6,STACK /?THN118
+?ELS121:	GRTR?	LON,X \?ELS117
+	GET	NOW-TERRAIN,LAT
+	CALL	GET5,STACK,X
+	EQUAL?	6,STACK \?ELS117
+?THN118:	PRINTI	" ."
+	JUMP	?CND67
+?ELS117:	LESS?	LAT,1 /?THN128
+	LESS?	LON,1 /?THN128
+	GRTR?	LAT,Y /?THN128
+	GRTR?	LON,X \?ELS127
+?THN128:	PRINTI	" *"
+	JUMP	?CND67
+?ELS127:	GET	NOW-TERRAIN,LAT
+	CALL	GET5,STACK,LON
+	LESS?	DEP,STACK \?ELS133
+	PRINTI	" ."
+	JUMP	?CND67
+?ELS133:	PRINTI	" *"
+?CND67:	IGRTR?	'LON,MAXLON \?PRG65
+	EQUAL?	LAT,LATP2 \?ELS145
+	PRINTI	" HDG:"
+	EQUAL?	SUB-DLAT,1 \?ELS150
+	PRINTI	"N"
+	JUMP	?CND148
+?ELS150:	EQUAL?	SUB-DLAT,-1 \?CND148
+	PRINTI	"S"
+?CND148:	EQUAL?	SUB-DLON,1 \?ELS159
+	PRINTI	"E"
+	JUMP	?CND157
+?ELS159:	EQUAL?	SUB-DLON,-1 \?CND157
+	PRINTI	"W"
+?CND157:	PRINTI	" "
+	JUMP	?CND143
+?ELS145:	EQUAL?	LAT,LATP1 \?ELS169
+	EQUAL?	JOYSTICK-DIR,P?NW \?ELS172
+	PRINTI	"  \  "
+	JUMP	?CND143
+?ELS172:	EQUAL?	JOYSTICK-DIR,P?NORTH \?ELS176
+	PRINTI	"   ! "
+	JUMP	?CND143
+?ELS176:	EQUAL?	JOYSTICK-DIR,P?NE \?ELS180
+	PRINTI	"    /"
+	JUMP	?CND143
+?ELS180:	PRINTI	"     "
+	JUMP	?CND143
+?ELS169:	EQUAL?	LAT,SUB-LAT \?ELS188
+	PRINTI	" "
+	EQUAL?	JOYSTICK-DIR,P?WEST \?ELS193
+	PRINTI	"--"
+	JUMP	?CND191
+?ELS193:	PRINTI	"  "
+?CND191:	PRINTI	"+"
+	EQUAL?	JOYSTICK-DIR,P?EAST \?ELS204
+	PRINTI	"--"
+	JUMP	?CND143
+?ELS204:	PRINTI	"  "
+	JUMP	?CND143
+?ELS188:	EQUAL?	LAT,LATM1 \?CND143
+	EQUAL?	JOYSTICK-DIR,P?SW \?ELS215
+	PRINTI	"  /  "
+	JUMP	?CND143
+?ELS215:	EQUAL?	JOYSTICK-DIR,P?SOUTH \?ELS219
+	PRINTI	"   ! "
+	JUMP	?CND143
+?ELS219:	EQUAL?	JOYSTICK-DIR,P?SE \?ELS223
+	PRINTI	"    \"
+	JUMP	?CND143
+?ELS223:	PRINTI	"     "
+?CND143:	CRLF	
+	DLESS?	'LAT,MINLAT \?PRG63
+	MUL	2,RANGE >N
+?PRG233:	PRINTI	"--"
+	DLESS?	'N,0 \?PRG233
+	CRLF	
+	CALL	FIXED-FONT-OFF
+	RTRUE	
+
+
+	.FUNCT	START-SONAR?
+	ZERO?	SCREEN-NOW-SPLIT /FALSE
+	MUL	2,SONAR-RANGE
+	ADD	3,STACK
+	SPLIT	STACK
+	SET	'SONAR-DIR,0
+	CALL	I-SHOW-SONAR
+	CALL	QUEUE,I-SHOW-SONAR,-1
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	SONARSCOPE-LIGHT-F
+	EQUAL?	PRSA,V?REPLY /?THN6
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+?THN6:	ZERO?	SONAR-WARNING \?CND8
+	ZERO?	SHIP-WARNING \?CND8
+	PRINTI	"The "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTI	" is off."
+	CRLF	
+?CND8:	PRINTI	"A yellow "
+	PRINTD	SONARSCOPE-LIGHT
+	PRINTI	" shows that the bearing of a blip is NOT CHANGING, even if you and/or the object causing the blip are moving. This means you're on a COLLISION COURSE!
+The light will turn red and a loud "
+	PRINTD	ALARM-SUB
+	PRINTI	" will sound if you and the approaching object are within ONE TURN of a collision!"
+	RTRUE	
+
+
+	.FUNCT	ALARM-SUB-F
+	EQUAL?	PRSA,V?STOP /?THN6
+	EQUAL?	PRSA,V?REPLY,V?LISTEN,V?LAMP-OFF \FALSE
+?THN6:	PRINTR	"Why not avoid the obstacle?"
+
+
+	.FUNCT	BLY-WELCOME
+	PRINTI	"Welcome to the "
+	PRINTD	AQUADOME
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! You're a sight for sore eyes! We've been anxiously awaiting your arrival!"
+	RTRUE	
+
+
+	.FUNCT	SONARPHONE-F
+	EQUAL?	PRSA,V?LAMP-OFF \?ELS5
+	FSET?	PRSO,ONBIT /?CND6
+	PRINTR	"It's not on!"
+?CND6:	FCLEAR	PRSO,ONBIT
+	ZERO?	REMOTE-PERSON /?ELS15
+	CALL	PERFORM,V?GOODBYE
+	RTRUE	
+?ELS15:	CALL	OKAY,SONARPHONE,STR?39
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?LISTEN \?ELS20
+	ZERO?	BLY-CALLING /?ELS20
+	PRINTR	"It's ringing."
+?ELS20:	EQUAL?	PRSA,V?TAKE /?THN27
+	EQUAL?	PRSA,V?SAY-INTO,V?REPLY,V?LAMP-ON \FALSE
+?THN27:	ZERO?	BLY-CALLING \?ELS33
+	PRINTR	"The sonarphone isn't ringing!"
+?ELS33:	SET	'BLY-CALLING,FALSE-VALUE
+	CALL	PHONE-ON,GLOBAL-BLY,AQUADOME,SONARPHONE
+	FSET	SONARPHONE,ONBIT
+	MOVE	PRIVATE-MATTER,GLOBAL-OBJECTS
+	INC	'BLY-PRIVATELY-COUNT
+	SET	'BLY-WELCOMED,TRUE-VALUE
+	PRINTI	"""This is Zoe Bly speaking. "
+	CALL	BLY-WELCOME
+	CALL	DISCUSS-PRIVATE
+	RSTACK	
+
+
+	.FUNCT	DISCUSS-PRIVATE
+	CALL	THIS-IS-IT,PRIVATE-MATTER
+	PRINTI	" I'd like to discuss a "
+	PRINTD	PRIVATE-MATTER
+	PRINTR	" with you, as soon as possible!"""
+
+
+	.FUNCT	HYDROPHONE-F
+	EQUAL?	PRSA,V?LISTEN \FALSE
+	FSET?	HYDROPHONE,ONBIT \FALSE
+	PRINTI	"You can hear "
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS14
+	PRINTR	"various engine noises."
+?ELS14:	FSET?	WHALE,INVISIBLE /?ELS18
+	PRINTR	"the whale."
+?ELS18:	PRINTR	"nothing interesting."
+
+
+	.FUNCT	REACTOR-F,ARG=0
+	ZERO?	ARG \?THN6
+	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE \?ELS5
+?THN6:	EQUAL?	P-ADVERB,W?CAREFULLY \?ELS12
+	ZERO?	ARG \?ELS12
+	GETP	LOCAL-SUB,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS12:	ZERO?	ARG /?ELS18
+	FSET?	REACTOR,ONBIT \?ELS18
+	FSET?	REACTOR,OPENBIT \TRUE
+?ELS18:	PRINTI	"The power reactor is o"
+	FSET?	REACTOR,ONBIT \?ELS29
+	PUSH	STR?40
+	JUMP	?CND25
+?ELS29:	PUSH	STR?41
+?CND25:	PRINT	STACK
+	PRINTI	" and "
+	FSET?	REACTOR,OPENBIT \?ELS36
+	PUSH	STR?21
+	JUMP	?CND32
+?ELS36:	PUSH	STR?17
+?CND32:	PRINT	STACK
+	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON \?ELS40
+	FSET?	REACTOR,ONBIT \?ELS45
+	CALL	ALREADY,REACTOR,STR?42
+	RSTACK	
+?ELS45:	IN?	CATALYST-CAPSULE,REACTOR /?ELS47
+	FCLEAR	CATALYST-CAPSULE,NDESCBIT
+	CALL	TELL-HINT,33,CATALYST-CAPSULE,FALSE-VALUE
+	RSTACK	
+?ELS47:	FSET?	REACTOR,OPENBIT \?ELS49
+	CALL	YOU-CANT,STR?43,FALSE-VALUE,STR?21
+	RSTACK	
+?ELS49:	FSET	REACTOR,ONBIT
+	PRINTI	"Electrical systems now activated."
+	CRLF	
+	CALL	SCORE-OBJ,REACTOR
+	RTRUE	
+?ELS40:	EQUAL?	PRSA,V?LAMP-OFF \?ELS55
+	FSET?	REACTOR,ONBIT /?ELS60
+	CALL	ALREADY,REACTOR,STR?39
+	RSTACK	
+?ELS60:	FSET?	ENGINE,ONBIT \?ELS62
+	PRINTR	"You can't turn it off while the engine is on."
+?ELS62:	FCLEAR	REACTOR,ONBIT
+	PRINTR	"Electrical systems now de-activated."
+?ELS55:	EQUAL?	PRSA,V?OPEN \FALSE
+	FSET?	REACTOR,ONBIT \FALSE
+	CALL	YOU-CANT,STR?21,FALSE-VALUE,STR?44
+	RSTACK	
+
+
+	.FUNCT	REACTOR-SWITCH-F
+	EQUAL?	PRSA,V?EXAMINE,V?LAMP-OFF,V?LAMP-ON \?ELS5
+	CALL	PERFORM,PRSA,REACTOR
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?TURN,V?PUSH,V?MOVE \FALSE
+	PRINT	I-ASSUME
+	PRINTI	" turn on the "
+	PRINTD	REACTOR
+	PRINTI	".)"
+	CRLF	
+	CALL	PERFORM,V?LAMP-ON,REACTOR
+	RTRUE	
+
+
+	.FUNCT	ENGINE-F
+	EQUAL?	PRSA,V?STOP,V?LAMP-OFF \?ELS5
+	ZERO?	THROTTLE-SETTING /FALSE
+	CALL	YOU-CANT,STR?45,THROTTLE,STR?21
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?LAMP-ON \FALSE
+	ZERO?	SUB-IN-TANK /?ELS21
+	ZERO?	TEST-TANK-FULL /?THN18
+?ELS21:	ZERO?	SUB-IN-DOME /?ELS17
+	ZERO?	AIRLOCK-FULL \?ELS17
+?THN18:	PRINTI	"The "
+	PRINTD	SUB
+	PRINTI	" can't go when it's out of the water. You should fill the "
+	ZERO?	SUB-IN-TANK /?ELS28
+	CALL	THIS-IS-IT,TEST-TANK
+	PRINTD	TEST-TANK
+	JUMP	?CND26
+?ELS28:	CALL	THIS-IS-IT,AIRLOCK
+	PRINTD	AIRLOCK
+?CND26:	PRINTR	" first."
+?ELS17:	FSET?	REACTOR,ONBIT /?ELS39
+	CALL	YOU-CANT,STR?43,REACTOR,STR?39
+	RSTACK	
+?ELS39:	FSET?	ENGINE,ONBIT \?ELS41
+	CALL	ALREADY,ENGINE,STR?42
+	RSTACK	
+?ELS41:	SET	'GATE-CRASHED,FALSE-VALUE
+	FSET	ENGINE,ONBIT
+	FSET	ENGINE,TOUCHBIT
+	CALL	READY-FOR-SNARK?
+	ZERO?	STACK /?ELS46
+	PRINTI	"Your revolutionary craft thrums with power, matching your own excited heartbeat!"
+	CRLF	
+	JUMP	?CND44
+?ELS46:	PRINTI	"You can immediately hear the powerful thrum of the hydrojet turbine."
+	CRLF	
+?CND44:	CALL	SCORE-OBJ,ENGINE
+	RTRUE	
+
+
+	.FUNCT	ENGINE-BUTTON-F
+	EQUAL?	PRSA,V?EXAMINE,V?LAMP-OFF,V?LAMP-ON \?ELS5
+	CALL	PERFORM,PRSA,ENGINE
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?TURN,V?PUSH,V?MOVE \FALSE
+	PRINT	I-ASSUME
+	PRINTI	" turn on the "
+	PRINTD	ENGINE
+	PRINTI	".)"
+	CRLF	
+	CALL	PERFORM,V?LAMP-ON,ENGINE
+	RTRUE	
+
+
+	.FUNCT	JOYSTICK-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS5
+	PRINTI	"The "
+	PRINTD	JOYSTICK
+	PRINTI	" is like the kind used with personal computers, only bigger. It's now "
+	ZERO?	JOYSTICK-DIR \?ELS12
+	PRINTR	"sitting at dead center."
+?ELS12:	PRINTI	"pointing to "
+	CALL	DIR-PRINT,JOYSTICK-DIR
+	PRINTR	"."
+?ELS5:	EQUAL?	PRSA,V?TURN,V?PUSH,V?MOVE \?ELS22
+	CALL	V-WALK-AROUND
+	RTRUE	
+?ELS22:	EQUAL?	PRSA,V?MOVE-DIR \FALSE
+	EQUAL?	P-DIRECTION,P?IN \?CND25
+	CALL	V-WALK-AROUND
+	RTRUE	
+?CND25:	EQUAL?	P-DIRECTION,P?OUT \?CND28
+	ZERO?	SUB-IN-TANK /?ELS33
+	SET	'P-DIRECTION,P?EAST
+	JUMP	?CND28
+?ELS33:	ZERO?	SUB-IN-DOME /?ELS36
+	SET	'P-DIRECTION,P?SOUTH
+	JUMP	?CND28
+?ELS36:	CALL	V-WALK-AROUND
+	RTRUE	
+?CND28:	CALL	DO-WALK,P-DIRECTION
+	RTRUE	
+
+
+	.FUNCT	THROTTLE-F,TH
+	EQUAL?	PRSA,V?LAMP-ON,V?PUSH,V?OPEN \?ELS5
+	ADD	1,THROTTLE-SETTING >P-NUMBER
+	GRTR?	P-NUMBER,THROTTLE-MAX \?ELS10
+	PRINTR	"You're going as fast as you can!"
+?ELS10:	CALL	PERFORM,V?SET,THROTTLE
+	RTRUE	
+?ELS5:	EQUAL?	PRSA,V?LAMP-OFF,V?CLOSE \?ELS16
+	ZERO?	THROTTLE-SETTING \?CND17
+	CALL	ALREADY,THROTTLE,STR?17
+	RTRUE	
+?CND17:	SET	'THROTTLE-SETTING,0
+	ZERO?	SUB-IN-TANK \?THN23
+	ZERO?	SUB-IN-DOME /?ELS22
+?THN23:	PRINTI	"The throttle is now closed. You must open it to make the "
+	PRINTD	SUB
+	PRINTR	" go anywhere."
+?ELS22:	PRINTI	"The "
+	PRINTD	SUB
+	PRINTI	" slows to a halt."
+	CRLF	
+	CALL	COOL-BACK
+	RTRUE	
+?ELS16:	EQUAL?	PRSA,V?TURN,V?MOVE \?ELS32
+	PRINTR	"Set it to the speed you want: fast, medium, slow, or off."
+?ELS32:	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS36
+	PRINTI	"The throttle is set to "
+	GET	THROTTLE-DESCS,THROTTLE-SETTING
+	PRINT	STACK
+	PRINTR	"."
+?ELS36:	EQUAL?	PRSA,V?MOVE-DIR,V?PUT,V?SET \FALSE
+	EQUAL?	PRSO,THROTTLE \FALSE
+	EQUAL?	PRSI,FAST /?THN46
+	EQUAL?	PRSI,MEDIUM,SLOW,OFF \?ELS45
+?THN46:	EQUAL?	PRSI,OFF \?ELS50
+	SET	'TH,0
+	JUMP	?CND43
+?ELS50:	EQUAL?	PRSI,SLOW \?ELS52
+	SET	'TH,1
+	JUMP	?CND43
+?ELS52:	EQUAL?	PRSI,MEDIUM \?ELS54
+	SET	'TH,2
+	JUMP	?CND43
+?ELS54:	EQUAL?	PRSI,FAST \?CND43
+	SET	'TH,3
+	JUMP	?CND43
+?ELS45:	EQUAL?	PRSI,FALSE-VALUE,GRID-UNIT \?ELS58
+	GRTR?	P-NUMBER,-1 \?ELS58
+	GRTR?	P-NUMBER,THROTTLE-MAX /?ELS58
+	SET	'TH,P-NUMBER
+	JUMP	?CND43
+?ELS58:	PRINTR	"Set it off, slow, medium, or fast."
+?CND43:	ZERO?	TH \?CND65
+	PRINT	I-ASSUME
+	PRINTI	" close the "
+	PRINTD	THROTTLE
+	PRINTI	".)"
+	CRLF	
+	CALL	PERFORM,V?CLOSE,THROTTLE
+	RTRUE	
+?CND65:	FSET?	ENGINE,ONBIT /?ELS72
+	PRINTI	"Nothing happens when you open the throttle. "
+	ZERO?	GATE-CRASHED /?ELS77
+	PRINTI	"The turbine was stopped by Automatic Shutoff when you crashed into the sea gate."
+	JUMP	?CND75
+?ELS77:	PRINTI	"The engine is off."
+?CND75:	CALL	THIS-IS-IT,ENGINE
+	CRLF	
+	RTRUE	
+?ELS72:	ZERO?	SUB-IN-TANK /?ELS86
+	CALL	HATCH-GATE-NOT-READY?,TANK-GATE
+	ZERO?	STACK \TRUE
+	EQUAL?	JOYSTICK-DIR,P?EAST \?ELS93
+	FSET?	TANK-GATE,OPENBIT /?ELS96
+	CALL	GATE-CRASH,STR?21,THROTTLE,TANK-GATE
+	RTRUE	
+?ELS96:	SET	'THROTTLE-SETTING,TH
+	CALL	SUB-LEAVES,TRUE-VALUE,P?EAST
+	RTRUE	
+?ELS93:	SET	'THROTTLE-SETTING,TH
+	CALL	OKAY-THROTTLE,P?EAST
+	RTRUE	
+?ELS86:	ZERO?	SUB-IN-DOME /?ELS102
+	CALL	HATCH-GATE-NOT-READY?,AIRLOCK-HATCH
+	ZERO?	STACK \TRUE
+	SET	'THROTTLE-SETTING,TH
+	EQUAL?	JOYSTICK-DIR,P?SOUTH \?ELS109
+	CALL	SUB-LEAVES,FALSE-VALUE,P?SOUTH
+	RTRUE	
+?ELS109:	CALL	OKAY-THROTTLE,P?SOUTH
+	RTRUE	
+?ELS102:	EQUAL?	THROTTLE-SETTING,TH \?ELS116
+	PRINTI	"Okay, you're still "
+	JUMP	?CND114
+?ELS116:	LESS?	THROTTLE-SETTING,TH \?ELS123
+	PRINTI	"You feel the seat press "
+	ZERO?	THROTTLE-SETTING /?CND126
+	PRINTI	"harder "
+?CND126:	PRINTI	"against you, and the "
+	PRINTD	ENGINE
+	PRINTI	" gets loud"
+	JUMP	?CND121
+?ELS123:	PRINTI	"The "
+	PRINTD	ENGINE
+	PRINTI	" gets quiet"
+?CND121:	PRINTI	"er. You're now "
+?CND114:	PRINTI	"travelling at a speed of "
+	PRINTN	TH
+	PRINTI	" "
+	PRINTD	GRID-UNIT
+	EQUAL?	1,TH /?CND141
+	PRINTI	"s"
+?CND141:	SET	'THROTTLE-SETTING,TH
+	PRINTR	" per turn."
+
+
+	.FUNCT	OKAY-THROTTLE,DIR
+	PRINTI	"Okay, now that the throttle is set, try pushing the "
+	PRINTD	JOYSTICK
+	PRINTI	" to "
+	CALL	DIR-PRINT,DIR
+	PRINTR	"."
+
+
+	.FUNCT	I-SHOW-SONAR
+	FSET?	SNARK,INVISIBLE \?ELS5
+	FSET?	FREIGHTER,INVISIBLE \?ELS5
+	EQUAL?	SONAR-LON,SUB-LON \?ELS5
+	EQUAL?	SONAR-LAT,SUB-LAT \?ELS5
+	EQUAL?	SONAR-DEP,SUB-DEPTH \?ELS5
+	EQUAL?	SONAR-DIR,JOYSTICK-DIR \?ELS5
+	ZERO?	DEBUG /FALSE
+	PRINTI	"[no sonar update]"
+	CRLF	
+	RFALSE	
+?ELS5:	SCREEN	1
+	CALL	SHOW-SONARSCOPE
+	SCREEN	0
+	SET	'SONAR-LON,SUB-LON
+	SET	'SONAR-LAT,SUB-LAT
+	SET	'SONAR-DEP,SUB-DEPTH
+	SET	'SONAR-DIR,JOYSTICK-DIR
+	RFALSE	
+
+
+	.FUNCT	DEPTH-F
+	CALL	DO-INSTEAD-OF,DEPTH-CONTROL,DEPTH
+	RTRUE	
+
+
+	.FUNCT	DEPTH-CONTROL-F,DEP,NEW-DIVING?
+	CALL	REMOTE-VERB?
+	ZERO?	STACK \FALSE
+	ZERO?	SUB-IN-TANK /?ELS7
+	CALL	YOU-CANT,STR?49,SUB,STR?50
+	RTRUE	
+?ELS7:	ZERO?	SUB-IN-DOME /?ELS10
+	CALL	WHY-NEED,DEPTH-CONTROL,AIRLOCK
+	ZERO?	STACK \TRUE
+?ELS10:	EQUAL?	PRSA,V?WHAT /?THN15
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS14
+?THN15:	PRINTI	"It's set for a desired depth of "
+	MUL	5,TARGET-DEPTH
+	PRINTN	STACK
+	PRINTR	" meters."
+?ELS14:	EQUAL?	PRSA,V?SET \FALSE
+	SET	'DEP,P-NUMBER
+	FSET?	AUTO-PILOT,ONBIT \?ELS23
+	PRINTI	"Let the "
+	PRINTD	AUTO-PILOT
+	PRINTR	" handle that."
+?ELS23:	FSET?	DEPTHFINDER,ONBIT /?ELS27
+	CALL	THIS-IS-IT,DEPTHFINDER
+	PRINTI	"You'd better turn on the "
+	PRINTD	DEPTHFINDER
+	PRINTR	" first."
+?ELS27:	GRTR?	DEP,-1 /?ELS31
+	PRINTR	"You must set it to at least zero!"
+?ELS31:	ZERO?	SUB-IN-BATTLE /?ELS35
+	GRTR?	SUB-DEPTH,DEP \?ELS35
+	PRINTR	"If you go above the Snark, Thorpe will shoot you!"
+?ELS35:	GRTR?	DEP,0 \?ELS41
+	FSET?	SUB-DOOR,OPENBIT \?ELS41
+	CALL	YOU-CANT,STR?49,SUB-DOOR,STR?21
+	RTRUE	
+?ELS41:	EQUAL?	PRSI,METER \?CND21
+	ADD	2,DEP
+	DIV	STACK,5 >DEP
+	MUL	5,DEP
+	EQUAL?	P-NUMBER,STACK /?CND21
+	PRINTI	"(That rounds off to "
+	MUL	5,DEP
+	PRINTN	STACK
+	PRINTI	" meters.)"
+	CRLF	
+?CND21:	SET	'TARGET-DEPTH,DEP
+	ZERO?	DEP /?CND51
+	SET	'EVER-SUBMERGED?,TRUE-VALUE
+?CND51:	EQUAL?	SUB-DEPTH,DEP \?ELS58
+	ZERO?	DIVING? \?ELS61
+	CALL	ALREADY,PLAYER,STR?51
+	JUMP	?CND59
+?ELS61:	PRINTI	"Your "
+	EQUAL?	1,DIVING? \?ELS70
+	PUSH	STR?52
+	JUMP	?CND66
+?ELS70:	PUSH	STR?53
+?CND66:	PRINT	STACK
+	PRINTI	"scent ceases."
+?CND59:	CRLF	
+	SET	'DIVING?,0
+	RTRUE	
+?ELS58:	LESS?	SUB-DEPTH,TARGET-DEPTH \?ELS77
+	SET	'NEW-DIVING?,1
+	JUMP	?CND75
+?ELS77:	SET	'NEW-DIVING?,-1
+?CND75:	EQUAL?	DIVING?,NEW-DIVING? /?ELS82
+	PRINTI	"The "
+	PRINTD	SUB
+	PRINTI	" noses "
+	EQUAL?	NEW-DIVING?,1 \?ELS87
+	PRINTI	"down"
+	JUMP	?CND85
+?ELS87:	PRINTI	"up"
+?CND85:	PRINTI	"ward"
+	ZERO?	SUB-DEPTH \?CND96
+	PRINTI	", and "
+	PRINTD	GLOBAL-WATER
+	PRINTI	" begins to wash over your forward "
+	PRINTD	SUB-WINDOW
+?CND96:	PRINTI	". You're now "
+	JUMP	?CND80
+?ELS82:	PRINTI	"Okay, you're still "
+?CND80:	SET	'DIVING?,NEW-DIVING?
+	EQUAL?	1,DIVING? \?ELS109
+	PRINTI	"div"
+	JUMP	?CND107
+?ELS109:	PRINTI	"ris"
+?CND107:	PRINTI	"ing at a speed of 5 meters per "
+	ZERO?	THROTTLE-SETTING \?ELS122
+	PRINTR	"turn."
+?ELS122:	PRINTD	GRID-UNIT
+	PRINTR	"."
+
+
+	.FUNCT	METER-F
+	EQUAL?	PRSA,V?BOARD \FALSE
+	CALL	PERFORM,V?CLIMB-UP,PRSO
+	RTRUE	
+
+
+	.FUNCT	AUTO-PILOT-F
+	EQUAL?	PRSA,V?LAMP-OFF \?ELS5
+	FSET?	AUTO-PILOT,ONBIT /?ELS10
+	CALL	ALREADY,AUTO-PILOT,STR?39
+	RSTACK	
+?ELS10:	PRINTI	"If you do, you'll never reach the "
+	PRINTD	AQUADOME
+	PRINTR	"!"
+?ELS5:	EQUAL?	PRSA,V?PUSH,V?LAMP-ON /?THN17
+	EQUAL?	PRSA,V?SET \FALSE
+	EQUAL?	PRSI,AQUADOME \FALSE
+?THN17:	FSET?	AUTO-PILOT,ONBIT \?ELS25
+	CALL	ALREADY,AUTO-PILOT,STR?42
+	RSTACK	
+?ELS25:	ZERO?	SUB-IN-OPEN-SEA \?ELS27
+	PRINTR	"You must be your own pilot for now."
+?ELS27:	FSET?	SUB-DOOR,OPENBIT \?ELS31
+	CALL	YOU-CANT,STR?49,SUB-DOOR,STR?21
+	RTRUE	
+?ELS31:	FSET	AUTO-PILOT,ONBIT
+	SET	'JOYSTICK-DIR,P?EAST
+	SET	'TIP-SAYS-1,23
+	SET	'TIP-SAYS-2,MAGAZINE
+	CALL	QUEUE,I-TIP-SAYS,6
+	PUT	STACK,0,1
+	PRINTI	"Okay, your trip to the "
+	PRINTD	AQUADOME
+	PRINTI	" will take "
+	ZERO?	THROTTLE-SETTING \?ELS38
+	PRINTI	"forever"
+	JUMP	?CND36
+?ELS38:	DIV	AQUADOME-DISTANCE,THROTTLE-SETTING
+	PRINTN	STACK
+	PRINTI	" turns"
+?CND36:	PRINTI	" at your current speed. But you can set the throttle to a different speed, if you want."
+	CRLF	
+	CALL	SCORE-OBJ,AUTO-PILOT
+	RTRUE	
+
+
+	.FUNCT	I-AUTO-PILOT
+	FSET?	AUTO-PILOT,ONBIT /FALSE
+	CALL	QUEUE,I-AUTO-PILOT,2
+	EQUAL?	PRSA,V?LAMP-ON \?CND6
+	EQUAL?	PRSO,AUTO-PILOT /FALSE
+?CND6:	CALL	TIME-FOR-PILOT
+	RSTACK	
+
+
+	.FUNCT	TIME-FOR-PILOT
+	CALL	TIP-SAYS
+	PRINTI	"I think it's time to turn on the "
+	PRINTD	AUTO-PILOT
+	PRINTR	"."""
+
+
+	.FUNCT	CONTROL-CIRCUITS-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+	ZERO?	SUB-IN-OPEN-SEA /FALSE
+	PRINTI	"Sorry. There's no way to do this while the "
+	PRINTD	SUB
+	PRINTR	" is submerged and underway. You need ship-repair or test-tank facilities."
+
+
+	.FUNCT	CONTROL-CIRCUITS-GAUGE-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+	PRINTI	"The "
+	PRINTD	CONTROL-CIRCUITS-GAUGE
+	PRINTI	" needle is "
+	LESS?	20,CIRCUIT-TEMP \?ELS15
+	LESS?	25,CIRCUIT-TEMP \?ELS18
+	PRINTI	"pointing to"
+	JUMP	?CND16
+?ELS18:	PRINTI	"near"
+?CND16:	PRINTI	" the red danger zone."
+	JUMP	?CND13
+?ELS15:	PRINTI	"in the green safety zone."
+?CND13:	FSET?	ENGINE,TOUCHBIT /?ELS33
+	JUMP	?CND31
+?ELS33:	FSET?	VOLTAGE-REGULATOR,MUNGBIT /?ELS35
+	JUMP	?CND31
+?ELS35:	LESS?	1,THROTTLE-SETTING \?ELS37
+	PRINTI	" And rising."
+	JUMP	?CND31
+?ELS37:	ZERO?	THROTTLE-SETTING \?ELS41
+	PRINTI	" And falling."
+	JUMP	?CND31
+?ELS41:	PRINTI	" And steady."
+?CND31:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SEARCH-BEAM-F
+	EQUAL?	PRSA,V?TURN \?ELS5
+	PRINTR	"You didn't tell what direction to aim it."
+?ELS5:	EQUAL?	PRSA,V?AIM \FALSE
+	FSET?	SEARCH-BEAM,ONBIT /?ELS14
+	PRINTR	"It's not on!"
+?ELS14:	ZERO?	SUB-IN-BATTLE /?ELS18
+	CALL	TOO-CLOUDY
+	RSTACK	
+?ELS18:	EQUAL?	PRSI,RIGHT \?ELS21
+	IN?	WHALE,SUB \?ELS21
+	FSET?	WHALE,INVISIBLE \?ELS28
+	FCLEAR	WHALE,INVISIBLE
+	PRINTI	"An enormous whale can be seen, lolling comfortably in the deep."
+	ZERO?	WHALE-HEARD /?CND31
+	PRINTI	" Obviously this is what has been making those noises over the hydrophone."
+?CND31:	CRLF	
+	PRINTI	"The whale swims closer as you pass, curious about this strange fish -- the "
+	PRINTD	SUB
+	PRINTR	". But, thankfully, it shows no danger of accidental collision."
+?ELS28:	PRINTR	"The whale is still following you."
+?ELS21:	PRINTI	"Nothing new appears in the "
+	PRINTD	SEARCH-BEAM
+	PRINTR	" beam."
+
+
+	.FUNCT	GENERIC-LIGHT-F,OBJ
+	ZERO?	DEPTH-WARNING /?ELS5
+	RETURN	DEPTHFINDER-LIGHT
+?ELS5:	ZERO?	SONAR-WARNING \?THN9
+	ZERO?	SHIP-WARNING /?ELS8
+?THN9:	RETURN	SONARSCOPE-LIGHT
+?ELS8:	EQUAL?	PRSA,V?SAIM,V?AIM /?THN13
+	EQUAL?	PRSA,V?TURN,V?LAMP-OFF,V?LAMP-ON \FALSE
+?THN13:	RETURN	SEARCH-BEAM
+
+
+	.FUNCT	WHALE-F
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?FIND \FALSE
+	PRINTR	"You shouldn't get any closer!"
+
+
+	.FUNCT	BAY-F
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?FIND \?ELS5
+	ZERO?	SUB-IN-TANK /?ELS10
+	PRINTI	"First you must launch the "
+	PRINTD	SUB
+	PRINTR	"."
+?ELS10:	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS15
+	PRINTR	"You're in it!"
+?ELS15:	PRINTR	"This is no time to go back!"
+?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	NOW-TERRAIN,BAY-TERRAIN \?ELS28
+	CALL	PERFORM,V?LOOK-OUTSIDE,SUB-WINDOW
+	RTRUE	
+?ELS28:	CALL	NOT-HERE,BAY
+	RSTACK	
+
+
+	.FUNCT	CLAW-F
+	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \?ELS5
+	CALL	LOCAL-SUB-F
+	RSTACK	
+?ELS5:	EQUAL?	PRSA,V?FIND \?ELS7
+	PRINTI	"It's part of the "
+	PRINTD	SUB
+	PRINTR	"."
+?ELS7:	EQUAL?	PRSA,V?MOVE-DIR,V?MOVE,V?AIM \FALSE
+	GET	ON-SUB,0
+	EQUAL?	BAZOOKA,STACK \?ELS16
+	GET	ON-SUB,1
+	EQUAL?	DART,STACK \?ELS21
+	PRINTR	"You should do that to one weapon or the other."
+?ELS21:	CALL	PERFORM,PRSA,BAZOOKA,PRSI
+	RTRUE	
+?ELS16:	GET	ON-SUB,1
+	EQUAL?	DART,STACK \?ELS27
+	CALL	PERFORM,PRSA,DART,PRSI
+	RTRUE	
+?ELS27:	PRINTR	"The claw moves just where you want it. Well done!"
+
+
+	.FUNCT	WHY-NEED,OBJ,WHERE
+	EQUAL?	PRSA,V?SET \?ELS5
+	EQUAL?	PRSI,MANUAL /FALSE
+?ELS5:	EQUAL?	PRSA,V?MUNG,V?LAMP-OFF /FALSE
+	PRINTI	"Why would you need the "
+	PRINTD	OBJ
+	PRINTI	"? The "
+	PRINTD	SUB
+	PRINTI	" is in the "
+	PRINTD	WHERE
+	PRINTR	"."
+
+
+	.FUNCT	PILOT-SEAT-F,VAL=0
+	EQUAL?	PRSA,V?SIT,V?EXAMINE,V?ANALYZE \?ELS5
+	PRINTR	"You're sitting in it."
+?ELS5:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	FSET?	OXYGEN-GEAR,TOUCHBIT /?CND10
+	SET	'VAL,TRUE-VALUE
+	PRINTI	"You can see "
+	PRINTD	OXYGEN-GEAR
+	PRINTI	"."
+	CRLF	
+?CND10:	IN?	ESCAPE-POD-UNIT,HERE \?CND15
+	SET	'VAL,TRUE-VALUE
+	PRINTI	"You can see the "
+	PRINTD	ESCAPE-POD-UNIT
+	PRINTI	"."
+	CRLF	
+?CND15:	RETURN	VAL
+
+
+	.FUNCT	INSTRUMENTS-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+	PRINTI	"Main instruments:
+"
+	PRINTD	DEPTHFINDER
+	PRINTI	", "
+	PRINTD	HYDROPHONE
+	PRINTI	", "
+	PRINTD	SONARSCOPE
+	PRINTI	", and "
+	PRINTD	CONTROL-CIRCUITS-GAUGE
+	PRINTR	"."
+
+
+	.FUNCT	CONTROLS-SUB-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
+	PRINTI	"MAIN OPERATING CONTROLS:
+"
+	CALL	FIXED-FONT-ON
+	PRINTD	REACTOR
+	PRINTI	"        : "
+	FSET?	REACTOR,OPENBIT \?ELS16
+	PUSH	STR?21
+	JUMP	?CND12
+?ELS16:	PUSH	STR?17
+?CND12:	PRINT	STACK
+	CRLF	
+	PRINTD	REACTOR-SWITCH
+	PRINTI	": "
+	FSET?	REACTOR,ONBIT \?ELS23
+	PUSH	STR?42
+	JUMP	?CND19
+?ELS23:	PUSH	STR?39
+?CND19:	PRINT	STACK
+	CRLF	
+	PRINTD	FILL-TANK-BUTTON
+	PRINTI	"   : "
+	CALL	TANK-STATUS
+	PRINT	STACK
+	CRLF	
+	PRINTD	OPEN-GATE-BUTTON
+	PRINTI	"   : "
+	CALL	GATE-STATUS
+	PRINT	STACK
+	CRLF	
+	PRINTD	ENGINE-BUTTON
+	PRINTI	" : "
+	FSET?	ENGINE,ONBIT \?ELS30
+	PUSH	STR?42
+	JUMP	?CND26
+?ELS30:	PUSH	STR?39
+?CND26:	PRINT	STACK
+	CRLF	
+	PRINTD	THROTTLE
+	PRINTI	"       : "
+	GET	THROTTLE-DESCS,THROTTLE-SETTING
+	PRINT	STACK
+	CRLF	
+	PRINTD	JOYSTICK
+	PRINTI	"       : "
+	CALL	DIR-PRINT,JOYSTICK-DIR,FALSE-VALUE
+	CRLF	
+	PRINTD	DEPTH-CONTROL
+	PRINTI	"  : "
+	MUL	5,TARGET-DEPTH
+	PRINTN	STACK
+	PRINTI	" meters
+"
+	PRINTD	AUTO-PILOT
+	PRINTI	"      : "
+	FSET?	AUTO-PILOT,ONBIT \?ELS39
+	PUSH	STR?42
+	JUMP	?CND35
+?ELS39:	PUSH	STR?39
+?CND35:	PRINT	STACK
+	CRLF	
+	CALL	FIXED-FONT-OFF
+	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/sub.zil b/sub.zil
new file mode 100644
index 0000000..ba25407
--- /dev/null
+++ b/sub.zil
@@ -0,0 +1,2845 @@
+"SUB for SEASTALKER
+Copyright (C) 1984 Infocom, Inc.  All rights reserved."
+
+<ROOM SUB
+	(IN ROOMS)
+	(DESC "SCIMITAR" ;"Ultramarine Bioceptor")
+	(TEXT
+"This is your revolutionary new Ultramarine Bioceptor, named the SCIMITAR.")
+	(FLAGS RLANDBIT ONBIT ;VOWELBIT ;VEHBIT)
+	(OUT	PER SUB-EXIT-F)
+	;(UP	PER SUB-EXIT-F)
+	(IN	TO CRAWL-SPACE IF ENGINE-ACCESS-HATCH IS OPEN)
+	;(DOWN	TO CRAWL-SPACE IF ENGINE-ACCESS-HATCH IS OPEN)
+	(GLOBAL LOCAL-SUB SUB-DOOR ENGINE-ACCESS-HATCH
+		REACTOR-SWITCH FILL-TANK-BUTTON OPEN-GATE-BUTTON
+		TEST-BUTTON ENGINE-BUTTON)
+	(VALUE 1)
+	(ACTION SUB-F)>
+
+<ROUTINE SUB-EXIT-F ("AUX" X)
+ <COND (<NOT <FSET? ,SUB-DOOR ,OPENBIT>>
+	<THIS-IS-IT ,SUB-DOOR>
+	<TELL "The " D ,SUB-DOOR " is closed." CR>
+	<RFALSE>)
+       (,SUB-IN-TANK
+	<COND (<SET X <GET ,ON-SUB 0>> <MOVE .X ,NORTH-TANK-AREA>)>
+	<COND (<SET X <GET ,ON-SUB 1>> <MOVE .X ,NORTH-TANK-AREA>)>
+	,NORTH-TANK-AREA)
+       (,SUB-IN-DOME
+	<COND (,AIRLOCK-FULL
+	       ;<YOU-CANT "leave" ,AIRLOCK "full of water">
+	       <TELL
+"You can't go out while the " D ,AIRLOCK " is full of water!" CR>
+	       <RFALSE>)
+	      (T
+	       <COND (<AND <NOT ,DOME-AIR-BAD?>
+			   <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
+		      <ENABLE <QUEUE I-DOME-AIR ,DOME-AIR-ONSET>>
+		      <COND (<NOT <IN? ,OXYGEN-GEAR ,PLAYER>>
+			     <TELL-HINT 53 ;10 ,OXYGEN-GEAR <>>
+			     <CRLF>)>)
+		     ;"(T <ENABLE <QUEUE I-ANTRIM-REPORTS 29>>)">
+	       <COND (<SET X <GET ,ON-SUB 0>> <MOVE .X ,AIRLOCK>)>
+	       <COND (<SET X <GET ,ON-SUB 1>> <MOVE .X ,AIRLOCK>)>
+	       <COND (<IN? ,MAGAZINE ,TIP>
+		      ;<FCLEAR ,MAGAZINE ,NDESCBIT>
+		      <MOVE ,MAGAZINE ,SUB>)>
+	       <QUEUE I-POISON-JAB 0>
+	       ,AIRLOCK)>)
+       (T
+	;<YOU-CANT "leave" ,SUB "here">
+	<TELL "You can't go out of the " D ,SUB " here!" CR>
+	<RFALSE>)>>
+
+<ROUTINE DOCKING-VERB? ()
+ <COND (<NOT <EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN ,SEA-TERRAIN>>
+	<RFALSE>)
+       (<VERB? DOCK> <RTRUE>)
+       (<AND <VERB? WALK> <DOBJ? P?IN>> <RTRUE>)
+       (<VERB? THROUGH WALK-TO>
+	<COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+	       <COND (<DOBJ? TEST-TANK TANK-GATE YOUR-LABORATORY> <RTRUE>)
+		     (T <RFALSE>)>)
+	      (<DOBJ? DOCKING-TANK AIRLOCK AQUADOME AIRLOCK-HATCH> <RTRUE>)>)
+       ;(T <RFALSE>)>>
+
+<ROUTINE SOMEONE-WORKING? ()
+	<COND (<NOT <0? <POPULATION ,CRAWL-SPACE ,PLAYER>>> <RTRUE>)
+	      (<NOT <0? <POPULATION ,SUB ,TIP ,PLAYER>>> <RTRUE>)
+	      ;(<AND <SET P <FIND-FLAG ,SUB ,PERSON ,WINNER>>
+		    <NOT <EQUAL? .P ,TIP>>
+		    ;<NOT <EQUAL? ,OLD-HERE ,CRAWL-SPACE>>>
+	       <RTRUE>)>>
+
+<ROUTINE CANT-GO-TO-THRU-CLOSED-HATCH? ("AUX" X)
+	<SET X ,PRSO>
+	<COND (<FSET? ,PRSO ,PERSON>
+	       <SET X <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>)>
+	<AND <NOT <GLOBAL-IN? ,PRSO ,SUB>>
+	     <NOT <GLOBAL-IN? ,PRSO ,CRAWL-SPACE>>
+	     <OR <EQUAL? .X ,DOCKING-TANK ,TEST-TANK>
+		 <NOT <EQUAL? <META-LOC .X>
+			      ,SUB ,CRAWL-SPACE ,GLOBAL-OBJECTS>>>
+	     <NOT <SUB-EXIT-F>>>>
+
+<ROUTINE SUB-F ("OPTIONAL" (RARG <>) "AUX" RM X)
+ <COND (<EQUAL? .RARG ,M-BEG>
+	<COND (<AND <OR ,SUB-IN-TANK ,SUB-IN-DOME>
+		    <OR <VERB? LAUNCH>
+			<AND <VERB? ;DROP LEAVE> <DOBJ? AIRLOCK TEST-TANK>>>>
+	       <PERFORM ,V?LAMP-ON ,LOCAL-SUB>
+	       <RTRUE>)
+	      (<VERB? STAND> <TELL "There's no room in here!" CR>)
+	      (<VERB? $CALL>
+	       <COND (<DOBJ? SLOW MEDIUM FAST>
+		      <PERFORM ,V?SET ,THROTTLE ,PRSO>
+		      <RTRUE>)>)
+	      (<AND <VERB? DISEMBARK LEAVE>
+		    <OR <NOT ,PRSO> <DOBJ? LOCAL-SUB>>>
+	       <COND (<SET RM <SUB-EXIT-F>>
+		      <COND (<AND <GOTO .RM> <NOT <==? ,WINNER ,PLAYER>>>
+			     <OKAY>)>)>
+	       <RTRUE>)
+	      (<DOCKING-VERB?>
+	       <COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+		      <TELL
+"You can't go back to the " D ,TEST-TANK " now!" CR>)
+		     (<NOT <SUB-OUTSIDE-AIRLOCK?>>
+		      <TOO-BAD-BUT ,AIRLOCK "too far away">
+		      ;<TELL "You're too far from the " D ,AIRLOCK "." CR>)
+		     (<NOT <FSET? ,AIRLOCK-HATCH ,OPENBIT>>
+		      <TOO-BAD-BUT ,AIRLOCK-HATCH "closed">
+		      ;<TELL "The " D ,AIRLOCK-HATCH " is closed." CR>)
+		     (T
+		      <SETG THROTTLE-SETTING 1>
+		      ;<COND (,DEBUG
+			     <TELL "[Throttle=" N ,THROTTLE-SETTING "]" CR>)>
+		      <SETG JOYSTICK-DIR ,P?NORTH>
+		      ;<SETG SUB-IN-REVERSE? T>
+		      <SETG SUB-DLON 0>
+		      <SETG SUB-DLAT 1>
+		      <RTRUE ;RFALSE>)>)
+	      (<AND <NOT ,SUB-IN-DOME>
+		    <VERB? FIND WALK-TO>
+		    <DOBJ? LOCAL-SUB AQUADOME DOCKING-TANK>>
+	       <COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN ,SEA-TERRAIN>
+		      <PERFORM ,V?FIND ,PLAYER>
+		      <RTRUE>)>)
+	      (<VERB? CLIMB-DOWN CLIMB-UP LEVEL>
+	       <COND (<OR ,SUB-IN-TANK ,SUB-IN-DOME>
+		      <TELL
+"You can't do that while the " D ,SUB " is here." CR>
+		      <RTRUE>)
+		     (<VERB? LEVEL>
+		      <SETG TARGET-DEPTH ,SUB-DEPTH>
+		      <RTRUE>)	;"I-UPDATE-SUB should give output"
+		     (<FSET? ,PRSO ,UNITBIT>
+		      <COND (<VERB? CLIMB-DOWN>
+			     <SETG P-NUMBER <+ <* 5 ,SUB-DEPTH> ,P-NUMBER>>)
+			    (<VERB? CLIMB-UP>
+			     <SETG P-NUMBER <- <* 5 ,SUB-DEPTH> ,P-NUMBER>>
+			     <COND (<G? 0 ,P-NUMBER>
+				    <TELL "You're not deep enough!" CR>
+				    <RTRUE>)>)>
+		      <PERFORM ,V?DIVE ,PRSO>
+		      <RTRUE>)>)
+	      (<VERB? WALK>
+	       <COND (<DOBJ? UNDERWATER> <SETG PRSO ,P?DOWN>)>
+	       <COND (<L? ,PRSO ,LOW-DIRECTION>
+		      <V-WALK-AROUND>
+		      <RTRUE>)>
+	       <COND (<DOBJ? P?IN P?OUT>
+		      <RFALSE>)>
+	       <COND (<DOBJ? P?DOWN P?UP>
+		      <SETG P-NUMBER 5>
+		      <COND (<DOBJ? P?UP> <PERFORM ,V?CLIMB-UP ,METER>)
+			    (T <PERFORM ,V?CLIMB-DOWN ,METER>)>
+		      <RTRUE>)>
+	       <COND (<DOBJ? SLOW MEDIUM FAST>
+		      ;"never used if these are verbs"
+		      <PERFORM ,V?SET ,THROTTLE ,PRSO>
+		      <RTRUE>)>
+	       <COND (<EQUAL? ,PRSO ,P?EAST ,P?SE ,P?NE>
+		      <SETG SUB-DLON +1>)
+		     (<EQUAL? ,PRSO ,P?WEST ,P?SW ,P?NW>
+		      <SETG SUB-DLON -1>)
+		     (T <SETG SUB-DLON 0>)>
+	       <COND (<EQUAL? ,PRSO ,P?NORTH ,P?NW ,P?NE>
+		      <SETG SUB-DLAT +1>)
+		     (<EQUAL? ,PRSO ,P?SOUTH ,P?SW ,P?SE>
+		      <SETG SUB-DLAT -1>)
+		     (T <SETG SUB-DLAT 0>)>
+	       ;<COND (,SUB-IN-REVERSE?
+		      <SETG SUB-DLON <- ,SUB-DLON>>
+		      <SETG SUB-DLAT <- ,SUB-DLAT>>)>
+	       <COND (<FSET? ,AUTO-PILOT ,ONBIT>
+		      <TELL "Let the " D ,AUTO-PILOT " handle that." CR>)
+		     (,SUB-IN-TANK
+		      <TRY-TO-EMERGE ,P?EAST ,TANK-GATE ,TEST-TANK-FULL>)
+		     (,SUB-IN-DOME
+		      <TRY-TO-EMERGE ,P?SOUTH ,AIRLOCK-HATCH ,AIRLOCK-FULL>)
+		     (<AND <READY-FOR-SNARK?>
+			   ,TOLD-SNARK-WENT
+			   <FSET? ,SNARK ,INVISIBLE>
+			   <==? ,SUB-DEPTH ,AIRLOCK-DEPTH>
+			   <DOBJ? P?SE>
+			   <NOT <==? ,JOYSTICK-DIR ,PRSO>>>
+		      <TELL
+"Pulses racing and hearts thumping, you and Tip at last set out to
+capture the monstrous Snark!" CR>)
+		     (T
+		      <SUB-NOW-HEADING>)>
+	       <SETG JOYSTICK-DIR ,PRSO>
+	       <RTRUE>)
+	      (<AND <VERB? WALK-UNDER> <DOBJ? GLOBAL-WATER BAY SEA>>
+	       <COND (<0? ,SUB-DEPTH>
+		      <DO-WALK ,P?DOWN>
+		      <RTRUE>)
+		     (T <TELL "You're already " D ,UNDERWATER "." CR>)>)
+	      (<EXIT-VERB?>
+	       <COND (<CANT-GO-TO-THRU-CLOSED-HATCH?>
+		      <RTRUE>)>)
+	      (<AND <VERB? EXAMINE LOOK-INSIDE>
+		    <DOBJ? TEST-TANK DOCKING-TANK>>
+	       <TELL ,I-ASSUME " look through the " D ,SUB-WINDOW ".)" CR>
+	       <PERFORM ,V?LOOK-INSIDE ,SUB-WINDOW>
+	       <RTRUE>)
+	      (<AND <VERB? EXAMINE>
+		    <DOBJ? THORPE-SUB GLOBAL-THORPE GLOBAL-SHARON
+			   SNARK GLOBAL-SNARK>>
+	       <COND (<NOT <FSET? ,SNARK ,INVISIBLE>>	;,SUB-IN-BATTLE
+		      <TELL
+"The " D ,GLOBAL-WATER " is too cloudy to see anything." CR>)
+		     (T
+		      <TOO-BAD-BUT ,PRSO "too far away">
+		      ;<HE-SHE-IT ,PRSO T>
+		      ;<TELL "'s too far away.">)>)
+	      (<AND <VERB? DROP>
+		    <EQUAL? ,PRSO <GET ,ON-SUB 0> <GET ,ON-SUB 1>>>
+	       <COND (<EQUAL? ,PRSO <GET ,ON-SUB 0>> <PUT ,ON-SUB 0 <>>)
+		     (<EQUAL? ,PRSO <GET ,ON-SUB 1>> <PUT ,ON-SUB 1 <>>)>
+	       <COND (,SUB-IN-TANK <MOVE ,PRSO ,NORTH-TANK-AREA>)
+		     (,SUB-IN-DOME <MOVE ,PRSO ,AIRLOCK>)
+		     (T <REMOVE ,PRSO>)>
+	       <FCLEAR ,PRSO ,NDESCBIT>
+	       <FSET ,PRSO ,TAKEBIT>
+	       <FCLEAR ,PRSO ,TRYTAKEBIT>
+	       <TELL "Dropped." CR>)
+	      (<AND <VERB? TAKE-WITH> <IOBJ? CLAW>>
+	       <COND (<NOT <EQUAL? <LOC ,PRSO> ,AIRLOCK ,NORTH-TANK-AREA>>
+		      <TOO-BAD-BUT ,PRSO "not close enough to the claw">)
+		     (<NOT <FSET? ,PRSO ,TAKEBIT>> <YOU-CANT "take">)
+		     (<MOUNT-WEAPON ,PRSO> <TELL "Taken." CR> <RTRUE>)
+		     (T <RTRUE>)>)
+	      ;(T <RFALSE>)>)
+       (<EQUAL? .RARG ,M-ENTER>
+	<COND (<NOT <0? <POPULATION ,SUB ,TIP ,PLAYER>>>
+	       <TOO-CROWDED>
+	       <COND (,SUB-IN-DOME <GOTO ,AIRLOCK>)
+		     (,SUB-IN-TANK <GOTO ,NORTH-TANK-AREA>)>
+	       <RTRUE>)>
+	<ENABLE <QUEUE I-POISON-JAB 9>>
+	<COND (<SET X <GET ,ON-SUB 0>> <MOVE .X ,SUB>)>
+	<COND (<SET X <GET ,ON-SUB 1>> <MOVE .X ,SUB>)>
+	<COND (<AND <IN? ,ESCAPE-POD-UNIT ,SUB>
+		    <FSET? ,SYRINGE ,MUNGBIT>
+		    <NOT <FSET? ,SYRINGE ;,ESCAPE-POD-UNIT ,TOUCHBIT>>>
+	       <ENABLE <QUEUE I-CHECK-POD 1>>)>
+	<COND (<AND ,SUB-IN-DOME
+		    <READY-FOR-SNARK?>
+		    <NOT <SOMEONE-WORKING?>>>
+	       <FCLEAR ,SUB-DOOR ,OPENBIT>
+	       <MOVE ,TIP ,HERE>
+	       <TELL
+"As you and Tip take your places in your seats, ">
+	       <COND (<AND <FSET? ,AIRLOCK-ROOF ,OPENBIT>
+			   <NOT <AIRLOCK-POP?>>>
+		      <FCLEAR ,AIRLOCK-ROOF ,OPENBIT>
+		      <TELL
+"and close the hatch, the " D ,AIRLOCK-ROOF ;"watertight roof of the airlock"
+" is also sliding shut." CR>)
+		     (T <TELL "Tip closes the hatch." CR>)>)>
+	<SCORE-OBJ ,SUB>
+	<RTRUE>)
+       (<EQUAL? .RARG ,M-LOOK>
+	<TELL
+"You're in the pilot's seat of the " D ,SUB ", its operating "
+D ,CONTROLS-SUB " before you.">
+	<COND (<FSET? ,ENGINE-ACCESS-HATCH ,OPENBIT>
+	       <TELL " The " D ,ENGINE-ACCESS-HATCH " is open.">)>
+	<TELL "|
+A wraparound " D ,SUB-WINDOW ", both fore and aft, provides
+a view ahead and astern.">
+	<COND (<AND <0? ,SUB-DEPTH> <NOT ,SUB-IN-TANK>>
+	       <TELL " Sunlight pours in through the " D ,SUB-WINDOW ".">)>
+	<TELL
+" You can also observe your surroundings with a " D ,SONARSCOPE " and a
+" D ,HYDROPHONE " listening device. There's a " D ,SONARPHONE " for
+communication. You'll discover other features when you need them." CR>)>>
+	"| A reactor pokes through the deck.
+	radio. There's also a , video screen,
+	<DDESC ' The hatch leading out is ' ,SUB-DOOR '.'>"
+
+<ROUTINE TOO-CROWDED ()
+	<TELL
+"It's too crowded in here! You'll have to wait outside."
+;"Oops! Someone's working inside. You'd better wait for them to finish." CR>>
+
+<ROUTINE TRY-TO-EMERGE (DIR GATE FULL?)
+	<COND (<NOT .FULL?>
+	       <TELL "You can't turn the sub around while the ">
+	       <COND (<==? .DIR ,P?EAST> <TELL D ,TEST-TANK>)
+		     (T <TELL D ,AIRLOCK>)>
+	       <TELL " is empty." CR>)
+	      (<EQUAL? ,PRSO .DIR>
+	       <COND (<NOT <0? ,THROTTLE-SETTING>>
+		      <COND (<NOT <FSET? ,ENGINE ,ONBIT>>
+			     <TELL
+"Nothing happens when you push the " D ,JOYSTICK ". The engine is off.">
+			     <COND (,GATE-CRASHED
+				    <TELL
+" It was stopped by Automatic Shutoff when you crashed into the
+sea gate.">)>
+			     <CRLF>)
+			    (<HATCH-GATE-NOT-READY? .GATE> <RTRUE>)
+			    (<==? .DIR ,P?SOUTH> <SUB-LEAVES <> ,P?SOUTH>)
+			    (T <SUB-LEAVES T ,P?EAST>)>)
+		     (T
+		      <SUB-NOW-HEADING>)>)
+	      (T
+	       ;<OKAY ,JOYSTICK>
+	       <TELL "Okay, the " D ,JOYSTICK " is now pointing to ">
+	       <DIR-PRINT ,PRSO>
+	       <TELL ". But the only way the sub can leave the tank is to ">
+	       <DIR-PRINT .DIR>
+	       <TELL "." CR>)>>
+
+<ROUTINE HATCH-GATE-NOT-READY? (GATE)
+ <COND (<FSET? ,SUB-DOOR ,OPENBIT>
+	<THIS-IS-IT ,SUB-DOOR>
+	<TELL
+"You shouldn't leave the tank with the hatch open!" CR>)
+       (<NOT <FSET? .GATE ,OPENBIT>>
+	<GATE-CRASH "push" ,JOYSTICK .GATE>
+	<RTRUE>)>>
+
+<GLOBAL LEFT-DOME 0>
+
+<ROUTINE READY-FOR-SNARK? ()
+	<AND <OR <==? ,BAZOOKA <GET ,ON-SUB 0>>
+		 <==? ,DART <GET ,ON-SUB 1>>>
+	     ,FINE-SONAR>>
+
+<ROUTINE SUB-LEAVES (FROM-LAB? DIR)
+	<COND (.FROM-LAB?
+	       <SETG GATE-CRASHED <>>
+	       <SETG SUB-IN-TANK <>>
+	       <REMOVE ,SHARON>
+	       <ROB ,SHARON ,GLOBAL-SHARON>
+	       <SETG ALARM-RINGING <>>
+	       <PUT <GETPT ,VIDEOPHONE-2 ,P?SYNONYM> 0 ,W?ZZZZLG>
+	       <ENABLE <QUEUE I-UPDATE-SUB-POSITION -1>>
+	       <SETG MONSTER-GONE T>
+	       <SETG NOW-TERRAIN ,BAY-TERRAIN>)
+	      (T
+	       <SETG SUB-IN-DOME <>>
+	       <SETG NOW-TERRAIN ,SEA-TERRAIN>
+	       <SETG SUB-LON 0 ;6>
+	       <SETG SUB-LAT -1 ;5>
+	       <SETG SUB-DEPTH ,AIRLOCK-DEPTH>
+	       <SETG TARGET-DEPTH ,AIRLOCK-DEPTH>)>
+	<COND (<AND ,AUTOMATIC-SONAR <SPLIT-SCREEN?>>
+	       <SETG SCREEN-NOW-SPLIT T>
+	       <START-SONAR?>)>
+	<TELL
+"The " D ,SUB " glides smoothly out of the tank ">
+	<COND (.FROM-LAB? <TELL "onto the surface of " D ,BAY>)
+	      (T <TELL "into the ocean">)>
+	<TELL ". You're heading ">
+	<DIR-PRINT .DIR <>>
+	<TELL " at " N ,THROTTLE-SETTING " " D ,GRID-UNIT>
+	<COND (<NOT <==? 1 ,THROTTLE-SETTING>> <TELL "s">)>
+	<TELL " per turn." CR>
+	<COND (.FROM-LAB? <SCORE-OBJ ,BAY>)
+	      (T
+	       <COND (<FSET? ,TIP ,BUSYBIT>
+		      <I-TIP-REPORTS>)>
+	       <COND (<READY-FOR-SNARK?>
+		      <SCORE-OBJ ,AIRLOCK>
+		      <SETG LEFT-DOME ,MOVES>
+		      <ENABLE <QUEUE I-THORPE-APPEARS -1>>)
+		     (T
+		      <TIP-SAYS>
+		      <TELL
+"I've got a bad feeling about this. I don't think
+we should go out there without a ">
+		      <COND (,FINE-SONAR <TELL "weapon of some kind.\"" CR>)
+			    (T <TELL D ,FINE-GRID ".\"" CR>)>)>)>
+	<SAVE-HINT>
+	<RTRUE>>
+
+<ROUTINE HEADING-FOR-SEAWALL? ("AUX" Y-X)
+	<COND (<NOT <EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>> <RFALSE>)
+	      (<OBSTACLE-AHEAD? ,SUB-DEPTH ,SUB-LON ,SUB-LAT> <RFALSE>)
+	      (<DOBJ? P?NORTH>
+	       <COND (<AND <G? ,SUB-LON 29> <L? ,SUB-LON 35>> <RTRUE>)>)
+	      (<DOBJ? P?EAST>
+	       <COND (<AND <G? ,SUB-LAT 35> <L? ,SUB-LAT 41>> <RTRUE>)>)
+	      (<DOBJ? P?NE>
+	       <SET Y-X <- ,SUB-LAT ,SUB-LON>>
+	       <COND (<AND <G? .Y-X 0> <L? .Y-X 12>> <RTRUE>)>)>>
+
+<GLOBAL SUB-STILL-HEADING 0>
+<ROUTINE SUB-NOW-HEADING ()
+	;<OKAY ,SUB>
+	<TELL "Okay, the " D ,SUB " is ">
+	<COND (<==? ,JOYSTICK-DIR ,PRSO>
+	       <COND (<NOT ,SUB-IN-BATTLE> <INC SUB-STILL-HEADING>)>
+	       <TELL "still ">)
+	      (T <TELL "now ">)>
+	<COND (<0? ,THROTTLE-SETTING> <TELL "facing" ;"heading">)
+	      (T <TELL "moving">)>
+	<TELL " toward ">
+	<DIR-PRINT ,PRSO>
+	<COND (<HEADING-FOR-SEAWALL?>
+	       <TELL ", straight toward the opening in the " D ,SEA-WALL>)>
+	<COND (<0? ,THROTTLE-SETTING>
+	       <THIS-IS-IT ,THROTTLE>
+	       <TELL
+". But it won't go that way unless you open the " D ,THROTTLE>)>
+	<TELL "." CR>
+	<COND (<==? ,SUB-STILL-HEADING 9>
+	       <SETG SUB-STILL-HEADING 0>
+	       <TELL
+"(You didn't change the " D ,SUB "'s heading. Remember, you don't have to type
+a " D ,INTDIR " every turn if you want to WAIT or do something
+else.)" CR>)>>
+
+<OBJECT SUB-DOOR
+	(IN LOCAL-GLOBALS)
+	(DESC "entry hatch")
+	(ADJECTIVE ENTRY BIOCEPTOR SUB SUBMARINE SCIMITAR)
+	(SYNONYM DOOR HATCH TOP ENTRANCE)
+	(FLAGS DOORBIT OPENBIT)
+	(ACTION SUB-DOOR-F)>
+
+<ROUTINE SUB-DOOR-F ()
+ <COND (<VERB? CLOSE>
+	<COND (<AND ,SUB-IN-DOME <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
+	       <TELL "It's too soon for that!" CR>)
+	      (<SOMEONE-WORKING?>
+	       <TELL "There are too many people inside." CR>)
+	      (<NOT <EQUAL? ,HERE ,SUB>>
+	       <TELL "You should board the " D ,SUB " first." CR>)
+	      (<NOT <EQUAL? <LOC ,TIP> ,SUB ,CRAWL-SPACE>>
+	       <COND (<FSET? ,TIP ,BUSYBIT> <I-TIP-REPORTS>)
+		     (T
+		      <MOVE ,TIP ,SUB>
+		      <TELL
+"Tip rushes in just before you close it. \"Wait for me, "FN"!\"" CR>)>
+	       <RFALSE>)>)
+       (<VERB? OPEN>
+	<COND (<AND <G? ,SUB-DEPTH 0>
+		    <OR <NOT ,SUB-IN-DOME> ,AIRLOCK-FULL>>
+	       <YOU-CANT "open" ,SUB "under water">
+	       ;<TELL "You can't open the hatch under water!" CR>)
+	      (,SUB-IN-OPEN-SEA
+	       <TELL "This is no time for a swim!" CR>)
+	      (<NOT <EQUAL? ,HERE ,SUB ,NORTH-TANK-AREA ,AIRLOCK>>
+	       <TELL "You can't reach" THE-PRSO " from here." CR>)
+	      (<OR ,GREENUP-ESCAPE ,GREENUP-TRAPPED>
+	       <FSET ,SUB-DOOR ,OPENBIT>
+	       <TELL
+;"[more?]" "Before the crew can carry out your order, the hatch opens.
+Greenup rises into view from the pilot's seat and gives himself up. ">
+	       <GREENUP-CUFF>
+	       <RTRUE>)>)>>
+
+<OBJECT SUB-WINDOW
+	(IN SUB)
+	(DESC "viewport")
+	;(ADJECTIVE VIEW)
+	(SYNONYM ;PORT VIEWPORT DIVING ;"WINDOW - gone so FIND WINDOW works")
+	(FLAGS NDESCBIT WINDOWBIT LOCKED)
+	;(GENERIC GENERIC-WINDOW-F ;LOCKED-F)
+	(ACTION SUB-WINDOW-F)>
+
+<ROUTINE SUB-WINDOW-F ("AUX" ;(RM <WINDOW-ROOM ,HERE ,PRSO>) POP)
+	 <COND (<VERB? BRUSH>
+		<ALREADY ,SUB-WINDOW "clean enough">)
+	       (<VERB? LOOK-INSIDE LOOK-OUTSIDE>
+		<COND (T ;<EQUAL? ,HERE ,SUB>
+		       <COND (,SUB-IN-TANK
+			      <TELL"You can see the test tank outside."CR>)
+			     (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+			      <COND (<0? ,SUB-DEPTH>
+				     <TELL
+"Frobton is a busy seaport full of constantly moving pleasure boats,
+fishing craft and commercial shipping. The biggest ships move in the shipping
+lanes, but you can dive to 15 meters and go under them. Observe all
+\"Rules of the Road\", unless you want to submerge. When you're
+" D ,UNDERWATER ", you should avoid shallow areas called shoals."
+;"(You'll find that information in your SEASTALKER package.)" CR>)
+				    (T <PLENTY-WATER>)>)
+			     (,SUB-IN-OPEN-SEA
+			      <COND (<NOT <L? ,DISTANCE-FROM-BAY
+					      ,AQUADOME-VISIBLE>>
+				     <TELL
+"You can see the " D ,AQUADOME "." CR>)
+				    (<NOT <FSET? ,WHALE ,INVISIBLE>>
+				     <TELL
+"The whale is still following you." CR>)
+				    (<FSET? ,SEARCH-BEAM ,ONBIT>
+				     <TELL
+"Your sub's " D ,SEARCH-BEAM " lights up the " D ,GLOBAL-WATER " outside."CR>)
+				    (T <PLENTY-WATER>)>)
+			     (<AND <EQUAL? ,NOW-TERRAIN ,SEA-TERRAIN>
+				   <EQUAL? ,SUB-DEPTH ,AIRLOCK-DEPTH>
+				   <G? 4 <+ <* ,SUB-LON ,SUB-LON>
+					    <* ,SUB-LAT ,SUB-LAT>>>>
+			      <TELL "You can see the " D ,AQUADOME "." CR>)
+			     (,SUB-IN-DOME
+			      <ROOM-PEEK ,AIRLOCK>
+			      <RTRUE>)
+			     (<NOT <FSET? ,SNARK ,INVISIBLE>>
+			      <COND (,SUB-IN-BATTLE
+				     <TOO-CLOUDY>)
+				    (T <TELL
+"You can see the " D ,SNARK " and the " D ,THORPE-SUB " in the "
+D ,SEARCH-BEAM " beam." CR>)>)
+			     (T <PLENTY-WATER>)>)>
+		<RTRUE>)
+	       (<VERB? MUNG>
+		<TELL
+"Vandalism is for vandals, not famous inventors!" CR>)
+	       (<VERB? OPEN CLOSE LOCK UNLOCK>
+		;<COND (<FSET? ,PRSO ,MUNGBIT>
+		       <TELL "It's really broken. ">)>
+		<TELL "You can't." CR>)
+	       (<VERB? STOP>	;"STOP DIVING!"
+		<PERFORM ,V?LEVEL>
+		<RTRUE>)>>
+
+<ROUTINE TOO-CLOUDY ()
+	<TELL "The " D ,GLOBAL-WATER " is too cloudy to see much." CR>>
+
+<ROUTINE PLENTY-WATER ()
+	<TELL "You can see plenty of " D ,GLOBAL-WATER "." CR>>
+
+;<ROUTINE WINDOW-KNOCK (RM)
+	 <COND (<INHABITED? .RM>
+		<TELL "Someone looks up at you inquisitively." CR>)>>
+
+<OBJECT ENGINE-ACCESS-HATCH
+	(IN LOCAL-GLOBALS)
+	(DESC "access panel")
+	(ADJECTIVE ENGINE ACCESS STENCIL)
+	(SYNONYM PANEL ;DOOR ;HATCH SIGN)
+	(FLAGS DOORBIT VOWELBIT)
+	(ACTION ENGINE-ACCESS-HATCH-F)>
+
+<ROUTINE ENGINE-ACCESS-HATCH-F ()
+ <COND ;(<AND <VERB? LOOK-INSIDE> <IN? ,WINNER ,SUB>>	;"let verb handle it"
+	<TELL <GETP ,CRAWL-SPACE ,P?LDESC> CR>)
+       (<VERB? TAKE>
+	<COND (<NOT ,PRSI>
+	       <PERFORM ,V?OPEN ,PRSO>
+	       <RTRUE>)>)
+       (<VERB? TAKE-WITH>
+	<COND (<EQUAL? ,PRSI ,UNIVERSAL-TOOL>
+	       <PERFORM ,V?OPEN-WITH ,PRSO ,PRSI>
+	       <RTRUE>)>)
+       (<AND <VERB? OPEN OPEN-WITH>
+	     <DOBJ? ENGINE-ACCESS-HATCH>
+	     <IN? ,WINNER ,SUB>
+	     <NOT <IN? ,UNIVERSAL-TOOL ,WINNER>>>
+	<TELL "Suggest you read the stenciled sign." CR>)
+       (<AND <VERB? READ EXAMINE ANALYZE> <IN? ,WINNER ,SUB>>
+	<TELL "\"THIS REQUIRES SPECIAL ULTRA WRENCH FROM SUB TOOL KIT.\""CR>
+	<COND (<IN? ,UNIVERSAL-TOOL ,TIP>
+	       <THIS-IS-IT ,UNIVERSAL-TOOL>
+	       <TELL-HINT 61 ;7 ,TIP <>>)>
+	<RTRUE>)>>
+
+<ROOM CRAWL-SPACE
+	(IN ROOMS)
+	(DESC "crawl space")
+	(LDESC
+"The space is dimly illuminated by small work lights, but you can see
+machinery everywhere.")
+	(ADJECTIVE ENGINE ;COMPARE CRAWL ACCESS)
+	(SYNONYM	COMPARE ;CRAWL SPACE ROOM AREA)
+	(FLAGS RLANDBIT ONBIT)
+	(NORTH	"The only way out is \"OUT\".")	;"? SOUTH?"
+	(NE	"The only way out is \"OUT\".")
+	(EAST	"The only way out is \"OUT\".")
+	(SE	"The only way out is \"OUT\".")
+	(SOUTH	"The only way out is \"OUT\".")
+	(SW	"The only way out is \"OUT\".")
+	(WEST	"The only way out is \"OUT\".")
+	(NW	"The only way out is \"OUT\".")
+	(OUT	TO SUB IF ENGINE-ACCESS-HATCH IS OPEN)
+	(UP	TO SUB IF ENGINE-ACCESS-HATCH IS OPEN)
+	(ACTION CRAWL-SPACE-F)
+	(GLOBAL LOCAL-SUB ENGINE-ACCESS-HATCH ;CRAWL-SPACE-OBJ
+		LIGHTS TEST-BUTTON)
+	(PSEUDO "MACHIN" RANDOM-PSEUDO)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")>
+
+<OBJECT LIGHTS
+	(IN LOCAL-GLOBALS)
+	(DESC "lights")
+	(SYNONYM LIGHT LIGHTS)>
+
+<ROUTINE CRAWL-SPACE-F ("OPTIONAL" (RARG <>))
+ <COND (<==? .RARG ,M-BEG>
+	<COND (<EXIT-VERB?> <MOVE ,ENGINE ,SUB> <RFALSE>)>
+	<COND (<GAME-VERB?> <RFALSE>)>
+	<COND (<==? ,P-ADVERB ,W?CAREFULLY> <RFALSE>)>
+	<COND (<AND <PROB 20 ;10>
+		    <FSET? ,ENGINE ,ONBIT>
+		    <NOT ,SUB-IN-TANK>
+		    <NOT ,SUB-IN-DOME>>
+	       <TELL
+"|
+Suddenly the " D ,SUB " begins to shake violently! Your foot has
+knocked an engine bearing out of alignment! It will be necessary to
+surface at once and await rescue! Your mission must be aborted.">
+	       <FINISH>)
+	      (<AND <PROB 20 ;10>
+		    <FSET? ,GASH ,INVISIBLE> ;<NOT >>
+	       <FSET ,ARM ,MUNGBIT>
+	       <FCLEAR ,GASH ,INVISIBLE>
+	       <TELL
+"There's a sharp pain in your right arm! A flood of wet warmth and a
+spreading red stain mean you've seriously gashed your arm
+on a sharp metal corner!" CR>
+	       <RFALSE>)>)
+       (<EQUAL? .RARG ,M-ENTER>
+	<COND (<NOT <0? <POPULATION ,CRAWL-SPACE ,PLAYER>>>
+	       ;<FIND-FLAG ,CRAWL-SPACE ,PERSON ,WINNER>
+	       <TOO-CROWDED>
+	       <GOTO ,SUB>
+	       ;<RTRUE>)
+	      (T <MOVE ,ENGINE ,CRAWL-SPACE> <RFALSE>)>)
+       ;(<EQUAL? .RARG ,M-LOOK>
+	<TELL <GETP ,CRAWL-SPACE ,P?LDESC> CR>)
+       (.RARG <RFALSE>)
+       (<VERB? FIND>
+	<COND (<EQUAL? ,HERE ,CRAWL-SPACE> <TELL "You're in it!" CR>)
+	      (T <TELL
+"It's located beyond an " D ,ENGINE-ACCESS-HATCH " in the bulkhead just
+below and to the right of control panel." CR>)>)
+       (<VERB? OPEN LOOK-INSIDE>
+	<COND (<DOBJ? CRAWL-SPACE>
+	       <PERFORM ,PRSA ,ENGINE-ACCESS-HATCH ,PRSI>
+	       <RTRUE>)>)
+       (<VERB? ;ENTER THROUGH WALK-TO>
+	<COND (<FSET? ,ENGINE-ACCESS-HATCH ,OPENBIT>
+	       <COND (<GOTO ,CRAWL-SPACE>
+		      <TELL
+"BE CAREFUL: Too much wriggling may pose SERIOUS DANGERS!">
+		      <COND (<FSET? ,ENGINE ,ONBIT>
+			     <TELL
+" And wouldn't it be safer to stop the engine first?">)>
+		      <CRLF>)>
+	       <RTRUE>)
+	      (T
+	       <TOO-BAD-BUT ,ENGINE-ACCESS-HATCH "closed">
+	       <THIS-IS-IT ,ENGINE-ACCESS-HATCH>
+	       <RFATAL>)>)>>
+
+<OBJECT VOLTAGE-REGULATOR
+	(IN CRAWL-SPACE)
+	(DESC "voltage regulator")
+	(ADJECTIVE VOLTAGE)
+	(SYNONYM REGULATOR)
+	(FLAGS NDESCBIT MUNGBIT)
+	(ACTION VOLTAGE-REGULATOR-F)
+	;(VALUE 4)>
+
+<ROUTINE VOLTAGE-REGULATOR-F ()
+ <COND (<VERB? WALK-TO>
+	<COND (<NOT <EQUAL? ,HERE ,CRAWL-SPACE>>
+	       <PERFORM ,PRSA ,CRAWL-SPACE>
+	       <RTRUE>)>)
+       (<VERB? FIND>
+	<COND (<EQUAL? ,HERE ,CRAWL-SPACE>
+	       <FCLEAR ,VOLTAGE-REGULATOR ,NDESCBIT>
+	       <TELL
+"You find it in the middle of some complicated machinery." CR>)>)
+       (<VERB? ANALYZE EXAMINE>
+	<COND (<FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>
+	       <TELL "It's hard to tell anything by looking at it." CR>)>)
+       (<VERB? ADJUST FIX>
+	<COND (<FSET? ,ARM ,MUNGBIT>
+	       <TELL "You can't do that since you gashed your arm!" CR>)
+	      (<NOT <FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>>
+	       <ALREADY ,VOLTAGE-REGULATOR "fixed">)
+	      (T
+	       <SETG TEST-BUTTON-READOUT ,TEST-BUTTON-NORMAL>
+	       <TELL "Fixed." CR>
+	       <COOL-BACK>
+	       <FCLEAR ,VOLTAGE-REGULATOR ,MUNGBIT>
+	       ;<FSET ,ENGINE-ACCESS-HATCH ,NDESCBIT>
+	       ;<SCORE-OBJ ,VOLTAGE-REGULATOR>
+	       <RTRUE>)>)>>
+
+<ROUTINE COOL-BACK ("AUX" X)
+ <COND (<AND <L? 20 ,CIRCUIT-TEMP>
+	     <FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>>
+	<SET X <- ,CIRCUIT-TEMP 15>>
+	<TELL "It will take about " N .X " turn">
+	<COND (<NOT <1? .X>> <TELL "s">)>
+	<TELL
+" for the " D ,CONTROL-CIRCUITS " to cool to a normal operating temperature."
+CR>)>>
+
+"<CONSTANT LAB-LON 1>
+<CONSTANT LAB-LAT 9>"
+<CONSTANT SEA-WALL-LON 32>
+<CONSTANT SEA-WALL-LAT 38>
+<CONSTANT SPIRE-LON 29>
+<CONSTANT SPIRE-LAT 26>
+<GLOBAL SUB-LON 2>
+<GLOBAL SUB-LAT 9>
+<GLOBAL SUB-DLON 0>
+<GLOBAL SUB-DLAT 0>
+
+<GLOBAL TBL5-MASK <PTABLE *77777* *7777* *777* *77* *7*>>
+<GLOBAL TBL5-SHIFT <PTABLE *10000* *1000* *100* *10* 1>>
+
+<ROUTINE GET5 (TBL5 NUM "AUX" (NUM1 <- .NUM 1>))
+	</ <ANDB <GET ,TBL5-MASK <MOD .NUM1 5>>
+		 <GET .TBL5 <+ 1 </ .NUM1 5>>>>
+	   <GET ,TBL5-SHIFT <MOD .NUM1 5>>>>
+
+<DEFINE LT5 ("ARGS" A)
+	<MAPF ,PLTABLE
+	      <FUNCTION ("AUX" VAL)
+		<COND (<EMPTY? .A> <MAPSTOP>)>
+		<SET VAL <LSH <1 .A> 12>>
+		<COND (<EMPTY? <SET A <REST .A>>>
+		       <MAPSTOP <CHTYPE .VAL FIX>>)>
+		<SET VAL <ORB .VAL <LSH <1 .A> 9>>>
+		<COND (<EMPTY? <SET A <REST .A>>>
+		       <MAPSTOP <CHTYPE .VAL FIX>>)>
+		<SET VAL <ORB .VAL <LSH <1 .A> 6>>>
+		<COND (<EMPTY? <SET A <REST .A>>>
+		       <MAPSTOP <CHTYPE .VAL FIX>>)>
+		<SET VAL <ORB .VAL <LSH <1 .A> 3>>>
+		<COND (<EMPTY? <SET A <REST .A>>>
+		       <MAPSTOP <CHTYPE .VAL FIX>>)>
+		<SET VAL <ORB .VAL <1 .A>>>
+		<SET A <REST .A>>
+		<CHTYPE .VAL FIX>>>>
+
+<GLOBAL BAY-TERRAIN <PLTABLE
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 0 0 0 0 0 0 0 1 1 1 1 2 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 0 0 0 0 0 1 1 1 1 2 2 2 2 2 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 0 0 0 1 1 1 1 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 0 0 1 1 1 2 2 2 3 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 0 1 1 1 2 2 3 3 3 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0>
+%<LT5
+0 0 1 1 1 2 2 3 3 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0>
+%<LT5
+0 2 2 2 2 2 3 3 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0>
+%<LT5
+0 1 2 2 2 2 3 4 4 4 4 4 4 4 3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0>
+%<LT5
+0 1 2 2 2 3 3 4 4 4 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0>
+%<LT5
+0 1 1 2 2 3 1 1 1 1 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0>
+%<LT5
+0 1 1 2 2 1 1 1 1 1 1 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0>
+%<LT5
+0 1 1 2 2 3 1 1 1 1 1 1 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0>
+%<LT5
+0 1 2 2 2 3 4 4 4 4 1 1 1 1 1 4 4 4 4 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0>
+%<LT5
+0 1 2 2 3 4 4 4 4 4 4 1 1 1 1 1 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0>
+%<LT5
+0 2 2 2 3 4 4 4 4 4 4 4 4 4 1 1 1 4 4 4 4 4 3 2 2 2 1 1 1 1 1 1 1 1 1 1 1 0 0>
+%<LT5
+0 2 2 3 4 4 4 4 4 4 4 4 4 4 4 1 1 1 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 1 1 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 4 3 3 3 2 2 1 1 1 1 1 1 1 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 1 1 1 1 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 2 2 1 1 1 1 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 3 2 2 2 1 1 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 3 3 3 3 2 2 1 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 2 1 1 0 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 4 4 3 3 2 1 1 1 0>
+%<LT5
+0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 0 4 4 4 4 3 2 1 1 1 0>
+%<LT5
+0 0 3 3 3 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 4 3 2 2 1 1 0>
+%<LT5
+0 0 2 2 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 2 2 1 0 0>
+%<LT5
+0 0 1 2 2 3 3 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 2 1 0 0>
+%<LT5
+0 0 0 1 2 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 3 2 2 1 0>
+%<LT5
+0 0 0 1 2 2 3 3 4 4 4 4 4 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 4 3 0 0>
+%<LT5
+0 0 0 1 1 2 2 3 3 4 4 4 4 1 1 1 1 4 4 4 5 5 5 5 5 5 5 5 5 5 5 4 4 4 4 4 0 0 6>
+%<LT5
+0 0 0 0 1 2 2 3 3 3 4 4 4 4 1 1 1 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 4 4 4 0 0 6 6>
+%<LT5
+0 0 0 0 1 1 2 2 3 3 3 4 4 4 4 1 1 1 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 4 0 0 6 6 6>
+%<LT5
+0 0 0 0 0 1 1 2 2 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 0 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 1 1 2 2 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 1 1 1 2 2 2 2 3 3 3 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 2 3 3 3 3 4 4 4 4 4 4 4 5 5 5 5 5 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 4 5 5 5 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 2 2 2 2 3 3 4 4 4 4 5 6 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 3 4 4 0 0 6 6 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 3 0 0 6 6 6 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 6 6 6 6 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6 6>
+%<LT5
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 6 6 6 6 6 6 6 6 6 6 6 6 6>>>
+
+"<REMOVE!- LT5>"
+
+<GLOBAL NOW-TERRAIN 0>
+<GLOBAL SPEEDBOAT-WARNING-GIVEN? <>>
+<GLOBAL WARNINGS-THIS-TURN <LTABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>>
+<GLOBAL WARNINGS-USED 0>
+<GLOBAL WARNINGS-RTRUE <>>
+
+<ROUTINE ADD-WARNING (MSG "OPTIONAL" (RTRUE? <>) "AUX" TBL LEN N M)
+	<COND (.RTRUE? <SETG WARNINGS-RTRUE T>)>
+	<SET TBL ,WARNINGS-THIS-TURN>
+	<COND (<==? <GET .TBL 0> ,WARNINGS-USED> <RTRUE>)>
+	<SET LEN <GET .TBL 0>>
+	<SET N 0>
+	<REPEAT ()
+		<COND (<IGRTR? N .LEN> <RETURN>)>
+		<SET M <GET .TBL .N>>
+		<COND (<=? .MSG .M> <RETURN>)
+		      (<AND <EQUAL? .MSG 5>	<EQUAL? .M 3 9>> <RETURN>)
+		      (<AND <EQUAL? .MSG 6>	<EQUAL? .M 4 11>><RETURN>)
+		      (<AND <EQUAL? .MSG 8>	<EQUAL? .M 7>>   <RETURN>)
+		      (<0? <GET .TBL .N>>
+		       <PUT .TBL .N .MSG>
+		       <SETG WARNINGS-USED .N>
+		       <RETURN>)>>>
+
+"<GLOBAL TOLD-ABOUT-SHIP <>>"
+
+<ROUTINE GIVE-WARNINGS ("AUX" TBL LEN N MSG (SONAR? <>))
+	<SET TBL ,WARNINGS-THIS-TURN>
+	<SET LEN ,WARNINGS-USED>
+	<SET N 0>
+	<REPEAT ()
+		<COND (<IGRTR? N .LEN> <RETURN>)
+		      (<0? <SET MSG <GET .TBL .N>>> <RETURN>)>
+		<SETG WARNINGS-USED 0>
+		<PUT .TBL .N 0>
+		<COND (,SUB-IN-OPEN-SEA <AGAIN>)>
+		<COND (<EQUAL? .MSG 1>
+		       <TELL
+"|
+A speedboat came out of nowhere and almost hit you!
+It's dangerous on the surface of the bay.">)
+		      (<EQUAL? .MSG 2>
+		       <SET SONAR? T>
+		       <TELL
+"|
+If you don't change course or stop, you'll crash!">)
+		      (<EQUAL? .MSG 3 4>
+		       <THIS-IS-IT ,DEPTHFINDER-LIGHT>
+		       <TELL
+"Suddenly a loud " D ,ALARM-SUB " begins to ring! The " D ,DEPTHFINDER-LIGHT
+" has begun to glow "
+		       <COND (<EQUAL? .MSG 3> "orange") (T "red")> ".">)
+		      (<EQUAL? .MSG 5 6>
+		       <THIS-IS-IT ,ALARM-SUB>
+		       <TELL
+"The " D ,DEPTHFINDER-LIGHT " is still glowing "
+		       <COND (<EQUAL? .MSG 5> "orange") (T "red")>
+", and the " D ,ALARM-SUB " is still ringing.">)
+		      (<EQUAL? .MSG 7 8>
+		       <SET SONAR? T>
+		       <TELL "The " D ,SONARSCOPE>
+		       <COND (<EQUAL? .MSG 8>
+			      <THIS-IS-IT ,SONARSCOPE>
+			      <TELL " still">)>
+		       <TELL " shows an obstacle ahead!">
+		       <COND (<EQUAL? .MSG 7>
+			      <THIS-IS-IT ,SUB>
+			      <TELL
+" Unless you change course, you will crash the " D ,SUB "!">)>)
+		      (<EQUAL? .MSG 9 10 11>
+		       <THIS-IS-IT ,ALARM-SUB>
+		       <TELL "The " D ,DEPTHFINDER-LIGHT " "
+			     <COND (<EQUAL? .MSG 9>	"changes to orange")
+				   (<EQUAL? .MSG 10>	"fades to dark again")
+				   (T			"turns red")>
+			     ", and the " D ,ALARM-SUB " "
+			     <COND (<EQUAL? .MSG 9>	"continues to sound.")
+				   (<EQUAL? .MSG 10>	"ceases.")
+				   (T	"rises to a shriller whine.")>>)
+		      (<EQUAL? .MSG 12 13>
+		       <SET SONAR? T>
+		       ;<SETG TOLD-ABOUT-SHIP T>
+		       <THIS-IS-IT ,FREIGHTER>
+		       <TELL"The "D ,SONARSCOPE-LIGHT" is flashing yellow! A">
+		       <COND (<EQUAL? .MSG 13> <TELL "nother">)>
+		       <TELL " ship is approaching!">)
+		      (<EQUAL? .MSG 14>
+		       <SET SONAR? T>
+		       <TELL
+"|
+The yellow " D ,SONARSCOPE-LIGHT " just turned red! A loud " D ,ALARM-SUB " is
+sending chills up and down your spine! The keel of the approaching ship
+is visible in your " D ,SUB-WINDOW>
+		       <COND (<FSET? ,HYDROPHONE ,ONBIT>
+			      <TELL
+", and the noise of its screws booms over the " D ,HYDROPHONE>)>
+		       <TELL "!">)>
+		<CRLF>>
+	<COND (<AND .SONAR?
+		    <NOT ,AUTOMATIC-SONAR>
+		    <0? ,LOOKED-AT-SONAR>>
+	       <THIS-IS-IT ,SONARSCOPE>
+	       <TIP-SAYS>
+	       <TELL
+"Hey, "FN", maybe you should look at the " D ,SONARSCOPE
+".\"" CR>)>
+	<COND (,WARNINGS-RTRUE <SETG WARNINGS-RTRUE <>> <RTRUE>)>>
+
+<ROUTINE SAVE-HINT ()
+	<TELL "(This might be a good time to use the command: SAVE.)" CR>>
+
+<GLOBAL REGULATOR-MSG-SEEN <>>
+
+<ROUTINE FALL-FROM-CLAW (NUM "AUX" X)
+	<COND (<SET X <GET ,ON-SUB .NUM>>
+	       <TELL
+"You can see" THE .X " fall out of the " D ,CLAW " and sink." CR>
+	       <REMOVE .X>)>>
+
+<ROUTINE I-UPDATE-SUB-POSITION ("AUX" ;DLON ;DLAT LON LAT DEP TH (VAL <>))
+	<COND (,SUB-IN-TANK <RFALSE>)>
+	<COND (<L? 0 ,CIRCUIT-TEMP>
+	       <SETG CIRCUIT-TEMP <- ,CIRCUIT-TEMP 1>>)>
+	<COND (<FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>
+	       <SETG CIRCUIT-TEMP <+ ,CIRCUIT-TEMP ,THROTTLE-SETTING>>)>
+	<COND (<AND <L? 20 ,CIRCUIT-TEMP> <NOT ,CIRCUIT-TIP>>
+	       <SETG CIRCUIT-TIP T>
+	       <MOVE ,OVERHEATING ,GLOBAL-OBJECTS>
+	       <TELL CR "Suddenly ">
+	       <TIP-SAYS>
+	       <TELL
+FN "! Look at the way that
+" D ,CONTROL-CIRCUITS " " D ,CONTROL-CIRCUITS-GAUGE " is rising!\"" CR>
+	       <SET VAL T>)
+	      (<AND <NOT <L? 20 ,CIRCUIT-TEMP>> ,CIRCUIT-TIP>
+	       <SETG CIRCUIT-TIP <>>)
+	      (<AND <NOT <L? 25 ,CIRCUIT-TEMP>> ,CIRCUIT-RED>
+	       <SETG CIRCUIT-RED <>>
+	       <COND (<EQUAL? ,HERE ,SUB>
+		      <TELL CR
+"The " D ,CONTROL-CIRCUITS-GAUGE " drops below the red danger zone." CR>)>)
+	      (<AND <L? 25 ,CIRCUIT-TEMP> <NOT ,CIRCUIT-RED>>
+	       <SETG CIRCUIT-RED T>
+	       <TELL CR
+"The " D ,CONTROL-CIRCUITS-GAUGE " has entered the red danger zone!|
+The circuit tester is activated. Push " D ,TEST-BUTTON " for readout." CR>
+	       <SETG TEST-BUTTON-READOUT ,REGULATOR-MSG>
+	       <SET VAL T>)
+	      (<L? 30 ,CIRCUIT-TEMP>
+	       <TELL CR
+"The " D ,CONTROL-CIRCUITS-GAUGE " has gone off the scale!|
+The engine grinds to a halt. Your mission is finished.">
+	       <FINISH>)>
+	<COND (,SUB-IN-DOME <RETURN .VAL>)
+	      (<FSET? ,AUTO-PILOT ,ONBIT>
+	       <SET TH ,THROTTLE-SETTING>
+	       <REPEAT ()
+		<COND (<DLESS? TH 0> <RETURN>)>
+		<SETG DISTANCE-FROM-BAY <+ ,DISTANCE-FROM-BAY 1>>
+		<SET DEP </ ,DISTANCE-FROM-BAY 2>>
+		<COND (T ;<L? ,SUB-DEPTH .DEP>
+		       <SETG TARGET-DEPTH .DEP>
+		       <SETG SUB-DEPTH .DEP>)>
+		<COND (<==? ,DISTANCE-FROM-BAY 20>
+		       <FALL-FROM-CLAW 0>
+		       <FALL-FROM-CLAW 1>)
+		      (<==? ,DISTANCE-FROM-BAY 30>
+		       <TELL CR
+"The ocean has been getting darker as you dive toward the
+" D ,AQUADOME ", turning from blue-green to dark green to a dull
+gray-green. It's becoming duskier and murkier with every minute." CR>)
+		      (<==? ,DISTANCE-FROM-BAY 39>
+		       <COND (<NOT <FSET? ,SEARCH-BEAM ,ONBIT>>
+			      <FSET ,SEARCH-BEAM ,ONBIT>
+			      <TELL CR
+"A yellow cone of light now illumines the water ahead. The " D ,SUB "'s "
+D ,SEARCH-BEAM " was " D ,AUTOMATIC"ally switched on by an electronic eye, now
+that you're too deep for the sun to light the water." CR>)>
+		       <TELL CR
+"Colorful sea life swims through the " D ,SEARCH-BEAM " beam: a
+playful dolphin, a school of herring... Oh, oh! Here comes a hammerhead
+shark. And now a huge manta ray is gracefully gliding and flapping
+toward you." CR>)
+		      (<==? ,DISTANCE-FROM-BAY 45>
+		       <MOVE ,WHALE ,SUB>
+		       <COND (<FSET? ,HYDROPHONE ,ONBIT>
+			      <SETG WHALE-HEARD T>
+			      <TELL "|
+A crooning noise comes over the " D ,HYDROPHONE " loudspeaker, punctuated by
+sighs and moans and a few weird whistles." CR>)>
+		       <COND (<AND <==? ,HERE ,SUB> <IN? ,TIP ,HERE>>
+			      <TELL "|
+\"There's a blip on the " D ,SONARSCOPE " at three o'clock!\" yells
+Tip. \"Aim the " D ,SEARCH-BEAM " to starboard, " FN "!\"" CR>
+			      <RTRUE>)>)
+		      (<AND <==? ,DISTANCE-FROM-BAY 50>
+			    <FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>>
+		       <COND (<NOT ,CIRCUIT-TIP>    ;"to ensure overheating"
+			      <SETG CIRCUIT-TEMP 28>)>)
+		      (<==? ,DISTANCE-FROM-BAY ,AQUADOME-VISIBLE>
+		       <REMOVE ,WHALE>
+		       <FSET ,WHALE ,INVISIBLE>
+		       <SETG BLY-CALLING T>
+		       <THIS-IS-IT ,SONARPHONE>
+		       <FCLEAR ,SEARCH-BEAM ,ONBIT>
+		       <TELL "The amazing " D ,AQUADOME " looms ahead">
+		       <COND (<FSET? ,SEARCH-BEAM ,ONBIT>
+			      <FCLEAR ,SEARCH-BEAM ,ONBIT>
+			      <TELL
+". Your " D ,SEARCH-BEAM " switches off since the " D ,AQUADOME "'s own">)
+			     (T <TELL ". Its">)>
+		       <TELL
+" bright lights suffuse the " D ,GLOBAL-WATER
+" around it with a glowing radiance.|
+The " D ,SONARPHONE " is ringing." CR>
+		       <RTRUE>)
+		      (<NOT <L? ,DISTANCE-FROM-BAY ,AQUADOME-DISTANCE>>
+		       <SETG SUB-IN-OPEN-SEA <>>
+		       <FCLEAR ,AUTO-PILOT ,ONBIT>
+		       <MOVE ,HORVAK-KEY ,HORVAK>	;"from GLOBAL-OBJECTS"
+		       <SETG NOW-TERRAIN ,SEA-TERRAIN>
+		       <SETG SUB-LON 0 ;6>
+		       <SETG SUB-LAT -1 ;5>
+		       <SETG SUB-DEPTH ,AIRLOCK-DEPTH>
+		       <SETG TARGET-DEPTH ,AIRLOCK-DEPTH>
+		       <SETG DIVING? 0>
+		       <SETG THROTTLE-SETTING 0>
+		       ;<COND (,DEBUG
+			      <TELL "[Throttle=" N ,THROTTLE-SETTING "]" CR>)>
+		       <SETG JOYSTICK-DIR ,P?NORTH>
+		       ;<SETG SUB-IN-REVERSE? T>
+		       <SETG SUB-DLON 0>
+		       <SETG SUB-DLAT 1>
+		       <SETG DEPTH-WARNING <>>
+		       <FCLEAR ,DEPTHFINDER ,ONBIT>
+		       <FSET ,AIRLOCK-HATCH ,OPENBIT>
+		       <TELL CR
+"The " D ,SUB " slows to a gentle stop, with engine idling and the "
+D ,JOYSTICK " pointing north. The " D ,AUTO-PILOT " has brought you to the "
+D ,AIRLOCK " on the south side of the " D ,AQUADOME ".
+It also turned off the " D ,DEPTHFINDER " for you.|
+At " D ,BLY "'s order, the " D ,AIRLOCK-HATCH " slides open, but you could
+have done it by remote control, just as you ">
+		       <COND (,OPENED-GATE-FROM-SUB <TELL "did ">)
+			     (T <TELL "could have ">)>
+		       <TELL
+"the " D ,TANK-GATE ".|
+The " D ,AIRLOCK " is filling up with tons of " D ,GLOBAL-WATER ".|
+The " D ,AIRLOCK " lies north. You can enter it by opening the " D ,THROTTLE".
+The bottom of the " D ,AIRLOCK " has an adjustable plastic cradle,
+which adjusts to the keel of any submarine." CR>
+		       <RFATAL>)>>
+	       <RETURN .VAL>)>
+	<SET LON ,SUB-LON>
+	<SET LAT ,SUB-LAT>
+	<SET DEP ,SUB-DEPTH>
+	<SET TH ,THROTTLE-SETTING>
+	<REPEAT ()
+		<SET DEP <CHANGE-DEPTH .DEP>>
+		<COND (<NOT <0? .TH>>
+		       <SET LON <+ .LON ,SUB-DLON>>
+		       <SET LAT <+ .LAT ,SUB-DLAT>>)>
+		;<COND (,DEBUG
+		       <TELL "[Lon=" N .LON ", Lat=" N .LAT
+			    ", Dep=" N .DEP "]" CR>)>
+		<COND (<COLLISION? .DEP .LON .LAT>
+		       <RETURN>)
+		      (<EQUAL? ,NOW-TERRAIN ,SEA-TERRAIN> T)
+		      (<AND <0? .DEP>
+			    <PROB 20>
+			    <==? ,NOW-TERRAIN ,BAY-TERRAIN>>
+		       <COND (<AND ,SPEEDBOAT-WARNING-GIVEN?
+				 <NOT <==? ,MOVES ,SPEEDBOAT-WARNING-GIVEN?>>>
+			      <GIVE-WARNINGS>
+			      <TELL CR
+"A speedboat came out of nowhere, hit your rudder, and ended your mission.
+Too bad you were ">
+			      <COND (<NOT ,EVER-SUBMERGED?> <TELL "still ">)>
+			      <TELL "on the surface.">
+			      <FINISH>)
+			     (T
+			      <SETG SPEEDBOAT-WARNING-GIVEN? ,MOVES>
+			      <ADD-WARNING 1 T>)>)
+		      (<TIME-FOR-FREIGHTER? .DEP .LON .LAT>
+		       <COND (<==? ,JOYSTICK-DIR ,P?NORTH>
+			      <SETG FREIGHTER-LON .LON>
+			      <SETG FREIGHTER-DLON 0>
+			      <SETG FREIGHTER-LAT <+ .LAT ,SONAR-RANGE>>
+			      <SETG FREIGHTER-DLAT -1>)
+			     (<==? ,JOYSTICK-DIR ,P?EAST>
+			      <SETG FREIGHTER-LON <+ .LON ,SONAR-RANGE>>
+			      <SETG FREIGHTER-DLON -1>
+			      <SETG FREIGHTER-LAT .LAT>
+			      <SETG FREIGHTER-DLAT 0>)
+			     (T
+			      <SETG FREIGHTER-LON <+ .LON ,SONAR-RANGE>>
+			      <SETG FREIGHTER-DLON -1>
+			      <SETG FREIGHTER-LAT <+ .LAT ,SONAR-RANGE>>
+			      <SETG FREIGHTER-DLAT -1>)>
+		       <COND (<L? 1 <GET5 <GET ,NOW-TERRAIN ,FREIGHTER-LAT>
+					  ,FREIGHTER-LON>>
+			      <FREIGHTER-WARNING>)>)
+		      (<AND <EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+			    <OR <AND <EQUAL? .LON  7> <EQUAL? .LAT 15>>
+				<AND <EQUAL? .LON 13> <EQUAL? .LAT 17>>
+				<AND <EQUAL? .LON 16> <EQUAL? .LAT 31>>>>
+		       <TELL
+"A submerged wreck on the floor of the bay to starboard will be cleared
+safely." CR>)>
+		<CHECK-FOR-OBSTACLE .DEP .LON .LAT>
+		<COND (<DLESS? TH 1> <RETURN>)>>
+	<SETG SUB-LON .LON>
+	<SETG SUB-LAT .LAT>
+	<SETG SUB-DEPTH .DEP>
+	<OR <GIVE-WARNINGS> .VAL>>
+
+<ROUTINE TIME-FOR-FREIGHTER? (DEP LON LAT)
+ <COND (<NOT <==? ,NOW-TERRAIN ,BAY-TERRAIN>>
+	<RFALSE>)
+       (<NOT <FSET? ,FREIGHTER ,INVISIBLE>>
+	<RFALSE>)
+       (<NOT <L? .DEP 3>>
+	<RFALSE>)
+       (<NOT <==? 5 <GET5 <GET ,NOW-TERRAIN .LAT> .LON>>>
+	<RFALSE>)
+       (<OBSTACLE-AHEAD? ,SUB-DEPTH ,SUB-LON ,SUB-LAT>
+	<RFALSE>)	;"Avoid ships appearing on far side of shoal."
+       (<EQUAL? ,JOYSTICK-DIR ,P?NE ,P?EAST>
+	<RTRUE>)
+       (<NOT <EQUAL? ,JOYSTICK-DIR ,P?NORTH>>
+	<RFALSE>)
+       (<NOT <==? ,SUB-LON ,SPIRE-LON>>
+	<RTRUE>)>>
+
+<GLOBAL OLD-OBSTACLE? <>>
+
+<ROUTINE CHECK-FOR-OBSTACLE (DEP LON LAT "AUX" X)
+ <COND (<SET X <OBSTACLE-AHEAD? .DEP .LON .LAT>>
+	<COND (,OLD-OBSTACLE?
+	       <COND (<NOT <G? .X ,THROTTLE-SETTING>>
+		      <SETG SONAR-WARNING ,SONAR-RED>
+		      <ADD-WARNING 2 T>)
+		     (<NOT <VERB? WAIT-FOR WAIT-UNTIL>>
+		      <ADD-WARNING 8>)>)
+	      (T
+	       <SETG OLD-OBSTACLE? T>
+	       <COND (<NOT <G? .X ,THROTTLE-SETTING>>
+		      <SETG SONAR-WARNING ,SONAR-RED>)
+		     (T <SETG SONAR-WARNING ,SONAR-YELLOW>)>
+	       <ADD-WARNING 7 T>)>)
+       (T
+	<SETG OLD-OBSTACLE? <>> 
+	<COND (,SONAR-WARNING
+	       <SETG SONAR-WARNING <>>
+	       <COND (<NOT ,SHIP-WARNING>
+		      <TELL
+"The " D ,SONARSCOPE-LIGHT " goes out." CR>)>)>)>>
+
+<ROUTINE OBSTACLE-AHEAD? (DEP LON LAT "AUX" XLON XLAT RANGE X)
+	<COND (<NOT <EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN ,SEA-TERRAIN>>
+	       <RFALSE>)>
+	<SET XLON <+ .LON ,SUB-DLON>>
+	<SET XLAT <+ .LAT ,SUB-DLAT>>
+	<SET RANGE 1>
+	<REPEAT ()
+		<COND (<AND <EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+			    <SET X <TOO-DEEP? .DEP .XLON .XLAT>>
+			    <NOT <EQUAL? .X ,OPEN-SEA-CODE>>>
+		       <RETURN>)>
+		<COND (<AND <EQUAL? ,NOW-TERRAIN ,SEA-TERRAIN>
+			    <DOME-ON-SONAR? .DEP .XLON .XLAT>>
+		       <COND (<NOT <HEADING-INTO-DOME?
+				    ,SUB-DEPTH ,SUB-LON ,SUB-LAT>>
+			      <RETURN>)>)>
+		<COND (<IGRTR? RANGE ,SONAR-RANGE>
+		       <RFALSE>)>
+		<SET XLON <+ .XLON ,SUB-DLON>>
+		<SET XLAT <+ .XLAT ,SUB-DLAT>>>
+	.RANGE>
+
+<ROUTINE HEADING-INTO-DOME? (DEP LON LAT)
+	<AND <==? .DEP ,AIRLOCK-DEPTH>
+	     <0? .LON>
+	     <L? .LAT 1>
+	     <0? ,SUB-DLON>
+	     <L? 0 ,SUB-DLAT>
+	     <FSET? ,AIRLOCK-HATCH ,OPENBIT>>>
+
+<ROUTINE CHANGE-DEPTH (DEP)
+ <COND (<L? .DEP ,TARGET-DEPTH>
+	<DIVE-DESC .DEP T>
+	<SET DEP <+ .DEP 1>>
+	;<COND (,DEBUG <TELL "[New depth=" N .DEP "]" CR>)>)
+       (<G? .DEP ,TARGET-DEPTH>
+	<DIVE-DESC .DEP <>>
+	<SET DEP <- .DEP 1>>
+	;<COND (,DEBUG <TELL "[New depth=" N .DEP "]" CR>)>)
+       (<NOT <0? ,DIVING?>>
+	<SETG DIVING? 0>
+	<TELL "The " D ,SUB " quickly levels out at the ">
+	<COND (<0? .DEP> <TELL "surface.">)
+	      (T <TELL "desired depth of " N <* 5 .DEP> " meters.">)>
+	<COND (<0? ,THROTTLE-SETTING>
+	       <TELL " It's now standing still in the water.">)
+	      (T
+	       <TELL " It's still moving toward ">
+	       <DIR-PRINT ,JOYSTICK-DIR>
+	       <TELL " at a speed of " N ,THROTTLE-SETTING " " D ,GRID-UNIT>
+	       <COND (<NOT <==? 1 ,THROTTLE-SETTING>> <TELL "s">)>
+	       <TELL " per turn.">)>
+	<CRLF>)>
+ .DEP>
+
+<ROUTINE DIVE-DESC (DEP DOWN?)
+ <COND (<0? .DEP>
+	<TELL
+"The " D ,GLOBAL-WATER " darkens to a deeper green as you descend from
+the sunlit surface.">
+	<COND (<FSET? ,HYDROPHONE ,ONBIT>
+	       <TELL
+" Engine and propeller noises come over the " D ,HYDROPHONE "
+loudspeaker.">)>
+	<CRLF>)>>
+
+<OBJECT SEA-WALL
+	(IN SUB)
+	(FLAGS NDESCBIT)
+	(DESC "sea wall")
+	(ADJECTIVE SEA)
+	(SYNONYM WALL)
+	(VALUE 5)
+	(ACTION SEA-WALL-F)>
+
+<ROUTINE SEA-WALL-F ()
+ <COND (<VERB? EXAMINE>
+	<TOO-FAR-AWAY ,SEA-WALL>)>>
+
+<OBJECT FREIGHTER
+	(IN SUB)
+	(FLAGS NDESCBIT INVISIBLE)
+	(DESC "ship" ;"freighter")
+	(SYNONYM FREIGHTER SHIP KEEL)
+	(ACTION FREIGHTER-F)>
+
+<ROUTINE FREIGHTER-F ()
+ <COND (<VERB? EXAMINE ANALYZE>
+	<FREIGHTER-SIZE>)>>
+
+<ROUTINE FREIGHTER-SIZE ()
+	<TELL
+"Sonar shows the object reaching from the surface of the bay downward to
+a depth of 10 meters. This must be the keel of a freighter entering the
+harbor. It's moving toward the waterfront at the rate of 1 " D ,GRID-UNIT
+" per turn." CR>>
+
+<GLOBAL FREIGHTER-COUNT 0>
+<GLOBAL FREIGHTER-LON 0>
+<GLOBAL FREIGHTER-LAT 0>
+<GLOBAL FREIGHTER-DLON 0>
+<GLOBAL FREIGHTER-DLAT 0>
+
+<ROUTINE FREIGHTER-WARNING ()
+	<FCLEAR ,FREIGHTER ,INVISIBLE>
+	<ENABLE <QUEUE I-UPDATE-FREIGHTER -1>>
+	<SETG FREIGHTER-COUNT <+ 1 ,FREIGHTER-COUNT>>
+	<SETG SHIP-WARNING ,SONAR-YELLOW>
+	<COND (<==? 1 ,FREIGHTER-COUNT>
+	       <ADD-WARNING 12 T>)
+	      (T
+	       <ADD-WARNING 13 T>)>>
+
+<ROUTINE I-UPDATE-FREIGHTER ("AUX" DLAT DLON)
+	<SETG FREIGHTER-LON <+ ,FREIGHTER-LON ,FREIGHTER-DLON>>
+	<SETG FREIGHTER-LAT <+ ,FREIGHTER-LAT ,FREIGHTER-DLAT>>
+	<COND (<OR <NOT <==? ,NOW-TERRAIN ,BAY-TERRAIN>>
+		   <L? ,SONAR-RANGE
+		       <ABS <SET DLAT <- ,FREIGHTER-LAT ,SUB-LAT>>>>
+		   <L? ,SONAR-RANGE
+		       <ABS <SET DLON <- ,FREIGHTER-LON ,SUB-LON>>>>
+		   <G? 2 <GET5 <GET ,NOW-TERRAIN ,FREIGHTER-LAT>
+			       ,FREIGHTER-LON>>>
+	       <QUEUE I-UPDATE-FREIGHTER 0>
+	       <FSET ,FREIGHTER ,INVISIBLE>
+	       ;<COND (,TOLD-ABOUT-SHIP
+		      <TELL "You're out of danger from the ship." CR>)>
+	       <RFALSE>)
+	      (<AND <0? .DLAT> <0? .DLON> <L? ,SUB-DEPTH 3>>
+	       <FREIGHTER-COLLIDED>
+	       <FINISH>)
+	      (<AND <L? ,SUB-DEPTH 3>		;"Give sonar warning?"
+		    <OR <AND <==? ,JOYSTICK-DIR ,P?NORTH>
+			     <0? .DLON>
+			     <G? .DLAT 0>>
+			<AND <==? ,JOYSTICK-DIR ,P?EAST>
+			     <0? .DLAT>
+			     <G? .DLON 0>>
+			<AND <==? ,JOYSTICK-DIR ,P?NE>
+			     <==? .DLON .DLAT>
+			     <G? .DLAT 0>>>>
+	       <COND (<OR <AND <==? ,JOYSTICK-DIR ,P?NORTH>
+			       <OR <L? .DLAT ,THROTTLE-SETTING>
+				   <=? .DLAT ,THROTTLE-SETTING>
+				   <AND <0? ,THROTTLE-SETTING>
+					<L? .DLAT 2>>>>
+			  <AND <==? ,JOYSTICK-DIR ,P?EAST>
+			       <OR <L? .DLON ,THROTTLE-SETTING>
+				   <=? .DLON ,THROTTLE-SETTING>
+				   <AND <0? ,THROTTLE-SETTING>
+					<L? .DLON 2>>>>
+			  <AND <==? ,JOYSTICK-DIR ,P?NE>
+			       <OR <L? .DLAT ,THROTTLE-SETTING>
+				   <=? .DLAT ,THROTTLE-SETTING>
+				   <AND <0? ,THROTTLE-SETTING>
+					<L? .DLAT 2>>>>>
+		      <COND (<EQUAL? ,SHIP-WARNING ,SONAR-RED>
+			     <TELL-SONAR-WARNING ,SHIP-WARNING>)
+			    (T
+			     <SETG SHIP-WARNING ,SONAR-RED>
+			     <ADD-WARNING 14 T>)>)
+		     (,SHIP-WARNING
+		      <TELL-SONAR-WARNING ,SHIP-WARNING>)>)
+	      (<AND ,SHIP-WARNING
+		    <NOT ,SONAR-WARNING
+			 ;<OBSTACLE-AHEAD? ,SUB-DEPTH ,SUB-LON ,SUB-LAT>>>
+	       <TELL
+"The " D ,SONARSCOPE-LIGHT " goes out and your heartbeat
+gradually slows to normal">
+	       <COND (<==? ,SHIP-WARNING ,SONAR-RED>
+		      <TELL
+", now that the noise from the " D ,ALARM-SUB " and the ship have gone">)>
+	       <SETG SHIP-WARNING <>>
+	       <TELL "." CR>)>>
+
+<GLOBAL DEPTH-WARNING <>>
+<CONSTANT DEPTH-ORANGE 5>
+<CONSTANT DEPTH-RED 6>
+
+<ROUTINE DOME-ON-SONAR? (DEP LON LAT "AUX" HYPOT X)
+ <COND (<L? +1 .LON> <RFALSE>)
+       (<L? +1 .LAT> <RFALSE>)
+       (<G? -1 .LON> <RFALSE>)
+       (<G? -1 .LAT> <RFALSE>)
+       (<L? 2 <SET X <- ,SEA-DEPTH .DEP>>> <RFALSE>)
+       (,FINE-SONAR
+	<SET HYPOT <+ <* .LON .LON> <* .LAT .LAT>>>
+	<COND (<G? 3 <+ .X .HYPOT>> <RTRUE>)
+	      (T <RFALSE>)>)
+       (<AND <0? .LON> <0? .LAT>>
+	<RTRUE>)
+       (T <RFALSE>)>>
+
+<ROUTINE FREIGHTER-COLLIDED ()
+	<TELL
+"|
+You and Tip are hurled from your seats as the " D ,SUB " and the ship
+collide! The sub is up-ended and swept aside by the momentum of the ship.
+Thanks to the strength of your revolutionary hull design, the " D
+,SUB " is still okay, but its machinery is hopelessly damaged.|
+|
+Because you didn't change heading or dive under the ship, you and
+Tip are now adrift and must wait to be rescued by">
+	<RESEARCH-LAB>
+	<TELL
+". Your mission to save the " D ,AQUADOME " and
+its crew from attack by the " D ,GLOBAL-SNARK " will have to be
+abandoned.">>
+
+<ROUTINE SONAR-TO-MANUAL ()
+	<COND (<AND ,AUTOMATIC-SONAR <SPLIT-SCREEN?>>
+	       <SETG AUTOMATIC-SONAR <>>
+	       <SETG SCREEN-NOW-SPLIT <>>
+	       <SPLIT 0>
+	       <DISABLE <INT I-SHOW-SONAR>>
+	       <TELL
+"The " D ,SONARSCOPE " " D ,AUTOMATIC "ally sets itself to manual." CR>)>>
+
+<ROUTINE COLLISION? (DEP LON LAT ;DLAT "AUX" X)
+	;<COND (<NOT <FSET? ,FREIGHTER ,INVISIBLE>>
+	       <UPDATE-FREIGHTER>)>
+	<COND (,SUB-IN-OPEN-SEA <RFALSE>)
+	      (<NOT <FSET? ,SNARK ,INVISIBLE>>
+	       <COND (<THORPE-POS? .LON .LAT>
+		      <TELL
+"|
+CRR-R-RAAASSSHHH-H-H!|
+|
+With a deafening clang, the " D ,THORPE-SUB " and your sub
+collide! The " D ,SUB " shudders, and you and Tip are
+hurled to the deck!|
+You claw your way to the controls, but there's no power,
+no matter how you gun the throttle! The engine's been damaged by the
+collision!|
+">
+		      <COND (<NOT <FSET? ,THORPE ,MUNGBIT>>
+			     <TELL
+"Through the " D ,SUB-WINDOW " you see the " D ,THORPE-SUB ", and it
+looks helpless too. Its hull is intact, but . . . UH-OH! Its rocket
+weapon is swinging slowly in your direction!|
+">)>
+		      <TELL
+"As you and Tip eye each other despairingly, one thing's for sure: THE
+ADVENTURE'S OVER!">)
+		     (<SNARK-POS? .LON .LAT>
+		      <TELL
+"There's a sudden jolt! Your " D ,SUB " stops moving for a moment,
+as if you hit some huge mass. Tip looks ">
+		      <COND (<FSET? ,SONARSCOPE ,ONBIT>
+			     <TELL "at the " D ,SONARSCOPE>)
+			    (T <TELL "out the " D ,SUB-WINDOW>)>
+		      <TELL " and gulps, \"We've rammed the " D ,SNARK>
+		      <COND (<FSET? ,CLAW ,MUNGBIT> <TELL " again!\"" CR>)
+			    (T
+			     <FSET ,CLAW ,MUNGBIT>
+			     <SETG TEST-BUTTON-READOUT ,CLAW-MUNGED-MSG>
+			     <TELL
+"! I hope the " D ,CLAW "s aren't damaged!\"" CR>)>
+		      <RFALSE>)
+		     (T <RFALSE>)>
+	       <FINISH>)
+	      (<AND <NOT <FSET? ,FREIGHTER ,INVISIBLE>>
+		    <EQUAL? ,FREIGHTER-LAT .LAT>
+		    <EQUAL? ,FREIGHTER-LON .LON>
+		    <L? .DEP 3>>
+	       <FREIGHTER-COLLIDED>
+	       <FINISH>)>
+	;<SETG SUB-DLAT .DLAT>
+	<COND (<SET X <TOO-DEEP? .DEP .LON .LAT>>
+	       <COND (<EQUAL? .X ,HIT-BOTTOM-CODE ,HIT-SHORE-CODE>
+		      <COND (,SCREEN-NOW-SPLIT
+			     <SCREEN 1>
+			     <SHOW-SONARSCOPE>
+			     <SCREEN 0>)>
+		      <TELL
+"|
+Suddenly you're thrown out of your seat by a thunderous crash,
+and the " D ,SUB " comes to a shuddering halt!|
+">
+		      <TIP-SAYS>
+		      <TELL "Skipper! You've plowed into the ">
+		      <COND (<AND <==? .LON ,SPIRE-LON> <==? .LAT ,SPIRE-LAT>>
+			     <TELL "rock spire">)
+			    (<==? .X ,HIT-SHORE-CODE>
+			     <TELL "shore">)
+			    (T
+			     <TELL "floor of the ">
+			     <COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+				    <TELL "bay">)
+				   (T <TELL "ocean">)>)>
+		      <TELL
+"! Jumpin' jets, let's hope your new " D ,SUB " isn't wrecked!\"|
+Unfortunately, the " D ,SUB " is now disabled. You must call">
+		      <RESEARCH-LAB>
+		      <TELL
+" for help, and the situation forces you to abandon hope of
+saving the " D ,AQUADOME " from attacks by the " D ,SNARK ".">)
+		     (<==? .X ,OPEN-SEA-CODE>
+		      <SETG NOW-TERRAIN <>>
+		      <SETG SUB-IN-OPEN-SEA T>
+		      <FCLEAR ,CATALYST-CAPSULE ,TAKEBIT>
+		      <FSET ,CATALYST-CAPSULE ,TRYTAKEBIT>
+		      <MOVE ,BLACK-BOX ,BLY-DESK>
+		      <SETG DEPTH-WARNING <>>
+		      <SETG SONAR-WARNING <>>
+		      <SETG SHIP-WARNING <>>
+		      <FSET ,FREIGHTER ,INVISIBLE>
+		      <THIS-IS-IT ,AUTO-PILOT>
+		      <TELL
+"You have just passed through the opening in the " D ,SEA-WALL " across the
+mouth of " D ,BAY ", and you're now in the " D ,SEA "." CR>
+		      <ENABLE <QUEUE I-AUTO-PILOT 1>>
+		      <SONAR-TO-MANUAL>
+		      <SCORE-OBJ ,SEA-WALL>
+		      <SAVE-HINT>
+		      <RFATAL>)
+		     (<==? .X ,HIT-DOME-CODE>
+		      <TELL
+"Oh, oh! The " D ,SUB " has crashed into the " D ,AQUADOME "!|
+\"We've cracked the dome, "FN"!\" gulps Tip as he surveys the damage.|
+You're speechless. The " D ,AQUADOME " is flooding fast, and soon it
+will break apart under zillions of tons of " D ,GLOBAL-WATER "!|
+You try to shut out the scattered screams for help coming over the
+sonarphone.|
+|
+There's nothing left but to report that the " D ,AQUADOME " was accidentally
+destroyed, and your mission has failed.">)
+		     (<==? .X ,IN-DOME-CODE>
+		      <SETG NOW-TERRAIN <>>
+		      <SETG SUB-IN-DOME T>
+		      <SETG BLY-CALLING <>>
+		      <PHONE-OFF>
+		      <SONAR-TO-MANUAL>
+		      ;<QUEUE I-UPDATE-SUB-POSITION 0>
+		      <SETG THROTTLE-SETTING 0>
+		      <SETG SHIP-WARNING <>>
+		      <SETG SONAR-WARNING <>>
+		      <SETG DEPTH-WARNING <>>
+		      ;<COND (,DEBUG
+			     <TELL "[Throttle=" N ,THROTTLE-SETTING "]" CR>)>
+		      ;<SETG JOYSTICK-DIR ,P?SOUTH>
+		      ;<SETG SUB-IN-REVERSE? <>>
+		      <TELL "|
+The " D ,SUB " is now resting in the cradle in the rectangular " D ,AIRLOCK ".
+The " D ,AIRLOCK-HATCH " closes, and so does the " D ,THROTTLE ".|
+Through the " D ,SUB-WINDOW " you can see the water level going down
+inside the " D ,AIRLOCK ". The docking crew is pumping out
+the " D ,GLOBAL-WATER ". This will take 1 turn." CR>
+		      <FCLEAR ,AIRLOCK-HATCH ,OPENBIT>
+		      <QUEUE I-THORPE-APPEARS 0>
+		      <ENABLE <QUEUE I-AIRLOCK-EMPTY 1>>
+		      <SCORE-OBJ ,AQUADOME>
+		      <RTRUE>)>
+	       <FINISH>)
+	      (<NOT <FSET? ,DEPTHFINDER ,ONBIT>>
+	       <RFALSE>)
+	      (<CHECK-DEPTH .DEP .LON .LAT> <RFALSE>)
+	      (,DEPTH-WARNING
+	       <SETG DEPTH-WARNING <>>
+	       <ADD-WARNING 10>
+	       <RFALSE>)>>
+
+<CONSTANT HIT-DOME-CODE 5>
+<CONSTANT OPEN-SEA-CODE 4>
+<CONSTANT IN-DOME-CODE 3>
+<CONSTANT HIT-SHORE-CODE 2>
+<CONSTANT HIT-BOTTOM-CODE 1>
+
+<ROUTINE TOO-DEEP? (DEP LON LAT "AUX" X)
+ <COND (<EQUAL? ,NOW-TERRAIN ,SEA-TERRAIN>
+	<COND (<AND <HEADING-INTO-DOME? .DEP .LON .LAT>
+		    <OR <AND ,FINE-SONAR <G? .LAT -2>>
+			<0? .LAT>>>
+	       ,IN-DOME-CODE)
+	      (<DOME-ON-SONAR? .DEP .LON .LAT> ,HIT-DOME-CODE)
+	      (<==? .DEP ,SEA-DEPTH> ,HIT-BOTTOM-CODE)>)
+       (T
+	<SET X <GET5 <GET ,NOW-TERRAIN .LAT> .LON>>
+	<COND (<==? .X 6> ,OPEN-SEA-CODE)
+	      (<L? .DEP .X> <RFALSE>)
+	      (<0? .X> ,HIT-SHORE-CODE)
+	      (T ,HIT-BOTTOM-CODE)>)>>
+
+<GLOBAL SUB-IN-TANK T>
+<GLOBAL GATE-CRASHED <>>
+<GLOBAL SUB-IN-OPEN-SEA <>>
+<GLOBAL SUB-IN-DOME <>>
+"<GLOBAL SUB-IN-DOME-FACING-SOUTH 0>"
+
+<ROUTINE GATE-CRASH (STR OBJ GATE)
+ <COND (<EQUAL? .GATE ,AIRLOCK-HATCH>
+	;<THIS-IS-IT ,AIRLOCK-HATCH>
+	;<YOU-CANT "leave" ,AIRLOCK-HATCH "closed">
+	<TELL
+"You can't leave the " D ,AIRLOCK " with the " D  ,AIRLOCK-HATCH" closed!"CR>)
+       (T
+	<SETG GATE-CRASHED T>
+	<FCLEAR ,ENGINE ,ONBIT>
+	<SETG TEST-BUTTON-READOUT ,GATE-CRASHED-MSG>
+	<TELL
+"As you " .STR THE .OBJ ", you hear a loud boom! The " D ,SUB
+" shivers. You have crashed into the Repelatron
+Safety Bumper on the " D ,TANK-GATE ". The turbine stops " D ,AUTOMATIC "ally.
+Too bad the gate was closed!" CR>)>>
+
+<OBJECT CAPSULE-LEVER
+	(IN SUB)
+	(DESC "reactor lever")	;"capsule-insertion lever"
+	(ADJECTIVE CAPSULE INSERT REACTOR)
+	(SYNONYM LEVER HANDLE)
+	(FLAGS NDESCBIT)
+	;(VALUE 5)
+	(ACTION CAPSULE-LEVER-F)>
+
+<ROUTINE CAPSULE-LEVER-F ()
+ <COND (<VERB? ;"OPEN CLOSE" EXAMINE>
+	<PERFORM ,PRSA ,REACTOR>
+	<RTRUE>)
+       (<VERB? MOVE PUSH USE>
+	<COND (<FSET? ,REACTOR ,ONBIT>
+	       <TELL ,I-ASSUME " turn off the " D ,REACTOR ".)" CR>
+	       <PERFORM ,V?LAMP-OFF ,REACTOR>
+	       <RTRUE>)
+	      (T
+	       <TELL ,I-ASSUME " turn on the " D ,REACTOR ".)" CR>
+	       <PERFORM ,V?LAMP-ON ,REACTOR>
+	       <RTRUE>)>)>>
+
+<OBJECT DEPTHFINDER
+	(IN SUB)
+	(DESC "depth finder")
+	(ADJECTIVE	DEPTH)
+	(SYNONYM	FINDER METER GAUGE DEPTHFINDER)
+	(FLAGS NDESCBIT ONBIT ON?BIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION DEPTHFINDER-F)>
+
+<CONSTANT SEA-DEPTH 30>
+<CONSTANT AIRLOCK-DEPTH 29>
+
+<ROUTINE DEPTHFINDER-F ("AUX" N)
+ <COND (<REMOTE-VERB?> <RFALSE>)
+       (<AND ,SUB-IN-TANK <WHY-NEED ,DEPTHFINDER ,TEST-TANK>>
+	<RTRUE>)
+       (<AND ,SUB-IN-DOME <WHY-NEED ,DEPTHFINDER ,AIRLOCK>>
+	<RTRUE>)
+       (<VERB? LAMP-OFF>
+	<SETG DEPTH-WARNING <>>
+	<RFALSE>)
+       (<VERB? LAMP-ON>
+	<CHECK-DEPTH ,SUB-DEPTH ,SUB-LON ,SUB-LAT>
+	<RFALSE>)
+       (<VERB? ANALYZE EXAMINE WHAT READ>
+	<COND (<NOT <FSET? ,DEPTHFINDER ,ONBIT>>
+	       <TELL "It's not on!" CR>
+	       <RTRUE>)>
+	<TELL "You're now ">
+	<COND (<0? ,SUB-DEPTH> <TELL "on the surface">)
+	      (T <TELL "at a depth of " N <* 5 ,SUB-DEPTH> " meters">)>
+	<COND (<NOT ,NOW-TERRAIN> <TELL "." CR> <RTRUE>)>
+	<SET N <- <COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+			 <GET5 <GET ,NOW-TERRAIN ,SUB-LAT> ,SUB-LON>)
+			(T ,SEA-DEPTH)>
+		  ,SUB-DEPTH>>
+	<TELL ", " N <* 5 .N> " meters above the ">
+	<COND (<==? ,NOW-TERRAIN ,BAY-TERRAIN>
+	       <TELL "floor of the bay." CR>)
+	      (T <TELL "bottom of the sea." CR>)>
+	;<COND (,DEPTH-WARNING <TELL ,DEPTH-WARNING CR>)>
+	<RTRUE>)>>
+
+<ROUTINE CHECK-DEPTH (DEP LON LAT)
+ <COND (<AND <NOT <0? .DEP>>
+	     <TOO-DEEP? <+ 1 .DEP> .LON .LAT>>
+	<COND (<==? ,DEPTH-WARNING ,DEPTH-ORANGE>
+	       <ADD-WARNING 11 T>)
+	      (<==? ,DEPTH-WARNING ,DEPTH-RED>
+	       <COND (<VERB? WAIT-FOR WAIT-UNTIL> T)
+		     (T <ADD-WARNING ,DEPTH-RED>)>)
+	      (T <ADD-WARNING 4 T>)>
+	<SETG DEPTH-WARNING ,DEPTH-RED>
+	<RTRUE>)
+       (<AND <NOT <0? .DEP>>
+	     <TOO-DEEP? <+ 2 .DEP> .LON .LAT>>
+	<COND (<==? ,DEPTH-WARNING ,DEPTH-ORANGE>
+	       <COND (<VERB? WAIT-FOR WAIT-UNTIL> T)
+		     (T <ADD-WARNING ,DEPTH-ORANGE>)>)
+	      (<==? ,DEPTH-WARNING ,DEPTH-RED>
+	       <ADD-WARNING 9>)
+	      (T <ADD-WARNING 3 T>)>
+	<SETG DEPTH-WARNING ,DEPTH-ORANGE>
+	<RTRUE>)>>
+
+<OBJECT DEPTHFINDER-LIGHT
+	(IN SUB)
+	(DESC "depth finder warning light")
+	(ADJECTIVE DEPTHFINDER DEPTH FINDER WARNING ORANGE RED)
+	(SYNONYM WARNING LIGHT ;LIGHTS)
+	(FLAGS NDESCBIT)
+	(GENERIC GENERIC-LIGHT-F)
+	(ACTION DEPTHFINDER-LIGHT-F)>
+
+<ROUTINE DEPTHFINDER-LIGHT-F ()
+ <COND (<VERB? ANALYZE EXAMINE READ REPLY>
+	<COND (<NOT ,DEPTH-WARNING>
+	       <TELL "The " D ,DEPTHFINDER-LIGHT " is off." CR>)>
+	<TELL
+"During a dive, the " D ,DEPTHFINDER-LIGHT " turns orange and a "
+D ,ALARM-SUB " sounds if the " D ,SUB " comes within 10 meters of the bottom.|
+The light turns red and the " D ,ALARM-SUB " becomes louder if the
+" D ,SUB " comes within 5 meters of the bottom." CR>)>>
+
+<GLOBAL SHIP-WARNING <>>
+<GLOBAL SONAR-WARNING <>>
+<CONSTANT SONAR-YELLOW 1>
+<CONSTANT SONAR-RED 2>
+
+<ROUTINE TELL-SONAR-WARNING ("OPTIONAL" (W <>))
+	<TELL "The " D ,SONARSCOPE-LIGHT " continues to glow ">
+	<COND (<NOT .W> <SET W ,SONAR-WARNING>)>
+	<COND (<1? .W> <TELL "yellow." CR>)
+	      (T <TELL
+"red, and the " D ,ALARM-SUB " also continues to sound." CR>)>>
+
+<GLOBAL LOOKED-AT-SONAR 0>
+<GLOBAL AUTOMATIC-SONAR <>>
+<GLOBAL SCREEN-NOW-SPLIT <>>
+<GLOBAL FINE-SONAR <>>
+
+<OBJECT AUTOMATIC
+	(IN SUB ;GLOBAL-OBJECTS)
+	(SYNONYM AUTO AUTOMATIC)
+	(DESC "automatic")
+	(FLAGS NDESCBIT VOWELBIT)
+	(ACTION AUTOMATIC-F)>
+
+<ROUTINE AUTOMATIC-F ()
+ <COND (<VERB? LAMP-ON LAMP-OFF>
+	<PERFORM ,PRSA ,AUTO-PILOT>
+	<RTRUE>)>>
+
+<OBJECT MANUAL
+	(IN SUB ;GLOBAL-OBJECTS)
+	(SYNONYM MANUAL)
+	(DESC "manual")
+	(FLAGS NDESCBIT)
+	(ACTION MANUAL-F)>
+
+<ROUTINE MANUAL-F ()
+ <COND (<VERB? LAMP-ON>
+	<PERFORM ,V?LAMP-OFF ,AUTO-PILOT>
+	<RTRUE>)
+       (<VERB? LAMP-OFF>
+	<PERFORM ,V?LAMP-ON ,AUTO-PILOT>
+	<RTRUE>)
+       (<VERB? ANALYZE EXAMINE READ TAKE OPEN TURN>
+	<TELL "It's not that kind of manual." CR>)>>
+
+<OBJECT SONARSCOPE
+	(IN SUB)
+	(DESC "sonarscope")
+	(ADJECTIVE SONAR)
+	(SYNONYM SONARSCOPE ;SONAR SCOPE SCREEN BLIP ;BLIPS ;MAP)
+	(FLAGS NDESCBIT ONBIT ON?BIT READBIT)
+	(ACTION SONARSCOPE-F)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")>
+
+<CONSTANT SONAR-RANGE 5>
+
+<ROUTINE NOT-AVAILABLE ()
+	<TELL
+"Sorry, " FN ", but that feature isn't available." CR>>
+
+<ROUTINE SONARSCOPE-F ("AUX" DEP N)
+ <COND (<REMOTE-VERB?> <RFALSE>)
+       (<VERB? LAMP-ON>
+	<COND (<SPLIT-SCREEN?>
+	       <COND (T ;<NOT <FSET? ,SONARSCOPE ,ONBIT>>
+		      <FSET ,SONARSCOPE ,ONBIT>)>
+	       ;<TELL
+,I-ASSUME " set the " D ,SONARSCOPE " to " D ,AUTOMATIC ".)" CR>
+	       <PERFORM ,V?SET ,SONARSCOPE ,AUTOMATIC>
+	       <RTRUE>)>)
+       (<NOT <FSET? ,SONARSCOPE ,ONBIT>>
+	<THIS-IS-IT ,SONARSCOPE>
+	<TELL "It's not turned on!" CR>
+	<RTRUE>)
+       (<VERB? LAMP-OFF>
+	<COND (,AUTOMATIC-SONAR
+	       ;<TELL
+,I-ASSUME " set the " D ,SONARSCOPE " to " D ,MANUAL ".)" CR>
+	       ;"Following expr un-semicoloned by MARC 4/16/84"
+	       <PERFORM ,V?SET ,SONARSCOPE ,MANUAL>
+	       ;<COND (<FSET? ,SONARSCOPE ,ONBIT>
+		      <FCLEAR ,SONARSCOPE ,ONBIT>)>
+	       <SETG AUTOMATIC-SONAR <>>
+	       ;"Rfalse changed to RTRUE by MARC 4/16/84"
+	       <RTRUE> ;<RFALSE>)>)
+       (<AND ,SUB-IN-TANK <WHY-NEED ,SONARSCOPE ,TEST-TANK>>
+	<RTRUE>)
+       (<AND ,SUB-IN-OPEN-SEA <WHY-NEED ,SONARSCOPE ,SEA>>
+	<RTRUE>)
+       (<AND ,SUB-IN-DOME <WHY-NEED ,SONARSCOPE ,AIRLOCK>>
+	<RTRUE>)
+       (<VERB? ANALYZE EXAMINE READ LOOK-INSIDE LOOK-ON>
+	;<COND (,DEBUG
+	       <TELL "[Sub depth=" N ,SUB-DEPTH ", bottom=" N
+		     <COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+			    <GET5 <GET ,NOW-TERRAIN ,SUB-LAT> ,SUB-LON>)
+			   (T ,SEA-DEPTH)>
+		     ", long=" N ,SUB-LON ", lat=" N ,SUB-LAT ".]" CR>)>
+	;<COND (<OR ,SUB-IN-TANK ,SUB-IN-OPEN-SEA ,SUB-IN-DOME>
+	       <TELL <GETP ,SONARSCOPE ,P?TEXT> CR>
+	       <RTRUE>)>
+	<SETG P-WON <>>
+	<INC LOOKED-AT-SONAR>
+	<COND (<AND <SPLIT-SCREEN?> <0? <MOD ,LOOKED-AT-SONAR 4>>>
+	       <TIP-SAYS>
+	       <TELL
+"You wouldn't have to keep looking at the " D ,SONARSCOPE " if
+you set it to " D ,AUTOMATIC ".\"" CR>)>
+	<SET DEP ,SUB-DEPTH>
+	<COND (,SONAR-WARNING <TELL-SONAR-WARNING>)>
+	<COND (,SHIP-WARNING  <TELL-SONAR-WARNING ,SHIP-WARNING>)>
+	<COND (<AND <L? .DEP 3> <NOT <FSET? ,FREIGHTER ,INVISIBLE>>>
+	       <FREIGHTER-SIZE>
+	       <CRLF>)>
+	<FIXED-FONT-ON>
+	<TELL "(+=you, .=open water, *=obstacle)" CR>
+	<SET N <* 2 ,SONAR-RANGE>>
+	<REPEAT ()
+		<TELL "--">
+		<COND (<DLESS? N 0> <CRLF> <RETURN>)>>
+	<COND (,SCREEN-NOW-SPLIT
+	       <FIXED-FONT-OFF>
+	       <ALREADY ,PLAYER "looking at it">)
+	      (T <SHOW-SONARSCOPE>)>
+	<RTRUE>)
+       ;(<AND <VERB? PUT> <DOBJ? SONARSCOPE>>
+	<PERFORM ,V?SET ,PRSO ,PRSI>
+	<RTRUE>)
+       (<AND <VERB? SET PUT MOVE-DIR> <DOBJ? SONARSCOPE>>
+	<COND (<IOBJ? AUTOMATIC>
+	       <COND (,AUTOMATIC-SONAR
+		      <ALREADY ,SONARSCOPE "set to automatic">)
+		     (<SPLIT-SCREEN?>
+		      <SETG AUTOMATIC-SONAR T>
+		      <SETG SCREEN-NOW-SPLIT T>
+		      <START-SONAR?>
+		      <OKAY ,SONARSCOPE "set to automatic">)
+		     (T <NOT-AVAILABLE>)>)
+	      (<IOBJ? MANUAL>
+	       <COND (<NOT ,AUTOMATIC-SONAR>
+		      <ALREADY ,SONARSCOPE "set to manual">)
+		     (<SPLIT-SCREEN?>
+		      <SETG AUTOMATIC-SONAR <>>
+		      <SETG SCREEN-NOW-SPLIT <>>
+		      <SPLIT 0>
+		      <DISABLE <INT I-SHOW-SONAR>>
+		      <OKAY ,SONARSCOPE "set to manual">)
+		     (T <NOT-AVAILABLE>)>)
+	      ;(T <RFALSE>)>)>>
+
+<ROUTINE SHOW-SONARSCOPE
+	("AUX" DEP N RANGE LAT MINLAT LON MAXLON X Y LATP2 LATP1 LATM1)
+	<SET DEP ,SUB-DEPTH>
+	<FIXED-FONT-ON>
+	<COND (<NOT <FSET? ,SNARK ,INVISIBLE>>
+	       <TELL "@@=SEACAT Oooo=MONSTER">
+	       <COND (,SUB-IN-BATTLE
+		      <TELL   " #=DANGER">)
+		     (T <TELL "         ">)>)	;"31 chars on line"
+	      (T
+	       <COND (<OR <EQUAL? ,SHIP-WARNING ,SONAR-RED>
+			  <EQUAL? ,SONAR-WARNING ,SONAR-RED>>
+		      <TELL "SONAR:*RED*">)
+		     (<OR <EQUAL? ,SHIP-WARNING ,SONAR-YELLOW>
+			  <EQUAL? ,SONAR-WARNING ,SONAR-YELLOW>>
+		      <TELL "SONAR:YELLO">)
+		     (T
+		      <TELL "           ">)>
+	       <TELL " ">
+	       <COND (<==? ,DEPTH-WARNING ,DEPTH-ORANGE>
+		      <TELL "DEPTH:ORANGE">)
+		     (<EQUAL? ,DEPTH-WARNING ,DEPTH-RED>
+		      <TELL "DEPTH:*RED* ">)
+		     (T
+		      <TELL "            ">)>
+	       <TELL " ">
+	       <COND (<AND <L? .DEP 3> <NOT <FSET? ,FREIGHTER ,INVISIBLE>>>
+		      <TELL   "@=SHIP">)
+		     (T <TELL "      ">)>)>
+	<CRLF>
+	<SET RANGE ,SONAR-RANGE>
+	<SET    LAT <+ ,SUB-LAT .RANGE>>
+	<SET MINLAT <- ,SUB-LAT .RANGE>>
+	<SET MAXLON <+ ,SUB-LON .RANGE>>
+	<SET X 39 ;<* 5 <GET <GET ,NOW-TERRAIN 1> 0>>>
+	<SET Y <GET ,NOW-TERRAIN 0>>	;"coord's of NE corner"
+	<SET LATP2 <+ ,SUB-LAT 2>>
+	<SET LATP1 <+ ,SUB-LAT 1>>
+	<SET LATM1 <- ,SUB-LAT 1>>
+	<REPEAT ()
+	 <SET LON <- ,SUB-LON .RANGE>>
+	 <REPEAT ()
+		<COND (<AND <==? .LAT ,SUB-LAT> <==? .LON ,SUB-LON>>
+		       <TELL " +">)
+		      (<NOT <FSET? ,SNARK ,INVISIBLE>>
+		       <COND (<THORPE-POS? .LON .LAT>
+			      <TELL " @">)
+			     (<SNARK-HEAD-POS? .LON .LAT>
+			      <TELL " O">)
+			     (<SNARK-TAIL-POS? .LON .LAT>
+			      <TELL " o">)
+			     (<AND ,SUB-IN-BATTLE
+				   <THORPE-SHOOT? .LON .LAT>>
+			      <TELL " #">)
+			     (T <TELL " .">)>)
+		      (<EQUAL? ,NOW-TERRAIN ,SEA-TERRAIN>
+		       <COND (<DOME-ON-SONAR? .DEP .LON .LAT> <TELL " *">)
+			     (T <TELL " .">)>)
+		      (<AND <NOT <FSET? ,FREIGHTER ,INVISIBLE>>
+			    <L? .DEP 3>
+			    <==? .LAT ,FREIGHTER-LAT>
+			    <==? .LON ,FREIGHTER-LON>>
+		       <TELL " @">)
+		      (<OR <AND <G? .LAT .Y>
+				<==? 6 <GET5 <GET ,NOW-TERRAIN .Y> .LON>>>
+			   <AND <G? .LON .X>
+				<==? 6 <GET5 <GET ,NOW-TERRAIN .LAT> .X>>>>
+		       <TELL " .">)
+		      (<OR <L? .LAT 1>
+			   <L? .LON 1>
+			   <G? .LAT .Y>
+			   <G? .LON .X>>
+		       <TELL " *">)
+		      (<L? .DEP <GET5 <GET ,NOW-TERRAIN .LAT> .LON>>
+		       <TELL " .">)
+		      (T
+		       <TELL " *">)>
+		<COND (<IGRTR? LON .MAXLON>
+		       <COND (<==? .LAT .LATP2>
+			      <TELL " HDG:">
+			      <COND (<==? ,SUB-DLAT +1> <TELL "N">)
+				    (<==? ,SUB-DLAT -1> <TELL "S">)>
+			      <COND (<==? ,SUB-DLON +1> <TELL "E">)
+				    (<==? ,SUB-DLON -1> <TELL "W">)>
+			      <TELL " ">)
+			     (<==? .LAT .LATP1>
+			      <COND (<==? ,JOYSTICK-DIR ,P?NW>
+				     <TELL "  \\  ">)
+				    (<==? ,JOYSTICK-DIR ,P?NORTH>
+				     <TELL "   ! ">)
+				    (<==? ,JOYSTICK-DIR ,P?NE>
+				     <TELL "    /">)
+				    (T
+				     <TELL "     ">)>)
+			     (<==? .LAT ,SUB-LAT>
+			      <TELL " ">
+			      <COND (<==? ,JOYSTICK-DIR ,P?WEST> <TELL "--">)
+				    (T <TELL "  ">)>
+			      <TELL "+">
+			      <COND (<==? ,JOYSTICK-DIR ,P?EAST> <TELL "--">)
+				    (T <TELL "  ">)>)
+			     (<==? .LAT .LATM1>
+			      <COND (<==? ,JOYSTICK-DIR ,P?SW>
+				     <TELL "  /  ">)
+				    (<==? ,JOYSTICK-DIR ,P?SOUTH>
+				     <TELL "   ! ">)
+				    (<==? ,JOYSTICK-DIR ,P?SE>
+				     <TELL "    \\">)
+				    (T
+				     <TELL "     ">)>)>
+		       <CRLF>
+		       <RETURN>)>>
+	 <COND (<DLESS? LAT .MINLAT> <RETURN>)>>
+	<SET N <* 2 .RANGE>>
+	<REPEAT ()
+		<TELL "--">
+		<COND (<DLESS? N 0> <CRLF> <RETURN>)>>
+	<FIXED-FONT-OFF>
+	<RTRUE>>
+
+<ROUTINE START-SONAR? ()
+	 <COND (,SCREEN-NOW-SPLIT
+		<SPLIT <+ 3 <* 2 ,SONAR-RANGE>>>
+		<SETG SONAR-DIR 0>	;"to ensure update"
+		;"Un-SEMI'd next expr - MARC 4/17/84"
+		<I-SHOW-SONAR>		;"only for IBM-PC bug?"
+		<ENABLE <QUEUE I-SHOW-SONAR -1>>)>>
+
+<OBJECT SONARSCOPE-LIGHT
+	(IN SUB)
+	(DESC "sonarscope warning light")
+	(ADJECTIVE SONARSCOPE WARNING YELLOW RED)
+	(SYNONYM WARNING LIGHT ;LIGHTS)
+	(FLAGS NDESCBIT)
+	(GENERIC GENERIC-LIGHT-F)
+	(ACTION SONARSCOPE-LIGHT-F)>
+
+<ROUTINE SONARSCOPE-LIGHT-F ()
+ <COND (<VERB? ANALYZE EXAMINE READ REPLY>
+	<COND (<AND <NOT ,SONAR-WARNING> <NOT ,SHIP-WARNING>>
+	       <TELL "The " D ,SONARSCOPE-LIGHT " is off."CR>)>
+	<TELL
+"A yellow " D ,SONARSCOPE-LIGHT " shows that the bearing of a blip is
+NOT CHANGING, even if you and/or the object causing the blip are moving.
+This means you're on a COLLISION COURSE!|
+The light will turn red and a loud " D ,ALARM-SUB " will sound if you
+and the approaching object are within ONE TURN of a collision!">)>>
+
+<OBJECT ALARM-SUB
+	(IN SUB)
+	(DESC "warning buzzer")
+	(ADJECTIVE DEPTHFINDER DEPTH FINDER SONARSCOPE ALARM WARNING)
+	(SYNONYM ALARM BUZZER)
+	(FLAGS NDESCBIT)
+	(ACTION ALARM-SUB-F)>
+
+<ROUTINE ALARM-SUB-F ()
+	<COND (<VERB? LAMP-OFF LISTEN REPLY STOP>
+	       <TELL "Why not avoid the obstacle?" CR>)>>
+
+<OBJECT SONARPHONE
+	(IN SUB)
+	(DESC "sonarphone")
+	(ADJECTIVE SONAR)
+	(SYNONYM SONARPHONE PHONE)
+	(FLAGS NDESCBIT)
+	(ACTION SONARPHONE-F)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")>
+
+<GLOBAL BLY-CALLING <>>
+<GLOBAL BLY-WELCOMED <>>
+
+<ROUTINE BLY-WELCOME ()
+	<TELL
+"Welcome to the " D ,AQUADOME ", " FN "! You're a sight for sore eyes!
+We've been anxiously awaiting your arrival!">
+	;<COND (<IN? ,OVERHEATING ,GLOBAL-OBJECTS>
+	       <CRLF>
+	       <TIP-SAYS T>
+	       <TELL
+"By the way, " D ,BLY ", we had an " D ,OVERHEATING " problem on
+the way here.\"">)>>
+
+<ROUTINE SONARPHONE-F ()
+ <COND (<VERB? LAMP-OFF>
+	<COND (<NOT <FSET? ,PRSO ,ONBIT>> <TELL "It's not on!" CR> <RTRUE>)>
+	<FCLEAR ,PRSO ,ONBIT>
+	<COND (,REMOTE-PERSON <PERFORM ,V?GOODBYE> <RTRUE>)
+	      (T <OKAY ,SONARPHONE "off">)>)
+       (<AND <VERB? LISTEN> ,BLY-CALLING> <TELL "It's ringing." CR>)
+       (<VERB? LAMP-ON REPLY SAY-INTO TAKE>
+	<COND (<NOT ,BLY-CALLING>
+	       <TELL "The sonarphone isn't ringing!" CR>)
+	      (T
+	       <SETG BLY-CALLING <>>
+	       <PHONE-ON ,GLOBAL-BLY ,AQUADOME ,SONARPHONE>
+	       <FSET ,SONARPHONE ,ONBIT>
+	       ;<FCLEAR ,GLOBAL-SNARK ,INVISIBLE>
+	       <MOVE ,PRIVATE-MATTER ,GLOBAL-OBJECTS>
+	       <INC BLY-PRIVATELY-COUNT>
+	       <SETG BLY-WELCOMED T>
+	       <TELL "\"This is Zoe Bly speaking. ">
+	       <BLY-WELCOME>
+	       <DISCUSS-PRIVATE>)>)>>
+
+<ROUTINE DISCUSS-PRIVATE ()
+	<THIS-IS-IT ,PRIVATE-MATTER>
+	<TELL
+" I'd like to discuss a " D ,PRIVATE-MATTER " with you, as soon as
+possible!\"" CR>>
+
+<OBJECT HYDROPHONE
+	(IN SUB)
+	(DESC "hydrophone")
+	(ADJECTIVE	HYDROPHONE LISTEN)
+	(SYNONYM	HYDROPHONE DEVICE ;GAUGE)
+	(FLAGS NDESCBIT ONBIT ON?BIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION HYDROPHONE-F)>
+
+<ROUTINE HYDROPHONE-F ()
+ <COND (<AND <VERB? LISTEN> <FSET? ,HYDROPHONE ,ONBIT>>
+	<TELL "You can hear ">
+	<COND (<==? ,NOW-TERRAIN ,BAY-TERRAIN>
+	       <TELL "various engine noises." CR>)
+	      (<NOT <FSET? ,WHALE ,INVISIBLE>>
+	       <TELL "the whale." CR>)
+	      (T <TELL "nothing interesting." CR>)>)>>
+
+<OBJECT REACTOR
+	(IN SUB)
+	(DESC "reactor")
+	(ADJECTIVE POWER SUB SUBMARINE ENGINE)
+	(SYNONYM REACTOR GENERATOR HOLE)
+	(FLAGS CONTBIT SEARCHBIT OPENBIT ;NDESCBIT)
+	(CAPACITY 11 ;44)
+	(VALUE 5)
+	(DESCFCN REACTOR-F)
+	(ACTION REACTOR-F)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")>
+
+<ROUTINE REACTOR-F ("OPTIONAL" (ARG <>))
+ <COND (<OR .ARG <VERB? EXAMINE ANALYZE>>
+	<COND (<AND <==? ,P-ADVERB ,W?CAREFULLY> <NOT .ARG>>
+	       <TELL <GETP ,LOCAL-SUB ,P?TEXT> CR>)
+	      (<AND .ARG
+		    <FSET? ,REACTOR ,ONBIT>
+		    <NOT <FSET? ,REACTOR ,OPENBIT>>>
+	       <RTRUE>)
+	      (T <TELL "The power reactor is o"
+		       <COND (<FSET? ,REACTOR ,ONBIT> "n") (T "ff")>
+		       " and "
+		       <COND (<FSET? ,REACTOR ,OPENBIT> "open") (T "closed")>
+		       "." CR>)>)
+       (<VERB? LAMP-ON>
+	<COND (<FSET? ,REACTOR ,ONBIT>
+	       <ALREADY ,REACTOR "on">)
+	      (<NOT <IN? ,CATALYST-CAPSULE ,REACTOR>>
+	       <FCLEAR ,CATALYST-CAPSULE ,NDESCBIT>
+	       <TELL-HINT 33 ;8 ,CATALYST-CAPSULE <>>)
+	      (<FSET? ,REACTOR ,OPENBIT>
+	       <YOU-CANT "start" <> "open">
+	       ;<TELL "You can't turn it on while it's open." CR>)
+	      (T
+	       <FSET ,REACTOR ,ONBIT>
+	       <TELL "Electrical systems now activated." CR>
+	       <SCORE-OBJ ,REACTOR>
+	       <RTRUE>)>)
+       (<VERB? LAMP-OFF>
+	<COND (<NOT <FSET? ,REACTOR ,ONBIT>>
+	       <ALREADY ,REACTOR "off">)
+	      (<FSET? ,ENGINE ,ONBIT>	;"[YOU-CANT?]"
+	       <TELL "You can't turn it off while the engine is on." CR>)
+	      (T
+	       <FCLEAR ,REACTOR ,ONBIT>
+	       <TELL "Electrical systems now de-activated." CR>)>)
+       (<AND <VERB? OPEN> <FSET? ,REACTOR ,ONBIT>>
+	<YOU-CANT "open" <> "turned on">
+	;<TELL "You can't open it while it's turned on." CR>)>>
+
+<OBJECT REACTOR-SWITCH
+	(IN LOCAL-GLOBALS ;SUB)
+	(DESC "reactor starter")
+	(ADJECTIVE REACTOR)
+	(SYNONYM STARTER BUTTON)
+	(FLAGS NDESCBIT)
+	(ACTION REACTOR-SWITCH-F)>
+
+<ROUTINE REACTOR-SWITCH-F ()
+ <COND (<VERB? LAMP-ON LAMP-OFF EXAMINE>
+	<PERFORM ,PRSA ,REACTOR>
+	<RTRUE>)
+       (<VERB? MOVE PUSH TURN>
+	<TELL ,I-ASSUME " turn on the " D ,REACTOR ".)" CR>
+	<PERFORM ,V?LAMP-ON ,REACTOR>
+	<RTRUE>)>>
+
+<OBJECT ENGINE
+	(IN SUB)
+	(DESC "hydrojet")
+	(ADJECTIVE PROPULSION HYDROJET)
+	(SYNONYM HYDROJET ENGINE SYSTEM TURBINE)
+	(FLAGS NDESCBIT ON?BIT)
+	(VALUE 5)
+	;(GENERIC GENERIC-ENGINE-F)
+	(ACTION ENGINE-F)>
+
+;"<OBJECT ENGINE-CS
+	(IN CRAWL-SPACE)
+	(DESC 'hydrojet')
+	(ADJECTIVE PROPULSION HYDROJET)
+	(SYNONYM HYDROJET ENGINE SYSTEM TURBINE)
+	(FLAGS NDESCBIT ON?BIT)
+	(GENERIC GENERIC-ENGINE-F)
+	(ACTION ENGINE-F)>
+
+;<ROUTINE GENERIC-ENGINE-F (OBJ) ,ENGINE>"
+
+<ROUTINE ENGINE-F ()
+ <COND (<VERB? LAMP-OFF STOP>
+	<COND (<NOT <0? ,THROTTLE-SETTING>>
+	       <YOU-CANT "stop" ,THROTTLE "open">
+	       ;<TELL
+"You can't turn off the engine while the throttle's open." CR>)
+	      ;(T
+	       <OKAY ,ENGINE "off">)>)
+       (<VERB? LAMP-ON>
+	<COND (<OR <AND ,SUB-IN-TANK <NOT ,TEST-TANK-FULL>>
+		   <AND ,SUB-IN-DOME <NOT ,AIRLOCK-FULL>>>
+	       <TELL
+"The " D ,SUB " can't go when it's out of the water.
+You should fill the ">
+	       <COND (,SUB-IN-TANK
+		      <THIS-IS-IT ,TEST-TANK>
+		      <TELL D ,TEST-TANK>)
+		     (T
+		      <THIS-IS-IT ,AIRLOCK>
+		      <TELL D ,AIRLOCK>)>
+	       <TELL " first." CR>)
+	      (<NOT <FSET? ,REACTOR ,ONBIT>>
+	       <YOU-CANT "start" ,REACTOR "off">
+	       ;<TELL
+"You can't turn it on while the reactor's off."
+;"You should start the reactor to generate the electrical power for your
+propulsion system." CR>)
+	      (<FSET? ,ENGINE ,ONBIT>
+	       <ALREADY ,ENGINE "on">)
+	      (T
+	       <SETG GATE-CRASHED <>>
+	       <FSET ,ENGINE ,ONBIT>
+	       <FSET ,ENGINE ,TOUCHBIT>
+	       <COND (<READY-FOR-SNARK?>
+		      <TELL
+"Your revolutionary craft thrums with power, matching your own excited
+heartbeat!" CR>)
+		     (T <TELL
+"You can immediately hear the powerful thrum of the hydrojet
+turbine." CR>)>
+	       <SCORE-OBJ ,ENGINE>
+	       <RTRUE>)>)>>
+
+<OBJECT ENGINE-BUTTON
+	(IN LOCAL-GLOBALS ;SUB)
+	(DESC "engine starter")
+	(ADJECTIVE ENGINE STARTER)
+	(SYNONYM STARTER BUTTON)
+	(FLAGS NDESCBIT VOWELBIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION ENGINE-BUTTON-F)>
+
+<ROUTINE ENGINE-BUTTON-F ()
+ <COND (<VERB? LAMP-ON LAMP-OFF EXAMINE>
+	<PERFORM ,PRSA ,ENGINE>
+	<RTRUE>)
+       (<VERB? MOVE PUSH TURN>
+	<TELL ,I-ASSUME " turn on the " D ,ENGINE ".)" CR>
+	<PERFORM ,V?LAMP-ON ,ENGINE>
+	<RTRUE>)>>
+
+<GLOBAL JOYSTICK-DIR 25>
+<OBJECT JOYSTICK
+	(IN SUB)
+	(DESC "joystick")
+	(ADJECTIVE JOY)
+	(SYNONYM STICK JOYSTICK)
+	(FLAGS NDESCBIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION JOYSTICK-F)>
+
+<ROUTINE JOYSTICK-F ()
+ <COND (<VERB? ANALYZE EXAMINE READ>
+	<TELL
+"The " D ,JOYSTICK " is like the kind used with personal computers, only
+bigger. It's now ">
+	<COND (<0? ,JOYSTICK-DIR> <TELL "sitting at dead center." CR>)
+	      (T
+	       <TELL "pointing to ">
+	       <DIR-PRINT ,JOYSTICK-DIR>
+	       <TELL "." CR>)>)
+       (<VERB? MOVE PUSH TURN>
+	<V-WALK-AROUND>
+	<RTRUE>)
+       (<VERB? MOVE-DIR>
+	<COND (<EQUAL? ,P-DIRECTION ,P?IN>
+	       <V-WALK-AROUND>
+	       <RTRUE>)>
+	<COND (<EQUAL? ,P-DIRECTION ,P?OUT>
+	       <COND (,SUB-IN-TANK <SETG P-DIRECTION ,P?EAST>)
+		     (,SUB-IN-DOME <SETG P-DIRECTION ,P?SOUTH>)
+		     (T
+		      <V-WALK-AROUND>
+		      <RTRUE>)>)>
+	<DO-WALK ,P-DIRECTION>
+	<RTRUE>)>>
+
+<CONSTANT THROTTLE-MAX 3>
+<GLOBAL THROTTLE-SETTING 0>
+<GLOBAL THROTTLE-DESCS <PTABLE "closed" ;"off" "slow" "medium" "fast">>
+
+<OBJECT THROTTLE
+	(IN SUB)
+	(DESC "throttle")
+	(SYNONYM THROTTLE SPEED)
+	(FLAGS NDESCBIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION THROTTLE-F)>
+
+<OBJECT FAST
+	(IN SUB)
+	(DESC "fast")
+	;(ADJECTIVE FAST FULL HIGH THIRD TOP)
+	(SYNONYM FAST FASTER HIGH MAXIMUM ;FULL ;SPEED)
+	(FLAGS NDESCBIT)>
+
+<OBJECT MEDIUM
+	(IN SUB)
+	(DESC "medium")
+	;(ADJECTIVE MEDIUM HALF CRUISING CRUISE SECOND)
+	(SYNONYM MEDIUM HALF CRUISE ;SPEED)
+	(FLAGS NDESCBIT)>
+
+<OBJECT SLOW
+	(IN SUB)
+	(DESC "slow")
+	;(ADJECTIVE SLOW FIRST)
+	(SYNONYM SLOW SLOWER MINIMUM LOW ;SPEED)
+	(FLAGS NDESCBIT)>
+
+<OBJECT OFF
+	(IN SUB)
+	(DESC "off")
+	(ADJECTIVE STANDING)
+	(SYNONYM OFF STILL STOP)
+	(FLAGS NDESCBIT VOWELBIT)>
+
+<ROUTINE THROTTLE-F ("AUX" TH)
+ <COND (<VERB? OPEN PUSH LAMP-ON>
+	<SETG P-NUMBER <+ 1 ,THROTTLE-SETTING>>
+	<COND (<G? ,P-NUMBER ,THROTTLE-MAX>
+	       <TELL "You're going as fast as you can!" CR>)
+	      (T
+	       <PERFORM ,V?SET ,THROTTLE ;,INTNUM>
+	       <RTRUE>)>)
+       (<VERB? CLOSE LAMP-OFF>
+	<COND (<0? ,THROTTLE-SETTING>
+	       <ALREADY ,THROTTLE "closed">
+	       <RTRUE>)>
+	<SETG THROTTLE-SETTING 0>
+	;<COND (,DEBUG <TELL "[Throttle=" N ,THROTTLE-SETTING "]" CR>)>
+	<COND (<OR ,SUB-IN-TANK ,SUB-IN-DOME>
+	       <TELL
+"The throttle is now closed. You must open it to make the " D ,SUB " go
+anywhere." CR>)
+	      (T
+	       <TELL "The " D ,SUB " slows to a halt." CR>
+	       <COOL-BACK>)>
+	<RTRUE>)
+       (<VERB? MOVE TURN>
+	<TELL
+"Set it to the speed you want: fast, medium, slow, or off." CR>)
+       (<VERB? ANALYZE EXAMINE READ>
+	<TELL "The throttle is set to "
+		<GET ,THROTTLE-DESCS ,THROTTLE-SETTING>
+		"." CR>)
+       (<AND <VERB? SET PUT MOVE-DIR> <DOBJ? THROTTLE>>
+	<COND (<IOBJ? OFF SLOW MEDIUM FAST>
+	       <COND (<IOBJ? OFF>	<SET TH 0>)
+		     (<IOBJ? SLOW>	<SET TH 1>)
+		     (<IOBJ? MEDIUM>	<SET TH 2>)
+		     (<IOBJ? FAST>	<SET TH 3>)>)
+	      (<AND <EQUAL? ,PRSI <> ,GRID-UNIT>
+		    <G? ,P-NUMBER -1>
+		    <NOT <G? ,P-NUMBER ,THROTTLE-MAX>>>
+	       <SET TH ,P-NUMBER>)
+	      (T
+	       <TELL "Set it off, slow, medium, or fast." CR>
+	       <RTRUE>)>
+	<COND (<0? .TH>
+	       <TELL ,I-ASSUME " close the " D ,THROTTLE ".)" CR>
+	       <PERFORM ,V?CLOSE ,THROTTLE>
+	       <RTRUE>)>
+	;<COND (,DEBUG <TELL "[Throttle=" N .TH "]" CR>)>
+	<COND (<NOT <FSET? ,ENGINE ,ONBIT>>
+	       <TELL "Nothing happens when you open the throttle. ">
+	       <COND (,GATE-CRASHED
+		      <TELL
+"The turbine was stopped by Automatic Shutoff when you crashed into the
+sea gate.">)
+		     (T <TELL "The engine is off.">)>
+	       <THIS-IS-IT ,ENGINE>
+	       <CRLF>)
+	      (,SUB-IN-TANK
+	       <COND (<HATCH-GATE-NOT-READY? ,TANK-GATE>
+		      <RTRUE>)>
+	       <COND (<EQUAL? ,JOYSTICK-DIR ,P?EAST>
+		      <COND (<NOT <FSET? ,TANK-GATE ,OPENBIT>>
+			     <GATE-CRASH "open" ,THROTTLE ,TANK-GATE>)
+			    (T
+			     <SETG THROTTLE-SETTING .TH>
+			     <SUB-LEAVES T ,P?EAST>)>)
+		     (T
+		      <SETG THROTTLE-SETTING .TH>
+		      <OKAY-THROTTLE ,P?EAST>)>)
+	      (,SUB-IN-DOME
+	       <COND (<HATCH-GATE-NOT-READY? ,AIRLOCK-HATCH>
+		      <RTRUE>)>
+	       <SETG THROTTLE-SETTING .TH>
+	       <COND (<EQUAL? ,JOYSTICK-DIR ,P?SOUTH>
+		      <SUB-LEAVES <> ,P?SOUTH>)
+		     (T <OKAY-THROTTLE ,P?SOUTH>)>)
+	      (T
+	       <COND (<==? ,THROTTLE-SETTING .TH>
+		      <TELL "Okay, you're still ">)
+		     (T
+		      <COND (<L? ,THROTTLE-SETTING .TH>
+			     <TELL "You feel the seat press ">
+			     <COND (<NOT <0? ,THROTTLE-SETTING>>
+				    <TELL "harder ">)>
+			     <TELL
+"against you, and the " D ,ENGINE " gets loud">)
+			    (T <TELL "The " D ,ENGINE " gets quiet">)>
+		      <TELL "er. You're now ">)>
+	       <TELL "travelling at a speed of " N .TH " " D ,GRID-UNIT>
+	       <COND (<NOT <==? 1 .TH>> <TELL "s">)>
+	       <SETG THROTTLE-SETTING .TH>
+	       <TELL " per turn." CR>)>
+	<RTRUE>)>>
+
+<ROUTINE OKAY-THROTTLE (DIR)
+	<TELL
+"Okay, now that the throttle is set, try pushing the " D ,JOYSTICK " to ">
+	<DIR-PRINT .DIR>
+	<TELL "." CR>>
+
+<GLOBAL SONAR-LON 0>
+<GLOBAL SONAR-LAT 0>
+<GLOBAL SONAR-DEP 0>
+<GLOBAL SONAR-DIR 0>
+
+<ROUTINE I-SHOW-SONAR ()
+ <COND (<AND <FSET? ,SNARK ,INVISIBLE>
+	     <FSET? ,FREIGHTER ,INVISIBLE>
+	     <==? ,SONAR-LON ,SUB-LON>
+	     <==? ,SONAR-LAT ,SUB-LAT>
+	     <==? ,SONAR-DEP ,SUB-DEPTH>
+	     <==? ,SONAR-DIR ,JOYSTICK-DIR>>
+	<COND (,DEBUG <TELL "[no sonar update]" CR>)>
+	<RFALSE>)
+       (T
+	<SCREEN 1>
+	<SHOW-SONARSCOPE>
+	<SCREEN 0>
+	<SETG SONAR-LON ,SUB-LON>
+	<SETG SONAR-LAT ,SUB-LAT>
+	<SETG SONAR-DEP ,SUB-DEPTH>
+	<SETG SONAR-DIR ,JOYSTICK-DIR>
+	<RFALSE>)>>
+
+<GLOBAL SUB-DEPTH 0>
+<GLOBAL TARGET-DEPTH 0>
+<GLOBAL EVER-SUBMERGED? <>>
+
+<OBJECT DEPTH
+	(IN SUB)
+	(DESC "present depth")
+	(ADJECTIVE PRESENT CURRENT SUB\'S SUBMARINE)
+	(SYNONYM DEPTH)
+	(ACTION DEPTH-F)
+	(FLAGS NDESCBIT)>
+
+<ROUTINE DEPTH-F ()
+	<DO-INSTEAD-OF ,DEPTH-CONTROL ,DEPTH>
+	<RTRUE>>
+
+<OBJECT DEPTH-CONTROL
+	(IN SUB)
+	(DESC "depth control" ;" lever")
+	(ADJECTIVE DEPTH ;CONTROL)
+	(SYNONYM CONTROL LEVER HANDLE)
+	(FLAGS NDESCBIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION DEPTH-CONTROL-F)>
+
+<GLOBAL DIVING? 0>
+<ROUTINE DEPTH-CONTROL-F ("AUX" DEP NEW-DIVING?)
+ <COND (<REMOTE-VERB?> <RFALSE>)
+       (,SUB-IN-TANK
+	<YOU-CANT "submerge" ,SUB "here">
+	;<TELL "You can't submerge until you leave the " D ,TEST-TANK "." CR>
+	<RTRUE>)
+       (<AND ,SUB-IN-DOME <WHY-NEED ,DEPTH-CONTROL ,AIRLOCK>>
+	<RTRUE>)
+       (<VERB? ANALYZE EXAMINE READ WHAT>
+	<TELL
+"It's set for a desired depth of " N <* 5 ,TARGET-DEPTH> " meters." CR>)
+       (<VERB? SET>
+	<SET DEP ,P-NUMBER>
+	;<COND (,DEBUG <TELL "[Number=" N .DEP "]" CR>)>
+	<COND (<FSET? ,AUTO-PILOT ,ONBIT>
+	       <TELL "Let the " D ,AUTO-PILOT " handle that." CR>
+	       <RTRUE>)
+	      (<NOT <FSET? ,DEPTHFINDER ,ONBIT>>
+	       <THIS-IS-IT ,DEPTHFINDER>
+	       <TELL "You'd better turn on the " D ,DEPTHFINDER" first."CR>
+	       <RTRUE>)
+	      (<NOT <G? .DEP -1>>
+	       <TELL "You must set it to at least zero!" CR>
+	       <RTRUE>)
+	      (<AND ,SUB-IN-BATTLE	;<NOT <FSET? ,THORPE-SUB ,INVISIBLE>>
+		    <G? ,SUB-DEPTH .DEP>>
+	       <TELL
+"If you go above the Snark, Thorpe will shoot you!" CR>
+	       <RTRUE>)
+	      (<AND <G? .DEP 0> <FSET? ,SUB-DOOR ,OPENBIT>>
+	       ;<THIS-IS-IT ,SUB-DOOR>
+	       <YOU-CANT "submerge" ,SUB-DOOR "open">
+	       ;<TELL "You can't dive with the entry hatch open!" CR>
+	       <RTRUE>)
+	      (<IOBJ? METER>
+	       <SET DEP </ <+ 2 .DEP> 5>>
+	       <COND (<NOT <==? ,P-NUMBER <* 5 .DEP>>>
+		      <TELL
+"(That rounds off to " N <* 5 .DEP> " meters.)" CR>)>)>
+	<SETG TARGET-DEPTH .DEP>
+	<COND (<NOT <0? .DEP>> <SETG EVER-SUBMERGED? T>)>
+	<COND (<==? ,SUB-DEPTH .DEP>
+	       <COND (<0? ,DIVING?>
+		      <ALREADY ,PLAYER "at that depth">)
+		     (T
+		      <TELL "Your "
+			    <COND (<==? +1 ,DIVING?> "de") (T "a")>
+			    "scent ceases.">)>
+	       <CRLF>
+	       ;<COND (,DEPTH-WARNING
+		      <TELL ,DEPTH-WARNING CR>)>
+	       <SETG DIVING? 0>
+	       <RTRUE>)
+	      (T
+	       <COND (<L? ,SUB-DEPTH ,TARGET-DEPTH>
+		      <SET NEW-DIVING? +1>)
+		     (T
+		      <SET NEW-DIVING? -1>)>
+	       <COND (<NOT <==? ,DIVING? .NEW-DIVING?>>
+		      <TELL "The " D ,SUB " noses ">
+		      <COND (<==? .NEW-DIVING? +1>
+			     <TELL "down">)
+			    (T <TELL "up">)>
+		      <TELL "ward">
+		      <COND (<0? ,SUB-DEPTH>
+			     <TELL
+", and " D ,GLOBAL-WATER " begins to wash over your forward " D ,SUB-WINDOW>)>
+		      <TELL ". You're now ">)
+		     (T <TELL "Okay, you're still ">)>
+	       <SETG DIVING? .NEW-DIVING?>
+	       <COND (<==? 1 ,DIVING?> <TELL "div">)
+		     (T <TELL "ris">)>
+	       <TELL "ing at a speed of 5 meters per ">
+	       <COND (<0? ,THROTTLE-SETTING> <TELL "turn." CR>)
+		     (T <TELL D ,GRID-UNIT "." CR>)>)>)>>
+
+<OBJECT GRID-UNIT
+	(IN SUB ;GLOBAL-OBJECTS)
+	(ADJECTIVE SEA GRID NUMBER)
+	(SYNONYM SQUARE)
+	(DESC "sea square")
+	(FLAGS UNITBIT NDESCBIT ;NARTICLEBIT)>
+
+<OBJECT METER
+	(IN SUB ;GLOBAL-OBJECTS)
+	(ADJECTIVE NUMBER)
+	(SYNONYM METER METERS METRES M)
+	(DESC "meter")
+	(FLAGS UNITBIT NDESCBIT ;NARTICLEBIT)
+	(ACTION METER-F)>
+
+<ROUTINE METER-F ()
+ <COND (<VERB? BOARD>	;"CLIMB"
+	<PERFORM ,V?CLIMB-UP ,PRSO>
+	<RTRUE>)>>
+
+<OBJECT AUTO-PILOT
+	(IN SUB)
+	(DESC "autopilot")
+	(ADJECTIVE	AUTO AUTOMATIC)
+	(SYNONYM	PILOT AUTOPILOT)
+	(FLAGS NDESCBIT VOWELBIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(VALUE 5 ;1)
+	(ACTION AUTO-PILOT-F)>
+
+<ROUTINE AUTO-PILOT-F ()
+ <COND (<VERB? LAMP-OFF>
+	<COND (<NOT <FSET? ,AUTO-PILOT ,ONBIT>>
+	       <ALREADY ,AUTO-PILOT "off">)
+	      (T
+	       <TELL
+"If you do, you'll never reach the " D ,AQUADOME "!" CR>)>)
+       (<OR <VERB? LAMP-ON PUSH>
+	    <AND <VERB? SET> <IOBJ? AQUADOME>>>
+	<COND (<FSET? ,AUTO-PILOT ,ONBIT>
+	       <ALREADY ,AUTO-PILOT "on">)
+	      (<NOT ,SUB-IN-OPEN-SEA>
+	       <TELL "You must be your own pilot for now." CR>)
+	      (<FSET? ,SUB-DOOR ,OPENBIT>
+	       <YOU-CANT "submerge" ,SUB-DOOR "open">
+	       ;<THIS-IS-IT ,SUB-DOOR>
+	       ;<TELL "You can't dive with the entry hatch open!" CR>
+	       <RTRUE>)
+	      (T
+	       <FSET ,AUTO-PILOT ,ONBIT>
+	       <SETG JOYSTICK-DIR ,P?EAST>
+	       <SETG TIP-SAYS-1 23 ;5>
+	       <SETG TIP-SAYS-2 ,MAGAZINE>
+	       <ENABLE <QUEUE I-TIP-SAYS 6>>
+	       <TELL "Okay, your trip to the " D ,AQUADOME " will take ">
+	       <COND (<0? ,THROTTLE-SETTING> <TELL "forever">)
+		     (T <TELL N </ ,AQUADOME-DISTANCE ,THROTTLE-SETTING>
+			      " turns">)>
+	       <TELL
+" at your current speed. But you can set the throttle to a different
+speed, if you want." CR>
+	       <SCORE-OBJ ,AUTO-PILOT>
+	       <RTRUE>)>)>>
+
+<ROUTINE I-AUTO-PILOT ()
+ <COND (<NOT <FSET? ,AUTO-PILOT ,ONBIT>>
+	<QUEUE I-AUTO-PILOT 2>
+	<COND (<AND <VERB? LAMP-ON> <DOBJ? AUTO-PILOT>> <RFALSE>)>
+	<TIME-FOR-PILOT>)>>
+
+<ROUTINE TIME-FOR-PILOT ()
+	<TIP-SAYS>
+	<TELL
+"I think it's time to turn on the " D ,AUTO-PILOT ".\"" CR>>
+
+<CONSTANT AQUADOME-VISIBLE 55>
+<CONSTANT AQUADOME-DISTANCE 60>
+<GLOBAL DISTANCE-FROM-BAY 0>
+
+<OBJECT CONTROL-CIRCUITS
+	(IN SUB)
+	(DESC "control circuit")
+	(ADJECTIVE CONTROL)
+	(SYNONYM CIRCUIT)
+	(FLAGS NDESCBIT)
+	(ACTION CONTROL-CIRCUITS-F)>
+
+<ROUTINE CONTROL-CIRCUITS-F ()
+ <COND (<VERB? ANALYZE EXAMINE READ>
+	<COND (,SUB-IN-OPEN-SEA
+	       <TELL
+"Sorry. There's no way to do this while the " D ,SUB " is submerged and
+underway. You need ship-repair or test-tank facilities." CR>)>)>>
+
+<OBJECT CONTROL-CIRCUITS-GAUGE
+	(IN SUB)
+	(DESC ;"control circuits " "temperature gauge" ;" needle")
+	(ADJECTIVE CONTROL CIRCUIT TEMPERATURE GAUGE)
+	(SYNONYM ;CIRCUIT TEMPERATURE GAUGE ;GAUGES NEEDLE)
+	(FLAGS NDESCBIT)
+	(ACTION CONTROL-CIRCUITS-GAUGE-F)>
+
+<ROUTINE CONTROL-CIRCUITS-GAUGE-F ()
+ <COND (<VERB? ANALYZE EXAMINE READ>
+	<COND (T ;,SUB-IN-OPEN-SEA
+	       <TELL "The " D ,CONTROL-CIRCUITS-GAUGE " needle is ">
+	       <COND (<L? 20 ,CIRCUIT-TEMP>
+		      <COND (<L? 25 ,CIRCUIT-TEMP>
+			     <TELL "pointing to">)
+			    (T <TELL "near">)>
+		      <TELL " the red danger zone.">)
+		     (T <TELL "in the green safety zone.">)>
+	       <COND (<NOT <FSET? ,ENGINE ,TOUCHBIT>> T)
+		     (<NOT <FSET? ,VOLTAGE-REGULATOR ,MUNGBIT>> T)
+		     (<L? 1 ,THROTTLE-SETTING> <TELL " And rising.">)
+		     (<0? ,THROTTLE-SETTING> <TELL " And falling.">)
+		     (T <TELL " And steady.">)>
+	       <CRLF>)>)>>
+
+<GLOBAL CIRCUIT-TEMP 0>
+<GLOBAL CIRCUIT-TIP <>>
+<GLOBAL CIRCUIT-RED <>>
+
+<OBJECT SEARCH-BEAM
+	(IN SUB)
+	(DESC "brass search light")
+	(ADJECTIVE BRASS SEARCH LIGHT)
+	(SYNONYM BEAM LIGHT ;SEARCH)
+	(FLAGS NDESCBIT ON?BIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(GENERIC GENERIC-LIGHT-F)
+	(ACTION SEARCH-BEAM-F)>
+
+<ROUTINE SEARCH-BEAM-F ()
+ <COND (<VERB? TURN>
+	<TELL "You didn't tell what direction to aim it." CR>)
+       (<VERB? AIM>
+	<COND (<NOT <FSET? ,SEARCH-BEAM ,ONBIT>>
+	       <TELL "It's not on!" CR>)
+	      (,SUB-IN-BATTLE
+	       <TOO-CLOUDY>)
+	      (<AND <IOBJ? RIGHT> <IN? ,WHALE ,SUB>>
+	       <COND (<FSET? ,WHALE ,INVISIBLE>
+		      <FCLEAR ,WHALE ,INVISIBLE>
+		      <TELL
+"An enormous whale can be seen, lolling comfortably in the deep.">
+		      <COND (,WHALE-HEARD
+			     <TELL
+" Obviously this is what has been making those noises over the hydrophone.">)>
+		      <TELL CR
+"The whale swims closer as you pass, curious about this strange fish -- the "
+D ,SUB ". But, thankfully, it shows no danger of accidental collision." CR>)
+		     (T <TELL "The whale is still following you." CR>)>)
+	      (T <TELL
+"Nothing new appears in the " D ,SEARCH-BEAM " beam." CR>)>)>>
+
+<ROUTINE GENERIC-LIGHT-F (OBJ)
+ <COND (,DEPTH-WARNING ,DEPTHFINDER-LIGHT)
+       (<OR ,SONAR-WARNING ,SHIP-WARNING> ,SONARSCOPE-LIGHT)
+       (<VERB? LAMP-ON LAMP-OFF TURN AIM SAIM> ,SEARCH-BEAM)>>
+
+<OBJECT WHALE
+	(DESC "whale")
+	(SYNONYM WHALE)
+	(FLAGS INVISIBLE NDESCBIT)
+	(ACTION WHALE-F)>
+
+<ROUTINE WHALE-F ()
+ <COND (<VERB? FIND THROUGH WALK-TO>
+	<TELL "You shouldn't get any closer!" CR>)>>
+
+<GLOBAL WHALE-HEARD <>>
+
+<GLOBAL SEA-TERRAIN 1>
+
+<OBJECT OVERHEATING
+	(DESC "overheating")
+	;(IN GLOBAL-OBJECTS)
+	(SYNONYM OVERHEATING)>
+
+<OBJECT BAY
+	(IN SUB)
+	(DESC "Frobton Bay")
+	(ADJECTIVE FROBTON)
+	(SYNONYM BAY SURFACE)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(VALUE 5)
+	(ACTION BAY-F)>
+
+<ROUTINE BAY-F ()
+ <COND (<VERB? FIND THROUGH WALK-TO>
+	<COND (,SUB-IN-TANK
+	       <TELL "First you must launch the " D ,SUB "." CR>)
+	      (<==? ,NOW-TERRAIN ,BAY-TERRAIN>
+	       <TELL "You're in it!" CR>)
+	      (T <TELL "This is no time to go back!" CR>)>)
+       (<VERB? EXAMINE>
+	<COND (<EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>
+	       <PERFORM ,V?LOOK-OUTSIDE ,SUB-WINDOW>
+	       <RTRUE>)
+	      (T
+	       <NOT-HERE ,BAY>
+	       ;<SETG P-WON <>>
+	       ;<TELL "(You can't see any bay here!)" CR>)>)>>
+
+<OBJECT CLAW
+	(IN GLOBAL-OBJECTS)
+	(DESC "extensor claw")
+	(ADJECTIVE EXTENSOR EXTENDER SCIMITAR)
+	(SYNONYM CLAW CLAWS ARM ARMS)
+	(FLAGS VOWELBIT ;SURFACEBIT)
+	(TEXT "(You'll find that information in your SEASTALKER package.)")
+	(ACTION CLAW-F)>
+
+<ROUTINE CLAW-F ()
+ <COND (<VERB? ANALYZE EXAMINE> <LOCAL-SUB-F>)
+       (<VERB? FIND>
+	<TELL "It's part of the " D ,SUB "." CR>)
+       (<VERB? AIM MOVE MOVE-DIR>
+	<COND (<==? ,BAZOOKA <GET ,ON-SUB 0>>
+	       <COND (<==? ,DART <GET ,ON-SUB 1>>
+		      <TELL
+"You should do that to one weapon or the other." CR>)
+		     (T
+		      <PERFORM ,PRSA ,BAZOOKA ,PRSI>
+		      <RTRUE>)>)
+	      (<==? ,DART <GET ,ON-SUB 1>>
+	       <PERFORM ,PRSA ,DART ,PRSI>
+	       <RTRUE>)
+	      (T <TELL
+"The claw moves just where you want it. Well done!" CR>)>)>>
+
+<ROUTINE WHY-NEED (OBJ WHERE)
+ <COND (<AND <VERB? SET> <IOBJ? MANUAL>> <RFALSE>)
+       (<VERB? LAMP-OFF MUNG> <RFALSE>)
+       (T
+	<TELL "Why would you need the " D .OBJ
+	      "? The " D ,SUB " is in the " D .WHERE "." CR>)>>
+
+<OBJECT PILOT-SEAT
+	(IN SUB)
+	(DESC "seat")
+	(SYNONYM SEAT CHAIR)
+	(FLAGS NDESCBIT)
+	(ACTION PILOT-SEAT-F)>
+
+<ROUTINE PILOT-SEAT-F ("AUX" (VAL <>))
+ <COND (<VERB? ANALYZE EXAMINE SIT>
+	<TELL "You're sitting in it." CR>)
+       (<VERB? LOOK-UNDER>
+	<COND (<NOT <FSET? ,OXYGEN-GEAR ,TOUCHBIT>>
+	       <SET VAL T>
+	       <TELL "You can see " D ,OXYGEN-GEAR "." CR>)>
+	<COND (<IN? ,ESCAPE-POD-UNIT ,HERE>
+	       <SET VAL T>
+	       <TELL "You can see the " D ,ESCAPE-POD-UNIT "." CR>)>
+	.VAL)>>
+
+<OBJECT INSTRUMENTS
+	(IN SUB ;LOCAL-GLOBALS)
+	(DESC "instrument cluster")
+	(ADJECTIVE INSTRUMENT)
+	(SYNONYM INSTRUMENT CLUSTER GAUGES)
+	(FLAGS NDESCBIT VOWELBIT)
+	(ACTION INSTRUMENTS-F)>
+
+<ROUTINE INSTRUMENTS-F ()
+ <COND ;(<EQUAL? ,HERE ,CENTER-OF-LAB> <VIDEOPHONE-F>)
+       (<AND ;<EQUAL? ,HERE ,SUB> <VERB? ANALYZE EXAMINE READ>>
+	<TELL
+"Main instruments:|
+" D ,DEPTHFINDER ", " D ,HYDROPHONE ", " D ,SONARSCOPE ;",  D ,VIDEO-SCREEN"
+", and " D ,CONTROL-CIRCUITS-GAUGE "." CR>)>>
+
+<OBJECT CONTROLS-SUB
+	(IN SUB ;LOCAL-GLOBALS)
+	(DESC "control panel")
+	(ADJECTIVE OPERATOR CONTROL)
+	(SYNONYM CONTROL PANEL KNOB KNOBS)
+	(FLAGS NDESCBIT)
+	(ACTION CONTROLS-SUB-F)>
+
+<ROUTINE CONTROLS-SUB-F ()
+ <COND (<AND ;<EQUAL? ,HERE ,SUB> <VERB? ANALYZE EXAMINE READ>>
+	<TELL
+"MAIN OPERATING CONTROLS:|
+">
+	<FIXED-FONT-ON>
+	<TELL D ,REACTOR ;CAPSULE-LEVER "        : "
+	<COND (<FSET? ,REACTOR ,OPENBIT> "open") (T "closed")> CR
+	D ,REACTOR-SWITCH ": "
+	<COND (<FSET? ,REACTOR ,ONBIT> "on") (T "off")> CR
+	D ,FILL-TANK-BUTTON "   : " <TANK-STATUS> CR
+	D ,OPEN-GATE-BUTTON "   : " <GATE-STATUS> CR
+	D ,ENGINE-BUTTON " : "
+	<COND (<FSET? ,ENGINE ,ONBIT> "on") (T "off")> CR
+	D ,THROTTLE "       : "
+	<GET ,THROTTLE-DESCS ,THROTTLE-SETTING> CR
+	D ,JOYSTICK "       : ">
+	<DIR-PRINT ,JOYSTICK-DIR <>>
+	<TELL CR
+	D ,DEPTH-CONTROL "  : "
+	N <* 5 ,TARGET-DEPTH> " meters|
+" D ,AUTO-PILOT "      : "
+	<COND (<FSET? ,AUTO-PILOT ,ONBIT> "on") (T "off")> CR>
+	<FIXED-FONT-OFF>
+	<RTRUE>)>>
+
+<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/syntax.zap b/syntax.zap
index 2e87a43..a249897 100644
--- a/syntax.zap
+++ b/syntax.zap
@@ -1,5 +1,20 @@
 
 
+	.FUNCT	CAPITAL-NOUN?,WRD
+	EQUAL?	WRD,W?DOC,W?TIP,W?RANDALL /TRUE
+	EQUAL?	WRD,W?DOC'S,W?TIP'S,W?BILL'S /TRUE
+	EQUAL?	WRD,W?KEMP'S,W?ZOE'S,W?MARV'S /TRUE
+	EQUAL?	WRD,W?SHARON,W?KEMP,W?ZOE /TRUE
+	EQUAL?	WRD,W?BLY'S,W?AMY'S,W?FROBTON /TRUE
+	EQUAL?	WRD,W?BLY,W?AMY,W?LOWELL /TRUE
+	EQUAL?	WRD,W?MICK'S,W?WALT'S /TRUE
+	EQUAL?	WRD,W?MICK,W?ANTRIM,W?WALT /TRUE
+	EQUAL?	WRD,W?DOCTOR,W?DR,W?MARV /TRUE
+	EQUAL?	WRD,W?SIEGEL,W?BILL,W?GREENUP /TRUE
+	EQUAL?	WRD,W?HORVAK,W?JEROME,W?THORPE /TRUE
+	RFALSE	
+
+
 	.FUNCT	BUZZER-WORD?,WORD
 	CALL	QUESTION-WORD?,WORD
 	ZERO?	STACK \TRUE
diff --git a/syntax.zil b/syntax.zil
index 0d56164..b613098 100644
--- a/syntax.zil
+++ b/syntax.zil
@@ -6,17 +6,20 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 <BUZZ	A AN THE AND OF THEN ONE ;BUT ;EXCEPT \. \, \" \! \? ;Y BACK
 	;CARRYING ;HOLDING FIRST NOW SOON WELL THERE ;YOUR ;YOU PLEASE MAYBE
 	CAREFULLY CLOSELY ;THOROUGHLY QUIETLY SLOWLY QUICKLY BRIEFLY PRIVATELY
-	ALL AGAIN G
-	AM ANY ARE CAN COULD DID DO
-	HAS HAVE HE\'S HOW
-	IS IT\'S I\'LL I\'M I\'VE LET\'S SHALL SHE\'S SHOULD
-	THAT\'S THEY\'RE WAS WERE WE\'RE
-	WHAT WHAT\'S WHEN WHEN\'S WHERE WHICH WHO WHO\'S WHY
-	WILL WON\'T WOULD YOU\'RE
-	ZERO TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN ELEVEN TWELVE THIRTE
-	FOURTE FIFTEE SIXTEE SEVENT EIGHTE NINETE TWENTY THIRTY FORTY
-	FIFTY SIXTY EIGHTY NINETY HUNDRE THOUSA MILLIO BILLIO
-	CURSE CURSES CUSS DAMN SHIT SUCK FUCK FUDGE PISS PEE POO SNOT BASTARD>
+	ALL AGAIN G>
+
+<ROUTINE CAPITAL-NOUN? (WRD)
+	<OR <EQUAL? .WRD ,W?DOC ,W?TIP ,W?RANDALL>
+	    <EQUAL? .WRD ,W?DOC\'S ,W?TIP\'S ,W?BILL\'S>
+	    <EQUAL? .WRD ,W?KEMP\'S ,W?ZOE\'S ,W?MARV\'S>
+	    <EQUAL? .WRD ,W?SHARON ,W?KEMP ,W?ZOE>
+	    <EQUAL? .WRD ,W?BLY\'S ,W?AMY\'S ,W?FROBTON>
+	    <EQUAL? .WRD ,W?BLY ,W?AMY ,W?LOWELL>
+	    <EQUAL? .WRD ,W?MICK\'S ,W?WALT\'S>
+	    <EQUAL? .WRD ,W?MICK ,W?ANTRIM ,W?WALT>
+	    <EQUAL? .WRD ,W?DOCTOR ,W?DR ,W?MARV>
+	    <EQUAL? .WRD ,W?SIEGEL ,W?BILL ,W?GREENUP>
+	    <EQUAL? .WRD ,W?HORVAK ,W?JEROME ,W?THORPE>>>
 
 <ROUTINE BUZZER-WORD? (WORD)
  <COND (<QUESTION-WORD? .WORD> <RTRUE>)
@@ -27,6 +30,12 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	<PRINTB .WORD>
 	<TELL "\".)" CR>)>>
 
+<BUZZ	AM ANY ARE CAN COULD DID DO HAS HAVE HE\'S HOW
+	IS IT\'S I\'LL I\'M I\'VE LET\'S SHALL SHE\'S SHOULD
+	THAT\'S THEY\'RE WAS WERE WE\'RE
+	WHAT WHAT\'S WHEN WHEN\'S WHERE ;WHERE\'S WHICH WHO WHO\'S WHY
+	WILL WON\'T WOULD YOU\'RE>
+
 <GLOBAL QUESTION-WORD-COUNT 0>
 <ROUTINE QUESTION-WORD? (WORD)
 	<COND (<EQUAL? .WORD ,W?WHERE ;",W?THERE ,W?SEEN">
@@ -52,7 +61,7 @@ CR>)
 	       <INC QUESTION-WORD-COUNT>
 	       <COND (<G? ,QUESTION-WORD-COUNT 9>
 		      <SETG QUESTION-WORD-COUNT 0>
-		      %<XTELL
+		      <TELL
 "! Your commands tell the computer what you want to do in the story. You
 can give commands to other people in the story, too. Here are examples
 of commands:|
@@ -61,9 +70,13 @@ of commands:|
    SHARON, GIVE THE BOOK TO TIP|
    BILL, HELP ME|
 Now you can try again.)" CR>)
-		     (T %<XTELL ", not statements or questions.)" CR>)>
+		     (T <TELL ", not statements or questions.)" CR>)>
 	       <RTRUE>)>>
 
+<BUZZ	ZERO TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN ELEVEN TWELVE THIRTE
+	FOURTE FIFTEE SIXTEE SEVENT EIGHTE NINETE TWENTY THIRTY FORTY ;FORTY-
+	FIFTY ;FIFTY- SIXTY ;SIXTY- EIGHTY NINETY HUNDRE THOUSA MILLIO BILLIO>
+
 <ROUTINE NUMBER-WORD? (WRD)
 	<COND (<OR <EQUAL? .WRD ,W?ZERO>
 		   <EQUAL? .WRD ,W?TWO ,W?THREE ,W?FOUR>
@@ -79,6 +92,8 @@ Now you can try again.)" CR>)
 	       <TELL "(Use numerals for numbers, for example \"10.\")" CR>
 	       <RTRUE>)>>
 
+<BUZZ	CURSE CURSES CUSS DAMN SHIT SUCK FUCK FUDGE PISS PEE POO SNOT BASTARD>
+
 <ROUTINE NAUGHTY-WORD? (WORD)
  <COND (<OR <EQUAL? .WORD ,W?CURSE ,W?CURSES ,W?CUSS>
 	    <EQUAL? .WORD ,W?DAMN ,W?SHIT ,W?FUCK>
@@ -91,7 +106,7 @@ Now you can try again.)" CR>)
 	<CRLF>)>>
 
 <GLOBAL OFFENDED
-	<LTABLE "You ought to be ashamed of yourself!"
+	<PLTABLE "You ought to be ashamed of yourself!"
 		"Hey, save that talk for the locker room!"
 		"Step outside and say that!"
 		"And so's your old man!">>
@@ -116,7 +131,7 @@ Now you can try again.)" CR>)
 
 <SYNTAX $VERIFY = V-$VERIFY>
 
-<SYNTAX $DBG = V-DEBUG>
+<SYNTAX \#DBG = V-DEBUG>
 "<SYNTAX \#CODE = V-$CODE>"		"produces secret code from names"
 
 <SYNTAX $BAY = V-$BAY>			"sub in bay"
@@ -124,10 +139,11 @@ Now you can try again.)" CR>)
 "<SYNTAX $DOME = V-$DOME>"		"sub in dome"
 "<SYNTAX $SNARK = V-$SNARK>"		"sub in battle"
 
-<SYNONYM ADJUST TUNE FOCUS>
+<SYNONYM ADJUST TUNE FOCUS CLEAR>
 <SYNTAX ADJUST OBJECT = V-ADJUST>
 <SYNTAX ADJUST OBJECT WITH OBJECT = V-ADJUST>
 <SYNTAX ADJUST IN OBJECT = V-ADJUST>
+<SYNTAX ADJUST UP OBJECT = V-ADJUST>
 
 <SYNONYM AIM POINT>
 <SYNTAX AIM OBJECT	AT OBJECT = V-AIM PRE-AIM>
@@ -221,8 +237,8 @@ Now you can try again.)" CR>)
 	WITH OBJECT
 	= V-CLOSE>
 
-<SYNTAX COME OBJECT = V-COME>
-<SYNTAX COME TO OBJECT = V-COME>
+<SYNTAX COME OBJECT = V-WALK-TO ;V-COME>
+<SYNTAX COME TO OBJECT = V-WALK-TO ;V-COME>
 <SYNTAX COME WITH OBJECT = V-FOLLOW>
 <SYNTAX COME WITH OBJECT TO OBJECT = V-COME-WITH PRE-COME-WITH>
 
@@ -510,7 +526,7 @@ Now you can try again.)" CR>)
 <SYNTAX PLACE OBJECT (CARRIED HELD HAVE) UNDER OBJECT = V-PUT-UNDER>
 "<SYNTAX PLACE OBJECT (CARRIED HELD HAVE) AGAINST OBJECT = V-LEAN>"
 <SYNTAX PLACE DOWN OBJECT (HELD MANY HAVE) = V-DROP>
-<SYNTAX PLACE ON OBJECT (ON-GROUND IN-ROOM) = V-TAKE PRE-TAKE>
+<SYNTAX PLACE ON OBJECT (ON-GROUND IN-ROOM) = V-LAMP-ON>	"PUT ON OBJ"
 
 <SYNONYM QUIT Q>
 <SYNTAX QUIT = V-QUIT>
@@ -616,9 +632,9 @@ Now you can try again.)" CR>)
 <SYNTAX SHOW OBJECT (FIND PERSON) OBJECT = V-SHOW>
 <SYNTAX SHOW OBJECT TO OBJECT (FIND PERSON) = V-SSHOW PRE-SSHOW>
 
-<SYNTAX SIT ON OBJECT (FIND FURNITURE) (ON-GROUND IN-ROOM) = V-SIT>
-<SYNTAX SIT DOWN OBJECT (FIND FURNITURE) (ON-GROUND IN-ROOM) = V-SIT>
-<SYNTAX SIT IN OBJECT (FIND FURNITURE) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT ON OBJECT ;(FIND FURNITURE) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT DOWN OBJECT ;(FIND FURNITURE) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT IN OBJECT ;(FIND FURNITURE) (ON-GROUND IN-ROOM) = V-SIT>
 
 <SYNONYM SLAP HURT INJURE HIT PUNCH KICK BITE>
 <SYNTAX SLAP OBJECT (FIND PERSON) = V-SLAP>
@@ -681,9 +697,9 @@ Now you can try again.)" CR>)
 <SYNTAX TAKE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
 	FROM OBJECT
 	= V-TAKE PRE-TAKE>
-"<SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
 	OFF OBJECT
-	= V-TAKE PRE-TAKE>"
+	= V-TAKE PRE-TAKE>
 <SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
 	OUT ;OF OBJECT (FIND CONTBIT)
 	= V-TAKE PRE-TAKE>
@@ -726,10 +742,10 @@ Now you can try again.)" CR>)
 <SYNONYM TIE FASTEN SECURE ATTACH>
 "<SYNTAX TIE OBJECT TO OBJECT = V-TIE PRE-TIE>"
 <SYNTAX TIE OBJECT (FIND PERSON) (ON-GROUND IN-ROOM)
-	TO OBJECT (FIND FURNITURE) (ON-GROUND IN-ROOM)
+	TO OBJECT ;(FIND FURNITURE) (ON-GROUND IN-ROOM)
 	= V-TIE-TO PRE-TIE-TO>
 <SYNTAX TIE UP OBJECT (FIND PERSON) (ON-GROUND IN-ROOM)
-	TO OBJECT (FIND FURNITURE) (ON-GROUND IN-ROOM)
+	TO OBJECT ;(FIND FURNITURE) (ON-GROUND IN-ROOM)
 	= V-TIE-TO PRE-TIE-TO>
 <SYNTAX TIE OBJECT (FIND PERSON) (ON-GROUND IN-ROOM)
 	WITH OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
@@ -808,24 +824,16 @@ Now you can try again.)" CR>)
 
 <SYNONYM WALK GO RUN PROCEED STEER HEAD DRIVE>
 <SYNTAX WALK  OBJECT = V-WALK>
-<SYNTAX CRAWL OBJECT = V-WALK>
 <SYNTAX WALK  AROUND OBJECT = V-WALK-AROUND>
-<SYNTAX CRAWL AROUND OBJECT = V-WALK-AROUND>
 <SYNTAX WALK  BEHIND OBJECT = V-THROUGH PRE-THROUGH>
-<SYNTAX CRAWL BEHIND OBJECT = V-THROUGH PRE-THROUGH>
 <SYNTAX WALK DOWN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN> "(FIND CLIMBBIT)"
 <SYNTAX WALK  IN OBJECT = V-THROUGH PRE-THROUGH>
-<SYNTAX CRAWL IN OBJECT = V-THROUGH PRE-THROUGH>
 <SYNTAX WALK OBJECT OVER OBJECT = V-RUN-OVER>
 <SYNTAX WALK  OUT ;OF OBJECT = V-LEAVE>
-<SYNTAX CRAWL OUT ;OF OBJECT = V-LEAVE>
 <SYNTAX WALK  TO OBJECT = V-WALK-TO>
-<SYNTAX CRAWL TO OBJECT = V-WALK-TO>
 <SYNTAX WALK  UNDER OBJECT = V-WALK-UNDER>
-<SYNTAX CRAWL UNDER OBJECT = V-WALK-UNDER>
 <SYNTAX WALK UP OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-UP> "(FIND CLIMBBIT)"
 <SYNTAX WALK  THROUGH OBJECT = V-THROUGH PRE-THROUGH>
-<SYNTAX CRAWL THROUGH OBJECT = V-THROUGH PRE-THROUGH>
 <SYNTAX WALK WITH OBJECT = V-FOLLOW>
 
 "<SYNTAX WATCH OBJECT = V-EXAMINE>"
diff --git a/things.zap b/things.zap
index 242f2d6..70a48d4 100644
--- a/things.zap
+++ b/things.zap
@@ -14,7 +14,7 @@
 	SET	'TBL,P-PRSO
 	JUMP	?CND1
 ?ELS11:	SET	'TBL,P-PRSI
-	SET	'PRSO?,0
+	SET	'PRSO?,FALSE-VALUE
 ?CND1:	EQUAL?	PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT \?CND14
 	FSET?	PRSO,PERSON \?CND14
 	IN?	PRSO,GLOBAL-OBJECTS \?CND14
@@ -93,14 +93,14 @@
 	EQUAL?	PRSA,V?GIVE,V?WHAT,V?FIND \?ELS43
 ?THN52:	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS56
 	FSET?	PRSO,PERSON /?CND57
-	SET	'PERSON?,0
+	SET	'PERSON?,FALSE-VALUE
 	PRINTI	"The "
 ?CND57:	PRINTD	PRSO
 	JUMP	?CND54
 ?ELS56:	CALL	QCONTEXT-GOOD?
 	ZERO?	STACK /?ELS65
 	FSET?	QCONTEXT,PERSON /?CND66
-	SET	'PERSON?,0
+	SET	'PERSON?,FALSE-VALUE
 	PRINTI	"The "
 ?CND66:	PRINTD	QCONTEXT
 	JUMP	?CND54
@@ -146,18 +146,14 @@
 ?ELS5:	EQUAL?	PRSO,NOT-HERE-OBJECT \?ELS23
 	GET	P-ITBL,P-NC1 >?TMP1
 	GET	P-ITBL,P-NC1L
-	CALL	BUFFER-PRINT,?TMP1,STACK,0
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
 	RSTACK	
 ?ELS23:	GET	P-ITBL,P-NC2 >?TMP1
 	GET	P-ITBL,P-NC2L
-	CALL	BUFFER-PRINT,?TMP1,STACK,0
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
 	RSTACK	
 
 
-	.FUNCT	NO-TOUCH
-	PRINTR	"Only clods fool around with these things for no good reason."
-
-
 	.FUNCT	THE?,NOUN
 	FSET?	NOUN,PERSON \?ELS9
 	EQUAL?	NOUN,PLAYER \TRUE
@@ -177,16 +173,14 @@
 
 
 	.FUNCT	MAGAZINE-F
-	CALL	REMOTE-VERB?
-	ZERO?	STACK \FALSE
-	EQUAL?	PRSA,V?OPEN \?ELS7
+	EQUAL?	PRSA,V?OPEN,V?LOOK-INSIDE \?ELS5
 	CALL	NOT-HOLDING?,MAGAZINE
 	ZERO?	STACK \TRUE
-?ELS7:	EQUAL?	PRSA,V?LOOK-UP \?ELS11
-	EQUAL?	PRSO,GLOBAL-THORPE \?ELS11
+?ELS5:	EQUAL?	PRSA,V?LOOK-UP \?ELS12
+	EQUAL?	PRSO,GLOBAL-THORPE \?ELS12
 	CALL	PERFORM,V?READ,ARTICLE
 	RTRUE	
-?ELS11:	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE,V?READ \FALSE
+?ELS12:	EQUAL?	PRSA,V?ANALYZE,V?EXAMINE,V?READ \FALSE
 	CALL	NOT-HOLDING?,MAGAZINE
 	ZERO?	STACK \TRUE
 	PRINTI	"""Science World"" is a popular "
@@ -207,13 +201,15 @@ The cover shows "
 	RTRUE	
 ?ELS5:	EQUAL?	PRSA,V?ANALYZE /?THN8
 	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?READ \FALSE
-?THN8:	PRINTI	"It says that "
+?THN8:	CALL	NOT-HOLDING?,MAGAZINE
+	ZERO?	STACK \TRUE
+	PRINTI	"It says that "
 	PRINTD	GLOBAL-THORPE
 	PRINTI	" may have created synthetic forms of marine life by genetic engineering. You learn that Thorpe went into hiding to duck publicity, but before that he told friends he would soon marry "
 	PRINTD	SHARON
 	PRINTR	".
 The form of the creatures is unknown. They may be stimulated by ultrasonic pulses and might be trained to respond to such pulses.
-Some scientists are skeptical, but Thorpe has claimed that one-celled organisms had evolved in his lab from AMINO-HYDROPHASE or AH. If rumors are true, these synthetic sea creatures should be based on the AH molecule."
+Some scientists are skeptical, but Thorpe has claimed that one-celled organisms had evolved in his lab from AMINO-HYDROPHASE or A.H. If rumors are true, these synthetic sea creatures should be based on the A.H. molecule."
 
 
 	.FUNCT	CATALYST-CAPSULE-F
@@ -274,14 +270,14 @@ Some scientists are skeptical, but Thorpe has claimed that one-celled organisms
 	EQUAL?	PRSA,V?TAKE \?ELS8
 	EQUAL?	PRSO,OXYGEN-GEAR \?ELS8
 	CALL	ITAKE
-	EQUAL?	STACK,1 \TRUE
+	EQUAL?	STACK,TRUE-VALUE \TRUE
 	PRINTI	"You're now wearing"
 	CALL	THE-PRSO-PRINT
 	PRINTR	" around your neck."
 ?ELS8:	EQUAL?	PRSA,V?OPEN /?THN18
 	EQUAL?	PRSA,V?USE,V?TURN,V?LAMP-ON \?ELS17
 ?THN18:	FSET?	OXYGEN-GEAR,ONBIT \?ELS22
-	CALL	ALREADY,OXYGEN-GEAR,STR?47
+	CALL	ALREADY,OXYGEN-GEAR,STR?42
 	RTRUE	
 ?ELS22:	CALL	NOT-HOLDING?,OXYGEN-GEAR
 	ZERO?	STACK \TRUE
@@ -319,7 +315,9 @@ Some scientists are skeptical, but Thorpe has claimed that one-celled organisms
 
 
 	.FUNCT	V-$BAY
-	SET	'HERE,SUB
+	ZERO?	SUB-IN-TANK \?CND1
+	PRINTR	"too late"
+?CND1:	SET	'HERE,SUB
 	MOVE	PLAYER,SUB
 	MOVE	TIP,SUB
 	MOVE	CATALYST-CAPSULE,REACTOR
@@ -327,12 +325,12 @@ Some scientists are skeptical, but Thorpe has claimed that one-celled organisms
 	FSET	REACTOR,ONBIT
 	FSET	ENGINE,ONBIT
 	FCLEAR	SUB-DOOR,OPENBIT
-	SET	'MONSTER-GONE,1
+	SET	'MONSTER-GONE,TRUE-VALUE
 	SET	'JOYSTICK-DIR,P?EAST
 	SET	'SUB-DLON,1
 	SET	'SUB-DLAT,0
 	SET	'NOW-TERRAIN,BAY-TERRAIN
-	SET	'SUB-IN-TANK,0
+	SET	'SUB-IN-TANK,FALSE-VALUE
 	CALL	QUEUE,I-UPDATE-SUB-POSITION,-1
 	PUT	STACK,0,1
 	RTRUE	
diff --git a/things.zil b/things.zil
index 5d96da2..80051e9 100644
--- a/things.zil
+++ b/things.zil
@@ -7,7 +7,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	(ACTION NULL-F ;"Place holder")>
 
 <ROUTINE RANDOM-PSEUDO ()
-	 %<XTELL "You can't do anything useful with that." CR>>
+	 <TELL "You can't do anything useful with that." CR>>
 
 <OBJECT NOT-HERE-OBJECT
 	(DESC "that thing")
@@ -117,7 +117,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 		     (T <TELL "Someone">)>
 	       <COND (<NOT .PERSON? ;<FSET? ,PRSO ,PERSON>>
 		      <TELL " isn't connected to any">)
-		     (T %<XTELL
+		     (T <TELL
 " looks confused. \"I don't know anything about any">)>
 	       <NOT-HERE-PRINT>
 	       <TELL "!">
@@ -125,7 +125,7 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	       <CRLF>
 	       <RTRUE>)
 	      (<NOT .PRSO?>
-	       %<XTELL "You wouldn't find any">
+	       <TELL "You wouldn't find any">
 	       <NOT-HERE-PRINT>
 	       <TELL " there." CR>
 	       <RTRUE>)
@@ -140,9 +140,9 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
        (T
 	<BUFFER-PRINT <GET ,P-ITBL ,P-NC2> <GET ,P-ITBL ,P-NC2L> <>>)>>
 
-<ROUTINE NO-TOUCH ()
-	 %<XTELL
-"Only clods fool around with these things for no good reason." CR>>
+;"<ROUTINE NO-TOUCH ()
+	 <TELL
+'Only clods fool around with these things for no good reason.' CR>>"
 
 <ROUTINE THE? (NOUN)
 	<COND (<OR <AND <FSET? .NOUN ,PERSON>
@@ -174,16 +174,14 @@ Copyright (C) 1984 Infocom, Inc.  All rights reserved."
 	(ACTION MAGAZINE-F)>
 
 <ROUTINE MAGAZINE-F ()
- <COND (<REMOTE-VERB?>
+ <COND ;(<REMOTE-VERB?>
 	<RFALSE>)
-       (<AND <VERB? OPEN> <NOT-HOLDING? ,MAGAZINE>>
-	;"<VERB? OPEN> added 4/11/84 by MARC"
-	<RTRUE>)
+       (<VERB? LOOK-INSIDE OPEN>
+	<COND (<NOT-HOLDING? ,MAGAZINE> <RTRUE>)>)
        (<AND <VERB? LOOK-UP> <DOBJ? GLOBAL-THORPE>>
 	<PERFORM ,V?READ ,ARTICLE>
 	<RTRUE>)
-       (<VERB? READ ;"LOOK-INSIDE OPEN" EXAMINE ANALYZE>
-	;"COND added 4/11/84 by MARC"
+       (<VERB? READ EXAMINE ANALYZE>
 	<COND (<NOT-HOLDING? ,MAGAZINE> <RTRUE>)>
 	<TELL
 "\"Science World\" is a popular " D ,MAGAZINE " about new
@@ -209,6 +207,7 @@ forms. The cover says:|
 	<PERFORM ,PRSA ,MAGAZINE ,PRSI>
 	<RTRUE>)
        (<VERB? READ LOOK-INSIDE EXAMINE ANALYZE>
+	<COND (<NOT-HOLDING? ,MAGAZINE> <RTRUE>)>
 	<TELL
 "It says that " D ,GLOBAL-THORPE " may have created synthetic forms of
 marine life by genetic engineering. You learn that Thorpe went into
@@ -217,22 +216,10 @@ marry " D ,SHARON ".|
 The form of the creatures is unknown. They may be stimulated by
 ultrasonic pulses and might be trained to respond to such pulses.|
 Some scientists are skeptical, but Thorpe has claimed that one-celled
-organisms had evolved in his lab from AMINO-HYDROPHASE or AH. If rumors
-are true, these synthetic sea creatures should be based on the AH
+organisms had evolved in his lab from AMINO-HYDROPHASE or A.H. If rumors
+are true, these synthetic sea creatures should be based on the A.H.
 molecule." CR>)>>
 
-;<OBJECT LAMP
-	(IN LOCAL-GLOBALS)
-	(DESC "lamp")
-	(SYNONYM LAMP)
-	(FLAGS NDESCBIT FURNITURE ONBIT)>
-
-;<OBJECT CABINET
-	(IN LOCAL-GLOBALS)
-	(DESC "cabinet")
-	(SYNONYM CABINET)
-	;(ACTION CUPBOARD-F)>
-
 <OBJECT CATALYST-CAPSULE
 	(IN WORK-COUNTER)
 	(DESC "catalyst capsule")
@@ -241,7 +228,6 @@ molecule." CR>)>>
 	(ACTION CATALYST-CAPSULE-F)
 	(FLAGS TAKEBIT)
 	(TEXT "(You'll find that information in your SEASTALKER package.)")
-	;(TEXT "This capsule goes in the reactor in the SCIMITAR.")
 	(SIZE 11)
 	(VALUE 5)>
 
@@ -253,14 +239,13 @@ molecule." CR>)>>
 "It looks as if the " D ,CATALYST-CAPSULE " fits perfectly into the "
 D ,REACTOR "." CR>)
        (<AND <VERB? FIND> <NOT <FSET? ,CATALYST-CAPSULE ,TOUCHBIT>>>
-	%<XTELL
+	<TELL
 "The capsule is usually stored on a " D ,WORK-COUNTER" on the west wall of the
 tank area." CR>)
        (<AND <VERB? PUT> <IOBJ? GLOBAL-SUB LOCAL-SUB>>
-	%<XTELL "You'll have to take it there yourself." CR>)
-       (<AND <VERB? TAKE> <FSET? ,CATALYST-CAPSULE ,TRYTAKEBIT>
-	     ;"<NOT ,SUB-IN-TANK> <NOT <EQUAL? ,NOW-TERRAIN ,BAY-TERRAIN>>">
-	%<XTELL "It's too hot to pick up." CR>)>>
+	<TELL "You'll have to take it there yourself." CR>)
+       (<AND <VERB? TAKE> <FSET? ,CATALYST-CAPSULE ,TRYTAKEBIT>>
+	<TELL "It's too hot to pick up." CR>)>>
 
 <OBJECT OXYGEN-GEAR-OTHER
 	(IN GLOBAL-OBJECTS)
@@ -321,7 +306,7 @@ tank area." CR>)
  <FCLEAR ,OXYGEN-GEAR ,NDESCBIT>
  <COND (<AND <VERB? TAKE> <DOBJ? OXYGEN-GEAR>>
 	<COND (<==? <ITAKE> T>
-		%<XTELL
+		<TELL
 "You're now wearing" THE-PRSO " around your neck." CR>)>
 	<RTRUE>)
        (<VERB? LAMP-ON TURN USE OPEN>
@@ -331,14 +316,14 @@ tank area." CR>)
 	      (<NOT-HOLDING? ,OXYGEN-GEAR>
 	       <RTRUE>)
 	      (<NOT ,DOME-AIR-BAD?>
-	       %<XTELL "You don't need it now!" CR>
+	       <TELL "You don't need it now!" CR>
 	       <RTRUE>)>
 	<FSET ,OXYGEN-GEAR ,ONBIT>
-	%<XTELL
+	<TELL
 "As you open the valve and suck on the rubber straw, you feel your lungs
 filling with pure oxygen.">
 	<COND (<AND ,DOME-AIR-BAD? <CORRIDOR-LOOK ,BLY>>
-	       %<XTELL CR
+	       <TELL CR
 "But you notice Zoe Bly collapsing, and you realize she has
 no " D ,OXYGEN-GEAR ;" around her neck" "!">)>
 	<CRLF>)
@@ -407,6 +392,7 @@ no " D ,OXYGEN-GEAR ;" around her neck" "!">)>
 	<PRINTC <+ *101* <MOD .CH 26>>>>>"
 
 <ROUTINE V-$BAY ()
+	<COND (<NOT ,SUB-IN-TANK> <TELL "too late" CR> <RTRUE>)>
 	<SETG HERE ,SUB>
 	<MOVE ,PLAYER ,SUB>
 	<MOVE ,TIP ,SUB>
diff --git a/ub.gr b/ub.gr
new file mode 100644
index 0000000..5e8d277
--- /dev/null
+++ b/ub.gr
@@ -0,0 +1,30 @@
+@style (spacing 1)
+@title (FEATURES OF THE "SCIMITAR")
+@pageheading(DRAFT)
+@majorheading (FEATURES OF THE "SCIMITAR" - FOR BACKGROUND)
+
+Copyright (C) 1984 Infocom, Inc.  All rights reserved.
+
+@heading (CABIN)
+"You are now in the pilot's seat of the sub, with its operating control
+panel spread out before you. Buzz is in the copilot's seat just behind
+you. A thick-paned wraparound view port, both fore and aft, provides
+a wide angle of vision ahead and astern. TV
+camera eyes and sonar transducers in the hull also enable you to monitor
+your surroundings via video screen and sonarscope.
+There is a sonarphone and a radio. There is also a hydrophone listening
+device."
+
+@heading (INSTRUMENTS)
+@begin (itemize)
+
+CONTROL CIRCUITS TEMPERATURE GAUGE -@*
+"Temperature gauge needle has now entered red danger zone!
+Circuit tester now activated. Push test button for readout."@*
+"Readout display says:
+LASERS IN OPERATIONAL COMPUTERS ARE OVER-CHARGING.
+TO CORRECT, ADJUST VOLTAGE REGULATOR.@*
+** WARNING **@*
+VOLTAGE REGULATOR IS REACHABLE ONLY FROM ENGINE COMPARTMENT CRAWL SPACE.
+THIS IS A HAZARDOUS OPERATION AT SEA! CONSULT MANUAL FOR DETAILS."
+@end (itemize)
diff --git a/ub.mss b/ub.mss
new file mode 100644
index 0000000..5e8d277
--- /dev/null
+++ b/ub.mss
@@ -0,0 +1,30 @@
+@style (spacing 1)
+@title (FEATURES OF THE "SCIMITAR")
+@pageheading(DRAFT)
+@majorheading (FEATURES OF THE "SCIMITAR" - FOR BACKGROUND)
+
+Copyright (C) 1984 Infocom, Inc.  All rights reserved.
+
+@heading (CABIN)
+"You are now in the pilot's seat of the sub, with its operating control
+panel spread out before you. Buzz is in the copilot's seat just behind
+you. A thick-paned wraparound view port, both fore and aft, provides
+a wide angle of vision ahead and astern. TV
+camera eyes and sonar transducers in the hull also enable you to monitor
+your surroundings via video screen and sonarscope.
+There is a sonarphone and a radio. There is also a hydrophone listening
+device."
+
+@heading (INSTRUMENTS)
+@begin (itemize)
+
+CONTROL CIRCUITS TEMPERATURE GAUGE -@*
+"Temperature gauge needle has now entered red danger zone!
+Circuit tester now activated. Push test button for readout."@*
+"Readout display says:
+LASERS IN OPERATIONAL COMPUTERS ARE OVER-CHARGING.
+TO CORRECT, ADJUST VOLTAGE REGULATOR.@*
+** WARNING **@*
+VOLTAGE REGULATOR IS REACHABLE ONLY FROM ENGINE COMPARTMENT CRAWL SPACE.
+THIS IS A HAZARDOUS OPERATION AT SEA! CONSULT MANUAL FOR DETAILS."
+@end (itemize)
diff --git a/verbs.xzap b/verbs.xzap
new file mode 100644
index 0000000..604350f
--- /dev/null
+++ b/verbs.xzap
@@ -0,0 +1,3772 @@
+
+
+	.FUNCT	TRANSCRIPT,STR
+	PRINTI	"Here "
+	PRINT	STR
+	PRINTR	"s a transcript of interaction with"
+
+
+	.FUNCT	V-SCRIPT
+	ZERO?	SCREEN-NOW-SPLIT /?CND1
+	SPLIT	0
+?CND1:
+	GET	0,8
+	BOR	STACK,1
+	PUT	0,8,STACK
+	CALL	TRANSCRIPT,STR?133
+	CALL	V-VERSION
+	CALL	START-SONAR?
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	CALL	TRANSCRIPT,STR?134
+	CALL	V-VERSION
+	GET	0,8
+	BAND	STACK,-2
+	PUT	0,8,STACK
+	RTRUE	
+
+
+	.FUNCT	V-$VERIFY
+	PRINTI	"Verifying disk..."
+	CRLF	
+	VERIFY	 \?ELS7
+	PRINTR	"The disk is correct."
+?ELS7:	PRINTR	"Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)"
+
+
+	.FUNCT	V-DEBUG
+	ZERO?	DEBUG \?PRD6
+	PUSH	1
+	JUMP	?PRD7
+?PRD6:	PUSH	0
+?PRD7:	SET	'DEBUG,STACK
+	ZERO?	DEBUG /?ELS5
+	PRINTR	"Find them bugs, boss!"
+?ELS5:	PRINTR	"No bugs left, eh?"
+
+
+	.FUNCT	YOU-WILL-GET,STR
+	PRINTI	"(Okay, you will get "
+	PRINT	STR
+	PRINTR	" descriptions.)"
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSE,0
+	SET	'SUPER-BRIEF,0
+	SET	'P-SPACE,1
+	CALL	YOU-WILL-GET,STR?125
+	RSTACK	
+
+
+	.FUNCT	V-SUPER-BRIEF
+	SET	'SUPER-BRIEF,1
+	SET	'P-SPACE,0
+	CALL	YOU-WILL-GET,STR?135
+	RSTACK	
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSE,1
+	SET	'SUPER-BRIEF,0
+	SET	'P-SPACE,1
+	CALL	YOU-WILL-GET,STR?136
+	CALL	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-INVENTORY
+	ZERO?	P-WHAT-IGNORED /?ELS5
+	EQUAL?	WINNER,PLAYER /?CND7
+	PRINTI	""""
+?CND7:	PRINTI	"You're the inventor!"
+	EQUAL?	WINNER,PLAYER /?CND14
+	PRINTI	""""
+?CND14:	CRLF	
+	RTRUE	
+?ELS5:	CALL	PRINT-CONT,WINNER
+	ZERO?	STACK \FALSE
+	EQUAL?	WINNER,PLAYER \?ELS23
+	PRINTI	"You're"
+	JUMP	?CND21
+?ELS23:	CALL	HE-SHE-IT,WINNER,1
+	PRINTI	"'s"
+?CND21:	PRINTR	" not holding anything."
+
+
+	.FUNCT	V-QUIT,ASK?=1
+	CALL	V-SCORE
+	ZERO?	ASK? /?ELS9
+	PRINTI	"(If you want to continue from this point at another time, you must ""SAVE"" first.)
+Do you want to stop playing now?"
+	CALL	YES?
+	ZERO?	STACK \?THN6
+?ELS9:	ZERO?	ASK? \?ELS5
+?THN6:	QUIT	
+	RTRUE	
+?ELS5:	PRINTR	"Okay."
+
+
+	.FUNCT	V-RESTART
+	CALL	V-SCORE
+	PRINTI	"Do you want to start over from the beginning?"
+	CALL	YES?
+	ZERO?	STACK /FALSE
+	RESTART	
+	PRINT	FAILED
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-SAVE
+	ZERO?	SCREEN-NOW-SPLIT /?CND1
+	SPLIT	0
+?CND1:	SAVE	 \?ELS7
+	PRINTI	"Okay."
+	CRLF	
+	JUMP	?CND5
+?ELS7:	PRINT	FAILED
+	CRLF	
+?CND5:	CALL	START-SONAR?
+	RSTACK	
+
+
+	.FUNCT	V-RESTORE,OSNS
+	ZERO?	SCREEN-NOW-SPLIT /?CND1
+	SPLIT	0
+?CND1:	RESTORE	 \?ELS9
+	PRINTI	"Okay."
+	CRLF	
+	CALL	START-SONAR?
+	CALL	V-FIRST-LOOK
+	RTRUE	
+?ELS9:	PRINT	FAILED
+	CRLF	
+	CALL	START-SONAR?
+	RFALSE	
+
+
+	.FUNCT	V-FIRST-LOOK
+	CALL	DESCRIBE-ROOM
+	ZERO?	STACK /FALSE
+	ZERO?	SUPER-BRIEF \FALSE
+	CALL	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	V-VERSION,CNT=17
+	PRINTI	"SEASTALKER: "
+	CALL	PRINT-NAME,FIRST-NAME,1
+	PRINTC	32
+	CALL	PRINT-NAME,LAST-NAME,1
+	PRINTI	" AND THE ULTRAMARINE BIOCEPTOR
+Junior-level interactive fiction from Infocom
+Copyright (c) 1984 Infocom, Inc. All rights reserved.
+"
+	GETB	0,1
+	BAND	STACK,8
+	ZERO?	STACK /?CND5
+	PRINTI	"Licensed to Tandy Corporation. Version 00.00.15
+"
+?CND5:	PRINTI	"SEASTALKER is a trademark of Infocom, Inc.
+Revision number "
+	GET	0,1
+	BAND	STACK,2047
+	PRINTN	STACK
+	PRINTI	" / Serial number "
+?PRG14:	IGRTR?	'CNT,23 \?ELS18
+	JUMP	?REP15
+?ELS18:	GETB	0,CNT
+	PRINTC	STACK
+	JUMP	?PRG14
+?REP15:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	YES?,WORD,VAL
+?PRG1:	PRINTI	" >"
+	READ	YES-INBUF,YES-LEXV
+	GET	YES-LEXV,P-LEXSTART >WORD
+	ZERO?	WORD /?CND3
+	CALL	WT?,WORD,PS?VERB,P1?VERB >VAL
+	EQUAL?	VAL,ACT?YES \?ELS8
+	SET	'VAL,1
+	RETURN	VAL
+?ELS8:	EQUAL?	VAL,ACT?NO /?THN11
+	EQUAL?	WORD,W?N \?CND3
+?THN11:	SET	'VAL,0
+	RETURN	VAL
+?CND3:	PRINTI	"(Please type YES or NO.)"
+	JUMP	?PRG1
+
+
+	.FUNCT	YOU-CANT,STR=0,WHILE=0,STR1=0
+	EQUAL?	WINNER,PLAYER \?ELS3
+	PRINTI	"You"
+	JUMP	?CND1
+?ELS3:	CALL	HE-SHE-IT,WINNER,1
+?CND1:	PRINTI	" can't "
+	ZERO?	STR /?ELS12
+	PRINT	STR
+	JUMP	?CND10
+?ELS12:	CALL	VERB-PRINT
+?CND10:	EQUAL?	STR,STR?138 \?ELS22
+	PRINTR	" in that direction."
+?ELS22:	ZERO?	STR1 /?ELS26
+	PRINTI	" it while"
+	ZERO?	WHILE /?ELS32
+	CALL	THIS-IS-IT,WHILE
+	CALL	PRINTT,WHILE
+	JUMP	?CND30
+?ELS32:	PRINTI	" it"
+?CND30:	PRINTI	" is "
+	PRINT	STR1
+	PRINTR	"."
+?ELS26:	CALL	THE-PRSO-PRINT
+	PRINTR	" now."
+
+
+	.FUNCT	DESCRIBE-OBJECT,OBJ,V?,LEVEL,STR=0,AV,NO-CR=0
+	CALL	THIS-IS-IT,OBJ
+	ZERO?	LEVEL \?CND1
+	GETP	OBJ,P?DESCFCN
+	CALL	STACK,M-OBJDESC
+	ZERO?	STACK \TRUE
+?CND1:	ZERO?	LEVEL \?ELS8
+	FSET?	OBJ,TOUCHBIT /?ELS14
+	GETP	OBJ,P?FDESC >STR
+	ZERO?	STR \?THN11
+?ELS14:	GETP	OBJ,P?LDESC >STR
+	ZERO?	STR /?ELS8
+?THN11:	PRINT	STR
+	JUMP	?CND6
+?ELS8:	ZERO?	LEVEL \?ELS18
+	FSET?	OBJ,PERSON \?ELS21
+	CALL	IS-CREW?,OBJ
+	ZERO?	STACK /?ELS24
+	CALL	CREW-5-TOGETHER?
+	ZERO?	STACK /?ELS24
+	FSET?	BLY,MUNGBIT /?ELS24
+	EQUAL?	OBJ,LOWELL \?ELS29
+	PRINTI	"The five "
+	PRINTD	CREW
+	PRINTI	" members are here."
+	JUMP	?CND6
+?ELS29:	SET	'NO-CR,1
+	JUMP	?CND6
+?ELS24:	PRINTD	OBJ
+	PRINTI	" is here."
+	JUMP	?CND6
+?ELS21:	PRINTI	"There's "
+	CALL	PRINTA,OBJ
+	PRINTI	" here."
+	JUMP	?CND6
+?ELS18:	GET	INDENTS,LEVEL
+	PRINT	STACK
+	FSET?	OBJ,PERSON \?ELS48
+	CALL	IS-CREW?,OBJ
+	ZERO?	STACK /?ELS51
+	CALL	CREW-5-TOGETHER?
+	ZERO?	STACK /?ELS51
+	FSET?	BLY,MUNGBIT /?ELS51
+	EQUAL?	OBJ,LOWELL \?ELS56
+	PRINTI	"the five "
+	PRINTD	CREW
+	PRINTI	" members"
+	JUMP	?CND46
+?ELS56:	SET	'NO-CR,1
+	JUMP	?CND46
+?ELS51:	PRINTD	OBJ
+	JUMP	?CND46
+?ELS48:	CALL	PRINTA,OBJ
+?CND46:	EQUAL?	OBJ,OXYGEN-GEAR \?CND6
+	IN?	OXYGEN-GEAR,PLAYER \?CND6
+	PRINTI	" (being worn)"
+?CND6:	ZERO?	LEVEL \?CND76
+	LOC	WINNER >AV
+	ZERO?	AV /?CND76
+	FSET?	AV,VEHBIT \?CND76
+	PRINTI	" (outside"
+	CALL	PRINTT,AV
+	PRINTI	")"
+?CND76:	ZERO?	NO-CR \?CND83
+	CRLF	
+?CND83:	CALL	SEE-INSIDE?,OBJ
+	ZERO?	STACK /FALSE
+	FIRST?	OBJ \FALSE
+	CALL	PRINT-CONT,OBJ,V?,LEVEL
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-OBJECTS,V?=0
+	FIRST?	HERE \FALSE
+	ZERO?	V? /?ORP14
+	PUSH	V?
+	JUMP	?THN11
+?ORP14:	PUSH	VERBOSE
+?THN11:	POP	'V?
+	CALL	PRINT-CONT,HERE,V?,-1
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-ROOM,LOOK?=0,V?,STR,L
+	ZERO?	LOOK? /?ORP4
+	PUSH	LOOK?
+	JUMP	?THN1
+?ORP4:	PUSH	VERBOSE
+?THN1:	POP	'V?
+	FSET?	HERE,TOUCHBIT /?CND5
+	SET	'V?,1
+?CND5:	IN?	HERE,ROOMS \?CND8
+	PRINTI	"("
+	PRINTD	HERE
+	PRINTI	")"
+	CRLF	
+?CND8:	ZERO?	V? /?CND13
+	LOC	WINNER >L
+	FSET?	L,VEHBIT \?CND17
+	PRINTI	"(You're "
+	FSET?	L,SURFACEBIT \?ELS24
+	PRINTI	"sitting o"
+	JUMP	?CND22
+?ELS24:	PRINTI	"standing i"
+?CND22:	PRINTI	"n"
+	CALL	PRINTT,L
+	PRINTI	".)"
+	CRLF	
+?CND17:	ZERO?	V? /?ELS35
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK /?ELS35
+	FSET	HERE,TOUCHBIT
+	RTRUE	
+?ELS35:	ZERO?	V? /?ELS39
+	GETP	HERE,P?FDESC >STR
+	ZERO?	STR /?ELS39
+	PRINT	STR
+	CRLF	
+	JUMP	?CND33
+?ELS39:	ZERO?	V? /?ELS45
+	GETP	HERE,P?LDESC >STR
+	ZERO?	STR /?ELS45
+	PRINT	STR
+	CRLF	
+	JUMP	?CND33
+?ELS45:	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+?CND33:	EQUAL?	HERE,L /?CND13
+	GETP	L,P?ACTION
+	CALL	STACK,M-LOOK
+?CND13:	GETP	HERE,P?CORRIDOR
+	ZERO?	STACK /?CND55
+	CALL	CORRIDOR-LOOK
+?CND55:	FSET	HERE,TOUCHBIT
+	RTRUE	
+
+
+	.FUNCT	FAR-AWAY?,L
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	CALL	IN-LAB-AREA?,HERE
+	ZERO?	STACK /?ELS7
+	CALL	IN-LAB-AREA?,L
+	ZERO?	STACK \FALSE
+	RTRUE	
+?ELS7:	CALL	IN-DOME?,HERE
+	ZERO?	STACK /?ELS11
+	CALL	IN-DOME?,L
+	ZERO?	STACK \FALSE
+	RTRUE	
+?ELS11:	EQUAL?	HERE,SUB,CRAWL-SPACE \?ELS15
+	EQUAL?	L,SUB,CRAWL-SPACE /FALSE
+	RTRUE	
+?ELS15:	PRINTR	"[Foo! Where is HERE?]"
+
+
+	.FUNCT	FIRSTER,OBJ,LEVEL
+	EQUAL?	OBJ,PLAYER \?ELS5
+	PRINTR	"You're holding:"
+?ELS5:	FSET?	OBJ,PERSON \?ELS9
+	PRINTD	OBJ
+	PRINTR	" is holding:"
+?ELS9:	IN?	OBJ,ROOMS /FALSE
+	GRTR?	LEVEL,0 \?CND14
+	GET	INDENTS,LEVEL
+	PRINT	STACK
+?CND14:	FSET?	OBJ,SURFACEBIT \?ELS23
+	PRINTI	"Sitting on"
+	CALL	PRINTT,OBJ
+	PRINTR	" is:"
+?ELS23:	FSET?	OBJ,PERSON \?ELS27
+	PRINTD	OBJ
+	PRINTR	" is holding:"
+?ELS27:	PRINTI	"The "
+	PRINTD	OBJ
+	PRINTR	" contains:"
+
+
+	.FUNCT	GO-NEXT,TBL,VAL
+	CALL	LKP,HERE,TBL >VAL
+	ZERO?	VAL /FALSE
+	CALL	GOTO,VAL
+	RSTACK	
+
+
+	.FUNCT	HAR-HAR
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	HE-SHE-IT,OBJ,CAP=0,VERB=0
+	FSET?	OBJ,PERSON \?ELS3
+	EQUAL?	OBJ,PLAYER \?ELS6
+	ZERO?	CAP /?ELS9
+	PRINTI	"You"
+	JUMP	?CND1
+?ELS9:	PRINTI	"you"
+	JUMP	?CND1
+?ELS6:	FSET?	OBJ,FEMALE \?ELS18
+	ZERO?	CAP /?ELS21
+	PRINTI	"She"
+	JUMP	?CND1
+?ELS21:	PRINTI	"she"
+	JUMP	?CND1
+?ELS18:	ZERO?	CAP /?ELS33
+	PRINTI	"He"
+	JUMP	?CND1
+?ELS33:	PRINTI	"he"
+	JUMP	?CND1
+?ELS3:	ZERO?	CAP /?ELS45
+	PRINTI	"It"
+	JUMP	?CND1
+?ELS45:	PRINTI	"it"
+?CND1:	ZERO?	VERB /FALSE
+	PRINTC	32
+	PRINT	VERB
+	EQUAL?	OBJ,PLAYER /FALSE
+	PRINTI	"s"
+	RTRUE	
+
+
+	.FUNCT	HIM-HER-IT,OBJ,CAP=0
+	FSET?	OBJ,PERSON \?ELS5
+	EQUAL?	OBJ,PLAYER \?ELS10
+	ZERO?	CAP /?ELS15
+	PRINTI	"You"
+	RTRUE	
+?ELS15:	PRINTI	"you"
+	RTRUE	
+?ELS10:	FSET?	OBJ,FEMALE \?ELS24
+	ZERO?	CAP /?ELS29
+	PRINTI	"Her"
+	RTRUE	
+?ELS29:	PRINTI	"her"
+	RTRUE	
+?ELS24:	ZERO?	CAP /?ELS43
+	PRINTI	"Him"
+	RTRUE	
+?ELS43:	PRINTI	"him"
+	RTRUE	
+?ELS5:	ZERO?	CAP /?ELS57
+	PRINTI	"It"
+	RTRUE	
+?ELS57:	PRINTI	"it"
+	RTRUE	
+
+
+	.FUNCT	NOT-HOLDING?,OBJ
+	IN?	OBJ,WINNER /FALSE
+	LOC	OBJ
+	IN?	STACK,WINNER /FALSE
+	CALL	HE-SHE-IT,WINNER,1
+	EQUAL?	WINNER,PLAYER \?ELS10
+	PRINTI	"'re"
+	JUMP	?CND8
+?ELS10:	PRINTI	"'s"
+?CND8:	PRINTI	" not holding"
+	CALL	PRINTT,OBJ
+	PRINTR	"."
+
+
+	.FUNCT	LKP,ITM,TBL,CNT=0,LEN
+	GET	TBL,0 >LEN
+?PRG1:	IGRTR?	'CNT,LEN /FALSE
+	GET	TBL,CNT
+	EQUAL?	STACK,ITM \?PRG1
+	EQUAL?	CNT,LEN /FALSE
+	ADD	CNT,1
+	GET	TBL,STACK
+	RETURN	STACK
+
+
+	.FUNCT	GOTO,RM,V?=1,L,ITARM,ILRM
+	IN?	WINNER,RM \?CND1
+	CALL	HAR-HAR
+	RFALSE	
+?CND1:	CALL	AIR-ROOM?,HERE
+	ZERO?	STACK /?CND4
+	CALL	AIR-ROOM?,RM
+	ZERO?	STACK \?CND4
+	CALL	BAD-AIR?
+	ZERO?	STACK \FALSE
+?CND4:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?CND9
+	EQUAL?	RM,DOME-LAB,BLY-OFFICE \?CND9
+	PRINTI	"You should wait for someone to invite you."
+	CRLF	
+	RFALSE	
+?CND9:	LOC	WINNER >L
+	ZERO?	SUB-IN-DOME /?CND16
+	FSET?	AIRLOCK-ROOF,OPENBIT /?CND16
+	CALL	THROUGH-ROOF?,RM,L
+	ZERO?	STACK /?CND16
+	CALL	THIS-IS-IT,AIRLOCK-ROOF
+	CALL	TOO-BAD-BUT,AIRLOCK-ROOF,STR?17
+	RFALSE	
+?CND16:	EQUAL?	WINNER,PLAYER \?ELS23
+	CALL	TIP-FOLLOWS-YOU,RM
+	JUMP	?CND21
+?ELS23:	FSET?	WINNER,MUNGBIT \?ELS25
+	PRINTI	"""I wish I could!"""
+	CRLF	
+	RFALSE	
+?ELS25:	EQUAL?	RM,CRAWL-SPACE /?THN30
+	EQUAL?	RM,SUB \?CND21
+	EQUAL?	WINNER,TIP,SHARON /?CND21
+?THN30:	PRINTI	"""You belong in there, not I!"""
+	CRLF	
+	RFALSE	
+?CND21:	ZERO?	SUB-IN-TANK \?ELS38
+	CALL	OPEN-DOOR,L
+	CALL	OPEN-DOOR,RM
+	JUMP	?CND36
+?ELS38:	CALL	IN-TANK-AREA?,RM >ITARM
+	CALL	IN-LAB?,RM >ILRM
+	CALL	IN-TANK-AREA?,L
+	ZERO?	STACK /?ELS43
+	ZERO?	ITARM \?CND44
+	FSET	SOUTH-DOORWAY,OPENBIT
+?CND44:	ZERO?	ILRM \?CND47
+	FSET	EAST-DOORWAY,OPENBIT
+?CND47:	EQUAL?	RM,LAB-STORAGE \?CND41
+	FSET	STORAGE-DOOR,OPENBIT
+	JUMP	?CND41
+?ELS43:	CALL	IN-LAB?,L
+	ZERO?	STACK /?ELS54
+	ZERO?	ITARM /?ELS57
+	FSET	SOUTH-DOORWAY,OPENBIT
+	JUMP	?CND41
+?ELS57:	ZERO?	ILRM \?CND61
+	FSET	EAST-DOORWAY,OPENBIT
+?CND61:	EQUAL?	RM,LAB-STORAGE \?CND36
+	FSET	STORAGE-DOOR,OPENBIT
+	JUMP	?CND36
+?ELS54:	EQUAL?	L,HALLWAY,OFFICE \?ELS68
+	ZERO?	ITARM /?CND69
+	FSET	EAST-DOORWAY,OPENBIT
+	FSET	SOUTH-DOORWAY,OPENBIT
+?CND69:	ZERO?	ILRM /?CND73
+	FSET	EAST-DOORWAY,OPENBIT
+?CND73:	EQUAL?	RM,LAB-STORAGE \?CND41
+	FSET	STORAGE-DOOR,OPENBIT
+	JUMP	?CND41
+?ELS68:	EQUAL?	L,LAB-STORAGE \?CND36
+	ZERO?	ITARM /?CND82
+	FSET	EAST-DOORWAY,OPENBIT
+	FSET	SOUTH-DOORWAY,OPENBIT
+?CND82:	ZERO?	ILRM /?CND86
+	FSET	EAST-DOORWAY,OPENBIT
+?CND86:	FSET	STORAGE-DOOR,OPENBIT
+?CND41:	
+?CND36:	MOVE	WINNER,RM
+	EQUAL?	WINNER,SHARON \?CND93
+	EQUAL?	RM,OFFICE \?ELS98
+	FSET	SHARON,NDESCBIT
+	FSET	FILE-DRAWER,NDESCBIT
+	FSET	PAPERS,NDESCBIT
+	JUMP	?CND93
+?ELS98:	FCLEAR	SHARON,NDESCBIT
+	FCLEAR	FILE-DRAWER,NDESCBIT
+	FCLEAR	PAPERS,NDESCBIT
+?CND93:	SET	'LIT,1
+	EQUAL?	WINNER,PLAYER \TRUE
+	SET	'HERE,RM
+	ZERO?	V? /?CND104
+	CALL	V-FIRST-LOOK
+?CND104:	GETP	HERE,P?ACTION
+	CALL	STACK,M-ENTER
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+	RTRUE	
+
+
+	.FUNCT	OPEN-DOOR,RM,T,DR
+	EQUAL?	RM,OFFICE,SUB /TRUE
+	EQUAL?	RM,AIRLOCK \?ELS7
+	FSET	AIRLOCK-ROOF,OPENBIT
+	RTRUE	
+?ELS7:	GETPT	RM,P?GLOBAL >T
+	ZERO?	T /FALSE
+	PTSIZE	T
+	SUB	STACK,1
+	CALL	ZMEMQBIT,DOORBIT,T,STACK >DR
+	ZERO?	DR /FALSE
+	FSET	DR,OPENBIT
+	RTRUE	
+
+
+	.FUNCT	HACK-HACK,STR
+	PRINT	STR
+	CALL	THE-PRSO-PRINT
+	CALL	PICK-ONE,HO-HUM
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	HELD?,OBJ
+?PRG1:	LOC	OBJ
+	ZERO?	STACK /FALSE
+	LOC	OBJ
+	EQUAL?	STACK,ROOMS,GLOBAL-OBJECTS /FALSE
+	IN?	OBJ,WINNER /TRUE
+	LOC	OBJ >OBJ
+	JUMP	?PRG1
+
+
+	.FUNCT	IDROP
+	FSET?	PRSO,PERSON \?ELS5
+	EQUAL?	PRSO,PLAYER \?ELS8
+	PRINTI	"You"
+	JUMP	?CND6
+?ELS8:	PRINTD	PRSO
+?CND6:	PRINTI	" wouldn't enjoy that."
+	CRLF	
+	RFALSE	
+?ELS5:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \FALSE
+	IN?	PRSO,WINNER /?ELS20
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?ELS20
+	LOC	PRSO
+	CALL	TOO-BAD-BUT,STACK,STR?17
+	RFALSE	
+?ELS20:	MOVE	PRSO,HERE
+	FCLEAR	PRSO,NDESCBIT
+	FCLEAR	PRSO,INVISIBLE
+	RTRUE	
+
+
+	.FUNCT	ITAKE,VB=1,CNT,OBJ,TEMP,?TMP1
+	FSET?	PRSO,TAKEBIT /?ELS5
+	ZERO?	VB /FALSE
+	CALL	YOU-CANT,STR?19
+	RFALSE	
+?ELS5:	CALL	CCOUNT,WINNER >CNT
+	GRTR?	CNT,FUMBLE-NUMBER \?ELS11
+	MUL	CNT,FUMBLE-PROB >?TMP1
+	RANDOM	100
+	GRTR?	?TMP1,STACK \?ELS11
+	FIRST?	WINNER >OBJ /?KLU36
+?KLU36:	CALL	TOO-BAD-BUT,OBJ
+	PRINTI	" slips from your arms while you are taking"
+	CALL	THE-PRSO-PRINT
+	PRINTI	", and both tumble "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	"."
+	CRLF	
+	MOVE	OBJ,HERE
+	MOVE	PRSO,HERE
+	RETURN	2
+?ELS11:	SET	'ITAKE-LOC,0
+	LOC	PRSO >OBJ
+	FSET?	OBJ,PERSON \?CND20
+	ZERO?	VB /?ELS25
+	PRINTD	OBJ
+	PRINTI	" gives it to "
+	CALL	HIM-HER-IT,WINNER
+	PRINTI	". "
+	JUMP	?CND20
+?ELS25:	SET	'ITAKE-LOC,OBJ
+?CND20:	MOVE	PRSO,WINNER
+	FSET	PRSO,TOUCHBIT
+	FCLEAR	PRSO,NDESCBIT
+	FCLEAR	PRSO,INVISIBLE
+	EQUAL?	WINNER,PLAYER \TRUE
+	CALL	SCORE-OBJ,PRSO
+	RTRUE	
+
+
+	.FUNCT	CCOUNT,OBJ,CNT=0,X
+	FIRST?	OBJ >X \?CND1
+?PRG4:	INC	'CNT
+	NEXT?	X >X /?PRG4
+?CND1:	RETURN	CNT
+
+
+	.FUNCT	CHECK-DOOR
+	PRINTI	"You can see that"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" is "
+	FSET?	PRSO,OPENBIT \?ELS7
+	PUSH	STR?23
+	JUMP	?CND3
+?ELS7:	PUSH	STR?17
+?CND3:	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	CHECK-ON-OFF
+	PRINTI	"You can see that"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" is o"
+	FSET?	PRSO,ONBIT \?ELS7
+	PUSH	STR?45
+	JUMP	?CND3
+?ELS7:	PUSH	STR?46
+?CND3:	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	NOT-HERE,OBJ
+	PRINTI	"You can't see"
+	CALL	PRINTT,OBJ
+	PRINTR	" here."
+
+
+	.FUNCT	PRINT-CONT,OBJ,V?=0,LEVEL=0,Y,1ST?,AV,STR=0,PV?=0,INV?=0,VAL=0
+	FIRST?	OBJ >Y \FALSE
+	LOC	WINNER >AV
+	ZERO?	AV /?ELS6
+	FSET?	AV,VEHBIT \?ELS6
+	JUMP	?CND4
+?ELS6:	SET	'AV,0
+?CND4:	SET	'1ST?,1
+	LOC	OBJ
+	EQUAL?	WINNER,OBJ,STACK \?ELS13
+	SET	'INV?,1
+	JUMP	?CND11
+?ELS13:	
+?PRG16:	ZERO?	Y \?ELS20
+	JUMP	?CND11
+?ELS20:	EQUAL?	Y,AV \?ELS22
+	SET	'PV?,1
+	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
+	FSET?	Y,NDESCBIT \?THN34
+	ZERO?	DEBUG /?CND31
+	PRINTI	"[ndescbit] "
+?THN34:	SET	'1ST?,0
+	SET	'LEVEL,0
+	ZERO?	STR /?CND31
+	PRINT	STR
+	CRLF	
+	SET	'STR,0
+	SET	'VAL,1
+	CALL	THIS-IS-IT,Y
+?CND31:	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
+	ZERO?	STACK /?CND46
+	SET	'VAL,1
+?CND46:	
+?CND18:	NEXT?	Y >Y /?KLU101
+?KLU101:	JUMP	?PRG16
+?CND11:	FIRST?	OBJ >Y /?KLU102
+?KLU102:	
+?PRG54:	ZERO?	Y \?ELS58
+	ZERO?	PV? /?CND59
+	ZERO?	AV /?CND59
+	FIRST?	AV \?CND59
+	CALL	PRINT-CONT,AV,V?,LEVEL
+	ZERO?	STACK /?CND59
+	SET	'VAL,1
+?CND59:	RETURN	VAL
+?ELS58:	EQUAL?	Y,AV,PLAYER \?ELS68
+	JUMP	?CND56
+?ELS68:	FSET?	Y,INVISIBLE /?CND56
+	ZERO?	INV? \?THN73
+	FSET?	Y,TOUCHBIT /?THN73
+	GETP	Y,P?FDESC
+	ZERO?	STACK \?CND56
+?THN73:	FSET?	Y,NDESCBIT \?THN78
+	ZERO?	DEBUG /?ELS77
+	PRINTI	"[ndescbit] "
+?THN78:	ZERO?	1ST? /?CND84
+	CALL	FIRSTER,OBJ,LEVEL
+	ZERO?	STACK /?CND88
+	LESS?	LEVEL,0 \?CND88
+	SET	'LEVEL,0
+?CND88:	INC	'LEVEL
+	SET	'1ST?,0
+?CND84:	SET	'VAL,1
+	CALL	DESCRIBE-OBJECT,Y,V?,LEVEL
+	JUMP	?CND56
+?ELS77:	FIRST?	Y \?CND56
+	CALL	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND56
+	CALL	PRINT-CONT,Y,V?,LEVEL
+	ZERO?	STACK /?CND75
+	SET	'VAL,1
+?CND75:	
+?CND56:	NEXT?	Y >Y /?KLU103
+?KLU103:	JUMP	?PRG54
+
+
+	.FUNCT	PRINT-CONTENTS,OBJ,F,N,1ST?=1
+	FIRST?	OBJ >F \FALSE
+?PRG6:	NEXT?	F >N /?KLU33
+?KLU33:	ZERO?	1ST? /?ELS10
+	SET	'1ST?,0
+	JUMP	?CND8
+?ELS10:	PRINTI	", "
+	ZERO?	N \?CND8
+	PRINTI	"and "
+?CND8:	FSET?	F,PERSON \?ELS23
+	PRINTD	F
+	JUMP	?CND21
+?ELS23:	CALL	PRINTA,F
+?CND21:	CALL	THIS-IS-IT,F
+	SET	'F,N
+	ZERO?	F \?PRG6
+	RTRUE	
+
+
+	.FUNCT	ROOM-CHECK,P
+	SET	'P,PRSO
+	EQUAL?	P,DOCKING-TANK \?CND1
+	EQUAL?	HERE,AIRLOCK \?CND1
+	SET	'P,HERE
+?CND1:	IN?	P,ROOMS \?ELS10
+	EQUAL?	P,HERE \?ELS15
+	CALL	PERFORM,PRSA,GLOBAL-HERE,PRSI
+	RTRUE	
+?ELS15:	EQUAL?	P,AIRLOCK \?ELS17
+	CALL	GLOBAL-IN?,FILL-TANK-BUTTON,HERE
+	ZERO?	STACK \FALSE
+?ELS17:	PRINTR	"You aren't in that place!"
+?ELS10:	EQUAL?	P,PSEUDO-OBJECT /FALSE
+	CALL	META-LOC,P
+	EQUAL?	STACK,HERE,GLOBAL-OBJECTS,LOCAL-GLOBALS /FALSE
+	CALL	CORRIDOR-LOOK,P
+	ZERO?	STACK \FALSE
+	FSET?	P,PERSON \?ELS34
+	IN?	P,GLOBAL-OBJECTS \?ELS34
+	GETP	P,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >P
+	CALL	CORRIDOR-LOOK,P
+	ZERO?	STACK \FALSE
+	CALL	NOT-HERE,P
+	RSTACK	
+?ELS34:	CALL	NOT-HERE,P
+	RSTACK	
+
+
+	.FUNCT	SEE-INSIDE?,OBJ
+	FSET?	OBJ,INVISIBLE /FALSE
+	FSET?	OBJ,TRANSBIT /TRUE
+	FSET?	OBJ,OPENBIT /TRUE
+	FSET?	OBJ,SURFACEBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	NOT-ACCESSIBLE?,OBJ
+	CALL	META-LOC,OBJ
+	EQUAL?	STACK,WINNER,HERE,GLOBAL-OBJECTS /FALSE
+	CALL	VISIBLE?,OBJ
+	ZERO?	STACK /TRUE
+	RFALSE	
+
+
+	.FUNCT	ARENT-TALKING
+	PRINTR	"You aren't talking to anyone!"
+
+
+	.FUNCT	ALREADY,OBJ,STR=0
+	EQUAL?	OBJ,PLAYER \?ELS3
+	PRINTI	"You're"
+	JUMP	?CND1
+?ELS3:	FSET?	OBJ,PERSON \?ELS7
+	PRINTD	OBJ
+	PRINTI	" is"
+	JUMP	?CND1
+?ELS7:	PRINTI	"It's"
+?CND1:	PRINTI	" already "
+	ZERO?	STR /TRUE
+	PRINT	STR
+	PRINTR	"!"
+
+
+	.FUNCT	NOT-CLEAR-WHOM
+	PRINTR	"It's not clear whom you're talking to."
+
+
+	.FUNCT	OKAY,OBJ=0,STR=0
+	EQUAL?	WINNER,PLAYER \?ELS3
+	EQUAL?	PRSA,V?WALK-TO,V?WALK,V?THROUGH \?CND1
+	RTRUE	
+?ELS3:	PRINTI	""""
+?CND1:	PRINTI	"Okay"
+	ZERO?	OBJ /?CND13
+	PRINTI	","
+	CALL	PRINTT,OBJ
+	ZERO?	STR /?CND19
+	PRINTI	" is now "
+	PRINT	STR
+?CND19:	EQUAL?	STR,STR?47 \?ELS27
+	FSET	OBJ,ONBIT
+	JUMP	?CND13
+?ELS27:	EQUAL?	STR,STR?44 \?ELS29
+	FCLEAR	OBJ,ONBIT
+	JUMP	?CND13
+?ELS29:	EQUAL?	STR,STR?23 \?ELS31
+	FSET	OBJ,OPENBIT
+	JUMP	?CND13
+?ELS31:	EQUAL?	STR,STR?17 \?CND13
+	FCLEAR	OBJ,OPENBIT
+?CND13:	ZERO?	STR \?THN37
+	ZERO?	OBJ \TRUE
+?THN37:	PRINTI	"."
+	EQUAL?	WINNER,PLAYER /?CND41
+	PRINTI	""""
+?CND41:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WONT-HELP-TO-TALK-TO,OBJ
+	PRINTI	"It won't help to talk to "
+	CALL	PRINTA,OBJ
+	PRINTR	"!"
+
+
+	.FUNCT	TOO-BAD-BUT,OBJ,STR=0
+	PRINTI	"Too bad, but"
+	CALL	PRINTT,OBJ
+	ZERO?	STR /TRUE
+	PRINTI	" is "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	VISIBLE?,OBJ,L
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	EQUAL?	L,GLOBAL-OBJECTS /FALSE
+	EQUAL?	L,WINNER,HERE /TRUE
+	EQUAL?	L,LOCAL-GLOBALS \?ELS11
+	CALL	GLOBAL-IN?,OBJ,HERE
+	ZERO?	STACK \TRUE
+?ELS11:	CALL	CORRIDOR-LOOK,OBJ
+	ZERO?	STACK \TRUE
+	CALL	SEE-INSIDE?,L
+	ZERO?	STACK /FALSE
+	CALL	VISIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	WEIGHT,OBJ,CONT,WT=0
+	FIRST?	OBJ >CONT \?CND1
+?PRG4:	CALL	WEIGHT,CONT
+	ADD	WT,STACK >WT
+	NEXT?	CONT >CONT /?PRG4
+?CND1:	GETP	OBJ,P?SIZE
+	ADD	WT,STACK
+	RSTACK	
+
+
+	.FUNCT	V-ADJUST
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SAIM
+	CALL	PERFORM,V?AIM,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SAIM
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-AIM
+	EQUAL?	PRSI,RIGHT,LEFT \?ELS5
+	EQUAL?	PRSO,BAZOOKA,DART \FALSE
+	PRINTR	"You can aim that only at an enemy."
+?ELS5:	EQUAL?	PRSI,GLOBAL-SNARK \?ELS14
+	PRINTR	"You can't see the Snark!"
+?ELS14:	EQUAL?	PRSI,SNARK,GLOBAL-THORPE,THORPE-SUB /FALSE
+	EQUAL?	PRSO,JOYSTICK \?ELS20
+	CALL	PERFORM,V?MOVE-DIR,PRSO,PRSI
+	RTRUE	
+?ELS20:	PRINTR	"You can aim something only to the left (port) or right (starboard), or at an enemy."
+
+
+	.FUNCT	V-AIM
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SANALYZE
+	CALL	PERFORM,V?ANALYZE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SANALYZE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-ANALYZE
+	FSET?	PRSO,PERSON \?ELS5
+	PRINTR	"How?"
+?ELS5:	IN?	COMPUTESTOR,HERE \?ELS9
+	CALL	PERFORM,V?ASK-ABOUT,COMPUTESTOR,PRSO
+	RTRUE	
+?ELS9:	FSET?	PRSO,ON?BIT \?ELS11
+	CALL	CHECK-ON-OFF
+	RSTACK	
+?ELS11:	FSET?	PRSO,DOORBIT \?ELS13
+	CALL	CHECK-DOOR
+	RSTACK	
+?ELS13:	PRINTR	"It looks normal."
+
+
+	.FUNCT	V-ANSWER
+	PRINTI	"Nobody seems to be waiting for your answer."
+	CRLF	
+	SET	'P-CONT,0
+	SET	'QUOTE-FLAG,0
+	RTRUE	
+
+
+	.FUNCT	V-REPLY
+	SET	'P-CONT,0
+	SET	'QUOTE-FLAG,0
+	FSET?	PRSO,DOORBIT \?ELS5
+	PRINTI	"No one's knocking at"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS5:	FSET?	PRSO,PERSON \?ELS9
+	CALL	WAITING-FOR-YOU-TO-SPEAK
+	RSTACK	
+?ELS9:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	WAITING-FOR-YOU-TO-SPEAK
+	CALL	HE-SHE-IT,PRSO,1,STR?158
+	PRINTR	" to be waiting for you to speak."
+
+
+	.FUNCT	V-ARM
+	EQUAL?	PRSO,GLOBAL-SUB,LOCAL-SUB \?ELS5
+	PRINTR	"How?"
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-ARREST
+	FSET?	PRSO,PERSON \?THN6
+	ZERO?	PRSI /?ELS5
+	EQUAL?	PRSI,GLOBAL-SABOTAGE /?ELS5
+?THN6:	PRINTI	"What a detective! ""Quick! Arrest that "
+	PRINTD	PRSO
+	ZERO?	PRSI /?CND12
+	PRINTI	" for "
+	PRINTD	PRSI
+?CND12:	PRINTI	" before "
+	CALL	HE-SHE-IT,PRSO,0,STR?159
+	PRINTR	"!"""
+?ELS5:	ZERO?	DOME-AIR-CRIME \?ELS23
+	ZERO?	GREENUP-GUILT \?ELS23
+	PRINTR	"For what? You have no evidence of a crime yet."
+?ELS23:	IN?	PRSO,GLOBAL-OBJECTS \FALSE
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >PRSO
+	RFALSE	
+
+
+	.FUNCT	V-ARREST
+	EQUAL?	PRSO,GLOBAL-GREENUP,GREENUP \?ELS5
+	ZERO?	GREENUP-ESCAPE \?THN11
+	ZERO?	GREENUP-TRAPPED \?THN11
+	ZERO?	GREENUP-CUFFED /?ELS10
+?THN11:	PRINTR	"Once is enough!"
+?ELS10:	ZERO?	GREENUP-GUILT \?ELS16
+	PRINTR	"You don't have any evidence."
+?ELS16:	ZERO?	SUB-IN-DOME /?THN21
+	ZERO?	AIRLOCK-FULL /?ELS20
+?THN21:	CALL	TOO-BAD-BUT,PRSO,STR?16
+	RSTACK	
+?ELS20:	EQUAL?	PRSO,GLOBAL-GREENUP \?ELS27
+	PRINTI	"You barely issue this order when"
+	JUMP	?CND25
+?ELS27:	PRINTI	"Greenup turns and runs away. Then"
+?CND25:	REMOVE	GREENUP
+	FSET	GREENUP,MUNGBIT
+	PRINTI	" a crew member reports seeing Greenup running behind the dormitory. ""He's going to try to escape in the "
+	PRINTD	SUB
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!""
+"
+	PRINTD	BLY
+	PRINTI	" adds: """
+	EQUAL?	HERE,BLY-OFFICE /?CND36
+	PRINTI	"Come to my office, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! "
+?CND36:	PRINTI	"We can see him on the "
+	PRINTD	STATION-MONITOR
+	PRINTI	"! The "
+	PRINTD	CONTROLS-OFFICE
+	PRINTI	" is "
+	EQUAL?	HERE,BLY-OFFICE /?CND43
+	PRINTI	"t"
+?CND43:	PRINTI	"here, too!"""
+	CRLF	
+	MOVE	BLY,BLY-OFFICE
+	SET	'WINNER,PLAYER
+	CALL	QUEUE,I-GREENUP-ESCAPE,3
+	PUT	STACK,0,1
+	EQUAL?	HERE,BLY-OFFICE /?THN53
+	CALL	GOTO,BLY-OFFICE
+	ZERO?	STACK /TRUE
+?THN53:	SET	'GREENUP-ESCAPE,1
+	CALL	SCORE-OBJ,GREENUP
+	RTRUE	
+?ELS5:	PRINTI	"You don't have enough evidence to arrest"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	PRE-ASK
+	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-ASK
+	ZERO?	P-CONT /?ELS5
+	FSET?	PRSO,PERSON \?ELS5
+	SET	'WINNER,PRSO
+	SET	'QCONTEXT,PRSO
+	SET	'QCONTEXT-ROOM,HERE
+	RTRUE	
+?ELS5:	CALL	V-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-ABOUT,L
+	CALL	META-LOC,PRSO >L
+	EQUAL?	L,CENTER-OF-LAB \?ELS3
+	EQUAL?	PRSO,REMOTE-PERSON \?ELS3
+	FSET?	MICROPHONE,ONBIT /?ELS3
+	CALL	THIS-IS-IT,MICROPHONE
+	PRINTI	"She can't hear you while your "
+	PRINTD	MICROPHONE
+	PRINTR	" is off."
+?ELS3:	EQUAL?	PRSO,COMPUTESTOR \?ELS9
+	FSET?	COMPUTESTOR,ONBIT /?ELS9
+	CALL	THIS-IS-IT,COMPUTESTOR
+	PRINTI	"The "
+	PRINTD	COMPUTESTOR
+	PRINTR	" is off!"
+?ELS9:	EQUAL?	L,HERE /FALSE
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \FALSE
+?CND1:	PRINTI	"Sorry, but"
+	CALL	THE-PRSO-PRINT
+	CALL	NOT-HERE-PERSON,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-ABOUT
+	EQUAL?	PRSO,PLAYER /?THN6
+	FSET?	PRSO,PERSON /?ELS5
+?THN6:	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RETURN	2
+?ELS5:	EQUAL?	PRSA,V?ASK \?ELS11
+	PRINTI	"""Ask me about something in particular, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."""
+?ELS11:	PRINTD	PRSO
+	PRINTR	" doesn't seem to know about that."
+
+
+	.FUNCT	PRE-ASK-CONTEXT-ABOUT,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
+	RTRUE	
+?ELS5:	IN?	COMPUTESTOR,HERE \?ELS7
+	FSET?	COMPUTESTOR,ONBIT \?ELS7
+	CALL	PERFORM,V?ASK-ABOUT,COMPUTESTOR,PRSO
+	RTRUE	
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /FALSE
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-ABOUT
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-FOR
+	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-ASK-FOR
+	FSET?	PRSO,PERSON \?ELS5
+	EQUAL?	PRSO,PLAYER /?ELS5
+	PRINTD	PRSO
+	IN?	PRSI,PRSO \?ELS14
+	PRINTI	" hands you"
+	CALL	THE-PRSI-PRINT
+	PRINTI	"."
+	CRLF	
+	MOVE	PRSI,WINNER
+	RTRUE	
+?ELS14:	PRINTR	" doesn't have that."
+?ELS5:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-CONTEXT-FOR,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	CALL	PERFORM,V?ASK-FOR,QCONTEXT,PRSO
+	RTRUE	
+?ELS5:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /FALSE
+	CALL	PERFORM,V?ASK-FOR,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-FOR
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-ATTACK
+	CALL	IKILL,STR?160
+	RSTACK	
+
+
+	.FUNCT	PRE-BRING
+	EQUAL?	PRSI,0,PLAYER,GLOBAL-HERE /FALSE
+	SET	'P-WON,0
+	PRINTR	"(Sorry, but I don't understand.)"
+
+
+	.FUNCT	V-BRING
+	CALL	V-TAKE
+	RSTACK	
+
+
+	.FUNCT	PRE-SBRING
+	CALL	PERFORM,V?BRING,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SBRING
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-BRUSH
+	PRINTR	"""Cleanliness is next to Godliness,"" but here it's next to Impossible."
+
+
+	.FUNCT	V-$CALL,PER
+	SET	'PER,PRSO
+	EQUAL?	PER,PLAYER \?ELS5
+	CALL	WONT-HELP-TO-TALK-TO,PER
+	RSTACK	
+?ELS5:	FSET?	PER,PERSON \?ELS7
+	EQUAL?	PRSO,REMOTE-PERSON /?CND8
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >PER
+?CND8:	CALL	META-LOC,PER
+	EQUAL?	STACK,HERE /?THN16
+	CALL	CORRIDOR-LOOK,PER
+	ZERO?	STACK /?ELS15
+?THN16:	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK /TRUE
+	PRINTD	PER
+	PRINTR	" is listening."
+?ELS15:	CALL	NOT-HERE,PER
+	RSTACK	
+?ELS7:	SET	'P-WON,0
+	CALL	MISSING-VERB
+	RSTACK	
+
+
+	.FUNCT	PRE-PHONE,P,PP
+	ZERO?	PRSI /?ELS5
+	EQUAL?	PRSI,MICROPHONE-DOME,MICROPHONE \?ELS5
+	CALL	PERFORM,PRSA,PRSO,VIDEOPHONE
+	RTRUE	
+?ELS5:	ZERO?	PRSI /?ELS9
+	EQUAL?	PRSI,SONARPHONE,VIDEOPHONE,INTERCOM \?ELS9
+	EQUAL?	REMOTE-PERSON-ON,PRSI \?ELS16
+	PRINTI	"You're still on the line to "
+	PRINTD	REMOTE-PERSON
+	PRINTR	"."
+?ELS16:	FSET?	PRSI,MUNGBIT \?ELS20
+	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTR	"'s conked out!"
+?ELS20:	EQUAL?	PRSI,SONARPHONE /FALSE
+	CALL	GLOBAL-IN?,PRSI,HERE
+	ZERO?	STACK \FALSE
+	PRINTI	"There's no "
+	PRINTD	PRSI
+	PRINTR	" here."
+?ELS9:	ZERO?	PRSI /?ELS32
+	CALL	TOO-BAD-BUT,PRSI,STR?161
+	RSTACK	
+?ELS32:	FSET?	PRSO,PERSON \?ELS41
+	IN?	PRSO,HERE \?ELS41
+	CALL	BITE-YOU
+	RSTACK	
+?ELS41:	EQUAL?	PRSO,PLAYER \?ELS45
+	CALL	HAR-HAR
+	RSTACK	
+?ELS45:	FSET?	PRSO,PERSON \?ELS49
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >P
+	ZERO?	P /?ELS49
+	CALL	META-LOC,P
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK \?ELS49
+	FSET?	P,BUSYBIT /?THN55
+	FSET?	P,MUNGBIT \?CND52
+?THN55:	CALL	HE-SHE-IT,P,1
+	PRINTR	"'s busy right now."
+?CND52:	CALL	MOVE-HERE-NOT-SUB,P
+	CALL	SAID-TO,P
+	PRINTI	"""Right here, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	","" "
+	CALL	HE-SHE-IT,P
+	LOC	P
+	EQUAL?	HERE,STACK \?ELS65
+	PRINTR	" replies. ""What would you like me to do?"""
+?ELS65:	PRINTR	" shouts. ""Come outside to talk!"""
+?ELS49:	ZERO?	PRSI \FALSE
+	CALL	GLOBAL-IN?,VIDEOPHONE,HERE
+	ZERO?	STACK /?ELS78
+	CALL	PERFORM,PRSA,PRSO,VIDEOPHONE
+	RTRUE	
+?ELS78:	IN?	SONARPHONE,HERE \?ELS80
+	CALL	PERFORM,PRSA,PRSO,SONARPHONE
+	RTRUE	
+?ELS80:	CALL	GLOBAL-IN?,INTERCOM,HERE
+	ZERO?	STACK /?ELS82
+	CALL	PERFORM,PRSA,PRSO,INTERCOM
+	RTRUE	
+?ELS82:	PRINTR	"There's nothing to phone with here."
+
+
+	.FUNCT	V-PHONE,PER
+	FSET?	PRSO,PERSON \?ELS5
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >PER
+	ZERO?	PER /?ELS5
+	CALL	META-LOC,PER
+	EQUAL?	STACK,HERE /?THN8
+	CALL	CORRIDOR-LOOK,PER
+	ZERO?	STACK /?ELS5
+?THN8:	CALL	PERFORM,V?$CALL,PRSO
+	RTRUE	
+?ELS5:	EQUAL?	-1,P-NUMBER /?ELS11
+	PRINTR	"There's no point in calling that number."
+?ELS11:	EQUAL?	PRSO,YOUR-LABORATORY,DOME-LAB,AQUADOME \?ELS15
+	PRINTR	"There's no answer."
+?ELS15:	FSET?	PRSO,PERSON /?ELS19
+	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" has no phone."
+?ELS19:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE \?ELS23
+	PRINTD	PRSO
+	PRINTR	" is right here!"
+?ELS23:	PRINTI	"There's no sense in phoning "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-BOARD
+	IN?	PRSO,ROOMS /?THN6
+	FSET?	PRSO,DOORBIT \?ELS5
+?THN6:	CALL	V-THROUGH
+	RSTACK	
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-ON
+	FSET?	PRSO,FURNITURE \?ELS5
+	FSET?	PRSO,VEHBIT \?ELS5
+	MOVE	PLAYER,PRSO
+	PRINTI	"You're now sitting on"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS5:	FSET?	PRSO,FURNITURE \?ELS11
+	PRINTR	"That isn't the kind of thing to sit on!"
+?ELS11:	CALL	YOU-CANT,STR?162
+	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	YOU-CANT,STR?138
+	RSTACK	
+?ELS7:	ZERO?	OBJ /?ELS9
+	GETPT	PRSO,P?SYNONYM >X
+	PTSIZE	X
+	DIV	STACK,2
+	SUB	STACK,1
+	CALL	ZMEMQ,W?WALL,X,STACK
+	ZERO?	STACK /?ELS9
+	PRINTR	"Climbing the walls is no help."
+?ELS9:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-DOWN
+	FSET?	PRSO,FURNITURE \?ELS5
+	FSET?	PRSO,VEHBIT \?ELS5
+	CALL	V-CLIMB-ON
+	RTRUE	
+?ELS5:	CALL	V-CLIMB-UP,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,CONTBIT /?ELS5
+	FSET?	PRSO,DOORBIT /?ELS5
+	FSET?	PRSO,WINDOWBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSO,DOORBIT /?THN10
+	FSET?	PRSO,WINDOWBIT \?ELS9
+?THN10:	FSET?	PRSO,OPENBIT \?ELS16
+	FSET?	PRSO,MUNGBIT \?ELS21
+	PRINTR	"It won't stay closed. The latch is broken."
+?ELS21:	CALL	OKAY,PRSO,STR?17
+	RSTACK	
+?ELS16:	CALL	ALREADY,PRSO,STR?17
+	RSTACK	
+?ELS9:	FSET?	PRSO,SURFACEBIT /?ELS29
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS29
+	FSET?	PRSO,OPENBIT \?ELS36
+	CALL	OKAY,PRSO,STR?17
+	RSTACK	
+?ELS36:	CALL	ALREADY,PRSO,STR?17
+	RSTACK	
+?ELS29:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-COME,CN,CHR,COR,PCOR,L
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+?ELS5:	GETP	PRSO,P?CHARACTER >CN
+	GET	CHARACTER-TABLE,CN >CHR
+	CALL	META-LOC,CHR >L
+	EQUAL?	HERE,L \?ELS7
+	PRINTI	"You're in the same place as "
+	PRINTD	PRSO
+	PRINTR	"!"
+?ELS7:	ZERO?	L \?ELS18
+	PRINTD	PRSO
+	PRINTR	" has left the grounds."
+?ELS18:	GETP	HERE,P?CORRIDOR >COR
+	ZERO?	COR /?ELS29
+	GETP	L,P?CORRIDOR >PCOR
+	ZERO?	PCOR /?ELS29
+	BAND	COR,PCOR
+	ZERO?	STACK /?ELS29
+	CALL	COR-DIR,HERE,L >PRSO
+	CALL	V-WALK
+	RSTACK	
+?ELS29:	PRINTI	"You seem to have lost track of "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	PRE-COME-WITH
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-COME-WITH
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-COMPARE,?TMP1
+	ZERO?	PRSI \?ELS5
+	GET	P-PRSO,0
+	EQUAL?	1,STACK \?ELS5
+	PRINTI	"Use the command: COMPARE IT TO "
+	PRINTD	SOMETHING
+	PRINTR	"."
+?ELS5:	GET	P-PRSO,0
+	EQUAL?	2,STACK \FALSE
+	PUT	P-PRSO,0,1
+	GET	P-PRSO,1 >?TMP1
+	GET	P-PRSO,2
+	CALL	PERFORM,PRSA,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	V-COMPARE
+	EQUAL?	PRSO,PRSI \?ELS5
+	PRINTR	"They're the same thing!"
+?ELS5:	PRINTR	"They're not a bit alike."
+
+
+	.FUNCT	V-CONFRONT
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	ARENT-TALKING
+	RSTACK	
+?ELS5:	FSET?	PRSO,PERSON /?ELS7
+	PRINTI	"That ought to put a scare into"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS7:	PRINTD	PRSO
+	CALL	PICK-ONE,WHO-CARES
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	V-CUT
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-MUNG
+	FSET?	PRSO,DOORBIT \?ELS5
+	ZERO?	PRSI \?ELS5
+	FSET?	PRSO,OPENBIT \?ELS12
+	PRINTR	"You'd fly through the open door if you tried."
+?ELS12:	PRINTR	"Why don't you just open it instead?"
+?ELS5:	FSET?	PRSO,PERSON /?ELS20
+	CALL	YOU-CANT
+	RSTACK	
+?ELS20:	ZERO?	PRSI \?ELS22
+	PRINTI	"Trying to destroy "
+	PRINTD	PRSO
+	PRINTR	" with your bare hands is suicidal."
+?ELS22:	FSET?	PRSI,WEAPONBIT /?ELS26
+	PRINTI	"You can't destroy"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" with"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS26:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DIAGNOSE
+	ZERO?	PRSO /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	ARM,MUNGBIT \?ELS8
+	PRINTR	"Your arm is seriously gashed."
+?ELS8:	PRINTR	"You're wide awake and in good health."
+
+
+	.FUNCT	PRE-DISCUSS
+	ZERO?	PRSI \?CND1
+	SET	'PRSI,PLAYER
+?CND1:	CALL	PERFORM,V?TELL-ABOUT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-DISCUSS
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-DIVE
+	ZERO?	SUB-IN-TANK /?ELS5
+	CALL	WHY-NEED,DEPTH-CONTROL,TEST-TANK
+	ZERO?	STACK \TRUE
+?ELS5:	ZERO?	SUB-IN-DOME /?ELS9
+	CALL	WHY-NEED,DEPTH-CONTROL,AIRLOCK
+	ZERO?	STACK \TRUE
+?ELS9:	EQUAL?	PRSO,0,ROOMS /?THN14
+	EQUAL?	PRSO,SEA,BAY,GLOBAL-WATER \?ELS13
+?THN14:	ZERO?	SUB-DEPTH /?THN21
+	ZERO?	PRSO \?ELS20
+?THN21:	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?ELS20:	PRINTI	"You're already "
+	PRINTD	UNDERWATER
+	PRINTR	"."
+?ELS13:	FSET?	PRSO,UNITBIT \?ELS28
+	CALL	PERFORM,V?SET,DEPTH-CONTROL,PRSO
+	RTRUE	
+?ELS28:	PRINTI	"You can do this by setting the "
+	PRINTD	DEPTH-CONTROL
+	PRINTR	" to the desired depth of your dive."
+
+
+	.FUNCT	V-DOCK
+	EQUAL?	PRSO,LOCAL-SUB,GLOBAL-SUB,ROOMS \?ELS5
+	PRINTI	"You can't dock the "
+	PRINTD	SUB
+	PRINTR	" now."
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DRINK
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DROP
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	CALL	GROUND-DESC
+	CALL	OKAY,PRSO,STACK
+	RSTACK	
+
+
+	.FUNCT	GROUND-DESC
+	EQUAL?	HERE,SUB \?ELS5
+	RETURN	STR?163
+?ELS5:	RETURN	STR?164
+
+
+	.FUNCT	V-EAT
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-EMPTY
+	ZERO?	PRSI \?ELS5
+	CALL	PERFORM,V?EMPTY,PRSO,GLOBAL-WATER
+	RTRUE	
+?ELS5:	PRINTR	"You may know how to do that, but this program doesn't."
+
+
+	.FUNCT	V-ENTER
+	CALL	DO-WALK,P?IN
+	RTRUE	
+
+
+	.FUNCT	PRE-THROUGH
+	FSET?	PRSO,PERSON \FALSE
+	CALL	PERFORM,V?FOLLOW,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-THROUGH,OBJ=0,RM,DIR
+	IN?	PRSO,ROOMS \?ELS5
+	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?ELS5:	FSET?	PRSO,DOORBIT \?ELS7
+	FSET?	PRSO,OPENBIT \?ELS7
+	CALL	DOOR-ROOM,HERE,PRSO >RM
+	ZERO?	RM /?ELS14
+	CALL	GOTO,RM
+	ZERO?	STACK /?ELS14
+	CALL	OKAY
+	RSTACK	
+?ELS14:	PRINTI	"Sorry, but the """
+	PRINTD	PRSO
+	PRINTR	""" must be somewhere else."
+?ELS7:	ZERO?	OBJ \?ELS22
+	FSET?	PRSO,TAKEBIT /?ELS22
+	PRINTI	"You hit your head against it as you try to go through"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS22:	ZERO?	OBJ /?ELS28
+	PRINTR	"You can't do that!"
+?ELS28:	IN?	PRSO,WINNER \?ELS33
+	PRINTR	"You must think you're a contortionist!"
+?ELS33:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-EXAMINE,VAL
+	CALL	ROOM-CHECK
+	ZERO?	STACK \TRUE
+	EQUAL?	P-ADVERB,W?CAREFULLY \FALSE
+	CALL	INT-WAIT,3 >VAL
+	ZERO?	VAL \?ELS12
+	PRINTI	"You never got to finish looking over"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS12:	EQUAL?	VAL,M-FATAL /TRUE
+	RFALSE
+
+
+	.FUNCT	V-EXAMINE,T
+	EQUAL?	PRSO,INTDIR \?ELS5
+	PRINTR	"If you want to see what's there, go there!"
+?ELS5:	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS9
+	CALL	NOTHING-SPECIAL
+	RSTACK	
+?ELS9:	IN?	PRSO,GLOBAL-OBJECTS \?ELS11
+	CALL	NOT-HERE,PRSO
+	RTRUE	
+?ELS11:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS /?ELS13
+	CALL	TOO-BAD-BUT,PRSO,STR?16
+	RSTACK	
+?ELS13:	GETP	PRSO,P?TEXT >T
+	ZERO?	T /?ELS15
+	PRINT	T
+	CRLF	
+	RTRUE	
+?ELS15:	FSET?	PRSO,CONTBIT \?ELS19
+	CALL	V-LOOK-INSIDE
+	RSTACK	
+?ELS19:	FSET?	PRSO,ON?BIT \?ELS23
+	CALL	CHECK-ON-OFF
+	RSTACK	
+?ELS23:	FSET?	PRSO,DOORBIT \?ELS25
+	CALL	CHECK-DOOR
+	RSTACK	
+?ELS25:	CALL	NOTHING-SPECIAL
+	RSTACK	
+
+
+	.FUNCT	NOTHING-SPECIAL
+	PRINTI	"There's nothing special about"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,T
+	GETPT	OBJ2,P?GLOBAL >T
+	ZERO?	T /FALSE
+	PTSIZE	T
+	SUB	STACK,1
+	CALL	ZMEMQB,OBJ1,T,STACK
+	RSTACK	
+
+
+	.FUNCT	PRE-FILL
+	ZERO?	PRSI /FALSE
+	EQUAL?	PRSI,GLOBAL-WATER /FALSE
+	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-FILL
+	PRINTR	"You may know how to do that, but this program doesn't."
+
+
+	.FUNCT	PRE-FIND,CHR,?TMP1
+	EQUAL?	PRSO,PLAYER /FALSE
+	IN?	PRSO,ROOMS \?ELS8
+	EQUAL?	PRSO,HERE \?ELS13
+	CALL	ALREADY,PLAYER,STR?55
+	RSTACK	
+?ELS13:	FSET?	PRSO,TOUCHBIT \?ELS15
+	PRINTR	"You should know - you've been there!"
+?ELS15:	GETP	LOCAL-SUB,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS8:	FSET?	PRSO,PERSON \FALSE
+	EQUAL?	PRSO,REMOTE-PERSON \?CND24
+	ZERO?	REMOTE-PERSON-REMLOC /?CND24
+	CALL	HE-SHE-IT,REMOTE-PERSON,1
+	PRINTI	"'s in the "
+	PRINTD	REMOTE-PERSON-REMLOC
+	PRINTR	"."
+?CND24:	GETP	PRSO,P?CHARACTER >CHR
+	IN?	PRSO,GLOBAL-OBJECTS \?CND31
+	GET	CHARACTER-TABLE,CHR >PRSO
+?CND31:	LOC	PRSO
+	ZERO?	STACK /?THN37
+	LOC	PRSO
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK /?CND34
+?THN37:	PRINTI	"Who knows where "
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" is now?"
+?CND34:	CALL	META-LOC,WINNER >?TMP1
+	CALL	META-LOC,PRSO
+	EQUAL?	?TMP1,STACK \?CND43
+	EQUAL?	WINNER,PLAYER \?ELS48
+	CALL	BITE-YOU
+	RTRUE	
+?ELS48:	PRINTR	"""Ahem..."""
+?CND43:	EQUAL?	WINNER,PLAYER /?ELS55
+	PRINTI	"""I think "
+	CALL	HE-SHE-IT,PRSO
+	JUMP	?CND53
+?ELS55:	CALL	HE-SHE-IT,PRSO,1
+?CND53:	PRINTI	"'s in"
+	CALL	META-LOC,PRSO
+	CALL	PRINTT,STACK
+	PRINTI	"."
+	EQUAL?	WINNER,PLAYER /?CND62
+	PRINTI	""""
+?CND62:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	BITE-YOU
+	PRINTI	"If "
+	CALL	HE-SHE-IT,PRSO
+	PRINTI	" were any closer, "
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	"'d bite you!"
+
+
+	.FUNCT	V-FIND,L
+	LOC	PRSO >L
+	EQUAL?	PLAYER,WINNER /?CND1
+	PRINTI	""""
+?CND1:	EQUAL?	PRSO,PLAYER \?ELS8
+	PRINTI	"You're right here, "
+	FSET?	L,SURFACEBIT \?ELS13
+	PRINTI	"on"
+	JUMP	?CND11
+?ELS13:	PRINTI	"in"
+?CND11:	CALL	PRINTT,L
+	PRINTI	"."
+	JUMP	?CND6
+?ELS8:	IN?	PRSO,PLAYER \?ELS23
+	PRINTI	"You have it."
+	JUMP	?CND6
+?ELS23:	IN?	PRSO,WINNER \?ELS27
+	PRINTI	"I have it, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"."
+	JUMP	?CND6
+?ELS27:	EQUAL?	L,LOCAL-GLOBALS \?ELS35
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \?THN32
+?ELS35:	IN?	PRSO,HERE /?THN32
+	EQUAL?	PRSO,PSEUDO-OBJECT \?ELS31
+?THN32:	PRINTI	"It's right here."
+	JUMP	?CND6
+?ELS31:	EQUAL?	L,GLOBAL-OBJECTS,LOCAL-GLOBALS \?ELS39
+	PRINTI	"It's around somewhere."
+	JUMP	?CND6
+?ELS39:	CALL	META-LOC,PRSO
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK /?ELS43
+	PRINTI	"It's far away from here."
+	JUMP	?CND6
+?ELS43:	FSET?	L,PERSON \?ELS47
+	PRINTD	L
+	PRINTI	" has it."
+	JUMP	?CND6
+?ELS47:	FSET?	L,SURFACEBIT \?ELS51
+	PRINTI	"It's on"
+	CALL	PRINTT,L
+	PRINTI	"."
+	JUMP	?CND6
+?ELS51:	FSET?	L,CONTBIT /?THN56
+	IN?	L,ROOMS \?ELS55
+?THN56:	PRINTI	"It's in"
+	CALL	PRINTT,L
+	PRINTI	"."
+	JUMP	?CND6
+?ELS55:	PRINTI	"It's nowhere in particular."
+?CND6:	EQUAL?	PLAYER,WINNER /?CND64
+	PRINTI	""""
+?CND64:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-FIND-WITH
+	CALL	V-FIND
+	RSTACK	
+
+
+	.FUNCT	V-FIX
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-FOLLOW,CN,CHR,COR,PCOR,L
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+?ELS5:	FSET?	PRSO,PERSON /?ELS7
+	PRINTI	"How tragic to see a formerly great inventor stalking "
+	CALL	PRINTA,PRSO
+	PRINTR	"!"
+?ELS7:	GETP	PRSO,P?CHARACTER >CN
+	GET	CHARACTER-TABLE,CN >CHR
+	CALL	META-LOC,CHR >L
+	EQUAL?	HERE,L \?ELS11
+	PRINTI	"You're in the same place as "
+	PRINTD	PRSO
+	PRINTR	"!"
+?ELS11:	ZERO?	L \?ELS22
+	PRINTD	PRSO
+	PRINTR	" has left the grounds."
+?ELS22:	CALL	PERFORM,V?WALK-TO,CHR
+	RTRUE	
+
+
+	.FUNCT	V-FOO
+	PRINTR	"[Foo!! This is a bug!!]"
+
+
+	.FUNCT	PRE-GIVE
+	CALL	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSI,PLAYER /FALSE
+	PRINTI	"That's easy for you to say, since "
+	CALL	HE-SHE-IT,WINNER
+	PRINTI	" do"
+	EQUAL?	WINNER,PLAYER /?CND12
+	PRINTI	"es"
+?CND12:	PRINTR	"n't even have it."
+
+
+	.FUNCT	V-GIVE
+	ZERO?	PRSI \?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSI,PERSON /?ELS7
+	PRINTI	"You can't give "
+	CALL	PRINTA,PRSO
+	PRINTI	" to "
+	CALL	PRINTA,PRSI
+	PRINTR	"!"
+?ELS7:	EQUAL?	PRSI,PLAYER \?ELS11
+	CALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?ELS11:	MOVE	PRSO,PRSI
+	PRINTD	PRSI
+	PRINTR	" accepts the offer."
+
+
+	.FUNCT	PRE-SGIVE
+	CALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SGIVE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-GOODBYE
+	CALL	PRE-HELLO
+	RSTACK	
+
+
+	.FUNCT	V-GOODBYE
+	ZERO?	REMOTE-PERSON /?ELS5
+	EQUAL?	PRSO,0,REMOTE-PERSON \?ELS5
+	CALL	PHONE-OFF
+	PRINTI	"""I hope to see you soon, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."""
+?ELS5:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT /?ELS11
+	CALL	FINE-SEQUENCE
+	ZERO?	STACK \TRUE
+?ELS11:	CALL	V-HELLO,0
+	RSTACK	
+
+
+	.FUNCT	PRE-HANGUP
+	EQUAL?	PRSO,MICROPHONE-DOME,MICROPHONE \?ELS5
+	CALL	PERFORM,PRSA,VIDEOPHONE
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,SONARPHONE,VIDEOPHONE,INTERCOM \?ELS7
+	EQUAL?	REMOTE-PERSON-ON,PRSO \?ELS10
+	PRINTI	"You're still on the line to "
+	PRINTD	REMOTE-PERSON
+	PRINTR	"."
+?ELS10:	FSET?	PRSO,MUNGBIT \?ELS14
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	"'s conked out!"
+?ELS14:	EQUAL?	PRSO,SONARPHONE /FALSE
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \FALSE
+	PRINTI	"There's no "
+	PRINTD	PRSO
+	PRINTR	" here."
+?ELS7:	EQUAL?	HERE,CENTER-OF-DOME \?ELS26
+	CALL	PERFORM,V?PUT,PRSO,HOOK
+	RTRUE	
+?ELS26:	EQUAL?	PRSO,ROOMS /FALSE
+	CALL	TOO-BAD-BUT,PRSO,STR?161
+	RSTACK	
+
+
+	.FUNCT	V-HANGUP
+	ZERO?	REMOTE-PERSON /?ELS5
+	CALL	PERFORM,V?GOODBYE
+	RTRUE	
+?ELS5:	PRINTR	"You're not talking to anyone!"
+
+
+	.FUNCT	PRE-HELLO,P
+	ZERO?	PRSO \FALSE
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS8
+	CALL	PERFORM,PRSA,QCONTEXT
+	RTRUE	
+?ELS8:	EQUAL?	WINNER,PLAYER \?ELS10
+	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS10
+	FSET?	P,INVISIBLE /?ELS10
+	CALL	PERFORM,PRSA,P
+	RTRUE	
+?ELS10:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	V-HELLO,HELL=1
+	FSET?	PRSO,PERSON \?ELS5
+	ZERO?	HELL /?ELS10
+	PRINTD	PRSO
+	PRINTR	" nods at you."
+?ELS10:	CALL	READY-FOR-SNARK?
+	ZERO?	STACK /?ELS15
+	PRINTR	"""Good hunting!"""
+?ELS15:	PRINTR	"""Don't tell me you're leaving already!"""
+?ELS5:	ZERO?	PRSO /?ELS23
+	PRINTI	"Only nuts say """
+	ZERO?	HELL /?ELS31
+	PUSH	STR?165
+	JUMP	?CND27
+?ELS31:	PUSH	STR?166
+?CND27:	PRINT	STACK
+	PRINTI	""" to "
+	CALL	PRINTA,PRSO
+	PRINTR	"."
+?ELS23:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	V-HELP
+	ZERO?	PRSO \?ELS5
+	SET	'P-WON,0
+	PRINT	HELP-TEXT
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	CALL	PERFORM,V?GIVE,HINT,PLAYER
+	RTRUE	
+?ELS9:	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-KICK
+	CALL	HACK-HACK,STR?168
+	RSTACK	
+
+
+	.FUNCT	V-KILL
+	CALL	IKILL,STR?169
+	RSTACK	
+
+
+	.FUNCT	IKILL,STR
+	ZERO?	PRSO \?ELS5
+	PRINTI	"There's nothing here to "
+	PRINT	STR
+	PRINTR	"."
+?ELS5:	ZERO?	PRSI \?ELS9
+	FSET?	PRSO,WEAPONBIT \?ELS9
+	PRINTI	"You didn't say what to "
+	PRINT	STR
+	PRINTR	" at."
+?ELS9:	IN?	PRSO,GLOBAL-OBJECTS \?ELS15
+	PRINTR	"You can't do it from here."
+?ELS15:	PRINTR	"You think it over. It's not worth the trouble."
+
+
+	.FUNCT	V-KISS
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	FACE-RED,STR?170
+	RSTACK	
+?ELS5:	PRINTR	"What a (ahem!) strange idea!"
+
+
+	.FUNCT	V-KNOCK
+	FSET?	PRSO,DOORBIT /?THN6
+	FSET?	PRSO,WINDOWBIT \?ELS5
+?THN6:	CALL	DOOR-ROOM,HERE,PRSO
+	CALL	INHABITED?,STACK
+	ZERO?	STACK /?ELS12
+	PRINTR	"Someone shouts ""Come in!"""
+?ELS12:	PRINTR	"There's no answer."
+?ELS5:	PRINTI	"Why knock on "
+	CALL	PRINTA,PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-LAUNCH
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-STAND,P
+	LOC	WINNER
+	FSET?	STACK,SURFACEBIT /?THN6
+	LOC	WINNER
+	FSET?	STACK,FURNITURE \?ELS5
+?THN6:	MOVE	WINNER,HERE
+	PRINTR	"You're on your own feet again."
+?ELS5:	CALL	ALREADY,PLAYER,STR?171
+	RSTACK	
+
+
+	.FUNCT	V-LEAVE
+	CALL	DO-WALK,P?OUT
+	RTRUE	
+
+
+	.FUNCT	V-LEVEL
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-LISTEN
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	WAITING-FOR-YOU-TO-SPEAK
+	RTRUE	
+?ELS5:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" makes no sound."
+
+
+	.FUNCT	V-LOCK
+	PRINTR	"That won't help."
+
+
+	.FUNCT	V-LOOK
+	CALL	DESCRIBE-ROOM,1
+	ZERO?	STACK /FALSE
+	CALL	DESCRIBE-OBJECTS,1
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-BEHIND
+	FSET?	PRSO,DOORBIT \?ELS5
+	FSET?	PRSO,OPENBIT /?ELS5
+	CALL	THIS-IS-IT,PRSO
+	CALL	TOO-BAD-BUT,PRSO,STR?17
+	RSTACK	
+?ELS5:	PRINTI	"There's nothing behind"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-DOWN
+	EQUAL?	PRSO,ROOMS \?ELS5
+	PRINTI	"There's nothing interesting "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTR	"."
+?ELS5:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-LOOK-INSIDE
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-INSIDE,DIR=P?IN,RM
+	EQUAL?	PRSO,GLOBAL-HERE \?ELS5
+	CALL	PERFORM,V?LOOK
+	RTRUE	
+?ELS5:	FSET?	PRSO,RLANDBIT \?ELS7
+	CALL	ROOM-PEEK,PRSO
+	RSTACK	
+?ELS7:	FSET?	PRSO,DOORBIT \?ELS9
+	FSET?	PRSO,OPENBIT \?ELS14
+	CALL	DOOR-ROOM,HERE,PRSO >RM
+	ZERO?	RM /?ELS19
+	CALL	ROOM-PEEK,RM
+	RSTACK	
+?ELS19:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is open, but you can't tell what's beyond it."
+?ELS14:	CALL	THIS-IS-IT,PRSO
+	CALL	TOO-BAD-BUT,PRSO,STR?17
+	RSTACK	
+?ELS9:	FSET?	PRSO,WINDOWBIT \?ELS27
+	PRINTI	"You can't tell what's beyond"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS27:	FSET?	PRSO,CONTBIT /?THN37
+	FSET?	PRSO,SURFACEBIT \?ELS36
+?THN37:	CALL	SEE-INSIDE?,PRSO
+	ZERO?	STACK /?ELS43
+	FIRST?	PRSO \?ELS48
+	CALL	PRINT-CONT,PRSO
+	ZERO?	STACK \TRUE
+?ELS48:	FSET?	PRSO,SURFACEBIT \?ELS52
+	PRINTI	"There's nothing on"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS52:	CALL	TOO-BAD-BUT,PRSO,STR?70
+	RSTACK	
+?ELS43:	CALL	TOO-BAD-BUT,PRSO,STR?17
+	RSTACK	
+?ELS36:	FSET?	PRSO,PERSON \?ELS60
+	PRINTR	"You forgot to bring your X-ray glasses."
+?ELS60:	EQUAL?	DIR,P?IN \?ELS64
+	CALL	YOU-CANT,STR?172
+	RSTACK	
+?ELS64:	EQUAL?	DIR,P?OUT \FALSE
+	CALL	YOU-CANT,STR?173
+	RSTACK	
+
+
+	.FUNCT	ROOM-PEEK,RM,OLD-HERE
+	SET	'OLD-HERE,HERE
+	CALL	SEE-INTO?,RM
+	ZERO?	STACK /FALSE
+	SET	'HERE,RM
+	PRINTI	"You take a quick peek into"
+	CALL	PRINTT,RM
+	PRINTI	":"
+	CRLF	
+	CALL	DESCRIBE-OBJECTS,1
+	ZERO?	STACK \?CND8
+	PRINTI	"You can't see anything interesting."
+	CRLF	
+?CND8:	SET	'HERE,OLD-HERE
+	RTRUE	
+
+
+	.FUNCT	SEE-INTO?,THERE,P,L,T,O
+	SET	'P,0
+?PRG1:	NEXTP	HERE,P >P
+	ZERO?	P \?ELS5
+	PRINTI	"You can't seem to find that room."
+	CRLF	
+	RFALSE	
+?ELS5:	EQUAL?	P,P?IN,P?OUT /TRUE
+	LESS?	P,LOW-DIRECTION /?PRG1
+	GETPT	HERE,P >T
+	PTSIZE	T >L
+	EQUAL?	L,UEXIT \?ELS14
+	GETB	T,REXIT
+	EQUAL?	STACK,THERE /TRUE
+?ELS14:	EQUAL?	L,DEXIT \?ELS18
+	GETB	T,REXIT
+	EQUAL?	STACK,THERE \?ELS18
+	GETB	T,DEXITOBJ
+	FSET?	STACK,OPENBIT /TRUE
+	PRINTI	"The door to that room is closed."
+	CRLF	
+	RFALSE	
+?ELS18:	EQUAL?	L,CEXIT \?PRG1
+	GETB	T,REXIT
+	EQUAL?	STACK,THERE \?PRG1
+	GETB	T,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK \TRUE
+	PRINTI	"You can't seem to find that room."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	V-LOOK-ON
+	FSET?	PRSO,SURFACEBIT \?ELS5
+	CALL	V-LOOK-INSIDE
+	RSTACK	
+?ELS5:	PRINTI	"There's no good surface on"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-OUTSIDE
+	CALL	V-LOOK-INSIDE,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-UNDER
+	FSET?	PRSO,FURNITURE \?ELS5
+	PRINTI	"You twist your head to look under"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" but find nothing."
+?ELS5:	FSET?	PRSO,PERSON \?ELS9
+	PRINTI	"Nope. Nothing hiding under "
+	PRINTD	PRSO
+	PRINTR	"."
+?ELS9:	LOC	PRSO
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS \?ELS13
+	PRINTR	"There's nothing there but dust."
+?ELS13:	PRINTR	"That's not a bit useful."
+
+
+	.FUNCT	V-LOOK-UP
+	ZERO?	PRSI /?ELS5
+	PRINTI	"There's no information in"
+	CALL	THE-PRSI-PRINT
+	PRINTR	" about that."
+?ELS5:	EQUAL?	PRSO,ROOMS \?ELS10
+	PRINTR	"You can see the ceiling."
+?ELS10:	IN?	NOTEBOOK,WINNER \?ELS19
+	CALL	PERFORM,V?LOOK-UP,PRSO,NOTEBOOK
+	RTRUE	
+?ELS19:	PRINTI	"Huh? Without the "
+	PRINTD	NOTEBOOK
+	PRINTR	"?"
+
+
+	.FUNCT	V-MAKE
+	PRINTR	"""Eat, drink, and make merry, for tomorrow we shall die!"""
+
+
+	.FUNCT	PRE-MOVE
+	CALL	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	PRINTR	"Juggling isn't one of your talents."
+
+
+	.FUNCT	V-MOVE
+	FSET?	PRSO,TAKEBIT \?ELS5
+	PRINTI	"Moving"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" reveals nothing."
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-MOVE-DIR
+	EQUAL?	PRSI,FAST,MEDIUM /FALSE
+	EQUAL?	PRSI,SLOW,OFF,INTDIR /FALSE
+	SET	'P-WON,0
+	PRINTR	"(Sorry, but I don't understand that sentence.)"
+
+
+	.FUNCT	V-MOVE-DIR
+	PRINTI	"You can't move"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" in any particular direction."
+
+
+	.FUNCT	V-OPEN,F,STR
+	FSET?	PRSO,CONTBIT /?ELS5
+	FSET?	PRSO,DOORBIT /?ELS5
+	FSET?	PRSO,WINDOWBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSO,DOORBIT /?THN10
+	FSET?	PRSO,WINDOWBIT /?THN10
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS9
+?THN10:	FSET?	PRSO,OPENBIT \?ELS16
+	CALL	ALREADY,PRSO,STR?23
+	RSTACK	
+?ELS16:	FSET?	PRSO,LOCKED \?ELS18
+	CALL	TOO-BAD-BUT,PRSO,STR?174
+	RSTACK	
+?ELS18:	FSET?	PRSO,MUNGBIT \?ELS20
+	PRINTR	"You can't open it. The latch is broken."
+?ELS20:	FSET	PRSO,OPENBIT
+	FSET?	PRSO,DOORBIT /?THN30
+	FSET?	PRSO,WINDOWBIT /?THN30
+	FIRST?	PRSO \?THN30
+	FSET?	PRSO,TRANSBIT \?ELS29
+?THN30:	CALL	OKAY,PRSO,STR?23
+	RSTACK	
+?ELS29:	FIRST?	PRSO >F \?ELS33
+	NEXT?	F /?ELS33
+	GETP	F,P?FDESC >STR
+	ZERO?	STR /?ELS33
+	PRINTI	"You open"
+	CALL	THE-PRSO-PRINT
+	PRINTI	"."
+	CRLF	
+	PRINT	STR
+	CRLF	
+	RTRUE	
+?ELS33:	PRINTI	"You open"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" and see "
+	CALL	PRINT-CONTENTS,PRSO
+	PRINTR	"."
+?ELS9:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-OPEN-WITH
+	CALL	NOT-HOLDING?,PRSI
+	ZERO?	STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	V-OPEN-WITH
+	CALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-PICK
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-PLAY
+	SET	'P-WON,0
+	PRINTR	"(Speaking of playing, you ought to try Infocom's other products.)"
+
+
+	.FUNCT	V-PUSH
+	CALL	HACK-HACK,STR?175
+	RSTACK	
+
+
+	.FUNCT	PRE-PUT
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS5
+	CALL	YOU-CANT,STR?176
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,SONARSCOPE \?ELS7
+	EQUAL?	PRSI,MANUAL,AUTOMATIC /FALSE
+?ELS7:	EQUAL?	PRSO,THROTTLE \?ELS11
+	EQUAL?	PRSI,FAST /FALSE
+	EQUAL?	PRSI,MEDIUM,SLOW,OFF /FALSE
+?ELS11:	IN?	PRSO,GLOBAL-OBJECTS \?ELS17
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS17:	EQUAL?	PRSI,TEST-TANK,GLOBAL-WATER,GLOBAL-HERE /FALSE
+	EQUAL?	PRSI,FLOOR,CLAW,GLOBAL-SUB /FALSE
+	EQUAL?	PRSI,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS23
+	CALL	HAR-HAR
+	RSTACK	
+?ELS23:	IN?	PRSI,GLOBAL-OBJECTS \?ELS25
+	CALL	NOT-HERE,PRSI
+	RSTACK	
+?ELS25:	FSET?	PRSO,TAKEBIT /FALSE
+	CALL	YOU-CANT,STR?176
+	RSTACK	
+
+
+	.FUNCT	V-PUT,?TMP1
+	FSET?	PRSI,OPENBIT /?CND1
+	FSET?	PRSI,VEHBIT /?CND1
+	FSET?	PRSI,DOORBIT /?THN9
+	FSET?	PRSI,CONTBIT \?ELS8
+?THN9:	CALL	TOO-BAD-BUT,PRSI,STR?17
+	RTRUE	
+?ELS8:	PRINTI	"You can't open"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?CND1:	ZERO?	PRSI \?ELS19
+	CALL	YOU-CANT
+	RSTACK	
+?ELS19:	FSET?	PRSI,OPENBIT /?ELS21
+	CALL	TOO-BAD-BUT,PRSI,STR?17
+	RSTACK	
+?ELS21:	EQUAL?	PRSI,PRSO \?ELS23
+	CALL	HAR-HAR
+	RSTACK	
+?ELS23:	IN?	PRSO,PRSI \?ELS25
+	CALL	TOO-BAD-BUT,PRSO
+	PRINTI	" is already "
+	FSET?	PRSI,SURFACEBIT \?ELS32
+	PUSH	STR?47
+	JUMP	?CND28
+?ELS32:	PUSH	STR?112
+?CND28:	PRINT	STACK
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS25:	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 \?ELS36
+	PRINTR	"There's no room."
+?ELS36:	CALL	HELD?,PRSO
+	ZERO?	STACK \?ELS40
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+?ELS40:	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	PRINTR	"Okay."
+
+
+	.FUNCT	V-PUT-UNDER
+	PRINTR	"There's not enough room."
+
+
+	.FUNCT	V-RAISE
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-READ,VAL
+	ZERO?	LIT \?ELS5
+	PRINTR	"It's impossible to read in the dark."
+?ELS5:	EQUAL?	PRSO,BADGE-GLOBAL-3,BADGE-GLOBAL-2,BADGE-GLOBAL /FALSE
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS11
+	CALL	YOU-CANT
+	RSTACK	
+?ELS11:	IN?	PRSO,GLOBAL-OBJECTS \?ELS13
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS13:	ZERO?	PRSI /?ELS15
+	FSET?	PRSI,TRANSBIT /?ELS15
+	EQUAL?	-1,P-NUMBER \?ELS15
+	PRINTI	"You must have a swell method of looking through"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS15:	EQUAL?	P-ADVERB,W?CAREFULLY \FALSE
+	CALL	INT-WAIT,3 >VAL
+	ZERO?	VAL \?ELS26
+	PRINTI	"You never got to finish reading"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS26:	EQUAL?	VAL,M-FATAL /TRUE
+	RFALSE
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-RING
+	PRINTR	"""DING-DONG!"""
+
+
+	.FUNCT	V-RISE
+	EQUAL?	PRSO,BAY \?ELS5
+	CALL	PERFORM,V?SURFACE
+	RTRUE	
+?ELS5:	CALL	DO-WALK,P?UP
+	RTRUE	
+
+
+	.FUNCT	V-RUB
+	CALL	HACK-HACK,STR?177
+	RSTACK	
+
+
+	.FUNCT	PRE-RUB-OVER
+	CALL	PERFORM,V?RUB,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-RUB-OVER
+	PRINTR	"You really can't expect that to help."
+
+
+	.FUNCT	V-SAY,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	CALL	PERFORM,V?TELL,QCONTEXT
+	RTRUE	
+?ELS5:	IN?	COMPUTESTOR,HERE \?ELS7
+	FSET?	COMPUTESTOR,ONBIT \?ELS7
+	CALL	PERFORM,V?TELL,COMPUTESTOR
+	RTRUE	
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS11
+	CALL	PERFORM,V?TELL,P
+	RTRUE	
+?ELS11:	SET	'QUOTE-FLAG,0
+	SET	'P-CONT,0
+	PRINTR	"(To talk to someone, type their name, then a comma, then what you want them to do.)"
+
+
+	.FUNCT	PRE-SAY-INTO
+	EQUAL?	PRSO,INTERCOM /FALSE
+	FSET?	PRSO,ONBIT /FALSE
+	PRINTI	"Sorry, but"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" isn't on!"
+
+
+	.FUNCT	V-SAY-INTO
+	CALL	YOU-CANT,STR?178
+	RSTACK	
+
+
+	.FUNCT	V-SCREW
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-SCREW-IN
+	CALL	YOU-CANT,STR?179
+	RSTACK	
+
+
+	.FUNCT	PRE-SEARCH
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-SEARCH,OBJ
+	FSET?	PRSO,PERSON \?ELS5
+	FIRST?	PRSO >OBJ \?ELS10
+	CALL	THIS-IS-IT,OBJ
+	PRINTI	"You find "
+	CALL	PRINTA,OBJ
+	PRINTR	"."
+?ELS10:	PRINTR	"You don't find anything interesting."
+?ELS5:	FSET?	PRSO,CONTBIT \?ELS18
+	FSET?	PRSO,OPENBIT /?ELS23
+	PRINTR	"You'll have to open it first."
+?ELS23:	CALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?ELS18:	PRINTR	"You find nothing unusual."
+
+
+	.FUNCT	PRE-SEARCH-FOR,OBJ
+	CALL	ROOM-CHECK
+	ZERO?	STACK \TRUE
+	IN?	PRSI,PLAYER \?CND1
+	GETP	PRSI,P?GENERIC
+	CALL	STACK,PRSI >OBJ
+	ZERO?	OBJ /?CND1
+	SET	'PRSI,OBJ
+?CND1:	EQUAL?	PRSO,GLOBAL-HERE \FALSE
+	SET	'PRSO,HERE
+	RFALSE	
+
+
+	.FUNCT	V-SEARCH-FOR
+	FSET?	PRSO,PERSON \?ELS5
+	IN?	PRSI,PRSO \?ELS10
+	PRINTI	"Indeed, "
+	PRINTD	PRSO
+	PRINTI	" has"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS10:	EQUAL?	PRSI,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS14
+	CALL	HAR-HAR
+	RSTACK	
+?ELS14:	IN?	PRSI,GLOBAL-OBJECTS \?ELS16
+	PRINTD	PRSO
+	PRINTI	" doesn't have "
+	CALL	PRINTA,PRSI
+	PRINTR	"."
+?ELS16:	ZERO?	PRSI \?ELS20
+	PRINTD	PRSO
+	PRINTR	" doesn't have that."
+?ELS20:	PRINTD	PRSO
+	PRINTI	" doesn't have"
+	CALL	THE-PRSI-PRINT
+	PRINTI	" concealed on "
+	FSET?	PRSO,FEMALE \?ELS31
+	PUSH	STR?180
+	JUMP	?CND27
+?ELS31:	PUSH	STR?181
+?CND27:	PRINT	STACK
+	PRINTR	" person."
+?ELS5:	FSET?	PRSO,CONTBIT \?ELS35
+	FSET?	PRSO,OPENBIT /?ELS35
+	PRINTI	"You'll have to open"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" first."
+?ELS35:	IN?	PRSI,PRSO \?ELS41
+	PRINTI	"How observant you are! There "
+	CALL	HE-SHE-IT,PRSI
+	PRINTR	" is!"
+?ELS41:	ZERO?	PRSI \?ELS47
+	CALL	YOU-CANT
+	RSTACK	
+?ELS47:	PRINTI	"You don't find"
+	CALL	THE-PRSI-PRINT
+	PRINTR	" there."
+
+
+	.FUNCT	V-SEND
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SSEND
+	CALL	PERFORM,V?SEND,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSEND
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SEND-FOR
+	CALL	V-SEND
+	RSTACK	
+
+
+	.FUNCT	V-SEND-OUT
+	CALL	V-SEND
+	RSTACK	
+
+
+	.FUNCT	PRE-SEND-TO
+	EQUAL?	PRSI,0,PLAYER,GLOBAL-HERE /FALSE
+	EQUAL?	PRSI,GLOBAL-SUB,AQUADOME /FALSE
+	FSET?	PRSO,PERSON \?ELS9
+	CALL	PERFORM,V?$CALL,PRSO
+	EQUAL?	WINNER,PLAYER /TRUE
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+?ELS9:	SET	'P-WON,0
+	PRINTR	"(Sorry, but I don't understand.)"
+
+
+	.FUNCT	V-SEND-TO
+	CALL	V-SEND
+	RSTACK	
+
+
+	.FUNCT	PRE-SET
+	EQUAL?	PRSI,FAST,MEDIUM,SLOW /FALSE
+	EQUAL?	PRSI,OFF,AUTOMATIC,MANUAL /FALSE
+	EQUAL?	PRSI,AQUADOME /FALSE
+	EQUAL?	-1,P-NUMBER /?ELS5
+	EQUAL?	PRSI,0,ROOMS /FALSE
+	ZERO?	PRSI /?ELS5
+	FSET?	PRSI,UNITBIT /FALSE
+?ELS5:	EQUAL?	PRSI,RIGHT,LEFT \?ELS15
+	CALL	PERFORM,V?AIM,PRSO,PRSI
+	RTRUE	
+?ELS15:	EQUAL?	PRSO,PRSI \?ELS17
+	CALL	PERFORM,V?TURN,PRSO
+	RTRUE	
+?ELS17:	PRINTI	"You can set something only to a number with units, or to "
+	PRINTD	MEDIUM
+	PRINTI	", "
+	PRINTD	AUTOMATIC
+	PRINTR	", and so on."
+
+
+	.FUNCT	V-SET
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SHOOT
+	ZERO?	PRSI \FALSE
+	FSET?	PRSO,WEAPONBIT \FALSE
+	SET	'PRSI,PRSO
+	EQUAL?	PRSO,DART \?ELS10
+	PUSH	1
+	JUMP	?CND6
+?ELS10:	PUSH	0
+?CND6:	GET	OBJ-AIMED-AT,STACK >PRSO
+	RFALSE	
+
+
+	.FUNCT	V-SHOOT
+	CALL	FIND-FLAG,WINNER,WEAPONBIT
+	ZERO?	STACK \?ELS5
+	PRINTR	"You don't have anything to shoot with."
+?ELS5:	CALL	IKILL,STR?182
+	RSTACK	
+
+
+	.FUNCT	PRE-SSHOOT
+	CALL	PERFORM,V?SHOOT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOOT
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SHOW
+	EQUAL?	PRSO,PLAYER \?ELS5
+	SET	'WINNER,PLAYER
+	CALL	VISIBLE?,PRSO
+	ZERO?	STACK /?ELS8
+	CALL	PERFORM,V?EXAMINE,PRSI
+	RTRUE	
+?ELS8:	CALL	PERFORM,V?FIND,PRSI
+	RTRUE	
+?ELS5:	FSET?	PRSO,PERSON /?ELS12
+	PRINTI	"Don't wait for"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" to applaud."
+?ELS12:	PRINTD	PRSO
+	CALL	PICK-ONE,WHO-CARES
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	PRE-SSHOW
+	SET	'P-MERGED,1
+	CALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOW
+	RTRUE	
+
+
+	.FUNCT	V-SIT
+	FSET?	PRSO,FURNITURE \?ELS5
+	FSET?	PRSO,VEHBIT \?ELS5
+	MOVE	PLAYER,PRSO
+	PRINTI	"You're now sitting on"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS5:	PRINTR	"That won't help your mission!"
+
+
+	.FUNCT	V-SLAP
+	ZERO?	PRSI /?ELS5
+	CALL	NOT-HOLDING?,PRSI
+	ZERO?	STACK \TRUE
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	PRINTR	"That sounds like a sign that you could wear on your back."
+?ELS9:	FSET?	PRSO,PERSON \?ELS13
+	FSET?	PRSO,MUNGBIT \?ELS18
+	PRINTD	PRSO
+	PRINTI	"'s eyes are full of hate, and "
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" says something unprintable."
+?ELS18:	CALL	FACE-RED,STR?183
+	RSTACK	
+?ELS13:	PRINTR	"You should see Mick. He breaks boards with the edge of his hand!"
+
+
+	.FUNCT	FACE-RED,STR
+	PRINTD	PRSO
+	PRINTI	" "
+	PRINT	STR
+	PRINTR	"s you right back. Wow, is your face red!"
+
+
+	.FUNCT	V-SMELL
+	CALL	HE-SHE-IT,PRSO,1,STR?184
+	PRINTI	" just like "
+	CALL	PRINTA,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	V-SMILE
+	FSET?	PRSO,PERSON \?ELS5
+	IN?	PRSO,GLOBAL-OBJECTS /?ELS5
+	PRINTD	PRSO
+	PRINTR	" smiles back at you."
+?ELS5:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-SMOKE
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-STOP
+	EQUAL?	PRSO,ROOMS \?ELS5
+	EQUAL?	HERE,SUB \?ELS5
+	CALL	PERFORM,V?STOP,LOCAL-SUB
+	RTRUE	
+?ELS5:	ZERO?	PRSO /?ELS9
+	FSET?	PRSO,ON?BIT \?ELS9
+	CALL	PERFORM,V?LAMP-OFF,PRSO
+	RTRUE	
+?ELS9:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-SURFACE
+	ZERO?	PRSO /?ELS5
+	EQUAL?	PRSO,LOCAL-SUB /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	SET	'P-NUMBER,0
+	CALL	PERFORM,V?SET,DEPTH-CONTROL,METER
+	RTRUE	
+
+
+	.FUNCT	V-SWIM
+	PRINTI	"You can't swim "
+	ZERO?	PRSO /?ELS7
+	PRINTI	"in"
+	CALL	THE-PRSO-PRINT
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."
+?ELS7:	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	PRE-TAKE
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	ZERO?	PRSI /?ELS7
+	EQUAL?	PRSO,TRAITOR,ORE-NODULES,GLOBAL-SNARK /?THN16
+	EQUAL?	PRSO,SEA-WALL,LOCAL-SUB,GLOBAL-SUB \?ELS13
+?THN16:	EQUAL?	PRSI,GAME /?THN18
+	EQUAL?	PRSI,AQUADOME,AIRLOCK,TEST-TANK /?THN18
+	EQUAL?	PRSI,DOCKING-TANK,UNDERWATER,GLOBAL-HERE /?THN18
+	EQUAL?	PRSI,SEA,BAY,GLOBAL-WATER \?ELS13
+?THN18:	CALL	MORE-SPECIFIC
+	RSTACK	
+?ELS13:	LOC	PRSO
+	EQUAL?	PRSI,STACK /?ELS21
+	FSET?	PRSI,PERSON /?ELS26
+	CALL	HE-SHE-IT,PRSO,1
+	PRINTI	"'s not "
+	EQUAL?	PRSI,HOOK \?ELS33
+	PUSH	STR?47
+	JUMP	?CND29
+?ELS33:	PUSH	STR?112
+?CND29:	PRINT	STACK
+	PRINTR	" that!"
+?ELS26:	CALL	HE-SHE-IT,PRSI,1
+	PRINTI	" doesn't have "
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"!"
+?ELS21:	SET	'PRSI,0
+	RFALSE	
+?ELS7:	EQUAL?	PRSO,PLAYER-NAME,TEST-TANK,YOU /FALSE
+	EQUAL?	PRSO,GLOBAL-GREENUP,GREENUP \?ELS47
+	FSET?	GREENUP,MUNGBIT /FALSE
+	CALL	PERFORM,V?ARREST,PRSO
+	RTRUE	
+?ELS47:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS \?ELS54
+	FSET?	PRSO,PERSON /FALSE
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS54:	IN?	PRSO,WINNER \?ELS61
+	CALL	ALREADY,PLAYER,STR?185
+	RSTACK	
+?ELS61:	LOC	PRSO
+	FSET?	STACK,CONTBIT \?ELS63
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?ELS63
+	CALL	YOU-CANT,STR?186
+	RSTACK	
+?ELS63:	LOC	WINNER
+	EQUAL?	PRSO,STACK \FALSE
+	PRINTR	"You're in it, nitwit!"
+
+
+	.FUNCT	V-TAKE
+	CALL	ITAKE
+	EQUAL?	STACK,1 \FALSE
+	EQUAL?	WINNER,PLAYER \?ELS8
+	PRINTI	"You're"
+	JUMP	?CND6
+?ELS8:	CALL	HE-SHE-IT,WINNER,1
+	PRINTI	" is"
+?CND6:	PRINTI	" now holding"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-TAKE-TO
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-TAKE-WITH
+	PRINTI	"You can't remove"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" with"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"!"
+
+
+	.FUNCT	V-DISEMBARK
+	LOC	PRSO
+	EQUAL?	STACK,WINNER \?ELS5
+	PRINTI	"You don't need to take out"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" to use it."
+?ELS5:	EQUAL?	PRSO,SEA,BAY,GLOBAL-WATER /?THN10
+	EQUAL?	PRSO,GLOBAL-HERE,HERE,ROOMS \?ELS9
+?THN10:	CALL	DO-WALK,P?OUT
+	RTRUE	
+?ELS9:	LOC	WINNER
+	EQUAL?	STACK,PRSO /?ELS18
+	PRINTI	"You're not in that!"
+	CRLF	
+	RETURN	2
+?ELS18:	CALL	OWN-FEET
+	RSTACK	
+
+
+	.FUNCT	OWN-FEET
+	MOVE	WINNER,HERE
+	PRINTR	"You're on your own feet again."
+
+
+	.FUNCT	V-TELL,P
+	EQUAL?	PRSO,PLAYER \?ELS5
+	EQUAL?	WINNER,PLAYER /?ELS10
+	SET	'P,WINNER
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK,P
+	RTRUE	
+?ELS10:	ZERO?	QCONTEXT /?ELS12
+	SET	'QCONTEXT,0
+	ZERO?	P-CONT /?ELS18
+	SET	'WINNER,PLAYER
+	RTRUE	
+?ELS18:	PRINTR	"Okay, you're not talking to anyone else."
+?ELS12:	CALL	WONT-HELP-TO-TALK-TO,PLAYER
+	SET	'QUOTE-FLAG,0
+	SET	'P-CONT,0
+	RETURN	2
+?ELS5:	FSET?	PRSO,PERSON /?THN30
+	EQUAL?	PRSO,COMPUTESTOR \?ELS29
+?THN30:	ZERO?	P-CONT /?ELS34
+	SET	'WINNER,PRSO
+	JUMP	?CND32
+?ELS34:	PRINTD	PRSO
+	PRINTI	" is listening."
+	CRLF	
+?CND32:	SET	'QCONTEXT,PRSO
+	SET	'QCONTEXT-ROOM,HERE
+	RTRUE	
+?ELS29:	CALL	YOU-CANT,STR?187
+	SET	'QUOTE-FLAG,0
+	SET	'P-CONT,0
+	RETURN	2
+
+
+	.FUNCT	PRE-TELL-ABOUT,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSI
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS9
+	FSET?	P,INVISIBLE /?ELS9
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSI
+	RTRUE	
+?ELS9:	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-TELL-ABOUT,P
+	GETP	PRSI,P?TEXT
+	ZERO?	STACK /?ELS5
+	GETP	PRSI,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	CALL	ARENT-TALKING
+	RSTACK	
+?ELS9:	PRINTD	PRSO
+	CALL	PICK-ONE,WHO-CARES
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	PRE-TALK-ABOUT,P
+	EQUAL?	WINNER,PLAYER /?ELS5
+	CALL	PERFORM,V?TELL-ABOUT,PLAYER,PRSO
+	RTRUE	
+?ELS5:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS7
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
+	RTRUE	
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /FALSE
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TALK-ABOUT
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-THANKS,P
+	SET	'P,PRSO
+	ZERO?	PRSO /?ELS9
+	FSET?	PRSO,PERSON /?THN6
+?ELS9:	SET	'P,QCONTEXT
+	CALL	NULL-F
+	ZERO?	STACK \?THN6
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK \?THN6
+	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS5
+?THN6:	PRINTD	P
+	PRINTR	" acknowledges your thanks."
+?ELS5:	PRINTR	"You're more than welcome."
+
+
+	.FUNCT	V-THROW
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	PRINTR	"Thrown."
+
+
+	.FUNCT	V-THROW-AT
+	CALL	IDROP
+	ZERO?	STACK /TRUE
+	EQUAL?	PRSI,PLAYER \?CND4
+	PRINTR	"Don't be silly!"
+?CND4:	FSET?	PRSI,PERSON /?CND9
+	FSET?	PRSI,NARTICLEBIT /?CND9
+	PRINTI	"The "
+?CND9:	PRINTD	PRSI
+	FSET?	PRSI,PERSON \?ELS22
+	PUSH	STR?188
+	JUMP	?CND18
+?ELS22:	PUSH	STR?189
+?CND18:	PRINT	STACK
+	PRINTI	" as"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" flies by."
+
+
+	.FUNCT	V-THROW-THROUGH
+	FSET?	PRSO,PERSON /?ELS5
+	PRINTR	"Let's not resort to violence, please."
+?ELS5:	CALL	V-THROW
+	RSTACK	
+
+
+	.FUNCT	PRE-TIE-TO
+	EQUAL?	PRSI,SONAR-EQUIPMENT,GLOBAL-SONAR /FALSE
+	EQUAL?	PRSI,CLAW,LOCAL-SUB,GLOBAL-SUB /FALSE
+	FSET?	PRSO,PERSON \?THN10
+	FSET?	PRSI,FURNITURE /FALSE
+?THN10:	PRINTR	"That won't do any good."
+
+
+	.FUNCT	V-TIE-TO
+	PRINTI	"You can't tie"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" to that."
+
+
+	.FUNCT	PRE-TIE-WITH
+	FSET?	PRSO,PERSON \?THN6
+	FSET?	PRSI,TOOLBIT /FALSE
+?THN6:	PRINTR	"That won't do any good."
+
+
+	.FUNCT	V-TIE-WITH
+	PRINTR	"""If you don't formally arrest me first, I'll sue!"""
+
+
+	.FUNCT	V-TURN
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS5
+	CALL	HAR-HAR
+	RSTACK	
+?ELS5:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS \?ELS7
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS7:	FSET?	PRSO,DOORBIT \?ELS9
+	FSET?	PRSO,OPENBIT \?ELS9
+	CALL	PERFORM,V?CLOSE,PRSO
+	RTRUE	
+?ELS9:	PRINTR	"What do you want that to do?"
+
+
+	.FUNCT	V-LAMP-OFF
+	FSET?	PRSO,PERSON \?ELS5
+	PRINTR	"Your vulgar ways would turn anyone off."
+?ELS5:	FSET?	PRSO,ON?BIT /?ELS9
+	CALL	YOU-CANT,STR?190
+	RSTACK	
+?ELS9:	FSET?	PRSO,ONBIT /?ELS11
+	CALL	ALREADY,PRSO,STR?44
+	RSTACK	
+?ELS11:	EQUAL?	PRSO,OXYGEN-GEAR,MICROPHONE-DOME,MICROPHONE \?ELS13
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+?ELS13:	CALL	OKAY,PRSO,STR?44
+	RSTACK	
+
+
+	.FUNCT	V-LAMP-ON
+	FSET?	PRSO,ONBIT \?ELS5
+	CALL	ALREADY,PRSO,STR?47
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,OXYGEN-GEAR,MICROPHONE-DOME,MICROPHONE \?ELS7
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+?ELS7:	FSET?	PRSO,ON?BIT \?ELS11
+	CALL	OKAY,PRSO,STR?47
+	RSTACK	
+?ELS11:	FSET?	PRSO,PERSON \?ELS13
+	CALL	HAR-HAR
+	RSTACK	
+?ELS13:	CALL	YOU-CANT,STR?191
+	RSTACK	
+
+
+	.FUNCT	V-UNLOCK
+	FSET?	PRSO,CONTBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSO,DOORBIT /?THN8
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS7
+?THN8:	FSET?	PRSO,OPENBIT \?ELS14
+	CALL	YOU-CANT,0,PRSO,STR?23
+	RSTACK	
+?ELS14:	FSET?	PRSO,LOCKED /?ELS16
+	CALL	ALREADY,PRSO,STR?192
+	RSTACK	
+?ELS16:	FCLEAR	PRSO,LOCKED
+	CALL	OKAY,PRSO,STR?192
+	RSTACK	
+?ELS7:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-UNTIE
+	PRINTI	"You can't tie "
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	", so you can't untie "
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	MORE-SPECIFIC
+	PRINTR	"How do you want to do that?"
+
+
+	.FUNCT	V-USE
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-USE-AGAINST
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	HAS-ARRIVED,WHO
+	FSET	WHO,TOUCHBIT
+	PRINTD	WHO
+	PRINTR	", for whom you're waiting, has arrived."
+
+
+	.FUNCT	V-WAIT,NUM=-1,WHO=0,INT=0,VAL,HR,RESULT=1
+	EQUAL?	-1,NUM \?CND1
+	SET	'NUM,10
+	PRINT	I-ASSUME
+	PRINTI	" wait 10 turns.)"
+	CRLF	
+?CND1:	SET	'HR,HERE
+	SET	'WHO-WAIT,0
+	ZERO?	INT \?CND6
+	PRINTI	"Time passes..."
+	CRLF	
+?CND6:	
+?PRG11:	DLESS?	'NUM,0 \?ELS15
+	JUMP	?REP12
+?ELS15:	CALL	CLOCKER >VAL
+	ZERO?	VAL /?ELS17
+	EQUAL?	VAL,M-FATAL /?THN21
+	EQUAL?	HR,HERE /?ELS20
+?THN21:	SET	'RESULT,M-FATAL
+	JUMP	?REP12
+?ELS20:	ZERO?	WHO /?ELS24
+	IN?	WHO,HERE \?ELS24
+	CALL	HAS-ARRIVED,WHO
+	JUMP	?REP12
+?ELS24:	ZERO?	NUM \?ELS28
+	JUMP	?REP12
+?ELS28:	INC	'WHO-WAIT
+	ZERO?	INT /?ELS33
+	PRINTI	"Do you want to continue what you were doing?"
+	JUMP	?CND31
+?ELS33:	PRINTI	"Do you want to keep waiting?"
+?CND31:	CALL	YES?
+	ZERO?	STACK \?ELS43
+	JUMP	?REP12
+?ELS43:	USL	
+	JUMP	?PRG11
+?ELS17:	ZERO?	WHO /?ELS47
+	IN?	WHO,HERE \?ELS47
+	CALL	HAS-ARRIVED,WHO
+	JUMP	?REP12
+?ELS47:	ZERO?	WHO /?ELS51
+	IGRTR?	'WHO-WAIT,30 \?ELS51
+	PRINTD	WHO
+	PRINTI	" still hasn't arrived. Do you want to keep waiting?"
+	CALL	YES?
+	ZERO?	STACK \?CND56
+	JUMP	?REP12
+?CND56:	SET	'WHO-WAIT,0
+	USL	
+	JUMP	?PRG11
+?ELS51:	USL	
+	JUMP	?PRG11
+?REP12:	SET	'CLOCK-WAIT,1
+	RETURN	RESULT
+
+
+	.FUNCT	INT-WAIT,N,TIM,REQ,VAL
+	SET	'TIM,MOVES
+	MUL	N,2
+	RANDOM	STACK >REQ
+	CALL	V-WAIT,REQ,0,1
+	EQUAL?	M-FATAL,STACK \?ELS5
+	RETURN	2
+?ELS5:	SUB	MOVES,TIM
+	LESS?	STACK,REQ /FALSE
+	RTRUE	
+
+
+	.FUNCT	V-WAIT-FOR,WHO
+	EQUAL?	-1,P-NUMBER /?ELS5
+	EQUAL?	PRSO,TURN,ROOMS \?ELS5
+	GRTR?	P-NUMBER,180 \?ELS12
+	PRINTR	"That's too long to wait."
+?ELS12:	CALL	V-WAIT,P-NUMBER
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,GLOBAL-HERE,TURN,ROOMS \?ELS18
+	CALL	V-WAIT
+	RTRUE	
+?ELS18:	EQUAL?	PRSO,PLAYER \?ELS20
+	CALL	ALREADY,PLAYER,STR?55
+	RSTACK	
+?ELS20:	FSET?	PRSO,PERSON \?ELS22
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >WHO
+	CALL	META-LOC,WHO
+	EQUAL?	STACK,HERE \?ELS27
+	CALL	ALREADY,WHO,STR?55
+	RSTACK	
+?ELS27:	CALL	V-WAIT,10000,WHO
+	RSTACK	
+?ELS22:	PRINTR	"Not a good idea. You might wait forever."
+
+
+	.FUNCT	V-WAIT-UNTIL
+	EQUAL?	-1,P-NUMBER /?ELS5
+	EQUAL?	PRSO,TURN \?ELS5
+	GRTR?	P-NUMBER,MOVES \?ELS12
+	SUB	P-NUMBER,MOVES
+	CALL	V-WAIT,STACK
+	RSTACK	
+?ELS12:	PRINTR	"It's already past that time."
+?ELS5:	CALL	YOU-CANT,STR?193
+	RSTACK	
+
+
+	.FUNCT	V-ALARM
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	HE-SHE-IT,PRSO,1
+	PRINTR	"'s wide awake, or haven't you noticed?"
+?ELS5:	CALL	TOO-BAD-BUT,PRSO,STR?194
+	RSTACK	
+
+
+	.FUNCT	DO-WALK,DIR
+	SET	'P-WALK-DIR,DIR
+	CALL	PERFORM,V?WALK,DIR
+	RSTACK	
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM
+	EQUAL?	PRSO,RIGHT,LEFT \?ELS3
+	CALL	PERFORM,V?TURN,PRSO
+	RTRUE	
+?ELS3:	ZERO?	P-WALK-DIR \?CND1
+	CALL	V-WALK-AROUND
+	RETURN	2
+?CND1:	LOC	WINNER
+	GETPT	STACK,PRSO >PT
+	ZERO?	PT /?ELS12
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?ELS17
+	GETB	PT,REXIT >RM
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS17:	EQUAL?	PTS,NEXIT \?ELS22
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	CRLF	
+	RETURN	2
+?ELS22:	EQUAL?	PTS,FEXIT \?ELS28
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?ELS33
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS33:	RETURN	2
+?ELS28:	EQUAL?	PTS,CEXIT \?ELS42
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?ELS47
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS47:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?ELS52
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?ELS52:	CALL	YOU-CANT,STR?138
+	RETURN	2
+?ELS42:	EQUAL?	PTS,DEXIT \FALSE
+	GETB	PT,DEXITOBJ >OBJ
+	FSET?	OBJ,OPENBIT \?ELS67
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS67:	FSET?	OBJ,INVISIBLE \?ELS72
+	ZERO?	DEBUG /?THN75
+	PRINTI	"[invisible] "
+?THN75:	CALL	YOU-CANT,STR?138
+	RSTACK	
+?ELS72:	GET	PT,DEXITSTR >STR
+	ZERO?	STR /?ELS80
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?ELS80:	CALL	TOO-BAD-BUT,OBJ,STR?17
+	CALL	THIS-IS-IT,OBJ
+	RETURN	2
+?ELS12:	EQUAL?	PRSO,P?IN,P?OUT \?ELS90
+	CALL	V-WALK-AROUND
+	RSTACK	
+?ELS90:	CALL	YOU-CANT,STR?138
+	RETURN	2
+
+
+	.FUNCT	V-WALK-AROUND
+	SET	'P-WON,0
+	PRINTI	"(What "
+	PRINTD	INTDIR
+	PRINTI	" do you want to go in?)"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-WALK-TO,O,L
+	SET	'O,PRSO
+	EQUAL?	O,LOCAL-SUB,GLOBAL-SUB \?ELS3
+	SET	'O,SUB
+	JUMP	?CND1
+?ELS3:	FSET?	O,PERSON \?CND1
+	IN?	O,GLOBAL-OBJECTS \?CND1
+	GETP	O,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >O
+?CND1:	CALL	META-LOC,O >L
+	EQUAL?	HERE,SUB \?ELS12
+	FSET?	PRSO,UNITBIT \?ELS12
+	CALL	PERFORM,V?SET,DEPTH-CONTROL,PRSO
+	RTRUE	
+?ELS12:	LOC	WINNER
+	EQUAL?	HERE,STACK \?ELS16
+	EQUAL?	L,HERE /?THN19
+	EQUAL?	L,LOCAL-GLOBALS \?ELS16
+	CALL	GLOBAL-IN?,O,HERE
+	ZERO?	STACK /?ELS16
+?THN19:	CALL	HE-SHE-IT,WINNER,1
+	EQUAL?	WINNER,PLAYER \?ELS25
+	PRINTI	" do"
+	JUMP	?CND23
+?ELS25:	PRINTI	" does"
+?CND23:	PRINTI	"n't need to walk around within a "
+	PUSH	STR?195
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS16:	EQUAL?	L,LOCAL-GLOBALS \?ELS40
+	CALL	MORE-SPECIFIC
+	RSTACK	
+?ELS40:	EQUAL?	PRSO,JOB \?ELS42
+	EQUAL?	WINNER,PLAYER /?CND43
+	PRINTI	""""
+?CND43:	CALL	MORE-SPECIFIC
+	EQUAL?	WINNER,PLAYER /?CND48
+	PRINTI	""""
+?CND48:	CRLF	
+	RTRUE	
+?ELS42:	EQUAL?	PRSO,INTDIR \?ELS54
+	CALL	V-WALK-AROUND
+	RSTACK	
+?ELS54:	CALL	FAR-AWAY?,L
+	ZERO?	STACK /?ELS56
+	CALL	HE-SHE-IT,WINNER,1
+	PRINTI	" can't go from here to there"
+	EQUAL?	L,GLOBAL-OBJECTS /?CND59
+	PRINTI	", at least not directly"
+?CND59:	PRINTR	"."
+?ELS56:	EQUAL?	WINNER,PLAYER /?ELS67
+	CALL	GOTO,L
+	ZERO?	STACK /FALSE
+	PRINTI	"""Okay."
+	EQUAL?	WINNER,TIP \?CND75
+	PRINTI	" But I'll still follow you if you move!"
+?CND75:	PRINTR	""""
+?ELS67:	ZERO?	SUB-IN-DOME /?ELS83
+	FSET?	FOOT-OF-RAMP,TOUCHBIT /?ELS83
+	EQUAL?	L,FOOT-OF-RAMP /?ELS83
+	EQUAL?	L,SUB,AIRLOCK,AIRLOCK-WALL /?ELS83
+	PRINTI	"You should go to the "
+	PRINTD	FOOT-OF-RAMP
+	PRINTR	" first."
+?ELS83:	IN?	O,ROOMS \?ELS89
+	CALL	GOTO,O
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS89:	CALL	HE-SHE-IT,O,1
+	PRINTI	"'s in"
+	CALL	PRINTT,L
+	PRINTI	"."
+	CRLF	
+	CALL	GOTO,L
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+
+
+	.FUNCT	V-WALK-UNDER
+	EQUAL?	PRSO,BAY,SEA,GLOBAL-WATER \?ELS5
+	CALL	PERFORM,V?DIVE
+	RTRUE	
+?ELS5:	CALL	YOU-CANT,STR?196
+	RSTACK	
+
+
+	.FUNCT	V-RUN-OVER
+	PRINTR	"That doesn't make much sense."
+
+
+	.FUNCT	V-WHAT,P
+	EQUAL?	PRSO,PLAYER \?ELS5
+	EQUAL?	WINNER,PLAYER /?CND6
+	PRINTI	""""
+?CND6:	PRINTI	"You're the inventor!"
+	EQUAL?	WINNER,PLAYER /?CND13
+	PRINTI	""""
+?CND13:	CRLF	
+	RTRUE	
+?ELS5:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS23
+	SET	'P,QCONTEXT
+	PUSH	1
+	FSET?	STACK,PERSON /?THN20
+?ELS23:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS19
+?THN20:	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RSTACK	
+?ELS19:	FSET?	PRSO,PERSON \?ELS25
+	GETP	TIP,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS25:	CALL	WONT-HELP-TO-TALK-TO,PLAYER
+	RSTACK	
+
+
+	.FUNCT	V-YELL
+	CALL	V-YES
+	RSTACK	
+
+
+	.FUNCT	V-YELL-FOR
+	ZERO?	DOME-AIR-BAD? /?ELS5
+	EQUAL?	PRSO,SPECIAL-TOOL-GLOBAL,SPECIAL-TOOL,UNIVERSAL-TOOL \?ELS5
+	PRINTI	"The three crew members who are still on their feet shout back that the "
+	PRINTD	SPECIAL-TOOL
+	PRINTR	" should be there on the hook."
+?ELS5:	CALL	V-YES
+	RSTACK	
+
+
+	.FUNCT	V-YES,NO?=0
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	EQUAL?	WINNER,PLAYER \?ELS5
+	SET	'WINNER,QCONTEXT
+	ZERO?	NO? /?ELS10
+	CALL	PERFORM,V?NO
+	RTRUE	
+?ELS10:	CALL	PERFORM,V?YES
+	RTRUE	
+?ELS5:	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-NO
+	CALL	V-YES,1
+	RSTACK	
+
+
+	.FUNCT	SCORE-UPD,NUM
+	ADD	SCORE,NUM >SCORE
+	PRINTI	"("
+	GRTR?	0,NUM \?CND3
+	PRINTI	"Oh no! "
+?CND3:	PRINTI	"Your score just went "
+	LESS?	0,NUM \?ELS12
+	PRINTI	"up"
+	JUMP	?CND10
+?ELS12:	SUB	0,NUM >NUM
+	PRINTI	"down"
+?CND10:	PRINTI	" by "
+	PRINTN	NUM
+	PRINTI	" point"
+	EQUAL?	NUM,1 /?CND21
+	PRINTI	"s"
+?CND21:	PRINTR	"!)"
+
+
+	.FUNCT	SCORE-OBJ,OBJ,TEMP
+	GETP	OBJ,P?VALUE >TEMP
+	ZERO?	TEMP /FALSE
+	GRTR?	TEMP,0 \FALSE
+	CALL	SCORE-UPD,TEMP
+	PUTP	OBJ,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	V-SCORE
+	PRINTI	"Your score is "
+	PRINTN	SCORE
+	PRINTI	" point"
+	EQUAL?	SCORE,1 /?CND5
+	PRINTI	"s"
+?CND5:	PRINTI	" out of "
+	PRINTN	SCORE-MAX
+	PRINTI	", in "
+	PRINTN	MOVES
+	EQUAL?	MOVES,1 \?ELS16
+	PRINTI	" turn."
+	JUMP	?CND14
+?ELS16:	PRINTI	" turns."
+?CND14:	CRLF	
+	PRINTI	"This score gives you the rank of a "
+	GRTR?	0,SCORE \?ELS29
+	GET	RANKS,0
+	JUMP	?CND25
+?ELS29:	DIV	SCORE,20
+	GET	RANKS,STACK
+?CND25:	PRINT	STACK
+	PRINTI	" adventurer."
+	CRLF	
+	RETURN	SCORE
+
+
+	.FUNCT	FINISH,REPEATING=0,VAL
+	ZERO?	DEBUG \TRUE
+	CRLF	
+	CRLF	
+	ZERO?	REPEATING \?CND5
+	CALL	V-SCORE
+	CRLF	
+?CND5:	PRINTI	"Would you like to:
+   RESTORE your place from where you saved it,
+   RESTART the story from the beginning, or
+   QUIT for now?
+"
+?PRG10:	PRINTI	">"
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,P-LEXSTART >VAL
+	ZERO?	VAL /?CND14
+	CALL	WT?,VAL,PS?VERB,P1?VERB >VAL
+	EQUAL?	VAL,ACT?RESTART \?ELS19
+	RESTART	
+	CALL	FINISH,1
+	JUMP	?CND14
+?ELS19:	EQUAL?	VAL,ACT?RESTORE \?ELS21
+	CALL	V-RESTORE
+	ZERO?	STACK \TRUE
+	CALL	FINISH,1
+	JUMP	?CND14
+?ELS21:	EQUAL?	VAL,ACT?QUIT \?CND14
+	QUIT	
+?CND14:	PRINTI	"(Type RESTORE, RESTART, or QUIT.) "
+	JUMP	?PRG10
+
+
+	.FUNCT	DIVESTMENT?,OBJ
+	EQUAL?	PRSO,OBJ \FALSE
+	EQUAL?	PRSA,V?THROW-THROUGH,V?THROW-AT /TRUE
+	EQUAL?	PRSA,V?PUT,V?GIVE,V?DROP /TRUE
+	RFALSE	
+
+
+	.FUNCT	EXIT-VERB?
+	EQUAL?	PRSA,V?WALK /TRUE
+	EQUAL?	PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \FALSE
+	CALL	META-LOC,PRSO
+	EQUAL?	HERE,STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	GAME-VERB?
+	EQUAL?	PRSA,V?DEBUG /TRUE
+	EQUAL?	PRSA,V?$VERIFY,V?SCORE,V?UNSCRIPT /TRUE
+	EQUAL?	PRSA,V?SCRIPT,V?VERSION,V?QUIT /TRUE
+	EQUAL?	PRSA,V?RESTORE,V?SAVE,V?VERBOSE /TRUE
+	EQUAL?	PRSA,V?SUPER-BRIEF,V?BRIEF,V?TELL /TRUE
+	RFALSE	
+
+
+	.FUNCT	REMOTE-VERB?
+	EQUAL?	PRSA,V?WHAT,V?WALK-TO /TRUE
+	EQUAL?	PRSA,V?TELL-ABOUT,V?TAKE-WITH,V?SGIVE /TRUE
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?MAKE /TRUE
+	EQUAL?	PRSA,V?LOOK-UP,V?GIVE,V?FIND /TRUE
+	EQUAL?	PRSA,V?DROP,V?DISEMBARK,V?ASK-FOR /TRUE
+	EQUAL?	PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /TRUE
+	RFALSE	
+
+
+	.FUNCT	SPEAKING-VERB?
+	EQUAL?	PRSA,V?YES,V?WHAT /TRUE
+	EQUAL?	PRSA,V?TELL-ABOUT,V?TELL,V?NO /TRUE
+	EQUAL?	PRSA,V?HELLO,V?GOODBYE,V?ASK-FOR /TRUE
+	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK,V?$CALL /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..8170b36
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,3741 @@
+
+
+	.FUNCT	TRANSCRIPT,STR
+	PRINTI	"Here "
+	PRINT	STR
+	PRINTR	"s a transcript of interaction with"
+
+
+	.FUNCT	V-SCRIPT
+	ZERO?	SCREEN-NOW-SPLIT /?CND1
+	SPLIT	0
+?CND1:	GET	0,8
+	BOR	STACK,1
+	PUT	0,8,STACK
+	CALL	TRANSCRIPT,STR?124
+	CALL	V-VERSION
+	CALL	START-SONAR?
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	CALL	TRANSCRIPT,STR?125
+	CALL	V-VERSION
+	GET	0,8
+	BAND	STACK,-2
+	PUT	0,8,STACK
+	RTRUE	
+
+
+	.FUNCT	V-$VERIFY
+	PRINTI	"Verifying disk..."
+	CRLF	
+	VERIFY	 \?ELS7
+	PRINTR	"The disk is correct."
+?ELS7:	PRINTR	"Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)"
+
+
+	.FUNCT	V-DEBUG
+	ZERO?	DEBUG \?PRD6
+	PUSH	1
+	JUMP	?PRD7
+?PRD6:	PUSH	0
+?PRD7:	SET	'DEBUG,STACK
+	ZERO?	DEBUG /?ELS5
+	PRINTR	"Find them bugs, boss!"
+?ELS5:	PRINTR	"No bugs left, eh?"
+
+
+	.FUNCT	YOU-WILL-GET,STR
+	PRINTI	"(Okay, you will get "
+	PRINT	STR
+	PRINTR	" descriptions.)"
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSE,FALSE-VALUE
+	SET	'SUPER-BRIEF,FALSE-VALUE
+	SET	'P-SPACE,1
+	CALL	YOU-WILL-GET,STR?119
+	RSTACK	
+
+
+	.FUNCT	V-SUPER-BRIEF
+	SET	'SUPER-BRIEF,TRUE-VALUE
+	SET	'P-SPACE,0
+	CALL	YOU-WILL-GET,STR?126
+	RSTACK	
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSE,TRUE-VALUE
+	SET	'SUPER-BRIEF,FALSE-VALUE
+	SET	'P-SPACE,1
+	CALL	YOU-WILL-GET,STR?127
+	CALL	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-INVENTORY
+	ZERO?	P-WHAT-IGNORED /?ELS5
+	EQUAL?	WINNER,PLAYER /?CND7
+	PRINTI	""""
+?CND7:	PRINTI	"You're the inventor!"
+	EQUAL?	WINNER,PLAYER /?CND14
+	PRINTI	""""
+?CND14:	CRLF	
+	RTRUE	
+?ELS5:	CALL	PRINT-CONT,WINNER
+	ZERO?	STACK \FALSE
+	EQUAL?	WINNER,PLAYER \?ELS23
+	PRINTI	"You're"
+	JUMP	?CND21
+?ELS23:	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	"'s"
+?CND21:	PRINTR	" not holding anything."
+
+
+	.FUNCT	V-QUIT,ASK?=1
+	CALL	V-SCORE
+	ZERO?	ASK? /?ELS9
+	PRINTI	"(If you want to continue from this point at another time, you must ""SAVE"" first.)
+Do you want to stop playing now?"
+	CALL	YES?
+	ZERO?	STACK \?THN6
+?ELS9:	ZERO?	ASK? \?ELS5
+?THN6:	QUIT	
+	RTRUE	
+?ELS5:	PRINTR	"Okay."
+
+
+	.FUNCT	V-RESTART
+	CALL	V-SCORE
+	PRINTI	"Do you want to start over from the beginning?"
+	CALL	YES?
+	ZERO?	STACK /FALSE
+	RESTART	
+	PRINT	FAILED
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-SAVE
+	ZERO?	SCREEN-NOW-SPLIT /?CND1
+	SPLIT	0
+?CND1:	SAVE	 \?ELS7
+	PRINTI	"Okay."
+	CRLF	
+	CALL	V-FIRST-LOOK
+	JUMP	?CND5
+?ELS7:	PRINT	FAILED
+	CRLF	
+?CND5:	CALL	START-SONAR?
+	RTRUE	
+
+
+	.FUNCT	V-RESTORE
+	ZERO?	SCREEN-NOW-SPLIT /?CND1
+	SPLIT	0
+?CND1:	RESTORE	 /FALSE
+	PRINT	FAILED
+	CRLF	
+	CALL	START-SONAR?
+	RFALSE	
+
+
+	.FUNCT	V-FIRST-LOOK
+	CALL	DESCRIBE-ROOM
+	ZERO?	STACK /FALSE
+	ZERO?	SUPER-BRIEF \FALSE
+	CALL	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	V-VERSION,CNT=17,V
+	GET	0,1
+	BAND	STACK,2047 >V
+	PRINTI	"SEASTALKER: "
+	CALL	PRINT-NAME,FIRST-NAME,TRUE-VALUE
+	PRINTC	32
+	CALL	PRINT-NAME,LAST-NAME,TRUE-VALUE
+	PRINTI	" AND THE ULTRAMARINE BIOCEPTOR
+Infocom interactive fiction - an adventure story
+Copyright (c) 1984, 1985 by Infocom, Inc. All rights reserved.
+"
+	PRINTI	"SEASTALKER is a trademark of Infocom, Inc.
+Release number "
+	PRINTN	V
+	PRINTI	" / Serial number "
+?PRG7:	IGRTR?	'CNT,23 \?ELS11
+	JUMP	?REP8
+?ELS11:	GETB	0,CNT
+	PRINTC	STACK
+	JUMP	?PRG7
+?REP8:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	YES?,WORD,VAL
+?PRG1:	PRINTI	" >"
+	READ	YES-INBUF,YES-LEXV
+	GET	YES-LEXV,P-LEXSTART >WORD
+	GETB	YES-LEXV,P-LEXWORDS
+	ZERO?	STACK \?ELS5
+	JUMP	?CND3
+?ELS5:	ZERO?	WORD /?CND3
+	CALL	WT?,WORD,PS?VERB,P1?VERB >VAL
+	EQUAL?	VAL,ACT?YES \?ELS10
+	SET	'VAL,TRUE-VALUE
+	RETURN	VAL
+?ELS10:	EQUAL?	VAL,ACT?NO /?THN13
+	EQUAL?	WORD,W?N \?CND3
+?THN13:	SET	'VAL,FALSE-VALUE
+	RETURN	VAL
+?CND3:	PRINTI	"(Please type YES or NO.)"
+	JUMP	?PRG1
+
+
+	.FUNCT	YOU-CANT,STR=0,WHILE=0,STR1=0
+	EQUAL?	WINNER,PLAYER \?ELS3
+	PRINTI	"You"
+	JUMP	?CND1
+?ELS3:	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+?CND1:	PRINTI	" can't "
+	ZERO?	STR /?ELS12
+	PRINT	STR
+	JUMP	?CND10
+?ELS12:	CALL	VERB-PRINT
+?CND10:	EQUAL?	STR,STR?129 \?ELS22
+	PRINTR	" in that direction."
+?ELS22:	ZERO?	STR1 /?ELS26
+	PRINTI	" it while"
+	ZERO?	WHILE /?ELS32
+	CALL	THIS-IS-IT,WHILE
+	CALL	PRINTT,WHILE
+	JUMP	?CND30
+?ELS32:	PRINTI	" it"
+?CND30:	PRINTI	" is "
+	PRINT	STR1
+	PRINTR	"."
+?ELS26:	CALL	THE-PRSO-PRINT
+	PRINTR	" now."
+
+
+	.FUNCT	DESCRIBE-OBJECT,OBJ,V?,LEVEL,STR=0,AV,NO-CR=0
+	CALL	THIS-IS-IT,OBJ
+	ZERO?	LEVEL \?CND1
+	GETP	OBJ,P?DESCFCN
+	CALL	STACK,M-OBJDESC
+	ZERO?	STACK \TRUE
+?CND1:	ZERO?	LEVEL \?ELS8
+	FSET?	OBJ,TOUCHBIT /?ELS14
+	GETP	OBJ,P?FDESC >STR
+	ZERO?	STR \?THN11
+?ELS14:	GETP	OBJ,P?LDESC >STR
+	ZERO?	STR /?ELS8
+?THN11:	PRINT	STR
+	JUMP	?CND6
+?ELS8:	ZERO?	LEVEL \?ELS18
+	FSET?	OBJ,PERSON \?ELS21
+	CALL	IS-CREW?,OBJ
+	ZERO?	STACK /?ELS24
+	CALL	CREW-5-TOGETHER?
+	ZERO?	STACK /?ELS24
+	FSET?	BLY,MUNGBIT /?ELS24
+	EQUAL?	OBJ,LOWELL \?ELS29
+	PRINTI	"The five "
+	PRINTD	CREW
+	PRINTI	" members are here."
+	JUMP	?CND6
+?ELS29:	SET	'NO-CR,TRUE-VALUE
+	JUMP	?CND6
+?ELS24:	PRINTD	OBJ
+	PRINTI	" is here."
+	JUMP	?CND6
+?ELS21:	PRINTI	"There's "
+	CALL	PRINTA,OBJ
+	PRINTI	" here."
+	JUMP	?CND6
+?ELS18:	GET	INDENTS,LEVEL
+	PRINT	STACK
+	FSET?	OBJ,PERSON \?ELS48
+	CALL	IS-CREW?,OBJ
+	ZERO?	STACK /?ELS51
+	CALL	CREW-5-TOGETHER?
+	ZERO?	STACK /?ELS51
+	FSET?	BLY,MUNGBIT /?ELS51
+	EQUAL?	OBJ,LOWELL \?ELS56
+	PRINTI	"the five "
+	PRINTD	CREW
+	PRINTI	" members"
+	JUMP	?CND46
+?ELS56:	SET	'NO-CR,TRUE-VALUE
+	JUMP	?CND46
+?ELS51:	PRINTD	OBJ
+	JUMP	?CND46
+?ELS48:	CALL	PRINTA,OBJ
+?CND46:	EQUAL?	OBJ,OXYGEN-GEAR \?CND6
+	IN?	OXYGEN-GEAR,PLAYER \?CND6
+	PRINTI	" (being worn)"
+?CND6:	ZERO?	LEVEL \?CND76
+	LOC	WINNER >AV
+	ZERO?	AV /?CND76
+	FSET?	AV,VEHBIT \?CND76
+	PRINTI	" (outside"
+	CALL	PRINTT,AV
+	PRINTI	")"
+?CND76:	ZERO?	NO-CR \?CND83
+	CRLF	
+?CND83:	CALL	SEE-INSIDE?,OBJ
+	ZERO?	STACK /FALSE
+	FIRST?	OBJ \FALSE
+	CALL	PRINT-CONT,OBJ,V?,LEVEL
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-OBJECTS,V?=0
+	FIRST?	HERE \FALSE
+	ZERO?	V? /?ORP14
+	PUSH	V?
+	JUMP	?THN11
+?ORP14:	PUSH	VERBOSE
+?THN11:	POP	'V?
+	CALL	PRINT-CONT,HERE,V?,-1
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-ROOM,LOOK?=0,V?,STR,L
+	ZERO?	LOOK? /?ORP4
+	PUSH	LOOK?
+	JUMP	?THN1
+?ORP4:	PUSH	VERBOSE
+?THN1:	POP	'V?
+	FSET?	HERE,TOUCHBIT /?CND5
+	SET	'V?,TRUE-VALUE
+?CND5:	IN?	HERE,ROOMS \?CND8
+	PRINTI	"("
+	PRINTD	HERE
+	PRINTI	")"
+	CRLF	
+?CND8:	ZERO?	LOOK? \?THN16
+	ZERO?	SUPER-BRIEF \?CND13
+?THN16:	LOC	WINNER >L
+	FSET?	L,VEHBIT \?CND18
+	PRINTI	"(You're "
+	FSET?	L,SURFACEBIT \?ELS25
+	PRINTI	"sitting o"
+	JUMP	?CND23
+?ELS25:	PRINTI	"standing i"
+?CND23:	PRINTI	"n"
+	CALL	PRINTT,L
+	PRINTI	".)"
+	CRLF	
+?CND18:	ZERO?	V? /?ELS36
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK /?ELS36
+	FSET	HERE,TOUCHBIT
+	RTRUE	
+?ELS36:	ZERO?	V? /?ELS40
+	GETP	HERE,P?FDESC >STR
+	ZERO?	STR /?ELS40
+	PRINT	STR
+	CRLF	
+	JUMP	?CND34
+?ELS40:	ZERO?	V? /?ELS46
+	GETP	HERE,P?LDESC >STR
+	ZERO?	STR /?ELS46
+	PRINT	STR
+	CRLF	
+	JUMP	?CND34
+?ELS46:	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+?CND34:	EQUAL?	HERE,L /?CND13
+	GETP	L,P?ACTION
+	CALL	STACK,M-LOOK
+?CND13:	GETP	HERE,P?CORRIDOR
+	ZERO?	STACK /?CND56
+	CALL	CORRIDOR-LOOK
+?CND56:	FSET	HERE,TOUCHBIT
+	RTRUE	
+
+
+	.FUNCT	FAR-AWAY?,L
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	CALL	IN-LAB-AREA?,HERE
+	ZERO?	STACK /?ELS7
+	CALL	IN-LAB-AREA?,L
+	ZERO?	STACK \FALSE
+	RTRUE	
+?ELS7:	CALL	IN-DOME?,HERE
+	ZERO?	STACK /?ELS11
+	CALL	IN-DOME?,L
+	ZERO?	STACK \FALSE
+	RTRUE	
+?ELS11:	EQUAL?	HERE,SUB,CRAWL-SPACE \?ELS15
+	EQUAL?	L,SUB,CRAWL-SPACE /FALSE
+	RTRUE	
+?ELS15:	PRINTR	"[Foo! Where is HERE?]"
+
+
+	.FUNCT	FIRSTER,OBJ,LEVEL
+	EQUAL?	OBJ,PLAYER \?ELS5
+	PRINTR	"You're holding:"
+?ELS5:	FSET?	OBJ,PERSON \?ELS9
+	PRINTD	OBJ
+	PRINTR	" is holding:"
+?ELS9:	IN?	OBJ,ROOMS /FALSE
+	GRTR?	LEVEL,0 \?CND14
+	GET	INDENTS,LEVEL
+	PRINT	STACK
+?CND14:	FSET?	OBJ,SURFACEBIT \?ELS23
+	PRINTI	"Sitting on"
+	CALL	PRINTT,OBJ
+	PRINTR	" is:"
+?ELS23:	FSET?	OBJ,NARTICLEBIT /?CND28
+	PRINTI	"The "
+?CND28:	PRINTD	OBJ
+	PRINTR	" contains:"
+
+
+	.FUNCT	GO-NEXT,TBL,VAL
+	CALL	LKP,HERE,TBL >VAL
+	ZERO?	VAL /FALSE
+	CALL	GOTO,VAL
+	RSTACK	
+
+
+	.FUNCT	HAR-HAR
+	CALL	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	HE-SHE-IT,OBJ,CAP=0,VERB=0
+	FSET?	OBJ,PERSON \?ELS3
+	EQUAL?	OBJ,PLAYER \?ELS6
+	ZERO?	CAP /?ELS9
+	PRINTI	"You"
+	JUMP	?CND1
+?ELS9:	PRINTI	"you"
+	JUMP	?CND1
+?ELS6:	FSET?	OBJ,FEMALE \?ELS18
+	ZERO?	CAP /?ELS21
+	PRINTI	"She"
+	JUMP	?CND1
+?ELS21:	PRINTI	"she"
+	JUMP	?CND1
+?ELS18:	ZERO?	CAP /?ELS33
+	PRINTI	"He"
+	JUMP	?CND1
+?ELS33:	PRINTI	"he"
+	JUMP	?CND1
+?ELS3:	ZERO?	CAP /?ELS45
+	PRINTI	"It"
+	JUMP	?CND1
+?ELS45:	PRINTI	"it"
+?CND1:	ZERO?	VERB /FALSE
+	PRINTC	32
+	EQUAL?	VERB,STR?113 \?ELS63
+	EQUAL?	OBJ,PLAYER /?ELS68
+	PRINTI	"is"
+	RTRUE	
+?ELS68:	PRINTI	"are"
+	RTRUE	
+?ELS63:	PRINT	VERB
+	EQUAL?	OBJ,PLAYER /FALSE
+	PRINTI	"s"
+	RTRUE	
+
+
+	.FUNCT	HIM-HER-IT,OBJ,CAP=0,POSSESS?=0
+	FSET?	OBJ,PERSON \?ELS3
+	EQUAL?	OBJ,PLAYER \?ELS6
+	ZERO?	CAP /?ELS9
+	PRINTI	"You"
+	JUMP	?CND7
+?ELS9:	PRINTI	"you"
+?CND7:	ZERO?	POSSESS? /TRUE
+	PRINTI	"r"
+	RTRUE	
+?ELS6:	FSET?	OBJ,FEMALE \?ELS24
+	ZERO?	CAP /?ELS27
+	PRINTI	"Her"
+	RTRUE	
+?ELS27:	PRINTI	"her"
+	RTRUE	
+?ELS24:	ZERO?	POSSESS? /?ELS39
+	ZERO?	CAP /?ELS43
+	PRINTI	"His"
+	RTRUE	
+?ELS43:	PRINTI	"his"
+	RTRUE	
+?ELS39:	ZERO?	CAP /?ELS55
+	PRINTI	"Him"
+	RTRUE	
+?ELS55:	PRINTI	"him"
+	RTRUE	
+?ELS3:	ZERO?	CAP /?ELS67
+	PRINTI	"It"
+	JUMP	?CND65
+?ELS67:	PRINTI	"it"
+?CND65:	ZERO?	POSSESS? /TRUE
+	PRINTI	"s"
+	RTRUE	
+
+
+	.FUNCT	NOT-HOLDING?,OBJ
+	IN?	OBJ,WINNER /FALSE
+	LOC	OBJ
+	IN?	STACK,WINNER /FALSE
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	EQUAL?	WINNER,PLAYER \?ELS10
+	PRINTI	"'re"
+	JUMP	?CND8
+?ELS10:	PRINTI	"'s"
+?CND8:	PRINTI	" not holding"
+	CALL	PRINTT,OBJ
+	PRINTR	"."
+
+
+	.FUNCT	LKP,ITM,TBL,CNT=0,LEN
+	GET	TBL,0 >LEN
+?PRG1:	IGRTR?	'CNT,LEN /FALSE
+	GET	TBL,CNT
+	EQUAL?	STACK,ITM \?PRG1
+	EQUAL?	CNT,LEN /FALSE
+	ADD	CNT,1
+	GET	TBL,STACK
+	RETURN	STACK
+
+
+	.FUNCT	GOTO,RM,V?=1,L,ITARM,ILRM
+	IN?	WINNER,RM \?CND1
+	CALL	HAR-HAR
+	RFALSE	
+?CND1:	CALL	AIR-ROOM?,HERE
+	ZERO?	STACK /?CND4
+	CALL	AIR-ROOM?,RM
+	ZERO?	STACK \?CND4
+	CALL	BAD-AIR?
+	ZERO?	STACK \FALSE
+?CND4:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT \?CND9
+	EQUAL?	RM,DOME-LAB,BLY-OFFICE \?CND9
+	PRINTI	"You should wait for someone to invite you."
+	CRLF	
+	RFALSE	
+?CND9:	LOC	WINNER >L
+	ZERO?	SUB-IN-DOME /?CND16
+	FSET?	AIRLOCK-ROOF,OPENBIT /?CND16
+	CALL	THROUGH-ROOF?,RM,L
+	ZERO?	STACK /?CND16
+	CALL	THIS-IS-IT,AIRLOCK-ROOF
+	CALL	TOO-BAD-BUT,AIRLOCK-ROOF,STR?17
+	RFALSE	
+?CND16:	EQUAL?	WINNER,PLAYER \?ELS23
+	CALL	TIP-FOLLOWS-YOU,RM
+	JUMP	?CND21
+?ELS23:	FSET?	WINNER,MUNGBIT \?ELS25
+	PRINTI	"""I wish I could!"""
+	CRLF	
+	RFALSE	
+?ELS25:	EQUAL?	RM,CRAWL-SPACE /?THN30
+	EQUAL?	RM,SUB \?CND21
+	EQUAL?	WINNER,TIP,SHARON /?CND21
+?THN30:	PRINTI	"""You belong in there, not I!"""
+	CRLF	
+	RFALSE	
+?CND21:	ZERO?	SUB-IN-TANK \?ELS38
+	CALL	OPEN-DOOR,L
+	CALL	OPEN-DOOR,RM
+	JUMP	?CND36
+?ELS38:	CALL	IN-TANK-AREA?,RM >ITARM
+	CALL	IN-LAB?,RM >ILRM
+	CALL	IN-TANK-AREA?,L
+	ZERO?	STACK /?ELS43
+	ZERO?	ITARM \?CND44
+	FSET	SOUTH-DOORWAY,OPENBIT
+?CND44:	ZERO?	ILRM \?CND47
+	FSET	EAST-DOORWAY,OPENBIT
+?CND47:	EQUAL?	RM,LAB-STORAGE \?CND41
+	FSET	STORAGE-DOOR,OPENBIT
+	JUMP	?CND41
+?ELS43:	CALL	IN-LAB?,L
+	ZERO?	STACK /?ELS54
+	ZERO?	ITARM /?ELS57
+	FSET	SOUTH-DOORWAY,OPENBIT
+	JUMP	?CND41
+?ELS57:	ZERO?	ILRM \?CND61
+	FSET	EAST-DOORWAY,OPENBIT
+?CND61:	EQUAL?	RM,LAB-STORAGE \?CND36
+	FSET	STORAGE-DOOR,OPENBIT
+	JUMP	?CND36
+?ELS54:	EQUAL?	L,HALLWAY,OFFICE \?ELS68
+	ZERO?	ITARM /?CND69
+	FSET	EAST-DOORWAY,OPENBIT
+	FSET	SOUTH-DOORWAY,OPENBIT
+?CND69:	ZERO?	ILRM /?CND73
+	FSET	EAST-DOORWAY,OPENBIT
+?CND73:	EQUAL?	RM,LAB-STORAGE \?CND41
+	FSET	STORAGE-DOOR,OPENBIT
+	JUMP	?CND41
+?ELS68:	EQUAL?	L,LAB-STORAGE \?CND36
+	ZERO?	ITARM /?CND82
+	FSET	EAST-DOORWAY,OPENBIT
+	FSET	SOUTH-DOORWAY,OPENBIT
+?CND82:	ZERO?	ILRM /?CND86
+	FSET	EAST-DOORWAY,OPENBIT
+?CND86:	FSET	STORAGE-DOOR,OPENBIT
+?CND41:	
+?CND36:	MOVE	WINNER,RM
+	EQUAL?	WINNER,SHARON \?CND93
+	EQUAL?	RM,OFFICE \?ELS98
+	FSET	SHARON,NDESCBIT
+	FSET	FILE-DRAWER,NDESCBIT
+	FSET	PAPERS,NDESCBIT
+	JUMP	?CND93
+?ELS98:	FCLEAR	SHARON,NDESCBIT
+	FCLEAR	FILE-DRAWER,NDESCBIT
+	FCLEAR	PAPERS,NDESCBIT
+?CND93:	SET	'LIT,TRUE-VALUE
+	EQUAL?	WINNER,PLAYER \TRUE
+	SET	'HERE,RM
+	ZERO?	V? /?CND104
+	CALL	V-FIRST-LOOK
+?CND104:	GETP	HERE,P?ACTION
+	CALL	STACK,M-ENTER
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-FLASH
+	RTRUE	
+
+
+	.FUNCT	OPEN-DOOR,RM,TBL,DR
+	EQUAL?	RM,OFFICE,SUB /TRUE
+	EQUAL?	RM,AIRLOCK \?ELS7
+	FSET	AIRLOCK-ROOF,OPENBIT
+	RTRUE	
+?ELS7:	GETPT	RM,P?GLOBAL >TBL
+	ZERO?	TBL /FALSE
+	PTSIZE	TBL
+	SUB	STACK,1
+	CALL	ZMEMQBIT,DOORBIT,TBL,STACK >DR
+	ZERO?	DR /FALSE
+	FSET	DR,OPENBIT
+	RTRUE	
+
+
+	.FUNCT	HACK-HACK,STR
+	PRINT	STR
+	CALL	THE-PRSO-PRINT
+	CALL	PICK-ONE,HO-HUM
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	HELD?,OBJ
+?PRG1:	LOC	OBJ
+	ZERO?	STACK /FALSE
+	LOC	OBJ
+	EQUAL?	STACK,ROOMS,GLOBAL-OBJECTS /FALSE
+	IN?	OBJ,WINNER /TRUE
+	LOC	OBJ >OBJ
+	JUMP	?PRG1
+
+
+	.FUNCT	IDROP
+	FSET?	PRSO,PERSON \?ELS5
+	EQUAL?	PRSO,PLAYER \?ELS8
+	PRINTI	"You"
+	JUMP	?CND6
+?ELS8:	PRINTD	PRSO
+?CND6:	PRINTI	" wouldn't enjoy that."
+	CRLF	
+	RFALSE	
+?ELS5:	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \FALSE
+	IN?	PRSO,WINNER /?ELS20
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?ELS20
+	LOC	PRSO
+	CALL	TOO-BAD-BUT,STACK,STR?17
+	RFALSE	
+?ELS20:	MOVE	PRSO,HERE
+	FCLEAR	PRSO,NDESCBIT
+	FCLEAR	PRSO,INVISIBLE
+	RTRUE	
+
+
+	.FUNCT	ITAKE,VB=1,CNT,OBJ,TEMP,?TMP1
+	FSET?	PRSO,TAKEBIT /?ELS5
+	ZERO?	VB /FALSE
+	CALL	YOU-CANT,STR?19
+	RFALSE	
+?ELS5:	CALL	CCOUNT,WINNER >CNT
+	GRTR?	CNT,FUMBLE-NUMBER \?ELS11
+	MUL	CNT,FUMBLE-PROB >?TMP1
+	RANDOM	100
+	GRTR?	?TMP1,STACK \?ELS11
+	FIRST?	WINNER >OBJ /?KLU40
+?KLU40:	CALL	TOO-BAD-BUT,OBJ
+	PRINTI	" slips from "
+	CALL	HIM-HER-IT,WINNER,FALSE-VALUE,TRUE-VALUE
+	PRINTI	" arms while "
+	CALL	HE-SHE-IT,WINNER,FALSE-VALUE,STR?113
+	PRINTI	" taking"
+	CALL	THE-PRSO-PRINT
+	PRINTI	", and both tumble "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTI	"."
+	CRLF	
+	MOVE	OBJ,HERE
+	MOVE	PRSO,HERE
+	RETURN	2
+?ELS11:	SET	'ITAKE-LOC,FALSE-VALUE
+	LOC	PRSO >OBJ
+	FSET?	OBJ,PERSON \?CND24
+	ZERO?	VB /?ELS29
+	PRINTD	OBJ
+	PRINTI	" gives it to "
+	CALL	HIM-HER-IT,WINNER
+	PRINTI	". "
+	JUMP	?CND24
+?ELS29:	SET	'ITAKE-LOC,OBJ
+?CND24:	MOVE	PRSO,WINNER
+	FSET	PRSO,TOUCHBIT
+	FCLEAR	PRSO,NDESCBIT
+	FCLEAR	PRSO,INVISIBLE
+	EQUAL?	WINNER,PLAYER \TRUE
+	CALL	SCORE-OBJ,PRSO
+	RTRUE	
+
+
+	.FUNCT	CCOUNT,OBJ,CNT=0,X
+	FIRST?	OBJ >X \?CND1
+?PRG4:	INC	'CNT
+	NEXT?	X >X /?PRG4
+?CND1:	RETURN	CNT
+
+
+	.FUNCT	CHECK-DOOR,DR
+	FSET?	DR,NARTICLEBIT /?CND1
+	PRINTI	"The "
+?CND1:	PRINTD	DR
+	PRINTI	" is "
+	FSET?	DR,OPENBIT \?ELS12
+	PUSH	STR?21
+	JUMP	?CND8
+?ELS12:	PUSH	STR?17
+?CND8:	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	CHECK-ON-OFF
+	FSET?	PRSO,NARTICLEBIT /?CND1
+	PRINTI	"The "
+?CND1:	PRINTD	PRSO
+	PRINTI	" is o"
+	FSET?	PRSO,ONBIT \?ELS12
+	PUSH	STR?40
+	JUMP	?CND8
+?ELS12:	PUSH	STR?41
+?CND8:	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	NOT-HERE,OBJ
+	PRINTI	"You can't see"
+	CALL	PRINTT,OBJ
+	PRINTR	" here."
+
+
+	.FUNCT	PRINT-CONT,OBJ,V?=0,LEVEL=0,Y,1ST?,AV,STR=0,PV?=0,INV?=0,VAL=0
+	FIRST?	OBJ >Y \FALSE
+	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
+	FSET?	Y,NDESCBIT \?THN34
+	ZERO?	DEBUG /?CND31
+	PRINTI	"[ndescbit] "
+?THN34:	SET	'1ST?,FALSE-VALUE
+	SET	'LEVEL,0
+	ZERO?	STR /?CND31
+	PRINT	STR
+	CRLF	
+	SET	'STR,FALSE-VALUE
+	SET	'VAL,TRUE-VALUE
+	CALL	THIS-IS-IT,Y
+?CND31:	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
+	ZERO?	STACK /?CND46
+	SET	'VAL,TRUE-VALUE
+?CND46:	
+?CND18:	NEXT?	Y >Y /?KLU101
+?KLU101:	JUMP	?PRG16
+?CND11:	FIRST?	OBJ >Y /?KLU102
+?KLU102:	
+?PRG54:	ZERO?	Y \?ELS58
+	ZERO?	PV? /?CND59
+	ZERO?	AV /?CND59
+	FIRST?	AV \?CND59
+	CALL	PRINT-CONT,AV,V?,LEVEL
+	ZERO?	STACK /?CND59
+	SET	'VAL,TRUE-VALUE
+?CND59:	RETURN	VAL
+?ELS58:	EQUAL?	Y,AV,PLAYER \?ELS68
+	JUMP	?CND56
+?ELS68:	FSET?	Y,INVISIBLE /?CND56
+	ZERO?	INV? \?THN73
+	FSET?	Y,TOUCHBIT /?THN73
+	GETP	Y,P?FDESC
+	ZERO?	STACK \?CND56
+?THN73:	FSET?	Y,NDESCBIT \?THN78
+	ZERO?	DEBUG /?ELS77
+	PRINTI	"[ndescbit] "
+?THN78:	ZERO?	1ST? /?CND84
+	CALL	FIRSTER,OBJ,LEVEL
+	ZERO?	STACK /?CND88
+	LESS?	LEVEL,0 \?CND88
+	SET	'LEVEL,0
+?CND88:	INC	'LEVEL
+	SET	'1ST?,FALSE-VALUE
+?CND84:	SET	'VAL,TRUE-VALUE
+	CALL	DESCRIBE-OBJECT,Y,V?,LEVEL
+	JUMP	?CND56
+?ELS77:	FIRST?	Y \?CND56
+	CALL	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND56
+	CALL	PRINT-CONT,Y,V?,LEVEL
+	ZERO?	STACK /?CND75
+	SET	'VAL,TRUE-VALUE
+?CND75:	
+?CND56:	NEXT?	Y >Y /?KLU103
+?KLU103:	JUMP	?PRG54
+
+
+	.FUNCT	PRINT-CONTENTS,OBJ,F,N,1ST?=1
+	FIRST?	OBJ >F \FALSE
+?PRG6:	NEXT?	F >N /?KLU33
+?KLU33:	ZERO?	1ST? /?ELS10
+	SET	'1ST?,FALSE-VALUE
+	JUMP	?CND8
+?ELS10:	PRINTI	", "
+	ZERO?	N \?CND8
+	PRINTI	"and "
+?CND8:	FSET?	F,PERSON \?ELS23
+	PRINTD	F
+	JUMP	?CND21
+?ELS23:	CALL	PRINTA,F
+?CND21:	CALL	THIS-IS-IT,F
+	SET	'F,N
+	ZERO?	F \?PRG6
+	RTRUE	
+
+
+	.FUNCT	ROOM-CHECK,P
+	SET	'P,PRSO
+	EQUAL?	P,DOCKING-TANK \?CND1
+	EQUAL?	HERE,AIRLOCK \?CND1
+	SET	'P,HERE
+?CND1:	IN?	P,ROOMS \?ELS10
+	EQUAL?	P,HERE \?ELS15
+	CALL	PERFORM,PRSA,GLOBAL-HERE,PRSI
+	RTRUE	
+?ELS15:	EQUAL?	P,AIRLOCK \?ELS17
+	CALL	GLOBAL-IN?,FILL-TANK-BUTTON,HERE
+	ZERO?	STACK \FALSE
+?ELS17:	PRINTR	"You aren't in that place!"
+?ELS10:	EQUAL?	P,PSEUDO-OBJECT /FALSE
+	CALL	META-LOC,P
+	EQUAL?	STACK,HERE,GLOBAL-OBJECTS,LOCAL-GLOBALS /FALSE
+	CALL	CORRIDOR-LOOK,P
+	ZERO?	STACK \FALSE
+	FSET?	P,PERSON \?ELS34
+	IN?	P,GLOBAL-OBJECTS \?ELS34
+	GETP	P,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >P
+	CALL	CORRIDOR-LOOK,P
+	ZERO?	STACK \FALSE
+	CALL	NOT-HERE,P
+	RSTACK	
+?ELS34:	CALL	NOT-HERE,P
+	RSTACK	
+
+
+	.FUNCT	SEE-INSIDE?,OBJ
+	FSET?	OBJ,INVISIBLE /FALSE
+	FSET?	OBJ,TRANSBIT /TRUE
+	FSET?	OBJ,OPENBIT /TRUE
+	FSET?	OBJ,SURFACEBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	ARENT-TALKING
+	PRINTR	"You aren't talking to anyone!"
+
+
+	.FUNCT	ALREADY,OBJ,STR=0
+	CALL	HE-SHE-IT,OBJ,TRUE-VALUE,STR?113
+	PRINTI	" already "
+	ZERO?	STR /TRUE
+	PRINT	STR
+	PRINTR	"!"
+
+
+	.FUNCT	NOT-CLEAR-WHOM
+	PRINTR	"It's not clear whom you're talking to."
+
+
+	.FUNCT	OKAY,OBJ=0,STR=0
+	EQUAL?	WINNER,PLAYER \?ELS3
+	EQUAL?	PRSA,V?WALK-TO,V?WALK,V?THROUGH \?CND1
+	RTRUE	
+?ELS3:	PRINTI	""""
+?CND1:	PRINTI	"Okay"
+	ZERO?	OBJ /?CND13
+	PRINTI	","
+	CALL	PRINTT,OBJ
+	ZERO?	STR /?CND19
+	PRINTI	" is now "
+	PRINT	STR
+?CND19:	EQUAL?	STR,STR?42 \?ELS27
+	FSET	OBJ,ONBIT
+	JUMP	?CND13
+?ELS27:	EQUAL?	STR,STR?39 \?ELS29
+	FCLEAR	OBJ,ONBIT
+	JUMP	?CND13
+?ELS29:	EQUAL?	STR,STR?21 \?ELS31
+	FSET	OBJ,OPENBIT
+	JUMP	?CND13
+?ELS31:	EQUAL?	STR,STR?17 \?CND13
+	FCLEAR	OBJ,OPENBIT
+?CND13:	ZERO?	STR \?THN37
+	ZERO?	OBJ \TRUE
+?THN37:	PRINTI	"."
+	EQUAL?	WINNER,PLAYER /?CND41
+	PRINTI	""""
+?CND41:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WONT-HELP-TO-TALK-TO,OBJ
+	PRINTI	"It won't help to talk to "
+	CALL	PRINTA,OBJ
+	PRINTR	"!"
+
+
+	.FUNCT	TOO-BAD-BUT,OBJ,STR=0
+	PRINTI	"Too bad, but"
+	CALL	PRINTT,OBJ
+	ZERO?	STR /TRUE
+	PRINTI	" is "
+	PRINT	STR
+	PRINTR	"."
+
+
+	.FUNCT	VISIBLE?,OBJ,L
+	LOC	OBJ >L
+	CALL	ACCESSIBLE?,OBJ
+	ZERO?	STACK \TRUE
+	CALL	CORRIDOR-LOOK,OBJ
+	ZERO?	STACK \TRUE
+	ZERO?	L /FALSE
+	CALL	VISIBLE?,L
+	ZERO?	STACK /FALSE
+	CALL	SEE-INSIDE?,L
+	RSTACK	
+
+
+	.FUNCT	ACCESSIBLE?,OBJ,L
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	EQUAL?	OBJ,PSEUDO-OBJECT \?ELS7
+	EQUAL?	LAST-PSEUDO-LOC,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
+	CALL	ACCESSIBLE?,L
+	ZERO?	STACK /FALSE
+	FSET?	L,PERSON /TRUE
+	FSET?	L,OPENBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	WEIGHT,OBJ,CONT,WT=0
+	FIRST?	OBJ >CONT \?CND1
+?PRG4:	CALL	WEIGHT,CONT
+	ADD	WT,STACK >WT
+	NEXT?	CONT >CONT /?PRG4
+?CND1:	GETP	OBJ,P?SIZE
+	ADD	WT,STACK
+	RSTACK	
+
+
+	.FUNCT	V-ADJUST
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SAIM
+	CALL	PERFORM,V?AIM,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SAIM
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-AIM
+	EQUAL?	PRSI,RIGHT,LEFT \?ELS5
+	EQUAL?	PRSO,BAZOOKA,DART \FALSE
+	PRINTR	"You can aim that only at an enemy."
+?ELS5:	EQUAL?	PRSI,GLOBAL-SNARK \?ELS14
+	ZERO?	SNARK-ATTACK-COUNT \FALSE
+	PRINTR	"You can't see the Snark!"
+?ELS14:	EQUAL?	PRSI,SNARK,GLOBAL-THORPE,THORPE-SUB /FALSE
+	EQUAL?	PRSO,JOYSTICK \?ELS25
+	CALL	PERFORM,V?MOVE-DIR,PRSO,PRSI
+	RTRUE	
+?ELS25:	PRINTR	"You can aim something only to the left (port) or right (starboard), or at an enemy."
+
+
+	.FUNCT	V-AIM
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SANALYZE
+	CALL	PERFORM,V?ANALYZE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SANALYZE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-ANALYZE
+	FSET?	PRSO,PERSON \?ELS5
+	PRINTR	"How?"
+?ELS5:	IN?	COMPUTESTOR,HERE \?ELS9
+	CALL	PERFORM,V?ASK-ABOUT,COMPUTESTOR,PRSO
+	RTRUE	
+?ELS9:	FSET?	PRSO,ON?BIT \?ELS11
+	CALL	CHECK-ON-OFF
+	RSTACK	
+?ELS11:	FSET?	PRSO,DOORBIT \?ELS13
+	CALL	CHECK-DOOR,PRSO
+	RSTACK	
+?ELS13:	PRINTR	"It looks normal."
+
+
+	.FUNCT	V-ANSWER
+	PRINTI	"Nobody seems to be waiting for an answer."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-REPLY
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	WAITING-FOR-YOU-TO-SPEAK
+	RSTACK	
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	WAITING-FOR-YOU-TO-SPEAK
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?149
+	PRINTR	" to be waiting for you to speak."
+
+
+	.FUNCT	V-ARM
+	EQUAL?	PRSO,GLOBAL-SUB,LOCAL-SUB \?ELS5
+	PRINTR	"How?"
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-ARREST
+	FSET?	PRSO,PERSON \?THN6
+	ZERO?	PRSI /?ELS5
+	EQUAL?	PRSI,GLOBAL-SABOTAGE /?ELS5
+?THN6:	PRINTI	"What a detective! ""Quick! Arrest that "
+	PRINTD	PRSO
+	ZERO?	PRSI /?CND12
+	PRINTI	" for "
+	PRINTD	PRSI
+?CND12:	PRINTI	" before "
+	CALL	HE-SHE-IT,PRSO,FALSE-VALUE,STR?150
+	PRINTR	"!"""
+?ELS5:	ZERO?	DOME-AIR-CRIME \?ELS23
+	ZERO?	GREENUP-GUILT \?ELS23
+	PRINTR	"For what? You have no evidence of a crime yet."
+?ELS23:	IN?	PRSO,GLOBAL-OBJECTS \FALSE
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >PRSO
+	RFALSE	
+
+
+	.FUNCT	V-ARREST
+	EQUAL?	PRSO,GLOBAL-GREENUP,GREENUP \?ELS5
+	ZERO?	GREENUP-ESCAPE \?THN11
+	ZERO?	GREENUP-TRAPPED \?THN11
+	ZERO?	GREENUP-CUFFED /?ELS10
+?THN11:	PRINTR	"Once is enough!"
+?ELS10:	ZERO?	GREENUP-GUILT \?ELS16
+	PRINTR	"You don't have any evidence."
+?ELS16:	ZERO?	SUB-IN-DOME /?THN21
+	ZERO?	AIRLOCK-FULL /?ELS20
+?THN21:	CALL	TOO-BAD-BUT,PRSO,STR?16
+	RSTACK	
+?ELS20:	EQUAL?	PRSO,GLOBAL-GREENUP \?ELS27
+	PRINTI	"You barely issue this order when"
+	JUMP	?CND25
+?ELS27:	PRINTI	"Greenup turns and runs away. Then"
+?CND25:	REMOVE	GREENUP
+	FSET	GREENUP,MUNGBIT
+	PRINTI	" a crew member reports seeing Greenup running behind the dormitory. ""He's going to try to escape in the "
+	PRINTD	SUB
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"!""
+"
+	PRINTD	BLY
+	PRINTI	" adds: """
+	EQUAL?	HERE,BLY-OFFICE /?CND36
+	PRINTI	"Come to my office, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"! "
+?CND36:	PRINTI	"We can see him on the "
+	PRINTD	STATION-MONITOR
+	PRINTI	"! The "
+	PRINTD	CONTROLS-OFFICE
+	PRINTI	" is "
+	EQUAL?	HERE,BLY-OFFICE /?CND43
+	PRINTI	"t"
+?CND43:	PRINTI	"here, too!"""
+	CRLF	
+	MOVE	BLY,BLY-OFFICE
+	SET	'WINNER,PLAYER
+	CALL	QUEUE,I-GREENUP-ESCAPE,3
+	PUT	STACK,0,1
+	EQUAL?	HERE,BLY-OFFICE /?THN53
+	CALL	GOTO,BLY-OFFICE
+	ZERO?	STACK /TRUE
+?THN53:	SET	'GREENUP-ESCAPE,1
+	CALL	SCORE-OBJ,GREENUP
+	RTRUE	
+?ELS5:	PRINTI	"You don't have enough evidence to arrest"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	PRE-ASK
+	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-ASK
+	ZERO?	P-CONT /?ELS5
+	FSET?	PRSO,PERSON \?ELS5
+	SET	'WINNER,PRSO
+	SET	'QCONTEXT,PRSO
+	SET	'QCONTEXT-ROOM,HERE
+	RETURN	QCONTEXT-ROOM
+?ELS5:	CALL	V-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-ABOUT,L
+	CALL	META-LOC,PRSO >L
+	EQUAL?	L,CENTER-OF-LAB \?ELS3
+	EQUAL?	PRSO,REMOTE-PERSON \?ELS3
+	FSET?	MICROPHONE,ONBIT /?ELS3
+	CALL	THIS-IS-IT,MICROPHONE
+	PRINTI	"She can't hear you while your "
+	PRINTD	MICROPHONE
+	PRINTR	" is off."
+?ELS3:	EQUAL?	PRSO,COMPUTESTOR \?ELS9
+	FSET?	COMPUTESTOR,ONBIT /?ELS9
+	CALL	THIS-IS-IT,COMPUTESTOR
+	PRINTI	"The "
+	PRINTD	COMPUTESTOR
+	PRINTR	" is off!"
+?ELS9:	EQUAL?	L,HERE /FALSE
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \FALSE
+?CND1:	PRINTI	"Sorry, but"
+	CALL	THE-PRSO-PRINT
+	CALL	NOT-HERE-PERSON,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-ABOUT
+	EQUAL?	PRSO,PLAYER /?THN6
+	FSET?	PRSO,PERSON /?ELS5
+?THN6:	CALL	WONT-HELP-TO-TALK-TO,PRSO
+	RETURN	2
+?ELS5:	EQUAL?	PRSA,V?ASK \?ELS11
+	PRINTI	"""Ask me about something in particular, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."""
+?ELS11:	PRINTD	PRSO
+	PRINTR	" doesn't seem to know about that."
+
+
+	.FUNCT	PRE-ASK-CONTEXT-ABOUT,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
+	RTRUE	
+?ELS5:	IN?	COMPUTESTOR,HERE \?ELS7
+	FSET?	COMPUTESTOR,ONBIT \?ELS7
+	CALL	PERFORM,V?ASK-ABOUT,COMPUTESTOR,PRSO
+	RTRUE	
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /FALSE
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-ABOUT
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-FOR
+	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-ASK-FOR
+	FSET?	PRSO,PERSON \?ELS5
+	EQUAL?	PRSO,PLAYER /?ELS5
+	PRINTD	PRSO
+	IN?	PRSI,PRSO \?ELS14
+	PRINTI	" hands you"
+	CALL	THE-PRSI-PRINT
+	PRINTI	"."
+	CRLF	
+	MOVE	PRSI,WINNER
+	RTRUE	
+?ELS14:	PRINTR	" doesn't have that."
+?ELS5:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-ASK-CONTEXT-FOR,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	CALL	PERFORM,V?ASK-FOR,QCONTEXT,PRSO
+	RTRUE	
+?ELS5:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /FALSE
+	CALL	PERFORM,V?ASK-FOR,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-CONTEXT-FOR
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-ATTACK
+	CALL	IKILL,STR?151
+	RSTACK	
+
+
+	.FUNCT	PRE-BRING
+	EQUAL?	PRSI,FALSE-VALUE,PLAYER,GLOBAL-HERE /FALSE
+	SET	'P-WON,FALSE-VALUE
+	PRINTR	"(Sorry, but I don't understand.)"
+
+
+	.FUNCT	V-BRING
+	CALL	V-TAKE
+	RSTACK	
+
+
+	.FUNCT	PRE-SBRING
+	CALL	PERFORM,V?BRING,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SBRING
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-BRUSH
+	PRINTR	"""Cleanliness is next to Godliness,"" but here it's next to Impossible."
+
+
+	.FUNCT	V-$CALL,PER
+	SET	'PER,PRSO
+	EQUAL?	PER,PLAYER \?ELS5
+	CALL	WONT-HELP-TO-TALK-TO,PER
+	RSTACK	
+?ELS5:	FSET?	PER,PERSON \?ELS7
+	EQUAL?	PRSO,REMOTE-PERSON /?CND8
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >PER
+?CND8:	CALL	META-LOC,PER
+	EQUAL?	STACK,HERE /?THN16
+	CALL	CORRIDOR-LOOK,PER
+	ZERO?	STACK /?ELS15
+?THN16:	CALL	GRAB-ATTENTION,PER
+	ZERO?	STACK /TRUE
+	PRINTD	PER
+	PRINTR	" is listening."
+?ELS15:	CALL	NOT-HERE,PER
+	RSTACK	
+?ELS7:	SET	'P-WON,FALSE-VALUE
+	CALL	MISSING-VERB
+	RSTACK	
+
+
+	.FUNCT	PRE-PHONE,P,PP
+	ZERO?	PRSI /?ELS5
+	EQUAL?	PRSI,MICROPHONE-DOME,MICROPHONE \?ELS5
+	CALL	PERFORM,PRSA,PRSO,VIDEOPHONE
+	RTRUE	
+?ELS5:	ZERO?	PRSI /?ELS9
+	EQUAL?	PRSI,SONARPHONE,VIDEOPHONE,INTERCOM \?ELS9
+	EQUAL?	REMOTE-PERSON-ON,PRSI \?ELS16
+	PRINTI	"You're still on the line to "
+	PRINTD	REMOTE-PERSON
+	PRINTR	"."
+?ELS16:	FSET?	PRSI,MUNGBIT \?ELS20
+	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTR	"'s conked out!"
+?ELS20:	EQUAL?	PRSI,SONARPHONE /FALSE
+	CALL	GLOBAL-IN?,PRSI,HERE
+	ZERO?	STACK \FALSE
+	PRINTI	"There's no "
+	PRINTD	PRSI
+	PRINTR	" here."
+?ELS9:	ZERO?	PRSI /?ELS32
+	CALL	TOO-BAD-BUT,PRSI,STR?152
+	RSTACK	
+?ELS32:	FSET?	PRSO,PERSON \?ELS41
+	IN?	PRSO,HERE \?ELS41
+	CALL	BITE-YOU
+	RSTACK	
+?ELS41:	EQUAL?	PRSO,PLAYER \?ELS45
+	CALL	HAR-HAR
+	RSTACK	
+?ELS45:	FSET?	PRSO,PERSON \?ELS49
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >P
+	ZERO?	P /?ELS49
+	CALL	META-LOC,P
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK \?ELS49
+	FSET?	P,BUSYBIT /?THN55
+	FSET?	P,MUNGBIT \?CND52
+?THN55:	CALL	HE-SHE-IT,P,TRUE-VALUE
+	PRINTR	"'s busy right now."
+?CND52:	CALL	MOVE-HERE-NOT-SUB,P
+	CALL	SAID-TO,P
+	PRINTI	"""Right here, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	","" "
+	CALL	HE-SHE-IT,P
+	LOC	P
+	EQUAL?	HERE,STACK \?ELS65
+	PRINTR	" replies. ""What would you like me to do?"""
+?ELS65:	PRINTR	" shouts. ""Come outside to talk!"""
+?ELS49:	ZERO?	PRSI \FALSE
+	CALL	GLOBAL-IN?,VIDEOPHONE,HERE
+	ZERO?	STACK /?ELS78
+	CALL	PERFORM,PRSA,PRSO,VIDEOPHONE
+	RTRUE	
+?ELS78:	IN?	SONARPHONE,HERE \?ELS80
+	CALL	PERFORM,PRSA,PRSO,SONARPHONE
+	RTRUE	
+?ELS80:	CALL	GLOBAL-IN?,INTERCOM,HERE
+	ZERO?	STACK /?ELS82
+	CALL	PERFORM,PRSA,PRSO,INTERCOM
+	RTRUE	
+?ELS82:	PRINTR	"There's nothing to phone with here."
+
+
+	.FUNCT	V-PHONE,PER
+	FSET?	PRSO,PERSON \?ELS5
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >PER
+	ZERO?	PER /?ELS5
+	CALL	META-LOC,PER
+	EQUAL?	STACK,HERE /?THN8
+	CALL	CORRIDOR-LOOK,PER
+	ZERO?	STACK /?ELS5
+?THN8:	CALL	PERFORM,V?$CALL,PRSO
+	RTRUE	
+?ELS5:	EQUAL?	-1,P-NUMBER /?ELS11
+	PRINTR	"There's no point in calling that number."
+?ELS11:	EQUAL?	PRSO,YOUR-LABORATORY,DOME-LAB,AQUADOME \?ELS15
+	PRINTR	"There's no answer."
+?ELS15:	FSET?	PRSO,PERSON /?ELS19
+	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" has no phone."
+?ELS19:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE \?ELS23
+	CALL	BITE-YOU
+	RSTACK	
+?ELS23:	PRINTI	"There's no sense in phoning "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-BOARD
+	IN?	PRSO,ROOMS /?THN6
+	FSET?	PRSO,DOORBIT \?ELS5
+?THN6:	CALL	V-THROUGH
+	RSTACK	
+?ELS5:	CALL	YOU-CANT,STR?153
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-ON
+	CALL	YOU-CANT,STR?154
+	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	YOU-CANT,STR?129
+	RSTACK	
+?ELS7:	ZERO?	OBJ /?ELS9
+	GETPT	PRSO,P?SYNONYM >X
+	PTSIZE	X
+	DIV	STACK,2
+	SUB	STACK,1
+	CALL	ZMEMQ,W?WALL,X,STACK
+	ZERO?	STACK /?ELS9
+	PRINTR	"Climbing the walls is no help."
+?ELS9:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-DOWN
+	CALL	V-CLIMB-UP,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,CONTBIT /?ELS5
+	FSET?	PRSO,DOORBIT /?ELS5
+	FSET?	PRSO,WINDOWBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSO,DOORBIT /?THN10
+	FSET?	PRSO,WINDOWBIT \?ELS9
+?THN10:	FSET?	PRSO,OPENBIT \?ELS16
+	FSET?	PRSO,MUNGBIT \?ELS21
+	PRINTR	"It won't stay closed. The latch is broken."
+?ELS21:	CALL	OKAY,PRSO,STR?17
+	RSTACK	
+?ELS16:	CALL	ALREADY,PRSO,STR?17
+	RSTACK	
+?ELS9:	FSET?	PRSO,SURFACEBIT /?ELS29
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS29
+	FSET?	PRSO,OPENBIT \?ELS36
+	CALL	OKAY,PRSO,STR?17
+	RSTACK	
+?ELS36:	CALL	ALREADY,PRSO,STR?17
+	RSTACK	
+?ELS29:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-COME-WITH
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-COME-WITH
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-COMPARE,?TMP1
+	ZERO?	PRSI \?ELS5
+	GET	P-PRSO,0
+	EQUAL?	1,STACK \?ELS5
+	PRINTI	"Use the command: COMPARE IT TO "
+	PRINTD	SOMETHING
+	PRINTR	"."
+?ELS5:	GET	P-PRSO,0
+	EQUAL?	2,STACK \FALSE
+	PUT	P-PRSO,0,1
+	GET	P-PRSO,1 >?TMP1
+	GET	P-PRSO,2
+	CALL	PERFORM,PRSA,?TMP1,STACK
+	RTRUE	
+
+
+	.FUNCT	V-COMPARE
+	EQUAL?	PRSO,PRSI \?ELS5
+	PRINTR	"They're the same thing!"
+?ELS5:	PRINTR	"They're not a bit alike."
+
+
+	.FUNCT	V-CONFRONT
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	ARENT-TALKING
+	RSTACK	
+?ELS5:	FSET?	PRSO,PERSON /?ELS7
+	PRINTI	"That ought to put a scare into"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS7:	PRINTD	PRSO
+	CALL	PICK-ONE,WHO-CARES
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	V-CUT
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-MUNG
+	FSET?	PRSO,DOORBIT \?ELS5
+	ZERO?	PRSI \?ELS5
+	FSET?	PRSO,OPENBIT \?ELS12
+	PRINTR	"You'd fly through the open door if you tried."
+?ELS12:	PRINTR	"Why don't you just open it instead?"
+?ELS5:	FSET?	PRSO,PERSON /?ELS20
+	CALL	YOU-CANT
+	RSTACK	
+?ELS20:	ZERO?	PRSI \?ELS22
+	PRINTI	"Trying to destroy "
+	PRINTD	PRSO
+	PRINTR	" with your bare hands is suicidal."
+?ELS22:	FSET?	PRSI,WEAPONBIT /?ELS26
+	PRINTI	"You can't destroy"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" with"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS26:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DIAGNOSE
+	ZERO?	PRSO /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	ARM,MUNGBIT \?ELS8
+	PRINTR	"Your arm is seriously gashed."
+?ELS8:	PRINTR	"You're wide awake and in good health."
+
+
+	.FUNCT	PRE-DISCUSS
+	ZERO?	PRSI \?CND1
+	SET	'PRSI,PLAYER
+?CND1:	CALL	PERFORM,V?TELL-ABOUT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-DISCUSS
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-DIVE
+	ZERO?	SUB-IN-TANK /?ELS5
+	CALL	WHY-NEED,DEPTH-CONTROL,TEST-TANK
+	ZERO?	STACK \TRUE
+?ELS5:	ZERO?	SUB-IN-DOME /?ELS9
+	CALL	WHY-NEED,DEPTH-CONTROL,AIRLOCK
+	ZERO?	STACK \TRUE
+?ELS9:	EQUAL?	PRSO,FALSE-VALUE,ROOMS /?THN14
+	EQUAL?	PRSO,SEA,BAY,GLOBAL-WATER \?ELS13
+?THN14:	ZERO?	SUB-DEPTH /?THN21
+	ZERO?	PRSO \?ELS20
+?THN21:	CALL	DO-WALK,P?DOWN
+	RTRUE	
+?ELS20:	PRINTI	"You're already "
+	PRINTD	UNDERWATER
+	PRINTR	"."
+?ELS13:	FSET?	PRSO,UNITBIT \?ELS28
+	CALL	PERFORM,V?SET,DEPTH-CONTROL,PRSO
+	RTRUE	
+?ELS28:	PRINTI	"You can do this by setting the "
+	PRINTD	DEPTH-CONTROL
+	PRINTR	" to the desired depth of your dive."
+
+
+	.FUNCT	V-DOCK
+	EQUAL?	PRSO,LOCAL-SUB,GLOBAL-SUB,ROOMS \?ELS5
+	PRINTI	"You can't dock the "
+	PRINTD	SUB
+	PRINTR	" now."
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DRINK
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-DROP
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	CALL	GROUND-DESC
+	CALL	OKAY,PRSO,STACK
+	RSTACK	
+
+
+	.FUNCT	GROUND-DESC
+	EQUAL?	HERE,SUB \?ELS5
+	RETURN	STR?155
+?ELS5:	RETURN	STR?156
+
+
+	.FUNCT	V-EAT
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-EMPTY
+	ZERO?	PRSI \?ELS5
+	CALL	PERFORM,V?EMPTY,PRSO,GLOBAL-WATER
+	RTRUE	
+?ELS5:	PRINTR	"You may know how to do that, but this program doesn't."
+
+
+	.FUNCT	V-ENTER
+	CALL	DO-WALK,P?IN
+	RTRUE	
+
+
+	.FUNCT	PRE-THROUGH
+	FSET?	PRSO,PERSON \FALSE
+	CALL	PERFORM,V?FOLLOW,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-THROUGH,OBJ=0,RM,DIR
+	IN?	PRSO,ROOMS \?ELS5
+	CALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?ELS5:	FSET?	PRSO,DOORBIT \?ELS7
+	FSET?	PRSO,OPENBIT \?ELS7
+	CALL	DOOR-ROOM,HERE,PRSO >RM
+	ZERO?	RM /?ELS14
+	CALL	GOTO,RM
+	ZERO?	STACK /?ELS14
+	CALL	OKAY
+	RSTACK	
+?ELS14:	PRINTI	"Sorry, but the """
+	PRINTD	PRSO
+	PRINTR	""" must be somewhere else."
+?ELS7:	ZERO?	OBJ \?ELS22
+	FSET?	PRSO,TAKEBIT /?ELS22
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?157
+	PRINTI	" into it trying to go through"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS22:	ZERO?	OBJ /?ELS28
+	PRINTR	"You can't do that!"
+?ELS28:	IN?	PRSO,WINNER \?ELS33
+	PRINTR	"You must think you're a contortionist!"
+?ELS33:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-EXAMINE,VAL
+	CALL	ROOM-CHECK
+	ZERO?	STACK \TRUE
+	EQUAL?	P-ADVERB,W?CAREFULLY \FALSE
+	CALL	INT-WAIT,3 >VAL
+	ZERO?	VAL \?ELS12
+	PRINTI	"You never got to finish looking over"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS12:	EQUAL?	VAL,M-FATAL /TRUE
+	RFALSE
+
+
+	.FUNCT	V-EXAMINE,TBL
+	EQUAL?	PRSO,INTDIR \?ELS5
+	PRINTR	"If you want to see what's there, go there!"
+?ELS5:	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS9
+	CALL	NOTHING-SPECIAL
+	RSTACK	
+?ELS9:	IN?	PRSO,GLOBAL-OBJECTS \?ELS11
+	CALL	NOT-HERE,PRSO
+	RTRUE	
+?ELS11:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS /?ELS13
+	CALL	TOO-BAD-BUT,PRSO,STR?16
+	RSTACK	
+?ELS13:	GETP	PRSO,P?TEXT >TBL
+	ZERO?	TBL /?ELS15
+	PRINT	TBL
+	CRLF	
+	RTRUE	
+?ELS15:	FSET?	PRSO,CONTBIT \?ELS19
+	CALL	V-LOOK-INSIDE
+	RSTACK	
+?ELS19:	FSET?	PRSO,ON?BIT \?ELS23
+	CALL	CHECK-ON-OFF
+	RSTACK	
+?ELS23:	FSET?	PRSO,DOORBIT \?ELS25
+	CALL	CHECK-DOOR,PRSO
+	RSTACK	
+?ELS25:	CALL	NOTHING-SPECIAL
+	RSTACK	
+
+
+	.FUNCT	NOTHING-SPECIAL
+	PRINTI	"There's nothing special about"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,TBL
+	GETPT	OBJ2,P?GLOBAL >TBL
+	ZERO?	TBL /FALSE
+	PTSIZE	TBL
+	SUB	STACK,1
+	CALL	ZMEMQB,OBJ1,TBL,STACK
+	RSTACK	
+
+
+	.FUNCT	PRE-FILL
+	ZERO?	PRSI /FALSE
+	EQUAL?	PRSI,GLOBAL-WATER /FALSE
+	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-FILL
+	PRINTR	"You may know how to do that, but this program doesn't."
+
+
+	.FUNCT	PRE-FIND,CHR,?TMP1
+	EQUAL?	PRSO,PLAYER /FALSE
+	IN?	PRSO,ROOMS \?ELS8
+	EQUAL?	PRSO,HERE \?ELS13
+	CALL	ALREADY,PLAYER,STR?50
+	RSTACK	
+?ELS13:	FSET?	PRSO,TOUCHBIT \?ELS15
+	PRINTR	"You should know - you've been there!"
+?ELS15:	GETP	LOCAL-SUB,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS8:	FSET?	PRSO,PERSON \FALSE
+	EQUAL?	PRSO,REMOTE-PERSON \?CND24
+	ZERO?	REMOTE-PERSON-REMLOC /?CND24
+	CALL	HE-SHE-IT,REMOTE-PERSON,TRUE-VALUE
+	PRINTI	"'s in the "
+	PRINTD	REMOTE-PERSON-REMLOC
+	PRINTR	"."
+?CND24:	GETP	PRSO,P?CHARACTER >CHR
+	IN?	PRSO,GLOBAL-OBJECTS \?CND31
+	GET	CHARACTER-TABLE,CHR >PRSO
+?CND31:	LOC	PRSO
+	ZERO?	STACK /?THN37
+	LOC	PRSO
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK /?CND34
+?THN37:	EQUAL?	PRSO,BLY /?THN42
+	CALL	IS-CREW?,PRSO
+	ZERO?	STACK /?ELS41
+?THN42:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE
+	PRINTI	"'s probably at the "
+	PRINTD	AQUADOME
+	PRINTR	"."
+?ELS41:	PRINTI	"Who knows where "
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" is now?"
+?CND34:	CALL	META-LOC,WINNER >?TMP1
+	CALL	META-LOC,PRSO
+	EQUAL?	?TMP1,STACK \?CND52
+	EQUAL?	WINNER,PLAYER \?ELS57
+	CALL	BITE-YOU
+	RTRUE	
+?ELS57:	PRINTR	"""Ahem..."""
+?CND52:	EQUAL?	WINNER,PLAYER /?ELS64
+	PRINTI	"""I think "
+	CALL	HE-SHE-IT,PRSO
+	JUMP	?CND62
+?ELS64:	CALL	HE-SHE-IT,PRSO,TRUE-VALUE
+?CND62:	PRINTI	"'s in"
+	CALL	META-LOC,PRSO
+	CALL	PRINTT,STACK
+	PRINTI	"."
+	EQUAL?	WINNER,PLAYER /?CND71
+	PRINTI	""""
+?CND71:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	BITE-YOU
+	PRINTI	"If "
+	CALL	HE-SHE-IT,PRSO
+	PRINTI	" were any closer, "
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	"'d bite you!"
+
+
+	.FUNCT	V-FIND,L
+	LOC	PRSO >L
+	EQUAL?	PLAYER,WINNER /?CND1
+	PRINTI	""""
+?CND1:	EQUAL?	PRSO,PLAYER \?ELS8
+	PRINTI	"You're right here, "
+	FSET?	L,SURFACEBIT \?ELS13
+	PRINTI	"on"
+	JUMP	?CND11
+?ELS13:	PRINTI	"in"
+?CND11:	CALL	PRINTT,L
+	PRINTI	"."
+	JUMP	?CND6
+?ELS8:	IN?	PRSO,PLAYER \?ELS23
+	PRINTI	"You have it."
+	JUMP	?CND6
+?ELS23:	IN?	PRSO,WINNER \?ELS27
+	PRINTI	"""I have it, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTI	"."""
+	JUMP	?CND6
+?ELS27:	EQUAL?	L,LOCAL-GLOBALS \?ELS35
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \?THN32
+?ELS35:	IN?	PRSO,HERE /?THN32
+	EQUAL?	PRSO,PSEUDO-OBJECT \?ELS31
+?THN32:	PRINTI	"It's right here."
+	JUMP	?CND6
+?ELS31:	EQUAL?	L,GLOBAL-OBJECTS,LOCAL-GLOBALS \?ELS39
+	PRINTI	"It's around somewhere."
+	JUMP	?CND6
+?ELS39:	CALL	META-LOC,PRSO
+	CALL	FAR-AWAY?,STACK
+	ZERO?	STACK /?ELS43
+	PRINTI	"It's far away from here."
+	JUMP	?CND6
+?ELS43:	FSET?	L,PERSON \?ELS47
+	PRINTD	L
+	PRINTI	" has it."
+	JUMP	?CND6
+?ELS47:	FSET?	L,SURFACEBIT \?ELS51
+	PRINTI	"It's on"
+	CALL	PRINTT,L
+	PRINTI	"."
+	JUMP	?CND6
+?ELS51:	FSET?	L,CONTBIT /?THN56
+	IN?	L,ROOMS \?ELS55
+?THN56:	PRINTI	"It's in"
+	CALL	PRINTT,L
+	PRINTI	"."
+	JUMP	?CND6
+?ELS55:	PRINTI	"It's nowhere in particular."
+?CND6:	EQUAL?	PLAYER,WINNER /?CND64
+	PRINTI	""""
+?CND64:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-FIND-WITH
+	CALL	V-FIND
+	RSTACK	
+
+
+	.FUNCT	V-FIX
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-FOLLOW,CN,CHR,COR,PCOR,L
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+?ELS5:	FSET?	PRSO,PERSON /?ELS7
+	PRINTI	"How tragic to see a formerly great inventor stalking "
+	CALL	PRINTA,PRSO
+	PRINTR	"!"
+?ELS7:	GETP	PRSO,P?CHARACTER >CN
+	GET	CHARACTER-TABLE,CN >CHR
+	CALL	META-LOC,CHR >L
+	EQUAL?	HERE,L \?ELS11
+	PRINTI	"You're in the same place as "
+	PRINTD	PRSO
+	PRINTR	"!"
+?ELS11:	ZERO?	L \?ELS15
+	PRINTD	PRSO
+	PRINTR	" has left the grounds."
+?ELS15:	CALL	PERFORM,V?WALK-TO,CHR
+	RTRUE	
+
+
+	.FUNCT	V-FOO
+	PRINTR	"[Foo!! This is a bug!!]"
+
+
+	.FUNCT	PRE-GIVE
+	CALL	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSI,PLAYER /FALSE
+	PRINTI	"That's easy for you to say, since "
+	CALL	HE-SHE-IT,WINNER
+	PRINTI	" do"
+	EQUAL?	WINNER,PLAYER /?CND12
+	PRINTI	"es"
+?CND12:	PRINTR	"n't even have it."
+
+
+	.FUNCT	V-GIVE
+	ZERO?	PRSI \?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSI,PERSON /?ELS7
+	PRINTI	"You can't give "
+	CALL	PRINTA,PRSO
+	PRINTI	" to "
+	CALL	PRINTA,PRSI
+	PRINTR	"!"
+?ELS7:	EQUAL?	PRSI,PLAYER \?ELS11
+	CALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?ELS11:	MOVE	PRSO,PRSI
+	PRINTD	PRSI
+	PRINTR	" accepts the offer."
+
+
+	.FUNCT	PRE-SGIVE
+	CALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SGIVE
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	PRE-GOODBYE
+	CALL	PRE-HELLO
+	RSTACK	
+
+
+	.FUNCT	V-GOODBYE
+	ZERO?	REMOTE-PERSON /?ELS5
+	EQUAL?	PRSO,FALSE-VALUE,REMOTE-PERSON \?ELS5
+	CALL	PHONE-OFF
+	PRINTI	"""I hope to see you soon, "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."""
+?ELS5:	FSET?	AIR-SUPPLY-SYSTEM,MUNGBIT /?ELS11
+	CALL	FINE-SEQUENCE
+	ZERO?	STACK \TRUE
+?ELS11:	CALL	V-HELLO,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	PRE-HANGUP
+	EQUAL?	PRSO,MICROPHONE-DOME,MICROPHONE \?ELS5
+	CALL	PERFORM,PRSA,VIDEOPHONE
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,SONARPHONE,VIDEOPHONE,INTERCOM \?ELS7
+	EQUAL?	REMOTE-PERSON-ON,PRSO \?ELS10
+	PRINTI	"You're still on the line to "
+	PRINTD	REMOTE-PERSON
+	PRINTR	"."
+?ELS10:	FSET?	PRSO,MUNGBIT \?ELS14
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	"'s conked out!"
+?ELS14:	EQUAL?	PRSO,SONARPHONE /FALSE
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \FALSE
+	PRINTI	"There's no "
+	PRINTD	PRSO
+	PRINTR	" here."
+?ELS7:	EQUAL?	HERE,CENTER-OF-DOME \?ELS26
+	CALL	PERFORM,V?PUT,PRSO,HOOK
+	RTRUE	
+?ELS26:	EQUAL?	PRSO,ROOMS /FALSE
+	CALL	TOO-BAD-BUT,PRSO,STR?152
+	RSTACK	
+
+
+	.FUNCT	V-HANGUP
+	ZERO?	REMOTE-PERSON /?ELS5
+	CALL	PERFORM,V?GOODBYE
+	RTRUE	
+?ELS5:	PRINTR	"You're not talking to anyone!"
+
+
+	.FUNCT	PRE-HELLO,P
+	ZERO?	PRSO \FALSE
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS8
+	CALL	PERFORM,PRSA,QCONTEXT
+	RTRUE	
+?ELS8:	EQUAL?	WINNER,PLAYER \?ELS10
+	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS10
+	FSET?	P,INVISIBLE /?ELS10
+	CALL	PERFORM,PRSA,P
+	RTRUE	
+?ELS10:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	V-HELLO,HELL=1
+	FSET?	PRSO,PERSON \?ELS5
+	ZERO?	HELL /?ELS10
+	PRINTD	PRSO
+	PRINTR	" nods at you."
+?ELS10:	CALL	READY-FOR-SNARK?
+	ZERO?	STACK /?ELS15
+	PRINTR	"""Good hunting!"""
+?ELS15:	PRINTR	"""Don't tell me you're leaving already!"""
+?ELS5:	ZERO?	PRSO /?ELS23
+	PRINTI	"Only nuts say """
+	ZERO?	HELL /?ELS31
+	PUSH	STR?158
+	JUMP	?CND27
+?ELS31:	PUSH	STR?159
+?CND27:	PRINT	STACK
+	PRINTI	""" to "
+	CALL	PRINTA,PRSO
+	PRINTR	"."
+?ELS23:	CALL	NOT-CLEAR-WHOM
+	RSTACK	
+
+
+	.FUNCT	V-HELP
+	ZERO?	PRSO \?ELS5
+	SET	'P-WON,FALSE-VALUE
+	PRINT	HELP-TEXT
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	CALL	PERFORM,V?GIVE,HINT,PLAYER
+	RTRUE	
+?ELS9:	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-KILL
+	CALL	IKILL,STR?161
+	RSTACK	
+
+
+	.FUNCT	IKILL,STR
+	ZERO?	PRSO \?ELS5
+	PRINTI	"There's nothing here to "
+	PRINT	STR
+	PRINTR	"."
+?ELS5:	ZERO?	PRSI \?ELS9
+	FSET?	PRSO,WEAPONBIT \?ELS9
+	PRINTI	"You didn't say what to "
+	PRINT	STR
+	PRINTR	" at."
+?ELS9:	IN?	PRSO,GLOBAL-OBJECTS \?ELS15
+	PRINTR	"You can't do it from here."
+?ELS15:	PRINTR	"You think it over. It's not worth the trouble."
+
+
+	.FUNCT	V-KISS
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	FACE-RED,STR?162
+	RSTACK	
+?ELS5:	PRINTR	"What a (ahem!) strange idea!"
+
+
+	.FUNCT	V-KNOCK
+	FSET?	PRSO,DOORBIT /?THN6
+	FSET?	PRSO,WINDOWBIT \?ELS5
+?THN6:	CALL	DOOR-ROOM,HERE,PRSO
+	CALL	INHABITED?,STACK
+	ZERO?	STACK /?ELS12
+	PRINTR	"Someone shouts ""Come in!"""
+?ELS12:	PRINTR	"There's no answer."
+?ELS5:	PRINTI	"Why knock on "
+	CALL	PRINTA,PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-LAUNCH
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-STAND,P
+	LOC	WINNER
+	FSET?	STACK,SURFACEBIT \?ELS5
+	MOVE	WINNER,HERE
+	PRINTR	"You're on your own feet again."
+?ELS5:	CALL	ALREADY,PLAYER,STR?163
+	RSTACK	
+
+
+	.FUNCT	V-LEAVE
+	ZERO?	PRSO /?ELS5
+	LOC	WINNER
+	EQUAL?	STACK,PRSO /?ELS5
+	PRINTI	"You're not in"
+	CALL	THE-PRSO-PRINT
+	PRINTI	"!"
+	CRLF	
+	RETURN	2
+?ELS5:	CALL	DO-WALK,P?OUT
+	RTRUE	
+
+
+	.FUNCT	V-LEVEL
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-LISTEN
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	WAITING-FOR-YOU-TO-SPEAK
+	RTRUE	
+?ELS5:	CALL	TOO-BAD-BUT,PRSO
+	PRINTR	" makes no sound."
+
+
+	.FUNCT	V-LOCK
+	PRINTR	"That won't help."
+
+
+	.FUNCT	V-LOOK
+	CALL	DESCRIBE-ROOM,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL	DESCRIBE-OBJECTS,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-BEHIND
+	FSET?	PRSO,DOORBIT \?ELS5
+	FSET?	PRSO,OPENBIT /?ELS5
+	CALL	THIS-IS-IT,PRSO
+	CALL	TOO-BAD-BUT,PRSO,STR?17
+	RSTACK	
+?ELS5:	PRINTI	"There's nothing behind"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-DOWN
+	EQUAL?	PRSO,ROOMS \?ELS5
+	PRINTI	"There's nothing interesting "
+	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTR	"."
+?ELS5:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	PRE-LOOK-INSIDE
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-INSIDE,DIR=P?IN,RM
+	EQUAL?	PRSO,GLOBAL-HERE \?ELS5
+	CALL	PERFORM,V?LOOK
+	RTRUE	
+?ELS5:	FSET?	PRSO,RLANDBIT \?ELS7
+	CALL	ROOM-PEEK,PRSO
+	RSTACK	
+?ELS7:	FSET?	PRSO,DOORBIT \?ELS9
+	FSET?	PRSO,OPENBIT \?ELS14
+	CALL	DOOR-ROOM,HERE,PRSO >RM
+	ZERO?	RM /?ELS19
+	CALL	ROOM-PEEK,RM
+	RSTACK	
+?ELS19:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is open, but you can't tell what's beyond it."
+?ELS14:	CALL	THIS-IS-IT,PRSO
+	CALL	TOO-BAD-BUT,PRSO,STR?17
+	RSTACK	
+?ELS9:	FSET?	PRSO,WINDOWBIT \?ELS27
+	PRINTI	"You can't tell what's beyond"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS27:	FSET?	PRSO,CONTBIT /?THN37
+	FSET?	PRSO,SURFACEBIT \?ELS36
+?THN37:	CALL	SEE-INSIDE?,PRSO
+	ZERO?	STACK /?ELS43
+	FIRST?	PRSO \?ELS48
+	CALL	PRINT-CONT,PRSO
+	ZERO?	STACK \TRUE
+?ELS48:	FSET?	PRSO,SURFACEBIT \?ELS52
+	PRINTI	"There's nothing on"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS52:	CALL	TOO-BAD-BUT,PRSO,STR?65
+	RSTACK	
+?ELS43:	CALL	TOO-BAD-BUT,PRSO,STR?17
+	RSTACK	
+?ELS36:	FSET?	PRSO,PERSON \?ELS60
+	PRINTR	"You forgot to bring your X-ray glasses."
+?ELS60:	EQUAL?	DIR,P?IN \?ELS64
+	CALL	YOU-CANT,STR?164
+	RSTACK	
+?ELS64:	EQUAL?	DIR,P?OUT \FALSE
+	CALL	YOU-CANT,STR?165
+	RSTACK	
+
+
+	.FUNCT	ROOM-PEEK,RM,OLD-HERE,TXT
+	SET	'OLD-HERE,HERE
+	CALL	SEE-INTO?,RM
+	ZERO?	STACK /FALSE
+	SET	'HERE,RM
+	PRINTI	"You take a quick peek into"
+	CALL	PRINTT,RM
+	PRINTI	":"
+	CRLF	
+	CALL	DESCRIBE-OBJECTS,TRUE-VALUE
+	ZERO?	STACK /?ELS10
+	JUMP	?CND8
+?ELS10:	GETP	RM,P?LDESC >TXT
+	ZERO?	TXT /?ELS12
+	PRINT	TXT
+	CRLF	
+	JUMP	?CND8
+?ELS12:	PRINTI	"You can't see anything interesting."
+	CRLF	
+?CND8:	SET	'HERE,OLD-HERE
+	RETURN	HERE
+
+
+	.FUNCT	SEE-INTO?,THERE,P,L,TBL,O
+	SET	'P,0
+?PRG1:	NEXTP	HERE,P >P
+	ZERO?	P \?ELS5
+	PRINTI	"You can't seem to find that room."
+	CRLF	
+	RFALSE	
+?ELS5:	EQUAL?	P,P?IN,P?OUT /TRUE
+	LESS?	P,LOW-DIRECTION /?PRG1
+	GETPT	HERE,P >TBL
+	PTSIZE	TBL >L
+	EQUAL?	L,UEXIT \?ELS14
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE /TRUE
+?ELS14:	EQUAL?	L,DEXIT \?ELS18
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE \?ELS18
+	GETB	TBL,DEXITOBJ
+	FSET?	STACK,OPENBIT /TRUE
+	PRINTI	"The door to that room is closed."
+	CRLF	
+	RFALSE	
+?ELS18:	EQUAL?	L,CEXIT \?PRG1
+	GETB	TBL,REXIT
+	EQUAL?	STACK,THERE \?PRG1
+	GETB	TBL,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK \TRUE
+	PRINTI	"You can't seem to find that room."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	V-LOOK-ON
+	FSET?	PRSO,SURFACEBIT \?ELS5
+	CALL	V-LOOK-INSIDE
+	RSTACK	
+?ELS5:	PRINTI	"There's no good surface on"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-OUTSIDE
+	CALL	V-LOOK-INSIDE,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-UNDER
+	FSET?	PRSO,PERSON \?ELS5
+	PRINTI	"Nope. Nothing hiding under "
+	PRINTD	PRSO
+	PRINTR	"."
+?ELS5:	LOC	PRSO
+	EQUAL?	STACK,HERE,LOCAL-GLOBALS \?ELS9
+	PRINTR	"There's nothing there but dust."
+?ELS9:	PRINTR	"That's not a bit useful."
+
+
+	.FUNCT	V-LOOK-UP
+	ZERO?	PRSI /?ELS5
+	PRINTI	"There's no information in"
+	CALL	THE-PRSI-PRINT
+	PRINTR	" about that."
+?ELS5:	EQUAL?	PRSO,ROOMS \?ELS10
+	PRINTR	"You can see the ceiling."
+?ELS10:	IN?	NOTEBOOK,WINNER \?ELS19
+	CALL	PERFORM,V?LOOK-UP,PRSO,NOTEBOOK
+	RTRUE	
+?ELS19:	PRINTI	"Huh? Without the "
+	PRINTD	NOTEBOOK
+	PRINTR	"?"
+
+
+	.FUNCT	V-MAKE
+	PRINTR	"""Eat, drink, and make merry, for tomorrow we shall die!"""
+
+
+	.FUNCT	PRE-MOVE
+	CALL	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	PRINTR	"Juggling isn't one of your talents."
+
+
+	.FUNCT	V-MOVE
+	FSET?	PRSO,TAKEBIT \?ELS5
+	PRINTI	"Moving"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" reveals nothing."
+?ELS5:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-MOVE-DIR
+	EQUAL?	PRSI,FAST,MEDIUM /FALSE
+	EQUAL?	PRSI,SLOW,OFF,INTDIR /FALSE
+	SET	'P-WON,FALSE-VALUE
+	PRINTR	"(Sorry, but I don't understand that sentence.)"
+
+
+	.FUNCT	V-MOVE-DIR
+	PRINTI	"You can't move"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" in any particular direction."
+
+
+	.FUNCT	V-OPEN,F,STR
+	FSET?	PRSO,CONTBIT /?ELS5
+	FSET?	PRSO,DOORBIT /?ELS5
+	FSET?	PRSO,WINDOWBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSO,DOORBIT /?THN10
+	FSET?	PRSO,WINDOWBIT /?THN10
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS9
+?THN10:	FSET?	PRSO,OPENBIT \?ELS16
+	CALL	ALREADY,PRSO,STR?21
+	RSTACK	
+?ELS16:	FSET?	PRSO,LOCKED \?ELS18
+	CALL	TOO-BAD-BUT,PRSO,STR?166
+	RSTACK	
+?ELS18:	FSET?	PRSO,MUNGBIT \?ELS20
+	PRINTR	"You can't open it. The latch is broken."
+?ELS20:	FSET	PRSO,OPENBIT
+	FSET?	PRSO,DOORBIT /?THN30
+	FSET?	PRSO,WINDOWBIT /?THN30
+	FIRST?	PRSO \?THN30
+	FSET?	PRSO,TRANSBIT \?ELS29
+?THN30:	CALL	OKAY,PRSO,STR?21
+	RSTACK	
+?ELS29:	FIRST?	PRSO >F \?ELS33
+	NEXT?	F /?ELS33
+	GETP	F,P?FDESC >STR
+	ZERO?	STR /?ELS33
+	PRINTI	"You open"
+	CALL	THE-PRSO-PRINT
+	PRINTI	"."
+	CRLF	
+	PRINT	STR
+	CRLF	
+	RTRUE	
+?ELS33:	PRINTI	"You open"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" and see "
+	CALL	PRINT-CONTENTS,PRSO
+	PRINTR	"."
+?ELS9:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-OPEN-WITH
+	CALL	NOT-HOLDING?,PRSI
+	ZERO?	STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	V-OPEN-WITH
+	CALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-PICK
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-PLAY
+	SET	'P-WON,FALSE-VALUE
+	PRINTR	"(Speaking of playing, you ought to try Infocom's other products.)"
+
+
+	.FUNCT	V-PUSH
+	CALL	HACK-HACK,STR?167
+	RSTACK	
+
+
+	.FUNCT	PRE-PUT
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS5
+	CALL	YOU-CANT,STR?168
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,SONARSCOPE \?ELS7
+	EQUAL?	PRSI,MANUAL,AUTOMATIC /FALSE
+?ELS7:	EQUAL?	PRSO,THROTTLE \?ELS11
+	EQUAL?	PRSI,FAST /FALSE
+	EQUAL?	PRSI,MEDIUM,SLOW,OFF /FALSE
+?ELS11:	IN?	PRSO,GLOBAL-OBJECTS \?ELS17
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS17:	EQUAL?	PRSI,TEST-TANK,GLOBAL-WATER,GLOBAL-HERE /FALSE
+	EQUAL?	PRSI,FLOOR,CLAW,GLOBAL-SUB /FALSE
+	EQUAL?	PRSI,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS23
+	CALL	HAR-HAR
+	RSTACK	
+?ELS23:	IN?	PRSI,GLOBAL-OBJECTS \?ELS25
+	CALL	NOT-HERE,PRSI
+	RSTACK	
+?ELS25:	FSET?	PRSO,TAKEBIT /FALSE
+	CALL	YOU-CANT,STR?168
+	RSTACK	
+
+
+	.FUNCT	V-PUT,?TMP1
+	FSET?	PRSI,OPENBIT /?CND1
+	FSET?	PRSI,VEHBIT /?CND1
+	FSET?	PRSI,DOORBIT /?THN9
+	FSET?	PRSI,CONTBIT \?ELS8
+?THN9:	CALL	TOO-BAD-BUT,PRSI,STR?17
+	RTRUE	
+?ELS8:	PRINTI	"You can't open"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?CND1:	ZERO?	PRSI \?ELS19
+	CALL	YOU-CANT
+	RSTACK	
+?ELS19:	FSET?	PRSI,OPENBIT /?ELS21
+	CALL	TOO-BAD-BUT,PRSI,STR?17
+	RSTACK	
+?ELS21:	EQUAL?	PRSI,PRSO \?ELS23
+	CALL	HAR-HAR
+	RSTACK	
+?ELS23:	IN?	PRSO,PRSI \?ELS25
+	CALL	TOO-BAD-BUT,PRSO
+	PRINTI	" is already "
+	FSET?	PRSI,SURFACEBIT \?ELS32
+	PUSH	STR?42
+	JUMP	?CND28
+?ELS32:	PUSH	STR?109
+?CND28:	PRINT	STACK
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS25:	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 \?ELS36
+	PRINTR	"There's no room."
+?ELS36:	CALL	HELD?,PRSO
+	ZERO?	STACK \?ELS40
+	CALL	ITAKE
+	ZERO?	STACK /TRUE
+?ELS40:	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	PRINTR	"Okay."
+
+
+	.FUNCT	V-PUT-UNDER
+	PRINTR	"There's not enough room."
+
+
+	.FUNCT	V-RAISE
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-READ,VAL
+	ZERO?	LIT \?ELS5
+	PRINTR	"It's impossible to read in the dark."
+?ELS5:	EQUAL?	PRSO,BADGE-GLOBAL-3,BADGE-GLOBAL-2,BADGE-GLOBAL /FALSE
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS11
+	CALL	YOU-CANT
+	RSTACK	
+?ELS11:	IN?	PRSO,GLOBAL-OBJECTS \?ELS13
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS13:	ZERO?	PRSI /?ELS15
+	FSET?	PRSI,TRANSBIT /?ELS15
+	EQUAL?	-1,P-NUMBER \?ELS15
+	PRINTI	"You must have a swell method of looking through"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS15:	EQUAL?	P-ADVERB,W?CAREFULLY \FALSE
+	CALL	INT-WAIT,3 >VAL
+	ZERO?	VAL \?ELS26
+	PRINTI	"You never got to finish reading"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+?ELS26:	EQUAL?	VAL,M-FATAL /TRUE
+	RFALSE
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-RING
+	PRINTR	"""DING-DONG!"""
+
+
+	.FUNCT	V-RISE
+	EQUAL?	PRSO,BAY \?ELS5
+	CALL	PERFORM,V?SURFACE
+	RTRUE	
+?ELS5:	CALL	DO-WALK,P?UP
+	RTRUE	
+
+
+	.FUNCT	V-RUB
+	CALL	HACK-HACK,STR?169
+	RSTACK	
+
+
+	.FUNCT	PRE-RUB-OVER
+	CALL	PERFORM,V?RUB,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-RUB-OVER
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SAY,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	CALL	PERFORM,V?TELL,QCONTEXT
+	RTRUE	
+?ELS5:	IN?	COMPUTESTOR,HERE \?ELS7
+	FSET?	COMPUTESTOR,ONBIT \?ELS7
+	CALL	PERFORM,V?TELL,COMPUTESTOR
+	RTRUE	
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS11
+	CALL	PERFORM,V?TELL,P
+	RTRUE	
+?ELS11:	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	PRINTR	"(To talk to someone, type their name, then a comma, then what you want them to do.)"
+
+
+	.FUNCT	PRE-SAY-INTO
+	EQUAL?	PRSO,INTERCOM /FALSE
+	FSET?	PRSO,ONBIT /FALSE
+	PRINTI	"Sorry, but"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" isn't on!"
+
+
+	.FUNCT	V-SAY-INTO
+	CALL	YOU-CANT,STR?170
+	RSTACK	
+
+
+	.FUNCT	V-SCREW
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-SCREW-IN
+	CALL	YOU-CANT,STR?171
+	RSTACK	
+
+
+	.FUNCT	PRE-SEARCH
+	CALL	ROOM-CHECK
+	RSTACK	
+
+
+	.FUNCT	V-SEARCH,OBJ
+	FSET?	PRSO,PERSON \?ELS5
+	FIRST?	PRSO >OBJ \?ELS10
+	CALL	THIS-IS-IT,OBJ
+	PRINTI	"You find "
+	CALL	PRINTA,OBJ
+	PRINTR	"."
+?ELS10:	PRINTR	"You don't find anything interesting."
+?ELS5:	FSET?	PRSO,CONTBIT \?ELS18
+	FSET?	PRSO,OPENBIT /?ELS23
+	PRINTR	"You'll have to open it first."
+?ELS23:	CALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+?ELS18:	PRINTR	"You find nothing unusual."
+
+
+	.FUNCT	PRE-SEARCH-FOR,OBJ
+	CALL	ROOM-CHECK
+	ZERO?	STACK \TRUE
+	IN?	PRSI,PLAYER \?CND1
+	GETP	PRSI,P?GENERIC
+	CALL	STACK,PRSI >OBJ
+	ZERO?	OBJ /?CND1
+	SET	'PRSI,OBJ
+?CND1:	EQUAL?	PRSO,GLOBAL-HERE \FALSE
+	SET	'PRSO,HERE
+	RFALSE	
+
+
+	.FUNCT	V-SEARCH-FOR
+	FSET?	PRSO,PERSON \?ELS5
+	IN?	PRSI,PRSO \?ELS10
+	PRINTI	"Indeed, "
+	PRINTD	PRSO
+	PRINTI	" has"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"."
+?ELS10:	EQUAL?	PRSI,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS14
+	CALL	HAR-HAR
+	RSTACK	
+?ELS14:	IN?	PRSI,GLOBAL-OBJECTS \?ELS16
+	PRINTD	PRSO
+	PRINTI	" doesn't have "
+	CALL	PRINTA,PRSI
+	PRINTR	"."
+?ELS16:	ZERO?	PRSI \?ELS20
+	PRINTD	PRSO
+	PRINTR	" doesn't have that."
+?ELS20:	PRINTD	PRSO
+	PRINTI	" doesn't have"
+	CALL	THE-PRSI-PRINT
+	PRINTI	" concealed on "
+	FSET?	PRSO,FEMALE \?ELS31
+	PUSH	STR?172
+	JUMP	?CND27
+?ELS31:	PUSH	STR?173
+?CND27:	PRINT	STACK
+	PRINTR	" person."
+?ELS5:	FSET?	PRSO,CONTBIT \?ELS35
+	FSET?	PRSO,OPENBIT /?ELS35
+	PRINTI	"You'll have to open"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" first."
+?ELS35:	IN?	PRSI,PRSO \?ELS41
+	PRINTI	"How observant you are! There "
+	CALL	HE-SHE-IT,PRSI,FALSE-VALUE,STR?113
+	PRINTR	"!"
+?ELS41:	ZERO?	PRSI \?ELS47
+	CALL	YOU-CANT
+	RSTACK	
+?ELS47:	PRINTI	"You don't find"
+	CALL	THE-PRSI-PRINT
+	PRINTR	" there."
+
+
+	.FUNCT	V-SEND
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SSEND
+	CALL	PERFORM,V?SEND,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSEND
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SEND-OUT
+	CALL	V-SEND
+	RSTACK	
+
+
+	.FUNCT	PRE-SEND-TO
+	EQUAL?	PRSI,FALSE-VALUE,PLAYER,GLOBAL-HERE /FALSE
+	EQUAL?	PRSI,GLOBAL-SUB,AQUADOME /FALSE
+	FSET?	PRSO,PERSON \?ELS9
+	CALL	PERFORM,V?$CALL,PRSO
+	EQUAL?	WINNER,PLAYER /TRUE
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+?ELS9:	SET	'P-WON,FALSE-VALUE
+	PRINTR	"(Sorry, but I don't understand.)"
+
+
+	.FUNCT	V-SEND-TO
+	CALL	V-SEND
+	RSTACK	
+
+
+	.FUNCT	PRE-SET
+	EQUAL?	PRSI,FAST,MEDIUM,SLOW /FALSE
+	EQUAL?	PRSI,OFF,AUTOMATIC,MANUAL /FALSE
+	EQUAL?	PRSI,AQUADOME /FALSE
+	EQUAL?	-1,P-NUMBER /?ELS5
+	EQUAL?	PRSI,FALSE-VALUE,ROOMS /FALSE
+	ZERO?	PRSI /?ELS5
+	FSET?	PRSI,UNITBIT /FALSE
+?ELS5:	EQUAL?	PRSI,RIGHT,LEFT \?ELS15
+	CALL	PERFORM,V?AIM,PRSO,PRSI
+	RTRUE	
+?ELS15:	EQUAL?	PRSO,PRSI \?ELS17
+	CALL	PERFORM,V?TURN,PRSO
+	RTRUE	
+?ELS17:	PRINTI	"You can set something only to a number with units, or to "
+	PRINTD	MEDIUM
+	PRINTI	", "
+	PRINTD	AUTOMATIC
+	PRINTR	", and so on."
+
+
+	.FUNCT	V-SET
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	PRE-SHOOT
+	ZERO?	PRSI \FALSE
+	FSET?	PRSO,WEAPONBIT \FALSE
+	SET	'PRSI,PRSO
+	EQUAL?	PRSO,DART \?ELS10
+	PUSH	1
+	JUMP	?CND6
+?ELS10:	PUSH	0
+?CND6:	GET	OBJ-AIMED-AT,STACK >PRSO
+	RFALSE	
+
+
+	.FUNCT	V-SHOOT
+	CALL	FIND-FLAG,WINNER,WEAPONBIT
+	ZERO?	STACK \?ELS5
+	PRINTR	"You don't have anything to shoot with."
+?ELS5:	CALL	IKILL,STR?174
+	RSTACK	
+
+
+	.FUNCT	PRE-SSHOOT
+	CALL	PERFORM,V?SHOOT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOOT
+	CALL	V-FOO
+	RSTACK	
+
+
+	.FUNCT	V-SHOW
+	EQUAL?	PRSO,PLAYER \?ELS5
+	SET	'WINNER,PLAYER
+	CALL	VISIBLE?,PRSO
+	ZERO?	STACK /?ELS8
+	CALL	PERFORM,V?EXAMINE,PRSI
+	RTRUE	
+?ELS8:	CALL	PERFORM,V?FIND,PRSI
+	RTRUE	
+?ELS5:	FSET?	PRSO,PERSON /?ELS12
+	PRINTI	"Don't wait for"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" to applaud."
+?ELS12:	PRINTD	PRSO
+	CALL	PICK-ONE,WHO-CARES
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	PRE-SSHOW
+	SET	'P-MERGED,TRUE-VALUE
+	CALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOW
+	RTRUE	
+
+
+	.FUNCT	V-SIT
+	PRINTR	"That won't help your mission!"
+
+
+	.FUNCT	V-SLAP
+	ZERO?	PRSI /?ELS5
+	CALL	NOT-HOLDING?,PRSI
+	ZERO?	STACK \TRUE
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	PRINTR	"That sounds like a sign that you could wear on your back."
+?ELS9:	FSET?	PRSO,PERSON \?ELS13
+	FSET?	PRSO,MUNGBIT \?ELS18
+	PRINTD	PRSO
+	PRINTI	"'s eyes are full of hate, and "
+	CALL	HE-SHE-IT,PRSO
+	PRINTR	" says something unprintable."
+?ELS18:	CALL	FACE-RED,STR?175
+	RSTACK	
+?ELS13:	PRINTR	"You should see Mick. He breaks boards with the edge of his hand!"
+
+
+	.FUNCT	FACE-RED,STR
+	PRINTD	PRSO
+	PRINTI	" "
+	PRINT	STR
+	PRINTR	"s you right back. Wow, is your face red!"
+
+
+	.FUNCT	V-SMELL
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE,STR?176
+	PRINTI	" just like "
+	CALL	PRINTA,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	V-SMILE
+	FSET?	PRSO,PERSON \?ELS5
+	IN?	PRSO,GLOBAL-OBJECTS /?ELS5
+	PRINTD	PRSO
+	PRINTR	" smiles back at you."
+?ELS5:	CALL	HAR-HAR
+	RSTACK	
+
+
+	.FUNCT	V-SMOKE
+	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-STOP
+	EQUAL?	PRSO,ROOMS \?ELS5
+	EQUAL?	HERE,SUB \?ELS5
+	CALL	PERFORM,V?STOP,LOCAL-SUB
+	RTRUE	
+?ELS5:	ZERO?	PRSO /?ELS9
+	FSET?	PRSO,ON?BIT \?ELS9
+	CALL	PERFORM,V?LAMP-OFF,PRSO
+	RTRUE	
+?ELS9:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-SURFACE
+	ZERO?	PRSO /?ELS5
+	EQUAL?	PRSO,LOCAL-SUB /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	SET	'P-NUMBER,0
+	CALL	PERFORM,V?SET,DEPTH-CONTROL,METER
+	RTRUE	
+
+
+	.FUNCT	V-SWIM
+	PRINTI	"You can't swim "
+	ZERO?	PRSO /?ELS7
+	PRINTI	"in"
+	CALL	THE-PRSO-PRINT
+	PRINTI	", "
+	CALL	PRINT-NAME,FIRST-NAME
+	PRINTR	"."
+?ELS7:	CALL	GROUND-DESC
+	PRINT	STACK
+	PRINTR	"."
+
+
+	.FUNCT	PRE-TAKE
+	EQUAL?	PRSO,BADGE-GLOBAL-3,BADGE-GLOBAL-2,BADGE-GLOBAL /?THN6
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS5
+?THN6:	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	ZERO?	PRSI /?ELS9
+	EQUAL?	PRSO,TRAITOR,ORE-NODULES,GLOBAL-SNARK /?THN18
+	EQUAL?	PRSO,SEA-WALL,LOCAL-SUB,GLOBAL-SUB \?ELS15
+?THN18:	EQUAL?	PRSI,GAME /?THN20
+	EQUAL?	PRSI,AQUADOME,AIRLOCK,TEST-TANK /?THN20
+	EQUAL?	PRSI,DOCKING-TANK,UNDERWATER,GLOBAL-HERE /?THN20
+	EQUAL?	PRSI,SEA,BAY,GLOBAL-WATER \?ELS15
+?THN20:	CALL	MORE-SPECIFIC
+	RSTACK	
+?ELS15:	LOC	PRSO
+	EQUAL?	PRSI,STACK /?ELS23
+	FSET?	PRSI,PERSON /?ELS28
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE
+	PRINTI	"'s not "
+	EQUAL?	PRSI,HOOK \?ELS35
+	PUSH	STR?42
+	JUMP	?CND31
+?ELS35:	PUSH	STR?109
+?CND31:	PRINT	STACK
+	PRINTR	" that!"
+?ELS28:	CALL	HE-SHE-IT,PRSI,TRUE-VALUE
+	PRINTI	" doesn't have "
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"!"
+?ELS23:	SET	'PRSI,FALSE-VALUE
+	RFALSE	
+?ELS9:	EQUAL?	PRSO,PLAYER-NAME,TEST-TANK,YOU /FALSE
+	EQUAL?	PRSO,GLOBAL-GREENUP,GREENUP \?ELS49
+	FSET?	GREENUP,MUNGBIT /FALSE
+	CALL	PERFORM,V?ARREST,PRSO
+	RTRUE	
+?ELS49:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS \?ELS56
+	FSET?	PRSO,PERSON /FALSE
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS56:	IN?	PRSO,WINNER \?ELS63
+	CALL	ALREADY,PLAYER,STR?177
+	RSTACK	
+?ELS63:	LOC	PRSO
+	FSET?	STACK,CONTBIT \?ELS65
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?ELS65
+	CALL	YOU-CANT,STR?178
+	RSTACK	
+?ELS65:	LOC	WINNER
+	EQUAL?	PRSO,STACK \FALSE
+	PRINTR	"You're in it, nitwit!"
+
+
+	.FUNCT	V-TAKE
+	CALL	ITAKE
+	EQUAL?	STACK,TRUE-VALUE \FALSE
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR?113
+	PRINTI	" now holding"
+	CALL	THE-PRSO-PRINT
+	PRINTR	"."
+
+
+	.FUNCT	V-TAKE-TO
+	CALL	PERFORM,V?WALK-TO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-TAKE-WITH
+	PRINTI	"You can't remove"
+	CALL	THE-PRSO-PRINT
+	PRINTI	" with"
+	CALL	THE-PRSI-PRINT
+	PRINTR	"!"
+
+
+	.FUNCT	V-DISEMBARK
+	LOC	PRSO
+	EQUAL?	STACK,WINNER \?ELS5
+	PRINTI	"You don't need to take out"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" to use it."
+?ELS5:	EQUAL?	PRSO,SEA,BAY,GLOBAL-WATER /?THN10
+	EQUAL?	PRSO,GLOBAL-HERE,HERE,ROOMS \?ELS9
+?THN10:	CALL	DO-WALK,P?OUT
+	RTRUE	
+?ELS9:	LOC	WINNER
+	EQUAL?	STACK,PRSO /?ELS13
+	PRINTI	"You're not in"
+	CALL	THE-PRSO-PRINT
+	PRINTI	"!"
+	CRLF	
+	RETURN	2
+?ELS13:	CALL	OWN-FEET
+	RSTACK	
+
+
+	.FUNCT	OWN-FEET
+	MOVE	WINNER,HERE
+	PRINTR	"You're on your own feet again."
+
+
+	.FUNCT	V-TELL,P
+	EQUAL?	PRSO,PLAYER \?ELS5
+	EQUAL?	WINNER,PLAYER /?ELS10
+	SET	'P,WINNER
+	SET	'WINNER,PLAYER
+	CALL	PERFORM,V?ASK,P
+	RTRUE	
+?ELS10:	ZERO?	QCONTEXT /?ELS12
+	SET	'QCONTEXT,FALSE-VALUE
+	ZERO?	P-CONT /?ELS18
+	SET	'WINNER,PLAYER
+	RETURN	WINNER
+?ELS18:	PRINTR	"Okay, you're not talking to anyone else."
+?ELS12:	CALL	WONT-HELP-TO-TALK-TO,PLAYER
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	RETURN	2
+?ELS5:	FSET?	PRSO,PERSON /?THN30
+	EQUAL?	PRSO,COMPUTESTOR \?ELS29
+?THN30:	ZERO?	P-CONT /?ELS34
+	SET	'WINNER,PRSO
+	JUMP	?CND32
+?ELS34:	PRINTD	PRSO
+	PRINTI	" is listening."
+	CRLF	
+?CND32:	SET	'QCONTEXT,PRSO
+	SET	'QCONTEXT-ROOM,HERE
+	RETURN	QCONTEXT-ROOM
+?ELS29:	CALL	YOU-CANT,STR?179
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	PRE-TELL-ABOUT,P
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	EQUAL?	PRSO,PLAYER \?ELS5
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSI
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS9
+	FSET?	P,INVISIBLE /?ELS9
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSI
+	RTRUE	
+?ELS9:	CALL	PRE-ASK-ABOUT
+	RSTACK	
+
+
+	.FUNCT	V-TELL-ABOUT,P
+	GETP	PRSI,P?TEXT
+	ZERO?	STACK /?ELS5
+	GETP	PRSI,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS5:	EQUAL?	PRSO,PLAYER \?ELS9
+	CALL	ARENT-TALKING
+	RSTACK	
+?ELS9:	CALL	PERFORM,V?ASK-ABOUT,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	PRE-TALK-ABOUT,P
+	EQUAL?	WINNER,PLAYER /?ELS5
+	CALL	PERFORM,V?TELL-ABOUT,PLAYER,PRSO
+	RTRUE	
+?ELS5:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS7
+	CALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
+	RTRUE	
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /FALSE
+	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TALK-ABOUT
+	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-THANKS,P=0
+	ZERO?	PRSO /?ELS3
+	FSET?	PRSO,PERSON \?ELS3
+	SET	'P,PRSO
+	JUMP	?CND1
+?ELS3:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS7
+	SET	'P,QCONTEXT
+	JUMP	?CND1
+?ELS7:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?CND1
+?CND1:	ZERO?	P /?ELS14
+	PRINTD	P
+	PRINTR	" acknowledges your thanks."
+?ELS14:	PRINTR	"You're more than welcome."
+
+
+	.FUNCT	V-THROW
+	CALL	IDROP
+	ZERO?	STACK /FALSE
+	PRINTR	"Thrown."
+
+
+	.FUNCT	V-THROW-AT
+	CALL	IDROP
+	ZERO?	STACK /TRUE
+	EQUAL?	PRSI,PLAYER \?CND4
+	PRINTR	"Don't be silly!"
+?CND4:	FSET?	PRSI,PERSON /?CND9
+	FSET?	PRSI,NARTICLEBIT /?CND9
+	PRINTI	"The "
+?CND9:	PRINTD	PRSI
+	FSET?	PRSI,PERSON \?ELS22
+	PUSH	STR?180
+	JUMP	?CND18
+?ELS22:	PUSH	STR?181
+?CND18:	PRINT	STACK
+	PRINTI	" as"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" flies by."
+
+
+	.FUNCT	V-THROW-THROUGH
+	FSET?	PRSO,PERSON /?ELS5
+	PRINTR	"Let's not resort to violence, please."
+?ELS5:	CALL	V-THROW
+	RSTACK	
+
+
+	.FUNCT	PRE-TIE-TO
+	EQUAL?	PRSI,SONAR-EQUIPMENT,GLOBAL-SONAR /FALSE
+	EQUAL?	PRSI,CLAW,LOCAL-SUB,GLOBAL-SUB /FALSE
+	FSET?	PRSO,PERSON /FALSE
+	PRINTR	"That won't do any good."
+
+
+	.FUNCT	V-TIE-TO
+	PRINTI	"You can't tie"
+	CALL	THE-PRSO-PRINT
+	PRINTR	" to that."
+
+
+	.FUNCT	PRE-TIE-WITH
+	FSET?	PRSO,PERSON \?THN6
+	FSET?	PRSI,TOOLBIT /FALSE
+?THN6:	PRINTR	"That won't do any good."
+
+
+	.FUNCT	V-TIE-WITH
+	PRINTR	"""If you don't formally arrest me first, I'll sue!"""
+
+
+	.FUNCT	V-TURN
+	EQUAL?	PRSO,OXYGEN-GEAR-BLY,OXYGEN-GEAR-DIVER,OXYGEN-GEAR-OTHER \?ELS5
+	CALL	HAR-HAR
+	RSTACK	
+?ELS5:	CALL	META-LOC,PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS \?ELS7
+	CALL	NOT-HERE,PRSO
+	RSTACK	
+?ELS7:	FSET?	PRSO,DOORBIT \?ELS9
+	FSET?	PRSO,OPENBIT \?ELS9
+	CALL	PERFORM,V?CLOSE,PRSO
+	RTRUE	
+?ELS9:	PRINTR	"What do you want that to do?"
+
+
+	.FUNCT	V-LAMP-OFF
+	FSET?	PRSO,PERSON \?ELS5
+	PRINTR	"Your vulgar ways would turn anyone off."
+?ELS5:	FSET?	PRSO,ON?BIT /?ELS9
+	CALL	YOU-CANT,STR?182
+	RSTACK	
+?ELS9:	FSET?	PRSO,ONBIT /?ELS11
+	CALL	ALREADY,PRSO,STR?39
+	RSTACK	
+?ELS11:	EQUAL?	PRSO,OXYGEN-GEAR,MICROPHONE-DOME,MICROPHONE \?ELS13
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+?ELS13:	CALL	OKAY,PRSO,STR?39
+	RSTACK	
+
+
+	.FUNCT	V-LAMP-ON
+	FSET?	PRSO,ONBIT \?ELS5
+	CALL	ALREADY,PRSO,STR?42
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,OXYGEN-GEAR,MICROPHONE-DOME,MICROPHONE \?ELS7
+	CALL	NOT-HOLDING?,PRSO
+	ZERO?	STACK \TRUE
+?ELS7:	FSET?	PRSO,ON?BIT \?ELS11
+	CALL	OKAY,PRSO,STR?42
+	RSTACK	
+?ELS11:	FSET?	PRSO,PERSON \?ELS13
+	CALL	HAR-HAR
+	RSTACK	
+?ELS13:	CALL	YOU-CANT,STR?183
+	RSTACK	
+
+
+	.FUNCT	V-UNLOCK
+	FSET?	PRSO,CONTBIT /?ELS5
+	CALL	YOU-CANT
+	RSTACK	
+?ELS5:	FSET?	PRSO,DOORBIT /?THN8
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?ELS7
+?THN8:	FSET?	PRSO,OPENBIT \?ELS14
+	CALL	YOU-CANT,FALSE-VALUE,PRSO,STR?21
+	RSTACK	
+?ELS14:	FSET?	PRSO,LOCKED /?ELS16
+	CALL	ALREADY,PRSO,STR?184
+	RSTACK	
+?ELS16:	FCLEAR	PRSO,LOCKED
+	CALL	OKAY,PRSO,STR?184
+	RSTACK	
+?ELS7:	CALL	YOU-CANT
+	RSTACK	
+
+
+	.FUNCT	V-UNTIE
+	PRINTI	"You can't tie "
+	CALL	HIM-HER-IT,PRSO
+	PRINTI	", so you can't untie "
+	CALL	HIM-HER-IT,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	MORE-SPECIFIC
+	PRINTR	"How do you want to do that?"
+
+
+	.FUNCT	V-USE
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	V-USE-AGAINST
+	CALL	MORE-SPECIFIC
+	RSTACK	
+
+
+	.FUNCT	HAS-ARRIVED,WHO
+	FSET	WHO,TOUCHBIT
+	PRINTD	WHO
+	PRINTR	", for whom you're waiting, has arrived."
+
+
+	.FUNCT	V-WAIT,NUM=-1,WHO=0,INT=0,VAL,HR,RESULT=1
+	EQUAL?	-1,NUM \?CND1
+	SET	'NUM,10
+	PRINT	I-ASSUME
+	PRINTI	" wait 10 turns.)"
+	CRLF	
+?CND1:	SET	'HR,HERE
+	SET	'WHO-WAIT,0
+	ZERO?	INT \?CND6
+	PRINTI	"Time passes..."
+	CRLF	
+?CND6:	
+?PRG11:	DLESS?	'NUM,0 \?ELS15
+	JUMP	?REP12
+?ELS15:	CALL	CLOCKER >VAL
+	ZERO?	VAL /?ELS17
+	EQUAL?	VAL,M-FATAL /?THN21
+	EQUAL?	HR,HERE /?ELS20
+?THN21:	SET	'RESULT,M-FATAL
+	JUMP	?REP12
+?ELS20:	ZERO?	WHO /?ELS24
+	IN?	WHO,HERE \?ELS24
+	CALL	HAS-ARRIVED,WHO
+	JUMP	?REP12
+?ELS24:	ZERO?	NUM \?ELS28
+	JUMP	?REP12
+?ELS28:	INC	'WHO-WAIT
+	ZERO?	INT /?ELS33
+	PRINTI	"Do you want to continue what you were doing?"
+	JUMP	?CND31
+?ELS33:	PRINTI	"Do you want to keep waiting?"
+?CND31:	CALL	YES?
+	ZERO?	STACK \?ELS43
+	JUMP	?REP12
+?ELS43:	USL	
+	JUMP	?PRG11
+?ELS17:	ZERO?	WHO /?ELS47
+	IN?	WHO,HERE \?ELS47
+	CALL	HAS-ARRIVED,WHO
+	JUMP	?REP12
+?ELS47:	ZERO?	WHO /?ELS51
+	IGRTR?	'WHO-WAIT,30 \?ELS51
+	PRINTD	WHO
+	PRINTI	" still hasn't arrived. Do you want to keep waiting?"
+	CALL	YES?
+	ZERO?	STACK \?CND56
+	JUMP	?REP12
+?CND56:	SET	'WHO-WAIT,0
+	USL	
+	JUMP	?PRG11
+?ELS51:	USL	
+	JUMP	?PRG11
+?REP12:	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	RESULT
+
+
+	.FUNCT	INT-WAIT,N,TIM,REQ,VAL
+	SET	'TIM,MOVES
+	MUL	N,2
+	RANDOM	STACK >REQ
+	CALL	V-WAIT,REQ,FALSE-VALUE,TRUE-VALUE
+	EQUAL?	M-FATAL,STACK \?ELS5
+	RETURN	2
+?ELS5:	SUB	MOVES,TIM
+	LESS?	STACK,REQ /FALSE
+	RTRUE	
+
+
+	.FUNCT	V-WAIT-FOR,WHO
+	EQUAL?	-1,P-NUMBER /?ELS5
+	EQUAL?	PRSO,TURN,ROOMS \?ELS5
+	GRTR?	P-NUMBER,180 \?ELS12
+	PRINTR	"That's too long to wait."
+?ELS12:	CALL	V-WAIT,P-NUMBER
+	RSTACK	
+?ELS5:	EQUAL?	PRSO,GLOBAL-HERE,TURN,ROOMS \?ELS18
+	CALL	V-WAIT
+	RTRUE	
+?ELS18:	EQUAL?	PRSO,PLAYER \?ELS20
+	CALL	ALREADY,PLAYER,STR?50
+	RSTACK	
+?ELS20:	FSET?	PRSO,PERSON \?ELS22
+	GETP	PRSO,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >WHO
+	CALL	META-LOC,WHO
+	EQUAL?	STACK,HERE \?ELS27
+	CALL	ALREADY,WHO,STR?50
+	RSTACK	
+?ELS27:	CALL	V-WAIT,10000,WHO
+	RSTACK	
+?ELS22:	PRINTR	"Not a good idea. You might wait forever."
+
+
+	.FUNCT	V-WAIT-UNTIL
+	EQUAL?	-1,P-NUMBER /?ELS5
+	EQUAL?	PRSO,TURN \?ELS5
+	GRTR?	P-NUMBER,MOVES \?ELS12
+	SUB	P-NUMBER,MOVES
+	CALL	V-WAIT,STACK
+	RSTACK	
+?ELS12:	PRINTR	"It's already past that time."
+?ELS5:	CALL	YOU-CANT,STR?185
+	RSTACK	
+
+
+	.FUNCT	V-ALARM
+	FSET?	PRSO,PERSON \?ELS5
+	CALL	HE-SHE-IT,PRSO,TRUE-VALUE
+	PRINTR	"'s wide awake, or haven't you noticed?"
+?ELS5:	CALL	TOO-BAD-BUT,PRSO,STR?186
+	RSTACK	
+
+
+	.FUNCT	DO-WALK,DIR
+	SET	'P-WALK-DIR,DIR
+	CALL	PERFORM,V?WALK,DIR
+	RSTACK	
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM
+	EQUAL?	PRSO,RIGHT,LEFT \?ELS3
+	CALL	PERFORM,V?TURN,PRSO
+	RTRUE	
+?ELS3:	ZERO?	P-WALK-DIR \?CND1
+	CALL	V-WALK-AROUND
+	RETURN	2
+?CND1:	LOC	WINNER
+	GETPT	STACK,PRSO >PT
+	ZERO?	PT /?ELS12
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?ELS17
+	GETB	PT,REXIT >RM
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS17:	EQUAL?	PTS,NEXIT \?ELS22
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	CRLF	
+	RETURN	2
+?ELS22:	EQUAL?	PTS,FEXIT \?ELS28
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?ELS33
+	CALL	GOTO,RM
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS33:	RETURN	2
+?ELS28:	EQUAL?	PTS,CEXIT \?ELS42
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?ELS47
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS47:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?ELS52
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?ELS52:	CALL	YOU-CANT,STR?129
+	RETURN	2
+?ELS42:	EQUAL?	PTS,DEXIT \FALSE
+	GETB	PT,DEXITOBJ >OBJ
+	FSET?	OBJ,OPENBIT \?ELS67
+	GETB	PT,REXIT
+	CALL	GOTO,STACK
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS67:	FSET?	OBJ,INVISIBLE \?ELS72
+	ZERO?	DEBUG /?THN75
+	PRINTI	"[invisible] "
+?THN75:	CALL	YOU-CANT,STR?129
+	RSTACK	
+?ELS72:	GET	PT,DEXITSTR >STR
+	ZERO?	STR /?ELS80
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?ELS80:	CALL	TOO-BAD-BUT,OBJ,STR?17
+	CALL	THIS-IS-IT,OBJ
+	RETURN	2
+?ELS12:	EQUAL?	PRSO,P?IN,P?OUT \?ELS90
+	CALL	V-WALK-AROUND
+	RSTACK	
+?ELS90:	CALL	YOU-CANT,STR?129
+	RETURN	2
+
+
+	.FUNCT	V-WALK-AROUND
+	SET	'P-WON,FALSE-VALUE
+	PRINTI	"(What "
+	PRINTD	INTDIR
+	PRINTI	" do you want to go in?)"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-WALK-TO,O,L
+	SET	'O,PRSO
+	EQUAL?	O,LOCAL-SUB,GLOBAL-SUB \?ELS3
+	SET	'O,SUB
+	JUMP	?CND1
+?ELS3:	FSET?	O,PERSON \?CND1
+	IN?	O,GLOBAL-OBJECTS \?CND1
+	GETP	O,P?CHARACTER
+	GET	CHARACTER-TABLE,STACK >O
+?CND1:	CALL	META-LOC,O >L
+	EQUAL?	HERE,SUB \?ELS12
+	FSET?	PRSO,UNITBIT \?ELS12
+	CALL	PERFORM,V?SET,DEPTH-CONTROL,PRSO
+	RTRUE	
+?ELS12:	LOC	WINNER
+	EQUAL?	HERE,STACK \?ELS16
+	EQUAL?	L,HERE /?THN19
+	EQUAL?	L,LOCAL-GLOBALS \?ELS16
+	CALL	GLOBAL-IN?,O,HERE
+	ZERO?	STACK /?ELS16
+?THN19:	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	EQUAL?	WINNER,PLAYER \?ELS25
+	PRINTI	" do"
+	JUMP	?CND23
+?ELS25:	PRINTI	" does"
+?CND23:	PRINTI	"n't need to walk around within a "
+	PUSH	STR?187
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS16:	EQUAL?	L,LOCAL-GLOBALS \?ELS40
+	CALL	MORE-SPECIFIC
+	RSTACK	
+?ELS40:	EQUAL?	PRSO,JOB \?ELS42
+	EQUAL?	WINNER,PLAYER /?CND43
+	PRINTI	""""
+?CND43:	CALL	MORE-SPECIFIC
+	EQUAL?	WINNER,PLAYER /?CND48
+	PRINTI	""""
+?CND48:	CRLF	
+	RTRUE	
+?ELS42:	EQUAL?	PRSO,INTDIR \?ELS54
+	CALL	V-WALK-AROUND
+	RSTACK	
+?ELS54:	CALL	FAR-AWAY?,L
+	ZERO?	STACK /?ELS56
+	CALL	HE-SHE-IT,WINNER,TRUE-VALUE
+	PRINTI	" can't go from here to there"
+	EQUAL?	L,GLOBAL-OBJECTS /?CND59
+	PRINTI	", at least not directly"
+?CND59:	PRINTR	"."
+?ELS56:	EQUAL?	WINNER,PLAYER /?ELS67
+	CALL	GOTO,L
+	ZERO?	STACK /FALSE
+	PRINTI	"""Okay."
+	EQUAL?	WINNER,TIP \?CND75
+	PRINTI	" But I'll still follow you if you move!"
+?CND75:	PRINTR	""""
+?ELS67:	ZERO?	SUB-IN-DOME /?ELS83
+	FSET?	FOOT-OF-RAMP,TOUCHBIT /?ELS83
+	EQUAL?	L,FOOT-OF-RAMP /?ELS83
+	EQUAL?	L,SUB,AIRLOCK,AIRLOCK-WALL /?ELS83
+	PRINTI	"You should go to the "
+	PRINTD	FOOT-OF-RAMP
+	PRINTR	" first."
+?ELS83:	IN?	O,ROOMS \?ELS89
+	CALL	GOTO,O
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+?ELS89:	CALL	HE-SHE-IT,O,TRUE-VALUE
+	PRINTI	"'s in"
+	CALL	PRINTT,L
+	PRINTI	"."
+	CRLF	
+	CALL	GOTO,L
+	ZERO?	STACK /TRUE
+	CALL	OKAY
+	RTRUE	
+
+
+	.FUNCT	V-WALK-UNDER
+	EQUAL?	PRSO,BAY,SEA,GLOBAL-WATER \?ELS5
+	CALL	PERFORM,V?DIVE
+	RTRUE	
+?ELS5:	CALL	YOU-CANT,STR?188
+	RSTACK	
+
+
+	.FUNCT	V-RUN-OVER
+	PRINTR	"That doesn't make much sense."
+
+
+	.FUNCT	V-WHAT,P
+	EQUAL?	PRSO,PLAYER \?ELS5
+	EQUAL?	WINNER,PLAYER /?CND6
+	PRINTI	""""
+?CND6:	PRINTI	"You're the inventor!"
+	EQUAL?	WINNER,PLAYER /?CND13
+	PRINTI	""""
+?CND13:	CRLF	
+	RTRUE	
+?ELS5:	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS23
+	SET	'P,QCONTEXT
+	FSET?	P,PERSON /?THN20
+?ELS23:	CALL	FIND-FLAG,HERE,PERSON,WINNER >P
+	ZERO?	P /?ELS19
+?THN20:	CALL	PERFORM,V?ASK-ABOUT,P,PRSO
+	RSTACK	
+?ELS19:	FSET?	PRSO,PERSON \?ELS25
+	GETP	TIP,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?ELS25:	CALL	WONT-HELP-TO-TALK-TO,PLAYER
+	RSTACK	
+
+
+	.FUNCT	V-YELL
+	CALL	V-YES
+	RSTACK	
+
+
+	.FUNCT	V-YELL-FOR
+	ZERO?	DOME-AIR-BAD? /?ELS5
+	EQUAL?	PRSO,SPECIAL-TOOL-GLOBAL,SPECIAL-TOOL,UNIVERSAL-TOOL \?ELS5
+	PRINTI	"The three crew members who are still on their feet shout back that the "
+	PRINTD	SPECIAL-TOOL
+	PRINTR	" should be there on the hook."
+?ELS5:	CALL	V-YES
+	RSTACK	
+
+
+	.FUNCT	V-YES,NO?=0
+	CALL	QCONTEXT-GOOD?
+	ZERO?	STACK /?ELS5
+	EQUAL?	WINNER,PLAYER \?ELS5
+	SET	'WINNER,QCONTEXT
+	ZERO?	NO? /?ELS10
+	CALL	PERFORM,V?NO
+	RTRUE	
+?ELS10:	CALL	PERFORM,V?YES
+	RTRUE	
+?ELS5:	CALL	ARENT-TALKING
+	RSTACK	
+
+
+	.FUNCT	V-NO
+	CALL	V-YES,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	SCORE-UPD,NUM
+	ADD	SCORE,NUM >SCORE
+	PRINTI	"("
+	GRTR?	0,NUM \?CND3
+	PRINTI	"Oh no! "
+?CND3:	PRINTI	"Your score just went "
+	LESS?	0,NUM \?ELS12
+	PRINTI	"up"
+	JUMP	?CND10
+?ELS12:	SUB	0,NUM >NUM
+	PRINTI	"down"
+?CND10:	PRINTI	" by "
+	PRINTN	NUM
+	PRINTI	" point"
+	EQUAL?	NUM,1 /?CND21
+	PRINTI	"s"
+?CND21:	PRINTR	"!)"
+
+
+	.FUNCT	SCORE-OBJ,OBJ,TEMP
+	GETP	OBJ,P?VALUE >TEMP
+	ZERO?	TEMP /FALSE
+	GRTR?	TEMP,0 \FALSE
+	CALL	SCORE-UPD,TEMP
+	PUTP	OBJ,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	V-SCORE
+	PRINTI	"Your score is "
+	PRINTN	SCORE
+	PRINTI	" point"
+	EQUAL?	SCORE,1 /?CND3
+	PRINTI	"s"
+?CND3:	PRINTI	" out of 100, in "
+	PRINTN	MOVES
+	PRINTI	" turn"
+	EQUAL?	MOVES,1 \?ELS12
+	PRINTI	"."
+	JUMP	?CND10
+?ELS12:	PRINTI	"s."
+?CND10:	CRLF	
+	PRINTI	"This score gives you the rank of a "
+	GRTR?	0,SCORE \?ELS25
+	GET	RANKS,0
+	JUMP	?CND21
+?ELS25:	DIV	SCORE,20
+	GET	RANKS,STACK
+?CND21:	PRINT	STACK
+	PRINTI	" adventurer."
+	CRLF	
+	RETURN	SCORE
+
+
+	.FUNCT	FINISH,REPEATING=0,VAL
+	ZERO?	DEBUG \TRUE
+	CRLF	
+	CRLF	
+	ZERO?	REPEATING \?CND5
+	CALL	V-SCORE
+	CRLF	
+?CND5:	PRINTI	"Would you like to:
+   RESTORE your place from where you saved it,
+   RESTART the story from the beginning, or
+   QUIT for now?
+"
+?PRG10:	PRINTI	">"
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,P-LEXSTART >VAL
+	ZERO?	VAL /?CND14
+	CALL	WT?,VAL,PS?VERB,P1?VERB >VAL
+	EQUAL?	VAL,ACT?RESTART \?ELS19
+	RESTART	
+	CALL	FINISH,TRUE-VALUE
+	JUMP	?CND14
+?ELS19:	EQUAL?	VAL,ACT?RESTORE \?ELS21
+	CALL	V-RESTORE
+	ZERO?	STACK \TRUE
+	CALL	FINISH,TRUE-VALUE
+	JUMP	?CND14
+?ELS21:	EQUAL?	VAL,ACT?QUIT \?CND14
+	QUIT	
+?CND14:	PRINTI	"(Type RESTORE, RESTART, or QUIT.) "
+	JUMP	?PRG10
+
+
+	.FUNCT	DIVESTMENT?,OBJ
+	EQUAL?	PRSO,OBJ \FALSE
+	EQUAL?	PRSA,V?THROW-THROUGH,V?THROW-AT /TRUE
+	EQUAL?	PRSA,V?PUT,V?GIVE,V?DROP /TRUE
+	RFALSE	
+
+
+	.FUNCT	EXIT-VERB?
+	EQUAL?	PRSA,V?WALK /TRUE
+	EQUAL?	PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \FALSE
+	CALL	META-LOC,PRSO
+	EQUAL?	HERE,STACK \TRUE
+	RFALSE
+
+
+	.FUNCT	GAME-VERB?
+	EQUAL?	PRSA,V?DEBUG,V?$VERIFY /TRUE
+	EQUAL?	PRSA,V?SCORE,V?UNSCRIPT,V?SCRIPT /TRUE
+	EQUAL?	PRSA,V?VERSION,V?RESTART,V?QUIT /TRUE
+	EQUAL?	PRSA,V?RESTORE,V?SAVE,V?VERBOSE /TRUE
+	EQUAL?	PRSA,V?SUPER-BRIEF,V?BRIEF,V?TELL /TRUE
+	RFALSE	
+
+
+	.FUNCT	REMOTE-VERB?
+	EQUAL?	PRSA,V?WHAT,V?WALK-TO /TRUE
+	EQUAL?	PRSA,V?TELL-ABOUT,V?TAKE-WITH,V?SGIVE /TRUE
+	EQUAL?	PRSA,V?SEARCH-FOR,V?SEARCH,V?MAKE /TRUE
+	EQUAL?	PRSA,V?LOOK-UP,V?GIVE,V?FIND /TRUE
+	EQUAL?	PRSA,V?DROP,V?DISEMBARK,V?ASK-FOR /TRUE
+	EQUAL?	PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /TRUE
+	RFALSE	
+
+
+	.FUNCT	SPEAKING-VERB?
+	EQUAL?	PRSA,V?YES,V?WHAT /TRUE
+	EQUAL?	PRSA,V?TELL-ABOUT,V?TELL,V?NO /TRUE
+	EQUAL?	PRSA,V?HELLO,V?GOODBYE,V?ASK-FOR /TRUE
+	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK,V?$CALL /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..aeaf744
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,2746 @@
+"VERBS for SEASTALKER
+Copyright (C) 1984, 1985 Infocom, Inc.  All rights reserved."
+
+<ROUTINE TRANSCRIPT (STR)
+	<TELL "Here " .STR "s a transcript of interaction with" CR>>
+
+<ROUTINE V-SCRIPT ()
+	<COND (,SCREEN-NOW-SPLIT <SPLIT 0>)>	;"in case printer off"
+	<PUT 0 8 <BOR <GET 0 8> 1>>
+	<TRANSCRIPT "begin">
+	<V-VERSION>
+	<START-SONAR?>				;"ditto"
+	<RTRUE>>
+
+<ROUTINE V-UNSCRIPT ()
+	<TRANSCRIPT "end">
+	<V-VERSION>
+	<PUT 0 8 <BAND <GET 0 8> -2>>
+	<RTRUE>>
+
+<ROUTINE V-$VERIFY ()
+	 <TELL "Verifying disk..." CR>
+	 <COND (<VERIFY> <TELL "The disk is correct." CR>)
+	       (T <TELL
+"Oh, oh! The disk seems to have a defect. Try verifying again. (If
+you've already done that, the disk surely has a defect.)" CR>)>>
+
+<GLOBAL DEBUG <>>
+<ROUTINE V-DEBUG ()
+	 <COND (<SETG DEBUG <NOT ,DEBUG>>
+		<TELL "Find them bugs, boss!" CR>)
+	       (T <TELL "No bugs left, eh?" CR>)>>
+
+
+"ZORK game commands"
+
+"<CONSTANT DIFFICULTY-MAX 2>
+<GLOBAL DIFFICULTY 0>"
+
+"SUBTITLE SETTINGS FOR VARIOUS LEVELS OF DESCRIPTION"
+
+<GLOBAL VERBOSE <>>
+<GLOBAL SUPER-BRIEF <>>
+<GDECL (VERBOSE SUPER-BRIEF) <OR ATOM FALSE>>
+
+<ROUTINE YOU-WILL-GET (STR)
+	<TELL "(Okay, you will get " .STR " descriptions.)" CR>>
+
+<ROUTINE V-BRIEF ()
+	 <SETG VERBOSE <>>
+	 <SETG SUPER-BRIEF <>>
+	 <SETG P-SPACE 1>
+	 <YOU-WILL-GET "brief">>
+
+<ROUTINE V-SUPER-BRIEF ()
+	 <SETG SUPER-BRIEF T>
+	 <SETG P-SPACE 0>
+	 <YOU-WILL-GET "superbrief">>
+
+<ROUTINE V-VERBOSE ()
+	<SETG VERBOSE T>
+	<SETG SUPER-BRIEF <>>
+	<SETG P-SPACE 1>
+	<YOU-WILL-GET "verbose">
+	<V-LOOK>>
+
+<GLOBAL P-SPACE 1>
+
+<ROUTINE V-INVENTORY ()
+	 <COND (,P-WHAT-IGNORED
+		<COND (<NOT <EQUAL? ,WINNER ,PLAYER>> <TELL "\"">)>
+		<TELL "You're the inventor!">
+		<COND (<NOT <EQUAL? ,WINNER ,PLAYER>> <TELL "\"">)>
+		<CRLF>)
+	       (<NOT <PRINT-CONT ,WINNER>>
+	        <COND (<EQUAL? ,WINNER ,PLAYER> <TELL "You're">)
+		      (T <HE-SHE-IT ,WINNER T> <TELL "'s">)>
+		<TELL " not holding anything." CR>)>>
+
+<ROUTINE V-QUIT ("OPTIONAL" (ASK? T))
+	 <V-SCORE>
+	 <COND (<OR <AND .ASK?
+			 <TELL
+"(If you want to continue from this point at another time, you must
+\"SAVE\" first.)|
+Do you want to stop playing now?">
+			 <YES?>>
+		    <NOT .ASK?>>
+		<QUIT>)
+	       (T <TELL "Okay." CR>)>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE>
+	 <TELL
+"Do you want to start over from the beginning?">
+	 <COND (<YES?>
+		<RESTART>
+		<TELL ,FAILED CR>)>>
+
+<GLOBAL FAILED
+"(Sorry, but it didn't work. Maybe your instruction manual or Reference
+Card can tell you why.)">
+
+<ROUTINE V-SAVE ()
+	 <COND (,SCREEN-NOW-SPLIT <SPLIT 0>)>
+	 <COND (<SAVE>
+	        <TELL "Okay." CR>
+		<V-FIRST-LOOK>)
+	       (T
+		<TELL ,FAILED CR>)>
+	 <START-SONAR?>
+	 <RTRUE>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (,SCREEN-NOW-SPLIT <SPLIT 0>)>
+	 <COND (<NOT <RESTORE>>
+		<TELL ,FAILED CR>
+		<START-SONAR?>
+		<RFALSE>)>>
+
+<ROUTINE V-FIRST-LOOK ()
+	 <COND (<DESCRIBE-ROOM>
+		<COND (<NOT ,SUPER-BRIEF> <DESCRIBE-OBJECTS>)>)>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17) V)
+	 <SET V <BAND <GET 0 1> *3777*>>
+	 <TELL "SEASTALKER: ">
+	 <PRINT-NAME ,FIRST-NAME T>
+	 <PRINTC 32>
+	 <PRINT-NAME ,LAST-NAME T>
+	 <TELL
+" AND THE ULTRAMARINE BIOCEPTOR|
+Infocom interactive fiction - an adventure story|
+Copyright (c) 1984, 1985 by Infocom, Inc.  All rights reserved.|
+">
+	 ;<COND (<NOT <==? <BAND <GETB 0 1> 8> 0>>
+		<TELL"Licensed to Tandy Corporation. Version 00.00."N .V CR>)>
+	 <TELL
+"SEASTALKER is a registered trademark of Infocom, Inc.|
+Release number " N .V " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <CRLF>>
+
+<GLOBAL YES-INBUF <ITABLE BYTE 12>>
+<GLOBAL YES-LEXV  <ITABLE BYTE 10>>
+
+<ROUTINE YES? ("AUX" WORD VAL)
+	<REPEAT ()
+		<PRINTI " >">
+		<READ ,YES-INBUF ,YES-LEXV>
+		<SET WORD  <GET  ,YES-LEXV ,P-LEXSTART>>
+		<COND (<0? <GETB ,YES-LEXV ,P-LEXWORDS>> T)
+		      (<NOT <0? .WORD>>
+		       <SET VAL <WT? .WORD ,PS?VERB ,P1?VERB>>
+		       <COND (<EQUAL? .VAL ,ACT?YES>
+			      <SET VAL T>
+			      <RETURN>)
+			     (<OR <EQUAL? .VAL ,ACT?NO>
+				  <EQUAL? .WORD ,W?N>>
+			      <SET VAL <>>
+			      <RETURN>)>)>
+		<TELL "(Please type YES or NO.)">>
+	.VAL>
+
+<ROUTINE YOU-CANT ("OPTIONAL" (STR <>) (WHILE <>) (STR1 <>))
+	<COND (<==? ,WINNER ,PLAYER> <TELL "You">)
+	      (T <HE-SHE-IT ,WINNER T>)>
+	<TELL " can't " ;"There's no way to ">
+	<COND (.STR <TELL .STR>) (T <VERB-PRINT>)>
+	<COND (<EQUAL? .STR "go"> <TELL " in that direction." CR>)
+	      (.STR1
+	       <TELL " it while">
+	       <COND (.WHILE
+		      <THIS-IS-IT .WHILE>
+		      <TELL THE .WHILE>)
+		     (T <TELL " it">)>
+	       <TELL " is " .STR1 "." CR>)
+	      (T
+	       <TELL THE-PRSO>
+	       <TELL " now." CR>)>>
+
+""
+
+"SUBTITLE - GENERALLY USEFUL ROUTINES & CONSTANTS"
+
+"DESCRIBE-OBJECT -- takes object and flag.  if flag is true will print a
+long description (fdesc or ldesc), otherwise will print short."
+
+<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV (NO-CR <>))
+	 <THIS-IS-IT .OBJ>
+	 <COND (<AND <0? .LEVEL>
+		     <APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>
+		<RTRUE>)>
+	 <COND (<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>
+		<COND (<FSET? .OBJ ,PERSON>
+		       <COND (<AND <IS-CREW? .OBJ>
+				   <CREW-5-TOGETHER?>
+				   <NOT <FSET? ,BLY ,MUNGBIT>>>
+			      <COND (<==? .OBJ ,LOWELL>
+				     <TELL
+"The five " D ,CREW " members are here.">)
+				    (T <SET NO-CR T>)>)
+			     (T <TELL D .OBJ " is here.">)>)
+		      (T
+		       <TELL "There's " A .OBJ " here.">)>)
+	       (ELSE
+		<TELL <GET ,INDENTS .LEVEL>>
+		<COND (<FSET? .OBJ ,PERSON>
+		       <COND (<AND <IS-CREW? .OBJ>
+				   <CREW-5-TOGETHER?>
+				   <NOT <FSET? ,BLY ,MUNGBIT>>>
+			      <COND (<==? .OBJ ,LOWELL>
+				     <TELL
+"the five " D ,CREW " members">)
+				    (T <SET NO-CR T>)>)
+			     (T <TELL D .OBJ>)>)
+		      (T
+		       <TELL A .OBJ>)>
+		<COND (<AND <==? .OBJ ,OXYGEN-GEAR>
+			    <IN? ,OXYGEN-GEAR ,PLAYER>>
+		       <TELL " (being worn)">)>)>
+	 <COND (<AND <0? .LEVEL>
+		     <SET AV <LOC ,WINNER>>
+		     <FSET? .AV ,VEHBIT>>
+		<TELL " (outside" THE .AV ")">)>
+	 <COND (<NOT .NO-CR> <CRLF>)>
+	 <COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
+		<PRINT-CONT .OBJ .V? .LEVEL>)>>
+
+<ROUTINE DESCRIBE-OBJECTS ("OPTIONAL" (V? <>))
+ <COND (T ;,LIT
+	<COND (<FIRST? ,HERE>
+	       <PRINT-CONT ,HERE <SET V? <OR .V? ,VERBOSE>> -1>)>)>>
+
+<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? ;(F? <>) STR L)
+	 <SET V? <OR .LOOK? ,VERBOSE>>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<SET V? T>
+		;<SET F? T>)>
+	 <COND (<IN? ,HERE ,ROOMS>
+		<TELL "(" D ,HERE ")" CR>)>
+	 <COND (<OR .LOOK? <NOT ,SUPER-BRIEF>> ;.V?
+		;<SET L ,PLAYER-HIDING>
+		<COND (<FSET? <SET L <LOC ,WINNER>> ,VEHBIT>
+		       <TELL "(You're ">
+		       <COND (<FSET? .L ,SURFACEBIT>
+			      <TELL "sitting o">)
+			     (T <TELL "standing i">)>
+		       <TELL "n" THE .L ".)" CR>)>
+		<COND (<AND .V? <APPLY <GETP ,HERE ,P?ACTION> ,M-LOOK>>
+		       <FSET ,HERE ,TOUCHBIT>
+		       <RTRUE>)
+		      (<AND .V? <SET STR <GETP ,HERE ,P?FDESC>>>
+		       <TELL .STR CR>)
+		      (<AND .V? <SET STR <GETP ,HERE ,P?LDESC>>>
+		       <TELL .STR CR>)
+		      (T <APPLY <GETP ,HERE ,P?ACTION> ,M-FLASH>)>
+		<COND (<NOT <==? ,HERE .L>>
+		       <APPLY <GETP .L ,P?ACTION> ,M-LOOK>)>)>
+	 <COND (<GETP ,HERE ,P?CORRIDOR> <CORRIDOR-LOOK>)>
+	 <FSET ,HERE ,TOUCHBIT>
+	 T>
+
+<ROUTINE FAR-AWAY? (L)
+ <COND (<EQUAL? .L ,GLOBAL-OBJECTS> <RTRUE>)
+       (<IN-LAB-AREA? ,HERE> <NOT <IN-LAB-AREA? .L>>)
+       (<IN-DOME? ,HERE> <NOT <IN-DOME? .L>>)
+       (<EQUAL? ,HERE ,SUB ,CRAWL-SPACE> <NOT <EQUAL? .L ,SUB ,CRAWL-SPACE>>)
+       (T <TELL "[Foo! Where is HERE?]" CR>)>>
+
+"Lengths:"
+<CONSTANT UEXIT 1> "Uncondl EXIT:(dir TO rm)		 = rm"
+<CONSTANT NEXIT 2> "Non EXIT:	(dir string)		 = str-ing"
+<CONSTANT FEXIT 3> "Fcnl EXIT:  (dir PER rtn)		 = rou-tine, 0"
+<CONSTANT CEXIT 4> "Condl EXIT:	(dir TO rm IF f)	 = rm, f, str-ing"
+<CONSTANT DEXIT 5> "Door EXIT: (dir TO rm IF dr IS OPEN) = rm, dr, str-ing, 0"
+
+<CONSTANT REXIT 0>
+<CONSTANT NEXITSTR 0>
+<CONSTANT FEXITFCN 0>
+<CONSTANT CEXITFLAG 1>	"GETB"
+<CONSTANT CEXITSTR 1>	"GET"
+<CONSTANT DEXITOBJ 1>	"GETB"
+<CONSTANT DEXITSTR 1>	"GET"
+
+<ROUTINE FIRSTER (OBJ LEVEL)
+	 <COND (<==? .OBJ ,PLAYER>
+		<TELL "You're holding:" CR>)
+	       (<FSET? .OBJ ,PERSON>
+		<TELL D .OBJ " is holding:" CR>)
+	       (<NOT <IN? .OBJ ,ROOMS>>
+		<COND (<G? .LEVEL 0>
+		       <TELL <GET ,INDENTS .LEVEL>>)>
+		<COND (<FSET? .OBJ ,SURFACEBIT>
+		       <TELL "Sitting on" THE .OBJ " is:" CR>)
+		      (ELSE
+		       <COND (<NOT <FSET? .OBJ ,NARTICLEBIT>> <TELL "The ">)>
+		       <TELL D .OBJ " contains:" CR>)>)>>
+
+<ROUTINE GO-NEXT (TBL "AUX" VAL)
+	 <COND (<SET VAL <LKP ,HERE .TBL>>
+		<GOTO .VAL>)>>
+
+<ROUTINE HAR-HAR () <TELL <PICK-ONE ,YUKS> CR>>
+
+<ROUTINE HE-SHE-IT (OBJ "OPTIONAL" (CAP <>) (VERB <>))
+	<COND (<FSET? .OBJ ,PERSON>
+	       <COND (<==? .OBJ ,PLAYER>
+		      <COND (.CAP <TELL "You">) (T <TELL "you">)>)
+		     (<FSET? .OBJ ,FEMALE>
+		      <COND (.CAP <TELL "She">) (T <TELL "she">)>)
+		     (T
+		      <COND (.CAP <TELL "He">) (T <TELL "he">)>)>)
+	      (T
+	       <COND (.CAP <TELL "It">) (T <TELL "it">)>)>
+	<COND (.VERB
+	       <PRINTC 32>
+	       <COND (<EQUAL? .VERB "is">
+		      <COND (<NOT <==? .OBJ ,PLAYER>> <TELL "is">)
+			    (T <TELL "are">)>)
+		     (T
+		      <TELL .VERB>
+		      <COND (<NOT <==? .OBJ ,PLAYER>> <TELL "s">)>)>)>>
+
+<ROUTINE HIM-HER-IT (OBJ "OPTIONAL" (CAP <>) (POSSESS? <>))
+	<COND (<FSET? .OBJ ,PERSON>
+	       <COND (<==? .OBJ ,PLAYER>
+		      <COND (.CAP <TELL "You">) (T <TELL "you">)>
+		      <COND (.POSSESS? <TELL "r">)>)
+		     (<FSET? .OBJ ,FEMALE>
+		      <COND (.CAP <TELL "Her">) (T <TELL "her">)>)
+		     (T
+		      <COND (.POSSESS?
+			     <COND (.CAP <TELL "His">) (T <TELL "his">)>)
+			    (T
+			     <COND (.CAP <TELL "Him">) (T <TELL "him">)>)>)>)
+	      (T
+	       <COND (.CAP <TELL "It">) (T <TELL "it">)>
+	       <COND (.POSSESS? <TELL "s">)>)>
+	<RTRUE>>
+
+<ROUTINE NOT-HOLDING? (OBJ)
+	<COND (<AND <NOT <IN? .OBJ ,WINNER>>
+		    <NOT <IN? <LOC .OBJ> ,WINNER>>>
+	       <HE-SHE-IT ,WINNER T>
+	       <COND (<EQUAL? ,WINNER ,PLAYER> <TELL "'re">)
+		     (T <TELL "'s">)>
+	       <TELL " not holding" THE .OBJ "." CR>)>>	       
+
+<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
+			<RFALSE>)
+		       (<EQUAL? <GET .TBL .CNT> .ITM>
+			<COND (<EQUAL? .CNT .LEN> <RFALSE>)
+			      (T
+			       <RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
+
+<ROUTINE GOTO (RM "OPTIONAL" (V? T) "AUX" L ITARM ILRM)
+	<COND (<IN? ,WINNER .RM>
+	       <HAR-HAR>
+	       <RFALSE>)>
+	<COND (<AND <AIR-ROOM? ,HERE>
+		    <NOT <AIR-ROOM? .RM>>
+		    <BAD-AIR?>>
+	       <RFALSE>)>
+	<COND (<AND <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>
+		    <EQUAL? .RM ,DOME-LAB ,BLY-OFFICE>>
+	       <TELL "You should wait for someone to invite you." CR>
+	       <RFALSE>)>
+	<SET L <LOC ,WINNER>>
+	<COND (<AND ,SUB-IN-DOME
+		    <NOT <FSET? ,AIRLOCK-ROOF ,OPENBIT>>
+		    <THROUGH-ROOF? .RM .L>>
+	       <THIS-IS-IT ,AIRLOCK-ROOF>
+	       <TOO-BAD-BUT ,AIRLOCK-ROOF "closed">
+	       <RFALSE>)>
+	<COND (<EQUAL? ,WINNER ,PLAYER> <TIP-FOLLOWS-YOU .RM>)
+	      (<FSET? ,WINNER ,MUNGBIT>
+	       <TELL "\"I wish I could!\"" CR>
+	       <RFALSE>)
+	      (<OR <EQUAL? .RM ,CRAWL-SPACE>
+		   <AND <EQUAL? .RM ,SUB>
+			<NOT <EQUAL? ,WINNER ,TIP ,SHARON>>>>
+	       <TELL "\"You belong in there, not I!\"" CR>
+	       <RFALSE>)>
+	<COND (<NOT ,SUB-IN-TANK> <OPEN-DOOR .L> <OPEN-DOOR .RM>)
+	      (T
+	       <SET ITARM <IN-TANK-AREA? .RM>>
+	       <SET ILRM <IN-LAB? .RM>>
+	       <COND (<IN-TANK-AREA? .L>
+		      <COND (<NOT .ITARM>
+			     <FSET ,SOUTH-DOORWAY ,OPENBIT>)>
+		      <COND (<NOT .ILRM>
+			     <FSET ,EAST-DOORWAY ,OPENBIT>)>
+		      <COND (<EQUAL? .RM ,LAB-STORAGE>
+			     <FSET ,STORAGE-DOOR ,OPENBIT>)>)
+		     (<IN-LAB? .L>
+		      <COND (.ITARM
+			     <FSET ,SOUTH-DOORWAY ,OPENBIT>)
+			    (T
+			     <COND (<NOT .ILRM>
+				    <FSET ,EAST-DOORWAY ,OPENBIT>)>
+			     <COND (<EQUAL? .RM ,LAB-STORAGE>
+				    <FSET ,STORAGE-DOOR ,OPENBIT>)>)>)
+		     (<EQUAL? .L ,HALLWAY ,OFFICE>
+		      <COND (.ITARM
+			     <FSET ,EAST-DOORWAY ,OPENBIT>
+			     <FSET ,SOUTH-DOORWAY ,OPENBIT>)>
+		      <COND (.ILRM
+			     <FSET ,EAST-DOORWAY ,OPENBIT>)>
+		      <COND (<EQUAL? .RM ,LAB-STORAGE>
+			     <FSET ,STORAGE-DOOR ,OPENBIT>)>)
+		     (<EQUAL? .L ,LAB-STORAGE>
+		      <COND (.ITARM
+			     <FSET ,EAST-DOORWAY ,OPENBIT>
+			     <FSET ,SOUTH-DOORWAY ,OPENBIT>)>
+		      <COND (.ILRM
+			     <FSET ,EAST-DOORWAY ,OPENBIT>)>
+		      <COND (T
+			     <FSET ,STORAGE-DOOR ,OPENBIT>)>)>)>
+	<MOVE ,WINNER .RM>
+	<COND (<EQUAL? ,WINNER ,SHARON>
+	       <COND (<==? .RM ,OFFICE>
+		      <FSET ,SHARON ,NDESCBIT>
+		      <FSET ,FILE-DRAWER ,NDESCBIT>
+		      <FSET ,PAPERS ,NDESCBIT>)
+		     (T
+		      <FCLEAR ,SHARON ,NDESCBIT>
+		      <FCLEAR ,FILE-DRAWER ,NDESCBIT>
+		      <FCLEAR ,PAPERS ,NDESCBIT>)>)>
+	<SETG LIT T>
+	<COND (<==? ,WINNER ,PLAYER>
+	       <SETG HERE .RM>
+	       <COND (.V? <V-FIRST-LOOK>)>
+	       <APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
+	       <APPLY <GETP ,HERE ,P?ACTION> ,M-FLASH>)
+	      ;(T <TELL "\"Okay.\"" CR>)>
+	<RTRUE>>
+
+<ROUTINE OPEN-DOOR (RM "AUX" TBL DR)
+	 <COND (<EQUAL? .RM ,OFFICE ,SUB> <RTRUE>)
+	       (<==? .RM ,AIRLOCK>
+		<FSET ,AIRLOCK-ROOF ,OPENBIT>)
+	       (<AND <SET TBL <GETPT .RM ,P?GLOBAL>>
+		     <SET DR <ZMEMQBIT ,DOORBIT .TBL <- <PTSIZE .TBL> 1>>>>
+		<FSET .DR ,OPENBIT>)>>
+
+<ROUTINE HACK-HACK (STR)
+	 <TELL .STR THE-PRSO <PICK-ONE ,HO-HUM> CR>>
+
+<GLOBAL HO-HUM
+	<PLTABLE
+	 " doesn't help any."
+	 " is a waste of time.">>
+
+<ROUTINE HELD? (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT <LOC .OBJ>> <RFALSE>)
+		       (<EQUAL? <LOC .OBJ> ,ROOMS ,GLOBAL-OBJECTS> <RFALSE>)
+		       (<IN? .OBJ ,WINNER> <RTRUE>)
+		       (T <SET OBJ <LOC .OBJ>>)>>>
+
+<ROUTINE IDROP ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<COND (<DOBJ? PLAYER> <TELL "You">)
+		      (T <TELL D ,PRSO>)>
+		<TELL " wouldn't enjoy that." CR>
+		<RFALSE>)
+	       (<NOT-HOLDING? ,PRSO>
+		<RFALSE>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TOO-BAD-BUT <LOC ,PRSO> "closed">
+		<RFALSE>)
+	       (T
+		<MOVE ,PRSO ,HERE ;<LOC ,WINNER>>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<FCLEAR ,PRSO ,INVISIBLE>
+		<RTRUE>)>>
+
+<GLOBAL INDENTS
+	<PTABLE ""
+	       "  "
+	       "    "
+	       "      "
+	       "        "
+	       "          ">>
+
+<GLOBAL FUMBLE-NUMBER 7>
+<GLOBAL FUMBLE-PROB 8>
+<GLOBAL ITAKE-LOC <>>
+
+<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ TEMP)
+	 #DECL ((VB) <OR ATOM FALSE> (CNT) FIX (OBJ) OBJECT)
+	 <COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<COND (.VB <YOU-CANT "take">)>
+		;<COND (,DEBUG <TELL "[ITAKE:RFALSE]" CR>)>
+		<RFALSE>)
+	       (<AND <G? <SET CNT <CCOUNT ,WINNER>> ,FUMBLE-NUMBER>
+		     <PROB <* .CNT ,FUMBLE-PROB>>>
+		<SET OBJ <FIRST? ,WINNER>>
+		;<SET OBJ <NEXT? .OBJ>>
+		<TOO-BAD-BUT .OBJ>
+		<TELL " slips from ">
+		<HIM-HER-IT ,WINNER <> T>
+		<TELL " arms while ">
+		<HE-SHE-IT ,WINNER <> "is">
+		<TELL " taking"
+			THE-PRSO
+			", and both tumble " <GROUND-DESC> "." CR>
+		<MOVE .OBJ ,HERE>	;<PERFORM ,V?DROP .OBJ>
+		<MOVE ,PRSO ,HERE>
+		;<COND (,DEBUG <TELL "[ITAKE:RFATAL]" CR>)>
+		<RFATAL>)
+	       (T
+		<SETG ITAKE-LOC <>>
+		<SET OBJ <LOC ,PRSO>>
+		<COND (<FSET? .OBJ ,PERSON>
+		       <COND (.VB
+			      <TELL D .OBJ " gives it to ">
+			      <HIM-HER-IT ,WINNER>
+			      <TELL ". ">)
+			     (T <SETG ITAKE-LOC .OBJ>)>)>
+		<MOVE ,PRSO ,WINNER>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<FCLEAR ,PRSO ,INVISIBLE>
+		<COND (<==? ,WINNER ,PLAYER> <SCORE-OBJ ,PRSO>)>
+		;<COND (,DEBUG <TELL "[ITAKE:RTRUE]" CR>)>
+		<RTRUE>)>>
+
+<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET CNT <+ .CNT 1>>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+<ROUTINE CHECK-DOOR (DR)
+	<COND (<NOT <FSET? .DR ,NARTICLEBIT>> <TELL "The ">)>
+	<TELL D .DR " is "
+	      <COND (<FSET? .DR ,OPENBIT> "open") (T "closed")>
+	      "." CR>>
+
+<ROUTINE CHECK-ON-OFF ()
+	<COND (<NOT <FSET? ,PRSO ,NARTICLEBIT>> <TELL "The ">)>
+	<TELL D ,PRSO " is o"
+	      <COND (<FSET? ,PRSO ,ONBIT> "n") (T "ff")>
+	      "." CR>>
+
+<ROUTINE NOT-HERE (OBJ)
+	 <TELL "You can't see" THE .OBJ " here." CR>>
+
+<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (V? <>) (LEVEL 0)
+		     "AUX" Y 1ST? AV (STR <>) (PV? <>) (INV? <>) (VAL <>))
+	#DECL ((OBJ) OBJECT (LEVEL) FIX)
+ <COND (<NOT <SET Y <FIRST? .OBJ>>> <RFALSE>)>
+ <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 %<COND (<GASSIGNED? PREDGEN>'<NOT <FSET? .Y ,INVISIBLE>>)
+			    (T '<OR <NOT <FSET? .Y ,INVISIBLE>>
+				    <AND ,DEBUG <TELL "[invisible] ">>>)>
+		     <NOT <FSET? .Y ,TOUCHBIT>>
+		     <OR ;<APPLY <GETP .Y ,P?DESCFCN> ,M-OBJDESC>
+			 <SET STR <GETP .Y ,P?FDESC>>>>
+		<COND (<OR <NOT <FSET? .Y ,NDESCBIT>>
+			   <AND ,DEBUG <TELL "[ndescbit] ">>>
+		       <SET 1ST? <>>
+		       <SET LEVEL 0>
+		       <COND (.STR
+			      <TELL .STR CR>
+			      <SET STR <>>
+			      <SET VAL T>
+			      <THIS-IS-IT .Y>)>)>
+		<COND (<AND <SEE-INSIDE? .Y>
+			    <NOT <GETP <LOC .Y> ,P?DESCFCN>>
+			    <FIRST? .Y>>
+		       <COND (<PRINT-CONT .Y .V? 0> <SET VAL T>)>
+		       ;<SET VAL <OR <PRINT-CONT .Y .V? 0>
+				    .VAL>>)>)>
+	 <SET Y <NEXT? .Y>>>)>
+ <SET Y <FIRST? .OBJ>>
+ <REPEAT ()
+	 <COND (<NOT .Y>
+		<COND (<AND .PV? .AV <FIRST? .AV>>
+		       <COND (<PRINT-CONT .AV .V? .LEVEL> <SET VAL T>)>
+		       ;<SET VAL <OR <PRINT-CONT .AV .V? .LEVEL>
+				    .VAL>>)>
+		<RETURN .VAL ;<NOT .1ST?>>)
+	       (<EQUAL? .Y .AV ,PLAYER>)
+	       (<AND %<COND (<GASSIGNED? PREDGEN>'<NOT <FSET? .Y ,INVISIBLE>>)
+			    (T '<OR <NOT <FSET? .Y ,INVISIBLE>>
+				    <AND ,DEBUG <TELL "[invisible] ">>>)>
+		     <OR .INV?
+			 <FSET? .Y ,TOUCHBIT>
+			 <NOT <GETP .Y ,P?FDESC>>>>
+		<COND (<OR <NOT <FSET? .Y ,NDESCBIT>>
+			   <AND ,DEBUG <TELL "[ndescbit] ">>>
+		       <COND (.1ST?
+			      <COND (<FIRSTER .OBJ .LEVEL>
+				     <COND (<L? .LEVEL 0> <SET LEVEL 0>)>)>
+			      <SET LEVEL <+ 1 .LEVEL>>
+			      <SET 1ST? <>>)>
+		       <SET VAL T>
+		       <DESCRIBE-OBJECT .Y .V? .LEVEL>)
+		      (<AND <FIRST? .Y> <SEE-INSIDE? .Y>>
+		       <COND (<PRINT-CONT .Y .V? .LEVEL> <SET VAL T>)>
+		       ;<SET VAL <OR <PRINT-CONT .Y .V? .LEVEL>
+				    .VAL>>)>)>
+	 <SET Y <NEXT? .Y>>>>
+
+<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T))
+	 #DECL ((OBJ) OBJECT (F N) <OR FALSE OBJECT>)
+	 <COND (<SET F <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET N <NEXT? .F>>
+			<COND (.1ST? <SET 1ST? <>>)
+			      (ELSE
+			       <TELL ", ">
+			       <COND (<NOT .N> <TELL "and ">)>)>
+			<COND (<FSET? .F ,PERSON>
+			       <TELL D .F>)
+			      (T
+			       <TELL A .F>)>
+			<THIS-IS-IT .F>
+			<SET F .N>
+			<COND (<NOT .F> <RETURN>)>>)>>
+
+<GLOBAL QCONTEXT <>>
+<GLOBAL QCONTEXT-ROOM <>>
+
+<ROUTINE ROOM-CHECK ("AUX" P)
+	 <SET P ,PRSO>
+	 <COND (<AND <==? .P ,DOCKING-TANK> <==? ,HERE ,AIRLOCK>>
+		<SET P ,HERE>)
+	       ;(<AND <==? .P ,TEST-TANK> <IN-TANK-AREA? ,HERE>>
+		<SET P ,HERE>)>
+	 <COND (<IN? .P ,ROOMS>
+		<COND (<EQUAL? .P ,HERE ;,GLOBAL-HERE>
+		       <PERFORM ,PRSA ,GLOBAL-HERE ,PRSI>
+		       <RTRUE>)
+		      (<AND <==? .P ,AIRLOCK>
+			    <GLOBAL-IN? ,FILL-TANK-BUTTON ,HERE>>
+		       <RFALSE>)
+		      (T
+		       <TELL "You aren't in that place!" CR>
+		       <RTRUE>)>)
+	       (<OR <==? .P ,PSEUDO-OBJECT>
+		    <EQUAL? <META-LOC .P>
+			    ,HERE ,GLOBAL-OBJECTS ,LOCAL-GLOBALS>>
+		<RFALSE>)
+	       (<NOT <CORRIDOR-LOOK .P>>
+		<COND (<AND <FSET? .P ,PERSON> <IN? .P ,GLOBAL-OBJECTS>>
+		       <SET P <GET ,CHARACTER-TABLE<GETP .P ,P?CHARACTER>>>
+		       <COND (<NOT <CORRIDOR-LOOK .P>>
+			      <NOT-HERE .P>)>)
+		      (T <NOT-HERE .P>)>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	      <OR <FSET? .OBJ ,TRANSBIT>
+		  <FSET? .OBJ ,OPENBIT>
+		  <FSET? .OBJ ,SURFACEBIT>>>>
+
+<ROUTINE ARENT-TALKING ()
+	<TELL "You aren't talking to anyone!" CR>>
+
+<ROUTINE ALREADY (OBJ "OPTIONAL" (STR <>))
+	<HE-SHE-IT .OBJ T "is">
+	<TELL " already ">
+	<COND (.STR <TELL .STR "!" CR>)>
+	<RTRUE>>
+
+<GLOBAL I-ASSUME "(I assume you mean:">
+
+<ROUTINE NOT-CLEAR-WHOM ()
+	<TELL "It's not clear whom you're talking to." CR>>
+
+<ROUTINE OKAY ("OPTIONAL" (OBJ <>) (STR <>))
+	<COND (<==? ,WINNER ,PLAYER>
+	       <COND (<VERB? THROUGH WALK WALK-TO>
+		      <RTRUE>)>)
+	      (T <TELL "\"">)>
+	<TELL "Okay">
+	<COND (.OBJ
+	       <TELL "," THE .OBJ>
+	       <COND (.STR <TELL " is now " .STR>)>
+	       <COND (<==? .STR "on">	<FSET .OBJ ,ONBIT>)
+		     (<==? .STR "off">	<FCLEAR .OBJ ,ONBIT>)
+		     (<==? .STR "open">	<FSET .OBJ ,OPENBIT>)
+		     (<==? .STR "closed">	<FCLEAR .OBJ ,OPENBIT>)>)>
+	<COND (<OR .STR <NOT .OBJ>>
+	       <TELL ".">
+	       <COND (<NOT <==? ,WINNER ,PLAYER>> <TELL "\"">)>
+	       <CRLF>)>
+	<RTRUE>>
+
+<ROUTINE WONT-HELP-TO-TALK-TO (OBJ)
+	<TELL "It won't help to talk to " A .OBJ "!" CR>>
+
+<ROUTINE TOO-BAD-BUT (OBJ "OPTIONAL" (STR <>))
+	<TELL "Too bad, but" THE .OBJ>
+	<COND (.STR <TELL " is " .STR "." CR>)>
+	<RTRUE>>
+
+"<ROUTINE NOT-ACCESSIBLE? (OBJ)
+ <COND (<EQUAL? <META-LOC .OBJ> ,WINNER ,HERE ,GLOBAL-OBJECTS> <RFALSE>)
+       (<VISIBLE? .OBJ> <RFALSE>)
+       (T <RTRUE>)>>"
+
+<ROUTINE VISIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player SEE object"
+	 <COND (<ACCESSIBLE? .OBJ> <RTRUE>)
+	       (<CORRIDOR-LOOK .OBJ> <RTRUE>)
+	       (<ZERO? .L> <RFALSE>)
+	       (<VISIBLE? .L> <SEE-INSIDE? .L>)>>
+
+<GLOBAL LAST-PSEUDO-LOC <>>
+
+<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? ,LAST-PSEUDO-LOC ,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>)
+	       (<ACCESSIBLE? .L>
+		<OR <FSET? .L ,PERSON> <FSET? .L ,OPENBIT>>)>>
+
+"WEIGHT:  Get sum of SIZEs of supplied object, recursing to the nth level."
+
+<ROUTINE WEIGHT
+	 (OBJ "AUX" CONT (WT 0))
+	 #DECL ((OBJ) OBJECT (CONT) <OR FALSE OBJECT> (WT) FIX)
+	 <COND (<SET CONT <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET WT <+ .WT <WEIGHT .CONT>>>
+			<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
+	 <+ .WT <GETP .OBJ ,P?SIZE>>>
+
+<GLOBAL WHO-CARES
+	<PLTABLE " doesn't appear interested"
+		" doesn't care"
+		" lets out a loud yawn"
+		" seems to be growing impatient">>
+
+<GLOBAL YUKS
+	<PLTABLE "That's ridiculous!"
+		"That's wacky!"
+		"What a fruitcake!"
+		"What a screwball!"
+		"You're off your rocker!"
+		"You're crazy in the head!"
+		"You can't be serious!">>
+""
+"SUBTITLE REAL VERBS"
+
+<ROUTINE V-ADJUST () <YOU-CANT ;"adjust">>
+
+<ROUTINE PRE-SAIM ()
+	<PERFORM ,V?AIM ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SAIM () <V-FOO>>
+
+<ROUTINE PRE-AIM ()
+ <COND (<IOBJ? LEFT RIGHT>
+	<COND (<DOBJ? DART BAZOOKA>
+	       <TELL "You can aim that only at an enemy." CR>)>)
+       (<IOBJ? GLOBAL-SNARK>
+	<COND (<0? ,SNARK-ATTACK-COUNT>
+	       <TELL "You can't see the Snark!" CR>)>)
+       (<IOBJ? THORPE-SUB GLOBAL-THORPE SNARK>
+	<RFALSE>)
+       (<DOBJ? JOYSTICK>
+	<PERFORM ,V?MOVE-DIR ,PRSO ,PRSI>
+	<RTRUE>)
+       (T <TELL
+"You can aim something only to the left (port) or right (starboard),
+or at an enemy." CR>)>>
+
+<ROUTINE V-AIM () <YOU-CANT ;"aim">>
+
+<ROUTINE PRE-SANALYZE ()
+	<PERFORM ,V?ANALYZE ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SANALYZE () <V-FOO>>
+
+<ROUTINE V-ANALYZE ()
+ <COND (<FSET? ,PRSO ,PERSON> <TELL "How?" CR>)
+       (<IN? ,COMPUTESTOR ,HERE>
+	<PERFORM ,V?ASK-ABOUT ,COMPUTESTOR ,PRSO>
+	<RTRUE>)
+       (<FSET? ,PRSO ,ON?BIT> <CHECK-ON-OFF>)
+       (<FSET? ,PRSO ,DOORBIT> <CHECK-DOOR ,PRSO>)
+       (T <TELL "It looks normal." CR> ;<YOU-CANT "check">)>>
+
+<ROUTINE V-ANSWER ()
+	 <TELL "Nobody seems to be waiting for an answer." CR>
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RTRUE>>
+
+<ROUTINE V-REPLY ()
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<WAITING-FOR-YOU-TO-SPEAK>)
+	       (T <YOU-CANT ;"answer">)>> 
+
+<ROUTINE WAITING-FOR-YOU-TO-SPEAK ()
+	<HE-SHE-IT ,PRSO T "seem">
+	<TELL " to be waiting for you to speak." CR>>
+
+<ROUTINE V-ARM ()
+ <COND (<DOBJ? LOCAL-SUB GLOBAL-SUB>
+	<TELL "How?" CR>)
+       (T <YOU-CANT ;"arm">)>>
+
+<ROUTINE PRE-ARREST ()
+	 <COND (<OR <NOT <FSET? ,PRSO ,PERSON>>
+		    <AND ,PRSI <NOT <IOBJ? GLOBAL-SABOTAGE>>>>
+		<TELL "What a detective! \"Quick! Arrest that " D ,PRSO>
+		<COND (,PRSI <TELL " for " D ,PRSI>)>
+		<TELL " before ">
+		<HE-SHE-IT ,PRSO <> "escape">
+		<TELL "!\"" CR>)
+	       (<AND <NOT ,DOME-AIR-CRIME> <NOT ,GREENUP-GUILT>>
+		<TELL "For what? You have no evidence of a crime yet." CR>)
+	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		<SETG PRSO <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>
+		<RFALSE>)>>
+
+<ROUTINE V-ARREST ()
+ <COND (<DOBJ? GREENUP GLOBAL-GREENUP>
+	<COND (<OR ,GREENUP-ESCAPE ,GREENUP-TRAPPED ,GREENUP-CUFFED>
+	       <TELL "Once is enough!" CR>)
+	      (<NOT ,GREENUP-GUILT>
+	       <TELL "You don't have any evidence." CR>)
+	      (<OR <NOT ,SUB-IN-DOME> ,AIRLOCK-FULL>
+	       <TOO-BAD-BUT ,PRSO "too far away">
+	       ;<TELL "He's too far away!" CR>)
+	      (T
+	       ;<FCLEAR ,STATION-MONITOR ,NDESCBIT>
+	       <COND (<DOBJ? GLOBAL-GREENUP>
+		      <TELL "You barely issue this order when">)
+		     (T <TELL "Greenup turns and runs away. Then">)>
+	       <REMOVE ,GREENUP>
+	       <FSET ,GREENUP ,MUNGBIT>
+	       <TELL
+" a crew member reports seeing
+Greenup running behind the dormitory. \"He's going to try to
+escape in the " D ,SUB ", " FN "!\"|
+" D ,BLY " adds: \"">
+	       <COND (<NOT <EQUAL? ,HERE ,BLY-OFFICE>>
+		      <TELL "Come to my office, " FN "! ">)>
+	       <TELL
+"We can see him on the "
+D ,STATION-MONITOR "! The " D ,CONTROLS-OFFICE " is ">
+	       <COND (<NOT <EQUAL? ,HERE ,BLY-OFFICE>>
+		      <TELL "t">)>
+	       <TELL "here, too!\"" CR>
+	       <MOVE ,BLY ,BLY-OFFICE>
+	       <SETG WINNER ,PLAYER>
+	       <ENABLE <QUEUE I-GREENUP-ESCAPE 3>>
+	       <COND (<OR <EQUAL? ,HERE ,BLY-OFFICE> <GOTO ,BLY-OFFICE>>
+		      <SETG GREENUP-ESCAPE 1>
+		      <SCORE-OBJ ,GREENUP>)>
+	       <RTRUE>)>)
+       (T <TELL
+"You don't have enough evidence to arrest" THE-PRSO "." CR>)>>
+
+<ROUTINE PRE-ASK () <PRE-ASK-ABOUT>>
+
+<ROUTINE V-ASK ()
+ <COND (<AND ,P-CONT <FSET? ,PRSO ,PERSON>>
+	<SETG WINNER ,PRSO>
+	<SETG QCONTEXT ,PRSO>
+	<SETG QCONTEXT-ROOM ,HERE>)
+       (T <V-ASK-ABOUT>)>>
+
+<ROUTINE PRE-ASK-ABOUT ("AUX" L)
+	<SET L <META-LOC ,PRSO>>
+	<COND (<AND <EQUAL? .L ,CENTER-OF-LAB>
+		    <DOBJ? REMOTE-PERSON>
+		    <NOT <FSET? ,MICROPHONE ,ONBIT>>>
+	       <THIS-IS-IT ,MICROPHONE>
+	       <TELL
+"She can't hear you while your " D ,MICROPHONE " is off." CR>
+	       <RTRUE>)
+	      (<AND <DOBJ? COMPUTESTOR>
+		    <NOT <FSET? ,COMPUTESTOR ,ONBIT>>>
+	       <THIS-IS-IT ,COMPUTESTOR>
+	       <TELL "The " D ,COMPUTESTOR " is off!" CR>
+	       <RTRUE>)
+	      (<EQUAL? .L ,HERE> <RFALSE>)
+	      (<GLOBAL-IN? ,PRSO ,HERE> <RFALSE>)>
+	<TELL "Sorry, but" THE-PRSO>
+	<NOT-HERE-PERSON ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-ASK-ABOUT ()
+	 <COND (<OR <==? ,PRSO ,PLAYER> <NOT <FSET? ,PRSO ,PERSON>>>
+		<WONT-HELP-TO-TALK-TO ,PRSO>
+		<RFATAL>)
+	       (<VERB? ASK>
+		<TELL "\"Ask me about something in particular, "FN".\"" CR>)
+	       (T
+		<TELL D ,PRSO " doesn't seem to know about that." CR>)>>
+
+<ROUTINE PRE-ASK-CONTEXT-ABOUT ("AUX" P)
+ <COND (<QCONTEXT-GOOD?>
+	<PERFORM ,V?ASK-ABOUT ,QCONTEXT ,PRSO>
+	<RTRUE>)
+       (<AND <IN? ,COMPUTESTOR ,HERE> <FSET? ,COMPUTESTOR ,ONBIT>>
+	<PERFORM ,V?ASK-ABOUT ,COMPUTESTOR ,PRSO>
+	<RTRUE>)
+       (<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	<PERFORM ,V?ASK-ABOUT .P ,PRSO>
+	<RTRUE>)>>
+
+<ROUTINE V-ASK-CONTEXT-ABOUT () <ARENT-TALKING>>
+
+<ROUTINE PRE-ASK-FOR () <PRE-ASK-ABOUT>>
+
+<ROUTINE V-ASK-FOR ()
+	 <COND (<AND <FSET? ,PRSO ,PERSON> <NOT <==? ,PRSO ,PLAYER>>>
+		<TELL D ,PRSO>
+		<COND (<IN? ,PRSI ,PRSO>
+		       <TELL " hands you" THE-PRSI "." CR>
+		       <MOVE ,PRSI ,WINNER>)
+		      (T <TELL " doesn't have that." CR>)>)
+	       (T <HAR-HAR>)>>
+
+<ROUTINE PRE-ASK-CONTEXT-FOR ("AUX" P)
+ <COND (<QCONTEXT-GOOD?>
+	<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 () <ARENT-TALKING>>
+
+<ROUTINE V-ATTACK () <IKILL "attack">>
+
+<ROUTINE PRE-BRING ()
+ <COND (<NOT <EQUAL? ,PRSI <> ,PLAYER ,GLOBAL-HERE>>
+	<SETG P-WON <>>
+	<TELL "(Sorry, but I don't understand.)" CR>)>>
+
+<ROUTINE V-BRING () <V-TAKE> ;<YOU-CANT ;"bring">>
+
+<ROUTINE PRE-SBRING ()
+	<PERFORM ,V?BRING ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SBRING () <V-FOO>>
+
+<ROUTINE V-BRUSH ()
+	<TELL
+"\"Cleanliness is next to Godliness,\" but here it's
+next to Impossible." CR>>
+
+"<ROUTINE V-CALL-LOSE ()
+	<TELL '(I couldn't find a verb in that sentence!)' CR>>"
+
+<ROUTINE V-$CALL ("AUX" PER ;(MOT <>))
+	 <SET PER ,PRSO>
+	 <COND (<==? .PER ,PLAYER>
+		<WONT-HELP-TO-TALK-TO .PER>)
+	       (<FSET? .PER ,PERSON>
+		<COND (<NOT <==? ,PRSO ,REMOTE-PERSON>>
+		       <SET PER <GET ,CHARACTER-TABLE
+				     <GETP ,PRSO ,P?CHARACTER>>>)>
+		;<COND (<IN-MOTION? .PER> <SET MOT T>)>
+		<COND (<OR <==? <META-LOC .PER> ,HERE> <CORRIDOR-LOOK .PER>>
+		       <COND (<GRAB-ATTENTION .PER>
+			      ;<FSET .PER ,TOUCHBIT>
+			      <TELL D .PER>
+			      <TELL " is listening." CR>)
+			     (T
+			      <RTRUE>
+			      ;<TELL " ignores you." CR>)>)
+		      (T <NOT-HERE .PER>
+			 ;<TELL "You don't see " D .PER " here." CR>)>)
+	       (T <SETG P-WON <>> <MISSING-VERB>)>>
+
+"<GLOBAL PERSON-ON-INTERCOM <>>
+<GLOBAL PERSON-ON-PHONE <>>
+<GLOBAL PERSON-ON-SONARPHONE <>>"
+
+<ROUTINE PRE-PHONE ("AUX" P PP)
+ <COND (<AND ,PRSI <IOBJ? MICROPHONE MICROPHONE-DOME>>
+	<PERFORM ,PRSA ,PRSO ,VIDEOPHONE>
+	<RTRUE>)
+       (<AND ,PRSI <IOBJ? INTERCOM VIDEOPHONE SONARPHONE>>
+	<COND (<EQUAL? ,REMOTE-PERSON-ON ,PRSI>
+	       <TELL
+"You're still on the line to " D ,REMOTE-PERSON "." CR>
+	       <RTRUE>)
+	      (<FSET? ,PRSI ,MUNGBIT>
+	       <TELL "The " D ,PRSI "'s conked out!" CR>
+	       <RTRUE>)
+	      (<IOBJ? SONARPHONE> <RFALSE>)
+	      (<NOT <GLOBAL-IN? ,PRSI ,HERE>>
+	       <TELL "There's no " D ,PRSI " here." CR>
+	       <RTRUE>)
+	      (T <RFALSE>)>)
+       (<AND ,PRSI ;<NOT <IOBJ? TELEPHONE>>>
+	<COND ;(<IOBJ? GLOBAL-VIDEOPHONE>
+	       <TELL "There's no " D ,VIDEOPHONE " within reach." CR>)
+	      (T
+	       <TOO-BAD-BUT ,PRSI "not wired for phoning">)>)
+       (<AND <FSET? ,PRSO ,PERSON> <IN? ,PRSO ,HERE>>
+	<BITE-YOU>)
+       (<OR <DOBJ? PLAYER>
+	    ;<AND <DOBJ? GLOBAL-TIP> <VISIBLE? ,TIP>>>
+	<HAR-HAR>)
+       (<AND <FSET? ,PRSO ,PERSON>
+	     <SET P <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>
+	     <NOT <FAR-AWAY? <META-LOC .P>>>>
+	<COND (<OR <FSET? .P ,BUSYBIT> <FSET? .P ,MUNGBIT>>
+	       <HE-SHE-IT .P T>
+	       <TELL "'s busy right now." CR>
+	       <RTRUE>)>
+	<MOVE-HERE-NOT-SUB .P>
+	<SAID-TO .P>
+	<TELL "\"Right here, " FN ",\" ">
+	<HE-SHE-IT .P>
+	<COND (<==? ,HERE <LOC .P>>
+	       <TELL " replies. \"What would you like me to do?\"" CR>)
+	      (T <TELL " shouts. \"Come outside to talk!\"" CR>)>)
+       (<NOT ,PRSI>
+	<COND ;(<GLOBAL-IN? ,TELEPHONE ,HERE>
+	       <PERFORM ,PRSA ,PRSO ,TELEPHONE>
+	       <RTRUE>)
+	      (<GLOBAL-IN? ,VIDEOPHONE ,HERE>
+	       <PERFORM ,PRSA ,PRSO ,VIDEOPHONE>
+	       <RTRUE>)
+	      (<IN? ,SONARPHONE ,HERE>
+	       <PERFORM ,PRSA ,PRSO ,SONARPHONE>
+	       <RTRUE>)
+	      (<GLOBAL-IN? ,INTERCOM ,HERE>
+	       <PERFORM ,PRSA ,PRSO ,INTERCOM>
+	       <RTRUE>)
+	      (T <TELL "There's nothing to phone with here." CR>)>)>>
+
+<ROUTINE V-PHONE ("AUX" PER)
+ <COND (<AND <FSET? ,PRSO ,PERSON>
+	     <SET PER <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>
+	     <OR <==? <META-LOC .PER> ,HERE> <CORRIDOR-LOOK .PER>>>
+	<PERFORM ,V?$CALL ,PRSO>
+	<RTRUE>)
+       (<NOT <==? -1 ,P-NUMBER>> ;<DOBJ? INTNUM>
+	<TELL "There's no point in calling that number." CR>)
+       ;(<DOBJ? TELEPHONE>
+	<TELL "You didn't say whom to call." CR>)
+       (<DOBJ? AQUADOME DOME-LAB YOUR-LABORATORY>
+	<TELL "There's no answer." CR>)
+       (<NOT <FSET? ,PRSO ,PERSON>>
+	<TOO-BAD-BUT ,PRSO>
+	<TELL " has no phone." CR>)
+       (<EQUAL? <META-LOC ,PRSO> ,HERE>
+	<BITE-YOU>)
+       (T <TELL "There's no sense in phoning " D ,PRSO "." CR>)>>
+
+;<ROUTINE V-CALL-FOR ()
+ <COND (<NOT <GLOBAL-IN? ,TELEPHONE ,HERE> ;<PHONE-IN? ,HERE>>
+	<TELL "There's no phone here." CR>)
+       (<NOT ,PRSI> <YOU-CANT ;"call">)
+       (T
+	<TOO-BAD-BUT ,PRSO>
+	<TELL " can't offer any " D ,PRSI "." CR>)>>
+
+<ROUTINE V-BOARD ()
+	<COND (<OR <IN? ,PRSO ,ROOMS> <FSET? ,PRSO ,DOORBIT>>
+	       <V-THROUGH>)
+	      (T <YOU-CANT "get in">)>>
+
+<ROUTINE V-CLIMB-ON () <YOU-CANT "climb onto">>
+
+<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
+	 #DECL ((DIR) FIX (OBJ) <OR ATOM FALSE> (X) TABLE)
+	 <COND (<GETPT ,HERE .DIR>
+		<DO-WALK .DIR>
+		<RTRUE>)
+	       (<NOT .OBJ>
+		<YOU-CANT "go">)
+	       (<AND .OBJ
+		     <ZMEMQ ,W?WALL
+			    <SET X <GETPT ,PRSO ,P?SYNONYM>>
+			    <- </ <PTSIZE .X> 2> 1>>>
+		<TELL "Climbing the walls is no help." CR>)
+	       (ELSE <HAR-HAR>)>>
+
+<ROUTINE V-CLIMB-DOWN () <V-CLIMB-UP ,P?DOWN>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<NOT <OR <FSET? ,PRSO ,CONTBIT>
+			 <FSET? ,PRSO ,DOORBIT>
+			 <FSET? ,PRSO ,WINDOWBIT>>>
+		<YOU-CANT ;"close">)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <FSET? ,PRSO ,WINDOWBIT>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <COND (<FSET? ,PRSO ,MUNGBIT>
+			      <TELL
+"It won't stay closed. The latch is broken." CR>)
+			     (T
+			      <OKAY ,PRSO "closed">)>)
+		      (T <ALREADY ,PRSO "closed">)>)
+	       (<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
+		     <NOT <0? <GETP ,PRSO ,P?CAPACITY>>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <OKAY ,PRSO "closed">)
+		      (T <ALREADY ,PRSO "closed">)>)
+	       (T <YOU-CANT ;"close">)>>
+
+"<ROUTINE V-COME ('AUX' CN CHR COR PCOR L)
+	 <COND (<==? ,PRSO ,PLAYER>
+		<NOT-CLEAR-WHOM>)
+	       (<==? ,HERE
+		     <SET L <META-LOC
+			     <SET CHR <GET ,CHARACTER-TABLE
+				       <SET CN <GETP ,PRSO ,P?CHARACTER>>>>>>>
+		<TELL 'You're in the same place as ' D ,PRSO '!' CR>)
+	       (<OR <NOT .L> ;<==? .L ,LIMBO>>
+		<TELL D ,PRSO ' has left the grounds.' 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>>
+		<V-WALK>)
+	       (T
+		<TELL 'You seem to have lost track of ' D ,PRSO '.' CR>)>>"
+
+<ROUTINE PRE-COME-WITH ()
+	<PERFORM ,V?WALK-TO ,PRSI>
+	<RTRUE>>
+
+<ROUTINE V-COME-WITH () <V-FOO>>
+
+<ROUTINE PRE-COMPARE ()
+ <COND (<AND <NOT ,PRSI>
+	     <==? 1 <GET ,P-PRSO 0>>>
+	<TELL "Use the command: COMPARE IT TO " D ,SOMETHING "." CR>
+	<RTRUE>)
+       (<==? 2 <GET ,P-PRSO 0>>
+	<PUT ,P-PRSO 0 1>
+	<PERFORM ,PRSA <GET ,P-PRSO 1> <GET ,P-PRSO 2>>
+	<RTRUE>)>>
+
+<ROUTINE V-COMPARE ()
+ <COND (<==? ,PRSO ,PRSI> <TELL "They're the same thing!" CR>)
+       (T <TELL "They're not a bit alike." CR>)>>
+
+<ROUTINE V-CONFRONT ()
+	 <COND (<==? ,PRSO ,PLAYER>
+		<ARENT-TALKING>)
+	       (<NOT <FSET? ,PRSO ,PERSON>>
+		<TELL
+"That ought to put a scare into" THE-PRSO "." CR>)
+	       (T
+		<TELL D ,PRSO <PICK-ONE ,WHO-CARES> "." CR>)>>
+
+<ROUTINE V-CUT () <YOU-CANT ;"cut">>
+
+<ROUTINE V-MUNG ()
+	 <COND (<AND <FSET? ,PRSO ,DOORBIT> <NOT ,PRSI>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL
+"You'd fly through the open door if you tried." CR>)
+		      (T <TELL "Why don't you just open it instead?" CR>)>)
+	       (<NOT <FSET? ,PRSO ,PERSON>>
+		<YOU-CANT ;"destroy">)
+	       (<NOT ,PRSI>
+		<TELL "Trying to destroy " D ,PRSO
+		      " with your bare hands is suicidal." CR>)
+	       (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<TELL "You can't destroy" THE-PRSO " with" THE-PRSI "." CR>)
+	       (T <YOU-CANT ;"destroy">)>>
+
+<ROUTINE V-DIAGNOSE ()
+ <COND (,PRSO <YOU-CANT ;"diagnose">)
+       ;(<AND ,DOME-AIR-BAD? <TROUBLE-BREATHING?>> <RTRUE>)
+       (<FSET? ,ARM ,MUNGBIT>
+	<TELL "Your arm is seriously gashed." CR>)
+       (T <TELL "You're wide awake and in good health." CR>)>>
+
+<ROUTINE PRE-DISCUSS ()
+	<COND (<NOT ,PRSI> <SETG PRSI ,PLAYER>)>
+	<PERFORM ,V?TELL-ABOUT ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-DISCUSS () <V-FOO>>
+
+<ROUTINE V-DIVE ()
+ <COND (<AND ,SUB-IN-TANK <WHY-NEED ,DEPTH-CONTROL ,TEST-TANK>>
+	<RTRUE>)
+       (<AND ,SUB-IN-DOME <WHY-NEED ,DEPTH-CONTROL ,AIRLOCK>>
+	<RTRUE>)
+       (<OR <EQUAL? ,PRSO <> ,ROOMS>
+	    <DOBJ? GLOBAL-WATER BAY SEA>>
+	<COND (<OR <0? ,SUB-DEPTH> <NOT ,PRSO>>
+	       <DO-WALK ,P?DOWN>
+	       <RTRUE>)
+	      (T <TELL "You're already " D ,UNDERWATER "." CR>)>)
+       (<FSET? ,PRSO ,UNITBIT>
+	<PERFORM ,V?SET ,DEPTH-CONTROL ,PRSO>
+	<RTRUE>)
+       (T
+	<TELL
+"You can do this by setting the " D ,DEPTH-CONTROL " to the desired depth
+of your dive." CR>)>>
+
+"<ROUTINE V-DIVE-BY ()
+ <COND (<FSET? ,PRSO ,UNITBIT>
+	<SETG P-NUMBER <+ ,P-NUMBER ,SUB-DEPTH>>
+	<PERFORM ,V?SET ,DEPTH-CONTROL ,PRSO>
+	<RTRUE>)
+       (T <V-DIVE>)>>"
+
+<ROUTINE V-DOCK ()
+	<COND (<DOBJ? ROOMS GLOBAL-SUB LOCAL-SUB>
+	       <TELL "You can't dock the " D ,SUB " now." CR>)
+	      (T <YOU-CANT ;"dock">)>>
+
+<ROUTINE V-DRINK () <YOU-CANT ;"drink">>
+
+<ROUTINE V-DROP ()
+	 <COND ;(<ROOM-CHECK> <RTRUE>)
+	       ;(<EQUAL? ,PRSO ,GLOBAL-HERE <META-LOC ,WINNER>>
+		<DO-WALK ,P?OUT>
+		<RTRUE>)
+	       (<IDROP>
+		<OKAY ,PRSO <GROUND-DESC>>)>>
+
+<ROUTINE GROUND-DESC ()
+	 <COND ;(<OUTSIDE? ,HERE> "ground.")
+	       (<EQUAL? ,HERE ,SUB> "on the deck")
+	       (T "on the floor")>>
+
+<ROUTINE V-EAT () <YOU-CANT ;"eat">>
+
+<ROUTINE V-EMPTY ()
+	 <COND (<NOT ,PRSI>
+		<PERFORM ,V?EMPTY ,PRSO ,GLOBAL-WATER>
+		<RTRUE>)
+	       (T <TELL
+"You may know how to do that, but this program doesn't." CR>)>>
+
+<ROUTINE V-ENTER ()
+	<DO-WALK ,P?IN>
+	<RTRUE>>
+
+<ROUTINE PRE-THROUGH ()		;"WALK WITH => FOLLOW"
+ <COND (<FSET? ,PRSO ,PERSON> <PERFORM ,V?FOLLOW ,PRSO> <RTRUE>)>>
+
+<ROUTINE V-THROUGH ("OPTIONAL" (OBJ <>) "AUX" RM DIR)
+	#DECL ((OBJ) <OR OBJECT FALSE>)
+	<COND (<IN? ,PRSO ,ROOMS>
+	       <PERFORM ,V?WALK-TO ,PRSO>
+	       <RTRUE>)
+	      (<AND <FSET? ,PRSO ,DOORBIT> <FSET? ,PRSO ,OPENBIT>>
+	       <COND (<AND <SET RM <DOOR-ROOM ,HERE ,PRSO>>
+			   <GOTO .RM>>
+		      <OKAY>)
+		     (T <TELL
+"Sorry, but the \"" D ,PRSO "\" must be somewhere else." CR>)>)
+	      (<AND <NOT .OBJ> <NOT <FSET? ,PRSO ,TAKEBIT>>>
+	       <HE-SHE-IT ,WINNER T "bang">
+	       <TELL
+" into it trying to go through" THE-PRSO "." CR>)
+	      (.OBJ <TELL "You can't do that!" CR>)
+	      (<IN? ,PRSO ,WINNER>
+	       <TELL "You must think you're a contortionist!" CR>)
+	      (ELSE <HAR-HAR>)>>
+
+<ROUTINE PRE-EXAMINE ("AUX" VAL)
+	 <COND (<ROOM-CHECK> <RTRUE>)
+	       (<==? ,P-ADVERB ,W?CAREFULLY>
+		<COND (<NOT <SET VAL <INT-WAIT 3>>>
+		       <TELL
+"You never got to finish looking over" THE-PRSO "." CR>)
+		      (<==? .VAL ,M-FATAL> <RTRUE>)>)>>
+
+<ROUTINE V-EXAMINE ("AUX" TBL)
+	 <COND (<DOBJ? INTDIR>
+		<TELL "If you want to see what's there, go there!" CR>)
+	       (<DOBJ? OXYGEN-GEAR-OTHER OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY>
+		<NOTHING-SPECIAL>)
+	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		<NOT-HERE ,PRSO>
+		<RTRUE>)
+	       (<NOT <EQUAL? <META-LOC ,PRSO> ,HERE ,LOCAL-GLOBALS>>
+		<TOO-BAD-BUT ,PRSO "too far away">)
+	       (<SET TBL <GETP ,PRSO ,P?TEXT>>
+		<TELL .TBL CR>)
+	       (<OR <FSET? ,PRSO ,CONTBIT>
+		    ;<FSET? ,PRSO ,DOORBIT>
+		    ;<FSET? ,PRSO ,WINDOWBIT>>
+		<V-LOOK-INSIDE>)
+	       (<FSET? ,PRSO ,ON?BIT> <CHECK-ON-OFF>)
+	       (<FSET? ,PRSO ,DOORBIT> <CHECK-DOOR ,PRSO>)
+	       (T
+		<NOTHING-SPECIAL>)>>
+
+<ROUTINE NOTHING-SPECIAL ()
+	<TELL "There's nothing special about" THE-PRSO "." CR>>
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TBL)
+	 #DECL ((OBJ1 OBJ2) OBJECT (TBL) <OR FALSE TABLE>)
+	 <COND (<SET TBL <GETPT .OBJ2 ,P?GLOBAL>>
+		<ZMEMQB .OBJ1 .TBL <- <PTSIZE .TBL> 1>>)>>
+
+<ROUTINE PRE-FILL ()
+ <COND (<AND ,PRSI <NOT <EQUAL? ,PRSI ,GLOBAL-WATER>>>
+	<HAR-HAR>)>>
+
+<ROUTINE V-FILL ()
+	 <COND ;(<NOT ,PRSI>
+		<PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>
+		<RTRUE>)
+	       (T <TELL
+"You may know how to do that, but this program doesn't." CR>)>>
+
+;<GLOBAL PRON-HIM "him">
+;<GLOBAL PRON-HE "he">
+;<GLOBAL PRON-HER "her">
+;<GLOBAL PRON-SHE "she">
+
+<ROUTINE PRE-FIND ("AUX" CHR)
+	 <COND (<DOBJ? PLAYER> <RFALSE>)>
+	 <COND (<IN? ,PRSO ,ROOMS>
+		<COND (<==? ,PRSO ,HERE>
+		       <ALREADY ,PLAYER "here">)
+		      (<FSET? ,PRSO ,TOUCHBIT>
+		       <TELL "You should know - you've been there!" CR>)
+		      (T
+		       <TELL <GETP ,LOCAL-SUB ,P?TEXT> CR>;"Use your maps!")>)
+	       (<FSET? ,PRSO ,PERSON>
+		<COND (<AND <==? ,PRSO ,REMOTE-PERSON> ,REMOTE-PERSON-REMLOC>
+		       <HE-SHE-IT ,REMOTE-PERSON T>
+		       <TELL "'s in the " D ,REMOTE-PERSON-REMLOC "." CR>
+		       <RTRUE>)>
+		<SET CHR <GETP ,PRSO ,P?CHARACTER>>
+		<COND (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		       <SETG PRSO <GET ,CHARACTER-TABLE .CHR>>)>
+		<COND (<OR <NOT <LOC ,PRSO>> <FAR-AWAY? <LOC ,PRSO>>>
+		       <COND (<OR <DOBJ? BLY> <IS-CREW? ,PRSO>>
+			      <HE-SHE-IT ,PRSO T>
+			      <TELL "'s probably at the " D ,AQUADOME "." CR>
+			      <RTRUE>)
+			     (T
+			      <TELL "Who knows where ">
+			      <HE-SHE-IT ,PRSO>
+			      <TELL " is now?" CR>
+			      <RTRUE>)>)>
+		<COND (<==? <META-LOC ,WINNER> <META-LOC ,PRSO>>
+		       <COND (<==? ,WINNER ,PLAYER>
+			      <BITE-YOU>)
+			     (T
+			      <TELL "\"Ahem...\"" CR>)>
+		       <RTRUE>)>
+		<COND (<NOT <==? ,WINNER ,PLAYER>>
+		       <TELL "\"I think ">
+		       <HE-SHE-IT ,PRSO>)
+		      (T <HE-SHE-IT ,PRSO T>)>
+		<TELL "'s in" THE <META-LOC ,PRSO> ".">
+		<COND (<NOT <==? ,WINNER ,PLAYER>> <TELL "\"">)>
+		<CRLF>)>>
+
+<ROUTINE BITE-YOU ()
+	<TELL "If ">
+	<HE-SHE-IT ,PRSO>
+	<TELL " were any closer, ">
+	<HE-SHE-IT ,PRSO>
+	<TELL "'d bite you!" CR>>
+
+<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
+	 <COND (<NOT <==? ,PLAYER ,WINNER>> <TELL "\"">)>
+	 <COND (<==? ,PRSO ,PLAYER>
+		<TELL "You're right here, ">
+		<COND (<FSET? .L ,SURFACEBIT> <TELL "on">)
+		      (T <TELL "in">)>
+		<TELL THE .L ".">)
+	       (<IN? ,PRSO ,PLAYER>
+		<TELL "You have it.">)
+	       (<IN? ,PRSO ,WINNER>
+		<TELL "\"I have it, " FN ".\"">)
+	       (<OR <AND <EQUAL? .L ,LOCAL-GLOBALS> <GLOBAL-IN? ,PRSO ,HERE>>
+		    <IN? ,PRSO ,HERE>
+		    <==? ,PRSO ,PSEUDO-OBJECT>>
+		<TELL "It's right here.">)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS ,LOCAL-GLOBALS>
+		<TELL "It's around somewhere.">)
+	       (<FAR-AWAY? <META-LOC ,PRSO>>
+		<TELL "It's far away from here.">)
+	       (<FSET? .L ,PERSON>
+		<TELL D .L " has it.">)
+	       (<FSET? .L ,SURFACEBIT>
+		<TELL "It's on" THE .L ".">)
+	       (<OR <FSET? .L ,CONTBIT>
+		    <IN? .L ,ROOMS>>
+		<TELL "It's in" THE .L ".">)
+	       (ELSE
+		<TELL "It's nowhere in particular.">)>
+	<COND (<NOT <==? ,PLAYER ,WINNER>> <TELL "\"">)>
+	<CRLF>>
+
+<ROUTINE V-FIND-WITH () <V-FIND>>
+
+<ROUTINE V-FIX () <MORE-SPECIFIC>>
+
+<ROUTINE V-FOLLOW ("AUX" CN CHR COR PCOR L)
+	 <COND (<==? ,PRSO ,PLAYER>
+		<NOT-CLEAR-WHOM>)
+	       (<NOT <FSET? ,PRSO ,PERSON>>
+		<TELL
+"How tragic to see a formerly great inventor stalking " A ,PRSO "!" CR>)
+	       (<==? ,HERE
+		     <SET L <META-LOC
+			     <SET CHR <GET ,CHARACTER-TABLE
+				       <SET CN <GETP ,PRSO ,P?CHARACTER>>>>>>>
+		<TELL "You're in the same place as " D ,PRSO "!" CR>)
+	       (<OR <NOT .L> ;<==? .L ,LIMBO>>
+		<TELL D ,PRSO " has left the grounds." CR>)
+	       (T
+		<PERFORM ,V?WALK-TO .CHR>
+		<RTRUE>)>>
+
+<ROUTINE V-FOO ()
+	 <TELL "[Foo!! This is a bug!!]" CR>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<AND <NOT <HELD? ,PRSO>> <NOT <EQUAL? ,PRSI ,PLAYER>>>
+		<TELL "That's easy for you to say, since ">
+		<HE-SHE-IT ,WINNER>
+		<TELL " do">
+		<COND (<NOT <==? ,WINNER ,PLAYER>> <TELL "es">)> 
+		<TELL "n't even have it." CR>)>>
+
+<ROUTINE V-GIVE ()
+	 <COND (<NOT ,PRSI> <YOU-CANT ;"give">)
+	       (<NOT <FSET? ,PRSI ,PERSON>>
+		<TELL "You can't give " A ,PRSO " to " A ,PRSI "!" CR>)
+	       (<IOBJ? PLAYER>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (T
+		<MOVE ,PRSO ,PRSI>
+		<TELL D ,PRSI " accepts the offer." CR>)>>
+
+<ROUTINE PRE-SGIVE ()
+	<PERFORM ,V?GIVE ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SGIVE () <V-FOO>>
+
+<ROUTINE PRE-GOODBYE () <PRE-HELLO>>
+
+<ROUTINE V-GOODBYE ()
+ <COND (<AND ,REMOTE-PERSON
+	     <EQUAL? ,PRSO <> ,REMOTE-PERSON>>
+	<PHONE-OFF>
+	<TELL "\"I hope to see you soon, " FN ".\"" CR>)
+       (<AND <NOT <FSET? ,AIR-SUPPLY-SYSTEM ,MUNGBIT>>
+	     <FINE-SEQUENCE>>
+	<RTRUE>)
+       (T <V-HELLO <>>)>>
+
+<ROUTINE PRE-HANGUP ()
+ <COND (<DOBJ? MICROPHONE MICROPHONE-DOME>
+	<PERFORM ,PRSA ,VIDEOPHONE>
+	<RTRUE>)
+       (<DOBJ? INTERCOM VIDEOPHONE SONARPHONE>
+	<COND (<EQUAL? ,REMOTE-PERSON-ON ,PRSO>
+	       <TELL
+"You're still on the line to " D ,REMOTE-PERSON "." CR>)
+	      (<FSET? ,PRSO ,MUNGBIT>
+	       <TELL "The " D ,PRSO "'s conked out!" CR>)
+	      (<DOBJ? SONARPHONE> <RFALSE>)
+	      (<NOT <GLOBAL-IN? ,PRSO ,HERE>>
+	       <TELL "There's no " D ,PRSO " here." CR>)
+	      (T <RFALSE>)>
+	<RTRUE>)
+       (<EQUAL? ,HERE ,CENTER-OF-DOME>
+	<PERFORM ,V?PUT ,PRSO ,HOOK>
+	<RTRUE>)
+       (<NOT <DOBJ? ROOMS ;TELEPHONE>>
+	<TOO-BAD-BUT ,PRSO "not wired for phoning">)>>
+
+<ROUTINE V-HANGUP ()
+ <COND (,REMOTE-PERSON
+	<PERFORM ,V?GOODBYE>
+	<RTRUE>)
+       (T <TELL "You're not talking to anyone!" CR>)>>
+
+<ROUTINE PRE-HELLO ("AUX" P)
+ <COND (,PRSO <RFALSE>)
+       (<QCONTEXT-GOOD?>
+	<PERFORM ,PRSA ,QCONTEXT>
+	<RTRUE>)
+       (<AND <EQUAL? ,WINNER ,PLAYER>
+	     <SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	     <NOT <FSET? .P ,INVISIBLE>>>
+	<PERFORM ,PRSA .P>
+	<RTRUE>)
+       (T <NOT-CLEAR-WHOM>)>>
+
+<ROUTINE V-HELLO ("OPTIONAL" (HELL T))
+ <COND (<FSET? ,PRSO ,PERSON>
+	<COND (.HELL <TELL D ,PRSO " nods at you." CR>)
+	      (<READY-FOR-SNARK?>
+	       <TELL "\"Good hunting!\"" CR>)
+	      (T <TELL "\"Don't tell me you're leaving already!\"" CR>)>)
+       (,PRSO
+	<TELL "Only nuts say \""
+		<COND (.HELL "Hello") (T "Good-bye")>
+		"\" to " A ,PRSO "." CR>)
+       (T <NOT-CLEAR-WHOM>)>>
+
+<ROUTINE V-HELP ()
+ <COND (<NOT ,PRSO>
+	<SETG P-WON <>>
+	<TELL ,HELP-TEXT CR>)
+       (<DOBJ? PLAYER> <PERFORM ,V?GIVE ,HINT ,PLAYER> <RTRUE>)
+       (T <MORE-SPECIFIC>)>>
+
+<GLOBAL HELP-TEXT
+"(You'll find plenty of help in your SEASTALKER package.|
+If you're really stuck, you can order an InvisiClues (TM) Hint Booklet
+either with the form in your package or from your dealer.)">
+
+;<ROUTINE V-KICK () <HACK-HACK "Kicking">>
+
+<ROUTINE V-KILL () <IKILL "kill">>
+
+<ROUTINE IKILL (STR)
+	 <COND (<NOT ,PRSO> <TELL "There's nothing here to " .STR "." CR>)
+	       (<AND <NOT ,PRSI> <FSET? ,PRSO ,WEAPONBIT>>
+		<TELL "You didn't say what to " .STR " at." CR>)
+	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		<TELL "You can't do it from here." CR>)
+	       (T
+		<TELL
+"You think it over. It's not worth the trouble." CR>)>>
+
+<ROUTINE V-KISS ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<FACE-RED "kisse">)
+	       (T <TELL "What a (ahem!) strange idea!" CR>)>>
+
+<ROUTINE V-KNOCK ()
+ <COND (<OR <FSET? ,PRSO ,DOORBIT>
+	    <FSET? ,PRSO ,WINDOWBIT>>
+	<COND (<INHABITED? <DOOR-ROOM ,HERE ,PRSO>>
+	       <TELL "Someone shouts \"Come in!\"" CR>)
+	      (T <TELL "There's no answer." CR>)>)
+       (ELSE
+	<TELL "Why knock on " A ,PRSO "?" CR>)>>
+
+<ROUTINE V-LAUNCH () <YOU-CANT ;"launch">>
+
+<ROUTINE V-STAND ("AUX" P)
+	 <COND (<FSET? <LOC ,WINNER> ,SURFACEBIT>
+		<MOVE ,WINNER ,HERE>
+		;<SETG PLAYER-HIDING <>>
+		<TELL "You're on your own feet again." CR>)
+	       (T
+		<ALREADY ,PLAYER "standing up">)>>
+
+<ROUTINE V-LEAVE ()
+ <COND (<AND ,PRSO <NOT <==? <LOC ,WINNER> ,PRSO>>>
+	<TELL "You're not in" THE-PRSO "!" CR>
+	<RFATAL>)
+       (T <DO-WALK ,P?OUT> <RTRUE>)>>
+
+<ROUTINE V-LEVEL () <YOU-CANT ;"level">>
+
+<ROUTINE V-LISTEN ()
+ <COND (<FSET? ,PRSO ,PERSON>
+	<WAITING-FOR-YOU-TO-SPEAK>
+	<RTRUE>)
+       (T
+	<TOO-BAD-BUT ,PRSO>
+	<TELL " makes no sound." CR>)>>
+
+<ROUTINE V-LOCK () <TELL "That won't help." CR>>
+
+<ROUTINE V-LOOK ()
+	 <COND (<DESCRIBE-ROOM T>
+		<DESCRIBE-OBJECTS T>)>>
+
+<ROUTINE V-LOOK-BEHIND ()
+ <COND (<AND <FSET? ,PRSO ,DOORBIT> <NOT <FSET? ,PRSO ,OPENBIT>>>
+	<THIS-IS-IT ,PRSO>
+	<TOO-BAD-BUT ,PRSO "closed">)
+       (T <TELL "There's nothing behind" THE-PRSO "." CR>)>>
+
+<ROUTINE V-LOOK-DOWN ()
+ <COND (<==? ,PRSO ,ROOMS>
+	<TELL "There's nothing interesting " <GROUND-DESC> "." CR>)
+       (T <HAR-HAR>)>>
+
+<ROUTINE PRE-LOOK-INSIDE () <ROOM-CHECK>>
+
+<ROUTINE V-LOOK-INSIDE ("OPTIONAL" (DIR ,P?IN) "AUX" RM)
+	 <COND (<DOBJ? GLOBAL-HERE>
+		<PERFORM ,V?LOOK>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,RLANDBIT>
+		<ROOM-PEEK ,PRSO>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <COND (<SET RM <DOOR-ROOM ,HERE ,PRSO>>
+			      <ROOM-PEEK .RM>)
+			     (T <TELL
+"The " D ,PRSO " is open, but you can't tell what's beyond it." CR>)>)
+		      (T
+		       <THIS-IS-IT ,PRSO>
+		       <TOO-BAD-BUT ,PRSO "closed">)>)
+	       (<FSET? ,PRSO ,WINDOWBIT>
+		<COND ;(<SET RM <WINDOW-ROOM ,HERE ,PRSO>>
+		       <ROOM-PEEK .RM>)
+		      (T <TELL
+"You can't tell what's beyond" THE-PRSO "." CR>)>)
+	       (<OR <FSET? ,PRSO ,CONTBIT> <FSET? ,PRSO ,SURFACEBIT>>
+		<COND (<SEE-INSIDE? ,PRSO>
+		       <COND (<AND <FIRST? ,PRSO> <PRINT-CONT ,PRSO>>
+			      <RTRUE>)
+			     (<FSET? ,PRSO ,SURFACEBIT>
+			      <TELL
+"There's nothing on" THE-PRSO "." CR>)
+			     (T
+			      <TOO-BAD-BUT ,PRSO "empty">)>)
+		      (T
+		       <TOO-BAD-BUT ,PRSO "closed">)>)
+	       (<FSET? ,PRSO ,PERSON>
+		<TELL "You forgot to bring your X-ray glasses." CR>)
+	       (<==? .DIR ,P?IN> <YOU-CANT "look inside">)
+	       (<==? .DIR ,P?OUT> <YOU-CANT "look outside">)>>
+
+<ROUTINE ROOM-PEEK (RM "AUX" OLD-HERE TXT)
+	 <SET OLD-HERE ,HERE>
+	 <COND (<SEE-INTO? .RM>
+		<SETG HERE .RM>
+		<TELL "You take a quick peek into" THE .RM ":" CR>
+		<COND (<DESCRIBE-OBJECTS T> T)
+		      (<SET TXT <GETP .RM ,P?LDESC>>
+		       <TELL .TXT CR>)
+		      (T
+		       <TELL "You can't see anything interesting." CR>)>
+		<SETG HERE .OLD-HERE>)>>
+
+<ROUTINE SEE-INTO? (THERE "AUX" P L TBL O)
+	 #DECL ((THERE O) OBJECT (P L) FIX)
+	 <SET P 0>
+	 <REPEAT ()
+		 <COND (<0? <SET P <NEXTP ,HERE .P>>>
+			<TELL "You can't seem to find that room." CR>
+			<RFALSE>)
+		       (<EQUAL? .P ,P?IN ,P?OUT> <RTRUE>)
+		       (<NOT <L? .P ,LOW-DIRECTION>>
+			<SET TBL <GETPT ,HERE .P>>
+			<SET L <PTSIZE .TBL>>
+			<COND (<AND <==? .L ,UEXIT>
+				    <==? <GETB .TBL ,REXIT> .THERE>>
+			       <RTRUE>)
+			      (<AND <==? .L ,DEXIT>
+				    <==? <GETB .TBL ,REXIT> .THERE>>
+			       <COND (<FSET? <GETB .TBL ,DEXITOBJ> ,OPENBIT>
+				      <RTRUE>)
+				     (T
+				      <TELL
+"The door to that room is closed." CR>
+				      <RFALSE>)>)
+			      (<AND <==? .L ,CEXIT>
+				    <==? <GETB .TBL ,REXIT> .THERE>>
+			       <COND (<VALUE <GETB .TBL ,CEXITFLAG>>
+				      <RTRUE>)
+				     (T
+				      <TELL
+"You can't seem to find that room." CR>
+				      <RFALSE>)>)>)>>>
+
+<ROUTINE V-LOOK-ON ()
+	 <COND (<FSET? ,PRSO ,SURFACEBIT>
+		<V-LOOK-INSIDE>)
+	       (T <TELL "There's no good surface on" THE-PRSO "." CR>)>>
+
+<ROUTINE V-LOOK-OUTSIDE () <V-LOOK-INSIDE ,P?OUT>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL "Nope. Nothing hiding under " D ,PRSO "." CR>)
+	       (<EQUAL? <LOC ,PRSO> ,HERE ,LOCAL-GLOBALS ;,GLOBAL-OBJECTS>
+		<TELL "There's nothing there but dust." CR>)
+	       (T
+		<TELL "That's not a bit useful." CR>)>>
+
+<ROUTINE V-LOOK-UP ()
+	 <COND (,PRSI
+		<TELL "There's no information in"THE-PRSI" about that." CR>)
+	       (<DOBJ? ROOMS>
+		<COND ;(<OUTSIDE? ,HERE>
+		       <TELL "The sun is shining with all its might." CR>)
+		      (T
+		       <TELL "You can see the ceiling." CR>)>)
+	       (<IN? ,NOTEBOOK ,WINNER>
+		<PERFORM ,V?LOOK-UP ,PRSO ,NOTEBOOK>
+		<RTRUE>)
+	       (T
+		<TELL "Huh? Without the " D ,NOTEBOOK "?" CR>
+		<RTRUE>)>>
+
+<ROUTINE V-MAKE ()
+	<TELL
+"\"Eat, drink, and make merry, for tomorrow we shall die!\"" CR>>
+
+<ROUTINE PRE-MOVE ()
+	 <COND (<HELD? ,PRSO>
+		<TELL "Juggling isn't one of your talents." CR>)>>
+
+<ROUTINE V-MOVE ()
+	 <COND (<FSET? ,PRSO ,TAKEBIT>
+		<TELL
+"Moving" THE-PRSO " reveals nothing." CR>)
+	       (T <YOU-CANT ;"move">)>>
+
+<ROUTINE PRE-MOVE-DIR ()
+ <COND (<IOBJ? INTDIR OFF SLOW MEDIUM FAST> <RFALSE>)
+       (T
+	<SETG P-WON <>>
+	<TELL "(Sorry, but I don't understand that sentence.)" CR>)>>
+
+<ROUTINE V-MOVE-DIR ()
+	<TELL "You can't move" THE-PRSO " in any particular direction." CR>>
+
+<ROUTINE V-OPEN ("AUX" F STR)
+	 <COND (<NOT <OR <FSET? ,PRSO ,CONTBIT>
+			 <FSET? ,PRSO ,DOORBIT>
+			 <FSET? ,PRSO ,WINDOWBIT>>>
+		<YOU-CANT ;"open">)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <FSET? ,PRSO ,WINDOWBIT>
+		    <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <ALREADY ,PRSO "open">)
+		      (<FSET? ,PRSO ,LOCKED>
+		       <TOO-BAD-BUT ,PRSO "locked">)
+		      (<FSET? ,PRSO ,MUNGBIT>
+		       <TELL
+"You can't open it. The latch is broken." CR>)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <COND (<OR <FSET? ,PRSO ,DOORBIT>
+				  <FSET? ,PRSO ,WINDOWBIT>
+				  <NOT <FIRST? ,PRSO>>
+				  <FSET? ,PRSO ,TRANSBIT>>
+			      <OKAY ,PRSO "open">)
+			     (<AND <SET F <FIRST? ,PRSO>>
+				   <NOT <NEXT? .F>>
+				   <SET STR <GETP .F ,P?FDESC>>>
+			      <TELL "You open" THE-PRSO "."CR>
+			      <TELL .STR CR>)
+			     (T
+			      <TELL "You open" THE-PRSO
+				    " and see ">
+			      <PRINT-CONTENTS ,PRSO>
+			      <TELL "." CR>)>)>)
+	       (T <YOU-CANT ;"open">)>>
+
+<ROUTINE PRE-OPEN-WITH ()
+ <COND (<NOT-HOLDING? ,PRSI> <RTRUE>)>>
+
+<ROUTINE V-OPEN-WITH () <PERFORM ,V?OPEN ,PRSO> <RTRUE>>
+
+<ROUTINE V-PICK () <YOU-CANT ;"pick">>
+
+<ROUTINE V-PLAY ()
+	 <SETG P-WON <>>
+	 <TELL
+"(Speaking of playing, you ought to try Infocom's other products.)" CR>>
+
+<ROUTINE V-PUSH () <HACK-HACK "Pushing">>
+
+<ROUTINE PRE-PUT ()
+	 <COND (<DOBJ? OXYGEN-GEAR-OTHER OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY>
+		<YOU-CANT "pick up">)
+	       (<AND <DOBJ? SONARSCOPE> <IOBJ? AUTOMATIC MANUAL>>
+		<RFALSE>)
+	       (<AND <DOBJ? THROTTLE> <IOBJ? OFF SLOW MEDIUM FAST>>
+		<RFALSE>)
+	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		<NOT-HERE ,PRSO>)
+	       (<IOBJ?	GLOBAL-SUB CLAW FLOOR
+			GLOBAL-HERE GLOBAL-WATER TEST-TANK>
+		<RFALSE>)
+	       (<IOBJ? OXYGEN-GEAR-OTHER OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY>
+		<HAR-HAR>)
+	       (<IN? ,PRSI ,GLOBAL-OBJECTS>
+		<NOT-HERE ,PRSI>)
+	       (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<YOU-CANT "pick up">)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<AND <NOT <FSET? ,PRSI ,OPENBIT>>
+		     <NOT <FSET? ,PRSI ,VEHBIT>>>
+		<COND (<OPENABLE? ,PRSI>
+		       <TOO-BAD-BUT ,PRSI "closed">)
+		      (T <TELL "You can't open" THE-PRSI "." CR>)>
+		<RTRUE>)>
+	 <COND (<NOT ,PRSI> <YOU-CANT ;"put">)
+	       (<NOT <FSET? ,PRSI ,OPENBIT>>
+		<TOO-BAD-BUT ,PRSI "closed">)
+	       (<==? ,PRSI ,PRSO>
+		<HAR-HAR>)
+	       (<IN? ,PRSO ,PRSI>
+		<TOO-BAD-BUT ,PRSO>
+		<TELL " is already "
+			<COND (<FSET? ,PRSI ,SURFACEBIT> "on") (T "in")>
+			THE-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>
+		<TELL "Okay." CR>)>>
+
+<ROUTINE V-PUT-UNDER ()
+         <TELL "There's not enough room." CR>>
+
+<ROUTINE V-RAISE () <YOU-CANT ;"raise">>
+
+<GLOBAL LIT <>>
+
+<ROUTINE PRE-READ ("AUX" VAL)
+	 <COND (<NOT ,LIT> <TELL "It's impossible to read in the dark." CR>)
+	       (<DOBJ? BADGE-GLOBAL BADGE-GLOBAL-2 BADGE-GLOBAL-3> <RFALSE>)
+	       (<DOBJ? OXYGEN-GEAR-OTHER OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY>
+		<YOU-CANT>)
+	       (<IN? ,PRSO ,GLOBAL-OBJECTS>
+		<NOT-HERE ,PRSO>)
+	       (<AND ,PRSI
+		     <NOT <FSET? ,PRSI ,TRANSBIT>>
+		     <==? -1 ,P-NUMBER>>	;"? INTNUM?"
+		<TELL
+"You must have a swell method of looking through" THE-PRSI "." CR>)
+	       (<==? ,P-ADVERB ,W?CAREFULLY>
+		<COND (<NOT <SET VAL <INT-WAIT 3>>>
+		       <TELL
+"You never got to finish reading" THE-PRSO "." CR>)
+		      (<==? .VAL ,M-FATAL> <RTRUE>)>)>>
+
+<ROUTINE V-READ ()
+	 <COND (<NOT <FSET? ,PRSO ,READBIT>> <YOU-CANT ;"read">)
+	       (ELSE <TELL <GETP ,PRSO ,P?TEXT> CR>)>>
+
+<ROUTINE V-RING () <TELL "\"DING-DONG!\"" CR>>
+
+<ROUTINE V-RISE ()
+ <COND (<DOBJ? BAY>
+	<PERFORM ,V?SURFACE>
+	<RTRUE>)
+       (T
+	<DO-WALK ,P?UP>
+	<RTRUE>)>>
+
+<ROUTINE V-RUB () <HACK-HACK "Fiddling with">>
+
+<ROUTINE PRE-RUB-OVER ()
+	 <PERFORM ,V?RUB ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-RUB-OVER () <V-FOO>>
+
+<ROUTINE V-SAY ("AUX" P)
+ <COND (<QCONTEXT-GOOD?>
+	<PERFORM ,V?TELL ,QCONTEXT>
+	<RTRUE>)
+       (<AND <IN? ,COMPUTESTOR ,HERE> <FSET? ,COMPUTESTOR ,ONBIT>>
+	<PERFORM ,V?TELL ,COMPUTESTOR>
+	<RTRUE>)
+       (<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	<PERFORM ,V?TELL .P>
+	<RTRUE>)
+       (T
+	<SETG QUOTE-FLAG <>>
+	<SETG P-CONT <>>
+	<TELL
+"(To talk to someone, type their name, then a comma, then what you want
+them to do.)" CR>)>>
+
+<ROUTINE PRE-SAY-INTO ()
+ <COND (<DOBJ? INTERCOM> <RFALSE>)
+       (<NOT <FSET? ,PRSO ,ONBIT>>
+	<TELL "Sorry, but" THE-PRSO " isn't on!" CR>)>>
+
+<ROUTINE V-SAY-INTO () <YOU-CANT "talk into">>
+
+<ROUTINE V-SCREW () <YOU-CANT ;"screw">>
+
+<ROUTINE V-SCREW-IN () <YOU-CANT "screw in">>
+
+<ROUTINE PRE-SEARCH () <ROOM-CHECK>>
+
+<ROUTINE V-SEARCH ("AUX" OBJ)
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<COND (<SET OBJ <FIRST? ,PRSO>>
+		       <THIS-IS-IT .OBJ>
+		       <TELL "You find " A .OBJ "." CR>)
+		      (T <TELL "You don't find anything interesting." CR>)>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		       <TELL "You'll have to open it first." CR>)
+		      (T
+		       <PERFORM ,V?LOOK-INSIDE ,PRSO>
+		       <RTRUE>)>)
+	       (T <TELL "You find nothing unusual." CR>)>>
+
+<ROUTINE PRE-SEARCH-FOR ("AUX" OBJ)
+ <COND (<ROOM-CHECK> <RTRUE>)
+       (<AND <IN? ,PRSI ,PLAYER>
+	     ;<GETP ,PRSI ,P?GENERIC>
+	     <SET OBJ <APPLY <GETP ,PRSI ,P?GENERIC> ,PRSI>>>
+	<SETG PRSI .OBJ>)>
+ <COND (<DOBJ? ;GLOBAL-ROOM GLOBAL-HERE>
+	<SETG PRSO ,HERE>)>
+ <RFALSE>>
+
+<ROUTINE V-SEARCH-FOR ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<COND (<IN? ,PRSI ,PRSO>
+		       <TELL "Indeed, " D ,PRSO " has" THE-PRSI "." CR>)
+		      (<IOBJ? OXYGEN-GEAR-OTHER
+			      OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY>
+		       <HAR-HAR>)
+		      (<IN? ,PRSI ,GLOBAL-OBJECTS>
+		       <TELL D ,PRSO " doesn't have " A ,PRSI "." CR>)
+		      (<NOT ,PRSI> <TELL D ,PRSO " doesn't have that." CR>)
+		      (T
+		       <TELL D ,PRSO " doesn't have" THE-PRSI " concealed on "
+			     <COND (<FSET? ,PRSO ,FEMALE> "her")
+				   (T "his")>
+			      " person." CR>)>)
+	       (<AND <FSET? ,PRSO ,CONTBIT> <NOT <FSET? ,PRSO ,OPENBIT>>>
+		<TELL "You'll have to open" THE-PRSO " first." CR>)
+	       (<IN? ,PRSI ,PRSO>
+		<TELL "How observant you are! There ">
+		<HE-SHE-IT ,PRSI <> "is">
+		<TELL "!" CR>)
+	       (<NOT ,PRSI> <YOU-CANT ;"search">)
+	       (T <TELL "You don't find" THE-PRSI " there." CR>)>>
+
+<ROUTINE V-SEND () <YOU-CANT ;"send">>
+
+<ROUTINE PRE-SSEND ()
+	<PERFORM ,V?SEND ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SSEND () <V-FOO>>
+
+"<ROUTINE V-SEND-FOR () <V-SEND>>"
+
+<ROUTINE V-SEND-OUT () <V-SEND>>
+
+<ROUTINE PRE-SEND-TO ()
+ <COND (<OR <EQUAL? ,PRSI <> ,PLAYER ,GLOBAL-HERE>
+	    <EQUAL? ,PRSI ,GLOBAL-SUB ,AQUADOME>>
+	<RFALSE>)
+       (<FSET? ,PRSO ,PERSON>
+	<PERFORM ,V?$CALL ,PRSO>
+	<COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
+	       <PERFORM ,V?WALK-TO ,PRSI>)>
+	<RTRUE>)
+       (T
+	<SETG P-WON <>>
+	<TELL "(Sorry, but I don't understand.)" CR>)>>
+
+<ROUTINE V-SEND-TO () <V-SEND>>
+
+<ROUTINE PRE-SET ()
+ <COND (<OR <EQUAL? ,PRSI ,FAST ,MEDIUM ,SLOW>
+	    <EQUAL? ,PRSI ,OFF ,AUTOMATIC ,MANUAL>
+	    <EQUAL? ,PRSI ,AQUADOME>
+	    <AND <NOT <==? -1 ,P-NUMBER>>
+		 <OR <EQUAL? ,PRSI <> ,ROOMS>
+		     <AND ,PRSI <FSET? ,PRSI ,UNITBIT>>>>>
+	<RFALSE>)
+       (<IOBJ? LEFT RIGHT>
+	<PERFORM ,V?AIM ,PRSO ,PRSI>
+	<RTRUE>)
+       (<==? ,PRSO ,PRSI>	;"e.g. TURN VALVE ON OXYGEN GEAR"
+	<PERFORM ,V?TURN ,PRSO>
+	<RTRUE>)
+       (T
+	<TELL
+"You can set something only to a number with units, or to " D ,MEDIUM ", "
+D ,AUTOMATIC ", and so on." CR>)>>
+
+<ROUTINE V-SET () <YOU-CANT ;"set">>
+
+<ROUTINE PRE-SHOOT ()
+ <COND (<AND <NOT ,PRSI> <FSET? ,PRSO ,WEAPONBIT>>
+	<SETG PRSI ,PRSO>
+	<SETG PRSO <GET ,OBJ-AIMED-AT <COND (<DOBJ? DART> 1) (T 0)>>>)>
+ <RFALSE>>
+
+<ROUTINE V-SHOOT ()
+ <COND (<NOT <FIND-FLAG ,WINNER ,WEAPONBIT>>
+	<TELL "You don't have anything to shoot with." CR>)
+       (T <IKILL "shoot">)>>
+
+<ROUTINE PRE-SSHOOT ()
+	<PERFORM ,V?SHOOT ,PRSI ,PRSO>
+	<RTRUE>>
+
+<ROUTINE V-SSHOOT () <V-FOO>>
+
+<ROUTINE V-SHOW ()
+	 <COND (<==? ,PRSO ,PLAYER>
+		<SETG WINNER ,PLAYER>
+		<COND (<VISIBLE? ,PRSO> <PERFORM ,V?EXAMINE ,PRSI>)
+		      (T <PERFORM ,V?FIND ,PRSI>)>
+		<RTRUE>)
+	       (<NOT <FSET? ,PRSO ,PERSON>>
+		<TELL "Don't wait for" THE-PRSO " to applaud." CR>)
+	       (T
+		<TELL D ,PRSO <PICK-ONE ,WHO-CARES> "." CR>)>>
+
+<ROUTINE PRE-SSHOW ()
+	 <SETG P-MERGED T>
+	 <PERFORM ,V?SHOW ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SSHOW () <RTRUE>>
+
+<ROUTINE V-SIT () <TELL "That won't help your mission!" CR>>
+
+<ROUTINE V-SLAP ()
+ <COND (<AND ,PRSI <NOT-HOLDING? ,PRSI>>
+	<RTRUE>)
+       (<DOBJ? PLAYER>
+	<TELL
+"That sounds like a sign that you could wear on your back." CR>)
+       (<FSET? ,PRSO ,PERSON>
+	<COND (<FSET? ,PRSO ,MUNGBIT>
+	       <TELL D ,PRSO "'s eyes are full of hate, and ">
+	       <HE-SHE-IT ,PRSO>
+	       <TELL " says something unprintable." CR>)
+	      (T <FACE-RED "slap">)>)
+       (T <TELL
+"You should see Mick. He breaks boards with the edge of his hand!" CR>)>>
+
+<ROUTINE FACE-RED (STR)
+	<TELL
+D ,PRSO " " .STR "s you right back. Wow, is your face red!" CR>>
+
+<ROUTINE V-SMELL ()
+	<HE-SHE-IT ,PRSO T "smell">
+	<TELL " just like " A ,PRSO "!" CR>>
+
+<ROUTINE V-SMILE ()
+ <COND (<AND <FSET? ,PRSO ,PERSON> <NOT <IN? ,PRSO ,GLOBAL-OBJECTS>>>
+	<TELL D ,PRSO " smiles back at you." CR>)
+       (T <HAR-HAR>)>>
+
+<ROUTINE V-SMOKE () <YOU-CANT ;"burn">>
+
+<ROUTINE V-STOP ()
+ <COND (<AND <DOBJ? ROOMS> <EQUAL? ,HERE ,SUB>>
+	<PERFORM ,V?STOP ,LOCAL-SUB>
+	<RTRUE>)
+       (<AND ,PRSO <FSET? ,PRSO ,ON?BIT>>
+	<PERFORM ,V?LAMP-OFF ,PRSO>
+	<RTRUE>)
+       (T <YOU-CANT ;"stop">)>>
+
+<ROUTINE V-SURFACE ()
+ <COND (<AND ,PRSO <NOT <DOBJ? LOCAL-SUB>>> <YOU-CANT ;"surface">)
+       (T
+	<SETG P-NUMBER 0>
+	<PERFORM ,V?SET ,DEPTH-CONTROL ,METER>
+	<RTRUE>)>>
+
+<ROUTINE V-SWIM ()
+	 <TELL "You can't swim ">
+	 <COND (,PRSO
+	        <TELL "in" THE-PRSO ", " FN "." CR>)
+	       (T
+		<TELL <GROUND-DESC> "." CR>)>>
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<DOBJ? OXYGEN-GEAR-OTHER OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY
+		       BADGE-GLOBAL BADGE-GLOBAL-2 BADGE-GLOBAL-3>
+		<YOU-CANT>)
+	       (,PRSI
+		<COND (<AND <DOBJ? GLOBAL-SUB LOCAL-SUB SEA-WALL GLOBAL-SNARK
+				ORE-NODULES TRAITOR>
+			    <IOBJ? GLOBAL-WATER BAY SEA GLOBAL-HERE UNDERWATER
+				DOCKING-TANK TEST-TANK AIRLOCK AQUADOME GAME>>
+		       <MORE-SPECIFIC>)
+		      (<NOT <==? ,PRSI <LOC ,PRSO>>>
+		       <COND (<NOT <FSET? ,PRSI ,PERSON>>
+			      <HE-SHE-IT ,PRSO T>
+			      <TELL "'s not "
+				    <COND (<IOBJ? HOOK> "on") (T "in")>
+				    " that!" CR>)
+			     (T
+			      <HE-SHE-IT ,PRSI T>
+			      <TELL " doesn't have ">
+			      <HIM-HER-IT ,PRSO>
+			      <TELL "!" CR>)>)
+		      (T
+		       <SETG PRSI <>>
+		       <RFALSE>)>)
+	       (<DOBJ? YOU TEST-TANK PLAYER-NAME>
+		<RFALSE>)
+	       (<DOBJ? GREENUP GLOBAL-GREENUP>
+		<COND (<NOT <FSET? ,GREENUP ,MUNGBIT>>
+		       <PERFORM ,V?ARREST ,PRSO>
+		       <RTRUE>)>)
+	       (<EQUAL? <META-LOC ,PRSO> ,GLOBAL-OBJECTS>
+		<COND (<NOT <FSET? ,PRSO ,PERSON>>
+		       <NOT-HERE ,PRSO>)>)
+	       (<IN? ,PRSO ,WINNER>
+		<ALREADY ,PLAYER "holding it">)
+	       (<AND <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<YOU-CANT "reach">)
+	       (<==? ,PRSO <LOC ,WINNER>>
+		<TELL "You're in it, nitwit!" CR>)>>
+
+<ROUTINE V-TAKE ()
+	 <COND (<==? <ITAKE> T>
+		<HE-SHE-IT ,WINNER T "is">
+		<TELL " now holding" THE-PRSO "." CR>)>>
+
+<ROUTINE V-TAKE-TO ()	;"Parser should have ITAKEn PRSO."
+	<PERFORM ,V?WALK-TO ,PRSI>
+	<RTRUE>>
+
+<ROUTINE V-TAKE-WITH ()
+	<TELL "You can't remove" THE-PRSO " with" THE-PRSI "!" CR>>
+
+<ROUTINE V-DISEMBARK ()
+	 <COND (<==? <LOC ,PRSO> ,WINNER>
+		<TELL
+"You don't need to take out" THE-PRSO " to use it." CR>)
+	       (<DOBJ? ROOMS HERE GLOBAL-HERE GLOBAL-WATER BAY SEA>
+		<DO-WALK ,P?OUT>
+		<RTRUE>)
+	       (<NOT <==? <LOC ,WINNER> ,PRSO>>
+		<TELL "You're not in" THE-PRSO "!" CR>
+		<RFATAL>)
+	       (T
+		<OWN-FEET>)>>
+
+<ROUTINE OWN-FEET ()
+	 <MOVE ,WINNER ,HERE>
+	 <TELL "You're on your own feet again." CR>>
+
+;<ROUTINE V-HOLD-UP ()
+	 <TELL "That doesn't seem to help at all." CR>>
+
+<ROUTINE V-TELL ("AUX" P)
+	 <COND (<==? ,PRSO ,PLAYER>
+		<COND (<NOT <==? ,WINNER ,PLAYER>>
+		       <SET P ,WINNER>
+		       <SETG WINNER ,PLAYER>
+		       <PERFORM ,V?ASK .P>
+		       <RTRUE>)
+		      (,QCONTEXT
+		       <SETG QCONTEXT <>>
+		       <COND (,P-CONT <SETG WINNER ,PLAYER>)
+			     (T <TELL
+"Okay, you're not talking to anyone else." CR>)>)
+		      (T
+		       <WONT-HELP-TO-TALK-TO ,PLAYER>
+		       <SETG QUOTE-FLAG <>>
+		       <SETG P-CONT <>>
+		       <RFATAL>)>)
+	       (<OR <FSET? ,PRSO ,PERSON> <DOBJ? COMPUTESTOR>>
+		<COND (,P-CONT
+		       <SETG WINNER ,PRSO>)
+		      (T
+		       <TELL D ,PRSO " is listening." CR>)>
+		<SETG QCONTEXT ,PRSO>
+		<SETG QCONTEXT-ROOM ,HERE>)
+	       (T
+		<YOU-CANT "talk to">
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<RFATAL>)>>
+
+<ROUTINE PRE-TELL-ABOUT ("AUX" P)
+ <COND (<AND <QCONTEXT-GOOD?>
+	     <DOBJ? PLAYER>>
+	<PERFORM ,V?ASK-ABOUT ,QCONTEXT ,PRSI>
+	<RTRUE>)
+       (<AND <DOBJ? PLAYER>
+	     <SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	     <NOT <FSET? .P ,INVISIBLE>>>
+	<PERFORM ,V?ASK-ABOUT .P ,PRSI>
+	<RTRUE>)
+       (T <PRE-ASK-ABOUT>)>>
+
+<ROUTINE V-TELL-ABOUT ("AUX" P)
+ <COND (<GETP ,PRSI ,P?TEXT> <TELL <GETP ,PRSI ,P?TEXT> CR>)
+       (<DOBJ? PLAYER> <ARENT-TALKING>)
+       (T <PERFORM ,V?ASK-ABOUT ,PRSO ,PRSI> <RTRUE>)>>
+
+<ROUTINE PRE-TALK-ABOUT ("AUX" P)
+ <COND (<NOT <==? ,WINNER ,PLAYER>>
+	<PERFORM ,V?TELL-ABOUT ,PLAYER ,PRSO>
+	<RTRUE>)
+       (<QCONTEXT-GOOD?>
+	<PERFORM ,V?ASK-ABOUT ,QCONTEXT ,PRSO>
+	<RTRUE>)
+       (<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+	<PERFORM ,V?ASK-ABOUT .P ,PRSO>
+	<RTRUE>)>>
+
+<ROUTINE V-TALK-ABOUT () <ARENT-TALKING>>
+
+<ROUTINE V-THANKS ("AUX" (P <>))
+	 <COND (<AND ,PRSO <FSET? ,PRSO ,PERSON>>
+		<SET P ,PRSO>)
+	       (<QCONTEXT-GOOD?>
+		<SET P ,QCONTEXT>)
+	       (<SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>
+		T)>
+	 <COND (.P <TELL D .P " acknowledges your thanks." CR>)
+	       (T <TELL "You're more than welcome." CR>)>>
+
+<ROUTINE V-THROW () <COND (<IDROP> <TELL "Thrown." CR>)>>
+
+<ROUTINE V-THROW-AT ()
+	 <COND (<NOT <IDROP>>
+		<RTRUE>)>
+	 <COND (<IOBJ? PLAYER>
+		<TELL "Don't be silly!" CR>
+		<RTRUE>)>
+	 <COND (<AND <NOT <FSET? ,PRSI ,PERSON>>
+		     <NOT <FSET? ,PRSI ,NARTICLEBIT>>>
+		<TELL "The ">)>
+	 <TELL D ,PRSI
+	       <COND (<FSET? ,PRSI ,PERSON> " ducks") (T " doesn't duck")>
+	       " as" THE-PRSO " flies by." CR>>
+
+<ROUTINE V-THROW-THROUGH ()
+	 <COND (<NOT <FSET? ,PRSO ,PERSON>>
+		<TELL "Let's not resort to violence, please." CR>)
+	       (T <V-THROW>)>>
+
+<ROUTINE PRE-TIE-TO ()
+	 <COND (<IOBJ? GLOBAL-SUB LOCAL-SUB CLAW
+			GLOBAL-SONAR SONAR-EQUIPMENT>
+		<RFALSE>)
+	       (<NOT <FSET? ,PRSO ,PERSON>>
+		<TELL "That won't do any good." CR>)>>
+
+<ROUTINE V-TIE-TO ()
+	<TELL "You can't tie" THE-PRSO " to that." CR>>
+
+<ROUTINE PRE-TIE-WITH ()
+	 <COND (<OR <NOT <FSET? ,PRSO ,PERSON>>
+		    <NOT <FSET? ,PRSI ,TOOLBIT>>>
+		<TELL "That won't do any good." CR>)>>
+
+<ROUTINE V-TIE-WITH ()
+	<TELL
+"\"If you don't formally arrest me first, I'll sue!\"" CR>>
+
+<ROUTINE V-TURN ()
+ <COND (<DOBJ? OXYGEN-GEAR-OTHER OXYGEN-GEAR-DIVER OXYGEN-GEAR-BLY>
+	<HAR-HAR>)
+       (<EQUAL? <META-LOC ,PRSO> ,GLOBAL-OBJECTS>
+	<NOT-HERE ,PRSO>)
+       (<AND <FSET? ,PRSO ,DOORBIT> <FSET? ,PRSO ,OPENBIT>>
+	<PERFORM ,V?CLOSE ,PRSO>
+	<RTRUE>)
+       (T <TELL "What do you want that to do?" CR>)>>
+
+<ROUTINE V-LAMP-OFF ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<TELL "Your vulgar ways would turn anyone off." CR>)
+	       (<NOT <FSET? ,PRSO ,ON?BIT>>
+		<YOU-CANT "turn off">)
+	       (<NOT <FSET? ,PRSO ,ONBIT>>
+		<ALREADY ,PRSO "off">)
+	       (<AND <DOBJ? MICROPHONE MICROPHONE-DOME OXYGEN-GEAR>
+		     <NOT-HOLDING? ,PRSO>>
+		<RTRUE>)
+	       (T
+		<OKAY ,PRSO "off">)>>
+
+<ROUTINE V-LAMP-ON ()
+	 <COND (<FSET? ,PRSO ,ONBIT>
+		<ALREADY ,PRSO "on">)
+	       (<AND <DOBJ? MICROPHONE MICROPHONE-DOME OXYGEN-GEAR>
+		     <NOT-HOLDING? ,PRSO>>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,ON?BIT>
+		<OKAY ,PRSO "on">)
+	       (<FSET? ,PRSO ,PERSON>
+		<HAR-HAR>)
+	       (T <YOU-CANT "turn on">)>>
+
+<ROUTINE V-UNLOCK ()
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<YOU-CANT ;"unlock">)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <YOU-CANT <> ,PRSO "open">)
+		      (<NOT <FSET? ,PRSO ,LOCKED>>
+		       <ALREADY ,PRSO "unlocked">)
+		      (T
+		       <FCLEAR ,PRSO ,LOCKED>
+		       <OKAY ,PRSO "unlocked">)>)
+	       (T <YOU-CANT ;"unlock">)>>
+
+<ROUTINE V-UNTIE ()
+	 <TELL "You can't tie ">
+	 <HIM-HER-IT ,PRSO>
+	 <TELL ", so you can't untie ">
+	 <HIM-HER-IT ,PRSO>
+	 <TELL "!" CR>>
+
+<ROUTINE MORE-SPECIFIC () <TELL "How do you want to do that?" CR>>
+
+<ROUTINE V-USE () <MORE-SPECIFIC>>
+
+<ROUTINE V-USE-AGAINST () <MORE-SPECIFIC>>
+
+"V-WAIT has three modes, depending on the arguments:
+1) If only one argument is given, it will wait for that many moves.
+2) If a second argument is given, it will wait the least of the first
+   argument number of moves and the time at which the second argument
+   (an object) is in the room with the player.
+3) If the third argument is given, the second should be FALSE.  It will
+   wait <first argument> number of moves (or at least try to).  The
+   third argument means that an 'internal wait' is happening (e.g. for
+   a 'careful' search)."
+
+<GLOBAL WHO-WAIT 0>
+
+<ROUTINE HAS-ARRIVED (WHO)
+	<FSET .WHO ,TOUCHBIT>
+	<TELL D .WHO ", for whom you're waiting, has arrived." CR>>
+
+<ROUTINE V-WAIT ("OPTIONAL" (NUM -1) (WHO <>) (INT <>) "AUX" VAL HR(RESULT T))
+	 #DECL ((NUM) FIX)
+	 <COND (<==? -1 .NUM>
+		<SET NUM 10>
+		<TELL ,I-ASSUME " wait 10 turns.)" CR>)>
+	 <SET HR ,HERE>
+	 <SETG WHO-WAIT 0>
+	 <COND (<NOT .INT> <TELL "Time passes..." CR>)>
+	 <REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)
+		       (<SET VAL <CLOCKER>>
+			<COND (<OR <==? .VAL ,M-FATAL>
+				   <NOT <==? .HR ,HERE>>>
+			       <SET RESULT ,M-FATAL>
+			       <RETURN>)
+			      (<AND .WHO <IN? .WHO ,HERE>>
+			       <HAS-ARRIVED .WHO>
+			       <RETURN>)
+			      (<0? .NUM> <RETURN>)
+			      (T
+			       <SETG WHO-WAIT <+ ,WHO-WAIT 1>>
+			       <COND (.INT <TELL
+"Do you want to continue what you were doing?">)
+				     (T <TELL
+"Do you want to keep waiting?">)>
+			       <COND (<NOT <YES?>> <RETURN>)
+				     (T <USL>)>)>)
+		       (<AND .WHO <IN? .WHO ,HERE>>
+			<HAS-ARRIVED .WHO>
+			<RETURN>)
+		       (<AND .WHO <G? <SETG WHO-WAIT <+ ,WHO-WAIT 1>> 30>>
+			<TELL D .WHO
+" still hasn't arrived.  Do you want to keep waiting?">
+			<COND (<NOT <YES?>> <RETURN>)>
+			<SETG WHO-WAIT 0>
+			<USL>)
+		       (T <USL>)>>
+	 <SETG CLOCK-WAIT T>
+	 .RESULT>
+
+<ROUTINE INT-WAIT (N "AUX" TIM REQ VAL)
+	 <SET TIM ,MOVES>
+	 <COND (<==? ,M-FATAL <V-WAIT <SET REQ <RANDOM <* .N 2>>> <> T>>
+		<RFATAL>)
+	       (<NOT <L? <- ,MOVES .TIM> .REQ>>
+		<RTRUE>)
+	       (T <RFALSE>)>>
+
+<ROUTINE V-WAIT-FOR ("AUX" WHO)
+	 <COND (<AND <NOT <==? -1 ,P-NUMBER>>
+		     <DOBJ? ROOMS TURN>>
+		<COND ;(<G? ,P-NUMBER ,MOVES> <V-WAIT-UNTIL> <RTRUE>)
+		      (<G? ,P-NUMBER 180>
+		       <TELL "That's too long to wait." CR>)
+		      (T <V-WAIT ,P-NUMBER>)>)
+	       (<DOBJ? ROOMS TURN GLOBAL-HERE> <V-WAIT> <RTRUE>)
+	       (<DOBJ? PLAYER> <ALREADY ,PLAYER "here">)
+	       (<FSET? ,PRSO ,PERSON>
+		<SET WHO <GET ,CHARACTER-TABLE
+			      <GETP ,PRSO ,P?CHARACTER>>>
+		<COND (<==? <META-LOC .WHO> ,HERE>
+		       <ALREADY .WHO "here">)
+		      (T <V-WAIT 10000 .WHO>)>)
+	       (T <TELL "Not a good idea. You might wait forever." CR>)>>
+
+<ROUTINE V-WAIT-UNTIL ()
+	 <COND (<AND <NOT <==? -1 ,P-NUMBER>> <==? ,PRSO ,TURN>>
+		<COND (<G? ,P-NUMBER ,MOVES>
+		       <V-WAIT <- ,P-NUMBER ,MOVES>>)
+		      (T <TELL "It's already past that time." CR>)>)
+	       (T <YOU-CANT "wait until">)>>
+
+<ROUTINE V-ALARM ()
+	 <COND (<FSET? ,PRSO ,PERSON>
+		<HE-SHE-IT ,PRSO T>
+		<TELL "'s wide awake, or haven't you noticed?" CR>)
+	       (T
+		<TOO-BAD-BUT ,PRSO "not asleep">)>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <PERFORM ,V?WALK .DIR>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
+	 #DECL ((PT) <OR FALSE TABLE> (PTS) FIX
+		(OBJ) OBJECT (RM) <OR FALSE OBJECT>)
+	 <COND (<DOBJ? LEFT RIGHT>
+		<PERFORM ,V?TURN ,PRSO>
+		<RTRUE>)
+	       (<NOT ,P-WALK-DIR>
+		<V-WALK-AROUND>
+		<RFATAL>)
+	       ;(<NOT ,PRSO>
+		;<COND (,DEBUG <TELL "[1] ">)>
+		<YOU-CANT "go">
+		<RTRUE>)>
+	 ;<COND (,DEBUG <TELL "[PRSO=" N ,PRSO "] ">)>
+	 <COND (<SET PT <GETPT <LOC ,WINNER> ,PRSO>>
+		;<COND (,DEBUG <TELL "[GETPT OK] ">)>
+		<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <SET RM <GETB .PT ,REXIT>>
+		       <COND (<GOTO .RM> <OKAY>)>
+		       <RTRUE>)
+		      (<==? .PTS ,NEXIT>
+		       <TELL <GET .PT ,NEXITSTR> CR>
+		       <RFATAL>)
+		      (<==? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <COND (<GOTO .RM> <OKAY>)>
+			      <RTRUE>)
+			     (T
+			      <RFATAL>)>)
+		      (<==? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>>
+			      <COND (<GOTO <GETB .PT ,REXIT>> <OKAY>)>
+			      <RTRUE>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      ;<COND (,DEBUG <TELL "[2] ">)>
+			      <YOU-CANT "go">
+			      <RFATAL>)>)
+		      (<==? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GETB .PT ,DEXITOBJ>> ,OPENBIT>
+			      <COND (<GOTO <GETB .PT ,REXIT>> <OKAY>)>
+			      <RTRUE>)
+			     (<AND <FSET? .OBJ ,INVISIBLE>
+				   <NOT <AND ,DEBUG
+					     <TELL "[invisible] ">>>>
+			      ;<COND (,DEBUG <TELL "[3] ">)>
+			      <YOU-CANT "go">)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TOO-BAD-BUT .OBJ "closed">
+			      <THIS-IS-IT .OBJ>
+			      <RFATAL>)>)>)
+	       (<EQUAL? ,PRSO ,P?IN ,P?OUT>
+		<V-WALK-AROUND>)
+	       (T
+		;<COND (,DEBUG <TELL "[4] ">)>
+		<YOU-CANT "go">
+		<RFATAL>)>>
+
+<ROUTINE V-WALK-AROUND ()
+	 <SETG P-WON <>>
+	 <TELL "(What " D ,INTDIR " do you want to go in?)" CR>
+	 <RFATAL>>
+
+<ROUTINE V-WALK-TO ("AUX" O L)
+ <SET O ,PRSO>
+ <COND (<EQUAL? .O ,LOCAL-SUB ,GLOBAL-SUB>
+	<SET O ,SUB>
+	;<COND (<EQUAL? ,HERE ,SUB> <SET O ,SUB>)
+	      (,SUB-IN-TANK
+	       <COND (<EQUAL? ,HERE ,NORTH-TANK-AREA> <SET O ,SUB>)
+		     (T <SET O ,NORTH-TANK-AREA>)>)
+	      (T ;,SUB-IN-DOME
+	       <COND (<EQUAL? ,HERE ,AIRLOCK> <SET O ,SUB>)
+		     (T <SET O ,AIRLOCK>)>)>)
+       (<AND <FSET? .O ,PERSON> <IN? .O ,GLOBAL-OBJECTS>>
+	<SET O <GET ,CHARACTER-TABLE <GETP .O ,P?CHARACTER>>>)>
+ <SET L <META-LOC .O>>
+ ;<COND (,DEBUG <TELL "[WALK-TO: " D .O "/" D .L "]" CR>)>
+ <COND (<AND <EQUAL? ,HERE ,SUB> <FSET? ,PRSO ,UNITBIT>>
+	<PERFORM ,V?SET ,DEPTH-CONTROL ,PRSO>
+	<RTRUE>)
+       (<AND <EQUAL? ,HERE <LOC ,WINNER>>
+	     <OR <EQUAL? .L ,HERE>
+		 <AND <EQUAL? .L ,LOCAL-GLOBALS> <GLOBAL-IN? .O ,HERE>>
+		 ;<FSET? .O ,DOORBIT>
+		 ;<FSET? .O ,WINDOWBIT>>>
+	<HE-SHE-IT ,WINNER T>
+	<COND (<==? ,WINNER ,PLAYER> <TELL " do">)
+	      (T <TELL " does">)>
+	<TELL "n't need to walk around within a "
+		<COND ;(<OUTSIDE? ,HERE> "part of the grounds.")
+		      (T "room.")>
+		CR>)
+       (<EQUAL? .L ,LOCAL-GLOBALS>
+	<MORE-SPECIFIC>)
+       (<DOBJ? JOB>
+	<COND (<NOT <EQUAL? ,WINNER ,PLAYER>> <TELL "\"">)>
+	<MORE-SPECIFIC>
+	<COND (<NOT <EQUAL? ,WINNER ,PLAYER>> <TELL "\"">)>
+	<CRLF>
+	<RTRUE>)
+       (<DOBJ? INTDIR>
+	<V-WALK-AROUND>)
+       (<FAR-AWAY? .L>
+	<HE-SHE-IT ,WINNER T>
+	<TELL " can't go from here to there">
+	<COND (<NOT <EQUAL? .L ,GLOBAL-OBJECTS>>
+	       <TELL ", at least not directly">)>
+	<TELL "." CR>)
+       (<NOT <EQUAL? ,WINNER ,PLAYER>>
+	<COND (<GOTO .L>
+	       <TELL "\"Okay.">
+	       ;<COND (,DEBUG <TELL " [again?]">)>
+	       <COND (<==? ,WINNER ,TIP>
+		      <TELL " But I'll still follow you if you move!">)>
+	       <TELL "\"" CR>)>)
+       (<AND ,SUB-IN-DOME
+	     <NOT <FSET? ,FOOT-OF-RAMP ,TOUCHBIT>>
+	     <NOT <EQUAL? .L ,FOOT-OF-RAMP>>
+	     <NOT <EQUAL? .L ,SUB ,AIRLOCK ,AIRLOCK-WALL>>>
+	<TELL "You should go to the " D ,FOOT-OF-RAMP " first." CR>)
+       (<IN? .O ,ROOMS>
+	<COND (<GOTO .O> <OKAY>)>
+	<RTRUE>)
+       (T ;<IN? .L ,ROOMS>
+	<HE-SHE-IT .O T>
+	<TELL "'s in" THE .L "." ;" Now you're there, too." CR>
+	<COND (<GOTO .L> <OKAY>)>
+	<RTRUE>)>>
+
+<ROUTINE V-WALK-UNDER ()
+	<COND (<DOBJ? GLOBAL-WATER SEA BAY>
+	       <PERFORM ,V?DIVE>
+	       <RTRUE>)
+	      (T <YOU-CANT "go under">)>>
+
+<ROUTINE V-RUN-OVER ()
+	 <TELL "That doesn't make much sense." CR>>
+
+<ROUTINE V-WHAT ("AUX" P)
+	 <COND (<DOBJ? PLAYER>
+		<COND (<NOT <EQUAL? ,WINNER ,PLAYER>> <TELL "\"">)>
+		<TELL "You're the inventor!">
+		<COND (<NOT <EQUAL? ,WINNER ,PLAYER>> <TELL "\"">)>
+		<CRLF>)
+	       (<OR <AND <QCONTEXT-GOOD?>
+			 <FSET? <SET P ,QCONTEXT> ,PERSON>>
+		    <SET P <FIND-FLAG ,HERE ,PERSON ,WINNER>>>
+		<PERFORM ,V?ASK-ABOUT .P ,PRSO>)
+	       (<FSET? ,PRSO ,PERSON>
+		<TELL <GETP ,TIP ,P?TEXT> CR>)
+	       (T <WONT-HELP-TO-TALK-TO ,PLAYER>)>>
+
+"<ROUTINE V-WHO-WAS-NEAR () <V-WHAT>>"
+
+<ROUTINE V-YELL () <V-YES>>
+
+<ROUTINE V-YELL-FOR ()
+ <COND (<AND ,DOME-AIR-BAD?
+	     <DOBJ? UNIVERSAL-TOOL SPECIAL-TOOL SPECIAL-TOOL-GLOBAL>>
+	<TELL
+"The three crew members who are still on their feet shout back that the
+" D ,SPECIAL-TOOL " should be there on the hook." CR>)
+       (T <V-YES>)>>
+
+<ROUTINE V-YES ("OPTIONAL" (NO? <>))
+	 <COND (<AND <QCONTEXT-GOOD?> <==? ,WINNER ,PLAYER>>
+		<SETG WINNER ,QCONTEXT>
+		<COND (.NO? <PERFORM ,V?NO>) (T <PERFORM ,V?YES>)>
+		<RTRUE>)
+	       (T <ARENT-TALKING>)>>
+
+<ROUTINE V-NO () <V-YES T>>
+
+"SUBTITLE SCORING"
+
+<GLOBAL MOVES 0>
+<GLOBAL SCORE 0>
+
+"<CONSTANT SCORE-MAX 100>"
+
+<ROUTINE SCORE-UPD (NUM)
+	 #DECL ((NUM) FIX)
+	 <SETG SCORE <+ ,SCORE .NUM>>
+	 <TELL "(">
+	 <COND (<G? 0 .NUM> <TELL "Oh no! ">)>
+	 <TELL "Your score just went ">
+	 <COND (<L? 0 .NUM> <TELL "up">)
+	       (T <SET NUM <- 0 .NUM>> <TELL "down">)>
+	 <TELL " by " N .NUM " point">
+	 <COND (<NOT <1? .NUM>> <TELL "s">)>
+	 <TELL "!)" CR>>
+
+<ROUTINE SCORE-OBJ (OBJ "AUX" TEMP)
+	 #DECL ((OBJ) OBJECT (TEMP) FIX)
+	 <COND (<SET TEMP <GETP .OBJ ,P?VALUE>>
+		<COND (<G? .TEMP 0>
+		       <SCORE-UPD .TEMP>
+		       <PUTP .OBJ ,P?VALUE 0>)>)>>
+
+<ROUTINE V-SCORE ()
+	 <TELL "Your score is " N ,SCORE " point">
+	 <COND (<NOT <1? ,SCORE>> <TELL "s">)>
+	 <TELL " out of 100, in " N ,MOVES " turn">
+	 <COND (<1? ,MOVES> <TELL ".">) (ELSE <TELL "s.">)>
+	 <CRLF>
+	 <TELL "This score gives you the rank of a "
+	       <COND (<G? 0 ,SCORE> <GET ,RANKS 0>)
+		     (T <GET ,RANKS </ ,SCORE 20>>)>
+	       " adventurer." CR>
+	 ,SCORE>
+
+<GLOBAL RANKS<PTABLE "beginning" "fair" "good" "very good" "master" "famous">>
+
+<ROUTINE FINISH ("OPTIONAL" (REPEATING <>) VAL)
+	 <COND (,DEBUG <RTRUE>)>
+	 <CRLF>
+	 <CRLF>
+	 <COND (<NOT .REPEATING>
+		<V-SCORE>
+		<CRLF>)>
+	 <TELL
+"Would you like to:|
+   RESTORE your place from where you saved it,|
+   RESTART the story from the beginning, or|
+   QUIT for now?|
+">
+	<REPEAT ()
+	 <TELL ">">
+	 <READ ,P-INBUF ,P-LEXV>
+	 <SET VAL <GET ,P-LEXV ,P-LEXSTART>>
+	 <COND (<NOT <0? .VAL>>
+		<SET VAL <WT? .VAL ,PS?VERB ,P1?VERB>>
+		<COND (<EQUAL? .VAL ,ACT?RESTART>
+		       <RESTART>
+		       ;<TELL ,FAILED CR>
+		       <FINISH T>)
+		      (<EQUAL? .VAL ,ACT?RESTORE>
+		       <COND (<V-RESTORE> <RETURN>)>
+		       <FINISH T>)
+		      (<EQUAL? .VAL ,ACT?QUIT>
+		       <QUIT>)>)>
+	 <TELL "(Type RESTORE, RESTART, or QUIT.) ">>>
+
+<ROUTINE DIVESTMENT? (OBJ)
+	<AND <==? ,PRSO .OBJ>
+	     <VERB? DROP GIVE PUT THROW-AT THROW-THROUGH>>>
+
+<ROUTINE EXIT-VERB? ()
+ <COND (<VERB? WALK> <RTRUE>)
+       (<VERB? WALK-TO FOLLOW THROUGH>
+	<COND (<NOT <==? ,HERE <META-LOC ,PRSO>>> <RTRUE>)>)>>
+
+<ROUTINE GAME-VERB? ()
+	<VERB?	TELL BRIEF SUPER-BRIEF VERBOSE SAVE RESTORE QUIT RESTART
+		VERSION SCRIPT UNSCRIPT SCORE $VERIFY DEBUG>>
+
+<ROUTINE REMOTE-VERB? ()
+	<VERB?	ASK-ABOUT ASK-CONTEXT-ABOUT ASK-CONTEXT-FOR ASK-FOR
+		DISEMBARK DROP FIND GIVE LOOK-UP MAKE
+		SEARCH SEARCH-FOR SGIVE TAKE-WITH TELL-ABOUT WALK-TO WHAT
+		;$GO ;$WHERE>>
+
+<ROUTINE SPEAKING-VERB? ()
+	<VERB? $CALL ASK ASK-ABOUT ASK-FOR GOODBYE HELLO
+		NO TELL TELL-ABOUT WHAT YES>>
diff --git a/vocab.adj b/vocab.adj
new file mode 100644
index 0000000..9e8a0d6
--- /dev/null
+++ b/vocab.adj
@@ -0,0 +1,45 @@
+49-ER	49ER	ACCESS	ADMIN	ADMINI
+AIR	AIRLOC	ALARM	AMY	AMY'S
+ANTRIM	AQUA	AQUADO	AQUATI	ASSORT
+ATLANT	AUTO	AUTOMA	BILL	BILL'S
+BIOCEP	BLACK	BLDG	BLUE	BLY'S
+BOLT	BOX	BRASS	BUILDI	BUSINE
+CAPSUL	CATALY	CENTER	CENTRE	CHEMIC
+CIRCUI	CLOSET	COAXIA	COMM	COMMAN
+COMMUN	CONTRO	COVER	CRAWL	CURREN
+DART	DEFINI	DEPTH	DEPTHF	DESK
+DETECT	DISTRE	DIVER	DIVERS	DOC
+DOC'S	DOCKIN	DOCTOR	DOME	DORM
+DORMIT	DR	EAST	ELECTR	EMERGE
+EMPTY	ENGINE	ENTIRE	ENTRY	EXERCI
+EXPLOS	EXTEND	EXTENS	FAMOUS	FEMALE
+FILE	FINDER	FINE	FLOOD	FRAM
+FROBTO	FULL	GALLEY	GATE	GAUGE
+GREENU	GRID	HAND	HER	HIS
+HORVAK	HUGE	HYDROJ	HYDROP	HYPO
+HYPODE	IDENTI	INSERT	INSTRU	INVENT
+JEROME	JOGGIN	JOY	KEMP'S	LAB
+LABORA	LIGHT	LISTEN	LOCKER	LOG
+LOWELL	MACHIN	MAG	MAGAZI	MALE
+MARINE	MARV	MARV'S	MECHAN	METALL
+MICK	MICK'S	MICROW	MISSIN	MY
+NE	NEW	NORTH	NUMBER	NW
+ODD	ODDLY	OFFICE	OPEN	OPERAT
+ORANGE	ORE	OTHER	OXYGEN	PERSON
+PLASTI	POWER	PRESEN	PROPUL	PROSPE
+RANDAL	REACTO	RECEPT	RED	REDDIS
+REMOTE	REPELA	RESEAR	REVOLU	ROOM
+RUBBER	RUNNIN	SAFETY	SCIMIT	SE
+SEA	SEARCH	SECURI	SERIOU	SHAPED
+SHARON	SIEGEL	SLIDIN	SMALL	SOME
+SONAR	SONARS	SOS	SOUTH	SPARE
+SPECIA	SPREAD	STANDI	STARTE	STATIO
+STEEL	STENCI	STORAG	SUB	SUB'S
+SUBMAR	SUPPLY	SURVIV	SW	TANK
+TEMPER	TEMPOR	TEST	THESE	THIS
+THORPE	TIP	TIP'S	TRANK	TRANQU
+TRANSP	ULTRAM	UNDERS	UNDERW	UNIVER
+URGENT	VALUAB	VIDEO	VIDEOP	VOLTAG
+WALL	WALT	WALT'S	WARM	WARNIN
+WEST	WORK	WORKSH	YELLOW	YOUNG
+ZOE	
\ No newline at end of file
diff --git a/vocab.mud b/vocab.mud
new file mode 100644
index 0000000..7adf09c
--- /dev/null
+++ b/vocab.mud
@@ -0,0 +1,98 @@
+
+<SETG VBUFF <IBYTES 8 <* 7 1024>>>	"for vocab up to 1024 words"
+<GDECL (VBUFF) <BYTES 8>>
+
+<DEFINE VOCAB (FILE
+	       "AUX" BYTADDR VLEN VNUM (C <OPEN "READB" .FILE>) OUTCHAN
+		     (NDUP 0) (NORD 0) (BUF <IBYTES 16 6>))
+	#DECL ((BYTADDR VLEN VNUM NDUP NORD) FIX
+	       (C) <OR CHANNEL FALSE>
+	       (OUTCHAN) <SPECIAL <OR CHANNEL FALSE>>
+	       (BUF) <OR <BYTES 8> <BYTES 16>>)
+	<COND (.C
+	       <SET OUTCHAN <OPEN "PRINT" <7 .C> "VOCAB">>
+	       <READB .BUF .C>
+	       <SET BYTADDR <5 .BUF>>
+	       <ACCESS .C </ .BYTADDR 4>>
+	       <READB ,VBUFF .C>
+	       <SET BUF <REST ,VBUFF <MOD .BYTADDR 4>>>
+	       <SET VLEN <5 .BUF>>
+	       <SET VNUM <+ <7 .BUF> <* 256 <6 .BUF>>>>
+	       <SET BUF <REST .BUF 7>>
+	       <REPEAT ((N .VNUM) X X1 (OX #WORD 0) (OX1 #WORD 0))
+		       #DECL ((N) FIX (X X1 OX OX1) WORD)
+		       <SET X
+			    <ORB <LSH <1 .BUF> 24>
+				 <LSH <2 .BUF> 16>
+				 <LSH <3 .BUF> 8>
+				 <4 .BUF>>>
+		       <PRINT .X>
+		       <PRINC " \"">
+		       <ZWORD-PRINT .X>
+		       <PRINC "\"">
+		       <COND (<L? <CHTYPE .X FIX> <CHTYPE .OX FIX>>
+			      <SET NORD <+ 1 .NORD>>
+			      <PRINC " [out of order!]">)>
+		       <SET X1 <ANDB .X #WORD *037777677777*>>
+		       <COND (<L? <CHTYPE .X1 FIX> <CHTYPE .OX1 FIX>>
+			      <SET NORD <+ 1 .NORD>>
+			      <PRINC " [out of order!]">)
+			     (<==? .X1 .OX1>
+			      <SET NDUP <+ 1 .NDUP>>
+			      <PRINC " [duplicate!]">)>
+		       <SET OX .X>
+		       <SET OX1 .X1>
+		       <COND (<0? <SET N <- .N 1>>> <RETURN>)>
+		       <SET BUF <REST .BUF .VLEN>>>
+	       <CRLF>
+	       <PRINC "Errors found: " ,OUTCHAN>
+	       <COND (<AND <0? .NDUP> <0? .NORD>>
+		      <PRINC "none" ,OUTCHAN>)>
+	       <COND (<NOT <0? .NDUP>>
+		      <PRINC .NDUP ,OUTCHAN>
+		      <PRINC " duplications " ,OUTCHAN>)>
+	       <COND (<NOT <0? .NORD>>
+		      <PRINC .NORD ,OUTCHAN>
+		      <PRINC " out of order " ,OUTCHAN>)>
+	       <CRLF ,OUTCHAN>
+	       <CLOSE .OUTCHAN>)>>
+
+<SETG ZWORD-BUF <IBYTES 5 6>>
+<GDECL (ZWORD-BUF) <BYTES 5>>
+
+<DEFINE ZWORD-PRINT (X) 
+	<1 ,ZWORD-BUF <CHTYPE <LSH .X -26> FIX>>
+	<2 ,ZWORD-BUF <CHTYPE <LSH .X -21> FIX>>
+	<3 ,ZWORD-BUF <CHTYPE <LSH .X -16> FIX>>
+	<4 ,ZWORD-BUF <CHTYPE <LSH .X -10> FIX>>
+	<5 ,ZWORD-BUF <CHTYPE <LSH .X -5> FIX>>
+	<6 ,ZWORD-BUF <CHTYPE .X FIX>>
+	<REPEAT ((N 0) CH (CASE 0) (TCASE -1))
+		#DECL ((N CH CASE TCASE) FIX)
+		<COND (<L? 6 <SET N <+ 1 .N>>> <RETURN>)>
+		<SET CH <NTH ,ZWORD-BUF .N>>
+		<COND (<0? .CH> <PRINC " "> <SET TCASE -1>)
+		      (<G? 4 .CH>
+		       <PRINC "F">
+		       <PRINC <ASCII <+ 48 .CH>>>
+		       <SET TCASE -1>)
+		      (<AND <==? -1 .TCASE> <SET TCASE .CASE> <>>)
+		      (<==? 4 .CH>
+		       <COND (<0? .TCASE> <SET TCASE 1>)
+			     (<1? .TCASE> <SET CASE 1>)
+			     (T <SET CASE 0>)>)
+		      (<==? 5 .CH>
+		       <COND (<0? .TCASE> <SET TCASE 2>)
+			     (<1? .TCASE> <SET CASE 0>)
+			     (T <SET CASE 2>)>)
+		      (<0? .TCASE> <PRINC <ASCII <+ 91 .CH>>> <SET TCASE -1>)
+		      (<1? .TCASE> <PRINC <ASCII <+ 59 .CH>>> <SET TCASE -1>)
+		      (<==? 6 .CH>
+		       <PRINC <ASCII <+ <NTH ,ZWORD-BUF <+ 2 .N>>
+					<* 32 <NTH ,ZWORD-BUF <+ 1 .N>>>>>>
+		       <SET N <+ 2 .N>>
+		       <SET TCASE -1>)
+		      (T<PRINC <NTH ,SPEC-CHARS <- .CH 6>>> <SET TCASE -1>)>>>
+
+<SETG SPEC-CHARS "|0123456789.,!?_#'\"/\\-:()">
+<GDECL (SPEC-CHARS) STRING>
diff --git a/vocab.noun b/vocab.noun
new file mode 100644
index 0000000..16b09d8
--- /dev/null
+++ b/vocab.noun
@@ -0,0 +1,74 @@
+AIR	ALARM	AMY	ANTRIM	AQUADO
+AREA	ARM	ARMS	ARROW	ARTICL
+ASSIST	AUTO	AUTOMA	AUTOPI	BADGE
+BADGES	BAY	BAZOOK	BEAM	BED
+BELL	BENCH	BILL	BIOCEP	BLIP
+BLUEPR	BLY	BOAT	BOOK	BOX
+BOY	BREAK	BREAKE	BREEZE	BUMPER
+BUNCH	BUNK	BUSINE	BUTTON	BUZZER
+CABINE	CABLE	CALL	CANIST	CAPSUL
+CAT	CENTER	CENTRE	CHAIR	CHAIRS
+CHARGE	CHEMIC	CHORE	CIRCUI	CLAW
+CLAWS	CLOSET	CLUE	CLUSTE	COMMAN
+COMPAN	COMPUT	CONTAC	CONTEN	CONTRO
+CORRID	COUNTE	COVER	CREATU	CREW
+CRUISE	CRUSH	CYLIND	DAMAGE	DANGER
+DART	DECK	DEPOSI	DEPTH	DEPTHF
+DESK	DESTRO	DEVICE	DIAGRA	DIARY
+DIRECT	DIVER	DIVERS	DIVING	DOC
+DOCK	DOME	DOOR	DOORWA	DORM
+DORMIT	DRAWER	ELECTR	ENGINE	ENTRAN
+EQUIPM	EVIDEN	EXPERT	EXPLOS	FAST
+FASTER	FIELD	FILE	FILES	FINDER
+FLIP	FLOOR	FREIGH	FURNIT	GALLEY
+GAME	GANGPL	GASH	GATE	GATES
+GAUGE	GAUGES	GEAR	GEARS	GENERA
+GIRL	GREENU	GRID	GRIDS	GROUND
+GUN	HALF	HALL	HALLWA	HANDLE
+HATCH	HE	HELP	HER	HERE
+HERSEL	HIGH	HIM	HIMSEL	HINT
+HOLE	HOOK	HORVAK	HOUSIN	HYDROJ
+HYDROP	I	IDEA	INSERT	INSTAL
+INSTRU	INTERC	IT	JEROME	JOB
+JOYSTI	JUNK	KEEL	KEMP	KEY
+KNOB	KNOBS	LAB	LABORA	LADDER
+LEFT	LEVER	LIGHT	LIGHTS	LOAD
+LOCKER	LOGBOO	LOT	LOW	LOWELL
+M	MACHIN	MAG	MAGAZI	MAN
+MANUAL	MARV	MATERI	MATTER	MAXIMU
+ME	MECHAN	MEDIC	MEDIUM	MESS
+METER	METERS	METRES	MICK	MICROP
+MIKE	MINIMU	MINUTE	MOISTU	MONITO
+MONSTE	MORE	MOTIVE	MOUNT	MYSELF
+NEEDLE	NEWSPA	NODULE	NOTHIN	OBJECT
+OCEAN	OFF	OFFICE	OPERAT	OVERHE
+OXYGEN	P	PAGE	PANEL	PAPER
+PAPERS	PART	PARTS	PHONE	PHOTO
+PHOTOG	PICTUR	PILOT	PLACE	PLAN
+PLANS	PLATE	POD	PORCH	PORT
+POWER	PROBLE	PUT	RAMP	RANDAL
+REACTO	REASON	RECEIV	REGULA	RELAY
+REPORT	RIGHT	ROOF	ROOM	RUNWAY
+SABOTA	SAILOR	SATELL	SB	SCANNE
+SCIMIT	SCOPE	SCREEN	SEA	SEACAT
+SEASTA	SEAT	SEAWAT	SECTIO	SHARON
+SHE	SHELF	SHELVE	SHIP	SHOP
+SHUT	SIEGEL	SIGN	SIGNAL	SLOW
+SLOWER	SLUG	SMASH	SNAPSH	SNARK
+SOMETH	SONAR	SONARP	SONARS	SOS
+SOUND	SPACE	SPEAKE	SPEED	SQUARE
+STAIN	STARBO	STARTE	STATIO	STICK
+STILL	STOP	STORY	STRAW	STUFF
+SUB	SUBMAR	SUMMON	SUPPLI	SUPPLY
+SURFAC	SWING	SWITCH	SYRING	SYSTEM
+TABLE	TANK	TEAR	TECHNI	TEMPER
+TESTER	TESTOR	THEM	THEY	THING
+THIS	THORPE	THREAT	THROTT	TIP
+TOOL	TOP	TRACK	TRACTO	TRAITO
+TRANSM	TRAP	TURBIN	TURN	TURNS
+UNDERW	UNIT	UNLIMI	US	VALVE
+VALVES	VIDEOP	VIEWPO	WALKWA	WALL
+WALT	WARNIN	WATER	WE	WEAPON
+WHALE	WIND	WINDOW	WOMAN	WORK
+WORKBE	WORKCO	WORKSH	WRENCH	YOU
+YOURSE	
\ No newline at end of file
diff --git a/vocab.prep b/vocab.prep
new file mode 100644
index 0000000..2d34535
--- /dev/null
+++ b/vocab.prep
@@ -0,0 +1,5 @@
+ABOUT	AGAINS	AROUND	AT	AWAY
+BEHIND	BY	DOWN	FOR	FROM
+IN	OFF	ON	OUT	OVER
+RID	THROUG	TILL	TO	UNDER
+UNTIL	UP	WITH	
\ No newline at end of file
diff --git a/vocab.verb b/vocab.verb
new file mode 100644
index 0000000..8cf80ea
--- /dev/null
+++ b/vocab.verb
@@ -0,0 +1,23 @@
+ADJUST	AIM	ANSWER	APPLY	ARM
+ARREST	ASK	ATTACK	BRIEF	BRING
+BRUSH	CALL	CLIMB	CLOSE	COME
+CONFRO	CUT	DAMAGE	DIAGNO	DISCUS
+DIVE	DOCK	DRINK	DROP	EAT
+EMPTY	ENTER	EXAMIN	EXTING	FILL
+FIND	FIRE	FIT	FIX	FOLLOW
+GOODBY	HAND	HANG	HELLO	HELP
+HIDE	I	INVENT	KILL	KISS
+KNOCK	LAUNCH	LEAVE	LEVEL	LISTEN
+LOCK	LOOK	MAKE	MATCH	MOVE
+NAME	NO	NOD	OPEN	PICK
+PLACE	PLAY	PULL	PUMP	PUSH
+QUIT	RAISE	READ	RELEAS	RESTAR
+RESTOR	RING	RISE	RUB	SAVE
+SAY	SCORE	SCREW	SCRIPT	SEARCH
+SEND	SET	SHOW	SIT	SLAP
+SMELL	SMILE	SMOKE	STAND	START
+STOP	STRIKE	SUPER	SURFAC	SWIM
+SWITCH	TAKE	TELL	TEST	THANKS
+THROW	TIE	TURN	UNLOCK	UNSCRI
+UNTIE	USE	VERBOS	WAIT	WAKE
+WALK	YELL	YES	
\ No newline at end of file
diff --git a/zork1.script b/zork1.script
new file mode 100644
index 0000000..cac54c7
--- /dev/null
+++ b/zork1.script
@@ -0,0 +1,201 @@
+
+ZORK I: The Great Underground Empire
+Copyright (c) 1981, 1982, 1983 Infocom, Inc. All rights reserved.
+ZORK is a registered trademark of Infocom, Inc.
+Revision 64 / Serial number 830915
+
+The Troll Room
+This is a small room with passages to the east and south and a forbidding
+hole leading west. Bloodstains and deep scratches (perhaps made by
+an axe) mar the walls.
+A nasty-looking troll, brandishing a bloody axe, blocks all passages
+out of the room.
+Your sword has begun to glow very brightly.
+
+>TROLL, HELLO
+
+The troll isn't much of a conversationalist.
+
+>STAB TROLL
+
+Clang! Crash! The troll parries.
+The axe gets you right in the side. Ouch!
+
+>ATTACK TROLL
+
+(with the sword)
+Clang! Crash! The troll parries.
+The troll neatly removes your head.
+It appears that that last blow was too much for you. I'm afraid you
+are dead.
+ 
+   ****  You have died  **** 
+
+The Troll Room
+This is a small room with passages to the east and south and a forbidding
+hole leading west. Bloodstains and deep scratches (perhaps made by
+an axe) mar the walls.
+A nasty-looking troll, brandishing a bloody axe, blocks all passages
+out of the room.
+Your sword has begun to glow very brightly.
+The axe crashes against the rock, throwing sparks!
+
+>ATTACK TROLL WITH SWORD
+
+Clang! Crash! The troll parries.
+The troll swings his axe, but it misses.
+
+>THRUST
+
+(sword)
+Whoosh!
+The troll swings, you parry, but the force of his blow knocks your
+sword away.
+
+>GET SWORD
+
+Taken.
+The troll's axe barely misses your ear.
+
+>HIT TROLL
+
+(with the sword)
+You charge, but the troll jumps nimbly aside.
+The axe sweeps past as you jump aside.
+
+>STAB IT
+
+You charge, but the troll jumps nimbly aside.
+The troll swings his axe, and it nicks your arm as you dodge.
+
+>DIAGNOSE
+
+You have a light wound, which will be cured after 30 moves.
+You can be killed by one more light wound.
+The axe crashes against the rock, throwing sparks!
+
+>ATTACK TROLL WITH SWORD
+
+The troll is battered into unconsciousness.
+
+>TAKE THE AXE
+
+Taken.
+
+>WAKE UP TROLL
+
+The troll is rudely awakened.
+The troll stirs, quickly resuming a fighting stance.
+The troll, disarmed, cowers in terror, pleading for his life in the
+guttural tongue of the trolls.
+
+>GIVE THE AXE TO THE TROLL
+
+The troll scratches his head in confusion, then takes the axe.
+The troll neatly removes your head.
+It appears that that last blow was too much for you. I'm afraid you
+are dead.
+ 
+   ****  You have died  **** 
+
+The Troll Room
+This is a small room with passages to the east and south and a forbidding
+hole leading west. Bloodstains and deep scratches (perhaps made by
+an axe) mar the walls.
+A nasty-looking troll, brandishing a bloody axe, blocks all passages
+out of the room.
+Your sword has begun to glow very brightly.
+The axe gets you right in the side. Ouch!
+
+>STAB TROLL
+
+The troll's weapon is knocked to the floor, leaving him unarmed.
+The troll, angered and humiliated, recovers his weapon. He appears
+to have an axe to grind with you.
+
+>FIGHT TROLL
+
+(with the sword)
+The fatal blow strikes the troll square in the heart:  He dies.
+Almost as soon as the troll breathes his last breath, a cloud of sinister
+black fog envelops him, and when the fog lifts, the carcass has disappeared.
+Your sword is no longer glowing.
+
+>TAKE AXE
+
+Taken.
+
+The Troll Room
+This is a small room with passages to the east and south and a forbidding
+hole leading west. Bloodstains and deep scratches (perhaps made by
+an axe) mar the walls.
+A nasty-looking troll, brandishing a bloody axe, blocks all passages
+out of the room.
+Your sword has begun to glow very brightly.
+
+>THROW LANTERN AT TROLL
+
+The troll, who is remarkably coordinated, catches the brass lantern
+and not having the most discriminating tastes, gleefully eats it.
+You are left in the dark...
+
+>STAB TROLL
+
+It's too dark to see!
+
+>FIND TROLL
+
+It's too dark to see!
+
+>EXAMINE SWORD
+
+Your sword is glowing very brightly.
+
+>ATTACK TROLL
+
+(with the sword)
+It's too dark to see!
+
+>FIND LIGHT
+
+It's too dark to see!
+
+>S
+
+Oh, no! A lurking grue slithered into the room and devoured you!
+ 
+   ****  You have died  **** 
+
+The Troll Room
+This is a small room with passages to the east and south and a forbidding
+hole leading west. Bloodstains and deep scratches (perhaps made by
+an axe) mar the walls.
+A nasty-looking troll, brandishing a bloody axe, blocks all passages
+out of the room.
+Your sword has begun to glow very brightly.
+
+>KNOCK AXE
+
+That sentence isn't one I recognize.
+
+>THROW SWORD
+
+(at the troll)
+The troll, who is remarkably coordinated, catches the sword and, being
+for the moment sated, throws it back. Fortunately, the troll has poor
+control, and the sword falls to the floor. He does not look pleased.
+The axe gets you right in the side. Ouch!
+
+>TAKE SWORD
+
+Taken.
+The axe hits your sword and knocks it spinning.
+
+>AGAIN
+
+Taken.
+The troll neatly removes your head.
+It appears that that last blow was too much for you. I'm afraid you
+are dead.
+ 
+   ****  You have died  ****