From fa9390b02cfc7a96281587b254b9239d2eed0659 Mon Sep 17 00:00:00 2001
From: historicalsource <historicalsoftware@textfiles.com>
Date: Sat, 13 Apr 2019 23:50:54 -0400
Subject: [PATCH] Revision 22 (Original Source)

---
 README.md      |    1 +
 ante.zil       | 1441 +++++++++++++++++++++++++
 barge.zil      |  674 ++++++++++++
 camp.zil       | 2323 +++++++++++++++++++++++++++++++++++++++++
 clock.zil      |   66 ++
 crufty.zil     |   16 +
 cube.zil       |  395 +++++++
 diamond.zil    |  448 ++++++++
 globals.zil    |  878 ++++++++++++++++
 infidel.zil    |   73 ++
 infidel.zip    |  Bin 0 -> 93556 bytes
 interrupts.zil |  273 +++++
 macros.zil     |  136 +++
 main.zil       |  364 +++++++
 parser.zil     | 1150 ++++++++++++++++++++
 ra.zil         |  398 +++++++
 syntax.zil     |  710 +++++++++++++
 temple.zil     |  378 +++++++
 verbs.zil      | 2723 ++++++++++++++++++++++++++++++++++++++++++++++++
 19 files changed, 12447 insertions(+)
 create mode 100644 README.md
 create mode 100644 ante.zil
 create mode 100644 barge.zil
 create mode 100644 camp.zil
 create mode 100644 clock.zil
 create mode 100644 crufty.zil
 create mode 100644 cube.zil
 create mode 100644 diamond.zil
 create mode 100644 globals.zil
 create mode 100644 infidel.zil
 create mode 100644 infidel.zip
 create mode 100644 interrupts.zil
 create mode 100644 macros.zil
 create mode 100644 main.zil
 create mode 100644 parser.zil
 create mode 100644 ra.zil
 create mode 100644 syntax.zil
 create mode 100644 temple.zil
 create mode 100644 verbs.zil

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..d58a418
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# infidel
diff --git a/ante.zil b/ante.zil
new file mode 100644
index 0000000..08048f3
--- /dev/null
+++ b/ante.zil
@@ -0,0 +1,1441 @@
+;"		ANTECHAMBER for INFIDEL"
+
+<ROOM NORTH-ANTECHAMBER
+      (IN ROOMS)
+      (DESC "Antechamber")
+      (LDESC 
+"You are in the north end of the Chamber of Eternal Royalty. On the eastern
+and western walls are scenes carved in high relief depicting a royal figure,
+possibly meant to represent a new ruler, performing the ritual of the
+\"opening of the mouth and eyes\", the ceremony of restoring to the mummy
+of the departed Queen the use of its senses. The north wall of this area is
+a thick, solid wall of stone. In the center of this wall is a timber lintel
+on top of a doorway.")
+      (FLAGS RLANDBIT)
+      (SOUTH TO MID-ANTECHAMBER)
+      (NORTH TO BURIAL-CHAMBER IF NORTH-ANTE-DOOR IS OPEN ELSE
+"There's no way you can walk through the door.")
+      (IN TO BURIAL-CHAMBER IF NORTH-ANTE-DOOR IS OPEN ELSE
+"There's no way you can walk through the door.")
+      (GLOBAL NORTH-ANTE-DOOR DOORWAY HIEROGLYPHS)
+      (ACTION NORTH-ANTE-FCN)>
+
+<OBJECT T-LINTEL
+	(IN NORTH-ANTECHAMBER)
+	(FLAGS NDESCBIT DONTTAKE)
+	(DESC "timber lintel")
+	(SYNONYM LINTEL)
+	(ADJECTIVE TIMBER)>
+
+<ROUTINE NORTH-ANTE-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-BEG ,M-ENTER ,M-LOOK>
+		<COND (<EQUAL? ,BEAM-PLACED 4>
+		       <MOVE ,BEAM ,HERE>)>)>
+	 <RFALSE>>
+
+<ROOM MID-ANTECHAMBER
+      (IN ROOMS)
+      (DESC "Antechamber")
+      (LDESC 
+"You are in the middle of the Chamber of Eternal Royalty, the antechamber. The
+walls in this section of the antechamber are covered with beveled tiles of deep
+blue lapis lazuli and pink alabaster. At ceiling height, on the west wall, are
+paintings depicting the marriage of the goddess Isis and the god Osiris. The
+Antechamber stretches out to the north and the south. There's just enough light
+cast for you to see the outline of the bottomless pit in the passage to the
+east.")
+      (FLAGS RLANDBIT)
+      (NORTH TO NORTH-ANTECHAMBER)
+      (SOUTH TO SOUTH-ANTECHAMBER)
+      (EAST PER WALK-BEAM-FCN)
+      (OUT PER WALK-BEAM-FCN)
+      (GLOBAL DOORWAY PIT PICTURE-PANELS GEMS)
+      (ACTION MOVE-PLANK-FCN)>
+
+<OBJECT TILES
+	(IN MID-ANTECHAMBER)
+	(DESC "tiles")
+	(FLAGS DONTTAKE TRYTAKEBIT NDESCBIT)
+	(SYNONYM TILES IVORY)
+	(TEXT "Quite beautiful, no?")>
+
+<OBJECT PIT
+	(IN LOCAL-GLOBALS)
+	(DESC "deep pit")
+	(FLAGS NDESCBIT INVISIBLE)
+	(SYNONYM PIT)
+	(ADJECTIVE DEEP)
+	(ACTION PIT-FCN)>
+
+<ROUTINE PIT-FCN ()
+	 <COND (<VERB? THROUGH>
+		<DO-WALK ,P?DOWN>)
+	       (<VERB? LOOK-INSIDE LOOK-DOWN EXAMINE>
+		<TELL "It's too deep and dark to see much of anything." CR>
+		<RTRUE>)
+	       (<VERB? LISTEN>
+		<TELL "You hear the squealing of rats. Hungry rats." CR>
+		<RTRUE>)>>
+
+<ROUTINE MOVE-PLANK-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-BEG ,M-ENTER ,M-LOOK>
+		<COND (<EQUAL? ,BEAM-PLACED 1 5>
+		       <MOVE ,BEAM ,HERE>)>
+		<COND (<EQUAL? ,HERE ,MID-ANTECHAMBER ,MID-PASSAGE>
+		       <SETG ON-BEAM <>>)>
+		<COND (<NOT <EQUAL? .RARG ,M-BEG>>
+		       <RFALSE>)
+		      (<NOT <VERB? DROP THROW PUT>>
+		       <RFALSE>)
+		      (<AND <VERB? PUT>
+			    <NOT <PRSI? ,PIT>>>
+		       <RFALSE>)
+		      (<FSET? ,PIT ,INVISIBLE>
+		       <RFALSE>)
+		      (<AND <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+			    <AND <NOT <EQUAL? ,PRSO ,WINNER ,ME ,ADVENTURER>>
+				 <NOT <EQUAL? ,PRSO ,NOT-HERE-OBJECT>>
+				 <IN? ,PRSO ,WINNER>>
+			    <EQUAL? .RARG ,M-BEG>>
+		       <REMOVE ,PRSO>
+		       <TELL "You hear the " D ,PRSO
+			     " hit the bottom of the deep pit." CR>
+		       <SETG P-IT-LOC <>>
+		       <COND (<PRSO? ,TORCH>
+			      <KILL-TORCH>)>
+		       <RTRUE>)>
+		<RFALSE>)>>
+	 
+<ROUTINE WALK-BEAM-FCN ()
+	 <COND (<NOT <EQUAL? ,BEAM-PLACED 1 5>>
+		<JIGS-UP
+"You step into air then plummet into a deep pit, the home of a rat pack.">)
+	       (T 
+		<SETG ON-BEAM T>
+		<MOVE ,BEAM ,WEST-END-OF-PASSAGE>
+		,WEST-END-OF-PASSAGE)>>
+
+<OBJECT LINTEL
+	(IN WEST-END-OF-PASSAGE)
+	(FLAGS NDESCBIT CONTBIT OPENBIT DONTTAKE)
+	(DESC "timber frame")
+	(SYNONYM FRAME)
+	(ADJECTIVE TIMBER)
+	(TEXT
+"The timber frame surrounds the doorway.")
+	(ACTION BURN-FRAME-FCN)>
+
+<ROUTINE BURN-FRAME-FCN ()
+	 <COND (<VERB? BURN>
+		<TELL
+"You light the timber frame surrounding the door. The wood is slow to catch,
+but then, in a bursting flash, the entire frame is consumed. You shield your
+eyes and move back to keep from being burned, but as you take a step back, ">
+		<COND (<NOT ,ON-BEAM>
+		       <JIGS-UP
+"your foot lands on empty space and you plummet downward to darkness.">)
+		      (T
+		       <JIGS-UP
+"you lose your balance on the mast. Your foot misses the mast and you slip,
+falling into the darkness below.">)>)>> 
+
+<ROOM SOUTH-ANTECHAMBER
+      (IN ROOMS)
+      (DESC "Antechamber")
+      (LDESC
+"You are in the southern end of the Chamber of Eternal Royalty. From here you
+can see the room stretching out towards the north. The south wall is painted to
+resemble large baskets of lotus flowers with their blue petals framing an image
+of the Sun God, Amun Ra. The west wall has a timber doorway, inset several feet
+into the rocks, outlining a door.")
+      (FLAGS RLANDBIT)
+      (NORTH TO MID-ANTECHAMBER)
+      (WEST TO ANNEX IF ANNEX-DOOR IS OPEN ELSE
+"The way to the west is blocked by a closed door.")
+      (IN TO ANNEX IF ANNEX-DOOR IS OPEN ELSE
+"The way to the west is blocked by a closed door.")
+      (GLOBAL HIEROGLYPHS DOORWAY ANNEX-DOOR)
+      (ACTION ANNEX-BEAM-MOVER)>
+
+<OBJECT ROCKS
+	(IN SOUTH-ANTECHAMBER)
+	(FLAGS NDESCBIT DONTTAKE CONTBIT OPENBIT SURFACEBIT)
+	(DESC "rocks")
+	(CAPACITY 35)
+	(SYNONYM ROCKS)
+	(ACTION ROCKS-FCN)>
+
+<ROUTINE ROCKS-FCN ()
+	 <COND (<AND <VERB? PUT-UNDER PUT-AGAINST PUT>
+		     <EQUAL? ,PRSI ,ROCKS>
+		     <NOT <EQUAL? ,PRSO ,BEAM>>>
+		<TELL "Weird!" CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<EQUAL? ,BEAM-PLACED 2 3>
+		       <TELL "The rocks support the beam." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <TELL "I see nothing special about the rocks." CR>
+		       <RTRUE>)>)
+	       (<VERB? OPEN CLOSE>
+		<TELL
+"Huh? The rocks? Come on! They're on either side of the doorway!" CR>
+		<RTRUE>)>
+	 <RFALSE>>
+
+<OBJECT CHIPS1
+	(FLAGS NDESCBIT TAKEBIT DONTTAKE TOUCHBIT)
+	(DESC "plaster dust")
+	(SYNONYM DUST CHIP CHIPS)
+	(TEXT
+"The dust and chips are just remnants of your incessant tapping, tapping at the
+chamber door. Only this and nothing more.")
+	(ACTION TAKE-A-CHIP-FCN)>
+
+<OBJECT CHIPS2
+	(FLAGS NDESCBIT TAKEBIT DONTTAKE TOUCHBIT)
+	(DESC "plaster dust")
+	(SYNONYM DUST CHIP CHIPS)
+	(TEXT
+"The dust and chips are just remnants of your incessant tapping, tapping at the
+chamber door. Only this and nothing more.")
+	(ACTION TAKE-A-CHIP-FCN)>
+
+<ROUTINE TAKE-A-CHIP-FCN ()
+	 <COND (<VERB? TAKE PUT MOVE RAISE
+		       PULL-UP MUNG PUT>
+		<TELL
+"Be serious. Have you any acquaintance with particle physics? How about quarks?
+Know anything about quarks? Let me put it to you this way: There are more
+pieces of plaster dust and chips here than you have seconds in your life." CR>
+		<RTRUE>)>>
+
+<ROOM ANNEX
+      (IN ROOMS)
+      (DESC "Annex")
+      (LDESC
+"You are in the Chamber of Rebirth, the Annex. As you gaze about this small
+room, strange kohl-rimmed eyes gaze back at you from the painted figures
+which cover all of the walls. There are scenes of a great procession, with
+white-clad princesses offering gifts of precious oils and papyri to the
+mummified figure of the Queen. Bastet, the cat goddess, holds the mummy
+erect. Above you, painted on the ceiling, is the image of Tueris, the
+hippopotamus goddess. The only way out is through the doorway to the east.")
+      (FLAGS RLANDBIT)
+      (EAST TO SOUTH-ANTECHAMBER IF ANNEX-DOOR IS OPEN)
+      (OUT TO SOUTH-ANTECHAMBER IF ANNEX-DOOR IS OPEN)
+      (GLOBAL ANNEX-DOOR DOORWAY PICTURES)
+      (ACTION ANNEX-BEAM-MOVER)>
+
+<ROUTINE ANNEX-BEAM-MOVER (RARG)
+	 <COND (<EQUAL? .RARG ,M-BEG ,M-ENTER ,M-LOOK>
+		<COND (<EQUAL? ,BEAM-PLACED 2 3>
+		       <MOVE ,BEAM ,HERE>)>)>
+	 <RFALSE>>
+
+<OBJECT SLAB
+	(IN ANNEX)
+	(FLAGS DONTTAKE CONTBIT SURFACEBIT OPENBIT)
+	(DESC "slab")
+	(SYNONYM SLAB)
+	(ADJECTIVE HUGE STONE)
+	(CAPACITY 200)
+	(DESCFCN DESCRIBE-SLAB-FCN) 
+	(ACTION OPEN-SLAB-FCN)>
+
+<OBJECT SLAB-SEAM
+	(IN ANNEX)
+	(FLAGS NDESCBIT DONTTAKE CONTBIT)
+	(DESC "thin seam")
+	(CAPACITY 1)
+	(SYNONYM SEAM)
+	(ADJECTIVE THIN)
+	(ACTION SEAM-FCN)>
+
+<ROUTINE SEAM-FCN ()
+	 <COND (<AND <EQUAL? ,PRSO ,SLAB-SEAM>
+		     <NOT <FSET? ,SLAB ,SURFACEBIT>>>
+		<TELL "I see no seam here." CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"The seam is barely visible. It goes into the edge of the slab no more than an
+eighth of an inch." CR>)
+	       (<AND <VERB? PUT PUT-ACROSS PUT-ON>
+		     <PRSI? ,SLAB-SEAM>>
+		<TELL "It's not deep enough to wedge anything into it." CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,SLAB-SEAM>
+		<RTRUE>)>>
+	       
+<ROUTINE OPEN-SLAB-FCN ("AUX" (FLG <>))
+	 <COND (<VERB? OPEN RAISE MOVE>
+		<COND (<NOT <FSET? ,SLAB ,SURFACEBIT>>
+		       <TELL "It's already open." CR>
+		       <RTRUE>)
+		      (<AND <IN? ,ISIS-JEWEL ,HOLE-3>
+			    <IN? ,NEPHTH-JEWEL ,HOLE-1>
+			    <IN? ,SELKIS-JEWEL ,HOLE-2>
+			    <IN? ,NEITH-JEWEL ,HOLE-4>>
+		       <TBL-TO-INSIDE ,SLAB ,SLAB-TBL
+"The slab opens slowly and gracefully as if some internal mechanism balanced
+its huge weight.">
+		       <RTRUE>)
+		      (T
+		       <TELL "It won't budge." CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? CLOSE>
+		     <NOT <FSET? ,SLAB ,SURFACEBIT>>>
+		<COND (<AND <IN? ,TORCH ,SLAB>
+			    <FLAMING? ,TORCH>>
+		       <SET FLG T>)>
+	        <INSIDE-OBJ-TO ,SLAB-TBL ,SLAB>
+		<COND (.FLG
+		       <KILL-TORCH T>)>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<DESCRIBE-SLAB-FCN ,M-OBJDESC>
+		<RTRUE>)>>
+
+<GLOBAL SLAB-TBL ;"Thirt (30) slots to hold objects in the slab"
+	<LTABLE DEAD-BOOK SPATULA 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0>>
+
+<ROUTINE HOLEY (H "OPTIONAL" (X? <>) "AUX" OBJ)
+	 <SET OBJ <FIRST? .H>>
+	 <COND (<NOT .OBJ>
+		<COND (<EQUAL? .X? T>
+		       <TELL " The " D .H " is empty.">
+		       <RTRUE>)
+		      (T
+		       <RTRUE>)>)>
+	 <TELL " Sitting in the " D .H " is a">
+	 <VOWEL? .OBJ>
+	 <TELL D .OBJ ".">>
+
+<ROUTINE DESCRIBE-SLAB-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-OBJDESC>
+		<TELL
+"Sitting in the middle of this room is a huge stone slab.">
+	 <COND (<FSET? ,SLAB ,SURFACEBIT>
+		<TELL
+" Around its side runs a seam which is barely detectable. On top of the slab
+are four round holes, one in each corner.">
+		<HOLEY ,HOLE-1>
+		<HOLEY ,HOLE-2>
+		<HOLEY ,HOLE-3>
+		<HOLEY ,HOLE-4>
+		<COND (<FIRST? ,SLAB>
+		       <TELL " Sitting on the top of the slab ">
+		       <COND (<G? <CCOUNT ,SLAB> 1>
+			      <TELL "are ">)
+			     (T <TELL "is ">)>
+		       <PRINT-CONTENTS ,SLAB>
+		       <TELL ".">)>
+		<CRLF>
+		<RTRUE>)
+	       (T <TELL " The slab is open">
+		<COND (<FIRST? ,SLAB>
+		       <TELL " and holds ">
+		       <PRINT-CONTENTS ,SLAB>)
+		      (T <TELL " and quite empty">)>
+		<TELL "." CR>
+		<RTRUE>)>)>>
+
+<OBJECT HOLE-4
+	(IN ANNEX)
+	(FLAGS NDESCBIT CONTBIT DONTTAKE OPENBIT)
+	(DESC "fourth hole")
+	(SYNONYM HOLE HOLES)
+	(ADJECTIVE FOURTH)
+	(CAPACITY 2)
+	(MAP 2)
+	(CONTFCN D-HOLE-FCN)
+	(ACTION DIAMOND-HOLE-FCN)>
+
+<OBJECT HOLE-3
+	(IN ANNEX)
+	(FLAGS NDESCBIT CONTBIT DONTTAKE OPENBIT)
+	(DESC "third hole")
+	(SYNONYM HOLE HOLES)
+	(ADJECTIVE THIRD)
+	(CAPACITY 2)
+	(MAP 2)
+	(CONTFCN D-HOLE-FCN)
+	(ACTION DIAMOND-HOLE-FCN)>
+
+<OBJECT HOLE-2
+	(IN ANNEX)
+	(FLAGS NDESCBIT CONTBIT DONTTAKE OPENBIT)
+	(DESC "second hole")
+	(SYNONYM HOLE HOLES)
+	(ADJECTIVE SECOND)
+	(CAPACITY 2)
+	(MAP 2)
+	(CONTFCN D-HOLE-FCN)
+	(ACTION DIAMOND-HOLE-FCN)>
+
+<OBJECT HOLE-1
+	(IN ANNEX)
+	(FLAGS NDESCBIT CONTBIT DONTTAKE OPENBIT)
+	(DESC "first hole")
+	(SYNONYM HOLE HOLES)
+	(ADJECTIVE FIRST)
+	(CAPACITY 2)
+	(MAP 2)
+	(CONTFCN D-HOLE-FCN)
+	(ACTION DIAMOND-HOLE-FCN)>
+
+<ROUTINE D-HOLE-FCN ()
+	 <COND (<AND <VERB? TAKE>
+		     <OR <EQUAL? <LOC ,PRSO> ,HOLE-1 ,HOLE-2>
+			 <EQUAL? <LOC ,PRSO> ,HOLE-3 ,HOLE-4>>>
+		<COND (<ITAKE>
+		       <FCLEAR ,PRSO ,NDESCBIT>
+		       <TELL "Taken." CR>
+		       <RTRUE>)
+		      (T
+		       <RTRUE>)>)>>
+
+<ROUTINE DIAMOND-HOLE-FCN ("AUX" (FLG <>))
+	 <COND (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <OR <PRSO? ,HOLE-1 ,HOLE-2 ,HOLE-3>
+			 <PRSO? ,HOLE-4>>>
+		<TELL "The hole sits in the ">
+		<COND (<EQUAL? ,PRSO ,HOLE-1>
+		       <TELL "northwest">)
+		      (<EQUAL? ,PRSO ,HOLE-2>
+		       <TELL "northeast">)
+		      (<EQUAL? ,PRSO ,HOLE-3>
+		       <TELL "southwest">)
+		      (T <TELL "southeast">)>
+		<TELL " corner of the slab.">
+		<HOLEY ,PRSO T>
+		<CRLF>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <OR <PRSI? ,HOLE-1 ,HOLE-2 ,HOLE-3>
+			 <PRSI? ,HOLE-4>>>
+		<COND (<FIRST? ,PRSI>
+		       <TELL "The hole is already filled." CR>
+		       <RTRUE>)
+		      (<AND <PRSI? ,HOLE-1>
+			    <PRSO? ,NEPHTH-JEWEL>>
+		       <SET FLG T>)
+		      (<AND <PRSI? ,HOLE-2>
+			    <PRSO? ,SELKIS-JEWEL>>
+		       <SET FLG T>)
+		      (<AND <PRSI? ,HOLE-3>
+			    <PRSO? ,ISIS-JEWEL>>
+		       <SET FLG T>)
+		      (<AND <PRSI? ,HOLE-4>
+			    <PRSO? ,NEITH-JEWEL>>
+		       <SET FLG T>)>
+		<FSET ,PRSO ,NDESCBIT>
+		<COND (<NOT .FLG>
+		       <RFALSE>)
+		      (T
+		       <TELL 
+"Done. A light click comes from beneath the corner." CR>
+		       <MOVE ,PRSO ,PRSI>
+		       <RTRUE>)>)>>
+	
+<ROOM BURIAL-CHAMBER
+      (IN ROOMS)
+      (DESC "Burial Chamber")
+      (SOUTH TO NORTH-ANTECHAMBER IF NORTH-ANTE-DOOR IS OPEN)
+      (EAST TO TREASURY)
+      (FLAGS RLANDBIT)
+      (ACTION BURIAL-CHAMBER-DESC)
+      (LDESC "LDESC")
+      (GLOBAL NORTH-ANTE-DOOR DOORWAY)>
+
+<ROUTINE BURIAL-CHAMBER-DESC (RARG "AUX" (OFFSET -1) (HOLDING 0) TEMP-HOLD)
+	 <COND (<EQUAL? .RARG ,M-BEG ,M-LOOK ,M-ENTER>
+		<COND (<AND <EQUAL? <LOC ,BEAM> ,BURIAL-CHAMBER 
+				    ,NORTH-ANTECHAMBER>
+			    ,BEAM-PLACED>
+		       <MOVE ,BEAM ,HERE>)>)>
+	 <COND (<NOT <EQUAL? .RARG ,M-LOOK>>
+		<RFALSE>)>
+	 <TELL
+"You have entered the Chamber of Departure Towards the Funeral Destinies, the
+Burial Chamber. There is a doorway leading into a small room off to the east.
+In the middle of the chamber, stretching almost from wall to wall, is a huge,
+ancient sarcophagus. Its cover is composed of pure quartz and through the
+shining light you can see the golden, gleaming mummiform coffin. ">
+	 <DESCRIBE-COVER>
+	 <REPEAT ()
+		 <SET OFFSET <+ .OFFSET 1>>
+		 <COND (<G? .OFFSET 3>
+			<RETURN>)
+		       (<FSET? <GET ,STATUE-TBL .OFFSET> ,CLAMPBIT>
+			<SET HOLDING <+ .HOLDING 1>>)>>
+	 <TELL
+" Four statues surround the sarcophagus, one in each corner: Isis, Nephthys,
+Neith and Selkis. ">
+	 <COND (<EQUAL? .HOLDING 4>
+		<TELL 
+"Their outstretched arms clamp down tightly on the quartz cover." CR>
+		<RTRUE>)
+	       (<0? .HOLDING>
+		<TELL
+"All four statues face away from the quartz cover, their grip on it released." CR>
+		<RTRUE>)>
+	 <SET OFFSET -1>
+	 <SET TEMP-HOLD .HOLDING>
+	 <REPEAT ()
+		 <COND (<0? .HOLDING>
+			<RETURN>)
+		       (ELSE
+			<SET OFFSET <+ .OFFSET 1>>
+			<COND (<FSET? <GET ,STATUE-TBL .OFFSET> ,CLAMPBIT>
+			       <TELL <GET ,STATUE-NAME-TBL .OFFSET>>
+			       <COND (<G? .HOLDING 2>
+				      <TELL ", ">)
+				     (<G? .HOLDING 1>
+				      <TELL " and ">)>
+			       <SET HOLDING <- .HOLDING 1>>)>)>>
+	 <COND (<G? .TEMP-HOLD 1>
+		<TELL " are ">)
+	       (T <TELL " is ">)>
+	 <TELL "facing inward, ">
+	 <COND (<G? .TEMP-HOLD 1>
+		<TELL "their">)
+	       (T <TELL "its">)>
+	 <TELL 
+" heavy arms clamping down tightly over the quartz cover of the
+sarcophagus." CR>>
+
+<ROOM TREASURY
+      (IN ROOMS)
+      (DESC "Treasury")
+      (LDESC
+"You are in the Chamber of Reconstitution of the Body, the Treasury. To the
+west is a doorway leading back into the Burial Chamber.")
+      (FLAGS RLANDBIT)
+      (WEST TO BURIAL-CHAMBER)
+      (OUT TO BURIAL-CHAMBER)>
+
+<OBJECT SCARAB-TABLE
+	(IN TREASURY)
+	(FLAGS CONTBIT OPENBIT DONTTAKE)
+	(DESC "granite table")
+	(SYNONYM TABLE)
+	(ADJECTIVE GRANITE)
+	(CAPACITY 100)
+	(DESCFCN PROB-DESC)
+	(ACTION SCARAB-TABLE-F)>
+
+<ROUTINE SCARAB-TABLE-F ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<PROB-DESC 15>
+		<RTRUE>)>>
+
+<ROUTINE DISC-CONTFCN ()
+	 <COND (<AND <VERB? TAKE>
+		     <EQUAL? <LOC ,PRSO> ,LEFT-DISC ,RIGHT-DISC>
+		     <NOT <IN? ,SCARAB ,MID-DISC>>>
+		<JIGS-UP
+"You should have left well enough alone. As you pick it up, the discs go wildly
+out of balance and, before you realize what you've done, the ceiling comes down
+to meet the floor. Unfortunately, you were between them at the time.">
+		<RFATAL>)>>
+
+<OBJECT LEFT-DISC
+	(IN SCARAB-TABLE)
+	(DESC "left disc")
+	(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT DONTTAKE TRANSBIT)
+	(CAPACITY 30)
+	(SYNONYM DISC)
+	(ADJECTIVE LEFT)
+	(CONTFCN DISC-CONTFCN)
+	(ACTION PUSH-DISC-FCN)>
+ 
+<OBJECT RIGHT-DISC
+	(IN SCARAB-TABLE)
+	(DESC "right disc")
+	(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT DONTTAKE TRANSBIT)
+	(CAPACITY 30)
+	(SYNONYM DISC)
+	(ADJECTIVE RIGHT)
+	(CONTFCN DISC-CONTFCN)
+	(ACTION PUSH-DISC-FCN)>
+
+<OBJECT MID-DISC
+	(IN SCARAB-TABLE)
+	(DESC "middle disc")
+	(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT DONTTAKE TRANSBIT)
+	(CAPACITY 30)
+	(SYNONYM DISC)
+	(ADJECTIVE MIDDLE)
+	(ACTION PUSH-DISC-FCN)>
+
+<ROUTINE PUSH-DISC-FCN ("AUX" LEFT-STATUS RIGHT-STATUS L-WEIGHT R-WEIGHT)
+	 <COND (<NOT <EQUAL? ,PRSO ,LEFT-DISC ,RIGHT-DISC ,MID-DISC>>
+		<RFALSE>)
+	       (<VERB? PUSH MOVE>
+		<TELL 
+"The discs float up and down several times until they come back into balance."
+		      CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<SET LEFT-STATUS <FIRST? ,LEFT-DISC>>
+		<SET RIGHT-STATUS <FIRST? ,RIGHT-DISC>>
+		<COND (.LEFT-STATUS
+		       <SET L-WEIGHT <WEIGHT .LEFT-STATUS>>)>
+		<COND (.RIGHT-STATUS
+		       <SET R-WEIGHT <WEIGHT .RIGHT-STATUS>>)>
+		<COND (<PRSO? ,LEFT-DISC>
+		       <TELL-ABOUT ,LEFT-DISC .L-WEIGHT .R-WEIGHT>
+		       <CRLF>)
+		      (<PRSO? ,MID-DISC>
+		       <TELL-ABOUT ,MID-DISC .L-WEIGHT .R-WEIGHT>
+		       <CRLF>)
+		      (T
+		       <TELL-ABOUT ,RIGHT-DISC .R-WEIGHT .L-WEIGHT>)>
+		<RTRUE>)>>
+
+<ROUTINE PROB-DESC
+	 (RARG "AUX" LEFT-STATUS RIGHT-STATUS (L-WEIGHT 0) (R-WEIGHT 0))
+	 <COND (<NOT <EQUAL? .RARG ,M-OBJDESC 15>>
+		<RFALSE>)>
+	 <SET LEFT-STATUS <FIRST? ,LEFT-DISC>>
+	 <SET RIGHT-STATUS <FIRST? ,RIGHT-DISC>>
+	 <COND (.LEFT-STATUS
+		<SET L-WEIGHT <WEIGHT .LEFT-STATUS>>)>
+	 <COND (.RIGHT-STATUS
+		<SET R-WEIGHT <WEIGHT .RIGHT-STATUS>>)>
+	 <COND (<EQUAL? .RARG ,M-OBJDESC>
+		<TELL
+"In the room is a large, granite table. Cut out from the top of this table are
+three circles of polished granite. ">)>
+	 <TELL-ABOUT ,LEFT-DISC .L-WEIGHT .R-WEIGHT>
+	 <TELL " ">
+	 <TELL-ABOUT ,MID-DISC .L-WEIGHT .R-WEIGHT>
+	 <TELL " ">
+	 <TELL-ABOUT ,RIGHT-DISC .R-WEIGHT .L-WEIGHT>>
+	 
+<ROUTINE TELL-ABOUT (DISC W-1 W-2 "AUX" (BALANCED <>) (SAFE <>) (EMPTY <>)
+		     OBJ OFFSET POSITION INCHES)
+	 <SET POSITION "even with">
+	 <COND (<AND <0? .W-1>
+		     <0? .W-2>>
+		<SET EMPTY T>)>
+	 <COND (<NOT <FIRST? .DISC>>
+		<TELL "The " D .DISC " is empty, and it is ">)
+	       (T
+		<SET OBJ <FIRST? .DISC>>
+		<TELL "Sitting on the " D .DISC " is a">
+		<VOWEL? .OBJ>
+		<TELL D .OBJ ", and the " D .DISC " is ">)>
+	 <COND (<AND <EQUAL? .W-2 .W-1>
+		     <NOT .EMPTY>>
+		<SET BALANCED T>)>
+	 <COND (.BALANCED
+		<COND (<EQUAL? .W-1 8>
+		       <SET SAFE T>)>)>
+	 <COND (<G? .W-1 .W-2>
+		<SET POSITION "below">)
+	       (<G? .W-2 .W-1>
+		<SET POSITION "above">)
+	       (.EMPTY
+		<SET POSITION "above">)
+	       (<AND .BALANCED
+		     <NOT .SAFE>>
+		<SET POSITION "below">)>
+	 <COND (<AND <NOT .BALANCED>
+		     <NOT .EMPTY>>
+		<SET OFFSET <ABS <- .W-1 .W-2>>>)
+	       (.EMPTY
+		<SET OFFSET 1>)
+	       (<NOT .SAFE>
+		<SET OFFSET <ABS <- .W-1 8>>>)>
+	 <COND (.SAFE
+		<SET INCHES "exactly">)
+	       (<G? .OFFSET 8>
+		<SET INCHES "9 inches">)
+	       (T
+		<SET INCHES <GET ,INCH-LTBL .OFFSET>>)>
+	 <COND (<EQUAL? .DISC ,MID-DISC>
+		<COND (<AND .SAFE
+			    <FIRST? .DISC>>
+		       <TELL "slightly above">)
+		      (<FIRST? .DISC>
+		       <TELL "slightly below">)
+		      (T
+		       <TELL "exactly even with">)>)
+	       (<EQUAL? .DISC ,LEFT-DISC ,RIGHT-DISC>
+		<TELL .INCHES " " .POSITION>)>
+	 <TELL " the top of the table.">
+	 <COND (<EQUAL? .DISC ,RIGHT-DISC>
+		<CRLF>)>>
+
+<GLOBAL INCH-LTBL
+	<LTABLE "one inch" "two inches" "three inches" "four inches"
+		"five inches" "six inches" "seven inches" "eight inches">>
+
+<ROOM TOP-OF-STAIRS
+      (IN ROOMS)
+      (DESC "Top of Stairway")
+      (LDESC 
+"You are at the top of a sixteen-step stairway. It leads west and down. The
+strange passageway into the cube rooms lies to the south. The walls here are
+painted in somber colors -- deep ochres, browns and blacks, but the scenes the
+paintings depict are oddly gay. Priests smile, their hands lifted up high to
+Amun Ra, offering flower petals in their palms, while a young girl, bedecked
+in black, stands by watching, a twisted smile on her face.")
+      (FLAGS RLANDBIT)
+      (WEST TO STAIRS-BOTTOM)
+      (DOWN TO STAIRS-BOTTOM)
+      (SOUTH TO SECRET-PASSAGE)
+      (UP TO SECRET-PASSAGE)
+      (GLOBAL PICTURES STAIRS)>
+      
+
+<ROOM STAIRS-BOTTOM 
+      (IN ROOMS)
+      (DESC "Bottom of Stairs")
+      (LDESC
+"You are at the bottom of the sixteen-step stairway. The stairway goes up to
+the east, while to the west is solid plaster. Painted on the plaster
+are some hieroglyphs.") 
+       (FLAGS RLANDBIT)
+       (WEST TO EAST-END-OF-PASSAGE IF PLASTER-GONE ELSE
+"Solid plaster is blocking your way.")
+       (EAST TO TOP-OF-STAIRS)
+       (UP TO TOP-OF-STAIRS)
+       (GLOBAL HIEROGLYPHS STAIRS DOORWAY)>
+
+<ROOM EAST-END-OF-PASSAGE
+      (IN ROOMS)
+      (DESC "Narrow Passageway")
+      (LDESC 
+"You are at the east end of what seems like a long, straight passageway. After
+carefully looking over the walls, stones and floor, you determine that it is
+safe to proceed.")
+      (EAST TO STAIRS-BOTTOM)
+      (WEST TO MID-PASSAGE)
+      (FLAGS RLANDBIT)>
+
+<ROOM MID-PASSAGE
+      (IN ROOMS)
+      (DESC "Narrow Passageway")
+      (LDESC
+"You are in the middle of a long, east/west passage. The passage is narrow and
+seems to be little more than a hallway hewn out of stone.")
+      (FLAGS RLANDBIT)
+      (WEST TO WEST-END-OF-PASSAGE)
+      (EAST TO EAST-END-OF-PASSAGE)>
+
+<ROOM WEST-END-OF-PASSAGE
+      (IN ROOMS)
+      (DESC "Narrow Passageway")
+      (LDESC 
+"You have reached the west end of the passage. Before you is a door surrounded
+by a heavy timber frame. The door is entirely blocked up with plaster. Toward
+the bottom of the north wall and the south wall, about three inches off the
+floor, are two small niches. There are some hieroglyphs on the plaster.")
+      (FLAGS RLANDBIT)
+      (EAST TO MID-PASSAGE)
+      (WEST PER JERRY-HACK-F)
+      (GLOBAL DOORWAY HIEROGLYPHS PIT)
+      (ACTION MOVE-PLANK-FCN)>
+
+<ROUTINE JERRY-HACK-F ()
+	 <COND (<FSET? ,INNER-DOOR ,OPENBIT>
+		<RETURN ,MID-ANTECHAMBER>)
+	       (T
+		<TELL "You can't walk through a closed door." CR>
+		<THIS-IS-IT ,INNER-DOOR>
+		<RFALSE>)>>
+
+<OBJECT NICHES
+	(IN WEST-END-OF-PASSAGE)
+	(FLAGS NDESCBIT DONTTAKE CONTBIT OPENBIT)
+	(DESC "small niche")
+	(TEXT
+"Each small niche rests about three inches off the floor. They are recessed
+into the walls, one on either side of the passageway.")
+	(SYNONYM NICHE NICHES)
+	(ADJECTIVE SMALL)
+	(CAPACITY 1)
+	(ACTION NICHE-F)>
+
+<ROUTINE NICHE-F ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL <GETP ,NICHES ,P?TEXT>>
+		<COND (<EQUAL? ,BEAM-PLACED 1>
+		       <TELL " Resting in the niches is the wooden beam.">)>
+		<CRLF>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>)>>
+
+<OBJECT PLASTER1
+	(IN STAIRS-BOTTOM)
+	(FLAGS NDESCBIT TAKEBIT TRYTAKEBIT DONTTAKE)
+	(DESC "plaster")
+	(SYNONYM PLASTE)
+	(SIZE 5)
+	(TEXT
+"Some hieroglyphics on the plaster say:|
+|
+   *->  #  !!!  ::  ...>  .-")
+	(ACTION PLASTER1-FCN)>
+
+<ROUTINE PLASTER1-FCN ()
+	 <COND (<VERB? TAKE MUNG ATTACK>
+		<COND (<NOT ,PRSI>
+		       <COND (<IN? ,PICK-AXE ,WINNER>
+			      <SETG PRSI ,PICK-AXE>)
+			     (<IN? ,SHOVEL ,WINNER>
+			      <SETG PRSI ,SHOVEL>)
+			     (ELSE
+			      <SETG PRSI ,HANDS>)>
+		       <TELL "(with your " D ,PRSI ")" CR>)>
+		<COND (<PRSI? ,PICK-AXE>
+		       <REMOVE ,PLASTER1>
+		       <SETG P-IT-LOC <>>
+		       <MOVE ,PLASTER ,WEST-END-OF-PASSAGE>
+		       <SETG SCORE <+ ,SCORE 10>>
+		       <TELL
+"The chips fly where they may as you relentlessly flail at the plaster with
+your trusty pick axe. In just a few minutes you manage to clear all the
+plaster from the doorway." CR>
+		       <SETG PLASTER-GONE T>
+		       <PUTP ,STAIRS-BOTTOM ,P?LDESC
+"You are at the bottom of the sixteen-step stairway. The stairway goes up to
+the east, while the way to the west has been cleared.">
+		       <MOVE ,CHIPS1 ,HERE>
+		       <RTRUE>)
+		      (T <TELL
+"You scratch at the plaster but accomplish little."
+                          CR>)>)>>
+
+<OBJECT INNER-DOOR
+	(IN WEST-END-OF-PASSAGE)
+	(FLAGS NDESCBIT DOORBIT VOWELBIT DONTTAKE)
+	(SYNONYM DOOR)
+	(ADJECTIVE INNER)
+	(DESC "inner door")
+	(ACTION INNER-DOOR-FCN)>
+
+<ROUTINE INNER-DOOR-FCN ()
+	 <COND (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <IN? ,PLASTER ,HERE>>
+		<TELL 
+"The door is surrounded by a heavy timber frame and is entirely blocked up
+with plaster. There are some hieroglyphs on the plaster." CR>
+		<RTRUE>)
+	       (<VERB? OPEN>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "It's already open." CR>
+		       <RTRUE>)
+		      (,INNER-DOOR-SEALED
+		       <TELL "The door is covered with plaster, which is in turn covered with hieroglyphs." CR>)
+		      (T
+		       <TELL
+"The door opens and you are overwhelmed by a musky odor." CR>
+		       <FSET ,INNER-DOOR ,OPENBIT>
+		       <RTRUE>)>)
+	       (<VERB? CLOSE>
+		<COND (<NOT <FSET? ,INNER-DOOR ,OPENBIT>>
+		       <TELL "It isn't open." CR>)
+		      (T <TELL
+"Okay. The door is closed." CR>
+		       <FCLEAR ,INNER-DOOR ,OPENBIT>)>)>>
+
+<OBJECT PLASTER
+	(FLAGS NDESCBIT TAKEBIT DONTTAKE TRYTAKEBIT)
+	(SYNONYM PLASTE)
+	(DESC "plaster")
+	(TEXT
+"The plaster is ancient, applied to the door behind it to prevent people from
+entering the resting place of the Queen. Some hieroglyphs are etched into the
+plaster.")
+	(SIZE 5)
+	(ACTION PLASTER-FCN)>
+
+<GLOBAL DEATH-BEAM-STR
+"The plaster starts to chip away beneath the incessant tapping of your pick
+axe. You quickly realize, however, that the tapping has started some sand
+flowing out of the bottom of the doorway. Just as you realize the seriousness
+of your situation, the floor gives out beneath you and you plummet down, down,
+down into a den of voracious rats...">
+
+<ROUTINE PLASTER-FCN ("AUX" (FLG <>))
+	 <COND (<VERB? TAKE MUNG ATTACK>
+		<COND (<NOT ,PRSI>
+		       <SET FLG T>
+		       <COND (<IN? ,PICK-AXE ,WINNER>
+			      <SETG PRSI ,PICK-AXE>)
+			     (<IN? ,SHOVEL ,WINNER>
+			      <SETG PRSI ,SHOVEL>)
+			     (T
+			      <SETG PRSI ,HANDS>)>)>
+		<COND (.FLG
+		       <TELL "(with your " D ,PRSI ")" CR>)>
+		<COND (<EQUAL? ,PRSI ,PICK-AXE>
+		       <COND (<NOT ,BEAM-PLACED>
+			      <JIGS-UP ,DEATH-BEAM-STR>)
+			     (<NOT ,ON-BEAM>
+			      <TELL ,DEATH-BEAM-STR>
+			      <JIGS-UP
+			       " You wave to the beam stretching across the gap as you hurtle past it.">) 
+			     (T
+			      <TELL
+"The plaster chips fly from the door as the incessant tapping of your pick
+axe does its work. The tapping has started some sand flowing out of
+the bottom of the doorway and the floor starts to give away. In a few
+short moments, the floor has disappeared, but thankfully you're safe while
+standing on the beam." CR>
+			      <SETG INNER-DOOR-SEALED <>>
+			      <REMOVE ,PLASTER>
+			      <SETG P-IT-LOC <>>
+			      <FCLEAR ,PIT ,INVISIBLE>
+			      <DUMP-ALL-ON-GROUND>
+			      <SETG SCORE <+ ,SCORE 25>>
+			      <PUTP ,HERE ,P?LDESC
+"You are in the west end of the passage. The plaster has been cleared, allowing
+passage to the west.">
+			      <THIS-IS-IT ,INNER-DOOR>
+			      <MOVE ,CHIPS2 ,HERE>
+			      <RTRUE>)>)
+		      (T <TELL
+			  "You scratch at the plaster but accomplish little."
+			  CR>)>)>>
+
+<OBJECT NORTH-ANTE-DOOR
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT DOORBIT)
+	(SYNONYM DOOR)
+	(ADJECTIVE BURIAL)
+	(DESC "burial door")
+	(ACTION NORTH-ANTE-DOOR-FCN)>
+
+<ROUTINE NORTH-ANTE-DOOR-FCN ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<FSET? ,BURIAL-CHAMBER ,RMUNGBIT>
+		       <TELL
+"It's buried behind 3 tons of stones. Forget it." CR>)
+		      (T <TELL 
+"The door is surrounded by small seals and has a hieroglyph on it." CR>)>)
+	       (<VERB? OPEN>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "It's already open." CR>
+		       <RTRUE>)
+		      (<FSET? ,BURIAL-CHAMBER ,RMUNGBIT>
+		       <TELL
+"With all the stones which fell in the doorway, there's not a chance of ever
+getting through again." CR>
+		       <RTRUE>)
+		      (,ANTE-SEAL
+		       <TELL
+"I don't think it's that simple. Not only isn't there a doorknob, but the door
+is also covered with a seal." CR>)
+		      (T
+		       <TELL
+"The door creaks open and you are assaulted by a deep, musty dead smell." CR>
+		       <FSET ,NORTH-ANTE-DOOR ,OPENBIT>
+		       <SETG SCORE <+ ,SCORE 40>>
+		       <RTRUE>)>)
+	       (<VERB? CLOSE>
+		<COND (<NOT <FSET? ,NORTH-ANTE-DOOR ,OPENBIT>>
+		       <TELL "It isn't open." CR>)
+		      (T <TELL
+"Closing the door isn't the best of ideas." CR>)>)
+	       (<AND <VERB? READ>
+		     <NOT <FSET? ,NORTH-ANTE-DOOR ,OPENBIT>>>
+		<PERFORM ,V?READ ,HIEROGLYPHS>
+		<RTRUE>)>>
+
+<OBJECT N-ANTE-SEAL
+	(IN NORTH-ANTECHAMBER)
+	(FLAGS NDESCBIT)
+	(DESC "seal")
+	(SYNONYM SEALS SEAL)>
+
+<OBJECT ANNEX-DOOR
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT DOORBIT VOWELBIT)
+	(SYNONYM DOOR)
+	(ADJECTIVE ANNEX)
+	(DESC "annex door")
+	(ACTION ANNEX-DOOR-FCN)>
+
+<ROUTINE ANNEX-DOOR-FCN ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "It's already open." CR>
+		       <RTRUE>)
+		      (<AND ,BEAM-PLACED
+			    <IN? ,BEAM ,SOUTH-ANTECHAMBER>>
+		       <TELL
+"You open the door and two huge stones start to close in on you from either
+side. Thankfully, you had the foresight to wedge the beam in the doorway to
+prevent a flattening experience." CR>
+		       <FSET ,ANNEX-DOOR ,OPENBIT>)
+		      (ELSE
+		       <JIGS-UP
+"You open the door but before you can react, two huge stones close in on you --
+one from the left side and one from the right side. Needless to say, you didn't
+quite make it...">)>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <NOT <FSET? ,ANNEX-DOOR ,OPENBIT>>>
+		<TELL
+"This door seems to present no difficulty in opening. Lightly etched into it
+are some faint symbols." CR>)
+	       (<AND <VERB? READ>
+		     <NOT <FSET? ,ANNEX-DOOR ,OPENBIT>>>
+		<PERFORM ,V?READ ,HIEROGLYPHS>
+		<RTRUE>)
+	       (<AND <VERB? CLOSE>
+		     <FSET? ,ANNEX-DOOR ,OPENBIT>>
+		<TELL "Closing this door isn't a very good idea." CR>
+		<RTRUE>)>>
+
+<OBJECT ISIS
+	(IN BURIAL-CHAMBER)
+	(DESC "Isis statue")
+	(SYNONYM STATUE)
+	(ADJECTIVE ISIS)
+	(FLAGS CLAMPBIT TURNBIT NDESCBIT)
+	(ACTION TURN-STATUES-FCN)>
+
+<OBJECT NEPHTHYS
+	(IN BURIAL-CHAMBER)
+	(DESC "Nephthys statue")
+	(SYNONYM STATUE)
+	(ADJECTIVE NEPHTH)
+	(FLAGS NDESCBIT CLAMPBIT TURNBIT)
+	(ACTION TURN-STATUES-FCN)>
+
+<OBJECT NEITH
+	(IN BURIAL-CHAMBER)
+	(DESC "Neith statue")
+	(SYNONYM STATUE)
+	(ADJECTIVE NEITH)
+	(FLAGS NDESCBIT CLAMPBIT TURNBIT)
+	(ACTION TURN-STATUES-FCN)>
+
+<OBJECT SELKIS
+	(IN BURIAL-CHAMBER)
+	(DESC "Selkis statue")
+	(FLAGS NDESCBIT CLAMPBIT TURNBIT)
+	(SYNONYM STATUE)
+	(ADJECTIVE SELKIS)
+	(ACTION TURN-STATUES-FCN)>
+
+<OBJECT ARMS
+	(IN BURIAL-CHAMBER)
+	(DESC "arms")
+	(SYNONYM ARM ARMS)
+	(FLAGS NDESCBIT DONTTAKE)>
+
+<ROUTINE TURN-STATUES-FCN ("AUX" (OFFSET 0))
+	 <COND (<VERB? TURN>
+		<COND (<NOT ,CAN-TURN-STATUES>
+		       <TELL 
+"Nothing happens. These statues seem to be beyond all hope." CR>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"The " D ,PRSO " moves slowly, pivoting about its base, ">
+		       <COND (<FSET? ,PRSO ,CLAMPBIT>
+			      <FCLEAR ,PRSO ,CLAMPBIT>
+			      <DO-THE-OFFSET>
+			      <TELL
+ "releasing its hold on the quartz cover." CR>)
+			     (T
+			      <FSET ,PRSO ,CLAMPBIT>
+			      <TELL
+"once more clamping down on the quartz cover." CR>)>
+		       <RTRUE>)>)>>
+		      
+<ROUTINE DO-THE-OFFSET ("AUX" (OFFSET 0))
+	 <REPEAT ()
+		 <COND (<EQUAL? .OFFSET 4>
+			<RETURN>)
+		       (T
+			<SET OFFSET <+ .OFFSET 1>>
+			<COND (<EQUAL? <GET ,TURNED-LTBL .OFFSET> ,PRSO>
+			       <RTRUE>)>)>>
+	  <SETG TURN-OFFSET <+ ,TURN-OFFSET 1>>
+	  <PUT ,TURNED-LTBL ,TURN-OFFSET ,PRSO>
+	  <COND (<EQUAL? ,TURN-OFFSET 4>
+		 <ENABLE <QUEUE I-RESET-STATUES 1>>)>>
+
+<OBJECT SARCOPH
+	(IN BURIAL-CHAMBER)
+	(DESC "sarcophagus")
+	(FLAGS CONTBIT NDESCBIT DONTTAKE)
+	(CAPACITY 1000)
+	(SIZE 500)
+	(SYNONYM SARCOP COFFIN)
+	(ACTION SARCOPH-FCN)>
+
+<ROUTINE SARCOPH-FCN ()
+	 <COND (<VERB? OPEN>
+		<PERFORM ,V?OPEN ,SARCOPH-COVER>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <EQUAL? ,PRSI ,SARCOPH>>
+		<TELL "The " D ,PRSO " sits on the sarcophagus for a moment, but it quickly slides off its rounded top." CR>
+		<MOVE ,PRSO ,HERE>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<RTRUE>)
+	       (ELSE
+		<RFALSE>)>>
+
+<OBJECT SARCOPH-COVER
+	(IN BURIAL-CHAMBER)
+	(SIZE 150)
+	(FLAGS NDESCBIT CONTBIT SURFACEBIT OPENBIT DONTTAKE)
+	(SYNONYM COVER QUARTZ)
+	(ADJECTIVE QUARTZ)
+	(DESC "quartz cover")
+	(CAPACITY 200)
+	(ACTION SARCOPH-COVER-FCN)>
+
+<OBJECT S-AREA
+	(IN SARCOPH-COVER)
+	(FLAGS CONTBIT SURFACEBIT OPENBIT NDESCBIT DONTTAKE)
+	(DESC "smaller recess")
+	(SYNONYM RECESS AREA AREAS)
+	(ADJECTIVE SMALLE SMALL)
+	(CAPACITY 100)
+	(MAP 3)
+	(CONTFCN RECESS-CONTFCN)
+	(ACTION SETBIT-FCN)
+	(SIZE 1)>
+
+<OBJECT L-AREA
+	(IN SARCOPH-COVER)
+	(FLAGS CONTBIT SURFACEBIT OPENBIT NDESCBIT DONTTAKE)
+	(DESC "larger recess")
+	(SYNONYM RECESS AREA AREAS)
+	(ADJECTIVE LARGE LARGER)
+	(CAPACITY 100)
+	(CONTFCN RECESS-CONTFCN)
+	(ACTION SETBIT-FCN)
+	(SIZE 1)
+	(MAP 4)>
+
+<ROUTINE SETBIT-FCN ("AUX" OBJ)
+	 <COND (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,L-AREA ,S-AREA>
+		     <FIRST? ,PRSI>>
+		<TELL "There's already something on it." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,L-AREA ,S-AREA>
+		     <EQUAL? ,PRSO ,BEAM>>
+		<TELL
+"I don't think the beam would fit in there. It's a little too long." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,L-AREA ,S-AREA>>
+		<FSET ,PRSO ,NDESCBIT>
+		<RFALSE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL 
+"The area is recessed about an inch below the quartz cover."
+CR>
+		<COND (<SET OBJ <FIRST? ,PRSO>>
+		       <TELL "Sitting in the " D ,PRSO " is a">
+		       <VOWEL? .OBJ>
+		       <TELL D .OBJ "." CR>)
+		      (T
+		       <TELL "The " D ,PRSO " is empty." CR>)>
+		<RTRUE>)>>
+
+<ROUTINE RECESS-CONTFCN ()
+	 <COND (<AND <VERB? TAKE>
+		     <EQUAL? <LOC ,PRSO> ,S-AREA ,L-AREA>>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<RFALSE>)>>
+
+<ROUTINE DESCRIBE-COVER ("AUX" S-OBJ L-OBJ)
+	 <TELL 
+"There is a small recess and a large recess on the top of the cover which you
+can make out as thin, outlined areas.">
+	 <SET S-OBJ <FIRST? ,S-AREA>>
+	 <SET L-OBJ <FIRST? ,L-AREA>>
+	 <COND (.S-OBJ
+		<TELL " Resting in the smaller recess is a">
+		<VOWEL? .S-OBJ>
+		<TELL D .S-OBJ ".">)>
+	 <COND (.L-OBJ
+		<TELL " Sitting in the larger recess is the " D .L-OBJ ".">)>>
+
+<ROUTINE SARCOPH-COVER-FCN ("AUX" STR (COUNTER 0) (OFFS -1))
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<DESCRIBE-COVER>
+		<CRLF>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,SARCOPH-COVER>>
+		<TELL "You place the " D ,PRSO " on the cover, but it slides
+right off onto the ground." CR>
+		<MOVE ,PRSO ,HERE>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<RTRUE>)
+	       (<AND <VERB? OPEN MOVE>
+		     <NOT ,STATUES-SET>>
+		<SET STR "a single statue.">
+		<REPEAT ()
+			<SET OFFS <+ .OFFS 1>>
+			<COND (<G? .OFFS 3>
+			       <RETURN>)
+			      (<FSET? <GET ,STATUE-TBL .OFFS> ,CLAMPBIT>
+			       <SET COUNTER <+ .COUNTER 1>>)>>
+		<COND (<G? .COUNTER 1>
+		       <SET STR "the statues.">)>
+		<TELL
+"You tug, push, pull, yank and generally tire yourself out trying to open the
+cover until you take a moment, wipe your brow, and look around. You notice that
+the cover is being held in place by " .STR CR>
+		<RTRUE>)
+	       (<AND <VERB? OPEN MOVE>
+		     ,STATUES-SET>
+		<ENDING>
+		<CRLF>
+		<FINISH>)>>
+
+<GLOBAL SCARAB-DEATH-STR
+"As soon as you lift the scarab from the disc, the left and right discs rise
+far enough above the surface of the table to activate a mechanism. You hear it
+click just before the ceiling comes down to meet the floor.">
+
+<ROUTINE SCARAB-CHECK-FCN ("AUX" L-W R-W (L-OBJ <>) (R-OBJ <>))
+	 <COND (<VERB? TAKE>
+		<SETG CAN-TURN-STATUES <>>
+		<SET L-OBJ <FIRST? ,LEFT-DISC>>
+		<SET R-OBJ <FIRST? ,RIGHT-DISC>>
+		<COND (<IN? ,SCARAB ,MID-DISC>
+		       <COND (<OR <NOT .L-OBJ>
+				  <NOT .R-OBJ>>
+			      <JIGS-UP ,SCARAB-DEATH-STR>
+			      <RFATAL>)
+			     (T
+			      <SET L-W <WEIGHT .L-OBJ>>
+			      <SET R-W <WEIGHT .R-OBJ>>
+			      <COND (<AND <EQUAL? .L-W 8>
+					  <EQUAL? .R-W 8>>
+				     <RFALSE>)
+				    (T
+				     <JIGS-UP ,SCARAB-DEATH-STR>)>)>)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <IN? ,SCARAB ,MID-DISC>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,S-AREA ,L-AREA>
+		     <FIRST? ,PRSI>>
+		<TELL "There's already something on it." CR>
+		<RTRUE>)
+	       (<VERB? MOVE>
+		<TELL
+"You'd better not. Not until you know what's going on here." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,S-AREA>>
+		<MOVE ,SCARAB ,S-AREA>
+		<TELL "Done." CR>
+		<FSET ,SCARAB ,NDESCBIT>
+		<COND (<IN? ,DEAD-BOOK ,L-AREA>
+		       <SETG CAN-TURN-STATUES T>
+		       <TELL
+"You hear a clicking sound come from beneath all of the statues as you place
+the scarab within the smaller outlined area on the cover." CR>)>
+		<RTRUE>)>>
+ 
+<OBJECT SCARAB
+	(IN MID-DISC)
+	(FLAGS TAKEBIT TRYTAKEBIT READBIT)
+	(DESC "scarab")
+	(VALUE 10)
+	(SYNONYM SCARAB)
+	(TEXT
+"Etched onto its back is the following:|
+|
+              >*>")
+	(SIZE 8)
+	(MAP 3)
+	(ACTION SCARAB-CHECK-FCN)>
+	
+<OBJECT DEAD-BOOK
+	(FLAGS READBIT CONTBIT TAKEBIT VOWELBIT)
+	(DESC "ancient book")
+	(SYNONYM BOOK)
+	(ADJECTIVE ANCIEN)
+	(ACTION DEAD-BOOK-FCN)
+	(SIZE 5)
+	(MAP 4)
+	(CAPACITY 1)
+	(VALUE 10)>
+
+<OBJECT PAGE
+	(IN DEAD-BOOK)
+	(DESC "page")
+	(SYNONYM PAGE)
+	(FLAGS NDESCBIT READBIT BURNBIT TURNBIT DONTTAKE TRYTAKEBIT)
+	(ACTION PAGE-FCN)
+	(SIZE 1)
+	(TEXT
+"Hieroglyphs can be seen as follows:|
+|
+        =  .           !   !|
+<-*  #  =  -  #  !@!  !---!|
+|
+            .           !  !|
+::  #  >*>  -  #  !@!  !--!")>
+
+<ROUTINE PAGE-FCN ()
+	 <COND (<VERB? TURN>
+		<TELL "Unnecessary page turning may destroy the book." CR>
+		<RTRUE>)
+	       (<VERB? BURN>
+		<PERFORM ,V?BURN ,DEAD-BOOK>)
+	       >>
+
+<OBJECT CRUMBLED-BOOK
+	(FLAGS INVISIBLE BURNBIT TAKEBIT CONTBIT READBIT VOWELBIT OPENBIT)
+	(DESC "ancient book")
+	(SYNONYM BOOK DEAD)
+	(SIZE 5)
+	(TEXT
+"This is what is left of the ancient Book of the Dead. Like the Queen it once
+referred to, it too has seen better days.")
+	(VALUE -20)
+	(MAP 4)>
+
+<ROUTINE DEAD-BOOK-FCN ()
+	 <COND (<VERB? TAKE>
+		<FCLEAR ,DEAD-BOOK ,NDESCBIT>
+		<SETG CAN-TURN-STATUES <>>
+		<RFALSE>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,DEAD-BOOK ,CRUMBLED-BOOK>>
+		<TELL "You'd do more damage putting things on the " D ,PRSI 
+		      " than it would be worth." CR>
+		<RTRUE>)
+	       (<VERB? READ EXAMINE>
+		<COND (<NOT <FSET? ,DEAD-BOOK ,OPENBIT>>
+		       <TELL 
+"The book isn't open. On the cover is the following, though:|
+|
+       =|
+       =" CR>)
+		      (T
+		       <PERFORM ,V?READ ,PAGE>)>
+		<RTRUE>)
+	       (<VERB? OPEN>
+		<COND (<AND ,PRSI
+			    <PRSI? ,SPATULA>>
+		       <TELL
+"You open the book carefully using the spatula. You can see some faint
+writing on the page." CR>
+		       <FSET ,PRSO ,OPENBIT>
+		       <RTRUE>)
+		      (T
+		       <TELL 
+"Oops! The ancient papyrus pages crumble due to your less-than-delicate touch." CR>
+		       <MOVE ,CRUMBLED-BOOK <LOC ,DEAD-BOOK>>
+		       <REMOVE ,DEAD-BOOK>
+		       <THIS-IS-IT ,CRUMBLED-BOOK>
+		       <FCLEAR ,CRUMBLED-BOOK ,INVISIBLE>
+		       <RTRUE>)>)
+	       (<AND <VERB? READ>
+		     <FSET? ,DEAD-BOOK ,OPENBIT>>
+		<PERFORM ,V?READ ,PAGE>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,S-AREA ,L-AREA>
+		     <FIRST? ,PRSI>>
+		<TELL "There's already something on it." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUT PUT-ON>
+		     <PRSI? ,L-AREA>>
+		<MOVE ,DEAD-BOOK ,L-AREA>
+		<FSET ,DEAD-BOOK ,NDESCBIT>
+		<TELL
+"The book now rests in the larger area on the cover of the sarcophagus." CR>
+		<COND (<IN? ,SCARAB ,S-AREA>
+		       <SETG CAN-TURN-STATUES T>
+		       <TELL
+"From beneath each of the four statues there comes a loud click." CR>)>
+		<RTRUE>)>>
+	
+
+<OBJECT SPATULA
+	(FLAGS TAKEBIT TOOLBIT TOUCHBIT)
+	(DESC "small spatula")
+	(SYNONYM SPATUL)
+	(ADJECTIVE SMALL)
+	(TEXT
+"This spatula was originally used for opening books and turning their pages.")>
+
+<ROUTINE ENDING ()
+	 <TELL
+"You lift the cover with great care, and in an instant you see all your dreams
+come true. The interior of the sarcophagus is lined with gold, inset with
+jewels, glistening in your torchlight. The riches and their dazzling beauty
+overwhelm you. You take a deep breath, amazed that all of this is yours. You
+tremble with excitement, then realize the ground beneath your feet is
+trembling, too.|
+|
+As a knife cuts through butter, this realization cuts through your mind,
+makes your hands shake and cold sweat appear on your forehead. The Burial
+Chamber is collapsing, the walls closing in. You will never get out of this
+pyramid alive. You earned this treasure. But it cost you your life.|
+|
+And as you sit there, gazing into the glistening wealth of the inner
+sarcophagus, you can't help but feel a little empty, a little foolish.
+If someone were on the other side of the quickly-collapsing wall, they could
+have dug you out. If only you'd treated the workers better. If only you'd cut
+Craige in on the find. If only you'd hired a reliable guide.|
+|
+Well, someday, someone will discover your bones here. And then you
+will get your fame." CR>>
+
+<ROUTINE DUMP-ALL-ON-GROUND ("AUX" L LOCB N F (FLG <>))
+	 <SET L <LOC ,WINNER>>
+	 <REMOVE ,WINNER>
+	 <REMOVE ,INNER-DOOR>
+	 <REMOVE ,NICHES>
+	 <REMOVE ,LINTEL>
+	 <COND (,BEAM-PLACED
+		<SET LOCB <LOC ,BEAM>>
+		<REMOVE ,BEAM>)>
+	 <SET F <FIRST? ,HERE>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<REMOVE .N>
+			<SET FLG T>)>>
+	 <COND (.FLG
+		<TELL CR "Everything on the floor falls into the pit." CR>)>
+	 <MOVE ,WINNER .L>
+	 <COND (.LOCB
+		<MOVE ,BEAM .LOCB>)>
+	 <MOVE ,INNER-DOOR ,WEST-END-OF-PASSAGE>
+	 <MOVE ,NICHES ,WEST-END-OF-PASSAGE>
+	 <MOVE ,LINTEL ,WEST-END-OF-PASSAGE>>
+
diff --git a/barge.zil b/barge.zil
new file mode 100644
index 0000000..b0122a1
--- /dev/null
+++ b/barge.zil
@@ -0,0 +1,674 @@
+"BARGE for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<ROOM LANDING-TWO
+      (IN ROOMS)
+      (DESC "South Landing")
+      (FLAGS RLANDBIT)
+      (LDESC
+"You are on a landing in the middle of a set of stairs. The staircase goes down
+to the south and up to the north. The walls here are undistinguished, formed by
+the stones of which the pyramid was built.")
+      (UP TO CHAMBER-OF-RA)
+      (NORTH TO CHAMBER-OF-RA)
+      (DOWN TO NARROW-HALL)
+      (SOUTH TO NARROW-HALL)
+      (GLOBAL SOUTH-STAIRS)
+      (ACTION MOVE-ROPE-HERE)>
+
+<ROOM NARROW-HALL
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Narrow Hallway")
+      (LDESC
+"You are at the entrance of a narrow hallway which goes to the northeast. A
+staircase goes up to the north.")
+      (UP TO LANDING-TWO)
+      (NE TO BEND-HALL)
+      (NORTH TO LANDING-TWO)>
+
+<ROOM BEND-HALL
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Narrow Hallway")
+      (LDESC
+"You are at a bend in the Narrow Hallway. The hallway continues to the
+northwest and to the southwest. Inscribed on the wall are some hieroglyphs.")
+      (NW TO BARGE-ENTRANCE)
+      (SW TO NARROW-HALL)
+      (GLOBAL HIEROGLYPHS)> 
+      
+<ROOM BARGE-ENTRANCE
+      (IN ROOMS)
+      (DESC "Barge Chamber")
+      (FLAGS RLANDBIT)
+      (LDESC
+"You are in the southern section of a huge room which holds the royal barge.
+Before you, to the north, is a plank which provides entrance to the barge.
+There is room to move around the barge to the east and west, while a doorway
+to the southeast leads into a darkened corridor.")
+      (UP TO BARGE-CENTER)
+      (NORTH TO BARGE-CENTER)
+      (WEST TO SW-CORNER)
+      (EAST TO SE-CORNER)
+      (SE TO BEND-HALL)
+      (GLOBAL BOAT)
+      (ACTION MOVE-THE-PLANK-FCN)>
+
+<ROUTINE MOVE-THE-PLANK-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<OR <NOT <FSET? ,PLANK ,TOUCHBIT>>
+			   <IN? ,PLANK ,BARGE-CENTER>> 
+		       <MOVE ,PLANK ,HERE>)>
+		<RFALSE>)>>
+
+<ROOM SE-CORNER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Barge Chamber")
+      (LDESC
+"You are in the southeast corner of the Barge Chamber. There's enough room to
+bypass the stern of the barge and continue to the north. To the west you can
+see the entrance to the barge.")
+      (WEST TO BARGE-ENTRANCE)
+      (NORTH TO NE-CORNER)
+      (GLOBAL BOAT)>
+
+<ROOM NE-CORNER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Barge Chamber")
+      (LDESC
+"You're standing in the northeast corner of the Barge Chamber. You can get
+around the stern of the barge to the south, while there's enough room to
+continue around the barge to the west.")
+      (WEST TO BARGE-EXIT)
+      (SOUTH TO SE-CORNER)
+      (GLOBAL BOAT)>
+
+<ROOM SW-CORNER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Barge Chamber")
+      (LDESC
+"You're in the southwest corner of the Barge Chamber. You can still see the
+barge entrance to the east, while there's enough room to continue to the north,
+around the barge.")
+      (NORTH TO NW-CORNER)
+      (EAST TO BARGE-ENTRANCE)
+      (GLOBAL BOAT)>
+
+<ROOM NW-CORNER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Barge Chamber")
+      (LDESC
+"You're in the northwest corner of the Barge Chamber. You can see by your light
+that there's room enough to continue around the back of the barge by going to
+the east, while you can bypass the bow of the boat by going south.")
+      (SOUTH TO SW-CORNER)
+      (EAST TO BARGE-EXIT)
+      (GLOBAL BOAT)>
+
+<ROOM BARGE-EXIT
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Barge Chamber")
+      (LDESC
+"You're at the start of a hallway which goes off to the north. To the south,
+directly behind you, is the back side of the barge. There's enough room to get
+around it to the east and west.")
+      (EAST TO NE-CORNER)
+      (WEST TO NW-CORNER)
+      (NORTH TO IN-THE-HALL)
+      (GLOBAL BOAT)> 
+
+;"These rooms are actually part of the barge itself."
+<ROOM BARGE-CENTER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Center of Barge")
+      (LDESC
+"You are standing on the deck of an ancient wooden barge. Before you, cut into
+the deck, is a hole. To the south is a plank which leads down off the barge.
+You can see two cabins on the deck, one to the west and the other to the east.")
+      (WEST TO FORE-CABIN)
+      (EAST TO AFT-CABIN)
+      (DOWN TO BARGE-ENTRANCE)
+      (SOUTH TO BARGE-ENTRANCE)
+      (GLOBAL HOLE BOAT DECK)
+      (ACTION BURN-THE-BARGE)>
+
+<ROOM FORE-CABIN
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (EAST TO BARGE-CENTER)
+      (DESC "Fore Cabin")
+      (LDESC
+"You are in the forward cabin aboard the barge. The cabin is bare with none of
+the luxuries you expected to see. You close your eyes for a moment, picturing
+the barge you'll someday own, the yacht fully rigged and crewed. You open your
+eyes and shake your head, anxious to make your dream reality. There's a doorway
+to the east leading out onto the deck.")
+      (GLOBAL BOAT DECK)
+      (ACTION BURN-THE-BARGE)>
+
+<ROOM AFT-CABIN
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Aft Cabin")
+      (LDESC
+"You are in the aft cabin aboard the barge. There's a door to the west which
+leads out to the deck, and a short ladder, permanently mounted to the deck,
+going down into the depths of the barge itself.")
+      (WEST TO BARGE-CENTER)
+      (DOWN TO BELOW-DECK)
+      (GLOBAL STAIRS BOAT DECK)
+      (ACTION BURN-THE-BARGE)>
+
+<ROOM BELOW-DECK
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Below Deck")
+      (LDESC
+"You are below the deck of the barge in what looks like a huge hold. To the
+west you can see the hold continuing, while a ladder leads up and out from
+here.")
+      (UP TO AFT-CABIN)
+      (OUT TO AFT-CABIN)
+      (WEST TO BELOW-MAST)
+      (ACTION BURN-THE-BARGE)
+      (GLOBAL BOAT STAIRS DECK)>
+
+<ROOM BELOW-MAST
+      (IN ROOMS)
+      (DESC "West End of Hold")
+      (FLAGS RLANDBIT)
+      (LDESC
+"You are in the westmost portion of the hold, below the deck of the barge.
+On the north side of the hull is a small knothole about three feet off the
+deck. Overhead you can see a hole going through the deck while, directly
+below this hole, on the deck by your feet, is a slot.")
+      (ACTION BURN-THE-BARGE)
+      (EAST TO BELOW-DECK)
+      (GLOBAL BOAT HOLE DECK)> 
+
+<GLOBAL PUSHED-BEAM <>>
+
+<OBJECT PLANK
+	(IN BARGE-CENTER)
+	(SYNONYM LADDER PLANK)
+	(DESC "plank")
+	(FDESC
+"A long wooden plank connects the barge and the entry area.")
+	(FLAGS NDESCBIT CLIMBBIT DONTTAKE TRYTAKEBIT)
+	(ACTION PLANK-FCN)>
+
+<ROUTINE PLANK-FCN ()
+	 <COND (<VERB? TAKE MOVE>
+		<TELL
+"The plank is a permanent part of the barge. To remove it might create far more
+destruction than you think." CR>
+		<RTRUE>)>>
+
+<GLOBAL BARGE-BURN-STR
+"The barge immediately catches fire in a tremendous flash and, before you know
+it, you're heated to a toasty 1000 degrees. Not being made of asbestos has its
+disadvantages, as you quickly realize....">
+
+<ROUTINE BURN-THE-BARGE (RARG)
+	 <COND (<EQUAL? .RARG ,M-END>
+		<COND (<AND <VERB? DROP THROW>
+			    <FLAMING? ,PRSO>>
+		       <JIGS-UP ,BARGE-BURN-STR>
+		       <RFATAL>)
+		      (<AND <VERB? PUT>
+			    <FLAMING? ,PRSO>
+			    <EQUAL? <LOC ,PRSI> ,HERE>
+			    <NOT <EQUAL? ,PRSI ,TORCH-HOLDER>>>
+		       <JIGS-UP ,BARGE-BURN-STR>
+		       <RFATAL>)>)
+	       (<AND <EQUAL? .RARG ,M-ENTER>
+		     <EQUAL? ,HERE ,BELOW-MAST>>
+		<MOVE ,MAST-HOLE ,HERE>
+		<COND (<NOT <FSET? ,BEAM ,TOUCHBIT>>
+		       <PUTP ,BEAM ,P?FDESC
+"Coming down through the hole above your head and ending in the slot at your
+feet is the beam which served as a mast.">
+		       <COND (<NOT ,PUSHED-BEAM>
+			      <MOVE ,BEAM ,SLOT>)>)>
+		<RFALSE>)
+	       (<AND <EQUAL? .RARG ,M-ENTER>
+		     <EQUAL? ,HERE ,BARGE-CENTER>>
+		<COND (<OR <NOT <FSET? ,PLANK ,TOUCHBIT>>
+			   <IN? ,PLANK ,BARGE-ENTRANCE>> 
+		       <MOVE ,PLANK ,HERE>)>
+		<MOVE ,MAST-HOLE ,HERE>
+		<COND (<AND ,PUSHED-BEAM
+			    <NOT <FSET? ,BEAM ,TOUCHBIT>>>
+		       <PUTP ,BEAM ,P?FDESC
+"Lying on the deck of the barge is a long wooden beam.">)>
+		<COND (<NOT ,PUSHED-BEAM>
+		       <MOVE ,BEAM ,HERE>
+		       <PUTP ,BEAM ,P?FDESC
+"Before you, running down through a hole in the deck, is a sturdy beam made of
+wood. Although only a few feet of it rise above the deck, it was probably used
+at one time as a mast.">)>)>>
+			   
+<OBJECT MAST-HOLE
+	(IN BARGE-CENTER)
+	(DESC "mast hole")
+	(FLAGS NDESCBIT OPENBIT CONTBIT TRANSBIT DONTTAKE TRYTAKEBIT VEHBIT)
+	(CAPACITY 34)
+	(SYNONYM HOLE)
+	(ADJECTIVE MAST)
+	(ACTION MAST-HOLE-FCN)>
+
+<ROUTINE MAST-HOLE-FCN ()
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? CLIMB-DOWN CLIMB-UP THROUGH>
+		<COND (<NOT ,PUSHED-BEAM>
+		       <TELL "I think the mast hole is already being used." CR>)
+		      (T
+		       <TELL "You'd never squeeze through it." CR>)>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <NOT ,PUSHED-BEAM>>
+		<TELL "The mast is going through the hole." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,MAST-HOLE>
+		     <NOT ,PUSHED-BEAM>>
+		<TELL
+"There isn't room for the " D ,PRSO " and the mast, too." CR>
+		<RTRUE>)
+	       (<AND <PRSI? ,MAST-HOLE>
+		     <VERB? PUT>>
+		<COND (<EQUAL? ,HERE ,BARGE-CENTER>
+		       <TELL "The " D ,PRSO " drops through the hole." CR>)
+		      (T
+		       <TELL "You try to reach up that high, but fail. The "
+			     D ,PRSO " falls to the deck." CR>)>
+		<MOVE ,PRSO ,BELOW-MAST>
+		<FSET ,PRSO ,TOUCHBIT>
+		<COND (<FLAMING? ,PRSO>
+		       <JIGS-UP ,BARGE-BURN-STR>)>
+		<RTRUE>)>>
+
+<OBJECT TORCH-HOLDER
+	(IN BELOW-MAST)
+	(DESC "knothole")
+	(FLAGS NDESCBIT CONTBIT TRANSBIT OPENBIT DONTTAKE TRYTAKEBIT)
+	(CAPACITY 5)
+	(ACTION TORCH-HOLDER-FCN)
+	(SYNONYM KNOTHO HOLE)
+	(ADJECTIVE KNOT)>
+
+<ROUTINE TORCH-HOLDER-FCN ("AUX" FROB)
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,TORCH-HOLDER>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<SET FROB <FIRST? ,PRSO>>
+		       <TELL "All I can see is a " D .FROB " in there." CR>)
+		      (T
+		       <TELL "Through the knothole is inky blackness." CR>)>)>>
+
+<OBJECT SLOT
+	(IN BELOW-MAST)
+	(FLAGS NDESCBIT CONTBIT OPENBIT DONTTAKE TRYTAKEBIT)
+	(CAPACITY 9)
+	(DESC "slot")
+	(SYNONYM SLOT)
+	(ADJECTIVE SMALL)
+	(ACTION SLOT-FCN)>
+
+<ROUTINE SLOT-FCN ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<AND <IN? ,BEAM ,SLOT>
+			    <FSET? ,SHIM ,NDESCBIT>>
+		       <TELL
+"A shim is wedged between the slot and the beam." CR>
+		       <RTRUE>)
+		      (<IN? ,BEAM ,SLOT>
+		       <TELL "The beam is resting in the slot." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <RFALSE>)>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,SLOT>)>>
+
+<OBJECT SHIM
+	(IN BELOW-MAST)
+	(FLAGS TAKEBIT DONTTAKE NDESCBIT BURNBIT TRYTAKEBIT)
+	(DESC "shim")
+	(SIZE 4)
+	(SYNONYM SHIM WEDGE)
+	(ADJECTIVE WOOD)
+	(TEXT
+"It's a small piece of wood, used as a wedge.")
+	(ACTION SHIM-FCN)>
+
+<ROUTINE SHIM-FCN ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,SHIM ,NDESCBIT>>
+		<COND (<ITAKE>
+		       <TELL "Taken." CR>
+		       <FCLEAR ,SHIM ,NDESCBIT>
+		       <FCLEAR ,SHIM ,DONTTAKE>)>
+		<RTRUE>)>>
+
+<OBJECT BEAM
+	(IN BARGE-CENTER)
+	(FLAGS BURNBIT TAKEBIT VEHBIT TRYTAKEBIT SURFACEBIT CONTBIT OPENBIT)
+	(DESC "wooden beam")
+	(FDESC
+"Before you, running down through a hole in the deck, is a sturdy beam made of
+wood. Although only a few feet of it rise above the deck, it was probably used
+at one time as a mast.")
+	(SYNONYM BEAM MAST)
+	(ADJECTIVE WOODEN STURDY)
+	(TEXT
+"This wooden beam is made of an extremely hard wood. It's 10 feet long and has
+a diameter of 12 inches. Scratched into it is the following symbol:|
+|
+     /!\\")
+	(SIZE 10)
+	(VALUE 15)
+	(ACTION BEAM-FCN)
+	(CAPACITY 30)
+	(DESCFCN DESCRIBE-BEAM-FCN)>
+
+<GLOBAL AIR-WALK
+"Well, despite your \"angelic\" qualities, you aren't very good at walking on
+air and so, with a scream on your lips, you plunge to a horrible death in a pit
+of voracious rats.">
+
+<GLOBAL BURIAL-BEAM-STR
+"How fitting -- to be trapped forever in the Burial Chamber, waiting slowly,
+painfully, for your oxygen to run out -- a true testimony to the brilliance of
+the Queen and her protection.">
+
+<GLOBAL ANNEX-BEAM-STR
+"The doorway suddenly closes as heavy, immovable stones crush in from both
+sides. You slowly and painfully suffocate in the Annex, cursing the gods for
+ever revealing this horrible place to you. You wish you had told Craige about
+this place -- that way, it could have been he instead of you.">
+
+<ROUTINE DROP-THE-BLOCKS ()
+	 <TELL
+"When you remove the beam, you remove the only thing between you and three
+tons of solid rock, poised over your head. Knowing the situation, though, has
+saved your life: you leap out of the way just in time." CR>
+	 <SETG BEAM-PLACED <>>
+	 <MUNG-ROOM ,BURIAL-CHAMBER
+"The way into the Burial Chamber has been forever blocked by massive stones.">
+	 <REMOVE ,NORTH-ANTE-DOOR>
+	 <SETG P-IT-LOC <>>
+	 <SETG ANTE-SEAL T>
+	 <REMOVE ,N-ANTE-SEAL>>
+
+<ROUTINE CLOSE-THE-ANNEX ()
+	 <MUNG-ROOM ,ANNEX
+"The way into the Annex is forever blocked by huge, immovable stones.">
+	 <TELL
+"The doorway disappears behind two huge stones which slide horizontally from
+the doorway. Luckily, you stepped out of their way just in time." CR>
+	 <SETG BEAM-PLACED <>>
+	 <REMOVE ,ROCKS>
+	 <PUTP ,SOUTH-ANTECHAMBER ,P?LDESC
+"You are in the southern end of the Chamber of Eternal Royalty. From here you
+can see the room stretching out towards the north. The south wall is painted to
+resemble large baskets of lotus flowers with their blue petals framing an image
+of the Sun God, Amun Ra. The west wall once held a door but is now forever
+blocked.">>
+
+<ROUTINE SET-THE-BEAM (CASE)
+	 <COND (,BEAM-PLACED
+		<COND (<EQUAL? ,BEAM-PLACED .CASE>
+		       <TELL "It's already been done." CR>
+		       <RTRUE>)
+		      (<NOT <ITAKE>>
+		       <RTRUE>)
+		      (T <TELL "(taken)" CR>)>)>
+	 <TELL "Consider it done." CR>
+	 <SETG BEAM-PLACED .CASE>
+	 <DESCRIBE-BEAM-FCN ,M-OBJDESC>
+	 <MOVE ,BEAM ,HERE>
+	 <COND (<EQUAL? ,HERE ,SOUTH-ANTECHAMBER>
+		<THIS-IS-IT ,ANNEX-DOOR>)>>
+
+<ROUTINE BEAM-FCN ()
+	 <COND (<EQUAL? ,BEAM ,PRSI>
+		<COND (<VERB? PUT PUT-ON>
+		       <COND (<EQUAL? ,PRSO ,ME ,WINNER ,ADVENTURER>
+			      <TELL "Why not just stand on it?" CR>)
+			     (<HELD? ,BEAM>
+			      <TELL "Better drop the " D ,PRSI " first." CR>
+			      <RTRUE>)
+			     (<PRSO? ,BEAM>
+			      <TELL "How recursive!" CR>
+			      <RTRUE>)
+			     (T
+			      <TELL
+"Done. But the " D ,PRSO " falls off the beam and lands">
+			      <COND (<AND <NOT <FSET? ,PIT ,INVISIBLE>>
+					  <ROOM? ,WEST-END-OF-PASSAGE
+						 ,MID-ANTECHAMBER>
+					  ,BEAM-PLACED>
+				     <TELL " in the pit." CR>
+				     <REMOVE ,PRSO>)
+				    (T <TELL " on the ground." CR>
+				     <MOVE ,PRSO ,HERE>
+				     <RTRUE>)>)>)>)
+	       (<VERB? TAKE>
+		<COND (<AND <EQUAL? ,HERE ,NORTH-ANTECHAMBER>
+			    <FSET? ,NORTH-ANTE-DOOR ,OPENBIT>
+			    <ITAKE>>
+		       <DROP-THE-BLOCKS>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,BURIAL-CHAMBER>
+		       <COND (<ITAKE>
+			      <TELL "Taken. Oh oh...." CR>
+			      <JIGS-UP ,BURIAL-BEAM-STR>)>)
+		      (<EQUAL? ,HERE ,ANNEX>
+		       <COND (<ITAKE>
+			      <JIGS-UP ,ANNEX-BEAM-STR>
+			      <RFATAL>)>)
+		      (<AND <EQUAL? ,HERE ,SOUTH-ANTECHAMBER>
+			    <NOT <FSET? ,ANNEX ,RMUNGBIT>>
+			    <FSET? ,ANNEX-DOOR ,OPENBIT>>
+		       <COND (<ITAKE>
+			      <CLOSE-THE-ANNEX>)>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,BARGE-CENTER>
+			    <FSET? ,SHIM ,NDESCBIT>
+			    <IN? ,BEAM ,HERE>>
+		       <TELL
+"It seems to be securely wedged in the mast hole." CR>
+		       <RTRUE>)
+		      ;(<AND <EQUAL? ,HERE ,BARGE-CENTER>
+			    <NOT ,PUSHED-BEAM>
+			    <IN? ,BEAM ,HERE>>
+		       <TELL 
+"You can't lift it that high over your head to get it out of the deck." CR>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,BELOW-MAST>
+			    <FSET? ,SHIM ,NDESCBIT>
+			    <IN? ,BEAM ,SLOT>>
+		       <TELL "It's wedged into the slot." CR>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,BELOW-MAST>
+			    <IN? ,BEAM ,SLOT>>
+		       <TELL 
+"The mast hole won't allow a steep enough angle for removing it." CR>
+		       <RTRUE>)
+		      (,ON-BEAM
+		       <COND (<ITAKE>
+			      <SETG ON-BEAM <>>
+			      <TELL "(getting off the beam first)" CR "Taken."
+				    CR>
+			      <COND (<NOT <IN? ,PLASTER ,HERE>>
+				     <JIGS-UP
+"Well, you were never very good walking on air and so, with a scream on your
+lips, you plunge to a horrible death in a pit of voracious rats.">)>
+			      <SETG BEAM-PLACED <>>
+			      <RTRUE>)>)
+		      (T
+		       <SETG BEAM-PLACED <>>
+		       <RFALSE>)>)
+	       (<AND <VERB? PUT PUT-ACROSS PUT-ON PUT-AGAINST>
+		     <PRSI? ,NICHES>
+		     <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+		     <NOT <IN? ,PIT ,HERE>>>
+		<SET-THE-BEAM 1>
+		<RTRUE>)
+	       (<AND <VERB? PUT-ON>
+		     <EQUAL? ,PRSI ,ROCKS>
+		     <EQUAL? ,HERE ,SOUTH-ANTECHAMBER>>
+		<SET-THE-BEAM 2>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,ROCKS>
+		     <EQUAL? ,HERE ,SOUTH-ANTECHAMBER>>
+		<TELL
+"Done. The beam immediately falls to the floor, though." CR>
+		<MOVE ,BEAM ,HERE>
+		<RTRUE>)
+	       (<AND <VERB? PUT-ACROSS PUT>
+		     <EQUAL? ,PRSI ,DOORWAY ,ANNEX-DOOR>
+		     <EQUAL? ,HERE ,SOUTH-ANTECHAMBER>
+		     <IN? ,ROCKS ,HERE>>
+		<SET-THE-BEAM 3>
+		<RTRUE>)
+	       (<AND <VERB? PUT-UNDER>
+		     <EQUAL? ,PRSI ,T-LINTEL ,DOORWAY>
+		     <EQUAL? ,HERE ,NORTH-ANTECHAMBER>>
+		<SET-THE-BEAM 4>
+		<RTRUE>)
+	       (<AND <VERB? PUT-ACROSS PUT>
+		     <EQUAL? ,PRSI ,PIT>
+		     <EQUAL? ,HERE ,MID-ANTECHAMBER>>
+		<SET-THE-BEAM 5>
+		<RTRUE>)
+	       (<AND ,ON-BEAM <VERB? DISEMBARK CLIMB-DOWN>>
+		<SETG ON-BEAM <>>
+		<COND (<AND <IN? ,PLASTER ,WEST-END-OF-PASSAGE>
+			    <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>>
+		       <TELL
+"You're now standing on the ground." CR>)
+		      (T
+		       <JIGS-UP ,AIR-WALK>
+		       <RTRUE>)>)
+	       (<AND <VERB? RAISE PULL-UP PUSH-THROUGH>
+		     <EQUAL? ,HERE ,BELOW-MAST ,BARGE-CENTER>
+		     <FSET? ,SHIM ,NDESCBIT>>
+		<TELL 
+"You try to raise the mast but it seems to be wedged into something." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUSH-THROUGH RAISE PULL-UP>
+		     <EQUAL? ,HERE ,BELOW-MAST ,BARGE-CENTER>
+		     <NOT <FSET? ,SHIM ,NDESCBIT>>>
+		<COND (<NOT <EQUAL? <CCOUNT ,WINNER> 0>>
+		       <TELL 
+"You'll need two hands to do that. Better put everything down." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <MOVE ,BEAM ,BARGE-CENTER>
+		       <SETG PUSHED-BEAM T>
+		       <PUTP ,BEAM ,P?FDESC
+"Lying on the deck of the barge is a long wooden beam.">
+		       <TELL
+"You have managed to lift the beam up through the hole and you hear it land on
+the deck with a thud." CR>)>)
+	       (<AND <VERB? PUSH-THROUGH>
+		     <EQUAL? ,PRSI ,MAST-HOLE>
+		     <EQUAL? ,HERE ,BELOW-MAST>>
+		<TELL "It's wedged too tightly in the slot." CR>
+		<RTRUE>)
+	       (<AND <VERB? PUSH>
+		     <NOT <FSET? ,BEAM ,TOUCHBIT>>>
+		<TELL "Nice try." CR>)
+	       (<VERB? MUNG>
+		<TELL 
+"This piece of wood is virtually petrified due to its age and original strength." CR>)
+	       >>
+
+<ROUTINE DESCRIBE-BEAM-FCN (RARG "AUX" STR)
+	 <COND (<OR <NOT <EQUAL? .RARG ,M-OBJDESC>>
+		    <NOT ,BEAM-PLACED>>
+		<RFALSE>)
+	       (<EQUAL? ,BEAM-PLACED 4> ;"CASE: In N. Ante, beam wedged"
+		<TELL
+"Wedged under the top of the doorway, perpendicular to the floor, is the wooden
+beam." CR>
+		<RTRUE>)
+	       (<EQUAL? ,BEAM-PLACED 5 1>
+		<COND (<EQUAL? ,HERE ,MID-ANTECHAMBER>
+		       <TELL
+"Through the doorway you can see the beam spanning the pit." CR>)
+		      (<EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+		       <TELL "Stretching across the floor">
+		       <COND (<EQUAL? ,BEAM-PLACED 1>
+			      <TELL " from niche to niche">)>
+		       <COND (<NOT ,INNER-DOOR-SEALED>
+			      <TELL ", spanning a deep pit,">)>
+		       <TELL " is the wooden beam.">
+		       <COND (,ON-BEAM
+			      <TELL " You are standing on the beam.">)>
+		       <CRLF>)>
+		<RTRUE>)
+	       (<EQUAL? ,BEAM-PLACED 2 3> ;"Case: S. Ante, wedged beam"
+		<COND (<EQUAL? ,BEAM-PLACED 2>
+		       <SET STR "rocks">)
+		      (T <SET STR "doorway">)>
+		<TELL
+"Wedged between the " .STR ", from side to side, is the stout beam." CR>
+		<RTRUE>)>>
+
+<OBJECT SCROLL
+	(IN FORE-CABIN)
+	(FLAGS TAKEBIT READBIT BURNBIT)
+	(DESC "papyrus scroll")
+	(FDESC
+"Sitting on the deck is a papyrus scroll.")
+	(SIZE 1)
+	(TEXT
+"This scroll was placed here for the Queen's passage to the afterlife.")
+	(SYNONYM SCROLL)
+	(ADJECTIVE PAPYRU)
+	(ACTION READ-SCROLL-FCN)>
+	
+<ROUTINE READ-SCROLL-FCN ()
+	 <COND (<NOT <VERB? READ>>
+		<RFALSE>)>
+	 <TELL
+"The scroll reads as follows:|
+|
+*->  <.>  <:.>  ...  <::.>|
+|
+::  :  **  --->>  -)  (*)" CR>
+	 <RTRUE>>
+
+;<ROUTINE CLEAR-THE-BEAM ("AUX" F N (FLG <>) STR)
+	 <SET F <FIRST? ,BEAM>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<COND (<AND <EQUAL? ,HERE ,MID-ANTECHAMBER>
+				    <NOT <FSET? ,PIT ,INVISIBLE>>
+				    <EQUAL? ,BEAM-PLACED 1>>
+			       <REMOVE .N>
+			       <SET STR "into the pit">)
+			      (T
+			       <MOVE .N ,HERE>
+			       <SET STR "onto the floor">)>
+			<SET FLG T>)>>
+	 <COND (.FLG
+		<TELL "Everything on the beam falls " .STR "." CR>)>>
\ No newline at end of file
diff --git a/camp.zil b/camp.zil
new file mode 100644
index 0000000..9bd1f61
--- /dev/null
+++ b/camp.zil
@@ -0,0 +1,2323 @@
+"CAMP"
+
+<ROUTINE GET-LOST-FCN ("AUX" (OFFS -3))
+	 <COND (<NOT <GETP ,HERE ,P?ENDLESS>>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <SET OFFS <+ .OFFS 3>>
+		 <COND (<G? .OFFS 54>
+			<RETURN>)
+		       (T
+			<COND (<EQUAL? ,HERE <GET ,MAP-TBL .OFFS>>
+			       <SETG SECS-LON <GET ,MAP-TBL <+ .OFFS 1>>>
+			       <SETG SECS-LAT <GET ,MAP-TBL <+ .OFFS 2>>>)>)>>
+	 <SETG DEGS-LON 32>
+	 <SETG DEGS-LAT 24>
+	 <SETG MINS-LON 12>
+	 <SETG MINS-LAT 11>
+	 <SETG DESERT-LOC <GETP ,HERE ,P?ENDLESS>>
+	 <CHANGE-DESERT-POSITION>
+	 <FCLEAR ,ENDLESS-DESERT ,TOUCHBIT>
+	 <RETURN ,ENDLESS-DESERT>>
+
+<OBJECT NASTY-CROC
+	(IN RIVER-BANK)
+	(DESC "crocodile")
+	(FLAGS NDESCBIT TOUCHBIT DONTTAKE)
+	(SYNONYM CROC CROCS CROCOD REPTIL)
+	(ACTION CROC-FCN)>
+
+<ROUTINE CROC-FCN ()
+	 <COND (<AND <EQUAL? ,PRSI ,NASTY-CROC>
+		     <VERB? THROW>>
+		<PERFORM ,V?PUT ,PRSO ,NILE-RIBBAH>
+		<RTRUE>)>> 
+
+<OBJECT NILE-RIBBAH
+	(IN RIVER-BANK)
+	(DESC "Nile")
+	(FLAGS NDESCBIT TOUCHBIT CONTBIT OPENBIT DONTTAKE)
+	(CAPACITY 1000)
+	(SYNONYM RIVER NILE)
+	(ACTION GET-WET-FCN)>
+
+<ROUTINE GET-WET-FCN ()
+	 <COND (<VERB? THROUGH>
+		<PERFORM ,V?SWIM ,NILE-RIBBAH>
+		<RTRUE>)
+	       (<VERB? DROP>
+		<PERFORM ,V?LEAVE>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE EXAMINE>
+		<TELL "Hmmm. Looks potable. And dangerous." CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<AND <PRSO? ,NILE-RIBBAH>
+		     <VERB? DRINK>>
+		<PERFORM ,V?DRINK-FROM ,PRSO>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSI ,NILE-RIBBAH>
+		     <VERB? PUT>>
+		<COND (<EQUAL? ,PRSO ,WINNER>
+		       <PERFORM ,V?SWIM>
+		       <RFATAL>)
+		      (T
+		       <REMOVE ,PRSO>
+		       <SETG P-IT-LOC <>>
+		       <TELL "The " D ,PRSO " quickly ">
+		       <COND (<HEAVY?>
+			      <TELL "sinks">)
+			     (T <TELL "floats away on the current">)>
+		       <TELL
+". Another example of your fine management abilities." CR>
+		       <RTRUE>)>)>>
+
+<ROUTINE HEAVY? ("OPTIONAL" (OBJ <>))
+	 <COND (<NOT .OBJ>
+		<SET OBJ ,PRSO>)>
+	 <COND (<OR <EQUAL? .OBJ ,FOLDED-COT ,BROKEN-LOCK ,ROCK>
+		    <EQUAL? .OBJ ,STONE-KEY ,PICK-AXE ,SHOVEL>
+		    <EQUAL? .OBJ ,ROPE ,CRATE ,BLACK-BOX>
+		    <EQUAL? .OBJ ,TORCH ,OIL-JAR>
+		    <GETP .OBJ ,P?BRICK>>
+		<RTRUE>)
+	       (<AND <EQUAL? .OBJ ,KNAPSACK>
+		     <G? <WEIGHT ,KNAPSACK> 15>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+		    
+<OBJECT THICKETS
+	(IN LOCAL-GLOBALS)
+	(DESC "thicket")
+	(FLAGS NDESCBIT DONTTAKE)
+	(SYNONYM THICKE)
+	(TEXT
+"They're about as yielding as you were with your helpers. What else can I say
+about them?")>
+	 
+<OBJECT FIREPIT
+	(IN FIRE)
+	(FLAGS NDESCBIT TOUCHBIT CONTBIT OPENBIT DONTTAKE TRANSBIT)
+	(DESC "pit")
+	(SYNONYM PIT)
+	(ADJECTIVE CHARRE)
+	(CAPACITY 200)
+	(ACTION FIREPIT-FCN)>
+
+<OBJECT ROCK
+	(IN FIRE)
+	(FLAGS NDESCBIT TAKEBIT)
+	(DESC "blackened rock")
+	(SYNONYM ROCK STONE)
+	(ADJECTIVE BLACKE)
+	(ACTION TAKE-ROCK-FCN)>
+
+<ROUTINE TAKE-ROCK-FCN ()
+	 <COND (<VERB? TAKE>
+		<FCLEAR ,ROCK ,NDESCBIT>
+		<PUTP ,MATCHES ,P?FDESC
+"Sitting by the firepit is a matchbook.">
+		<RFALSE>)>>
+
+<ROUTINE FIREPIT-FCN ()
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>)
+	       (<VERB? THROUGH>
+		<TELL "There's no need to get yourself all dirty." CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL "The pit's just a pit. Nothing more. ">
+		<COND (<FIRST? ,PIT>
+		       <TELL "Sitting in the pit is ">
+		       <PRINT-CONTENTS ,PIT>)
+		      (T
+		       <TELL "The pit is empty">)>
+		<TELL "." CR>
+		<RTRUE>)>>
+
+<OBJECT TENT-OBJ
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT TOUCHBIT DONTTAKE)
+	(DESC "tent")
+	(SYNONYM TENT)
+	(ADJECTIVE YOUR SUPPLY WORK)
+	(ACTION ENTER-TENT-FCN)>
+
+<ROUTINE ENTER-TENT-FCN ()
+	 <COND (<AND <VERB? DROP DISEMBARK>
+		     <PRSO? ,TENT-OBJ>
+		     <IN-A-TENT?>>
+		<PERFORM ,V?LEAVE>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,P2 ,P4 ,P7>
+		       <RFALSE>)
+		      (<IN-A-TENT?>
+		       <TELL
+"Looks like a canvas tent to me." CR>
+		       <RTRUE>)
+		      (<NOT <GETP ,HERE ,P?MAP>>
+		       <TELL "Get serious." CR>
+		       <RTRUE>)
+		      (T <TELL "I can't see it from here!" CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM ,V?LOOK-INSIDE ,FLAPS>
+		<RTRUE>)
+	       (<VERB? LAMP-ON>
+		<TELL "I don't think that striking the tent would do any good." CR>
+		<RTRUE>)
+	       (<NOT <VERB? THROUGH BOARD>>
+		<RFALSE>)
+	       (<NOT <GETP ,HERE ,P?MAP>>
+		<TELL "Get serious." CR>
+		<RTRUE>)
+	       (<IN-A-TENT?>
+		<TELL 
+"What are those canvas walls around you? Just where do you think you are? Maybe
+I should send for Craige, eh?" CR>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,P2 ,P7 ,P4>
+		<PERFORM ,V?ENTER>
+		<RTRUE>)
+	       (ELSE
+		<TELL "You can't enter the tent from here." CR>
+		<RTRUE>)>>
+
+<OBJECT PYRAMID
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "pyramid")
+	(SYNONYM PYRAMI)
+	(ACTION ENTER-PYRAMID-FCN)>
+
+<ROUTINE ENTER-PYRAMID-FCN ()
+	 <COND (<AND <VERB? DROP>
+		     <EQUAL? ,HERE ,CHAMBER-OF-RA>>
+		<PERFORM ,V?LEAVE>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<AND <NOT ,PYRAMID-OPENED>
+			    <IN? ,ROCK-LOCK ,HERE>>
+		       <TELL
+"There's not much to see of it yet -- just the tip of it is exposed showing the
+block and its small opening." CR>)
+		      (<AND ,PYRAMID-OPENED
+			    <EQUAL? ,HERE ,EX8>>
+		       <TELL 
+"You can see down into what looks like a large chamber." CR>)
+		      (<GETP ,HERE ,P?MAP>
+		       <TELL "You can't see any pyramid here." CR>)
+		      (T
+		       <TELL "Where do you think you are, Times Square?" CR>)>
+		<RTRUE>)
+	       (<AND <VERB? OPEN> <NOT ,PYRAMID-OPENED> <IN? ,ROCK-LOCK ,HERE>>
+		<TELL "The stone blocks don't move." CR> <RTRUE>)
+	       (<VERB? OPEN> <TELL "It looks open to me." CR> <RTRUE>)
+	       (<AND <EQUAL? ,PYRAMID ,PRSI>
+		     <EQUAL? ,HERE ,EX8>
+		     <VERB? PUT THROW>
+		     ,PYRAMID-OPENED>
+		<TELL "You hear the " D ,PRSO " fall down below." CR>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<COND (<EQUAL? ,PRSO ,KNAPSACK>
+		       <FCLEAR ,PRSO ,WEARBIT>
+		       <FSET ,PRSO ,OPENBIT>)>
+		<MOVE ,PRSO ,CHAMBER-OF-RA>
+		<RTRUE>) 
+	       (<NOT <VERB? THROUGH>>
+		<RFALSE>)
+	       (<NOT <GETP ,HERE ,P?MAP>>
+		<TELL "Get serious. Let's find it first." CR>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,EX8>
+		<PERFORM ,V?ENTER>
+		<RTRUE>)
+	       (ELSE
+		<TELL "You can't enter the pyramid from here." CR>
+		<RTRUE>)>>
+
+<ROOM RIVER-BANK
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "River Bank")
+      (LDESC
+"You are on the bank of the river Nile. The shoreline is sandy and cool, and
+reeds wave in a light but warm breeze. Directly to the north and the south
+thickets make strolling along the bank impossible. You're hot, and the cool
+rippling water to the west looks inviting, but you're not alone in that
+thought -- crocodiles bask on the west bank, eyeing you hungrily, just
+waiting for you to enter their watery domain. Things were never like this when
+Craige was around.")
+      (EAST TO P1)
+      (NORTH "The thickets chew on your skin as you attempt to make a path through them. You finally give up.")
+      (SOUTH "The thickets chew on your skin as you attempt to make a path through them. You finally give up.")
+      (WEST "Can't you see the crocs? If you insist on entering the water, you'll have to swim.")
+      (NW "Can't you see the crocs? If you insist on entering the water, you'll have to swim.")
+      (SW "Can't you see the crocs? If you insist on entering the water, you'll have to swim.")
+      (OUT TO P1)
+      (MAP 1)
+      (GLOBAL TENT-OBJ SAND HOLE GLOBAL-WATER THICKETS)
+      (CAPACITY 0)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM P1
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Near the Nile")
+      (LDESC
+"You are on an east/west path on the north side of the encampment. A path to
+the south starts here, and you can see the riverbank clearly to the west. A
+warm, light breeze reaches your face, drying your sweat into a thin mask of
+salt. You glance to the north and are greeted by a disheartening sight: an
+endless stretch of searing desert.")
+      (NORTH PER GET-LOST-FCN)
+      (NE PER GET-LOST-FCN)
+      (NW PER GET-LOST-FCN)
+      (WEST TO RIVER-BANK)
+      (EAST TO P2)
+      (SOUTH TO P4)
+      (SE TO FIRE)
+      (SW "Some thickets near the river chew on your skin as you attempt to make a path through them. You finally give up.")
+      (MAP 2)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 1)
+      (ENDLESS 651)
+      (ACTION CREATE-THIRST-FCN)>
+
+<ROOM P2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Outside Your Tent")
+      (LDESC
+"You are on an east/west path on the north side of the encampment. To the south
+you can see a firepit and to the north is the entrance to your tent. Everything
+is oddly quiet, unsettling, creating a feeling of floating anxiety. The
+stillness seems to enhance the eerie quality of the desert, the feeling of
+being truly alone.")
+      (NORTH TO TENT)
+      (IN TO TENT)
+      (WEST TO P1)
+      (EAST TO P3)
+      (NW PER GET-LOST-FCN)
+      (NE PER GET-LOST-FCN)
+      (SW TO P4)
+      (SE TO P5)
+      (SOUTH TO FIRE)
+      (MAP 3)
+      (GLOBAL TENT-OBJ SAND HOLE FLAPS)
+      (CAPACITY 3)
+      (ENDLESS 652)
+      (ACTION CREATE-THIRST-FCN)>
+
+<ROOM TENT
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Your Tent")
+      (LDESC
+"You are in your tent. Golden rays of the sun filter through the open tent
+flaps on the southern wall, but no breeze makes its way through. The dry,
+searing heat in the tent would be bearable if only the air stirred, even a
+little.")
+      (SOUTH TO P2)
+      (OUT TO P2)
+      (MAP 4)
+      (GLOBAL TENT-OBJ SAND HOLE FLAPS)
+      (CAPACITY 0)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM P3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Northern Path")
+      (LDESC
+"You are on an east/west path on the northern side of the encampment. To the
+east you can see the sites of previous excavations your workers had
+begun before they deserted you. Low, gentle sand dunes roll out of sight to
+the north, but your camp's eastern border has a path, heading off to the south,
+which starts here.")
+      (NORTH PER GET-LOST-FCN)
+      (NW PER GET-LOST-FCN)
+      (NE PER GET-LOST-FCN)
+      (EAST TO EX1)
+      (SE TO EX4)
+      (SOUTH TO P5)
+      (SW TO FIRE)
+      (WEST TO P2)
+      (MAP 1)
+      (ACTION CREATE-THIRST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (ENDLESS 653)
+      (CAPACITY 2)>
+
+<ROOM SUPPLY-TENT
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Supply Tent")
+      (LDESC
+"You are in a tent, very much like your own -- a tent which had originally
+contained the supplies for your expedition. You notice, however, that most of
+the items which were here just yesterday have vanished with your workers. The
+tent looks as if it's been cleaned out and, as your stomach growls, the empty
+tent ironically reminds you of a turkey carcass picked clean after a huge
+Thanksgiving meal. Through the open tent flaps to the east you can see the
+firepit. If only one of the workers had remained behind, you would make him
+pay.")
+      (EAST TO P4)
+      (OUT TO P4)
+      (MAP 1)
+      (GLOBAL TENT-OBJ SAND HOLE FLAPS)
+      (CAPACITY 0)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM P4
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Outside Supply Tent")
+      (LDESC
+"You're on a north/south path on the west edge of the encampment. Directly to
+the west is the supply tent, its flaps open, still in the hot, quiet air. To
+the east you can see the central firepit, a reminder of your being alone. A row
+of thickets, impossible to make any progress through even with a machete,
+grows along the western edge of the camp directly to the north and south of the
+tent.")
+      (NORTH TO P1)
+      (NE TO P2)
+      (NW "The thickets chew on your skin as you attempt to make a path through them. You finally give up.")
+      (SW "The thickets chew on your skin as you attempt to make a path through them. You finally give up.")
+      (WEST TO SUPPLY-TENT)
+      (IN TO SUPPLY-TENT)
+      (SOUTH TO P6)
+      (EAST TO FIRE)
+      (SE TO P7)
+      (MAP 1)
+      (ACTION CREATE-THIRST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE FLAPS THICKETS)
+      (CAPACITY 1)>
+      
+<ROOM FIRE
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Fire Pit")
+      (LDESC
+"You are in the center of the encampment, standing before a charred pit, a hole
+dug in the sand surrounded by blackened rocks. The night breezes have already
+started the reclamation work of the desert, covering most of the pit's bottom.
+You can see your tent to the north, the work tent to the south, and the supply
+tent to the west. Far off to the east, through the heat waves rising off the
+shifting sands, you can see gentle, rolling dunes.")
+      (NORTH TO P2)
+      (NE TO P3)
+      (EAST TO P5)
+      (SE TO P8)
+      (SOUTH TO P7)
+      (SW TO P6)
+      (WEST TO P4)
+      (NW TO P1)
+      (MAP 1)
+      (ACTION CREATE-THIRST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 0)>
+
+<OBJECT ROCK-S
+	(IN FIRE)
+	(FLAGS DONTTAKE NDESCBIT TRYTAKEBIT)
+	(DESC "blackened rocks")
+	(SYNONYM ROCKS)
+	(ADJECTIVE BLACKE)
+	(TEXT "They form a ring around the firepit.")>
+
+<ROOM P5
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Middle Path")
+      (LDESC
+"You are at the eastern edge of an east/west path in the middle of the camp.
+To the west you can see the firepit and beyond that the supply tent. To the
+east you can see the desert -- a vista difficult to avoid seeing from just
+about anywhere in the camp. A north/south path intersects here, traveling along
+the eastern border of the camp.")
+      (NORTH TO P3)
+      (NE TO EX1)
+      (EAST TO EX4)
+      (SE TO EX7)
+      (SOUTH TO P8)
+      (SW TO P7)
+      (WEST TO FIRE)
+      (NW TO P2)
+      (MAP 2)
+      (ACTION CREATE-THIRST-FCN)
+      (ENDLESS 706)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 4)>
+
+<ROOM P6
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Southern Path")
+      (LDESC
+"You are at the west edge of an east/west path on the southern side of the
+encampment. Directly to the west is a heavy growth of thickets, making any
+attempt at western movement a painful and futile task. Through the thickets you
+can hear the sound of water running gently by.")
+      (NORTH TO P4)
+      (NE TO FIRE)
+      (EAST TO P7)
+      (SE PER GET-LOST-FCN)
+      (SOUTH PER GET-LOST-FCN)
+      (SW PER GET-LOST-FCN)
+      (WEST "You scratch yourself on the thickets as you attempt this.")
+      (NW "You scratch yourself on the thickets as you attempt this.")
+      (MAP 2)
+      (ACTION CREATE-THIRST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE THICKETS)
+      (ENDLESS 751)
+      (CAPACITY 0)>
+
+<ROOM P7
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Outside Work Tent")
+      (LDESC
+"You are on an east/west path, directly to the north of the work tent. To the
+north you can see the firepit and, beyond that, your tent. The work tent
+borders an endless vista of fine, burning sand stretching out to the south.")
+      (NORTH TO FIRE)
+      (NE TO P5)
+      (EAST TO P8)
+      (SE PER GET-LOST-FCN)
+      (SOUTH TO TENT2)
+      (SW PER GET-LOST-FCN)
+      (WEST TO P6)
+      (NW TO P4)
+      (IN TO TENT2)
+      (MAP 2)
+      (ACTION CREATE-THIRST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE FLAPS)
+      (ENDLESS 752)
+      (CAPACITY 1)>
+
+<ROOM P8
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Southern Path")
+      (LDESC
+"You are at the start of a path which heads north along the eastern border of
+the encampment. To the east you can see the horror and the beauty which brought
+you here, the desert sand and its hidden treasure. The firepit is visible to
+the northwest.")
+      (NORTH TO P5)
+      (NE TO EX4)
+      (EAST TO EX7)
+      (SE PER GET-LOST-FCN)
+      (SOUTH PER GET-LOST-FCN)
+      (SW PER GET-LOST-FCN)
+      (WEST TO P7)
+      (NW TO FIRE)
+      (MAP 2)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 2)
+      (ENDLESS 753)
+      (ACTION CREATE-THIRST-FCN)>
+
+<ROOM TENT2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Work Tent")
+      (LDESC "You are in a tent which used to house the workers and
+their personal effects. Looking around, taking in the stripped and bare
+surroundings, you feel surprised that they even left the canvas walls.
+You quickly realize that they took what they needed -- taking everything
+would have been more trouble than it was worth. From the looks of things
+they cleared out quickly but quietly.")
+      (NORTH TO P7)
+      (OUT TO P7)
+      (GLOBAL TENT-OBJ SAND HOLE FLAPS)
+      (CAPACITY 0)
+      (MAP 2)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROUTINE CREATE-THIRST-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<SETG THIRST <+ ,THIRST 6>>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-BEG>
+		<SETG THIRST <+ ,THIRST 1>>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<DESCRIBE-HOLE-FCN ,M-LOOK>)>>
+
+<ROOM EX1             
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are in the broiling sands of the desert, a short distance from the camp.
+Off to the west you can just make out a slight discoloration in the sand, the
+start of an east/west path which borders the northern edge of the camp.")
+      (NORTH PER GET-LOST-FCN)
+      (NE PER GET-LOST-FCN)
+      (EAST TO EX2)
+      (SE TO EX5)
+      (SOUTH TO EX4)
+      (SW TO P5)
+      (WEST TO P3)
+      (NW PER GET-LOST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 3)
+      (MAP 2)
+      (DESERT 1)
+      (ENDLESS 654)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX2
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are in the desert, almost out of sight of the encampment, your only link
+with civilization. You are just close enough to make out a tiny dot on the
+western horizon which could be one of the tents. The searing sand is making
+walking a difficult and painful experience, something alien to you.")
+      (NORTH PER GET-LOST-FCN)
+      (NE PER GET-LOST-FCN)
+      (EAST TO EX3)
+      (SE TO EX6)
+      (SOUTH TO EX5)
+      (SW TO EX4)
+      (WEST TO EX1)
+      (NW PER GET-LOST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 2)
+      (MAP 1)
+      (DESERT 1)
+      (ENDLESS 655)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX3
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are deep in desert, the encampment little more than a memory. You think
+for a moment, closing your eyes, trying to picture the coolness of the Nile,
+the comfort of your cot, and are overcome with doubts. When you open your eyes
+again you are greeted with the same nightmare: All around you, all you can see
+for mile after mile is sand and more sand.")
+      (NORTH PER GET-LOST-FCN)
+      (NE PER GET-LOST-FCN)
+      (EAST PER GET-LOST-FCN)
+      (SE PER GET-LOST-FCN)
+      (SOUTH TO EX6)
+      (SW TO EX5)
+      (WEST TO EX2)
+      (NW PER GET-LOST-FCN)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 1)
+      (MAP 2)
+      (DESERT 1)
+      (ENDLESS 656)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX4
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are in the desert, still within sight of the encampment, just a tiny
+oasis to the west. The tents, shimmering behind the heat waves rising from the
+sand, seem to be calling you back, beckoning, offering safety and refuge.")
+      (NORTH TO EX1)
+      (NE TO EX2)
+      (EAST TO EX5)
+      (SE TO EX8)
+      (SOUTH TO EX7)
+      (SW TO P8)
+      (WEST TO P5)
+      (NW TO P3)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 1)
+      (MAP 1)
+      (DESERT 1)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX5
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are standing on the top of a sand dune, looking all around at a place on
+Earth where man was never meant to be. That is the only conclusion you can draw
+as you force yourself to breathe the hot, arid air of the desert through your
+nose. Breathing through your mouth makes you instantly thirsty, a dangerous
+state to find yourself in while surrounded by sand. You curse Craige, then
+find yourself cursing Ellingsworth, too.")
+      (NORTH TO EX2)
+      (NE TO EX3)
+      (EAST TO EX6)
+      (SE TO EX9)
+      (SOUTH TO EX8)
+      (SW TO EX7)
+      (WEST TO EX4)
+      (NW TO EX1)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 2)
+      (MAP 2)
+      (DESERT 1)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX6
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are deep into the desert, as deep as anyone in his right mind would ever
+care to venture. A small but strong gust of wind reaches your face, pelting you
+with grains of sand so small they remind you of fine sugar. Even with your lips
+tightly closed, the wind manages to drive a few grains into your mouth. You are
+thankful that none got into your eyes.")
+      (NORTH TO EX3)
+      (NE PER GET-LOST-FCN)
+      (EAST PER GET-LOST-FCN)
+      (SE PER GET-LOST-FCN)
+      (SOUTH TO EX9)
+      (SW TO EX8)
+      (WEST TO EX5)
+      (NW TO EX2)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 3)
+      (MAP 2)
+      (DESERT 1)
+      (ENDLESS 706)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX7
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are in the desert, east of the encampment. From this distance the camp
+seems little more than a mirage, an image of another reality which has little
+to do with the brutal, searing reality of the desert, your quickly dehydrating
+body, or your painfully broiling feet.")
+      (NORTH TO EX4)
+      (NE TO EX5)
+      (EAST TO EX8)
+      (SE PER GET-LOST-FCN)
+      (SOUTH PER GET-LOST-FCN)
+      (SW PER GET-LOST-FCN)
+      (WEST TO P8)
+      (NW TO P5)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 1)
+      (MAP 2)
+      (DESERT 1)
+      (ENDLESS 754)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX8
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are in the desert, out of sight of the encampment. You are thankful
+there's no wind, even though a cooling breeze would be welcomed, since the
+fine sand particles would sting your face and hands. All around is the desert,
+a sweeping expanse of disheartening sand.")
+      (NORTH TO EX5)
+      (NE TO EX6)
+      (EAST TO EX9)
+      (SE PER GET-LOST-FCN)
+      (SOUTH PER GET-LOST-FCN)
+      (SW PER GET-LOST-FCN)
+      (WEST TO EX7)
+      (NW TO EX4)
+      (DOWN TO CHAMBER-OF-RA IF PYRAMID-OPENED)
+      (IN TO CHAMBER-OF-RA IF PYRAMID-OPENED)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 1)
+      (MAP 2)
+      (DESERT 1)
+      (ENDLESS 755)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROOM EX9
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Desert")
+      (LDESC
+"You are far into the desert, sand and more sand stretching out endlessly
+around you in all directions. You think of going back, of giving up this
+attempt at riches, but what awaits you back in the States? What is there worth
+going back to, with nothing to show for this quest? And how could you go back
+now, after the things you'd said to Craige? You glance around
+at the rolling dunes and force back the fear eating away your confidence.")
+      (NORTH TO EX6)
+      (NE PER GET-LOST-FCN)
+      (EAST PER GET-LOST-FCN)
+      (SE PER GET-LOST-FCN)
+      (SOUTH PER GET-LOST-FCN)
+      (SW PER GET-LOST-FCN)
+      (WEST TO EX8)
+      (NW TO EX5)
+      (GLOBAL TENT-OBJ SAND HOLE)
+      (CAPACITY 1)
+      (MAP 1)
+      (DESERT 1)
+      (ENDLESS 756)
+      (ACTION DESCRIBE-HOLE-FCN)>
+
+<ROUTINE DESCRIBE-HOLE-FCN (RARG "AUX" DEPTH)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL <GETP ,HERE ,P?LDESC>>
+		<SET DEPTH <GETP ,HERE ,P?CAPACITY>>
+		<COND (<AND <G? .DEPTH 5>
+			    <EQUAL? ,HERE ,EX8>>
+		       <CRLF>
+		       <RTRUE>)
+		      (<G? .DEPTH 0>
+		       <TELL " There's a" <GET ,DESC-HOLE-LTBL .DEPTH>
+" in the sand, a remnant of your excavation attempts.">)>
+		<COND (<EQUAL? ,HERE ,ENDLESS-DESERT>
+		       <COND (<G? ,THIRST 300>
+			      <TELL " " <PICK-ONE ,SPACE-TALES-LTBL>>)
+			     (ELSE
+			      <COND (<PROB 50>
+				     <COND (<PROB 35>
+					    <TELL " "
+					        <PICK-ONE ,SPACE-TALES-LTBL>>)
+					   (T <TELL " "
+						<PICK-ONE ,MIRAGE-LTBL>>)>)>)>)
+		      (<GETP ,HERE ,P?DESERT>
+		       <COND (<G? ,THIRST 300>
+			      <TELL " " <PICK-ONE ,MIRAGE-LTBL>>)
+			     (ELSE
+			      <COND (<PROB 20>
+				     <TELL " " <PICK-ONE ,MIRAGE-LTBL>>)>)>)>
+		<CRLF>
+		<RTRUE>)
+	       (<EQUAL? .RARG ,M-ENTER>
+		<SETG THIRST <+ ,THIRST 15>>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-BEG>
+		<SETG THIRST <+ ,THIRST 3>>
+		<RFALSE>)>>
+		       
+<GLOBAL DESC-HOLE-LTBL
+	<LTABLE " small hole"
+		"n enlarged hole"
+		" sizable hole"
+		" knee-deep hole"
+		" deep hole">>
+
+<GLOBAL SPACE-TALES-LTBL
+	<LTABLE
+"You hear a whirring overhead and look up in time to see a gyrocopter settling
+to the sand on the horizon."
+"You think you see a spaceship settling on the horizon and, as you strain your
+eyes through the wafting waves of heat, you see a man and a huge robot. You can
+almost hear them saying \"Gort, Klaatu Barada Nikto.\""
+"A small lizard pokes its head up from the sands and asks the shortest route to
+Times Square. You scratch your head for a moment and when you remember the
+proper subway line to recommend to it, you notice it's disappeared."
+"Five maids amilking sit on sandy stools before you, grinning maniacally."
+"A large rainbow trout walks by, holding a pet snail on a leash."
+"A strong gust of wind kicks up a herd of buffalo on the horizon. You think it
+strange that the buffalo are riding sidesaddle.">>
+
+<GLOBAL MIRAGE-LTBL
+	<LTABLE
+"Far off in the distance, dancing on the horizon, you see a shimmering oasis.
+Standing by the oasis are a team of Egyptian workers, waving for you to
+approach."
+"A cool pool of water seems to dance in the heat waves just a mile away. You
+can almost hear Rankin and Craige arguing over the spoils."
+"A caravan of camels, led by a nomadic tribe, wanders a few miles off."
+"You wipe your sweating brow, gazing off into the distance, and notice a cool,
+crystal-clear lake glimmering on the horizon, just to the north.">>
+
+<OBJECT ROCK-LOCK
+	(IN EX8)
+	(FLAGS INVISIBLE NDESCBIT CONTBIT OPENBIT DONTTAKE VOWELBIT)
+	(DESC "opening")
+	(SYNONYM OPENIN BLOCK HOLE)
+	(ADJECTIVE SQUARE)
+	(CAPACITY 5)
+	(MAP 3)
+	(TEXT
+"The opening sits in the upper right-hand corner of the block. It's a small
+square opening, about four inches square, far too small for you
+to enter, and rather shallow. Some hieroglyphs travel across the block,
+cut off by the opening:|
+|
+       !-!        !-!|
+->  #.  ! !  -  #  ! !  /")
+	(ACTION ENTER-OPENING-FCN)>
+
+<ROUTINE ENTER-OPENING-FCN ()
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>)
+	       (<VERB? THROUGH>
+		<TELL
+"I think the opening is a little too small to get through. Unless your ethics
+and morals are an accurate representation of your stature." CR>
+		<RTRUE>)>>
+
+<OBJECT COT
+	(IN TENT)
+	(FLAGS TAKEBIT TRYTAKEBIT CONTBIT OPENBIT SURFACEBIT VEHBIT VOWELBIT
+	       TRANSBIT)
+	(DESC "army cot")
+	(ACTION COT-FCN)
+	(CAPACITY 100)
+	(SYNONYM COT)
+	(ADJECTIVE ARMY)>
+
+<OBJECT FOLDED-COT
+	(FLAGS TAKEBIT)
+	(DESC "folded cot")
+	(ACTION COT-FCN)
+	(SIZE 9)
+	(SYNONYM COT)
+	(ADJECTIVE ARMY FOLDED)>
+
+<ROUTINE COT-FCN ("OPTIONAL" (RARG ,M-OBJECT) "AUX" F)
+	 <COND (<NOT <EQUAL? .RARG ,M-OBJECT>> <RFALSE>)
+	       (<PRSO? ,COT>
+		<SET F <FIRST? ,COT>>
+		<COND (<VERB? TAKE PUT PUT-ON>
+		       <TELL
+"It's too bulky and unstable a structure to be carrying around." CR>
+		       <RTRUE>)
+		      (<VERB? CLIMB-ON CLIMB-UP>
+		       <COND (<IN? ,WINNER ,COT>
+			      <TELL "Where do you think you are?" CR>)
+			     (T
+			      <TELL
+"This is no time for sitting down on the job, especially after what you've been
+through to get here!" CR>)>
+		       <RTRUE>)
+		      (<VERB? EXAMINE LOOK-INSIDE>
+		       <TELL "It's just an army cot.">
+		       <COND (<AND .F
+				   <EQUAL? .F ,WINNER>>
+			      <TELL " And you're in it!">)
+			     (.F
+			      <TELL " Sitting on the cot ">
+			      <COND (<G? <CCOUNT ,COT> 1>
+				     <TELL "are ">)
+				    (T <TELL "is ">)>
+			      <PRINT-CONTENTS ,COT>
+			      <TELL ".">)>
+		       <CRLF>
+		       <RTRUE>)
+		      (<VERB? FOLD CLOSE>
+		       <COND (<NOT .F>
+			      <TELL "Folded." CR>
+			      <MOVE ,FOLDED-COT <LOC ,COT>>
+			      <REMOVE ,COT>
+			      <THIS-IS-IT ,FOLDED-COT>
+			      <RTRUE>)
+			     (<EQUAL? .F ,WINNER>
+			      <TELL
+"Don't you think it would be wise to get out of the cot first? Or are you
+waiting for a valet to help?" CR>
+			      <RTRUE>)
+			     (.F
+			      <TELL
+"You'd better take everything off of it first." CR>
+			      <RTRUE>)>)
+		      (<VERB? OPEN UNFOLD>
+		       <TELL "It's already unfolded." CR>
+		       <RTRUE>)
+		      (<AND <VERB? DROP>
+			    <EQUAL? <LOC ,WINNER> ,COT>>
+		       <PERFORM ,V?DISEMBARK ,COT>
+		       <RTRUE>)
+		      (<AND <VERB? WALK THROUGH>
+			    <EQUAL? <LOC ,WINNER> ,COT>>
+		       <TELL "You'd better get out of the cot first." CR>
+		       <RFATAL>)>)
+	       (<PRSO? ,FOLDED-COT>
+		<COND (<VERB? OPEN UNFOLD>
+		       <COND (<NOT <IN? ,FOLDED-COT ,HERE>>
+			      <TELL
+"Better put it down on the ground first." CR>)
+			     (T
+			      <TELL "Unfolded." CR>
+			      <MOVE ,COT <LOC ,FOLDED-COT>>
+			      <REMOVE ,FOLDED-COT>
+			      <THIS-IS-IT ,COT>
+			      <RTRUE>)>)
+		      (<VERB? FOLD CLOSE>
+		       <TELL 
+"Hmmm. Looks like you beat yourself to it. It's already folded up." CR>
+		       <RTRUE>)>)>>
+		      
+
+<OBJECT MATCHES
+	(IN FIRE)
+	(DESC "matchbook")
+	(FDESC
+"Sitting by a rock is what looks like a matchbook.")
+	(SYNONYM MATCHB MATCHE COVER)
+	(FLAGS BURNBIT TAKEBIT READBIT CONTBIT)
+	(SIZE 1)
+	(CAPACITY 1)
+	(GENERIC DIASMBIGUATE-FCN)
+	(ACTION READ-MATCHES-FCN)>
+
+<ROUTINE READ-MATCHES-FCN ("OPTIONAL" OBJ)
+	 <COND (<NOT .OBJ>
+		<SET OBJ ,MATCHES>)>
+	 <COND (<VERB? READ-INSIDE>
+		<COND (<NOT <FSET? .OBJ ,OPENBIT>>
+		       <TELL "You'd better open the matchbook first." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <PERFORM ,V?READ .OBJ>
+		       <RTRUE>)>)
+	       (<VERB? READ LOOK-BEHIND>
+		<COND (<FSET? .OBJ ,OPENBIT>
+		       <TELL
+"The inside says: Send away now!! Mushrooms can be taught a foreign
+language, and make fine pets! Easy to feed and they can be walked on a leash!
+Read and fill out the enclosed coupon now!" CR>)
+		      (ELSE
+		       <TELL
+"Printed on the outside is a small coupon for an instruction manual,
+\"GROW MUSHROOMS IN YOUR BASEMENT FOR FUN & PROFIT\". Close Before
+Striking." CR>)>)
+	       (<VERB? LAMP-ON>
+		<TELL "One match at a time, eh?" CR>
+		<RTRUE>)>>
+
+<OBJECT MANY-MATCHES
+	(IN MATCHES)
+	(FLAGS TAKEBIT BURNBIT TRYTAKEBIT)
+	(DESC "few matches")
+	(SYNONYM MATCH)
+	(GENERIC DIASMBIGUATE-FCN)
+	(ADJECTIVE ONE SINGLE)
+	(SIZE 1)
+	(ACTION TAKE-ONE-MATCH-FCN)>
+
+<OBJECT SINGLE-MATCH
+	(FLAGS TAKEBIT BURNBIT TRYTAKEBIT)
+	(DESC "single match")
+	(SYNONYM MATCH)
+	(GENERIC DIASMBIGUATE-FCN)
+	(ADJECTIVE ONE SINGLE)
+	(SIZE 1)
+	(ACTION TAKE-ONE-MATCH-FCN)>
+
+<OBJECT ONE-MATCH
+	(IN GLOBAL-OBJECTS)
+	(FLAGS BURNBIT)
+	(DESC "match")
+	(GENERIC DIASMBIGUATE-FCN)
+	(SYNONYM MATCH)
+	(SIZE 1)
+	(ACTION DROP-ONE-FCN)>
+
+<OBJECT BURNED-MATCHBOOK
+	(FLAGS CONTBIT TAKEBIT)
+	(DESC "burned matchbook")
+	(SYNONYM MATCHB)
+	(ADJECTIVE BURNED)
+	(CAPACITY 1)>
+
+<OBJECT EMPTY-MATCHES
+	(FLAGS CONTBIT OPENBIT BURNBIT READBIT TAKEBIT)
+	(DESC "matchbook")
+	(SYNONYM MATCHB MATCHE)
+	(GENERIC DIASMBIGUATE-FCN)
+	(ADJECTIVE EMPTY)
+	(CAPACITY 1)
+	(ACTION LAST-MATCH-FCN)>
+
+<ROUTINE LAST-MATCH-FCN ()
+	 <COND (<AND <VERB? DROP>
+		     <IN? ,ONE-MATCH ,WINNER>>
+		<DROP-ONE-FCN>
+		<RTRUE>)
+	       (<VERB? TAKE>
+		<TELL "Why? There's no match left in the matchbook." CR>
+		<RTRUE>)
+	       (<VERB? LAMP-ON>
+		<COND (<IN? ,ONE-MATCH ,WINNER>
+		       <RFALSE>)
+		      (ELSE
+		       <TELL "There's no match to light!" CR>
+		       <RTRUE>)>)
+	       (<VERB? READ>
+		<READ-MATCHES-FCN ,EMPTY-MATCHES>
+		<RTRUE>)>>
+
+<ROUTINE DROP-ONE-FCN ()
+	 <COND (<VERB? DROP PUT>
+		<COND (<NOT <IN? ,ONE-MATCH ,WINNER>>
+		       <TELL "Better take one first." CR>
+		       <RTRUE>)>
+		<MOVE ,ONE-MATCH ,GLOBAL-OBJECTS>
+		<TELL "Dropped. ">
+		<BUT-WHERE?>
+		<TELL " ">
+		<I-MATCH-OUT>
+		<DISABLE <INT I-MATCH-OUT>>
+		<RTRUE>)
+	       (<VERB? TAKE>
+		<COND (<IN? ,MATCHES ,WINNER>
+		       <MATCH-MOVER <>>
+		       <RTRUE>)
+		      (T
+		       <TELL "I see no match here." CR>
+		       <RTRUE>)>)
+	       (<EQUAL? ,ONE-MATCH ,PRSI>
+		<COND (<AND <NOT <IN? ,MATCHES ,WINNER>>
+			    <NOT <IN? ,ONE-MATCH ,WINNER>>>
+		       <TELL "You're not holding the match." CR>
+		       <RTRUE>)
+		      (T
+		       <MATCH-MOVER T>
+		       <RFALSE>)>)>>
+
+<ROUTINE BUT-WHERE? ()
+	 <COND (<IN? ,WINNER ,COT>
+		<TELL
+		 "The match disappears somewhere beneath the cot.">)
+	       (<EQUAL? ,HERE ,RIVER-BANK>
+		<TELL
+		 "The current of the river sweeps it away.">)
+	       (<GETP ,HERE ,P?MAP>
+		<TELL 
+		 "The match, however, is quickly covered by the sand.">)
+	       (<EQUAL? <GETP ,HERE ,P?ACTION> ,BURN-THE-BARGE>
+		<TELL 
+		 "The match, however, falls between the wooden decking.">)
+	       (<AND <NOT <FSET? ,PIT ,INVISIBLE>>
+		     <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>>
+		<TELL
+		 "The match flutters down into the abyss.">)
+	       (T
+		<TELL "The match falls into a crack in the stone floor.">)>
+	 <COND (<NOT <FLAMING? ,ONE-MATCH>>
+		<CRLF>)>>
+
+<ROUTINE TAKE-ONE-MATCH-FCN ()
+	 <COND (<VERB? TAKE>
+		<COND (<NOT <IN? ,ONE-MATCH ,WINNER>>
+		       <MATCH-MOVER <>>)
+		      (ELSE
+		       <TELL "You're already holding one." CR>)>
+		<RTRUE>) 
+	       (<VERB? DROP>
+		<PERFORM ,V?DROP ,ONE-MATCH>
+		<RTRUE>)
+	       (<OR <VERB? PUT PUT-ON PUT-UNDER>
+		    <VERB? PUT-BEHIND PUT-AGAINST PUT-ACROSS>>
+		<COND (<IN? ,ONE-MATCH ,WINNER>
+		       <MOVE ,ONE-MATCH ,GLOBAL-OBJECTS>
+		       <TELL 
+"Well, I tried, but the match seems to have missed the mark entirely." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <TELL "One match at a time!" CR>
+		       <RTRUE>)>)>>
+
+<ROUTINE MATCH-MOVER ("OPTIONAL" (SUPPRESS? T))
+	 <COND (<G? ,MATCH-COUNT 0>
+		<SETG MATCH-COUNT <- ,MATCH-COUNT 1>>)>
+	 <COND (<L? ,MATCH-COUNT 1>
+		<SETG MATCH-COUNT 0>
+		<REMOVE ,SINGLE-MATCH>
+		<RFALSE>)
+	       (<EQUAL? ,MATCH-COUNT 1>
+		<MOVE ,EMPTY-MATCHES <LOC ,MATCHES>>
+		<REMOVE ,MATCHES>
+		<REMOVE ,MANY-MATCHES>
+		<FSET ,SINGLE-MATCH ,NDESCBIT>)
+	       (<EQUAL? ,MATCH-COUNT 2>
+		<MOVE ,SINGLE-MATCH <LOC ,MANY-MATCHES>>
+		<REMOVE ,MANY-MATCHES>)>
+	 <MOVE ,ONE-MATCH ,WINNER>
+	 <COND (<NOT .SUPPRESS?>
+		<TELL "Taken." CR>)>
+	 <RTRUE>>
+
+<OBJECT MANUAL
+	(IN GLOBAL-OBJECTS)
+	(DESC "manual")
+	(FLAGS READBIT DONTTAKE)
+	(ADJECTIVE INSTRU)
+	(SYNONYM MANUAL COUPON)
+	(ACTION SEND-FOR-IT-FCN)>
+
+<ROUTINE SEND-FOR-IT-FCN ()
+	 <COND (<AND <VERB? SEND>
+		     <IN? ,MATCHES ,WINNER>>
+		<TELL
+"Sure. As soon as a postman walks by, I'd be glad to give the coupon to him." CR>
+		<RTRUE>)
+	       (<AND <VERB? READ>
+		     <IN? ,MATCHES ,WINNER>>
+		<TELL
+"The coupon for the manual is as clear as any coupon ever was:|
+|
+Fill in Last Name first, unless First Name is Last. Check the box beside
+the dotted line unless you want the manual shipped via alternate shipping.
+Include your address unless your mailing address and shipping address differ
+from your postal delivery route. If you are having the manual air-freighted,
+fill in your airport's zip code unless you're within thirty miles of a large
+corn field. After checking whether that box has been checked, check it.
+|
+Before you mail this, be certain you've read the instructions and have filled
+out all three sides of the form. In case of doubt, contact the Coupon
+Customer Service Department, 122 East Accardi Street, Youknow, Alaska.
+If you live west of the Atlantic or the Pacific, this offer is
+null and void except where prohibited by law." CR >)
+	       (<VERB? READ>
+		<TELL
+"There's not much to read unless you're holding the matchbook." CR>
+		<RTRUE>)>>
+
+<ROUTINE BURN-FOO-FCN ()
+	 <COND (<AND <VERB? BURN LAMP-ON>
+		     <PRSO? ,CIG-WRAPPER>
+		     <OR <IN? ,MATCHES ,WINNER>
+			 <AND <IN? ,ONE-MATCH ,WINNER>
+			      <FLAMING? ,ONE-MATCH>>>>
+		<TELL 
+"It tries valiantly to burn, but the inside of it is made of foil, and you
+manage to burn your fingertips instead of the package." CR>
+		<MOVE ,BURNED-PACK <LOC ,CIG-WRAPPER>>
+		<FCLEAR ,BURNED-PACK ,INVISIBLE>
+		<FCLEAR ,BURNED-PACK ,NDESCBIT>
+		<REMOVE ,CIG-WRAPPER>
+		<THIS-IS-IT ,BURNED-PACK>
+		<RTRUE>)
+	       (<VERB? READ>
+		<TELL <GETP ,CIG-WRAPPER ,P?TEXT> CR>)>>
+
+<OBJECT BURNED-PACK
+	(FLAGS INVISIBLE TAKEBIT READBIT NDESCBIT)
+	(DESC "burned wrapper")
+	(SYNONYM WRAPPE PACK)
+	(ADJECTIVE BURNED)
+	(TEXT
+"There's not much left to the outside of this package that's distinguishable.")
+	(ACTION HUH?)>
+
+<OBJECT CIG-WRAPPER
+	(IN FIRE)
+	(FLAGS TAKEBIT READBIT BURNBIT CONTBIT OPENBIT)
+	(DESC "cigarette pack")
+	(FDESC
+"Half covered with sand is a bright piece of foil which catches your eye.")
+	(SYNONYM PACK FOIL)
+	(ADJECTIVE CIGARE BRIGHT)
+	(TEXT
+"It's an empty pack of Camel cigarettes.")
+	(SIZE 3)
+	(CAPACITY 2)
+	(ACTION BURN-FOO-FCN)>
+
+<OBJECT BROKEN-LOCK
+	(IN TENT)
+	(FLAGS INVISIBLE TAKEBIT TRYTAKEBIT NDESCBIT)
+	(DESC "broken lock")
+	(SYNONYM LOCK PADLOC)
+	(ADJECTIVE BROKEN)
+	(TEXT
+"This is a slightly messed-up lock which once functioned. Alas, like your
+personality, it has seen better days.")>
+
+<OBJECT TRUNK
+	(IN TENT)
+	(FLAGS CONTBIT TRANSBIT SURFACEBIT OPENBIT)
+	(DESC "trunk")
+	(DESCFCN DESCRIBE-TRUNK-FCN)
+	(SYNONYM TRUNK)
+	(ADJECTIVE LARGE UNWIEL)
+	(CAPACITY 100)
+	(ACTION TRUNK-FCN)>
+
+<GLOBAL TRUNK-TBL ;"Thirty (30) slots to hold objects in the trunk"
+	<LTABLE MAP FOOD SMALL-SLIP 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0>>
+
+<ROUTINE DESCRIBE-TRUNK-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-OBJDESC>
+		<COND (<IN? ,COT ,HERE>
+		       <TELL
+"At the foot of the cot is a large, unwieldy trunk.">)
+		      (T
+		       <TELL "A large, unwieldy trunk sits on the sand.">)>
+		<COND (<FSET? ,BROKEN-LOCK ,INVISIBLE>
+		       <TELL
+" The trunk is closed and locked with a padlock.">)
+		      (<NOT <FSET? ,BROKEN-LOCK ,TOUCHBIT>>
+		       <TELL
+" The trunk is closed with a broken padlock.">)>
+		<CRLF>
+		<COND (<FIRST? ,TRUNK>
+		       <PRINT-CONT ,TRUNK>)>
+		<RTRUE>)>>
+
+<ROUTINE TRUNK-FCN ("AUX" (FLG <>))
+	 <COND (<VERB? OPEN>
+		<COND (<IN? ,LOCK ,TENT>
+		       <TELL "A padlock holds it shut." CR>)
+		      (<NOT <FSET? ,BROKEN-LOCK ,TOUCHBIT>>
+		       <TELL
+"You'd better remove the broken lock first." CR>)
+		      (ELSE
+		       <TBL-TO-INSIDE ,TRUNK ,TRUNK-TBL>
+		       <RTRUE>)>)
+	       (<VERB? UNLOCK>
+		<COND (<NOT <FSET? ,TRUNK ,SURFACEBIT>>
+		       <TELL "Better have your eyes checked." CR>)
+		      (T <TELL "You don't have a key." CR>)>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <FSET? ,TRUNK ,SURFACEBIT>>
+		<TELL
+"It's an old steamer trunk, very heavy and too clumsy for one person to carry."CR>
+		<COND (<FIRST? ,TRUNK>
+		       <PRINT-CONT ,TRUNK>)>
+		<RTRUE>)
+	       (<AND <VERB? CLOSE>
+		     <NOT <FSET? ,TRUNK ,SURFACEBIT>>>
+		<COND (<AND <IN? ,TORCH ,TRUNK>
+			    <FLAMING? ,TORCH>>
+		       <SET FLG T>)>
+		<INSIDE-OBJ-TO ,TRUNK-TBL ,TRUNK>
+		<COND (.FLG
+		       <KILL-TORCH T>)>
+		<RTRUE>)>>
+
+<OBJECT LOCK
+	(IN TENT)
+	(DESC "padlock")
+	(SYNONYM PADLOC LOCK)
+	(FLAGS NDESCBIT CONTBIT)
+	(ACTION LOCK-FCN)>
+
+<ROUTINE LOCK-FCN ()
+	 <COND (<VERB? OPEN>
+		<COND (,PRSI
+		       <PERFORM ,V?MUNG ,PRSO ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <TELL"You can't. It's locked." CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? MUNG>
+		     <PRSI? ,PICK-AXE 
+			    ,SHOVEL ,ROCK>>
+		<TELL "The padlock breaks open." CR>
+		<FCLEAR ,BROKEN-LOCK ,INVISIBLE>
+		<REMOVE ,LOCK>
+		<THIS-IS-IT ,BROKEN-LOCK>
+		<SETG SCORE <+ ,SCORE 5>>)
+	       (<VERB? MUNG>
+		<TELL"You'll have to hit the lock with something stronger." CR>
+		<RTRUE>)
+	       (<VERB? TAKE DISEMBARK>
+		<TELL "It's locked." CR>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <IN? ,LOCK ,HERE>>
+		<TELL
+"It's made of hardened steel and is very sturdy. It's also very locked." CR>)>>
+
+<OBJECT PICK-AXE
+	(IN SUPPLY-TENT)
+	(FLAGS TOOLBIT TAKEBIT)
+	(DESC "pick axe")
+	(FDESC
+"Stuck in the sand, handle down, is a small pick axe.")
+	(SYNONYM AXE PICKAX AX)
+	(ADJECTIVE PICK)
+	(TEXT
+"It's a small hand axe, similar to those used in mountain climbing.")
+	(SIZE 10)>
+
+<OBJECT STONE-KEY
+	(IN MAP)
+	(FLAGS TAKEBIT READBIT)
+	(DESC "stone cube")
+	(TEXT
+"This is a small stone cube, almost four inches on a side, with ancient
+markings on it. The markings look like this:|
+|
+#  !@!  ::  (())  !@!  //\\\\")
+	(SYNONYM CUBE)
+	(MAP 3)
+	(ADJECTIVE SMALL STONE)
+	(ACTION STONE-KEY-FCN)>
+
+<GLOBAL PYRAMID-OPENED <>>
+
+<ROUTINE STONE-KEY-FCN ()
+	 <COND (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,ROCK-LOCK>>
+		<TELL "The ancient stones beneath your feet shake and
+tremble as they move the sands. You leap out of the way and manage to
+avoid being sucked down into the vortex. Through the sands, an entrance
+down into the pyramid is revealed. The entire experience sends a jolt of
+adrenaline through your body as your lips form a sneer. You've found it.
+And without any help from those idiots."CR>
+		<SETG PYRAMID-OPENED T>
+		<REMOVE ,STONE-KEY>
+		<REMOVE ,ROCK-LOCK>
+		<SETG P-IT-LOC <>>
+		<PUTP ,HERE ,P?LDESC
+"You are in the desert at a site of successful excavation. Beneath you lies the
+pyramid, its stone door at last open. The desert is all around you, but
+down there lie the secrets of the ages.">
+		<SETG SCORE <+ ,SCORE 20>>)>>
+
+<OBJECT FOOD
+	(FLAGS FOODBIT TAKEBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "piece of dried beef")
+	(SYNONYM BEEF FOOD MEAT)
+	(ADJECTIVE DRIED PIECE)
+	(ACTION EDIBLE-FCN)>
+
+<ROUTINE EDIBLE-FCN ()
+	 <COND (<NOT <EQUAL? ,PRSO ,FOOD>>
+		<RFALSE>)
+	       (<VERB? SMELL TASTE>
+		<TELL "Mmmm good!" CR>
+		<RTRUE>)>>
+	       
+<OBJECT MAP
+	(FLAGS CONTBIT TAKEBIT VOWELBIT BURNBIT)
+	(DESC "ancient map")
+	(SYNONYM MAP)
+	(ADJECTIVE ANCIEN)
+	(CAPACITY 5)
+	(ACTION MAP-FCN)>
+
+<ROUTINE MAP-FCN ()
+	 <COND (<AND <NOT <IN? ,MAP ,WINNER>>
+		     <VERB? OPEN READ EXAMINE>> 
+		<TELL "You're not carrying the map." CR>
+		<RTRUE>)
+	       (<AND <VERB? READ EXAMINE>
+		     <NOT <FSET? ,MAP ,OPENBIT>>>
+		<TELL "You'd better unfold it first." CR>
+		<RTRUE>)
+	       (<VERB? READ EXAMINE>
+		<TELL
+"This is a reproduction of the map the Professor made while on his expedition.
+It indicates where he hoped to find the lost pyramid. It is included in your
+game package." CR>)
+	       (<AND <VERB? TAKE>
+		     <NOT <FSET? ,MAP ,TOUCHBIT>>>
+		<COND (<ITAKE>
+		       <TELL
+"Taken. It feels fairly heavy, though, as though it were folded around
+something solid." CR>)>
+		<RTRUE>)>>
+
+<OBJECT SHOVEL
+	(IN SUPPLY-TENT)
+	(FLAGS TOOLBIT TAKEBIT)
+	(DESC "shovel")
+	(FDESC
+"Half buried in the sand, in the corner of the tent, is a shovel.")
+	(TEXT
+"It's a standard-issue garden shovel.")
+	(SYNONYM SHOVEL)>
+
+<OBJECT ROPE
+	(IN KNAPSACK)
+	(DESC "rope")
+	(FLAGS TAKEBIT CLIMBBIT BURNBIT TOUCHBIT)
+	(SYNONYM ROPE COIL ASP)
+	(SIZE 4)
+	(ADJECTIVE BUNCH)
+	(TEXT
+"This rope is made of the finest Manila hemp and guaranteed to hold at least
+250 pounds of weight. There's about thirty feet of it. Be glad the workers
+didn't hang you with it.")
+	(ACTION ROPE-FCN)
+	(DESCFCN DESCRIBE-ROPE-FCN)>
+
+<ROUTINE DESCRIBE-ROPE-FCN (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-OBJDESC>
+		     <OR <EQUAL? ,HERE ,LANDING-ZERO ,LANDING-ONE ,LANDING-TWO>
+			 <EQUAL? ,HERE ,LANDING-THREE ,TINY-LANDING>>
+		     ,ROPE-PLACED>
+		<TELL "Descending from above is the end of a long rope.">
+		<COND (<ROOM? ,TINY-LANDING>
+		       <TELL " It travels down into the darkness.">)>
+		<CRLF>
+		<RTRUE>)>>
+
+<ROUTINE ROPE-FCN ()
+	 <COND (<AND <VERB? TIE>
+		     <PRSI? ,ALTAR>>
+		<COND (,ROPE-TIED
+		       <TELL "It's already tied to the " D ,ROPE-TIED "." CR>
+		       <RTRUE>)
+		      (<EQUAL? ,PRSI ,ALTAR>
+		       <TELL "The rope has been tied to the " D ,PRSI "." CR>
+		       <SETG ROPE-TIED ,PRSI>
+		       <FSET ,ROPE ,TRYTAKEBIT>)
+		      (T <RFALSE>)>)
+	       (<VERB? UNTIE>
+		<COND (<NOT ,ROPE-TIED>
+		       <TELL "That's cute. It's not tied!" CR>
+		       <RTRUE>)
+		      (<NOT <EQUAL? ,HERE ,CHAMBER-OF-RA>>
+		       <TELL "Your arms aren't quite that long." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <TELL "Untied.">
+		       <SETG ROPE-TIED <>>
+		       <FCLEAR ,ROPE ,TRYTAKEBIT>
+		       <COND (,ROPE-PLACED
+			      <MOVE ,ROPE ,LANDING>
+			      <TELL " You hear it fall down below.">
+			      <SETG LANDING <>>
+			      <SETG ROPE-PLACED <>>)>
+		       <CRLF>
+		       <RTRUE>)>)
+	       (<AND <VERB? TAKE PUT>
+		     ,ROPE-PLACED
+		     <EQUAL? ,HERE ,CHAMBER-OF-RA>>
+		<SETG ROPE-PLACED <>>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<TELL "(free end of rope)" CR>
+		<RFALSE>)
+	       (<AND <VERB? TAKE>
+		     ,ROPE-PLACED
+		     <OR <EQUAL? ,HERE ,LANDING-ZERO ,LANDING-ONE 
+				 ,TINY-LANDING>
+			 <EQUAL? ,HERE ,LANDING-TWO ,LANDING-THREE>>>
+		<TELL "It seems to be tied to something up overhead." CR>
+		<RTRUE>)
+	       (<AND <VERB? MOVE>
+		     ,ROPE-PLACED>
+		<TELL "The rope is securely fastened to the altar." CR>
+		<RTRUE>)
+	       (<VERB? PUT>
+		<COND (<AND ,PRSI
+			    <FSET? ,PRSI ,CLIMBBIT>>
+		       <COND (<EQUAL? ,PRSI ,FEW-STEPS>
+			      <SETG PRSI ,NORTH-STAIRS>)>
+		       <SETG ROPE-PLACED ,PRSI>
+		       <TELL "The rope descends into the " D ,PRSI "." CR>
+		       <MOVE ,ROPE ,HERE>
+		       <COND (<EQUAL? ,PRSI ,NORTH-STAIRS>
+			      <SETG LANDING ,LANDING-ZERO>)
+			     (<EQUAL? ,PRSI ,SOUTH-STAIRS>
+			      <SETG LANDING ,LANDING-TWO>)
+			     (<EQUAL? ,PRSI ,EAST-STAIRS>
+			      <SETG LANDING ,LANDING-ONE>)
+			     (<EQUAL? ,PRSI ,WEST-STAIRS>
+			      <SETG LANDING ,LANDING-THREE>)
+			     (T
+			      <SETG LANDING ,LANDING-ZERO>)>
+		       <RTRUE>)
+		      (ELSE
+		       <RFALSE>)>)
+	       (<VERB? TAKE>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<RFALSE>)
+	       (<VERB? CLIMB-UP CLIMB-DOWN CLIMB-FOO>
+		<COND (<AND <VERB? CLIMB-UP>
+			    <ROOM? ,CHAMBER-OF-RA>>
+		       <TELL "The rope doesn't go up." CR>
+		       <RFATAL>)>
+		<SETG ROPE-HACK T>
+		<RFALSE>)>>
+
+<OBJECT NOTE
+	(IN TENT2)
+	(FLAGS READBIT BURNBIT TAKEBIT)
+	(DESC "farewell note")
+	(FDESC
+"Tacked up to the inside of one of the tent flaps is a note.")
+	(TEXT
+"The note reads:|
+|
+Fi aman Allah!
+|
+Hereafter you shall pursue your fool dream of the hidden pyramid and its riches
+alone. May the jackals feed well on your bones. We have left you what you need
+to get back, though we hope you do not. We put several things you treasure
+above life itself inside your trunk, locked with your precious padlock, but we
+could not bear to part with the key. Especially after what you said of our
+rites. We hope the drug we placed in your drink did you harm. If not, we are at
+least satisfied you slept especially soundly while we cleaned out the camp.|
+|
+Farewell")
+	(SYNONYM NOTE)
+	(ADJECTIVE FAREWE)
+	(SIZE 1)>
+
+<OBJECT GLOBAL-WATER
+	(IN LOCAL-GLOBALS)
+	(FLAGS DRINKBIT NDESCBIT)
+	(DESC "quantity of water")
+	(SYNONYM WATER)
+	>
+
+<OBJECT WATER
+	(IN CANTEEN)
+	(FLAGS DRINKBIT)
+	(DESC "quantity of water")
+	(SYNONYM WATER)
+	(SIZE 3)>
+
+<OBJECT CANTEEN
+	(IN KNAPSACK)
+	(FLAGS CONTBIT TAKEBIT TOUCHBIT)
+	(DESC "canteen")
+	(SYNONYM CANTEE)
+	(ADJECTIVE SMALL)
+	(CAPACITY 5)
+	(SIZE 6)
+	(ACTION CANTEEN-FCN)>
+	
+<GLOBAL SANDY-CANTEEN <>>
+<GLOBAL SAND-FILLED <>>
+
+<ROUTINE CANTEEN-FCN ()
+	 <COND (<VERB? SHAKE>
+		<COND (<NOT <FSET? ,CANTEEN ,OPENBIT>>
+		       <COND (<AND <IN? ,WATER ,CANTEEN>
+				   <G? ,WATER-LEFT 9>>
+			      <TELL "Some water sloshes around inside." CR>
+			      <RTRUE>)
+			     (,SAND-FILLED
+			      <TELL "Some sand shakes around inside." CR>
+			      <RTRUE>)
+			     (T
+			      <TELL "It's empty." CR>)>)
+		      (<IN? ,WATER ,CANTEEN>
+		       <TELL
+"All the water spills out and quickly evaporates. Another smart move."
+			     CR>
+		       <REMOVE ,WATER>
+		       <SETG WATER-LEFT 0>
+		       <RTRUE>)
+		      (,SAND-FILLED
+		       <TELL "You empty the canteen of most of the sand." CR>
+		       <SETG SAND-FILLED <>>
+		       <REMOVE ,C-SAND>
+		       <FSET ,C-SAND ,NDESCBIT>
+		       <RTRUE>)
+		      (T
+		       <TELL 
+"Okay, but shaking an empty canteen will get you nowhere fast." CR>
+		       <RTRUE>)>)
+	       (<AND <VERB? FILL>
+		     <EQUAL? ,PRSI ,SAND>>
+		<COND (<NOT <GETP ,HERE ,P?MAP>>
+		       <TELL "I see no sand here." CR>)
+		      (<NOT <FSET? ,CANTEEN ,OPENBIT>>
+		     <TELL "It would help if you opened the canteen first." CR>
+		       <RTRUE>)
+		      (T
+		       <TELL "Okay. The canteen has been filled with sand.">
+		       <COND (,WATER-LEFT
+			      <SETG WATER-LEFT 0>
+			      <REMOVE ,WATER>
+			      <TELL
+" So much for the water that was left in it.">)>
+		       <CRLF>
+		       <SETG SANDY-CANTEEN T>
+		       <SETG SAND-FILLED T>
+		       <MOVE ,C-SAND ,CANTEEN>
+		       <FCLEAR ,C-SAND ,NDESCBIT>)>
+		<RTRUE>)
+	       (<AND <PRSI? ,CANTEEN>
+		     <VERB? PUT>
+		     <NOT <EQUAL? ,PRSO ,SAND ,GLOBAL-WATER ,C-SAND>>>
+	        <TELL
+"That would void the manufacturer's warranty on the canteen." CR>)>>
+
+<OBJECT SMALL-SLIP
+	(FLAGS READBIT TAKEBIT BURNBIT VOWELBIT)
+	(DESC "inspection sticker")
+	(TEXT
+"The small inspection sticker says:
+|
+This trunk inspected by numbers 8 and 6.5. This reality was manufactured by
+tiny elves from the Bozbar Pyramid Construction Company, a jointly-owned
+subsidiary of the FrobozzCo Magic Village Industries, Michael Berlyn and
+Patricia Fogleman, Chief Engineers.")
+	(SYNONYM STICKE)
+	(ADJECTIVE INSPEC)>
+
+<ROOM ENDLESS-DESERT
+      (IN ROOMS)
+      (DESC "Desert")
+      (FLAGS RLANDBIT ONBIT)
+      (LDESC
+"You are in the desert, a vast wasteland of sand and heat.")
+      (UP "Without a helicopter?")
+      (DOWN "Let's not rush things.")
+      (ACTION DESERT-EXIT-FCN)
+      (CAPACITY 0)
+      (GLOBAL SAND MIRAGES)>
+
+<OBJECT MIRAGES
+	(IN LOCAL-GLOBALS)
+	(DESC "mirage")
+	(FLAGS NDESCBIT)
+	(SYNONYM GORT KLAATU FISH BUFFAL)
+	(ADJECTIVE LIZARD MAIDS SNAIL GYROCO)
+	(ACTION MIRAGES-F)>
+
+<ROUTINE MIRAGES-F ()
+	 <TELL
+"Come on! This life you're leading is bad enough -- don't waste your life on
+illusions." CR>
+	 <RTRUE>>
+
+<GLOBAL TOLD-IT <>>
+
+<ROUTINE DESERT-EXIT-FCN (RARG "AUX" (END-OF-TBL 26) (OFFS 0) (NEW-ROOM <>)
+			  OLD-DESERT)
+	 <COND (<EQUAL? .RARG ,M-END>
+		<COND (<AND <VERB? DROP>
+			    <PROB 33>
+			    <NOT ,TOLD-IT>>
+		       <TABLE-TO-DESERT ,DESERT-LOC>
+		       <REMOVE ,PRSO>
+		       <TELL
+"A brief but strong gust of wind comes up off a dune, whipping sand in your
+face, blinding you for long enough to lose track of the " D ,PRSO "." CR>
+		       <SETG TOLD-IT T>)>
+		<RTRUE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<DESCRIBE-HOLE-FCN ,M-LOOK>
+		<SETG TOLD-IT <>>
+		<RTRUE>)
+	       (<NOT <EQUAL? .RARG ,M-BEG>>
+		<RFALSE>)
+	       (<OR <NOT <VERB? WALK>>
+		    <EQUAL? ,PRSO ,P?UP ,P?DOWN>>
+		<SETG TOLD-IT <>>
+		<RFALSE>)>
+	 <SETG TOLD-IT <>>
+	 <SETG THIRST <+ ,THIRST 15>>
+	 <SET OLD-DESERT ,DESERT-LOC>
+	 <CHANGE-DESERT-POSITION>
+	 <REPEAT ()
+		 <COND (<EQUAL? .OFFS .END-OF-TBL>
+			<RETURN>)
+		       (ELSE
+			<COND (<EQUAL? ,DESERT-LOC <GET ,REENTRY-TBL .OFFS>>
+			       <SET NEW-ROOM <GET ,REENTRY-TBL <+ .OFFS 1>>>
+			       <RETURN>)
+			      (ELSE
+			       <SET OFFS <+ .OFFS 2>>)>)>>
+	 <DESERT-TO-TABLE .OLD-DESERT>
+	 <PROP-TO-TBL .OLD-DESERT>
+	 <COND (<NOT .NEW-ROOM>
+		<FCLEAR ,HERE ,TOUCHBIT>
+		<SET NEW-ROOM ,ENDLESS-DESERT>
+		<TABLE-TO-DESERT ,DESERT-LOC>
+		<TBL-TO-PROP ,DESERT-LOC>)
+	       (ELSE
+		<TBL-TO-PROP .OLD-DESERT>)>
+	 <GOTO .NEW-ROOM>
+	 <RTRUE>>
+	 
+<GLOBAL REENTRY-TBL
+	<TABLE 651 P1 652 P2 653 P3 654 EX1 655 EX2
+	       656 EX3 706 EX6 751 P6 752 P7 753 P8
+	       754 EX7 755 EX8 756 EX9>>
+
+<ROUTINE DESERT-TO-TABLE (SLOC "AUX" (TBL ,DESERT-TABLE) (CNT 0)
+			  (F <FIRST? ,ENDLESS-DESERT>) N)
+	 <REPEAT ()
+		 <COND (.F <SET N <NEXT? .F>>)
+		       (ELSE <RETURN>)>
+		 <COND (<EQUAL? .F ,WINNER>)
+		       (<FSET? .F ,TAKEBIT>
+			<REPEAT ()
+				<COND (<==? <GET .TBL .CNT> 0>
+				       <PUT .TBL .CNT .SLOC>
+				       <PUT .TBL <+ .CNT 1> .F>
+				       <SET CNT <+ .CNT 2>>
+				       <REMOVE .F>
+				       <RETURN>)
+				      (ELSE
+				       <SET CNT <+ .CNT 2>>)>>)>
+		 <SET F .N>>>
+
+<ROUTINE TABLE-TO-DESERT (SLOC
+			 "AUX" (TBL ,DESERT-TABLE) (CNT 0))
+	 <REPEAT ()
+		 <COND (<NOT <L? .CNT 100>>
+			<RETURN>)
+		       (<==? <GET .TBL .CNT> .SLOC>
+			<PUT .TBL .CNT 0>
+			<MOVE <GET .TBL <+ .CNT 1>> ,ENDLESS-DESERT>)>
+		 <SET CNT <+ .CNT 2>>>>
+
+<GLOBAL DESERT-LOC 0>
+<CONSTANT DESERT-START 10000>
+
+<GLOBAL DESERT-TABLE ;"length should be 2*number of takeable objects"
+	<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>>
+
+<GLOBAL DESERT-HACK 0>
+
+<ROUTINE CHANGE-DESERT-POSITION ()
+	 <SETG DESERT-HACK <+ ,DESERT-HACK 1>>
+	 <COND (<EQUAL? ,DESERT-HACK 10>
+		<TELL 
+"WARNING: The Surgeon General has determined that wandering about like this is
+dangerous to your health." CR>
+		<CRLF>)
+	       (<EQUAL? ,DESERT-HACK 20>
+		<COND (<ROB-HIM-BLIND>
+		       <TELL
+"You start dropping things to lighten your load. Before you know it, you're
+empty-handed. A gust of wind comes up off the dune before you, covering over
+what you've dropped. So much for that." CR>
+		       <CRLF>)>)>
+	 <COND (<EQUAL? ,PRSO ,P?NORTH>
+		<SETG DESERT-LOC <- ,DESERT-LOC 50>>
+		<FIX-LON-LAT 0 2>)
+	       (<EQUAL? ,PRSO ,P?NE>
+		<SETG DESERT-LOC <- ,DESERT-LOC 49>>
+		<FIX-LON-LAT 2 2>)
+	       (<EQUAL? ,PRSO ,P?EAST>
+		<SETG DESERT-LOC <+ ,DESERT-LOC 1>>
+		<FIX-LON-LAT 2 0>)
+	       (<EQUAL? ,PRSO ,P?SE>
+		<SETG DESERT-LOC <+ ,DESERT-LOC 51>>
+		<FIX-LON-LAT 2 -2>)
+	       (<EQUAL? ,PRSO ,P?SOUTH>
+		<SETG DESERT-LOC <+ ,DESERT-LOC 50>>
+		<FIX-LON-LAT 0 -2>)
+	       (<EQUAL? ,PRSO ,P?SW>
+		<SETG DESERT-LOC <+ ,DESERT-LOC 49>>
+		<FIX-LON-LAT -2 -2>)
+	       (<EQUAL? ,PRSO ,P?WEST>
+		<SETG DESERT-LOC <- ,DESERT-LOC 1>>
+		<FIX-LON-LAT -2 0>)
+	       (<EQUAL? ,PRSO ,P?NW>
+		<SETG DESERT-LOC <- ,DESERT-LOC 51>>
+		<FIX-LON-LAT -2 2>)>>
+
+<ROUTINE FIX-LON-LAT (INC-LON INC-LAT)
+	 <COND (.INC-LON
+		<SETG SECS-LON <+ ,SECS-LON .INC-LON>>
+		<COND (<G? ,SECS-LON 60>
+		       <SETG SECS-LON 1>
+		       <SETG MINS-LON <+ ,MINS-LON 1>>
+		       <COND (<G? ,MINS-LON 59>
+			      <SETG MINS-LON 0>
+			      <SETG DEGS-LON <+ ,DEGS-LON 1>>)>)
+		      (<L? ,SECS-LON 1>
+		       <SETG SECS-LON 59>
+		       <SETG MINS-LON <- ,MINS-LON 1>>
+		       <COND (<L? ,MINS-LON 0>
+			      <SETG MINS-LON 59>
+			      <SETG DEGS-LON <- ,DEGS-LON 1>>)>)>)>
+	 <COND (.INC-LAT
+		<SETG SECS-LAT <+ ,SECS-LAT .INC-LAT>>
+		<COND (<G? ,SECS-LAT 60>
+		       <SETG SECS-LAT 1>
+		       <SETG MINS-LAT <+ ,MINS-LAT 1>>
+		       <COND (<G? ,MINS-LAT 59>
+			      <SETG MINS-LAT 0>
+			      <SETG DEGS-LAT <+ ,DEGS-LAT 1>>)>)
+		      (<L? ,SECS-LAT 1>
+		       <SETG SECS-LAT 59>
+		       <SETG MINS-LAT <- ,MINS-LAT 1>>
+		       <COND (<L? ,MINS-LAT 0>
+			      <SETG MINS-LAT 59>
+			      <SETG DEGS-LAT <- ,DEGS-LAT 1>>)>)>)>>
+
+<ROUTINE ROB-HIM-BLIND ("AUX" F N (FLG <>))
+	 <SET F <FIRST? ,WINNER>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<REMOVE .N>
+			<SET FLG T>)>>
+	 .FLG>
+	 
+
+<GLOBAL SECS-LAT 0>
+<GLOBAL SECS-LON 0>
+<GLOBAL MINS-LAT 0>
+<GLOBAL MINS-LON 0>
+<GLOBAL DEGS-LAT 0>
+<GLOBAL DEGS-LON 0>
+
+<GLOBAL PROP-TBL
+	<TABLE 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0>>
+
+<ROUTINE PROP-TO-TBL (SLOC "AUX" (TBL ,PROP-TBL) (CNT 0) DUG)
+	 <SET DUG <GETP ,HERE ,P?CAPACITY>>
+	 <COND (<EQUAL? .DUG 0>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <COND (<==? <GET .TBL .CNT> 0>
+			<PUT .TBL .CNT .SLOC>
+			<PUT .TBL <+ .CNT 1> .DUG>
+			<PUTP ,HERE ,P?CAPACITY 0> ;"Huh?"
+			<SET CNT <+ .CNT 2>>
+			<RETURN>)
+		       (ELSE
+			<SET CNT <+ .CNT 2>>)>>>
+
+<ROUTINE TBL-TO-PROP (SLOC "AUX" (TBL ,PROP-TBL) (CNT 0))
+	 <REPEAT ()
+		 <COND (<NOT <L? .CNT 120>>
+			<RETURN>)
+		       (<==? <GET .TBL .CNT> .SLOC>
+			<PUT .TBL .CNT 0>
+			<PUTP ,HERE ,P?CAPACITY <GET .TBL <+ .CNT 1>>>)>
+		 <SET CNT <+ .CNT 2>>>>
+
+<OBJECT C-SAND
+	(FLAGS NDESCBIT)
+	(DESC "quantity of sand")
+	(SYNONYM SAND)>
+		       
+<OBJECT KNAPSACK
+	(IN TENT2)
+	(DESC "knapsack")
+	(FLAGS TRYTAKEBIT TAKEBIT CONTBIT SEARCHBIT)
+	(SIZE 5)
+	(CAPACITY 60)
+	(SYNONYM SACK KNAPSA)
+	(ADJECTIVE KNAP)
+	(FDESC
+"Sitting in the sand, bulging a little, is a beaten-up knapsack.")
+	(ACTION WEAR-THE-SACK)>
+
+<ROUTINE WEAR-THE-SACK ("AUX" ON-IN?)
+	 <SET ON-IN? "in">
+	 <COND (<EQUAL? ,KNAPSACK ,PRSO>
+		<COND (<VERB? WEAR>
+		       <COND (<NOT <IN? ,KNAPSACK ,WINNER>>
+			      <COND (<NOT <ITAKE>>
+				     <RTRUE>)
+				    (T
+				     <COND (<NOT <EQUAL? ,PRSI ,NASTY-CROC>>
+					    <TELL "(taken)" CR>)
+					   (T
+					    <TELL "(wearing it)" CR>)>)>)>
+		       <TELL 
+"You swing the knapsack over your shoulders and it settles on your back as its
+cover flap closes." CR>
+		       <FCLEAR ,KNAPSACK ,OPENBIT>
+		       <FSET ,KNAPSACK ,WEARBIT>
+		       <THIS-IS-IT ,KNAPSACK>)
+		      (<AND <VERB? PUT PUT-ON>
+			    <EQUAL? ,PRSI ,ME>>
+		       <PERFORM ,V?WEAR ,KNAPSACK>
+		       <THIS-IS-IT ,KNAPSACK>
+		       <RTRUE>)
+		      (<AND <VERB? PUT PUT-ON>
+			    ,PRSI>
+		       <COND (<EQUAL? ,PRSI ,KNAPSACK>
+			      <TELL "Sure. Just like a Klein Bottle, eh?" CR>
+			      <RTRUE>)
+			     (<EQUAL? ,PRSI ,CRACK>
+			      <PERFORM ,PRSA ,PRSO ,GROUND>
+			      <RTRUE>)
+			     (<PRSI? ,FOLDED-COT>
+			      <TELL "Bizarre!" CR>
+			      <RTRUE>)
+			     (<NOT <FSET? ,KNAPSACK ,WEARBIT>>
+			      <RFALSE>)
+			     (T
+			      <COND (<AND <EQUAL? ,PRSI ,GROUND>
+					  <GETP ,HERE ,P?MAP>
+					  <NOT <IN-A-TENT?>>>
+				     <SETG PRSI ,SAND>)>
+			      <COND (<FSET? ,PRSI ,SURFACEBIT>
+				     <SET ON-IN? "on">)>
+			      <COND (<AND <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+					  <NOT <FSET? ,PIT ,INVISIBLE>>
+					  <EQUAL? ,PRSI ,PIT ,GROUND>>
+				     <TELL "Dropped." CR>
+				     <SETG P-IT-LOC <>>)
+				    (T <TELL
+"You take the knapsack off and place it " .ON-IN? " the " D ,PRSI
+". As it settles " .ON-IN? " the " D ,PRSI ", the cover flaps open." CR>)>
+			      <FCLEAR ,KNAPSACK ,WEARBIT>
+			      <FSET ,KNAPSACK ,OPENBIT>
+			      <COND (<EQUAL? ,PRSI ,GROUND ,SAND>
+				     <IDROP>)
+				    (T
+				     <MOVE ,KNAPSACK ,PRSI>)>
+			      <THIS-IS-IT ,KNAPSACK>
+			      <RTRUE>)>)
+		      (<AND <VERB? OPEN>
+			    <FSET? ,KNAPSACK ,WEARBIT>>
+		       <TELL 
+"You reach around behind to lift the flap on the top of the knapsack, but it
+keeps falling back down." CR>
+		       <THIS-IS-IT ,KNAPSACK>
+		       <RTRUE>)
+		      (<AND <VERB? SHAKE>
+			    <FSET? ,KNAPSACK ,WEARBIT>>
+		       <TELL
+"Better take it off first. Unless you want to do a few headstands." CR>
+		       <THIS-IS-IT ,KNAPSACK>
+		       <RTRUE>)
+		      (<VERB? FIND>
+		       <COND (<FSET? ,KNAPSACK ,WEARBIT>
+			      <TELL "It's on your back!" CR>
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (<AND <VERB? LOOK-INSIDE EXAMINE>
+			    <FSET? ,KNAPSACK ,WEARBIT>>
+		       <TELL
+"Your neck doesn't crane back that far. Better take it off first." CR>
+		       <THIS-IS-IT ,KNAPSACK>
+		       <RTRUE>)
+		      (<VERB? DISEMBARK DROP>
+		       <COND (<NOT <FSET? ,KNAPSACK ,WEARBIT>>
+			      <TELL "You aren't wearing it!" CR>
+			      <RTRUE>)
+			     (T
+			      <COND (<AND <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+					  <NOT <FSET? ,PIT ,INVISIBLE>>>
+				     <TELL "Dropped." CR>
+				     <SETG P-IT-LOC <>>)
+				    (T <TELL
+"You take the knapsack off and place it down. As it settles, the cover flaps
+open." CR>)>
+			      <FCLEAR ,KNAPSACK ,WEARBIT>
+			      <FSET ,KNAPSACK ,OPENBIT>
+			      <IDROP>
+			      <THIS-IS-IT ,KNAPSACK>
+			      <RTRUE>)>)
+		      (<VERB? TAKE>
+		       <COND (<AND <FSET? ,PRSO ,WEARBIT>
+			           <OR <EQUAL? <GET ,P-VTBL 0> ,W?REMOVE>
+				       <EQUAL? ,PRSI ,ME>>>
+			      <PERFORM ,V?DISEMBARK ,PRSO>
+			      <RTRUE>)
+			     (T
+			      <COND (<NOT <FSET? ,PRSO ,WEARBIT>>
+				     <PERFORM ,V?WEAR ,PRSO ,NASTY-CROC>
+				     <RTRUE>)
+				    (T <TELL "You already have it." CR>
+				     <RTRUE>)>)>)>)
+	       (<EQUAL? ,KNAPSACK ,PRSI>
+		<COND (<VERB? PUT>
+		       <COND (<FLAMING? ,PRSO>
+			      <TELL
+"Don't you think you should put out the " D ,PRSO " first?" CR>
+			      <RTRUE>)
+			     (<PRSO? ,SHOVEL ,BEAM ,CRATE>
+			      <TELL
+"That's like trying to fit a Beethoven Symphony into a music box." CR>
+			      <RTRUE>)
+			     (<PRSO? ,SAND ,WATER ,GLOBAL-WATER>
+			      <TELL 
+"It would only seep through the roughly-stitched seams, so why bother?" CR>
+			      <RTRUE>)
+			     (T
+			      <FSET ,PRSO ,TOUCHBIT>
+			      <RFALSE>)>)
+		      (<VERB? TAKE>
+		       <COND (<FSET? ,KNAPSACK ,OPENBIT>
+			      <RFALSE>)
+			     (<FSET? ,KNAPSACK ,WEARBIT>
+			      <TELL 
+"Your arms don't reach back that far, and groping around in the sack isn't the
+best of ideas. It would help if you took it off first." CR>
+			      <THIS-IS-IT ,KNAPSACK>
+			      <RTRUE>)
+			     (T
+			      <TELL "The knapsack isn't open." CR>
+			      <THIS-IS-IT ,KNAPSACK>
+			      <RTRUE>)>)
+		      (ELSE
+		       <RFALSE>)>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT CRATE
+	(IN GLOBAL-OBJECTS)
+	(DESC "packing crate")
+	(FLAGS CONTBIT TRANSBIT TAKEBIT BURNBIT SEARCHBIT READBIT SURFACEBIT
+	       OPENBIT)
+	(CAPACITY 10)
+	(SIZE 10)
+	(SYNONYM CRATE LABEL)
+	(ADJECTIVE PACKIN)
+	(FDESC
+"Lying in the sand is a wooden packing crate.")
+	(ACTION CRATE-FCN)>
+
+<ROUTINE CRATE-FCN ("AUX" (FLG <>))
+	 <COND (<AND <VERB? READ EXAMINE>
+		     <OR <IN? ,CRATE <LOC ,WINNER>>
+			 <IN? ,CRATE ,HERE>
+			 <IN? ,CRATE ,WINNER>
+			 <EQUAL? <LOC ,CRATE> <LOC ,WINNER>>
+			 <EQUAL? <LOC ,CRATE> ,WINNER>
+			 <AND <IN? ,CRATE ,KNAPSACK>
+			      <EQUAL? <LOC ,KNAPSACK> ,HERE>>>>
+		<TELL
+"The crate is slightly beaten up from the landing, but it seems to have held
+together fairly well. There's a small label on it that says \"This crate
+contains 1 (one) black box (tm).\"" CR>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE>
+		     <IN? ,CRATE ,GLOBAL-OBJECTS>
+		     <NOT <IN-A-TENT?>>
+		     <G? ,MOVES 4>>
+		<TELL 
+		 "It's coming down, and it looks like it should land near you!" CR>)
+	       (<AND <VERB? EXAMINE>
+		     <IN? ,CRATE ,GLOBAL-OBJECTS>
+		     <IN-A-TENT?>>
+		<TELL "I think you've got crates on the mind!" CR>)
+	       (<AND <VERB? MUNG>
+		     <NOT <IN? ,CRATE ,GLOBAL-OBJECTS>>>
+		<COND (<PRSI? ,SHOVEL ,PICK-AXE>
+		       <TELL 
+"Wood chips fly from the crate, hurtling into the sand all around, as the crate
+suffers your frenzied attack. The defenseless packing crate looks as if to flee
+but before it can react (growing legs is a time-consuming task) there is
+nothing left of it but a mere memory. (You really should seek some
+psychological counselling.)" CR>
+		       <COND (<NOT <FSET? ,BLACK-BOX ,TOUCHBIT>>
+			      <MOVE ,BLACK-BOX ,HERE>
+			      <FSET ,BLACK-BOX ,RMUNGBIT>)>
+		       <REMOVE ,PRSO>
+		       <SETG P-IT-LOC <>>
+		       <RTRUE>)>)
+	       (<AND <NOT <IN? ,CRATE ,GLOBAL-OBJECTS>>
+		     <OR <VERB? BURN>
+			 <AND <VERB? DROP>
+			      <PRSI? ,CRATE>
+			      <FLAMING? ,PRSO>>>>
+		<TELL
+"Well, who would have thought it? The crate catches fire quickly, the flames
+leaping about in mad abandon, gaily changing color as the heat becomes more and
+more intense. You hear a sizzling">
+		<COND (<NOT <FSET? ,BLACK-BOX ,TOUCHBIT>>
+		       <JIGS-UP 
+"... followed by an explosion which takes place right before your face.
+Needless to say, your body didn't appreciate it.">)
+		      (T
+		       <TELL
+" as the crate consumes itself in gleeful merriment." CR>
+		       <REMOVE ,CRATE>
+		       <SETG P-IT-LOC <>>)>
+		<RTRUE>)
+	       (<VERB? STAND-UNDER>
+		<RFALSE>)
+	       (<AND <VERB? BOARD>
+		     <NOT <IN? ,CRATE GLOBAL-OBJECTS>>>
+		<TELL
+"You couldn't fit in there unless you put yourself through a trash compacter." CR> <RTRUE>)
+	       (<IN? ,CRATE ,GLOBAL-OBJECTS>
+		<TELL 
+"Hey, give it a chance to get here. I know you're impatient to get on with
+this, but be reasonable!" CR>
+		<RTRUE>)
+	       (<VERB? OPEN>
+		<TBL-TO-INSIDE ,CRATE ,CRATE-TBL
+"The crate opens slowly, the boards creaking with the strain.">
+		<RTRUE>)
+	       (<AND <VERB? CLOSE>
+		     <NOT <FSET? ,CRATE ,SURFACEBIT>>>
+		<COND (<AND <IN? ,TORCH ,CRATE>
+			    <FLAMING? ,TORCH>>
+		       <SET FLG T>)>
+		<INSIDE-OBJ-TO ,CRATE-TBL ,CRATE>
+		<COND (.FLG
+		       <KILL-TORCH T>)>
+		<RTRUE>)
+	       (<VERB? SHAKE>
+		<COND (<NOT <0? <GET ,CRATE-TBL 1>>>
+		       <TELL "Hmm. Something's in there." CR>
+		       <RTRUE>)>)>>
+		
+<GLOBAL CRATE-TBL ;"Thirty (30) slots to hold objects in the crate"
+	<LTABLE BLACK-BOX 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0>>
+
+<OBJECT BLACK-BOX
+	(FLAGS TAKEBIT TRYTAKEBIT CONTBIT OPENBIT SURFACEBIT)
+	(DESC "navigation box")
+	(SYNONYM BOX)
+	(ADJECTIVE NAVIGA BLACK)
+	(CAPACITY 10)
+	(TEXT
+"This is an expensive, state-of-the-art piece of electronic equipment. It was
+designed to automatically determine longitude and latitude when the button on
+it is pressed. Thankfully, it has at last arrived.")
+	(ACTION BOX-OPENER-FCN)>
+
+<ROUTINE BOX-OPENER-FCN ()
+	 <COND (<VERB? OPEN>
+		<TELL "To do that to the " D ,BLACK-BOX " would most probably
+ruin the delicate equipment inside." CR>
+		<RTRUE>)
+	       (<VERB? CLOSE>
+		<TELL "I didn't know it was open." CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>
+		<RTRUE>)
+	       (<VERB? LAMP-ON>
+		<PERFORM ,V?PUSH ,BUTTON>
+		<RTRUE>)
+	       (<VERB? LAMP-OFF>
+		<TELL "It turns itself off after each button press." CR>
+		<RTRUE>)
+	       (<AND <VERB? THROW THROW-DOWN MUNG ATTACK SHAKE>
+		     <EQUAL? ,PRSO ,BLACK-BOX>>
+		<TELL "Rattle, rattle, jostle, crunch. Oh oh..." CR>
+		<FSET ,BLACK-BOX ,RMUNGBIT>
+		<COND (<VERB? THROW THROW-DOWN>
+		       <MOVE ,PRSO ,HERE>)>
+		<RTRUE>)>>
+
+<OBJECT BUTTON
+	(IN BLACK-BOX)
+	(FLAGS NDESCBIT)
+	(DESC "button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE NAVIGA)
+	(ACTION PRESS-BUTTON-FCN)>
+
+<GLOBAL NOISES-LTBL
+	<LTABLE "Crinkle fweep" "Bleeeeeeeeeep" "Sproing" "Screetchle frop"
+		"Breeble grungle">>
+
+<ROUTINE PRESS-BUTTON-FCN ("AUX" (OFFS -3) LAT-S LON-S H-CK)
+	 <COND (<VERB? PUSH>
+	        <COND (<FSET? ,BLACK-BOX ,RMUNGBIT>
+		       <TELL <PICK-ONE ,NOISES-LTBL> "!" CR>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,ENDLESS-DESERT>
+		       <TELL 
+"The box comes to life, its L.E.D.s lighting, and then flashes " N ,DEGS-LAT>
+		       <TELL " degree">
+		       <COND (<NOT <EQUAL? ,DEGS-LAT 1>>
+			      <TELL "s">)>
+		       <TELL " " N ,MINS-LAT " minute">
+		       <COND (<NOT <EQUAL? ,MINS-LAT 1>>
+			      <TELL "s">)>
+		       <TELL " " N ,SECS-LAT " seconds N latitude, ">
+		       <TELL N ,DEGS-LON>
+		       <TELL " degree">
+		       <COND (<NOT <EQUAL? ,DEGS-LON 1>>
+			      <TELL "s">)>
+		       <TELL " " N ,MINS-LON " minute">
+		       <COND (<NOT <EQUAL? ,MINS-LON 1>>
+			      <TELL "s">)>
+		       <TELL " " N ,SECS-LON " seconds E longitude."  CR>)
+		      (<NOT <GETP ,HERE ,P?MAP>>
+		       <TELL 
+"There's no need for that here. It's obvious where you are." CR>
+		       <RTRUE>)
+		      (T
+		       <COND (<EQUAL? ,HERE ,TENT>
+			      <SET H-CK ,P2>)
+			     (<EQUAL? ,HERE ,TENT2>
+			      <SET H-CK ,P7>)
+			     (<EQUAL? ,HERE ,SUPPLY-TENT>
+			      <SET H-CK ,P4>)
+			     (ELSE
+			      <SET H-CK ,HERE>)>
+		        <REPEAT ()
+			       <SET OFFS <+ .OFFS 3>>
+			       <COND (<G? .OFFS 54>
+				      <RETURN>)
+				     (T
+				      <COND (<EQUAL? .H-CK
+						     <GET ,MAP-TBL .OFFS>>
+					     <SET LON-S
+						  <GET ,MAP-TBL <+ .OFFS 1>>>
+					     <SET LAT-S
+						  <GET ,MAP-TBL <+ .OFFS 2>>>
+					     <RETURN>)>)>>
+		       <TELL 
+"The box comes to life, its L.E.D.s lighting, and then flashes 24 degrees 11
+minutes "
+			 N .LAT-S
+" seconds N latitude, 32 degrees 12 minutes "
+			 N .LON-S " seconds E longitude." CR>)>)
+	       (<VERB? FIND>
+		<TELL "It's on the top of the box." CR>
+		<RTRUE>)>>
+
+<ROUTINE DIASMBIGUATE-FCN (OBJECT)
+	 <COND (<IN? ,ONE-MATCH ,WINNER>
+		<RETURN ,ONE-MATCH>)
+	       (<IN? ,MATCHES ,WINNER>
+		<COND (<NOT <FSET? ,MATCHES ,OPENBIT>>
+		       <TELL "(opening matchbook first)" CR>
+		       <FSET ,MATCHES ,OPENBIT>)>
+		<COND (<G? ,MATCH-COUNT 1>
+		       <RETURN ,MANY-MATCHES>)
+		      (<EQUAL? ,MATCH-COUNT 1>
+		       <RETURN ,SINGLE-MATCH>)
+		      (ELSE
+		       <RETURN ,EMPTY-MATCHES>)>)
+	       (ELSE
+		<RETURN ,ONE-MATCH>)>>
+
+<GLOBAL MAP-TBL      ;" Loc    Long   Lat    seconds only!"
+	<TABLE    RIVER-BANK	33 	7
+		  	P1	35	7
+			P2	37	7
+			P3	39	7
+			EX1	41	7
+			EX2	43	7
+			EX3	45	7
+			P4	35	5
+			FIRE	37	5
+			P5 	39	5
+			EX4	41	5
+			EX5	43	5
+			EX6	45	5
+			P6	35	3 	
+			P7	37 	3 
+			P8	39 	3
+			EX7	41 	3 
+			EX8     43 	3 
+			EX9	45 	3>>
+
+
diff --git a/clock.zil b/clock.zil
new file mode 100644
index 0000000..af6fcc5
--- /dev/null
+++ b/clock.zil
@@ -0,0 +1,66 @@
+"CLOCK for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<CONSTANT C-TABLELEN 180>
+
+<GLOBAL C-TABLE <ITABLE NONE 180>>
+
+<GLOBAL C-DEMONS 180>
+
+<GLOBAL C-INTS 180>
+
+<CONSTANT C-INTLEN 6>
+
+<CONSTANT C-ENABLED? 0>
+
+<CONSTANT C-TICK 1>
+
+<CONSTANT C-RTN 2>
+
+<ROUTINE DEMON (RTN TICK "AUX" CINT)
+	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE QUEUE (RTN TICK "AUX" CINT)
+	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
+	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
+	 #DECL ((RTN) ATOM (DEMON) <OR ATOM FALSE> (E C INT) <PRIMTYPE
+							      VECTOR>)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
+			<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
+			<SET INT <REST ,C-TABLE ,C-INTS>>
+			<PUT .INT ,C-RTN .RTN>
+			<RETURN .INT>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<GLOBAL CLOCK-WAIT <>>
+
+<ROUTINE CLOCKER ("AUX" C E TICK (FLG <>))
+	 #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 E <REST ,C-TABLE ,C-TABLELEN>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<SETG MOVES <+ ,MOVES 1>>
+			<RETURN .FLG>)
+		       (<NOT <0? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<0? .TICK>)
+			      (T
+			       <PUT .C ,C-TICK <- .TICK 1>>
+			       <COND (<AND <NOT <G? .TICK 1>>
+					   <APPLY <GET .C ,C-RTN>>>
+				      <SET FLG T>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
diff --git a/crufty.zil b/crufty.zil
new file mode 100644
index 0000000..4a3cd00
--- /dev/null
+++ b/crufty.zil
@@ -0,0 +1,16 @@
+"(c) Copyright 1983 Infocom, Inc.  All Rights Reserved."
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <ZMEMQ ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 <NOT <ZMEMQB ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>>>
+	<RFALSE>)
+       (<AND <NOT <0? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
diff --git a/cube.zil b/cube.zil
new file mode 100644
index 0000000..d31f114
--- /dev/null
+++ b/cube.zil
@@ -0,0 +1,395 @@
+"CUBE for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<ROOM LANDING-ONE
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room whose symmetry is uncanny, at least to the unaided eye: the
+dimensions of the room seem to form a perfect cube. There are three square
+doorways cut into the walls -- one to the north, and another to the west. A
+wide staircase leads up through the square doorway to the east.")
+      (UP TO CHAMBER-OF-RA)
+      (NORTH TO NE-BEND)
+      (WEST TO CENTRAL-ROOM)
+      (EAST TO CHAMBER-OF-RA)
+      (GLOBAL EAST-STAIRS)
+      (ACTION MOVE-PANEL-HERE)>
+
+<ROOM LANDING-THREE
+      (IN ROOMS)
+      (DESC "Cube")
+      (FLAGS RLANDBIT)
+      (LDESC
+"You are in a room whose walls, floor and ceiling seem to form a perfect cube.
+There are four square doorways cut into the walls -- to the north, the south,
+the east and the west. Through the west doorway you can see a flight of stairs
+heading up.")
+      (UP TO CHAMBER-OF-RA)
+      (WEST TO CHAMBER-OF-RA)
+      (NORTH TO NW-BEND)
+      (SOUTH TO SW-BEND)
+      (EAST TO CENTRAL-ROOM)
+      (GLOBAL WEST-STAIRS)
+      (ACTION MOVE-PANEL-HERE)>
+
+<ROOM CENTRAL-ROOM
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room whose dimensions seem to measure a perfect cube. On the
+floor of this room is a series of symbols, inscribed in the stone. The walls
+bear strange pictures of a Queen, one of which shows her being wrapped in
+linen, another one showing her being lowered into what appears to be a solid
+gold sarcophagus. Four identical square doorways lead out of this chamber to
+the north, south, east and west.")
+      (NORTH TO NORTH-CENTER)
+      (SOUTH TO SOUTH-CENTER)
+      (EAST TO LANDING-ONE)
+      (WEST TO LANDING-THREE)
+      (GLOBAL HIEROGLYPHS PICTURES)>
+
+<ROOM NORTH-CENTER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room in the shape of a perfect cube. There are three square
+doorways cut into the walls -- one to the west, one to the east, and another
+to the south.")
+      (EAST TO NE-BEND)
+      (WEST TO NW-BEND)
+      (SOUTH TO CENTRAL-ROOM)>
+
+<ROOM SOUTH-CENTER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room whose symmetry is uncanny, at least to the unaided eye: the
+dimensions of the room seem to form a perfect cube. There are two square
+doorways cut into the walls -- one to the north, and another to the west.
+A panel, recessed into a wall, glows softly in your reflected light,
+while some hieroglyphs are visible above it.")
+      (NORTH TO CENTRAL-ROOM)
+      (WEST TO SW-BEND)
+      (EAST TO SECRET-PASSAGE IF BRICKS-PRESSED
+       ELSE "You can't go that way.")
+      (GLOBAL HIEROGLYPHS)
+      (ACTION SOUTH-CENTER-F)>
+
+<GLOBAL BRICKS-TBL
+	<TABLE BRICK-ONE BRICK-TWO BRICK-THREE BRICK-FOUR BRICK-FIVE
+	       BRICK-SIX BRICK-SEVEN BRICK-EIGHT BRICK-NINE>>
+
+<ROUTINE SOUTH-CENTER-F (RARG "AUX" (OFFS -1) BK)
+	 <COND (<NOT <EQUAL? .RARG ,M-END>>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <SET OFFS <+ .OFFS 1>>
+		 <COND (<G? .OFFS 8>
+			<RFALSE>)
+		       (T
+			<SET BK <GET ,BRICKS-TBL .OFFS>>
+			<COND (<IN? .BK ,PUNCH-PANEL>
+			       <FSET .BK ,NDESCBIT>)>)>>>
+	 
+
+<GLOBAL BRICKS-PRESSED <>>
+
+<ROOM SW-BEND
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room whose symmetry is uncanny, at least to the unaided eye: the
+dimensions of the room seem to form a perfect cube. There are two square
+doorways cut into the walls -- one to the north, and another to the east. The
+uncannily-shaped room seems to form a corner for this entire area.")
+      (NORTH TO LANDING-THREE)
+      (EAST TO SOUTH-CENTER)>
+
+<ROOM NE-BEND
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room whose dimensions seem to form a perfect cube. There are two
+square doorways cut into the walls -- one to the south, and another to the
+west. This room seems to form a corner for this entire area.")
+      (WEST TO NORTH-CENTER)
+      (SOUTH TO LANDING-ONE)>
+       
+<ROOM NW-BEND
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Cube")
+      (LDESC
+"You are in a room whose shape is that of a perfect cube. There are two square
+doorways cut into the walls -- one to the south, and another to the east.")
+      (SOUTH TO LANDING-THREE)
+      (EAST TO NORTH-CENTER)>
+
+<ROUTINE MOVE-PANEL-HERE (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<EQUAL? ,HERE ,LANDING-ONE ,LANDING-THREE ,TINY-LANDING>
+		       <MOVE-ROPE-HERE ,M-ENTER>
+		       <FCLEAR ,ROPE ,NDESCBIT>)>)>
+	 <RFALSE>>
+
+<ROOM SECRET-PASSAGE
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Turning Passage")
+      (LDESC
+"You are in a strange, turning passageway. The floor here descends, reminding
+you of a ramp Craige once told you about -- a deep entrance into the depths of
+an Incan tomb. The ramp turns off toward the north. Judging from what you
+remember of the cube rooms, the ramp most probably passes beneath the
+ascending east staircase. Through the open doorway to the west you can still
+see one of the cube rooms.")
+      (NORTH TO TOP-OF-STAIRS) ;"Connection to ANTE"
+      (WEST TO SOUTH-CENTER)
+      (DOWN TO TOP-OF-STAIRS)
+      (OUT TO SOUTH-CENTER)>
+
+<OBJECT PUNCH-PANEL
+	(IN SOUTH-CENTER)
+	(DESC "recessed panel")
+	(FLAGS NDESCBIT OPENBIT CONTBIT DONTTAKE)
+	(SYNONYM PANEL)
+	(ADJECTIVE RECESS)
+	(CAPACITY 45)
+	(ACTION PUNCH-PANEL-FCN)>
+
+<GLOBAL NUM-TBL
+	<TABLE "no" "one" "two" "three" "four" "five" "six" "seven" "eight"
+	       "nine">>
+
+<GLOBAL DASH-STR
+ "-----------------------------">
+
+<GLOBAL EX-SP-EX-STR
+"!                           !">
+
+<ROUTINE PUNCH-PANEL-FCN ("AUX" NUM)
+	 <COND (<AND <VERB? PUT>
+		     <PRSI? ,PUNCH-PANEL>
+		     <NOT <GETP ,PRSO ,P?BRICK>>>
+		<TELL "It won't fit in there." CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE READ>
+		<SET NUM <- 9 ,BRICKS-TAKEN>>
+		<TELL "There ">
+		<COND (<EQUAL? .NUM 1>
+		       <TELL "is ">)
+		      (ELSE <TELL "are ">)>
+		<TELL <GET ,NUM-TBL .NUM> " brick">
+		<COND (<NOT <EQUAL? .NUM 1>>
+		       <TELL "s">)>
+		<TELL " recessed into the panel">
+		<COND (<EQUAL? .NUM 0 1>
+		       <TELL "." CR>)
+		      (ELSE <TELL
+", three rows by three columns. These bricks look as if they could be easily
+removed and are marked with numerical symbols." CR>)>
+		<CRLF>
+		<TELL ,DASH-STR CR>
+		<TELL ,EX-SP-EX-STR CR>
+		<TELL "!  ">
+		<COND (<IN? ,BRICK-ONE ,PUNCH-PANEL>
+		       <TELL "<.>">)
+		      (T <TELL "   ">)>
+		<TELL "     ">
+		<COND (<IN? ,BRICK-TWO ,PUNCH-PANEL>
+		       <TELL "<:>">)
+		      (T <TELL "   ">)>
+		<TELL "     ">
+		<COND (<IN? ,BRICK-THREE ,PUNCH-PANEL>
+		       <TELL "<:.>">)
+		      (T <TELL "    ">)>
+		<TELL "     !" CR>
+		<TELL ,EX-SP-EX-STR CR>
+		<TELL "!  ">
+		<COND (<IN? ,BRICK-FOUR ,PUNCH-PANEL>
+		       <TELL "<::>">)
+		      (T <TELL "    ">)>
+		<TELL "    ">
+		<COND (<IN? ,BRICK-FIVE ,PUNCH-PANEL>
+		       <TELL "<::.>">)
+		      (T <TELL "     ">)>
+		<TELL "   ">
+		<COND (<IN? ,BRICK-SIX ,PUNCH-PANEL>
+		       <TELL "<:::>">)
+		      (T <TELL "     ">)>
+		<TELL "    !" CR>
+		<TELL ,EX-SP-EX-STR CR>
+		<TELL "!  ">
+		<COND (<IN? ,BRICK-SEVEN ,PUNCH-PANEL>
+		       <TELL "<:::.>">)
+		      (T <TELL "      ">)>
+		<TELL "  ">
+		<COND (<IN? ,BRICK-EIGHT ,PUNCH-PANEL>
+		       <TELL "<::::>">)
+		      (T <TELL"      ">)>
+		<TELL "  ">
+		<COND (<IN? ,BRICK-NINE ,PUNCH-PANEL>
+		       <TELL "<::::.>">)
+		      (T <TELL "       ">)>
+		<TELL "  !" CR>
+		<TELL ,EX-SP-EX-STR CR>
+		<TELL ,DASH-STR CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PUNCH-PANEL>
+		<RTRUE>)>>
+
+<OBJECT BRICK-ONE
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "first brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE FIRST)
+	(BRICK 1)
+	(TEXT
+"<.>")
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-NINE
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "ninth brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE NINTH)
+	(TEXT
+"<::::.>")
+	(BRICK 9)
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-EIGHT
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT VOWELBIT TRYTAKEBIT)
+	(DESC "eighth brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE EIGHTH)
+	(TEXT
+"<::::>")
+	(BRICK 8)
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-SEVEN
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "seventh brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE SEVENTH)
+	(TEXT
+"<:::.>")
+	(BRICK 7)
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-SIX
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "sixth brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE SIXTH)
+	(TEXT
+"<:::>")
+	(BRICK 6)
+	(ACTION TAKE-BRICK-FCN)>
+	
+<OBJECT BRICK-FIVE
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "fifth brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE FIFTH)
+	(TEXT
+"<::.>")
+	(BRICK 5)
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-FOUR
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "fourth brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE FOURTH)
+	(TEXT
+"<::>")
+	(BRICK 4)
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-THREE
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "third brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE THIRD)
+	(TEXT
+"<:.>")
+	(BRICK 3)
+	(ACTION TAKE-BRICK-FCN)>
+
+<OBJECT BRICK-TWO
+	(IN PUNCH-PANEL)
+	(FLAGS TAKEBIT NDESCBIT TOUCHBIT TRYTAKEBIT)
+	(DESC "second brick")
+	(SYNONYM BRICK BRICKS)
+	(ADJECTIVE SECOND)
+	(TEXT
+"<:>")
+	(BRICK 2)
+	(ACTION TAKE-BRICK-FCN)>
+
+<GLOBAL BRICKS-TAKEN 0>
+<GLOBAL WRONG-BRICK <>>
+
+<ROUTINE TAKE-BRICK-FCN ()
+	 <COND (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,PUNCH-PANEL>>
+		<FSET ,PRSO ,NDESCBIT>
+		<SETG BRICKS-TAKEN <- ,BRICKS-TAKEN 1>>
+		<RFALSE>)
+	       (<OR <NOT <VERB? TAKE>>
+		    <NOT <IN? ,PRSO ,PUNCH-PANEL>>>
+		<RFALSE>)>
+	 <COND (<EQUAL? <ITAKE> <>>
+		<RFATAL>)
+	       (T
+		<COND (<AND <EQUAL? ,BRICKS-TAKEN 0>
+			    <NOT <EQUAL? ,PRSO ,BRICK-ONE>>>
+		       <SETG WRONG-BRICK T>)
+		      (<AND <EQUAL? ,BRICKS-TAKEN 1>
+			    <NOT <EQUAL? ,PRSO ,BRICK-THREE>>>
+		       <SETG WRONG-BRICK T>)
+		      (<AND <EQUAL? ,BRICKS-TAKEN 2>
+			    <NOT <EQUAL? ,PRSO ,BRICK-FIVE>>>
+		       <SETG WRONG-BRICK T>)>
+		<SETG BRICKS-TAKEN <+ ,BRICKS-TAKEN 1>>
+		<COND (<NOT <IN? ,PRSO ,PUNCH-PANEL>>
+		       <FCLEAR ,PRSO ,NDESCBIT>)>
+		<COND (<AND <EQUAL? ,BRICKS-TAKEN 3>
+			    <NOT ,BRICKS-PRESSED>
+			    <NOT ,WRONG-BRICK>>
+		       <TELL
+"As soon as you grasp this brick a square doorway swings open. You leap back,
+unsure of what might happen, but quickly realize you've discovered a hidden
+passageway, making eastern movement from this cube room possible." CR>
+		       <SETG BRICKS-PRESSED T>
+		       <SETG SCORE <+ ,SCORE 25>>
+		       <PUTP ,SOUTH-CENTER ,P?LDESC
+"You are in a cubical-room whose walls, floor and ceiling are of an
+identical size. There are three square doorways cut into the walls --
+to the north, to the west, and a newly opened one to the east. Engraved
+on a wall are some hieroglyphs, while a panel, recessed in the same wall,
+glows softly in your reflected light.">
+		       <RTRUE>)
+		      (T
+		       <TELL "Taken." CR>
+		       <RTRUE>)>)>>
\ No newline at end of file
diff --git a/diamond.zil b/diamond.zil
new file mode 100644
index 0000000..4123361
--- /dev/null
+++ b/diamond.zil
@@ -0,0 +1,448 @@
+"DIAMOND for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+;"DIAMOND AREA"
+  
+<ROOM ROOM-OF-NEPHTHYS
+      (IN ROOMS)
+      (DESC "Room of Nephthys")
+      (FLAGS RLANDBIT)
+      (LDESC 
+"You have entered the room of the protective goddess Nephthys. The walls here
+are cut from pink granite, elaborately decorated with bright red carnelian and
+pale yellow feldspar. Along the northeast wall are panels of beaten gold, and
+midway up this wall, under the winged symbol of Nephthys, you can see some
+hieroglyphs. To the southeast, an opening has been cut in the thick granite
+wall.") 
+      (SE TO A-PRIME)
+      (OUT TO A-PRIME)
+      (GLOBAL HIEROGLYPHS DOORWAY PICTURE-PANELS GEMS-2)
+      (ACTION SCORE-RMS)>
+
+<OBJECT NEPHTH-JEWEL
+	(IN ROOM-OF-NEPHTHYS)
+	(FLAGS TAKEBIT)
+	(DESC "diamond cluster")
+	(VALUE 5)
+	(SIZE 2)
+	(FDESC
+"A large diamond cluster, glittering in your light, sits on the floor directly
+under the hieroglyphs.")
+	(SYNONYM CLUSTE)
+	(MAP 2)
+	(ADJECTIVE DIAMON)>
+
+<OBJECT HERRING-JEWEL
+	(IN LANDING-ZERO)
+	(FLAGS TAKEBIT)
+	(DESC "golden cluster")
+	(SIZE 2)
+	(FDESC
+"A large golden cluster sits on the floor.")
+	(SYNONYM CLUSTE)
+	(MAP 2)
+	(ADJECTIVE GOLDEN GOLD)>
+
+<OBJECT SELKIS-JEWEL
+	(IN ROOM-OF-SELKIS)
+	(FLAGS TAKEBIT)
+	(VALUE 5)
+	(SIZE 2)
+	(DESC "ruby cluster")
+	(FDESC
+"A beautiful ruby cluster, sparkling like fire, sits on the floor.")
+	(MAP 2)
+	(SYNONYM CLUSTE)
+	(ADJECTIVE RUBY)>
+
+<OBJECT ISIS-JEWEL
+	(IN ROOM-OF-ISIS)
+	(FLAGS TAKEBIT VOWELBIT)
+	(VALUE 5)
+	(SIZE 2)
+	(DESC "emerald cluster")
+	(FDESC
+"Lying on the ground is a brilliant, glowing emerald cluster.")
+	(MAP 2)
+	(SYNONYM CLUSTE)
+	(ADJECTIVE EMERAL)>
+
+<OBJECT NEITH-JEWEL
+	(IN ROOM-OF-NEITH)
+	(FLAGS TAKEBIT VOWELBIT)
+	(DESC "opal cluster")
+	(FDESC
+"An opal cluster, glistening with the light of a thousand fires, lies on the
+floor.")
+	(SYNONYM CLUSTE)
+	(ADJECTIVE OPAL)
+	(VALUE 5)
+	(MAP 2)
+	(SIZE 2)>
+
+<ROOM ROOM-OF-SELKIS
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Room of Selkis")
+      (LDESC 
+"You are standing in a small room, that of the protective goddess Selkis.
+There are red, blue and green patterns on the walls formed from small glazed
+tiles that have been carefully arranged in order of shade. The darkest tiles
+border the floor, and become lightest near the ceiling. On one wall,
+inscribed in a beaten gold panel, is the symbol of Selkis, under which you can
+see some hieroglyphic text. An opening through the southwest wall leads out
+of this room.")
+      (SW TO B-PRIME)
+      (OUT TO B-PRIME)
+      (GLOBAL HIEROGLYPHS DOORWAY GEMS-2 PICTURE-PANELS)
+      (ACTION SCORE-RMS)>
+
+<OBJECT TWINKLERS
+	(IN ROOM-OF-ISIS)
+	(FLAGS NDESCBIT DONTTAKE)
+	(DESC "quartz")
+	(SYNONYM LIGHTS QUARTZ CHIPS PATTER)
+	(ADJECTIVE THOUSA TINY)
+	(TEXT
+"They twinkle in the light, making beautiful patterns.")>
+
+<ROOM ROOM-OF-ISIS
+      (IN ROOMS)
+      (DESC "Room of Isis")
+      (FLAGS RLANDBIT)
+      (LDESC
+"This is the room of the protective goddess Isis. You stand in amazement
+in the center of the room as thousands of tiny lights twinkle around you.
+With great surprise you realize that the light from your torch is being
+reflected by the mirror-like surfaces of innumerable quartzite chips.
+These are set artfully into red clay panels in the walls, and are surrounded
+by shiny red jasper fragments. On the southwest wall, under the winged symbol
+of Isis, some hieroglyphic text is inscribed in a gold panel. To the northeast
+is an arched opening, and, looking through it, you can barely make out a
+hallway.")
+      (NE TO D-PRIME)
+      (OUT TO D-PRIME)
+      (GLOBAL HIEROGLYPHS PICTURE-PANELS GEMS DOORWAY)
+      (ACTION SCORE-RMS)>
+
+<ROOM ROOM-OF-NEITH
+      (IN ROOMS)
+      (DESC "Room of Neith")
+      (FLAGS RLANDBIT)
+      (LDESC
+"You are standing in the room of the protective goddess Neith. This room
+seems dark and mysterious with its decorations of inky-blue lapis lazuli
+and jet-black obsidian. Gold scrollwork defines an area on one of the
+walls, in the center of which is the symbol of Neith. Below this you can
+see some hieroglyphs etched into a beaten gold panel. There is a door in
+the northwest wall leading out of the room.")
+      (NW TO E-PRIME)
+      (OUT TO E-PRIME)
+      (GLOBAL HIEROGLYPHS PICTURE-PANELS PICTURES GEMS)
+      (ACTION SCORE-RMS)>
+
+<OBJECT GEMS
+	(IN LOCAL-GLOBALS)
+	(DESC "gem")
+	(FLAGS NDESCBIT)
+	(SYNONYM LAZULI OBSIDI JASPER GEMS)
+	(ADJECTIVE LAPIS RED INKY- BLUE JET-B)
+	(TEXT
+"The gems are quite remarkable, forming a delicate piece of art. To remove
+any of them would be beyond thinking. Even for you.")>
+
+<OBJECT GEMS-2 
+	(IN LOCAL-GLOBALS)
+	(DESC "tile")
+	(FLAGS NDESCBIT)
+	(SYNONYM CARNEL FELDSP GEMS TILES)
+	(ADJECTIVE RED YELLOW BLUE GREEN BRIGHT)
+	(TEXT
+"They are quite remarkable, forming a delicate piece of art. To remove
+any of them would be beyond thinking. Even for you.")> 
+
+<ROUTINE SCORE-RMS (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,HERE ,TOUCHBIT>>>
+		<SETG SCORE <+ ,SCORE 25>>)>
+	 <RFALSE>>
+		
+<ROOM LANDING-ZERO
+      (IN ROOMS)
+      (DESC "Circular Room")
+      (LDESC 
+"You are in a strange, round room which sits in the center of four hallways.
+These hallways lead off to the northeast, southeast, southwest and northwest
+like the spokes of a wheel. Above your head is a long tunnel which stretches up
+and out of sight.")
+      (FLAGS RLANDBIT)
+      (NW TO A-PRIME)
+      (NE TO B-PRIME)
+      (SW TO D-PRIME)
+      (SE TO E-PRIME)
+      (UP TO CHAMBER-OF-RA IF ROPE-TIED ELSE
+"There's no way to get back up there.")
+      (ACTION CIRCULAR-ROOM-FCN)>
+
+<ROUTINE LOOK-DOWN-HALLS ()
+	 <TELL "As you peer down the dimly-lit hallways, you ">
+	 <COND (<NOT <STATUE-OPPOSITE?>>
+		<TELL "see that the doors in all four hallways are
+balanced halfway open." CR>)
+	       (ELSE
+		<TELL "notice that the door to the ">
+		<TELL ,HALL-DIR>
+		<TELL 
+" is closed, while the one in the opposite hallway is all the way open. The
+other two are halfway open." CR>)>
+	 <FSET ,ROPE ,NDESCBIT>>
+
+<GLOBAL CIRCLE-SCORED <>>
+
+<ROUTINE CIRCULAR-ROOM-FCN (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<MOVE ,ROPE ,HERE>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<REMOVE ,ISIS-DOOR>
+		<REMOVE ,NEPHTH-DOOR>
+		<REMOVE ,NEITH-DOOR>
+		<REMOVE ,SELKIS-DOOR>
+		<COND (<NOT ,CIRCLE-SCORED>
+		       <SETG SCORE <+ ,SCORE 30>>
+		       <SETG CIRCLE-SCORED T>)>
+		<COND (<AND <NOT ,VERBOSE>
+			    <FSET? ,HERE ,TOUCHBIT>>
+		       <LOOK-DOWN-HALLS>
+		       <CRLF>)>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<TELL <GETP ,LANDING-ZERO ,P?LDESC> CR>
+		<DESCRIBE-ROPE-FCN ,M-OBJDESC>
+		<LOOK-DOWN-HALLS>)>>
+
+<OBJECT HUGE-STATUE
+	(IN LANDING-ZERO)
+	(DESC "large statue")
+	(FDESC
+"Sitting in the middle of the floor is a large statue, about two feet shorter
+than you. It reminds you a little of Miss Ellingsworth.")
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(SIZE 281)
+	(SYNONYM STATUE)
+	(ADJECTIVE HUGE)
+	(ACTION HUGE-STATUE-FCN)
+	(TEXT
+"It is carved out of dark gray basalt and its features resemble a woman at the
+height of her beauty, most probably the ancient Queen. The statue itself must
+weigh more than you do.")>
+
+<OBJECT HEAD
+	(IN HUGE-STATUE)
+	(FLAGS INVISIBLE TAKEBIT)
+	(DESC "broken head")
+	(SYNONYM HEAD)
+	(SIZE 20)
+	(ADJECTIVE BROKEN)
+	(TEXT
+"This head was once part of the magnificent statue of the Queen.")
+	(ACTION HEAD-FCN)>
+
+<ROUTINE HEAD-FCN ()
+	 <COND (<VERB? RAISE>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<VERB? SHAKE>
+		<TELL "It's as empty as yours." CR>
+		<RTRUE>)
+	       (<VERB? CLIMB-ON>
+		<TELL "Next you'll be asking for tumbling lessons." CR>
+		<RTRUE>)>>
+
+<ROUTINE HUGE-STATUE-FCN ()
+	 <COND (<AND <VERB? MOVE TAKE PUSH PUSH-TO>
+		     <FSET? ,HEAD ,INVISIBLE>>
+		<TELL
+"The statue teeters, swaying and rocking back and forth, then falls over,
+its top-heavy structure striking the floor with a dull, loud thud. As you
+look over the damage, you see the head has separated from the statue." CR>
+		<MOVE ,HEAD ,HERE>
+		<FCLEAR ,HEAD ,INVISIBLE>
+		<FSET ,HUGE-STATUE ,TOUCHBIT>
+		<RTRUE>)
+	       (<VERB? TAKE RAISE>
+		<TELL "It's far too heavy." CR>
+		<RTRUE>)
+	       (<VERB? PUSH RAISE MOVE>
+		<TELL
+"The statue rocks over and back on its back. Looks like it's headed nowhere
+fast." CR>
+		<RTRUE>)
+	       (<VERB? MUNG>
+		<COND (<FSET? ,HEAD ,INVISIBLE>
+		       <PERFORM ,V?PUSH ,HUGE-STATUE>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"Haven't you done enough damage to that beautiful relic?" CR>)>)
+	       (<VERB? EXAMINE>
+		<COND (<FSET? ,HEAD ,INVISIBLE>
+		       <RFALSE>)
+		      (T
+		       <TELL
+"The statue lies on the floor, its head broken off. In this state, the statue
+weighs a little less than you but it's still far too heavy to carry." CR>
+		       <RTRUE>)>)>>
+
+<ROOM A-PRIME
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Northwest Hallway")
+      (LDESC
+"You are standing in the middle of the Northwest Hallway. The walls here are
+smooth and undecorated, carved out of granite. The hallway continues to the
+northwest and to the southeast.") 
+      (SE TO LANDING-ZERO)
+      (NW TO ROOM-OF-NEPHTHYS IF NEPHTH-DOOR IS OPEN ELSE
+"There's no way to get through the stone door.")
+      (ACTION CLOSE-DEM-DOOAHS)>
+
+<OBJECT NEPHTH-DOOR
+	(IN A-PRIME)
+	(FLAGS DOORBIT NDESCBIT)
+	(DESC "stone door")
+	(SYNONYM DOOR)
+	(ADJECTIVE STONE)
+	(ACTION STONE-DOOR-FCN)>
+
+<ROUTINE STONE-DOOR-FCN ()
+	 <COND (<VERB? OPEN RAISE>
+		<TELL "You can't. It's got to weigh 50 tons." CR>
+		<RTRUE>)>>
+
+<ROOM B-PRIME
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Northeast Hallway")
+      (LDESC
+"You are standing midway down the long Northeast Hallway. The high walls
+are undecorated, but bear the marks of the stonecarver's tool. The hallway
+continues to the northeast and the southwest.")
+      (SW TO LANDING-ZERO)
+      (NE TO ROOM-OF-SELKIS IF SELKIS-DOOR IS OPEN ELSE
+"There's no way to get through the stone door.")
+      (ACTION CLOSE-DEM-DOOAHS)>
+
+<OBJECT SELKIS-DOOR
+	(FLAGS DOORBIT NDESCBIT)
+	(DESC "stone door")
+	(SYNONYM DOOR)
+	(ADJECTIVE STONE)
+	(ACTION STONE-DOOR-FCN)>
+
+<ROOM D-PRIME
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Southwest Hallway")
+      (LDESC
+"You are midway down the Southwest Hallway. The walls of this narrow passage
+are unadorned and smooth. The hallway continues to the southwest and the
+northeast.")
+      (NE TO LANDING-ZERO)
+      (SW TO ROOM-OF-ISIS IF ISIS-DOOR IS OPEN ELSE
+"There's no way to get through the stone door.")
+      (ACTION CLOSE-DEM-DOOAHS)>
+
+<OBJECT ISIS-DOOR
+	(FLAGS DOORBIT NDESCBIT)
+	(DESC "stone door")
+	(SYNONYM DOOR)
+	(ADJECTIVE STONE)
+	(ACTION STONE-DOOR-FCN)>
+
+<ROOM E-PRIME
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Southeast Hallway")
+      (LDESC
+"You are midway down the Southeast Hallway. This corridor is undecorated and
+the walls are polished to a smooth lustre. The hallway continues to the
+southeast and the northwest.")
+      (NW TO LANDING-ZERO)
+      (SE TO ROOM-OF-NEITH IF NEITH-DOOR IS OPEN ELSE
+"There's no way to get through the stone door.")
+      (ACTION CLOSE-DEM-DOOAHS)>
+
+<OBJECT NEITH-DOOR
+	(FLAGS DOORBIT NDESCBIT)
+	(DESC "stone door")
+	(SYNONYM DOOR)
+	(ADJECTIVE STONE)
+	(ACTION STONE-DOOR-FCN)>
+
+<GLOBAL HALL-DIR <>>
+
+<GLOBAL STATUE-CHK-TBL ;"starts @ 0, inc by 3"
+	<TABLE A-PRIME E-PRIME "southeast"
+	       E-PRIME A-PRIME "northwest"
+	       B-PRIME D-PRIME "southwest"
+	       D-PRIME B-PRIME "northeast">>
+
+<ROUTINE STATUE-OPPOSITE? ("AUX" (OFFS -3) H-CHK T-CHK (FLG <>))
+	 <REPEAT ()
+		 <SET OFFS <+ .OFFS 3>>
+		 <COND (<G? .OFFS 9>
+			<RETURN>)
+		       (T
+			<SET H-CHK <GET ,STATUE-CHK-TBL .OFFS>>
+			<SET T-CHK <GET ,STATUE-CHK-TBL <+ .OFFS 1>>>
+			<COND (<AND <EQUAL? ,HERE .H-CHK ,LANDING-ZERO>
+				    <G? <WEIGHT .T-CHK> 300>>
+			       <SET FLG T>
+			       <SETG HALL-DIR <GET ,STATUE-CHK-TBL
+						   <+ .OFFS 2>>>)>)>>
+	 <RETURN .FLG>>
+
+<GLOBAL KLUDGE-FLG <>>
+
+<ROUTINE CLOSE-DEM-DOOAHS (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<SET KLUDGE-FLG <>>
+		<COND (<STATUE-OPPOSITE?>
+		       <COND (<EQUAL? ,HERE ,A-PRIME>
+			      <FSET ,NEPHTH-DOOR ,OPENBIT>)
+			     (<EQUAL? ,HERE ,B-PRIME>
+			      <FSET ,SELKIS-DOOR ,OPENBIT>)
+			     (<EQUAL? ,HERE ,D-PRIME>
+			      <FSET ,ISIS-DOOR ,OPENBIT>)
+			     (ELSE
+			      <FSET ,NEITH-DOOR ,OPENBIT>)>)
+		      (<G? <WEIGHT ,HERE> 300>
+		       <RFALSE>)
+		      (T <TELL 
+"As you enter the corridor, a huge stone door begins to slide down from the
+ceiling closing off any further progress. The closer you come to the door, the
+further down the door descends until, eventually, it is close to the floor.
+When you turn around, you can barely see beyond the Circular Room where an
+identical door has risen off the floor an equal amount." CR>
+		       <CRLF>
+		       <COND (<EQUAL? ,HERE ,A-PRIME ,E-PRIME>
+			      <MOVE ,NEPHTH-DOOR ,A-PRIME>
+			      <FCLEAR ,NEPHTH-DOOR ,OPENBIT>
+			      <MOVE ,NEITH-DOOR ,E-PRIME>
+			      <FCLEAR ,NEITH-DOOR ,OPENBIT>)
+			     (<EQUAL? ,HERE ,B-PRIME ,D-PRIME>
+			      <MOVE ,SELKIS-DOOR ,B-PRIME>
+			      <MOVE ,ISIS-DOOR ,D-PRIME>
+			      <FCLEAR ,SELKIS-DOOR ,OPENBIT>
+			      <FCLEAR ,ISIS-DOOR ,OPENBIT>)>
+		       <SET KLUDGE-FLG T>)>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <STATUE-OPPOSITE?>
+		     <NOT ,KLUDGE-FLG>>
+		<TELL
+"The path before you remains open, the stone door having risen to the ceiling,
+counterbalanced by the door in the opposite corridor." CR>
+		<SET KLUDGE-FLG T>
+		<RTRUE>)>>
\ No newline at end of file
diff --git a/globals.zil b/globals.zil
new file mode 100644
index 0000000..ac8a1a6
--- /dev/null
+++ b/globals.zil
@@ -0,0 +1,878 @@
+"GLOBALS for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<DIRECTIONS NORTH EAST WEST SOUTH UP DOWN IN OUT SE SW NE NW>
+
+"SUBTITLE GLOBAL OBJECTS"
+
+<OBJECT GLOBAL-OBJECTS
+	(FLAGS RMUNGBIT INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT
+	       VOWELBIT OPENBIT SEARCHBIT TRANSBIT WEARBIT ONBIT)>
+
+<OBJECT LOCAL-GLOBALS
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ZZMGCK)
+	(DESCFCN 0)
+        (GLOBAL GLOBAL-OBJECTS)
+	(PSEUDO "FOOBAR" V-WAIT)
+	(CONTFCN 0)
+	(SIZE 0)>
+;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh"
+
+<OBJECT ROOMS>
+
+<OBJECT BASIE
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM BASIE)
+	(DESC "Basie")>
+
+<OBJECT PETROL
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM GASOLI PETROL)
+	(DESC "gasoline")>
+
+<OBJECT FOO-TOOL
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM HAMMER CROWBA EXPLOS MACHET)
+	(DESC "such thing")>
+
+<OBJECT DRACULA
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM DRACULA)
+	(DESC "Dracula")>
+
+<OBJECT FINGER
+	(IN GLOBAL-OBJECTS)
+	(FLAGS SURFACEBIT OPENBIT CONTBIT TOUCHBIT)
+	(CAPACITY 1)
+	(SYNONYM FINGER)
+	(DESC "finger")
+	(ACTION FINGER-FCN)>
+
+<ROUTINE FINGER-FCN ()
+	 <COND (<AND <VERB? PUT-ON>
+		     <PRSI? ,FINGER>>
+		<PERFORM ,V?WEAR ,PRSO>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<FSET? ,RING ,WEARBIT>
+		       <TELL "Sitting on your finger is a ring." CR>
+		       <RTRUE>)
+		      (T
+		       <TELL "It's part of your hands." CR>
+		       <RTRUE>)>)>>
+
+<OBJECT BLESSINGS
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM BLESSI)
+	(DESC "blessings")>
+
+<OBJECT INTNUM
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM INTNUM)
+	(DESC "number")>
+
+<OBJECT INTDIR
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM INTDIR)
+	(ADJECTIVE NORTH EAST SOUTH WEST NE NW SE SW)
+	(FLAGS TOOLBIT)
+	(DESC "direction")>
+
+<OBJECT PSEUDO-OBJECT
+	(DESC "pseudo")
+	(ACTION CRETIN)>
+
+<OBJECT IT	;"was IT"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM IT THAT)
+	(DESC "random object")
+	(FLAGS NDESCBIT TOUCHBIT)>
+
+<OBJECT AIR
+	(IN GLOBAL-OBJECTS)
+	(DESC "air")
+	(FLAGS VOWELBIT CONTBIT OPENBIT)
+	(SYNONYM AIR OXYGEN SKY)
+	(TEXT
+"The air is as clear as any Egyptian air can be.")
+	(ACTION AIR-FCN)>
+
+<ROUTINE AIR-FCN ()
+	 <COND (<VERB? EXAMINE SMELL TASTE>
+		<COND (<GETP ,HERE ,P?MAP>
+		       <RFALSE>)
+		      (T
+		       <TELL "It's stale and musty" CR>
+		       <RTRUE>)>)
+	       (<VERB? OPEN CLOSE>
+		<TELL "I think you're an air head." CR>)
+	       (<AND <PRSI? AIR>
+		     <VERB? EXAMINE LOOK-INSIDE>>
+		<PERFORM ,V?LOOK-UP>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSI ,AIR>
+		     <VERB? THROW DROP>>
+		<PERFORM ,PRSA ,PRSO ,GROUND>
+		<RTRUE>)
+	       (<AND <VERB? WAVE>
+		     <PRSO? ,AIR>>
+		<TELL "Don't expect me to tell you the sky waves back." CR>
+		<RTRUE>)>>
+
+<OBJECT GROUND	;"was GROUND"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM FLOOR GROUND)
+	(DESC "floor")
+	(ACTION READ-FLOOR-F)>
+
+<ROUTINE READ-FLOOR-F ()
+	 <COND (<AND <VERB? EXAMINE READ>
+		     <EQUAL? ,HERE ,CENTRAL-ROOM>>
+		<PERFORM ,V?READ ,HIEROGLYPHS>
+		<RTRUE>)>>
+
+<OBJECT CRACK
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT CONTBIT OPENBIT)
+	(DESC "crack")
+	(SYNONYM CRACK)
+	(TEXT
+"It's just a crack in the floor where the stones meet.")
+	(ACTION CRACK-FCN)>
+
+<ROUTINE CRACK-FCN ()
+	 <COND (<OR <GETP ,HERE ,P?MAP>
+		    <EQUAL? <GETP ,HERE ,P?ACTION> ,BURN-THE-BARGE>
+		    <AND <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+			 <NOT <FSET? ,PIT ,INVISIBLE>>>>
+		<TELL "I see no crack here." CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL
+"Get real. There's nothing worth looking at in there." CR>
+		<RTRUE>)>>
+
+<OBJECT SAND
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT)
+	(DESC "sand")
+	(SYNONYM DESERT SAND GROUND)>
+
+<OBJECT HOLE
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT)
+	(DESC "hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE SMALL ENLARG SIZABL KNEE- DEEP)
+	(ACTION HOLE-FCN)>
+
+<ROUTINE HOLE-FCN ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<AND <EQUAL? ,HERE ,P8>
+			    <IN? ,PYRAMID ,HERE>>
+		       <TELL
+"You can see the block and the opening in there." CR>)
+		      (<G? <GETP ,HERE ,P?CAPACITY> 0>
+		       <TELL "Never mind that -- Here's a better
+problem: You dig a hole 52 feet by 20 feet by .105 yards. It takes you 5
+hours, 11 minutes and 2 seconds. You sweat off thirty grams of water
+per hour. And your best friend just ran off with the rent money. Now:
+How much sand is in the hole you dug?" CR>)
+		      (T
+		       <TELL "I don't see any hole here." CR>)>)
+	       (<VERB? FIND>
+		<COND (<GETP ,HERE ,P?CAPACITY>
+		       <TELL "It's right here." CR>
+		       <RTRUE>)>)
+	       (<AND <EQUAL? ,PRSI ,HOLE>
+		     <VERB? PUT>
+		     <GETP ,HERE ,P?CAPACITY>>
+		<TELL 
+"It's just a hole in the sand from your excavation attempts. There's no need to
+put anything into it." CR>)>>
+
+<OBJECT PEN-PENCIL
+	(IN GLOBAL-OBJECTS)
+	(DESC "writing implement")
+	(SYNONYM PEN PENCIL)>
+
+<OBJECT STONES
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM STONES BLOCKS)
+	(DESC "stones")>
+
+<OBJECT KEY
+	(IN GLOBALS)
+	(FLAGS NDESCBIT)
+	(DESC "key")
+	(SYNONYM KEY)
+	(ADJECTIVE TRUNK)>
+
+<OBJECT BULKHEADS
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "bulkhead")
+	(SYNONYM BULKHE)>
+
+<OBJECT WALLS
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "wall")
+	(SYNONYM WALL WALLS)
+	(ADJECTIVE STONE)
+	(ACTION WALL-FCN)>
+
+<ROUTINE WALL-FCN ("AUX" RMG RMGL)
+	 <COND (<AND <EQUAL? ,HERE ,STAIRS-BOTTOM>
+		     <VERB? EXAMINE READ>>
+		<COND (<IN? ,PLASTER1 ,STAIRS-BOTTOM>
+		       <PERFORM ,V?EXAMINE ,PLASTER1>
+		       <RTRUE>)
+		      (T <TELL "I see nothing special about the wall." CR>
+		       <RTRUE>)>)
+	       (<VERB? EXAMINE READ>
+		<COND (<AND <GLOBAL-IN? ,HIEROGLYPHS ,HERE>
+			    <NOT <EQUAL? ,HERE ,CENTRAL-ROOM>>>
+		       <PERFORM ,V?READ ,HIEROGLYPHS>
+		       <RTRUE>)
+		      (ELSE
+		       <RFALSE>)>)>>
+		
+<OBJECT CEILING
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "ceiling")
+	(SYNONYM CEILIN)>
+
+<OBJECT HANDS	;"was HANDS"
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM HANDS)
+	(DESC "empty hands")
+	(FLAGS NDESCBIT TOOLBIT TOUCHBIT VOWELBIT)
+	(ACTION READ-PALMS-F)>
+
+<ROUTINE READ-PALMS-F ()
+	 <COND (<VERB? READ>
+		<TELL "I don't read palms." CR>
+		<RTRUE>)>>
+
+<OBJECT ADVENTURER
+	(IN TOP-OF-STAIRWAY)
+	(SYNONYM PLAYER ADVENT CRETIN)
+	(DESC "cretin")
+        (FLAGS ACTORBIT NDESCBIT INVISIBLE)>
+
+<OBJECT ME
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM ME MYSELF SELF BACK)
+	(DESC "you")
+	(FLAGS ACTORBIT)
+	(ACTION CRETIN)>
+
+<ROUTINE CRETIN ()
+	 <COND (<NOT <EQUAL? ,PRSO ,WINNER ,ME>>
+		<RFALSE>)>
+	 <COND (<VERB? EAT>
+		<TELL
+"I've heard of biting one's knuckles, chewing one's fingernails, but don't you
+think that's a little extreme?" CR>)
+	       (<VERB? DRINK>
+		<TELL
+"Find me a blender, jump in it, and once you're liquified, we'll talk." CR>)
+	       (<VERB? ALARM>
+		<TELL 
+"Good morning!" CR>)
+	       (<VERB? MUNG ATTACK KILL>
+		<TELL
+"Hey, I know just how you feel. And I'm sure you think you deserve it -- I've
+been there myself. But take heart -- let nature take care of you. I'm sure it
+will, in time." CR>)
+	       (<VERB? PRAY>
+		<TELL "Save yourself. Don't look to me, man." CR>)
+	       (<VERB? FIND>
+		<TELL "Take a course in Zen." CR>)
+	       (<VERB? TAKE>
+		<TELL "Auto-eroticism is not the answer." CR>)
+	       (<VERB? BURN>
+		<TELL "Come on. Don't you have enough troubles?" CR>)
+	       (<VERB? EXAMINE LOOK-INSIDE THROW>
+		<TELL
+"Hmmm. How do you propose I accomplish that? (And they told me in AI school
+the intelligent creatures were on the other side of the keyboard!)" CR>)
+	       (<VERB? RUB>
+		<TELL 
+"Go rub yourself. You're starting to rub me the wrong way." CR>)
+	       (<VERB? PLAY>
+		<TELL "Who do you think you're playing around with?" CR>)
+	       (<VERB? CLIMB-ON BOARD>
+		<TELL "I'll get on your case is what I'll do, turkey." CR>)
+	       (<VERB? CLEAN>
+		<TELL "Take a bath. Leave me out of this." CR>)
+	       (<VERB? CLOSE>
+		<TELL "Better yet, close your mouth." CR>)
+	       (<VERB? CROSS>
+		<TELL "Crossed and double-crossed, sucker." CR>)
+	       (<VERB? DISEMBARK>
+		<TELL "What makes you think you deserve it?" CR>)
+	       (<VERB? DROP>
+		<TELL "Like a hot potato." CR>)
+	       (<VERB? LEAN-ON OPEN>
+		<TELL "I think you've got enough troubles." CR>)
+	       (<VERB? FOLLOW>
+		<TELL "What makes you think you know where you're going?" CR>)
+	       (<VERB? LISTEN>
+		<TELL "Do I have a choice?" CR>)
+	       (<VERB? SEARCH>
+		<TELL "Okay. I found one empty head but a strong heart." CR>)
+	       (<VERB? MAKE>
+		<TELL "I doubt anyone could make you do anything with that attitude." CR>)
+	       (<VERB? SHAKE>
+		<TELL "Shake, rattle and roll." CR>)
+	       (<VERB? SMELL>
+		<TELL "Phew! When was the last time you bathed?" CR>)
+	       (<VERB? SQUEEZE>
+		<TELL "Like a python, eh?" CR>)
+	       (<VERB? THROW>
+		<TELL "For a loop?" CR>)
+	       (<VERB? WEAR>
+		<TELL "How many layers of skin does one human need?" CR>)
+	       (ELSE
+		<RFALSE>)>
+	 <RTRUE>>
+
+<OBJECT DOORWAY
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CONTBIT OPENBIT)
+	(DESC "doorway")
+	(SYNONYM DOORWAY OPENIN)
+	(ADJECTIVE ARCHED TIMBER)
+	(ACTION DOORWAY-FCN)>
+
+<ROUTINE DOORWAY-FCN ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<AND <EQUAL? ,HERE ,NORTH-ANTECHAMBER ,BURIAL-CHAMBER>
+			    <EQUAL? ,BEAM-PLACED 4>>
+		       <TELL
+"The mast is in the doorway, running from top to bottom." CR>
+		       <RTRUE>)
+		      (<AND <EQUAL? ,HERE ,SOUTH-ANTECHAMBER ,ANNEX>
+			    <EQUAL? ,BEAM-PLACED 2 3>>
+		       <TELL 
+"The beam is wedged in the doorway from side to side." CR>
+		       <RTRUE>)>)>>
+
+<OBJECT PICTURE-PANELS
+	(IN LOCAL-GLOBALS)
+	(DESC "panel")
+	(FLAGS NDESCBIT)
+	(SYNONYM PANEL PANELS)
+	(ADJECTIVE GOLD RED CLAY BEATEN)
+	(ACTION PANEL-ON-WALL-FCN)>
+
+<ROUTINE PANEL-ON-WALL-FCN ()
+	 <COND (<VERB? EXAMINE READ>
+		<TELL 
+"The panels are beautiful pieces of art, to be appreciated by the Queen on her
+journey through the Netherworld." CR>
+		<COND (<GLOBAL-IN? ,HIEROGLYPHS ,HERE>
+		       <PERFORM ,V?READ ,HIEROGLYPHS>
+		       <RTRUE>)>
+		<RTRUE>)>>
+		
+
+<OBJECT STAIRS
+	(IN LOCAL-GLOBALS)
+	(SYNONYM STAIRS STEPS LADDER STAIRWAY)
+	(DESC "stairs")
+	(FLAGS NDESCBIT CLIMBBIT TOUCHBIT)
+	(ACTION DESC-STAIRS-F)>
+
+<ROUTINE DESC-STAIRS-F ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,AFT-CABIN ,BELOW-DECK>>
+		<TELL "The ladder is made of wood, and it looks fairly sturdy."
+		      CR>
+		<RTRUE>)>>
+
+<OBJECT PARACHUTE
+	(IN GLOBAL-OBJECTS)
+	(SYNONYM PARACH CHUTE)
+	(DESC "parachute")
+	(ACTION GOOD-LUCK-FCN)>
+
+<OBJECT PLANE
+	(IN GLOBAL-OBJECTS)
+	(DESC "airplane")
+	(SYNONYM PLANE AIRPLA PILOT)
+	(TEXT
+"Its a small, one-engine plane, similar in shape to the old Piper Cubs.")
+	(ACTION PLANE-FCN)>
+
+<ROUTINE PLANE-FCN ()
+	 <COND (<VERB? WAVE>
+		<COND (<AND <L? ,MOVES 8>
+			    <NOT <IN-A-TENT?>>>
+		       <TELL "The plane dips its wings in salute." CR>)
+		      (<L? ,MOVES 8>
+		       <TELL 
+"You wave at the plane through the top of the tent. Somehow, I doubt it
+noticed." CR>)
+		      (T
+		       <TELL "The plane's returned to its home base." CR>)>)
+	       (<VERB? FIND>
+		<COND (<G? ,MOVES 8>
+		       <TELL "I suppose it's up in the air, somewhere." CR>)
+		      (T
+		       <TELL "It's somewhere up over your head." CR>)>)
+	       (<VERB? EXAMINE>
+		<COND (<AND <NOT <IN-A-TENT?>>
+			    <L? ,MOVES 8>>
+		       <RFALSE>)
+		      (<L? ,MOVES 8>
+		       <TELL 
+"All I can tell you about it is that it's out there." CR>)
+		      (T
+		       <TELL "The plane's far gone, amigo." CR>)>)
+	       (<AND <VERB? LISTEN>
+		     <L? ,MOVES 9>>
+		<TELL "RRRRRRRrrrrrrr r r r r r   r    r     r." CR>
+		<RTRUE>)
+	       (T
+		<COND (<G? ,MOVES 8>
+		       <TELL "What plane? It's gone!" CR>)
+		      (T
+		       <TELL
+"Leave the plane alone. It's not bothering you." CR>)>
+		<RTRUE>)>>
+
+<ROUTINE GOOD-LUCK-FCN ()
+	 <COND (<VERB? FIND>
+		<COND (<L? ,MOVES 8>
+		       <TELL "Look up!" CR>)
+		      (T
+		       <TELL
+"It's gone with the wind, never to be seen again." CR>)>)
+	       (<VERB? EXAMINE>
+		<COND (<AND <G? ,MOVES 4>
+			    <L? ,MOVES 8>>
+		       <TELL "It's white." CR>)
+		      (<L? ,MOVES 5>
+		       <TELL "What parachute?" CR>)
+		      (T
+		       <TELL
+"The most I can tell you is that it was white." CR>)>)
+	       (<VERB? STAND-UNDER>
+		<RFALSE>)
+	       (T
+		<COND (<G? ,MOVES 7>
+		       <TELL 
+"Forget the chute, amigo. It's history. And if you don't get on with this, you
+will be too." CR>)
+		      (T
+		       <TELL "Leave the parachute alone." CR>)>
+		<RTRUE>)>>
+
+<OBJECT SIP
+	(IN GLOBAL-OBJECTS)
+	(FLAGS TAKEBIT)
+	(DESC "sip of water")
+	(SYNONYM SIP)
+	(ACTION SIP-FCN)>
+
+<ROUTINE SIP-FCN ()
+	 <COND (<AND <EQUAL? ,PRSO ,SIP>
+		     <VERB? TAKE>>
+		<COND (<OR <NOT ,PRSI>
+			   <PRSI? ,WATER>>
+		       <PERFORM ,V?DRINK ,WATER>
+		       <RTRUE>)
+		      (<EQUAL? ,PRSI ,LIQUID>
+		       <PERFORM ,V?DRINK ,LIQUID>)
+		      (ELSE
+		       <TELL "No, I don't think I quite understand." CR>)>)
+	       (ELSE
+		<TELL "Now that's an interesting thought." CR>)>>
+
+;"GLOBAL VARIABLES"
+
+<GLOBAL HERE <>>
+
+<GLOBAL LOAD-ALLOWED 100>
+
+<GLOBAL LOAD-MAX 0>
+
+<GLOBAL LIT T>
+
+<GLOBAL MOVES 0>
+
+<GLOBAL SCORE 0>
+
+<GLOBAL INDENTS
+	<TABLE ""
+	       "  "
+	       "    "
+	       "      "
+	       "        "
+	       "          ">>
+
+;"******************************************
+	Here come the globals
+********************************************"
+
+<GLOBAL STATUE-TBL
+	<TABLE ISIS NEPHTHYS NEITH SELKIS>>
+<GLOBAL STATUE-NAME-TBL
+	<TABLE "Isis" "Nephthys" "Neith" "Selkis">>
+<GLOBAL ORDER-LTBL
+	<LTABLE NEITH SELKIS ISIS NEPHTHYS>>
+<GLOBAL TURNED-LTBL
+	<LTABLE <> <> <> <>>>
+<GLOBAL DOWN-LTBL
+	<LTABLE LANDING-ZERO LANDING-ONE LANDING-TWO LANDING-THREE>>
+
+<GLOBAL SOMETHING-DROPPED <>>
+<GLOBAL WHAT-WAS-DROPPED <>>
+<GLOBAL ROPE-PLACED <>>
+;<GLOBAL ROPE-LANDING <>>
+<GLOBAL ROPE-TIED <>>
+<GLOBAL MATCH-COUNT 20>
+<GLOBAL SCARAB-SET <>>
+<GLOBAL OIL-SOAKED <>>
+<GLOBAL OILED-TORCH <>>
+<GLOBAL OIL-LEFT 100>
+<GLOBAL TORCH-TURNS 0>
+<GLOBAL TURN-OFFSET 0>
+<GLOBAL CAN-TURN-STATUES <>>
+<GLOBAL STATUES-SET <>>
+<GLOBAL ANTE-SEAL T>
+<GLOBAL BEAM-PLACED <>>
+<GLOBAL ON-BEAM <>>
+<GLOBAL INNER-DOOR-SEALED T>
+<GLOBAL PLASTER-GONE <>>
+<GLOBAL FIRST-ENTRY T>
+
+<OBJECT HIEROGLYPHS
+	(IN LOCAL-GLOBALS)
+	(DESC "hieroglyphs")
+	(FLAGS NDESCBIT)
+	(SYNONYM SYMBOL HIEROG GLYPHS)
+	(ADJECTIVE STRANGE)
+	(ACTION HIERO-FCN)>
+
+<ROUTINE HIERO-FCN ("AUX" TEMP (COUNTER 0) OFFSET)
+	 <COND (<NOT <VERB? READ EXAMINE>>
+		<RFALSE>)>
+	 <COND (<AND <IN? ,WINNER ,STAIRS-BOTTOM>
+		     <IN? ,PLASTER1 ,STAIRS-BOTTOM>>
+		<TELL CR
+"*->  #  !!!  ::  ...>  .-" CR>)
+	       (<IN? ,WINNER ,WEST-END-OF-PASSAGE>
+		<COND (<FSET? ,PIT ,INVISIBLE>
+		       <TELL CR
+"             .|
+<-*  #  /!\\  -  #  (=  =)|
+|
+::  *->  #  !!!" CR>)
+		      (T
+		       <TELL "They're gone with the plaster." CR>)>)
+	       (<AND <ROOM? ,NORTH-ANTECHAMBER>
+		     <NOT <FSET? ,BURIAL-CHAMBER ,RMUNGBIT>>>
+		<TELL CR
+"             -     !=!|
+<-*  #  /!\\  .   #  ! !|
+|
+::  *->  #  !!!" CR>)
+	       (<AND <ROOM? SOUTH-ANTECHAMBER>
+		     <NOT <FSET? ,ANNEX-DOOR ,OPENBIT>>>
+		<TELL CR
+"                      -|
+<-*  #  /!\\  (.)  #  ! !|
+                      -|
+|
+           -|
+::  (  #  ! !|
+           -" CR>)
+	       (<ROOM? ,ROOM-OF-NEPHTHYS ,ROOM-OF-ISIS
+		       ,ROOM-OF-SELKIS ,ROOM-OF-NEITH>
+		<COND (<EQUAL? ,HERE ,ROOM-OF-NEPHTHYS>
+		       <SET TEMP ,NEPHTHYS>
+		       <SET OFFSET 4>)
+		      (<EQUAL? ,HERE ,ROOM-OF-NEITH>
+		       <SET TEMP ,NEITH>
+		       <SET OFFSET 2>)
+		      (<EQUAL? ,HERE ,ROOM-OF-SELKIS>
+		       <SET TEMP ,SELKIS>
+		       <SET OFFSET 1>)
+		      (T <SET TEMP ,ISIS>
+		       <SET OFFSET 3>)>
+		<REPEAT ()
+			<SET COUNTER <+ .COUNTER 1>>
+			<COND (<EQUAL? .TEMP
+				       <GET ,ORDER-LTBL .COUNTER>>
+			       <RETURN>)>>
+		<TELL CR "       " <GET ,STAR-LTBL .COUNTER> CR>
+		<TELL CR
+"          " <GET ,COMPASS-POINTS-LTBL .OFFSET> CR>
+		<TELL
+"))  /  #  " <GET ,COMPASS-TAILS-LTBL .OFFSET> "  ::|
+|
+<-*  "
+	     <GET ,STAR-LTBL .COUNTER> "  =!=  /  *" CR>)
+	       (<IN? ,WINNER ,BEND-HALL>
+		<TELL
+"
+          .      =  - -|
+!@!  ...>  -  #  *   =   ::  <...  ;|
+|
+#  *|
+   =" CR>)
+	       (<IN? ,WINNER ,CENTRAL-ROOM>
+		<TELL
+"The hieroglyphs look like this:|
+|
+                    !-!|
+...>  -.  >...  #  !  ! !|
+                    !-!|
+|
+/  ...>  /  #  !@!" CR>)
+	       (<EQUAL? ,HERE ,SOUTH-CENTER>
+		<TELL
+"The hieroglyphs look like this:
+|
+|
+ <.>     <:>     <:.>|
+|
+ <::>    <::.>   <:::>|
+|
+ <:::.>  <::::>  <::::.>" CR>)
+	       (<EQUAL? <LOC ,WINNER> ,SKELETON-ROOM ,SILVER-ROOM ,GOLDEN-ROOM>
+		<TELL
+"The hieroglyphs look like this:|
+|
+-!-  #  !*  ::  #  *!  ::|
+|
+*->  #  !@!  >*>" CR>)
+	       (T
+		<TELL "I don't see them here." CR>)>
+	 <RTRUE>>
+
+<GLOBAL STAR-LTBL
+	<LTABLE "(@)"
+		"(@@)"
+		"(@@@)"
+		"(@@@@)">>
+
+<GLOBAL COMPASS-POINTS-LTBL
+	<LTABLE
+" ."
+"\\"
+" /"
+". ">>
+
+<GLOBAL COMPASS-TAILS-LTBL
+	<LTABLE
+"/"
+" ."
+". "
+" \\">>
+
+<GLOBAL WATER-LEFT 0>
+
+<OBJECT PICTURES
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT)
+	(DESC "decorations")
+	(SYNONYM PAINTI PICTUR SCROLL)
+	(ADJECTIVE SMALL LARGE)
+	(TEXT
+"Quite beautiful, no?")>
+
+<OBJECT PILLARS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT)
+	(DESC "pillars")
+	(SYNONYM PILLARS)
+	(TEXT
+"They're quite huge, aren't they?")>
+
+<OBJECT BOAT
+	(IN LOCAL-GLOBALS)
+	(FLAGS VEHBIT)
+	(DESC "barge")
+	(SYNONYM BARGE BOAT SHIP WOOD)
+	(ADJECTIVE WOODEN WOOD)
+	(ACTION BOARD-BARGE-F)>
+
+<ROUTINE BOARD-BARGE-F ()
+	 <COND (<VERB? BOARD>
+		<COND (<EQUAL? ,HERE ,BARGE-ENTRANCE>
+		       <DO-WALK ,P?UP>
+		       <RTRUE>)
+		      (<OR <EQUAL? ,HERE ,NW-CORNER ,NE-CORNER>
+			   <EQUAL? ,HERE ,SW-CORNER ,SE-CORNER>>
+		       <TELL "There's no way to do that from here." CR>
+		       <RTRUE>)
+		      (<OR <EQUAL? ,HERE ,FORE-CABIN ,AFT-CABIN ,BELOW-DECK>
+			   <EQUAL? ,HERE ,BELOW-MAST ,BARGE-CENTER>>
+		       <TELL "Just where do you think you are?" CR>
+		       <RTRUE>)>)
+	       (<VERB? DISEMBARK>
+		<COND (<EQUAL? ,HERE ,BARGE-CENTER>
+		       <DO-WALK ,P?DOWN>
+		       <RTRUE>)
+		      (<OR <EQUAL? ,HERE ,NW-CORNER ,NE-CORNER>
+			   <EQUAL? ,HERE ,SW-CORNER ,SE-CORNER>>
+		       <TELL "You're not on the barge!" CR>
+		       <RTRUE>)
+		      (<OR <EQUAL? ,HERE ,FORE-CABIN ,AFT-CABIN ,BELOW-DECK>
+			   <EQUAL? ,HERE ,BELOW-MAST ,BARGE-CENTER>>
+		       <TELL "I can't do that from here." CR>
+		       <RTRUE>)>)>>
+		      
+
+<OBJECT DECK
+	(IN LOCAL-GLOBALS)
+	(DESC "deck")
+	(SYNONYM DECK DECKIN)
+	(ACTION JUMP-OFF-FCN)>
+
+<ROUTINE JUMP-OFF-FCN ()
+	 <COND (<AND <EQUAL? ,HERE ,BARGE-CENTER>
+		     <VERB? LEAP>>
+		<TELL "Don't you think using the plank would be safer?" CR>
+		<RTRUE>)
+	       (<VERB? LEAP>
+		<TELL "It might be easier without these bulkheads around." CR>)
+	       (<VERB? LOOK-INSIDE EXAMINE>
+		<COND (<FIRST? ,HERE>
+		       <DESCRIBE-OBJECTS T>
+		       <RTRUE>)
+		      (ELSE
+			<TELL "There's nothing on the deck." CR>
+			<RTRUE>)>)
+	       (<VERB? COUNT>
+		<TELL "What a cahd! (52 to be exact!)" CR>
+		<RTRUE>)>>
+	
+<OBJECT FLAPS
+	(IN LOCAL-GLOBALS)
+	(DESC "flap")
+	(SYNONYM FLAP FLAPS)
+	(ACTION FLAP-FCN)>
+
+<ROUTINE FLAP-FCN ()
+	 <COND (<NOT <VERB? LOOK-INSIDE>>
+		<RFALSE>)
+	       (<EQUAL? ,HERE ,TENT ,TENT2 ,SUPPLY-TENT>
+		<TELL
+"You can make out a lot of sand and a small firepit." CR>)
+	       (<EQUAL? ,HERE ,P2>
+		<TELL 
+"You can make out your cot and the trunk inside the tent." CR>)
+	       (<EQUAL? ,HERE ,P7 ,P4>
+		<TELL 
+"You can see nothing distinguishable by trying to look in through the bright
+sunlight." CR>)>
+	 <RTRUE>>
+
+<OBJECT THICKET
+	(IN GLOBAL-OBJECTS)
+	(DESC "thicket")
+	(SYNONYM THICKE)
+	(ACTION THICKET-FCN)> 
+				
+<ROUTINE THICKET-FCN ()
+	 <COND (<NOT <EQUAL? ,HERE ,RIVER-BANK ,P4 ,P6>>
+		<TELL "I see no thickets here." CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL "Thicker thickets have never been thicker." CR>
+		<RTRUE>)>>
+
+;"Parser-related stuff"
+	 
+<OBJECT NOT-HERE-OBJECT
+	(DESC "such thing" ;"[not here]")
+	(ACTION NOT-HERE-OBJECT-F)>
+
+<ROUTINE NOT-HERE-OBJECT-F ("AUX" TBL (PRSO? T) OBJ)
+	 ;"This COND is game independent (except the TELL)"
+	 <COND (<AND <EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+		     <EQUAL? ,PRSI ,NOT-HERE-OBJECT>>
+		<TELL "Those things aren't here!" CR>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+		<SET TBL ,P-PRSO>)
+	       (T
+		<SET TBL ,P-PRSI>
+		<SET PRSO? <>>)>
+	 <COND (.PRSO?
+		<COND (<VERB? LAMP-ON BURN LAMP-OFF>
+		       <COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
+			      <COND (<NOT <==? .OBJ ,NOT-HERE-OBJECT>>
+				     <RTRUE>)>)
+			     (T
+			      <RFALSE>)>)>)
+	       (T
+		<COND (<VERB? LAMP-ON BURN LAMP-OFF>
+		       <COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
+			      <COND (<NOT <==? .OBJ ,NOT-HERE-OBJECT>>
+				     <RTRUE>)>)
+			     (T
+			      <RFALSE>)>)>)>
+        ;"Here is the default 'cant see any' printer"
+	 <COND (<EQUAL? ,WINNER ,ADVENTURER>
+		<TELL "You can't see any">
+		<NOT-HERE-PRINT .PRSO?>
+		<TELL " here!" CR>)
+	       (T
+		<TELL "The " D ,WINNER " seems confused. \"I don't see any">
+		<NOT-HERE-PRINT .PRSO?>
+		<TELL " here!\"" CR>)>
+	 <RTRUE>>
+
+<ROUTINE FIND-NOT-HERE (TBL PRSO? "AUX" M-F OBJ)
+	;"Here is where special-case code goes. <MOBY-FIND .TBL> returns
+	   number of matches. If 1, then P-MOBY-FOUND is it. One may treat
+	   the 0 and >1 cases alike or different. It doesn't matter. Always
+	   return RFALSE (not handled) if you have resolved the problem."
+	<SET M-F <MOBY-FIND .TBL>>
+	<COND (<AND <G? .M-F 1>
+		    <SET OBJ <GETP <1 .TBL> ,P?GLOBAL>>>
+	       <SET M-F 1>
+	       <SETG P-MOBY-FOUND .OBJ>)>
+	<COND (<==? 1 .M-F>
+	       <COND (.PRSO? <SETG PRSO ,P-MOBY-FOUND>)
+		     (T <SETG PRSI ,P-MOBY-FOUND>)>
+	       <RFALSE>)
+	      (<NOT .PRSO?>
+	       <TELL "You wouldn't find any">
+	       <NOT-HERE-PRINT .PRSO?>
+	       <TELL " there." CR>
+	       <RTRUE>)
+	      (T ,NOT-HERE-OBJECT)>>
+
+<ROUTINE GLOBAL-NOT-HERE-PRINT (OBJ)
+	 <COND (,P-MULT <SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>)
+	       (T
+		<TELL "You can't see any">
+		<COND (<EQUAL? .OBJ ,PRSO> <PRSO-PRINT>)
+		      (T <PRSI-PRINT>)>
+		<TELL " here." CR>)>
+	 <SETG P-WON <>>>
+
+<ROUTINE NOT-HERE-PRINT (PRSO?)
+ <COND (,P-OFLAG
+	<COND (,P-XADJ <TELL " "> <PRINTB ,P-XADJN>)>
+	<COND (,P-XNAM <TELL " "> <PRINTB ,P-XNAM>)>)
+       (.PRSO?
+	<BUFFER-PRINT <GET ,P-ITBL ,P-NC1> <GET ,P-ITBL ,P-NC1L> <>>)
+       (T
+	<BUFFER-PRINT <GET ,P-ITBL ,P-NC2> <GET ,P-ITBL ,P-NC2L> <>>)>
+ <SETG P-WON <>>>
\ No newline at end of file
diff --git a/infidel.zil b/infidel.zil
new file mode 100644
index 0000000..6d31465
--- /dev/null
+++ b/infidel.zil
@@ -0,0 +1,73 @@
+"
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<SNAME "INFIDEL">
+
+<GC-MON <>>
+;<COND (<GASSIGNED? ZILCH> <GC 0 T>)
+      (T <GC 0 T 5>)>
+<GC 0 T 5>
+
+<BLOAT 90000 0 0 3500 0 0 0 0 0 512>
+
+;<SETG SHORT-STRINGS 2>
+
+<SET REDEFINE T>
+
+<GLOBAL BIGFIX 10000>
+
+<OR <GASSIGNED? ZILCH>
+    <SETG WBREAKS <STRING !\" !\= !,WBREAKS>>>
+
+<OR <GASSIGNED? INSERT-CRUFTY>
+    <DEFINE INSERT-CRUFTY (STR) <IFILE .STR T>>>
+
+<DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
+	<INSERT-FILE .STR .FLOAD?>>
+
+<PRINC "INFIDEL: Interlogic Adventure Fiction
+">
+
+<COND (<GASSIGNED? PREDGEN>
+       <ID 0>)>
+
+<IFILE "MACROS" T>
+
+<IFILE "GLOBALS" T>
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+<PROPDEF VALUE 0>
+
+<IFILE "SYNTAX" T>
+<ENDLOAD>
+
+<IFILE "CLOCK" T>
+<IFILE "MAIN" T>
+<IFILE "PARSER" T>
+<INSERT-CRUFTY "CRUFTY">
+<IFILE "VERBS" T>
+
+
+
+;"MIKE: Add your files here, as with ROBOTS"
+
+<IFILE "INTERRUPTS" T>
+<IFILE "RA" T>
+<IFILE "ANTE" T>
+<IFILE "DIAMOND" T>
+<IFILE "BARGE" T>
+<IFILE "CUBE" T>
+<IFILE "CAMP" T>
+<IFILE "TEMPLE" T>
+
+<PRINC "INFIDEL: Interlogic Adventure Fiction
+
+
+
+
+
+
+
+Get ready!">
\ No newline at end of file
diff --git a/infidel.zip b/infidel.zip
new file mode 100644
index 0000000000000000000000000000000000000000..c31b145b9a7ccb8a7f24a829a3c3f245ed29746a
GIT binary patch
literal 93556
zcmeFZ30PD|(=b}+%sIm*Iv}zy!^koWGl+m}qRc^teP6^xQCW>kBAW?r5jE}@Hxxxp
z#%0uCGz$7g#Y9kX-%$~lh>5t6xRbbK@mBXB(Y){X-FyG%{?GH@=lPB@Rb5?OU0q#W
z-F;4<BLc9DHyS=IB$PcYJFWT?Akf!4sINcE{cE2fga6wruewav^Wr_er)mqoV&tT%
zGTo%A>%8sgGTjRG`H^?ZY}+wkrD(UZF4IYytZd43b+B)wSqn+$eVZD$iw~Z7jxTK4
z#pi9h&3knm<81@v$6ug41u1#)gFQFYSuth0?1&@M!tLv{39I@w?cgtr%-i0|yDcN~
z+}51prA=kJg7Zfq^}RCP@QP!+-?c5gTg8akFL>LIF{n$=?xVa;mlahtN(+bF<`pHQ
z7nbSFTFP{qb6a>bQ`^Yuww|gwaKh4)szw+$jvU#vkq<>q>yDqL*-JfD!Q;wwiVtkl
zqf>9|a@^ukR-M!#HU%~8cVc*X<fU&RE9NBh?@9E@+kOT#r@ocieh`#;n<p*U$a_^H
zeba4Szl<%qjAq+}jeL$<@V(W>Iew?rs^*_u-72p0*;k3J9Nx>zDAOfWw&}e5F0}Q$
z*xov+%F1dBKiDltah)I8EL-k(>Sw*qttn&5bo~P<w{~cP%<KhkwkaZHbz}5#HwCt>
zB_Ds6)caj2(-m%SROeOiYqdXCPwnzMbn49~k1f-I6lCB6Zr~0c;0Y@5f<E94KHv{Q
z5DficAP6uBG!O~V5C@5n0%<T9hQLr52E!o>av%>z!Dtu@A3^~X!^cnxlVB=LgX!=Y
z%!awJ02aa`SOUvo6|8}^poNXF3BH1@unl%VE$oJGVK3~51JD46pb?J2NjME>;XGV~
zX1E4FKr8$Rx8W|d!vlB>Pv9B+3eVvs{K5QpKFa@hnfg2_NX=OQlS5KQUM~X1<Qjmy
zo&(n888C+DBp~W$3?SuRT0u8ADR@K~gF&|d%&HdybW0+L5hA4|%M=W|t&^bK=O*HA
z`zT@x-OhF@(d|B^^f2o7GgivIumMw`6bYF2qKFx1+J_?MU>ZS@o?tqhA{Jmeks`KW
zx)k*RO90cYSo;uwUZ#6FGoxcKJ;C%M$->L@89`peKzCLG96av_-EBBCn%CVIOL0!%
z&^;Q;0PF#}kH9P#=mg!1F>CQakak}PW@Vg{J#^m!j0C$Lx*uW~ut3S(FMye$6u_nX
z1C9acjg-GAk2Cb>2_T0^cj%!4Fp7$lLyrN#NX;VwdZch>hU$dA&?BE?q-byGG0z2m
zUwT20^(2c>YOr>M(BlNL%gb}nqZQ1kiF!OGNM8Vn2{J>%Aa98aVC{HG!a!tH8tDd-
zAySZM`y*v6ZL&W|=29fUPf|~jK#=@JksvVhp-3>8<x`|Tm@T152$=1s$N(_wpvXWl
zms2Fv(R>(1)L=fDA_AE2phy^)w^Jkmddj3Al_bPN&tyu`K+imiM7Z``OOZ(E`8`FV
ze0x5lNHkbTD3SseQBZ~*7Y7!fVh?iIK#N5vkb98?7Hff#LIP5@QReVOi$myj;RzmK
z@c?<?#bU7d1C0=#f<9qPd4{L<vLnS)lA%`&7PrVuhhD=eG8lT5QX~U<Ev3j1==C*4
z-h*C8DDpn^YDL5^b13xsgHmw5u%t*DSbAe!>TDQh8AUyF1Xzxs$Vjj(rAQW7&Z0;*
zST3bVPNwCT6v+k4e^De4EE_4350)(y`3NkZ5Qi)Turh$2hC_<Rft8EYOe*<k3|Pft
zrAZ%QRu;BB>7&tLRU~CSl8TTrM+#a=(Fb5vMdgeiYqgak1z@GGq7bZZQcBS%tLGFc
z{?NJ`MM}V0Ns$R)9ZHdp!8(Z|pMZ51MM}ZCh$0igdL~6Cfi?Cij`zu6jh=wWRIok-
zYAK>%t*>huSU>2b*cecr>0s0A4MjyMGr^`mq09uZNvD*BGi-8z0d^KrCL<zQ2%p(3
zBfUHiDcdQ}yty`qFiScIDL+ukg84Qt31!}Fu(hC+CFQn#k%AEzY~v_p&gZtH2xZ|c
zu$@hiC787i0R88Cutm?rR@5!By^MpJxS#Da9C6u**ol-9sbo1Kwj4tuK!u$WBY@;9
zq(oq+M6E((I7KSKZYDvtSFN<$f(UG14R!~mSjF}=V0ST!AZx+yCPlsgyJr-^SY$wv
zRbcNx^f`o-K2k<XRI(42s-@DpjbNWZD4UTo5+$qa5GkQLZvy*rifjh^4HVh3!CoJP
zw}Jf?5}&`WUSZ!s5da6CB42@ngA@$a+hD7MFD<qGYlnD>?EcbW7^!0S4siH{B0Irh
zDMf0);Tww7g2O39Z~_B|`zR-B_c!412Q9vDm!lb~N^Iz;dV{EuIcgtLQn9<GFAjoZ
zHf65g<EU?iZolISBDrooIQ|PQCaFi}leBmCf@2FJ?2F^z_=uJ|^qu2t<bgw4aFP=L
zd2s-o`qHdp4NilkSal<SQyxZaICJE%)5jP^;S5qf$00N1Od~jLp-}=U2LQD2;siKd
zrN~KedO(p=GzekVX^>*4AaWk0ezcVFQE4pJKrU%1`F+_8QuJ4V7Z*Ufj3P}ST?Z^u
zE`szM+KNjcJxr0yAiY45t027(3>Lov(wC&v%NB4pqR0(!cEn1#7uUeqi!xsaXEmUG
zUfcucQ~))+Yz60h!VGZJ`D1{Q><<9WsE@bH%Uj@#`rzFCBRHeuBJvYBYbkOEoOjSd
z(B_OjB*n!AIDbbdFYki$5sI{f^Ldi>0<$n1k?!F98>#)}&ma>~o?k#_4q!O)<pYqR
zs#wJ%ko6&1c*)c_8^O!RAd4o+mrp>JNs*@@L!AxdUOodEhB?gY09hGDegzqhRiyj|
zvM(rta<&o#yH2)?fS3Gz*}nh`UZY)QC%L?)(w-jCjT&D~mKQL}dDl!1DgHGUxB<fy
z3Ky$=<9s83q4W}y#fpEq0WUr8d@?AS*>u{qSS=6BSI!&dxpWDLvW+$GUC4VD9TT}}
zz>AOq74%Tfvol%hzWWZanx-u}-|%AP+&d=M6}zth?{g=<MQ&sLWQ(pirX@OG1-Z(>
zmrO7t>->iqjH#{HI!$rto`L(lfL8&pocpWEGR5wV9?-*m_aQf6P{0z`)OYv{^?aTW
zk12LfrHrHXjQ>?lJ-bJa8OGVlo5nbqSeux2lkW}(UQfh5fX+c;Z){_1E$Mr?yL>lx
z5%6Xe8bzGGKo9F4SYX!!)Wd6(BD2ZcY|BaCa6iw7%M`nAyx}BL93}RqHl}(hyJmyP
ztSLUDEZ)(?p@+ShwOR7zOV{PKzXI1&5wlay?$S9)?9FW?*5-XLU6j`bgSe-SM>;IG
zv$mQ4_y;F5`<`|^ZOqKB%WHo9N0zz0g`I`1xx8lAKQemS7u)u<E|%8}2G;4lJIj0r
zex{uB#AG?}ao2)o=QR{`bm)8snySE9Ip=fF<rRvZe*&L&Ola~p9M*!J6IvE7@&aR$
zKkJIg3iqA+fFBx>=ryXIx2_uP8x;g>bn~kD&%(S0ofL)*j8jg3K6Z80s+HJMMOMab
zUH_fSgLkg!d*23Ebjle$<U41BIJh)DDzBl~CP-4<<{Oi3vPQAf6-3geyqHs{%PKDr
zldhZ|VDcQqopssUDX!~$<Gj5<gjvm=^CP4QtI(x1+tD*k)+%;PaNm&&qOkl7@p`^E
z%4bjub(|38%pXlE-FNDM9lm^vt~RPis4&3Tr!3M7IAz&*lP?rI`U0D^>p`+_G^g0%
z>b}Dq#OWuT)x1&W2^WK}VrvIX628)imD5gpYQMxK{e>!Y<LgAdY0V}lfbF*BUb}DT
zPUW<8&*x7R-|TQh{Y2@<)Z$+?wFCM`EFa*9#xq%`_-3v9Hw!_Oc06Kky{<Sy8NOEe
z=^w!6zdFPF#?JNmR6_>9r%OHWuLsVtLr7))uo>ZNBa|j}if=vw-uaYm`zQsw38@i|
z!fZ5y3RvaT*Pa{pE56Bc|0W)Ir;PY$QKjwf>bByz{Sl62IBimV69{Zn)4lV>;g>?k
zDyJMa*$ASj7U#_u78i#<34fu&;XZkZiB2~6B#4OsHX_f|v7#Ou`2_P!Heu<Ob(m@=
z0buf8!pCJb`6$?kHq%b(l+m7BHq#8%Fj9Og|Iduh8f!_7p+zW(R6FUh`!@<&%xj5j
zG-GjF=Np>o1xCt=k36ft0+H?0Qo|-!q!G(Zd}LA$qLk|RrX9N42zJ1kuzjQtCN`LC
zRcyaZjjne$r@-N#1cHPAF#OHHzrpyIj(-+G$#M7Zk$NX)$iF^{fx(6C=#6ot(@mX%
z9Q!#0kW!P*xByHfKX1zS3bY7*yYw_SU|rZ}Z<h{s^mhn-yUt!g7GZCf38rP9zFnq2
z)ilVyAF0REpK2MRFC!vaZoNj!9DKV>h-08bu)V)kKg)n#{VfLQxmn6R2D#s69pD(`
z5N01><!>3<E5st=EoHVUvH5SYj==h<E+O`TRF@#4OB(*YRjB$L)n@TO$~pFT7+@b{
z6=)g!ZW*dm^(<=VMgJ@l;t*jUY!ze~_HG&4>gpI;&*!8J*Rx_c^i-U6by8ca3$g#s
zlOTeo`RWH`!dPuFR;73b%U7$M!W;t})bDgauth?bd7|WBX{p#JU|?P~s=KSYOLBr^
zsDofX&}Lv)Z--fgch-f@f+cfl$;a<h7w)JY@KyRd^(FXyl}^efQ5~_I0WJ3kc=H6;
zzH%<D1*3a}W3WSleW+D{rMlMuizvN<9I0l@*OdJr@Q!XWV;qPb>#cpG7?W=lTh@VL
zr_#2Acb0N_cn`@b+A+aFV=vfftknLx#l52Zbc>e|17Yn{>&=Jh+}E?Kgk!k%n`TiH
zZdOnR^O6yrCL~_qIKUywKFliEGU45x!QPCLZ@NT#6Qh{vXG914DC?+BLs5yFD%|i!
zfmpAqp2aEBF~T9*KEWo^D$Fwcjm*wM*xe{}01jRkwj8ZA#<rE?;?Hl<QB9&8QtZR6
z68twgyeXzP7HyplmjE~f7yR4w03v#KOy?V!qAcA2EYZ_9<_~45L+ti#U%zErzBuw#
z%xL8&Kbm|4oY_a2YV+-A)hNd>hj4qfRj8%VE5agLUn4dSyQdE^7jvn_H{ys2jwwHB
zH`xKAyzMe$tRU7}vGD=0<{vd`iX)$CK2wSADL)wnocY5KGhj|tL8xxAWAp%Bb%<`U
zb+o^(+D})#1UoB6?<yH`orDM%$vR~7_9>o)ejd6eba~`)<tM{2)<&g_hUa@F#RFvn
zJ(M3GFlkY2tZ+r==km5^N*y2KeDEgcs$%0}oJN83sv4nsr_43Q#&TEe8%}jHPy0@p
zor;ZfT!F`WZu}#sMzL{*D~NGDHdHau&mi*{PFrtks#R>9;tB@9d7KJ(x29c+jUT&$
zA#m|c|B$y^v9Z7vjPPby{W}`mQfwUOimm4}qdcuWq-jmnuD%h13RKDoXH5Qui<#iz
zAH|oMZ^{wx)HrQ%$hO^Loh{#R23RxOwHn79`#kxEt@?yRj(xs-!zcQLQ=TKTd3Gjp
zKOOG1!ObDd?6Pt~jePx^(jy&4*yqaEZ|UU9am;tfv(N5(`I3A+PMf3xrxA|14rlDM
z?9P~-P);}~U-xGxeWc?Vhg_tdqSSA3$#iMbtC7~Sjw7zVQH5l(oG{JgTgAE!?(0?p
zS5)De3hh;z;sN8rfAT4LO&3&-%3@E?dwUdLJ|T<MFSp}5Wcx8)an!vy4OyKOO)<Hv
z`0_Te*?#C^(eqR|H5R4fl1LO*lD7*zZP2g!NwCPvWG_zYS8`1+D0~S?rY!v4WFN4D
z-Ok_|!Z_lZvM|m4OCPl5{2ZxSstY4sc)`PQd~(yh3(CTY@-Nzfle9;yfq7p^96quu
zur5e$x~k7Ph&d;7IqA`Tc@9Ok<CCv8>FJAc%#>uR&BSY)9E<vP60rg^<3z<UMmop#
zmn}NS0*6BTQrptxd;0vfFF_=^lR3XE-pRu8V}}y6Ci&V^Z%B^C_7e!9@(sbM#IckR
zK72!PD7OEE5b$PQr<9K!D2GKCp~&$QhY5B?Ruj#dl!Y<!HK%a|<`3^E5M9(+PO>O9
zyDVR$`<vu6*=};LiSjk`^no3g*pA*e&gqQ(B)c=Vlgv&kvv$hYyoU?CuP#*js^3!<
zq?<g^bIPyeqQuHMQ&!i3#X@DlZ220;fADc+W-{u1QMY2=r^wZda;^UDA6z^MzIthv
z3zsh_Lrx-X_2GZ;afFXZvszfOWX2mV>;tk;WU5!W`i7NwfrWDX6kIH>o(f!eb6<6i
z+ua!7m{2dqMmhcqlN*ZFQSPfTXbz3I8Tu@IT;#}scOu4m9zLX4m5ZUbBSp<~@d<4@
z>!}t~3ol>0^u2OCBd_WWT*{_!!^k0R8NQ*uUby^i^Z?#{<#`nJrd0p#tvc&zy{2KQ
z@2`_mt3C!^5i{((%iHCS&~o3sRW2*J;fnQi%jt!euP?qv%B{Q$+=$51w@V$RrK)Ku
zv+kL;;muHaVd>;E+g3YRO|_iXYr4fu<@h1;sutXZk=>x#SR33>P)$9LJ#=6B1uf}%
zBxcz=${eR+%Sa}hhx5&|fm*>u_$@YR!GrJXzuT{<s=--IZ<6!?)$hFZOskow=C#FC
z%^n~!2uy2fck_+DVe(v2`4Y`?6qnNj#i2jqo<mXD;_><yG83|Cr*MN3fp%k*<F+U&
zm+2XO2a4&|1c?nMCp^HI@@9#zAN7q&_X0!ZI5$P*r<9Ic9qh^sw%vJ1tFAV3Nk~gb
zYoD<xbOD{K9P_K^{gb3HpB)jQ7-r>R{1gA5m`*(>>tk+c#E4MF;z34nXi?-yFIYil
zv9aq+P6M;BtvE^@8tlb%kcn%|Szv9Sw(5#Q?uI->k2j8B0&MJpu_-a3$}u0BoFP+n
zf0gKM+F3N%nDo5?SKgtX!zgiu-;>*NU(;FkJjS?)!x-ZhM$HBheI$hzB4$&5uv4)j
z1GwN~MJqnc(vczeLAc4qe{hZZNwLBjJHR){6!)f@k2O=tdS_H4cEs{uacxJ2JC}B4
z<SEbDFLaKZ9O~rDXZ;&_vx82)JPpK>j!}M5jC5u0nVY=hmZ_V*Tpnw;CHeBz>+<D}
z7%ctLXdXTU)H!UnA8t3?c5~lLSLGFJfbD*~&d^uwuL4J9{&bT|z-68akh)&cqT2p_
z@{2p^mqDb7%{8K|e^Z;$S-b8?_{OyO<ewrtocwWk^F!1#Kz^nDFNf{c+vOE_i%jw=
z^GG<}6>!|P=FmaB1JU>3b!FZNc||uejruP^6NK#xYv_}EiEIXQ+f8l}pQdXDhRhJ}
zX135wvTXPdC9l#<vU2zjCCNqv7dz|v8&_$3qbi8Wb559C$EnF}4Ngt@KDl|sn{rJ(
zZ#)53(sVlWi+y`h-Ieq=dGGa0%A9)nvTR^YkN<2_tNwD}&4G86IUg&Qh5bj;@VSS0
zT>Gk^w=yRPINM@R?HivM{j<phv`bT7l;4H58BX<Uckf;12dn6B^5yG$NkvP~|67;q
zGDq!#<m;CYD6_Hex8UmOf<p%LNmY!m(5TG*#pID<X$1)eTlwPHq(Pr5=Fb9VXUem1
zm1h5-Wx{U@4nAn8KcJ{u03z3zv|e?%L^-0&o{A6n{#NDC@a$Hw-!}w*3$Guz_C2X-
zDGxlUiS<fU9L8PrB$G$LIb{T%XYko9aq-cSCQX0K_;UNfCBK7x{VEER4_?2l%r22H
z!6l96^8Mq*;nOu&l-Xg5B_r_`LzB8kRh#diauqHWvQ1)dKL5deNi>-f65B<7H%yCT
zi{n04W_@qcs#v0QU*docvnkRI$5qHWGRU)vJnuhIED@ujmVuPsWTL~s?#%lmqrmL6
zeDN*3!!S%_Q@y7+W@wDPGHaygk4TDZ9=@h5_gPG@7<(jlSB`w>`O_c36*jpxd5ae7
z-pRQACx{A<%l}Dk`wK)l3Wc_O);rvHUW2GRBduJi8!^%ahL2banfNyh|Avm_fM_)Y
z;gZv*PM$cf99aNdPL!VwKFZfAy%cXP#FbvAz<Rk|)D;V3ghHk29I&oYxO5G@ANp9S
zS_G_p^G?mP0T~0HL_LbztW-sL-n)y|JRjcNijioiV*WzlT%%I%<Xt?=*G2?Ktcfc0
ze14z$!=lF8m<wULFmt8nXC}C2%DM#df)<=`qP>)!?}Nyud9d4QO>M-*kn)H<N=1fZ
z{s6q;(`;k<v!Xa+a44%(;NmgIZQqM$#CYMxF};-vHO>;a;w_F4BBGQE^RW*f{PHu1
z=*a_Jv3g_#tMq8|eEbNQS5?o#Uuy<NeLo;f>5jK;ft9tlHPuEu4k-wo1Dqm#RJ~u*
zX5KgKL#6v~AaYL7plN&u?gqBtJO<o2S)7N`{Q@pwL{7;9SuzZKAB8Xt!+i&RWAYUB
z@;g1GIHq90B@h=q%xm)Q9<x&sa~2gVikJv22^hX%`;_i|7Cis$*N$hv;sFO;t-4!O
zP*^gma%Vm78#+<x&MW47<9w1=EKCbaR=WKT%&O+vkXaE{(Ib>@-z(-j13#?EZ7Dlv
zK-6tr@t{v)MZjhl-}fU;61g^e*z8;8J1G9=*MI%_$M3IRz5q5cWo?G<pfnIUDssA?
zUg<la9#~b=&J156fkYv<b$I_Kz{d7)qpy0x-!AbiY(!|a`c-&6h`g_)c%9Z13-==C
zU}U;;>xA!s;n;BSjc0uT%w84<>%%YM-FAF7&~>R6sHUj~De>XJ+m|QaRQJqyL-Dlp
zH1iZGo|E*(tc~%Cp8yo+wM(=aTG^N3gsLDB5Gpk*rYklpMguG!1hD9Pq^BzaNY3Zq
zD|#!eFm3AbtH;kCH$5&9D!CRk;ogcN7_*rC{`2z4^I+s_<w5RUCEn$5KkdHPUH2{x
z!0m=BK9KpZulcL~EpHd>a>2(RE|XmfUFZ`(y;hySggv*j40*0kFPBW0RF`NM!6nG!
zI3?tQg}bDGTTpuNTGgNP)A8Tn`9tQvKR*+`gfH+Q$C~+B^K<6s&;I}yGMJ)Nu2UEw
zZ6V~tWIP_i%^y4eqxnViOA(tkzij^W`7;okiTI59pLOy75Awg&0`wu>|JEA*&l3K|
zz5mbB>VLHP9}E0{Z-E6(Z^dS=Jg~ffd1yI4Rw_>}A5lKGyrg^zaOJbg7nN(vYw(zf
z1z6$Xyk2;UY#RRc!ozx2NaM<{m)|b`xg2kmEDT-v{=&%%H!nO3Mhl-V{QdK8pWA%y
z@wwOM!JmhJo($dbC}0#sKsbbffKTB=VE`T!41xgYhbNSb{w+5F9P#kq(*Nal8&-T;
zQC9I;#oUVWip3Qb6)Uj~Q`f|!-ZR%EVN0g1NhQY(*9^uZiD{6I#}hN~fZ}`bJ`CMB
zVB^4zp&Qj3!#0L*jMx~tF?wSx@Y_PRg>DPq7QHPI#M@H06>i(M?csKQyDf0rL$`ml
zefjon;DCqQWMKEdqBGvxj>fy<QS3s9U_XZe>>>zZ7ejycAOy0HKwuw(ntcMH>{AF}
zpMgKyfp+_!>;In?aKI7tzk2aC18Tx*B5Pu5lJHoqGp-z?(d!IwY>_+k5qKom07sSw
z{)XVuTmu|qD*O#c9v;UTx%VH2JUkxL#k*oS{ygzF5P5hUmA&!4ks5hKI6B?&HvoA=
zc&OJCfBPYis1M)As*iIY&preCMD|JUGqg`$pE-Tb_xY*MgFdgljlAu=UA;$mkM^GF
zeaZV~U!%TueO>#`>AR}$*1nB>&-Q)dBl79x<K*Mv<LfiPXN1papUFP6d=~kv^V#at
z=yTSm#ph?=c;7j`t9-Zmp7w3_z2*C}AMfYn=ixWVFW&DHzv+G({C4{t@H_5z&F|NK
z<NHnQx1itJe&6)l+wWSxwtkQLz4Z6>AK;(iKiYq?|3d#S{lD@*>3_-pQGii^U4SYe
zAV3I+4frr%QNXHz4FRVEngi|!JPY_U&>+w`&@-@K;E2G{fyIGS0~ZCZ3fvI5E%4jG
zhQO17Hv;blJ_-Cih!5%!WE0doNEH+iBm~8>EFL7rYXb|fDC}AyukXU}6ch71?PV=p
z+XHC3^1cLyg}(rv;*yx@%*C^so!E!Kv3Oh=>R}C~5J<LwfDp+9f>9@BHS;GP81e>d
ztcyS!<_YDfVo*F@eHlD{gqOfjg)vPPMo7tcx|(Py#*!<MLSdJdm4NO11Mu|p3d)U8
zuXj)Hr^~xqSJ5e{qD%i}V8C>s_*dXhYkdVV*jldV<EKlJmn`;|vhcJMzNWBK%OzcP
zF9s3&`(LQft3@mx-iE92ISXh6gkVgu6Hrcj;RGz8y+9#0`h+*8vC$`BAq%Jmg=jXK
z|7Rye9k4vr9O+%P&Icat>4drSI_>p0)Z1+y=8<b2-XYUpbFnAHAcZ-!{d%k$wwIi3
z&SIgx2X2}W{?Q3LI^hcn(e|Xa8O$RpY$n#)9s9x#?bjXq(}Q`@313mVIcnSk{O|-l
z_RO<xrU$)eBc&T0#5413XV2mWj$X4sMB7&YF$hV|_CT$~-MpXn=xXn0z`av5p2vKn
zQKys{q$cV*-KjLdsS_#Gxym|orgioFr(M|8E^JCyZIg*#V;_3Md(?Oo(uR-jlpWbs
zY7(~RDb-<OXWqmvId}-UQ#-s<)~U<KourSu@=DNy;4dB?A55W^IS9qbgJ}$#3{q@R
zMiH$~j96ipKacH{G#0QIf5yInanzq?Kmm)d5MUZ1`qK;;&%!UA5O>-%{SdGxKBB%;
z0w1z~t(y&_(We04Yfw^qtswHynO0zr8lbhwHI_xSuouVB5(i=QKkY;%`avYs4I#Gs
zciIOZbV~T3%U+|XM8NkeI68XkA(z&B5b|lg^^ixUAf1k8({A1eGrO#o(;1oIU^e>C
z@91q7#Cu6y2S;{V25(0q#R$jq2;?wA)kk0sg>OpN4@aIqvDD*(nd~csSO=AY>8`ql
z0sprjVEe&)C~b{545jV$h9R^@gk65|K55mvKGdnzgwC=<h))n<@ZR60N!`ZqIHOAr
zo{nRIbPK%k>vU|d-s6HhM^aj+<TU8fiKV{bV4q=|Iv|DW*#UmE1c6i}Bs1s;cqMg?
zu0)134=|q?l0Xv2JHVIf43L13#DN5i-UP<uAGzY+#M{SlUHu!|8Tn(W@0%Duer$o-
znc#agG03AYr_=*n8jv}qJEo#=r2nap0-doolIji+(K)9?P+n8Co2JVz!n^D>2z^yA
zG>pb}z}SRS171R>wFCwS2Tga*I5dU%oo#@}YU)vhY(~7dCsHuJ0bIZ(#v9E;J4=Oj
zQ3iHW2GV{NgJkvq;sN5>l8`Q*{+&GiyYvml_7d3uL8!L{T!jFtr#CLA;V+t|yvFDl
z{;1b;e6<FkAC}QWS`-&OqJQgQl7l_hRkx3x72ke((}upC6udP`ZPtNrM-j{b%i*&;
zDscubr_hrzvd+dgZb&?!5ZwnMEj1gIbOak(z&TIkppe?U9z2o55XYT@$|W;~2eI-i
z6F6ut$2m;zW$sii-U%clu&4JyS279+?Cdc-hCyq>JAPDm((>M&y5n&y!rcw(WnEm(
zU6>T@LKqK&6XC+kk&a4)l!wFu2gJz4;f*g0@rdc?wZG>vvRbi4zt^u?I#)5IR_az(
zU3KBhBcuYndZ7pW`4@WpQwyw>!mhlYl%LdL-bFL(!X&gcB+}vB*QsguuKptJCRevE
zev>ZDxC=At!VJ5x&fB(FR@_D7yD+W`6Ln#17lx;cXszU@ze9hyS~{RIG(I#qR5KtT
z?dd@1Z$2<7b$99!VM=_T2#IEv#%@q_?B;}TGe!+LoAN>Ov*caLE8fotyPNTP$g~t~
zsw{3%^wPMG6B{zRWq71N(fCJIrcVm<OurL#VDQ3J+qA4y$NrHqUng{gS4Vcd-)G3S
z)IQNi!mPqvV|?G+9QRRl$I!v?(Q!vppCoLJ&kmg&(`V3$=>2h1`uBS;HfDazhM20D
zu|s}LmB$ZB?UfufXl4A0lt&rUlVcO6M(z(A9XCt8IN@Q`f(X}$L6Mcw&2ghr+6Qlq
zPgOrmTa~UF?4rJ(`g=xpMr5qR;8pRNgFYHGCFRqEzhXR+CJw%lHY~C#@{7m~>9+43
zjy|1qI^HjJQJTej_tPT60y3)7HYayWR%RT_@QTYCe0T7ZxCKd1!!IRghHeTSpDx5F
z3|aMlO2Q8*%MyM{E=|4KWzheCsBzXHS2)h;u^xK-?ca>cZ>JKMzMUd?)R+IH{GAq_
zgc<&w`tPxr#J}?gEr`eII%5(>{@#(>2wmOvU?O7E-+XU$CzOnYzv=&Pu;fm6i_`o+
zC}pWR1nmRX!p{R2z%L=6!h->G;bH7ncogdgk3;@|C&CVRI=~E`X-+^#$Y}T#Uq1Y8
z0G<ttFoGAFoA44Je!Plphu?)J_(S~>{28Z(zhcM1Ymw4RX29lIG%On<d<K@93LW<h
zEb|aN1uItsPrzD-;5FD-HCY?}imy3UPb_1=X7;{3VGaSMh7Z7|xk5*X&6nK}*t)H`
zBKrYs`(nB0U>j7`Mu<e_Uts&e-c;EMupN!5-@&$ct4?+SY)hYH2y?-9_t8dS9@yU7
z9W8qdw(Tp4OxyO=JONK>4dh@1O})^`s=>CSeYD{du#;5ignMAui?Z0E)`ri(E@+jh
z@PGh`Fdyt@H)w=k5xmeDJ_kE&5lXSErU2im)zvc#?3?OL1$^_U`D>l97{N{rve;kQ
zOF_$SjnD=T5ywb5hlsXR+0Wn*^EFMyT^NJq9OCzlHhc&U$xX8iAAv*amKFludlF-a
zoOqC5z}JD?*7LFo0*qzfAo$5uC<jNyPu)?bqt|Iy;UqZXv2&90TW?LlW1WDUc=$tB
z500~MxC#pq+$PmJF55~um!Tz=0y#2Hh-+z!9Pga=5}t!&dlfG<0y*wS@*e7CKKv?A
zn1ZRDdu98<v7;eXR)^qhyQ~$QV!u9*oKA6Q&(FarxuKe*QrGG5Jr<{oJ?CXj2u|sQ
zMF>tu%QoQ)*Vv7}BDk}Ra5kdle*x+Fbth#@K-$z6gG6cb>0}CSHVSt^dgZnbjpdxs
z*n~vqO^wGWIO{6>jHw^mWjheu(g<6@xf<KP9-Oyd)L|Q(w>OhEIPW?^I>&jJp15y4
zFZ=?|``R=l?^IR0Yy-&L&>;9ukD@A1SVBOXuoPro$J&HtAoD}f%Rv_WlL8CK7HlI*
z$UZ+zOeb54eY6$9#b#jz$d>(-g0;(5QG3d&P{B%&Rb3{{l&!9ABLE+|Qb21bPlHLS
zLraBqte;0y8z@W1PrR@a^B&(pV(-W;gr#>n72P`nRjPvCXh>ldxS(TN|7q)TVby$W
zw95swbrrZqY$OH9V{{4{NJXwO7j?2{;2L|lMOY24L)JeOHX*2fN%Dr=>A>QyM@}r0
z9S7G_D0&Tox<Hb52~%r<oRuM|E7g(07YHu42({pP4Nb5U+?K6Y2wwv^@qsLE6*p%S
zP=$JK0en}VDCl-)1L;(^hhMqMv<S}d!j}jhXs~bHI<RxJ;GSAfDsmq}y;Y74^ZCnB
zj@?f{3o5Z5JWhS9lI;RT%=PoKBlukQZliD&6opm4$bJLG#OgL-BY18)-h>VF+)}-l
z>i|zYBP{5^bJvaTSdr)MBP&q}&%OJ`p=QeFt@CATL3yPu6^FelW}^<<po%%H6E1@)
zd2=u1R1K@p$$kXY$u^yAC#X(+>xz*<g^%ZjuRw**(}ijTJ2MC;zS1wd1*$8%hzV3T
zP~GD|PBmc4%Z<9Cmlrnk5s;Vs2~qDvUQ1BQ6YyH1i<W(b;K&+uDX)q(&4i_bcB5A%
z4w9$fRf(J{!K><~N_Gvr?i|+;mUirbXMi73&>8*#eXzr^`@PY07-_w)T<}5`@0-X{
z2Ypjoi7tJK+uVh|q~pE@AB+>Ir_aDkdoa&u7Uum1KB$uHAp%{h>=^h|((drNvxb!O
zxpTTjb_IOeR~rjQ5LD;Mz5^c&s#x5&`MiZ}CHP%9P7LBl%=0yZ%{-?1={>Sv@?oN2
zzvLscgl!1WAlsoIej$N-0R0-Vb|fB0mCoVE3VtXj<w(Cbf<Lj+T?BL>_%ES>%zruN
zU59`;jCD64AOl7Jg5b6e`zVl@;8O@%R;R$&6CAmx9o;QBrTPUrSa2Q=nO8Q!A5=}m
z7!v%!zA=PlEDnnu5InxU9g7DSyx1>mfZ*clHrYi8F0FovDg~GBRgiL}m!f2AFm>mZ
zY$F6u)RC?Vo_IEef^$^#<m!o7dw;${7yid<a^6yQ9{Rh|;oHCDW+QTj97P3BLWq7E
z47qZN*lfUim2+eVV8F0yg={f|rd%Y0OBhbe2{`8nH6Re@s|Ddot4`PjVQ#B~v0PX_
z4(&<=&0>-ovt_@m1Hwu$*6l`cTPNF#pluiCg%i8fLHN;XSCTreBh`jqs^et`Asi<#
z*?j^sWG5l~>S<HqUl4w?oj8#ug3er;2#hc5Fhw=fMBwoK7BsO~Lo;Yjpy+ncoWu?|
zPd<m?D(oSE#1Qf>Aq8zD2#}*udT>%W02(s>_JZbS)qUA&ATL|hGy5WNc0xTPR-!X3
zhKM!QZNhgD8F}LvdR^49-S1)Xs56^+SrtT`LzeG>yfH<H7_11usIh(@Ltca;sg`w{
z^?=My(HhDU9YOs%IvLeH0MW-cDP)%*X316?;R3|0Mw#^xoAQN1I1I5Fx(qaVY$MKG
zzd-DjYEP6Bhlccd?G)Gi!y4I75O;0wY}s;%N6|jN_ll3%L}m+eI#+fU;?pr^orCye
zyETM(Z1)fX@DM8jO~|qv5@w<3M?gLSf-(_QqZ9=DeO_6Rcjk~Y5m_*m^kOgRj^w-w
zUALF*$zw4xbU^Z0G|$(Ne4aKe1@jDFLduv5oy%`qQYN0GsZED<vPMX$#{N5s;53;L
zQZW`-zpzdnb6scn8>D`}GZl$x=w}o(G|5&#+VLZENea)!5^&}$shymE(gV`BX_sET
zl6?zl&8tjFiVWDx2-cCnlGf5j94tMRYL=e5j`UGF2|<?;{IG<iu)ged#}M40sk^km
ziFF#;mymwqhB3}@>E{nOlf3gyq}ueRdY$Yhq+>;x8tk@CgJYAN<D#iEJOy;R9*h&a
za1ire5}AX8cMz2Z2k+DgCt&bm?BbI!cnL1ymcZbu>pI~S48DT}PQ&1KoPE#2;Er`M
z7!ET?%sK=aWHg?EjEtXRFhXYx*`-644APWykkMR~fHe%!VQLzX1KV2W^w0$KtZ6Xp
z3{HdRVHlZ3cO$@RFF<Alnx_fDMxAgGGNZOyYngv#M&o4j05X%eT*28eGi4R&qs)}1
zF&OzW(^oa4@|o!vSS}$r+K8*)%=9*5&rF;!ao{0n7RnIZsT8I|CXPSZWyr)cWrXEg
zbsK`=IJhV{M65J?$zh$)0OT!8OpS;{1urAO#n4e0fjx$8ABipU`O|)+-Y3WjGUOcD
zynZ<WWD1!9BY!~7`#?@ZBQeY3hDMkPSyo#v2!A5jw^wLJaG@{Bv%1%Yw$9R^%$HW=
zR52k&93{GB>DS3w5jRYQ{g4%PVYI9T0S4m-_?;cBp&9{(1O&-65|P8`vNMpCiWWpp
z(hrXyYiRXESuJF3YS7@ifV`VQMB{pp0<=;UWbOLdm1u_Vj}qcOBx1Q!yL33vvre5l
zkBi`}^A9p)%OI<%Mj_h_S)}8>ge-J7p#rjQ;DD`xteY#J$bN-v<3<vRvb!H6-I(3|
zBAJh}9jRlIgSI4(_+Tw$E2>E!W#c>2=+N0-I*o7*$ZH~mCE|#y>^T7n*(n6K$c&dA
zbHr7+0oiHTlpi2Ff1j%i%YC#hj}UR;$-RQ?DhwBY+9Rk&dm`BH^TINF(_PZA?Cn?_
zg>A?2eiO34UEL_OLiSZ$?`}o#)d=Ah<e-A686IzJ!vYBI>A?#<_=5u6V*H4C*r|00
zZuZ3;5qV94=3&Erf*fp^><$8K`)>&7N+-u_y)j|&JFQv&gdqnNNh+XfoU9$eK4alF
z<OE|=&LOxlP__qhB9CX_%$$>6-6l*W;4TH12g<fVPR8Yjq}o~NHZLr5W*_mx?#THZ
zP2Ps!^eh2uzwpHptReSkqlN%7Bix1D^XM=4A@@p~M%Vy(WE9^6@^%@rkPkBvfZI9l
zPXwoQ+zZItPPNWMo5`+Y>V~WAD&+0@Su8sYdEYk089pXp7A`XKzWvz-tIZ=b-UA?K
zkclun-7I^A0Be5;c}+Nu4naO@ZTK4UE9pd(zY=HdUm(8<NB?CYZxXM6%8ZIbDTiPb
z*(N=L4{*d;|86%X|E?RZ>&A?(Zo^F>f@cJbU2Q{%V=s6Jk73M*7Z#IL;dzPh6vmX|
zdj1NGnYdR&h*S0^%htmfy|526zE~;Dh7U7tT@+?P0TO-wa3~<_tTre(gCn2=3W&{q
zg#u!;-w@ETiJ#XZ4I?LJ2_WPBITS`<sC)s1(K|`pElj{@`V#OHTSR6d8HTT*5Uq<#
z@WM@Zc>=1@d#a&OA43YUT3H(uHX-Nl2sY}3KM?4eWVaEVIz@>1+NI%NP=u>rEpxZ1
z0+*rppr{g~{?|}+=Q5eYKe_q35rcRsHidf#r8py?1t*d&{u9BGHL~wv;t<Sx4ESj>
zooqWyK~8Murzl1E3#L8YDM2ZK|F!8S?@r5w90nS8-VJ4xdW_^G;@{l^0OJwv!M{Pc
zP}<7$!>m0Z%o~>=%zYZuYUh3S!#S{{p>m#|uiBWkOszG%Rp6>>>YD*7YpdXKD>SwI
zueL8i&TX?D-C6_CuzX&hDZXjR5;15&UCY17Juhc$-~VYKif|Z_T-$>!_|SHwO*2z%
z<9bXd%>5;i%8qVz@;;jYJCKl!1m%L*RuAv9^XB}Fq<L%9!kk~!wPt>Cdvc9GuI??3
zR`WrMzTm=H52`P?<_UPeq6V;7imzIb<f>b(yw9dwh8+NUHBg&w(69&!C!P=_b*aV&
z9M9JFV6saXD;o)9uh3A{qFeh6{vMku%=5#l=I2_;&vUnw{fjE|v=J5f?E!Hv)4%sz
z(n4Yj_(hO}X1c{n-mB$g5Xc!s%vCeiQt~>uH|0x~nBw=v0Cv}!kNGfzO^BCvlUmIx
z;QD3A_ly+7=)oP1im30v+4U6QYZG$bubLU-DRrvvrIDI=yoYzJYkIj#w~3Bq268|4
zaTA7sOE0Z|)d;5BSG}asO=A@!8S841v22+;WAB_Z-%i@&WxwW8^*(p-7!ZD#U|26j
ztAEuncS(~AW6_=?^?HcseN%=t!8EbJwkJwsmU%YVFH4<O!uhXZ-*?s;JNtQYrYQ<=
zagSS}L*tYN+J4IH(x|&>u#@Hmr;z4op}v-X9<(r5G`B{WdrvLQ>#pvi{}@G@!30W;
zos(QWx7g+5cN|*sQZfR$TV5sX7!N7mZ>-ez)4c8RWn!<}HT3zHAlaNpdu@bx!{!*$
zYrY#`2i88ae|EJqzGf09#gSU0@7Pwmr0*|Fh!WVv^<7;o%u7*YiAn7?(zNrj{4pIg
zY@Sng1C{fFLA7R$Ib)b=+xsAQXbB$2E<@W(5~IQtBYQhn7dClY#A|YJgWESF?o1@p
zEzzJsGOU|x4p@saGxOV{H5akzit)8(AH}1`SsQ3lT{F1xW75H^zjHUYln>-0f3Kkl
zsuM1~3pLq&MQ#yTyD)EMe63kUvNWa=KMb%7M?-jzOh6gcrM-Jd64pS9{~B;n#e|ct
z;R5$WS&wN47nAAaQvn~UjoS+L!{=6Zas!W4QEx-@$;O&2`#EE!x##4j^5$H=U_YzK
z?P(XBsYZ$+FZ90nfxB5_wmK(6&W`vz!nvClM&}w~-l!3^J;fiY$%p??z`T^a9BD*_
znsJNaifr>}ho;u{bQ9FphN&4@YX0!l)D;?GUe<fHlB@Z%3Nuo@oUcSN{w28#H08{{
zjsh)))|y#Ft5Z6KaWf<_`5hlT@#HV+u!#$BJdCI{tBDcp7p9iEm2u05FHbdwQX9jR
zbj=k%5w{z@$L8Af8!qzGkimP{x-`o)WeG@wCo1{|%}<od+ObhXMDsJ%2GiM9{W3)O
zK0ME`#-$y$_bq4rfoA<U56#NHvUfy{la=n`7rD*&P5|Tf%HCYgh$>UYiDth*Mc>b;
z?YS_?D2b5_Gu<8jL-06=z;L@8UC7)n2i+mNFEc-vDR7lukuw1c?WC0A$4wmb*t3xs
z#&W3MFa~xi?zSf4Lv^&;Q0T4dPrKG3qgH~Sycp)_>1=9-4RnpE%F~fj&S)O1RD4&M
zJDwV;(G(KgxreRHnApyPsAMONI_C-8i~<+eA&TGS-EZ#}<|&hF&AqS_OjD(USK0Z|
zI5a|)fg!ROzp(hB+GiDXTA9?*A2oYROjt>QeK)n~*U3#gP*iLpMn@<$oXwafAKQY2
zw47S=#dZz$rCwF>((a0wy``q|<B(`=o!=2()-Pg&D-k((RBaEV)W}?M;vtR27!Ni=
zP;>K=#EC8a(6Uik(300OT0uNx61t12tugnBU64l2HK+6?#3>_c&9`~ZO5zHu<LvG5
z#X371kyo^un`5W)a3w=$dT0B3O;)93nZ~a`(gGYDCBww5Uy6=!e29^DSAn_hr>xt=
zjFC)l34c6!2owgS*p7^k*|@ti)~XvSC5N_;64rA$wOopw4XF4A#xLa$yN2$s67WrI
z@v0Op@17czqB*8R)_uFNz<O4suH_=-7eG}Q-8UM%IM%{1>$se8@9v6hR5H#MHC(#w
zm`LCw<yZ4gj*;SLR)&Dw_9d6)(hipfw>uxni^fnaHNWbS3L*V6n2s^eJnO{_Eb~+;
z{z!SUv8JvoEH!k6B%D2ciOvP%QH5k14@E0qW1|3hQH4uy?%;606l*3w_(`ets0{Z;
zR0ZcZ7$0VCnAI9O!X4uq&M4{OO>(2)Jy2BG<O}>2+u%IZ8Ck~Hav^qOparCZ-Qv|^
zMnql+l;)-8y7#n*j!&K5t<<f`NoxEI2XHjb%v8>vkyf6;!^gNVE=B%J<py@fr0;@D
z2ALaX*7mR-vpdz8!7rDJFsgCl;9ET`qKA=~j}v!FOhL9Non5VH<+jO>lTyAA)~RCz
zDpQYtnYEJh;i8f1yyS33l4^X*FN+9+uw0x~-&Aj6+v>AS-rF|8XBKg~*im8TM(CZl
zhgH(Q=fm+I+d9k&|A1`;7>2Xv^%~R<oemuyTdGN822{jr&gp8+71(^*cw4`C!M;zz
zD(J|o#%~=trlQh-whSJFYQ@%?`=#LO5KHjCba#%D7B;!`jvtC0;V!qvt~_PaMB6iY
zkU1BR{L!`iAN^Xk)P$MyiL_Gkj?`EM&V*b_stt}S8?xHqH*oBT*(2=<r!a43{UCFL
zPtct+F`zKW&E-d*N^<8P^tVa*i@R+*nmGwB2B$ow2Ge6z{h4kqh3CT!<Tfd2gwAH@
zD}nPVV^(NDnA2Q}A-F_4_lPjpflh`B2eKYItj7<-o?7z~E@$LGlbP99`zu5^8R2JJ
zU5T`k0uhIcin#8Hip(Jx6>a>h`tDt!5$T_zVeIowQAd<*{s3p$+`3we2Kj!AhElL>
zg<Y1jlE6w=f={`kYA8+fSQk-N2g7iU1mShHdI|VjW6@?EVl~TJfv-z}l_seU_yQu~
zdy9q=z`p|)ZT8<;X<-wuDcEFCkDor}lXk6`RoheL*_hqV%nbM8dWB!f%RsYB4neH(
zcBit4x5V$qD)^*L2D+rp77Ycco}38ZXE|#eaIHj9*!7<)5G4Cxtnpr(vi!HC>9yYf
z?<$wpShZ5s_@vEUP3z*e?<85xqD}dpG}W@qa@HGq<*bI~k_GdY92F#UV3{CU5^KtQ
zVJhOvL537etTh#}<<LuzEWpGXQxQ`RhNjGyrXtaDc6==hSqy|eufruIK$&j*S{AlJ
zojyqkYea-lW7ReVtkm#r89#nCq0|6h@*TE*lfkTlO}zR|$y(s82UyOs9sv9Y*aKUz
z-zGxxn;v6OY0Sr7;tMt-m)f!nYOt3{-|Qz1BPNDT23jH<IYThd-J)UKW{WnOhvu<p
z=s=mdFuIlt%g5nlw5s0~E1mtjhU1g=qk+04b8XfGi6q)(e9}M7tmod0t$R}fKi!2!
zM*UXI5+vC$@$I^_*l4PmH925|n3e8t3|rEOx}Z_eIOxs#{1WQLdMe@8OF$3*&QgPA
zsf?2EsGKf5YSWy?4Q04-!4I+afate1z}8yLN}~2c9ntrRt*Cu=z3G&<{C$%lj~_H`
zD8(_bav)tp=T%4HS{b8~IYbGPQrzUE2iuX|l%(Y2WB5Dalhj(iILY3wp7%%+aZD1~
zj4YQF7K|sk9~I&B_$o(Qkj?m!HKL@M%<LYx#VMkaY~PWTSSx;(iopi(gBB}@r@ken
z2h-ONvcQi-cEI9U!aN~Uzn{W|(%A0tWjH#U)U32!BvxgRiCW01H7dfTzJc7>uDhbO
zu*EMduR2Rj-qf@Sgyz)LjbvHw>o;V*1W=j&ml<5R^I79UI3o`UiLFvK4W!nFHeXqm
zSvC4qgNK9Kb5n2Ea|h5Keri-Oa-e1??w-i9!!UyN%Vng=+z|*;H7mB?t`Q_rBi>{R
zy)1HZbCv%p0iQ|)DFA1@+gQCs9WKz_m%-@%Ho@aYU-3JtQ9IS=|AnhQ53=43^yUo6
zYw$U#no|K7DRI_cE=dU&&SU3fmxxqB63@WS{U7dbF;)dh6s_a~I-|gFndg{cWED<m
zZO3#Zmf{{+m~-|$VeZ*<<V`ge;WxBLiZfHKY*5H7%!*Pmqj1Qpn0!+fwCq(}8v9$s
ze9-FYRm!j;t*BlQoyF(dR(g8UyL6%KW?BvB>>XJ3X=@*^JuKi&wH32!KGRf})xi6*
zWqpQtINR?fJF~YKEN9)u?}w0pLax?6fkzq9AQ6+A$lyJ6Fypk`F$_bh;hZxgir2D7
zRC9*!RLvc}Q_Bvk;X+cA-Ee21YH|^uZS1U5gj?LzXR)Q)Wk;7UEeC0*N?FXDnAXtX
zLr@L|2%9k~p|94NR^Tq1?&Y+TE@{h;)|BZsFVHT0OyI(DkZYMsi4(+Z;sgU|_2}11
zILpC2ae^U|jJilvO6P3V>hATJVMMo9ix_q*ez=abi?j@>Z-~5}Mt;*)?Glx&s^qdb
z(U9~?aV0h}eWiFMlK5Mzd6wDACvq5ffeGKrrEy}e{B?7ewX`dan67}G+KOZM4pidT
zp6(sMa=@TSHj7~+mYZ+o$So2r+(m0*?`g`xAzj44t<`8;H1fGbJg3!)H&C?DXv#5Z
zjF>5ZeH3*K9T5zzBCk6`@4S8uw<^(bNNTv~?Nnydo75@?({CBmvYV>qWu}ry)ntk3
z6o`>HoZ9wzU0rJ^M!vd)GT+wF{{2vJp8_a<z0TzC_P>ppa$w4XsUg!E+IM(`wqnM|
z<MXqb@uRX?EgN<30M1OlgIH#WN<2!-L?LH6h!gV}Y&PcD3}ToRQ$tXR^AkrA8ctpO
zy=ja}1X?~uV3-KPD$H9I*Xl`b%NUe1ty&T6Ncs%$1Sc{<LTew)Ffg5iXVx3F-=@~^
zFH_1~n$?WE@s^spa%QKNFN=@iE%IV`n_D$>8)cE6S|+XLYakyzskM*V4z)MH;<J(M
zLJbBJuWmSK>nN?LhR5i}ANs6DpU$ok9~{>-nS90GBXI&_tetc+5kG0Z8CzwRWXzf*
z8H=FR)2|$DRkLE2zKj=sWZZNa={k++GR745Z=49S1}y~$#bK7URCKf^RaM<ull15-
z8(}HaSktP*JK^9Gotk$sKDtbYv|}|@?P!^rI=%+)MPY2OD~D#SF*McSEr_0}Wrdq^
zMgHxo3|x`goFke0w1&sWkK&Bb*yHm#BdsAi8z#`gylM{6Bu|q@s<{{!9nr~3P(c_k
z7@dv80r)x-7lrR@=QiUo!mre01jDzks-pAf%xx@xEeKgm9_D9lFoK4yP$oHnNDNqo
z%43Y!1HBt6jn-|@l)tt`wq)FH#^)QA9nYUqh9wOIqX&`IQ_6v>Hma%Ani?~$3evB0
z4Fm&r;Qex75uU+WF&U2>wtfj>1B_YXRVFP6j12e-!n{h<)I_ypo@((N)uOq`9cwxj
zjnCt+w&J@9$j88(?>;2_Vq;DDpE>BgJq*hK9BS~k&jRk{=BdPUR0eY!#y$|S!?Pw!
zuA(hV1JRO<M3EV*cpf}XgnQ$<)vUli(5Tocf(U_VifSICn!{@6oD=3gIE9{hOf_W=
zjvm!qQN!4?bLJ+shI%Pz{Hs8<W~taYD$(5JGHlHOKyqU_6#m^jMo$?r{(I){{A8`@
zT(an`0%|RLLts|5;43v+Xu{uQJbT_HPNroqV(z(Q_N^kO<G*_&@u0x5SFp+~n4`f_
z@^|H8PBjmmL9Ci<u$BA!Sm#@2di|O=F+zJA-`YIE1S7yR)6w|le7LoFR5t$Plb^h7
z&=#iR9C8*z3ChNg<l~}7qMh2LVy0?`MP@B88&pSo$O#!t3rYQNc!mwC!)4P8-R*Ba
zot89>nW3GLT+_qAqm0{adp{-bqONYIil1RR9ZZYBGz;%xKopiQXC9BA#$afPYwhD(
zN08}f8Wyp!c;A@27jrt14H;SvwuEAqrsa}vRZf6=_`?9rYM6=ikoaSmA2KwD{w8P(
zj}f`(LWPWW#*s9Jo%-WyR0jh>tE<m3RwBY6T!uFcIrt5R3p`U6B=ER+;C_38yfA(m
z7&Md_5V0XcBf@xgsJ8GFGDI~jG6)%ZW)RPgX_#pck{0r>Y?WBliN=wVw>C_JSTkgp
z-jg=WidLs4G5>{@o1o%w;+X*Chbg|bx){G=hK16AH7b~91V64W#)J_*K9~k1A;K1%
zq5=#71>`oAu_0BOJ0aQ4t?t+eDY{NP#mW#Xn`0`1LHLZZvjJpuYYwGoMTuR-&{3yq
zMR&C`E_CtCL~TRj)53~a$VR1Dq8ZtEqzgsth?*WIsi`hDDP>Xk1?AM#kxXEg2tR=q
zkK6vboy&__6+YJ(5zA<q`Y?QCMGfvw_2Ez-tW46{$8R?SI}ubOP#LmVFH`=Pu~vM_
zblxiBrv>62rUjs#bhI_pk4$%d7qMu4Yp8#n9tJ(p!{9&ycK}aa8NWM2-ZtR)Q9P?2
zB;p#Pc@dw*iw-a63K$OdVDx_L!ikq$=|%Wl8(2=uUh`u){?^tBJe$Vj9K01fgenHy
za&*|p6-5hPzxESzJn5Sf><Yq)K7o%t%5b|Gk{z-oaXeDeaJ59U(2WP9B;&XEjR9p~
z5$ra-QzJ6Hmv%-JPK-GCI_+=RFjExruaLATQ=ISNPm;p^O=(zUhzC+1u9%_MstxI+
zm(CK~iVQ&uKWGhxE}!vlRi>l9TY+*>kBBF}Ba)I3b3toJiyM**?3yK7@#uz`h6AUn
z+ioEwO0*DpL@_kdn`RrsR>o9}8fQ_dQY;LEDcae^(OU7(G)?ZN$5Bj;SaUi<RxxkJ
zL)r{>2CjH$Hqrk-_=b@P=Vsd8ziPmMc39WX8@ndqiTJ;9kqDP#nsV?d_*BFRTyU&P
z%+sZa{h>v?yQDsh3sw)}`ltu<#s=w}H<TCvzg$%Q`Xr7~W>6Y3iSE^F#VuiC!{{_|
zH!)7DgTz+#gT*0Gf)1t{&o3C1W{69xcP`UOkcj@G6`e>d0mu@88b?ZfVu=_8VDb|u
zuxw%pt`b>j)Us+a(cW5(d1TRw2(CzASz?JH;T^5#<^I8I_=eXAV<Zm5Ty1IDNTG;1
zVp<A2Q67h)_$-c3(TY#vxSB#bM@{my;<Q8#43Z2ud|yf$r4k$9id&y5!`Ns*{Az>2
zCz?CzH^q$7I1X2_yLiSZ!gM0DV|)o63=GZ+4{^+>W|pLt;*6v44<N6g5w*$cw1~yp
zcF=V?ha;lkQx@6|z;d?y_0u;i?9K%YXP<JvY%g{gTQZFW>^zYk>Q_^^8n3aUYqCN>
zqweTjonu+wA$S+QB2!xF`rnq7k{xIrMjcZ6zgWj&R~c#zhoaEF_~6CbPH`8!x=FKA
z^HQDh7GT}Zey<H-`~hH+7-0PvhCs3g73CC>C3<X_h`FjQ%D|p7&>Eab!nJx9zIv?U
zaj^EmlnG`)mI>qtA~p{D2#t<8y^<IfbFgDga68+_e<5yXIhGlz<#V-S^n6FuW-__s
z=4|~|I89>=amhbj%eN=-BI6{UH%Y?SgvMWHY(f?pO=N~<Zmk~0a6~2#d$i*ABr#{4
zBo><_iE;PvHY+aHZ>`SPvx;GlU|5}wwR+<dm|-H$a`ceAi>GSpcD8!<)A3@cA-6{H
zNy{4BiMRkRVT`m!F*W22KsmT2;f$n(*hC}!de}0_2-m|#UF+c=D@nfic&k;vCb0qb
z1f%7T6UA{bQKkCeSLATjjHagj`}*~*%{kfVS`&B?S%q{TKS6{sv;=3m*N<=@MYme{
z2N)VbSP_FV{R2>@mN`!hkD~{pNo9$c*`a0Ylkjymq+tB5EHPwu==WjRcjG58+<5Gi
zRz<&74&8Cj+wUpRc>uR#4P+<Fp^7|iEpc1MH!R{q;-hfiRSp3-th5GET2W)oXFN_z
zn|T~Xn2#TG!sR4g=9*#u8YVG%8=!oQk7*d~%3p87xQQ3ZD)<!V8<3Kbf!v5PEFq`i
zI3ha<<ikxlUO0844%nfS7<MzegC{ioHGU?xWG2gxM{|*YjB5la$suzQj#3=|L;gbs
z3p;R~iBSNuK7lBdI$8uIMKIjo($Ri|)=LVbL^hozLp}!>>=v}>)|_k>zx%7#AaOs&
zdK|Q_tf+qce!BAw{go6L|9>&|F7QoN>E7_#J3DC`n$jD#Neia8kftP3EJBMw0&Uuc
zUelHqX`$&AS|}G8Ena5gIYKJd8@F=%&KoWTEdv9)^@!pbQ%A0XBUA@)oUte}T4xxY
z@w{H%`RV(A)=n#qbH4AZKS}n^-fOSDF3)<N|MP#Ig&(l95+uaqm@pwv9DYJ+f86E}
z?#$i&m34(+T`68a)YO2*XvRPj-jj{!R<Kn#0m)}CZ4xB8=agS{k=|SdOG}3FhEpG(
zJS^e5<0u=V4vNKxWsj>@a*N+GBSv7YC@8Rs^iy^gxBj`c73M!K8!UTVgUf&d@XK0$
zxNH!1D?O7YA}&8hA1y7%##R_UCWyDtpww4cQc_k4l4dv~=MhaaiaOQJbXXhFJWWiq
zO}z~=^F4fTP+LQqtWCn<5Co_F(;swOYrSAyib7G_>xWbgM3D%=;9H2n_sMI(d11Dx
zhVPm&Ky3-@Ka^C<T@^ZypsfDa`IutwLAj(wy5Xm{p((6V^Yueg1BS9pN@zpg&2|1Z
zlp!i*{69(=+pX;z{^jld(7|rjNq1uT_l&9m|LRiaK2D1_))w9zxxsrdgR^OA`ON~q
zXSL3Qx3ZAR5n>cIe$89{wguKUjdd9oq8NVKO9SDowLQeTftupif1~<YLqfa1`vmfZ
zM%3+pR`p7BizeSA4f@-E=5PBOm9flAWxQ!^U#4rrYfs|mxHdn86W0$35PUs?@K<Yx
z>X^U1&EM7vgY_f-ih2kQ8GMnT#8qvqkDe6|Y%fr<izFc~%JZ+xzgW8R`|qtA1%C+E
z*6h1Tj3xPBIzOD2y*)D0$mrASwKI=*8$Y)V-%&;OGp3R9Q9`${FyABI@0UJzNWzUj
zy(V!!499rnxHsUeuXtQdXj&g2>)wC#p5)c-7Lw*m!bQKt{%i0VJl^}C{G-OYQf&>D
zl;TOx#B;j8U*?zctWv1I{c9M*F3;WP@R2hmwyhF=#8m==<o=*M4C3!sEDYa==+R;P
zDY|xs_JQd9+~59}Vav>~HCVhoLTkY%zkuQccqY`^$*d2wSs!eNEbm1>K$ds26u&qu
zj}ILK_e9IOw$2|dp-REWQT=j%h!?n^cOIH&NRCUXpAw>yRG|YsX}~V5{+He#PRRc7
zx8VCf)o$%>vp%^@xmCA}9lIUi88|ssWPvUO*1|ee9H-D8qdJ1pP3=!v+q&uH*ygXq
z*Zm>}W7KeZ_AwDHyjK)o@BaQTXgz3ZuHgyU+rP%y+YY}99y(NjqXc1z^3203^$#P^
zsur;_zO3^<l;>Z6o>0hkfLk6_Yw_>|zS?1QXz44~D<%`HUg*4#vQ1c}f^>Ua-6uIj
zu^dL@DS3OdEMkYlZWcCQ6!YZAo1qTOz1qLM_a|}#H59EOE8US%sP{()RJ3wPt5s?e
zMxUXN{p{RuM)rsJmZp~Ge&UXd#C6_<xDd%@`NhzH7ph^wLWq0X*@N_*RvkM2Xz{IZ
z7LEU_m^!qy9c#&MRG_q-7S~WLOz0lyeE?;t>{n^zd6;M)ofFiE-=Nj3D?{ifKLhOk
zL{{b9cKU&u^TgOHuufF5)|CvjtL$UKM*PycQVbqo;cH!~awxxu?8I&Dy-yJAP^8{-
z3o$5th~5}WXYh^j&7op0mk@v2B_uB2C#aiUg5HDg7{M5*<ME5~4PzP003M7~v3mvK
zwWFh>W|i2WsstQ%{jdmRR{7EZ$Qerv7Uk^kTS>A6u#)hj7Sxp8Ry$?v4CafW4j_Gl
zbU!8>><$1((jzUB_q7qLPjX2KfJ0HA3Bz~V4`4lHL3k9F2~?v?`Jz}16udK+qmjTd
z=MF$JG`($UhB)Z{{?O>!3#1i{FQJU;md~KB2vjDmWjI?*b;Q|IIzhzRr)bR4ZP_`;
zpI18s46s+4Wy&^5c_>?%ChtZsP)&d;qe|UG0yv=tC;+D@s>;w`q?TZeC@T4J3?}@+
z_7VJIV4jL8`jQ5BsaA>5Y@zrA@SOYK$H)47^^Z=EzK3qb1gjWnjTBtMgaYowv~jh-
zy0M9mD~~9+xKzdXp--sbY}H13OO{8@hDZ_Wz+tpC^RF)>m7o+~0c^~FumBUX&v$Ip
z8$fHv30gt;b)o-sT^Fu{asaP^a@|<1UBaY*zx{m-ITfEnTvfyH$$6w5je+6dZ~MJl
z7>7v~P$nb&_H0}5w-tkJ!ivG;Ojjr9YFU4@^Jkaa>?^A$?U*$OUU*#{qqC7;WiJpc
zp17QsbG8i2I3@JQ7^<q{e0Arigk^-*z1#dwsrqa$w6r^C)zb_QC@!!QI5T%vJ+DNq
z9bbQk7cBQ_apF9Ez`c9S<%>P-@`Z6~Wfu5`7z(3ww+qHTU;p;Ju{ZS#P&+V)pmx-K
z`U}zj604KLJog-J*0C@2k<yLwc91s0X6X&f%tBP3VR-sE%dYzP#V&&l4!!rYt}(lN
zO=k!Uv)H!f%-lTCt|^|0&!NtgWYd~L;u|J!&RHRV%Je?gQ#c*YE{L3{69s4FS9yJr
zC;dX6zt*weiy0EJRE`^b+~SbV6v&sGNejn#<@(<pd6)%$@hzfQ0w^X|fWt5TwmdQv
z9dP!D3hT(Y;BOd%k<#D-DWY5oUVDu9{!1UgiD>`v%L>Ehdmo4tFq%)mSvM7IL}CuA
z2L;m-G`yNdy7FgTEcjI=<w7()UCp1aTI3QYo+}qZV1gBvV_#6ebmj>3oV|V(E0HyW
z18{aNd<#puFnm|;Lh8QXIfSW~W%ldbYUxbd-*Z;<eB8|v9fGmOf8<?9<Xh$Vsrft@
zG)6<V;p2b6D*)eDH!ENDpWHwH>{xj&;f`WlJF%qLySC@TYoo;vq4?kasCblJ;Xm?r
zu-pU2z9Uei{i@piUbSESJC{1bjh`wO5n%~aMon7w@Ldby_)yy?F#E9O-Ur}P{AbiG
z*e3e~3Ec*D?wm^#fr_eO?m(99hXgq66#(CcVNlgTE$L=%kE8*<g=2?D^5R5}OPch*
zUDCwAl}jNopg(g-(Pxi@oFoqcDnPpA)&0;LSTw$s?30*lIQ`xSpn<c!l7!{^mw5K;
zerb_E)VtoV@&0U|hOyODTMcS^SUY$~(tLoYEW}g1<^He|Jn1~1gu>W7JnB=w`uD>b
zv*B;UnG1L*<QRks+or-AIc%Brg@j_@LB)eBM(cB)il_5R4IV$NWvC98Qo&o?FD0dG
zmcSw0)9Vzz3d|Q-!K(ix-USw+5;^qx=f*yvU%1-SOMX^-i!C+fboTT@;;g$*xNlvQ
z5T&3d<w6)L6u^gwGJwX+P7>KiJve(zV1lgMk=$bz26}J47A3QJYK=J17%|D>#c_=+
zc~0On+7T@j$ztV7;2+Q_=vxgCSvl+~?hK#RRxd;vYlrNDKk%DpqJ)iZxd3Dtc5Y=w
zYjxkp-K?0-+AHOi)t%w)Cw@3TeSXwgw>;&oC36IDPMupnu7>tIKdPxrUbwY(!jdO5
z;xFUw@$y~nNstK>izwhv#&Zuxk))bEgS~?H!`t%je&H`NScIu-u4V})PPCeO*$nDt
zOhA3m+Ofph{Co3jJ$_vJCE6m-FXX;*3?xHHO@8;-t&{cOgBx+HX6jo-|I_VX$ef<o
zlYxtKR@{+yRzCTX9MzIzNu3;h+<es>Xa2InD4lp%Z$X2deB~G}mu`4mEVa0<NuT3_
zOYfCqASDI87Nvyq{yQtWS#;h`G9^lmdZXycs5eqKMW-cpxqnS0fC*{2$0pR@8HgIP
zb-5kkPZtY`8=Xe{GE*D@_qOnkyu_!Yo2EP+m1=$t+;)BKIg4`%Q%gDR<*@}RQA0*K
z_C{T~`Rem(B<Nu0o}sM@Z@vaU_$zFO<(9!%>Yj*QuGK;uhIjZ>Tml@S`};3Wav9em
zL=FyTl>J(WR8~C4b30w+Nqz2FU_#Hnwf|YPD15ZfcC%RjGh>I(km&yfvtrr{e;Di$
zZhduy5TTh+R0Ww0Jycmojk8-M-`#W1J`=<zjtJls9U}gY8BCOT3o(79<S1LZk=R-M
z_@LSz`|+M$e=55oOBw0qtSs%SCBGb(s80(>gpU25Vlv{T8}SL{XU#&HvE%8~6!&md
zb=JG}5ltuR#e%fSZxwr+2bMq8Dn#5WM$oR*XZRW|cqlHl?CXs9oGtZ&+1S!kSkWXT
zyNXWK$5)isr_?!<Aj3oFv&v~Bps4G!hD4jyK0eFZR#zz9;H3-etZ@8A8?^O;V8i)}
zB>TigYg|Q|qS!iH(Us0<_csQkbh=10xvey(uKJD*P2v<QXP&|n%u=U2v5<AM6|z)R
z=WL3`=(&aDfrtbPf6(GozgHTY-<CQ#@)A{?rKQzWRVUa&{=HSZ6zs?tY~QE8kdcjI
zW>2{ydD1pDjWc{R9XnktE~%?wfi+i6o2B*0ls%Ff(up91y7Szn0vG-46X;X+pCuTg
zm|0l#=U~mEp?pAQFXr<ZGI|JoVfGAxjZGEPNTX?KTBW-4KbTeDp7XZ^+seF0{>$4N
zoMQnwnl7*vZ$LM{G+Ic1Oby7PBPlj_C#!euwzx_;s>+B;E6n^NVWd8cNVK`{73-L1
zdoP!T!x?ioN0L4n7``hHsqKEy`=K66X(}nO3If!_gt`Ci!2#ElapPgEsAGTr)m&%U
z4V`6eqz?#=_m>9*IAx*Rk_17yQ0HJjEg*dlnhrT^RSW3=K2j`e=jak(pmbhZL-^oP
zhGBp4w!0Og#TjS~yG5wnnOgzYgVxQ9QrmG0R1y8{k5g{Ah#QDMATitqK`zP6nw;eU
z1$OMT|0Oqt!KB=W1#A4AN1yx+JMrTOkQB5&BEW-ujP3Ih2z>7YUUVcD5O?*QxTg%u
z)6+=f1I;JU;`2W2^4(G4@ZA}}1?K5%oN)L@fVAYZfxVklnd@$oZn%l48)&|4PAS;~
zCM2Dng(CL*;CPL#<RAKrI6ZAdPaT!#@A6jQtfz~4^YN4hS6A#3SC{@hdE7^)ZI*gW
zdQizmsS;hFhWbnahcC(H==#*D>te_0&3!UktR95Q&;>n`PQuOW@gWWewM5iHM3$#|
z`v%Bs*f}tB?05;{99h66H(vpjLeW2o0gr$H^gY@{`E&Wk|JE;H@R&B|Q{Ns(MO&En
zv*EkuXZqCiua_J!tdYH3jq7CHb7kk4wPmZ&m+*7+0$}UA=BIhZMzOM4)_h|4YCZT7
z+(j8tY+HG5*(KqcrG{Oqb51@*2!DsqyTCWG$QO-ub~1(=W2iqd*ib1~S7O2NT%_v&
z0C9gA7DJVxt|iGH@>uYtsm|0#gWG(s?%xYGuQdS?9cxPJ(DZ{nU7vl*2k{gN^zqpO
zPTx0B#>c<eAKj5;Z~1OJ*mqqo^c{X^Ul)5|UzhMYXirrN=U<FW%Q#;jI=#SwVMULQ
zb8nWeclDAawrci5k)S3=%?dE49geQk_F==+-%jzNqfj4Xp8p6a;awNs1hKE{`~^Gu
zWw3|6bruYCtN98wyez~e=omJ=LVIC=y(1Hy@1Ez<K*h(akzL^Ey67zNJq1qi1$?&P
z^E^JA@%g5`#P={X5wwo}Jy%!QX^frAt}fF3#*H-{e!EO#1fys%;-pDX`aE5}3K?=k
zWT_@^I9U5QxfbM->fm6)o1MU$k;>4`7EwQUK@UWqGa%YRc~=C3M<1U$)(CG?uvz%U
zQ-<%F2bzN)^NmKEpAB~Sy3nhRuDWwBUvwUN7h<qD50cH{TUO@ZchS*x;GAwB)9oc%
zqi@@GYOkIh0bMUzFgT1U94(y&1oiOf1BkdseQdtksbZ<>nF#^UP?BAGZ2e+OedyCS
zWXK=%#Jyd(4=sez*&=ucp$pUfWPp+!czUHB^9!>leFu>Jg>Q8+>dp<2sZC{DqaP<K
zGwvOpJCAxd;1@v5oZ)^^kqG{-Av8CdJaPd&D1y42Ux|7x*>eHUM|b`~nJ~ZOy=uI&
z6w4=nAlm9Ue!hmET}<g8)M8Y6(e&*=y}1mB;rK^cn%1sYS)2%>0W_J8J~OJ5g2SWS
zr$gnu%UwSGg8nd1)^zIR1wQ>gA3N6{z0J~gK;GvQmh2VSd$5hL77Qt!EN-)Oq8dlU
zlb8}I7i3)8ad87ijvP~A!}vSaOO~Eb7DrY(&rqvf@G*==*s%3Kdeo0f!*h@E6a9#F
zn90(qE~9p>uul-}dqoxO1O=lQ2Y3zqI{EQaveNt_>l3YDOp0^gJI4OM-rMC%{7`xK
z-=jW7MLvCh6inI!GH(QB9YAGU@Z;F9F4;p?FTyu)^|9No>zB-i`zwsN$xdhwFa!GA
z2lAv#b;ldq#JwujYhN7}$IgSWBzPCN#5?lgrDowYHQ@3AZ4qGRYd6b<2s*$R>yLU9
z@mxYyfQS95LQ}NYXH+2gX?@NXLsDW=!5_tug*{Ee9WRxAVX>=|*g0qhh|gbn4jS3u
zgsc>|WqpFp-HZijJRBDV5OUWS<BJ^CS7)DC^h)QE3h0^2p=J4SFAnKCD5>9nr(B6&
zN9Rib2KD-HGoLfZP8>;@i9wFpwCq9cvWb5O$WiB@cr)$aIQ3VR3eIl4YDs0C9r1W?
zW;6B03hr`b)vnz%_#ry)lcOtFj>;$+BKfRjCpN*6F|DRmD$@$11-&><(2_w+GT}YQ
zUY8ub<@sKM5}v!(4-tBt7DtEg^fG@}v&rVY-Y;1w)Ki_j4vJ)wU*nkYT*cGHUWyn?
z*KhBIpw6`2bsASL#Z8NeVOhI-lv6nzmwVr7WSl%b@fg;Dsdr5|jR#ia+96Y>SBd?k
zZGp**SAIW(-&ys%Ukc4ZVG^%engt~hGfd+w(jt5+#QiLGxxbbKejv&L_2rQRkQ~W~
zy@=A@q{1+T=&?2kmJrmX2tHDxeiFVz%s`s1<MsxpDrEB1IvQZKTDb)6;Bh{~7YGv;
z2wI0=W2>~8de+7@7Vu&`a`aaBi95VfdiLFMdU2!>rUpx=K`Mn-wAG4@`ntDaM0pV$
zWzPE2jZ{>PGg+q1R9GXm5}d(!z;5%q!}7^3napMdaZkT9b7#g*o9>qkc#mH!r@2Zi
zS;-y|(U~XxFWHCh%Gne766v$kNxwz^v3aBYr^uIzMQFYrU#6{Uc)acN+9LkKP;qOE
z;5}EQ0WWYD3LKtW`wuY0A!_TIhwd)%_=9h+l4B4vR(aJ^!)-t~IIw0#6IT$!<P>o2
zZPDG|f2P|mknG;?6&${zfWtS0|CjN&n1p2vh+0IQONhWy3RR3N0)i|pt6P-Q3}ph^
zCe{jBiF9JAp&M0JOHZe;W>c#Tkz-tT((1Nb<UN2QEbBg3JAD6ybNT3+4zCZR<xJeb
zV7ZS2Sn%EQm5KS@;&L7I)B%*_id3=t{BAZ+mZrDsSXrB2x@>64w5z9N7(*RKWAaYv
zqiGfdb~)LDYkiaENb3==vp3vCVOFZd9Kr>3ZXhzz^g{PahY=3U1C~&M$YZiJ!+dGh
zh}2MkSWk0GxG{4PB7Vfs23D}}%fvJJfr<7h*9;h1s0i1arhb8lInI=2->GUqrrcUL
zb9<f!Vht^-{J8|xS=gD}+9b*^AU~_-C7^x{&^^;O-B5Gf?-E=oYI$gp%*<H2q<+#x
z{i;I0`gEJ1uBMm9q1WM8duKb;s&8=ezk%l99Wu9)>^s3xGKoPuC-5w8^oPV*)=;Oa
zZTi`~JXHF)OSsbo%#JIWe)ZW7a`3A=ynvOVc+iLhXU6|hIiDI;P}8BzcZVU)JJ=zf
zNWqcx0kkKKXK%j<6r)}czof`Ozc|QkGtwqwVwZd;t?i7qR4xsSYm}fxN;e+b6&IB&
zMy6-}-mDR9bp=GXK)itO)Eg5oIehV4Qy*v>rg1Ar544S7@xb6e^+tj2dA9QnES>QM
zx@5L9{ul_|yD%`&y2{;G@Y4`R{xrJVs4-D^<uMs5!$<PC4<iH4oy<(JwB`vF)rtx(
zvrJO<AvK`^g@&*-4&TJWEpNa)>$>Rhz0tB|B7H^l<<q%B!p7!mkq4OntWcGexd@@N
zo1CcPexJY*mOaU&@2#KcDjJuQnVuA0ijtLiF2JmzLG9~8@lL8T>S@O-97EtnXGn$B
z^6@)dK5=cj$2T#aflKOx;sizI-7%vC$9)J@z*r#R&_x;uB)if+{+HnKr#=hz99ZFO
zfx5rKTXijoFa|XQzA&-0YL|A`yj|L&of9$Nc^ejWX^Xlh0Q6DH!9@+hi*k2Pq^|Ai
z7dExBHH)N%d)Jw6WuPD>(*IpqnwM*xx<=zrJx#H3&{_>RmDl2&$)-x7wP)uu^&o53
zHRC6GRo;U?bWX@drE~nxQ_QZ?2$e$E&01kPZ!M_x-U2unI};Q1<_UELIlJnka^A~M
ztCa3sBy~&?qJ}(In^H_$%mXYr?{~}335yK_wbuYaoEF+vN4s66n0Y6a@uEGYzuq4i
zi1?<WC`$m?ppp`^k!My4b?!(v-g`xA8+cKc7UlTW2=c7c@g9V%uPbEJB>u>=y~B6r
zE<BC){!(Viv_jfUh@h^LI&)T}V?Ca*#Qaso4!|mXs|Q$@bB8(9kSVPX2ZKs?h@Gr@
zKK6NCpP+j|I0oHh-P;4uZS(h&oF^6b7tobSXBk)xcYB*@$sARU#nOmIh8;G2i7)<(
z&I#?thNDGivxJ#xQ?IH_CBpbDfZ4&dvt*~LZE2ugdsq4PJj?<bKmIP32L~yE2D1-f
zg*4<m>%vcdc3RivIu1-eYnD1ACzDkpSX)-Qa!6*Iex|K9hR3^IDh=;USURo%*RfGS
z%wv=~kK%7#ktpfSVg1zK&hWWl*dufx-Fhh(A@LNRtrT}<w7BSmGv*%`$sTv?GM_fZ
z`xf-8uU9=p(+4^y;0m4(0&3&?a!gPeK&Z1~jg6}4nBpO!i5JEU<71{bd<c6E&P+C^
z@DJPbY!iKsNOys5ml>iA6OB*I@YK*JF(Zv+1#sJLV$;94b@+~{zipoAgYITez$-%@
zym4xYX(ApGgNe^f<(HI4@ax{d75&n*gaBg0broJ7QkD|-kq2or$O^(}yXQIQ9@V;R
ztxEGSi%Yd_&6Ru7(DTR}3!4?6uh9sAIRZsGq<YL7>iEIkNw!L0aHsDN-VXw}#{N?y
zl?8QU{CeA(LI|dJ6>es2NU2acYI5ExVPtf|4I#sZGuAnsbA)}h#)g5W$zjX05i)NU
zXo^g~(rB|>A8)NF8jxS`RTgR?_HCcn4JitT(!XV-0WMuIssWOp4Y3wuiyEBLqW2ce
z{h|Fna=*8>sJzHQq|(EsMhGY+!KhnMS2G>fy+7qMneA}9Sh?mgrfkS+G!8YpiiGJs
zv$8ue<`MV5SE<g)QMvSjPglrv4n{Rwx<IMfF{kfqRx`g`wWwe7=W<L+g2q)*6*{P7
z&W5cQpd(K$cI66>m`rGiG}pp8EQ|J=Hw*eUi*d9%C%2XVi=vUsz+()1%;d|vU``3U
z1ynYs!iX?E8_eK1^VtCzMyg-5L;LKk4Od1PE713(+cisgsI=erXO~ZhAi$x<@>XD^
z545yan-eKh#Psq?9!;&p??t({d_4feAjzLQbhi^q%xU3hX78G)gm|H*=}g|$djLOD
zWGLAYT<7Z-osJrD9r+xg_Ct!mwx;YEb<V&5<j1|3<s)KNBh__YA;b~eRyMCph1?7X
zmtJ_YQ(Hp1P};(qNC*&}0By$5xu%+I4TL$fHR|KD^p=j|4F%946fck8_m;!=*Yku7
zL}UEBBMl^ETpXDc-v-jSehg_`C5OGA0PBPW;6{npw~5E~T9)4Oo$#&eD2G^S78hZz
z&3P0y+wfdh`slwnXWCp$ItkfP2;z*#L_rI3c9OUyKj6{L`m*XJOGgUQg|U~T`kYyD
z#tkMy5`2u$Zz`ZfDZu~IB3PW$FE8BTIg@8s&p=)VcySG%69O2ZnZe;(C*l_aTxC+Q
zh+b&m>h~SK53eedrxUr=G(S85meYq-N&u!9vURCd9MN;wc+~40%!G5XpG0lghxrKe
zQ@(x*JOKxUu#I|IL%!j0qFgFZEY4XTgat{XfgRlpfym7T!YRnCN6f&evL6Ip$;Zte
zbon$*ybPYpMMxd-_WFhMvbFpMCVYtOab4(z;3F>{nS|d0rdU9rD;+ps(=TrE`U?9s
z*VkM_6eQJ}YxX27m0`xL*kSY(lrg9SJ{XY7v&XD0Z@OP7lhKM1rN||+1CP|nNV^g|
z`k~=yg(5})m?>Zd^oK30C{InWd<QMcIMLp+RWvoz7=?++eh%qto5~&}^ABbu>ljsd
z*kTxt75$nIL%D%ik7Nu>043tO_vN@t*-t?~*Kl*Qh1|GgIKs^{`U@frVTkfy{)P28
zJYni@U8ilNo1Ly{>GD>NKJ!gl23-U-;p`t<x+34(-^KRBRAiBFqYWC?!P4xa2+}dN
z%<k$Mw-jpIfjURm)FL@PI>9`^JA&()q`=8BPdEE-!@ut6tsL0i3!Kt7blF9-;%?yU
zWCwl^LB3Y$b3xOr%Rq8ivk-4h-qPr%nL2#e;<Y{of%q`m&1lyhVY;JS)mpZk6$9uR
zJj5b9*nGs|u3fX50-aZNJn&DYrG$N04_i&p5w*cIqSs3vp#vzyOXhPhVwJj_K*dmE
z3xCi*-G5tc2wrsf_g+Hgr()CING$7f9-RhO-M&Gm_eK6%Q}J3(?@>Vha~{oP$DH2Z
z0AXI+P2XO@s<`$YShK|c2`<%KXS}T=pmvzMPT?97wbH+_Z<o{uuT*p&mro+&;qIIz
z_2Fr6_hOPey8dbpo&l?22TPBSuPVsyFe+Z1X4135e$%o}SYR!{!rea}si^V;A%mWQ
z&vB%nwK?s%*UYNNU&Jxb%M-Egb4b^)<>fVqON>u<vvedB<Fk6&(PS*LD06sj(Id3J
zySl=?#g4Awr2w{7+PZhzg~VqKH=FHA1C<d?FS0JTOWcAf$1}qqCY`;ULKdbrZ4*Qq
zmpEJ?!C_@t?4-OTa*V!qDAS(2C8??@g<q?vNR(58R)FF0MHjkX#*<0m^Of<r9B$u`
zc0|Bj#u{`Bf?`CbOif};#TFGWtg3RMMQWJck@+%AA}$3LIf~XpdW_+AIc5f22*QEh
zBZ7R}?@*2psf!KE>xCJH?1<D$+w(9x-jgL01!)VwgU9f6vaZk&BR?vLP);`Owi&>z
zjU`Fv$eJc#u(^?%QF)(})RLo!8fE5Dat=uw>m1=e%l)0ww5=xRg%|OId&dB@>+vNU
zyZ?*dL*E9+zMc9P-!6=uyF}l}M*&3wIZc8-3R0*YzFnRl`fp=tAlnk32*!^`ybnuj
zNoMamy}*uJe2kn`xEc^h)GJvpdXph5@9-nNS-j;|1&{{ud+g`o@NM`DpuFXjiy$Vw
zkkyALCGMFKz)I<^I%^k~Rxwj^Us0&xt4?ugO4p0HbXb8lOpP=2L$JZ7+*z1ur$J9J
zNjIB{0nUx8S3G`YfYShUL_SqL*wZl~_AUGycgI-(PoxhM%**VRf=ZY#P<X-gRSUp!
zjbw9gRT8mm0c2VSC@Ug@Ro<uQq~IBT`}gN@d-wNmzzJE^FV!?%TW-J8UClHm)kf0d
z;f$>44|{}^nkm&90Xc&{rjsiB@Lg3o9n7{N5;|@IP=2YZU6*cbG_|_K5kP16N~&MN
z_U{F3Pc8ic{`a>I&s~^KOH;ozGx;V&Hj?mo0CtAmOp0|KpQRIRt(niuFb7Qg_mcA|
z?(q!)5>R(QPu860{r@g}{ar1=5tn9ZoKX?rg5sy679%t8lk5I@Xf7^kwj&kRt7$bY
z-=@HEOk)#D67i%K6lCcPFA}VeIfwC61=?p-`<@amCHvW8G6RnYeLm7kTwE&|#pap&
zr?ff|Dm}&_*}ah^NOSl3?GqBu`~l#EKO!lybG1!<+G#Xi%}`_I?3Z$<^h7_NxHaa+
zBT{nD!XCKXyXu_Hh0?mUos!3}&2qE3hRt61<+PhF*ZYuI(NIJUnO{SiMV>}#pg(7J
z<G&-*`G4e*xm_|+5KMf?teZ<lgxF$jHKZ%oQFP_~VXrSs58YCxwYH_uK=2JC;}E8g
zdRqD-(IwrutD<x;JQbOAvXIwgGt#Uzb1?h&B$Z7L`>eG1St@J05T2^uk@YsRbqzr2
z`4Ae)5;?51qGB>O(9EuHLQIVIY0@r!SQy?owMg^EDU8K(zyijGEKgs(X2~uxUQs|h
z3TTB3rl3QJ?Ee018L5*5qp|F->H7M3Z1)~pl>WGScy4K{V!_%*7ZIoTZnr$`OHlZb
zi7I&~foDho;x3Wves390911`Io2uAA=VfHD#bFY`VS|+K&@HdsnpPoLk|RjLCABMj
z|1V|IVil|WVN;T~QrDFPc3*+fGqAE88cH`yGo^Xmx~?>SHldH7i_&!s({WnX&}20z
zf3B_=h!k5UAbE{LQ8uikR_A1XEeEl${d+&;9<e%7Q!phy{p=H32s3R{5tK@afZRy;
zlAi627n%q19O0$fkIFlM)7Uh%V220^n&PDJORgPF5iVES>E`mzuvwageTG}~B1+c5
zihijGjcZiD?Dl3|NmX?rE8%c+FsT(wHOws2{!Fvtnpxj=zhx$y7Oyv7UAVRAMWpKJ
zN?U~-Ot6{8>5=_PY83c;s0V>FB!wFjkn}!fky)HQl-{1MpM~s9c%HCLs4SEU=L_mm
zN8~+ka@_HMLvi?MH-2*n8nzCn*(y1Pr*3OoMp%ss!!vnTo-xS6q-0%z>MMp4a8TZC
zt`?%m=gz7VHg*cUSuxy7c4li?K!?l-_{Apak=P8hf|DQhMCvpjZHWwhYFv2MB-?_>
z$|!x*;iy#wf?`sjH{V#<AJ$n|4uP~$EO{`e&aMtmh|L><Dd|qUR5&zsTs|Hf^In1U
zuv^gyNzcB*C&lVNvUCqtaH+pSUw3JEz~PfHfp}pgW3br*hz%*Dr{E8|uMx;0W&%A<
zJMY+S;vf&Ag8tkhk>PLW--6KxA%Z^VDwh*2=kS$(HkP|eFf`k-giVfic8(weVpOhv
zX+Zn;jF$y%Y0lD9Sbw9o!c6n4Pm3l8gcqbv*je(_O|*lUnbP3Zexe+;t<Nrml<;(U
zxrSvki?!)I4PrCIqoZp(=o!`SKIA*gDhthbHwM(%*>-ix;}|*1-hq;Lx6K^HchYIe
zQc~n_ER;)E$qeft)bfpfC_g~y#G22uYR&w|2jF=-)nEtiWvH`<8x;kDD=f@D(Oy{I
z3{U|zrlH|9hCViVg86M#6{QEucoB?m7fYY+tcA&q*Md3(OPK2SbecV3qr(x=BOF{w
z8D{v<NJZMDF^gw$gT-=`W&=uo>g^YU9;7=z+AV}4APlR{LPgw*2Onl7-h^y&Hd0nL
z?%`~@WEWCBXeqclxFaR{40oi!QAUoH^1mk_1OVDQ|IK6M8gOP*PQJKh%->8h#0YK7
zxWr`i-bZkL7R--_bVuCj7`#TL-R8s{DnDqP!%$yH*P$F1AhtUyw1FHZzQ}jr#Cd!4
zH`EJfLA*tDfC2PHhi@gm-3e{slV2nZPcHvE1PmBV!Cj02>^$xEaWeR@Hs_JqD=^Z4
zLO<l+`>tl$$#Pk9z4Bfu#C(~nCiOT~h3A0sBG&wHx)AQqwWei}9sYgoSm2wh@Se7&
zl#rORcuS{Q$QdbkixRu8xhAcjUZK)k{Nr!kkjJvbN^?S=%nw*yH)P#j0puv4U5NRB
zjsZWIUo0k>w^d;>`Nfgjs#=uJt9k|g>YRLPv(TihbaYiq4voFYTaR3+<6|AN(|D(0
ziGTLu{;-CmKBqssUW#+~iI!9VnF~!x7!$*HmjB&At29PXC9Tw=G1XI%s#0wCUP5M#
zrcDjdgaE3=!$&N`d&x%vQsWukxeZAO;wlc`%~e1M%-lcGm{nW@aij|WwYE9;`8%48
z&reVn;eTW3vRjm{Htu7PYqt6R{>9%ge*X6&1v!c~eCcjRcF2QG8bLE1Yct%X&w_*F
z%bdEj>X(9e^EFWxogeF<yq%W`!bks-{&=iEJ~91DDsT9t*tYdZGQ0t^M;Tw3NO;3X
z(SsSWLdCQ%8?~v(IlBazXZ>7zN4gfrrCcRRXo}WZuQQ9rT+^242Tqd2e(G;T%^O%f
zA>EL7`u&01OC?lCj|Ln?cj$RY;|b0Y>4zCP%h{~9hZ>!4$j~t0Tygk@SN6kR-a9K|
z9p&pq{$ukwsin~XQ7c68DJxp;GKL!)HfQ`h7AD~vYL!l*GZlDKM=^Yl+V3cn=`UY|
zevX`D$x+v~=Q(|bIx5s}$Yis%$?*-))Ne!2T6~dc-djMagGqQ@f{v?nLO)wi-gB1_
zd!M}FV+yeO5lf#8Ef@<4Ges9~KaI=k^&vaR;mE<=fN~q;7?U#s?D}N8HSPBn@NuPv
zxfR6)8Sw_d7?_D@?Ym7*rp$bvP6q+pk3xh4%3e3=iB54DcmfF<XW^}+gQbZUj0Vaz
zf-rAzbOCi8tjp|-%F*Tr6d)3~5xn>#jTX4jMlXY@(p4|VoUaEnVxX5uUO##RGS{$H
zNDXyYIhf7S&xWnV)nWwF^-jp%KvFPrNL7?ihLBLkzafoi^X(jt*RdkCsl?pFDo*2|
zh}GfAl_8N7v<f2;%o>Gv0mTbcaJT?lu*|Lc#iOK3&HFbey$(gLKMHv})?W2*AuM2o
z1w0pugrv(=6`*THTh<$l$<O7!>&Zi{WT~WBQ)+4+TvKq*rh3(ymYntZgGe>pmai2K
zF6^T)5*`o#DB22R?(PZXMCMv-SSdtED`EdtIgAVEF+mCo>?Vj~+Upbg^hW*0oX)1;
zs&$p6LeN(=2|sH~NITn$u?5={Q$H-CbX|U%h`f>5Epbar51g9=r2KO-AGARb0ZIDa
zy~!{fR69v#djP1C7qe^V%;k5fa^N!sUCF;ts~#T!Aa;3(6(XVB@B5=3blX=qfPYm{
zv7u7RT*Q$Dyc~f2C3}h{6U&WN=bCr~2e`#7U5c+*G$5ZW@pUR(KR9>J*qz=pAB^Rt
zlXlz#<!Pc_JGhzxFNVWUz0*t8dXlOo$F$YG2@D|I;Nr}I|3V7hjfM8)p1Ojj$vji|
z1Ve{$QU+Rqr@TC<w$txX9eH+ebD<w`dbB<6jmn{H=(7ygGV<XR<AWZNjt0jIo2Mhi
zrmYxxRhy5N;AOan%Q*cUQb`kb41%NRTlr2qenF2}R||COPOME>8CTY0y4FG+6b3Md
zZcF}00>%K?&KG%s7~wwhU7hJyf7CUAg@<0au?l{GvE^~ppK^bsC^m?%1lC516!zp`
z>bbYdRIrr6+5Pyii08u__8@es0-fOMX3Y*?BEC)RW{VxZQ~34<;#C04Uc62G!5n#q
z`^w1spdN%0Pv|NPl-FHC=nW2MH8micD<==A04fVJa#oXGdfO1OV2OiBcTKE!bd}da
zy&FRxfyom3h!(M+zd$~G=k}~$z$Sq>V$v&&cEiu<=`t^x=KAPukkFC97Gq+`qu6`}
zNtLaZX1Jv>@?7Pmc*g~!UO)1UoqB_GxJ+ARa5f-+*xNuO70waBWyL=YV|>n|PcJ3)
z=JY!p6=6^0`1w2Cu>m6tkZa4S(=_sF4S-GqnF)*Gw9}hrM-F24ONa_i=Sa`cFZmBb
z0dglxQ*yyMR40kIGGAt<ka0O}tbAz&sSIU-<eSN8U6mf3;On6y27B^|A)cA0eQD^V
z9ImPv7FTgrJN9I0gz|_q%IYclkbjT;qCAqFsc2(q)19gDO;_Nd$*kB^JDD;XBQ5((
zMi|e_QfER3MDAl{0h_7Sf~Sp3uwbz1_G1;ZC%n#%X_oya&%e*kUwAcX2Xff@1bxOo
zDeYKYfdE~k^(pA~{})&a?u~xMb5x-%_ER`9%!b94SDMd~gIMTu9&W=_Bg=0Lf>-#7
ziW@{gv=#c5es>9mJoy4hg}ub-8Ki9i0LXA(E9O_Un^vMjdSkdSq0f*#fb5yRl%Oy6
z1f^JBnu4ym?Hmm2i{!UmmuG<@BXj3!VsgQ|3hBX}PKfl$@Dx3_c|Upow%Vm#xD7fa
zdM&uYctF~x9Lps$mAJ1|YexRnv`<OyK%`cI(~s2J86lpeq2}rg?mvM<F6{?V8(^#U
z+e+0AD2E8h$uA(E7rCSBoT+;5RUx|@^YFJATb%fvNp=R_ArQo7f_@Axg%BQyK7)2>
z9?Bcah!>p*=8MUAnWayAf{w9DgI8m*6<&ij2faN&v!;g2Y^bxvxAi9^^p&3y+n|@w
zU~gNtg75z@#$EOq&r?ZLP!fQ=B1gxakRKPj*<H#J$(1(&GAKuraC8C50+gePI64nK
zPA7b(aA6@H@CGrq<cQWlOPAwXXG+6M*^#s6s3t7waxD5<=2i=}Nx4r0L5SM{3P#~T
zEbr3rG&?xs2ctYH)^)J%DncGcS~qbrJfwvQlNN%cpk${wV#w^&S*9x^3<4=NYk7az
z8uzpHn)-+-0?SUxH;YLPwV9G)S`)6IU3ZoiczQ6n@C58FTI)?Zn0FR@4M$R)UY{S3
z;teiU#G`iUT#l<W!rjT4T7LMQ0?mD$Vib>1X-Z5-43Sa}DBUWl9VLPijoM?=AxcCY
z&#uDQGa5$Xfj~~Yz+7spJ6(XjM~~*W+<)6Gf9gjl3Q!1e4gGC?9{r-9?pAH&x;x?l
zv-=X-;5jC**H{Z!f)&kEW*{IWHjjyjJxh*EPu^T<;lhojYd7U14HyzU3Z<<gXL?M+
z3?!ZyhA(oOj*=YUnT?M(UV2_0HP1Q3Mq0STmvLnbCAMD58=9(;V%sr-l_~LL&T^Qu
zfvO6zhyG2v#7s(peP*0k)1>lfhz$)xVgFu#HPnjtU;dEj@cUlpiVbNSH16);qh97=
zU?Jvc_lRmjdW7|?bR!o`Y;43K#qX4w5;sL1n7Jh?DSTIS6QaDXhwqF!P`foIcj{A8
z)66X~(#$8K9N}A|J>gG8KfZd4)HG#l^!11yHq;s0+*cc&VJ$bRrC@o{<{>54s7XJa
z(ydQ3D<Np)lleKzSvazA$1GdOe^lg=zkPBI%|PV2cZ3&3r-B>KBHw6|nx1;jj_#1w
z)$&5^Qm_j4nAEII!F81(&-l_{`t)kd{`$bek=8llaRWj{%Kel6WBUf^9u9VQDOi5W
zW+=$}2_iYq2~TLcM^oAY-y$$2%gpCrR1iNWjAW$AMPZY2%-9S?Q#)%yy<oiM%(_32
zoV6Uo5?;2BRjW@sBG&*eOKRL&4ro8?no#b^LjwNDsB$WJXnsJ6_#${9sSzvH56^*K
z;rpY<2QLcuvkF-mF`%GgKM(8=(&y|&&r4G(j9MXgHg-1w&oy%qD+_fbVRZAJj=Os8
z0RYfz$6lOIN^z<OdWD<xMZ*ZUO|Yv%xWbM^HhU7E&^Gnbd&QPo=$XK<y?3_)xd4p`
z#HI{v)gj5S$e@3*vxrJWv|^JG6O~>Cr|aF34QMx60@qTLBp`2a!i-MhSB1J4d_8%1
z?ji_xzwi2O_HY9bL<FkD7Oq=rnq*<=g_uMzmQbN_ctl{@*3=2P2!b=&%wZK<_*?b(
zKFPRx+d2ZO5v>%Q#^d`0Q{F-$ip&&UiLoXXU27Xr0aG?wpfby}z+`7YD3W+==^|n6
z@Wm0lVo8X|4`5aIhdE46Y{U>+dkwplL}j<db*+ywBZ<CeU?~rpW7T0I_KiTuT(Qe!
zX=I3a7z`&o@gR8ENLehzku$?)Y6|J3CG?xTntDwuc7TBKWJx*);Wn+JP23{2=PW0D
zQo?XX7+&6*Ny!$rUVXKt$E*S*>PcuRzB;{zWlD&m%hu!?O5mG=Zm}~CUR`3`@+r$X
zN!xs%eR{bXqCyoxoZ67<tBrGf()|@1$P+wjVyFofRQ_O|zD<J(R;yJrP*nky6EVqf
z8fPMeL}Y4Y-=i3WHbSzcBdQ`HahudAsR4WIDUX4lz4irtb}%GB!e{sQAL9NxnQbM|
z6nKYlTciSF?NI4sw?AD>bkoyCdiwJq+d+6O5EEr3WZ>jJ<gC~yN(fCDw5p}OYU%YC
zkbrI#k4K*SH8Q%W)ZO3T81t6w7m#|`i)<2+h-pyrnT)rp5GEkL-hssM-~UyPT5S1_
zTrxpkvMMUuQm=YsZOb;)OTpodSFqy;ftyRVnNy_SAd|mXgk5ixWuUqV+lCl2#R!Vr
zM-)?5J%<1py%A(L{UJI5mMxkm8JQ~gN~+i4=`KP3{_`(Ll-A<=k2|DDotoTde)XWt
zF#D0(8XI;{Ds5^mWYR1KfH37!UWEv%HnN}C5wrmyK2w@Nr~+f#@*Dtm^ZQ3PT}cBw
z2?Y7A72iqMr7v<;GYXAL3A=u`7QqV{<%arD_gCrq{K3Q|BrTsA6{o*o7Hhs^0ou&R
zk*D_b>w1uOprd$GtuTYf|FZPvm&%4K-zt8{i4}Q%UI<rNpSc_A&u^Y76rSZVd(V`z
z6Lj>*>eun_zqjeip&HR13+L*F>;S^h%8!McO7=*N)3=tiuo2;CV-`WjbkCGdx@Y!U
z+yjA_Hz)rJl(jUNGpg9aMbn3-rbt)az#@sB)CacwVv6!yf=I0Sg=g*a3a{D6?)v~n
zTJoM;YzCz=6s4q8d$0m7(84Q$O;rdHgpV1zzNOSC>CD$uc)5BKKEmX8K9Lo^lGdhO
z>lfUzZZo+0iI(-$<VZH)7p}?DWal0>PXaL`OGwCSWZIjabI;3glZM+Sgxj>?Q?;O!
ztndrVWwx={sQpvh-?8D$;hYtguch_w4P}CQhTA_YX%C`DAN~fkeimW-<|ho?g+F27
za{hndq!MGa?U4V4Hd(jR{YjQEBdaWIX@C+U)JL>x^XfwvE<ZaD-J@{%p_Z9WdoOM|
zEn?a7K!td~acKL};H_CBnL}j!OrFr5t)M}Ia9D60+UE&gFrCxy;V(+T|6w_KP|;B!
zUGl5-oQ4uVE~h0oB=-Zekn|k3)9}QB1S@RKz?Po3Rp78N{}5;!6k2c?H)B48pPmqY
zTI&}U==zxM1qQ0?Pg=lDDKyrto-oUt6_R^405%B)FYFF7_J|ih_U90gB0-2kdZ2zm
zvkJ(cN5dA-rwc~+4c$ScC2*)nFr{2SBqQ$+%<)w(LYZO$LWM?;7BI}gtE;S{+AlsV
zgYUg7H8k(6J=E>07s^J8oy~q}Tt&4?pOBLQL>qc#Xf9H{K5{P)?LY`U57gTPk#$5Z
z(^b#+&KCtXU#?G??pzh1P-c}iBVZVj+N|rAW@g0a2O6I)_KtsSR>dq~b$YVN<tK@}
z*tvAB5WBKE7)j90X3Ek^^Y1%ps}R5TR((o(yBjM-!yE)4tf*K0k2fOWo?k+w1^L=*
zga^}?V#}|GQ>yDKnkH04AS()!1}PIsy!f-I>_{xCcFkk_v1Up2D$u@OraK^1My0@c
z#kS?n&vh=Ems?oXuiMeGS+5g%DxRwsvR^6QgzaB)o9>^N+lmcuczF7>FR@!!qWNvh
z^~61h7pSPHo~1)@c}mFMtblU|go&nIyM4p_+-^m1EF-&VUNpimf_ld%C;K@96`*}{
zY;$nK(M&&Fbbb1yh+VC4;YxbTdW<aS7`5=3-O-ke7lDRmDt73`uGB@;MG;D`?WN6l
z)ZiW~%GvuT;Vm2W3e!dkW??$Nlov>Q`EY<V=}Iz|M@mJ&9}LOrKp{^A3t`xqMapzP
ztEyt@AsUw5(3i{%FPg7#L_rxQR5EP=_EOo+NkE8{?PH|tTBwlNO>ZXq#gr?6)neS=
z%-GbJq_Zu=suNL*-V|mA>Mvn88@%36>bV9GTCBC1>H>phv@Y2BB{C2)v#P+3Y&VwW
zc<C(uUKl{YBf>Lgil(|vwT4n#t`Ipho-~z|)S+p3JIzM%VC~r%i{Sd9of&S{m1Ezj
zD}2Wu%yCCF1iR8^e<9Ui9<#+^!xO0n8H)vDC5`9YAt0!HZn)bFe?sVYH(PyDj=UzC
z8k54)@(b)rQywgSy7;lgjZ_UGF2N$2if8hMs(EOa)ac?>FptZ9w+b?7rg73p#t528
zISU@@d`2$UGGp@1W>|K0Z?>}W*JomjAi&YKxX5vF5hM|oDDhi7zlUFV2SRRe8^ewj
zgNl}JKL&p7*h%|nzN*ssOxz|k3gY0Z`GV?CNTK@CZj}x?%AZH~BK+;`1mWY`99UT#
z4xu%;ay;<s+RNEV;i<*0RN*JfQ=Y@2eXw7*^PVpgj8<1ZCn3y2;A`?m>{2zY_5=6u
zBvV?AbfaOjnYIALZXV3${*>ge!x4kM-AJbm`(dq2+!Fox=K~IhUYRpbW6lJ<w?JWY
zcelXX{|}@8$OU-!3T(zmoeEBmNfq*%b7s}EuR&a6lMC4Da}YgJB^O-*GTa2BfKF)U
zrzaye-YqvGmqhpmumyAic7uokURNrwp&nLBc-XH3k!Xg+lAvWq+lX0PY{aH-Use$e
zw#P6P1J*BoBTMrm6LXfskQZV$I+<xtQA%qyEiRGH2CwuaU|5?JyKumBEtnJmWBKGs
zS`Nr+IP*5q!WWNi#Na>jDPE^J!uZzz`*U~Sv-=)?Kia{6<g#P-QzdAQN64x9+R5Ed
z`H#HkpM8a&8GA)y58A=-Il}S9XTAh?SUCd=>c}bo(T8}eJ`96xxf~NwtW^QKNneMM
zpdG?i$fK;ap7HPxr>Z7vI)!CTcz49iQ;Em@b8mb0;n|00<IRvVY?0&086J4I_@=UU
zp^w6i(Z}&qDUGqw)5jc8UXL7^<3D<RoH1HvPbf1Qn%_}4Vj?WTHpldo+0#V=9PS`r
z7>%KxtU&ISOgmT%n&On$OHEhA%C`0C#)jvzGeLnj>d?;qBVObwN`~Gl%%I#MNicPf
zK;hOH-}3m6F2PTTA{xfdlV<L&9HUlsvjmOtO!e6BLDH2b--PrXsIR6FFQS{v@Gc;+
zAIb9{4WQQosQz)n3-2yxdq;y`>gh`+^Rw!Hbwhz`+}_lgk}7^&hPTmDttPjq5+k!<
z^s+&R@8ZXN(-;U#SIBjhUVo)tAcG5A&=A(|omftm3!oG1>N#2xldi$-3u|eN&7o20
z(yN6T?g6Vuhwfu@HQ5!WT(G!{Yd}!NCZh3nJZYih=tYhx#>0cIbSLp1E?~!;yv;3y
zK)=bqK1^TF+v#jGrXko`3DNQV@GPKQ528a&#>fR|l;JzQ`D#LJ_!vMsKiZ3Q_2x6I
z3jhBQ?l5?Wc|TYL*M3#h8Ol1=&+bw0#oj!;h50?T7>zZ!pmO-m`Dteu&?1*|=}7?T
zD6<&9p=$R&aE9=Gf@pC9HCp&<oKT)F+C8%)&tqzUjda!?9DP8_PqUoSX8*!;I&vj$
ze{xDIaMMO`hnHd>iV~Rz&qGtCOh`OP9+vrnLx3BxabDDEsxig}#WZag>%k%!D4&g}
z<J0FIdekl7Niu+T_sRSk=aS|f@|P*+!g9*#%=meSezibOykeO{cM*uo->U<0SN8eO
zGkA-JD7zNRt{SqBHw>#!fcA>rJP!bQD8*r)>t)(ba;Y8H2XK8e4~qxbj%(`{n=jR4
zi8f$DFf+w@VYVW#WYB6oIqnp|X1q!OPi$#o^G&C`Uj>sOT$bam8MGH(J2^ZV+iid}
zj9oJeCWkc`M+B$md@Z2L80>+`S*qauj9%n;;x4L(y<b7^@9C*KlZW|=F)+AI5JVNZ
zCG56kk;n1WO!OK#m`-32-Cdql*H8Pfq`4{uy$RWjk{S@_qUJk19>eP`uq$ejvEe=Q
zC5&Qo?X~*JQLhyDbjBqBJEDFLJ^?!_3hF#O19a^`Z=P;1M37*|Ga{axV#h|XPDj^k
zb{L%j7@u~|oc!QCVBOQ`b~|190?@IsL>CD0nY6QIGsHqzdX;z-1Sd`vKMk@qMG2#)
z@Gve$H~)g20H-2i*~#4}A@!b!h3c8S&e(i;Vzuxfuvx<r@Zv}(Gi`-)q!y{MtPNSK
zg)~jG4(Pbm;t99KhqQg&4A)5R)vOdrTWYJb+in)x)z7;-+gz!WrJ2*u=NYBG^)<}o
z+HHp7>p)wTjiAhLv1wvT*i9@uKyTvXo2%H(WTCs)zn5F1oBa^*a3pOWAYGFhV%73;
zN7o5VoMq==yXSn0O}J<#t>Bwc0(`43kF3Xji*6*xn&><$gEl#u_pivfq-#E;6|Tob
z>nEZvq$*BTO39neu|)%H=kz6Uab{sn2@s|DZ0sc|g}HlH{}GTZo?H{*xrmRt#qFnQ
zOI|GWL0b1y32gw_e$LJ=cIK=nCcW$6Qd_b`Jo0cv3d*MBwu_xh;_vWB1GrN%>}elZ
zc7>js2b!e#N)y;q(qj*9?EEhX5Vw0oJesbp7mOW~YnlYT4jWW9sH}#1>EB{#BVwi=
zyaPbe?c-9}hf^7uzWxgBK%x?SuhJU$&ceKb9)`Ece3@BkuBti^6XQr+Fl|%4kZVkz
zVit_X22)~88NtAKl%XDAyA@k>*5@o60NeJ76{{nbI=cE7_tW-380Mlm9s7OSf7obP
zX;Tth{XG8%wO9Mn2T+wa;Wb*g&C-0fSF`DOjpmtORcgAAm1(-<qT%@a&JWzX<*%5Y
z3VRszX1tf<iHWVa?<39Wfs#=PhkTyG@Z`l|_YN?>Fo@Xqe{hE=`W?cusaZXiBVR#j
zsz7#e$Y5bp46YKta!h9V-1$nU6zZ6Y^{KFo2IZ{UE{8%tjTkh}rbT&1ky#ZN760+s
zUetwc1{OdZ$cUP3i}-CRi;qWB=BN)DM)Ct`i_-P+UjWVCqU;ljhU6LtU4PGWKvCDI
z&%^49UDEcxjLPQ!3TsVMKA=hbdz}9(GYs#Qs9?xrqebjd(~2>`kkhn4-jD}hk4!>(
z-UX20AO`U^$@H9iw)HjRUZ@AAd!9Rl!sr5u!C@xi6k4kObc$rM;|Y(QB0_rDua3Q`
zd^s+|Mo==wAV<t-E+UddG@DpG+y}>x{R#;iWQN>D#cqpARRE8)!}lvJ5k1YX9@c}v
z>hK-oM}50-6zA|AFOnN}DZho$H=LL0#Yxj?Fztb)ZOZov2=Af^1kVJX0A`zPM;;&`
z<ah|c!ovvHOv5PX`c;v`_l)AHN_TV}!%??#l;G$(j-yS=kq!kEI(%Ju7$OUN(cFne
zo0e{5b;-75mb^KGX?&Kp1S>Np_Y`AiOp3)m#(*t;&-bq&$*U5}w=ARPIr^Id|Grb0
zNzmp<21ZphR|EY~+09Xw$}0%nlUnu|KCKtnlWlFam!Rb7b2`w&#>j8$PUlKV2Mb1O
zCnJa|5PIAU_5#a{7n<gezn*F|Uj<uYh|%aW@~cuBXJnXxh-sXajYiELFp<(%U&>8U
z9~556bc8R_T~B<vl_l@SR;tgtt17_0N`9rzPUr$NVLw`3PDinK+}=ogh#+juvlOLF
zvlvRiM|T&#>HeD#YwfszmA-v3ww{<T5@Z><3cN)^Q$9!jl<z;2*^{GCNMkh(Q%QAi
zN<>n&Gs#a)6z7k+ik(!qSdKLRx;`bkZI+dpVzkbP;mHoT-GJ$*UlDh;>gyII^`&Z-
z)Cf_ADmJ$nDnh650|J6DJJlN6wss74nR3>wfipWxx?|au)?vKc_3($MA^Ko-HRb!G
zKF6L#$T2Q~(uz8#V>8cSt-n|`K*=QMtHc7Nu%TSh*jr5YnzrL*-bIFRB)qlI4Dnj!
zDQBVN53Rm(AO+`<)wl1JkLj0_Gy5q=7Q3>50jfC)ocNpUr&{LlU3W*TGpq)#gvp}J
z0Q>NrEf>a<-(YO+9PYDgw!aXd<!EarX@_I@G$za8z8CD6IyL#gQVM5<){k>;Y%){|
z@pC<kEjM%FsHi799(!{WS~LE!+?!xBK-h7)iI6Dnm*-Q@zWK25`sO~s+ycV-=VuBC
z+~8kC$>BR(G;C;%J*<*w4*6c-M=$UrI^QQ@uQ-lb2eCCIGgOa9fg%c20XGkpgN(6M
zvP$g`)PT5XU<U0Fhpxxa(QHS=sUxwg-5Ba9Gq!AF=8%^m;Dih-<^QOQf^TDj+ve#@
z4X+)VWqJH#UL{G5oeFyC>kB`8?Nk3`$Dv@&E|!LEUE>$An?xQq_<?8P3inkg;(9RL
zMD(<7mby;}c^zVz@`sLz?GV-%f^?rd=$zN;!JzPK@;G32&LM{80gP`HRoEIUZ0kCd
z(5Mpm_XoOJykB#kPUEZ2FP-<Rk<=a+`6X-^gY8OGpn#cnu~2^DS)QzQykA{ZC58rn
z@T+mVc55e6hRhEQMXB1Y57UNovqF(f=7sfs^*eZvGP%K)`Eq_B{>#5$5NF<YW@7o!
zhHiGJjNLgiJGCn-R8N15R~(N%I^0)yM2prt5+*a=-Vzp+=fP&|vy<;ayHB6HJ3zcK
z80H!crBq6VUIIxr4F1VJ#;vuiyO&2DAeG*+Pk@&O89yO^Y*I`%;s(`wRa?s~MG84L
zXlE!xPSL5x*Lm#zt|o*d6d)V{bwaoTz9nJiDB%ca(~#Z*umkux?7^M;p+-jRJy{v0
zjgqB;>F?H$%MV}=Yrvxge`KJ>)s<V;6UHg5(O;tY9Ua0MTE1<ZBZ9S&&?nu<sn<Fw
zQA5r{2uVpT7}9S-mK}>>7(x)&mO;r}O4$f?|4aC&;!x=JEZa+wV2O=|1L<DB_iXa!
zg*J~r?^+Asw&03Ygs4L}Po(*YRxZ>mNFb@9Nw2a&DvztZOtF(7XJf^ll$ESa#pHAy
zPtXJEyhmMwDD*`kkBM}Q6(0r(TMDuWB`Q!<7r*~AUNWTCNNVuD@ErBtS%@}N&J`ZD
zd^v4S)d?{6rTLSP>x-GB$1J-o|CnB0NSm7n7SzlSlxM;69=A`A^$&czefl>+H16QK
zQIJm)eto)<Fe@AvF>V(;q4Z8Ic>?}*2l<7Iz({WIqig<sJj^l&K*`>sBRM3pw*QfG
zG0xA1J}ImrTrM0sw=k4cQ$N(CH@t|^VwPS+Zj3*eDKL8N+8+C4X%Roa9?3B|2bz`J
zvH%c^p=K!r`@q{FF!Q8A)*f`gfI|z!kJh<>wN|Bbe<M~FR<vSu)YXqq=TRji(Dc8_
z8gjt@#8%e7X;v*;81fh!F+dQW)cM)Yy%<^HuT2`B+i{Um>;=VQZ2!A5%5DGo|7R4q
zu;q1Qzxq#Yx6+LiRE-SjS*1)J-?Ak`NPN=$=L{qH+I~DrgjTI#CNqsU2}&ROL!O3z
z4rAceAB_Q&{O~Ak*vP5cIach)K9i5v&J^PCiR(bZ=E1Z{2wUJOg9JNID&*h)e_)Ap
z))J5yZuDG6+~o~e+FSAi<JO1U<1wA*txJS&kF}}~=EoA2pKjDRp}?cI=(UM)=C|v?
zsi8q-zFPlYzB0Nkmc0>(5)mwVV}pxA@lK9=U0)exj-mn9qJ90g0Y=H%B4Ajn5*JG$
z8G2^Uwj`)&sJrdBE<g@*_wTTJV7*()x_|WI{(av2HOpRM9kP^#Dj37BC)``6TfT|7
zcJ*M*H3?}Lw9FRrSY%fEHKfLgNOL6aRJvL6L>){OgmrZ_NOdMm-jue9%(4QsTIgQW
zOBrpY#`tl$*P7u{7V4_1v$6LSy~NA<V>D!Y!eL)?b#yNF9{)dxNlUy>J-x05?!0y2
zl60h$w+7VjkUv_wfvtxjRh!|G*Cf|kfX$B64>iR<l<$Utjh8Gz0p~|wlFz=EVdyJu
z60$#WG4{Xuj&eI^TXyicD#sI>?f%|&xZBCAob_&11-Kg446Wio^0*3!jy&?vmQ;<?
zcn?A_X!SzwKBSvQ;)&-vQ>uPnVFUTRvEZi1(GB96&{*UXhUd1u#QI6w!E9T5&vU6i
z(w7$agnsujV&afSg)8PlBE4t$=8@0}SPqZ{+)u{F!%v1I>~A@U&B(SLyna|d=yM#D
z?353!4osu#JRchMBge#+?&Q$YiU_--YnNTACv<rPU*4-?0oP{BdPJ61N9@Q0XJPzD
zE*SdhScABl92ukxD^|gZh$^s%cJ!1&TZd%yR94bFLI13XSk8ZFgiXGbk8+9wVFgpF
z)z`uuiFZ+wx3Vbr3b178;v#;r6T13w98X;OW9>(loOMoStphDS-KcFTia>f@Wb0&O
zt~JyQ+}TCY3Wy9crWFL4kNo|>IZ%u~8qK4Y&yF5D3>_r{90f-QLT03E8<~Vqr@Bqz
z2;?AogOnZa5fqlCh9W;Qn+IRv(V~=!MR`Nu;*8Lg*}Mb#Sr6%Fh#DVVXX6Vl<speN
zl`_BswWvO@)cn|6hYU~d$%&%}s`moE6}jEX{Q%#8&xbhtt5DcEEVv@#VMo`_2NC;A
zj2PlI$%vK3D5yoe{!(H##9=b2evTL+`0^^?PwDWDb`{F1S<3eK53n5<ONE|U+f?&a
zK??wTgm4Q06ot>=+l2BX^f+WGd--D#uXy%Gyy8q6f4YQ87c8)B^1%W&i}rcSCf{zP
z;~|lxs%XB%Qk&j3Ye=#;rL1|^EX00Q0XhH@Ku`cCaxC)DIuC3uvRw`#MUu{v&TNRD
zvH!0CQf8C(QM1(UKM)w6yYe{(C->|vKz7D7Y4jJ%f&X&zVHI>%>2)aFcE9SBU*hp>
z+0eSV=E}39N}@vubwcM05ayfBWyOk!65Qe<f}01dA3RMNwmmz3JZv3L)HD*2bY0Wr
z=ygrp#YX51qG(Rkhf@xj)s(c5?#8s)VUO6pV>FHGxb4xJZ9NWMuMqTg!pekTC4Li7
zq@b@Es*G8RC+96GMD+GjyzxprZSZcBl(Dj_#a3L%u9yQM+;z*X^v#X^F~Nus@nEK%
zJ7AEV1);}ZV!OdF-CSVD+DVSZZbP%7wF<+xMWelr!=he`iM3_h3VGb8gyRUNf(vF4
z1CWZ2Hc%IM>RbYMv>#&sdC<)H``ztk^R?UbU-e7*$h?SzwMD=&g1xs_Sm&hmK83vB
zalMI$xbA*1q&JbisCUff@)TQ>(~{BUM=YSDYx5()MPkxcd#GXLuJZf<-}gSg@>-h-
zG!}aZC?v>Lx?a^oaV(H<2MO~z$rG7IZ>?6B3870W-+k!Y`U(0?^`T4MlPp4xSx8L-
zz3SEGgGH~Vm1k?3?Jc{KdU4m5ZOpcX?c7Eh!WI_3WfH0aQNK;kC7&Br`yU6uXy5kO
zBewO7+lC~7XaI5D>bML&Jh?{rWU7DY9CRl6)iv99@P4NtjENQIYgt;Pls5msD`;wf
zafc-43ikjLAFk%?^-61MC{;RIMDoPj0IPL24K=~3i*b@>8Zp$6QP}dWd9qYeYN>mN
z;1b=i`gl%Ts!+H!FG)A#S;VHzuC>gRR^(l!#S)tR%kEF^fu#YD>#d}|dLjPd)DM1+
z7M<v9C$ko6XThWjM`9AqR-S8qB*7}R6nv0w3^&r~4B0#5owl!~>mf5N`FVDY>t_+o
z$bL$3cOd!Nz{L$GV1U1+FacYbs9&z5%?%zKpH(Kuew?_mUL(e2w+RO9q7wr4$@TEr
zb<VsGDC)eOa=?K%D6OUZ@)Hgg&s6CkNlnSmrN*yuHc@o(aL8j5*3}gwl<Rt^ukDt>
z7$HoLb(*RpKrJ$cf`3RxJnHte(@623AUn=e3+oyUwv~7z^A*gS*)1apqghlxsX*MO
zbUeF_GUG=MrD}jBBZER{%G3|gQkhb?(q^hnhU_e~Y|j0bVcm7aoIhom&PtK2M#CP&
zaxoYli1^I?+$^1RBfB2@!<seKW~>P0S|bmJ(YUxIIjZwj9&rSc1f_W+W4<k&<xVbQ
zsTGUpK7=46!qj6#?JTL-sdI^TDVw;cx%&3sQWmkU+P9G6X>hgCI+Qv&>P=Dukry#c
zIEut`fx7aUXY%ZKm!#zt9E!cMraU*LVRO0(jBcvarQEPtv=RuhUm{kpLAqgBj!c{N
z(w>}50R*TCEySx-2aRle?Dq;Ucz5pGd0^+O{(Wb*EE9Jw+ZRc^I~b=?R+Y3@1?rs&
zHZ!&a^Q-@G@-`wJYrmbIhOC%KU<znVjM#TF;=sv>S5H!0fkP1O*wH3H+WK)OM?%_F
zxoU++jA@tiPpwU^JLtSO;i}|$7Hp~2&F~+tlCkp{rHJ^N*$kNi9J5)M@;5%r)cFQe
zu{Kp_$XNYHWJ+$v<i;kWa7JZoq3S^8JYYOB1B*SSACelE86%Qr8r?5~3uCAIJB2Ke
zLsc6)p(0~K?1T<_Z<&yOFz=Cs0MEe<pJuSO%M=gV&Y$o6x1Epd^!{Jw-aNdi^V}Ex
zmb4_<vg8SaCE4I5Yp}G86$}DA5F&vs5AlE{8=J&75*`3C#3r;cgtR7Um>M`cVK5|l
zdQEnrlr-GNkP}kUT{&qIL(+5`hXW*OYG+_K?%sKtmgi*Hz3KhE-;zy|?tS*X&$)lx
z<VkF6Si`rz;r-tCHw+e4HKxr;GZqPhZFD0@ir$k*$ra@PPzX%h&m}UIdLVxbJ7)jh
z4buyZfA98&vzi-W(yrBpL5Lj3&LPWpHa&Wu#HB8EF6|mD4+e9z0x<5hd{eNG=a>%f
zt%$U|=HI)D?brWc4%?$(eSBTjUCm)z$1ajxvD~DEC1t01>*@j;nDjU>v?mOJHD>My
zs>lRI3Q(*%7MI|2qI#}S8OuX=!SrKZ4BRTp`;THy!$J(*s{qo9cBBhWo28T@`DE*L
z1j;)(&<SviAEX+7Fem9@$oLNI-4LlitNEj4d`eZGXYwn0<6IS#OBi)O(+=H3l_=C?
z;|yU{;q^=tjx5_}gdR#r$}&^P-F6S|i_gOq4^sgy&abxjCRX8Md>R{q#J9U%k4kL~
z#TtO5QIo_MV)65oU!ri#7%^-C5=Phl4|2F+17!|$=R1Ld;Y+IzDBkldmi%eHNhy!q
zj;m0cF%Y_2%|QSK?}=$#md~J*KpBD!sQ7Sk8Ef`!^N%q%L4aqTkj(TrL{ev=f8z2e
zWlxLuEE3?zjfCJLrXK!Ds%rloAMwBgKuIRdz2h44O<W~q5nKGo-!9Qk9V0==GcIKD
zj{crM^`Su0gV^e)?hGXL)6ee*lD=pDdD0GSZjgOTRSp&7V@BSFhXgohvA5M`!q$p)
z8UDq602|k$a?CwDykdeIg+pY1s6*VSkKNXc3f0W^N7`D#d17VYD89W1ISe<|tHg+~
zeKlq+9X6AW7As^lK<>2~@0Pc%8?6{NG;09I#fpl?&3<xWh}qXR*YMa4Qi(dMXXteK
zZy_ZtTCds~EaT}nIpJ_jxF~M}Kv|u=t?il|PMKgE*qE?#-6*>p3Zb$Hk=E3Q9%x8@
z@FBy4=Hwj@7<Ql{kbxI>e!nice`oUdzHjI^8@^{YE))oPfMLd`gV^9gq}iLY3RsIc
zAO}kNF!mz`$?%V}31yvGs;|L?TI(=!Y`KpEF+o{V%BEmKm>U0}B3>lHnG1C2_>83A
zG&`W(w8iJygkmi{{gw!xJ|JQ~!5eF8t{lS-^5kj>`HLHE`@|2s``dybfi+hFG?t5*
z8y$!OC`iYwHy15I)FI3$DCtpDHU;fA9Pfv7;ftgY-Y!w_Ns?Vu)0lcO2AMEugdrf>
zz=Ko%zM#6xpSpRaXJaaOL$MD+>vaD||De~Gye>*;5|sD1_>>FpE60W7V}sr|@W~PW
z$sgg9s7vtQ&rt35>pQ2zdkf8`O@rQ5fH?O^mDf6ryp%%Ww}t#U&L;f@U}RX9<xjGC
zlmNlky$f0fy^v4|LbteJ{sDl>1W?|}DJ75`@$cE#Ht4-;Nc+;p<p#b5Ig8XodX||W
zuvDDc=%d@kCATO$N?<h3W7)@fu|Io+<zrv5ItJ0b5wE3DEgFmWLuRVG#0s6<-9vm?
zL05IB;<I(TH)EGM)o#N|V@@;HP-S2FPaEP{03Y^!D@o2p9Y*2fT#TUYo=(K+C`q&f
zUn!>69a{v7`ogafE#ldHwp6<=+M!>c4mGY=<V>Zo7?}vWE`Ny|`HVH*PQk>B#rP2V
z3CMrgfVQBTjX-dXm+x_jJcmn(QWY9ew-1LxA6DvT;B}Lc#|6Xsbi;aRLO>S)EAoI0
zS$5h8i;?t6)Vu{+<tdrKxkf^&v+H@culrzFuw|5ARNc%KlFyau?SvgAGGZQfBX}mF
zsk8)&^bu0Q^x9I2vJeqc^>?d~E?Wjk<r)>0pyoQPn#wQ0)nR-_!~JIlKVrvTLMF}l
zkHWD*WOV4o=LWxIQ0SfM314XnASOX-3`^ux5=Yp8U8QiY?f1cLAb24+NGaI9y!4XX
zWXu@$4teEiJF<Q$SWfl+QV+!#bhcyXKM4II;dlzqR1Q8h5qSy_cg;lOq#TA8z|eI2
z#K9OKmqEs-nKjd!7Yd#d#&fp*O~a_#mih}cuP=+_%dG46u*c9pvGY<CP$9y)zi$S}
zFD;!;WE`GDkrT$KgCNx^P`mcS09h$SS0o_niFuppwyaLx1W^atv~j6@qGl-_@B2JC
z;Vc{bi3UK5YXr2o5FC68#&I46h=1XyyHQ?U!UJFo71~^5TM-e={?wNnkt<sfzpoKR
zz0RL{rX&7JjQ0fM88w`!<OBk)p;rjlQR;KSsSi;XCoMeObc_DEoVSpfnmXjLB7=uv
zwH6($14<dIks&79f21;ssTno*DqJSUVSK2jZeE2CHlg1l3i+#hE*5nw5>U8o%ru+u
z@_IhN@oC?dgOE2FMJ6RiSh~bO?V~QW3LO*63Rpyg$N%Tl^%;-D>Qb?2Qre1C6Q}w(
zm-a(y?)Z9!4)AmQ_pAaB04Cy|CU}c9Z~?$yK>#r4UU;#h<u)pKjnrRYFyE_H(M!oa
zfN*R?1FTaXP%ct}Q~E<mmclS!o#M)`=pGc7B=<no3{*B8{};8+^Qrt`D0lhyt`Fgj
z;dg8Cc=(GV-}NQ;;IzNOi!uHp5CVh8KgMxP?hf3b_V|S+Txi2txWDuh@tuU9NU(>C
z7UGVgcW>xL*Vw#e1KJmyC_bB+uVEAiI;6z+Tkq23xw3hC7ja4iCPjSf?hR4)ef~Ap
zhwt^@i-q3NkG}eEaa9@sPR(2Tq3y)DY;Yd$!BBb5kFJJX`8-a2N?y0c=tb!R%fpWV
zp-T_cyaCW3-$<gFP`2;^R)As#Y`9ug?N-wgnn_7_X)$Jc|K2E{yz%%~#d}2eAvLc^
zfiR);jJ*~0SXOSC@gP?7olU$_T<H>QNP%iDlzf3mA=b32?e*d+zWd&S5{)zXN#U49
z>R2pqB)MmWQ7UMBgHOePi@FzB9L%T|Fv$c3!@#EyTT?T{8o*s{<&V@*AZ7>m%3%WL
z0JMVjcLyHO>Z$o#m0?d1!jvC2HF9DDftK)?{Lnr`wHb4#nY2Qr{aq+>)ekXm?Z`r(
zW<jy>)QQ2t(2&^2zs0w^P1oTp%)WNI!Q&X=R?V_$H5zoPr&MZSx~M*=I(`tUUG($t
z5Wf+=H1tc)sLqO!5P<8NqGDN$c%_b9aLdbytwWh}1gp6>;cgem14`Hf)#vapu{VbO
zThB>djGfdyTp9nl6&`wh3{s7G8N)rl%sheDUxAC;iLESiP_c_+fShMOY+6d6%Y1kT
z%Y4No4}63SA)yo~Vxn4pLhPQ~RO*1b?T)|PsfJ_2zs2JnkZroVMlgjEh7sGAXX*95
z$*ph!YH8T5K?j7aR9v7BIaypkI&09oKsd87Q5J@Fy#nkQU?wO>0%lTvPXXy&4YAK&
z01QHSWoY~as9x5VNEK0)EYV*hdVm{I72!}wQW|XCNmpj*D0~m7K%7w#tQWG6Eo^b=
z+D4W$$_#=V%nRSxD-!^3v@a8DV-<61f|fsF#tKEN+eXl{F3))spw0`=%)RhT{)M4g
z{rxAjt!;H^xgPF7$SeG~EY`2lHY%_GlAH;@{(4jV^;zXdmy!${K70cIV;WdgOdoV*
z{6m>1zVRWPuDK1#jrarF{Yv}*z!flU%k(>2Pk!wk9RJ*{1Fvce#=lO_o34ys0Se<9
z?OnIti(mDv_wN4Md&-rg5R8B5+T&M_Mxj|S9)`4WTtadUo^K`c=tpFv|02G??lvVR
z@iSKTglbR*NTzkf=mvZ|%P$M~t4aCG=$BQ1%rw7(_YTYW+AGM6`(-sdGU#EC4Z7I@
zY)aG_x?N!*Z6IqVyM4|lxy+=N%0YQKN)dXtwLH+MgE#K>dJ81bpopoeD|~^3R%)Px
z9^?rm?0&OcJXt|WjfEE-A=SwaZDDKHFi?yTIz_4VFQ}Iw>BPLcQ|l(#a<0^jzInmu
z0eJ=0ztEb5A0LHJg5r}V{O$j0NEOkSW6CydQ8`TR@0o#8$h3;(43@=rWiwdzBY%6x
zm?;@eCZpM4w7?rz%o)Gq!4YP#%znax(Xl6l2=<3Q(zQt5-N4(kkndI>#vee>V%3=U
z+bX`4EC9SSZK&GM_qsDfps!NeMR3;cYkz#43Lv*?7!U@jgYtSc<)8DBe}-BIPLu2d
zv$vWK_%PP}uL<e)ZymqmzE^Ndmxdx^FKd9^AM$v!irBkZF=T};?UTQCoW;4eVzZ~;
zikcykjZc?ERag<oj?nZ;`Ss!!WD_vjVImCI2w<7!yK0B=!|t%s4=HojFh=XEuM9T;
z>M=+hh#X84%L{XWEKBhz=oUk5`Ujyx-3hI-SDL<?^MJVm@2!ZHx`}a&jE!eCxM{d&
zAn&koqjIJ`pgKcYbc$`O2TtWZ_A4O92uj!3tU%Ua&<U3-u}MF%FnD!o93$+W+XR!D
zhB!~<V!XAH1>lOsm1VwI{4I#*5x2j_lwi3Z#TZy!IuYzDyzE-i28&CqqVP1YNI$V+
z4TJ~xdikUDj?$y7R%%iPEL}WL0tynVbOMNpdY^-Dh0+Use}BCA>HGZ%KeHswszv1O
zfGbGI&3bFybL_uC(EFi;#1%qnE7WMq8^y}^X8Tf1q%1>%U_8a=H`bDaQfj5IjCZGb
z$b&%Z1eh`=(T(6*37a<;QOcWN>u-SHJvwNA!0AohhSm>BkQo*1MH<!WOPyFGSWq;>
zuR_&YkpCQjAf`o6BFQNM(!j)*D~p4tYvFn_X#W5*iD0Y)U9X#{!1V_XEhouBBJvn5
z6$Eln?wABJNRXU$(5i5D#;sfO8;$|AB(8ZI)N$+ySGNq>n{Y|M=`APOl(4X!yX@i}
ztS!CB0#SLI)4Hv9?&-tnx1yK)FnRN!{f}S6BzFfS-M`4*KMf({Pu7FruT<9To`v*(
z-R?K>u%@2Gs_7?-((Wo`mo|fn`N2^{1B?EyDGd?ckjh$E(O9LeB1S{`Vfvv)Z{OAo
z2j_UaqGrE<XEv5MXiZ{4)l}kuWfy+FTm?5%mVflbJuX6;(O$r0Sub`YK<=(bo?vF1
z^bT^{yNKY83}32+E$4jK6@+=Z&G}d!zVrxd<90dokw@ac*Z>Cl`rAw6e>wSwAttKE
zi2V2)$5Gyz$-kb#YQOdcN=d44b1D4he2rD=Dvta4#%T5N{Xg}Ad4d;?4#9q%6}(vU
zqMPgYiyuaNAqeHjFDQmCPW1pF53(g}PKe&<^0hTlQ5`q9Q*v}T*EXMuvuOSB!1nK6
zAUyim0@X_t=O;&?UW~)$G%SyaZ`Tv<RjW3yt^_g?1#y9UK(nh<lf=U}XR#V63Sj?s
zt5-n|;cVjYqOFj2@EJ^{s7_ItTez8R%ZK~~HlNzt<W{UFYOe1IKOMnGGY<wepL1X=
zu6e(53^=|RNwf~C-ioODS8$@P@pv&L>>pwBpz2>Zlvc?2kb`J3qkJ1gyFdZa;*hfs
zv3mwptA^5`YlA}S!3E4SpB-C3n^CBj<KWw-b+UNf>_EhK%U_Ch1JgagWbsM!b=*kU
zlx2ZJf&+RDZ=D!a#ZX_&1ExJ5+pBlDr~~7i2UpWBxtU!5c*H)pK_R>GIm^9(uQ`Rs
zd~pUG_lD{u%uPZ_GQ5K25nIRI^L_k4-*wJUy{=Hsu#3=7fX~Y7HuO2gR}g2oaBx2J
zEMUjx(_JZtpM416hp8n^HP1df(5dpdOOYGZJ`F7&DSCqA%dx5$g+l+{dn3^8ze4p=
zIHYpsH0;ml9JI~_6)5(KAo~KJV!)Z#VVmy@zZd=`I|^137PGo1XFa?^yt8G|&0q^@
zb#}fD{ic{_!2L!|nq}iUSZlz#OOG+`Yg!dP$M$8-VeW!zyO0G;S%S`$ZJFnmbh}_P
zWt`QYK53T3*GmdP;nvp@6fPmuq&paT_@5z;@_Y%XQ>ZC&uBqlEE6#nqafv}&lU$EJ
z+BLi-P#-9>W!mQrK&?cqe0+xJ#cwMfo5A2?E%rgzq*ct`HA8egmR44CjQueE2d(1V
z$J4_Z!zQs2pPYMOh66ZW0=w*XZ*B8oR{}#g+H_ST<A2aalyYsSmSjt4=BF5ZZVkxf
z(7C_=1zL(C&>h_0_Z-Ww>nGir@;f_`VZv`e3H}2=N)tXDqZOBv)1BD1(P9?F9Jc*W
za}lH9nJ3S^A0HZ3p1B!ywO)D-;Gj>leK;?jW{x}H6~|fEamzTmfV*I+fC&`l2w02A
zz<~QAU>&l0_W1DLRUCYbcE#9ZIxvgS+t?T53j%P47|m;jxc!}?68t%M{jCP277By_
zQS31}2HOD(jDCh?7KF4?<Q;pfo58XNj{*_fW6HYozH%7bq9>7<v}yjafg_%BVl?g2
z$2LrBE3f;;C+Ch<pr8h;Y82N1X~fQ#9>6246uBIv+%G^NHHfE>RDq&fSlCf0YIClQ
z<Fc~iuTyfNEUp!%7*r9(z=MgHpq9LWJpC7^8b~|QbgtY}+aHY5<C)6`=v>%DU@Ba{
zG5I2X^xU)AhbG&I2Y?-Lz-s90{)GI$_#gp^HsP^S;8?_T%b$c$7nm1FR(_+SAV-D0
z)bgLPvLio(y+tLQ0*~GHtp8_1kSqk}GWZA1OS&!n5ti)#nX3BWJm$HL9h>Lz^bZOM
zOq9Ubzjxa<Ji6~FzLLAbrWH%Fpw<{NSB^oT-Ne2UJB!ZSbuL5MMMl1Bcv8{hJ?@2<
z>866JbbME3JS$dW96iLO$}uGM3$hp?GP4+>Bz(9RMcAHe1OZ6f9FR1>F1yw#)?9X}
zO*X!!{IKM6{<q+L6dB?Vt>9DxAUHT1WC>7)j&)V3JheXlNqY~<-YOb~riE9Us??iJ
z+6uY7yUQ0jv+@k6#s_NC*2~OccB8Oise|f@IAkWq6gTP=ui-m@%sUq6n@CEiRaoIz
zd9-s>kjvkZzf#@YfVdoztvlURJ5bJ|E%~VTK5$uNyN%>yiX7&vFaSLt&M6tp-Rt6K
zFuqt?pt-*A>e^V<D4?=h9wTM6hYK#1TeEjzH6k-&6nq!L^bI-vn_JbL$Zz5v^>!QG
zDJIRIq)vJUTta%FMCv*dw$1ign>&X~`3eR>GJq_pkWhkDuc-`TPE~A~rI5DDz{#}`
zd?5H|s%%L}E?K?nz7W?1x0%gMN~4FgXM;Id-6}?!H;uSNN0a3Xg5At?xK3k^G_ze+
zZJUQ3?VilH8h#X70Zoohi*t>Zx5A^PQC5Wn%dT!`y+_Ju71&`j$vZ{9`@@1}R!|S*
zV%FATDgTuG0^-=2?fZ*90loPvmGe(1U?Q_I6?noGMB<Nb)2#_%&LLnMFc(#4ux<X`
zZnhOYXcVJ>ZI~KN{SipuwOtBlSv;0)6){a-^e;e}Nu-6sT>6Pc0c2E?8b$$zh~s~A
znrnoakSba2X@+7-7g|k{8b^F@AW?h}_#v4Y<T(a8{g|89Fq!7kpfAl$cxMb-9{Fi}
z5GCpchaDW}L!J0~?lD$iO0)c{%NE^H+>jUR{<2Opa^ev-8|n~%clc96y_d?DsuxFl
zI2?{oJbKrhHN=Vh5=xDvS|f?04XH>`1XL%T-dz55tKK#Hci;GoHo!g$>T7123md4S
zfnd;2l+HX%*mPxkS8vxkE8uS(YrGiP<1+@`VbyBm1_zi$uGu7z;^gH4evCBe5kjzW
zJnODYc@DbE!=3uP>?_J_{|#?!#O-}$rqp~){&*7DGWhYq2Zl5^YBHd0DO;*r&8tH`
z()}=^QVgLJMTpy=4xC;M!3uaI<C|Z<Rt}2H%Z_PZ&HFprl_L)u%qiLx-BH`%9&U}(
zMw;`}b=ANga_vSsaU-}rwN^(LHht76>@x+uipDXx<{Wd<GjsvqtARcRK8-~YV}&HU
z9Z$7NXd<Dqv14&?BkfXfZ|(@thM(dwpvCyD`kc;GbkIMW(U-he9U)js$g(63FNSz!
zM@idKabn5nntt3lT9dv+&wyZDUhG(x-A|xZ9p?i%3aUFz@Ew456=7hwDo8r&fKqrY
zPv9vIin_A1VsT$l=jH=;9ZG7Z_2?41i85*PKv$diVb}BIEeQH{k=R|MuU||IKrB3J
zLjf^Z-PY_}LY>Fqt-c8Av8I$@F>{$0%iW|L?{h%gR~trMr<r*MDz)kvZs0|D`XmX8
z4auE(z_f7t&iWWk!-P;lNH1J0Ifh)B(JmabAM>KtLrCfW^Y@Ku86^3^{JV20KD=!Q
z!jfRMZ~mblpJPs2|Jzuw76ezrLka7<;*O1#=>%`q1;LQsX8tY3tO!i)s#bJE9AZI`
zbs%8(#@d?N_fj<!$^n5!OeXC=1e9UC5-J7jmUyuhb$hzrs>w@)=CTAQ#-268Y2jQ`
z6~eeNyFfl<iXcB!ipO$G98|>knWb8FGFPiG{!mb}&Bl&jDX8&<O?<x~Di;AN_9^ed
z9E2uzhZQB2zsi#WDN(9SjbO^tGmg&z*lq9czMtHVkPii+eJD+i=!tKx-8Ba_IIl!B
zc@w~>&_5`rD#=I_q<Xq<Y--@q!Zfp-`pf~qFkicG@R`d)h}Nfx_sC!1WppJ7+;j0u
zb1`m{BoZkhTJX%CBq<96_Xuknd<J5F+%p|E2YJMt?7H;hbJ*)&J!{<6-omcR&<Q7+
zo<Ry6gp>1(5Z)hxkCQ>l8a(r^N4gyuYfAFBP4AkGx0A^ePX#7N!h>gihoh~+E6Di{
zWxkH=YY0p++!?eWC?&Xl@XQU~A|uoy_jkb&jaQQ(<}cVAqlz>OS`TPQIv5x2X9Y^F
zX)b_fBsRdHNkD@-nbi;OiNSsyBk5wfanElG&H%K6Mi8ilA!9Yw1OV9h_xvVcynR2?
zU$5im{rLF?es<&MCH(CAIe%|&BtWTZ^ht}!?DOw6qdNX3gzM>$T>eftq=wWSwmZf<
z1maw8XD{iq&HYQXv$OAB{&*t1LxGy>xh{`$0}z!NO!HGigSl7u>-r)uB)t;e#8w2)
z`K)G=nCAHA7VZb4hOMJ|W=UaKmEcU?xA964?kMp@o2l|@CuRYhSaFyg%>4+eae(&-
zg0^0U?o>M9W&n3moJ!`V$4p74^q-$4tx`jM<Rn4`EqAg`uxxXK;}d{$FkA(mH2CIT
zBUZs;_8=5c*#lDvCyK#Y10`Q@Z|~d^o<G!t)))CfxM>*ILe1s=h&%w{fy8_=A{l)A
zeYjo1u$3KMk-px@!kDt4=ZF6@+F)Q;jO(-sMpT$h*#=yze@`}=n+TY@Kdv^#sE<mC
zSq&E{_FLZ#L{T$vG`rew)GsC2G2I3smd<hqtgaQR5>J88sPG#LvM;h~2oehS@9IF<
zR{lD;)1wtFB?rfcG{|2g&r1KGdcig#eD?FShL!mTt^V=b9z2@^^D?Z(b3Sp06F=|1
zS=+w=d}rGM!qMil=wQkXp`_NIvcH75DGl&v@3#64pOz30-EP1LhQMcGNUvUOPUTL?
z+!V=ZC3uOtMoIb@tyn_Aiudn5Rtd4vEK2~dJd6J*jZ&ad62c&mVgHbQkECXi99G+?
z2Ixm(B3OovYH~fAz@_fju<_d-dKMW}vAHI7wo$Yw*N+$9$U)*KfqtRSls|^*Bcpqt
z!*88EX5k`t$3@Lc5h&OJ8Br~!ti1<hvq83M0v7iIoe;k;kxuv1Tj%{<fd~z}R|q4H
zV=Ys6`srKHp$<ZiPtEvsBB@o!0I;Cz{5?B7+do^+0z)%?U>Zn=JZIX&TZM$9(SLO<
zN!wT3Y>`sj`Eq+5z>^X6u3EVbM4p-&-SLGykByQmU<VZd1z$i>=VAZs4Awt>$3w?)
znf*Yb7lGxG*nSw%x0#D~7Q${X#2kTL@K{k|Ux24et%gm6yYD?&E93Rpw;tyN9;Yt}
zpj0FFdXV-8E)8&Nz$H7PK#x3!g)-iM4VaNGz)voxt|@1J&UofSy-Y>Q9W(KFA^%&&
z|DIEGSow?5yP5TkISX>eXFSxa`rB9ZLN;E&*YN^VUYNC_k-o2fsP}JQDX+|~J(4r7
zqrdqfGJH*R2>t@jfV1MCLE+!FW(ir#vzCO6S;ArSa&u{`(aa8K0^hVOOITsdDm`Le
zW@Z&ebLo*xq<yw#tFo78FKIAl3x_SsEu}uAg&j8id|9^OGiH|_u`IJNyi|I`G^J+r
zRKEZ+0rc_<RKjtU@X}9JMzsKL2NQAnS#%9ZR*HjSOzAdveY4w;X$^XVO8s-CAG}LF
z2H#qy?wjf{jo;`oWTnHu@W|hOhgB0afM?HJb9SrV_wU`rHac_qKbl&HQ6vGgOi|Ln
z4s<B<U9!><t`i<WECMoIP|dKMH>Yxl;d!LK<<(4lX|;ZBVLsFC%-E5|k}ClgghCW?
z77?!)a?D9Nvnc$_iKF!!{d<15f^g)Ua+vZumAN)1v-f}}f7`z&2g3S<^F_KHB>-`m
ztob!GEoAa-_V1azbKDJmkKKR7FyAx(&S@(Tea<W_Qh#hz=GfoFGx=DvKCa%AO}vL^
zUqGs$Re^u(`PCnTO74WZ9YU!`SQ*eu$gD`qx|_AREM>w175e^W^1uVoWQc&3`p@%=
z%Ui(MoO&%n{0O1fay|}THRQ}n$}t0&@W+p<$M0BHiKA*fIeX%_hzObmaFq=F3&KdL
zOp^-{CpkU0Ng`Sc(=J&O#aox?IeuhNpd1NBr(W-tE?npIfwtd=<J_x2VJIEcobrJw
zZ$=1kdFVJHb?siE1=rH(x(JDVP@!&pv80}w35m!aNA^hU9L0Lxd-2jeL&k&d)c6XV
zX^FBO25Ih9@k4?!lfbI}gB=JBr;dZK&2=;S-q=~i{|_+hPip&19si8r>cUF2@#Sx|
zuJ=D^U0{OXUI6rPb7WPw9JX<`3tEDT3OJe4n!FvSZ#?3In?g(dy+C;VH&*csbOe4^
zP3cHC%5Hdv`&4h*9pWXI#xerES#$Q#y2tj9$Dw=g0eu1=M=IfP4}@mm%n2w&qWP%X
z?9N<gh5HDP;1Z9mezUe;ldr#l)ZeN_PsrgJbE=;Seh(D?^bN_9E_4D>^kE3}f4l)}
zcrKt`5eS_4B;eAX?R&AqL&UU5;7%bWLp?43jtU5`+v;=7F*G2n8scH$(l+q$QyvnN
zEE5Lk*JI9AnNW_vGIxu)CuHB52pw)RH|jp*Q?-7dl7LgsWJp|5b0rK%L4{g6^)jE$
zl#u=ia?8$4_6KKX>W9wE{_%sED!c-D$^UUM6H840Z?%~@toL9Jeotk95LH5YPFS2q
zlz9exWDP(lD<rNV2SyUGFu7@`%cbr|@_{;?`zCzMkqFC1j;7l=yMZmye;}H&uCW&q
zM{tw`Bsa#w8oOruLD#R?r?{z`TQ&F3hqKKKsQrCMoB2g=e7LS(o-THs)%+n?SKCi&
zWa3Nhybh@UoN8=k&f2({6Ta4kuT6>ST}KJzUY>fHe@uX89l?mJ#t?SzZDYU3=dcMH
z*yFJJhGqcjVm*T`*HTClB#^e=;$~2C`n6Wp0D=UH7<L;F)bx&N{Ra7S=I~6`gH@VU
zjJo$kqFfM)G(ar=Bw@63Z*=*n!bW~|n*8!=R-dG5^|b|TQsx`&sL!cn2wtB=UbwtB
zqn^BL%vq_K<DGD})AhQMCe^>cBv#ezN|zf~4`=@qrUbxmBIlxRwO(d`{m<+eS@dYb
z0cjMuxIVeCWaBIf@b$B1k9cOKCe6y>73H7P&Aklmp8tVRi~YjCCzCxl)zSN(2C5}s
zP1(N!Ha*1V=_Cu%T)J%OI@lvgC6lVRi&KI1lRVC<7L{x{1M*^|Bw*KOk2w#D8_lDA
z3Er_n(hT&rVy_BbwKTgD+M2-0QZdPuTrbz_#R(0GQkqKtRzCLg6SzJuF7)hc&|L-%
ziVFdfd2K!`Et2z5Xp!C9%hKh~Ao`Bc8P`1a?|mrd-<!S(ck?k43!w%lHc6aG7|$SL
zkgm{b)r+$rsZxE?Ccis`kKPYAuRa@co2u5B^<=Fcc}^6K#1GaWEHR#`KG}5%Q{miv
z)CTS>fV4&ZY&@Jb2SKt&zgW$MXfkI$OUnpp&t#JJOy=JuL1tzm7MMzcU^n8cpD7?b
zig9fzY(-W9z;!+>l-gkP%y8H(u(KDu7(&<_K0XWj`4GdO*}mKKX<z0#I8n>kD7*A`
z*R4b)pYmd~$C}-AHYKrm0hGUS-TJ>~F(NNu$a)u4PdQAZ*1*%y6*K8-QR7YAHl-Y!
zas$~)q9lE}*1F~SeAAI~?5)}!`62dxd$*^ckT=UWlzwAvq080^;=FiI$XxC>W=7X}
z^V0XL_H%m|bS8ZGkstaA^vI@h@&3IP!eRZaoLZ`NW+3Ty7Ig^}K|xKf2n|xW4t!cv
z?5KQnR+(!k&2c9K9oGXgj}wNbkc3)@rSitFOhbY^fAZ7`zexcV(QB3=RbBlmyk@!e
zTK15d3mv70%dVG}IKZF1@vF?K?`GcmoO$ZI=3B32omIY@<_jDwyuKc-sssV6r*I5m
zpv%EYUGeWFkB74jKC0bQ8la-mC{{xH+Ml`<zxl`wEwvoKm0{h6?DQ?fNft+(h%D}#
zI)ka>h!fa1{Xc9Ac6w&Nqo%DI)8J3(?w@Al(e=%HHatDk7yr!Zsn4kY?%w=+OZW<|
z@K*UEgoqBA*s>=)$jPqP7n&iT_!cpwsgMIsp8DvoE+iG2m;X#Cdtx5S3}sK;_Qc#L
zJczxP8FlE*KBq1<HbhVg#Vdxp%OIbmW2L+wen&f7_p0{Sx=nz6<Jan;p6jPSB6vr`
zD7>fMe!+28AahB{)<g=cVp<6{()c3bmg3$c=#wqmBbTrcZ}9IHp~y*V80J-j6)s--
z@>RMAtw?uRPOi2ZJ}CQ&-K@p);YXO_3H$dRtv?I#cY$c{Z7m$0?ZwieQbQB|AfONj
z`x1*Es&pk6h{#)kH7DCMsYryono<ILBQ7Jq*E@Y#l+T{7rDJ44SPD_;0@}_|T<mkI
z`gaVagLb$=HTN!_oSWG;;;({=^%$6f+ndR}8B0wY&=(iD80IMe_c#?hNi_?{+tfUi
z`RmSqmb)->dsO{A<mFh{$eO8edkSM~P^BA$IR=&LgOI5E?~V9!@=CobJ;+~7pML$D
z>}mgAHz2^DudVb6J^Y$@y91?@rs7$0<%pc$|6O(mxW#QFKAv%J#Z`BW^}&$1+}FXW
ztfcy)Wa>rUaNoKgs(wL^4uIc{%}QdLEBJfg>u|yX8*zw#?+zrIxNRkpu;Ae%YH(TR
z2jPZC5_`n#|L+e12*t!e$++fZIH5d%HAPz=ORL%bLeUs|vsJ|=kCda(KUJvPfD(nk
z<p$E-tB#bXT@P#3>0sb(tu5~j6^^+`vey>5TmqPBsnK#89S=$H^fOJ(Y|pySkCgXo
z7_fBskM>f45Aq*)CGFY;O?tHHh3BuOM=um`iK7$1UHS$-qW@>S)c-5xCp(#-`73`X
z<0bl?KG8ok(AEEoAAB@W-hUyT48JC`RuykAv(-KP)(Hp&ys`!>YN^cCoOqtE>-6W(
ziAyYcMIIpB939jQXM9;FB*Pjvfuzi>250wI%w2pCE2^~eamraD=K<wp11cHa2m8!f
zW{5yLsvqw<Zg7fP>uKar&y$`rf|13+&G@vITrL2Wp%&r#yP~OUG!R7*Z8)7n@(d_X
z0l=qJ$5*cBa3VN#&cbhb;=H;iu~yxl0G|$GDkK+UIr}AZY#CTqU86!4wYjSbpbQd0
zh(UeD32rKJ6(p1bAp_c5y<9L3aEhC%M$#=r&U}>eGM+<rn>ajkjG$_Lg42s7Pf&63
z-Rxbpk{PTgqyU5&=I9ycQo&=NlW&$k&KgePuH&Q@+I6}zJNPHI#AFOE6~KW^>2<w>
z{7*r2z5IFSm>v3z;7Cp+DB0+bI#}fu^{%iA0Fib$6TO((pT)KebUh2$%Qdi-MqCMi
z8G1y~@`tVw^?|OZ62_=B7sUcx0P$#-n}cB*`qEw3qLV6b?SZvbF2UmL!ZIRGXlLa2
z8zk^CWSn7!>uSz$wl%MY3Ruwoot)x&YTU&;!L$m4=e-Oi(Bt6A3hAB>nP^O;i7j4T
zH!hweBr{3*i-%j^BiS5E)6KA~e73j+Ijww%mPm#OaO%yQ-T^S;Wl@MfR|Q>zT=BdY
zA#Gja;`4p_e(~NF=a@BNH!LaS&5r|Y`4u}etIK<8rmyw-_&FBqzEPjhcBNAw7bP<?
z_}Vh0hC1QgQdTyU@!|CE01S2CZ~&3ZTxnyTJwd<WK&__oCuteYSD`kb*{0c{u|GRY
zGgmCx(2!ASOB<8&K*fO)!CD6J(7&V5@{{<r>;j*xow;OrQ)ulg_d@ANbz`lNVz&G{
zCV4HKqCL8Y`<&<*zY=?0S0IwLMEps^QsyxM%Enyndr>WkvMVbmt*>?s_c$GQhaiQr
z{qZ9Yr=1RXG4>I*+kqq?o9W&FfRWj*^P7AC3K_|ytL!?J*zuXXZCEyDpdbWe5nvO0
zgjC=BevOqDS;$r)PYgbyPdwIk$!-i%evya!-G`2xARn}}(9$1)Hvd-ib2<OWi5dId
z)%36H96&7Ra2?)Tj<S~L%HIC*bBdu{0;rH~DT$alr+>_yYR&hVFJe~(rcTc_7Rzo1
zkWbAVy#XK8h;RjCOsamOxJ8VB(c??hxn^dWa3vnkO^!Hg&)1BcNZZ$bu%r>Van2_3
zkN)~ZR`Ida^kmv}{6I5f7ZtkuPozJa^(M_0_kjpIBBgD1V2i-!|3EY4BsPPOrztCR
zWowVEg-^32_$Q=x@2)$BpcLE5+Zw=e<EeKrmvMHst*)QEnZb};Cc22+B@jy+IY#Jz
z_f>;ti}TpQD=-#sLwlhDhEG~u2yXNBSiZ^q2^F*mSam2wQ#g>F4|qTp%^6BL=X*T)
zw>63$pLAvWjVkcLlgPdq{eK~Bn=4`*;wYGwBwM8|5i(Ud$<`?lN5udd%<Gu0Ac(?0
zwrWQ^o!C-2dw{G#DpJxTX}OkRJQcEL7#efqc;#DiujOBnT*v*e7->j}+bn3$gjHMm
z$(uW}Js=tMSh>_?$m-DjLa5&Zvh1z^?oT-a>R!Z_^HKFC@_V4*`27eVph5zOq-3DX
zlb!3R#tLM2ydg$Zjcq<rrBPbX2|?{Ai!mp#8$grAS$En$)mCTjbvI#t!gY!3iyuMT
zzKglgiHd?sPv5@`aZWgAXImqqGK%W9=7_KBT*S9!z~3BJb6Xl}ciE1VD*8U(1EYOb
zXr09W2W2Erd&5=&h@A<Ln^6IrerPcFi>ByjA@b8CyyHZIA9#ISzdF<bm@`J%)=pF&
zHN)RU54DYy({bUOs{1+SC|B<_=VRhpjw;zycMRiKT=PuH14qhJW8KGamRo-DRtPVR
zcK}p4!`q3Ct>g8AW_cUv!q(&f)FwQBRN~iGL?KF@o)JuT*(%2{f?q*W__XC?wjMG?
zOnW%!=^7~-8%MRE`^$=$CGY_4MAykLh#fx|;s(Axk~KvoDzj)ZtVaJ!rm%j>dz>|+
zMxho}n@B?1O=3Q{vvUoRY~ZlC1pK~E9l3l&2lZ=K6Vr~5w!gC<R8(rs;_#H@lenKm
z_Z`=|#%vPle`pMCq`D5VDJVI_tqNy-@}F82?n0JiF>fnN&AS@EB+U#HAJD2@9kr_o
zV+*3B2jHU!rRMEI1Gh?Luq(tUQ>+n}pac%BEqaz(m?Ca!My~MoO4Pl?g!VlRp7Iv;
zOr-gRvJuRrSPkKNq0Q^A)hql~wpC%ahH4f|9D481w!)<oBHYoxV65saJz_WEU8&7H
zvMbMcbfuG=3H4mp0r8GGoEWMo_oa{{2K2KiZ6!Wf2?YSnvKn`X+$h{@43Z;&vqR!J
z2O+f#Nf6c6%UP3vv1mJuq5jITKC^q3S1V*TWH?4$>Q1M=Hq;+E**-|uO3zTthb<3E
z1yGFWwxULFnzeq!_oCU19nCp7Z+Iz0RR#P|EF*t)*aKfhz5J_F=g_ZwCPV8Lmkq0{
zDgg<!Xc#`CUTjK<@eB}H>ziSZA&sIG)DS=V)|vdq#jeY^bJvUlOHbqg=GjE(MoeTM
zM3{`!YM!>wM*DMd*St6D%>ukMTB%BJjBb?2w;aSQK~ONN>nFg;Jfm(YB~I7$6OdcF
zePIA-dAhm;%Y^YFa=JoKEca%wYzIrW=RGl!aWgOGsD#Q-GJs0v60o|-$RZ2n5ft|d
z906iq@%%KYteNHW><+|v)s5=ZY>1~@9CF=KX6FuGTS<Zn*LVy}+$ENIY>D|QGBns+
znbPG+Y(fVK|ImGdgt>N%*=;<Zhs^`}nysy-Z54Bn$L)vk_-eg|JudtL3a(aTofe<5
ztS1{H^iD~0e$fEZ!lX`o3>GI)BhgMG0iozl&o^b}XOM2RdS=;m2F*V7E-r;<J+~Ub
zr^ewDQZX}FHkOm2$wACYskN=l?!72}ct=a8Ds0cZu84?bj>9(%o;1XyEe}L|;?LTy
zAZeEwJk8gem6~DJqY+!7;L-g_&MFsTtr?aYasFQM!~AFs2MmaK2CDA0D1s%Ou1A$Z
zD<Dt5xwhYQbCVy6BN6XsC51)Ur>JsUuc>JU5SYK~^qu;OXxIQfB#0#-p#daELSNu;
zJ}cRQnaL@twAJ}imShP-HD_kSSf`DI5h!BM&c!pvD&}aBzYsQ8;C#9XpTuF=n7<83
zg_*DNeLzCVAEHiFo+GqgBztQg?!}h&&X%<h3dA+;6y)ZDFs+8&9olFyb3{TBRH;3W
zx2k6_V)om?AjlkqW;ULF8Mh?y+DtHUK)>xptdp?;iZA4FpKRp{v^Hp6b+_N_q0eF^
zrnbvpvI2_RfIbj}X3)^zd%6ayG)Y2g3?k1c_@(@71N!HV!n$J%$L2>n!0TFJSb^Ts
zmlXX1aJb6ZzK%L8qA4*@fxXva;(uW-%83=c<089mr)DS=>Z%epw>OZP!J0>lxuF3f
zB(%L^s7&wz;Iwq@2Osc3ik|xRD%c{aJ7b+!5LcT^pm1j$Ox&eDkSiEUC@IP&*=yxK
z4a^-Gw@y&>;TuLVr^9guwG;JRTjSNPR|8AqGI~`T%%JYYbPG#**r@47huoTCq4C~O
z@^-PLIajh2^M*Nuv6+=F7lw(grfMTy7g$>%d7l+@cEO{O$2IC&w7DcD3(~%>=9*D9
z5PG#@srX?qEOI&%bN062b(Khnh!%n7aiJK#Hc+^@Q;?fRkRs5kZuX4|n-?^@Y&7Rq
z#Hs>__7=;}=j%b}!5(9EgFKOZx@{{8wf#WPmRKludO?BoOA>Z}P%hopl8N}n+AKHL
z$21Tu3Vwp<&#Jns8c{bAizg8Sh<8^5sck`g0pF~8Jyar=*YCo36}Ccg3bSxQajMuC
z^w^<e!(0$E^k?5PrMSHZP)To$)ZbN}dbv!vmtwM*BFhPIG9jWKL^Om^1R)n{Ns9T@
zEf7iaxzbk2f3ZmExXZP}P#W6iCc4Q4Mvk@U_6RW8JuVS23a)`HxH;%oTah0vuTo>R
zVlMPLT}8FZ*;r8a`>2OG;ToVVdyT7f?&?%DFivB>vgvlRDqN*a(_|j&f}5nHsTeB)
z01Q{#UWK*@RFM(wvb1ZO<0fhTUUn#QwN%K?O&#m1^y046T)P<954WhUagsx}H;>y|
zoC2s408*G+WNawJE=19}q%{9itzd^|nZSc})3e6dDe7usNUxFl&dQSN>Q1aExcZqC
zc`kwum=tThj^coZ`g2KzJWgu(T$dEdF{LHNr-R2-D9W)VD4NICoV5C|Pk%NV%$J-`
z*6(UV=}xh^5FZ8J+>t#>xH2y8kZ1fMzFF6y4+D$UA&J8?(n^jSd90wd3eI-&{f1;7
zpBu66g#cWw(IYw$XqE&7pu0?L|B<B_N}bTLLJIUjSa7IP;tbn_RiRyNxJGDvAJ5K(
zhW8-#hD9d{S+7}~udn>nMVLxmR%$-1@&d;;Fld4TYF&9htTAWiJ1ZFOlrS*KkRQWX
ziO<BHmb+>&LucnEE<ummW-?QoC=}t6zI=&`B-4yhC}x6N#P#;@JkjUg9THo!Vt^r4
zX?{ZZLhNo~xf!X7_dJYk=A<%?W?40Hb#P7MnOc2^wqEKau&|B)A3k!N_JlLG=A|RM
zp*wCW1y?OTs(r5X$=O$tSCLZ3YJup(n)yi9Bn#<|ci#;9Q_QVng}!C`%U*1|Tva8s
z=d*dghl9a&X4mdi@pdVABRUxt)>A$NZ3Rt+(F%c7Wvw9s6bl2c>#FA)^c~5;h+%&3
znXdBQG_$nw6I`V}oKX-(gk~t-78Y`!cPEEhR0k@Uc*XKhZMbKQ=(>VS_N3y+L9!Is
zk@eN6kz)SpM13?1{o2tIwk>)zkBRBgV4t2G*;5f6B1>aye6wCAbxB1!MRQ!ZjGpV7
zQ6j^FOf;4}7d+Q_c?07|$P*h8pX};WB@}?KU#_tVfer_HZA;l}SR?!RIwhC~%zDyt
zqXHKSQmFQz7o}rtZ(if0p6Qm7Yas}_uXz85L+N(=z8T_Rd{&^gMbXEzb`@a<+3tp=
zVuT%Q3v@L1<<0OiDbYHumc9d}H?9Vj7N@99?W^6}P*Ic;0|CU<Tww~e&DBj<H9Zj%
zKw<~V3vu->K0;`HZ4n1tqotE%B%_c}VF?})^d%k?>QJiCO*pY`W0gRe+%vE?lqI9?
zWrx}q=X_&4`(W3Jxa&wcqKE7Y1*F?dYR;tF{P~GlQpvjKT9Q4#F|IuX_1x3rCrHPG
zUc<T!vC5}4So`?T$nTW*(YIlv@LUUE=={5wErC%crAbuEUT}vpk9IYYKMrEQ_dPNU
z#;U}Np@Y~7^M2QOE&N74_Vr~Fyp=P9kHM<61#=Lev#={)!(`=Imu5ia7}dGeV2}5Z
z-^ZRslVRJOn_K#r6VVekXG<hnm6(Ljduor;dekY%dy#h|rH|)}Th_8Qb>)7;{iIG%
z{yMUKP2}FDu`44t8L)9+KYC%0&PTcC<;^DpEs)}Za#?ME;ngzR>?${Kv6|P)Mtn8`
z8-NeKtIG&&)^7EZQZp=#>dJk({iqO+@NtJWh`W<~yA^Qf)EeYNh%71fN2_5wp8?Ke
z#hO`mjr7!}dbn{oA1J_um)akxxUv|t?F^`?u+4m~K;)7MA!(((p}<dbAgE>RE)XHH
z55Ty7v+#u}QnCW|R}>2ahp^}7*-aYBDTEjnOdB9&D|a<ljk&OsY%PF#vEan0CV=tO
z`bW4@F`8x0T;?RIvp+kRo}NosL{XPuBFzYOJ9hHecWDJuMvE<MtwGPl`df~p<bv7+
zn1HBq@F;_SHx92#EikEbxC@IL(UplH-FybcT#K_nHJX!47@?%Gi`6zMZA4xL)2*zg
z^<NyOs1R$n)eutpEzD=XPZ5&_*$*A06d;rQcY4@q*xAv0E)qvn)l-y*o*!24APp&a
zrZ8ENYlZd*awK9$*^;;nFlMcI`@TX?X6iXD9O2?#*Ro#O`jd=trZLH+e84oVj52IY
zv-OuuLm4l6ZRADe`Tf7?D}>pm{*sc1oG9{0{247TDzL0827SWvT=^xyUnMAPodKzI
zLXjbEY6QL73mq=RQX=jXyGo#bu$oXL70EtI3gMb+t}kqz(g_!rmnzny#*#rOUn{6`
zjPZPvWt-XwLQB6!n5BrGPl#JdAJG*jJRy^;Xm0;6w6(Fq{WWWtBcHIR=HC{$;|#6u
zF7dpg3`FYMh3^3ATEQ{x_FFMTjg4Rvz^TU^A?DgVV5ZgO##*#2a(>nx@PO<RNo{mb
z(kNvk?MG49-_?lfe%dcq7a|*JCSe%fx4+RN#pOlYkZ(oRrmafs<_e)xk&&{i@N$vp
z_m{MY52_~3kc`^W4>uK(;AU94eVXAOJLO}_ykZ(=c2EVym+?Dk+L|D;@pZdpyW=A8
zIkVPZccp_Kc%4erCgey_sB*5w{H!RfBI6VnD@Z5&6xUhB-pLaY3=(D5Ey%#oN}>8B
z;v+XQ?D>4i2K<pfU1G2bcDP%ER1&MI^p2ILD<}s2AIh=HRJO#G*GSj%4$XW-D0~N#
zM&1`0HSXl)Jp~}}6hf=%VcwUO(h`IA2lP8g10pT13s1DiNOg@iOrJhFt){9m-OdEA
zr^?tl;PxKQhH6O9NsW&^k8yE3R6*FRadr-MCya{~PzdQc2ZfQTv*ani%<9J{KB7_6
z3eB}X=#S9I`Sv&e`9$LIVyuapX9;p5s`_>Z|AG3qgVd&wkKjE$tiM^SS4|c)!;sD^
zu7Pl~daYg#8{Jvgj+7@}YlMm`>K_?xZ<KTgma1Ej(FZ~cz2_z<`XCO2c&y%hvakiu
zX39H7WpIfz+mE@;rBNj+r;6L+Ym{p=_%xLpB<<mn9)WBpVA5#1*@_IlAm<K{erDxo
z=o6W4P!(z$P#1JIj=JW^g`xg}hP;`UiR@jdga|5#BVul+eT>{VCL{iv9q0<d6$SOQ
zs*64Ep$tv?85=4_<04E~K^B3|2y?}+A_5N;QlyPPCDMZ95i_khV@i&I&mtCLYIb2P
z&%aT79fZ_E%5#!&pX1f)gZ6|9?E9e2dcBJ>;vQ&`VviEuf?di6foJX1A?RL7w^k|T
zyYnA)V1C+QmdBOP(lMdm>bb2!^<_>hw*)&?+nST@X*gz0!BtoMh|~LA&h$k_oaZh&
zZSzU1S6|g^ar0w-G;$&pcVLl}<IG1D3QtF<l#-51@UvalP;fP0NcIp?lWpMRe5K}9
zR@{E5(q_P3LG^q{ws|)Bc#J4U8vJ--Eiy*@+KOuCoIfdt8*#Vw^liUqpsETY9&^i}
zF53kX9Wp9ZjncN=83m!c{YLFRyHGNK7H~yQI<Q{Zulid$%_VYJhuYaVtv=#wZmbT-
zvB(_~fL*XhM6|Xu`%sO#0&5lYZ;{uv3q@!h{%j>YX)DBpNZ(!3C|9?gq=%r|Ep&Ws
zol(p8fy7s%^wD`dYNCB(n(HEVe=gng!N-uRLj`W_fx0wQS9z9)%ag>lDfvBWMlf=`
z$P!7?%9~x4UGKOI4Q|ZA2O?+_9p!_Sj3&NsC2a?cEdyndS}g0K?&hhF;l7I0OG<jm
zeF^VDlNZ*yv?qY8+ViFQ_{<JbRMw{5N&d^MV0Il0Z0{_uBtjmOs;;&VWInjS($;Nl
zVXl&Uqt&g*e~=dt>dSC*00ZeXX4RH_$?^ro=-S0@Dc9KtrJf3g+6=A85tBUaiD6ne
z)`u~*<XRKF-OP}G4`W9J5xmE{p2|a8r|_QIJ62ewo>O@fyBWI6zUdKiMl$EWzzRzG
zazB|37LUmgbgNF*Ht=x+OWcLnk7^Lzv>}e+ISU)A3J`}t51xmeaa>`t@}FIhG9uwt
z9-UGCZuz%+Tx}ippLGdq*27OvynMe|{v_1G<|kLVGg_|`mC`!4{FR<h*Zaz@Xr9gb
zvOFgKHs8?$JfUiL<YLj7_~Cr04MUp=6)r(87=yWc*fMDndU`d2(jrsOO6P~DQ+!4!
zEdb0FH4)u$WmaIT;L!xtBa_Z`T@K@jXw$Mh?XWjS@{`yhQ;SLE0p$GAn~;x0ZxU<d
z7A8|&s13DLstjRtU_T6!>IfWk;p_%1#23_FTyt`)Pq1Off$ASu-RwG3myCYDZ&Qec
zQS;<|Q?nB5U#1*r*Ftz^L-5aN%b22q-E_(7(`Z*)k(DDwCD^es7b@l|NwFpXR3C9{
z9+{;Zcuk1bauYJXwfn^T0B=+oO2S(-!-^HDbxMj?(QYzY3VYrQW1O(>V;`!_u{Lt_
z0>QTr`I0JeEck`DDsiWJW)OJ@Db{;h#z-TM6*8dc1BkHu*M@2vSP6H!YQa40Oz_*1
zL1`~na!7>7OL@G}Ox%~a^BQ6qd=nxiBuwkF=@B_lj(RG`jH=`Np2;fgPsCm9K8;v)
zEi4iovV*IcgIh)!H#`aZRiB~tJ$55J3Sq}B1%b8A`BbAut-_QY4Af9IfU-z}^>i!7
z`P$)RcyO(}nf+Qt467pFWpm?gAHft=cXddl6$^}`**nJU&WAA@{Kj>WRza+kTt!qB
zn7_GTMBc`)8vFnBw}~=?)~25QUF>=fQd=b-M-~ijwE5}5W5_jz9F<@lRf+4UE}r1G
z@)a;Um&+LgC0nu`xdYzviB=Qe?_q2?pzX}_Z`5|!t#|SK2+l(*9qItYiov;P6w=ui
zzTrhK5{3>KGek<CjhR&iCqm3nh{oJ#tyWYRf{y}0!gnLN2fN1B)9x}pl9k;;FCbQ;
zRj$j!E_8=91N(<WTVozogmq^vpN0CBJx+ee?1hsfa;UhwJh7JgkC0LCsjmjLgwHN^
zXZ*Ohi*Fte>$kcwFL8wH-wKQ4EkhZ0QC<l}ZtN<ZYC0~~N^k+b)kd_V!4V+gi4plC
z<+Z7wK4GT6o;Krm{2#yL6+Dq8U<6ZsoaZY|Cg_@*I^SF^U=P(le;@MT%FbHIqG~l-
z0e8ap*wOW+*b%J1wy=suAnn1Z1@VN0b&>%*hn%_!epj@!m$$W!(YWNfc0P_+2_4%`
z*GJ>$Lz6ny&_E-CpW~deLygVGuCGW+=NWpm@3&eI-+jvNRI>WLE#xMrtcg9yHkAqA
z+ynENUCH~I+{D?`0*B;Fh^#+Xj?5l%e^NI1&)HnV0%Iz|uk5&?zyutXPl!Gr+U#f%
zLYOD?xI!JWeKhAS*USeuHo*VJy-<s1!2sQ`-K5Hx>Ytbk^BC&Q&USrm6^#Eral)l)
z`fAWC$zG0PPMqJzvpf^o`H9O6?wl)GCWabBdl;kTM%zB9#ZzDODI<WdE-E`02aLC_
zl|BUv<o8?Pai#S5|KQlx1Vg?AbQPq=a8|k#r7s>gY$v-OR-F)W@IHF$zNoirF}u@x
z=!jbvrqUJdq0BKk7<71`VZ^U;x{Z(#7CScB63&NJuH_mRjb1tvp4o8&Z?RMSnDh+)
z<74V{eL_Z?LE=}nJkdXWRchqR>AF!Tqe_fY#{o9gr?l7{AZA3}itFqva<`_DfHt|&
z39Ovu3*?t>^*%LvHt)}rbHlwIH!9U+;+=q!g;+{`FLq)|>x&a}sb%(cs!Yv1|00R+
zD)l1QN{IEyxlE(2QQgly#i)013K$W)5G9vMj!GZ-7@jNlV_g#Hno!?SdKP83?ns&7
zs>^6eoq0>Y^jb+DYBmt^K;FPDsxV7r0M*0ql;#~&7LtO0wR|jSvpuGpl+WOOH&=R1
zGwhvk&9A|Vt}3~&8CfwqSjfmTX^PyaWYbQQ`^|<;pg`AKlh1(Ih!&)Clekbo;;Q-?
zTOtOjZ)CAVkyG0nkXLo)PWD!zj!8;4+^-g#P9N&Z7sc-SGl)Ulh+c%5s1B=usarb?
zo&)uN^Z=D?_5elFSmRctjrp}}Z<BDPug*a}Ul~c7Zdg1aH=%3bF)05m;xoYgS4(9V
z9nIo*<Ud=Y^@V-uR5`==qn6pIRN+wDd0{c;9J&YLdZgiJ)IP}c1A_qAr$jB|)4U5Y
zK1DDM>b`gi6def2DN>dn+5>z}u0s`kyD81=md9ztMhC^061=ny^J~T~z8X;V;1`s!
zr6U-=c@96~a)I5exFRfWpjwe`9+zHLazm&9rc9uh2-$}=H4}0H(Ug|ZGI5n@^q<}{
zfS$*DAg=#*pi@xOp`L}A^=UUMz1|opFQ>+^$K#TrE1h*L_h4=1T1bn~I5uIPT^+Mb
z9tG?ge^05$CS<u5wg{V%FMn0NSgx-1qCVk_3?d3$6Sgng+LPRAGd|-&Jr^sAH_P0o
zv7ef$krLelZd6u*Vu2&EDu8jI4NrD>!|Kj0j%(&p%Qo}AFp)tX;?jn3G#2=<=ubPi
z=ry4-7)NQC2}^@{9HP>QGq`icaX6g$bcB(UfM0-k@AM81&vt5F@=o6=iK9-9sN^r}
zHp3-l!WTme;i$^kQk$b6_d!{jUnyD#%;jQK-v{A7L1Ztgqqy{+VQ)cK#lJ&X1tr4S
zptox~)fJH6nz|Ov4Y+etBuPiw9;pIWl7xoQ8xr4D#9Au_F4zHH^L=R3ikSDRojyCU
z<fk(k;xmdm$UV(tfq4OQL7oKp?|dQqDEK8<yWz(*l_Tk=NIRbU(5yQ*&_y^2qrB!!
zmrp#=IaUZKfX-R#MoT^LRJB_sk^70;a%EwaLo6%wyxA&bWr&f=SR@lF-Alx0vHyvn
zYPJ#cZHzm1`+$%b1m5eZ*01HffTTOulf>o5fP+CE*4zsD8Q7BD4VR+fuT>o;Qg)Fq
z%^L5PrQ&zYW0)0&4Po)zeQ(HN&EhDa$`IfK2FYbchOiOUSF5u7M(Zi{8Np1t{K$5c
z00km0%j9?rVn2qpVanRtN`j&8IWosGC#-Jq3Ps*I$GpgUp+Z{}coGrl6@J!O$DN)%
z$Vm}e_1^sBM(9~1FKK8fVqxGUGV`MrT&3=r;Acgj0{sk|s61eE#U-Ui!cVBZ<x*Ov
z`3;w<=63QP;^?Pr@Y9=fL7n1z^V2}S0&AdA_64Z0P1RnKIlJ65fV1e7dK+qt$(wv+
zc!xVuKDnzdx>Z=nTaSAw>iRI(h?}b$H)3ZR|0K=a|39ofst#Ix3mfcOwl;BM(bk@%
z;3TScadi=n+M!C&4BUOZ=l$>YyY@XVYk0jEdz>CVPkUqB--vdnh#3>Fk%Dl~HOe;I
z)d_0GcMrf3QUw9=4|~0<x%_pdQfX49><8n0PIWbq;sw!lmV5hbS%|r?=eDXt=8JAA
z|5E0lm<U2ua<C6Giz<asp83H)Gq@fURCWUYOj#Vt{2SHZ;j49m13emO5!&Nn9U3FQ
z8ypRhT{bWm4xgc4Ss}37SeI~|;tyq2j$aGU_s<o~yt+oVc#f^@KGRJ3k8ZPIne9g{
z;m%MqTbFVQc|I`z(G#(<^SFpdAqE~tnk0&7<0AeldpWIDrlh3fHq?PIYAzzOfe-|(
zP0CpXPgN)a%n+T=Sq&ecub+|DrVa2ndJ6F@q(SqMMkN<OaWhcRuVLOtG>Cd2vX9se
z@x8E$A_HVrOgz&Mw{BsBF?3YG-p~!%Cz>air+f^y6ufPci%4)Y{%%@mAMn<Ny(hV=
z(dP_8?IsgyRLF|3dpJ@j*%9i3wy{zDU5qy9_1~@_ACxvoL2N|zBEpSKwW<N5#tUCH
z>A!qp^o($|N`1`9MPkvmi0w`&>-hgyy=Cp8Z#=(gq>=b4P(jUzP!KO*PeZv8Tf7d0
z95LqgM?*)|8Mnbtpva+Qvs4}+#5y)0KbK_9CkuKX<>HB&3suxZBul{aLGh>jzu(XQ
z%PXh2eIh9&jn$6!y%;%(C%rt$&wFq}@GtVXLHG{pYA$VC;6Lkqf7jblMf>*1q6qj~
zBMW)0b#Bu7;pXUSb~`Bq!EWr8Z#+3-vJ@Z}t5uzDi`uCEi+vanTWaY68zCiBBGxj(
zc2PWUnC=17BUH)sfF6jLCN904oofsmeB2dANJb`wVwF^vDH9If+>;9alV<c?yS|Io
zIpA61dPa!qo4U>;a}`b-OE3p3fa<(aJ-8P6-;^(a7m<{`McS8+10c{oi5jcDEhq!w
zf%wrf+t+^RPSj#rFE>IuMfLoO8*`T8dh~G>CMhdH#*Q3SUdgaC`xr@;GUN_xD5|DC
zA2=*!LKvemek9Gvi8mj<9Q~I=UC;lt-1GRmCkoy<bz<Uok-JZKx!-u+Q9E|(1ZEkk
zl>8U}{pkeiCg1)Ca@$jS<BAaY)?bn$_tfuH(TV@g6~5!YLlRv1t#bM|<vUZ~rSI|i
zD`DLy(rD&`d>;SC+zI^el*f*#^go`Zl^vW-nVk(zpv4{~!z*Af&<C&|&r1u<zX4tK
zB_>`C0ZzkM+}!Z!_GiMj6bP6hOM4#-DD{+O2w$cehPV-m^`-_AXd9k2>5*-+9USiu
zhZO!23uUowmq`8)k?)i8B%3cjBQKOc7eB;&r?1d6$Q{EEWZS~vkrN630(qRxZIF2O
z#-{WvalcCttM_0XA{9unb`+@SmPG?H!~iwtE$jOPb4CzVnzrgZM%BooSkhB>>}vPT
znarOQKXhDmn{i!Mc5l394a8c0kqVq3NP`i-VH8oPls)E4u0Ge1jLhgn+d1H3hJ}ov
z)OKYhu9}pAXs1QQ?2`Kt)$KIY8_$L$i>=H9CKR!tH9apX$m4vLeGSApDKQVI=jgUN
z#9I5K8{0;K@@-YLUB#W4$(z~zIO<n|xAM&ztXHsA%$6rrQA7|mx)<T4#K#c09$=IF
zct~8eaKyhVoUpJJaq4-W2d&8UgZU0pt2)^=s5LJPqT0B*X0##(?y}{rp)@VmBPb&L
zcKA7VV6K2X4>B#iI5+ND!r3QM`0h1fXI^$mIiD|<Si*Svzerq|RY2%R5?@6$+C+0Q
zUQseyu<2dP41O@jXdg(=;|BIqvgOl0tQoZWrp9`%R@#z&(pLQdxY4NY3#7MW<jj%G
zY~-~HO=hpB60Ky@R)B*r-^sH>>Kdm8R90T8h&iq;46LRqlL^_?UxINJasq`%`CqSK
z(~~R&A!3o$#tML1ntm;#S`XpY1!I1{Zf9ny=GCx}dc7;yENSLL%p%r!-773Fkg=aH
z7z3xkP#TR#0{`hfEA>0CvghPI64_IAO@SDn$?Og&Z&ObEE7B|1oO2ZR5&z8=?SrBR
z*-TAlq3@WI+zn`N7u4ACm*s)tRek8Y3Y!iqM97N_pQx8VanWuC?8Z3bMJlMqF$4*_
zNcH0AQuNWNvT}$oz*`YD35ej|fZ3g(w$vn*6wBirhaAQgk=6zJA7=8??P01{CjMoG
zj-Caf`I8ZKbCtO~v1;{j3U5h57^5N?>g3se%Z)j*@H+AKL~Y4<ho>D*+dwaA71j%l
z#BcNw%9u6RVAnx0Vk5_4Q9cj*bU~dAQ+C(N$xUx<VEL!Ay1NLQ{bKM>^5?=ysNX$a
zqv}AtjGiO0vcwMqPl_91_wLiXqtS3?5VE`)div;9Jj$yVPg$D4NeobKZw}P}w^6SY
zH&IkawFPB$+(0-A^&Xz@F+reRydQ#|g!|n&>&Y67QWnFV3hPhW<CSM*F^GYPcI2!%
zWNN;9+JU+d@-|z$MsA@jkjFq?q*T6>=~^*^tzp4!sMOluV`Ur1D6g#bXOc%F^1nEK
zTJRsjg#IPmy^bSC#*mp0aKyHw!&^DxHMBojft8H#n)rNj`@v#uV5v%}NbHniYn%P;
zsCsHUSQDthK%R_I^v+^HKZso?>r92<E~=_6$jD5ua=2Ggjln2IEW&t(v*4->J$=O$
z61*pg^Lvb-ItR_T9&&CHBdL|hLK#bZjbOrQCwgLN>k}IgXV9#o+sUfja|wH?Kc2m}
zWYUHR%uYBvsiSG-QqDBp;&C=Jtg$xAWugLvne*<te4x^Krgi#CtjGbEK^vm!Iw_$e
zTA<u5nTlyS5--+{>?0q?g7GqEkofqh9qUt^=>$J2Pms>UY|`a74!|LV&)FO!t%ngf
z6s;{yN_`ynkC_C$e-L9sCOHUNEyV=##p83?nwAz*g7<1$6}$%EkOwAO31wOIMV!4v
zbyC#+<fxs{qj_QoJ&;CE3oFx}@4SlHNouPsy9|NzC&4C-kJh*h6>2}oAfBOT4o`c`
zG_atdIbx~@qy2q&O7VFVD-89yKIIi2`2tgde#}v7$OWOUyK7SmuqHr4?2sa7Zo~XR
zdXlJp3Xy&F5MOA26mvvkG&)Y}EJUy?wW?2$Hyoz*Q;CJCir@mut%kSK*G8^_vPP?Y
zJtL0(@>HvHc6)F=iy(&{f5w#cqnL`%_rwd65D{tBn>&!FA?I}5-#ZN#)p|TlVMS2i
zUH>l77{h|L`gry(+6!j3pvs4lDu6W_LDtRSPg$H5#g*gP&!Zzxjc5K8`7DR4PL%1n
ze(j2v#B%`Cb4{9(^`qFXfaBOOrts9we66%qLQk8G^=XNB#I9q9gR@jW!ObpaQeK2P
zZ(CI&tDS3vsWGIiBjST#i;d%4sG-=P?Wf{-v%*mKQuY<Dt%x#FY=v$o;okF$km0fu
zx24m(5U7@K&W_^xsS%SLp|MBLp0~ETW@>ak)e5$Z(%xbu6U^=G+;|_k*#@qMB`mK8
zM<}b*Y!a-SYyE~V+c$$XRTRfrEmP*asTS*S!iSJY1G-vdgw-{CjPR$=(Gki@j#X`X
zR4y85A3$x4Dwi=`1q6m(fF7RTAkm!68pM~Y&N$>6Ga+mdZ{1lk+1RYPP>Ki%Js9);
z;(Z+5OM7YR!zIWE3XXFdpmxRQ8Tbe{HLp2nk%;#RWPmrAjP(!ZSPDmycF%3JBX(vh
zhyox<fs2gFQb+U3Pmnu|5T6+<50G6<lEyY(<JI;l^qX3Q50Dy+_ui9e`*u~-E!#1>
zgB=Cr%BJS~5mB*9%1;qrvis(`PkGI?x#t@BRbxMWvr^!>ZOl5gN9jz6U?x%V-J1A6
z*I()e^Ow&Wy7mL;r{FV&F$Yqs0D)=@ej#{(O4XCt4~?IO4QLPAU#O}PQzit|s_%Fr
z8G!*ZK|p+rCk%AiRjeLk=<AMkRTPP=<Ik7Zo8n`Wjuk)af5>?Sw-;-2IjU+^$(u$?
zZ;(bRt}#f}i9|m!+;L`4eav|bksD?c`7h+cr`x%n^G}eMq1mtqdsM#W>#d8(ItOz2
zXeZ)Pjzo)rih8qldzt>br`s;o>curHMvGy?LD&J&>ISDrbCGj#CH-LXpTQpmQw!`b
zk{PllJ;Y+wz<-GA$Zr|O5MZP$e(y~qYvJdBNO}QKE~wTaatGo(cxUhn{B<gXm|fGj
zsW}%chbjnGhx54K;US>@=os30!$tOZOgLXOLFILG;R}^lUB6_&N)Z0Vfc+dI4Ydk*
zU{V068ig)vL!8|@HS_b<Oo5pzc>2dnff~S>RgE@1Z><&JbtqA*xC;0cTjWf2HEKIL
z!gGFO28K!%JxR(Fkvj#kDaGB8Z(8e4g<`@^1=Fn77Od(Mfc&lDSvFL-xPe)WBAPgM
zWwcCXy3S&hOV$0rbrqb5HL5^Ob`~RdYR=%vb74OKY~68+!Ez7gmPCMZOh{~fm*yJJ
zfYqlL?4P-YnY8Gb*xhy!8W-`t3DeB8A-(wF9QbqNDZn`!^DfYiKw*w`I8g^OFTC2Z
zRO}X<WH%Isr@TvWYzA&sDB6At(}ViPgvPR3&vzjHlma;n-CdQRXN}Vu%EuODqn2$0
zzdhb7z!QO@Lnmq)*yEG-#>-_MZ$TRn>Q(rj6?Y}cno@aN6gx4K&{<D%%);YXDZwrS
zrqc+9>C<LCYE{L!X1lhg_04*wQB`EHV(>OI<vKivotXQ49W}t|5t?N_W$G0lI%02#
z5%qyu$c>_|A~+V8MmdXh0LoxO8CST-wrW-p_peMX&PbjcLhf)T=fm^y&HILtvYvdG
zL$ktnl(8*Imm5{<?u%nJVpUho`=H6JFj08+4k%jaP^{aQJmK)-nslpIS*%Jtt-KST
zFCrOR9ktsQQ|u28r!6=xKBr{m=iDR~K|%G0N@bE?i6I{G@_1|Nx`ArxV0Hby=zW+C
zIS0{{5PTG^^_hFM3o*NTUwKAVmDpDTR*!&|(l4}pQJj{~5=~uLk%{Xn{suD`X)LHr
z1@ZkwtYe>i2HFwNS^6Lr?}?nYd_gQmQh~*2?{1~)E6sOn%1Dz-RWZfssje-|H&w(E
zhEvIO8!IrPdI2-QPAf5@VdHFYQEW<BNxm*>J2MFhZm91?X0zwzN_z_C#2Mx+8GBO7
z?i6&cp&6NK&TL2bPQ!d%B+nS?HwfQ-JKsEOkeINceyTNykE~E{+1g{HagMnkOf4`n
z64hGp?(DfYiucVLRCv+}uXYNmn>0T2Lg-ts2mb(ujZ_e5)zdQowpy5(QM=g@vSP=}
ziWfb4>O_sc&e^ulZoDk3lXoDKNUy18xXXJv*ZtH9h4X&ugjfKMcC7bI`zN*i#G{3I
z$Y}5%aHpQG%cvO@nGD-+<{k!z6{?lE8>|UsOHe2M<a<=V$?dW0wCb5=edJ7|iSG}w
zM_V*dI?;pYiv9f2?i-rn|GTrRjcMyT!`JpT5P}`dM|^!@%k?MM7jOeL2{u`42sVZQ
z4Vc7<#D~F{1k<LFrc%;mZCKT$B5k!KL`mBGNUK68q*Yp!sM^+TuG&zxwvi~E9J)%Q
zYsy-rMOuZ_E~>OW@3|&P_iy_VDMH5Fd+xdCyytnJ56ny`;dCdc(i;U6TaOwL6?&~u
z09EWPF)w;gMy#kSvqGpf;pdD~zb*>_-}=E9I{(EFHn>Xs+(~iSkt#T_-McY(YbrmL
zT~)W-Bkle<&VHy0aJ62nq}b1do7*{__)vQW%@I<%Ui7!98BJg!!m7@CnL5=-qM@EQ
zy7s^%GDsXaxaX9mcoX8)J-}bKx{F#`poj1PGdUaaSb@UEIp<CBn#z_p9e6AdzEQ@B
z?I9!PS2X(q@ET!gvWa5`uIK$vP@lAIR+?|R4xTAv!gk+iT^+S_H;m42=Qh1#V8Ize
zak(@w<j;h+5Wn>YD~Zu2;NDU-QHMslQ#lj@2EbBi`!P3v*2nZOdFY!DkBDAq45$x)
z$OMa<d<aZK-MV9Nng9cTzif9bSn<}dXS3RB=f`6R`DJ@TQHc@zlZA19z@?;}Lrx_^
zVU0BL;GYw-t)+Cb<&TkfNS-F&Ene$AK^oNjlx?!HxDz~KATCQd@l)jhX9l&p=Q@P~
zze4T|_dQj<dm-TA-=kU0r5|jk*@h_0;*NQ8Es)YBL#<HuH+RJBL8f7AKV$JomY(-z
z`zX#;G3wjmJD~?l;Ow)_Kf^iW6Kwri9kp-%D`w_1ShLwG$M*y4pOb+dcUleRqZZLQ
z291N(RUfGKuzS8c4!QO06ps7hyNIQYoC6Op?w;u;uKn9ySB5czK3|}Wy1)j;ljR56
zzy<X0ui2y9xF4+JiZnceG=nh}0mENk20ugaB1)FO1&mR<59fl$EZb@voq2qd9oY0U
z=;E{Qy32FFYJP4f!&)~o20P2ge2f2br+z1AK2BVB`rr8=a6~9%ZJhq?yDSEZ!ddOq
z6Z4Hlp;2WCf2WaJLNBtfS@NN5>j%Q%iF?{!t~0>X58f`pnC%sE<q3D_!H>q>7E`*Z
z^$=!am>2?7sep&L+?oqx?_%-*FyYx~jGNQtKJr~5$NK?vE1FWx$h|bb+=VCs&JT2a
zeR6-|leT7b++EPXk8hmmD{2J-#1C{I0lQ!4bRETS7g~n%F<bD)@{ftb!2szna2>u~
zbAhZUgSZonwbxZLgVn#iG0nNj#e?c_e^>H|;IVnax7(gmuOZuBj4m2;Qdu8~GSv;-
z0>HemXEi((>NU1q;I<)v#1>B1V{Hw=3iQFsIz5yKUy_za2ms;!o%u5Nd-L^Uf4~^S
zy9(nS-2dD2iMu-~6ztHUVJzceWPGBMd@}1%LQ-!1C?ccgEdWEDFJ|5>@o*w<dC&x=
z3q?TM*m<K8ynAwk8QAvl;DFX6L!n|@*~ejL{*d|C;7M$XLiMkXMt|)Z1B^~p;CPVV
z3Oxt#m4?Ny%`e48IZymriK#zdmxjfDC3&q#aA+#Gz)kx=W2&aJOJjLiTz*7BH;+`{
ziwK6Yz|UYxDvlssL0<}`9sEauOsDsyz)#Rv7jZX%Y8UV#LVGx-Dlv#uxwHfAb|K0|
z?813pH9aHD1?PW;$az!k7f}^PA_}UWTAIzK1Kh`A47>728;=*=s)@>k@HqOXLsB#v
zZ-GhZWaGLXT3;lJyyW8iyDhhYrZU8&AOw_r*_PGBA>67|sY1>F2DD{mg%eyO^MHan
zgNMTebFaj%%u>HgWdlaR;X2-a5y*QWx>tvjk_asVp1oseg>^sCMT7UcabIpQ#_qw1
z024Ti;l4CsC!Cak<+1D$`?~LCa-=AXK>5?Hae=*>Rj<v35_r$9a4k@1+NZJSYYJ(H
zE=n%-EP}^ziCux@y0f{IxCYciE#3;vhR2~XP4_}MUQrmaZkXT{wHF;*tXq#K?if&_
zQYO?5=W^FW+*4x#oY#n<OLf{6=vYpPD`Oq+P4V@Kg@GCPLS0DA)kk$%NA-vFrR}%}
z&VP6pW5H{m3a|9R)tbLvd!-n>a8|9M{>~WIV@0J?lv0PCc$_;K`MbDOKrUkl(NUAX
zMxXE8B|eQRdewiV>H5J-ZOuAylhHW~XABK@3j6cFO-0-p%S#gf*nH!MGVdP-(-h~S
zf_Ce)BIU32KGdoa&XsKS83o?+La<Zp&wIY+PZhlKs6VNEhf0CaDzzF+Jqk4n6zf(&
z&b3-*N}S9y=d~PUcle5;%4gS@D-E6i*dJ68VZ9*sGo4d5byNXgA<R~$^@5ys-%eg;
zF4XwcZxSCTn8SewHA*Fz%m`BMn!|Yz`~EMWmJ63r0x@w@#aQ{Z(1qG<*?V!0Aa)3?
z_u81VVookANV-uAa_-og(+DZ7vUWpzT%s_&R~Ux3Si55a*eLJhNnozkYRod>GC0i*
zE&CH}Wm-U<Nu(eCWN}v_c<_|@Voh)~ompi&+!i3Cobsvv3f}U+J#ZohKc4EOL*w{#
z=uC+RHABj|SNR4(ra$ml)4iy~`0Np1_V{R2f2{}WE|d+^?dzc-vFCm<xTtl-CGp$3
z<m*>VX3|nTFflWg|4-GMYi6pjxc8-xo-52jFTxNEcve4|%Kz34#&`9dHdKaqK0v2b
z&26Hk%T66o=fY-Hx7M!(e~5I!DrQ}JqDgfCS*TXHO88>DnipL&_f>tOb58lc;aWVC
zRH>KI?k8B1P4ASR>OI3ra5JgTi&7mG%TmKiGQI(o77L|n2Sf0Z$#~!y#C;yd?vipV
zeJ{f0<{zlt+z4fSpko2!eaG)6-%4D2MCErgr;oL3x8K8j!4yG<AiH6|I~XGVJF;go
zY)@io=e??24T8DMxk|W!u1F<!Q**jRfLaLwANVU7wGuOIJ+59W{DH6<8vBKNYyym)
zF^PH+ItDdQC8J9&<8A0C2`!U}UmY&)#EHbg#uQa1A)r`Qg}eO#>QWnKh$FdSyfKpp
zqgIYNDmx^RQ^mB+x>mdkSzziBb}7dEoyuW3huF93dnORCk-173J_ZjYpnrFV@uva)
zrtO@(79uI&R0WMLDi^3(stLXNVsj6wIFrALb5#I;*eQV<j}B-|MI4V}X5dpI*dk!d
zA3#I`^gHFLW}u|Oh3zRvx*-|Y7{+}0qz;A3HPUeCV2pLi;Mt=-H}GnJXAVzrK`D(M
zYy*%R;PJ$RfD6V~UU2Sqc)PO270msc)@U0}Ea<rsAA%HT=ubh{h+06^d~RS)+qxW4
zaUc<%?{9fC<bsFHL|vt_M665fXYt1k7Vi_>ZWqoGtk198>O&?gV}mms1Ue9UHl5^)
zMP1XJdh#kj$C7=fNyGTC==5Y15B3_IfcoH{0Hy-G383@U)Gj6>sH=mh9%*&6D7%6<
z)4~O5iE&uU_^^8(^9Lr@p-b>A@s4Wc82{QKH~B!JCfTBAH7CAD<@i8%h2DuvP2>{4
z!h8&7x<BCJ=#diuCQY@fP3I3%#7cIv@}^x<Rf+mP`bLzMN2Iu`igl;D(!lAS1q%mg
zBz94AWVVr5p-?i(8vk^k$KD}+Zp8Vpn=~8H*hmt1P2cf{w_J*4czOb60rVe0n%i7(
zjd*`&+M!{*<dM(`dancMhH%?993v&MHkp{|o9uNHcM28nx^fqsi?oB}N=IG~Set2t
zRK5*&_g<hEGRYs%%p>;8J`TL+dUQi>TVLIPF8AOVp9YH$eEi7XAoNN4Ot0Pt|4!D$
z_wZm55zDuNDUQ^4Br~TZRF?e#={{CXe|{j*(WvbuhIN&oNvN(XTlCY6qZ7<%l-9gU
z8hAymkDE~$A<7!Qbvk$@s@lWMTc#PDx4j~xhhdrwDy=+pfn^z$&QG#!;8vL<ty>;4
zzgT`&XA+k5dEE<j3V#p|Rjq=_eY#xGG5<I=bNK#wbjVfy{1CT&4ApMVR`;0O!a31z
zo)69f<yto!(Ayt3HX$vNl(|5iv>WMOn)y#gpfO<VCiN#(f)Jh$MxhvEy~F>$+Cut{
z|MP0sR7gzY$&|s~RJ9_uw;i`m2j}Dh3##Pm)4*E7$;<j*%75|Q=X}LQn}MEz@n(zc
zWz6WP{tfxl#0S{Dav2L&bpyG_5;cg!;Tz5fl5&Q0mHK&qQbU?zBX#fj9Phj@m-Dk&
zs;rPidiI<f@MsOQpI5eDq^DIAdi?r5<<$MxeBafwtEchDICbD}z*7O8CiHat=ke|f
z{yJsJ4g{Ok6?^#cI&YsJJ+_tI7i5i0PRh`ofuAo62q{#SEDRBZCiRRwHg**&PP5ia
z9%H-?-c{rHcib|`+*3{}!&nuU^yCBk7HU9C%%1xKsbgby_|3nG-<UZ9{xN?>Wlg_M
zseMD5({z&O$CX!<?`t}sC<Q)8Jq|wYGqk~TO@g`dX1w9Vrq%R_?X8Qo+f?j=Jm8q8
z%+u&7RFO+g#=bb4LYn@Ud;1Koob>d#&xK0l7tpr}s>c`h^?-Aa?<}g{8ebIXoKU|2
zCPS<DDz{_sW@3*{>An491^Vqb5SBwelpe5=KR_L<YD4WRGk`qn#?0<rxZa2PUvF7O
ty+3Qm2qG;7u5V&>!~$Nf>k(I5*N6%JC}3&pYq#$3DB4pMsPN{d{sZ8gPi+7I

literal 0
HcmV?d00001

diff --git a/interrupts.zil b/interrupts.zil
new file mode 100644
index 0000000..36d2b7b
--- /dev/null
+++ b/interrupts.zil
@@ -0,0 +1,273 @@
+"INTERRUPTS for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+;"		
+		Interrupt Routines for
+			PYRAMID"
+
+<GLOBAL RING-COUNTER 0>
+
+<ROUTINE I-RING-KILL ()
+	 <SETG RING-COUNTER <+ ,RING-COUNTER 1>>
+	 <COND (<EQUAL? ,RING-COUNTER 3>
+		<TELL 
+"You're starting to feel a little woozy. You blink your eyes, but can't seem
+to focus correctly. You think you see Craige standing by a wall." CR>)
+	       (<EQUAL? ,RING-COUNTER 5>
+		<TELL
+"Your ring finger is starting to throb painfully." CR>)
+	       (<G? ,RING-COUNTER 7>
+		<JIGS-UP
+"You fall over on your face as a quick-acting poison from the ring makes its
+way to your heart. Bye!">)>>
+
+<ROUTINE I-GINANDTONIC ()
+	 <COND (<G? ,THIRST 400>
+		<JIGS-UP
+"Like a grape, left out in the sun too long, you turn into a raisin for lack of
+water.">)
+	       (<AND <G? ,THIRST 380>
+		     <L? ,THIRST 387>>
+		<SETG NILE-DRINKS 0>
+		<TELL
+"If you don't drink something, and now, you're gonna be history." CR>)
+	       (<AND <G? ,THIRST 300>
+		     <L? ,THIRST 317>>
+		<SETG NILE-DRINKS 0>
+		<COND (<NOT <ROOM? ,TENT ,TENT2 ,SUPPLY-TENT>>
+		       <TELL "You'd better drink something, and soon!" CR>)
+		      (T
+		       <TELL "You wipe your fevered brow." CR>)>)
+	       (<AND <G? ,THIRST 200>
+		     <L? ,THIRST 217>>
+		<SETG NILE-DRINKS 0>
+		<COND (<NOT <ROOM? ,TENT ,TENT2 ,SUPPLY-TENT>>
+		       <TELL 
+"You scowl at the sun, cursing its searing heat." CR>)
+		      (T
+		       <TELL 
+"Even in the tent the heat starts to get to you." CR>)>)>>
+
+<ROUTINE I-MATCH-OUT ("OPTIONAL" BLOWN? "AUX" (FLG <>))
+	 <COND (<FSET? ,ONE-MATCH ,FLAMEBIT>
+		<COND (<NOT .BLOWN?>
+		       <TELL "Your match went out.">)
+		      (.BLOWN?
+		       <TELL "You blow out the match and toss it aside.">)>
+		<SET FLG T>)>
+	 <FCLEAR ,ONE-MATCH ,ONBIT>
+	 <FCLEAR ,ONE-MATCH ,FLAMEBIT>
+	 <FCLEAR ,MANY-MATCHES ,FLAMEBIT>
+	 <COND (<AND <IN? ,ONE-MATCH ,WINNER>
+		     <NOT .BLOWN?>>
+		<TELL " And it burned your fingers, too! You drop it. ">
+		<BUT-WHERE?>
+		<SET FLG <>>)>
+	 <MOVE ,ONE-MATCH ,GLOBAL-OBJECTS>
+	 <COND (,LIT
+		<SETG LIT <LIT? ,HERE>>)>
+	 <COND (<NOT <SETG LIT <LIT? ,HERE>>>
+		<TELL " It is now pitch black.">
+		<SET FLG T>)>
+	 <COND (.FLG
+		<CRLF>)>>
+
+<ROUTINE I-TORCH ("AUX" (FLG <>))
+	 <SETG TORCH-TURNS <+ ,TORCH-TURNS 1>>
+	 <COND (<NOT ,OILED-TORCH>
+		<TELL "Your torch is too dry and burns itself out quickly." CR>
+		<KILL-TORCH>
+		<SET FLG T>)>
+	 <COND (<OR <IN? ,TORCH ,WINNER>
+		    <EQUAL? <LOC ,TORCH> <LOC ,WINNER>>>
+		<COND (<EQUAL? ,TORCH-TURNS 150>
+		       <TELL "Your torch is beginning to sputter." CR>
+		       <SET FLG T>)
+		      (<EQUAL? ,TORCH-TURNS 162>
+		       <TELL "Your torch is getting very, very dim." CR>
+		       <SET FLG T>)
+		      (<EQUAL? ,TORCH-TURNS 175>
+		<TELL "With a final blaze of glory, your torch goes out." CR>
+		       <KILL-TORCH>
+		       <SET FLG T>)>)
+	       (<G? ,TORCH-TURNS 174>
+		<KILL-TORCH>)>
+	 .FLG>
+
+<ROUTINE KILL-TORCH ("OPTIONAL" (IN-SLAB? <>))
+	 <FCLEAR ,TORCH ,ONBIT>
+	 <FCLEAR ,TORCH ,FLAMEBIT>
+	 <COND (<NOT .IN-SLAB?>
+		<SETG OIL-SOAKED <>>
+		<SETG OILED-TORCH <>>
+		<SETG TORCH-TURNS 0>)>
+	 <COND (,LIT
+		<SETG LIT <LIT? ,HERE>>)>
+	 <COND (<NOT <SETG LIT <LIT? ,HERE>>>
+		<TELL "It is now pitch black." CR>)>
+	 <DISABLE <INT I-TORCH>>>
+
+<ROUTINE I-RESET-STATUES ("AUX" (CHECK-OFF 0) (COUNTER 0)
+			   (CLEAR-OFF 0) (FLG <>) STR)
+	 <REPEAT ()
+		 <COND (<EQUAL? .CHECK-OFF 4>
+			<RETURN>)
+		       (T
+			<SET CHECK-OFF <+ .CHECK-OFF 1>>
+			<COND (<OR <NOT <EQUAL? <GET ,ORDER-LTBL .CHECK-OFF>
+					    <GET ,TURNED-LTBL .CHECK-OFF>>>
+				   <FSET? <GET ,TURNED-LTBL .CHECK-OFF>
+					  ,CLAMPBIT>> 
+			       <SETG TURN-OFFSET 0>
+			       <REPEAT ()
+				       <SET CLEAR-OFF <+ .CLEAR-OFF 1>>
+				       <COND (<EQUAL? .CLEAR-OFF 5>
+					      <RETURN>)>
+				       <PUT ,TURNED-LTBL .CLEAR-OFF <>>
+				       <COND (<NOT <FSET? <GET ,STATUE-TBL
+							  <- .CLEAR-OFF 1>>
+						     ,CLAMPBIT>>
+					      <SET COUNTER <+ .COUNTER 1>>)>
+				       <FSET <GET ,STATUE-TBL <- .CLEAR-OFF 1>>
+					     ,CLAMPBIT>>
+			       <SET STR <GET ,NUM-TBL .COUNTER>>
+			       <COND (<NOT .COUNTER>
+				      <TELL
+"A loud click comes from beneath the four statues as they clamp down on the
+cover again." CR>)
+				     (T
+				      <TELL "The " .STR " statue">
+				      <COND (<G? .COUNTER 1>
+					     <TELL
+"s, heavy though they are, effortlessly swing back in unison to clamp down on the quartz cover again." CR>)
+					    (T
+					     <TELL
+", heavy though it is, effortlessly swings back to clamp down on the quartz cover again." CR>)>)>
+			       <SET FLG T>
+			       <RETURN>)>)>>
+	 <COND (<NOT .FLG> ;"order was correct"
+		<TELL 
+"The statues freeze in their current positions and you hear a light click come
+from the cover of the sarcophagus." CR>
+		<SETG CAN-TURN-STATUES <>>
+	        <SETG STATUES-SET T>
+		<SETG SCORE <+ ,SCORE 35>>)>>
+		
+<GLOBAL HUNGER 0>
+
+<ROUTINE I-GROWL ()
+	 <SETG HUNGER <+ ,HUNGER 1>>
+	 <COND (<AND <G? ,HUNGER 70>
+		     <L? ,HUNGER 73>>
+		<TELL "Your stomach growls in hunger." CR>)
+	       (<AND <G? ,HUNGER 100>
+		     <L? ,HUNGER 103>>
+		<TELL 
+"You feel yourself growing weaker. Without nourishment, this is a losing
+cause!" CR>)
+	       (<G? ,HUNGER 140>
+		<JIGS-UP
+"You fall over on your face, dreaming of Thanksgiving dinner. Needless to say,
+it was you against hunger. And hunger won.">)>> 
+
+<ROUTINE I-PARACHUTE ()
+	 <COND (<L? ,MOVES 3>
+		<COND (<IN-A-TENT?>
+		       <TELL CR 
+"You hear a plane flying high overhead, outside the tent." CR>)
+		      (T
+		       <TELL CR 
+"You crane your neck and see a plane, high overhead, circling the encampment." CR>)>
+		<RTRUE>)
+	       (<L? ,MOVES 5>
+		<COND (<IN-A-TENT?>
+		       <TELL CR "It sounds as if the plane is circling." CR>)
+		      (T
+		       <TELL CR 
+"The plane seems to be circling right overhead." CR>)>
+		<RTRUE>)
+	       (<EQUAL? ,MOVES 5>
+		<COND (<NOT <IN-A-TENT?>>
+		       <TELL CR 
+"You look up to see a small speck appear right beneath the plane -- probably a
+parachute. The plane heads off far to the northwest, dipping its wings in a
+salute." CR>)
+		      (T
+		       <TELL CR "It sounds as if the plane is flying off." CR>)>
+		<RTRUE>)
+	       (<EQUAL? ,MOVES 6>
+		<COND (<NOT <IN-A-TENT?>>
+		       <TELL CR 
+"A small speck descending from the plane overhead gets larger until you see a
+crate, dangling from a parachute." CR>)
+		      (T
+		       <TELL CR "You can barely hear the plane." CR>)>
+		<RTRUE>)
+	       (<EQUAL? ,MOVES 7>
+		<COND (<IN-A-TENT?>
+		       <MOVE ,CRATE <PICK-ONE ,ROOM-LTBL>>
+		       <TELL CR
+"The sound of something heavy landing comes from nearby." CR>)
+		      (T
+		       <TELL CR 
+"At last, your luck seems to be changing. A large crate lands right before you,
+its parachute flapping in the breeze. The parachute breaks away from the crate
+and drifts off in the wind." CR>
+		       <MOVE ,CRATE ,HERE>)>
+		<FSET ,CRATE ,VEHBIT>
+		<DISABLE <INT I-PARACHUTE>>
+		<RTRUE>)>>
+		 
+<ROUTINE IN-A-TENT? ("OPTIONAL" (COT-TOO? T))
+	 <COND (.COT-TOO?
+		<COND (<OR <EQUAL? <LOC ,WINNER> ,TENT ,TENT2 ,SUPPLY-TENT>
+			   <EQUAL? <LOC ,WINNER> ,COT>>
+		       <RTRUE>)
+		      (T <RFALSE>)>)
+	       (<NOT .COT-TOO?>
+		<COND (<EQUAL? <LOC ,WINNER> ,TENT ,TENT2 ,SUPPLY-TENT>
+		       <RTRUE>)
+		      (ELSE <RFALSE>)>)
+	       (ELSE
+		<RFALSE>)>>
+
+<GLOBAL RANDOM-ROOM-LTBL
+	<LTABLE P1 P2 P3 P4 P5 P6 P7 P8 EX1 EX3 EX5 EX7 EX9
+		FIRE>>
+
+<GLOBAL ROOM-LTBL
+	<LTABLE P1 P2 P3 P4 P5 P6 P7 P8 FIRE>> 
+
+<ROUTINE RANDOMIZE-HOLES ("AUX" (OFFS 0) MAX)
+	 <SET MAX <GET ,RANDOM-ROOM-LTBL 0>>
+	 <REPEAT ()
+		 <SET OFFS <+ .OFFS 1>>
+		 <COND (<G? .OFFS .MAX>
+			<RETURN>)
+		       (T
+			<PUTP <GET ,RANDOM-ROOM-LTBL .OFFS>
+			      ,P?CAPACITY <RANDOM 2>>)>>>
+
+<GLOBAL PYR-THIRST 0>
+
+<ROUTINE I-PYRAMID-DRINK ()
+	 <COND (<GETP ,HERE ,P?MAP>
+		<DISABLE <INT I-PYRAMID-DRINK>>
+		<RFALSE>)>
+	 <SETG PYR-THIRST <+ ,PYR-THIRST 1>>
+	 <SETG NILE-DRINKS 0>
+	 <COND (<EQUAL? ,PYR-THIRST 1>
+		<TELL
+"Even in this pyramid, you need to drink something, and soon." CR>)
+	       (<EQUAL? ,PYR-THIRST 10>
+		<TELL
+"Your throat feels as if it's coated with razor blades. Some water would be in
+order." CR>)
+	       (<EQUAL? ,PYR-THIRST 19>
+		<TELL "Better drink something. NOW!" CR>)
+	       (<EQUAL? ,PYR-THIRST 25>
+		<JIGS-UP
+"Well, your body could only take so much of this heat. Like a car, idling on a
+crowded highway, your body decides it's time to overheat. Such is death.">)>>
\ No newline at end of file
diff --git a/macros.zil b/macros.zil
new file mode 100644
index 0000000..c434575
--- /dev/null
+++ b/macros.zil
@@ -0,0 +1,136 @@
+"MACROS for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<SETG C-ENABLED? 0>
+<SETG C-ENABLED 1>
+<SETG C-DISABLED 0>
+
+<DEFMAC TELL ("ARGS" A)
+	<FORM PROG ()
+	      !<MAPF ,LIST
+		     <FUNCTION ("AUX" E P O)
+			  <COND (<EMPTY? .A> <MAPSTOP>)
+				(<SET E <NTH .A 1>>
+				 <SET A <REST .A>>)>
+			  <COND (<TYPE? .E ATOM>
+				 <COND (<OR <=? <SET P <SPNAME .E>>
+						"CRLF">
+					    <=? .P "CR">>
+					<MAPRET '<CRLF>>)
+				       (<EMPTY? .A>
+					<ERROR INDICATOR-AT-END? .E>)
+				       (ELSE
+					<SET O <NTH .A 1>>
+					<SET A <REST .A>>
+					<COND (<OR <=? <SET P <SPNAME .E>>
+						       "DESC">
+						   <=? .P "D">
+						   <=? .P "OBJ">
+						   <=? .P "O">>
+					       <MAPRET <FORM PRINTD .O>>)
+					      (<OR <=? .P "NUM">
+						   <=? .P "N">>
+					       <MAPRET <FORM PRINTN .O>>)
+					      (<OR <=? .P "CHAR">
+						   <=? .P "CHR">
+						   <=? .P "C">>
+					       <MAPRET <FORM PRINTC .O>>)
+					      (ELSE
+					       <MAPRET
+						 <FORM PRINT
+						       <FORM GETP .O .E>>>)>)>)
+				(<TYPE? .E STRING ZSTRING>
+				 <MAPRET <FORM PRINTI .E>>)
+				(<TYPE? .E FORM>
+				 <MAPRET <FORM PRINT .E>>)
+				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
+
+<DEFMAC VERB? ("ARGS" ATMS)
+	<MULTIFROB PRSA .ATMS>>
+
+<DEFMAC PRSO? ("ARGS" ATMS)
+	<MULTIFROB PRSO .ATMS>>
+
+<DEFMAC PRSI? ("ARGS" ATMS)
+	<MULTIFROB PRSI .ATMS>>
+
+<DEFMAC ROOM? ("ARGS" ATMS)
+	<MULTIFROB HERE .ATMS>>
+
+<DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .OO 1> <ERROR .X>)
+				       (<LENGTH? .OO 2> <NTH .OO 2>)
+				       (ELSE <CHTYPE .OO FORM>)>>)>
+		<REPEAT ()
+			<COND (<EMPTY? .ATMS> <RETURN!->)>
+			<SET ATM <NTH .ATMS 1>>
+			<SET L
+			     (<COND (<TYPE? .ATM ATOM>
+				     <FORM GVAL
+					   <COND (<==? .X PRSA>
+						  <PARSE
+						    <STRING "V?"
+							    <SPNAME .ATM>>>)
+						 (ELSE .ATM)>>)
+				    (ELSE .ATM)>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O <REST <PUTREST .O (<FORM EQUAL? <FORM GVAL .X> !.L>)>>>
+		<SET L ()>>>
+
+<DEFMAC BLT ("ARGS" X "AUX" (TO <MEMQ TO .X>) (LL (())) (L .LL) ATM)
+	<COND (<AND .TO <1? <LENGTH <REST .TO>>>>
+	       <SET DEST <NTH .TO 2>>)
+	      (ELSE <SET DEST <>>)>
+	<REPEAT ()
+		<COND (<OR <EMPTY? .X> <==? <NTH .X 1> TO>>
+		       <RETURN <COND (<LENGTH? .LL 1> <ERROR BLT>)
+				     (<LENGTH? .LL 2> <NTH .LL 2>)
+				     (ELSE
+				      <FORM PROG !.LL>)>>)
+		      (ELSE
+		       <SET ATM <NTH .X 1>>
+		       <COND (<TYPE? .ATM ATOM>
+			      <SET ATM <FORM GVAL .ATM>>)>
+		       <SET L
+			    <REST
+			     <PUTREST .L
+				      (<COND (.DEST
+					      <FORM MOVE .ATM .DEST>)
+					     (ELSE
+					      <FORM REMOVE .ATM>)>)>>>
+		       <SET X <REST .X>>)>>>
+
+<DEFMAC RFATAL ()
+	'<PROG () <PUSH 2> <RSTACK>>>
+
+<DEFMAC PROB ('BASE? "OPTIONAL" 'LOSER?)
+	<COND (<ASSIGNED? LOSER?> <FORM ZPROB .BASE?>)
+	      (ELSE <FORM G? .BASE? '<RANDOM 100>>)>>
+
+<ROUTINE ZPROB
+	 (BASE)
+	 <COND (,LUCKY <G? .BASE <RANDOM 100>>)
+	       (ELSE <G? .BASE <RANDOM 300>>)>>
+
+<ROUTINE PICK-ONE (FROB)
+	 <GET .FROB <RANDOM <GET .FROB 0>>>>
+
+<DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>>
+
+<DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>>
+
+<DEFMAC OPENABLE? ('OBJ)
+	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
+	         <FORM FSET? .OBJ ',CONTBIT>>> 
+
+<ROUTINE ABS (NUM)
+	 <COND (<G? .NUM 0>
+		<RETURN .NUM>)
+	       (ELSE
+		<RETURN <- 0 .NUM>>)>>
\ No newline at end of file
diff --git a/main.zil b/main.zil
new file mode 100644
index 0000000..9b780cd
--- /dev/null
+++ b/main.zil
@@ -0,0 +1,364 @@
+"MAIN for
+		           INFIDEL
+	Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+<GLOBAL PLAYER <>>
+
+<GLOBAL P-WON <>>
+
+<CONSTANT M-FATAL 2>
+ 
+<CONSTANT M-HANDLED 1>   
+ 
+<CONSTANT M-NOT-HANDLED <>>   
+ 
+<CONSTANT M-OBJECT <>>
+
+<CONSTANT M-BEG 1>  
+ 
+<CONSTANT M-END 6> 
+ 
+<CONSTANT M-ENTER 2>
+ 
+<CONSTANT M-LOOK 3> 
+ 
+<CONSTANT M-FLASH 4>
+
+<CONSTANT M-OBJDESC 5>
+
+<ROUTINE GO () 
+;"put interrupts on clock chain"
+	 <RANDOMIZE-HOLES>
+	 <ENABLE <QUEUE I-GINANDTONIC -1>>
+	 <ENABLE <QUEUE I-PARACHUTE -1>>
+	 <ENABLE <QUEUE I-GROWL -1>>
+	 <REMOVE ,WATER>
+;"set up and go"
+	 <SETG LIT T>
+	 <SETG WINNER ,ADVENTURER>
+	 <SETG PLAYER ,WINNER>
+	 <SETG HERE ,TENT>
+	 <SETG P-IT-LOC ,HERE>
+	 <SETG P-IT-OBJECT <>>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<TELL ,START-STR CR>
+		<CRLF>
+		<V-VERSION>
+		<CRLF>)>
+	 <MOVE ,WINNER ,COT>
+	 <V-LOOK>
+	 <MAIN-LOOP>
+	 <AGAIN>>    
+
+
+<ROUTINE MAIN-LOOP ("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>
+     <COND (<SETG P-WON <PARSER>>
+	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
+	    <SET NUM
+		 <COND (<0? <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>> .OCNT)
+		       (<G? .OCNT 1>
+			<SET TBL ,P-PRSO>
+			<COND (<0? .ICNT> <SET OBJ <>>)
+			      (T <SET OBJ <GET ,P-PRSI 1>>)>
+			.OCNT)
+		       (<G? .ICNT 1>
+			<SET PTBL <>>
+			<SET TBL ,P-PRSI>
+			<SET OBJ <GET ,P-PRSO 1>>
+			.ICNT)
+		       (T 1)>>
+	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
+	    <COND (<==? ,PRSA ,V?WALK> <SET V <PERFORM ,PRSA ,PRSO>>)
+		  (<0? .NUM>
+		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
+			  <SET V <PERFORM ,PRSA>>
+			  <SETG PRSO <>>)
+			 (<NOT ,LIT>
+			  <TELL "It's too dark to see." CR>)
+			 (T
+;"** M"			  <COND (.OBJ
+				 <COND (<AND <FSET? .OBJ ,CONTBIT>
+					     <NOT <FSET? .OBJ ,OPENBIT>>>
+					<TELL "Better open the " D .OBJ
+					      " first." CR>
+					<THIS-IS-IT .OBJ>
+					<SET V <>>)
+				       (<NOT <FSET? .OBJ ,CONTBIT>>
+					<TELL "There's nothing in that." CR>
+					<SET V <>>)
+				       (T
+					<TELL "It's not in that." CR>
+					<SET V <>>)>) 
+			        (T
+				 <TELL "There isn't anything to ">
+				 <SET TMP <GET ,P-ITBL ,P-VERBN>>
+				 <COND (,P-OFLAG
+					<PRINTB <GET .TMP 0>>)
+				       (T
+					<WORD-PRINT <GETB .TMP 2>
+						    <GETB .TMP 3>>)>
+				 <TELL "!" CR>
+				 <SET V <>>)>)>)
+		  (T
+		   <SETG P-NOT-HERE 0>
+		   <SETG P-MULT <>>
+		   <COND (<G? .NUM 1> <SETG P-MULT T>)>
+		   <SET TMP <>>
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM>
+				  <COND (<G? ,P-NOT-HERE 0>
+					 <TELL "The ">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE .NUM>>
+						<TELL "other ">)>
+					 <TELL "object">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
+						<TELL "s">)>
+					 <TELL " that you mentioned ">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
+						<TELL "are">)
+					       (T <TELL "is">)>
+					 <TELL "n't here." CR>)
+					(<NOT .TMP>
+					 <TELL 
+"I don't know what you're referring to." CR>)>
+				  <RETURN>)
+				 (T
+				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
+					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
+				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
+				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
+				  <COND (<VERB? COMPARE> T)
+					(<G? .NUM 1>
+					 <COND (<EQUAL? .OBJ1
+							 ,NOT-HERE-OBJECT>
+						 <SETG P-NOT-HERE
+						       <+ ,P-NOT-HERE 1>>
+						 <AGAIN>)
+						(<AND <VERB? TAKE>
+						      ,PRSI
+						      <EQUAL? <GET <GET ,P-ITBL
+									,P-NC1>
+								   0>
+							      ,W?ALL>
+						      <NOT <IN? ,PRSO ,PRSI>>>
+						 <AGAIN>)
+						(<AND <EQUAL? ,P-GETFLAGS
+							      ,P-ALL>
+						      <VERB? TAKE>
+						      <OR <AND <NOT <EQUAL?
+								    <LOC .OBJ1>
+								     ,WINNER
+								     ,HERE>>
+							       <NOT <FSET?
+								    <LOC .OBJ1>
+								   ,TRANSBIT>>>
+							  <FSET? .OBJ1
+								 ,DONTTAKE>
+							  <EQUAL? .OBJ1
+								  ,PLASTER
+								  ,PLASTER1>>>
+						 <AGAIN>)
+						(<AND <EQUAL? ,P-GETFLAGS
+							      ,P-ALL>
+						      <VERB? DROP>
+						      <NOT <IN? .OBJ1 ,WINNER>>
+						      <NOT <IN? ,P-IT-OBJECT
+								,WINNER>>>
+						 <AGAIN>)
+						(T
+						 <COND (<EQUAL? .OBJ1 ,IT>
+							<PRINTD ,P-IT-OBJECT>)
+						       (T <PRINTD .OBJ1>)>
+						 <TELL ": ">)>)>
+				  <SET TMP T>
+				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
+				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>)>
+	    <COND (<NOT <==? .V ,M-FATAL>>
+		   ;<COND (<==? <LOC ,WINNER> ,PRSO>
+			  <SETG PRSO <>>)>
+		   ;"Removing this code should fix the problem that AGAIN
+		     loses when in a vehicle and it is the PRSO."
+		   <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	    <COND (<VERB? AGAIN WALK SAVE RESTORE SCORE VERSION WAIT> T)
+		  (T
+		   <SETG L-PRSA ,PRSA>
+		   <SETG L-PRSO ,PRSO>
+		   <SETG L-PRSI ,PRSI>)>
+	    <COND (<==? .V ,M-FATAL> <SETG P-CONT <>>)>)
+	   (T
+	    <SETG P-CONT <>>)>
+     <COND (,P-WON
+	    <COND (<VERB? TELL BRIEF SUPER-BRIEF VERBOSE SAVE VERSION> T)
+		  (T <SET V <CLOCKER>>)>)>>>
+ 
+<GLOBAL P-MULT <>>
+
+<GLOBAL P-NOT-HERE 0>
+
+<GLOBAL L-PRSA <>>  
+ 
+<GLOBAL L-PRSO <>>  
+ 
+<GLOBAL L-PRSI <>>  
+
+%<COND (<GASSIGNED? PREDGEN>
+
+'<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
+	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<COND (<AND <EQUAL? ,IT .I .O>
+		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
+	       <TELL "I don't see what you are referring to." CR>
+	       <RFATAL>)>
+	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
+	<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
+	<SETG PRSA .A>
+	<SETG PRSO .O>
+	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
+	       <SETG P-IT-OBJECT ,PRSO>
+	       <SETG P-IT-LOC ,HERE>)>
+	<SETG PRSI .I>
+	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
+		    <SET V <NOT-HERE-OBJECT-F>>>
+	       <SETG P-WON <>>
+	       .V)
+	      (T
+	       <SET O ,PRSO>
+	       <SET I ,PRSI>
+	       <COND
+		(<SET V <APPLY <GETP ,WINNER ,P?ACTION>>> .V)
+		(<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-BEG>> .V)
+		(<SET V <APPLY <GET ,PREACTIONS .A>>> .V)
+		(<AND .I <SET V <APPLY <GETP .I ,P?ACTION>>>> .V)
+		(<AND .O
+		      <NOT <==? .A ,V?WALK>>
+		      <LOC .O>
+		      <SET V <APPLY <GETP <LOC .O> ,P?CONTFCN>>>>
+		 .V)
+		(<AND .O
+		      <NOT <==? .A ,V?WALK>>
+		      <SET V <APPLY <GETP .O ,P?ACTION>>>>
+		 .V)
+		(<SET V <APPLY <GET ,ACTIONS .A>>> .V)>)>
+	<COND (<NOT <==? .V ,M-FATAL>>
+	       <COND (<==? <LOC ,WINNER> ,PRSO>
+		      <SETG PRSO <>>)>
+	       <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>)
+       (T
+	
+'<PROG ()
+
+<SETG PDEBUG <>>
+
+<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 (,PDEBUG
+	       <TELL "** PERFORM: PRSA = ">
+	       <PRINC <NTH ,ACTIONS <+ <* .A 2> 1>>>
+	       <COND (<AND .O <NOT <==? .A ,V?WALK>>>
+		      <TELL " | PRSO = " D .O>)>
+	       <COND (.I <TELL " | PRSI = " D .I>)>)>
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<COND (<AND <EQUAL? ,IT .I .O>
+		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
+	       <TELL "I don't see what you are referring to." CR>
+	       <RFATAL>)>
+	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
+	<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
+	<SETG PRSA .A>
+	<SETG PRSO .O>
+	<COND (<AND ,PRSO <NOT <EQUAL? ,PRSI ,IT>> <NOT <VERB? WALK>>>
+	       <SETG P-IT-OBJECT ,PRSO>
+	       <SETG P-IT-LOC ,HERE>)>
+	<SETG PRSI .I>
+	<COND (<AND <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
+		    <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>>
+	       <SETG P-WON <>>
+	       .V)
+	      (T
+	       <SET O ,PRSO>
+	       <SET I ,PRSI>
+	       <COND (<SET V <D-APPLY "Actor"
+				      <GETP ,WINNER ,P?ACTION>>> .V)
+		     (<SET V <D-APPLY "Room (M-BEG)"
+				      <GETP <LOC ,WINNER> ,P?ACTION>
+				      ,M-BEG>> .V)
+		     (<SET V <D-APPLY "Preaction"
+				      <GET ,PREACTIONS .A>>> .V)
+		     (<AND .I <SET V <D-APPLY "PRSI"
+					      <GETP .I ,P?ACTION>>>> .V)
+		     (<AND .O
+			   <NOT <==? .A ,V?WALK>>
+			   <LOC .O>
+			   <SET V <D-APPLY "Container"
+					   <GETP <LOC .O> ,P?CONTFCN>>>>
+		      .V)
+		     (<AND .O
+			   <NOT <==? .A ,V?WALK>>
+			   <SET V <D-APPLY "PRSO"
+					   <GETP .O ,P?ACTION>>>>
+		      .V)
+		     (<SET V <D-APPLY <>
+				      <GET ,ACTIONS .A>>> .V)>)>
+	<COND (<NOT <==? .V ,M-FATAL>>
+	       <COND (<==? <LOC ,WINNER> ,PRSO>
+		      <SETG PRSO <>>)>
+	       <SET V <D-APPLY "Room (M-END)"
+			       <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>
+
+<DEFINE D-APPLY (STR FCN "OPTIONAL" FOO "AUX" RES)
+	<COND (<NOT .FCN> <>)
+	      (T
+	       <COND (,PDEBUG
+		      <COND (<NOT .STR>
+			     <TELL CR "  Default ->" CR>)
+			    (T <TELL CR "  " .STR " -> ">)>)>
+	       <SET RES
+		    <COND (<ASSIGNED? FOO>
+			   <APPLY .FCN .FOO>)
+			  (T <APPLY .FCN>)>>
+	       <COND (<AND ,PDEBUG .STR>
+		      <COND (<==? .RES 2>
+			     <TELL "Fatal" CR>)
+			    (<NOT .RES>
+			     <TELL "Not handled">)
+			    (T <TELL "Handled" CR>)>)>
+	       .RES)>>
+
+>)>  
+ 
+<GLOBAL START-STR
+"You wake slowly, sit up in your bunk, look around the tent, and try to ignore
+the pounding in your head, the cottony taste in your mouth, and the ache in
+your stomach. The droning of a plane's engine breaks the stillness and you
+realize that things outside are quiet -- too quiet. You know that this can
+mean only one thing: your workmen have deserted you. They complained over the
+last few weeks, grumbling about the small pay and lack of food, and your
+inability to locate the pyramid. And after what you stupidly did yesterday,
+trying to make them work on a holy day, their leaving is understandable.|
+|
+The Professor's map was just an ancient map -- as worthless as an ice cube in
+the Arctic without an instrument fine enough to accurately measure longitude
+and latitude. You knew that the site was nearby. You dug, and you ordered the
+workers to dig, even without the box. As you listen to the plane and rub your
+aching eyes, you pray they left you supplies enough to find the pyramid and to
+survive, and that the plane's carrying the long-overdue box.">
\ No newline at end of file
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..a944570
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,1150 @@
+"PARSER for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+"Parser global variable convention:  All parser globals will 
+  begin with 'P-'.  Local variables are not restricted in any
+  way.
+" 
+ 
+<GLOBAL P-XNAM <>>
+<GLOBAL P-XADJ <>>
+<GLOBAL P-XADJN <>>
+
+<SETG SIBREAKS ".,\"">
+ 
+<GLOBAL GWIM-DISABLE <>> 
+ 
+<GLOBAL PRSA 0>
+ 
+<GLOBAL PRSI 0>
+
+<GLOBAL PRSO 0>
+
+<GLOBAL P-TABLE 0>  
+ 
+<GLOBAL P-ONEOBJ 0> 
+ 
+<GLOBAL P-SYNTAX 0> 
+ 
+<GLOBAL P-CCSRC 0>  
+ 
+<GLOBAL P-LEN 0>    
+ 
+<GLOBAL P-DIR 0>    
+ 
+<GLOBAL HERE 0>
+ 
+<GLOBAL WINNER 0>   
+ 
+<GLOBAL P-LEXV <ITABLE BYTE 120>>
+;"INBUF - Input buffer for READ"   
+ 
+<GLOBAL P-INBUF <ITABLE BYTE 100>>
+;"Parse-cont variable"  
+ 
+<GLOBAL P-CONT <>>  
+ 
+<GLOBAL P-IT-OBJECT <>>
+<GLOBAL P-IT-LOC <>>
+
+;"Orphan flag" 
+ 
+<GLOBAL P-OFLAG <>> 
+ 
+<GLOBAL P-MERGED <>>
+
+<GLOBAL P-ACLAUSE <>>    
+ 
+<GLOBAL P-ANAM <>>  
+ 
+<GLOBAL P-AADJ <>>
+;"Parser variables and temporaries"
+ 
+<CONSTANT P-PHRLEN 3>    
+ 
+<CONSTANT P-ORPHLEN 7>   
+ 
+<CONSTANT P-RTLEN 3>
+;"Byte offset to # of entries in LEXV"
+
+<CONSTANT P-LEXWORDS 1>
+;"Word offset to start of LEXV entries" 
+ 
+<CONSTANT P-LEXSTART 1>
+;"Number of words per LEXV entry"  
+ 
+<CONSTANT P-LEXELEN 2>   
+ 
+<CONSTANT P-WORDLEN 4>
+;"Offset to parts of speech byte"   
+ 
+<CONSTANT P-PSOFF 4>
+;"Offset to first part of speech"
+ 
+<CONSTANT P-P1OFF 5>
+;"First part of speech bit mask in PSOFF byte"  
+ 
+<CONSTANT P-P1BITS 3>    
+ 
+<CONSTANT P-ITBLLEN 9>   
+ 
+<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0>>  
+ 
+<GLOBAL P-VTBL <TABLE 0 0 0 0>>
+
+<GLOBAL P-NCN 0>    
+ 
+<CONSTANT P-VERB 0> 
+ 
+<CONSTANT P-VERBN 1>
+ 
+<CONSTANT P-PREP1 2>
+ 
+<CONSTANT P-PREP1N 3>    
+ 
+<CONSTANT P-PREP2 4>
+ 
+<CONSTANT P-PREP2N 5>    
+ 
+<CONSTANT P-NC1 6>  
+ 
+<CONSTANT P-NC1L 7> 
+ 
+<CONSTANT P-NC2 8>  
+ 
+<CONSTANT P-NC2L 9> 
+ 
+<GLOBAL QUOTE-FLAG <>>
+
+" Grovel down the input finding the verb, prepositions, and noun clauses.
+   If the input is <direction> or <walk> <direction>, fall out immediately
+   setting PRSA to ,V?WALK and PRSO to <direction>.  Otherwise, perform
+   all required orphaning, syntax checking, and noun clause lookup."   
+
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>)
+		       LEN (DIR <>) (NW 0) (LW 0) NUM SCNT (CNT -1)) 
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-ITBL .CNT 0>)>>
+	<SETG P-ADVERB <>>
+	<SETG P-MERGED <>>
+	<PUT ,P-PRSO ,P-MATCHLEN 0>
+	<PUT ,P-PRSI ,P-MATCHLEN 0>
+	<PUT ,P-BUTS ,P-MATCHLEN 0>
+	<COND (<AND <NOT ,QUOTE-FLAG> <N==? ,WINNER ,ADVENTURER>>
+	       <SETG WINNER ,ADVENTURER>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>)>
+	<COND (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <COND (<AND <NOT ,SUPER-BRIEF> <==? ,PLAYER ,WINNER>>
+		      <CRLF>)>
+	       <SETG P-CONT <>>)
+	      (T
+	       <SETG WINNER ,ADVENTURER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <COND (<NOT ,SUPER-BRIEF> <CRLF>)>
+	       <TELL ">">
+	       <READ ,P-INBUF ,P-LEXV>)>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<COND (<0? ,P-LEN> <TELL "I beg your pardon?" CR> <RFALSE>)>
+	<SET LEN ,P-LEN>
+	<SETG P-DIR <>>
+	<SETG P-NCN 0>
+	<SETG P-GETFLAGS 0>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <SETG QUOTE-FLAG <>>
+		       <RETURN>)
+		      (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<AND <==? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ;,ACT?ASK>>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <==? .WRD ,W?THEN>
+				   <NOT .VERB>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WRD ,W?QUOTE>)>
+		       <COND ;(<AND <EQUAL? .WRD ,W?.>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<OR <EQUAL? .WRD ,W?THEN ,W?.>
+				  <EQUAL? .WRD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
+				     <COND (,QUOTE-FLAG
+					    <SETG QUOTE-FLAG <>>)
+					   (T <SETG QUOTE-FLAG T>)>)>
+			      <OR <0? ,P-LEN>
+				  <SETG P-CONT <+ .PTR ,P-LEXELEN>>>
+			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+			      <RETURN>)
+			     (<AND <SET VAL
+					<WT? .WRD
+					     ,PS?DIRECTION
+					     ,P1?DIRECTION>>
+				   <EQUAL? .VERB <> ,ACT?WALK>
+				   <OR <==? .LEN 1>
+				       <AND <==? .LEN 2> <==? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? <SET NW
+						     <GET ,P-LEXV
+							  <+ .PTR ,P-LEXELEN>>>
+					            ,W?THEN
+					            ,W?.
+					            ,W?QUOTE>
+					    <NOT <L? .LEN 2>>>
+				       <AND ,QUOTE-FLAG
+					    <==? .LEN 2>
+					    <EQUAL? .NW ,W?QUOTE>>
+				       <AND <G? .LEN 2>
+					    <EQUAL? .NW ,W?COMMA ,W?AND>>>>
+			      <SET DIR .VAL>
+			      <COND (<EQUAL? .NW ,W?COMMA ,W?AND>
+				     <PUT ,P-LEXV
+					  <+ .PTR ,P-LEXELEN>
+					  ,W?THEN>)>
+			      <COND (<NOT <G? .LEN 2>>
+				     <SETG QUOTE-FLAG <>>
+				     <RETURN>)>)
+			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
+				   <NOT .VERB> ;<OR <NOT .VERB>
+				       <EQUAL? .VERB ,ACT?WHAT>>>
+			      <SET VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+			      <PUT ,P-VTBL 0 .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? .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 0>
+					  <==? <GET ,P-LEXV
+						    <+ .PTR ,P-LEXELEN>>
+					       ,W?OF>
+					  ;<NOT <EQUAL? .VERB ,ACT?ACCUSE>>
+					  <0? .VAL>
+					  <NOT
+					   <EQUAL? .WRD ,W?ALL ,W?ONE ,W?A>>>)
+				    (<AND <NOT <0? .VAL>>
+				          <OR <0? ,P-LEN>
+					      <EQUAL? <GET ,P-LEXV <+ .PTR 2>>
+						      ,W?THEN ,W?.>>>
+				     <COND (<L? ,P-NCN 2>
+					    <PUT ,P-ITBL ,P-PREP1 .VAL>
+					    <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 .WRD>>
+					 <RFALSE>>
+				     <COND (<L? .PTR 0>
+					    <SETG QUOTE-FLAG <>>
+					    <RETURN>)>)>)
+			     ;(<OR <EQUAL? .WRD ,W?CAREFULLY ,W?QUIETLY>
+				  <EQUAL? .WRD ,W?SLOWLY ,W?QUICKLY
+					        ,W?BRIEFLY>>
+			      <SETG P-ADVERB .WRD>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T
+		       <UNKNOWN-WORD .PTR>
+		       <RFALSE>)>
+		<SET LW .WRD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>
+	<COND (.DIR
+	       <SETG PRSA ,V?WALK>
+	       <SETG PRSO .DIR>
+	       <SETG P-WALK-DIR .DIR>
+	       <RETURN T>)>
+	<SETG P-WALK-DIR <>>
+	<COND (,P-OFLAG <ORPHAN-MERGE>)>
+	;<COND (<==? <GET ,P-ITBL ,P-VERB> 0> <PUT ,P-ITBL ,P-VERB ,ACT?CALL>)>
+	<COND (<AND <SYNTAX-CHECK> <SNARF-OBJECTS> <TAKE-CHECK> <MANY-CHECK>>
+	       T)>>
+
+
+<GLOBAL P-WALK-DIR <>>
+
+;"Check whether word pointed at by PTR is the correct part of speech.
+   The second argument is the part of speech (,PS?<part of speech>).  The
+   3rd argument (,P1?<part of speech>), if given, causes the value
+   for that part of speech to be returned." 
+
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFS ,P-P1OFF) TYP) 
+	<COND (<BTST <SET TYP <GETB .PTR ,P-PSOFF>> .BIT>
+	       <COND (<G? .B1 4> <RTRUE>)
+		     (T
+		      <SET TYP <BAND .TYP ,P-P1BITS>>
+		      <COND (<NOT <==? .TYP .B1>> <SET OFFS <+ .OFFS 1>>)>
+		      <GETB .PTR .OFFS>)>)>>
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<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> .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>)>
+	<PUT ,P-ITBL <SET NUM <+ ,P-NC1 .OFF>> <REST ,P-LEXV <* .PTR 2>>>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+	       <PUT ,P-ITBL .NUM <REST <GET ,P-ITBL .NUM> 4>>)>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
+		       <RETURN -1>)>
+		<COND (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       ;<COND (<AND <==? .WRD ,W?OF>
+				   <==? <GET ,P-ITBL ,P-VERB> ,ACT?ACCUSE>>
+			      <PUT ,P-LEXV .PTR ,W?WITH>
+			      <SET WRD ,W?WITH>)>
+		       <COND ;(<AND <EQUAL? .WRD ,W?.>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<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? .WRD ,W?THEN ,W?.>
+				  <AND <WT? .WRD ,PS?PREPOSITION>
+				       <NOT .FIRST??>>>
+			      <SETG P-LEN <+ ,P-LEN 1>>
+			      <PUT ,P-ITBL
+				   <+ .NUM 1>
+				   <REST ,P-LEXV <* .PTR 2>>>
+			      <RETURN <- .PTR ,P-LEXELEN>>)
+			     (<WT? .WRD ,PS?OBJECT>
+			      <COND (<AND <WT? .WRD
+					       ,PS?ADJECTIVE
+					       ,P1?ADJECTIVE>
+					  <NOT <==? .NW 0>>
+					  <WT? .NW ,PS?OBJECT>>)
+				    (<AND <NOT .ANDFLG>
+					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+					  <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
+				     <RETURN .PTR>)
+				    (T <SET ANDFLG <>>)>)
+			     (<OR <WT? .WRD ,PS?ADJECTIVE>
+				  <WT? .WRD ,PS?BUZZ-WORD>>)
+			     (<AND .ANDFLG
+				   <OR <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? .WRD ,PS?PREPOSITION> T)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
+		<SET LW .WRD>
+		<SET FIRST?? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0> <RETURN>)
+		       (T
+			<SET CHR <GETB ,P-INBUF .BPTR>>
+			<COND (<==? .CHR 58>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 10000> <RFALSE>)
+			      (<AND <L? .CHR 58> <G? .CHR 47>>
+			       <SET SUM <+ <* .SUM 10> <- .CHR 48>>>)
+			      (T <RFALSE>)>
+			<SET BPTR <+ .BPTR 1>>)>>
+	 <PUT ,P-LEXV .PTR ,W?INTNUM>
+	 <COND (<G? .SUM 1000> <RFALSE>)
+	       (.TIM
+		<COND (<L? .TIM 8> <SET TIM <+ .TIM 12>>)
+		      (<G? .TIM 23> <RFALSE>)>
+		<SET SUM <+ .SUM <* .TIM 60>>>)>
+	 <SETG P-NUMBER .SUM>
+	 ,W?INTNUM>
+
+<GLOBAL P-NUMBER 0>
+<GLOBAL P-DIRECTION 0>
+
+
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   #DECL ((CNT TEMP VERB) FIX (BEG END) <PRIMTYPE VECTOR> (WRD) TABLE)
+   <SETG P-OFLAG <>>
+   <COND
+    (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	  <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+     <RFALSE>)
+    (<==? ,P-NCN 2>
+     <RFALSE>)
+    (<==? <GET ,P-OTBL ,P-NC1> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP1>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
+	   (T <RFALSE>)>)
+    (<==? <GET ,P-OTBL ,P-NC2> 1>
+     <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>> <GET ,P-OTBL ,P-PREP2>>
+		<0? .TEMP>>
+	    <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+	    <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+	    <SETG P-NCN 2>)
+	   (T <RFALSE>)>)
+    (,P-ACLAUSE
+     <COND
+      (<NOT <==? ,P-NCN 1>> <SETG P-ACLAUSE <>> <RFALSE>)
+      (T
+       <SET BEG <GET ,P-ITBL ,P-NC1>>
+       <SET END <GET ,P-ITBL ,P-NC1L>>
+       <REPEAT ()
+	       <COND (<==? .BEG .END>
+		      <COND (.ADJ
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)
+			    (T
+			     <SETG P-ACLAUSE <>>
+			     <RFALSE>)>)
+		     (<AND <NOT .ADJ>
+			   <BTST <GETB <SET WRD <GET .BEG 0>> ,P-PSOFF>
+			         ,PS?ADJECTIVE>>
+		      <SET ADJ .WRD>)
+		     (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+			  <==? .WRD ,W?ONE>>
+		      <COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>> <RFALSE>)
+			    (T
+			     <ACLAUSE-WIN .ADJ>
+			     <RETURN>)>)>
+	       <SET BEG <REST .BEG ,P-WORDLEN>>>)>)>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+<ROUTINE ACLAUSE-WIN (ADJ)
+	 <SETG P-CCSRC ,P-OTBL>
+	 <CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	 <AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>>
+	      <SETG P-NCN 2>>
+	 <SETG P-ACLAUSE <>>
+	 <RTRUE>>
+
+;"Print undefined word in input.
+   PTR points to the unknown word in P-LEXV"   
+
+<ROUTINE WORD-PRINT (CNT BUF)
+	 <REPEAT ()
+		 <COND (<DLESS? CNT 0> <RETURN>)
+		       (ELSE
+			<PRINTC <GETB ,P-INBUF .BUF>>
+			<SET BUF <+ .BUF 1>>)>>>
+
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF) 
+	#DECL ((PTR BUF) FIX)
+	<TELL "I don't know the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\"." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+<ROUTINE CANT-USE (PTR "AUX" BUF) 
+	#DECL ((PTR BUF) FIX)
+	<TELL "I can't use the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\" here." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+;" Perform syntax matching operations, using P-ITBL as the source of
+   the verb and adjectives for this input.  Returns false if no
+   syntax matches, and does it's own orphaning.  If return is true,
+   the syntax is saved in P-SYNTAX."   
+ 
+<GLOBAL P-SLOCBITS 0>    
+ 
+<CONSTANT P-SYNLEN 8>    
+ 
+<CONSTANT P-SBITS 0>
+ 
+<CONSTANT P-SPREP1 1>    
+ 
+<CONSTANT P-SPREP2 2>    
+ 
+<CONSTANT P-SFWIM1 3>    
+ 
+<CONSTANT P-SFWIM2 4>    
+ 
+<CONSTANT P-SLOC1 5>
+ 
+<CONSTANT P-SLOC2 6>
+ 
+<CONSTANT P-SACTION 7>   
+ 
+<CONSTANT P-SONUMS 3>    
+
+<ROUTINE SYNTAX-CHECK ("AUX" SYN LEN NUM OBJ (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP) 
+	#DECL ((DRIVE1 DRIVE2) <OR FALSE <PRIMTYPE VECTOR>>
+	       (SYN) <PRIMTYPE VECTOR> (LEN NUM VERB PREP) FIX
+	       (OBJ) <OR FALSE OBJECT>)
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL "I can't find a verb in that sentence!" CR>
+	       <RFALSE>)>
+	<SET SYN <GET ,VERBS <- 255 .VERB>>>
+	<SET LEN <GETB .SYN 0>>
+	<SET SYN <REST .SYN>>
+	<REPEAT ()
+		<SET NUM <BAND <GETB .SYN ,P-SBITS> ,P-SONUMS>>
+		<COND (<G? ,P-NCN .NUM> T)
+		      (<AND <NOT <L? .NUM 1>>
+			    <0? ,P-NCN>
+			    <OR <0? <SET PREP <GET ,P-ITBL ,P-PREP1>>>
+				<==? .PREP <GETB .SYN ,P-SPREP1>>>>
+		       <SET DRIVE1 .SYN>)
+		      (<==? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
+		       <COND (<AND <==? .NUM 2> <==? ,P-NCN 1>>
+			      <SET DRIVE2 .SYN>)
+			     (<==? <GETB .SYN ,P-SPREP2> <GET ,P-ITBL ,P-PREP2>>
+			      <SYNTAX-FOUND .SYN>
+			      <RTRUE>)>)>
+		<COND (<DLESS? LEN 1>
+		       <COND (<OR .DRIVE1 .DRIVE2> <RETURN>)
+			     (T
+			      <TELL "I don't understand that sentence." CR>
+			      <RFALSE>)>)
+		      (T <SET SYN <REST .SYN ,P-SYNLEN>>)>>
+	<COND (<AND .DRIVE1
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE1 ,P-SFWIM1>
+			       <GETB .DRIVE1 ,P-SLOC1>
+			       <GETB .DRIVE1 ,P-SPREP1>>>>
+	       <PUT ,P-PRSO ,P-MATCHLEN 1>
+	       <PUT ,P-PRSO 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE1>)
+	      (<AND .DRIVE2
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE2 ,P-SFWIM2>
+			       <GETB .DRIVE2 ,P-SLOC2>
+			       <GETB .DRIVE2 ,P-SPREP2>>>>
+	       <PUT ,P-PRSI ,P-MATCHLEN 1>
+	       <PUT ,P-PRSI 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE2>)
+	      (<EQUAL? .VERB ,ACT?FIND ;,ACT?WHAT>
+	       <TELL "I can't answer that question." CR>
+	       <RFALSE>)
+	      (T
+	       <ORPHAN .DRIVE1 .DRIVE2>
+	       <TELL "What do you want to ">
+	       <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	       <COND (<==? .TMP 0> <TELL "tell">)
+		     (<0? <GETB ,P-VTBL 2>>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+		      <PUTB ,P-VTBL 2 0>)>
+	       <COND (.DRIVE2
+		      <CLAUSE-PRINT ,P-NC1 ,P-NC1L>)>
+	       <SETG P-OFLAG T>
+	       <PREP-PRINT <COND (.DRIVE1 <GETB .DRIVE1 ,P-SPREP1>)
+				 (T <GETB .DRIVE2 ,P-SPREP2>)>>
+	       <TELL "?" CR>
+	       <RFALSE>)>> 
+
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1)) 
+	#DECL ((D1 D2) <OR FALSE <PRIMTYPE VECTOR>>)
+	<PUT ,P-OCLAUSE ,P-MATCHLEN 0>
+	<SETG P-CCSRC ,P-ITBL>
+	<REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>>
+	<COND (<==? ,P-NCN 2> <CLAUSE-COPY ,P-NC2 ,P-NC2L>)>
+	<COND (<NOT <L? ,P-NCN 1>> <CLAUSE-COPY ,P-NC1 ,P-NC1L>)>
+	<COND (.D1
+	       <PUT ,P-OTBL ,P-PREP1 <GETB .D1 ,P-SPREP1>>
+	       <PUT ,P-OTBL ,P-NC1 1>)
+	      (.D2
+	       <PUT ,P-OTBL ,P-PREP2 <GETB .D2 ,P-SPREP2>>
+	       <PUT ,P-OTBL ,P-NC2 1>)>> 
+ 
+<ROUTINE CLAUSE-PRINT (BPTR EPTR "OPTIONAL" (THE? T)) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> .THE?>>    
+ 
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+	 #DECL ((BEG END) <PRIMTYPE VECTOR> (CP) <OR FALSE ATOM>)
+	 <REPEAT ()
+		<COND (<==? .BEG .END> <RETURN>)
+		      (T
+		       <COND (.NOSP <SET NOSP <>>)
+			     (T <TELL " ">)>
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?.> <SET NOSP T>)
+			     (T
+			      <COND (<AND .FIRST?? <NOT .PN> .CP>
+				     <TELL "the ">)>
+			      <COND (,P-OFLAG <PRINTB .WRD>)
+				    (<AND <==? .WRD ,W?IT>
+					  <==? ,P-IT-LOC ,HERE>>
+				     <PRINTD ,P-IT-OBJECT>)
+				    (T
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>)>
+			      <SET FIRST?? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+
+<ROUTINE CAPITALIZE (PTR)
+	 <PRINTC <- <GETB ,P-INBUF <GETB .PTR 3>> 32>>
+	 <WORD-PRINT <- <GETB .PTR 2> 1> <+ <GETB .PTR 3> 1>>>
+
+<ROUTINE PREP-PRINT (PREP "AUX" WRD) 
+	#DECL ((PREP) FIX)
+	<COND (<NOT <0? .PREP>>
+	       <TELL " ">
+	       <SET WRD <PREP-FIND .PREP>>
+	       <PRINTB .WRD>)>>    
+ 
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSRT <>) "AUX" BEG END) 
+	#DECL ((BPTR EPTR) FIX (BEG END) <PRIMTYPE VECTOR>
+	       (INSRT) <OR FALSE TABLE>)
+	<SET BEG <GET ,P-CCSRC .BPTR>>
+	<SET END <GET ,P-CCSRC .EPTR>>
+	<PUT ,P-OTBL
+	     .BPTR
+	     <REST ,P-OCLAUSE
+		   <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
+	<REPEAT ()
+		<COND (<==? .BEG .END>
+		       <PUT ,P-OTBL
+			    .EPTR
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
+				     2>>>
+		       <RETURN>)
+		      (T
+		       <COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
+			      <CLAUSE-ADD .INSRT>)>
+		       <CLAUSE-ADD <GET .BEG 0>>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+
+
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR) 
+	#DECL ((WRD) TABLE (PTR) FIX)
+	<SET PTR <+ <GET ,P-OCLAUSE ,P-MATCHLEN> 2>>
+	<PUT ,P-OCLAUSE <- .PTR 1> .WRD>
+	<PUT ,P-OCLAUSE .PTR 0>
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>   
+ 
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE) 
+	#DECL ((PREP CNT SIZE) FIX)
+	<SET SIZE <* <GET ,PREPOSITIONS 0> 2>>
+	<REPEAT ()
+		<COND (<IGRTR? CNT .SIZE> <RFALSE>)
+		      (<==? <GET ,PREPOSITIONS .CNT> .PREP>
+		       <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>  
+ 
+<ROUTINE SYNTAX-FOUND (SYN) 
+	#DECL ((SYN) <PRIMTYPE VECTOR>)
+	<SETG P-SYNTAX .SYN>
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
+ 
+<GLOBAL P-GWIMBIT 0>
+ 
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ) 
+	#DECL ((GBIT LBIT) FIX (OBJ) OBJECT)
+	<COND (<==? .GBIT ,RMUNGBIT>
+	       <RETURN ,ROOMS>)>
+	<SETG P-GWIMBIT .GBIT>
+	<SETG P-SLOCBITS .LBIT>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<COND (<GET-OBJECT ,P-MERGE <>>
+	       <SETG P-GWIMBIT 0>
+	       <COND (<==? <GET ,P-MERGE ,P-MATCHLEN> 1>
+		      <SET OBJ <GET ,P-MERGE 1>>
+		      <TELL "(">
+		      <COND (<NOT <0? .PREP>>
+			     <PRINTB <PREP-FIND .PREP>>
+			     <COND ;(<==? .OBJ ,HANDS>
+				    <TELL " your hands)" CR>)
+				   (T
+				    <TELL " the ">)>)>
+		      <TELL D .OBJ ")" CR>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR) 
+	#DECL ((PTR) <OR FIX <PRIMTYPE VECTOR>>)
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC1>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>
+	       <OR <0? <GET ,P-BUTS ,P-MATCHLEN>>
+		   <SETG P-PRSO <BUT-MERGE ,P-PRSO>>>)>
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC2>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>
+	       <COND (<NOT <0? <GET ,P-BUTS ,P-MATCHLEN>>>
+		      <COND (<==? <GET ,P-PRSI ,P-MATCHLEN> 1>
+			     <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)
+			    (T <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>)>
+	<RTRUE>>  
+
+<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL) 
+	#DECL ((TBL NTBL) TABLE (LEN BUTLEN MATCHES) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<REPEAT ()
+		<COND (<DLESS? LEN 0> <RETURN>)
+		      (<ZMEMQ <SET OBJ <GET .TBL .CNT>> ,P-BUTS>)
+		      (T
+		       <PUT ,P-MERGE <+ .MATCHES 1> .OBJ>
+		       <SET MATCHES <+ .MATCHES 1>>)>
+		<SET CNT <+ .CNT 1>>>
+	<PUT ,P-MERGE ,P-MATCHLEN .MATCHES>
+	<SET NTBL ,P-MERGE>
+	<SETG P-MERGE .TBL>
+	.NTBL>    
+ 
+<GLOBAL P-NAM <>>   
+ 
+<GLOBAL P-ADJ <>>   
+ 
+<GLOBAL P-ADVERB <>>
+
+<GLOBAL P-ADJN <>>  
+ 
+<GLOBAL P-PRSO <ITABLE NONE 50>>   
+ 
+<GLOBAL P-PRSI <ITABLE NONE 50>>   
+ 
+<GLOBAL P-BUTS <ITABLE NONE 50>>   
+ 
+<GLOBAL P-MERGE <ITABLE NONE 50>>  
+ 
+<GLOBAL P-OCLAUSE <ITABLE NONE 50>>
+ 
+<GLOBAL P-MATCHLEN 0>    
+ 
+<GLOBAL P-GETFLAGS 0>    
+ 
+<CONSTANT P-ALL 1>  
+ 
+<CONSTANT P-ONE 2>  
+ 
+<CONSTANT P-INHIBIT 4>   
+
+<GLOBAL P-CSPTR <>>
+<GLOBAL P-CEPTR <>>
+
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW) 
+   #DECL ((TBL) TABLE (PTR EPTR) <PRIMTYPE VECTOR>
+	  (BUT) <OR FALSE TABLE> (WV) <OR FALSE FIX>)
+   <SETG P-GETFLAGS 0>
+   <SETG P-CSPTR .PTR>
+   <SETG P-CEPTR .EPTR>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WRD <GET .PTR 0>>
+   <REPEAT ()
+	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<==? .WRD ,W?ALL>
+			 <SETG P-GETFLAGS ,P-ALL>
+			 <COND (<==? .NW ,W?OF>
+				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			(<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 <SET BUT ,P-BUTS>
+			 <PUT .BUT ,P-MATCHLEN 0>)
+			(<EQUAL? .WRD ,W?A ,W?ONE>
+			 <COND (<NOT ,P-ADJ>
+				<SETG P-GETFLAGS ,P-ONE>
+				<COND (<==? .NW ,W?OF>
+				       <SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			       (T
+				<SETG P-NAM ,P-ONEOBJ>
+				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+				<AND <0? .NW> <RTRUE>>)>)
+			(<AND <EQUAL? .WRD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<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? .WRD ,PS?ADJECTIVE ,P1?ADJECTIVE>>
+			      <NOT ,P-ADJ>>
+			 <SETG P-ADJ .WV>
+			 <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 WRD .NW>)>>>   
+ 
+<CONSTANT SH 128>   
+ 
+<CONSTANT SC 64>    
+ 
+<CONSTANT SIR 32>   
+ 
+<CONSTANT SOG 16>   
+ 
+<CONSTANT STAKE 8>  
+ 
+<CONSTANT SMANY 4>  
+ 
+<CONSTANT SHAVE 2>  
+
+<ROUTINE GET-OBJECT (TBL
+		     "OPTIONAL" (VRB T)
+		     "AUX" BTS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+	 #DECL ((TBL) TABLE (XBTS BTS TLEN LEN) FIX (GWIM) <OR FALSE FIX>
+		(VRB GCHECK) <OR ATOM FALSE>)
+	 <SET XBITS ,P-SLOCBITS>
+	 <SET TLEN <GET .TBL ,P-MATCHLEN>>
+	 <COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+	 <COND (<AND <NOT ,P-NAM> ,P-ADJ>
+		<COND (<WT? ,P-ADJN ,PS?OBJECT ,P1?OBJECT>
+		       <SETG P-NAM ,P-ADJN>
+		       <SETG P-ADJ <>>)
+		      (<SET BTS <WT? ,P-ADJN ,PS?DIRECTION ,P1?DIRECTION>>
+		       <SETG P-ADJ <>>
+		       <PUT .TBL ,P-MATCHLEN 1>
+		       <PUT .TBL 1 ,INTDIR>
+		       <SETG P-DIRECTION .BTS>
+		       <RTRUE>)>)>
+	 <COND (<AND <NOT ,P-NAM>
+		     <NOT ,P-ADJ>
+		     <NOT <==? ,P-GETFLAGS ,P-ALL>>
+		     <0? ,P-GWIMBIT>>
+		<COND (.VRB
+		       <TELL "I think that sentence was missing a noun." CR>)>
+		<RFALSE>)>
+	 <COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+		<SETG P-SLOCBITS -1>)>
+	 <SETG P-TABLE .TBL>
+	 <PROG ()
+	       <COND (.GCHECK <GLOBAL-CHECK .TBL>)
+		     (T
+		      <COND (,LIT <DO-SL ,HERE ,SOG ,SIR>)>
+		      <DO-SL ,WINNER ,SH ,SC>
+		      <COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
+			     <DO-SL ,PLAYER ,SH ,SC>)>)>
+	       <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+	       <COND (<BTST ,P-GETFLAGS ,P-ALL>)
+		     (<AND <BTST ,P-GETFLAGS ,P-ONE>
+			   <NOT <0? .LEN>>>
+		      <COND (<NOT <==? .LEN 1>>
+			     <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+			     <TELL "(How about the ">
+			     <PRINTD <GET .TBL 1>>
+			     <TELL "?)" CR>)>
+		      <PUT .TBL ,P-MATCHLEN 1>)
+		     (<OR <G? .LEN 1>
+			  <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+		      <COND (<==? ,P-SLOCBITS -1>
+			     <SETG P-SLOCBITS .XBITS>
+			     <SET OLEN .LEN>
+			     <PUT .TBL ,P-MATCHLEN
+				  <- <GET .TBL ,P-MATCHLEN> .LEN>>
+			     <AGAIN>)
+			    (T
+			     <COND (<0? .LEN> <SET LEN .OLEN>)>
+			     <COND (<AND ,P-NAM
+			                 <VERB? EXAMINE TAKE LAMP-ON
+					        BURN DROP FIND>
+					 <SET OBJ <GET .TBL <+ .TLEN 1>>>
+					 <SET OBJ
+					      <APPLY
+					       <GETP .OBJ ,P?GENERIC> .OBJ>>>
+				    <PUT .TBL 1 .OBJ>
+				    <PUT .TBL ,P-MATCHLEN 1>
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    <RTRUE>)
+				   (<AND .VRB ,P-NAM>
+				    <WHICH-PRINT .TLEN .LEN .TBL>
+				    <SETG P-ACLAUSE
+					  <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+						(T ,P-NC2)>>
+				    <SETG P-AADJ ,P-ADJ>
+				    <SETG P-ANAM ,P-NAM>
+				    <ORPHAN <> <>>
+				    <SETG P-OFLAG T>)
+				   (.VRB
+				    <TELL
+				     "I couldn't find enough nouns in that sentence!" CR>)>
+			     <SETG P-NAM <>>
+			     <SETG P-ADJ <>>
+			     <RFALSE>)>)
+		     (<AND <0? .LEN> .GCHECK>
+		      <COND (.VRB
+			     <COND (<NOT <==? ,WINNER ,PLAYER>>
+				    <TELL "\"I can't see that here!\"" CR>) 
+				   (,LIT
+				    <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
+				    <SETG P-XNAM ,P-NAM>
+				    <SETG P-XADJ ,P-ADJ>
+				    <SETG P-XADJN ,P-ADJN>
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    <SETG P-ADJN <>>
+				    <RTRUE>)
+				   (T <TELL "It's too dark to see!" CR>)>)>
+		      <SETG P-NAM <>>
+		      <SETG P-ADJ <>>
+		      <RFALSE>)
+		     (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+	       <SETG P-ADJ <>>
+	       <SETG P-NAM <>>
+	       <SETG P-SLOCBITS .XBITS>
+	       <RTRUE>>>   
+
+<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN)
+	 <SETG P-SLOCBITS -1>
+	 <SETG P-NAM ,P-XNAM>
+	 <SETG P-ADJ ,P-XADJ>
+	 <PUT .TBL ,P-MATCHLEN 0>
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,LOCAL-GLOBALS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 0>
+		<DO-SL ,ROOMS 1 1>)>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 1>
+		<SETG P-MOBY-FOUND <GET .TBL 1>>)>
+	 <SETG P-NAM <>>
+	 <SETG P-ADJ <>>
+	 .LEN>
+
+<GLOBAL P-MOBY-FOUND <>>   
+<GLOBAL P-XNAM <>>
+<GLOBAL P-XADJ <>>
+<GLOBAL P-XADJN <>>
+
+<ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN)
+	 <SET RLEN .LEN>
+	 <TELL "Which">
+         <COND (<OR ,P-OFLAG ,P-MERGED> <TELL " "> <PRINTB ,P-NAM>)
+	       (<==? .TBL ,P-PRSO>
+		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
+	       (T <CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
+	 <TELL " do you mean, ">
+	 <REPEAT ()
+		 <SET TLEN <+ .TLEN 1>>
+		 <SET OBJ <GET .TBL .TLEN>>
+		 <TELL "the " D .OBJ>
+		 <COND (<==? .LEN 2>
+		        <COND (<NOT <==? .RLEN 2>> <TELL ",">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2> <TELL ", ">)>
+		 <COND (<L? <SET LEN <- .LEN 1>> 1>
+		        <TELL "?" CR>
+		        <RETURN>)>>>
+
+
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO) 
+	#DECL ((TBL) TABLE (RMG) <OR FALSE TABLE> (RMGL CNT) FIX (OBJ) OBJECT)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,HERE ,P?GLOBAL>>
+	       <SET RMGL <- <PTSIZE .RMG> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GETB .RMG .CNT>> .TBL>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<SET RMG <GETPT ,HERE ,P?PSEUDO>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 4> 1>>
+	       <SET CNT 0>
+	       <REPEAT ()
+		       <COND (<==? ,P-NAM <GET .RMG <* .CNT 2>>>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ <* .CNT 2> 1>>>
+			      <SET FOO
+				   <BACK <GETPT ,PSEUDO-OBJECT ,P?ACTION> 5>>
+			      <PUT .FOO 0 <GET ,P-NAM 0>>
+			      <PUT .FOO 1 <GET ,P-NAM 1>>
+			      <OBJ-FOUND ,PSEUDO-OBJECT .TBL>
+			      <RETURN>)
+		             (<IGRTR? CNT .RMGL> <RETURN>)>>)>
+	<COND (<==? <GET .TBL ,P-MATCHLEN> .LEN>
+	       <SETG P-SLOCBITS -1>
+	       <SETG P-TABLE .TBL>
+	       <DO-SL ,GLOBAL-OBJECTS 1 1>
+	       <SETG P-SLOCBITS .OBITS>
+	       <COND (<AND <0? <GET .TBL ,P-MATCHLEN>>
+			   <EQUAL? ,PRSA ,V?LOOK-INSIDE ,V?SEARCH ,V?EXAMINE>>
+		      <DO-SL ,ROOMS 1 1>)>)>>
+ 
+<ROUTINE DO-SL (OBJ BIT1 BIT2 "AUX" BTS) 
+	#DECL ((OBJ) OBJECT (BIT1 BIT2 BTS) FIX)
+	<COND (<BTST ,P-SLOCBITS <+ .BIT1 .BIT2>>
+	       <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCALL>)
+	      (T
+	       <COND (<BTST ,P-SLOCBITS .BIT1>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCTOP>)
+		     (<BTST ,P-SLOCBITS .BIT2>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCBOT>)
+		     (T <RTRUE>)>)>>  
+ 
+<CONSTANT P-SRCBOT 2>    
+ 
+<CONSTANT P-SRCTOP 0>    
+ 
+<CONSTANT P-SRCALL 1>    
+ 
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ) 
+	#DECL ((OBJ NOBJ) <OR FALSE OBJECT> (TBL) TABLE (LVL) FIX (FLS) ANY)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <NOT <==? .LVL ,P-SRCBOT>>
+				   <GETPT .OBJ ,P?SYNONYM>
+				   <THIS-IT? .OBJ .TBL>>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<AND <OR <NOT <==? .LVL ,P-SRCTOP>>
+				       <FSET? .OBJ ,SEARCHBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <SET NOBJ <FIRST? .OBJ>>
+				   <FSET? .OBJ ,OPENBIT>>
+			      <SET FLS
+				   <SEARCH-LIST .OBJ
+						.TBL
+						<COND (<FSET? .OBJ ,SURFACEBIT>
+						       ,P-SRCALL)
+						      (<FSET? .OBJ ,SEARCHBIT>
+						       ,P-SRCALL)
+						      (T ,P-SRCTOP)>>>)>
+		       <COND (<SET OBJ <NEXT? .OBJ>>) (T <RETURN>)>>)>> 
+ 
+<ROUTINE OBJ-FOUND (OBJ TBL "AUX" PTR) 
+	#DECL ((OBJ) OBJECT (TBL) TABLE (PTR) FIX)
+	<SET PTR <GET .TBL ,P-MATCHLEN>>
+	<PUT .TBL <+ .PTR 1> .OBJ>
+	<PUT .TBL ,P-MATCHLEN <+ .PTR 1>>> 
+ 
+<ROUTINE TAKE-CHECK () 
+	<AND <ITAKE-CHECK ,P-PRSO <GETB ,P-SYNTAX ,P-SLOC1>>
+	     <ITAKE-CHECK ,P-PRSI <GETB ,P-SYNTAX ,P-SLOC2>>>> 
+
+<ROUTINE ITAKE-CHECK (TBL BTS "AUX" PTR OBJ TAKEN) 
+	 #DECL ((TBL) TABLE (BTS PTR) FIX (OBJ) OBJECT
+		(TAKEN) <OR FALSE FIX ATOM>)
+	 <COND (<AND <SET PTR <GET .TBL ,P-MATCHLEN>> <BTST .BTS ,STAKE>>
+		<REPEAT ()
+			<COND (<L? <SET PTR <- .PTR 1>> 0> <RETURN>)
+			      (T
+			       <SET OBJ <GET .TBL <+ .PTR 1>>>
+			       <COND (<==? .OBJ ,IT> <SET OBJ ,P-IT-OBJECT>)>
+			       <COND (<NOT <IN? .OBJ ,WINNER>>
+				      <SETG PRSO .OBJ>
+				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
+					     <SET TAKEN T>)
+					    (<==? <ITAKE <>> T>
+					     <SET TAKEN <>>)
+					    (T <SET TAKEN T>)>
+				      <COND (<AND .TAKEN <BTST .BTS ,SHAVE>>
+					     <TELL "You don't have that." CR>
+					     <RFALSE>)
+					    (<NOT .TAKEN>
+					     <TELL "(Taken)" CR>)>)>)>>)
+	       (T)>>  
+ 
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP) 
+	#DECL ((LOSS) <OR FALSE FIX>)
+	<COND (<AND <G? <GET ,P-PRSO ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC1> ,SMANY>>>
+	       <SET LOSS 1>)
+	      (<AND <G? <GET ,P-PRSI ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC2> ,SMANY>>>
+	       <SET LOSS 2>)>
+	<COND (.LOSS
+	       <TELL "I can't use multiple ">
+	       <COND (<==? .LOSS 2> <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<0? .TMP> <TELL "tell">)
+		     (,P-OFLAG
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL "\"." CR>
+	       <RFALSE>)
+	      (T)>>  
+ 
+<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+	<COND (<NOT .TBL> <RFALSE>)>
+	<COND (<NOT <L? .SIZE 0>> <SET CNT 0>)
+	      (ELSE <SET SIZE <GET .TBL 0>>)>
+	<REPEAT ()
+		<COND (<==? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+
+<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+	#DECL ((ITM) ANY (TBL) TABLE (SIZE CNT) FIX)
+	<REPEAT ()
+		<COND (<==? .ITM <GETB .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>  
+ 
+<ROUTINE LIT? (RM "AUX" OHERE (LIT <>)) 
+	#DECL ((RM OHERE) OBJECT (LIT) <OR ATOM FALSE>)
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<FSET? .RM ,ONBIT> <SET LIT T>)
+	      (T
+	       <PUT ,P-MERGE ,P-MATCHLEN 0>
+	       <SETG P-TABLE ,P-MERGE>
+	       <SETG P-SLOCBITS -1>
+	       <COND (<==? .OHERE .RM> <DO-SL ,WINNER 1 1>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0> <SET LIT T>)>)>
+	<SETG HERE .OHERE>
+	<SETG P-GWIMBIT 0>
+	.LIT> 
+  
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSI>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
\ No newline at end of file
diff --git a/ra.zil b/ra.zil
new file mode 100644
index 0000000..baad6dc
--- /dev/null
+++ b/ra.zil
@@ -0,0 +1,398 @@
+"RA for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+;"RA-This is a file of all rooms and objects found in the upper part of the
+pyramid; the Chamber of Ra."
+
+<ROOM CHAMBER-OF-RA
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "Chamber of Ra")
+      (NORTH PER ROPE-HOOK-FCN)
+      (EAST PER TELL-STAIRS-FCN)
+      (SOUTH PER TELL-STAIRS-FCN)
+      (WEST PER TELL-STAIRS-FCN)
+      (DOWN PER ROPE-DOWN-FCN)
+      (UP PER RE-ENABLE-FCN)
+      (OUT PER RE-ENABLE-FCN)
+      (GLOBAL NORTH-STAIRS EAST-STAIRS SOUTH-STAIRS WEST-STAIRS FEW-STEPS)
+      (ACTION MOVE-ROPE-RA)>
+
+<ROUTINE TELL-STAIRS-FCN ("AUX" PLACE (FLG <>) (R-FLG <>))
+	 <COND (<IN? ,WINNER ,ALTAR>
+		<RETURN ,LANDING-ONE>)>
+	 <TELL "(down the ">
+	 <COND (<AND ,ROPE-TIED
+		     <IN? ,ROPE ,WINNER>>
+		<MOVE ,ROPE ,HERE>
+		<SET R-FLG T>)>
+	 <COND (<PRSO? ,P?EAST>
+		<TELL "wide staircase)" CR>
+		<SET PLACE ,LANDING-ONE>
+		<SET FLG T>)
+	       (<PRSO? ,P?WEST>
+		<TELL "narrow staircase)" CR>
+		<SET PLACE ,LANDING-THREE>
+		<SET FLG T>)
+	       (<PRSO? ,P?NORTH>
+		<TELL "steep staircase)" CR>
+		<SET PLACE ,LANDING-ZERO>)
+	       (<PRSO? ,P?SOUTH>
+		<TELL "winding staircase)" CR>
+		<SET PLACE ,LANDING-TWO>)>
+	 <COND (.R-FLG
+		<TELL "You release the free end of the rope as you walk." CR>)>
+	 <COND (.FLG
+		<TELL "The staircase winds as you walk down, turning you around
+so you face in the opposite direction." CR>
+		<CRLF>)>
+	 .PLACE>
+	 
+<ROUTINE RE-ENABLE-FCN ()
+	 <COND (<NOT <IN? ,WINNER ,ALTAR>>
+		<ENABLE <QUEUE I-GINANDTONIC -1>>)>
+	 <COND (<AND ,ROPE-TIED
+		     <IN? ,ROPE ,WINNER>>
+		<MOVE ,ROPE ,CHAMBER-OF-RA>
+		<TELL "You release the free end of the rope as you walk." CR>)>
+	 ,EX8>
+
+<GLOBAL PLUNGE-STR
+"You take a few steps down the steep staircase when suddenly you lose your
+footing as you try to walk on air. You fall a mere 25 feet straight
+down and, landing on your head, regret your attempt.">
+
+<ROUTINE ROPE-HOOK-FCN ()
+	 <COND (<IN? ,WINNER ,ALTAR>
+		<RETURN ,LANDING-ONE>)
+	       (<AND ,ROPE-TIED
+		     <EQUAL? ,LANDING ,LANDING-ZERO>>
+		<TELL "(down the rope)" CR>
+		<RETURN ,LANDING-ZERO>)
+	       (<AND ,ROPE-TIED ,LANDING>
+		<TELL "(down the steep staircase)" CR>
+		<JIGS-UP ,PLUNGE-STR>)
+	       (,ROPE-TIED
+		<JIGS-UP
+"You grasp the rope firmly in your hands, but the fall is shorter than you
+thought. You reach the bottom with a resounding splat accompanied by a chorus
+of pain led by ganglions you never knew you had. Just before you (thankfully)
+black out, you release your grip from the rope.">)
+	       (ELSE
+		<JIGS-UP ,PLUNGE-STR>)>>
+		
+
+<ROUTINE ROPE-DOWN-FCN ()
+	 <COND (<OR <NOT ,ROPE-TIED>
+		    <NOT ,ROPE-PLACED>>
+		<COND (<IN? ,WINNER ,ALTAR>
+		       <RETURN ,LANDING-TWO>)
+		      (<EQUAL? ,HERE ,CHAMBER-OF-RA>
+		       <TELL
+"Since there are four staircases going down, you'd better say which staircase."
+ CR>)
+		      (T
+		       <JIGS-UP ,PLUNGE-STR>)>
+		<RFALSE>)
+	       (ELSE
+		<COND (<NOT ,ROPE-HACK>
+		       <TELL "(down the rope)" CR>)>
+		<RETURN ,LANDING>)>>
+		     
+<GLOBAL ROPE-HACK <>>
+
+<ROUTINE MOVE-ROPE-RA (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <EQUAL? ,ROPE-TIED ,ALTAR>>
+		<DISABLE <INT I-GINANDTONIC>>
+		<MOVE ,ROPE ,HERE>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-ENTER>
+		<DISABLE <INT I-GINANDTONIC>>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL ,RA-STR>
+		<COND (,ROPE-PLACED
+		       <FSET ,ROPE ,NDESCBIT>
+		       <TELL
+" Descending the " D ,ROPE-PLACED " is one end of the rope.">)>
+		<TELL 
+" In the center of the room is a large red sandstone altar mounted solidly in
+the floor.">
+		<COND (,ROPE-TIED
+		       <TELL " The rope is tied to the " D ,ROPE-TIED ".">
+		       <COND (<AND <IN? ,ROPE ,CHAMBER-OF-RA>
+				   <NOT ,ROPE-PLACED>>
+			      <TELL 
+" The other end of the rope rests on the floor.">)
+			     (<IN? ,ROPE ,ALTAR>
+			      <TELL
+" The other end rests on the altar.">)>)>
+		<CRLF>)
+	       (<EQUAL? .RARG ,M-END>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<SETG ROPE-HACK <>>
+		<RFALSE>)
+	       (<AND <EQUAL? .RARG ,M-BEG>
+		     <OR ,ROPE-TIED ,ROPE-PLACED>
+		     <NOT <IN? ,ROPE ,WINNER>>>
+		<FSET ,ROPE ,NDESCBIT>
+		<RFALSE>)>>
+
+<GLOBAL RA-STR
+"You are standing in the Chamber of Ra, a tribute to the Sun God. Even though
+the only natural light enters through the opening above, the room is
+brilliantly lit as though the walls themselves generated light. The room
+slopes inward and the walls meet at an open point, over your head. The heat of
+the desert filters down through the opening and, as the air slowly circulates,
+the deep, long-dead musty odors from the depths of the pyramid assault your
+senses. Four staircases descend from here: a steep one to the north, a winding
+one to the south, a wide one to the east, and a narrow one to the west.">
+
+<OBJECT NORTH-STAIRS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CLIMBBIT)
+	(DESC "steep staircase")
+	(SYNONYM STAIRC STAIRS STEPS STAIR)
+	(ADJECTIVE STEEP NORTH)
+	(ACTION RA-STAIRS-FCN)>
+
+<OBJECT EAST-STAIRS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CLIMBBIT)
+	(DESC "wide staircase")
+	(SYNONYM STAIRC STAIRS STEPS STAIR)
+	(ADJECTIVE WIDE EAST)
+	(ACTION RA-STAIRS-FCN)>
+
+<OBJECT SOUTH-STAIRS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CLIMBBIT)
+	(DESC "winding staircase")
+	(SYNONYM STAIRC STAIRS STEPS STAIR)
+	(ADJECTIVE WINDIN SOUTH)
+	(ACTION RA-STAIRS-FCN)>
+
+<OBJECT WEST-STAIRS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CLIMBBIT)
+	(DESC "narrow staircase")
+	(SYNONYM STAIRC STAIRS STEPS STAIR)
+	(ADJECTIVE NARROW WEST)
+	(ACTION RA-STAIRS-FCN)>
+
+<ROUTINE RA-STAIRS-FCN ()
+	 <COND (<VERB? LOOK-DOWN EXAMINE>
+		<COND (<AND <NOT <FLAMING? ,TORCH>>
+			    <NOT <FLAMING? ,MATCHES>>>
+		       <TELL
+"There's just enough light to see the first few steps." CR>)
+		      (<OR <FLAMING? ,TORCH>
+			   <FLAMING? ,MATCHES>>
+		       <COND (<NOT <PRSO? ,NORTH-STAIRS>>
+			      <TELL
+"You can see far enough down the stairs to make out a landing below." CR>)
+			     (ELSE
+			      <TELL
+"You can see the first few steps and then what could only be a sheer dropoff,
+going down into total darkness." CR>)>)>
+		<RTRUE>)
+	       (<VERB? CLIMB-DOWN>
+		<COND (<PRSO? ,NORTH-STAIRS>
+		       <COND (<EQUAL? ,ROPE-PLACED ,NORTH-STAIRS>
+			      <PERFORM ,V?CLIMB-DOWN ,ROPE>
+			      <RTRUE>)
+			     (ELSE
+			      <JIGS-UP ,PLUNGE-STR>
+			      <RFATAL>)>)
+		      (<PRSO? ,EAST-STAIRS>
+		       <GOTO ,LANDING-ONE>)
+		      (<PRSO? ,SOUTH-STAIRS>
+		       <GOTO ,LANDING-TWO>)
+		      (<PRSO? ,WEST-STAIRS>
+		       <GOTO ,LANDING-THREE>)>)>>
+
+<OBJECT FEW-STEPS
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT CLIMBBIT)
+	(DESC "few steps")
+	(SYNONYM STEPS STAIRS)
+	(ADJECTIVE FEW FIRST)
+	(ACTION FEW-STEPS-FCN)>
+
+<ROUTINE FEW-STEPS-FCN ()
+	 <COND (<VERB? CLIMB-DOWN BOARD CLIMB-ON>
+		;<COND (<AND ,ROPE-TIED
+			    <IN? ,ROPE ,WINNER>>
+		       <TELL "You release the rope as you walk." CR>)>
+		<GOTO ,TINY-LANDING>
+		<MOVE-ROPE-HERE ,M-ENTER>
+		<COND (<IN? ,ROPE ,HERE>
+		       <FCLEAR ,ROPE ,NDESCBIT>
+		       <DESCRIBE-ROPE-FCN ,M-OBJDESC>)>
+		<RFATAL>)>>
+
+<ROOM TINY-LANDING
+      (IN ROOMS)
+      (FLAGS RLANDBIT ONBIT)
+      (DESC "On the Steep Stairs")
+      (LDESC
+"You are two steps down the steep staircase when you see before you a deep
+dropoff going down into nothingness. To go down any further would be suicide.")
+      (DOWN PER ROPE-DOWN-FCN)
+      (UP TO CHAMBER-OF-RA)
+      (GLOBAL NORTH-STAIRS)
+      ;(ACTION TINY-LANDING-F)>
+
+;<ROUTINE TINY-LANDING-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-END>
+		<MOVE-ROPE-HERE ,M-ENTER>)>>
+
+<OBJECT ALTAR
+	(IN CHAMBER-OF-RA)
+	(DESC "stone altar")
+	(FLAGS NDESCBIT CONTBIT OPENBIT SURFACEBIT VEHBIT DONTTAKE TRANSBIT
+	       TRYTAKEBIT)
+	(CAPACITY 1000)
+	(SYNONYM ALTAR)
+	(ADJECTIVE LARGE STONE)
+	(TEXT
+"The altar is three feet by five feet and is mounted firmly in the solid floor.")
+	(ACTION ALTAR-FCN)>
+
+<ROUTINE ALTAR-FCN ("OPTIONAL" (RARG ,M-OBJECT))
+	 <COND (<NOT <EQUAL? .RARG ,M-OBJECT>> <RFALSE>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <OR <NOT <FIRST? ,ALTAR>>
+			 <EQUAL? <FIRST? ,ALTAR> ,WINNER ,ADVENTURER>>
+		     <PRSO? ,ALTAR>>
+		<TELL
+		 <GETP ,ALTAR ,P?TEXT> " There is nothing on the altar." CR>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <IN? ,WINNER ,ALTAR>
+		     <PRSO? ,ALTAR>
+		     <L? <CCOUNT ,ALTAR> 2>>
+		<TELL <GETP ,ALTAR ,P?TEXT> CR>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE LOOK-INSIDE>
+		     <PRSO? ,ALTAR>>
+		<PRINT-CONT ,ALTAR>
+		<RTRUE>)
+	       (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,ALTAR>>
+		<HOW? ,ALTAR>
+		<RTRUE>)>>
+
+<GLOBAL LANDING <>>
+
+<ROUTINE MOVE-ROPE-HERE (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <OR <EQUAL? ,LANDING ,HERE>
+			 <AND <EQUAL? ,LANDING ,LANDING-ZERO>
+			      <EQUAL? ,HERE ,TINY-LANDING>>>>
+		<MOVE ,ROPE ,HERE>
+		<FCLEAR ,ROPE ,NDESCBIT>
+		<RFALSE>)>>
+
+<OBJECT TORCH
+	(IN CHAMBER-OF-RA)
+	(FLAGS BURNBIT TAKEBIT)
+	(DESC "bronze torch")
+	(SYNONYM TORCH WICK)
+	(ADJECTIVE BRONZE)
+	(FDESC
+"Leaning against the altar is a bronze torch.")
+	(TEXT
+"The torch has a tapered tip, much like a wick, which should be able to hold
+a large amount of oil.")
+	(ACTION TORCH-FCN)>
+
+<ROUTINE TORCH-FCN ()
+	 <COND (<AND <PRSI? ,TORCH>
+		     <FLAMING? ,TORCH>
+		     <IN? ,TORCH ,HERE>
+		     <VERB? DROP THROW>
+		     <IN? ,PRSO ,WINNER>
+		     <FSET? ,PRSO ,BURNBIT>>
+		<COND (<VERB? DROP>
+		       <TELL "Dropped. ">)
+		      (T <TELL "Thrown. ">)>
+	        <V-BURN>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL <GETP ,TORCH ,P?TEXT> " The torch is ">
+		<COND (<NOT <FLAMING? ,TORCH>>
+		       <TELL "not lit">)
+		      (<L? ,TORCH-TURNS 125>
+		       <TELL "burning brightly">)
+		      (<L? ,TORCH-TURNS 160>
+		       <TELL "burning dimly">)
+		      (<L? ,TORCH-TURNS 175>
+		       <TELL "barely lit">)>
+		<TELL "." CR>
+		<RTRUE>)>>
+
+<OBJECT OIL-JAR
+	(IN CHAMBER-OF-RA)
+	(SYNONYM JAR)
+	(ADJECTIVE PINK SMALL ALABAS)
+	(DESC "pink jar")
+	(FLAGS CONTBIT TAKEBIT BURNBIT)
+	(CAPACITY 4)
+	(FDESC
+"Lying on the floor, partially covered with dust, is a small pink alabaster
+jar.")
+       	(ACTION OIL-FCN)>
+
+<ROUTINE OIL-FCN ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<NOT <FSET? ,OIL-JAR ,OPENBIT>>
+		       <RFALSE>)
+		      (T
+		       <COND (<G? ,OIL-LEFT 0>
+		       <TELL "Inside the small pink jar is some liquid." CR>)
+		      (ELSE
+		       <TELL "The jar is empty." CR>)>)>)
+	       (<AND <VERB? OPEN>
+		     <NOT <FSET? ,OIL-JAR ,OPENBIT>>>
+		<COND (<G? ,OIL-LEFT 0>
+		       <TELL 
+"Opening the jar reveals a small amount of liquid." CR >)
+		      (T
+		       <TELL "Opened." CR>)>
+		<FSET ,OIL-JAR ,OPENBIT>
+		<RTRUE>)>>
+
+<OBJECT LIQUID
+	(IN OIL-JAR)
+	(FLAGS DONTTAKE)
+	(DESC "liquid")
+	(TEXT 
+"The liquid is oily to the touch and smells as if it could be highly volatile.")
+	(SYNONYM LIQUID OIL)
+	(ACTION LIQUID-FCN)>
+	
+<ROUTINE LIQUID-FCN ()
+	 <COND (<VERB? EXAMINE>
+		<RFALSE>)
+	       (<VERB? POUR POUR-ON>
+		<COND (<NOT <IN? ,OIL-JAR ,WINNER>>
+		       <COND (<ITAKE>
+			      <TELL "(taken)" CR>
+			      <PERFORM ,PRSA ,OIL-JAR>
+			      <RTRUE>)
+			     (T
+			      <TELL 
+"Hmm. It would be easier if you were holding it." CR>
+			      <RTRUE>)>)
+		      (T
+		       <PERFORM ,PRSA ,OIL-JAR>
+		       <RTRUE>)>)
+	       (<AND <VERB? TASTE>
+		     <FSET? ,OIL-JAR ,OPENBIT>>
+		<TELL "It tastes horrible." CR>)>>
+ 
+
diff --git a/syntax.zil b/syntax.zil
new file mode 100644
index 0000000..1b29817
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,710 @@
+"SYNTAX for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+"SUBTITLE VOCABULARY"
+
+<BUZZ A AN THE IS AND SOME OF THEN ALL ONE BUT EXCEPT \. \, \" 
+      YES NO Y HERE MY>
+
+;<SYNONYM WITH USING THROUGH>
+<SYNONYM ON ONTO>
+<SYNONYM IN INSIDE INTO>
+<SYNONYM UNDER BELOW BENEATH UNDERNEATH>
+
+<SYNONYM NORTH N>
+<SYNONYM SOUTH S>
+<SYNONYM EAST E>
+<SYNONYM WEST W>
+<SYNONYM DOWN D>
+<SYNONYM UP U>
+<SYNONYM NW NORTHWEST>
+<SYNONYM NE NORTHE>
+<SYNONYM SW SOUTHWEST>
+<SYNONYM SE SOUTHE>
+
+\
+
+"ZORK game commands"
+
+<SYNTAX BRIEF = V-BRIEF>
+
+<SYNTAX SUPER = V-SUPER-BRIEF>
+<SYNONYM SUPER SUPERBRIEF>
+
+;<SYNTAX DIAGNOSE = V-DIAGNOSE>
+
+<SYNTAX INVENTORY = V-INVENTORY>
+<SYNONYM INVENTORY I>
+
+<SYNTAX QUIT = V-QUIT>
+<SYNONYM QUIT Q>
+
+<SYNTAX RESTART = V-RESTART>
+
+<SYNTAX RESTORE = V-RESTORE>
+
+<SYNTAX SAVE = V-SAVE>
+
+<SYNTAX SCORE = V-SCORE>
+
+<SYNTAX $VERIFY = V-$VERIFY>
+
+<SYNTAX VERSION = V-VERSION>
+
+<SYNTAX VERBOSE = V-VERBOSE>
+
+\
+
+"SUBTITLE REAL VERBS"
+
+<SYNTAX AGAIN = V-AGAIN>
+<SYNONYM AGAIN G>
+
+<SYNTAX ANSWER = V-ANSWER>
+<SYNTAX ANSWER OBJECT = V-REPLY>
+<SYNONYM ANSWER REPLY>
+
+<SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX ATTACK
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-ATTACK>
+<SYNONYM ATTACK FIGHT HURT INJURE>
+
+<SYNTAX BACK = V-BACK>
+
+<SYNTAX BLAST = V-BLAST>
+
+<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
+	= V-BOARD PRE-BOARD>
+
+<SYNTAX BUG = V-BUG>
+
+<SYNTAX BURN
+	OBJECT (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-BURN PRE-BURN>
+<SYNTAX BURN
+	DOWN
+	OBJECT (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-BURN PRE-BURN>
+<SYNONYM BURN INCINERATE IGNITE>
+
+<SYNTAX CHOMP = V-CHOMP>
+<SYNONYM CHOMP LOSE BARF>
+
+<SYNTAX CLEAN OBJECT = V-CLEAN>
+<SYNONYM CLEAN SCRUB POLISH>
+
+<SYNTAX CLEAR OBJECT FROM OBJECT = V-PLASTER-REMOVE>
+
+<SYNTAX CLIMB DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX CLIMB OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
+<SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNONYM CLIMB>
+
+;<SYNTAX SIT ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX SIT ON OBJECT (ON-GROUND IN-ROOM) = V-SIT-ON>
+
+<SYNTAX CLOSE
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-CLOSE>
+
+<SYNTAX COMPARE OBJECT TO OBJECT = V-COMPARE PRE-COMPARE>
+<SYNTAX COMPARE OBJECT WITH OBJECT = V-COMPARE PRE-COMPARE>
+<SYNTAX COMPARE OBJECT (HELD CARRIED MANY) = V-FOO-COMPARE>
+
+<SYNTAX COUNT OBJECT = V-COUNT>
+<SYNONYM COUNT>
+
+<SYNTAX CROSS OBJECT = V-CROSS>
+<SYNONYM CROSS FORD>
+
+<SYNTAX CUT OBJECT WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
+<SYNONYM CUT SLICE PIERCE> 
+
+<SYNTAX CURSE = V-CURSES>
+<SYNTAX CURSE OBJECT (FIND VILLAIN) = V-CURSES>
+<SYNONYM CURSE DAMN FUCK SHIT HELL>
+
+<SYNTAX DEFLATE OBJECT = V-DEFLATE>
+
+<SYNTAX DIG IN OBJECT = V-DIG PRE-DIG>
+<SYNTAX DIG
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
+	= V-DIG PRE-DIG ;*>
+<SYNTAX DIG
+	IN
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
+	= V-DIG PRE-DIG>
+<SYNTAX DIG OBJECT IN OBJECT = V-HOLE-DIG>
+<SYNTAX DIG WITH OBJECT = V-DIG-WITH>
+
+<SYNTAX DIP OBJECT (FIND BURNBIT) (HELD CARRIED HAVE)
+	IN OBJECT (ON-GROUND HAVE) = V-DIP-IN>
+<SYNONYM DIP IMMERSE SUBMERGE DUNK>
+
+<SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
+	= V-DISEMBARK>
+
+<SYNTAX DRINK
+	OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-DRINK>
+<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
+<SYNTAX DRINK OBJECT (FIND DRINKBIT) 
+	IN OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND) = V-DRINK-FROM>
+<SYNTAX DRINK OBJECT (FIND DRINKBIT) 
+	FROM OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND) = V-DRINK-FROM>
+<SYNONYM DRINK IMBIBE SWALLOW SIP>
+
+<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP ;*>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
+<SYNONYM DROP RELEASE>
+
+<SYNTAX LEAN ON OBJECT (HELD HAVE) = V-LEAN-ON>
+
+<SYNTAX EAT
+	OBJECT (FIND FOODBIT) (HELD CARRIED ON-GROUND IN-ROOM MANY)
+	= V-EAT PRE-EAT>
+<SYNONYM EAT CONSUME BITE CHEW>
+
+<SYNTAX TASTE OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-TASTE>
+
+<SYNTAX ENTER = V-ENTER>
+<SYNTAX ENTER OBJECT = V-THROUGH>
+<SYNTAX EXIT = V-EXIT>
+<SYNTAX EXIT OBJECT = V-EXIT>
+
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-EXAMINE>
+<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY) 
+		= V-LOOK-INSIDE>
+<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY)
+		= V-LOOK-INSIDE>
+<SYNONYM EXAMINE DESCRIBE WHAT WHATS>
+
+<SYNTAX EXORCISE OBJECT = V-EXORCISE>
+<SYNTAX EXORCISE OUT OBJECT (FIND VILLAIN) = V-EXORCISE>
+<SYNTAX EXORCISE AWAY OBJECT (FIND VILLAIN) = V-EXORCISE>
+<SYNONYM EXORCISE BANISH CAST DRIVE BEGONE>
+
+<SYNTAX EXTINGUISH
+	OBJECT 
+	(FIND FLAMEBIT) (MANY HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
+	= V-LAMP-OFF>
+<SYNONYM EXTINGUISH DOUSE>
+
+<SYNTAX FILL
+	OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND TAKE HAVE)
+	WITH
+	OBJECT
+	= V-FILL>
+<SYNTAX FILL IN OBJECT (ON-GROUND IN-ROOM) = V-FILL-IN>
+<SYNTAX FILL
+	OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND TAKE HAVE)
+	= V-FILL>
+<SYNTAX FILL OUT OBJECT = V-FILL-OUT>
+
+<SYNTAX FIND OBJECT
+	= V-FIND>
+<SYNONYM FIND WHERE SEEK SEE>
+
+<SYNTAX FOLLOW = V-FOLLOW>
+<SYNTAX FOLLOW OBJECT = V-FOLLOW>
+<SYNONYM FOLLOW PURSUE CHASE COME>
+
+<SYNTAX GIVE
+	OBJECT (MANY HELD HAVE ;CARRIED ;ON-GROUND ;IN-ROOM)
+	TO
+	OBJECT (FIND VICBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX GIVE
+	OBJECT (FIND VICBIT) (ON-GROUND)
+	OBJECT (MANY HELD HAVE)
+	= V-SGIVE PRE-SGIVE>
+<SYNONYM GIVE HAND DONATE OFFER FEED>
+
+<SYNTAX HELLO = V-HELLO ;*>
+<SYNTAX HELLO OBJECT = V-HELLO>
+<SYNONYM HELLO HI>
+
+<SYNTAX HELP = V-HELP>
+<SYNTAX HELP OBJECT = V-HELP>
+
+<SYNTAX BLOW OUT OBJECT (HELD CARRIED ON-GROUND HAVE) = V-LAMP-OFF>
+<SYNTAX BLOW UP
+	OBJECT
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-INFLATE ;*>
+<SYNTAX BLOW UP OBJECT = V-BLAST>
+
+<SYNTAX INFLAT
+	OBJECT
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-INFLATE>
+
+<SYNTAX JUMP = V-LEAP>
+<SYNTAX JUMP OVER OBJECT = V-LEAP>
+<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
+<SYNTAX JUMP IN OBJECT = V-LEAP>
+<SYNTAX JUMP FROM OBJECT = V-LEAP>
+<SYNTAX JUMP OFF OBJECT = V-DISEMBARK>
+<SYNTAX JUMP OBJECT = V-JUMP-ROPE>
+<SYNONYM JUMP LEAP DIVE>
+
+<SYNTAX KICK OBJECT = V-KICK>
+<SYNONYM KICK>
+
+<SYNTAX KILL
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-KILL>
+<SYNONYM KILL MURDER SLAY DISPATCH STAB>
+
+<SYNTAX KISS OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KISS>
+
+<SYNTAX KNOCK AT OBJECT = V-KNOCK ;*>
+<SYNTAX KNOCK ON OBJECT = V-KNOCK>
+<SYNTAX KNOCK OVER OBJECT = V-PUSH>
+<SYNTAX KNOCK DOWN OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
+<SYNONYM KNOCK RAP>
+
+<SYNTAX LAUNCH OBJECT (FIND VEHBIT) = V-LAUNCH>
+
+<SYNTAX LEAVE = V-LEAVE>
+<SYNTAX LEAVE OBJECT = V-DROP>
+
+<SYNTAX LIGHT
+	OBJECT ;(FIND LIGHTBIT) (FIND BURNBIT)
+	(CARRIED ON-GROUND IN-ROOM)
+	= V-LAMP-ON ;*>
+<SYNTAX LIGHT
+	OBJECT ;(FIND LIGHTBIT) (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-BURN PRE-BURN>
+
+<SYNTAX LISTEN TO OBJECT = V-LISTEN>
+<SYNTAX LISTEN FOR OBJECT = V-LISTEN>
+
+<SYNTAX LOCK
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-LOCK>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
+<SYNTAX LOOK UP OBJECT (FIND RMUNGBIT) = V-LOOK-UP>
+<SYNTAX LOOK UP OBJECT = V-LOOK-UP>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-EXAMINE>
+<SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
+<SYNTAX LOOK DOWN OBJECT = V-LOOK-DOWN>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
+<SYNTAX LOOK ON OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) WITH OBJECT = 
+	V-READ PRE-READ>
+<SYNTAX LOOK FOR OBJECT = V-FIND>
+<SYNTAX LOOK OBJECT = V-CHASTISE>
+<SYNONYM LOOK L STARE GAZE>
+
+<SYNTAX SEARCH OBJECT = V-SEARCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH>
+<SYNTAX SEARCH FOR OBJECT = V-FIND>
+
+<SYNTAX LOWER OBJECT = V-LOWER>
+<SYNTAX LOWER OBJECT DOWN OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX MAKE OBJECT = V-MAKE>
+
+<SYNTAX MELT
+	OBJECT
+	WITH
+	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-MELT>
+<SYNONYM MELT LIQUIFY>
+
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO PRE-PUSH-TO>
+<SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+
+<SYNTAX PLAY OBJECT = V-PLAY>
+
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE ; *>
+<SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX PULL UP OBJECT (ON-GROUND IN-ROOM) = V-PULL-UP PRE-PULL-UP>
+<SYNTAX PULL OBJECT THROUGH OBJECT (ON-GROUND IN-ROOM) = V-PULL-UP PRE-PULL-UP>
+<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO PRE-PUSH-TO>
+<SYNONYM PULL TUG YANK>
+
+<SYNTAX MUMBLE = V-MUMBLE>
+<SYNONYM MUMBLE SIGH>
+
+<SYNTAX DESTROY
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH
+	OBJECT (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNTAX DESTROY IN OBJECT (ON-GROUND IN-ROOM)
+		WITH
+		OBJECT (HELD CARRIED HAVE) = V-MUNG PRE-MUNG>
+<SYNTAX DESTROY
+	DOWN
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH
+	OBJECT (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNONYM DESTROY DAMAGE BREAK SMASH CHOP CHIP HIT>
+
+<SYNTAX LUBRICATE OBJECT WITH OBJECT (HELD CARRIED) = V-OIL PRE-OIL>
+<SYNONYM LUBRICATE GREASE>
+
+<SYNTAX OPEN
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN ;*>
+<SYNTAX OPEN
+	UP
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN ;*>
+<SYNTAX OPEN
+	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
+	= V-OPEN>
+
+<SYNTAX PICK OBJECT = V-PICK>
+<SYNTAX PICK OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PICK>
+
+<SYNTAX PICK UP
+	OBJECT (FIND TAKEBIT)
+	       (ON-GROUND MANY)
+	= V-TAKE PRE-TAKE>
+
+<SYNTAX PLUG OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-PLUG>
+<SYNONYM PLUG GLUE PATCH REPAIR FIX>
+
+<SYNTAX PLUGH = V-ADVENTURE>
+<SYNONYM PLUGH XYZZY>
+
+<SYNTAX POKE
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-MUNG PRE-MUNG>
+<SYNONYM POKE JAB BLIND>
+
+<SYNTAX POUR OBJECT (HELD CARRIED) = V-POUR ;*>
+<SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-POUR-IN>
+<SYNTAX POUR OBJECT (HELD CARRIED HAVE) ON OBJECT = V-POUR-ON PRE-POUR-ON>
+<SYNTAX POUR OBJECT (HELD CARRIED) FROM OBJECT = V-POUR>
+<SYNONYM POUR SPILL>
+
+<SYNTAX PRAY = V-PRAY>
+<SYNTAX PRAY FOR OBJECT = V-PRAY>
+
+<SYNTAX PUMP UP OBJECT = V-PUMP>
+<SYNTAX PUMP UP OBJECT WITH OBJECT = V-PUMP>
+
+<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
+<SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO PRE-PUSH-TO>
+<SYNTAX PUSH OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO PRE-PUSH-TO>
+<SYNTAX PUSH OBJECT (HELD CARRIED HAVE) UNDER OBJECT = V-PUT-UNDER>
+<SYNTAX PUSH OBJECT (HELD CARRIED HAVE) THROUGH OBJECT = V-PUSH-THROUGH>
+<SYNTAX PUSH UP OBJECT = V-RAISE>
+<SYNONYM PUSH PRESS>
+
+<SYNTAX PUT OBJECT (ON-GROUND HELD MANY HAVE)
+	IN OBJECT = V-PUT PRE-PUT ;*>
+<SYNTAX PUT OBJECT (ON-GROUND HELD MANY HAVE)
+	ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT DOWN OBJECT (HELD MANY) = V-DROP>
+<SYNTAX PUT OBJECT (HELD MANY HAVE) UNDER OBJECT = V-PUT-UNDER> 
+<SYNTAX PUT ON OBJECT (IN-ROOM ON-GROUND CARRIED MANY) = V-WEAR>
+<SYNTAX PUT OBJECT (HELD MANY HAVE) BEHIND OBJECT = V-PUT-BEHIND>
+<SYNTAX PUT OBJECT (HELD HAVE) AGAINST OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) BY OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) AT OBJECT = V-PUT-AGAINST>
+<SYNTAX PUT OBJECT (HELD HAVE) ACROSS OBJECT = V-PUT-ACROSS>
+<SYNTAX PUT OBJECT (HELD HAVE) OVER OBJECT = V-PUT-ACROSS>
+<SYNTAX PUT OBJECT (HELD HAVE) BETWEEN OBJECT = V-PUT-ON PRE-PUT>
+<SYNONYM PUT STUFF INSERT PLACE HIDE WEDGE>
+
+<SYNTAX RAISE OBJECT = V-RAISE ;*>
+<SYNTAX RAISE UP OBJECT = V-RAISE>
+<SYNONYM RAISE LIFT>
+
+<SYNTAX RAPE OBJECT (FIND VICBIT) = V-RAPE>
+<SYNONYM RAPE MOLEST>
+
+<SYNTAX REACH IN OBJECT (FIND OPENBIT) = V-REACH-IN PRE-REACH-IN>
+
+<SYNTAX READ
+	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-READ PRE-READ ; *>
+<SYNTAX READ IN OBJECT (HELD CARRIED HAVE) = V-READ-INSIDE>
+<SYNTAX READ
+	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (HELD CARRIED HAVE)
+	= V-READ PRE-READ>
+<SYNONYM READ SKIM>
+
+<SYNTAX REPENT = V-REPENT>
+
+<SYNTAX ROLL OBJECT = V-ROLL>
+<SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) OBJECT = V-PUSH-TO PRE-PUSH-TO>
+<SYNTAX ROLL OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-PUSH-TO PRE-PUSH-TO>
+
+<SYNTAX RUB OBJECT = V-RUB>
+<SYNTAX RUB OBJECT WITH OBJECT = V-RUB>
+<SYNONYM RUB TOUCH FEEL PAT PET>
+
+<SYNTAX SCRIPT = V-SCRIPT>
+<SYNTAX UNSCRIPT = V-UNSCRIPT>
+
+<SYNTAX SEND OBJECT = V-SEND>
+<SYNTAX SEND FOR OBJECT = V-SEND>
+
+<SYNTAX SHAKE OBJECT = V-SHAKE>
+<SYNONYM SHAKE EMPTY>
+
+<SYNTAX SLIDE OBJECT = V-PUSH>
+<SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
+<SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) OBJECT = V-PUSH-TO>
+<SYNTAX SLIDE OBJECT (IN-ROOM ON-GROUND) TO OBJECT = V-PUSH-TO>
+
+<SYNTAX SKIP = V-SKIP>
+<SYNONYM SKIP HOP>
+
+<SYNTAX SMELL OBJECT = V-SMELL>
+<SYNONYM SMELL SNIFF>
+
+<SYNTAX SMOKE OBJECT = V-SMOKE>
+
+<SYNTAX SPIN OBJECT = V-SPIN>
+
+<SYNTAX SPRAY OBJECT ON OBJECT = V-SPRAY>
+<SYNTAX SPRAY OBJECT WITH OBJECT = V-SSPRAY>
+
+<SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
+<SYNTAX SQUEEZE OBJECT ON OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX STAND ON OBJECT (FIND VEHBIT) = V-CLIMB-ON>
+<SYNTAX STAND UNDER OBJECT = V-STAND-UNDER>
+
+<SYNTAX STAY = V-STAY>
+
+<SYNTAX STRIKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-ATTACK>
+<SYNTAX STRIKE
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	= V-ATTACK ;*>
+<SYNTAX STRIKE OBJECT (CARRIED ON-GROUND IN-ROOM) = V-LAMP-ON>
+
+<SYNTAX SWIM = V-SWIM>
+<SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNONYM SWIM BATHE WADE>
+
+<SYNTAX SWING
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	= V-SWING>
+<SYNTAX SWING
+	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
+	AT
+	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
+	= V-SWING>
+<SYNONYM SWING THRUST>
+
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT)
+	(ON-GROUND IN-ROOM MANY)
+	= V-TAKE PRE-TAKE ;*>
+<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
+<SYNTAX TAKE OFF OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
+<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX TAKE UNDER OBJECT = V-STAND-UNDER>
+<SYNTAX TAKE UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+	OUT
+	OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+	OFF
+	OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	FROM
+	OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE
+	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	OF
+	OBJECT
+	= V-TAKE PRE-TAKE> ;"Take a sip of water"
+<SYNTAX TAKE OBJECT (FIND TAKEBIT)
+	WITH OBJECT (FIND TOOLBIT) = V-TAKE PRE-TAKE>
+<SYNONYM TAKE GRAB GET HOLD CARRY REMOVE>
+
+<SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL>
+<SYNONYM TELL ASK>
+
+<SYNTAX SAY TO OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL>
+<SYNTAX SAY = V-SAY>
+<SYNONYM SAY TALK>
+
+<SYNTAX SLEEP = V-SLEEP>
+<SYNTAX SLEEP IN OBJECT = V-SLEEP>
+<SYNTAX SLEEP ON OBJECT = V-SLEEP>
+<SYNTAX SLEEP DOWN ON OBJECT = V-SLEEP> ;"lie down"
+<SYNTAX SLEEP DOWN OBJECT (FIND RMUNGBIT) = V-SLEEP>
+<SYNONYM SLEEP LIE REST>
+
+<SYNTAX INCANT = V-INCANT>
+<SYNONYM INCANT CHANT>
+
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) = V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OBJECT = V-THROW-DOWN>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) DOWN OBJECT = V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) AT OBJECT = V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OFF OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) OVER OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE)
+	WITH  OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) IN OBJECT = V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) ON OBJECT = V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED TAKE HAVE) TO OBJECT = V-THROW-DOWN>
+<SYNONYM THROW HURL CHUCK TOSS>
+
+<SYNTAX TIE OBJECT (ON-GROUND HELD CARRIED TAKE HAVE)
+	TO OBJECT = V-TIE PRE-TIE>
+<SYNTAX TIE OBJECT (ON-GROUND HELD CARRIED TAKE HAVE)
+	AROUND OBJECT = V-TIE PRE-TIE>
+<SYNTAX TIE UP
+	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED TAKE HAVE)
+	= V-TIE-UP>
+<SYNONYM TIE FASTEN SECURE ATTACH>
+
+<SYNTAX TIME = V-TIME>
+
+<SYNTAX TURN OVER OBJECT = V-TURN-OVER>
+<SYNTAX TURN OBJECT (FIND TURNBIT) TO OBJECT = V-TURN PRE-TURN>
+<SYNTAX TURN OBJECT (FIND TURNBIT) FOR OBJECT = V-TURN PRE-TURN>
+<SYNTAX TURN OBJECT (FIND TURNBIT) = V-TURN PRE-TURN>
+<SYNTAX TURN
+	OBJECT (FIND TURNBIT) ( HELD CARRIED ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
+	= V-TURN PRE-TURN ;*>
+<SYNTAX TURN ON
+	OBJECT ;(FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
+	= V-LAMP-ON>
+<SYNTAX TURN OFF
+	OBJECT ;(FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
+	= V-LAMP-OFF>
+<SYNONYM TURN FLIP SHUT SET>
+
+<SYNTAX UNFOLD OBJECT = V-UNFOLD>
+<SYNTAX FOLD OBJECT = V-FOLD>
+<SYNTAX FOLD UP OBJECT = V-FOLD>
+
+<SYNTAX UNLOCK
+	OBJECT (ON-GROUND IN-ROOM)
+	WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
+	= V-UNLOCK>
+
+<SYNTAX UNTIE
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	= V-UNTIE ;*>
+<SYNTAX UNTIE
+	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	FROM
+	OBJECT
+	= V-UNTIE>
+<SYNONYM UNTIE FREE UNFASTEN UNATTACH UNHOOK>
+
+<SYNTAX WAIT = V-WAIT>
+<SYNONYM WAIT Z>
+
+<SYNTAX WAKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM ;*>
+<SYNTAX WAKE UP OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM>
+<SYNONYM WAKE AWAKE SURPRISE STARTLE>
+
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT = V-THROUGH>
+<SYNTAX WALK ON OBJECT = V-THROUGH>
+<SYNTAX WALK OVER OBJECT = V-LEAP>
+<SYNTAX WALK WITH OBJECT = V-THROUGH>
+<SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
+<SYNTAX WALK UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX WALK DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX WALK TO OBJECT = V-WALK-TO>
+<SYNONYM WALK GO RUN PROCEED STEP>
+
+<SYNTAX WAVE AT OBJECT = V-WAVE>
+<SYNTAX WAVE TO OBJECT = V-WAVE>
+<SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
+<SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE>
+<SYNONYM WAVE BRANDISH SIGNAL>
+
+<SYNTAX WEAR OBJECT = V-WEAR>
+
+<SYNTAX WEIGH OBJECT = V-WEIGH>
+
+<SYNTAX WET OBJECT (ON-GROUND IN-ROOM HELD CARRIED HAVE)
+	WITH OBJECT = V-WET>
+
+<SYNTAX WIN = V-WIN>
+<SYNONYM WIN WINNAGE>
+
+<SYNTAX WIND OBJECT = V-WIND>
+<SYNTAX WIND UP OBJECT = V-WIND>
+
+<SYNTAX YELL = V-YELL>
+<SYNONYM YELL SCREAM SHOUT>
+
+<SYNTAX ZORK = V-ZORK>
+
+;"Simple questions"
+
+;"<SYNTAX WHAT ...> WHAT is a synonym of EXAMINE"
+
+;"<SYNTAX WHERE ...> WHERE is a synonym of FIND"
+
+<SYNTAX IS OBJECT IN OBJECT = V-IS-IN>
+<SYNTAX IS OBJECT ON OBJECT = V-IS-IN>
+
+
diff --git a/temple.zil b/temple.zil
new file mode 100644
index 0000000..0ae1431
--- /dev/null
+++ b/temple.zil
@@ -0,0 +1,378 @@
+"TEMPLE for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+;"TEMPLE--This is the file for the Temple area, the passage(s) leading
+to it, and any objects found there. TEMPLE will articulate with the
+BARGE area."
+
+<ROOM IN-THE-HALL
+      (IN ROOMS)
+      (DESC "Steep Passageway")
+      (FLAGS RLANDBIT)
+      (LDESC
+"You are at the top of a steep, descending passage that plunges down to the
+north. Although the angle is steep, it looks as if you should have firm enough
+footing to travel safely. From the angle, it appears as though the passage
+is actually leaving the pyramid, cutting down through the sand high overhead
+to an adjoining building.")
+      (SOUTH TO BARGE-EXIT) ;"Articulates with BARGE area here"
+      (DOWN TO S-END)
+      (NORTH TO S-END)
+      (OUT TO BARGE-EXIT)>
+
+<ROOM S-END
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Steep Passageway")
+      (LDESC
+"You are about midway down a steep, descending, north/south passageway which
+seems to lead out of the pyramid to the north. The walls of stone are polished
+and as smooth as glass, glistening in your light, lighting the passage far to
+the north and the south.")
+      (SOUTH TO IN-THE-HALL)
+      (UP TO IN-THE-HALL)
+      (DOWN TO N-END)
+      (NORTH TO N-END)>
+
+<ROOM N-END
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Steep Passageway")
+      (LDESC
+"You are at the north end of a descending passageway. You can see the smoothly
+polished passageway rising up and out of sight to the south, heading back into
+the pyramid. A large doorway cut into the stone walls lies to the north and,
+through it, you can see an immense chamber.")
+      (SOUTH TO S-END)
+      (UP TO S-END)
+      (NORTH TO TEMPLE-ENTER)
+      (IN TO TEMPLE-ENTER)
+      (GLOBAL DOORWAY)>
+
+<ROOM TEMPLE-ENTER
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Temple Chamber")
+      (LDESC
+"You are in a huge chamber, immense in its size and scope, especially since it
+is far underground. Your light seems to climb and fall from the high walls,
+making their top boundaries undefined as they melt into inky darkness,
+flickering into the unknown reaches high overhead. There is a huge doorway
+carved out of the south wall, the arch at its top barely discernible in your
+light. To the north is a similar doorway, slightly scaled down, with pillars on
+either side of it, their shadows playing strange tricks on the wall behind
+them. You can just barely make out the paintings on the walls, pictures of the
+ancient Queen, her servants, and the priests in attendance.")
+      (SOUTH TO N-END)
+      (NORTH TO SKELETON-ROOM)
+      (OUT TO N-END)
+      (IN TO SKELETON-ROOM)
+      (GLOBAL PICTURES PILLARS)>
+
+<ROOM SKELETON-ROOM
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Inner Chamber")
+      (LDESC
+"You are in the temple's inner chamber. The ceiling here is lower, low enough
+for your light to reach it. There are openings in the east and west walls, and
+a large, arched doorway to the south. The walls are covered with paintings,
+most of which depict the Queen in different stages of preparation for her trip
+on the royal barge. One in particular, larger than any of the others, shows the
+Queen and all of her attendants aboard the barge, floating through the air on
+their way to the netherworld. There are some detailed hieroglyphs on one of the
+walls.")
+      (OUT TO TEMPLE-ENTER)
+      (SOUTH TO TEMPLE-ENTER)
+      (WEST TO GOLDEN-ROOM)
+      (EAST TO SILVER-ROOM)
+      (GLOBAL HIEROGLYPHS PICTURES DOORWAY)>
+
+<ROOM GOLDEN-ROOM
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Golden Room")
+      (LDESC
+"You are in a room whose walls are covered with gold leaf. Your light reflects
+off the walls with a rich, warm tone and reveals the outlines of hieroglyphics
+engraved in the gold itself. There is a doorway cut into the south wall and,
+through the reflected light, you can tell it leads into a small chamber. There
+is another doorway leading out to the east.")
+      (EAST TO SKELETON-ROOM)
+      (SOUTH TO GCUP-ROOM)
+      (OUT TO SKELETON-ROOM)
+      (IN TO GCUP-ROOM)
+      (GLOBAL HIEROGLYPHS GOLD-LEAF)>
+
+<OBJECT GOLD-LEAF
+	(IN LOCAL-GLOBALS)
+	(FLAGS NDESCBIT DONTTAKE TOUCHBIT)
+	(DESC "glittering leaf")
+	(SYNONYM LEAF)
+	(ADJECTIVE GOLD SILVER)
+	(TEXT
+"The walls are covered with it. And it's very beautiful.")>
+
+<ROOM GCUP-ROOM
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Golden Alcove")
+      (LDESC
+"You are in a small alcove off the Golden Room. Sitting in the middle of this
+small room is a roughly-hewn slab of granite, much like a legless table.")
+      (OUT TO GOLDEN-ROOM)
+      (NORTH TO GOLDEN-ROOM)
+      (GLOBAL TABLE)>
+
+<ROOM SILVER-ROOM
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Silver Room")
+      (LDESC 
+"You are in the Silver Chamber, a room whose walls reflect your light
+brilliantly due to their silver surface. A doorway leads west and out, while
+another doorway leads into a smaller room to the south.")
+      (OUT TO SKELETON-ROOM)
+      (WEST TO SKELETON-ROOM)
+      (IN TO SCUP-ROOM)
+      (SOUTH TO SCUP-ROOM)
+      (GLOBAL HIEROGLYPHS GOLD-LEAF)>
+
+<ROOM SCUP-ROOM
+      (IN ROOMS)
+      (FLAGS RLANDBIT)
+      (DESC "Silver Alcove")
+      (LDESC
+"You are in a small alcove off the Silver Room. Sitting in the middle of this
+small room is a roughly-hewn slab of granite, much like a legless table.")
+      (OUT TO SILVER-ROOM)
+      (NORTH TO SILVER-ROOM)
+      (GLOBAL TABLE)>
+
+<OBJECT GOLD-TABLE
+	(IN GCUP-ROOM)
+	(FLAGS CONTBIT SURFACEBIT OPENBIT NDESCBIT TRANSBIT DONTTAKE)
+	(DESC "granite table") 
+	(SYNONYM TABLE SLAB)
+	(ADJECTIVE GRANITE)
+	(CAPACITY 100)
+	(ACTION HUH?)>
+
+<OBJECT GOLD-CUP
+	(IN GOLD-TABLE)
+	(FLAGS CONTBIT OPENBIT TAKEBIT SEARCHBIT)
+	(DESC "golden chalice")
+	(FDESC
+"Sitting in the middle of the granite table is a gleaming chalice made
+of gold.")
+	(TEXT
+"The cup is heavier than you thought it might be. The outside of it is
+beautifully etched with scenes of the Queen and her handmaidens.")
+	(SYNONYM CUP CHALIC)
+	(ADJECTIVE GOLD GOLDEN)
+	(VALUE 15)
+	(CAPACITY 5)
+	(SIZE 8)
+	(MAP 1)
+	(ACTION CUP-FCN)>
+
+<OBJECT SILVER-CUP
+	(IN SILVER-TABLE)
+	(FLAGS CONTBIT OPENBIT TAKEBIT SEARCHBIT)
+	(DESC "silver chalice")
+	(TEXT
+"There's a thin line etched inside the chalice which travels all the way
+around it. The chalice is not very heavy.")
+	(FDESC
+"Sitting in the middle of the granite table is a chalice made of gleaming silver.")
+	(SYNONYM CUP CHALIC)
+	(ADJECTIVE SILVER)
+	(VALUE 15)
+	(SIZE 5)
+	(CAPACITY 5)
+	(MAP 1)
+	(ACTION CUP-FCN)>
+
+<OBJECT LINE
+	(IN GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "line")
+	(SYNONYM LINE)
+	(ADJECTIVE THIN)
+	(TEXT
+"The line goes around the interior of the silver cup.")
+	(ACTION LINE-FCN)>
+
+<ROUTINE LINE-FCN ()
+	 <COND (<NOT <OR <HELD? ,SILVER-CUP>
+		    <IN? ,SILVER-CUP ,HERE>>>
+		<TELL "I can't see any " D ,PRSO " here." CR>
+		<RTRUE>)>>
+
+<ROUTINE CUP-FCN ()
+	 <COND (<AND <PRSO? ,SILVER-CUP>
+		     <VERB? EXAMINE LOOK-INSIDE>
+		     <OR <IN? ,WATER ,SILVER-CUP>
+			 <IN? ,LIQUID ,SILVER-CUP>>>
+		<TELL "The ">
+		<COND (<IN? ,WATER ,SILVER-CUP>
+		       <TELL "water">)
+		      (T
+		       <TELL "oily liquid">)>
+		<TELL " fills the cup up to the line." CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)>>
+
+<OBJECT SILVER-TABLE
+	(IN SCUP-ROOM)
+	(FLAGS CONTBIT SURFACEBIT TRANSBIT OPENBIT NDESCBIT DONTTAKE)
+	(DESC "granite table") 
+	(SYNONYM TABLE SLAB)
+	(ADJECTIVE GRANITE)
+	(CAPACITY 100)
+	(ACTION HUH?)>
+
+<OBJECT SKELETON
+	(IN SKELETON-ROOM)
+        (DESC "skeleton")        
+	(FDESC 
+"Lying before you in tortured repose are the bony remains of a former
+adventurer, someone who tried looting the pyramid long, long ago. As you bend
+over to pay your respects, something glitters, catching your eye as you move
+your head.")
+	(SYNONYM SKELET REMAIN BONES ADVENT)
+	(ADJECTIVE BONY)
+	(FLAGS TRYTAKEBIT TAKEBIT CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 15)
+	(ACTION SKELETON-FCN)>
+
+<ROUTINE SKELETON-FCN ()
+	 <COND (<OR <VERB? TAKE SHAKE MOVE>
+		    <AND <VERB? PUT>
+			 <EQUAL? ,PRSO ,SKELETON>>>
+		<TELL
+"If you tried that, the skeleton would fall apart, bone by bone." CR>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? ALARM>
+		<TELL "Let the dead rest." CR>
+		<RTRUE>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<COND (<IN? ,RING ,DIGITS>
+		       <TELL
+"On the bony digits of one hand is a jeweled ring." CR>)
+		      (T
+		       <TELL
+"I see nothing special about the " D ,PRSO "." CR>)>
+		<RTRUE>)
+	       (<VERB? LOOK-INSIDE>
+		<HOW? ,PRSO>
+		<RTRUE>)>>
+
+<OBJECT DIGITS
+	(IN SKELETON)
+	(DESC "calcified hand")
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)
+	(SYNONYM DIGITS HAND)
+	(ADJECTIVE BONY CALCIF)
+	(ACTION DIGIT-FCN)>
+
+<ROUTINE DIGIT-FCN ()
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<PERFORM ,V?EXAMINE ,SKELETON>
+		<RTRUE>)>>
+
+<OBJECT RING
+	(IN DIGITS)
+	(FLAGS TAKEBIT DONTTAKE NDESCBIT CONTBIT OPENBIT SEARCHBIT)
+	(DESC "jeweled ring")
+	(SYNONYM RING)
+	(ADJECTIVE JEWELE)
+	(TEXT
+"At first glance, you are overwhelmed with the beauty and richness of the ring.
+On close examination you notice the ring has a tiny needle on the inside of
+the band.")
+	(SIZE 1)
+	(ACTION WEAR-RING-FCN)>
+
+<ROUTINE WEAR-RING-FCN ()
+	 <COND (<AND <VERB? WEAR>
+		     <IN? ,RING ,WINNER>>
+		<TELL
+"Ouch! It seems you've pricked your finger while putting on the ring."
+		CR>
+		<ENABLE <QUEUE I-RING-KILL -1>>
+		<FSET ,RING ,WEARBIT>
+		<RTRUE>)
+	       (<VERB? WEAR>
+		<TELL "(Taken)" CR>
+		<MOVE ,RING ,WINNER>
+		<PERFORM ,V?WEAR ,RING>
+		<RTRUE>)
+	       (<VERB? TAKE>
+		<COND (<ITAKE>
+		       <TELL "Taken." CR>
+		       <FCLEAR ,RING ,NDESCBIT>
+		       <FCLEAR ,NEEDLE ,INVISIBLE>
+		       <FCLEAR ,RING ,DONTTAKE>
+		       <PUTP ,SKELETON ,P?FDESC
+"Lying before you in tortured repose are the bony remains of a former adventurer.">)>
+		<RTRUE>)
+	       (<AND <VERB? PUT>
+		     <FSET? ,RING ,NDESCBIT>>
+		<FCLEAR ,NEEDLE ,INVISIBLE>
+		<FCLEAR ,RING ,NDESCBIT>
+		<FCLEAR ,RING ,DONTTAKE>
+		<PUTP ,SKELETON ,P?FDESC
+"Lying before you in tortured repose are the bony remains of a former adventurer.">
+		<RFALSE>)
+	       (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)
+	       (<VERB? DISEMBARK>
+		<TELL "It's stuck on your finger." CR>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL <GETP ,RING ,P?TEXT> CR>
+		<FCLEAR ,NEEDLE ,INVISIBLE>
+		<FCLEAR ,RING ,DONTTAKE>
+		<RTRUE>)>>
+
+<OBJECT NEEDLE
+	(IN RING)
+	(FLAGS NDESCBIT INVISIBLE DONTTAKE TRYTAKEBIT)
+	(DESC "tiny needle")
+	(SYNONYM NEEDLE)
+	(ADJECTIVE TINY)
+	(SIZE 1)
+	(TEXT
+"Inside the band is a small needle set at an angle designed to pierce the skin.")
+	(ACTION TOUCH-NEEDLE-FCN)>
+
+<ROUTINE TOUCH-NEEDLE-FCN ()
+	 <COND (<VERB? RUB>
+		<TELL
+"You prick your finger on the tiny needle sticking out from the inside of the
+ring." CR>
+		<ENABLE <QUEUE I-RING-KILL -1>>
+		<RTRUE>)
+	       (<VERB? DROP THROW PUT PUT-ON>
+		<TELL "Better find a haystack first." CR>)
+	       (<VERB? SMELL>
+		<TELL "It smells very faintly of almonds." CR>)
+	       (<VERB? TASTE>
+		<JIGS-UP
+"Ugh! It tastes terrible!|
+|
+You stand there in horrified amazement, feeling the poison creeping down your
+throat and acting on your body almost instantaneously. Time to shuffle off...">
+		<RFATAL>)>>
+
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..91f79d5
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,2723 @@
+"VERBS for
+			      INFIDEL
+	(c) Copyright 1983 Infocom, Inc.  All Rights Reserved.
+"
+
+"SUBTITLE DESCRIBE THE UNIVERSE"
+
+"SUBTITLE SETTINGS FOR VARIOUS LEVELS OF DESCRIPTION"
+
+<GLOBAL VERBOSE <>>
+<GLOBAL SUPER-BRIEF <>>
+<GDECL (VERBOSE SUPER-BRIEF) <OR ATOM FALSE>>
+
+<ROUTINE V-VERBOSE ()
+	 <SETG VERBOSE T>
+	 <SETG SUPER-BRIEF <>>
+	 <TELL "Maximum verbosity." CR>>
+
+<ROUTINE V-BRIEF ()
+	 <SETG VERBOSE <>>
+	 <SETG SUPER-BRIEF <>>
+	 <TELL "Brief descriptions." CR>>
+
+<ROUTINE V-SUPER-BRIEF ()
+	 <SETG SUPER-BRIEF T>
+	 <TELL "Super-brief descriptions." CR>>
+
+\
+
+"SUBTITLE DESCRIBERS"
+
+;<ROUTINE V-RNAME ()
+	 <TELL D ,HERE CR>>
+
+;<ROUTINE V-OBJECTS ()
+	 <DESCRIBE-OBJECTS T>>
+
+;<ROUTINE V-ROOM ()
+	 <DESCRIBE-ROOM T>>
+
+<ROUTINE V-LOOK ()
+	 <COND (<DESCRIBE-ROOM T>
+		<DESCRIBE-OBJECTS T>)>>
+
+<ROUTINE V-FIRST-LOOK ()
+	 <COND (<DESCRIBE-ROOM>
+		<COND (<NOT ,SUPER-BRIEF> <DESCRIBE-OBJECTS>)>)>>
+
+<ROUTINE V-EXAMINE ()
+	 <COND (<GETP ,PRSO ,P?TEXT>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>)
+	       (<OR <FSET? ,PRSO ,CONTBIT>
+		    <FSET? ,PRSO ,DOORBIT>>
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)
+	       (ELSE
+		<TELL "I see nothing special about the "
+		      D ,PRSO "." CR>)>>
+
+<GLOBAL LIT <>>
+
+<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? STR AV)
+	 <SET V? <OR .LOOK? ,VERBOSE>>
+	 <COND (<NOT ,LIT>
+		<TELL
+"It is pitch black. Off in the distance you hear hideous squealing and what can
+only be the sound of thousands of tiny, clawed feet coming closer." CR>
+		<RETURN <>>)>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<FSET ,HERE ,TOUCHBIT>
+		<SET V? T>)>
+	 <COND (<IN? ,HERE ,ROOMS> <TELL D ,HERE CR>)>
+	 <COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>
+		<SET AV <LOC ,WINNER>>
+		<COND (<FSET? .AV ,VEHBIT>
+		       <TELL "(You are ">
+		       <COND (<EQUAL? .AV ,ALTAR>
+			      <TELL "on">)
+			     (T <TELL "in">)>
+		       <TELL " the " D .AV ".)" CR>)>
+		<COND (<AND .V? <APPLY <GETP ,HERE ,P?ACTION> ,M-LOOK>>
+		       <RTRUE>)
+		      (<AND .V? <SET STR <GETP ,HERE ,P?LDESC>>>
+		       <TELL .STR CR>)
+		      (T <APPLY <GETP ,HERE ,P?ACTION> ,M-FLASH>)>
+		<COND (<AND <NOT <==? ,HERE .AV>> <FSET .AV ,VEHBIT>>
+		       <APPLY <GETP .AV ,P?ACTION> ,M-LOOK>)>)>
+	 T>
+
+<ROUTINE DESCRIBE-OBJECTS ("OPTIONAL" (V? <>))
+	 <COND (,LIT
+		<COND (<FIRST? ,HERE>
+		       <PRINT-CONT ,HERE <SET V? <OR .V? ,VERBOSE>> -1>)>)
+	       (ELSE
+		<TELL "I can't see anything in the dark." CR>)>>
+
+"DESCRIBE-OBJECT -- takes object and flag.  if flag is true will print a
+long description (fdesc or ldesc), otherwise will print short."
+
+<GLOBAL DESC-OBJECT <>>
+
+<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV)
+	 <SETG DESC-OBJECT .OBJ>
+	 <COND (<AND <0? .LEVEL>
+		     <APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>
+		<RTRUE>)
+	       (<AND <0? .LEVEL>
+		     <OR <AND <NOT <FSET? .OBJ ,TOUCHBIT>>
+			      <SET STR <GETP .OBJ ,P?FDESC>>>
+			 <SET STR <GETP .OBJ ,P?LDESC>>>>
+		<TELL .STR>)
+	       (<0? .LEVEL>
+		<TELL "There is a">
+		<VOWEL? .OBJ>
+		<TELL D .OBJ>
+		<COND (<AND <FLAMING? .OBJ>
+			    <NOT <EQUAL? .OBJ ,MANY-MATCHES>>>
+		       <TELL " (lit and burning)">)
+		      (<AND <EQUAL? .OBJ ,ROPE>
+			    ,ROPE-TIED
+			    <EQUAL? ,HERE ,CHAMBER-OF-RA>>
+		       <TELL " (tied to the altar)">)>
+		<TELL " here.">)
+	       (ELSE
+		<TELL <GET ,INDENTS .LEVEL>>
+		<TELL "A">
+		<VOWEL? .OBJ>
+		<TELL D .OBJ>
+		<COND (<FSET? .OBJ ,WEARBIT> <TELL " (being worn)">)>
+		<COND (<AND <FLAMING? .OBJ>
+			    <NOT <EQUAL? .OBJ ,MANY-MATCHES>>>
+		       <TELL " (lit and burning)">)>
+		<COND (<AND <EQUAL? .OBJ ,ROPE> ,ROPE-TIED>
+		       <TELL " (tied to the " D ,ROPE-TIED ")">)>)>
+	 <COND (<AND <0? .LEVEL>
+		     <SET AV <LOC ,WINNER>>
+		     <FSET? .AV ,VEHBIT>>
+		<TELL " (outside the " D .AV ")">)>
+	 <CRLF>
+	 <COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
+		<PRINT-CONT .OBJ .V? .LEVEL>)>>
+
+<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (V? <>) (LEVEL 0) "AUX" Y 1ST? AV STR
+		     (PV? <>) (INV? <>) (FLG <>))
+	 <COND (<NOT <SET Y <FIRST? .OBJ>>> <RTRUE>)>
+	 <COND (<AND <SET AV <LOC ,WINNER>> <FSET? .AV ,VEHBIT>>
+		T)
+	       (ELSE <SET AV <>>)>
+	 <SET 1ST? T>
+	 <COND (<EQUAL? ,WINNER .OBJ <LOC .OBJ>>
+		<SET INV? T>)
+	       (ELSE
+		<REPEAT ()
+			<COND (<NOT .Y> <RETURN <NOT .1ST?>>)
+			      (<==? .Y .AV> <SET PV? T>)
+			      (<==? .Y ,WINNER>)
+			      (<AND <NOT <FSET? .Y ,INVISIBLE>>
+				    <NOT <FSET? .Y ,TOUCHBIT>>
+				    <SET STR <GETP .Y ,P?FDESC>>>
+			       <COND (<NOT <FSET? .Y ,NDESCBIT>>
+				      <TELL .STR CR>
+				      <SET FLG T>)>
+			       <COND (<AND <SEE-INSIDE? .Y>
+					   <NOT <GETP <LOC .Y> ,P?DESCFCN>>
+					   <FIRST? .Y>>
+				      <PRINT-CONT .Y .V? 0>)>)>
+			<SET Y <NEXT? .Y>>>)>
+	 <SET Y <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .Y>
+			<COND (<AND .PV? .AV <FIRST? .AV>>
+			       <PRINT-CONT .AV .V? .LEVEL>)>
+			<RETURN <NOT .1ST?>>)
+		       (<EQUAL? .Y .AV ,ADVENTURER>)
+		       (<AND <NOT <FSET? .Y ,INVISIBLE>>
+			     <OR .INV?
+				 <FSET? .Y ,TOUCHBIT>
+				 <NOT <GETP .Y ,P?FDESC>>>>
+			<COND (<NOT <FSET? .Y ,NDESCBIT>>
+			       <COND (.1ST?
+				      <COND (<FIRSTER .OBJ .LEVEL>
+					     <SET FLG T>
+					     <COND (<L? .LEVEL 0>
+						    <SET LEVEL 0>)>)>
+				      <SET LEVEL <+ 1 .LEVEL>>
+				      <SET 1ST? <>>)>
+			       <DESCRIBE-OBJECT .Y .V? .LEVEL>)
+			      (<AND <FIRST? .Y> <SEE-INSIDE? .Y>>
+			       <PRINT-CONT .Y .V? .LEVEL>)>)>
+		 <SET Y <NEXT? .Y>>>
+	 .FLG>
+
+<ROUTINE FIRSTER (OBJ LEVEL)
+	 <COND (<==? .OBJ ,WINNER>
+		<TELL "You are carrying:" CR>)
+	       (<NOT <IN? .OBJ ,ROOMS>>
+		<COND (<G? .LEVEL 0>
+		       <TELL <GET ,INDENTS .LEVEL>>)>
+		<COND (<FSET? .OBJ ,SURFACEBIT>
+		       <TELL "Sitting on the " D .OBJ
+			     " is:" CR>)
+		      (ELSE
+		       <TELL "The " D .OBJ " contains:" CR>)>)>>
+
+"SUBTITLE SCORING"
+
+<GLOBAL MOVES 0>
+<GLOBAL SCORE 0>
+<GLOBAL BASE-SCORE 0>
+
+<GLOBAL WON-FLAG <>>
+
+<GLOBAL SCORE-MAX 400>
+
+<ROUTINE SCORE-UPD (NUM)
+	 #DECL ((NUM) FIX)
+	 <SETG BASE-SCORE <+ ,BASE-SCORE .NUM>>
+	 <SETG SCORE <+ ,SCORE .NUM>>
+	 T>
+
+<ROUTINE SCORE-OBJ (OBJ "AUX" TEMP)
+	 #DECL ((OBJ) OBJECT (TEMP) FIX)
+	 <COND (<GETP .OBJ ,P?VALUE>
+		<COND (<G? <SET TEMP <GETP .OBJ ,P?VALUE>> 0>
+		       <SCORE-UPD .TEMP>
+		       <PUTP .OBJ ,P?VALUE 0>)>)>>
+
+<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
+	 #DECL ((ASK?) <OR ATOM FALSE>)
+	 <TELL "Your score is " N ,SCORE>
+	 <TELL " out of a possible " N ,SCORE-MAX ", in ">
+	 <TELL N ,MOVES>
+	 <COND (<1? ,MOVES> <TELL " move.">) (ELSE <TELL " moves.">)>
+	 <CRLF>
+	 <TELL
+"This score gives you the rank of a ">
+	 <COND (<G? ,SCORE 390>
+		<TELL "master adventurer">)
+	       (<G? ,SCORE 320>
+		<TELL "very good adventurer">)
+	       (<G? ,SCORE 200>
+		<TELL "fairly good looter">)
+	       (<G? ,SCORE 100>
+		<TELL "poor professor">)
+	       (ELSE
+		<TELL "fumbling beginner">)>
+	 <TELL "." CR>
+	 ,SCORE>
+
+<ROUTINE FINISH ()
+	 <V-SCORE>
+	 <QUIT>>
+
+<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
+	 #DECL ((ASK?) <OR ATOM <PRIMTYPE LIST>> (SCOR) FIX)
+	 <V-SCORE>
+	 <COND (<OR <AND .ASK?
+			 <TELL
+"Do you wish to leave the game? (Y is affirmative): ">
+			 <YES?>>
+		    <NOT .ASK?>>
+		<QUIT>)
+	       (ELSE <TELL "Ok." CR>)>>
+
+<ROUTINE PRE-FINISH ()
+	 <V-SCORE>
+	 <TELL
+"Do you wish to start the game again? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Okay. Restarting..." CR>
+		<RESTART>
+		<TELL "Failed. Please reboot your system." CR>
+		<QUIT>)
+	       (ELSE <TELL "Ok. See you next time!" CR>
+		<QUIT>)>>
+
+<ROUTINE YES? ()
+	 <PRINTI ">">
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17))
+	 <TELL
+"INFIDEL|
+Copyright 1983 by Infocom, Inc.  All rights reserved.|
+INFIDEL is a trademark of Infocom, Inc.|
+Release ">
+	 <PRINTN <BAND <GET 0 1> *3777*>>
+	 <TELL " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <CRLF>>
+
+<ROUTINE IN-HERE? (OBJ)
+	 <OR <IN? .OBJ ,HERE>
+	     <GLOBAL-IN? .OBJ ,HERE>>>
+
+<ROUTINE V-AGAIN ("AUX" OBJ)
+	 <COND (<==? ,L-PRSA ,V?WALK>
+		<PERFORM ,L-PRSA ,L-PRSO>)
+	       (T
+		<SET OBJ
+		     <COND (<AND ,L-PRSO <NOT <LOC ,L-PRSO>>>
+			    ,L-PRSO)
+			   (<AND ,L-PRSI <NOT <LOC ,L-PRSO>>>
+			    ,L-PRSI)>>
+		<COND (<AND .OBJ 
+			    <NOT <EQUAL? .OBJ ,PSEUDO-OBJECT ,ROOMS>>>
+		       <TELL "I can't see the " D .OBJ " anymore." CR>
+		       <RFATAL>)
+		      (T
+		       <PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>)>)>>
+
+"SUBTITLE DEATH AND TRANSFIGURATION"
+
+<GLOBAL DEAD <>>
+<GLOBAL DEATHS 0>
+<GLOBAL LUCKY 1>
+
+<ROUTINE JIGS-UP (DESC "OPTIONAL" (PLAYER? <>))
+ 	 #DECL ((DESC) ZSTRING (PLAYER?) <OR ATOM FALSE>)
+ 	 <TELL .DESC CR>
+	 <TELL "
+|    ****  You have died  ****
+|
+|">
+	 <COND (<NOT ,PYRAMID-OPENED>
+		<TELL
+"You feel yourself disembodied in a deep blackness. A voice from the void, or
+perhaps it's just your dying thoughts, rings in your ears.|
+|
+\"Obsessions are the torment of men's souls, reaching out for something greater
+than life has offered. Perhaps this is what makes the difference between an
+ordinary mortal and an adventurer!\" It is the last thing you hear." CR>)
+	       (T
+		<TELL
+"The great mysteries of the ancient pyramid remain unsolved. Although your
+desperation has served you well in getting this far, to get farther requires a
+wisdom, tempered by experience." CR>)>
+	 <CRLF>
+	 <PRE-FINISH>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (<RESTORE>
+		<TELL "Ok." CR>
+		<V-FIRST-LOOK>)
+	       (T
+		<TELL "Failed." CR>)>>
+
+<ROUTINE V-SAVE ()
+	 <COND (<SAVE>
+	        <TELL "Ok." CR>)
+	       (T
+		<TELL "Failed." CR>)>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE T>
+	 <TELL "Do you wish to restart? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Restarting." CR>
+		<RESTART>
+		<TELL "Failed." CR>)>>
+
+<CONSTANT REXIT 0>
+<CONSTANT UEXIT 1>
+<CONSTANT NEXIT 2>
+<CONSTANT FEXIT 3>
+<CONSTANT CEXIT 4>
+<CONSTANT DEXIT 5>
+
+<CONSTANT NEXITSTR 0>
+<CONSTANT FEXITFCN 0>
+<CONSTANT CEXITFLAG 1>
+<CONSTANT CEXITSTR 1>
+<CONSTANT DEXITOBJ 1>
+<CONSTANT DEXITSTR 1>
+
+<ROUTINE V-WALK-AROUND ()
+	 <TELL "Use directions for movement here." CR>>
+
+<ROUTINE V-LAUNCH ()
+	  <TELL "How in blazes does one launch that?" CR>>
+
+<ROUTINE GO-NEXT (TBL "AUX" VAL)
+	 #DECL ((TBL) TABLE (VAL) ANY)
+	 <COND (<SET VAL <LKP ,HERE .TBL>>
+		<GOTO .VAL>)>>
+
+<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
+	 #DECL ((ITM) ANY (TBL) TABLE (CNT LEN) FIX)
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
+			<RFALSE>)
+		       (<==? <GET .TBL .CNT> .ITM>
+			<COND (<==? .CNT .LEN> <RFALSE>)
+			      (T
+			       <RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
+	 #DECL ((PT) <OR FALSE TABLE> (PTS) FIX (STR) <OR ZSTRING FALSE>
+		(OBJ) OBJECT (RM) <OR FALSE OBJECT>)
+	 <COND (<NOT ,P-WALK-DIR>
+		<PERFORM ,V?WALK-TO ,PRSO>
+		<RTRUE>)
+	       (<SET PT <GETPT ,HERE ,PRSO>>
+		<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <GOTO <GETB .PT ,REXIT>>)
+		      (<==? .PTS ,NEXIT>
+		       <TELL <GET .PT ,NEXITSTR> CR>
+		       <RFATAL>)
+		      (<==? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <GOTO .RM>)
+			     (T
+			      <RFATAL>)>)
+		      (<==? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TELL "You can't go that way." CR>
+			      <RFATAL>)>)
+		      (<==? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GETB .PT ,DEXITOBJ>> ,OPENBIT>
+			      <GOTO <GETB .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <TELL .STR CR>
+			      <THIS-IS-IT .OBJ>
+			      <RFATAL>)
+			     (T
+			      <TELL "The " D .OBJ " is closed." CR>
+			      <THIS-IS-IT .OBJ>
+			      <RFATAL>)>)>)
+	       (<AND <NOT ,LIT> <PROB 90>>
+		<JIGS-UP
+"Oh, no! You have been devoured by 6,502 rats!">)
+	       (T
+		<TELL "You can't go that way." CR>
+		<RFATAL>)>>
+
+<ROUTINE THIS-IS-IT (OBJ)
+	 <SETG P-IT-OBJECT .OBJ>
+	 <SETG P-IT-LOC ,HERE>>
+
+<ROUTINE V-INVENTORY ()
+	 <COND (<FIRST? ,WINNER> <PRINT-CONT ,WINNER>)
+	       (T <TELL "You are empty-handed." CR>)>>
+
+<GLOBAL INDENTS
+	<TABLE ""
+	       "  "
+	       "    "
+	       "      "
+	       "        "
+	       "          ">>
+
+\
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)>
+	 <COND (<IN? ,PRSO ,WINNER>
+		<COND (<FSET? ,PRSO ,WEARBIT>
+		       <COND (<EQUAL? ,PRSO ,KNAPSACK>
+			      <RFALSE>)
+			     (T <TELL "You are already wearing it." CR>)>)
+		      (<EQUAL? ,PRSO ,ONE-MATCH>
+		       <TELL "You already have one. One at a time, now!" CR>)
+		      (T <TELL "You already have it." CR>)>)
+	       (<AND <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TELL "You can't reach that." CR>
+		<RTRUE>)
+	       (,PRSI
+		<COND (<NOT <==? ,PRSI <LOC ,PRSO>>>
+		       <COND (<AND <EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+				   <FSET? ,PRSI ,CONTBIT>
+				   <NOT <FSET? ,PRSI ,OPENBIT>>>
+			      <TELL "You'd better open the " D ,PRSI 
+				    " first." CR>
+			      <THIS-IS-IT ,PRSI>
+			      <RTRUE>)
+			     (<EQUAL? ,PRSO ,LOCK>
+			      <RFALSE>)
+			     (<AND <EQUAL? ,PRSO ,SHOVEL>
+				   <EQUAL? ,PRSI ,SAND>>
+			      <SETG PRSI <>>
+			      <RFALSE>)
+			     (ELSE
+			      <TELL "The " D ,PRSO
+				    " isn't in the " D ,PRSI "." CR>)>)
+		      (T
+		       <SETG PRSI <>>
+		       <RFALSE>)>)
+	       (<==? ,PRSO <LOC ,WINNER>> <TELL "You are in it, loser!" CR>)>>
+
+<ROUTINE V-TAKE ()
+	 <COND (<==? <ITAKE> T>
+		<COND (<FSET? ,PRSO ,WEARBIT>
+		       <TELL "You are now wearing the " D ,PRSO "." CR>)
+		      (T <TELL "Taken." CR>)>)>>
+
+<GLOBAL FUMBLE-NUMBER 7>
+
+<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
+		       <TELL <PICK-ONE ,YUKS> CR>)>
+		<RFALSE>)
+	       (<AND <NOT <IN? <LOC ,PRSO> ,WINNER>>
+		     <G? <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>> ,LOAD-ALLOWED>>
+		<COND (.VB
+		       <TELL "Your load is too heavy." CR>
+		       <CRLF>)>
+		<RFALSE>)
+	       (<G? <SET CNT <CCOUNT ,WINNER>> ,FUMBLE-NUMBER>
+		<TELL "You're carrying too many individual items already!" CR>
+		<RFALSE>)
+	       (T
+		<MOVE ,PRSO ,WINNER>
+		<FSET ,PRSO ,TOUCHBIT>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<SCORE-OBJ ,PRSO>
+	        <RTRUE>)>>
+
+<ROUTINE V-PUT-ACROSS ()
+	  <TELL "You can't do that." CR>>
+
+<ROUTINE V-PUT-ON ()
+	 <COND (<FSET? ,PRSI ,SURFACEBIT>
+		<V-PUT>
+		<RTRUE>)
+	       (T <TELL "There's no good surface on the " D ,PRSI "." CR>)>>
+
+<ROUTINE PRE-PUT ("AUX" OBJ)
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<PRSO? ,PLASTER ,PLASTER1 ,LINTEL>
+		<TELL "That's weird." CR>
+		<RTRUE>)
+	       (<EQUAL? ,PRSI ,GROUND ,SAND>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,ONE-MATCH>
+		<RFALSE>)
+	       (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <NOT <FSET? ,PRSO ,TAKEBIT>>>
+		<TELL "Nice try." CR>)
+	       (<AND <PRSI? ,LEFT-DISC ,RIGHT-DISC ,MID-DISC>
+		     <FIRST? ,PRSI>>
+		<SET OBJ <FIRST? ,PRSI>>
+		<COND (<EQUAL? .OBJ ,PRSO>
+		       <TELL "Better have your eyes checked." CR>)
+		      (T <TELL "There's no room. The " D .OBJ 
+		      " is already on the " D ,PRSI "." CR>)>
+		<RTRUE>)
+	       (<STAIRWAY-CHECK?>
+		<RTRUE>)
+	       (<PRSI? ,TORCH>
+		<PERFORM ,V?DROP ,PRSO ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE STAIRWAY-CHECK? ()
+	 <COND (<AND <PRSO? ,ROPE>
+		     ,ROPE-TIED>
+		<RFALSE>)
+	       (<AND <OR <EQUAL? ,PRSI ,NORTH-STAIRS ,SOUTH-STAIRS>
+			 <EQUAL? ,PRSI ,WEST-STAIRS ,EAST-STAIRS>>
+		     <EQUAL? <LOC ,WINNER> ,CHAMBER-OF-RA ,TINY-LANDING>>
+		<TELL "You hear the " D ,PRSO " crash below." CR>
+		<COND (<NOT <IN? ,PRSO ,WINNER>>
+		       <TELL "You're not holding the " D ,PRSO "." CR>
+		       <RTRUE>)
+		      (<PRSI? ,NORTH-STAIRS>
+		       <MOVE ,PRSO ,LANDING-ZERO>
+		       <RTRUE>)
+		      (<PRSI? ,EAST-STAIRS>
+		       <MOVE ,PRSO ,LANDING-ONE>
+		       <RTRUE>)
+		      (<PRSI? ,WEST-STAIRS>
+		       <MOVE ,PRSO ,LANDING-THREE>
+		       <RTRUE>)
+		      (<PRSI? ,SOUTH-STAIRS>
+		       <MOVE ,PRSO ,LANDING-TWO>
+		       <RTRUE>)
+		      (ELSE <RFALSE>)>)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<OR <FSET? ,PRSI ,OPENBIT>
+		    <OPENABLE? ,PRSI>
+		    <FSET? ,PRSI ,VEHBIT>>)
+	       (T
+		<TELL "You can't do that." CR>
+		<RTRUE>)>
+	 <COND (<NOT <FSET? ,PRSI ,OPENBIT>>
+		<TELL "The " D ,PRSI " isn't open." CR>)
+	       (<==? ,PRSI ,PRSO>
+		<TELL "How can you do that?" CR>)
+	       (<IN? ,PRSO ,PRSI>
+		<TELL "The " D ,PRSO " is already in the " D ,PRSI "." CR>)
+	       (<G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>>
+		       <GETP ,PRSI ,P?SIZE>>
+		    <GETP ,PRSI ,P?CAPACITY>>
+		<TELL "There's no room." CR>)
+	       (<AND <NOT <HELD? ,PRSO>>
+		     <NOT <ITAKE>>>
+		<RTRUE>)
+	       (T
+		<MOVE ,PRSO ,PRSI>
+		<FSET ,PRSO ,TOUCHBIT>
+		<COND (<AND <NOT <EQUAL? ,PRSI ,PUNCH-PANEL>>
+			    <FSET? ,PRSO ,NDESCBIT>>
+		       <FCLEAR ,PRSO ,NDESCBIT>)>
+		<TELL "Done." CR>)>
+	 <COND (<AND <EQUAL? ,PRSO ,BEAM>
+		     ,BEAM-PLACED
+		     <NOT <EQUAL? ,PRSI ,NICHES>>>
+		<SETG BEAM-PLACED <>>
+		<SETG ON-BEAM <>>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,DEAD-BOOK ,SCARAB>
+		     <NOT <PRSI? ,S-AREA ,L-AREA>>>
+		<SETG CAN-TURN-STATUES <>>)>>
+
+<ROUTINE PRE-DROP ()
+	 <COND (<==? ,PRSO <LOC ,WINNER>>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <HELD? ,PRSO>>
+		<TELL 
+"That's easy for you to say since you don't even have it." CR>)>>
+
+<ROUTINE PRE-SGIVE ()
+	 <PERFORM ,V?GIVE ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE HELD? (OBJ)
+	 <COND (<NOT .OBJ> <RFALSE>)
+	       (<IN? .OBJ ,WINNER> <RTRUE>)
+	       (T <HELD? <LOC .OBJ>>)>>
+
+<ROUTINE V-GIVE ()
+	 <TELL "You can't give the " D ,PRSO " to a">
+	 <VOWEL? ,PRSI>
+	 <TELL D ,PRSI "!" CR>>
+
+<ROUTINE V-SGIVE ()
+	 <TELL "FOOOO!!" CR>>
+
+<ROUTINE V-DROP ("OPTIONAL" (SUPPRESS <>))
+	 <COND (<IDROP>
+		<COND (<NOT SUPPRESS>
+		       <TELL "Dropped." CR>)>)>>
+
+;<ROUTINE PRE-THROW ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <IN? ,PRSO ,WINNER>>
+		<TELL "You're not carrying the " D ,PRSO "." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-THROW ()
+	 <COND (<AND ,PRSI
+		     <OR <FSET? ,PRSI ,CONTBIT>
+			 <FSET? ,PRSI ,CLIMBBIT>>>
+		<PERFORM ,V?PUT ,PRSO ,PRSI>
+		<RTRUE>)
+	       (ELSE
+		<IDROP>
+		<TELL "Thrown." CR>
+		<RTRUE>)>>
+
+<ROUTINE IDROP ()
+	 <COND (<AND <NOT <IN? ,PRSO ,WINNER>> <NOT <IN? <LOC ,PRSO> ,WINNER>>>
+		<TELL "You're not carrying the " D ,PRSO "." CR>
+		<RFALSE>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TELL "The " D ,PRSO " is closed." CR>
+		<RFALSE>)
+	       (T <MOVE ,PRSO <LOC ,WINNER>> <RTRUE>)>>
+
+<ROUTINE V-OPEN ("AUX" F STR)
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<TELL "You must tell me how to do that to the " D ,PRSO "." CR>
+		)
+	       (<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>
+		<COND (<FSET? ,PRSO ,OPENBIT> <TELL "It is already open." CR>)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <COND (<NOT <FIRST? ,PRSO>>
+			      <TELL "Opened." CR>)
+			     (<AND <SET F <FIRST? ,PRSO>>
+				   <NOT <NEXT? .F>>
+				   <SET STR <GETP .F ,P?FDESC>>>
+			      <TELL "The " D ,PRSO " opens." CR>
+			      <TELL .STR CR>)
+			     (T
+			      <COND (<NOT <PRSO? ,MAP>>
+				     <TELL "Opening">)
+				    (T
+				     <TELL "Unfolding">)>
+			      <TELL " the " D ,PRSO " reveals ">
+			      <PRINT-CONTENTS ,PRSO>
+			      <TELL "." CR>)>)>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "It is already open." CR>)
+		      (T
+		       <TELL "The " D ,PRSO " opens." CR>
+		       <FSET ,PRSO ,OPENBIT>)>)
+	       (T <TELL "The " D ,PRSO " fails to open." CR>)>>
+
+<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 ">)>)>
+			<TELL "a">
+			<VOWEL? .F>
+			<TELL D .F>
+			<SET F .N>
+			<COND (<NOT .F> <RETURN>)>>)>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<TELL "You must tell me how to do that to the " D ,PRSO "." CR>)
+	       (<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
+		     <NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <FCLEAR ,PRSO ,OPENBIT>
+		       <TELL "Closed." CR>)
+		      (T <TELL "It is already closed." CR>)>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "The " D ,PRSO " is now closed." CR>
+		       <FCLEAR ,PRSO ,OPENBIT>)
+		      (T <TELL "It is already closed." CR>)>)
+	       (ELSE
+		<TELL "You cannot close that." CR>)>>
+
+<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<NOT <FSET? .X ,WEARBIT>>
+			       <SET CNT <+ .CNT 1>>)>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+"WEIGHT:  Get sum of SIZEs of supplied object, recursing to the nth level."
+
+<ROUTINE WEIGHT
+	 (OBJ "AUX" CONT (WT 0))
+	 #DECL ((OBJ) OBJECT (CONT) <OR FALSE OBJECT> (WT) FIX)
+	 <COND (<SET CONT <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<AND <==? .OBJ ,WINNER> <FSET? .CONT ,WEARBIT>>
+			       <SET WT <+ .WT 1>>)
+			      (T <SET WT <+ .WT <WEIGHT .CONT>>>)>
+			<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
+	 <+ .WT <GETP .OBJ ,P?SIZE>>>
+
+<ROUTINE V-BUG ()
+	 <TELL
+"If there is a problem here, it is unintentional. You may report
+your problem to the address provided in your documentation." CR>>
+
+<GLOBAL COPR-NOTICE
+" a transcript of interaction with INFIDEL.|
+INFIDEL is a trademark of Infocom, Inc.|
+Copyright (c) 1983 Infocom, Inc.  All rights reserved.|">
+
+<ROUTINE V-SCRIPT ()
+	<PUT 0 8 <BOR <GET 0 8> 1>>
+	<TELL "Here begins" ,COPR-NOTICE CR>>
+
+<ROUTINE V-UNSCRIPT ()
+	<TELL "Here ends" ,COPR-NOTICE CR>
+	<PUT 0 8 <BAND <GET 0 8> -2>>
+	<RTRUE>>
+
+<ROUTINE PRE-MOVE ()
+	 <COND (<HELD? ,PRSO> <TELL "I don't juggle objects!" CR>)>>
+
+<ROUTINE V-MOVE ()
+	 <COND (<AND <EQUAL? ,PRSO ,BEAM>
+		     <NOT <FSET? ,BEAM ,TOUCHBIT>>>
+		<TELL
+"Sure. But it might be better to be a little more specific in how you want it
+moved." CR>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "Moving the " D ,PRSO " reveals nothing." CR>)
+	       (T <TELL "You can't move the " D ,PRSO "." CR>)>>
+
+<ROUTINE V-LAMP-ON ()
+	 <COND (<FSET? ,PRSO ,BURNBIT>
+		<COND (<FLAMING? ,PRSO>
+		       <COND (<EQUAL? ,PRSO ,ONE-MATCH>
+			      <TELL "One">)
+			     (T <TELL "It">)>
+		       <TELL " is already lit." CR>)
+		      (<AND <EQUAL? ,PRSO ,TORCH>
+			    <NOT ,PRSI>
+			    <NOT <IN? ,ONE-MATCH ,WINNER>>>
+		       <TELL 
+"You expect to light the torch with your glowing intellect?" CR>
+		       <RTRUE>)
+		      (<AND <OR <EQUAL? ,PRSI ,MATCHES
+					,ONE-MATCH ,SINGLE-MATCH>
+				<IN? ,ONE-MATCH ,WINNER>>
+			    <EQUAL? ,PRSO ,TORCH>>
+		       <ENABLE <QUEUE I-TORCH -1>>
+		       <LIGHT-THE ,TORCH <>>
+		       <FSET ,TORCH ,TOUCHBIT>)
+		      (<AND <OR <EQUAL? ,PRSO ,MANY-MATCHES ,SINGLE-MATCH 
+					,EMPTY-MATCHES>
+				<EQUAL? ,PRSO ,ONE-MATCH>>
+			    <AND <NOT <IN? ,ONE-MATCH ,WINNER>>
+				 <NOT <IN? ,MATCHES ,WINNER>>>>
+		       <TELL "I see no match here." CR>
+		       <RTRUE>)
+		      (<OR <EQUAL? ,PRSO ,MANY-MATCHES ,SINGLE-MATCH 
+					,EMPTY-MATCHES>
+				<EQUAL? ,PRSO ,ONE-MATCH>>
+		       <COND (<L? ,MATCH-COUNT 1>
+			      <TELL 
+"That's a little tough to do with an empty book of matches." CR>
+			      <RTRUE>)
+			     (T
+			      <COND (<NOT <IN? ,ONE-MATCH ,WINNER>>
+				     <MATCH-MOVER>)>
+			      <TELL "You have now lit a match." CR>
+			      <LIGHT-THE ,ONE-MATCH T>
+			      <ENABLE <QUEUE I-MATCH-OUT 3>>)>)
+		      (ELSE
+		       <TELL "I don't know how to light the " D ,PRSO"." CR>)>)
+	       (T
+		<TELL "You can't light that." CR>)>
+	 <RTRUE>>
+
+<ROUTINE FLAMING? (OBJ)
+	 <COND (<FSET? .OBJ ,FLAMEBIT>
+		<RTRUE>)>>
+
+<ROUTINE LIGHT-THE (OBJECT SUPPRESS?)
+	 <FSET .OBJECT ,ONBIT>
+	 <FSET .OBJECT ,FLAMEBIT>
+	 <COND (<EQUAL? .OBJECT ,ONE-MATCH>
+		<COND (<FSET? ,MATCHES ,OPENBIT>
+		       <COND (<PROB 10>
+			      <TELL
+"Ooops! You didn't remember to close the cover before striking! The matchbook
+bursts into flames, burning your fingertips." CR>
+			      <MOVE ,BURNED-MATCHBOOK <LOC ,MATCHES>>
+			      <FSET ,BURNED-MATCHBOOK ,OPENBIT>
+			      <REMOVE ,MATCHES>
+			      <REMOVE ,MANUAL>
+			      <REMOVE ,ONE-MATCH>
+			      <SETG MATCH-COUNT 0>
+			      <SET SUPPRESS? T>)>)>)>
+	 <COND (<NOT .SUPPRESS?>
+		<TELL "The " D .OBJECT " is now lit." CR>)>
+	 <COND (<NOT ,LIT>
+		<SETG LIT <LIT? ,HERE>>
+		<CRLF>
+		<V-LOOK>)>>
+
+<ROUTINE V-LAMP-OFF ()
+	 <COND (<FSET? ,PRSO ,BURNBIT>
+		<COND (<NOT <FLAMING? ,PRSO>>
+		       <TELL "It is already out." CR>)
+		      (<EQUAL? ,PRSO ,MATCHES ,ONE-MATCH>
+		       <DISABLE <INT I-MATCH-OUT>>
+		       <I-MATCH-OUT T>
+		       <RTRUE>)
+		      (ELSE
+		       <TELL "The " D ,PRSO " is now out." CR>
+		       <KILL-TORCH>)>)
+	       (ELSE <TELL "You can't extinguish that." CR>)>
+	 <RTRUE>>
+
+<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))
+	 #DECL ((NUM) FIX)
+	 <TELL "Time passes..." CR>
+	 <REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)
+		       (<CLOCKER> <RETURN>)>
+		 <SETG MOVES <+ ,MOVES 1>>>
+	 <SETG CLOCK-WAIT T>>
+
+<ROUTINE PRE-BOARD ("AUX" AV)
+	 <SET AV <LOC ,WINNER>>
+	 <COND (<EQUAL? ,PRSO ,TENT-OBJ>
+		<RFALSE>)
+	       (<EQUAL? ,PRSO ,BOAT>
+		<RFALSE>)
+	       (<EQUAL? ,PRSO ,BEAM>
+		<PERFORM ,V?CLIMB-ON ,BEAM>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<COND (<FSET? .AV ,VEHBIT>
+		       <TELL "You are already on the " D .AV ", cretin!" CR>)
+		      (T <RFALSE>)>)
+	       (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (T
+		<TELL "I suppose you have a theory on getting into the "
+		      D ,PRSO "." CR>)>
+	 <RFATAL>>
+
+<ROUTINE V-BOARD ("OPTIONAL" OBJ "AUX" AV)
+	 #DECL ((AV) OBJECT)
+	 <TELL "You are now ">
+	 <COND (<EQUAL? ,PRSO ,ALTAR>
+		<TELL "on">)
+	       (T <TELL "in">)>
+	 <TELL " the " D ,PRSO "." CR>
+	 <MOVE ,WINNER ,PRSO>
+	 <COND (<NOT <EQUAL? ,PRSO ,ALTAR ,CRATE ,SLAB>>
+		<APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>)>
+	 <RTRUE>>
+
+<GLOBAL STOOD-UP <>>
+
+<ROUTINE V-DISEMBARK ()
+	 <COND (<NOT <==? <LOC ,WINNER> ,PRSO>>
+		<TELL "You're not in that!" CR>
+		<RFATAL>)
+	       (<FSET? ,HERE ,RLANDBIT>
+		<COND (<NOT ,STOOD-UP>
+		       <TELL 
+"You push yourself up and manage to get out of the cot. Your legs are a little
+wobbly, though, and your head swims." CR>
+		       <SETG STOOD-UP T>)
+		      (T
+		       <TELL "You are on your feet again." CR>)>
+		<MOVE ,WINNER ,HERE>)
+	       (T
+		<TELL
+"You realize, just in time, that getting out here would probably be fatal." CR>
+		<RFATAL>)>>
+
+<ROUTINE V-BLAST ()
+	 <TELL "You can't blast anything by using words." CR>>
+
+<ROUTINE GOTO (RM "OPTIONAL" (V? T)
+	       "AUX" (LB <FSET? .RM ,RLANDBIT>) (WLOC <LOC ,WINNER>)
+	             (AV <>) OLIT)
+	 #DECL ((RM WLOC) OBJECT (LB) <OR ATOM FALSE> (AV) <OR FALSE FIX>)
+	 <SET OLIT ,LIT>
+	 <COND (<FSET? .WLOC ,VEHBIT>
+		<TELL "You'd better get ">
+		<COND (<EQUAL? .WLOC ,ALTAR>
+		       <TELL "off">)
+		      (T <TELL "out">)>
+		<TELL " of the " D .WLOC " first." CR>
+		<RTRUE>
+		;<SET AV <GETP .WLOC ,P?VTYPE>>)>
+	 <COND (<OR <AND <NOT .LB> <OR <NOT .AV> <NOT <FSET? .RM .AV>>>>
+		    <AND <FSET? ,HERE ,RLANDBIT>
+			 .LB
+			 .AV
+			 <NOT <==? .AV ,RLANDBIT>>
+			 <NOT <FSET? .RM .AV>>>>
+		<COND (.AV <TELL "You can't go there in a">
+		       <VOWEL? .WLOC>
+		       <TELL D .WLOC ".">)
+		      (T <TELL "You can't go there without a vehicle.">)>
+		<CRLF>
+		<RFALSE>)
+	       (<FSET? .RM ,RMUNGBIT> <TELL <GETP .RM ,P?LDESC> CR> <RFALSE>)
+	       (T
+		<COND (.AV <MOVE .WLOC .RM>)
+		      (T
+		       <MOVE ,WINNER .RM>)>
+		<SETG HERE .RM>
+		<SETG LIT <LIT? ,HERE>>
+		<COND (<AND <NOT .OLIT>
+			    <NOT ,LIT>
+			    <PROB 85>>
+		       <JIGS-UP
+"Oh, no! An army of eleventy-seven rats, starved for affection (and food),
+leapt upon your body in a show of rodentine appreciation and devoured you!">)>
+		<APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
+		<COND (<NOT <==? ,HERE .RM>> <RTRUE>)
+		      (<NOT <==? ,ADVENTURER ,WINNER>>
+		       <TELL "The " D ,WINNER " leaves the room." CR>)
+		      (.V? <V-FIRST-LOOK>)>
+		<RTRUE>)>>
+
+<ROUTINE V-BACK
+	 ()
+	 <TELL
+"Sorry, my memory isn't that good. You'll have to give a direction." CR>>
+
+<ROUTINE V-POUR ()
+	 <COND (<NOT <OR <EQUAL? ,PRSO ,OIL-JAR ,LIQUID ,WATER>
+			 <EQUAL? ,PRSO ,C-SAND>>>
+		<TELL "You can't pour that." CR>
+		<RTRUE>)
+	       (T
+		<TELL "Poured." CR>
+		<COND (<EQUAL? ,PRSO ,OIL-JAR ,LIQUID>
+		       <SETG OIL-LEFT 0>
+		       <REMOVE ,LIQUID>)
+		      (<EQUAL? ,PRSO ,C-SAND>
+		       <SETG SAND-FILLED <>>
+		       <REMOVE ,C-SAND>)
+		      (T
+		       <REMOVE ,WATER>
+		       <SETG WATER-LEFT 0>)>)>>
+
+<ROUTINE V-POUR-IN ("AUX" L)
+	 <COND (<NOT <OR <EQUAL? ,PRSO ,OIL-JAR ,LIQUID ,WATER>
+			 <EQUAL? ,PRSO ,C-SAND>>>
+		<TELL "You can't pour that into anything." CR><RTRUE>)
+	       (<NOT <FSET? ,PRSI ,CONTBIT>>
+		<TELL "You'd have a lot of trouble pouring the " D ,PRSO
+		      " into the " D ,PRSI "." CR>
+		<RTRUE>)
+	       (<EQUAL? ,PRSI ,GOLD-CUP ,SILVER-CUP>
+		<COND (<OR <AND <EQUAL? ,PRSO ,WATER>
+				<EQUAL? <LOC ,LIQUID> ,PRSI>>
+			   <AND <EQUAL? ,PRSO ,LIQUID>
+				<EQUAL? <LOC ,WATER> ,PRSI>>>
+		       <TELL "Oil and water never mixed together well." CR>
+		       <RTRUE>)>
+		<SET L <LOC ,PRSO>>
+		<TELL "Okay. The " D ,PRSI " has been filled, but the "
+		      D .L " is now empty." CR>
+		<MOVE ,PRSO ,PRSI>
+		<COND (<EQUAL? ,PRSO ,WATER>
+		       <SETG WATER-LEFT 0>)
+		      (<EQUAL? ,PRSO ,C-SAND>
+		       <SETG SAND-FILLED <>>)>)
+	       (T
+		<TELL "Why bother?" CR>)>>
+	        
+
+<ROUTINE PRE-POUR-ON ("AUX" LIQ)
+	 <COND (<EQUAL? ,PRSO ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<EQUAL? ,PRSO ,WATER ,C-SAND>
+		<SET LIQ ,PRSO>
+		<COND (<NOT <FSET? <LOC .LIQ> ,OPENBIT>>
+		       <TELL "You'd better open the " D <LOC .LIQ> " first."
+			     CR>
+		       <RTRUE>)
+		      (<FLAMING? ,PRSI>
+		       <TELL "Poured." CR>
+		       <COND (,LIT
+			      <SETG LIT <LIT? ,HERE>>)>
+		       <COND (<NOT <SETG LIT <LIT? ,HERE>>>
+			      <TELL " It is now pitch black.">)>
+		       <COND (<EQUAL? .LIQ ,WATER>
+			      <SETG WATER-LEFT <- ,WATER-LEFT 10>>
+			      <COND (<L? ,WATER-LEFT 10>
+				     <REMOVE ,WATER>)>)
+			     (T
+			      <SETG SAND-FILLED <>>
+			      <REMOVE ,C-SAND>)>
+		       <FCLEAR ,PRSI ,FLAMEBIT>
+		       <FCLEAR ,PRSI ,ONBIT>
+		       <RTRUE>)
+		      (T
+		       <TELL "Poured." CR>
+		       <COND (<EQUAL? .LIQ ,WATER>
+			      <SETG WATER-LEFT <- ,WATER-LEFT 10>>
+			      <COND (<L? ,WATER-LEFT 10>
+				     <REMOVE ,WATER>)>
+			      <TELL "The " D ,PRSI
+				     " gets wet, but quickly dries." CR>)
+			     (T
+			      <COND (<GETP ,HERE ,P?MAP>
+				     <TELL "The sand is gone with the wind." CR>)
+				    (T <TELL 
+"The sand falls through the cracks in the stone floor." CR>)>
+			      <SETG SAND-FILLED <>>)>
+		       <RTRUE>)>)
+	       (<NOT <EQUAL? ,PRSO ,OIL-JAR ,LIQUID>>
+		<TELL "You can't pour that on anything." CR><RTRUE>)
+               (<0? ,OIL-LEFT>
+		<TELL "Why bother? The jar is empty." CR>
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSI ,TORCH>>
+		<TELL
+"Why waste precious liquid? But, if you insist, done! The liquid evaporates in
+a few moments." CR>
+		<SETG OIL-LEFT 0>
+		<REMOVE ,LIQUID>
+		<RTRUE>)
+	       (<NOT <FSET? ,OIL-JAR ,OPENBIT>>
+		<TELL 
+"A little tough to get that wick through the closed jar, eh?" CR>
+		<RTRUE>)
+	       (T
+		<TELL "The tip of the torch has been covered with the liquid.">
+		<COND (<FLAMING? ,TORCH>
+		       <TELL 
+" The torch flares up, singeing your eyebrows. Phew! Close call, there!">
+		       <SETG TORCH-TURNS 0>)>
+		<CRLF>
+		<SETG OIL-LEFT <- ,OIL-LEFT 20>>
+		<SETG OIL-SOAKED T>
+		<SETG OILED-TORCH T>)>>
+
+<ROUTINE V-POUR-ON () <TELL "Foo!" CR>>
+
+<ROUTINE V-SPRAY () <V-SQUEEZE>>
+<ROUTINE V-SSPRAY () <PERFORM ,V?SPRAY ,PRSI ,PRSO>>
+
+<ROUTINE V-SQUEEZE ()
+	  <TELL "How singularly useless." CR>>
+
+<ROUTINE PRE-OIL ()
+	 <TELL "You probably put spinach in your gas tank, too." CR>>
+
+<ROUTINE V-OIL () <TELL "That's not very useful." CR>>
+
+<ROUTINE PRE-FILL ("AUX" T)
+	 #DECL ((T) <OR FALSE TABLE>)
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<AND <NOT ,PRSI>
+		     <SET T <GETPT ,HERE ,P?GLOBAL>>>
+		<COND (<ZMEMQB ,GLOBAL-WATER .T <PTSIZE .T>>
+		       <SETG PRSI ,GLOBAL-WATER>
+		       <RFALSE>)
+		      (T
+		       <TELL "There is nothing to fill it with.">
+		       <COND (<GETP ,HERE ,P?MAP>
+			      <TELL " Except for some sand.">)>
+		       <CRLF>
+		       <RTRUE>)>)>
+	 <COND (<NOT <EQUAL? ,PRSI ,GLOBAL-WATER>>
+		<PERFORM ,V?PUT ,PRSI ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-FILL ()
+	 <COND (<NOT ,PRSI>
+		<COND (<GLOBAL-IN? ,GLOBAL-WATER ,HERE>
+		       <PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>)
+		      (T
+		       <TELL "There's nothing to fill it with.">
+		       <COND (<GETP ,HERE ,P?MAP>
+			      <TELL " Except for maybe some sand.">)>
+		       <CRLF>)>)
+	       (<EQUAL? ,PRSI ,GLOBAL-WATER>
+		<COND (<OR <EQUAL? ,WATER-LEFT 40>
+			   <IN? ,C-SAND ,PRSO>>
+		       <TELL "It's already full." CR>)
+		      (<NOT <FSET? ,PRSO ,CONTBIT>>
+		       <HOW? ,PRSO>
+		       <RTRUE>)
+		      (<NOT <FSET? ,PRSO ,OPENBIT>>
+		       <TELL "Tough to do when the " D ,PRSO " is closed." CR>)
+		      (<NOT <PRSO? ,CANTEEN ,GOLD-CUP ,SILVER-CUP>>
+		       <TELL <PICK-ONE ,YUKS> CR>)
+		      (<IN? ,LIQUID ,PRSO>
+		       <TELL "Oil and water don't mix." CR>)
+		      (T
+		       <MOVE ,WATER ,PRSO>
+		       <COND (<EQUAL? ,HERE ,RIVER-BANK>
+			      <SETG WATER-LEFT 40>)
+			     (T
+			      <SETG WATER-LEFT 0>)>
+		       <TELL "Okay, you have filled the " D ,PRSO "." CR>)>)
+	       (<EQUAL? ,PRSI ,WATER>
+		<COND (<IN? ,LIQUID ,PRSO>
+		       <TELL "Oil and water don't mix." CR>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,V?POUR-IN ,WATER ,PRSO>
+		       <THIS-IS-IT ,PRSO>
+		       <RTRUE>)>)
+	       (<EQUAL? ,PRSI ,LIQUID ,OIL-JAR>
+		<COND (<IN? ,WATER ,PRSO>
+		       <TELL "Water and oil don't mix." CR>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,V?POUR-IN ,LIQUID ,PRSO>
+		       <RTRUE>)>)
+	       (T <TELL "You may know how to do that, but I don't." CR>)>>
+
+<ROUTINE V-ADVENTURE () <TELL "A hollow voice says \"Fool.\"" CR>>
+
+<ROUTINE V-DRINK ()
+	 <COND (<PRE-EAT>
+		<RTRUE>)
+	       (T
+		<V-EAT>)>>
+
+<ROUTINE PRE-EAT ()
+	 <COND (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <FSET? ,PRSO ,FOODBIT>>
+		<COND (<EQUAL? <ITAKE <>> T>
+		       <TELL "(Taken)" CR>
+		       <RFALSE>)
+		      (T <RTRUE>)>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <EQUAL? ,PRSO ,ME ,WINNER ,ADVENTURER>>
+		     <FSET? ,PRSO ,FOODBIT>>
+		<TELL "You're not holding the " D ,PRSO "." CR>
+		<RTRUE>)>>
+
+<GLOBAL NILE-DRINKS 0>
+
+<ROUTINE V-EAT ("AUX" (EAT? <>) (DRINK? <>) (NOBJ <>))
+	 #DECL ((NOBJ) <OR OBJECT FALSE> (EAT? DRINK?) <OR ATOM FALSE>)
+	 <COND (<AND <SET EAT? <FSET? ,PRSO ,FOODBIT>> <IN? ,PRSO ,WINNER>>
+		<COND (<VERB? DRINK> <TELL "How can you drink that?">)
+		      (ELSE
+		       <TELL 
+"That really hit the spot. It did make you a little thirstier, though.">
+		       <REMOVE ,PRSO>
+		       <SETG THIRST <+ ,THIRST 10>>
+		       <DISABLE <INT I-GROWL>>
+		       <COND (<NOT <GETP ,HERE ,P?MAP>>
+			      <ENABLE <QUEUE I-PYRAMID-DRINK -1>>)>)>
+		<CRLF>)
+	       (<SET DRINK? <FSET? ,PRSO ,DRINKBIT>>
+		<COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+			   <AND <SET NOBJ <LOC ,PRSO>>
+				<IN? .NOBJ ,WINNER>
+				<FSET? .NOBJ ,OPENBIT>>>
+		       <TELL "You feel much refreshed.">
+		       <COND (,SANDY-CANTEEN
+			      <TELL 
+" Some sand from the bottom of the canteen is gritty in your mouth, though.">)>
+		       <CRLF>
+		       <SETG WATER-LEFT <- ,WATER-LEFT 10>>
+		       <COND (<L? ,WATER-LEFT 10>
+			      <REMOVE ,PRSO>)>
+		       <SETG THIRST 0>
+		       <SETG PYR-THIRST 0>
+		       <DISABLE <INT I-PYRAMID-DRINK>>)
+		      (<IN? ,PRSO ,LOCAL-GLOBALS>
+		       <COND (<G? ,NILE-DRINKS 3>
+			      <TELL 
+"You're going to start sloshing around soon." CR>
+			      <RTRUE>)>
+		       <TELL
+"You kneel down and drink deeply from the Nile and feel refreshed." CR>
+		       <SETG NILE-DRINKS <+ ,NILE-DRINKS 1>>
+		       <SETG THIRST 0>
+		       <SETG PYR-THIRST 0>
+		       <DISABLE <INT I-PYRAMID-DRINK>>)
+		      (T <TELL 
+"I'd like to oblige, but it's not within easy reach." CR>)>)
+	       (<NOT <OR .EAT? .DRINK?>>
+		<TELL "I don't think that the "
+		      D
+		      ,PRSO
+		      " would agree with you." CR>)>>
+
+<ROUTINE V-CURSES ()
+	 <COND (,PRSO
+		<COND (<FSET? ,PRSO ,VILLAIN>
+		       <TELL "Insults of this nature won't help you." CR>)
+		      (T
+		       <TELL "What a loony!" CR>)>)
+	       (T
+		<TELL
+"Such language in a high-class establishment like this!" CR>)>>
+
+<ROUTINE V-LISTEN ()
+	 <TELL "The " D ,PRSO " makes no sound." CR>>
+
+<ROUTINE V-FOLLOW ()
+	 <TELL "Give me a break!" CR>>
+
+<ROUTINE V-STAY ()
+	 <TELL "You will be lost without me!" CR>>
+
+<GLOBAL PRAYER-HACK 0>
+
+<ROUTINE V-PRAY ()
+	 <SETG PRAYER-HACK <+ ,PRAYER-HACK 1>>
+	 <COND (<L? ,PRAYER-HACK 3>
+		<TELL "If you pray enough, your prayers may be answered." CR>)
+	       (T
+		<TELL "No one is listening..." CR>)>>
+
+<ROUTINE V-LEAP ("AUX" T S) #DECL ((T) <OR FALSE TABLE>)
+	 <COND (<AND ,PRSO
+		     <NOT <PRSO? ,INTDIR>>>
+		<PERFORM V?BOARD ,PRSO>
+		<RTRUE>)
+	       (<SET T <GETPT ,HERE ,P?DOWN>>
+		<SET S <PTSIZE .T>>
+		<COND (<OR <==? .S 2>					 ;NEXIT
+			   <AND <==? .S 4>				 ;CEXIT
+				<NOT <VALUE <GETB .T 1>>>>>
+		       <TELL
+"This was not a very safe place to try jumping." CR>
+		       <JIGS-UP <PICK-ONE ,JUMPLOSS>>)
+		      (T <V-SKIP>)>)
+	       (ELSE <V-SKIP>)>>
+
+<ROUTINE V-SKIP () <TELL <PICK-ONE ,WHEEEEE> CR>>
+
+<ROUTINE V-LEAVE () <DO-WALK ,P?OUT>>
+
+<GLOBAL HS 0>
+
+<ROUTINE V-HELLO ()
+	 <COND (,PRSO
+		<TELL
+		 "I think that only schizophrenics say \"Hello\" to a">
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO "." CR>)
+	       (ELSE <TELL <PICK-ONE ,HELLOS> CR>)>>
+
+<GLOBAL HELLOS
+	<LTABLE "Hello."
+	       "Good day."
+	       "Nice weather we've been having lately."
+	       "Goodbye.">>
+
+<GLOBAL WHEEEEE
+	<LTABLE "Very good. Now you can go to the second grade."
+	       "Have you tried hopping around, too?"
+	       "Are you enjoying yourself?"
+	       "Wheeeeeeeeee!!!!!"
+	       "Do you expect me to applaud?">>
+
+<GLOBAL JUMPLOSS
+	<LTABLE "You should have looked before you leaped."
+	       "I'm afraid that leap was a bit much for your weak frame."
+	       "In the movies, your life would be passing in front of your eyes."
+	       "Geronimo.....">>
+
+<ROUTINE PRE-READ ()
+	 <COND (<NOT ,LIT> <TELL "It is impossible to read in the dark." CR>)
+	       (,PRSI 
+		<TELL "How does one look through a">
+		<VOWEL? ,PRSI>
+		<TELL D ,PRSI "?" CR>)>>
+
+<ROUTINE V-READ ()
+	 <COND (<AND <NOT <FSET? ,PRSO ,READBIT>>
+		     <NOT <EQUAL? ,PRSO ,WALLS>>>
+		<TELL "How can I read a">
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO "?" CR>)
+	       (<EQUAL? ,PRSO ,WALLS>
+		<TELL "There's nothing on the walls worth reading." CR>)
+	       (ELSE <TELL <GETP ,PRSO ,P?TEXT> CR>)>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <COND (<GETP ,HERE ,P?MAP>
+		<TELL "There is nothing but sand there." CR>)
+	       (ELSE
+		<TELL "There is nothing but dust there." CR>)>>
+
+<ROUTINE V-LOOK-DOWN () <TELL "You can't see anything down there." CR>>
+
+<ROUTINE V-LOOK-BEHIND () <TELL "There is nothing behind the " D ,PRSO "." CR>>
+
+<ROUTINE V-LOOK-INSIDE ("OPTIONAL" (REACH? <>))
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "The "
+			     D
+			     ,PRSO
+			     " is open.">)
+		      (ELSE <TELL "The " D ,PRSO " is closed.">)>
+		<CRLF>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<FSET? ,PRSO ,VICBIT>
+		       <TELL "There is nothing special to be ">
+		       <COND (.REACH?
+			      <TELL "felt">)
+			     (T
+			      <TELL "seen">)>
+		       <TELL "." CR>)
+		      (<SEE-INSIDE? ,PRSO>
+		       <COND (<AND <FIRST? ,PRSO> <PRINT-CONT ,PRSO>>
+			      <RTRUE>)
+			     (<FSET? ,PRSO ,SURFACEBIT>
+			      <COND (<IN? ,WINNER ,PRSO>
+				     <TELL "You're on it!" CR>
+				     <RTRUE>)
+				    (T
+				     <TELL "There is nothing on the "
+					    D ,PRSO "." CR>
+				     <RTRUE>)>)
+			     (T
+			      <TELL "The " D ,PRSO " is empty." CR>
+			      <RTRUE>)>)
+		      (ELSE <TELL "The " D ,PRSO " is closed." CR>)>)
+	       (ELSE
+		<TELL "I don't know how to ">
+		<COND (<NOT .REACH?>
+		       <TELL "look inside a">)
+		      (ELSE <TELL "feel inside a">)>
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	       <FSET? .OBJ ,OPENBIT>>>
+
+<ROUTINE V-REPENT () <TELL "It could very well be too late!" CR>>
+
+<ROUTINE PRE-BURN ()
+	 <COND (<AND <EQUAL? ,PRSO ,TORCH>
+		     <EQUAL? ,PRSI ,ONE-MATCH ,MANY-MATCHES>
+		     <OR <IN? ,ONE-MATCH ,WINNER>
+			 <IN? ,MATCHES ,WINNER>>>
+		<COND (<NOT <FLAMING? ,PRSI>>
+		       <COND (<L? ,MATCH-COUNT 1>
+			      <TELL "You're out of matches. Sorry." CR>
+			      <RTRUE>)
+			     (ELSE
+			      <COND (<NOT <IN? ,ONE-MATCH ,WINNER>>
+				     <TELL "(lighting a match first)" CR>
+				     <MATCH-MOVER>)
+				    (T
+				     <TELL "(lighting the match first)" CR>)>
+			      <LIGHT-THE ,ONE-MATCH T>
+			      <ENABLE <QUEUE I-MATCH-OUT 3>>)>)>
+		<PERFORM ,V?LAMP-ON ,TORCH ,ONE-MATCH>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,TORCH>
+		     <IN? ,PRSI ,WINNER>
+		     <FLAMING? ,PRSI>> 
+		<PERFORM ,V?LAMP-ON ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<AND <NOT <IN? ,PRSI ,WINNER>>
+		     <NOT <IN? ,PRSI ,HERE>>
+		     <NOT <EQUAL? <LOC <LOC ,PRSI>> ,HERE>>>
+		<TELL "I see no " D ,PRSI " here." CR>
+		<RTRUE>)
+	       (<FLAMING? ,PRSI> <RFALSE>)
+	       (<FSET? ,PRSI ,BURNBIT>
+		<TELL "You'd better light ">
+		<COND (<EQUAL? ,PRSI ,MANY-MATCHES>
+		       <TELL "a match">)
+		      (ELSE <TELL "the " D ,PRSI>)>
+		<TELL " first." CR>
+		<RTRUE>)
+	       (T <TELL "With a">
+		<VOWEL? ,PRSI>
+		<TELL D ,PRSI "??!?" CR>)>>
+
+<ROUTINE V-BURN ()
+	 <COND (<EQUAL? ,PRSO ,BOAT ,DECK>
+		<JIGS-UP ,BARGE-BURN-STR>
+		<RFATAL>)
+	       (<FSET? ,PRSO ,BURNBIT>
+		<COND (<IN? ,PRSO ,WINNER>
+		       <TELL "The " D ,PRSO " catches fire and is consumed.">
+		       <EMPTY-THE ,PRSO>
+		       <REMOVE ,PRSO>
+		       <SETG P-IT-LOC <>>
+		       <COND (<PRSO? ,ROPE>
+			      <SETG ROPE-TIED <>>
+			      <SETG ROPE-PLACED <>>)>)
+		      (<AND <PRSO? ,SHIM ,BEAM>
+			    <EQUAL? <LOC ,PRSO> ,HERE ,BELOW-MAST>
+			    <OR <EQUAL? ,HERE ,BARGE-CENTER ,FORE-CABIN
+					,AFT-CABIN>
+				<EQUAL? ,HERE ,BELOW-DECK ,BELOW-MAST>>>
+		       <TELL "The " D ,PRSO
+" catches fire, but before you have a chance to react, the fire spreads." CR>
+		       <JIGS-UP ,BARGE-BURN-STR>)
+		      (<PRSO? ,SHIM ,BEAM>
+		       <REMOVE ,PRSO>
+		       <SETG P-IT-LOC <>>
+		       <TELL "The " D ,PRSO
+" catches fire and is consumed." CR>
+		       <COND (<PRSO? ,BEAM>
+			      <COND (<AND ,ON-BEAM
+					  <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+					  <NOT <IN? ,PLASTER ,HERE>>>
+				     <JIGS-UP ,AIR-WALK>)
+				    (,BEAM-PLACED
+				     <COND (<IN? ,WINNER ,ANNEX>
+					    <JIGS-UP ,ANNEX-BEAM-STR>
+					    <RFATAL>)
+					   (<IN? ,WINNER ,BURIAL-CHAMBER>
+					    <JIGS-UP ,BURIAL-BEAM-STR>)
+					   (<IN? ,WINNER ,NORTH-ANTECHAMBER>
+					    <DROP-THE-BLOCKS>
+					    <RTRUE>)
+					   (<IN? ,WINNER ,SOUTH-ANTECHAMBER>
+					    <CLOSE-THE-ANNEX>
+					    <RTRUE>)>)>)>
+		       <RTRUE>)
+		      (ELSE <TELL "You don't have the " D ,PRSO "." CR>)>)
+	       (<AND <EQUAL? ,PRSO ,OIL-JAR ,LIQUID>
+		     <FLAMING? ,PRSI>>
+		<PERFORM ,V?DIP-IN ,PRSI ,OIL-JAR>
+		<RTRUE>)
+	       (T <TELL "I don't think you can burn the " D ,PRSO "." CR>)>>
+
+<ROUTINE PRE-TURN ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <FSET? ,PRSO ,TURNBIT>>
+		<TELL "You can't turn that!" CR>)
+	       (<AND ,PRSI
+		     <EQUAL? ,PRSI ,INTDIR>>
+		<TELL "You can't turn things to a specific direction." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-TURN () <TELL "This has no effect." CR>>
+
+<ROUTINE V-PUMP ()
+	 <TELL "I really don't see how." CR>>
+
+<ROUTINE V-INFLATE () <TELL "How can you inflate that?" CR>>
+
+<ROUTINE V-DEFLATE () <TELL "Come on, now!" CR>>
+
+<ROUTINE V-LOCK () <TELL "It doesn't seem to work." CR>>
+
+<ROUTINE V-PICK () <TELL "You can't pick that." CR>>
+
+<ROUTINE V-UNLOCK () <V-LOCK>>
+
+<ROUTINE V-CUT ()
+	 <COND (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<COND (<EQUAL? ,PRSI ,HANDS>
+		       <TELL "Be serious. Karate chop it? Come on!" CR>)
+		      (ELSE
+		       <TELL
+			"I doubt that the \"cutting edge\" of a">
+		       <VOWEL? ,PRSI>
+		       <TELL D ,PRSI " is adequate." CR>)>)
+	       (T
+		<TELL "Strange concept, cutting the " D ,PRSO "...." CR>)>>
+
+<ROUTINE V-KILL ()
+	 <IKILL "kill">>
+
+<ROUTINE IKILL (STR)
+	 #DECL ((STR) ZSTRING)
+	 <COND (<NOT ,PRSO> <TELL "There is nothing here to " .STR "." CR>)
+	       (<AND <NOT <FSET? ,PRSO ,VILLAIN>>
+		     <NOT <FSET? ,PRSO ,VICBIT>>>
+		<TELL "I've known strange people, but fighting a">
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO "?" CR>)
+	       (<OR <NOT ,PRSI> <==? ,PRSI ,HANDS>>
+		<TELL "Trying to "
+		      .STR
+		      " a">
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO
+		      " with your bare hands is suicidal." CR>)
+	       (<NOT <IN? ,PRSI ,WINNER>>
+		<TELL "You aren't even holding the " D ,PRSI "." CR>)
+	       (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<TELL "Trying to "
+		      .STR
+		      " the "
+		      D
+		      ,PRSO
+		      " with a">
+		<VOWEL? ,PRSI>
+		<TELL
+		      D
+		      ,PRSI
+		      " is suicidal." CR>)
+	       (ELSE <TELL "You can't." CR>)>>
+
+<ROUTINE V-ATTACK () <IKILL "attack">>
+
+<ROUTINE V-SWING ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<TELL "Who do you think you are, Benny Goodman?" CR>)
+	       (T
+		<TELL "Whoosh!" CR>)>>
+
+<ROUTINE V-KICK () <HACK-HACK "Kicking the ">>
+
+<ROUTINE V-WAVE () <HACK-HACK "Waving the ">>
+
+<ROUTINE V-RAISE () <HACK-HACK "Playing in this way with the ">>
+
+<ROUTINE V-LOWER () <HACK-HACK "Playing in this way with the ">>
+
+<ROUTINE V-RUB () <HACK-HACK "Fiddling with the ">>
+
+<ROUTINE V-PUSH () <HACK-HACK "Pushing the ">>
+
+<ROUTINE PRE-PUSH-TO ()
+	 <COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <IN? ,PRSO ,LOCAL-GLOBALS>>
+		<TELL "Nice try." CR>)
+	       (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<PRSO? ,SARCOPH>
+		<TELL "Be serious. Any idea what that must weigh?" CR>
+		<RTRUE>)
+	       (<AND <NOT <IN? ,PRSO <LOC ,WINNER>>>
+		     <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <EQUAL? ,PRSO ,NOT-HERE-OBJECT>>>
+		<TELL "Huh? The " D ,PRSO "? Get serious." CR>)>>
+
+<GLOBAL PUSH-TBL
+	<TABLE A-PRIME P?NW P?SE
+	       B-PRIME P?NE P?SW
+	       D-PRIME P?SW P?NE
+	       E-PRIME P?SE P?NW>> 
+
+<ROUTINE V-PUSH-TO ("AUX" (OFFS -3) (FLG 0))
+	 <COND (<AND <NOT <EQUAL? ,PRSO ,HUGE-STATUE>>
+		     <FSET? ,PRSO ,TAKEBIT>>
+		<TELL 
+"There's no need for that. Why not just pick it up and then carry it there?" 
+			CR>
+		<RTRUE>)
+	       (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<TELL "You push and strain, but can't budge the " D ,PRSO "."
+		      CR>)
+	       (<NOT <EQUAL? ,PRSI ,INTDIR>>
+		<TELL "You can't push things to that." CR>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,LANDING-ZERO>
+		<COND (<AND <NOT <EQUAL? ,P-DIRECTION ,P?NE ,P?NW>>
+			    <NOT <EQUAL? ,P-DIRECTION ,P?SE ,P?SW>>>
+		       <SET FLG 1>)
+		      (ELSE
+		       <SET FLG 3>)>)>
+	 <COND (<EQUAL? .FLG 0>
+		<REPEAT ()
+			<SET OFFS <+ .OFFS 3>>
+			<COND (<G? .OFFS 9>
+			       <RETURN>)
+			      (<EQUAL? ,HERE <GET ,PUSH-TBL .OFFS>>
+			       <COND (<EQUAL? ,P-DIRECTION 
+					      <GET ,PUSH-TBL <+ .OFFS 1>>>
+				      <SET FLG 2>)
+				     (<NOT 
+				       <EQUAL? ,P-DIRECTION
+					       <GET ,PUSH-TBL <+ .OFFS 2>>>>
+				      <SET FLG 1>)
+				     (ELSE
+				      <SET FLG 3>)>)>>)>
+	 <COND (<EQUAL? .FLG 1>
+		<TELL "The statue bumps into a wall." CR>)
+	       (<EQUAL? .FLG 2>
+		<TELL "It won't fit through the door." CR>)
+	       (<EQUAL? .FLG 3>
+		<DO-WALK ,P-DIRECTION>
+		<MOVE ,HUGE-STATUE ,HERE>
+		<THIS-IS-IT ,HUGE-STATUE>
+		<TELL "The pushed statue rests on the floor." CR>)>>
+
+<ROUTINE PRE-MUNG ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT ,ME ,WINNER ,ADVENTURER>
+		<RFALSE>)
+	       (<EQUAL? ,PRSO ,N-ANTE-SEAL>
+		<COND (<BREAK-SEAL>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"You scratch at the seals but accomplish little." CR>
+		       <RTRUE>)>)
+	       (<OR <PRSO? ,PLASTER ,PLASTER1 ,LOCK>
+		    <PRSO? ,HUGE-STATUE ,HEAD ,CRATE>
+		    <PRSO? ,BLACK-BOX ,BEAM>>
+	        <RFALSE>)
+	       (<NOT <FSET? ,PRSO ,VICBIT>>
+		<HACK-HACK "Trying to destroy the ">)
+	       (<NOT ,PRSI>
+		<TELL "Trying to destroy the " D ,PRSO 
+		      " with your bare hands is suicidal." CR>)
+	       (<NOT <FSET? ,PRSI ,WEAPONBIT>>
+		<TELL "Trying to destroy the " D ,PRSO " with a">
+		<VOWEL? ,PRSI>
+		<TELL D ,PRSI
+		      " is quite self-destructive." CR>)>>
+
+<ROUTINE V-MUNG () <TELL "Nothing much happens." CR>>
+
+<ROUTINE HACK-HACK
+	 (STR)
+	 #DECL ((STR) ZSTRING)
+	 <COND (<AND <IN? ,PRSO ,GLOBAL-OBJECTS> <VERB? WAVE RAISE LOWER>>
+		<TELL "The " D ,PRSO " isn't here!" CR>)
+	       (T <TELL .STR D ,PRSO <PICK-ONE ,HO-HUM> CR>)>>
+
+<GLOBAL HO-HUM
+	<LTABLE
+	 " doesn't seem to work."
+	 " isn't notably helpful."
+	 " doesn't work."
+	 " has no effect.">>
+
+<ROUTINE WORD-TYPE
+	 (OBJ WORD "AUX" SYNS)
+	 #DECL ((OBJ) OBJECT (WORD SYNS) TABLE)
+	 <ZMEMQ .WORD
+		<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+		<- </ <PTSIZE .SYNS> 2> 1>>>
+
+<ROUTINE V-KNOCK ()
+	 <TELL "Why knock on a">
+	 <VOWEL? ,PRSO>
+	 <TELL D ,PRSO "?" CR>>
+
+<ROUTINE V-CHOMP ()
+	 <TELL "I don't know how to do that. I win in all cases!" CR>>
+
+<ROUTINE V-FROBOZZ
+	 ()
+	 <TELL
+"The FROBOZZ Corporation created, owns, and operates this programmer." CR>>
+
+<ROUTINE V-WIN () <TELL "Naturally!" CR>>
+
+<ROUTINE V-YELL () <TELL "Aarrrrrgggggggghhhhhhhhhhh!" CR>>
+
+<ROUTINE V-PLUG () <TELL "This has no effect." CR>>
+
+<ROUTINE V-EXORCISE () <TELL "What a bizarre concept!" CR>>
+
+\
+
+<ROUTINE V-SHAKE ("AUX" X)
+	 <COND (<FSET? ,PRSO ,VILLAIN>
+		<TELL "This seems to have no effect." CR>)
+	       (<EQUAL? ,PRSO ,HANDS>
+		<TELL
+"Nice to meet me. Funny, you think I look like myself." CR>)
+	       (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<TELL "You can't take it; thus, you can't shake it!" CR>)
+	       (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+		     <FIRST? ,PRSO>>
+		<TELL "It sounds as if there is something inside the "
+		      D
+		      ,PRSO
+		      "."
+		      CR>)
+	       (<AND <EQUAL? ,PRSO ,LIQUID ,OIL-JAR>
+		     <IN? ,LIQUID ,OIL-JAR>>
+		<TELL "The liquid sloshes around." CR>)
+	       (<AND <FSET? ,PRSO ,OPENBIT> <FIRST? ,PRSO>>
+		<REPEAT ()
+			<COND (<SET X <FIRST? ,PRSO>> <MOVE .X ,HERE>)
+			      (ELSE <RETURN>)>>
+	        <TELL "All of the objects spill onto the ">
+		<SPILL-WHERE?>)
+	       (T <TELL "There's nothing in the " D ,PRSO "." CR>)>>
+
+<ROUTINE SPILL-WHERE? ()
+	 <COND (<IN? ,WINNER ,COT>
+		<TELL
+		 "ground by the cot.">)
+	       (<EQUAL? ,HERE ,RIVER-BANK>
+		<TELL
+		 "river bank.">)
+	       (<GETP ,HERE ,P?MAP>
+		<TELL 
+		 "sand.">)
+	       (<EQUAL? <GETP ,HERE ,P?ACTION> ,BURN-THE-BARGE>
+		<TELL 
+		 "wooden decking.">)
+	       (T
+		<TELL "stone floor.">)>
+	 <CRLF>>
+
+<ROUTINE PRE-DIG () 
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT ,PRSI>
+		<COND (<IN? ,SHOVEL ,WINNER>
+		       <SETG PRSI ,SHOVEL>
+		       <TELL "(with the shovel)" CR>)
+		      (<IN? ,PICK-AXE ,WINNER>
+		       <SETG PRSI ,PICK-AXE>
+		       <TELL "(with the axe)" CR>)
+		      (T <SETG PRSI ,HANDS>
+		       <TELL "(with your hands)" CR>)>)>
+	 <COND (<FSET? ,PRSI ,TOOLBIT> <RFALSE>)
+	       (ELSE
+		<TELL "Digging with the " D ,PRSI " is very silly." CR>)>>
+
+<GLOBAL THIRST 0>
+
+<ROUTINE V-DIG ("AUX" COUNTER)
+	 <COND (<EQUAL? ,PRSO ,PLASTER1 ,PLASTER ,WALLS>
+		<PERFORM ,V?MUNG ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSO ,SAND ,GROUND ,HOLE>>
+		<TELL "You can't dig in that." CR>)
+	       (<EQUAL? ,HERE ,RIVER-BANK>
+		<TELL 
+"You dig a small hole, but it quickly fills in with water and sand, almost
+immediately disappearing." CR>)
+	       (<NOT <GETP ,HERE ,P?CAPACITY>>
+		<TELL "The ground is too hard here." CR>)
+	       (<PRSI? ,HANDS>
+		<TELL
+"I suppose you also excavate tunnels with a teaspoon?!" CR>)
+	       (<PRSI? ,PICK-AXE>
+	        <TELL
+"Let's face it, for digging in the sand, the axe is cute but ineffective." CR>)
+	       (T
+		<SET COUNTER <GETP ,HERE ,P?CAPACITY>>
+		<SET COUNTER <+ .COUNTER 1>>
+		<SETG THIRST <+ ,THIRST 4>>
+		<COND (<AND <G? .COUNTER 5>
+			    <NOT <EQUAL? ,HERE ,EX8>>>
+		       <JIGS-UP
+"The walls of the hole collapse around you, smothering you in the shifting
+sands.">
+		       <RFATAL>)
+		      (T
+		       <PUTP ,HERE ,P?CAPACITY .COUNTER>
+		       <COND (<AND <EQUAL? .COUNTER 6>
+				   <EQUAL? ,HERE ,EX8>>
+			      <TELL
+"You've uncovered what could only be the top of a pyramid. After clearing it
+away with your hands, you notice a square opening in the top of it." CR>
+			      <PUTP ,HERE ,P?CAPACITY 6>
+			      <PUTP ,HERE ,P?LDESC
+"You are in the desert, almost out of sight of the encampment to the west. At
+last, though, you've found the ancient pyramid. The top of the pyramid is
+clearly exposed and on one of its sides is a square opening.">
+			      <FCLEAR ,ROCK-LOCK ,INVISIBLE>
+			      <MOVE ,PYRAMID ,HERE>
+			      <SETG SCORE <+ ,SCORE 25>>)
+			     (T
+			      <TELL <GET ,DIGGER-LTBL .COUNTER> CR>)>)>)>>
+
+<GLOBAL DIGGER-LTBL
+	<LTABLE 
+"You've dug a small hole. As you stand there and watch it, the sand starts to
+fill it in a little."
+"You've enlarged the hole a little, taking out two shovelsfull for every one
+that collapses back in from the walls."
+"You've made the hole quite sizable, though it's not very deep. The deeper you
+dig, the more the walls collapse and so you widen the base of the hole."
+"You're knee-deep in the hole, digging away, taking out more and more sand. You
+silently curse those workers for having deserted you."
+"You've dug yourself into a deep hole. You're actually several feet below the
+surrounding sand. The walls look very unstable.">>
+
+<ROUTINE V-SMELL ()
+	 <COND (<EQUAL? ,PRSO ,LIQUID>
+		<TELL 
+"It smells like a mixture of gasoline and embalming fluid. Yum Yum." CR>)
+	       (<FLAMING? ,PRSO>
+		<TELL "Nice way to singe your nostrils!" CR>)
+	       (<PRSO? ,SKELETON>
+		<TELL "It smells quite dead." CR>)
+	       (<PRSO? ,MAP>
+		<TELL "It smells a little musty." CR>)
+	       (T <TELL "It smells just like a">
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" T)
+	 #DECL ((OBJ1 OBJ2) OBJECT (T) <OR FALSE TABLE>)
+	 <COND (<SET T <GETPT .OBJ2 ,P?GLOBAL>>
+		<ZMEMQB .OBJ1 .T <- <PTSIZE .T> 1>>)>>
+
+<ROUTINE V-SWIM ()
+	 <COND (<EQUAL? ,HERE ,RIVER-BANK>
+		<JIGS-UP .CROC-STR>
+		<RFATAL>)
+	       (<NOT <EQUAL? ,PRSO ,NILE-RIBBAH>>
+		<TELL "Now that's a cute idea. Maybe I'll try it next century."
+		      CR>)
+	       (T <TELL "Go jump in a lake!" CR>)>>
+
+<ROUTINE V-UNTIE () <TELL "This cannot be tied, so it cannot be untied!" CR>>
+
+<ROUTINE PRE-TIE ()
+	 <COND (<==? ,PRSI ,WINNER>
+		<TELL "You can't tie it to yourself." CR>)>>
+
+<ROUTINE V-TIE ()
+	 <COND (<EQUAL? ,PRSI ,SCARAB>
+		<TELL "The rope's too clumsy to tie to that." CR>)
+	       (<NOT <EQUAL? ,PRSI ,BEAM>>
+		<TELL "You can't tie the " D ,PRSO " to that." CR>)
+	       (ELSE
+		<TELL "Don't bother." CR>)>>
+
+<ROUTINE V-TIE-UP () <TELL "You could certainly never tie it with that!" CR>>
+
+<ROUTINE V-MELT () <TELL "I'm not sure that a">
+	 <VOWEL? ,PRSO>
+	 <TELL D ,PRSO " can be melted." CR>>
+
+<ROUTINE V-MUMBLE
+	 ()
+	 <TELL "You'll have to speak up if you expect me to hear you!" CR>>
+
+<ROUTINE V-ALARM ()
+	 <COND (<FSET? ,PRSO ,VILLAIN>
+		<TELL "He's wide awake, or haven't you noticed..." CR>)
+	       (ELSE
+		<TELL "The " D ,PRSO " isn't sleeping." CR>)>>
+
+<ROUTINE V-ZORK () <TELL "Who?" CR>>
+
+\
+
+<ROUTINE MUNG-ROOM (RM STR)
+	 #DECL ((STR) ZSTRING)
+	 <FSET .RM ,RMUNGBIT>
+	 <PUTP .RM ,P?LDESC .STR>>
+
+<ROUTINE V-COMMAND ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<TELL "The " D ,PRSO " pays no attention." CR>)
+	       (ELSE
+		<TELL "You cannot talk to that!" CR>)>>
+
+<ROUTINE V-CLIMB-ON ()
+	 <COND (<EQUAL? ,PRSO ,ALTAR>
+		<PERFORM ,V?BOARD ,ALTAR>
+		<RTRUE>)
+	       (<OR <FSET? ,PRSO ,VEHBIT>
+		    <PRSO? ,BEAM>>
+		<V-CLIMB-UP ,P?UP T>)
+	       (<EQUAL? ,PRSO ,ROPE>
+		<PERFORM ,V?TAKE ,ROPE>
+		<RTRUE>)
+	       (T
+		<TELL "You can't climb onto the " D ,PRSO "." CR>)>>
+
+<ROUTINE V-CLIMB-FOO ()
+	 <COND (<AND <OR <EQUAL? ,PRSO ,ROPE>
+			 <EQUAL? ,PRSI ,ROPE>>
+		     <IN? ,ROPE ,WINNER>>
+		<TELL "You can't do that while you're holding the rope." CR>
+		<RFATAL>)
+	       (<EQUAL? ,PRSO ,ALTAR>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (<EQUAL? ,PRSO ,INTDIR>
+		<TELL "You can't climb a direction!" CR>
+		<RFATAL>)
+	       (<AND <NOT <FSET? ,PRSO ,CLIMBBIT>>
+		     <NOT <FSET? ,PRSO ,VEHBIT>>>
+		<TELL "You can't climb that!" CR>
+		<RFATAL>)
+	       (T
+		<V-CLIMB-UP <COND (<EQUAL? ,HERE ,CHAMBER-OF-RA> ,P?DOWN)
+				  (<EQUAL? ,PRSO ,PLANK> ,P?NORTH)
+				  (T ,P?UP)> T>)>>
+
+<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
+	 <COND (<AND .OBJ
+		     <ZMEMQ ,W?BEAM
+			    <SET X <GETPT ,PRSO ,P?SYNONYM>> <PTSIZE .X>>
+		     >
+		<COND (<AND ,ON-BEAM
+			    <IN? ,BEAM ,WEST-END-OF-PASSAGE>>
+		       <TELL "You're already on the beam." CR>)
+		      (<IN? ,BEAM ,WEST-END-OF-PASSAGE>
+		       <TELL "You are now standing on the beam." CR>)
+		      (<AND <FSET? ,BEAM ,TOUCHBIT>
+			    <IN? ,BEAM ,HERE>
+			    <NOT ,BEAM-PLACED>>
+		       <TELL
+"You step onto it, see no sense in remaining on it, then step off it." CR>
+		       <RTRUE>)
+		      (T <TELL "Get real. You don't have fly feet." CR>
+		       <RTRUE>)>
+		<SETG ON-BEAM T>)
+	       (<GETPT ,HERE .DIR>
+		<DO-WALK .DIR>
+		<RTRUE>)
+	       (<NOT .OBJ>
+		<TELL "You can't go that way." CR>)
+	       (<AND .OBJ
+		     <ZMEMQ ,W?WALLS
+			    <SET X <GETPT ,PRSO ,P?SYNONYM>> <PTSIZE .X>>>
+		<TELL "Climbing the walls is to no avail." CR>)
+	       
+	       (ELSE <TELL "Bizarre!" CR>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	 <COND (<AND <EQUAL? ,PRSO ,ROPE ,P?NORTH ,P?DOWN>
+		     <NOT ,LANDING>>
+		<TELL "It would help if the rope led someplace." CR>
+		<RTRUE>)
+	       (ELSE <V-CLIMB-UP ,P?DOWN>)>>
+
+<ROUTINE V-SEND ()
+	 <COND (<FSET? ,PRSO ,VILLAIN>
+		<TELL "Why would you send for the " D ,PRSO "?" CR>)
+	       (ELSE <TELL "That doesn't make sends." CR>)>>
+
+<ROUTINE V-WIND ()
+	 <TELL "You cannot wind up a">
+	 <VOWEL? ,PRSO>
+	 <TELL D ,PRSO "." CR>>
+
+<ROUTINE V-COUNT ("AUX" OBJS CNT)
+	 <COND (<==? ,PRSO ,STONES>
+		<TELL 
+"There are a lot of stones in the pyramid (about 90,000,000 cubic feet)." CR>)
+	       (<OR <EQUAL? ,PRSO ,DRACULA ,BLESSINGS ,FINGER>
+		    <EQUAL? ,PRSO ,BASIE>>
+		<TELL "What a maroon! What a cahd!" CR>)
+	       (T
+		<TELL "You have ">
+		<COND (<==? ,PRSO ,MATCHES ,MANY-MATCHES>
+		       <SET CNT <-  ,MATCH-COUNT 1>>
+		       <TELL N .CNT " match">
+		       <COND (<NOT <1? .CNT>> <TELL "es.">) (ELSE <TELL ".">)>
+		       <CRLF>)
+		      (ELSE <TELL "a weird sense of counting!" CR>)>)>>
+
+<ROUTINE V-PUT-UNDER ()
+         <TELL "You can't do that." CR>>
+
+<ROUTINE V-PLAY ()
+         <COND (<FSET? ,PRSO ,VILLAIN>
+	        <TELL
+"You are so engrossed in the role of the " D ,PRSO " that
+you kill yourself, just as he would have done!" CR>
+	        <JIGS-UP "">)
+	       (T <TELL "How peculiar!" CR>)>>
+
+<ROUTINE V-MAKE ()
+    	<TELL "You can't do that." CR>>
+
+<ROUTINE V-ENTER ()
+	 <DO-WALK ,P?IN>>
+
+<ROUTINE V-EXIT ()
+	 <DO-WALK ,P?OUT>>
+
+<ROUTINE V-CROSS ()
+	 <TELL "You can't cross that!" CR>>
+
+<ROUTINE V-SEARCH ()
+	 <TELL "You find nothing unusual." CR>>
+
+<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
+	 <COND (<EQUAL? ,PRSO ,HANDS>
+		<TELL
+"Within six feet of your head, assuming you haven't left that somewhere." CR>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<TELL "Why don't you try finding it yourself?" CR>)
+	       (<IN? ,PRSO ,WINNER>
+		<TELL "You have it." CR>)
+	       (<IN? ,PRSO ,ENDLESS-DESERT>
+		<TELL "With all this sand around here? Give me a break!" CR>)
+	       (<OR <IN? ,PRSO ,HERE>
+		    <==? ,PRSO ,PSEUDO-OBJECT>>
+		<TELL "It's right here." CR>)
+	       (<FSET? .L ,VILLAIN>
+		<TELL "The " D .L " has it." CR>)
+	       (<FSET? .L ,CONTBIT>
+		<TELL "It's ">
+		<COND (<FSET? .L ,SURFACEBIT>
+		       <TELL "on">)
+		      (T <TELL "in">)>
+		<TELL " the " D .L "." CR>)
+	       (ELSE
+		<TELL "Beats me." CR>)>>
+
+<ROUTINE V-TELL ()
+	 <COND (<FSET? ,PRSO ,VICBIT>
+		<SETG WINNER ,PRSO>
+		<SETG HERE <LOC ,WINNER>>)
+	       (<EQUAL? ,PRSO ,ME ,WINNER>
+		<TELL "Talking to yourself is diverting, but unnecessary." CR>
+		<RFATAL>)
+	       (T
+		<TELL "You can't talk to the " D ,PRSO "!" CR>
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<RFATAL>)>>
+
+<ROUTINE V-ANSWER ()
+	 <TELL "Nobody seems to be awaiting your answer." CR>
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RTRUE>>
+
+<ROUTINE V-REPLY ()
+	 <TELL "It is hardly likely that the " D ,PRSO " is interested." CR>
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RTRUE>>
+
+<ROUTINE V-IS-IN ()
+	 <COND (<IN? ,PRSO ,PRSI>
+		<TELL "Yes, it is ">
+		<COND (<FSET? ,PRSI ,SURFACEBIT>
+		       <TELL "on">)
+		      (T <TELL "in">)>
+		<TELL " the " D ,PRSI "." CR>)
+	       (T <TELL "No, it isn't." CR>)>>
+
+<ROUTINE V-KISS ()
+	 <TELL "I'd sooner kiss a pig." CR>>
+
+<ROUTINE V-RAPE ()
+	 <TELL "An ugly idea from an ugly human." CR>>
+
+<ROUTINE FIND-IN (WHERE WHAT "AUX" W)
+	 <SET W <FIRST? .WHERE>>
+	 <COND (<NOT .W> <RFALSE>)>
+	 <REPEAT ()
+		 <COND (<FSET? .W .WHAT> <RETURN .W>)
+		       (<NOT <SET W <NEXT? .W>>> <RETURN <>>)>>>
+
+<ROUTINE V-SAY ("AUX" V)
+	 <COND (<SET V <FIND-IN ,HERE ,VICBIT>>
+		<TELL "You must address the " D .V " directly." CR>)
+	       (<==? <GET ,P-LEXV ,P-CONT> ,W?HELLO>
+		<SETG QUOTE-FLAG <>>
+		<RTRUE>)
+	       (ELSE
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<TELL
+"Talking to yourself is said to be a sign of impending mental collapse." CR>)>>
+
+<ROUTINE V-INCANT ()
+	 <TELL
+"The incantation echoes back faintly, but nothing else happens." CR>
+	 <SETG QUOTE-FLAG <>>
+	 <SETG P-CONT <>>
+	 <RTRUE>>
+
+<ROUTINE V-SPIN ()
+	 <TELL "You can't spin that!" CR>>
+
+<ROUTINE V-THROUGH ("AUX" M)
+	<COND (<FSET? ,PRSO ,DOORBIT>
+	       <DO-WALK <OTHER-SIDE ,PRSO>>
+	       <RTRUE>)
+	      (<FSET? ,PRSO ,VEHBIT>
+	       <PERFORM ,V?BOARD ,PRSO>
+	       <RTRUE>)
+	      (<NOT <FSET? ,PRSO ,TAKEBIT>>
+	       <TELL "You hit your head against the "
+			    D ,PRSO
+			    " as you attempt this feat." CR>)
+	      (<IN? ,PRSO ,WINNER>
+	       <TELL "That would involve quite a contortion!" CR>)
+	      (ELSE <TELL <PICK-ONE ,YUKS> CR>)>>
+
+
+<GLOBAL YUKS
+	<LTABLE "Not within this life cycle."
+		"With this kind of wisdom, be glad you're not in a Sphinx."
+		"A totally bizarre concept. For sure."
+		"Totally different head, man. Like, untubular."
+		"Kookie, man."
+		"I've heard better ideas from politicians."
+		"A truly amazing concept, that."
+		"Bizarre barely describes that desire."
+		"Let's face it -- that isn't going to happen.">>
+
+<ROUTINE V-WEAR ()
+	 <COND (<NOT <FSET? ,PRSO ,WEARBIT>>
+		<TELL "You can't wear the " D ,PRSO "." CR>)
+	       (T <PERFORM ,V?TAKE ,PRSO> <RTRUE>)>>
+
+<ROUTINE V-THROW-OFF ()
+	 <COND (<NOT <EQUAL? ,PRSI ,BOAT ,ALTAR ,DECK>>
+		<TELL "You can't throw anything off of that!" CR>)
+	       (<PRSI? ,BOAT ,DECK>
+		<COND (<NOT <EQUAL? ,HERE ,BARGE-CENTER>>
+		       <TELL "From where you are now? Get serious." CR>
+		       <RTRUE>)
+		      (T <TELL
+"Thrown. You hear it land in the darkness to the south." CR> 
+		       <MOVE ,PRSO ,BARGE-ENTRANCE>
+		       <FSET ,PRSO ,TOUCHBIT>
+		       <FCLEAR ,PRSO ,NDESCBIT>
+		       <RTRUE>)>)
+	       (<PRSI? ,ALTAR>
+		<COND (<NOT <IN? ,WINNER ,ALTAR>>
+		       <TELL
+"Don't you think you should be standing on the altar first?" CR>)
+		      (T
+		       <PERFORM ,V?THROW ,PRSO>
+		       <RTRUE>)>)>>
+		       
+<ROUTINE V-$VERIFY ()
+	 <TELL "Verifying game..." CR>
+	 <COND (<VERIFY> <TELL "Game correct. Don't panic yet." CR>)
+	       (T <TELL CR "** Game File Failure ** (Panic)" CR>)>>
+
+<ROUTINE V-STAND ()
+	 <COND (<FSET? <LOC ,WINNER> ,VEHBIT>
+		<PERFORM ,V?DISEMBARK <LOC ,WINNER>>
+		<RTRUE>)
+	       (ELSE
+		<TELL "You are already standing, I think." CR>)>>
+
+<ROUTINE V-PUT-BEHIND ()
+	 <TELL "That hiding place is too obvious." CR>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <PERFORM ,V?WALK .DIR>>
+
+<ROUTINE V-WALK-TO ()
+	 <COND (<AND <EQUAL? ,PRSO ,PLANK>
+		     <IN? ,PRSO ,HERE>>
+		<TELL "Yo ho." CR>
+		<COND (<EQUAL? ,HERE ,BARGE-ENTRANCE>
+		       <DO-WALK ,P?UP>
+		       <RTRUE>)
+		      (T <DO-WALK ,P?DOWN>)>
+		<RTRUE>)
+	       (<OR <IN? ,PRSO ,HERE>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<TELL "It's here!" CR>)
+	       (T <TELL "You should supply a direction!" CR>)>>
+
+;"Finds the room on the other side of a door"
+
+<ROUTINE OTHER-SIDE (DOBJ "AUX" (P 0) T)
+	 <REPEAT ()
+		 <COND (<L? <SET P <NEXTP ,HERE .P>> ,LOW-DIRECTION>
+			<RETURN <>>)
+		       (ELSE
+			<SET T <GETPT ,HERE .P>>
+			<COND (<AND <EQUAL? <PTSIZE .T> ,DEXIT>
+				    <EQUAL? <GETB .T ,DEXITOBJ> .DOBJ>>
+			       <RETURN .P>)>)>>>
+
+<ROUTINE V-DRINK-FROM ("AUX" OBJ)
+	 <COND (<NOT ,PRSI>
+		<COND (<EQUAL? ,PRSO ,NILE-RIBBAH>
+		       <SET OBJ ,GLOBAL-WATER>)
+		      (<EQUAL? ,PRSO ,CANTEEN>
+		       <SET OBJ ,WATER>)
+		      (<EQUAL? ,PRSO ,OIL-JAR>
+		       <SET OBJ ,LIQUID>)
+		      (T
+		       <COND (<NOT <FSET? ,PRSO ,CONTBIT>>
+			      <TELL "How peculiar!" CR>
+			      <RTRUE>)
+			     (<NOT <FIRST? ,PRSO>>
+			      <TELL "There's nothing to drink in the " D ,PRSO
+				    "." CR>
+			      <RTRUE>)
+			     (T
+			      <SET OBJ <FIRST? ,PRSO>>
+			      <COND (<NOT <FSET? .OBJ ,DRINKBIT>>
+				     <TELL
+"I don't think there's anything worth drinking in the " D ,PRSO "." CR>
+				     <RTRUE>)>)>)>
+		<PERFORM ,V?DRINK .OBJ>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSO ,GLOBAL-WATER ,WATER>
+		     <EQUAL? ,PRSI ,NILE-RIBBAH>>
+		<COND (<NOT <EQUAL? ,HERE ,RIVER-BANK>>
+		       <TELL "I see no " D ,PRSO " here." CR>
+		       <RTRUE>)
+		      (ELSE
+		       <PERFORM ,V?DRINK ,PRSO>
+		       <RTRUE>)>)
+	       (<NOT <FSET? ,PRSI ,OPENBIT>>
+		<TELL "Better open the " D ,PRSI " first." CR>)
+	       (<NOT <IN? ,PRSO ,PRSI>>
+		<TELL "I can't see any " D ,PRSO " in the " D ,PRSI "." CR>)
+	       (T
+		<PERFORM ,V?DRINK ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LEAN-ON ()
+	 <TELL "Are you so very tired, then?" CR>>
+
+<ROUTINE V-DIP-IN ()
+	 <COND (<AND <EQUAL? ,PRSI ,GLOBAL-WATER ,NILE-RIBBAH>
+		     <EQUAL? ,PRSO ,CANTEEN>>
+		<PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSI ,OIL-JAR ,LIQUID>>
+		<TELL "You can't dip the " D ,PRSO " in that!" CR>)
+	       (<OR <FLAMING? ,PRSO>
+		    <FLAMING? ,PRSI>>
+		<JIGS-UP
+"Poof. There's no need to get burned up about it though...">)
+	       (<NOT <EQUAL? ,PRSO ,TORCH>>
+		<TELL "Huh? Dip the " D ,PRSO "!?" CR>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?POUR-ON ,OIL-JAR ,TORCH>
+		<RTRUE>)>>
+
+<ROUTINE V-PUT-AGAINST ()
+	 <TELL "You can't do that." CR>>
+
+<ROUTINE BREAK-SEAL ()
+	 <COND (<AND <NOT <EQUAL? ,PRSI ,PICK-AXE>>
+		     <NOT <IN? ,WINNER ,PICK-AXE>>>
+		<RFALSE>)>
+	 <COND (<EQUAL? ,BEAM-PLACED 4>
+		 <TELL
+"You manage to destroy the seal. You glance to the right and see fine sand
+running from a crack in the stone. The beam creaks and groans under tremendous
+pressure as the 3 ton stone block above your head starts to lower.  The beam
+holds the weight, saving you from a flattening fate."CR>
+                <SETG ANTE-SEAL <>>
+		<THIS-IS-IT ,NORTH-ANTE-DOOR>
+		<RTRUE>)
+	       (<OR <NOT <IN? ,BEAM ,NORTH-ANTECHAMBER>>
+		    <NOT ,BEAM-PLACED>>
+		<JIGS-UP 
+"You manage to destroy the seal, but as you stand in the doorway, you hear the
+distinct sound of grinding stone. You glance to your right and see fine sand
+running from a crack in the wall. You're totally unaware of the 3 tons of
+carved stone block falling onto your head from directly above.">)>>
+
+<ROUTINE V-TASTE ()
+	 <TELL "It tastes just like a">
+	 <VOWEL? ,PRSO>
+	 <TELL D ,PRSO "!" CR>>
+
+<ROUTINE V-ROLL ()
+	 <COND (<NOT <EQUAL? ,PRSO ,HUGE-STATUE>>
+		<TELL "Why bother?" CR>)
+	       (T
+		<TELL "The statue bumps into a wall." CR>)>>
+	       
+<ROUTINE V-PUSH-THROUGH ()
+	 <TELL
+"Pushing the " D ,PRSO " in that way isn't particularly helpful." CR>>
+
+<ROUTINE HOW? (OBJ)
+	 <TELL "I don't know how to do that to a">
+	 <VOWEL? .OBJ>
+	 <TELL D .OBJ "." CR>>
+
+<ROUTINE VOWEL? (OBJ)
+	 <COND (<FSET? .OBJ ,VOWELBIT>
+		<TELL "n">)>
+	 <TELL " ">>
+
+<ROUTINE HUH? ("OPTIONAL" (RARG <>))
+	 <COND (<VERB? OPEN CLOSE>
+		<HOW? ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-SMOKE ()
+	 <TELL "Smoking is bad for your health." CR>>
+
+<ROUTINE V-UNFOLD ()
+	 <COND (<NOT <EQUAL? ,PRSO ,MAP>>
+		<HOW? ,PRSO>)
+	       (T
+		<PERFORM ,V?OPEN ,MAP>
+		<RTRUE>)>>
+
+<ROUTINE V-FOLD ()
+	 <COND (<NOT <EQUAL? ,PRSO ,MAP>>
+		<HOW? ,PRSO>)
+	       (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL "It's already folded up." CR>
+		<RTRUE>)
+	       (T
+		<TELL "Okay. The map has been folded." CR>
+		<FCLEAR ,MAP ,OPENBIT>
+		<RTRUE>)>>
+
+<GLOBAL CROC-STR
+"You manage to wade a few feet into the river, but this makes the crocodiles
+spring into action -- they advance far more quickly than you thought possible.
+You panic and turn to the bank, attempting to flee. Your splashing about makes
+the beasts double their efforts and reach you just as you are about to step on
+shore. The last thought you have is a slight amazement at how many teeth a
+crocodile has and just how sharp they are.">
+
+<ROUTINE V-HOLE-DIG ()
+	 <COND (<NOT <EQUAL? ,PRSO ,HOLE>>
+		<TELL "I don't know how to dig a">
+		<VOWEL? ,PRSO>
+		<TELL D ,PRSO "." CR>)
+	       (<EQUAL? ,PRSI ,SAND>
+		<PERFORM ,V?DIG ,SAND>
+		<RTRUE>)
+	       (ELSE
+		<TELL "I can't dig in the " D ,PRSI "." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-DIG-WITH ()
+	 <PERFORM ,V?DIG ,SAND ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-TURN-OVER ()
+	 <COND (<IN? ,PRSO ,WINNER>
+		<TELL "Okay. There's nothing of interest there." CR>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "You'd better pick it up first." CR>)
+	       (ELSE
+		<TELL "Good luck!" CR>)>>
+		
+<ROUTINE V-READ-INSIDE ()
+	 <TELL "There's nothing to read there." CR>>
+
+<ROUTINE PRE-REACH-IN ()
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <FSET? ,PRSO ,CONTBIT>>
+		<TELL "You can't reach into that." CR>
+		<RTRUE>)>
+	 <COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL "The " D ,PRSO " is closed." CR>)>>
+
+<ROUTINE V-REACH-IN ()
+	 <PERFORM ,V?LOOK-INSIDE ,PRSO>>
+
+<ROUTINE V-CLEAN ()
+	 <TELL
+"Cleanliness may be next to godliness, but there are limits." CR>>
+
+<ROUTINE PRE-PULL-UP ()
+	 <COND (<NOT <EQUAL? ,PRSO ,BEAM>>
+		<PERFORM ,V?MOVE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-PULL-UP ()
+	 <COND (<FSET? ,BEAM ,TOUCHBIT>
+		<TELL "Why bother?" CR>)
+	       (<NOT <EQUAL? ,HERE ,BARGE-CENTER>>
+		<TELL "That's a little tough to do from here." CR>)
+	       (ELSE
+		<PERFORM ,V?PUSH-THROUGH ,BEAM ,MAST-HOLE>)>>
+
+<ROUTINE V-THROW-DOWN ("AUX" FOO)
+	 <COND (<STAIRWAY-CHECK?>
+		<RTRUE>)
+	       (<NOT <EQUAL? ,PRSO ,ROPE>>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?NORTH>>
+		<SET FOO ,NORTH-STAIRS>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?SOUTH>>
+		<SET FOO ,SOUTH-STAIRS>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?EAST>>
+		<SET FOO ,EAST-STAIRS>)
+	       (<AND <EQUAL? ,PRSI ,INTDIR>
+		     <EQUAL? ,P-DIRECTION ,P?WEST>>
+		<SET FOO ,WEST-STAIRS>)
+	       (ELSE
+		<SET FOO ,GROUND>)>
+	 <PERFORM ,V?PUT ,PRSO .FOO>
+	 <RTRUE>>
+
+<ROUTINE V-TIME ()
+	 <TELL "Tickity tockity, sprickity sprockety." CR>>
+
+<ROUTINE PRE-COMPARE ("AUX" (FLG <>))
+	 <COND (<PRSO? ,NOT-HERE-OBJECT>
+		<RFALSE>)
+	       (<NOT <GETP ,PRSO ,P?MAP>>
+		<SET FLG T>)
+	       (<NOT <EQUAL? <GETP ,PRSO ,P?MAP>
+			     <GETP ,PRSI ,P?MAP>>>
+		<SET FLG T>)>
+	 <COND (.FLG
+		<TELL "Comparisons between the " D ,PRSO " and the " D ,PRSI
+		      " would not really help." CR>
+		<RTRUE>)
+	       (ELSE
+		<RFALSE>)>>
+
+<ROUTINE V-COMPARE ()
+	 <COND (<PRSO? ,ROCK-LOCK ,STONE-KEY>
+		<TELL 
+"It looks as if the small cube would fit into the opening almost exactly." CR>)
+	       (<EQUAL? <GETP ,PRSO ,P?MAP> 1> ;"CUPS"
+		<TELL
+"The two chalices are of exactly the same size and dimensions, though empty
+they have different weights." CR>)
+	       (<AND <EQUAL? <GETP ,PRSO ,P?MAP> 3 4> ;"Book & L AREA"
+		     <EQUAL? <GETP ,PRSO ,P?MAP> <GETP ,PRSI ,P?MAP>>>
+		<TELL "Looks as if the area is just big enough to hold it." CR>)
+	       (<AND <EQUAL? <GETP ,PRSO ,P?MAP> 3 4> ;"Book & L AREA"
+		     <NOT <EQUAL? <GETP ,PRSO ,P?MAP> <GETP ,PRSI ,P?MAP>>>>
+		<TELL "Well, the match up between them wasn't made in heaven."
+		      CR>)
+	       (T
+		<TELL "The " D ,PRSO " and the " D ,PRSI " are the same size."
+		      CR>)>>
+
+<ROUTINE V-FOO-COMPARE ()
+	 <COND (<L? <GET ,P-PRSO 0> 2>
+		<TELL "You have to compare the " D ,PRSO " to something else."
+		      CR>
+		<RTRUE>)
+	       (T
+	        <PERFORM ,V?COMPARE <GET ,P-PRSO 1> <GET ,P-PRSO 2>>
+		<RFATAL>)>>
+
+<ROUTINE V-WEIGH ()
+	 <COND (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "Tough to do without a scale." CR>)
+	       (T
+		<TELL "Now that's bizarre!" CR>)>>
+
+<ROUTINE V-FILL-OUT ()
+	 <COND (<NOT <EQUAL? ,PRSO ,MANUAL>>
+		<TELL "There's no need for filling that out." CR>)
+	       (T
+		<TELL
+"Okay. Find me a pen or a pencil and I'll do the best I can." CR>)>>
+		     
+<ROUTINE V-PLASTER-REMOVE ()
+	 <COND (<AND <EQUAL? ,PRSO ,PLASTER1 ,PLASTER ,N-ANTE-SEAL>
+		     <OR <EQUAL? ,PRSI ,DOORWAY ,ANNEX-DOOR ,WALLS>
+			 <PRSI? ,NORTH-ANTE-DOOR ,INNER-DOOR>>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (ELSE
+		<PERFORM ,V?CLEAN ,PRSO>)>>
+
+<ROUTINE V-CHASTISE ()
+	 <TELL 
+"Please be more specific. LOOKing AT, BEHIND, UNDER, THROUGH, INSIDE, ON, DOWN,
+FOR, or any other method of LOOKing mean different things to me. Please
+specify which preposition you'd like to use next time, like LOOK AT THE " D ,PRSO ", or LOOK INSIDE THE " D ,PRSO "." CR>>
+
+<ROUTINE V-LOOK-UP ()
+	 <COND (<AND <L? ,MOVES 8>
+		     <NOT <IN-A-TENT?>>>
+		<TELL "You see a pretty plane. Oh boy!" CR>)
+	       (<EQUAL? <LOC ,WINNER> ,COT>
+		<MOVE ,WINNER ,HERE>
+		<PERFORM ,V?LOOK-UP>
+		<MOVE ,WINNER ,COT>
+		<RTRUE>)
+	       (<IN-A-TENT?>
+		<TELL "You see canvas. What else?" CR>)
+	       (<OR <GETP ,HERE ,P?MAP>
+		    <EQUAL? ,HERE ,CHAMBER-OF-RA>>
+		<TELL "You see a blue sky with wisps of billowy clouds." CR>)
+	       (<OR <EQUAL? ,HERE ,BELOW-MAST ,BELOW-DECK ,AFT-CABIN>
+		    <EQUAL? ,HERE ,FORE-CABIN>>
+		<TELL "You see wood. What else?" CR>)
+	       (<EQUAL? ,HERE ,TEMPLE-ENTER>
+		<TELL "You see inky blackness." CR>)
+	       (T
+		<TELL "You see stones. What else?" CR>)>>
+
+<ROUTINE V-HELP ()
+	 <COND (,PRSO
+		<COND (<NOT <EQUAL? ,PRSO ,WINNER>>
+		       <TELL "The " D ,PRSO " doesn't need any help." CR>
+		       <RTRUE>)>)>
+	 <TELL "You got yourself into this -- now get yourself out of it." CR>>
+
+<ROUTINE V-STAND-UNDER ()
+	 <COND (<AND <EQUAL? ,PRSO ,CRATE ,PLANE ,PARACHUTE>
+		     <IN? ,PRSO ,GLOBAL-OBJECTS>>
+		<COND (<NOT <IN-A-TENT?>>
+		       <TELL "It looks like that's just where you are." CR>)
+		      (T
+		       <TELL "Better get out of the tent first." CR>)>)
+	       (T
+		<TELL "You can't stand under that!" CR>)>>
+
+<ROUTINE V-SLEEP ()
+	 <COND (<IN? ,WINNER ,COT>
+		<TELL 
+"You close your eyes, but your mind is too active to let you sleep." CR>)
+	       (<IN? ,COT ,HERE>
+		<MOVE ,WINNER ,COT>
+		<TELL "You get into the cot and try to get comfy. ">
+		<V-SLEEP>
+		<RTRUE>)
+	       (,PRSO
+		<TELL "That doesn't sound too comfortable to me." CR>)
+	       (T
+		<TELL "Better find a good place to lie down." CR>)>>
+
+<ROUTINE V-FILL-IN ()
+	 <COND (<NOT <EQUAL? ,PRSO ,HOLE ,MANUAL>>
+		<TELL "I don't know how to fill in the " D ,PRSO "." CR>)
+	       (<PRSO? ,HOLE>
+		<TELL "Let time and Mother Nature take care of that." CR>)
+	       (T
+		<PERFORM ,V?FILL-OUT ,MANUAL>
+		<RTRUE>)>>
+
+<ROUTINE V-WET ()
+	  <PERFORM ,V?POUR-ON ,PRSI ,PRSO>
+	  <RTRUE>>
+
+<ROUTINE V-SIT-ON ()
+	 <COND (<EQUAL? ,PRSO ,CRATE>
+		<TELL
+"You easily weigh enough to make the crate's life-cycle far shorter than it
+would have liked. Needless to say, after having been crushed flat by your
+heartless attempt, it decides to move on, find what the next life-cycle has in
+store for it, and vanishes into the mystical unknown." CR>
+		<REMOVE ,CRATE>
+		<SETG P-IT-LOC <>>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?CLIMB-ON ,PRSO>
+		<RTRUE>)
+	       
+	       (<EQUAL? ,PRSO ,GROUND ,SAND ,DECK>
+		<TELL "No sitting down on the job, now." CR>)
+	       (T
+		<TELL <PICK-ONE ,YUKS> CR>)>>
+
+<ROUTINE TBL-TO-INSIDE (OBJ TBL "OPTIONAL" STR "AUX" (OFFS 0) MAX)
+	 <COND (<NOT <FSET? .OBJ ,SURFACEBIT>>
+		<TELL "The " D .OBJ " is already open." CR>
+		<RTRUE>)>
+	 <COND (<FIRST? .OBJ>
+		<OBJS-SLIDE-OFF .OBJ>)>
+	 <SET MAX <GET .TBL 0>>
+	 <COND (<NOT .STR>
+		<TELL "Opened.">)
+	       (T <TELL .STR>)>
+	 <FCLEAR .OBJ ,SURFACEBIT>
+	 <REPEAT ()
+		 <SET OFFS <+ .OFFS 1>>
+		 <COND (<G? .OFFS .MAX>
+			<RETURN>)
+		       (<NOT <EQUAL? <GET .TBL .OFFS> 0>>
+			<MOVE <GET .TBL .OFFS> .OBJ>
+			<PUT .TBL .OFFS 0>)>>
+	 <COND (<FIRST? .OBJ>
+		<TELL " Opening the " D .OBJ " reveals ">
+		<PRINT-CONTENTS .OBJ>
+		<TELL ".">)>
+	 <CRLF>>
+
+<ROUTINE INSIDE-OBJ-TO (TBL OBJ "AUX" (OFFS 0) F N)
+	 <COND (<FSET? .OBJ ,SURFACEBIT>
+		<TELL "The " D .OBJ " is already closed." CR>
+		<RTRUE>)>
+	 <FSET .OBJ ,SURFACEBIT>
+	 <TELL "Closed." CR>
+	 <COND (<NOT <FIRST? .OBJ>>
+		<RTRUE>)>
+	 <SET F <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<REMOVE .N>
+			<REPEAT ()
+				<SET OFFS <+ .OFFS 1>>
+				<COND (<EQUAL? <GET .TBL .OFFS> 0>
+				       <PUT .TBL .OFFS .N>
+				       <RETURN>)>>)>>>
+	       
+<ROUTINE OBJS-SLIDE-OFF (OBJ "AUX" F N THERE)
+	 <SET THERE <LOC .OBJ>>
+	 <COND (<EQUAL? .THERE ,WINNER>
+		<SET THERE ,HERE>)>
+	 <SET F <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<MOVE .N .THERE>)>>
+	 <TELL "Everything on the " D .OBJ " slides off its top." CR>
+	 <CRLF>>
+
+<ROUTINE V-JUMP-ROPE ()
+	 <COND (<NOT <EQUAL? ,PRSO ,ROPE>>
+		<TELL "I can jump rope, and that's about all." CR>)
+	       (T
+		<TELL "Well, it takes all kinds of weirdos..." CR>)>>
+
+<ROUTINE EMPTY-THE (OBJ "OPTIONAL" (BURN? T) "AUX" F N (FLG <>))
+	 <SET F <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .F>
+			<RETURN>)
+		       (T
+			<SET N .F>
+			<SET F <NEXT? .N>>
+			<COND (<AND <EQUAL? ,HERE ,WEST-END-OF-PASSAGE>
+				    <NOT <FSET? ,PIT ,INVISIBLE>>>
+			       <REMOVE .N>
+			       <SET FLG 1>)
+			      (T
+			       <MOVE .N ,HERE>
+			       <SET FLG 2>)>)>>
+	 <COND (<NOT .FLG>
+		<RTRUE>)
+	       (T
+		<TELL " Whatever was inside the " D .OBJ>
+		<COND (<EQUAL? .FLG 1>
+		       <TELL " has fallen out." CR>)
+		      (<EQUAL? .FLG 2>
+		       <TELL " falls into the pit." CR>)>)>>
+		
+		
\ No newline at end of file