commit 0dfdfa8ed57193f155fc76846bcf5ba679e6af76
Author: historicalsource <historicalsoftware@textfiles.com>
Date:   Thu Apr 18 21:40:40 2019 -0400

    Solid-Gold Edition Release

diff --git a/compone.zabstr b/compone.zabstr
new file mode 100644
index 0000000..88bd758
--- /dev/null
+++ b/compone.zabstr
@@ -0,0 +1,634 @@
+
+<ROOM UNDERWATER (LOC ROOMS) (DESC "Underwater") (LDESC
+"You are momentarily disoriented as you enter the turbulent waters.
+Currents buffet you against the sharp rocks of an underwater
+cliff. A dim light filters down from above.") (C-MOVE <TABLE 0 0 0 35 0 0 0 0 0
+0 0 0>) (UP TO CRAG) (DOWN TO UNDERWATER) (WEST TO UNDERWATER) (NORTH TO
+UNDERWATER) (SOUTH TO UNDERWATER) (FLAGS ONBIT RWATERBIT) (ACTION UNDERWATER-F)
+> 
+<GLOBAL DROWN 0 %<> WORD> 
+<DEFINE-ROUTINE UNDERWATER-F> 
+<ROOM CRAG (LOC ROOMS) (DESC "Crag") (LDESC
+"You have reached a cleft in the cliff wall where the island rises from the
+water. The edge of the cleft displays recently exposed rock where it collapsed
+under the weight of the escape pod. About two meters below, turbulent waters
+swirl against sharp rocks. A small structure clings to the face of the cliff
+about eight meters above you. Even an out-of-shape Ensign Seventh Class could
+probably climb up to it.") (C-MOVE <TABLE 0 0 10 40 0 0 0 0 0 0 0 0>) (DOWN TO
+UNDERWATER) (UP TO BALCONY) (FLAGS ONBIT RLANDBIT) (VALUE 3) (GLOBAL CLIFF
+OCEAN) (PSEUDO "STRUCTURE" STRUCTURE-PSEUDO "CLEFT" CLEFT-PSEUDO) (ACTION
+CRAG-F)> 
+<DEFINE-ROUTINE CRAG-F> 
+<ROOM BALCONY (LOC ROOMS) (DESC "Balcony") (C-MOVE <TABLE 0 0 25 30 0 0 0 0 0 0
+0 0>) (DOWN PER WATER-LEVEL-F) (UP TO WINDING-STAIR) (FLAGS ONBIT RLANDBIT) (
+PSEUDO "PLAQUE" PLAQUE-PSEUDO) (GLOBAL CLIFF OCEAN STAIRS WINDOW) (ACTION
+BALCONY-F)> 
+<DEFINE-ROUTINE BALCONY-F> 
+<ROOM WINDING-STAIR (LOC ROOMS) (DESC "Winding Stair") (C-MOVE <TABLE 0 0 15 30
+0 0 0 0 0 0 0 0>) (DOWN PER WATER-LEVEL-F) (UP TO COURTYARD) (FLAGS ONBIT
+RLANDBIT) (GLOBAL CLIFF STAIRS) (ACTION WINDING-STAIR-F)> 
+<DEFINE-ROUTINE WINDING-STAIR-F> 
+<ROOM COURTYARD (LOC ROOMS) (DESC "Courtyard") (C-MOVE <TABLE 0 0 15 0 0 0 0 0
+0 0 0 0>) (DOWN TO WINDING-STAIR) (SOUTH TO WINDING-STAIR) (WEST TO WEST-WING)
+(NORTH TO PLAIN-HALL) (FLAGS ONBIT RLANDBIT FLOYDBIT) (GLOBAL STAIRS) (PSEUDO
+"CASTLE" CASTLE-PSEUDO "RUBBLE" RUBBLE-PSEUDO) (ACTION COURTYARD-F)> 
+<DEFINE-ROUTINE COURTYARD-F> 
+<DEFINE-ROUTINE WATER-LEVEL-F> 
+<ROOM WEST-WING (LOC ROOMS) (DESC "West Wing") (LDESC
+"This was once the west wing of the castle, but the walls are now mostly
+rubble, allowing a view of the cliff and ocean below. Rubble blocks all exits
+save one, eastward to the courtyard.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>)
+(EAST TO COURTYARD) (DOWN SORRY "Certain death.") (FLAGS ONBIT RLANDBIT
+FLOYDBIT) (GLOBAL CLIFF OCEAN) (PSEUDO "CASTLE" CASTLE-PSEUDO "RUBBLE"
+RUBBLE-PSEUDO)> 
+<ROOM PLAIN-HALL (LOC ROOMS) (DESC "Plain Hall") (LDESC
+"This is a featureless hall leading north and south. Although the hallway is
+old and dusty, the construction is of a much more modern style than the
+castle to the south. A similar hall branches off to the northeast.") (C-MOVE <
+TABLE 0 0 0 0 0 0 0 0 0 0 25 0>) (SOUTH TO COURTYARD) (NORTH TO REC-AREA) (NE
+TO REC-CORRIDOR) (FLAGS ONBIT RLANDBIT)> 
+<ROOM REC-AREA (LOC ROOMS) (DESC "Rec Area") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0
+0 0>) (NORTH TO CONFERENCE-ROOM IF CONFERENCE-DOOR IS OPEN) (SOUTH TO
+PLAIN-HALL) (EAST TO REC-CORRIDOR) (FLAGS ONBIT RLANDBIT FLOYDBIT) (GLOBAL
+CONFERENCE-DOOR) (PSEUDO "GAMES" GAMES-PSEUDO "TAPES" TAPES-PSEUDO) (ACTION
+REC-AREA-F)> 
+<GLOBAL DIAL-NUMBER 0 %<> WORD> 
+<GLOBAL NUMBER-NEEDED 0 %<> WORD> 
+<DEFINE-ROUTINE REC-AREA-F> 
+<ROOM CONFERENCE-ROOM (LOC ROOMS) (DESC "Conference Room") (C-MOVE <TABLE 0 0 0
+0 0 0 0 0 0 0 0 0>) (SOUTH TO REC-AREA IF CONFERENCE-DOOR IS OPEN) (OUT TO
+REC-AREA IF CONFERENCE-DOOR IS OPEN) (IN TO BOOTH-1) (NORTH TO BOOTH-1) (FLAGS
+RLANDBIT ONBIT) (PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO) (GLOBAL CONFERENCE-DOOR
+TABLES) (ACTION CONFERENCE-ROOM-F)> 
+<DEFINE-ROUTINE CONFERENCE-ROOM-F> 
+<OBJECT CONFERENCE-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (FLAGS
+DOORBIT NDESCBIT) (ACTION CONFERENCE-DOOR-F)> 
+<OBJECT COMBINATION-DIAL (LOC REC-AREA) (DESC "combination dial") (SYNONYM DIAL
+) (ADJECTIVE COMBINATION) (FLAGS MUNGBIT NDESCBIT) (ACTION COMBINATION-DIAL-F)>
+
+<DEFINE-ROUTINE COMBINATION-DIAL-F> 
+<DEFINE-ROUTINE CONFERENCE-DOOR-F> 
+<ROOM BOOTH-1 (LOC ROOMS) (DESC "Booth 1") (LDESC
+"This is a tiny room with a large \"1\" painted on the wall. A panel contains
+a slot about ten centimeters wide, a beige button labelled \"2\" and a tan
+button labelled \"3.\"") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO
+CONFERENCE-ROOM) (OUT TO CONFERENCE-ROOM) (PSEUDO "BOOTH" IN-BOOTH-PSEUDO) (
+FLAGS ONBIT RLANDBIT) (GLOBAL CONTROLS SLOT TELEPORTATION-BUTTON-2
+TELEPORTATION-BUTTON-3)> 
+<ROOM REC-CORRIDOR (LOC ROOMS) (DESC "Rec Corridor") (LDESC
+"This is a wide, east-west hallway. Portals lead north and south, and another
+corridor branches southwest.") (C-MOVE <TABLE 0 0 0 0 0 0 25 0 0 0 0 0>) (WEST
+TO REC-AREA) (NORTH TO DORM-B) (SOUTH TO DORM-A) (EAST TO MESS-CORRIDOR) (SW TO
+PLAIN-HALL) (FLAGS ONBIT RLANDBIT)> 
+<ROOM DORM-A (LOC ROOMS) (DESC "Dorm A") (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO SANFAC-A) (NORTH TO
+REC-CORRIDOR) (FLAGS FLOYDBIT ONBIT RLANDBIT) (GLOBAL BED) (PSEUDO "PARTITION"
+PARTITION-PSEUDO)> 
+<ROOM SANFAC-A (LOC ROOMS) (DESC "SanFac A") (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+north.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO DORM-A) (FLAGS
+ONBIT RLANDBIT FLOYDBIT) (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET"
+TOILET-PSEUDO)> 
+<ROOM DORM-B (LOC ROOMS) (DESC "Dorm B") (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO REC-CORRIDOR) (NORTH TO
+SANFAC-B) (FLAGS FLOYDBIT ONBIT RLANDBIT) (GLOBAL BED) (PSEUDO "PARTITION"
+PARTITION-PSEUDO)> 
+<ROOM SANFAC-B (LOC ROOMS) (DESC "SanFac B") (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+south.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO DORM-B) (FLAGS
+FLOYDBIT ONBIT RLANDBIT) (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET"
+TOILET-PSEUDO)> 
+<ROOM DORM-C (LOC ROOMS) (DESC "Dorm C") (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO DORM-CORRIDOR) (SOUTH TO
+SANFAC-C) (FLAGS ONBIT FLOYDBIT RLANDBIT) (GLOBAL BED) (PSEUDO "PARTITION"
+PARTITION-PSEUDO)> 
+<ROOM SANFAC-C (LOC ROOMS) (DESC "SanFac C") (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+north.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO DORM-C) (FLAGS
+FLOYDBIT ONBIT RLANDBIT) (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET"
+TOILET-PSEUDO)> 
+<ROOM DORM-D (LOC ROOMS) (DESC "Dorm D") (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO DORM-CORRIDOR) (NORTH TO
+SANFAC-D) (FLAGS FLOYDBIT ONBIT RLANDBIT) (GLOBAL BED) (PSEUDO "PARTITION"
+PARTITION-PSEUDO)> 
+<ROOM SANFAC-D (LOC ROOMS) (DESC "SanFac D") (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+south.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO DORM-D) (FLAGS
+ONBIT FLOYDBIT RLANDBIT) (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET"
+TOILET-PSEUDO)> 
+<ROOM MESS-CORRIDOR (LOC ROOMS) (DESC "Mess Corridor") (C-MOVE <TABLE 0 0 0 0 0
+0 0 0 0 0 0 0>) (SOUTH TO MESS-HALL) (NORTH TO STORAGE-WEST IF
+STORAGE-WEST-DOOR IS OPEN) (EAST TO DORM-CORRIDOR) (WEST TO REC-CORRIDOR) (
+FLAGS ONBIT RLANDBIT) (GLOBAL STORAGE-WEST-DOOR) (ACTION MESS-CORRIDOR-F)> 
+<DEFINE-ROUTINE MESS-CORRIDOR-F> 
+<OBJECT STORAGE-WEST-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (
+FLAGS DOORBIT NDESCBIT) (ACTION STORAGE-WEST-DOOR-F)> 
+<DEFINE-ROUTINE STORAGE-WEST-DOOR-F> 
+<OBJECT PADLOCK (LOC MESS-CORRIDOR) (DESC "padlock") (SYNONYM PADLOCK PAD LOCK)
+(ADJECTIVE SIMPLE STEEL METAL) (SIZE 10) (FLAGS MUNGBIT NDESCBIT TAKEBIT
+TRYTAKEBIT) (ACTION PADLOCK-F)> 
+<GLOBAL PADLOCK-REMOVED <> %<> WORD> 
+<DEFINE-ROUTINE PADLOCK-F> 
+<ROOM STORAGE-WEST (LOC ROOMS) (DESC "Storage West") (LDESC
+"This is a small room obviously intended as a storage area.") (C-MOVE <TABLE 0
+0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO MESS-CORRIDOR IF STORAGE-WEST-DOOR IS OPEN) (
+OUT TO MESS-CORRIDOR IF STORAGE-WEST-DOOR IS OPEN) (FLAGS RLANDBIT ONBIT) (
+VALUE 4) (GLOBAL SHELVES STORAGE-WEST-DOOR)> 
+<OBJECT CAN (LOC STORAGE-WEST) (DESC "tin can") (LDESC
+"There is a large tin can, labelled \"Spam and Egz,\" sitting here.") (FDESC
+"On a small shelf is a large, unopened tin can. It has a plain white
+label which reads \"Spam and Egz.\"") (SIZE 15) (SYNONYM CAN) (ADJECTIVE LARGE
+TIN UNOPENED) (FLAGS TAKEBIT) (ACTION CAN-F)> 
+<DEFINE-ROUTINE CAN-F> 
+<OBJECT LADDER (LOC STORAGE-WEST) (DESC "ladder") (FDESC
+"A heavy-duty extendable ladder is leaning against the rear wall.") (LDESC
+"There is a large aluminum ladder here.") (SYNONYM LADDER) (ADJECTIVE HEAVY
+DUTY HEAVY-DUTY ALUMINUM LARGE) (SIZE 80) (FLAGS TAKEBIT) (ACTION LADDER-F)> 
+<GLOBAL LADDER-EXTENDED <> %<> WORD> 
+<GLOBAL LADDER-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE LADDER-F> 
+<ROOM DORM-CORRIDOR (LOC ROOMS) (DESC "Dorm Corridor") (LDESC
+"This is a wide, east-west hallway with openings to the north and south.
+To the east, the corridor stretches off into the distance. That section of
+the hallway is lined with a motorized walkway (no longer running) that
+was probably intended to transport people or cargo down that tremendously
+long hall.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 160 0 0>) (NORTH TO DORM-D) (
+SOUTH TO DORM-C) (WEST TO MESS-CORRIDOR) (EAST PER LONG-HALL-F) (FLAGS ONBIT
+RLANDBIT) (PSEUDO "WALKWAY" WALKWAY-PSEUDO)> 
+<ROOM MESS-HALL (LOC ROOMS) (DESC "Mess Hall") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0
+0 0 0>) (NORTH TO MESS-CORRIDOR) (OUT TO MESS-CORRIDOR) (SOUTH TO KITCHEN IF
+KITCHEN-DOOR IS OPEN) (IN TO KITCHEN IF KITCHEN-DOOR IS OPEN) (GLOBAL TABLES
+KITCHEN-DOOR SLOT) (FLAGS ONBIT FLOYDBIT RLANDBIT) (PSEUDO "BENCH" BENCH-PSEUDO
+"BENCHES" BENCH-PSEUDO) (ACTION MESS-HALL-F)> 
+<DEFINE-ROUTINE MESS-HALL-F> 
+<OBJECT KITCHEN-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (
+ADJECTIVE KITCHEN) (FLAGS DOORBIT NDESCBIT) (ACTION KITCHEN-DOOR-F)> 
+<DEFINE-ROUTINE KITCHEN-DOOR-F> 
+<ROOM KITCHEN (LOC ROOMS) (DESC "Kitchen") (LDESC
+"This is the food production and dispensary area for the dining hall to the
+north. Of particular interest is a machine near the door. You should probably
+examine it more closely.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO
+MESS-HALL) (OUT TO MESS-HALL) (GLOBAL KITCHEN-DOOR) (PSEUDO "SPOUT"
+SPOUT-PSEUDO "BUTTON" BUTTON-PSEUDO) (FLAGS ONBIT RLANDBIT) (VALUE 4)> 
+<OBJECT DISPENSER (LOC KITCHEN) (DESC "dispenser unit") (SYNONYM UNIT NICHE
+MACHINE DISPENSER) (ADJECTIVE DISPENSER) (FLAGS MUNGBIT CONTBIT SEARCHBIT
+OPENBIT TRANSBIT NDESCBIT) (ACTION DISPENSER-F)> 
+<OBJECT CANTEEN (LOC MESS-HALL) (DESC "canteen") (FDESC
+"Although the room is quite barren, an octagonally shaped
+canteen is sitting on one of the benches.") (SYNONYM CANTEEN) (ADJECTIVE
+OCTAGONAL) (CAPACITY 5) (SIZE 10) (FLAGS TAKEBIT CONTBIT SEARCHBIT)> 
+<DEFINE-ROUTINE DISPENSER-F> 
+<OBJECT HIGH-PROTEIN (DESC "quantity of protein-rich liquid") (SYNONYM LIQUID
+FLUID FOOD QUANTITY) (ADJECTIVE BROWN PROTEIN-RICH PROTEIN RICH) (SIZE 5) (
+FLAGS FOODBIT) (ACTION HIGH-PROTEIN-F)> 
+<DEFINE-ROUTINE HIGH-PROTEIN-F> 
+<DEFINE-ROUTINE WORTHLESS-ACTION> 
+<ROOM CORRIDOR-JUNCTION (LOC ROOMS) (DESC "Corridor Junction") (LDESC
+"A north-south corridor intersects the main corridor here. To the west, the
+main corridor extends as far as you can see; a nonworking walkway from
+that direction ends here. To the east, the corridor widens into a well-lit
+area.") (C-MOVE <TABLE 0 0 0 0 0 160 0 0 0 30 0 0>) (NORTH TO ADMIN-CORRIDOR-S)
+(SOUTH TO MECH-CORRIDOR-N) (WEST PER LONG-HALL-F) (EAST TO ELEVATOR-LOBBY) (
+FLAGS FLOYDBIT RLANDBIT ONBIT) (PSEUDO "WALKWAY" WALKWAY-PSEUDO)> 
+<DEFINE-ROUTINE LONG-HALL-F> 
+<ROOM ADMIN-CORRIDOR-S (LOC ROOMS) (DESC "Admin Corridor South") (LDESC
+"This section of hallway seems to have suffered some minor structural
+damage. The walls are cracked, and a jagged crevice crosses the floor.
+An opening leads east and the corridor heads north and south.") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO CORRIDOR-JUNCTION) (NORTH TO ADMIN-CORRIDOR
+) (EAST TO SANFAC-E) (FLAGS RLANDBIT ONBIT) (ACTION ADMIN-CORRIDOR-S-F)> 
+<DEFINE-ROUTINE ADMIN-CORRIDOR-S-F> 
+<OBJECT CREVICE (LOC ADMIN-CORRIDOR-S) (DESC "crevice") (SYNONYM CREVICE CRACK
+HOLE) (ADJECTIVE NARROW JAGGED) (FLAGS NDESCBIT) (ACTION CREVICE-F)> 
+<DEFINE-ROUTINE CREVICE-F> 
+<OBJECT KEY (LOC ADMIN-CORRIDOR-S) (DESC "key") (FDESC
+"Lying at the bottom of a narrow crevice is a shiny object.") (SIZE 3) (SYNONYM
+KEY METAL OBJECT) (ADJECTIVE PIECE STEEL IRON SHINY) (FLAGS ACIDBIT TAKEBIT
+TOOLBIT INVISIBLE TRYTAKEBIT) (ACTION KEY-F)> 
+<DEFINE-ROUTINE KEY-F> 
+<ROOM ADMIN-CORRIDOR (LOC ROOMS) (DESC "Admin Corridor") (C-MOVE <TABLE 0 0 0 0
+0 0 0 0 0 0 0 0>) (SOUTH TO ADMIN-CORRIDOR-S) (NORTH PER LADDER-EXIT-F) (WEST
+TO SYSTEMS-MONITORS) (FLAGS RLANDBIT ONBIT) (GLOBAL RIFT) (PSEUDO "RUBBLE"
+RUBBLE-PSEUDO) (ACTION ADMIN-CORRIDOR-F)> 
+<DEFINE-ROUTINE ADMIN-CORRIDOR-F> 
+<ROOM ADMIN-CORRIDOR-N (LOC ROOMS) (DESC "Admin Corridor North") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH PER LADDER-EXIT-F) (NORTH TO
+TRANSPORTATION-SUPPLY) (EAST TO PLAN-ROOM) (WEST TO SMALL-OFFICE) (FLAGS
+RLANDBIT ONBIT) (VALUE 4) (GLOBAL RIFT) (ACTION ADMIN-CORRIDOR-N-F)> 
+<DEFINE-ROUTINE ADMIN-CORRIDOR-N-F> 
+<DEFINE-ROUTINE LADDER-EXIT-F> 
+<OBJECT RIFT (LOC LOCAL-GLOBALS) (DESC "rift") (SYNONYM RIFT GULF PRECIPICE
+HOLE) (ADJECTIVE WIDE DEEP GAPING) (FLAGS NDESCBIT) (ACTION RIFT-F)> 
+<DEFINE-ROUTINE RIFT-F> 
+<ROOM SANFAC-E (LOC ROOMS) (DESC "SanFac E") (LDESC
+"Here is another sanitary facility. Like the others, it is dusty and
+nonfunctional.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO
+ADMIN-CORRIDOR-S) (OUT TO ADMIN-CORRIDOR-S) (FLAGS FLOYDBIT RLANDBIT ONBIT) (
+PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)> 
+<ROOM SYSTEMS-MONITORS (LOC ROOMS) (DESC "Systems Monitors") (C-MOVE <TABLE 0 0
+0 0 0 0 0 0 0 0 0 0>) (EAST TO ADMIN-CORRIDOR) (OUT TO ADMIN-CORRIDOR) (FLAGS
+FLOYDBIT RLANDBIT ONBIT) (GLOBAL TABLES) (PSEUDO "MONITORS" MONITORS-PSEUDO
+"EQUIPMENT" EQUIPMENT-PSEUDO) (ACTION SYSTEMS-MONITORS-F)> 
+<DEFINE-ROUTINE SYSTEMS-MONITORS-F> 
+<DEFINE-ROUTINE DESCRIBE-MONITORS> 
+<ROOM PLAN-ROOM (LOC ROOMS) (DESC "Plan Room") (LDESC
+"This is a small room whose far wall is covered with many small cubbyholes,
+all empty. The left wall is covered with an enormous map, labelled
+\"Kalamontee Kompleks\", showing two installations connected by a long
+hallway. Near the upper part of this map is a red arrow saying \"Yuu ar
+heer.\" The right wall is covered with a similar map, labelled \"Lawanda
+Kompleks\", showing two installations, one apparently buried deep
+underground.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO
+ADMIN-CORRIDOR-N) (FLAGS RLANDBIT ONBIT FLOYDBIT) (PSEUDO "CUBBYHOLE"
+CUBBYHOLE-PSEUDO "MAPS" MAPS-PSEUDO)> 
+<ROOM TRANSPORTATION-SUPPLY (LOC ROOMS) (DESC "Transportation Supply") (LDESC
+"You have just located a serious bug.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>
+) (SOUTH TO ADMIN-CORRIDOR-N) (NORTH TO TRANSPORTATION-SUPPLY) (EAST TO
+TRANSPORTATION-SUPPLY) (WEST TO TRANSPORTATION-SUPPLY) (OUT TO ADMIN-CORRIDOR-N
+) (FLAGS RLANDBIT)> 
+<ROOM SMALL-OFFICE (LOC ROOMS) (DESC "Small Office") (LDESC
+"You have entered a small office of some sort. A small desk faces the main
+doorway which lies to the east. Another exit leads west.") (C-MOVE <TABLE 0 0 0
+0 0 0 0 0 0 0 0 0>) (EAST TO ADMIN-CORRIDOR-N) (WEST TO LARGE-OFFICE) (FLAGS
+RLANDBIT FLOYDBIT ONBIT)> 
+<OBJECT SMALL-DESK (LOC SMALL-OFFICE) (DESC "small desk") (SYNONYM DESK DRAWER)
+(ADJECTIVE SMALL) (CAPACITY 10) (FLAGS NDESCBIT CONTBIT SEARCHBIT) (ACTION
+DESK-F)> 
+<OBJECT KITCHEN-CARD (LOC SMALL-DESK) (DESC "kitchen access card") (SYNONYM
+CARD CARDS) (ADJECTIVE KITCHEN ACCESS) (SIZE 3) (FLAGS TAKEBIT READBIT) (TEXT
+"The card is embossed \"kitcin akses kard.\"") (VALUE 1)> 
+<OBJECT UPPER-ELEVATOR-CARD (LOC SMALL-DESK) (DESC "upper elevator access card"
+) (SYNONYM CARD CARDS) (ADJECTIVE UPPER ELEVATOR ACCESS) (SIZE 3) (FLAGS
+VOWELBIT TAKEBIT READBIT) (TEXT
+"The card is embossed \"upur elivaatur akses kard.\"") (VALUE 1)> 
+<OBJECT SHUTTLE-CARD (LOC LARGE-DESK) (DESC "shuttle access card") (SYNONYM
+CARD CARDS) (ADJECTIVE SHUTTLE ACCESS) (SIZE 3) (FLAGS TAKEBIT READBIT) (TEXT
+"The card is embossed \"shutul akses kard.\"") (VALUE 1)> 
+<OBJECT LOWER-ELEVATOR-CARD (DESC "lower elevator access card") (SYNONYM CARD
+CARDS) (ADJECTIVE LOWER ELEVATOR ACCESS) (SIZE 3) (FLAGS TAKEBIT READBIT) (TEXT
+"The card is embossed \"loowur elivaatur akses kard.\"") (VALUE 1)> 
+<ROOM LARGE-OFFICE (LOC ROOMS) (DESC "Large Office") (LDESC
+"This is a large, plush office. The far wall is one large picture window,
+scratched but unbroken, offering a view of this installation and the ocean
+beyond. In front of the window is a wide wooden desk. The only exit is east.")
+(C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO SMALL-OFFICE) (FLAGS FLOYDBIT
+RLANDBIT ONBIT) (GLOBAL WINDOW OCEAN)> 
+<OBJECT LARGE-DESK (LOC LARGE-OFFICE) (DESC "large desk") (SYNONYM DESK DRAWER)
+(ADJECTIVE LARGE WIDE WOODEN) (CAPACITY 20) (FLAGS CONTBIT SEARCHBIT NDESCBIT)
+(ACTION DESK-F)> 
+<DEFINE-ROUTINE DESK-F> 
+<ROOM MECH-CORRIDOR-N (LOC ROOMS) (DESC "Mech Corridor North") (LDESC
+"Entrances to rooms lie to the east and west from this north-south hall.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO STORAGE-EAST) (WEST TO
+PHYSICAL-PLANT) (NORTH TO CORRIDOR-JUNCTION) (SOUTH TO MECH-CORRIDOR) (FLAGS
+RLANDBIT ONBIT)> 
+<ROOM MECH-CORRIDOR (LOC ROOMS) (DESC "Mech Corridor") (LDESC
+"Entrances to rooms lie to the east and west from this north-south hall.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO REACTOR-CONTROL) (WEST TO
+PHYSICAL-PLANT) (NORTH TO MECH-CORRIDOR-N) (SOUTH TO MECH-CORRIDOR-S) (FLAGS
+RLANDBIT ONBIT)> 
+<ROOM MECH-CORRIDOR-S (LOC ROOMS) (DESC "Mech Corridor South") (LDESC
+"The corridor ends here with doorways to the southwest, south, and southeast.")
+(C-MOVE <TABLE 0 0 0 0 0 0 25 0 25 0 0 0>) (NORTH TO MECH-CORRIDOR) (SW TO
+TOOL-ROOM) (SOUTH TO MACHINE-SHOP) (SE TO ROBOT-SHOP) (FLAGS RLANDBIT ONBIT)> 
+<ROOM STORAGE-EAST (LOC ROOMS) (DESC "Storage East") (LDESC
+"A small room for storage. The exit is to the west.") (C-MOVE <TABLE 0 0 0 0 0
+0 0 0 0 0 0 0>) (WEST TO MECH-CORRIDOR-N) (FLAGS RLANDBIT FLOYDBIT ONBIT) (
+GLOBAL SHELVES)> 
+<OBJECT OIL-CAN (LOC STORAGE-EAST) (DESC "oil can") (FDESC
+"One dusty shelf, otherwise bare, holds a small oil can.") (SYNONYM CAN) (
+ADJECTIVE SMALL OIL) (SIZE 10) (FLAGS VOWELBIT TAKEBIT) (ACTION OIL-CAN-F)> 
+<DEFINE-ROUTINE OIL-CAN-F> 
+<OBJECT CARTON (LOC STORAGE-EAST) (DESC "cardboard box") (FDESC
+"On the floor beneath the shelves sits a small cardboard box.") (SYNONYM BOX
+CARTON) (ADJECTIVE SMALL CARDBOARD) (SIZE 10) (CAPACITY 50) (FLAGS TAKEBIT
+CONTBIT SEARCHBIT OPENBIT) (ACTION CARTON-F)> 
+<DEFINE-ROUTINE CARTON-F> 
+<OBJECT CRACKED-BOARD (LOC CARTON) (DESC
+"cracked seventeen-centimeter fromitz board") (SYNONYM BOARD BOARDS) (ADJECTIVE
+CRACKED SEVENTEEN CENTIMETER FROMITZ) (SIZE 10) (FLAGS ACIDBIT TAKEBIT) (ACTION
+CRACKED-BOARD-F)> 
+<DEFINE-ROUTINE CRACKED-BOARD-F> 
+<OBJECT MEGAFUSE-B (LOC CARTON) (DESC "B-series megafuse") (SYNONYM FUSE
+MEGAFUSE) (ADJECTIVE B-SERIES B SERIES MEGA) (SIZE 5) (FLAGS ACIDBIT TAKEBIT)> 
+<OBJECT MEGAFUSE-K (LOC CARTON) (DESC "K-series megafuse") (SYNONYM FUSE
+MEGAFUSE) (ADJECTIVE K-SERIES K SERIES MEGA) (SIZE 5) (FLAGS ACIDBIT TAKEBIT)> 
+<OBJECT GOOD-BEDISTOR (LOC CARTON) (DESC "good ninety-ohm bedistor") (SYNONYM
+BEDISTOR) (ADJECTIVE GOOD NINETY OHM NINETY-OHM) (SIZE 8) (FLAGS ACIDBIT
+TAKEBIT) (ACTION GOOD-BEDISTOR-F)> 
+<DEFINE-ROUTINE GOOD-BEDISTOR-F> 
+<ROOM PHYSICAL-PLANT (LOC ROOMS) (DESC "Physical Plant") (LDESC
+"This is a huge, dim room with exits in the northeast and southeast
+corners. The room is criss-crossed with catwalks and is filled with
+heavy equipment presumably intended to heat and ventilate this complex.
+Hardly any of the equipment is still operating.") (C-MOVE <TABLE 0 0 0 0 0 0 0
+0 0 0 0 0>) (NE TO MECH-CORRIDOR-N) (SE TO MECH-CORRIDOR) (FLAGS FLOYDBIT
+RLANDBIT ONBIT) (PSEUDO "EQUIPMENT" EQUIPMENT-PSEUDO "CATWALK" CATWALK-PSEUDO)>
+
+<ROOM REACTOR-CONTROL (LOC ROOMS) (DESC "Reactor Control") (LDESC
+"This room contains many dials and gauges for controlling a massive planetary
+power reactor which, according to a diagram on the wall, must be buried far
+below this very complex. The exit is to the west. To the east is a metal door,
+and next to it, a button. A dark stairway winds downward.") (C-MOVE <TABLE 0 0
+20 0 0 0 0 0 0 0 0 0>) (WEST TO MECH-CORRIDOR) (EAST TO REACTOR-ELEVATOR IF
+REACTOR-ELEVATOR-DOOR IS OPEN) (IN TO REACTOR-ELEVATOR IF REACTOR-ELEVATOR-DOOR
+IS OPEN) (DOWN TO REACTOR-ACCESS-STAIRS) (FLAGS RLANDBIT FLOYDBIT ONBIT) (
+PSEUDO "BUTTON" REACTOR-BUTTON-PSEUDO "DIAGRAM" DIAGRAM-PSEUDO) (GLOBAL
+CONTROLS STAIRS REACTOR-ELEVATOR-DOOR)> 
+<ROOM REACTOR-ACCESS-STAIRS (LOC ROOMS) (DESC "Reactor Access Stairs") (LDESC
+"You have just located a serious bug.") (C-MOVE <TABLE 0 0 0 30 0 0 0 0 0 0 0 0
+>) (DOWN TO REACTOR-ACCESS-STAIRS) (UP TO REACTOR-CONTROL) (FLAGS RLANDBIT) (
+GLOBAL STAIRS)> 
+<OBJECT REACTOR-ELEVATOR-DOOR (LOC LOCAL-GLOBALS) (DESC "reactor elevator door"
+) (SYNONYM DOOR) (ADJECTIVE REACTOR ELEVATOR) (FLAGS DOORBIT) (ACTION
+REACTOR-ELEVATOR-DOOR-F)> 
+<DEFINE-ROUTINE REACTOR-ELEVATOR-DOOR-F> 
+<DEFINE-ROUTINE I-REACTOR-DOOR-CLOSE> 
+<ROOM REACTOR-ELEVATOR (LOC ROOMS) (DESC "Reactor Elevator") (LDESC
+"This is an elevator with a door to the west, currently open. A control panel
+contains an Up button, a Down button, and a small slot.") (C-MOVE <TABLE 0 0 0
+0 0 0 0 0 0 0 0 0>) (WEST TO REACTOR-CONTROL) (OUT TO REACTOR-CONTROL) (FLAGS
+RLANDBIT ONBIT) (GLOBAL REACTOR-ELEVATOR-DOOR SLOT ELEVATOR-BUTTON CONTROLS)> 
+<ROOM TOOL-ROOM (LOC ROOMS) (DESC "Tool Room") (LDESC
+"This is apparently a storage room for tools. Exits lead northeast and east.")
+(C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 25 0>) (NE TO MECH-CORRIDOR-S) (EAST TO
+MACHINE-SHOP) (FLAGS RLANDBIT FLOYDBIT ONBIT) (GLOBAL SHELVES)> 
+<OBJECT FLASK (LOC TOOL-ROOM) (DESC "glass flask") (FDESC
+"Sitting on the floor below the lowest shelf is a large glass flask.") (SYNONYM
+FLASK) (ADJECTIVE GLASS LARGE PLASTIC) (SIZE 10) (CAPACITY 2) (FLAGS CONTBIT
+SEARCHBIT OPENBIT TAKEBIT) (ACTION FLASK-F)> 
+<DEFINE-ROUTINE FLASK-F> 
+<OBJECT MAGNET (LOC TOOL-ROOM) (SIZE 10) (DESC "curved metal bar") (FDESC
+"On an upper shelf is a metal bar, curved into a U-shape.") (SYNONYM MAGNET BAR
+) (ADJECTIVE CURVED METAL HORSESHOE) (FLAGS TRYTAKEBIT TAKEBIT) (ACTION
+MAGNET-F)> 
+<DEFINE-ROUTINE MAGNET-F> 
+<DEFINE-ROUTINE I-MAGNET> 
+<OBJECT PLIERS (LOC TOOL-ROOM) (DESC "pair of wide-nosed pliers") (SYNONYM PAIR
+PLIERS) (ADJECTIVE WIDE-NOSED WIDE NOSED) (SIZE 15) (FLAGS TAKEBIT)> 
+<ROOM MACHINE-SHOP (LOC ROOMS) (DESC "Machine Shop") (C-MOVE <TABLE 0 0 0 0 0 0
+0 0 0 0 0 0>) (NORTH TO MECH-CORRIDOR-S) (EAST TO ROBOT-SHOP) (WEST TO
+TOOL-ROOM) (FLAGS RLANDBIT FLOYDBIT ONBIT) (PSEUDO "SPOUT" CHEM-SPOUT-PSEUDO) (
+ACTION MACHINE-SHOP-F)> 
+<DEFINE-ROUTINE MACHINE-SHOP-F> 
+<OBJECT CHEMICAL-DISPENSER (LOC MACHINE-SHOP) (DESC "chemical dispenser") (
+SYNONYM DISPENSER MACHINE) (ADJECTIVE DISPENSER LARGE CHEMICAL) (FLAGS MUNGBIT
+NDESCBIT) (ACTION CHEMICAL-DISPENSER-F)> 
+<GLOBAL SPOUT-PLACED <> %<> WORD> 
+<DEFINE-ROUTINE CHEMICAL-DISPENSER-F> 
+<OBJECT RED-BUTTON (LOC MACHINE-SHOP) (DESC "red button") (SYNONYM BUTTON) (
+ADJECTIVE RED) (FLAGS NDESCBIT) (C-MOVE 1) (ACTION CHEM-BUTTON-F)> 
+<OBJECT BLUE-BUTTON (LOC MACHINE-SHOP) (DESC "blue button") (SYNONYM BUTTON) (
+ADJECTIVE BLUE) (FLAGS NDESCBIT) (C-MOVE 2) (ACTION CHEM-BUTTON-F)> 
+<OBJECT GREEN-BUTTON (LOC MACHINE-SHOP) (DESC "green button") (SYNONYM BUTTON)
+(ADJECTIVE GREEN) (FLAGS NDESCBIT) (C-MOVE 3) (ACTION CHEM-BUTTON-F)> 
+<OBJECT YELLOW-BUTTON (LOC MACHINE-SHOP) (DESC "yellow button") (SYNONYM BUTTON
+) (ADJECTIVE YELLOW) (FLAGS NDESCBIT) (C-MOVE 4) (ACTION CHEM-BUTTON-F)> 
+<OBJECT GRAY-BUTTON (LOC MACHINE-SHOP) (DESC "gray button") (SYNONYM BUTTON) (
+ADJECTIVE GRAY GREY) (FLAGS NDESCBIT) (C-MOVE 5) (ACTION CHEM-BUTTON-F)> 
+<OBJECT BROWN-BUTTON (LOC MACHINE-SHOP) (DESC "brown button") (SYNONYM BUTTON)
+(ADJECTIVE BROWN) (FLAGS NDESCBIT) (C-MOVE 6) (ACTION CHEM-BUTTON-F)> 
+<OBJECT BLACK-BUTTON (LOC MACHINE-SHOP) (DESC "black button") (SYNONYM BUTTON)
+(ADJECTIVE BLACK) (FLAGS NDESCBIT) (C-MOVE 7) (ACTION CHEM-BUTTON-F)> 
+<OBJECT ROUND-WHITE-BUTTON (LOC MACHINE-SHOP) (DESC "round white button") (
+SYNONYM BUTTON) (ADJECTIVE WHITE ROUND) (FLAGS NDESCBIT) (C-MOVE 8) (ACTION
+CHEM-BUTTON-F)> 
+<OBJECT SQUARE-WHITE-BUTTON (LOC MACHINE-SHOP) (DESC "square white button") (
+SYNONYM BUTTON) (ADJECTIVE SQUARE WHITE) (FLAGS NDESCBIT) (C-MOVE 9) (ACTION
+CHEM-BUTTON-F)> 
+<GLOBAL CHEMICAL-FLAG 0 %<> WORD> 
+<CONSTANT COLOR-LTBL <PLTABLE "red" "blue" "green" "yellow" "gray" "brown"
+"black" "clear" "clear">> 
+<DEFINE-ROUTINE CHEM-BUTTON-F> 
+<ROOM ROBOT-SHOP (LOC ROOMS) (DESC "Robot Shop") (LDESC
+"This room, with exits west and northwest, is filled with robot-like
+devices of every conceivable description, all in various states of
+disassembly.") (C-MOVE <TABLE 0 0 0 0 25 0 0 0 0 0 0 0>) (WEST TO MACHINE-SHOP)
+(NW TO MECH-CORRIDOR-S) (FLAGS RLANDBIT FLOYDBIT ONBIT) (PSEUDO "DEVICE"
+DEVICES-PSEUDO)> 
+<OBJECT FLOYD (LOC ROBOT-SHOP) (DESC "multiple purpose robot") (FDESC
+"Only one robot, about four feet high, looks even remotely close to being
+in working order.") (SYNONYM FLOYD COMPARTMENT ROBOT COMPANION) (ADJECTIVE
+MULTIPLE PURPOSE DIM-WITTED DIM WITTED) (FLAGS CONTBIT SEARCHBIT TRANSBIT
+OPENBIT LIGHTBIT) (CAPACITY 5) (ACTION FLOYD-F)> 
+<GLOBAL CARD-STOLEN <> %<> WORD> 
+<DEFINE-ROUTINE FLOYD-F> 
+<DEFINE-ROUTINE FLOYDS-FAMOUS-DOOR-ROUTINE> 
+<DEFINE-ROUTINE FLUSH> 
+<DEFINE-ROUTINE FLOYD-INTO-LAB> 
+<DEFINE-ROUTINE FLOYD-NOT-HAVE> 
+<GLOBAL FLOYD-SCORE-FLAG <> %<> WORD> 
+<GLOBAL FLOYD-SPOKE <> %<> WORD> 
+<GLOBAL FLOYD-FOLLOW <> %<> WORD> 
+<GLOBAL FLOYD-REACTIVATED <> %<> WORD> 
+<GLOBAL FLOYD-INTRODUCED <> %<> WORD> 
+<DEFINE-ROUTINE FLOYD-COMES-ALIVE> 
+<DEFINE-ROUTINE I-FLOYD> 
+<DEFINE-ROUTINE CALL-ME-FLOYD> 
+<DEFINE-ROUTINE KLUDGE> 
+<OBJECT DEAD-FLOYD (DESC "mangled robot") (LDESC
+"Your former companion, Floyd, is lying on the ground in a pool of oil.") (
+SYNONYM FLOYD ROBOT COMPANION) (ADJECTIVE MANGLE DEAD FORMER) (ACTION
+DEAD-FLOYD-F)> 
+<DEFINE-ROUTINE DEAD-FLOYD-F> 
+<CONSTANT FLOYDISMS <PLTABLE "paces impatiently"
+"absentmindedly recites the first six hundred digits of pi"
+"lowers his voice and tells you the latest rumors about Dr. Fizpick"
+"recalls the time he bruised his knee" "chants the death scene from \"Carmen\""
+"cranes his neck to see what you are doing"
+"rubs his head affectionately against your shoulder"
+"asks if you want to play Hucka-Bucka-Beanstalk"
+"examines himself for signs of rust" "absentmindedly oils one of his joints"
+"wanders restlessly around the room"
+"notices a mouse scurrying by and tries to hide behind you"
+"sings an ancient ballad, totally out of key"
+"frets about the possibility of his batteries failing"
+"reminisces about his friend Lazarus, a medical robot"
+"relates some fond memories about his robotic friend Lazarus"
+"whistles tunelessly"
+"tells you about the time he helped someone sharpen a pencil"
+"yawns and looks bored"
+"produces a crayon from one of his compartments and scrawls
+his name on the wall">> 
+^L 
+department 
+<ROOM ELEVATOR-LOBBY (LOC ROOMS) (DESC "Elevator Lobby") (C-MOVE <TABLE 0 0 0 0
+0 30 0 0 0 0 0 0>) (NORTH PER ELEVATOR-ENTER-F) (SOUTH PER ELEVATOR-ENTER-F) (
+WEST TO CORRIDOR-JUNCTION) (EAST TO BOOTH-2) (IN TO BOOTH-2) (FLAGS RLANDBIT
+FLOYDBIT ONBIT) (GLOBAL UPPER-ELEVATOR-DOOR LOWER-ELEVATOR-DOOR) (PSEUDO
+"BOOTH" NEAR-BOOTH-PSEUDO) (ACTION ELEVATOR-LOBBY-F)> 
+<DEFINE-ROUTINE ELEVATOR-LOBBY-F> 
+<ROOM UPPER-ELEVATOR (LOC ROOMS) (DESC "Upper Elevator") (C-MOVE <TABLE 0 0 0 0
+0 0 0 0 0 0 0 0>) (OUT PER ELEVATOR-EXIT-F) (SOUTH PER ELEVATOR-EXIT-F) (UP
+SORRY "You'll have to use the elevator controls.") (DOWN SORRY
+"You'll have to use the elevator controls.") (FLAGS RLANDBIT ONBIT) (GLOBAL
+LIGHTS CONTROLS SLOT ELEVATOR-BUTTON UPPER-ELEVATOR-DOOR) (ACTION
+UPPER-ELEVATOR-F)> 
+<DEFINE-ROUTINE UPPER-ELEVATOR-F> 
+<ROOM LOWER-ELEVATOR (LOC ROOMS) (DESC "Lower Elevator") (C-MOVE <TABLE 0 0 0 0
+0 0 0 0 0 0 0 0>) (NORTH PER ELEVATOR-EXIT-F) (OUT PER ELEVATOR-EXIT-F) (UP
+SORRY "You'll have to use the elevator controls.") (DOWN SORRY
+"You'll have to use the elevator controls.") (FLAGS RLANDBIT ONBIT) (GLOBAL
+LIGHTS CONTROLS SLOT ELEVATOR-BUTTON LOWER-ELEVATOR-DOOR) (ACTION
+LOWER-ELEVATOR-F)> 
+<DEFINE-ROUTINE LOWER-ELEVATOR-F> 
+<DEFINE-ROUTINE ELEVATOR-ENTER-F> 
+<DEFINE-ROUTINE ELEVATOR-EXIT-F> 
+<OBJECT UPPER-ELEVATOR-DOOR (LOC LOCAL-GLOBALS) (DESC "blue door") (SYNONYM
+DOOR) (ADJECTIVE UPPER ELEVATOR BLUE) (FLAGS NDESCBIT DOORBIT) (ACTION
+UPPER-ELEVATOR-DOOR-F)> 
+<DEFINE-ROUTINE UPPER-ELEVATOR-DOOR-F> 
+<OBJECT LOWER-ELEVATOR-DOOR (LOC LOCAL-GLOBALS) (DESC "red door") (SYNONYM DOOR
+) (ADJECTIVE RED LOWER ELEVATOR METAL) (FLAGS NDESCBIT DOORBIT) (ACTION
+LOWER-ELEVATOR-DOOR-F)> 
+<DEFINE-ROUTINE LOWER-ELEVATOR-DOOR-F> 
+<DEFINE-ROUTINE DOOR-CLOSED> 
+<OBJECT BLUE-ELEVATOR-BUTTON (LOC ELEVATOR-LOBBY) (DESC "blue button") (SYNONYM
+BUTTON) (ADJECTIVE BLUE NORTH) (FLAGS NDESCBIT) (ACTION BLUE-ELEVATOR-BUTTON-F)
+> 
+<OBJECT RED-ELEVATOR-BUTTON (LOC ELEVATOR-LOBBY) (DESC "red button") (SYNONYM
+BUTTON) (ADJECTIVE RED SOUTH) (FLAGS NDESCBIT) (ACTION RED-ELEVATOR-BUTTON-F)> 
+<DEFINE-ROUTINE BLUE-ELEVATOR-BUTTON-F> 
+<DEFINE-ROUTINE RED-ELEVATOR-BUTTON-F> 
+<DEFINE-ROUTINE I-UPPER-ELEVATOR-ARRIVE> 
+<DEFINE-ROUTINE I-LOWER-ELEVATOR-ARRIVE> 
+<OBJECT ELEVATOR-BUTTON (LOC LOCAL-GLOBALS) (DESC "button") (SYNONYM BUTTON) (
+FLAGS NDESCBIT) (ACTION ELEVATOR-BUTTON-F)> 
+<GLOBAL LOWER-ELEVATOR-UP <> %<> WORD> 
+<GLOBAL UPPER-ELEVATOR-UP T %<> WORD> 
+<GLOBAL ELEVATOR-IN-TRANSIT <> %<> WORD> 
+<GLOBAL LOWER-ELEVATOR-ON <> %<> WORD> 
+<GLOBAL UPPER-ELEVATOR-ON <> %<> WORD> 
+<DEFINE-ROUTINE ELEVATOR-BUTTON-F> 
+<DEFINE-ROUTINE I-TURNOFF-UPPER-ELEVATOR> 
+<DEFINE-ROUTINE I-TURNOFF-LOWER-ELEVATOR> 
+<CONSTANT ELEVATOR-LIGHT-OFF "A recording says \"Elevator no longer enabled.\""
+> 
+<CONSTANT ELEVATOR-STARTS
+"The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement."> 
+<DEFINE-ROUTINE I-UPPER-ELEVATOR-TRIP> 
+<DEFINE-ROUTINE I-LOWER-ELEVATOR-TRIP> 
+<DEFINE-ROUTINE ELEVATOR-DOOR-OPENS> 
+<ROOM BOOTH-2 (LOC ROOMS) (DESC "Booth 2") (LDESC
+"This is a tiny room with a large \"2\" painted on the wall. A panel contains
+a slot about ten centimeters wide, a brown button labelled \"1\" and a tan
+button labelled \"3.\"") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO
+ELEVATOR-LOBBY) (OUT TO ELEVATOR-LOBBY) (FLAGS RLANDBIT ONBIT) (PSEUDO "BOOTH"
+IN-BOOTH-PSEUDO) (GLOBAL CONTROLS SLOT TELEPORTATION-BUTTON-1
+TELEPORTATION-BUTTON-3)> 
+<ROOM TOWER-CORE (LOC ROOMS) (DESC "Tower Core") (LDESC
+"This is a small, circular room. A sliding door leads north, and a spiral
+staircase heads upwards. Other exits lie to the northeast and southwest.") (
+C-MOVE <TABLE 0 0 0 30 0 0 0 0 0 0 0 0>) (NORTH TO UPPER-ELEVATOR) (UP TO
+HELIPAD) (SW TO OBSERVATION-DECK) (NE TO COMM-ROOM) (FLAGS RLANDBIT ONBIT) (
+VALUE 4) (GLOBAL STAIRS UPPER-ELEVATOR-DOOR)> 
+<ROOM HELIPAD (LOC ROOMS) (DESC "Helipad") (LDESC
+"You are at the center of a wide, flat area atop the tower. A fence
+prevents you from approaching the perimeter, so your view is limited to
+cloud-filled sky. A large vehicle, severely weathered and topped with rotor
+blades, lies nearby. A spiral staircase leads down into the tower.") (C-MOVE <
+TABLE 0 0 15 0 0 0 0 0 0 0 0 0>) (DOWN TO TOWER-CORE) (IN TO HELICOPTER) (EAST
+SORRY "A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.") (WEST SORRY
+"A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.") (NORTH SORRY
+"A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.") (SOUTH SORRY
+"A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.") (FLAGS RLANDBIT ONBIT) (
+PSEUDO "FENCE" FENCE-PSEUDO) (GLOBAL STAIRS HELICOPTER-OBJECT)> 
+<OBJECT HELICOPTER-OBJECT (LOC LOCAL-GLOBALS) (DESC "large vehicle") (SYNONYM
+VEHICLE HELICOPTER) (ADJECTIVE LARGE) (FLAGS VEHBIT NDESCBIT) (ACTION
+HELICOPTER-OBJECT-F)> 
+<DEFINE-ROUTINE HELICOPTER-OBJECT-F> 
+<ROOM HELICOPTER (LOC ROOMS) (DESC "Helicopter") (LDESC
+"This is a large vehicle with a lot of cargo space. A complex control panel
+is closed and locked. Everything is covered with a thick layer of rust.
+Through the windows of the vehicle you can see a wide Helipad, and beyond
+that, endless ocean far below. Several doors lead out to the Helipad.") (C-MOVE
+<TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (OUT TO HELIPAD) (FLAGS RLANDBIT ONBIT) (
+PSEUDO "LOCK" LOCK-PSEUDO) (GLOBAL OCEAN CONTROLS WINDOW HELICOPTER-OBJECT)> 
+<ROOM COMM-ROOM (LOC ROOMS) (DESC "Comm Room") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0
+0 0 0>) (SW TO TOWER-CORE) (FLAGS RLANDBIT ONBIT) (GLOBAL LIGHTS) (PSEUDO
+"CABLES" CABLES-PSEUDO "ENUNCIATOR" ENUNCIATOR-PSEUDO) (ACTION COMM-ROOM-F)> 
+<DEFINE-ROUTINE COMM-ROOM-F> 
+<GLOBAL JUST-ENTERED T %<> WORD> 
+<DEFINE-ROUTINE I-UNENTER> 
+<OBJECT RECEIVE-CONSOLE (LOC COMM-ROOM) (DESC "communications receive console")
+(C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SYNONYM CONSOLE CONTROL) (ADJECTIVE
+COMMUNICATIONS RECEIVE LEFT FIRST) (FLAGS NDESCBIT)> 
+<OBJECT PLAYBACK-BUTTON (LOC COMM-ROOM) (DESC "glowing button") (SYNONYM BUTTON
+) (ADJECTIVE GLOWING PLAYBACK) (FLAGS NDESCBIT) (ACTION PLAYBACK-BUTTON-F)> 
+<DEFINE-ROUTINE PLAYBACK-BUTTON-F> 
+<OBJECT SEND-CONSOLE (LOC COMM-ROOM) (DESC "communication send console") (
+SYNONYM CONSOLE CONTROL) (ADJECTIVE COMMUNICATIONS SEND RIGHT SECOND) (FLAGS
+NDESCBIT)> 
+<OBJECT COMM-SCREEN (LOC COMM-ROOM) (DESC "screen") (SYNONYM COMMUNICATIONS
+MESSAGE SCREEN) (FLAGS NDESCBIT READBIT) (TEXT
+"\"Tuu enee ship uv xe Sekund Galaktik Yuunyun: Planitwiid plaag haz struk
+entiir popyuulaashun. Tiim iz kritikul. Eemurjensee asistins reekwestid.
+<reepeet mesij>\"")> 
+<OBJECT FUNNEL-HOLE (LOC COMM-ROOM) (DESC "funnel-shaped hole") (SYNONYM HOLE)
+(ADJECTIVE FUNNEL SHAPED FUNNEL-SHAPED) (FLAGS NDESCBIT)> 
+<OBJECT CHEMICAL-FLUID (DESC "quantity of chemical fluid") (SYNONYM QUANTITY
+LIQUID FLUID CHEMICAL) (ADJECTIVE MILKY WHITE CHEMICAL) (ACTION
+CHEMICAL-FLUID-F)> 
+<DEFINE-ROUTINE RANDOMIZE-ORDER> 
+<GLOBAL ORDER-LTBL <LTABLE 0 0 0 0 0 0 0> %<> WORD> 
+<GLOBAL STEPS-TO-GO 0 %<> WORD> 
+<DEFINE-ROUTINE CHEMICAL-FLUID-F> 
+<DEFINE-ROUTINE CUBE-SEEMS> 
+<DEFINE-ROUTINE CHEMICAL-POURS> 
+<DEFINE-ROUTINE STRIP-DISSOLVES> 
+<GLOBAL COMM-SHUTDOWN <> %<> WORD> 
+<DEFINE-ROUTINE SHUTDOWN> 
+<DEFINE-ROUTINE COMM-SETUP> 
+<GLOBAL COMM-FIXED <> %<> WORD> 
+<GLOBAL CHEMICAL-REQUIRED 0 %<> WORD> 
+<ROOM OBSERVATION-DECK (LOC ROOMS) (DESC "Observation Deck") (LDESC
+"This is a balcony girdling the tower. The view is breathtaking; the tower
+must be half a kilometer tall. From here it is clear that you are on an
+island. The dormitory section of the complex is visible on the other side
+of the island, and the rest of the complex sprawls out directly below. In
+the distance, about 20 kilometers to the east, you can spot another island
+similar to this one. The only exit is a doorway leading northeast.") (C-MOVE <
+TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NE TO TOWER-CORE) (FLAGS RLANDBIT ONBIT) (
+GLOBAL OCEAN)> 
+<ROOM WAITING-AREA (LOC ROOMS) (DESC "Waiting Area") (LDESC
+"This is a concrete platform sparsely furnished with benches. The platform
+continues to the east, and to the south is a metal door.") (C-MOVE <TABLE 0 0 0
+0 0 0 0 0 0 0 0 0>) (EAST TO KALAMONTEE-PLATFORM) (SOUTH PER
+OTHER-ELEVATOR-ENTER-F) (IN PER OTHER-ELEVATOR-ENTER-F) (PSEUDO "BENCH"
+BENCH-PSEUDO "BENCHES" BENCH-PSEUDO) (GLOBAL LOWER-ELEVATOR-DOOR) (FLAGS
+RLANDBIT ONBIT)> 
+<DEFINE-ROUTINE OTHER-ELEVATOR-ENTER-F> 
+<ROOM KALAMONTEE-PLATFORM (LOC ROOMS) (DESC "Kalamontee Platform") (C-MOVE <
+TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO WAITING-AREA) (SOUTH PER
+SHUTTLE-ENTER-F) (NORTH PER SHUTTLE-ENTER-F) (FLAGS RLANDBIT ONBIT) (VALUE 4) (
+GLOBAL GLOBAL-SHUTTLE) (ACTION KALAMONTEE-PLATFORM-F)> 
+<DEFINE-ROUTINE KALAMONTEE-PLATFORM-F> 
\ No newline at end of file
diff --git a/compone.zap b/compone.zap
new file mode 100644
index 0000000..dcb2e26
--- /dev/null
+++ b/compone.zap
@@ -0,0 +1,1653 @@
+
+
+	.FUNCT	UNDERWATER-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	IGRTR?	'DROWN,2 \FALSE
+	CALL2	JIGS-UP,STR?127
+	RSTACK	
+
+
+	.FUNCT	CRAG-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	SET	'DROWN,3
+	RETURN	DROWN
+
+
+	.FUNCT	BALCONY-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is an octagonal room, half carved into and half built out from the cliff wall. Through the shattered windows which ring the outer wall you can see ocean to the horizon. A weathered metal plaque with barely readable lettering rests below the windows. The language seems to be a corrupt form of Galalingua. A steep stairway, roughly cut into the face of the cliff, leads upward. "
+	EQUAL?	DAY,1 \?CCL6
+	PRINTR	"A rocky crag can be seen about eight meters below."
+?CCL6:	EQUAL?	DAY,2 \?CCL8
+	PRINTR	"The ocean waters swirl below. The crag where you landed yesterday is now underwater!"
+?CCL8:	EQUAL?	DAY,3 \FALSE
+	PRINTR	"Ocean waters are lapping at the base of the balcony."
+
+
+	.FUNCT	WINDING-STAIR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The middle of a long, steep stairway carved into the face of a cliff."
+	EQUAL?	DAY,4 \?CCL6
+	PRINTR	" You hear the lapping of water from below."
+?CCL6:	EQUAL?	DAY,5 \?CND4
+	PRINTR	" You can see ocean water splashing against the steps below you."
+?CND4:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	COURTYARD-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"You are in the courtyard of an ancient stone edifice, vaguely reminiscent of the castles you saw during your leave on Ramos Two. It has decayed to the point where it can probably be termed a ruin. Openings lead north and west, and a stairway downward is visible to the south. "
+	EQUAL?	DAY,6,7 \?CCL6
+	PRINTR	"From the direction of the stairway comes the sound of ocean surf."
+?CCL6:	EQUAL?	DAY,8 \?CND4
+	PRINTR	"Ocean water washes against the top few steps."
+?CND4:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WATER-LEVEL-F
+	EQUAL?	HERE,BALCONY \?CCL3
+	EQUAL?	DAY,1 \?CCL6
+	RETURN	CRAG
+?CCL6:	RETURN	UNDERWATER
+?CCL3:	EQUAL?	HERE,WINDING-STAIR \?CCL8
+	LESS?	DAY,4 \?CCL11
+	RETURN	BALCONY
+?CCL11:	RETURN	UNDERWATER
+?CCL8:	EQUAL?	HERE,COURTYARD \FALSE
+	LESS?	DAY,6 \?CCL16
+	RETURN	WINDING-STAIR
+?CCL16:	RETURN	UNDERWATER
+
+
+	.FUNCT	REC-AREA-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a recreational facility of some sort. Games and tapes are scattered about the room. Hallways head off to the east and south, and to the north is a door which is "
+	FSET?	CONFERENCE-DOOR,OPENBIT \?CCL6
+	PRINTI	"open"
+	JUMP	?CND4
+?CCL6:	PRINTI	"closed and locked. A dial on the door is currently set to "
+	PRINTN	DIAL-NUMBER
+?CND4:	PRINTR	"."
+
+
+	.FUNCT	CONFERENCE-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a fairly square room, almost filled by a round conference table. To the south is a door which is "
+	ICALL2	DDESC,CONFERENCE-DOOR
+	PRINTR	". To the north is a small room about the size of a phone booth."
+
+
+	.FUNCT	COMBINATION-DIAL-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The dial can be turned to any number between 0 and 1000."
+?CCL3:	EQUAL?	PRSA,V?SET \FALSE
+	EQUAL?	PRSI,INTNUM \FALSE
+	FSET?	COMBINATION-DIAL,MUNGEDBIT \?CCL10
+	PRINTR	"The dial has somehow become fused and won't move."
+?CCL10:	EQUAL?	P-NUMBER,DIAL-NUMBER \?CCL12
+	PRINTR	"That's what the dial is set to now!"
+?CCL12:	EQUAL?	P-NUMBER,NUMBER-NEEDED \?CCL14
+	SET	'DIAL-NUMBER,0
+	FSET	CONFERENCE-DOOR,OPENBIT
+	PRINTR	"The door swings open, and the dial resets to 0."
+?CCL14:	GRTR?	P-NUMBER,1000 \?CCL16
+	PRINTR	"The dial cannot be turned to a number that high."
+?CCL16:	SET	'DIAL-NUMBER,P-NUMBER
+	PRINTI	"The dial is now set to "
+	PRINTN	P-NUMBER
+	PRINTR	"."
+
+
+	.FUNCT	CONFERENCE-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	CONFERENCE-DOOR,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	EQUAL?	HERE,REC-AREA \?CCL9
+	PRINTR	"The door is locked. You probably have to turn the dial to some number to open it."
+?CCL9:	PRINTR	"The door seems to be locked from the other side."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	CONFERENCE-DOOR,OPENBIT \?CCL14
+	FCLEAR	CONFERENCE-DOOR,OPENBIT
+	PRINTR	"The door closes and you hear a click as it locks."
+?CCL14:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	MESS-CORRIDOR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a wide, east-west hallway with a large portal to the south. A small door to the north is "
+	ICALL2	DDESC,STORAGE-WEST-DOOR
+	ZERO?	PADLOCK-REMOVED \?CND4
+	PRINTI	" and hooked with a simple steel padlock"
+	FSET?	PADLOCK,OPENBIT \?CCL8
+	PRINTI	" which hangs unlocked"
+	JUMP	?CND4
+?CCL8:	PRINTI	" which is also closed"
+?CND4:	PRINTR	"."
+
+
+	.FUNCT	STORAGE-WEST-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	STORAGE-WEST-DOOR,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	ZERO?	PADLOCK-REMOVED /?CCL8
+	FSET	STORAGE-WEST-DOOR,OPENBIT
+	PRINTR	"Opened."
+?CCL8:	PRINTR	"The door cannot be opened until the padlock is removed."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL10
+	FSET?	STORAGE-WEST-DOOR,OPENBIT \?CCL13
+	FCLEAR	STORAGE-WEST-DOOR,OPENBIT
+	PRINTR	"The door is now closed."
+?CCL13:	CALL1	IS-CLOSED
+	RSTACK	
+?CCL10:	EQUAL?	PRSA,V?UNLOCK \FALSE
+	PRINTI	"The door itself isn't locked."
+	FSET?	PADLOCK,OPENBIT /?CND16
+	PRINTR	" It is the padlock on the door which is locked."
+?CND16:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PADLOCK-F
+	EQUAL?	HERE,BRIG \?CCL3
+	PRINTR	"You can't see or reach the lock from inside the cell."
+?CCL3:	EQUAL?	PRSA,V?OPEN-WITH \?CCL5
+	EQUAL?	PADLOCK,PRSO \?CCL5
+	ICALL	PERFORM,V?UNLOCK,PADLOCK,PRSI
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?OPEN,V?UNLOCK \?CCL9
+	FSET?	PADLOCK,OPENBIT /?CCL12
+	ZERO?	PRSI \?CCL15
+	PRINTR	"You can't open it with your hands."
+?CCL15:	EQUAL?	PRSI,KEY \?CCL17
+	FSET?	PADLOCK,MUNGEDBIT \?CCL20
+	PRINTR	"Tsk, tsk ... the padlock seems to be fused shut."
+?CCL20:	FSET	PADLOCK,OPENBIT
+	PRINTR	"The padlock springs open."
+?CCL17:	PRINTR	"That doesn't work."
+?CCL12:	PRINTR	"The padlock is already unlocked."
+?CCL9:	EQUAL?	PRSA,V?LOCK,V?CLOSE \?CCL22
+	FSET?	PADLOCK,OPENBIT \?CCL25
+	FCLEAR	PADLOCK,OPENBIT
+	PRINTR	"The padlock closes with a sharp click."
+?CCL25:	PRINTR	"The padlock is already locked."
+?CCL22:	EQUAL?	PRSA,V?TAKE \?CCL27
+	ZERO?	PADLOCK-REMOVED \?CCL27
+	FSET?	PADLOCK,OPENBIT \?CCL32
+	SET	'PADLOCK-REMOVED,TRUE-VALUE
+	FCLEAR	PADLOCK,TRYTAKEBIT
+	FCLEAR	PADLOCK,NDESCBIT
+	RFALSE	
+?CCL32:	FSET?	PADLOCK,OPENBIT /FALSE
+	PRINTR	"The padlock is locked to the door."
+?CCL27:	EQUAL?	PRSA,V?MUNG \FALSE
+	PRINTR	"And, as we go into the next round, it's Padlock 1, Adventurer 0..."
+
+
+	.FUNCT	CAN-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"This is a rather normal tin can. It is large and is labelled ""Spam and Egz."""
+?CCL3:	EQUAL?	PRSA,V?OPEN \FALSE
+	PRINTR	"You certainly can't open it with your hands, and you don't seem to have found a can opener yet."
+
+
+	.FUNCT	LADDER-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	ZERO?	LADDER-EXTENDED /FALSE
+	PRINTR	"You can't possibly carry the ladder while it's extended."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL8
+	PRINTI	"It is a heavy-duty ladder built of sturdy aluminum tubing. It is currently "
+	ZERO?	LADDER-EXTENDED /?CCL11
+	PRINTR	"extended to its full length of about 8 meters, but could be collapsed to a shorter length for easier carrying."
+?CCL11:	PRINTR	"collapsed and is around two-and-a-half meters long, but if extended would obviously be much longer."
+?CCL8:	EQUAL?	PRSA,V?OPEN \?CCL13
+	ZERO?	LADDER-EXTENDED /?CCL16
+	PRINTR	"The ladder is already extended."
+?CCL16:	EQUAL?	HERE,STORAGE-EAST,STORAGE-WEST,BOOTH-2 /?CTR17
+	EQUAL?	HERE,UPPER-ELEVATOR,LOWER-ELEVATOR \?CCL18
+?CTR17:	PRINTR	"You can't extend the ladder in this tiny space!"
+?CCL18:	IN?	LADDER,ADVENTURER \?CCL22
+	PRINTR	"You couldn't possibly extend the ladder while you're holding it."
+?CCL22:	FSET	LADDER,TRYTAKEBIT
+	SET	'LADDER-EXTENDED,TRUE-VALUE
+	SET	'C-ELAPSED,36
+	PRINTR	"The ladder extends to a length of around eight meters."
+?CCL13:	EQUAL?	PRSA,V?CLOSE \?CCL24
+	ZERO?	LADDER-EXTENDED /?CCL27
+	SET	'C-ELAPSED,21
+	ZERO?	LADDER-FLAG /?CCL30
+	SET	'LADDER-FLAG,FALSE-VALUE
+	REMOVE	LADDER
+	PRINTR	"As the ladder shortens it plunges into the rift."
+?CCL30:	SET	'LADDER-EXTENDED,FALSE-VALUE
+	FCLEAR	LADDER,TRYTAKEBIT
+	PRINTR	"The ladder collapses to a length of around two-and-a-half meters."
+?CCL27:	PRINTR	"The ladder is already in its collapsed state."
+?CCL24:	EQUAL?	PRSA,V?ATTRACT,V?SPAN \?CCL32
+	EQUAL?	PRSI,RIFT \?CCL32
+	ZERO?	LADDER-FLAG /?CCL37
+	PRINTR	"The ladder already spans the rift."
+?CCL37:	ZERO?	LADDER-EXTENDED /?CCL40
+	SET	'LADDER-FLAG,TRUE-VALUE
+	FSET	LADDER,NDESCBIT
+	PRINTR	"The ladder swings out across the rift and comes to rest on the far edge, spanning the precipice."
+?CCL40:	REMOVE	LADDER
+	PRINTR	"The ladder, far too short to reach the other edge of the rift, plunges into the rift and is lost forever."
+?CCL32:	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP \FALSE
+	ZERO?	LADDER-FLAG /?CCL45
+	PRINTR	"You can't climb a horizontal ladder!"
+?CCL45:	IN?	LADDER,ADVENTURER \FALSE
+	PRINTR	"That would be a neat trick, considering that you're holding it."
+
+
+	.FUNCT	MESS-HALL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a large hall lined with tables and benches. An opening to the north leads back to the corridor. A door to the south is "
+	ICALL2	DDESC,KITCHEN-DOOR
+	PRINTR	". Next to the door is a small slot."
+
+
+	.FUNCT	KITCHEN-DOOR-F
+	EQUAL?	PRSA,V?OPEN \FALSE
+	PRINTR	"A light flashes ""Pleez yuuz kitcin akses kard."""
+
+
+	.FUNCT	DISPENSER-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"This wall-mounted unit contains an octagonal niche beneath a spout. "
+	IN?	CANTEEN,DISPENSER \?CND4
+	PRINTI	"A canteen is resting in the niche, its mouth lying just below the spout. "
+?CND4:	PRINTR	"Above the spout is a button. The machine is labelled ""Hii Prooteen Likwid Dispensur."""
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL7
+	ICALL1	NO-CLOSE
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSO,CANTEEN \?CCL12
+	MOVE	CANTEEN,DISPENSER
+	PRINTR	"The canteen fits snugly into the octagonal niche, its mouth resting just below the spout of the machine."
+?CCL12:	PRINTR	"It doesn't fit in the niche."
+
+
+	.FUNCT	HIGH-PROTEIN-F,X
+	EQUAL?	PRSA,V?EAT \?CCL3
+	IN?	CANTEEN,ADVENTURER /?CCL6
+	SET	'PRSO,CANTEEN
+	CALL1	NOT-HOLDING
+	RSTACK	
+?CCL6:	ZERO?	HUNGER-LEVEL \?CCL9
+	PRINT	NOT-HUNGRY
+	CRLF	
+	RTRUE	
+?CCL9:	REMOVE	HIGH-PROTEIN
+	SET	'C-ELAPSED,15
+	SET	'HUNGER-LEVEL,0
+	CALL	QUEUE,I-HUNGER-WARNINGS,3600
+	PUT	STACK,0,1
+	PRINTR	"Mmmm....that was good. It certainly quenched your thirst and satisfied your hunger."
+?CCL3:	EQUAL?	PRSA,V?POUR \FALSE
+	EQUAL?	PRSO,HIGH-PROTEIN \FALSE
+	IN?	CANTEEN,ADVENTURER /?CCL16
+	PRINTR	"Maybe if you were holding the canteen..."
+?CCL16:	ZERO?	PRSI \?CND14
+	SET	'PRSI,GROUND
+?CND14:	EQUAL?	PRSI,FLASK \?CCL20
+	CALL1	WORTHLESS-ACTION
+	RSTACK	
+?CCL20:	EQUAL?	PRSI,FUNNEL-HOLE \?CCL22
+	IN?	CHEMICAL-FLUID,FLASK \?CND23
+	SET	'X,TRUE-VALUE
+?CND23:	SET	'CHEMICAL-REQUIRED,10
+	REMOVE	HIGH-PROTEIN
+	ICALL	PERFORM,V?POUR,CHEMICAL-FLUID,FUNNEL-HOLE
+	ZERO?	X /TRUE
+	MOVE	CHEMICAL-FLUID,FLASK
+	RTRUE	
+?CCL22:	REMOVE	HIGH-PROTEIN
+	PRINTI	"The protein-rich fluid pours over the "
+	PRINTD	PRSI
+	PRINTR	" and then dries up."
+
+
+	.FUNCT	WORTHLESS-ACTION
+	PRINTR	"A worthless action -- and much too difficult for a poorly written program like this one to handle."
+
+
+	.FUNCT	LONG-HALL-F
+	PRINTI	"You walk down the long, featureless hallway for a long time. Finally, you see "
+	SET	'C-ELAPSED,160
+	EQUAL?	HERE,CORRIDOR-JUNCTION \?CCL3
+	PRINTI	"some doorways ahead..."
+	CRLF	
+	CRLF	
+	RETURN	DORM-CORRIDOR
+?CCL3:	PRINTI	"an intersection ahead..."
+	CRLF	
+	CRLF	
+	RETURN	CORRIDOR-JUNCTION
+
+
+	.FUNCT	ADMIN-CORRIDOR-S-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	FSET?	KEY,INVISIBLE \FALSE
+	RANDOM	100
+	LESS?	20,STACK /FALSE
+	PRINTR	"You catch, out of the corner of your eye, a glint of light from the direction of the floor."
+
+
+	.FUNCT	CREVICE-F
+	EQUAL?	PRSA,V?REACH \?CCL3
+	PRINTR	"The crevice is too narrow to reach into."
+?CCL3:	EQUAL?	PRSA,V?SEARCH,V?EXAMINE,V?LOOK-INSIDE \FALSE
+	FSET?	KEY,TOUCHBIT \?CCL8
+	PRINTR	"Nothing there but bunches of dust."
+?CCL8:	FCLEAR	KEY,INVISIBLE
+	PRINTR	"Lying at the bottom of the narrow crack, partly covered by layers of dust, is a shiny steel key!"
+
+
+	.FUNCT	KEY-F
+	EQUAL?	PRSA,V?MOVE,V?ZATTRACT,V?TAKE \?CCL3
+	FSET?	KEY,TOUCHBIT /?CCL3
+	EQUAL?	PRSI,PLIERS \?CCL8
+	PRINTR	"These are heavy-duty pliers, too large to reach into this narrow crack."
+?CCL8:	EQUAL?	PRSI,MAGNET \?CCL10
+	ICALL	PERFORM,V?ATTRACT,MAGNET,KEY
+	RTRUE	
+?CCL10:	ZERO?	PRSI /?CCL12
+	PRINTR	"Nice try."
+?CCL12:	PRINTR	"Either the crevice is too narrow, or your fingers are too large."
+?CCL3:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSI,CREVICE \FALSE
+	PRINTR	"And you wonder why you're still only an Ensign Seventh Class?"
+
+
+	.FUNCT	ADMIN-CORRIDOR-F,RARG
+	ZERO?	LADDER-FLAG /?CCL3
+	EQUAL?	RARG,M-ENTER \?CCL3
+	MOVE	LADDER,HERE
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The hallway, in fact the entire building, has been rent apart here, presumably by seismic upheaval. You can see the sky through the severed roof above, and the ground is thick with rubble. To the north is a gaping rift, at least eight meters across and thirty meters deep. "
+	ZERO?	LADDER-FLAG /?CND8
+	PRINTI	"A metal ladder spans the rift. "
+?CND8:	PRINTR	"A wide doorway, labelled ""Sistumz Moniturz,"" leads west."
+
+
+	.FUNCT	ADMIN-CORRIDOR-N-F,RARG
+	ZERO?	LADDER-FLAG /?CCL3
+	EQUAL?	RARG,M-ENTER \?CCL3
+	MOVE	LADDER,HERE
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The corridor ends here. Portals lead west, north, and east. Signs above these portals read, respectively, ""Administraativ Awfisiz,"" ""Tranzportaashun Suplii,"" and ""Plan Ruum."" To the south is a wide rift"
+	ZERO?	LADDER-FLAG /?CND8
+	PRINTI	", spanned by a metal ladder,"
+?CND8:	PRINTR	" separating this area from the rest of the building."
+
+
+	.FUNCT	LADDER-EXIT-F
+	ZERO?	LADDER-FLAG /?CCL3
+	SET	'C-ELAPSED,33
+	PRINTI	"You slowly make your way across the swaying ladder. You can see sharp, pointy rocks at the bottom of the rift, far below..."
+	CRLF	
+	CRLF	
+	EQUAL?	HERE,ADMIN-CORRIDOR-N \?CCL6
+	RETURN	ADMIN-CORRIDOR
+?CCL6:	RETURN	ADMIN-CORRIDOR-N
+?CCL3:	PRINTI	"The rift is too wide to jump across."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RIFT-F
+	EQUAL?	PRSA,V?LEAP \?CCL3
+	CALL2	JIGS-UP,STR?148
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUT \?CCL5
+	EQUAL?	RIFT,PRSI \?CCL5
+	EQUAL?	PRSO,LASER \?CND8
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+?CND8:	REMOVE	PRSO
+	EQUAL?	PRSO,SCRUB-BRUSH \?CCL12
+	PRINTR	"You watch with tremendous satisfaction as the brush is lost forever."
+?CCL12:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" sails gracefully into the rift."
+?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINTR	"The rift is at least eight meters wide and more than thirty meters deep. The bottom is covered with sharp and nasty rocks."
+
+
+	.FUNCT	SYSTEMS-MONITORS-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a large room filled with tables full of strange equipment. "
+	CALL1	DESCRIBE-MONITORS
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-MONITORS
+	PRINTI	"The far wall is filled with a number of monitors. Of these, the ones labelled "
+	ZERO?	DEFENSE-FIXED /?CND1
+	PRINTI	"PLANATEREE DEFENS, "
+?CND1:	ZERO?	COURSE-CONTROL-FIXED /?CND3
+	PRINTI	"PLANATEREE KORS KUNTROOL, "
+?CND3:	ZERO?	COMM-FIXED /?CND5
+	PRINTI	"KUMUUNIKAASHUNZ, "
+?CND5:	PRINTI	"LIIBREREE, REEAKTURZ, and LIIF SUPORT are green, but the one"
+	ZERO?	DEFENSE-FIXED /?CCL8
+	ZERO?	COURSE-CONTROL-FIXED /?CCL8
+	ZERO?	COMM-FIXED \?CND7
+?CCL8:	PRINTC	115
+?CND7:	PRINTI	" labelled "
+	ZERO?	DEFENSE-FIXED \?CND12
+	PRINTI	"PLANATEREE DEFENS, "
+?CND12:	ZERO?	COURSE-CONTROL-FIXED \?CND14
+	PRINTI	"PLANATEREE KORS KUNTROOL, "
+?CND14:	ZERO?	COMM-FIXED \?CND16
+	PRINTI	"KUMUUNIKAASHUNZ, "
+?CND16:	ZERO?	DEFENSE-FIXED /?CCL19
+	ZERO?	COURSE-CONTROL-FIXED /?CCL19
+	ZERO?	COMM-FIXED \?CND18
+?CCL19:	PRINTI	"and "
+?CND18:	PRINTI	"PRAJEKT KUNTROOL indicate"
+	ZERO?	DEFENSE-FIXED /?CND23
+	ZERO?	COURSE-CONTROL-FIXED /?CND23
+	ZERO?	COMM-FIXED /?CND23
+	PRINTC	115
+?CND23:	PRINTR	" a malfunctioning condition."
+
+
+	.FUNCT	DESK-F
+	EQUAL?	PRSA,V?EXAMINE,V?SEARCH \FALSE
+	PRINTI	"The desk has a drawer which is currently "
+	ICALL2	DDESC,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	OIL-CAN-F
+	EQUAL?	PRSA,V?POUR \?CCL3
+	ZERO?	PRSI \?CND4
+	SET	'PRSI,GROUND
+?CND4:	ICALL	PERFORM,V?OIL,PRSI
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EMPTY \FALSE
+	PRINTR	"Pretty much impossible -- you could only do that one drop at a time."
+
+
+	.FUNCT	CARTON-F
+	EQUAL?	PRSA,V?CLOSE \FALSE
+	ICALL1	NO-CLOSE
+	RTRUE	
+
+
+	.FUNCT	CRACKED-BOARD-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	ICALL1	EXAMINE-BOARD
+	PRINTR	" This one looks as though it's been dropped."
+
+
+	.FUNCT	GOOD-BEDISTOR-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	ZERO?	COURSE-CONTROL-FIXED /FALSE
+	CALL2	JIGS-UP,STR?163
+	RSTACK	
+
+
+	.FUNCT	REACTOR-ELEVATOR-DOOR-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINTR	"It won't budge."
+
+
+	.FUNCT	I-REACTOR-DOOR-CLOSE
+	CALL	QUEUE,I-REACTOR-DOOR-CLOSE,-1
+	PUT	STACK,0,1
+	EQUAL?	HERE,REACTOR-ELEVATOR /FALSE
+	FCLEAR	REACTOR-ELEVATOR-DOOR,OPENBIT
+	EQUAL?	HERE,REACTOR-CONTROL \?CND4
+	CRLF	
+	PRINTI	"The elevator door slides shut."
+	CRLF	
+?CND4:	CALL2	INT,I-REACTOR-DOOR-CLOSE
+	PUT	STACK,0,0
+	RTRUE	
+
+
+	.FUNCT	FLASK-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The flask has a wide mouth and looks large enough to hold one or two liters. It is made of glass, or perhaps some tough plastic"
+	IN?	CHEMICAL-FLUID,FLASK \?CND4
+	PRINTI	", and is filled with a milky white fluid"
+?CND4:	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL7
+	ICALL1	NO-CLOSE
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?EMPTY \FALSE
+	IN?	CHEMICAL-FLUID,FLASK \FALSE
+	EQUAL?	PRSI,FUNNEL-HOLE \FALSE
+	ICALL	PERFORM,V?POUR,CHEMICAL-FLUID,FUNNEL-HOLE
+	RTRUE	
+
+
+	.FUNCT	MAGNET-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	CALL	QUEUE,I-MAGNET,-1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?PUT-ON,V?ATTRACT \FALSE
+	EQUAL?	PRSO,MAGNET \?CCL8
+	IN?	MAGNET,ADVENTURER /?CCL8
+	CALL1	NOT-HOLDING
+	RSTACK	
+?CCL8:	FSET?	KEY,TOUCHBIT \?CCL12
+	EQUAL?	PRSI,KEY \?CCL12
+	MOVE	KEY,ADVENTURER
+	PRINTR	"The key jumps against the ends of the magnet and sticks there. Proud of your feat, you remove the key from the magnet."
+?CCL12:	FSET?	KEY,TOUCHBIT /FALSE
+	EQUAL?	PRSI,KEY,CREVICE \FALSE
+	MOVE	KEY,ADVENTURER
+	FCLEAR	KEY,INVISIBLE
+	FCLEAR	KEY,TRYTAKEBIT
+	FSET	KEY,TOUCHBIT
+	PRINTR	"With a spray of dust and a loud clank, a piece of metal leaps from the crevice and affixes itself to the magnet. It is a steel key! With a tug, you remove the key from the magnet."
+
+
+	.FUNCT	I-MAGNET
+	IN?	MAGNET,ADVENTURER \?CCL3
+	CALL2	HELD?,KITCHEN-CARD
+	ZERO?	STACK /?CCL6
+	FSET	KITCHEN-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL6:	CALL2	HELD?,SHUTTLE-CARD
+	ZERO?	STACK /?CCL8
+	FSET	SHUTTLE-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL8:	CALL2	HELD?,TELEPORTATION-CARD
+	ZERO?	STACK /?CCL10
+	FSET	TELEPORTATION-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL10:	CALL2	HELD?,UPPER-ELEVATOR-CARD
+	ZERO?	STACK /?CCL12
+	FSET	UPPER-ELEVATOR-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL12:	CALL2	HELD?,LOWER-ELEVATOR-CARD
+	ZERO?	STACK /?CCL14
+	FSET	LOWER-ELEVATOR-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL14:	CALL2	HELD?,MINI-CARD
+	ZERO?	STACK /?CCL16
+	FSET	MINI-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL16:	CALL2	HELD?,ID-CARD
+	ZERO?	STACK /FALSE
+	FSET	ID-CARD,SCRAMBLEDBIT
+	RFALSE	
+?CCL3:	CALL2	INT,I-MAGNET
+	PUT	STACK,0,0
+	RFALSE	
+
+
+	.FUNCT	MACHINE-SHOP-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This room is probably some sort of machine shop filled with a variety of unusual machines. Doorways lead north, east, and west.
+
+Standing against the rear wall is a large dispensing machine with a spout. "
+	EQUAL?	SPOUT-PLACED,GROUND /?CND4
+	PRINTI	"Sitting under the spout is "
+	FSET?	SPOUT-PLACED,VOWELBIT \?CCL8
+	PRINTI	"an "
+	JUMP	?CND6
+?CCL8:	PRINTI	"a "
+?CND6:	PRINTD	SPOUT-PLACED
+	PRINTI	". "
+?CND4:	PRINTR	"The dispenser is lined with brightly colored buttons. The first four buttons, labelled ""KUULINTS 1 - 4"", are colored red, blue, green, and yellow. The next three buttons, labelled ""KATALISTS 1 - 3"", are colored gray, brown, and black. The last two buttons are both white. One of these is square and says ""BAAS."" The other white button is round and says ""ASID."""
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	EQUAL?	SPOUT-PLACED,GROUND \FALSE
+	IN?	FLOYD,HERE \FALSE
+	FSET?	FLOYD,RLANDBIT \FALSE
+	RANDOM	100
+	LESS?	15,STACK /FALSE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTR	"Floyd pushes one of the dispenser buttons. Fluid pours from the spout and splashes across the floor. Floyd jumps up and down, giggling."
+
+
+	.FUNCT	CHEMICAL-DISPENSER-F
+	EQUAL?	PRSA,V?PUT-UNDER \FALSE
+	EQUAL?	PRSI,CHEMICAL-DISPENSER \FALSE
+	EQUAL?	SPOUT-PLACED,GROUND \?CCL8
+	MOVE	PRSO,HERE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is now sitting under the spout."
+	CRLF	
+	SET	'SPOUT-PLACED,PRSO
+	RETURN	SPOUT-PLACED
+?CCL8:	PRINTI	"The "
+	PRINTD	SPOUT-PLACED
+	PRINTR	" is already resting under the spout."
+
+
+	.FUNCT	CHEM-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	FSET?	CHEMICAL-DISPENSER,MUNGEDBIT \?CCL6
+	PRINTR	"The machine coughs a few times, but nothing else happens."
+?CCL6:	EQUAL?	SPOUT-PLACED,FLASK \?CCL8
+	IN?	CHEMICAL-FLUID,FLASK \?CCL11
+	PRINTR	"Another dose of the chemical fluid pours out of the spout, splashes over the already-full flask, spills onto the floor, and dries up."
+?CCL11:	MOVE	CHEMICAL-FLUID,FLASK
+	PRINTI	"The flask fills with some "
+	GETP	PRSO,P?C-MOVE >CHEMICAL-FLAG
+	GETP	PRSO,P?C-MOVE
+	GET	COLOR-LTBL,STACK
+	PRINT	STACK
+	PRINTR	" chemical fluid. The fluid gradually turns milky white."
+?CCL8:	EQUAL?	SPOUT-PLACED,CANTEEN \?CCL13
+	FSET?	CANTEEN,OPENBIT \?CCL13
+	PRINTR	"Chemical fluid gushes from the spout. Unfortunately, the mouth of the canteen is very narrow, and the fluid just splashes over it."
+?CCL13:	PRINTI	"Some sort of chemical fluid pours out of the spout, spills all over the "
+	PRINTD	SPOUT-PLACED
+	PRINTI	", and dries up."
+	CRLF	
+	EQUAL?	PRSO,ROUND-WHITE-BUTTON,SQUARE-WHITE-BUTTON \TRUE
+	FSET?	SPOUT-PLACED,ACIDBIT /?CCL17
+	FSET?	SPOUT-PLACED,MUNGBIT \TRUE
+?CCL17:	SET	'CHEMICAL-FLAG,9
+	ICALL	PERFORM,V?POUR,CHEMICAL-FLUID,SPOUT-PLACED
+	RTRUE	
+
+
+	.FUNCT	FLOYD-F,X,N
+	EQUAL?	FLOYD,WINNER \?CCL3
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	EQUAL?	PRSA,V?GIVE \?CCL6
+	EQUAL?	PRSI,ME \?CCL6
+	SET	'WINNER,ADVENTURER
+	ICALL	PERFORM,V?ASK-FOR,FLOYD,PRSO
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?SGIVE \?CCL10
+	EQUAL?	PRSO,ME \?CCL10
+	SET	'WINNER,ADVENTURER
+	ICALL	PERFORM,V?ASK-FOR,FLOYD,PRSI
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?WALK \?CCL14
+	EQUAL?	HERE,REPAIR-ROOM \?CCL17
+	EQUAL?	PRSO,P?NORTH,P?IN \?CCL17
+	ICALL1	FLOYD-THROUGH-HOLE
+	JUMP	?CND15
+?CCL17:	EQUAL?	HERE,BIO-LOCK-EAST \?CCL21
+	EQUAL?	PRSO,P?EAST \?CCL21
+	ICALL1	FLOYD-INTO-LAB
+	JUMP	?CND15
+?CCL21:	EQUAL?	HERE,RADIATION-LOCK-EAST \?CCL25
+	EQUAL?	PRSO,P?EAST \?CCL25
+	PRINTI	"""After you."""
+	CRLF	
+	JUMP	?CND15
+?CCL25:	PRINTI	"Floyd looks slightly embarrassed. ""You know me and my sense of direction."" Then he looks up at you with wide, trusting eyes. ""Tell Floyd a story?"""
+	CRLF	
+?CND15:	CALL1	FLUSH
+	ZERO?	STACK /TRUE
+	RETURN	2
+?CCL14:	EQUAL?	PRSA,V?THROUGH \?CCL33
+	ICALL1	FLOYDS-FAMOUS-DOOR-ROUTINE
+	CALL1	FLUSH
+	ZERO?	STACK /TRUE
+	RETURN	2
+?CCL33:	EQUAL?	PRSA,V?TAKE \?CCL39
+	EQUAL?	PRSO,GOOD-BOARD \?CCL39
+	IN?	GOOD-BOARD,ROBOT-HOLE /?CCL44
+	PRINTI	"Floyd looks half-bored and half-annoyed. "
+	PRINTR	"Floyd already did that. How about some leap-frogger?"""
+?CCL44:	ZERO?	BOARD-REPORTED /?CCL46
+	MOVE	GOOD-BOARD,ADVENTURER
+	FCLEAR	GOOD-BOARD,NDESCBIT
+	FSET	GOOD-BOARD,TAKEBIT
+	SET	'C-ELAPSED,22
+	PRINTR	"Floyd shrugs. ""If you say so."" He vanishes for a few minutes, and returns holding the fromitz board. It seems to be in good shape. He tosses it toward you, and you just manage to catch it before it smashes."
+?CCL46:	PRINTR	"""Huh?"" asks Floyd. ""What fromitz board?"""
+?CCL39:	EQUAL?	PRSA,V?FOLLOW \?CCL48
+	EQUAL?	PRSO,ME \?CCL48
+	PRINTR	"""Okay!"""
+?CCL48:	EQUAL?	PRSA,V?HELLO \?CCL52
+	SET	'WINNER,ADVENTURER
+	ICALL	PERFORM,V?HELLO,FLOYD
+	RTRUE	
+?CCL52:	EQUAL?	PRSA,V?DROP \?CCL54
+	IN?	PRSO,FLOYD \?CCL57
+	RANDOM	100
+	LESS?	50,STACK /?CCL60
+	MOVE	PRSO,HERE
+	PRINTI	"Floyd shrugs and drops the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL60:	PRINTI	"Floyd clutches the "
+	PRINTD	PRSO
+	PRINTR	" even more tightly. ""Floyd won't,"" he says defiantly."
+?CCL57:	CALL1	FLOYD-NOT-HAVE
+	RSTACK	
+?CCL54:	EQUAL?	PRSA,V?READ \?CCL62
+	EQUAL?	PRSO,DIARY \?CCL62
+	SET	'WINNER,ADVENTURER
+	ICALL	PERFORM,V?SHOW,DIARY,FLOYD
+	SET	'WINNER,FLOYD
+	RTRUE	
+?CCL62:	PRINTI	"Floyd whines, ""Enough talking! Let's play Hider-and-Seeker."""
+	CRLF	
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL68
+	PRINTR	"Huh?"
+?CCL68:	EQUAL?	PRSA,V?REACH,V?LOOK-INSIDE \?CCL70
+	ICALL	PERFORM,V?OPEN,FLOYD
+	RTRUE	
+?CCL70:	FSET?	FLOYD,RLANDBIT \?CCL72
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	EQUAL?	PRSA,V?LAMP-ON \?CCL75
+	PRINTR	"He's already been activated."
+?CCL75:	EQUAL?	PRSA,V?LAMP-OFF \?CCL77
+	FCLEAR	FLOYD,RLANDBIT
+	FCLEAR	FLOYD,ACTORBIT
+	CALL2	INT,I-FLOYD
+	PUT	STACK,0,0
+	PRINTI	"Floyd, shocked by this betrayal from his newfound friend, whimpers and keels over"
+	FIRST?	FLOYD \?CCL80
+	PRINTI	", dropping what he was carrying."
+	CRLF	
+	JUMP	?CND78
+?CCL80:	PRINTC	46
+	CRLF	
+?CND78:	FIRST?	FLOYD >X /?PRG82
+?PRG82:	ZERO?	X /TRUE
+	NEXT?	X >N /?BOGUS87
+?BOGUS87:	MOVE	X,HERE
+	SET	'X,N
+	JUMP	?PRG82
+?CCL77:	EQUAL?	PRSA,V?EXAMINE \?CCL89
+	PRINTR	"From its design, the robot seems to be of the multi-purpose sort. It is slightly cross-eyed, and its mechanical mouth forms a lopsided grin."
+?CCL89:	EQUAL?	PRSA,V?KISS \?CCL91
+	PRINTR	"You receive a painful electric shock."
+?CCL91:	EQUAL?	PRSA,V?SCOLD \?CCL93
+	PRINTR	"Floyd looks defensive. ""What did Floyd do wrong?"""
+?CCL93:	EQUAL?	PRSA,V?PLAY-WITH \?CCL95
+	SET	'C-ELAPSED,30
+	CALL	QUEUE,I-FLOYD,1
+	PUT	STACK,0,1
+	PRINTR	"You play with Floyd for several centichrons until you drop to the floor, exhausted. Floyd pokes at you gleefully. ""C'mon! Let's play some more!"""
+?CCL95:	EQUAL?	PRSA,V?LISTEN \?CCL97
+	PRINTR	"Floyd is babbling about this and that."
+?CCL97:	EQUAL?	PRSA,V?TAKE \?CCL99
+	EQUAL?	PRSO,FLOYD \?CCL99
+	PRINTR	"You manage to lift Floyd a few inches off the ground, but he is too heavy and you drop him suddenly. Floyd gives a surprised squeal and moves a respectable distance away."
+?CCL99:	EQUAL?	PRSA,V?MUNG,V?ATTACK \?CCL103
+	PRINTR	"Floyd starts dashing around the room. ""Oh boy oh boy oh boy! I haven't played Chase and Tag for years! You be It! Nah, nah!"""
+?CCL103:	EQUAL?	PRSA,V?SHAKE,V?KICK \?CCL105
+	PRINTR	"""Why you do that?"" Floyd whines. ""I think a wire now shaken loose."" He goes off into a corner and sulks."
+?CCL105:	EQUAL?	PRSA,V?TALK,V?HELLO \?CCL107
+	PRINTR	"""Hi!"" Floyd grins and bounces up and down."
+?CCL107:	EQUAL?	PRSA,V?OPEN,V?SCRUB,V?SEARCH \?CCL109
+	PRINTR	"Floyd giggles and pushes you away. ""You're tickling Floyd!"" He clutches at his side panels, laughing hysterically. Oil drops stream from his eyes."
+?CCL109:	EQUAL?	PRSA,V?PUT,V?GIVE \?CCL111
+	EQUAL?	FLOYD,PRSI \?CCL111
+	EQUAL?	PRSO,LAZARUS-PART \?CCL116
+	REMOVE	FLOYD
+	SET	'FLOYD-FOLLOW,FALSE-VALUE
+	MOVE	LAZARUS-PART,HERE
+	CALL	QUEUE,I-FLOYD,40
+	PUT	STACK,0,1
+	PRINTR	"At first, Floyd is all grins because of your gift. Then, he realizes what it is, begins weeping, drops the breastplate, and rushes out of the room."
+?CCL116:	EQUAL?	PRSO,RED-GOO,GREEN-GOO,BROWN-GOO \?CCL118
+	PRINTR	"Floyd looks at the goo. ""Yech! Got any Number Seven Heavy Grease?"""
+?CCL118:	FIRST?	FLOYD /?CTR119
+	RANDOM	100
+	LESS?	25,STACK /?CCL120
+?CTR119:	MOVE	PRSO,HERE
+	PRINTI	"Floyd examines the "
+	PRINTD	PRSO
+	PRINTI	", shrugs, and drops "
+	EQUAL?	PRSO,PLIERS \?CCL125
+	PRINTR	"them."
+?CCL125:	PRINTR	"it."
+?CCL120:	MOVE	PRSO,FLOYD
+	PRINTR	"""Neat!"" exclaims Floyd. He thanks you profusely."
+?CCL111:	EQUAL?	PRSA,V?SHOW \?CCL127
+	EQUAL?	FLOYD,PRSI \?CCL127
+	EQUAL?	PRSO,PRINT-OUT \?CCL132
+	ZERO?	COMPUTER-FLAG \?CCL132
+	CALL1	COMPUTER-ACTION
+	RSTACK	
+?CCL132:	EQUAL?	PRSO,ROBOT-HOLE \?CCL136
+	CALL1	FLOYD-THROUGH-HOLE
+	RSTACK	
+?CCL136:	EQUAL?	PRSO,DIARY \?CCL138
+	PRINTR	"Floyd looks at you earnestly. ""Floyd would never read someone else's diary!"" He stops and thinks a moment, then adds, ""Well, at least not a friend's diary."""
+?CCL138:	EQUAL?	HERE,REC-AREA \?CCL140
+	EQUAL?	PRSO,PSEUDO-OBJECT \?CCL140
+	PRINTR	"""Too intellectual for Floyd. Any paddleball sets around?"""
+?CCL140:	EQUAL?	PRSO,ID-CARD,SHUTTLE-CARD /?CTR143
+	EQUAL?	PRSO,KITCHEN-CARD,UPPER-ELEVATOR-CARD \?CCL144
+?CTR143:	PRINTR	"Floyd scratches his head. ""Aren't those things usually blue?"""
+?CCL144:	EQUAL?	PRSO,LOWER-ELEVATOR-CARD \?CCL148
+	ZERO?	CARD-REVEALED \?CCL148
+	SET	'CARD-REVEALED,TRUE-VALUE
+	PRINTR	"""I've got one just like that!"" says Floyd. He looks through several of his compartments, then glances at you suspiciously."
+?CCL148:	PRINTI	"Floyd looks over the "
+	PRINTD	PRSO
+	PRINTR	". ""Can you play any games with it?"" he asks."
+?CCL127:	EQUAL?	PRSA,V?RUB \?CCL152
+	PRINTR	"Floyd gives a contented sigh."
+?CCL152:	EQUAL?	PRSA,V?SMELL \?CCL154
+	PRINTR	"Floyd smells faintly of ozone and light machine oil."
+?CCL154:	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	IN?	PRSI,FLOYD \?CCL159
+	MOVE	PRSI,ADVENTURER
+	PRINTI	"""Okay,"" says Floyd, handing you the "
+	PRINTD	PRSI
+	PRINTR	", ""but only because you're Floyd's best friend."""
+?CCL159:	CALL1	FLOYD-NOT-HAVE
+	RSTACK	
+?CCL72:	EQUAL?	PRSA,V?LAMP-ON \?CCL162
+	ZERO?	FLOYD-INTRODUCED /?CCL165
+	CALL	QUEUE,I-FLOYD,-1
+	PUT	STACK,0,1
+	RTRUE	
+?CCL165:	CALL	QUEUE,I-FLOYD,25
+	PUT	STACK,0,1
+	PRINTI	"Nothing happens."
+	CRLF	
+	ZERO?	FLOYD-SCORE-FLAG \TRUE
+	SET	'FLOYD-SCORE-FLAG,TRUE-VALUE
+	ADD	SCORE,2 >SCORE
+	RTRUE	
+?CCL162:	EQUAL?	PRSA,V?LAMP-OFF \?CCL169
+	PRINTR	"The robot doesn't seem to be on."
+?CCL169:	EQUAL?	PRSA,V?EXAMINE \?CCL171
+	PRINTR	"The deactivated robot is leaning against the wall, its head lolling to the side. It is short, and seems to be equipped for general-purpose work. It has apparently been turned off."
+?CCL171:	EQUAL?	PRSA,V?OPEN,V?SEARCH \FALSE
+	ZERO?	CARD-REVEALED \?CCL176
+	ZERO?	CARD-STOLEN \?CCL176
+	FCLEAR	LOWER-ELEVATOR-CARD,INVISIBLE
+	MOVE	LOWER-ELEVATOR-CARD,ADVENTURER
+	ICALL2	SCORE-OBJ,LOWER-ELEVATOR-CARD
+	SET	'CARD-STOLEN,TRUE-VALUE
+	PRINTR	"In one of the robot's compartments you find and take a magnetic-striped card embossed ""Loowur Elavaatur Akses Kard."""
+?CCL176:	PRINTR	"Your search discovers nothing in the robot's compartments except a single crayon which you leave where you found it."
+
+
+	.FUNCT	FLOYDS-FAMOUS-DOOR-ROUTINE
+	EQUAL?	PRSO,ROBOT-HOLE \?CCL3
+	CALL1	FLOYD-THROUGH-HOLE
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,BIO-DOOR-EAST \?CCL5
+	CALL1	FLOYD-INTO-LAB
+	RSTACK	
+?CCL5:	FSET?	PRSO,DOORBIT \?CCL7
+	PRINTR	"""You go first,"" says Floyd."
+?CCL7:	PRINTR	"Floyd scratches his head and looks at you."
+
+
+	.FUNCT	FLUSH
+	ZERO?	P-CONT /FALSE
+	SET	'P-CONT,FALSE-VALUE
+	CRLF	
+	PRINTR	"Floyd scratches his head and looks at you. ""What else were you saying to Floyd? I can't remember."""
+
+
+	.FUNCT	FLOYD-INTO-LAB
+	ZERO?	FLOYD-WAITING /?CCL3
+	PRINTR	"""As soon as you open the door, dummy."""
+?CCL3:	PRINTR	"""Are you kidding? Floyd not going in THERE without a good reason."""
+
+
+	.FUNCT	FLOYD-NOT-HAVE
+	PRINTR	"""Floyd does not one of those have!"""
+
+
+	.FUNCT	FLOYD-COMES-ALIVE,FOO
+	IN?	FLOYD,HERE \?CND1
+	ZERO?	FLOYD-REACTIVATED /?CCL5
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"Floyd jumps to his feet, hopping mad. ""Why you turn Floyd off?"" he asks accusingly."
+	CRLF	
+	JUMP	?CND1
+?CCL5:	SET	'FLOYD-INTRODUCED,TRUE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	CRLF	
+	PRINTI	"Suddenly, the robot comes to life and its head starts swivelling about. It notices you and bounds over. ""Hi! I'm B-19-7, but to everyperson I'm called Floyd. Are you a doctor-person or a planner-person? "
+	FIRST?	ADVENTURER >FOO \?CND6
+	PRINTI	"That's a nice "
+	PRINTD	FOO
+	PRINTI	" you are having there. "
+?CND6:	PRINTI	"Let's play Hider-and-Seeker you with me."""
+	CRLF	
+?CND1:	FSET	FLOYD,RLANDBIT
+	FSET	FLOYD,ACTORBIT
+	FSET	FLOYD,TOUCHBIT
+	SET	'FLOYD-REACTIVATED,TRUE-VALUE
+	RETURN	FLOYD-REACTIVATED
+
+
+	.FUNCT	I-FLOYD
+	CALL	QUEUE,I-FLOYD,-1
+	PUT	STACK,0,1
+	FSET?	FLOYD,RLANDBIT /?CCL3
+	FSET	FLOYD,ACTORBIT
+	ICALL1	FLOYD-COMES-ALIVE
+	JUMP	?CND1
+?CCL3:	IN?	FLOYD,HERE \?CCL5
+	ZERO?	FLOYD-INTRODUCED \?CCL8
+	SET	'FLOYD-INTRODUCED,TRUE-VALUE
+	CRLF	
+	PRINTI	"The robot, now apparently active, notices you enter. ""Hi,"" he says. ""I'm Floyd!"""
+	CRLF	
+	JUMP	?CND1
+?CCL8:	ZERO?	FLOYD-FOLLOW /?CCL10
+	FSET?	HERE,FLOYDBIT \?CCL10
+	RANDOM	100
+	LESS?	6,STACK /?CCL10
+	REMOVE	FLOYD
+	SET	'FLOYD-FOLLOW,FALSE-VALUE
+	CRLF	
+	PRINTI	"Floyd says ""Floyd going exploring. See you later."" He glides out of the room."
+	CRLF	
+	JUMP	?CND1
+?CCL10:	SET	'FLOYD-FOLLOW,TRUE-VALUE
+	RANDOM	100
+	LESS?	40,STACK /?CND1
+	ZERO?	FLOYD-SPOKE \?CND1
+	PRINTI	"Floyd "
+	CALL2	PICK-ONE,FLOYDISMS
+	PRINT	STACK
+	PRINTR	"."
+?CCL5:	ZERO?	FLOYD-FOLLOW /?CCL20
+	RANDOM	100
+	LESS?	80,STACK /?CCL20
+	IN?	LAZARUS-PART,HERE \?CND23
+	SET	'FLOYD-FOLLOW,FALSE-VALUE
+	CRLF	
+	PRINTR	"Floyd starts to follow you but notices the Lazarus breast plate. He sniffs and leaves the room."
+?CND23:	MOVE	FLOYD,HERE
+	PRINTI	"Floyd follows you."
+	CRLF	
+	ICALL1	KLUDGE
+	JUMP	?CND1
+?CCL20:	SET	'FLOYD-FOLLOW,FALSE-VALUE
+	EQUAL?	HERE,BOOTH-1,BOOTH-2,BOOTH-3 \?CCL27
+	MOVE	FLOYD,HERE
+	ZERO?	FLOYD-INTRODUCED \?CND28
+	CRLF	
+	ICALL1	CALL-ME-FLOYD
+	RTRUE	
+?CND28:	CRLF	
+	PRINTI	"Floyd scampers into the booth. ""Oooo, this is a tiny room,"" he remarks."
+	CRLF	
+	JUMP	?CND1
+?CCL27:	EQUAL?	HERE,BIO-LOCK-EAST,BIO-LOCK-WEST \?PRD33
+	ZERO?	FLOYD-GAVE-UP /?CTR30
+?PRD33:	EQUAL?	HERE,RADIATION-LOCK-EAST,RADIATION-LOCK-WEST \?CCL31
+?CTR30:	MOVE	FLOYD,HERE
+	ZERO?	FLOYD-INTRODUCED \?CND36
+	CRLF	
+	ICALL1	CALL-ME-FLOYD
+	RTRUE	
+?CND36:	CRLF	
+	PRINTI	"Floyd glides after you. ""Is this...is this a squash court?"" he asks."
+	CRLF	
+	JUMP	?CND1
+?CCL31:	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST /?CTR38
+	EQUAL?	HERE,BETTY-CONTROL-EAST,BETTY-CONTROL-WEST /?CTR38
+	EQUAL?	HERE,UPPER-ELEVATOR,LOWER-ELEVATOR,REACTOR-ELEVATOR /?CTR38
+	EQUAL?	HERE,MESS-HALL \?CCL39
+	IN?	FLOYD,KITCHEN \?CCL39
+?CTR38:	MOVE	FLOYD,HERE
+	ZERO?	FLOYD-INTRODUCED \?CND46
+	CRLF	
+	ICALL1	CALL-ME-FLOYD
+	RTRUE	
+?CND46:	CRLF	
+	PRINTI	"Floyd bounces into the "
+	EQUAL?	HERE,UPPER-ELEVATOR,LOWER-ELEVATOR,REACTOR-ELEVATOR \?CCL50
+	PRINTI	"elevator"
+	JUMP	?CND48
+?CCL50:	EQUAL?	HERE,MESS-HALL \?CCL52
+	PRINTI	"room"
+	JUMP	?CND48
+?CCL52:	PRINTI	"cabin"
+?CND48:	PRINTI	". ""Hey, wait for Floyd!"" he yells, smiling broadly."
+	CRLF	
+	JUMP	?CND1
+?CCL39:	EQUAL?	HERE,MINI-BOOTH \?CCL54
+	MOVE	FLOYD,HERE
+	ZERO?	FLOYD-INTRODUCED \?CND55
+	CRLF	
+	ICALL1	CALL-ME-FLOYD
+	RTRUE	
+?CND55:	CRLF	
+	PRINTI	"""Hi,"" whispers Floyd, tiptoeing in. ""Are we going to teleport into the computer like Achilles always used to do?"""
+	CRLF	
+	JUMP	?CND1
+?CCL54:	RANDOM	100
+	LESS?	30,STACK /?CND1
+	EQUAL?	HERE,INFIRMARY \?CND58
+	ZERO?	LAZARUS-FLAG \FALSE
+?CND58:	MOVE	FLOYD,HERE
+	ZERO?	FLOYD-INTRODUCED /?CCL64
+	RANDOM	100
+	LESS?	15,STACK /?CCL67
+	IN?	ADVENTURER,BED /?CCL67
+	CRLF	
+	PRINTI	"Floyd rushes into the room and barrels into you. ""Oops, sorry,"" he says. ""Floyd not looking at where he was going to."""
+	CRLF	
+	JUMP	?CND65
+?CCL67:	CRLF	
+	PRINTI	"Floyd bounds into the room. ""Floyd here now!"" he cries."
+	CRLF	
+?CND65:	ICALL1	KLUDGE
+	JUMP	?CND1
+?CCL64:	CRLF	
+	ICALL1	CALL-ME-FLOYD
+?CND1:	SET	'FLOYD-SPOKE,FALSE-VALUE
+	RETURN	FLOYD-SPOKE
+
+
+	.FUNCT	CALL-ME-FLOYD
+	SET	'FLOYD-INTRODUCED,TRUE-VALUE
+	PRINTR	"The robot you were fiddling with in the Robot Shop bounds into the room. ""Hi!"" he says, with a wide and friendly smile. ""You turn Floyd on? Be Floyd's friend, yes?"""
+
+
+	.FUNCT	KLUDGE
+	EQUAL?	HERE,REPAIR-ROOM \?CCL3
+	ZERO?	ACHILLES-FLAG \?CCL3
+	SET	'ACHILLES-FLAG,TRUE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTR	"Floyd points at the fallen robot. ""That's Achilles. He was in charge of repairing machinery. He repaired Floyd once. I never liked him much; he wasn't friendly like other robots. Looks like he fell down the stairs. He always had trouble with one of his feet working right. A Planner-person once told me that's why they named him Achilles."""
+?CCL3:	EQUAL?	HERE,COMPUTER-ROOM \FALSE
+	ZERO?	COMPUTER-FLAG \FALSE
+	CALL1	COMPUTER-ACTION
+	RSTACK	
+
+
+	.FUNCT	DEAD-FLOYD-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"You turn to look at Floyd, but a tremendous sense of loss overcomes you, and you turn away."
+?CCL3:	EQUAL?	PRSA,V?LAMP-ON \?CCL5
+	PRINTR	"As you touch Floyd's on-off switch, it falls off in your hands."
+?CCL5:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	PRINTR	"I'm afraid that Floyd has already been turned off, permanently, and gone to that great robot shop in the sky."
+
+
+	.FUNCT	ELEVATOR-LOBBY-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a wide, brightly lit lobby. A blue metal door to the north is "
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CCL6
+	EQUAL?	UPPER-ELEVATOR-UP,FALSE-VALUE \?CCL6
+	PRINTI	"open"
+	JUMP	?CND4
+?CCL6:	PRINTI	"closed"
+?CND4:	PRINTI	" and a larger red metal door to the south is "
+	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL11
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL11
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CND14
+	EQUAL?	UPPER-ELEVATOR-UP,FALSE-VALUE \?CND14
+	PRINTI	"also "
+?CND14:	PRINTI	"open"
+	JUMP	?CND9
+?CCL11:	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CCL19
+	EQUAL?	UPPER-ELEVATOR-UP,TRUE-VALUE \?CND18
+?CCL19:	PRINTI	"also "
+?CND18:	PRINTI	"closed"
+?CND9:	PRINTR	". Beside the blue door is a blue button, and beside the red door is a red button. A corridor leads west. To the east is a small room about the size of a telephone booth."
+
+
+	.FUNCT	UPPER-ELEVATOR-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You have entered a tiny room with a sliding door to the south which is "
+	ICALL2	DDESC,UPPER-ELEVATOR-DOOR
+	PRINTR	". A control panel contains an Up button, a Down button, and a narrow slot."
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT /FALSE
+	RANDOM	100
+	LESS?	10,STACK /FALSE
+	PRINTR	"Some innocuous Hawaiian music oozes from the elevator's intercom."
+
+
+	.FUNCT	LOWER-ELEVATOR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a medium-sized room with a door to the north which is "
+	ICALL2	DDESC,LOWER-ELEVATOR-DOOR
+	PRINTR	". A control panel contains an Up button, a Down button, and a narrow slot."
+
+
+	.FUNCT	ELEVATOR-ENTER-F
+	EQUAL?	PRSO,P?NORTH \?CCL3
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CCL6
+	EQUAL?	UPPER-ELEVATOR-UP,FALSE-VALUE \?CCL6
+	RETURN	UPPER-ELEVATOR
+?CCL6:	ICALL1	DOOR-CLOSED
+	RFALSE	
+?CCL3:	EQUAL?	PRSO,P?SOUTH \FALSE
+	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL13
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL13
+	RETURN	LOWER-ELEVATOR
+?CCL13:	ICALL1	DOOR-CLOSED
+	RFALSE	
+
+
+	.FUNCT	ELEVATOR-EXIT-F
+	EQUAL?	HERE,UPPER-ELEVATOR \?CCL3
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CCL6
+	EQUAL?	UPPER-ELEVATOR-UP,TRUE-VALUE \?CCL9
+	RETURN	TOWER-CORE
+?CCL9:	RETURN	ELEVATOR-LOBBY
+?CCL6:	ICALL1	DOOR-CLOSED
+	RFALSE	
+?CCL3:	EQUAL?	HERE,LOWER-ELEVATOR \FALSE
+	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL14
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL17
+	RETURN	ELEVATOR-LOBBY
+?CCL17:	RETURN	WAITING-AREA
+?CCL14:	ICALL1	DOOR-CLOSED
+	RFALSE	
+
+
+	.FUNCT	UPPER-ELEVATOR-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	PRINTR	"It won't budge."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	UPPER-ELEVATOR-DOOR,OPENBIT \?CCL11
+	PRINTR	"You can't close it yourself."
+?CCL11:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	LOWER-ELEVATOR-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL6
+	EQUAL?	HERE,ELEVATOR-LOBBY \?CCL6
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL11
+	EQUAL?	HERE,WAITING-AREA \?CCL11
+	EQUAL?	LOWER-ELEVATOR-UP,FALSE-VALUE \?CCL11
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL11:	PRINTR	"It won't budge."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL19
+	EQUAL?	HERE,ELEVATOR-LOBBY \?CCL19
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL19
+	PRINTR	"You can't close it yourself."
+?CCL19:	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL24
+	EQUAL?	HERE,WAITING-AREA \?CCL24
+	EQUAL?	LOWER-ELEVATOR-UP,FALSE-VALUE \?CCL24
+	PRINTR	"You can't close it yourself."
+?CCL24:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	DOOR-CLOSED
+	PRINTR	"The door is closed."
+
+
+	.FUNCT	BLUE-ELEVATOR-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	EQUAL?	UPPER-ELEVATOR-UP,TRUE-VALUE \FALSE
+	CALL2	INT,I-UPPER-ELEVATOR-ARRIVE
+	GET	STACK,C-ENABLED?
+	EQUAL?	STACK,1 \?CCL8
+	PRINTR	"Patience, patience..."
+?CCL8:	RANDOM	20
+	ADD	STACK,40
+	CALL	QUEUE,I-UPPER-ELEVATOR-ARRIVE,STACK
+	PUT	STACK,0,1
+	PRINTR	"You hear a faint whirring noise from behind the blue door."
+
+
+	.FUNCT	RED-ELEVATOR-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	EQUAL?	LOWER-ELEVATOR-UP,FALSE-VALUE \FALSE
+	CALL2	INT,I-LOWER-ELEVATOR-ARRIVE
+	GET	STACK,C-ENABLED?
+	EQUAL?	STACK,1 \?CCL8
+	PRINTR	"Patience, patience..."
+?CCL8:	RANDOM	40
+	ADD	STACK,80
+	CALL	QUEUE,I-LOWER-ELEVATOR-ARRIVE,STACK
+	PUT	STACK,0,1
+	PRINTR	"The red door begins vibrating a bit."
+
+
+	.FUNCT	I-UPPER-ELEVATOR-ARRIVE
+	FSET	UPPER-ELEVATOR-DOOR,OPENBIT
+	SET	'UPPER-ELEVATOR-UP,FALSE-VALUE
+	CALL2	INT,I-UPPER-ELEVATOR-ARRIVE
+	PUT	STACK,0,0
+	EQUAL?	HERE,ELEVATOR-LOBBY \FALSE
+	CRLF	
+	PRINTR	"The door at the north end of the room slides open."
+
+
+	.FUNCT	I-LOWER-ELEVATOR-ARRIVE
+	FSET	LOWER-ELEVATOR-DOOR,OPENBIT
+	SET	'LOWER-ELEVATOR-UP,TRUE-VALUE
+	CALL2	INT,I-LOWER-ELEVATOR-ARRIVE
+	PUT	STACK,0,0
+	EQUAL?	HERE,ELEVATOR-LOBBY \FALSE
+	CRLF	
+	PRINTR	"The door at the south end of the room slides open."
+
+
+	.FUNCT	ELEVATOR-BUTTON-F
+	EQUAL?	PRSA,V?PUSH-UP \?CCL3
+	EQUAL?	HERE,LOWER-ELEVATOR \?CCL6
+	EQUAL?	LOWER-ELEVATOR-UP,FALSE-VALUE \?CCL6
+	EQUAL?	LOWER-ELEVATOR-ON,TRUE-VALUE \?CCL6
+	EQUAL?	ELEVATOR-IN-TRANSIT,FALSE-VALUE \?CCL6
+	PRINT	ELEVATOR-STARTS
+	CRLF	
+	FCLEAR	LOWER-ELEVATOR-DOOR,OPENBIT
+	SET	'ELEVATOR-IN-TRANSIT,TRUE-VALUE
+	CALL	QUEUE,I-LOWER-ELEVATOR-TRIP,100
+	PUT	STACK,0,1
+	RTRUE	
+?CCL6:	EQUAL?	HERE,UPPER-ELEVATOR \?CCL12
+	EQUAL?	UPPER-ELEVATOR-UP,FALSE-VALUE \?CCL12
+	EQUAL?	UPPER-ELEVATOR-ON,TRUE-VALUE \?CCL12
+	EQUAL?	ELEVATOR-IN-TRANSIT,FALSE-VALUE \?CCL12
+	PRINT	ELEVATOR-STARTS
+	CRLF	
+	FCLEAR	UPPER-ELEVATOR-DOOR,OPENBIT
+	SET	'ELEVATOR-IN-TRANSIT,TRUE-VALUE
+	CALL	QUEUE,I-UPPER-ELEVATOR-TRIP,50
+	PUT	STACK,0,1
+	RTRUE	
+?CCL12:	PRINTR	"Nothing happens."
+?CCL3:	EQUAL?	PRSA,V?PUSH-DOWN \?CCL18
+	EQUAL?	HERE,LOWER-ELEVATOR \?CCL21
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL21
+	EQUAL?	LOWER-ELEVATOR-ON,TRUE-VALUE \?CCL21
+	EQUAL?	ELEVATOR-IN-TRANSIT,FALSE-VALUE \?CCL21
+	PRINT	ELEVATOR-STARTS
+	CRLF	
+	FCLEAR	LOWER-ELEVATOR-DOOR,OPENBIT
+	SET	'ELEVATOR-IN-TRANSIT,TRUE-VALUE
+	CALL	QUEUE,I-LOWER-ELEVATOR-TRIP,100
+	PUT	STACK,0,1
+	RTRUE	
+?CCL21:	EQUAL?	HERE,UPPER-ELEVATOR \?CCL27
+	EQUAL?	UPPER-ELEVATOR-UP,TRUE-VALUE \?CCL27
+	EQUAL?	UPPER-ELEVATOR-ON,TRUE-VALUE \?CCL27
+	EQUAL?	ELEVATOR-IN-TRANSIT,FALSE-VALUE \?CCL27
+	PRINT	ELEVATOR-STARTS
+	CRLF	
+	FCLEAR	UPPER-ELEVATOR-DOOR,OPENBIT
+	SET	'ELEVATOR-IN-TRANSIT,TRUE-VALUE
+	CALL	QUEUE,I-UPPER-ELEVATOR-TRIP,50
+	PUT	STACK,0,1
+	RTRUE	
+?CCL27:	PRINTR	"Nothing happens."
+?CCL18:	EQUAL?	PRSA,V?PUSH \FALSE
+	PRINTR	"You must specify whether you want to push the Up button or the Down button."
+
+
+	.FUNCT	I-TURNOFF-UPPER-ELEVATOR
+	ZERO?	ELEVATOR-IN-TRANSIT /?CCL3
+	CALL	QUEUE,I-TURNOFF-UPPER-ELEVATOR,120
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	SET	'UPPER-ELEVATOR-ON,FALSE-VALUE
+	EQUAL?	HERE,UPPER-ELEVATOR \FALSE
+	CRLF	
+	PRINT	ELEVATOR-LIGHT-OFF
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	I-TURNOFF-LOWER-ELEVATOR
+	ZERO?	ELEVATOR-IN-TRANSIT /?CCL3
+	CALL	QUEUE,I-TURNOFF-LOWER-ELEVATOR,120
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	SET	'LOWER-ELEVATOR-ON,FALSE-VALUE
+	EQUAL?	HERE,LOWER-ELEVATOR \FALSE
+	CRLF	
+	PRINT	ELEVATOR-LIGHT-OFF
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	I-UPPER-ELEVATOR-TRIP
+	EQUAL?	UPPER-ELEVATOR-UP,TRUE-VALUE \?CCL3
+	SET	'UPPER-ELEVATOR-UP,FALSE-VALUE
+	SET	'ELEVATOR-IN-TRANSIT,FALSE-VALUE
+	FSET	UPPER-ELEVATOR-DOOR,OPENBIT
+	CRLF	
+	CALL1	ELEVATOR-DOOR-OPENS
+	RSTACK	
+?CCL3:	SET	'UPPER-ELEVATOR-UP,TRUE-VALUE
+	SET	'ELEVATOR-IN-TRANSIT,FALSE-VALUE
+	FSET	UPPER-ELEVATOR-DOOR,OPENBIT
+	CRLF	
+	CALL1	ELEVATOR-DOOR-OPENS
+	RSTACK	
+
+
+	.FUNCT	I-LOWER-ELEVATOR-TRIP
+	EQUAL?	LOWER-ELEVATOR-UP,TRUE-VALUE \?CCL3
+	SET	'LOWER-ELEVATOR-UP,FALSE-VALUE
+	SET	'ELEVATOR-IN-TRANSIT,FALSE-VALUE
+	FSET	LOWER-ELEVATOR-DOOR,OPENBIT
+	CRLF	
+	CALL1	ELEVATOR-DOOR-OPENS
+	RSTACK	
+?CCL3:	SET	'LOWER-ELEVATOR-UP,TRUE-VALUE
+	SET	'ELEVATOR-IN-TRANSIT,FALSE-VALUE
+	FSET	LOWER-ELEVATOR-DOOR,OPENBIT
+	CRLF	
+	CALL1	ELEVATOR-DOOR-OPENS
+	RSTACK	
+
+
+	.FUNCT	ELEVATOR-DOOR-OPENS
+	PRINTR	"The elevator door slides open."
+
+
+	.FUNCT	HELICOPTER-OBJECT-F
+	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?THROUGH \?CCL3
+	EQUAL?	HERE,HELIPAD \?CCL6
+	CALL2	GOTO,HELICOPTER
+	RSTACK	
+?CCL6:	PRINTR	"You're in it!"
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK,V?DROP,V?EXIT \?CCL8
+	EQUAL?	HERE,HELICOPTER \?CCL11
+	CALL2	GOTO,HELIPAD
+	RSTACK	
+?CCL11:	PRINTR	"You're not in it!"
+?CCL8:	EQUAL?	PRSA,V?FLY \FALSE
+	EQUAL?	HERE,HELICOPTER \?CCL16
+	PRINTR	"The controls seem to be locked."
+?CCL16:	PRINTR	"You're not even in it!"
+
+
+	.FUNCT	COMM-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This is a small room with no windows. The sole exit is southwest. Two wide consoles fill either end of the room; thick cables lead up into the ceiling.
+
+The console on the left side of the room is labelled ""Reeseev Staashun."" A bright red light, labelled ""Tranzmishun Reeseevd"", is blinking rapidly. Next to the light is a glowing button marked ""Mesij Plaabak.""
+
+The console on the right side of the room is labelled ""Send Staashun."" A screen on the console displays a message. Next to the screen is a flashing sign which says "
+	ZERO?	COMM-SHUTDOWN /?CCL6
+	ICALL1	SHUTDOWN
+	JUMP	?CND4
+?CCL6:	ZERO?	COMM-FIXED /?CCL8
+	PRINTI	"""Tranzmishun in pragres."""
+	JUMP	?CND4
+?CCL8:	PRINTI	"""Malfunkshun in Sendeeng Kuulint Sistum."""
+?CND4:	PRINTI	" Next to this console is an enunciator"
+	ZERO?	COMM-FIXED \?CCL10
+	ZERO?	COMM-SHUTDOWN /?CND9
+?CCL10:	PRINTI	" whose lights are all dark"
+?CND9:	PRINTR	". On the console next to the enunciator panel is a funnel-shaped hole labelled ""Kuulint Sistum Manyuuwul Oovuriid."""
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	ZERO?	COMM-FIXED \FALSE
+	ZERO?	COMM-SHUTDOWN \FALSE
+	ZERO?	JUST-ENTERED /FALSE
+	CALL	QUEUE,I-UNENTER,-1
+	PUT	STACK,0,1
+	SET	'JUST-ENTERED,FALSE-VALUE
+	PRINTI	"A "
+	EQUAL?	CHEMICAL-REQUIRED,1 \?CCL21
+	PRINTI	"red"
+	JUMP	?CND19
+?CCL21:	EQUAL?	CHEMICAL-REQUIRED,2 \?CCL23
+	PRINTI	"blue"
+	JUMP	?CND19
+?CCL23:	EQUAL?	CHEMICAL-REQUIRED,3 \?CCL25
+	PRINTI	"green"
+	JUMP	?CND19
+?CCL25:	EQUAL?	CHEMICAL-REQUIRED,4 \?CCL27
+	PRINTI	"yellow"
+	JUMP	?CND19
+?CCL27:	EQUAL?	CHEMICAL-REQUIRED,5 \?CCL29
+	PRINTI	"gray"
+	JUMP	?CND19
+?CCL29:	EQUAL?	CHEMICAL-REQUIRED,6 \?CCL31
+	PRINTI	"brown"
+	JUMP	?CND19
+?CCL31:	EQUAL?	CHEMICAL-REQUIRED,7 \?CND19
+	PRINTI	"black"
+?CND19:	PRINTR	" colored light is flashing on the enunciator panel."
+
+
+	.FUNCT	I-UNENTER
+	EQUAL?	HERE,COMM-ROOM /FALSE
+	SET	'JUST-ENTERED,TRUE-VALUE
+	CALL2	INT,I-UNENTER
+	PUT	STACK,0,0
+	RFALSE	
+
+
+	.FUNCT	PLAYBACK-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	PRINTR	"A voice fills the room ... the voice of the Feinstein's communications officer! ""Stellar Patrol Ship Feinstein to planetside ... Please respond on frequency 48.5 ... SPS Feinstein to planetside ... Please come in ..."" After a pause you hear the officer, in a quieter voice, say ""Admiral, no response on any of the standard frequen..."" The sentence is cut short by the sound of an explosion and a loud burst of static, followed by silence."
+
+
+	.FUNCT	RANDOMIZE-ORDER,COUNT,TEMP,?TMP1,?TMP2
+?PRG1:	IGRTR?	'COUNT,7 /?REP2
+	PUT	ORDER-LTBL,COUNT,FALSE-VALUE
+	JUMP	?PRG1
+?REP2:	SET	'COUNT,0
+?PRG6:	IGRTR?	'COUNT,7 /TRUE
+	RANDOM	7 >TEMP
+	GET	ORDER-LTBL,1 >?TMP2
+	GET	ORDER-LTBL,2 >?TMP1
+	GET	ORDER-LTBL,3
+	EQUAL?	TEMP,?TMP2,?TMP1,STACK /?CTR12
+	GET	ORDER-LTBL,4 >?TMP2
+	GET	ORDER-LTBL,5 >?TMP1
+	GET	ORDER-LTBL,6
+	EQUAL?	TEMP,?TMP2,?TMP1,STACK /?CTR12
+	GET	ORDER-LTBL,7
+	EQUAL?	TEMP,STACK \?CCL13
+?CTR12:	DEC	'COUNT
+	JUMP	?PRG6
+?CCL13:	PUT	ORDER-LTBL,COUNT,TEMP
+	JUMP	?PRG6
+
+
+	.FUNCT	CHEMICAL-FLUID-F
+	EQUAL?	PRSA,V?EAT \?CCL3
+	CALL2	JIGS-UP,STR?210
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUT \?CCL5
+	EQUAL?	PRSI,CHEMICAL-FLUID \?CCL5
+	ICALL	PERFORM,V?PUT,PRSO,FLASK
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?POUR,V?THROW \?CCL9
+	EQUAL?	PRSI,RAT-ANT,TROLL /?CTR8
+	EQUAL?	PRSI,GRUE,TRIFFID \?CCL9
+?CTR8:	CALL2	HELD?,FLASK
+	ZERO?	STACK \?CND14
+	PRINTR	"You're not holding the flask."
+?CND14:	REMOVE	CHEMICAL-FLUID
+	PRINTR	"The mutants lap up the chemical, howling with delight. One immediately grows three new mouths."
+?CCL9:	EQUAL?	PRSA,V?POUR,V?PUT \FALSE
+	CALL2	HELD?,FLASK
+	ZERO?	STACK \?CCL20
+	PRINTR	"You're not holding the flask."
+?CCL20:	EQUAL?	PRSI,CANTEEN \?CND18
+	ICALL1	WORTHLESS-ACTION
+	RTRUE	
+?CND18:	REMOVE	CHEMICAL-FLUID
+	ZERO?	PRSI \?CND22
+	SET	'PRSI,GROUND
+?CND22:	EQUAL?	PRSI,FUNNEL-HOLE \?CCL26
+	EQUAL?	CHEMICAL-FLAG,CHEMICAL-REQUIRED \?CCL29
+	GET	ORDER-LTBL,STEPS-TO-GO >CHEMICAL-REQUIRED
+	DEC	'STEPS-TO-GO
+	PRINTI	"The liquid disappears into the hole. The lights on the enunciator panel blink rapidly "
+	ZERO?	STEPS-TO-GO \?CCL32
+	SET	'COMM-FIXED,TRUE-VALUE
+	ADD	SCORE,6 >SCORE
+	SET	'CHEMICAL-REQUIRED,10
+	PRINTR	"and then go dark. The coolant system warning light goes off, and another flashes, indicating that the help message is now being sent."
+?CCL32:	PRINTI	"and all go off except one, a "
+	EQUAL?	CHEMICAL-REQUIRED,1 \?CCL35
+	PRINTI	"red"
+	JUMP	?CND33
+?CCL35:	EQUAL?	CHEMICAL-REQUIRED,2 \?CCL37
+	PRINTI	"blue"
+	JUMP	?CND33
+?CCL37:	EQUAL?	CHEMICAL-REQUIRED,3 \?CCL39
+	PRINTI	"green"
+	JUMP	?CND33
+?CCL39:	EQUAL?	CHEMICAL-REQUIRED,4 \?CCL41
+	PRINTI	"yellow"
+	JUMP	?CND33
+?CCL41:	EQUAL?	CHEMICAL-REQUIRED,5 \?CCL43
+	PRINTI	"gray"
+	JUMP	?CND33
+?CCL43:	EQUAL?	CHEMICAL-REQUIRED,6 \?CCL45
+	PRINTI	"brown"
+	JUMP	?CND33
+?CCL45:	EQUAL?	CHEMICAL-REQUIRED,7 \?CND33
+	PRINTI	"black"
+?CND33:	PRINTR	" light."
+?CCL29:	SET	'COMM-SHUTDOWN,TRUE-VALUE
+	ZERO?	COMM-FIXED /?CND47
+	SUB	SCORE,6 >SCORE
+	SET	'COMM-FIXED,FALSE-VALUE
+?CND47:	PRINTI	"An alarm sounds briefly, and a sign flashes "
+	ICALL1	SHUTDOWN
+	PRINTR	" A moment later, the lights in the room dim and the send console shuts down."
+?CCL26:	EQUAL?	CHEMICAL-FLAG,8,9 \?CCL50
+	FSET?	PRSI,ACIDBIT \?CCL53
+	EQUAL?	PRSI,SPOUT-PLACED \?CND54
+	SET	'SPOUT-PLACED,GROUND
+?CND54:	REMOVE	PRSI
+	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTI	" dissolves right before your eyes!"
+	EQUAL?	PRSI,BAD-BEDISTOR \?CCL58
+	FSET?	BAD-BEDISTOR,TOUCHBIT /?CCL58
+	FSET	CUBE,MUNGEDBIT
+	ICALL1	CUBE-SEEMS
+	JUMP	?CND56
+?CCL58:	EQUAL?	PRSI,GOOD-BEDISTOR \?CND56
+	ZERO?	COURSE-CONTROL-FIXED /?CND56
+	FSET	CUBE,MUNGEDBIT
+	SUB	SCORE,6 >SCORE
+	SET	'COURSE-CONTROL-FIXED,FALSE-VALUE
+	ICALL1	CUBE-SEEMS
+?CND56:	CRLF	
+	RTRUE	
+?CCL53:	EQUAL?	CREVICE,PRSI \?CCL65
+	FSET?	KEY,TOUCHBIT /?CCL65
+	FSET?	KEY,INVISIBLE \?CCL70
+	PRINTI	"A puff of smoke rises from the crevice."
+	CRLF	
+	JUMP	?CND68
+?CCL70:	PRINTI	"Although the chemical has no effect on the crevice, it does seem to have dissolved the key that was lying in it."
+	CRLF	
+?CND68:	REMOVE	KEY
+	FSET	KEY,TOUCHBIT
+	FCLEAR	KEY,INVISIBLE
+	RTRUE	
+?CCL65:	EQUAL?	PRSI,HIGH-PROTEIN,MEDICINE \?CCL72
+	CALL2	JIGS-UP,STR?211
+	RSTACK	
+?CCL72:	EQUAL?	PRSI,ME,ADVENTURER,HANDS \?CCL74
+	CALL2	JIGS-UP,STR?212
+	RSTACK	
+?CCL74:	EQUAL?	PRSI,FLOYD \?CCL76
+	FSET?	FLOYD,RLANDBIT \?CCL76
+	PRINTR	"Floyd yelps. ""Hey, cut it out! That stuff burns!"""
+?CCL76:	EQUAL?	PRSI,MICROBE \?CCL80
+	PRINTI	"The microbe writhes in pain. "
+	CALL1	STRIP-DISSOLVES
+	RSTACK	
+?CCL80:	EQUAL?	PRSI,STRIP,RELAY \?CCL82
+	CALL1	STRIP-DISSOLVES
+	RSTACK	
+?CCL82:	FSET?	PRSI,MUNGBIT \?CCL84
+	FSET	PRSI,MUNGEDBIT
+	EQUAL?	PRSI,CHRONOMETER \?CND85
+	SET	'MUNGED-TIME,INTERNAL-MOVES
+?CND85:	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTI	" seems to undergo some damage as a result of your action."
+	CRLF	
+	EQUAL?	PRSI,CUBE \TRUE
+	ZERO?	COURSE-CONTROL-FIXED /TRUE
+	SET	'COURSE-CONTROL-FIXED,FALSE-VALUE
+	REMOVE	GOOD-BEDISTOR
+	SUB	SCORE,6 >SCORE
+	PRINTR	"The bedistor also happens to dissolve."
+?CCL84:	CALL1	CHEMICAL-POURS
+	RSTACK	
+?CCL50:	CALL1	CHEMICAL-POURS
+	RSTACK	
+
+
+	.FUNCT	CUBE-SEEMS
+	PRINTI	" Unfortunately, the cube seems to undergo some damage as well."
+	RTRUE	
+
+
+	.FUNCT	CHEMICAL-POURS
+	PRINTI	"The chemical pours all over the "
+	PRINTD	PRSI
+	PRINTR	", making quite a mess."
+
+
+	.FUNCT	STRIP-DISSOLVES
+	CALL2	JIGS-UP,STR?213
+	RSTACK	
+
+
+	.FUNCT	SHUTDOWN
+	PRINTI	"""Kuulint Sistum Imbalins Kritikul -- Shuteeng Down Awl Sistumz."""
+	RTRUE	
+
+
+	.FUNCT	COMM-SETUP
+	RANDOM	3
+	ADD	2,STACK >OLD-SHOTS
+	RANDOM	10
+	ADD	20,STACK >NEW-SHOTS
+	ICALL1	RANDOMIZE-ORDER
+	RANDOM	2
+	ADD	1,STACK >STEPS-TO-GO
+	ADD	STEPS-TO-GO,1
+	GET	ORDER-LTBL,STACK >CHEMICAL-REQUIRED
+	RETURN	CHEMICAL-REQUIRED
+
+
+	.FUNCT	OTHER-ELEVATOR-ENTER-F
+	FSET?	LOWER-ELEVATOR-DOOR,OPENBIT \?CCL3
+	ZERO?	LOWER-ELEVATOR-UP \?CCL3
+	RETURN	LOWER-ELEVATOR
+?CCL3:	ICALL1	DOOR-CLOSED
+	ICALL2	THIS-IS-IT,LOWER-ELEVATOR-DOOR
+	RFALSE	
+
+
+	.FUNCT	KALAMONTEE-PLATFORM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a wide, flat strip of concrete which continues westward. "
+	ZERO?	BETTY-AT-KALAMONTEE /?CCL6
+	ZERO?	ALFIE-AT-KALAMONTEE /?CCL6
+	PRINTI	"Open shuttle cars lie on the north and south sides of the platform. "
+	JUMP	?CND4
+?CCL6:	ZERO?	BETTY-AT-KALAMONTEE /?CCL10
+	PRINTI	"An open shuttle car lies to the north. "
+	JUMP	?CND4
+?CCL10:	ZERO?	ALFIE-AT-KALAMONTEE /?CND4
+	PRINTI	"A large transport of some sort lies to the south, its open door beckoning you to enter. "
+?CND4:	PRINTR	"A faded sign on the wall reads ""Shutul Platform -- Kalamontee Staashun."""
+
+	.ENDI
diff --git a/compone.zil b/compone.zil
new file mode 100644
index 0000000..0627930
--- /dev/null
+++ b/compone.zil
@@ -0,0 +1,3228 @@
+"COMPONE for PLANETFALL 
+(C) COPYRIGHT 1983 INFOCOM, INC. ALL RIGHTS RESERVED
+
+This file contains all the rooms, objects, and actions associated
+with Complex One / the Western Complex / the Kalamontee Compleks."
+
+<ROOM UNDERWATER
+      (LOC ROOMS)
+      (DESC "Underwater")
+      (LDESC
+"You are momentarily disoriented as you enter the turbulent waters.
+Currents buffet you against the sharp rocks of an underwater
+cliff. A dim light filters down from above.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"    35
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (UP TO CRAG)
+      (DOWN TO UNDERWATER)
+      (WEST TO UNDERWATER)
+      (NORTH TO UNDERWATER)
+      (SOUTH TO UNDERWATER)
+      (FLAGS ONBIT RWATERBIT)
+      (ACTION UNDERWATER-F)>
+
+<GLOBAL DROWN 0> ;"you die if you return to Underwater or stay too long"
+
+<ROUTINE UNDERWATER-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-END>
+		<SETG DROWN <+ ,DROWN 1>>
+		<COND (<G? ,DROWN 2>
+		       <JIGS-UP
+"A mighty undertow drags you across some underwater obstructions.">)>)>>
+
+<ROOM CRAG
+      (LOC ROOMS)
+      (DESC "Crag")
+      (LDESC
+"You have reached a cleft in the cliff wall where the island rises from the
+water. The edge of the cleft displays recently exposed rock where it collapsed
+under the weight of the escape pod. About two meters below, turbulent waters
+swirl against sharp rocks. A small structure clings to the face of the cliff
+about eight meters above you. Even an out-of-shape Ensign Seventh Class could
+probably climb up to it.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"10  ;"UP"    40
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN TO UNDERWATER)
+      (UP TO BALCONY)
+      (FLAGS ONBIT RLANDBIT)
+      (VALUE 3)
+      (GLOBAL CLIFF OCEAN)
+      (PSEUDO "STRUCTURE" STRUCTURE-PSEUDO "CLEFT" CLEFT-PSEUDO)
+      (ACTION CRAG-F)>
+
+<ROUTINE CRAG-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<SETG DROWN 3>)>>
+
+<ROOM BALCONY
+      (LOC ROOMS)
+      (DESC "Balcony")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"25  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN PER WATER-LEVEL-F)
+      (UP TO WINDING-STAIR)
+      (FLAGS ONBIT RLANDBIT)
+      (PSEUDO "PLAQUE" PLAQUE-PSEUDO)
+      (GLOBAL CLIFF OCEAN STAIRS WINDOW)
+      (ACTION BALCONY-F)>
+
+<ROUTINE BALCONY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is an octagonal room, half carved into and half built out from the cliff
+wall. Through the shattered windows which ring the outer wall you can see
+ocean to the horizon. A weathered metal plaque with barely readable lettering
+rests below the windows. The language seems to be a corrupt form of
+Galalingua. A steep stairway, roughly cut into the face of the cliff, leads
+upward. ">
+		<COND (<EQUAL? ,DAY 1>
+		       <TELL
+"A rocky crag can be seen about eight meters below." CR>)
+		      (<EQUAL? ,DAY 2>
+		       <TELL
+"The ocean waters swirl below. The crag where you landed yesterday is
+now underwater!" CR>)
+		      (<EQUAL? ,DAY 3>
+		       <TELL
+"Ocean waters are lapping at the base of the balcony." CR>)>)>>
+
+<ROOM WINDING-STAIR
+      (LOC ROOMS)
+      (DESC "Winding Stair")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"15  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN PER WATER-LEVEL-F)
+      (UP TO COURTYARD)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL CLIFF STAIRS)
+      (ACTION WINDING-STAIR-F)>
+
+<ROUTINE WINDING-STAIR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The middle of a long, steep stairway carved into the face of a cliff.">
+		<COND (<EQUAL? ,DAY 4>
+		       <TELL
+" You hear the lapping of water from below.">)
+		      (<EQUAL? ,DAY 5>
+		       <TELL
+" You can see ocean water splashing against the steps below you.">)>
+		<CRLF>)>>
+
+<ROOM COURTYARD
+      (LOC ROOMS)
+      (DESC "Courtyard")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"15  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN TO WINDING-STAIR)
+      (SOUTH TO WINDING-STAIR)
+      (WEST TO WEST-WING)
+      (NORTH TO  PLAIN-HALL)
+      (FLAGS ONBIT RLANDBIT FLOYDBIT)
+      (GLOBAL STAIRS)
+      (PSEUDO "CASTLE" CASTLE-PSEUDO "RUBBLE" RUBBLE-PSEUDO)
+      (ACTION COURTYARD-F)>
+
+<ROUTINE COURTYARD-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in the courtyard of an ancient stone edifice, vaguely reminiscent of
+the castles you saw during your leave on Ramos Two. It has decayed to
+the point where it can probably be termed a ruin. Openings lead north and west,
+and a stairway downward is visible to the south. ">
+		<COND (<EQUAL? ,DAY 6 7>
+		       <TELL
+"From the direction of the stairway comes the sound of ocean surf.">)
+		      (<EQUAL? ,DAY 8>
+		       <TELL
+"Ocean water washes against the top few steps.">)>
+		<CRLF>)>>
+
+<ROUTINE WATER-LEVEL-F ()
+	 <COND (<EQUAL? ,HERE ,BALCONY>
+		<COND (<EQUAL? ,DAY 1> ,CRAG)
+		      (T ,UNDERWATER)>)
+	       (<EQUAL? ,HERE ,WINDING-STAIR>
+		<COND (<L? ,DAY 4> ,BALCONY)
+		      (T ,UNDERWATER)>)
+	       (<EQUAL? ,HERE ,COURTYARD>
+		<COND (<L? ,DAY 6> ,WINDING-STAIR)
+		      (T ,UNDERWATER)>)>>
+
+<ROOM WEST-WING
+      (LOC ROOMS)
+      (DESC "West Wing")
+      (LDESC
+"This was once the west wing of the castle, but the walls are now mostly
+rubble, allowing a view of the cliff and ocean below. Rubble blocks all exits
+save one, eastward to the courtyard.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO COURTYARD)
+      (DOWN SORRY "Certain death.")
+      (FLAGS ONBIT RLANDBIT FLOYDBIT)
+      (GLOBAL CLIFF OCEAN)
+      (PSEUDO "CASTLE" CASTLE-PSEUDO "RUBBLE" RUBBLE-PSEUDO)>
+
+<ROOM PLAIN-HALL
+      (LOC ROOMS)
+      (DESC "Plain Hall")
+      (LDESC
+"This is a featureless hall leading north and south. Although the hallway is
+old and dusty, the construction is of a much more modern style than the
+castle to the south. A similar hall branches off to the northeast.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"  25  ;"NORTH"  0>)
+      (SOUTH TO COURTYARD)
+      (NORTH TO REC-AREA)
+      (NE TO REC-CORRIDOR)
+      (FLAGS ONBIT RLANDBIT)>
+
+<ROOM REC-AREA
+      (LOC ROOMS)
+      (DESC "Rec Area")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO CONFERENCE-ROOM IF CONFERENCE-DOOR IS OPEN)
+      (SOUTH TO PLAIN-HALL)
+      (EAST TO REC-CORRIDOR)
+      (FLAGS ONBIT RLANDBIT FLOYDBIT)
+      (GLOBAL CONFERENCE-DOOR)
+      (PSEUDO "GAMES" GAMES-PSEUDO "TAPES" TAPES-PSEUDO)
+      (ACTION REC-AREA-F)>
+
+<GLOBAL DIAL-NUMBER 0>
+
+<GLOBAL NUMBER-NEEDED 0>
+
+<ROUTINE REC-AREA-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a recreational facility of some sort. Games and tapes are scattered
+about the room. Hallways head off to the east and south, and to the north is
+a door which is ">
+		<COND (<FSET? ,CONFERENCE-DOOR ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL
+"closed and locked. A dial on the door is currently set to "
+N ,DIAL-NUMBER>)>
+		<TELL "." CR>)>>
+
+<ROOM CONFERENCE-ROOM
+      (LOC ROOMS)
+      (DESC "Conference Room")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO REC-AREA IF CONFERENCE-DOOR IS OPEN)
+      (OUT TO REC-AREA IF CONFERENCE-DOOR IS OPEN)
+      (IN TO BOOTH-1)
+      (NORTH TO BOOTH-1)
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)
+      (GLOBAL CONFERENCE-DOOR TABLES)
+      (ACTION CONFERENCE-ROOM-F)>
+
+<ROUTINE CONFERENCE-ROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a fairly square room, almost filled by a round conference table.
+To the south is a door which is ">
+		<DDESC ,CONFERENCE-DOOR>
+		<TELL
+". To the north is a small room about the size of a phone booth." CR>)>>
+
+<OBJECT CONFERENCE-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION CONFERENCE-DOOR-F)>
+
+<OBJECT COMBINATION-DIAL
+	(LOC REC-AREA)
+	(DESC "combination dial")
+	(SYNONYM DIAL)
+	(ADJECTIVE COMBINATION)
+	(FLAGS MUNGBIT NDESCBIT)
+	(ACTION COMBINATION-DIAL-F)>
+
+<ROUTINE COMBINATION-DIAL-F ()
+	 <COND (<VERB? EXAMINE>
+	        <TELL
+"The dial can be turned to any number between 0 and 1000." CR>)
+	       (<AND <VERB? SET>
+		     <EQUAL? ,PRSI ,INTNUM>>
+		<COND (<FSET? ,COMBINATION-DIAL ,MUNGEDBIT>
+		       <TELL
+"The dial has somehow become fused and won't move." CR>)
+		      (<EQUAL? ,P-NUMBER ,DIAL-NUMBER>
+		       <TELL "That's what the dial is set to now!" CR>)
+		      (<EQUAL? ,P-NUMBER ,NUMBER-NEEDED>
+		       <SETG DIAL-NUMBER 0>
+		       <FSET ,CONFERENCE-DOOR ,OPENBIT>
+		       <TELL
+"The door swings open, and the dial resets to 0." CR>)
+		      (<G? ,P-NUMBER 1000>
+		       <TELL
+"The dial cannot be turned to a number that high." CR>)
+		      (T
+		       <SETG DIAL-NUMBER ,P-NUMBER>
+		       <TELL "The dial is now set to " N ,P-NUMBER "." CR>)>)>>
+
+<ROUTINE CONFERENCE-DOOR-F ()
+	<COND (<VERB? OPEN>
+	       <COND (<FSET? ,CONFERENCE-DOOR ,OPENBIT>
+		      <ALREADY-OPEN>)
+		     (T
+		      <COND (<EQUAL? ,HERE ,REC-AREA>
+			     <TELL
+"The door is locked. You probably have to turn the dial to some number to
+open it." CR>)
+			    (T
+			     <TELL
+"The door seems to be locked from the other side." CR>)>)>)
+	      (<VERB? CLOSE>
+	       <COND (<FSET? ,CONFERENCE-DOOR ,OPENBIT>
+		      <FCLEAR ,CONFERENCE-DOOR ,OPENBIT>
+		      <TELL
+"The door closes and you hear a click as it locks." CR>)
+		     (T
+		      <IS-CLOSED>)>)>>
+
+<ROOM BOOTH-1
+      (LOC ROOMS)
+      (DESC "Booth 1")
+      (LDESC
+"This is a tiny room with a large \"1\" painted on the wall. A panel contains
+a slot about ten centimeters wide, a beige button labelled \"2\" and a tan
+button labelled \"3.\"")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO CONFERENCE-ROOM)
+      (OUT TO CONFERENCE-ROOM)
+      (PSEUDO "BOOTH" IN-BOOTH-PSEUDO)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL CONTROLS SLOT TELEPORTATION-BUTTON-2 TELEPORTATION-BUTTON-3)>
+
+<ROOM REC-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Rec Corridor")
+      (LDESC
+"This is a wide, east-west hallway. Portals lead north and south, and another
+corridor branches southwest.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"  25  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO REC-AREA)
+      (NORTH TO DORM-B)
+      (SOUTH TO DORM-A)
+      (EAST TO MESS-CORRIDOR)
+      (SW TO PLAIN-HALL)
+      (FLAGS ONBIT RLANDBIT)>
+
+<ROOM DORM-A
+      (LOC ROOMS)
+      (DESC "Dorm A")
+      (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO SANFAC-A)
+      (NORTH TO REC-CORRIDOR)
+      (FLAGS FLOYDBIT ONBIT RLANDBIT)
+      (GLOBAL BED)
+      (PSEUDO "PARTITION" PARTITION-PSEUDO)>
+
+<ROOM SANFAC-A
+      (LOC ROOMS)
+      (DESC "SanFac A")
+      (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+north.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO DORM-A)
+      (FLAGS ONBIT RLANDBIT FLOYDBIT)
+      (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
+
+<ROOM DORM-B
+      (LOC ROOMS)
+      (DESC "Dorm B")
+      (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO REC-CORRIDOR)
+      (NORTH TO SANFAC-B)
+      (FLAGS FLOYDBIT ONBIT RLANDBIT)
+      (GLOBAL BED)
+      (PSEUDO "PARTITION" PARTITION-PSEUDO)>
+
+<ROOM SANFAC-B
+      (LOC ROOMS)
+      (DESC "SanFac B")
+      (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+south.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO DORM-B)
+      (FLAGS FLOYDBIT ONBIT RLANDBIT)
+      (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
+
+<ROOM DORM-C
+      (LOC ROOMS)
+      (DESC "Dorm C")
+      (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO DORM-CORRIDOR)
+      (SOUTH TO SANFAC-C)
+      (FLAGS ONBIT FLOYDBIT RLANDBIT)
+      (GLOBAL BED)
+      (PSEUDO "PARTITION" PARTITION-PSEUDO)>
+
+<ROOM SANFAC-C
+      (LOC ROOMS)
+      (DESC "SanFac C")
+      (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+north.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO DORM-C)
+      (FLAGS FLOYDBIT ONBIT RLANDBIT)
+      (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
+
+<ROOM DORM-D
+      (LOC ROOMS)
+      (DESC "Dorm D")
+      (LDESC
+"This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan
+living quarters could have once housed many hundreds, but it seems quite
+deserted now. There are openings at the north and south ends of the room.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO DORM-CORRIDOR)
+      (NORTH TO SANFAC-D)
+      (FLAGS FLOYDBIT ONBIT RLANDBIT)
+      (GLOBAL BED)
+      (PSEUDO "PARTITION" PARTITION-PSEUDO)>
+
+<ROOM SANFAC-D
+      (LOC ROOMS)
+      (DESC "SanFac D")
+      (LDESC
+"This must be the sanitary facility for the adjacent dormitory. The fixtures
+are dry and dusty, the room dead and deserted. You marvel at how little the
+millenia and cultural gulfs have changed toilet bowl design. The only exit is
+south.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO DORM-D)
+      (FLAGS ONBIT FLOYDBIT RLANDBIT)
+      (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
+
+<ROOM MESS-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Mess Corridor")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO MESS-HALL)
+      (NORTH TO STORAGE-WEST IF STORAGE-WEST-DOOR IS OPEN)
+      (EAST TO DORM-CORRIDOR)
+      (WEST TO REC-CORRIDOR)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL STORAGE-WEST-DOOR)
+      (ACTION MESS-CORRIDOR-F)>
+
+<ROUTINE MESS-CORRIDOR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a wide, east-west hallway with a large portal to the south. A
+small door to the north is ">
+		<DDESC ,STORAGE-WEST-DOOR>
+		<COND (<NOT ,PADLOCK-REMOVED>
+		       <TELL " and hooked with a simple steel padlock">
+		       <COND (<FSET? ,PADLOCK ,OPENBIT>
+			      <TELL " which hangs unlocked">)
+			     (T
+			      <TELL " which is also closed">)>)>
+		<TELL "." CR>)>>
+
+<OBJECT STORAGE-WEST-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION STORAGE-WEST-DOOR-F)>
+
+<ROUTINE STORAGE-WEST-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,STORAGE-WEST-DOOR ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (,PADLOCK-REMOVED
+		       <FSET ,STORAGE-WEST-DOOR ,OPENBIT>
+		       <TELL "Opened." CR>)
+		      (T
+		       <TELL 
+"The door cannot be opened until the padlock is removed." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,STORAGE-WEST-DOOR ,OPENBIT>
+		       <FCLEAR ,STORAGE-WEST-DOOR ,OPENBIT>
+		       <TELL "The door is now closed." CR>)
+		      (T
+		       <IS-CLOSED>)>)
+	       (<VERB? UNLOCK>
+		<TELL "The door itself isn't locked.">
+		<COND (<NOT <FSET? ,PADLOCK ,OPENBIT>>
+		       <TELL
+" It is the padlock on the door which is locked.">)>
+		<TELL CR>)>>
+
+<OBJECT PADLOCK
+	(LOC MESS-CORRIDOR)
+	(DESC "padlock")
+	(SYNONYM PADLOCK PAD LOCK)
+	(ADJECTIVE SIMPLE STEEL METAL)
+	(SIZE 10)
+	(FLAGS MUNGBIT NDESCBIT TAKEBIT TRYTAKEBIT)
+	(ACTION PADLOCK-F)>
+
+<GLOBAL PADLOCK-REMOVED <>> ;"is the padlock still on the door?"
+
+<ROUTINE PADLOCK-F ()
+	 <COND (<EQUAL? ,HERE ,BRIG>
+		<TELL
+"You can't see or reach the lock from inside the cell." CR>)
+	       (<AND <VERB? OPEN-WITH>
+		     <EQUAL? ,PADLOCK ,PRSO>>
+		<PERFORM ,V?UNLOCK ,PADLOCK ,PRSI>
+		<RTRUE>)
+	       (<VERB? UNLOCK OPEN>
+		<COND (<NOT <FSET? ,PADLOCK ,OPENBIT>>
+		       <COND (<NOT ,PRSI>
+			      <TELL "You can't open it with your hands." CR>)
+			     (<EQUAL? ,PRSI ,KEY>
+			      <COND (<FSET? ,PADLOCK ,MUNGEDBIT>
+			             <TELL
+"Tsk, tsk ... the padlock seems to be fused shut." CR>)
+				    (T
+				     <FSET ,PADLOCK ,OPENBIT>
+				     <TELL "The padlock springs open." CR>)>)
+			     (T
+			      <TELL "That doesn't work." CR>)>)
+		      (T
+		       <TELL "The padlock is already unlocked." CR>)>)
+	       (<VERB? CLOSE LOCK>
+		<COND (<FSET? ,PADLOCK ,OPENBIT>
+		       <FCLEAR ,PADLOCK ,OPENBIT>
+		       <TELL "The padlock closes with a sharp click." CR>)
+		      (T
+		       <TELL "The padlock is already locked." CR>)>)
+	       (<AND <VERB? TAKE>
+		     <NOT ,PADLOCK-REMOVED>>
+		<COND (<FSET? ,PADLOCK ,OPENBIT>
+		       <SETG PADLOCK-REMOVED T>
+		       <FCLEAR ,PADLOCK ,TRYTAKEBIT>
+		       <FCLEAR ,PADLOCK ,NDESCBIT>
+		       <RFALSE>)
+		      (<NOT <FSET? ,PADLOCK ,OPENBIT>>
+		       <TELL "The padlock is locked to the door." CR>)>)
+	       (<VERB? MUNG>
+		<TELL
+"And, as we go into the next round, it's Padlock 1, Adventurer 0..." CR>)>>
+
+<ROOM STORAGE-WEST
+      (LOC ROOMS)
+      (DESC "Storage West")
+      (LDESC
+"This is a small room obviously intended as a storage area.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO MESS-CORRIDOR IF STORAGE-WEST-DOOR IS OPEN)
+      (OUT TO MESS-CORRIDOR IF STORAGE-WEST-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 4)
+      (GLOBAL SHELVES STORAGE-WEST-DOOR)>
+
+<OBJECT CAN
+	(LOC STORAGE-WEST)
+	(DESC "tin can")
+	(LDESC 
+"There is a large tin can, labelled \"Spam and Egz,\" sitting here.")
+	(FDESC
+"On a small shelf is a large, unopened tin can. It has a plain white
+label which reads \"Spam and Egz.\"")
+	(SIZE 15)
+	(SYNONYM CAN)
+	(ADJECTIVE LARGE TIN UNOPENED)
+	(FLAGS TAKEBIT)
+	(ACTION CAN-F)>
+
+<ROUTINE CAN-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"This is a rather normal tin can. It is large and is labelled \"Spam
+and Egz.\"" CR>)
+	       (<VERB? OPEN>
+		<TELL
+"You certainly can't open it with your hands, and you don't seem to have
+found a can opener yet." CR>)>> 
+
+<OBJECT LADDER
+	(LOC STORAGE-WEST)
+	(DESC "ladder")
+	(FDESC
+"A heavy-duty extendable ladder is leaning against the rear wall.")
+	(LDESC
+"There is a large aluminum ladder here.")
+	(SYNONYM LADDER)
+	(ADJECTIVE HEAVY DUTY HEAVY-DUTY ALUMINUM LARGE)
+	(SIZE 80)
+	(FLAGS TAKEBIT)
+	(ACTION LADDER-F)>
+
+<GLOBAL LADDER-EXTENDED <>> ;"is the ladder extended?"
+
+<GLOBAL LADDER-FLAG <>> ;"is the ladder spanning the rift?"
+
+<ROUTINE LADDER-F ()
+	 <COND (<VERB? TAKE>
+		<COND (,LADDER-EXTENDED
+		       <TELL
+"You can't possibly carry the ladder while it's extended." CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"It is a heavy-duty ladder built of sturdy aluminum tubing. It is currently ">
+		<COND (,LADDER-EXTENDED
+		       <TELL
+"extended to its full length of about 8 meters, but could be collapsed to
+a shorter length for easier carrying." CR>)
+		      (T
+		       <TELL
+"collapsed and is around two-and-a-half meters long, but if extended would
+obviously be much longer." CR>)>)
+	       (<VERB? OPEN>
+		<COND (,LADDER-EXTENDED
+		       <TELL "The ladder is already extended." CR>)
+		      (<OR <EQUAL? ,HERE ,STORAGE-EAST ,STORAGE-WEST ,BOOTH-2>
+			   <EQUAL? ,HERE ,UPPER-ELEVATOR ,LOWER-ELEVATOR>>
+		       <TELL
+"You can't extend the ladder in this tiny space!" CR>)
+		      (<IN? ,LADDER ,ADVENTURER>
+		       <TELL
+"You couldn't possibly extend the ladder while you're holding it." CR>)
+		      (T
+		       <FSET ,LADDER ,TRYTAKEBIT>
+		       <SETG LADDER-EXTENDED T>
+		       <SETG C-ELAPSED 36>
+		       <TELL
+"The ladder extends to a length of around eight meters." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (,LADDER-EXTENDED
+		       <SETG C-ELAPSED 21>
+		       <COND (,LADDER-FLAG
+			      <SETG LADDER-FLAG <>>
+			      <REMOVE ,LADDER>
+			      <TELL
+"As the ladder shortens it plunges into the rift." CR>)
+			     (T
+			      <SETG LADDER-EXTENDED <>>
+			      <FCLEAR ,LADDER ,TRYTAKEBIT>
+			      <TELL
+"The ladder collapses to a length of around two-and-a-half meters." CR>)>)
+		      (T
+		       <TELL
+"The ladder is already in its collapsed state." CR>)>)
+	       (<AND <VERB? SPAN ATTRACT>
+		     <EQUAL? ,PRSI ,RIFT>>
+		<COND (,LADDER-FLAG
+		       <TELL "The ladder already spans the rift." CR>)
+		      (T
+		       <COND (,LADDER-EXTENDED
+			      <SETG LADDER-FLAG T>
+			      <FSET ,LADDER ,NDESCBIT>
+			      <TELL
+"The ladder swings out across the rift and comes to rest on the far edge,
+spanning the precipice." CR>)
+			     (T
+			      <REMOVE ,LADDER>
+			      <TELL
+"The ladder, far too short to reach the other edge of the rift, plunges into
+the rift and is lost forever." CR>)>)>)
+	       (<VERB? CLIMB-UP CLIMB-FOO>
+		<COND (,LADDER-FLAG
+		       <TELL "You can't climb a horizontal ladder!" CR>)
+		      (<IN? ,LADDER ,ADVENTURER>
+		       <TELL
+"That would be a neat trick, considering that you're holding it." CR>)>)>>
+
+<ROOM DORM-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Dorm Corridor")
+      (LDESC
+"This is a wide, east-west hallway with openings to the north and south.
+To the east, the corridor stretches off into the distance. That section of
+the hallway is lined with a motorized walkway (no longer running) that
+was probably intended to transport people or cargo down that tremendously
+long hall.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 160 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO DORM-D)
+      (SOUTH TO DORM-C)
+      (WEST TO MESS-CORRIDOR)
+      (EAST PER LONG-HALL-F)
+      (FLAGS ONBIT RLANDBIT)
+      (PSEUDO "WALKWAY" WALKWAY-PSEUDO)>
+
+<ROOM MESS-HALL
+      (LOC ROOMS)
+      (DESC "Mess Hall")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO MESS-CORRIDOR)
+      (OUT TO MESS-CORRIDOR)
+      (SOUTH TO KITCHEN IF KITCHEN-DOOR IS OPEN)
+      (IN TO KITCHEN IF KITCHEN-DOOR IS OPEN)
+      (GLOBAL TABLES KITCHEN-DOOR SLOT)
+      (FLAGS ONBIT FLOYDBIT RLANDBIT)
+      (PSEUDO "BENCH" BENCH-PSEUDO "BENCHES" BENCH-PSEUDO)
+      (ACTION MESS-HALL-F)>
+
+<ROUTINE MESS-HALL-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a large hall lined with tables and benches. An opening to the north
+leads back to the corridor. A door to the south is ">
+		<DDESC ,KITCHEN-DOOR>
+		<TELL ". Next to the door is a small slot." CR>)>>
+
+<OBJECT KITCHEN-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(ADJECTIVE KITCHEN)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION KITCHEN-DOOR-F)>
+
+<ROUTINE KITCHEN-DOOR-F ()
+	 <COND (<VERB? OPEN>
+	        <TELL
+"A light flashes \"Pleez yuuz kitcin akses kard.\"" CR>)>>
+
+<ROOM KITCHEN
+      (LOC ROOMS)
+      (DESC "Kitchen")
+      (LDESC
+"This is the food production and dispensary area for the dining hall to the
+north. Of particular interest is a machine near the door. You should probably
+examine it more closely.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO MESS-HALL)
+      (OUT TO MESS-HALL)
+      (GLOBAL KITCHEN-DOOR)
+      (PSEUDO "SPOUT" SPOUT-PSEUDO "BUTTON" BUTTON-PSEUDO)
+      (FLAGS ONBIT RLANDBIT)
+      (VALUE 4)>
+
+<OBJECT DISPENSER
+	(LOC KITCHEN)
+	(DESC "dispenser unit")
+	(SYNONYM UNIT NICHE MACHINE DISPENSER)
+	(ADJECTIVE DISPENSER)
+	(FLAGS MUNGBIT CONTBIT SEARCHBIT OPENBIT TRANSBIT NDESCBIT)
+	(ACTION DISPENSER-F)>
+
+<OBJECT CANTEEN
+	(LOC MESS-HALL)
+	(DESC "canteen")
+	(FDESC 
+"Although the room is quite barren, an octagonally shaped
+canteen is sitting on one of the benches.")
+	(SYNONYM CANTEEN)
+	(ADJECTIVE OCTAGONAL)
+	(CAPACITY 5)
+	(SIZE 10)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT)>
+
+<ROUTINE DISPENSER-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"This wall-mounted unit contains an octagonal niche beneath a spout. ">
+		<COND (<IN? ,CANTEEN ,DISPENSER>
+		       <TELL
+"A canteen is resting in the niche, its mouth lying just below the spout. ">)>
+		<TELL
+"Above the spout is a button. The machine is labelled \"Hii Prooteen Likwid
+Dispensur.\"" CR>)
+	       (<VERB? CLOSE>
+		<NO-CLOSE>
+		<RTRUE>)
+	       (<VERB? PUT>
+		<COND (<EQUAL? ,PRSO ,CANTEEN>
+		       <MOVE ,CANTEEN ,DISPENSER>
+		       <TELL "The canteen fits snugly into the octagonal niche,
+its mouth resting just below the spout of the machine." CR>)
+		      (T
+		       <TELL "It doesn't fit in the niche." CR>)>)>>
+
+<OBJECT HIGH-PROTEIN
+	(DESC "quantity of protein-rich liquid")
+	(SYNONYM LIQUID FLUID FOOD QUANTITY)
+	(ADJECTIVE BROWN PROTEIN-RICH PROTEIN RICH)
+	(SIZE 5)
+	(FLAGS FOODBIT)
+	(ACTION HIGH-PROTEIN-F)>
+
+<ROUTINE HIGH-PROTEIN-F ("AUX" (X <>))
+	 <COND (<VERB? EAT>
+		<COND (<NOT <IN? ,CANTEEN ,ADVENTURER>>
+		       <SETG PRSO ,CANTEEN>
+		       <NOT-HOLDING>)
+		      (T
+		       <COND (<EQUAL? ,HUNGER-LEVEL 0>
+			      <TELL ,NOT-HUNGRY CR>)
+			     (T
+			      <REMOVE ,HIGH-PROTEIN>
+			      <SETG C-ELAPSED 15>
+			      <SETG HUNGER-LEVEL 0>
+			      <ENABLE <QUEUE I-HUNGER-WARNINGS 3600>>
+			      <TELL
+"Mmmm....that was good. It certainly quenched your thirst and satisfied your
+hunger." CR>)>)>)
+	       (<AND <VERB? POUR>
+		     <EQUAL? ,PRSO ,HIGH-PROTEIN>>
+		<COND (<NOT <IN? ,CANTEEN ,ADVENTURER>>
+		       <TELL "Maybe if you were holding the canteen..." CR>
+		       <RTRUE>)
+		      (<NOT ,PRSI>
+		       <SETG PRSI ,GROUND>)>
+		<COND (<EQUAL? ,PRSI ,FLASK>
+		       <WORTHLESS-ACTION>)
+		      (<EQUAL? ,PRSI ,FUNNEL-HOLE>
+		       <COND (<IN? ,CHEMICAL-FLUID ,FLASK>
+			      <SET X T>)>
+		       <SETG CHEMICAL-REQUIRED 10>
+		       <REMOVE ,HIGH-PROTEIN>
+		       <PERFORM ,V?POUR ,CHEMICAL-FLUID ,FUNNEL-HOLE>
+		       <COND (.X
+			      <MOVE ,CHEMICAL-FLUID ,FLASK>)>
+		       <RTRUE>)
+		      (T
+		       <REMOVE ,HIGH-PROTEIN>
+		       <TELL
+"The protein-rich fluid pours over the " D ,PRSI " and then dries up." CR>)>)>>
+
+<ROUTINE WORTHLESS-ACTION ()
+	 <TELL
+"A worthless action -- and much too difficult for a poorly written program
+like this one to handle." CR>>
+
+<ROOM CORRIDOR-JUNCTION
+      (LOC ROOMS)
+      (DESC "Corridor Junction")
+      (LDESC
+"A north-south corridor intersects the main corridor here. To the west, the
+main corridor extends as far as you can see; a nonworking walkway from
+that direction ends here. To the east, the corridor widens into a well-lit
+area.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 160 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST"  30 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO ADMIN-CORRIDOR-S)
+      (SOUTH TO MECH-CORRIDOR-N)
+      (WEST PER LONG-HALL-F)
+      (EAST TO ELEVATOR-LOBBY)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (PSEUDO "WALKWAY" WALKWAY-PSEUDO)>
+
+<ROUTINE LONG-HALL-F ()
+	 <TELL
+"You walk down the long, featureless hallway for a long time. Finally,
+you see ">
+	 <SETG C-ELAPSED 160>
+	 <COND (<EQUAL? ,HERE ,CORRIDOR-JUNCTION>
+		<TELL "some doorways ahead..." CR CR>
+		,DORM-CORRIDOR)
+	       (T
+		<TELL "an intersection ahead..." CR CR>
+		,CORRIDOR-JUNCTION)>>
+		
+<ROOM ADMIN-CORRIDOR-S
+      (LOC ROOMS)
+      (DESC "Admin Corridor South")
+      (LDESC
+"This section of hallway seems to have suffered some minor structural
+damage. The walls are cracked, and a jagged crevice crosses the floor.
+An opening leads east and the corridor heads north and south.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO CORRIDOR-JUNCTION)
+      (NORTH TO ADMIN-CORRIDOR)
+      (EAST TO SANFAC-E)
+      (FLAGS RLANDBIT ONBIT)
+      (ACTION ADMIN-CORRIDOR-S-F)>
+
+<ROUTINE ADMIN-CORRIDOR-S-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,KEY ,INVISIBLE>
+		     <PROB 20>>
+		<TELL
+"You catch, out of the corner of your eye, a glint of light from the direction
+of the floor." CR>)>>
+
+<OBJECT CREVICE
+	(LOC ADMIN-CORRIDOR-S)
+	(DESC "crevice")
+	(SYNONYM CREVICE CRACK HOLE)
+	(ADJECTIVE NARROW JAGGED)
+	(FLAGS NDESCBIT)
+	(ACTION CREVICE-F)>
+
+<ROUTINE CREVICE-F ()
+	 <COND (<VERB? REACH>
+		<TELL "The crevice is too narrow to reach into." CR>)
+	       (<VERB? LOOK-INSIDE EXAMINE SEARCH>
+		<COND (<FSET? ,KEY ,TOUCHBIT>
+		       <TELL "Nothing there but bunches of dust." CR>)
+		      (T
+		       <FCLEAR ,KEY ,INVISIBLE>
+		       <TELL
+"Lying at the bottom of the narrow crack, partly covered by layers of dust,
+is a shiny steel key!" CR>)>)>>
+
+<OBJECT KEY
+	(LOC ADMIN-CORRIDOR-S)
+	(DESC "key")
+	(FDESC "Lying at the bottom of a narrow crevice is a shiny object.")
+	(SIZE 3)
+	(SYNONYM KEY METAL OBJECT)
+	(ADJECTIVE PIECE STEEL IRON SHINY)
+	(FLAGS ACIDBIT TAKEBIT TOOLBIT INVISIBLE TRYTAKEBIT)
+	(ACTION KEY-F)>
+
+<ROUTINE KEY-F ()
+	 <COND (<AND <VERB? TAKE ZATTRACT MOVE>
+		     <NOT <FSET? ,KEY ,TOUCHBIT>>>
+	        <COND (<EQUAL? ,PRSI ,PLIERS>
+		       <TELL
+"These are heavy-duty pliers, too large to reach into this narrow crack." CR>)
+		      (<EQUAL? ,PRSI ,MAGNET>
+		       <PERFORM ,V?ATTRACT ,MAGNET ,KEY>
+		       <RTRUE>)
+		      (,PRSI
+		       <TELL "Nice try." CR>)
+		      (T
+		       <TELL
+"Either the crevice is too narrow, or your fingers are too large." CR>)>)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,CREVICE>>
+		<TELL
+"And you wonder why you're still only an Ensign Seventh Class?" CR>)>>
+
+<ROOM ADMIN-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Admin Corridor") 
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO ADMIN-CORRIDOR-S)
+      (NORTH PER LADDER-EXIT-F)
+      (WEST TO SYSTEMS-MONITORS)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL RIFT)
+      (PSEUDO "RUBBLE" RUBBLE-PSEUDO)
+      (ACTION ADMIN-CORRIDOR-F)>
+
+<ROUTINE ADMIN-CORRIDOR-F (RARG)
+	 <COND (<AND ,LADDER-FLAG
+		     <EQUAL? .RARG ,M-ENTER>>
+		<MOVE ,LADDER ,HERE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL 
+"The hallway, in fact the entire building, has been rent apart here, presumably
+by seismic upheaval. You can see the sky through the severed roof above, and
+the ground is thick with rubble. To the north is a gaping rift, at least eight
+meters across and thirty meters deep. ">
+		<COND (,LADDER-FLAG
+		       <TELL "A metal ladder spans the rift. ">)>
+		<TELL
+"A wide doorway, labelled \"Sistumz Moniturz,\" leads west." CR>)>>
+
+<ROOM ADMIN-CORRIDOR-N
+      (LOC ROOMS)
+      (DESC "Admin Corridor North")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH PER LADDER-EXIT-F)
+      (NORTH TO TRANSPORTATION-SUPPLY)
+      (EAST TO PLAN-ROOM)
+      (WEST TO SMALL-OFFICE)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 4)
+      (GLOBAL RIFT)
+      (ACTION ADMIN-CORRIDOR-N-F)>
+
+<ROUTINE ADMIN-CORRIDOR-N-F (RARG)
+	 <COND (<AND ,LADDER-FLAG
+		     <EQUAL? .RARG ,M-ENTER>>
+		<MOVE ,LADDER ,HERE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The corridor ends here. Portals lead west, north, and east. Signs above these
+portals read, respectively, \"Administraativ Awfisiz,\" \"Tranzportaashun
+Suplii,\" and \"Plan Ruum.\" To the south is a wide rift">
+		<COND (,LADDER-FLAG
+		       <TELL ", spanned by a metal ladder,">)>
+		<TELL
+" separating this area from the rest of the building." CR>)>>
+
+<ROUTINE LADDER-EXIT-F ()
+	 <COND (,LADDER-FLAG
+		<SETG C-ELAPSED 33>
+		<TELL
+"You slowly make your way across the swaying ladder. You can see sharp,
+pointy rocks at the bottom of the rift, far below..." CR CR>
+		<COND (<EQUAL? ,HERE ,ADMIN-CORRIDOR-N>
+		       ,ADMIN-CORRIDOR)
+		      (T
+		       ,ADMIN-CORRIDOR-N)>)
+	       (T
+		<TELL "The rift is too wide to jump across." CR>
+		<RFALSE>)>>
+
+<OBJECT RIFT
+	(LOC LOCAL-GLOBALS)
+	(DESC "rift")
+	(SYNONYM RIFT GULF PRECIPICE HOLE)
+	(ADJECTIVE WIDE DEEP GAPING)
+	(FLAGS NDESCBIT)
+	(ACTION RIFT-F)>
+
+<ROUTINE RIFT-F ()
+	 <COND (<VERB? LEAP>
+		<JIGS-UP
+"You get a brief (but much closer) view of the sharp and nasty rocks at
+the bottom of the rift.">)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,RIFT ,PRSI>>
+		<COND (<EQUAL? ,PRSO ,LASER>
+			      <DISABLE <INT I-WARMTH>>)>
+		<REMOVE ,PRSO>
+		<COND (<EQUAL? ,PRSO ,SCRUB-BRUSH>
+		       <TELL
+"You watch with tremendous satisfaction as the brush is lost forever." CR>)
+		      (T
+		       <TELL
+"The " D, PRSO " sails gracefully into the rift." CR>)>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"The rift is at least eight meters wide and more than thirty meters deep. The
+bottom is covered with sharp and nasty rocks." CR>)>>
+
+<ROOM SANFAC-E
+      (LOC ROOMS)
+      (DESC "SanFac E")
+      (LDESC
+"Here is another sanitary facility. Like the others, it is dusty and
+nonfunctional.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO ADMIN-CORRIDOR-S)
+      (OUT TO ADMIN-CORRIDOR-S)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
+
+<ROOM SYSTEMS-MONITORS
+      (LOC ROOMS)
+      (DESC "Systems Monitors")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO ADMIN-CORRIDOR)
+      (OUT TO ADMIN-CORRIDOR)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (GLOBAL TABLES)
+      (PSEUDO "MONITORS" MONITORS-PSEUDO "EQUIPMENT" EQUIPMENT-PSEUDO)
+      (ACTION SYSTEMS-MONITORS-F)>
+
+<ROUTINE SYSTEMS-MONITORS-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a large room filled with tables full of strange equipment. ">
+		<DESCRIBE-MONITORS>)>>
+
+<ROUTINE DESCRIBE-MONITORS ()
+	 <TELL
+"The far wall is filled with a number of monitors. Of these,
+the ones labelled ">
+	 <COND (,DEFENSE-FIXED
+		<TELL "PLANATEREE DEFENS, ">)>
+	 <COND (,COURSE-CONTROL-FIXED
+		<TELL "PLANATEREE KORS KUNTROOL, ">)>
+	 <COND (,COMM-FIXED
+		<TELL "KUMUUNIKAASHUNZ, ">)>
+	 <TELL
+"LIIBREREE, REEAKTURZ, and LIIF SUPORT are green, but the one">
+	 <COND (<NOT <AND ,DEFENSE-FIXED
+			  ,COURSE-CONTROL-FIXED
+			  ,COMM-FIXED>>
+		<TELL "s">)>
+	 <TELL " labelled ">
+	 <COND (<NOT ,DEFENSE-FIXED>
+		<TELL "PLANATEREE DEFENS, ">)>
+	 <COND (<NOT ,COURSE-CONTROL-FIXED>
+		<TELL "PLANATEREE KORS KUNTROOL, ">)>
+	 <COND (<NOT ,COMM-FIXED>
+		<TELL "KUMUUNIKAASHUNZ, ">)>
+	 <COND (<NOT <AND ,DEFENSE-FIXED
+			  ,COURSE-CONTROL-FIXED
+			  ,COMM-FIXED>>
+		<TELL "and ">)>
+	 <TELL "PRAJEKT KUNTROOL indicate">
+	 <COND (<AND ,DEFENSE-FIXED ,COURSE-CONTROL-FIXED ,COMM-FIXED>
+		<TELL "s">)>
+	 <TELL " a malfunctioning condition." CR>>
+
+<ROOM PLAN-ROOM
+      (LOC ROOMS)
+      (DESC "Plan Room")
+      (LDESC
+"This is a small room whose far wall is covered with many small cubbyholes,
+all empty. The left wall is covered with an enormous map, labelled
+\"Kalamontee Kompleks\", showing two installations connected by a long
+hallway. Near the upper part of this map is a red arrow saying \"Yuu ar
+heer.\" The right wall is covered with a similar map, labelled \"Lawanda
+Kompleks\", showing two installations, one apparently buried deep
+underground.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO ADMIN-CORRIDOR-N)
+      (FLAGS RLANDBIT ONBIT FLOYDBIT)
+      (PSEUDO "CUBBYHOLE" CUBBYHOLE-PSEUDO "MAPS" MAPS-PSEUDO)>
+
+<ROOM TRANSPORTATION-SUPPLY
+      (LOC ROOMS)
+      (DESC "Transportation Supply")
+      (LDESC "You have just located a serious bug.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO ADMIN-CORRIDOR-N)
+      (NORTH TO TRANSPORTATION-SUPPLY)
+      (EAST TO TRANSPORTATION-SUPPLY)
+      (WEST TO TRANSPORTATION-SUPPLY)
+      (OUT TO ADMIN-CORRIDOR-N)
+      (FLAGS RLANDBIT)>
+
+<ROOM SMALL-OFFICE
+      (LOC ROOMS)
+      (DESC "Small Office")
+      (LDESC
+"You have entered a small office of some sort. A small desk faces the main
+doorway which lies to the east. Another exit leads west.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO ADMIN-CORRIDOR-N)
+      (WEST TO LARGE-OFFICE)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)>
+
+<OBJECT SMALL-DESK
+	(LOC SMALL-OFFICE)
+	(DESC "small desk")
+	(SYNONYM DESK DRAWER)
+	(ADJECTIVE SMALL)
+	(CAPACITY 10)
+	(FLAGS NDESCBIT CONTBIT SEARCHBIT)
+	(ACTION DESK-F)>
+
+<OBJECT KITCHEN-CARD
+	(LOC SMALL-DESK)
+	(DESC "kitchen access card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE KITCHEN ACCESS)
+	(SIZE 3)
+	(FLAGS TAKEBIT READBIT)
+        (TEXT "The card is embossed \"kitcin akses kard.\"")
+	(VALUE 1)>
+
+<OBJECT UPPER-ELEVATOR-CARD
+	(LOC SMALL-DESK)
+	(DESC "upper elevator access card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE UPPER ELEVATOR ACCESS)
+	(SIZE 3)
+	(FLAGS VOWELBIT TAKEBIT READBIT)
+	(TEXT "The card is embossed \"upur elivaatur akses kard.\"")
+	(VALUE 1)>
+
+<OBJECT SHUTTLE-CARD
+	(LOC LARGE-DESK)
+	(DESC "shuttle access card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE SHUTTLE ACCESS)
+	(SIZE 3)
+	(FLAGS TAKEBIT READBIT)
+	(TEXT "The card is embossed \"shutul akses kard.\"")
+	(VALUE 1)>
+
+<OBJECT LOWER-ELEVATOR-CARD
+	(DESC "lower elevator access card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE LOWER ELEVATOR ACCESS)
+	(SIZE 3)
+	(FLAGS TAKEBIT READBIT)
+	(TEXT "The card is embossed \"loowur elivaatur akses kard.\"")
+	(VALUE 1)>
+
+<ROOM LARGE-OFFICE
+      (LOC ROOMS)
+      (DESC "Large Office")
+      (LDESC
+"This is a large, plush office. The far wall is one large picture window,
+scratched but unbroken, offering a view of this installation and the ocean
+beyond. In front of the window is a wide wooden desk. The only exit is east.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO SMALL-OFFICE)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (GLOBAL WINDOW OCEAN)>
+
+<OBJECT LARGE-DESK
+	(LOC LARGE-OFFICE)
+	(DESC "large desk")
+	(SYNONYM DESK DRAWER)
+	(ADJECTIVE LARGE WIDE WOODEN)
+	(CAPACITY 20)
+	(FLAGS CONTBIT SEARCHBIT NDESCBIT)
+	(ACTION DESK-F)>
+
+<ROUTINE DESK-F ()
+	 <COND (<VERB? SEARCH EXAMINE>
+		<TELL "The desk has a drawer which is currently ">
+		<DDESC ,PRSO>
+		<TELL "." CR>)>>
+
+<ROOM MECH-CORRIDOR-N
+      (LOC ROOMS)
+      (DESC "Mech Corridor North")
+      (LDESC
+"Entrances to rooms lie to the east and west from this north-south hall.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO STORAGE-EAST)
+      (WEST TO PHYSICAL-PLANT)
+      (NORTH TO CORRIDOR-JUNCTION)
+      (SOUTH TO MECH-CORRIDOR)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM MECH-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Mech Corridor")
+      (LDESC
+"Entrances to rooms lie to the east and west from this north-south hall.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO REACTOR-CONTROL)
+      (WEST TO PHYSICAL-PLANT)
+      (NORTH TO MECH-CORRIDOR-N)
+      (SOUTH TO MECH-CORRIDOR-S)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM MECH-CORRIDOR-S
+      (LOC ROOMS)
+      (DESC "Mech Corridor South")
+      (LDESC
+"The corridor ends here with doorways to the southwest, south, and southeast.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"  25  ;"SOUTH"  0 
+	 ;"SE" 25 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO MECH-CORRIDOR)
+      (SW TO TOOL-ROOM)
+      (SOUTH TO MACHINE-SHOP)
+      (SE TO ROBOT-SHOP)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM STORAGE-EAST
+      (LOC ROOMS)
+      (DESC "Storage East")
+      (LDESC
+"A small room for storage. The exit is to the west.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO MECH-CORRIDOR-N)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL SHELVES)>
+
+<OBJECT OIL-CAN
+	(LOC STORAGE-EAST)
+	(DESC "oil can")
+	(FDESC
+"One dusty shelf, otherwise bare, holds a small oil can.")
+	(SYNONYM CAN)
+	(ADJECTIVE SMALL OIL)
+	(SIZE 10)
+	(FLAGS VOWELBIT TAKEBIT)
+	(ACTION OIL-CAN-F)>
+
+<ROUTINE OIL-CAN-F ()
+	 <COND (<VERB? POUR>
+		<COND (<NOT ,PRSI>
+		       <SETG PRSI ,GROUND>)>
+		<PERFORM ,V?OIL ,PRSI>
+		<RTRUE>)
+	       (<VERB? EMPTY>
+		<TELL
+"Pretty much impossible -- you could only do that one drop at a time." CR>)>>
+
+<OBJECT CARTON
+	(LOC STORAGE-EAST)
+	(DESC "cardboard box")
+	(FDESC
+"On the floor beneath the shelves sits a small cardboard box.")
+	(SYNONYM BOX CARTON)
+	(ADJECTIVE SMALL CARDBOARD)
+	(SIZE 10)
+	(CAPACITY 50)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT OPENBIT)
+	(ACTION CARTON-F)>
+
+<ROUTINE CARTON-F ()
+	 <COND (<VERB? CLOSE>
+		<NO-CLOSE>
+		<RTRUE>)>>
+
+<OBJECT CRACKED-BOARD
+	(LOC CARTON)
+	(DESC "cracked seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE CRACKED SEVENTEEN CENTIMETER FROMITZ)
+	(SIZE 10)
+	(FLAGS ACIDBIT TAKEBIT)
+	(ACTION CRACKED-BOARD-F)>
+
+<ROUTINE CRACKED-BOARD-F ()
+	 <COND (<VERB? EXAMINE>
+		<EXAMINE-BOARD>
+		<TELL " This one looks as though it's been dropped." CR>)>>
+
+<OBJECT MEGAFUSE-B
+	(LOC CARTON)
+	(DESC "B-series megafuse")
+	(SYNONYM FUSE MEGAFUSE)
+	(ADJECTIVE B-SERIES B SERIES MEGA)
+	(SIZE 5)
+	(FLAGS ACIDBIT TAKEBIT)>
+
+<OBJECT MEGAFUSE-K
+	(LOC CARTON)
+	(DESC "K-series megafuse")
+	(SYNONYM FUSE MEGAFUSE)
+	(ADJECTIVE K-SERIES K SERIES MEGA)
+	(SIZE 5)
+	(FLAGS ACIDBIT TAKEBIT)>
+
+<OBJECT GOOD-BEDISTOR
+	(LOC CARTON)
+	(DESC "good ninety-ohm bedistor")
+	(SYNONYM BEDISTOR)
+	(ADJECTIVE GOOD NINETY OHM NINETY-OHM)
+	(SIZE 8)
+	(FLAGS ACIDBIT TAKEBIT)
+	(ACTION GOOD-BEDISTOR-F)>
+
+<ROUTINE GOOD-BEDISTOR-F ()
+	 <COND (<AND <VERB? TAKE>
+		     ,COURSE-CONTROL-FIXED>
+		<JIGS-UP
+"Kerzap!! You should know better than to touch an active bedistor!">)>>
+
+<ROOM PHYSICAL-PLANT
+      (LOC ROOMS)
+      (DESC "Physical Plant")
+      (LDESC
+"This is a huge, dim room with exits in the northeast and southeast
+corners. The room is criss-crossed with catwalks and is filled with
+heavy equipment presumably intended to heat and ventilate this complex.
+Hardly any of the equipment is still operating.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NE TO MECH-CORRIDOR-N)
+      (SE TO MECH-CORRIDOR)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (PSEUDO "EQUIPMENT" EQUIPMENT-PSEUDO "CATWALK" CATWALK-PSEUDO)>
+
+<ROOM REACTOR-CONTROL
+      (LOC ROOMS)
+      (DESC "Reactor Control")
+      (LDESC
+"This room contains many dials and gauges for controlling a massive planetary
+power reactor which, according to a diagram on the wall, must be buried far
+below this very complex. The exit is to the west. To the east is a metal door,
+and next to it, a button. A dark stairway winds downward.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"20  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO MECH-CORRIDOR)
+      (EAST TO REACTOR-ELEVATOR IF REACTOR-ELEVATOR-DOOR IS OPEN)
+      (IN TO REACTOR-ELEVATOR IF REACTOR-ELEVATOR-DOOR IS OPEN)
+      (DOWN TO REACTOR-ACCESS-STAIRS)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (PSEUDO "BUTTON" REACTOR-BUTTON-PSEUDO "DIAGRAM" DIAGRAM-PSEUDO)
+      (GLOBAL CONTROLS STAIRS REACTOR-ELEVATOR-DOOR)>
+
+<ROOM REACTOR-ACCESS-STAIRS
+      (LOC ROOMS)
+      (DESC "Reactor Access Stairs")
+      (LDESC "You have just located a serious bug.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN TO REACTOR-ACCESS-STAIRS)
+      (UP TO REACTOR-CONTROL)
+      (FLAGS RLANDBIT)
+      (GLOBAL STAIRS)> 
+
+<OBJECT REACTOR-ELEVATOR-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "reactor elevator door")
+	(SYNONYM DOOR)
+	(ADJECTIVE REACTOR ELEVATOR)
+	(FLAGS DOORBIT)
+	(ACTION REACTOR-ELEVATOR-DOOR-F)>
+
+<ROUTINE REACTOR-ELEVATOR-DOOR-F ()
+	 <COND (<VERB? OPEN CLOSE>
+		<TELL "It won't budge." CR>)>>
+
+<ROUTINE I-REACTOR-DOOR-CLOSE ()
+	 <ENABLE <QUEUE I-REACTOR-DOOR-CLOSE -1>>
+	 <COND (<NOT <EQUAL? ,HERE ,REACTOR-ELEVATOR>>
+		<FCLEAR ,REACTOR-ELEVATOR-DOOR ,OPENBIT>
+		<COND (<EQUAL? ,HERE ,REACTOR-CONTROL>
+		       <TELL CR "The elevator door slides shut." CR>)>
+		<DISABLE <INT I-REACTOR-DOOR-CLOSE>>)>>
+
+<ROOM REACTOR-ELEVATOR
+      (LOC ROOMS)
+      (DESC "Reactor Elevator")
+      (LDESC
+"This is an elevator with a door to the west, currently open. A control panel
+contains an Up button, a Down button, and a small slot.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO REACTOR-CONTROL)
+      (OUT TO REACTOR-CONTROL)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL REACTOR-ELEVATOR-DOOR SLOT ELEVATOR-BUTTON CONTROLS)> 
+
+<ROOM TOOL-ROOM
+      (LOC ROOMS)
+      (DESC "Tool Room")
+      (LDESC
+"This is apparently a storage room for tools. Exits lead northeast and east.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"  25  ;"NORTH"  0>)
+      (NE TO MECH-CORRIDOR-S)
+      (EAST TO MACHINE-SHOP)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL SHELVES)>
+
+;"LASER stuff has been moved to COMPTWO with the inside-the-computer stuff"
+
+<OBJECT FLASK
+	(LOC TOOL-ROOM)
+	(DESC "glass flask")
+	(FDESC
+"Sitting on the floor below the lowest shelf is a large glass flask.")
+	(SYNONYM FLASK)
+	(ADJECTIVE GLASS LARGE PLASTIC)
+	(SIZE 10)
+	(CAPACITY 2)
+	(FLAGS CONTBIT SEARCHBIT OPENBIT TAKEBIT)
+	(ACTION FLASK-F)>
+
+<ROUTINE FLASK-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The flask has a wide mouth and looks large enough to hold one or two liters.
+It is made of glass, or perhaps some tough plastic">
+		<COND (<IN? ,CHEMICAL-FLUID ,FLASK>
+		       <TELL ", and is filled with a milky white fluid">)>
+		<TELL "." CR>)
+	       (<VERB? CLOSE>
+		<NO-CLOSE>
+		<RTRUE>)
+	       (<AND <VERB? EMPTY>
+		     <IN? ,CHEMICAL-FLUID ,FLASK>
+		     <EQUAL?  ,PRSI ,FUNNEL-HOLE>>
+		<PERFORM ,V?POUR ,CHEMICAL-FLUID ,FUNNEL-HOLE>
+		<RTRUE>)>>
+
+<OBJECT MAGNET
+	(LOC TOOL-ROOM)
+	(SIZE 10)
+	(DESC "curved metal bar")
+	(FDESC "On an upper shelf is a metal bar, curved into a U-shape.")
+	(SYNONYM MAGNET BAR)
+	(ADJECTIVE CURVED METAL HORSESHOE)
+	(FLAGS TRYTAKEBIT TAKEBIT)
+	(ACTION MAGNET-F)>
+
+<ROUTINE MAGNET-F ()
+	 <COND (<VERB? TAKE>
+		<ENABLE <QUEUE I-MAGNET -1>>
+		<RFALSE>)
+	       (<VERB? ATTRACT PUT-ON>
+		<COND (<AND <EQUAL? ,PRSO ,MAGNET>
+			    <NOT <IN? ,MAGNET ,ADVENTURER>>>
+		       <NOT-HOLDING>)
+		      (<AND <FSET? ,KEY ,TOUCHBIT>
+			    <EQUAL? ,PRSI ,KEY>>
+		       <MOVE ,KEY ,ADVENTURER>
+		       <TELL
+"The key jumps against the ends of the magnet and sticks there. Proud of your
+feat, you remove the key from the magnet." CR>)
+		      (<AND <NOT <FSET? ,KEY ,TOUCHBIT>>
+			    <EQUAL? ,PRSI ,KEY ,CREVICE>>
+		       <MOVE ,KEY ,ADVENTURER>
+		       <FCLEAR ,KEY ,INVISIBLE>
+		       <FCLEAR ,KEY ,TRYTAKEBIT>
+		       <FSET ,KEY ,TOUCHBIT>
+		       <TELL 
+"With a spray of dust and a loud clank, a piece of metal leaps from the
+crevice and affixes itself to the magnet. It is a steel key! With a tug,
+you remove the key from the magnet." CR>)>)>>
+
+<ROUTINE I-MAGNET ()
+	 <COND (<IN? ,MAGNET ,ADVENTURER>
+		<COND (<HELD? ,KITCHEN-CARD>
+		       <FSET ,KITCHEN-CARD ,SCRAMBLEDBIT>)
+		      (<HELD? ,SHUTTLE-CARD>
+		       <FSET ,SHUTTLE-CARD ,SCRAMBLEDBIT>)
+		      (<HELD? ,TELEPORTATION-CARD>
+		       <FSET ,TELEPORTATION-CARD ,SCRAMBLEDBIT>)
+		      (<HELD? ,UPPER-ELEVATOR-CARD>
+		       <FSET ,UPPER-ELEVATOR-CARD ,SCRAMBLEDBIT>)
+		      (<HELD? ,LOWER-ELEVATOR-CARD>
+		       <FSET ,LOWER-ELEVATOR-CARD ,SCRAMBLEDBIT>)
+		      (<HELD? ,MINI-CARD>
+		       <FSET ,MINI-CARD ,SCRAMBLEDBIT>)
+		      (<HELD? ,ID-CARD>
+		       <FSET ,ID-CARD ,SCRAMBLEDBIT>)>)
+	       (T
+		<DISABLE <INT I-MAGNET>>)>
+	 <RFALSE>>
+
+<OBJECT PLIERS
+	(LOC TOOL-ROOM)
+	(DESC "pair of wide-nosed pliers")
+	(SYNONYM PAIR PLIERS)
+	(ADJECTIVE WIDE-NOSED WIDE NOSED)
+	(SIZE 15)
+	(FLAGS TAKEBIT)>
+
+<ROOM MACHINE-SHOP
+      (LOC ROOMS)
+      (DESC "Machine Shop")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO MECH-CORRIDOR-S)
+      (EAST TO ROBOT-SHOP)
+      (WEST TO TOOL-ROOM)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (PSEUDO "SPOUT" CHEM-SPOUT-PSEUDO)
+      (ACTION MACHINE-SHOP-F)>
+
+<ROUTINE MACHINE-SHOP-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This room is probably some sort of machine shop filled with a variety
+of unusual machines. Doorways lead north, east, and west.|
+|
+Standing against the rear wall is a large dispensing machine with a
+spout. ">
+		<COND (<NOT <EQUAL? ,SPOUT-PLACED ,GROUND>>
+		       <TELL
+"Sitting under the spout is ">
+		       <COND (<FSET? ,SPOUT-PLACED ,VOWELBIT>
+			      <TELL "an ">)
+			     (T
+			      <TELL "a ">)>
+		       <TELL D ,SPOUT-PLACED". ">)>
+		<TELL
+"The dispenser is lined with brightly colored buttons. The first four
+buttons, labelled \"KUULINTS 1 - 4\", are colored red, blue, green, and
+yellow. The next three buttons, labelled \"KATALISTS 1 - 3\", are colored
+gray, brown, and black. The last two buttons are both white. One of
+these is square and says \"BAAS.\" The other white button is round and
+says \"ASID.\"" CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <EQUAL? ,SPOUT-PLACED ,GROUND>
+		     <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>
+		     <PROB 15>>
+		<SETG FLOYD-SPOKE T>
+		<TELL
+"Floyd pushes one of the dispenser buttons. Fluid pours from the spout and
+splashes across the floor. Floyd jumps up and down, giggling." CR>)>>
+
+;<OBJECT DIGGER
+	(LOC MACHINE-SHOP)
+	(DESC "wheelbarrow-like machine")
+	(FDESC
+"In the far corner is an odd machine, somewhat reminiscent of a wheelbarrow.")
+	(SYNONYM WHEELBARROW MACHINE DIGGER)
+	(ADJECTIVE ODD)>
+
+<OBJECT CHEMICAL-DISPENSER
+	(LOC MACHINE-SHOP)
+	(DESC "chemical dispenser")
+	(SYNONYM DISPENSER MACHINE)
+	(ADJECTIVE DISPENSER LARGE CHEMICAL)
+	(FLAGS MUNGBIT NDESCBIT)
+	(ACTION CHEMICAL-DISPENSER-F)>
+
+<GLOBAL SPOUT-PLACED <>>
+
+<ROUTINE CHEMICAL-DISPENSER-F ()
+	 <COND (<AND <VERB? PUT-UNDER>
+		     <EQUAL? ,PRSI ,CHEMICAL-DISPENSER>>
+		<COND (<EQUAL? ,SPOUT-PLACED ,GROUND>
+		       <MOVE ,PRSO ,HERE>
+		       <TELL
+"The " D ,PRSO " is now sitting under the spout." CR>
+		       <SETG SPOUT-PLACED ,PRSO>)
+		      (T
+		       <TELL
+"The " D ,SPOUT-PLACED " is already resting under the spout." CR>)>)>>
+
+<OBJECT RED-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "red button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RED)
+	(FLAGS NDESCBIT)
+	(C-MOVE 1)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT BLUE-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "blue button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BLUE)
+	(FLAGS NDESCBIT)
+	(C-MOVE 2)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT GREEN-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "green button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE GREEN)
+	(FLAGS NDESCBIT)
+	(C-MOVE 3)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT YELLOW-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "yellow button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE YELLOW)
+	(FLAGS NDESCBIT)
+	(C-MOVE 4)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT GRAY-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "gray button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE GRAY GREY)
+	(FLAGS NDESCBIT)
+	(C-MOVE 5)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT BROWN-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "brown button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BROWN)
+	(FLAGS NDESCBIT)
+	(C-MOVE 6)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT BLACK-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "black button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BLACK)
+	(FLAGS NDESCBIT)
+	(C-MOVE 7)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT ROUND-WHITE-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "round white button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE WHITE ROUND)
+	(FLAGS NDESCBIT)
+	(C-MOVE 8)
+	(ACTION CHEM-BUTTON-F)>
+
+<OBJECT SQUARE-WHITE-BUTTON
+	(LOC MACHINE-SHOP)
+	(DESC "square white button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE SQUARE WHITE)
+	(FLAGS NDESCBIT)
+	(C-MOVE 9)
+	(ACTION CHEM-BUTTON-F)>
+
+<GLOBAL CHEMICAL-FLAG 0>
+
+<CONSTANT COLOR-LTBL
+	 <PLTABLE
+	  "red"
+	  "blue"
+	  "green"
+	  "yellow"
+	  "gray"
+	  "brown"
+	  "black"
+	  "clear"
+	  "clear">>
+
+<ROUTINE CHEM-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<FSET? ,CHEMICAL-DISPENSER ,MUNGEDBIT>
+		       <TELL
+"The machine coughs a few times, but nothing else happens." CR>)
+		      (<EQUAL? ,SPOUT-PLACED ,FLASK>
+		       <COND (<IN? ,CHEMICAL-FLUID ,FLASK>
+			      <TELL
+"Another dose of the chemical fluid pours out of the spout, splashes over
+the already-full flask, spills onto the floor, and dries up." CR>)
+			     (T
+			      <MOVE ,CHEMICAL-FLUID ,FLASK>
+			      <TELL "The flask fills with some ">
+			      <SETG CHEMICAL-FLAG <GETP ,PRSO ,P?C-MOVE>>
+			      <TELL <GET ,COLOR-LTBL <GETP ,PRSO ,P?C-MOVE>>>
+			      <TELL
+" chemical fluid. The fluid gradually turns milky white." CR>)>)
+		      (<AND <EQUAL? ,SPOUT-PLACED ,CANTEEN>
+			    <FSET? ,CANTEEN ,OPENBIT>>
+		       <TELL
+"Chemical fluid gushes from the spout. Unfortunately, the mouth of the canteen
+is very narrow, and the fluid just splashes over it." CR>)
+		      (T
+		       <TELL
+"Some sort of chemical fluid pours out of the spout, spills all over the "
+D ,SPOUT-PLACED ", and dries up." CR>
+		       <COND (<AND <EQUAL? ,PRSO ,ROUND-WHITE-BUTTON
+					         ,SQUARE-WHITE-BUTTON>
+				   <OR <FSET? ,SPOUT-PLACED ,ACIDBIT>
+				       <FSET? ,SPOUT-PLACED ,MUNGBIT>>>
+			      <SETG CHEMICAL-FLAG 9>
+			      <PERFORM ,V?POUR ,CHEMICAL-FLUID ,SPOUT-PLACED>
+			      <RTRUE>)>
+		       <RTRUE>)>)>>
+
+<ROOM ROBOT-SHOP
+      (LOC ROOMS)
+      (DESC "Robot Shop")
+      (LDESC
+"This room, with exits west and northwest, is filled with robot-like
+devices of every conceivable description, all in various states of
+disassembly.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW" 25 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO MACHINE-SHOP)
+      (NW TO MECH-CORRIDOR-S)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (PSEUDO "DEVICE" DEVICES-PSEUDO)>
+
+<OBJECT FLOYD
+	(LOC ROBOT-SHOP)
+	(DESC "multiple purpose robot")
+	(FDESC
+"Only one robot, about four feet high, looks even remotely close to being
+in working order.")
+	(SYNONYM FLOYD COMPARTMENT ROBOT COMPANION)
+	(ADJECTIVE MULTIPLE PURPOSE DIM-WITTED DIM WITTED)
+	(FLAGS CONTBIT SEARCHBIT TRANSBIT OPENBIT LIGHTBIT)
+	(CAPACITY 5)
+	(ACTION FLOYD-F)>
+
+<GLOBAL CARD-STOLEN <>> ;"true if you took elev. card from turned-off Floyd"
+
+<ROUTINE FLOYD-F ("AUX" X N)
+	 <COND (<EQUAL? ,FLOYD ,WINNER>
+		<SETG FLOYD-SPOKE T>
+		<COND (<AND <VERB? GIVE>
+			    <EQUAL? ,PRSI ,ME>>
+		       <SETG WINNER ,ADVENTURER>
+		       <PERFORM ,V?ASK-FOR ,FLOYD ,PRSO>
+		       <RTRUE>)
+		      (<AND <VERB? SGIVE>
+			    <EQUAL? ,PRSO ,ME>>
+		       <SETG WINNER ,ADVENTURER>
+		       <PERFORM ,V?ASK-FOR ,FLOYD ,PRSI>
+		       <RTRUE>)
+		      (<VERB? WALK>
+		       <COND (<AND <EQUAL? ,HERE ,REPAIR-ROOM>
+				   <EQUAL? ,PRSO ,P?NORTH ,P?IN>>
+			      <FLOYD-THROUGH-HOLE>)
+			     (<AND <EQUAL? ,HERE ,BIO-LOCK-EAST>
+				   <EQUAL? ,PRSO ,P?EAST>>
+			      <FLOYD-INTO-LAB>)
+			     (<AND <EQUAL? ,HERE ,RADIATION-LOCK-EAST>
+				   <EQUAL? ,PRSO ,P?EAST>>
+			      <TELL"\"After you.\"" CR>)
+			     (T
+			      <TELL
+"Floyd looks slightly embarrassed. \"You know me and my sense of direction.\"
+Then he looks up at you with wide, trusting eyes. \"Tell Floyd
+a story?\"" CR>)>
+		       <COND (<FLUSH>
+			      <RFATAL>)>
+		       <RTRUE>)
+		      (<VERB? THROUGH>
+		       <FLOYDS-FAMOUS-DOOR-ROUTINE>
+		       <COND (<FLUSH> <RFATAL>)>
+		       <RTRUE>)
+		      (<AND <VERB? TAKE>
+			    <EQUAL? ,PRSO ,GOOD-BOARD>>
+		       <COND (<NOT <IN? ,GOOD-BOARD ,ROBOT-HOLE>>
+			      <TELL
+"Floyd looks half-bored and half-annoyed. ""Floyd already did that.
+How about some leap-frogger?\"" CR>)
+			     (,BOARD-REPORTED
+			      <MOVE ,GOOD-BOARD ,ADVENTURER>
+			      <FCLEAR ,GOOD-BOARD ,NDESCBIT>
+			      <FSET ,GOOD-BOARD ,TAKEBIT>
+			      <SETG C-ELAPSED 22>
+			      <TELL
+"Floyd shrugs. \"If you say so.\" He vanishes for a few minutes, and returns
+holding the fromitz board. It seems to be in good shape. He tosses it toward
+you, and you just manage to catch it before it smashes." CR>)
+			     (T
+			      <TELL
+"\"Huh?\" asks Floyd. \"What fromitz board?\"" CR>)>)
+		      (<AND <VERB? FOLLOW>
+			    <EQUAL? ,PRSO ,ME>>
+		       <TELL "\"Okay!\"" CR>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,ADVENTURER>
+		       <PERFORM ,V?HELLO ,FLOYD>
+		       <RTRUE>)
+		      (<VERB? DROP>
+		       <COND (<IN? ,PRSO ,FLOYD>
+			      <COND (<PROB 50>
+				     <MOVE ,PRSO ,HERE>
+				     <TELL
+"Floyd shrugs and drops the " D ,PRSO "." CR>)
+				    (T
+				     <TELL
+"Floyd clutches the " D ,PRSO " even more tightly. \"Floyd won't,\" he says
+defiantly." CR>)>)
+			     (T
+			      <FLOYD-NOT-HAVE>)>)
+		      (<AND <VERB? READ>
+			    <PRSO? ,DIARY>>
+		       <SETG WINNER ,ADVENTURER>
+		       <PERFORM ,V?SHOW ,DIARY ,FLOYD>
+		       <SETG WINNER ,FLOYD>
+		       <RTRUE>) 
+		      (T
+		       <TELL
+"Floyd whines, \"Enough talking! Let's play Hider-and-Seeker.\"" CR>
+		       <RFATAL>)>)
+	       (<VERB? CLOSE>
+		<TELL "Huh?" CR>)
+	       (<VERB? LOOK-INSIDE REACH>
+		<PERFORM ,V?OPEN ,FLOYD>
+		<RTRUE>)
+	       (<FSET? ,FLOYD ,RLANDBIT>
+		<SETG FLOYD-SPOKE T>
+		<COND (<VERB? LAMP-ON>
+		       <TELL "He's already been activated." CR>)
+		      (<VERB? LAMP-OFF>
+		       <FCLEAR ,FLOYD ,RLANDBIT>
+		       <FCLEAR ,FLOYD ,ACTORBIT>
+		       <DISABLE <INT I-FLOYD>>
+		       <TELL
+"Floyd, shocked by this betrayal from his newfound friend, whimpers
+and keels over">
+		       <COND (<FIRST? ,FLOYD>
+			      <TELL
+", dropping what he was carrying." CR>)
+			     (T
+			      <TELL "." CR>)>
+		       <SET X <FIRST? ,FLOYD>>
+		       <REPEAT ()
+			       <COND (.X
+				      <SET N <NEXT? .X>>
+				      <MOVE .X ,HERE>
+				      <SET X .N>)
+				     (T
+				      <RETURN>)>>)
+		      (<VERB? EXAMINE>
+		       <TELL
+"From its design, the robot seems to be of the multi-purpose sort. It is
+slightly cross-eyed, and its mechanical mouth forms a lopsided grin." CR>)
+		      (<VERB? KISS>
+		       <TELL 
+"You receive a painful electric shock." CR>)
+		      (<VERB? SCOLD>
+		       <TELL
+"Floyd looks defensive. \"What did Floyd do wrong?\"" CR>)
+		      (<VERB? PLAY-WITH>
+		       <SETG C-ELAPSED 30>
+		       <ENABLE <QUEUE I-FLOYD 1>>
+		       <TELL
+"You play with Floyd for several centichrons until you drop to the floor,
+exhausted. Floyd pokes at you gleefully. \"C'mon! Let's play some more!\"" CR>)
+		      (<VERB? LISTEN>
+		       <TELL "Floyd is babbling about this and that." CR>)
+		      (<AND <VERB? TAKE>
+			    <EQUAL? ,PRSO ,FLOYD>>
+		       <TELL
+"You manage to lift Floyd a few inches off the ground, but he is too heavy
+and you drop him suddenly. Floyd gives a surprised squeal and moves
+a respectable distance away." CR>)
+		      (<VERB? ATTACK MUNG>
+		       <TELL
+"Floyd starts dashing around the room. \"Oh boy oh boy oh boy! I haven't played
+Chase and Tag for years! You be It! Nah, nah!\""CR>)
+		      (<VERB? KICK SHAKE>
+		       <TELL
+"\"Why you do that?\" Floyd whines. \"I think a wire now shaken loose.\"
+He goes off into a corner and sulks." CR>)
+		      (<VERB? HELLO TALK>
+		       <TELL
+"\"Hi!\" Floyd grins and bounces up and down." CR>)
+		      (<VERB? SEARCH SCRUB OPEN>
+		       <TELL
+"Floyd giggles and pushes you away. \"You're tickling Floyd!\" He clutches at
+his side panels, laughing hysterically. Oil drops stream from his eyes." CR>)
+		      (<AND <VERB? GIVE PUT>
+			    <EQUAL? ,FLOYD ,PRSI>>
+		       <COND (<EQUAL? ,PRSO ,LAZARUS-PART>
+			      <REMOVE ,FLOYD>
+			      <SETG FLOYD-FOLLOW <>>
+			      <MOVE ,LAZARUS-PART ,HERE>
+			      <ENABLE <QUEUE I-FLOYD 40>>
+			      <TELL
+"At first, Floyd is all grins because of your gift. Then, he realizes what
+it is, begins weeping, drops the breastplate, and rushes out of the room." CR>)
+			     (<EQUAL? ,PRSO ,RED-GOO ,GREEN-GOO ,BROWN-GOO>
+			      <TELL
+"Floyd looks at the goo. \"Yech! Got any Number Seven Heavy Grease?\"" CR>)
+			     (<OR <FIRST? ,FLOYD>
+				  <PROB 25>>
+			      <MOVE ,PRSO ,HERE>
+			      <TELL
+"Floyd examines the " D, PRSO ", shrugs, and drops ">
+			      <COND (<EQUAL? ,PRSO ,PLIERS>
+				     <TELL "them." CR>)
+				    (T
+				     <TELL "it." CR>)>)
+			     (T
+			      <MOVE ,PRSO ,FLOYD>
+			      <TELL
+"\"Neat!\" exclaims Floyd. He thanks you profusely." CR>)>)
+		      (<AND <VERB? SHOW>
+			    <EQUAL? ,FLOYD ,PRSI>>
+		       <COND (<AND <EQUAL? ,PRSO ,PRINT-OUT>
+				   <NOT ,COMPUTER-FLAG>>
+			      <COMPUTER-ACTION>)
+			     (<EQUAL? ,PRSO ,ROBOT-HOLE>
+			      <FLOYD-THROUGH-HOLE>)
+			     (<EQUAL? ,PRSO ,DIARY>
+			      <TELL "Floyd looks at you earnestly. \"Floyd
+would never read someone else's diary!\" He stops and thinks a moment, then
+adds, \"Well, at least not a friend's diary.\"" CR>)
+			     (<AND <EQUAL? ,HERE ,REC-AREA>
+				   <EQUAL? ,PRSO ,PSEUDO-OBJECT>>
+			      <TELL
+"\"Too intellectual for Floyd. Any paddleball sets around?\"" CR>)
+			     (<OR <EQUAL? ,PRSO ,ID-CARD ,SHUTTLE-CARD>
+				  <EQUAL? ,PRSO ,KITCHEN-CARD
+					        ,UPPER-ELEVATOR-CARD>>
+			      <TELL
+"Floyd scratches his head. \"Aren't those things usually blue?\"" CR>)
+			     (<AND <EQUAL? ,PRSO ,LOWER-ELEVATOR-CARD>
+				   <NOT ,CARD-REVEALED>>
+			      <SETG CARD-REVEALED T>
+			      <TELL
+"\"I've got one just like that!\" says Floyd. He looks through several
+of his compartments, then glances at you suspiciously." CR>)
+			     (T
+			      <TELL
+"Floyd looks over the " D, PRSO ". \"Can you play any games with it?\"
+he asks." CR>)>)
+		      (<VERB? RUB>
+		       <TELL "Floyd gives a contented sigh." CR>)
+		      (<VERB? SMELL>
+		       <TELL
+"Floyd smells faintly of ozone and light machine oil." CR>)
+		      (<VERB? ASK-FOR>
+		       <COND (<IN? ,PRSI ,FLOYD>
+			      <MOVE ,PRSI ,ADVENTURER>
+			      <TELL
+"\"Okay,\" says Floyd, handing you the " D, PRSI ", \"but only
+because you're Floyd's best friend.\"" CR>)
+			     (T
+			      <FLOYD-NOT-HAVE>)>)>)
+	       (T
+		<COND (<VERB? LAMP-ON>
+		       <COND (,FLOYD-INTRODUCED
+			      <ENABLE <QUEUE I-FLOYD -1>>)
+			     (T
+			      <ENABLE <QUEUE I-FLOYD 25>>
+			      <TELL "Nothing happens." CR>
+			      <COND (<NOT ,FLOYD-SCORE-FLAG>
+				     <SETG FLOYD-SCORE-FLAG T>
+				     <SETG SCORE <+ ,SCORE 2>>)>
+			      <RTRUE>)>)
+		      (<VERB? LAMP-OFF>
+		       <TELL "The robot doesn't seem to be on." CR>)
+		      (<VERB? EXAMINE>
+		       <TELL
+"The deactivated robot is leaning against the wall, its head lolling to the
+side. It is short, and seems to be equipped for general-purpose work. It has
+apparently been turned off." CR>)
+		      (<VERB? SEARCH OPEN>
+		       <COND (<AND <NOT ,CARD-REVEALED>
+				   <NOT ,CARD-STOLEN>>
+			      <FCLEAR ,LOWER-ELEVATOR-CARD ,INVISIBLE>
+			      <MOVE ,LOWER-ELEVATOR-CARD ,ADVENTURER>
+			      <SCORE-OBJ ,LOWER-ELEVATOR-CARD>
+			      <SETG CARD-STOLEN T>
+			      <TELL
+"In one of the robot's compartments you find and take a magnetic-striped card
+embossed \"Loowur Elavaatur Akses Kard.\"" CR>)
+			     (T
+			      <TELL
+"Your search discovers nothing in the robot's compartments except a
+single crayon which you leave where you found it." CR>)>)>)>>
+
+<ROUTINE FLOYDS-FAMOUS-DOOR-ROUTINE ()
+	 <COND (<EQUAL? ,PRSO ,ROBOT-HOLE>
+		<FLOYD-THROUGH-HOLE>)
+	       (<EQUAL? ,PRSO ,BIO-DOOR-EAST>
+		<FLOYD-INTO-LAB>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<TELL "\"You go first,\" says Floyd." CR>)
+	       (T
+		<TELL "Floyd scratches his head and looks at you." CR>)>>
+
+<ROUTINE FLUSH ()
+	 <COND (,P-CONT
+		<SETG P-CONT <>>
+		<TELL CR
+"Floyd scratches his head and looks at you. \"What else were you saying to
+Floyd? I can't remember.\"" CR>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE FLOYD-INTO-LAB ()
+	 <COND (,FLOYD-WAITING
+		<TELL "\"As soon as you open the door, dummy.\"" CR>)
+	       (T
+		<TELL
+"\"Are you kidding? Floyd not going in THERE without a good reason.\"" CR>)>>
+
+<ROUTINE FLOYD-NOT-HAVE ()
+	 <TELL "\"Floyd does not one of those have!\"" CR>>
+
+<GLOBAL FLOYD-SCORE-FLAG <>>
+
+<GLOBAL FLOYD-SPOKE <>> ;"so Floyd doesn't do two things on the same turn"
+
+<GLOBAL FLOYD-FOLLOW <>> ;"checks if Floyd was in room where you just were"
+
+<GLOBAL FLOYD-REACTIVATED <>> ;"checks if Floyd has been turned on before"
+
+<GLOBAL FLOYD-INTRODUCED <>> ;"checks if Floyd has met you before"
+
+<ROUTINE FLOYD-COMES-ALIVE ("AUX" FOO)
+	 <COND (<IN? ,FLOYD ,HERE>
+		<COND (,FLOYD-REACTIVATED
+		       <SETG FLOYD-SPOKE T>
+		       <TELL
+"Floyd jumps to his feet, hopping mad. \"Why you turn Floyd off?\" he
+asks accusingly." CR>)
+		      (T
+		       <SETG FLOYD-INTRODUCED T>
+		       <SETG FLOYD-SPOKE T>
+		       <CRLF>
+		       <TELL 
+"Suddenly, the robot comes to life and its head starts swivelling about.
+It notices you and bounds over. \"Hi! I'm B-19-7, but to everyperson I'm
+called Floyd. Are you a doctor-person or a planner-person? ">
+		       <COND (<SET FOO <FIRST? ,ADVENTURER>>
+			      <TELL
+"That's a nice " D .FOO " you are having there. ">)>
+		       <TELL
+"Let's play Hider-and-Seeker you with me.\"" CR>)>)>
+	 <FSET ,FLOYD ,RLANDBIT>
+	 <FSET ,FLOYD ,ACTORBIT>
+	 <FSET ,FLOYD ,TOUCHBIT>
+	 <SETG FLOYD-REACTIVATED T>>
+
+<ROUTINE I-FLOYD ()
+	 <ENABLE <QUEUE I-FLOYD -1>>
+	 <COND (<NOT <FSET? ,FLOYD ,RLANDBIT>>
+		<FSET ,FLOYD ,ACTORBIT>
+		<FLOYD-COMES-ALIVE>)
+	       (<IN? ,FLOYD ,HERE>
+		<COND (<NOT ,FLOYD-INTRODUCED>
+		       <SETG FLOYD-INTRODUCED T>
+		       <TELL CR
+"The robot, now apparently active, notices you enter. \"Hi,\"
+he says. \"I'm Floyd!\"" CR>)
+		      (<AND ,FLOYD-FOLLOW
+			    <FSET? ,HERE ,FLOYDBIT>
+			    <PROB 6>>
+		       <REMOVE ,FLOYD>
+		       <SETG FLOYD-FOLLOW <>>
+		       <TELL CR
+"Floyd says \"Floyd going exploring. See you later.\"
+He glides out of the room." CR>)
+		      (T
+		       <SETG FLOYD-FOLLOW T>
+		       <COND (<AND <PROB 40>
+				   <NOT ,FLOYD-SPOKE>>
+			      <TELL "Floyd ">
+			      <TELL <PICK-ONE ,FLOYDISMS>>
+			      <TELL "." CR>
+			      <RTRUE>)>)>)
+	       (T	;"Floyd is active but not present"
+		<COND (<AND ,FLOYD-FOLLOW <PROB 80>>
+		       <COND (<IN? ,LAZARUS-PART ,HERE>
+			      <SETG FLOYD-FOLLOW <>>
+			      <TELL CR
+"Floyd starts to follow you but notices the Lazarus breast plate.
+He sniffs and leaves the room." CR>
+			      <RTRUE>)>
+		       <MOVE ,FLOYD ,HERE>
+		       <TELL "Floyd follows you." CR>
+		       <KLUDGE>)
+		      (T
+		       <SETG FLOYD-FOLLOW <>>
+		       <COND (<EQUAL? ,HERE ,BOOTH-1 ,BOOTH-2 ,BOOTH-3>
+			      <MOVE ,FLOYD ,HERE>
+			      <COND (<NOT ,FLOYD-INTRODUCED>
+				     <CRLF>
+				     <CALL-ME-FLOYD>
+				     <RTRUE>)>
+			      <TELL CR
+"Floyd scampers into the booth. \"Oooo,
+this is a tiny room,\" he remarks." CR>)
+			     (<OR
+			       <AND <EQUAL? ,HERE ,BIO-LOCK-EAST
+				                  ,BIO-LOCK-WEST>
+				    <NOT ,FLOYD-GAVE-UP>>
+			       <EQUAL? ,HERE ,RADIATION-LOCK-EAST
+				             ,RADIATION-LOCK-WEST>>
+			      <MOVE ,FLOYD ,HERE>
+			      <COND (<NOT ,FLOYD-INTRODUCED>
+				     <CRLF>
+				     <CALL-ME-FLOYD>
+				     <RTRUE>)>
+			      <TELL CR
+"Floyd glides after you. \"Is this...is this a squash court?\" he asks." CR>)
+			     (<OR <EQUAL? ,HERE ,ALFIE-CONTROL-EAST
+					        ,ALFIE-CONTROL-WEST>
+			          <EQUAL? ,HERE ,BETTY-CONTROL-EAST
+					        ,BETTY-CONTROL-WEST>
+			          <EQUAL? ,HERE ,UPPER-ELEVATOR ,LOWER-ELEVATOR
+					        ,REACTOR-ELEVATOR>
+				  <AND <EQUAL? ,HERE ,MESS-HALL>
+				       <IN? ,FLOYD ,KITCHEN>>>
+			      <MOVE ,FLOYD ,HERE>
+			      <COND (<NOT ,FLOYD-INTRODUCED>
+				     <CRLF>
+				     <CALL-ME-FLOYD>
+				     <RTRUE>)>
+			      <TELL CR "Floyd bounces into the ">
+			      <COND (<EQUAL? ,HERE ,UPPER-ELEVATOR
+				             ,LOWER-ELEVATOR ,REACTOR-ELEVATOR>
+				     <TELL "elevator">)
+				    (<EQUAL? ,HERE ,MESS-HALL>
+				     <TELL "room">)
+				    (T
+				     <TELL "cabin">)>
+			      <TELL
+". \"Hey, wait for Floyd!\" he yells, smiling broadly." CR>)
+			     (<EQUAL? ,HERE ,MINI-BOOTH>
+			      <MOVE ,FLOYD ,HERE>
+			      <COND (<NOT ,FLOYD-INTRODUCED>
+				     <CRLF>
+				     <CALL-ME-FLOYD>
+				     <RTRUE>)>
+			      <TELL CR
+"\"Hi,\" whispers Floyd, tiptoeing in. \"Are we going to teleport into
+the computer like Achilles always used to do?\"" CR>)
+			     (<PROB 30>
+			      <COND (<AND <EQUAL? ,HERE ,INFIRMARY>
+					  ,LAZARUS-FLAG>
+				     <RFALSE>)>
+			      <MOVE ,FLOYD ,HERE>
+			      <COND (,FLOYD-INTRODUCED
+				     <COND (<AND <PROB 15>
+						 <NOT <IN? ,ADVENTURER ,BED>>>
+					    <TELL CR
+"Floyd rushes into the room and barrels into you. \"Oops, sorry,\" he says.
+\"Floyd not looking at where he was going to.\"" CR>)
+					   (T
+					    <TELL CR
+"Floyd bounds into the room. \"Floyd here now!\" he cries." CR>)>
+				     <KLUDGE>)
+				    (T
+				     <CRLF>
+				     <CALL-ME-FLOYD>)>)>)>)>
+	 <SETG FLOYD-SPOKE <>>>
+
+<ROUTINE CALL-ME-FLOYD ()
+	 <SETG FLOYD-INTRODUCED T>
+	 <TELL
+"The robot you were fiddling with in the Robot Shop bounds into the room.
+\"Hi!\" he says, with a wide and friendly smile. \"You turn Floyd on?
+Be Floyd's friend, yes?\"" CR>>
+
+<ROUTINE KLUDGE ()
+	 <COND (<AND <EQUAL? ,HERE ,REPAIR-ROOM>
+		     <NOT ,ACHILLES-FLAG>>
+		<SETG ACHILLES-FLAG T>
+		<SETG FLOYD-SPOKE T>
+		<TELL
+"Floyd points at the fallen robot. \"That's Achilles. He was in charge of
+repairing machinery. He repaired Floyd once. I never liked him much; he
+wasn't friendly like other robots. Looks like he fell down the stairs.
+He always had trouble with one of his feet working right. A Planner-person
+once told me that's why they named him Achilles.\"" CR>)
+	       (<AND <EQUAL? ,HERE ,COMPUTER-ROOM>
+		     <NOT ,COMPUTER-FLAG>>
+		<COMPUTER-ACTION>)>>
+
+<OBJECT DEAD-FLOYD
+	(DESC "mangled robot")
+	(LDESC
+"Your former companion, Floyd, is lying on the ground in a pool of oil.")
+	(SYNONYM FLOYD ROBOT COMPANION)
+	(ADJECTIVE MANGLE DEAD FORMER)
+	(ACTION DEAD-FLOYD-F)>
+
+<ROUTINE DEAD-FLOYD-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"You turn to look at Floyd, but a tremendous sense of loss overcomes you, and
+you turn away." CR>)
+	       (<VERB? LAMP-ON>
+		<TELL
+"As you touch Floyd's on-off switch, it falls off in your hands." CR>)
+	       (<VERB? LAMP-OFF>
+		<TELL
+"I'm afraid that Floyd has already been turned off, permanently, and gone to
+that great robot shop in the sky." CR>)>>
+
+<CONSTANT FLOYDISMS
+	<PLTABLE
+	 "paces impatiently"
+	 "absentmindedly recites the first six hundred digits of pi"
+	 "lowers his voice and tells you the latest rumors about Dr. Fizpick"
+	 "recalls the time he bruised his knee"
+	 "chants the death scene from \"Carmen\""
+	 "cranes his neck to see what you are doing"
+	 "rubs his head affectionately against your shoulder"
+	 "asks if you want to play Hucka-Bucka-Beanstalk"
+	 "examines himself for signs of rust"
+	 "absentmindedly oils one of his joints"
+	 "wanders restlessly around the room"
+	 "notices a mouse scurrying by and tries to hide behind you"
+	 "sings an ancient ballad, totally out of key"
+	 "frets about the possibility of his batteries failing"
+	 "reminisces about his friend Lazarus, a medical robot"
+	 "relates some fond memories about his robotic friend Lazarus"
+	 "whistles tunelessly"
+	 "tells you about the time he helped someone sharpen a pencil"
+	 "yawns and looks bored"
+	 "produces a crayon from one of his compartments and scrawls
+his name on the wall">>
+
+^L
+
+;Elevator department
+
+<ROOM ELEVATOR-LOBBY
+      (LOC ROOMS)
+      (DESC "Elevator Lobby")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST"30 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH PER ELEVATOR-ENTER-F)
+      (SOUTH PER ELEVATOR-ENTER-F)
+      (WEST TO CORRIDOR-JUNCTION)
+      (EAST TO BOOTH-2)
+      (IN TO BOOTH-2)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL UPPER-ELEVATOR-DOOR LOWER-ELEVATOR-DOOR)
+      (PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)
+      (ACTION ELEVATOR-LOBBY-F)>
+
+<ROUTINE ELEVATOR-LOBBY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a wide, brightly lit lobby. A blue metal door to the north is ">
+		<COND (<AND <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,UPPER-ELEVATOR-UP <>>>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<TELL
+" and a larger red metal door to the south is ">
+		<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,LOWER-ELEVATOR-UP T>>
+		       <COND (<AND <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+				   <EQUAL? ,UPPER-ELEVATOR-UP <>>>
+			      <TELL "also ">)>
+		       <TELL "open">)
+		      (T
+		       <COND (<OR <NOT <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>>
+				  <EQUAL? ,UPPER-ELEVATOR-UP T>>
+			      <TELL "also ">)>
+		       <TELL "closed">)>
+		<TELL
+". Beside the blue door is a blue button, and beside the red door is
+a red button. A corridor leads west. To the east is a small room
+about the size of a telephone booth." CR>)>>
+
+<ROOM UPPER-ELEVATOR
+      (LOC ROOMS)
+      (DESC "Upper Elevator")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (OUT PER ELEVATOR-EXIT-F)
+      (SOUTH PER ELEVATOR-EXIT-F)
+      (UP SORRY "You'll have to use the elevator controls.")
+      (DOWN SORRY "You'll have to use the elevator controls.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL LIGHTS CONTROLS SLOT ELEVATOR-BUTTON UPPER-ELEVATOR-DOOR)
+      (ACTION UPPER-ELEVATOR-F)>
+
+<ROUTINE UPPER-ELEVATOR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You have entered a tiny room with a sliding door to the south which is ">
+		<DDESC ,UPPER-ELEVATOR-DOOR>
+		<TELL
+". A control panel contains an Up button, a Down button, and a
+narrow slot." CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <NOT <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>>
+		     <PROB 10>>
+		<TELL
+"Some innocuous Hawaiian music oozes from the elevator's intercom." CR>)>>
+
+<ROOM LOWER-ELEVATOR
+       (LOC ROOMS)
+       (DESC "Lower Elevator")
+       (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+       (NORTH PER ELEVATOR-EXIT-F)
+       (OUT PER ELEVATOR-EXIT-F)
+       (UP SORRY "You'll have to use the elevator controls.")
+       (DOWN SORRY "You'll have to use the elevator controls.")
+       (FLAGS RLANDBIT ONBIT)
+       (GLOBAL LIGHTS CONTROLS SLOT ELEVATOR-BUTTON LOWER-ELEVATOR-DOOR)
+       (ACTION LOWER-ELEVATOR-F)>
+
+<ROUTINE LOWER-ELEVATOR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a medium-sized room with a door to the north which is ">
+		<DDESC ,LOWER-ELEVATOR-DOOR>
+		<TELL
+". A control panel contains an Up button, a Down button, and
+a narrow slot." CR>)>>
+
+<ROUTINE ELEVATOR-ENTER-F ()
+	 <COND (<EQUAL? ,PRSO ,P?NORTH>
+		<COND (<AND <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,UPPER-ELEVATOR-UP <>>>
+		       ,UPPER-ELEVATOR)
+		      (T
+		       <DOOR-CLOSED>
+		       <RFALSE>)>)
+	       (<EQUAL? ,PRSO ,P?SOUTH>
+		<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,LOWER-ELEVATOR-UP T>>
+		       ,LOWER-ELEVATOR)
+		      (T
+		       <DOOR-CLOSED>
+		       <RFALSE>)>)>>
+
+<ROUTINE ELEVATOR-EXIT-F ()
+	 <COND (<EQUAL? ,HERE ,UPPER-ELEVATOR>
+		<COND (<FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>		
+		       <COND (<EQUAL? ,UPPER-ELEVATOR-UP T>
+			      ,TOWER-CORE)
+			     (T
+			      ,ELEVATOR-LOBBY)>)
+		      (T
+		       <DOOR-CLOSED>
+		       <RFALSE>)>)
+	       (<EQUAL? ,HERE ,LOWER-ELEVATOR>
+		<COND (<FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>		
+		       <COND (<EQUAL? ,LOWER-ELEVATOR-UP T>
+			      ,ELEVATOR-LOBBY)
+			     (T
+			      ,WAITING-AREA)>)
+		      (T
+		       <DOOR-CLOSED>
+		       <RFALSE>)>)>>
+
+<OBJECT UPPER-ELEVATOR-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "blue door")
+	(SYNONYM DOOR)
+	(ADJECTIVE UPPER ELEVATOR BLUE)
+	(FLAGS NDESCBIT DOORBIT)
+	(ACTION UPPER-ELEVATOR-DOOR-F)>
+
+<ROUTINE UPPER-ELEVATOR-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (T
+		       <TELL "It won't budge." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+		       <TELL "You can't close it yourself." CR>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<OBJECT LOWER-ELEVATOR-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "red door")
+	(SYNONYM DOOR)
+	(ADJECTIVE RED LOWER ELEVATOR METAL)
+	(FLAGS NDESCBIT DOORBIT)
+	(ACTION LOWER-ELEVATOR-DOOR-F)>
+
+<ROUTINE LOWER-ELEVATOR-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,HERE ,ELEVATOR-LOBBY>
+			    <EQUAL? ,LOWER-ELEVATOR-UP T>>
+		       <ALREADY-OPEN>)
+		      (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,HERE ,WAITING-AREA>
+			    <EQUAL? ,LOWER-ELEVATOR-UP <>>>
+		       <ALREADY-OPEN>)
+		      (T
+		       <TELL "It won't budge." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,HERE ,ELEVATOR-LOBBY>
+			    <EQUAL? ,LOWER-ELEVATOR-UP T>>
+		       <TELL "You can't close it yourself." CR>)
+		      (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+			    <EQUAL? ,HERE ,WAITING-AREA>
+			    <EQUAL? ,LOWER-ELEVATOR-UP <>>>
+		       <TELL "You can't close it yourself." CR>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<ROUTINE DOOR-CLOSED ()
+	 <TELL "The door is closed." CR>>
+
+<OBJECT BLUE-ELEVATOR-BUTTON
+	(LOC ELEVATOR-LOBBY)
+	(DESC "blue button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BLUE NORTH)
+	(FLAGS NDESCBIT)
+	(ACTION BLUE-ELEVATOR-BUTTON-F)>
+
+<OBJECT RED-ELEVATOR-BUTTON
+	(LOC ELEVATOR-LOBBY)
+	(DESC "red button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RED SOUTH)
+	(FLAGS NDESCBIT)
+	(ACTION RED-ELEVATOR-BUTTON-F)>
+
+<ROUTINE BLUE-ELEVATOR-BUTTON-F ()
+	 <COND (<AND <VERB? PUSH>
+		     <EQUAL? ,UPPER-ELEVATOR-UP T>>
+		<COND (<EQUAL? <GET <INT I-UPPER-ELEVATOR-ARRIVE> ,C-ENABLED?> 1>
+		       <TELL "Patience, patience..." CR>)
+		      (T
+		       <ENABLE<QUEUE I-UPPER-ELEVATOR-ARRIVE<+<RANDOM 20> 40>>>
+		       <TELL
+"You hear a faint whirring noise from behind the blue door." CR>)>)>>
+
+<ROUTINE RED-ELEVATOR-BUTTON-F ()
+	 <COND (<AND <VERB? PUSH>
+		     <EQUAL? ,LOWER-ELEVATOR-UP <>>>
+	        <COND (<EQUAL? <GET <INT I-LOWER-ELEVATOR-ARRIVE> ,C-ENABLED?> 1>
+		       <TELL "Patience, patience..." CR>)
+		      (T
+		       <ENABLE<QUEUE I-LOWER-ELEVATOR-ARRIVE<+<RANDOM 40> 80>>>
+		       <TELL "The red door begins vibrating a bit." CR>)>)>>
+
+<ROUTINE I-UPPER-ELEVATOR-ARRIVE ()
+	 <FSET ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+	 <SETG UPPER-ELEVATOR-UP <>>
+	 <DISABLE <INT I-UPPER-ELEVATOR-ARRIVE>>
+	 <COND (<EQUAL? ,HERE ,ELEVATOR-LOBBY>
+		<TELL CR 
+"The door at the north end of the room slides open." CR>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE I-LOWER-ELEVATOR-ARRIVE ()
+	 <FSET ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+	 <SETG LOWER-ELEVATOR-UP T>
+	 <DISABLE <INT I-LOWER-ELEVATOR-ARRIVE>>
+	 <COND (<EQUAL? ,HERE ,ELEVATOR-LOBBY>
+		<TELL CR
+"The door at the south end of the room slides open." CR>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT ELEVATOR-BUTTON
+	(LOC LOCAL-GLOBALS)
+	(DESC "button")
+	(SYNONYM BUTTON)
+	(FLAGS NDESCBIT)
+        (ACTION ELEVATOR-BUTTON-F)>
+
+;"*-ELEVATOR-UP should be <> if elevator is at bottom of shaft and T if
+elevator is at top of shaft"
+
+<GLOBAL LOWER-ELEVATOR-UP <>>
+
+<GLOBAL UPPER-ELEVATOR-UP T>
+
+<GLOBAL ELEVATOR-IN-TRANSIT <>> ;"should be T if elevator is in transit"
+
+<GLOBAL LOWER-ELEVATOR-ON <>> ;"elevator enabled by card in slot?"
+
+<GLOBAL UPPER-ELEVATOR-ON <>> ;"elevator enabled by card in slot?"
+
+<ROUTINE ELEVATOR-BUTTON-F ()
+	 <COND (<VERB? PUSH-UP>
+		<COND (<AND <EQUAL? ,HERE ,LOWER-ELEVATOR>
+			    <EQUAL? ,LOWER-ELEVATOR-UP <>>
+			    <EQUAL? ,LOWER-ELEVATOR-ON T>
+			    <EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
+		       <TELL ,ELEVATOR-STARTS CR>
+		       <FCLEAR ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+		       <SETG ELEVATOR-IN-TRANSIT T>
+		       <ENABLE <QUEUE I-LOWER-ELEVATOR-TRIP 100>>)
+		      (<AND <EQUAL? ,HERE ,UPPER-ELEVATOR>
+			    <EQUAL? ,UPPER-ELEVATOR-UP <>>
+			    <EQUAL? ,UPPER-ELEVATOR-ON T>
+			    <EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
+		       <TELL ,ELEVATOR-STARTS CR>
+		       <FCLEAR ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+		       <SETG ELEVATOR-IN-TRANSIT T>
+		       <ENABLE <QUEUE I-UPPER-ELEVATOR-TRIP 50>>)
+		      (T
+		       <TELL "Nothing happens." CR>)>)
+	       (<VERB? PUSH-DOWN>
+		<COND (<AND <EQUAL? ,HERE ,LOWER-ELEVATOR>
+			    <EQUAL? ,LOWER-ELEVATOR-UP T>
+			    <EQUAL? ,LOWER-ELEVATOR-ON T>
+			    <EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
+		       <TELL ,ELEVATOR-STARTS CR>
+		       <FCLEAR ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+		       <SETG ELEVATOR-IN-TRANSIT T>
+		       <ENABLE <QUEUE I-LOWER-ELEVATOR-TRIP 100>>)
+		      (<AND <EQUAL? ,HERE ,UPPER-ELEVATOR>
+			    <EQUAL? ,UPPER-ELEVATOR-UP T>
+			    <EQUAL? ,UPPER-ELEVATOR-ON T>
+			    <EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
+		       <TELL ,ELEVATOR-STARTS CR>
+		       <FCLEAR ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+		       <SETG ELEVATOR-IN-TRANSIT T>
+		       <ENABLE <QUEUE I-UPPER-ELEVATOR-TRIP 50>>)
+		      (T
+		       <TELL "Nothing happens." CR>)>)
+	       (<VERB? PUSH>
+		<TELL
+"You must specify whether you want to push the Up button or
+the Down button." CR>)>>
+
+<ROUTINE I-TURNOFF-UPPER-ELEVATOR ()
+	 <COND (,ELEVATOR-IN-TRANSIT
+		<ENABLE <QUEUE I-TURNOFF-UPPER-ELEVATOR 120>>)
+	       (T
+		<SETG UPPER-ELEVATOR-ON <>>
+		<COND (<EQUAL? ,HERE ,UPPER-ELEVATOR>
+		       <TELL CR ,ELEVATOR-LIGHT-OFF CR>)>)>
+	 <RFALSE>>
+
+<ROUTINE I-TURNOFF-LOWER-ELEVATOR ()
+	 <COND (,ELEVATOR-IN-TRANSIT
+		<ENABLE <QUEUE I-TURNOFF-LOWER-ELEVATOR 120>>)
+	       (T
+		<SETG LOWER-ELEVATOR-ON <>>
+		<COND (<EQUAL? ,HERE ,LOWER-ELEVATOR>
+		       <TELL CR ,ELEVATOR-LIGHT-OFF CR>)>)>
+	 <RFALSE>>
+
+<CONSTANT ELEVATOR-LIGHT-OFF 
+"A recording says \"Elevator no longer enabled.\"">
+
+<CONSTANT ELEVATOR-STARTS
+"The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.">
+
+<ROUTINE I-UPPER-ELEVATOR-TRIP ()
+	 <COND (<EQUAL? ,UPPER-ELEVATOR-UP T>
+		<SETG UPPER-ELEVATOR-UP <>>
+		<SETG ELEVATOR-IN-TRANSIT <>>
+		<FSET ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+		<CRLF>
+		<ELEVATOR-DOOR-OPENS>)
+	       (T
+		<SETG UPPER-ELEVATOR-UP T>
+		<SETG ELEVATOR-IN-TRANSIT <>>
+		<FSET ,UPPER-ELEVATOR-DOOR ,OPENBIT>
+		<CRLF>
+		<ELEVATOR-DOOR-OPENS>)>>
+
+<ROUTINE I-LOWER-ELEVATOR-TRIP ()
+	 <COND (<EQUAL? ,LOWER-ELEVATOR-UP T>
+		<SETG LOWER-ELEVATOR-UP <>>
+		<SETG ELEVATOR-IN-TRANSIT <>>
+		<FSET ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+		<CRLF>
+		<ELEVATOR-DOOR-OPENS>)
+	       (T
+		<SETG LOWER-ELEVATOR-UP T>
+		<SETG ELEVATOR-IN-TRANSIT <>>
+		<FSET ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+		<CRLF>
+		<ELEVATOR-DOOR-OPENS>)>>
+
+<ROUTINE ELEVATOR-DOOR-OPENS ()
+	 <TELL "The elevator door slides open." CR>>
+
+<ROOM BOOTH-2
+      (LOC ROOMS)
+      (DESC "Booth 2")
+      (LDESC
+"This is a tiny room with a large \"2\" painted on the wall. A panel contains
+a slot about ten centimeters wide, a brown button labelled \"1\" and a tan
+button labelled \"3.\"")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO ELEVATOR-LOBBY)
+      (OUT TO ELEVATOR-LOBBY)
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "BOOTH" IN-BOOTH-PSEUDO)
+      (GLOBAL CONTROLS SLOT TELEPORTATION-BUTTON-1 TELEPORTATION-BUTTON-3)>
+
+<ROOM TOWER-CORE
+      (LOC ROOMS)
+      (DESC "Tower Core")
+      (LDESC
+"This is a small, circular room. A sliding door leads north, and a spiral
+staircase heads upwards. Other exits lie to the northeast and southwest.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO UPPER-ELEVATOR)
+      (UP TO HELIPAD)
+      (SW TO OBSERVATION-DECK)
+      (NE TO COMM-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 4)
+      (GLOBAL STAIRS UPPER-ELEVATOR-DOOR)>
+
+<ROOM HELIPAD
+      (LOC ROOMS)
+      (DESC "Helipad")
+      (LDESC
+"You are at the center of a wide, flat area atop the tower. A fence
+prevents you from approaching the perimeter, so your view is limited to
+cloud-filled sky. A large vehicle, severely weathered and topped with rotor
+blades, lies nearby. A spiral staircase leads down into the tower.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"15  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN TO TOWER-CORE)
+      (IN TO HELICOPTER)
+      (EAST SORRY "A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.")
+      (WEST SORRY "A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.")
+      (NORTH SORRY "A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.")
+      (SOUTH SORRY "A fence keeps you away from the edge, where you would
+probably be swept over the brink by the high winds.")
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "FENCE" FENCE-PSEUDO)
+      (GLOBAL STAIRS HELICOPTER-OBJECT)>
+
+<OBJECT HELICOPTER-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "large vehicle")
+	(SYNONYM VEHICLE HELICOPTER)
+	(ADJECTIVE LARGE)
+	(FLAGS VEHBIT NDESCBIT)
+	(ACTION HELICOPTER-OBJECT-F)>
+
+<ROUTINE HELICOPTER-OBJECT-F ()
+	 <COND (<VERB? THROUGH BOARD WALK-TO>
+		<COND (<EQUAL? ,HERE ,HELIPAD>
+		       <GOTO ,HELICOPTER>)
+		      (T
+		       <TELL "You're in it!" CR>)>)
+	       (<VERB? EXIT DROP DISEMBARK>
+		<COND (<EQUAL? ,HERE ,HELICOPTER>
+		       <GOTO ,HELIPAD>)
+		      (T
+		       <TELL "You're not in it!" CR>)>)
+	       (<VERB? FLY>
+		<COND (<EQUAL? ,HERE ,HELICOPTER>
+		       <TELL "The controls seem to be locked." CR>)
+		      (T
+		       <TELL "You're not even in it!" CR>)>)>>
+
+<ROOM HELICOPTER
+      (LOC ROOMS)
+      (DESC "Helicopter")
+      (LDESC
+"This is a large vehicle with a lot of cargo space. A complex control panel
+is closed and locked. Everything is covered with a thick layer of rust.
+Through the windows of the vehicle you can see a wide Helipad, and beyond
+that, endless ocean far below. Several doors lead out to the Helipad.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (OUT TO HELIPAD)
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "LOCK" LOCK-PSEUDO)
+      (GLOBAL OCEAN CONTROLS WINDOW HELICOPTER-OBJECT)>
+
+<ROOM COMM-ROOM
+      (LOC ROOMS)
+      (DESC "Comm Room")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SW TO TOWER-CORE)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL LIGHTS)
+      (PSEUDO "CABLES" CABLES-PSEUDO "ENUNCIATOR" ENUNCIATOR-PSEUDO)
+      (ACTION COMM-ROOM-F)>
+
+<ROUTINE COMM-ROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a small room with no windows. The sole exit is southwest. Two wide
+consoles fill either end of the room; thick cables lead up into the ceiling.|
+|
+The console on the left side of the room is labelled \"Reeseev Staashun.\" A
+bright red light, labelled \"Tranzmishun Reeseevd\", is blinking rapidly.
+Next to the light is a glowing button marked \"Mesij Plaabak.\"|
+|
+The console on the right side of the room is labelled \"Send Staashun.\" A
+screen on the console displays a message. Next to the screen is a flashing
+sign which says ">
+		<COND (,COMM-SHUTDOWN
+		       <SHUTDOWN>)
+		      (,COMM-FIXED
+		       <TELL "\"Tranzmishun in pragres.\"">)
+		      (T
+		       <TELL "\"Malfunkshun in Sendeeng Kuulint Sistum.\"">)>
+		<TELL " Next to this console is an enunciator">
+		<COND (<OR ,COMM-FIXED ,COMM-SHUTDOWN>
+		       <TELL " whose lights are all dark">)>
+		<TELL
+". On the console next to the enunciator panel is a funnel-shaped hole
+labelled \"Kuulint Sistum Manyuuwul Oovuriid.\"" CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <NOT ,COMM-FIXED>
+		     <NOT ,COMM-SHUTDOWN>
+		     ,JUST-ENTERED>
+		<ENABLE <QUEUE I-UNENTER -1>>
+		<SETG JUST-ENTERED <>>
+	        <TELL "A ">
+		<COND (<EQUAL? ,CHEMICAL-REQUIRED 1>
+		       <TELL "red">)
+		      (<EQUAL? ,CHEMICAL-REQUIRED 2>
+		       <TELL "blue">)
+		      (<EQUAL? ,CHEMICAL-REQUIRED 3>
+		       <TELL "green">)
+		      (<EQUAL? ,CHEMICAL-REQUIRED 4>
+		       <TELL "yellow">)
+		      (<EQUAL? ,CHEMICAL-REQUIRED 5>
+		       <TELL "gray">)
+		      (<EQUAL? ,CHEMICAL-REQUIRED 6>
+		       <TELL "brown">)
+		      (<EQUAL? ,CHEMICAL-REQUIRED 7>
+		       <TELL "black">)>
+		<TELL
+" colored light is flashing on the enunciator panel." CR>)>>
+
+<GLOBAL JUST-ENTERED T>
+
+<ROUTINE I-UNENTER ()
+	 <COND (<NOT <EQUAL? ,HERE ,COMM-ROOM>>
+		<SETG JUST-ENTERED T>
+		<DISABLE <INT I-UNENTER>>)>
+	 <RFALSE>>
+
+<OBJECT RECEIVE-CONSOLE
+	(LOC COMM-ROOM)
+	(DESC "communications receive console")
+	(C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+	(SYNONYM CONSOLE CONTROL)
+	(ADJECTIVE COMMUNICATIONS RECEIVE LEFT FIRST)
+	(FLAGS NDESCBIT)>
+
+<OBJECT PLAYBACK-BUTTON
+	(LOC COMM-ROOM)
+	(DESC "glowing button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE GLOWING PLAYBACK)
+	(FLAGS NDESCBIT)
+	(ACTION PLAYBACK-BUTTON-F)>
+
+<ROUTINE PLAYBACK-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<TELL
+"A voice fills the room ... the voice of the Feinstein's communications
+officer! \"Stellar Patrol Ship Feinstein to planetside ... Please respond
+on frequency 48.5 ... SPS Feinstein to planetside ... Please come in ...\"
+After a pause you hear the officer, in a quieter voice, say \"Admiral, no
+response on any of the standard frequen...\" The sentence is cut short by the
+sound of an explosion and a loud burst of static, followed by silence." CR>)>>
+
+<OBJECT SEND-CONSOLE
+	(LOC COMM-ROOM)
+	(DESC "communication send console")
+	(SYNONYM CONSOLE CONTROL)
+	(ADJECTIVE COMMUNICATIONS SEND RIGHT SECOND)
+	(FLAGS NDESCBIT)>
+
+<OBJECT COMM-SCREEN
+	(LOC COMM-ROOM)
+	(DESC "screen")
+	(SYNONYM COMMUNICATIONS MESSAGE SCREEN)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT
+"\"Tuu enee ship uv xe Sekund Galaktik Yuunyun: Planitwiid plaag haz struk
+entiir popyuulaashun. Tiim iz kritikul. Eemurjensee asistins reekwestid.
+<reepeet mesij>\"")>
+
+<OBJECT FUNNEL-HOLE
+	(LOC COMM-ROOM)
+	(DESC "funnel-shaped hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE FUNNEL SHAPED FUNNEL-SHAPED)
+	(FLAGS NDESCBIT)>
+
+<OBJECT CHEMICAL-FLUID
+	(DESC "quantity of chemical fluid")
+	(SYNONYM QUANTITY LIQUID FLUID CHEMICAL)
+	(ADJECTIVE MILKY WHITE CHEMICAL)
+	(ACTION CHEMICAL-FLUID-F)>
+
+<ROUTINE RANDOMIZE-ORDER ("AUX" (COUNT 0) TEMP)
+	 <REPEAT ()
+		 <COND (<G? <SET COUNT <+ .COUNT 1>> 7>
+			<RETURN>)
+		       (T
+			<PUT ,ORDER-LTBL .COUNT <>>)>>
+	 <SET COUNT 0>
+	 <REPEAT ()
+		 <COND (<G? <SET COUNT <+ .COUNT 1>> 7>
+			<RETURN>)
+		       (T
+			<SET TEMP <RANDOM 7>>
+			<COND (<OR <EQUAL? .TEMP <GET ,ORDER-LTBL 1>
+					         <GET ,ORDER-LTBL 2>
+					         <GET ,ORDER-LTBL 3>>
+				   <EQUAL? .TEMP <GET ,ORDER-LTBL 4>
+					         <GET ,ORDER-LTBL 5>
+						 <GET ,ORDER-LTBL 6>>
+				   <EQUAL? .TEMP <GET ,ORDER-LTBL 7>>>
+			       <SET COUNT <- .COUNT 1>>)
+			      (T
+			       <PUT ,ORDER-LTBL .COUNT .TEMP>)>)>>>
+
+<GLOBAL ORDER-LTBL
+	<LTABLE 0 0 0 0 0 0 0>>
+
+<GLOBAL STEPS-TO-GO 0>
+
+<ROUTINE CHEMICAL-FLUID-F ()
+	 <COND (<VERB? EAT>
+		<JIGS-UP
+"Mmmmm....that tasted just like delicious poisonous chemicals!">)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,CHEMICAL-FLUID>>
+		<PERFORM ,V?PUT ,PRSO ,FLASK>
+		<RTRUE>)
+	       (<AND <VERB? THROW POUR>
+		     <OR <EQUAL? ,PRSI ,RAT-ANT ,TROLL>
+			 <EQUAL? ,PRSI ,GRUE ,TRIFFID>>>
+		<COND (<NOT <HELD? ,FLASK>>
+		       <TELL "You're not holding the flask." CR>
+		       <RTRUE>)>
+		<REMOVE ,CHEMICAL-FLUID>
+		<TELL
+"The mutants lap up the chemical, howling with delight. One immediately
+grows three new mouths." CR>)
+	       (<VERB? PUT POUR>
+		<COND (<NOT <HELD? ,FLASK>>
+		       <TELL "You're not holding the flask." CR>
+		       <RTRUE>)
+		      (<EQUAL? ,PRSI ,CANTEEN>
+		       <WORTHLESS-ACTION>
+		       <RTRUE>)>
+		<REMOVE ,CHEMICAL-FLUID>
+		<COND (<NOT ,PRSI>
+		       <SETG PRSI ,GROUND>)>
+		<COND (<EQUAL? ,PRSI ,FUNNEL-HOLE>
+		       <COND (<EQUAL? ,CHEMICAL-FLAG ,CHEMICAL-REQUIRED>
+			      <SETG CHEMICAL-REQUIRED 
+				    <GET ,ORDER-LTBL ,STEPS-TO-GO>>
+			      <SETG STEPS-TO-GO <- ,STEPS-TO-GO 1>>
+			      <TELL
+"The liquid disappears into the hole. The lights on the enunciator
+panel blink rapidly ">
+			      <COND (<EQUAL? ,STEPS-TO-GO 0>
+				     <SETG COMM-FIXED T>
+				     <SETG SCORE <+ ,SCORE 6>>
+				     <SETG CHEMICAL-REQUIRED 10>
+				     <TELL
+"and then go dark. The coolant system warning light goes off, and another
+flashes, indicating that the help message is now being sent." CR>)
+				    (T
+				     <TELL "and all go off except one, a ">
+				     <COND (<EQUAL? ,CHEMICAL-REQUIRED 1>
+					    <TELL "red">)
+					   (<EQUAL? ,CHEMICAL-REQUIRED 2>
+					    <TELL "blue">)
+					   (<EQUAL? ,CHEMICAL-REQUIRED 3>
+					    <TELL "green">)
+					   (<EQUAL? ,CHEMICAL-REQUIRED 4>
+					    <TELL "yellow">)
+					   (<EQUAL? ,CHEMICAL-REQUIRED 5>
+					    <TELL "gray">)
+					   (<EQUAL? ,CHEMICAL-REQUIRED 6>
+					    <TELL "brown">)
+					   (<EQUAL? ,CHEMICAL-REQUIRED 7>
+					    <TELL "black">)>
+				     <TELL " light." CR>)>)
+			     (T
+			      <SETG COMM-SHUTDOWN T>
+			      <COND (,COMM-FIXED
+				     <SETG SCORE <- ,SCORE 6>>
+				     <SETG COMM-FIXED <>>)>
+			      <TELL
+"An alarm sounds briefly, and a sign flashes ">
+			      <SHUTDOWN>
+			      <TELL 
+" A moment later, the lights in the room dim and the send
+console shuts down." CR>)>)
+		      (<EQUAL? ,CHEMICAL-FLAG 8 9>
+		       <COND (<FSET? ,PRSI ,ACIDBIT>
+			      <COND (<EQUAL? ,PRSI ,SPOUT-PLACED>
+				     <SETG SPOUT-PLACED ,GROUND>)>
+			      <REMOVE ,PRSI>
+			      <TELL
+"The " D ,PRSI " dissolves right before your eyes!">
+			      <COND (<AND <EQUAL? ,PRSI ,BAD-BEDISTOR>
+					 <NOT <FSET? ,BAD-BEDISTOR ,TOUCHBIT>>>
+				     <FSET ,CUBE ,MUNGEDBIT>
+				     <CUBE-SEEMS>)
+				    (<AND <EQUAL? ,PRSI ,GOOD-BEDISTOR>
+					  ,COURSE-CONTROL-FIXED>
+				     <FSET ,CUBE ,MUNGEDBIT>
+				     <SETG SCORE <- ,SCORE 6>>
+				     <SETG COURSE-CONTROL-FIXED <>>
+				     <CUBE-SEEMS>)>
+			      <CRLF>
+			      <RTRUE>)
+			     (<AND <EQUAL? ,CREVICE ,PRSI>
+				   <NOT <FSET? ,KEY ,TOUCHBIT>>>
+			      <COND (<FSET? ,KEY ,INVISIBLE>
+				     <TELL
+"A puff of smoke rises from the crevice." CR>)
+				    (T
+				     <TELL
+"Although the chemical has no effect on the crevice, it does seem to have
+dissolved the key that was lying in it." CR>)>
+			      <REMOVE ,KEY>
+			      <FSET ,KEY ,TOUCHBIT>
+			      <FCLEAR ,KEY ,INVISIBLE>)
+			     (<EQUAL? ,PRSI ,HIGH-PROTEIN ,MEDICINE>
+			      <JIGS-UP
+"Unfortunately, those two liquids seem to react quite violently with each
+other. The resulting exothermic reaction might have been interesting to
+watch from a distance of, say, several hundred feet.">)
+			     (<EQUAL? ,PRSI ,ME ,ADVENTURER ,HANDS>
+			      <JIGS-UP
+"Have you always had this desire to see melting flesh?">)
+			     (<AND <EQUAL? ,PRSI ,FLOYD>
+				   <FSET? ,FLOYD ,RLANDBIT>>
+			      <TELL
+"Floyd yelps. \"Hey, cut it out! That stuff burns!\"" CR>)
+			     (<EQUAL? ,PRSI ,MICROBE>
+			      <TELL "The microbe writhes in pain. ">
+			      <STRIP-DISSOLVES>)
+			     (<EQUAL? ,PRSI ,STRIP ,RELAY>
+			      <STRIP-DISSOLVES>)
+			     (<FSET? ,PRSI ,MUNGBIT>
+			      <FSET ,PRSI ,MUNGEDBIT>
+			      <COND (<EQUAL? ,PRSI ,CHRONOMETER>
+				     <SETG MUNGED-TIME ,INTERNAL-MOVES>)>
+			      <TELL
+"The " D ,PRSI " seems to undergo some damage as a result of your action." CR>
+			      <COND (<AND <EQUAL? ,PRSI ,CUBE>
+					  ,COURSE-CONTROL-FIXED>
+				     <SETG COURSE-CONTROL-FIXED <>>
+				     <REMOVE ,GOOD-BEDISTOR>
+				     <SETG SCORE <- ,SCORE 6>>
+				     <TELL
+"The bedistor also happens to dissolve." CR>)>
+			      <RTRUE>)
+			     (T
+			      <CHEMICAL-POURS>)>)
+		      (T
+		       <CHEMICAL-POURS>)>)>>
+
+<ROUTINE CUBE-SEEMS ()
+	 <TELL
+" Unfortunately, the cube seems to undergo some damage as well.">>
+
+<ROUTINE CHEMICAL-POURS ()
+	 <TELL
+"The chemical pours all over the " D ,PRSI ", making quite a mess." CR>>
+
+<ROUTINE STRIP-DISSOLVES ()
+	 <JIGS-UP
+"The chemical drips all over the silicon strip, which immediately begins to
+dissolve. As it does so, you plunge into the void below.">> 
+
+<GLOBAL COMM-SHUTDOWN <>>
+
+<ROUTINE SHUTDOWN ()
+	 <TELL
+"\"Kuulint Sistum Imbalins Kritikul -- Shuteeng Down Awl Sistumz.\"">>
+
+<ROUTINE COMM-SETUP () ;"was called by GO - now by I-RANDOM-INTERRUPTS"
+	 <SETG OLD-SHOTS <+ 2 <RANDOM 3>>>
+	 <SETG NEW-SHOTS <+ 20 <RANDOM 10>>>
+	 <RANDOMIZE-ORDER>
+	 <SETG STEPS-TO-GO <+ 1 <RANDOM 2>>>
+	 <SETG CHEMICAL-REQUIRED <GET ,ORDER-LTBL <+ ,STEPS-TO-GO 1>>>>
+
+<GLOBAL COMM-FIXED <>>
+
+<GLOBAL CHEMICAL-REQUIRED 0>
+
+
+<ROOM OBSERVATION-DECK
+      (LOC ROOMS)
+      (DESC "Observation Deck")
+      (LDESC
+"This is a balcony girdling the tower. The view is breathtaking; the tower
+must be half a kilometer tall. From here it is clear that you are on an
+island. The dormitory section of the complex is visible on the other side
+of the island, and the rest of the complex sprawls out directly below. In
+the distance, about 20 kilometers to the east, you can spot another island
+similar to this one. The only exit is a doorway leading northeast.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NE TO TOWER-CORE)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL OCEAN)>
+
+<ROOM WAITING-AREA
+      (LOC ROOMS)
+      (DESC "Waiting Area")
+      (LDESC
+"This is a concrete platform sparsely furnished with benches. The platform
+continues to the east, and to the south is a metal door.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO KALAMONTEE-PLATFORM)
+      (SOUTH PER OTHER-ELEVATOR-ENTER-F)
+      (IN PER OTHER-ELEVATOR-ENTER-F)
+      (PSEUDO "BENCH" BENCH-PSEUDO "BENCHES" BENCH-PSEUDO)
+      (GLOBAL LOWER-ELEVATOR-DOOR)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROUTINE OTHER-ELEVATOR-ENTER-F ()
+	 <COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
+		     <NOT ,LOWER-ELEVATOR-UP>>
+		,LOWER-ELEVATOR)
+	       (T
+		<DOOR-CLOSED>
+		<THIS-IS-IT ,LOWER-ELEVATOR-DOOR>
+		<RFALSE>)>>
+
+<ROOM KALAMONTEE-PLATFORM
+      (LOC ROOMS)
+      (DESC "Kalamontee Platform")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO WAITING-AREA)
+      (SOUTH PER SHUTTLE-ENTER-F)
+      (NORTH PER SHUTTLE-ENTER-F)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 4)
+      (GLOBAL GLOBAL-SHUTTLE)
+      (ACTION KALAMONTEE-PLATFORM-F)>
+
+<ROUTINE KALAMONTEE-PLATFORM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a wide, flat strip of concrete which continues westward. ">
+		<COND (<AND ,BETTY-AT-KALAMONTEE ,ALFIE-AT-KALAMONTEE>
+		       <TELL
+"Open shuttle cars lie on the north and south sides of the platform. ">)
+		      (,BETTY-AT-KALAMONTEE
+		       <TELL
+"An open shuttle car lies to the north. ">)
+		      (,ALFIE-AT-KALAMONTEE
+		       <TELL
+"A large transport of some sort lies to the south, its open door
+beckoning you to enter. ">)>
+		<TELL "A faded sign on the wall reads \"Shutul Platform --
+Kalamontee Staashun.\"" CR>)>>
\ No newline at end of file
diff --git a/comptwo.zabstr b/comptwo.zabstr
new file mode 100644
index 0000000..93f6f03
--- /dev/null
+++ b/comptwo.zabstr
@@ -0,0 +1,711 @@
+
+<ROOM LAWANDA-PLATFORM (LOC ROOMS) (DESC "Lawanda Platform") (C-MOVE <TABLE 0 0
+0 30 0 0 0 0 0 0 0 0>) (NORTH PER SHUTTLE-ENTER-F) (SOUTH PER SHUTTLE-ENTER-F)
+(EAST TO ESCALATOR) (UP TO ESCALATOR) (FLAGS FLOYDBIT RLANDBIT ONBIT) (VALUE 4)
+(GLOBAL GLOBAL-SHUTTLE STAIRS) (PSEUDO "ESCALATOR" ESCALATOR-PSEUDO) (ACTION
+LAWANDA-PLATFORM-F)> 
+<GLOBAL LAWANDA-PLATFORM-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE LAWANDA-PLATFORM-F> 
+<ROOM ESCALATOR (LOC ROOMS) (DESC "Escalator") (LDESC
+"You are in the middle of a long mechanical stairway. It is not running,
+and seems to be in disrepair.") (C-MOVE <TABLE 0 0 15 30 0 0 0 0 0 0 0 0>) (UP
+TO FORK) (EAST TO FORK) (DOWN TO LAWANDA-PLATFORM) (WEST TO LAWANDA-PLATFORM) (
+GLOBAL STAIRS) (PSEUDO "ESCALATOR" ESCALATOR-PSEUDO) (FLAGS RLANDBIT FLOYDBIT
+ONBIT)> 
+<ROOM FORK (LOC ROOMS) (DESC "Fork") (LDESC
+"This is a hallway which forks to the northeast and southeast. To the west
+is the top of a long escalator.") (C-MOVE <TABLE 0 0 15 0 0 0 0 0 25 0 25 0>) (
+WEST TO ESCALATOR) (DOWN TO ESCALATOR) (NE TO SYSTEMS-CORRIDOR-WEST) (SE TO
+PROJECT-CORRIDOR-WEST) (GLOBAL STAIRS) (PSEUDO "ESCALATOR" ESCALATOR-PSEUDO) (
+FLAGS FLOYDBIT RLANDBIT ONBIT)> 
+^L 
+<ROOM INFIRMARY (LOC ROOMS) (DESC "Infirmary") (LDESC
+"You have entered a clean, well-lighted place. There are a number of beds,
+some complicated looking equipment, and many shelves that are mostly bare.") (
+C-MOVE <TABLE 25 0 0 0 0 0 0 0 25 0 0 0>) (SE TO SYSTEMS-CORRIDOR-WEST) (OUT TO
+SYSTEMS-CORRIDOR-WEST) (FLAGS RLANDBIT ONBIT) (GLOBAL BED SHELVES) (PSEUDO
+"EQUIPMENT" EQUIPMENT-PSEUDO "MACHINE" EQUIPMENT-PSEUDO) (ACTION INFIRMARY-F)> 
+<OBJECT LAZARUS-PART (DESC "medical robot breastplate") (SYNONYM LAZARUS PART
+PLATE BREASTPLATE) (ADJECTIVE MEDICAL BREAST) (SIZE 35) (FLAGS TAKEBIT)> 
+<GLOBAL LAZARUS-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE INFIRMARY-F> 
+<OBJECT RED-SPOOL (LOC INFIRMARY) (DESC "red spool") (FDESC
+"Lying on one of the beds is a small red spool.") (SYNONYM SPOOL SPOOLS OBJECT)
+(ADJECTIVE RED SMALL) (SIZE 3) (TEXT
+"The spool is labelled \"Simptumz uv Xe Dizeez.\"") (FLAGS TAKEBIT ACIDBIT
+READBIT) (ACTION RED-SPOOL-F)> 
+<DEFINE-ROUTINE RED-SPOOL-F> 
+<OBJECT MEDICINE-BOTTLE (LOC INFIRMARY) (DESC "medicine bottle") (FDESC
+"On a low shelf is a translucent bottle with a small white label.") (SYNONYM
+BOTTLE LABEL) (ADJECTIVE MEDICINE SMALL WHITE TRANSLUCENT) (SIZE 7) (CAPACITY 7
+) (TEXT "\"Dizeez supreshun medisin -- eksperimentul\"") (FLAGS CONTBIT
+SEARCHBIT TAKEBIT TRANSBIT READBIT)> 
+<OBJECT MEDICINE (LOC MEDICINE-BOTTLE) (DESC "quantity of medicine") (FDESC
+"At the bottom of the bottle is a small quantity of medicine.") (SYNONYM
+MEDICINE QUANTITY) (ADJECTIVE SMALL QUANTITY EXPERIMENTAL) (SIZE 7) (FLAGS
+FOODBIT) (ACTION MEDICINE-F)> 
+<DEFINE-ROUTINE MEDICINE-F> 
+<ROOM REPAIR-ROOM (LOC ROOMS) (DESC "Repair Room") (LDESC
+"You are in a dimly lit room, filled with strange machines and wide storage
+cabinets, all locked. To the south, a narrow stairway leads upward. On the
+north wall of the room is a very small doorway.") (C-MOVE <TABLE 0 0 0 30 0 0 0
+0 0 0 0 0>) (UP TO SYSTEMS-CORRIDOR-WEST) (SOUTH TO SYSTEMS-CORRIDOR-WEST) (
+NORTH SORRY "It is a robot-sized doorway -- a bit too small for you.") (FLAGS
+RLANDBIT FLOYDBIT ONBIT) (GLOBAL STAIRS) (PSEUDO "CABINETS" CABINETS-PSEUDO
+"MACHINE" EQUIPMENT-PSEUDO)> 
+<GLOBAL ACHILLES-FLAG <> %<> WORD> 
+<OBJECT ACHILLES (LOC REPAIR-ROOM) (DESC "broken robot") (LDESC
+"Lying face down at the bottom of the stairs is a motionless robot. It
+appears to be damaged beyond repair.") (SYNONYM ROBOT ACHILLES) (ADJECTIVE
+BROKEN DEAD)> 
+<OBJECT ROBOT-HOLE (LOC REPAIR-ROOM) (DESC "small doorway") (SYNONYM DOOR
+DOORWAY HOLE) (ADJECTIVE SMALL VERY) (FLAGS NDESCBIT TRANSBIT CONTBIT) (
+CAPACITY 0) (ACTION ROBOT-HOLE-F)> 
+<DEFINE-ROUTINE ROBOT-HOLE-F> 
+<GLOBAL HOLE-TRIP-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE FLOYD-THROUGH-HOLE> 
+<OBJECT GOOD-BOARD (LOC ROBOT-HOLE) (DESC
+"shiny seventeen-centimeter fromitz board") (SYNONYM BOARD BOARDS) (ADJECTIVE
+SHINY GOOD SEVENTEEN CENTIMETER FROMITZ) (SIZE 10) (FLAGS ACIDBIT INVISIBLE
+NDESCBIT) (ACTION GOOD-BOARD-F)> 
+<DEFINE-ROUTINE GOOD-BOARD-F> 
+<GLOBAL BOARD-REPORTED <> %<> WORD> 
+<ROOM SYSTEMS-CORRIDOR-WEST (LOC ROOMS) (DESC "Systems Corridor West") (LDESC
+"The corridor bends here, leading east and southwest. A doorway opens
+to the northwest, and a narrow stairway leads down to the north.") (C-MOVE <
+TABLE 0 0 15 0 0 0 25 0 0 0 0 0>) (NW TO INFIRMARY) (NORTH TO REPAIR-ROOM) (
+DOWN TO REPAIR-ROOM) (EAST TO SYSTEMS-CORRIDOR) (SW TO FORK) (FLAGS ONBIT
+RLANDBIT) (GLOBAL STAIRS)> 
+<ROOM SYSTEMS-CORRIDOR (LOC ROOMS) (DESC "Systems Corridor") (LDESC
+"This section of hallway has a doorway to the north labelled \"Planateree
+Deefens.\" The corridor continues east and west.") (C-MOVE <TABLE 0 0 0 0 0 0 0
+0 0 0 0 0>) (NORTH TO PLANETARY-DEFENSE) (WEST TO SYSTEMS-CORRIDOR-WEST) (EAST
+TO SYSTEMS-CORRIDOR-EAST) (FLAGS RLANDBIT ONBIT)> 
+<ROOM SYSTEMS-CORRIDOR-EAST (LOC ROOMS) (DESC "Systems Corridor East") (LDESC
+"The hallway ends here with a large doorway leading east, and smaller doorways
+to the north and south. The northern doorway is labelled \"Planateree Kors
+Kontrool.\" The hallway itself leads west.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0
+0 0>) (WEST TO SYSTEMS-CORRIDOR) (SOUTH TO LIBRARY-LOBBY) (NORTH TO
+PLANETARY-COURSE-CONTROL) (EAST TO PHYSICAL-PLANT-TWO) (FLAGS RLANDBIT ONBIT)> 
+<ROOM PHYSICAL-PLANT-TWO (LOC ROOMS) (DESC "Physical Plant") (LDESC
+"This is an enormous room full of environmental control equipment presumably
+intended to heat and ventilate the Lawanda Complex. Oddly, although the
+Lawanda Complex is slightly smaller than its counterpart, this plant is much
+larger than the one in the Kalamontee Complex. The only exit is westward.") (
+C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO SYSTEMS-CORRIDOR-EAST) (OUT TO
+SYSTEMS-CORRIDOR-EAST) (FLAGS FLOYDBIT RLANDBIT ONBIT) (PSEUDO "EQUIPMENT"
+EQUIPMENT-PSEUDO)> 
+^L 
+<GLOBAL DEFENSE-FIXED <> %<> WORD> 
+<GLOBAL COURSE-CONTROL-FIXED <> %<> WORD> 
+<GLOBAL ACCESS-PANEL-FULL T %<> WORD> 
+<ROOM PLANETARY-DEFENSE (LOC ROOMS) (DESC "Planetary Defense") (C-MOVE <TABLE 0
+0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO SYSTEMS-CORRIDOR) (OUT TO SYSTEMS-CORRIDOR) (
+FLAGS RLANDBIT FLOYDBIT ONBIT) (GLOBAL CONTROLS LIGHTS) (ACTION
+PLANETARY-DEFENSE-F)> 
+<DEFINE-ROUTINE PLANETARY-DEFENSE-F> 
+<OBJECT ACCESS-PANEL (LOC PLANETARY-DEFENSE) (DESC "access panel") (SYNONYM
+PANEL DOOR SOCKET) (ADJECTIVE SMALL ACCESS REPAIR) (FLAGS VOWELBIT NDESCBIT
+CONTBIT SEARCHBIT) (CAPACITY 40) (ACTION ACCESS-PANEL-F)> 
+<DEFINE-ROUTINE ACCESS-PANEL-F> 
+<OBJECT FIRST-BOARD (LOC ACCESS-PANEL) (DESC
+"first seventeen-centimeter fromitz board") (SYNONYM BOARD BOARDS) (ADJECTIVE
+FIRST SEVENTEEN CENTIMETER FROMITZ) (ACTION BOARD-F)> 
+<OBJECT FOURTH-BOARD (LOC ACCESS-PANEL) (DESC
+"fourth seventeen-centimeter fromitz board") (SYNONYM BOARD BOARDS) (ADJECTIVE
+FOURTH SEVENTEEN CENTIMETER FROMITZ) (ACTION BOARD-F)> 
+<OBJECT THIRD-BOARD (LOC ACCESS-PANEL) (DESC
+"third seventeen-centimeter fromitz board") (SYNONYM BOARD BOARDS) (ADJECTIVE
+THIRD SEVENTEEN CENTIMETER FROMITZ) (ACTION BOARD-F)> 
+<OBJECT SECOND-BOARD (LOC ACCESS-PANEL) (DESC
+"second seventeen-centimeter fromitz board") (SYNONYM BOARD BOARDS) (ADJECTIVE
+SECOND SEVENTEEN CENTIMETER FROMITZ) (FLAGS TRYTAKEBIT TAKEBIT) (ACTION BOARD-F
+)> 
+<OBJECT FRIED-BOARD (DESC "fried seventeen-centimeter fromitz board") (SYNONYM
+BOARD BOARDS) (ADJECTIVE FRIED SEVENTEEN CENTIMETER FROMITZ) (SIZE 10) (FLAGS
+ACIDBIT TAKEBIT) (ACTION FRIED-BOARD-F)> 
+<DEFINE-ROUTINE FRIED-BOARD-F> 
+<GLOBAL ITS-CRACKED <> %<> WORD> 
+<DEFINE-ROUTINE BOARD-F> 
+<DEFINE-ROUTINE EXAMINE-BOARD> 
+<DEFINE-ROUTINE PUT-BOARD> 
+<DEFINE-ROUTINE BOARD-SHOCK> 
+<ROOM PLANETARY-COURSE-CONTROL (LOC ROOMS) (DESC "Course Control") (C-MOVE <
+TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (SOUTH TO SYSTEMS-CORRIDOR-EAST) (OUT TO
+SYSTEMS-CORRIDOR-EAST) (FLAGS FLOYDBIT RLANDBIT ONBIT) (GLOBAL CONTROLS LIGHTS)
+(ACTION PLANETARY-COURSE-CONTROL-F)> 
+<DEFINE-ROUTINE PLANETARY-COURSE-CONTROL-F> 
+<OBJECT CUBE (LOC PLANETARY-COURSE-CONTROL) (DESC "large metal cube") (SYNONYM
+CUBE LID SOCKET) (ADJECTIVE LARGE METAL) (FLAGS MUNGBIT NDESCBIT CONTBIT
+SEARCHBIT) (ACTION CUBE-F)> 
+<DEFINE-ROUTINE CUBE-F> 
+<OBJECT BAD-BEDISTOR (LOC CUBE) (DESC "fused ninety-ohm bedistor") (SYNONYM
+BEDISTOR) (ADJECTIVE FUSED NINETY OHM NINETY-OHM) (SIZE 8) (FLAGS ACIDBIT
+TRYTAKEBIT TAKEBIT) (ACTION BAD-BEDISTOR-F)> 
+<DEFINE-ROUTINE BAD-BEDISTOR-F> 
+^L 
+<ROOM LIBRARY-LOBBY (LOC ROOMS) (DESC "Library Lobby") (LDESC
+"This is a carpeted room, thick with dust, with exits to the north and south.
+To the west, up a few steps, is a wide doorway. A small booth lies to the
+east.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (UP TO LIBRARY) (WEST TO
+LIBRARY) (NORTH TO SYSTEMS-CORRIDOR-EAST) (SOUTH TO PROJECT-CORRIDOR-EAST) (
+EAST TO BOOTH-3) (IN TO BOOTH-3) (FLAGS FLOYDBIT RLANDBIT ONBIT) (GLOBAL TABLES
+STAIRS) (PSEUDO "CARPET" CARPET-PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)> 
+<OBJECT GREEN-SPOOL (LOC LIBRARY-LOBBY) (DESC "green spool") (FDESC
+"You catch a glimpse of a small object nestled among the dust.") (SYNONYM SPOOL
+SPOOLS OBJECT) (ADJECTIVE GREEN SMALL) (SIZE 3) (TEXT
+"The spool is labelled \"Helikoptur Opuraateeng Manyuuwul.\"") (FLAGS ACIDBIT
+TAKEBIT READBIT) (ACTION GREEN-SPOOL-F)> 
+<DEFINE-ROUTINE GREEN-SPOOL-F> 
+<ROOM BOOTH-3 (LOC ROOMS) (DESC "Booth 3") (LDESC
+"This is a tiny room with a large \"3\" painted on the wall. A panel contains
+a slot about ten centimeters wide, a brown button labelled \"1\" and a beige
+button labelled \"2.\"") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO
+LIBRARY-LOBBY) (OUT TO LIBRARY-LOBBY) (FLAGS RLANDBIT ONBIT) (GLOBAL CONTROLS
+SLOT TELEPORTATION-BUTTON-1 TELEPORTATION-BUTTON-2) (PSEUDO "BOOTH"
+IN-BOOTH-PSEUDO)> 
+<ROOM LIBRARY (LOC ROOMS) (DESC "Library") (LDESC
+"This is a large carpeted room with a desk and many small tables. The sole
+exit is down a few steps to the east.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>
+) (EAST TO LIBRARY-LOBBY) (OUT TO LIBRARY-LOBBY) (FLAGS RLANDBIT ONBIT FLOYDBIT
+) (GLOBAL TABLES STAIRS) (PSEUDO "CARPET" CARPET-PSEUDO "DESK" DESK-PSEUDO)> 
+<OBJECT TERMINAL (LOC LIBRARY-LOBBY) (DESC "terminal") (FDESC
+"Sitting on a wide table is a machine of sorts, consisting of a video
+screen and a keyboard. It is currently turned off.") (LDESC
+"On the table is a computer terminal.") (SYNONYM TERMINAL KEYBOARD SCREEN
+MACHINE) (ADJECTIVE COMPUTER VIDEO) (FLAGS LIGHTBIT) (ACTION TERMINAL-F)> 
+<GLOBAL SCREEN-TEXT <> %<> WORD> 
+<GLOBAL MENU-LEVEL 0 %<> WORD> 
+<DEFINE-ROUTINE TERMINAL-F> 
+<DEFINE-ROUTINE LIBRARY-TYPE> 
+<CONSTANT NO-MEANING
+"The terminal feeps, and a message briefly appears on the
+screen explaining that typing that character has no meaning at the moment."> 
+<CONSTANT SCREEN-CLEARS "The screen clears and a different menu appears:|"> 
+<CONSTANT TEXT-APPEARS "The screen clears and some text appears:|"> 
+<CONSTANT MORE-INFO
+"|
+\"Foor moor deetaald infoormaashun on xis tapik, konsult xe
+liibrereein foor xe aproopreeit spuulz. Tiip zeeroo tuu goo tuu
+aa hiiyur levul.\""> 
+<CONSTANT LOW-END
+"\"Yuu hav reect xe loowist levul uv xe liibreree indeks.
+Pleez tiip zeeroo tuu goo tuu aa hiiyur levul. If yuu reekwiir
+asistins, kawl xe liibrereein.\""> 
+<CONSTANT MAIN-MENU
+"    1. Histooree|
+    2. Kulcur|
+    3. Teknolojee|
+    4. Jeeografee|
+    5. Xe Prajekt|
+    6. Inturlajik Gaamz"> 
+<CONSTANT HISTORY-MENU
+"    0. Maan Menyuu|
+    1. Raashul Orijinz|
+    2. Graat Hiiaatus|
+    3. Riiz uv xe Nuu Teknakrasee"> 
+<CONSTANT CULTURE-MENU
+"    0. Maan Menyuu|
+    1. Lituracur|
+    2. Art|
+    3. Muusik"> 
+<CONSTANT TECHNOLOGY-MENU
+"    0. Maan Menyuu|
+    1. Medisin|
+    2. Agrikultcur|
+    3. Tranzportaashun|
+    4. Roobotiks|
+    5. Planateree Sistumz"> 
+<CONSTANT GEOGRAPHY-MENU
+"    0. Maan Menyuu|
+    1. Planit Landmasiz|
+    2. Undursee Reejunz|
+    3. Spaas Kolooneez"> 
+<CONSTANT PROJECT-MENU
+"    0. Maan Menyuu|
+    1. Orijinz uv xe Dizeez|
+    2. Xe Instalaashunz|
+    3. Prajekt Kuntrool|"> 
+<CONSTANT INTERLOGIC-MENU
+"    0. Maan Menyuu|
+    1. Zoork|
+    2. Dedliin and Witnis|
+    3. Starkros and Suspendid"> 
+<CONSTANT 11-TEXT
+"\"Xe aancint lejindz saa xat ships frum xe Sekund Yuunyun wuns fild ar skiis
+and wil wun daa kum agen. Madern siientists, huu wuns dismist suc lejindz
+and felt xat liif eevolvd heer on Resida, now feel xat ar planit wuz reelee
+setuld bii men uv xe Sekund Yuunyun.\""> 
+<CONSTANT 12-TEXT
+"\"Wexur oor not xe lejindz uv xe Sekund Yuunyun ar truu, arkeeoloojists ar
+surtin xat aa peereeid uv hii teknoolojikul and sooshul deevelupmint egzistid
+xowzindz uv yeerz agoo, but foor sum reezin sivilizaashun slid intuu aa dark
+aaj lasteeng senshureez.\""> 
+<CONSTANT 13-TEXT
+"\"Wixin xe last fiiv senshureez, xe riiz uv xe Nuu Teknakrasee haz reeturnd
+sivilizaashun tuu xe levul ataand beefoor xe Hiiaatus. Sooshul histooreeunz
+xink xat wen xe Dizeez struk, ar raas had aceevd aa levul uv sufistikaashun
+eekwal tuu xe pree-Hiiaatus.\""> 
+<CONSTANT 21-TEXT
+"\"Menee volyuumz on xe deevelupmint uv Residan lituracur ar on fiil in xe
+liibreree. Alsoo, kopeez uv awl graat wurks uv riiteeng, sum daateeng bak tuu
+xe mixikul daaz uv xe Sekund Yuunyun, ar lookaatid heer.\""> 
+<CONSTANT 22-TEXT
+"\"Histoorikul studeez and reeproodukshunz uv Residan art ar avaalibul heer
+foor awl xree maajur peereeids uv art deevelupmint: xe Primitiv peereeid, xe
+Renasans peereeid uv xe urlee poost-Hiiaatus, and xe moost reesint peereeid
+uv videeoo and laazur art.\""> 
+<CONSTANT 23-TEXT
+"\"Reekoordeengz uv awl impoortint kompoozishunz uv xe last fiiv hundrid yeerz
+ar lookaatid in xe liibrereez data banks.\""> 
+<CONSTANT 31-TEXT
+"\"Awl maajur dizeezuz hav bin kyuuribul foor oovur aa senshuree. Xe
+deevelupmint uv kriioojeniks now alowz dokturz tuu put paashints in staasis
+until aa kyuur iz fownd. Avurij Residan liif ekspektinsee iz now 147
+revooluushunz.\""> 
+<CONSTANT 32-TEXT
+"\"Durt farmeeng iz awl but obsooleet, wix moost fuud kumeeng frum xe
+hiidrooponiks kompleksiz oor xe undurwatur aljee farmz.\""> 
+<CONSTANT 33-TEXT
+"\"Planateree travul iz noormulee priivit skuutur foor shoort hops, and aarbus
+foor longur trips.  Spaas travul haz reesintlee bin revooluushuniizd bii xe
+invenshun uv nuukleeur-fyuuld enjinz.\""> 
+<CONSTANT 34-TEXT
+"\"Untoold senshureez agoo, entiir teemz uv roobots wur reekwiird tuu purfoorm
+eevin xe simplist tasks...wun roobot wud handul viszuuwul funkshunz, wun roobot
+wud handul awditooree funkshunz, and soo foorx. Now, xanks tuu advansis in
+mineeatshurizaashun, xeez tasks kan bee purfoormd bii singul roobots, suc az
+xe multiipurpis B-19 seereez.\""> 
+<CONSTANT 35-TEXT
+"\"Xe priimeree Planateree Sistumz ar Kors Kuntrool (foor maantaaneeng an
+iideel kliimit), Deefens (foor destroieeng pootenshulee daanjuris meeteeoorz),
+and xe reesintlee adid Prajekt Kuntrool (foor monitureeng proogres uv
+Xe Prajekt).\""> 
+<CONSTANT 41-TEXT
+"\"Sins xe staabulizaashun uv xe oorbit uv Resida, preesiislee 47.79 pursent
+uv xe planits surfis iz land. Xe land iz diviidid intuu tuu priimeree
+landmasiz, Andoor and Fruulik, plus siks lesur landmasiz. Xe gloobul kapitul,
+Pilandoor, iz on xe eesturn koost uv Andoor.\""> 
+<CONSTANT 42-TEXT
+"\"Xe furst undursee habutats wur oopind in 2992, and tuudaa, neerlee tuu
+senshureez laatur, abowt 9 pursent uv Residaz popyuulaashun livz in wun
+uv xe twentee sprawleeng undursee siteez.\""> 
+<CONSTANT 43-TEXT
+"\"Alxoo setulmints hav bin establisht on Fristin, and on sevrul uv xe muunz
+uv xe gas jiiunt Blustin, xe vast majooritee uv of-woorldurz liv in xe
+spaas kolooneez establisht at Residaz troojin points.\""> 
+<CONSTANT 51-TEXT
+"\"Xe oorijin uv Xe Dizeez haz bin linkt tuu xe Sentur foor Advanst Kriioojenik
+Reesurc, wic wuz kondukteeng reesurc intuu waaz uv ekstendeeng xe Kriioojenik
+peereeid indefinitlee. Alxoo xis reesurc wuz aa sukses, sumhow Xe Dizeez
+wuz reeleest and beegan spredeeng.\""> 
+<CONSTANT 52-TEXT
+"\"Xe tuu kompleksiz wur establisht on xe twin peek platooz uv Kalamontee and
+Lawanda. Xeez lookaashunz wur coozin beekawz xaar hiit wud maak
+transpoortaashun and komyuunikaashunz eezeeur, and soo xat xe vast reeakturz
+and kriioojeniks caamburz kud bee kunstruktid in xe mowntinz beeloo.\""> 
+<CONSTANT 53-TEXT
+"\"Faaz Wun: xe kunstrukshun uv xe Kalamontee and Lawanda Kompleksiz. Faaz
+Tuu: mass kriioojenik freezeeng uv Residan popyuulaashun. Faaz Xree:
+siimultaaneeus monitureeng uv kriioojeniks wiil awtoomaatid reesurc iz
+konduktid bii inkrediblee soofistikaatid kumpyuuturiizd fasiliteez. Faaz
+Foor: reeviivul and inokyuulaashun uv xe popyuulaashun.\""> 
+<CONSTANT 61-TEXT
+"\"Xe Zoork triloojee, an adventshur klasik, taaks plaas in aa deeliitful
+but daanjuris undurgrownd seteeng.\""> 
+<CONSTANT 62-TEXT
+"\"Dedliin iz xe furst graat misturee uv xe kumpyuutur aaj, and Witnis iz
+its wurxee suksesur.\""> 
+<CONSTANT 63-TEXT
+"\"Starkros iz Infookamz miind-bendeeng siiens-fikshun adventshur. Suspendid
+iz aa kriioojenik siiens-fikshun niitmaar.\""> 
+<OBJECT SPOOL-READER (LOC LIBRARY) (DESC "microfilm reader") (FDESC
+"On the desk is a machine with a screen and a small circular opening. It
+seems to be turned off.") (LDESC
+"There is a microfilm reader on one of the tables.") (SYNONYM READER SCREEN
+OPENING MACHINE) (ADJECTIVE MICROFILM SMALL CIRCULAR) (CAPACITY 3) (FLAGS
+LIGHTBIT CONTBIT SEARCHBIT OPENBIT) (ACTION SPOOL-READER-F)> 
+<GLOBAL SPOOL-TEXT <> %<> WORD> 
+<DEFINE-ROUTINE SPOOL-READER-F> 
+<CONSTANT SPOOL-FITS "The spool fits neatly into the opening."> 
+<CONSTANT SOME-INFO " Some information appears on the screen."> 
+<CONSTANT GREEN-TEXT
+"\"Oonlee peepul wix propur traaneeng shud piilot xe helikopturz. Reekwiird
+ekwipmint inkluudz aa Helikoptur Akses Kard and aa Kuntrool Panul Kee. Xeez
+kan bee obtaand frum Tranzportaashun Stoorij.\"|
+The rest is all very technical."> 
+<CONSTANT RED-TEXT
+"\"Xe jestaashun peereeid uv Xe Dizeez, folooweeng ekspoozur, vaareez
+treemenduslee frum pursin tuu pursin, raanjeeng frum wun daa tuu sevrul
+rootaashunz. Wuns xe furst simptumz ar shoon, dex alwaaz okurz in aat tuu
+ten daaz.|
+Xe priimeree simptum iz aa hii feevur. Xe sekunderee simptum iz aa sharp
+inkrees in xe amownt uv sleep needid eec niit.\"|
+The rest of the information is about symptoms which can be detected only by
+using complicated medical procedures."> 
+<ROOM PROJECT-CORRIDOR-WEST (LOC ROOMS) (DESC "Project Corridor West") (LDESC
+"This is a curving hallway leading east and northwest. There is an opening
+to the west.") (C-MOVE <TABLE 0 0 0 0 25 0 0 0 0 0 0 0>) (WEST TO SANFAC-F) (
+EAST TO PROJECT-CORRIDOR) (NW TO FORK) (FLAGS RLANDBIT ONBIT)> 
+<ROOM SANFAC-F (LOC ROOMS) (DESC "SanFac F") (LDESC
+"This is another dusty sanitary facility. Unlike the ones near the dorms,
+this one is smaller and has no bathing fixtures.") (C-MOVE <TABLE 0 0 0 0 0 0 0
+0 0 0 0 0>) (EAST TO PROJECT-CORRIDOR-WEST) (OUT TO PROJECT-CORRIDOR-WEST) (
+FLAGS FLOYDBIT RLANDBIT ONBIT) (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET"
+TOILET-PSEUDO)> 
+<ROOM PROJECT-CORRIDOR (LOC ROOMS) (DESC "Project Corridor") (LDESC
+"You are at the center of a long east-west hallway. A doorway, labelled
+\"PrajKon Awfis\", opens to the south.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0
+>) (EAST TO PROJECT-CORRIDOR-EAST) (WEST TO PROJECT-CORRIDOR-WEST) (SOUTH TO
+PROJCON-OFFICE) (FLAGS RLANDBIT ONBIT)> 
+<ROOM PROJCON-OFFICE (LOC ROOMS) (DESC "ProjCon Office") (C-MOVE <TABLE 0 0 0 0
+0 0 0 0 0 0 0 0>) (NORTH TO PROJECT-CORRIDOR) (SOUTH TO CRYO-ELEVATOR IF
+CRYO-ELEVATOR-DOOR IS OPEN ELSE "You can't go that way.") (EAST TO
+COMPUTER-ROOM) (FLAGS RLANDBIT FLOYDBIT ONBIT) (GLOBAL CRYO-ELEVATOR-DOOR) (
+PSEUDO "MURAL" MURAL-PSEUDO "LOGO" LOGO-PSEUDO) (ACTION PROJCON-OFFICE-F)> 
+<DEFINE-ROUTINE PROJCON-OFFICE-F> 
+<GLOBAL MURAL-FLAG <> %<> WORD> 
+<OBJECT CRYO-ELEVATOR-DOOR (LOC LOCAL-GLOBALS) (DESC "cryo-elevator door") (
+SYNONYM DOOR) (ADJECTIVE CRYO-ELEVATOR ELEVATOR) (FLAGS NDESCBIT INVISIBLE)> 
+<ROOM CRYO-ELEVATOR (LOC ROOMS) (DESC "Cryo-Elevator") (C-MOVE <TABLE 0 0 0 0 0
+0 0 0 0 0 0 0>) (NORTH PER CRYO-EXIT-F) (GLOBAL CRYO-ELEVATOR-DOOR) (FLAGS
+RLANDBIT ONBIT) (PSEUDO "BUTTON" CRYO-BUTTON-PSEUDO) (ACTION CRYO-ELEVATOR-F)> 
+<DEFINE-ROUTINE CRYO-ELEVATOR-F> 
+<DEFINE-ROUTINE CRYO-EXIT-F> 
+<GLOBAL CRYO-SCORE-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE I-CRYO-ELEVATOR-ARRIVE> 
+<ROOM CRYO-ANTEROOM (LOC ROOMS) (DESC "Cryo-Anteroom") (C-MOVE <TABLE 0 0 0 0 0
+0 0 0 0 0 0 0>) (FLAGS RLANDBIT ONBIT) (ACTION CRYO-ANTEROOM-F)> 
+<DEFINE-ROUTINE CRYO-ANTEROOM-F> 
+<ROOM PROJECT-CORRIDOR-EAST (LOC ROOMS) (DESC "Project Corridor East") (LDESC
+"The hallway ends here but continues back toward the west. Doorways lead
+north, south and east.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO
+LIBRARY-LOBBY) (SOUTH TO COMPUTER-ROOM) (WEST TO PROJECT-CORRIDOR) (EAST TO
+MAIN-LAB) (FLAGS RLANDBIT ONBIT)> 
+<ROOM COMPUTER-ROOM (LOC ROOMS) (DESC "Computer Room") (LDESC
+"This is the main computer room for the Project. The only sign of activity is
+a glowing red light. The exits are north, west, and northeast. To the south
+is a small booth.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 25 0>) (NORTH TO
+PROJECT-CORRIDOR-EAST) (WEST TO PROJCON-OFFICE) (SOUTH TO MINI-BOOTH) (IN TO
+MINI-BOOTH) (NE TO MAIN-LAB) (FLAGS RLANDBIT FLOYDBIT ONBIT) (GLOBAL LIGHTS) (
+PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)> 
+<GLOBAL COMPUTER-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE COMPUTER-ACTION> 
+<OBJECT PRINT-OUT (LOC COMPUTER-ROOM) (DESC "pile of computer output") (SYNONYM
+PILE PAPER OUTPUT PRINTOUT) (ADJECTIVE COMPUTER) (SIZE 20) (FLAGS ACIDBIT
+TAKEBIT READBIT) (ACTION PRINT-OUT-F)> 
+<DEFINE-ROUTINE PRINT-OUT-F> 
+<ROOM MINI-BOOTH (LOC ROOMS) (DESC "Miniaturization Booth") (LDESC
+"This is a small room barely large enough for one person. Mounted on the wall
+is a small slot, and next to it a keyboard with numeric keys. The exit is to
+the north.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO COMPUTER-ROOM)
+(OUT TO COMPUTER-ROOM) (FLAGS RLANDBIT ONBIT) (GLOBAL SLOT) (PSEUDO "KEYBOARD"
+KEYBOARD-PSEUDO "BOOTH" IN-BOOTH-PSEUDO)> 
+<OBJECT MINI-CARD (LOC BIO-LOCK-EAST) (DESC "miniaturization access card") (
+SYNONYM CARD CARDS) (ADJECTIVE MINIATURIZATION MINI ACCESS) (SIZE 3) (FLAGS
+TAKEBIT NDESCBIT INVISIBLE READBIT) (VALUE 1) (TEXT
+"The card is embossed \"minitcurizaashun akses kard.\"") (ACTION MINI-CARD-F)> 
+<DEFINE-ROUTINE MINI-CARD-F> 
+<ROOM MAIN-LAB (LOC ROOMS) (DESC "Main Lab") (LDESC
+"This is the heart of the Project's vast laboratory complex. There are exits
+to the west and southwest, and heavy metal doors to the northeast and
+southeast. A small doorway leads south.") (C-MOVE <TABLE 0 0 0 0 0 0 25 0 0 0 0
+0>) (WEST TO PROJECT-CORRIDOR-EAST) (SOUTH TO LAB-STORAGE) (SW TO COMPUTER-ROOM
+) (SE TO BIO-LOCK-WEST IF BIO-DOOR-WEST IS OPEN) (NE TO RADIATION-LOCK-WEST IF
+RAD-DOOR-WEST IS OPEN) (FLAGS RLANDBIT FLOYDBIT ONBIT) (GLOBAL BIO-DOOR-WEST
+RAD-DOOR-WEST)> 
+<ROOM LAB-STORAGE (LOC ROOMS) (DESC "Lab Storage") (LDESC
+"This is a tiny room for the storage of laboratory supplies. The sole exit is
+to the north.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO MAIN-LAB) (
+OUT TO MAIN-LAB) (FLAGS RLANDBIT FLOYDBIT ONBIT) (GLOBAL SHELVES) (PSEUDO
+"RACK" CARPET-PSEUDO "SUPPLIES" SUPPLIES-PSEUDO)> 
+<OBJECT LAB-UNIFORM (LOC LAB-STORAGE) (DESC "lab uniform") (FDESC
+"Hanging on a rack is a pale blue lab uniform. Sewn onto its pocket is a
+nondescript logo.") (SYNONYM UNIFORM SUIT POCKET LOGO) (ADJECTIVE PALE BLUE LAB
+) (SIZE 10) (CAPACITY 5) (FLAGS TAKEBIT CONTBIT SEARCHBIT WEARBIT) (ACTION
+LAB-UNIFORM-F)> 
+<GLOBAL UNIFORM-OPENED <> %<> WORD> 
+<DEFINE-ROUTINE LAB-UNIFORM-F> 
+<OBJECT TELEPORTATION-CARD (LOC LAB-UNIFORM) (DESC "teleportation access card")
+(SYNONYM CARD CARDS) (ADJECTIVE TELEPORT TELEPORTATION ACCESS) (SIZE 3) (FLAGS
+TAKEBIT READBIT) (TEXT "The card is embossed \"teliportaashun akses kard.\"")> 
+<OBJECT COMBINATION-PAPER (LOC LAB-UNIFORM) (DESC "piece of paper") (SYNONYM
+PIECE PAPER) (FLAGS ACIDBIT TAKEBIT READBIT) (SIZE 2) (ACTION
+COMBINATION-PAPER-F)> 
+<DEFINE-ROUTINE COMBINATION-PAPER-F> 
+<ROOM BIO-LOCK-WEST (LOC ROOMS) (DESC "Bio Lock West") (LDESC
+"This is the first half of a sterilization chamber to prevent contamination
+of the delicate biological experiments in the Bio Lab which lies beyond. The
+door to the west leads to the main lab, and the bio lock continues eastward.")
+(C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 10 0 0>) (EAST TO BIO-LOCK-EAST) (WEST TO
+MAIN-LAB IF BIO-DOOR-WEST IS OPEN) (FLAGS RLANDBIT ONBIT) (GLOBAL BIO-DOOR-WEST
+)> 
+<ROOM BIO-LOCK-EAST (LOC ROOMS) (DESC "Bio Lock East") (LDESC
+"The is the second half of the sterilization chamber leading from the main
+lab to the Bio Lab. The door to the east, leading to the Bio Lab, has a
+window. The bio lock continues to the west.") (C-MOVE <TABLE 0 0 0 0 0 10 0 0 0
+0 0 0>) (EAST TO BIO-LAB IF BIO-DOOR-EAST IS OPEN) (WEST TO BIO-LOCK-WEST) (
+FLAGS RLANDBIT ONBIT) (GLOBAL BIO-DOOR-EAST WINDOW) (ACTION BIO-LOCK-EAST-F)> 
+<GLOBAL WAITING-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE BIO-LOCK-EAST-F> 
+<GLOBAL FLOYD-PEERED <> %<> WORD> 
+<DEFINE-ROUTINE I-CLEAR-FLOYD-PEER> 
+<ROOM RADIATION-LOCK-WEST (LOC ROOMS) (DESC "Radiation Lock West") (LDESC
+"This is the western half of a decontamination chamber to prevent dangerous
+radioactive materials from leaving the Radiation Lab which lies to the east.
+The door leads west to the main lab.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>)
+(EAST TO RADIATION-LOCK-EAST) (WEST TO MAIN-LAB IF RAD-DOOR-WEST IS OPEN) (
+FLAGS RLANDBIT ONBIT) (GLOBAL RAD-DOOR-WEST)> 
+<ROOM RADIATION-LOCK-EAST (LOC ROOMS) (DESC "Radiation Lock East") (LDESC
+"This is the eastern half of the decontamination chamber. The door to the
+east leads to the Radiation Lab, and the chamber continues westward. A sign
+on the wall reads \"WORNEENG! Raadeeaashun suuts must bee worn beeyond xis
+point.\"") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO RADIATION-LAB IF
+RAD-DOOR-EAST IS OPEN) (WEST TO RADIATION-LOCK-WEST) (FLAGS RLANDBIT ONBIT) (
+GLOBAL RAD-DOOR-EAST)> 
+<OBJECT BIO-DOOR-EAST (LOC LOCAL-GLOBALS) (DESC "lab door") (SYNONYM DOOR) (
+ADJECTIVE LAB) (FLAGS DOORBIT NDESCBIT) (ACTION BIO-DOOR-EAST-F)> 
+<OBJECT BIO-DOOR-WEST (LOC LOCAL-GLOBALS) (DESC "bio-lock door") (SYNONYM DOOR)
+(ADJECTIVE BIO-LOCK) (FLAGS DOORBIT NDESCBIT) (ACTION BIO-DOOR-WEST-F)> 
+<OBJECT RAD-DOOR-EAST (LOC LOCAL-GLOBALS) (DESC "lab door") (SYNONYM DOOR) (
+ADJECTIVE LAB) (FLAGS DOORBIT NDESCBIT) (ACTION RAD-DOOR-EAST-F)> 
+<OBJECT RAD-DOOR-WEST (LOC LOCAL-GLOBALS) (DESC "radiation-lock door") (SYNONYM
+DOOR) (ADJECTIVE RADIATION) (FLAGS DOORBIT NDESCBIT) (ACTION RAD-DOOR-WEST-F)> 
+<DEFINE-ROUTINE BIO-DOOR-EAST-F> 
+<DEFINE-ROUTINE I-BIO-EAST-CLOSES> 
+<DEFINE-ROUTINE BIO-DOOR-WEST-F> 
+<DEFINE-ROUTINE I-BIO-WEST-CLOSES> 
+<DEFINE-ROUTINE RAD-DOOR-EAST-F> 
+<DEFINE-ROUTINE RAD-DOOR-WEST-F> 
+<CONSTANT BOTH-DOORS
+"A very bored-sounding recorded voice explains that, in order to prevent
+contamination, both lock doors cannot be open simultaneously."> 
+<CONSTANT DOOR-OPENS "The door opens."> 
+<CONSTANT DOOR-CLOSES "The door closes."> 
+<GLOBAL FLOYD-WAITING <> %<> WORD> 
+<GLOBAL FLOYD-GAVE-UP <> %<> WORD> 
+<GLOBAL FLOYD-FORAYED <> %<> WORD> 
+<GLOBAL FORAY-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE I-FLOYD-FORAY> 
+<DEFINE-ROUTINE MONSTER-DEATH> 
+<ROOM BIO-LAB (LOC ROOMS) (DESC "Bio Lab") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0
+0>) (EAST TO LAB-OFFICE IF OFFICE-DOOR IS OPEN) (WEST TO BIO-LOCK-EAST IF
+BIO-DOOR-EAST IS OPEN) (FLAGS RLANDBIT ONBIT) (GLOBAL BIO-DOOR-EAST WINDOW
+OFFICE-DOOR) (PSEUDO "CRACK" CRACK-PSEUDO) (ACTION BIO-LAB-F)> 
+<DEFINE-ROUTINE BIO-LAB-F> 
+<GLOBAL EXTRA-MOVE-FLAG <> %<> WORD> 
+<GLOBAL CRYO-MOVE-FLAG <> %<> WORD> 
+<GLOBAL LAST-CHASE-ROOM <> %<> WORD> 
+<GLOBAL SECOND-TO-LAST-ROOM <> %<> WORD> 
+<DEFINE-ROUTINE I-CHASE-SCENE> 
+<CONSTANT MONSTER-ENTRANCES <PLTABLE
+"The growling humanoid is charging straight at you, waving his
+axe-like implement!" "A pair of slavering fangs removes part of your clothing!"
+"Needle-sharp mandibles nip at your arms!"
+"The mobile plant whips its poisonous tentacles against
+your ankles!">> 
+<ROOM RADIATION-LAB (LOC ROOMS) (DESC "Radiation Lab") (LDESC
+"This room is filled with unfathomable equipment and large canisters bearing
+radioactive warnings. Many of the canisters are split open. You can see the
+Bio Lab through a large crack in the south wall. Sinister-looking forms move
+about within the Bio Lab. Although the lights here are off, the room is
+suffused with a pale blue glow.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (
+WEST TO RADIATION-LOCK-EAST IF RAD-DOOR-EAST IS OPEN) (FLAGS RLANDBIT ONBIT) (
+GLOBAL TABLES RAD-DOOR-EAST) (PSEUDO "CRACK" CRACK-PSEUDO "EQUIPMENT"
+EQUIPMENT-PSEUDO) (ACTION RADIATION-LAB-F)> 
+<DEFINE-ROUTINE RADIATION-LAB-F> 
+<GLOBAL NUKED-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE I-NUKED-BLUE> 
+<OBJECT BROWN-SPOOL (LOC RADIATION-LAB) (DESC "brown spool") (FDESC
+"Sitting on a long table is a small brown spool.") (SYNONYM SPOOL SPOOLS OBJECT
+) (ADJECTIVE BROWN SMALL) (SIZE 3) (TEXT
+"The spool is labelled \"Instrukshunz foor Reepaareeng Reepaar Roobots.\"") (
+FLAGS ACIDBIT TAKEBIT READBIT)> 
+<OBJECT LAMP (LOC RADIATION-LAB) (DESC "portable lamp") (FDESC
+"There is a powerful portable lamp here, currently off.") (SYNONYM LAMP LANTERN
+LIGHT) (ADJECTIVE POWERFUL PORTABLE) (SIZE 20) (FLAGS TAKEBIT) (ACTION LAMP-F)>
+
+<DEFINE-ROUTINE LAMP-F> 
+<ROOM LAB-OFFICE (LOC ROOMS) (DESC "Lab Office") (C-MOVE <TABLE 0 0 0 0 0 0 0 0
+0 0 0 0>) (WEST TO BIO-LAB IF OFFICE-DOOR IS OPEN) (SOUTH TO AUXILIARY-BOOTH) (
+IN TO AUXILIARY-BOOTH) (GLOBAL OFFICE-DOOR) (FLAGS RLANDBIT ONBIT) (PSEUDO
+"FILES" CABINETS-PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO) (ACTION LAB-OFFICE-F)> 
+<DEFINE-ROUTINE LAB-OFFICE-F> 
+<OBJECT OFFICE-DOOR (LOC LOCAL-GLOBALS) (DESC "office door") (SYNONYM DOOR) (
+ADJECTIVE OFFICE) (FLAGS VOWELBIT DOORBIT NDESCBIT)> 
+<OBJECT LAB-DESK (LOC LAB-OFFICE) (DESC "desk") (SYNONYM DESK) (ADJECTIVE LARGE
+MESSY) (FLAGS CONTBIT SEARCHBIT NDESCBIT) (CAPACITY 10) (ACTION LAB-DESK-F)> 
+<DEFINE-ROUTINE LAB-DESK-F> 
+<OBJECT GAS-MASK (LOC LAB-DESK) (DESC "gas mask") (SYNONYM MASK) (ADJECTIVE GAS
+) (FLAGS ACIDBIT TAKEBIT WEARBIT) (SIZE 10)> 
+<OBJECT MEMO (DESC "memo") (SYNONYM MEMO) (FLAGS READBIT ACIDBIT TAKEBIT) (TEXT
+"\"Memoo tuu awl lab pursunel: Duu tuu xe daanjuris naatshur uv xe biioo
+eksperiments, an eemurjensee sistum haz bin instawld. Xis sistum wud flud
+xe entiir Biioo Lab wic aa dedlee fungasiid. Propur preecawshunz shud bee
+taakin if xis sistum iz evur yuuzd.\"")> 
+<OBJECT LIGHT-BUTTON (LOC LAB-OFFICE) (DESC "white button") (SYNONYM BUTTON) (
+ADJECTIVE WHITE LIGHT) (FLAGS NDESCBIT) (ACTION LIGHT-BUTTON-F)> 
+<OBJECT DARK-BUTTON (LOC LAB-OFFICE) (DESC "black button") (SYNONYM BUTTON) (
+ADJECTIVE BLACK DARK DARKNESS) (FLAGS NDESCBIT) (ACTION DARK-BUTTON-F)> 
+<OBJECT FUNGICIDE-BUTTON (LOC LAB-OFFICE) (DESC "red button") (SYNONYM BUTTON)
+(ADJECTIVE RED FUNGICIDE EMERGENCY) (FLAGS NDESCBIT) (ACTION FUNGICIDE-BUTTON-F
+)> 
+<GLOBAL LAB-LIGHTS-ON <> %<> WORD> 
+<GLOBAL LAB-FLOODED <> %<> WORD> 
+<DEFINE-ROUTINE LIGHT-BUTTON-F> 
+<DEFINE-ROUTINE DARK-BUTTON-F> 
+<CONSTANT FAINT-SOUND "You hear the faint sound of a relay clicking."> 
+<DEFINE-ROUTINE FUNGICIDE-BUTTON-F> 
+<DEFINE-ROUTINE I-UNFLOOD> 
+<ROOM AUXILIARY-BOOTH (LOC ROOMS) (DESC "Auxiliary Booth") (LDESC
+"This is another small booth. Unlike the Miniaturization Booth, this room
+has no slot or keyboard, so presumably it is intended only as a receiving
+station. The exit is on the northern side.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0
+0 0>) (NORTH TO LAB-OFFICE) (OUT TO LAB-OFFICE) (FLAGS RLANDBIT ONBIT) (VALUE 4
+) (PSEUDO "BOOTH" IN-BOOTH-PSEUDO)> 
+^L 
+<GLOBAL MINI-ACTIVATED <> %<> WORD> 
+<DEFINE-ROUTINE I-TURNOFF-MINI> 
+<ROOM STATION-384 (LOC ROOMS) (DESC "Station 384") (LDESC
+"You are standing on a square plate of heavy metal. Above your head, parallel
+to the plate beneath you, is an identical metal plate. To the east is a wide,
+metallic strip.") (C-MOVE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO
+STRIP-NEAR-STATION) (FLAGS RLANDBIT ONBIT) (GLOBAL STRIP) (PSEUDO "PLATE"
+PLATE-PSEUDO "PLATES" PLATE-PSEUDO) (ACTION STATION-384-F)> 
+<DEFINE-ROUTINE STATION-384-F> 
+<DEFINE-ROUTINE I-ANNOUNCEMENT> 
+<GLOBAL BEEN-HERE <> %<> WORD> 
+<GLOBAL COMPUTER-FIXED <> %<> WORD> 
+<CONSTANT FAMILIAR-WRENCHING
+"You feel the familiar wrenching of your innards, and find yourself in a vast
+room whose distant walls are rushing straight toward you...|"> 
+<ROOM STRIP-NEAR-STATION (LOC ROOMS) (DESC "Strip Near Station") (LDESC
+"You are standing on a silicon filament, which looks to you like a wide
+metal highway. South of here, the filament makes a right angle and heads
+straight down, like a cliff overlooking a black void. The filament can be
+followed north, however. Station 384 lies westward.") (C-MOVE <TABLE 0 0 0 0 0
+0 0 0 0 0 0 0>) (SOUTH SORRY "The plunge would probably be fatal.") (EAST SORRY
+"The plunge would probably be fatal.") (NORTH TO MIDDLE-OF-STRIP) (WEST TO
+STATION-384) (FLAGS RLANDBIT ONBIT) (VALUE 4) (PSEUDO "VOID" VOID-PSEUDO) (
+GLOBAL STRIP)> 
+<ROOM MIDDLE-OF-STRIP (LOC ROOMS) (DESC "Middle of Strip") (LDESC
+"You are standing on a section of the strip with a bottomless void stretching
+out on both sides. The strip continues to the north and south.") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (NORTH TO STRIP-NEAR-RELAY) (SOUTH TO
+STRIP-NEAR-STATION IF NO-MICROBE ELSE
+"Not a chance -- unless,
+of course, you don't mind walking into the gullet of a hungry microbe.") (EAST
+SORRY "Do you have a penchant for bottomless voids?") (WEST SORRY
+"Do you have a penchant for bottomless voids?") (FLAGS RLANDBIT ONBIT) (ACTION
+MIDDLE-OF-STRIP-F) (PSEUDO "VOID" VOID-PSEUDO) (GLOBAL STRIP)> 
+<GLOBAL NO-MICROBE T %<> WORD> 
+<GLOBAL MICROBE-DISPATCHED <> %<> WORD> 
+<DEFINE-ROUTINE MIDDLE-OF-STRIP-F> 
+<ROOM STRIP-NEAR-RELAY (LOC ROOMS) (DESC "Strip Near Relay") (C-MOVE <TABLE 0 0
+0 0 0 0 0 0 0 0 0 0>) (NORTH SORRY
+"There is a huge featureless wall there, remember?") (SOUTH TO MIDDLE-OF-STRIP
+IF NO-MICROBE ELSE
+"Not a chance -- unless,
+of course, you don't mind walking into the gullet of a hungry microbe.") (EAST
+PER RELAY-EXIT-F) (WEST SORRY "Do you have a penchant for bottomless voids?") (
+FLAGS RLANDBIT ONBIT) (GLOBAL STRIP) (PSEUDO "VOID" VOID-PSEUDO) (ACTION
+STRIP-NEAR-RELAY-F)> 
+<DEFINE-ROUTINE STRIP-NEAR-RELAY-F> 
+<DEFINE-ROUTINE RELAY-EXIT-F> 
+<OBJECT RELAY (LOC STRIP-NEAR-RELAY) (DESC "microrelay") (SYNONYM RELAY
+MICRORELAY) (ADJECTIVE MICRO) (FLAGS NDESCBIT TRANSBIT) (ACTION RELAY-F)> 
+<DEFINE-ROUTINE RELAY-F> 
+<OBJECT SPECK (LOC RELAY) (DESC "speck") (SYNONYM SPECK BOULDER IMPURITY) (
+ADJECTIVE BLUE) (FLAGS NDESCBIT)> 
+^L 
+<OBJECT LASER (LOC TOOL-ROOM) (DESC "laser") (FDESC
+"A small device, labelled \"Akmee Portabul Laazur\", is resting on one of
+the lower shelves.") (SYNONYM DEVICE LASER UNIT DEPRESSION) (ADJECTIVE PORTABLE
+ACME) (SIZE 25) (CAPACITY 5) (FLAGS MUNGBIT TAKEBIT OPENBIT TRANSBIT CONTBIT) (
+ACTION LASER-F)> 
+<OBJECT LASER-DIAL (LOC LASER) (DESC "laser setting dial") (SYNONYM DIAL) (
+ADJECTIVE LASER SETTING) (FLAGS MUNGBIT NDESCBIT) (ACTION LASER-DIAL-F)> 
+<DEFINE-ROUTINE LASER-DIAL-F> 
+<OBJECT OLD-BATTERY (LOC LASER) (DESC "old battery") (LDESC
+"There is a worn-out laser battery here.") (SYNONYM BATTERY) (ADJECTIVE LASER
+WORN-OUT OLD) (SIZE 5) (FLAGS VOWELBIT ACIDBIT TAKEBIT)> 
+<OBJECT NEW-BATTERY (LOC LAB-STORAGE) (DESC "new battery") (FDESC
+"The odds and ends on the shelves include a small round object, which closer
+inspection reveals to be a fresh laser battery.") (SYNONYM OBJECT BATTERY) (
+ADJECTIVE LASER SMALL ROUND FRESH NEW) (SIZE 5) (FLAGS ACIDBIT TAKEBIT)> 
+<GLOBAL LASER-SETTING 5 %<> WORD> 
+<GLOBAL SPECK-HIT <> %<> WORD> 
+<GLOBAL OLD-SHOTS 0 %<> WORD> 
+<GLOBAL NEW-SHOTS 0 %<> WORD> 
+<DEFINE-ROUTINE ZAP-COUNT> 
+<DEFINE-ROUTINE LASER-F> 
+<DEFINE-ROUTINE ALREADY-BATTERY> 
+<DEFINE-ROUTINE BATTERY-NOW> 
+<GLOBAL WARMTH-FLAG 0 %<> WORD> 
+<GLOBAL LASER-JUST-SHOT <> %<> WORD> 
+<DEFINE-ROUTINE I-WARMTH> 
+<DEFINE-ROUTINE LASER-FEELS> 
+<DEFINE-ROUTINE LASER-COOLS> 
+<GLOBAL LASER-SCORE-FLAG <> %<> WORD> 
+<GLOBAL MARKSMANSHIP-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE BEAM-COLOR> 
+<DEFINE-ROUTINE SHOOT-SPECK> 
+<CONSTANT BEAM-MISSES <PLTABLE "The beam just misses the speck!" "A near miss!"
+"A good shot, but just a little wide of the target.">> 
+<DEFINE-ROUTINE I-FRY> 
+^L 
+<OBJECT MICROBE (DESC "microbe") (LDESC
+"A hungry microbe blocks your way, its cilia waving and its pseudopods
+towering over you.") (SYNONYM MICROBE BUG MONSTER) (ADJECTIVE HUNGRY) (FLAGS
+ACTORBIT) (ACTION MICROBE-F)> 
+<DEFINE-ROUTINE MICROBE-F> 
+<DEFINE-ROUTINE I-MICROBE> 
+<CONSTANT WINNER-ATTACKED <PLTABLE
+"A pseudopod extends toward you. You jump back just in time
+to avoid being engulfed."
+"A slimy pseudopod brushes against your shoulder. You twist
+away in the nick of time."
+"A pseudopod shoots out toward your head! Ducking quickly,
+you save your life."
+"Two protoplasm-filled blobs sneak toward you from the left.
+You jump to the side and almost fall off the strip into the void below!">> 
+<CONSTANT MONSTER-CLOSES <PLTABLE
+"The microbe slithers closer. The cilia around its gullet glisten
+with mucus, giving the impression that the microbe is salivating."
+"The microbe flows toward you. It towers above you, its cilia
+waving madly in your face."
+"The monster wriggles nearer. It is now so close that you can make
+out details in the protoplasm beneath its translucent skin.">> 
+<GLOBAL MICROBE-HIT <> %<> WORD> 
+<GLOBAL MICROBE-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE SHOOT-MICROBE> 
+<CONSTANT MICROBE-STRIKES <PLTABLE
+"The microbe's outer membrane sizzles a bit, and some protoplasm
+oozes out. The microbe recoils momentarily, but quickly recovers."
+"The beam slices through the microbe's skin! A tremendous shudder
+passes through the microbe, but the wound quickly seals itself."
+"The monster rears back for a moment, but almost as soon as the
+beam goes off, it advances again.">> 
+<OBJECT STRIP (LOC LOCAL-GLOBALS) (DESC "silicon strip") (SYNONYM STRIP SIDE
+EDGE) (ADJECTIVE SILICON) (FLAGS NDESCBIT) (ACTION STRIP-F)> 
+<DEFINE-ROUTINE STRIP-F> 
+^L 
+<OBJECT RAT-ANT (LOC BIO-LAB) (DESC "rat-like, ant-like man-sized monster") (
+LDESC "A ferocious feral creature, with a hairy shelled body and
+a whip-like tail snaps its enormous mandibles at you.") (SYNONYM MONSTER MUTANT
+RAT-ANT) (ADJECTIVE RAT-LIKE ANT-LIKE MAN-SIZED) (FLAGS ACTORBIT)> 
+<OBJECT TROLL (LOC BIO-LAB) (DESC "hairy growling biped") (LDESC
+"Rushing toward you is an ugly, deformed humanoid, bellowing
+in a guttural tongue. It brandishes a piece of lab equipment shaped
+somewhat like a battle axe.") (SYNONYM TROLL BIPED MUTANT MONSTER) (ADJECTIVE
+HAIRY GROWLING UGLY DEFORMED) (FLAGS ACTORBIT)> 
+<OBJECT GRUE (LOC BIO-LAB) (DESC "lurking fanged creature") (LDESC
+"Lurking nearby is a vicious-looking creature with slavering
+fangs. Squinting in the light, it eyes you hungrily.") (SYNONYM GRUE CREATURE
+MUTANT MONSTER) (ADJECTIVE LURKING SINISTER FANGED VICIOUS HUNGRY SILENT) (
+FLAGS ACTORBIT) (ACTION GRUE-F)> 
+<DEFINE-ROUTINE GRUE-F> 
+<OBJECT TRIFFID (LOC BIO-LAB) (DESC "mobile man-eating plant") (LDESC
+"A giant plant, teeming with poisonous tentacles, is shuffling
+toward you on three leg-like stalks.") (SYNONYM TRIFFID PLANT MUTANT MONSTER) (
+ADJECTIVE MOBILE MAN-EATING GIANT) (FLAGS ACTORBIT)> 
\ No newline at end of file
diff --git a/comptwo.zap b/comptwo.zap
new file mode 100644
index 0000000..1a4b7df
--- /dev/null
+++ b/comptwo.zap
@@ -0,0 +1,1855 @@
+
+
+	.FUNCT	LAWANDA-PLATFORM-F,RARG
+	ZERO?	LAWANDA-PLATFORM-FLAG \?CND1
+	SET	'LAWANDA-PLATFORM-FLAG,TRUE-VALUE
+	SET	'SICKNESS-WARNING-FLAG,TRUE-VALUE
+?CND1:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a wide, flat strip of concrete. "
+	ZERO?	ALFIE-AT-KALAMONTEE \?CCL8
+	ZERO?	BETTY-AT-KALAMONTEE \?CCL8
+	PRINTI	"Open shuttle cars lie to the north and south."
+	JUMP	?CND6
+?CCL8:	ZERO?	ALFIE-AT-KALAMONTEE /?CCL11
+	ZERO?	BETTY-AT-KALAMONTEE \?CND6
+?CCL11:	PRINTI	"An open shuttle car lies to the "
+	ZERO?	ALFIE-AT-KALAMONTEE /?CCL16
+	PRINTI	"north."
+	JUMP	?CND6
+?CCL16:	PRINTI	"south."
+?CND6:	PRINTR	" A wide escalator, not currently operating, beckons upward at the east end of the platform. A faded sign reads ""Shutul Platform -- Lawanda Staashun."""
+
+
+	.FUNCT	INFIRMARY-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	ZERO?	LAZARUS-FLAG \FALSE
+	IN?	FLOYD,HERE \FALSE
+	FSET?	FLOYD,RLANDBIT \FALSE
+	RANDOM	100
+	LESS?	30,STACK /FALSE
+	SET	'LAZARUS-FLAG,TRUE-VALUE
+	MOVE	LAZARUS-PART,HERE
+	MOVE	FLOYD,FORK
+	SET	'FLOYD-FOLLOW,FALSE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTR	"Floyd, rummaging in a corner, finds something and carries it to the center of the room to examine it in the brighter light. It seems to be the breast plate of a robot, along with some connected inner circuitry. The entire piece is bent and rusting. Floyd stares at it in complete silence. A moment later, he begins sobbing quietly, awkwardly excuses himself, and runs out of the room. You look at the breast plate, and notice the name ""Lazarus"" engraved on it."
+
+
+	.FUNCT	RED-SPOOL-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	IN?	RED-SPOOL,SPOOL-READER \FALSE
+	FSET?	SPOOL-READER,ONBIT \FALSE
+	MOVE	RED-SPOOL,ADVENTURER
+	FCLEAR	RED-SPOOL,TRYTAKEBIT
+	PRINTR	"The screen goes blank as you take the spool."
+
+
+	.FUNCT	MEDICINE-F,X
+	EQUAL?	PRSA,V?POUR,V?EAT,V?TASTE \?CCL3
+	IN?	MEDICINE-BOTTLE,ADVENTURER /?CCL3
+	SET	'PRSO,MEDICINE-BOTTLE
+	ICALL1	NOT-HOLDING
+	CALL2	THIS-IS-IT,MEDICINE-BOTTLE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?POUR,V?EAT,V?TASTE \?CCL7
+	FSET?	MEDICINE-BOTTLE,OPENBIT /?CCL7
+	PRINTR	"The bottle is closed."
+?CCL7:	EQUAL?	PRSA,V?TASTE \?CCL11
+	PRINTR	"It tastes fairly bitter."
+?CCL11:	EQUAL?	PRSA,V?EAT \?CCL13
+	REMOVE	MEDICINE
+	SET	'C-ELAPSED,15
+	SUB	SICKNESS-LEVEL,2 >SICKNESS-LEVEL
+	ADD	LOAD-ALLOWED,20 >LOAD-ALLOWED
+	PRINTR	"The medicine tasted extremely bitter."
+?CCL13:	EQUAL?	PRSA,V?POUR \?CCL15
+	REMOVE	MEDICINE
+	ZERO?	PRSI \?CND16
+	SET	'PRSI,GROUND
+?CND16:	EQUAL?	PRSI,FUNNEL-HOLE \?CCL20
+	IN?	CHEMICAL-FLUID,FLASK \?CND21
+	SET	'X,TRUE-VALUE
+?CND21:	SET	'CHEMICAL-REQUIRED,10
+	ICALL	PERFORM,V?POUR,CHEMICAL-FLUID,FUNNEL-HOLE
+	ZERO?	X /TRUE
+	MOVE	CHEMICAL-FLUID,FLASK
+	RTRUE	
+?CCL20:	PRINTI	"It pours over the "
+	PRINTD	PRSI
+	PRINTR	" and evaporates."
+?CCL15:	EQUAL?	PRSA,V?TAKE \FALSE
+	GET	P-VTBL,0
+	EQUAL?	STACK,W?TAKE \FALSE
+	ICALL	PERFORM,V?EAT,MEDICINE
+	RTRUE	
+
+
+	.FUNCT	ROBOT-HOLE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"It's too small for you to get through. It was presumably intended for robots, such as the broken repair robot lying over there."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL5
+	PRINTR	"You can make out a small supply room of some sort."
+?CCL5:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINTR	"There's no door, just an opening in the wall."
+
+
+	.FUNCT	FLOYD-THROUGH-HOLE
+	ZERO?	HOLE-TRIP-FLAG /?CCL3
+	PRINTR	"""Not again,"" whines Floyd."
+?CCL3:	SET	'C-ELAPSED,50
+	SET	'HOLE-TRIP-FLAG,TRUE-VALUE
+	SET	'BOARD-REPORTED,TRUE-VALUE
+	FCLEAR	GOOD-BOARD,INVISIBLE
+	PRINTR	"Floyd squeezes through the opening and is gone for quite a while. You hear thudding noises and squeals of enjoyment. After a while the noise stops, and Floyd emerges, looking downcast. ""Floyd found a rubber ball inside. Lots of fun for a while, but must have been old, because it fell apart. Nothing else interesting inside. Just a shiny fromitz board."""
+
+
+	.FUNCT	GOOD-BOARD-F
+	FSET?	GOOD-BOARD,NDESCBIT \?CCL3
+	EQUAL?	PRSA,V?RUB,V?EXAMINE,V?TAKE /?PRD6
+	EQUAL?	PRSA,V?MOVE,V?PULL,V?PUSH /?PRD6
+	EQUAL?	PRSA,V?LOOK-UNDER \?CCL3
+?PRD6:	EQUAL?	GOOD-BOARD,PRSO \?CCL3
+	PRINTI	"You can't see any "
+	PRINTD	PRSO
+	PRINTR	" here."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	ICALL1	EXAMINE-BOARD
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PLANETARY-DEFENSE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This room is filled with a dazzling array of lights and controls. "
+	ZERO?	DEFENSE-FIXED \?CND4
+	PRINTI	"One light, blinking quickly, catches your eye. It reads ""Surkit Boord Faalyur. WORNEENG: xis boord kuntroolz xe diskriminaashun surkits."""
+?CND4:	PRINTI	" There is a small access panel on one wall which is "
+	ICALL2	DDESC,ACCESS-PANEL
+	PRINTR	"."
+
+
+	.FUNCT	ACCESS-PANEL-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	ACCESS-PANEL,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET	ACCESS-PANEL,OPENBIT
+	PRINTI	"The panel swings open."
+	CRLF	
+	ICALL	PERFORM,V?LOOK-INSIDE,ACCESS-PANEL
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL8
+	FSET?	ACCESS-PANEL,OPENBIT \?CCL11
+	FCLEAR	ACCESS-PANEL,OPENBIT
+	PRINTR	"The panel swings closed."
+?CCL11:	CALL1	IS-CLOSED
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSI,ACCESS-PANEL \FALSE
+	FSET?	ACCESS-PANEL,OPENBIT /?CCL18
+	PRINTR	"The panel is closed."
+?CCL18:	ZERO?	ACCESS-PANEL-FULL /?CCL20
+	PRINTR	"There's no room."
+?CCL20:	EQUAL?	PRSO,GOOD-BOARD \?CCL22
+	REMOVE	GOOD-BOARD
+	MOVE	SECOND-BOARD,ACCESS-PANEL
+	ICALL2	THIS-IS-IT,SECOND-BOARD
+	SET	'DEFENSE-FIXED,TRUE-VALUE
+	ADD	SCORE,6 >SCORE
+	SET	'ACCESS-PANEL-FULL,TRUE-VALUE
+	ICALL1	PUT-BOARD
+	PRINTR	" The warning lights stop flashing."
+?CCL22:	EQUAL?	PRSO,CRACKED-BOARD,FRIED-BOARD \?CCL24
+	REMOVE	PRSO
+	ICALL2	THIS-IS-IT,SECOND-BOARD
+	MOVE	SECOND-BOARD,ACCESS-PANEL
+	SET	'ACCESS-PANEL-FULL,TRUE-VALUE
+	EQUAL?	PRSO,CRACKED-BOARD \?CND25
+	SET	'ITS-CRACKED,TRUE-VALUE
+?CND25:	ICALL1	PUT-BOARD
+	CRLF	
+	RTRUE	
+?CCL24:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" doesn't fit."
+	RTRUE	
+
+
+	.FUNCT	FRIED-BOARD-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	ICALL1	EXAMINE-BOARD
+	PRINTR	" This one is a bit blackened around the edges, though."
+
+
+	.FUNCT	BOARD-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	EQUAL?	PRSO,SECOND-BOARD \?CCL6
+	ZERO?	DEFENSE-FIXED /?CCL9
+	CALL1	BOARD-SHOCK
+	RSTACK	
+?CCL9:	PRINTI	"The fromitz board slides out of the panel, producing an empty socket for another board."
+	CRLF	
+	REMOVE	SECOND-BOARD
+	SET	'ACCESS-PANEL-FULL,FALSE-VALUE
+	EQUAL?	ITS-CRACKED,TRUE-VALUE \?CCL12
+	MOVE	CRACKED-BOARD,ADVENTURER
+	JUMP	?CND10
+?CCL12:	MOVE	FRIED-BOARD,ADVENTURER
+?CND10:	CALL2	THIS-IS-IT,FRIED-BOARD
+	RSTACK	
+?CCL6:	CALL1	BOARD-SHOCK
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	ICALL1	EXAMINE-BOARD
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	EXAMINE-BOARD
+	PRINTI	"Like most fromitz boards, it is a twisted maze of silicon circuits. It is square, approximately seventeen centimeters on each side."
+	RTRUE	
+
+
+	.FUNCT	PUT-BOARD
+	PRINTI	"The card clicks neatly into the socket."
+	RTRUE	
+
+
+	.FUNCT	BOARD-SHOCK
+	PRINTR	"You jerk your hand back as you receive a powerful shock from the fromitz board."
+
+
+	.FUNCT	PLANETARY-COURSE-CONTROL-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a long room whose walls are covered with complicated controls and colored lights. "
+	ZERO?	COURSE-CONTROL-FIXED /?CCL6
+	PRINTI	"One blinking light says ""Kors diivurjins minimiizeeng."""
+	JUMP	?CND4
+?CCL6:	PRINTI	"Two of these lights are blinking. The first one reads ""Bedistur Faalyur!"" The other light reads ""Kritikul diivurjins frum pland kors."""
+?CND4:	PRINTI	" In one corner is a large metal cube whose lid is "
+	FSET?	CUBE,OPENBIT \?CCL9
+	PRINTI	"open"
+	JUMP	?CND7
+?CCL9:	PRINTI	"closed"
+?CND7:	PRINTR	"."
+
+
+	.FUNCT	CUBE-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	CUBE,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET	CUBE,OPENBIT
+	PRINTI	"The lid swings open."
+	CRLF	
+	ICALL	PERFORM,V?LOOK-INSIDE,CUBE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL8
+	FSET?	CUBE,OPENBIT \?CCL11
+	FCLEAR	CUBE,OPENBIT
+	PRINTR	"The lid swings closed."
+?CCL11:	CALL1	IS-CLOSED
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	PRSI,CUBE \FALSE
+	FSET?	CUBE,OPENBIT /?CCL18
+	PRINTR	"The cube is closed."
+?CCL18:	IN?	BAD-BEDISTOR,CUBE \?CCL20
+	PRINTR	"There's a fused bedistor in the way."
+?CCL20:	EQUAL?	PRSO,GOOD-BEDISTOR \?CCL22
+	MOVE	GOOD-BEDISTOR,CUBE
+	FSET?	CUBE,MUNGEDBIT /?CCL25
+	SET	'COURSE-CONTROL-FIXED,TRUE-VALUE
+	FSET	GOOD-BEDISTOR,TRYTAKEBIT
+	ADD	SCORE,6 >SCORE
+	PRINTR	"Done. The warning lights go out and another light goes on."
+?CCL25:	PRINTR	"Done."
+?CCL22:	EQUAL?	PRSO,BAD-BEDISTOR \?CCL27
+	MOVE	BAD-BEDISTOR,CUBE
+	PRINTR	"Done."
+?CCL27:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" doesn't fit."
+	RTRUE	
+
+
+	.FUNCT	BAD-BEDISTOR-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	IN?	BAD-BEDISTOR,CUBE \?CCL3
+	PRINTR	"It seems to be fused to its socket."
+?CCL3:	EQUAL?	PRSA,V?ZATTRACT \FALSE
+	EQUAL?	PRSI,PLIERS \?CCL10
+	MOVE	BAD-BEDISTOR,ADVENTURER
+	FCLEAR	BAD-BEDISTOR,TRYTAKEBIT
+	PRINTR	"With a tug, you manage to remove the fused bedistor."
+?CCL10:	PRINTR	"You can't get a grip on the bedistor with that."
+
+
+	.FUNCT	GREEN-SPOOL-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	IN?	GREEN-SPOOL,SPOOL-READER \FALSE
+	FSET?	SPOOL-READER,ONBIT \FALSE
+	MOVE	GREEN-SPOOL,ADVENTURER
+	FCLEAR	GREEN-SPOOL,TRYTAKEBIT
+	PRINTR	"The screen goes blank as you take the spool."
+
+
+	.FUNCT	TERMINAL-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The computer terminal consists of a video display screen, a keyboard with ten keys numbered from zero through nine, and an on-off switch. "
+	FSET?	TERMINAL,ONBIT \?CCL6
+	PRINTI	"The screen displays some writing:"
+	CRLF	
+	PRINT	SCREEN-TEXT
+	CRLF	
+	GRTR?	MENU-LEVEL,9 \TRUE
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL6:	PRINTR	"The screen is dark."
+?CCL3:	EQUAL?	PRSA,V?READ \?CCL10
+	FSET?	TERMINAL,ONBIT \?CCL13
+	PRINT	SCREEN-TEXT
+	CRLF	
+	GRTR?	MENU-LEVEL,9 \TRUE
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL13:	PRINTR	"The screen is blank."
+?CCL10:	EQUAL?	PRSA,V?LAMP-ON \?CCL17
+	FSET?	TERMINAL,ONBIT \?CCL20
+	PRINTR	"It's already on."
+?CCL20:	FSET	TERMINAL,ONBIT
+	FSET	TERMINAL,TOUCHBIT
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINTI	"The screen gives off a green flash, and then some writing appears on the screen:"
+	CRLF	
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	FSET?	TERMINAL,ONBIT \?CCL25
+	FCLEAR	TERMINAL,ONBIT
+	SET	'MENU-LEVEL,0
+	PRINTR	"The screen goes dark."
+?CCL25:	PRINTR	"It isn't on!"
+
+
+	.FUNCT	LIBRARY-TYPE
+	EQUAL?	PRSO,INTNUM /?CCL3
+	CALL1	NUMBERS-ONLY
+	RSTACK	
+?CCL3:	ZERO?	MENU-LEVEL \?CCL5
+	ZERO?	P-NUMBER \?CCL8
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL8:	EQUAL?	P-NUMBER,1 \?CCL10
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,HISTORY-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	SET	'MENU-LEVEL,1
+	RETURN	MENU-LEVEL
+?CCL10:	EQUAL?	P-NUMBER,2 \?CCL12
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,CULTURE-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	SET	'MENU-LEVEL,2
+	RETURN	MENU-LEVEL
+?CCL12:	EQUAL?	P-NUMBER,3 \?CCL14
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,TECHNOLOGY-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	SET	'MENU-LEVEL,3
+	RETURN	MENU-LEVEL
+?CCL14:	EQUAL?	P-NUMBER,4 \?CCL16
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,GEOGRAPHY-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	SET	'MENU-LEVEL,4
+	RETURN	MENU-LEVEL
+?CCL16:	EQUAL?	P-NUMBER,5 \?CCL18
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,PROJECT-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	SET	'MENU-LEVEL,5
+	RETURN	MENU-LEVEL
+?CCL18:	EQUAL?	P-NUMBER,6 \?CCL20
+	SET	'MENU-LEVEL,6
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,INTERLOGIC-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL20:	GRTR?	P-NUMBER,6 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL5:	EQUAL?	MENU-LEVEL,1 \?CCL24
+	ZERO?	P-NUMBER \?CCL27
+	SET	'MENU-LEVEL,0
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL27:	EQUAL?	P-NUMBER,1 \?CCL29
+	SET	'MENU-LEVEL,11
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,11-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL29:	EQUAL?	P-NUMBER,2 \?CCL31
+	SET	'MENU-LEVEL,12
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,12-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL31:	EQUAL?	P-NUMBER,3 \?CCL33
+	SET	'MENU-LEVEL,13
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,13-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL33:	GRTR?	P-NUMBER,3 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL24:	EQUAL?	MENU-LEVEL,2 \?CCL37
+	ZERO?	P-NUMBER \?CCL40
+	SET	'MENU-LEVEL,0
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL40:	EQUAL?	P-NUMBER,1 \?CCL42
+	SET	'MENU-LEVEL,21
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,21-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL42:	EQUAL?	P-NUMBER,2 \?CCL44
+	SET	'MENU-LEVEL,22
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,22-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL44:	EQUAL?	P-NUMBER,3 \?CCL46
+	SET	'MENU-LEVEL,23
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,23-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL46:	GRTR?	P-NUMBER,4 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL37:	EQUAL?	MENU-LEVEL,3 \?CCL50
+	ZERO?	P-NUMBER \?CCL53
+	SET	'MENU-LEVEL,0
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL53:	EQUAL?	P-NUMBER,1 \?CCL55
+	SET	'MENU-LEVEL,31
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,31-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL55:	EQUAL?	P-NUMBER,2 \?CCL57
+	SET	'MENU-LEVEL,32
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,32-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL57:	EQUAL?	P-NUMBER,3 \?CCL59
+	SET	'MENU-LEVEL,33
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,33-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL59:	EQUAL?	P-NUMBER,4 \?CCL61
+	SET	'MENU-LEVEL,34
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,34-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL61:	EQUAL?	P-NUMBER,5 \?CCL63
+	SET	'MENU-LEVEL,35
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,35-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL63:	GRTR?	P-NUMBER,5 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL50:	EQUAL?	MENU-LEVEL,4 \?CCL67
+	ZERO?	P-NUMBER \?CCL70
+	SET	'MENU-LEVEL,0
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL70:	EQUAL?	P-NUMBER,1 \?CCL72
+	SET	'MENU-LEVEL,41
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,41-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL72:	EQUAL?	P-NUMBER,2 \?CCL74
+	SET	'MENU-LEVEL,42
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,42-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL74:	EQUAL?	P-NUMBER,3 \?CCL76
+	SET	'MENU-LEVEL,43
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,43-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL76:	GRTR?	P-NUMBER,3 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL67:	EQUAL?	MENU-LEVEL,5 \?CCL80
+	ZERO?	P-NUMBER \?CCL83
+	SET	'MENU-LEVEL,0
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL83:	EQUAL?	P-NUMBER,1 \?CCL85
+	SET	'MENU-LEVEL,51
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,51-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL85:	EQUAL?	P-NUMBER,2 \?CCL87
+	SET	'MENU-LEVEL,52
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,52-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL87:	EQUAL?	P-NUMBER,3 \?CCL89
+	SET	'MENU-LEVEL,53
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,53-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL89:	GRTR?	P-NUMBER,3 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL80:	EQUAL?	MENU-LEVEL,6 \?CCL93
+	ZERO?	P-NUMBER \?CCL96
+	SET	'MENU-LEVEL,0
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,MAIN-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL96:	EQUAL?	P-NUMBER,1 \?CCL98
+	SET	'MENU-LEVEL,61
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,61-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	IN?	FLOYD,HERE \FALSE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTR	"Floyd, peering over your shoulder, says ""Oh, I love that game! Solved every problem, except couldn't figure out how to get into white house."""
+?CCL98:	EQUAL?	P-NUMBER,2 \?CCL103
+	SET	'MENU-LEVEL,62
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,62-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL103:	EQUAL?	P-NUMBER,3 \?CCL105
+	SET	'MENU-LEVEL,63
+	PRINT	TEXT-APPEARS
+	CRLF	
+	SET	'SCREEN-TEXT,63-TEXT
+	PRINT	SCREEN-TEXT
+	CRLF	
+	PRINT	MORE-INFO
+	CRLF	
+	RTRUE	
+?CCL105:	GRTR?	P-NUMBER,3 \FALSE
+	PRINT	NO-MEANING
+	CRLF	
+	RTRUE	
+?CCL93:	GRTR?	MENU-LEVEL,10 \?CCL109
+	LESS?	MENU-LEVEL,20 \?CCL109
+	ZERO?	P-NUMBER \?CCL114
+	SET	'MENU-LEVEL,1
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,HISTORY-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL114:	PRINT	LOW-END
+	CRLF	
+	RTRUE	
+?CCL109:	GRTR?	MENU-LEVEL,20 \?CCL116
+	LESS?	MENU-LEVEL,30 \?CCL116
+	ZERO?	P-NUMBER \?CCL121
+	SET	'MENU-LEVEL,2
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,CULTURE-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL121:	PRINT	LOW-END
+	CRLF	
+	RTRUE	
+?CCL116:	GRTR?	MENU-LEVEL,30 \?CCL123
+	LESS?	MENU-LEVEL,40 \?CCL123
+	ZERO?	P-NUMBER \?CCL128
+	SET	'MENU-LEVEL,3
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,TECHNOLOGY-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL128:	PRINT	LOW-END
+	CRLF	
+	RTRUE	
+?CCL123:	GRTR?	MENU-LEVEL,40 \?CCL130
+	LESS?	MENU-LEVEL,50 \?CCL130
+	ZERO?	P-NUMBER \?CCL135
+	SET	'MENU-LEVEL,4
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,GEOGRAPHY-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL135:	PRINT	LOW-END
+	CRLF	
+	RTRUE	
+?CCL130:	GRTR?	MENU-LEVEL,50 \?CCL137
+	LESS?	MENU-LEVEL,60 \?CCL137
+	ZERO?	P-NUMBER \?CCL142
+	SET	'MENU-LEVEL,5
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,PROJECT-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL142:	PRINT	LOW-END
+	CRLF	
+	RTRUE	
+?CCL137:	GRTR?	MENU-LEVEL,60 \FALSE
+	LESS?	MENU-LEVEL,70 \FALSE
+	ZERO?	P-NUMBER \?CCL149
+	SET	'MENU-LEVEL,6
+	PRINT	SCREEN-CLEARS
+	CRLF	
+	SET	'SCREEN-TEXT,INTERLOGIC-MENU
+	PRINT	SCREEN-TEXT
+	CRLF	
+	RTRUE	
+?CCL149:	PRINT	LOW-END
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SPOOL-READER-F
+	EQUAL?	PRSA,V?LAMP-ON \?CCL3
+	FSET?	SPOOL-READER,ONBIT \?CCL6
+	PRINTR	"The spool reader is already on."
+?CCL6:	FSET	SPOOL-READER,ONBIT
+	FSET	SPOOL-READER,TOUCHBIT
+	FIRST?	SPOOL-READER \?CCL9
+	PRINT	SPOOL-TEXT
+	CRLF	
+	RTRUE	
+?CCL9:	PRINTR	"The machine hums quietly, and the screen lights up with the phrase ""Pleez insurt spuul."""
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF \?CCL11
+	FSET?	SPOOL-READER,ONBIT \?CCL14
+	FCLEAR	SPOOL-READER,ONBIT
+	PRINTR	"The spool reader is now off."
+?CCL14:	PRINTR	"It's not on!"
+?CCL11:	EQUAL?	PRSA,V?EXAMINE \?CCL16
+	PRINTI	"The machine has a small screen, and below that, a small circular opening. The screen is currently "
+	FSET?	SPOOL-READER,ONBIT \?CCL19
+	FIRST?	SPOOL-READER \?CCL19
+	PRINTI	"displaying some information:"
+	CRLF	
+	PRINT	SPOOL-TEXT
+	CRLF	
+	RTRUE	
+?CCL19:	PRINTR	"blank."
+?CCL16:	EQUAL?	PRSA,V?READ \?CCL23
+	FSET?	SPOOL-READER,ONBIT \?CCL26
+	FIRST?	SPOOL-READER \?CCL26
+	PRINT	SPOOL-TEXT
+	CRLF	
+	RTRUE	
+?CCL26:	PRINTR	"The screen is blank."
+?CCL23:	EQUAL?	PRSA,V?PUT \?CCL30
+	EQUAL?	PRSI,SPOOL-READER \?CCL30
+	FIRST?	SPOOL-READER \?CCL35
+	PRINTR	"There's already a spool in the reader."
+?CCL35:	EQUAL?	PRSO,GREEN-SPOOL \?CCL37
+	SET	'SPOOL-TEXT,GREEN-TEXT
+	MOVE	GREEN-SPOOL,SPOOL-READER
+	FSET	GREEN-SPOOL,TRYTAKEBIT
+	PRINT	SPOOL-FITS
+	FSET?	SPOOL-READER,ONBIT \?CND38
+	PRINT	SOME-INFO
+?CND38:	CRLF	
+	RTRUE	
+?CCL37:	EQUAL?	PRSO,RED-SPOOL \?CCL41
+	SET	'SPOOL-TEXT,RED-TEXT
+	MOVE	RED-SPOOL,SPOOL-READER
+	FSET	RED-SPOOL,TRYTAKEBIT
+	PRINT	SPOOL-FITS
+	FSET?	SPOOL-READER,ONBIT \?CND42
+	PRINT	SOME-INFO
+?CND42:	CRLF	
+	RTRUE	
+?CCL41:	PRINTR	"It doesn't fit in the circular opening."
+?CCL30:	EQUAL?	PRSA,V?CLOSE \FALSE
+	ICALL1	NO-CLOSE
+	RTRUE	
+
+
+	.FUNCT	PROJCON-OFFICE-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This office looks like a headquarters of some kind. Exits lead north and east. The west wall displays a logo. "
+	ZERO?	COMPUTER-FIXED /?CCL6
+	PRINTR	"The mural that previously adorned the south wall has slid away, revealing an open doorway to a large elevator!"
+?CCL6:	PRINTR	"The south wall is completely covered by a garish mural which clashes with the other decor of the room."
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	IN?	FLOYD,HERE \FALSE
+	ZERO?	MURAL-FLAG \FALSE
+	SET	'MURAL-FLAG,TRUE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTR	"Floyd surveys the mural and scratches his head. ""I don't remember seeing this before,"" he comments."
+
+
+	.FUNCT	CRYO-ELEVATOR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a large, plain elevator with one solitary button and a door to the north which is "
+	ICALL2	DDESC,CRYO-ELEVATOR-DOOR
+	PRINTR	"."
+
+
+	.FUNCT	CRYO-EXIT-F
+	FSET?	CRYO-ELEVATOR-DOOR,OPENBIT \?CCL3
+	ZERO?	CRYO-SCORE-FLAG /?CCL6
+	RETURN	CRYO-ANTEROOM
+?CCL6:	RETURN	PROJCON-OFFICE
+?CCL3:	ICALL1	DOOR-CLOSED
+	RFALSE	
+
+
+	.FUNCT	I-CRYO-ELEVATOR-ARRIVE
+	FSET	CRYO-ELEVATOR-DOOR,OPENBIT
+	CRLF	
+	PRINTR	"The elevator door opens onto a room to the north."
+
+
+	.FUNCT	CRYO-ANTEROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"The elevator closes as you leave it, and you find yourself in a small, chilly room. To the north, through a wide arch, is an enormous chamber lined from floor to ceiling with thousands of cryo-units. You can see similar chambers beyond, and your mind staggers at the thought of the millions of individuals asleep for countless centuries.
+
+In the anteroom where you stand is a solitary cryo-unit, its cover frosted. Next to the cryo-unit is a complicated control panel."
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	PRINTI	"A door slides open and a medical robot glides in. It opens the cryo-unit and administers an injection to its inhabitant. As the robot glides away, a figure rises from the cryo-unit -- a handsome, middle-aged woman with flowing red hair. She spends some time studying readouts from the control panel"
+	ZERO?	COMM-FIXED /?CCL8
+	ZERO?	DEFENSE-FIXED /?CCL8
+	PRINTI	", pressing several keys."
+	CRLF	
+	JUMP	?CND6
+?CCL8:	PRINTC	46
+	CRLF	
+?CND6:	ZERO?	COURSE-CONTROL-FIXED /?CCL13
+	PRINTI	"
+As other cryo-units in the chambers beyond begin opening, the woman turns to you, bows gracefully, and speaks in a beautiful, lilting voice. ""I am Veldina, leader of Resida. Thanks to you, the cure has been discovered, and the planetary systems repaired. We are eternally grateful."""
+	CRLF	
+	ZERO?	COMM-FIXED /?CCL16
+	ZERO?	DEFENSE-FIXED /?CCL16
+	PRINTI	"
+""You will also be glad to hear that a ship of your Stellar Patrol now orbits the planet. I have sent them the coordinates for this room."" As if on cue, a landing party from the S.P.S. Flathead materializes nearby. Blather is with them, having been picked up from deep space in another escape pod, babbling cravenly. Captain Sterling of the Flathead acknowledges your heroic actions, and informs you of your promotion to Lieutenant First Class.
+
+As a team of mutant hunters head for the cryo-elevator, Veldina mentions that the grateful people of Resida offer you leadership of their world. Captain Sterling points out that, even if you choose to remain on Resida, Blather (demoted to Ensign Twelfth Class) has been assigned as your personal toilet attendant.
+
+You feel a sting from your arm and turn to see a medical robot moving away after administering the antidote for The Disease.
+
+A team of robot technicians step into the anteroom. They part their ranks, and a familiar figure comes bounding toward you! ""Hi!"" shouts Floyd, with uncontrolled enthusiasm. ""Floyd feeling better now!"" Smiling from ear to ear, he says, ""Look what Floyd found!"" He hands you a helicopter key, a reactor elevator card, and a paddleball set. ""Maybe we can use them in the sequel..."""
+	CRLF	
+	CRLF	
+	CALL2	FINISH,FALSE-VALUE
+	RSTACK	
+?CCL16:	PRINTI	"
+""Unfortunately, a second ship from your Stellar Patrol has "
+	ZERO?	DEFENSE-FIXED \?CCL21
+	PRINTI	"been destroyed by our malfunctioning meteor defenses."
+	JUMP	?CND19
+?CCL21:	PRINTI	"come looking for survivors, and because of our malfunctioning communications system, has given up and departed."
+?CND19:	PRINTI	" I fear that you are stranded on Resida, possibly forever. However, we show our gratitude by offering you an unlimited bank account and a house in the country."""
+	CRLF	
+	CRLF	
+	CALL2	FINISH,FALSE-VALUE
+	RSTACK	
+?CCL13:	PRINTI	"
+She turns to you and, with a strained voice says, ""You have fixed our computer and a Cure has been discovered, and we are grateful. But alas, it was all in vain. Our planetary course control system has malfunctioned, and the orbit has now decayed beyond correction. Soon Resida will plunge into the sun."""
+	CRLF	
+	CRLF	
+	ZERO?	COMM-FIXED /?CND22
+	ZERO?	DEFENSE-FIXED /?CND22
+	PRINTI	"Veldina examines the control panel again. ""Fortunately, another ship from your Stellar Patrol has arrived, so at least you will survive."" At that moment, a landing party from the S.P.S. Flathead materializes, and takes you away from the doomed world."
+	CRLF	
+	CRLF	
+?CND22:	CALL2	FINISH,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	COMPUTER-ACTION
+	SET	'COMPUTER-FLAG,TRUE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"Floyd examines the "
+	EQUAL?	HERE,COMPUTER-ROOM \?CCL3
+	PRINTI	"glowing light"
+	JUMP	?CND1
+?CCL3:	PRINTI	"computer printout"
+?CND1:	PRINTR	". With a concerned frown, he says, ""Uh oh. Computer is broken. A Doctor-person once told Floyd that Computer is the most important part of the Project."""
+
+
+	.FUNCT	PRINT-OUT-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	ICALL1	FIXED-FONT-ON
+	PRINTI	"The printout is hundreds of pages long. It would take many chrons to read it all. The last page looks pretty interesting, though:
+
+""Daalee Statis Reeport:
+PREELIMINEREE REESURC:  100.000%
+INTURMEEDEEIT REESURC:  100.000%
+FIINUL REESURC:         100.000%
+DRUG PROODUKSHUN:       100.000%
+DRUG TESTEENG:           99.985%
+Proojektid tiim tuu reeviivul prooseedzur:  0 daaz, 0.8 kronz
+
+
+*** ALURT! ALURT! ***
+Malfunkshun in Sekshun 384! Sumuneeng reepaar roobot.""
+
+The printout ends at this point."
+	CRLF	
+	CALL1	FIXED-FONT-OFF
+	RSTACK	
+
+
+	.FUNCT	MINI-CARD-F
+	FSET?	MINI-CARD,NDESCBIT \FALSE
+	EQUAL?	PRSA,V?TURN,V?MOVE,V?RUB /?CCL3
+	EQUAL?	PRSA,V?PUSH,V?TAKE,V?SET /?CCL3
+	EQUAL?	PRSA,V?SMELL,V?PULL \FALSE
+?CCL3:	PRINTR	"It's in the next room."
+
+
+	.FUNCT	LAB-UNIFORM-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"It is a plain lab uniform. The logo above the pocket depicts a flame burning above some kind of sleep chamber. The pocket is "
+	ICALL2	DDESC,LAB-UNIFORM
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?OPEN,V?SEARCH \?CCL5
+	FSET?	LAB-UNIFORM,OPENBIT \?CCL8
+	PRINTR	"The pocket is already open."
+?CCL8:	FSET	LAB-UNIFORM,OPENBIT
+	ZERO?	UNIFORM-OPENED /?CCL11
+	FIRST?	LAB-UNIFORM \?CCL14
+	PRINTI	"Opening the uniform's pocket reveals "
+	ICALL2	PRINT-CONTENTS,LAB-UNIFORM
+	PRINTR	"."
+?CCL14:	PRINTR	"The pocket is empty."
+?CCL11:	FSET	LAB-UNIFORM,OPENBIT
+	SET	'UNIFORM-OPENED,TRUE-VALUE
+	PRINTR	"You discover a small piece of paper and a teleportation access card in the pocket of the uniform."
+?CCL5:	EQUAL?	PRSA,V?WEAR \FALSE
+	FSET?	PATROL-UNIFORM,WORNBIT \FALSE
+	PRINTR	"It won't fit on top of the Patrol uniform."
+
+
+	.FUNCT	COMBINATION-PAPER-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTI	"Week uv 14-Juun--2882. Kombinaashun tuu Konfurins Ruum: "
+	PRINTN	NUMBER-NEEDED
+	PRINTR	"."
+
+
+	.FUNCT	BIO-LOCK-EAST-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	IN?	FLOYD,HERE \FALSE
+	FSET?	FLOYD,RLANDBIT \FALSE
+	EQUAL?	FLOYD,WINNER /FALSE
+	ZERO?	FLOYD-WAITING /?CCL10
+	GRTR?	WAITING-COUNTER,3 \?CCL13
+	SET	'FLOYD-WAITING,FALSE-VALUE
+	SET	'FLOYD-GAVE-UP,TRUE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	SET	'FLOYD-FOLLOW,FALSE-VALUE
+	MOVE	FLOYD,BIO-LOCK-WEST
+	CALL	QUEUE,I-FLOYD,1
+	PUT	STACK,0,1
+	PRINTR	"""Okay,"" says Floyd with uncharacteristic annoyance. ""Forget about the stupid card."" He goes to the other end of the bio-lock and sulks."
+?CCL13:	ZERO?	FLOYD-FORAYED \FALSE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	INC	'WAITING-COUNTER
+	PRINTR	"Floyd looks at you with a dash of impatience and a healthy helping of nervousness. ""Well?"" he asks. ""Are you going to open the door?"""
+?CCL10:	ZERO?	FLOYD-GAVE-UP \FALSE
+	ZERO?	FLOYD-PEERED \FALSE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	SET	'FLOYD-PEERED,TRUE-VALUE
+	CALL	QUEUE,I-CLEAR-FLOYD-PEER,40
+	PUT	STACK,0,1
+	FCLEAR	MINI-CARD,INVISIBLE
+	PRINTI	"Floyd stands on his tiptoes and peers in the window. "
+	ZERO?	COMPUTER-FLAG /?CCL22
+	SET	'FLOYD-WAITING,TRUE-VALUE
+	PRINTR	"""Looks dangerous in there,"" says Floyd. ""I don't think you should go inside."" He peers in again. ""We'll need card there to fix computer. Hmmm... I know! Floyd will get card. Robots are tough. Nothing can hurt robots. You open the door, then Floyd will rush in. Then you close door. When Floyd knocks, open door again. Okay? Go!"" Floyd's voice trembles slightly as he waits for you to open the door."
+?CCL22:	PRINTR	"""Ooo, look,"" he says. ""There's a miniaturization booth access card!"""
+
+
+	.FUNCT	I-CLEAR-FLOYD-PEER
+	SET	'FLOYD-PEERED,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	BIO-DOOR-EAST-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET?	BIO-DOOR-WEST,OPENBIT \?CCL8
+	PRINT	BOTH-DOORS
+	CRLF	
+	RTRUE	
+?CCL8:	ZERO?	FLOYD-WAITING /?CCL10
+	FSET?	FLOYD,RLANDBIT \?CCL10
+	ZERO?	FORAY-COUNTER \?CCL10
+	CALL	QUEUE,I-FLOYD-FORAY,-1
+	PUT	STACK,0,1
+	SET	'FLOYD-FORAYED,TRUE-VALUE
+	FSET	BIO-DOOR-EAST,OPENBIT
+	REMOVE	FLOYD
+	CALL2	INT,I-FLOYD
+	PUT	STACK,0,0
+	PRINTR	"The door opens and Floyd, pausing only for the briefest moment, plunges into the Bio Lab. Immediately, he is set upon by hideous, mutated monsters! More are heading straight toward the open door! Floyd shrieks and yells to you to close the door."
+?CCL10:	ZERO?	FLOYD-FORAYED \?CCL15
+	CALL2	INT,I-CHASE-SCENE
+	GET	STACK,C-ENABLED?
+	ZERO?	STACK \?CCL15
+	CALL2	JIGS-UP,STR?291
+	RSTACK	
+?CCL15:	FSET	BIO-DOOR-EAST,OPENBIT
+	CALL	QUEUE,I-BIO-EAST-CLOSES,30
+	PUT	STACK,0,1
+	PRINT	DOOR-OPENS
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL22
+	EQUAL?	FORAY-COUNTER,4 \?CND23
+	SET	'C-ELAPSED,95
+?CND23:	FCLEAR	BIO-DOOR-EAST,OPENBIT
+	PRINTI	"The door closes"
+	CALL2	INT,I-CHASE-SCENE
+	GET	STACK,C-ENABLED?
+	EQUAL?	STACK,1 \?CCL27
+	PRINTR	", but not soon enough!"
+?CCL27:	PRINTR	"."
+?CCL22:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	I-BIO-EAST-CLOSES
+	FSET?	BIO-DOOR-EAST,OPENBIT \FALSE
+	FCLEAR	BIO-DOOR-EAST,OPENBIT
+	EQUAL?	HERE,BIO-LOCK-EAST,BIO-LOCK-WEST,BIO-LAB \FALSE
+	CRLF	
+	PRINTR	"The door at the eastern end of the bio-lock closes silently."
+
+
+	.FUNCT	BIO-DOOR-WEST-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	BIO-DOOR-WEST,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL8
+	PRINT	BOTH-DOORS
+	CRLF	
+	RTRUE	
+?CCL8:	PRINT	DOOR-OPENS
+	CRLF	
+	CALL	QUEUE,I-BIO-WEST-CLOSES,30
+	PUT	STACK,0,1
+	FSET	BIO-DOOR-WEST,OPENBIT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	BIO-DOOR-WEST,OPENBIT \?CCL13
+	FCLEAR	BIO-DOOR-WEST,OPENBIT
+	PRINT	DOOR-CLOSES
+	CRLF	
+	RTRUE	
+?CCL13:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	I-BIO-WEST-CLOSES
+	FSET?	BIO-DOOR-WEST,OPENBIT \FALSE
+	FCLEAR	BIO-DOOR-WEST,OPENBIT
+	EQUAL?	HERE,BIO-LOCK-WEST,BIO-LOCK-EAST,MAIN-LAB \FALSE
+	CRLF	
+	PRINTR	"The door at the western end of the bio-lock closes silently."
+
+
+	.FUNCT	RAD-DOOR-EAST-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	RAD-DOOR-EAST,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET?	RAD-DOOR-WEST,OPENBIT \?CCL8
+	PRINT	BOTH-DOORS
+	CRLF	
+	RTRUE	
+?CCL8:	FSET	RAD-DOOR-EAST,OPENBIT
+	PRINT	DOOR-OPENS
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	RAD-DOOR-EAST,OPENBIT \?CCL13
+	FCLEAR	RAD-DOOR-EAST,OPENBIT
+	PRINT	DOOR-CLOSES
+	CRLF	
+	RTRUE	
+?CCL13:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	RAD-DOOR-WEST-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	RAD-DOOR-WEST,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	FSET?	RAD-DOOR-EAST,OPENBIT \?CCL8
+	PRINT	BOTH-DOORS
+	CRLF	
+	RTRUE	
+?CCL8:	PRINT	DOOR-OPENS
+	CRLF	
+	FSET	RAD-DOOR-WEST,OPENBIT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	RAD-DOOR-WEST,OPENBIT \?CCL13
+	FCLEAR	RAD-DOOR-WEST,OPENBIT
+	PRINT	DOOR-CLOSES
+	CRLF	
+	RTRUE	
+?CCL13:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	I-FLOYD-FORAY
+	INC	'FORAY-COUNTER
+	EQUAL?	FORAY-COUNTER,2 \?CCL3
+	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL6
+	CRLF	
+	CALL1	MONSTER-DEATH
+	RSTACK	
+?CCL6:	CRLF	
+	PRINTR	"From within the lab you hear ferocious growlings, the sounds of a skirmish, and then a high-pitched metallic scream!"
+?CCL3:	EQUAL?	FORAY-COUNTER,3 \?CCL8
+	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL11
+	CRLF	
+	CALL1	MONSTER-DEATH
+	RSTACK	
+?CCL11:	CRLF	
+	PRINTR	"You hear, slightly muffled by the door, three fast knocks, followed by the distinctive sound of tearing metal."
+?CCL8:	EQUAL?	FORAY-COUNTER,4 \?CCL13
+	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL16
+	MOVE	FLOYD,HERE
+	CRLF	
+	PRINTR	"Floyd stumbles out of the Bio Lab, clutching the mini-booth card. The mutations rush toward the open doorway!"
+?CCL16:	CRLF	
+	PRINTI	"The three knocks come again, followed by a wild scream. Then, all is silence from within the Bio Lab, except for an occasional metallic crunch."
+	CRLF	
+	FCLEAR	FLOYD,RLANDBIT
+	CALL2	INT,I-FLOYD-FORAY
+	PUT	STACK,0,0
+	RTRUE	
+?CCL13:	EQUAL?	FORAY-COUNTER,5 \FALSE
+	FSET?	BIO-DOOR-EAST,OPENBIT \?CCL21
+	CRLF	
+	CALL1	MONSTER-DEATH
+	RSTACK	
+?CCL21:	REMOVE	FLOYD
+	FCLEAR	FLOYD,RLANDBIT
+	CALL2	INT,I-FLOYD
+	PUT	STACK,0,0
+	FSET	FLOYD,INVISIBLE
+	MOVE	DEAD-FLOYD,HERE
+	MOVE	MINI-CARD,BIO-LOCK-EAST
+	FSET	MINI-CARD,TOUCHBIT
+	ADD	SCORE,2 >SCORE
+	CRLF	
+	PRINTI	"And not a moment too soon! You hear a pounding from the door as the monsters within vent their frustration at losing their prey.
+
+Floyd staggers to the ground, dropping the mini card. He is badly torn apart, with loose wires and broken circuits everywhere. Oil flows from his lubrication system. He obviously has only moments to live.
+
+You drop to your knees and cradle Floyd's head in your lap. Floyd looks up at his friend with half-open eyes. ""Floyd did it ... got card. Floyd a good friend, huh?"" Quietly, you sing Floyd's favorite song, the Ballad of the Starcrossed Miner:
+
+O, they ruled the solar system
+Near ten thousand years before
+In their single starcrossed scout ships
+Mining ast'roids, spinning lore.
+
+Then one true courageous miner
+Spied a spaceship from the stars
+Boarded he that alien liner
+Out beyond the orb of Mars.
+
+Yes, that ship was filled with danger
+Mighty monsters barred his way
+Yet he solved the alien myst'ries
+Mining quite a lode that day.
+
+O, they ruled the solar system
+Near ten thousand years before
+'Til one brave advent'rous spirit
+Brought that mighty ship to shore.
+
+As you finish the last verse, Floyd smiles with contentment, and then his eyes close as his head rolls to one side. You sit in silence for a moment, in memory of a brave friend who gave his life so that you might live."
+	CRLF	
+	FCLEAR	FLOYD,RLANDBIT
+	FCLEAR	MINI-CARD,NDESCBIT
+	CALL2	INT,I-FLOYD-FORAY
+	PUT	STACK,0,0
+	RTRUE	
+
+
+	.FUNCT	MONSTER-DEATH
+	CALL2	JIGS-UP,STR?295
+	RSTACK	
+
+
+	.FUNCT	BIO-LAB-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This is a huge laboratory filled with many biological experiments. The lighting is "
+	ZERO?	LAB-LIGHTS-ON /?CCL6
+	PRINTI	"bright."
+	JUMP	?CND4
+?CCL6:	PRINTI	"dim, and a faint blue glow comes from a gaping crack in the northern wall."
+?CND4:	PRINTR	" Some of the experiments seem to be out of control..."
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	CALL	QUEUE,I-CHASE-SCENE,-1
+	PUT	STACK,0,1
+	ZERO?	LAB-FLOODED /?CCL11
+	PRINTI	"The air is filled with mist, which is affecting the mutants. They appear to be stunned and confused, but are slowly recovering."
+	CRLF	
+	FSET?	GAS-MASK,WORNBIT /FALSE
+	CALL2	JIGS-UP,STR?296
+	RSTACK	
+?CCL11:	CALL2	JIGS-UP,STR?297
+	RSTACK	
+
+
+	.FUNCT	I-CHASE-SCENE
+	IN?	RAT-ANT,HERE \?CCL3
+	ZERO?	LAB-FLOODED \?CCL3
+	ICALL2	JIGS-UP,STR?298
+	JUMP	?CND1
+?CCL3:	ZERO?	LAB-FLOODED \?CND1
+	EQUAL?	HERE,BIO-LOCK-WEST \?CCL9
+	ZERO?	EXTRA-MOVE-FLAG \?CCL9
+	SET	'EXTRA-MOVE-FLAG,TRUE-VALUE
+	CRLF	
+	PRINTI	"The monsters gallop toward you, smacking their lips."
+	CRLF	
+	JUMP	?CND1
+?CCL9:	EQUAL?	HERE,CRYO-ELEVATOR \?CCL13
+	ZERO?	CRYO-MOVE-FLAG \?CCL13
+	SET	'CRYO-MOVE-FLAG,TRUE-VALUE
+	CRLF	
+	PRINTI	"The monsters are storming straight toward the elevator door!"
+	CRLF	
+	JUMP	?CND1
+?CCL13:	EQUAL?	HERE,SECOND-TO-LAST-ROOM \?CCL17
+	EQUAL?	PRSA,V?WALK \?CCL17
+	ICALL2	JIGS-UP,STR?299
+	JUMP	?CND1
+?CCL17:	EQUAL?	HERE,CRYO-ELEVATOR \?CND20
+	CRLF	
+	ICALL1	MONSTER-DEATH
+?CND20:	MOVE	RAT-ANT,HERE
+	MOVE	TRIFFID,HERE
+	MOVE	TROLL,HERE
+	MOVE	GRUE,HERE
+	CRLF	
+	PRINTI	"The mutants "
+	EQUAL?	HERE,BIO-LOCK-WEST \?CCL24
+	PRINTI	"are almost upon you now!"
+	CRLF	
+	JUMP	?CND1
+?CCL24:	PRINTI	"burst into the room right on your heels! "
+	CALL2	PICK-ONE,MONSTER-ENTRANCES
+	PRINT	STACK
+	CRLF	
+?CND1:	SET	'SECOND-TO-LAST-ROOM,LAST-CHASE-ROOM
+	SET	'LAST-CHASE-ROOM,HERE
+	RETURN	LAST-CHASE-ROOM
+
+
+	.FUNCT	RADIATION-LAB-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	FSET?	RADIATION-LAB,TOUCHBIT /FALSE
+	CALL	QUEUE,I-NUKED-BLUE,50
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	I-NUKED-BLUE
+	CALL	QUEUE,I-NUKED-BLUE,-1
+	PUT	STACK,0,1
+	INC	'NUKED-COUNTER
+	EQUAL?	NUKED-COUNTER,1 \?CCL3
+	CRLF	
+	PRINTR	"You suddenly feel sick and dizzy."
+?CCL3:	EQUAL?	NUKED-COUNTER,2 \?CCL5
+	CRLF	
+	PRINTI	"You feel incredibly nauseous and begin vomiting. Also, all your hair has fallen out."
+	IN?	FLOYD,HERE \?CND6
+	PRINTR	" Floyd points at you and laughs hysterically. ""You look funny with no hair,"" he gasps."
+?CND6:	CRLF	
+	RTRUE	
+?CCL5:	EQUAL?	NUKED-COUNTER,3 \FALSE
+	CALL2	JIGS-UP,STR?305
+	RSTACK	
+
+
+	.FUNCT	LAMP-F
+	EQUAL?	PRSA,V?LAMP-ON \?CCL3
+	FSET?	LAMP,ONBIT \?CCL6
+	PRINTR	"It is on."
+?CCL6:	FSET	LAMP,ONBIT
+	FSET	LAMP,TOUCHBIT
+	PRINTR	"The lamp is now producing a bright light."
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	FSET?	LAMP,ONBIT \?CCL11
+	FCLEAR	LAMP,ONBIT
+	PRINTR	"The lamp goes dark."
+?CCL11:	PRINTR	"It isn't on."
+
+
+	.FUNCT	LAB-OFFICE-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This is the office for storing files on Bio Lab experiments. A large and messy desk is surrounded by locked files. A small booth lies to the south. "
+	FSET?	OFFICE-DOOR,OPENBIT \?CCL6
+	PRINTI	"An open"
+	JUMP	?CND4
+?CCL6:	PRINTI	"A closed"
+?CND4:	PRINTR	" door to the west is labelled ""Biioo Lab."" You realize with shock and horror that the only way out is through the mutant-infested Bio Lab.
+
+On the wall are three buttons: a white button labelled ""Lab Liits On"", a black button labelled ""Lab Liits Of"", and a red button labelled ""Eemurjensee Sistum."""
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	FSET?	OFFICE-DOOR,OPENBIT \FALSE
+	ZERO?	LAB-FLOODED /?CCL13
+	PRINTR	"Through the open doorway you can see the Bio Lab. It seems to be filled with a light mist. Horrifying biological nightmares stagger about making choking noises."
+?CCL13:	CALL2	JIGS-UP,STR?309
+	RSTACK	
+
+
+	.FUNCT	LAB-DESK-F
+	EQUAL?	PRSA,V?SEARCH,V?EXAMINE \?CCL3
+	FSET?	LAB-DESK,TOUCHBIT /?CCL3
+	MOVE	MEMO,ADVENTURER
+	FSET	LAB-DESK,TOUCHBIT
+	PRINTI	"After inspecting the various papers on the desk, you find only one item of interest, a memo of some sort. The desk itself is "
+	FSET?	LAB-DESK,OPENBIT \?CCL8
+	PRINTI	"open"
+	JUMP	?CND6
+?CCL8:	PRINTI	"closed, but it doesn't look locked"
+?CND6:	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?OPEN \FALSE
+	IN?	GAS-MASK,LAB-DESK \FALSE
+	ICALL2	THIS-IS-IT,GAS-MASK
+	RFALSE	
+
+
+	.FUNCT	LIGHT-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	ZERO?	LAB-LIGHTS-ON /?CCL6
+	PRINTR	"Nothing happens."
+?CCL6:	SET	'LAB-LIGHTS-ON,TRUE-VALUE
+	PRINT	FAINT-SOUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DARK-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	ZERO?	LAB-LIGHTS-ON /?CCL6
+	SET	'LAB-LIGHTS-ON,FALSE-VALUE
+	PRINT	FAINT-SOUND
+	CRLF	
+	RTRUE	
+?CCL6:	PRINTR	"Nothing happens."
+
+
+	.FUNCT	FUNGICIDE-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	SET	'LAB-FLOODED,TRUE-VALUE
+	CALL	QUEUE,I-UNFLOOD,50
+	PUT	STACK,0,1
+	PRINTR	"You hear a hissing from beyond the door to the west."
+
+
+	.FUNCT	I-UNFLOOD
+	SET	'LAB-FLOODED,FALSE-VALUE
+	EQUAL?	HERE,BIO-LAB \?CCL3
+	CRLF	
+	PRINTR	"The last traces of mist in the air vanish. The mutants, recovering quickly, notice you and begin salivating."
+?CCL3:	EQUAL?	HERE,LAB-OFFICE \FALSE
+	FSET?	OFFICE-DOOR,OPENBIT \FALSE
+	CRLF	
+	PRINTR	"The mist in the Bio Lab clears. The mutants recover and rush toward the door!"
+
+
+	.FUNCT	I-TURNOFF-MINI
+	SET	'MINI-ACTIVATED,FALSE-VALUE
+	EQUAL?	HERE,MINI-BOOTH \FALSE
+	CRLF	
+	PRINTR	"A recorded voice says ""Miniaturization booth deactivated."""
+
+
+	.FUNCT	STATION-384-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	ZERO?	BEEN-HERE /FALSE
+	SET	'BEEN-HERE,FALSE-VALUE
+	ZERO?	COMPUTER-FIXED /?CCL9
+	PRINTI	"A voice seems to whisper in your ear ""Main Miniaturization and Teleportation Booth has malfunctioned...switching to Auxiliary Booth..."" "
+	CALL	QUEUE,I-ANNOUNCEMENT,130
+	PUT	STACK,0,1
+	PRINT	FAMILIAR-WRENCHING
+	CRLF	
+	ICALL2	GOTO,AUXILIARY-BOOTH
+	RETURN	2
+?CCL9:	PRINT	FAMILIAR-WRENCHING
+	CRLF	
+	CALL	GOTO,MINI-BOOTH,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	I-ANNOUNCEMENT
+	CRLF	
+	PRINTR	"A recorded announcement blares from the public address system. ""Revival procedure beginning. Cryo-chamber access from Project Control Office now open."""
+
+
+	.FUNCT	MIDDLE-OF-STRIP-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	ZERO?	COMPUTER-FIXED /FALSE
+	ZERO?	NO-MICROBE /FALSE
+	ZERO?	MICROBE-DISPATCHED \FALSE
+	MOVE	MICROBE,HERE
+	CALL	QUEUE,I-MICROBE,-1
+	PUT	STACK,0,1
+	SET	'NO-MICROBE,FALSE-VALUE
+	PRINTI	"Suddenly, with a loud plop, a giant elephant-sized monster lands on the strip just in front of you. It is amorphously shaped, its skin a slimy translucent red membrane. While most of your brain screams with panic about the disgusting monster that now blocks your exit, some small section in the back of your mind calmly realizes that this is merely some tiny microbe which has somehow violated the sterile environment of the computer interior.
+
+As you stand frozen with fear, the microbe slithers toward you, extending slimy pseudopods thick with waving cilia. It looks pretty hungry, and seems intent on having you for lunch."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	STRIP-NEAR-RELAY-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"North of here, the filament ends at a huge featureless wall, presumably the side of some microcomponent. "
+	IN?	RELAY,HERE \?CCL6
+	PRINTR	"To the east is a vacuu-sealed microrelay, sealed in transparent red plastic. You could probably see into the microrelay."
+?CCL6:	PRINTR	"To the east are the shattered remains of some large object."
+?CCL3:	EQUAL?	RARG,M-ENTER \FALSE
+	ZERO?	NO-MICROBE \FALSE
+	MOVE	MICROBE,HERE
+	SET	'MICROBE-COUNTER,0
+	PRINTR	"The microbe, writhing angrily, follows you northward."
+
+
+	.FUNCT	RELAY-EXIT-F
+	IN?	RELAY,HERE \?CCL3
+	PRINTI	"The relay is sealed. Although you cannot enter it, you could look into it."
+	CRLF	
+	RFALSE	
+?CCL3:	PRINTI	"You would slice yourself to ribbons on the shattered relay."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	RELAY-F
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINTI	"This is a vacuum-sealed microrelay, encased in red translucent plastic."
+	ZERO?	COMPUTER-FIXED \?CND4
+	PRINTR	" Within, you can see that some sort of speck or impurity has wedged itself into the contact point of the relay, preventing it from closing. The speck, presumably of microscopic size, resembles a blue boulder to you in your current size."
+?CND4:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	LASER-DIAL-F
+	EQUAL?	PRSA,V?SET \?CCL3
+	EQUAL?	PRSI,INTNUM \?CCL3
+	FSET?	LASER-DIAL,MUNGEDBIT \?CCL8
+	PRINTR	"The laser dial seems to have become damaged and will not turn."
+?CCL8:	EQUAL?	P-NUMBER,LASER-SETTING \?CCL10
+	PRINTR	"That's where it's set now!"
+?CCL10:	GRTR?	P-NUMBER,6 /?CTR11
+	ZERO?	P-NUMBER \?CCL12
+?CTR11:	PRINTR	"The dial can only be set from 1 to 6."
+?CCL12:	SET	'LASER-SETTING,P-NUMBER
+	PRINTI	"The dial is now set to "
+	PRINTN	P-NUMBER
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The dial is currently set to "
+	PRINTN	LASER-SETTING
+	PRINTR	"."
+
+
+	.FUNCT	ZAP-COUNT
+	IN?	OLD-BATTERY,LASER \?CCL3
+	GRTR?	OLD-SHOTS,0 \TRUE
+	DEC	'OLD-SHOTS
+	RFALSE	
+?CCL3:	IN?	NEW-BATTERY,LASER \TRUE
+	GRTR?	NEW-SHOTS,0 \TRUE
+	DEC	'NEW-SHOTS
+	RFALSE	
+
+
+	.FUNCT	LASER-F,RARG
+	EQUAL?	PRSA,V?SET \?CCL3
+	EQUAL?	PRSI,INTNUM \?CCL3
+	ICALL	PERFORM,V?SET,LASER-DIAL,PRSI
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	PRINTI	"The laser, though portable, is still fairly heavy. It has a long, slender barrel and a dial with six settings, labelled ""1"" through ""6."" This dial is currently on setting "
+	PRINTN	LASER-SETTING
+	PRINTI	". There is a depression on the top of the laser which "
+	IN?	OLD-BATTERY,LASER \?CCL10
+	PRINTI	"contains an "
+	PRINTD	OLD-BATTERY
+	JUMP	?CND8
+?CCL10:	IN?	NEW-BATTERY,LASER \?CCL12
+	PRINTI	"contains a "
+	PRINTD	NEW-BATTERY
+	JUMP	?CND8
+?CCL12:	PRINTI	"is empty"
+?CND8:	PRINTR	"."
+?CCL7:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL14
+	PRINTR	"There doesn't seem to be any way to do that to this laser."
+?CCL14:	EQUAL?	PRSA,V?PUT \?CCL16
+	EQUAL?	PRSO,OLD-BATTERY \?CCL19
+	IN?	NEW-BATTERY,LASER \?CCL22
+	CALL1	ALREADY-BATTERY
+	RSTACK	
+?CCL22:	MOVE	OLD-BATTERY,LASER
+	CALL1	BATTERY-NOW
+	RSTACK	
+?CCL19:	EQUAL?	PRSO,NEW-BATTERY \?CCL24
+	IN?	OLD-BATTERY,LASER \?CCL27
+	CALL1	ALREADY-BATTERY
+	RSTACK	
+?CCL27:	MOVE	NEW-BATTERY,LASER
+	CALL1	BATTERY-NOW
+	RSTACK	
+?CCL24:	EQUAL?	LASER,PRSO /FALSE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" doesn't fit the depression."
+?CCL16:	EQUAL?	PRSA,V?ZAP \?CCL31
+	IN?	LASER,ADVENTURER /?CND32
+	ICALL1	NOT-HOLDING
+	RTRUE	
+?CND32:	ZERO?	LASER-SCORE-FLAG \?CND34
+	SET	'LASER-SCORE-FLAG,TRUE-VALUE
+	ADD	SCORE,2 >SCORE
+?CND34:	EQUAL?	PRSI,LASER /?CTR37
+	EQUAL?	PRSI,LASER-DIAL /?CTR37
+	EQUAL?	PRSI,OLD-BATTERY \?PRD42
+	IN?	OLD-BATTERY,LASER /?CTR37
+?PRD42:	EQUAL?	PRSI,NEW-BATTERY \?CCL38
+	IN?	NEW-BATTERY,LASER \?CCL38
+?CTR37:	PRINTR	"Sorry, the laser doesn't have a rubber barrel."
+?CCL38:	CALL1	ZAP-COUNT
+	ZERO?	STACK /?CCL48
+	PRINTR	"Click."
+?CCL48:	FSET?	LASER,MUNGEDBIT \?CCL50
+	PRINTR	"The laser sparks a few times, whines, and then stops."
+?CCL50:	CALL	QUEUE,I-WARMTH,-1
+	PUT	STACK,0,1
+	SET	'LASER-JUST-SHOT,TRUE-VALUE
+	EQUAL?	PRSI,SPECK \?CCL53
+	ICALL1	SHOOT-SPECK
+	RTRUE	
+?CCL53:	EQUAL?	PRSI,MICROBE \?CCL55
+	ICALL1	SHOOT-MICROBE
+	RTRUE	
+?CCL55:	FSET?	PRSI,WORNBIT /?CTR56
+	EQUAL?	PRSI,ME,HANDS,ADVENTURER \?CCL57
+?CTR56:	PRINTR	"Ouch! You managed to burn yourself nicely."
+?CCL57:	PRINTI	"The laser emits a narrow "
+	ICALL1	BEAM-COLOR
+	PRINTI	" beam of light"
+	ZERO?	PRSI /?CCL62
+	EQUAL?	PRSI,TOWEL,BROCHURE,COMBINATION-PAPER /?CTR64
+	EQUAL?	PRSI,PRINT-OUT,LAB-UNIFORM,PATROL-UNIFORM /?CTR64
+	EQUAL?	PRSI,ID-CARD,KITCHEN-CARD,MINI-CARD /?CTR64
+	EQUAL?	PRSI,TELEPORTATION-CARD,SHUTTLE-CARD,UPPER-ELEVATOR-CARD /?CTR64
+	EQUAL?	PRSI,LOWER-ELEVATOR-CARD,DIARY \?CCL65
+?CTR64:	REMOVE	PRSI
+	EQUAL?	PRSI,SPOUT-PLACED \?CND71
+	SET	'SPOUT-PLACED,GROUND
+?CND71:	PRINTI	" which strikes the "
+	PRINTD	PRSI
+	PRINTI	". The "
+	PRINTD	PRSI
+	PRINTR	" bursts into flame, blinding you momentarily, and is quickly consumed."
+?CCL65:	EQUAL?	PRSI,FLOYD \?CCL74
+	FSET?	FLOYD,RLANDBIT \?CCL74
+	PRINTR	" which strikes Floyd. ""Yow!"" yells Floyd. He jumps to the other end of the room and eyes you warily."
+?CCL74:	EQUAL?	PRSI,PSEUDO-OBJECT \?CCL78
+	EQUAL?	HERE,PROJCON-OFFICE \?CCL78
+	PRINTI	" which strikes the "
+	PRINTD	PRSI
+	PRINTR	". However, this doesn't seem to affect it."
+?CCL78:	PRINTI	" which strikes the "
+	PRINTD	PRSI
+	PRINTI	". The "
+	PRINTD	PRSI
+	PRINTR	" grows a bit warm, but nothing else happens."
+?CCL62:	PRINTR	"."
+?CCL31:	EQUAL?	PRSA,V?DROP \FALSE
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+	IN?	MICROBE,HERE \FALSE
+	GRTR?	WARMTH-FLAG,7 \FALSE
+	REMOVE	LASER
+	PRINTR	"The microbe rushes to envelop the laser. You hear a faint burp as the monster begins to look around for other morsels..."
+
+
+	.FUNCT	ALREADY-BATTERY
+	PRINTR	"There's already a battery there."
+
+
+	.FUNCT	BATTERY-NOW
+	PRINTR	"The battery is now resting in the depression, attached to the laser."
+
+
+	.FUNCT	I-WARMTH
+	ZERO?	LASER-JUST-SHOT /?CCL3
+	SET	'LASER-JUST-SHOT,FALSE-VALUE
+	INC	'WARMTH-FLAG
+	EQUAL?	WARMTH-FLAG,3 \?CCL6
+	CALL2	LASER-FEELS,STR?324
+	RSTACK	
+?CCL6:	EQUAL?	WARMTH-FLAG,6 \?CCL8
+	CALL2	LASER-FEELS,STR?325
+	RSTACK	
+?CCL8:	EQUAL?	WARMTH-FLAG,9 \?CCL10
+	CALL2	LASER-FEELS,STR?326
+	RSTACK	
+?CCL10:	EQUAL?	WARMTH-FLAG,12 \FALSE
+	CALL2	LASER-FEELS,STR?327
+	RSTACK	
+?CCL3:	ZERO?	WARMTH-FLAG \?CCL15
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+	RTRUE	
+?CCL15:	DEC	'WARMTH-FLAG
+	EQUAL?	WARMTH-FLAG,12 \?CCL18
+	CALL2	LASER-COOLS,STR?327
+	RSTACK	
+?CCL18:	EQUAL?	WARMTH-FLAG,9 \?CCL20
+	CALL2	LASER-COOLS,STR?328
+	RSTACK	
+?CCL20:	EQUAL?	WARMTH-FLAG,6 \?CCL22
+	CALL2	LASER-COOLS,STR?329
+	RSTACK	
+?CCL22:	EQUAL?	WARMTH-FLAG,3 \FALSE
+	CALL2	LASER-COOLS,STR?330
+	RSTACK	
+
+
+	.FUNCT	LASER-FEELS,STRING
+	CRLF	
+	PRINTI	"The laser feels "
+	PRINT	STRING
+	PRINTR	", but that doesn't seem to affect its performance at all."
+
+
+	.FUNCT	LASER-COOLS,STRING
+	CRLF	
+	PRINTI	"The laser has cooled, but it still feels "
+	PRINT	STRING
+	PRINTR	"."
+
+
+	.FUNCT	BEAM-COLOR
+	EQUAL?	LASER-SETTING,1 \?CCL3
+	PRINTI	"red"
+	RTRUE	
+?CCL3:	EQUAL?	LASER-SETTING,2 \?CCL5
+	PRINTI	"orange"
+	RTRUE	
+?CCL5:	EQUAL?	LASER-SETTING,3 \?CCL7
+	PRINTI	"yellow"
+	RTRUE	
+?CCL7:	EQUAL?	LASER-SETTING,4 \?CCL9
+	PRINTI	"green"
+	RTRUE	
+?CCL9:	EQUAL?	LASER-SETTING,5 \?CCL11
+	PRINTI	"blue"
+	RTRUE	
+?CCL11:	EQUAL?	LASER-SETTING,6 \FALSE
+	PRINTI	"violet"
+	RTRUE	
+
+
+	.FUNCT	SHOOT-SPECK
+	EQUAL?	LASER-SETTING,1 \?CCL3
+	RANDOM	100
+	LESS?	MARKSMANSHIP-COUNTER,STACK /?CCL6
+	ZERO?	SPECK-HIT /?CCL9
+	SET	'COMPUTER-FIXED,TRUE-VALUE
+	FSET	CRYO-ELEVATOR-DOOR,OPENBIT
+	FCLEAR	PROJCON-OFFICE,TOUCHBIT
+	FCLEAR	CRYO-ELEVATOR-DOOR,INVISIBLE
+	CALL	QUEUE,I-FRY,200
+	PUT	STACK,0,1
+	ADD	SCORE,8 >SCORE
+	REMOVE	SPECK
+	PRINTR	"The beam hits the speck again! This time, it vaporizes into a fine cloud of ash. The relay slowly begins to close, and a voice whispers in your ear ""Sector 384 will activate in 200 millichrons. Proceed to exit station."""
+?CCL9:	SET	'SPECK-HIT,TRUE-VALUE
+	PRINTR	"The speck is hit by the beam! It sizzles a little, but isn't destroyed yet."
+?CCL6:	ADD	MARKSMANSHIP-COUNTER,12 >MARKSMANSHIP-COUNTER
+	CALL2	PICK-ONE,BEAM-MISSES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL3:	REMOVE	RELAY
+	PRINTI	"A thin "
+	ICALL1	BEAM-COLOR
+	PRINTR	" beam shoots from the laser and slices through the red plastic covering of the relay like a hot knife through butter. Air rushes into the relay, which collapses into a heap of plastic shards."
+
+
+	.FUNCT	I-FRY
+	EQUAL?	HERE,MIDDLE-OF-STRIP,STRIP-NEAR-STATION,STRIP-NEAR-RELAY \FALSE
+	CRLF	
+	CALL2	JIGS-UP,STR?334
+	RSTACK	
+
+
+	.FUNCT	MICROBE-F
+	EQUAL?	PRSA,V?TALK,V?HELLO /?CTR2
+	EQUAL?	MICROBE,WINNER \?CCL3
+?CTR2:	PRINTI	"You don't seem to have bridged the vast communication gulf between yourself and the microbe."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?GIVE,V?THROW \FALSE
+	EQUAL?	PRSI,MICROBE \FALSE
+	EQUAL?	PRSO,LASER \?CCL14
+	GRTR?	WARMTH-FLAG,7 \?CCL14
+	REMOVE	LASER
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+	GRTR?	WARMTH-FLAG,10 \?CCL19
+	CALL2	INT,I-MICROBE
+	PUT	STACK,0,0
+	PRINTI	"The microbe gobbles up the laser and turns toward you. A moment later, it begins writhing in pain. Apparently, eating the hot laser was a bit too much for it. With a bellow of agony, it rolls off the edge of the strip. (Whew!)"
+	CRLF	
+	REMOVE	LASER
+	REMOVE	MICROBE
+	SET	'NO-MICROBE,TRUE-VALUE
+	SET	'MICROBE-DISPATCHED,TRUE-VALUE
+	RETURN	MICROBE-DISPATCHED
+?CCL19:	PRINTR	"The microbe greedily devours the laser, and turns toward you."
+?CCL14:	PRINTI	"The microbe ignores the "
+	PRINTD	PRSO
+	PRINTR	", but does attempt to digest your arm."
+
+
+	.FUNCT	I-MICROBE
+	EQUAL?	MICROBE-HIT,TRUE-VALUE \?CCL3
+	CRLF	
+	CALL2	PICK-ONE,WINNER-ATTACKED
+	PRINT	STACK
+	GRTR?	WARMTH-FLAG,13 \?CCL6
+	IN?	LASER,ADVENTURER \?CCL6
+	ICALL2	JIGS-UP,STR?336
+	JUMP	?CND4
+?CCL6:	GRTR?	WARMTH-FLAG,7 \?CND4
+	IN?	LASER,ADVENTURER \?CND4
+	PRINTI	" Another pseudopod, perhaps attracted by the warmth of the laser, tries to envelop the weapon. You snatch it away from the monster's grasp."
+?CND4:	CRLF	
+	JUMP	?CND1
+?CCL3:	EQUAL?	MICROBE-COUNTER,2 \?CCL14
+	ICALL2	JIGS-UP,STR?337
+	JUMP	?CND1
+?CCL14:	INC	'MICROBE-COUNTER
+	CRLF	
+	CALL2	PICK-ONE,MONSTER-CLOSES
+	PRINT	STACK
+	CRLF	
+?CND1:	SET	'MICROBE-HIT,FALSE-VALUE
+	RETURN	MICROBE-HIT
+
+
+	.FUNCT	SHOOT-MICROBE
+	PRINTI	"The laser beam strikes the microbe"
+	EQUAL?	LASER-SETTING,1 \?CCL3
+	PRINTR	", but passes harmlessly through its red skin."
+?CCL3:	SET	'MICROBE-HIT,TRUE-VALUE
+	PRINTI	". "
+	CALL2	PICK-ONE,MICROBE-STRIKES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	STRIP-F
+	EQUAL?	PRSA,V?THROW-OFF \FALSE
+	EQUAL?	PRSO,LASER \?CCL6
+	GRTR?	WARMTH-FLAG,7 \?CCL6
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+	CALL2	INT,I-MICROBE
+	PUT	STACK,0,0
+	PRINTI	"As the laser flies over the edge of the strip, the hungry microbe lunges after it. Both the laser and the microbe plummet into the void. (Whew!)"
+	CRLF	
+	REMOVE	LASER
+	REMOVE	MICROBE
+	SET	'NO-MICROBE,TRUE-VALUE
+	SET	'MICROBE-DISPATCHED,TRUE-VALUE
+	RETURN	MICROBE-DISPATCHED
+?CCL6:	EQUAL?	PRSO,LASER \?CND9
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+?CND9:	REMOVE	PRSO
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" flies over the edge of the strip and disappears into the void."
+
+
+	.FUNCT	GRUE-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	IN?	GRUE,HERE /FALSE
+	PRINTR	"Grues are vicious, carnivorous beasts first introduced to Earth by a visiting alien spaceship during the late 22nd century. Grues spread throughout the galaxy alongside man. Although now extinct on all civilized planets, they still exist in some backwater corners of the galaxy. Their favorite diet is Ensigns Seventh Class, but their insatiable appetite is tempered by their fear of light."
+
+	.ENDI
diff --git a/comptwo.zil b/comptwo.zil
new file mode 100644
index 0000000..09044b5
--- /dev/null
+++ b/comptwo.zil
@@ -0,0 +1,3208 @@
+"COMPTWO for PLANETFALL 
+(C) COPYRIGHT 1983 INFOCOM, INC. ALL RIGHTS RESERVED
+
+This file contains all the rooms, objects, and actions associated
+with Complex Two / the Eastern Complex / the Lawanda Compleks."
+
+<ROOM LAWANDA-PLATFORM
+      (LOC ROOMS)
+      (DESC "Lawanda Platform")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH PER SHUTTLE-ENTER-F)
+      (SOUTH PER SHUTTLE-ENTER-F)
+      (EAST TO ESCALATOR)
+      (UP TO ESCALATOR)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (VALUE 4)
+      (GLOBAL GLOBAL-SHUTTLE STAIRS)
+      (PSEUDO "ESCALATOR" ESCALATOR-PSEUDO)
+      (ACTION LAWANDA-PLATFORM-F)>
+
+<GLOBAL LAWANDA-PLATFORM-FLAG <>>
+
+<ROUTINE LAWANDA-PLATFORM-F (RARG)
+	 <COND (<NOT ,LAWANDA-PLATFORM-FLAG>
+		<SETG LAWANDA-PLATFORM-FLAG T>
+		<SETG SICKNESS-WARNING-FLAG T>)>
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL "This is a wide, flat strip of concrete. ">
+		<COND (<AND <NOT ,ALFIE-AT-KALAMONTEE>
+			    <NOT ,BETTY-AT-KALAMONTEE>>
+		       <TELL
+"Open shuttle cars lie to the north and south.">)
+		      (<OR <NOT ,ALFIE-AT-KALAMONTEE>
+			   <NOT ,BETTY-AT-KALAMONTEE>>
+		       <TELL "An open shuttle car lies to the ">
+		       <COND (,ALFIE-AT-KALAMONTEE
+			      <TELL "north.">)
+			     (T
+			      <TELL "south.">)>)>
+		<TELL
+" A wide escalator, not currently operating, beckons upward at the east end of
+the platform. A faded sign reads \"Shutul Platform -- Lawanda Staashun.\"" CR>)>>
+
+<ROOM ESCALATOR
+      (LOC ROOMS)
+      (DESC "Escalator")
+      (LDESC
+"You are in the middle of a long mechanical stairway. It is not running,
+and seems to be in disrepair.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"15  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (UP TO FORK)
+      (EAST TO FORK)
+      (DOWN TO LAWANDA-PLATFORM)
+      (WEST TO LAWANDA-PLATFORM)
+      (GLOBAL STAIRS)
+      (PSEUDO "ESCALATOR" ESCALATOR-PSEUDO)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)>
+
+<ROOM FORK
+      (LOC ROOMS)
+      (DESC "Fork")
+      (LDESC
+"This is a hallway which forks to the northeast and southeast. To the west
+is the top of a long escalator.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"15  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE" 25 ;"EAST" 0 ;"NE"  25  ;"NORTH"  0>)
+      (WEST TO ESCALATOR)
+      (DOWN TO ESCALATOR)
+      (NE TO SYSTEMS-CORRIDOR-WEST)
+      (SE TO PROJECT-CORRIDOR-WEST)
+      (GLOBAL STAIRS)
+      (PSEUDO "ESCALATOR" ESCALATOR-PSEUDO)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)>
+
+^L
+
+"He's dead, Jim"
+
+<ROOM INFIRMARY
+      (LOC ROOMS)
+      (DESC "Infirmary")
+      (LDESC 
+"You have entered a clean, well-lighted place. There are a number of beds,
+some complicated looking equipment, and many shelves that are mostly bare.")
+      (C-MOVE  <TABLE
+         ;"OUT"25 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE" 25 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SE TO SYSTEMS-CORRIDOR-WEST)
+      (OUT TO SYSTEMS-CORRIDOR-WEST)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL BED SHELVES)
+      (PSEUDO "EQUIPMENT" EQUIPMENT-PSEUDO "MACHINE" EQUIPMENT-PSEUDO)
+      (ACTION INFIRMARY-F)>
+
+<OBJECT LAZARUS-PART
+	(DESC "medical robot breastplate")
+	(SYNONYM LAZARUS PART PLATE BREASTPLATE)
+	(ADJECTIVE MEDICAL BREAST)
+	(SIZE 35)
+	(FLAGS TAKEBIT)>
+
+<GLOBAL LAZARUS-FLAG <>>
+
+<ROUTINE INFIRMARY-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <NOT ,LAZARUS-FLAG>
+		     <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>
+		     <PROB 30>>
+		<SETG LAZARUS-FLAG T>
+		<MOVE ,LAZARUS-PART ,HERE>
+		<MOVE ,FLOYD ,FORK>
+		<SETG FLOYD-FOLLOW <>>
+		<SETG FLOYD-SPOKE T>
+		<TELL
+"Floyd, rummaging in a corner, finds something and carries it to the center of
+the room to examine it in the brighter light. It seems to be the breast plate
+of a robot, along with some connected inner circuitry. The entire piece is
+bent and rusting. Floyd stares at it in complete silence. A moment later, he
+begins sobbing quietly, awkwardly excuses himself, and runs out of the room.
+You look at the breast plate, and notice the name \"Lazarus\" engraved on
+it." CR>)>>  
+
+<OBJECT RED-SPOOL
+	(LOC INFIRMARY)
+	(DESC "red spool")
+	(FDESC
+"Lying on one of the beds is a small red spool.")
+	(SYNONYM SPOOL SPOOLS OBJECT)
+	(ADJECTIVE RED SMALL)
+	(SIZE 3)
+	(TEXT
+"The spool is labelled \"Simptumz uv Xe Dizeez.\"")
+	(FLAGS TAKEBIT ACIDBIT READBIT)
+	(ACTION RED-SPOOL-F)>
+
+<ROUTINE RED-SPOOL-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <IN? ,RED-SPOOL ,SPOOL-READER>
+		     <FSET? ,SPOOL-READER ,ONBIT>>
+		<MOVE ,RED-SPOOL ,ADVENTURER>
+		<FCLEAR ,RED-SPOOL ,TRYTAKEBIT>
+		<TELL "The screen goes blank as you take the spool." CR>)>>
+
+<OBJECT MEDICINE-BOTTLE
+	(LOC INFIRMARY)
+	(DESC "medicine bottle")
+	(FDESC
+"On a low shelf is a translucent bottle with a small white label.")
+	(SYNONYM BOTTLE LABEL)
+	(ADJECTIVE MEDICINE SMALL WHITE TRANSLUCENT)
+	(SIZE 7)
+	(CAPACITY 7)
+	(TEXT
+"\"Dizeez supreshun medisin -- eksperimentul\"")
+	(FLAGS CONTBIT SEARCHBIT TAKEBIT TRANSBIT READBIT)>
+
+<OBJECT MEDICINE
+	(LOC MEDICINE-BOTTLE)
+	(DESC "quantity of medicine")
+	(FDESC "At the bottom of the bottle is a small quantity of medicine.")
+	(SYNONYM MEDICINE QUANTITY)
+	(ADJECTIVE SMALL QUANTITY EXPERIMENTAL)
+	(SIZE 7)
+	(FLAGS FOODBIT)
+	(ACTION MEDICINE-F)>
+
+<ROUTINE MEDICINE-F ("AUX" (X <>))
+	 <COND (<AND <VERB? TASTE EAT POUR>
+		     <NOT <IN? ,MEDICINE-BOTTLE ,ADVENTURER>>>
+		<SETG PRSO ,MEDICINE-BOTTLE>
+		<NOT-HOLDING>
+		<THIS-IS-IT ,MEDICINE-BOTTLE>)
+	       (<AND <VERB? TASTE EAT POUR>
+		     <NOT <FSET? ,MEDICINE-BOTTLE ,OPENBIT>>>
+		<TELL "The bottle is closed." CR>)
+	       (<VERB? TASTE>
+		<TELL "It tastes fairly bitter." CR>)
+	       (<VERB? EAT>
+		<REMOVE ,MEDICINE>
+		<SETG C-ELAPSED 15>
+		<SETG SICKNESS-LEVEL <- ,SICKNESS-LEVEL 2>>
+		<SETG LOAD-ALLOWED <+ ,LOAD-ALLOWED 20>>
+		<TELL "The medicine tasted extremely bitter." CR>)
+	       (<VERB? POUR>		
+		<REMOVE ,MEDICINE>
+		<COND (<NOT ,PRSI>
+		       <SETG PRSI ,GROUND>)>
+		<COND (<EQUAL? ,PRSI ,FUNNEL-HOLE>
+		       <COND (<IN? ,CHEMICAL-FLUID ,FLASK>
+			      <SET X T>)>
+		       <SETG CHEMICAL-REQUIRED 10>
+		       <PERFORM ,V?POUR ,CHEMICAL-FLUID ,FUNNEL-HOLE>
+		       <COND (.X
+			      <MOVE ,CHEMICAL-FLUID ,FLASK>)>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"It pours over the " D ,PRSI " and evaporates." CR>)>)
+	       (<AND <VERB? TAKE>
+		     <EQUAL? <GET ,P-VTBL 0> ,W?TAKE>>
+		<PERFORM ,V?EAT ,MEDICINE>
+		<RTRUE>)>>
+
+<ROOM REPAIR-ROOM
+      (LOC ROOMS)
+      (DESC "Repair Room")
+      (LDESC
+"You are in a dimly lit room, filled with strange machines and wide storage
+cabinets, all locked. To the south, a narrow stairway leads upward. On the
+north wall of the room is a very small doorway.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"    30
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (UP TO SYSTEMS-CORRIDOR-WEST)
+      (SOUTH TO SYSTEMS-CORRIDOR-WEST)
+      (NORTH SORRY "It is a robot-sized doorway -- a bit too small for you.")
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL STAIRS)
+      (PSEUDO "CABINETS" CABINETS-PSEUDO "MACHINE" EQUIPMENT-PSEUDO)>
+
+<GLOBAL ACHILLES-FLAG <>> ;"Set to T when Floyd babbles about Achilles"
+
+<OBJECT ACHILLES
+	(LOC REPAIR-ROOM)
+	(DESC "broken robot")
+	(LDESC
+"Lying face down at the bottom of the stairs is a motionless robot. It
+appears to be damaged beyond repair.")
+	(SYNONYM ROBOT ACHILLES)
+	(ADJECTIVE BROKEN DEAD)>
+
+<OBJECT ROBOT-HOLE
+	(LOC REPAIR-ROOM)
+	(DESC "small doorway")
+	(SYNONYM DOOR DOORWAY HOLE)
+	(ADJECTIVE SMALL VERY)
+	(FLAGS NDESCBIT TRANSBIT CONTBIT)
+	(CAPACITY 0)
+	(ACTION ROBOT-HOLE-F)>
+
+<ROUTINE ROBOT-HOLE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It's too small for you to get through. It was presumably intended for
+robots, such as the broken repair robot lying over there." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL
+"You can make out a small supply room of some sort." CR>)
+	       (<VERB? OPEN CLOSE>
+		<TELL
+"There's no door, just an opening in the wall." CR>)>>
+
+<GLOBAL HOLE-TRIP-FLAG <>>
+
+<ROUTINE FLOYD-THROUGH-HOLE ()
+	 <COND (,HOLE-TRIP-FLAG
+		<TELL "\"Not again,\" whines Floyd." CR>
+		<RTRUE>)
+	       (T
+		<SETG C-ELAPSED 50>
+		<SETG HOLE-TRIP-FLAG T>
+		<SETG BOARD-REPORTED T>
+		<FCLEAR ,GOOD-BOARD ,INVISIBLE>
+	        <TELL
+"Floyd squeezes through the opening and is gone for quite a while. You hear
+thudding noises and squeals of enjoyment. After a while the noise stops, and
+Floyd emerges, looking downcast. \"Floyd found a rubber ball inside. Lots of
+fun for a while, but must have been old, because it fell apart. Nothing else
+interesting inside. Just a shiny fromitz board.\"" CR>)>>
+
+<OBJECT GOOD-BOARD
+	(LOC ROBOT-HOLE)
+	(DESC "shiny seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE SHINY GOOD SEVENTEEN CENTIMETER FROMITZ)
+	(SIZE 10)
+	(FLAGS ACIDBIT INVISIBLE NDESCBIT)
+	(ACTION GOOD-BOARD-F)>
+
+<ROUTINE GOOD-BOARD-F ()
+	 <COND (<AND <FSET? ,GOOD-BOARD ,NDESCBIT>
+		     <VERB? TAKE EXAMINE RUB PUSH PULL MOVE LOOK-UNDER>
+		     <EQUAL? ,GOOD-BOARD ,PRSO>>
+		<TELL "You can't see any " D ,PRSO " here." CR>)
+	       (<VERB? EXAMINE>
+		<EXAMINE-BOARD>
+		<CRLF>)>>
+
+<GLOBAL BOARD-REPORTED <>>
+
+<ROOM SYSTEMS-CORRIDOR-WEST
+      (LOC ROOMS)
+      (DESC "Systems Corridor West")
+      (LDESC
+"The corridor bends here, leading east and southwest. A doorway opens
+to the northwest, and a narrow stairway leads down to the north.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"15  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"  25  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NW TO INFIRMARY)
+      (NORTH TO REPAIR-ROOM)
+      (DOWN TO REPAIR-ROOM)
+      (EAST TO SYSTEMS-CORRIDOR)
+      (SW TO FORK)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL STAIRS)>
+
+<ROOM SYSTEMS-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Systems Corridor")
+      (LDESC
+"This section of hallway has a doorway to the north labelled \"Planateree
+Deefens.\" The corridor continues east and west.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO PLANETARY-DEFENSE)
+      (WEST TO SYSTEMS-CORRIDOR-WEST)
+      (EAST TO SYSTEMS-CORRIDOR-EAST)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM SYSTEMS-CORRIDOR-EAST
+      (LOC ROOMS)
+      (DESC "Systems Corridor East")
+      (LDESC
+"The hallway ends here with a large doorway leading east, and smaller doorways
+to the north and south. The northern doorway is labelled \"Planateree Kors
+Kontrool.\" The hallway itself leads west.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO SYSTEMS-CORRIDOR)
+      (SOUTH TO LIBRARY-LOBBY)
+      (NORTH TO PLANETARY-COURSE-CONTROL)
+      (EAST TO PHYSICAL-PLANT-TWO)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM PHYSICAL-PLANT-TWO
+      (LOC ROOMS)
+      (DESC "Physical Plant")
+      (LDESC
+"This is an enormous room full of environmental control equipment presumably
+intended to heat and ventilate the Lawanda Complex. Oddly, although the
+Lawanda Complex is slightly smaller than its counterpart, this plant is much
+larger than the one in the Kalamontee Complex. The only exit is westward.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO SYSTEMS-CORRIDOR-EAST)
+      (OUT TO SYSTEMS-CORRIDOR-EAST)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (PSEUDO "EQUIPMENT" EQUIPMENT-PSEUDO)>
+
+^L
+
+"Planetary systems and repairs"
+
+<GLOBAL DEFENSE-FIXED <>>
+
+<GLOBAL COURSE-CONTROL-FIXED <>>
+
+<GLOBAL ACCESS-PANEL-FULL T>
+
+<ROOM PLANETARY-DEFENSE
+      (LOC ROOMS)
+      (DESC "Planetary Defense")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO SYSTEMS-CORRIDOR)
+      (OUT TO SYSTEMS-CORRIDOR)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL CONTROLS LIGHTS)
+      (ACTION PLANETARY-DEFENSE-F)>
+
+<ROUTINE PLANETARY-DEFENSE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This room is filled with a dazzling array of lights and controls. ">
+		<COND (<NOT ,DEFENSE-FIXED>
+		       <TELL
+"One light, blinking quickly, catches your eye. It reads \"Surkit Boord
+Faalyur. WORNEENG: xis boord kuntroolz xe diskriminaashun surkits.\"" >)>
+		<TELL" There is a small access panel on one wall which is ">
+		<DDESC ,ACCESS-PANEL>
+		<TELL "." CR>)>>
+
+<OBJECT ACCESS-PANEL
+	(LOC PLANETARY-DEFENSE)
+	(DESC "access panel")
+	(SYNONYM PANEL DOOR SOCKET)
+	(ADJECTIVE SMALL ACCESS REPAIR)
+	(FLAGS VOWELBIT NDESCBIT CONTBIT SEARCHBIT)
+	(CAPACITY 40)
+	(ACTION ACCESS-PANEL-F)>
+
+<ROUTINE ACCESS-PANEL-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,ACCESS-PANEL ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (T
+		       <FSET ,ACCESS-PANEL ,OPENBIT>
+		       <TELL "The panel swings open." CR>
+		       <PERFORM ,V?LOOK-INSIDE ,ACCESS-PANEL>
+		       <RTRUE>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,ACCESS-PANEL ,OPENBIT>
+		       <FCLEAR ,ACCESS-PANEL ,OPENBIT>
+		       <TELL "The panel swings closed." CR>)
+		      (T
+		       <IS-CLOSED>)>)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,ACCESS-PANEL>>
+		<COND (<NOT <FSET? ,ACCESS-PANEL ,OPENBIT>>
+		       <TELL "The panel is closed." CR>)
+		      (,ACCESS-PANEL-FULL
+		       <TELL "There's no room." CR>)
+		      (<EQUAL? ,PRSO ,GOOD-BOARD>
+		       <REMOVE ,GOOD-BOARD>
+		       <MOVE ,SECOND-BOARD ,ACCESS-PANEL>
+		       <THIS-IS-IT ,SECOND-BOARD>
+		       <SETG DEFENSE-FIXED T>
+		       <SETG SCORE <+ ,SCORE 6>>
+		       <SETG ACCESS-PANEL-FULL T>
+		       <PUT-BOARD>
+		       <TELL " The warning lights stop flashing." CR>)
+		      (<EQUAL? ,PRSO ,CRACKED-BOARD ,FRIED-BOARD>
+		       <REMOVE ,PRSO>
+		       <THIS-IS-IT ,SECOND-BOARD>
+		       <MOVE ,SECOND-BOARD ,ACCESS-PANEL>
+		       <SETG ACCESS-PANEL-FULL T>
+		       <COND (<EQUAL? ,PRSO ,CRACKED-BOARD>
+			      <SETG ITS-CRACKED T>)>			      
+		       <PUT-BOARD>
+		       <CRLF>)
+		      (T
+		       <TELL "The " D, PRSO " doesn't fit.">)>)>>
+
+<OBJECT FIRST-BOARD
+	(LOC ACCESS-PANEL)
+	(DESC "first seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE FIRST SEVENTEEN CENTIMETER FROMITZ)
+	(ACTION BOARD-F)>
+
+<OBJECT FOURTH-BOARD
+	(LOC ACCESS-PANEL)
+	(DESC "fourth seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE FOURTH SEVENTEEN CENTIMETER FROMITZ)
+	(ACTION BOARD-F)>
+
+<OBJECT THIRD-BOARD
+	(LOC ACCESS-PANEL)
+	(DESC "third seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE THIRD SEVENTEEN CENTIMETER FROMITZ)
+	(ACTION BOARD-F)>
+			 
+<OBJECT SECOND-BOARD
+	(LOC ACCESS-PANEL)
+	(DESC "second seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE SECOND SEVENTEEN CENTIMETER FROMITZ)
+	(FLAGS TRYTAKEBIT TAKEBIT)
+	(ACTION BOARD-F)>
+
+<OBJECT FRIED-BOARD
+	(DESC "fried seventeen-centimeter fromitz board")
+	(SYNONYM BOARD BOARDS)
+	(ADJECTIVE FRIED SEVENTEEN CENTIMETER FROMITZ)
+	(SIZE 10)
+	(FLAGS ACIDBIT TAKEBIT)
+	(ACTION FRIED-BOARD-F)>
+
+<ROUTINE FRIED-BOARD-F ()
+	 <COND (<VERB? EXAMINE>
+		<EXAMINE-BOARD>
+		<TELL
+" This one is a bit blackened around the edges, though." CR>)>>
+
+<GLOBAL ITS-CRACKED <>>
+
+<ROUTINE BOARD-F ()
+	 <COND (<VERB? TAKE>
+		<COND (<EQUAL? ,PRSO ,SECOND-BOARD>
+		       <COND (,DEFENSE-FIXED
+			      <BOARD-SHOCK>)
+			     (T
+			      <TELL
+"The fromitz board slides out of the panel, producing an empty socket
+for another board." CR>
+			      <REMOVE ,SECOND-BOARD>
+			      <SETG ACCESS-PANEL-FULL <>>
+			      <COND (<EQUAL? ,ITS-CRACKED T>
+				     <MOVE ,CRACKED-BOARD ,ADVENTURER>)
+				    (T
+				     <MOVE ,FRIED-BOARD ,ADVENTURER>)>
+			      <THIS-IS-IT ,FRIED-BOARD>)>)
+		      (T
+		       <BOARD-SHOCK>)>)
+	       (<VERB? EXAMINE>
+		<EXAMINE-BOARD>
+		<CRLF>)>>
+
+<ROUTINE EXAMINE-BOARD ()
+	 <TELL
+"Like most fromitz boards, it is a twisted maze of silicon circuits. It is
+square, approximately seventeen centimeters on each side.">>
+
+<ROUTINE PUT-BOARD ()
+	 <TELL "The card clicks neatly into the socket.">>
+
+<ROUTINE BOARD-SHOCK ()
+	 <TELL "You jerk your hand back as you receive a powerful
+shock from the fromitz board." CR>>
+
+<ROOM PLANETARY-COURSE-CONTROL
+      (LOC ROOMS)
+      (DESC "Course Control")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH TO SYSTEMS-CORRIDOR-EAST)
+      (OUT TO SYSTEMS-CORRIDOR-EAST)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (GLOBAL CONTROLS LIGHTS)
+      (ACTION PLANETARY-COURSE-CONTROL-F)>
+
+<ROUTINE PLANETARY-COURSE-CONTROL-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a long room whose walls are covered with complicated controls
+and colored lights. ">
+		<COND (,COURSE-CONTROL-FIXED
+		       <TELL
+"One blinking light says \"Kors diivurjins minimiizeeng.\"">)
+		      (T
+		       <TELL
+"Two of these lights are blinking. The first one reads \"Bedistur Faalyur!\"
+The other light reads \"Kritikul diivurjins frum pland kors.\"">)>
+		<TELL " In one corner is a large metal cube whose lid is ">
+		<COND (<FSET? ,CUBE ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<TELL "." CR>)>>
+
+<OBJECT CUBE
+	(LOC PLANETARY-COURSE-CONTROL)
+	(DESC "large metal cube")
+	(SYNONYM CUBE LID SOCKET)
+	(ADJECTIVE LARGE METAL)
+	(FLAGS MUNGBIT NDESCBIT CONTBIT SEARCHBIT)
+	(ACTION CUBE-F)>
+
+<ROUTINE CUBE-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,CUBE ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (T
+		       <FSET ,CUBE ,OPENBIT>
+		       <TELL "The lid swings open." CR>
+		       <PERFORM ,V?LOOK-INSIDE ,CUBE>
+		       <RTRUE>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,CUBE ,OPENBIT>
+		       <FCLEAR ,CUBE ,OPENBIT>
+		       <TELL "The lid swings closed." CR>)
+		      (T
+		       <IS-CLOSED>)>)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,CUBE>>
+		<COND (<NOT <FSET? ,CUBE ,OPENBIT>>
+		       <TELL "The cube is closed." CR>) 
+		      (<IN? ,BAD-BEDISTOR ,CUBE>
+		       <TELL "There's a fused bedistor in the way." CR>)
+		      (<EQUAL? ,PRSO ,GOOD-BEDISTOR>
+		       <MOVE ,GOOD-BEDISTOR ,CUBE>
+		       <COND (<NOT <FSET? ,CUBE ,MUNGEDBIT>>
+			      <SETG COURSE-CONTROL-FIXED T>
+			      <FSET ,GOOD-BEDISTOR ,TRYTAKEBIT>
+			      <SETG SCORE <+ ,SCORE 6>>
+			      <TELL
+"Done. The warning lights go out and another light goes on." CR>)
+			     (T
+			      <TELL "Done." CR>)>)
+		      (<EQUAL? ,PRSO ,BAD-BEDISTOR>
+		       <MOVE ,BAD-BEDISTOR ,CUBE>
+		       <TELL "Done." CR>)
+		      (T
+		       <TELL "The " D, PRSO " doesn't fit.">)>)>>
+
+<OBJECT BAD-BEDISTOR
+	(LOC CUBE)
+	(DESC "fused ninety-ohm bedistor")
+	(SYNONYM BEDISTOR)
+	(ADJECTIVE FUSED NINETY OHM NINETY-OHM)
+	(SIZE 8)
+	(FLAGS ACIDBIT TRYTAKEBIT TAKEBIT)
+	(ACTION BAD-BEDISTOR-F)>
+
+<ROUTINE BAD-BEDISTOR-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <IN? ,BAD-BEDISTOR ,CUBE>>
+		<TELL "It seems to be fused to its socket." CR>)
+	       (<VERB? ZATTRACT>
+		<COND (<EQUAL? ,PRSI ,PLIERS>
+		       <MOVE ,BAD-BEDISTOR ,ADVENTURER>
+		       <FCLEAR ,BAD-BEDISTOR ,TRYTAKEBIT>
+		       <TELL
+"With a tug, you manage to remove the fused bedistor." CR>)
+		      (T
+		       <TELL
+"You can't get a grip on the bedistor with that." CR>)>)>>
+
+^L
+
+"The Library"
+
+<ROOM LIBRARY-LOBBY
+      (LOC ROOMS)
+      (DESC "Library Lobby")
+      (LDESC 
+"This is a carpeted room, thick with dust, with exits to the north and south.
+To the west, up a few steps, is a wide doorway. A small booth lies to the
+east.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (UP TO LIBRARY)
+      (WEST TO LIBRARY)
+      (NORTH TO SYSTEMS-CORRIDOR-EAST)
+      (SOUTH TO PROJECT-CORRIDOR-EAST)
+      (EAST TO BOOTH-3)
+      (IN TO BOOTH-3)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (GLOBAL TABLES STAIRS)
+      (PSEUDO "CARPET" CARPET-PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)>
+
+<OBJECT GREEN-SPOOL
+	(LOC LIBRARY-LOBBY)
+	(DESC "green spool")
+	(FDESC
+"You catch a glimpse of a small object nestled among the dust.")
+	(SYNONYM SPOOL SPOOLS OBJECT)
+	(ADJECTIVE GREEN SMALL)
+	(SIZE 3)
+	(TEXT
+"The spool is labelled \"Helikoptur Opuraateeng Manyuuwul.\"")
+	(FLAGS ACIDBIT TAKEBIT READBIT)
+	(ACTION GREEN-SPOOL-F)>
+
+<ROUTINE GREEN-SPOOL-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <IN? ,GREEN-SPOOL ,SPOOL-READER>
+		     <FSET? ,SPOOL-READER ,ONBIT>>
+		<MOVE ,GREEN-SPOOL ,ADVENTURER>
+		<FCLEAR ,GREEN-SPOOL ,TRYTAKEBIT>
+		<TELL "The screen goes blank as you take the spool." CR>)>>
+
+<ROOM BOOTH-3
+      (LOC ROOMS)
+      (DESC "Booth 3")
+      (LDESC
+"This is a tiny room with a large \"3\" painted on the wall. A panel contains
+a slot about ten centimeters wide, a brown button labelled \"1\" and a beige
+button labelled \"2.\"")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO LIBRARY-LOBBY)
+      (OUT TO LIBRARY-LOBBY)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL CONTROLS SLOT TELEPORTATION-BUTTON-1 TELEPORTATION-BUTTON-2)
+      (PSEUDO "BOOTH" IN-BOOTH-PSEUDO)>
+
+<ROOM LIBRARY
+      (LOC ROOMS)
+      (DESC "Library")
+      (LDESC
+"This is a large carpeted room with a desk and many small tables. The sole
+exit is down a few steps to the east.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO LIBRARY-LOBBY)
+      (OUT TO LIBRARY-LOBBY)
+      (FLAGS RLANDBIT ONBIT FLOYDBIT)
+      (GLOBAL TABLES STAIRS)
+      (PSEUDO "CARPET" CARPET-PSEUDO "DESK" DESK-PSEUDO)>
+
+<OBJECT TERMINAL
+	(LOC LIBRARY-LOBBY)
+	(DESC "terminal")
+	(FDESC
+"Sitting on a wide table is a machine of sorts, consisting of a video
+screen and a keyboard. It is currently turned off.")
+	(LDESC
+"On the table is a computer terminal.")
+	(SYNONYM TERMINAL KEYBOARD SCREEN MACHINE)
+	(ADJECTIVE COMPUTER VIDEO)
+	(FLAGS LIGHTBIT)
+	(ACTION TERMINAL-F)>
+
+<GLOBAL SCREEN-TEXT <>>
+
+<GLOBAL MENU-LEVEL 0>
+
+<ROUTINE TERMINAL-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The computer terminal consists of a video display screen, a keyboard with
+ten keys numbered from zero through nine, and an on-off switch. ">
+		<COND (<FSET? ,TERMINAL ,ONBIT>
+		       <TELL
+"The screen displays some writing:" CR ,SCREEN-TEXT CR>
+		       <COND (<G? ,MENU-LEVEL 9>
+			      <TELL ,MORE-INFO CR>)>
+		       <RTRUE>)
+		      (T
+		       <TELL "The screen is dark." CR>)>)
+	       (<VERB? READ>
+		<COND (<FSET? ,TERMINAL ,ONBIT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <COND (<G? ,MENU-LEVEL 9>
+			      <TELL ,MORE-INFO CR>)>
+		       <RTRUE>)
+		      (T
+		       <TELL "The screen is blank." CR>)>)
+	       (<VERB? LAMP-ON>
+		<COND (<FSET? ,TERMINAL ,ONBIT>
+		       <TELL "It's already on." CR>)
+		      (T
+		       <FSET ,TERMINAL ,ONBIT>
+		       <FSET ,TERMINAL ,TOUCHBIT>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL
+"The screen gives off a green flash, and then some writing appears on
+the screen:" CR>
+		       <TELL ,SCREEN-TEXT CR>)>)
+	       (<VERB? LAMP-OFF>
+		<COND (<FSET? ,TERMINAL ,ONBIT>
+		       <FCLEAR ,TERMINAL ,ONBIT>
+		       <SETG MENU-LEVEL 0>
+		       <TELL "The screen goes dark." CR>)
+		      (T
+		       <TELL "It isn't on!" CR>)>)>>
+
+<ROUTINE LIBRARY-TYPE ()
+	 <COND (<NOT <EQUAL? ,PRSO ,INTNUM>>
+		<NUMBERS-ONLY>)
+	       (<EQUAL? ,MENU-LEVEL 0>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <TELL ,NO-MEANING CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,HISTORY-MENU>
+		       <TELL ,SCREEN-TEXT CR>
+		       <SETG MENU-LEVEL 1>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,CULTURE-MENU>
+		       <TELL ,SCREEN-TEXT CR>
+		       <SETG MENU-LEVEL 2>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,TECHNOLOGY-MENU>
+		       <TELL ,SCREEN-TEXT CR>
+		       <SETG MENU-LEVEL 3>)
+		      (<EQUAL? ,P-NUMBER 4>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,GEOGRAPHY-MENU>
+		       <TELL ,SCREEN-TEXT CR>
+		       <SETG MENU-LEVEL 4>)
+		      (<EQUAL? ,P-NUMBER 5>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,PROJECT-MENU>
+		       <TELL ,SCREEN-TEXT CR>
+		       <SETG MENU-LEVEL 5>)
+		      (<EQUAL? ,P-NUMBER 6>
+		       <SETG MENU-LEVEL 6>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,INTERLOGIC-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<G? ,P-NUMBER 6>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<EQUAL? ,MENU-LEVEL 1>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 0>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <SETG MENU-LEVEL 11>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,11-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <SETG MENU-LEVEL 12>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,12-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <SETG MENU-LEVEL 13>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,13-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<G? ,P-NUMBER 3>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<EQUAL? ,MENU-LEVEL 2>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 0>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <SETG MENU-LEVEL 21>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,21-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <SETG MENU-LEVEL 22>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,22-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <SETG MENU-LEVEL 23>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,23-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<G? ,P-NUMBER 4>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<EQUAL? ,MENU-LEVEL 3>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 0>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <SETG MENU-LEVEL 31>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,31-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <SETG MENU-LEVEL 32>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,32-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <SETG MENU-LEVEL 33>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,33-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 4>
+		       <SETG MENU-LEVEL 34>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,34-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 5>
+		       <SETG MENU-LEVEL 35>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,35-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<G? ,P-NUMBER 5>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<EQUAL? ,MENU-LEVEL 4>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 0>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <SETG MENU-LEVEL 41>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,41-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <SETG MENU-LEVEL 42>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,42-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <SETG MENU-LEVEL 43>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,43-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<G? ,P-NUMBER 3>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<EQUAL? ,MENU-LEVEL 5>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 0>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <SETG MENU-LEVEL 51>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,51-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <SETG MENU-LEVEL 52>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,52-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <SETG MENU-LEVEL 53>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,53-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<G? ,P-NUMBER 3>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<EQUAL? ,MENU-LEVEL 6>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 0>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,MAIN-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <SETG MENU-LEVEL 61>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,61-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>
+		       <COND (<IN? ,FLOYD ,HERE>
+			      <SETG FLOYD-SPOKE T>
+			      <TELL
+"Floyd, peering over your shoulder, says \"Oh, I love that game! Solved every
+problem, except couldn't figure out how to get into white house.\"" CR>)>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <SETG MENU-LEVEL 62>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,62-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <SETG MENU-LEVEL 63>
+		       <TELL ,TEXT-APPEARS CR>
+		       <SETG SCREEN-TEXT ,63-TEXT>
+		       <TELL ,SCREEN-TEXT CR>
+		       <TELL ,MORE-INFO CR>)
+		      (<G? ,P-NUMBER 3>
+		       <TELL ,NO-MEANING CR>)>)
+	       (<AND <G? ,MENU-LEVEL 10>
+		     <L? ,MENU-LEVEL 20>>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 1>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,HISTORY-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (T
+		       <TELL ,LOW-END CR>)>)
+	       (<AND <G? ,MENU-LEVEL 20>
+		     <L? ,MENU-LEVEL 30>>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 2>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,CULTURE-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (T
+		       <TELL ,LOW-END CR>)>)
+	       (<AND <G? ,MENU-LEVEL 30>
+		     <L? ,MENU-LEVEL 40>>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 3>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,TECHNOLOGY-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (T
+		       <TELL ,LOW-END CR>)>)
+	       (<AND <G? ,MENU-LEVEL 40>
+		     <L? ,MENU-LEVEL 50>>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 4>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,GEOGRAPHY-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (T
+		       <TELL ,LOW-END CR>)>)
+	       (<AND <G? ,MENU-LEVEL 50>
+		     <L? ,MENU-LEVEL 60>>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 5>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,PROJECT-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (T
+		       <TELL ,LOW-END CR>)>)
+	       (<AND <G? ,MENU-LEVEL 60>
+		     <L? ,MENU-LEVEL 70>>
+		<COND (<EQUAL? ,P-NUMBER 0>
+		       <SETG MENU-LEVEL 6>
+		       <TELL ,SCREEN-CLEARS CR>
+		       <SETG SCREEN-TEXT ,INTERLOGIC-MENU>
+		       <TELL ,SCREEN-TEXT CR>)
+		      (T
+		       <TELL ,LOW-END CR>)>)>>
+
+<CONSTANT NO-MEANING "The terminal feeps, and a message briefly appears on the
+screen explaining that typing that character has no meaning at the moment.">
+
+<CONSTANT SCREEN-CLEARS "The screen clears and a different menu appears:|">
+
+<CONSTANT TEXT-APPEARS "The screen clears and some text appears:|">
+
+<CONSTANT MORE-INFO
+"|
+\"Foor moor deetaald infoormaashun on xis tapik, konsult xe
+liibrereein foor xe aproopreeit spuulz. Tiip zeeroo tuu goo tuu
+aa hiiyur levul.\"">
+
+<CONSTANT LOW-END "\"Yuu hav reect xe loowist levul uv xe liibreree indeks.
+Pleez tiip zeeroo tuu goo tuu aa hiiyur levul. If yuu reekwiir
+asistins, kawl xe liibrereein.\"">
+
+<CONSTANT MAIN-MENU
+"    1. Histooree|
+    2. Kulcur|
+    3. Teknolojee|
+    4. Jeeografee|
+    5. Xe Prajekt|
+    6. Inturlajik Gaamz">
+
+<CONSTANT HISTORY-MENU
+"    0. Maan Menyuu|
+    1. Raashul Orijinz|
+    2. Graat Hiiaatus|
+    3. Riiz uv xe Nuu Teknakrasee">
+
+<CONSTANT CULTURE-MENU
+"    0. Maan Menyuu|
+    1. Lituracur|
+    2. Art|
+    3. Muusik">
+
+<CONSTANT TECHNOLOGY-MENU
+"    0. Maan Menyuu|
+    1. Medisin|
+    2. Agrikultcur|
+    3. Tranzportaashun|
+    4. Roobotiks|
+    5. Planateree Sistumz">
+
+<CONSTANT GEOGRAPHY-MENU
+"    0. Maan Menyuu|
+    1. Planit Landmasiz|
+    2. Undursee Reejunz|
+    3. Spaas Kolooneez">
+
+<CONSTANT PROJECT-MENU
+"    0. Maan Menyuu|
+    1. Orijinz uv xe Dizeez|
+    2. Xe Instalaashunz|
+    3. Prajekt Kuntrool|">
+
+<CONSTANT INTERLOGIC-MENU
+"    0. Maan Menyuu|
+    1. Zoork|
+    2. Dedliin and Witnis|
+    3. Starkros and Suspendid">
+
+<CONSTANT 11-TEXT
+"\"Xe aancint lejindz saa xat ships frum xe Sekund Yuunyun wuns fild ar skiis
+and wil wun daa kum agen. Madern siientists, huu wuns dismist suc lejindz
+and felt xat liif eevolvd heer on Resida, now feel xat ar planit wuz reelee
+setuld bii men uv xe Sekund Yuunyun.\"">
+
+<CONSTANT 12-TEXT
+"\"Wexur oor not xe lejindz uv xe Sekund Yuunyun ar truu, arkeeoloojists ar
+surtin xat aa peereeid uv hii teknoolojikul and sooshul deevelupmint egzistid
+xowzindz uv yeerz agoo, but foor sum reezin sivilizaashun slid intuu aa dark
+aaj lasteeng senshureez.\"">
+
+<CONSTANT 13-TEXT
+"\"Wixin xe last fiiv senshureez, xe riiz uv xe Nuu Teknakrasee haz reeturnd
+sivilizaashun tuu xe levul ataand beefoor xe Hiiaatus. Sooshul histooreeunz
+xink xat wen xe Dizeez struk, ar raas had aceevd aa levul uv sufistikaashun
+eekwal tuu xe pree-Hiiaatus.\"">
+
+<CONSTANT 21-TEXT
+"\"Menee volyuumz on xe deevelupmint uv Residan lituracur ar on fiil in xe
+liibreree. Alsoo, kopeez uv awl graat wurks uv riiteeng, sum daateeng bak tuu
+xe mixikul daaz uv xe Sekund Yuunyun, ar lookaatid heer.\"">
+
+<CONSTANT 22-TEXT
+"\"Histoorikul studeez and reeproodukshunz uv Residan art ar avaalibul heer
+foor awl xree maajur peereeids uv art deevelupmint: xe Primitiv peereeid, xe
+Renasans peereeid uv xe urlee poost-Hiiaatus, and xe moost reesint peereeid
+uv videeoo and laazur art.\"">
+
+<CONSTANT 23-TEXT
+"\"Reekoordeengz uv awl impoortint kompoozishunz uv xe last fiiv hundrid yeerz
+ar lookaatid in xe liibrereez data banks.\"">
+
+<CONSTANT 31-TEXT
+"\"Awl maajur dizeezuz hav bin kyuuribul foor oovur aa senshuree. Xe
+deevelupmint uv kriioojeniks now alowz dokturz tuu put paashints in staasis
+until aa kyuur iz fownd. Avurij Residan liif ekspektinsee iz now 147
+revooluushunz.\"">
+
+<CONSTANT 32-TEXT
+"\"Durt farmeeng iz awl but obsooleet, wix moost fuud kumeeng frum xe
+hiidrooponiks kompleksiz oor xe undurwatur aljee farmz.\"">
+
+<CONSTANT 33-TEXT
+"\"Planateree travul iz noormulee priivit skuutur foor shoort hops, and aarbus
+foor longur trips.  Spaas travul haz reesintlee bin revooluushuniizd bii xe
+invenshun uv nuukleeur-fyuuld enjinz.\""> 
+
+<CONSTANT 34-TEXT
+"\"Untoold senshureez agoo, entiir teemz uv roobots wur reekwiird tuu purfoorm
+eevin xe simplist tasks...wun roobot wud handul viszuuwul funkshunz, wun roobot
+wud handul awditooree funkshunz, and soo foorx. Now, xanks tuu advansis in
+mineeatshurizaashun, xeez tasks kan bee purfoormd bii singul roobots, suc az
+xe multiipurpis B-19 seereez.\"">
+
+<CONSTANT 35-TEXT
+"\"Xe priimeree Planateree Sistumz ar Kors Kuntrool (foor maantaaneeng an
+iideel kliimit), Deefens (foor destroieeng pootenshulee daanjuris meeteeoorz),
+and xe reesintlee adid Prajekt Kuntrool (foor monitureeng proogres uv
+Xe Prajekt).\"">
+
+<CONSTANT 41-TEXT
+"\"Sins xe staabulizaashun uv xe oorbit uv Resida, preesiislee 47.79 pursent
+uv xe planits surfis iz land. Xe land iz diviidid intuu tuu priimeree
+landmasiz, Andoor and Fruulik, plus siks lesur landmasiz. Xe gloobul kapitul,
+Pilandoor, iz on xe eesturn koost uv Andoor.\"">
+
+<CONSTANT 42-TEXT
+"\"Xe furst undursee habutats wur oopind in 2992, and tuudaa, neerlee tuu
+senshureez laatur, abowt 9 pursent uv Residaz popyuulaashun livz in wun
+uv xe twentee sprawleeng undursee siteez.\"">
+
+<CONSTANT 43-TEXT
+"\"Alxoo setulmints hav bin establisht on Fristin, and on sevrul uv xe muunz
+uv xe gas jiiunt Blustin, xe vast majooritee uv of-woorldurz liv in xe
+spaas kolooneez establisht at Residaz troojin points.\""> 
+
+<CONSTANT 51-TEXT
+"\"Xe oorijin uv Xe Dizeez haz bin linkt tuu xe Sentur foor Advanst Kriioojenik
+Reesurc, wic wuz kondukteeng reesurc intuu waaz uv ekstendeeng xe Kriioojenik
+peereeid indefinitlee. Alxoo xis reesurc wuz aa sukses, sumhow Xe Dizeez
+wuz reeleest and beegan spredeeng.\"">
+
+<CONSTANT 52-TEXT
+"\"Xe tuu kompleksiz wur establisht on xe twin peek platooz uv Kalamontee and
+Lawanda. Xeez lookaashunz wur coozin beekawz xaar hiit wud maak
+transpoortaashun and komyuunikaashunz eezeeur, and soo xat xe vast reeakturz
+and kriioojeniks caamburz kud bee kunstruktid in xe mowntinz beeloo.\"">
+
+<CONSTANT 53-TEXT
+"\"Faaz Wun: xe kunstrukshun uv xe Kalamontee and Lawanda Kompleksiz. Faaz
+Tuu: mass kriioojenik freezeeng uv Residan popyuulaashun. Faaz Xree:
+siimultaaneeus monitureeng uv kriioojeniks wiil awtoomaatid reesurc iz
+konduktid bii inkrediblee soofistikaatid kumpyuuturiizd fasiliteez. Faaz
+Foor: reeviivul and inokyuulaashun uv xe popyuulaashun.\"">
+
+<CONSTANT 61-TEXT
+"\"Xe Zoork triloojee, an adventshur klasik, taaks plaas in aa deeliitful
+but daanjuris undurgrownd seteeng.\"">
+
+<CONSTANT 62-TEXT
+"\"Dedliin iz xe furst graat misturee uv xe kumpyuutur aaj, and Witnis iz
+its wurxee suksesur.\"">
+
+<CONSTANT 63-TEXT
+"\"Starkros iz Infookamz miind-bendeeng siiens-fikshun adventshur. Suspendid
+iz aa kriioojenik siiens-fikshun niitmaar.\"">
+
+<OBJECT SPOOL-READER
+	(LOC LIBRARY)
+	(DESC "microfilm reader")
+	(FDESC
+"On the desk is a machine with a screen and a small circular opening. It
+seems to be turned off.")
+	(LDESC
+"There is a microfilm reader on one of the tables.")
+	(SYNONYM READER SCREEN OPENING MACHINE) 
+	(ADJECTIVE MICROFILM SMALL CIRCULAR)
+	(CAPACITY 3)
+	(FLAGS LIGHTBIT CONTBIT SEARCHBIT OPENBIT)
+	(ACTION SPOOL-READER-F)>
+
+<GLOBAL SPOOL-TEXT <>>
+
+<ROUTINE SPOOL-READER-F ()
+	 <COND (<VERB? LAMP-ON>
+		<COND (<FSET? ,SPOOL-READER ,ONBIT>
+		       <TELL "The spool reader is already on." CR>)
+		      (T
+		       <FSET ,SPOOL-READER ,ONBIT>
+		       <FSET ,SPOOL-READER ,TOUCHBIT> 
+		       <COND (<FIRST? ,SPOOL-READER>
+			      <TELL ,SPOOL-TEXT CR>)
+			     (T
+			      <TELL
+"The machine hums quietly, and the screen lights up with the phrase
+\"Pleez insurt spuul.\"" CR>)>)>)
+	       (<VERB? LAMP-OFF>
+		<COND (<FSET? ,SPOOL-READER ,ONBIT>
+		       <FCLEAR ,SPOOL-READER ,ONBIT>
+		       <TELL "The spool reader is now off." CR>)
+		      (T
+		       <TELL "It's not on!" CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The machine has a small screen, and below that, a small circular opening.
+The screen is currently ">
+		<COND (<AND <FSET? ,SPOOL-READER ,ONBIT>
+			    <FIRST? ,SPOOL-READER>>
+		       <TELL "displaying some information:" CR>
+		       <TELL ,SPOOL-TEXT CR>)
+		      (T
+		       <TELL "blank." CR>)>)
+	       (<VERB? READ>
+		<COND (<AND <FSET? ,SPOOL-READER ,ONBIT>
+			    <FIRST? ,SPOOL-READER>>
+		       <TELL ,SPOOL-TEXT CR>)
+		      (T
+		       <TELL "The screen is blank." CR>)>)
+	       (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,SPOOL-READER>>
+		<COND (<FIRST? ,SPOOL-READER>
+		       <TELL "There's already a spool in the reader." CR>)
+		      (<EQUAL? ,PRSO ,GREEN-SPOOL>
+		       <SETG SPOOL-TEXT ,GREEN-TEXT>
+		       <MOVE ,GREEN-SPOOL ,SPOOL-READER>
+		       <FSET ,GREEN-SPOOL ,TRYTAKEBIT>
+		       <TELL ,SPOOL-FITS>
+		       <COND (<FSET? ,SPOOL-READER ,ONBIT>
+			      <TELL ,SOME-INFO>)>
+		       <TELL CR>)
+		      (<EQUAL? ,PRSO ,RED-SPOOL>
+		       <SETG SPOOL-TEXT ,RED-TEXT>
+		       <MOVE ,RED-SPOOL ,SPOOL-READER>
+		       <FSET ,RED-SPOOL ,TRYTAKEBIT>
+		       <TELL ,SPOOL-FITS>
+		       <COND (<FSET? ,SPOOL-READER ,ONBIT>
+			      <TELL ,SOME-INFO>)>
+		       <TELL CR>)
+		      (T
+		       <TELL "It doesn't fit in the circular opening." CR>)>)
+	       (<VERB? CLOSE>
+		<NO-CLOSE>
+		<RTRUE>)>>
+
+<CONSTANT SPOOL-FITS "The spool fits neatly into the opening.">
+
+<CONSTANT SOME-INFO " Some information appears on the screen.">
+
+<CONSTANT GREEN-TEXT
+"\"Oonlee peepul wix propur traaneeng shud piilot xe helikopturz. Reekwiird
+ekwipmint inkluudz aa Helikoptur Akses Kard and aa Kuntrool Panul Kee. Xeez
+kan bee obtaand frum Tranzportaashun Stoorij.\"|
+The rest is all very technical.">
+
+<CONSTANT RED-TEXT
+"\"Xe jestaashun peereeid uv Xe Dizeez, folooweeng ekspoozur, vaareez
+treemenduslee frum pursin tuu pursin, raanjeeng frum wun daa tuu sevrul
+rootaashunz. Wuns xe furst simptumz ar shoon, dex alwaaz okurz in aat tuu
+ten daaz.|
+Xe priimeree simptum iz aa hii feevur. Xe sekunderee simptum iz aa sharp
+inkrees in xe amownt uv sleep needid eec niit.\"|
+The rest of the information is about symptoms which can be detected only by
+using complicated medical procedures.">
+
+<ROOM PROJECT-CORRIDOR-WEST
+      (LOC ROOMS)
+      (DESC "Project Corridor West")
+      (LDESC
+"This is a curving hallway leading east and northwest. There is an opening
+to the west.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW" 25 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO SANFAC-F)
+      (EAST TO PROJECT-CORRIDOR)
+      (NW TO FORK)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM SANFAC-F
+      (LOC ROOMS)
+      (DESC "SanFac F")
+      (LDESC
+"This is another dusty sanitary facility. Unlike the ones near the dorms,
+this one is smaller and has no bathing fixtures.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO PROJECT-CORRIDOR-WEST)
+      (OUT TO PROJECT-CORRIDOR-WEST)
+      (FLAGS FLOYDBIT RLANDBIT ONBIT)
+      (PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
+
+<ROOM PROJECT-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Project Corridor")
+      (LDESC
+"You are at the center of a long east-west hallway. A doorway, labelled
+\"PrajKon Awfis\", opens to the south.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO PROJECT-CORRIDOR-EAST)
+      (WEST TO PROJECT-CORRIDOR-WEST)
+      (SOUTH TO PROJCON-OFFICE)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM PROJCON-OFFICE
+      (LOC ROOMS)
+      (DESC "ProjCon Office")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO PROJECT-CORRIDOR)
+      (SOUTH TO CRYO-ELEVATOR IF CRYO-ELEVATOR-DOOR IS OPEN
+       ELSE "You can't go that way.")
+      (EAST TO COMPUTER-ROOM)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL CRYO-ELEVATOR-DOOR)
+      (PSEUDO "MURAL" MURAL-PSEUDO "LOGO" LOGO-PSEUDO)
+      (ACTION PROJCON-OFFICE-F)>
+
+<ROUTINE PROJCON-OFFICE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This office looks like a headquarters of some kind. Exits lead north and
+east. The west wall displays a logo. ">
+		<COND (,COMPUTER-FIXED
+		       <TELL
+"The mural that previously adorned the south wall has slid away, revealing
+an open doorway to a large elevator!" CR>)
+		      (T
+		       <TELL
+"The south wall is completely covered by a garish mural which clashes
+with the other decor of the room." CR>)>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,FLOYD ,HERE>
+		     <NOT ,MURAL-FLAG>>
+		<SETG MURAL-FLAG T>
+		<SETG FLOYD-SPOKE T>
+		<TELL
+"Floyd surveys the mural and scratches his head. \"I don't remember seeing
+this before,\" he comments." CR>)>>
+
+<GLOBAL MURAL-FLAG <>>
+
+<OBJECT CRYO-ELEVATOR-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "cryo-elevator door")
+	(SYNONYM DOOR)
+	(ADJECTIVE CRYO-ELEVATOR ELEVATOR)
+	(FLAGS NDESCBIT INVISIBLE)>
+
+<ROOM CRYO-ELEVATOR
+      (LOC ROOMS)
+      (DESC "Cryo-Elevator")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH PER CRYO-EXIT-F)
+      (GLOBAL CRYO-ELEVATOR-DOOR)
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "BUTTON" CRYO-BUTTON-PSEUDO)
+      (ACTION CRYO-ELEVATOR-F)>
+
+<ROUTINE CRYO-ELEVATOR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a large, plain elevator with one solitary button and a door
+to the north which is ">
+		<DDESC ,CRYO-ELEVATOR-DOOR>
+		<TELL "." CR>)>>
+
+<ROUTINE CRYO-EXIT-F ()
+	 <COND (<FSET? ,CRYO-ELEVATOR-DOOR ,OPENBIT>
+		<COND (,CRYO-SCORE-FLAG
+		       ,CRYO-ANTEROOM)
+		      (T
+		       ,PROJCON-OFFICE)>)
+	       (T
+		<DOOR-CLOSED>
+		<RFALSE>)>>
+
+<GLOBAL CRYO-SCORE-FLAG <>>
+
+<ROUTINE I-CRYO-ELEVATOR-ARRIVE ()
+	 <FSET ,CRYO-ELEVATOR-DOOR ,OPENBIT>
+	 <TELL CR "The elevator door opens onto a room to the north." CR>>
+
+<ROOM CRYO-ANTEROOM
+      (LOC ROOMS)
+      (DESC "Cryo-Anteroom")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (FLAGS RLANDBIT ONBIT)
+      (ACTION CRYO-ANTEROOM-F)>
+
+<ROUTINE CRYO-ANTEROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The elevator closes as you leave it, and you find yourself in a small,
+chilly room. To the north, through a wide arch, is an enormous chamber lined
+from floor to ceiling with thousands of cryo-units. You can see similar
+chambers beyond, and your mind staggers at the thought of the millions of
+individuals asleep for countless centuries.|
+|
+In the anteroom where you stand is a solitary cryo-unit, its cover frosted.
+Next to the cryo-unit is a complicated control panel." CR CR>)
+	       (<EQUAL? .RARG ,M-END>
+		<TELL
+"A door slides open and a medical robot glides in. It opens the cryo-unit
+and administers an injection to its inhabitant. As the robot glides away, a
+figure rises from the cryo-unit -- a handsome, middle-aged woman with flowing
+red hair. She spends some time studying readouts from the control panel">
+		<COND (<AND ,COMM-FIXED ,DEFENSE-FIXED>
+		       <TELL ", pressing several keys." CR>)
+		      (T
+		       <TELL "." CR>)>
+		<COND (,COURSE-CONTROL-FIXED
+		       <TELL
+"|
+As other cryo-units in the chambers beyond begin opening, the woman turns
+to you, bows gracefully, and speaks in a beautiful, lilting
+voice. \"I am Veldina, leader of Resida. Thanks to you, the cure has been
+discovered, and the planetary systems repaired. We are eternally
+grateful.\"" CR>
+		       <COND (<AND ,COMM-FIXED ,DEFENSE-FIXED>
+			      <TELL
+"|
+\"You will also be glad to hear that a ship of your Stellar Patrol now orbits
+the planet. I have sent them the coordinates for this room.\" As if on cue,
+a landing party from the S.P.S. Flathead materializes nearby. Blather is with
+them, having been picked up from deep space in another escape pod, babbling
+cravenly. Captain Sterling of the Flathead acknowledges your heroic actions,
+and informs you of your promotion to Lieutenant First Class.|
+|
+As a team of mutant hunters head for the cryo-elevator, Veldina mentions that
+the grateful people of Resida offer you leadership of their world. Captain
+Sterling points out that, even if you choose to remain on Resida, Blather
+(demoted to Ensign Twelfth Class) has been assigned as your personal toilet
+attendant.|
+|
+You feel a sting from your arm and turn to see a medical robot moving
+away after administering the antidote for The Disease.|
+|
+A team of robot technicians step into the anteroom. They part their ranks, and
+a familiar figure comes bounding toward you! \"Hi!\" shouts Floyd, with
+uncontrolled enthusiasm. \"Floyd feeling better now!\" Smiling from ear to
+ear, he says, \"Look what Floyd found!\" He hands you a helicopter key,
+a reactor elevator card, and a paddleball set. \"Maybe we can use them in
+the sequel...\"" CR CR>
+			      <FINISH <>>)
+			     (T
+			      <TELL
+"|
+\"Unfortunately, a second ship from your Stellar Patrol has ">
+			      <COND (<NOT ,DEFENSE-FIXED>
+				     <TELL
+"been destroyed by our malfunctioning meteor defenses.">)
+				    (T
+				     <TELL
+"come looking for survivors, and because of our malfunctioning communications
+system, has given up and departed.">)>
+			      <TELL
+" I fear that you are stranded on Resida, possibly forever. However, we
+show our gratitude by offering you an unlimited bank account and a house
+in the country.\"" CR CR>
+			      <FINISH <>>)>)
+		      (T
+		       <TELL
+"|
+She turns to you and, with a strained voice says, \"You have fixed our
+computer and a Cure has been discovered, and we are grateful. But alas,
+it was all in vain. Our planetary course control system has malfunctioned,
+and the orbit has now decayed beyond correction. Soon Resida will plunge
+into the sun.\"" CR CR>
+		       <COND (<AND ,COMM-FIXED ,DEFENSE-FIXED>
+			      <TELL
+"Veldina examines the control panel again. \"Fortunately, another ship from
+your Stellar Patrol has arrived, so at least you will survive.\" At that
+moment, a landing party from the S.P.S. Flathead materializes, and takes you
+away from the doomed world." CR CR>)>
+		       <FINISH <>>)>)>>
+
+;(OLD HACK ENDING:
+"A parchment containing Mike Dornbrook's phone number appears in the trophy
+case. A holographic image of the Dungeon Master appears in the air before
+you. He is carrying a letter from Chief Inspector Klutz. \"I hope to meet you
+in person some day,\" he says.")
+
+<ROOM PROJECT-CORRIDOR-EAST
+      (LOC ROOMS)
+      (DESC "Project Corridor East")
+      (LDESC
+"The hallway ends here but continues back toward the west. Doorways lead
+north, south and east.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO LIBRARY-LOBBY)
+      (SOUTH TO COMPUTER-ROOM)
+      (WEST TO PROJECT-CORRIDOR)
+      (EAST TO MAIN-LAB)
+      (FLAGS RLANDBIT ONBIT)>
+
+<ROOM COMPUTER-ROOM
+      (LOC ROOMS)
+      (DESC "Computer Room")
+      (LDESC
+"This is the main computer room for the Project. The only sign of activity is
+a glowing red light. The exits are north, west, and northeast. To the south
+is a small booth.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"  25  ;"NORTH"  0>)
+      (NORTH TO PROJECT-CORRIDOR-EAST)
+      (WEST TO PROJCON-OFFICE)
+      (SOUTH TO MINI-BOOTH)
+      (IN TO MINI-BOOTH)
+      (NE TO MAIN-LAB)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL LIGHTS)
+      (PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)>
+
+<GLOBAL COMPUTER-FLAG <>>
+
+<ROUTINE COMPUTER-ACTION ()
+	 <SETG COMPUTER-FLAG T>
+	 <SETG FLOYD-SPOKE T>
+	 <TELL "Floyd examines the ">
+	 <COND (<EQUAL? ,HERE ,COMPUTER-ROOM>
+		<TELL "glowing light">)
+	       (T
+		<TELL "computer printout">)>
+	 <TELL ". With a concerned frown, he says, \"Uh oh. Computer is
+broken. A Doctor-person once told Floyd that Computer is the most important
+part of the Project.\"" CR>>
+
+<OBJECT PRINT-OUT
+	(LOC COMPUTER-ROOM)
+	(DESC "pile of computer output")
+	(SYNONYM PILE PAPER OUTPUT PRINTOUT)
+	(ADJECTIVE COMPUTER)
+	(SIZE 20)
+	(FLAGS ACIDBIT TAKEBIT READBIT)
+	(ACTION PRINT-OUT-F)>
+
+<ROUTINE PRINT-OUT-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<FIXED-FONT-ON>
+		<TELL
+"The printout is hundreds of pages long. It would take many chrons to
+read it all. The last page looks pretty interesting, though:|
+|
+\"Daalee Statis Reeport:|
+PREELIMINEREE REESURC:  100.000%|
+INTURMEEDEEIT REESURC:  100.000%|
+FIINUL REESURC:         100.000%|
+DRUG PROODUKSHUN:       100.000%|
+DRUG TESTEENG:           99.985%|
+Proojektid tiim tuu reeviivul prooseedzur:  0 daaz, 0.8 kronz|
+|
+|
+*** ALURT! ALURT! ***|
+Malfunkshun in Sekshun 384! Sumuneeng reepaar roobot.\"|
+|
+The printout ends at this point." CR>
+		<FIXED-FONT-OFF>)>>
+
+<ROOM MINI-BOOTH
+      (LOC ROOMS)
+      (DESC "Miniaturization Booth")
+      (LDESC
+"This is a small room barely large enough for one person. Mounted on the wall
+is a small slot, and next to it a keyboard with numeric keys. The exit is to
+the north.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO COMPUTER-ROOM)
+      (OUT TO COMPUTER-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL SLOT)
+      (PSEUDO "KEYBOARD" KEYBOARD-PSEUDO "BOOTH" IN-BOOTH-PSEUDO)>
+
+<OBJECT MINI-CARD
+	(LOC BIO-LOCK-EAST)
+	(DESC "miniaturization access card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE MINIATURIZATION MINI ACCESS)
+	(SIZE 3)
+	(FLAGS TAKEBIT NDESCBIT INVISIBLE READBIT)
+	(VALUE 1)
+	(TEXT "The card is embossed \"minitcurizaashun akses kard.\"")
+	(ACTION MINI-CARD-F)>
+
+<ROUTINE MINI-CARD-F ()
+	 <COND (<AND <FSET? ,MINI-CARD ,NDESCBIT>
+		     <VERB? RUB MOVE TURN SET TAKE PUSH PULL SMELL>>
+		<TELL "It's in the next room." CR>)>>
+
+<ROOM MAIN-LAB
+      (LOC ROOMS)
+      (DESC "Main Lab")
+      (LDESC
+"This is the heart of the Project's vast laboratory complex. There are exits
+to the west and southwest, and heavy metal doors to the northeast and
+southeast. A small doorway leads south.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"  25  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO PROJECT-CORRIDOR-EAST)
+      (SOUTH TO LAB-STORAGE)
+      (SW TO COMPUTER-ROOM)
+      (SE TO BIO-LOCK-WEST IF BIO-DOOR-WEST IS OPEN)
+      (NE TO RADIATION-LOCK-WEST IF RAD-DOOR-WEST IS OPEN)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL BIO-DOOR-WEST RAD-DOOR-WEST)>
+
+<ROOM LAB-STORAGE
+      (LOC ROOMS)
+      (DESC "Lab Storage")
+      (LDESC
+"This is a tiny room for the storage of laboratory supplies. The sole exit is
+to the north.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO MAIN-LAB)
+      (OUT TO MAIN-LAB)
+      (FLAGS RLANDBIT FLOYDBIT ONBIT)
+      (GLOBAL SHELVES)
+      (PSEUDO "RACK" CARPET-PSEUDO "SUPPLIES" SUPPLIES-PSEUDO)> 
+
+<OBJECT LAB-UNIFORM
+	(LOC LAB-STORAGE)
+	(DESC "lab uniform")
+	(FDESC
+"Hanging on a rack is a pale blue lab uniform. Sewn onto its pocket is a
+nondescript logo.")
+	(SYNONYM UNIFORM SUIT POCKET LOGO)
+	(ADJECTIVE PALE BLUE LAB)
+	(SIZE 10)
+	(CAPACITY 5)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT WEARBIT)
+	(ACTION LAB-UNIFORM-F)>
+
+<GLOBAL UNIFORM-OPENED <>>
+
+<ROUTINE LAB-UNIFORM-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It is a plain lab uniform. The logo above the pocket depicts a flame burning
+above some kind of sleep chamber. The pocket is ">
+		<DDESC ,LAB-UNIFORM>
+		<TELL "." CR>)
+	       (<VERB? SEARCH OPEN>
+	        <COND (<FSET? ,LAB-UNIFORM ,OPENBIT>
+		       <TELL "The pocket is already open." CR>)
+		      (T
+		       <FSET ,LAB-UNIFORM ,OPENBIT>
+		       <COND (,UNIFORM-OPENED
+			      <COND (<FIRST? ,LAB-UNIFORM>
+				     <TELL
+"Opening the uniform's pocket reveals ">
+				     <PRINT-CONTENTS ,LAB-UNIFORM>
+				     <TELL "." CR>)
+				    (T
+				     <TELL "The pocket is empty." CR>)>)
+			     (T
+		              <FSET ,LAB-UNIFORM ,OPENBIT>
+			      <SETG UNIFORM-OPENED T>
+			      <TELL
+"You discover a small piece of paper and a teleportation access card in the
+pocket of the uniform." CR>)>)>)
+	       (<AND <VERB? WEAR>
+		     <FSET? ,PATROL-UNIFORM ,WORNBIT>>
+		<TELL "It won't fit on top of the Patrol uniform." CR>)>>
+
+<OBJECT TELEPORTATION-CARD
+	(LOC LAB-UNIFORM)
+	(DESC "teleportation access card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE TELEPORT TELEPORTATION ACCESS)
+	(SIZE 3)
+	(FLAGS TAKEBIT READBIT)
+	(TEXT "The card is embossed \"teliportaashun akses kard.\"")>
+
+;<OBJECT MODULATOR-PIN
+	(LOC LAB-UNIFORM)
+	(DESC "modulator pin")
+	(SYNONYM PIN)
+	(ADJECTIVE DIGGER MODULATOR)
+	(SIZE 2)
+	(FLAGS TAKEBIT)>
+
+<OBJECT COMBINATION-PAPER
+	(LOC LAB-UNIFORM)
+	(DESC "piece of paper")
+	(SYNONYM PIECE PAPER)
+	(FLAGS ACIDBIT TAKEBIT READBIT)
+	(SIZE 2)
+	(ACTION COMBINATION-PAPER-F)>
+
+<ROUTINE COMBINATION-PAPER-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL
+"Week uv 14-Juun--2882. Kombinaashun tuu Konfurins Ruum: " N ,NUMBER-NEEDED
+"." CR>)>>
+
+<ROOM BIO-LOCK-WEST
+      (LOC ROOMS)
+      (DESC "Bio Lock West")
+      (LDESC
+"This is the first half of a sterilization chamber to prevent contamination
+of the delicate biological experiments in the Bio Lab which lies beyond. The
+door to the west leads to the main lab, and the bio lock continues eastward.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST"10 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO BIO-LOCK-EAST)
+      (WEST TO MAIN-LAB IF BIO-DOOR-WEST IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL BIO-DOOR-WEST)>
+
+<ROOM BIO-LOCK-EAST
+      (LOC ROOMS)
+      (DESC "Bio Lock East")
+      (LDESC
+"The is the second half of the sterilization chamber leading from the main
+lab to the Bio Lab. The door to the east, leading to the Bio Lab, has a
+window. The bio lock continues to the west.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST"10 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO BIO-LAB IF BIO-DOOR-EAST IS OPEN)
+      (WEST TO BIO-LOCK-WEST)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL BIO-DOOR-EAST WINDOW)
+      (ACTION BIO-LOCK-EAST-F)>
+
+<GLOBAL WAITING-COUNTER 0>
+
+<ROUTINE BIO-LOCK-EAST-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>
+		     <NOT <EQUAL? ,FLOYD ,WINNER>>>
+		<COND (,FLOYD-WAITING
+		       <COND (<G? ,WAITING-COUNTER 3>
+			      <SETG FLOYD-WAITING <>>
+			      <SETG FLOYD-GAVE-UP T>
+			      <SETG FLOYD-SPOKE T>
+			      <SETG FLOYD-FOLLOW <>>
+			      <MOVE ,FLOYD ,BIO-LOCK-WEST>
+			      <ENABLE <QUEUE I-FLOYD 1>>
+			      <TELL
+"\"Okay,\" says Floyd with uncharacteristic annoyance. \"Forget about the
+stupid card.\" He goes to the other end of the bio-lock and sulks." CR>)
+			     (<NOT ,FLOYD-FORAYED>
+			      <SETG FLOYD-SPOKE T>
+			      <SETG WAITING-COUNTER <+ ,WAITING-COUNTER 1>>
+			      <TELL
+"Floyd looks at you with a dash of impatience and a healthy helping of
+nervousness. \"Well?\" he asks. \"Are you going to open the door?\"" CR>)>)
+		      (<AND <NOT ,FLOYD-GAVE-UP>
+			    <NOT ,FLOYD-PEERED>>
+		       <SETG FLOYD-SPOKE T>
+		       <SETG FLOYD-PEERED T>
+		       <ENABLE <QUEUE I-CLEAR-FLOYD-PEER 40>>
+		       <FCLEAR ,MINI-CARD ,INVISIBLE>
+		       <TELL
+"Floyd stands on his tiptoes and peers in the window. ">
+		       <COND (,COMPUTER-FLAG
+			      <SETG FLOYD-WAITING T>
+			      <TELL
+"\"Looks dangerous in there,\" says Floyd. \"I don't think you should go
+inside.\" He peers in again. \"We'll need card there to fix computer. Hmmm...
+I know! Floyd will get card. Robots are tough. Nothing can hurt robots. You
+open the door, then Floyd will rush in. Then you close door. When Floyd knocks,
+open door again. Okay? Go!\" Floyd's voice trembles slightly as he waits for
+you to open the door.">)
+			     (T
+			      <TELL
+"\"Ooo, look,\" he says. \"There's a miniaturization booth access card!\"">)>
+		       <TELL CR>)>)>> 
+
+<GLOBAL FLOYD-PEERED <>>
+
+<ROUTINE I-CLEAR-FLOYD-PEER ()
+	 <SETG FLOYD-PEERED <>>
+	 <RFALSE>>
+
+<ROOM RADIATION-LOCK-WEST
+      (LOC ROOMS)
+      (DESC "Radiation Lock West")
+      (LDESC
+"This is the western half of a decontamination chamber to prevent dangerous
+radioactive materials from leaving the Radiation Lab which lies to the east.
+The door leads west to the main lab.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO RADIATION-LOCK-EAST)
+      (WEST TO MAIN-LAB IF RAD-DOOR-WEST IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL RAD-DOOR-WEST)>
+
+<ROOM RADIATION-LOCK-EAST
+      (LOC ROOMS)
+      (DESC "Radiation Lock East")
+      (LDESC
+"This is the eastern half of the decontamination chamber. The door to the
+east leads to the Radiation Lab, and the chamber continues westward. A sign
+on the wall reads \"WORNEENG! Raadeeaashun suuts must bee worn beeyond xis
+point.\"")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO RADIATION-LAB IF RAD-DOOR-EAST IS OPEN)
+      (WEST TO RADIATION-LOCK-WEST)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL RAD-DOOR-EAST)>
+
+<OBJECT BIO-DOOR-EAST
+	(LOC LOCAL-GLOBALS)
+	(DESC "lab door")
+	(SYNONYM DOOR)
+	(ADJECTIVE LAB)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION BIO-DOOR-EAST-F)>
+
+<OBJECT BIO-DOOR-WEST
+	(LOC LOCAL-GLOBALS)
+	(DESC "bio-lock door")
+	(SYNONYM DOOR)
+	(ADJECTIVE BIO-LOCK)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION BIO-DOOR-WEST-F)>
+
+<OBJECT RAD-DOOR-EAST
+	(LOC LOCAL-GLOBALS)
+	(DESC "lab door")
+	(SYNONYM DOOR)
+	(ADJECTIVE LAB)
+	(FLAGS DOORBIT NDESCBIT)
+        (ACTION RAD-DOOR-EAST-F)>
+
+<OBJECT RAD-DOOR-WEST
+	(LOC LOCAL-GLOBALS)
+	(DESC "radiation-lock door")
+	(SYNONYM DOOR)
+	(ADJECTIVE RADIATION)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION RAD-DOOR-WEST-F)>
+
+<ROUTINE BIO-DOOR-EAST-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (<FSET? ,BIO-DOOR-WEST ,OPENBIT>
+		       <TELL ,BOTH-DOORS CR>)
+		      (<AND ,FLOYD-WAITING
+			    <FSET? ,FLOYD ,RLANDBIT>
+			    <EQUAL? ,FORAY-COUNTER 0>>
+		       <ENABLE <QUEUE I-FLOYD-FORAY -1>>
+		       <SETG FLOYD-FORAYED T>
+		       <FSET ,BIO-DOOR-EAST ,OPENBIT>
+		       <REMOVE ,FLOYD>
+		       <DISABLE <INT I-FLOYD>>
+		       <TELL
+"The door opens and Floyd, pausing only for the briefest moment, plunges into
+the Bio Lab. Immediately, he is set upon by hideous, mutated monsters! More
+are heading straight toward the open door! Floyd shrieks and yells to you to
+close the door." CR>)
+		      (<AND <NOT ,FLOYD-FORAYED>
+			    <EQUAL? <GET <INT I-CHASE-SCENE> ,C-ENABLED?> 0>>
+		       <JIGS-UP
+"Opening the door reveals a Bio-Lab full of horrible mutations. You stare at
+them, frozen with horror. Growling with hunger and delight, the mutations
+march into the bio-lock and devour you.">)
+		      (T
+		       <FSET ,BIO-DOOR-EAST ,OPENBIT>
+		       <ENABLE <QUEUE I-BIO-EAST-CLOSES 30>>
+		       <TELL ,DOOR-OPENS CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <COND (<EQUAL? ,FORAY-COUNTER 4>
+			      <SETG C-ELAPSED 95>)>
+		       <FCLEAR ,BIO-DOOR-EAST ,OPENBIT>
+		       <TELL "The door closes">
+		       <COND (<EQUAL? <GET <INT I-CHASE-SCENE> ,C-ENABLED?> 1>
+			      <TELL ", but not soon enough!" CR>)
+			     (T
+			      <TELL "." CR>)>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<ROUTINE I-BIO-EAST-CLOSES ()
+	 <COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		<FCLEAR ,BIO-DOOR-EAST ,OPENBIT>
+		<COND (<EQUAL? ,HERE ,BIO-LOCK-EAST ,BIO-LOCK-WEST ,BIO-LAB>
+		       <TELL CR 
+"The door at the eastern end of the bio-lock closes silently." CR>)>)>>
+
+<ROUTINE BIO-DOOR-WEST-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,BIO-DOOR-WEST ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <TELL ,BOTH-DOORS CR>)
+		      (T
+		       <TELL ,DOOR-OPENS CR>
+		       <ENABLE <QUEUE I-BIO-WEST-CLOSES 30>>
+		       <FSET ,BIO-DOOR-WEST ,OPENBIT>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,BIO-DOOR-WEST ,OPENBIT>
+		       <FCLEAR ,BIO-DOOR-WEST ,OPENBIT>
+		       <TELL ,DOOR-CLOSES CR>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<ROUTINE I-BIO-WEST-CLOSES ()
+	 <COND (<FSET? ,BIO-DOOR-WEST ,OPENBIT>
+		<FCLEAR ,BIO-DOOR-WEST ,OPENBIT>
+		<COND (<EQUAL? ,HERE ,BIO-LOCK-WEST ,BIO-LOCK-EAST ,MAIN-LAB>
+		       <TELL CR
+"The door at the western end of the bio-lock closes silently." CR>)>)>>
+
+<ROUTINE RAD-DOOR-EAST-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,RAD-DOOR-EAST ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (<FSET? ,RAD-DOOR-WEST ,OPENBIT>
+		       <TELL ,BOTH-DOORS CR>)
+		      (T
+		       <FSET ,RAD-DOOR-EAST ,OPENBIT>
+		       <TELL ,DOOR-OPENS CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,RAD-DOOR-EAST ,OPENBIT>
+		       <FCLEAR ,RAD-DOOR-EAST ,OPENBIT>
+		       <TELL ,DOOR-CLOSES CR>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<ROUTINE RAD-DOOR-WEST-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,RAD-DOOR-WEST ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (<FSET? ,RAD-DOOR-EAST ,OPENBIT>
+		       <TELL ,BOTH-DOORS CR>)
+		      (T
+		       <TELL ,DOOR-OPENS CR>
+		       <FSET ,RAD-DOOR-WEST ,OPENBIT>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,RAD-DOOR-WEST ,OPENBIT>
+		       <FCLEAR ,RAD-DOOR-WEST ,OPENBIT>
+		       <TELL ,DOOR-CLOSES CR>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<CONSTANT BOTH-DOORS
+"A very bored-sounding recorded voice explains that, in order to prevent
+contamination, both lock doors cannot be open simultaneously.">
+
+<CONSTANT DOOR-OPENS "The door opens.">
+
+<CONSTANT DOOR-CLOSES "The door closes.">
+
+<GLOBAL FLOYD-WAITING <>>
+
+
+<GLOBAL FLOYD-GAVE-UP <>>
+
+<GLOBAL FLOYD-FORAYED <>>
+
+<GLOBAL FORAY-COUNTER 0>
+
+<ROUTINE I-FLOYD-FORAY ()
+	 <SETG FORAY-COUNTER <+ ,FORAY-COUNTER 1>>
+	 <COND (<EQUAL? ,FORAY-COUNTER 2>
+		<COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <CRLF>
+		       <MONSTER-DEATH>)
+		      (T
+		       <TELL CR
+"From within the lab you hear ferocious growlings, the sounds of a skirmish,
+and then a high-pitched metallic scream!" CR>)>)
+	       (<EQUAL? ,FORAY-COUNTER 3>
+		<COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <CRLF>
+		       <MONSTER-DEATH>)
+		      (T
+		       <TELL CR
+"You hear, slightly muffled by the door, three fast knocks, followed
+by the distinctive sound of tearing metal." CR>)>)
+	       (<EQUAL? ,FORAY-COUNTER 4>
+		<COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <MOVE ,FLOYD ,HERE>
+		       <TELL CR
+"Floyd stumbles out of the Bio Lab, clutching the mini-booth card. The
+mutations rush toward the open doorway!" CR>)
+		      (T
+		       <TELL CR
+"The three knocks come again, followed by a wild scream. Then, all is silence
+from within the Bio Lab, except for an occasional metallic crunch." CR>
+		       <FCLEAR ,FLOYD ,RLANDBIT>
+		       <DISABLE <INT I-FLOYD-FORAY>>)>)
+	       (<EQUAL? ,FORAY-COUNTER 5>
+		<COND (<FSET? ,BIO-DOOR-EAST ,OPENBIT>
+		       <CRLF>
+		       <MONSTER-DEATH>)
+		      (T
+		       <REMOVE ,FLOYD>
+		       <FCLEAR ,FLOYD ,RLANDBIT>
+		       <DISABLE <INT I-FLOYD>>
+		       <FSET ,FLOYD ,INVISIBLE>
+		       <MOVE ,DEAD-FLOYD ,HERE>
+		       <MOVE ,MINI-CARD ,BIO-LOCK-EAST>
+		       <FSET ,MINI-CARD ,TOUCHBIT>
+		       <SETG SCORE <+ ,SCORE 2>>
+		       <TELL CR
+"And not a moment too soon! You hear a pounding from the door as the monsters
+within vent their frustration at losing their prey.|
+|
+Floyd staggers to the ground, dropping the mini card. He is badly torn apart,
+with loose wires and broken circuits everywhere. Oil flows from his
+lubrication system. He obviously has only moments to live.|
+|
+You drop to your knees and cradle Floyd's head in your lap. Floyd looks up
+at his friend with half-open eyes. \"Floyd did it ... got card. Floyd a
+good friend, huh?\" Quietly, you sing Floyd's favorite song, the Ballad
+of the Starcrossed Miner:|
+|
+O, they ruled the solar system|
+Near ten thousand years before|
+In their single starcrossed scout ships|
+Mining ast'roids, spinning lore.|
+|
+Then one true courageous miner|
+Spied a spaceship from the stars|
+Boarded he that alien liner|
+Out beyond the orb of Mars.|
+|
+Yes, that ship was filled with danger|
+Mighty monsters barred his way|
+Yet he solved the alien myst'ries|
+Mining quite a lode that day.|
+|
+O, they ruled the solar system|
+Near ten thousand years before|
+'Til one brave advent'rous spirit|
+Brought that mighty ship to shore.|
+|
+As you finish the last verse, Floyd smiles with contentment, and then his
+eyes close as his head rolls to one side. You sit in silence for a moment,
+in memory of a brave friend who gave his life so that you might live." CR>
+		       <FCLEAR ,FLOYD ,RLANDBIT>
+		       <FCLEAR ,MINI-CARD ,NDESCBIT>
+		       <DISABLE <INT I-FLOYD-FORAY>>)>)>>
+
+<ROUTINE MONSTER-DEATH ()
+	 <JIGS-UP
+"The biological nightmares reach you. Gripping coils wrap around your limbs
+as powerful teeth begin tearing at your flesh. Something bites your leg,
+and you feel a powerful poison begin to work its numbing effects...">>
+
+<ROOM BIO-LAB
+      (LOC ROOMS)
+      (DESC "Bio Lab")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO LAB-OFFICE IF OFFICE-DOOR IS OPEN)
+      (WEST TO BIO-LOCK-EAST IF BIO-DOOR-EAST IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL BIO-DOOR-EAST WINDOW OFFICE-DOOR)
+      (PSEUDO "CRACK" CRACK-PSEUDO)
+      (ACTION BIO-LAB-F)>
+
+<ROUTINE BIO-LAB-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a huge laboratory filled with many biological experiments.
+The lighting is ">
+		<COND (,LAB-LIGHTS-ON
+		       <TELL "bright.">)
+		      (T
+		       <TELL
+"dim, and a faint blue glow comes from a gaping crack in the northern wall.">)>
+	       <TELL
+" Some of the experiments seem to be out of control..." CR>)
+	 (<EQUAL? .RARG ,M-END>
+	  <ENABLE <QUEUE I-CHASE-SCENE -1>>
+	  <COND (,LAB-FLOODED
+		       <TELL
+"The air is filled with mist, which is affecting the mutants. They appear
+to be stunned and confused, but are slowly recovering." CR>
+		       <COND (<NOT <FSET? ,GAS-MASK ,WORNBIT>>
+			      <JIGS-UP
+" Unfortunately, you don't seem to be that hardy.">)>)
+		      (T
+		       <JIGS-UP
+"The mutants attack you and rip you to shreds within seconds.">)>)>> 
+
+<GLOBAL EXTRA-MOVE-FLAG <>>
+
+<GLOBAL CRYO-MOVE-FLAG <>>
+
+<GLOBAL LAST-CHASE-ROOM <>>
+
+<GLOBAL SECOND-TO-LAST-ROOM <>>
+
+<ROUTINE I-CHASE-SCENE ()
+	 <COND (<AND <IN? ,RAT-ANT ,HERE>
+		     <NOT ,LAB-FLOODED>>
+		<JIGS-UP
+"|
+Dozens of hungry eyes fix on you as the mutations surround you
+and begin feasting.">)
+	       (<NOT ,LAB-FLOODED>
+		<COND (<AND <EQUAL? ,HERE ,BIO-LOCK-WEST>
+			    <NOT ,EXTRA-MOVE-FLAG>>
+		       <SETG EXTRA-MOVE-FLAG T>
+		       <TELL CR
+"The monsters gallop toward you, smacking their lips." CR>)
+		      (<AND <EQUAL? ,HERE ,CRYO-ELEVATOR>
+			    <NOT ,CRYO-MOVE-FLAG>>
+		       <SETG CRYO-MOVE-FLAG T>
+		       <TELL CR
+"The monsters are storming straight toward the elevator door!" CR>)
+		      (<AND <EQUAL? ,HERE ,SECOND-TO-LAST-ROOM>
+			    <VERB? WALK>>
+		       <JIGS-UP
+"|
+You stupidly run right into the jaws of the pursuing mutants.">)
+		      (T
+		       <COND (<EQUAL? ,HERE ,CRYO-ELEVATOR>
+			      <CRLF>
+			      <MONSTER-DEATH>)>
+		       <MOVE ,RAT-ANT ,HERE>
+		       <MOVE ,TRIFFID ,HERE>
+		       <MOVE ,TROLL ,HERE>
+		       <MOVE ,GRUE ,HERE>
+		       <TELL CR "The mutants ">
+		       <COND (<EQUAL? ,HERE ,BIO-LOCK-WEST>
+			      <TELL "are almost upon you now!" CR>)
+			     (T
+			      <TELL "burst into the room right on your heels! "
+				    <PICK-ONE ,MONSTER-ENTRANCES> CR>)>)>)>
+	 <SETG SECOND-TO-LAST-ROOM ,LAST-CHASE-ROOM>
+	 <SETG LAST-CHASE-ROOM ,HERE>>
+
+<CONSTANT MONSTER-ENTRANCES
+	<PLTABLE
+	 "The growling humanoid is charging straight at you, waving his
+axe-like implement!"
+	 "A pair of slavering fangs removes part of your clothing!"
+	 "Needle-sharp mandibles nip at your arms!"
+	 "The mobile plant whips its poisonous tentacles against
+your ankles!">>
+
+<ROOM RADIATION-LAB
+      (LOC ROOMS)
+      (DESC "Radiation Lab")
+      (LDESC 
+"This room is filled with unfathomable equipment and large canisters bearing
+radioactive warnings. Many of the canisters are split open. You can see the
+Bio Lab through a large crack in the south wall. Sinister-looking forms move
+about within the Bio Lab. Although the lights here are off, the room is
+suffused with a pale blue glow.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO RADIATION-LOCK-EAST IF RAD-DOOR-EAST IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL TABLES RAD-DOOR-EAST)
+      (PSEUDO "CRACK" CRACK-PSEUDO "EQUIPMENT" EQUIPMENT-PSEUDO)
+      (ACTION RADIATION-LAB-F)>
+
+<ROUTINE RADIATION-LAB-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,RADIATION-LAB ,TOUCHBIT>>>
+		<ENABLE <QUEUE I-NUKED-BLUE 50>>)>>
+
+<GLOBAL NUKED-COUNTER 0>
+
+<ROUTINE I-NUKED-BLUE ()
+	 <ENABLE <QUEUE I-NUKED-BLUE -1>>
+	 <SETG NUKED-COUNTER <+ ,NUKED-COUNTER 1>>
+	 <COND (<EQUAL? ,NUKED-COUNTER 1>
+		<TELL CR "You suddenly feel sick and dizzy." CR>)
+	       (<EQUAL? ,NUKED-COUNTER 2>
+		<TELL CR
+"You feel incredibly nauseous and begin vomiting. Also, all your
+hair has fallen out.">
+		<COND (<IN? ,FLOYD ,HERE>
+		       <TELL
+" Floyd points at you and laughs hysterically. \"You look funny with no
+hair,\" he gasps.">)>
+		<CRLF>)
+	       (<EQUAL? ,NUKED-COUNTER 3>
+		<JIGS-UP
+"|
+It seems you have picked up a bad case of radiation poisoning.">)>>
+
+<OBJECT BROWN-SPOOL
+	(LOC RADIATION-LAB)
+	(DESC "brown spool")
+	(FDESC
+"Sitting on a long table is a small brown spool.")
+	(SYNONYM SPOOL SPOOLS OBJECT)
+	(ADJECTIVE BROWN SMALL)
+	(SIZE 3)
+	(TEXT
+"The spool is labelled \"Instrukshunz foor Reepaareeng Reepaar Roobots.\"")
+	(FLAGS ACIDBIT TAKEBIT READBIT)>
+
+<OBJECT LAMP
+	(LOC RADIATION-LAB)
+	(DESC "portable lamp")
+	(FDESC
+"There is a powerful portable lamp here, currently off.")
+	(SYNONYM LAMP LANTERN LIGHT)
+	(ADJECTIVE POWERFUL PORTABLE)
+	(SIZE 20)
+	(FLAGS TAKEBIT)
+	(ACTION LAMP-F)>
+
+<ROUTINE LAMP-F ()
+	 <COND (<VERB? LAMP-ON>
+		<COND (<FSET? ,LAMP ,ONBIT>
+		       <TELL "It is on." CR>)
+		      (T
+		       <FSET ,LAMP ,ONBIT>
+		       <FSET ,LAMP ,TOUCHBIT>
+		       <TELL "The lamp is now producing a bright light." CR>)>)
+	       (<VERB? LAMP-OFF>
+		<COND (<FSET? ,LAMP ,ONBIT>
+		       <FCLEAR ,LAMP ,ONBIT>
+		       <TELL "The lamp goes dark." CR>)
+		      (T
+		       <TELL "It isn't on." CR>)>)>>
+
+<ROOM LAB-OFFICE
+      (LOC ROOMS)
+      (DESC "Lab Office")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO BIO-LAB IF OFFICE-DOOR IS OPEN)
+      (SOUTH TO AUXILIARY-BOOTH)
+      (IN TO AUXILIARY-BOOTH)
+      (GLOBAL OFFICE-DOOR)
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "FILES" CABINETS-PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)
+      (ACTION LAB-OFFICE-F)>
+
+<ROUTINE LAB-OFFICE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL 
+"This is the office for storing files on Bio Lab experiments. A large and
+messy desk is surrounded by locked files. A small booth lies to the south. ">
+		<COND (<FSET? ,OFFICE-DOOR ,OPENBIT>
+		       <TELL "An open">)
+		      (T
+		       <TELL "A closed">)>
+		<TELL " door to the west is labelled \"Biioo Lab.\" You
+realize with shock and horror that the only way out is through the
+mutant-infested Bio Lab.|
+|
+On the wall are three buttons: a white button labelled \"Lab Liits On\",
+a black button labelled \"Lab Liits Of\", and a red button labelled
+\"Eemurjensee Sistum.\"" CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		      <FSET? ,OFFICE-DOOR ,OPENBIT>>
+		<COND (,LAB-FLOODED
+		       <TELL
+"Through the open doorway you can see the Bio Lab. It seems to be filled
+with a light mist. Horrifying biological nightmares stagger about making
+choking noises." CR>)
+		      (T
+		       <JIGS-UP
+"Mutated monsters from the Bio Lab pour into the office. You are
+devoured.">)>)>>
+
+<OBJECT OFFICE-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "office door")
+	(SYNONYM DOOR)
+	(ADJECTIVE OFFICE)
+	(FLAGS VOWELBIT DOORBIT NDESCBIT)>
+
+<OBJECT LAB-DESK
+	(LOC LAB-OFFICE)
+	(DESC "desk")
+	(SYNONYM DESK)
+	(ADJECTIVE LARGE MESSY)
+	(FLAGS CONTBIT SEARCHBIT NDESCBIT)
+	(CAPACITY 10)
+	(ACTION LAB-DESK-F)>
+
+<ROUTINE LAB-DESK-F ()
+	 <COND (<AND <VERB? EXAMINE SEARCH>
+		     <NOT <FSET? ,LAB-DESK ,TOUCHBIT>>>
+		<MOVE ,MEMO ,ADVENTURER>
+		<FSET ,LAB-DESK ,TOUCHBIT>
+		<TELL
+"After inspecting the various papers on the desk, you find only
+one item of interest, a memo of some sort. The desk itself is ">
+		<COND (<FSET? ,LAB-DESK ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL
+"closed, but it doesn't look locked">)>
+		<TELL "." CR>)
+	       (<AND <VERB? OPEN>
+		     <IN? ,GAS-MASK ,LAB-DESK>>
+		<THIS-IS-IT ,GAS-MASK>
+		<RFALSE>)>>
+
+<OBJECT GAS-MASK
+	(LOC LAB-DESK)
+	(DESC "gas mask")
+	(SYNONYM MASK)
+	(ADJECTIVE GAS)
+	(FLAGS ACIDBIT TAKEBIT WEARBIT)
+	(SIZE 10)>
+
+<OBJECT MEMO
+	(DESC "memo")
+	(SYNONYM MEMO)
+	(FLAGS READBIT ACIDBIT TAKEBIT)
+	(TEXT
+"\"Memoo tuu awl lab pursunel: Duu tuu xe daanjuris naatshur uv xe biioo
+eksperiments, an eemurjensee sistum haz bin instawld. Xis sistum wud flud
+xe entiir Biioo Lab wic aa dedlee fungasiid. Propur preecawshunz shud bee
+taakin if xis sistum iz evur yuuzd.\"")>
+
+<OBJECT LIGHT-BUTTON
+	(LOC LAB-OFFICE)
+	(DESC "white button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE WHITE LIGHT)
+	(FLAGS NDESCBIT)
+	(ACTION LIGHT-BUTTON-F)>
+
+<OBJECT DARK-BUTTON
+	(LOC LAB-OFFICE)
+	(DESC "black button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BLACK DARK DARKNESS)
+	(FLAGS NDESCBIT)
+	(ACTION DARK-BUTTON-F)>
+
+<OBJECT FUNGICIDE-BUTTON
+	(LOC LAB-OFFICE)
+	(DESC "red button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RED FUNGICIDE EMERGENCY)
+	(FLAGS NDESCBIT)
+	(ACTION FUNGICIDE-BUTTON-F)>
+
+<GLOBAL LAB-LIGHTS-ON <>>
+
+<GLOBAL LAB-FLOODED <>>
+
+<ROUTINE LIGHT-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (,LAB-LIGHTS-ON
+		       <TELL "Nothing happens." CR>)
+		      (T
+		       <SETG LAB-LIGHTS-ON T>
+		       <TELL ,FAINT-SOUND CR>)>)>>
+
+<ROUTINE DARK-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (,LAB-LIGHTS-ON
+		       <SETG LAB-LIGHTS-ON <>>
+		       <TELL ,FAINT-SOUND CR>)
+		      (T
+		       <TELL "Nothing happens." CR>)>)>>
+
+<CONSTANT FAINT-SOUND "You hear the faint sound of a relay clicking.">
+
+<ROUTINE FUNGICIDE-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<SETG LAB-FLOODED T>
+		<ENABLE <QUEUE I-UNFLOOD 50>>
+		<TELL
+"You hear a hissing from beyond the door to the west." CR>)>>
+
+<ROUTINE I-UNFLOOD ()
+	 <SETG LAB-FLOODED <>>
+	 <COND (<EQUAL? ,HERE ,BIO-LAB>
+		<TELL CR
+"The last traces of mist in the air vanish. The mutants, recovering
+quickly, notice you and begin salivating." CR>)
+	       (<AND <EQUAL? ,HERE ,LAB-OFFICE>
+		     <FSET? ,OFFICE-DOOR ,OPENBIT>>
+		<TELL CR
+"The mist in the Bio Lab clears. The mutants recover and rush
+toward the door!" CR>)>>
+
+<ROOM AUXILIARY-BOOTH
+      (LOC ROOMS)
+      (DESC "Auxiliary Booth")
+      (LDESC
+"This is another small booth. Unlike the Miniaturization Booth, this room
+has no slot or keyboard, so presumably it is intended only as a receiving
+station. The exit is on the northern side.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO LAB-OFFICE)
+      (OUT TO LAB-OFFICE)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 4)
+      (PSEUDO "BOOTH" IN-BOOTH-PSEUDO)>
+
+^L
+
+;"INSIDE THE COMPUTER"
+
+<GLOBAL MINI-ACTIVATED <>>
+
+<ROUTINE I-TURNOFF-MINI ()
+	 <SETG MINI-ACTIVATED <>>
+	 <COND (<EQUAL? ,HERE ,MINI-BOOTH>
+		<TELL CR
+"A recorded voice says \"Miniaturization booth deactivated.\"" CR>)>>
+
+<ROOM STATION-384
+      (LOC ROOMS)
+      (DESC "Station 384")
+      (LDESC
+"You are standing on a square plate of heavy metal. Above your head, parallel
+to the plate beneath you, is an identical metal plate. To the east is a wide,
+metallic strip.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO STRIP-NEAR-STATION)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STRIP)
+      (PSEUDO "PLATE" PLATE-PSEUDO "PLATES" PLATE-PSEUDO)
+      (ACTION STATION-384-F)>
+
+<ROUTINE STATION-384-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (,BEEN-HERE
+		       <SETG BEEN-HERE <>>
+		       <COND (,COMPUTER-FIXED
+			      <TELL
+"A voice seems to whisper in your ear \"Main Miniaturization and Teleportation
+Booth has malfunctioned...switching to Auxiliary Booth...\" ">
+	                      <ENABLE <QUEUE I-ANNOUNCEMENT 130>>
+			      <TELL ,FAMILIAR-WRENCHING CR>
+			      <GOTO ,AUXILIARY-BOOTH>
+			      <RFATAL>)
+			     (T
+			      <TELL ,FAMILIAR-WRENCHING CR>
+			      <GOTO ,MINI-BOOTH <>>)>)>)>>
+
+<ROUTINE I-ANNOUNCEMENT ()
+	 <TELL CR "A recorded announcement blares from the public address
+system. \"Revival procedure beginning. Cryo-chamber access from Project
+Control Office now open.\"" CR>>
+
+<GLOBAL BEEN-HERE <>>
+
+<GLOBAL COMPUTER-FIXED <>>
+
+<CONSTANT FAMILIAR-WRENCHING
+"You feel the familiar wrenching of your innards, and find yourself in a vast
+room whose distant walls are rushing straight toward you...|">
+
+<ROOM STRIP-NEAR-STATION
+      (LOC ROOMS)
+      (DESC "Strip Near Station")
+      (LDESC
+"You are standing on a silicon filament, which looks to you like a wide
+metal highway. South of here, the filament makes a right angle and heads
+straight down, like a cliff overlooking a black void. The filament can be
+followed north, however. Station 384 lies westward.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH SORRY "The plunge would probably be fatal.")
+      (EAST SORRY "The plunge would probably be fatal.")
+      (NORTH TO MIDDLE-OF-STRIP)
+      (WEST TO STATION-384)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 4)
+      (PSEUDO "VOID" VOID-PSEUDO)
+      (GLOBAL STRIP)>
+
+<ROOM MIDDLE-OF-STRIP
+      (LOC ROOMS)
+      (DESC "Middle of Strip")
+      (LDESC
+"You are standing on a section of the strip with a bottomless void stretching
+out on both sides. The strip continues to the north and south.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH TO STRIP-NEAR-RELAY)
+      (SOUTH TO STRIP-NEAR-STATION IF NO-MICROBE ELSE "Not a chance -- unless,
+of course, you don't mind walking into the gullet of a hungry microbe.")
+      (EAST SORRY "Do you have a penchant for bottomless voids?")
+      (WEST SORRY "Do you have a penchant for bottomless voids?")
+      (FLAGS RLANDBIT ONBIT)
+      (ACTION MIDDLE-OF-STRIP-F)
+      (PSEUDO "VOID" VOID-PSEUDO)
+      (GLOBAL STRIP)>
+
+<GLOBAL NO-MICROBE T>
+
+<GLOBAL MICROBE-DISPATCHED <>>
+
+<ROUTINE MIDDLE-OF-STRIP-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<AND ,COMPUTER-FIXED
+			    ,NO-MICROBE
+			    <NOT ,MICROBE-DISPATCHED>>
+		       <MOVE ,MICROBE ,HERE>
+		       <ENABLE <QUEUE I-MICROBE -1>>
+		       <SETG NO-MICROBE <>>
+		       <TELL
+"Suddenly, with a loud plop, a giant elephant-sized monster lands on the strip
+just in front of you. It is amorphously shaped, its skin a slimy translucent
+red membrane. While most of your brain screams with panic about the disgusting
+monster that now blocks your exit, some small section in the back of your mind
+calmly realizes that this is merely some tiny microbe which has somehow
+violated the sterile environment of the computer interior.|
+|
+As you stand frozen with fear, the microbe slithers toward you,
+extending slimy pseudopods thick with waving cilia. It looks pretty
+hungry, and seems intent on having you for lunch." CR CR>)>)>>
+
+<ROOM STRIP-NEAR-RELAY
+      (LOC ROOMS)
+      (DESC "Strip Near Relay")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH SORRY "There is a huge featureless wall there, remember?")
+      (SOUTH TO MIDDLE-OF-STRIP IF NO-MICROBE ELSE "Not a chance -- unless,
+of course, you don't mind walking into the gullet of a hungry microbe.")
+      (EAST PER RELAY-EXIT-F)
+      (WEST SORRY "Do you have a penchant for bottomless voids?")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STRIP)
+      (PSEUDO "VOID" VOID-PSEUDO)
+      (ACTION STRIP-NEAR-RELAY-F)>
+
+<ROUTINE STRIP-NEAR-RELAY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"North of here, the filament ends at a huge featureless wall, presumably the
+side of some microcomponent. ">
+		<COND (<IN? ,RELAY ,HERE>
+		       <TELL
+"To the east is a vacuu-sealed microrelay, sealed in transparent red
+plastic. You could probably see into the microrelay." CR>)
+		      (T
+		       <TELL
+"To the east are the shattered remains of some large object." CR>)>)
+	       (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT ,NO-MICROBE>>
+		<MOVE ,MICROBE ,HERE>
+		<SETG MICROBE-COUNTER 0>
+		<TELL
+"The microbe, writhing angrily, follows you northward." CR>)>>
+
+<ROUTINE RELAY-EXIT-F ()
+	 <COND (<IN? ,RELAY ,HERE>
+		<TELL
+"The relay is sealed. Although you cannot enter it, you could look into
+it." CR>
+		<RFALSE>)
+	       (T
+		<TELL
+"You would slice yourself to ribbons on the shattered relay." CR>
+		<RFALSE>)>>
+
+<OBJECT RELAY
+	(LOC STRIP-NEAR-RELAY)
+	(DESC "microrelay")
+	(SYNONYM RELAY MICRORELAY)
+	(ADJECTIVE MICRO)
+	(FLAGS NDESCBIT TRANSBIT)
+	(ACTION RELAY-F)>
+
+<ROUTINE RELAY-F ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"This is a vacuum-sealed microrelay, encased in red translucent plastic.">
+		<COND (<NOT ,COMPUTER-FIXED>
+		      <TELL
+" Within, you can see that some sort of speck or impurity has wedged itself
+into the contact point of the relay, preventing it from closing. The speck,
+presumably of microscopic size, resembles a blue boulder to you in your
+current size.">)>
+		<TELL CR>)>>
+
+<OBJECT SPECK
+	(LOC RELAY)
+	(DESC "speck")
+	(SYNONYM SPECK BOULDER IMPURITY)
+	(ADJECTIVE BLUE)
+	(FLAGS NDESCBIT)>
+
+^L
+
+;"Laserium"
+
+<OBJECT LASER
+	(LOC TOOL-ROOM)
+	(DESC "laser")
+	(FDESC
+"A small device, labelled \"Akmee Portabul Laazur\", is resting on one of
+the lower shelves.")
+	(SYNONYM DEVICE LASER UNIT DEPRESSION)
+	(ADJECTIVE PORTABLE ACME)
+	(SIZE 25)
+	(CAPACITY 5)
+	(FLAGS MUNGBIT TAKEBIT OPENBIT TRANSBIT CONTBIT)
+	(ACTION LASER-F)>
+
+<OBJECT LASER-DIAL
+	(LOC LASER)
+	(DESC "laser setting dial")
+	(SYNONYM DIAL)
+	(ADJECTIVE LASER SETTING)
+	(FLAGS MUNGBIT NDESCBIT)
+	(ACTION LASER-DIAL-F)>
+
+<ROUTINE LASER-DIAL-F ()
+	 <COND (<AND <VERB? SET>
+		     <EQUAL? ,PRSI ,INTNUM>>
+		<COND (<FSET? ,LASER-DIAL ,MUNGEDBIT>
+		       <TELL
+"The laser dial seems to have become damaged and will not turn." CR>)
+		      (<EQUAL? ,P-NUMBER ,LASER-SETTING>
+		       <TELL "That's where it's set now!" CR>)
+		      (<OR <G? ,P-NUMBER 6>
+			   <EQUAL? ,P-NUMBER 0>>
+		       <TELL "The dial can only be set from 1 to 6." CR>)
+		      (T
+		       <SETG LASER-SETTING ,P-NUMBER>
+		       <TELL "The dial is now set to " N ,P-NUMBER "." CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL "The dial is currently set to " N ,LASER-SETTING "." CR>)>>
+
+<OBJECT OLD-BATTERY
+	(LOC LASER)
+	(DESC "old battery")
+	(LDESC "There is a worn-out laser battery here.")
+	(SYNONYM BATTERY)
+	(ADJECTIVE LASER WORN-OUT OLD)
+	(SIZE 5)
+	(FLAGS VOWELBIT ACIDBIT TAKEBIT)>
+
+<OBJECT NEW-BATTERY
+	(LOC LAB-STORAGE)
+	(DESC "new battery")
+	(FDESC
+"The odds and ends on the shelves include a small round object, which closer
+inspection reveals to be a fresh laser battery.")
+	(SYNONYM OBJECT BATTERY)
+	(ADJECTIVE LASER SMALL ROUND FRESH NEW)
+	(SIZE 5)
+	(FLAGS ACIDBIT TAKEBIT)>
+
+<GLOBAL LASER-SETTING 5> ;"dial on laser -- 1 is red, 2 is orange, etc."
+
+<GLOBAL SPECK-HIT <>> ;"set to T first time you hit speck, takes two hits"
+
+<GLOBAL OLD-SHOTS 0> ;"number of shots left in the old-battery"
+
+<GLOBAL NEW-SHOTS 0> ;"number of shots left in the new-battery"
+
+<ROUTINE ZAP-COUNT () ;"checks to see if if have any shots left"
+	 <COND (<IN? ,OLD-BATTERY ,LASER>
+		<COND (<G? ,OLD-SHOTS 0>
+		       <SETG OLD-SHOTS <- ,OLD-SHOTS 1>>
+		       <RFALSE>)>
+		<RTRUE>)
+	       (<IN? ,NEW-BATTERY ,LASER>
+		<COND (<G? ,NEW-SHOTS 0>
+		       <SETG NEW-SHOTS <- ,NEW-SHOTS 1>>
+		       <RFALSE>)>
+		<RTRUE>)
+	       (T <RTRUE>)>>
+
+<ROUTINE LASER-F ("OPTIONAL" (RARG <>))
+	 <COND (<AND <VERB? SET>
+		     <EQUAL? ,PRSI ,INTNUM>>
+		<PERFORM ,V?SET ,LASER-DIAL ,PRSI>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The laser, though portable, is still fairly heavy. It has a long, slender
+barrel and a dial with six settings, labelled \"1\" through \"6.\" This dial
+is currently on setting " N ,LASER-SETTING ". There is a depression on the
+top of the laser which ">
+		<COND (<IN? ,OLD-BATTERY ,LASER>
+		       <TELL "contains an " D ,OLD-BATTERY>)
+		      (<IN? ,NEW-BATTERY ,LASER>
+		       <TELL "contains a " D ,NEW-BATTERY>)
+		      (T
+		       <TELL "is empty">)>
+		<TELL "." CR>)
+	       (<VERB? OPEN CLOSE>
+		<TELL
+"There doesn't seem to be any way to do that to this laser." CR>)
+	       (<VERB? PUT>
+		<COND (<EQUAL? ,PRSO ,OLD-BATTERY>
+		       <COND (<IN? ,NEW-BATTERY ,LASER>
+			      <ALREADY-BATTERY>)
+			     (T
+			      <MOVE ,OLD-BATTERY ,LASER>
+			      <BATTERY-NOW>)>)
+		      (<EQUAL? ,PRSO ,NEW-BATTERY>
+		       <COND (<IN? ,OLD-BATTERY ,LASER>
+			      <ALREADY-BATTERY>)
+			     (T
+			      <MOVE ,NEW-BATTERY ,LASER>
+			      <BATTERY-NOW>)>)
+		      (<NOT <EQUAL? ,LASER ,PRSO>>
+		       <TELL
+"The " D ,PRSO " doesn't fit the depression." CR>)>)
+	       (<VERB? ZAP>
+		<COND (<NOT <IN? ,LASER ,ADVENTURER>>
+		       <NOT-HOLDING>
+		       <RTRUE>)>
+		<COND (<NOT ,LASER-SCORE-FLAG>
+		       <SETG LASER-SCORE-FLAG T>
+		       <SETG SCORE <+ ,SCORE 2>>)>
+		<COND (<OR <EQUAL? ,PRSI ,LASER>
+				  <EQUAL? ,PRSI ,LASER-DIAL>
+				  <AND <EQUAL? ,PRSI ,OLD-BATTERY>
+				       <IN? ,OLD-BATTERY ,LASER>>
+				  <AND <EQUAL? ,PRSI ,NEW-BATTERY>
+				       <IN? ,NEW-BATTERY ,LASER>>>
+			      <TELL
+"Sorry, the laser doesn't have a rubber barrel." CR>)
+		      (<ZAP-COUNT>
+		       <TELL "Click." CR>)
+		      (<FSET? ,LASER ,MUNGEDBIT>
+		       <TELL
+"The laser sparks a few times, whines, and then stops." CR>)
+		      (T
+		       <ENABLE <QUEUE I-WARMTH -1>>
+		       <SETG LASER-JUST-SHOT T>
+		       <COND (<EQUAL? ,PRSI ,SPECK>
+			      <SHOOT-SPECK>
+			      <RTRUE>)
+			     (<EQUAL? ,PRSI ,MICROBE>
+			      <SHOOT-MICROBE>
+			      <RTRUE>)
+			     (<OR <FSET? ,PRSI ,WORNBIT>
+				  <EQUAL? ,PRSI ,ME ,HANDS ,ADVENTURER>>
+			      <TELL
+"Ouch! You managed to burn yourself nicely." CR>)
+			     (T
+			      <TELL "The laser emits a narrow ">
+			      <BEAM-COLOR>
+			      <TELL " beam of light">
+			      <COND (,PRSI
+				     <COND (<OR <EQUAL? ,PRSI
+                                                        ,TOWEL
+						        ,BROCHURE
+						        ,COMBINATION-PAPER>
+						<EQUAL? ,PRSI
+							,PRINT-OUT
+							,LAB-UNIFORM
+							,PATROL-UNIFORM>
+						<EQUAL? ,PRSI
+							,ID-CARD
+							,KITCHEN-CARD
+							,MINI-CARD>
+						<EQUAL? ,PRSI
+							,TELEPORTATION-CARD
+							,SHUTTLE-CARD
+							,UPPER-ELEVATOR-CARD>
+						<EQUAL? ,PRSI
+							,LOWER-ELEVATOR-CARD
+							,DIARY>>
+					    <REMOVE ,PRSI>
+					    <COND (<EQUAL? ,PRSI
+							   ,SPOUT-PLACED>
+						   <SETG SPOUT-PLACED
+							 ,GROUND>)>
+					    <TELL
+" which strikes the " D ,PRSI ". The " D ,PRSI " bursts into flame,
+blinding you momentarily, and is quickly consumed." CR>)
+					   (<AND <EQUAL? ,PRSI ,FLOYD>
+						 <FSET? ,FLOYD ,RLANDBIT>>
+					    <TELL
+" which strikes Floyd. \"Yow!\" yells Floyd. He jumps to the other end
+of the room and eyes you warily." CR>)
+					   (<AND <EQUAL? ,PRSI ,PSEUDO-OBJECT>
+						<EQUAL? ,HERE ,PROJCON-OFFICE>>
+					    <TELL
+" which strikes the " D ,PRSI ". However, this doesn't seem to affect it." CR>)
+					   (T
+					    <TELL
+" which strikes the " D ,PRSI ". The " D ,PRSI " grows a bit warm, but
+nothing else happens." CR>)>)
+				    (T
+				     <TELL "." CR>)>)>)>)
+	       (<VERB? DROP>
+		<DISABLE <INT I-WARMTH>>
+		<COND (<AND <IN? ,MICROBE ,HERE>
+			    <G? ,WARMTH-FLAG 7>>
+		       <REMOVE ,LASER>
+		       <TELL
+"The microbe rushes to envelop the laser. You hear a faint burp as the
+monster begins to look around for other morsels..." CR>)
+		      (T
+		       <RFALSE>)>)>>
+
+<ROUTINE ALREADY-BATTERY ()
+	 <TELL "There's already a battery there." CR>>
+
+<ROUTINE BATTERY-NOW ()
+	 <TELL "The battery is now resting in the depression, attached
+to the laser." CR>>
+
+;<ROUTINE LASER-CONTENTS ()
+	  <TELL "The laser ">
+	  <COND (<IN? ,OLD-BATTERY ,LASER>
+		 <TELL "contains an " D ,OLD-BATTERY>)
+		(<IN? ,NEW-BATTERY ,LASER>
+		 <TELL "contains a " D ,NEW-BATTERY>)
+		(T
+		 <TELL "is empty">)>
+	  <TELL "." CR>>
+
+<GLOBAL WARMTH-FLAG 0>
+
+<GLOBAL LASER-JUST-SHOT <>>
+
+<ROUTINE I-WARMTH ()
+	 <COND (,LASER-JUST-SHOT
+		<SETG LASER-JUST-SHOT <>>
+		<SETG WARMTH-FLAG <+ ,WARMTH-FLAG 1>>
+		<COND (<EQUAL? ,WARMTH-FLAG 3>
+		       <LASER-FEELS "slightly warm now">)
+		      (<EQUAL? ,WARMTH-FLAG 6>
+		       <LASER-FEELS "somewhat warm now">)
+		      (<EQUAL? ,WARMTH-FLAG 9>
+		       <LASER-FEELS "very warm now">)
+		      (<EQUAL? ,WARMTH-FLAG 12>
+		       <LASER-FEELS "quite hot">)>)
+	       (T
+		<COND (<EQUAL? ,WARMTH-FLAG 0>
+		       <DISABLE <INT I-WARMTH>>)
+		      (T
+		       <SETG WARMTH-FLAG <- ,WARMTH-FLAG 1>>
+		       <COND (<EQUAL? ,WARMTH-FLAG 12>
+			      <LASER-COOLS "quite hot">)
+			     (<EQUAL? ,WARMTH-FLAG 9>
+			      <LASER-COOLS "very warm">)
+			     (<EQUAL? ,WARMTH-FLAG 6>
+			      <LASER-COOLS "somewhat warm">)
+			     (<EQUAL? ,WARMTH-FLAG 3>
+			      <LASER-COOLS "slightly warm">)>)>)>>
+
+<ROUTINE LASER-FEELS (STRING)
+	 <TELL CR
+"The laser feels " .STRING
+", but that doesn't seem to affect its performance at all." CR>>
+
+<ROUTINE LASER-COOLS (STRING)
+	 <TELL CR
+"The laser has cooled, but it still feels " .STRING "." CR>>
+
+<GLOBAL LASER-SCORE-FLAG <>>
+
+<GLOBAL MARKSMANSHIP-COUNTER 0>
+
+<ROUTINE BEAM-COLOR ()
+	 <COND (<EQUAL? ,LASER-SETTING 1>
+	        <TELL "red">)
+               (<EQUAL? ,LASER-SETTING 2>
+	        <TELL "orange">)
+	       (<EQUAL? ,LASER-SETTING 3>
+		<TELL "yellow">)
+	       (<EQUAL? ,LASER-SETTING 4>
+	        <TELL "green">)
+	       (<EQUAL? ,LASER-SETTING 5>
+		<TELL "blue">)
+	       (<EQUAL? ,LASER-SETTING 6>
+		<TELL "violet">)>>
+
+<ROUTINE SHOOT-SPECK ()
+	<COND (<EQUAL? ,LASER-SETTING 1>
+	       <COND (<PROB ,MARKSMANSHIP-COUNTER>
+		      <COND (,SPECK-HIT
+			     <SETG COMPUTER-FIXED T>
+			     <FSET ,CRYO-ELEVATOR-DOOR ,OPENBIT>
+			     <FCLEAR ,PROJCON-OFFICE ,TOUCHBIT>
+			     <FCLEAR ,CRYO-ELEVATOR-DOOR ,INVISIBLE>
+			     <ENABLE <QUEUE I-FRY 200>>
+			     <SETG SCORE <+ ,SCORE 8>>
+			     <REMOVE ,SPECK>
+			     <TELL
+"The beam hits the speck again! This time, it vaporizes into a fine cloud
+of ash. The relay slowly begins to close, and a voice whispers in your ear
+\"Sector 384 will activate in 200 millichrons. Proceed to exit station.\"" CR>)
+			    (T
+			     <SETG SPECK-HIT T>
+			     <TELL
+"The speck is hit by the beam! It sizzles a little,
+but isn't destroyed yet." CR>)>)
+		     (T
+		      <SETG MARKSMANSHIP-COUNTER <+ ,MARKSMANSHIP-COUNTER 12>>
+		      <TELL <PICK-ONE ,BEAM-MISSES> CR>)>)
+	      (T
+	       <REMOVE ,RELAY>
+	       <TELL "A thin ">
+	       <BEAM-COLOR>
+	       <TELL
+" beam shoots from the laser and slices through the red plastic covering of
+the relay like a hot knife through butter. Air rushes into the relay, which
+collapses into a heap of plastic shards." CR>)>>
+
+<CONSTANT BEAM-MISSES
+	<PLTABLE
+	 "The beam just misses the speck!"
+	 "A near miss!"
+	 "A good shot, but just a little wide of the target.">>
+
+<ROUTINE I-FRY ()
+	 <COND (<EQUAL? ,HERE ,MIDDLE-OF-STRIP
+			      ,STRIP-NEAR-STATION
+			      ,STRIP-NEAR-RELAY>
+		<CRLF>
+		<JIGS-UP
+"|
+With a furious storm of electrical mayhem, Sector 384 comes to life. A
+few microvolts course through the silicon strip on which you stand.
+Unfortunately, at your current size, this is enough to barbecue you.">)>>
+
+^L
+
+;"The microbe battle"
+
+<OBJECT MICROBE
+	(DESC "microbe")
+	(LDESC 
+"A hungry microbe blocks your way, its cilia waving and its pseudopods
+towering over you.")
+	(SYNONYM MICROBE BUG MONSTER)
+	(ADJECTIVE HUNGRY)
+	(FLAGS ACTORBIT)
+	(ACTION MICROBE-F)>
+
+<ROUTINE MICROBE-F ()
+	 <COND (<OR <VERB? HELLO TALK>
+		    <EQUAL? ,MICROBE ,WINNER>>
+		<TELL
+"You don't seem to have bridged the vast communication gulf
+between yourself and the microbe." CR>
+		<SETG P-CONT <>>
+		<SETG QUOTE-FLAG <>>
+		<RFATAL>)
+	       (<AND <VERB? THROW GIVE>
+		     <EQUAL? ,PRSI ,MICROBE>>
+		<COND (<AND <EQUAL? ,PRSO ,LASER>
+			    <G? ,WARMTH-FLAG 7>>
+		       <REMOVE ,LASER>
+		       <DISABLE <INT I-WARMTH>>
+		       <COND (<G? ,WARMTH-FLAG 10>
+			      <DISABLE <INT I-MICROBE>>
+			      <TELL
+"The microbe gobbles up the laser and turns toward you. A moment later,
+it begins writhing in pain. Apparently, eating the hot laser was a bit
+too much for it. With a bellow of agony, it rolls off the edge of
+the strip. (Whew!)" CR>
+		             <REMOVE ,LASER>
+		             <REMOVE ,MICROBE>
+		             <SETG NO-MICROBE T>
+			     <SETG MICROBE-DISPATCHED T>)
+			    (T
+			      <TELL
+"The microbe greedily devours the laser, and turns toward you." CR>)>)
+		      (T
+		       <TELL
+"The microbe ignores the " D ,PRSO ", but does attempt to digest
+your arm." CR>)>)>>
+
+<ROUTINE I-MICROBE ()
+	 <COND (<EQUAL? ,MICROBE-HIT T>
+	        <TELL CR <PICK-ONE ,WINNER-ATTACKED>>
+	        <COND (<AND <G? ,WARMTH-FLAG 13>
+			    <IN? ,LASER ,ADVENTURER>>
+		       <JIGS-UP
+" The microbe, whipped into a rabid frenzy by the waves of heat from the
+pulsing laser, literally lunges at it. You jump back and, losing your
+balance, fall over the edge of the strip. The microbe, writhing madly, hurls
+itself after its prey. You and the microbe both plunge into the void below.">)
+		      (<AND <G? ,WARMTH-FLAG 7>
+			    <IN? ,LASER ,ADVENTURER>>
+		       <TELL 
+" Another pseudopod, perhaps attracted by the warmth of the laser, tries to
+envelop the weapon. You snatch it away from the monster's grasp.">)>
+		<CRLF>)
+	       (T
+		<COND (<EQUAL? ,MICROBE-COUNTER 2>
+		       <JIGS-UP
+"|
+The microbe wraps several pseudopods around you and shoves you into its
+mucus-covered gullet. Digestive juices begin their work. The experience
+is not pleasant.">)
+		      (T
+		       <SETG MICROBE-COUNTER <+ ,MICROBE-COUNTER 1>>
+		       <TELL CR <PICK-ONE ,MONSTER-CLOSES> CR>)>)>
+	 <SETG MICROBE-HIT <>>>
+
+<CONSTANT WINNER-ATTACKED
+	<PLTABLE
+	 "A pseudopod extends toward you. You jump back just in time
+to avoid being engulfed."
+	 "A slimy pseudopod brushes against your shoulder. You twist
+away in the nick of time."
+	 "A pseudopod shoots out toward your head! Ducking quickly,
+you save your life."
+         "Two protoplasm-filled blobs sneak toward you from the left.
+You jump to the side and almost fall off the strip into the void below!">>
+
+<CONSTANT MONSTER-CLOSES
+	<PLTABLE
+	 "The microbe slithers closer. The cilia around its gullet glisten
+with mucus, giving the impression that the microbe is salivating."
+         "The microbe flows toward you. It towers above you, its cilia
+waving madly in your face."
+	 "The monster wriggles nearer. It is now so close that you can make
+out details in the protoplasm beneath its translucent skin.">>
+
+<GLOBAL MICROBE-HIT <>>
+
+<GLOBAL MICROBE-COUNTER 0>
+
+<ROUTINE SHOOT-MICROBE ()
+	 <TELL "The laser beam strikes the microbe">
+	 <COND (<EQUAL? ,LASER-SETTING 1>
+		<TELL ", but passes harmlessly through its red skin." CR>)
+	       (T
+		<SETG MICROBE-HIT T>
+		<TELL ". ">
+		<TELL <PICK-ONE ,MICROBE-STRIKES> CR>)>>
+
+<CONSTANT MICROBE-STRIKES
+	<PLTABLE
+	 "The microbe's outer membrane sizzles a bit, and some protoplasm
+oozes out. The microbe recoils momentarily, but quickly recovers."
+	 "The beam slices through the microbe's skin! A tremendous shudder
+passes through the microbe, but the wound quickly seals itself."
+         "The monster rears back for a moment, but almost as soon as the
+beam goes off, it advances again.">> 
+
+<OBJECT STRIP
+	(LOC LOCAL-GLOBALS)
+	(DESC "silicon strip")
+	(SYNONYM STRIP SIDE EDGE)
+	(ADJECTIVE SILICON)
+	(FLAGS NDESCBIT)
+	(ACTION STRIP-F)>
+
+<ROUTINE STRIP-F ()
+	 <COND (<VERB? THROW-OFF>
+		<COND (<AND <EQUAL? ,PRSO ,LASER>
+			    <G? ,WARMTH-FLAG 7>>
+		       <DISABLE <INT I-WARMTH>>
+		       <DISABLE <INT I-MICROBE>>
+		       <TELL
+"As the laser flies over the edge of the strip, the hungry microbe lunges after
+it. Both the laser and the microbe plummet into the void. (Whew!)" CR>
+		       <REMOVE ,LASER>
+		       <REMOVE ,MICROBE>
+		       <SETG NO-MICROBE T>
+		       <SETG MICROBE-DISPATCHED T>)
+		      (T
+		       <COND (<EQUAL? ,PRSO ,LASER>
+			      <DISABLE <INT I-WARMTH>>)>
+		       <REMOVE ,PRSO>
+		       <TELL
+"The " D ,PRSO " flies over the edge of the strip and disappears into the
+void." CR>)>)>>
+
+^L
+
+;"Endgame -- The mutant chase scene"
+
+<OBJECT RAT-ANT
+	(LOC BIO-LAB)
+	(DESC "rat-like, ant-like man-sized monster")
+	(LDESC "A ferocious feral creature, with a hairy shelled body and
+a whip-like tail snaps its enormous mandibles at you.")
+	(SYNONYM MONSTER MUTANT RAT-ANT)
+	(ADJECTIVE RAT-LIKE ANT-LIKE MAN-SIZED)
+	(FLAGS ACTORBIT)>
+
+<OBJECT TROLL
+	(LOC BIO-LAB)
+	(DESC "hairy growling biped")
+	(LDESC "Rushing toward you is an ugly, deformed humanoid, bellowing
+in a guttural tongue. It brandishes a piece of lab equipment shaped
+somewhat like a battle axe.")
+	(SYNONYM TROLL BIPED MUTANT MONSTER)
+	(ADJECTIVE HAIRY GROWLING UGLY DEFORMED)
+	(FLAGS ACTORBIT)>
+
+<OBJECT GRUE
+	(LOC BIO-LAB)
+	(DESC "lurking fanged creature")
+	(LDESC "Lurking nearby is a vicious-looking creature with slavering
+fangs. Squinting in the light, it eyes you hungrily.")
+	(SYNONYM GRUE CREATURE MUTANT MONSTER)
+	(ADJECTIVE LURKING SINISTER FANGED VICIOUS HUNGRY SILENT)
+	(FLAGS ACTORBIT)
+	(ACTION GRUE-F)>
+
+<ROUTINE GRUE-F ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <NOT <IN? ,GRUE ,HERE>>>
+		<TELL
+"Grues are vicious, carnivorous beasts first introduced to Earth by a
+visiting alien spaceship during the late 22nd century. Grues spread throughout
+the galaxy alongside man. Although now extinct on all civilized planets,
+they still exist in some backwater corners of the galaxy. Their favorite diet
+is Ensigns Seventh Class, but their insatiable appetite is tempered by their
+fear of light." CR>)>>
+
+<OBJECT TRIFFID
+	(LOC BIO-LAB)
+	(DESC "mobile man-eating plant")
+	(LDESC "A giant plant, teeming with poisonous tentacles, is shuffling
+toward you on three leg-like stalks.")
+	(SYNONYM TRIFFID PLANT MUTANT MONSTER)
+	(ADJECTIVE MOBILE MAN-EATING GIANT)
+	(FLAGS ACTORBIT)>
\ No newline at end of file
diff --git a/diary.zil b/diary.zil
new file mode 100644
index 0000000..90213a7
--- /dev/null
+++ b/diary.zil
@@ -0,0 +1,97 @@
+;<CONSTANT DIARY-ENTRIES
+	<PTABLE
+	 "BUG #??"
+	 "11,344 July 22 -- Transferred from S.P.S. Trilobyte to S.P.S.
+Feinstein for the third of my four tours of duty. I'm truly going to miss
+my commander, Ensign First Class Lim. He was a friend in every respect --
+someone you could always go to with a problem, someone I could really look
+up to. We would sometimes talk long into the night. He would tell me
+about his home world of Ash-Down V, and I would talk about growing up on
+Gallium. I'd get pretty homesick sometimes, even though Gallium is not
+exactly one  of the garden spots of the universe. I just hope my new
+commander is half as nice as Lim.||
+This new ship seems pretty swell. I'm in a cabin with only five
+other ensigns, and I've got one-and-a-half cubic meters of locker space!"
+	 "11,344 July 23 -- Met my new commander today -- Ensign Cadet First
+Class Blather. He seems like a real krip. (Excuse the language, Diary.) But
+that might just be a bad first impression."
+	 "11,344 July 25 -- One of my cabin mates, Gorund, organized a Double
+Fanucci tournament among all the Ensigns Seventh Class. We were playing
+during the 150-millichron rec period after lunch, and Blather burst in and
+confiscated the sets and told us that playing war games was a violation of
+patrol regulations. But Ensign Whirp, who's studying to be a patrol lawyer,
+said she couldn't find anything about it in the regulations anywhere.||
+BLATHER IS REALLY A TOTAL MEGAKRIP!!!"
+	 "11,344 July 28 -- I went to see the personnel officer today to find
+out what my new duties would involve. He showed me a list of all the open
+assignments, and I decided to put in for the grotch-feeding detail. We picked
+up a few grotches when we were on Crassus, and we're taking them to the
+Zoology Labs on Tremain so that maybe they can figure out how an animal can
+produce 47 times its weight in trot every day."
+	 "11,344 Bozbar 7 -- Everyone from the P.O. to the ship's cook has
+approved my application for the grotch-feeding detail -- except Blather. I
+have an appointment to see him tomorrow. Wish me luck."
+	 "11,344 Bozbar 8 -- TROT!! Blather rejected my application! And to
+make it worse, he said that since I seem to love grotches so much, he's
+assigning me to clean out their cages. TROT AND DOUBLE TROT!!"
+	 "11,344 Bozbar 26 -- I haven't had time to keep my diary lately,
+because Blather's been watching us all like a Teleran bird. Also, last
+week he found the diary during a surprise inspection, gave me 200 demerits,
+and told me that diaries were against regulations. But I'll be frobbed if
+I'm going to stop. I've started hiding the diary inside my official documents
+file, and I keep that hidden in the air duct. From now on I'll have to sneak
+away somewhere to use it."
+	 "11,344 Bozbar 27 -- Greeting from the Deck Four Supply Closet of the
+S.P.S. Feinstein. I hope I'm not tempting fate, sneaking around with my diary
+this way. I used to be as much of a disbeliever in destiny as the next guy,
+but not anymore. Not since the time my mom warned my dad not to tempt fate
+by walking across the astral plains after dark, when the computerized analysis
+showed a 43% chance of resulting injury. My dad, stubborn as always, just
+laughed at her and went right on taking his nightly strolls. THE VERY NEXT
+SUMMER HE WENT WALKING AT NIGHT ON THE PLAINS AND STUMBLED OVER A CRATER AND
+BRUISED HIS KNEE! Gosh!"
+	 "11,344 Bozbar 28 -- We entered planetary orbit today, a non-human
+world call Accardi-3 (although the natives call it something like
+Blow'k-bibben-gordo). They're not officially part of the union. The rumors
+say that we're picking up a special ambassador to take back to Tremain for
+negotiations on joining the union. Tomorrow we have to put on our dress
+uniforms for some special welcoming ceremony."
+	 "11,344 August 2 -- I caught a glimpse of the alien ambassador during
+the welcoming ceremonies yesterday. He looks like a cross between a tree
+trunk and a melting ice cream cone. But at least the ceremony got me out of
+cleaning the grotch cages today."
+	 "11,344 August 7 -- Went to the mandatory Patrol Informational
+Tri-vision Triple Feature last night. We saw 'Treatment For Space Lice
+Infestation,' 'Shorleave Shirley: How to Guard Against Contracting Alien
+Diseases,' and 'The Oxygen Tank: Your Galvanized Buddy in the Vacuum.'
+Blather confined half the ensigns to quarters for hooting during the second
+feature. (The other half had fallen asleep during the first feature.)"
+	 "11,344 August 24 -- TROT THAT TROTTING KRIP!! I applied for
+astrophysics training for the next quarter, but Blather says my work for the
+special assignment task force hasn't been good enough, so not only did he
+reject my astrophysics application, but he says I'll have to take remedial
+scrubbing next quarter. WHAT A TROTTING KRIP!||
+You know, for the first time I'm beginning to have doubts about
+whether I'm really cut out for the patrol. When I was growing up on Gallium,
+it was always taken for granted that I would join up when I came of age. My
+family has served in the patrol for five generations. In fact, my
+great-great-grandfather was a high admiral and one of the founding fathers of
+the Patrol! But I seem to be permanently stuck at Ensign 7th, and Blather is
+making my life miserable..."
+	 "11,344 Septem 4 -- We left hyperspace today at about 7600; weren't
+scheduled to for about another two weeks. The grapevine says we have special
+orders to investigate a planetary system here. Apparently, some of the
+archaeologists back on Varshon think it might have been part of the Second
+Union. I can't imagine why anyone would settle out here in this remote
+corner of the galaxy."
+	 "11,344 Septem 5 -- That krip has done it again! I missed two little
+pellets of trot when I was when I was cleaning out the grotch cages yesterday,
+and Blather gave me 100 demerits and assigned me two extra shifts of deck
+scrubbing -- including Deck Nine, the filthiest deck on the ship! I'm
+considering asking for a transfer -- or if things get worse, I might even
+abandon ship!">>
+	  
+ 
+   
+ 
+ 
diff --git a/globals.zabstr b/globals.zabstr
new file mode 100644
index 0000000..0b51ece
--- /dev/null
+++ b/globals.zabstr
@@ -0,0 +1,519 @@
+
+<CONSTANT S-TEXT 0> 
+<CONSTANT S-WINDOW 1> 
+<CONSTANT H-NORMAL 0> 
+<CONSTANT H-INVERSE 1> 
+<CONSTANT H-BOLD 2> 
+<CONSTANT H-ITALIC 4> 
+<CONSTANT D-SCREEN-ON 1> 
+<CONSTANT D-SCREEN-OFF -1> 
+<CONSTANT D-PRINTER-ON 2> 
+<CONSTANT D-PRINTER-OFF -2> 
+<CONSTANT D-TABLE-ON 3> 
+<CONSTANT D-TABLE-OFF -3> 
+<CONSTANT D-RECORD-ON 4> 
+<CONSTANT D-RECORD-OFF -4> 
+<CONSTANT SL-TABLE:TABLE <ITABLE NONE 80>> 
+<GLOBAL OHERE:OBJECT <> %<> WORD> 
+<GLOBAL OLD-LEN:NUMBER 0 %<> WORD> 
+<DEFINE-ROUTINE INIT-STATUS-LINE> 
+<DEFINE-ROUTINE UPDATE-STATUS-LINE> 
+<DEFINE-ROUTINE PRINT-SPACES> 
+<CONSTANT BLANKS-LEN 10> 
+<CONSTANT BLANKS <ITABLE ,BLANKS-LEN (BYTE) !\ >> 
+<DEFINE-ROUTINE SAY-HERE> 
+<CONSTANT DEFAULT-MOVE 20> 
+<GLOBAL LOAD-ALLOWED 100 %<> WORD> 
+<OBJECT GLOBAL-OBJECTS (SYNONYM ZZMGCK) (DESC "it") (FLAGS INVISIBLE TOUCHBIT
+SURFACEBIT TRYTAKEBIT MUNGBIT MUNGEDBIT SCRAMBLEDBIT WORNBIT OPENBIT SEARCHBIT
+TRANSBIT WEARBIT READBIT ACIDBIT ACTIVEBIT)> 
+<OBJECT LOCAL-GLOBALS (LOC GLOBAL-OBJECTS) (SYNONYM ZZMGCK) (VALUE 0) (CONTFCN
+0) (DESCFCN 0) (SIZE 0)> 
+<OBJECT ROOMS (IN TO ROOMS) (DESC "it")> 
+<OBJECT INTNUM (LOC GLOBAL-OBJECTS) (SYNONYM INTNUM) (DESC "number")> 
+<OBJECT PSEUDO-OBJECT (DESC "pseudoxyz") (ACTION GO)> 
+<OBJECT IT (LOC GLOBAL-OBJECTS) (SYNONYM IT THAT THIS HIM) (DESC
+"random object") (FLAGS NDESCBIT)> 
+<OBJECT STAIRS (LOC LOCAL-GLOBALS) (SYNONYM STAIRS STEPS GANGWAY STAIRWAY) (
+DESC "stairway") (FLAGS NDESCBIT CLIMBBIT)> 
+<OBJECT GROUND (LOC GLOBAL-OBJECTS) (SYNONYM GROUND EARTH FLOOR DECK) (DESC
+"floor") (FLAGS NDESCBIT) (ACTION GROUND-F)> 
+<DEFINE-ROUTINE GROUND-F> 
+<OBJECT WINDOW (LOC LOCAL-GLOBALS) (DESC "window") (SYNONYM WINDOW PORT
+VIEWPORT) (ADJECTIVE VIEW) (FLAGS NDESCBIT) (ACTION WINDOW-F)> 
+<DEFINE-ROUTINE WINDOW-F> 
+<OBJECT CLIFF (LOC LOCAL-GLOBALS) (DESC "cliff") (SYNONYM CLIFF) (FLAGS
+NDESCBIT) (ACTION CLIFF-F)> 
+<DEFINE-ROUTINE CLIFF-F> 
+<OBJECT OCEAN (LOC LOCAL-GLOBALS) (DESC "ocean") (SYNONYM OCEAN) (ADJECTIVE
+ENDLESS) (FLAGS VOWELBIT NDESCBIT) (ACTION OCEAN-F)> 
+<DEFINE-ROUTINE OCEAN-F> 
+<OBJECT TABLES (LOC LOCAL-GLOBALS) (DESC "table") (SYNONYM TABLE TABLES) (FLAGS
+NDESCBIT) (ADJECTIVE ROUND CONFERENCE SMALL WIDE LONG) (ACTION TABLES-F)> 
+<DEFINE-ROUTINE TABLES-F> 
+<OBJECT SHELVES (LOC LOCAL-GLOBALS) (SYNONYM SHELF SHELVES) (DESC "shelf") (
+FLAGS NDESCBIT) (ACTION SHELVES-F)> 
+<DEFINE-ROUTINE SHELVES-F> 
+<OBJECT LIGHTS (LOC LOCAL-GLOBALS) (SYNONYM LIGHT LIGHTS) (ADJECTIVE RED
+DAZZLING GLOWING BLINKING WARNING BRIGHT COLORED FLASHING) (DESC "light") (
+FLAGS NDESCBIT) (ACTION LIGHTS-F)> 
+<DEFINE-ROUTINE LIGHTS-F> 
+<OBJECT GLOBAL-DOORWAY (LOC GLOBAL-OBJECTS) (SYNONYM DOORWAY PORTAL OPENING) (
+ADJECTIVE NORTH SOUTH EAST WEST NE SE NW SW) (DESC "doorway") (FLAGS NDESCBIT)
+(ACTION GLOBAL-DOORWAY-F)> 
+<DEFINE-ROUTINE GLOBAL-DOORWAY-F> 
+<DEFINE-ROUTINE USE-DIRECTIONS> 
+<DEFINE-ROUTINE NO-CLOSE> 
+<OBJECT CONTROLS (LOC LOCAL-GLOBALS) (SYNONYM CONTROL PANEL DIALS GAUGES) (
+ADJECTIVE CONTROL COMPLEX) (DESC "set of controls") (FLAGS NDESCBIT) (ACTION
+CONTROLS-F)> 
+<DEFINE-ROUTINE CONTROLS-F> 
+<OBJECT GLOBAL-GAMES (LOC GLOBAL-OBJECTS) (DESC "game") (SYNONYM BOCCI CHESS
+HIDER-AND-SEEKER HUCKA-BUCKA SEEKER BEANSTALK) (ADJECTIVE HIDER HUCKA BUCKA) (
+FLAGS NDESCBIT) (ACTION GLOBAL-GAMES-F)> 
+<DEFINE-ROUTINE GLOBAL-GAMES-F> 
+<OBJECT HANDS (LOC GLOBAL-OBJECTS) (SYNONYM PAIR HANDS) (ADJECTIVE BARE) (DESC
+"pair of hands") (FLAGS NDESCBIT) (ACTION HANDS-F)> 
+<DEFINE-ROUTINE HANDS-F> 
+<OBJECT SLEEP (LOC GLOBAL-OBJECTS) (DESC "sacred act of sleeping") (SYNONYM
+SLEEP) (FLAGS NDESCBIT) (ACTION SLEEP-F)> 
+<DEFINE-ROUTINE SLEEP-F> 
+<OBJECT ADVENTURER (LOC DECK-NINE) (SYNONYM ADMIRAL SMITHE SPAM EGGS) (
+ADJECTIVE ORANGE OPENER) (DESC "player") (FLAGS NDESCBIT INVISIBLE)> 
+<OBJECT ME (LOC GLOBAL-OBJECTS) (SYNONYM ME MYSELF SELF WE) (DESC "you") (FLAGS
+ACTORBIT) (ACTION CRETIN-F)> 
+<DEFINE-ROUTINE CRETIN-F> 
+<DEFINE-ROUTINE DDESC> 
+<DEFINE-ROUTINE ALREADY-OPEN> 
+<DEFINE-ROUTINE IS-CLOSED> 
+<DEFINE-ROUTINE V-THROUGH> 
+<DEFINE-ROUTINE FIND-IN> 
+<OBJECT NOT-HERE-OBJECT (DESC "such thing") (ACTION NOT-HERE-OBJECT-F)> 
+<DEFINE-ROUTINE NOT-HERE-OBJECT-F> 
+<DEFINE-ROUTINE FIND-NOT-HERE> 
+<DEFINE-ROUTINE NOT-HERE-PRINT> 
+^L 
+<ROOM BRIG (LOC ROOMS) (DESC "Brig") (LDESC
+"You are in the Feinstein's brig. Graffiti cover
+the walls. The cell door to the south is locked.") (C-MOVE <TABLE 0 0 0 0 0 0 0
+0 0 0 0 0>) (SOUTH SORRY "The cell door is locked.") (FLAGS RLANDBIT ONBIT) (
+PSEUDO "GRAFFITI" GRAFFITI-PSEUDO "DOOR" DOOR-PSEUDO)> 
+<ROOM DECK-NINE (LOC ROOMS) (DESC "Deck Nine") (C-MOVE <TABLE 0 0 0 0 0 15 0 0
+0 15 0 0>) (EAST TO REACTOR-LOBBY IF CORRIDOR-DOOR IS OPEN) (WEST TO ESCAPE-POD
+IF POD-DOOR IS OPEN) (IN TO ESCAPE-POD IF POD-DOOR IS OPEN) (UP TO GANGWAY IF
+GANGWAY-DOOR IS OPEN) (FLAGS RLANDBIT ONBIT) (GLOBAL POD-DOOR CORRIDOR-DOOR
+GANGWAY-DOOR STAIRS GLOBAL-POD) (PSEUDO "TRANSL" TRANSLATOR-PSEUDO "SLIME"
+SLIME-PSEUDO) (ACTION DECK-NINE-F)> 
+<DEFINE-ROUTINE DECK-NINE-F> 
+<OBJECT SCRUB-BRUSH (LOC ADVENTURER) (DESC
+"Patrol-issue self-contained multi-purpose scrub brush") (SYNONYM BRUSH
+SCRUBBRUSH SCRUBRUSH) (ADJECTIVE SCRUB PATROL SELF-CONTAINED MULTI
+MULTI-PURPOSE PURPOSE) (FLAGS TAKEBIT) (SIZE 10)> 
+<OBJECT CHRONOMETER (LOC ADVENTURER) (DESC "chronometer") (SYNONYM CHRONOMETER
+WRISTWATCH WATCH) (ADJECTIVE WRIST) (SIZE 10) (FLAGS MUNGBIT TAKEBIT WEARBIT
+WORNBIT) (ACTION CHRONOMETER-F)> 
+<DEFINE-ROUTINE CHRONOMETER-F> 
+<DEFINE-ROUTINE TELL-TIME> 
+<GLOBAL MUNGED-TIME 0 %<> WORD> 
+<OBJECT ID-CARD (LOC PATROL-UNIFORM) (DESC "ID card") (SYNONYM CARD CARDS) (
+ADJECTIVE PATROL ID IDENTIFICATION) (FLAGS VOWELBIT TAKEBIT READBIT) (SIZE 3) (
+TEXT "\"STELLAR PATROL|
+Special Assignment Task Force|
+ID Number:  6172-531-541\"")> 
+<OBJECT PATROL-UNIFORM (LOC ADVENTURER) (DESC "Patrol uniform") (LDESC
+"A slightly wrinkled Patrol uniform is lying here.") (SYNONYM UNIFORM POCKET
+SUIT) (ADJECTIVE PATROL WRINKLED) (FLAGS TAKEBIT WORNBIT WEARBIT CONTBIT
+SEARCHBIT OPENBIT) (CAPACITY 10) (ACTION PATROL-UNIFORM-F)> 
+<DEFINE-ROUTINE PATROL-UNIFORM-F> 
+<OBJECT DIARY (LOC ADVENTURER) (DESC "diary") (SYNONYM DIARY MACHINE RECORDER)
+(ADJECTIVE BATTERED OLD) (FLAGS ACIDBIT TAKEBIT READBIT TRANSBIT) (CAPACITY 0)
+(SIZE 3) (ACTION DIARY-F)> 
+<GLOBAL DIARY-CTR 0 %<> WORD> 
+<DEFINE-ROUTINE DIARY-F> 
+<OBJECT DIARY-BUTTON (LOC DIARY) (DESC "little button") (SYNONYM BUTTON) (
+ADJECTIVE LITTLE) (FLAGS NDESCBIT) (SIZE 0) (ACTION DIARY-BUTTON-F)> 
+<DEFINE-ROUTINE DIARY-BUTTON-F> 
+<CONSTANT DIARY-ENTRIES <PTABLE "Bug #46"
+"July 22 -- Transferred from S.P.S. Trilobyte to S.P.S.
+Feinstein for the third of my four tours of duty. I'm truly going to miss
+my commander, Ensign First Class Lim. He was a friend in every respect --
+someone you could always go to with a problem, someone I could really look
+up to. We would sometimes talk long into the night. He would tell me
+about his home world of Ash-Down V, and I would talk about growing up on
+Gallium. I'd get pretty homesick sometimes, even though Gallium is not
+exactly one of the garden spots of the universe. I just hope my new
+commander is half as nice as Lim.||
+This new ship seems pretty swell. I'm in a cabin with only five
+other ensigns, and I've got one-and-a-half cubic meters of locker space!"
+"July 23 -- Met my new commander today -- Ensign Cadet First
+Class Blather. He seems like a real krip. (Excuse the language, Diary.) But
+that might just be a bad first impression."
+"July 25 -- One of my cabin mates, Gorund, organized a Double
+Fanucci tournament among all the Ensigns Seventh Class. We were playing
+during the 150-millichron rec period after lunch, and Blather burst in and
+confiscated the sets and told us that playing war games was a violation of
+patrol regulations. But Ensign Whirp, who's studying to be a patrol lawyer,
+said she couldn't find anything about it in the regulations anywhere.|
+BLATHER IS REALLY A TOTAL MEGAKRIP!!!"
+"July 28 -- I went to see the personnel officer today to find
+out what my new duties would involve. He showed me a list of all the open
+assignments, and I decided to put in for the grotch-feeding detail. We picked
+up a few grotches when we were on Crassus, and we're taking them to the
+Zoology Labs on Tremain so that maybe they can figure out how an animal can
+produce 47 times its weight in trot every day."
+"Bozbar 7 -- Everyone from the P.O. to the ship's cook has
+approved my application for the grotch-feeding detail -- except Blather. I
+have an appointment to see him tomorrow. Wish me luck."
+"Bozbar 8 -- TROT!! Blather rejected my application! And to
+make it worse, he said that since I seem to love grotches so much, he's
+assigning me to clean out their cages. TROT AND DOUBLE TROT!!"
+"Bozbar 26 -- I haven't had time to keep my diary lately,
+because Blather's been watching us all like a Teleran bird. Also, last
+week he found the diary during a surprise inspection, gave me 200 demerits,
+and told me that diaries were against regulations. But I'll be frobbed if
+I'm going to stop. I've started hiding the diary inside my official documents
+file, and I keep that hidden in the air duct. From now on I'll have to sneak
+away somewhere to use it."
+"Bozbar 27 -- Greeting from the Deck Four Supply Closet of the
+S.P.S. Feinstein. I hope I'm not tempting fate, sneaking around with my diary
+this way. I used to be as much of a disbeliever in destiny as the next guy,
+but not anymore. Not since the time my mom warned my dad not to tempt fate
+by walking across the astral plains after dark, when the computerized analysis
+showed a 43% chance of resulting injury. My dad, stubborn as always, just
+laughed at her and went right on taking his nightly strolls. THE VERY NEXT
+SUMMER HE WENT WALKING AT NIGHT ON THE PLAINS AND STUMBLED OVER A CRATER AND
+BRUISED HIS KNEE! Gosh!"
+"Bozbar 28 -- We entered planetary orbit today, a non-human
+world called Accardi-3 (although the natives call it something like
+Blow'k-bibben-gordo). They're not officially part of the union. The rumors
+say that we're picking up a special ambassador to take back to Tremain for
+negotiations on joining the union. Tomorrow we have to put on our dress
+uniforms for some special welcoming ceremony."
+"August 2 -- I caught a glimpse of the alien ambassador during
+the welcoming ceremonies yesterday. He looks like a cross between a tree
+trunk and a melting ice cream cone. But at least the ceremony got me out of
+cleaning the grotch cages today."
+"August 7 -- Went to the mandatory Patrol Informational
+Tri-vision Triple Feature last night. We saw 'Treatment For Space Lice
+Infestation,' 'Shoreleave Shirley: How to Guard Against Contracting Alien
+Diseases,' and 'The Oxygen Tank: Your Galvanized Buddy in the Vacuum.'
+Blather confined half the ensigns to quarters for hooting during the second
+feature. (The other half had fallen asleep during the first feature.)"
+"August 24 -- TROT THAT TROTTING KRIP!! I applied for
+astrophysics training for the next quarter, but Blather says my work for the
+special assignment task force hasn't been good enough, so not only did he
+reject my astrophysics application, but he says I'll have to take remedial
+scrubbing next quarter. WHAT A TROTTING KRIP!||
+You know, for the first time I'm beginning to have doubts about
+whether I'm really cut out for the patrol. When I was growing up on Gallium,
+it was always taken for granted that I would join up when I came of age. My
+family has served in the patrol for five generations. In fact, my
+great-great-grandfather was a high admiral and one of the founding fathers of
+the Patrol! But I seem to be permanently stuck at Ensign 7th, and Blather is
+making my life miserable..."
+"Septem 4 -- We left hyperspace today at about 7600; weren't
+scheduled to for about another two weeks. The grapevine says we have special
+orders to investigate a planetary system here. Apparently, some of the
+archaeologists back on Varshon think it might have been part of the Second
+Union. I can't imagine why anyone would settle out here in this remote
+corner of the galaxy."
+"Septem 5 -- That krip has done it again! I missed two little
+pellets of trot when I was when I was cleaning out the grotch cages yesterday,
+and Blather gave me 100 demerits and assigned me two extra shifts of deck
+scrubbing -- including Deck Nine, the filthiest deck on the ship! I'm
+considering asking for a transfer -- or if things get worse, I might even
+abandon ship!">> 
+<DEFINE-ROUTINE READ-DIARY> 
+<DEFINE-ROUTINE WORDS-ON-SCREEN> 
+<ROOM REACTOR-LOBBY (LOC ROOMS) (DESC "Reactor Lobby") (LDESC
+"The corridor widens here as it nears the main drive area. To starboard is
+the Ion Reactor that powers the vessel, and aft of here is the Auxiliary
+Control Room. The corridor continues to port.") (C-MOVE <TABLE 0 0 0 0 0 15 0 0
+0 0 0 0>) (WEST TO DECK-NINE IF CORRIDOR-DOOR IS OPEN) (SOUTH SORRY
+"Ensign Blather pushes you roughly back toward your post.") (EAST SORRY
+"Ensign Blather blocks your way, snarling angrily.") (FLAGS RLANDBIT ONBIT) (
+GLOBAL CORRIDOR-DOOR)> 
+<ROOM GANGWAY (LOC ROOMS) (DESC "Gangway") (LDESC
+"This is a steep metal gangway connecting Deck Eight, above, and Deck
+Nine, below.") (C-MOVE <TABLE 0 0 10 0 0 0 0 0 0 0 0 0>) (UP TO DECK-EIGHT) (
+DOWN TO DECK-NINE IF GANGWAY-DOOR IS OPEN) (FLAGS RLANDBIT ONBIT) (GLOBAL
+GANGWAY-DOOR STAIRS) (ACTION GANGWAY-F)> 
+<DEFINE-ROUTINE GANGWAY-F> 
+<ROOM DECK-EIGHT (LOC ROOMS) (DESC "Deck Eight") (LDESC
+"This is a featureless corridor leading port and starboard. A gangway leads
+down, and to fore is the Hyperspatial Jump Machinery Room.") (C-MOVE <TABLE 0 0
+10 0 0 0 0 0 0 0 0 0>) (DOWN TO GANGWAY) (EAST SORRY
+"Blather throws you to the deck and makes you do 20 push-ups.") (WEST SORRY
+"Blather throws you to the deck and makes you do 20 push-ups.") (NORTH SORRY
+"Blather blocks your path, growling about extra galley duty.") (FLAGS RLANDBIT
+ONBIT) (GLOBAL STAIRS)> 
+<GLOBAL BLATHER-LEAVE 0 %<> WORD> 
+<GLOBAL BRIGS-UP 0 %<> WORD> 
+<DEFINE-ROUTINE I-BLATHER> 
+<OBJECT BLATHER (DESC "Ensign First Class") (LDESC
+"Ensign First Class Blather is standing before you, furiously scribbling
+demerits onto an oversized clipboard.") (SYNONYM ENSIGN BLATHER) (ADJECTIVE
+ENSIGN FIRST CLASS) (SIZE 150) (FLAGS VOWELBIT ACTORBIT) (ACTION BLATHER-F)> 
+<DEFINE-ROUTINE BLATHER-F> 
+<OBJECT AMBASSADOR (DESC "alien ambassador") (LDESC
+"A high-ranking ambassador from a newly contacted alien race is standing
+here on three of his legs, and watching you with seven of his eyes.") (SYNONYM
+AMBASSADOR) (ADJECTIVE VERY IMPORTANT ALIEN HIGH-RANKING HIGH RANKING) (SIZE
+150) (FLAGS VOWELBIT ACTORBIT) (ACTION AMBASSADOR-F)> 
+<OBJECT CELERY (DESC "piece of celery") (SYNONYM CELERY PIECE STALK) (FLAGS
+NDESCBIT FOODBIT) (ACTION CELERY-F)> 
+<DEFINE-ROUTINE CELERY-F> 
+<GLOBAL AMBASSADOR-LEAVE 0 %<> WORD> 
+<DEFINE-ROUTINE I-AMBASSADOR> 
+<OBJECT BROCHURE (DESC "brochure") (LDESC
+"Unfortunately, one of those stupid Blow'k-bibben-Gordo brochures is here.") (
+SYNONYM BROCHURE PAMPHLET LEAFLET) (FLAGS ACIDBIT TAKEBIT READBIT) (SIZE 4) (
+TEXT "\"The leading export of Blow'k-bibben-Gordo is the adventure game|
+|
+          *** PLANETFALL ***|
+|
+written by S. Eric Meretzky.|
+Buy one today. Better yet, buy a thousand.\"")> 
+<CONSTANT AMBASSADOR-QUOTES <PLTABLE
+"introduces himself as Br'gun-te'elkner-ipg'nun."
+"asks if you are performing some sort of religious ceremony."
+"inquires whether you are interested in a game of Bocci."
+"recites a plea for coexistence between your races."
+"asks where Admiral Smithers can be found."
+"remarks that all humans look alike to him." "offers you a bit of celery.">> 
+<DEFINE-ROUTINE AMBASSADOR-F> 
+<ROOM ESCAPE-POD (LOC ROOMS) (DESC "Escape Pod") (C-MOVE <TABLE 0 0 0 0 0 0 0 0
+0 0 0 0>) (EAST PER POD-EXIT-F) (OUT PER POD-EXIT-F) (UP PER POD-EXIT-F) (FLAGS
+RLANDBIT ONBIT) (VALUE 3) (GLOBAL POD-DOOR CONTROLS LIGHTS GLOBAL-POD WINDOW) (
+ACTION ESCAPE-POD-F)> 
+<OBJECT GLOBAL-POD (LOC LOCAL-GLOBALS) (DESC "escape pod") (SYNONYM POD) (
+ADJECTIVE EMERGENCY ESCAPE PRIMARY) (FLAGS VOWELBIT VEHBIT NDESCBIT) (ACTION
+GLOBAL-POD-F)> 
+<DEFINE-ROUTINE GLOBAL-POD-F> 
+<DEFINE-ROUTINE POD-EXIT-F> 
+<OBJECT SAFETY-WEB (LOC ESCAPE-POD) (DESC "safety web") (SYNONYM MASS WEB
+WEBBING NET) (ADJECTIVE SAFETY) (FLAGS CLIMBBIT VEHBIT NDESCBIT) (ACTION
+SAFETY-WEB-F)> 
+<DEFINE-ROUTINE SAFETY-WEB-F> 
+<OBJECT TOWEL (DESC "towel") (SYNONYM TOWEL) (SIZE 10) (FLAGS READBIT TAKEBIT)
+(TEXT "\"S.P.S. FEINSTEIN|
+  Escape Pod #42|
+   Don't Panic!\"") (ACTION TOWEL-F)> 
+<DEFINE-ROUTINE TOWEL-F> 
+<OBJECT FOOD-KIT (DESC "survival kit") (SYNONYM PROVISIONS KIT) (ADJECTIVE
+SURVIVAL EMERGENCY) (SIZE 10) (CAPACITY 25) (FLAGS TAKEBIT CONTBIT SEARCHBIT) (
+ACTION FOOD-KIT-F)> 
+<DEFINE-ROUTINE FOOD-KIT-F> 
+<OBJECT RED-GOO (LOC FOOD-KIT) (DESC "blob of red goo") (SYNONYM GOO BLOB FOOD
+PIE) (ADJECTIVE RED CHERRY) (FLAGS ACIDBIT FOODBIT) (ACTION GOO-F)> 
+<OBJECT BROWN-GOO (LOC FOOD-KIT) (DESC "blob of brown goo") (SYNONYM GOO BLOB
+FOOD STEW) (ADJECTIVE BROWN BEEF) (FLAGS ACIDBIT FOODBIT) (ACTION GOO-F)> 
+<OBJECT GREEN-GOO (LOC FOOD-KIT) (DESC "blob of green goo") (SYNONYM GOO BLOB
+FOOD BEANS) (ADJECTIVE GREEN LIMA) (FLAGS ACIDBIT FOODBIT) (ACTION GOO-F)> 
+<DEFINE-ROUTINE GOO-F> 
+<DEFINE-ROUTINE ESCAPE-POD-F> 
+<OBJECT POD-DOOR (LOC LOCAL-GLOBALS) (DESC "escape pod bulkhead") (SYNONYM DOOR
+BULKHEAD) (ADJECTIVE EMERGENCY ESCAPE POD) (FLAGS VOWELBIT DOORBIT NDESCBIT) (
+ACTION POD-DOOR-F)> 
+<DEFINE-ROUTINE POD-DOOR-F> 
+<OBJECT CORRIDOR-DOOR (LOC LOCAL-GLOBALS) (DESC "wide bulkhead") (SYNONYM DOOR
+BULKHEAD) (ADJECTIVE EMERGENCY WIDE) (FLAGS INVISIBLE DOORBIT OPENBIT NDESCBIT)
+(ACTION GANGWAY-DOOR-F)> 
+<OBJECT GANGWAY-DOOR (LOC LOCAL-GLOBALS) (DESC "narrow bulkhead") (SYNONYM DOOR
+BULKHEAD) (ADJECTIVE EMERGENCY NARROW) (FLAGS INVISIBLE DOORBIT OPENBIT
+NDESCBIT) (ACTION GANGWAY-DOOR-F)> 
+<DEFINE-ROUTINE GANGWAY-DOOR-F> 
+<GLOBAL BLOWUP-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE I-BLOWUP-FEINSTEIN> 
+<GLOBAL TRIP-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE I-POD-TRIP> 
+<GLOBAL SINK-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE I-SINK-POD> 
+^L 
+<OBJECT SLOT (LOC LOCAL-GLOBALS) (DESC "slot") (SYNONYM SLOT) (ADJECTIVE SMALL)
+(FLAGS NDESCBIT) (ACTION SLOT-F)> 
+<DEFINE-ROUTINE SLOT-F> 
+<CONSTANT ELEVATOR-ENABLED "A recorded voice chimes \"Elevator enabled.\""> 
+<CONSTANT WRONG-CARD
+"A sign flashes \"Inkorekt awtharazaashun kard...akses deeniid.\""> 
+<GLOBAL CARD-REVEALED <> %<> WORD> 
+<DEFINE-ROUTINE FLOYD-REVEAL-CARD-F> 
+<DEFINE-ROUTINE I-KITCHEN-DOOR-CLOSES> 
+^L 
+<OBJECT TELEPORTATION-BUTTON-1 (LOC LOCAL-GLOBALS) (DESC "brown button") (
+SYNONYM BUTTON) (ADJECTIVE BROWN FIRST) (FLAGS NDESCBIT) (ACTION
+TELEPORTATION-BUTTON-1-F)> 
+<OBJECT TELEPORTATION-BUTTON-2 (LOC LOCAL-GLOBALS) (DESC "beige button") (
+SYNONYM BUTTON) (ADJECTIVE BEIGE SECOND) (FLAGS NDESCBIT) (ACTION
+TELEPORTATION-BUTTON-2-F)> 
+<OBJECT TELEPORTATION-BUTTON-3 (LOC LOCAL-GLOBALS) (DESC "tan button") (SYNONYM
+BUTTON) (ADJECTIVE TAN THIRD) (FLAGS NDESCBIT) (ACTION TELEPORTATION-BUTTON-3-F
+)> 
+<GLOBAL TELEPORTATION-ON <> %<> WORD> 
+<DEFINE-ROUTINE TELEPORT> 
+<DEFINE-ROUTINE TELEPORTATION-BUTTON-1-F> 
+<DEFINE-ROUTINE TELEPORTATION-BUTTON-2-F> 
+<DEFINE-ROUTINE TELEPORTATION-BUTTON-3-F> 
+<DEFINE-ROUTINE I-TURNOFF-TELEPORTATION> 
+^L 
+<OBJECT GLOBAL-SHUTTLE (LOC LOCAL-GLOBALS) (DESC "shuttle car") (SYNONYM CAR
+SHUTTLE) (ADJECTIVE SHUTTLE) (FLAGS NDESCBIT) (ACTION GLOBAL-SHUTTLE-F)> 
+<DEFINE-ROUTINE GLOBAL-SHUTTLE-F> 
+<ROOM SHUTTLE-CAR-ALFIE (LOC ROOMS) (DESC "Shuttle Car Alfie") (C-MOVE <TABLE 0
+0 0 0 0 0 0 0 0 0 0 0>) (NORTH PER SHUTTLE-EXIT-F) (EAST TO ALFIE-CONTROL-EAST)
+(WEST TO ALFIE-CONTROL-WEST) (FLAGS RLANDBIT ONBIT) (GLOBAL GLOBAL-SHUTTLE
+SHUTTLE-DOOR) (ACTION SHUTTLE-CAR-F)> 
+<ROOM ALFIE-CONTROL-EAST (LOC ROOMS) (DESC "Alfie Control East") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO SHUTTLE-CAR-ALFIE IF SHUTTLE-DOOR IS OPEN) (
+FLAGS RLANDBIT ONBIT) (GLOBAL SLOT WINDOW LEVER SHUTTLE-DOOR GLOBAL-SHUTTLE) (
+ACTION CONTROL-CABIN-F)> 
+<ROOM ALFIE-CONTROL-WEST (LOC ROOMS) (DESC "Alfie Control West") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO SHUTTLE-CAR-ALFIE IF SHUTTLE-DOOR IS OPEN) (
+FLAGS RLANDBIT ONBIT) (GLOBAL SLOT LEVER WINDOW SHUTTLE-DOOR GLOBAL-SHUTTLE) (
+ACTION CONTROL-CABIN-F)> 
+<OBJECT LEVER (LOC LOCAL-GLOBALS) (DESC "lever") (SYNONYM LEVER) (FLAGS
+NDESCBIT) (ACTION LEVER-F)> 
+<OBJECT SHUTTLE-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (FLAGS
+DOORBIT OPENBIT INVISIBLE) (ACTION SHUTTLE-DOOR-F)> 
+<DEFINE-ROUTINE SHUTTLE-CAR-F> 
+<ROOM SHUTTLE-CAR-BETTY (LOC ROOMS) (DESC "Shuttle Car Betty") (C-MOVE <TABLE 0
+0 0 0 0 0 0 0 0 0 0 0>) (SOUTH PER SHUTTLE-EXIT-F) (EAST TO BETTY-CONTROL-EAST)
+(WEST TO BETTY-CONTROL-WEST) (FLAGS RLANDBIT ONBIT) (GLOBAL GLOBAL-SHUTTLE
+SHUTTLE-DOOR) (ACTION SHUTTLE-CAR-F)> 
+<ROOM BETTY-CONTROL-EAST (LOC ROOMS) (DESC "Betty Control East") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (WEST TO SHUTTLE-CAR-BETTY IF SHUTTLE-DOOR IS OPEN) (
+FLAGS RLANDBIT ONBIT) (GLOBAL GLOBAL-SHUTTLE SLOT WINDOW LEVER SHUTTLE-DOOR) (
+ACTION CONTROL-CABIN-F)> 
+<ROOM BETTY-CONTROL-WEST (LOC ROOMS) (DESC "Betty Control West") (C-MOVE <TABLE
+0 0 0 0 0 0 0 0 0 0 0 0>) (EAST TO SHUTTLE-CAR-BETTY IF SHUTTLE-DOOR IS OPEN) (
+FLAGS RLANDBIT ONBIT) (GLOBAL GLOBAL-SHUTTLE SLOT LEVER WINDOW SHUTTLE-DOOR) (
+ACTION CONTROL-CABIN-F)> 
+<DEFINE-ROUTINE CONTROL-CABIN-F> 
+<DEFINE-ROUTINE DESCRIBE-VIEW> 
+<DEFINE-ROUTINE SHUTTLE-DOOR-F> 
+<DEFINE-ROUTINE SHUTTLE-ENTER-F> 
+<CONSTANT CANT-GO "You can't go that way."> 
+<DEFINE-ROUTINE SHUTTLE-EXIT-F> 
+<GLOBAL ALFIE-AT-KALAMONTEE T %<> WORD> 
+<GLOBAL BETTY-AT-KALAMONTEE <> %<> WORD> 
+<GLOBAL SHUTTLE-MOVING <> %<> WORD> 
+<GLOBAL SHUTTLE-ON <> %<> WORD> 
+<GLOBAL SHUTTLE-VELOCITY 0 %<> WORD> 
+<GLOBAL SHUTTLE-COUNTER 0 %<> WORD> 
+<DEFINE-ROUTINE SHUTTLE-ACTIVATE> 
+<CONSTANT SHUTTLE-RECORDING-1
+"A recorded voice says \"Shuttle controls are already activated.\""> 
+<CONSTANT SHUTTLE-RECORDING-2
+"A recorded voice says \"Use other control cabin. Control activation
+overridden.\""> 
+<CONSTANT SHUTTLE-RECORDING-3
+"A recording of a deep male voice says \"Shuttle controls activated.\""> 
+<CONSTANT SHUTTLE-RECORDING-4
+"A recorded voice says \"Shuttle controls are not currently activated.\""> 
+<DEFINE-ROUTINE I-TURNOFF-SHUTTLE> 
+<GLOBAL LEVER-SETTING 0 %<> WORD> 
+<DEFINE-ROUTINE LEVER-F> 
+<DEFINE-ROUTINE I-SHUTTLE> 
+<DEFINE-ROUTINE DESCRIBE-SHUTTLE-TRIP> 
+<GLOBAL ALFIE-BROKEN <> %<> WORD> 
+<GLOBAL BETTY-BROKEN <> %<> WORD> 
+<DEFINE-ROUTINE DESCRIBE-SHUTTLE-ARRIVE> 
+<CONSTANT SIGN-PASS
+"You pass a sign, surrounded by blinking red lights, which says "> 
+^L 
+<GLOBAL SLEEPY-LEVEL 0 %<> WORD> 
+<DEFINE-ROUTINE I-SLEEP-WARNINGS> 
+<OBJECT BED (LOC LOCAL-GLOBALS) (DESC "bed") (SYNONYM BUNK BED) (ADJECTIVE
+MULTI TIERED MULTI-TIERED BUNK) (FLAGS NDESCBIT CLIMBBIT VEHBIT) (ACTION BED-F)
+> 
+<DEFINE-ROUTINE BED-F> 
+<DEFINE-ROUTINE I-FALL-ASLEEP> 
+<DEFINE-ROUTINE DREAMING> 
+<CONSTANT DREAMS <PLTABLE
+"...You find yourself on the bridge of the Feinstein. Ensign Blather is here,
+as well as Admiral Smithers. You are diligently scrubbing the control panel.
+Blather keeps yelling at you to scrub harder. Suddenly you hit the ship's
+self-destruct switch! Smithers and Blather howl at you as the ship begins
+exploding! You try to run, but your feet seem to be fused to the deck..."
+"...You gulp down the last of your Ramosian Fire Nectar and ask the
+andro-waiter for another pitcher. This pub makes the finest Nectar on
+all of Ramos Two, and you and your shipmates are having a pretty rowdy
+time. Through the windows of the pub you can see a mighty, ancient castle,
+shining in the light of the three Ramosian moons. The Fire Nectar spreads
+through your blood and you begin to feel drowsy..."
+"...Strangely, you wake to find yourself back home on Gallium. Even more
+strangely, you are only eight years old again. You are playing with your
+pet sponge-cat, Swanzo, on the edge of the pond in your backyard. Mom is
+hanging orange towels on the clothesline. Suddenly the school bully jumps
+out from behind a bush, grabs you, and pushes your head under the water.
+You try to scream, but cannot. You feel your life draining away..."
+"...Your vision slowly returns. You are on a wooded cliff overlooking
+a waterfall. A rainbow spans the falls. Blather stands above you, bellowing
+that the ground is filthy -- scrub harder! You throw your brush at Blather,
+but it passes thru him as though he were a ghost, and sails over the cliff.
+Blather leaps after the valuable piece of Patrol property, and both plummet
+into the void..."
+"...At last, the Feinstein has arrived at the historic Nebulon system. It's
+been five months since the last shore leave, and you're anxious for
+Planetfall. You and some other Ensigns Seventh Class enter the shuttle for
+surfaceside. Suddenly, you're alone on the shuttle, and it's tumbling out of
+control! It lands in the ocean and begins sinking! You try to clamber out,
+but you are stuck in a giant spider web. A giant spider crawls closer and
+closer...">> 
+<DEFINE-ROUTINE WAKING-UP> 
+<DEFINE-ROUTINE RESET-TIME> 
+^L 
+<GLOBAL HUNGER-LEVEL 0 %<> WORD> 
+<DEFINE-ROUTINE I-HUNGER-WARNINGS> 
+<CONSTANT NOT-HUNGRY "Thanks, but you're not hungry."> 
+^L 
+<GLOBAL SICKNESS-LEVEL 0 %<> WORD> 
+<GLOBAL SICKNESS-WARNING-FLAG <> %<> WORD> 
+<DEFINE-ROUTINE I-SICKNESS-WARNINGS> 
+<DEFINE-ROUTINE TRANSLATOR-PSEUDO> 
+<DEFINE-ROUTINE SLIME-PSEUDO> 
+<DEFINE-ROUTINE LIKE-SLIME> 
+<DEFINE-ROUTINE GRAFFITI-PSEUDO> 
+<DEFINE-ROUTINE DOOR-PSEUDO> 
+<DEFINE-ROUTINE WALKWAY-PSEUDO> 
+<DEFINE-ROUTINE BENCH-PSEUDO> 
+<DEFINE-ROUTINE CATWALK-PSEUDO> 
+<DEFINE-ROUTINE EQUIPMENT-PSEUDO> 
+<DEFINE-ROUTINE MONITORS-PSEUDO> 
+<DEFINE-ROUTINE MURAL-PSEUDO> 
+<DEFINE-ROUTINE LOGO-PSEUDO> 
+<DEFINE-ROUTINE KEYBOARD-PSEUDO> 
+<DEFINE-ROUTINE CRACK-PSEUDO> 
+<DEFINE-ROUTINE VOID-PSEUDO> 
+<DEFINE-ROUTINE SPOUT-PSEUDO> 
+<DEFINE-ROUTINE TOILET-PSEUDO> 
+<DEFINE-ROUTINE GAMES-PSEUDO> 
+<DEFINE-ROUTINE TAPES-PSEUDO> 
+<DEFINE-ROUTINE PARTITION-PSEUDO> 
+<DEFINE-ROUTINE CUBBYHOLE-PSEUDO> 
+<DEFINE-ROUTINE MAPS-PSEUDO> 
+<DEFINE-ROUTINE DEVICES-PSEUDO> 
+<DEFINE-ROUTINE CABLES-PSEUDO> 
+<DEFINE-ROUTINE STRUCTURE-PSEUDO> 
+<DEFINE-ROUTINE BUTTON-PSEUDO> 
+<DEFINE-ROUTINE CARPET-PSEUDO> 
+<DEFINE-ROUTINE CABINETS-PSEUDO> 
+<DEFINE-ROUTINE PLATE-PSEUDO> 
+<DEFINE-ROUTINE ESCALATOR-PSEUDO> 
+<DEFINE-ROUTINE REACTOR-BUTTON-PSEUDO> 
+<DEFINE-ROUTINE SUPPLIES-PSEUDO> 
+<DEFINE-ROUTINE DESK-PSEUDO> 
+<DEFINE-ROUTINE CRYO-BUTTON-PSEUDO> 
+<DEFINE-ROUTINE CASTLE-PSEUDO> 
+<DEFINE-ROUTINE CHEM-SPOUT-PSEUDO> 
+<DEFINE-ROUTINE CLEFT-PSEUDO> 
+<DEFINE-ROUTINE RUBBLE-PSEUDO> 
+<DEFINE-ROUTINE PLAQUE-PSEUDO> 
+<DEFINE-ROUTINE FENCE-PSEUDO> 
+<DEFINE-ROUTINE LOCK-PSEUDO> 
+<DEFINE-ROUTINE DIAGRAM-PSEUDO> 
+<DEFINE-ROUTINE ENUNCIATOR-PSEUDO> 
+<DEFINE-ROUTINE NEAR-BOOTH-PSEUDO> 
+<DEFINE-ROUTINE IN-BOOTH-PSEUDO> 
+<DEFINE-ROUTINE CANT-USE-THAT-WAY> 
+<CONSTANT TOO-DARK "It's too dark to see a thing."> 
\ No newline at end of file
diff --git a/globals.zap b/globals.zap
new file mode 100644
index 0000000..f12c4fa
--- /dev/null
+++ b/globals.zap
@@ -0,0 +1,2149 @@
+
+
+	.FUNCT	INIT-STATUS-LINE
+	LESS?	WIDTH,38 \?CND1
+	PRINTI	"[Screen too narrow.]"
+	CRLF	
+	QUIT	
+?CND1:	SET	'OHERE,FALSE-VALUE
+	SET	'OLD-LEN,0
+	SPLIT	1
+	SCREEN	S-WINDOW
+	HLIGHT	H-INVERSE
+	CURSET	1,1
+	ICALL2	PRINT-SPACES,WIDTH
+	GRTR?	WIDTH,74 \?CND3
+	CURSET	1,51
+	PRINTI	"Score:"
+	CURSET	1,64
+	PRINTI	"Time:"
+?CND3:	HLIGHT	H-NORMAL
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	UPDATE-STATUS-LINE
+	SCREEN	S-WINDOW
+	HLIGHT	H-NORMAL
+	HLIGHT	H-INVERSE
+	EQUAL?	HERE,OHERE /?CND1
+	SET	'OHERE,HERE
+	DIROUT	D-TABLE-ON,SL-TABLE
+	ICALL1	SAY-HERE
+	DIROUT	D-TABLE-OFF
+	CURSET	1,2
+	ICALL2	PRINT-SPACES,OLD-LEN
+	GET	SL-TABLE,0 >OLD-LEN
+	CURSET	1,2
+	ICALL1	SAY-HERE
+?CND1:	GRTR?	WIDTH,74 \?CCL5
+	CURSET	1,58
+	PRINTN	SCORE
+	PRINTC	32
+	CURSET	1,70
+	PRINTN	MOVES
+	JUMP	?CND3
+?CCL5:	DIROUT	D-TABLE-ON,SL-TABLE
+	PRINTN	SCORE
+	PRINTC	47
+	PRINTN	MOVES
+	PRINTC	32
+	DIROUT	D-TABLE-OFF
+	GET	SL-TABLE,0
+	ADD	STACK,1
+	SUB	WIDTH,STACK
+	CURSET	1,STACK
+	PRINTN	SCORE
+	PRINTC	47
+	PRINTN	MOVES
+	PRINTC	32
+?CND3:	HLIGHT	H-NORMAL
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	PRINT-SPACES,N,AMT
+?PRG1:	GRTR?	N,BLANKS-LEN \?CCL5
+	SET	'AMT,BLANKS-LEN
+	JUMP	?CND3
+?CCL5:	SET	'AMT,N
+?CND3:	PRINTT	BLANKS,AMT
+	SUB	N,AMT >N
+	GRTR?	N,0 /?PRG1
+	RTRUE	
+
+
+	.FUNCT	SAY-HERE
+	ZERO?	LIT? \?CCL3
+	PRINTI	"Darkness"
+	RTRUE	
+?CCL3:	PRINTD	HERE
+	GRTR?	WIDTH,74 \TRUE
+	LOC	ADVENTURER
+	FSET?	STACK,VEHBIT \TRUE
+	PRINTI	", in the "
+	LOC	ADVENTURER
+	PRINTD	STACK
+	RTRUE	
+
+
+	.FUNCT	GROUND-F
+	EQUAL?	PRSA,V?PUT \?CCL3
+	EQUAL?	PRSI,GROUND \?CCL3
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?BOARD,V?CLIMB-ON \?CCL7
+	SET	'C-ELAPSED,28
+	PRINTR	"You sit down on the floor. After a brief rest, you stand again."
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,ADMIN-CORRIDOR-S \FALSE
+	PRINTR	"A narrow, jagged crevice runs across the floor."
+
+
+	.FUNCT	WINDOW-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	EQUAL?	HERE,BIO-LOCK-EAST \?CCL6
+	PRINTI	"You can see a large laboratory, dimly illuminated. A blue glow comes from a crack in the northern wall of the lab. Shadowy, ominous shapes move about within the room."
+	FSET?	MINI-CARD,TOUCHBIT /?CND7
+	PRINTR	" On the floor, just inside the door, you can see a magnetic-striped card."
+?CND7:	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	HERE,BIO-LAB \?CCL10
+	PRINTR	"You see the Bio Lock."
+?CCL10:	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST /?CTR11
+	EQUAL?	HERE,BETTY-CONTROL-EAST,BETTY-CONTROL-WEST \?CCL12
+?CTR11:	PRINTI	"You see "
+	ICALL1	DESCRIBE-VIEW
+	CRLF	
+	RTRUE	
+?CCL12:	EQUAL?	HERE,BALCONY \?CCL16
+	PRINTR	"Water. Lots and lots of water."
+?CCL16:	EQUAL?	HERE,HELICOPTER \?CCL18
+	PRINTR	"You see the helipad and the ocean beyond."
+?CCL18:	EQUAL?	HERE,ESCAPE-POD \?CCL20
+	LESS?	TRIP-COUNTER,2 \?CCL23
+	PRINTR	"You can see debris from the exploding Feinstein."
+?CCL23:	GRTR?	TRIP-COUNTER,8 \?CCL25
+	PRINTR	"You can see a planet, hopefully a hospitable one."
+?CCL25:	PRINTR	"The window has polarized to blackness."
+?CCL20:	EQUAL?	HERE,LARGE-OFFICE \FALSE
+	PRINTR	"You can see the dormitories and other parts of the complex in the distance. Water is visible in every direction."
+?CCL3:	EQUAL?	PRSA,V?THROUGH \?CCL29
+	EQUAL?	HERE,BALCONY \?CCL29
+	CALL2	JIGS-UP,STR?48
+	RSTACK	
+?CCL29:	EQUAL?	PRSA,V?OPEN \?CCL33
+	PRINTR	"This window doesn't open."
+?CCL33:	EQUAL?	PRSA,V?EXAMINE \?CCL35
+	EQUAL?	HERE,BALCONY \?CCL35
+	PRINTR	"They're shattered."
+?CCL35:	EQUAL?	PRSA,V?MUNG \FALSE
+	EQUAL?	HERE,BALCONY \?CCL42
+	PRINTR	"They're already broken."
+?CCL42:	PRINTR	"It's made of tough Zynoid plastic."
+
+
+	.FUNCT	CLIFF-F
+	EQUAL?	HERE,WEST-WING \?CCL3
+	EQUAL?	PRSA,V?LEAP \?CCL6
+	CALL2	JIGS-UP,STR?49
+	RSTACK	
+?CCL6:	EQUAL?	PRSA,V?THROW-OFF \FALSE
+	EQUAL?	PRSO,LASER \?CND9
+	CALL2	INT,I-WARMTH
+	PUT	STACK,0,0
+?CND9:	REMOVE	PRSO
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" falls into the ocean below."
+?CCL3:	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP \?CCL13
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL13:	EQUAL?	PRSA,V?CLIMB-DOWN \FALSE
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	OCEAN-F
+	EQUAL?	PRSA,V?RUB,V?THROUGH,V?TAKE \?CCL3
+	PRINTR	"You can't reach the ocean from here."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It stretches as far as you can see."
+
+
+	.FUNCT	TABLES-F
+	EQUAL?	PRSA,V?LOOK-UNDER \?CCL3
+	EQUAL?	HERE,MESS-HALL \?CCL3
+	PRINTR	"Wow!!! Under the table are three keys, a sack of food, a reactor elevator access pass, one hundred gold pieces ... Just kidding. Actually, there's nothing there."
+?CCL3:	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSI,TABLES \FALSE
+	PRINTR	"That would accomplish nothing useful."
+
+
+	.FUNCT	SHELVES-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The shelves are pretty dusty."
+?CCL3:	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSI,SHELVES \FALSE
+	PRINTR	"That would be a waste of time."
+
+
+	.FUNCT	LIGHTS-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,COMPUTER-ROOM \FALSE
+	PRINTR	"The red light would seem to indicate a malfunction in the computer."
+
+
+	.FUNCT	GLOBAL-DOORWAY-F
+	EQUAL?	PRSA,V?THROUGH \?CCL3
+	CALL1	USE-DIRECTIONS
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL5
+	PRINTR	"It's just an opening; you can't open or close it."
+?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTR	"Can't see much from here. Try going there."
+
+
+	.FUNCT	USE-DIRECTIONS
+	PRINTR	"Use compass directions for movement."
+
+
+	.FUNCT	NO-CLOSE
+	PRINTR	"There's no way to close it."
+
+
+	.FUNCT	CONTROLS-F
+	EQUAL?	HERE,UPPER-ELEVATOR,LOWER-ELEVATOR,BOOTH-1 /?CTR2
+	EQUAL?	HERE,REACTOR-ELEVATOR,BOOTH-2,BOOTH-3 \?CCL3
+?CTR2:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The control panel is a simple one, as described. Just a small slot and two buttons."
+?CCL3:	EQUAL?	PRSA,V?TURN,V?MOVE,V?RUB /?CTR9
+	EQUAL?	PRSA,V?EXAMINE,V?TAKE,V?SET /?CTR9
+	EQUAL?	PRSA,V?PULL,V?PUSH \?CCL10
+?CTR9:	EQUAL?	HERE,HELICOPTER \?CCL16
+	PRINTR	"The controls are covered and locked."
+?CCL16:	EQUAL?	HERE,ESCAPE-POD \?CCL18
+	PRINTR	"The controls are entirely automated."
+?CCL18:	PRINTR	"The controls are incredibly complicated and you shouldn't even be thinking about touching them."
+?CCL10:	EQUAL?	HERE,HELICOPTER \FALSE
+	EQUAL?	PRSA,V?UNLOCK,V?OPEN \FALSE
+	PRINTR	"You don't even have the orange key!"
+
+
+	.FUNCT	GLOBAL-GAMES-F
+	EQUAL?	PRSA,V?PLAY \FALSE
+	IN?	FLOYD,HERE \?CCL6
+	ICALL	PERFORM,V?PLAY-WITH,FLOYD
+	RTRUE	
+?CCL6:	PRINTR	"Okay. Gee, that was fun."
+
+
+	.FUNCT	HANDS-F
+	EQUAL?	PRSA,V?SHAKE \FALSE
+	IN?	AMBASSADOR,HERE \?CCL6
+	PRINTR	"A repulsive idea."
+?CCL6:	IN?	BLATHER,HERE \?CCL8
+	PRINTR	"Saluting might be a better idea."
+?CCL8:	IN?	FLOYD,HERE \?CCL10
+	FSET?	FLOYD,RLANDBIT \?CCL10
+	PRINTR	"You shake one of Floyd's grasping extensions."
+?CCL10:	PRINTR	"There's no one to shake hands with."
+
+
+	.FUNCT	SLEEP-F
+	EQUAL?	PRSA,V?WALK-TO \FALSE
+	CALL1	V-SLEEP
+	RSTACK	
+
+
+	.FUNCT	CRETIN-F
+	EQUAL?	PRSA,V?GIVE \?CCL3
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?SCRUB \?CCL5
+	PRINTR	"If only you'd done that before the last inspection, you wouldn't have gotten 300 demerits."
+?CCL5:	EQUAL?	PRSA,V?DROP \?CCL7
+	PRINTR	"Huh?"
+?CCL7:	EQUAL?	PRSA,V?SMELL \?CCL9
+	PRINTR	"Phew!"
+?CCL9:	EQUAL?	PRSA,V?FOLLOW \?CCL11
+	PRINTR	"It would be hard not to."
+?CCL11:	EQUAL?	PRSA,V?EAT \?CCL13
+	PRINTR	"Auto-cannibalism is not the answer."
+?CCL13:	EQUAL?	PRSA,V?MUNG,V?ATTACK \?CCL15
+	EQUAL?	PRSO,ME \?CCL18
+	CALL2	JIGS-UP,STR?50
+	RSTACK	
+?CCL18:	PRINTR	"What a silly idea!"
+?CCL15:	EQUAL?	PRSA,V?TAKE \?CCL20
+	PRINTR	"How romantic!"
+?CCL20:	EQUAL?	PRSA,V?DISEMBARK \?CCL22
+	PRINTR	"You'll have to do that on your own."
+?CCL22:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"That's difficult unless your eyes are prehensile."
+
+
+	.FUNCT	DDESC,DOOR
+	FSET?	DOOR,OPENBIT \?CCL3
+	PRINTI	"open"
+	RTRUE	
+?CCL3:	PRINTI	"closed"
+	RTRUE	
+
+
+	.FUNCT	ALREADY-OPEN
+	PRINTR	"It's already open!"
+
+
+	.FUNCT	IS-CLOSED
+	PRINTR	"It is closed!"
+
+
+	.FUNCT	V-THROUGH,OBJ,M
+	ZERO?	OBJ \?CCL3
+	FSET?	PRSO,VEHBIT \?CCL3
+	ICALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?CCL3:	ZERO?	OBJ \?CCL7
+	FSET?	PRSO,TAKEBIT /?CCL7
+	PRINTI	"You hit your head against the "
+	PRINTD	PRSO
+	PRINTR	" as you attempt this feat."
+?CCL7:	ZERO?	OBJ /?CCL11
+	PRINTR	"You can't do that!"
+?CCL11:	IN?	PRSO,ADVENTURER \?CCL13
+	PRINTR	"That would involve quite a contortion!"
+?CCL13:	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	FIND-IN,WHERE,WHAT,W
+	FIRST?	WHERE >W /?BOGUS1
+?BOGUS1:	ZERO?	W /FALSE
+?PRG4:	FSET?	W,WHAT \?CCL8
+	RETURN	W
+?CCL8:	NEXT?	W >W /?PRG4
+	RFALSE	
+
+
+	.FUNCT	NOT-HERE-OBJECT-F,TBL,PRSO?,OBJ
+	SET	'PRSO?,TRUE-VALUE
+	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL3
+	EQUAL?	PRSI,NOT-HERE-OBJECT \?CCL3
+	PRINTR	"Those things aren't here!"
+?CCL3:	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL7
+	SET	'TBL,P-PRSO
+	JUMP	?CND1
+?CCL7:	SET	'TBL,P-PRSI
+	SET	'PRSO?,FALSE-VALUE
+?CND1:	ZERO?	PRSO? /?CND8
+	EQUAL?	PRSA,V?TYPE \?CCL12
+	ICALL	PERFORM,V?TYPE,FLOYD
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?EXAMINE /?CCL13
+	EQUAL?	WINNER,FLOYD \?CND8
+	EQUAL?	PRSA,V?FIND,V?TAKE \?CND8
+?CCL13:	CALL	FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,NOT-HERE-OBJECT \TRUE
+?CND8:	EQUAL?	WINNER,ADVENTURER \?CCL25
+	PRINTI	"You can't see any"
+	ICALL2	NOT-HERE-PRINT,PRSO?
+	PRINTI	" here!"
+	CRLF	
+	EQUAL?	PRSA,V?TELL \TRUE
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+?CCL25:	PRINTI	"The "
+	PRINTD	WINNER
+	PRINTI	" seems confused. ""I don't see any"
+	ICALL2	NOT-HERE-PRINT,PRSO?
+	PRINTR	" here!"""
+
+
+	.FUNCT	FIND-NOT-HERE,TBL,PRSO?,M-F,OBJ
+	CALL2	MOBY-FIND,TBL >M-F
+	EQUAL?	1,M-F \?CCL3
+	ZERO?	PRSO? /?CCL6
+	SET	'PRSO,P-MOBY-FOUND
+	RFALSE	
+?CCL6:	SET	'PRSI,P-MOBY-FOUND
+	RFALSE	
+?CCL3:	ZERO?	PRSO? \?CCL8
+	PRINTI	"You wouldn't find any"
+	ICALL2	NOT-HERE-PRINT,PRSO?
+	PRINTR	" there."
+?CCL8:	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	NOT-HERE-PRINT,PRSO?,?TMP1
+	ZERO?	P-OFLAG \?CTR2
+	ZERO?	P-MERGED /?CCL3
+?CTR2:	ZERO?	P-XADJ /?CND6
+	PRINTC	32
+	PRINTB	P-XADJ
+?CND6:	ZERO?	P-XNAM /FALSE
+	PRINTC	32
+	PRINTB	P-XNAM
+	RTRUE	
+?CCL3:	ZERO?	PRSO? /?CCL12
+	GET	P-ITBL,P-NC1 >?TMP1
+	GET	P-ITBL,P-NC1L
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	RSTACK	
+?CCL12:	GET	P-ITBL,P-NC2 >?TMP1
+	GET	P-ITBL,P-NC2L
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	DECK-NINE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a featureless corridor similar to every other corridor on the ship. It curves away to starboard, and a gangway leads up"
+	FSET?	GANGWAY-DOOR,OPENBIT \?CCL6
+	PRINTC	46
+	JUMP	?CND4
+?CCL6:	PRINTI	", but both of these are blocked by closed bulkheads."
+?CND4:	PRINTI	" To port is the entrance to one of the ship's primary escape pods. The pod bulkhead is "
+	ICALL2	DDESC,POD-DOOR
+	PRINTR	"."
+
+
+	.FUNCT	CHRONOMETER-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	PRINTI	"It is a standard wrist chronometer with a digital display. "
+	ICALL1	TELL-TIME
+	PRINTR	" The back is engraved with the message ""Good luck in the Patrol! Love, Mom and Dad."""
+
+
+	.FUNCT	TELL-TIME
+	PRINTI	"According to the chronometer, the current time is "
+	FSET?	CHRONOMETER,MUNGEDBIT \?CCL3
+	PRINTN	MUNGED-TIME
+	JUMP	?CND1
+?CCL3:	PRINTN	INTERNAL-MOVES
+?CND1:	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	PATROL-UNIFORM-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"It is a standard-issue one-pocket Stellar Patrol uniform, a miracle of modern technology. It will keep its owner warm in cold climates and cool in warm locales. It provides protection against mild radiation, repels all insects, absorbs sweat, promotes healthy skin tone, and on top of everything else, it is supercomfy."
+	EQUAL?	TRIP-COUNTER,15 \?CND4
+	PRINTR	" There are definitely worse things to find yourself wearing when stranded on a strange planet."
+?CND4:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?WEAR \?CCL7
+	FSET?	LAB-UNIFORM,WORNBIT \?CCL7
+	PRINTR	"It won't fit over the lab uniform."
+?CCL7:	EQUAL?	PRSA,V?TAKE-OFF \?CCL11
+	FSET?	PATROL-UNIFORM,WORNBIT \?CCL11
+	FCLEAR	PATROL-UNIFORM,WORNBIT
+	PRINTI	"You have removed your Patrol uniform."
+	EQUAL?	TRIP-COUNTER,15 \?CND14
+	PRINTI	" You suddenly realize how warm it is. You also feel naked and vulnerable."
+?CND14:	IN?	BLATHER,HERE \?CCL18
+	PRINTR	" ""Removing your uniform while on duty? Five hundred demerits!"""
+?CCL18:	IN?	FLOYD,HERE \?CND16
+	PRINTR	" Floyd giggles. ""You look funny without any clothes on."""
+?CND16:	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINTI	"There's no way to open or close the pocket of the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	DIARY-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL3
+	PRINTR	"It's not that kind of diary."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTI	"You've used this battered old recording machine as a diary for years. It includes a little button"
+	FSET?	DIARY,ACTIVEBIT \?CND6
+	PRINTI	", which is flashing,"
+?CND6:	PRINTR	" and a microphone/speaker. To read its screen, type READ DIARY."
+?CCL5:	EQUAL?	PRSA,V?READ \FALSE
+	IN?	BLATHER,HERE \?CCL12
+	PRINTR	"Blather stops you, scribbling madly. ""I warned you, Ensign! That's another two hundred demerits!"""
+?CCL12:	FSET?	DIARY,ACTIVEBIT /?CCL14
+	FSET	DIARY,ACTIVEBIT
+	SET	'DIARY-CTR,0
+	CALL1	READ-DIARY
+	RSTACK	
+?CCL14:	CALL1	WORDS-ON-SCREEN
+	RSTACK	
+
+
+	.FUNCT	DIARY-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \?CCL3
+	FSET?	DIARY,ACTIVEBIT \?CCL6
+	EQUAL?	DIARY-CTR,14 \?CCL9
+	FCLEAR	DIARY,ACTIVEBIT
+	SET	'DIARY-CTR,0
+	PRINTR	"""END OF DIARY -- REWINDING"" flashes across the screen; the machine whirrs, stops, and the little button flickers off."
+?CCL9:	CALL1	READ-DIARY
+	RSTACK	
+?CCL6:	PRINTR	"Nothing happens."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	FSET?	DIARY,ACTIVEBIT \FALSE
+	PRINTR	"It is flashing."
+
+
+	.FUNCT	READ-DIARY
+	INC	'DIARY-CTR
+	EQUAL?	DIARY-CTR,1 \?CND1
+	PRINTI	"Words start to scroll across the screen:
+
+"
+?CND1:	CALL1	WORDS-ON-SCREEN
+	RSTACK	
+
+
+	.FUNCT	WORDS-ON-SCREEN
+	PRINTI	"""11,344 "
+	GET	DIARY-ENTRIES,DIARY-CTR
+	PRINT	STACK
+	PRINTC	34
+	EQUAL?	DIARY-CTR,14 /?CND1
+	CRLF	
+	CRLF	
+	PRINTR	"The single word, ""More,"" appears at the bottom of the diary screen, and the little button flashes."
+?CND1:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	GANGWAY-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	RANDOM	100
+	LESS?	15,STACK /FALSE
+	ZERO?	BLOWUP-COUNTER \FALSE
+	PRINTR	"You hear a distant bellowing ... something about an Ensign Seventh Class whose life is in danger."
+
+
+	.FUNCT	I-BLATHER
+	EQUAL?	HERE,DECK-EIGHT,REACTOR-LOBBY \?CCL3
+	IN?	BLATHER,HERE \?CCL6
+	IGRTR?	'BRIGS-UP,3 \?CCL9
+	CRLF	
+	PRINTI	"Blather loses his last vestige of patience and drags you to the Feinstein's brig. He throws you in, and the door clangs shut behind you."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,BRIG
+	ICALL	ROB,ADVENTURER,CRAG
+	MOVE	PADLOCK,HERE
+	FCLEAR	PADLOCK,TAKEBIT
+	RTRUE	
+?CCL9:	CRLF	
+	PRINTR	"""I said to return to your post, Ensign Seventh Class!"" bellows Blather, turning a deepening shade of crimson."
+?CCL6:	ZERO?	BLOWUP-COUNTER \FALSE
+	MOVE	BLATHER,HERE
+	ICALL2	THIS-IS-IT,BLATHER
+	CRLF	
+	PRINTR	"Ensign Blather, his uniform immaculate, enters and notices you are away from your post. ""Twenty demerits, Ensign Seventh Class!"" bellows Blather. ""Forty if you're not back on Deck Nine in five seconds!"" He curls his face into a hideous mask of disgust at your unbelievable negligence."
+?CCL3:	EQUAL?	HERE,DECK-NINE \FALSE
+	EQUAL?	BLATHER-LEAVE,3 \?CCL16
+	IN?	BLATHER,HERE \?CCL16
+	SET	'BLATHER-LEAVE,0
+	REMOVE	BLATHER
+	CRLF	
+	PRINTR	"Blather, adding fifty more demerits for good measure, moves off in search of more young ensigns to terrorize."
+?CCL16:	IN?	BLATHER,DECK-NINE \?CCL20
+	INC	'BLATHER-LEAVE
+	RFALSE	
+?CCL20:	IN?	AMBASSADOR,HERE /FALSE
+	ZERO?	BLOWUP-COUNTER \FALSE
+	RANDOM	100
+	LESS?	5,STACK /FALSE
+	MOVE	BLATHER,HERE
+	ICALL2	THIS-IS-IT,BLATHER
+	CRLF	
+	PRINTI	"Ensign First Class Blather swaggers in. He studies your work with half-closed eyes. ""You call this polishing, Ensign Seventh Class?"" he sneers. ""We have a position for an Ensign Ninth Class in the toilet-scrubbing division, you know. Thirty demerits."
+	FSET?	PATROL-UNIFORM,WORNBIT /?CND26
+	PRINTI	" And another sixty for improper dress!"
+?CND26:	PRINTR	""" He glares at you, his arms crossed."
+
+
+	.FUNCT	BLATHER-F
+	EQUAL?	PRSA,V?HELLO,V?TALK /?CTR2
+	EQUAL?	BLATHER,WINNER \?CCL3
+?CTR2:	PRINTI	"Blather shouts ""Speak when you're spoken to, Ensign Seventh Class!"" He breaks three pencil points in a frenzied rush to give you more demerits."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?KICK,V?ATTACK \?CCL9
+	CALL2	JIGS-UP,STR?78
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?SALUTE \?CCL11
+	PRINTR	"Blather's sneer softens a bit. ""First right thing you've done today. Only five demerits."""
+?CCL11:	EQUAL?	PRSA,V?THROW \?CCL13
+	EQUAL?	BLATHER,PRSI \?CCL13
+	MOVE	PRSO,HERE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" bounces off Blather's bulbous nose. He becomes livid, orders you to do five hundred push-ups, gives you ten thousand demerits, and assigns you five years of extra galley duty."
+?CCL13:	EQUAL?	PRSA,V?EXAMINE \?CCL17
+	PRINTR	"Ensign Blather is a tall, beefy officer with a tremendous, misshapen nose. His uniform is perfect in every respect, and the crease in his trousers could probably slice diamonds in half."
+?CCL17:	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"Blather brushes you away, muttering about suspended shore leave."
+
+
+	.FUNCT	CELERY-F
+	EQUAL?	PRSA,V?EAT \?CCL3
+	CALL2	JIGS-UP,STR?80
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"The ambassador seems perturbed by your lack of normal protocol."
+
+
+	.FUNCT	I-AMBASSADOR
+	GRTR?	AMBASSADOR-LEAVE,2 \?CCL3
+	IN?	AMBASSADOR,HERE \?CCL3
+	REMOVE	AMBASSADOR
+	REMOVE	CELERY
+	EQUAL?	HERE,DECK-NINE \?CND6
+	CRLF	
+	PRINTI	"The ambassador grunts a polite farewell, and disappears up the gangway, leaving a trail of dripping slime."
+	CRLF	
+?CND6:	CALL2	INT,I-AMBASSADOR
+	PUT	STACK,0,0
+	RTRUE	
+?CCL3:	IN?	AMBASSADOR,DECK-NINE \?CCL9
+	INC	'AMBASSADOR-LEAVE
+	EQUAL?	HERE,DECK-NINE \FALSE
+	CRLF	
+	PRINTI	"The ambassador "
+	CALL2	PICK-ONE,AMBASSADOR-QUOTES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL9:	EQUAL?	HERE,DECK-NINE \FALSE
+	IN?	AMBASSADOR,HERE /FALSE
+	IN?	BLATHER,HERE /FALSE
+	ZERO?	BLOWUP-COUNTER \FALSE
+	RANDOM	100
+	LESS?	15,STACK /FALSE
+	MOVE	AMBASSADOR,HERE
+	MOVE	CELERY,HERE
+	ICALL2	THIS-IS-IT,AMBASSADOR
+	MOVE	BROCHURE,ADVENTURER
+	CRLF	
+	PRINTR	"The alien ambassador from the planet Blow'k-bibben-Gordo ambles toward you from down the corridor. He is munching on something resembling an enormous stalk of celery, and he leaves a trail of green slime on the deck. He stops nearby, and you wince as a pool of slime begins forming beneath him on your newly polished deck. The ambassador wheezes loudly and hands you a brochure outlining his planet's major exports."
+
+
+	.FUNCT	AMBASSADOR-F
+	EQUAL?	PRSA,V?HELLO,V?TALK /?CTR2
+	EQUAL?	AMBASSADOR,WINNER \?CCL3
+?CTR2:	PRINTI	"The ambassador taps his translator, and then touches his center knee to his left ear (the Blow'k-bibben-Gordoan equivalent of shrugging)."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+?CCL3:	EQUAL?	PRSA,V?ASK-FOR \?CCL9
+	EQUAL?	PRSI,CELERY \?CCL9
+	PRINTR	"The ambassador seems willing to let you eat some of it, but I doubt he wants to part with the entire stalk."
+?CCL9:	EQUAL?	PRSA,V?KICK,V?ATTACK \?CCL13
+	PRINTR	"The ambassador is startled, and emits an amazing quantity of slime which spreads across the section of the deck you just polished."
+?CCL13:	EQUAL?	PRSA,V?EXAMINE \?CCL15
+	PRINTR	"The ambassador has around twenty eyes, seven of which are currently open. Half of his six legs are retracted. Green slime oozes from multiple orifices in his scaly skin. He speaks through a mechanical translator slung around his neck."
+?CCL15:	EQUAL?	PRSA,V?LISTEN \FALSE
+	PRINTR	"The alien makes a wheezing noise as he breathes."
+
+
+	.FUNCT	GLOBAL-POD-F
+	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?THROUGH \?CCL3
+	EQUAL?	HERE,ESCAPE-POD \?CCL6
+	PRINTR	"You're already in it!"
+?CCL6:	ICALL2	DO-WALK,P?WEST
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?DROP,V?DISEMBARK,V?EXIT \?CCL8
+	EQUAL?	HERE,DECK-NINE \?CCL11
+	PRINTR	"You're not in it!"
+?CCL11:	ICALL2	DO-WALK,P?OUT
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?OPEN \FALSE
+	ICALL	PERFORM,V?OPEN,POD-DOOR
+	RTRUE	
+
+
+	.FUNCT	POD-EXIT-F
+	GRTR?	BLOWUP-COUNTER,4 \?CCL3
+	EQUAL?	PRSO,P?EAST \?CCL6
+	PRINT	CANT-GO
+	CRLF	
+	RFALSE	
+?CCL6:	FSET?	POD-DOOR,OPENBIT /?CCL8
+	PRINTI	"The pod door is closed."
+	CRLF	
+	RFALSE	
+?CCL8:	SET	'C-ELAPSED,30
+	RETURN	UNDERWATER
+?CCL3:	EQUAL?	PRSO,P?UP \?CCL11
+	PRINT	CANT-GO
+	CRLF	
+	RFALSE	
+?CCL11:	FSET?	POD-DOOR,OPENBIT /?CCL13
+	PRINTI	"The pod door is closed."
+	CRLF	
+	RFALSE	
+?CCL13:	RETURN	DECK-NINE
+
+
+	.FUNCT	SAFETY-WEB-F,RARG
+	ASSIGNED?	'RARG /?CND1
+	SET	'RARG,M-OBJECT
+?CND1:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	ZERO?	RARG \?CCL5
+	PRINTR	"The safety webbing fills most of the pod. It could accomodate from one to, perhaps, twenty people."
+?CCL5:	EQUAL?	PRSA,V?TAKE \?CCL9
+	ZERO?	RARG \?CCL9
+	PRINTR	"The safety web seems to be more intended for getting into than grabbing onto."
+?CCL9:	EQUAL?	PRSA,V?CLIMB-ON,V?BOARD \?CCL13
+	ZERO?	RARG \?CCL13
+	ICALL2	GOTO,SAFETY-WEB
+	PRINTR	"You are now safely cushioned within the web."
+?CCL13:	EQUAL?	PRSA,V?TAKE,V?OPEN \?CCL17
+	EQUAL?	RARG,M-BEG \?CCL17
+	EQUAL?	PRSO,SAFETY-WEB \?CCL22
+	PRINTR	"You're in it!"
+?CCL22:	PRINTR	"You can't reach it from here."
+?CCL17:	EQUAL?	PRSA,V?WALK \?CCL24
+	EQUAL?	RARG,M-BEG \?CCL24
+	PRINTR	"You'll have to stand up, first."
+?CCL24:	EQUAL?	PRSA,V?DROP,V?DISEMBARK,V?EXIT /?PRD30
+	EQUAL?	PRSA,V?STAND \FALSE
+?PRD30:	ZERO?	RARG \FALSE
+	IN?	ADVENTURER,SAFETY-WEB \FALSE
+	ICALL2	GOTO,HERE
+	GRTR?	TRIP-COUNTER,14 \?CCL36
+	CALL2	INT,I-SINK-POD
+	GET	STACK,C-ENABLED?
+	ZERO?	STACK \?CCL36
+	CALL	QUEUE,I-SINK-POD,-1
+	PUT	STACK,0,1
+	PRINTR	"As you stand, the pod shifts slightly and you feel it falling. A moment later, the fall stops with a shock, and you see water rising past the viewport."
+?CCL36:	PRINTR	"You are standing again."
+
+
+	.FUNCT	TOWEL-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"A pretty ordinary towel. Something is written in its corner."
+
+
+	.FUNCT	FOOD-KIT-F
+	EQUAL?	PRSA,V?EMPTY \FALSE
+	FSET?	FOOD-KIT,OPENBIT /?CCL6
+	PRINTR	"The kit is closed!"
+?CCL6:	FIRST?	PRSO \FALSE
+	PRINTR	"The goo, being gooey, sticks to the inside of the kit. You would probably have to shake the kit to get the goo out."
+
+
+	.FUNCT	GOO-F
+	EQUAL?	PRSA,V?EAT \?CCL3
+	ZERO?	HUNGER-LEVEL \?CCL6
+	PRINT	NOT-HUNGRY
+	CRLF	
+	RTRUE	
+?CCL6:	IN?	FOOD-KIT,ADVENTURER /?CCL8
+	SET	'PRSO,FOOD-KIT
+	ICALL1	NOT-HOLDING
+	CALL2	THIS-IS-IT,FOOD-KIT
+	RSTACK	
+?CCL8:	REMOVE	PRSO
+	SET	'C-ELAPSED,15
+	SET	'HUNGER-LEVEL,0
+	CALL	QUEUE,I-HUNGER-WARNINGS,1450
+	PUT	STACK,0,1
+	PRINTI	"Mmmm...that tasted just like "
+	EQUAL?	PRSO,BROWN-GOO \?CCL11
+	PRINTI	"delicious Nebulan fungus pudding"
+	JUMP	?CND9
+?CCL11:	EQUAL?	PRSO,RED-GOO \?CCL13
+	PRINTI	"scrumptious cherry pie"
+	JUMP	?CND9
+?CCL13:	PRINTI	"yummy lima beans"
+?CND9:	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?DROP,V?TAKE \FALSE
+	EQUAL?	PRSA,V?DROP \?CCL18
+	PRINTI	"The goo, being gooey, sticks where it is"
+	JUMP	?CND16
+?CCL18:	EQUAL?	PRSA,V?TAKE \?CND16
+	PRINTI	"It would ooze through your fingers"
+?CND16:	PRINTR	". You'll have to eat it right from the survival kit."
+
+
+	.FUNCT	ESCAPE-POD-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is one of the Feinstein's primary escape pods, for use in extreme emergencies. A mass of safety webbing, large enough to hold several dozen people, fills half the pod. The controls are entirely automated. The bulkhead leading out is "
+	ICALL2	DDESC,POD-DOOR
+	PRINTR	"."
+
+
+	.FUNCT	POD-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	POD-DOOR,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	GRTR?	TRIP-COUNTER,14 \?CCL8
+	FSET	POD-DOOR,OPENBIT
+	PRINTR	"The bulkhead opens and cold ocean water rushes in!"
+?CCL8:	GRTR?	BLOWUP-COUNTER,0 \?CCL10
+	EQUAL?	HERE,DECK-NINE \?CCL13
+	PRINTR	"Too late. The pod's launching procedure has already begun."
+?CCL13:	PRINTR	"Opening the door now would be a phenomenally stupid idea."
+?CCL10:	PRINTR	"Why open the door to the emergency escape pod if there's no emergency?"
+?CCL3:	EQUAL?	PRSA,V?CLOSE \?CCL15
+	FSET?	POD-DOOR,OPENBIT /?CCL18
+	CALL1	IS-CLOSED
+	RSTACK	
+?CCL18:	PRINTR	"You can't close it yourself."
+?CCL15:	EQUAL?	PRSA,V?THROUGH \FALSE
+	EQUAL?	HERE,DECK-NINE \?CCL23
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL23:	CALL2	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	GANGWAY-DOOR-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	FSET?	PRSO,OPENBIT \?CCL6
+	CALL1	ALREADY-OPEN
+	RSTACK	
+?CCL6:	PRINTR	"There doesn't seem to be any way to open it."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	FSET?	PRSO,OPENBIT \?CCL11
+	PRINTR	"You can't close it yourself."
+?CCL11:	CALL1	IS-CLOSED
+	RSTACK	
+
+
+	.FUNCT	I-BLOWUP-FEINSTEIN
+	CALL	QUEUE,I-BLOWUP-FEINSTEIN,-1
+	PUT	STACK,0,1
+	INC	'BLOWUP-COUNTER
+	EQUAL?	BLOWUP-COUNTER,5 \?CCL3
+	EQUAL?	HERE,DECK-NINE \?CCL6
+	CALL2	JIGS-UP,STR?91
+	RSTACK	
+?CCL6:	CRLF	
+	PRINTI	"Through the viewport of the pod you see the Feinstein dwindle as you head away. Bursts of light dot its hull. Suddenly, a huge explosion blows the Feinstein into tiny pieces, sending the escape pod tumbling away! "
+	CRLF	
+	CALL	QUEUE,I-POD-TRIP,-1
+	PUT	STACK,0,1
+	CALL2	INT,I-BLOWUP-FEINSTEIN
+	PUT	STACK,0,0
+	IN?	ADVENTURER,SAFETY-WEB /?CCL9
+	RANDOM	100
+	LESS?	20,STACK /?CCL9
+	CALL2	JIGS-UP,STR?92
+	RSTACK	
+?CCL9:	IN?	ADVENTURER,SAFETY-WEB /FALSE
+	CRLF	
+	PRINTR	"You are thrown against the bulkhead, bruising a few limbs. The safety webbing might have offered a bit more protection."
+?CCL3:	EQUAL?	BLOWUP-COUNTER,4 \?CCL15
+	CALL2	INT,I-BLATHER
+	PUT	STACK,0,0
+	CALL2	INT,I-AMBASSADOR
+	PUT	STACK,0,0
+	EQUAL?	HERE,DECK-NINE \?CCL18
+	CRLF	
+	PRINTR	"Explosions continue to rock the ship."
+?CCL18:	CRLF	
+	PRINTR	"You feel the pod begin to slide down its ejection tube as explosions shake the mother ship."
+?CCL15:	EQUAL?	BLOWUP-COUNTER,3 \?CCL20
+	FCLEAR	POD-DOOR,OPENBIT
+	EQUAL?	HERE,DECK-NINE \?CCL23
+	CRLF	
+	PRINTR	"More powerful explosions buffet the ship. The lights flicker madly, and the escape-pod bulkhead clangs shut."
+?CCL23:	EQUAL?	HERE,ESCAPE-POD \?CCL25
+	CRLF	
+	PRINTR	"The pod door clangs shut as heavy explosions continue to buffet the Feinstein."
+?CCL25:	CALL2	JIGS-UP,STR?93
+	RSTACK	
+?CCL20:	EQUAL?	BLOWUP-COUNTER,2 \?CCL27
+	FCLEAR	CORRIDOR-DOOR,OPENBIT
+	FCLEAR	CORRIDOR-DOOR,INVISIBLE
+	FCLEAR	GANGWAY-DOOR,OPENBIT
+	FCLEAR	GANGWAY-DOOR,INVISIBLE
+	EQUAL?	HERE,DECK-NINE \?CCL30
+	CRLF	
+	PRINTR	"More distant explosions! A narrow emergency bulkhead at the base of the gangway and a wider one along the corridor to starboard both crash shut!"
+?CCL30:	EQUAL?	HERE,ESCAPE-POD,BRIG \?CCL32
+	CRLF	
+	PRINTR	"The ship shakes again. You hear, from close by, the sounds of emergency bulkheads closing."
+?CCL32:	EQUAL?	HERE,GANGWAY \?CCL34
+	CRLF	
+	PRINTR	"Another explosion. A narrow bulkhead at the base of the gangway slams shut!"
+?CCL34:	CRLF	
+	PRINTI	"You are deafened by more explosions and by the sound of emergency bulkheads slamming closed. "
+	IN?	BLATHER,HERE \?CCL37
+	PRINTI	"Blather, foaming slightly at the mouth, screams at you to swab the decks"
+	JUMP	?CND35
+?CCL37:	MOVE	BLATHER,HERE
+	PRINTI	"Blather enters, looking confused, and begins ranting madly at you"
+?CND35:	PRINTR	"."
+?CCL27:	EQUAL?	BLOWUP-COUNTER,1 \FALSE
+	SET	'BRIGS-UP,0
+	FSET	POD-DOOR,OPENBIT
+	CRLF	
+	PRINTI	"A massive explosion rocks the ship. Echoes from the explosion resound deafeningly down the halls. "
+	EQUAL?	HERE,DECK-NINE \?CCL42
+	PRINTI	"The door to port slides open. "
+	IN?	AMBASSADOR,HERE \?CCL45
+	REMOVE	AMBASSADOR
+	REMOVE	CELERY
+	PRINTR	"The ambassador squawks frantically, evacuates a massive load of gooey slime, and rushes away."
+?CCL45:	IN?	BLATHER,HERE \?CCL47
+	REMOVE	BLATHER
+	PRINTR	"Blather, confused by this nonroutine occurrence, orders you to continue scrubbing the floor, and then dashes off."
+?CCL47:	CRLF	
+	RTRUE	
+?CCL42:	EQUAL?	HERE,ESCAPE-POD,GANGWAY,BRIG \?CCL49
+	CRLF	
+	RTRUE	
+?CCL49:	PRINTR	"Blather, looking slightly disoriented, barks at you to resume your assigned duties."
+
+
+	.FUNCT	I-POD-TRIP
+	INC	'TRIP-COUNTER
+	EQUAL?	TRIP-COUNTER,1 \?CCL3
+	CRLF	
+	PRINTR	"As the escape pod tumbles away from the former location of the Feinstein, its gyroscopes whine. The pod slowly stops tumbling. Lights on the control panel blink furiously as the autopilot searches for a reasonable destination."
+?CCL3:	EQUAL?	TRIP-COUNTER,2 \?CCL5
+	CRLF	
+	PRINTR	"The auxiliary rockets fire briefly, and a nearby planet swings into view through the port. It appears to be almost entirely ocean, with just a few visible islands and an unusually small polar ice cap. A moment later, the system's sun swings into view, and the viewport polarizes into a featureless black rectangle."
+?CCL5:	EQUAL?	TRIP-COUNTER,3 \?CCL7
+	CRLF	
+	PRINTR	"The main thrusters fire a long, gentle burst. A monotonic voice issues from the control panel. ""Approaching planet...human-habitable."""
+?CCL7:	EQUAL?	TRIP-COUNTER,7 \?CCL9
+	CRLF	
+	PRINTR	"The pod is buffeted as it enters the planet's atmosphere."
+?CCL9:	EQUAL?	TRIP-COUNTER,8 \?CCL11
+	CRLF	
+	PRINTR	"You feel the temperature begin to rise, and the pod's climate control system roars as it labors to compensate."
+?CCL11:	EQUAL?	TRIP-COUNTER,9 \?CCL13
+	CRLF	
+	PRINTR	"The viewport suddenly becomes transparent again, giving you a view of endless ocean below. The lights on the control panel flash madly as the pod's computer searches for a suitable landing site. The thrusters fire long and hard, slowing the pod's descent."
+?CCL13:	EQUAL?	TRIP-COUNTER,10 \?CCL15
+	CRLF	
+	PRINTR	"The pod is now approaching the closer of a pair of islands. It appears to be surrounded by sheer cliffs rising from the water, and is topped by a wide plateau. The plateau seems to be covered by a sprawling complex of buildings."
+?CCL15:	EQUAL?	TRIP-COUNTER,11 \FALSE
+	IN?	ADVENTURER,SAFETY-WEB \?CCL20
+	MOVE	FOOD-KIT,HERE
+	MOVE	TOWEL,HERE
+	CRLF	
+	PRINTI	"The pod lands with a thud. Through the viewport you can see a rocky cleft and some water below. The pod rocks gently back and forth as if it was precariously balanced. A previously unseen panel slides open, revealing some emergency provisions, including a survival kit and a towel."
+	CRLF	
+	SET	'TRIP-COUNTER,15
+	CALL2	INT,I-POD-TRIP
+	PUT	STACK,0,0
+	RTRUE	
+?CCL20:	CALL2	JIGS-UP,STR?94
+	RSTACK	
+
+
+	.FUNCT	I-SINK-POD
+	INC	'SINK-COUNTER
+	EQUAL?	SINK-COUNTER,3 \?CCL3
+	EQUAL?	HERE,ESCAPE-POD \?CCL3
+	CRLF	
+	PRINTR	"The pod is now completely submerged, and you feel it smash against underwater rocks. Bubbles streaming upward past the window indicate that the pod is continuing to sink."
+?CCL3:	EQUAL?	SINK-COUNTER,4 \?CCL7
+	EQUAL?	HERE,ESCAPE-POD \?CCL7
+	FSET?	POD-DOOR,OPENBIT /?CCL7
+	CRLF	
+	PRINTR	"The pod creaks ominously from the increasing pressure."
+?CCL7:	EQUAL?	SINK-COUNTER,5 \FALSE
+	EQUAL?	HERE,ESCAPE-POD \FALSE
+	FSET?	POD-DOOR,OPENBIT \?CCL17
+	CALL2	JIGS-UP,STR?95
+	RSTACK	
+?CCL17:	CALL2	JIGS-UP,STR?96
+	RSTACK	
+
+
+	.FUNCT	SLOT-F
+	EQUAL?	PRSA,V?PUT \?CCL3
+	EQUAL?	SLOT,PRSI \?CCL3
+	PRINTR	"The slot is shallow, so you can't put anything in it. It may be possible to slide something through the slot, though."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	PRINTR	"The slot is about ten centimeters wide, but only about two centimeters deep. It is surrounded on its long sides by parallel ridges of metal."
+?CCL7:	EQUAL?	PRSA,V?SLIDE \FALSE
+	EQUAL?	SLOT,PRSI \FALSE
+	MOVE	PRSO,ADVENTURER
+	FSET?	PRSO,SCRAMBLEDBIT \?CCL14
+	PRINTR	"A sign flashes ""Magnetik striip randumiizd...konsult Prajekt Handbuk abowt propur kaar uv awtharazaashun kardz."""
+?CCL14:	EQUAL?	PRSO,KITCHEN-CARD \?CCL16
+	EQUAL?	HERE,MESS-HALL \?CCL19
+	FSET?	KITCHEN-DOOR,OPENBIT \?CCL22
+	PRINTR	"Nothing happens."
+?CCL22:	FSET	KITCHEN-DOOR,OPENBIT
+	CALL	QUEUE,I-KITCHEN-DOOR-CLOSES,50
+	PUT	STACK,0,1
+	PRINTI	"The kitchen door quietly slides open."
+	CRLF	
+	ICALL1	FLOYD-REVEAL-CARD-F
+	RTRUE	
+?CCL19:	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+?CCL16:	EQUAL?	PRSO,UPPER-ELEVATOR-CARD \?CCL24
+	EQUAL?	HERE,UPPER-ELEVATOR \?CCL27
+	SET	'UPPER-ELEVATOR-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-UPPER-ELEVATOR,180
+	PUT	STACK,0,1
+	PRINT	ELEVATOR-ENABLED
+	CRLF	
+	ICALL1	FLOYD-REVEAL-CARD-F
+	RTRUE	
+?CCL27:	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+?CCL24:	EQUAL?	PRSO,LOWER-ELEVATOR-CARD \?CCL29
+	EQUAL?	HERE,LOWER-ELEVATOR \?CCL32
+	SET	'LOWER-ELEVATOR-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-LOWER-ELEVATOR,200
+	PUT	STACK,0,1
+	PRINT	ELEVATOR-ENABLED
+	CRLF	
+	RTRUE	
+?CCL32:	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+?CCL29:	EQUAL?	PRSO,TELEPORTATION-CARD \?CCL34
+	EQUAL?	HERE,BOOTH-1,BOOTH-2,BOOTH-3 \?CCL37
+	SET	'TELEPORTATION-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-TELEPORTATION,30
+	PUT	STACK,0,1
+	PRINTR	"Nothing happens for a moment. Then a light flashes ""Redee."""
+?CCL37:	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+?CCL34:	EQUAL?	PRSO,SHUTTLE-CARD \?CCL39
+	CALL1	SHUTTLE-ACTIVATE
+	RSTACK	
+?CCL39:	EQUAL?	PRSO,MINI-CARD \?CCL41
+	EQUAL?	HERE,MINI-BOOTH \?CCL44
+	SET	'MINI-ACTIVATED,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-MINI,30
+	PUT	STACK,0,1
+	PRINTR	"A melodic high-pitched voice says ""Miniaturization and teleportation booth activated. Please type in damaged sector number."""
+?CCL44:	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+?CCL41:	EQUAL?	PRSO,ID-CARD \FALSE
+	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	FLOYD-REVEAL-CARD-F
+	IN?	FLOYD,HERE \FALSE
+	ZERO?	CARD-REVEALED \FALSE
+	EQUAL?	DAY,2 \?PRD8
+	LESS?	INTERNAL-MOVES,5000 \?PRD8
+	RANDOM	100
+	LESS?	5,STACK \?CCL3
+?PRD8:	EQUAL?	DAY,2 \?PRD12
+	GRTR?	INTERNAL-MOVES,4999 \?PRD12
+	RANDOM	100
+	LESS?	10,STACK \?CCL3
+?PRD12:	EQUAL?	DAY,3 \?PRD16
+	LESS?	INTERNAL-MOVES,5000 \?PRD16
+	RANDOM	100
+	LESS?	20,STACK \?CCL3
+?PRD16:	EQUAL?	DAY,3 \?PRD20
+	GRTR?	INTERNAL-MOVES,4999 \?PRD20
+	RANDOM	100
+	LESS?	40,STACK \?CCL3
+?PRD20:	GRTR?	DAY,3 \FALSE
+?CCL3:	SET	'CARD-REVEALED,TRUE-VALUE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	ZERO?	CARD-STOLEN \?CCL26
+	MOVE	LOWER-ELEVATOR-CARD,FLOYD
+	PRINTR	"Floyd claps his hands with excitement. ""Those cards are really neat, huh? Floyd has one for himself--see?"" He reaches behind one of his panels and retrieves a magnetic-striped card. He waves it exuberantly in the air."
+?CCL26:	PRINTR	"Floyd bobs up and down with excitement. ""Those cards are really neat! Floyd has one, too."" He begins searching through his compartments, but finds nothing. He scratches his head and looks confused."
+
+
+	.FUNCT	I-KITCHEN-DOOR-CLOSES
+	EQUAL?	HERE,KITCHEN \?CCL3
+	CALL	QUEUE,I-KITCHEN-DOOR-CLOSES,-1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	FCLEAR	KITCHEN-DOOR,OPENBIT
+	CALL2	INT,I-KITCHEN-DOOR-CLOSES
+	PUT	STACK,0,0
+	EQUAL?	HERE,MESS-HALL \FALSE
+	CRLF	
+	PRINTR	"The kitchen door slides quietly closed."
+
+
+	.FUNCT	TELEPORT,BOOTH
+	EQUAL?	PRSA,V?PUSH \FALSE
+	EQUAL?	TELEPORTATION-ON,TRUE-VALUE \?CCL6
+	PRINTI	"You experience a strange feeling in the pit of your stomach."
+	CRLF	
+	IN?	FLOYD,HERE \?CND7
+	PRINTI	"Floyd gives a terrified squeal, and clutches at his guidance mechanism."
+	CRLF	
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	CALL	QUEUE,I-FLOYD,1
+	PUT	STACK,0,1
+?CND7:	ICALL	ROB,HERE,BOOTH
+	ICALL	GOTO,BOOTH,FALSE-VALUE
+	CALL2	INT,I-TURNOFF-TELEPORTATION
+	PUT	STACK,0,0
+	SET	'TELEPORTATION-ON,FALSE-VALUE
+	RTRUE	
+?CCL6:	PRINTR	"A sign flashes ""Teleportaashun buux not aktivaatid."""
+
+
+	.FUNCT	TELEPORTATION-BUTTON-1-F
+	CALL2	TELEPORT,BOOTH-1
+	RSTACK	
+
+
+	.FUNCT	TELEPORTATION-BUTTON-2-F
+	CALL2	TELEPORT,BOOTH-2
+	RSTACK	
+
+
+	.FUNCT	TELEPORTATION-BUTTON-3-F
+	CALL2	TELEPORT,BOOTH-3
+	RSTACK	
+
+
+	.FUNCT	I-TURNOFF-TELEPORTATION
+	SET	'TELEPORTATION-ON,FALSE-VALUE
+	EQUAL?	HERE,BOOTH-1,BOOTH-2,BOOTH-3 \FALSE
+	CRLF	
+	PRINTR	"The ready light goes dark."
+
+
+	.FUNCT	GLOBAL-SHUTTLE-F
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?ENTER /?CTR2
+	EQUAL?	PRSA,V?BOARD \?CCL3
+?CTR2:	EQUAL?	HERE,SHUTTLE-CAR-ALFIE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST /?CTR7
+	EQUAL?	HERE,SHUTTLE-CAR-BETTY,BETTY-CONTROL-EAST,BETTY-CONTROL-WEST \?CCL8
+?CTR7:	PRINTR	"You ARE in the shuttle car."
+?CCL8:	PRINTR	"Use 'north' or 'south'."
+?CCL3:	EQUAL?	PRSA,V?DROP,V?DISEMBARK,V?EXIT \FALSE
+	EQUAL?	HERE,SHUTTLE-CAR-ALFIE \?CCL15
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?CCL15:	EQUAL?	HERE,SHUTTLE-CAR-BETTY \?CCL17
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL17:	EQUAL?	HERE,BETTY-CONTROL-EAST,BETTY-CONTROL-WEST /?CTR18
+	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST \?CCL19
+?CTR18:	PRINTR	"You can't exit the shuttle car from here."
+?CCL19:	PRINTR	"You're not in the shuttle car!"
+
+
+	.FUNCT	SHUTTLE-CAR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is the cabin of a large transport, with seating for around 20 people plus space for freight. There are open doors at the eastern and western ends of the cabin, and a doorway leads out to a wide platform to the "
+	EQUAL?	HERE,SHUTTLE-CAR-ALFIE \?CCL6
+	PRINTI	"north"
+	JUMP	?CND4
+?CCL6:	PRINTI	"south"
+?CND4:	PRINTR	"."
+
+
+	.FUNCT	CONTROL-CABIN-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a small control cabin. A control panel contains a slot, a lever, and a display. The lever can be set at a central position, or it could be pushed up to a position labelled ""+"", or pulled down to a position labelled ""-"". It is currently at the "
+	ZERO?	LEVER-SETTING \?CCL6
+	PRINTI	"center"
+	JUMP	?CND4
+?CCL6:	EQUAL?	LEVER-SETTING,1 \?CCL8
+	PRINTI	"upper"
+	JUMP	?CND4
+?CCL8:	PRINTI	"lower"
+?CND4:	PRINTI	" setting. The display, a digital readout, currently reads "
+	PRINTN	SHUTTLE-VELOCITY
+	PRINTI	". Through the cabin window you can see "
+	ICALL1	DESCRIBE-VIEW
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-VIEW
+	EQUAL?	HERE,ALFIE-CONTROL-WEST \?PRD5
+	ZERO?	ALFIE-AT-KALAMONTEE \?CTR2
+?PRD5:	EQUAL?	HERE,BETTY-CONTROL-WEST \?PRD8
+	ZERO?	BETTY-AT-KALAMONTEE \?CTR2
+?PRD8:	EQUAL?	HERE,ALFIE-CONTROL-EAST \?PRD11
+	ZERO?	ALFIE-AT-KALAMONTEE /?CTR2
+?PRD11:	EQUAL?	HERE,BETTY-CONTROL-EAST \?CCL3
+	ZERO?	BETTY-AT-KALAMONTEE \?CCL3
+?CTR2:	PRINTI	"a featureless concrete wall."
+	RTRUE	
+?CCL3:	ZERO?	SHUTTLE-MOVING /?CCL17
+	EQUAL?	SHUTTLE-COUNTER,23 \?CCL17
+	PRINTI	"parallel rails ending at a brightly lit station ahead."
+	RTRUE	
+?CCL17:	PRINTI	"parallel rails running along the floor of a long tunnel, vanishing in the distance."
+	RTRUE	
+
+
+	.FUNCT	SHUTTLE-DOOR-F
+	EQUAL?	PRSA,V?OPEN \FALSE
+	ZERO?	SHUTTLE-MOVING /?CCL6
+	PRINTR	"A recorded voice says ""Operator should remain in control cabin while shuttle car is between stations."""
+?CCL6:	PRINTR	"Are you sure it isn't?"
+
+
+	.FUNCT	SHUTTLE-ENTER-F
+	EQUAL?	HERE,KALAMONTEE-PLATFORM \?CCL3
+	EQUAL?	PRSO,P?NORTH \?CCL6
+	ZERO?	BETTY-AT-KALAMONTEE /?CCL9
+	RETURN	SHUTTLE-CAR-BETTY
+?CCL9:	PRINT	CANT-GO
+	CRLF	
+	RFALSE	
+?CCL6:	EQUAL?	PRSO,P?SOUTH \FALSE
+	ZERO?	ALFIE-AT-KALAMONTEE /?CCL14
+	RETURN	SHUTTLE-CAR-ALFIE
+?CCL14:	PRINT	CANT-GO
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	HERE,LAWANDA-PLATFORM \FALSE
+	EQUAL?	PRSO,P?NORTH \?CCL19
+	ZERO?	BETTY-AT-KALAMONTEE /?CCL22
+	PRINT	CANT-GO
+	CRLF	
+	RFALSE	
+?CCL22:	RETURN	SHUTTLE-CAR-BETTY
+?CCL19:	EQUAL?	PRSO,P?SOUTH \FALSE
+	ZERO?	ALFIE-AT-KALAMONTEE /?CCL27
+	PRINT	CANT-GO
+	CRLF	
+	RFALSE	
+?CCL27:	RETURN	SHUTTLE-CAR-ALFIE
+
+
+	.FUNCT	SHUTTLE-EXIT-F
+	EQUAL?	HERE,SHUTTLE-CAR-ALFIE \?CCL3
+	ZERO?	ALFIE-AT-KALAMONTEE /?CCL6
+	RETURN	KALAMONTEE-PLATFORM
+?CCL6:	RETURN	LAWANDA-PLATFORM
+?CCL3:	EQUAL?	HERE,SHUTTLE-CAR-BETTY \FALSE
+	ZERO?	BETTY-AT-KALAMONTEE /?CCL11
+	RETURN	KALAMONTEE-PLATFORM
+?CCL11:	RETURN	LAWANDA-PLATFORM
+
+
+	.FUNCT	SHUTTLE-ACTIVATE
+	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST /?CCL3
+	EQUAL?	HERE,BETTY-CONTROL-EAST,BETTY-CONTROL-WEST /?CCL3
+	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+?CCL3:	ZERO?	ALFIE-BROKEN /?PRD9
+	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST /?CTR6
+?PRD9:	ZERO?	BETTY-BROKEN /?CCL7
+	EQUAL?	HERE,BETTY-CONTROL-EAST,BETTY-CONTROL-WEST \?CCL7
+?CTR6:	PRINTR	"A garbled recording mentions that the shuttle car has undergone some damage and that the repair robot has been summoned."
+?CCL7:	GRTR?	INTERNAL-MOVES,6000 \?CND1
+	PRINTR	"A recorded voice explains that using the shuttle car during the evening hours requires special authorization."
+?CND1:	EQUAL?	HERE,ALFIE-CONTROL-EAST \?CCL17
+	ZERO?	SHUTTLE-ON /?CCL20
+	PRINT	SHUTTLE-RECORDING-1
+	CRLF	
+	RTRUE	
+?CCL20:	ZERO?	ALFIE-AT-KALAMONTEE \?CCL22
+	PRINT	SHUTTLE-RECORDING-2
+	CRLF	
+	RTRUE	
+?CCL22:	SET	'SHUTTLE-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-SHUTTLE,80
+	PUT	STACK,0,1
+	PRINT	SHUTTLE-RECORDING-3
+	CRLF	
+	RTRUE	
+?CCL17:	EQUAL?	HERE,ALFIE-CONTROL-WEST \?CCL24
+	ZERO?	SHUTTLE-ON /?CCL27
+	PRINT	SHUTTLE-RECORDING-1
+	CRLF	
+	RTRUE	
+?CCL27:	ZERO?	ALFIE-AT-KALAMONTEE /?CCL29
+	PRINT	SHUTTLE-RECORDING-2
+	CRLF	
+	RTRUE	
+?CCL29:	SET	'SHUTTLE-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-SHUTTLE,80
+	PUT	STACK,0,1
+	PRINT	SHUTTLE-RECORDING-3
+	CRLF	
+	RTRUE	
+?CCL24:	EQUAL?	HERE,BETTY-CONTROL-EAST \?CCL31
+	ZERO?	SHUTTLE-ON /?CCL34
+	PRINT	SHUTTLE-RECORDING-1
+	CRLF	
+	RTRUE	
+?CCL34:	ZERO?	BETTY-AT-KALAMONTEE \?CCL36
+	PRINT	SHUTTLE-RECORDING-2
+	CRLF	
+	RTRUE	
+?CCL36:	SET	'SHUTTLE-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-SHUTTLE,80
+	PUT	STACK,0,1
+	PRINT	SHUTTLE-RECORDING-3
+	CRLF	
+	RTRUE	
+?CCL31:	EQUAL?	HERE,BETTY-CONTROL-WEST \?CCL38
+	ZERO?	SHUTTLE-ON /?CCL41
+	PRINT	SHUTTLE-RECORDING-1
+	CRLF	
+	RTRUE	
+?CCL41:	ZERO?	BETTY-AT-KALAMONTEE /?CCL43
+	PRINT	SHUTTLE-RECORDING-2
+	CRLF	
+	RTRUE	
+?CCL43:	SET	'SHUTTLE-ON,TRUE-VALUE
+	CALL	QUEUE,I-TURNOFF-SHUTTLE,80
+	PUT	STACK,0,1
+	PRINT	SHUTTLE-RECORDING-3
+	CRLF	
+	RTRUE	
+?CCL38:	PRINT	WRONG-CARD
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-TURNOFF-SHUTTLE
+	ZERO?	SHUTTLE-MOVING /?CCL3
+	CALL	QUEUE,I-TURNOFF-SHUTTLE,80
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	SET	'SHUTTLE-ON,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	LEVER-F
+	EQUAL?	PRSA,V?PUSH-UP,V?PUSH \?CCL3
+	ZERO?	SHUTTLE-ON /?CCL6
+	EQUAL?	LEVER-SETTING,1 \?CCL9
+	PRINTR	"The lever is already in the upper position."
+?CCL9:	ZERO?	LEVER-SETTING \?CCL11
+	SET	'LEVER-SETTING,1
+	CALL	QUEUE,I-SHUTTLE,1
+	PUT	STACK,0,1
+	PRINTR	"The lever is now in the upper position."
+?CCL11:	SET	'LEVER-SETTING,0
+	PRINTR	"The lever is now in the central position."
+?CCL6:	PRINT	SHUTTLE-RECORDING-4
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PUSH-DOWN,V?PULL \FALSE
+	ZERO?	SHUTTLE-ON /?CCL16
+	EQUAL?	LEVER-SETTING,1 \?CCL19
+	SET	'LEVER-SETTING,0
+	PRINTR	"The lever is now in the central position."
+?CCL19:	ZERO?	LEVER-SETTING \?CCL21
+	ZERO?	SHUTTLE-VELOCITY \?CCL24
+	PRINTR	"The lever immediately pops back to the central position."
+?CCL24:	SET	'LEVER-SETTING,-1
+	CALL	QUEUE,I-SHUTTLE,1
+	PUT	STACK,0,1
+	PRINTR	"The lever is now in the lower position."
+?CCL21:	PRINTR	"The lever is already in the lower position."
+?CCL16:	PRINT	SHUTTLE-RECORDING-4
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-SHUTTLE
+	CALL	QUEUE,I-SHUTTLE,-1
+	PUT	STACK,0,1
+	ZERO?	SHUTTLE-MOVING \?CCL3
+	SET	'SHUTTLE-MOVING,TRUE-VALUE
+	FCLEAR	SHUTTLE-DOOR,OPENBIT
+	FCLEAR	SHUTTLE-DOOR,INVISIBLE
+	PRINTI	"The control cabin door slides shut and the shuttle car begins to move "
+	EQUAL?	LEVER-SETTING,1 \FALSE
+	ADD	SHUTTLE-VELOCITY,5 >SHUTTLE-VELOCITY
+	PRINTR	"forward! The display changes to 5."
+?CCL3:	GRTR?	SHUTTLE-VELOCITY,0 \?CND7
+	INC	'SHUTTLE-COUNTER
+?CND7:	EQUAL?	LEVER-SETTING,1 \?CCL11
+	ADD	SHUTTLE-VELOCITY,5 >SHUTTLE-VELOCITY
+	JUMP	?CND9
+?CCL11:	EQUAL?	LEVER-SETTING,-1 \?CND9
+	GRTR?	SHUTTLE-VELOCITY,0 \?CCL15
+	SUB	SHUTTLE-VELOCITY,5 >SHUTTLE-VELOCITY
+	JUMP	?CND9
+?CCL15:	SET	'LEVER-SETTING,0
+	PRINTI	"The shuttle car comes to a stop and the lever pops back to the central position."
+	CRLF	
+?CND9:	EQUAL?	SHUTTLE-COUNTER,24 \?CCL18
+	CALL1	DESCRIBE-SHUTTLE-ARRIVE
+	RSTACK	
+?CCL18:	GRTR?	SHUTTLE-VELOCITY,0 \FALSE
+	ICALL1	DESCRIBE-SHUTTLE-TRIP
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-SHUTTLE-TRIP
+	PRINTI	"The shuttle car continues to move. The display "
+	ZERO?	LEVER-SETTING \?CCL3
+	PRINTI	"still reads "
+	JUMP	?CND1
+?CCL3:	PRINTI	"blinks, and now reads "
+?CND1:	PRINTN	SHUTTLE-VELOCITY
+	PRINTC	46
+	CRLF	
+	EQUAL?	SHUTTLE-COUNTER,2 \?CND4
+	PRINTI	"You pass a sign which says ""Limit 45."""
+	CRLF	
+?CND4:	EQUAL?	SHUTTLE-COUNTER,12 \?CND6
+	PRINTI	"The tunnel levels out and begins to slope upward. A sign flashes by which reads ""Hafwaa Mark -- Beegin Deeseluraashun."""
+	CRLF	
+?CND6:	EQUAL?	SHUTTLE-COUNTER,20 \?CND8
+	PRINT	SIGN-PASS
+	PRINTI	"""15."""
+	CRLF	
+?CND8:	EQUAL?	SHUTTLE-COUNTER,21 \?CND10
+	PRINT	SIGN-PASS
+	PRINTI	"""10."""
+	CRLF	
+?CND10:	EQUAL?	SHUTTLE-COUNTER,22 \?CND12
+	PRINT	SIGN-PASS
+	PRINTI	"""5."""
+	CRLF	
+?CND12:	EQUAL?	SHUTTLE-COUNTER,23 \FALSE
+	PRINTR	"The shuttle car is approaching a brightly lit area. As you near it, you make out the concrete platforms of a shuttle station."
+
+
+	.FUNCT	DESCRIBE-SHUTTLE-ARRIVE
+	EQUAL?	SHUTTLE-COUNTER,24 \FALSE
+	ZERO?	SHUTTLE-VELOCITY \?CCL6
+	PRINTI	"The shuttle car glides into the station and comes to rest at the concrete platform. You hear the cabin doors slide open."
+	CRLF	
+	JUMP	?CND4
+?CCL6:	LESS?	SHUTTLE-VELOCITY,20 \?CCL8
+	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST \?CCL11
+	SET	'ALFIE-BROKEN,TRUE-VALUE
+	JUMP	?CND9
+?CCL11:	SET	'BETTY-BROKEN,TRUE-VALUE
+?CND9:	PRINTI	"The shuttle car rumbles through the station and smashes into the wall at the far end. You are thrown forward into the control panel. Both you and the shuttle car produce unhealthy crunching sounds as the cabin doors creak slowly open."
+	CRLF	
+	JUMP	?CND4
+?CCL8:	ICALL2	JIGS-UP,STR?104
+?CND4:	SET	'SHUTTLE-VELOCITY,0
+	SET	'SHUTTLE-MOVING,FALSE-VALUE
+	SET	'SHUTTLE-COUNTER,0
+	SET	'LEVER-SETTING,0
+	SET	'SHUTTLE-ON,FALSE-VALUE
+	FSET	SHUTTLE-DOOR,INVISIBLE
+	FSET	SHUTTLE-DOOR,OPENBIT
+	CALL2	INT,I-SHUTTLE
+	PUT	STACK,0,0
+	EQUAL?	HERE,ALFIE-CONTROL-EAST,ALFIE-CONTROL-WEST \?CCL14
+	ZERO?	ALFIE-AT-KALAMONTEE /?CCL17
+	SET	'ALFIE-AT-KALAMONTEE,FALSE-VALUE
+	RETURN	ALFIE-AT-KALAMONTEE
+?CCL17:	SET	'ALFIE-AT-KALAMONTEE,TRUE-VALUE
+	RETURN	ALFIE-AT-KALAMONTEE
+?CCL14:	ZERO?	BETTY-AT-KALAMONTEE /?CCL20
+	SET	'BETTY-AT-KALAMONTEE,FALSE-VALUE
+	RETURN	BETTY-AT-KALAMONTEE
+?CCL20:	SET	'BETTY-AT-KALAMONTEE,TRUE-VALUE
+	RETURN	BETTY-AT-KALAMONTEE
+
+
+	.FUNCT	I-SLEEP-WARNINGS
+	INC	'SLEEPY-LEVEL
+	IN?	ADVENTURER,BED \?CND1
+	CRLF	
+	PRINTI	"You suddenly realize how tired you were and how comfortable the bed is. You should be asleep in no time."
+	CRLF	
+	CALL2	INT,I-SLEEP-WARNINGS
+	PUT	STACK,0,0
+	CALL	QUEUE,I-FALL-ASLEEP,16
+	PUT	STACK,0,1
+	RTRUE	
+?CND1:	EQUAL?	SLEEPY-LEVEL,1 \?CCL5
+	CRLF	
+	PRINTI	"You begin to feel weary. It might be time to think about finding a nice safe place to sleep."
+	CRLF	
+	CALL	QUEUE,I-SLEEP-WARNINGS,400
+	PUT	STACK,0,1
+	RTRUE	
+?CCL5:	EQUAL?	SLEEPY-LEVEL,2 \?CCL7
+	CRLF	
+	PRINTI	"You're really tired now. You'd better find a place to sleep real soon."
+	CRLF	
+	CALL	QUEUE,I-SLEEP-WARNINGS,135
+	PUT	STACK,0,1
+	RTRUE	
+?CCL7:	EQUAL?	SLEEPY-LEVEL,3 \?CCL9
+	CRLF	
+	PRINTI	"If you don't get some sleep soon you'll probably drop."
+	CRLF	
+	CALL	QUEUE,I-SLEEP-WARNINGS,60
+	PUT	STACK,0,1
+	RTRUE	
+?CCL9:	EQUAL?	SLEEPY-LEVEL,4 \?CCL11
+	CRLF	
+	PRINTI	"You can barely keep your eyes open."
+	CRLF	
+	CALL	QUEUE,I-SLEEP-WARNINGS,50
+	PUT	STACK,0,1
+	RTRUE	
+?CCL11:	EQUAL?	SLEEPY-LEVEL,5 \FALSE
+	EQUAL?	HERE,BED \?CCL16
+	CRLF	
+	PRINTI	"You slowly sink into a deep and blissful sleep."
+	CRLF	
+	CALL1	DREAMING
+	RSTACK	
+?CCL16:	EQUAL?	HERE,DORM-A,DORM-B /?CTR17
+	EQUAL?	HERE,DORM-C,DORM-D \?CCL18
+?CTR17:	CRLF	
+	PRINTI	"You climb into one of the bunk beds and immediately fall asleep."
+	CRLF	
+	ICALL2	GOTO,BED
+	CALL1	DREAMING
+	RSTACK	
+?CCL18:	CRLF	
+	PRINTI	"You can't stay awake a moment longer. You drop to the ground and fall into a deep but fitful sleep."
+	CRLF	
+	EQUAL?	DAY,1 \?PRD25
+	EQUAL?	HERE,CRAG /?CTR22
+?PRD25:	EQUAL?	DAY,3 \?PRD28
+	EQUAL?	HERE,BALCONY /?CTR22
+?PRD28:	EQUAL?	DAY,5 \?CCL23
+	EQUAL?	HERE,WINDING-STAIR \?CCL23
+?CTR22:	CALL2	JIGS-UP,STR?106
+	RSTACK	
+?CCL23:	RANDOM	100
+	LESS?	30,STACK /?CCL34
+	CALL2	JIGS-UP,STR?107
+	RSTACK	
+?CCL34:	CALL1	DREAMING
+	RSTACK	
+
+
+	.FUNCT	BED-F,RARG
+	ASSIGNED?	'RARG /?CND1
+	SET	'RARG,M-OBJECT
+?CND1:	EQUAL?	PRSA,V?WALK \?CCL5
+	EQUAL?	RARG,M-BEG \?CCL5
+	PRINTR	"You'll have to stand up, first."
+?CCL5:	EQUAL?	PRSA,V?CLOSE,V?OPEN,V?TAKE /?PRD11
+	EQUAL?	PRSA,V?RUB \?CCL9
+?PRD11:	EQUAL?	RARG,M-BEG \?CCL9
+	EQUAL?	PRSO,BED /?CCL9
+	PRINTR	"You can't reach it from here."
+?CCL9:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?THROUGH \?CCL18
+	EQUAL?	HERE,INFIRMARY \?CCL21
+	CALL2	JIGS-UP,STR?108
+	RSTACK	
+?CCL21:	GRTR?	SLEEPY-LEVEL,0 \?CCL23
+	ICALL2	GOTO,BED
+	CALL	QUEUE,I-FALL-ASLEEP,16
+	PUT	STACK,0,1
+	CALL2	INT,I-SLEEP-WARNINGS
+	PUT	STACK,0,0
+	PRINTR	"Ahhh...the bed is soft and comfortable. You should be asleep in short order."
+?CCL23:	ICALL2	GOTO,BED
+	PRINTR	"You are now in bed."
+?CCL18:	EQUAL?	PRSA,V?EXIT,V?STAND,V?DISEMBARK /?PRD27
+	EQUAL?	PRSA,V?DROP \?CCL25
+?PRD27:	CALL2	INT,I-FALL-ASLEEP
+	GET	STACK,C-TICK
+	ZERO?	STACK /?CCL25
+	PRINTR	"How could you suggest such a thing when you're so tired and this bed is so comfy?"
+?CCL25:	EQUAL?	PRSA,V?DROP,V?EXIT,V?LEAVE \?CCL31
+	ICALL	PERFORM,V?DISEMBARK,BED
+	RTRUE	
+?CCL31:	EQUAL?	PRSA,V?PUT \FALSE
+	EQUAL?	BED,PRSI \FALSE
+	MOVE	PRSO,HERE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" bounces off the bed and lands on the floor."
+
+
+	.FUNCT	I-FALL-ASLEEP
+	CRLF	
+	PRINTI	"You slowly sink into a deep and restful sleep."
+	CRLF	
+	CALL2	INT,I-FALL-ASLEEP
+	PUT	STACK,0,0
+	CALL1	DREAMING
+	RSTACK	
+
+
+	.FUNCT	DREAMING
+	FSET?	FORK,TOUCHBIT \?CCL3
+	RANDOM	100
+	LESS?	13,STACK /?CCL3
+	PRINTI	"You are in a busy office crowded with people. The only one you recognize is Floyd. He rushes back and forth between the desks, carrying papers and delivering coffee. He notices you, and asks how your project is coming, and whether you have time to tell him a story. You look into his deep, trusting eyes..."
+	CRLF	
+	JUMP	?CND1
+?CCL3:	RANDOM	100
+	LESS?	60,STACK /?CND1
+	CRLF	
+	CALL2	PICK-ONE,DREAMS
+	PRINT	STACK
+	CRLF	
+?CND1:	CALL1	WAKING-UP
+	RSTACK	
+
+
+	.FUNCT	WAKING-UP,X,N
+	INC	'DAY
+	SET	'SICKNESS-WARNING-FLAG,TRUE-VALUE
+	SET	'SLEEPY-LEVEL,0
+	ICALL1	RESET-TIME
+	FIRST?	ADVENTURER >X /?PRG2
+?PRG2:	ZERO?	X /?REP3
+	NEXT?	X >N /?BOGUS7
+?BOGUS7:	FSET?	X,WORNBIT /?CND8
+	MOVE	X,HERE
+?CND8:	EQUAL?	X,CANTEEN \?CND10
+	IN?	HIGH-PROTEIN,CANTEEN \?CND10
+	FSET?	CANTEEN,OPENBIT \?CND10
+	REMOVE	HIGH-PROTEIN
+?CND10:	EQUAL?	X,FLASK \?CND15
+	IN?	CHEMICAL-FLUID,FLASK \?CND15
+	REMOVE	CHEMICAL-FLUID
+?CND15:	SET	'X,N
+	JUMP	?PRG2
+?REP3:	PRINTI	"
+***** SEPTEM "
+	ADD	DAY,5
+	PRINTN	STACK
+	PRINTI	", 11344 *****
+
+"
+	IN?	ADVENTURER,BED /?CCL21
+	PRINTI	"You wake and slowly stand up, feeling stiff from your night on the floor."
+	JUMP	?CND19
+?CCL21:	LESS?	SICKNESS-LEVEL,3 \?CCL23
+	PRINTI	"You wake up feeling refreshed and ready to face the challenges of this mysterious world."
+	JUMP	?CND19
+?CCL23:	LESS?	SICKNESS-LEVEL,6 \?CCL25
+	PRINTI	"You wake after sleeping restlessly. You feel weak and listless."
+	JUMP	?CND19
+?CCL25:	PRINTI	"You wake feeling weak and worn-out. It will be an effort just to stand up."
+?CND19:	GRTR?	HUNGER-LEVEL,0 \?CCL28
+	SET	'HUNGER-LEVEL,4
+	CALL	QUEUE,I-HUNGER-WARNINGS,100
+	PUT	STACK,0,1
+	PRINTI	" You are also incredibly famished. Better get some breakfast!"
+	JUMP	?CND26
+?CCL28:	CALL	QUEUE,I-HUNGER-WARNINGS,400
+	PUT	STACK,0,1
+?CND26:	CRLF	
+	FSET?	FLOYD,RLANDBIT \FALSE
+	ZERO?	FLOYD-INTRODUCED /FALSE
+	MOVE	FLOYD,HERE
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	IN?	ADVENTURER,BED \?CCL36
+	PRINTR	"Floyd bounces impatiently at the foot of the bed. ""About time you woke up, you lazy bones! Let's explore around some more!"""
+?CCL36:	PRINTR	"Floyd gives you a nudge with his foot and giggles. ""You sure look silly sleeping on the floor,"" he says."
+
+
+	.FUNCT	RESET-TIME
+	EQUAL?	DAY,2 \?CCL3
+	FCLEAR	BALCONY,TOUCHBIT
+	RANDOM	80
+	ADD	1600,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,5800
+	PUT	STACK,0,1
+	RTRUE	
+?CCL3:	EQUAL?	DAY,3 \?CCL5
+	FCLEAR	BALCONY,TOUCHBIT
+	RANDOM	80
+	ADD	1750,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,5550
+	PUT	STACK,0,1
+	RTRUE	
+?CCL5:	EQUAL?	DAY,4 \?CCL7
+	FCLEAR	WINDING-STAIR,TOUCHBIT
+	RANDOM	80
+	ADD	1950,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,5200
+	PUT	STACK,0,1
+	RTRUE	
+?CCL7:	EQUAL?	DAY,5 \?CCL9
+	FCLEAR	WINDING-STAIR,TOUCHBIT
+	RANDOM	80
+	ADD	2150,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,4800
+	PUT	STACK,0,1
+	RTRUE	
+?CCL9:	EQUAL?	DAY,6 \?CCL11
+	FCLEAR	COURTYARD,TOUCHBIT
+	RANDOM	80
+	ADD	2450,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,4300
+	PUT	STACK,0,1
+	RTRUE	
+?CCL11:	EQUAL?	DAY,7 \?CCL13
+	FCLEAR	COURTYARD,TOUCHBIT
+	RANDOM	80
+	ADD	2800,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,3700
+	PUT	STACK,0,1
+	RTRUE	
+?CCL13:	EQUAL?	DAY,8 \?CCL15
+	RANDOM	80
+	ADD	3200,STACK >INTERNAL-MOVES
+	CALL	QUEUE,I-SLEEP-WARNINGS,3000
+	PUT	STACK,0,1
+	RTRUE	
+?CCL15:	EQUAL?	DAY,9 \FALSE
+	CALL2	JIGS-UP,STR?114
+	RSTACK	
+
+
+	.FUNCT	I-HUNGER-WARNINGS
+	INC	'HUNGER-LEVEL
+	EQUAL?	HUNGER-LEVEL,1 \?CCL3
+	CALL	QUEUE,I-HUNGER-WARNINGS,450
+	PUT	STACK,0,1
+	CRLF	
+	PRINTR	"A growl from your stomach warns that you're getting pretty hungry and thirsty."
+?CCL3:	EQUAL?	HUNGER-LEVEL,2 \?CCL5
+	CALL	QUEUE,I-HUNGER-WARNINGS,150
+	PUT	STACK,0,1
+	CRLF	
+	PRINTR	"You're now really ravenous and your lips are quite parched."
+?CCL5:	EQUAL?	HUNGER-LEVEL,3 \?CCL7
+	CALL	QUEUE,I-HUNGER-WARNINGS,100
+	PUT	STACK,0,1
+	CRLF	
+	PRINTR	"You're starting to feel faint from lack of food and liquid."
+?CCL7:	EQUAL?	HUNGER-LEVEL,4 \?CCL9
+	CALL	QUEUE,I-HUNGER-WARNINGS,50
+	PUT	STACK,0,1
+	CRLF	
+	PRINTR	"If you don't eat or drink something in a few millichrons, you'll probably pass out."
+?CCL9:	EQUAL?	HUNGER-LEVEL,5 \FALSE
+	CALL2	JIGS-UP,STR?115
+	RSTACK	
+
+
+	.FUNCT	I-SICKNESS-WARNINGS
+	CALL	QUEUE,I-SICKNESS-WARNINGS,700
+	PUT	STACK,0,1
+	ZERO?	SICKNESS-WARNING-FLAG /FALSE
+	SET	'SICKNESS-WARNING-FLAG,FALSE-VALUE
+	SUB	LOAD-ALLOWED,10 >LOAD-ALLOWED
+	INC	'SICKNESS-LEVEL
+	EQUAL?	SICKNESS-LEVEL,1 \?CCL6
+	CRLF	
+	PRINTR	"You notice that you feel a bit weak and slightly flushed, but you're not sure why."
+?CCL6:	EQUAL?	SICKNESS-LEVEL,2 \?CCL8
+	CRLF	
+	PRINTR	"You notice that you feel unusually weak, and you suspect that you have a fever."
+?CCL8:	EQUAL?	SICKNESS-LEVEL,3 \?CCL10
+	CRLF	
+	PRINTR	"You are now feeling quite under the weather, not unlike a bad flu."
+?CCL10:	EQUAL?	SICKNESS-LEVEL,4 \?CCL12
+	CRLF	
+	PRINTR	"Your fever seems to have gotten worse, and you're developing a bad headache."
+?CCL12:	EQUAL?	SICKNESS-LEVEL,5 \?CCL14
+	CRLF	
+	PRINTR	"Your health has deteriorated further. You feel hot and weak, and your head is throbbing."
+?CCL14:	EQUAL?	SICKNESS-LEVEL,6 \?CCL16
+	CRLF	
+	PRINTR	"You feel very, very sick, and have almost no strength left."
+?CCL16:	EQUAL?	SICKNESS-LEVEL,7 \?CCL18
+	CRLF	
+	PRINTR	"You feel like you're on fire, burning up from the fever. You're almost too weak to move, and your brain is reeling from the pounding headache."
+?CCL18:	EQUAL?	SICKNESS-LEVEL,8 \?CCL20
+	CRLF	
+	PRINTR	"You're no longer sure of where you are and what you're doing. You stumble about, your pain subsiding into a dull numbness."
+?CCL20:	EQUAL?	SICKNESS-LEVEL,9 \FALSE
+	CALL2	JIGS-UP,STR?117
+	RSTACK	
+
+
+	.FUNCT	TRANSLATOR-PSEUDO
+	IN?	AMBASSADOR,HERE \?CCL3
+	EQUAL?	PRSA,V?TAKE \?CCL6
+	PRINTR	"The ambassador whimpers and slaps your wrist."
+?CCL6:	EQUAL?	PRSA,V?MUNG \FALSE
+	PRINTR	"Are you trying to create an interplanetary incident?"
+?CCL3:	PRINTR	"What translator?"
+
+
+	.FUNCT	SLIME-PSEUDO
+	IN?	AMBASSADOR,HERE /?CTR2
+	GRTR?	AMBASSADOR-LEAVE,0 \?CCL3
+?CTR2:	EQUAL?	PRSA,V?TASTE,V?EAT \?CCL8
+	CALL2	LIKE-SLIME,STR?118
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?RUB,V?TAKE \?CCL10
+	CALL2	LIKE-SLIME,STR?119
+	RSTACK	
+?CCL10:	EQUAL?	PRSA,V?EXAMINE \?CCL12
+	CALL2	LIKE-SLIME,STR?120
+	RSTACK	
+?CCL12:	EQUAL?	PRSA,V?SMELL \?CCL14
+	CALL2	LIKE-SLIME,STR?121
+	RSTACK	
+?CCL14:	EQUAL?	PRSA,V?REMOVE,V?SCRUB \FALSE
+	PRINTI	"Whew. You've cleaned up maybe one ten-thousandth of the slime."
+	IN?	BLATHER,HERE /?CND17
+	PRINTR	" If you hurry, it might be all cleaned up before Ensign Blather gets here."
+?CND17:	CRLF	
+	RTRUE	
+?CCL3:	PRINTR	"What slime?"
+
+
+	.FUNCT	LIKE-SLIME,STRING
+	PRINTI	"It "
+	PRINT	STRING
+	PRINTR	" like slime. Aren't you glad you didn't step in it?"
+
+
+	.FUNCT	GRAFFITI-PSEUDO
+	EQUAL?	PRSA,V?READ \FALSE
+	SET	'C-ELAPSED,28
+	PRINTR	"All the graffiti seem to be about Blather. One of the least obscene items reads:
+
+There once was a krip, name of Blather
+Who told a young Ensign named Smather
+""I'll make you inherit
+A trotting demerit
+And ship you off to those stinking fawg-infested tar pools of Krather.""
+
+It's not a very good limerick, is it?"
+
+
+	.FUNCT	DOOR-PSEUDO
+	EQUAL?	PRSA,V?UNLOCK,V?OPEN \FALSE
+	PRINTR	"No way, Jose."
+
+
+	.FUNCT	WALKWAY-PSEUDO
+	EQUAL?	PRSA,V?LAMP-ON,V?EXAMINE \FALSE
+	PRINTR	"The walkway, which hastened the trip down that long corridor, is no longer in service."
+
+
+	.FUNCT	BENCH-PSEUDO
+	EQUAL?	PRSA,V?BOARD,V?CLIMB-ON \FALSE
+	PRINTR	"The benches look uncomfortable."
+
+
+	.FUNCT	CATWALK-PSEUDO
+	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP,V?CLIMB-ON \FALSE
+	PRINTR	"The catwalks are too high for you to access."
+
+
+	.FUNCT	EQUIPMENT-PSEUDO
+	EQUAL?	PRSA,V?LAMP-ON,V?RUB,V?EXAMINE /?CCL3
+	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+?CCL3:	PRINTR	"The equipment here is so complicated that you couldn't even begin to figure out how to operate it."
+
+
+	.FUNCT	MONITORS-PSEUDO
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	CALL1	DESCRIBE-MONITORS
+	RSTACK	
+
+
+	.FUNCT	MURAL-PSEUDO
+	ZERO?	COMPUTER-FIXED /?CCL3
+	CALL1	ANYMORE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL6
+	PRINTR	"It's a gaudy work of orange and purple abstract shapes, reminiscent of the early works of Burstini Bonz. It doesn't appear to fit the decor of the room at all. The mural seems to ripple now and then, as though a breeze were blowing behind it."
+?CCL6:	EQUAL?	PRSA,V?MUNG \?CCL8
+	PRINTR	"My sentiments also, but let's be civil."
+?CCL8:	EQUAL?	PRSA,V?LOOK-BEHIND,V?MOVE \FALSE
+	PRINTR	"It won't budge."
+
+
+	.FUNCT	LOGO-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTR	"The logo shows a flame burning over a sleep chamber of some type. Under that is the phrase ""Prajekt Kuntrool."""
+
+
+	.FUNCT	KEYBOARD-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It is a standard numeric keyboard with ten keys labelled from 0 through 9."
+
+
+	.FUNCT	CRACK-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The crack is too small to go through, but large enough to look through."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	EQUAL?	HERE,RADIATION-LAB \?CCL8
+	PRINTR	"You see a dimly lit Bio Lab. Sinister shapes lurk about within."
+?CCL8:	PRINTR	"You see a laboratory suffused with a pale blue glow."
+
+
+	.FUNCT	VOID-PSEUDO
+	EQUAL?	PRSA,V?PUT \?CCL3
+	EQUAL?	PRSI,PSEUDO-OBJECT \?CCL3
+	ICALL	PERFORM,V?THROW-OFF,PRSO,STRIP
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?ZAP \?CCL7
+	EQUAL?	PRSO,LASER \?CCL7
+	EQUAL?	PRSI,PSEUDO-OBJECT \?CCL7
+	SET	'PRSI,FALSE-VALUE
+	ICALL	PERFORM,V?ZAP,LASER
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?LEAP,V?THROUGH \?CCL12
+	CALL2	JIGS-UP,STR?122
+	RSTACK	
+?CCL12:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
+	PRINTR	"The void extends downward into the gloom far below."
+
+
+	.FUNCT	SPOUT-PSEUDO
+	EQUAL?	PRSA,V?PUT-UNDER \?CCL3
+	EQUAL?	PRSO,CANTEEN \?CCL3
+	ICALL	PERFORM,V?PUT,CANTEEN,DISPENSER
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	IN?	CANTEEN,DISPENSER \FALSE
+	PRINTR	"The canteen is sitting under the spout."
+
+
+	.FUNCT	TOILET-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The fixtures are all dry and dusty."
+?CCL3:	EQUAL?	PRSA,V?FLUSH \FALSE
+	PRINTR	"The water seems to be turned off."
+
+
+	.FUNCT	GAMES-PSEUDO
+	EQUAL?	PRSA,V?TAKE,V?PLAY \?CCL3
+	ICALL	PERFORM,V?PLAY,GLOBAL-GAMES
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"All the usual games -- Chess, Cribbage, Galactic Overlord, Double Fannucci..."
+
+
+	.FUNCT	TAPES-PSEUDO
+	EQUAL?	PRSA,V?TAKE,V?PLAY,V?READ \?CCL3
+	PRINTR	"Hardly the time or place for reading recreational tapes."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"Let's see...here are some musical selections, here are some bestselling romantic novels, here is a biography of a famous Double Fannucci champion..."
+
+
+	.FUNCT	PARTITION-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The partitions are very plain, and were obviously intended to separate this huge room into smaller areas."
+
+
+	.FUNCT	CUBBYHOLE-PSEUDO
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINTR	"The cubbyholes look like the kind that are used to hold maps or blueprints. They are all empty now."
+
+
+	.FUNCT	MAPS-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"Examining the maps reveals no new information."
+
+
+	.FUNCT	DEVICES-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"They are components of disassembled robots, beyond repair."
+
+
+	.FUNCT	CABLES-PSEUDO
+	EQUAL?	PRSA,V?FOLLOW,V?EXAMINE \?CCL3
+	PRINTR	"These heavy cables merely run from the two consoles up into the ceiling."
+?CCL3:	EQUAL?	PRSA,V?MUNG \FALSE
+	CALL2	JIGS-UP,STR?123
+	RSTACK	
+
+
+	.FUNCT	STRUCTURE-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"You'd be able to tell more about it if you climbed up to it."
+?CCL3:	EQUAL?	PRSA,V?CLIMB-UP \FALSE
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+
+
+	.FUNCT	BUTTON-PSEUDO
+	EQUAL?	PRSA,V?PUSH \FALSE
+	FSET?	DISPENSER,MUNGEDBIT \?CCL6
+	PRINTR	"The dispenser sputters a few times."
+?CCL6:	IN?	CANTEEN,DISPENSER \?CCL8
+	FSET?	CANTEEN,OPENBIT /?CCL11
+	PRINTR	"A thick, brown liquid spills over the closed canteen, dribbles down the side of the machine, and forms a puddle on the floor which quickly dries up."
+?CCL11:	IN?	HIGH-PROTEIN,CANTEEN \?CCL13
+	PRINTI	"The brown liquid splashes over the mouth of the already-filled canteen, creating a mess"
+	FSET?	PATROL-UNIFORM,WORNBIT \?CND14
+	PRINTI	" and staining your uniform"
+?CND14:	PRINTR	"."
+?CCL13:	MOVE	HIGH-PROTEIN,CANTEEN
+	PRINTR	"The canteen fills almost to the brim with a brown liquid."
+?CCL8:	PRINTR	"A thick, brownish liquid pours from the spout and splashes to the floor, where it quickly evaporates."
+
+
+	.FUNCT	CARPET-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's pretty dusty."
+
+
+	.FUNCT	CABINETS-PSEUDO
+	EQUAL?	PRSA,V?OPEN,V?EXAMINE \?CCL3
+	PRINTR	"The cabinets are locked."
+?CCL3:	EQUAL?	PRSA,V?UNLOCK \FALSE
+	PRINTR	"You don't have the correct key."
+
+
+	.FUNCT	PLATE-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The plates seem to be featureless metal squares."
+
+
+	.FUNCT	ESCALATOR-PSEUDO
+	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP \?CCL3
+	EQUAL?	HERE,FORK \?CCL6
+	PRINTR	"You're already at the top of the escalator."
+?CCL6:	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-DOWN \?CCL8
+	EQUAL?	HERE,LAWANDA-PLATFORM \?CCL11
+	PRINTR	"You're already at the bottom of the escalator."
+?CCL11:	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?LAMP-ON \FALSE
+	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	REACTOR-BUTTON-PSEUDO
+	EQUAL?	PRSA,V?PUSH \FALSE
+	FSET	REACTOR-ELEVATOR-DOOR,OPENBIT
+	CALL	QUEUE,I-REACTOR-DOOR-CLOSE,30
+	PUT	STACK,0,1
+	PRINTR	"The metal doors slide open, revealing a small room to the east."
+
+
+	.FUNCT	SUPPLIES-PSEUDO
+	EQUAL?	PRSA,V?TAKE \FALSE
+	PRINTR	"These supplies are of absolutely no use."
+
+
+	.FUNCT	DESK-PSEUDO
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	PRINTR	"All the drawers are empty."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It is bare except for the microfilm reader."
+
+
+	.FUNCT	CRYO-BUTTON-PSEUDO
+	EQUAL?	PRSA,V?PUSH \?CCL3
+	ZERO?	CRYO-SCORE-FLAG \?CCL3
+	CALL	QUEUE,I-CRYO-ELEVATOR-ARRIVE,100
+	PUT	STACK,0,1
+	CALL2	INT,I-CHASE-SCENE
+	PUT	STACK,0,0
+	FCLEAR	CRYO-ELEVATOR-DOOR,OPENBIT
+	SET	'CRYO-SCORE-FLAG,TRUE-VALUE
+	ADD	SCORE,5 >SCORE
+	PRINTR	"The elevator door closes just as the monsters reach it! You slump back against the wall, exhausted from the chase. The elevator begins to move downward."
+?CCL3:	EQUAL?	PRSA,V?PUSH \FALSE
+	ZERO?	CRYO-SCORE-FLAG /FALSE
+	FSET?	CRYO-ELEVATOR-DOOR,OPENBIT \FALSE
+	CALL2	JIGS-UP,STR?124
+	RSTACK	
+
+
+	.FUNCT	CASTLE-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"The castle is ancient and crumbling."
+
+
+	.FUNCT	CHEM-SPOUT-PSEUDO
+	EQUAL?	PRSA,V?PUT-UNDER \?CCL3
+	EQUAL?	PRSI,PSEUDO-OBJECT \?CCL3
+	ICALL	PERFORM,V?PUT-UNDER,PRSO,CHEMICAL-DISPENSER
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
+	ZERO?	SPOUT-PLACED /FALSE
+	PRINTI	"There is "
+	ICALL1	A-AN
+	PRINTD	SPOUT-PLACED
+	PRINTR	" under the spout."
+
+
+	.FUNCT	CLEFT-PSEUDO
+	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP \FALSE
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+
+
+	.FUNCT	RUBBLE-PSEUDO
+	EQUAL?	PRSA,V?MOVE \FALSE
+	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PLAQUE-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTR	"
+SEENIK VISTA 
+Xis stuneeng vuu uf xee Kalamontee Valee kuvurz oovur fortee skwaar miilz uf xat faamus tuurist spot. Xee larj bildeeng at xee bend in xee Gulmaan Rivur iz xee formur pravincul kapitul bildeeng."
+
+
+	.FUNCT	FENCE-PSEUDO
+	EQUAL?	PRSA,V?LEAP,V?CLIMB-FOO,V?CLIMB-UP \FALSE
+	PRINTR	"You can't."
+
+
+	.FUNCT	LOCK-PSEUDO
+	EQUAL?	PRSA,V?UNLOCK,V?OPEN \FALSE
+	ZERO?	PRSI /?CCL6
+	PRINTR	"That won't unlock it."
+?CCL6:	PRINTR	"But you don't have the orange key!"
+
+
+	.FUNCT	DIAGRAM-PSEUDO
+	EQUAL?	PRSA,V?READ \FALSE
+	PRINTR	"Not unless you've taken a special twelve-year course in ninth-order molecular physics."
+
+
+	.FUNCT	ENUNCIATOR-PSEUDO
+	EQUAL?	PRSA,V?MOVE,V?PUSH,V?LOOK-INSIDE \FALSE
+	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	RTRUE	
+
+
+	.FUNCT	NEAR-BOOTH-PSEUDO
+	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?DROP \?CCL3
+	PRINTR	"You're not in the booth!"
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?THROUGH \FALSE
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+
+
+	.FUNCT	IN-BOOTH-PSEUDO
+	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?THROUGH \?CCL3
+	PRINTR	"You're already in the booth!"
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?DROP \FALSE
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	CANT-USE-THAT-WAY,STRING
+	PRINTI	"[You can't use "
+	PRINT	STRING
+	PRINTR	" that way.]"
+
+	.ENDI
diff --git a/globals.zil b/globals.zil
new file mode 100644
index 0000000..48f08b9
--- /dev/null
+++ b/globals.zil
@@ -0,0 +1,3060 @@
+"GLOBALS for PLANETFALL
+(C) COPYRIGHT 1983 INFOCOM INC. ALL RIGHTS RESERVED
+
+This file contains Global Objects and their associated routines,
+as well as all routines associated with BOTH complexes. It also
+contains the opening sequence which occurs prior to planetfall."
+
+<CONSTANT S-TEXT 0>
+<CONSTANT S-WINDOW 1>
+
+<CONSTANT H-NORMAL 0>
+<CONSTANT H-INVERSE 1>
+<CONSTANT H-BOLD 2>
+<CONSTANT H-ITALIC 4>
+
+<CONSTANT D-SCREEN-ON 1>
+<CONSTANT D-SCREEN-OFF -1>
+<CONSTANT D-PRINTER-ON 2>
+<CONSTANT D-PRINTER-OFF -2>
+<CONSTANT D-TABLE-ON 3>
+<CONSTANT D-TABLE-OFF -3>
+<CONSTANT D-RECORD-ON 4>
+<CONSTANT D-RECORD-OFF -4>
+
+<CONSTANT SL-TABLE:TABLE <ITABLE NONE 80>>	"status line constructed here"
+<GLOBAL OHERE:OBJECT <>>
+<GLOBAL OLD-LEN:NUMBER 0>
+
+<ROUTINE INIT-STATUS-LINE ()
+	 <COND (<L? ,WIDTH 38>
+		<TELL "[Screen too narrow.]" CR>
+		<QUIT>)>
+	 <SETG OHERE <>>
+	 <SETG OLD-LEN 0>
+	 <SPLIT 1>
+	 <SCREEN ,S-WINDOW>
+	 <HLIGHT ,H-INVERSE>
+	 <CURSET 1 1>	 
+	 <PRINT-SPACES ,WIDTH>
+	 <COND (<G? ,WIDTH 74>
+		<CURSET 1 51>
+		<TELL "Score:">
+		<CURSET 1 64>
+		<TELL "Time:">)>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>
+	 <RTRUE>>
+
+<ROUTINE UPDATE-STATUS-LINE ()
+	 <SCREEN ,S-WINDOW>
+	 ;<BUFOUT <>>
+	 <HLIGHT ,H-NORMAL>
+	 <HLIGHT ,H-INVERSE>
+	 <COND (<NOT <EQUAL? ,HERE ,OHERE>>
+		<SETG OHERE ,HERE>
+		;<DIROUT ,D-SCREEN-OFF>	        ; "Screen off."
+		<DIROUT ,D-TABLE-ON ,SL-TABLE>  ; "Table on."
+		<SAY-HERE>
+		<DIROUT ,D-TABLE-OFF> 	        ; "Table off."
+		;<DIROUT ,D-SCREEN-ON>		; "Screen on."
+		<CURSET 1 2>
+		<PRINT-SPACES ,OLD-LEN>  ; "Erase old HERE desc"
+		<SETG OLD-LEN <GET ,SL-TABLE 0>> ;"Print new HERE desc."
+		<CURSET 1 2>
+		<SAY-HERE>)>
+	 <COND (<G? ,WIDTH 74>
+		<CURSET 1 58>
+		<TELL N ,SCORE " ">  ;"for 110 to 80 score bug"
+		<CURSET 1 70>
+		<TELL N ,MOVES>)
+	       (T
+		<DIROUT ,D-TABLE-ON ,SL-TABLE>
+		<TELL N ,SCORE "/" N ,MOVES " ">
+		<DIROUT ,D-TABLE-OFF>
+		<CURSET 1 <- ,WIDTH <+ <GET ,SL-TABLE 0> 1>>>
+		<TELL N ,SCORE "/" N ,MOVES " ">)>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>  ;"Back to main screen."
+	 <RTRUE>>
+
+<ROUTINE PRINT-SPACES (N "AUX" AMT) 
+  <REPEAT ()
+    <COND (<G? .N ,BLANKS-LEN>
+	   <SET AMT ,BLANKS-LEN>)
+	  (T
+	   <SET AMT .N>)>
+    <PRINTT ,BLANKS .AMT>
+    <COND (<L=? <SET N <- .N .AMT>> 0>
+	   <RTRUE>)>>>
+
+<CONSTANT BLANKS-LEN 10>
+<CONSTANT BLANKS <ITABLE ,BLANKS-LEN (BYTE) !\ >>
+
+<ROUTINE SAY-HERE ()
+	 <COND (<ZERO? ,LIT?>
+		<TELL "Darkness">)
+	       (T
+		<TELL D ,HERE>
+	        <COND (<AND <G? ,WIDTH 74>
+			    <FSET? <LOC ,ADVENTURER> ,VEHBIT>>
+		       <TELL ", in the " D <LOC ,ADVENTURER>>)>)>
+	 <RTRUE>>
+
+<CONSTANT DEFAULT-MOVE 20>
+
+;"REM OFFSETS  31  30  29  28  27   26  25  24 23  22  21  20  ,LOW-DIRECTION "
+;<DIRECTIONS NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+"SUBTITLE GLOBAL OBJECTS"
+
+<GLOBAL LOAD-ALLOWED 100>
+
+<OBJECT GLOBAL-OBJECTS
+	(SYNONYM ZZMGCK)
+	(DESC "it")
+	(FLAGS INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT MUNGBIT MUNGEDBIT
+	       SCRAMBLEDBIT WORNBIT OPENBIT SEARCHBIT TRANSBIT WEARBIT
+	       READBIT ACIDBIT ACTIVEBIT)>
+
+<OBJECT LOCAL-GLOBALS
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM ZZMGCK)
+	(VALUE 0)
+	(CONTFCN 0)
+	(DESCFCN 0)
+	(SIZE 0)
+	;(PSEUDO "FOO")>
+
+;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh"
+
+<OBJECT ROOMS
+	(IN TO ROOMS)
+	(DESC "it")>
+
+<OBJECT INTNUM
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM INTNUM)
+	(DESC "number")>
+
+<OBJECT PSEUDO-OBJECT
+	(DESC "pseudoxyz")
+	(ACTION GO)>
+
+<OBJECT IT
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM IT THAT THIS HIM)
+	(DESC "random object")
+	(FLAGS NDESCBIT)>
+
+<OBJECT STAIRS
+	(LOC LOCAL-GLOBALS)
+	(SYNONYM STAIRS STEPS GANGWAY STAIRWAY)
+	(DESC "stairway")
+	(FLAGS NDESCBIT CLIMBBIT)>
+
+<OBJECT GROUND
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM GROUND EARTH FLOOR DECK)
+	(DESC "floor")
+	(FLAGS NDESCBIT)
+	(ACTION GROUND-F)>
+
+<ROUTINE GROUND-F ()
+	 <COND (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,GROUND>>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<VERB? CLIMB-ON BOARD>
+		<SETG C-ELAPSED 28>
+		<TELL
+"You sit down on the floor. After a brief rest, you stand again." CR>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,ADMIN-CORRIDOR-S>>
+		<TELL "A narrow, jagged crevice runs across the floor." CR>)>>
+
+<OBJECT WINDOW
+	(LOC LOCAL-GLOBALS)
+	(DESC "window")
+	(SYNONYM WINDOW PORT VIEWPORT)
+	(ADJECTIVE VIEW)
+	(FLAGS NDESCBIT)
+	(ACTION WINDOW-F)>
+
+<ROUTINE WINDOW-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<COND (<EQUAL? ,HERE ,BIO-LOCK-EAST>
+		       <TELL
+"You can see a large laboratory, dimly illuminated. A blue glow comes from
+a crack in the northern wall of the lab. Shadowy, ominous shapes move about
+within the room.">
+		       <COND (<NOT <FSET? ,MINI-CARD ,TOUCHBIT>>
+			      <TELL
+" On the floor, just inside the door, you can see a magnetic-striped card.">)>
+		       <CRLF>)
+		      (<EQUAL? ,HERE ,BIO-LAB>
+		       <TELL "You see the Bio Lock." CR>)
+		      (<OR
+			<EQUAL? ,HERE ,ALFIE-CONTROL-EAST ,ALFIE-CONTROL-WEST>
+		        <EQUAL? ,HERE ,BETTY-CONTROL-EAST ,BETTY-CONTROL-WEST>>
+		       <TELL "You see ">
+		       <DESCRIBE-VIEW>
+		       <TELL CR>)
+	              (<EQUAL? ,HERE ,BALCONY>
+		       <TELL "Water. Lots and lots of water." CR>)
+		      (<EQUAL? ,HERE ,HELICOPTER>
+		       <TELL "You see the helipad and the ocean beyond." CR>)
+		      (<EQUAL? ,HERE ,ESCAPE-POD>
+		       <COND (<L? ,TRIP-COUNTER 2>
+			      <TELL
+"You can see debris from the exploding Feinstein." CR>)
+		             (<G? ,TRIP-COUNTER 8>
+		              <TELL
+"You can see a planet, hopefully a hospitable one." CR>)
+		             (T
+		              <TELL
+"The window has polarized to blackness." CR>)>)
+		      (<EQUAL? ,HERE ,LARGE-OFFICE>
+		       <TELL
+"You can see the dormitories and other parts of the
+complex in the distance. Water is visible in every direction." CR>)>)
+	       (<AND <VERB? THROUGH>
+		     <EQUAL? ,HERE ,BALCONY>>
+		<JIGS-UP
+"You slice yourself to ribbons on the broken windows and then plummet
+into the swirling ocean below. Very clever.">)
+	       (<VERB? OPEN>
+		<TELL "This window doesn't open." CR>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,BALCONY>>
+		<TELL "They're shattered." CR>)
+	       (<VERB? MUNG>
+		<COND (<EQUAL? ,HERE ,BALCONY>
+		       <TELL "They're already broken." CR>)
+		      (T
+		       <TELL "It's made of tough Zynoid plastic." CR>)>)>>
+
+<OBJECT CLIFF
+	(LOC LOCAL-GLOBALS)
+	(DESC "cliff")
+	(SYNONYM CLIFF)
+	(FLAGS NDESCBIT)
+	(ACTION CLIFF-F)>
+
+<ROUTINE CLIFF-F ()
+	 <COND (<EQUAL? ,HERE ,WEST-WING>
+		<COND (<VERB? LEAP>
+		       <JIGS-UP "Brilliant idea!">)
+		      (<VERB? THROW-OFF>
+		       <COND (<EQUAL? ,PRSO ,LASER>
+			      <DISABLE <INT I-WARMTH>>)>
+		       <REMOVE ,PRSO>
+		       <TELL
+"The " D ,PRSO " falls into the ocean below." CR>)>)
+	       (T
+		<COND (<VERB? CLIMB-UP CLIMB-FOO>
+		       <DO-WALK ,P?UP>)
+		      (<VERB? CLIMB-DOWN>
+		       <DO-WALK ,P?DOWN>)>)>>
+
+<OBJECT OCEAN
+	(LOC LOCAL-GLOBALS)
+	(DESC "ocean")
+	(SYNONYM OCEAN)
+	(ADJECTIVE ENDLESS)
+	(FLAGS VOWELBIT NDESCBIT)
+	(ACTION OCEAN-F)>
+
+<ROUTINE OCEAN-F ()
+	 <COND (<VERB? TAKE THROUGH RUB>
+		<TELL "You can't reach the ocean from here." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "It stretches as far as you can see." CR>)>>
+
+<OBJECT TABLES
+	(LOC LOCAL-GLOBALS)
+	(DESC "table")
+	(SYNONYM TABLE TABLES)
+	(FLAGS NDESCBIT)
+	(ADJECTIVE ROUND CONFERENCE SMALL WIDE LONG)
+	(ACTION TABLES-F)>
+
+<ROUTINE TABLES-F ()
+	 <COND (<AND <VERB? LOOK-UNDER>
+		     <EQUAL? ,HERE ,MESS-HALL>>
+		<TELL
+"Wow!!! Under the table are three keys, a sack of food, a reactor elevator
+access pass, one hundred gold pieces ... Just kidding. Actually, there's
+nothing there." CR>)
+	       (<AND <VERB? PUT-ON>
+		     <EQUAL? ,PRSI ,TABLES>>
+		<TELL
+"That would accomplish nothing useful." CR>)>> 
+
+<OBJECT SHELVES
+	(LOC LOCAL-GLOBALS)
+	(SYNONYM SHELF SHELVES)
+	(DESC "shelf")
+	(FLAGS NDESCBIT)
+	(ACTION SHELVES-F)>
+
+<ROUTINE SHELVES-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The shelves are pretty dusty." CR>)
+	       (<AND <VERB? PUT-ON>
+		     <EQUAL? ,PRSI ,SHELVES>>
+		<TELL "That would be a waste of time." CR>)>>
+
+<OBJECT LIGHTS
+   (LOC LOCAL-GLOBALS)
+   (SYNONYM LIGHT LIGHTS)
+   (ADJECTIVE RED DAZZLING GLOWING BLINKING WARNING BRIGHT COLORED FLASHING)
+   (DESC "light")
+   (FLAGS NDESCBIT)
+   (ACTION LIGHTS-F)>
+
+<ROUTINE LIGHTS-F ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,COMPUTER-ROOM>>
+		<TELL
+"The red light would seem to indicate a malfunction in the computer." CR>)>>
+
+<OBJECT GLOBAL-DOORWAY
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM DOORWAY PORTAL OPENING)
+	(ADJECTIVE NORTH SOUTH EAST WEST NE SE NW SW)
+	(DESC "doorway")
+	(FLAGS NDESCBIT)
+	(ACTION GLOBAL-DOORWAY-F)>
+
+<ROUTINE GLOBAL-DOORWAY-F ()
+	 <COND (<VERB? THROUGH>
+		<USE-DIRECTIONS>)
+	       (<VERB? OPEN CLOSE>
+		<TELL "It's just an opening; you can't open or close it." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "Can't see much from here. Try going there." CR>)>>
+
+<ROUTINE USE-DIRECTIONS ()
+	 <TELL "Use compass directions for movement." CR>>
+
+<ROUTINE NO-CLOSE ()
+	 <TELL "There's no way to close it." CR>>
+
+<OBJECT CONTROLS
+	(LOC LOCAL-GLOBALS)
+	(SYNONYM CONTROL PANEL DIALS GAUGES)
+	(ADJECTIVE CONTROL COMPLEX)
+	(DESC "set of controls")
+	(FLAGS NDESCBIT)
+	(ACTION CONTROLS-F)>
+
+<ROUTINE CONTROLS-F ()
+	<COND (<OR <EQUAL? ,HERE ,UPPER-ELEVATOR ,LOWER-ELEVATOR ,BOOTH-1>
+		   <EQUAL? ,HERE ,REACTOR-ELEVATOR ,BOOTH-2 ,BOOTH-3>>
+	       <COND (<VERB? EXAMINE>
+		      <TELL
+"The control panel is a simple one, as described. Just a small slot
+and two buttons." CR>)>)
+	      (<VERB? RUB MOVE TURN SET TAKE EXAMINE PUSH PULL>
+	       <COND (<EQUAL? ,HERE ,HELICOPTER>
+		      <TELL
+"The controls are covered and locked." CR>)
+		     (<EQUAL? ,HERE ,ESCAPE-POD>
+		      <TELL
+"The controls are entirely automated." CR>)
+		     (T
+		      <TELL
+"The controls are incredibly complicated and you shouldn't even
+be thinking about touching them." CR>)>)
+	      (<AND <EQUAL? ,HERE ,HELICOPTER>
+		    <VERB? OPEN UNLOCK>>
+	       <TELL
+"You don't even have the orange key!" CR>)>>
+
+<OBJECT GLOBAL-GAMES
+	(LOC GLOBAL-OBJECTS)
+	(DESC "game")
+	(SYNONYM BOCCI CHESS HIDER-AND-SEEKER HUCKA-BUCKA SEEKER BEANSTALK)
+        (ADJECTIVE HIDER HUCKA BUCKA)
+	(FLAGS NDESCBIT)
+	(ACTION GLOBAL-GAMES-F)>
+
+<ROUTINE GLOBAL-GAMES-F ()
+	 <COND (<VERB? PLAY>
+		<COND (<IN? ,FLOYD ,HERE>
+		       <PERFORM ,V?PLAY-WITH ,FLOYD>
+		       <RTRUE>)
+		      (T
+		       <TELL "Okay. Gee, that was fun." CR>)>)>>
+
+<OBJECT HANDS
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM PAIR HANDS)
+	(ADJECTIVE BARE)
+	(DESC "pair of hands")
+	(FLAGS NDESCBIT)
+	(ACTION HANDS-F)>
+
+<ROUTINE HANDS-F ()
+	 <COND (<VERB? SHAKE>
+		<COND (<IN? ,AMBASSADOR ,HERE>
+		       <TELL "A repulsive idea." CR>)
+		      (<IN? ,BLATHER ,HERE>
+		       <TELL "Saluting might be a better idea." CR>)
+		      (<AND <IN? ,FLOYD ,HERE>
+			    <FSET? ,FLOYD ,RLANDBIT>>
+		       <TELL
+"You shake one of Floyd's grasping extensions." CR>)
+		      (T
+		       <TELL "There's no one to shake hands with." CR>)>)>>
+
+<OBJECT SLEEP
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sacred act of sleeping")
+	(SYNONYM SLEEP)
+	(FLAGS NDESCBIT)
+	(ACTION SLEEP-F)>
+
+<ROUTINE SLEEP-F ()
+	 <COND (<VERB? WALK-TO>
+		<V-SLEEP>)>>
+
+<OBJECT ADVENTURER
+	(LOC DECK-NINE)
+	(SYNONYM ADMIRAL SMITHE SPAM EGGS)
+	(ADJECTIVE ORANGE OPENER)
+	(DESC "player")
+        (FLAGS NDESCBIT INVISIBLE)>
+
+<OBJECT ME
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM ME MYSELF SELF WE)
+	(DESC "you")
+	(FLAGS ACTORBIT)
+	(ACTION CRETIN-F)>
+
+<ROUTINE CRETIN-F ()
+	 <COND (<VERB? GIVE>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<VERB? SCRUB>
+		<TELL
+"If only you'd done that before the last inspection, you wouldn't have
+gotten 300 demerits." CR>)
+	       (<VERB? DROP>
+		<TELL "Huh?" CR>)
+	       (<VERB? SMELL>
+		<TELL "Phew!" CR>)
+	       (<VERB? FOLLOW>
+		<TELL "It would be hard not to." CR>)
+	       (<VERB? EAT>
+		<TELL "Auto-cannibalism is not the answer." CR>)
+	       (<VERB? ATTACK MUNG>
+		<COND (<==? ,PRSO ,ME>
+		       <JIGS-UP "If you insist.... Poof, you're dead!">)
+		      (ELSE <TELL "What a silly idea!" CR>)>)
+	       (<VERB? TAKE>
+		<TELL "How romantic!" CR>)
+	       (<VERB? DISEMBARK>
+		<TELL "You'll have to do that on your own." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "That's difficult unless your eyes are prehensile."
+		      CR>)>>
+
+;<GLOBAL DUMMY
+	<PLTABLE "Look around."
+		"You think it isn't?"
+		"I think you've already done that.">>
+
+<ROUTINE DDESC (DOOR)
+	 <COND (<FSET? .DOOR ,OPENBIT>
+		<TELL "open">)
+	       (T
+		<TELL "closed">)>>
+
+<ROUTINE ALREADY-OPEN ()
+	 <TELL "It's already open!" CR>>
+
+<ROUTINE IS-CLOSED ()
+	 <TELL "It is closed!" CR>>
+
+<ROUTINE V-THROUGH ("OPTIONAL" (OBJ <>) "AUX" M)
+	<COND (<AND <NOT .OBJ> <FSET? ,PRSO ,VEHBIT>>
+	       <PERFORM ,V?BOARD ,PRSO>
+	       <RTRUE>)
+	      (<AND <NOT .OBJ> <NOT <FSET? ,PRSO ,TAKEBIT>>>
+	       <TELL
+"You hit your head against the " D ,PRSO " as you attempt this feat." CR>)
+	      (.OBJ
+	       <TELL "You can't do that!" CR>)
+	      (<IN? ,PRSO ,ADVENTURER>
+	       <TELL "That would involve quite a contortion!" CR>)
+	      (T
+	       <TELL <PICK-ONE ,YUKS> 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 <>>)>>>
+
+;"Stuff added for the NOT-HERE object"
+<OBJECT NOT-HERE-OBJECT
+	(DESC "such thing" ;"[not here]")
+	(ACTION NOT-HERE-OBJECT-F)>
+
+<ROUTINE NOT-HERE-OBJECT-F ("AUX" TBL (PRSO? T) OBJ)
+	 <COND (<AND <PRSO? ,NOT-HERE-OBJECT>
+		     <PRSI? ,NOT-HERE-OBJECT>>
+		<TELL "Those things aren't here!" CR>
+		<RTRUE>)
+	       (<PRSO? ,NOT-HERE-OBJECT>
+		<SET TBL ,P-PRSO>)
+	       (T
+		<SET TBL ,P-PRSI>
+		<SET PRSO? <>>)>
+	 <COND (.PRSO?
+		<COND (<VERB? TYPE>
+		       <PERFORM ,V?TYPE ,FLOYD>
+		       <RTRUE>)
+		      (<OR <VERB? EXAMINE>
+			   <AND <EQUAL? ,WINNER ,FLOYD>
+				<VERB? TAKE FIND>>>
+		       <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>
+		<COND (<VERB? TELL>
+		       <SETG P-CONT <>>
+		       <SETG QUOTE-FLAG <>>
+		       <RFATAL>)>)
+	       (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)
+	;"Protocol: return T if case was handled and msg TELLed,
+	    ,NOT-HERE-OBJECT if 'can't see' msg TELLed,
+			  <> if PRSO/PRSI ready to use"
+	;"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 NOT-HERE-PRINT (PRSO?)
+ <COND (<OR ,P-OFLAG ,P-MERGED>
+	<COND (,P-XADJ <TELL " "> <PRINTB ,P-XADJ>)>
+	<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> <>>)>>
+
+^L
+
+;"Begin-game stuff aboard the Feinstein"
+
+<ROOM BRIG
+      (LOC ROOMS)
+      (DESC "Brig")
+      (LDESC
+"You are in the Feinstein's brig. Graffiti cover
+the walls. The cell door to the south is locked.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH SORRY "The cell door is locked.")
+      (FLAGS RLANDBIT ONBIT)
+      (PSEUDO "GRAFFITI" GRAFFITI-PSEUDO "DOOR" DOOR-PSEUDO)>
+
+<ROOM DECK-NINE
+      (LOC ROOMS)
+      (DESC "Deck Nine")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST"15 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST"15 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO REACTOR-LOBBY IF CORRIDOR-DOOR IS OPEN)
+      (WEST TO ESCAPE-POD IF POD-DOOR IS OPEN)
+      (IN TO ESCAPE-POD IF POD-DOOR IS OPEN)
+      (UP TO GANGWAY IF GANGWAY-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL POD-DOOR CORRIDOR-DOOR GANGWAY-DOOR STAIRS GLOBAL-POD)
+      (PSEUDO "TRANSL" TRANSLATOR-PSEUDO "SLIME" SLIME-PSEUDO)
+      (ACTION DECK-NINE-F)>
+
+<ROUTINE DECK-NINE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a featureless corridor similar to every other corridor on the ship.
+It curves away to starboard, and a gangway leads up">
+		<COND (<FSET? ,GANGWAY-DOOR ,OPENBIT>
+		       <TELL ".">)
+		      (T
+		       <TELL
+", but both of these are blocked by closed bulkheads.">)>
+		<TELL
+" To port is the entrance to one of the ship's primary escape pods. The
+pod bulkhead is ">
+		<DDESC ,POD-DOOR>
+		<TELL "." CR>)>>
+
+<OBJECT SCRUB-BRUSH
+	(LOC ADVENTURER)
+	(DESC "Patrol-issue self-contained multi-purpose scrub brush")
+	(SYNONYM BRUSH SCRUBBRUSH SCRUBRUSH)
+	(ADJECTIVE SCRUB PATROL SELF-CONTAINED MULTI MULTI-PURPOSE PURPOSE)
+	(FLAGS TAKEBIT)
+	(SIZE 10)>
+
+<OBJECT CHRONOMETER
+	(LOC ADVENTURER)
+	(DESC "chronometer")
+	(SYNONYM CHRONOMETER WRISTWATCH WATCH)
+	(ADJECTIVE WRIST)
+	(SIZE 10)
+	(FLAGS MUNGBIT TAKEBIT WEARBIT WORNBIT)
+	(ACTION CHRONOMETER-F)>
+
+<ROUTINE CHRONOMETER-F ()
+	 <COND (<VERB? EXAMINE READ>
+		<TELL
+"It is a standard wrist chronometer with a digital display. ">
+		<TELL-TIME>
+		<TELL " The back is engraved with
+the message \"Good luck in the Patrol! Love, Mom and Dad.\"" CR>)>>
+
+<ROUTINE TELL-TIME ()
+	 <TELL "According to the chronometer, the current time is ">
+	 <COND (<FSET? ,CHRONOMETER ,MUNGEDBIT>
+		<TELL N ,MUNGED-TIME>)
+	       (T
+		<TELL N ,INTERNAL-MOVES>)>
+	 <TELL ".">>
+
+<GLOBAL MUNGED-TIME 0>
+
+<OBJECT ID-CARD
+	(LOC PATROL-UNIFORM)
+	(DESC "ID card")
+	(SYNONYM CARD CARDS)
+	(ADJECTIVE PATROL ID IDENTIFICATION)
+	(FLAGS VOWELBIT TAKEBIT READBIT)
+	(SIZE 3)
+	(TEXT
+"\"STELLAR PATROL|
+Special Assignment Task Force|
+ID Number:  6172-531-541\"")>
+  
+<OBJECT PATROL-UNIFORM
+	(LOC ADVENTURER)
+	(DESC "Patrol uniform")
+	(LDESC
+"A slightly wrinkled Patrol uniform is lying here.")
+	(SYNONYM UNIFORM POCKET SUIT)
+	(ADJECTIVE PATROL WRINKLED)
+        (FLAGS TAKEBIT WORNBIT WEARBIT CONTBIT SEARCHBIT OPENBIT)
+	(CAPACITY 10)
+	(ACTION PATROL-UNIFORM-F)>
+
+<ROUTINE PATROL-UNIFORM-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It is a standard-issue one-pocket Stellar Patrol uniform, a miracle of modern
+technology. It will keep its owner warm in cold climates and cool in warm
+locales. It provides protection against mild radiation, repels all insects,
+absorbs sweat, promotes healthy skin tone, and on top of everything else,
+it is supercomfy.">
+		<COND (<EQUAL? ,TRIP-COUNTER 15>
+		       <TELL
+" There are definitely worse things to find yourself wearing when stranded
+on a strange planet.">)>
+		<TELL CR>)
+	       (<AND <VERB? WEAR>
+		     <FSET? ,LAB-UNIFORM ,WORNBIT>>
+		<TELL
+"It won't fit over the lab uniform." CR>)
+	       (<AND <VERB? TAKE-OFF>
+		     <FSET? ,PATROL-UNIFORM ,WORNBIT>>
+		<FCLEAR ,PATROL-UNIFORM ,WORNBIT>
+		<TELL "You have removed your Patrol uniform.">
+		<COND (<EQUAL? ,TRIP-COUNTER 15>
+		       <TELL
+" You suddenly realize how warm it is. You also feel naked and vulnerable.">)>
+		<COND (<IN? ,BLATHER ,HERE>
+		       <TELL
+" \"Removing your uniform while on duty? Five hundred demerits!\"">)
+		      (<IN? ,FLOYD ,HERE>
+		       <TELL
+" Floyd giggles. \"You look funny without any clothes on.\"">)>
+		<TELL CR>)
+	       (<VERB? OPEN CLOSE>
+		<TELL
+"There's no way to open or close the pocket of the " D ,PRSO "." CR>)>>
+
+
+<OBJECT DIARY
+	(LOC ADVENTURER)
+	(DESC "diary")
+	(SYNONYM DIARY MACHINE RECORDER)
+	(ADJECTIVE BATTERED OLD)
+	(FLAGS ACIDBIT TAKEBIT READBIT TRANSBIT)
+	(CAPACITY 0)
+	(SIZE 3)
+	(ACTION DIARY-F)>
+
+;<ROUTINE DIARY-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL "You've scribbled in a diary ever since you can
+remember. You turn on this battered old electro-book; the screen blanks,
+clears and types, \"Doo not plaee with mee until Aamee kodes mee in.\""
+CR>)>>
+
+<GLOBAL DIARY-CTR 0>
+
+<ROUTINE DIARY-F ()
+	 <COND (<VERB? OPEN CLOSE>
+		<TELL "It's not that kind of diary." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"You've used this battered old recording machine as a diary for years. It
+includes a little button">
+		<COND (<FSET? ,DIARY ,ACTIVEBIT>
+		       <TELL ", which is flashing,">)>
+		<TELL
+" and a microphone/speaker. To read its screen, type READ DIARY." CR>)
+	       ;(<AND <VERB? READ>
+		     <NOT <FSET? ,DIARY ,ACTIVEBIT>>>
+		;<QUEUE I-DIARY-READER -1>
+		<FSET ,DIARY ,ACTIVEBIT>
+		<SETG DIARY-CTR 0>
+		<READ-DIARY>)
+	       (<VERB? READ>
+		<COND (<IN? ,BLATHER ,HERE>
+		       <TELL
+"Blather stops you, scribbling madly. \"I warned you, Ensign!
+That's another two hundred demerits!\"" CR>)
+		      (<NOT <FSET? ,DIARY ,ACTIVEBIT>>
+		       ;<QUEUE I-DIARY-READER -1>
+		       <FSET ,DIARY ,ACTIVEBIT>
+		       <SETG DIARY-CTR 0>
+		       <READ-DIARY>)
+		      (T
+		       <WORDS-ON-SCREEN>)>)>>
+
+<OBJECT DIARY-BUTTON
+	(LOC DIARY)
+	(DESC "little button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE LITTLE)
+	(FLAGS NDESCBIT)
+	(SIZE 0)
+	(ACTION DIARY-BUTTON-F)>
+
+<ROUTINE DIARY-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<FSET? ,DIARY ,ACTIVEBIT>
+		       <COND (<EQUAL? ,DIARY-CTR 14>
+			      <FCLEAR ,DIARY ,ACTIVEBIT>
+			      <SETG DIARY-CTR 0>
+			      <TELL
+"\"END OF DIARY -- REWINDING\" flashes across the screen; the machine whirrs,
+stops, and the little button flickers off." CR>)
+			     (T
+			      <READ-DIARY>)>)
+		      (T
+		       <TELL "Nothing happens." CR>)>)
+	       (<AND <VERB? EXAMINE>
+		     <FSET? ,DIARY ,ACTIVEBIT>>
+		<TELL "It is flashing." CR>)>>
+
+
+<CONSTANT DIARY-ENTRIES
+	<PTABLE 
+	 "Bug #46"
+	 "July 22 -- Transferred from S.P.S. Trilobyte to S.P.S.
+Feinstein for the third of my four tours of duty. I'm truly going to miss
+my commander, Ensign First Class Lim. He was a friend in every respect --
+someone you could always go to with a problem, someone I could really look
+up to. We would sometimes talk long into the night. He would tell me
+about his home world of Ash-Down V, and I would talk about growing up on
+Gallium. I'd get pretty homesick sometimes, even though Gallium is not
+exactly one of the garden spots of the universe. I just hope my new
+commander is half as nice as Lim.||
+This new ship seems pretty swell. I'm in a cabin with only five
+other ensigns, and I've got one-and-a-half cubic meters of locker space!"
+	 "July 23 -- Met my new commander today -- Ensign Cadet First
+Class Blather. He seems like a real krip. (Excuse the language, Diary.) But
+that might just be a bad first impression."
+	 "July 25 -- One of my cabin mates, Gorund, organized a Double
+Fanucci tournament among all the Ensigns Seventh Class. We were playing
+during the 150-millichron rec period after lunch, and Blather burst in and
+confiscated the sets and told us that playing war games was a violation of
+patrol regulations. But Ensign Whirp, who's studying to be a patrol lawyer,
+said she couldn't find anything about it in the regulations anywhere.|
+BLATHER IS REALLY A TOTAL MEGAKRIP!!!"
+	 "July 28 -- I went to see the personnel officer today to find
+out what my new duties would involve. He showed me a list of all the open
+assignments, and I decided to put in for the grotch-feeding detail. We picked
+up a few grotches when we were on Crassus, and we're taking them to the
+Zoology Labs on Tremain so that maybe they can figure out how an animal can
+produce 47 times its weight in trot every day."
+	 "Bozbar 7 -- Everyone from the P.O. to the ship's cook has
+approved my application for the grotch-feeding detail -- except Blather. I
+have an appointment to see him tomorrow. Wish me luck."
+	 "Bozbar 8 -- TROT!! Blather rejected my application! And to
+make it worse, he said that since I seem to love grotches so much, he's
+assigning me to clean out their cages. TROT AND DOUBLE TROT!!"
+	 "Bozbar 26 -- I haven't had time to keep my diary lately,
+because Blather's been watching us all like a Teleran bird. Also, last
+week he found the diary during a surprise inspection, gave me 200 demerits,
+and told me that diaries were against regulations. But I'll be frobbed if
+I'm going to stop. I've started hiding the diary inside my official documents
+file, and I keep that hidden in the air duct. From now on I'll have to sneak
+away somewhere to use it."
+	 "Bozbar 27 -- Greeting from the Deck Four Supply Closet of the
+S.P.S. Feinstein. I hope I'm not tempting fate, sneaking around with my diary
+this way. I used to be as much of a disbeliever in destiny as the next guy,
+but not anymore. Not since the time my mom warned my dad not to tempt fate
+by walking across the astral plains after dark, when the computerized analysis
+showed a 43% chance of resulting injury. My dad, stubborn as always, just
+laughed at her and went right on taking his nightly strolls. THE VERY NEXT
+SUMMER HE WENT WALKING AT NIGHT ON THE PLAINS AND STUMBLED OVER A CRATER AND
+BRUISED HIS KNEE! Gosh!"
+	 "Bozbar 28 -- We entered planetary orbit today, a non-human
+world called Accardi-3 (although the natives call it something like
+Blow'k-bibben-gordo). They're not officially part of the union. The rumors
+say that we're picking up a special ambassador to take back to Tremain for
+negotiations on joining the union. Tomorrow we have to put on our dress
+uniforms for some special welcoming ceremony."
+	 "August 2 -- I caught a glimpse of the alien ambassador during
+the welcoming ceremonies yesterday. He looks like a cross between a tree
+trunk and a melting ice cream cone. But at least the ceremony got me out of
+cleaning the grotch cages today."
+	 "August 7 -- Went to the mandatory Patrol Informational
+Tri-vision Triple Feature last night. We saw 'Treatment For Space Lice
+Infestation,' 'Shoreleave Shirley: How to Guard Against Contracting Alien
+Diseases,' and 'The Oxygen Tank: Your Galvanized Buddy in the Vacuum.'
+Blather confined half the ensigns to quarters for hooting during the second
+feature. (The other half had fallen asleep during the first feature.)"
+	 "August 24 -- TROT THAT TROTTING KRIP!! I applied for
+astrophysics training for the next quarter, but Blather says my work for the
+special assignment task force hasn't been good enough, so not only did he
+reject my astrophysics application, but he says I'll have to take remedial
+scrubbing next quarter. WHAT A TROTTING KRIP!||
+You know, for the first time I'm beginning to have doubts about
+whether I'm really cut out for the patrol. When I was growing up on Gallium,
+it was always taken for granted that I would join up when I came of age. My
+family has served in the patrol for five generations. In fact, my
+great-great-grandfather was a high admiral and one of the founding fathers of
+the Patrol! But I seem to be permanently stuck at Ensign 7th, and Blather is
+making my life miserable..."
+	 "Septem 4 -- We left hyperspace today at about 7600; weren't
+scheduled to for about another two weeks. The grapevine says we have special
+orders to investigate a planetary system here. Apparently, some of the
+archaeologists back on Varshon think it might have been part of the Second
+Union. I can't imagine why anyone would settle out here in this remote
+corner of the galaxy."
+	 "Septem 5 -- That krip has done it again! I missed two little
+pellets of trot when I was when I was cleaning out the grotch cages yesterday,
+and Blather gave me 100 demerits and assigned me two extra shifts of deck
+scrubbing -- including Deck Nine, the filthiest deck on the ship! I'm
+considering asking for a transfer -- or if things get worse, I might even
+abandon ship!">>
+
+<ROUTINE READ-DIARY ()
+	 <SETG DIARY-CTR <+ ,DIARY-CTR 1>>
+	 <COND (<EQUAL? ,DIARY-CTR 1>
+		<TELL "Words start to scroll across the screen:||">)>
+	 <WORDS-ON-SCREEN>>
+
+<ROUTINE WORDS-ON-SCREEN ()
+	 <TELL "\"11,344 ">
+	 <TELL <GET ,DIARY-ENTRIES ,DIARY-CTR> "\"">
+	 <COND (<NOT <EQUAL? ,DIARY-CTR 14>>
+		<TELL CR CR
+"The single word, \"More,\" appears at the bottom of the diary
+screen, and the little button flashes.">)>
+	 <CRLF>>
+
+
+<ROOM REACTOR-LOBBY
+      (LOC ROOMS)
+      (DESC "Reactor Lobby")
+      (LDESC
+"The corridor widens here as it nears the main drive area. To starboard is
+the Ion Reactor that powers the vessel, and aft of here is the Auxiliary
+Control Room. The corridor continues to port.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST"15 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO DECK-NINE IF CORRIDOR-DOOR IS OPEN)
+      (SOUTH SORRY "Ensign Blather pushes you roughly back toward your post.")
+      (EAST SORRY "Ensign Blather blocks your way, snarling angrily.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL CORRIDOR-DOOR)>
+
+<ROOM GANGWAY
+      (LOC ROOMS)
+      (DESC "Gangway")
+      (LDESC
+"This is a steep metal gangway connecting Deck Eight, above, and Deck
+Nine, below.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"10  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (UP TO DECK-EIGHT)
+      (DOWN TO DECK-NINE IF GANGWAY-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GANGWAY-DOOR STAIRS)
+      (ACTION GANGWAY-F)>
+
+<ROUTINE GANGWAY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-END>
+		<COND (<AND <PROB 15>
+			    <EQUAL? ,BLOWUP-COUNTER 0>>
+		       <TELL
+"You hear a distant bellowing ... something about an Ensign Seventh Class
+whose life is in danger." CR>)>)>>
+
+<ROOM DECK-EIGHT
+      (LOC ROOMS)
+      (DESC "Deck Eight")
+      (LDESC
+"This is a featureless corridor leading port and starboard. A gangway leads
+down, and to fore is the Hyperspatial Jump Machinery Room.")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN"10  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (DOWN TO GANGWAY)
+      (EAST SORRY "Blather throws you to the deck and makes you do 20 push-ups.")
+      (WEST SORRY "Blather throws you to the deck and makes you do 20 push-ups.")
+      (NORTH SORRY "Blather blocks your path, growling about extra galley duty.")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STAIRS)>
+
+;<OBJECT MEASLE
+	(DESC "Lt. Measle")
+	(LDESC
+"The Feinstein's record officer, Lieutenant Measle, is here.")
+	(SYNONYM MEASLE OFFICER)
+	(ADJECTIVE LT LIEUTENANT RECORD)
+	(FLAGS ACTORBIT)
+	(ACTION MEASLE-F)>
+
+;<ROUTINE MEASLE-F ()
+	 <COND (<VERB? ATTACK KICK>
+		<TELL "Lt. Measle summons Ensign Blather, who throws
+you in the brig." CR>
+		<GOTO ,BRIG>)>> 
+
+<GLOBAL BLATHER-LEAVE 0>
+
+<GLOBAL BRIGS-UP 0>
+
+<ROUTINE I-BLATHER ()
+	 <COND (<EQUAL? ,HERE ,DECK-EIGHT ,REACTOR-LOBBY>
+		<COND (<IN? ,BLATHER ,HERE>
+		       <SETG BRIGS-UP <+ ,BRIGS-UP 1>>
+		       <COND (<G? ,BRIGS-UP 3>
+			      <TELL CR
+"Blather loses his last vestige of patience and drags you to the Feinstein's
+brig. He throws you in, and the door clangs shut behind you." CR CR>
+			      <GOTO ,BRIG>
+			      <ROB ,ADVENTURER ,CRAG>
+			      <MOVE ,PADLOCK ,HERE>
+			      <FCLEAR ,PADLOCK ,TAKEBIT>)
+			     (T
+			      <TELL CR
+"\"I said to return to your post, Ensign Seventh Class!\" bellows Blather,
+turning a deepening shade of crimson." CR>)>)
+		      (<EQUAL? ,BLOWUP-COUNTER 0>
+		       <MOVE ,BLATHER ,HERE>
+		       <THIS-IS-IT ,BLATHER>
+		       <TELL CR
+"Ensign Blather, his uniform immaculate, enters and notices you are away
+from your post. \"Twenty demerits, Ensign Seventh Class!\" bellows Blather.
+\"Forty if you're not back on Deck Nine in five seconds!\" He curls his face
+into a hideous mask of disgust at your unbelievable negligence." CR>)>) 
+	       (<EQUAL? ,HERE ,DECK-NINE>
+		<COND (<AND <EQUAL? ,BLATHER-LEAVE 3>
+			    <IN? ,BLATHER ,HERE>>
+		       <SETG BLATHER-LEAVE 0>
+		       <REMOVE ,BLATHER>
+		       <TELL CR
+"Blather, adding fifty more demerits for good measure, moves off in search
+of more young ensigns to terrorize." CR>)
+		      (<IN? ,BLATHER ,DECK-NINE>
+		       <SETG BLATHER-LEAVE <+ ,BLATHER-LEAVE 1>>
+		       <RFALSE>)
+		      (<AND <NOT <IN? ,AMBASSADOR ,HERE>>
+			    <EQUAL? ,BLOWUP-COUNTER 0>
+			    <PROB 5>>
+		       <MOVE ,BLATHER ,HERE>
+		       <THIS-IS-IT ,BLATHER>
+		       <TELL CR
+"Ensign First Class Blather swaggers in. He studies your work with half-closed
+eyes. \"You call this polishing, Ensign Seventh Class?\" he sneers. \"We have
+a position for an Ensign Ninth Class in the toilet-scrubbing division,
+you know. Thirty demerits.">
+		       <COND (<NOT <FSET? ,PATROL-UNIFORM ,WORNBIT>>
+			      <TELL
+" And another sixty for improper dress!">)>
+		       <TELL
+"\" He glares at you, his arms crossed." CR>)>)>>
+
+<OBJECT BLATHER
+	(DESC "Ensign First Class")
+	(LDESC 
+"Ensign First Class Blather is standing before you, furiously scribbling
+demerits onto an oversized clipboard.")
+	(SYNONYM ENSIGN BLATHER)
+	(ADJECTIVE ENSIGN FIRST CLASS)
+	(SIZE 150)
+	(FLAGS VOWELBIT ACTORBIT)
+	(ACTION BLATHER-F)>
+
+<ROUTINE BLATHER-F ()
+	 <COND (<OR <VERB? TALK HELLO>
+		    <EQUAL? ,BLATHER ,WINNER>>		
+		<TELL
+"Blather shouts \"Speak when you're spoken to, Ensign Seventh Class!\" He
+breaks three pencil points in a frenzied rush to give you more demerits." CR>
+		<SETG P-CONT <>>
+		<SETG QUOTE-FLAG <>>
+		<RFATAL>)
+	       (<VERB? ATTACK KICK>
+		<JIGS-UP
+"Blather removes several of your appendages and internal organs.">)
+	       (<VERB? SALUTE>
+		<TELL
+"Blather's sneer softens a bit. \"First right thing you've done today. Only
+five demerits.\"" CR>)
+	       (<AND <VERB? THROW>
+		     <EQUAL? ,BLATHER ,PRSI>>
+		<MOVE ,PRSO ,HERE>
+		<TELL
+"The " D ,PRSO " bounces off Blather's bulbous nose. He becomes livid, orders
+you to do five hundred push-ups, gives you ten thousand demerits, and assigns
+you five years of extra galley duty." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"Ensign Blather is a tall, beefy officer with a tremendous, misshapen nose.
+His uniform is perfect in every respect, and the crease in his trousers
+could probably slice diamonds in half." CR>)
+	       (<VERB? TAKE>
+		<TELL
+"Blather brushes you away, muttering about suspended shore leave." CR>)>>
+
+<OBJECT AMBASSADOR
+	(DESC "alien ambassador")
+	(LDESC 
+"A high-ranking ambassador from a newly contacted alien race is standing
+here on three of his legs, and watching you with seven of his eyes.")
+	(SYNONYM AMBASSADOR)
+	(ADJECTIVE VERY IMPORTANT ALIEN HIGH-RANKING HIGH RANKING)
+	(SIZE 150)
+	(FLAGS VOWELBIT ACTORBIT)
+	(ACTION AMBASSADOR-F)>
+
+<OBJECT CELERY
+	(DESC "piece of celery")
+	(SYNONYM CELERY PIECE STALK)
+	(FLAGS NDESCBIT FOODBIT)
+	(ACTION CELERY-F)>
+
+<ROUTINE CELERY-F ()
+	 <COND (<VERB? EAT>
+		<JIGS-UP
+"Oops. Looks like Blow'k-Bibben-Gordoan metabolism is not
+compatible with our own. You die of all sorts of convulsions.">)
+	       (<VERB? TAKE>
+		<TELL
+"The ambassador seems perturbed by your lack of normal protocol." CR>)>>
+
+<GLOBAL AMBASSADOR-LEAVE 0>
+
+<ROUTINE I-AMBASSADOR ()
+	 <COND (<AND <G? ,AMBASSADOR-LEAVE 2>
+		     <IN? ,AMBASSADOR ,HERE>>
+		<REMOVE ,AMBASSADOR>
+		<REMOVE ,CELERY>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL CR
+"The ambassador grunts a polite farewell, and disappears up the gangway,
+leaving a trail of dripping slime." CR>)>
+		<DISABLE <INT I-AMBASSADOR>>)
+	       (<IN? ,AMBASSADOR ,DECK-NINE>
+		<SETG AMBASSADOR-LEAVE <+ ,AMBASSADOR-LEAVE 1>>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL CR "The ambassador ">
+		       <TELL <PICK-ONE ,AMBASSADOR-QUOTES> CR>)
+		      (T
+			<RFALSE>)>)
+	       (<EQUAL? ,HERE ,DECK-NINE>
+		<COND (<AND <NOT <IN? ,AMBASSADOR ,HERE>>
+			    <NOT <IN? ,BLATHER ,HERE>>
+			    <EQUAL? ,BLOWUP-COUNTER 0>
+			    <PROB 15>>
+		       <MOVE ,AMBASSADOR ,HERE>
+		       <MOVE ,CELERY ,HERE>
+		       <THIS-IS-IT ,AMBASSADOR>
+		       <MOVE ,BROCHURE ,ADVENTURER>
+		       <TELL CR
+"The alien ambassador from the planet Blow'k-bibben-Gordo ambles toward you
+from down the corridor. He is munching on something resembling an enormous
+stalk of celery, and he leaves a trail of green slime on the deck. He stops
+nearby, and you wince as a pool of slime begins forming beneath him on your
+newly polished deck. The ambassador wheezes loudly and hands you a brochure
+outlining his planet's major exports."CR>)>)>>
+
+<OBJECT BROCHURE
+	(DESC "brochure")
+	(LDESC
+"Unfortunately, one of those stupid Blow'k-bibben-Gordo brochures is here.")
+	(SYNONYM BROCHURE PAMPHLET LEAFLET)
+	(FLAGS ACIDBIT TAKEBIT READBIT)
+	(SIZE 4)
+	(TEXT
+"\"The leading export of Blow'k-bibben-Gordo is the adventure game|
+|
+          *** PLANETFALL ***|
+|
+written by S. Eric Meretzky.|
+Buy one today. Better yet, buy a thousand.\"")>
+
+<CONSTANT AMBASSADOR-QUOTES
+	<PLTABLE
+	 "introduces himself as Br'gun-te'elkner-ipg'nun."
+	 "asks if you are performing some sort of religious ceremony."
+	 "inquires whether you are interested in a game of Bocci."	
+	 "recites a plea for coexistence between your races."
+	 "asks where Admiral Smithers can be found."
+	 "remarks that all humans look alike to him."
+	 "offers you a bit of celery.">>
+
+<ROUTINE AMBASSADOR-F ()
+	 <COND (<OR <VERB? TALK HELLO>
+		    <EQUAL? ,AMBASSADOR ,WINNER>>
+		<TELL
+"The ambassador taps his translator, and then touches his center knee to his
+left ear (the Blow'k-bibben-Gordoan equivalent of shrugging)." CR>
+		<SETG P-CONT <>>
+		<SETG QUOTE-FLAG <>>
+		<RFATAL>)
+	       (<AND <VERB? ASK-FOR>
+		     <EQUAL? ,PRSI ,CELERY>>
+		<TELL
+"The ambassador seems willing to let you eat some of it, but I doubt he wants
+to part with the entire stalk." CR>)
+	       (<VERB? ATTACK KICK>
+		<TELL
+"The ambassador is startled, and emits an amazing quantity of slime which
+spreads across the section of the deck you just polished." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The ambassador has around twenty eyes, seven of which are currently
+open. Half of his six legs are retracted. Green slime oozes from
+multiple orifices in his scaly skin. He speaks through a mechanical
+translator slung around his neck." CR>)
+	       (<VERB? LISTEN>
+		<TELL
+"The alien makes a wheezing noise as he breathes." CR>)>>
+
+<ROOM ESCAPE-POD
+      (LOC ROOMS)
+      (DESC "Escape Pod")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST PER POD-EXIT-F)
+      (OUT PER POD-EXIT-F)
+      (UP PER POD-EXIT-F)
+      (FLAGS RLANDBIT ONBIT)
+      (VALUE 3)
+      (GLOBAL POD-DOOR CONTROLS LIGHTS GLOBAL-POD WINDOW)
+      (ACTION ESCAPE-POD-F)>
+
+<OBJECT GLOBAL-POD
+	(LOC LOCAL-GLOBALS)
+	(DESC "escape pod")
+	(SYNONYM POD)
+	(ADJECTIVE EMERGENCY ESCAPE PRIMARY)
+	(FLAGS VOWELBIT VEHBIT NDESCBIT)
+	(ACTION GLOBAL-POD-F)>
+
+<ROUTINE GLOBAL-POD-F ()
+	 <COND (<VERB? THROUGH BOARD WALK-TO>
+		<COND (<EQUAL? ,HERE ,ESCAPE-POD>
+		       <TELL "You're already in it!" CR>)
+		      (T
+		       <DO-WALK ,P?WEST>
+		       <RTRUE>)>)
+	       (<VERB? EXIT DISEMBARK DROP>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL "You're not in it!" CR>)
+		      (T
+		       <DO-WALK ,P?OUT>
+		       <RTRUE>)>)
+	       (<VERB? OPEN>
+		<PERFORM ,V?OPEN ,POD-DOOR>
+		<RTRUE>)>>
+
+<ROUTINE POD-EXIT-F ()
+	 <COND (<G? ,BLOWUP-COUNTER 4>
+		<COND (<EQUAL? ,PRSO ,P?EAST>
+		       <TELL ,CANT-GO CR>
+		       <RFALSE>)
+		      (<NOT <FSET? ,POD-DOOR ,OPENBIT>>
+		       <TELL "The pod door is closed." CR>
+		       <RFALSE>)
+		      (T
+		       <SETG C-ELAPSED 30>
+		       ,UNDERWATER)>)
+	       (T
+		<COND (<EQUAL? ,PRSO ,P?UP>
+		       <TELL ,CANT-GO CR>
+		       <RFALSE>)
+		      (<NOT <FSET? ,POD-DOOR ,OPENBIT>>
+		       <TELL "The pod door is closed." CR>
+		       <RFALSE>)
+		      (T
+		       ,DECK-NINE)>)>>
+
+<OBJECT SAFETY-WEB
+	(LOC ESCAPE-POD)
+	(DESC "safety web")
+	(SYNONYM MASS WEB WEBBING NET)
+	(ADJECTIVE SAFETY)
+	(FLAGS CLIMBBIT VEHBIT NDESCBIT)
+	(ACTION SAFETY-WEB-F)>
+
+<ROUTINE SAFETY-WEB-F ("OPTIONAL" (RARG ,M-OBJECT))
+	 <COND (<AND <VERB? EXAMINE>
+		     <EQUAL? .RARG ,M-OBJECT>>
+		<TELL
+"The safety webbing fills most of the pod. It could accomodate
+from one to, perhaps, twenty people." CR>)
+	       (<AND <VERB? TAKE>
+		     <EQUAL? .RARG ,M-OBJECT>>
+		<TELL
+"The safety web seems to be more intended for getting into than
+grabbing onto." CR>)
+	       (<AND <VERB? BOARD CLIMB-ON>
+		     <EQUAL? .RARG ,M-OBJECT>>
+		<GOTO ,SAFETY-WEB>
+		;<MOVE ,ADVENTURER ,SAFETY-WEB>
+		;<SETG OHERE <>>                   ;"arb"
+		<TELL
+"You are now safely cushioned within the web." CR>)
+	       (<AND <VERB? OPEN TAKE>
+		     <EQUAL? .RARG ,M-BEG>>
+		<COND (<EQUAL? ,PRSO ,SAFETY-WEB>
+		       <TELL "You're in it!" CR>)
+		      (T
+		       <TELL "You can't reach it from here." CR>)>)
+	       (<AND <VERB? WALK>
+		     <EQUAL? .RARG ,M-BEG>>
+		<TELL "You'll have to stand up, first." CR>)
+	       (<AND <VERB? EXIT DISEMBARK DROP STAND>
+		     <EQUAL? .RARG ,M-OBJECT>
+		     <IN? ,ADVENTURER ,SAFETY-WEB>>
+		<GOTO ,HERE>
+		;<MOVE ,ADVENTURER ,HERE>
+		;<SETG OHERE <>>                 ;"arb"
+		<COND (<AND <G? ,TRIP-COUNTER 14>
+			    <EQUAL? <GET <INT I-SINK-POD> ,C-ENABLED?> 0>>
+		       <ENABLE <QUEUE I-SINK-POD -1>>
+		       <TELL
+"As you stand, the pod shifts slightly and you feel it falling.
+A moment later, the fall stops with a shock, and you see water
+rising past the viewport." CR>)
+		      (T
+		       <TELL "You are standing again." CR>)>)>> 
+
+<OBJECT TOWEL
+	(DESC "towel")
+	(SYNONYM TOWEL)
+	(SIZE 10)
+	(FLAGS READBIT TAKEBIT)
+	(TEXT
+"\"S.P.S. FEINSTEIN|
+  Escape Pod #42|
+   Don't Panic!\"")
+	(ACTION TOWEL-F)>
+
+<ROUTINE TOWEL-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"A pretty ordinary towel. Something is written in its corner." CR>)>>
+
+<OBJECT FOOD-KIT
+	(DESC "survival kit")
+	(SYNONYM PROVISIONS KIT)
+	(ADJECTIVE SURVIVAL EMERGENCY)
+	(SIZE 10)
+	(CAPACITY 25)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT)
+	(ACTION FOOD-KIT-F)>
+
+<ROUTINE FOOD-KIT-F ()
+	 <COND (<VERB? EMPTY>
+		<COND (<NOT <FSET? ,FOOD-KIT ,OPENBIT>>
+		       <TELL "The kit is closed!" CR>)
+		      (<FIRST? ,PRSO>
+		       <TELL
+"The goo, being gooey, sticks to the inside of the kit. You would probably
+have to shake the kit to get the goo out." CR>)>)>>
+
+<OBJECT RED-GOO
+	(LOC FOOD-KIT)
+	(DESC "blob of red goo")
+	(SYNONYM GOO BLOB FOOD PIE)
+	(ADJECTIVE RED CHERRY)
+	(FLAGS ACIDBIT FOODBIT)
+	(ACTION GOO-F)>
+
+<OBJECT BROWN-GOO
+	(LOC FOOD-KIT)
+	(DESC "blob of brown goo")
+	(SYNONYM GOO BLOB FOOD STEW)
+	(ADJECTIVE BROWN BEEF)
+	(FLAGS ACIDBIT FOODBIT)
+	(ACTION GOO-F)>
+
+<OBJECT GREEN-GOO
+	(LOC FOOD-KIT)
+	(DESC "blob of green goo")
+	(SYNONYM GOO BLOB FOOD BEANS)
+	(ADJECTIVE GREEN LIMA)
+	(FLAGS ACIDBIT FOODBIT)
+	(ACTION GOO-F)>
+
+<ROUTINE GOO-F ()
+	<COND (<VERB? EAT>
+	       <COND (<EQUAL? ,HUNGER-LEVEL 0>
+		      <TELL ,NOT-HUNGRY CR>)
+		     (<NOT <IN? ,FOOD-KIT ,ADVENTURER>>
+		      <SETG PRSO ,FOOD-KIT>
+		      <NOT-HOLDING>
+		      <THIS-IS-IT ,FOOD-KIT>)
+		     (T
+		      <REMOVE ,PRSO>
+		      <SETG C-ELAPSED 15>
+		      <SETG HUNGER-LEVEL 0>
+		      <ENABLE <QUEUE I-HUNGER-WARNINGS 1450>>
+		      <TELL "Mmmm...that tasted just like ">
+		      <COND (<EQUAL? ,PRSO ,BROWN-GOO>
+			     <TELL "delicious Nebulan fungus pudding">)
+			    (<EQUAL? ,PRSO ,RED-GOO>
+			     <TELL "scrumptious cherry pie">)
+			    (T
+			     <TELL "yummy lima beans">)>
+		      <TELL "." CR>)>)
+	      (<VERB? TAKE DROP>
+	       <COND (<VERB? DROP>	
+	       	      <TELL "The goo, being gooey, sticks where it is">)
+	             (<VERB? TAKE>
+	              <TELL "It would ooze through your fingers">)>
+	       <TELL
+". You'll have to eat it right from the survival kit." CR>)>>
+
+<ROUTINE ESCAPE-POD-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is one of the Feinstein's primary escape pods, for use in extreme
+emergencies. A mass of safety webbing, large enough to hold several dozen
+people, fills half the pod. The controls are entirely automated. The
+bulkhead leading out is ">
+		<DDESC ,POD-DOOR>
+		<TELL "." CR>)>>
+
+<OBJECT POD-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "escape pod bulkhead")
+	(SYNONYM DOOR BULKHEAD)
+	(ADJECTIVE EMERGENCY ESCAPE POD)
+	(FLAGS VOWELBIT DOORBIT NDESCBIT)
+	(ACTION POD-DOOR-F)>
+
+<ROUTINE POD-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,POD-DOOR ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (<G? ,TRIP-COUNTER 14>
+		       <FSET ,POD-DOOR ,OPENBIT>
+		       <TELL 
+"The bulkhead opens and cold ocean water rushes in!" CR>)
+		      (<G? ,BLOWUP-COUNTER 0>
+		       <COND (<EQUAL? ,HERE ,DECK-NINE>
+			      <TELL
+"Too late. The pod's launching procedure has already begun." CR>)
+			     (T
+			      <TELL
+"Opening the door now would be a phenomenally stupid idea." CR>)>)
+		      (T
+		       <TELL
+"Why open the door to the emergency escape pod if there's no emergency?" CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<NOT <FSET? ,POD-DOOR ,OPENBIT>>
+		       <IS-CLOSED>)
+		      (T
+		       <TELL "You can't close it yourself." CR>)>)
+	       (<VERB? THROUGH>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <DO-WALK ,P?WEST>)
+		      (T
+		       <DO-WALK ,P?OUT>)>)>>
+
+<OBJECT CORRIDOR-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "wide bulkhead")
+	(SYNONYM DOOR BULKHEAD)
+	(ADJECTIVE EMERGENCY WIDE)
+	(FLAGS INVISIBLE DOORBIT OPENBIT NDESCBIT)
+	(ACTION GANGWAY-DOOR-F)>
+
+<OBJECT GANGWAY-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "narrow bulkhead")
+	(SYNONYM DOOR BULKHEAD)
+	(ADJECTIVE EMERGENCY NARROW)
+	(FLAGS INVISIBLE DOORBIT OPENBIT NDESCBIT)
+	(ACTION GANGWAY-DOOR-F)>
+
+<ROUTINE GANGWAY-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <ALREADY-OPEN>)
+		      (T
+		       <TELL
+"There doesn't seem to be any way to open it." CR>)>)
+	       (<VERB? CLOSE>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "You can't close it yourself." CR>)
+		      (T
+		       <IS-CLOSED>)>)>>
+
+<GLOBAL BLOWUP-COUNTER 0>
+
+<ROUTINE I-BLOWUP-FEINSTEIN ()
+	 <ENABLE <QUEUE I-BLOWUP-FEINSTEIN -1>>
+	 <SETG BLOWUP-COUNTER <+ ,BLOWUP-COUNTER 1>>
+	 <COND (<EQUAL? ,BLOWUP-COUNTER 5>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <JIGS-UP
+"|
+An enormous explosion tears the walls of the ship apart. If only you
+had made it to an escape pod...">)
+		      (T
+		       <TELL CR
+"Through the viewport of the pod you see the Feinstein dwindle as you head
+away. Bursts of light dot its hull. Suddenly, a huge explosion blows the
+Feinstein into tiny pieces, sending the escape pod tumbling away! " CR>
+		       <ENABLE <QUEUE I-POD-TRIP -1>>
+		       <DISABLE <INT I-BLOWUP-FEINSTEIN>>
+		       <COND (<AND <NOT <IN? ,ADVENTURER ,SAFETY-WEB>>
+				   <PROB 20>>
+			      <JIGS-UP
+"|
+You are thrown against the bulkhead, head first. It seems that getting in
+the safety webbing would have been a good idea.">)
+			     (<NOT <IN? ,ADVENTURER ,SAFETY-WEB>>
+			      <TELL CR
+"You are thrown against the bulkhead, bruising a few limbs. The safety
+webbing might have offered a bit more protection." CR>)>)>)
+	       (<EQUAL? ,BLOWUP-COUNTER 4>
+		<DISABLE <INT I-BLATHER>>
+		<DISABLE <INT I-AMBASSADOR>>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL CR "Explosions continue to rock the ship." CR>)
+		      (T
+		       <TELL CR
+"You feel the pod begin to slide down its ejection tube as explosions shake
+the mother ship." CR>)>)
+	       (<EQUAL? ,BLOWUP-COUNTER 3>
+		<FCLEAR ,POD-DOOR ,OPENBIT>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL CR
+"More powerful explosions buffet the ship. The lights flicker madly,
+and the escape-pod bulkhead clangs shut." CR>)
+		      (<EQUAL? ,HERE ,ESCAPE-POD>
+		       <TELL CR
+"The pod door clangs shut as heavy explosions continue to buffet the
+Feinstein." CR>)
+		      (T
+		       <JIGS-UP
+"|
+The ship rocks from the force of multiple explosions. The lights go out, and
+you feel a sudden drop in pressure accompanied by a loud hissing. Too bad you
+weren't in the escape pod...">)>)
+	       (<EQUAL? ,BLOWUP-COUNTER 2>
+		<FCLEAR ,CORRIDOR-DOOR ,OPENBIT>
+		<FCLEAR ,CORRIDOR-DOOR ,INVISIBLE>
+		<FCLEAR ,GANGWAY-DOOR ,OPENBIT>
+		<FCLEAR ,GANGWAY-DOOR ,INVISIBLE>
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL CR
+"More distant explosions! A narrow emergency bulkhead at the base of the
+gangway and a wider one along the corridor to starboard both crash shut!" CR>)
+		      (<EQUAL? ,HERE ,ESCAPE-POD ,BRIG>
+		       <TELL CR
+"The ship shakes again. You hear, from close by, the sounds of emergency
+bulkheads closing." CR>)
+		      (<EQUAL? ,HERE ,GANGWAY>
+		       <TELL CR
+"Another explosion. A narrow bulkhead at the base of the
+gangway slams shut!" CR>)
+		      (T
+		       <TELL CR
+"You are deafened by more explosions and by the sound of emergency bulkheads
+slamming closed. ">
+		       <COND (<IN? ,BLATHER ,HERE>
+			      <TELL
+"Blather, foaming slightly at the mouth, screams at you to swab the decks">)
+			     (T
+			      <MOVE ,BLATHER ,HERE>
+			      <TELL
+"Blather enters, looking confused, and begins ranting madly at you">)>
+		       <TELL "." CR>)>)
+	       (<EQUAL? ,BLOWUP-COUNTER 1>
+		<SETG BRIGS-UP 0>
+		<FSET ,POD-DOOR ,OPENBIT>
+		<TELL CR
+"A massive explosion rocks the ship. Echoes from the explosion resound
+deafeningly down the halls. ">
+		<COND (<EQUAL? ,HERE ,DECK-NINE>
+		       <TELL "The door to port slides open. ">
+		       <COND (<IN? ,AMBASSADOR ,HERE>
+			      <REMOVE ,AMBASSADOR>
+			      <REMOVE ,CELERY>
+			      <TELL
+"The ambassador squawks frantically, evacuates a massive load of gooey
+slime, and rushes away." CR>)
+			     (<IN? ,BLATHER ,HERE>
+			      <REMOVE ,BLATHER>
+			      <TELL
+"Blather, confused by this nonroutine occurrence, orders you to continue
+scrubbing the floor, and then dashes off." CR>)
+			     (T
+			      <TELL CR>)>)
+		      (<EQUAL? ,HERE ,ESCAPE-POD ,GANGWAY ,BRIG>
+		       <TELL CR>)
+		      (T
+		       <TELL
+"Blather, looking slightly disoriented, barks at you to resume your assigned
+duties." CR>)>)>>
+
+<GLOBAL TRIP-COUNTER 0>
+
+<ROUTINE I-POD-TRIP ()
+	 <SETG TRIP-COUNTER <+ ,TRIP-COUNTER 1>>
+	 <COND (<EQUAL? ,TRIP-COUNTER 1>
+		<TELL CR
+"As the escape pod tumbles away from the former location of the Feinstein, its
+gyroscopes whine. The pod slowly stops tumbling. Lights on the control panel
+blink furiously as the autopilot searches for a reasonable destination." CR>)
+	       (<EQUAL? ,TRIP-COUNTER 2>
+		<TELL CR
+"The auxiliary rockets fire briefly, and a nearby planet swings into view
+through the port. It appears to be almost entirely ocean, with just a few
+visible islands and an unusually small polar ice cap. A moment later, the
+system's sun swings into view, and the viewport polarizes into a featureless
+black rectangle." CR>)
+	       (<EQUAL? ,TRIP-COUNTER 3>
+		<TELL CR
+"The main thrusters fire a long, gentle burst. A monotonic voice issues
+from the control panel. \"Approaching planet...human-habitable.\"" CR>)
+	       (<EQUAL? ,TRIP-COUNTER 7>
+		<TELL CR
+"The pod is buffeted as it enters the planet's atmosphere." CR>)
+	       (<EQUAL? ,TRIP-COUNTER 8>
+		<TELL CR
+"You feel the temperature begin to rise, and the pod's climate
+control system roars as it labors to compensate." CR>)
+	       (<EQUAL? ,TRIP-COUNTER 9>
+		<TELL CR
+"The viewport suddenly becomes transparent again, giving you a view of
+endless ocean below. The lights on the control panel flash madly as
+the pod's computer searches for a suitable landing site. The thrusters fire
+long and hard, slowing the pod's descent." CR>)
+	       (<EQUAL? ,TRIP-COUNTER 10>
+		<TELL CR
+"The pod is now approaching the closer of a pair of islands. It appears
+to be surrounded by sheer cliffs rising from the water, and is topped by
+a wide plateau. The plateau seems to be covered by a sprawling complex
+of buildings." CR>)
+	       (<EQUAL? ,TRIP-COUNTER 11>
+		<COND (<IN? ,ADVENTURER ,SAFETY-WEB>
+		       <MOVE ,FOOD-KIT ,HERE>
+		       <MOVE ,TOWEL ,HERE>
+		       <TELL CR
+"The pod lands with a thud. Through the viewport you can see a rocky cleft
+and some water below. The pod rocks gently back and forth as if it was
+precariously balanced. A previously unseen panel slides open, revealing
+some emergency provisions, including a survival kit and a towel." CR>
+		       <SETG TRIP-COUNTER 15>
+		       <DISABLE <INT I-POD-TRIP>>)
+		      (T
+		       <JIGS-UP
+"|
+The pod, whose automated controls were unfortunately designed by computer
+scientists, lands with a good deal of force. Your body sails across the pod
+until it is stopped by one of the sharper corners of the control panel.">)>)>>
+
+<GLOBAL SINK-COUNTER 0>
+
+<ROUTINE I-SINK-POD ()
+	 <SETG SINK-COUNTER <+ ,SINK-COUNTER 1>>
+	 <COND (<AND <EQUAL? ,SINK-COUNTER 3>
+		     <EQUAL? ,HERE ,ESCAPE-POD>>
+		<TELL CR 
+"The pod is now completely submerged, and you feel it smash against underwater
+rocks. Bubbles streaming upward past the window indicate that the pod is
+continuing to sink." CR>)
+	       (<AND <EQUAL? ,SINK-COUNTER 4>
+		     <EQUAL? ,HERE ,ESCAPE-POD>
+		     <NOT <FSET? ,POD-DOOR ,OPENBIT>>>
+		<TELL CR 
+"The pod creaks ominously from the increasing pressure." CR>)
+	       (<AND <EQUAL? ,SINK-COUNTER 5>
+		     <EQUAL? ,HERE ,ESCAPE-POD>>
+		<COND (<FSET? ,POD-DOOR ,OPENBIT>
+		       <JIGS-UP
+"|
+Between the swirling waters and the increasing pressure, it's curtains
+for you. Perhaps you should have left the pod a bit sooner.">)
+		      (T
+		       <JIGS-UP
+"|
+The pod splits open, and water pours in.">)>)>>
+
+^L
+"The next bunch of stuff is for the cards, slots, and associated junk."
+
+<OBJECT SLOT
+	(LOC LOCAL-GLOBALS)
+	(DESC "slot")
+	(SYNONYM SLOT)
+	(ADJECTIVE SMALL)
+	(FLAGS NDESCBIT)
+	(ACTION SLOT-F)>
+
+<ROUTINE SLOT-F ()
+	 <COND (<AND <VERB? PUT>
+		     <EQUAL? ,SLOT ,PRSI>>
+		<TELL
+"The slot is shallow, so you can't put anything in it. It may be possible to
+slide something through the slot, though." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The slot is about ten centimeters wide, but only about two centimeters deep.
+It is surrounded on its long sides by parallel ridges of metal." CR>)
+	       (<AND <VERB? SLIDE>
+		     <EQUAL? ,SLOT ,PRSI>>
+		<MOVE ,PRSO ,ADVENTURER>
+		<COND (<FSET? ,PRSO ,SCRAMBLEDBIT>
+		       <TELL
+"A sign flashes \"Magnetik striip randumiizd...konsult Prajekt Handbuk abowt
+propur kaar uv awtharazaashun kardz.\"" CR>)
+		      (<EQUAL? ,PRSO ,KITCHEN-CARD>
+		       <COND (<EQUAL? ,HERE ,MESS-HALL>
+			      <COND (<FSET? ,KITCHEN-DOOR ,OPENBIT>
+				     <TELL "Nothing happens." CR>)
+				    (T
+				     <FSET ,KITCHEN-DOOR ,OPENBIT>
+				     <ENABLE <QUEUE I-KITCHEN-DOOR-CLOSES 50>>
+				     <TELL
+"The kitchen door quietly slides open." CR>
+				     <FLOYD-REVEAL-CARD-F>
+				     <RTRUE>)>)
+			     (T
+			      <TELL ,WRONG-CARD CR>)>)
+		      (<EQUAL? ,PRSO ,UPPER-ELEVATOR-CARD>
+		       <COND (<EQUAL? ,HERE ,UPPER-ELEVATOR>
+			      <SETG UPPER-ELEVATOR-ON T>
+			      <ENABLE <QUEUE I-TURNOFF-UPPER-ELEVATOR 180>>
+			      <TELL ,ELEVATOR-ENABLED CR>
+			      <FLOYD-REVEAL-CARD-F>
+			      <RTRUE>)
+			     (T
+			      <TELL ,WRONG-CARD CR>)>)
+		      (<EQUAL? ,PRSO ,LOWER-ELEVATOR-CARD>
+		       <COND (<EQUAL? ,HERE ,LOWER-ELEVATOR>
+			      <SETG LOWER-ELEVATOR-ON T>Y
+			      <ENABLE <QUEUE I-TURNOFF-LOWER-ELEVATOR 200>>
+			      <TELL ,ELEVATOR-ENABLED CR>)
+			     (T
+			      <TELL ,WRONG-CARD CR>)>)
+		      (<EQUAL? ,PRSO ,TELEPORTATION-CARD>
+		       <COND (<EQUAL? ,HERE ,BOOTH-1 ,BOOTH-2 ,BOOTH-3>
+			      <SETG TELEPORTATION-ON T>
+			      <ENABLE <QUEUE I-TURNOFF-TELEPORTATION 30>>
+			      <TELL
+"Nothing happens for a moment. Then a light flashes \"Redee.\"" CR>)
+			     (T
+			      <TELL ,WRONG-CARD CR>)>)
+		      (<EQUAL? ,PRSO ,SHUTTLE-CARD>
+		       <SHUTTLE-ACTIVATE>)
+		      (<EQUAL? ,PRSO ,MINI-CARD>
+		       <COND (<EQUAL? ,HERE ,MINI-BOOTH>
+			      <SETG MINI-ACTIVATED T>
+			      <ENABLE <QUEUE I-TURNOFF-MINI 30>>
+			      <TELL
+"A melodic high-pitched voice says \"Miniaturization and teleportation booth
+activated. Please type in damaged sector number.\"" CR>)
+			     (T
+			      <TELL ,WRONG-CARD CR>)>)
+		      (<EQUAL? ,PRSO ,ID-CARD>
+		       <TELL ,WRONG-CARD CR>)>)>>
+
+<CONSTANT ELEVATOR-ENABLED "A recorded voice chimes \"Elevator enabled.\"">
+
+<CONSTANT WRONG-CARD 
+"A sign flashes \"Inkorekt awtharazaashun kard...akses deeniid.\"">
+
+<GLOBAL CARD-REVEALED <>> ;"checks whether Floyd has already revealed his card"
+
+<ROUTINE FLOYD-REVEAL-CARD-F ()
+	 <COND (<AND <IN? ,FLOYD ,HERE>
+		     <NOT ,CARD-REVEALED>
+		     <OR <AND <EQUAL? ,DAY 2>
+			      <L? ,INTERNAL-MOVES 5000>
+			      <PROB 5>>
+			 <AND <EQUAL? ,DAY 2>
+			      <G? ,INTERNAL-MOVES 4999>
+			      <PROB 10>>
+			 <AND <EQUAL? ,DAY 3>
+			      <L? ,INTERNAL-MOVES 5000>
+			      <PROB 20>>
+			 <AND <EQUAL? ,DAY 3>
+			      <G? ,INTERNAL-MOVES 4999>
+			      <PROB 40>>
+			 <G? ,DAY 3>>>
+		<SETG CARD-REVEALED T>
+		<SETG FLOYD-SPOKE T>
+		<COND (<NOT ,CARD-STOLEN>
+		       <MOVE ,LOWER-ELEVATOR-CARD ,FLOYD>
+		       <TELL
+"Floyd claps his hands with excitement. \"Those cards are really neat, huh?
+Floyd has one for himself--see?\" He reaches behind one of his panels and
+retrieves a magnetic-striped card. He waves it exuberantly in the air." CR>)
+		      (T
+		       <TELL
+"Floyd bobs up and down with excitement. \"Those cards are really neat! Floyd
+has one, too.\" He begins searching through his compartments, but finds
+nothing. He scratches his head and looks confused." CR>)>)>>
+
+<ROUTINE I-KITCHEN-DOOR-CLOSES ()
+	 <COND (<EQUAL? ,HERE ,KITCHEN>
+		<ENABLE <QUEUE I-KITCHEN-DOOR-CLOSES -1>>
+		<RFALSE>)
+	       (T
+		<FCLEAR ,KITCHEN-DOOR ,OPENBIT>
+		<DISABLE <INT I-KITCHEN-DOOR-CLOSES>>
+		<COND (<EQUAL? ,HERE ,MESS-HALL>
+		       <TELL CR
+"The kitchen door slides quietly closed." CR>)>)>>
+^L
+
+;"teleportation stuff"
+
+<OBJECT TELEPORTATION-BUTTON-1
+	(LOC LOCAL-GLOBALS)
+	(DESC "brown button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BROWN FIRST)
+	(FLAGS NDESCBIT)
+	(ACTION TELEPORTATION-BUTTON-1-F)>
+
+<OBJECT TELEPORTATION-BUTTON-2
+	(LOC LOCAL-GLOBALS)
+	(DESC "beige button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE BEIGE SECOND)
+	(FLAGS NDESCBIT)
+	(ACTION TELEPORTATION-BUTTON-2-F)>
+
+<OBJECT TELEPORTATION-BUTTON-3
+	(LOC LOCAL-GLOBALS)
+	(DESC "tan button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE TAN THIRD)
+	(FLAGS NDESCBIT)
+	(ACTION TELEPORTATION-BUTTON-3-F)>
+
+<GLOBAL TELEPORTATION-ON <>>
+
+<ROUTINE TELEPORT (BOOTH)
+	 <COND (<VERB? PUSH>
+		<COND (<EQUAL? ,TELEPORTATION-ON T>
+		       <TELL
+"You experience a strange feeling in the pit of your stomach." CR>
+		       <COND (<IN? ,FLOYD ,HERE>
+			      <TELL
+"Floyd gives a terrified squeal, and clutches at his guidance mechanism." CR>
+			      <SETG FLOYD-SPOKE T>
+			      <ENABLE <QUEUE I-FLOYD 1>>)>
+		       <ROB ,HERE .BOOTH>
+		       <GOTO .BOOTH <>>
+		       <DISABLE <INT I-TURNOFF-TELEPORTATION>>
+		       <SETG TELEPORTATION-ON <>>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"A sign flashes \"Teleportaashun buux not aktivaatid.\"" CR>)>)>>
+
+<ROUTINE TELEPORTATION-BUTTON-1-F ()
+	 <TELEPORT ,BOOTH-1>>
+
+<ROUTINE TELEPORTATION-BUTTON-2-F ()
+	 <TELEPORT ,BOOTH-2>>
+
+<ROUTINE TELEPORTATION-BUTTON-3-F ()
+	 <TELEPORT ,BOOTH-3>>
+
+<ROUTINE I-TURNOFF-TELEPORTATION ()
+	 <SETG TELEPORTATION-ON <>>
+	 <COND (<EQUAL? ,HERE ,BOOTH-1 ,BOOTH-2 ,BOOTH-3>
+		<TELL CR "The ready light goes dark." CR>)>>
+
+^L
+
+;"shuttle system"
+
+<OBJECT GLOBAL-SHUTTLE
+	(LOC LOCAL-GLOBALS)
+	(DESC "shuttle car")
+	(SYNONYM CAR SHUTTLE)
+	(ADJECTIVE SHUTTLE)
+	(FLAGS NDESCBIT)
+	(ACTION GLOBAL-SHUTTLE-F)>
+
+<ROUTINE GLOBAL-SHUTTLE-F ()
+	 <COND (<VERB? ENTER THROUGH WALK-TO BOARD>
+		<COND (<OR <EQUAL? ,HERE ,SHUTTLE-CAR-ALFIE
+				         ,ALFIE-CONTROL-EAST
+					 ,ALFIE-CONTROL-WEST>
+			   <EQUAL? ,HERE ,SHUTTLE-CAR-BETTY
+				         ,BETTY-CONTROL-EAST
+					 ,BETTY-CONTROL-WEST>>
+		       <TELL "You ARE in the shuttle car." CR>)
+		      (T
+		       <TELL "Use 'north' or 'south'." CR>)>)
+	       (<VERB? EXIT DISEMBARK DROP>
+		<COND (<EQUAL? ,HERE ,SHUTTLE-CAR-ALFIE>
+		       <DO-WALK ,P?NORTH>)
+		      (<EQUAL? ,HERE ,SHUTTLE-CAR-BETTY>
+		       <DO-WALK ,P?SOUTH>)
+		      (<OR <EQUAL? ,HERE ,BETTY-CONTROL-EAST
+					 ,BETTY-CONTROL-WEST>
+			   <EQUAL? ,HERE ,ALFIE-CONTROL-EAST
+				         ,ALFIE-CONTROL-WEST>>
+		       <TELL "You can't exit the shuttle car from here." CR>)
+		      (T
+		       <TELL "You're not in the shuttle car!" CR>)>)>>
+
+<ROOM SHUTTLE-CAR-ALFIE
+      (LOC ROOMS)
+      (DESC "Shuttle Car Alfie")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (NORTH PER SHUTTLE-EXIT-F)
+      (EAST TO ALFIE-CONTROL-EAST)
+      (WEST TO ALFIE-CONTROL-WEST)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GLOBAL-SHUTTLE SHUTTLE-DOOR)
+      (ACTION SHUTTLE-CAR-F)>
+
+<ROOM ALFIE-CONTROL-EAST
+      (LOC ROOMS)
+      (DESC "Alfie Control East")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO SHUTTLE-CAR-ALFIE IF SHUTTLE-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL SLOT WINDOW LEVER SHUTTLE-DOOR GLOBAL-SHUTTLE)
+      (ACTION CONTROL-CABIN-F)>
+
+<ROOM ALFIE-CONTROL-WEST
+      (LOC ROOMS)
+      (DESC "Alfie Control West")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO SHUTTLE-CAR-ALFIE IF SHUTTLE-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL SLOT LEVER WINDOW SHUTTLE-DOOR GLOBAL-SHUTTLE)
+      (ACTION CONTROL-CABIN-F)>
+
+<OBJECT LEVER
+	(LOC LOCAL-GLOBALS)
+	(DESC "lever")
+	(SYNONYM LEVER)
+	(FLAGS NDESCBIT)
+	(ACTION LEVER-F)>
+
+<OBJECT SHUTTLE-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(FLAGS DOORBIT OPENBIT INVISIBLE)
+	(ACTION SHUTTLE-DOOR-F)>
+
+<ROUTINE SHUTTLE-CAR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is the cabin of a large transport, with seating for around 20 people
+plus space for freight. There are open doors at the eastern and western ends
+of the cabin, and a doorway leads out to a wide platform to the ">
+		<COND (<EQUAL? ,HERE ,SHUTTLE-CAR-ALFIE>
+		       <TELL "north">)
+		      (T
+		       <TELL "south">)>
+		<TELL "." CR>)>>
+
+<ROOM SHUTTLE-CAR-BETTY
+      (LOC ROOMS)
+      (DESC "Shuttle Car Betty")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (SOUTH PER SHUTTLE-EXIT-F)
+      (EAST TO BETTY-CONTROL-EAST)
+      (WEST TO BETTY-CONTROL-WEST)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GLOBAL-SHUTTLE SHUTTLE-DOOR)
+      (ACTION SHUTTLE-CAR-F)>
+
+<ROOM BETTY-CONTROL-EAST
+      (LOC ROOMS)
+      (DESC "Betty Control East")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (WEST TO SHUTTLE-CAR-BETTY IF SHUTTLE-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GLOBAL-SHUTTLE SLOT WINDOW LEVER SHUTTLE-DOOR)
+      (ACTION CONTROL-CABIN-F)>
+
+<ROOM BETTY-CONTROL-WEST
+      (LOC ROOMS)
+      (DESC "Betty Control West")
+      (C-MOVE  <TABLE
+         ;"OUT" 0 ;"IN"   0 ;"DOWN" 0  ;"UP"     0
+         ;"NW"  0 ;"WEST" 0 ;"SW"   0  ;"SOUTH"  0 
+	 ;"SE"  0 ;"EAST" 0 ;"NE"   0  ;"NORTH"  0>)
+      (EAST TO SHUTTLE-CAR-BETTY IF SHUTTLE-DOOR IS OPEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL GLOBAL-SHUTTLE SLOT LEVER WINDOW SHUTTLE-DOOR)
+      (ACTION CONTROL-CABIN-F)>
+
+<ROUTINE CONTROL-CABIN-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL 
+"This is a small control cabin. A control panel contains a slot, a lever,
+and a display. The lever can be set at a central position, or it could be
+pushed up to a position labelled \"+\", or pulled down to a position
+labelled \"-\". It is currently at the ">
+		<COND (<EQUAL? ,LEVER-SETTING 0>
+		       <TELL "center">)
+		      (<EQUAL? ,LEVER-SETTING 1>
+		       <TELL "upper">)
+		      (T
+		       <TELL "lower">)>
+		<TELL
+" setting. The display, a digital readout, currently reads ">
+		<TELL N ,SHUTTLE-VELOCITY>
+		<TELL ". Through the cabin window you can see ">
+		<DESCRIBE-VIEW>
+		<TELL CR>)>>
+
+<ROUTINE DESCRIBE-VIEW ()
+	 <COND (<OR <AND <EQUAL? ,HERE ,ALFIE-CONTROL-WEST>
+			  ,ALFIE-AT-KALAMONTEE>
+		     <AND <EQUAL? ,HERE ,BETTY-CONTROL-WEST>
+			  ,BETTY-AT-KALAMONTEE>
+		     <AND <EQUAL? ,HERE ,ALFIE-CONTROL-EAST>
+			  <NOT ,ALFIE-AT-KALAMONTEE>>
+		     <AND <EQUAL? ,HERE ,BETTY-CONTROL-EAST>
+			  <NOT ,BETTY-AT-KALAMONTEE>>>
+		 <TELL "a featureless concrete wall.">)
+		(<AND ,SHUTTLE-MOVING
+		      <EQUAL? ,SHUTTLE-COUNTER 23>>
+		 <TELL
+"parallel rails ending at a brightly lit station ahead.">)
+		(T
+		 <TELL "parallel rails running along the floor of a long
+tunnel, vanishing in the distance.">)>>
+		
+<ROUTINE SHUTTLE-DOOR-F ()
+	 <COND (<VERB? OPEN>
+		<COND (,SHUTTLE-MOVING
+		       <TELL
+"A recorded voice says \"Operator should remain in control cabin while shuttle
+car is between stations.\"" CR>)
+		      (T
+		       <TELL "Are you sure it isn't?" CR>)>)>>
+
+<ROUTINE SHUTTLE-ENTER-F ()
+	 <COND (<EQUAL? ,HERE ,KALAMONTEE-PLATFORM>
+		<COND (<EQUAL? ,PRSO ,P?NORTH>
+		       <COND (,BETTY-AT-KALAMONTEE
+			      ,SHUTTLE-CAR-BETTY)
+			     (T
+			      <TELL ,CANT-GO CR>
+			      <RFALSE>)>)
+		      (<EQUAL? ,PRSO ,P?SOUTH>
+		       <COND (,ALFIE-AT-KALAMONTEE
+			      ,SHUTTLE-CAR-ALFIE)
+			     (T
+			      <TELL ,CANT-GO CR>
+			      <RFALSE>)>)>)
+	       (<EQUAL? ,HERE ,LAWANDA-PLATFORM>
+		<COND (<EQUAL? ,PRSO, P?NORTH>
+		       <COND (,BETTY-AT-KALAMONTEE
+			      <TELL ,CANT-GO CR>
+			      <RFALSE>)
+			     (T
+			      ,SHUTTLE-CAR-BETTY)>)
+		      (<EQUAL? ,PRSO ,P?SOUTH>
+		       <COND (,ALFIE-AT-KALAMONTEE
+			      <TELL ,CANT-GO CR>
+			      <RFALSE>)
+			     (T
+			      ,SHUTTLE-CAR-ALFIE)>)>)>>
+
+<CONSTANT CANT-GO "You can't go that way.">
+
+<ROUTINE SHUTTLE-EXIT-F ()
+	 <COND (<EQUAL? ,HERE ,SHUTTLE-CAR-ALFIE>
+		<COND (,ALFIE-AT-KALAMONTEE
+		       ,KALAMONTEE-PLATFORM)
+		      (T
+		       ,LAWANDA-PLATFORM)>)
+	       (<EQUAL? ,HERE ,SHUTTLE-CAR-BETTY>
+		<COND (,BETTY-AT-KALAMONTEE
+		       ,KALAMONTEE-PLATFORM)
+		      (T
+		       ,LAWANDA-PLATFORM)>)>>
+
+<GLOBAL ALFIE-AT-KALAMONTEE T> ;"true if Alfie is at Kalamontee Station"
+
+<GLOBAL BETTY-AT-KALAMONTEE <>> ;"true if Betty is at Kalamontee Station"
+
+<GLOBAL SHUTTLE-MOVING <>> ;"true if Shuttle is between Stations"
+
+<GLOBAL SHUTTLE-ON <>> ;"true if shuttle is activated"
+
+<GLOBAL SHUTTLE-VELOCITY 0>
+
+<GLOBAL SHUTTLE-COUNTER 0> ;"number of moves in shuttle trip so far"
+
+<ROUTINE SHUTTLE-ACTIVATE ()
+	 <COND (<AND <NOT <EQUAL? ,HERE ,ALFIE-CONTROL-EAST
+				        ,ALFIE-CONTROL-WEST>>
+		     <NOT <EQUAL? ,HERE ,BETTY-CONTROL-EAST
+				        ,BETTY-CONTROL-WEST>>>
+		<TELL ,WRONG-CARD CR>
+		<RTRUE>)
+	       (<OR <AND ,ALFIE-BROKEN
+		     <EQUAL? ,HERE ,ALFIE-CONTROL-EAST ,ALFIE-CONTROL-WEST>>
+		    <AND ,BETTY-BROKEN
+		     <EQUAL? ,HERE ,BETTY-CONTROL-EAST ,BETTY-CONTROL-WEST>>>
+		<TELL
+"A garbled recording mentions that the shuttle car has undergone some
+damage and that the repair robot has been summoned." CR>
+		<RTRUE>)
+	       (<G? ,INTERNAL-MOVES 6000>
+		<TELL
+"A recorded voice explains that using the shuttle car during the evening
+hours requires special authorization." CR>
+		<RTRUE>)>
+	 <COND (<EQUAL? ,HERE ,ALFIE-CONTROL-EAST>
+		<COND (,SHUTTLE-ON
+		       <TELL ,SHUTTLE-RECORDING-1 CR>)
+		      (<NOT ,ALFIE-AT-KALAMONTEE>
+		       <TELL ,SHUTTLE-RECORDING-2 CR>)
+		      (T
+		       <SETG SHUTTLE-ON T>
+		       <ENABLE <QUEUE I-TURNOFF-SHUTTLE 80>>
+		       <TELL ,SHUTTLE-RECORDING-3 CR>)>)
+	       (<EQUAL? ,HERE ,ALFIE-CONTROL-WEST>
+		<COND (,SHUTTLE-ON
+		       <TELL ,SHUTTLE-RECORDING-1 CR>)
+		      (,ALFIE-AT-KALAMONTEE
+		       <TELL ,SHUTTLE-RECORDING-2 CR>)
+		      (T
+		       <SETG SHUTTLE-ON T>
+		       <ENABLE <QUEUE I-TURNOFF-SHUTTLE 80>> 
+		       <TELL ,SHUTTLE-RECORDING-3 CR>)>)
+	       (<EQUAL? ,HERE ,BETTY-CONTROL-EAST>
+		<COND (,SHUTTLE-ON
+		       <TELL ,SHUTTLE-RECORDING-1 CR>)
+		      (<NOT ,BETTY-AT-KALAMONTEE>
+		       <TELL ,SHUTTLE-RECORDING-2 CR>)
+		      (T
+		       <SETG SHUTTLE-ON T>
+		       <ENABLE <QUEUE I-TURNOFF-SHUTTLE 80>>
+		       <TELL ,SHUTTLE-RECORDING-3 CR>)>)
+	       (<EQUAL? ,HERE ,BETTY-CONTROL-WEST>
+		<COND (,SHUTTLE-ON
+		       <TELL ,SHUTTLE-RECORDING-1 CR>)
+		      (,BETTY-AT-KALAMONTEE
+		       <TELL ,SHUTTLE-RECORDING-2 CR>)
+		      (T
+		       <SETG SHUTTLE-ON T>
+		       <ENABLE <QUEUE I-TURNOFF-SHUTTLE 80>>
+		       <TELL ,SHUTTLE-RECORDING-3 CR>)>)
+	       (T
+		<TELL ,WRONG-CARD CR>)>>
+
+<CONSTANT SHUTTLE-RECORDING-1 
+"A recorded voice says \"Shuttle controls are already activated.\"">
+
+<CONSTANT SHUTTLE-RECORDING-2
+"A recorded voice says \"Use other control cabin. Control activation
+overridden.\"">
+
+<CONSTANT SHUTTLE-RECORDING-3
+"A recording of a deep male voice says \"Shuttle controls activated.\"">
+
+<CONSTANT SHUTTLE-RECORDING-4
+"A recorded voice says \"Shuttle controls are not currently activated.\"">
+
+<ROUTINE I-TURNOFF-SHUTTLE ()
+	 <COND (,SHUTTLE-MOVING
+		<ENABLE <QUEUE I-TURNOFF-SHUTTLE 80>>)
+	       (T
+		<SETG SHUTTLE-ON <>>)>
+	 <RFALSE>>
+
+<GLOBAL LEVER-SETTING 0> ;"0 is the center position, 1 the upper, -1 the lower"
+
+<ROUTINE LEVER-F ()
+	 <COND (<VERB? PUSH PUSH-UP>
+		<COND (,SHUTTLE-ON
+		       <COND (<EQUAL? ,LEVER-SETTING 1>
+			      <TELL
+"The lever is already in the upper position." CR>)
+			     (<EQUAL? ,LEVER-SETTING 0>
+			      <SETG LEVER-SETTING 1>
+			      <ENABLE <QUEUE I-SHUTTLE 1>>
+			      <TELL
+"The lever is now in the upper position." CR>)
+			     (T
+			      <SETG LEVER-SETTING 0>
+			      <TELL
+"The lever is now in the central position." CR>)>)
+		      (T
+		       <TELL ,SHUTTLE-RECORDING-4 CR>)>)
+	       (<VERB? PULL PUSH-DOWN>
+		<COND (,SHUTTLE-ON
+		       <COND (<EQUAL? ,LEVER-SETTING 1>
+			      <SETG LEVER-SETTING 0>
+			      <TELL
+"The lever is now in the central position." CR>)
+			     (<EQUAL? ,LEVER-SETTING 0>
+			      <COND (<EQUAL? ,SHUTTLE-VELOCITY 0>
+				     <TELL
+"The lever immediately pops back to the central position." CR>)
+				    (T
+				     <SETG LEVER-SETTING -1>
+				     <ENABLE <QUEUE I-SHUTTLE 1>>
+				     <TELL
+"The lever is now in the lower position." CR>)>)
+			     (T
+			      <TELL
+"The lever is already in the lower position." CR>)>)
+		      (T
+		       <TELL ,SHUTTLE-RECORDING-4 CR>)>)>>
+
+<ROUTINE I-SHUTTLE ()
+	 <ENABLE <QUEUE I-SHUTTLE -1>>
+	 <COND (<NOT ,SHUTTLE-MOVING>
+		<SETG SHUTTLE-MOVING T>
+		<FCLEAR ,SHUTTLE-DOOR ,OPENBIT>
+		<FCLEAR ,SHUTTLE-DOOR ,INVISIBLE>
+		<TELL
+"The control cabin door slides shut and the shuttle car begins to move ">
+		<COND (<EQUAL? ,LEVER-SETTING 1>
+		       <SETG SHUTTLE-VELOCITY <+ ,SHUTTLE-VELOCITY 5>>
+		       <TELL
+"forward! The display changes to 5." CR>)
+		      ;(<EQUAL? ,LEVER-SETTING -1>
+		       <TELL "backward. You hear a loud crunch as the
+shuttle car runs into the rear wall of the station.">
+		       <SETG SHUTTLE-ON <>>
+		       <SETG SHUTTLE-MOVING <>>
+		       <SETG LEVER-SETTING 0>
+		       <SETG SHUTTLE-ON <>>
+		       <FSET ,SHUTTLE-DOOR ,INVISIBLE>
+		       <FSET ,SHUTTLE-DOOR ,OPENBIT>
+		       <DISABLE <INT I-SHUTTLE>>)>)
+	       (T
+		<COND (<G? ,SHUTTLE-VELOCITY 0>
+		       <SETG SHUTTLE-COUNTER <+ ,SHUTTLE-COUNTER 1>>)>
+		<COND (<EQUAL? ,LEVER-SETTING 1>
+		       <SETG SHUTTLE-VELOCITY <+ ,SHUTTLE-VELOCITY 5>>)
+		      (<EQUAL? ,LEVER-SETTING -1>
+		       <COND (<G? ,SHUTTLE-VELOCITY 0>
+			      <SETG SHUTTLE-VELOCITY <- ,SHUTTLE-VELOCITY 5>>)
+			     (T
+			      <SETG LEVER-SETTING 0>
+			      <TELL
+"The shuttle car comes to a stop and the lever pops back to the central
+position." CR>)>)>
+		<COND (<EQUAL? ,SHUTTLE-COUNTER 24>
+		       <DESCRIBE-SHUTTLE-ARRIVE>)
+		      (<G? ,SHUTTLE-VELOCITY 0>
+		       <DESCRIBE-SHUTTLE-TRIP>
+		       <RTRUE>)>)>>
+
+<ROUTINE DESCRIBE-SHUTTLE-TRIP ()
+	 <TELL
+"The shuttle car continues to move. The display ">
+	 <COND (<EQUAL? ,LEVER-SETTING 0>
+		<TELL "still reads ">)
+	       (T
+		<TELL "blinks, and now reads ">)>
+	 <TELL N ,SHUTTLE-VELOCITY>
+	 <TELL "." CR>
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 2>
+		<TELL
+"You pass a sign which says \"Limit 45.\"" CR>)>
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 12>
+		<TELL
+"The tunnel levels out and begins to slope upward. A sign flashes by which
+reads \"Hafwaa Mark -- Beegin Deeseluraashun.\"" CR>)>
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 20>
+		<TELL ,SIGN-PASS>
+		<TELL "\"15.\"" CR>)>
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 21>
+		<TELL ,SIGN-PASS>
+		<TELL "\"10.\"" CR>)>
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 22>
+		<TELL ,SIGN-PASS>
+		<TELL "\"5.\"" CR>)>
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 23>
+		<TELL
+"The shuttle car is approaching a brightly lit area. As you near it, you
+make out the concrete platforms of a shuttle station." CR>)>>
+
+<GLOBAL ALFIE-BROKEN <>>
+
+<GLOBAL BETTY-BROKEN <>>
+
+<ROUTINE DESCRIBE-SHUTTLE-ARRIVE ()
+	 <COND (<EQUAL? ,SHUTTLE-COUNTER 24>
+		<COND (<EQUAL? ,SHUTTLE-VELOCITY 0>
+		       <TELL
+"The shuttle car glides into the station and comes to rest at the concrete
+platform. You hear the cabin doors slide open." CR>)
+		      (<L? ,SHUTTLE-VELOCITY 20>
+		       <COND (<EQUAL? ,HERE ,ALFIE-CONTROL-EAST
+				            ,ALFIE-CONTROL-WEST>
+			      <SETG ALFIE-BROKEN T>)
+			     (T
+			      <SETG BETTY-BROKEN T>)>
+		       <TELL
+"The shuttle car rumbles through the station and smashes into the wall at
+the far end. You are thrown forward into the control panel. Both you
+and the shuttle car produce unhealthy crunching sounds as the cabin
+doors creak slowly open." CR>)
+		      (T
+		       <JIGS-UP
+"The shuttle car hurtles past the platforms and rams into the wall at the
+far end of the station. The shuttle car is destroyed, but you're in no
+condition to care.">)>
+		<SETG SHUTTLE-VELOCITY 0>
+		<SETG SHUTTLE-MOVING <>>
+		<SETG SHUTTLE-COUNTER 0>
+		<SETG LEVER-SETTING 0>
+		<SETG SHUTTLE-ON <>>
+		<FSET ,SHUTTLE-DOOR ,INVISIBLE>
+		<FSET ,SHUTTLE-DOOR ,OPENBIT>
+		<DISABLE <INT I-SHUTTLE>>
+		<COND (<EQUAL? ,HERE ,ALFIE-CONTROL-EAST ,ALFIE-CONTROL-WEST>
+		       <COND (,ALFIE-AT-KALAMONTEE
+			      <SETG ALFIE-AT-KALAMONTEE <>>)
+			     (T
+			      <SETG ALFIE-AT-KALAMONTEE T>)>)
+		      (T
+		       <COND (,BETTY-AT-KALAMONTEE
+			      <SETG BETTY-AT-KALAMONTEE <>>)
+			     (T
+			      <SETG BETTY-AT-KALAMONTEE T>)>)>)>>
+
+<CONSTANT SIGN-PASS
+"You pass a sign, surrounded by blinking red lights, which says ">
+
+^L
+
+"To sleep, perchance to dream..."
+
+<GLOBAL SLEEPY-LEVEL 0>
+
+<ROUTINE I-SLEEP-WARNINGS ()
+	 <SETG SLEEPY-LEVEL <+ ,SLEEPY-LEVEL 1>>
+	 <COND (<IN? ,ADVENTURER ,BED>
+		<TELL CR
+"You suddenly realize how tired you were and how comfortable the bed is.
+You should be asleep in no time." CR>
+		<DISABLE <INT I-SLEEP-WARNINGS>>
+		<ENABLE <QUEUE I-FALL-ASLEEP 16>>
+		<RTRUE>)>
+	 <COND (<EQUAL? ,SLEEPY-LEVEL 1>
+		<TELL CR
+"You begin to feel weary. It might be time to think about finding
+a nice safe place to sleep." CR>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 400>>)
+	       (<EQUAL? ,SLEEPY-LEVEL 2>
+		<TELL CR
+"You're really tired now. You'd better find a place to sleep real soon." CR>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 135>>)
+	       (<EQUAL? ,SLEEPY-LEVEL 3>
+		<TELL CR
+"If you don't get some sleep soon you'll probably drop." CR>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 60>>)
+	       (<EQUAL? ,SLEEPY-LEVEL 4>
+		<TELL CR "You can barely keep your eyes open." CR>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 50>>)
+	       (<EQUAL? ,SLEEPY-LEVEL 5>
+		<COND (<EQUAL? ,HERE ,BED>
+		       <TELL CR
+"You slowly sink into a deep and blissful sleep." CR>
+		       <DREAMING>)
+		      (<OR <EQUAL? ,HERE ,DORM-A ,DORM-B>
+			   <EQUAL? ,HERE ,DORM-C ,DORM-D>>
+		       <TELL CR
+"You climb into one of the bunk beds and immediately fall asleep." CR>
+		       <GOTO ,BED>           ;"arb"
+		       ;<MOVE ,ADVENTURER ,BED>
+		       ;<SETG OHERE <>>
+		       <DREAMING>)
+		      (T
+		       <TELL CR
+"You can't stay awake a moment longer. You drop to the ground and fall
+into a deep but fitful sleep." CR>
+		       <COND (<OR <AND <EQUAL? ,DAY 1>
+				       <EQUAL? ,HERE ,CRAG>>
+				  <AND <EQUAL? ,DAY 3>
+				       <EQUAL? ,HERE ,BALCONY>>
+				  <AND <EQUAL? ,DAY 5>
+				       <EQUAL? ,HERE ,WINDING-STAIR>>>
+			      <JIGS-UP
+"|
+|
+|
+Suddenly, in the middle of the night, a wave of water washes over you. Before
+you can quite get your bearings, you drown.">)
+			     (<PROB 30>
+			      <JIGS-UP
+"|
+|
+|
+Suddenly, in the middle of the night, you awake as several ferocious beasts
+(could they be grues?) surround and attack you. Perhaps you should have found
+a slightly safer place to sleep.">)
+			     (T
+			      <DREAMING>)>)>)>>
+
+<OBJECT BED
+	(LOC LOCAL-GLOBALS)
+	(DESC "bed")
+	(SYNONYM BUNK BED)
+	(ADJECTIVE MULTI TIERED MULTI-TIERED BUNK)
+	(FLAGS NDESCBIT CLIMBBIT VEHBIT)
+	(ACTION BED-F)>
+
+<ROUTINE BED-F ("OPTIONAL" (RARG ,M-OBJECT))
+	 <COND (<AND <VERB? WALK>
+		     <EQUAL? .RARG ,M-BEG>>
+		<TELL "You'll have to stand up, first." CR>)
+	       (<AND <VERB? TAKE OPEN CLOSE RUB>
+		     <EQUAL? .RARG ,M-BEG>
+		     <NOT <EQUAL? ,PRSO ,BED>>>
+		<TELL "You can't reach it from here." CR>)
+	       (.RARG
+		<RFALSE>)
+	       (<VERB? THROUGH BOARD WALK-TO>
+		<COND (<EQUAL? ,HERE ,INFIRMARY>
+		       <JIGS-UP
+"You climb into the bed. It is soft and comfortable. After a few moments, a
+previously unseen panel opens, and a diagnostic robot comes wheeling out. It
+is very rusty and sways unsteadily, bumping into several pieces of infirmary
+equipment as it crosses the room. As the robot straps you to the bed, you
+notice some smoke curling from its cracks. Beeping happily, the robot injects
+you with all 347 serums and medicines it carries. The last thing you notice
+before you pass out is the robot preparing to saw your legs off.">)
+		      (<G? ,SLEEPY-LEVEL 0>
+		       <GOTO ,BED>          ;"arb"
+		       ;<MOVE ,ADVENTURER ,BED>
+		       ;<SETG OHERE <>>
+		       <ENABLE <QUEUE I-FALL-ASLEEP 16>>
+		       <DISABLE <INT I-SLEEP-WARNINGS>>
+		       <TELL 
+"Ahhh...the bed is soft and comfortable. You should be asleep in short
+order." CR>)
+		      (T
+		       <GOTO ,BED>            ;"arb"
+		       ;<MOVE ,ADVENTURER ,BED>
+		       ;<SETG OHERE <>>
+		       <TELL "You are now in bed." CR>)>)
+	       (<AND <VERB? DISEMBARK STAND EXIT DROP>
+		     <GET <INT I-FALL-ASLEEP> ,C-TICK>>
+		<TELL
+"How could you suggest such a thing when you're so tired and this
+bed is so comfy?" CR>)
+	       (<VERB? LEAVE EXIT DROP>
+		<PERFORM ,V?DISEMBARK ,BED>
+		<RTRUE>)
+	       (<AND <VERB? PUT> <EQUAL? ,BED ,PRSI>>
+		<MOVE ,PRSO ,HERE>
+		<TELL
+"The " D ,PRSO " bounces off the bed and lands on the floor." CR>)>>
+
+<ROUTINE I-FALL-ASLEEP ()
+	 <TELL CR "You slowly sink into a deep and restful sleep." CR>
+	 <DISABLE <INT I-FALL-ASLEEP>>
+	 <DREAMING>>
+
+<ROUTINE DREAMING ()
+	 <COND (<AND <FSET? ,FORK ,TOUCHBIT>
+		     <PROB 13>>
+		<TELL
+"You are in a busy office crowded with people. The only one you
+recognize is Floyd. He rushes back and forth between the desks, carrying
+papers and delivering coffee. He notices you, and asks how your project
+is coming, and whether you have time to tell him a story. You look into
+his deep, trusting eyes..." CR>)
+	       (<PROB 60>
+		<CRLF>
+		<TELL <PICK-ONE ,DREAMS> CR>)>
+	 <WAKING-UP>>
+
+<CONSTANT DREAMS
+	<PLTABLE
+
+"...You find yourself on the bridge of the Feinstein. Ensign Blather is here,
+as well as Admiral Smithers. You are diligently scrubbing the control panel.
+Blather keeps yelling at you to scrub harder. Suddenly you hit the ship's
+self-destruct switch! Smithers and Blather howl at you as the ship begins
+exploding! You try to run, but your feet seem to be fused to the deck..."
+
+"...You gulp down the last of your Ramosian Fire Nectar and ask the
+andro-waiter for another pitcher. This pub makes the finest Nectar on
+all of Ramos Two, and you and your shipmates are having a pretty rowdy
+time. Through the windows of the pub you can see a mighty, ancient castle,
+shining in the light of the three Ramosian moons. The Fire Nectar spreads
+through your blood and you begin to feel drowsy..."
+
+"...Strangely, you wake to find yourself back home on Gallium. Even more
+strangely, you are only eight years old again. You are playing with your
+pet sponge-cat, Swanzo, on the edge of the pond in your backyard. Mom is
+hanging orange towels on the clothesline. Suddenly the school bully jumps
+out from behind a bush, grabs you, and pushes your head under the water.
+You try to scream, but cannot. You feel your life draining away..."
+
+"...Your vision slowly returns. You are on a wooded cliff overlooking
+a waterfall. A rainbow spans the falls. Blather stands above you, bellowing
+that the ground is filthy -- scrub harder! You throw your brush at Blather,
+but it passes thru him as though he were a ghost, and sails over the cliff.
+Blather leaps after the valuable piece of Patrol property, and both plummet
+into the void..."
+
+"...At last, the Feinstein has arrived at the historic Nebulon system. It's
+been five months since the last shore leave, and you're anxious for
+Planetfall. You and some other Ensigns Seventh Class enter the shuttle for
+surfaceside. Suddenly, you're alone on the shuttle, and it's tumbling out of
+control! It lands in the ocean and begins sinking! You try to clamber out,
+but you are stuck in a giant spider web. A giant spider crawls closer and
+closer...">> 
+
+<ROUTINE WAKING-UP ("AUX" X N)
+	 <SETG DAY <+ ,DAY 1>>
+	 <SETG SICKNESS-WARNING-FLAG T>
+	 <SETG SLEEPY-LEVEL 0>
+	 <RESET-TIME>
+	 <SET X <FIRST? ,ADVENTURER>>
+	 <REPEAT ()
+		 <COND (.X
+			<SET N <NEXT? .X>>
+			<COND (<NOT <FSET? .X ,WORNBIT>>
+			       <MOVE .X ,HERE>)>
+			<COND (<AND <EQUAL? .X ,CANTEEN>
+				    <IN? ,HIGH-PROTEIN ,CANTEEN>
+				    <FSET? ,CANTEEN ,OPENBIT>>
+			       <REMOVE ,HIGH-PROTEIN>)>
+			<COND (<AND <EQUAL? .X ,FLASK>
+				    <IN? ,CHEMICAL-FLUID ,FLASK>>
+			       <REMOVE ,CHEMICAL-FLUID>)>
+			<SET X .N>)
+		       (T
+			<RETURN>)>>
+	 <TELL
+"|
+***** SEPTEM " N <+ ,DAY 5> ", 11344 *****|
+|">
+	 <COND (<NOT <IN? ,ADVENTURER ,BED>>
+		<TELL
+"You wake and slowly stand up, feeling stiff from your
+night on the floor.">)
+	       (<L? ,SICKNESS-LEVEL 3>
+		<TELL
+"You wake up feeling refreshed and ready to face the challenges of this
+mysterious world.">)
+	       (<L? ,SICKNESS-LEVEL 6>
+		<TELL
+"You wake after sleeping restlessly. You feel weak and listless.">)
+	       (T
+		<TELL
+"You wake feeling weak and worn-out. It will be an effort just to stand up.">)>
+	 <COND (<G? ,HUNGER-LEVEL 0>
+		<SETG HUNGER-LEVEL 4>
+		<ENABLE <QUEUE I-HUNGER-WARNINGS 100>>
+		<TELL
+" You are also incredibly famished. Better get some breakfast!">)
+	       (T
+		<ENABLE <QUEUE I-HUNGER-WARNINGS 400>>)>
+	 <CRLF>
+	 <COND (<AND <FSET? ,FLOYD ,RLANDBIT>
+		     ,FLOYD-INTRODUCED>
+		<MOVE ,FLOYD ,HERE>
+		<SETG FLOYD-SPOKE T>
+		<COND (<IN? ,ADVENTURER ,BED>
+		       <TELL
+"Floyd bounces impatiently at the foot of the bed. \"About time you woke
+up, you lazy bones! Let's explore around some more!\"" CR>)
+		      (T
+		       <TELL
+"Floyd gives you a nudge with his foot and giggles. \"You sure look silly
+sleeping on the floor,\" he says." CR>)>)>>
+
+<ROUTINE RESET-TIME ()
+	 <COND (<EQUAL? ,DAY 2>
+		<FCLEAR ,BALCONY ,TOUCHBIT>
+		<SETG INTERNAL-MOVES <+ 1600 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 5800>>)
+	       (<EQUAL? ,DAY 3>
+		<FCLEAR ,BALCONY ,TOUCHBIT>
+		<SETG INTERNAL-MOVES <+ 1750 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 5550>>)
+	       (<EQUAL? ,DAY 4>
+		<FCLEAR ,WINDING-STAIR ,TOUCHBIT>
+		<SETG INTERNAL-MOVES <+ 1950 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 5200>>)
+	       (<EQUAL? ,DAY 5>
+		<FCLEAR ,WINDING-STAIR ,TOUCHBIT>
+		<SETG INTERNAL-MOVES <+ 2150 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 4800>>)
+	       (<EQUAL? ,DAY 6>
+		<FCLEAR ,COURTYARD ,TOUCHBIT>
+		<SETG INTERNAL-MOVES <+ 2450 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 4300>>)
+	       (<EQUAL? ,DAY 7>
+		<FCLEAR ,COURTYARD ,TOUCHBIT>
+		<SETG INTERNAL-MOVES <+ 2800 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 3700>>)
+	       (<EQUAL? ,DAY 8>
+		<SETG INTERNAL-MOVES <+ 3200 <RANDOM 80>>>
+		<ENABLE <QUEUE I-SLEEP-WARNINGS 3000>>)
+	       (<EQUAL? ,DAY 9>
+		<JIGS-UP
+"Unfortunately, you don't seem to have survived the night.">)>>
+
+^L
+
+"Feed me!"
+
+<GLOBAL HUNGER-LEVEL 0>
+
+<ROUTINE I-HUNGER-WARNINGS ()
+	 <SETG HUNGER-LEVEL <+ ,HUNGER-LEVEL 1>>
+	 <COND (<EQUAL? ,HUNGER-LEVEL 1>
+		<ENABLE <QUEUE I-HUNGER-WARNINGS 450>>
+		<TELL CR
+"A growl from your stomach warns that you're getting pretty hungry and
+thirsty." CR>)
+	       (<EQUAL? ,HUNGER-LEVEL 2>
+		<ENABLE <QUEUE I-HUNGER-WARNINGS 150>>
+		<TELL CR
+"You're now really ravenous and your lips are quite parched." CR>)
+	       (<EQUAL? ,HUNGER-LEVEL 3>
+		<ENABLE <QUEUE I-HUNGER-WARNINGS 100>>
+		<TELL CR
+"You're starting to feel faint from lack of food and liquid." CR>)
+	       (<EQUAL? ,HUNGER-LEVEL 4>
+		<ENABLE <QUEUE I-HUNGER-WARNINGS 50>>
+		<TELL CR
+"If you don't eat or drink something in a few millichrons, you'll probably
+pass out." CR>)
+	       (<EQUAL? ,HUNGER-LEVEL 5>
+		<JIGS-UP
+"|
+You collapse from extreme thirst and hunger.">)>>
+
+<CONSTANT NOT-HUNGRY "Thanks, but you're not hungry.">
+
+^L
+
+"Sickness and disease"
+
+<GLOBAL SICKNESS-LEVEL 0>
+
+<GLOBAL SICKNESS-WARNING-FLAG <>>
+
+<ROUTINE I-SICKNESS-WARNINGS ()
+	 <ENABLE <QUEUE I-SICKNESS-WARNINGS 700>>
+	 <COND (,SICKNESS-WARNING-FLAG
+		<SETG SICKNESS-WARNING-FLAG <>>
+		<SETG LOAD-ALLOWED <- ,LOAD-ALLOWED 10>>
+		<SETG SICKNESS-LEVEL <+ ,SICKNESS-LEVEL 1>>
+		<COND (<EQUAL? ,SICKNESS-LEVEL 1>
+		       <TELL CR
+"You notice that you feel a bit weak and slightly flushed,
+but you're not sure why." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 2>
+		       <TELL CR
+"You notice that you feel unusually weak, and you suspect
+that you have a fever." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 3>
+		       <TELL CR
+"You are now feeling quite under the weather, not unlike a bad flu." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 4>
+		       <TELL CR
+"Your fever seems to have gotten worse, and you're
+developing a bad headache." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 5>
+		       <TELL CR
+"Your health has deteriorated further. You feel hot and weak, and your
+head is throbbing." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 6>
+		       <TELL CR
+"You feel very, very sick, and have almost no strength left." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 7>
+		       <TELL CR
+"You feel like you're on fire, burning up from the fever. You're almost too
+weak to move, and your brain is reeling from the pounding headache." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 8>
+		       <TELL CR
+"You're no longer sure of where you are and what you're doing. You stumble
+about, your pain subsiding into a dull numbness." CR>)
+		      (<EQUAL? ,SICKNESS-LEVEL 9>
+		       <JIGS-UP
+"|
+You finally succumb to the ravages of your illness and collapse.">)>)>>
+
+
+"Oh, Boy! Pseudo objects!"
+
+<ROUTINE TRANSLATOR-PSEUDO ()
+	 <COND (<IN? ,AMBASSADOR ,HERE>
+		<COND (<VERB? TAKE>
+		       <TELL
+"The ambassador whimpers and slaps your wrist." CR>)
+		      (<VERB? MUNG>
+		       <TELL
+"Are you trying to create an interplanetary incident?" CR>)>)
+	       (T
+		<TELL "What translator?" CR>)>>
+
+<ROUTINE SLIME-PSEUDO ()
+	 <COND (<OR <IN? ,AMBASSADOR ,HERE>
+		     <G? ,AMBASSADOR-LEAVE 0>>
+		<COND (<VERB? EAT TASTE>
+		       <LIKE-SLIME "tastes">)
+		      (<VERB? TAKE RUB>
+		       <LIKE-SLIME "feels">)
+		      (<VERB? EXAMINE>
+		       <LIKE-SLIME "looks">)
+		      (<VERB? SMELL>
+		       <LIKE-SLIME "smells">)
+		      (<VERB? SCRUB REMOVE>
+		       <TELL
+"Whew. You've cleaned up maybe one ten-thousandth of the slime.">
+		       <COND (<NOT <IN? ,BLATHER ,HERE>>
+			      <TELL
+" If you hurry, it might be all cleaned up before Ensign Blather gets here.">)>
+		       <CRLF>)>)
+	       (T
+		<TELL "What slime?" CR>)>>
+
+<ROUTINE LIKE-SLIME (STRING)
+	 <TELL "It ">
+	 <TELL .STRING>
+	 <TELL " like slime. Aren't you glad you didn't step in it?" CR>>
+
+<ROUTINE GRAFFITI-PSEUDO ()
+	 <COND (<VERB? READ>
+		<SETG C-ELAPSED 28>
+		<TELL "All the graffiti seem to be about Blather. One of
+the least obscene items reads:|
+|
+There once was a krip, name of Blather|
+Who told a young Ensign named Smather|
+\"I'll make you inherit|
+A trotting demerit|
+And ship you off to those stinking fawg-infested tar pools of Krather.\"|
+|
+It's not a very good limerick, is it?" CR>)>>
+
+<ROUTINE DOOR-PSEUDO ()
+	 <COND (<VERB? OPEN UNLOCK>
+		<TELL "No way, Jose." CR>)>>
+
+<ROUTINE WALKWAY-PSEUDO ()
+	 <COND (<VERB? EXAMINE LAMP-ON>
+		<TELL "The walkway, which hastened the trip down that
+long corridor, is no longer in service." CR>)>>
+
+<ROUTINE BENCH-PSEUDO ()
+	 <COND (<VERB? CLIMB-ON BOARD>
+		<TELL "The benches look uncomfortable." CR>)>>
+
+<ROUTINE CATWALK-PSEUDO ()
+	 <COND (<VERB? CLIMB-ON CLIMB-UP CLIMB-FOO>
+		<TELL "The catwalks are too high for you to access." CR>)>>
+
+<ROUTINE EQUIPMENT-PSEUDO ()
+	 <COND (<VERB? EXAMINE RUB LAMP-ON LAMP-OFF>
+		<TELL
+"The equipment here is so complicated that you couldn't even begin to
+figure out how to operate it." CR>)>>
+
+<ROUTINE MONITORS-PSEUDO ()
+	 <COND (<VERB? EXAMINE READ>
+		<DESCRIBE-MONITORS>)>>
+
+<ROUTINE MURAL-PSEUDO ()
+	 <COND (,COMPUTER-FIXED
+		<ANYMORE>)
+	       (T
+		<COND (<VERB? EXAMINE>
+		       <TELL
+"It's a gaudy work of orange and purple abstract shapes, reminiscent of the
+early works of Burstini Bonz. It doesn't appear to fit the decor of the room
+at all. The mural seems to ripple now and then, as though a breeze were
+blowing behind it." CR>)
+		      (<VERB? MUNG>
+		       <TELL "My sentiments also, but let's be civil." CR>)
+		      (<VERB? MOVE LOOK-BEHIND>
+		       <TELL "It won't budge." CR>)>)>>
+
+<ROUTINE LOGO-PSEUDO ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL
+"The logo shows a flame burning over a sleep chamber of some type. Under
+that is the phrase \"Prajekt Kuntrool.\"" CR>)>>
+
+<ROUTINE KEYBOARD-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It is a standard numeric keyboard with ten keys labelled from 0
+through 9." CR>)>>
+
+<ROUTINE CRACK-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The crack is too small to go through, but large enough to look through." CR>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<EQUAL? ,HERE ,RADIATION-LAB>
+		       <TELL
+"You see a dimly lit Bio Lab. Sinister shapes lurk about within." CR>)
+		      (T
+		       <TELL
+"You see a laboratory suffused with a pale blue glow." CR>)>)>>
+
+<ROUTINE VOID-PSEUDO ()
+	 <COND (<AND <VERB? PUT>
+		     <EQUAL? ,PRSI ,PSEUDO-OBJECT>>
+		<PERFORM ,V?THROW-OFF ,PRSO ,STRIP>
+		<RTRUE>)
+	       (<AND <VERB? ZAP>
+		     <EQUAL? ,PRSO ,LASER>
+		     <EQUAL? ,PRSI ,PSEUDO-OBJECT>>
+		<SETG PRSI <>>
+		<PERFORM ,V?ZAP ,LASER>
+		<RTRUE>)
+	       (<VERB? THROUGH LEAP>
+		<JIGS-UP "Plummet.">)
+	       (<VERB? LOOK-INSIDE EXAMINE>
+		<TELL
+"The void extends downward into the gloom far below." CR>)>>
+
+<ROUTINE SPOUT-PSEUDO ()
+	 <COND (<AND <VERB? PUT-UNDER>
+		     <EQUAL? ,PRSO ,CANTEEN>>
+		<PERFORM ,V?PUT ,CANTEEN ,DISPENSER>
+		<RTRUE>)
+	       (<AND <VERB? LOOK-UNDER>
+		     <IN? ,CANTEEN ,DISPENSER>>
+		<TELL "The canteen is sitting under the spout." CR>)>>
+
+<ROUTINE TOILET-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The fixtures are all dry and dusty." CR>)
+	       (<VERB? FLUSH>
+		<TELL "The water seems to be turned off." CR>)>>
+
+<ROUTINE GAMES-PSEUDO ()
+	 <COND (<VERB? PLAY TAKE>        ;"TAKE added arb"
+		<PERFORM ,V?PLAY ,GLOBAL-GAMES>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL "All the usual games -- Chess, Cribbage, Galactic
+Overlord, Double Fannucci..." CR>)
+	      ;(<AND <VERB? SHOW>
+		     <EQUAL? ,PRSI ,FLOYD>>
+		<TELL
+"\"Floyd doesn't like those tough, thinker games. Any paddleball sets
+around?\"" CR>)>>
+
+<ROUTINE TAPES-PSEUDO ()
+	 <COND (<VERB? READ PLAY TAKE>
+		<TELL
+"Hardly the time or place for reading recreational tapes." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "Let's see...here are some musical selections, here are
+some bestselling romantic novels, here is a biography of a famous Double
+Fannucci champion..." CR>)>>
+
+<ROUTINE PARTITION-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The partitions are very plain, and were
+obviously intended to separate this huge room into smaller areas." CR>)>>
+
+<ROUTINE CUBBYHOLE-PSEUDO ()
+	 <COND (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"The cubbyholes look like the kind that are used to hold maps or
+blueprints. They are all empty now." CR>)>>
+
+<ROUTINE MAPS-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "Examining the maps reveals no new information." CR>)>>
+
+<ROUTINE DEVICES-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"They are components of disassembled robots, beyond repair." CR>)>>
+
+<ROUTINE CABLES-PSEUDO ()
+	 <COND (<VERB? EXAMINE FOLLOW>
+		<TELL
+"These heavy cables merely run from the two consoles up into the ceiling." CR>)
+	       (<VERB? MUNG>
+		<JIGS-UP
+"So, that's what it's like to have twenty million volts run through your
+body!">)>>
+
+<ROUTINE STRUCTURE-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"You'd be able to tell more about it if you climbed up to it." CR>)
+	       (<VERB? CLIMB-UP>
+		<DO-WALK ,P?UP>)>>
+
+<ROUTINE BUTTON-PSEUDO ()
+	 <COND (<VERB? PUSH>
+		<COND (<FSET? ,DISPENSER ,MUNGEDBIT>
+		       <TELL
+"The dispenser sputters a few times." CR>)
+		      (<IN? ,CANTEEN ,DISPENSER>
+		       <COND (<NOT <FSET? ,CANTEEN ,OPENBIT>>
+			      <TELL
+"A thick, brown liquid spills over the closed canteen, dribbles down the side
+of the machine, and forms a puddle on the floor which quickly dries up." CR>)
+			      (<IN? ,HIGH-PROTEIN ,CANTEEN>
+			       <TELL
+"The brown liquid splashes over the mouth of the already-filled canteen,
+creating a mess">
+			       <COND (<FSET? ,PATROL-UNIFORM ,WORNBIT>
+				      <TELL " and staining your uniform">)>
+			       <TELL "." CR>)
+			      (T
+			       <MOVE ,HIGH-PROTEIN ,CANTEEN>
+			       <TELL
+"The canteen fills almost to the brim with a brown liquid." CR>)>)
+		      (T
+		       <TELL "A thick, brownish liquid pours from the spout
+and splashes to the floor, where it quickly evaporates." CR>)>)>>
+
+<ROUTINE CARPET-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "It's pretty dusty." CR>)>>
+
+<ROUTINE CABINETS-PSEUDO ()
+	 <COND (<VERB? EXAMINE OPEN>
+		<TELL "The cabinets are locked." CR>)
+	       (<VERB? UNLOCK>
+		<TELL "You don't have the correct key." CR>)>>
+
+<ROUTINE PLATE-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The plates seem to be featureless metal squares." CR>)>>
+
+<ROUTINE ESCALATOR-PSEUDO ()
+	 <COND (<VERB? CLIMB-UP CLIMB-FOO>
+		<COND (<EQUAL? ,HERE ,FORK>
+		       <TELL
+"You're already at the top of the escalator." CR>)
+		      (T
+		       <DO-WALK ,P?UP>)>)
+	       (<VERB? CLIMB-DOWN>
+		<COND (<EQUAL? ,HERE ,LAWANDA-PLATFORM>
+		       <TELL
+"You're already at the bottom of the escalator." CR>)
+		      (T
+		       <DO-WALK ,P?DOWN>)>)
+	       (<VERB? LAMP-ON>
+		<TELL <PICK-ONE ,YUKS> CR>)>>
+
+<ROUTINE REACTOR-BUTTON-PSEUDO ()
+	 <COND (<VERB? PUSH>
+		<FSET ,REACTOR-ELEVATOR-DOOR ,OPENBIT>
+		<ENABLE <QUEUE I-REACTOR-DOOR-CLOSE 30>>
+		<TELL
+"The metal doors slide open, revealing a small room to the east." CR>)>>
+
+<ROUTINE SUPPLIES-PSEUDO ()
+	 <COND (<VERB? TAKE>
+		<TELL "These supplies are of absolutely no use." CR>)>>
+
+<ROUTINE DESK-PSEUDO ()
+	 <COND (<VERB? OPEN>
+		<TELL "All the drawers are empty." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "It is bare except for the microfilm reader." CR>)>>
+
+<ROUTINE CRYO-BUTTON-PSEUDO ()
+	 <COND (<AND <VERB? PUSH>
+		     <NOT ,CRYO-SCORE-FLAG>>
+		<ENABLE <QUEUE I-CRYO-ELEVATOR-ARRIVE 100>>
+		<DISABLE <INT I-CHASE-SCENE>>
+		<FCLEAR ,CRYO-ELEVATOR-DOOR ,OPENBIT>
+	        <SETG CRYO-SCORE-FLAG T>
+		<SETG SCORE <+ ,SCORE 5>>
+		<TELL
+"The elevator door closes just as the monsters reach it! You slump
+back against the wall, exhausted from the chase. The elevator begins
+to move downward." CR>)
+	       (<AND <VERB? PUSH>
+		     ,CRYO-SCORE-FLAG
+		     <FSET? ,CRYO-ELEVATOR-DOOR ,OPENBIT>>
+		<JIGS-UP
+"Stunning. After days of surviving on a hostile, plague-ridden planet, solving
+several of Infocom's toughest puzzles, and coming within one move of completing
+Planetfall, you blow it all in one amazingly dumb input.|
+|
+The doors close and the elevator rises quickly to the top of the shaft. The
+doors open, and the mutants, which were waiting impatiently in the ProjCon
+Office for just such an occurence, happily saunter in and begin munching.">)>>
+
+<ROUTINE CASTLE-PSEUDO ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The castle is ancient and crumbling." CR>)>>
+
+<ROUTINE CHEM-SPOUT-PSEUDO ()
+	 <COND (<AND <VERB? PUT-UNDER>
+		     <EQUAL? ,PRSI ,PSEUDO-OBJECT>>
+		<PERFORM ,V?PUT-UNDER ,PRSO ,CHEMICAL-DISPENSER>
+		<RTRUE>)
+	       (<AND <VERB? LOOK-UNDER>
+		     ,SPOUT-PLACED>
+		<TELL "There is ">
+		<A-AN>
+		<TELL D ,SPOUT-PLACED " under the spout." CR>)>>
+
+<ROUTINE CLEFT-PSEUDO ()
+	 <COND (<VERB? CLIMB-UP CLIMB-FOO>
+		<DO-WALK ,P?UP>)>>
+
+<ROUTINE RUBBLE-PSEUDO ()
+	 <COND (<VERB? MOVE>
+		<TELL <PICK-ONE ,YUKS> CR>)>>
+
+<ROUTINE PLAQUE-PSEUDO ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL
+"|
+SEENIK VISTA
+|
+Xis stuneeng vuu uf xee Kalamontee Valee kuvurz oovur fortee skwaar miilz
+uf xat faamus tuurist spot. Xee larj bildeeng at xee bend in xee Gulmaan Rivur
+iz xee formur pravincul kapitul bildeeng." CR>)>>
+
+<ROUTINE FENCE-PSEUDO ()
+	 <COND (<VERB? CLIMB-UP CLIMB-FOO LEAP>
+		<TELL "You can't." CR>)>>
+
+<ROUTINE LOCK-PSEUDO ()
+	 <COND (<VERB? OPEN UNLOCK>
+		<COND (,PRSI
+		       <TELL "That won't unlock it." CR>)
+		      (T
+		       <TELL "But you don't have the orange key!" CR>)>)>>
+
+<ROUTINE DIAGRAM-PSEUDO ()
+	 <COND (<VERB? READ>
+		<TELL "Not unless you've taken a special
+twelve-year course in ninth-order molecular physics." CR>)>>
+
+<ROUTINE ENUNCIATOR-PSEUDO ()
+	 <COND (<VERB? LOOK-INSIDE PUSH MOVE>
+		<TELL <PICK-ONE ,YUKS>>)>>
+
+<ROUTINE NEAR-BOOTH-PSEUDO ()
+	 <COND (<VERB? DROP EXIT DISEMBARK>
+		<TELL "You're not in the booth!" CR>)
+	       (<VERB? THROUGH BOARD WALK-TO>
+		<DO-WALK ,P?IN>)>>
+
+<ROUTINE IN-BOOTH-PSEUDO ()
+	 <COND (<VERB? THROUGH BOARD WALK-TO>
+		<TELL "You're already in the booth!" CR>)
+	       (<VERB? DROP EXIT DISEMBARK>
+		<DO-WALK ,P?OUT>)>>
+
+<ROUTINE CANT-USE-THAT-WAY (STRING)
+	 <TELL "[You can't use " .STRING " that way.]" CR>>
+
+<CONSTANT TOO-DARK "It's too dark to see a thing.">
+
diff --git a/hints.zabstr b/hints.zabstr
new file mode 100644
index 0000000..79331d5
--- /dev/null
+++ b/hints.zabstr
@@ -0,0 +1,420 @@
+
+<FILE-FLAGS CLEAN-STACK?> 
+<GLOBAL HINTS-OFF -1 %<> WORD> 
+<CONSTANT RETURN-SEE-HINT " RETURN = see hint"> 
+<CONSTANT RETURN-SEE-HINT-LEN <LENGTH " RETURN = see hint">> 
+<CONSTANT Q-MAIN-MENU "Q = main menu"> 
+<CONSTANT Q-MAIN-MENU-LEN <LENGTH "Q = main menu">> 
+<CONSTANT INVISICLUES "INVISICLUES (tm)"> 
+<CONSTANT INVISICLUES-LEN <LENGTH "INVISICLUES (tm)">> 
+<CONSTANT Q-SEE-HINT-MENU "Q = see hint menu"> 
+<CONSTANT Q-SEE-HINT-MENU-LEN <LENGTH "Q = see hint menu">> 
+<CONSTANT Q-RESUME-STORY "Q = Resume story"> 
+<CONSTANT Q-RESUME-STORY-LEN <LENGTH "Q = Resume story">> 
+<CONSTANT PREVIOUS "P = Previous"> 
+<CONSTANT PREVIOUS-LEN <LENGTH "P = Previous">> 
+<GLOBAL LINE-TABLE <PTABLE 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22> %<
+> WORD> 
+<CONSTANT COLUMN-TABLE <PTABLE 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4>> 
+<DEFINE20 CONSTRUCT-HINTS (COUNT-NAME "TUPLE" STUFF "AUX" (SS <>) (HL (T)) (HLL
+.HL) V (CL (T)) (CLL .CL) TCL TCLL) <REPEAT ((CT 0)) <COND (<OR <EMPTY? .STUFF>
+<TYPE? <1 .STUFF> STRING>> <COND (<NOT .SS> <SET SS .STUFF> <SET TCL (T)> <SET
+TCLL .TCL> <SET CT 0>) (T <SET V <SUBSTRUC .SS 0 <- <LENGTH .SS> <LENGTH .STUFF
+>>>> <SET HLL <REST <PUTREST .HLL (<EVAL <FORM PLTABLE !.V>>)>>> <COND (.
+COUNT-NAME <SET CLL <REST <PUTREST .CLL (<EVAL <FORM TABLE (BYTE) !<REST .TCL!>
+>>)>>> <SET TCL (T)> <SET TCLL .TCL> <SET CT 0>)> <SET SS .STUFF>)> <COND (<
+EMPTY? .STUFF> <RETURN>)> <SET STUFF <REST .STUFF>>) (T <COND (.COUNT-NAME <
+COND (<1? <MOD <SET CT <+ .CT 1>> 2>> <SET TCLL <REST <PUTREST .TCLL (0)>>>)>)>
+<SET STUFF <REST .STUFF>>)>> <COND (.COUNT-NAME <EVAL <FORM CONSTANT .
+COUNT-NAME <EVAL <FORM PTABLE !<REST .CL!>>>>>)> <EVAL <FORM PLTABLE !<REST .HL
+!>>>> 
+<CONSTANT HINTS <CONSTRUCT-HINTS HINT-COUNTS "THE FEINSTEIN" <PLTABLE
+"How do I get past Blather?"
+"There's no way to get beyond Deck Eight or the Reactor Lobby."
+"Really! There's no way!"> <PLTABLE "How can I stop getting demerits?"
+"Scrub harder?" "I wouldn't worry too much; demerits aren't that important."> <
+PLTABLE "What about Lieutenant Measle?"
+"All he wants is some information for your records."
+"Ahem.  Lieutenant Measle???"> <PLTABLE "What do I do with the Ambassador?"
+"Enjoy his company. He's just there to liven up the game opening."> <PLTABLE
+"How do I get the translator?" "You can't."> <PLTABLE
+"How do I get the celery?" "You can't."> <PLTABLE
+"How do I get the Ambassador's map?" "The Ambassador doesn't have any map!"> <
+PLTABLE "What should I do in the Galley?" "Try eating the stew."
+"Did you find the handbook for programming autopilots?"
+"How did you get to a nonexistent place?"> <PLTABLE
+"How do I get out of the Brig?"
+"The best way to get out is to never get thrown in."
+"If you don't upset Blather by leaving your post, you'll never get thrown in the Brig."
+"Once you're in the Brig, there's no way out."> <PLTABLE
+"How can I save the Feinstein?"
+"It might be a malfunction in the Hyperspatial Jump Machinery Room."
+"Of course, since you can't enter that room, you'll never know."
+"There's no way to prevent it, and you won't find out until later what caused it. Best thing to do is try to survive the shipwreck."
+> <PLTABLE "Can I open the escape pod bulkhead?"
+"It opens automatically during any emergency."
+"For example, when the Feinstein begins exploding."> "THE POD TRIP" <PLTABLE
+"How do I control the pod?" "The controls are entirely automated."
+"Sit back and relax. Let the autopilot do the driving."> <PLTABLE
+"I keep getting killed! Help!" "Are you standing?"
+"The adjective associated with the web is notable."
+"Get in the safety web and don't stand until you've landed."> <PLTABLE
+"Can I keep the pod from sinking?" "Sorry, you can't."> <PLTABLE
+"Will I use the emergency provisions?"
+"It's always a good idea in adventure games to take anything that you can carry."
+> <PLTABLE "Can I leave the pod after landing?"
+"Sure. Have you tried opening the door?"
+"You can't reach the door while you're still in the web."
+"Once the door is open, either UP or OUT works."
+"Needless to say, don't dally too long."> <PLTABLE
+"I keep drowning underwater. Help!"
+"The water is a dangerous place to be. Leave it immediately."
+"There is light filtering down from above." "Say UP."> "THE DORMITORY" <PLTABLE
+"What can I do on the Balcony?"
+"The plaque is the only thing of interest there."> <PLTABLE
+"Of what use is the ruined castle?" "Not much."> <PLTABLE
+"What can I do in the Rec Area?"
+"There are some interesting tapes and games there."
+"Have you noticed the locked door leading north?"> <PLTABLE
+"Can I unlock the door with the dial?" "It's a combination lock."
+"You could try setting it to every number from 1 to 1000."
+"The combination can be found in the lab area."
+"It is in the pocket of the lab uniform."> <PLTABLE
+"What use are the four dorms?" "They are all identical."
+"They make good places to sleep."> <PLTABLE
+"What about the sanitary facilities?"
+"You won't need to use them. The game isn't THAT realistic."
+"They are of no importance."> <PLTABLE "How do I open the padlock?"
+"You'll need a key."
+"Have you seen a \"glint of light\" anywhere while exploring?"
+"It's in the crevice in Admin Corridor South."
+"You can't reach it with your hands. You'll need something else."
+"The curved metal bar." "It's a magnet. Try holding it over the key."> <PLTABLE
+"How do I open the tin can?"
+"Don't develop the next hint until you've found the can opener."
+"There is no can opener. You must be cheating."
+"There is no way to open the can."> <PLTABLE
+"Does the door in the Mess Hall open?"
+"If you mean the locked door in the southern end, yes."
+"The slot next to the door is important."
+"You'll need the kitchen access card." "It's located beyond the rift."
+"It's in the desk in the Small Office. Slide it through the slot."> <PLTABLE
+"What is the ladder for?" "It is needed to get past a major obstacle."
+"You've probably seen the obstacle." "The rift."> <PLTABLE
+"What use is the kitchen dispenser?" "Have you tried pushing the button?"
+"That liquid is food." "You'll need something to catch the liquid."
+"The octagonal shape of the niche is important."
+"Open the canteen and put it in the niche."> "ADMIN/MECH AREA" <PLTABLE
+"What can I do in the Physical Plant?" "Nothing."
+"It's there just for show. Every large complex of buildings needs one."> <
+PLTABLE "Is the crack in the floor important?" "Yes."> <PLTABLE
+"Is the deactivated robot important?" "Yes, indeed!" "Turn it on."> <PLTABLE
+"How do I run the reactor elevator?" "The slot in the elevator is important."
+"You'll need the reactor elevator access pass."
+"Don't develop further until you've been on the helicopter trip."
+"Cheating again, eh?  There's no way to operate that elevator."> <PLTABLE
+"How do I fix the reactors?" "Have you opened the repair panel?"
+"Some of the megafuses seem to be burned out."
+"Try replacing the megafuses with the good ones from the box in Storage East."
+"Oh, come now. You haven't been to the reactors, have you?"> <PLTABLE
+"How do I cross the rift?" "Jumping is a bad idea."
+"You'll need an item which you may not have seen yet."
+"It's behind the padlocked door."
+"Extend the ladder and put it across the rift."> <PLTABLE
+"How can I see in the darkened area?" "You'll need a light source."> <PLTABLE
+"What is the chemical dispenser for?"
+"Have you tried pushing any of the buttons on it?"
+"The flask can be used to hold the chemical fluid."
+"The first seven buttons are obviously coolants and catalysts."
+"The two white buttons produce an acid and a base."
+"You'll need the coolants and catalysts for the Comm Room problem."> <PLTABLE
+"What do I do with the acid and base?"
+"Batteries are made out of acids and bases."
+"Have you run into any dangerous creatures?  You might be able to use the acid or base as a weapon."
+"Actually, these two chemicals are totally useless."> <PLTABLE
+"Can I fix the disassembled robots?" "A repair robot might be of help."
+"Don't go on until you've repaired Achilles."
+"There's no way to reassemble those robots."> <PLTABLE
+"What about the Plan Room?"
+"There's nothing for you to do in there, but you might pick up some useful information there."
+> <PLTABLE "What about the Systems Monitors?"
+"There's nothing for you to do in there, but you might pick up some useful information there."
+> <PLTABLE "Is there any way to take the hose?" "What hose?"> "ELEVATORS/TOWER"
+<PLTABLE "Can I open the Elevator Lobby doors?"
+"Try pushing the red and blue buttons." "Then wait a little while."> <PLTABLE
+"How do the elevators work?" "The slot on the control panels is important."
+"You'll need to find the respective access passes."
+"When you find them, slide them through the slot, and then say PUSH UP BUTTON or PUSH DOWN BUTTON."
+"The upper elevator access card is located beyond the rift."
+"It's in the desk in the Small Office."
+"Floyd has the lower elevator access card."
+"He may give it to you when you use another access card in his presence. Alternately, you can turn him off and search him."
+> <PLTABLE "What is the Helipad for?"
+"The helicopters probably land and take off from there."> <PLTABLE
+"How do I enter the Helicopter?" "Try ENTER THE HELICOPTER."> <PLTABLE
+"TELL ME ABOUT THE OBSERVATION DECK"
+"Nice view of another complex of buildings on a nearby island."> <PLTABLE
+"Should I do anything with the birds?" "Try feeding them."
+"Birds like insects." "What birds?  What insects?"> <PLTABLE
+"What is the comm. receive console?" "Try pressing the button on it."
+"Apparently, it received a transmission from the Feinstein just before the ship blew up."
+> <PLTABLE "What is the comm. send console?"
+"Read the screen. The message is very interesting."
+"The message isn't being sent, however."
+"You can repair the communication system using the chemical dispenser in the Machine Shop."
+"The colored light on the enunciator panel refers to one of the colored buttons on the dispenser."
+"Keep pouring the proper chemical fluid into the hole on the console until it is fixed.  It will take anywhere from three to five trips."
+> "HELICOPTER TRIP" <PLTABLE "Where do I find the helicopter?"
+"You need to use the upper elevator to get to it."> <PLTABLE
+"How do I unlock the control panel?"
+"Try reading the green spool using the microfilm reader."
+"According to the spool, you'll find a key in Transportation Supply."> <PLTABLE
+"Where is the helicopter access card?"
+"Try reading the green spool using the microfilm reader."
+"According to the spool, the card would be in Transportation Supply."> <PLTABLE
+"How do I use the helicopter?"
+"Unless you have the helicopter control panel key and the helicopter access card, don't read any further."
+"Use the key to open the control panel cover."
+"Use the access card to activate the controls."
+"Just tell your intended destination to the voice-controlled autopilot, then sit back and enjoy the trip."
+"Amazing feat, your managing to get this far, considering the key and card don't exist."
+> <PLTABLE "What destination should I select?"
+"Where would you expect to find people?" "A large city, perhaps?"
+"Try the capital city of Resida, Pilandoor."
+"Don't you feel pretty silly, considering there's no way to even get the helicopter off the ground?"
+> "SHUTTLE TRIP" <PLTABLE "Where do I find the shuttle?"
+"You need to use the lower elevator to get to it."> <PLTABLE
+"How do I operate the shuttle?"
+"You'll need the shuttle access card.  By now you should know how to use these cards."
+"You can't operate the shuttle after 6000."
+"Hopefully, you can figure out that you want to be in the control cabin facing the set of tracks, not the one facing the blank wall."
+> <PLTABLE "How do I use the shuttle controls?"
+"First, activate the controls (see previous question)."
+"Pushing the lever up into the \"+\" position causes the shuttle to accelerate. Pulling the lever down into the \"-\" position causes the shuttle to decelerate."
+"When the lever is in the central position, the shuttle will continue to move at its current velocity."
+"The digital display tells the current velocity of the shuttle."> <PLTABLE
+"I always crash at the other station!"
+"You're going too fast. Decelerate sooner."
+"If you're going faster than 20 when you get to the far station, you'll be killed."
+"If you're going between 5 and 20 you will survive, but the shuttle will be damaged."
+> "SYSTEMS/LIBRARY" <PLTABLE "What is the medicine for?" "Read the label."> <
+PLTABLE "The Repair Room door is too small!"
+"It's too small for YOU to get through." "It's \"robot-sized\"."
+"Ask Floyd to go through the doorway."> <PLTABLE
+"Do the Repair Room cabinets open?" "You'll have to repair Achilles first."> <
+PLTABLE "How can I repair Achilles?"
+"Waldo won't be of any help (unless you're playing SUSPENDED)."
+"Try using the microfilm reader to read the brown spool."
+"The brown spool is in the Radiation Lab."
+"Unfortunately, there's no way to get the brown spool to the microfilm reader."
+"There is also no way to repair Achilles."> <PLTABLE
+"Is there a good fromitz board?" "Yes."
+"Have you been beyond the small door in the Repair Room?"
+"You'll have to ask Floyd to get the good fromitz board."> <PLTABLE
+"Is there a good bedistor anywhere?" "Yes."
+"It's in Storage East, just off Mech Corridor North. If you missed it, you'd better improve your exploring and mapping abilities."
+> <PLTABLE "TELL ME ABOUT PLANETARY DEFENSE"
+"The library might tell you something."
+"Apparently, it is an automatic meteor defense. Perhaps this solar system has a high meteor density."
+"The system's discrimination circuit seems to have failed."
+"This is probably why the Feinstein was destroyed. You'd better repair it."
+"Open the access panel."
+"Figure out which board is malfunctioning and remove it."
+"It's the second board. Take it and put the good fromitz board in the resulting empty socket."
+> <PLTABLE "TELL ME ABOUT THE COURSE CONTROL"
+"The library might tell you something about it."
+"Apparently, the entire planet was moved into a more favorable but less stable orbit. This system ensures that the planet stays in the proper orbit."
+"The course control system seems to be malfunctioning. If the planet was approaching its sun, it would explain the melting ice caps and water level rise."
+"You'd better repair this system."
+"Try opening the cube and removing the fused bedistor." "You'll need a tool."
+"Use the pliers from the Tool Room to remove the fused bedistor."
+"Put the good bedistor into the cube."> <PLTABLE
+"Why is this Physical Plant so big?"
+"True, this plant is larger than its counterpart in the Kalamontee Complex, even though the Lawanda Complex is slightly smaller."
+"Perhaps there is a large section of the Lawanda Compex that you haven't seen yet..."
+"...such as the cryo-chambers, buried deep underground."> <PLTABLE
+"How do I use the computer terminal?" "Firstly, turn it on."
+"To select an item in the menu, use the TYPE command. For example, to select item 2, type TYPE 2."
+"Typing TYPE 0 returns you to the next highest menu level (except, of course, if you are at the Main Menu, which is the highest level)."
+> <PLTABLE "How do I use the microfilm reader?" "It must be turned on."
+"The colored spools are spools of microfilm."
+"Put one in the opening in the reader."> <PLTABLE
+"How do I summon the librarian?" "You can't." "Really!"> "PROJCON AND LAB" <
+PLTABLE "What is the signficance of SanFac F?"
+"Haven't you realized by now that these SanFacs are of no interest?"> <PLTABLE
+"What about the ProjCon Office?" "The library might be of some help."
+"It was the main office for the Project."> <PLTABLE "Is the logo important?"
+"It also appears on the lab uniform."
+"It's yet another little hint about what's going on."> <PLTABLE
+"Is the mural important?"
+"Examination reveals that there might be an area behind it."
+"But don't worry about it now." "When the time comes, you'll know it."> <
+PLTABLE "Who is Burstini Bonz?"
+"Wasn't he the great Respectivist artist who became famous for painting awesomely phenomenal murals during the 89th century?"
+> <PLTABLE "What is the laboratory area for?"
+"The library might have some information on that."
+"It is the laboratory built to find a cure for the Disease."> <PLTABLE
+"Is the Bio-Lab safe to enter?" "Try it."
+"Nope, I guess it wasn't. Hope you did a SAVE first."> <PLTABLE
+"Is the Radiation Lab safe to enter?" "Try it."
+"Nope, I guess you can't. Hope you did a SAVE first."> <PLTABLE
+"Where is the radiation suit?" "It might be down near the Reactors."
+"Find a light source, then use the Reactor Access Stairs."
+"There's a lamp in the Radiation Lab."
+"Going in circles? There's no radiation suit anywhere."> <PLTABLE
+"What is the card in the Bio-Lab?" "Floyd will tell you when he sees it."
+"It's for the Miniaturization Booth."> <PLTABLE
+"Can I get the card from the Bio-Lab?" "You'll die trying."
+"Floyd's a robot. He might be tougher."
+"He'll volunteer to get the card if he has a good enough reason."
+"Do you know what the card is and what you would use it for?"
+"The Miniaturization Booth is for repairing the Computer."
+"Show Floyd the computer printout, or let him see the warning light in the Computer Room."
+"Then take him into Bio-Lock East and do what he says."> "COMPUTER/ENDGAME" <
+PLTABLE "What does the computer do?" "The library might have something on it."
+"It runs the automated Project..."
+"...which is trying to find a cure for the Disease."> <PLTABLE
+"Is the printout important?"
+"It appears that the Project was incredibly close to a successful conclusion."
+"Then the computer broke down."
+"If you've been in the Repair Room, you'll know that summoning the repair robot didn't help."
+"You'll have to fix the computer yourself." "Use the Miniaturization Booth."> <
+PLTABLE "Does the Miniaturization Booth work?"
+"You'll need the proper access card, of course." "It's in the Bio-Lab."
+"Once you've activated the booth, type the damaged sector number."
+"Have you read the printout?" "The damaged sector is 384. Type TYPE 384."
+"You will then be miniaturized and teleported into the damaged sector, where you can attempt to effect repairs."
+> <PLTABLE "I am at Station 384. What now?" "Explore around."
+"Have you seen and examined the relay?"
+"You'll have to figure out a way to remove the speck." "The laser."
+"You must destroy the speck without harming the relay."
+"The dial must be set to 1, so that the beam will pass harmlessly through the red translucent exterior of the relay."
+"You'll have to shoot the speck a number of times to destroy it."> <PLTABLE
+"Can I talk to the giant spider?" "Yes." "Play STARCROSS."> <PLTABLE
+"How do I get past the giant microbe?" "Try shooting it with the laser."
+"That won't have any effect while the laser is set to 1, of course."
+"If you don't keep shooting the microbe, it will get close enough to eat you."
+"Repeated shootings of the microbe merely hold it at bay, and sooner or later you're killed when sector 384 comes to life."
+"Has the microbe become interested in anything besides you?"
+"The microbe is attracted to the warmth of the laser."
+"When the laser gets warm enough, throw it over the edge of the strip, into the void below. The microbe will leap after it."
+> <PLTABLE "How do I get back from the Strip?" "Go to Station 384."> <PLTABLE
+"How do I get out of the Lab Office?"
+"Opening the door right off isn't a healthy idea."
+"There are some buttons on the wall..." "To get a clue, search the desk."
+"Have you opened the desk?" "Put on the gas mask, then press the red button."
+"Then, move fast. You don't have a millichron to spare."> <PLTABLE
+"How do I get rid of the mutants?" "You can't kill them."
+"There's only one way to lose them."
+"You're very close to the end of the game." "Did you hear an announcement?"
+"Remember the mural?" "Go to the ProjCon Office."
+"Go south into the elevator and push the button."> "GENERAL QUESTIONS" <PLTABLE
+"What do I do with my ID card?" "It's useless."> <PLTABLE
+"Why did my things go when I slept?"
+"Do you normally go to sleep holding things? You dropped them while you were sleeping. Check the floor of the room where you slept."
+> <PLTABLE "How do I read the native language?"
+"It's actually a phonetic version of English."
+"\"X\" is used in place of \"TH\" and \"C\" is used in place of \"CH\"."
+"Double vowels signify the long vowel sound, and single vowels indicate the short vowel sound."
+> <PLTABLE "I keep starving to death. Feed me!"
+"Didn't you take the survival kit from the safety pod?"
+"Of course, that doesn't last long."
+"There's a can of spam and eggs in Storage West."
+"Unfortunately, there's no way to open it."
+"You'll have to get into the Kitchen." "It's just south of the Mess Hall."> <
+PLTABLE "Where can I sleep?" "Civilized people usually sleep in beds."
+"If you sleep elsewhere, you might be devoured (by grues?)."
+"There are beds in the four dorms, and the Infirmary."
+"Of course, the bed in the Infirmary is a bad idea for other reasons."> <
+PLTABLE "Where can I find a light source?" "Have you tried burning the towel?"
+"Okay, that didn't work. There IS a lantern somewhere."
+"It's in the Radiation Lab."
+"You can't enter the Radiation Lab and survive without a radiation suit."
+"There is no radiation suit."
+"There is no way to get a light source into the dark rooms."> <PLTABLE
+"What is a grue?" "Ask the game."> <PLTABLE "Do the teleportation booths work?"
+"Of course! But you'll have to find the teleportation access card first."
+"It's in the lab area, which you may not have been to yet."
+"It's in the pocket of the lab uniform."
+"Slide the card thru the slot, then press the button corresponding to the booth you want to teleport to."
+> <PLTABLE "How does the laser work?" "You must be holding it to fire it."
+"It has six settings. Each setting produces a different colored beam."
+"The battery in it when you find it won't last very long."
+"You'll need a fresh battery."
+"Open the laser, remove the old battery, and put the new battery in."> <PLTABLE
+"Where do I find a new laser battery?" "Have you tried making one?"
+"Some batteries are made by mixing acids and bases."
+"However, there's no way to make your own battery. There is a fresh battery lying around somewhere."
+"It's in Lab Storage."> <PLTABLE "What are megafuses for?"
+"They're electrical components."
+"They're usually used for repairing Reactor systems."> <PLTABLE
+"What are fromitz boards for?" "They're electrical components."
+"They're usually used for repairing Planetary Defense systems."> <PLTABLE
+"What are bedistors for?" "They're electrical components."
+"They're usually used for repairing Course Control systems."> <PLTABLE
+"Doctor, doctor! Why am I so sick?"
+"You'll find out when you get to the Library."
+"You have contracted the Disease. It is fatal."
+"The medicine in the Infirmary might help a bit."
+"But your only long-term hope is to help bring the Project to its ultimate goal."
+> <PLTABLE "I finished, but without 80 points!"
+"You didn't repair all the broken systems." "Consult the Systems Monitors."
+"You must repair the Communication System, the Planetary Defense System, and the Course Control System in order to get the optimum ending."
+> <PLTABLE "How can I talk to Floyd?" "He has to be on, of course."
+"Talk to him the same way you would talk to any other character in the game: FLOYD, EAT THE CAKE (for example)."
+> "MISCELLANEOUS" <PLTABLE "How to get all 80 points"
+"This section should only be used as a last resort, or for your own interest after you've completed PLANETFALL."
+"3 points for entering the Escape Pod." "3 points for entering the Crag."
+"2 points for turning Floyd on for the first time."
+"2 points for firing the laser for the first time."
+"4 points for entering Storage West."
+"4 points for entering Admin Corridor North."
+"4 points for entering the Kitchen." "4 points for entering the Tower Core."
+"4 points for entering the Kalamontee Platform."
+"4 points for entering the Lawanda Platform."
+"1 point for taking the kitchen access card."
+"1 point for taking the shuttle access card."
+"1 point for taking the upper elevator access card."
+"1 point for taking the lower elevator access card."
+"1 point for taking the miniaturization access card."
+"2 points for Floyd's death." "6 points for fixing the communications system."
+"6 points for fixing the planetary defense system."
+"6 points for fixing the course control system."
+"4 points for entering the Strip Near Station."
+"4 points for entering the Auxiliary Booth."
+"8 points for fixing the computer." "5 points for entering the Cryo-Elevator.">
+<PLTABLE "Have you tried...?"
+"Don't expose these amusing suggestions until you've finished Planetfall. They may give away the answers to puzzles in the game."
+"Reading the graffiti in the Brig?"
+"Attacking, talking to, or throwing something at Blather?"
+"Attacking or talking to the ambassador?"
+"Touching, eating, smelling, or looking at the slime?" "Scrubbing the slime?"
+"Eating the celery?" "Examining the games and tapes in the Rec Area?"
+"Looking under the table in the Mess Hall?"
+"Kicking, attacking, rubbing, or kissing Floyd?"
+"Throwing acid at the mutants?" "Reading your chronometer?"
+"Taking off your chronometer or pouring acid on it?"
+"Getting into bed in the Infirmary?" "Scrubbing yourself?" "Reading the towel?"
+"Removing your uniform while Blather or Floyd are present?"
+"Destroying the mural?"
+"\"Stealing\" the lower elevator card from Floyd and then showing it to him?"
+"Giving Floyd the Lazarus breast plate?" "Typing ZORK?">>> 
+<GLOBAL CUR-POS 0 %<> WORD> 
+<GLOBAL QUEST-NUM 1 %<> WORD> 
+<GLOBAL CHAPT-NUM 1 %<> WORD> 
+<CONSTANT DIROUT-TBL <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>> 
+<DEFINE-ROUTINE V-HINTS-NO> 
+<DEFINE-ROUTINE V-HINT> 
+<DEFINE-ROUTINE PICK-QUESTION> 
+<DEFINE-ROUTINE ERASE-CURSOR> 
+<DEFINE-ROUTINE NEW-CURSOR> 
+<DEFINE-ROUTINE INVERSE-LINE> 
+<DEFINE-ROUTINE DISPLAY-HINT> 
+<DEFINE-ROUTINE PUT-UP-QUESTIONS> 
+<DEFINE-ROUTINE PUT-UP-CHAPTERS> 
+<DEFINE-ROUTINE INIT-HINT-SCREEN> 
+<DEFINE-ROUTINE CENTER-LINE> 
+<DEFINE-ROUTINE LEFT-LINE> 
+<DEFINE-ROUTINE RIGHT-LINE> 
+OW 
\ No newline at end of file
diff --git a/hints.zap b/hints.zap
new file mode 100644
index 0000000..e42ddb1
--- /dev/null
+++ b/hints.zap
@@ -0,0 +1,338 @@
+
+
+	.FUNCT	V-HINTS-NO
+	EQUAL?	PRSO,ROOMS /?CCL3
+	PRINTI	"I don't understand what you mean."
+	CRLF	
+	RETURN	2
+?CCL3:	SET	'HINTS-OFF,TRUE-VALUE
+	PRINTI	"[Hints have been disallowed for this session.]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-HINT,CHR,MAXC,C,Q,WHO
+?FCN:	EQUAL?	HINTS-OFF,-1 \?CCL3
+	SET	'HINTS-OFF,0
+	PRINTI	"[Warning: It is recognized that the temptation for help may at times be so exceedingly strong that you might fetch hints prematurely. Therefore, you may at any time during the story type HINTS OFF, and this will disallow the seeking out of help for the present session of the story. If you still want a hint now, indicate HINT.]"
+	CRLF	
+	RETURN	2
+?CCL3:	ZERO?	HINTS-OFF /?CND1
+	ICALL	PERFORM,V?HINTS-NO,ROOMS
+	RETURN	2
+?CND1:	GET	HINTS,0 >MAXC
+	ICALL1	INIT-HINT-SCREEN
+	CURSET	5,1
+	ICALL1	PUT-UP-CHAPTERS
+	SUB	CHAPT-NUM,1 >CUR-POS
+	ICALL1	NEW-CURSOR
+?PRG9:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL13
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP10
+?CCL13:	EQUAL?	CHR,78,110 \?CCL15
+	ICALL1	ERASE-CURSOR
+	EQUAL?	CHAPT-NUM,MAXC \?CCL18
+	SET	'CUR-POS,0
+	SET	'CHAPT-NUM,1
+	SET	'QUEST-NUM,1
+	JUMP	?CND16
+?CCL18:	INC	'CUR-POS
+	INC	'CHAPT-NUM
+	SET	'QUEST-NUM,1
+?CND16:	ICALL1	NEW-CURSOR
+	JUMP	?PRG9
+?CCL15:	EQUAL?	CHR,80,112 \?CCL20
+	ICALL1	ERASE-CURSOR
+	EQUAL?	CHAPT-NUM,1 \?CCL23
+	SET	'CHAPT-NUM,MAXC
+	SUB	MAXC,1 >CUR-POS
+	JUMP	?CND21
+?CCL23:	DEC	'CUR-POS
+	DEC	'CHAPT-NUM
+?CND21:	SET	'QUEST-NUM,1
+	ICALL1	NEW-CURSOR
+	JUMP	?PRG9
+?CCL20:	EQUAL?	CHR,13,10 \?PRG9
+	ICALL1	PICK-QUESTION
+?REP10:	ZERO?	Q /?FCN
+	CLEAR	-1
+	ICALL1	INIT-STATUS-LINE
+	PRINTI	"Back to the story ..."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	PICK-QUESTION,CHR,MAXQ,Q
+?FCN:	ICALL2	INIT-HINT-SCREEN,FALSE-VALUE
+	ICALL	LEFT-LINE,3,RETURN-SEE-HINT,RETURN-SEE-HINT-LEN
+	ICALL	RIGHT-LINE,3,Q-MAIN-MENU,Q-MAIN-MENU-LEN
+	GET	HINTS,CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MAXQ
+	CURSET	5,1
+	ICALL1	PUT-UP-QUESTIONS
+	SUB	QUEST-NUM,1 >CUR-POS
+	ICALL1	NEW-CURSOR
+?PRG1:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL5
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP2
+?CCL5:	EQUAL?	CHR,78,110 \?CCL7
+	ICALL1	ERASE-CURSOR
+	EQUAL?	QUEST-NUM,MAXQ \?CCL10
+	SET	'CUR-POS,0
+	SET	'QUEST-NUM,1
+	JUMP	?CND8
+?CCL10:	INC	'CUR-POS
+	INC	'QUEST-NUM
+?CND8:	ICALL1	NEW-CURSOR
+	JUMP	?PRG1
+?CCL7:	EQUAL?	CHR,80,112 \?CCL12
+	ICALL1	ERASE-CURSOR
+	EQUAL?	QUEST-NUM,1 \?CCL15
+	SET	'QUEST-NUM,MAXQ
+	SUB	MAXQ,1 >CUR-POS
+	JUMP	?CND13
+?CCL15:	DEC	'CUR-POS
+	DEC	'QUEST-NUM
+?CND13:	ICALL1	NEW-CURSOR
+	JUMP	?PRG1
+?CCL12:	EQUAL?	CHR,13,10 \?PRG1
+	ICALL1	DISPLAY-HINT
+?REP2:	ZERO?	Q /?FCN
+	RFALSE	
+
+
+	.FUNCT	ERASE-CURSOR,?TMP1
+	GET	LINE-TABLE,CUR-POS >?TMP1
+	GET	COLUMN-TABLE,CUR-POS
+	SUB	STACK,2
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	NEW-CURSOR,?TMP1
+	GET	LINE-TABLE,CUR-POS >?TMP1
+	GET	COLUMN-TABLE,CUR-POS
+	SUB	STACK,2
+	CURSET	?TMP1,STACK
+	PRINTC	62
+	RTRUE	
+
+
+	.FUNCT	INVERSE-LINE,CENTER-HALF
+	HLIGHT	H-INVERSE
+	GETB	0,33
+	ICALL2	PRINT-SPACES,STACK
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	DISPLAY-HINT,H,MX,CNT,CHR,FLG,N,CV,SHIFT?,COUNT-OFFS,CURCX,CURC,?TMP1
+	SET	'CNT,2
+	SET	'FLG,TRUE-VALUE
+	CLEAR	-1
+	SPLIT	3
+	SCREEN	S-WINDOW
+	CURSET	1,1
+	ICALL1	INVERSE-LINE
+	ICALL	CENTER-LINE,1,INVISICLUES,INVISICLUES-LEN
+	CURSET	3,1
+	ICALL1	INVERSE-LINE
+	ICALL	LEFT-LINE,3,STR?824
+	ICALL	RIGHT-LINE,3,Q-SEE-HINT-MENU,Q-SEE-HINT-MENU-LEN
+	CURSET	2,1
+	ICALL1	INVERSE-LINE
+	HLIGHT	H-BOLD
+	GET	HINTS,CHAPT-NUM >?TMP1
+	ADD	QUEST-NUM,1
+	GET	?TMP1,STACK >H
+	SUB	CHAPT-NUM,1
+	GET	HINT-COUNTS,STACK >CV
+	GET	H,1
+	ICALL	CENTER-LINE,2,STACK
+	HLIGHT	H-NORMAL
+	GET	H,0 >MX
+	SCREEN	S-TEXT
+	CRLF	
+	MOD	QUEST-NUM,2 >SHIFT?
+	SUB	QUEST-NUM,1
+	DIV	STACK,2 >COUNT-OFFS
+	GETB	CV,COUNT-OFFS >CURCX
+	ZERO?	SHIFT? /?CCL3
+	SHIFT	CURCX,-4
+	JUMP	?CND1
+?CCL3:	PUSH	CURCX
+?CND1:	BAND	STACK,15
+	ADD	2,STACK >CURC
+?PRG4:	EQUAL?	CNT,CURC /?PRG9
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	INC	'CNT
+	JUMP	?PRG4
+?PRG9:	ZERO?	FLG /?CCL13
+	GRTR?	CNT,MX \?CCL13
+	SET	'FLG,FALSE-VALUE
+	PRINTI	"[That's all.]"
+	CRLF	
+	JUMP	?CND11
+?CCL13:	ZERO?	FLG /?CND11
+	SUB	MX,CNT
+	ADD	STACK,1 >N
+	PRINTC	91
+	PRINTN	N
+	PRINTI	" hint"
+	EQUAL?	N,1 /?CND17
+	PRINTC	115
+?CND17:	PRINTI	" left.] -> "
+	SET	'FLG,FALSE-VALUE
+?CND11:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL21
+	ZERO?	SHIFT? /?CCL24
+	GETB	CV,COUNT-OFFS
+	BAND	STACK,15 >?TMP1
+	SUB	CNT,2
+	SHIFT	STACK,4
+	BOR	?TMP1,STACK
+	PUTB	CV,COUNT-OFFS,STACK
+	RTRUE	
+?CCL24:	GETB	CV,COUNT-OFFS
+	BAND	STACK,240 >?TMP1
+	SUB	CNT,2
+	BOR	?TMP1,STACK
+	PUTB	CV,COUNT-OFFS,STACK
+	RTRUE	
+?CCL21:	EQUAL?	CHR,13,10 \?PRG9
+	GRTR?	CNT,MX /?PRG9
+	SET	'FLG,TRUE-VALUE
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	IGRTR?	'CNT,MX \?PRG9
+	SET	'FLG,FALSE-VALUE
+	PRINTI	"[Final hint]"
+	CRLF	
+	JUMP	?PRG9
+
+
+	.FUNCT	PUT-UP-QUESTIONS,ST,MXQ,MXL,?TMP1
+	SET	'ST,1
+	GET	HINTS,CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MXQ
+	GETB	0,32
+	SUB	STACK,1 >MXL
+?PRG1:	GRTR?	ST,MXQ /TRUE
+	SUB	ST,1
+	GET	LINE-TABLE,STACK >?TMP1
+	SUB	ST,1
+	GET	COLUMN-TABLE,STACK
+	SUB	STACK,1
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	GET	HINTS,CHAPT-NUM >?TMP1
+	ADD	ST,1
+	GET	?TMP1,STACK
+	GET	STACK,1
+	PRINT	STACK
+	INC	'ST
+	JUMP	?PRG1
+
+
+	.FUNCT	PUT-UP-CHAPTERS,ST,MXC,MXL,?TMP1
+	SET	'ST,1
+	GET	HINTS,0 >MXC
+	GETB	0,32
+	SUB	STACK,1 >MXL
+?PRG1:	GRTR?	ST,MXC /TRUE
+	SUB	ST,1
+	GET	LINE-TABLE,STACK >?TMP1
+	SUB	ST,1
+	GET	COLUMN-TABLE,STACK
+	SUB	STACK,1
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	GET	HINTS,ST
+	GET	STACK,1
+	PRINT	STACK
+	INC	'ST
+	JUMP	?PRG1
+
+
+	.FUNCT	INIT-HINT-SCREEN,THIRD
+	ASSIGNED?	'THIRD /?CND1
+	SET	'THIRD,TRUE-VALUE
+?CND1:	CLEAR	-1
+	GETB	0,32
+	SUB	STACK,1
+	SPLIT	STACK
+	SCREEN	S-WINDOW
+	CURSET	1,1
+	ICALL1	INVERSE-LINE
+	CURSET	2,1
+	ICALL1	INVERSE-LINE
+	CURSET	3,1
+	ICALL1	INVERSE-LINE
+	ICALL	CENTER-LINE,1,INVISICLUES,INVISICLUES-LEN
+	ICALL	LEFT-LINE,2,STR?825
+	ICALL	RIGHT-LINE,2,PREVIOUS,PREVIOUS-LEN
+	ZERO?	THIRD /FALSE
+	ICALL	LEFT-LINE,3,STR?826
+	CALL	RIGHT-LINE,3,Q-RESUME-STORY,Q-RESUME-STORY-LEN
+	RSTACK	
+
+
+	.FUNCT	CENTER-LINE,LN,STR,LEN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	ZERO?	LEN \?CND3
+	DIROUT	D-TABLE-ON,DIROUT-TBL
+	PRINT	STR
+	DIROUT	D-TABLE-OFF
+	GET	DIROUT-TBL,0 >LEN
+?CND3:	GETB	0,33
+	SUB	STACK,LEN
+	DIV	STACK,2
+	CURSET	LN,STACK
+	ZERO?	INV /?CND5
+	HLIGHT	H-INVERSE
+?CND5:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	LEFT-LINE,LN,STR,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	CURSET	LN,1
+	ZERO?	INV /?CND3
+	HLIGHT	H-INVERSE
+?CND3:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	RIGHT-LINE,LN,STR,LEN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	ZERO?	LEN \?CND3
+	DIROUT	3,DIROUT-TBL
+	PRINT	STR
+	DIROUT	-3
+	GET	DIROUT-TBL,0 >LEN
+?CND3:	GETB	0,33
+	SUB	STACK,LEN
+	CURSET	LN,STACK
+	ZERO?	INV /?CND5
+	HLIGHT	H-INVERSE
+?CND5:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+	.ENDI
diff --git a/hints.zil b/hints.zil
new file mode 100644
index 0000000..4d616c9
--- /dev/null
+++ b/hints.zil
@@ -0,0 +1,848 @@
+"HINTS for
+
+			 SOLID GOLD PLANETFALL
+	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."
+
+;"modify ROUTINE FINISH in VERBS to include Hint"
+;"Check HELP or HINT syntaxes to match V-HINT (and CLOCKER-VERBS)"
+;"Make sure the Flag in the V-HINTS-OFF syntax is correct"
+
+<FILE-FLAGS CLEAN-STACK?>
+
+<GLOBAL HINTS-OFF -1>
+
+<CONSTANT RETURN-SEE-HINT " RETURN = see hint">
+<CONSTANT RETURN-SEE-HINT-LEN <LENGTH " RETURN = see hint">>
+<CONSTANT Q-MAIN-MENU "Q = main menu">
+<CONSTANT Q-MAIN-MENU-LEN <LENGTH "Q = main menu">>
+<CONSTANT INVISICLUES "INVISICLUES (tm)">
+<CONSTANT INVISICLUES-LEN <LENGTH "INVISICLUES (tm)">>
+<CONSTANT Q-SEE-HINT-MENU "Q = see hint menu">
+<CONSTANT Q-SEE-HINT-MENU-LEN <LENGTH "Q = see hint menu">>
+<CONSTANT Q-RESUME-STORY "Q = Resume story">
+<CONSTANT Q-RESUME-STORY-LEN <LENGTH "Q = Resume story">>
+<CONSTANT PREVIOUS "P = Previous">
+<CONSTANT PREVIOUS-LEN <LENGTH "P = Previous">>
+
+<GLOBAL LINE-TABLE		;"zeroth (first) element is 5"
+	<PTABLE
+	  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22>>
+
+<CONSTANT COLUMN-TABLE		;"zeroth (first) element is 4"
+	<PTABLE
+	  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4>>
+
+; "If the first argument is non-false, build a parallel impure table
+   for storing the count of answers already seen; make it a constant
+   under the given name."
+
+<DEFINE20 CONSTRUCT-HINTS (COUNT-NAME "TUPLE" STUFF "AUX" (SS <>)
+			   (HL (T)) (HLL .HL) V
+			   (CL (T)) (CLL .CL)
+			   TCL TCLL)
+   <REPEAT ((CT 0))
+     <COND (<OR <EMPTY? .STUFF>
+		<TYPE? <1 .STUFF> STRING>>
+	    ; "Chapter break"
+	    <COND
+	     (<NOT .SS>
+	      ; "First one, just do setup"
+	      <SET SS .STUFF>
+	      <SET TCL (T)>
+	      <SET TCLL .TCL>
+	      <SET CT 0>)
+	     (T
+	      <SET V <SUBSTRUC .SS 0 <- <LENGTH .SS> <LENGTH .STUFF>>>>
+	      ; "One chapter's worth"
+	      <SET HLL <REST <PUTREST .HLL (<EVAL <FORM PLTABLE !.V>>)>>>
+	      <COND (.COUNT-NAME
+		     <SET CLL <REST <PUTREST .CLL
+					     (<EVAL <FORM TABLE (BYTE)
+							  !<REST .TCL>>>)>>>
+		     <SET TCL (T)>
+		     <SET TCLL .TCL>
+		     <SET CT 0>)>
+	      <SET SS .STUFF>)>
+	    <COND (<EMPTY? .STUFF> <RETURN>)>
+	    <SET STUFF <REST .STUFF>>)
+	   (T
+	    <COND (.COUNT-NAME
+		   <COND (<1? <MOD <SET CT <+ .CT 1>> 2>>
+			  <SET TCLL <REST <PUTREST .TCLL
+						   (0)>>>)>)>
+	    <SET STUFF <REST .STUFF>>)>>
+   <COND (.COUNT-NAME
+	  <EVAL <FORM CONSTANT .COUNT-NAME
+		      <EVAL <FORM PTABLE !<REST .CL>>>>>)>
+   <EVAL <FORM PLTABLE !<REST .HL>>>>
+
+;"longest hint topic can be 17 chars"
+;"longest question can be 36 chars."
+;"question can't have more than 32 answers"
+
+<CONSTANT HINTS
+  <CONSTRUCT-HINTS HINT-COUNTS ;"Put topics in Quotes - followed by PLTABLEs
+				 of Questions and Answers in quotes"
+	
+	"THE FEINSTEIN"
+	<PLTABLE "How do I get past Blather?"
+		 "There's no way to get beyond Deck Eight or the Reactor Lobby."
+		 "Really! There's no way!">
+	<PLTABLE "How can I stop getting demerits?"
+		 "Scrub harder?"
+		 "I wouldn't worry too much; demerits aren't that important.">
+	<PLTABLE "What about Lieutenant Measle?"
+		 "All he wants is some information for your records."
+		 "Ahem.  Lieutenant Measle???">
+	<PLTABLE "What do I do with the Ambassador?"
+		 "Enjoy his company. He's just there to liven up the game opening.">
+	<PLTABLE "How do I get the translator?" 
+		 "You can't.">
+	<PLTABLE "How do I get the celery?"
+		 "You can't.">
+	<PLTABLE "How do I get the Ambassador's map?"
+		 "The Ambassador doesn't have any map!">
+	<PLTABLE "What should I do in the Galley?"
+		 "Try eating the stew."
+		 "Did you find the handbook for programming autopilots?"
+		 "How did you get to a nonexistent place?">
+	<PLTABLE "How do I get out of the Brig?"
+		 "The best way to get out is to never get thrown in."
+		 "If you don't upset Blather by leaving your post, you'll never get thrown in the Brig."
+		 "Once you're in the Brig, there's no way out.">
+	<PLTABLE "How can I save the Feinstein?"
+		 "It might be a malfunction in the Hyperspatial Jump Machinery Room."
+		 "Of course, since you can't enter that room, you'll never know."
+		 "There's no way to prevent it, and you won't find out until later what caused it. Best thing to do is try to survive the shipwreck.">
+	<PLTABLE "Can I open the escape pod bulkhead?"
+		 "It opens automatically during any emergency."
+		 "For example, when the Feinstein begins exploding.">
+	
+	"THE POD TRIP"
+	<PLTABLE "How do I control the pod?"
+		 "The controls are entirely automated."
+		 "Sit back and relax. Let the autopilot do the driving.">
+	<PLTABLE "I keep getting killed! Help!"
+		 "Are you standing?"
+		 "The adjective associated with the web is notable."
+		 "Get in the safety web and don't stand until you've landed.">
+	<PLTABLE "Can I keep the pod from sinking?"
+		 "Sorry, you can't.">
+	<PLTABLE "Will I use the emergency provisions?"
+		 "It's always a good idea in adventure games to take anything that you can carry.">
+	<PLTABLE "Can I leave the pod after landing?"
+		 "Sure. Have you tried opening the door?"
+		 "You can't reach the door while you're still in the web."
+		 "Once the door is open, either UP or OUT works."
+		 "Needless to say, don't dally too long.">
+	<PLTABLE "I keep drowning underwater. Help!"
+		 "The water is a dangerous place to be. Leave it immediately."
+		 "There is light filtering down from above."
+		 "Say UP.">
+	
+	"THE DORMITORY"
+	<PLTABLE "What can I do on the Balcony?"
+		 "The plaque is the only thing of interest there.">
+	<PLTABLE "Of what use is the ruined castle?"
+		 "Not much.">
+	<PLTABLE "What can I do in the Rec Area?"
+		 "There are some interesting tapes and games there."
+		 "Have you noticed the locked door leading north?">
+	<PLTABLE "Can I unlock the door with the dial?"
+		 "It's a combination lock."
+		 "You could try setting it to every number from 1 to 1000."
+		 "The combination can be found in the lab area."
+		 "It is in the pocket of the lab uniform.">
+	<PLTABLE "What use are the four dorms?"
+		 "They are all identical."
+		 "They make good places to sleep.">
+	<PLTABLE "What about the sanitary facilities?"
+		 "You won't need to use them. The game isn't THAT realistic."
+		 "They are of no importance.">
+	<PLTABLE "How do I open the padlock?"
+		 "You'll need a key."
+		 "Have you seen a \"glint of light\" anywhere while exploring?"
+		 "It's in the crevice in Admin Corridor South."
+		 "You can't reach it with your hands. You'll need something else."
+		 "The curved metal bar."
+		 "It's a magnet. Try holding it over the key.">
+	<PLTABLE "How do I open the tin can?"
+		 "Don't develop the next hint until you've found the can opener."
+		 "There is no can opener. You must be cheating."
+		 "There is no way to open the can.">
+	<PLTABLE "Does the door in the Mess Hall open?"
+		 "If you mean the locked door in the southern end, yes."
+		 "The slot next to the door is important."
+		 "You'll need the kitchen access card."
+		 "It's located beyond the rift."
+		 "It's in the desk in the Small Office. Slide it through the slot.">
+	<PLTABLE "What is the ladder for?"
+		 "It is needed to get past a major obstacle."
+		 "You've probably seen the obstacle."
+		 "The rift.">
+	<PLTABLE "What use is the kitchen dispenser?"
+		 "Have you tried pushing the button?"
+		 "That liquid is food."
+		 "You'll need something to catch the liquid."
+		 "The octagonal shape of the niche is important."
+		 "Open the canteen and put it in the niche.">
+	"ADMIN/MECH AREA"
+	<PLTABLE "What can I do in the Physical Plant?"
+		 "Nothing."
+		 "It's there just for show. Every large complex of buildings needs one.">
+	<PLTABLE "Is the crack in the floor important?"
+		 "Yes.">
+	<PLTABLE "Is the deactivated robot important?"
+		 "Yes, indeed!"
+		 "Turn it on.">
+	<PLTABLE "How do I run the reactor elevator?"
+		 "The slot in the elevator is important."
+		 "You'll need the reactor elevator access pass."
+		 "Don't develop further until you've been on the helicopter trip."
+		 "Cheating again, eh?  There's no way to operate that elevator.">
+	<PLTABLE "How do I fix the reactors?"
+		 "Have you opened the repair panel?"
+		 "Some of the megafuses seem to be burned out."
+		 "Try replacing the megafuses with the good ones from the box in Storage East."
+		 "Oh, come now. You haven't been to the reactors, have you?">
+	<PLTABLE "How do I cross the rift?"
+		 "Jumping is a bad idea."
+		 "You'll need an item which you may not have seen yet."
+		 "It's behind the padlocked door."
+		 "Extend the ladder and put it across the rift.">
+	<PLTABLE "How can I see in the darkened area?"
+		 "You'll need a light source.">
+	<PLTABLE "What is the chemical dispenser for?"
+		 "Have you tried pushing any of the buttons on it?"
+		 "The flask can be used to hold the chemical fluid."
+		 "The first seven buttons are obviously coolants and catalysts."
+		 "The two white buttons produce an acid and a base."
+		 "You'll need the coolants and catalysts for the Comm Room problem.">
+	<PLTABLE "What do I do with the acid and base?"
+		 "Batteries are made out of acids and bases."
+		 "Have you run into any dangerous creatures?  You might be able to use the acid or base as a weapon."
+		 "Actually, these two chemicals are totally useless.">
+	<PLTABLE "Can I fix the disassembled robots?"
+		 "A repair robot might be of help."
+		 "Don't go on until you've repaired Achilles."
+		 "There's no way to reassemble those robots.">
+	<PLTABLE "What about the Plan Room?"
+		 "There's nothing for you to do in there, but you might pick up some useful information there.">
+	<PLTABLE "What about the Systems Monitors?"
+		 "There's nothing for you to do in there, but you might pick up some useful information there.">
+	<PLTABLE "Is there any way to take the hose?"
+		 "What hose?">
+		
+     	"ELEVATORS/TOWER"
+	<PLTABLE "Can I open the Elevator Lobby doors?"
+		 "Try pushing the red and blue buttons."
+		 "Then wait a little while.">
+	<PLTABLE "How do the elevators work?"
+		 "The slot on the control panels is important."
+		 "You'll need to find the respective access passes."
+		 "When you find them, slide them through the slot, and then say PUSH UP BUTTON or PUSH DOWN BUTTON."
+		 "The upper elevator access card is located beyond the rift."
+		 "It's in the desk in the Small Office."
+		 "Floyd has the lower elevator access card."
+		 "He may give it to you when you use another access card in his presence. Alternately, you can turn him off and search him.">
+	<PLTABLE "What is the Helipad for?"
+		 "The helicopters probably land and take off from there.">
+	<PLTABLE "How do I enter the Helicopter?"
+		 "Try ENTER THE HELICOPTER.">
+	<PLTABLE "TELL ME ABOUT THE OBSERVATION DECK"
+		 "Nice view of another complex of buildings on a nearby island.">
+	<PLTABLE "Should I do anything with the birds?"
+		 "Try feeding them."
+		 "Birds like insects."
+		 "What birds?  What insects?">
+	<PLTABLE "What is the comm. receive console?"
+		 "Try pressing the button on it."
+		 "Apparently, it received a transmission from the Feinstein just before the ship blew up.">
+	<PLTABLE "What is the comm. send console?"
+		 "Read the screen. The message is very interesting."
+		 "The message isn't being sent, however."
+		 "You can repair the communication system using the chemical dispenser in the Machine Shop."
+		 "The colored light on the enunciator panel refers to one of the colored buttons on the dispenser."
+		 "Keep pouring the proper chemical fluid into the hole on the console until it is fixed.  It will take anywhere from three to five trips.">
+	
+	"HELICOPTER TRIP"
+	<PLTABLE "Where do I find the helicopter?"
+		 "You need to use the upper elevator to get to it.">
+	<PLTABLE "How do I unlock the control panel?"
+		 "Try reading the green spool using the microfilm reader."
+		 "According to the spool, you'll find a key in Transportation Supply.">
+	<PLTABLE "Where is the helicopter access card?"
+		 "Try reading the green spool using the microfilm reader."
+		 "According to the spool, the card would be in Transportation Supply.">
+	<PLTABLE "How do I use the helicopter?"
+		 "Unless you have the helicopter control panel key and the helicopter access card, don't read any further."
+		 "Use the key to open the control panel cover."
+		 "Use the access card to activate the controls."
+		 "Just tell your intended destination to the voice-controlled autopilot, then sit back and enjoy the trip."
+		 "Amazing feat, your managing to get this far, considering the key and card don't exist.">
+	<PLTABLE "What destination should I select?"
+		 "Where would you expect to find people?"
+		 "A large city, perhaps?"
+		 "Try the capital city of Resida, Pilandoor."
+		 "Don't you feel pretty silly, considering there's no way to even get the helicopter off the ground?">
+
+	"SHUTTLE TRIP"
+	<PLTABLE "Where do I find the shuttle?"
+		 "You need to use the lower elevator to get to it.">
+	<PLTABLE "How do I operate the shuttle?"
+		 "You'll need the shuttle access card.  By now you should know how to use these cards."
+		 "You can't operate the shuttle after 6000."
+		 "Hopefully, you can figure out that you want to be in the control cabin facing the set of tracks, not the one facing the blank wall.">
+	<PLTABLE "How do I use the shuttle controls?"
+                 "First, activate the controls (see previous question)."
+		 "Pushing the lever up into the \"+\" position causes the shuttle to accelerate. Pulling the lever down into the \"-\" position causes the shuttle to decelerate."
+		 "When the lever is in the central position, the shuttle will continue to move at its current velocity."
+		 "The digital display tells the current velocity of the shuttle.">
+	<PLTABLE "I always crash at the other station!"
+		 "You're going too fast. Decelerate sooner."
+		 "If you're going faster than 20 when you get to the far station, you'll be killed."
+		 "If you're going between 5 and 20 you will survive, but the shuttle will be damaged.">
+
+	"SYSTEMS/LIBRARY"
+	<PLTABLE "What is the medicine for?"
+		 "Read the label.">
+	<PLTABLE "The Repair Room door is too small!" 
+		 "It's too small for YOU to get through."
+                 "It's \"robot-sized\"."
+		 "Ask Floyd to go through the doorway.">
+	<PLTABLE "Do the Repair Room cabinets open?"
+		 "You'll have to repair Achilles first.">
+	<PLTABLE "How can I repair Achilles?"
+		 "Waldo won't be of any help (unless you're playing SUSPENDED)."
+		 "Try using the microfilm reader to read the brown spool."
+		 "The brown spool is in the Radiation Lab."
+		 "Unfortunately, there's no way to get the brown spool to the microfilm reader."
+		 "There is also no way to repair Achilles.">
+	<PLTABLE "Is there a good fromitz board?"
+		 "Yes."
+		 "Have you been beyond the small door in the Repair Room?"
+		 "You'll have to ask Floyd to get the good fromitz board.">
+	<PLTABLE "Is there a good bedistor anywhere?"
+		 "Yes."
+		 "It's in Storage East, just off Mech Corridor North. If you missed it, you'd better improve your exploring and mapping abilities.">
+	<PLTABLE "TELL ME ABOUT PLANETARY DEFENSE"
+		 "The library might tell you something."
+		 "Apparently, it is an automatic meteor defense. Perhaps this solar system has a high meteor density."
+		 "The system's discrimination circuit seems to have failed."
+		 "This is probably why the Feinstein was destroyed. You'd better repair it."
+		 "Open the access panel."
+		 "Figure out which board is malfunctioning and remove it."
+		 "It's the second board. Take it and put the good fromitz board in the resulting empty socket.">
+	<PLTABLE "TELL ME ABOUT THE COURSE CONTROL"
+		 "The library might tell you something about it."
+		 "Apparently, the entire planet was moved into a more favorable but less stable orbit. This system ensures that the planet stays in the proper orbit."
+		 "The course control system seems to be malfunctioning. If the planet was approaching its sun, it would explain the melting ice caps and water level rise."
+		 "You'd better repair this system."
+		 "Try opening the cube and removing the fused bedistor."
+		 "You'll need a tool."
+		 "Use the pliers from the Tool Room to remove the fused bedistor."
+		 "Put the good bedistor into the cube.">
+	<PLTABLE "Why is this Physical Plant so big?"
+		 "True, this plant is larger than its counterpart in the Kalamontee Complex, even though the Lawanda Complex is slightly smaller."
+		 "Perhaps there is a large section of the Lawanda Compex that you haven't seen yet..."
+		 "...such as the cryo-chambers, buried deep underground.">
+	<PLTABLE "How do I use the computer terminal?"
+		 "Firstly, turn it on."
+		 "To select an item in the menu, use the TYPE command. For example, to select item 2, type TYPE 2."
+		 "Typing TYPE 0 returns you to the next highest menu level (except, of course, if you are at the Main Menu, which is the highest level).">
+	<PLTABLE "How do I use the microfilm reader?"
+		 "It must be turned on."
+		 "The colored spools are spools of microfilm."
+		 "Put one in the opening in the reader.">
+	<PLTABLE "How do I summon the librarian?"
+		 "You can't."
+		 "Really!">
+	"PROJCON AND LAB"
+	<PLTABLE "What is the signficance of SanFac F?"
+		 "Haven't you realized by now that these SanFacs are of no interest?">
+	<PLTABLE "What about the ProjCon Office?"
+		 "The library might be of some help."
+		 "It was the main office for the Project.">
+	<PLTABLE "Is the logo important?"
+		 "It also appears on the lab uniform."
+		 "It's yet another little hint about what's going on.">
+	<PLTABLE "Is the mural important?"
+		 "Examination reveals that there might be an area behind it."
+		 "But don't worry about it now."
+		 "When the time comes, you'll know it.">
+	<PLTABLE "Who is Burstini Bonz?"
+		 "Wasn't he the great Respectivist artist who became famous for painting awesomely phenomenal murals during the 89th century?">
+	<PLTABLE "What is the laboratory area for?"
+		 "The library might have some information on that."
+		 "It is the laboratory built to find a cure for the Disease.">
+	<PLTABLE "Is the Bio-Lab safe to enter?"
+		 "Try it."
+		 "Nope, I guess it wasn't. Hope you did a SAVE first.">
+	<PLTABLE "Is the Radiation Lab safe to enter?"
+		 "Try it."
+		 "Nope, I guess you can't. Hope you did a SAVE first.">
+	<PLTABLE "Where is the radiation suit?"
+		 "It might be down near the Reactors."
+		 "Find a light source, then use the Reactor Access Stairs."
+		 "There's a lamp in the Radiation Lab."
+		 "Going in circles? There's no radiation suit anywhere.">
+	<PLTABLE "What is the card in the Bio-Lab?"
+		 "Floyd will tell you when he sees it."
+		 "It's for the Miniaturization Booth.">
+	<PLTABLE "Can I get the card from the Bio-Lab?"
+		 "You'll die trying."
+		 "Floyd's a robot. He might be tougher."
+		 "He'll volunteer to get the card if he has a good enough reason."
+		 "Do you know what the card is and what you would use it for?"
+		 "The Miniaturization Booth is for repairing the Computer."
+		 "Show Floyd the computer printout, or let him see the warning light in the Computer Room."
+                 "Then take him into Bio-Lock East and do what he says.">
+	
+	"COMPUTER/ENDGAME"
+	<PLTABLE "What does the computer do?"
+		 "The library might have something on it."
+		 "It runs the automated Project..."
+		 "...which is trying to find a cure for the Disease.">
+	<PLTABLE "Is the printout important?"
+		 "It appears that the Project was incredibly close to a successful conclusion."
+		 "Then the computer broke down."
+		 "If you've been in the Repair Room, you'll know that summoning the repair robot didn't help."
+		 "You'll have to fix the computer yourself."
+		 "Use the Miniaturization Booth.">
+	<PLTABLE "Does the Miniaturization Booth work?"
+		 "You'll need the proper access card, of course."
+		 "It's in the Bio-Lab."
+		 "Once you've activated the booth, type the damaged sector number."
+		 "Have you read the printout?"
+		 "The damaged sector is 384. Type TYPE 384."
+		 "You will then be miniaturized and teleported into the damaged sector, where you can attempt to effect repairs.">
+	<PLTABLE "I am at Station 384. What now?"
+		 "Explore around."
+		 "Have you seen and examined the relay?"
+		 "You'll have to figure out a way to remove the speck."
+		 "The laser."
+		 "You must destroy the speck without harming the relay."
+		 "The dial must be set to 1, so that the beam will pass harmlessly through the red translucent exterior of the relay."
+		 "You'll have to shoot the speck a number of times to destroy it.">
+	<PLTABLE "Can I talk to the giant spider?"
+		 "Yes."
+		 "Play STARCROSS.">
+	<PLTABLE "How do I get past the giant microbe?"
+		 "Try shooting it with the laser."
+		 "That won't have any effect while the laser is set to 1, of course."
+		 "If you don't keep shooting the microbe, it will get close enough to eat you."
+		 "Repeated shootings of the microbe merely hold it at bay, and sooner or later you're killed when sector 384 comes to life."
+		 "Has the microbe become interested in anything besides you?"
+		 "The microbe is attracted to the warmth of the laser."
+		 "When the laser gets warm enough, throw it over the edge of the strip, into the void below. The microbe will leap after it.">
+	<PLTABLE "How do I get back from the Strip?"
+		 "Go to Station 384.">
+	<PLTABLE "How do I get out of the Lab Office?"
+		 "Opening the door right off isn't a healthy idea."
+		 "There are some buttons on the wall..."
+		 "To get a clue, search the desk."
+		 "Have you opened the desk?"
+		 "Put on the gas mask, then press the red button."
+		 "Then, move fast. You don't have a millichron to spare.">
+	<PLTABLE "How do I get rid of the mutants?"
+		 "You can't kill them."
+		 "There's only one way to lose them."
+		 "You're very close to the end of the game."
+		 "Did you hear an announcement?"
+		 "Remember the mural?"
+		 "Go to the ProjCon Office."
+		 "Go south into the elevator and push the button.">
+
+	"GENERAL QUESTIONS"
+	<PLTABLE "What do I do with my ID card?"
+		 "It's useless.">
+	<PLTABLE "Why did my things go when I slept?"
+		 "Do you normally go to sleep holding things? You dropped them while you were sleeping. Check the floor of the room where you slept.">
+	<PLTABLE "How do I read the native language?"
+		 "It's actually a phonetic version of English."
+		 "\"X\" is used in place of \"TH\" and \"C\" is used in place of \"CH\"."
+		 "Double vowels signify the long vowel sound, and single vowels indicate the short vowel sound.">
+	<PLTABLE "I keep starving to death. Feed me!"
+		 "Didn't you take the survival kit from the safety pod?"
+		 "Of course, that doesn't last long."
+		 "There's a can of spam and eggs in Storage West."
+		 "Unfortunately, there's no way to open it."
+		 "You'll have to get into the Kitchen."
+		 "It's just south of the Mess Hall.">
+	<PLTABLE "Where can I sleep?"
+		 "Civilized people usually sleep in beds."
+		 "If you sleep elsewhere, you might be devoured (by grues?)."
+		 "There are beds in the four dorms, and the Infirmary."
+		 "Of course, the bed in the Infirmary is a bad idea for other reasons.">
+	<PLTABLE "Where can I find a light source?"
+		 "Have you tried burning the towel?"
+		 "Okay, that didn't work. There IS a lantern somewhere."
+		 "It's in the Radiation Lab."
+		 "You can't enter the Radiation Lab and survive without a radiation suit."
+		 "There is no radiation suit."
+		 "There is no way to get a light source into the dark rooms.">
+	<PLTABLE "What is a grue?"
+		 "Ask the game.">
+	<PLTABLE "Do the teleportation booths work?"
+		 "Of course! But you'll have to find the teleportation access card first."
+		 "It's in the lab area, which you may not have been to yet."
+		 "It's in the pocket of the lab uniform."
+		 "Slide the card thru the slot, then press the button corresponding to the booth you want to teleport to.">
+	<PLTABLE "How does the laser work?"
+		 "You must be holding it to fire it."
+		 "It has six settings. Each setting produces a different colored beam."
+		 "The battery in it when you find it won't last very long."
+		 "You'll need a fresh battery."
+		 "Open the laser, remove the old battery, and put the new battery in.">
+	<PLTABLE "Where do I find a new laser battery?"
+		 "Have you tried making one?"
+		 "Some batteries are made by mixing acids and bases."
+		 "However, there's no way to make your own battery. There is a fresh battery lying around somewhere."
+                 "It's in Lab Storage.">
+	<PLTABLE "What are megafuses for?"
+		 "They're electrical components."
+		 "They're usually used for repairing Reactor systems.">
+	<PLTABLE "What are fromitz boards for?"
+		 "They're electrical components."
+		 "They're usually used for repairing Planetary Defense systems.">
+	<PLTABLE "What are bedistors for?"
+		 "They're electrical components."
+		 "They're usually used for repairing Course Control systems.">
+	<PLTABLE "Doctor, doctor! Why am I so sick?"
+		 "You'll find out when you get to the Library."
+		 "You have contracted the Disease. It is fatal."
+		 "The medicine in the Infirmary might help a bit."
+		 "But your only long-term hope is to help bring the Project to its ultimate goal.">
+	<PLTABLE "I finished, but without 80 points!"
+		 "You didn't repair all the broken systems."
+		 "Consult the Systems Monitors."
+		 "You must repair the Communication System, the Planetary Defense System, and the Course Control System in order to get the optimum ending.">
+	<PLTABLE "How can I talk to Floyd?"
+		 "He has to be on, of course."
+		 "Talk to him the same way you would talk to any other character in the game: FLOYD, EAT THE CAKE (for example).">
+	 "MISCELLANEOUS"
+	 <PLTABLE "How to get all 80 points" 
+		  "This section should only be used as a last resort, or for your own interest after you've completed PLANETFALL."
+		  "3 points for entering the Escape Pod."
+		  "3 points for entering the Crag."
+		  "2 points for turning Floyd on for the first time."
+		  "2 points for firing the laser for the first time."
+		  "4 points for entering Storage West."
+		  "4 points for entering Admin Corridor North."
+		  "4 points for entering the Kitchen."
+		  "4 points for entering the Tower Core."
+		  "4 points for entering the Kalamontee Platform."
+		  "4 points for entering the Lawanda Platform."
+                  "1 point for taking the kitchen access card."
+		  "1 point for taking the shuttle access card."
+		  "1 point for taking the upper elevator access card."
+		  "1 point for taking the lower elevator access card."
+		  "1 point for taking the miniaturization access card."
+		  "2 points for Floyd's death."
+		  "6 points for fixing the communications system."
+		  "6 points for fixing the planetary defense system."
+		  "6 points for fixing the course control system."
+		  "4 points for entering the Strip Near Station."
+		  "4 points for entering the Auxiliary Booth."
+		  "8 points for fixing the computer."
+		  "5 points for entering the Cryo-Elevator.">
+	 <PLTABLE "Have you tried...?"
+		  "Don't expose these amusing suggestions until you've finished Planetfall. They may give away the answers to puzzles in the game."
+		  "Reading the graffiti in the Brig?"
+		  "Attacking, talking to, or throwing something at Blather?"
+		  "Attacking or talking to the ambassador?"
+		  "Touching, eating, smelling, or looking at the slime?"
+		  "Scrubbing the slime?"
+		  "Eating the celery?"
+		  "Examining the games and tapes in the Rec Area?"
+		  "Looking under the table in the Mess Hall?"
+		  "Kicking, attacking, rubbing, or kissing Floyd?"
+		  "Throwing acid at the mutants?"
+		  "Reading your chronometer?"
+		  "Taking off your chronometer or pouring acid on it?"
+		  "Getting into bed in the Infirmary?"
+		  "Scrubbing yourself?"
+		  "Reading the towel?"
+		  "Removing your uniform while Blather or Floyd are present?"
+		  "Destroying the mural?"
+		  "\"Stealing\" the lower elevator card from Floyd and then showing it to him?"
+		  "Giving Floyd the Lazarus breast plate?"
+		  "Typing ZORK?">>>
+
+<GLOBAL CUR-POS 0>	;"determines where to place the highlight cursor
+			  Can go up to 17 Questions"
+
+<GLOBAL QUEST-NUM 1>    ;"shows in HINT-TBL ltable which QUESTION it's on"
+
+<GLOBAL CHAPT-NUM 1>	;"shows in HINT-TBL ltable which CHAPTER it's on"
+
+<CONSTANT DIROUT-TBL
+	  <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 >>
+
+<ROUTINE V-HINTS-NO ()
+	<COND (<NOT <PRSO? ,ROOMS>>
+	       <TELL "I don't understand what you mean." CR>)
+	      (T
+	       <SETG HINTS-OFF T>
+	       <TELL "[Hints have been disallowed for this session.]" CR>)>
+	<RFATAL>>
+
+<ROUTINE V-HINT ("AUX" CHR MAXC (C <>) Q (WHO <>))
+  <COND (<==? ,HINTS-OFF -1>
+	 <SETG HINTS-OFF 0>
+	 <TELL
+"[Warning: It is recognized that the temptation for help may at times be so
+exceedingly strong that you might fetch hints prematurely. Therefore, you may
+at any time during the story type HINTS OFF, and this will disallow the
+seeking out of help for the present session of the story. If you still want a
+hint now, indicate HINT.]" CR>
+	 <RFATAL>)
+	(,HINTS-OFF
+	 <PERFORM ,V?HINTS-NO ,ROOMS>
+	 <RFATAL>)>
+  ;<IFSOUND <SETG SOUND-QUEUED? <>>
+	   <KILL-SOUNDS>>
+  <SET MAXC <GET ,HINTS 0>>
+  <INIT-HINT-SCREEN>
+  <CURSET 5 1>
+  <PUT-UP-CHAPTERS>
+  <SETG CUR-POS <- ,CHAPT-NUM 1>>
+  <NEW-CURSOR>
+  <REPEAT ()
+	  <SET CHR <INPUT 1>>
+	  <COND (<EQUAL? .CHR !\Q !\q>
+		 <SET Q T>
+		 <RETURN>)
+		(<EQUAL? .CHR !\N !\n>
+		 <ERASE-CURSOR>
+		 <COND (<EQUAL? ,CHAPT-NUM .MAXC>
+			<SETG CUR-POS 0>
+			<SETG CHAPT-NUM 1>
+			<SETG QUEST-NUM 1>)
+		       (T
+			<SETG CUR-POS <+ ,CUR-POS 1>>
+			<SETG CHAPT-NUM <+ ,CHAPT-NUM 1>>
+			<SETG QUEST-NUM 1>)>
+		 <NEW-CURSOR>)
+		(<EQUAL? .CHR !\P !\p>
+		 <ERASE-CURSOR>
+		 <COND (<EQUAL? ,CHAPT-NUM 1>
+			<SETG CHAPT-NUM .MAXC>
+			<SETG CUR-POS <- .MAXC 1>>)
+		       (T
+			<SETG CUR-POS <- ,CUR-POS 1>>
+			<SETG CHAPT-NUM <- ,CHAPT-NUM 1>>)>
+		 <SETG QUEST-NUM 1>
+		 <NEW-CURSOR>)
+		(<EQUAL? .CHR 13 10>
+		 <PICK-QUESTION>
+		 <RETURN>)>>
+  <COND (<NOT .Q>
+	 <AGAIN>	;"AGAIN does whole routine?")>
+  <CLEAR -1>
+  <INIT-STATUS-LINE>
+  <TELL "Back to the story ..." CR>
+  ;<IFSOUND <COND (,SOUND-ON?
+		  <CHECK-LOOPING>)>>
+  <RFATAL>>
+
+<ROUTINE PICK-QUESTION ("AUX" CHR MAXQ (Q <>))
+  <INIT-HINT-SCREEN <>>
+  <LEFT-LINE 3 ,RETURN-SEE-HINT ,RETURN-SEE-HINT-LEN>
+  <RIGHT-LINE 3 ,Q-MAIN-MENU ,Q-MAIN-MENU-LEN>
+  <SET MAXQ <- <GET <GET ,HINTS ,CHAPT-NUM> 0> 1>>
+  <CURSET 5 1>
+  <PUT-UP-QUESTIONS>
+  <SETG CUR-POS <- ,QUEST-NUM 1>>
+  <NEW-CURSOR>
+  <REPEAT ()
+    <SET CHR <INPUT 1>>
+    <COND (<EQUAL? .CHR !\Q !\q>
+	   <SET Q T>
+	   <RETURN>)
+	  (<EQUAL? .CHR !\N !\n>
+	   <ERASE-CURSOR>
+	   <COND (<EQUAL? ,QUEST-NUM .MAXQ> ; "Wrap around on N"
+		  <SETG CUR-POS 0>
+		  <SETG QUEST-NUM 1>)
+		 (T
+		  <SETG CUR-POS <+ ,CUR-POS 1>>
+		  <SETG QUEST-NUM <+ ,QUEST-NUM 1>>)>
+	   <NEW-CURSOR>)
+	  (<EQUAL? .CHR !\P !\p>
+	   <ERASE-CURSOR>
+	   <COND (<EQUAL? ,QUEST-NUM 1>
+		  <SETG QUEST-NUM .MAXQ>
+		  <SETG CUR-POS <- .MAXQ 1>>)
+		 (T
+		  <SETG CUR-POS <- ,CUR-POS 1>>
+		  <SETG QUEST-NUM <- ,QUEST-NUM 1>>)>
+	   <NEW-CURSOR>)
+	  (<EQUAL? .CHR 13 10>
+	   <DISPLAY-HINT>
+	   <RETURN>)>>
+  <COND (<NOT .Q>
+	 <AGAIN>)>>
+
+<ROUTINE ERASE-CURSOR ()
+	<CURSET <GET ,LINE-TABLE ,CUR-POS>
+		<- <GET ,COLUMN-TABLE ,CUR-POS> 2>>
+	<TELL " ">	;"erase previous highlight cursor">
+
+;"go back 2 spaces from question text, print cursor and flash is between
+the cursor and text"
+
+<ROUTINE NEW-CURSOR ()
+	<CURSET <GET ,LINE-TABLE ,CUR-POS>
+		<- <GET ,COLUMN-TABLE ,CUR-POS> 2 ;1>>
+	<TELL ">">	;"print the new cursor">
+
+<ROUTINE INVERSE-LINE ("AUX" (CENTER-HALF <>)) 
+	<HLIGHT ,H-INVERSE>
+	<PRINT-SPACES <LOWCORE SCRH>>
+	<HLIGHT ,H-NORMAL>>
+
+<ROUTINE DISPLAY-HINT ("AUX" H MX (CNT 2) CHR (FLG T) N CV
+			  SHIFT? COUNT-OFFS)
+  <CLEAR -1>
+  <SPLIT 3>
+  <SCREEN ,S-WINDOW>
+  <CURSET 1 1>
+  <INVERSE-LINE>
+  <CENTER-LINE 1 ,INVISICLUES ,INVISICLUES-LEN>
+  <CURSET 3 1>
+  <INVERSE-LINE>
+  <LEFT-LINE 3 "RETURN = see new hint">
+  <RIGHT-LINE 3 ,Q-SEE-HINT-MENU ,Q-SEE-HINT-MENU-LEN>
+  <CURSET 2 1>
+  <INVERSE-LINE>
+  <HLIGHT ,H-BOLD>
+  <SET H <GET <GET ,HINTS ,CHAPT-NUM> <+ ,QUEST-NUM 1>>>
+  ; "Byte table to use for showing questions already seen"
+  ; "Actually a nibble table.  The high four bits of each byte are for
+     quest-num odd; the low for bits are for quest-num even.  See SHIFT?
+     and COUNT-OFFS."
+  <SET CV <GET ,HINT-COUNTS <- ,CHAPT-NUM 1>>>
+  <CENTER-LINE 2 <GET .H 1>>
+  <HLIGHT ,H-NORMAL>
+  <SET MX <GET .H 0>>
+  <SCREEN ,S-TEXT>
+  <CRLF>
+  <SET SHIFT? <MOD ,QUEST-NUM 2>>
+  <SET COUNT-OFFS </ <- ,QUEST-NUM 1> 2>>
+  <REPEAT ((CURCX <GETB .CV .COUNT-OFFS>)
+	   (CURC <+ 2 <ANDB <COND (.SHIFT? <LSH .CURCX -4>)
+				  (T .CURCX)> *17*>>))
+    <COND (<==? .CNT .CURC>
+	   <RETURN>)
+	  (T
+	   <TELL <GET .H .CNT> CR>
+	   <SET CNT <+ .CNT 1>>)>>
+  <REPEAT ()
+     <COND (<AND .FLG <G? .CNT .MX>>
+	    <SET FLG <>>
+	    <TELL "[That's all.]" CR>)
+	   (.FLG
+	    <SET N <+ <- .MX .CNT> 1>>
+	    <TELL "[" N .N " hint">
+	    <COND (<NOT <EQUAL? .N 1>>
+		   <TELL "s">)>
+	    <TELL " left.] -> ">
+	    <SET FLG <>>)>
+     <SET CHR <INPUT 1>>
+     <COND (<EQUAL? .CHR !\Q !\q>
+	    <COND (.SHIFT?
+		   <PUTB .CV .COUNT-OFFS
+			 <ORB <ANDB <GETB .CV .COUNT-OFFS> *17*>
+			      <LSH <- .CNT 2> 4>>>)
+		  (T
+		   <PUTB .CV .COUNT-OFFS
+			 <ORB <ANDB <GETB .CV .COUNT-OFFS> *360*>
+			      <- .CNT 2>>>)>
+	    <RETURN>)
+	   (<EQUAL? .CHR 13 10>
+	    <COND (<L=? .CNT .MX>
+		   <SET FLG T>	;".cnt starts as 2"
+		   <TELL <GET .H .CNT> CR>
+		   ; "3rd = line 7, 4th = line 9, ect"
+		   <COND (<G? <SET CNT <+ .CNT 1>> .MX>
+			  <SET FLG <>>
+			  <TELL "[Final hint]" CR>)>)>)>>>
+
+<ROUTINE PUT-UP-QUESTIONS ("AUX" (ST 1) MXQ MXL)
+  <SET MXQ <- <GET <GET ,HINTS ,CHAPT-NUM> 0> 1>>
+  <SET MXL <- <LOWCORE SCRV> 1>>
+  <REPEAT ()
+	  <COND (<G? .ST .MXQ>
+		 <RETURN>)
+		(T                        ;"zeroth"
+		 <CURSET <GET ,LINE-TABLE <- .ST 1>>
+				<- <GET ,COLUMN-TABLE <- .ST 1>> 1>>)>
+	  <TELL " " <GET <GET <GET ,HINTS ,CHAPT-NUM> <+ .ST 1>> 1>>
+	  <SET ST <+ .ST 1>>>>
+
+<ROUTINE PUT-UP-CHAPTERS ("AUX" (ST 1) MXC MXL)
+  <SET MXC <GET ,HINTS 0>>
+  <SET MXL <- <LOWCORE SCRV> 1>>
+  <REPEAT ()
+    <COND (<G? .ST .MXC>
+	   <RETURN>)
+	  (T                        ;"zeroth"
+	   <CURSET
+	    <GET ,LINE-TABLE <- .ST 1>>
+	    <- <GET ,COLUMN-TABLE <- .ST 1>> 1>>)>
+    <TELL " " <GET <GET ,HINTS .ST> 1>>
+    <SET ST <+ .ST 1>>>>
+
+<ROUTINE INIT-HINT-SCREEN ("OPTIONAL" (THIRD T))
+  <CLEAR -1>
+  <SPLIT <- <LOWCORE SCRV> 1>>
+  <SCREEN ,S-WINDOW>
+  <CURSET 1 1>
+  <INVERSE-LINE>
+  <CURSET 2 1>
+  <INVERSE-LINE>
+  <CURSET 3 1>
+  <INVERSE-LINE>
+  <CENTER-LINE 1 ,INVISICLUES ,INVISICLUES-LEN>
+  <LEFT-LINE 2 " N = Next">
+  <RIGHT-LINE 2 ,PREVIOUS ,PREVIOUS-LEN>
+  <COND (.THIRD
+	 <LEFT-LINE 3 " RETURN = See hint">
+	 <RIGHT-LINE 3 ,Q-RESUME-STORY ,Q-RESUME-STORY-LEN>)>>
+
+<ROUTINE CENTER-LINE (LN STR "OPTIONAL" (LEN 0) (INV T))
+  <COND (<ZERO? .LEN>
+	 <DIROUT ,D-TABLE-ON ,DIROUT-TBL>
+	 <TELL .STR>
+	 <DIROUT ,D-TABLE-OFF>
+	 <SET LEN <GET ,DIROUT-TBL 0>>)>
+  <CURSET .LN </ <- <LOWCORE SCRH> .LEN> 2>>
+  <COND (.INV
+	 <HLIGHT ,H-INVERSE>)>
+  <TELL .STR>
+  <COND (.INV
+	 <HLIGHT ,H-NORMAL>)>>
+
+<ROUTINE LEFT-LINE (LN STR "OPTIONAL" (INV T))
+	<CURSET .LN 1>
+	<COND (.INV
+	       <HLIGHT ,H-INVERSE>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,H-NORMAL>)>>
+
+<ROUTINE RIGHT-LINE (LN STR "OPTIONAL" (LEN 0) (INV T))
+	<COND (<ZERO? .LEN>
+	       <DIROUT 3 ,DIROUT-TBL>
+	       <TELL .STR>
+	       <DIROUT -3>
+	       <SET LEN <GET ,DIROUT-TBL 0>>)>
+	<CURSET .LN <- <LOWCORE SCRH> .LEN>>
+	<COND (.INV
+	       <HLIGHT ,H-INVERSE>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,H-NORMAL>)>>
+OW
\ No newline at end of file
diff --git a/misc.zabstr b/misc.zabstr
new file mode 100644
index 0000000..71e86ee
--- /dev/null
+++ b/misc.zabstr
@@ -0,0 +1,70 @@
+
+<DEFMAC RMGL-SIZE ('TBL) <COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> <FORM -
+<FORM / <FORM PTSIZE .TBL> 2> 1>) (T <FORM - <FORM PTSIZE .TBL> 1>)>> 
+<GLOBAL P-MULT <> %<> WORD> 
+<GLOBAL P-NOT-HERE <> %<> WORD> 
+<SETG C-ENABLED? 0> 
+<SETG C-ENABLED 1> 
+<SETG C-DISABLED 0> 
+<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> <CHTYPE <
+COND (<==? .X PRSA> <PARSE <STRING "V?" <SPNAME .ATM>>>) (ELSE .ATM)> GVAL>) (
+ELSE .ATM)> !.L)> <SET ATMS <REST .ATMS>> <COND (<==? <LENGTH .L> 3> <RETURN>)>
+> <SET O <REST <PUTREST .O (<FORM EQUAL? <CHTYPE .X GVAL> !.L>)>>> <SET L ()>>>
+
+<DEFMAC RFATAL () '<PROG () <PUSH 2> <RSTACK>>> 
+<DEFMAC PROB ('BASE?) <FORM NOT <FORM L? .BASE? '<RANDOM 100>>>> 
+<DEFINE-ROUTINE PICK-ONE> 
+<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>>> 
+<DEFMAC ABS ('NUM) <FORM COND (<FORM L? .NUM 0> <FORM - 0 .NUM>) (T .NUM)>> 
+^L 
+<GLOBAL P-WON <> %<> WORD> 
+<CONSTANT M-FATAL 2> 
+<CONSTANT M-HANDLED 1> 
+<CONSTANT M-NOT-HANDLED <>> 
+<CONSTANT M-BEG 1> 
+<CONSTANT M-END 6> 
+<CONSTANT M-OBJECT <>> 
+<CONSTANT M-ENTER 2> 
+<CONSTANT M-LOOK 3> 
+<CONSTANT M-FLASH 4> 
+<CONSTANT M-OBJDESC 5> 
+<GLOBAL WINNER <> %<> WORD> 
+<GLOBAL HOST:NUMBER 0 %<> WORD> 
+<GLOBAL WIDTH:NUMBER 0 %<> WORD> 
+<DEFINE-ROUTINE GO> 
+<DEFINE-ROUTINE I-RANDOM-INTERRUPTS> 
+<DEFINE-ROUTINE MAIN-LOOP> 
+<DEFINE-ROUTINE MAIN-LOOP-1> 
+<DEFINE-ROUTINE TOO-DARK-FOR-IT?> 
+<DEFINE-ROUTINE DONT-ALL> 
+<DEFINE-ROUTINE CLOCKER-VERB?> 
+<DEFINE-ROUTINE FAKE-ORPHAN> 
+<DEFINE-ROUTINE PERFORM-PRSA> 
+<DEFINE-ROUTINE PERFORM> 
+<DEFINE-ROUTINE D-APPLY> 
+<DEFINE-ROUTINE META-LOC> 
+^L 
+<CONSTANT C-TABLELEN 240> 
+<GLOBAL C-TABLE <ITABLE NONE 120> %<> WORD> 
+<GLOBAL C-DEMONS 300 %<> WORD> 
+<GLOBAL C-INTS 240 %<> WORD> 
+<GLOBAL C-ELAPSED 7 %<> WORD> 
+<CONSTANT C-ELAPSED-DEFAULT 7> 
+<CONSTANT C-INTLEN 6> 
+<CONSTANT C-ENABLED? 0> 
+<CONSTANT C-TICK 1> 
+<CONSTANT C-RTN 2> 
+<DEFINE-ROUTINE QUEUE> 
+<DEFINE-ROUTINE INT> 
+<DEFINE-ROUTINE CLOCKER> 
+<DEFINE-ROUTINE REFERRING> 
\ No newline at end of file
diff --git a/misc.zap b/misc.zap
new file mode 100644
index 0000000..6742256
--- /dev/null
+++ b/misc.zap
@@ -0,0 +1,469 @@
+
+
+	.FUNCT	PICK-ONE,FROB
+	GET	FROB,0
+	RANDOM	STACK
+	GET	FROB,STACK
+	RSTACK	
+
+
+	.FUNCT	GO
+START::
+
+?FCN:	GETB	0,30 >HOST
+	GETB	0,33 >WIDTH
+	CALL	QUEUE,I-BLATHER,-1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-AMBASSADOR,-1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-RANDOM-INTERRUPTS,1
+	PUT	STACK,0,1
+	CALL	QUEUE,I-SLEEP-WARNINGS,3600
+	PUT	STACK,0,1
+	CALL	QUEUE,I-HUNGER-WARNINGS,2000
+	PUT	STACK,0,1
+	CALL	QUEUE,I-SICKNESS-WARNINGS,1000
+	PUT	STACK,0,1
+	SET	'SPOUT-PLACED,GROUND
+	GETB	0,56
+	ZERO?	STACK \?CCL3
+	RANDOM	180
+	ADD	4450,STACK >INTERNAL-MOVES
+	JUMP	?CND1
+?CCL3:	SET	'INTERNAL-MOVES,4540
+?CND1:	SET	'MOVES,INTERNAL-MOVES
+	SET	'LIT,TRUE-VALUE
+	SET	'WINNER,ADVENTURER
+	CLEAR	-1
+	ICALL1	INIT-STATUS-LINE
+	SET	'HERE,DECK-NINE
+	ICALL1	UPDATE-STATUS-LINE
+	SET	'P-IT-LOC,DECK-NINE
+	SET	'P-IT-OBJECT,POD-DOOR
+	FSET?	HERE,TOUCHBIT /?CND4
+	ICALL1	V-VERSION
+	CRLF	
+	PRINTI	"Another routine day of drudgery aboard the Stellar Patrol Ship Feinstein. This morning's assignment for a certain lowly Ensign Seventh Class: scrubbing the filthy metal deck at the port end of Level Nine. With your Patrol-issue self-contained multi-purpose all-weather scrub brush you shine the floor with a diligence born of the knowledge that at any moment dreaded Ensign First Class Blather, the bane of your shipboard existence, could appear."
+	CRLF	
+	CRLF	
+?CND4:	ICALL1	V-LOOK
+	ICALL1	MAIN-LOOP
+	JUMP	?FCN
+
+
+	.FUNCT	I-RANDOM-INTERRUPTS
+	RANDOM	90
+	ADD	STACK,240
+	CALL	QUEUE,I-BLOWUP-FEINSTEIN,STACK
+	PUT	STACK,0,1
+	ICALL1	COMM-SETUP
+	RANDOM	1000 >NUMBER-NEEDED
+	RETURN	NUMBER-NEEDED
+
+
+	.FUNCT	MAIN-LOOP,TRASH
+?PRG1:	CALL1	MAIN-LOOP-1 >TRASH
+	JUMP	?PRG1
+
+
+	.FUNCT	MAIN-LOOP-1,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,?TMP1
+	SET	'C-ELAPSED,C-ELAPSED-DEFAULT
+	SET	'CNT,0
+	SET	'OBJ,FALSE-VALUE
+	SET	'PTBL,TRUE-VALUE
+	CALL1	PARSER >P-WON
+	ZERO?	P-WON /?CCL3
+	GET	P-PRSI,P-MATCHLEN >ICNT
+	GET	P-PRSO,P-MATCHLEN >OCNT
+	ZERO?	P-IT-OBJECT /?CND4
+	CALL2	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CND4
+	SET	'TMP,FALSE-VALUE
+?PRG8:	IGRTR?	'CNT,ICNT /?REP9
+	GET	P-PRSI,CNT
+	EQUAL?	STACK,IT \?PRG8
+	CALL1	TOO-DARK-FOR-IT?
+	ZERO?	STACK \TRUE
+	PUT	P-PRSI,CNT,P-IT-OBJECT
+	SET	'TMP,TRUE-VALUE
+?REP9:	ZERO?	TMP \?CND17
+	SET	'CNT,0
+?PRG19:	IGRTR?	'CNT,OCNT /?CND17
+	GET	P-PRSO,CNT
+	EQUAL?	STACK,IT \?PRG19
+	CALL1	TOO-DARK-FOR-IT?
+	ZERO?	STACK \TRUE
+	PUT	P-PRSO,CNT,P-IT-OBJECT
+?CND17:	SET	'CNT,0
+?CND4:	ZERO?	OCNT \?CCL30
+	SET	'NUM,OCNT
+	JUMP	?CND28
+?CCL30:	GRTR?	OCNT,1 \?CCL32
+	SET	'TBL,P-PRSO
+	ZERO?	ICNT \?CCL35
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND33
+?CCL35:	GET	P-PRSI,1 >OBJ
+?CND33:	SET	'NUM,OCNT
+	JUMP	?CND28
+?CCL32:	GRTR?	ICNT,1 \?CCL37
+	SET	'PTBL,FALSE-VALUE
+	SET	'TBL,P-PRSI
+	GET	P-PRSO,1 >OBJ
+	SET	'NUM,ICNT
+	JUMP	?CND28
+?CCL37:	SET	'NUM,1
+?CND28:	ZERO?	OBJ \?CND38
+	EQUAL?	ICNT,1 \?CND38
+	GET	P-PRSI,1 >OBJ
+?CND38:	EQUAL?	PRSA,V?WALK \?CCL44
+	CALL2	PERFORM-PRSA,PRSO >V
+	JUMP	?CND42
+?CCL44:	ZERO?	NUM \?CCL46
+	GETB	P-SYNTAX,P-SBITS
+	BAND	STACK,P-SONUMS
+	ZERO?	STACK \?CCL49
+	CALL1	PERFORM-PRSA >V
+	SET	'PRSO,FALSE-VALUE
+	JUMP	?CND42
+?CCL49:	ZERO?	LIT \?CCL51
+	PRINT	TOO-DARK
+	CRLF	
+	ICALL1	STOP
+	JUMP	?CND42
+?CCL51:	PRINTI	"There isn't anything to "
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	P-OFLAG \?CTR53
+	ZERO?	P-MERGED /?CCL54
+?CTR53:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND52
+?CCL54:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+?CND52:	PRINTC	33
+	CRLF	
+	SET	'V,FALSE-VALUE
+	ICALL1	STOP
+	JUMP	?CND42
+?CCL46:	SET	'P-NOT-HERE,0
+	SET	'P-MULT,FALSE-VALUE
+	GRTR?	NUM,1 \?CND57
+	SET	'P-MULT,TRUE-VALUE
+?CND57:	SET	'TMP,FALSE-VALUE
+?PRG59:	IGRTR?	'CNT,NUM \?CCL63
+	GRTR?	P-NOT-HERE,0 \?CCL66
+	PRINTI	"[The "
+	EQUAL?	P-NOT-HERE,NUM /?CND67
+	PRINTI	"other "
+?CND67:	PRINTI	"object"
+	EQUAL?	P-NOT-HERE,1 /?CND69
+	PRINTC	115
+?CND69:	PRINTI	" that you mentioned "
+	EQUAL?	P-NOT-HERE,1 /?CCL73
+	PRINTI	"are"
+	JUMP	?CND71
+?CCL73:	PRINTI	"is"
+?CND71:	PRINTI	"n't here.]"
+	CRLF	
+	JUMP	?CND42
+?CCL66:	ZERO?	TMP \?CND42
+	PRINTI	"There's nothing there."
+	CRLF	
+	JUMP	?CND42
+?CCL63:	ZERO?	PTBL /?CCL77
+	GET	P-PRSO,CNT >OBJ1
+	JUMP	?CND75
+?CCL77:	GET	P-PRSI,CNT >OBJ1
+?CND75:	ZERO?	PTBL /?CCL80
+	SET	'PRSO,OBJ1
+	JUMP	?CND78
+?CCL80:	SET	'PRSO,OBJ
+?CND78:	ZERO?	PTBL /?CCL83
+	SET	'PRSI,OBJ
+	JUMP	?CND81
+?CCL83:	SET	'PRSI,OBJ1
+?CND81:	GRTR?	NUM,1 /?CCL85
+	GET	P-ITBL,P-NC1
+	GET	STACK,0
+	EQUAL?	STACK,W?ALL \?CND84
+?CCL85:	CALL2	DONT-ALL,OBJ1
+	ZERO?	STACK \?PRG59
+	EQUAL?	OBJ1,IT \?CCL93
+	PRINTD	P-IT-OBJECT
+	JUMP	?CND91
+?CCL93:	PRINTD	OBJ1
+?CND91:	PRINTI	": "
+?CND84:	SET	'TMP,TRUE-VALUE
+	CALL	PERFORM-PRSA,PRSO,PRSI >V
+	EQUAL?	V,M-FATAL \?PRG59
+?CND42:	EQUAL?	V,M-FATAL \?CND96
+	SET	'P-CONT,FALSE-VALUE
+?CND96:	CALL2	CLOCKER-VERB?,PRSA
+	ZERO?	STACK /?CND1
+	EQUAL?	PRSA,V?TELL /?CND1
+	ZERO?	P-WON /?CND1
+	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	STACK,M-END >V
+	JUMP	?CND1
+?CCL3:	SET	'P-CONT,FALSE-VALUE
+?CND1:	CALL2	INT,I-POD-TRIP
+	GET	STACK,C-ENABLED?
+	ZERO?	STACK /?CCL105
+	SET	'C-ELAPSED,54
+	JUMP	?CND103
+?CCL105:	GRTR?	SHUTTLE-VELOCITY,0 \?CCL107
+	DIV	600,SHUTTLE-VELOCITY >C-ELAPSED
+	JUMP	?CND103
+?CCL107:	EQUAL?	PRSA,V?TELL /?CCL108
+	CALL2	CLOCKER-VERB?,PRSA
+	ZERO?	STACK \?CND103
+?CCL108:	SET	'C-ELAPSED,0
+?CND103:	ADD	INTERNAL-MOVES,C-ELAPSED >INTERNAL-MOVES
+	IN?	CHRONOMETER,ADVENTURER /?CCL113
+	SET	'MOVES,0
+	JUMP	?CND111
+?CCL113:	FSET?	CHRONOMETER,MUNGEDBIT \?CCL115
+	SET	'MOVES,MUNGED-TIME
+	JUMP	?CND111
+?CCL115:	SET	'MOVES,INTERNAL-MOVES
+?CND111:	ZERO?	P-WON /FALSE
+	ZERO?	C-ELAPSED /?CND119
+	CALL1	CLOCKER >V
+?CND119:	SET	'P-PRSA-WORD,FALSE-VALUE
+	SET	'PRSA,FALSE-VALUE
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSI,FALSE-VALUE
+	RETURN	PRSI
+
+
+	.FUNCT	TOO-DARK-FOR-IT?
+	ZERO?	LIT \FALSE
+	CALL	HELD?,P-IT-OBJECT,WINNER
+	ZERO?	STACK \FALSE
+	IN?	WINNER,P-IT-OBJECT /FALSE
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DONT-ALL,OBJ1,L
+	LOC	OBJ1 >L
+	EQUAL?	OBJ1,NOT-HERE-OBJECT \?CCL3
+	INC	'P-NOT-HERE
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
+	ZERO?	PRSI /?CCL5
+	IN?	PRSO,PRSI \TRUE
+?CCL5:	CALL2	ACCESSIBLE?,OBJ1
+	ZERO?	STACK /TRUE
+	EQUAL?	P-GETFLAGS,P-ALL \FALSE
+	ZERO?	PRSI /?CCL15
+	EQUAL?	PRSO,PRSI /TRUE
+?CCL15:	EQUAL?	PRSA,V?TAKE \?CCL19
+	FSET?	OBJ1,TAKEBIT /?CCL22
+	FSET?	OBJ1,TRYTAKEBIT \TRUE
+?CCL22:	EQUAL?	L,WINNER,HERE,PRSI /?CCL26
+	LOC	WINNER
+	EQUAL?	L,STACK /?CCL26
+	FSET?	L,SURFACEBIT \TRUE
+	FSET?	L,TAKEBIT /TRUE
+	RFALSE	
+?CCL26:	ZERO?	PRSI \FALSE
+	CALL2	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?PUT-ON,V?PUT,V?DROP /?PRD41
+	EQUAL?	PRSA,V?SGIVE,V?GIVE \?CCL39
+?PRD41:	IN?	OBJ1,WINNER \TRUE
+?CCL39:	EQUAL?	PRSA,V?PUT-ON,V?PUT \FALSE
+	IN?	PRSO,WINNER /FALSE
+	CALL	HELD?,PRSO,PRSI
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	CLOCKER-VERB?,VRB
+	EQUAL?	VRB,V?BRIEF,V?SUPER-BRIEF,V?VERBOSE /FALSE
+	EQUAL?	VRB,V?SAVE,V?RESTORE,V?SCORE /FALSE
+	EQUAL?	VRB,V?SCRIPT,V?UNSCRIPT,V?TIME /FALSE
+	EQUAL?	VRB,V?QUIT,V?RESTART,V?VERSION /FALSE
+	EQUAL?	VRB,V?$RANDOM,V?$RECORD,V?$UNRECORD /FALSE
+	EQUAL?	VRB,V?$COMMAND,V?HINT,V?HINTS-NO /FALSE
+	RTRUE	
+
+
+	.FUNCT	FAKE-ORPHAN,IT-WAS-USED,TMP,?TMP1
+	ICALL	ORPHAN,P-SYNTAX,FALSE-VALUE
+	GET	P-OTBL,P-VERBN >TMP
+	PRINTI	"[Be specific: Wh"
+	ZERO?	IT-WAS-USED /?CCL3
+	PRINTI	"at object"
+	JUMP	?CND1
+?CCL3:	PRINTC	111
+?CND1:	PRINTI	" do you want to "
+	ZERO?	TMP \?CCL6
+	PRINTI	"tell"
+	JUMP	?CND4
+?CCL6:	GETB	P-VTBL,2
+	ZERO?	STACK \?CCL8
+	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND4
+?CCL8:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PUTB	P-VTBL,2,0
+?CND4:	SET	'P-OFLAG,TRUE-VALUE
+	SET	'P-WON,FALSE-VALUE
+	GETB	P-SYNTAX,P-SPREP1
+	ICALL2	PREP-PRINT,STACK
+	PRINTR	"?]"
+
+
+	.FUNCT	PERFORM-PRSA,O,I
+	CALL	PERFORM,PRSA,O,I
+	RSTACK	
+
+
+	.FUNCT	PERFORM,A,O,I,V,OA,OO,OI
+	SET	'OA,PRSA
+	SET	'OO,PRSO
+	SET	'OI,PRSI
+	SET	'PRSA,A
+	ZERO?	P-WALK-DIR \?CND1
+	EQUAL?	A,V?WALK /?CND1
+	EQUAL?	IT,I,O \?CND1
+	CALL2	VISIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CCL9
+	EQUAL?	IT,O \?CCL12
+	SET	'O,P-IT-OBJECT
+	JUMP	?CND1
+?CCL12:	SET	'I,P-IT-OBJECT
+?CND1:	SET	'PRSO,O
+	SET	'PRSI,I
+	EQUAL?	A,V?WALK /?CND18
+	ZERO?	P-WALK-DIR \?CND18
+	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?CND18
+	CALL	D-APPLY,STR?1,NOT-HERE-OBJECT-F >V
+	ZERO?	V /?CND18
+	SET	'P-WON,FALSE-VALUE
+?CND18:	SET	'O,PRSO
+	SET	'I,PRSI
+	ICALL2	THIS-IS-IT,PRSI
+	ICALL2	THIS-IS-IT,PRSO
+	ZERO?	V \?CND25
+	GETP	WINNER,P?ACTION
+	CALL	D-APPLY,STR?2,STACK >V
+?CND25:	ZERO?	V \?CND27
+	GETP	HERE,P?ACTION
+	CALL	D-APPLY,STR?3,STACK,M-BEG >V
+?CND27:	ZERO?	V \?CND29
+	GET	PREACTIONS,A
+	CALL	D-APPLY,STR?4,STACK >V
+?CND29:	ZERO?	V \?CND31
+	ZERO?	I /?CND31
+	GETP	I,P?ACTION
+	CALL	D-APPLY,STR?5,STACK >V
+?CND31:	ZERO?	V \?CND35
+	ZERO?	O /?CND35
+	EQUAL?	A,V?WALK /?CND35
+	GETP	O,P?ACTION
+	CALL	D-APPLY,STR?6,STACK >V
+?CND35:	ZERO?	V \?CND40
+	GET	ACTIONS,A
+	CALL	D-APPLY,FALSE-VALUE,STACK >V
+?CND40:	SET	'PRSA,OA
+	SET	'PRSO,OO
+	SET	'PRSI,OI
+	RETURN	V
+?CCL9:	ZERO?	I \?CCL15
+	ICALL2	FAKE-ORPHAN,TRUE-VALUE
+	RETURN	2
+?CCL15:	ICALL1	REFERRING
+	RETURN	2
+
+
+	.FUNCT	D-APPLY,STR,FCN,FOO,RES
+	ZERO?	FCN /FALSE
+	ZERO?	FOO /?CCL6
+	CALL	FCN,FOO >RES
+	RETURN	RES
+?CCL6:	CALL	FCN >RES
+	RETURN	RES
+
+
+	.FUNCT	META-LOC,OBJ
+?PRG1:	ZERO?	OBJ /FALSE
+	IN?	OBJ,GLOBAL-OBJECTS \?CND3
+	RETURN	GLOBAL-OBJECTS
+?CND3:	IN?	OBJ,ROOMS \?CCL9
+	RETURN	OBJ
+?CCL9:	LOC	OBJ >OBJ
+	JUMP	?PRG1
+
+
+	.FUNCT	QUEUE,RTN,TICK,CINT
+	CALL2	INT,RTN >CINT
+	PUT	CINT,C-TICK,TICK
+	RETURN	CINT
+
+
+	.FUNCT	INT,RTN,DEMON,E,C,INT
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E \?CCL5
+	SUB	C-INTS,C-INTLEN >C-INTS
+	ZERO?	DEMON /?PEN6
+	SUB	C-DEMONS,C-INTLEN >C-DEMONS
+?PEN6:	ADD	C-TABLE,C-INTS >INT
+	PUT	INT,C-RTN,RTN
+	RETURN	INT
+?CCL5:	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	RETURN	C
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	CLOCKER,C,E,TICK,FLG
+	ZERO?	P-WON /?CCL3
+	PUSH	C-INTS
+	JUMP	?CND1
+?CCL3:	PUSH	C-DEMONS
+?CND1:	ADD	C-TABLE,STACK >C
+	ADD	C-TABLE,C-TABLELEN >E
+?PRG4:	EQUAL?	C,E \?CCL8
+	RETURN	FLG
+?CCL8:	GET	C,C-ENABLED?
+	ZERO?	STACK /?CND6
+	GET	C,C-TICK >TICK
+	ZERO?	TICK /?CND6
+	EQUAL?	TICK,-1 \?CCL13
+	GET	C,C-RTN
+	CALL	STACK
+	ZERO?	STACK /?CND6
+	SET	'FLG,TRUE-VALUE
+	JUMP	?CND6
+?CCL13:	SUB	TICK,C-ELAPSED >TICK
+	PUT	C,C-TICK,TICK
+	GRTR?	TICK,1 /?CND6
+	PUT	C,C-TICK,0
+	GET	C,C-RTN
+	CALL	STACK
+	ZERO?	STACK /?CND6
+	SET	'FLG,TRUE-VALUE
+?CND6:	ADD	C,C-INTLEN >C
+	JUMP	?PRG4
+
+
+	.FUNCT	REFERRING,HIM-HER
+	PRINTI	"I don't see wh"
+	ZERO?	HIM-HER /?CCL3
+	PRINTC	111
+	JUMP	?CND1
+?CCL3:	PRINTI	"at"
+?CND1:	PRINTR	" you're referring to."
+
+	.ENDI
diff --git a/misc.zil b/misc.zil
new file mode 100644
index 0000000..ceccb4e
--- /dev/null
+++ b/misc.zil
@@ -0,0 +1,561 @@
+"MISC for PLANETFALL
+(c) Copyright 1983 Infocom, Inc.  All Rights Reserved."
+
+<DEFMAC RMGL-SIZE ('TBL)
+	<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+	       <FORM - <FORM / <FORM PTSIZE .TBL> 2> 1>)
+	      (T <FORM - <FORM PTSIZE .TBL> 1>)>>
+
+<GLOBAL P-MULT <>>
+<GLOBAL P-NOT-HERE <>>
+
+"old MACROS file"
+
+<SETG C-ENABLED? 0>
+<SETG C-ENABLED 1>
+<SETG C-DISABLED 0>
+<DEFMAC VERB? ("ARGS" ATMS)
+	<MULTIFROB PRSA .ATMS>>
+
+;<DEFMAC VERB? ("TUPLE" ATMS "AUX" (O ()) (L ())) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
+				     (ELSE <FORM OR !.O>)>>)>
+		<REPEAT ()
+			<COND (<EMPTY? .ATMS> <RETURN!->)>
+			<SET ATM <NTH .ATMS 1>>
+			<SET L
+			     (<FORM GVAL <PARSE <STRING "V?" <SPNAME .ATM>>>>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O (<FORM EQUAL? ',PRSA !.L> !.O)>
+		<SET L ()>>>
+
+<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>
+				     <CHTYPE <COND (<==? .X PRSA>
+						    <PARSE
+						     <STRING "V?"
+							     <SPNAME .ATM>>>)
+						   (ELSE .ATM)> GVAL>)
+				    (ELSE .ATM)>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O <REST <PUTREST .O
+				      (<FORM EQUAL? <CHTYPE .X GVAL> !.L>)>>>
+		<SET L ()>>>
+
+<DEFMAC RFATAL ()
+	'<PROG () <PUSH 2> <RSTACK>>>
+
+<DEFMAC PROB ('BASE?)
+	 <FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>
+
+;<ROUTINE ZPROB (BASE)
+	 <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>>> 
+
+<DEFMAC ABS ('NUM)
+	<FORM COND (<FORM L? .NUM 0> <FORM - 0 .NUM>)
+	           (T .NUM)>>
+
+^L
+
+"old MAIN or VERMONT file"
+
+<GLOBAL P-WON <>>
+
+<CONSTANT M-FATAL 2>
+ 
+<CONSTANT M-HANDLED 1>   
+ 
+<CONSTANT M-NOT-HANDLED <>>   
+ 
+<CONSTANT M-BEG 1>  
+ 
+<CONSTANT M-END 6> 
+ 
+<CONSTANT M-OBJECT <>>
+
+<CONSTANT M-ENTER 2>
+ 
+<CONSTANT M-LOOK 3> 
+ 
+<CONSTANT M-FLASH 4>
+
+<CONSTANT M-OBJDESC 5>
+
+<GLOBAL WINNER <>>
+
+<GLOBAL HOST:NUMBER 0> "Host machine."
+<GLOBAL WIDTH:NUMBER 0> "Width of screen in chars."
+
+<ROUTINE GO () 
+	 <SETG HOST <LOWCORE INTID>>
+	 <SETG WIDTH <LOWCORE SCRH>>
+	 ;<PUTB ,P-LEXV 0 59>
+;"put interrupts on clock chain"
+	 <ENABLE <QUEUE I-BLATHER -1>>
+	 <ENABLE <QUEUE I-AMBASSADOR -1>>
+	 <ENABLE <QUEUE I-RANDOM-INTERRUPTS 1>>
+	 <ENABLE <QUEUE I-SLEEP-WARNINGS 3600>>
+	 <ENABLE <QUEUE I-HUNGER-WARNINGS 2000>>
+	 <ENABLE <QUEUE I-SICKNESS-WARNINGS 1000>>
+;"set up and go"
+	 <SETG SPOUT-PLACED ,GROUND>
+	 ;"following COND avoids random-before-first-read message in ZIP20"
+	 <COND (<EQUAL? <GETB 0 56> 0>
+		<SETG INTERNAL-MOVES <+ 4450 <RANDOM 180>>>)
+	       (T
+		<SETG INTERNAL-MOVES 4540>)>
+         <SETG MOVES ,INTERNAL-MOVES>
+	 <SETG LIT T>
+	 <SETG WINNER ,ADVENTURER>
+	 <CLEAR -1>
+	 <INIT-STATUS-LINE>
+	 <SETG HERE ,DECK-NINE>
+	 <UPDATE-STATUS-LINE>
+         <SETG P-IT-LOC ,DECK-NINE>
+	 <SETG P-IT-OBJECT ,POD-DOOR>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<V-VERSION>
+		<CRLF>
+		<TELL
+"Another routine day of drudgery aboard the Stellar Patrol Ship Feinstein.
+This morning's assignment for a certain lowly Ensign Seventh Class: scrubbing
+the filthy metal deck at the port end of Level Nine. With your Patrol-issue
+self-contained multi-purpose all-weather scrub brush you shine the floor with
+a diligence born of the knowledge that at any moment dreaded Ensign First
+Class Blather, the bane of your shipboard existence, could appear." CR CR>)>
+	 <V-LOOK>
+	 <MAIN-LOOP>
+	 <AGAIN>>
+
+<ROUTINE I-RANDOM-INTERRUPTS ()
+	 <ENABLE <QUEUE I-BLOWUP-FEINSTEIN <+ <RANDOM 90> 240>>>
+	 <COMM-SETUP> ;"sets up comm system and laser values"
+	 <SETG NUMBER-NEEDED <RANDOM 1000>>>
+
+<ROUTINE MAIN-LOOP ("AUX" TRASH)
+	 <REPEAT ()
+		 <SET TRASH <MAIN-LOOP-1>>>>
+
+<ROUTINE MAIN-LOOP-1 ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP)
+  <SETG C-ELAPSED ,C-ELAPSED-DEFAULT>
+  <SET CNT 0>
+  <SET OBJ <>>
+  <SET PTBL T>
+  <COND (<SETG P-WON <PARSER>>
+	 <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
+	 <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>
+	 <COND (<AND ,P-IT-OBJECT <ACCESSIBLE? ,P-IT-OBJECT>>
+		<SET TMP <>>
+		<REPEAT ()
+    	 	 <COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
+			<RETURN>)
+		       (T
+			<COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
+			       <COND (<TOO-DARK-FOR-IT?> <RTRUE>)>
+			       <PUT ,P-PRSI .CNT ,P-IT-OBJECT>
+			       <SET TMP T>
+			       <RETURN>)>)>>
+		<COND (<NOT .TMP>
+		       <SET CNT 0>
+		       <REPEAT ()
+			<COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
+			       <RETURN>)
+			      (T
+			       <COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
+				      <COND (<TOO-DARK-FOR-IT?> <RTRUE>)>
+				      <PUT ,P-PRSO .CNT ,P-IT-OBJECT>
+				      <RETURN>)>)>>)>
+		<SET CNT 0>)>
+	 <SET NUM <COND (<0? .OCNT> .OCNT)
+			(<G? .OCNT 1>
+			 <SET TBL ,P-PRSO>
+			 <COND (<0? .ICNT> <SET OBJ <>>)
+			       (T <SET OBJ <GET ,P-PRSI 1>>)>
+			 .OCNT)
+			(<G? .ICNT 1>
+			 <SET PTBL <>>
+			 <SET TBL ,P-PRSI>
+			 <SET OBJ <GET ,P-PRSO 1>>
+			 .ICNT)
+			(T 1)>>
+	 <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
+	 <COND (<==? ,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 ,TOO-DARK CR>
+		       <STOP>)
+		      (T
+		       <TELL "There isn't anything to ">
+		       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+		       <COND (<OR ,P-OFLAG ,P-MERGED>
+			      <PRINTB <GET .TMP 0>>)
+			     (T
+			      <WORD-PRINT <GETB .TMP 2>
+					  <GETB .TMP 3>>)>
+		       <TELL "!" CR>
+		       <SET V <>>
+		       <STOP>)>)
+	       (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 "There's nothing there." 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 (<OR <G? .NUM 1>
+				   <EQUAL? <GET <GET ,P-ITBL ,P-NC1> 0>
+					   ,W?ALL>>
+			       <COND (<DONT-ALL .OBJ1>
+				      <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 (<EQUAL? .V ,M-FATAL>
+		<SETG P-CONT <>>)>
+	 <COND (<AND <CLOCKER-VERB? ,PRSA>
+		     <NOT <VERB? TELL>>
+		     ,P-WON>
+		<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>)
+	(T
+	 <SETG P-CONT <>>)> 
+  <COND (<NOT <EQUAL? <GET <INT I-POD-TRIP> ,C-ENABLED?> 0>>
+	 <SETG C-ELAPSED 54>)
+        (<G? ,SHUTTLE-VELOCITY 0>
+         <SETG C-ELAPSED </ 600 ,SHUTTLE-VELOCITY>>)
+	(<OR <VERB? TELL>
+	     <NOT <CLOCKER-VERB? ,PRSA>>>
+	 <SETG C-ELAPSED 0>)>
+  <SETG INTERNAL-MOVES <+ ,INTERNAL-MOVES ,C-ELAPSED>>
+  <COND (<NOT <IN? ,CHRONOMETER ,ADVENTURER>>
+	 <SETG MOVES 0>)
+	(<FSET? ,CHRONOMETER ,MUNGEDBIT>
+	 <SETG MOVES ,MUNGED-TIME>)
+	(T
+	 <SETG MOVES ,INTERNAL-MOVES>)>
+  <COND (,P-WON
+	 <COND (<NOT <EQUAL? ,C-ELAPSED 0>>
+		<SET V <CLOCKER>>)>
+	 <SETG P-PRSA-WORD <>>
+	 <SETG PRSA <>>
+	 <SETG PRSO <>>
+	 <SETG PRSI <>>)>>
+
+<ROUTINE TOO-DARK-FOR-IT? ()
+	 <COND (<AND <NOT ,LIT>
+		     <NOT <HELD? ,P-IT-OBJECT ,WINNER>>
+		     <NOT <IN? ,WINNER ,P-IT-OBJECT>>>
+		<TELL ,TOO-DARK CR>
+		<RTRUE>)>>
+
+<ROUTINE DONT-ALL (OBJ1 "AUX" (L <LOC .OBJ1>))
+	 ;"RFALSE if OBJ1 should be included in the ALL, otherwise RTRUE"
+	 <COND (<EQUAL? .OBJ1 ,NOT-HERE-OBJECT>
+		<SETG P-NOT-HERE <+ ,P-NOT-HERE 1>>
+		<RTRUE>)
+	       (<AND <VERB? TAKE> ;"TAKE prso FROM prsi and prso isn't in prsi"
+		     ,PRSI
+		     <NOT <IN? ,PRSO ,PRSI>>>
+		<RTRUE>)
+	       (<NOT <ACCESSIBLE? .OBJ1>> ;"can't get at object"
+		<RTRUE>)
+	       (<EQUAL? ,P-GETFLAGS ,P-ALL> ;"cases for ALL"
+		<COND (<AND ,PRSI
+			    <PRSO? ,PRSI>>
+		       <RTRUE>)
+		      (<VERB? TAKE> 
+		       ;"TAKE ALL and object not accessible or takeable"
+		       <COND (<AND <NOT <FSET? .OBJ1 ,TAKEBIT>>
+				   <NOT <FSET? .OBJ1 ,TRYTAKEBIT>>>
+			      <RTRUE>)
+			     (<AND <NOT <EQUAL? .L ,WINNER ,HERE ,PRSI>>
+				   <NOT <EQUAL? .L <LOC ,WINNER>>>>
+			      <COND (<AND <FSET? .L ,SURFACEBIT>
+				     	  <NOT <FSET? .L ,TAKEBIT>>> ;"tray"
+				     <RFALSE>)
+				    (T
+				     <RTRUE>)>)
+			     (<AND <NOT ,PRSI>
+				   <HELD? ,PRSO>> ;"already have it"
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (<AND <VERB? DROP PUT PUT-ON GIVE SGIVE>
+			    ;"VERB ALL, object not held"
+			    <NOT <IN? .OBJ1 ,WINNER>>>
+		       <RTRUE>)
+		      (<AND <VERB? PUT PUT-ON> ;"PUT ALL IN X,obj already in x"
+			    <NOT <IN? ,PRSO ,WINNER>>
+			    <HELD? ,PRSO ,PRSI>>
+		       <RTRUE>)>)>>
+
+;"Name-change and reversal of RTRUE and RFALSE by arb 5/88"
+<ROUTINE CLOCKER-VERB? (VRB)
+	 <COND (<OR <EQUAL? .VRB ,V?BRIEF ,V?SUPER-BRIEF ,V?VERBOSE>
+		    <EQUAL? .VRB ,V?SAVE ,V?RESTORE ,V?SCORE>
+		    <EQUAL? .VRB ,V?SCRIPT ,V?UNSCRIPT ,V?TIME>
+		    <EQUAL? .VRB ,V?QUIT ,V?RESTART ,V?VERSION>
+		    <EQUAL? .VRB ,V?$RANDOM ,V?$RECORD ,V?$UNRECORD>
+		    <EQUAL? .VRB ,V?$COMMAND ,V?HINT ,V?HINTS-NO>>
+		<RFALSE>)
+	       (T
+		<RTRUE>)>>
+
+;<GLOBAL L-PRSA <>>
+;<GLOBAL L-PRSO <>>
+;<GLOBAL L-PRSI <>>
+
+<ROUTINE FAKE-ORPHAN ("OPTIONAL" (IT-WAS-USED <>) "AUX" TMP)
+	 <ORPHAN ,P-SYNTAX <>>
+	 <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	 <TELL "[Be specific: Wh">
+	 <COND (.IT-WAS-USED
+		<TELL "at object">)
+	       (T
+		<TELL "o">)>
+	 <TELL " do you want to ">
+	 <COND (<EQUAL? .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>)>
+	 <SETG P-OFLAG T>
+	 <SETG P-WON <>>
+	 <PREP-PRINT <GETB ,P-SYNTAX ,P-SPREP1>>
+	 <TELL "?]" CR>>
+
+<ROUTINE PERFORM-PRSA ("OPTIONAL" (O <>) (I <>))
+	 <PERFORM ,PRSA .O .I>>
+
+<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" (V <>) OA OO OI)
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<SETG PRSA .A>
+	<COND (<AND <ZERO? ,P-WALK-DIR>
+		    <NOT <EQUAL? .A ,V?WALK>>>
+	       <COND (<EQUAL? ,IT .I .O>
+	              <COND (<VISIBLE? ,P-IT-OBJECT>
+			     <COND (<EQUAL? ,IT .O>
+				    <SET O ,P-IT-OBJECT>)
+				   (T
+				    <SET I ,P-IT-OBJECT>)>)
+			    (T
+			     <COND (<NOT .I>
+				    <FAKE-ORPHAN T>)
+				   (T
+				    <REFERRING>)>
+			     <RFATAL>)>)>)>
+	<SETG PRSO .O>
+	<SETG PRSI .I>
+	<COND (<AND <NOT <EQUAL? .A ,V?WALK>>
+		    <ZERO? ,P-WALK-DIR>
+		    <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>>
+	       <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>
+	       <COND (<T? .V>
+		      <SETG P-WON <>>)>)>
+	<SET O ,PRSO>
+	<SET I ,PRSI>
+	<THIS-IS-IT ,PRSI>
+	<THIS-IS-IT ,PRSO>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY "Actor" <GETP ,WINNER ,P?ACTION>>>)>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY "M-Beg" <GETP ,HERE ,P?ACTION> ,M-BEG>>)>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY "Preaction" <GET ,PREACTIONS .A>>>)>
+	<COND (<AND <ZERO? .V>
+		    <T? .I>>
+	       <SET V <D-APPLY "PRSI" <GETP .I ,P?ACTION>>>)>
+	<COND (<AND <ZERO? .V>
+		    <T? .O>
+	            <NOT <EQUAL? .A ,V?WALK>>>
+	       <SET V <D-APPLY "PRSO" <GETP .O ,P?ACTION>>>)>
+	<COND (<ZERO? .V>
+	       <SET V <D-APPLY <> <GET ,ACTIONS .A>>>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>
+       
+<ROUTINE D-APPLY (STR FCN "OPTIONAL" (FOO <>) "AUX" RES)
+	<COND (<NOT .FCN> <>)
+	      (T
+	       ;<COND (,DEBUG
+		      <COND (<NOT .STR>
+			     <TELL "  Default ->" CR>)
+			    (T
+			     <TELL "  " .STR " -> ">)>)>
+	       <SET RES <COND (.FOO
+			       <APPLY .FCN .FOO>)
+			      (T
+			       <APPLY .FCN>)>>
+	       ;<COND (<AND ,DEBUG
+			   .STR>
+		      <COND (<EQUAL? .RES ,M-FATAL>
+			     <TELL "Fatal" CR>)
+			    (<NOT .RES>
+			     <TELL "Not handled">)
+			    (T <TELL "Handled" CR>)>)>
+	       .RES)>>
+
+<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ> <RFALSE>)
+		       (<IN? .OBJ ,GLOBAL-OBJECTS>
+			<RETURN ,GLOBAL-OBJECTS>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (ELSE
+			<SET OBJ <LOC .OBJ>>)>>>
+^L
+
+"old CLOCK file"
+
+<CONSTANT C-TABLELEN 240>
+
+<GLOBAL C-TABLE %<COND (<GASSIGNED? PREDGEN>
+			'<ITABLE NONE 120>)
+		       (T
+			'<ITABLE NONE 240>)>>
+
+<GLOBAL C-DEMONS 300>
+
+<GLOBAL C-INTS 240>
+
+<GLOBAL C-ELAPSED 7>
+
+<CONSTANT C-ELAPSED-DEFAULT 7>
+
+<CONSTANT C-INTLEN 6>
+
+<CONSTANT C-ENABLED? 0>
+
+<CONSTANT C-TICK 1>
+
+<CONSTANT C-RTN 2>
+
+;<ROUTINE DEMON (RTN TICK "AUX" CINT)
+	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE QUEUE (RTN TICK "AUX" CINT)
+	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E>
+			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
+			<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
+			<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 <>>
+
+;<GLOBAL ELAPSED-MOVES 0>
+
+<ROUTINE CLOCKER ("AUX" C E TICK (FLG <>))
+	 ;<SETG ELAPSED-MOVES <+ ,ELAPSED-MOVES 1>>
+	 ;<COND (,DEBUG-ON
+		<TELL "[Elapsed time: " N ,C-ELAPSED "]" CR>)>
+	 ;<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> <RETURN .FLG>)
+		       (<NOT <0? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<0? .TICK>)
+			      (<==? .TICK -1>
+			       <COND (<APPLY <GET .C ,C-RTN>>
+				      <SET FLG T>)>)
+			      (T
+			       <PUT .C ,C-TICK <SET TICK <- .TICK ,C-ELAPSED>>>
+			       <COND (<NOT <G? .TICK 1>>
+				      <PUT .C ,C-TICK 0>
+				      <COND (<APPLY <GET .C ,C-RTN>>
+					     <SET FLG T>)>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+;<ROUTINE NULL-F ("OPTIONAL" A1 A2)
+	<RFALSE>>
+
+<ROUTINE REFERRING ("OPTIONAL" (HIM-HER <>))
+	 <TELL "I don't see wh">
+	 <COND (.HIM-HER
+		<TELL "o">)
+	       (T
+		<TELL "at">)>
+	 <TELL " you're referring to." CR>>
+
diff --git a/parser.zabstr b/parser.zabstr
new file mode 100644
index 0000000..a31bd49
--- /dev/null
+++ b/parser.zabstr
@@ -0,0 +1,153 @@
+
+<SETG SIBREAKS ".,\""> 
+<GLOBAL PRSA 0 %<> WORD> 
+<GLOBAL PRSI 0 %<> WORD> 
+<GLOBAL PRSO 0 %<> WORD> 
+<GLOBAL P-TABLE 0 %<> WORD> 
+<GLOBAL P-ONEOBJ 0 %<> WORD> 
+<GLOBAL P-SYNTAX 0 %<> WORD> 
+<GLOBAL P-CCSRC 0 %<> WORD> 
+<GLOBAL P-LEN 0 %<> WORD> 
+<GLOBAL P-DIRECTION 0 %<> WORD> 
+<GLOBAL HERE 0 %<> WORD> 
+<MSETG P-INBUF-LENGTH 80> 
+<GLOBAL GLOBAL-VARS-TABLE!-IZILCH 0 %<> WORD> 
+<CONSTANT P-LEXV <ITABLE 39 (LEXV) 0 #BYTE *000000000000* #BYTE *000000000000*>
+> 
+<CONSTANT P-INBUF <ITABLE ,P-INBUF-LENGTH (BYTE LENGTH) 0>> 
+<GLOBAL P-CONT <> %<> WORD> 
+<GLOBAL P-IT-OBJECT <> %<> WORD> 
+<GLOBAL P-IT-LOC <> %<> WORD> 
+<GLOBAL LAST-PSEUDO-LOC <> %<> WORD> 
+<GLOBAL P-OFLAG <> %<> WORD> 
+<GLOBAL P-MERGED <> %<> WORD> 
+<GLOBAL P-ACLAUSE <> %<> WORD> 
+<GLOBAL P-ANAM <> %<> WORD> 
+<GLOBAL P-AADJ <> %<> WORD> 
+<CONSTANT P-PHRLEN 3> 
+<CONSTANT P-ORPHLEN 7> 
+<CONSTANT P-RTLEN 3> 
+<CONSTANT P-LEXWORDS 1> 
+<CONSTANT P-LEXSTART 1> 
+<CONSTANT P-LEXELEN 2> 
+<CONSTANT P-WORDLEN 4> 
+<CONSTANT P-PSOFF 6> 
+<CONSTANT P-P1OFF 7> 
+<CONSTANT P-P1BITS 3> 
+<CONSTANT P-ITBLLEN 9> 
+<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0> %<> WORD> 
+<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0> %<> WORD> 
+<GLOBAL P-VTBL <TABLE 0 0 0 0> %<> WORD> 
+<GLOBAL P-NCN 0 %<> WORD> 
+<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 P-INPUT-WORDS <> %<> WORD> 
+<GLOBAL P-END-ON-PREP <> %<> WORD> 
+<GLOBAL P-PRSA-WORD <> %<> WORD> 
+<GLOBAL QUOTE-FLAG <> %<> WORD> 
+<CONSTANT RESERVE-INBUF <ITABLE ,P-INBUF-LENGTH (BYTE LENGTH) 0>> 
+<GLOBAL AGAIN-LEXV <ITABLE 39 (LEXV) 0 <BYTE 0> <BYTE 0>> %<> WORD> 
+<GLOBAL RESERVE-LEXV <ITABLE 39 (LEXV) 0 <BYTE 0> <BYTE 0>> %<> WORD> 
+<GLOBAL AGAIN-DIR <> %<> WORD> 
+<GLOBAL RESERVE-PTR <> %<> WORD> 
+<CONSTANT OOPS-INBUF <ITABLE ,P-INBUF-LENGTH (BYTE LENGTH) 0>> 
+<GLOBAL OOPS-TABLE <TABLE <> <> <> <>> %<> WORD> 
+<CONSTANT O-PTR 0> 
+<CONSTANT O-START 1> 
+<CONSTANT O-LENGTH 2> 
+<CONSTANT O-END 3> 
+<DEFINE-ROUTINE PARSER> 
+<DEFINE-ROUTINE INBUF-STUFF> 
+<DEFINE-ROUTINE STUFF> 
+<DEFINE-ROUTINE NEXT-WORD> 
+<DEFINE-ROUTINE CHANGE-LEXV> 
+<GLOBAL P-WALK-DIR <> %<> WORD> 
+<DEFINE-ROUTINE WT?> 
+<DEFINE-ROUTINE CLAUSE> 
+<DEFINE-ROUTINE NUMBER?> 
+<GLOBAL P-NUMBER 0 %<> WORD> 
+<DEFINE-ROUTINE ORPHAN-MERGE> 
+<DEFINE-ROUTINE ACLAUSE-WIN> 
+<DEFINE-ROUTINE WORD-PRINT> 
+<DEFINE-ROUTINE INBUF-ADD> 
+<DEFINE-ROUTINE UNKNOWN-WORD> 
+<DEFINE-ROUTINE CANT-USE> 
+<GLOBAL P-SLOCBITS 0 %<> WORD> 
+<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> 
+<DEFINE-ROUTINE SYNTAX-CHECK> 
+<DEFINE-ROUTINE CANT-ORPHAN> 
+<DEFINE-ROUTINE ORPHAN> 
+<DEFINE-ROUTINE CLAUSE-PRINT> 
+<DEFINE-ROUTINE BUFFER-PRINT> 
+<DEFINE-ROUTINE CAPITALIZE> 
+<DEFINE-ROUTINE PREP-PRINT> 
+<DEFINE-ROUTINE CLAUSE-COPY> 
+<DEFINE-ROUTINE CLAUSE-ADD> 
+<DEFINE-ROUTINE PREP-FIND> 
+<DEFINE-ROUTINE SYNTAX-FOUND> 
+<GLOBAL P-GWIMBIT 0 %<> WORD> 
+<DEFINE-ROUTINE GWIM> 
+<DEFINE-ROUTINE SNARF-OBJECTS> 
+<DEFINE-ROUTINE BUT-MERGE> 
+<GLOBAL P-NAM <> %<> WORD> 
+<GLOBAL P-ADJ <> %<> WORD> 
+<GLOBAL P-PRSO <ITABLE NONE 50> %<> WORD> 
+<GLOBAL P-PRSI <ITABLE NONE 50> %<> WORD> 
+<GLOBAL P-BUTS <ITABLE NONE 50> %<> WORD> 
+<GLOBAL P-MERGE <ITABLE NONE 50> %<> WORD> 
+<GLOBAL P-OCLAUSE <ITABLE NONE 50> %<> WORD> 
+<GLOBAL P-MATCHLEN 0 %<> WORD> 
+<GLOBAL P-GETFLAGS 0 %<> WORD> 
+<CONSTANT P-ALL 1> 
+<CONSTANT P-ONE 2> 
+<CONSTANT P-INHIBIT 4> 
+<GLOBAL P-CSPTR <> %<> WORD> 
+<GLOBAL P-CEPTR <> %<> WORD> 
+<GLOBAL P-AND <> %<> WORD> 
+<DEFINE-ROUTINE SNARFEM> 
+<DEFINE-ROUTINE ADJ-CHECK> 
+<CONSTANT SH 128> 
+<CONSTANT SC 64> 
+<CONSTANT SIR 32> 
+<CONSTANT SOG 16> 
+<CONSTANT STAKE 8> 
+<CONSTANT SMANY 4> 
+<CONSTANT SHAVE 2> 
+<DEFINE-ROUTINE GET-OBJECT> 
+<DEFINE-ROUTINE MOBY-FIND> 
+<GLOBAL P-MOBY-FOUND <> %<> WORD> 
+<GLOBAL P-XNAM <> %<> WORD> 
+<GLOBAL P-XADJ <> %<> WORD> 
+<DEFINE-ROUTINE WHICH-PRINT> 
+<DEFINE-ROUTINE GLOBAL-CHECK> 
+<DEFINE-ROUTINE DO-SL> 
+<CONSTANT P-SRCBOT 2> 
+<CONSTANT P-SRCTOP 0> 
+<CONSTANT P-SRCALL 1> 
+<DEFINE-ROUTINE SEARCH-LIST> 
+<DEFINE-ROUTINE OBJ-FOUND> 
+<DEFINE-ROUTINE TAKE-CHECK> 
+<DEFINE-ROUTINE ITAKE-CHECK> 
+<DEFINE-ROUTINE HERE?> 
+<DEFINE-ROUTINE HELD?> 
+<DEFINE-ROUTINE MANY-CHECK> 
+<DEFINE-ROUTINE LIT?> 
+<DEFINE-ROUTINE PRSO-PRINT> 
+<DEFINE-ROUTINE THIS-IT?> 
\ No newline at end of file
diff --git a/parser.zap b/parser.zap
new file mode 100644
index 0000000..11cba4c
--- /dev/null
+++ b/parser.zap
@@ -0,0 +1,1535 @@
+
+
+	.FUNCT	PARSER,PTR,WRD,VAL,VERB,OMERGED,OWINNER,LEN,DIR,NW,LW,CNT,?TMP2,?TMP1
+	SET	'PTR,P-LEXSTART
+	SET	'CNT,-1
+?PRG1:	IGRTR?	'CNT,P-ITBLLEN /?REP2
+	ZERO?	P-OFLAG \?CND6
+	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+?CND6:	PUT	P-ITBL,CNT,0
+	JUMP	?PRG1
+?REP2:	SET	'OMERGED,P-MERGED
+	SET	'OWINNER,WINNER
+	SET	'P-MERGED,FALSE-VALUE
+	PUT	P-PRSO,P-MATCHLEN,0
+	PUT	P-PRSI,P-MATCHLEN,0
+	PUT	P-BUTS,P-MATCHLEN,0
+	ZERO?	QUOTE-FLAG \?CND8
+	EQUAL?	WINNER,ADVENTURER /?CND8
+	SET	'WINNER,ADVENTURER
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND12
+	LOC	WINNER >HERE
+?CND12:	CALL2	LIT?,HERE >LIT
+?CND8:	ZERO?	RESERVE-PTR /?CCL16
+	SET	'PTR,RESERVE-PTR
+	ICALL	STUFF,P-LEXV,RESERVE-LEXV
+	ICALL	INBUF-STUFF,P-INBUF,RESERVE-INBUF
+	ZERO?	SUPER-BRIEF \?CND17
+	EQUAL?	ADVENTURER,WINNER \?CND17
+	CRLF	
+?CND17:	SET	'RESERVE-PTR,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND14
+?CCL16:	ZERO?	P-CONT /?CCL22
+	SET	'PTR,P-CONT
+	EQUAL?	ADVENTURER,WINNER \?CND14
+	ZERO?	SUPER-BRIEF \?CND14
+	CRLF	
+	JUMP	?CND14
+?CCL22:	SET	'WINNER,ADVENTURER
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND27
+	LOC	WINNER >HERE
+?CND27:	CALL2	LIT?,HERE >LIT
+	ZERO?	SUPER-BRIEF \?PRG31
+	CRLF	
+?PRG31:	ICALL1	UPDATE-STATUS-LINE
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	GETB	P-LEXV,P-LEXWORDS >P-INPUT-WORDS
+?CND14:	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	ZERO?	P-LEN \?CCL35
+	PRINTI	"I beg your pardon?"
+	CRLF	
+	RFALSE	
+?CCL35:	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?OOPS,W?O \?CCL37
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA \?CND38
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND38:	GRTR?	P-LEN,1 /?CCL42
+	ICALL2	CANT-USE-THAT-WAY,STR?7
+	RFALSE	
+?CCL42:	GET	OOPS-TABLE,O-PTR
+	ZERO?	STACK /?CCL44
+	GRTR?	P-LEN,2 \?CND45
+	PRINTI	"[Warning: Only the first word after OOPS is used.]"
+	CRLF	
+?CND45:	GET	OOPS-TABLE,O-PTR >?TMP1
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	PUT	AGAIN-LEXV,?TMP1,STACK
+	SET	'WINNER,OWINNER
+	MUL	PTR,P-LEXELEN
+	ADD	STACK,6
+	GETB	P-LEXV,STACK >?TMP2
+	MUL	PTR,P-LEXELEN
+	ADD	STACK,7
+	GETB	P-LEXV,STACK >?TMP1
+	GET	OOPS-TABLE,O-PTR
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,3
+	ICALL	INBUF-ADD,?TMP2,?TMP1,STACK
+	ICALL	STUFF,P-LEXV,AGAIN-LEXV
+	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	GET	OOPS-TABLE,O-START >PTR
+	ICALL	INBUF-STUFF,P-INBUF,OOPS-INBUF
+	JUMP	?CND33
+?CCL44:	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+	PRINTI	"[There was no word to replace!]"
+	CRLF	
+	RFALSE	
+?CCL37:	ZERO?	P-CONT \?CND33
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND33:	SET	'P-CONT,FALSE-VALUE
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?AGAIN,W?G \?CCL50
+	ZERO?	P-OFLAG /?CCL53
+	ICALL2	CANT-USE-THAT-WAY,STR?8
+	RFALSE	
+?CCL53:	ZERO?	P-WON \?CCL55
+	PRINTI	"[That would just repeat a mistake!]"
+	CRLF	
+	RFALSE	
+?CCL55:	EQUAL?	OWINNER,ADVENTURER /?CCL57
+	CALL2	VISIBLE?,OWINNER
+	ZERO?	STACK \?CCL57
+	PRINTI	"[You can't see "
+	PRINTD	OWINNER
+	PRINTI	" any more.]"
+	CRLF	
+	RFALSE	
+?CCL57:	GRTR?	P-LEN,1 \?CCL61
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA,W?THEN /?CTR63
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?AND \?CCL64
+?CTR63:	ADD	PTR,4 >PTR
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,2
+	PUTB	P-LEXV,P-LEXWORDS,STACK
+	JUMP	?CND51
+?CCL64:	SET	'P-WON,FALSE-VALUE
+	PRINTI	"[That sentence isn't one I recognize.]"
+	CRLF	
+	RFALSE	
+?CCL61:	ADD	PTR,P-LEXELEN >PTR
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,1
+	PUTB	P-LEXV,P-LEXWORDS,STACK
+?CND51:	GETB	P-LEXV,P-LEXWORDS
+	GRTR?	STACK,0 \?CCL69
+	ICALL	STUFF,RESERVE-LEXV,P-LEXV
+	ICALL	INBUF-STUFF,RESERVE-INBUF,P-INBUF
+	SET	'RESERVE-PTR,PTR
+	JUMP	?CND67
+?CCL69:	SET	'RESERVE-PTR,FALSE-VALUE
+?CND67:	SET	'WINNER,OWINNER
+	SET	'P-MERGED,OMERGED
+	ICALL	INBUF-STUFF,P-INBUF,OOPS-INBUF
+	ICALL	STUFF,P-LEXV,AGAIN-LEXV
+	SET	'CNT,-1
+	SET	'DIR,AGAIN-DIR
+?PRG70:	IGRTR?	'CNT,P-ITBLLEN /?CND48
+	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG70
+?CCL50:	ICALL	STUFF,AGAIN-LEXV,P-LEXV
+	ICALL	INBUF-STUFF,OOPS-INBUF,P-INBUF
+	PUT	OOPS-TABLE,O-START,PTR
+	MUL	4,P-LEN
+	PUT	OOPS-TABLE,O-LENGTH,STACK
+	GETB	P-LEXV,P-LEXWORDS
+	MUL	P-LEXELEN,STACK
+	ADD	PTR,STACK
+	MUL	2,STACK >LEN
+	GET	OOPS-TABLE,O-END
+	ZERO?	STACK \?CND75
+	SUB	LEN,1
+	GETB	P-LEXV,STACK >?TMP1
+	SUB	LEN,2
+	GETB	P-LEXV,STACK
+	ADD	?TMP1,STACK
+	PUT	OOPS-TABLE,O-END,STACK
+?CND75:	SET	'RESERVE-PTR,FALSE-VALUE
+	SET	'LEN,P-LEN
+	SET	'P-NCN,0
+	SET	'P-GETFLAGS,0
+?PRG77:	DLESS?	'P-LEN,0 \?CCL81
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND48
+?CCL81:	GET	P-LEXV,PTR >WRD
+	ZERO?	WRD \?CTR82
+	CALL2	NUMBER?,PTR >WRD
+	ZERO?	WRD /?CCL83
+?CTR82:	CALL2	NEXT-WORD,PTR >NW
+	EQUAL?	WRD,W?TO \?CCL88
+	EQUAL?	VERB,ACT?TELL \?CCL88
+	SET	'WRD,W?QUOTE
+	JUMP	?CND86
+?CCL88:	EQUAL?	WRD,W?THEN \?CND86
+	GRTR?	P-LEN,0 \?CND86
+	ZERO?	VERB \?CND86
+	ZERO?	QUOTE-FLAG \?CND86
+	PUT	P-ITBL,P-VERB,ACT?TELL
+	PUT	P-ITBL,P-VERBN,0
+	SET	'WRD,W?QUOTE
+?CND86:	EQUAL?	WRD,W?THEN,W?PERIOD /?CTR97
+	EQUAL?	WRD,W?QUOTE \?CCL98
+?CTR97:	EQUAL?	WRD,W?QUOTE \?CND101
+	ZERO?	QUOTE-FLAG /?CCL105
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND101
+?CCL105:	SET	'QUOTE-FLAG,TRUE-VALUE
+?CND101:	ZERO?	P-LEN /?PEN106
+	ADD	PTR,P-LEXELEN >P-CONT
+?PEN106:	PUTB	P-LEXV,P-LEXWORDS,P-LEN
+	JUMP	?CND48
+?CCL98:	CALL	WT?,WRD,16,3 >VAL
+	ZERO?	VAL /?CCL109
+	EQUAL?	VERB,FALSE-VALUE,ACT?WALK \?CCL109
+	EQUAL?	LEN,1 /?CTR108
+	EQUAL?	LEN,2 \?PRD115
+	EQUAL?	VERB,ACT?WALK /?CTR108
+?PRD115:	EQUAL?	NW,W?THEN,W?PERIOD,W?QUOTE \?PRD118
+	LESS?	LEN,2 \?CTR108
+?PRD118:	ZERO?	QUOTE-FLAG /?PRD121
+	EQUAL?	LEN,2 \?PRD121
+	EQUAL?	NW,W?QUOTE /?CTR108
+?PRD121:	GRTR?	LEN,2 \?CCL109
+	EQUAL?	NW,W?COMMA,W?AND \?CCL109
+?CTR108:	SET	'DIR,VAL
+	EQUAL?	NW,W?COMMA,W?AND \?CND127
+	ADD	PTR,P-LEXELEN
+	ICALL	CHANGE-LEXV,STACK,W?THEN
+?CND127:	GRTR?	LEN,2 /?CND79
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND48
+?CCL109:	CALL	WT?,WRD,64,1 >VAL
+	ZERO?	VAL /?CCL132
+	ZERO?	VERB \?CCL132
+	SET	'P-PRSA-WORD,WRD
+	SET	'VERB,VAL
+	PUT	P-ITBL,P-VERB,VAL
+	PUT	P-ITBL,P-VERBN,P-VTBL
+	PUT	P-VTBL,0,WRD
+	MUL	PTR,2
+	ADD	STACK,2 >CNT
+	GETB	P-LEXV,CNT
+	PUTB	P-VTBL,2,STACK
+	ADD	CNT,1
+	GETB	P-LEXV,STACK
+	PUTB	P-VTBL,3,STACK
+	JUMP	?CND79
+?CCL132:	CALL	WT?,WRD,8,0 >VAL
+	ZERO?	VAL \?CTR135
+	EQUAL?	WRD,W?ALL,W?ONE,W?BOTH /?CTR135
+	CALL	WT?,WRD,32
+	ZERO?	STACK \?CTR135
+	CALL	WT?,WRD,128
+	ZERO?	STACK /?CCL136
+?CTR135:	GRTR?	P-LEN,0 \?CCL142
+	EQUAL?	NW,W?OF \?CCL142
+	ZERO?	VAL \?CCL142
+	EQUAL?	WRD,W?ALL,W?ONE,W?A /?CCL142
+	EQUAL?	WRD,W?AN,W?BOTH \?CND79
+?CCL142:	ZERO?	VAL /?CCL149
+	ZERO?	P-LEN /?CTR148
+	EQUAL?	NW,W?THEN,W?PERIOD \?CCL149
+?CTR148:	SET	'P-END-ON-PREP,TRUE-VALUE
+	LESS?	P-NCN,2 \?CND79
+	PUT	P-ITBL,P-PREP1,VAL
+	PUT	P-ITBL,P-PREP1N,WRD
+	JUMP	?CND79
+?CCL149:	EQUAL?	P-NCN,2 \?CCL157
+	PRINTI	"[There were too many nouns in that sentence.]"
+	CRLF	
+	RFALSE	
+?CCL157:	INC	'P-NCN
+	CALL	CLAUSE,PTR,VAL,WRD >PTR
+	ZERO?	PTR /FALSE
+	LESS?	PTR,0 \?CND79
+	SET	'QUOTE-FLAG,FALSE-VALUE
+?CND48:	PUT	OOPS-TABLE,O-PTR,FALSE-VALUE
+	ZERO?	DIR /?CND168
+	SET	'PRSA,V?WALK
+	SET	'PRSO,DIR
+	SET	'P-OFLAG,FALSE-VALUE
+	SET	'P-WALK-DIR,DIR
+	SET	'AGAIN-DIR,DIR
+	RTRUE	
+?CCL136:	CALL	WT?,WRD,4
+	ZERO?	STACK \?CND79
+	EQUAL?	VERB,ACT?TELL \?CCL164
+	CALL	WT?,WRD,64,1
+	ZERO?	STACK /?CCL164
+	EQUAL?	WINNER,ADVENTURER \?CCL164
+	PRINTI	"Consult your manual for how to talk to characters."
+	CRLF	
+	RFALSE	
+?CCL164:	ICALL2	CANT-USE,PTR
+	RFALSE	
+?CCL83:	ICALL2	UNKNOWN-WORD,PTR
+	RFALSE	
+?CND79:	SET	'LW,WRD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG77
+?CND168:	SET	'P-WALK-DIR,FALSE-VALUE
+	SET	'AGAIN-DIR,FALSE-VALUE
+	ZERO?	P-OFLAG /?CND170
+	ICALL1	ORPHAN-MERGE
+?CND170:	CALL1	SYNTAX-CHECK
+	ZERO?	STACK /FALSE
+	CALL1	SNARF-OBJECTS
+	ZERO?	STACK /FALSE
+	CALL1	MANY-CHECK
+	ZERO?	STACK /FALSE
+	CALL1	TAKE-CHECK
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	INBUF-STUFF,DEST,SRC,CNT
+	SET	'CNT,-1
+?PRG1:	IGRTR?	'CNT,80 /TRUE
+	GETB	SRC,CNT
+	PUTB	DEST,CNT,STACK
+	JUMP	?PRG1
+
+
+	.FUNCT	STUFF,DEST,SRC,MAX,PTR,CTR,BPTR
+	ASSIGNED?	'MAX /?CND1
+	SET	'MAX,39
+?CND1:	SET	'PTR,P-LEXSTART
+	SET	'CTR,1
+	GETB	SRC,0
+	PUTB	DEST,0,STACK
+	GETB	SRC,1
+	PUTB	DEST,1,STACK
+?PRG3:	GET	SRC,PTR
+	PUT	DEST,PTR,STACK
+	MUL	PTR,2
+	ADD	STACK,2 >BPTR
+	GETB	SRC,BPTR
+	PUTB	DEST,BPTR,STACK
+	MUL	PTR,2
+	ADD	STACK,3 >BPTR
+	GETB	SRC,BPTR
+	PUTB	DEST,BPTR,STACK
+	ADD	PTR,P-LEXELEN >PTR
+	IGRTR?	'CTR,MAX \?PRG3
+	RTRUE	
+
+
+	.FUNCT	NEXT-WORD,PTR,NW
+	ZERO?	P-LEN /FALSE
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+	ZERO?	NW /?CCL6
+	RETURN	NW
+?CCL6:	ADD	PTR,P-LEXELEN
+	CALL2	NUMBER?,STACK
+	RSTACK	
+
+
+	.FUNCT	CHANGE-LEXV,PTR,WRD,PTRS?,X,Y,Z
+	ZERO?	PTRS? /?CND1
+	SUB	PTR,P-LEXELEN
+	MUL	2,STACK
+	ADD	2,STACK >X
+	GETB	P-LEXV,X >Y
+	MUL	2,PTR
+	ADD	2,STACK >Z
+	PUTB	P-LEXV,Z,Y
+	PUTB	AGAIN-LEXV,Z,Y
+	ADD	1,X
+	GETB	P-LEXV,STACK >Y
+	MUL	2,PTR
+	ADD	3,STACK >Z
+	PUTB	P-LEXV,Z,Y
+	PUTB	AGAIN-LEXV,Z,Y
+?CND1:	PUT	P-LEXV,PTR,WRD
+	PUT	AGAIN-LEXV,PTR,WRD
+	RTRUE	
+
+
+	.FUNCT	WT?,PTR,BIT,B1,OFFST,TYP
+	ASSIGNED?	'B1 /?CND1
+	SET	'B1,5
+?CND1:	SET	'OFFST,P-P1OFF
+	GETB	PTR,P-PSOFF >TYP
+	BTST	TYP,BIT \FALSE
+	GRTR?	B1,4 /TRUE
+	BAND	TYP,P-P1BITS >TYP
+	EQUAL?	TYP,B1 /?CND9
+	INC	'OFFST
+?CND9:	GETB	PTR,OFFST
+	RSTACK	
+
+
+	.FUNCT	CLAUSE,PTR,VAL,WORD,OFF,NUM,ANDFLG,FIRST??,NW,LW,?TMP1
+	SET	'FIRST??,TRUE-VALUE
+	SUB	P-NCN,1
+	MUL	STACK,2 >OFF
+	ZERO?	VAL /?CCL3
+	ADD	P-PREP1,OFF >NUM
+	PUT	P-ITBL,NUM,VAL
+	ADD	NUM,1
+	PUT	P-ITBL,STACK,WORD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND1
+?CCL3:	INC	'P-LEN
+?CND1:	ZERO?	P-LEN \?CND4
+	DEC	'P-NCN
+	RETURN	-1
+?CND4:	ADD	P-NC1,OFF >NUM
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,NUM,STACK
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?THE,W?A,W?AN \?PRG8
+	GET	P-ITBL,NUM
+	ADD	STACK,4
+	PUT	P-ITBL,NUM,STACK
+?PRG8:	DLESS?	'P-LEN,0 \?CND10
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	-1
+?CND10:	GET	P-LEXV,PTR >WORD
+	ZERO?	WORD \?CTR13
+	CALL2	NUMBER?,PTR >WORD
+	ZERO?	WORD /?CCL14
+?CTR13:	ZERO?	P-LEN \?CCL19
+	SET	'NW,0
+	JUMP	?CND17
+?CCL19:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+?CND17:	EQUAL?	WORD,W?AND,W?COMMA \?CCL22
+	SET	'ANDFLG,TRUE-VALUE
+	JUMP	?CND12
+?CCL22:	EQUAL?	WORD,W?ALL,W?BOTH,W?ONE \?CCL24
+	EQUAL?	NW,W?OF \?CND12
+	DEC	'P-LEN
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND12
+?CCL24:	EQUAL?	WORD,W?THEN,W?PERIOD /?CTR27
+	CALL	WT?,WORD,8
+	ZERO?	STACK /?CCL28
+	ZERO?	FIRST?? \?CCL28
+?CTR27:	INC	'P-LEN
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	SUB	PTR,P-LEXELEN
+	RSTACK	
+?CCL28:	CALL	WT?,WORD,128
+	ZERO?	STACK /?CCL34
+	GRTR?	P-LEN,0 \?CCL37
+	EQUAL?	NW,W?OF \?CCL37
+	EQUAL?	WORD,W?ALL,W?ONE \?CND12
+?CCL37:	CALL	WT?,WORD,32
+	ZERO?	STACK /?CCL41
+	ZERO?	NW /?CCL41
+	CALL	WT?,NW,128
+	ZERO?	STACK \?CND12
+?CCL41:	ZERO?	ANDFLG \?CCL46
+	EQUAL?	NW,W?BUT,W?EXCEPT /?CCL46
+	EQUAL?	NW,W?AND,W?COMMA /?CCL46
+	ADD	NUM,1 >?TMP1
+	ADD	PTR,2
+	MUL	STACK,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	PTR
+?CCL46:	SET	'ANDFLG,FALSE-VALUE
+	JUMP	?CND12
+?CCL34:	ZERO?	P-OFLAG \?PRD52
+	ZERO?	P-MERGED \?PRD52
+	GET	P-ITBL,P-VERB
+	ZERO?	STACK /?CCL50
+?PRD52:	CALL	WT?,WORD,32
+	ZERO?	STACK \?CND12
+	CALL	WT?,WORD,4
+	ZERO?	STACK \?CND12
+?CCL50:	ZERO?	ANDFLG /?CCL59
+	CALL	WT?,WORD,16
+	ZERO?	STACK \?CTR58
+	CALL	WT?,WORD,64
+	ZERO?	STACK /?CCL59
+?CTR58:	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	PUT	P-LEXV,STACK,W?THEN
+	ADD	P-LEN,2 >P-LEN
+?CND12:	SET	'LW,WORD
+	SET	'FIRST??,FALSE-VALUE
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG8
+?CCL59:	CALL	WT?,WORD,8
+	ZERO?	STACK \?CND12
+	ICALL2	CANT-USE,PTR
+	RFALSE	
+?CCL14:	ICALL2	UNKNOWN-WORD,PTR
+	RFALSE	
+
+
+	.FUNCT	NUMBER?,PTR,CNT,BPTR,CHR,SUM,TIM,?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	GETB	STACK,2 >CNT
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	GETB	STACK,3 >BPTR
+?PRG1:	DLESS?	'CNT,0 /?REP2
+	GETB	P-INBUF,BPTR >CHR
+	GRTR?	SUM,10000 /FALSE
+	LESS?	CHR,58 \FALSE
+	GRTR?	CHR,47 \FALSE
+	MUL	SUM,10 >?TMP1
+	SUB	CHR,48
+	ADD	?TMP1,STACK >SUM
+	INC	'BPTR
+	JUMP	?PRG1
+?REP2:	PUT	P-LEXV,PTR,W?INTNUM
+	GRTR?	SUM,10000 /FALSE
+	SET	'P-NUMBER,SUM
+	RETURN	W?INTNUM
+
+
+	.FUNCT	ORPHAN-MERGE,CNT,TEMP,VERB,BEG,END,ADJ,WRD,?TMP1
+	SET	'CNT,-1
+	SET	'P-OFLAG,FALSE-VALUE
+	GET	P-ITBL,P-VERBN
+	GET	STACK,0 >WRD
+	CALL	WT?,WRD,32
+	ZERO?	STACK /?CCL3
+	SET	'ADJ,TRUE-VALUE
+	JUMP	?CND1
+?CCL3:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CND1
+	ZERO?	P-NCN \?CND1
+	PUT	P-ITBL,P-VERB,0
+	PUT	P-ITBL,P-VERBN,0
+	PUT	P-ITBL,P-NC1,T?P-LEXV+2
+	PUT	P-ITBL,P-NC1L,T?P-LEXV+6
+	SET	'P-NCN,1
+?CND1:	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB /?CCL9
+	ZERO?	ADJ \?CCL9
+	GET	P-OTBL,P-VERB
+	EQUAL?	VERB,STACK \FALSE
+?CCL9:	EQUAL?	P-NCN,2 /FALSE
+	GET	P-OTBL,P-NC1
+	EQUAL?	STACK,1 \?CCL16
+	GET	P-ITBL,P-PREP1 >TEMP
+	GET	P-OTBL,P-PREP1
+	EQUAL?	TEMP,STACK /?CTR18
+	ZERO?	TEMP \FALSE
+?CTR18:	ZERO?	ADJ /?CCL24
+	PUT	P-OTBL,P-NC1,T?P-LEXV+2
+	PUT	P-OTBL,P-NC1L,T?P-LEXV+6
+	JUMP	?PRG64
+?CCL24:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC1L,STACK
+	JUMP	?PRG64
+?CCL16:	GET	P-OTBL,P-NC2
+	EQUAL?	STACK,1 \?CCL26
+	GET	P-ITBL,P-PREP1 >TEMP
+	GET	P-OTBL,P-PREP2
+	EQUAL?	TEMP,STACK /?CTR28
+	ZERO?	TEMP \FALSE
+?CTR28:	ZERO?	ADJ /?CND32
+	PUT	P-ITBL,P-NC1,T?P-LEXV+2
+	PUT	P-ITBL,P-NC1L,T?P-LEXV+6
+?CND32:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC2,STACK
+	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC2L,STACK
+	SET	'P-NCN,2
+	JUMP	?PRG64
+?CCL26:	ZERO?	P-ACLAUSE /?PRG64
+	EQUAL?	P-NCN,1 /?CCL37
+	ZERO?	ADJ \?CCL37
+	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL37:	GET	P-ITBL,P-NC1 >BEG
+	ZERO?	ADJ /?CND40
+	SET	'BEG,T?P-LEXV+2
+	SET	'ADJ,FALSE-VALUE
+?CND40:	GET	P-ITBL,P-NC1L >END
+?PRG42:	GET	BEG,0 >WRD
+	EQUAL?	BEG,END \?CCL46
+	ZERO?	ADJ /?CCL49
+	ICALL2	ACLAUSE-WIN,ADJ
+	JUMP	?PRG64
+?CCL49:	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL46:	ZERO?	ADJ \?CCL51
+	GETB	WRD,P-PSOFF
+	BTST	STACK,32 /?CTR50
+	EQUAL?	WRD,W?ALL,W?ONE \?CCL51
+?CTR50:	SET	'ADJ,WRD
+?CND44:	ADD	BEG,P-WORDLEN >BEG
+	ZERO?	END \?PRG42
+	SET	'END,BEG
+	SET	'P-NCN,1
+	SUB	BEG,4
+	PUT	P-ITBL,P-NC1,STACK
+	PUT	P-ITBL,P-NC1L,BEG
+	JUMP	?PRG42
+?CCL51:	GETB	WRD,P-PSOFF
+	BTST	STACK,128 /?CCL56
+	EQUAL?	WRD,W?ONE \?CND44
+?CCL56:	EQUAL?	WRD,P-ANAM,W?ONE \FALSE
+	ICALL2	ACLAUSE-WIN,ADJ
+?PRG64:	IGRTR?	'CNT,P-ITBLLEN \?CCL68
+	SET	'P-MERGED,TRUE-VALUE
+	RTRUE	
+?CCL68:	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG64
+
+
+	.FUNCT	ACLAUSE-WIN,ADJ
+	GET	P-OTBL,P-VERB
+	PUT	P-ITBL,P-VERB,STACK
+	SET	'P-CCSRC,P-OTBL
+	ADD	P-ACLAUSE,1
+	ICALL	CLAUSE-COPY,P-ACLAUSE,STACK,ADJ
+	GET	P-OTBL,P-NC2
+	ZERO?	STACK /?PEN1
+	SET	'P-NCN,2
+?PEN1:	SET	'P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	WORD-PRINT,CNT,BUF
+?PRG1:	DLESS?	'CNT,0 /TRUE
+	GETB	P-INBUF,BUF
+	PRINTC	STACK
+	INC	'BUF
+	JUMP	?PRG1
+
+
+	.FUNCT	INBUF-ADD,LEN,BEG,SLOT,DBEG,CTR,TMP,?TMP1
+	GET	OOPS-TABLE,O-END >TMP
+	ZERO?	TMP /?CCL3
+	SET	'DBEG,TMP
+	JUMP	?CND1
+?CCL3:	GET	OOPS-TABLE,O-LENGTH >TMP
+	GETB	AGAIN-LEXV,TMP >?TMP1
+	ADD	TMP,1
+	GETB	AGAIN-LEXV,STACK
+	ADD	?TMP1,STACK >DBEG
+?CND1:	ADD	DBEG,LEN
+	PUT	OOPS-TABLE,O-END,STACK
+?PRG4:	ADD	DBEG,CTR >?TMP1
+	ADD	BEG,CTR
+	GETB	P-INBUF,STACK
+	PUTB	OOPS-INBUF,?TMP1,STACK
+	INC	'CTR
+	EQUAL?	CTR,LEN \?PRG4
+	PUTB	AGAIN-LEXV,SLOT,DBEG
+	SUB	SLOT,1
+	PUTB	AGAIN-LEXV,STACK,LEN
+	RTRUE	
+
+
+	.FUNCT	UNKNOWN-WORD,PTR,BUF,?TMP1
+	PUT	OOPS-TABLE,O-PTR,PTR
+	PRINTI	"[I don't know the word """
+	MUL	PTR,2 >BUF
+	ADD	P-LEXV,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	P-LEXV,BUF
+	GETB	STACK,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PRINTI	".""]"
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+
+	.FUNCT	CANT-USE,PTR,BUF,?TMP1
+	PRINTI	"I can't use the word """
+	MUL	PTR,2 >BUF
+	ADD	P-LEXV,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	P-LEXV,BUF
+	GETB	STACK,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PRINTI	""" here."
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+
+	.FUNCT	SYNTAX-CHECK,SYN,LEN,NUM,OBJ,DRIVE1,DRIVE2,PREP,VERB,TMP,?TMP2,?TMP1
+	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB \?CND1
+	PRINTI	"I can't find a verb in that sentence!"
+	CRLF	
+	RFALSE	
+?CND1:	SUB	255,VERB
+	GET	VERBS,STACK >SYN
+	GETB	SYN,0 >LEN
+	INC	'SYN
+?PRG3:	GETB	SYN,P-SBITS
+	BAND	STACK,P-SONUMS >NUM
+	GRTR?	P-NCN,NUM /?CND5
+	LESS?	NUM,1 /?CCL9
+	ZERO?	P-NCN \?CCL9
+	GET	P-ITBL,P-PREP1 >PREP
+	ZERO?	PREP /?CTR8
+	GETB	SYN,P-SPREP1
+	EQUAL?	PREP,STACK \?CCL9
+?CTR8:	SET	'DRIVE1,SYN
+	JUMP	?CND5
+?CCL9:	GETB	SYN,P-SPREP1 >?TMP1
+	GET	P-ITBL,P-PREP1
+	EQUAL?	?TMP1,STACK \?CND5
+	EQUAL?	NUM,2 \?CCL18
+	EQUAL?	P-NCN,1 \?CCL18
+	SET	'DRIVE2,SYN
+?CND5:	DLESS?	'LEN,1 \?CCL24
+	ZERO?	DRIVE1 \?REP4
+	ZERO?	DRIVE2 \?REP4
+	PRINTI	"I don't understand that sentence."
+	CRLF	
+	RFALSE	
+?CCL18:	GETB	SYN,P-SPREP2 >?TMP1
+	GET	P-ITBL,P-PREP2
+	EQUAL?	?TMP1,STACK \?CND5
+	ICALL2	SYNTAX-FOUND,SYN
+	RTRUE	
+?CCL24:	ADD	SYN,P-SYNLEN >SYN
+	JUMP	?PRG3
+?REP4:	ZERO?	DRIVE1 /?CCL32
+	GETB	DRIVE1,P-SFWIM1 >?TMP2
+	GETB	DRIVE1,P-SLOC1 >?TMP1
+	GETB	DRIVE1,P-SPREP1
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL32
+	PUT	P-PRSO,P-MATCHLEN,1
+	PUT	P-PRSO,1,OBJ
+	CALL2	SYNTAX-FOUND,DRIVE1
+	RSTACK	
+?CCL32:	ZERO?	DRIVE2 /?CCL36
+	GETB	DRIVE2,P-SFWIM2 >?TMP2
+	GETB	DRIVE2,P-SLOC2 >?TMP1
+	GETB	DRIVE2,P-SPREP2
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL36
+	PUT	P-PRSI,P-MATCHLEN,1
+	PUT	P-PRSI,1,OBJ
+	CALL2	SYNTAX-FOUND,DRIVE2
+	RSTACK	
+?CCL36:	EQUAL?	VERB,ACT?FIND \?CCL40
+	PRINTI	"I can't answer that question."
+	CRLF	
+	RFALSE	
+?CCL40:	EQUAL?	WINNER,ADVENTURER /?CCL42
+	CALL1	CANT-ORPHAN
+	RSTACK	
+?CCL42:	ICALL	ORPHAN,DRIVE1,DRIVE2
+	PRINTI	"What do you want to "
+	GET	P-OTBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL45
+	PRINTI	"tell"
+	JUMP	?CND43
+?CCL45:	GETB	P-VTBL,2
+	ZERO?	STACK \?CCL47
+	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND43
+?CCL47:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PUTB	P-VTBL,2,0
+?CND43:	ZERO?	DRIVE2 /?CND48
+	ICALL	CLAUSE-PRINT,P-NC1,P-NC1L
+?CND48:	SET	'P-OFLAG,TRUE-VALUE
+	ZERO?	DRIVE1 /?CCL52
+	GETB	DRIVE1,P-SPREP1
+	JUMP	?CND50
+?CCL52:	GETB	DRIVE2,P-SPREP2
+?CND50:	ICALL2	PREP-PRINT,STACK
+	PRINTC	63
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	CANT-ORPHAN
+	PRINTI	"""I don't understand! What are you referring to?"""
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	ORPHAN,D1,D2,CNT
+	SET	'CNT,-1
+	PUT	P-OCLAUSE,P-MATCHLEN,0
+	SET	'P-CCSRC,P-ITBL
+?PRG1:	IGRTR?	'CNT,P-ITBLLEN /?REP2
+	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+	JUMP	?PRG1
+?REP2:	EQUAL?	P-NCN,2 \?CND6
+	ICALL	CLAUSE-COPY,P-NC2,P-NC2L
+?CND6:	LESS?	P-NCN,1 /?CND8
+	ICALL	CLAUSE-COPY,P-NC1,P-NC1L
+?CND8:	ZERO?	D1 /?CCL12
+	GETB	D1,P-SPREP1
+	PUT	P-OTBL,P-PREP1,STACK
+	PUT	P-OTBL,P-NC1,1
+	RTRUE	
+?CCL12:	ZERO?	D2 /FALSE
+	GETB	D2,P-SPREP2
+	PUT	P-OTBL,P-PREP2,STACK
+	PUT	P-OTBL,P-NC2,1
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-PRINT,BPTR,EPTR,THE?,?TMP1
+	ASSIGNED?	'THE? /?CND1
+	SET	'THE?,TRUE-VALUE
+?CND1:	GET	P-ITBL,BPTR >?TMP1
+	GET	P-ITBL,EPTR
+	CALL	BUFFER-PRINT,?TMP1,STACK,THE?
+	RSTACK	
+
+
+	.FUNCT	BUFFER-PRINT,BEG,END,CP,NOSP,WRD,FIRST??,PN,?TMP1
+	SET	'FIRST??,TRUE-VALUE
+?PRG1:	EQUAL?	BEG,END /TRUE
+	ZERO?	NOSP /?CCL8
+	SET	'NOSP,FALSE-VALUE
+	JUMP	?CND6
+?CCL8:	PRINTC	32
+?CND6:	GET	BEG,0 >WRD
+	EQUAL?	WRD,W?PERIOD \?CCL11
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND3
+?CCL11:	EQUAL?	WRD,W?FLOYD,W?BLATHER \?CCL13
+	ICALL2	CAPITALIZE,BEG
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?CCL13:	ZERO?	FIRST?? /?CND14
+	ZERO?	PN \?CND14
+	ZERO?	CP /?CND14
+	PRINTI	"the "
+?CND14:	ZERO?	P-OFLAG /?CCL21
+	PRINTB	WRD
+	JUMP	?CND19
+?CCL21:	EQUAL?	WRD,W?IT \?CCL23
+	EQUAL?	P-IT-LOC,HERE \?CCL23
+	PRINTD	P-IT-OBJECT
+	JUMP	?CND19
+?CCL23:	GETB	BEG,2 >?TMP1
+	GETB	BEG,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+?CND19:	SET	'FIRST??,FALSE-VALUE
+?CND3:	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	CAPITALIZE,PTR,?TMP1
+	GETB	PTR,3
+	GETB	P-INBUF,STACK
+	SUB	STACK,32
+	PRINTC	STACK
+	GETB	PTR,2
+	SUB	STACK,1 >?TMP1
+	GETB	PTR,3
+	ADD	STACK,1
+	CALL	WORD-PRINT,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	PREP-PRINT,PREP,WRD
+	ZERO?	PREP /FALSE
+	PRINTC	32
+	CALL2	PREP-FIND,PREP >WRD
+	PRINTB	WRD
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-COPY,BPTR,EPTR,INSRT,BEG,END
+	GET	P-CCSRC,BPTR >BEG
+	GET	P-CCSRC,EPTR >END
+	GET	P-OCLAUSE,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	P-OCLAUSE,STACK
+	PUT	P-OTBL,BPTR,STACK
+?PRG1:	EQUAL?	BEG,END \?CCL5
+	GET	P-OCLAUSE,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	P-OCLAUSE,STACK
+	PUT	P-OTBL,EPTR,STACK
+	RTRUE	
+?CCL5:	ZERO?	INSRT /?CND6
+	GET	BEG,0
+	EQUAL?	P-ANAM,STACK \?CND6
+	ICALL2	CLAUSE-ADD,INSRT
+?CND6:	GET	BEG,0
+	ICALL2	CLAUSE-ADD,STACK
+	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	CLAUSE-ADD,WRD,PTR
+	GET	P-OCLAUSE,P-MATCHLEN
+	ADD	STACK,2 >PTR
+	SUB	PTR,1
+	PUT	P-OCLAUSE,STACK,WRD
+	PUT	P-OCLAUSE,PTR,0
+	PUT	P-OCLAUSE,P-MATCHLEN,PTR
+	RTRUE	
+
+
+	.FUNCT	PREP-FIND,PREP,CNT,SIZE
+	GET	PREPOSITIONS,0
+	MUL	STACK,2 >SIZE
+?PRG1:	IGRTR?	'CNT,SIZE /FALSE
+	GET	PREPOSITIONS,CNT
+	EQUAL?	STACK,PREP \?PRG1
+	SUB	CNT,1
+	GET	PREPOSITIONS,STACK
+	RSTACK	
+
+
+	.FUNCT	SYNTAX-FOUND,SYN
+	SET	'P-SYNTAX,SYN
+	GETB	SYN,P-SACTION >PRSA
+	RETURN	PRSA
+
+
+	.FUNCT	GWIM,GBIT,LBIT,PREP,OBJ
+	EQUAL?	GBIT,RMUNGBIT \?CND1
+	RETURN	ROOMS
+?CND1:	SET	'P-GWIMBIT,GBIT
+	SET	'P-SLOCBITS,LBIT
+	PUT	P-MERGE,P-MATCHLEN,0
+	CALL	GET-OBJECT,P-MERGE,FALSE-VALUE
+	ZERO?	STACK /?CCL5
+	SET	'P-GWIMBIT,0
+	GET	P-MERGE,P-MATCHLEN
+	EQUAL?	STACK,1 \FALSE
+	GET	P-MERGE,1 >OBJ
+	FSET?	OBJ,VEHBIT \?CND9
+	EQUAL?	PREP,PR?DOWN \?CND9
+	SET	'PREP,PR?ON
+?CND9:	PRINTC	40
+	ZERO?	PREP /?CND13
+	CALL2	PREP-FIND,PREP
+	PRINTB	STACK
+	PRINTI	" the "
+?CND13:	PRINTD	OBJ
+	PRINTC	41
+	CRLF	
+	RETURN	OBJ
+?CCL5:	SET	'P-GWIMBIT,0
+	RFALSE	
+
+
+	.FUNCT	SNARF-OBJECTS,PTR
+	GET	P-ITBL,P-NC1 >PTR
+	ZERO?	PTR /?CND1
+	GETB	P-SYNTAX,P-SLOC1 >P-SLOCBITS
+	GET	P-ITBL,P-NC1L
+	CALL	SNARFEM,PTR,STACK,P-PRSO
+	ZERO?	STACK /FALSE
+	GET	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /?CND1
+	CALL2	BUT-MERGE,P-PRSO >P-PRSO
+?CND1:	GET	P-ITBL,P-NC2 >PTR
+	ZERO?	PTR /TRUE
+	GETB	P-SYNTAX,P-SLOC2 >P-SLOCBITS
+	GET	P-ITBL,P-NC2L
+	CALL	SNARFEM,PTR,STACK,P-PRSI
+	ZERO?	STACK /FALSE
+	GET	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /TRUE
+	GET	P-PRSI,P-MATCHLEN
+	EQUAL?	STACK,1 \?CCL15
+	CALL2	BUT-MERGE,P-PRSO >P-PRSO
+	RTRUE	
+?CCL15:	CALL2	BUT-MERGE,P-PRSI >P-PRSI
+	RTRUE	
+
+
+	.FUNCT	BUT-MERGE,TBL,LEN,BUTLEN,CNT,MATCHES,OBJ,NTBL,?TMP1,?TMP2
+	SET	'CNT,1
+	GET	TBL,P-MATCHLEN >LEN
+	PUT	P-MERGE,P-MATCHLEN,0
+?PRG1:	DLESS?	'LEN,0 /?REP2
+	GET	TBL,CNT >OBJ
+	ADD	P-BUTS,2 >?TMP1
+	GET	P-BUTS,0
+	INTBL?	OBJ,?TMP1,STACK /?CND3
+	ADD	MATCHES,1
+	PUT	P-MERGE,STACK,OBJ
+	INC	'MATCHES
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	PUT	P-MERGE,P-MATCHLEN,MATCHES
+	SET	'NTBL,P-MERGE
+	SET	'P-MERGE,TBL
+	RETURN	NTBL
+
+
+	.FUNCT	SNARFEM,PTR,EPTR,TBL,BUT,LEN,WV,WORD,NW
+	SET	'P-AND,FALSE-VALUE
+	SET	'P-GETFLAGS,0
+	SET	'P-CSPTR,PTR
+	SET	'P-CEPTR,EPTR
+	PUT	P-BUTS,P-MATCHLEN,0
+	PUT	TBL,P-MATCHLEN,0
+	GET	PTR,0 >WORD
+?PRG1:	EQUAL?	PTR,EPTR \?CCL5
+	ZERO?	BUT /?PRD8
+	PUSH	BUT
+	JUMP	?PEN6
+?PRD8:	PUSH	TBL
+?PEN6:	CALL2	GET-OBJECT,STACK
+	RSTACK	
+?CCL5:	GET	PTR,P-LEXELEN >NW
+	EQUAL?	WORD,W?ALL,W?BOTH \?CCL11
+	SET	'P-GETFLAGS,P-ALL
+	EQUAL?	NW,W?OF \?CND3
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND3
+?CCL11:	EQUAL?	WORD,W?BUT,W?EXCEPT \?CCL15
+	ZERO?	BUT /?PRD20
+	PUSH	BUT
+	JUMP	?PEN18
+?PRD20:	PUSH	TBL
+?PEN18:	CALL2	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	SET	'BUT,P-BUTS
+	PUT	BUT,P-MATCHLEN,0
+	JUMP	?CND3
+?CCL15:	EQUAL?	WORD,W?A,W?AN,W?ONE \?CCL22
+	ZERO?	P-ADJ \?CCL25
+	SET	'P-GETFLAGS,P-ONE
+	EQUAL?	NW,W?OF \?CND3
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND3
+?CCL25:	SET	'P-NAM,P-ONEOBJ
+	ZERO?	BUT /?PRD32
+	PUSH	BUT
+	JUMP	?PEN30
+?PRD32:	PUSH	TBL
+?PEN30:	CALL2	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	ZERO?	NW \?CND3
+	RTRUE	
+?CCL22:	EQUAL?	WORD,W?AND,W?COMMA \?CCL36
+	EQUAL?	NW,W?AND,W?COMMA /?CCL36
+	SET	'P-AND,TRUE-VALUE
+	ZERO?	BUT /?PRD43
+	PUSH	BUT
+	JUMP	?PEN41
+?PRD43:	PUSH	TBL
+?PEN41:	CALL2	GET-OBJECT,STACK
+	ZERO?	STACK \?CND3
+	RFALSE	
+?CCL36:	CALL	WT?,WORD,8
+	ZERO?	STACK /?CCL45
+	EQUAL?	PTR,P-CSPTR \?CCL45
+	ADD	P-CSPTR,P-WORDLEN >P-CSPTR
+	JUMP	?CND3
+?CCL45:	CALL	WT?,WORD,4
+	ZERO?	STACK \?CND3
+	EQUAL?	WORD,W?AND,W?COMMA /?CND3
+	EQUAL?	WORD,W?OF \?CCL51
+	ZERO?	P-GETFLAGS \?CND3
+	SET	'P-GETFLAGS,P-INHIBIT
+	JUMP	?CND3
+?CCL51:	CALL	WT?,WORD,32
+	ZERO?	STACK /?CCL55
+	CALL	ADJ-CHECK,WORD,P-ADJ
+	ZERO?	STACK /?CCL55
+	EQUAL?	NW,W?OF /?CCL55
+	SET	'P-ADJ,WORD
+	JUMP	?CND3
+?CCL55:	CALL	WT?,WORD,128
+	ZERO?	STACK /?CND3
+	SET	'P-NAM,WORD
+	SET	'P-ONEOBJ,WORD
+?CND3:	EQUAL?	PTR,EPTR /?PRG1
+	ADD	PTR,P-WORDLEN >PTR
+	SET	'WORD,NW
+	JUMP	?PRG1
+
+
+	.FUNCT	ADJ-CHECK,WRD,ADJ
+	ZERO?	ADJ /TRUE
+	EQUAL?	ADJ,W?FIRST,W?SECOND,W?THIRD /FALSE
+	EQUAL?	ADJ,W?FOURTH,W?OLD,W?NEW /FALSE
+	EQUAL?	ADJ,W?SEND,W?RECEIVE,W?KITCHEN /FALSE
+	EQUAL?	ADJ,W?UPPER,W?LOWER,W?SHUTTLE /FALSE
+	EQUAL?	ADJ,W?ELEVATOR,W?TELEPORTATION /FALSE
+	EQUAL?	ADJ,W?SQUARE,W?ROUND,W?GOOD /FALSE
+	EQUAL?	ADJ,W?SHINY,W?CRACKED,W?FRIED /FALSE
+	EQUAL?	ADJ,W?TELEPORT,W?MINI,W?MINIATURIZATION /FALSE
+	RTRUE	
+
+
+	.FUNCT	GET-OBJECT,TBL,VRB,BITS,LEN,XBITS,TLEN,GCHECK,OLEN,OBJ
+	ASSIGNED?	'VRB /?CND1
+	SET	'VRB,TRUE-VALUE
+?CND1:	SET	'XBITS,P-SLOCBITS
+	GET	TBL,P-MATCHLEN >TLEN
+	BTST	P-GETFLAGS,P-INHIBIT /TRUE
+	ZERO?	P-NAM \?CND5
+	ZERO?	P-ADJ /?CND5
+	CALL	WT?,P-ADJ,128
+	ZERO?	STACK /?CCL11
+	SET	'P-NAM,P-ADJ
+	SET	'P-ADJ,FALSE-VALUE
+	JUMP	?CND5
+?CCL11:	CALL	WT?,P-ADJ,16,3 >BITS
+	ZERO?	BITS /?CND5
+	SET	'P-DIRECTION,BITS
+?CND5:	ZERO?	P-NAM \?CND13
+	ZERO?	P-ADJ \?CND13
+	EQUAL?	P-GETFLAGS,P-ALL /?CND13
+	ZERO?	P-GWIMBIT \?CND13
+	ZERO?	VRB /FALSE
+	PRINTI	"I couldn't find a noun in that sentence!"
+	CRLF	
+	RFALSE	
+?CND13:	EQUAL?	P-GETFLAGS,P-ALL \?CCL22
+	ZERO?	P-SLOCBITS \?CND21
+?CCL22:	SET	'P-SLOCBITS,-1
+?CND21:	SET	'P-TABLE,TBL
+?PRG25:	ZERO?	GCHECK /?CCL29
+	ICALL2	GLOBAL-CHECK,TBL
+	JUMP	?CND27
+?CCL29:	ZERO?	LIT /?CND30
+	EQUAL?	WINNER,ADVENTURER /?CND32
+	FCLEAR	WINNER,OPENBIT
+?CND32:	ICALL	DO-SL,HERE,SOG,SIR
+	EQUAL?	WINNER,ADVENTURER /?CND30
+	FSET	WINNER,OPENBIT
+?CND30:	ICALL	DO-SL,WINNER,SH,SC
+	EQUAL?	WINNER,ADVENTURER /?CND27
+	EQUAL?	P-GETFLAGS,P-ALL /?CND27
+	ICALL	DO-SL,ADVENTURER,SH,SC
+?CND27:	GET	TBL,P-MATCHLEN
+	SUB	STACK,TLEN >LEN
+	BTST	P-GETFLAGS,P-ALL /?CND40
+	BTST	P-GETFLAGS,P-ONE \?CCL43
+	ZERO?	LEN /?CCL43
+	EQUAL?	LEN,1 /?CND46
+	RANDOM	LEN
+	GET	TBL,STACK
+	PUT	TBL,1,STACK
+	PRINTI	"(How about the "
+	GET	TBL,1
+	PRINTD	STACK
+	PRINTI	"?)"
+	CRLF	
+?CND46:	PUT	TBL,P-MATCHLEN,1
+?CND40:	SET	'P-SLOCBITS,XBITS
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL43:	GRTR?	LEN,1 /?CTR48
+	ZERO?	LEN \?CCL49
+	EQUAL?	P-SLOCBITS,-1 /?CCL49
+?CTR48:	EQUAL?	P-SLOCBITS,-1 \?CCL56
+	SET	'P-SLOCBITS,XBITS
+	SET	'OLEN,LEN
+	GET	TBL,P-MATCHLEN
+	SUB	STACK,LEN
+	PUT	TBL,P-MATCHLEN,STACK
+	JUMP	?PRG25
+?CCL56:	ZERO?	LEN \?CND57
+	SET	'LEN,OLEN
+?CND57:	EQUAL?	WINNER,ADVENTURER /?CCL61
+	ICALL1	CANT-ORPHAN
+	RFALSE	
+?CCL61:	ZERO?	VRB /?CCL63
+	ZERO?	P-NAM /?CCL63
+	ICALL	WHICH-PRINT,TLEN,LEN,TBL
+	EQUAL?	TBL,P-PRSO \?CCL68
+	SET	'P-ACLAUSE,P-NC1
+	JUMP	?CND66
+?CCL68:	SET	'P-ACLAUSE,P-NC2
+?CND66:	SET	'P-AADJ,P-ADJ
+	SET	'P-ANAM,P-NAM
+	ICALL	ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'P-OFLAG,TRUE-VALUE
+	JUMP	?CND59
+?CCL63:	ZERO?	VRB /?CND59
+	PRINTI	"I couldn't find a noun in that sentence!"
+	CRLF	
+?CND59:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL49:	ZERO?	LEN \?CCL71
+	ZERO?	GCHECK /?CCL71
+	ZERO?	VRB /?CND74
+	SET	'P-SLOCBITS,XBITS
+	ZERO?	LIT \?CTR77
+	EQUAL?	P-NAM,W?GRUE \?CCL78
+?CTR77:	ICALL	OBJ-FOUND,NOT-HERE-OBJECT,TBL
+	SET	'P-XNAM,P-NAM
+	SET	'P-XADJ,P-ADJ
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL78:	PRINTI	"It's too dark to see!"
+	CRLF	
+?CND74:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL71:	ZERO?	LEN \?CND40
+	SET	'GCHECK,TRUE-VALUE
+	JUMP	?PRG25
+
+
+	.FUNCT	MOBY-FIND,TBL,FOO,LEN
+	SET	'P-SLOCBITS,-1
+	SET	'P-NAM,P-XNAM
+	SET	'P-ADJ,P-XADJ
+	PUT	TBL,P-MATCHLEN,0
+	FIRST?	ROOMS >FOO /?PRG2
+?PRG2:	ZERO?	FOO /?REP3
+	ICALL	SEARCH-LIST,FOO,TBL,P-SRCALL
+	NEXT?	FOO >FOO /?PRG2
+	JUMP	?PRG2
+?REP3:	GET	TBL,P-MATCHLEN >LEN
+	ZERO?	LEN \?CND8
+	ICALL	DO-SL,LOCAL-GLOBALS,1,1
+?CND8:	GET	TBL,P-MATCHLEN >LEN
+	ZERO?	LEN \?CND10
+	ICALL	DO-SL,ROOMS,1,1
+?CND10:	GET	TBL,P-MATCHLEN >LEN
+	EQUAL?	LEN,1 \?CND12
+	GET	TBL,1 >P-MOBY-FOUND
+?CND12:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RETURN	LEN
+
+
+	.FUNCT	WHICH-PRINT,TLEN,LEN,TBL,OBJ,RLEN
+	SET	'RLEN,LEN
+	PRINTI	"Which"
+	ZERO?	P-OFLAG \?CTR2
+	ZERO?	P-MERGED \?CTR2
+	ZERO?	P-AND /?CCL3
+?CTR2:	PRINTC	32
+	PRINTB	P-NAM
+	JUMP	?CND1
+?CCL3:	EQUAL?	TBL,P-PRSO \?CCL8
+	ICALL	CLAUSE-PRINT,P-NC1,P-NC1L,FALSE-VALUE
+	JUMP	?CND1
+?CCL8:	ICALL	CLAUSE-PRINT,P-NC2,P-NC2L,FALSE-VALUE
+?CND1:	PRINTI	" do you mean, "
+?PRG9:	INC	'TLEN
+	GET	TBL,TLEN >OBJ
+	PRINTI	"the "
+	PRINTD	OBJ
+	EQUAL?	LEN,2 \?CCL13
+	EQUAL?	RLEN,2 /?CND14
+	PRINTC	44
+?CND14:	PRINTI	" or "
+	JUMP	?CND11
+?CCL13:	GRTR?	LEN,2 \?CND11
+	PRINTI	", "
+?CND11:	DLESS?	'LEN,1 \?PRG9
+	PRINTR	"?"
+
+
+	.FUNCT	GLOBAL-CHECK,TBL,LEN,RMG,RMGL,CNT,OBJ,OBITS,FOO
+	GET	TBL,P-MATCHLEN >LEN
+	SET	'OBITS,P-SLOCBITS
+	GETPT	HERE,P?GLOBAL >RMG
+	ZERO?	RMG /?CND1
+	PTSIZE	RMG
+	DIV	STACK,2
+	SUB	STACK,1 >RMGL
+?PRG3:	GET	RMG,CNT >OBJ
+	CALL2	THIS-IT?,OBJ
+	ZERO?	STACK /?CND5
+	ICALL	OBJ-FOUND,OBJ,TBL
+?CND5:	IGRTR?	'CNT,RMGL \?PRG3
+?CND1:	GETPT	HERE,P?PSEUDO >RMG
+	ZERO?	RMG /?CND9
+	PTSIZE	RMG
+	DIV	STACK,4
+	SUB	STACK,1 >RMGL
+	SET	'CNT,0
+?PRG11:	MUL	CNT,2
+	GET	RMG,STACK
+	EQUAL?	P-NAM,STACK \?CCL15
+	SET	'LAST-PSEUDO-LOC,HERE
+	MUL	CNT,2
+	ADD	STACK,1
+	GET	RMG,STACK
+	PUTP	PSEUDO-OBJECT,P?ACTION,STACK
+	GETPT	PSEUDO-OBJECT,P?ACTION
+	SUB	STACK,7 >FOO
+	COPYT	P-NAM,FOO,6
+	ICALL	OBJ-FOUND,PSEUDO-OBJECT,TBL
+	JUMP	?CND9
+?CCL15:	IGRTR?	'CNT,RMGL \?PRG11
+?CND9:	GET	TBL,P-MATCHLEN
+	EQUAL?	STACK,LEN \FALSE
+	SET	'P-SLOCBITS,-1
+	SET	'P-TABLE,TBL
+	ICALL	DO-SL,GLOBAL-OBJECTS,1,1
+	SET	'P-SLOCBITS,OBITS
+	GET	TBL,P-MATCHLEN
+	ZERO?	STACK \FALSE
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH /?CCL25
+	EQUAL?	PRSA,V?EXAMINE,V?FIND,V?THROUGH \FALSE
+?CCL25:	CALL	DO-SL,ROOMS,1,1
+	RSTACK	
+
+
+	.FUNCT	DO-SL,OBJ,BIT1,BIT2
+	ADD	BIT1,BIT2
+	BTST	P-SLOCBITS,STACK \?CCL3
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCALL
+	RSTACK	
+?CCL3:	BTST	P-SLOCBITS,BIT1 \?CCL6
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCTOP
+	RSTACK	
+?CCL6:	BTST	P-SLOCBITS,BIT2 \TRUE
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCBOT
+	RSTACK	
+
+
+	.FUNCT	SEARCH-LIST,OBJ,TBL,LVL,FLS,NOBJ
+	FIRST?	OBJ >OBJ \FALSE
+?PRG4:	EQUAL?	LVL,P-SRCBOT /?CND6
+	GETPT	OBJ,P?SYNONYM
+	ZERO?	STACK /?CND6
+	CALL2	THIS-IT?,OBJ
+	ZERO?	STACK /?CND6
+	ICALL	OBJ-FOUND,OBJ,TBL
+?CND6:	FSET?	OBJ,INVISIBLE /?CND11
+	ZERO?	LVL \?PRD15
+	FSET?	OBJ,SEARCHBIT /?PRD15
+	FSET?	OBJ,SURFACEBIT \?CND11
+?PRD15:	FIRST?	OBJ >NOBJ \?CND11
+	FSET?	OBJ,OPENBIT /?CCL12
+	FSET?	OBJ,TRANSBIT \?CND11
+?CCL12:	ZERO?	LVL \?CCL24
+	FSET?	OBJ,SEARCHBIT \?CCL24
+	EQUAL?	P-GETFLAGS,P-ALL /?CND11
+?CCL24:	FSET?	OBJ,SURFACEBIT \?CCL30
+	PUSH	P-SRCALL
+	JUMP	?CND28
+?CCL30:	FSET?	OBJ,SEARCHBIT \?CCL32
+	PUSH	P-SRCALL
+	JUMP	?CND28
+?CCL32:	PUSH	P-SRCTOP
+?CND28:	CALL	SEARCH-LIST,OBJ,TBL,STACK >FLS
+?CND11:	NEXT?	OBJ >OBJ /?PRG4
+	RTRUE	
+
+
+	.FUNCT	OBJ-FOUND,OBJ,TBL,PTR
+	GET	TBL,P-MATCHLEN >PTR
+	ADD	PTR,1
+	PUT	TBL,STACK,OBJ
+	ADD	PTR,1
+	PUT	TBL,P-MATCHLEN,STACK
+	RTRUE	
+
+
+	.FUNCT	TAKE-CHECK
+	GETB	P-SYNTAX,P-SLOC1
+	CALL	ITAKE-CHECK,P-PRSO,STACK
+	ZERO?	STACK /FALSE
+	GETB	P-SYNTAX,P-SLOC2
+	CALL	ITAKE-CHECK,P-PRSI,STACK
+	RSTACK	
+
+
+	.FUNCT	ITAKE-CHECK,TBL,IBITS,PTR,OBJ,TAKEN
+	GET	TBL,P-MATCHLEN >PTR
+	ZERO?	PTR /TRUE
+	BTST	IBITS,SHAVE /?PRG8
+	BTST	IBITS,STAKE \TRUE
+?PRG8:	DLESS?	'PTR,0 /TRUE
+	ADD	PTR,1
+	GET	TBL,STACK >OBJ
+	EQUAL?	OBJ,IT \?CND13
+	SET	'OBJ,P-IT-OBJECT
+?CND13:	CALL2	HELD?,OBJ
+	ZERO?	STACK \?PRG8
+	EQUAL?	OBJ,HANDS /?PRG8
+	SET	'PRSO,OBJ
+	FSET?	OBJ,TRYTAKEBIT \?CCL21
+	SET	'TAKEN,TRUE-VALUE
+	JUMP	?CND19
+?CCL21:	EQUAL?	WINNER,ADVENTURER /?CCL23
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND19
+?CCL23:	BTST	IBITS,STAKE \?CCL25
+	CALL2	ITAKE,FALSE-VALUE
+	EQUAL?	STACK,TRUE-VALUE \?CCL25
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND19
+?CCL25:	SET	'TAKEN,TRUE-VALUE
+?CND19:	ZERO?	TAKEN /?CCL30
+	BTST	IBITS,SHAVE \?CCL30
+	EQUAL?	OBJ,NOT-HERE-OBJECT \?CND33
+	PRINTI	"You don't have that!"
+	CRLF	
+	RFALSE	
+?CND33:	PRINTI	"You don't have the "
+	PRINTD	OBJ
+	PRINTC	46
+	CRLF	
+	ICALL2	THIS-IS-IT,OBJ
+	RFALSE	
+?CCL30:	ZERO?	TAKEN \?PRG8
+	EQUAL?	WINNER,ADVENTURER \?PRG8
+	PRINTI	"(Taking the "
+	PRINTD	OBJ
+	PRINTI	" first)"
+	CRLF	
+	JUMP	?PRG8
+
+
+	.FUNCT	HERE?,CAN
+?PRG1:	LOC	CAN >CAN
+	ZERO?	CAN /?REP2
+	EQUAL?	CAN,HERE \?PRG1
+	RTRUE	
+?REP2:	CALL	GLOBAL-IN?,CAN,HERE
+	ZERO?	STACK \TRUE
+	EQUAL?	CAN,PSEUDO-OBJECT /TRUE
+	RFALSE	
+
+
+	.FUNCT	HELD?,OBJ,CONT
+	ZERO?	CONT \?CND1
+	SET	'CONT,WINNER
+?CND1:	ZERO?	OBJ /FALSE
+	IN?	OBJ,CONT /TRUE
+	IN?	OBJ,ROOMS /FALSE
+	LOC	OBJ
+	CALL	HELD?,STACK,CONT
+	RSTACK	
+
+
+	.FUNCT	MANY-CHECK,LOSS,TMP,?TMP1
+	GET	P-PRSO,P-MATCHLEN
+	GRTR?	STACK,1 \?CCL3
+	GETB	P-SYNTAX,P-SLOC1
+	BTST	STACK,SMANY /?CCL3
+	SET	'LOSS,1
+	JUMP	?CND1
+?CCL3:	GET	P-PRSI,P-MATCHLEN
+	GRTR?	STACK,1 \?CND1
+	GETB	P-SYNTAX,P-SLOC2
+	BTST	STACK,SMANY /?CND1
+	SET	'LOSS,2
+?CND1:	ZERO?	LOSS /TRUE
+	PRINTI	"I can't use multiple "
+	EQUAL?	LOSS,2 \?CND12
+	PRINTI	"in"
+?CND12:	PRINTI	"direct objects with """
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL16
+	PRINTI	"tell"
+	JUMP	?CND14
+?CCL16:	ZERO?	P-OFLAG \?CTR17
+	ZERO?	P-MERGED /?CCL18
+?CTR17:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND14
+?CCL18:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+?CND14:	PRINTI	"."""
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	LIT?,RM,OHERE,LIT
+	SET	'P-GWIMBIT,ONBIT
+	SET	'OHERE,HERE
+	SET	'HERE,RM
+	FSET?	RM,ONBIT \?CCL3
+	SET	'LIT,TRUE-VALUE
+	JUMP	?CND1
+?CCL3:	PUT	P-MERGE,P-MATCHLEN,0
+	SET	'P-TABLE,P-MERGE
+	SET	'P-SLOCBITS,-1
+	EQUAL?	OHERE,RM \?CND4
+	ICALL	DO-SL,WINNER,1,1
+?CND4:	ICALL	DO-SL,RM,1,1
+	GET	P-TABLE,P-MATCHLEN
+	GRTR?	STACK,0 \?CND1
+	SET	'LIT,TRUE-VALUE
+?CND1:	SET	'HERE,OHERE
+	SET	'P-GWIMBIT,0
+	RETURN	LIT
+
+
+	.FUNCT	PRSO-PRINT,PTR
+	ZERO?	P-MERGED \?CTR2
+	GET	P-ITBL,P-NC1 >PTR
+	GET	PTR,0
+	EQUAL?	STACK,W?IT \?CCL3
+?CTR2:	PRINTC	32
+	PRINTD	PRSO
+	RTRUE	
+?CCL3:	GET	P-ITBL,P-NC1L
+	CALL	BUFFER-PRINT,PTR,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	THIS-IT?,OBJ,SYNS,CNT
+	FSET?	OBJ,INVISIBLE /FALSE
+	GETPT	OBJ,P?SYNONYM >SYNS
+	ZERO?	SYNS /FALSE
+	ZERO?	P-NAM /?CND5
+	PTSIZE	SYNS
+	DIV	STACK,2
+	INTBL?	P-NAM,SYNS,STACK \FALSE
+?CND5:	ZERO?	P-ADJ /?CND9
+	GETPT	OBJ,P?ADJECTIVE >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	DIV	STACK,2
+	INTBL?	P-ADJ,SYNS,STACK \FALSE
+?CND9:	ZERO?	P-GWIMBIT /TRUE
+	FSET?	OBJ,P-GWIMBIT /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..6d26925
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,1413 @@
+"PARSER for
+			       PLANETFALL
+	(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." 
+
+<SETG SIBREAKS ".,\"">   
+<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-DIRECTION 0>    
+<GLOBAL HERE 0>   
+
+<MSETG P-INBUF-LENGTH 80>
+<CONSTANT P-LEXV <ITABLE 39 (LEXV) 0 #BYTE 0 #BYTE 0>>
+<CONSTANT P-INBUF <ITABLE ,P-INBUF-LENGTH (BYTE LENGTH) 0>>
+<GLOBAL P-CONT <>>  
+<GLOBAL P-IT-OBJECT <>>
+<GLOBAL P-IT-LOC <>>
+<GLOBAL LAST-PSEUDO-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-PSOFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 6) (T 4)>>
+<CONSTANT P-P1OFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 7) (T 5)>>
+
+<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 P-INPUT-WORDS <>>
+<GLOBAL P-END-ON-PREP <>>
+<GLOBAL P-PRSA-WORD <>>
+<GLOBAL QUOTE-FLAG <>>
+
+;<CONSTANT P-INBUF-LENGTH 120> ;"number of bytes in input buffer"
+;<GLOBAL RESERVE-INBUF <ITABLE 120 (BYTE LENGTH) 0>> 
+<CONSTANT RESERVE-INBUF <ITABLE ,P-INBUF-LENGTH (BYTE LENGTH) 0>>
+
+;"AGAIN stuff"
+<GLOBAL AGAIN-LEXV <ITABLE 39 ;60 (LEXV) 0 <BYTE 0> <BYTE 0>>>
+<GLOBAL RESERVE-LEXV <ITABLE 39 ;60 (LEXV) 0 <BYTE 0> <BYTE 0>>>
+<GLOBAL AGAIN-DIR <>>
+<GLOBAL RESERVE-PTR <>>
+
+
+;"OOPS stuff"
+<CONSTANT OOPS-INBUF <ITABLE ,P-INBUF-LENGTH (BYTE LENGTH) 0>>
+;<GLOBAL OOPS-INBUF <ITABLE 120 (BYTE LENGTH) 0>>
+<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>>
+<CONSTANT O-PTR 0>
+<CONSTANT O-START 1>
+<CONSTANT O-LENGTH 2>
+<CONSTANT O-END 3>
+
+" 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 <>)
+		 OMERGED OWINNER ;OLEN LEN (DIR <>) (NW 0) (LW 0) (CNT -1)) 
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T 
+		       <COND (<NOT ,P-OFLAG>
+			      <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>
+		       <PUT ,P-ITBL .CNT 0>)>>
+	<SET OMERGED ,P-MERGED>
+	<SET OWINNER ,WINNER>
+ 	<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>>)>
+	       <SETG LIT <LIT? ,HERE>>)>
+	<COND (,RESERVE-PTR
+	       <SET PTR ,RESERVE-PTR>
+	       <STUFF ,P-LEXV ,RESERVE-LEXV>
+	       <INBUF-STUFF ,P-INBUF ,RESERVE-INBUF> ;"rfix no. 36"
+	       <COND (<AND <NOT ,SUPER-BRIEF>
+			   <EQUAL? ,ADVENTURER ,WINNER>>
+		      <CRLF>)>
+	       <SETG RESERVE-PTR <>>
+	       <SETG P-CONT <>>)
+	      (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <COND (<AND <EQUAL? ,ADVENTURER ,WINNER>
+			   ;<NOT <VERB? TELL>>
+			   <NOT ,SUPER-BRIEF>>
+		      <CRLF>)>)
+	      (T
+	       <SETG WINNER ,ADVENTURER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>
+	       <COND (<NOT ,SUPER-BRIEF>
+		      <CRLF>)>
+	      %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+		       '<PROG ()
+			      <UPDATE-STATUS-LINE>
+			      <TELL ">">>)
+		      (T
+		       '<TELL ">">)>
+	       <PUTB ,P-INBUF 1 0>
+	       <READ ,P-INBUF ,P-LEXV>
+	       <SETG P-INPUT-WORDS <GETB ,P-LEXV ,P-LEXWORDS>>)>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<COND (<0? ,P-LEN>
+	       <TELL "I beg your pardon?" CR>
+	       <RFALSE>)
+	      (<EQUAL? <GET ,P-LEXV .PTR> ,W?OOPS ,W?O>
+	       <COND (<EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>> ;"rfix 36"
+			      ,W?PERIOD ,W?COMMA>
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <SETG P-LEN <- ,P-LEN 1>>)>
+	       <COND (<NOT <G? ,P-LEN 1>>
+		      <CANT-USE-THAT-WAY "OOPS">
+		      <RFALSE>)
+		     (<GET ,OOPS-TABLE ,O-PTR>
+		      <COND (<G? ,P-LEN 2>
+			     <TELL
+"[Warning: Only the first word after OOPS is used.]" CR>)>
+			   <PUT ,AGAIN-LEXV <GET ,OOPS-TABLE ,O-PTR>
+			   <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
+		      <SETG WINNER .OWINNER> ;"Fixes OOPS w/char"
+		      <INBUF-ADD <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 6>>
+				 <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 7>>
+				 <+ <* <GET ,OOPS-TABLE ,O-PTR> ,P-LEXELEN> 3>>
+		      <STUFF ,P-LEXV ,AGAIN-LEXV>
+		      <SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>;"Will this help?"
+		      <SET PTR <GET ,OOPS-TABLE ,O-START>>
+		      <INBUF-STUFF ,P-INBUF ,OOPS-INBUF>)
+		     (T
+		      <PUT ,OOPS-TABLE ,O-END <>>
+		      <TELL "[There was no word to replace!]" CR>
+		      <RFALSE>)>)
+	      (<ZERO? ,P-CONT> ;"retrofix 58"
+	       <PUT ,OOPS-TABLE ,O-END <>>)>
+	<SETG P-CONT <>> ;"retrofix 59"
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?AGAIN ,W?G>
+	       <COND (,P-OFLAG
+		      <CANT-USE-THAT-WAY "AGAIN">
+		      <RFALSE>)
+		     (<NOT ,P-WON>
+		      <TELL "[That would just repeat a mistake!]" CR>
+		      <RFALSE>)
+		     (<AND <NOT <EQUAL? .OWINNER ,ADVENTURER>>
+			   <NOT <VISIBLE? .OWINNER>>>
+		      <TELL "[You can't see " D .OWINNER " any more.]" CR>
+		      <RFALSE>)
+		     (<G? ,P-LEN 1>
+		      <COND (<OR <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?PERIOD ,W?COMMA ,W?THEN>
+				 <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?AND>>
+			     <SET PTR <+ .PTR <* 2 ,P-LEXELEN>>>
+			     <PUTB ,P-LEXV ,P-LEXWORDS
+				   <- <GETB ,P-LEXV ,P-LEXWORDS> 2>>)
+			    (T
+			     <SETG P-WON <>>
+			     <TELL "[That sentence isn't one I recognize.]" CR>
+			     <RFALSE>)>)
+		     (T
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <PUTB ,P-LEXV ,P-LEXWORDS 
+			    <- <GETB ,P-LEXV ,P-LEXWORDS> 1>>)>
+	       <COND (<G? <GETB ,P-LEXV ,P-LEXWORDS> 0>
+		      <STUFF ,RESERVE-LEXV ,P-LEXV>
+		      <INBUF-STUFF ,RESERVE-INBUF ,P-INBUF>
+		      <SETG RESERVE-PTR .PTR>)
+		     (T
+		      <SETG RESERVE-PTR <>>)>
+	       ;<SETG P-LEN <GETB ,AGAIN-LEXV ,P-LEXWORDS>>
+	       <SETG WINNER .OWINNER>
+	       <SETG P-MERGED .OMERGED>
+	       <INBUF-STUFF ,P-INBUF ,OOPS-INBUF>
+	       <STUFF ,P-LEXV ,AGAIN-LEXV>
+	       <SET CNT -1>
+	       <SET DIR ,AGAIN-DIR>
+	       <REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN>
+		       <RETURN>)
+		      (T
+		       <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>)
+	      (T
+	       <STUFF ,AGAIN-LEXV ,P-LEXV>
+	       <INBUF-STUFF ,OOPS-INBUF ,P-INBUF>
+	       <PUT ,OOPS-TABLE ,O-START .PTR>
+	       <PUT ,OOPS-TABLE ,O-LENGTH <* 4 ,P-LEN>> ;"fix #36"
+	       <SET LEN
+		    <* 2 <+ .PTR <* ,P-LEXELEN <GETB ,P-LEXV ,P-LEXWORDS>>>>>
+	       <COND (<ZERO? <GET ,OOPS-TABLE ,O-END>> ;"retrofix 58"
+		      <PUT ,OOPS-TABLE ,O-END
+			   <+ <GETB ,P-LEXV <- .LEN 1>>
+			      <GETB ,P-LEXV <- .LEN 2>>>>)>
+	       <SETG RESERVE-PTR <>>
+	       <SET LEN ,P-LEN>
+	       ;<SETG P-DIRECTION <>>
+	       <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>>>
+		       <SET NW <NEXT-WORD .PTR>>
+		       <COND (<AND <EQUAL? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL>>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <EQUAL? .WRD ,W?THEN>
+				   <G? ,P-LEN 0>
+				   <NOT .VERB>
+				   <NOT ,QUOTE-FLAG>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WRD ,W?QUOTE>)
+			     ;(<AND <EQUAL? .WRD ,W?PERIOD>
+				   <EQUAL? .LW ,W?MR>>
+			      <SETG P-NCN <- ,P-NCN 1>>
+			      <CHANGE-LEXV .PTR .LW T>
+			      <SET WRD .LW>
+			      <SET LW 0>)>
+		       <COND (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <EQUAL? .WRD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
+				     <COND (,QUOTE-FLAG
+					    <SETG QUOTE-FLAG <>>)
+					   (T
+					    <SETG QUOTE-FLAG T>)>)>
+			      <OR <ZERO? ,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 <EQUAL? .LEN 1>
+				       <AND <EQUAL? .LEN 2>
+					    <EQUAL? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? .NW
+						    ,W?THEN ,W?PERIOD ,W?QUOTE>
+					    <NOT <L? .LEN 2>>>
+				       <AND ,QUOTE-FLAG
+					    <EQUAL? .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>
+				     <CHANGE-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>>
+			      <SETG P-PRSA-WORD .WRD>
+			      <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 CNT <+ <* .PTR 2> 2>>>>
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .CNT 1>>>)
+			     (<OR <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
+				  <EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
+				  <WT? .WRD ,PS?ADJECTIVE>
+				  <WT? .WRD ,PS?OBJECT>>
+			      ;<COND (<AND .VAL
+					  <EQUAL? .WRD ,W?BACK>
+					  <NOT <EQUAL? .VERB ,ACT?HAND>>>
+				     <SET VAL 0>)>
+			      ;"3/3/86 -- fix OPEN BACK DOOR given that
+				   back is also a prep for HAND BACK OBJ -pdl"
+			      ;"removed for XZIP - GTB"
+			      <COND (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <ZERO? .VAL>
+					  <NOT <EQUAL? .WRD ,W?ALL ,W?ONE ,W?A>>
+					  <NOT <EQUAL? .WRD ,W?AN ,W?BOTH>>>)
+				    (<AND <NOT <ZERO? .VAL>>
+				          <OR <ZERO? ,P-LEN>
+					      <EQUAL? .NW ,W?THEN ,W?PERIOD>>>
+				     <SETG P-END-ON-PREP T>
+				     <COND (<L? ,P-NCN 2>
+					    <PUT ,P-ITBL ,P-PREP1 .VAL>
+					    <PUT ,P-ITBL ,P-PREP1N .WRD>)>)
+				    (<EQUAL? ,P-NCN 2>
+				     <TELL
+"[There were 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>)>)>)
+			     ;(<AND <NOT .VERB>
+				   <EQUAL? .WRD ,W?DON\'T ,W?DONT>>
+			      <SET DONT T>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>)
+			     (<AND <EQUAL? .VERB ,ACT?TELL>
+				   <WT? .WRD ,PS?VERB ,P1?VERB>
+				   ;"Next expr added to fix FORD, TELL ME WHY"
+				   <EQUAL? ,WINNER ,ADVENTURER>>
+			      <TELL
+"Consult your manual for how to talk to characters." CR>
+			      <RFALSE>)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T
+		       <UNKNOWN-WORD .PTR>
+		       <RFALSE>)>
+		<SET LW .WRD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>)>
+	<PUT ,OOPS-TABLE ,O-PTR <>>
+	<COND (.DIR 
+	       <SETG PRSA ,V?WALK>
+	       <SETG PRSO .DIR>
+	       <SETG P-OFLAG <>>
+	       <SETG P-WALK-DIR .DIR>
+	       <SETG AGAIN-DIR .DIR>
+	       <RETURN T>)>
+	<SETG P-WALK-DIR <>>
+	<SETG AGAIN-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> <MANY-CHECK> <TAKE-CHECK>>
+	       T)>>
+
+;"Put contents of one INBUF into another"
+<ROUTINE INBUF-STUFF (DEST SRC "AUX" (CNT -1))
+	 <REPEAT ()
+	  <COND (<IGRTR? CNT ,P-INBUF-LENGTH> <RETURN>)
+		(T <PUTB .DEST .CNT <GETB .SRC .CNT>>)>>>
+
+;"For AGAIN purposes, put contents of one LEXV table into another."
+<ROUTINE STUFF (DEST SRC "OPTIONAL" (MAX 39 ;29)
+		"AUX" (PTR ,P-LEXSTART) (CTR 1) BPTR)
+	 <PUTB .DEST 0 <GETB .SRC 0>>
+	 <PUTB .DEST 1 <GETB .SRC 1>>
+	 <REPEAT ()
+	  <PUT .DEST .PTR <GET .SRC .PTR>>
+	  <SET BPTR <+ <* .PTR 2> 2>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET BPTR <+ <* .PTR 2> 3>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET PTR <+ .PTR ,P-LEXELEN>>
+	  <COND (<IGRTR? CTR .MAX>
+		 <RETURN>)>>>
+
+<ROUTINE NEXT-WORD (PTR "AUX" NW)
+	 <COND (<NOT <ZERO? ,P-LEN>>
+	        <COND (<SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
+		       .NW)
+		      (ELSE
+		       <NUMBER? <+ .PTR ,P-LEXELEN>>)>)>>
+
+<ROUTINE CHANGE-LEXV (PTR WRD "OPTIONAL" (PTRS? <>) "AUX" X Y Z)
+	 <COND (.PTRS?
+		<SET X <+ 2 <* 2 <- .PTR ,P-LEXELEN>>>>
+		<SET Y <GETB ,P-LEXV .X>>
+		<SET Z <+ 2 <* 2 .PTR>>>
+		<PUTB     ,P-LEXV .Z .Y>
+		<PUTB ,AGAIN-LEXV .Z .Y>
+		<SET Y <GETB ,P-LEXV <+ 1 .X>>>
+		<SET Z <+ 3 <* 2 .PTR>>>
+		<PUTB     ,P-LEXV .Z .Y>
+		<PUTB ,AGAIN-LEXV .Z .Y>)>
+	 <PUT ,P-LEXV .PTR .WRD>
+	 <PUT ,AGAIN-LEXV .PTR .WRD>>
+
+<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" (OFFST ,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 OFFST <+ .OFFST 1>>)>
+		      <GETB .PTR .OFFST>)>)>>
+;" Scan through a noun clause, leave a pointer to its starting location"
+ 
+<ROUTINE CLAUSE (PTR VAL WORD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0))
+	<SET OFF <* <- ,P-NCN 1> 2>>
+	<COND (<NOT <==? .VAL 0>>
+	       <PUT ,P-ITBL <SET NUM <+ ,P-PREP1 .OFF>> .VAL>
+	       <PUT ,P-ITBL <+ .NUM 1> .WORD>
+	       <SET PTR <+ .PTR ,P-LEXELEN>>)
+	      (T <SETG P-LEN <+ ,P-LEN 1>>)>
+	<COND (<0? ,P-LEN> <SETG P-NCN <- ,P-NCN 1>> <RETURN -1>)>
+	<PUT ,P-ITBL <SET NUM <+ ,P-NC1 .OFF>> <REST ,P-LEXV <* .PTR 2>>>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+	       <PUT ,P-ITBL .NUM <REST <GET ,P-ITBL .NUM> 4>>)>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
+		       <RETURN -1>)>
+		<COND (<OR <SET WORD <GET ,P-LEXV .PTR>>
+			   <SET WORD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       ;<COND (<AND <==? .WORD ,W?OF>
+				   <==? <GET ,P-ITBL ,P-VERB> ,ACT?ACCUSE>>
+			      <PUT ,P-LEXV .PTR ,W?WITH>
+			      <SET WORD ,W?WITH>)>
+		       <COND ;(<AND <EQUAL? .WORD ,W?PERIOD>
+				   <EQUAL? .LW ,W?MRS ,W?MR ,W?MS>>
+			      <SET LW 0>)
+			     (<EQUAL? .WORD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WORD ,W?ALL ,W?BOTH ,W?ONE>
+			      <COND (<==? .NW ,W?OF>
+				     <SETG P-LEN <- ,P-LEN 1>>
+				     <SET PTR <+ .PTR ,P-LEXELEN>>)>)
+			     (<OR <EQUAL? .WORD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WORD ,PS?PREPOSITION>
+				       <NOT .FIRST??>>>
+			      <SETG P-LEN <+ ,P-LEN 1>>
+			      <PUT ,P-ITBL
+				   <+ .NUM 1>
+				   <REST ,P-LEXV <* .PTR 2>>>
+			      <RETURN <- .PTR ,P-LEXELEN>>)
+			     (<WT? .WORD ,PS?OBJECT>
+			      <COND (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <NOT <EQUAL? .WORD ,W?ALL ,W?ONE>>>
+				     T)
+				    (<AND <WT? .WORD
+					       ,PS?ADJECTIVE
+					       ;,P1?ADJECTIVE>
+					  <NOT <==? .NW 0>>
+					  <WT? .NW ,PS?OBJECT>>)
+				    (<AND <NOT .ANDFLG>
+					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+					  <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
+				     <RETURN .PTR>)
+				    (T <SET ANDFLG <>>)>)
+			     (<AND <OR ,P-OFLAG
+				        ,P-MERGED
+					<NOT <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>>
+				   <OR <WT? .WORD ,PS?ADJECTIVE>
+				       <WT? .WORD ,PS?BUZZ-WORD>>>)
+			     (<AND .ANDFLG
+				   <OR <WT? .WORD ,PS?DIRECTION>
+				       <WT? .WORD ,PS?VERB>>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WORD ,PS?PREPOSITION> T)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
+		<SET LW .WORD>
+		<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 (<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 10000> <RFALSE>)>
+	 <SETG P-NUMBER .SUM>
+	 ,W?INTNUM>
+
+<GLOBAL P-NUMBER 0>
+
+
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   <SETG P-OFLAG <>>
+   <COND (<WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
+	       ,PS?ADJECTIVE ;,P1?ADJECTIVE>
+	  <SET ADJ T>)
+	 ;"Following clause is retrofix #30, which handles case where one-word
+	   response is both noun and verb. -JW 8/20/84"
+	 (<AND <WT? .WRD ,PS?OBJECT ;,P1?OBJECT>
+	       <EQUAL? ,P-NCN 0>>
+	  <PUT ,P-ITBL ,P-VERB 0>
+	  <PUT ,P-ITBL ,P-VERBN 0>
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
+	  <SETG P-NCN 1>)>
+   <COND (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	       <NOT .ADJ>
+	       <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+	  <RFALSE>)
+	 (<==? ,P-NCN 2> <RFALSE>)
+	 (<==? <GET ,P-OTBL ,P-NC1> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP1>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-OTBL ,P-NC1L <REST ,P-LEXV 6>>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+			<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>)
+		(T <RFALSE>)>)
+	 (<==? <GET ,P-OTBL ,P-NC2> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP2>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+			<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+		 <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+		 <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+		 <SETG P-NCN 2>)
+		(T <RFALSE>)>)
+	 (<NOT <ZERO? ,P-ACLAUSE>>
+	  <COND (<AND <NOT <==? ,P-NCN 1>> <NOT .ADJ>>
+		 <SETG P-ACLAUSE <>>
+		 <RFALSE>)
+		(T
+		 <SET BEG <GET ,P-ITBL ,P-NC1>>
+		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+		 <SET END <GET ,P-ITBL ,P-NC1L>>
+		 <REPEAT ()
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<==? .BEG .END>
+				<COND (.ADJ <ACLAUSE-WIN .ADJ> <RETURN>)
+				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
+			       (<AND <NOT .ADJ>
+				     <OR <BTST <GETB .WRD ,P-PSOFF>
+					       ,PS?ADJECTIVE>
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<OR <BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				    <==? .WRD ,W?ONE>>
+				<COND (<NOT <EQUAL? .WRD ,P-ANAM ,W?ONE>>
+				       <RFALSE>)
+				      (T <ACLAUSE-WIN .ADJ> <RETURN>)>)>
+			 <SET BEG <REST .BEG ,P-WORDLEN>>
+			 <COND (<EQUAL? .END 0>
+				<SET END .BEG>
+				<SETG P-NCN 1>
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
+				<PUT ,P-ITBL ,P-NC1L .BEG>)>>)>)>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+<ROUTINE ACLAUSE-WIN (ADJ) ;"TRAP retrofix" 
+	<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
+	<SETG P-CCSRC ,P-OTBL>
+	<CLAUSE-COPY ,P-ACLAUSE <+ ,P-ACLAUSE 1> .ADJ>
+	<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+
+;"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>>)>>>
+
+;"Put the word in the positions specified from P-INBUF to the end of
+  OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
+<ROUTINE INBUF-ADD (LEN BEG SLOT "AUX" DBEG (CTR 0) TMP)
+	 <COND (<SET TMP <GET ,OOPS-TABLE ,O-END>>
+		<SET DBEG .TMP>)
+	       (T
+		<SET DBEG <+ <GETB ,AGAIN-LEXV
+				   <SET TMP <GET ,OOPS-TABLE ,O-LENGTH>>>
+			     <GETB ,AGAIN-LEXV <+ .TMP 1>>>>)>
+	 <PUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
+	 <REPEAT ()
+	  <PUTB ,OOPS-INBUF <+ .DBEG .CTR> <GETB ,P-INBUF <+ .BEG .CTR>>>
+	  <SET CTR <+ .CTR 1>>
+	  <COND (<EQUAL? .CTR .LEN> <RETURN>)>>
+	 <PUTB ,AGAIN-LEXV .SLOT .DBEG>
+	 <PUTB ,AGAIN-LEXV <- .SLOT 1> .LEN>>
+
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF)
+	<PUT ,OOPS-TABLE ,O-PTR .PTR>
+	<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)
+	<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)
+	<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>
+	       <TELL "I can't answer that question." CR>
+	       <RFALSE>)
+	      (<NOT <==? ,WINNER ,ADVENTURER>>
+	       <CANT-ORPHAN>)
+	      (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 CANT-ORPHAN ()
+	 <TELL "\"I don't understand! What are you referring to?\"" CR>
+	 <RFALSE>>
+
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1))
+	<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 <>))
+	 <REPEAT ()
+		<COND (<==? .BEG .END>
+		       <RETURN>)
+		      (T
+		       <COND (.NOSP
+			      <SET NOSP <>>)
+			     (T
+			      <TELL " ">)>
+		       <COND (<==? <SET WRD <GET .BEG 0>> ,W?PERIOD>
+			      <SET NOSP T>)
+			     (<EQUAL? .WRD ,W?FLOYD ,W?BLATHER>
+			      <CAPITALIZE .BEG>
+			      <SET PN 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)
+	<COND (<NOT <0? .PREP>>
+	       <TELL " ">
+	       <SET WRD <PREP-FIND .PREP>>
+	       <COND ;(<==? .WRD ,W?AGAINST> <TELL "against">)
+		     (T <PRINTB .WRD>)>)>>    
+ 
+<ROUTINE CLAUSE-COPY (BPTR EPTR "OPTIONAL" (INSRT <>) "AUX" BEG END)
+	<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)
+	<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)
+	<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)
+	<SETG P-SYNTAX .SYN>
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
+
+<GLOBAL P-GWIMBIT 0>
+
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ)
+	<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>>
+		      <COND (<AND <FSET? .OBJ ,VEHBIT>
+				  <EQUAL? .PREP ,PR?DOWN>>
+			     <SET PREP ,PR?ON>)>
+		      <TELL "(">
+		      <COND (<NOT <0? .PREP>>
+			     <PRINTB <PREP-FIND .PREP>>
+			     <TELL " the ">)>
+		      <TELL D .OBJ ")" CR>
+		      .OBJ)>)
+	      (T
+	       <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR)
+	<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)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<REPEAT ()
+		<COND (<DLESS? LEN 0>
+		       <RETURN>)
+		      (<INTBL? <SET OBJ <GET .TBL .CNT>> <REST ,P-BUTS 2>
+			       <GET ,P-BUTS 0>>)
+		      (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-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 <>>
+<GLOBAL P-AND <>> ;"WHICH retrofix"
+
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WORD NW)
+   <SETG P-AND <>> ;"WHICH retrofix"
+   <SETG P-GETFLAGS 0>
+   <SETG P-CSPTR .PTR>
+   <SETG P-CEPTR .EPTR>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WORD <GET .PTR 0>>
+   <REPEAT ()
+	   <COND (<==? .PTR .EPTR> <RETURN <GET-OBJECT <OR .BUT .TBL>>>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<EQUAL? .WORD ,W?ALL ,W?BOTH>
+			 <SETG P-GETFLAGS ,P-ALL>
+			 <COND (<==? .NW ,W?OF>
+				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			(<EQUAL? .WORD ,W?BUT ,W?EXCEPT>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 <SET BUT ,P-BUTS>
+			 <PUT .BUT ,P-MATCHLEN 0>)
+			(<EQUAL? .WORD ,W?A ,W?AN ,W?ONE>
+			 <COND (<NOT ,P-ADJ>
+				<SETG P-GETFLAGS ,P-ONE>
+				<COND (<==? .NW ,W?OF>
+				       <SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			       (T
+				<SETG P-NAM ,P-ONEOBJ>
+				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+				<AND <0? .NW> <RTRUE>>)>)
+			(<AND <EQUAL? .WORD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <SETG P-AND T> ;"WHICH retrofix"
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<AND <WT? .WORD ,PS?PREPOSITION>
+			      <==? .PTR ,P-CSPTR>>
+			 <SETG P-CSPTR <REST ,P-CSPTR ,P-WORDLEN>>)
+			(<WT? .WORD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WORD ,W?AND ,W?COMMA>)
+			(<==? .WORD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND <WT? .WORD ,PS?ADJECTIVE>
+			      <ADJ-CHECK .WORD ,P-ADJ>
+			      <NOT <EQUAL? .NW ,W?OF>>> ;"RFIX NO. 40"
+			 <SETG P-ADJ .WORD>)
+			(<WT? .WORD ,PS?OBJECT ;,P1?OBJECT>
+			 <SETG P-NAM .WORD>
+			 <SETG P-ONEOBJ .WORD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WORD .NW>)>>>   
+ 
+<ROUTINE ADJ-CHECK (WRD ADJ)
+	 <COND (<NOT .ADJ>
+		<RTRUE>)
+	       (<OR <EQUAL? .ADJ ,W?FIRST ,W?SECOND ,W?THIRD>
+		    <EQUAL? .ADJ ,W?FOURTH ,W?OLD ,W?NEW>
+		    <EQUAL? .ADJ ,W?SEND ,W?RECEIVE ,W?KITCHEN>
+		    <EQUAL? .ADJ ,W?UPPER ,W?LOWER ,W?SHUTTLE>
+		    <EQUAL? .ADJ ,W?ELEVATOR ,W?TELEPORTATION>
+		    <EQUAL? .ADJ ,W?SQUARE ,W?ROUND ,W?GOOD>
+		    <EQUAL? .ADJ ,W?SHINY ,W?CRACKED ,W?FRIED>
+		    <EQUAL? .ADJ ,W?TELEPORT ,W?MINI ,W?MINIATURIZATION>>
+		<RFALSE>)
+	       (T
+		<RTRUE>)>>
+
+<CONSTANT SH 128>   
+<CONSTANT SC 64>    
+<CONSTANT SIR 32>   
+<CONSTANT SOG 16>   
+<CONSTANT STAKE 8>  
+<CONSTANT SMANY 4>  
+<CONSTANT SHAVE 2>  
+
+<ROUTINE GET-OBJECT (TBL "OPTIONAL" (VRB T) 
+                         "AUX" BITS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+    <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-ADJ ,PS?OBJECT>
+		  <SETG P-NAM ,P-ADJ>
+		  <SETG P-ADJ <>>)
+		 (<SET BITS <WT? ,P-ADJ ,PS?DIRECTION ,P1?DIRECTION>>
+		       <SETG P-DIRECTION .BITS>)>)>
+    <COND (<AND <NOT ,P-NAM>
+	        <NOT ,P-ADJ>
+	        <NOT <==? ,P-GETFLAGS ,P-ALL>>
+	        <0? ,P-GWIMBIT>>
+	   <COND (.VRB
+	          <TELL "I couldn't find a noun in that sentence!" 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
+		   <COND (<NOT <EQUAL? ,WINNER ,ADVENTURER>>
+			  <FCLEAR ,WINNER ,OPENBIT>)>
+		   <DO-SL ,HERE ,SOG ,SIR>
+		   <COND (<NOT <EQUAL? ,WINNER ,ADVENTURER>>
+			  <FSET ,WINNER ,OPENBIT>)>)>
+	    <DO-SL ,WINNER ,SH ,SC>
+	    <COND (<AND <NOT <EQUAL? ,WINNER ,ADVENTURER>>
+			<NOT <EQUAL? ,P-GETFLAGS ,P-ALL>>>
+		   <DO-SL ,ADVENTURER ,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 (<NOT <==? ,WINNER ,ADVENTURER>>
+			  <CANT-ORPHAN>
+			  <RFALSE>)
+			 (<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 a noun in that sentence!" CR>)>
+		   <SETG P-NAM <>>
+		   <SETG P-ADJ <>>
+		   <RFALSE>)>)
+	   (<AND <0? .LEN> .GCHECK>
+	    <COND (.VRB
+		   <SETG P-SLOCBITS .XBITS>
+		   <COND (<OR ,LIT
+			      <EQUAL? ,P-NAM ,W?GRUE>>
+			  ;"Changed 6/10/83 - MARC"
+			  <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-SLOCBITS .XBITS>
+     <SETG P-NAM <>>
+     <SETG P-ADJ <>>
+     <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
+		    ,P-AND ;"WHICH retrofix">
+		<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 ">
+		 <TELL 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)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<SET OBITS ,P-SLOCBITS>
+	<COND (<SET RMG <GETPT ,HERE ,P?GLOBAL>>
+	       <SET RMGL <- </ <PTSIZE .RMG> 2> 1>>
+	       <REPEAT ()
+		       <COND (<THIS-IT? <SET OBJ <GET .RMG .CNT>>>
+			      <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>>>
+			      <SETG LAST-PSEUDO-LOC ,HERE>
+			      <PUTP ,PSEUDO-OBJECT
+				    ,P?ACTION
+				    <GET .RMG <+ <* .CNT 2> 1>>>
+			      <SET FOO
+				   <BACK <GETPT ,PSEUDO-OBJECT ,P?ACTION> 7>>
+			      ;<PUT .FOO 0 <GET ,P-NAM 0>>
+			      ;<PUT .FOO 1 <GET ,P-NAM 1>>
+			      <COPYT ,P-NAM .FOO 6>
+			      <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 (<0? <GET .TBL ,P-MATCHLEN>>
+		      <COND (<OR <EQUAL? ,PRSA ,V?LOOK-INSIDE ,V?SEARCH>
+				 <EQUAL? ,PRSA ,V?EXAMINE ,V?FIND ,V?THROUGH>>
+			     <DO-SL ,ROOMS 1 1>)>)>)>>
+ 
+<ROUTINE DO-SL (OBJ BIT1 BIT2)
+	<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)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <NOT <==? .LVL ,P-SRCBOT>>
+				   <GETPT .OBJ ,P?SYNONYM>
+				   <THIS-IT? .OBJ>>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<AND <NOT <FSET? .OBJ ,INVISIBLE>>
+				   <OR <NOT <==? .LVL ,P-SRCTOP>>
+				       <FSET? .OBJ ,SEARCHBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <SET NOBJ <FIRST? .OBJ>>
+				   <OR <FSET? .OBJ ,OPENBIT>
+				       <FSET? .OBJ ,TRANSBIT>>>
+			      <COND (<AND <==? .LVL ,P-SRCTOP>
+					  <FSET? .OBJ ,SEARCHBIT>
+					  <==? ,P-GETFLAGS ,P-ALL>>
+				     T)
+				    (T
+				     <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)
+	<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 IBITS "AUX" PTR OBJ TAKEN)
+	 <COND (<AND <SET PTR <GET .TBL ,P-MATCHLEN>>
+		     <OR <BTST .IBITS ,SHAVE>
+			 <BTST .IBITS ,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 (<AND <NOT <HELD? .OBJ>>
+					   <NOT <==? .OBJ ,HANDS>>>
+				      <SETG PRSO .OBJ>
+				      <COND (<FSET? .OBJ ,TRYTAKEBIT>
+					     <SET TAKEN T>)
+					    (<NOT <==? ,WINNER ,ADVENTURER>>
+					     <SET TAKEN <>>)
+					    (<AND <BTST .IBITS ,STAKE>
+						  <==? <ITAKE <>> T>>
+					     <SET TAKEN <>>)
+					    (T <SET TAKEN T>)>
+				      <COND (<AND .TAKEN <BTST .IBITS ,SHAVE>>
+					     <COND (<EQUAL? .OBJ
+							    ,NOT-HERE-OBJECT>
+						    <TELL
+"You don't have that!" CR>
+						    <RFALSE>)>
+					     <TELL "You don't have the ">
+					     <PRINTD .OBJ>
+					     <TELL "." CR>
+					     <THIS-IS-IT .OBJ>
+					     <RFALSE>)
+					    (<AND <NOT .TAKEN>
+						  <==? ,WINNER ,ADVENTURER>>
+					     <TELL
+"(Taking the " D .OBJ " first)" CR>)>)>)>>)
+	       (T)>>
+
+<ROUTINE HERE? (CAN)
+	 <REPEAT ()
+		 <SET CAN <LOC .CAN>>
+		 <COND (<NOT .CAN> <RETURN>)
+		       (<==? .CAN ,HERE> <RTRUE>)>>
+	 <COND (<GLOBAL-IN? .CAN ,HERE> <RTRUE>)
+	       (<EQUAL? .CAN ,PSEUDO-OBJECT> <RTRUE>)>
+	 <RFALSE>>
+
+
+<ROUTINE HELD? (OBJ "OPTIONAL" (CONT <>)) ;"now ULTIMATELY-IN?"
+	 <COND (<NOT .CONT>
+		<SET CONT ,WINNER>)>
+	 <COND (<NOT .OBJ>
+		<RFALSE>)
+	       (<IN? .OBJ .CONT>
+		<RTRUE>)
+	       (<IN? .OBJ ,ROOMS>
+		<RFALSE>)
+	       ;(<IN? .OBJ ,GLOBAL-OBJECTS>
+		<RFALSE>)
+	       (T
+		<HELD? <LOC .OBJ> .CONT>)>>
+
+;<ROUTINE HELD? (CAN)
+	 <REPEAT ()
+		 <SET CAN <LOC .CAN>>
+		 <COND (<NOT .CAN> <RFALSE>)
+		       (<==? .CAN ,WINNER> <RTRUE>)>>>
+
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP)
+	<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">)
+		     (<OR ,P-OFLAG ,P-MERGED>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL ".\"" CR>
+	       <RFALSE>)
+	      (T)>>  
+ 
+;<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+	<COND (<NOT .TBL> <RFALSE>)>
+	<COND (<NOT <L? .SIZE 0>> <SET CNT 0>)
+	      (ELSE <SET SIZE <GET .TBL 0>>)>
+	<REPEAT ()
+		<COND (<==? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+
+;<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0))
+	<REPEAT ()
+		<COND (<==? .ITM <GETB .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>
+
+<ROUTINE LIT? (RM "AUX" OHERE (LIT <>))
+	<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 ,PRSO>)
+	       (T
+		<BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
+
+<ROUTINE THIS-IT? (OBJ "AUX" SYNS CNT)
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       (<NOT <SET SYNS <GETPT .OBJ ,P?SYNONYM>>>
+		<RFALSE>)>
+	 <COND (<AND ,P-NAM
+		     <NOT <INTBL? ,P-NAM .SYNS </ <PTSIZE .SYNS> 2>>>>
+		<RFALSE>)>
+	 <COND (,P-ADJ
+		<COND (<NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>> <RFALSE>)
+		      (<NOT <INTBL? ,P-ADJ .SYNS </ <PTSIZE .SYNS> 2>>>
+		       <RFALSE>)>)>
+	 <COND (<AND <NOT <ZERO? ,P-GWIMBIT>>
+		     <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+		<RFALSE>)>
+	 <RTRUE>>
+
+
+
diff --git a/s3.chart b/s3.chart
new file mode 100644
index 0000000..df4c2b9
--- /dev/null
+++ b/s3.chart
@@ -0,0 +1,24 @@
+-date-  -rel-	-size-	-pre-	-obj-	-glo-	-voc-
+ 5/03     10	131112	28747	255	240	692
+ 5/03     11	132732	26917	255	239	692
+ 5/03     12	132480	26913	255	240	692
+ 5/03     13	132804	26913	255	240	692
+ 5/04     14	132808	26913	255	240	692
+ 5/05     15	133062	27025	256	240	698
+ 5/05     16	133030	26985	256	240	696
+ 5/06     17	132966	26995	256	240	696
+ 5/07     18	133586	26986	256	240	695
+ 5/10     19	137588	26946	257	240	695
+ 5/10     20	137584	26946	257	240	695
+ 5/11     21	139136	26955	257	240	696
+ 5/12     22	140770	27005	257	240	696
+ 5/13     1	136900	26961	257	240	696
+ 5/13     2	136864	26961	257	240	696
+ 5/15     3	136868	26961	257	240	696
+ 5/16     4	136868	26961	257	240	696
+ 5/19     5	136876	26961	257	240	696
+ 5/25     6	136832	26919	257	240	696
+ 5/25     7	136916	27004	257	240	696
+ 5/25     8	136876	26961	257	240	696
+ 5/26     9	136808	26920	257	240	696
+ 5/31     10	136560	26672	257	240	696
diff --git a/s3.errors b/s3.errors
new file mode 100644
index 0000000..ea01f88
--- /dev/null
+++ b/s3.errors
@@ -0,0 +1,26 @@
+Assembling S3.ZAP.7 on Tuesday, May 31, 1988 14:47:54
+Release: 10
+
+    64	Inserting S3FREQ.XZAP.2	   (646 bytes)
+   710	Inserting S3DAT.ZAP.5	 (25962 bytes)
+ 26672	Inserting S3PUR.ZAP.5	  (1744 bytes)
+ 28416	Inserting MISC.ZAP.4	  (1961 bytes)
+ 30377	Inserting PARSER.ZAP.7	  (5968 bytes)
+ 36345	Inserting VERBS.ZAP.2	 (10604 bytes)
+ 46949	Inserting GLOBALS.ZAP.2	 (19176 bytes)
+ 66125	Inserting COMPONE.ZAP.2	 (15165 bytes)
+ 81290	Inserting COMPTWO.ZAP.2	 (15542 bytes)
+ 96832	Inserting HINTS.ZAP.2	  (1384 bytes)
+ 98216	Inserting S3STR.ZAP.5	 (38344 bytes)
+
+Symbols unused:
+GLOBAL-VARS-TABLE
+
+257 objects.
+240 globals.
+696 word vocabulary.
+
+136560 bytes (134K).
+ 26672 bytes of preload.
+ 17435 bytes of impure.
+Outputting symbol tables
diff --git a/s3.lowcore b/s3.lowcore
new file mode 100644
index 0000000..f2cc37e
--- /dev/null
+++ b/s3.lowcore
@@ -0,0 +1,2 @@
+
+0 
\ No newline at end of file
diff --git a/s3.pre b/s3.pre
new file mode 100644
index 0000000..d95b135
Binary files /dev/null and b/s3.pre differ
diff --git a/s3.pur b/s3.pur
new file mode 100644
index 0000000..1c05647
Binary files /dev/null and b/s3.pur differ
diff --git a/s3.record b/s3.record
new file mode 100644
index 0000000..3979cd5
--- /dev/null
+++ b/s3.record
@@ -0,0 +1,261 @@
+
+Combined ZIL Compiler Ver 2.0 (MIM)
+-----------------------------------
+Input file: SS:<PLANETFALL.CHEAP>S3.ZIL.11
+[XZIP instructions]
+
+[Funny globals and constants]
+
+Loading abstract SS:<PLANETFALL.CHEAP>MISC.ZABSTR.11.
+Loading SS:<PLANETFALL.CHEAP>PARSER.ZIL.39 and compiling it.
+
+Compiling routine: PARSER
+Compiling routine: INBUF-STUFF
+Compiling routine: STUFF
+Compiling routine: NEXT-WORD
+Compiling routine: CHANGE-LEXV
+Compiling routine: WT?
+Compiling routine: CLAUSE
+Compiling routine: NUMBER?
+Compiling routine: ORPHAN-MERGE
+Compiling routine: ACLAUSE-WIN
+Compiling routine: WORD-PRINT
+Compiling routine: INBUF-ADD
+Compiling routine: UNKNOWN-WORD
+Compiling routine: CANT-USE
+Compiling routine: SYNTAX-CHECK
+Compiling routine: CANT-ORPHAN
+Compiling routine: ORPHAN
+Compiling routine: CLAUSE-PRINT
+Compiling routine: BUFFER-PRINT
+Compiling routine: CAPITALIZE
+Compiling routine: PREP-PRINT
+Compiling routine: CLAUSE-COPY
+Compiling routine: CLAUSE-ADD
+Compiling routine: PREP-FIND
+Compiling routine: SYNTAX-FOUND
+Compiling routine: GWIM
+Compiling routine: SNARF-OBJECTS
+Compiling routine: BUT-MERGE
+Compiling routine: SNARFEM
+Compiling routine: ADJ-CHECK
+Compiling routine: GET-OBJECT
+Compiling routine: MOBY-FIND
+Compiling routine: WHICH-PRINT
+Compiling routine: GLOBAL-CHECK
+Compiling routine: DO-SL
+Compiling routine: SEARCH-LIST
+Compiling routine: OBJ-FOUND
+Compiling routine: TAKE-CHECK
+Compiling routine: ITAKE-CHECK
+Compiling routine: HERE?
+Compiling routine: HELD?
+Compiling routine: MANY-CHECK
+Compiling routine: LIT?
+Compiling routine: PRSO-PRINT
+Compiling routine: THIS-IT?
+Abstracting SS:<PLANETFALL.CHEAP>PARSER.
+Loading SS:<PLANETFALL.CHEAP>SYNTAX.ZIL.12 and compiling it.
+Loading abstract SS:<PLANETFALL.CHEAP>VERBS.ZABSTR.13.
+Loading abstract SS:<PLANETFALL.CHEAP>GLOBALS.ZABSTR.16.
+Loading abstract SS:<PLANETFALL.CHEAP>COMPONE.ZABSTR.12.
+Loading abstract SS:<PLANETFALL.CHEAP>COMPTWO.ZABSTR.12.
+Loading abstract SS:<PLANETFALL.CHEAP>HINTS.ZABSTR.11.
+Vocabulary: 696
+
+Prepositions: 18
+
+ACROSS	 AROUND	  BEHIND   FOR	    IN	     OFF      OUT      TO	UP
+AGAINST	 AT	  DOWN	   FROM	    NEAR     ON	      OVER     UNDER	WITH
+
+Real globals: 240
+
+11-TEXT		       FLOYD-PEERED	      P-CSPTR
+12-TEXT		       FLOYD-REACTIVATED      P-DIRECTION
+13-TEXT		       FLOYD-SCORE-FLAG	      P-END-ON-PREP
+21-TEXT		       FLOYD-SPOKE	      P-GETFLAGS
+22-TEXT		       FLOYD-WAITING	      P-GWIMBIT
+23-TEXT		       FLOYDISMS	      P-INBUF
+31-TEXT		       FORAY-COUNTER	      P-INPUT-WORDS
+32-TEXT		       FUMBLE-NUMBER	      P-IT-LOC
+33-TEXT		       FUMBLE-PROB	      P-IT-OBJECT
+34-TEXT		       GEOGRAPHY-MENU	      P-ITBL
+35-TEXT		       GLOBAL-VARS-TABLE      P-LEN
+41-TEXT		       GREEN-TEXT	      P-LEXV
+42-TEXT		       HELLOS		      P-MATCHLEN
+43-TEXT		       HERE		      P-MERGE
+51-TEXT		       HINT-COUNTS	      P-MERGED
+52-TEXT		       HINTS		      P-MOBY-FOUND
+53-TEXT		       HINTS-OFF	      P-MULT
+61-TEXT		       HISTORY-MENU	      P-NAM
+62-TEXT		       HO-HUM		      P-NCN
+63-TEXT		       HOLE-TRIP-FLAG	      P-NOT-HERE
+ACCESS-PANEL-FULL      HOST		      P-NUMBER
+ACHILLES-FLAG	       HUNGER-LEVEL	      P-OCLAUSE
+AGAIN-DIR	       INDENTS		      P-OFLAG
+AGAIN-LEXV	       INTERLOGIC-MENU	      P-ONEOBJ
+ALFIE-AT-KALAMONTEE    INTERNAL-MOVES	      P-OTBL
+ALFIE-BROKEN	       INVISICLUES	      P-PRSA-WORD
+AMBASSADOR-LEAVE       ITS-CRACKED	      P-PRSI
+AMBASSADOR-QUOTES      JUST-ENTERED	      P-PRSO
+BEAM-MISSES	       LAB-FLOODED	      P-SLOCBITS
+BEEN-HERE	       LAB-LIGHTS-ON	      P-SYNTAX
+BETTY-AT-KALAMONTEE    LADDER-EXTENDED	      P-TABLE
+BETTY-BROKEN	       LADDER-FLAG	      P-VTBL
+BLANKS		       LASER-JUST-SHOT	      P-WALK-DIR
+BLATHER-LEAVE	       LASER-SCORE-FLAG	      P-WON
+BLOWUP-COUNTER	       LASER-SETTING	      P-XADJ
+BOARD-REPORTED	       LAST-CHASE-ROOM	      P-XNAM
+BOTH-DOORS	       LAST-PSEUDO-LOC	      PADLOCK-REMOVED
+BRIGS-UP	       LAWANDA-PLATFORM-FLAG  PREVIOUS
+C-DEMONS	       LAZARUS-FLAG	      PRSA
+C-ELAPSED	       LEVER-SETTING	      PRSI
+C-INTS		       LINE-TABLE	      PRSO
+C-TABLE		       LIT		      Q-MAIN-MENU
+CANT-GO		       LOAD-ALLOWED	      Q-RESUME-STORY
+CARD-REVEALED	       LOW-END		      Q-SEE-HINT-MENU
+CARD-STOLEN	       LOWER-ELEVATOR-ON      QUEST-NUM
+CHAPT-NUM	       LOWER-ELEVATOR-UP      QUOTE-FLAG
+CHEMICAL-FLAG	       MAIN-MENU	      RESERVE-INBUF
+CHEMICAL-REQUIRED      MARKSMANSHIP-COUNTER   RESERVE-LEXV
+COLOR-LTBL	       MENU-LEVEL	      RESERVE-PTR
+COLUMN-TABLE	       MICROBE-COUNTER	      RETURN-SEE-HINT
+COMM-FIXED	       MICROBE-DISPATCHED     SCORE
+COMM-SHUTDOWN	       MICROBE-HIT	      SCREEN-TEXT
+COMPUTER-FIXED	       MICROBE-STRIKES	      SECOND-TO-LAST-ROOM
+COMPUTER-FLAG	       MINI-ACTIVATED	      SHUTTLE-COUNTER
+COURSE-CONTROL-FIXED   MONSTER-CLOSES	      SHUTTLE-MOVING
+CRYO-MOVE-FLAG	       MONSTER-ENTRANCES      SHUTTLE-ON
+CRYO-SCORE-FLAG	       MORE-INFO	      SHUTTLE-RECORDING-4
+CULTURE-MENU	       MOVES		      SHUTTLE-VELOCITY
+CUR-POS		       MUNGED-TIME	      SICKNESS-LEVEL
+DAY		       MURAL-FLAG	      SICKNESS-WARNING-FLAG
+DEFENSE-FIXED	       NEW-SHOTS	      SINK-COUNTER
+DIAL-NUMBER	       NO-MICROBE	      SL-TABLE
+DIARY-CTR	       NOT-HUNGRY	      SLEEPY-LEVEL
+DIARY-ENTRIES	       NUKED-COUNTER	      SPECK-HIT
+DIROUT-TBL	       NUMBER-NEEDED	      SPOOL-TEXT
+DOOR-CLOSES	       OHERE		      SPOUT-PLACED
+DOOR-OPENS	       OLD-LEN		      STEPS-TO-GO
+DREAMS		       OLD-SHOTS	      SUPER-BRIEF
+DROWN		       OOPS-INBUF	      TELEPORTATION-ON
+ELEVATOR-ENABLED       OOPS-TABLE	      TRIP-COUNTER
+ELEVATOR-IN-TRANSIT    ORDER-LTBL	      UNIFORM-OPENED
+ELEVATOR-LIGHT-OFF     P-AADJ		      UPPER-ELEVATOR-ON
+ELEVATOR-STARTS	       P-ACLAUSE	      UPPER-ELEVATOR-UP
+EXTRA-MOVE-FLAG	       P-ADJ		      VERBOSE
+FAINT-SOUND	       P-ANAM		      WAITING-COUNTER
+FAMILIAR-WRENCHING     P-AND		      WARMTH-FLAG
+FLOYD-FOLLOW	       P-BUTS		      WIDTH
+FLOYD-FORAYED	       P-CCSRC		      WINNER
+FLOYD-GAVE-UP	       P-CEPTR		      WRONG-CARD
+FLOYD-INTRODUCED       P-CONT		      YUKS
+
+Objects: 257
+
+ACCESS-PANEL		  GLOBAL-DOORWAY	    PROJECT-CORRIDOR
+ACHILLES		  GLOBAL-GAMES		    PROJECT-CORRIDOR-EAST
+ADMIN-CORRIDOR		  GLOBAL-OBJECTS	    PROJECT-CORRIDOR-WEST
+ADMIN-CORRIDOR-N	  GLOBAL-POD		    PSEUDO-OBJECT
+ADMIN-CORRIDOR-S	  GLOBAL-SHUTTLE	    RAD-DOOR-EAST
+ADVENTURER		  GOOD-BEDISTOR		    RAD-DOOR-WEST
+ALFIE-CONTROL-EAST	  GOOD-BOARD		    RADIATION-LAB
+ALFIE-CONTROL-WEST	  GRAY-BUTTON		    RADIATION-LOCK-EAST
+AMBASSADOR		  GREEN-BUTTON		    RADIATION-LOCK-WEST
+AUXILIARY-BOOTH		  GREEN-GOO		    RAT-ANT
+BAD-BEDISTOR		  GREEN-SPOOL		    REACTOR-ACCESS-STAIRS
+BALCONY			  GROUND		    REACTOR-CONTROL
+BED			  GRUE			    REACTOR-ELEVATOR
+BETTY-CONTROL-EAST	  HANDS			    REACTOR-ELEVATOR-DOOR
+BETTY-CONTROL-WEST	  HELICOPTER		    REACTOR-LOBBY
+BIO-DOOR-EAST		  HELICOPTER-OBJECT	    REC-AREA
+BIO-DOOR-WEST		  HELIPAD		    REC-CORRIDOR
+BIO-LAB			  HIGH-PROTEIN		    RECEIVE-CONSOLE
+BIO-LOCK-EAST		  ID-CARD		    RED-BUTTON
+BIO-LOCK-WEST		  INFIRMARY		    RED-ELEVATOR-BUTTON
+BLACK-BUTTON		  INTNUM		    RED-GOO
+BLATHER			  IT			    RED-SPOOL
+BLUE-BUTTON		  KALAMONTEE-PLATFORM	    RELAY
+BLUE-ELEVATOR-BUTTON	  KEY			    REPAIR-ROOM
+BOOTH-1			  KITCHEN		    RIFT
+BOOTH-2			  KITCHEN-CARD		    ROBOT-HOLE
+BOOTH-3			  KITCHEN-DOOR		    ROBOT-SHOP
+BRIG			  LAB-DESK		    ROOMS
+BROCHURE		  LAB-OFFICE		    ROUND-WHITE-BUTTON
+BROWN-BUTTON		  LAB-STORAGE		    SAFETY-WEB
+BROWN-GOO		  LAB-UNIFORM		    SANFAC-A
+BROWN-SPOOL		  LADDER		    SANFAC-B
+CAN			  LAMP			    SANFAC-C
+CANTEEN			  LARGE-DESK		    SANFAC-D
+CARTON			  LARGE-OFFICE		    SANFAC-E
+CELERY			  LASER			    SANFAC-F
+CHEMICAL-DISPENSER	  LASER-DIAL		    SCRUB-BRUSH
+CHEMICAL-FLUID		  LAWANDA-PLATFORM	    SECOND-BOARD
+CHRONOMETER		  LAZARUS-PART		    SEND-CONSOLE
+CLIFF			  LEVER			    SHELVES
+COMBINATION-DIAL	  LIBRARY		    SHUTTLE-CAR-ALFIE
+COMBINATION-PAPER	  LIBRARY-LOBBY		    SHUTTLE-CAR-BETTY
+COMM-ROOM		  LIGHT-BUTTON		    SHUTTLE-CARD
+COMM-SCREEN		  LIGHTS		    SHUTTLE-DOOR
+COMPUTER-ROOM		  LOCAL-GLOBALS		    SLEEP
+CONFERENCE-DOOR		  LOWER-ELEVATOR	    SLOT
+CONFERENCE-ROOM		  LOWER-ELEVATOR-CARD	    SMALL-DESK
+CONTROLS		  LOWER-ELEVATOR-DOOR	    SMALL-OFFICE
+CORRIDOR-DOOR		  MACHINE-SHOP		    SPECK
+CORRIDOR-JUNCTION	  MAGNET		    SPOOL-READER
+COURTYARD		  MAIN-LAB		    SQUARE-WHITE-BUTTON
+CRACKED-BOARD		  ME			    STAIRS
+CRAG			  MECH-CORRIDOR		    STATION-384
+CREVICE			  MECH-CORRIDOR-N	    STORAGE-EAST
+CRYO-ANTEROOM		  MECH-CORRIDOR-S	    STORAGE-WEST
+CRYO-ELEVATOR		  MEDICINE		    STORAGE-WEST-DOOR
+CRYO-ELEVATOR-DOOR	  MEDICINE-BOTTLE	    STRIP
+CUBE			  MEGAFUSE-B		    STRIP-NEAR-RELAY
+DARK-BUTTON		  MEGAFUSE-K		    STRIP-NEAR-STATION
+DEAD-FLOYD		  MEMO			    SYSTEMS-CORRIDOR
+DECK-EIGHT		  MESS-CORRIDOR		    SYSTEMS-CORRIDOR-EAST
+DECK-NINE		  MESS-HALL		    SYSTEMS-CORRIDOR-WEST
+DIARY			  MICROBE		    SYSTEMS-MONITORS
+DIARY-BUTTON		  MIDDLE-OF-STRIP	    TABLES
+DISPENSER		  MINI-BOOTH		    TELEPORTATION-BUTTON-1
+DORM-A			  MINI-CARD		    TELEPORTATION-BUTTON-2
+DORM-B			  NEW-BATTERY		    TELEPORTATION-BUTTON-3
+DORM-C			  NOT-HERE-OBJECT	    TELEPORTATION-CARD
+DORM-CORRIDOR		  OBSERVATION-DECK	    TERMINAL
+DORM-D			  OCEAN			    THIRD-BOARD
+ELEVATOR-BUTTON		  OFFICE-DOOR		    TOOL-ROOM
+ELEVATOR-LOBBY		  OIL-CAN		    TOWEL
+ESCALATOR		  OLD-BATTERY		    TOWER-CORE
+ESCAPE-POD		  PADLOCK		    TRANSPORTATION-SUPPLY
+FIRST-BOARD		  PATROL-UNIFORM	    TRIFFID
+FLASK			  PHYSICAL-PLANT	    TROLL
+FLOYD			  PHYSICAL-PLANT-TWO	    UNDERWATER
+FOOD-KIT		  PLAIN-HALL		    UPPER-ELEVATOR
+FORK			  PLAN-ROOM		    UPPER-ELEVATOR-CARD
+FOURTH-BOARD		  PLANETARY-COURSE-CONTROL  UPPER-ELEVATOR-DOOR
+FRIED-BOARD		  PLANETARY-DEFENSE	    WAITING-AREA
+FUNGICIDE-BUTTON	  PLAYBACK-BUTTON	    WEST-WING
+FUNNEL-HOLE		  PLIERS		    WINDING-STAIR
+GANGWAY			  POD-DOOR		    WINDOW
+GANGWAY-DOOR		  PRINT-OUT		    YELLOW-BUTTON
+GAS-MASK		  PROJCON-OFFICE
+
+Properties: 26
+
+P?ACTION     P?DESCFCN	  P?IN	       P?OUT	    P?SW	 P?WEST
+P?ADJECTIVE  P?DOWN	  P?LDESC      P?PSEUDO	    P?SYNONYM
+P?C-MOVE     P?EAST	  P?NE	       P?SE	    P?TEXT
+P?CAPACITY   P?FDESC	  P?NORTH      P?SIZE	    P?UP
+P?CONTFCN    P?GLOBAL	  P?NW	       P?SOUTH	    P?VALUE
+
+Flags: 31
+
+ACIDBIT	      FOODBIT	    OPENBIT	  SURFACEBIT	VOWELBIT
+ACTIVEBIT     INVISIBLE	    READBIT	  TAKEBIT	WEARBIT
+ACTORBIT      LIGHTBIT	    RLANDBIT	  TOOLBIT	WORNBIT
+CLIMBBIT      MUNGBIT	    RMUNGBIT	  TOUCHBIT
+CONTBIT	      MUNGEDBIT	    RWATERBIT	  TRANSBIT
+DOORBIT	      NDESCBIT	    SCRAMBLEDBIT  TRYTAKEBIT
+FLOYDBIT      ONBIT	    SEARCHBIT	  VEHBIT
+
+Fake globals: 0
diff --git a/s3.serial b/s3.serial
new file mode 100644
index 0000000..4099407
--- /dev/null
+++ b/s3.serial
@@ -0,0 +1 @@
+23
diff --git a/s3.zap b/s3.zap
new file mode 100644
index 0000000..e0c6151
--- /dev/null
+++ b/s3.zap
@@ -0,0 +1,49 @@
+	.NEW 5
+; Low core locations
+%ZVERSION::	.BYTE	5
+		.BYTE	FLAGS
+%ZORKID::	ZORKID
+%ENDLOD::	ENDLOD
+%START::	START
+%VOCAB::	VOCAB
+%OBJECT::	OBJECT
+%GLOBAL::	GLOBAL
+%PURBOT::	IMPURE
+%FLAGS::	.WORD 0
+%SERIAL::	.WORD	0
+%SERI1::	.WORD	0
+%SERI2::	.WORD	0
+%FWORDS::	WORDS
+%PLENTH::	.WORD	0
+%PCHKSM::	.WORD	0
+%INTWRD::	.WORD	0
+%SCRWRD::	.WORD	0
+%HWRD::	.WORD	0
+%VWRD::	.WORD	0
+%FWRD::	.WORD	0
+%LMRG::	.WORD	0
+%RMRG::	.WORD	0
+%CLRWRD::	.WORD	0
+%TCHAR::	TCHARS
+%CRCNT::	.WORD	0
+%CRFUNC::	.WORD	0
+%CHRSET::	.WORD	0
+%EXTAB::	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.INSERT "SS:<PLANETFALL.CHEAP>S3FREQ"	;Frequent word table
+	.INSERT "SS:<PLANETFALL.CHEAP>S3DAT"	; Data file
+	.INSERT "SS:<PLANETFALL.CHEAP>S3PUR"
+	.INSERT "SS:<PLANETFALL.CHEAP>MISC"
+	.INSERT "SS:<PLANETFALL.CHEAP>PARSER"
+	.INSERT "SS:<PLANETFALL.CHEAP>VERBS"
+	.INSERT "SS:<PLANETFALL.CHEAP>GLOBALS"
+	.INSERT "SS:<PLANETFALL.CHEAP>COMPONE"
+	.INSERT "SS:<PLANETFALL.CHEAP>COMPTWO"
+	.INSERT "SS:<PLANETFALL.CHEAP>HINTS"
+
+	.INSERT "SS:<PLANETFALL.CHEAP>S3STR"
+
+	.END
diff --git a/s3.zil b/s3.zil
new file mode 100644
index 0000000..1d1685c
--- /dev/null
+++ b/s3.zil
@@ -0,0 +1,31 @@
+"PLANETFALL for
+			       PLANETFALL
+	  (c) COPYRIGHT 1983, 1988 INFOCOM INC. ALL RIGHTS RESERVED"
+
+<PRINC "*** S3: Planetfall ***">
+
+ON!-INITIAL
+OFF!-INITIAL	;"makes debugging possible -- pdl"
+
+<VERSION XZIP>
+<SETG PLUS-MODE T>
+<FUNNY-GLOBALS? T>
+;<SETG NEW-VOC? T>
+<FREQUENT-WORDS?>
+<SET REDEFINE T>
+
+<DIRECTIONS ;"Do not change the order of the first 8 without consulting MARC!"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<INSERT-FILE "MISC" T>
+<INSERT-FILE "PARSER" T>
+<INSERT-FILE "SYNTAX" T>
+<INSERT-FILE "VERBS" T>
+<INSERT-FILE "GLOBALS" T>
+<INSERT-FILE "COMPONE" T>
+<INSERT-FILE "COMPTWO" T>
+<INSERT-FILE "HINTS" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
+<PROPDEF VALUE 0>
\ No newline at end of file
diff --git a/s3.zip b/s3.zip
new file mode 100644
index 0000000..567e257
Binary files /dev/null and b/s3.zip differ
diff --git a/s3dat.zap b/s3dat.zap
new file mode 100644
index 0000000..2d1bcfc
--- /dev/null
+++ b/s3dat.zap
@@ -0,0 +1,14047 @@
+
+
+; TOP LEVEL DEFINITIONS
+
+	TRUE-VALUE=1
+	FALSE-VALUE=0
+	FATAL-VALUE=2
+
+	O?ANY=1
+
+	PS?OBJECT=128
+	PS?VERB=64
+	PS?ADJECTIVE=32
+	PS?DIRECTION=16
+	PS?PREPOSITION=8
+	PS?BUZZ-WORD=4
+
+	P1?NONE=0
+	P1?OBJECT=0
+	P1?VERB=1
+	P1?ADJECTIVE=2
+	P1?DIRECTION=3
+
+
+; OBJECT FLAGS ARE DEFINED HERE
+
+
+	FLOYDBIT=17
+	FX?FLOYDBIT=16384
+
+	RWATERBIT=18
+	FX?RWATERBIT=8192
+
+	ONBIT=19
+	FX?ONBIT=4096
+
+	RLANDBIT=20
+	FX?RLANDBIT=2048
+
+	VOWELBIT=21
+	FX?VOWELBIT=1024
+
+	NDESCBIT=22
+	FX?NDESCBIT=512
+
+	ACTIVEBIT=23
+	FX?ACTIVEBIT=256
+
+	ACIDBIT=24
+	FX?ACIDBIT=128
+
+	TRANSBIT=25
+	FX?TRANSBIT=64
+
+	SEARCHBIT=26
+	FX?SEARCHBIT=32
+
+	OPENBIT=27
+	FX?OPENBIT=16
+
+	WORNBIT=28
+	FX?WORNBIT=8
+
+	SCRAMBLEDBIT=29
+	FX?SCRAMBLEDBIT=4
+
+	MUNGEDBIT=30
+	FX?MUNGEDBIT=2
+
+	MUNGBIT=31
+	FX?MUNGBIT=1
+
+	TRYTAKEBIT=32
+	FX?TRYTAKEBIT=32768
+
+	SURFACEBIT=33
+	FX?SURFACEBIT=16384
+
+	TOUCHBIT=34
+	FX?TOUCHBIT=8192
+
+	INVISIBLE=35
+	FX?INVISIBLE=4096
+
+	TOOLBIT=36
+	FX?TOOLBIT=2048
+
+	LIGHTBIT=37
+	FX?LIGHTBIT=1024
+
+	WEARBIT=38
+	FX?WEARBIT=512
+
+	READBIT=39
+	FX?READBIT=256
+
+	CONTBIT=40
+	FX?CONTBIT=128
+
+	TAKEBIT=41
+	FX?TAKEBIT=64
+
+	DOORBIT=42
+	FX?DOORBIT=32
+
+	FOODBIT=43
+	FX?FOODBIT=16
+
+	RMUNGBIT=44
+	FX?RMUNGBIT=8
+
+	CLIMBBIT=45
+	FX?CLIMBBIT=4
+
+	VEHBIT=46
+	FX?VEHBIT=2
+
+	ACTORBIT=47
+	FX?ACTORBIT=1
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?BRIEF=0
+	V?SUPER-BRIEF=1
+	V?DIAGNOSE=2
+	V?INVENTORY=3
+	V?QUIT=4
+	V?RESTART=5
+	V?RESTORE=6
+	V?SAVE=7
+	V?SCORE=8
+	V?SCRIPT=9
+	V?UNSCRIPT=10
+	V?$VERIFY=11
+	V?$REFRESH=12
+	V?VERSION=13
+	V?VERBOSE=14
+	V?$RANDOM=15
+	V?$COMMAND=16
+	V?$RECORD=17
+	V?$UNRECORD=18
+	V?ANSWER=19
+	V?REPLY=20
+	V?PUT=21
+	V?ATTACK=22
+	V?BOARD=23
+	V?GO-UP=24
+	V?CLIMB-ON=25
+	V?CLIMB-UP=26
+	V?THROUGH=27
+	V?CLIMB-DOWN=28
+	V?CLIMB-FOO=29
+	V?SIT=30
+	V?SIT-DOWN=31
+	V?PUT-UNDER=32
+	V?ATTRACT=33
+	V?SPAN=34
+	V?STAND=35
+	V?STAND-ON=36
+	V?CLOSE=37
+	V?CURSE=38
+	V?DISEMBARK=39
+	V?DROP=40
+	V?PUT-ON=41
+	V?EAT=42
+	V?EAT-FROM=43
+	V?ENTER=44
+	V?EXIT=45
+	V?EXAMINE=46
+	V?LOOK-INSIDE=47
+	V?FIND=48
+	V?SZAP=49
+	V?ZAP=50
+	V?FOLLOW=51
+	V?FLUSH=52
+	V?FLY=53
+	V?GIVE=54
+	V?SGIVE=55
+	V?HELLO=56
+	V?HINT=57
+	V?HINTS-NO=58
+	V?LEAP=59
+	V?KICK=60
+	V?KISS=61
+	V?KNOCK=62
+	V?LEAVE=63
+	V?LISTEN=64
+	V?LOCK=65
+	V?LOOK=66
+	V?LOOK-CRETIN=67
+	V?LOOK-UNDER=68
+	V?LOOK-BEHIND=69
+	V?LOOK-DOWN=70
+	V?SEARCH=71
+	V?MOVE=72
+	V?PUSH-UP=73
+	V?PUSH-DOWN=74
+	V?POINT=75
+	V?PULL=76
+	V?ZATTRACT=77
+	V?MUNG=78
+	V?OPEN=79
+	V?OPEN-WITH=80
+	V?TAKE=81
+	V?PLAY=82
+	V?PLAY-WITH=83
+	V?PUSH=84
+	V?WEAR=85
+	V?SLIDE=86
+	V?INSERT=87
+	V?RAPE=88
+	V?REACH=89
+	V?REACH-FOR=90
+	V?READ=91
+	V?RUB=92
+	V?SCRUB=93
+	V?SLEEP=94
+	V?SHAKE=95
+	V?SHAKE-WITH=96
+	V?SKIP=97
+	V?SMELL=98
+	V?STEP-ON=99
+	V?SWIM=100
+	V?SWIM-DIR=101
+	V?SWIM-UP=102
+	V?TAKE-OFF=103
+	V?REMOVE=104
+	V?TELL=105
+	V?ASK-FOR=106
+	V?SMILE=107
+	V?SALUTE=108
+	V?TALK=109
+	V?SAY=110
+	V?THROW=111
+	V?THROW-OFF=112
+	V?TURN=113
+	V?LAMP-ON=114
+	V?LAMP-OFF=115
+	V?SET=116
+	V?TYPE=117
+	V?UNLOCK=118
+	V?WAIT=119
+	V?ALARM=120
+	V?WALK=121
+	V?WALK-AROUND=122
+	V?WALK-TO=123
+	V?WAVE=124
+	V?YELL=125
+	V?SCOLD=126
+	V?ZORK=127
+	V?YES=128
+	V?NO=129
+	V?MAYBE=130
+	V?POUR=131
+	V?EMPTY=132
+	V?FIX-IT=133
+	V?OIL=134
+	V?SHOW=135
+	V?TASTE=136
+	V?ZESCAPE=137
+	V?TIME=138
+
+; PROPERTIES ARE DEFINED HERE
+
+	P?NORTH=63
+	P?NE=62
+	P?EAST=61
+	P?SE=60
+	P?SOUTH=59
+	P?SW=58
+	P?WEST=57
+	P?NW=56
+	P?UP=55
+	P?DOWN=54
+	P?IN=53
+	P?OUT=52
+	P?SYNONYM=51
+	P?VALUE=50
+	P?CONTFCN=49
+	P?DESCFCN=48
+	P?SIZE=47
+	P?ACTION=46
+	P?ADJECTIVE=45
+	P?LDESC=44
+	P?C-MOVE=43
+	P?PSEUDO=42
+	P?GLOBAL=41
+	P?TEXT=40
+	P?CAPACITY=39
+	P?FDESC=38
+
+; ADJECTIVES ARE DEFINED HERE
+
+
+; BUZZ WORDS ARE DEFINED HERE
+
+
+; PREPOSITIONS ARE DEFINED HERE
+
+	PR?TO=255
+	PR?WITH=254
+	PR?ON=253
+	PR?UP=252
+	PR?DOWN=251
+	PR?IN=250
+	PR?UNDER=249
+	PR?OVER=248
+	PR?NEAR=247
+	PR?ACROSS=246
+	PR?FROM=245
+	PR?AT=244
+	PR?OFF=243
+	PR?AROUND=242
+	PR?BEHIND=241
+	PR?OUT=240
+	PR?FOR=239
+	PR?AGAINST=238
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+	ACT?KISS=255
+	ACT?SKIP=254
+	ACT?PULL=253
+	ACT?PUT=252
+	ACT?RAPE=251
+	ACT?VERBOSE=250
+	ACT?WALK=249
+	ACT?OIL=248
+	ACT?QUIT=247
+	ACT?FIND=246
+	ACT?YES=245
+	ACT?DESTROY=244
+	ACT?SCOLD=243
+	ACT?UNLOCK=242
+	ACT?READ=241
+	ACT?SAY=240
+	ACT?JUMP=239
+	ACT?POUR=238
+	ACT?WAIT=237
+	ACT?TAKE=236
+	ACT?NO=235
+	ACT?FOLLOW=234
+	ACT?TYPE=233
+	ACT?FLY=232
+	ACT?$REFRESH=231
+	ACT?VERSION=230
+	ACT?#UNRECORD=229
+	ACT?MOVE=228
+	ACT?PLAY=227
+	ACT?OPEN=226
+	ACT?TASTE=225
+	ACT?#COMMAND=224
+	ACT?KNOCK=223
+	ACT?PICK=222
+	ACT?BOARD=221
+	ACT?#RANDOM=220
+	ACT?APPLY=219
+	ACT?ESCAPE=218
+	ACT?STAND=217
+	ACT?LISTEN=216
+	ACT?SHOW=215
+	ACT?SAVE=214
+	ACT?HELP=213
+	ACT?TELL=212
+	ACT?THROW=211
+	ACT?ZORK=210
+	ACT?SHAKE=209
+	ACT?INVENTORY=208
+	ACT?ATTACK=207
+	ACT?ENTER=206
+	ACT?SEARCH=205
+	ACT?WEAR=204
+	ACT?DISEMBARK=203
+	ACT?SWIM=202
+	ACT?UNSCRIPT=201
+	ACT?PUSH=200
+	ACT?RUB=199
+	ACT?SUPER=198
+	ACT?SIT=197
+	ACT?REACH=196
+	ACT?SCORE=195
+	ACT?SCRUB=194
+	ACT?SALUTE=193
+	ACT?LOOK=192
+	ACT?EMPTY=191
+	ACT?ATTRACT=190
+	ACT?DROP=189
+	ACT?STEP=188
+	ACT?TIME=187
+	ACT?LEAVE=186
+	ACT?CURSE=185
+	ACT?SCRIPT=184
+	ACT?$VERIFY=183
+	ACT?RESTART=182
+	ACT?SMELL=181
+	ACT?BRIEF=180
+	ACT?DIAGNOSE=179
+	ACT?GIVE=178
+	ACT?SLEEP=177
+	ACT?SMILE=176
+	ACT?WAKE=175
+	ACT?REMOVE=174
+	ACT?ANSWER=173
+	ACT?YELL=172
+	ACT?LOCK=171
+	ACT?ACTIVATE=170
+	ACT?KICK=169
+	ACT?POINT=168
+	ACT?TURN=167
+	ACT?#RECORD=166
+	ACT?MAYBE=165
+	ACT?RESTORE=164
+	ACT?CLOSE=163
+	ACT?STRIKE=162
+	ACT?FIX=161
+	ACT?SLIDE=160
+	ACT?WAVE=159
+	ACT?EXIT=158
+	ACT?EXAMINE=157
+	ACT?EAT=156
+	ACT?FIRE=155
+	ACT?CLIMB=154
+	ACT?FLUSH=153
+	ACT?HELLO=152
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	SOG=16
+	INVISICLUES-LEN=16
+	SIR=32
+	DEXITSTR=2
+	XEQUAL?=4
+	PREVIOUS-LEN=12
+	P-ITBLLEN=9
+	P-SYNLEN=8
+	P-SRCTOP=0
+	C-INTLEN=6
+	O-START=1
+	DEXITOBJ=1
+	H-ITALIC=4
+	P-P1OFF=7
+	S-TEXT=0
+	P-PHRLEN=3
+	O-PTR=0
+	O-LENGTH=2
+	C-TABLELEN=240
+	D-TABLE-OFF=-3
+	P-NC2=8
+	P-NC1=6
+	D-SCREEN-ON=1
+	P-WORDLEN=4
+	D-SCREEN-OFF=-1
+	P-VERBN=1
+	SERIAL=0
+	P-P1BITS=3
+	FEXIT=4
+	P-SPREP1=1
+	Q-RESUME-STORY-LEN=16
+	D-PRINTER-OFF=-2
+	P-PREP1=2
+	M-BEG=1
+	Q-MAIN-MENU-LEN=13
+	XDIV=3
+	M-FATAL=2
+	XGRTR?=5
+	NEXITSTR=0
+	NEXIT=3
+	P-SLOC2=6
+	SC=64
+	P-PREP1N=3
+	S-WINDOW=1
+	P-PSOFF=6
+	D-PRINTER-ON=2
+	XLESS?=6
+	P-VERB=0
+	M-HANDLED=1
+	M-ENTER=2
+	DEXIT=6
+	SHAVE=2
+	H-NORMAL=0
+	P-SRCBOT=2
+	M-OBJDESC=5
+	C-ELAPSED-DEFAULT=7
+	H-INVERSE=1
+	SMANY=4
+	STAKE=8
+	P-SPREP2=2
+	XSUB=1
+	XADD=0
+	CEXIT=5
+	H-BOLD=2
+	P-LEXSTART=1
+	M-LOOK=3
+	UEXIT=2
+	D-RECORD-ON=4
+	Q-SEE-HINT-MENU-LEN=17
+	O-END=3
+	P-LEXELEN=2
+	P-LEXWORDS=1
+	P-ALL=1
+	XMUL=2
+	P-SFWIM1=3
+	P-INHIBIT=4
+	CEXITFLAG=4
+	D-RECORD-OFF=-4
+	BLANKS-LEN=10
+	M-FLASH=4
+	P-ORPHLEN=7
+	M-OBJECT=0
+	FEXITFCN=0
+	DEFAULT-MOVE=20
+	D-TABLE-ON=3
+	RETURN-SEE-HINT-LEN=18
+	P-SBITS=0
+	M-NOT-HANDLED=0
+	CEXITSTR=1
+	P-SRCALL=1
+	P-RTLEN=3
+	P-SLOC1=5
+	M-END=6
+	LOW-DIRECTION=52
+	P-PREP2=4
+	P-SONUMS=3
+	C-TICK=1
+	P-NC2L=9
+	P-NC1L=7
+	P-ONE=2
+	P-SACTION=7
+	P-PREP2N=5
+	P-SFWIM2=4
+	C-ENABLED?=0
+	REXIT=0
+	SH=128
+	C-RTN=2
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR ALFIE-AT-KALAMONTEE=1
+	.GVAR P-END-ON-PREP=0
+	.GVAR BETTY-AT-KALAMONTEE=0
+	.GVAR QUEST-NUM=1
+	.GVAR SUPER-BRIEF=0
+	.GVAR FLOYD-INTRODUCED=0
+	.GVAR CUR-POS=0
+	.GVAR VERBOSE=0
+	.GVAR P-BUTS=T?1302,TABLE
+	.GVAR ELEVATOR-STARTS=STR?203
+	.GVAR SICKNESS-WARNING-FLAG=0
+	.GVAR P-ACLAUSE=0
+	.GVAR 41-TEXT=STR?261
+	.GVAR P-CSPTR=0
+	.GVAR BETTY-BROKEN=0
+	.GVAR P-SLOCBITS=0
+	.GVAR P-MATCHLEN=0
+	.GVAR 43-TEXT=STR?263
+	.GVAR SLEEPY-LEVEL=0
+	.GVAR BEAM-MISSES=PT?207
+	.GVAR SHUTTLE-MOVING=0
+	.GVAR P-MULT=0
+	.GVAR 35-TEXT=STR?260
+	.GVAR BOTH-DOORS=STR?292
+	.GVAR P-OTBL=T?402,TABLE
+	.GVAR P-NAM=0
+	.GVAR C-TABLE=T?101,TABLE
+	.GVAR FAINT-SOUND=STR?311
+	.GVAR P-XNAM=0
+	.GVAR UPPER-ELEVATOR-ON=0
+	.GVAR P-MOBY-FOUND=0
+	.GVAR OOPS-TABLE=T?1002,TABLE
+	.GVAR FLOYD-FOLLOW=0
+	.GVAR P-WALK-DIR=0
+	.GVAR LAZARUS-FLAG=0
+	.GVAR P-ANAM=0
+	.GVAR BOARD-REPORTED=0
+	.GVAR BLOWUP-COUNTER=0
+	.GVAR LOWER-ELEVATOR-ON=0
+	.GVAR 31-TEXT=STR?256
+	.GVAR LAST-PSEUDO-LOC=0
+	.GVAR FORAY-COUNTER=0
+	.GVAR P-CEPTR=0
+	.GVAR AMBASSADOR-QUOTES=PT?205
+	.GVAR P-CONT=0
+	.GVAR FLOYD-PEERED=0
+	.GVAR OHERE=0,OBJECT
+	.GVAR 33-TEXT=STR?258
+	.GVAR P-PRSI=T?1202,TABLE
+	.GVAR AGAIN-LEXV=T?702,TABLE
+	.GVAR P-INPUT-WORDS=0
+	.GVAR ELEVATOR-IN-TRANSIT=0
+	.GVAR P-DIRECTION=0
+	.GVAR CRYO-MOVE-FLAG=0
+	.GVAR COURSE-CONTROL-FIXED=0
+	.GVAR RESERVE-INBUF=T?602
+	.GVAR FUMBLE-NUMBER=7
+	.GVAR CANT-GO=STR?99
+	.GVAR NOT-HUNGRY=STR?116
+	.GVAR ACHILLES-FLAG=0
+	.GVAR HISTORY-MENU=STR?244
+	.GVAR DEFENSE-FIXED=0
+	.GVAR LIT=0
+	.GVAR HINT-COUNTS=PT?12308
+	.GVAR UPPER-ELEVATOR-UP=1
+	.GVAR 21-TEXT=STR?253
+	.GVAR P-VTBL=T?502,TABLE
+	.GVAR MICROBE-HIT=0
+	.GVAR EXTRA-MOVE-FLAG=0
+	.GVAR RESERVE-LEXV=T?802,TABLE
+	.GVAR GLOBAL-VARS-TABLE=0
+	.GVAR 23-TEXT=STR?255
+	.GVAR P-ADJ=0
+	.GVAR MURAL-FLAG=0
+	.GVAR P-LEN=0
+	.GVAR HOST=0,NUMBER
+	.GVAR P-LEXV=T?102
+	.GVAR C-INTS=240
+	.GVAR UNIFORM-OPENED=0
+	.GVAR LOAD-ALLOWED=100
+	.GVAR LASER-SETTING=5
+	.GVAR BLANKS=T?205
+	.GVAR 62-TEXT=STR?268
+	.GVAR INTERLOGIC-MENU=STR?249
+	.GVAR INVISICLUES=STR?354
+	.GVAR COMM-SHUTDOWN=0
+	.GVAR DOOR-CLOSES=STR?294
+	.GVAR DIARY-CTR=0
+	.GVAR 11-TEXT=STR?250
+	.GVAR PRSO=0
+	.GVAR CARD-STOLEN=0
+	.GVAR FLOYDISMS=PT?206
+	.GVAR SICKNESS-LEVEL=0
+	.GVAR DIARY-ENTRIES=PT?105
+	.GVAR P-MERGED=0
+	.GVAR 13-TEXT=STR?252
+	.GVAR P-GWIMBIT=0
+	.GVAR LAB-LIGHTS-ON=0
+	.GVAR CHEMICAL-REQUIRED=0
+	.GVAR COMPUTER-FLAG=0
+	.GVAR C-DEMONS=300
+	.GVAR SINK-COUNTER=0
+	.GVAR LAWANDA-PLATFORM-FLAG=0
+	.GVAR WRONG-CARD=STR?98
+	.GVAR P-OCLAUSE=T?1502,TABLE
+	.GVAR Q-RESUME-STORY=STR?356
+	.GVAR MUNGED-TIME=0
+	.GVAR FLOYD-FORAYED=0
+	.GVAR WARMTH-FLAG=0
+	.GVAR DROWN=0
+	.GVAR HOLE-TRIP-FLAG=0
+	.GVAR 52-TEXT=STR?265
+	.GVAR P-SYNTAX=0
+	.GVAR MARKSMANSHIP-COUNTER=0
+	.GVAR LOW-END=STR?242
+	.GVAR LOWER-ELEVATOR-UP=0
+	.GVAR P-XADJ=0
+	.GVAR MENU-LEVEL=0
+	.GVAR MOVES=0
+	.GVAR FLOYD-WAITING=0
+	.GVAR SHUTTLE-ON=0
+	.GVAR BRIGS-UP=0
+	.GVAR FLOYD-REACTIVATED=0
+	.GVAR COMM-FIXED=0
+	.GVAR CHEMICAL-FLAG=0
+	.GVAR HUNGER-LEVEL=0
+	.GVAR LEVER-SETTING=0
+	.GVAR MICROBE-COUNTER=0
+	.GVAR P-AADJ=0
+	.GVAR Q-MAIN-MENU=STR?353
+	.GVAR PRSA=0
+	.GVAR P-PRSA-WORD=0
+	.GVAR JUST-ENTERED=1
+	.GVAR CARD-REVEALED=0
+	.GVAR ACCESS-PANEL-FULL=1
+	.GVAR NO-MICROBE=1
+	.GVAR P-PRSO=T?1102,TABLE
+	.GVAR SHUTTLE-RECORDING-4=STR?103
+	.GVAR P-AND=0
+	.GVAR SCORE=0
+	.GVAR C-ELAPSED=7
+	.GVAR RETURN-SEE-HINT=STR?352
+	.GVAR 42-TEXT=STR?262
+	.GVAR SPOOL-TEXT=0
+	.GVAR P-ONEOBJ=0
+	.GVAR MICROBE-STRIKES=PT?507
+	.GVAR CULTURE-MENU=STR?245
+	.GVAR 34-TEXT=STR?259
+	.GVAR INTERNAL-MOVES=0
+	.GVAR ALFIE-BROKEN=0
+	.GVAR MINI-ACTIVATED=0
+	.GVAR P-INBUF=T?202
+	.GVAR BEEN-HERE=0
+	.GVAR NUMBER-NEEDED=0
+	.GVAR LADDER-EXTENDED=0
+	.GVAR DIAL-NUMBER=0
+	.GVAR P-MERGE=T?1402,TABLE
+	.GVAR COMPUTER-FIXED=0
+	.GVAR BLATHER-LEAVE=0
+	.GVAR P-IT-LOC=0
+	.GVAR SL-TABLE=T?105
+	.GVAR LADDER-FLAG=0
+	.GVAR HERE=0
+	.GVAR P-WON=0
+	.GVAR MORE-INFO=STR?241
+	.GVAR MAIN-MENU=STR?243
+	.GVAR SHUTTLE-COUNTER=0
+	.GVAR LAST-CHASE-ROOM=0
+	.GVAR 32-TEXT=STR?257
+	.GVAR P-ITBL=T?302,TABLE
+	.GVAR QUOTE-FLAG=0
+	.GVAR ORDER-LTBL=T?5506,TABLE
+	.GVAR P-TABLE=0
+	.GVAR P-GETFLAGS=0
+	.GVAR DAY=1
+	.GVAR YUKS=PT?504
+	.GVAR LINE-TABLE=PT?108,TABLE
+	.GVAR LASER-JUST-SHOT=0
+	.GVAR OOPS-INBUF=T?902
+	.GVAR FUMBLE-PROB=8
+	.GVAR Q-SEE-HINT-MENU=STR?355
+	.GVAR INDENTS=PT?104
+	.GVAR P-NUMBER=0
+	.GVAR CHAPT-NUM=1
+	.GVAR CRYO-SCORE-FLAG=0
+	.GVAR DREAMS=PT?305
+	.GVAR P-OFLAG=0
+	.GVAR WINNER=0
+	.GVAR OLD-SHOTS=0
+	.GVAR HINTS-OFF=-1
+	.GVAR PADLOCK-REMOVED=0
+	.GVAR GEOGRAPHY-MENU=STR?247
+	.GVAR AGAIN-DIR=0
+	.GVAR P-CCSRC=0
+	.GVAR MICROBE-DISPATCHED=0
+	.GVAR TELEPORTATION-ON=0
+	.GVAR 22-TEXT=STR?254
+	.GVAR STEPS-TO-GO=0
+	.GVAR ELEVATOR-ENABLED=STR?97
+	.GVAR SCREEN-TEXT=0
+	.GVAR NUKED-COUNTER=0
+	.GVAR DOOR-OPENS=STR?293
+	.GVAR SHUTTLE-VELOCITY=0
+	.GVAR P-IT-OBJECT=0
+	.GVAR 61-TEXT=STR?267
+	.GVAR HO-HUM=PT?404
+	.GVAR HINTS=PT?12408
+	.GVAR MONSTER-CLOSES=PT?407
+	.GVAR 63-TEXT=STR?269
+	.GVAR FAMILIAR-WRENCHING=STR?314
+	.GVAR PRSI=0
+	.GVAR RESERVE-PTR=0
+	.GVAR OLD-LEN=0,NUMBER
+	.GVAR DIROUT-TBL=T?1308
+	.GVAR NEW-SHOTS=0
+	.GVAR WAITING-COUNTER=0
+	.GVAR FLOYD-SPOKE=0
+	.GVAR HELLOS=PT?204
+	.GVAR 12-TEXT=STR?251
+	.GVAR WIDTH=0,NUMBER
+	.GVAR LAB-FLOODED=0
+	.GVAR COLOR-LTBL=PT?106
+	.GVAR FLOYD-GAVE-UP=0
+	.GVAR ELEVATOR-LIGHT-OFF=STR?202
+	.GVAR FLOYD-SCORE-FLAG=0
+	.GVAR LASER-SCORE-FLAG=0
+	.GVAR SPECK-HIT=0
+	.GVAR PREVIOUS=STR?357
+	.GVAR GREEN-TEXT=STR?274
+	.GVAR TRIP-COUNTER=0
+	.GVAR SPOUT-PLACED=0
+	.GVAR P-NOT-HERE=0
+	.GVAR COLUMN-TABLE=PT?208
+	.GVAR 51-TEXT=STR?264
+	.GVAR MONSTER-ENTRANCES=PT?107
+	.GVAR P-NCN=0
+	.GVAR SECOND-TO-LAST-ROOM=0
+	.GVAR AMBASSADOR-LEAVE=0
+	.GVAR ITS-CRACKED=0
+	.GVAR 53-TEXT=STR?266
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+OBJECT::.TABLE 
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;(P?FDESC)
+	0			;(P?CAPACITY)
+	0			;(P?TEXT)
+	0			;(P?GLOBAL)
+	0			;(P?PSEUDO)
+	0			;(P?C-MOVE)
+	0			;(P?LDESC)
+	0			;(P?ADJECTIVE)
+	0			;(P?ACTION)
+	5			;(P?SIZE)
+	0			;(P?DESCFCN)
+	0			;(P?CONTFCN)
+	0			;(P?VALUE)
+	0			;(P?SYNONYM)
+	0			;(P?OUT)
+	0			;(P?IN)
+	0			;(P?DOWN)
+	0			;(P?UP)
+	0			;(P?NW)
+	0			;(P?WEST)
+	0			;(P?SW)
+	0			;(P?SOUTH)
+	0			;(P?SE)
+	0			;(P?EAST)
+	0			;(P?NE)
+	0			;(P?NORTH)
+	.OBJECT DORM-B,0,FX?RLANDBIT+FX?ONBIT+FX?FLOYDBIT,0,ROOMS,SANFAC-A,0,T?DORM-B
+	.OBJECT FRIED-BOARD,0,FX?ACIDBIT,FX?TAKEBIT,0,0,0,T?FRIED-BOARD
+	.OBJECT MINI-BOOTH,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,COMPUTER-ROOM,0,T?MINI-BOOTH
+	.OBJECT CHRONOMETER,0,FX?WORNBIT+FX?MUNGBIT,FX?WEARBIT+FX?TAKEBIT,ADVENTURER,SCRUB-BRUSH,0,T?CHRONOMETER
+	.OBJECT WINDING-STAIR,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,BALCONY,0,T?WINDING-STAIR
+	.OBJECT OIL-CAN,0,FX?VOWELBIT,FX?TAKEBIT,STORAGE-EAST,0,0,T?OIL-CAN
+	.OBJECT LAB-STORAGE,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,MAIN-LAB,NEW-BATTERY,T?LAB-STORAGE
+	.OBJECT REC-CORRIDOR,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,BOOTH-1,0,T?REC-CORRIDOR
+	.OBJECT MECH-CORRIDOR-S,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,MECH-CORRIDOR,0,T?MECH-CORRIDOR-S
+	.OBJECT HANDS,0,FX?NDESCBIT,0,GLOBAL-OBJECTS,GLOBAL-GAMES,0,T?HANDS
+	.OBJECT TELEPORTATION-BUTTON-1,0,FX?NDESCBIT,0,LOCAL-GLOBALS,SLOT,0,T?TELEPORTATION-BUTTON-1
+	.OBJECT KEY,0,FX?ACIDBIT,FX?TRYTAKEBIT+FX?INVISIBLE+FX?TOOLBIT+FX?TAKEBIT,ADMIN-CORRIDOR-S,CREVICE,0,T?KEY
+	.OBJECT PLANETARY-COURSE-CONTROL,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,PLANETARY-DEFENSE,CUBE,T?PLANETARY-COURSE-CONTROL
+	.OBJECT REACTOR-ACCESS-STAIRS,0,FX?RLANDBIT,0,ROOMS,REACTOR-CONTROL,0,T?REACTOR-ACCESS-STAIRS
+	.OBJECT GRAY-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,YELLOW-BUTTON,0,T?GRAY-BUTTON
+	.OBJECT MIDDLE-OF-STRIP,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,STRIP-NEAR-STATION,0,T?MIDDLE-OF-STRIP
+	.OBJECT PLAN-ROOM,0,FX?FLOYDBIT+FX?ONBIT+FX?RLANDBIT,0,ROOMS,SYSTEMS-MONITORS,0,T?PLAN-ROOM
+	.OBJECT GREEN-SPOOL,0,FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,LIBRARY-LOBBY,0,0,T?GREEN-SPOOL
+	.OBJECT SPECK,0,FX?NDESCBIT,0,RELAY,0,0,T?SPECK
+	.OBJECT CORRIDOR-DOOR,0,FX?NDESCBIT+FX?OPENBIT,FX?DOORBIT+FX?INVISIBLE,LOCAL-GLOBALS,POD-DOOR,0,T?CORRIDOR-DOOR
+	.OBJECT COURTYARD,0,FX?FLOYDBIT+FX?RLANDBIT+FX?ONBIT,0,ROOMS,WINDING-STAIR,0,T?COURTYARD
+	.OBJECT WINDOW,0,FX?NDESCBIT,0,LOCAL-GLOBALS,STAIRS,0,T?WINDOW
+	.OBJECT TELEPORTATION-BUTTON-3,0,FX?NDESCBIT,0,LOCAL-GLOBALS,TELEPORTATION-BUTTON-2,0,T?TELEPORTATION-BUTTON-3
+	.OBJECT REACTOR-LOBBY,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,DECK-NINE,0,T?REACTOR-LOBBY
+	.OBJECT SANFAC-D,0,FX?RLANDBIT+FX?FLOYDBIT+FX?ONBIT,0,ROOMS,DORM-D,0,T?SANFAC-D
+	.OBJECT SYSTEMS-CORRIDOR-WEST,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,REPAIR-ROOM,0,T?SYSTEMS-CORRIDOR-WEST
+	.OBJECT BROWN-GOO,0,FX?ACIDBIT,FX?FOODBIT,FOOD-KIT,RED-GOO,0,T?BROWN-GOO
+	.OBJECT GAS-MASK,0,FX?ACIDBIT,FX?WEARBIT+FX?TAKEBIT,LAB-DESK,0,0,T?GAS-MASK
+	.OBJECT INFIRMARY,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,FORK,MEDICINE-BOTTLE,T?INFIRMARY
+	.OBJECT NEW-BATTERY,0,FX?ACIDBIT,FX?TAKEBIT,LAB-STORAGE,LAB-UNIFORM,0,T?NEW-BATTERY
+	.OBJECT FLOYD,0,FX?OPENBIT+FX?TRANSBIT+FX?SEARCHBIT,FX?LIGHTBIT+FX?CONTBIT,ROBOT-SHOP,0,0,T?FLOYD
+	.OBJECT ME,0,0,FX?ACTORBIT,GLOBAL-OBJECTS,SLEEP,0,T?ME
+	.OBJECT KALAMONTEE-PLATFORM,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,WAITING-AREA,0,T?KALAMONTEE-PLATFORM
+	.OBJECT BLACK-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,BROWN-BUTTON,0,T?BLACK-BUTTON
+	.OBJECT ELEVATOR-LOBBY,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,ROBOT-SHOP,RED-ELEVATOR-BUTTON,T?ELEVATOR-LOBBY
+	.OBJECT ACHILLES,0,0,0,REPAIR-ROOM,0,0,T?ACHILLES
+	.OBJECT DORM-A,0,FX?RLANDBIT+FX?ONBIT+FX?FLOYDBIT,0,ROOMS,REC-CORRIDOR,0,T?DORM-A
+	.OBJECT KITCHEN,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,MESS-HALL,DISPENSER,T?KITCHEN
+	.OBJECT BALCONY,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,CRAG,0,T?BALCONY
+	.OBJECT REACTOR-CONTROL,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,PHYSICAL-PLANT,0,T?REACTOR-CONTROL
+	.OBJECT HELIPAD,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,TOWER-CORE,0,T?HELIPAD
+	.OBJECT PRINT-OUT,0,FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,COMPUTER-ROOM,0,0,T?PRINT-OUT
+	.OBJECT LIGHTS,0,FX?NDESCBIT,0,LOCAL-GLOBALS,SHELVES,0,T?LIGHTS
+	.OBJECT GREEN-GOO,0,FX?ACIDBIT,FX?FOODBIT,FOOD-KIT,BROWN-GOO,0,T?GREEN-GOO
+	.OBJECT MECH-CORRIDOR-N,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,LARGE-OFFICE,0,T?MECH-CORRIDOR-N
+	.OBJECT GOOD-BOARD,0,FX?NDESCBIT+FX?ACIDBIT,FX?INVISIBLE,ROBOT-HOLE,0,0,T?GOOD-BOARD
+	.OBJECT ROOMS,0,0,0,0,0,STRIP-NEAR-RELAY,T?ROOMS
+	.OBJECT COMBINATION-DIAL,0,FX?NDESCBIT+FX?MUNGBIT,0,REC-AREA,0,0,T?COMBINATION-DIAL
+	.OBJECT PROJECT-CORRIDOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,SANFAC-F,0,T?PROJECT-CORRIDOR
+	.OBJECT ADMIN-CORRIDOR-S,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,CORRIDOR-JUNCTION,KEY,T?ADMIN-CORRIDOR-S
+	.OBJECT ROUND-WHITE-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,BLACK-BUTTON,0,T?ROUND-WHITE-BUTTON
+	.OBJECT ADVENTURER,0,FX?NDESCBIT,FX?INVISIBLE,DECK-NINE,0,DIARY,T?ADVENTURER
+	.OBJECT FLASK,0,FX?OPENBIT+FX?SEARCHBIT,FX?TAKEBIT+FX?CONTBIT,TOOL-ROOM,0,0,T?FLASK
+	.OBJECT LAZARUS-PART,0,0,FX?TAKEBIT,0,0,0,T?LAZARUS-PART
+	.OBJECT OLD-BATTERY,0,FX?ACIDBIT+FX?VOWELBIT,FX?TAKEBIT,LASER,LASER-DIAL,0,T?OLD-BATTERY
+	.OBJECT DECK-NINE,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,BRIG,ADVENTURER,T?DECK-NINE
+	.OBJECT THIRD-BOARD,0,0,0,ACCESS-PANEL,FOURTH-BOARD,0,T?THIRD-BOARD
+	.OBJECT STRIP,0,FX?NDESCBIT,0,LOCAL-GLOBALS,OFFICE-DOOR,0,T?STRIP
+	.OBJECT SMALL-OFFICE,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,TRANSPORTATION-SUPPLY,SMALL-DESK,T?SMALL-OFFICE
+	.OBJECT CARTON,0,FX?OPENBIT+FX?SEARCHBIT,FX?CONTBIT+FX?TAKEBIT,STORAGE-EAST,OIL-CAN,GOOD-BEDISTOR,T?CARTON
+	.OBJECT BOOTH-2,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,LOWER-ELEVATOR,0,T?BOOTH-2
+	.OBJECT LOCAL-GLOBALS,0,0,0,GLOBAL-OBJECTS,0,STRIP,T?LOCAL-GLOBALS
+	.OBJECT CRAG,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,UNDERWATER,0,T?CRAG
+	.OBJECT ADMIN-CORRIDOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,ADMIN-CORRIDOR-S,0,T?ADMIN-CORRIDOR
+	.OBJECT BRIG,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,0,0,T?BRIG
+	.OBJECT PROJCON-OFFICE,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,PROJECT-CORRIDOR,0,T?PROJCON-OFFICE
+	.OBJECT LASER,0,FX?TRANSBIT+FX?OPENBIT+FX?MUNGBIT,FX?CONTBIT+FX?TAKEBIT,TOOL-ROOM,PLIERS,OLD-BATTERY,T?LASER
+	.OBJECT CONTROLS,0,FX?NDESCBIT,0,LOCAL-GLOBALS,LIGHTS,0,T?CONTROLS
+	.OBJECT LARGE-DESK,0,FX?NDESCBIT+FX?SEARCHBIT,FX?CONTBIT,LARGE-OFFICE,0,SHUTTLE-CARD,T?LARGE-DESK
+	.OBJECT CORRIDOR-JUNCTION,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,KITCHEN,0,T?CORRIDOR-JUNCTION
+	.OBJECT BAD-BEDISTOR,0,FX?ACIDBIT,FX?TAKEBIT+FX?TRYTAKEBIT,CUBE,0,0,T?BAD-BEDISTOR
+	.OBJECT TRANSPORTATION-SUPPLY,0,FX?RLANDBIT,0,ROOMS,PLAN-ROOM,0,T?TRANSPORTATION-SUPPLY
+	.OBJECT COMM-ROOM,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,HELICOPTER,FUNNEL-HOLE,T?COMM-ROOM
+	.OBJECT SMALL-DESK,0,FX?SEARCHBIT+FX?NDESCBIT,FX?CONTBIT,SMALL-OFFICE,0,UPPER-ELEVATOR-CARD,T?SMALL-DESK
+	.OBJECT GLOBAL-OBJECTS,0,FX?ACTIVEBIT+FX?ACIDBIT+FX?TRANSBIT+FX?SEARCHBIT+FX?OPENBIT+FX?WORNBIT+FX?SCRAMBLEDBIT+FX?MUNGEDBIT+FX?MUNGBIT,FX?READBIT+FX?WEARBIT+FX?TRYTAKEBIT+FX?SURFACEBIT+FX?TOUCHBIT+FX?INVISIBLE,0,0,ME,T?GLOBAL-OBJECTS
+	.OBJECT SHUTTLE-DOOR,0,FX?OPENBIT,FX?INVISIBLE+FX?DOORBIT,LOCAL-GLOBALS,LEVER,0,T?SHUTTLE-DOOR
+	.OBJECT SHUTTLE-CAR-BETTY,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,ALFIE-CONTROL-WEST,0,T?SHUTTLE-CAR-BETTY
+	.OBJECT YELLOW-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,GREEN-BUTTON,0,T?YELLOW-BUTTON
+	.OBJECT IT,0,FX?NDESCBIT,0,GLOBAL-OBJECTS,INTNUM,0,T?IT
+	.OBJECT PROJECT-CORRIDOR-WEST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,LIBRARY,0,T?PROJECT-CORRIDOR-WEST
+	.OBJECT COMM-SCREEN,0,FX?NDESCBIT,FX?READBIT,COMM-ROOM,SEND-CONSOLE,0,T?COMM-SCREEN
+	.OBJECT STRIP-NEAR-STATION,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,STATION-384,0,T?STRIP-NEAR-STATION
+	.OBJECT UPPER-ELEVATOR-CARD,0,FX?VOWELBIT,FX?READBIT+FX?TAKEBIT,SMALL-DESK,KITCHEN-CARD,0,T?UPPER-ELEVATOR-CARD
+	.OBJECT GOOD-BEDISTOR,0,FX?ACIDBIT,FX?TAKEBIT,CARTON,MEGAFUSE-K,0,T?GOOD-BEDISTOR
+	.OBJECT STORAGE-EAST,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,MECH-CORRIDOR-S,CARTON,T?STORAGE-EAST
+	.OBJECT CONFERENCE-DOOR,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,BED,0,T?CONFERENCE-DOOR
+	.OBJECT SANFAC-C,0,FX?RLANDBIT+FX?ONBIT+FX?FLOYDBIT,0,ROOMS,DORM-C,0,T?SANFAC-C
+	.OBJECT CREVICE,0,FX?NDESCBIT,0,ADMIN-CORRIDOR-S,0,0,T?CREVICE
+	.OBJECT PHYSICAL-PLANT,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,STORAGE-EAST,0,T?PHYSICAL-PLANT
+	.OBJECT REACTOR-ELEVATOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,REACTOR-ACCESS-STAIRS,0,T?REACTOR-ELEVATOR
+	.OBJECT BETTY-CONTROL-WEST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,BETTY-CONTROL-EAST,0,T?BETTY-CONTROL-WEST
+	.OBJECT CHEMICAL-FLUID,0,0,0,0,0,0,T?CHEMICAL-FLUID
+	.OBJECT LOWER-ELEVATOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,UPPER-ELEVATOR,0,T?LOWER-ELEVATOR
+	.OBJECT MAGNET,0,0,FX?TAKEBIT+FX?TRYTAKEBIT,TOOL-ROOM,FLASK,0,T?MAGNET
+	.OBJECT RADIATION-LOCK-WEST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,BIO-LOCK-EAST,0,T?RADIATION-LOCK-WEST
+	.OBJECT UNDERWATER,0,FX?RWATERBIT+FX?ONBIT,0,ROOMS,BETTY-CONTROL-WEST,0,T?UNDERWATER
+	.OBJECT REC-AREA,0,FX?FLOYDBIT+FX?RLANDBIT+FX?ONBIT,0,ROOMS,PLAIN-HALL,COMBINATION-DIAL,T?REC-AREA
+	.OBJECT BLATHER,0,FX?VOWELBIT,FX?ACTORBIT,0,0,0,T?BLATHER
+	.OBJECT BIO-DOOR-EAST,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,CRYO-ELEVATOR-DOOR,0,T?BIO-DOOR-EAST
+	.OBJECT CANTEEN,0,FX?SEARCHBIT,FX?CONTBIT+FX?TAKEBIT,MESS-HALL,0,0,T?CANTEEN
+	.OBJECT OFFICE-DOOR,0,FX?NDESCBIT+FX?VOWELBIT,FX?DOORBIT,LOCAL-GLOBALS,RAD-DOOR-WEST,0,T?OFFICE-DOOR
+	.OBJECT ID-CARD,0,FX?VOWELBIT,FX?READBIT+FX?TAKEBIT,PATROL-UNIFORM,0,0,T?ID-CARD
+	.OBJECT ALFIE-CONTROL-EAST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,SHUTTLE-CAR-ALFIE,0,T?ALFIE-CONTROL-EAST
+	.OBJECT LADDER,0,0,FX?TAKEBIT,STORAGE-WEST,CAN,0,T?LADDER
+	.OBJECT COMPUTER-ROOM,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,PROJECT-CORRIDOR-EAST,PRINT-OUT,T?COMPUTER-ROOM
+	.OBJECT ADMIN-CORRIDOR-N,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,ADMIN-CORRIDOR,0,T?ADMIN-CORRIDOR-N
+	.OBJECT KITCHEN-DOOR,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,STORAGE-WEST-DOOR,0,T?KITCHEN-DOOR
+	.OBJECT MAIN-LAB,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,MINI-BOOTH,0,T?MAIN-LAB
+	.OBJECT SYSTEMS-CORRIDOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,SYSTEMS-CORRIDOR-WEST,0,T?SYSTEMS-CORRIDOR
+	.OBJECT LOWER-ELEVATOR-DOOR,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,UPPER-ELEVATOR-DOOR,0,T?LOWER-ELEVATOR-DOOR
+	.OBJECT MEGAFUSE-K,0,FX?ACIDBIT,FX?TAKEBIT,CARTON,MEGAFUSE-B,0,T?MEGAFUSE-K
+	.OBJECT FUNNEL-HOLE,0,FX?NDESCBIT,0,COMM-ROOM,COMM-SCREEN,0,T?FUNNEL-HOLE
+	.OBJECT CRYO-ELEVATOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,PROJCON-OFFICE,0,T?CRYO-ELEVATOR
+	.OBJECT WAITING-AREA,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,OBSERVATION-DECK,0,T?WAITING-AREA
+	.OBJECT REPAIR-ROOM,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,INFIRMARY,ROBOT-HOLE,T?REPAIR-ROOM
+	.OBJECT BIO-LAB,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,RADIATION-LOCK-EAST,TRIFFID,T?BIO-LAB
+	.OBJECT PLAYBACK-BUTTON,0,FX?NDESCBIT,0,COMM-ROOM,RECEIVE-CONSOLE,0,T?PLAYBACK-BUTTON
+	.OBJECT FIRST-BOARD,0,0,0,ACCESS-PANEL,0,0,T?FIRST-BOARD
+	.OBJECT CRYO-ELEVATOR-DOOR,0,FX?NDESCBIT,FX?INVISIBLE,LOCAL-GLOBALS,HELICOPTER-OBJECT,0,T?CRYO-ELEVATOR-DOOR
+	.OBJECT OBSERVATION-DECK,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,COMM-ROOM,0,T?OBSERVATION-DECK
+	.OBJECT LOWER-ELEVATOR-CARD,0,0,FX?READBIT+FX?TAKEBIT,0,0,0,T?LOWER-ELEVATOR-CARD
+	.OBJECT ACCESS-PANEL,0,FX?SEARCHBIT+FX?NDESCBIT+FX?VOWELBIT,FX?CONTBIT,PLANETARY-DEFENSE,0,SECOND-BOARD,T?ACCESS-PANEL
+	.OBJECT SCRUB-BRUSH,0,0,FX?TAKEBIT,ADVENTURER,0,0,T?SCRUB-BRUSH
+	.OBJECT GLOBAL-SHUTTLE,0,FX?NDESCBIT,0,LOCAL-GLOBALS,TELEPORTATION-BUTTON-3,0,T?GLOBAL-SHUTTLE
+	.OBJECT STORAGE-WEST-DOOR,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,CONFERENCE-DOOR,0,T?STORAGE-WEST-DOOR
+	.OBJECT LARGE-OFFICE,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,SMALL-OFFICE,LARGE-DESK,T?LARGE-OFFICE
+	.OBJECT CONFERENCE-ROOM,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,REC-AREA,0,T?CONFERENCE-ROOM
+	.OBJECT TELEPORTATION-CARD,0,0,FX?READBIT+FX?TAKEBIT,LAB-UNIFORM,0,0,T?TELEPORTATION-CARD
+	.OBJECT PLIERS,0,0,FX?TAKEBIT,TOOL-ROOM,MAGNET,0,T?PLIERS
+	.OBJECT MEGAFUSE-B,0,FX?ACIDBIT,FX?TAKEBIT,CARTON,CRACKED-BOARD,0,T?MEGAFUSE-B
+	.OBJECT PLANETARY-DEFENSE,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,PHYSICAL-PLANT-TWO,ACCESS-PANEL,T?PLANETARY-DEFENSE
+	.OBJECT LEVER,0,FX?NDESCBIT,0,LOCAL-GLOBALS,GLOBAL-SHUTTLE,0,T?LEVER
+	.OBJECT LIBRARY-LOBBY,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,PLANETARY-COURSE-CONTROL,TERMINAL,T?LIBRARY-LOBBY
+	.OBJECT CLIFF,0,FX?NDESCBIT,0,LOCAL-GLOBALS,WINDOW,0,T?CLIFF
+	.OBJECT BIO-LOCK-EAST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,BIO-LOCK-WEST,MINI-CARD,T?BIO-LOCK-EAST
+	.OBJECT RECEIVE-CONSOLE,0,FX?NDESCBIT,0,COMM-ROOM,0,0,T?RECEIVE-CONSOLE
+	.OBJECT STRIP-NEAR-RELAY,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,MIDDLE-OF-STRIP,RELAY,T?STRIP-NEAR-RELAY
+	.OBJECT AMBASSADOR,0,FX?VOWELBIT,FX?ACTORBIT,0,0,0,T?AMBASSADOR
+	.OBJECT BED,0,FX?NDESCBIT,FX?VEHBIT+FX?CLIMBBIT,LOCAL-GLOBALS,SHUTTLE-DOOR,0,T?BED
+	.OBJECT LAB-UNIFORM,0,FX?SEARCHBIT,FX?WEARBIT+FX?CONTBIT+FX?TAKEBIT,LAB-STORAGE,0,COMBINATION-PAPER,T?LAB-UNIFORM
+	.OBJECT PADLOCK,0,FX?NDESCBIT+FX?MUNGBIT,FX?TRYTAKEBIT+FX?TAKEBIT,MESS-CORRIDOR,0,0,T?PADLOCK
+	.OBJECT LIGHT-BUTTON,0,FX?NDESCBIT,0,LAB-OFFICE,LAB-DESK,0,T?LIGHT-BUTTON
+	.OBJECT SQUARE-WHITE-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,ROUND-WHITE-BUTTON,0,T?SQUARE-WHITE-BUTTON
+	.OBJECT DIARY-BUTTON,0,FX?NDESCBIT,0,DIARY,0,0,T?DIARY-BUTTON
+	.OBJECT RAD-DOOR-EAST,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,BIO-DOOR-WEST,0,T?RAD-DOOR-EAST
+	.OBJECT GLOBAL-POD,0,FX?NDESCBIT+FX?VOWELBIT,FX?VEHBIT,LOCAL-GLOBALS,CONTROLS,0,T?GLOBAL-POD
+	.OBJECT STATION-384,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,AUXILIARY-BOOTH,0,T?STATION-384
+	.OBJECT MESS-HALL,0,FX?RLANDBIT+FX?FLOYDBIT+FX?ONBIT,0,ROOMS,DORM-CORRIDOR,CANTEEN,T?MESS-HALL
+	.OBJECT SYSTEMS-MONITORS,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,SANFAC-E,0,T?SYSTEMS-MONITORS
+	.OBJECT DARK-BUTTON,0,FX?NDESCBIT,0,LAB-OFFICE,LIGHT-BUTTON,0,T?DARK-BUTTON
+	.OBJECT TOWEL,0,0,FX?TAKEBIT+FX?READBIT,0,0,0,T?TOWEL
+	.OBJECT TELEPORTATION-BUTTON-2,0,FX?NDESCBIT,0,LOCAL-GLOBALS,TELEPORTATION-BUTTON-1,0,T?TELEPORTATION-BUTTON-2
+	.OBJECT SANFAC-B,0,FX?RLANDBIT+FX?ONBIT+FX?FLOYDBIT,0,ROOMS,DORM-B,0,T?SANFAC-B
+	.OBJECT DEAD-FLOYD,0,0,0,0,0,0,T?DEAD-FLOYD
+	.OBJECT FORK,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,ESCALATOR,0,T?FORK
+	.OBJECT MEDICINE,0,0,FX?FOODBIT,MEDICINE-BOTTLE,0,0,T?MEDICINE
+	.OBJECT DORM-CORRIDOR,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,STORAGE-WEST,0,T?DORM-CORRIDOR
+	.OBJECT RIFT,0,FX?NDESCBIT,0,LOCAL-GLOBALS,KITCHEN-DOOR,0,T?RIFT
+	.OBJECT LIBRARY,0,FX?FLOYDBIT+FX?ONBIT+FX?RLANDBIT,0,ROOMS,BOOTH-3,SPOOL-READER,T?LIBRARY
+	.OBJECT CELERY,0,FX?NDESCBIT,FX?FOODBIT,0,0,0,T?CELERY
+	.OBJECT GREEN-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,BLUE-BUTTON,0,T?GREEN-BUTTON
+	.OBJECT TERMINAL,0,0,FX?LIGHTBIT,LIBRARY-LOBBY,GREEN-SPOOL,0,T?TERMINAL
+	.OBJECT RED-SPOOL,0,FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,INFIRMARY,0,0,T?RED-SPOOL
+	.OBJECT LASER-DIAL,0,FX?NDESCBIT+FX?MUNGBIT,0,LASER,0,0,T?LASER-DIAL
+	.OBJECT SANFAC-F,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,PROJECT-CORRIDOR-WEST,0,T?SANFAC-F
+	.OBJECT LAMP,0,0,FX?TAKEBIT,RADIATION-LAB,BROWN-SPOOL,0,T?LAMP
+	.OBJECT PROJECT-CORRIDOR-EAST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,CRYO-ANTEROOM,0,T?PROJECT-CORRIDOR-EAST
+	.OBJECT ESCAPE-POD,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,DECK-EIGHT,SAFETY-WEB,T?ESCAPE-POD
+	.OBJECT TOWER-CORE,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,BOOTH-2,0,T?TOWER-CORE
+	.OBJECT RAT-ANT,0,0,FX?ACTORBIT,BIO-LAB,0,0,T?RAT-ANT
+	.OBJECT SHELVES,0,FX?NDESCBIT,0,LOCAL-GLOBALS,TABLES,0,T?SHELVES
+	.OBJECT BROWN-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,GRAY-BUTTON,0,T?BROWN-BUTTON
+	.OBJECT BLUE-ELEVATOR-BUTTON,0,FX?NDESCBIT,0,ELEVATOR-LOBBY,0,0,T?BLUE-ELEVATOR-BUTTON
+	.OBJECT MEMO,0,FX?ACIDBIT,FX?TAKEBIT+FX?READBIT,0,0,0,T?MEMO
+	.OBJECT TROLL,0,0,FX?ACTORBIT,BIO-LAB,RAT-ANT,0,T?TROLL
+	.OBJECT BIO-DOOR-WEST,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,BIO-DOOR-EAST,0,T?BIO-DOOR-WEST
+	.OBJECT CUBE,0,FX?SEARCHBIT+FX?NDESCBIT+FX?MUNGBIT,FX?CONTBIT,PLANETARY-COURSE-CONTROL,0,BAD-BEDISTOR,T?CUBE
+	.OBJECT BROWN-SPOOL,0,FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,RADIATION-LAB,0,0,T?BROWN-SPOOL
+	.OBJECT SLOT,0,FX?NDESCBIT,0,LOCAL-GLOBALS,GANGWAY-DOOR,0,T?SLOT
+	.OBJECT SHUTTLE-CAR-ALFIE,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,ESCAPE-POD,0,T?SHUTTLE-CAR-ALFIE
+	.OBJECT CRACKED-BOARD,0,FX?ACIDBIT,FX?TAKEBIT,CARTON,0,0,T?CRACKED-BOARD
+	.OBJECT HELICOPTER,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,HELIPAD,0,T?HELICOPTER
+	.OBJECT POD-DOOR,0,FX?NDESCBIT+FX?VOWELBIT,FX?DOORBIT,LOCAL-GLOBALS,GLOBAL-POD,0,T?POD-DOOR
+	.OBJECT DORM-D,0,FX?RLANDBIT+FX?ONBIT+FX?FLOYDBIT,0,ROOMS,SANFAC-C,0,T?DORM-D
+	.OBJECT BOOTH-3,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,LIBRARY-LOBBY,0,T?BOOTH-3
+	.OBJECT HIGH-PROTEIN,0,0,FX?FOODBIT,0,0,0,T?HIGH-PROTEIN
+	.OBJECT GRUE,0,0,FX?ACTORBIT,BIO-LAB,TROLL,0,T?GRUE
+	.OBJECT STORAGE-WEST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,MESS-CORRIDOR,LADDER,T?STORAGE-WEST
+	.OBJECT MEDICINE-BOTTLE,0,FX?TRANSBIT+FX?SEARCHBIT,FX?READBIT+FX?TAKEBIT+FX?CONTBIT,INFIRMARY,RED-SPOOL,MEDICINE,T?MEDICINE-BOTTLE
+	.OBJECT SYSTEMS-CORRIDOR-EAST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,SYSTEMS-CORRIDOR,0,T?SYSTEMS-CORRIDOR-EAST
+	.OBJECT CRYO-ANTEROOM,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,CRYO-ELEVATOR,0,T?CRYO-ANTEROOM
+	.OBJECT WEST-WING,0,FX?FLOYDBIT+FX?RLANDBIT+FX?ONBIT,0,ROOMS,COURTYARD,0,T?WEST-WING
+	.OBJECT KITCHEN-CARD,0,0,FX?READBIT+FX?TAKEBIT,SMALL-DESK,0,0,T?KITCHEN-CARD
+	.OBJECT STAIRS,0,FX?NDESCBIT,FX?CLIMBBIT,LOCAL-GLOBALS,0,0,T?STAIRS
+	.OBJECT BOOTH-1,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,CONFERENCE-ROOM,0,T?BOOTH-1
+	.OBJECT CHEMICAL-DISPENSER,0,FX?NDESCBIT+FX?MUNGBIT,0,MACHINE-SHOP,0,0,T?CHEMICAL-DISPENSER
+	.OBJECT RELAY,0,FX?TRANSBIT+FX?NDESCBIT,0,STRIP-NEAR-RELAY,0,SPECK,T?RELAY
+	.OBJECT PHYSICAL-PLANT-TWO,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,SYSTEMS-CORRIDOR-EAST,0,T?PHYSICAL-PLANT-TWO
+	.OBJECT SECOND-BOARD,0,0,FX?TAKEBIT+FX?TRYTAKEBIT,ACCESS-PANEL,THIRD-BOARD,0,T?SECOND-BOARD
+	.OBJECT CAN,0,0,FX?TAKEBIT,STORAGE-WEST,0,0,T?CAN
+	.OBJECT LAB-OFFICE,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,RADIATION-LAB,FUNGICIDE-BUTTON,T?LAB-OFFICE
+	.OBJECT SHUTTLE-CARD,0,0,FX?READBIT+FX?TAKEBIT,LARGE-DESK,0,0,T?SHUTTLE-CARD
+	.OBJECT GROUND,0,FX?NDESCBIT,0,GLOBAL-OBJECTS,IT,0,T?GROUND
+	.OBJECT LAB-DESK,0,FX?NDESCBIT+FX?SEARCHBIT,FX?CONTBIT,LAB-OFFICE,0,GAS-MASK,T?LAB-DESK
+	.OBJECT FUNGICIDE-BUTTON,0,FX?NDESCBIT,0,LAB-OFFICE,DARK-BUTTON,0,T?FUNGICIDE-BUTTON
+	.OBJECT TABLES,0,FX?NDESCBIT,0,LOCAL-GLOBALS,OCEAN,0,T?TABLES
+	.OBJECT NOT-HERE-OBJECT,0,0,0,0,0,0,T?NOT-HERE-OBJECT
+	.OBJECT SANFAC-A,0,FX?FLOYDBIT+FX?RLANDBIT+FX?ONBIT,0,ROOMS,DORM-A,0,T?SANFAC-A
+	.OBJECT COMBINATION-PAPER,0,FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,LAB-UNIFORM,TELEPORTATION-CARD,0,T?COMBINATION-PAPER
+	.OBJECT DECK-EIGHT,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,GANGWAY,0,T?DECK-EIGHT
+	.OBJECT GANGWAY-DOOR,0,FX?NDESCBIT+FX?OPENBIT,FX?DOORBIT+FX?INVISIBLE,LOCAL-GLOBALS,CORRIDOR-DOOR,0,T?GANGWAY-DOOR
+	.OBJECT MICROBE,0,0,FX?ACTORBIT,0,0,0,T?MICROBE
+	.OBJECT INTNUM,0,0,0,GLOBAL-OBJECTS,LOCAL-GLOBALS,0,T?INTNUM
+	.OBJECT GLOBAL-GAMES,0,FX?NDESCBIT,0,GLOBAL-OBJECTS,GLOBAL-DOORWAY,0,T?GLOBAL-GAMES
+	.OBJECT FOOD-KIT,0,FX?SEARCHBIT,FX?CONTBIT+FX?TAKEBIT,0,0,GREEN-GOO,T?FOOD-KIT
+	.OBJECT SLEEP,0,FX?NDESCBIT,0,GLOBAL-OBJECTS,HANDS,0,T?SLEEP
+	.OBJECT BIO-LOCK-WEST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,LAB-STORAGE,0,T?BIO-LOCK-WEST
+	.OBJECT MESS-CORRIDOR,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,SANFAC-D,PADLOCK,T?MESS-CORRIDOR
+	.OBJECT DISPENSER,0,FX?NDESCBIT+FX?TRANSBIT+FX?OPENBIT+FX?SEARCHBIT+FX?MUNGBIT,FX?CONTBIT,KITCHEN,0,0,T?DISPENSER
+	.OBJECT SANFAC-E,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,ADMIN-CORRIDOR-N,0,T?SANFAC-E
+	.OBJECT DIARY,0,FX?TRANSBIT+FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,ADVENTURER,PATROL-UNIFORM,DIARY-BUTTON,T?DIARY
+	.OBJECT RAD-DOOR-WEST,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,RAD-DOOR-EAST,0,T?RAD-DOOR-WEST
+	.OBJECT MINI-CARD,0,FX?NDESCBIT,FX?READBIT+FX?INVISIBLE+FX?TAKEBIT,BIO-LOCK-EAST,0,0,T?MINI-CARD
+	.OBJECT RED-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,CHEMICAL-DISPENSER,0,T?RED-BUTTON
+	.OBJECT GLOBAL-DOORWAY,0,FX?NDESCBIT,0,GLOBAL-OBJECTS,GROUND,0,T?GLOBAL-DOORWAY
+	.OBJECT UPPER-ELEVATOR-DOOR,0,FX?NDESCBIT,FX?DOORBIT,LOCAL-GLOBALS,REACTOR-ELEVATOR-DOOR,0,T?UPPER-ELEVATOR-DOOR
+	.OBJECT HELICOPTER-OBJECT,0,FX?NDESCBIT,FX?VEHBIT,LOCAL-GLOBALS,ELEVATOR-BUTTON,0,T?HELICOPTER-OBJECT
+	.OBJECT TRIFFID,0,0,FX?ACTORBIT,BIO-LAB,GRUE,0,T?TRIFFID
+	.OBJECT ROBOT-SHOP,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,MACHINE-SHOP,FLOYD,T?ROBOT-SHOP
+	.OBJECT ESCALATOR,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,LAWANDA-PLATFORM,0,T?ESCALATOR
+	.OBJECT GANGWAY,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,REACTOR-LOBBY,0,T?GANGWAY
+	.OBJECT SAFETY-WEB,0,FX?NDESCBIT,FX?VEHBIT+FX?CLIMBBIT,ESCAPE-POD,0,0,T?SAFETY-WEB
+	.OBJECT BROCHURE,0,FX?ACIDBIT,FX?READBIT+FX?TAKEBIT,0,0,0,T?BROCHURE
+	.OBJECT TOOL-ROOM,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,REACTOR-ELEVATOR,LASER,T?TOOL-ROOM
+	.OBJECT BLUE-BUTTON,0,FX?NDESCBIT,0,MACHINE-SHOP,RED-BUTTON,0,T?BLUE-BUTTON
+	.OBJECT UPPER-ELEVATOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,ELEVATOR-LOBBY,0,T?UPPER-ELEVATOR
+	.OBJECT DORM-C,0,FX?RLANDBIT+FX?FLOYDBIT+FX?ONBIT,0,ROOMS,SANFAC-B,0,T?DORM-C
+	.OBJECT LAWANDA-PLATFORM,0,FX?ONBIT+FX?RLANDBIT+FX?FLOYDBIT,0,ROOMS,KALAMONTEE-PLATFORM,0,T?LAWANDA-PLATFORM
+	.OBJECT AUXILIARY-BOOTH,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,LAB-OFFICE,0,T?AUXILIARY-BOOTH
+	.OBJECT ALFIE-CONTROL-WEST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,ALFIE-CONTROL-EAST,0,T?ALFIE-CONTROL-WEST
+	.OBJECT SPOOL-READER,0,FX?OPENBIT+FX?SEARCHBIT,FX?CONTBIT+FX?LIGHTBIT,LIBRARY,0,0,T?SPOOL-READER
+	.OBJECT PATROL-UNIFORM,0,FX?OPENBIT+FX?SEARCHBIT+FX?WORNBIT,FX?CONTBIT+FX?WEARBIT+FX?TAKEBIT,ADVENTURER,CHRONOMETER,ID-CARD,T?PATROL-UNIFORM
+	.OBJECT ROBOT-HOLE,0,FX?TRANSBIT+FX?NDESCBIT,FX?CONTBIT,REPAIR-ROOM,ACHILLES,GOOD-BOARD,T?ROBOT-HOLE
+	.OBJECT RADIATION-LOCK-EAST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,RADIATION-LOCK-WEST,0,T?RADIATION-LOCK-EAST
+	.OBJECT RADIATION-LAB,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,BIO-LAB,LAMP,T?RADIATION-LAB
+	.OBJECT OCEAN,0,FX?NDESCBIT+FX?VOWELBIT,0,LOCAL-GLOBALS,CLIFF,0,T?OCEAN
+	.OBJECT SEND-CONSOLE,0,FX?NDESCBIT,0,COMM-ROOM,PLAYBACK-BUTTON,0,T?SEND-CONSOLE
+	.OBJECT PLAIN-HALL,0,FX?RLANDBIT+FX?ONBIT,0,ROOMS,WEST-WING,0,T?PLAIN-HALL
+	.OBJECT MECH-CORRIDOR,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,MECH-CORRIDOR-N,0,T?MECH-CORRIDOR
+	.OBJECT REACTOR-ELEVATOR-DOOR,0,0,FX?DOORBIT,LOCAL-GLOBALS,RIFT,0,T?REACTOR-ELEVATOR-DOOR
+	.OBJECT RED-GOO,0,FX?ACIDBIT,FX?FOODBIT,FOOD-KIT,0,0,T?RED-GOO
+	.OBJECT RED-ELEVATOR-BUTTON,0,FX?NDESCBIT,0,ELEVATOR-LOBBY,BLUE-ELEVATOR-BUTTON,0,T?RED-ELEVATOR-BUTTON
+	.OBJECT FOURTH-BOARD,0,0,0,ACCESS-PANEL,FIRST-BOARD,0,T?FOURTH-BOARD
+	.OBJECT MACHINE-SHOP,0,FX?ONBIT+FX?FLOYDBIT+FX?RLANDBIT,0,ROOMS,TOOL-ROOM,SQUARE-WHITE-BUTTON,T?MACHINE-SHOP
+	.OBJECT PSEUDO-OBJECT,0,0,0,0,0,0,T?PSEUDO-OBJECT
+	.OBJECT BETTY-CONTROL-EAST,0,FX?ONBIT+FX?RLANDBIT,0,ROOMS,SHUTTLE-CAR-BETTY,0,T?BETTY-CONTROL-EAST
+	.OBJECT ELEVATOR-BUTTON,0,FX?NDESCBIT,0,LOCAL-GLOBALS,LOWER-ELEVATOR-DOOR,0,T?ELEVATOR-BUTTON
+	.ENDT
+
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+OBJPRP::
+
+T?DORM-B::	.TABLE			; TABLE FOR OBJECT DORM-B
+	.STRL "Dorm B"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	SANFAC-B		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	REC-CORRIDOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?134
+	.PROP 2,P?C-MOVE
+	T?1406
+	.PROP 4,P?PSEUDO
+	W?PARTITION		; NAME
+	PARTITION-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	BED
+	.BYTE	0
+	.ENDT
+
+T?FRIED-BOARD::	.TABLE			; TABLE FOR OBJECT FRIED-BOARD
+	.STRL "fried seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	FRIED-BOARD-F
+	.PROP 8,P?ADJECTIVE
+	W?FRIED
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?MINI-BOOTH::	.TABLE			; TABLE FOR OBJECT MINI-BOOTH
+	.STRL "Miniaturization Booth"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	COMPUTER-ROOM		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	COMPUTER-ROOM		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?281
+	.PROP 2,P?C-MOVE
+	T?2307
+	.PROP 8,P?PSEUDO
+	W?KEYBOARD		; NAME
+	KEYBOARD-PSEUDO		; HANDLER
+	W?BOOTH		; NAME
+	IN-BOOTH-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	SLOT
+	.BYTE	0
+	.ENDT
+
+T?CHRONOMETER::	.TABLE			; TABLE FOR OBJECT CHRONOMETER
+	.STRL "chronometer"
+	.PROP 6,P?SYNONYM
+	W?CHRONOMETER
+	W?WRISTWATCH
+	W?WATCH
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	CHRONOMETER-F
+	.PROP 2,P?ADJECTIVE
+	W?WRIST
+	.BYTE	0
+	.ENDT
+
+T?WINDING-STAIR::	.TABLE			; TABLE FOR OBJECT WINDING-STAIR
+	.STRL "Winding Stair"
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	COURTYARD		; TO ROOM
+	.PROP 4,P?DOWN		; CONDITIONAL EXIT
+	WATER-LEVEL-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?ACTION
+	WINDING-STAIR-F
+	.PROP 2,P?C-MOVE
+	T?406
+	.PROP 4,P?GLOBAL
+	CLIFF
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?OIL-CAN::	.TABLE			; TABLE FOR OBJECT OIL-CAN
+	.STRL "oil can"
+	.PROP 2,P?SYNONYM
+	W?CAN
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	OIL-CAN-F
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?OIL
+	.PROP 2,P?FDESC
+	STR?161
+	.BYTE	0
+	.ENDT
+
+T?LAB-STORAGE::	.TABLE			; TABLE FOR OBJECT LAB-STORAGE
+	.STRL "Lab Storage"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MAIN-LAB		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	MAIN-LAB		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?284
+	.PROP 2,P?C-MOVE
+	T?2507
+	.PROP 8,P?PSEUDO
+	W?RACK		; NAME
+	CARPET-PSEUDO		; HANDLER
+	W?SUPPLIES		; NAME
+	SUPPLIES-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	SHELVES
+	.BYTE	0
+	.ENDT
+
+T?REC-CORRIDOR::	.TABLE			; TABLE FOR OBJECT REC-CORRIDOR
+	.STRL "Rec Corridor"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	DORM-B		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	MESS-CORRIDOR		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	DORM-A		; TO ROOM
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	PLAIN-HALL		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	REC-AREA		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?133
+	.PROP 2,P?C-MOVE
+	T?1106
+	.BYTE	0
+	.ENDT
+
+T?MECH-CORRIDOR-S::	.TABLE			; TABLE FOR OBJECT MECH-CORRIDOR-S
+	.STRL "Mech Corridor South"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR		; TO ROOM
+	.PROP 2,P?SE		; UNCONDITIONAL EXIT
+	ROBOT-SHOP		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	MACHINE-SHOP		; TO ROOM
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	TOOL-ROOM		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?159
+	.PROP 2,P?C-MOVE
+	T?3706
+	.BYTE	0
+	.ENDT
+
+T?HANDS::	.TABLE			; TABLE FOR OBJECT HANDS
+	.STRL "pair of hands"
+	.PROP 4,P?SYNONYM
+	W?PAIR
+	W?HANDS
+	.PROP 2,P?ACTION
+	HANDS-F
+	.PROP 2,P?ADJECTIVE
+	W?BARE
+	.BYTE	0
+	.ENDT
+
+T?TELEPORTATION-BUTTON-1::	.TABLE			; TABLE FOR OBJECT TELEPORTATION-BUTTON-1
+	.STRL "brown button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	TELEPORTATION-BUTTON-1-F
+	.PROP 4,P?ADJECTIVE
+	W?BROWN
+	W?FIRST
+	.BYTE	0
+	.ENDT
+
+T?KEY::	.TABLE			; TABLE FOR OBJECT KEY
+	.STRL "key"
+	.PROP 6,P?SYNONYM
+	W?KEY
+	W?METAL
+	W?OBJECT
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?ACTION
+	KEY-F
+	.PROP 8,P?ADJECTIVE
+	W?PIECE
+	W?STEEL
+	W?IRON
+	W?SHINY
+	.PROP 2,P?FDESC
+	STR?147
+	.BYTE	0
+	.ENDT
+
+T?PLANETARY-COURSE-CONTROL::	.TABLE			; TABLE FOR OBJECT PLANETARY-COURSE-CONTROL
+	.STRL "Course Control"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?ACTION
+	PLANETARY-COURSE-CONTROL-F
+	.PROP 2,P?C-MOVE
+	T?1107
+	.PROP 4,P?GLOBAL
+	CONTROLS
+	LIGHTS
+	.BYTE	0
+	.ENDT
+
+T?REACTOR-ACCESS-STAIRS::	.TABLE			; TABLE FOR OBJECT REACTOR-ACCESS-STAIRS
+	.STRL "Reactor Access Stairs"
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	REACTOR-CONTROL		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	REACTOR-ACCESS-STAIRS		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?151
+	.PROP 2,P?C-MOVE
+	T?4106
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?GRAY-BUTTON::	.TABLE			; TABLE FOR OBJECT GRAY-BUTTON
+	.STRL "gray button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?GRAY
+	W?GREY
+	.PROP 2,P?C-MOVE
+	5
+	.BYTE	0
+	.ENDT
+
+T?MIDDLE-OF-STRIP::	.TABLE			; TABLE FOR OBJECT MIDDLE-OF-STRIP
+	.STRL "Middle of Strip"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	STRIP-NEAR-RELAY		; TO ROOM
+	.PROP 3,P?EAST		; IMPOSSIBLE EXIT
+	STR?319		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	STRIP-NEAR-STATION		; TO ROOM
+	STR?318		; FAILURE MESSAGE
+	.BYTE NO-MICROBE		; IF FLAG IS TRUE
+	.PROP 3,P?WEST		; IMPOSSIBLE EXIT
+	STR?319		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	MIDDLE-OF-STRIP-F
+	.PROP 2,P?LDESC
+	STR?317
+	.PROP 2,P?C-MOVE
+	T?3607
+	.PROP 4,P?PSEUDO
+	W?VOID		; NAME
+	VOID-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STRIP
+	.BYTE	0
+	.ENDT
+
+T?PLAN-ROOM::	.TABLE			; TABLE FOR OBJECT PLAN-ROOM
+	.STRL "Plan Room"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?150
+	.PROP 2,P?C-MOVE
+	T?3106
+	.PROP 8,P?PSEUDO
+	W?CUBBYHOLE		; NAME
+	CUBBYHOLE-PSEUDO		; HANDLER
+	W?MAPS		; NAME
+	MAPS-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?GREEN-SPOOL::	.TABLE			; TABLE FOR OBJECT GREEN-SPOOL
+	.STRL "green spool"
+	.PROP 6,P?SYNONYM
+	W?SPOOL
+	W?SPOOLS
+	W?OBJECT
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?ACTION
+	GREEN-SPOOL-F
+	.PROP 4,P?ADJECTIVE
+	W?GREEN
+	W?SMALL
+	.PROP 2,P?TEXT
+	STR?233
+	.PROP 2,P?FDESC
+	STR?232
+	.BYTE	0
+	.ENDT
+
+T?SPECK::	.TABLE			; TABLE FOR OBJECT SPECK
+	.STRL "speck"
+	.PROP 6,P?SYNONYM
+	W?SPECK
+	W?BOULDER
+	W?IMPURITY
+	.PROP 2,P?ADJECTIVE
+	W?BLUE
+	.BYTE	0
+	.ENDT
+
+T?CORRIDOR-DOOR::	.TABLE			; TABLE FOR OBJECT CORRIDOR-DOOR
+	.STRL "wide bulkhead"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?BULKHEAD
+	.PROP 2,P?ACTION
+	GANGWAY-DOOR-F
+	.PROP 4,P?ADJECTIVE
+	W?EMERGENCY
+	W?WIDE
+	.BYTE	0
+	.ENDT
+
+T?COURTYARD::	.TABLE			; TABLE FOR OBJECT COURTYARD
+	.STRL "Courtyard"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	PLAIN-HALL		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	WINDING-STAIR		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	WEST-WING		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	WINDING-STAIR		; TO ROOM
+	.PROP 2,P?ACTION
+	COURTYARD-F
+	.PROP 2,P?C-MOVE
+	T?506
+	.PROP 8,P?PSEUDO
+	W?CASTLE		; NAME
+	CASTLE-PSEUDO		; HANDLER
+	W?RUBBLE		; NAME
+	RUBBLE-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?WINDOW::	.TABLE			; TABLE FOR OBJECT WINDOW
+	.STRL "window"
+	.PROP 6,P?SYNONYM
+	W?WINDOW
+	W?PORT
+	W?VIEWPORT
+	.PROP 2,P?ACTION
+	WINDOW-F
+	.PROP 2,P?ADJECTIVE
+	W?VIEW
+	.BYTE	0
+	.ENDT
+
+T?TELEPORTATION-BUTTON-3::	.TABLE			; TABLE FOR OBJECT TELEPORTATION-BUTTON-3
+	.STRL "tan button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	TELEPORTATION-BUTTON-3-F
+	.PROP 4,P?ADJECTIVE
+	W?TAN
+	W?THIRD
+	.BYTE	0
+	.ENDT
+
+T?REACTOR-LOBBY::	.TABLE			; TABLE FOR OBJECT REACTOR-LOBBY
+	.STRL "Reactor Lobby"
+	.PROP 3,P?EAST		; IMPOSSIBLE EXIT
+	STR?72		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?71		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	DECK-NINE		; TO ROOM
+	CORRIDOR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?LDESC
+	STR?70
+	.PROP 2,P?C-MOVE
+	T?505
+	.PROP 2,P?GLOBAL
+	CORRIDOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?SANFAC-D::	.TABLE			; TABLE FOR OBJECT SANFAC-D
+	.STRL "SanFac D"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	DORM-D		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?136
+	.PROP 2,P?C-MOVE
+	T?1906
+	.PROP 8,P?PSEUDO
+	W?FIXTURES		; NAME
+	TOILET-PSEUDO		; HANDLER
+	W?TOILET		; NAME
+	TOILET-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?SYSTEMS-CORRIDOR-WEST::	.TABLE			; TABLE FOR OBJECT SYSTEMS-CORRIDOR-WEST
+	.STRL "Systems Corridor West"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	REPAIR-ROOM		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR		; TO ROOM
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	FORK		; TO ROOM
+	.PROP 2,P?NW		; UNCONDITIONAL EXIT
+	INFIRMARY		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	REPAIR-ROOM		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?227
+	.PROP 2,P?C-MOVE
+	T?607
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?BROWN-GOO::	.TABLE			; TABLE FOR OBJECT BROWN-GOO
+	.STRL "blob of brown goo"
+	.PROP 8,P?SYNONYM
+	W?GOO
+	W?BLOB
+	W?FOOD
+	W?STEW
+	.PROP 2,P?ACTION
+	GOO-F
+	.PROP 4,P?ADJECTIVE
+	W?BROWN
+	W?BEEF
+	.BYTE	0
+	.ENDT
+
+T?GAS-MASK::	.TABLE			; TABLE FOR OBJECT GAS-MASK
+	.STRL "gas mask"
+	.PROP 2,P?SYNONYM
+	W?MASK
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ADJECTIVE
+	W?GAS
+	.BYTE	0
+	.ENDT
+
+T?INFIRMARY::	.TABLE			; TABLE FOR OBJECT INFIRMARY
+	.STRL "Infirmary"
+	.PROP 2,P?SE		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?ACTION
+	INFIRMARY-F
+	.PROP 2,P?LDESC
+	STR?218
+	.PROP 2,P?C-MOVE
+	T?407
+	.PROP 8,P?PSEUDO
+	W?EQUIPMENT		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	W?MACHINE		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	BED
+	SHELVES
+	.BYTE	0
+	.ENDT
+
+T?NEW-BATTERY::	.TABLE			; TABLE FOR OBJECT NEW-BATTERY
+	.STRL "new battery"
+	.PROP 4,P?SYNONYM
+	W?OBJECT
+	W?BATTERY
+	.PROP 2,P?SIZE
+	5
+	.PROP 10,P?ADJECTIVE
+	W?LASER
+	W?SMALL
+	W?ROUND
+	W?FRESH
+	W?NEW
+	.PROP 2,P?FDESC
+	STR?323
+	.BYTE	0
+	.ENDT
+
+T?FLOYD::	.TABLE			; TABLE FOR OBJECT FLOYD
+	.STRL "multiple purpose robot"
+	.PROP 8,P?SYNONYM
+	W?FLOYD
+	W?COMPARTMENT
+	W?ROBOT
+	W?COMPANION
+	.PROP 2,P?ACTION
+	FLOYD-F
+	.PROP 10,P?ADJECTIVE
+	W?MULTIPLE
+	W?PURPOSE
+	W?DIM-WITTED
+	W?DIM
+	W?WITTED
+	.PROP 2,P?CAPACITY
+	5
+	.PROP 2,P?FDESC
+	STR?179
+	.BYTE	0
+	.ENDT
+
+T?ME::	.TABLE			; TABLE FOR OBJECT ME
+	.STRL "you"
+	.PROP 8,P?SYNONYM
+	W?ME
+	W?MYSELF
+	W?SELF
+	W?WE
+	.PROP 2,P?ACTION
+	CRETIN-F
+	.BYTE	0
+	.ENDT
+
+T?KALAMONTEE-PLATFORM::	.TABLE			; TABLE FOR OBJECT KALAMONTEE-PLATFORM
+	.STRL "Kalamontee Platform"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	SHUTTLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	SHUTTLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	WAITING-AREA		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?ACTION
+	KALAMONTEE-PLATFORM-F
+	.PROP 2,P?C-MOVE
+	T?5806
+	.PROP 2,P?GLOBAL
+	GLOBAL-SHUTTLE
+	.BYTE	0
+	.ENDT
+
+T?BLACK-BUTTON::	.TABLE			; TABLE FOR OBJECT BLACK-BUTTON
+	.STRL "black button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?BLACK
+	.PROP 2,P?C-MOVE
+	7
+	.BYTE	0
+	.ENDT
+
+T?ELEVATOR-LOBBY::	.TABLE			; TABLE FOR OBJECT ELEVATOR-LOBBY
+	.STRL "Elevator Lobby"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	ELEVATOR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	BOOTH-2		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	ELEVATOR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	CORRIDOR-JUNCTION		; TO ROOM
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	BOOTH-2		; TO ROOM
+	.PROP 2,P?ACTION
+	ELEVATOR-LOBBY-F
+	.PROP 2,P?C-MOVE
+	T?4606
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	NEAR-BOOTH-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	UPPER-ELEVATOR-DOOR
+	LOWER-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?ACHILLES::	.TABLE			; TABLE FOR OBJECT ACHILLES
+	.STRL "broken robot"
+	.PROP 4,P?SYNONYM
+	W?ROBOT
+	W?ACHILLES
+	.PROP 4,P?ADJECTIVE
+	W?BROKEN
+	W?DEAD
+	.PROP 2,P?LDESC
+	STR?226
+	.BYTE	0
+	.ENDT
+
+T?DORM-A::	.TABLE			; TABLE FOR OBJECT DORM-A
+	.STRL "Dorm A"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	REC-CORRIDOR		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	SANFAC-A		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?134
+	.PROP 2,P?C-MOVE
+	T?1206
+	.PROP 4,P?PSEUDO
+	W?PARTITION		; NAME
+	PARTITION-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	BED
+	.BYTE	0
+	.ENDT
+
+T?KITCHEN::	.TABLE			; TABLE FOR OBJECT KITCHEN
+	.STRL "Kitchen"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MESS-HALL		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	MESS-HALL		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?LDESC
+	STR?143
+	.PROP 2,P?C-MOVE
+	T?2406
+	.PROP 8,P?PSEUDO
+	W?SPOUT		; NAME
+	SPOUT-PSEUDO		; HANDLER
+	W?BUTTON		; NAME
+	BUTTON-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	KITCHEN-DOOR
+	.BYTE	0
+	.ENDT
+
+T?BALCONY::	.TABLE			; TABLE FOR OBJECT BALCONY
+	.STRL "Balcony"
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	WINDING-STAIR		; TO ROOM
+	.PROP 4,P?DOWN		; CONDITIONAL EXIT
+	WATER-LEVEL-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?ACTION
+	BALCONY-F
+	.PROP 2,P?C-MOVE
+	T?306
+	.PROP 4,P?PSEUDO
+	W?PLAQUE		; NAME
+	PLAQUE-PSEUDO		; HANDLER
+	.PROP 8,P?GLOBAL
+	CLIFF
+	OCEAN
+	STAIRS
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?REACTOR-CONTROL::	.TABLE			; TABLE FOR OBJECT REACTOR-CONTROL
+	.STRL "Reactor Control"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	REACTOR-ELEVATOR		; TO ROOM
+	REACTOR-ELEVATOR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	REACTOR-ACCESS-STAIRS		; TO ROOM
+	.PROP 6,P?IN		; CONDITIONAL EXIT
+	REACTOR-ELEVATOR		; TO ROOM
+	REACTOR-ELEVATOR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?LDESC
+	STR?165
+	.PROP 2,P?C-MOVE
+	T?4006
+	.PROP 8,P?PSEUDO
+	W?BUTTON		; NAME
+	REACTOR-BUTTON-PSEUDO		; HANDLER
+	W?DIAGRAM		; NAME
+	DIAGRAM-PSEUDO		; HANDLER
+	.PROP 6,P?GLOBAL
+	CONTROLS
+	STAIRS
+	REACTOR-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?HELIPAD::	.TABLE			; TABLE FOR OBJECT HELIPAD
+	.STRL "Helipad"
+	.PROP 3,P?NORTH		; IMPOSSIBLE EXIT
+	STR?207		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?EAST		; IMPOSSIBLE EXIT
+	STR?207		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?207		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?WEST		; IMPOSSIBLE EXIT
+	STR?207		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	TOWER-CORE		; TO ROOM
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	HELICOPTER		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?206
+	.PROP 2,P?C-MOVE
+	T?5106
+	.PROP 4,P?PSEUDO
+	W?FENCE		; NAME
+	FENCE-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	STAIRS
+	HELICOPTER-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?PRINT-OUT::	.TABLE			; TABLE FOR OBJECT PRINT-OUT
+	.STRL "pile of computer output"
+	.PROP 8,P?SYNONYM
+	W?PILE
+	W?PAPER
+	W?OUTPUT
+	W?PRINTOUT
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?ACTION
+	PRINT-OUT-F
+	.PROP 2,P?ADJECTIVE
+	W?COMPUTER
+	.BYTE	0
+	.ENDT
+
+T?LIGHTS::	.TABLE			; TABLE FOR OBJECT LIGHTS
+	.STRL "light"
+	.PROP 4,P?SYNONYM
+	W?LIGHT
+	W?LIGHTS
+	.PROP 2,P?ACTION
+	LIGHTS-F
+	.PROP 16,P?ADJECTIVE
+	W?RED
+	W?DAZZLING
+	W?GLOWING
+	W?BLINKING
+	W?WARNING
+	W?BRIGHT
+	W?COLORED
+	W?FLASHING
+	.BYTE	0
+	.ENDT
+
+T?GREEN-GOO::	.TABLE			; TABLE FOR OBJECT GREEN-GOO
+	.STRL "blob of green goo"
+	.PROP 8,P?SYNONYM
+	W?GOO
+	W?BLOB
+	W?FOOD
+	W?BEANS
+	.PROP 2,P?ACTION
+	GOO-F
+	.PROP 4,P?ADJECTIVE
+	W?GREEN
+	W?LIMA
+	.BYTE	0
+	.ENDT
+
+T?MECH-CORRIDOR-N::	.TABLE			; TABLE FOR OBJECT MECH-CORRIDOR-N
+	.STRL "Mech Corridor North"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	CORRIDOR-JUNCTION		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	STORAGE-EAST		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PHYSICAL-PLANT		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?158
+	.PROP 2,P?C-MOVE
+	T?3506
+	.BYTE	0
+	.ENDT
+
+T?GOOD-BOARD::	.TABLE			; TABLE FOR OBJECT GOOD-BOARD
+	.STRL "shiny seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	GOOD-BOARD-F
+	.PROP 10,P?ADJECTIVE
+	W?SHINY
+	W?GOOD
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL "it"
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	ROOMS		; TO ROOM
+	.BYTE	0
+	.ENDT
+
+T?COMBINATION-DIAL::	.TABLE			; TABLE FOR OBJECT COMBINATION-DIAL
+	.STRL "combination dial"
+	.PROP 2,P?SYNONYM
+	W?DIAL
+	.PROP 2,P?ACTION
+	COMBINATION-DIAL-F
+	.PROP 2,P?ADJECTIVE
+	W?COMBINATION
+	.BYTE	0
+	.ENDT
+
+T?PROJECT-CORRIDOR::	.TABLE			; TABLE FOR OBJECT PROJECT-CORRIDOR
+	.STRL "Project Corridor"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	PROJCON-OFFICE		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?278
+	.PROP 2,P?C-MOVE
+	T?1707
+	.BYTE	0
+	.ENDT
+
+T?ADMIN-CORRIDOR-S::	.TABLE			; TABLE FOR OBJECT ADMIN-CORRIDOR-S
+	.STRL "Admin Corridor South"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	SANFAC-E		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	CORRIDOR-JUNCTION		; TO ROOM
+	.PROP 2,P?ACTION
+	ADMIN-CORRIDOR-S-F
+	.PROP 2,P?LDESC
+	STR?146
+	.PROP 2,P?C-MOVE
+	T?2606
+	.BYTE	0
+	.ENDT
+
+T?ROUND-WHITE-BUTTON::	.TABLE			; TABLE FOR OBJECT ROUND-WHITE-BUTTON
+	.STRL "round white button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?WHITE
+	W?ROUND
+	.PROP 2,P?C-MOVE
+	8
+	.BYTE	0
+	.ENDT
+
+T?ADVENTURER::	.TABLE			; TABLE FOR OBJECT ADVENTURER
+	.STRL "player"
+	.PROP 8,P?SYNONYM
+	W?ADMIRAL
+	W?SMITHE
+	W?SPAM
+	W?EGGS
+	.PROP 4,P?ADJECTIVE
+	W?ORANGE
+	W?OPENER
+	.BYTE	0
+	.ENDT
+
+T?FLASK::	.TABLE			; TABLE FOR OBJECT FLASK
+	.STRL "glass flask"
+	.PROP 2,P?SYNONYM
+	W?FLASK
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	FLASK-F
+	.PROP 6,P?ADJECTIVE
+	W?GLASS
+	W?LARGE
+	W?PLASTIC
+	.PROP 2,P?CAPACITY
+	2
+	.PROP 2,P?FDESC
+	STR?168
+	.BYTE	0
+	.ENDT
+
+T?LAZARUS-PART::	.TABLE			; TABLE FOR OBJECT LAZARUS-PART
+	.STRL "medical robot breastplate"
+	.PROP 8,P?SYNONYM
+	W?LAZARUS
+	W?PART
+	W?PLATE
+	W?BREASTPLATE
+	.PROP 2,P?SIZE
+	35
+	.PROP 4,P?ADJECTIVE
+	W?MEDICAL
+	W?BREAST
+	.BYTE	0
+	.ENDT
+
+T?OLD-BATTERY::	.TABLE			; TABLE FOR OBJECT OLD-BATTERY
+	.STRL "old battery"
+	.PROP 2,P?SYNONYM
+	W?BATTERY
+	.PROP 2,P?SIZE
+	5
+	.PROP 6,P?ADJECTIVE
+	W?LASER
+	W?WORN-OUT
+	W?OLD
+	.PROP 2,P?LDESC
+	STR?322
+	.BYTE	0
+	.ENDT
+
+T?DECK-NINE::	.TABLE			; TABLE FOR OBJECT DECK-NINE
+	.STRL "Deck Nine"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	REACTOR-LOBBY		; TO ROOM
+	CORRIDOR-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	ESCAPE-POD		; TO ROOM
+	POD-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?UP		; CONDITIONAL EXIT
+	GANGWAY		; TO ROOM
+	GANGWAY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?IN		; CONDITIONAL EXIT
+	ESCAPE-POD		; TO ROOM
+	POD-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	DECK-NINE-F
+	.PROP 2,P?C-MOVE
+	T?405
+	.PROP 8,P?PSEUDO
+	W?TRANSL		; NAME
+	TRANSLATOR-PSEUDO		; HANDLER
+	W?SLIME		; NAME
+	SLIME-PSEUDO		; HANDLER
+	.PROP 10,P?GLOBAL
+	POD-DOOR
+	CORRIDOR-DOOR
+	GANGWAY-DOOR
+	STAIRS
+	GLOBAL-POD
+	.BYTE	0
+	.ENDT
+
+T?THIRD-BOARD::	.TABLE			; TABLE FOR OBJECT THIRD-BOARD
+	.STRL "third seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?ACTION
+	BOARD-F
+	.PROP 8,P?ADJECTIVE
+	W?THIRD
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?STRIP::	.TABLE			; TABLE FOR OBJECT STRIP
+	.STRL "silicon strip"
+	.PROP 6,P?SYNONYM
+	W?STRIP
+	W?SIDE
+	W?EDGE
+	.PROP 2,P?ACTION
+	STRIP-F
+	.PROP 2,P?ADJECTIVE
+	W?SILICON
+	.BYTE	0
+	.ENDT
+
+T?SMALL-OFFICE::	.TABLE			; TABLE FOR OBJECT SMALL-OFFICE
+	.STRL "Small Office"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	LARGE-OFFICE		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?152
+	.PROP 2,P?C-MOVE
+	T?3306
+	.BYTE	0
+	.ENDT
+
+T?CARTON::	.TABLE			; TABLE FOR OBJECT CARTON
+	.STRL "cardboard box"
+	.PROP 4,P?SYNONYM
+	W?BOX
+	W?CARTON
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	CARTON-F
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?CARDBOARD
+	.PROP 2,P?CAPACITY
+	50
+	.PROP 2,P?FDESC
+	STR?162
+	.BYTE	0
+	.ENDT
+
+T?BOOTH-2::	.TABLE			; TABLE FOR OBJECT BOOTH-2
+	.STRL "Booth 2"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	ELEVATOR-LOBBY		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	ELEVATOR-LOBBY		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?204
+	.PROP 2,P?C-MOVE
+	T?4906
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	IN-BOOTH-PSEUDO		; HANDLER
+	.PROP 8,P?GLOBAL
+	CONTROLS
+	SLOT
+	TELEPORTATION-BUTTON-1
+	TELEPORTATION-BUTTON-3
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?ZZMGCK
+	.PROP 2,P?VALUE
+	0
+	.PROP 2,P?CONTFCN
+	0
+	.PROP 2,P?DESCFCN
+	0
+	.PROP 2,P?SIZE
+	0
+	.BYTE	0
+	.ENDT
+
+T?CRAG::	.TABLE			; TABLE FOR OBJECT CRAG
+	.STRL "Crag"
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	BALCONY		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	UNDERWATER		; TO ROOM
+	.PROP 2,P?VALUE
+	3
+	.PROP 2,P?ACTION
+	CRAG-F
+	.PROP 2,P?LDESC
+	STR?128
+	.PROP 2,P?C-MOVE
+	T?206
+	.PROP 8,P?PSEUDO
+	W?STRUCTURE		; NAME
+	STRUCTURE-PSEUDO		; HANDLER
+	W?CLEFT		; NAME
+	CLEFT-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	CLIFF
+	OCEAN
+	.BYTE	0
+	.ENDT
+
+T?ADMIN-CORRIDOR::	.TABLE			; TABLE FOR OBJECT ADMIN-CORRIDOR
+	.STRL "Admin Corridor"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	LADDER-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	SYSTEMS-MONITORS		; TO ROOM
+	.PROP 2,P?ACTION
+	ADMIN-CORRIDOR-F
+	.PROP 2,P?C-MOVE
+	T?2706
+	.PROP 4,P?PSEUDO
+	W?RUBBLE		; NAME
+	RUBBLE-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	RIFT
+	.BYTE	0
+	.ENDT
+
+T?BRIG::	.TABLE			; TABLE FOR OBJECT BRIG
+	.STRL "Brig"
+	.PROP 3,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?52		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?LDESC
+	STR?51
+	.PROP 2,P?C-MOVE
+	T?305
+	.PROP 8,P?PSEUDO
+	W?GRAFFITI		; NAME
+	GRAFFITI-PSEUDO		; HANDLER
+	W?DOOR		; NAME
+	DOOR-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?PROJCON-OFFICE::	.TABLE			; TABLE FOR OBJECT PROJCON-OFFICE
+	.STRL "ProjCon Office"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	COMPUTER-ROOM		; TO ROOM
+	.PROP 6,P?SOUTH		; CONDITIONAL EXIT
+	CRYO-ELEVATOR		; TO ROOM
+	CRYO-ELEVATOR-DOOR		; IF DOOR IS OPEN
+	STR?99		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	PROJCON-OFFICE-F
+	.PROP 2,P?C-MOVE
+	T?1807
+	.PROP 8,P?PSEUDO
+	W?MURAL		; NAME
+	MURAL-PSEUDO		; HANDLER
+	W?LOGO		; NAME
+	LOGO-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	CRYO-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?LASER::	.TABLE			; TABLE FOR OBJECT LASER
+	.STRL "laser"
+	.PROP 8,P?SYNONYM
+	W?DEVICE
+	W?LASER
+	W?UNIT
+	W?DEPRESSION
+	.PROP 2,P?SIZE
+	25
+	.PROP 2,P?ACTION
+	LASER-F
+	.PROP 4,P?ADJECTIVE
+	W?PORTABLE
+	W?ACME
+	.PROP 2,P?CAPACITY
+	5
+	.PROP 2,P?FDESC
+	STR?321
+	.BYTE	0
+	.ENDT
+
+T?CONTROLS::	.TABLE			; TABLE FOR OBJECT CONTROLS
+	.STRL "set of controls"
+	.PROP 8,P?SYNONYM
+	W?CONTROL
+	W?PANEL
+	W?DIALS
+	W?GAUGES
+	.PROP 2,P?ACTION
+	CONTROLS-F
+	.PROP 4,P?ADJECTIVE
+	W?CONTROL
+	W?COMPLEX
+	.BYTE	0
+	.ENDT
+
+T?LARGE-DESK::	.TABLE			; TABLE FOR OBJECT LARGE-DESK
+	.STRL "large desk"
+	.PROP 4,P?SYNONYM
+	W?DESK
+	W?DRAWER
+	.PROP 2,P?ACTION
+	DESK-F
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?WIDE
+	W?WOODEN
+	.PROP 2,P?CAPACITY
+	20
+	.BYTE	0
+	.ENDT
+
+T?CORRIDOR-JUNCTION::	.TABLE			; TABLE FOR OBJECT CORRIDOR-JUNCTION
+	.STRL "Corridor Junction"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	ELEVATOR-LOBBY		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-N		; TO ROOM
+	.PROP 4,P?WEST		; CONDITIONAL EXIT
+	LONG-HALL-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?LDESC
+	STR?145
+	.PROP 2,P?C-MOVE
+	T?2506
+	.PROP 4,P?PSEUDO
+	W?WALKWAY		; NAME
+	WALKWAY-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?BAD-BEDISTOR::	.TABLE			; TABLE FOR OBJECT BAD-BEDISTOR
+	.STRL "fused ninety-ohm bedistor"
+	.PROP 2,P?SYNONYM
+	W?BEDISTOR
+	.PROP 2,P?SIZE
+	8
+	.PROP 2,P?ACTION
+	BAD-BEDISTOR-F
+	.PROP 8,P?ADJECTIVE
+	W?FUSED
+	W?NINETY
+	W?OHM
+	W?NINETY-OHM
+	.BYTE	0
+	.ENDT
+
+T?TRANSPORTATION-SUPPLY::	.TABLE			; TABLE FOR OBJECT TRANSPORTATION-SUPPLY
+	.STRL "Transportation Supply"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	TRANSPORTATION-SUPPLY		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	TRANSPORTATION-SUPPLY		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	TRANSPORTATION-SUPPLY		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?151
+	.PROP 2,P?C-MOVE
+	T?3206
+	.BYTE	0
+	.ENDT
+
+T?COMM-ROOM::	.TABLE			; TABLE FOR OBJECT COMM-ROOM
+	.STRL "Comm Room"
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	TOWER-CORE		; TO ROOM
+	.PROP 2,P?ACTION
+	COMM-ROOM-F
+	.PROP 2,P?C-MOVE
+	T?5306
+	.PROP 8,P?PSEUDO
+	W?CABLES		; NAME
+	CABLES-PSEUDO		; HANDLER
+	W?ENUNCIATOR		; NAME
+	ENUNCIATOR-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	LIGHTS
+	.BYTE	0
+	.ENDT
+
+T?SMALL-DESK::	.TABLE			; TABLE FOR OBJECT SMALL-DESK
+	.STRL "small desk"
+	.PROP 4,P?SYNONYM
+	W?DESK
+	W?DRAWER
+	.PROP 2,P?ACTION
+	DESK-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?CAPACITY
+	10
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL "it"
+	.PROP 2,P?SYNONYM
+	W?ZZMGCK
+	.BYTE	0
+	.ENDT
+
+T?SHUTTLE-DOOR::	.TABLE			; TABLE FOR OBJECT SHUTTLE-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	SHUTTLE-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?SHUTTLE-CAR-BETTY::	.TABLE			; TABLE FOR OBJECT SHUTTLE-CAR-BETTY
+	.STRL "Shuttle Car Betty"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	BETTY-CONTROL-EAST		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	SHUTTLE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	BETTY-CONTROL-WEST		; TO ROOM
+	.PROP 2,P?ACTION
+	SHUTTLE-CAR-F
+	.PROP 2,P?C-MOVE
+	T?1205
+	.PROP 4,P?GLOBAL
+	GLOBAL-SHUTTLE
+	SHUTTLE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?YELLOW-BUTTON::	.TABLE			; TABLE FOR OBJECT YELLOW-BUTTON
+	.STRL "yellow button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?YELLOW
+	.PROP 2,P?C-MOVE
+	4
+	.BYTE	0
+	.ENDT
+
+T?IT::	.TABLE			; TABLE FOR OBJECT IT
+	.STRL "random object"
+	.PROP 8,P?SYNONYM
+	W?IT
+	W?THAT
+	W?THIS
+	W?HIM
+	.BYTE	0
+	.ENDT
+
+T?PROJECT-CORRIDOR-WEST::	.TABLE			; TABLE FOR OBJECT PROJECT-CORRIDOR-WEST
+	.STRL "Project Corridor West"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	SANFAC-F		; TO ROOM
+	.PROP 2,P?NW		; UNCONDITIONAL EXIT
+	FORK		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?276
+	.PROP 2,P?C-MOVE
+	T?1507
+	.BYTE	0
+	.ENDT
+
+T?COMM-SCREEN::	.TABLE			; TABLE FOR OBJECT COMM-SCREEN
+	.STRL "screen"
+	.PROP 6,P?SYNONYM
+	W?COMMUNICATIONS
+	W?MESSAGE
+	W?SCREEN
+	.PROP 2,P?TEXT
+	STR?209
+	.BYTE	0
+	.ENDT
+
+T?STRIP-NEAR-STATION::	.TABLE			; TABLE FOR OBJECT STRIP-NEAR-STATION
+	.STRL "Strip Near Station"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MIDDLE-OF-STRIP		; TO ROOM
+	.PROP 3,P?EAST		; IMPOSSIBLE EXIT
+	STR?316		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?316		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	STATION-384		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?LDESC
+	STR?315
+	.PROP 2,P?C-MOVE
+	T?3507
+	.PROP 4,P?PSEUDO
+	W?VOID		; NAME
+	VOID-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STRIP
+	.BYTE	0
+	.ENDT
+
+T?UPPER-ELEVATOR-CARD::	.TABLE			; TABLE FOR OBJECT UPPER-ELEVATOR-CARD
+	.STRL "upper elevator access card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	3
+	.PROP 6,P?ADJECTIVE
+	W?UPPER
+	W?ELEVATOR
+	W?ACCESS
+	.PROP 2,P?TEXT
+	STR?154
+	.BYTE	0
+	.ENDT
+
+T?GOOD-BEDISTOR::	.TABLE			; TABLE FOR OBJECT GOOD-BEDISTOR
+	.STRL "good ninety-ohm bedistor"
+	.PROP 2,P?SYNONYM
+	W?BEDISTOR
+	.PROP 2,P?SIZE
+	8
+	.PROP 2,P?ACTION
+	GOOD-BEDISTOR-F
+	.PROP 8,P?ADJECTIVE
+	W?GOOD
+	W?NINETY
+	W?OHM
+	W?NINETY-OHM
+	.BYTE	0
+	.ENDT
+
+T?STORAGE-EAST::	.TABLE			; TABLE FOR OBJECT STORAGE-EAST
+	.STRL "Storage East"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?160
+	.PROP 2,P?C-MOVE
+	T?3806
+	.PROP 2,P?GLOBAL
+	SHELVES
+	.BYTE	0
+	.ENDT
+
+T?CONFERENCE-DOOR::	.TABLE			; TABLE FOR OBJECT CONFERENCE-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	CONFERENCE-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?SANFAC-C::	.TABLE			; TABLE FOR OBJECT SANFAC-C
+	.STRL "SanFac C"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	DORM-C		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?135
+	.PROP 2,P?C-MOVE
+	T?1706
+	.PROP 8,P?PSEUDO
+	W?FIXTURES		; NAME
+	TOILET-PSEUDO		; HANDLER
+	W?TOILET		; NAME
+	TOILET-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?CREVICE::	.TABLE			; TABLE FOR OBJECT CREVICE
+	.STRL "crevice"
+	.PROP 6,P?SYNONYM
+	W?CREVICE
+	W?CRACK
+	W?HOLE
+	.PROP 2,P?ACTION
+	CREVICE-F
+	.PROP 4,P?ADJECTIVE
+	W?NARROW
+	W?JAGGED
+	.BYTE	0
+	.ENDT
+
+T?PHYSICAL-PLANT::	.TABLE			; TABLE FOR OBJECT PHYSICAL-PLANT
+	.STRL "Physical Plant"
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?SE		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?164
+	.PROP 2,P?C-MOVE
+	T?3906
+	.PROP 8,P?PSEUDO
+	W?EQUIPMENT		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	W?CATWALK		; NAME
+	CATWALK-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?REACTOR-ELEVATOR::	.TABLE			; TABLE FOR OBJECT REACTOR-ELEVATOR
+	.STRL "Reactor Elevator"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	REACTOR-CONTROL		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	REACTOR-CONTROL		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?166
+	.PROP 2,P?C-MOVE
+	T?4206
+	.PROP 8,P?GLOBAL
+	REACTOR-ELEVATOR-DOOR
+	SLOT
+	ELEVATOR-BUTTON
+	CONTROLS
+	.BYTE	0
+	.ENDT
+
+T?BETTY-CONTROL-WEST::	.TABLE			; TABLE FOR OBJECT BETTY-CONTROL-WEST
+	.STRL "Betty Control West"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	SHUTTLE-CAR-BETTY		; TO ROOM
+	SHUTTLE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	CONTROL-CABIN-F
+	.PROP 2,P?C-MOVE
+	T?1405
+	.PROP 10,P?GLOBAL
+	GLOBAL-SHUTTLE
+	SLOT
+	LEVER
+	WINDOW
+	SHUTTLE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CHEMICAL-FLUID::	.TABLE			; TABLE FOR OBJECT CHEMICAL-FLUID
+	.STRL "quantity of chemical fluid"
+	.PROP 8,P?SYNONYM
+	W?QUANTITY
+	W?LIQUID
+	W?FLUID
+	W?CHEMICAL
+	.PROP 2,P?ACTION
+	CHEMICAL-FLUID-F
+	.PROP 6,P?ADJECTIVE
+	W?MILKY
+	W?WHITE
+	W?CHEMICAL
+	.BYTE	0
+	.ENDT
+
+T?LOWER-ELEVATOR::	.TABLE			; TABLE FOR OBJECT LOWER-ELEVATOR
+	.STRL "Lower Elevator"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	ELEVATOR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 3,P?UP		; IMPOSSIBLE EXIT
+	STR?201		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?DOWN		; IMPOSSIBLE EXIT
+	STR?201		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	ELEVATOR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?ACTION
+	LOWER-ELEVATOR-F
+	.PROP 2,P?C-MOVE
+	T?4806
+	.PROP 10,P?GLOBAL
+	LIGHTS
+	CONTROLS
+	SLOT
+	ELEVATOR-BUTTON
+	LOWER-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?MAGNET::	.TABLE			; TABLE FOR OBJECT MAGNET
+	.STRL "curved metal bar"
+	.PROP 4,P?SYNONYM
+	W?MAGNET
+	W?BAR
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	MAGNET-F
+	.PROP 6,P?ADJECTIVE
+	W?CURVED
+	W?METAL
+	W?HORSESHOE
+	.PROP 2,P?FDESC
+	STR?169
+	.BYTE	0
+	.ENDT
+
+T?RADIATION-LOCK-WEST::	.TABLE			; TABLE FOR OBJECT RADIATION-LOCK-WEST
+	.STRL "Radiation Lock West"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	RADIATION-LOCK-EAST		; TO ROOM
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	MAIN-LAB		; TO ROOM
+	RAD-DOOR-WEST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?LDESC
+	STR?289
+	.PROP 2,P?C-MOVE
+	T?2807
+	.PROP 2,P?GLOBAL
+	RAD-DOOR-WEST
+	.BYTE	0
+	.ENDT
+
+T?UNDERWATER::	.TABLE			; TABLE FOR OBJECT UNDERWATER
+	.STRL "Underwater"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	UNDERWATER		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	UNDERWATER		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	UNDERWATER		; TO ROOM
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	CRAG		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	UNDERWATER		; TO ROOM
+	.PROP 2,P?ACTION
+	UNDERWATER-F
+	.PROP 2,P?LDESC
+	STR?126
+	.PROP 2,P?C-MOVE
+	T?106
+	.BYTE	0
+	.ENDT
+
+T?REC-AREA::	.TABLE			; TABLE FOR OBJECT REC-AREA
+	.STRL "Rec Area"
+	.PROP 6,P?NORTH		; CONDITIONAL EXIT
+	CONFERENCE-ROOM		; TO ROOM
+	CONFERENCE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	REC-CORRIDOR		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	PLAIN-HALL		; TO ROOM
+	.PROP 2,P?ACTION
+	REC-AREA-F
+	.PROP 2,P?C-MOVE
+	T?806
+	.PROP 8,P?PSEUDO
+	W?GAMES		; NAME
+	GAMES-PSEUDO		; HANDLER
+	W?TAPES		; NAME
+	TAPES-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	CONFERENCE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?BLATHER::	.TABLE			; TABLE FOR OBJECT BLATHER
+	.STRL "Ensign First Class"
+	.PROP 4,P?SYNONYM
+	W?ENSIGN
+	W?BLATHER
+	.PROP 2,P?SIZE
+	150
+	.PROP 2,P?ACTION
+	BLATHER-F
+	.PROP 6,P?ADJECTIVE
+	W?ENSIGN
+	W?FIRST
+	W?CLASS
+	.PROP 2,P?LDESC
+	STR?77
+	.BYTE	0
+	.ENDT
+
+T?BIO-DOOR-EAST::	.TABLE			; TABLE FOR OBJECT BIO-DOOR-EAST
+	.STRL "lab door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	BIO-DOOR-EAST-F
+	.PROP 2,P?ADJECTIVE
+	W?LAB
+	.BYTE	0
+	.ENDT
+
+T?CANTEEN::	.TABLE			; TABLE FOR OBJECT CANTEEN
+	.STRL "canteen"
+	.PROP 2,P?SYNONYM
+	W?CANTEEN
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ADJECTIVE
+	W?OCTAGONAL
+	.PROP 2,P?CAPACITY
+	5
+	.PROP 2,P?FDESC
+	STR?144
+	.BYTE	0
+	.ENDT
+
+T?OFFICE-DOOR::	.TABLE			; TABLE FOR OBJECT OFFICE-DOOR
+	.STRL "office door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	W?OFFICE
+	.BYTE	0
+	.ENDT
+
+T?ID-CARD::	.TABLE			; TABLE FOR OBJECT ID-CARD
+	.STRL "ID card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?SIZE
+	3
+	.PROP 6,P?ADJECTIVE
+	W?PATROL
+	W?ID
+	W?IDENTIFICATION
+	.PROP 2,P?TEXT
+	STR?53
+	.BYTE	0
+	.ENDT
+
+T?ALFIE-CONTROL-EAST::	.TABLE			; TABLE FOR OBJECT ALFIE-CONTROL-EAST
+	.STRL "Alfie Control East"
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	SHUTTLE-CAR-ALFIE		; TO ROOM
+	SHUTTLE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	CONTROL-CABIN-F
+	.PROP 2,P?C-MOVE
+	T?1005
+	.PROP 10,P?GLOBAL
+	SLOT
+	WINDOW
+	LEVER
+	SHUTTLE-DOOR
+	GLOBAL-SHUTTLE
+	.BYTE	0
+	.ENDT
+
+T?LADDER::	.TABLE			; TABLE FOR OBJECT LADDER
+	.STRL "ladder"
+	.PROP 2,P?SYNONYM
+	W?LADDER
+	.PROP 2,P?SIZE
+	80
+	.PROP 2,P?ACTION
+	LADDER-F
+	.PROP 10,P?ADJECTIVE
+	W?HEAVY
+	W?DUTY
+	W?HEAVY-DUTY
+	W?ALUMINUM
+	W?LARGE
+	.PROP 2,P?LDESC
+	STR?141
+	.PROP 2,P?FDESC
+	STR?140
+	.BYTE	0
+	.ENDT
+
+T?COMPUTER-ROOM::	.TABLE			; TABLE FOR OBJECT COMPUTER-ROOM
+	.STRL "Computer Room"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	MAIN-LAB		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	MINI-BOOTH		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PROJCON-OFFICE		; TO ROOM
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	MINI-BOOTH		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?280
+	.PROP 2,P?C-MOVE
+	T?2207
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	NEAR-BOOTH-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	LIGHTS
+	.BYTE	0
+	.ENDT
+
+T?ADMIN-CORRIDOR-N::	.TABLE			; TABLE FOR OBJECT ADMIN-CORRIDOR-N
+	.STRL "Admin Corridor North"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	TRANSPORTATION-SUPPLY		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	PLAN-ROOM		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	LADDER-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	SMALL-OFFICE		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?ACTION
+	ADMIN-CORRIDOR-N-F
+	.PROP 2,P?C-MOVE
+	T?2806
+	.PROP 2,P?GLOBAL
+	RIFT
+	.BYTE	0
+	.ENDT
+
+T?KITCHEN-DOOR::	.TABLE			; TABLE FOR OBJECT KITCHEN-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	KITCHEN-DOOR-F
+	.PROP 2,P?ADJECTIVE
+	W?KITCHEN
+	.BYTE	0
+	.ENDT
+
+T?MAIN-LAB::	.TABLE			; TABLE FOR OBJECT MAIN-LAB
+	.STRL "Main Lab"
+	.PROP 6,P?NE		; CONDITIONAL EXIT
+	RADIATION-LOCK-WEST		; TO ROOM
+	RAD-DOOR-WEST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?SE		; CONDITIONAL EXIT
+	BIO-LOCK-WEST		; TO ROOM
+	BIO-DOOR-WEST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	LAB-STORAGE		; TO ROOM
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	COMPUTER-ROOM		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?283
+	.PROP 2,P?C-MOVE
+	T?2407
+	.PROP 4,P?GLOBAL
+	BIO-DOOR-WEST
+	RAD-DOOR-WEST
+	.BYTE	0
+	.ENDT
+
+T?SYSTEMS-CORRIDOR::	.TABLE			; TABLE FOR OBJECT SYSTEMS-CORRIDOR
+	.STRL "Systems Corridor"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	PLANETARY-DEFENSE		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?228
+	.PROP 2,P?C-MOVE
+	T?707
+	.BYTE	0
+	.ENDT
+
+T?LOWER-ELEVATOR-DOOR::	.TABLE			; TABLE FOR OBJECT LOWER-ELEVATOR-DOOR
+	.STRL "red door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	LOWER-ELEVATOR-DOOR-F
+	.PROP 8,P?ADJECTIVE
+	W?RED
+	W?LOWER
+	W?ELEVATOR
+	W?METAL
+	.BYTE	0
+	.ENDT
+
+T?MEGAFUSE-K::	.TABLE			; TABLE FOR OBJECT MEGAFUSE-K
+	.STRL "K-series megafuse"
+	.PROP 4,P?SYNONYM
+	W?FUSE
+	W?MEGAFUSE
+	.PROP 2,P?SIZE
+	5
+	.PROP 8,P?ADJECTIVE
+	W?K-SERIES
+	W?K
+	W?SERIES
+	W?MEGA
+	.BYTE	0
+	.ENDT
+
+T?FUNNEL-HOLE::	.TABLE			; TABLE FOR OBJECT FUNNEL-HOLE
+	.STRL "funnel-shaped hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 6,P?ADJECTIVE
+	W?FUNNEL
+	W?SHAPED
+	W?FUNNEL-SHAPED
+	.BYTE	0
+	.ENDT
+
+T?CRYO-ELEVATOR::	.TABLE			; TABLE FOR OBJECT CRYO-ELEVATOR
+	.STRL "Cryo-Elevator"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	CRYO-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?ACTION
+	CRYO-ELEVATOR-F
+	.PROP 2,P?C-MOVE
+	T?1907
+	.PROP 4,P?PSEUDO
+	W?BUTTON		; NAME
+	CRYO-BUTTON-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	CRYO-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?WAITING-AREA::	.TABLE			; TABLE FOR OBJECT WAITING-AREA
+	.STRL "Waiting Area"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	KALAMONTEE-PLATFORM		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	OTHER-ELEVATOR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?IN		; CONDITIONAL EXIT
+	OTHER-ELEVATOR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?LDESC
+	STR?215
+	.PROP 2,P?C-MOVE
+	T?5706
+	.PROP 8,P?PSEUDO
+	W?BENCH		; NAME
+	BENCH-PSEUDO		; HANDLER
+	W?BENCHES		; NAME
+	BENCH-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	LOWER-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?REPAIR-ROOM::	.TABLE			; TABLE FOR OBJECT REPAIR-ROOM
+	.STRL "Repair Room"
+	.PROP 3,P?NORTH		; IMPOSSIBLE EXIT
+	STR?225		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?224
+	.PROP 2,P?C-MOVE
+	T?507
+	.PROP 8,P?PSEUDO
+	W?CABINETS		; NAME
+	CABINETS-PSEUDO		; HANDLER
+	W?MACHINE		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?BIO-LAB::	.TABLE			; TABLE FOR OBJECT BIO-LAB
+	.STRL "Bio Lab"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	LAB-OFFICE		; TO ROOM
+	OFFICE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	BIO-LOCK-EAST		; TO ROOM
+	BIO-DOOR-EAST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	BIO-LAB-F
+	.PROP 2,P?C-MOVE
+	T?3007
+	.PROP 4,P?PSEUDO
+	W?CRACK		; NAME
+	CRACK-PSEUDO		; HANDLER
+	.PROP 6,P?GLOBAL
+	BIO-DOOR-EAST
+	WINDOW
+	OFFICE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?PLAYBACK-BUTTON::	.TABLE			; TABLE FOR OBJECT PLAYBACK-BUTTON
+	.STRL "glowing button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	PLAYBACK-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?GLOWING
+	W?PLAYBACK
+	.BYTE	0
+	.ENDT
+
+T?FIRST-BOARD::	.TABLE			; TABLE FOR OBJECT FIRST-BOARD
+	.STRL "first seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?ACTION
+	BOARD-F
+	.PROP 8,P?ADJECTIVE
+	W?FIRST
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?CRYO-ELEVATOR-DOOR::	.TABLE			; TABLE FOR OBJECT CRYO-ELEVATOR-DOOR
+	.STRL "cryo-elevator door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 4,P?ADJECTIVE
+	W?CRYO-ELEVATOR
+	W?ELEVATOR
+	.BYTE	0
+	.ENDT
+
+T?OBSERVATION-DECK::	.TABLE			; TABLE FOR OBJECT OBSERVATION-DECK
+	.STRL "Observation Deck"
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	TOWER-CORE		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?214
+	.PROP 2,P?C-MOVE
+	T?5606
+	.PROP 2,P?GLOBAL
+	OCEAN
+	.BYTE	0
+	.ENDT
+
+T?LOWER-ELEVATOR-CARD::	.TABLE			; TABLE FOR OBJECT LOWER-ELEVATOR-CARD
+	.STRL "lower elevator access card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	3
+	.PROP 6,P?ADJECTIVE
+	W?LOWER
+	W?ELEVATOR
+	W?ACCESS
+	.PROP 2,P?TEXT
+	STR?156
+	.BYTE	0
+	.ENDT
+
+T?ACCESS-PANEL::	.TABLE			; TABLE FOR OBJECT ACCESS-PANEL
+	.STRL "access panel"
+	.PROP 6,P?SYNONYM
+	W?PANEL
+	W?DOOR
+	W?SOCKET
+	.PROP 2,P?ACTION
+	ACCESS-PANEL-F
+	.PROP 6,P?ADJECTIVE
+	W?SMALL
+	W?ACCESS
+	W?REPAIR
+	.PROP 2,P?CAPACITY
+	40
+	.BYTE	0
+	.ENDT
+
+T?SCRUB-BRUSH::	.TABLE			; TABLE FOR OBJECT SCRUB-BRUSH
+	.STRL "Patrol-issue self-contained multi-purpose scrub brush"
+	.PROP 6,P?SYNONYM
+	W?BRUSH
+	W?SCRUBBRUSH
+	W?SCRUBRUSH
+	.PROP 2,P?SIZE
+	10
+	.PROP 12,P?ADJECTIVE
+	W?SCRUB
+	W?PATROL
+	W?SELF-CONTAINED
+	W?MULTI
+	W?MULTI-PURPOSE
+	W?PURPOSE
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SHUTTLE::	.TABLE			; TABLE FOR OBJECT GLOBAL-SHUTTLE
+	.STRL "shuttle car"
+	.PROP 4,P?SYNONYM
+	W?CAR
+	W?SHUTTLE
+	.PROP 2,P?ACTION
+	GLOBAL-SHUTTLE-F
+	.PROP 2,P?ADJECTIVE
+	W?SHUTTLE
+	.BYTE	0
+	.ENDT
+
+T?STORAGE-WEST-DOOR::	.TABLE			; TABLE FOR OBJECT STORAGE-WEST-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	STORAGE-WEST-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?LARGE-OFFICE::	.TABLE			; TABLE FOR OBJECT LARGE-OFFICE
+	.STRL "Large Office"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	SMALL-OFFICE		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?157
+	.PROP 2,P?C-MOVE
+	T?3406
+	.PROP 4,P?GLOBAL
+	WINDOW
+	OCEAN
+	.BYTE	0
+	.ENDT
+
+T?CONFERENCE-ROOM::	.TABLE			; TABLE FOR OBJECT CONFERENCE-ROOM
+	.STRL "Conference Room"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	BOOTH-1		; TO ROOM
+	.PROP 6,P?SOUTH		; CONDITIONAL EXIT
+	REC-AREA		; TO ROOM
+	CONFERENCE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	BOOTH-1		; TO ROOM
+	.PROP 6,P?OUT		; CONDITIONAL EXIT
+	REC-AREA		; TO ROOM
+	CONFERENCE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	CONFERENCE-ROOM-F
+	.PROP 2,P?C-MOVE
+	T?906
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	NEAR-BOOTH-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	CONFERENCE-DOOR
+	TABLES
+	.BYTE	0
+	.ENDT
+
+T?TELEPORTATION-CARD::	.TABLE			; TABLE FOR OBJECT TELEPORTATION-CARD
+	.STRL "teleportation access card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?SIZE
+	3
+	.PROP 6,P?ADJECTIVE
+	W?TELEPORT
+	W?TELEPORTATION
+	W?ACCESS
+	.PROP 2,P?TEXT
+	STR?286
+	.BYTE	0
+	.ENDT
+
+T?PLIERS::	.TABLE			; TABLE FOR OBJECT PLIERS
+	.STRL "pair of wide-nosed pliers"
+	.PROP 4,P?SYNONYM
+	W?PAIR
+	W?PLIERS
+	.PROP 2,P?SIZE
+	15
+	.PROP 6,P?ADJECTIVE
+	W?WIDE-NOSED
+	W?WIDE
+	W?NOSED
+	.BYTE	0
+	.ENDT
+
+T?MEGAFUSE-B::	.TABLE			; TABLE FOR OBJECT MEGAFUSE-B
+	.STRL "B-series megafuse"
+	.PROP 4,P?SYNONYM
+	W?FUSE
+	W?MEGAFUSE
+	.PROP 2,P?SIZE
+	5
+	.PROP 8,P?ADJECTIVE
+	W?B-SERIES
+	W?B
+	W?SERIES
+	W?MEGA
+	.BYTE	0
+	.ENDT
+
+T?PLANETARY-DEFENSE::	.TABLE			; TABLE FOR OBJECT PLANETARY-DEFENSE
+	.STRL "Planetary Defense"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR		; TO ROOM
+	.PROP 2,P?ACTION
+	PLANETARY-DEFENSE-F
+	.PROP 2,P?C-MOVE
+	T?1007
+	.PROP 4,P?GLOBAL
+	CONTROLS
+	LIGHTS
+	.BYTE	0
+	.ENDT
+
+T?LEVER::	.TABLE			; TABLE FOR OBJECT LEVER
+	.STRL "lever"
+	.PROP 2,P?SYNONYM
+	W?LEVER
+	.PROP 2,P?ACTION
+	LEVER-F
+	.BYTE	0
+	.ENDT
+
+T?LIBRARY-LOBBY::	.TABLE			; TABLE FOR OBJECT LIBRARY-LOBBY
+	.STRL "Library Lobby"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	BOOTH-3		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	LIBRARY		; TO ROOM
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	LIBRARY		; TO ROOM
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	BOOTH-3		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?231
+	.PROP 2,P?C-MOVE
+	T?1207
+	.PROP 8,P?PSEUDO
+	W?CARPET		; NAME
+	CARPET-PSEUDO		; HANDLER
+	W?BOOTH		; NAME
+	NEAR-BOOTH-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	TABLES
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?CLIFF::	.TABLE			; TABLE FOR OBJECT CLIFF
+	.STRL "cliff"
+	.PROP 2,P?SYNONYM
+	W?CLIFF
+	.PROP 2,P?ACTION
+	CLIFF-F
+	.BYTE	0
+	.ENDT
+
+T?BIO-LOCK-EAST::	.TABLE			; TABLE FOR OBJECT BIO-LOCK-EAST
+	.STRL "Bio Lock East"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	BIO-LAB		; TO ROOM
+	BIO-DOOR-EAST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	BIO-LOCK-WEST		; TO ROOM
+	.PROP 2,P?ACTION
+	BIO-LOCK-EAST-F
+	.PROP 2,P?LDESC
+	STR?288
+	.PROP 2,P?C-MOVE
+	T?2707
+	.PROP 4,P?GLOBAL
+	BIO-DOOR-EAST
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?RECEIVE-CONSOLE::	.TABLE			; TABLE FOR OBJECT RECEIVE-CONSOLE
+	.STRL "communications receive console"
+	.PROP 4,P?SYNONYM
+	W?CONSOLE
+	W?CONTROL
+	.PROP 8,P?ADJECTIVE
+	W?COMMUNICATIONS
+	W?RECEIVE
+	W?LEFT
+	W?FIRST
+	.PROP 2,P?C-MOVE
+	T?5406
+	.BYTE	0
+	.ENDT
+
+T?STRIP-NEAR-RELAY::	.TABLE			; TABLE FOR OBJECT STRIP-NEAR-RELAY
+	.STRL "Strip Near Relay"
+	.PROP 3,P?NORTH		; IMPOSSIBLE EXIT
+	STR?320		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	RELAY-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 5,P?SOUTH		; CONDITIONAL EXIT
+	MIDDLE-OF-STRIP		; TO ROOM
+	STR?318		; FAILURE MESSAGE
+	.BYTE NO-MICROBE		; IF FLAG IS TRUE
+	.PROP 3,P?WEST		; IMPOSSIBLE EXIT
+	STR?319		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?ACTION
+	STRIP-NEAR-RELAY-F
+	.PROP 2,P?C-MOVE
+	T?3707
+	.PROP 4,P?PSEUDO
+	W?VOID		; NAME
+	VOID-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STRIP
+	.BYTE	0
+	.ENDT
+
+T?AMBASSADOR::	.TABLE			; TABLE FOR OBJECT AMBASSADOR
+	.STRL "alien ambassador"
+	.PROP 2,P?SYNONYM
+	W?AMBASSADOR
+	.PROP 2,P?SIZE
+	150
+	.PROP 2,P?ACTION
+	AMBASSADOR-F
+	.PROP 12,P?ADJECTIVE
+	W?VERY
+	W?IMPORTANT
+	W?ALIEN
+	W?HIGH-RANKING
+	W?HIGH
+	W?RANKING
+	.PROP 2,P?LDESC
+	STR?79
+	.BYTE	0
+	.ENDT
+
+T?BED::	.TABLE			; TABLE FOR OBJECT BED
+	.STRL "bed"
+	.PROP 4,P?SYNONYM
+	W?BUNK
+	W?BED
+	.PROP 2,P?ACTION
+	BED-F
+	.PROP 8,P?ADJECTIVE
+	W?MULTI
+	W?TIERED
+	W?MULTI-TIERED
+	W?BUNK
+	.BYTE	0
+	.ENDT
+
+T?LAB-UNIFORM::	.TABLE			; TABLE FOR OBJECT LAB-UNIFORM
+	.STRL "lab uniform"
+	.PROP 8,P?SYNONYM
+	W?UNIFORM
+	W?SUIT
+	W?POCKET
+	W?LOGO
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	LAB-UNIFORM-F
+	.PROP 6,P?ADJECTIVE
+	W?PALE
+	W?BLUE
+	W?LAB
+	.PROP 2,P?CAPACITY
+	5
+	.PROP 2,P?FDESC
+	STR?285
+	.BYTE	0
+	.ENDT
+
+T?PADLOCK::	.TABLE			; TABLE FOR OBJECT PADLOCK
+	.STRL "padlock"
+	.PROP 6,P?SYNONYM
+	W?PADLOCK
+	W?PAD
+	W?LOCK
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	PADLOCK-F
+	.PROP 6,P?ADJECTIVE
+	W?SIMPLE
+	W?STEEL
+	W?METAL
+	.BYTE	0
+	.ENDT
+
+T?LIGHT-BUTTON::	.TABLE			; TABLE FOR OBJECT LIGHT-BUTTON
+	.STRL "white button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	LIGHT-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?WHITE
+	W?LIGHT
+	.BYTE	0
+	.ENDT
+
+T?SQUARE-WHITE-BUTTON::	.TABLE			; TABLE FOR OBJECT SQUARE-WHITE-BUTTON
+	.STRL "square white button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?SQUARE
+	W?WHITE
+	.PROP 2,P?C-MOVE
+	9
+	.BYTE	0
+	.ENDT
+
+T?DIARY-BUTTON::	.TABLE			; TABLE FOR OBJECT DIARY-BUTTON
+	.STRL "little button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?SIZE
+	0
+	.PROP 2,P?ACTION
+	DIARY-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?LITTLE
+	.BYTE	0
+	.ENDT
+
+T?RAD-DOOR-EAST::	.TABLE			; TABLE FOR OBJECT RAD-DOOR-EAST
+	.STRL "lab door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	RAD-DOOR-EAST-F
+	.PROP 2,P?ADJECTIVE
+	W?LAB
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-POD::	.TABLE			; TABLE FOR OBJECT GLOBAL-POD
+	.STRL "escape pod"
+	.PROP 2,P?SYNONYM
+	W?POD
+	.PROP 2,P?ACTION
+	GLOBAL-POD-F
+	.PROP 6,P?ADJECTIVE
+	W?EMERGENCY
+	W?ESCAPE
+	W?PRIMARY
+	.BYTE	0
+	.ENDT
+
+T?STATION-384::	.TABLE			; TABLE FOR OBJECT STATION-384
+	.STRL "Station 384"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	STRIP-NEAR-STATION		; TO ROOM
+	.PROP 2,P?ACTION
+	STATION-384-F
+	.PROP 2,P?LDESC
+	STR?313
+	.PROP 2,P?C-MOVE
+	T?3407
+	.PROP 8,P?PSEUDO
+	W?PLATE		; NAME
+	PLATE-PSEUDO		; HANDLER
+	W?PLATES		; NAME
+	PLATE-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STRIP
+	.BYTE	0
+	.ENDT
+
+T?MESS-HALL::	.TABLE			; TABLE FOR OBJECT MESS-HALL
+	.STRL "Mess Hall"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MESS-CORRIDOR		; TO ROOM
+	.PROP 6,P?SOUTH		; CONDITIONAL EXIT
+	KITCHEN		; TO ROOM
+	KITCHEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?IN		; CONDITIONAL EXIT
+	KITCHEN		; TO ROOM
+	KITCHEN-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	MESS-CORRIDOR		; TO ROOM
+	.PROP 2,P?ACTION
+	MESS-HALL-F
+	.PROP 2,P?C-MOVE
+	T?2306
+	.PROP 8,P?PSEUDO
+	W?BENCH		; NAME
+	BENCH-PSEUDO		; HANDLER
+	W?BENCHES		; NAME
+	BENCH-PSEUDO		; HANDLER
+	.PROP 6,P?GLOBAL
+	TABLES
+	KITCHEN-DOOR
+	SLOT
+	.BYTE	0
+	.ENDT
+
+T?SYSTEMS-MONITORS::	.TABLE			; TABLE FOR OBJECT SYSTEMS-MONITORS
+	.STRL "Systems Monitors"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR		; TO ROOM
+	.PROP 2,P?ACTION
+	SYSTEMS-MONITORS-F
+	.PROP 2,P?C-MOVE
+	T?3006
+	.PROP 8,P?PSEUDO
+	W?MONITORS		; NAME
+	MONITORS-PSEUDO		; HANDLER
+	W?EQUIPMENT		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	TABLES
+	.BYTE	0
+	.ENDT
+
+T?DARK-BUTTON::	.TABLE			; TABLE FOR OBJECT DARK-BUTTON
+	.STRL "black button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	DARK-BUTTON-F
+	.PROP 6,P?ADJECTIVE
+	W?BLACK
+	W?DARK
+	W?DARKNESS
+	.BYTE	0
+	.ENDT
+
+T?TOWEL::	.TABLE			; TABLE FOR OBJECT TOWEL
+	.STRL "towel"
+	.PROP 2,P?SYNONYM
+	W?TOWEL
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	TOWEL-F
+	.PROP 2,P?TEXT
+	STR?90
+	.BYTE	0
+	.ENDT
+
+T?TELEPORTATION-BUTTON-2::	.TABLE			; TABLE FOR OBJECT TELEPORTATION-BUTTON-2
+	.STRL "beige button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	TELEPORTATION-BUTTON-2-F
+	.PROP 4,P?ADJECTIVE
+	W?BEIGE
+	W?SECOND
+	.BYTE	0
+	.ENDT
+
+T?SANFAC-B::	.TABLE			; TABLE FOR OBJECT SANFAC-B
+	.STRL "SanFac B"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	DORM-B		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?136
+	.PROP 2,P?C-MOVE
+	T?1506
+	.PROP 8,P?PSEUDO
+	W?FIXTURES		; NAME
+	TOILET-PSEUDO		; HANDLER
+	W?TOILET		; NAME
+	TOILET-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?DEAD-FLOYD::	.TABLE			; TABLE FOR OBJECT DEAD-FLOYD
+	.STRL "mangled robot"
+	.PROP 6,P?SYNONYM
+	W?FLOYD
+	W?ROBOT
+	W?COMPANION
+	.PROP 2,P?ACTION
+	DEAD-FLOYD-F
+	.PROP 6,P?ADJECTIVE
+	W?MANGLE
+	W?DEAD
+	W?FORMER
+	.PROP 2,P?LDESC
+	STR?180
+	.BYTE	0
+	.ENDT
+
+T?FORK::	.TABLE			; TABLE FOR OBJECT FORK
+	.STRL "Fork"
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?SE		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	ESCALATOR		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	ESCALATOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?217
+	.PROP 2,P?C-MOVE
+	T?307
+	.PROP 4,P?PSEUDO
+	W?ESCALATOR		; NAME
+	ESCALATOR-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?MEDICINE::	.TABLE			; TABLE FOR OBJECT MEDICINE
+	.STRL "quantity of medicine"
+	.PROP 4,P?SYNONYM
+	W?MEDICINE
+	W?QUANTITY
+	.PROP 2,P?SIZE
+	7
+	.PROP 2,P?ACTION
+	MEDICINE-F
+	.PROP 6,P?ADJECTIVE
+	W?SMALL
+	W?QUANTITY
+	W?EXPERIMENTAL
+	.PROP 2,P?FDESC
+	STR?223
+	.BYTE	0
+	.ENDT
+
+T?DORM-CORRIDOR::	.TABLE			; TABLE FOR OBJECT DORM-CORRIDOR
+	.STRL "Dorm Corridor"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	DORM-D		; TO ROOM
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	LONG-HALL-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	DORM-C		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	MESS-CORRIDOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?142
+	.PROP 2,P?C-MOVE
+	T?2206
+	.PROP 4,P?PSEUDO
+	W?WALKWAY		; NAME
+	WALKWAY-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?RIFT::	.TABLE			; TABLE FOR OBJECT RIFT
+	.STRL "rift"
+	.PROP 8,P?SYNONYM
+	W?RIFT
+	W?GULF
+	W?PRECIPICE
+	W?HOLE
+	.PROP 2,P?ACTION
+	RIFT-F
+	.PROP 6,P?ADJECTIVE
+	W?WIDE
+	W?DEEP
+	W?GAPING
+	.BYTE	0
+	.ENDT
+
+T?LIBRARY::	.TABLE			; TABLE FOR OBJECT LIBRARY
+	.STRL "Library"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	LIBRARY-LOBBY		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	LIBRARY-LOBBY		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?235
+	.PROP 2,P?C-MOVE
+	T?1407
+	.PROP 8,P?PSEUDO
+	W?CARPET		; NAME
+	CARPET-PSEUDO		; HANDLER
+	W?DESK		; NAME
+	DESK-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	TABLES
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?CELERY::	.TABLE			; TABLE FOR OBJECT CELERY
+	.STRL "piece of celery"
+	.PROP 6,P?SYNONYM
+	W?CELERY
+	W?PIECE
+	W?STALK
+	.PROP 2,P?ACTION
+	CELERY-F
+	.BYTE	0
+	.ENDT
+
+T?GREEN-BUTTON::	.TABLE			; TABLE FOR OBJECT GREEN-BUTTON
+	.STRL "green button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?GREEN
+	.PROP 2,P?C-MOVE
+	3
+	.BYTE	0
+	.ENDT
+
+T?TERMINAL::	.TABLE			; TABLE FOR OBJECT TERMINAL
+	.STRL "terminal"
+	.PROP 8,P?SYNONYM
+	W?TERMINAL
+	W?KEYBOARD
+	W?SCREEN
+	W?MACHINE
+	.PROP 2,P?ACTION
+	TERMINAL-F
+	.PROP 4,P?ADJECTIVE
+	W?COMPUTER
+	W?VIDEO
+	.PROP 2,P?LDESC
+	STR?237
+	.PROP 2,P?FDESC
+	STR?236
+	.BYTE	0
+	.ENDT
+
+T?RED-SPOOL::	.TABLE			; TABLE FOR OBJECT RED-SPOOL
+	.STRL "red spool"
+	.PROP 6,P?SYNONYM
+	W?SPOOL
+	W?SPOOLS
+	W?OBJECT
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?ACTION
+	RED-SPOOL-F
+	.PROP 4,P?ADJECTIVE
+	W?RED
+	W?SMALL
+	.PROP 2,P?TEXT
+	STR?220
+	.PROP 2,P?FDESC
+	STR?219
+	.BYTE	0
+	.ENDT
+
+T?LASER-DIAL::	.TABLE			; TABLE FOR OBJECT LASER-DIAL
+	.STRL "laser setting dial"
+	.PROP 2,P?SYNONYM
+	W?DIAL
+	.PROP 2,P?ACTION
+	LASER-DIAL-F
+	.PROP 4,P?ADJECTIVE
+	W?LASER
+	W?SETTING
+	.BYTE	0
+	.ENDT
+
+T?SANFAC-F::	.TABLE			; TABLE FOR OBJECT SANFAC-F
+	.STRL "SanFac F"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR-WEST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?277
+	.PROP 2,P?C-MOVE
+	T?1607
+	.PROP 8,P?PSEUDO
+	W?FIXTURES		; NAME
+	TOILET-PSEUDO		; HANDLER
+	W?TOILET		; NAME
+	TOILET-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?LAMP::	.TABLE			; TABLE FOR OBJECT LAMP
+	.STRL "portable lamp"
+	.PROP 6,P?SYNONYM
+	W?LAMP
+	W?LANTERN
+	W?LIGHT
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?ACTION
+	LAMP-F
+	.PROP 4,P?ADJECTIVE
+	W?POWERFUL
+	W?PORTABLE
+	.PROP 2,P?FDESC
+	STR?308
+	.BYTE	0
+	.ENDT
+
+T?PROJECT-CORRIDOR-EAST::	.TABLE			; TABLE FOR OBJECT PROJECT-CORRIDOR-EAST
+	.STRL "Project Corridor East"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	LIBRARY-LOBBY		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	MAIN-LAB		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	COMPUTER-ROOM		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PROJECT-CORRIDOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?279
+	.PROP 2,P?C-MOVE
+	T?2107
+	.BYTE	0
+	.ENDT
+
+T?ESCAPE-POD::	.TABLE			; TABLE FOR OBJECT ESCAPE-POD
+	.STRL "Escape Pod"
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	POD-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?UP		; CONDITIONAL EXIT
+	POD-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	POD-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?VALUE
+	3
+	.PROP 2,P?ACTION
+	ESCAPE-POD-F
+	.PROP 2,P?C-MOVE
+	T?805
+	.PROP 10,P?GLOBAL
+	POD-DOOR
+	CONTROLS
+	LIGHTS
+	GLOBAL-POD
+	WINDOW
+	.BYTE	0
+	.ENDT
+
+T?TOWER-CORE::	.TABLE			; TABLE FOR OBJECT TOWER-CORE
+	.STRL "Tower Core"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	UPPER-ELEVATOR		; TO ROOM
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	COMM-ROOM		; TO ROOM
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	OBSERVATION-DECK		; TO ROOM
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	HELIPAD		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?LDESC
+	STR?205
+	.PROP 2,P?C-MOVE
+	T?5006
+	.PROP 4,P?GLOBAL
+	STAIRS
+	UPPER-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?RAT-ANT::	.TABLE			; TABLE FOR OBJECT RAT-ANT
+	.STRL "rat-like, ant-like man-sized monster"
+	.PROP 6,P?SYNONYM
+	W?MONSTER
+	W?MUTANT
+	W?RAT-ANT
+	.PROP 6,P?ADJECTIVE
+	W?RAT-LIKE
+	W?ANT-LIKE
+	W?MAN-SIZED
+	.PROP 2,P?LDESC
+	STR?348
+	.BYTE	0
+	.ENDT
+
+T?SHELVES::	.TABLE			; TABLE FOR OBJECT SHELVES
+	.STRL "shelf"
+	.PROP 4,P?SYNONYM
+	W?SHELF
+	W?SHELVES
+	.PROP 2,P?ACTION
+	SHELVES-F
+	.BYTE	0
+	.ENDT
+
+T?BROWN-BUTTON::	.TABLE			; TABLE FOR OBJECT BROWN-BUTTON
+	.STRL "brown button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?BROWN
+	.PROP 2,P?C-MOVE
+	6
+	.BYTE	0
+	.ENDT
+
+T?BLUE-ELEVATOR-BUTTON::	.TABLE			; TABLE FOR OBJECT BLUE-ELEVATOR-BUTTON
+	.STRL "blue button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	BLUE-ELEVATOR-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?BLUE
+	W?NORTH
+	.BYTE	0
+	.ENDT
+
+T?MEMO::	.TABLE			; TABLE FOR OBJECT MEMO
+	.STRL "memo"
+	.PROP 2,P?SYNONYM
+	W?MEMO
+	.PROP 2,P?TEXT
+	STR?310
+	.BYTE	0
+	.ENDT
+
+T?TROLL::	.TABLE			; TABLE FOR OBJECT TROLL
+	.STRL "hairy growling biped"
+	.PROP 8,P?SYNONYM
+	W?TROLL
+	W?BIPED
+	W?MUTANT
+	W?MONSTER
+	.PROP 8,P?ADJECTIVE
+	W?HAIRY
+	W?GROWLING
+	W?UGLY
+	W?DEFORMED
+	.PROP 2,P?LDESC
+	STR?349
+	.BYTE	0
+	.ENDT
+
+T?BIO-DOOR-WEST::	.TABLE			; TABLE FOR OBJECT BIO-DOOR-WEST
+	.STRL "bio-lock door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	BIO-DOOR-WEST-F
+	.PROP 2,P?ADJECTIVE
+	W?BIO-LOCK
+	.BYTE	0
+	.ENDT
+
+T?CUBE::	.TABLE			; TABLE FOR OBJECT CUBE
+	.STRL "large metal cube"
+	.PROP 6,P?SYNONYM
+	W?CUBE
+	W?LID
+	W?SOCKET
+	.PROP 2,P?ACTION
+	CUBE-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?METAL
+	.BYTE	0
+	.ENDT
+
+T?BROWN-SPOOL::	.TABLE			; TABLE FOR OBJECT BROWN-SPOOL
+	.STRL "brown spool"
+	.PROP 6,P?SYNONYM
+	W?SPOOL
+	W?SPOOLS
+	W?OBJECT
+	.PROP 2,P?SIZE
+	3
+	.PROP 4,P?ADJECTIVE
+	W?BROWN
+	W?SMALL
+	.PROP 2,P?TEXT
+	STR?307
+	.PROP 2,P?FDESC
+	STR?306
+	.BYTE	0
+	.ENDT
+
+T?SLOT::	.TABLE			; TABLE FOR OBJECT SLOT
+	.STRL "slot"
+	.PROP 2,P?SYNONYM
+	W?SLOT
+	.PROP 2,P?ACTION
+	SLOT-F
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.BYTE	0
+	.ENDT
+
+T?SHUTTLE-CAR-ALFIE::	.TABLE			; TABLE FOR OBJECT SHUTTLE-CAR-ALFIE
+	.STRL "Shuttle Car Alfie"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	SHUTTLE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	ALFIE-CONTROL-EAST		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	ALFIE-CONTROL-WEST		; TO ROOM
+	.PROP 2,P?ACTION
+	SHUTTLE-CAR-F
+	.PROP 2,P?C-MOVE
+	T?905
+	.PROP 4,P?GLOBAL
+	GLOBAL-SHUTTLE
+	SHUTTLE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?CRACKED-BOARD::	.TABLE			; TABLE FOR OBJECT CRACKED-BOARD
+	.STRL "cracked seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	CRACKED-BOARD-F
+	.PROP 8,P?ADJECTIVE
+	W?CRACKED
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?HELICOPTER::	.TABLE			; TABLE FOR OBJECT HELICOPTER
+	.STRL "Helicopter"
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	HELIPAD		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?208
+	.PROP 2,P?C-MOVE
+	T?5206
+	.PROP 4,P?PSEUDO
+	W?LOCK		; NAME
+	LOCK-PSEUDO		; HANDLER
+	.PROP 8,P?GLOBAL
+	OCEAN
+	CONTROLS
+	WINDOW
+	HELICOPTER-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?POD-DOOR::	.TABLE			; TABLE FOR OBJECT POD-DOOR
+	.STRL "escape pod bulkhead"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?BULKHEAD
+	.PROP 2,P?ACTION
+	POD-DOOR-F
+	.PROP 6,P?ADJECTIVE
+	W?EMERGENCY
+	W?ESCAPE
+	W?POD
+	.BYTE	0
+	.ENDT
+
+T?DORM-D::	.TABLE			; TABLE FOR OBJECT DORM-D
+	.STRL "Dorm D"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	SANFAC-D		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	DORM-CORRIDOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?134
+	.PROP 2,P?C-MOVE
+	T?1806
+	.PROP 4,P?PSEUDO
+	W?PARTITION		; NAME
+	PARTITION-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	BED
+	.BYTE	0
+	.ENDT
+
+T?BOOTH-3::	.TABLE			; TABLE FOR OBJECT BOOTH-3
+	.STRL "Booth 3"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	LIBRARY-LOBBY		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	LIBRARY-LOBBY		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?234
+	.PROP 2,P?C-MOVE
+	T?1307
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	IN-BOOTH-PSEUDO		; HANDLER
+	.PROP 8,P?GLOBAL
+	CONTROLS
+	SLOT
+	TELEPORTATION-BUTTON-1
+	TELEPORTATION-BUTTON-2
+	.BYTE	0
+	.ENDT
+
+T?HIGH-PROTEIN::	.TABLE			; TABLE FOR OBJECT HIGH-PROTEIN
+	.STRL "quantity of protein-rich liquid"
+	.PROP 8,P?SYNONYM
+	W?LIQUID
+	W?FLUID
+	W?FOOD
+	W?QUANTITY
+	.PROP 2,P?SIZE
+	5
+	.PROP 2,P?ACTION
+	HIGH-PROTEIN-F
+	.PROP 8,P?ADJECTIVE
+	W?BROWN
+	W?PROTEIN-RICH
+	W?PROTEIN
+	W?RICH
+	.BYTE	0
+	.ENDT
+
+T?GRUE::	.TABLE			; TABLE FOR OBJECT GRUE
+	.STRL "lurking fanged creature"
+	.PROP 8,P?SYNONYM
+	W?GRUE
+	W?CREATURE
+	W?MUTANT
+	W?MONSTER
+	.PROP 2,P?ACTION
+	GRUE-F
+	.PROP 12,P?ADJECTIVE
+	W?LURKING
+	W?SINISTER
+	W?FANGED
+	W?VICIOUS
+	W?HUNGRY
+	W?SILENT
+	.PROP 2,P?LDESC
+	STR?350
+	.BYTE	0
+	.ENDT
+
+T?STORAGE-WEST::	.TABLE			; TABLE FOR OBJECT STORAGE-WEST
+	.STRL "Storage West"
+	.PROP 6,P?SOUTH		; CONDITIONAL EXIT
+	MESS-CORRIDOR		; TO ROOM
+	STORAGE-WEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?OUT		; CONDITIONAL EXIT
+	MESS-CORRIDOR		; TO ROOM
+	STORAGE-WEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?LDESC
+	STR?137
+	.PROP 2,P?C-MOVE
+	T?2106
+	.PROP 4,P?GLOBAL
+	SHELVES
+	STORAGE-WEST-DOOR
+	.BYTE	0
+	.ENDT
+
+T?MEDICINE-BOTTLE::	.TABLE			; TABLE FOR OBJECT MEDICINE-BOTTLE
+	.STRL "medicine bottle"
+	.PROP 4,P?SYNONYM
+	W?BOTTLE
+	W?LABEL
+	.PROP 2,P?SIZE
+	7
+	.PROP 8,P?ADJECTIVE
+	W?MEDICINE
+	W?SMALL
+	W?WHITE
+	W?TRANSLUCENT
+	.PROP 2,P?TEXT
+	STR?222
+	.PROP 2,P?CAPACITY
+	7
+	.PROP 2,P?FDESC
+	STR?221
+	.BYTE	0
+	.ENDT
+
+T?SYSTEMS-CORRIDOR-EAST::	.TABLE			; TABLE FOR OBJECT SYSTEMS-CORRIDOR-EAST
+	.STRL "Systems Corridor East"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	PLANETARY-COURSE-CONTROL		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	PHYSICAL-PLANT-TWO		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	LIBRARY-LOBBY		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?229
+	.PROP 2,P?C-MOVE
+	T?807
+	.BYTE	0
+	.ENDT
+
+T?CRYO-ANTEROOM::	.TABLE			; TABLE FOR OBJECT CRYO-ANTEROOM
+	.STRL "Cryo-Anteroom"
+	.PROP 2,P?ACTION
+	CRYO-ANTEROOM-F
+	.PROP 2,P?C-MOVE
+	T?2007
+	.BYTE	0
+	.ENDT
+
+T?WEST-WING::	.TABLE			; TABLE FOR OBJECT WEST-WING
+	.STRL "West Wing"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	COURTYARD		; TO ROOM
+	.PROP 3,P?DOWN		; IMPOSSIBLE EXIT
+	STR?130		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?LDESC
+	STR?129
+	.PROP 2,P?C-MOVE
+	T?606
+	.PROP 8,P?PSEUDO
+	W?CASTLE		; NAME
+	CASTLE-PSEUDO		; HANDLER
+	W?RUBBLE		; NAME
+	RUBBLE-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	CLIFF
+	OCEAN
+	.BYTE	0
+	.ENDT
+
+T?KITCHEN-CARD::	.TABLE			; TABLE FOR OBJECT KITCHEN-CARD
+	.STRL "kitchen access card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	3
+	.PROP 4,P?ADJECTIVE
+	W?KITCHEN
+	W?ACCESS
+	.PROP 2,P?TEXT
+	STR?153
+	.BYTE	0
+	.ENDT
+
+T?STAIRS::	.TABLE			; TABLE FOR OBJECT STAIRS
+	.STRL "stairway"
+	.PROP 8,P?SYNONYM
+	W?STAIRS
+	W?STEPS
+	W?GANGWAY
+	W?STAIRWAY
+	.BYTE	0
+	.ENDT
+
+T?BOOTH-1::	.TABLE			; TABLE FOR OBJECT BOOTH-1
+	.STRL "Booth 1"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	CONFERENCE-ROOM		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	CONFERENCE-ROOM		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?132
+	.PROP 2,P?C-MOVE
+	T?1006
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	IN-BOOTH-PSEUDO		; HANDLER
+	.PROP 8,P?GLOBAL
+	CONTROLS
+	SLOT
+	TELEPORTATION-BUTTON-2
+	TELEPORTATION-BUTTON-3
+	.BYTE	0
+	.ENDT
+
+T?CHEMICAL-DISPENSER::	.TABLE			; TABLE FOR OBJECT CHEMICAL-DISPENSER
+	.STRL "chemical dispenser"
+	.PROP 4,P?SYNONYM
+	W?DISPENSER
+	W?MACHINE
+	.PROP 2,P?ACTION
+	CHEMICAL-DISPENSER-F
+	.PROP 6,P?ADJECTIVE
+	W?DISPENSER
+	W?LARGE
+	W?CHEMICAL
+	.BYTE	0
+	.ENDT
+
+T?RELAY::	.TABLE			; TABLE FOR OBJECT RELAY
+	.STRL "microrelay"
+	.PROP 4,P?SYNONYM
+	W?RELAY
+	W?MICRORELAY
+	.PROP 2,P?ACTION
+	RELAY-F
+	.PROP 2,P?ADJECTIVE
+	W?MICRO
+	.BYTE	0
+	.ENDT
+
+T?PHYSICAL-PLANT-TWO::	.TABLE			; TABLE FOR OBJECT PHYSICAL-PLANT-TWO
+	.STRL "Physical Plant"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	SYSTEMS-CORRIDOR-EAST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?230
+	.PROP 2,P?C-MOVE
+	T?907
+	.PROP 4,P?PSEUDO
+	W?EQUIPMENT		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?SECOND-BOARD::	.TABLE			; TABLE FOR OBJECT SECOND-BOARD
+	.STRL "second seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?ACTION
+	BOARD-F
+	.PROP 8,P?ADJECTIVE
+	W?SECOND
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?CAN::	.TABLE			; TABLE FOR OBJECT CAN
+	.STRL "tin can"
+	.PROP 2,P?SYNONYM
+	W?CAN
+	.PROP 2,P?SIZE
+	15
+	.PROP 2,P?ACTION
+	CAN-F
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?TIN
+	W?UNOPENED
+	.PROP 2,P?LDESC
+	STR?138
+	.PROP 2,P?FDESC
+	STR?139
+	.BYTE	0
+	.ENDT
+
+T?LAB-OFFICE::	.TABLE			; TABLE FOR OBJECT LAB-OFFICE
+	.STRL "Lab Office"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	AUXILIARY-BOOTH		; TO ROOM
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	BIO-LAB		; TO ROOM
+	OFFICE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	AUXILIARY-BOOTH		; TO ROOM
+	.PROP 2,P?ACTION
+	LAB-OFFICE-F
+	.PROP 2,P?C-MOVE
+	T?3207
+	.PROP 8,P?PSEUDO
+	W?FILES		; NAME
+	CABINETS-PSEUDO		; HANDLER
+	W?BOOTH		; NAME
+	NEAR-BOOTH-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	OFFICE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?SHUTTLE-CARD::	.TABLE			; TABLE FOR OBJECT SHUTTLE-CARD
+	.STRL "shuttle access card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	3
+	.PROP 4,P?ADJECTIVE
+	W?SHUTTLE
+	W?ACCESS
+	.PROP 2,P?TEXT
+	STR?155
+	.BYTE	0
+	.ENDT
+
+T?GROUND::	.TABLE			; TABLE FOR OBJECT GROUND
+	.STRL "floor"
+	.PROP 8,P?SYNONYM
+	W?GROUND
+	W?EARTH
+	W?FLOOR
+	W?DECK
+	.PROP 2,P?ACTION
+	GROUND-F
+	.BYTE	0
+	.ENDT
+
+T?LAB-DESK::	.TABLE			; TABLE FOR OBJECT LAB-DESK
+	.STRL "desk"
+	.PROP 2,P?SYNONYM
+	W?DESK
+	.PROP 2,P?ACTION
+	LAB-DESK-F
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?MESSY
+	.PROP 2,P?CAPACITY
+	10
+	.BYTE	0
+	.ENDT
+
+T?FUNGICIDE-BUTTON::	.TABLE			; TABLE FOR OBJECT FUNGICIDE-BUTTON
+	.STRL "red button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	FUNGICIDE-BUTTON-F
+	.PROP 6,P?ADJECTIVE
+	W?RED
+	W?FUNGICIDE
+	W?EMERGENCY
+	.BYTE	0
+	.ENDT
+
+T?TABLES::	.TABLE			; TABLE FOR OBJECT TABLES
+	.STRL "table"
+	.PROP 4,P?SYNONYM
+	W?TABLE
+	W?TABLES
+	.PROP 2,P?ACTION
+	TABLES-F
+	.PROP 10,P?ADJECTIVE
+	W?ROUND
+	W?CONFERENCE
+	W?SMALL
+	W?WIDE
+	W?LONG
+	.BYTE	0
+	.ENDT
+
+T?NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT NOT-HERE-OBJECT
+	.STRL "such thing"
+	.PROP 2,P?ACTION
+	NOT-HERE-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?SANFAC-A::	.TABLE			; TABLE FOR OBJECT SANFAC-A
+	.STRL "SanFac A"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	DORM-A		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?135
+	.PROP 2,P?C-MOVE
+	T?1306
+	.PROP 8,P?PSEUDO
+	W?FIXTURES		; NAME
+	TOILET-PSEUDO		; HANDLER
+	W?TOILET		; NAME
+	TOILET-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?COMBINATION-PAPER::	.TABLE			; TABLE FOR OBJECT COMBINATION-PAPER
+	.STRL "piece of paper"
+	.PROP 4,P?SYNONYM
+	W?PIECE
+	W?PAPER
+	.PROP 2,P?SIZE
+	2
+	.PROP 2,P?ACTION
+	COMBINATION-PAPER-F
+	.BYTE	0
+	.ENDT
+
+T?DECK-EIGHT::	.TABLE			; TABLE FOR OBJECT DECK-EIGHT
+	.STRL "Deck Eight"
+	.PROP 3,P?NORTH		; IMPOSSIBLE EXIT
+	STR?76		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?EAST		; IMPOSSIBLE EXIT
+	STR?75		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?WEST		; IMPOSSIBLE EXIT
+	STR?75		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	GANGWAY		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?74
+	.PROP 2,P?C-MOVE
+	T?705
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?GANGWAY-DOOR::	.TABLE			; TABLE FOR OBJECT GANGWAY-DOOR
+	.STRL "narrow bulkhead"
+	.PROP 4,P?SYNONYM
+	W?DOOR
+	W?BULKHEAD
+	.PROP 2,P?ACTION
+	GANGWAY-DOOR-F
+	.PROP 4,P?ADJECTIVE
+	W?EMERGENCY
+	W?NARROW
+	.BYTE	0
+	.ENDT
+
+T?MICROBE::	.TABLE			; TABLE FOR OBJECT MICROBE
+	.STRL "microbe"
+	.PROP 6,P?SYNONYM
+	W?MICROBE
+	W?BUG
+	W?MONSTER
+	.PROP 2,P?ACTION
+	MICROBE-F
+	.PROP 2,P?ADJECTIVE
+	W?HUNGRY
+	.PROP 2,P?LDESC
+	STR?335
+	.BYTE	0
+	.ENDT
+
+T?INTNUM::	.TABLE			; TABLE FOR OBJECT INTNUM
+	.STRL "number"
+	.PROP 2,P?SYNONYM
+	W?INTNUM
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-GAMES::	.TABLE			; TABLE FOR OBJECT GLOBAL-GAMES
+	.STRL "game"
+	.PROP 12,P?SYNONYM
+	W?BOCCI
+	W?CHESS
+	W?HIDER-AND-SEEKER
+	W?HUCKA-BUCKA
+	W?SEEKER
+	W?BEANSTALK
+	.PROP 2,P?ACTION
+	GLOBAL-GAMES-F
+	.PROP 6,P?ADJECTIVE
+	W?HIDER
+	W?HUCKA
+	W?BUCKA
+	.BYTE	0
+	.ENDT
+
+T?FOOD-KIT::	.TABLE			; TABLE FOR OBJECT FOOD-KIT
+	.STRL "survival kit"
+	.PROP 4,P?SYNONYM
+	W?PROVISIONS
+	W?KIT
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?ACTION
+	FOOD-KIT-F
+	.PROP 4,P?ADJECTIVE
+	W?SURVIVAL
+	W?EMERGENCY
+	.PROP 2,P?CAPACITY
+	25
+	.BYTE	0
+	.ENDT
+
+T?SLEEP::	.TABLE			; TABLE FOR OBJECT SLEEP
+	.STRL "sacred act of sleeping"
+	.PROP 2,P?SYNONYM
+	W?SLEEP
+	.PROP 2,P?ACTION
+	SLEEP-F
+	.BYTE	0
+	.ENDT
+
+T?BIO-LOCK-WEST::	.TABLE			; TABLE FOR OBJECT BIO-LOCK-WEST
+	.STRL "Bio Lock West"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	BIO-LOCK-EAST		; TO ROOM
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	MAIN-LAB		; TO ROOM
+	BIO-DOOR-WEST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?LDESC
+	STR?287
+	.PROP 2,P?C-MOVE
+	T?2607
+	.PROP 2,P?GLOBAL
+	BIO-DOOR-WEST
+	.BYTE	0
+	.ENDT
+
+T?MESS-CORRIDOR::	.TABLE			; TABLE FOR OBJECT MESS-CORRIDOR
+	.STRL "Mess Corridor"
+	.PROP 6,P?NORTH		; CONDITIONAL EXIT
+	STORAGE-WEST		; TO ROOM
+	STORAGE-WEST-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	DORM-CORRIDOR		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	MESS-HALL		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	REC-CORRIDOR		; TO ROOM
+	.PROP 2,P?ACTION
+	MESS-CORRIDOR-F
+	.PROP 2,P?C-MOVE
+	T?2006
+	.PROP 2,P?GLOBAL
+	STORAGE-WEST-DOOR
+	.BYTE	0
+	.ENDT
+
+T?DISPENSER::	.TABLE			; TABLE FOR OBJECT DISPENSER
+	.STRL "dispenser unit"
+	.PROP 8,P?SYNONYM
+	W?UNIT
+	W?NICHE
+	W?MACHINE
+	W?DISPENSER
+	.PROP 2,P?ACTION
+	DISPENSER-F
+	.PROP 2,P?ADJECTIVE
+	W?DISPENSER
+	.BYTE	0
+	.ENDT
+
+T?SANFAC-E::	.TABLE			; TABLE FOR OBJECT SANFAC-E
+	.STRL "SanFac E"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	ADMIN-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?149
+	.PROP 2,P?C-MOVE
+	T?2906
+	.PROP 8,P?PSEUDO
+	W?FIXTURES		; NAME
+	TOILET-PSEUDO		; HANDLER
+	W?TOILET		; NAME
+	TOILET-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?DIARY::	.TABLE			; TABLE FOR OBJECT DIARY
+	.STRL "diary"
+	.PROP 6,P?SYNONYM
+	W?DIARY
+	W?MACHINE
+	W?RECORDER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?ACTION
+	DIARY-F
+	.PROP 4,P?ADJECTIVE
+	W?BATTERED
+	W?OLD
+	.PROP 2,P?CAPACITY
+	0
+	.BYTE	0
+	.ENDT
+
+T?RAD-DOOR-WEST::	.TABLE			; TABLE FOR OBJECT RAD-DOOR-WEST
+	.STRL "radiation-lock door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	RAD-DOOR-WEST-F
+	.PROP 2,P?ADJECTIVE
+	W?RADIATION
+	.BYTE	0
+	.ENDT
+
+T?MINI-CARD::	.TABLE			; TABLE FOR OBJECT MINI-CARD
+	.STRL "miniaturization access card"
+	.PROP 4,P?SYNONYM
+	W?CARD
+	W?CARDS
+	.PROP 2,P?VALUE
+	1
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?ACTION
+	MINI-CARD-F
+	.PROP 6,P?ADJECTIVE
+	W?MINIATURIZATION
+	W?MINI
+	W?ACCESS
+	.PROP 2,P?TEXT
+	STR?282
+	.BYTE	0
+	.ENDT
+
+T?RED-BUTTON::	.TABLE			; TABLE FOR OBJECT RED-BUTTON
+	.STRL "red button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?RED
+	.PROP 2,P?C-MOVE
+	1
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-DOORWAY::	.TABLE			; TABLE FOR OBJECT GLOBAL-DOORWAY
+	.STRL "doorway"
+	.PROP 6,P?SYNONYM
+	W?DOORWAY
+	W?PORTAL
+	W?OPENING
+	.PROP 2,P?ACTION
+	GLOBAL-DOORWAY-F
+	.PROP 16,P?ADJECTIVE
+	W?NORTH
+	W?SOUTH
+	W?EAST
+	W?WEST
+	W?NE
+	W?SE
+	W?NW
+	W?SW
+	.BYTE	0
+	.ENDT
+
+T?UPPER-ELEVATOR-DOOR::	.TABLE			; TABLE FOR OBJECT UPPER-ELEVATOR-DOOR
+	.STRL "blue door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	UPPER-ELEVATOR-DOOR-F
+	.PROP 6,P?ADJECTIVE
+	W?UPPER
+	W?ELEVATOR
+	W?BLUE
+	.BYTE	0
+	.ENDT
+
+T?HELICOPTER-OBJECT::	.TABLE			; TABLE FOR OBJECT HELICOPTER-OBJECT
+	.STRL "large vehicle"
+	.PROP 4,P?SYNONYM
+	W?VEHICLE
+	W?HELICOPTER
+	.PROP 2,P?ACTION
+	HELICOPTER-OBJECT-F
+	.PROP 2,P?ADJECTIVE
+	W?LARGE
+	.BYTE	0
+	.ENDT
+
+T?TRIFFID::	.TABLE			; TABLE FOR OBJECT TRIFFID
+	.STRL "mobile man-eating plant"
+	.PROP 8,P?SYNONYM
+	W?TRIFFID
+	W?PLANT
+	W?MUTANT
+	W?MONSTER
+	.PROP 6,P?ADJECTIVE
+	W?MOBILE
+	W?MAN-EATING
+	W?GIANT
+	.PROP 2,P?LDESC
+	STR?351
+	.BYTE	0
+	.ENDT
+
+T?ROBOT-SHOP::	.TABLE			; TABLE FOR OBJECT ROBOT-SHOP
+	.STRL "Robot Shop"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	MACHINE-SHOP		; TO ROOM
+	.PROP 2,P?NW		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?178
+	.PROP 2,P?C-MOVE
+	T?4506
+	.PROP 4,P?PSEUDO
+	W?DEVICE		; NAME
+	DEVICES-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?ESCALATOR::	.TABLE			; TABLE FOR OBJECT ESCALATOR
+	.STRL "Escalator"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	FORK		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	LAWANDA-PLATFORM		; TO ROOM
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	FORK		; TO ROOM
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	LAWANDA-PLATFORM		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?216
+	.PROP 2,P?C-MOVE
+	T?207
+	.PROP 4,P?PSEUDO
+	W?ESCALATOR		; NAME
+	ESCALATOR-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?GANGWAY::	.TABLE			; TABLE FOR OBJECT GANGWAY
+	.STRL "Gangway"
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	DECK-EIGHT		; TO ROOM
+	.PROP 6,P?DOWN		; CONDITIONAL EXIT
+	DECK-NINE		; TO ROOM
+	GANGWAY-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	GANGWAY-F
+	.PROP 2,P?LDESC
+	STR?73
+	.PROP 2,P?C-MOVE
+	T?605
+	.PROP 4,P?GLOBAL
+	GANGWAY-DOOR
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?SAFETY-WEB::	.TABLE			; TABLE FOR OBJECT SAFETY-WEB
+	.STRL "safety web"
+	.PROP 8,P?SYNONYM
+	W?MASS
+	W?WEB
+	W?WEBBING
+	W?NET
+	.PROP 2,P?ACTION
+	SAFETY-WEB-F
+	.PROP 2,P?ADJECTIVE
+	W?SAFETY
+	.BYTE	0
+	.ENDT
+
+T?BROCHURE::	.TABLE			; TABLE FOR OBJECT BROCHURE
+	.STRL "brochure"
+	.PROP 6,P?SYNONYM
+	W?BROCHURE
+	W?PAMPHLET
+	W?LEAFLET
+	.PROP 2,P?SIZE
+	4
+	.PROP 2,P?LDESC
+	STR?81
+	.PROP 2,P?TEXT
+	STR?82
+	.BYTE	0
+	.ENDT
+
+T?TOOL-ROOM::	.TABLE			; TABLE FOR OBJECT TOOL-ROOM
+	.STRL "Tool Room"
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	MACHINE-SHOP		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?167
+	.PROP 2,P?C-MOVE
+	T?4306
+	.PROP 2,P?GLOBAL
+	SHELVES
+	.BYTE	0
+	.ENDT
+
+T?BLUE-BUTTON::	.TABLE			; TABLE FOR OBJECT BLUE-BUTTON
+	.STRL "blue button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	CHEM-BUTTON-F
+	.PROP 2,P?ADJECTIVE
+	W?BLUE
+	.PROP 2,P?C-MOVE
+	2
+	.BYTE	0
+	.ENDT
+
+T?UPPER-ELEVATOR::	.TABLE			; TABLE FOR OBJECT UPPER-ELEVATOR
+	.STRL "Upper Elevator"
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	ELEVATOR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 3,P?UP		; IMPOSSIBLE EXIT
+	STR?201		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 3,P?DOWN		; IMPOSSIBLE EXIT
+	STR?201		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	ELEVATOR-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?ACTION
+	UPPER-ELEVATOR-F
+	.PROP 2,P?C-MOVE
+	T?4706
+	.PROP 10,P?GLOBAL
+	LIGHTS
+	CONTROLS
+	SLOT
+	ELEVATOR-BUTTON
+	UPPER-ELEVATOR-DOOR
+	.BYTE	0
+	.ENDT
+
+T?DORM-C::	.TABLE			; TABLE FOR OBJECT DORM-C
+	.STRL "Dorm C"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	DORM-CORRIDOR		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	SANFAC-C		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?134
+	.PROP 2,P?C-MOVE
+	T?1606
+	.PROP 4,P?PSEUDO
+	W?PARTITION		; NAME
+	PARTITION-PSEUDO		; HANDLER
+	.PROP 2,P?GLOBAL
+	BED
+	.BYTE	0
+	.ENDT
+
+T?LAWANDA-PLATFORM::	.TABLE			; TABLE FOR OBJECT LAWANDA-PLATFORM
+	.STRL "Lawanda Platform"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	SHUTTLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	ESCALATOR		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	SHUTTLE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	ESCALATOR		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?ACTION
+	LAWANDA-PLATFORM-F
+	.PROP 2,P?C-MOVE
+	T?107
+	.PROP 4,P?PSEUDO
+	W?ESCALATOR		; NAME
+	ESCALATOR-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	GLOBAL-SHUTTLE
+	STAIRS
+	.BYTE	0
+	.ENDT
+
+T?AUXILIARY-BOOTH::	.TABLE			; TABLE FOR OBJECT AUXILIARY-BOOTH
+	.STRL "Auxiliary Booth"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	LAB-OFFICE		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	LAB-OFFICE		; TO ROOM
+	.PROP 2,P?VALUE
+	4
+	.PROP 2,P?LDESC
+	STR?312
+	.PROP 2,P?C-MOVE
+	T?3307
+	.PROP 4,P?PSEUDO
+	W?BOOTH		; NAME
+	IN-BOOTH-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?ALFIE-CONTROL-WEST::	.TABLE			; TABLE FOR OBJECT ALFIE-CONTROL-WEST
+	.STRL "Alfie Control West"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	SHUTTLE-CAR-ALFIE		; TO ROOM
+	SHUTTLE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	CONTROL-CABIN-F
+	.PROP 2,P?C-MOVE
+	T?1105
+	.PROP 10,P?GLOBAL
+	SLOT
+	LEVER
+	WINDOW
+	SHUTTLE-DOOR
+	GLOBAL-SHUTTLE
+	.BYTE	0
+	.ENDT
+
+T?SPOOL-READER::	.TABLE			; TABLE FOR OBJECT SPOOL-READER
+	.STRL "microfilm reader"
+	.PROP 8,P?SYNONYM
+	W?READER
+	W?SCREEN
+	W?OPENING
+	W?MACHINE
+	.PROP 2,P?ACTION
+	SPOOL-READER-F
+	.PROP 6,P?ADJECTIVE
+	W?MICROFILM
+	W?SMALL
+	W?CIRCULAR
+	.PROP 2,P?LDESC
+	STR?271
+	.PROP 2,P?CAPACITY
+	3
+	.PROP 2,P?FDESC
+	STR?270
+	.BYTE	0
+	.ENDT
+
+T?PATROL-UNIFORM::	.TABLE			; TABLE FOR OBJECT PATROL-UNIFORM
+	.STRL "Patrol uniform"
+	.PROP 6,P?SYNONYM
+	W?UNIFORM
+	W?POCKET
+	W?SUIT
+	.PROP 2,P?ACTION
+	PATROL-UNIFORM-F
+	.PROP 4,P?ADJECTIVE
+	W?PATROL
+	W?WRINKLED
+	.PROP 2,P?LDESC
+	STR?54
+	.PROP 2,P?CAPACITY
+	10
+	.BYTE	0
+	.ENDT
+
+T?ROBOT-HOLE::	.TABLE			; TABLE FOR OBJECT ROBOT-HOLE
+	.STRL "small doorway"
+	.PROP 6,P?SYNONYM
+	W?DOOR
+	W?DOORWAY
+	W?HOLE
+	.PROP 2,P?ACTION
+	ROBOT-HOLE-F
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?VERY
+	.PROP 2,P?CAPACITY
+	0
+	.BYTE	0
+	.ENDT
+
+T?RADIATION-LOCK-EAST::	.TABLE			; TABLE FOR OBJECT RADIATION-LOCK-EAST
+	.STRL "Radiation Lock East"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	RADIATION-LAB		; TO ROOM
+	RAD-DOOR-EAST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	RADIATION-LOCK-WEST		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?290
+	.PROP 2,P?C-MOVE
+	T?2907
+	.PROP 2,P?GLOBAL
+	RAD-DOOR-EAST
+	.BYTE	0
+	.ENDT
+
+T?RADIATION-LAB::	.TABLE			; TABLE FOR OBJECT RADIATION-LAB
+	.STRL "Radiation Lab"
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	RADIATION-LOCK-EAST		; TO ROOM
+	RAD-DOOR-EAST		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	RADIATION-LAB-F
+	.PROP 2,P?LDESC
+	STR?304
+	.PROP 2,P?C-MOVE
+	T?3107
+	.PROP 8,P?PSEUDO
+	W?CRACK		; NAME
+	CRACK-PSEUDO		; HANDLER
+	W?EQUIPMENT		; NAME
+	EQUIPMENT-PSEUDO		; HANDLER
+	.PROP 4,P?GLOBAL
+	TABLES
+	RAD-DOOR-EAST
+	.BYTE	0
+	.ENDT
+
+T?OCEAN::	.TABLE			; TABLE FOR OBJECT OCEAN
+	.STRL "ocean"
+	.PROP 2,P?SYNONYM
+	W?OCEAN
+	.PROP 2,P?ACTION
+	OCEAN-F
+	.PROP 2,P?ADJECTIVE
+	W?ENDLESS
+	.BYTE	0
+	.ENDT
+
+T?SEND-CONSOLE::	.TABLE			; TABLE FOR OBJECT SEND-CONSOLE
+	.STRL "communication send console"
+	.PROP 4,P?SYNONYM
+	W?CONSOLE
+	W?CONTROL
+	.PROP 8,P?ADJECTIVE
+	W?COMMUNICATIONS
+	W?SEND
+	W?RIGHT
+	W?SECOND
+	.BYTE	0
+	.ENDT
+
+T?PLAIN-HALL::	.TABLE			; TABLE FOR OBJECT PLAIN-HALL
+	.STRL "Plain Hall"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	REC-AREA		; TO ROOM
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	REC-CORRIDOR		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	COURTYARD		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?131
+	.PROP 2,P?C-MOVE
+	T?706
+	.BYTE	0
+	.ENDT
+
+T?MECH-CORRIDOR::	.TABLE			; TABLE FOR OBJECT MECH-CORRIDOR
+	.STRL "Mech Corridor"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-N		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	REACTOR-CONTROL		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PHYSICAL-PLANT		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?158
+	.PROP 2,P?C-MOVE
+	T?3606
+	.BYTE	0
+	.ENDT
+
+T?REACTOR-ELEVATOR-DOOR::	.TABLE			; TABLE FOR OBJECT REACTOR-ELEVATOR-DOOR
+	.STRL "reactor elevator door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	REACTOR-ELEVATOR-DOOR-F
+	.PROP 4,P?ADJECTIVE
+	W?REACTOR
+	W?ELEVATOR
+	.BYTE	0
+	.ENDT
+
+T?RED-GOO::	.TABLE			; TABLE FOR OBJECT RED-GOO
+	.STRL "blob of red goo"
+	.PROP 8,P?SYNONYM
+	W?GOO
+	W?BLOB
+	W?FOOD
+	W?PIE
+	.PROP 2,P?ACTION
+	GOO-F
+	.PROP 4,P?ADJECTIVE
+	W?RED
+	W?CHERRY
+	.BYTE	0
+	.ENDT
+
+T?RED-ELEVATOR-BUTTON::	.TABLE			; TABLE FOR OBJECT RED-ELEVATOR-BUTTON
+	.STRL "red button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	RED-ELEVATOR-BUTTON-F
+	.PROP 4,P?ADJECTIVE
+	W?RED
+	W?SOUTH
+	.BYTE	0
+	.ENDT
+
+T?FOURTH-BOARD::	.TABLE			; TABLE FOR OBJECT FOURTH-BOARD
+	.STRL "fourth seventeen-centimeter fromitz board"
+	.PROP 4,P?SYNONYM
+	W?BOARD
+	W?BOARDS
+	.PROP 2,P?ACTION
+	BOARD-F
+	.PROP 8,P?ADJECTIVE
+	W?FOURTH
+	W?SEVENTEEN
+	W?CENTIMETER
+	W?FROMITZ
+	.BYTE	0
+	.ENDT
+
+T?MACHINE-SHOP::	.TABLE			; TABLE FOR OBJECT MACHINE-SHOP
+	.STRL "Machine Shop"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	MECH-CORRIDOR-S		; TO ROOM
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	ROBOT-SHOP		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	TOOL-ROOM		; TO ROOM
+	.PROP 2,P?ACTION
+	MACHINE-SHOP-F
+	.PROP 2,P?C-MOVE
+	T?4406
+	.PROP 4,P?PSEUDO
+	W?SPOUT		; NAME
+	CHEM-SPOUT-PSEUDO		; HANDLER
+	.BYTE	0
+	.ENDT
+
+T?PSEUDO-OBJECT::	.TABLE			; TABLE FOR OBJECT PSEUDO-OBJECT
+	.STRL "pseudoxyz"
+	.PROP 2,P?ACTION
+	GO
+	.BYTE	0
+	.ENDT
+
+T?BETTY-CONTROL-EAST::	.TABLE			; TABLE FOR OBJECT BETTY-CONTROL-EAST
+	.STRL "Betty Control East"
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	SHUTTLE-CAR-BETTY		; TO ROOM
+	SHUTTLE-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?ACTION
+	CONTROL-CABIN-F
+	.PROP 2,P?C-MOVE
+	T?1305
+	.PROP 10,P?GLOBAL
+	GLOBAL-SHUTTLE
+	SLOT
+	WINDOW
+	LEVER
+	SHUTTLE-DOOR
+	.BYTE	0
+	.ENDT
+
+T?ELEVATOR-BUTTON::	.TABLE			; TABLE FOR OBJECT ELEVATOR-BUTTON
+	.STRL "button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 2,P?ACTION
+	ELEVATOR-BUTTON-F
+	.BYTE	0
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+IMPTBL::
+
+T?101::
+T?C-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?102::
+T?P-LEXV::	.TABLE
+	.BYTE 39
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?202::
+T?P-INBUF::	.TABLE
+	.BYTE 80
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?302::
+T?P-ITBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?402::
+T?P-OTBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?502::
+T?P-VTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?602::
+T?RESERVE-INBUF::	.TABLE
+	.BYTE 80
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?702::
+T?AGAIN-LEXV::	.TABLE
+	.BYTE 39
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?802::
+T?RESERVE-LEXV::	.TABLE
+	.BYTE 39
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?902::
+T?OOPS-INBUF::	.TABLE
+	.BYTE 80
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1002::
+T?OOPS-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1102::
+T?P-PRSO::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1202::
+T?P-PRSI::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1302::
+T?P-BUTS::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1402::
+T?P-MERGE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1502::
+T?P-OCLAUSE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?105::
+T?SL-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?205::
+T?BLANKS::	.TABLE
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.BYTE 32
+	.ENDT
+
+T?305::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?405::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	15
+	0
+	0
+	0
+	15
+	0
+	0
+	.ENDT
+
+T?505::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	15
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?605::	.TABLE
+	0
+	0
+	10
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?705::	.TABLE
+	0
+	0
+	10
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?805::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?905::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1005::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1105::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1205::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1305::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1405::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?106::	.TABLE
+	0
+	0
+	0
+	35
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?206::	.TABLE
+	0
+	0
+	10
+	40
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?306::	.TABLE
+	0
+	0
+	25
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?406::	.TABLE
+	0
+	0
+	15
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?506::	.TABLE
+	0
+	0
+	15
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?606::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?706::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	.ENDT
+
+T?806::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?906::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1006::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1106::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1206::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1306::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1406::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1506::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1606::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1706::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1806::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1906::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2006::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2106::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2206::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	160
+	0
+	0
+	.ENDT
+
+T?2306::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2406::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2506::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	160
+	0
+	0
+	0
+	30
+	0
+	0
+	.ENDT
+
+T?2606::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2706::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2806::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2906::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3006::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3106::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3206::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3306::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3406::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3506::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3606::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3706::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	25
+	0
+	0
+	0
+	.ENDT
+
+T?3806::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3906::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4006::	.TABLE
+	0
+	0
+	20
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4106::	.TABLE
+	0
+	0
+	0
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4206::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4306::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	.ENDT
+
+T?4406::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4506::	.TABLE
+	0
+	0
+	0
+	0
+	25
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4606::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4706::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4806::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?4906::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5006::	.TABLE
+	0
+	0
+	0
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5106::	.TABLE
+	0
+	0
+	15
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5206::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5306::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5406::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5506::
+T?ORDER-LTBL::	.TABLE
+	7
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5606::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5706::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?5806::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?107::	.TABLE
+	0
+	0
+	0
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?207::	.TABLE
+	0
+	0
+	15
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?307::	.TABLE
+	0
+	0
+	15
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	25
+	0
+	.ENDT
+
+T?407::	.TABLE
+	25
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	0
+	0
+	.ENDT
+
+T?507::	.TABLE
+	0
+	0
+	0
+	30
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?607::	.TABLE
+	0
+	0
+	15
+	0
+	0
+	0
+	25
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?707::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?807::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?907::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1007::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1107::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1207::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1307::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1407::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1507::	.TABLE
+	0
+	0
+	0
+	0
+	25
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1607::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1707::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1807::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1907::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2007::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2107::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2207::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	.ENDT
+
+T?2307::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2407::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	25
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2507::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2607::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	10
+	0
+	0
+	.ENDT
+
+T?2707::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	10
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2807::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?2907::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3007::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3107::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3207::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3307::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3407::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3507::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3607::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?3707::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?108::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?208::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?308::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?408::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?508::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?608::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?708::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?808::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?908::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1008::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1108::	.TABLE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?1208::	.TABLE
+	.BYTE 0
+	.ENDT
+
+T?1308::
+T?DIROUT-TBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; END OF IMPURENESS
+
+IMPURE::
+
+
+
+; VERB TABLE IS DEFINED HERE
+
+VERBS::
+VTBL::	.TABLE
+	ST?KISS
+	ST?SKIP
+	ST?PULL
+	ST?PUT
+	ST?RAPE
+	ST?VERBOSE
+	ST?WALK
+	ST?OIL
+	ST?QUIT
+	ST?FIND
+	ST?YES
+	ST?DESTROY
+	ST?SCOLD
+	ST?UNLOCK
+	ST?READ
+	ST?SAY
+	ST?JUMP
+	ST?POUR
+	ST?WAIT
+	ST?TAKE
+	ST?NO
+	ST?FOLLOW
+	ST?TYPE
+	ST?FLY
+	ST?$REFRESH
+	ST?VERSION
+	ST?#UNRECORD
+	ST?MOVE
+	ST?PLAY
+	ST?OPEN
+	ST?TASTE
+	ST?#COMMAND
+	ST?KNOCK
+	ST?PICK
+	ST?BOARD
+	ST?#RANDOM
+	ST?APPLY
+	ST?ESCAPE
+	ST?STAND
+	ST?LISTEN
+	ST?SHOW
+	ST?SAVE
+	ST?HELP
+	ST?TELL
+	ST?THROW
+	ST?ZORK
+	ST?SHAKE
+	ST?INVENTORY
+	ST?ATTACK
+	ST?ENTER
+	ST?SEARCH
+	ST?WEAR
+	ST?DISEMBARK
+	ST?SWIM
+	ST?UNSCRIPT
+	ST?PUSH
+	ST?RUB
+	ST?SUPER
+	ST?SIT
+	ST?REACH
+	ST?SCORE
+	ST?SCRUB
+	ST?SALUTE
+	ST?LOOK
+	ST?EMPTY
+	ST?ATTRACT
+	ST?DROP
+	ST?STEP
+	ST?TIME
+	ST?LEAVE
+	ST?CURSE
+	ST?SCRIPT
+	ST?$VERIFY
+	ST?RESTART
+	ST?SMELL
+	ST?BRIEF
+	ST?DIAGNOSE
+	ST?GIVE
+	ST?SLEEP
+	ST?SMILE
+	ST?WAKE
+	ST?REMOVE
+	ST?ANSWER
+	ST?YELL
+	ST?LOCK
+	ST?ACTIVATE
+	ST?KICK
+	ST?POINT
+	ST?TURN
+	ST?#RECORD
+	ST?MAYBE
+	ST?RESTORE
+	ST?CLOSE
+	ST?STRIKE
+	ST?FIX
+	ST?SLIDE
+	ST?WAVE
+	ST?EXIT
+	ST?EXAMINE
+	ST?EAT
+	ST?FIRE
+	ST?CLIMB
+	ST?FLUSH
+	ST?HELLO
+	.ENDT
+
+; SYNTAX DEFINITION TABLES ARE DEFINED HERE
+
+ST?KISS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?KISS
+	.ENDT
+
+ST?SKIP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SKIP
+	.ENDT
+
+ST?PULL::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE V?ZATTRACT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PULL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PULL
+	.ENDT
+
+ST?PUT::	.TABLE
+	.BYTE 10	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?INSERT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?SLIDE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SPAN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?NEAR
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?DROP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.ENDT
+
+ST?RAPE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RAPE
+	.ENDT
+
+ST?VERBOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?VERBOSE
+	.ENDT
+
+ST?WALK::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?SLIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXIT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-TO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE CLIMBBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE CLIMBBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-AROUND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK
+	.ENDT
+
+ST?OIL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?OIL
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?OIL
+	.ENDT
+
+ST?QUIT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?QUIT
+	.ENDT
+
+ST?FIND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.ENDT
+
+ST?YES::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YES
+	.ENDT
+
+ST?DESTROY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 0
+	.BYTE V?MUNG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE SHAVE
+	.BYTE V?MUNG
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 0
+	.BYTE V?MUNG
+	.ENDT
+
+ST?SCOLD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCOLD
+	.ENDT
+
+ST?UNLOCK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE TOOLBIT
+	.BYTE SOG+SIR
+	.BYTE SH+SC+SOG+SIR+STAKE
+	.BYTE V?UNLOCK
+	.ENDT
+
+ST?READ::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE READBIT
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?READ
+	.ENDT
+
+ST?SAY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAY
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TALK
+	.ENDT
+
+ST?JUMP::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.ENDT
+
+ST?POUR::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POUR
+	.ENDT
+
+ST?WAIT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAIT
+	.ENDT
+
+ST?TAKE::	.TABLE
+	.BYTE 12	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE V?ZATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?NEAR
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SH+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE SOG+SH
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SC+SIR
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OUT
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SC+SIR
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?NO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?NO
+	.ENDT
+
+ST?FOLLOW::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.ENDT
+
+ST?TYPE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TYPE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TYPE
+	.ENDT
+
+ST?FLY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLY
+	.ENDT
+
+ST?$REFRESH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$REFRESH
+	.ENDT
+
+ST?VERSION::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?VERSION
+	.ENDT
+
+ST?#UNRECORD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$UNRECORD
+	.ENDT
+
+ST?MOVE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH-UP
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE
+	.ENDT
+
+ST?PLAY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLAY
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLAY-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLAY
+	.ENDT
+
+ST?OPEN::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?OPEN-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE DOORBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?OPEN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?OPEN
+	.ENDT
+
+ST?TASTE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TASTE
+	.ENDT
+
+ST?#COMMAND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$COMMAND
+	.ENDT
+
+ST?KNOCK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ATTACK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNOCK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNOCK
+	.ENDT
+
+ST?PICK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?UP
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE V?ZATTRACT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?BOARD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.ENDT
+
+ST?#RANDOM::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$RANDOM
+	.ENDT
+
+ST?APPLY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT
+	.ENDT
+
+ST?ESCAPE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ZESCAPE
+	.ENDT
+
+ST?STAND::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.ENDT
+
+ST?LISTEN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LISTEN
+	.ENDT
+
+ST?SHOW::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?SHOW
+	.ENDT
+
+ST?SAVE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAVE
+	.ENDT
+
+ST?HELP::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HINTS-NO
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HINT
+	.ENDT
+
+ST?TELL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FOR
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?ASK-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.ENDT
+
+ST?THROW::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?THROW-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?THROW-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE SOG+SIR
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE SOG+SIR
+	.BYTE V?THROW
+	.ENDT
+
+ST?ZORK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ZORK
+	.ENDT
+
+ST?SHAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHAKE-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHAKE
+	.ENDT
+
+ST?INVENTORY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?INVENTORY
+	.ENDT
+
+ST?ATTACK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?ATTACK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ATTACK
+	.ENDT
+
+ST?ENTER::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ENTER
+	.ENDT
+
+ST?SEARCH::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.ENDT
+
+ST?WEAR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?WEAR
+	.ENDT
+
+ST?DISEMBARK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.ENDT
+
+ST?SWIM::	.TABLE
+	.BYTE 6	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM-DIR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM-DIR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM-DIR
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SWIM
+	.ENDT
+
+ST?UNSCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?UNSCRIPT
+	.ENDT
+
+ST?PUSH::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AGAINST
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH
+	.ENDT
+
+ST?RUB::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE V?ZATTRACT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RUB
+	.ENDT
+
+ST?SUPER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SUPER-BRIEF
+	.ENDT
+
+ST?SIT::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SPAN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?NEAR
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE+STAKE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SIT-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SIT
+	.ENDT
+
+ST?REACH::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REACH-FOR
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE CONTBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REACH
+	.ENDT
+
+ST?SCORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCORE
+	.ENDT
+
+ST?SCRUB::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?SCRUB
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCRUB
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCRUB
+	.ENDT
+
+ST?SALUTE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SALUTE
+	.ENDT
+
+ST?LOOK::	.TABLE
+	.BYTE 12	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-BEHIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-CRETIN
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK
+	.ENDT
+
+ST?EMPTY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?EMPTY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?EMPTY
+	.ENDT
+
+ST?ATTRACT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE V?ZATTRACT
+	.ENDT
+
+ST?DROP::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?DROP
+	.ENDT
+
+ST?STEP::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STEP-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STEP-ON
+	.ENDT
+
+ST?TIME::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TIME
+	.ENDT
+
+ST?LEAVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DROP
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.ENDT
+
+ST?CURSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CURSE
+	.ENDT
+
+ST?SCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCRIPT
+	.ENDT
+
+ST?$VERIFY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$VERIFY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$VERIFY
+	.ENDT
+
+ST?RESTART::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTART
+	.ENDT
+
+ST?SMELL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMELL
+	.ENDT
+
+ST?BRIEF::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BRIEF
+	.ENDT
+
+ST?DIAGNOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DIAGNOSE
+	.ENDT
+
+ST?GIVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG
+	.BYTE SMANY+SH+SHAVE
+	.BYTE V?SGIVE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE SMANY+SH+SHAVE
+	.BYTE 0
+	.BYTE V?GIVE
+	.ENDT
+
+ST?SLEEP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SLEEP
+	.ENDT
+
+ST?SMILE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMILE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMILE
+	.ENDT
+
+ST?WAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ALARM
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ALARM
+	.ENDT
+
+ST?REMOVE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE V?ZATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REMOVE
+	.ENDT
+
+ST?ANSWER::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPLY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ANSWER
+	.ENDT
+
+ST?YELL::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCOLD
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YELL
+	.ENDT
+
+ST?LOCK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE SH
+	.BYTE V?LOCK
+	.ENDT
+
+ST?ACTIVATE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.ENDT
+
+ST?KICK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KICK
+	.ENDT
+
+ST?POINT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE SOG+SIR
+	.BYTE V?POINT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?POINT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?POINT
+	.ENDT
+
+ST?TURN::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SET
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SET
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-OFF
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE SOG+SIR+SH+SC+SHAVE
+	.BYTE V?TURN
+	.ENDT
+
+ST?#RECORD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$RECORD
+	.ENDT
+
+ST?MAYBE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?MAYBE
+	.ENDT
+
+ST?RESTORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTORE
+	.ENDT
+
+ST?CLOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?CLOSE
+	.ENDT
+
+ST?STRIKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?ATTACK
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE SH+SC+SOG+SIR+SHAVE
+	.BYTE V?ATTACK
+	.ENDT
+
+ST?FIX::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIX-IT
+	.ENDT
+
+ST?SLIDE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SPAN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SHAVE
+	.BYTE 0
+	.BYTE V?SLIDE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.ENDT
+
+ST?WAVE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?NEAR
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?ATTRACT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?WAVE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?WAVE
+	.ENDT
+
+ST?EXIT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXIT
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXIT
+	.ENDT
+
+ST?EXAMINE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SIR+SOG+SMANY
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SIR+SOG+SMANY
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.ENDT
+
+ST?EAT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?EAT-FROM
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE FOODBIT
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?EAT
+	.ENDT
+
+ST?FIRE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH
+	.BYTE 0
+	.BYTE V?ZAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ZAP
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ZAP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH
+	.BYTE V?SZAP
+	.ENDT
+
+ST?CLIMB::	.TABLE
+	.BYTE 8	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE CLIMBBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE CLIMBBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-FOO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE CLIMBBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RMUNGBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE CLIMBBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GO-UP
+	.ENDT
+
+ST?FLUSH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLUSH
+	.ENDT
+
+ST?HELLO::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ACTIONS::
+ATBL::	.TABLE
+	V-BRIEF
+	V-SUPER-BRIEF
+	V-DIAGNOSE
+	V-INVENTORY
+	V-QUIT
+	V-RESTART
+	V-RESTORE
+	V-SAVE
+	V-SCORE
+	V-SCRIPT
+	V-UNSCRIPT
+	V-$VERIFY
+	V-$REFRESH
+	V-VERSION
+	V-VERBOSE
+	V-$RANDOM
+	V-$COMMAND
+	V-$RECORD
+	V-$UNRECORD
+	V-ANSWER
+	V-REPLY
+	V-PUT
+	V-ATTACK
+	V-BOARD
+	V-GO-UP
+	V-CLIMB-ON
+	V-CLIMB-UP
+	V-THROUGH
+	V-CLIMB-DOWN
+	V-CLIMB-FOO
+	V-SIT
+	V-SIT-DOWN
+	V-PUT-UNDER
+	V-ATTRACT
+	V-SPAN
+	V-STAND
+	V-STAND-ON
+	V-CLOSE
+	V-CURSE
+	V-DISEMBARK
+	V-DROP
+	V-PUT-ON
+	V-EAT
+	V-EAT-FROM
+	V-ENTER
+	V-EXIT
+	V-EXAMINE
+	V-LOOK-INSIDE
+	V-FIND
+	V-SZAP
+	V-ZAP
+	V-FOLLOW
+	V-FLUSH
+	V-FLY
+	V-GIVE
+	V-SGIVE
+	V-HELLO
+	V-HINT
+	V-HINTS-NO
+	V-LEAP
+	V-KICK
+	V-KISS
+	V-KNOCK
+	V-LEAVE
+	V-LISTEN
+	V-LOCK
+	V-LOOK
+	V-LOOK-CRETIN
+	V-LOOK-UNDER
+	V-LOOK-BEHIND
+	V-LOOK-DOWN
+	V-SEARCH
+	V-MOVE
+	V-PUSH-UP
+	V-PUSH-DOWN
+	V-POINT
+	V-PULL
+	V-ZATTRACT
+	V-MUNG
+	V-OPEN
+	V-OPEN-WITH
+	V-TAKE
+	V-PLAY
+	V-PLAY-WITH
+	V-PUSH
+	V-WEAR
+	V-SLIDE
+	V-INSERT
+	V-RAPE
+	V-REACH
+	V-REACH-FOR
+	V-READ
+	V-RUB
+	V-SCRUB
+	V-SLEEP
+	V-SHAKE
+	V-SHAKE-WITH
+	V-SKIP
+	V-SMELL
+	V-STEP-ON
+	V-SWIM
+	V-SWIM-DIR
+	V-SWIM-UP
+	V-TAKE-OFF
+	V-REMOVE
+	V-TELL
+	V-ASK-FOR
+	V-SMILE
+	V-SALUTE
+	V-TALK
+	V-SAY
+	V-THROW
+	V-THROW-OFF
+	V-TURN
+	V-LAMP-ON
+	V-LAMP-OFF
+	V-SET
+	V-TYPE
+	V-UNLOCK
+	V-WAIT
+	V-ALARM
+	V-WALK
+	V-WALK-AROUND
+	V-WALK-TO
+	V-WAVE
+	V-YELL
+	V-SCOLD
+	V-ZORK
+	V-YES
+	V-NO
+	V-MAYBE
+	V-POUR
+	V-EMPTY
+	V-FIX-IT
+	V-OIL
+	V-SHOW
+	V-TASTE
+	V-ZESCAPE
+	V-TIME
+	.ENDT
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PREACTIONS::
+PATBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT
+	0
+	PRE-BOARD
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT-UNDER
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT
+	0
+	0
+	0
+	0
+	PRE-EXAMINE
+	0
+	0
+	PRE-SZAP
+	PRE-ZAP
+	0
+	0
+	0
+	PRE-GIVE
+	PRE-SGIVE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-MOVE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TAKE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-READ
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; PREPOSITION TABLE IS DEFINED HERE
+
+PREPOSITIONS::
+PRTBL::	.TABLE
+	.WORD 18
+	W?AGAINST
+	PR?AGAINST
+	W?FOR
+	PR?FOR
+	W?OUT
+	PR?OUT
+	W?BEHIND
+	PR?BEHIND
+	W?AROUND
+	PR?AROUND
+	W?OFF
+	PR?OFF
+	W?AT
+	PR?AT
+	W?FROM
+	PR?FROM
+	W?ACROSS
+	PR?ACROSS
+	W?NEAR
+	PR?NEAR
+	W?OVER
+	PR?OVER
+	W?UNDER
+	PR?UNDER
+	W?IN
+	PR?IN
+	W?DOWN
+	PR?DOWN
+	W?UP
+	PR?UP
+	W?ON
+	PR?ON
+	W?WITH
+	PR?WITH
+	W?TO
+	PR?TO
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 3
+	.BYTE 46
+	.BYTE 44
+	.BYTE 34
+	.BYTE 9
+	696
+W?$REFRESH::	.ZWORD "$refresh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$REFRESH
+	.BYTE 0
+W?$VERIFY::	.ZWORD "$verify"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+	.BYTE 0
+W?PERIOD::	.ZWORD "."
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?COMMA::	.ZWORD ","
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?#COMMAND::	.ZWORD "#command"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?#COMMAND
+	.BYTE 0
+W?#RANDOM::	.ZWORD "#random"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?#RANDOM
+	.BYTE 0
+W?#RECORD::	.ZWORD "#record"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?#RECORD
+	.BYTE 0
+W?#UNRECORD::	.ZWORD "#unrecord"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?#UNRECORD
+	.BYTE 0
+W?QUOTE::	.ZWORD """"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?A::	.ZWORD "a"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ABOVE::	.ZWORD "above"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OVER
+	.BYTE 0
+W?ACCESS::	.ZWORD "access"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ACHILLES::	.ZWORD "achilles"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ACME::	.ZWORD "acme"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ACROSS::	.ZWORD "across"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ACROSS
+	.BYTE 0
+W?ACTIVATE::	.ZWORD "activate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ACTIVATE
+	.BYTE 0
+W?ADMIRAL::	.ZWORD "admiral"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AFFIRMATIVE::	.ZWORD "affirmati"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?AFT::	.ZWORD "aft"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+	.BYTE 0
+W?AGAIN::	.ZWORD "again"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?AGAINST::	.ZWORD "against"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AGAINST
+	.BYTE 0
+W?AIM::	.ZWORD "aim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?ALIEN::	.ZWORD "alien"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ALL::	.ZWORD "all"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ALUMINUM::	.ZWORD "aluminum"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AMBASSADOR::	.ZWORD "ambassado"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AN::	.ZWORD "an"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?AND::	.ZWORD "and"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ANSWER::	.ZWORD "answer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?ANT-LIKE::	.ZWORD "ant-like"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?APPLY::	.ZWORD "apply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPLY
+	.BYTE 0
+W?ARE::	.ZWORD "are"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?AROUND::	.ZWORD "around"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AROUND
+	.BYTE 0
+W?ASK::	.ZWORD "ask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+	.BYTE 0
+W?AT::	.ZWORD "at"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AT
+	.BYTE 0
+W?ATTACK::	.ZWORD "attack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?ATTRACT::	.ZWORD "attract"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTRACT
+	.BYTE 0
+W?AWAKE::	.ZWORD "awake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?B::	.ZWORD "b"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?B-SERIES::	.ZWORD "b-series"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BAR::	.ZWORD "bar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BARE::	.ZWORD "bare"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BATHE::	.ZWORD "bathe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?BATTERED::	.ZWORD "battered"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BATTERY::	.ZWORD "battery"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEANS::	.ZWORD "beans"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEANSTALK::	.ZWORD "beanstalk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BED::	.ZWORD "bed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEDISTOR::	.ZWORD "bedistor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEEF::	.ZWORD "beef"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEHIND::	.ZWORD "behind"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEHIND
+	.BYTE 0
+W?BEIGE::	.ZWORD "beige"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BENCH::	.ZWORD "bench"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BENCHES::	.ZWORD "benches"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIO-LOCK::	.ZWORD "bio-lock"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIPED::	.ZWORD "biped"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLACK::	.ZWORD "black"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLAST::	.ZWORD "blast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?BLATHER::	.ZWORD "blather"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLINKING::	.ZWORD "blinking"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLOB::	.ZWORD "blob"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLUE::	.ZWORD "blue"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOARD::	.ZWORD "board"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?BOARD
+	.BYTE 0
+W?BOARDS::	.ZWORD "boards"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOCCI::	.ZWORD "bocci"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOOTH::	.ZWORD "booth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOTH::	.ZWORD "both"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?BOTTLE::	.ZWORD "bottle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOULDER::	.ZWORD "boulder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOX::	.ZWORD "box"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRANDISH::	.ZWORD "brandish"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAVE
+	.BYTE 0
+W?BREAK::	.ZWORD "break"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?BREAST::	.ZWORD "breast"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BREASTPLATE::	.ZWORD "breastpla"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRIEF::	.ZWORD "brief"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRIEF
+	.BYTE 0
+W?BRIGHT::	.ZWORD "bright"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BROCHURE::	.ZWORD "brochure"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BROKEN::	.ZWORD "broken"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BROWN::	.ZWORD "brown"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRUSH::	.ZWORD "brush"
+	.BYTE PS?OBJECT+PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?BUCKA::	.ZWORD "bucka"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUG::	.ZWORD "bug"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BULKHEAD::	.ZWORD "bulkhead"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUNK::	.ZWORD "bunk"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BURN::	.ZWORD "burn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?BUT::	.ZWORD "but"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?BUTTON::	.ZWORD "button"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CABINETS::	.ZWORD "cabinets"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CABLES::	.ZWORD "cables"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CAN::	.ZWORD "can"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CANTEEN::	.ZWORD "canteen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CAR::	.ZWORD "car"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARD::	.ZWORD "card"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARDBOARD::	.ZWORD "cardboard"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARDS::	.ZWORD "cards"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARPET::	.ZWORD "carpet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARRY::	.ZWORD "carry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?CARTON::	.ZWORD "carton"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CASTLE::	.ZWORD "castle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CATWALK::	.ZWORD "catwalk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CCW::	.ZWORD "ccw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?CELERY::	.ZWORD "celery"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CENTIMETER::	.ZWORD "centimete"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHASE::	.ZWORD "chase"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?CHEMICAL::	.ZWORD "chemical"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHERRY::	.ZWORD "cherry"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHESS::	.ZWORD "chess"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHRONOMETER::	.ZWORD "chronomet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHUCK::	.ZWORD "chuck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?CIRCULAR::	.ZWORD "circular"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLASS::	.ZWORD "class"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLEAN::	.ZWORD "clean"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?CLEFT::	.ZWORD "cleft"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLIFF::	.ZWORD "cliff"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLIMB::	.ZWORD "climb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+	.BYTE 0
+W?CLOSE::	.ZWORD "close"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?CLUE::	.ZWORD "clue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?CLUES::	.ZWORD "clues"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?COLLAPSE::	.ZWORD "collapse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?COLORED::	.ZWORD "colored"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMBINATION::	.ZWORD "combinati"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMMUNICATIONS::	.ZWORD "communica"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMPANION::	.ZWORD "companion"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMPARTMENT::	.ZWORD "compartme"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMPLEX::	.ZWORD "complex"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMPUTER::	.ZWORD "computer"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONFERENCE::	.ZWORD "conferenc"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONSOLE::	.ZWORD "console"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONTROL::	.ZWORD "control"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CRACK::	.ZWORD "crack"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CRACKED::	.ZWORD "cracked"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CREATURE::	.ZWORD "creature"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CREVICE::	.ZWORD "crevice"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CRYO-ELEVATOR::	.ZWORD "cryo-elev"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUBBYHOLE::	.ZWORD "cubbyhole"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUBE::	.ZWORD "cube"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CURSE::	.ZWORD "curse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?CURVED::	.ZWORD "curved"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CW::	.ZWORD "cw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?D::	.ZWORD "d"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 54
+	.BYTE PR?DOWN
+W?DAMAGE::	.ZWORD "damage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?DAMN::	.ZWORD "damn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?DARK::	.ZWORD "dark"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DARKNESS::	.ZWORD "darkness"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DAZZLING::	.ZWORD "dazzling"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEAD::	.ZWORD "dead"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DECK::	.ZWORD "deck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEEP::	.ZWORD "deep"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEFORMED::	.ZWORD "deformed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEPRESSION::	.ZWORD "depressio"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DESCRIBE::	.ZWORD "describe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?DESK::	.ZWORD "desk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DESTROY::	.ZWORD "destroy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?DEVICE::	.ZWORD "device"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIAGNOSE::	.ZWORD "diagnose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIAGNOSE
+	.BYTE 0
+W?DIAGRAM::	.ZWORD "diagram"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIAL::	.ZWORD "dial"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIALS::	.ZWORD "dials"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIARY::	.ZWORD "diary"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIM::	.ZWORD "dim"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIM-WITTED::	.ZWORD "dim-witte"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISEMBARK::	.ZWORD "disembark"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISEMBARK
+	.BYTE 0
+W?DISPATCH::	.ZWORD "dispatch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?DISPENSER::	.ZWORD "dispenser"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DONATE::	.ZWORD "donate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?DOOR::	.ZWORD "door"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOORWAY::	.ZWORD "doorway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOWN::	.ZWORD "down"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 54
+	.BYTE PR?DOWN
+W?DRAWER::	.ZWORD "drawer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRINK::	.ZWORD "drink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?DROP::	.ZWORD "drop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?DUNNO::	.ZWORD "dunno"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAYBE
+	.BYTE 0
+W?DUTY::	.ZWORD "duty"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?E::	.ZWORD "e"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?EARTH::	.ZWORD "earth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EAST::	.ZWORD "east"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?EAT::	.ZWORD "eat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?EDGE::	.ZWORD "edge"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EGGS::	.ZWORD "eggs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ELEVATOR::	.ZWORD "elevator"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EMERGENCY::	.ZWORD "emergency"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EMPTY::	.ZWORD "empty"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EMPTY
+	.BYTE 0
+W?ENDLESS::	.ZWORD "endless"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ENSIGN::	.ZWORD "ensign"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ENTER::	.ZWORD "enter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENTER
+	.BYTE 0
+W?ENUNCIATOR::	.ZWORD "enunciato"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EQUALS::	.ZWORD "equals"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?EQUIPMENT::	.ZWORD "equipment"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ESCALATOR::	.ZWORD "escalator"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ESCAPE::	.ZWORD "escape"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?ESCAPE
+	.BYTE 0
+W?EXAMINE::	.ZWORD "examine"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?EXCEPT::	.ZWORD "except"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?EXIT::	.ZWORD "exit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+	.BYTE 0
+W?EXPERIMENTAL::	.ZWORD "experimen"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EXTEND::	.ZWORD "extend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?F::	.ZWORD "f"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FANGED::	.ZWORD "fanged"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FEED::	.ZWORD "feed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?FEEL::	.ZWORD "feel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?FENCE::	.ZWORD "fence"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIGHT::	.ZWORD "fight"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?FILES::	.ZWORD "files"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIND::	.ZWORD "find"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?FIRE::	.ZWORD "fire"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?FIRST::	.ZWORD "first"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIX::	.ZWORD "fix"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?FIXTURES::	.ZWORD "fixtures"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLASHING::	.ZWORD "flashing"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLASK::	.ZWORD "flask"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLOOR::	.ZWORD "floor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLOYD::	.ZWORD "floyd"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLUID::	.ZWORD "fluid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLUSH::	.ZWORD "flush"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FLUSH
+	.BYTE 0
+W?FLY::	.ZWORD "fly"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FLY
+	.BYTE 0
+W?FOLD::	.ZWORD "fold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?FOLLOW::	.ZWORD "follow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?FOOD::	.ZWORD "food"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOR::	.ZWORD "for"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?FOR
+	.BYTE 0
+W?FORE::	.ZWORD "fore"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FOREWARD::	.ZWORD "foreward"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FORMER::	.ZWORD "former"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FORWARD::	.ZWORD "forward"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FOURTH::	.ZWORD "fourth"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FRESH::	.ZWORD "fresh"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FRIED::	.ZWORD "fried"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FROM::	.ZWORD "from"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?FROM
+	.BYTE 0
+W?FROMITZ::	.ZWORD "fromitz"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FUCK::	.ZWORD "fuck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?FUNGICIDE::	.ZWORD "fungicide"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FUNNEL::	.ZWORD "funnel"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FUNNEL-SHAPED::	.ZWORD "funnel-sh"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FUSE::	.ZWORD "fuse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FUSED::	.ZWORD "fused"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?G::	.ZWORD "g"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?GAMES::	.ZWORD "games"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GANGWAY::	.ZWORD "gangway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAPING::	.ZWORD "gaping"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAS::	.ZWORD "gas"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAUGES::	.ZWORD "gauges"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAZE::	.ZWORD "gaze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?GESTURE::	.ZWORD "gesture"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?GET::	.ZWORD "get"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?GIANT::	.ZWORD "giant"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GIVE::	.ZWORD "give"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?GLASS::	.ZWORD "glass"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GLOWING::	.ZWORD "glowing"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GO::	.ZWORD "go"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?GOO::	.ZWORD "goo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GOOD::	.ZWORD "good"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRAFFITI::	.ZWORD "graffiti"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRAY::	.ZWORD "gray"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GREEN::	.ZWORD "green"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GREY::	.ZWORD "grey"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRIN::	.ZWORD "grin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?GROUND::	.ZWORD "ground"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GROWLING::	.ZWORD "growling"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRUE::	.ZWORD "grue"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GULF::	.ZWORD "gulf"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HAIRY::	.ZWORD "hairy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HAND::	.ZWORD "hand"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?HANDS::	.ZWORD "hands"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HEAVY::	.ZWORD "heavy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HEAVY-DUTY::	.ZWORD "heavy-dut"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HELICOPTER::	.ZWORD "helicopte"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HELLO::	.ZWORD "hello"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HELP::	.ZWORD "help"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HI::	.ZWORD "hi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HIDER::	.ZWORD "hider"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HIDER-AND-SEEKER::	.ZWORD "hider-and"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HIGH::	.ZWORD "high"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HIGH-RANKING::	.ZWORD "high-rank"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HIM::	.ZWORD "him"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HINT::	.ZWORD "hint"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HINTS::	.ZWORD "hints"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HIT::	.ZWORD "hit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?HOLD::	.ZWORD "hold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?HOLE::	.ZWORD "hole"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOP::	.ZWORD "hop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SKIP
+	.BYTE 0
+W?HORSESHOE::	.ZWORD "horseshoe"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HUCKA::	.ZWORD "hucka"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HUCKA-BUCKA::	.ZWORD "hucka-buc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HUNGRY::	.ZWORD "hungry"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HURL::	.ZWORD "hurl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?HURT::	.ZWORD "hurt"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?I::	.ZWORD "i"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INVENTORY
+	.BYTE 0
+W?ID::	.ZWORD "id"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IDENTIFICATION::	.ZWORD "identific"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IMPORTANT::	.ZWORD "important"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IMPURITY::	.ZWORD "impurity"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IN::	.ZWORD "in"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+	.BYTE PR?IN
+W?INJURE::	.ZWORD "injure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?INSERT::	.ZWORD "insert"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?INSIDE::	.ZWORD "inside"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+	.BYTE PR?IN
+W?INTNUM::	.ZWORD "intnum"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INTO::	.ZWORD "into"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+	.BYTE PR?IN
+W?INVENTORY::	.ZWORD "inventory"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INVENTORY
+	.BYTE 0
+W?INVISICLUE::	.ZWORD "invisiclu"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?IRON::	.ZWORD "iron"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IS::	.ZWORD "is"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?IT::	.ZWORD "it"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JAGGED::	.ZWORD "jagged"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JUMP::	.ZWORD "jump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?K::	.ZWORD "k"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?K-SERIES::	.ZWORD "k-series"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KEY::	.ZWORD "key"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KEYBOARD::	.ZWORD "keyboard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KICK::	.ZWORD "kick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KICK
+	.BYTE 0
+W?KILL::	.ZWORD "kill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?KISS::	.ZWORD "kiss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KISS
+	.BYTE 0
+W?KIT::	.ZWORD "kit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KITCHEN::	.ZWORD "kitchen"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KNOCK::	.ZWORD "knock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?KRIP::	.ZWORD "krip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?L::	.ZWORD "l"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?LAB::	.ZWORD "lab"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LABEL::	.ZWORD "label"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LADDER::	.ZWORD "ladder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LAMP::	.ZWORD "lamp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LANTERN::	.ZWORD "lantern"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LARGE::	.ZWORD "large"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LASER::	.ZWORD "laser"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LAY::	.ZWORD "lay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?LAZARUS::	.ZWORD "lazarus"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LEAFLET::	.ZWORD "leaflet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LEAP::	.ZWORD "leap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?LEAVE::	.ZWORD "leave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?LEFT::	.ZWORD "left"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LENGTHEN::	.ZWORD "lengthen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?LEVER::	.ZWORD "lever"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LID::	.ZWORD "lid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIE::	.ZWORD "lie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?LIGHT::	.ZWORD "light"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIGHTS::	.ZWORD "lights"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIMA::	.ZWORD "lima"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIQUID::	.ZWORD "liquid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LISTEN::	.ZWORD "listen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LISTEN
+	.BYTE 0
+W?LITTLE::	.ZWORD "little"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOCK::	.ZWORD "lock"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?LOCK
+	.BYTE 0
+W?LOGO::	.ZWORD "logo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LONG::	.ZWORD "long"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOOK::	.ZWORD "look"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?LOWER::	.ZWORD "lower"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LUBRICATE::	.ZWORD "lubricate"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?OIL
+	.BYTE 0
+W?LURKING::	.ZWORD "lurking"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MACHINE::	.ZWORD "machine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAGNET::	.ZWORD "magnet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAN-EATING::	.ZWORD "man-eatin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAN-SIZED::	.ZWORD "man-sized"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MANGLE::	.ZWORD "mangle"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAPS::	.ZWORD "maps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MASK::	.ZWORD "mask"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MASS::	.ZWORD "mass"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAYBE::	.ZWORD "maybe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAYBE
+	.BYTE 0
+W?ME::	.ZWORD "me"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEDICAL::	.ZWORD "medical"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEDICINE::	.ZWORD "medicine"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEGA::	.ZWORD "mega"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEGAFUSE::	.ZWORD "megafuse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEGAKRIP::	.ZWORD "megakrip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?MEMO::	.ZWORD "memo"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MESSAGE::	.ZWORD "message"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MESSY::	.ZWORD "messy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?METAL::	.ZWORD "metal"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MICRO::	.ZWORD "micro"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MICROBE::	.ZWORD "microbe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MICROFILM::	.ZWORD "microfilm"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MICRORELAY::	.ZWORD "microrela"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MILKY::	.ZWORD "milky"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MINI::	.ZWORD "mini"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MINIATURIZATION::	.ZWORD "miniaturi"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MOBILE::	.ZWORD "mobile"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MOLEST::	.ZWORD "molest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAPE
+	.BYTE 0
+W?MONITORS::	.ZWORD "monitors"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MONSTER::	.ZWORD "monster"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MOP::	.ZWORD "mop"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?MOVE::	.ZWORD "move"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+	.BYTE 0
+W?MULTI::	.ZWORD "multi"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MULTI-PURPOSE::	.ZWORD "multi-pur"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MULTI-TIERED::	.ZWORD "multi-tie"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MULTIPLE::	.ZWORD "multiple"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MURAL::	.ZWORD "mural"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MURDER::	.ZWORD "murder"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?MUTANT::	.ZWORD "mutant"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MYSELF::	.ZWORD "myself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?N::	.ZWORD "n"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?NARROW::	.ZWORD "narrow"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NE::	.ZWORD "ne"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 62
+	.BYTE 0
+W?NEAR::	.ZWORD "near"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?NEAR
+	.BYTE 0
+W?NEGATIVE::	.ZWORD "negative"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NET::	.ZWORD "net"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NEW::	.ZWORD "new"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NICHE::	.ZWORD "niche"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NINETY::	.ZWORD "ninety"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NINETY-OHM::	.ZWORD "ninety-oh"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NO::	.ZWORD "no"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NORTH::	.ZWORD "north"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?NOSED::	.ZWORD "nosed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NW::	.ZWORD "nw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 56
+	.BYTE 0
+W?O::	.ZWORD "o"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OBJECT::	.ZWORD "object"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OCEAN::	.ZWORD "ocean"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OCTAGONAL::	.ZWORD "octagonal"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OF::	.ZWORD "of"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OFF::	.ZWORD "off"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OFF
+	.BYTE 0
+W?OFFER::	.ZWORD "offer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?GIVE
+	.BYTE 0
+W?OFFICE::	.ZWORD "office"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OHM::	.ZWORD "ohm"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OIL::	.ZWORD "oil"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?OIL
+	.BYTE 0
+W?OLD::	.ZWORD "old"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ON::	.ZWORD "on"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ON
+	.BYTE 0
+W?ONE::	.ZWORD "one"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ONTO::	.ZWORD "onto"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ON
+	.BYTE 0
+W?OOPS::	.ZWORD "oops"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OPEN::	.ZWORD "open"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?OPENER::	.ZWORD "opener"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OPENING::	.ZWORD "opening"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ORANGE::	.ZWORD "orange"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OUR::	.ZWORD "our"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OUT::	.ZWORD "out"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 52
+	.BYTE PR?OUT
+W?OUTPUT::	.ZWORD "output"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OVER::	.ZWORD "over"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OVER
+	.BYTE 0
+W?P::	.ZWORD "p"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?PAD::	.ZWORD "pad"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PADLOCK::	.ZWORD "padlock"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAIR::	.ZWORD "pair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PALE::	.ZWORD "pale"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAMPHLET::	.ZWORD "pamphlet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PANEL::	.ZWORD "panel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAPER::	.ZWORD "paper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PART::	.ZWORD "part"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PARTITION::	.ZWORD "partition"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAT::	.ZWORD "pat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?PATROL::	.ZWORD "patrol"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PET::	.ZWORD "pet"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?PICK::	.ZWORD "pick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PICK
+	.BYTE 0
+W?PIE::	.ZWORD "pie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PIECE::	.ZWORD "piece"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PILE::	.ZWORD "pile"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLACE::	.ZWORD "place"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?PLANT::	.ZWORD "plant"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLAQUE::	.ZWORD "plaque"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLASTIC::	.ZWORD "plastic"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLATE::	.ZWORD "plate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLATES::	.ZWORD "plates"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLAY::	.ZWORD "play"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PLAY
+	.BYTE 0
+W?PLAYBACK::	.ZWORD "playback"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLIERS::	.ZWORD "pliers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POCKET::	.ZWORD "pocket"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POD::	.ZWORD "pod"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POINT::	.ZWORD "point"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?POLISH::	.ZWORD "polish"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?PORT::	.ZWORD "port"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?PORTABLE::	.ZWORD "portable"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PORTAL::	.ZWORD "portal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POSSIBLY::	.ZWORD "possibly"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAYBE
+	.BYTE 0
+W?POUR::	.ZWORD "pour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?POWERFUL::	.ZWORD "powerful"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PRECIPICE::	.ZWORD "precipice"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PRESS::	.ZWORD "press"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PRIMARY::	.ZWORD "primary"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PRINTOUT::	.ZWORD "printout"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROCEED::	.ZWORD "proceed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?PROTEIN::	.ZWORD "protein"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROTEIN-RICH::	.ZWORD "protein-r"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROVISIONS::	.ZWORD "provision"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PULL::	.ZWORD "pull"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?PURPOSE::	.ZWORD "purpose"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PURSUE::	.ZWORD "pursue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?PUSH::	.ZWORD "push"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PUT::	.ZWORD "put"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?Q::	.ZWORD "q"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?QUANTITY::	.ZWORD "quantity"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?QUIT::	.ZWORD "quit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?RACK::	.ZWORD "rack"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RADIATION::	.ZWORD "radiation"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RANKING::	.ZWORD "ranking"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RAP::	.ZWORD "rap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?RAPE::	.ZWORD "rape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAPE
+	.BYTE 0
+W?RAT-ANT::	.ZWORD "rat-ant"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RAT-LIKE::	.ZWORD "rat-like"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?REACH::	.ZWORD "reach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REACH
+	.BYTE 0
+W?REACTOR::	.ZWORD "reactor"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?READ::	.ZWORD "read"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?READER::	.ZWORD "reader"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RECEIVE::	.ZWORD "receive"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RECLINE::	.ZWORD "recline"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?RECORDER::	.ZWORD "recorder"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RED::	.ZWORD "red"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RELAY::	.ZWORD "relay"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RELEASE::	.ZWORD "release"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?REMOVE::	.ZWORD "remove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+	.BYTE 0
+W?REPAIR::	.ZWORD "repair"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?FIX
+	.BYTE 0
+W?REPLY::	.ZWORD "reply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?RESTART::	.ZWORD "restart"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTART
+	.BYTE 0
+W?RESTORE::	.ZWORD "restore"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+	.BYTE 0
+W?RICH::	.ZWORD "rich"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RIFT::	.ZWORD "rift"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RIGHT::	.ZWORD "right"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROBOT::	.ZWORD "robot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROUND::	.ZWORD "round"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RUB::	.ZWORD "rub"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?RUBBLE::	.ZWORD "rubble"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RUMMAGE::	.ZWORD "rummage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?RUN::	.ZWORD "run"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?S::	.ZWORD "s"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+	.BYTE 0
+W?SAFETY::	.ZWORD "safety"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SALUTE::	.ZWORD "salute"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SALUTE
+	.BYTE 0
+W?SAVE::	.ZWORD "save"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAVE
+	.BYTE 0
+W?SAY::	.ZWORD "say"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?SB::	.ZWORD "sb"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?SCOLD::	.ZWORD "scold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCOLD
+	.BYTE 0
+W?SCORE::	.ZWORD "score"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+	.BYTE 0
+W?SCREAM::	.ZWORD "scream"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SCREEN::	.ZWORD "screen"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCRIPT::	.ZWORD "script"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCRIPT
+	.BYTE 0
+W?SCRUB::	.ZWORD "scrub"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?SCRUBBRUSH::	.ZWORD "scrubbrus"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCRUBRUSH::	.ZWORD "scrubrush"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SE::	.ZWORD "se"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 60
+	.BYTE 0
+W?SEARCH::	.ZWORD "search"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?SECOND::	.ZWORD "second"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEE::	.ZWORD "see"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?SEEK::	.ZWORD "seek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?SEEKER::	.ZWORD "seeker"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SELF::	.ZWORD "self"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SELF-CONTAINED::	.ZWORD "self-cont"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEND::	.ZWORD "send"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SERIES::	.ZWORD "series"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SET::	.ZWORD "set"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+	.BYTE 0
+W?SETTING::	.ZWORD "setting"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEVENTEEN::	.ZWORD "seventeen"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHAKE::	.ZWORD "shake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHAKE
+	.BYTE 0
+W?SHAPED::	.ZWORD "shaped"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHELF::	.ZWORD "shelf"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHELVES::	.ZWORD "shelves"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHINE::	.ZWORD "shine"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?SHINY::	.ZWORD "shiny"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIT::	.ZWORD "shit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?SHOOT::	.ZWORD "shoot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?SHORTEN::	.ZWORD "shorten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?SHOUT::	.ZWORD "shout"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SHOW::	.ZWORD "show"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+	.BYTE 0
+W?SHUTTLE::	.ZWORD "shuttle"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIDE::	.ZWORD "side"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIFT::	.ZWORD "sift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?SILENT::	.ZWORD "silent"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SILICON::	.ZWORD "silicon"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIMPLE::	.ZWORD "simple"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SINISTER::	.ZWORD "sinister"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIT::	.ZWORD "sit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?SKIM::	.ZWORD "skim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?SKIP::	.ZWORD "skip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SKIP
+	.BYTE 0
+W?SLAY::	.ZWORD "slay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?SLEEP::	.ZWORD "sleep"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+	.BYTE 0
+W?SLIDE::	.ZWORD "slide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLIDE
+	.BYTE 0
+W?SLIME::	.ZWORD "slime"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SLOT::	.ZWORD "slot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SMALL::	.ZWORD "small"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SMASH::	.ZWORD "smash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESTROY
+	.BYTE 0
+W?SMELL::	.ZWORD "smell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SMILE::	.ZWORD "smile"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?SMITHE::	.ZWORD "smithe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SNEEZE::	.ZWORD "sneeze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ZORK
+	.BYTE 0
+W?SNIFF::	.ZWORD "sniff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SOCKET::	.ZWORD "socket"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SORT::	.ZWORD "sort"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?SOUTH::	.ZWORD "south"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+	.BYTE 0
+W?SPAM::	.ZWORD "spam"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPECK::	.ZWORD "speck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPILL::	.ZWORD "spill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?SPOOL::	.ZWORD "spool"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPOOLS::	.ZWORD "spools"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPOUT::	.ZWORD "spout"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SQUARE::	.ZWORD "square"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIRS::	.ZWORD "stairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIRWAY::	.ZWORD "stairway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STALK::	.ZWORD "stalk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAND::	.ZWORD "stand"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+	.BYTE 0
+W?STARBOARD::	.ZWORD "starboard"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?STARE::	.ZWORD "stare"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?STARTLE::	.ZWORD "startle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?STEEL::	.ZWORD "steel"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STEP::	.ZWORD "step"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STEP
+	.BYTE 0
+W?STEPS::	.ZWORD "steps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STEW::	.ZWORD "stew"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STRIKE::	.ZWORD "strike"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STRIKE
+	.BYTE 0
+W?STRIP::	.ZWORD "strip"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STRUCTURE::	.ZWORD "structure"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STUFF::	.ZWORD "stuff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?SUIT::	.ZWORD "suit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUPER::	.ZWORD "super"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+	.BYTE 0
+W?SUPERBRIEF::	.ZWORD "superbrie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+	.BYTE 0
+W?SUPPLIES::	.ZWORD "supplies"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SURPRISE::	.ZWORD "surprise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?SURVIVAL::	.ZWORD "survival"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SW::	.ZWORD "sw"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 58
+	.BYTE 0
+W?SWAB::	.ZWORD "swab"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?SCRUB
+	.BYTE 0
+W?SWALLOW::	.ZWORD "swallow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?SWIM::	.ZWORD "swim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?SWING::	.ZWORD "swing"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLIDE
+	.BYTE 0
+W?T::	.ZWORD "t"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIME
+	.BYTE 0
+W?TABLE::	.ZWORD "table"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TABLES::	.ZWORD "tables"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TAKE::	.ZWORD "take"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?TALK::	.ZWORD "talk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?TAN::	.ZWORD "tan"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TAPES::	.ZWORD "tapes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TASTE::	.ZWORD "taste"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TASTE
+	.BYTE 0
+W?TELEPORT::	.ZWORD "teleport"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TELEPORTATION::	.ZWORD "teleporta"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TELL::	.ZWORD "tell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+	.BYTE 0
+W?TERMINAL::	.ZWORD "terminal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THAT::	.ZWORD "that"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THE::	.ZWORD "the"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?THEN::	.ZWORD "then"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?THIRD::	.ZWORD "third"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THIS::	.ZWORD "this"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THROUGH::	.ZWORD "through"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?THROW::	.ZWORD "throw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?THRU::	.ZWORD "thru"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?TIERED::	.ZWORD "tiered"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TIME::	.ZWORD "time"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIME
+	.BYTE 0
+W?TIN::	.ZWORD "tin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TO::	.ZWORD "to"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TO
+	.BYTE 0
+W?TOILET::	.ZWORD "toilet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOSS::	.ZWORD "toss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?TOUCH::	.ZWORD "touch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RUB
+	.BYTE 0
+W?TOWEL::	.ZWORD "towel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRANSL::	.ZWORD "transl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRANSLUCENT::	.ZWORD "transluce"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRIFFID::	.ZWORD "triffid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TROLL::	.ZWORD "troll"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TROT::	.ZWORD "trot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?TROTTING::	.ZWORD "trotting"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CURSE
+	.BYTE 0
+W?TUG::	.ZWORD "tug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PULL
+	.BYTE 0
+W?TURN::	.ZWORD "turn"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TURN
+	.BYTE 0
+W?TYPE::	.ZWORD "type"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TYPE
+	.BYTE 0
+W?U::	.ZWORD "u"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 55
+	.BYTE PR?UP
+W?UGLY::	.ZWORD "ugly"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNDER::	.ZWORD "under"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?UNFOLD::	.ZWORD "unfold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?UNIFORM::	.ZWORD "uniform"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNIT::	.ZWORD "unit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNLOCK::	.ZWORD "unlock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNLOCK
+	.BYTE 0
+W?UNOPENED::	.ZWORD "unopened"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNSCRIPT::	.ZWORD "unscript"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNSCRIPT
+	.BYTE 0
+W?UP::	.ZWORD "up"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 55
+	.BYTE PR?UP
+W?UPPER::	.ZWORD "upper"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?USING::	.ZWORD "using"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?VEHICLE::	.ZWORD "vehicle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VERBOSE::	.ZWORD "verbose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERBOSE
+	.BYTE 0
+W?VERSION::	.ZWORD "version"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERSION
+	.BYTE 0
+W?VERY::	.ZWORD "very"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VICIOUS::	.ZWORD "vicious"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VIDEO::	.ZWORD "video"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VIEW::	.ZWORD "view"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VIEWPORT::	.ZWORD "viewport"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VOID::	.ZWORD "void"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?W::	.ZWORD "w"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?WADE::	.ZWORD "wade"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SWIM
+	.BYTE 0
+W?WAIT::	.ZWORD "wait"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?WAKE::	.ZWORD "wake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?WALK::	.ZWORD "walk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?WALKWAY::	.ZWORD "walkway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WARNING::	.ZWORD "warning"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WATCH::	.ZWORD "watch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WAVE::	.ZWORD "wave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAVE
+	.BYTE 0
+W?WE::	.ZWORD "we"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEAR::	.ZWORD "wear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+	.BYTE 0
+W?WEB::	.ZWORD "web"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEBBING::	.ZWORD "webbing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEST::	.ZWORD "west"
+	.BYTE PS?ADJECTIVE+PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?WHAT::	.ZWORD "what"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?WHAT'S::	.ZWORD "what's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?WHATS::	.ZWORD "whats"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?WHERE::	.ZWORD "where"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?WHITE::	.ZWORD "white"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WIDE::	.ZWORD "wide"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WIDE-NOSED::	.ZWORD "wide-nose"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WINDOW::	.ZWORD "window"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WITH::	.ZWORD "with"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?WITTED::	.ZWORD "witted"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WOODEN::	.ZWORD "wooden"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WORN-OUT::	.ZWORD "worn-out"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WRINKLED::	.ZWORD "wrinkled"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WRIST::	.ZWORD "wrist"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WRISTWATCH::	.ZWORD "wristwatc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?X::	.ZWORD "x"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?Y::	.ZWORD "y"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YELL::	.ZWORD "yell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?YELLOW::	.ZWORD "yellow"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?YES::	.ZWORD "yes"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?Z::	.ZWORD "z"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?ZAP::	.ZWORD "zap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIRE
+	.BYTE 0
+W?ZORK::	.ZWORD "zork"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ZORK
+	.BYTE 0
+W?ZZMGCK::	.ZWORD "zzmgck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+	.ENDI
diff --git a/s3freq.xzap b/s3freq.xzap
new file mode 100644
index 0000000..a39317a
--- /dev/null
+++ b/s3freq.xzap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;2872	1437
+	.FSTR FSTR?2,"The "	;1314	439
+	.FSTR FSTR?3,"and "	;934	468
+	.FSTR FSTR?4,", "	;928	929
+	.FSTR FSTR?5,"You "	;804	269
+	.FSTR FSTR?6,". "	;733	734
+	.FSTR FSTR?7,"you "	;614	308
+	.FSTR FSTR?8,"to "	;525	526
+	.FSTR FSTR?9,"Floyd "	;490	99
+	.FSTR FSTR?10,"is "	;485	486
+	.FSTR FSTR?11,"of "	;442	443
+	.FSTR FSTR?12,"with "	;408	137
+	.FSTR FSTR?13,"your "	;372	125
+	.FSTR FSTR?14,"This "	;320	81
+	.FSTR FSTR?15,"from "	;315	106
+	.FSTR FSTR?16,"can't "	;310	63
+	.FSTR FSTR?17,"that "	;303	102
+	.FSTR FSTR?18,"into "	;273	92
+	.FSTR FSTR?19,"in "	;254	255
+	.FSTR FSTR?20,"for "	;254	128
+	.FSTR FSTR?21,"are "	;254	128
+	.FSTR FSTR?22,"have "	;252	85
+	.FSTR FSTR?23,"labelled "	;245	36
+	.FSTR FSTR?24,"It's "	;235	48
+	.FSTR FSTR?25,"door "	;210	71
+	.FSTR FSTR?26,"about "	;204	52
+	.FSTR FSTR?27,"It "	;200	101
+	.FSTR FSTR?28,"There "	;200	41
+	.FSTR FSTR?29,"small "	;196	50
+	.FSTR FSTR?30,"You'll "	;196	29
+	.FSTR FSTR?31,"Blather "	;196	29
+	.FSTR FSTR?32,"control "	;192	33
+	.FSTR FSTR?33,"elevator "	;189	28
+	.FSTR FSTR?34,"You're "	;189	28
+	.FSTR FSTR?35,"There's "	;184	24
+	.FSTR FSTR?36,"which "	;180	46
+	.FSTR FSTR?37,"shuttle "	;180	31
+	.FSTR FSTR?38,"already "	;174	30
+	.FSTR FSTR?39,"What "	;168	43
+	.FSTR FSTR?40,"some "	;162	55
+	.FSTR FSTR?41,"through "	;162	28
+	.FSTR FSTR?42,"Ensign "	;156	27
+	.FSTR FSTR?43,"you're "	;150	26
+	.FSTR FSTR?44,"room "	;147	50
+	.FSTR FSTR?45,"don't "	;145	30
+	.FSTR FSTR?46,"access "	;145	30
+	.FSTR FSTR?47,"large "	;140	36
+	.FSTR FSTR?48,"doesn't "	;140	21
+	.FSTR FSTR?49,"this "	;138	47
+	.FSTR FSTR?50,"button"	;136	35
+	.FSTR FSTR?51,"on "	;134	135
+	.FSTR FSTR?52,"would "	;132	34
+	.FSTR FSTR?53,"seems "	;128	33
+	.FSTR FSTR?54,"can "	;126	64
+	.FSTR FSTR?55,"How "	;126	43
+	.FSTR FSTR?56,"I "	;120	121
+	.FSTR FSTR?57,"Unfortunately"	;120	11
+	.FSTR FSTR?58,"Miniaturization "	;120	9
+	.FSTR FSTR?59,"A "	;119	120
+	.FSTR FSTR?60,"probably "	;119	18
+	.FSTR FSTR?61,"corridor "	;119	18
+	.FSTR FSTR?62,"computer "	;119	18
+	.FSTR FSTR?63,"ambassador "	;117	14
+	.FSTR FSTR?64,"but "	;116	59
+	.FSTR FSTR?65,"microbe "	;114	20
+	.FSTR FSTR?66,"something "	;112	15
+	.FSTR FSTR?67,"one "	;110	56
+	.FSTR FSTR?68,"closed"	;108	28
+	.FSTR FSTR?69,"be "	;107	108
+	.FSTR FSTR?70,"points "	;105	22
+	.FSTR FSTR?71,"his "	;104	53
+	.FSTR FSTR?72,"Floyd"	;104	27
+	.FSTR FSTR?73,"currently "	;104	14
+	.FSTR FSTR?74,"it "	;102	103
+	.FSTR FSTR?75,"out "	;102	52
+	.FSTR FSTR?76,"another "	;102	18
+	.FSTR FSTR?77,"against "	;102	18
+	.FSTR FSTR?78,"see "	;100	51
+	.FSTR FSTR?79,"has "	;100	51
+	.FSTR FSTR?80,"looks "	;100	26
+	.FSTR FSTR?81,"at "	;97	98
+	.FSTR FSTR?82,"might "	;96	25
+	.FSTR FSTR?83,"light "	;96	25
+	.FSTR FSTR?84,"fromitz "	;96	17
+	.FSTR FSTR?85,"toward "	;95	20
+	.FSTR FSTR?86,"not "	;94	48
+	.FSTR FSTR?87,"like "	;93	32
+	.FSTR FSTR?88,"slightly "	;91	14
+	.FSTR FSTR?89,"open "	;90	31
+	.FSTR FSTR?90,"just "	;90	31
+	.FSTR FSTR?91,"find "	;90	31
+	.FSTR FSTR?92,"panel "	;88	23
+	.FSTR FSTR?93,"north "	;88	23
+	.FSTR FSTR?94,"Corridor "	;88	12
+	.FSTR FSTR?95,"button "	;85	18
+	.FSTR FSTR?96,"around "	;85	18
+
+
+;word frequency table of 96 most common words
+
+WORDS::	.TABLE
+	FSTR?1
+	FSTR?2
+	FSTR?3
+	FSTR?4
+	FSTR?5
+	FSTR?6
+	FSTR?7
+	FSTR?8
+	FSTR?9
+	FSTR?10
+	FSTR?11
+	FSTR?12
+	FSTR?13
+	FSTR?14
+	FSTR?15
+	FSTR?16
+	FSTR?17
+	FSTR?18
+	FSTR?19
+	FSTR?20
+	FSTR?21
+	FSTR?22
+	FSTR?23
+	FSTR?24
+	FSTR?25
+	FSTR?26
+	FSTR?27
+	FSTR?28
+	FSTR?29
+	FSTR?30
+	FSTR?31
+	FSTR?32
+	FSTR?33
+	FSTR?34
+	FSTR?35
+	FSTR?36
+	FSTR?37
+	FSTR?38
+	FSTR?39
+	FSTR?40
+	FSTR?41
+	FSTR?42
+	FSTR?43
+	FSTR?44
+	FSTR?45
+	FSTR?46
+	FSTR?47
+	FSTR?48
+	FSTR?49
+	FSTR?50
+	FSTR?51
+	FSTR?52
+	FSTR?53
+	FSTR?54
+	FSTR?55
+	FSTR?56
+	FSTR?57
+	FSTR?58
+	FSTR?59
+	FSTR?60
+	FSTR?61
+	FSTR?62
+	FSTR?63
+	FSTR?64
+	FSTR?65
+	FSTR?66
+	FSTR?67
+	FSTR?68
+	FSTR?69
+	FSTR?70
+	FSTR?71
+	FSTR?72
+	FSTR?73
+	FSTR?74
+	FSTR?75
+	FSTR?76
+	FSTR?77
+	FSTR?78
+	FSTR?79
+	FSTR?80
+	FSTR?81
+	FSTR?82
+	FSTR?83
+	FSTR?84
+	FSTR?85
+	FSTR?86
+	FSTR?87
+	FSTR?88
+	FSTR?89
+	FSTR?90
+	FSTR?91
+	FSTR?92
+	FSTR?93
+	FSTR?94
+	FSTR?95
+	FSTR?96
+	.ENDT
+
+	.ENDI
diff --git a/s3globals.dat b/s3globals.dat
new file mode 100644
index 0000000..94ff759
--- /dev/null
+++ b/s3globals.dat
@@ -0,0 +1,256 @@
+(NO-MICROBE	; 3009
+PRSO	; 405
+PRSA	; 369
+HERE	; 304
+PRSI	; 171
+SCREEN-TEXT	; 80
+MENU-LEVEL	; 65
+P-NUMBER	; 65
+P-ITBL	; 59
+WINNER	; 54
+P-MATCHLEN	; 42
+C-ELAPSED	; 37
+SCORE	; 36
+P-LEN	; 31
+DAY	; 30
+P-LEXV	; 57
+P-OTBL	; 26
+FLOYD-SPOKE	; 25
+SPOUT-PLACED	; 24
+P-CONT	; 23
+QUOTE-FLAG	; 23
+CHEMICAL-REQUIRED	; 21
+INTERNAL-MOVES	; 21
+P-NAM	; 20
+P-NCN	; 20
+P-ADJ	; 19
+P-PRSO	; 19
+P-SLOCBITS	; 19
+SICKNESS-LEVEL	; 19
+WARMTH-FLAG	; 19
+CUR-POS	; 18
+LIT	; 18
+P-OFLAG	; 18
+ALFIE-AT-KALAMONTEE	; 17
+P-PRSI	; 17
+SHUTTLE-VELOCITY	; 17
+TRIP-COUNTER	; 17
+BETTY-AT-KALAMONTEE	; 16
+HUNGER-LEVEL	; 16
+LEVER-SETTING	; 16
+LOWER-ELEVATOR-UP	; 15
+OOPS-TABLE	; 15
+QUEST-NUM	; 15
+BLOWUP-COUNTER	; 14
+CHAPT-NUM	; 14
+COMM-FIXED	; 14
+ELEVATOR-IN-TRANSIT	; 14
+P-GETFLAGS	; 14
+P-IT-OBJECT	; 14
+COURSE-CONTROL-FIXED	; 13
+SLEEPY-LEVEL	; 13
+DEFENSE-FIXED	; 12
+LASER-SETTING	; 12
+SHUTTLE-COUNTER	; 12
+SHUTTLE-ON	; 12
+UPPER-ELEVATOR-UP	; 12
+AGAIN-LEXV	; 11
+FLOYD-INTRODUCED	; 11
+ORDER-LTBL	; 11
+P-MERGE	; 11
+LADDER-FLAG	; 10
+P-MERGED	; 10
+P-SYNTAX	; 10
+P-INBUF	; 19
+FLOYD-FOLLOW	; 9
+P-OCLAUSE	; 9
+P-VTBL	; 9
+P-WON	; 9
+DIARY-CTR	; 8
+FORAY-COUNTER	; 8
+OHERE	; 8
+P-ACLAUSE	; 8
+P-GWIMBIT	; 8
+SUPER-BRIEF	; 8
+LADDER-EXTENDED	; 7
+MOVES	; 7
+P-BUTS	; 7
+P-NOT-HERE	; 7
+P-TABLE	; 7
+WIDTH	; 7
+COMPUTER-FIXED	; 6
+LAB-FLOODED	; 6
+P-WALK-DIR	; 6
+RESERVE-PTR	; 6
+SHUTTLE-MOVING	; 6
+STEPS-TO-GO	; 6
+C-INTS	; 5
+C-TABLE	; 5
+CARD-REVEALED	; 5
+DROWN	; 5
+FLOYD-WAITING	; 5
+LAB-LIGHTS-ON	; 5
+LOAD-ALLOWED	; 5
+MICROBE-DISPATCHED	; 5
+NUKED-COUNTER	; 5
+SINK-COUNTER	; 5
+SPOOL-TEXT	; 5
+ACCESS-PANEL-FULL	; 4
+AMBASSADOR-LEAVE	; 4
+BEEN-HERE	; 4
+BLATHER-LEAVE	; 4
+BRIGS-UP	; 4
+CHEMICAL-FLAG	; 4
+COMM-SHUTDOWN	; 4
+COMPUTER-FLAG	; 4
+CRYO-SCORE-FLAG	; 4
+DIAL-NUMBER	; 4
+HINTS-OFF	; 4
+LINE-TABLE	; 4
+LOWER-ELEVATOR-ON	; 4
+MICROBE-COUNTER	; 4
+MICROBE-HIT	; 4
+MUNGED-TIME	; 4
+NEW-SHOTS	; 4
+NUMBER-NEEDED	; 4
+OLD-SHOTS	; 4
+OOPS-INBUF	; 4
+P-CCSRC	; 4
+P-CSPTR	; 4
+P-IT-LOC	; 4
+P-XADJ	; 4
+P-XNAM	; 4
+PADLOCK-REMOVED	; 4
+SICKNESS-WARNING-FLAG	; 4
+TELEPORTATION-ON	; 4
+UPPER-ELEVATOR-ON	; 4
+VERBOSE	; 4
+HINTS	; 7
+AGAIN-DIR	; 3
+C-DEMONS	; 3
+CARD-STOLEN	; 3
+FLOYD-FORAYED	; 3
+FLOYD-GAVE-UP	; 3
+FLOYD-PEERED	; 3
+FLOYD-REACTIVATED	; 3
+JUST-ENTERED	; 3
+LASER-JUST-SHOT	; 3
+LAST-CHASE-ROOM	; 3
+LAZARUS-FLAG	; 3
+MARKSMANSHIP-COUNTER	; 3
+MINI-ACTIVATED	; 3
+OLD-LEN	; 3
+P-ANAM	; 3
+P-AND	; 3
+P-MOBY-FOUND	; 3
+WAITING-COUNTER	; 3
+ACHILLES-FLAG	; 2
+ALFIE-BROKEN	; 2
+BETTY-BROKEN	; 2
+BOARD-REPORTED	; 2
+COLUMN-TABLE	; 4
+CRYO-MOVE-FLAG	; 2
+DIROUT-TBL	; 4
+EXTRA-MOVE-FLAG	; 2
+FLOYD-SCORE-FLAG	; 2
+HOLE-TRIP-FLAG	; 2
+ITS-CRACKED	; 2
+LASER-SCORE-FLAG	; 2
+LAST-PSEUDO-LOC	; 2
+LAWANDA-PLATFORM-FLAG	; 2
+MURAL-FLAG	; 2
+P-MULT	; 2
+P-ONEOBJ	; 2
+P-PRSA-WORD	; 2
+RESERVE-INBUF	; 2
+RESERVE-LEXV	; 2
+SECOND-TO-LAST-ROOM	; 2
+SL-TABLE	; 4
+SPECK-HIT	; 2
+UNIFORM-OPENED	; 2
+YUKS	; 4
+FUMBLE-NUMBER	; 1
+FUMBLE-PROB	; 1
+HOST	; 1
+INVISICLUES	; 2
+P-AADJ	; 1
+P-CEPTR	; 1
+P-DIRECTION	; 1
+P-END-ON-PREP	; 1
+P-INPUT-WORDS	; 1
+SHUTTLE-RECORDING-4	; 2
+WRONG-CARD	; 2
+COLOR-LTBL	; 1
+DIARY-ENTRIES	; 1
+HINT-COUNTS	; 1
+NOT-HUNGRY	; 1
+PREVIOUS	; 1
+Q-MAIN-MENU	; 1
+Q-RESUME-STORY	; 1
+Q-SEE-HINT-MENU	; 1
+RETURN-SEE-HINT	; 1
+11-TEXT	; 0
+12-TEXT	; 0
+13-TEXT	; 0
+21-TEXT	; 0
+22-TEXT	; 0
+23-TEXT	; 0
+31-TEXT	; 0
+32-TEXT	; 0
+33-TEXT	; 0
+34-TEXT	; 0
+35-TEXT	; 0
+41-TEXT	; 0
+42-TEXT	; 0
+43-TEXT	; 0
+51-TEXT	; 0
+52-TEXT	; 0
+53-TEXT	; 0
+61-TEXT	; 0
+62-TEXT	; 0
+63-TEXT	; 0
+AMBASSADOR-QUOTES	; 0
+BEAM-MISSES	; 0
+BLANKS	; 0
+BOTH-DOORS	; 0
+CANT-GO	; 0
+CULTURE-MENU	; 0
+DOOR-CLOSES	; 0
+DOOR-OPENS	; 0
+DREAMS	; 0
+ELEVATOR-ENABLED	; 0
+ELEVATOR-LIGHT-OFF	; 0
+ELEVATOR-STARTS	; 0
+FAINT-SOUND	; 0
+FAMILIAR-WRENCHING	; 0
+FLOYDISMS	; 0
+GEOGRAPHY-MENU	; 0
+GREEN-TEXT	; 0
+HELLOS	; 0
+HISTORY-MENU	; 0
+HO-HUM	; 0
+INDENTS	; 0
+INTERLOGIC-MENU	; 0
+LOW-END	; 0
+MAIN-MENU	; 0
+MICROBE-STRIKES	; 0
+MONSTER-CLOSES	; 0
+MONSTER-ENTRANCES	; 0
+MORE-INFO	; 0
+)(
+NO-MEANING	; 0
+PROJECT-MENU	; 0
+RED-TEXT	; 0
+SCREEN-CLEARS	; 0
+SHUTTLE-RECORDING-1	; 0
+SHUTTLE-RECORDING-2	; 0
+SHUTTLE-RECORDING-3	; 0
+SIGN-PASS	; 0
+SOME-INFO	; 0
+SPOOL-FITS	; 0
+TECHNOLOGY-MENU	; 0
+TEXT-APPEARS	; 0
+TOO-DARK	; 0
+WHEEEEE	; 0
+WINNER-ATTACKED	; 0
+)
\ No newline at end of file
diff --git a/s3pur.zap b/s3pur.zap
new file mode 100644
index 0000000..bbfdd3b
--- /dev/null
+++ b/s3pur.zap
@@ -0,0 +1,1316 @@
+
+
+; PURE TABLES ARE DEFINED HERE
+
+PURTBL::
+
+PT?104::
+T?INDENTS::	.TABLE
+	STR?10
+	STR?11
+	STR?12
+	STR?13
+	STR?14
+	STR?15
+	.ENDT
+
+PT?204::
+T?HELLOS::	.TABLE
+	3
+	STR?24
+	STR?25
+	STR?26
+	.ENDT
+
+PT?304::
+WHEEEEE::	.TABLE
+	3
+	STR?27
+	STR?28
+	STR?29
+	.ENDT
+
+PT?404::
+T?HO-HUM::	.TABLE
+	3
+	STR?38
+	STR?39
+	STR?40
+	.ENDT
+
+PT?504::
+T?YUKS::	.TABLE
+	6
+	STR?42
+	STR?43
+	STR?44
+	STR?45
+	STR?46
+	STR?47
+	.ENDT
+
+PT?105::
+T?DIARY-ENTRIES::	.TABLE
+	STR?55
+	STR?56
+	STR?57
+	STR?58
+	STR?59
+	STR?60
+	STR?61
+	STR?62
+	STR?63
+	STR?64
+	STR?65
+	STR?66
+	STR?67
+	STR?68
+	STR?69
+	.ENDT
+
+PT?205::
+T?AMBASSADOR-QUOTES::	.TABLE
+	7
+	STR?83
+	STR?84
+	STR?85
+	STR?86
+	STR?87
+	STR?88
+	STR?89
+	.ENDT
+
+PT?305::
+T?DREAMS::	.TABLE
+	5
+	STR?109
+	STR?110
+	STR?111
+	STR?112
+	STR?113
+	.ENDT
+
+PT?106::
+T?COLOR-LTBL::	.TABLE
+	9
+	STR?170
+	STR?171
+	STR?172
+	STR?173
+	STR?174
+	STR?175
+	STR?176
+	STR?177
+	STR?177
+	.ENDT
+
+PT?206::
+T?FLOYDISMS::	.TABLE
+	20
+	STR?181
+	STR?182
+	STR?183
+	STR?184
+	STR?185
+	STR?186
+	STR?187
+	STR?188
+	STR?189
+	STR?190
+	STR?191
+	STR?192
+	STR?193
+	STR?194
+	STR?195
+	STR?196
+	STR?197
+	STR?198
+	STR?199
+	STR?200
+	.ENDT
+
+PT?107::
+T?MONSTER-ENTRANCES::	.TABLE
+	4
+	STR?300
+	STR?301
+	STR?302
+	STR?303
+	.ENDT
+
+PT?207::
+T?BEAM-MISSES::	.TABLE
+	3
+	STR?331
+	STR?332
+	STR?333
+	.ENDT
+
+PT?307::
+WINNER-ATTACKED::	.TABLE
+	4
+	STR?338
+	STR?339
+	STR?340
+	STR?341
+	.ENDT
+
+PT?407::
+T?MONSTER-CLOSES::	.TABLE
+	3
+	STR?342
+	STR?343
+	STR?344
+	.ENDT
+
+PT?507::
+T?MICROBE-STRIKES::	.TABLE
+	3
+	STR?345
+	STR?346
+	STR?347
+	.ENDT
+
+PT?108::
+T?LINE-TABLE::	.TABLE
+	5
+	6
+	7
+	8
+	9
+	10
+	11
+	12
+	13
+	14
+	15
+	16
+	17
+	18
+	19
+	20
+	21
+	22
+	.ENDT
+
+PT?208::
+T?COLUMN-TABLE::	.TABLE
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	.ENDT
+
+PT?308::	.TABLE
+	3
+	STR?358
+	STR?359
+	STR?360
+	.ENDT
+
+PT?408::	.TABLE
+	3
+	STR?361
+	STR?362
+	STR?363
+	.ENDT
+
+PT?508::	.TABLE
+	3
+	STR?364
+	STR?365
+	STR?366
+	.ENDT
+
+PT?608::	.TABLE
+	2
+	STR?367
+	STR?368
+	.ENDT
+
+PT?708::	.TABLE
+	2
+	STR?369
+	STR?370
+	.ENDT
+
+PT?808::	.TABLE
+	2
+	STR?371
+	STR?370
+	.ENDT
+
+PT?908::	.TABLE
+	2
+	STR?372
+	STR?373
+	.ENDT
+
+PT?1008::	.TABLE
+	4
+	STR?374
+	STR?375
+	STR?376
+	STR?377
+	.ENDT
+
+PT?1108::	.TABLE
+	4
+	STR?378
+	STR?379
+	STR?380
+	STR?381
+	.ENDT
+
+PT?1208::	.TABLE
+	4
+	STR?382
+	STR?383
+	STR?384
+	STR?385
+	.ENDT
+
+PT?1308::	.TABLE
+	3
+	STR?386
+	STR?387
+	STR?388
+	.ENDT
+
+PT?1408::	.TABLE
+	3
+	STR?389
+	STR?390
+	STR?391
+	.ENDT
+
+PT?1508::	.TABLE
+	4
+	STR?392
+	STR?393
+	STR?394
+	STR?395
+	.ENDT
+
+PT?1608::	.TABLE
+	2
+	STR?396
+	STR?397
+	.ENDT
+
+PT?1708::	.TABLE
+	2
+	STR?398
+	STR?399
+	.ENDT
+
+PT?1808::	.TABLE
+	5
+	STR?400
+	STR?401
+	STR?402
+	STR?403
+	STR?404
+	.ENDT
+
+PT?1908::	.TABLE
+	4
+	STR?405
+	STR?406
+	STR?407
+	STR?408
+	.ENDT
+
+PT?2008::	.TABLE
+	2
+	STR?409
+	STR?410
+	.ENDT
+
+PT?2108::	.TABLE
+	2
+	STR?411
+	STR?412
+	.ENDT
+
+PT?2208::	.TABLE
+	3
+	STR?413
+	STR?414
+	STR?415
+	.ENDT
+
+PT?2308::	.TABLE
+	5
+	STR?416
+	STR?417
+	STR?418
+	STR?419
+	STR?420
+	.ENDT
+
+PT?2408::	.TABLE
+	3
+	STR?421
+	STR?422
+	STR?423
+	.ENDT
+
+PT?2508::	.TABLE
+	3
+	STR?424
+	STR?425
+	STR?426
+	.ENDT
+
+PT?2608::	.TABLE
+	7
+	STR?427
+	STR?428
+	STR?429
+	STR?430
+	STR?431
+	STR?432
+	STR?433
+	.ENDT
+
+PT?2708::	.TABLE
+	4
+	STR?434
+	STR?435
+	STR?436
+	STR?437
+	.ENDT
+
+PT?2808::	.TABLE
+	6
+	STR?438
+	STR?439
+	STR?440
+	STR?441
+	STR?442
+	STR?443
+	.ENDT
+
+PT?2908::	.TABLE
+	4
+	STR?444
+	STR?445
+	STR?446
+	STR?447
+	.ENDT
+
+PT?3008::	.TABLE
+	6
+	STR?448
+	STR?449
+	STR?450
+	STR?451
+	STR?452
+	STR?453
+	.ENDT
+
+PT?3108::	.TABLE
+	3
+	STR?454
+	STR?455
+	STR?456
+	.ENDT
+
+PT?3208::	.TABLE
+	2
+	STR?457
+	STR?458
+	.ENDT
+
+PT?3308::	.TABLE
+	3
+	STR?459
+	STR?460
+	STR?461
+	.ENDT
+
+PT?3408::	.TABLE
+	5
+	STR?462
+	STR?463
+	STR?464
+	STR?465
+	STR?466
+	.ENDT
+
+PT?3508::	.TABLE
+	5
+	STR?467
+	STR?468
+	STR?469
+	STR?470
+	STR?471
+	.ENDT
+
+PT?3608::	.TABLE
+	5
+	STR?472
+	STR?473
+	STR?474
+	STR?475
+	STR?476
+	.ENDT
+
+PT?3708::	.TABLE
+	2
+	STR?477
+	STR?478
+	.ENDT
+
+PT?3808::	.TABLE
+	6
+	STR?479
+	STR?480
+	STR?481
+	STR?482
+	STR?483
+	STR?484
+	.ENDT
+
+PT?3908::	.TABLE
+	4
+	STR?485
+	STR?486
+	STR?487
+	STR?488
+	.ENDT
+
+PT?4008::	.TABLE
+	4
+	STR?489
+	STR?490
+	STR?491
+	STR?492
+	.ENDT
+
+PT?4108::	.TABLE
+	2
+	STR?493
+	STR?494
+	.ENDT
+
+PT?4208::	.TABLE
+	2
+	STR?495
+	STR?494
+	.ENDT
+
+PT?4308::	.TABLE
+	2
+	STR?496
+	STR?497
+	.ENDT
+
+PT?4408::	.TABLE
+	3
+	STR?498
+	STR?499
+	STR?500
+	.ENDT
+
+PT?4508::	.TABLE
+	8
+	STR?501
+	STR?502
+	STR?503
+	STR?504
+	STR?505
+	STR?506
+	STR?507
+	STR?508
+	.ENDT
+
+PT?4608::	.TABLE
+	2
+	STR?509
+	STR?510
+	.ENDT
+
+PT?4708::	.TABLE
+	2
+	STR?511
+	STR?512
+	.ENDT
+
+PT?4808::	.TABLE
+	2
+	STR?513
+	STR?514
+	.ENDT
+
+PT?4908::	.TABLE
+	4
+	STR?515
+	STR?516
+	STR?517
+	STR?518
+	.ENDT
+
+PT?5008::	.TABLE
+	3
+	STR?519
+	STR?520
+	STR?521
+	.ENDT
+
+PT?5108::	.TABLE
+	6
+	STR?522
+	STR?523
+	STR?524
+	STR?525
+	STR?526
+	STR?527
+	.ENDT
+
+PT?5208::	.TABLE
+	2
+	STR?528
+	STR?529
+	.ENDT
+
+PT?5308::	.TABLE
+	3
+	STR?530
+	STR?531
+	STR?532
+	.ENDT
+
+PT?5408::	.TABLE
+	3
+	STR?533
+	STR?531
+	STR?534
+	.ENDT
+
+PT?5508::	.TABLE
+	6
+	STR?535
+	STR?536
+	STR?537
+	STR?538
+	STR?539
+	STR?540
+	.ENDT
+
+PT?5608::	.TABLE
+	5
+	STR?541
+	STR?542
+	STR?543
+	STR?544
+	STR?545
+	.ENDT
+
+PT?5708::	.TABLE
+	2
+	STR?546
+	STR?547
+	.ENDT
+
+PT?5808::	.TABLE
+	4
+	STR?548
+	STR?549
+	STR?550
+	STR?551
+	.ENDT
+
+PT?5908::	.TABLE
+	5
+	STR?552
+	STR?553
+	STR?554
+	STR?555
+	STR?556
+	.ENDT
+
+PT?6008::	.TABLE
+	4
+	STR?557
+	STR?558
+	STR?559
+	STR?560
+	.ENDT
+
+PT?6108::	.TABLE
+	2
+	STR?561
+	STR?562
+	.ENDT
+
+PT?6208::	.TABLE
+	4
+	STR?563
+	STR?564
+	STR?565
+	STR?566
+	.ENDT
+
+PT?6308::	.TABLE
+	2
+	STR?567
+	STR?568
+	.ENDT
+
+PT?6408::	.TABLE
+	6
+	STR?569
+	STR?570
+	STR?571
+	STR?572
+	STR?573
+	STR?574
+	.ENDT
+
+PT?6508::	.TABLE
+	4
+	STR?575
+	STR?458
+	STR?576
+	STR?577
+	.ENDT
+
+PT?6608::	.TABLE
+	3
+	STR?578
+	STR?458
+	STR?579
+	.ENDT
+
+PT?6708::	.TABLE
+	8
+	STR?580
+	STR?581
+	STR?582
+	STR?583
+	STR?584
+	STR?585
+	STR?586
+	STR?587
+	.ENDT
+
+PT?6808::	.TABLE
+	9
+	STR?588
+	STR?589
+	STR?590
+	STR?591
+	STR?592
+	STR?593
+	STR?594
+	STR?595
+	STR?596
+	.ENDT
+
+PT?6908::	.TABLE
+	4
+	STR?597
+	STR?598
+	STR?599
+	STR?600
+	.ENDT
+
+PT?7008::	.TABLE
+	4
+	STR?601
+	STR?602
+	STR?603
+	STR?604
+	.ENDT
+
+PT?7108::	.TABLE
+	4
+	STR?605
+	STR?606
+	STR?607
+	STR?608
+	.ENDT
+
+PT?7208::	.TABLE
+	3
+	STR?609
+	STR?370
+	STR?610
+	.ENDT
+
+PT?7308::	.TABLE
+	2
+	STR?611
+	STR?612
+	.ENDT
+
+PT?7408::	.TABLE
+	3
+	STR?613
+	STR?614
+	STR?615
+	.ENDT
+
+PT?7508::	.TABLE
+	3
+	STR?616
+	STR?617
+	STR?618
+	.ENDT
+
+PT?7608::	.TABLE
+	4
+	STR?619
+	STR?620
+	STR?621
+	STR?622
+	.ENDT
+
+PT?7708::	.TABLE
+	2
+	STR?623
+	STR?624
+	.ENDT
+
+PT?7808::	.TABLE
+	3
+	STR?625
+	STR?626
+	STR?627
+	.ENDT
+
+PT?7908::	.TABLE
+	3
+	STR?628
+	STR?629
+	STR?630
+	.ENDT
+
+PT?8008::	.TABLE
+	3
+	STR?631
+	STR?629
+	STR?632
+	.ENDT
+
+PT?8108::	.TABLE
+	5
+	STR?633
+	STR?634
+	STR?635
+	STR?636
+	STR?637
+	.ENDT
+
+PT?8208::	.TABLE
+	3
+	STR?638
+	STR?639
+	STR?640
+	.ENDT
+
+PT?8308::	.TABLE
+	8
+	STR?641
+	STR?642
+	STR?643
+	STR?644
+	STR?645
+	STR?646
+	STR?647
+	STR?648
+	.ENDT
+
+PT?8408::	.TABLE
+	4
+	STR?649
+	STR?650
+	STR?651
+	STR?652
+	.ENDT
+
+PT?8508::	.TABLE
+	6
+	STR?653
+	STR?654
+	STR?655
+	STR?656
+	STR?657
+	STR?658
+	.ENDT
+
+PT?8608::	.TABLE
+	7
+	STR?659
+	STR?660
+	STR?661
+	STR?662
+	STR?663
+	STR?664
+	STR?665
+	.ENDT
+
+PT?8708::	.TABLE
+	8
+	STR?666
+	STR?667
+	STR?668
+	STR?669
+	STR?670
+	STR?671
+	STR?672
+	STR?673
+	.ENDT
+
+PT?8808::	.TABLE
+	3
+	STR?674
+	STR?458
+	STR?675
+	.ENDT
+
+PT?8908::	.TABLE
+	8
+	STR?676
+	STR?677
+	STR?678
+	STR?679
+	STR?680
+	STR?681
+	STR?682
+	STR?683
+	.ENDT
+
+PT?9008::	.TABLE
+	2
+	STR?684
+	STR?685
+	.ENDT
+
+PT?9108::	.TABLE
+	7
+	STR?686
+	STR?687
+	STR?688
+	STR?689
+	STR?690
+	STR?691
+	STR?692
+	.ENDT
+
+PT?9208::	.TABLE
+	8
+	STR?693
+	STR?694
+	STR?695
+	STR?696
+	STR?697
+	STR?698
+	STR?699
+	STR?700
+	.ENDT
+
+PT?9308::	.TABLE
+	2
+	STR?701
+	STR?702
+	.ENDT
+
+PT?9408::	.TABLE
+	2
+	STR?703
+	STR?704
+	.ENDT
+
+PT?9508::	.TABLE
+	4
+	STR?705
+	STR?706
+	STR?707
+	STR?708
+	.ENDT
+
+PT?9608::	.TABLE
+	7
+	STR?709
+	STR?710
+	STR?711
+	STR?712
+	STR?713
+	STR?714
+	STR?715
+	.ENDT
+
+PT?9708::	.TABLE
+	5
+	STR?716
+	STR?717
+	STR?718
+	STR?719
+	STR?720
+	.ENDT
+
+PT?9808::	.TABLE
+	7
+	STR?721
+	STR?722
+	STR?723
+	STR?724
+	STR?725
+	STR?726
+	STR?727
+	.ENDT
+
+PT?9908::	.TABLE
+	2
+	STR?728
+	STR?729
+	.ENDT
+
+PT?10008::	.TABLE
+	5
+	STR?730
+	STR?731
+	STR?732
+	STR?733
+	STR?734
+	.ENDT
+
+PT?10108::	.TABLE
+	6
+	STR?735
+	STR?736
+	STR?737
+	STR?738
+	STR?739
+	STR?740
+	.ENDT
+
+PT?10208::	.TABLE
+	5
+	STR?741
+	STR?742
+	STR?743
+	STR?744
+	STR?745
+	.ENDT
+
+PT?10308::	.TABLE
+	3
+	STR?746
+	STR?747
+	STR?748
+	.ENDT
+
+PT?10408::	.TABLE
+	3
+	STR?749
+	STR?747
+	STR?750
+	.ENDT
+
+PT?10508::	.TABLE
+	3
+	STR?751
+	STR?747
+	STR?752
+	.ENDT
+
+PT?10608::	.TABLE
+	5
+	STR?753
+	STR?754
+	STR?755
+	STR?756
+	STR?757
+	.ENDT
+
+PT?10708::	.TABLE
+	4
+	STR?758
+	STR?759
+	STR?760
+	STR?761
+	.ENDT
+
+PT?10808::	.TABLE
+	3
+	STR?762
+	STR?763
+	STR?764
+	.ENDT
+
+PT?10908::	.TABLE
+	25
+	STR?765
+	STR?766
+	STR?767
+	STR?768
+	STR?769
+	STR?770
+	STR?771
+	STR?772
+	STR?773
+	STR?774
+	STR?775
+	STR?776
+	STR?777
+	STR?778
+	STR?779
+	STR?780
+	STR?781
+	STR?782
+	STR?783
+	STR?784
+	STR?785
+	STR?786
+	STR?787
+	STR?788
+	STR?789
+	.ENDT
+
+PT?11008::	.TABLE
+	22
+	STR?790
+	STR?791
+	STR?792
+	STR?793
+	STR?794
+	STR?795
+	STR?796
+	STR?797
+	STR?798
+	STR?799
+	STR?800
+	STR?801
+	STR?802
+	STR?803
+	STR?804
+	STR?805
+	STR?806
+	STR?807
+	STR?808
+	STR?809
+	STR?810
+	STR?811
+	.ENDT
+
+PT?11108::	.TABLE
+	12
+	STR?812
+	PT?308
+	PT?408
+	PT?508
+	PT?608
+	PT?708
+	PT?808
+	PT?908
+	PT?1008
+	PT?1108
+	PT?1208
+	PT?1308
+	.ENDT
+
+PT?11208::	.TABLE
+	7
+	STR?813
+	PT?1408
+	PT?1508
+	PT?1608
+	PT?1708
+	PT?1808
+	PT?1908
+	.ENDT
+
+PT?11308::	.TABLE
+	12
+	STR?814
+	PT?2008
+	PT?2108
+	PT?2208
+	PT?2308
+	PT?2408
+	PT?2508
+	PT?2608
+	PT?2708
+	PT?2808
+	PT?2908
+	PT?3008
+	.ENDT
+
+PT?11408::	.TABLE
+	14
+	STR?815
+	PT?3108
+	PT?3208
+	PT?3308
+	PT?3408
+	PT?3508
+	PT?3608
+	PT?3708
+	PT?3808
+	PT?3908
+	PT?4008
+	PT?4108
+	PT?4208
+	PT?4308
+	.ENDT
+
+PT?11508::	.TABLE
+	9
+	STR?816
+	PT?4408
+	PT?4508
+	PT?4608
+	PT?4708
+	PT?4808
+	PT?4908
+	PT?5008
+	PT?5108
+	.ENDT
+
+PT?11608::	.TABLE
+	6
+	STR?817
+	PT?5208
+	PT?5308
+	PT?5408
+	PT?5508
+	PT?5608
+	.ENDT
+
+PT?11708::	.TABLE
+	5
+	STR?818
+	PT?5708
+	PT?5808
+	PT?5908
+	PT?6008
+	.ENDT
+
+PT?11808::	.TABLE
+	13
+	STR?819
+	PT?6108
+	PT?6208
+	PT?6308
+	PT?6408
+	PT?6508
+	PT?6608
+	PT?6708
+	PT?6808
+	PT?6908
+	PT?7008
+	PT?7108
+	PT?7208
+	.ENDT
+
+PT?11908::	.TABLE
+	12
+	STR?820
+	PT?7308
+	PT?7408
+	PT?7508
+	PT?7608
+	PT?7708
+	PT?7808
+	PT?7908
+	PT?8008
+	PT?8108
+	PT?8208
+	PT?8308
+	.ENDT
+
+PT?12008::	.TABLE
+	10
+	STR?821
+	PT?8408
+	PT?8508
+	PT?8608
+	PT?8708
+	PT?8808
+	PT?8908
+	PT?9008
+	PT?9108
+	PT?9208
+	.ENDT
+
+PT?12108::	.TABLE
+	17
+	STR?822
+	PT?9308
+	PT?9408
+	PT?9508
+	PT?9608
+	PT?9708
+	PT?9808
+	PT?9908
+	PT?10008
+	PT?10108
+	PT?10208
+	PT?10308
+	PT?10408
+	PT?10508
+	PT?10608
+	PT?10708
+	PT?10808
+	.ENDT
+
+PT?12208::	.TABLE
+	3
+	STR?823
+	PT?10908
+	PT?11008
+	.ENDT
+
+PT?12308::
+T?HINT-COUNTS::	.TABLE
+	T?108
+	T?208
+	T?308
+	T?408
+	T?508
+	T?608
+	T?708
+	T?808
+	T?908
+	T?1008
+	T?1108
+	T?1208
+	.ENDT
+
+PT?12408::
+T?HINTS::	.TABLE
+	12
+	PT?11108
+	PT?11208
+	PT?11308
+	PT?11408
+	PT?11508
+	PT?11608
+	PT?11708
+	PT?11808
+	PT?11908
+	PT?12008
+	PT?12108
+	PT?12208
+	.ENDT
+
+PURTND::
+	.ENDI
diff --git a/s3str.zap b/s3str.zap
new file mode 100644
index 0000000..eb05179
--- /dev/null
+++ b/s3str.zap
@@ -0,0 +1,915 @@
+
+
+; STRINGS ARE DEFINED HERE
+
+STRBEG::
+
+	.GSTR STR?1,"Not Here"
+	.GSTR STR?2,"Actor"
+	.GSTR STR?3,"M-Beg"
+	.GSTR STR?4,"Preaction"
+	.GSTR STR?5,"PRSI"
+	.GSTR STR?6,"PRSO"
+	.GSTR STR?7,"OOPS"
+	.GSTR STR?8,"AGAIN"
+	.GSTR STR?9,"Oh, no! You have walked into the slavering fangs of a lurking grue!"
+	.GSTR STR?10,""
+	.GSTR STR?11,"  "
+	.GSTR STR?12,"    "
+	.GSTR STR?13,"      "
+	.GSTR STR?14,"        "
+	.GSTR STR?15,"          "
+	.GSTR STR?16,"open"
+	.GSTR STR?17,"closed"
+	.GSTR STR?18,"[Transcript o"
+	.GSTR STR?19,"begins"
+	.GSTR STR?20,"ends"
+	.GSTR STR?21,"on"
+	.GSTR STR?22,"off"
+	.GSTR STR?23,"Oh, no! Something (a grue?) slithered into the room and devoured you!"
+	.GSTR STR?24,"Hello."
+	.GSTR STR?25,"Nice weather we're having."
+	.GSTR STR?26,"Goodbye."
+	.GSTR STR?27,"You've spent too much time among the Leaping Loon-toads of Leonia."
+	.GSTR STR?28,"Having fun?"
+	.GSTR STR?29,"Wheeeeeee!!!"
+	.GSTR STR?30,"Kicking the "
+	.GSTR STR?31,"Waving the "
+	.GSTR STR?32,"Fiddling with the "
+	.GSTR STR?33,"Pushing the "
+	.GSTR STR?34,"Pushing up the "
+	.GSTR STR?35,"Pushing down the "
+	.GSTR STR?36,"Pulling the "
+	.GSTR STR?37,"Trying to destroy the "
+	.GSTR STR?38," isn't notably helpful."
+	.GSTR STR?39," has no effect."
+	.GSTR STR?40," is as worthwhile as cleaning a Grotch cage."
+	.GSTR STR?41,"Ooops! You seem to have transported yourself into an active sector of the computer. You are fried by powerful electric currents."
+	.GSTR STR?42,"Fat chance."
+	.GSTR STR?43,"A valiant attempt."
+	.GSTR STR?44,"You can't be serious."
+	.GSTR STR?45,"Not bloody likely."
+	.GSTR STR?46,"An interesting idea..."
+	.GSTR STR?47,"What a concept!"
+	.GSTR STR?48,"You slice yourself to ribbons on the broken windows and then plummet into the swirling ocean below. Very clever."
+	.GSTR STR?49,"Brilliant idea!"
+	.GSTR STR?50,"If you insist.... Poof, you're dead!"
+	.GSTR STR?51,"You are in the Feinstein's brig. Graffiti cover the walls. The cell door to the south is locked."
+	.GSTR STR?52,"The cell door is locked."
+	.GSTR STR?53,"""STELLAR PATROL
+Special Assignment Task Force
+ID Number:  6172-531-541"""
+	.GSTR STR?54,"A slightly wrinkled Patrol uniform is lying here."
+	.GSTR STR?55,"Bug #46"
+	.GSTR STR?56,"July 22 -- Transferred from S.P.S. Trilobyte to S.P.S. Feinstein for the third of my four tours of duty. I'm truly going to miss my commander, Ensign First Class Lim. He was a friend in every respect -- someone you could always go to with a problem, someone I could really look up to. We would sometimes talk long into the night. He would tell me about his home world of Ash-Down V, and I would talk about growing up on Gallium. I'd get pretty homesick sometimes, even though Gallium is not exactly one of the garden spots of the universe. I just hope my new commander is half as nice as Lim.
+
+This new ship seems pretty swell. I'm in a cabin with only five other ensigns, and I've got one-and-a-half cubic meters of locker space!"
+	.GSTR STR?57,"July 23 -- Met my new commander today -- Ensign Cadet First Class Blather. He seems like a real krip. (Excuse the language, Diary.) But that might just be a bad first impression."
+	.GSTR STR?58,"July 25 -- One of my cabin mates, Gorund, organized a Double Fanucci tournament among all the Ensigns Seventh Class. We were playing during the 150-millichron rec period after lunch, and Blather burst in and confiscated the sets and told us that playing war games was a violation of patrol regulations. But Ensign Whirp, who's studying to be a patrol lawyer, said she couldn't find anything about it in the regulations anywhere.
+BLATHER IS REALLY A TOTAL MEGAKRIP!!!"
+	.GSTR STR?59,"July 28 -- I went to see the personnel officer today to find out what my new duties would involve. He showed me a list of all the open assignments, and I decided to put in for the grotch-feeding detail. We picked up a few grotches when we were on Crassus, and we're taking them to the Zoology Labs on Tremain so that maybe they can figure out how an animal can produce 47 times its weight in trot every day."
+	.GSTR STR?60,"Bozbar 7 -- Everyone from the P.O. to the ship's cook has approved my application for the grotch-feeding detail -- except Blather. I have an appointment to see him tomorrow. Wish me luck."
+	.GSTR STR?61,"Bozbar 8 -- TROT!! Blather rejected my application! And to make it worse, he said that since I seem to love grotches so much, he's assigning me to clean out their cages. TROT AND DOUBLE TROT!!"
+	.GSTR STR?62,"Bozbar 26 -- I haven't had time to keep my diary lately, because Blather's been watching us all like a Teleran bird. Also, last week he found the diary during a surprise inspection, gave me 200 demerits, and told me that diaries were against regulations. But I'll be frobbed if I'm going to stop. I've started hiding the diary inside my official documents file, and I keep that hidden in the air duct. From now on I'll have to sneak away somewhere to use it."
+	.GSTR STR?63,"Bozbar 27 -- Greeting from the Deck Four Supply Closet of the S.P.S. Feinstein. I hope I'm not tempting fate, sneaking around with my diary this way. I used to be as much of a disbeliever in destiny as the next guy, but not anymore. Not since the time my mom warned my dad not to tempt fate by walking across the astral plains after dark, when the computerized analysis showed a 43% chance of resulting injury. My dad, stubborn as always, just laughed at her and went right on taking his nightly strolls. THE VERY NEXT SUMMER HE WENT WALKING AT NIGHT ON THE PLAINS AND STUMBLED OVER A CRATER AND BRUISED HIS KNEE! Gosh!"
+	.GSTR STR?64,"Bozbar 28 -- We entered planetary orbit today, a non-human world called Accardi-3 (although the natives call it something like Blow'k-bibben-gordo). They're not officially part of the union. The rumors say that we're picking up a special ambassador to take back to Tremain for negotiations on joining the union. Tomorrow we have to put on our dress uniforms for some special welcoming ceremony."
+	.GSTR STR?65,"August 2 -- I caught a glimpse of the alien ambassador during the welcoming ceremonies yesterday. He looks like a cross between a tree trunk and a melting ice cream cone. But at least the ceremony got me out of cleaning the grotch cages today."
+	.GSTR STR?66,"August 7 -- Went to the mandatory Patrol Informational Tri-vision Triple Feature last night. We saw 'Treatment For Space Lice Infestation,' 'Shoreleave Shirley: How to Guard Against Contracting Alien Diseases,' and 'The Oxygen Tank: Your Galvanized Buddy in the Vacuum.' Blather confined half the ensigns to quarters for hooting during the second feature. (The other half had fallen asleep during the first feature.)"
+	.GSTR STR?67,"August 24 -- TROT THAT TROTTING KRIP!! I applied for astrophysics training for the next quarter, but Blather says my work for the special assignment task force hasn't been good enough, so not only did he reject my astrophysics application, but he says I'll have to take remedial scrubbing next quarter. WHAT A TROTTING KRIP!
+
+You know, for the first time I'm beginning to have doubts about whether I'm really cut out for the patrol. When I was growing up on Gallium, it was always taken for granted that I would join up when I came of age. My family has served in the patrol for five generations. In fact, my great-great-grandfather was a high admiral and one of the founding fathers of the Patrol! But I seem to be permanently stuck at Ensign 7th, and Blather is making my life miserable..."
+	.GSTR STR?68,"Septem 4 -- We left hyperspace today at about 7600; weren't scheduled to for about another two weeks. The grapevine says we have special orders to investigate a planetary system here. Apparently, some of the archaeologists back on Varshon think it might have been part of the Second Union. I can't imagine why anyone would settle out here in this remote corner of the galaxy."
+	.GSTR STR?69,"Septem 5 -- That krip has done it again! I missed two little pellets of trot when I was when I was cleaning out the grotch cages yesterday, and Blather gave me 100 demerits and assigned me two extra shifts of deck scrubbing -- including Deck Nine, the filthiest deck on the ship! I'm considering asking for a transfer -- or if things get worse, I might even abandon ship!"
+	.GSTR STR?70,"The corridor widens here as it nears the main drive area. To starboard is the Ion Reactor that powers the vessel, and aft of here is the Auxiliary Control Room. The corridor continues to port."
+	.GSTR STR?71,"Ensign Blather pushes you roughly back toward your post."
+	.GSTR STR?72,"Ensign Blather blocks your way, snarling angrily."
+	.GSTR STR?73,"This is a steep metal gangway connecting Deck Eight, above, and Deck Nine, below."
+	.GSTR STR?74,"This is a featureless corridor leading port and starboard. A gangway leads down, and to fore is the Hyperspatial Jump Machinery Room."
+	.GSTR STR?75,"Blather throws you to the deck and makes you do 20 push-ups."
+	.GSTR STR?76,"Blather blocks your path, growling about extra galley duty."
+	.GSTR STR?77,"Ensign First Class Blather is standing before you, furiously scribbling demerits onto an oversized clipboard."
+	.GSTR STR?78,"Blather removes several of your appendages and internal organs."
+	.GSTR STR?79,"A high-ranking ambassador from a newly contacted alien race is standing here on three of his legs, and watching you with seven of his eyes."
+	.GSTR STR?80,"Oops. Looks like Blow'k-Bibben-Gordoan metabolism is not compatible with our own. You die of all sorts of convulsions."
+	.GSTR STR?81,"Unfortunately, one of those stupid Blow'k-bibben-Gordo brochures is here."
+	.GSTR STR?82,"""The leading export of Blow'k-bibben-Gordo is the adventure game
+
+          *** PLANETFALL ***
+
+written by S. Eric Meretzky.
+Buy one today. Better yet, buy a thousand."""
+	.GSTR STR?83,"introduces himself as Br'gun-te'elkner-ipg'nun."
+	.GSTR STR?84,"asks if you are performing some sort of religious ceremony."
+	.GSTR STR?85,"inquires whether you are interested in a game of Bocci."
+	.GSTR STR?86,"recites a plea for coexistence between your races."
+	.GSTR STR?87,"asks where Admiral Smithers can be found."
+	.GSTR STR?88,"remarks that all humans look alike to him."
+	.GSTR STR?89,"offers you a bit of celery."
+	.GSTR STR?90,"""S.P.S. FEINSTEIN
+  Escape Pod #42
+   Don't Panic!"""
+	.GSTR STR?91,"
+An enormous explosion tears the walls of the ship apart. If only you had made it to an escape pod..."
+	.GSTR STR?92,"
+You are thrown against the bulkhead, head first. It seems that getting in the safety webbing would have been a good idea."
+	.GSTR STR?93,"
+The ship rocks from the force of multiple explosions. The lights go out, and you feel a sudden drop in pressure accompanied by a loud hissing. Too bad you weren't in the escape pod..."
+	.GSTR STR?94,"
+The pod, whose automated controls were unfortunately designed by computer scientists, lands with a good deal of force. Your body sails across the pod until it is stopped by one of the sharper corners of the control panel."
+	.GSTR STR?95,"
+Between the swirling waters and the increasing pressure, it's curtains for you. Perhaps you should have left the pod a bit sooner."
+	.GSTR STR?96,"
+The pod splits open, and water pours in."
+	.GSTR STR?97,"A recorded voice chimes ""Elevator enabled."""
+	.GSTR STR?98,"A sign flashes ""Inkorekt awtharazaashun kard...akses deeniid."""
+	.GSTR STR?99,"You can't go that way."
+	.GSTR STR?100,"A recorded voice says ""Shuttle controls are already activated."""
+SHUTTLE-RECORDING-1=STR?100
+	.GSTR STR?101,"A recorded voice says ""Use other control cabin. Control activation overridden."""
+SHUTTLE-RECORDING-2=STR?101
+	.GSTR STR?102,"A recording of a deep male voice says ""Shuttle controls activated."""
+SHUTTLE-RECORDING-3=STR?102
+	.GSTR STR?103,"A recorded voice says ""Shuttle controls are not currently activated."""
+	.GSTR STR?104,"The shuttle car hurtles past the platforms and rams into the wall at the far end of the station. The shuttle car is destroyed, but you're in no condition to care."
+	.GSTR STR?105,"You pass a sign, surrounded by blinking red lights, which says "
+SIGN-PASS=STR?105
+	.GSTR STR?106,"
+
+
+Suddenly, in the middle of the night, a wave of water washes over you. Before you can quite get your bearings, you drown."
+	.GSTR STR?107,"
+
+
+Suddenly, in the middle of the night, you awake as several ferocious beasts (could they be grues?) surround and attack you. Perhaps you should have found a slightly safer place to sleep."
+	.GSTR STR?108,"You climb into the bed. It is soft and comfortable. After a few moments, a previously unseen panel opens, and a diagnostic robot comes wheeling out. It is very rusty and sways unsteadily, bumping into several pieces of infirmary equipment as it crosses the room. As the robot straps you to the bed, you notice some smoke curling from its cracks. Beeping happily, the robot injects you with all 347 serums and medicines it carries. The last thing you notice before you pass out is the robot preparing to saw your legs off."
+	.GSTR STR?109,"...You find yourself on the bridge of the Feinstein. Ensign Blather is here, as well as Admiral Smithers. You are diligently scrubbing the control panel. Blather keeps yelling at you to scrub harder. Suddenly you hit the ship's self-destruct switch! Smithers and Blather howl at you as the ship begins exploding! You try to run, but your feet seem to be fused to the deck..."
+	.GSTR STR?110,"...You gulp down the last of your Ramosian Fire Nectar and ask the andro-waiter for another pitcher. This pub makes the finest Nectar on all of Ramos Two, and you and your shipmates are having a pretty rowdy time. Through the windows of the pub you can see a mighty, ancient castle, shining in the light of the three Ramosian moons. The Fire Nectar spreads through your blood and you begin to feel drowsy..."
+	.GSTR STR?111,"...Strangely, you wake to find yourself back home on Gallium. Even more strangely, you are only eight years old again. You are playing with your pet sponge-cat, Swanzo, on the edge of the pond in your backyard. Mom is hanging orange towels on the clothesline. Suddenly the school bully jumps out from behind a bush, grabs you, and pushes your head under the water. You try to scream, but cannot. You feel your life draining away..."
+	.GSTR STR?112,"...Your vision slowly returns. You are on a wooded cliff overlooking a waterfall. A rainbow spans the falls. Blather stands above you, bellowing that the ground is filthy -- scrub harder! You throw your brush at Blather, but it passes thru him as though he were a ghost, and sails over the cliff. Blather leaps after the valuable piece of Patrol property, and both plummet into the void..."
+	.GSTR STR?113,"...At last, the Feinstein has arrived at the historic Nebulon system. It's been five months since the last shore leave, and you're anxious for Planetfall. You and some other Ensigns Seventh Class enter the shuttle for surfaceside. Suddenly, you're alone on the shuttle, and it's tumbling out of control! It lands in the ocean and begins sinking! You try to clamber out, but you are stuck in a giant spider web. A giant spider crawls closer and closer..."
+	.GSTR STR?114,"Unfortunately, you don't seem to have survived the night."
+	.GSTR STR?115,"
+You collapse from extreme thirst and hunger."
+	.GSTR STR?116,"Thanks, but you're not hungry."
+	.GSTR STR?117,"
+You finally succumb to the ravages of your illness and collapse."
+	.GSTR STR?118,"tastes"
+	.GSTR STR?119,"feels"
+	.GSTR STR?120,"looks"
+	.GSTR STR?121,"smells"
+	.GSTR STR?122,"Plummet."
+	.GSTR STR?123,"So, that's what it's like to have twenty million volts run through your body!"
+	.GSTR STR?124,"Stunning. After days of surviving on a hostile, plague-ridden planet, solving several of Infocom's toughest puzzles, and coming within one move of completing Planetfall, you blow it all in one amazingly dumb input.
+
+The doors close and the elevator rises quickly to the top of the shaft. The doors open, and the mutants, which were waiting impatiently in the ProjCon Office for just such an occurence, happily saunter in and begin munching."
+	.GSTR STR?125,"It's too dark to see a thing."
+TOO-DARK=STR?125
+	.GSTR STR?126,"You are momentarily disoriented as you enter the turbulent waters. Currents buffet you against the sharp rocks of an underwater cliff. A dim light filters down from above."
+	.GSTR STR?127,"A mighty undertow drags you across some underwater obstructions."
+	.GSTR STR?128,"You have reached a cleft in the cliff wall where the island rises from the water. The edge of the cleft displays recently exposed rock where it collapsed under the weight of the escape pod. About two meters below, turbulent waters swirl against sharp rocks. A small structure clings to the face of the cliff about eight meters above you. Even an out-of-shape Ensign Seventh Class could probably climb up to it."
+	.GSTR STR?129,"This was once the west wing of the castle, but the walls are now mostly rubble, allowing a view of the cliff and ocean below. Rubble blocks all exits save one, eastward to the courtyard."
+	.GSTR STR?130,"Certain death."
+	.GSTR STR?131,"This is a featureless hall leading north and south. Although the hallway is old and dusty, the construction is of a much more modern style than the castle to the south. A similar hall branches off to the northeast."
+	.GSTR STR?132,"This is a tiny room with a large ""1"" painted on the wall. A panel contains a slot about ten centimeters wide, a beige button labelled ""2"" and a tan button labelled ""3."""
+	.GSTR STR?133,"This is a wide, east-west hallway. Portals lead north and south, and another corridor branches southwest."
+	.GSTR STR?134,"This is a very long room lined with multi-tiered bunks. Flimsy partitions between the tiers may have provided a modicum of privacy. These spartan living quarters could have once housed many hundreds, but it seems quite deserted now. There are openings at the north and south ends of the room."
+	.GSTR STR?135,"This must be the sanitary facility for the adjacent dormitory. The fixtures are dry and dusty, the room dead and deserted. You marvel at how little the millenia and cultural gulfs have changed toilet bowl design. The only exit is north."
+	.GSTR STR?136,"This must be the sanitary facility for the adjacent dormitory. The fixtures are dry and dusty, the room dead and deserted. You marvel at how little the millenia and cultural gulfs have changed toilet bowl design. The only exit is south."
+	.GSTR STR?137,"This is a small room obviously intended as a storage area."
+	.GSTR STR?138,"There is a large tin can, labelled ""Spam and Egz,"" sitting here."
+	.GSTR STR?139,"On a small shelf is a large, unopened tin can. It has a plain white label which reads ""Spam and Egz."""
+	.GSTR STR?140,"A heavy-duty extendable ladder is leaning against the rear wall."
+	.GSTR STR?141,"There is a large aluminum ladder here."
+	.GSTR STR?142,"This is a wide, east-west hallway with openings to the north and south. To the east, the corridor stretches off into the distance. That section of the hallway is lined with a motorized walkway (no longer running) that was probably intended to transport people or cargo down that tremendously long hall."
+	.GSTR STR?143,"This is the food production and dispensary area for the dining hall to the north. Of particular interest is a machine near the door. You should probably examine it more closely."
+	.GSTR STR?144,"Although the room is quite barren, an octagonally shaped canteen is sitting on one of the benches."
+	.GSTR STR?145,"A north-south corridor intersects the main corridor here. To the west, the main corridor extends as far as you can see; a nonworking walkway from that direction ends here. To the east, the corridor widens into a well-lit area."
+	.GSTR STR?146,"This section of hallway seems to have suffered some minor structural damage. The walls are cracked, and a jagged crevice crosses the floor. An opening leads east and the corridor heads north and south."
+	.GSTR STR?147,"Lying at the bottom of a narrow crevice is a shiny object."
+	.GSTR STR?148,"You get a brief (but much closer) view of the sharp and nasty rocks at the bottom of the rift."
+	.GSTR STR?149,"Here is another sanitary facility. Like the others, it is dusty and nonfunctional."
+	.GSTR STR?150,"This is a small room whose far wall is covered with many small cubbyholes, all empty. The left wall is covered with an enormous map, labelled ""Kalamontee Kompleks"", showing two installations connected by a long hallway. Near the upper part of this map is a red arrow saying ""Yuu ar heer."" The right wall is covered with a similar map, labelled ""Lawanda Kompleks"", showing two installations, one apparently buried deep underground."
+	.GSTR STR?151,"You have just located a serious bug."
+	.GSTR STR?152,"You have entered a small office of some sort. A small desk faces the main doorway which lies to the east. Another exit leads west."
+	.GSTR STR?153,"The card is embossed ""kitcin akses kard."""
+	.GSTR STR?154,"The card is embossed ""upur elivaatur akses kard."""
+	.GSTR STR?155,"The card is embossed ""shutul akses kard."""
+	.GSTR STR?156,"The card is embossed ""loowur elivaatur akses kard."""
+	.GSTR STR?157,"This is a large, plush office. The far wall is one large picture window, scratched but unbroken, offering a view of this installation and the ocean beyond. In front of the window is a wide wooden desk. The only exit is east."
+	.GSTR STR?158,"Entrances to rooms lie to the east and west from this north-south hall."
+	.GSTR STR?159,"The corridor ends here with doorways to the southwest, south, and southeast."
+	.GSTR STR?160,"A small room for storage. The exit is to the west."
+	.GSTR STR?161,"One dusty shelf, otherwise bare, holds a small oil can."
+	.GSTR STR?162,"On the floor beneath the shelves sits a small cardboard box."
+	.GSTR STR?163,"Kerzap!! You should know better than to touch an active bedistor!"
+	.GSTR STR?164,"This is a huge, dim room with exits in the northeast and southeast corners. The room is criss-crossed with catwalks and is filled with heavy equipment presumably intended to heat and ventilate this complex. Hardly any of the equipment is still operating."
+	.GSTR STR?165,"This room contains many dials and gauges for controlling a massive planetary power reactor which, according to a diagram on the wall, must be buried far below this very complex. The exit is to the west. To the east is a metal door, and next to it, a button. A dark stairway winds downward."
+	.GSTR STR?166,"This is an elevator with a door to the west, currently open. A control panel contains an Up button, a Down button, and a small slot."
+	.GSTR STR?167,"This is apparently a storage room for tools. Exits lead northeast and east."
+	.GSTR STR?168,"Sitting on the floor below the lowest shelf is a large glass flask."
+	.GSTR STR?169,"On an upper shelf is a metal bar, curved into a U-shape."
+	.GSTR STR?170,"red"
+	.GSTR STR?171,"blue"
+	.GSTR STR?172,"green"
+	.GSTR STR?173,"yellow"
+	.GSTR STR?174,"gray"
+	.GSTR STR?175,"brown"
+	.GSTR STR?176,"black"
+	.GSTR STR?177,"clear"
+	.GSTR STR?178,"This room, with exits west and northwest, is filled with robot-like devices of every conceivable description, all in various states of disassembly."
+	.GSTR STR?179,"Only one robot, about four feet high, looks even remotely close to being in working order."
+	.GSTR STR?180,"Your former companion, Floyd, is lying on the ground in a pool of oil."
+	.GSTR STR?181,"paces impatiently"
+	.GSTR STR?182,"absentmindedly recites the first six hundred digits of pi"
+	.GSTR STR?183,"lowers his voice and tells you the latest rumors about Dr. Fizpick"
+	.GSTR STR?184,"recalls the time he bruised his knee"
+	.GSTR STR?185,"chants the death scene from ""Carmen"""
+	.GSTR STR?186,"cranes his neck to see what you are doing"
+	.GSTR STR?187,"rubs his head affectionately against your shoulder"
+	.GSTR STR?188,"asks if you want to play Hucka-Bucka-Beanstalk"
+	.GSTR STR?189,"examines himself for signs of rust"
+	.GSTR STR?190,"absentmindedly oils one of his joints"
+	.GSTR STR?191,"wanders restlessly around the room"
+	.GSTR STR?192,"notices a mouse scurrying by and tries to hide behind you"
+	.GSTR STR?193,"sings an ancient ballad, totally out of key"
+	.GSTR STR?194,"frets about the possibility of his batteries failing"
+	.GSTR STR?195,"reminisces about his friend Lazarus, a medical robot"
+	.GSTR STR?196,"relates some fond memories about his robotic friend Lazarus"
+	.GSTR STR?197,"whistles tunelessly"
+	.GSTR STR?198,"tells you about the time he helped someone sharpen a pencil"
+	.GSTR STR?199,"yawns and looks bored"
+	.GSTR STR?200,"produces a crayon from one of his compartments and scrawls his name on the wall"
+	.GSTR STR?201,"You'll have to use the elevator controls."
+	.GSTR STR?202,"A recording says ""Elevator no longer enabled."""
+	.GSTR STR?203,"The elevator door slides shut. After a moment, you feel a sensation of vertical movement."
+	.GSTR STR?204,"This is a tiny room with a large ""2"" painted on the wall. A panel contains a slot about ten centimeters wide, a brown button labelled ""1"" and a tan button labelled ""3."""
+	.GSTR STR?205,"This is a small, circular room. A sliding door leads north, and a spiral staircase heads upwards. Other exits lie to the northeast and southwest."
+	.GSTR STR?206,"You are at the center of a wide, flat area atop the tower. A fence prevents you from approaching the perimeter, so your view is limited to cloud-filled sky. A large vehicle, severely weathered and topped with rotor blades, lies nearby. A spiral staircase leads down into the tower."
+	.GSTR STR?207,"A fence keeps you away from the edge, where you would probably be swept over the brink by the high winds."
+	.GSTR STR?208,"This is a large vehicle with a lot of cargo space. A complex control panel is closed and locked. Everything is covered with a thick layer of rust. Through the windows of the vehicle you can see a wide Helipad, and beyond that, endless ocean far below. Several doors lead out to the Helipad."
+	.GSTR STR?209,"""Tuu enee ship uv xe Sekund Galaktik Yuunyun: Planitwiid plaag haz struk entiir popyuulaashun. Tiim iz kritikul. Eemurjensee asistins reekwestid. <reepeet mesij>"""
+	.GSTR STR?210,"Mmmmm....that tasted just like delicious poisonous chemicals!"
+	.GSTR STR?211,"Unfortunately, those two liquids seem to react quite violently with each other. The resulting exothermic reaction might have been interesting to watch from a distance of, say, several hundred feet."
+	.GSTR STR?212,"Have you always had this desire to see melting flesh?"
+	.GSTR STR?213,"The chemical drips all over the silicon strip, which immediately begins to dissolve. As it does so, you plunge into the void below."
+	.GSTR STR?214,"This is a balcony girdling the tower. The view is breathtaking; the tower must be half a kilometer tall. From here it is clear that you are on an island. The dormitory section of the complex is visible on the other side of the island, and the rest of the complex sprawls out directly below. In the distance, about 20 kilometers to the east, you can spot another island similar to this one. The only exit is a doorway leading northeast."
+	.GSTR STR?215,"This is a concrete platform sparsely furnished with benches. The platform continues to the east, and to the south is a metal door."
+	.GSTR STR?216,"You are in the middle of a long mechanical stairway. It is not running, and seems to be in disrepair."
+	.GSTR STR?217,"This is a hallway which forks to the northeast and southeast. To the west is the top of a long escalator."
+	.GSTR STR?218,"You have entered a clean, well-lighted place. There are a number of beds, some complicated looking equipment, and many shelves that are mostly bare."
+	.GSTR STR?219,"Lying on one of the beds is a small red spool."
+	.GSTR STR?220,"The spool is labelled ""Simptumz uv Xe Dizeez."""
+	.GSTR STR?221,"On a low shelf is a translucent bottle with a small white label."
+	.GSTR STR?222,"""Dizeez supreshun medisin -- eksperimentul"""
+	.GSTR STR?223,"At the bottom of the bottle is a small quantity of medicine."
+	.GSTR STR?224,"You are in a dimly lit room, filled with strange machines and wide storage cabinets, all locked. To the south, a narrow stairway leads upward. On the north wall of the room is a very small doorway."
+	.GSTR STR?225,"It is a robot-sized doorway -- a bit too small for you."
+	.GSTR STR?226,"Lying face down at the bottom of the stairs is a motionless robot. It appears to be damaged beyond repair."
+	.GSTR STR?227,"The corridor bends here, leading east and southwest. A doorway opens to the northwest, and a narrow stairway leads down to the north."
+	.GSTR STR?228,"This section of hallway has a doorway to the north labelled ""Planateree Deefens."" The corridor continues east and west."
+	.GSTR STR?229,"The hallway ends here with a large doorway leading east, and smaller doorways to the north and south. The northern doorway is labelled ""Planateree Kors Kontrool."" The hallway itself leads west."
+	.GSTR STR?230,"This is an enormous room full of environmental control equipment presumably intended to heat and ventilate the Lawanda Complex. Oddly, although the Lawanda Complex is slightly smaller than its counterpart, this plant is much larger than the one in the Kalamontee Complex. The only exit is westward."
+	.GSTR STR?231,"This is a carpeted room, thick with dust, with exits to the north and south. To the west, up a few steps, is a wide doorway. A small booth lies to the east."
+	.GSTR STR?232,"You catch a glimpse of a small object nestled among the dust."
+	.GSTR STR?233,"The spool is labelled ""Helikoptur Opuraateeng Manyuuwul."""
+	.GSTR STR?234,"This is a tiny room with a large ""3"" painted on the wall. A panel contains a slot about ten centimeters wide, a brown button labelled ""1"" and a beige button labelled ""2."""
+	.GSTR STR?235,"This is a large carpeted room with a desk and many small tables. The sole exit is down a few steps to the east."
+	.GSTR STR?236,"Sitting on a wide table is a machine of sorts, consisting of a video screen and a keyboard. It is currently turned off."
+	.GSTR STR?237,"On the table is a computer terminal."
+	.GSTR STR?238,"The terminal feeps, and a message briefly appears on the screen explaining that typing that character has no meaning at the moment."
+NO-MEANING=STR?238
+	.GSTR STR?239,"The screen clears and a different menu appears:
+"
+SCREEN-CLEARS=STR?239
+	.GSTR STR?240,"The screen clears and some text appears:
+"
+TEXT-APPEARS=STR?240
+	.GSTR STR?241,"
+""Foor moor deetaald infoormaashun on xis tapik, konsult xe liibrereein foor xe aproopreeit spuulz. Tiip zeeroo tuu goo tuu aa hiiyur levul."""
+	.GSTR STR?242,"""Yuu hav reect xe loowist levul uv xe liibreree indeks. Pleez tiip zeeroo tuu goo tuu aa hiiyur levul. If yuu reekwiir asistins, kawl xe liibrereein."""
+	.GSTR STR?243,"    1. Histooree
+    2. Kulcur
+    3. Teknolojee
+    4. Jeeografee
+    5. Xe Prajekt
+    6. Inturlajik Gaamz"
+	.GSTR STR?244,"    0. Maan Menyuu
+    1. Raashul Orijinz
+    2. Graat Hiiaatus
+    3. Riiz uv xe Nuu Teknakrasee"
+	.GSTR STR?245,"    0. Maan Menyuu
+    1. Lituracur
+    2. Art
+    3. Muusik"
+	.GSTR STR?246,"    0. Maan Menyuu
+    1. Medisin
+    2. Agrikultcur
+    3. Tranzportaashun
+    4. Roobotiks
+    5. Planateree Sistumz"
+TECHNOLOGY-MENU=STR?246
+	.GSTR STR?247,"    0. Maan Menyuu
+    1. Planit Landmasiz
+    2. Undursee Reejunz
+    3. Spaas Kolooneez"
+	.GSTR STR?248,"    0. Maan Menyuu
+    1. Orijinz uv xe Dizeez
+    2. Xe Instalaashunz
+    3. Prajekt Kuntrool
+"
+PROJECT-MENU=STR?248
+	.GSTR STR?249,"    0. Maan Menyuu
+    1. Zoork
+    2. Dedliin and Witnis
+    3. Starkros and Suspendid"
+	.GSTR STR?250,"""Xe aancint lejindz saa xat ships frum xe Sekund Yuunyun wuns fild ar skiis and wil wun daa kum agen. Madern siientists, huu wuns dismist suc lejindz and felt xat liif eevolvd heer on Resida, now feel xat ar planit wuz reelee setuld bii men uv xe Sekund Yuunyun."""
+	.GSTR STR?251,"""Wexur oor not xe lejindz uv xe Sekund Yuunyun ar truu, arkeeoloojists ar surtin xat aa peereeid uv hii teknoolojikul and sooshul deevelupmint egzistid xowzindz uv yeerz agoo, but foor sum reezin sivilizaashun slid intuu aa dark aaj lasteeng senshureez."""
+	.GSTR STR?252,"""Wixin xe last fiiv senshureez, xe riiz uv xe Nuu Teknakrasee haz reeturnd sivilizaashun tuu xe levul ataand beefoor xe Hiiaatus. Sooshul histooreeunz xink xat wen xe Dizeez struk, ar raas had aceevd aa levul uv sufistikaashun eekwal tuu xe pree-Hiiaatus."""
+	.GSTR STR?253,"""Menee volyuumz on xe deevelupmint uv Residan lituracur ar on fiil in xe liibreree. Alsoo, kopeez uv awl graat wurks uv riiteeng, sum daateeng bak tuu xe mixikul daaz uv xe Sekund Yuunyun, ar lookaatid heer."""
+	.GSTR STR?254,"""Histoorikul studeez and reeproodukshunz uv Residan art ar avaalibul heer foor awl xree maajur peereeids uv art deevelupmint: xe Primitiv peereeid, xe Renasans peereeid uv xe urlee poost-Hiiaatus, and xe moost reesint peereeid uv videeoo and laazur art."""
+	.GSTR STR?255,"""Reekoordeengz uv awl impoortint kompoozishunz uv xe last fiiv hundrid yeerz ar lookaatid in xe liibrereez data banks."""
+	.GSTR STR?256,"""Awl maajur dizeezuz hav bin kyuuribul foor oovur aa senshuree. Xe deevelupmint uv kriioojeniks now alowz dokturz tuu put paashints in staasis until aa kyuur iz fownd. Avurij Residan liif ekspektinsee iz now 147 revooluushunz."""
+	.GSTR STR?257,"""Durt farmeeng iz awl but obsooleet, wix moost fuud kumeeng frum xe hiidrooponiks kompleksiz oor xe undurwatur aljee farmz."""
+	.GSTR STR?258,"""Planateree travul iz noormulee priivit skuutur foor shoort hops, and aarbus foor longur trips. Spaas travul haz reesintlee bin revooluushuniizd bii xe invenshun uv nuukleeur-fyuuld enjinz."""
+	.GSTR STR?259,"""Untoold senshureez agoo, entiir teemz uv roobots wur reekwiird tuu purfoorm eevin xe simplist tasks...wun roobot wud handul viszuuwul funkshunz, wun roobot wud handul awditooree funkshunz, and soo foorx. Now, xanks tuu advansis in mineeatshurizaashun, xeez tasks kan bee purfoormd bii singul roobots, suc az xe multiipurpis B-19 seereez."""
+	.GSTR STR?260,"""Xe priimeree Planateree Sistumz ar Kors Kuntrool (foor maantaaneeng an iideel kliimit), Deefens (foor destroieeng pootenshulee daanjuris meeteeoorz), and xe reesintlee adid Prajekt Kuntrool (foor monitureeng proogres uv Xe Prajekt)."""
+	.GSTR STR?261,"""Sins xe staabulizaashun uv xe oorbit uv Resida, preesiislee 47.79 pursent uv xe planits surfis iz land. Xe land iz diviidid intuu tuu priimeree landmasiz, Andoor and Fruulik, plus siks lesur landmasiz. Xe gloobul kapitul, Pilandoor, iz on xe eesturn koost uv Andoor."""
+	.GSTR STR?262,"""Xe furst undursee habutats wur oopind in 2992, and tuudaa, neerlee tuu senshureez laatur, abowt 9 pursent uv Residaz popyuulaashun livz in wun uv xe twentee sprawleeng undursee siteez."""
+	.GSTR STR?263,"""Alxoo setulmints hav bin establisht on Fristin, and on sevrul uv xe muunz uv xe gas jiiunt Blustin, xe vast majooritee uv of-woorldurz liv in xe spaas kolooneez establisht at Residaz troojin points."""
+	.GSTR STR?264,"""Xe oorijin uv Xe Dizeez haz bin linkt tuu xe Sentur foor Advanst Kriioojenik Reesurc, wic wuz kondukteeng reesurc intuu waaz uv ekstendeeng xe Kriioojenik peereeid indefinitlee. Alxoo xis reesurc wuz aa sukses, sumhow Xe Dizeez wuz reeleest and beegan spredeeng."""
+	.GSTR STR?265,"""Xe tuu kompleksiz wur establisht on xe twin peek platooz uv Kalamontee and Lawanda. Xeez lookaashunz wur coozin beekawz xaar hiit wud maak transpoortaashun and komyuunikaashunz eezeeur, and soo xat xe vast reeakturz and kriioojeniks caamburz kud bee kunstruktid in xe mowntinz beeloo."""
+	.GSTR STR?266,"""Faaz Wun: xe kunstrukshun uv xe Kalamontee and Lawanda Kompleksiz. Faaz Tuu: mass kriioojenik freezeeng uv Residan popyuulaashun. Faaz Xree: siimultaaneeus monitureeng uv kriioojeniks wiil awtoomaatid reesurc iz konduktid bii inkrediblee soofistikaatid kumpyuuturiizd fasiliteez. Faaz Foor: reeviivul and inokyuulaashun uv xe popyuulaashun."""
+	.GSTR STR?267,"""Xe Zoork triloojee, an adventshur klasik, taaks plaas in aa deeliitful but daanjuris undurgrownd seteeng."""
+	.GSTR STR?268,"""Dedliin iz xe furst graat misturee uv xe kumpyuutur aaj, and Witnis iz its wurxee suksesur."""
+	.GSTR STR?269,"""Starkros iz Infookamz miind-bendeeng siiens-fikshun adventshur. Suspendid iz aa kriioojenik siiens-fikshun niitmaar."""
+	.GSTR STR?270,"On the desk is a machine with a screen and a small circular opening. It seems to be turned off."
+	.GSTR STR?271,"There is a microfilm reader on one of the tables."
+	.GSTR STR?272,"The spool fits neatly into the opening."
+SPOOL-FITS=STR?272
+	.GSTR STR?273," Some information appears on the screen."
+SOME-INFO=STR?273
+	.GSTR STR?274,"""Oonlee peepul wix propur traaneeng shud piilot xe helikopturz. Reekwiird ekwipmint inkluudz aa Helikoptur Akses Kard and aa Kuntrool Panul Kee. Xeez kan bee obtaand frum Tranzportaashun Stoorij.""
+The rest is all very technical."
+	.GSTR STR?275,"""Xe jestaashun peereeid uv Xe Dizeez, folooweeng ekspoozur, vaareez treemenduslee frum pursin tuu pursin, raanjeeng frum wun daa tuu sevrul rootaashunz. Wuns xe furst simptumz ar shoon, dex alwaaz okurz in aat tuu ten daaz.
+Xe priimeree simptum iz aa hii feevur. Xe sekunderee simptum iz aa sharp inkrees in xe amownt uv sleep needid eec niit.""
+The rest of the information is about symptoms which can be detected only by using complicated medical procedures."
+RED-TEXT=STR?275
+	.GSTR STR?276,"This is a curving hallway leading east and northwest. There is an opening to the west."
+	.GSTR STR?277,"This is another dusty sanitary facility. Unlike the ones near the dorms, this one is smaller and has no bathing fixtures."
+	.GSTR STR?278,"You are at the center of a long east-west hallway. A doorway, labelled ""PrajKon Awfis"", opens to the south."
+	.GSTR STR?279,"The hallway ends here but continues back toward the west. Doorways lead north, south and east."
+	.GSTR STR?280,"This is the main computer room for the Project. The only sign of activity is a glowing red light. The exits are north, west, and northeast. To the south is a small booth."
+	.GSTR STR?281,"This is a small room barely large enough for one person. Mounted on the wall is a small slot, and next to it a keyboard with numeric keys. The exit is to the north."
+	.GSTR STR?282,"The card is embossed ""minitcurizaashun akses kard."""
+	.GSTR STR?283,"This is the heart of the Project's vast laboratory complex. There are exits to the west and southwest, and heavy metal doors to the northeast and southeast. A small doorway leads south."
+	.GSTR STR?284,"This is a tiny room for the storage of laboratory supplies. The sole exit is to the north."
+	.GSTR STR?285,"Hanging on a rack is a pale blue lab uniform. Sewn onto its pocket is a nondescript logo."
+	.GSTR STR?286,"The card is embossed ""teliportaashun akses kard."""
+	.GSTR STR?287,"This is the first half of a sterilization chamber to prevent contamination of the delicate biological experiments in the Bio Lab which lies beyond. The door to the west leads to the main lab, and the bio lock continues eastward."
+	.GSTR STR?288,"The is the second half of the sterilization chamber leading from the main lab to the Bio Lab. The door to the east, leading to the Bio Lab, has a window. The bio lock continues to the west."
+	.GSTR STR?289,"This is the western half of a decontamination chamber to prevent dangerous radioactive materials from leaving the Radiation Lab which lies to the east. The door leads west to the main lab."
+	.GSTR STR?290,"This is the eastern half of the decontamination chamber. The door to the east leads to the Radiation Lab, and the chamber continues westward. A sign on the wall reads ""WORNEENG! Raadeeaashun suuts must bee worn beeyond xis point."""
+	.GSTR STR?291,"Opening the door reveals a Bio-Lab full of horrible mutations. You stare at them, frozen with horror. Growling with hunger and delight, the mutations march into the bio-lock and devour you."
+	.GSTR STR?292,"A very bored-sounding recorded voice explains that, in order to prevent contamination, both lock doors cannot be open simultaneously."
+	.GSTR STR?293,"The door opens."
+	.GSTR STR?294,"The door closes."
+	.GSTR STR?295,"The biological nightmares reach you. Gripping coils wrap around your limbs as powerful teeth begin tearing at your flesh. Something bites your leg, and you feel a powerful poison begin to work its numbing effects..."
+	.GSTR STR?296," Unfortunately, you don't seem to be that hardy."
+	.GSTR STR?297,"The mutants attack you and rip you to shreds within seconds."
+	.GSTR STR?298,"
+Dozens of hungry eyes fix on you as the mutations surround you and begin feasting."
+	.GSTR STR?299,"
+You stupidly run right into the jaws of the pursuing mutants."
+	.GSTR STR?300,"The growling humanoid is charging straight at you, waving his axe-like implement!"
+	.GSTR STR?301,"A pair of slavering fangs removes part of your clothing!"
+	.GSTR STR?302,"Needle-sharp mandibles nip at your arms!"
+	.GSTR STR?303,"The mobile plant whips its poisonous tentacles against your ankles!"
+	.GSTR STR?304,"This room is filled with unfathomable equipment and large canisters bearing radioactive warnings. Many of the canisters are split open. You can see the Bio Lab through a large crack in the south wall. Sinister-looking forms move about within the Bio Lab. Although the lights here are off, the room is suffused with a pale blue glow."
+	.GSTR STR?305,"
+It seems you have picked up a bad case of radiation poisoning."
+	.GSTR STR?306,"Sitting on a long table is a small brown spool."
+	.GSTR STR?307,"The spool is labelled ""Instrukshunz foor Reepaareeng Reepaar Roobots."""
+	.GSTR STR?308,"There is a powerful portable lamp here, currently off."
+	.GSTR STR?309,"Mutated monsters from the Bio Lab pour into the office. You are devoured."
+	.GSTR STR?310,"""Memoo tuu awl lab pursunel: Duu tuu xe daanjuris naatshur uv xe biioo eksperiments, an eemurjensee sistum haz bin instawld. Xis sistum wud flud xe entiir Biioo Lab wic aa dedlee fungasiid. Propur preecawshunz shud bee taakin if xis sistum iz evur yuuzd."""
+	.GSTR STR?311,"You hear the faint sound of a relay clicking."
+	.GSTR STR?312,"This is another small booth. Unlike the Miniaturization Booth, this room has no slot or keyboard, so presumably it is intended only as a receiving station. The exit is on the northern side."
+	.GSTR STR?313,"You are standing on a square plate of heavy metal. Above your head, parallel to the plate beneath you, is an identical metal plate. To the east is a wide, metallic strip."
+	.GSTR STR?314,"You feel the familiar wrenching of your innards, and find yourself in a vast room whose distant walls are rushing straight toward you...
+"
+	.GSTR STR?315,"You are standing on a silicon filament, which looks to you like a wide metal highway. South of here, the filament makes a right angle and heads straight down, like a cliff overlooking a black void. The filament can be followed north, however. Station 384 lies westward."
+	.GSTR STR?316,"The plunge would probably be fatal."
+	.GSTR STR?317,"You are standing on a section of the strip with a bottomless void stretching out on both sides. The strip continues to the north and south."
+	.GSTR STR?318,"Not a chance -- unless, of course, you don't mind walking into the gullet of a hungry microbe."
+	.GSTR STR?319,"Do you have a penchant for bottomless voids?"
+	.GSTR STR?320,"There is a huge featureless wall there, remember?"
+	.GSTR STR?321,"A small device, labelled ""Akmee Portabul Laazur"", is resting on one of the lower shelves."
+	.GSTR STR?322,"There is a worn-out laser battery here."
+	.GSTR STR?323,"The odds and ends on the shelves include a small round object, which closer inspection reveals to be a fresh laser battery."
+	.GSTR STR?324,"slightly warm now"
+	.GSTR STR?325,"somewhat warm now"
+	.GSTR STR?326,"very warm now"
+	.GSTR STR?327,"quite hot"
+	.GSTR STR?328,"very warm"
+	.GSTR STR?329,"somewhat warm"
+	.GSTR STR?330,"slightly warm"
+	.GSTR STR?331,"The beam just misses the speck!"
+	.GSTR STR?332,"A near miss!"
+	.GSTR STR?333,"A good shot, but just a little wide of the target."
+	.GSTR STR?334,"
+With a furious storm of electrical mayhem, Sector 384 comes to life. A few microvolts course through the silicon strip on which you stand. Unfortunately, at your current size, this is enough to barbecue you."
+	.GSTR STR?335,"A hungry microbe blocks your way, its cilia waving and its pseudopods towering over you."
+	.GSTR STR?336," The microbe, whipped into a rabid frenzy by the waves of heat from the pulsing laser, literally lunges at it. You jump back and, losing your balance, fall over the edge of the strip. The microbe, writhing madly, hurls itself after its prey. You and the microbe both plunge into the void below."
+	.GSTR STR?337,"
+The microbe wraps several pseudopods around you and shoves you into its mucus-covered gullet. Digestive juices begin their work. The experience is not pleasant."
+	.GSTR STR?338,"A pseudopod extends toward you. You jump back just in time to avoid being engulfed."
+	.GSTR STR?339,"A slimy pseudopod brushes against your shoulder. You twist away in the nick of time."
+	.GSTR STR?340,"A pseudopod shoots out toward your head! Ducking quickly, you save your life."
+	.GSTR STR?341,"Two protoplasm-filled blobs sneak toward you from the left. You jump to the side and almost fall off the strip into the void below!"
+	.GSTR STR?342,"The microbe slithers closer. The cilia around its gullet glisten with mucus, giving the impression that the microbe is salivating."
+	.GSTR STR?343,"The microbe flows toward you. It towers above you, its cilia waving madly in your face."
+	.GSTR STR?344,"The monster wriggles nearer. It is now so close that you can make out details in the protoplasm beneath its translucent skin."
+	.GSTR STR?345,"The microbe's outer membrane sizzles a bit, and some protoplasm oozes out. The microbe recoils momentarily, but quickly recovers."
+	.GSTR STR?346,"The beam slices through the microbe's skin! A tremendous shudder passes through the microbe, but the wound quickly seals itself."
+	.GSTR STR?347,"The monster rears back for a moment, but almost as soon as the beam goes off, it advances again."
+	.GSTR STR?348,"A ferocious feral creature, with a hairy shelled body and a whip-like tail snaps its enormous mandibles at you."
+	.GSTR STR?349,"Rushing toward you is an ugly, deformed humanoid, bellowing in a guttural tongue. It brandishes a piece of lab equipment shaped somewhat like a battle axe."
+	.GSTR STR?350,"Lurking nearby is a vicious-looking creature with slavering fangs. Squinting in the light, it eyes you hungrily."
+	.GSTR STR?351,"A giant plant, teeming with poisonous tentacles, is shuffling toward you on three leg-like stalks."
+	.GSTR STR?352," RETURN = see hint"
+	.GSTR STR?353,"Q = main menu"
+	.GSTR STR?354,"INVISICLUES (tm)"
+	.GSTR STR?355,"Q = see hint menu"
+	.GSTR STR?356,"Q = Resume story"
+	.GSTR STR?357,"P = Previous"
+	.GSTR STR?358,"How do I get past Blather?"
+	.GSTR STR?359,"There's no way to get beyond Deck Eight or the Reactor Lobby."
+	.GSTR STR?360,"Really! There's no way!"
+	.GSTR STR?361,"How can I stop getting demerits?"
+	.GSTR STR?362,"Scrub harder?"
+	.GSTR STR?363,"I wouldn't worry too much; demerits aren't that important."
+	.GSTR STR?364,"What about Lieutenant Measle?"
+	.GSTR STR?365,"All he wants is some information for your records."
+	.GSTR STR?366,"Ahem. Lieutenant Measle???"
+	.GSTR STR?367,"What do I do with the Ambassador?"
+	.GSTR STR?368,"Enjoy his company. He's just there to liven up the game opening."
+	.GSTR STR?369,"How do I get the translator?"
+	.GSTR STR?370,"You can't."
+	.GSTR STR?371,"How do I get the celery?"
+	.GSTR STR?372,"How do I get the Ambassador's map?"
+	.GSTR STR?373,"The Ambassador doesn't have any map!"
+	.GSTR STR?374,"What should I do in the Galley?"
+	.GSTR STR?375,"Try eating the stew."
+	.GSTR STR?376,"Did you find the handbook for programming autopilots?"
+	.GSTR STR?377,"How did you get to a nonexistent place?"
+	.GSTR STR?378,"How do I get out of the Brig?"
+	.GSTR STR?379,"The best way to get out is to never get thrown in."
+	.GSTR STR?380,"If you don't upset Blather by leaving your post, you'll never get thrown in the Brig."
+	.GSTR STR?381,"Once you're in the Brig, there's no way out."
+	.GSTR STR?382,"How can I save the Feinstein?"
+	.GSTR STR?383,"It might be a malfunction in the Hyperspatial Jump Machinery Room."
+	.GSTR STR?384,"Of course, since you can't enter that room, you'll never know."
+	.GSTR STR?385,"There's no way to prevent it, and you won't find out until later what caused it. Best thing to do is try to survive the shipwreck."
+	.GSTR STR?386,"Can I open the escape pod bulkhead?"
+	.GSTR STR?387,"It opens automatically during any emergency."
+	.GSTR STR?388,"For example, when the Feinstein begins exploding."
+	.GSTR STR?389,"How do I control the pod?"
+	.GSTR STR?390,"The controls are entirely automated."
+	.GSTR STR?391,"Sit back and relax. Let the autopilot do the driving."
+	.GSTR STR?392,"I keep getting killed! Help!"
+	.GSTR STR?393,"Are you standing?"
+	.GSTR STR?394,"The adjective associated with the web is notable."
+	.GSTR STR?395,"Get in the safety web and don't stand until you've landed."
+	.GSTR STR?396,"Can I keep the pod from sinking?"
+	.GSTR STR?397,"Sorry, you can't."
+	.GSTR STR?398,"Will I use the emergency provisions?"
+	.GSTR STR?399,"It's always a good idea in adventure games to take anything that you can carry."
+	.GSTR STR?400,"Can I leave the pod after landing?"
+	.GSTR STR?401,"Sure. Have you tried opening the door?"
+	.GSTR STR?402,"You can't reach the door while you're still in the web."
+	.GSTR STR?403,"Once the door is open, either UP or OUT works."
+	.GSTR STR?404,"Needless to say, don't dally too long."
+	.GSTR STR?405,"I keep drowning underwater. Help!"
+	.GSTR STR?406,"The water is a dangerous place to be. Leave it immediately."
+	.GSTR STR?407,"There is light filtering down from above."
+	.GSTR STR?408,"Say UP."
+	.GSTR STR?409,"What can I do on the Balcony?"
+	.GSTR STR?410,"The plaque is the only thing of interest there."
+	.GSTR STR?411,"Of what use is the ruined castle?"
+	.GSTR STR?412,"Not much."
+	.GSTR STR?413,"What can I do in the Rec Area?"
+	.GSTR STR?414,"There are some interesting tapes and games there."
+	.GSTR STR?415,"Have you noticed the locked door leading north?"
+	.GSTR STR?416,"Can I unlock the door with the dial?"
+	.GSTR STR?417,"It's a combination lock."
+	.GSTR STR?418,"You could try setting it to every number from 1 to 1000."
+	.GSTR STR?419,"The combination can be found in the lab area."
+	.GSTR STR?420,"It is in the pocket of the lab uniform."
+	.GSTR STR?421,"What use are the four dorms?"
+	.GSTR STR?422,"They are all identical."
+	.GSTR STR?423,"They make good places to sleep."
+	.GSTR STR?424,"What about the sanitary facilities?"
+	.GSTR STR?425,"You won't need to use them. The game isn't THAT realistic."
+	.GSTR STR?426,"They are of no importance."
+	.GSTR STR?427,"How do I open the padlock?"
+	.GSTR STR?428,"You'll need a key."
+	.GSTR STR?429,"Have you seen a ""glint of light"" anywhere while exploring?"
+	.GSTR STR?430,"It's in the crevice in Admin Corridor South."
+	.GSTR STR?431,"You can't reach it with your hands. You'll need something else."
+	.GSTR STR?432,"The curved metal bar."
+	.GSTR STR?433,"It's a magnet. Try holding it over the key."
+	.GSTR STR?434,"How do I open the tin can?"
+	.GSTR STR?435,"Don't develop the next hint until you've found the can opener."
+	.GSTR STR?436,"There is no can opener. You must be cheating."
+	.GSTR STR?437,"There is no way to open the can."
+	.GSTR STR?438,"Does the door in the Mess Hall open?"
+	.GSTR STR?439,"If you mean the locked door in the southern end, yes."
+	.GSTR STR?440,"The slot next to the door is important."
+	.GSTR STR?441,"You'll need the kitchen access card."
+	.GSTR STR?442,"It's located beyond the rift."
+	.GSTR STR?443,"It's in the desk in the Small Office. Slide it through the slot."
+	.GSTR STR?444,"What is the ladder for?"
+	.GSTR STR?445,"It is needed to get past a major obstacle."
+	.GSTR STR?446,"You've probably seen the obstacle."
+	.GSTR STR?447,"The rift."
+	.GSTR STR?448,"What use is the kitchen dispenser?"
+	.GSTR STR?449,"Have you tried pushing the button?"
+	.GSTR STR?450,"That liquid is food."
+	.GSTR STR?451,"You'll need something to catch the liquid."
+	.GSTR STR?452,"The octagonal shape of the niche is important."
+	.GSTR STR?453,"Open the canteen and put it in the niche."
+	.GSTR STR?454,"What can I do in the Physical Plant?"
+	.GSTR STR?455,"Nothing."
+	.GSTR STR?456,"It's there just for show. Every large complex of buildings needs one."
+	.GSTR STR?457,"Is the crack in the floor important?"
+	.GSTR STR?458,"Yes."
+	.GSTR STR?459,"Is the deactivated robot important?"
+	.GSTR STR?460,"Yes, indeed!"
+	.GSTR STR?461,"Turn it on."
+	.GSTR STR?462,"How do I run the reactor elevator?"
+	.GSTR STR?463,"The slot in the elevator is important."
+	.GSTR STR?464,"You'll need the reactor elevator access pass."
+	.GSTR STR?465,"Don't develop further until you've been on the helicopter trip."
+	.GSTR STR?466,"Cheating again, eh?  There's no way to operate that elevator."
+	.GSTR STR?467,"How do I fix the reactors?"
+	.GSTR STR?468,"Have you opened the repair panel?"
+	.GSTR STR?469,"Some of the megafuses seem to be burned out."
+	.GSTR STR?470,"Try replacing the megafuses with the good ones from the box in Storage East."
+	.GSTR STR?471,"Oh, come now. You haven't been to the reactors, have you?"
+	.GSTR STR?472,"How do I cross the rift?"
+	.GSTR STR?473,"Jumping is a bad idea."
+	.GSTR STR?474,"You'll need an item which you may not have seen yet."
+	.GSTR STR?475,"It's behind the padlocked door."
+	.GSTR STR?476,"Extend the ladder and put it across the rift."
+	.GSTR STR?477,"How can I see in the darkened area?"
+	.GSTR STR?478,"You'll need a light source."
+	.GSTR STR?479,"What is the chemical dispenser for?"
+	.GSTR STR?480,"Have you tried pushing any of the buttons on it?"
+	.GSTR STR?481,"The flask can be used to hold the chemical fluid."
+	.GSTR STR?482,"The first seven buttons are obviously coolants and catalysts."
+	.GSTR STR?483,"The two white buttons produce an acid and a base."
+	.GSTR STR?484,"You'll need the coolants and catalysts for the Comm Room problem."
+	.GSTR STR?485,"What do I do with the acid and base?"
+	.GSTR STR?486,"Batteries are made out of acids and bases."
+	.GSTR STR?487,"Have you run into any dangerous creatures?  You might be able to use the acid or base as a weapon."
+	.GSTR STR?488,"Actually, these two chemicals are totally useless."
+	.GSTR STR?489,"Can I fix the disassembled robots?"
+	.GSTR STR?490,"A repair robot might be of help."
+	.GSTR STR?491,"Don't go on until you've repaired Achilles."
+	.GSTR STR?492,"There's no way to reassemble those robots."
+	.GSTR STR?493,"What about the Plan Room?"
+	.GSTR STR?494,"There's nothing for you to do in there, but you might pick up some useful information there."
+	.GSTR STR?495,"What about the Systems Monitors?"
+	.GSTR STR?496,"Is there any way to take the hose?"
+	.GSTR STR?497,"What hose?"
+	.GSTR STR?498,"Can I open the Elevator Lobby doors?"
+	.GSTR STR?499,"Try pushing the red and blue buttons."
+	.GSTR STR?500,"Then wait a little while."
+	.GSTR STR?501,"How do the elevators work?"
+	.GSTR STR?502,"The slot on the control panels is important."
+	.GSTR STR?503,"You'll need to find the respective access passes."
+	.GSTR STR?504,"When you find them, slide them through the slot, and then say PUSH UP BUTTON or PUSH DOWN BUTTON."
+	.GSTR STR?505,"The upper elevator access card is located beyond the rift."
+	.GSTR STR?506,"It's in the desk in the Small Office."
+	.GSTR STR?507,"Floyd has the lower elevator access card."
+	.GSTR STR?508,"He may give it to you when you use another access card in his presence. Alternately, you can turn him off and search him."
+	.GSTR STR?509,"What is the Helipad for?"
+	.GSTR STR?510,"The helicopters probably land and take off from there."
+	.GSTR STR?511,"How do I enter the Helicopter?"
+	.GSTR STR?512,"Try ENTER THE HELICOPTER."
+	.GSTR STR?513,"TELL ME ABOUT THE OBSERVATION DECK"
+	.GSTR STR?514,"Nice view of another complex of buildings on a nearby island."
+	.GSTR STR?515,"Should I do anything with the birds?"
+	.GSTR STR?516,"Try feeding them."
+	.GSTR STR?517,"Birds like insects."
+	.GSTR STR?518,"What birds?  What insects?"
+	.GSTR STR?519,"What is the comm. receive console?"
+	.GSTR STR?520,"Try pressing the button on it."
+	.GSTR STR?521,"Apparently, it received a transmission from the Feinstein just before the ship blew up."
+	.GSTR STR?522,"What is the comm. send console?"
+	.GSTR STR?523,"Read the screen. The message is very interesting."
+	.GSTR STR?524,"The message isn't being sent, however."
+	.GSTR STR?525,"You can repair the communication system using the chemical dispenser in the Machine Shop."
+	.GSTR STR?526,"The colored light on the enunciator panel refers to one of the colored buttons on the dispenser."
+	.GSTR STR?527,"Keep pouring the proper chemical fluid into the hole on the console until it is fixed. It will take anywhere from three to five trips."
+	.GSTR STR?528,"Where do I find the helicopter?"
+	.GSTR STR?529,"You need to use the upper elevator to get to it."
+	.GSTR STR?530,"How do I unlock the control panel?"
+	.GSTR STR?531,"Try reading the green spool using the microfilm reader."
+	.GSTR STR?532,"According to the spool, you'll find a key in Transportation Supply."
+	.GSTR STR?533,"Where is the helicopter access card?"
+	.GSTR STR?534,"According to the spool, the card would be in Transportation Supply."
+	.GSTR STR?535,"How do I use the helicopter?"
+	.GSTR STR?536,"Unless you have the helicopter control panel key and the helicopter access card, don't read any further."
+	.GSTR STR?537,"Use the key to open the control panel cover."
+	.GSTR STR?538,"Use the access card to activate the controls."
+	.GSTR STR?539,"Just tell your intended destination to the voice-controlled autopilot, then sit back and enjoy the trip."
+	.GSTR STR?540,"Amazing feat, your managing to get this far, considering the key and card don't exist."
+	.GSTR STR?541,"What destination should I select?"
+	.GSTR STR?542,"Where would you expect to find people?"
+	.GSTR STR?543,"A large city, perhaps?"
+	.GSTR STR?544,"Try the capital city of Resida, Pilandoor."
+	.GSTR STR?545,"Don't you feel pretty silly, considering there's no way to even get the helicopter off the ground?"
+	.GSTR STR?546,"Where do I find the shuttle?"
+	.GSTR STR?547,"You need to use the lower elevator to get to it."
+	.GSTR STR?548,"How do I operate the shuttle?"
+	.GSTR STR?549,"You'll need the shuttle access card. By now you should know how to use these cards."
+	.GSTR STR?550,"You can't operate the shuttle after 6000."
+	.GSTR STR?551,"Hopefully, you can figure out that you want to be in the control cabin facing the set of tracks, not the one facing the blank wall."
+	.GSTR STR?552,"How do I use the shuttle controls?"
+	.GSTR STR?553,"First, activate the controls (see previous question)."
+	.GSTR STR?554,"Pushing the lever up into the ""+"" position causes the shuttle to accelerate. Pulling the lever down into the ""-"" position causes the shuttle to decelerate."
+	.GSTR STR?555,"When the lever is in the central position, the shuttle will continue to move at its current velocity."
+	.GSTR STR?556,"The digital display tells the current velocity of the shuttle."
+	.GSTR STR?557,"I always crash at the other station!"
+	.GSTR STR?558,"You're going too fast. Decelerate sooner."
+	.GSTR STR?559,"If you're going faster than 20 when you get to the far station, you'll be killed."
+	.GSTR STR?560,"If you're going between 5 and 20 you will survive, but the shuttle will be damaged."
+	.GSTR STR?561,"What is the medicine for?"
+	.GSTR STR?562,"Read the label."
+	.GSTR STR?563,"The Repair Room door is too small!"
+	.GSTR STR?564,"It's too small for YOU to get through."
+	.GSTR STR?565,"It's ""robot-sized""."
+	.GSTR STR?566,"Ask Floyd to go through the doorway."
+	.GSTR STR?567,"Do the Repair Room cabinets open?"
+	.GSTR STR?568,"You'll have to repair Achilles first."
+	.GSTR STR?569,"How can I repair Achilles?"
+	.GSTR STR?570,"Waldo won't be of any help (unless you're playing SUSPENDED)."
+	.GSTR STR?571,"Try using the microfilm reader to read the brown spool."
+	.GSTR STR?572,"The brown spool is in the Radiation Lab."
+	.GSTR STR?573,"Unfortunately, there's no way to get the brown spool to the microfilm reader."
+	.GSTR STR?574,"There is also no way to repair Achilles."
+	.GSTR STR?575,"Is there a good fromitz board?"
+	.GSTR STR?576,"Have you been beyond the small door in the Repair Room?"
+	.GSTR STR?577,"You'll have to ask Floyd to get the good fromitz board."
+	.GSTR STR?578,"Is there a good bedistor anywhere?"
+	.GSTR STR?579,"It's in Storage East, just off Mech Corridor North. If you missed it, you'd better improve your exploring and mapping abilities."
+	.GSTR STR?580,"TELL ME ABOUT PLANETARY DEFENSE"
+	.GSTR STR?581,"The library might tell you something."
+	.GSTR STR?582,"Apparently, it is an automatic meteor defense. Perhaps this solar system has a high meteor density."
+	.GSTR STR?583,"The system's discrimination circuit seems to have failed."
+	.GSTR STR?584,"This is probably why the Feinstein was destroyed. You'd better repair it."
+	.GSTR STR?585,"Open the access panel."
+	.GSTR STR?586,"Figure out which board is malfunctioning and remove it."
+	.GSTR STR?587,"It's the second board. Take it and put the good fromitz board in the resulting empty socket."
+	.GSTR STR?588,"TELL ME ABOUT THE COURSE CONTROL"
+	.GSTR STR?589,"The library might tell you something about it."
+	.GSTR STR?590,"Apparently, the entire planet was moved into a more favorable but less stable orbit. This system ensures that the planet stays in the proper orbit."
+	.GSTR STR?591,"The course control system seems to be malfunctioning. If the planet was approaching its sun, it would explain the melting ice caps and water level rise."
+	.GSTR STR?592,"You'd better repair this system."
+	.GSTR STR?593,"Try opening the cube and removing the fused bedistor."
+	.GSTR STR?594,"You'll need a tool."
+	.GSTR STR?595,"Use the pliers from the Tool Room to remove the fused bedistor."
+	.GSTR STR?596,"Put the good bedistor into the cube."
+	.GSTR STR?597,"Why is this Physical Plant so big?"
+	.GSTR STR?598,"True, this plant is larger than its counterpart in the Kalamontee Complex, even though the Lawanda Complex is slightly smaller."
+	.GSTR STR?599,"Perhaps there is a large section of the Lawanda Compex that you haven't seen yet..."
+	.GSTR STR?600,"...such as the cryo-chambers, buried deep underground."
+	.GSTR STR?601,"How do I use the computer terminal?"
+	.GSTR STR?602,"Firstly, turn it on."
+	.GSTR STR?603,"To select an item in the menu, use the TYPE command. For example, to select item 2, type TYPE 2."
+	.GSTR STR?604,"Typing TYPE 0 returns you to the next highest menu level (except, of course, if you are at the Main Menu, which is the highest level)."
+	.GSTR STR?605,"How do I use the microfilm reader?"
+	.GSTR STR?606,"It must be turned on."
+	.GSTR STR?607,"The colored spools are spools of microfilm."
+	.GSTR STR?608,"Put one in the opening in the reader."
+	.GSTR STR?609,"How do I summon the librarian?"
+	.GSTR STR?610,"Really!"
+	.GSTR STR?611,"What is the signficance of SanFac F?"
+	.GSTR STR?612,"Haven't you realized by now that these SanFacs are of no interest?"
+	.GSTR STR?613,"What about the ProjCon Office?"
+	.GSTR STR?614,"The library might be of some help."
+	.GSTR STR?615,"It was the main office for the Project."
+	.GSTR STR?616,"Is the logo important?"
+	.GSTR STR?617,"It also appears on the lab uniform."
+	.GSTR STR?618,"It's yet another little hint about what's going on."
+	.GSTR STR?619,"Is the mural important?"
+	.GSTR STR?620,"Examination reveals that there might be an area behind it."
+	.GSTR STR?621,"But don't worry about it now."
+	.GSTR STR?622,"When the time comes, you'll know it."
+	.GSTR STR?623,"Who is Burstini Bonz?"
+	.GSTR STR?624,"Wasn't he the great Respectivist artist who became famous for painting awesomely phenomenal murals during the 89th century?"
+	.GSTR STR?625,"What is the laboratory area for?"
+	.GSTR STR?626,"The library might have some information on that."
+	.GSTR STR?627,"It is the laboratory built to find a cure for the Disease."
+	.GSTR STR?628,"Is the Bio-Lab safe to enter?"
+	.GSTR STR?629,"Try it."
+	.GSTR STR?630,"Nope, I guess it wasn't. Hope you did a SAVE first."
+	.GSTR STR?631,"Is the Radiation Lab safe to enter?"
+	.GSTR STR?632,"Nope, I guess you can't. Hope you did a SAVE first."
+	.GSTR STR?633,"Where is the radiation suit?"
+	.GSTR STR?634,"It might be down near the Reactors."
+	.GSTR STR?635,"Find a light source, then use the Reactor Access Stairs."
+	.GSTR STR?636,"There's a lamp in the Radiation Lab."
+	.GSTR STR?637,"Going in circles? There's no radiation suit anywhere."
+	.GSTR STR?638,"What is the card in the Bio-Lab?"
+	.GSTR STR?639,"Floyd will tell you when he sees it."
+	.GSTR STR?640,"It's for the Miniaturization Booth."
+	.GSTR STR?641,"Can I get the card from the Bio-Lab?"
+	.GSTR STR?642,"You'll die trying."
+	.GSTR STR?643,"Floyd's a robot. He might be tougher."
+	.GSTR STR?644,"He'll volunteer to get the card if he has a good enough reason."
+	.GSTR STR?645,"Do you know what the card is and what you would use it for?"
+	.GSTR STR?646,"The Miniaturization Booth is for repairing the Computer."
+	.GSTR STR?647,"Show Floyd the computer printout, or let him see the warning light in the Computer Room."
+	.GSTR STR?648,"Then take him into Bio-Lock East and do what he says."
+	.GSTR STR?649,"What does the computer do?"
+	.GSTR STR?650,"The library might have something on it."
+	.GSTR STR?651,"It runs the automated Project..."
+	.GSTR STR?652,"...which is trying to find a cure for the Disease."
+	.GSTR STR?653,"Is the printout important?"
+	.GSTR STR?654,"It appears that the Project was incredibly close to a successful conclusion."
+	.GSTR STR?655,"Then the computer broke down."
+	.GSTR STR?656,"If you've been in the Repair Room, you'll know that summoning the repair robot didn't help."
+	.GSTR STR?657,"You'll have to fix the computer yourself."
+	.GSTR STR?658,"Use the Miniaturization Booth."
+	.GSTR STR?659,"Does the Miniaturization Booth work?"
+	.GSTR STR?660,"You'll need the proper access card, of course."
+	.GSTR STR?661,"It's in the Bio-Lab."
+	.GSTR STR?662,"Once you've activated the booth, type the damaged sector number."
+	.GSTR STR?663,"Have you read the printout?"
+	.GSTR STR?664,"The damaged sector is 384. Type TYPE 384."
+	.GSTR STR?665,"You will then be miniaturized and teleported into the damaged sector, where you can attempt to effect repairs."
+	.GSTR STR?666,"I am at Station 384. What now?"
+	.GSTR STR?667,"Explore around."
+	.GSTR STR?668,"Have you seen and examined the relay?"
+	.GSTR STR?669,"You'll have to figure out a way to remove the speck."
+	.GSTR STR?670,"The laser."
+	.GSTR STR?671,"You must destroy the speck without harming the relay."
+	.GSTR STR?672,"The dial must be set to 1, so that the beam will pass harmlessly through the red translucent exterior of the relay."
+	.GSTR STR?673,"You'll have to shoot the speck a number of times to destroy it."
+	.GSTR STR?674,"Can I talk to the giant spider?"
+	.GSTR STR?675,"Play STARCROSS."
+	.GSTR STR?676,"How do I get past the giant microbe?"
+	.GSTR STR?677,"Try shooting it with the laser."
+	.GSTR STR?678,"That won't have any effect while the laser is set to 1, of course."
+	.GSTR STR?679,"If you don't keep shooting the microbe, it will get close enough to eat you."
+	.GSTR STR?680,"Repeated shootings of the microbe merely hold it at bay, and sooner or later you're killed when sector 384 comes to life."
+	.GSTR STR?681,"Has the microbe become interested in anything besides you?"
+	.GSTR STR?682,"The microbe is attracted to the warmth of the laser."
+	.GSTR STR?683,"When the laser gets warm enough, throw it over the edge of the strip, into the void below. The microbe will leap after it."
+	.GSTR STR?684,"How do I get back from the Strip?"
+	.GSTR STR?685,"Go to Station 384."
+	.GSTR STR?686,"How do I get out of the Lab Office?"
+	.GSTR STR?687,"Opening the door right off isn't a healthy idea."
+	.GSTR STR?688,"There are some buttons on the wall..."
+	.GSTR STR?689,"To get a clue, search the desk."
+	.GSTR STR?690,"Have you opened the desk?"
+	.GSTR STR?691,"Put on the gas mask, then press the red button."
+	.GSTR STR?692,"Then, move fast. You don't have a millichron to spare."
+	.GSTR STR?693,"How do I get rid of the mutants?"
+	.GSTR STR?694,"You can't kill them."
+	.GSTR STR?695,"There's only one way to lose them."
+	.GSTR STR?696,"You're very close to the end of the game."
+	.GSTR STR?697,"Did you hear an announcement?"
+	.GSTR STR?698,"Remember the mural?"
+	.GSTR STR?699,"Go to the ProjCon Office."
+	.GSTR STR?700,"Go south into the elevator and push the button."
+	.GSTR STR?701,"What do I do with my ID card?"
+	.GSTR STR?702,"It's useless."
+	.GSTR STR?703,"Why did my things go when I slept?"
+	.GSTR STR?704,"Do you normally go to sleep holding things? You dropped them while you were sleeping. Check the floor of the room where you slept."
+	.GSTR STR?705,"How do I read the native language?"
+	.GSTR STR?706,"It's actually a phonetic version of English."
+	.GSTR STR?707,"""X"" is used in place of ""TH"" and ""C"" is used in place of ""CH""."
+	.GSTR STR?708,"Double vowels signify the long vowel sound, and single vowels indicate the short vowel sound."
+	.GSTR STR?709,"I keep starving to death. Feed me!"
+	.GSTR STR?710,"Didn't you take the survival kit from the safety pod?"
+	.GSTR STR?711,"Of course, that doesn't last long."
+	.GSTR STR?712,"There's a can of spam and eggs in Storage West."
+	.GSTR STR?713,"Unfortunately, there's no way to open it."
+	.GSTR STR?714,"You'll have to get into the Kitchen."
+	.GSTR STR?715,"It's just south of the Mess Hall."
+	.GSTR STR?716,"Where can I sleep?"
+	.GSTR STR?717,"Civilized people usually sleep in beds."
+	.GSTR STR?718,"If you sleep elsewhere, you might be devoured (by grues?)."
+	.GSTR STR?719,"There are beds in the four dorms, and the Infirmary."
+	.GSTR STR?720,"Of course, the bed in the Infirmary is a bad idea for other reasons."
+	.GSTR STR?721,"Where can I find a light source?"
+	.GSTR STR?722,"Have you tried burning the towel?"
+	.GSTR STR?723,"Okay, that didn't work. There IS a lantern somewhere."
+	.GSTR STR?724,"It's in the Radiation Lab."
+	.GSTR STR?725,"You can't enter the Radiation Lab and survive without a radiation suit."
+	.GSTR STR?726,"There is no radiation suit."
+	.GSTR STR?727,"There is no way to get a light source into the dark rooms."
+	.GSTR STR?728,"What is a grue?"
+	.GSTR STR?729,"Ask the game."
+	.GSTR STR?730,"Do the teleportation booths work?"
+	.GSTR STR?731,"Of course! But you'll have to find the teleportation access card first."
+	.GSTR STR?732,"It's in the lab area, which you may not have been to yet."
+	.GSTR STR?733,"It's in the pocket of the lab uniform."
+	.GSTR STR?734,"Slide the card thru the slot, then press the button corresponding to the booth you want to teleport to."
+	.GSTR STR?735,"How does the laser work?"
+	.GSTR STR?736,"You must be holding it to fire it."
+	.GSTR STR?737,"It has six settings. Each setting produces a different colored beam."
+	.GSTR STR?738,"The battery in it when you find it won't last very long."
+	.GSTR STR?739,"You'll need a fresh battery."
+	.GSTR STR?740,"Open the laser, remove the old battery, and put the new battery in."
+	.GSTR STR?741,"Where do I find a new laser battery?"
+	.GSTR STR?742,"Have you tried making one?"
+	.GSTR STR?743,"Some batteries are made by mixing acids and bases."
+	.GSTR STR?744,"However, there's no way to make your own battery. There is a fresh battery lying around somewhere."
+	.GSTR STR?745,"It's in Lab Storage."
+	.GSTR STR?746,"What are megafuses for?"
+	.GSTR STR?747,"They're electrical components."
+	.GSTR STR?748,"They're usually used for repairing Reactor systems."
+	.GSTR STR?749,"What are fromitz boards for?"
+	.GSTR STR?750,"They're usually used for repairing Planetary Defense systems."
+	.GSTR STR?751,"What are bedistors for?"
+	.GSTR STR?752,"They're usually used for repairing Course Control systems."
+	.GSTR STR?753,"Doctor, doctor! Why am I so sick?"
+	.GSTR STR?754,"You'll find out when you get to the Library."
+	.GSTR STR?755,"You have contracted the Disease. It is fatal."
+	.GSTR STR?756,"The medicine in the Infirmary might help a bit."
+	.GSTR STR?757,"But your only long-term hope is to help bring the Project to its ultimate goal."
+	.GSTR STR?758,"I finished, but without 80 points!"
+	.GSTR STR?759,"You didn't repair all the broken systems."
+	.GSTR STR?760,"Consult the Systems Monitors."
+	.GSTR STR?761,"You must repair the Communication System, the Planetary Defense System, and the Course Control System in order to get the optimum ending."
+	.GSTR STR?762,"How can I talk to Floyd?"
+	.GSTR STR?763,"He has to be on, of course."
+	.GSTR STR?764,"Talk to him the same way you would talk to any other character in the game: FLOYD, EAT THE CAKE (for example)."
+	.GSTR STR?765,"How to get all 80 points"
+	.GSTR STR?766,"This section should only be used as a last resort, or for your own interest after you've completed PLANETFALL."
+	.GSTR STR?767,"3 points for entering the Escape Pod."
+	.GSTR STR?768,"3 points for entering the Crag."
+	.GSTR STR?769,"2 points for turning Floyd on for the first time."
+	.GSTR STR?770,"2 points for firing the laser for the first time."
+	.GSTR STR?771,"4 points for entering Storage West."
+	.GSTR STR?772,"4 points for entering Admin Corridor North."
+	.GSTR STR?773,"4 points for entering the Kitchen."
+	.GSTR STR?774,"4 points for entering the Tower Core."
+	.GSTR STR?775,"4 points for entering the Kalamontee Platform."
+	.GSTR STR?776,"4 points for entering the Lawanda Platform."
+	.GSTR STR?777,"1 point for taking the kitchen access card."
+	.GSTR STR?778,"1 point for taking the shuttle access card."
+	.GSTR STR?779,"1 point for taking the upper elevator access card."
+	.GSTR STR?780,"1 point for taking the lower elevator access card."
+	.GSTR STR?781,"1 point for taking the miniaturization access card."
+	.GSTR STR?782,"2 points for Floyd's death."
+	.GSTR STR?783,"6 points for fixing the communications system."
+	.GSTR STR?784,"6 points for fixing the planetary defense system."
+	.GSTR STR?785,"6 points for fixing the course control system."
+	.GSTR STR?786,"4 points for entering the Strip Near Station."
+	.GSTR STR?787,"4 points for entering the Auxiliary Booth."
+	.GSTR STR?788,"8 points for fixing the computer."
+	.GSTR STR?789,"5 points for entering the Cryo-Elevator."
+	.GSTR STR?790,"Have you tried...?"
+	.GSTR STR?791,"Don't expose these amusing suggestions until you've finished Planetfall. They may give away the answers to puzzles in the game."
+	.GSTR STR?792,"Reading the graffiti in the Brig?"
+	.GSTR STR?793,"Attacking, talking to, or throwing something at Blather?"
+	.GSTR STR?794,"Attacking or talking to the ambassador?"
+	.GSTR STR?795,"Touching, eating, smelling, or looking at the slime?"
+	.GSTR STR?796,"Scrubbing the slime?"
+	.GSTR STR?797,"Eating the celery?"
+	.GSTR STR?798,"Examining the games and tapes in the Rec Area?"
+	.GSTR STR?799,"Looking under the table in the Mess Hall?"
+	.GSTR STR?800,"Kicking, attacking, rubbing, or kissing Floyd?"
+	.GSTR STR?801,"Throwing acid at the mutants?"
+	.GSTR STR?802,"Reading your chronometer?"
+	.GSTR STR?803,"Taking off your chronometer or pouring acid on it?"
+	.GSTR STR?804,"Getting into bed in the Infirmary?"
+	.GSTR STR?805,"Scrubbing yourself?"
+	.GSTR STR?806,"Reading the towel?"
+	.GSTR STR?807,"Removing your uniform while Blather or Floyd are present?"
+	.GSTR STR?808,"Destroying the mural?"
+	.GSTR STR?809,"""Stealing"" the lower elevator card from Floyd and then showing it to him?"
+	.GSTR STR?810,"Giving Floyd the Lazarus breast plate?"
+	.GSTR STR?811,"Typing ZORK?"
+	.GSTR STR?812,"THE FEINSTEIN"
+	.GSTR STR?813,"THE POD TRIP"
+	.GSTR STR?814,"THE DORMITORY"
+	.GSTR STR?815,"ADMIN/MECH AREA"
+	.GSTR STR?816,"ELEVATORS/TOWER"
+	.GSTR STR?817,"HELICOPTER TRIP"
+	.GSTR STR?818,"SHUTTLE TRIP"
+	.GSTR STR?819,"SYSTEMS/LIBRARY"
+	.GSTR STR?820,"PROJCON AND LAB"
+	.GSTR STR?821,"COMPUTER/ENDGAME"
+	.GSTR STR?822,"GENERAL QUESTIONS"
+	.GSTR STR?823,"MISCELLANEOUS"
+	.GSTR STR?824,"RETURN = see new hint"
+	.GSTR STR?825," N = Next"
+	.GSTR STR?826," RETURN = See hint"
+
+	.ENDI
diff --git a/script.joe b/script.joe
new file mode 100644
index 0000000..2e67c93
--- /dev/null
+++ b/script.joe
@@ -0,0 +1,22 @@
+[Automatic transcript: User is JOE]
+
+PLANETFALL
+Infocom interactive fiction - a science fiction story
+Copyright (c) 1983, 1988 by Infocom, Inc. All rights reserved.
+PLANETFALL is a registered trademark of Infocom, Inc.
+Release 10 / Serial number 880531 / Interpreter 1 Version 
+
+
+Another routine day of drudgery aboard the Stellar Patrol Ship Feinstein. This
+morning's assignment for a certain lowly Ensign Seventh Class: scrubbing the
+filthy metal deck at the port end of Level Nine. With your Patrol-issue
+self-contained multi-purpose all-weather scrub brush you shine the floor with
+a diligence born of the knowledge that at any moment dreaded Ensign First
+Class Blather, the bane of your shipboard existence, could appear.
+
+Deck Nine
+This is a featureless corridor similar to every other corridor on the ship. It
+curves away to starboard, and a gangway leads up. To port is the entrance to
+one of the ship's primary escape pods. The pod bulkhead is closed.
+
+>
\ No newline at end of file
diff --git a/script.liz b/script.liz
new file mode 100644
index 0000000..83e0fcc
--- /dev/null
+++ b/script.liz
@@ -0,0 +1,4203 @@
+[Automatic transcript: User is LIZ]
+
+PLANETFALL
+Infocom interactive fiction - a science fiction story
+Copyright (c) 1983, 1988 by Infocom, Inc. All rights reserved.
+PLANETFALL is a registered trademark of Infocom, Inc.
+Release 10 / Serial number 880531 / Interpreter 1 Version C
+
+
+Another routine day of drudgery aboard the Stellar Patrol Ship Feinstein. This
+morning's assignment for a certain lowly Ensign Seventh Class: scrubbing the
+filthy metal deck at the port end of Level Nine. With your Patrol-issue
+self-contained multi-purpose all-weather scrub brush you shine the floor with
+a diligence born of the knowledge that at any moment dreaded Ensign First
+Class Blather, the bane of your shipboard existence, could appear.
+
+Deck Nine
+This is a featureless corridor similar to every other corridor on the ship. It
+curves away to starboard, and a gangway leads up. To port is the entrance to
+one of the ship's primary escape pods. The pod bulkhead is closed.
+
+>SAVE
+To file (SAVE): START.P.1Ok.
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+Ensign First Class Blather swaggers in. He studies your work with half-closed
+eyes. "You call this polishing, Ensign Seventh Class?" he sneers. "We have a
+position for an Ensign Ninth Class in the toilet-scrubbing division, you know.
+Thirty demerits." He glares at you, his arms crossed.
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+A massive explosion rocks the ship. Echoes from the explosion resound
+deafeningly down the halls. The door to port slides open. Blather, confused by
+this nonroutine occurrence, orders you to continue scrubbing the floor, and
+then dashes off.
+
+>W.SAVE
+Escape Pod
+
+The ship shakes again. You hear, from close by, the sounds of emergency
+bulkheads closing.
+
+To file (PS:<LIZ>START.P): POD.P.1Ok.
+
+>Z.Z
+Time passes...
+
+The pod door clangs shut as heavy explosions continue to buffet the Feinstein.
+
+Time passes...
+
+You feel the pod begin to slide down its ejection tube as explosions shake the
+mother ship.
+
+>GET IN WEBBING
+Escape Pod, in the safety web
+You are now safely cushioned within the web.
+
+Through the viewport of the pod you see the Feinstein dwindle as you head
+away. Bursts of light dot its hull. Suddenly, a huge explosion blows the
+Feinstein into tiny pieces, sending the escape pod tumbling away! 
+
+As the escape pod tumbles away from the former location of the Feinstein, its
+gyroscopes whine. The pod slowly stops tumbling. Lights on the control panel
+blink furiously as the autopilot searches for a reasonable destination.
+
+>Z.Z
+Time passes...
+
+The auxiliary rockets fire briefly, and a nearby planet swings into view
+through the port. It appears to be almost entirely ocean, with just a few
+visible islands and an unusually small polar ice cap. A moment later, the
+system's sun swings into view, and the viewport polarizes into a featureless
+black rectangle.
+
+Time passes...
+
+The main thrusters fire a long, gentle burst. A monotonic voice issues from
+the control panel. "Approaching planet...human-habitable."
+
+>Z.Z
+Time passes...
+
+Time passes...
+
+>Z.Z
+Time passes...
+
+Time passes...
+
+The pod is buffeted as it enters the planet's atmosphere.
+
+>Z.Z
+Time passes...
+
+You feel the temperature begin to rise, and the pod's climate control system
+roars as it labors to compensate.
+
+Time passes...
+
+The viewport suddenly becomes transparent again, giving you a view of endless
+ocean below. The lights on the control panel flash madly as the pod's computer
+searches for a suitable landing site. The thrusters fire long and hard,
+slowing the pod's descent.
+
+>Z.
+Time passes...
+
+The pod is now approaching the closer of a pair of islands. It appears to be
+surrounded by sheer cliffs rising from the water, and is topped by a wide
+plateau. The plateau seems to be covered by a sprawling complex of buildings.
+
+>Z
+Time passes...
+
+The pod lands with a thud. Through the viewport you can see a rocky cleft and
+some water below. The pod rocks gently back and forth as if it was
+precariously balanced. A previously unseen panel slides open, revealing some
+emergency provisions, including a survival kit and a towel.
+
+>GET OUT OF WEBBING
+Escape Pod
+There is a towel here.
+There is a survival kit here.
+As you stand, the pod shifts slightly and you feel it falling. A moment later,
+the fall stops with a shock, and you see water rising past the viewport.
+
+>GET ALL
+towel: Taken.
+survival kit: Taken.
+
+>OPEN DOOR
+The bulkhead opens and cold ocean water rushes in!
+
+The pod is now completely submerged, and you feel it smash against underwater
+rocks. Bubbles streaming upward past the window indicate that the pod is
+continuing to sink.
+
+>U
+Underwater
+You are momentarily disoriented as you enter the turbulent waters. Currents
+buffet you against the sharp rocks of an underwater cliff. A dim light filters
+down from above.
+
+>SAVE
+To file (PS:<LIZ>POD.P): UP.P.1Ok.
+
+>U
+Crag
+
+>U
+Balcony
+This is an octagonal room, half carved into and half built out from the cliff
+wall. Through the shattered windows which ring the outer wall you can see
+ocean to the horizon. A weathered metal plaque with barely readable lettering
+rests below the windows. The language seems to be a corrupt form of
+Galalingua. A steep stairway, roughly cut into the face of the cliff, leads
+upward. A rocky crag can be seen about eight meters below.
+
+>U
+Winding Stair
+The middle of a long, steep stairway carved into the face of a cliff.
+
+>U
+Courtyard
+You are in the courtyard of an ancient stone edifice, vaguely reminiscent of
+the castles you saw during your leave on Ramos Two. It has decayed to the
+point where it can probably be termed a ruin. Openings lead north and west,
+and a stairway downward is visible to the south. 
+
+>N
+Plain Hall
+This is a featureless hall leading north and south. Although the hallway is
+old and dusty, the construction is of a much more modern style than the castle
+to the south. A similar hall branches off to the northeast.
+
+>NE
+Rec Corridor
+This is a wide, east-west hallway. Portals lead north and south, and another
+corridor branches southwest.
+
+>E
+Mess Corridor
+This is a wide, east-west hallway with a large portal to the south. A small
+door to the north is closed and hooked with a simple steel padlock which is
+also closed.
+
+>E
+Dorm Corridor
+This is a wide, east-west hallway with openings to the north and south. To the
+east, the corridor stretches off into the distance. That section of the
+hallway is lined with a motorized walkway (no longer running) that was
+probably intended to transport people or cargo down that tremendously long
+hall.
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+A north-south corridor intersects the main corridor here. To the west, the
+main corridor extends as far as you can see; a nonworking walkway from that
+direction ends here. To the east, the corridor widens into a well-lit area.
+
+>I
+You are carrying:
+  A survival kit
+  A towel
+  A diary
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+  A Patrol-issue self-contained multi-purpose scrub brush
+
+>DROP TOWEL,DIARY,BRUSH.OPEN KIT.S.S.
+towel: Dropped.
+diary: Dropped.
+Patrol-issue self-contained multi-purpose scrub brush: Dropped.
+
+Opening the survival kit reveals a blob of green goo, a blob of brown goo, and
+a blob of red goo.
+
+Mech Corridor North
+Entrances to rooms lie to the east and west from this north-south hall.
+
+Mech Corridor
+Entrances to rooms lie to the east and west from this north-south hall.
+
+>S.SE.SEARCH ROBOT.TURN IT ON
+Mech Corridor South
+The corridor ends here with doorways to the southwest, south, and southeast.
+
+Robot Shop
+This room, with exits west and northwest, is filled with robot-like devices of
+every conceivable description, all in various states of disassembly.
+Only one robot, about four feet high, looks even remotely close to being in
+working order.
+
+In one of the robot's compartments you find and take a magnetic-striped card
+embossed "Loowur Elavaatur Akses Kard."
+
+Nothing happens.
+
+>W.W
+Machine Shop
+This room is probably some sort of machine shop filled with a variety of
+unusual machines. Doorways lead north, east, and west.
+
+Standing against the rear wall is a large dispensing machine with a spout. The
+dispenser is lined with brightly colored buttons. The first four buttons,
+labelled "KUULINTS 1 - 4", are colored red, blue, green, and yellow. The next
+three buttons, labelled "KATALISTS 1 - 3", are colored gray, brown, and black.
+The last two buttons are both white. One of these is square and says "BAAS."
+The other white button is round and says "ASID."
+
+Tool Room
+This is apparently a storage room for tools. Exits lead northeast and east.
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+On an upper shelf is a metal bar, curved into a U-shape.
+Sitting on the floor below the lowest shelf is a large glass flask.
+There is a pair of wide-nosed pliers here.
+
+>GET MAGNET,FLASK
+curved metal bar: Taken.
+glass flask: Taken.
+
+>NE
+Mech Corridor South
+
+>N.N.
+Mech Corridor
+
+The robot you were fiddling with in the Robot Shop bounds into the room. "Hi!"
+he says, with a wide and friendly smile. "You turn Floyd on? Be Floyd's
+friend, yes?"
+
+Mech Corridor North
+
+>N
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+>N
+Admin Corridor South
+This section of hallway seems to have suffered some minor structural damage.
+The walls are cracked, and a jagged crevice crosses the floor. An opening
+leads east and the corridor heads north and south.
+
+>SAVE
+To file (PS:<LIZ>UP.P): KEY.P.1Ok.
+
+>PUT KEY NEAR CRACK
+You can't see any key here!
+
+>PUT MAGNET NEAR CRACK
+With a spray of dust and a loud clank, a piece of metal leaps from the crevice
+and affixes itself to the magnet. It is a steel key! With a tug, you remove
+the key from the magnet.
+
+>DROP MAGNET.S.W
+Dropped.
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>W
+Mess Corridor
+
+>SAVE
+To file (PS:<LIZ>KEY.P): LOCK.P.1Ok.
+
+>UNLOCK LOCK WITH KEY
+The padlock springs open.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>GET LOCK
+Taken.
+
+>I
+You are carrying:
+  A padlock
+  A key
+  A glass flask
+  A lower elevator access card
+  A survival kit
+  The survival kit contains:
+    A blob of green goo
+    A blob of brown goo
+    A blob of red goo
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+Floyd yawns and looks bored.
+
+>DROP LOCK,KEY
+padlock: Dropped.
+key: Dropped.
+
+>L
+Mess Corridor
+This is a wide, east-west hallway with a large portal to the south. A small
+door to the north is closed.
+There is a key here.
+There is a padlock here.
+There is a multiple purpose robot here.
+Floyd tells you about the time he helped someone sharpen a pencil.
+
+>N
+The door is closed.
+
+>OPEN DOR
+[I don't know the word "dor."]
+
+>OOPS DOOR
+Opened.
+
+>N
+Storage West
+A heavy-duty extendable ladder is leaning against the rear wall.
+On a small shelf is a large, unopened tin can. It has a plain white label
+which reads "Spam and Egz."
+Floyd follows you.
+
+>I
+You are carrying:
+  A glass flask
+  A lower elevator access card
+  A survival kit
+  The survival kit contains:
+    A blob of green goo
+    A blob of brown goo
+    A blob of red goo
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+>EAT RED GOO
+Mmmm...that tasted just like scrumptious cherry pie.
+
+>DROP ALL
+glass flask: Dropped.
+lower elevator access card: Dropped.
+survival kit: Dropped.
+Patrol uniform: You'll have to take it off, first.
+chronometer: You'll have to take it off, first.
+
+>GET LADDER
+Taken.
+
+>S.E.E
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+Dorm Corridor
+
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+>N
+Admin Corridor South
+There is a curved metal bar here.
+
+>N
+Admin Corridor
+The hallway, in fact the entire building, has been rent apart here, presumably
+by seismic upheaval. You can see the sky through the severed roof above, and
+the ground is thick with rubble. To the north is a gaping rift, at least eight
+meters across and thirty meters deep. A wide doorway, labelled "Sistumz
+Moniturz," leads west.
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+>SAVE
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>LOCK.P): LADDER.P.1Ok.
+
+>DROP LADDER
+Dropped.
+
+>EXTEND LADDER.PUT IT ACROSS RIFT.N
+The ladder extends to a length of around eight meters.
+
+The ladder swings out across the rift and comes to rest on the far edge,
+spanning the precipice.
+
+You slowly make your way across the swaying ladder. You can see sharp, pointy
+rocks at the bottom of the rift, far below...
+
+Admin Corridor North
+
+>W.OPEN DESK THEN GET ALL FROM DRAWER.W.OPEN DRAWER
+Small Office
+You have entered a small office of some sort. A small desk faces the main
+doorway which lies to the east. Another exit leads west.
+
+Opening the small desk reveals a upper elevator access card, and a kitchen
+access card.
+
+upper elevator access card: Taken.
+kitchen access card: Taken.
+
+Large Office
+This is a large, plush office. The far wall is one large picture window,
+scratched but unbroken, offering a view of this installation and the ocean
+beyond. In front of the window is a wide wooden desk. The only exit is east.
+
+Opening the large desk reveals a shuttle access card.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>GET ALL FROM DRAWER
+shuttle access card: Taken.
+
+>E.E
+Small Office
+Floyd follows you.
+
+Admin Corridor North
+Floyd follows you.
+
+>S
+You slowly make your way across the swaying ladder. You can see sharp, pointy
+rocks at the bottom of the rift, far below...
+
+Admin Corridor
+Floyd follows you.
+
+>S
+Admin Corridor South
+There is a curved metal bar here.
+Floyd follows you.
+
+>S
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+>W
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+Floyd follows you.
+
+>W
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+>S.GET CANTEEN.SLIDE KITCHEN CARD THROUGH SLOT.S.OPEN CANTEEN.
+Mess Hall
+This is a large hall lined with tables and benches. An opening to the north
+leads back to the corridor. A door to the south is closed. Next to the door is
+a small slot.
+Although the room is quite barren, an octagonally shaped canteen is sitting on
+one of the benches.
+Floyd follows you.
+
+Taken.
+Floyd sings an ancient ballad, totally out of key.
+
+The kitchen door quietly slides open.
+Floyd produces a crayon from one of his compartments and scrawls his name on
+the wall.
+
+Kitchen
+
+Opened.
+
+>PUT CANTEEN UNDER SPOUT.PUSH BUTTON.GET CANTEEN.N.DROP KITCHEN CARD.N.
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+The canteen fills almost to the brim with a brown liquid.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Taken.
+
+Mess Hall
+
+The kitchen door slides quietly closed.
+Floyd follows you.
+
+Dropped.
+
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+>E
+Dorm Corridor
+
+>Z
+Time passes...
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+>E
+Elevator Lobby
+This is a wide, brightly lit lobby. A blue metal door to the north is closed
+and a larger red metal door to the south is also closed. Beside the blue door
+is a blue button, and beside the red door is a red button. A corridor leads
+west. To the east is a small room about the size of a telephone booth.
+Floyd follows you.
+
+>PUSH RED BUTTON
+The red door begins vibrating a bit.
+
+>Z
+Time passes...
+Floyd whistles tunelessly.
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+The door at the south end of the room slides open.
+
+>S
+Lower Elevator
+This is a medium-sized room with a door to the north which is open. A control
+panel contains an Up button, a Down button, and a narrow slot.
+Floyd follows you.
+
+>N
+Elevator Lobby
+Floyd follows you.
+
+>PUSH BLUE BUTTON
+You hear a faint whirring noise from behind the blue door.
+Floyd cranes his neck to see what you are doing.
+
+>Z
+Time passes...
+
+The door at the north end of the room slides open.
+
+>N
+Upper Elevator
+You have entered a tiny room with a sliding door to the south which is open. A
+control panel contains an Up button, a Down button, and a narrow slot.
+Floyd follows you.
+
+>SLIDE UPPER CARD THROUGH SLOT.PUSH UP BUTTON
+A recorded voice chimes "Elevator enabled."
+Floyd chants the death scene from "Carmen".
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+>Z.Z
+Time passes...
+Floyd examines himself for signs of rust.
+
+Time passes...
+
+The elevator door slides open.
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+>DRINK LIQUID
+Mmmm....that was good. It certainly quenched your thirst and satisfied your
+hunger.
+Floyd lowers his voice and tells you the latest rumors about Dr. Fizpick.
+
+>Z.
+Time passes...
+
+>Z
+Time passes...
+
+A recording says "Elevator no longer enabled."
+Floyd reminisces about his friend Lazarus, a medical robot.
+
+>S
+Tower Core
+Floyd follows you.
+
+>NE
+Comm Room
+This is a small room with no windows. The sole exit is southwest. Two wide
+consoles fill either end of the room; thick cables lead up into the ceiling.
+
+The console on the left side of the room is labelled "Reeseev Staashun." A
+bright red light, labelled "Tranzmishun Reeseevd", is blinking rapidly. Next
+to the light is a glowing button marked "Mesij Plaabak."
+
+The console on the right side of the room is labelled "Send Staashun." A
+screen on the console displays a message. Next to the screen is a flashing
+sign which says "Malfunkshun in Sendeeng Kuulint Sistum." Next to this console
+is an enunciator. On the console next to the enunciator panel is a
+funnel-shaped hole labelled "Kuulint Sistum Manyuuwul Oovuriid."
+A yellow colored light is flashing on the enunciator panel.
+Floyd follows you.
+
+You begin to feel weary. It might be time to think about finding a nice safe
+place to sleep.
+
+>SW
+Tower Core
+Floyd follows you.
+
+>N
+Upper Elevator
+Floyd follows you.
+
+>SLIDE UPPER CARD THROUGH SLOT.PUSH DOWN BUTTON.Z.Z.S.W.W
+A recorded voice chimes "Elevator enabled."
+Floyd lowers his voice and tells you the latest rumors about Dr. Fizpick.
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+Floyd asks if you want to play Hucka-Bucka-Beanstalk.
+
+Time passes...
+
+The elevator door slides open.
+
+Elevator Lobby
+Floyd follows you.
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+Floyd follows you.
+
+>S.GET ON BED.SLEEP
+Dorm C
+This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan living
+quarters could have once housed many hundreds, but it seems quite deserted
+now. There are openings at the north and south ends of the room.
+Floyd follows you.
+
+Dorm C, in the bed
+There is a multiple purpose robot here. (outside the bed)
+Ahhh...the bed is soft and comfortable. You should be asleep in short order.
+
+You'll probably be asleep before you know it.
+Floyd recalls the time he bruised his knee.
+
+>STAND.GET ALL.N.W.S
+How could you suggest such a thing when you're so tired and this bed is so
+comfy?
+
+You slowly sink into a deep and restful sleep.
+
+***** SEPTEM 7, 11344 *****
+
+You wake up feeling refreshed and ready to face the challenges of this
+mysterious world.
+Floyd bounces impatiently at the foot of the bed. "About time you woke up, you
+lazy bones! Let's explore around some more!"
+
+shuttle access card: Taken.
+canteen: Taken.
+upper elevator access card: Taken.
+
+Dorm Corridor
+Floyd follows you.
+
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+Mess Hall
+There is a kitchen access card here.
+Floyd follows you.
+
+>GET KITCHEN CARD
+Taken.
+Floyd chants the death scene from "Carmen".
+
+>SAVE
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>LADDER.P): KITCH.P.1Ok.
+
+>SLIDE KITCHEN CARD THROUGH SLOT
+The kitchen door quietly slides open.
+
+>S.PUT CANTEEN UNDER SPOUT.PUSH BUTTON.GET CANTEEN.N.DROP KITCHEN CARD
+Kitchen
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+The canteen fills almost to the brim with a brown liquid.
+Floyd absentmindedly recites the first six hundred digits of pi.
+
+Taken.
+
+Mess Hall
+
+The kitchen door slides quietly closed.
+
+Floyd bounces into the room. "Hey, wait for Floyd!" he yells, smiling broadly.
+
+Dropped.
+
+>N.E
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+Dorm Corridor
+Floyd follows you.
+
+>I
+You are carrying:
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  An upper elevator access card
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+Floyd recalls the time he bruised his knee.
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+>S.S.S.
+Mech Corridor North
+Floyd follows you.
+
+Mech Corridor
+Floyd follows you.
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+Mech Corridor South
+
+>DRINK LIQUID
+Mmmm....that was good. It certainly quenched your thirst and satisfied your
+hunger.
+
+>SW
+Tool Room
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+There is a pair of wide-nosed pliers here.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>E
+Machine Shop
+
+>PUT FLASK UNDER SPOUT.PUSH YELLOW BUTTON.GET FLASK.N.N.N.
+You don't have that!
+
+>I
+You are carrying:
+  A canteen
+  An upper elevator access card
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>W
+Tool Room
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+There is a multiple purpose robot here.
+There is a pair of wide-nosed pliers here.
+
+>NE
+Mech Corridor South
+Floyd follows you.
+
+>N
+Mech Corridor
+
+>N
+Mech Corridor North
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>N
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+>W
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+You notice that you feel a bit weak and slightly flushed, but you're not sure
+why.
+
+>W
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>RESTOSRE
+[I don't know the word "restosre."]
+
+>RESTORE
+From file (PS:<LIZ>KITCH.P): KITCH.P.1Ok.
+Mess Hall
+This is a large hall lined with tables and benches. An opening to the north
+leads back to the corridor. A door to the south is closed. Next to the door is
+a small slot.
+There is a multiple purpose robot here.
+
+>I
+You are carrying:
+  A kitchen access card
+  An upper elevator access card
+  A canteen
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>SLIDE KITCHEN CARD THROUGH SLOT.S.PUT CANTEEN UNDER SPOUT.PUSH BUTTON.
+The kitchen door quietly slides open.
+
+Kitchen
+
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+The canteen fills almost to the brim with a brown liquid.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>GET CANTEEN.N.DROP KITCHEN CARD.N.N
+Taken.
+
+Mess Hall
+
+The kitchen door slides quietly closed.
+Floyd follows you.
+
+Dropped.
+
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+Storage West
+On a small shelf is a large, unopened tin can. It has a plain white label
+which reads "Spam and Egz."
+There is a survival kit here.
+The survival kit contains:
+  A blob of green goo
+  A blob of brown goo
+There is a lower elevator access card here.
+There is a glass flask here.
+Floyd follows you.
+
+>GET FLASK,LOWER ELEVATOR CARD
+glass flask: Taken.
+lower elevator access card: Taken.
+Floyd absentmindedly recites the first six hundred digits of pi.
+
+>S.E
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+Dorm Corridor
+Floyd follows you.
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+>DRINK LIQUID
+Mmmm....that was good. It certainly quenched your thirst and satisfied your
+hunger.
+
+>E
+Elevator Lobby
+Floyd follows you.
+
+>W
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+>S.
+Mech Corridor North
+
+>S
+Mech Corridor
+
+>S
+Mech Corridor South
+
+>S
+Machine Shop
+
+>PUT FLASK UNDER SPOUT.PUSH YELLOW BUTTON.GET FLASK.N.N.N.N
+The glass flask is now sitting under the spout.
+
+The flask fills with some yellow chemical fluid. The fluid gradually turns
+milky white.
+
+Taken.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Mech Corridor South
+
+Mech Corridor
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Mech Corridor North
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+>E
+Elevator Lobby
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+You notice that you feel a bit weak and slightly flushed, but you're not sure
+why.
+
+>N
+Upper Elevator
+
+Floyd bounces into the elevator. "Hey, wait for Floyd!" he yells, smiling
+broadly.
+
+>SLIDE UPPER CARD THROUGH SLOT.PUSH UP BUTTON.Z.Z.S.NE.
+A recorded voice chimes "Elevator enabled."
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+Tower Core
+Floyd follows you.
+
+Comm Room
+A yellow colored light is flashing on the enunciator panel.
+Floyd follows you.
+
+>POUR LIQUID IN FUNNEL
+The liquid disappears into the hole. The lights on the enunciator panel blink
+rapidly and all go off except one, a brown light.
+Floyd notices a mouse scurrying by and tries to hide behind you.
+
+>SW.N.PUSH DOWN BUTTON
+Tower Core
+Floyd follows you.
+
+Upper Elevator
+Floyd follows you.
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+>Z.Z
+Time passes...
+Floyd asks if you want to play Hucka-Bucka-Beanstalk.
+
+Time passes...
+Some innocuous Hawaiian music oozes from the elevator's intercom.
+
+The elevator door slides open.
+Floyd produces a crayon from one of his compartments and scrawls his name on
+the wall.
+
+>S.W.S.S.S.
+Elevator Lobby
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+Mech Corridor North
+
+Mech Corridor
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Mech Corridor South
+
+>S
+Machine Shop
+
+>PUT FLASK UNDER SPOUT.PUSH BROWN BUTTON.GET FLASK.N.N.N.N.E.N.
+The glass flask is now sitting under the spout.
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+The flask fills with some brown chemical fluid. The fluid gradually turns
+milky white.
+
+Taken.
+
+Mech Corridor South
+Floyd follows you.
+
+Mech Corridor
+Floyd follows you.
+
+Mech Corridor North
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Elevator Lobby
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Upper Elevator
+
+Floyd bounces into the elevator. "Hey, wait for Floyd!" he yells, smiling
+broadly.
+
+>SLIDE UPPER CARD THROUGH SLOT.PUSH UP BUTTON.Z.Z.S.NE.
+A recorded voice chimes "Elevator enabled."
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+Floyd reminisces about his friend Lazarus, a medical robot.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+Tower Core
+
+Comm Room
+A brown colored light is flashing on the enunciator panel.
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+>POUR LIQUID IN FUNNEL.SW.N.PUSH DOWN BUTTON
+The liquid disappears into the hole. The lights on the enunciator panel blink
+rapidly and then go dark. The coolant system warning light goes off, and
+another flashes, indicating that the help message is now being sent.
+Floyd cranes his neck to see what you are doing.
+
+Tower Core
+Floyd follows you.
+
+Upper Elevator
+Floyd follows you.
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+Floyd examines himself for signs of rust.
+
+>DROP FLASK,UPPER CARD
+glass flask: Dropped.
+upper elevator access card: Dropped.
+Floyd examines himself for signs of rust.
+
+>S
+The door is closed.
+Floyd recalls the time he bruised his knee.
+
+>
+I beg your pardon?
+
+>
+I beg your pardon?
+
+>Z
+Time passes...
+
+The elevator door slides open.
+
+>S
+Elevator Lobby
+Floyd follows you.
+
+>W
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+Floyd follows you.
+
+>S
+Mech Corridor North
+Floyd follows you.
+
+>E
+Storage East
+A small room for storage. The exit is to the west.
+On the floor beneath the shelves sits a small cardboard box.
+The cardboard box contains:
+  A good ninety-ohm bedistor
+  A K-series megafuse
+  A B-series megafuse
+  A cracked seventeen-centimeter fromitz board
+One dusty shelf, otherwise bare, holds a small oil can.
+
+>GET BOX.EMPTY IT.GET GOOD BEDISTOR.PUT IT IN BOX.W.S.
+Taken.
+
+The cardboard box is now empty.
+
+Taken.
+
+Done.
+
+Mech Corridor North
+There is a multiple purpose robot here.
+Floyd absentmindedly recites the first six hundred digits of pi.
+
+Mech Corridor
+
+>S
+Mech Corridor South
+
+>SW
+Tool Room
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+There is a pair of wide-nosed pliers here.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>GET LASER.REMOVE BATTERY.DROP BATTERY.GET PLIERS.PUT PLIERS IN BOX
+Taken.
+Floyd absentmindedly oils one of his joints.
+
+Taken.
+Floyd recalls the time he bruised his knee.
+
+Dropped.
+
+Taken.
+Floyd lowers his voice and tells you the latest rumors about Dr. Fizpick.
+
+Done.
+
+>I
+You are carrying:
+  A laser
+  A cardboard box
+  The cardboard box contains:
+    A pair of wide-nosed pliers
+    A good ninety-ohm bedistor
+  A lower elevator access card
+  A canteen
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+Floyd asks if you want to play Hucka-Bucka-Beanstalk.
+
+>L
+Tool Room
+This is apparently a storage room for tools. Exits lead northeast and east.
+There is a worn-out laser battery here.
+There is a multiple purpose robot here.
+
+>NE
+Mech Corridor South
+Floyd follows you.
+
+>N
+Mech Corridor
+Floyd follows you.
+
+>N
+Mech Corridor North
+
+>N
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+>W
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+>W
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>S.GET KITCHEN CARD.SLIDE KITCHEN CARD THROUGH SLOT.PUT CANTEEN UNDER SPOUT
+Mess Hall
+There is a kitchen access card here.
+
+Taken.
+
+The kitchen door quietly slides open.
+
+You can't see any spout here!
+
+>S.PUT CANTEEN UNDER SPOUT.PUSH BUTTON.GET CANTEEN.N.DROP KITCHEN CARD.
+Kitchen
+
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+The canteen fills almost to the brim with a brown liquid.
+
+Your load is too heavy.
+
+Mess Hall
+
+The kitchen door slides quietly closed.
+
+Dropped.
+
+>S
+The door is closed.
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+>GET KITCHEN CARD
+Taken.
+Floyd produces a crayon from one of his compartments and scrawls his name on
+the wall.
+
+>SLIDE KITCHEN CARD THROUGH SLOT
+The kitchen door quietly slides open.
+Floyd bobs up and down with excitement. "Those cards are really neat! Floyd
+has one, too." He begins searching through his compartments, but finds
+nothing. He scratches his head and looks confused.
+
+>I
+You are carrying:
+  A kitchen access card
+  A laser
+  A cardboard box
+  The cardboard box contains:
+    A pair of wide-nosed pliers
+    A good ninety-ohm bedistor
+  A lower elevator access card
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>DROP BOX
+Dropped.
+
+>S
+Kitchen
+The dispenser unit contains:
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+Floyd follows you.
+
+>GET CANTEEN
+Taken.
+Floyd notices a mouse scurrying by and tries to hide behind you.
+
+>N
+Mess Hall
+There is a cardboard box here.
+The cardboard box contains:
+  A pair of wide-nosed pliers
+  A good ninety-ohm bedistor
+
+The kitchen door slides quietly closed.
+
+Floyd bounces into the room. "Hey, wait for Floyd!" he yells, smiling broadly.
+
+>DROP KITCHEN CAR
+You don't have that!
+
+>DROP KITCHEN CARD
+Dropped.
+
+>PUT LOWER CARD IN POCKET
+Done.
+Floyd reminisces about his friend Lazarus, a medical robot.
+
+>GET VOX
+[I don't know the word "vox."]
+
+>OOPS BOX
+Taken.
+
+>N
+Mess Corridor
+There is a key here.
+There is a padlock here.
+Floyd follows you.
+
+>E
+Dorm Corridor
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+There is a Patrol-issue self-contained multi-purpose scrub brush here.
+There is a diary here.
+There is a towel here.
+
+>E
+Elevator Lobby
+
+>S
+Lower Elevator
+
+Floyd bounces into the elevator. "Hey, wait for Floyd!" he yells, smiling
+broadly.
+
+>SLIDE LOWER CARD THROUGH SLOT
+A sign flashes "Magnetik striip randumiizd...konsult Prajekt Handbuk abowt
+propur kaar uv awtharazaashun kardz."
+
+>RESTORE
+Floyd looks disappointed, but understanding. "That part of the game was more
+fun than this part," he admits.
+
+From file (PS:<LIZ>KITCH.P): KEY.P.1Ok.
+Admin Corridor South
+This section of hallway seems to have suffered some minor structural damage.
+The walls are cracked, and a jagged crevice crosses the floor. An opening
+leads east and the corridor heads north and south.
+
+>I
+You are carrying:
+  A glass flask
+  A curved metal bar
+  A lower elevator access card
+  A survival kit
+  The survival kit contains:
+    A blob of green goo
+    A blob of brown goo
+    A blob of red goo
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>RESTORE
+From file (PS:<LIZ>KEY.P): Failed.
+
+>RESTORE
+From file (PS:<LIZ>KEY.P): UP.P.1Ok.
+Underwater
+You are momentarily disoriented as you enter the turbulent waters. Currents
+buffet you against the sharp rocks of an underwater cliff. A dim light filters
+down from above.
+
+>U
+Crag
+
+>U
+Balcony
+This is an octagonal room, half carved into and half built out from the cliff
+wall. Through the shattered windows which ring the outer wall you can see
+ocean to the horizon. A weathered metal plaque with barely readable lettering
+rests below the windows. The language seems to be a corrupt form of
+Galalingua. A steep stairway, roughly cut into the face of the cliff, leads
+upward. A rocky crag can be seen about eight meters below.
+
+>U
+Winding Stair
+The middle of a long, steep stairway carved into the face of a cliff.
+
+>U
+Courtyard
+You are in the courtyard of an ancient stone edifice, vaguely reminiscent of
+the castles you saw during your leave on Ramos Two. It has decayed to the
+point where it can probably be termed a ruin. Openings lead north and west,
+and a stairway downward is visible to the south. 
+
+>N
+Plain Hall
+This is a featureless hall leading north and south. Although the hallway is
+old and dusty, the construction is of a much more modern style than the castle
+to the south. A similar hall branches off to the northeast.
+
+>NE
+Rec Corridor
+This is a wide, east-west hallway. Portals lead north and south, and another
+corridor branches southwest.
+
+>E
+Mess Corridor
+This is a wide, east-west hallway with a large portal to the south. A small
+door to the north is closed and hooked with a simple steel padlock which is
+also closed.
+
+>I
+You are carrying:
+  A survival kit
+  A towel
+  A diary
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+  A Patrol-issue self-contained multi-purpose scrub brush
+
+>W
+Rec Corridor
+
+>DROP TOWEL,DIARY,BRUSH
+towel: Dropped.
+diary: Dropped.
+Patrol-issue self-contained multi-purpose scrub brush: Dropped.
+
+>E
+Mess Corridor
+
+>E
+Dorm Corridor
+This is a wide, east-west hallway with openings to the north and south. To the
+east, the corridor stretches off into the distance. That section of the
+hallway is lined with a motorized walkway (no longer running) that was
+probably intended to transport people or cargo down that tremendously long
+hall.
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+A north-south corridor intersects the main corridor here. To the west, the
+main corridor extends as far as you can see; a nonworking walkway from that
+direction ends here. To the east, the corridor widens into a well-lit area.
+
+>S
+Mech Corridor North
+Entrances to rooms lie to the east and west from this north-south hall.
+
+>S
+Mech Corridor
+Entrances to rooms lie to the east and west from this north-south hall.
+
+>S.SW.GET MAGNET
+Mech Corridor South
+The corridor ends here with doorways to the southwest, south, and southeast.
+
+Tool Room
+This is apparently a storage room for tools. Exits lead northeast and east.
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+On an upper shelf is a metal bar, curved into a U-shape.
+Sitting on the floor below the lowest shelf is a large glass flask.
+There is a pair of wide-nosed pliers here.
+
+Taken.
+
+>I
+You are carrying:
+  A curved metal bar
+  A survival kit
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>NE.N
+Mech Corridor South
+
+Mech Corridor
+
+>N
+Mech Corridor North
+
+>N
+Corridor Junction
+
+>N
+Admin Corridor South
+This section of hallway seems to have suffered some minor structural damage.
+The walls are cracked, and a jagged crevice crosses the floor. An opening
+leads east and the corridor heads north and south.
+You catch, out of the corner of your eye, a glint of light from the direction
+of the floor.
+
+>SAVE
+To file (PS:<LIZ>UP.P): KEY.P.2Ok.
+
+>PUT MAGNET NEAR CRACK.DROP MAGNET.S.W.W.SAVE
+With a spray of dust and a loud clank, a piece of metal leaps from the crevice
+and affixes itself to the magnet. It is a steel key! With a tug, you remove
+the key from the magnet.
+
+Dropped.
+
+Corridor Junction
+
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+Mess Corridor
+
+To file (PS:<LIZ>KEY.P): LOCK.P.2Ok.
+
+>UNLOCK LOCK WITH KEY.GET LOCK.DROP LOCK,KEY.OPEN DOOR.N.OPEN KIT.
+The padlock springs open.
+
+Taken.
+
+padlock: Dropped.
+key: Dropped.
+
+Opened.
+
+Storage West
+A heavy-duty extendable ladder is leaning against the rear wall.
+On a small shelf is a large, unopened tin can. It has a plain white label
+which reads "Spam and Egz."
+
+Opening the survival kit reveals a blob of green goo, a blob of brown goo, and
+a blob of red goo.
+
+>DROP ALL THEN GET LADDER
+survival kit: Dropped.
+Patrol uniform: You'll have to take it off, first.
+chronometer: You'll have to take it off, first.
+
+Taken.
+
+>S
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>E
+Dorm Corridor
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+>W.W
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>N
+Storage West
+On a small shelf is a large, unopened tin can. It has a plain white label
+which reads "Spam and Egz."
+There is a survival kit here.
+The survival kit contains:
+  A blob of green goo
+  A blob of brown goo
+  A blob of red goo
+
+>GET KIT
+Your load is too heavy.
+
+>DROP LADDER
+Dropped.
+
+>GET KIT
+Taken.
+
+>EAT RED GOO
+Mmmm...that tasted just like scrumptious cherry pie.
+
+>DROP KIT THEN GET LADDER
+Dropped.
+
+Taken.
+
+>S.E
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+Dorm Corridor
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+
+>N
+Admin Corridor South
+There is a curved metal bar here.
+
+>N.SAVE
+Admin Corridor
+The hallway, in fact the entire building, has been rent apart here, presumably
+by seismic upheaval. You can see the sky through the severed roof above, and
+the ground is thick with rubble. To the north is a gaping rift, at least eight
+meters across and thirty meters deep. A wide doorway, labelled "Sistumz
+Moniturz," leads west.
+
+To file (PS:<LIZ>LOCK.P): LADDER.P.2Ok.
+
+>DROP LADDER.EXTEND IT.PUT LADDER ACROSS RIFT.N.W.OPEN DRAWER
+Dropped.
+
+The ladder extends to a length of around eight meters.
+
+The ladder swings out across the rift and comes to rest on the far edge,
+spanning the precipice.
+
+You slowly make your way across the swaying ladder. You can see sharp, pointy
+rocks at the bottom of the rift, far below...
+
+Admin Corridor North
+
+Small Office
+You have entered a small office of some sort. A small desk faces the main
+doorway which lies to the east. Another exit leads west.
+
+Opening the small desk reveals a upper elevator access card, and a kitchen
+access card.
+
+>GET ALL FROM DRAWER.W.OPEN DRAWER.GET ALL FROM DRAWER.E.E.S
+upper elevator access card: Taken.
+kitchen access card: Taken.
+
+Large Office
+This is a large, plush office. The far wall is one large picture window,
+scratched but unbroken, offering a view of this installation and the ocean
+beyond. In front of the window is a wide wooden desk. The only exit is east.
+
+Opening the large desk reveals a shuttle access card.
+
+shuttle access card: Taken.
+
+Small Office
+
+Admin Corridor North
+
+You slowly make your way across the swaying ladder. You can see sharp, pointy
+rocks at the bottom of the rift, far below...
+
+Admin Corridor
+
+>W
+Systems Monitors
+This is a large room filled with tables full of strange equipment. The far
+wall is filled with a number of monitors. Of these, the ones labelled
+LIIBREREE, REEAKTURZ, and LIIF SUPORT are green, but the ones labelled
+PLANATEREE DEFENS, PLANATEREE KORS KUNTROOL, KUMUUNIKAASHUNZ, and PRAJEKT
+KUNTROOL indicate a malfunctioning condition.
+
+>E
+Admin Corridor
+
+>S
+Admin Corridor South
+There is a curved metal bar here.
+
+>S
+Corridor Junction
+
+>W
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+>W
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>S.GET CANTEEN.SLIDE KITCHEN CARD THROUGH SLOT.S.PUT CANTEEN UNDER SPOUT
+Mess Hall
+This is a large hall lined with tables and benches. An opening to the north
+leads back to the corridor. A door to the south is closed. Next to the door is
+a small slot.
+Although the room is quite barren, an octagonally shaped canteen is sitting on
+one of the benches.
+
+Taken.
+
+The kitchen door quietly slides open.
+
+Kitchen
+
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+>PUSH BUTTON.GET CANTEEN.N.DROP KITCHEN CARD.
+A thick, brown liquid spills over the closed canteen, dribbles down the side
+of the machine, and forms a puddle on the floor which quickly dries up.
+
+Taken.
+
+Mess Hall
+
+The kitchen door slides quietly closed.
+
+Dropped.
+
+>N
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>N
+Storage West
+On a small shelf is a large, unopened tin can. It has a plain white label
+which reads "Spam and Egz."
+There is a survival kit here.
+The survival kit contains:
+  A blob of green goo
+  A blob of brown goo
+
+>GET KIT
+Taken.
+
+>S
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>E
+Dorm Corridor
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+
+>E
+Elevator Lobby
+This is a wide, brightly lit lobby. A blue metal door to the north is closed
+and a larger red metal door to the south is also closed. Beside the blue door
+is a blue button, and beside the red door is a red button. A corridor leads
+west. To the east is a small room about the size of a telephone booth.
+
+>PUSH BLUE BUTTON.Z.Z
+You hear a faint whirring noise from behind the blue door.
+
+Time passes...
+
+Time passes...
+
+The door at the north end of the room slides open.
+
+>N
+Upper Elevator
+You have entered a tiny room with a sliding door to the south which is open. A
+control panel contains an Up button, a Down button, and a narrow slot.
+
+>SLIDE UPPER CARD THROUGH SLOT
+A recorded voice chimes "Elevator enabled."
+
+>PUSH UP BUTTON.Z.Z.S.NE.
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+Some innocuous Hawaiian music oozes from the elevator's intercom.
+
+You begin to feel weary. It might be time to think about finding a nice safe
+place to sleep.
+
+Time passes...
+
+The elevator door slides open.
+
+Tower Core
+
+Comm Room
+This is a small room with no windows. The sole exit is southwest. Two wide
+consoles fill either end of the room; thick cables lead up into the ceiling.
+
+The console on the left side of the room is labelled "Reeseev Staashun." A
+bright red light, labelled "Tranzmishun Reeseevd", is blinking rapidly. Next
+to the light is a glowing button marked "Mesij Plaabak."
+
+The console on the right side of the room is labelled "Send Staashun." A
+screen on the console displays a message. Next to the screen is a flashing
+sign which says "Malfunkshun in Sendeeng Kuulint Sistum." Next to this console
+is an enunciator. On the console next to the enunciator panel is a
+funnel-shaped hole labelled "Kuulint Sistum Manyuuwul Oovuriid."
+A yellow colored light is flashing on the enunciator panel.
+
+>SW
+Tower Core
+
+>N.PUSH DOWN BUTTON.Z.Z.S.W
+Upper Elevator
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+Elevator Lobby
+
+Corridor Junction
+
+>EAT GREEN GOO
+Mmmm...that tasted just like yummy lima beans.
+
+>W
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+You're really tired now. You'd better find a place to sleep real soon.
+
+>S
+Dorm C
+This is a very long room lined with multi-tiered bunks. Flimsy partitions
+between the tiers may have provided a modicum of privacy. These spartan living
+quarters could have once housed many hundreds, but it seems quite deserted
+now. There are openings at the north and south ends of the room.
+
+>GET ON BED
+Dorm C, in the bed
+Ahhh...the bed is soft and comfortable. You should be asleep in short order.
+
+>SLEEP
+You'll probably be asleep before you know it.
+
+>Z
+Time passes...
+
+You slowly sink into a deep and restful sleep.
+
+...You gulp down the last of your Ramosian Fire Nectar and ask the
+andro-waiter for another pitcher. This pub makes the finest Nectar on all of
+Ramos Two, and you and your shipmates are having a pretty rowdy time. Through
+the windows of the pub you can see a mighty, ancient castle, shining in the
+light of the three Ramosian moons. The Fire Nectar spreads through your blood
+and you begin to feel drowsy...
+
+***** SEPTEM 7, 11344 *****
+
+You wake up feeling refreshed and ready to face the challenges of this
+mysterious world.
+
+>STAND.GET ALL.N.
+Dorm C
+There is a shuttle access card here.
+There is a canteen here.
+There is a survival kit here.
+The survival kit contains:
+  A blob of brown goo
+There is an upper elevator access card here.
+You're on your own feet again.
+
+shuttle access card: Taken.
+canteen: Taken.
+survival kit: Taken.
+upper elevator access card: Taken.
+
+Dorm Corridor
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+
+>S.S.S.SW.GET FLASK.E
+Mech Corridor North
+
+Mech Corridor
+
+Mech Corridor South
+
+Tool Room
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+Sitting on the floor below the lowest shelf is a large glass flask.
+There is a pair of wide-nosed pliers here.
+
+Taken.
+
+Machine Shop
+This room is probably some sort of machine shop filled with a variety of
+unusual machines. Doorways lead north, east, and west.
+
+Standing against the rear wall is a large dispensing machine with a spout. The
+dispenser is lined with brightly colored buttons. The first four buttons,
+labelled "KUULINTS 1 - 4", are colored red, blue, green, and yellow. The next
+three buttons, labelled "KATALISTS 1 - 3", are colored gray, brown, and black.
+The last two buttons are both white. One of these is square and says "BAAS."
+The other white button is round and says "ASID."
+
+>PUT FLASK UNDER SPOUT.PUSH YELLOW BUTTON.GET FLASK.N.N.N.N.E.N.
+The glass flask is now sitting under the spout.
+
+The flask fills with some yellow chemical fluid. The fluid gradually turns
+milky white.
+
+Taken.
+
+Mech Corridor South
+
+Mech Corridor
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+Mech Corridor North
+
+Corridor Junction
+
+Elevator Lobby
+
+Upper Elevator
+
+>EAT BLUE GOO
+You can't see any blue goo here!
+
+>I
+You are carrying:
+  A glass flask
+  The glass flask contains:
+    A quantity of chemical fluid
+  An upper elevator access card
+  A survival kit
+  The survival kit contains:
+    A blob of brown goo
+  A canteen
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>EAT BROWN GOO
+Mmmm...that tasted just like delicious Nebulan fungus pudding.
+
+>SLIDE UPPER CARD THROUGH SLOT.PUSH UP BUTTON.Z.Z.S.NE.
+A recorded voice chimes "Elevator enabled."
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+Tower Core
+
+Comm Room
+A yellow colored light is flashing on the enunciator panel.
+
+>POUR LIQUID IN FUNNEL.SW.N.PUSH DOWN BUTTON.Z.Z.S.W.S.S.S.S.
+The liquid disappears into the hole. The lights on the enunciator panel blink
+rapidly and all go off except one, a brown light.
+
+Tower Core
+
+You notice that you feel a bit weak and slightly flushed, but you're not sure
+why.
+
+Upper Elevator
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+Some innocuous Hawaiian music oozes from the elevator's intercom.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+Elevator Lobby
+
+Corridor Junction
+
+Mech Corridor North
+
+Mech Corridor
+
+Mech Corridor South
+
+Machine Shop
+
+>PUT FLASK UNDER SPOUT.PUSH BROWN BUTTON.GET FLASK.N.N.N.N.E.N.
+The glass flask is now sitting under the spout.
+
+The flask fills with some brown chemical fluid. The fluid gradually turns
+milky white.
+
+Taken.
+
+Mech Corridor South
+
+Mech Corridor
+
+Mech Corridor North
+
+Corridor Junction
+
+Elevator Lobby
+
+Upper Elevator
+
+>SLIDE UPPER CARD THROUGH SLOT.PUSH UP BUTTON.Z.Z.S.NE.DROP KIT
+A recorded voice chimes "Elevator enabled."
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+Tower Core
+
+Comm Room
+A brown colored light is flashing on the enunciator panel.
+
+Dropped.
+
+>POUR LIQUID IN FUNNEL
+The liquid disappears into the hole. The lights on the enunciator panel blink
+rapidly and then go dark. The coolant system warning light goes off, and
+another flashes, indicating that the help message is now being sent.
+
+>SW.N.PUSH DOWN BUTTON.Z.Z
+Tower Core
+
+Upper Elevator
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+
+Time passes...
+
+Time passes...
+
+The elevator door slides open.
+
+>S
+Elevator Lobby
+
+>I
+You are carrying:
+  An upper elevator access card
+  A glass flask
+  A canteen
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>N
+Upper Elevator
+
+>DROP UPPER CARD,FLASK
+upper elevator access card: Dropped.
+glass flask: Dropped.
+
+A recording says "Elevator no longer enabled."
+
+>S
+Elevator Lobby
+
+>W.S.E
+Corridor Junction
+
+Mech Corridor North
+
+Storage East
+A small room for storage. The exit is to the west.
+On the floor beneath the shelves sits a small cardboard box.
+The cardboard box contains:
+  A good ninety-ohm bedistor
+  A K-series megafuse
+  A B-series megafuse
+  A cracked seventeen-centimeter fromitz board
+One dusty shelf, otherwise bare, holds a small oil can.
+
+>GET BOX.EMPTY IT.GET GOOD BEDISTOR.PUT IT IN BOX.W.S.
+Taken.
+
+The cardboard box is now empty.
+
+Taken.
+
+Done.
+
+Mech Corridor North
+
+Mech Corridor
+
+>S.SE.SEARCH ROBOT.TURN IT ON.W.W.W.GET PLIERS.PUT PLIERS IN BOX.
+Mech Corridor South
+
+Robot Shop
+This room, with exits west and northwest, is filled with robot-like devices of
+every conceivable description, all in various states of disassembly.
+Only one robot, about four feet high, looks even remotely close to being in
+working order.
+
+In one of the robot's compartments you find and take a magnetic-striped card
+embossed "Loowur Elavaatur Akses Kard."
+
+Nothing happens.
+
+Machine Shop
+
+Tool Room
+A small device, labelled "Akmee Portabul Laazur", is resting on one of the
+lower shelves.
+The laser contains:
+  An old battery
+There is a pair of wide-nosed pliers here.
+
+You can't go that way.
+
+The robot you were fiddling with in the Robot Shop bounds into the room. "Hi!"
+he says, with a wide and friendly smile. "You turn Floyd on? Be Floyd's
+friend, yes?"
+
+>GET PLIERS.
+Taken.
+
+>PUT PLIERS IN BOX.GET LASER.REMOVE BATTERY.DROP BATTERY
+Done.
+Floyd examines himself for signs of rust.
+
+Taken.
+Floyd absentmindedly oils one of his joints.
+
+Taken.
+
+Dropped.
+
+>I
+You are carrying:
+  A laser
+  A lower elevator access card
+  A cardboard box
+  The cardboard box contains:
+    A pair of wide-nosed pliers
+    A good ninety-ohm bedistor
+  A canteen
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+Floyd recalls the time he bruised his knee.
+
+>NE.N.N.
+Mech Corridor South
+
+Mech Corridor
+
+Mech Corridor North
+
+>N.W
+Corridor Junction
+
+You walk down the long, featureless hallway for a long time. Finally, you see
+some doorways ahead...
+
+Dorm Corridor
+
+>W
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+>S.GET KITCHEN CARD.SLIDE KITCHEN CARD THROUGH SLOT.S.PUT CANTEEN UNDER SPOUT
+Mess Hall
+There is a kitchen access card here.
+
+Taken.
+
+The kitchen door quietly slides open.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+Kitchen
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+A growl from your stomach warns that you're getting pretty hungry and thirsty.
+
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+>PUSH BUTTON.GET CANTEEN.DRINK LIQUID.
+A thick, brown liquid spills over the closed canteen, dribbles down the side
+of the machine, and forms a puddle on the floor which quickly dries up.
+
+Taken.
+
+You can't see any liquid here!
+
+>OPEN CANTEEN.PUT CANTEEN UNDER SPOUT.PUSH BUTTON.GET CANTEEN.
+Opened.
+
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+Floyd paces impatiently.
+
+The canteen fills almost to the brim with a brown liquid.
+Floyd absentmindedly recites the first six hundred digits of pi.
+
+Your load is too heavy.
+Floyd recalls the time he bruised his knee.
+
+>DROP BOX THEN GET CANTEEN
+Dropped.
+
+Taken.
+Floyd whistles tunelessly.
+
+>DRINK LIQUID
+Mmmm....that was good. It certainly quenched your thirst and satisfied your
+hunger.
+
+>PUT CANTEEN UNDER SPOUT.PUSH BUTTON.GET CANTEEN.
+The canteen fits snugly into the octagonal niche, its mouth resting just below
+the spout of the machine.
+
+The canteen fills almost to the brim with a brown liquid.
+Floyd rubs his head affectionately against your shoulder.
+
+Taken.
+
+>GET BOX
+Your load is too heavy.
+Floyd tells you about the time he helped someone sharpen a pencil.
+
+>I
+You are carrying:
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  A kitchen access card
+  A laser
+  A lower elevator access card
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>N.DROP BOX.SLIDE KITCHEN CARD THROUGH SLOT.S.GET CANTEEN.N.DROP KITCHEN CARD
+Mess Hall
+Floyd follows you.
+
+The kitchen door slides quietly closed.
+
+You don't have that!
+
+>DROP CANTEEN.SLIDE KITCHEN CARD THROUGH SLOT.S.GET BOX.N.
+Dropped.
+Floyd whistles tunelessly.
+
+The kitchen door quietly slides open.
+Floyd whistles tunelessly.
+
+Kitchen
+There is a cardboard box here.
+The cardboard box contains:
+  A pair of wide-nosed pliers
+  A good ninety-ohm bedistor
+Floyd follows you.
+
+Taken.
+
+Mess Hall
+There is a canteen here.
+The canteen contains:
+  A quantity of protein-rich liquid
+Floyd follows you.
+
+The kitchen door slides quietly closed.
+
+>DROP KITCHEN CARD.GET CANTEEN
+Dropped.
+
+Taken.
+
+>E
+You can't go that way.
+
+Floyd says "Floyd going exploring. See you later." He glides out of the room.
+
+>N
+Mess Corridor
+There is a key here.
+There is a padlock here.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+>E
+Dorm Corridor
+
+>E
+You walk down the long, featureless hallway for a long time. Finally, you see
+an intersection ahead...
+
+Corridor Junction
+
+>E
+Elevator Lobby
+
+>S
+The door is closed.
+
+>PUSH RED BUTTON
+The red door begins vibrating a bit.
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+The door at the south end of the room slides open.
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+>S.SAVE
+Lower Elevator
+This is a medium-sized room with a door to the north which is open. A control
+panel contains an Up button, a Down button, and a narrow slot.
+
+Floyd bounces into the elevator. "Hey, wait for Floyd!" he yells, smiling
+broadly.
+
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>LADDER.P): LOWER.P.1Ok.
+
+>SLIDE LOWER CARD THROUGH SLOT.PUSH DOWN BUTTON.Z.Z
+A recorded voice chimes "Elevator enabled."
+
+The elevator door slides shut. After a moment, you feel a sensation of
+vertical movement.
+Floyd yawns and looks bored.
+
+Time passes...
+Floyd absentmindedly recites the first six hundred digits of pi.
+
+Time passes...
+
+>Z
+Time passes...
+
+The elevator door slides open.
+Floyd frets about the possibility of his batteries failing.
+
+>N
+Waiting Area
+This is a concrete platform sparsely furnished with benches. The platform
+continues to the east, and to the south is a metal door.
+Floyd follows you.
+
+>N
+You can't go that way.
+Floyd recalls the time he bruised his knee.
+
+>E
+Kalamontee Platform
+Floyd follows you.
+
+>S
+Shuttle Car Alfie
+This is the cabin of a large transport, with seating for around 20 people plus
+space for freight. There are open doors at the eastern and western ends of the
+cabin, and a doorway leads out to a wide platform to the north.
+Floyd follows you.
+
+>E
+Alfie Control East
+This is a small control cabin. A control panel contains a slot, a lever, and a
+display. The lever can be set at a central position, or it could be pushed up
+to a position labelled "+", or pulled down to a position labelled "-". It is
+currently at the center setting. The display, a digital readout, currently
+reads 0. Through the cabin window you can see parallel rails running along the
+floor of a long tunnel, vanishing in the distance.
+Floyd follows you.
+
+>SAVE
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>LOWER.P): ALFIE.P.1Ok.
+
+>SLIDE SHUTTLE CARD THROUGH SLOT
+A recording of a deep male voice says "Shuttle controls activated."
+
+>PUSH LEVER UP.Z.Z.Z.Z.Z.Z.Z.Z.PUSH LEVER DOWN.Z.Z.Z.Z.Z.Z
+The lever is now in the upper position.
+The control cabin door slides shut and the shuttle car begins to move forward!
+The display changes to 5.
+Floyd notices a mouse scurrying by and tries to hide behind you.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 10.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 15.
+You pass a sign which says "Limit 45."
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 20.
+Floyd wanders restlessly around the room.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 25.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 30.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 35.
+Floyd paces impatiently.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 40.
+Floyd frets about the possibility of his batteries failing.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 45.
+Floyd wanders restlessly around the room.
+
+The lever is now in the central position.
+The shuttle car continues to move. The display still reads 45.
+Floyd notices a mouse scurrying by and tries to hide behind you.
+
+Time passes...
+The shuttle car continues to move. The display still reads 45.
+
+Time passes...
+The shuttle car continues to move. The display still reads 45.
+Floyd sings an ancient ballad, totally out of key.
+
+Time passes...
+The shuttle car continues to move. The display still reads 45.
+The tunnel levels out and begins to slope upward. A sign flashes by which
+reads "Hafwaa Mark -- Beegin Deeseluraashun."
+
+Time passes...
+The shuttle car continues to move. The display still reads 45.
+
+Time passes...
+The shuttle car continues to move. The display still reads 45.
+
+Time passes...
+The shuttle car continues to move. The display still reads 45.
+
+>PUSH LEVER DOWN.Z.Z.Z.Z.Z.Z.Z.Z
+The lever is now in the lower position.
+The shuttle car continues to move. The display blinks, and now reads 40.
+Floyd absentmindedly recites the first six hundred digits of pi.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 35.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 30.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 25.
+Floyd rubs his head affectionately against your shoulder.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 20.
+You pass a sign, surrounded by blinking red lights, which says "15."
+Floyd lowers his voice and tells you the latest rumors about Dr. Fizpick.
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 15.
+You pass a sign, surrounded by blinking red lights, which says "10."
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 10.
+You pass a sign, surrounded by blinking red lights, which says "5."
+
+Time passes...
+The shuttle car continues to move. The display blinks, and now reads 5.
+The shuttle car is approaching a brightly lit area. As you near it, you make
+out the concrete platforms of a shuttle station.
+
+Time passes...
+The shuttle car glides into the station and comes to rest at the concrete
+platform. You hear the cabin doors slide open.
+
+>W.N.
+Shuttle Car Alfie
+Floyd follows you.
+
+Lawanda Platform
+Floyd follows you.
+
+>E
+Escalator
+You are in the middle of a long mechanical stairway. It is not running, and
+seems to be in disrepair.
+
+>E
+Fork
+This is a hallway which forks to the northeast and southeast. To the west is
+the top of a long escalator.
+
+You notice that you feel unusually weak, and you suspect that you have a fever.
+
+>NE
+Systems Corridor West
+The corridor bends here, leading east and southwest. A doorway opens to the
+northwest, and a narrow stairway leads down to the north.
+
+>N
+Repair Room
+You are in a dimly lit room, filled with strange machines and wide storage
+cabinets, all locked. To the south, a narrow stairway leads upward. On the
+north wall of the room is a very small doorway.
+Lying face down at the bottom of the stairs is a motionless robot. It appears
+to be damaged beyond repair.
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+>Z
+Time passes...
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+Floyd points at the fallen robot. "That's Achilles. He was in charge of
+repairing machinery. He repaired Floyd once. I never liked him much; he wasn't
+friendly like other robots. Looks like he fell down the stairs. He always had
+trouble with one of his feet working right. A Planner-person once told me
+that's why they named him Achilles."
+
+>SAVE
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>ALFIE.P): ACHILLES.P.1Ok.
+
+>FLOYD, GO NORTH
+Floyd squeezes through the opening and is gone for quite a while. You hear
+thudding noises and squeals of enjoyment. After a while the noise stops, and
+Floyd emerges, looking downcast. "Floyd found a rubber ball inside. Lots of
+fun for a while, but must have been old, because it fell apart. Nothing else
+interesting inside. Just a shiny fromitz board."
+
+>FLOYD, GET SHINY BEDISTOR
+The multiple purpose robot seems confused. "I don't see any shiny bedistor
+here!"
+
+>FLOYD, GET SHINY FROMITZ BOARD
+Floyd shrugs. "If you say so." He vanishes for a few minutes, and returns
+holding the fromitz board. It seems to be in good shape. He tosses it toward
+you, and you just manage to catch it before it smashes.
+
+>S.E.N
+Systems Corridor West
+
+Systems Corridor
+This section of hallway has a doorway to the north labelled "Planateree
+Deefens." The corridor continues east and west.
+
+Planetary Defense
+This room is filled with a dazzling array of lights and controls. One light,
+blinking quickly, catches your eye. It reads "Surkit Boord Faalyur. WORNEENG:
+xis boord kuntroolz xe diskriminaashun surkits." There is a small access panel
+on one wall which is closed.
+
+>SAVE
+To file (PS:<LIZ>ACHILLES.P): PD.P.1Ok.
+
+>OPEN PANEL
+The panel swings open.
+The access panel contains:
+  A second seventeen-centimeter fromitz board
+  A third seventeen-centimeter fromitz board
+  A fourth seventeen-centimeter fromitz board
+  A first seventeen-centimeter fromitz board
+
+>GET SECOND BOARD.PUT SHINY BOARD IN SOCKET.CLOSE PANEL.DROP BOARD
+The fromitz board slides out of the panel, producing an empty socket for
+another board.
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+The card clicks neatly into the socket. The warning lights stop flashing.
+
+The panel swings closed.
+
+Dropped.
+Floyd paces impatiently.
+
+>S.E.N
+Systems Corridor
+Floyd follows you.
+
+Systems Corridor East
+The hallway ends here with a large doorway leading east, and smaller doorways
+to the north and south. The northern doorway is labelled "Planateree Kors
+Kontrool." The hallway itself leads west.
+Floyd follows you.
+
+Course Control
+This is a long room whose walls are covered with complicated controls and
+colored lights. Two of these lights are blinking. The first one reads
+"Bedistur Faalyur!" The other light reads "Kritikul diivurjins frum pland
+kors." In one corner is a large metal cube whose lid is closed.
+Floyd follows you.
+
+>OPEN CUBE
+The lid swings open.
+The large metal cube contains:
+  A fused ninety-ohm bedistor
+Floyd frets about the possibility of his batteries failing.
+
+>GET FUSED BEDISTOR WITH PLIERS
+With a tug, you manage to remove the fused bedistor.
+Floyd frets about the possibility of his batteries failing.
+
+>PUT GOOD BEDISTOR IN CUBE
+Done. The warning lights go out and another light goes on.
+
+>CLOSE CUBE
+The lid swings closed.
+
+>DROP PLIERS
+Dropped.
+
+>S
+Systems Corridor East
+Floyd follows you.
+
+>S
+Library Lobby
+This is a carpeted room, thick with dust, with exits to the north and south.
+To the west, up a few steps, is a wide doorway. A small booth lies to the east.
+Sitting on a wide table is a machine of sorts, consisting of a video screen
+and a keyboard. It is currently turned off.
+You catch a glimpse of a small object nestled among the dust.
+
+>S
+Project Corridor East
+The hallway ends here but continues back toward the west. Doorways lead north,
+south and east.
+
+>E
+Main Lab
+This is the heart of the Project's vast laboratory complex. There are exits to
+the west and southwest, and heavy metal doors to the northeast and southeast.
+A small doorway leads south.
+
+>S
+Lab Storage
+This is a tiny room for the storage of laboratory supplies. The sole exit is
+to the north.
+The odds and ends on the shelves include a small round object, which closer
+inspection reveals to be a fresh laser battery.
+Hanging on a rack is a pale blue lab uniform. Sewn onto its pocket is a
+nondescript logo.
+
+>SAVE
+To file (PS:<LIZ>PD.P): LAB.P.1Ok.
+
+>GET BATTERY.PUT IT IN LASER
+Taken.
+
+The battery is now resting in the depression, attached to the laser.
+
+>OPEN LAB POCKET
+You discover a small piece of paper and a teleportation access card in the
+pocket of the uniform.
+
+>DROP SHUTTLE CARD, LOWER CARD
+shuttle access card: Dropped.
+lower elevator access card: Dropped.
+
+>GET TELEPORTATION CARD
+Taken.
+
+>READ PAPER
+(Taking the piece of paper first)
+Week uv 14-Juun--2882. Kombinaashun tuu Konfurins Ruum: 651.
+
+>N.SW
+Main Lab
+
+Computer Room
+This is the main computer room for the Project. The only sign of activity is a
+glowing red light. The exits are north, west, and northeast. To the south is a
+small booth.
+There is a pile of computer output here.
+
+>READ OUTPUT
+The printout is hundreds of pages long. It would take many chrons to read it
+all. The last page looks pretty interesting, though:
+
+"Daalee Statis Reeport:
+PREELIMINEREE REESURC:  100.000%
+INTURMEEDEEIT REESURC:  100.000%
+FIINUL REESURC:         100.000%
+DRUG PROODUKSHUN:       100.000%
+DRUG TESTEENG:           99.985%
+Proojektid tiim tuu reeviivul prooseedzur:  0 daaz, 0.8 kronz
+
+
+*** ALURT! ALURT! ***
+Malfunkshun in Sekshun 384! Sumuneeng reepaar roobot."
+
+The printout ends at this point.
+
+>SAVE
+To file (PS:<LIZ>LAB.P): OUTPUT.P.1Ok.
+
+>Z
+Time passes...
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+Floyd examines the glowing light. With a concerned frown, he says, "Uh oh.
+Computer is broken. A Doctor-person once told Floyd that Computer is the most
+important part of the Project."
+
+>NE
+Main Lab
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+>SAVE
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>OUTPUT.P): MAIN.P.1Ok.
+
+>OPEN BIO-LOCK DOOR
+The door opens.
+
+>E
+You can't go that way.
+
+>SE
+Bio Lock West
+This is the first half of a sterilization chamber to prevent contamination of
+the delicate biological experiments in the Bio Lab which lies beyond. The door
+to the west leads to the main lab, and the bio lock continues eastward.
+
+The door at the western end of the bio-lock closes silently.
+Floyd follows you.
+
+>L
+Bio Lock West
+This is the first half of a sterilization chamber to prevent contamination of
+the delicate biological experiments in the Bio Lab which lies beyond. The door
+to the west leads to the main lab, and the bio lock continues eastward.
+There is a multiple purpose robot here.
+
+>OPEN DOOR
+The door opens.
+Floyd chants the death scene from "Carmen".
+
+>CLOSE DOOR
+The door closes.
+Floyd yawns and looks bored.
+
+>L
+Bio Lock West
+This is the first half of a sterilization chamber to prevent contamination of
+the delicate biological experiments in the Bio Lab which lies beyond. The door
+to the west leads to the main lab, and the bio lock continues eastward.
+There is a multiple purpose robot here.
+
+>OPEN DOOR
+The door opens.
+
+>CLOSE DOOR
+The door closes.
+Floyd whistles tunelessly.
+
+>L IN WINDOW
+You can't see any window here!
+
+>RESTORE
+Floyd looks disappointed, but understanding. "That part of the game was more
+fun than this part," he admits.
+
+From file (PS:<LIZ>MAIN.P): MAIN.P.1Ok.
+Main Lab
+This is the heart of the Project's vast laboratory complex. There are exits to
+the west and southwest, and heavy metal doors to the northeast and southeast.
+A small doorway leads south.
+There is a multiple purpose robot here.
+
+>OPEN BIO-LOCK DOOR
+The door opens.
+
+>SE
+Bio Lock West
+This is the first half of a sterilization chamber to prevent contamination of
+the delicate biological experiments in the Bio Lab which lies beyond. The door
+to the west leads to the main lab, and the bio lock continues eastward.
+Floyd follows you.
+
+>E
+Bio Lock East
+The is the second half of the sterilization chamber leading from the main lab
+to the Bio Lab. The door to the east, leading to the Bio Lab, has a window.
+The bio lock continues to the west.
+
+The door at the western end of the bio-lock closes silently.
+Floyd follows you.
+
+>L IN WINDOW
+You can see a large laboratory, dimly illuminated. A blue glow comes from a
+crack in the northern wall of the lab. Shadowy, ominous shapes move about
+within the room. On the floor, just inside the door, you can see a
+magnetic-striped card.
+Floyd stands on his tiptoes and peers in the window. "Looks dangerous in
+there," says Floyd. "I don't think you should go inside." He peers in again.
+"We'll need card there to fix computer. Hmmm... I know! Floyd will get card.
+Robots are tough. Nothing can hurt robots. You open the door, then Floyd will
+rush in. Then you close door. When Floyd knocks, open door again. Okay? Go!"
+Floyd's voice trembles slightly as he waits for you to open the door.
+
+>SAVE
+Floyd's eyes light up. "Oh boy! Are we gonna try something dangerous now?"
+
+To file (PS:<LIZ>MAIN.P): MINI.P.1Ok.
+
+>OPEN DOOR
+The door opens and Floyd, pausing only for the briefest moment, plunges into
+the Bio Lab. Immediately, he is set upon by hideous, mutated monsters! More
+are heading straight toward the open door! Floyd shrieks and yells to you to
+close the door.
+
+>CLOSE DOOR
+The door closes.
+
+From within the lab you hear ferocious growlings, the sounds of a skirmish,
+and then a high-pitched metallic scream!
+
+>OPEN DOOR
+The door opens.
+
+The biological nightmares reach you. Gripping coils wrap around your limbs as
+powerful teeth begin tearing at your flesh. Something bites your leg, and you
+feel a powerful poison begin to work its numbing effects...
+
+    ****  You have died  ****
+
+Your score would be 54 (out of 80 points). It is Day 2 of your adventure.
+Current Galactic Standard Time (adjusted to your local day-cycle) is 6068.
+This score gives you the rank of Planetary Commodore.
+
+Oh, well. According to the Treaty of Gishen IV, signed in 8747 GY, all
+adventure game players must be given another chance after dying. In the
+interests of interstellar peace...
+
+Would you like to restart this game from the beginning, restore a saved
+position, end this session of the game, or look at hints?
+(Type RESTART, RESTORE, QUIT, or HINTS):
+>RESTORE
+From file (PS:<LIZ>MINI.P): MINI.P.1Ok.
+Bio Lock East
+The is the second half of the sterilization chamber leading from the main lab
+to the Bio Lab. The door to the east, leading to the Bio Lab, has a window.
+The bio lock continues to the west.
+There is a multiple purpose robot here.
+
+>OPEN DOOR
+The door opens and Floyd, pausing only for the briefest moment, plunges into
+the Bio Lab. Immediately, he is set upon by hideous, mutated monsters! More
+are heading straight toward the open door! Floyd shrieks and yells to you to
+close the door.
+
+>CLOSE DOOR
+The door closes.
+
+From within the lab you hear ferocious growlings, the sounds of a skirmish,
+and then a high-pitched metallic scream!
+
+>Z
+Time passes...
+
+You hear, slightly muffled by the door, three fast knocks, followed by the
+distinctive sound of tearing metal.
+
+>OPEN DOOR
+The door opens.
+
+Floyd stumbles out of the Bio Lab, clutching the mini-booth card. The
+mutations rush toward the open doorway!
+
+>CLOSE DOOR
+The door closes.
+
+And not a moment too soon! You hear a pounding from the door as the monsters
+within vent their frustration at losing their prey.
+
+Floyd staggers to the ground, dropping the mini card. He is badly torn apart,
+with loose wires and broken circuits everywhere. Oil flows from his
+lubrication system. He obviously has only moments to live.
+
+You drop to your knees and cradle Floyd's head in your lap. Floyd looks up at
+his friend with half-open eyes. "Floyd did it ... got card. Floyd a good
+friend, huh?" Quietly, you sing Floyd's favorite song, the Ballad of the
+Starcrossed Miner:
+
+O, they ruled the solar system
+Near ten thousand years before
+In their single starcrossed scout ships
+Mining ast'roids, spinning lore.
+
+Then one true courageous miner
+Spied a spaceship from the stars
+Boarded he that alien liner
+Out beyond the orb of Mars.
+
+Yes, that ship was filled with danger
+Mighty monsters barred his way
+Yet he solved the alien myst'ries
+Mining quite a lode that day.
+
+O, they ruled the solar system
+Near ten thousand years before
+'Til one brave advent'rous spirit
+Brought that mighty ship to shore.
+
+As you finish the last verse, Floyd smiles with contentment, and then his eyes
+close as his head rolls to one side. You sit in silence for a moment, in
+memory of a brave friend who gave his life so that you might live.
+
+>I
+You are carrying:
+  A piece of paper
+  A teleportation access card
+  A fused ninety-ohm bedistor
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  A cardboard box
+  A laser
+  The laser contains:
+    A new battery
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>DROP PAPER,FUSED BEDISTOR
+piece of paper: Dropped.
+fused ninety-ohm bedistor: Dropped.
+
+>W
+Bio Lock West
+
+>OPEN DOOR
+The door opens.
+
+>NW
+You can't go that way.
+
+>W
+Main Lab
+
+The door at the western end of the bio-lock closes silently.
+
+>SW
+Computer Room
+There is a pile of computer output here.
+
+>S
+Miniaturization Booth
+This is a small room barely large enough for one person. Mounted on the wall
+is a small slot, and next to it a keyboard with numeric keys. The exit is to
+the north.
+
+>SAVE
+To file (PS:<LIZ>MINI.P): MINIB.P.1Ok.
+
+>SLIDE MINIATURIZATION CARD THROUGH SLOT
+You don't have that!
+
+>I
+You are carrying:
+  A teleportation access card
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  A cardboard box
+  A laser
+  The laser contains:
+    A new battery
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>RESTORE
+From file (PS:<LIZ>MINIB.P): MINI.P.1Ok.
+Bio Lock East
+The is the second half of the sterilization chamber leading from the main lab
+to the Bio Lab. The door to the east, leading to the Bio Lab, has a window.
+The bio lock continues to the west.
+There is a multiple purpose robot here.
+
+>L IN WINDOW
+You can see a large laboratory, dimly illuminated. A blue glow comes from a
+crack in the northern wall of the lab. Shadowy, ominous shapes move about
+within the room. On the floor, just inside the door, you can see a
+magnetic-striped card.
+Floyd looks at you with a dash of impatience and a healthy helping of
+nervousness. "Well?" he asks. "Are you going to open the door?"
+
+>OPEN DOOR
+The door opens and Floyd, pausing only for the briefest moment, plunges into
+the Bio Lab. Immediately, he is set upon by hideous, mutated monsters! More
+are heading straight toward the open door! Floyd shrieks and yells to you to
+close the door.
+
+>CLOSE DOOR
+The door closes.
+
+From within the lab you hear ferocious growlings, the sounds of a skirmish,
+and then a high-pitched metallic scream!
+
+>Z
+Time passes...
+
+You hear, slightly muffled by the door, three fast knocks, followed by the
+distinctive sound of tearing metal.
+
+>OPEN DOOR
+The door opens.
+
+Floyd stumbles out of the Bio Lab, clutching the mini-booth card. The
+mutations rush toward the open doorway!
+
+>CLOSE DOOR
+The door closes.
+
+And not a moment too soon! You hear a pounding from the door as the monsters
+within vent their frustration at losing their prey.
+
+Floyd staggers to the ground, dropping the mini card. He is badly torn apart,
+with loose wires and broken circuits everywhere. Oil flows from his
+lubrication system. He obviously has only moments to live.
+
+You drop to your knees and cradle Floyd's head in your lap. Floyd looks up at
+his friend with half-open eyes. "Floyd did it ... got card. Floyd a good
+friend, huh?" Quietly, you sing Floyd's favorite song, the Ballad of the
+Starcrossed Miner:
+
+O, they ruled the solar system
+Near ten thousand years before
+In their single starcrossed scout ships
+Mining ast'roids, spinning lore.
+
+Then one true courageous miner
+Spied a spaceship from the stars
+Boarded he that alien liner
+Out beyond the orb of Mars.
+
+Yes, that ship was filled with danger
+Mighty monsters barred his way
+Yet he solved the alien myst'ries
+Mining quite a lode that day.
+
+O, they ruled the solar system
+Near ten thousand years before
+'Til one brave advent'rous spirit
+Brought that mighty ship to shore.
+
+As you finish the last verse, Floyd smiles with contentment, and then his eyes
+close as his head rolls to one side. You sit in silence for a moment, in
+memory of a brave friend who gave his life so that you might live.
+
+>I
+You are carrying:
+  A piece of paper
+  A teleportation access card
+  A fused ninety-ohm bedistor
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  A cardboard box
+  A laser
+  The laser contains:
+    A new battery
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>DROP PAPER,FUSED BEDISTOR
+piece of paper: Dropped.
+fused ninety-ohm bedistor: Dropped.
+
+>GET MINIATURIZATION CARD
+Taken.
+
+>W
+Bio Lock West
+
+>W
+The bio-lock door is closed.
+
+>OPEN DOOR
+The door opens.
+
+>W
+Main Lab
+
+>SW
+Computer Room
+There is a pile of computer output here.
+
+>S
+Miniaturization Booth
+This is a small room barely large enough for one person. Mounted on the wall
+is a small slot, and next to it a keyboard with numeric keys. The exit is to
+the north.
+
+>SAVE
+To file (PS:<LIZ>MINI.P): MINIB.P.2Ok.
+
+>SLIDE MINIATURIZATION CARD THROUGH SLOT
+A melodic high-pitched voice says "Miniaturization and teleportation booth
+activated. Please type in damaged sector number."
+
+>SAY "TYPE 384"
+Talking to yourself is a sign of impending mental collapse.
+
+>TYPE 384
+You notice the walls of the booth sliding away in all directions, followed by
+a momentary queasiness in the pit of your stomach...
+
+Station 384
+You are standing on a square plate of heavy metal. Above your head, parallel
+to the plate beneath you, is an identical metal plate. To the east is a wide,
+metallic strip.
+
+>SET LASER TO 1
+The dial is now set to 1.
+
+>E
+Strip Near Station
+
+>N
+Middle of Strip
+You are standing on a section of the strip with a bottomless void stretching
+out on both sides. The strip continues to the north and south.
+
+>N
+Strip Near Relay
+North of here, the filament ends at a huge featureless wall, presumably the
+side of some microcomponent. To the east is a vacuu-sealed microrelay, sealed
+in transparent red plastic. You could probably see into the microrelay.
+
+>L AT RELAY
+This is a vacuum-sealed microrelay, encased in red translucent plastic.
+Within, you can see that some sort of speck or impurity has wedged itself into
+the contact point of the relay, preventing it from closing. The speck,
+presumably of microscopic size, resembles a blue boulder to you in your
+current size.
+
+>SAVE
+To file (PS:<LIZ>MINIB.P): SPECK.P.1Ok.
+
+>SHOOT SPECK
+A good shot, but just a little wide of the target.
+
+>G
+A near miss!
+
+>G
+A good shot, but just a little wide of the target.
+
+The laser feels slightly warm now, but that doesn't seem to affect its
+performance at all.
+
+>RESTORE
+From file (PS:<LIZ>SPECK.P): SPECK.P.1Ok.
+Strip Near Relay
+North of here, the filament ends at a huge featureless wall, presumably the
+side of some microcomponent. To the east is a vacuu-sealed microrelay, sealed
+in transparent red plastic. You could probably see into the microrelay.
+
+>SHOOT SPECK WITH LASER
+A near miss!
+
+>G
+The speck is hit by the beam! It sizzles a little, but isn't destroyed yet.
+
+>G
+A good shot, but just a little wide of the target.
+
+The laser feels slightly warm now, but that doesn't seem to affect its
+performance at all.
+
+>G
+The beam hits the speck again! This time, it vaporizes into a fine cloud of
+ash. The relay slowly begins to close, and a voice whispers in your ear
+"Sector 384 will activate in 200 millichrons. Proceed to exit station."
+
+>SET LASER TO 7
+The dial can only be set from 1 to 6.
+
+The laser has cooled, but it still feels slightly warm.
+
+>SET LASER TO 6
+The dial is now set to 6.
+
+>S
+Suddenly, with a loud plop, a giant elephant-sized monster lands on the strip
+just in front of you. It is amorphously shaped, its skin a slimy translucent
+red membrane. While most of your brain screams with panic about the disgusting
+monster that now blocks your exit, some small section in the back of your mind
+calmly realizes that this is merely some tiny microbe which has somehow
+violated the sterile environment of the computer interior.
+
+As you stand frozen with fear, the microbe slithers toward you, extending
+slimy pseudopods thick with waving cilia. It looks pretty hungry, and seems
+intent on having you for lunch.
+
+Middle of Strip
+A hungry microbe blocks your way, its cilia waving and its pseudopods towering
+over you.
+
+The microbe flows toward you. It towers above you, its cilia waving madly in
+your face.
+
+>SHOOT MICROBE WITH LASER
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time.
+
+>G
+The laser beam strikes the microbe. The monster rears back for a moment, but
+almost as soon as the beam goes off, it advances again.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time.
+
+The laser feels slightly warm now, but that doesn't seem to affect its
+performance at all.
+
+>G
+The laser beam strikes the microbe. The monster rears back for a moment, but
+almost as soon as the beam goes off, it advances again.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time.
+
+>G
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time.
+
+>G
+The laser beam strikes the microbe. The beam slices through the microbe's
+skin! A tremendous shudder passes through the microbe, but the wound quickly
+seals itself.
+
+A pseudopod extends toward you. You jump back just in time to avoid being
+engulfed.
+
+The laser feels somewhat warm now, but that doesn't seem to affect its
+performance at all.
+
+>THROW LASER OVER EDGE
+The laser flies over the edge of the strip and disappears into the void.
+
+The monster wriggles nearer. It is now so close that you can make out details
+in the protoplasm beneath its translucent skin.
+
+>RESTORE
+From file (PS:<LIZ>SPECK.P): SPECK.P.1Ok.
+Strip Near Relay
+North of here, the filament ends at a huge featureless wall, presumably the
+side of some microcomponent. To the east is a vacuu-sealed microrelay, sealed
+in transparent red plastic. You could probably see into the microrelay.
+
+>SHOOT SPECK WITH LASER
+The beam just misses the speck!
+
+>G
+The beam just misses the speck!
+
+>G
+The beam just misses the speck!
+
+The laser feels slightly warm now, but that doesn't seem to affect its
+performance at all.
+
+>G
+The speck is hit by the beam! It sizzles a little, but isn't destroyed yet.
+
+>G
+The beam hits the speck again! This time, it vaporizes into a fine cloud of
+ash. The relay slowly begins to close, and a voice whispers in your ear
+"Sector 384 will activate in 200 millichrons. Proceed to exit station."
+
+>SET LASER TO 6
+The dial is now set to 6.
+
+>S
+Suddenly, with a loud plop, a giant elephant-sized monster lands on the strip
+just in front of you. It is amorphously shaped, its skin a slimy translucent
+red membrane. While most of your brain screams with panic about the disgusting
+monster that now blocks your exit, some small section in the back of your mind
+calmly realizes that this is merely some tiny microbe which has somehow
+violated the sterile environment of the computer interior.
+
+As you stand frozen with fear, the microbe slithers toward you, extending
+slimy pseudopods thick with waving cilia. It looks pretty hungry, and seems
+intent on having you for lunch.
+
+Middle of Strip
+A hungry microbe blocks your way, its cilia waving and its pseudopods towering
+over you.
+
+The microbe flows toward you. It towers above you, its cilia waving madly in
+your face.
+
+The laser has cooled, but it still feels slightly warm.
+
+>SAVE
+To file (PS:<LIZ>SPECK.P): MICROBE.P.1Ok.
+
+>SHOOT MICROBE WITH LASER
+The laser beam strikes the microbe. The beam slices through the microbe's
+skin! A tremendous shudder passes through the microbe, but the wound quickly
+seals itself.
+
+Two protoplasm-filled blobs sneak toward you from the left. You jump to the
+side and almost fall off the strip into the void below!
+
+>G
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+A pseudopod shoots out toward your head! Ducking quickly, you save your life.
+
+>G
+The laser beam strikes the microbe. The beam slices through the microbe's
+skin! A tremendous shudder passes through the microbe, but the wound quickly
+seals itself.
+
+A pseudopod extends toward you. You jump back just in time to avoid being
+engulfed.
+
+The laser feels somewhat warm now, but that doesn't seem to affect its
+performance at all.
+
+>G
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time.
+
+>G
+The laser beam strikes the microbe. The beam slices through the microbe's
+skin! A tremendous shudder passes through the microbe, but the wound quickly
+seals itself.
+
+A pseudopod extends toward you. You jump back just in time to avoid being
+engulfed.
+
+>G
+The laser beam strikes the microbe. The monster rears back for a moment, but
+almost as soon as the beam goes off, it advances again.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time. Another pseudopod, perhaps attracted by the warmth of the laser, tries
+to envelop the weapon. You snatch it away from the monster's grasp.
+
+The laser feels very warm now, but that doesn't seem to affect its performance
+at all.
+
+>THROW LASER OVER EDGE
+As the laser flies over the edge of the strip, the hungry microbe lunges after
+it. Both the laser and the microbe plummet into the void. (Whew!)
+
+>S.W
+Strip Near Station
+
+A voice seems to whisper in your ear "Main Miniaturization and Teleportation
+Booth has malfunctioned...switching to Auxiliary Booth..." You feel the
+familiar wrenching of your innards, and find yourself in a vast room whose
+distant walls are rushing straight toward you...
+
+Auxiliary Booth
+
+>N
+Lab Office
+This is the office for storing files on Bio Lab experiments. A large and messy
+desk is surrounded by locked files. A small booth lies to the south. A closed
+door to the west is labelled "Biioo Lab." You realize with shock and horror
+that the only way out is through the mutant-infested Bio Lab.
+
+On the wall are three buttons: a white button labelled "Lab Liits On", a black
+button labelled "Lab Liits Of", and a red button labelled "Eemurjensee Sistum."
+
+>OPEN DESK
+Opening the desk reveals a gas mask.
+
+>GET MASK
+Taken.
+
+>WEAR IT
+You are wearing the gas mask.
+
+>PUSH RED BUTTON
+You hear a hissing from beyond the door to the west.
+
+>OPEN DOOR
+The office door is now open.
+Through the open doorway you can see the Bio Lab. It seems to be filled with a
+light mist. Horrifying biological nightmares stagger about making choking
+noises.
+
+>W
+Bio Lab
+This is a huge laboratory filled with many biological experiments. The
+lighting is dim, and a faint blue glow comes from a gaping crack in the
+northern wall. Some of the experiments seem to be out of control...
+A giant plant, teeming with poisonous tentacles, is shuffling toward you on
+three leg-like stalks.
+Lurking nearby is a vicious-looking creature with slavering fangs. Squinting
+in the light, it eyes you hungrily.
+Rushing toward you is an ugly, deformed humanoid, bellowing in a guttural
+tongue. It brandishes a piece of lab equipment shaped somewhat like a battle
+axe.
+A ferocious feral creature, with a hairy shelled body and a whip-like tail
+snaps its enormous mandibles at you.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>W
+The lab door is closed.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>OPEN DOOR
+Which door do you mean, the lab door or the office door?
+
+>LAB DOOR
+The door opens.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>W
+Bio Lock East
+There is a fused ninety-ohm bedistor here.
+There is a piece of paper here.
+Your former companion, Floyd, is lying on the ground in a pool of oil.
+
+A recorded announcement blares from the public address system. "Revival
+procedure beginning. Cryo-chamber access from Project Control Office now open."
+
+The mutants burst into the room right on your heels! The growling humanoid is
+charging straight at you, waving his axe-like implement!
+
+>OPEN DOOR
+It's already open!
+
+The door at the eastern end of the bio-lock closes silently.
+
+Dozens of hungry eyes fix on you as the mutations surround you and begin
+feasting.
+
+    ****  You have died  ****
+
+Your score would be 75 (out of 80 points). It is Day 2 of your adventure.
+Current Galactic Standard Time (adjusted to your local day-cycle) is 6711.
+This score gives you the rank of Cluster Admiral.
+
+Oh, well. According to the Treaty of Gishen IV, signed in 8747 GY, all
+adventure game players must be given another chance after dying. In the
+interests of interstellar peace...
+
+Would you like to restart this game from the beginning, restore a saved
+position, end this session of the game, or look at hints?
+(Type RESTART, RESTORE, QUIT, or HINTS):
+>RESTORE
+From file (PS:<LIZ>MICROBE.P): MICROBE.P.1Ok.
+Middle of Strip
+You are standing on a section of the strip with a bottomless void stretching
+out on both sides. The strip continues to the north and south.
+A hungry microbe blocks your way, its cilia waving and its pseudopods towering
+over you.
+
+>SHOOT MICROBE
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+A pseudopod shoots out toward your head! Ducking quickly, you save your life.
+
+>G
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+Two protoplasm-filled blobs sneak toward you from the left. You jump to the
+side and almost fall off the strip into the void below!
+
+>G
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+Two protoplasm-filled blobs sneak toward you from the left. You jump to the
+side and almost fall off the strip into the void below!
+
+The laser feels somewhat warm now, but that doesn't seem to affect its
+performance at all.
+
+>G
+The laser beam strikes the microbe. The beam slices through the microbe's
+skin! A tremendous shudder passes through the microbe, but the wound quickly
+seals itself.
+
+A slimy pseudopod brushes against your shoulder. You twist away in the nick of
+time.
+
+>G
+The laser beam strikes the microbe. The beam slices through the microbe's
+skin! A tremendous shudder passes through the microbe, but the wound quickly
+seals itself.
+
+A pseudopod shoots out toward your head! Ducking quickly, you save your life.
+
+>G
+The laser beam strikes the microbe. The microbe's outer membrane sizzles a
+bit, and some protoplasm oozes out. The microbe recoils momentarily, but
+quickly recovers.
+
+A pseudopod extends toward you. You jump back just in time to avoid being
+engulfed. Another pseudopod, perhaps attracted by the warmth of the laser,
+tries to envelop the weapon. You snatch it away from the monster's grasp.
+
+The laser feels very warm now, but that doesn't seem to affect its performance
+at all.
+
+>THROW LASER OVER EDGE
+As the laser flies over the edge of the strip, the hungry microbe lunges after
+it. Both the laser and the microbe plummet into the void. (Whew!)
+
+>S.W
+Strip Near Station
+
+A voice seems to whisper in your ear "Main Miniaturization and Teleportation
+Booth has malfunctioned...switching to Auxiliary Booth..." You feel the
+familiar wrenching of your innards, and find yourself in a vast room whose
+distant walls are rushing straight toward you...
+
+Auxiliary Booth
+
+>N
+Lab Office
+This is the office for storing files on Bio Lab experiments. A large and messy
+desk is surrounded by locked files. A small booth lies to the south. A closed
+door to the west is labelled "Biioo Lab." You realize with shock and horror
+that the only way out is through the mutant-infested Bio Lab.
+
+On the wall are three buttons: a white button labelled "Lab Liits On", a black
+button labelled "Lab Liits Of", and a red button labelled "Eemurjensee Sistum."
+
+>OPEN DEKS
+[I don't know the word "deks."]
+
+>OOPS DESK
+Opening the desk reveals a gas mask.
+
+>GET MASK
+Taken.
+
+>WEAR IT
+You are wearing the gas mask.
+
+>SAVE
+To file (PS:<LIZ>MICROBE.P): MASK.P.1Ok.
+
+>PUSH RED BUTTON
+You hear a hissing from beyond the door to the west.
+
+>OPEN DOOR
+The office door is now open.
+Through the open doorway you can see the Bio Lab. It seems to be filled with a
+light mist. Horrifying biological nightmares stagger about making choking
+noises.
+
+>W
+Bio Lab
+This is a huge laboratory filled with many biological experiments. The
+lighting is dim, and a faint blue glow comes from a gaping crack in the
+northern wall. Some of the experiments seem to be out of control...
+A giant plant, teeming with poisonous tentacles, is shuffling toward you on
+three leg-like stalks.
+Lurking nearby is a vicious-looking creature with slavering fangs. Squinting
+in the light, it eyes you hungrily.
+Rushing toward you is an ugly, deformed humanoid, bellowing in a guttural
+tongue. It brandishes a piece of lab equipment shaped somewhat like a battle
+axe.
+A ferocious feral creature, with a hairy shelled body and a whip-like tail
+snaps its enormous mandibles at you.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>OPEN DOOR
+Which door do you mean, the lab door or the office door?
+
+>W
+The lab door is closed.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>OPEN LAB DOOR
+The door opens.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>W
+Bio Lock East
+There is a fused ninety-ohm bedistor here.
+There is a piece of paper here.
+Your former companion, Floyd, is lying on the ground in a pool of oil.
+
+A recorded announcement blares from the public address system. "Revival
+procedure beginning. Cryo-chamber access from Project Control Office now open."
+
+The mutants burst into the room right on your heels! The mobile plant whips
+its poisonous tentacles against your ankles!
+
+>OPEN LAB DOOR
+It's already open!
+
+The door at the eastern end of the bio-lock closes silently.
+
+Dozens of hungry eyes fix on you as the mutations surround you and begin
+feasting.
+
+    ****  You have died  ****
+
+Your score would be 75 (out of 80 points). It is Day 2 of your adventure.
+Current Galactic Standard Time (adjusted to your local day-cycle) is 6711.
+This score gives you the rank of Cluster Admiral.
+
+Oh, well. According to the Treaty of Gishen IV, signed in 8747 GY, all
+adventure game players must be given another chance after dying. In the
+interests of interstellar peace...
+
+Would you like to restart this game from the beginning, restore a saved
+position, end this session of the game, or look at hints?
+(Type RESTART, RESTORE, QUIT, or HINTS):
+>RESTORE
+From file (PS:<LIZ>MASK.P): MASK.P.1Ok.
+Lab Office
+This is the office for storing files on Bio Lab experiments. A large and messy
+desk is surrounded by locked files. A small booth lies to the south. A closed
+door to the west is labelled "Biioo Lab." You realize with shock and horror
+that the only way out is through the mutant-infested Bio Lab.
+
+On the wall are three buttons: a white button labelled "Lab Liits On", a black
+button labelled "Lab Liits Of", and a red button labelled "Eemurjensee Sistum."
+
+>I
+You are carrying:
+  A gas mask (being worn)
+  A miniaturization access card
+  A teleportation access card
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  A cardboard box
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>PUSH RED BUTTON
+You hear a hissing from beyond the door to the west.
+
+>W
+The office door is closed.
+
+>OPEN DOOR
+The office door is now open.
+Through the open doorway you can see the Bio Lab. It seems to be filled with a
+light mist. Horrifying biological nightmares stagger about making choking
+noises.
+
+>W
+Bio Lab
+This is a huge laboratory filled with many biological experiments. The
+lighting is dim, and a faint blue glow comes from a gaping crack in the
+northern wall. Some of the experiments seem to be out of control...
+A giant plant, teeming with poisonous tentacles, is shuffling toward you on
+three leg-like stalks.
+Lurking nearby is a vicious-looking creature with slavering fangs. Squinting
+in the light, it eyes you hungrily.
+Rushing toward you is an ugly, deformed humanoid, bellowing in a guttural
+tongue. It brandishes a piece of lab equipment shaped somewhat like a battle
+axe.
+A ferocious feral creature, with a hairy shelled body and a whip-like tail
+snaps its enormous mandibles at you.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+A recorded announcement blares from the public address system. "Revival
+procedure beginning. Cryo-chamber access from Project Control Office now open."
+
+>OPEN LAB DOOR
+The door opens.
+The air is filled with mist, which is affecting the mutants. They appear to be
+stunned and confused, but are slowly recovering.
+
+>W
+Bio Lock East
+There is a fused ninety-ohm bedistor here.
+There is a piece of paper here.
+Your former companion, Floyd, is lying on the ground in a pool of oil.
+
+The mutants burst into the room right on your heels! The mobile plant whips
+its poisonous tentacles against your ankles!
+
+>W
+Bio Lock West
+
+The door at the eastern end of the bio-lock closes silently.
+
+The monsters gallop toward you, smacking their lips.
+
+>OPEN DOOR
+The door opens.
+
+The mutants are almost upon you now!
+
+>W
+Main Lab
+
+The mutants burst into the room right on your heels! The growling humanoid is
+charging straight at you, waving his axe-like implement!
+
+>SW
+Computer Room
+There is a pile of computer output here.
+
+The mutants burst into the room right on your heels! Needle-sharp mandibles
+nip at your arms!
+
+>N
+Project Corridor East
+
+The mutants burst into the room right on your heels! Needle-sharp mandibles
+nip at your arms!
+
+>W
+Project Corridor
+You are at the center of a long east-west hallway. A doorway, labelled
+"PrajKon Awfis", opens to the south.
+
+The mutants burst into the room right on your heels! A pair of slavering fangs
+removes part of your clothing!
+
+>S
+ProjCon Office
+This office looks like a headquarters of some kind. Exits lead north and east.
+The west wall displays a logo. The mural that previously adorned the south
+wall has slid away, revealing an open doorway to a large elevator!
+
+The mutants burst into the room right on your heels! The growling humanoid is
+charging straight at you, waving his axe-like implement!
+
+>S
+Cryo-Elevator
+This is a large, plain elevator with one solitary button and a door to the
+north which is open.
+
+The monsters are storming straight toward the elevator door!
+
+>PUSH BUTTON
+The elevator door closes just as the monsters reach it! You slump back against
+the wall, exhausted from the chase. The elevator begins to move downward.
+
+>Z
+Time passes...
+
+>SAVE
+To file (PS:<LIZ>MASK.P): END.P.1Ok.
+
+>Z
+Time passes...
+
+>L
+Cryo-Elevator
+This is a large, plain elevator with one solitary button and a door to the
+north which is closed.
+
+>Z
+Time passes...
+
+The elevator door opens onto a room to the north.
+
+>N
+Cryo-Anteroom
+The elevator closes as you leave it, and you find yourself in a small, chilly
+room. To the north, through a wide arch, is an enormous chamber lined from
+floor to ceiling with thousands of cryo-units. You can see similar chambers
+beyond, and your mind staggers at the thought of the millions of individuals
+asleep for countless centuries.
+
+In the anteroom where you stand is a solitary cryo-unit, its cover frosted.
+Next to the cryo-unit is a complicated control panel.
+
+A door slides open and a medical robot glides in. It opens the cryo-unit and
+administers an injection to its inhabitant. As the robot glides away, a figure
+rises from the cryo-unit -- a handsome, middle-aged woman with flowing red
+hair. She spends some time studying readouts from the control panel, pressing
+several keys.
+
+As other cryo-units in the chambers beyond begin opening, the woman turns to
+you, bows gracefully, and speaks in a beautiful, lilting voice. "I am Veldina,
+leader of Resida. Thanks to you, the cure has been discovered, and the
+planetary systems repaired. We are eternally grateful."
+
+"You will also be glad to hear that a ship of your Stellar Patrol now orbits
+the planet. I have sent them the coordinates for this room." As if on cue, a
+landing party from the S.P.S. Flathead materializes nearby. Blather is with
+them, having been picked up from deep space in another escape pod, babbling
+cravenly. Captain Sterling of the Flathead acknowledges your heroic actions,
+and informs you of your promotion to Lieutenant First Class.
+
+As a team of mutant hunters head for the cryo-elevator, Veldina mentions that
+the grateful people of Resida offer you leadership of their world. Captain
+Sterling points out that, even if you choose to remain on Resida, Blather
+(demoted to Ensign Twelfth Class) has been assigned as your personal toilet
+attendant.
+
+You feel a sting from your arm and turn to see a medical robot moving away
+after administering the antidote for The Disease.
+
+A team of robot technicians step into the anteroom. They part their ranks, and
+a familiar figure comes bounding toward you! "Hi!" shouts Floyd, with
+uncontrolled enthusiasm. "Floyd feeling better now!" Smiling from ear to ear,
+he says, "Look what Floyd found!" He hands you a helicopter key, a reactor
+elevator card, and a paddleball set. "Maybe we can use them in the sequel..."
+
+
+Your score would be 80 (out of 80 points). It is Day 2 of your adventure.
+Current Galactic Standard Time (adjusted to your local day-cycle) is 6993.
+This score gives you the rank of Galactic Overlord.
+Would you like to restart this game from the beginning, restore a saved
+position, end this session of the game, or look at hints?
+(Type RESTART, RESTORE, QUIT, or HINTS):
+>RESTORE
+From file (PS:<LIZ>END.P): Failed.
+
+Would you like to restart this game from the beginning, restore a saved
+position, end this session of the game, or look at hints?
+(Type RESTART, RESTORE, QUIT, or HINTS):
+>RESTORE
+From file (PS:<LIZ>END.P): KEY.P.2Ok.
+Admin Corridor South
+This section of hallway seems to have suffered some minor structural damage.
+The walls are cracked, and a jagged crevice crosses the floor. An opening
+leads east and the corridor heads north and south.
+
+>I
+You are carrying:
+  A curved metal bar
+  A survival kit
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>RESTORE
+From file (PS:<LIZ>KEY.P): Failed.
+
+>RESTORE
+From file (PS:<LIZ>KEY.P): Failed.
+
+>RESTORE
+From file (PS:<LIZ>KEY.P): Failed.
+
+>RESTORE
+From file (PS:<LIZ>KEY.P): KITCH.P.1Ok.
+Mess Hall
+This is a large hall lined with tables and benches. An opening to the north
+leads back to the corridor. A door to the south is closed. Next to the door is
+a small slot.
+There is a multiple purpose robot here.
+
+>I
+You are carrying:
+  A kitchen access card
+  An upper elevator access card
+  A canteen
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>RESTORE
+Floyd looks disappointed, but understanding. "That part of the game was more
+fun than this part," he admits.
+
+From file (PS:<LIZ>KITCH.P): LOWER.P.1Ok.
+Lower Elevator
+This is a medium-sized room with a door to the north which is open. A control
+panel contains an Up button, a Down button, and a narrow slot.
+There is a multiple purpose robot here.
+
+>N
+Elevator Lobby
+
+>N
+Upper Elevator
+There is a glass flask here.
+There is an upper elevator access card here.
+
+Floyd bounces into the elevator. "Hey, wait for Floyd!" he yells, smiling
+broadly.
+
+>S.W.S.S.S.S.PUT FLASK UNDER SPOUT.PUSH GREEN BUTTON.GET FLASK.N.N.N.N
+Elevator Lobby
+
+Corridor Junction
+
+Floyd rushes into the room and barrels into you. "Oops, sorry," he says.
+"Floyd not looking at where he was going to."
+
+Mech Corridor North
+
+Mech Corridor
+
+Mech Corridor South
+
+Machine Shop
+
+Floyd bounds into the room. "Floyd here now!" he cries.
+
+You don't have that!
+
+>I
+You are carrying:
+  A canteen
+  The canteen contains:
+    A quantity of protein-rich liquid
+  A cardboard box
+  The cardboard box contains:
+    A pair of wide-nosed pliers
+    A good ninety-ohm bedistor
+  A laser
+  A lower elevator access card
+  A shuttle access card
+  A Patrol uniform (being worn)
+  The Patrol uniform contains:
+    An ID card
+  A chronometer (being worn)
+
+>Q
+Your score would be 34 (out of 80 points). It is Day 2 of your adventure.
+Current Galactic Standard Time (adjusted to your local day-cycle) is 4274.
+This score gives you the rank of Ensign First Class.
+
+Floyd grins impishly. "Giving up, huh?"
+
+Do you wish to leave the game? (Y is affirmative): >Y
diff --git a/syntax.zil b/syntax.zil
new file mode 100644
index 0000000..ef43e3d
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,477 @@
+"SYNTAX for PLANETFALL
+(c) Copyright 1983 Infocom, Inc.  All Rights Reserved"
+
+"SUBTITLE VOCABULARY"
+
+<BUZZ A AN THE IS ARE EQUALS ;= AND OF THEN ALL ONE BUT EXCEPT \. \, \" OUR
+      AGAIN G OOPS O>
+
+<SYNONYM WITH USING THROUGH THRU>
+<SYNONYM IN INSIDE INTO>
+<SYNONYM ALL BOTH>
+<SYNONYM ON ONTO>
+<SYNONYM OVER ABOVE>
+
+<SYNONYM NORTH N FORE FORWARD FOREWARD F>
+<SYNONYM SOUTH S AFT>
+<SYNONYM EAST E CW STARBOARD SB>
+<SYNONYM WEST W CCW PORT P>
+<SYNONYM DOWN D>
+<SYNONYM UP U>
+
+\
+
+<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 SCRIPT = V-SCRIPT>
+
+<SYNTAX UNSCRIPT = V-UNSCRIPT>
+
+<SYNTAX $VERIFY = V-$VERIFY>
+<SYNTAX $VERIFY OBJECT = V-$VERIFY>
+
+<SYNTAX $REFRESH = V-$REFRESH>
+
+<SYNTAX VERSION = V-VERSION>
+
+<SYNTAX VERBOSE = V-VERBOSE>
+
+<SYNTAX \#RANDOM OBJECT = V-$RANDOM>
+
+<SYNTAX \#COMMAND = V-$COMMAND>
+
+<SYNTAX \#RECORD = V-$RECORD>
+
+<SYNTAX \#UNRECORD = V-$UNRECORD>
+
+\
+
+;<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 ACTORBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
+<SYNTAX ATTACK OBJECT WITH OBJECT (HAVE) = V-ATTACK>
+<SYNONYM ATTACK FIGHT HURT INJURE HIT KILL MURDER SLAY DISPATCH>
+
+<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+
+<SYNTAX CLIMB = V-GO-UP>
+<SYNTAX CLIMB ON OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB UP OBJECT (FIND RMUNGBIT) = V-CLIMB-UP>
+<SYNTAX CLIMB TO OBJECT = V-CLIMB-UP>
+<SYNTAX CLIMB WITH OBJECT = V-THROUGH>
+<SYNTAX CLIMB DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
+<SYNTAX CLIMB IN OBJECT (FIND CLIMBBIT)(ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+
+<SYNTAX SIT = V-SIT>
+<SYNTAX SIT ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX SIT DOWN OBJECT (FIND RMUNGBIT) = V-SIT-DOWN>
+<SYNTAX SIT IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX SIT OBJECT (HELD MANY HAVE TAKE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX SIT OBJECT (HELD MANY HAVE TAKE) UNDER OBJECT
+	= V-PUT-UNDER PRE-PUT-UNDER>
+<SYNTAX SIT OBJECT (TAKE) OVER OBJECT = V-ATTRACT>
+<SYNTAX SIT OBJECT (TAKE) NEAR OBJECT = V-ATTRACT>
+<SYNTAX SIT OBJECT ACROSS OBJECT = V-SPAN>
+<SYNONYM SIT RECLINE LIE LAY>
+
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX STAND ON OBJECT = V-STAND-ON>
+<SYNONYM STAND>
+
+<SYNTAX CLOSE OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-CLOSE>
+<SYNONYM CLOSE COLLAPSE FOLD SHORTEN>
+
+<SYNTAX CURSE = V-CURSE>
+<SYNONYM CURSE DAMN SHIT FUCK TROT KRIP MEGAKRIP TROTTING>
+
+<SYNTAX DISEMBARK OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
+
+<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-ON PRE-PUT>
+<SYNONYM DROP RELEASE>
+
+<SYNTAX EAT OBJECT (FIND FOODBIT) (TAKE) = V-EAT>
+<SYNTAX EAT FROM OBJECT (TAKE) = V-EAT-FROM>
+<SYNONYM EAT DRINK SWALLOW>
+
+<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 PRE-EXAMINE>
+<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY) 
+		= V-LOOK-INSIDE>
+<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY)
+		= V-LOOK-INSIDE>
+<SYNONYM EXAMINE X DESCRIBE WHAT WHATS WHAT\'S>
+
+<SYNTAX FIND OBJECT = V-FIND>
+<SYNONYM FIND WHERE SEEK SEE>
+
+<SYNTAX FIRE OBJECT WITH OBJECT (HELD) = V-SZAP PRE-SZAP>
+<SYNTAX FIRE OBJECT = V-ZAP PRE-ZAP>
+<SYNTAX FIRE AT OBJECT = V-ZAP PRE-ZAP>
+<SYNTAX FIRE OBJECT (HELD) AT OBJECT = V-ZAP PRE-ZAP>
+<SYNONYM FIRE ZAP BLAST SHOOT BURN>
+
+<SYNTAX FOLLOW OBJECT (FIND ACTORBIT) = V-FOLLOW>
+<SYNONYM FOLLOW PURSUE CHASE>
+
+<SYNTAX FLUSH OBJECT = V-FLUSH>
+
+<SYNTAX FLY = V-FLY>
+<SYNTAX FLY OBJECT = V-FLY>
+
+<SYNTAX GIVE OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT)
+        = V-GIVE PRE-GIVE>
+<SYNTAX GIVE OBJECT (FIND ACTORBIT) (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-HINT>
+<SYNTAX HELP OFF OBJECT (FIND RMUNGBIT) = V-HINTS-NO>
+<SYNONYM HELP HINT HINTS CLUE CLUES INVISICLUE>
+
+<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-LEAP>
+<SYNONYM JUMP LEAP>
+
+<SYNTAX KICK OBJECT = V-KICK>
+
+<SYNTAX KISS OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KISS>
+
+<SYNTAX KNOCK AT OBJECT = V-KNOCK>
+<SYNTAX KNOCK ON OBJECT = V-KNOCK>
+<SYNTAX KNOCK DOWN OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
+<SYNONYM KNOCK RAP>
+
+<SYNTAX LEAVE = V-LEAVE>
+<SYNTAX LEAVE OBJECT = V-DROP>
+
+<SYNTAX LISTEN TO OBJECT = V-LISTEN>
+
+<SYNTAX LOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (HELD) = V-LOCK>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK OBJECT = V-LOOK-CRETIN>
+<SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY)
+	= V-EXAMINE PRE-EXAMINE>
+<SYNTAX LOOK ON OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY)
+	= V-EXAMINE PRE-EXAMINE>
+<SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
+<SYNTAX LOOK OUT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
+<SYNTAX LOOK FOR OBJECT = V-FIND>
+<SYNTAX LOOK DOWN OBJECT (FIND RMUNGBIT) = V-LOOK-DOWN>
+<SYNONYM LOOK L STARE GAZE>
+
+<SYNTAX SEARCH OBJECT = V-SEARCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH>
+<SYNTAX SEARCH FOR OBJECT = V-FIND>
+<SYNTAX SEARCH WITH OBJECT = V-SEARCH> ;"THROUGH"
+<SYNONYM SEARCH RUMMAGE SORT SIFT>
+
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
+<SYNTAX MOVE UP OBJECT = V-PUSH-UP>
+<SYNTAX MOVE DOWN OBJECT = V-PUSH-DOWN>
+
+<SYNTAX POINT AT OBJECT (ON-GROUND IN-ROOM) = V-POINT>
+<SYNTAX POINT TO OBJECT (ON-GROUND IN-ROOM) = V-POINT>
+<SYNTAX POINT OBJECT (HELD CARRIED HAVE) AT OBJECT (ON-GROUND IN-ROOM)
+	= V-POINT>
+<SYNONYM POINT GESTURE AIM>
+
+<SYNTAX PULL OBJECT = V-PULL>
+<SYNTAX PULL DOWN OBJECT = V-PUSH-DOWN>
+<SYNTAX PULL UP OBJECT = V-PUSH-UP>
+<SYNTAX PULL ON OBJECT = V-PULL>
+<SYNTAX PULL OBJECT WITH OBJECT (TAKE) = V-ZATTRACT>
+<SYNONYM PULL TUG>
+
+<SYNTAX DESTROY OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-MUNG>
+<SYNTAX DESTROY OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
+	WITH OBJECT (HAVE) = V-MUNG>
+<SYNTAX DESTROY DOWN OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-MUNG>
+<SYNONYM DESTROY DAMAGE BREAK SMASH>
+
+<SYNTAX OPEN OBJECT (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 WITH OBJECT (HAVE) = V-OPEN-WITH>
+<SYNONYM OPEN EXTEND UNFOLD LENGTHEN>
+
+<SYNTAX PICK UP OBJECT (FIND TAKEBIT) (ON-GROUND MANY) = V-TAKE PRE-TAKE>
+<SYNTAX PICK UP OBJECT WITH OBJECT (TAKE) = V-ZATTRACT>
+
+<SYNTAX PLAY OBJECT = V-PLAY>
+<SYNTAX PLAY WITH OBJECT (FIND ACTORBIT) = V-PLAY-WITH>
+<SYNTAX PLAY OBJECT WITH OBJECT (FIND ACTORBIT) = V-PLAY> 
+
+<SYNTAX PUSH OBJECT = V-PUSH>
+<SYNTAX PUSH ON OBJECT = V-PUSH>
+<SYNTAX PUSH OFF OBJECT = V-PUSH>
+<SYNTAX PUSH AGAINST OBJECT = V-PUSH>
+<SYNTAX PUSH UP OBJECT = V-PUSH-UP>
+<SYNTAX PUSH DOWN OBJECT = V-PUSH-DOWN>
+<SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER PRE-PUT-UNDER>
+<SYNONYM PUSH PRESS>
+
+<SYNTAX PUT OBJECT (HELD MANY HAVE TAKE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX PUT OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT DOWN OBJECT (HELD MANY HAVE) = V-DROP>
+<SYNTAX PUT OBJECT (HELD MANY HAVE TAKE) UNDER OBJECT = V-PUT-UNDER PRE-PUT-UNDER> 
+<SYNTAX PUT ON OBJECT (HAVE TAKE) = V-WEAR>
+<SYNTAX PUT OBJECT (TAKE) OVER OBJECT = V-ATTRACT>
+<SYNTAX PUT OBJECT (TAKE) NEAR OBJECT = V-ATTRACT>
+<SYNTAX PUT OBJECT ACROSS OBJECT = V-SPAN>
+<SYNTAX PUT OBJECT (HELD CARRIED HAVE) WITH OBJECT = V-SLIDE>
+<SYNTAX PUT OBJECT = V-INSERT>
+<SYNONYM PUT STUFF INSERT PLACE>
+
+<SYNTAX RAPE OBJECT (FIND ACTORBIT) = V-RAPE>
+<SYNONYM RAPE MOLEST>
+
+<SYNTAX REACH IN OBJECT (FIND CONTBIT) = V-REACH>
+<SYNTAX REACH FOR OBJECT = V-REACH-FOR>
+
+<SYNTAX READ OBJECT (FIND READBIT) (TAKE) = V-READ PRE-READ>
+<SYNONYM READ SKIM>
+
+<SYNTAX RUB OBJECT = V-RUB>
+<SYNTAX RUB OBJECT WITH OBJECT (TAKE) = V-ZATTRACT>
+<SYNTAX RUB OBJECT (TAKE) TO OBJECT = V-ATTRACT>
+<SYNONYM RUB TOUCH FEEL PAT PET>
+
+<SYNTAX SCRUB OBJECT = V-SCRUB>
+<SYNTAX SCRUB UP OBJECT = V-SCRUB>
+<SYNTAX SCRUB OBJECT WITH OBJECT (HAVE) = V-SCRUB>
+<SYNONYM SCRUB SWAB POLISH CLEAN SHINE MOP BRUSH>
+
+<SYNTAX SLEEP = V-SLEEP>
+
+<SYNTAX SHAKE OBJECT = V-SHAKE>
+<SYNTAX SHAKE OBJECT WITH OBJECT (FIND ACTORBIT) = V-SHAKE-WITH>
+
+<SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER PRE-PUT-UNDER>
+<SYNTAX SLIDE OBJECT (HELD CARRIED HAVE) WITH OBJECT = V-SLIDE>
+<SYNTAX SLIDE OBJECT ACROSS OBJECT = V-SPAN>
+<SYNONYM SLIDE SWING>
+
+<SYNTAX SKIP = V-SKIP>
+<SYNONYM SKIP HOP>
+
+<SYNTAX SMELL OBJECT = V-SMELL>
+<SYNONYM SMELL SNIFF>
+
+<SYNTAX STEP ON OBJECT = V-STEP-ON>
+<SYNTAX STEP IN OBJECT = V-STEP-ON>
+
+<SYNTAX STRIKE OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) WITH
+	OBJECT (HELD CARRIED ON-GROUND IN-ROOM HAVE) = V-ATTACK>
+<SYNTAX STRIKE OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
+
+<SYNTAX SWIM = V-SWIM>
+<SYNTAX SWIM OBJECT = V-SWIM-DIR>
+<SYNTAX SWIM TO OBJECT = V-SWIM-DIR>
+<SYNTAX SWIM IN OBJECT = V-SWIM>
+<SYNTAX SWIM UP OBJECT (FIND RMUNGBIT) = V-SWIM-UP>
+<SYNTAX SWIM DOWN OBJECT (FIND RMUNGBIT) = V-SWIM-DIR>
+<SYNONYM SWIM BATHE WADE>
+
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (ON-GROUND MANY) = V-TAKE PRE-TAKE>
+<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX TAKE OUT OBJECT (FIND RMUNGBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
+<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM) OUT OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM) OFF OBJECT
+	= V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	FROM OBJECT (ON-GROUND HELD) = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OFF OBJECT (FIND WEARBIT) (HELD CARRIED MANY) = V-TAKE-OFF>
+<SYNTAX TAKE UP OBJECT (FIND RMUNGBIT) = V-STAND>
+<SYNTAX TAKE OBJECT (TAKE) OVER OBJECT = V-ATTRACT>
+<SYNTAX TAKE OBJECT (TAKE) NEAR OBJECT = V-ATTRACT>
+<SYNTAX TAKE OBJECT WITH OBJECT (TAKE) = V-ZATTRACT>
+<SYNONYM TAKE GET HOLD CARRY>
+
+<SYNTAX REMOVE OBJECT = V-REMOVE>
+<SYNTAX REMOVE OBJECT FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX REMOVE OBJECT WITH OBJECT (TAKE) = V-ZATTRACT>
+
+<SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL>
+<SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) FOR OBJECT = V-ASK-FOR>
+<SYNONYM TELL ASK>
+
+<SYNTAX SMILE AT OBJECT (FIND ACTORBIT) = V-SMILE>
+<SYNTAX SMILE = V-SMILE>
+<SYNONYM SMILE GRIN>
+
+<SYNTAX SALUTE OBJECT = V-SALUTE>
+
+<SYNTAX SAY TO OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TALK>
+<SYNTAX SAY = V-SAY>
+<SYNONYM SAY TALK>
+
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) AT OBJECT (ON-GROUND IN-ROOM) 
+	= V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) WITH OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) OFF OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) ON OBJECT = V-PUT PRE-PUT>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED HAVE) = V-THROW>
+<SYNONYM THROW HURL CHUCK TOSS>
+
+<SYNTAX TURN OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH OBJECT (ON-GROUND IN-ROOM HELD CARRIED HAVE) = V-TURN>
+<SYNTAX TURN ON OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+        = V-LAMP-ON>
+<SYNTAX TURN OFF OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+        = V-LAMP-OFF>
+<SYNTAX TURN OBJECT (ON-GROUND IN-ROOM) TO OBJECT = V-SET>
+<SYNTAX TURN OBJECT (ON-GROUND IN-ROOM) = V-SET>
+<SYNONYM TURN SET>
+
+<SYNTAX ACTIVATE OBJECT (FIND LIGHTBIT) = V-LAMP-ON>
+
+<SYNTAX TYPE OBJECT = V-TYPE>
+<SYNTAX TYPE IN OBJECT = V-TYPE>
+
+<SYNTAX UNLOCK OBJECT (ON-GROUND IN-ROOM) WITH
+	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	= V-UNLOCK>
+
+<SYNTAX WAIT = V-WAIT>
+<SYNONYM WAIT Z>
+
+<SYNTAX WAKE OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-ALARM>
+<SYNTAX WAKE UP OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-ALARM>
+<SYNONYM WAKE AWAKE SURPRISE STARTLE>
+
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT = V-THROUGH>
+<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>
+<SYNTAX WALK OUT OBJECT = V-EXIT>
+<SYNTAX WALK OBJECT (HELD CARRIED HAVE) WITH OBJECT = V-SLIDE>
+<SYNONYM WALK GO RUN PROCEED>
+
+<SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
+<SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE>
+<SYNTAX WAVE OBJECT (TAKE) OVER OBJECT = V-ATTRACT>
+<SYNTAX WAVE OBJECT (TAKE) NEAR OBJECT = V-ATTRACT>
+<SYNONYM WAVE BRANDISH>
+
+<SYNTAX WEAR OBJECT (HAVE TAKE) = V-WEAR>
+<SYNONYM WEAR>
+
+<SYNTAX YELL = V-YELL>
+<SYNTAX YELL AT OBJECT (FIND ACTORBIT) = V-SCOLD>
+<SYNONYM YELL SCREAM SHOUT>
+
+<SYNTAX ZORK = V-ZORK>
+<SYNONYM ZORK SNEEZE>
+
+<SYNTAX YES = V-YES>
+<SYNTAX YES OBJECT = V-YES>
+<SYNONYM YES Y AFFIRMATIVE>
+
+<SYNTAX NO = V-NO>
+<SYNONYM NO NEGATIVE>
+
+<SYNTAX MAYBE = V-MAYBE>
+<SYNONYM MAYBE POSSIBLY DUNNO>
+
+%<COND (<NOT <GASSIGNED? PREDGEN>>
+	<SYNTAX Z = V-ESCAPE>)>
+
+<SYNTAX POUR OBJECT = V-POUR>
+<SYNTAX POUR OBJECT OVER OBJECT = V-POUR>
+<SYNTAX POUR OBJECT ON OBJECT = V-POUR>
+<SYNTAX POUR OBJECT OUT OBJECT = V-POUR>
+<SYNTAX POUR OBJECT IN OBJECT = V-POUR>
+<SYNONYM POUR SPILL>
+
+<SYNTAX EMPTY OBJECT (HAVE) = V-EMPTY>
+<SYNTAX EMPTY OBJECT (HAVE) IN OBJECT = V-EMPTY>
+
+<SYNTAX ATTRACT OBJECT WITH OBJECT (TAKE) = V-ZATTRACT>
+
+<SYNTAX FIX OBJECT = V-FIX-IT>
+<SYNONYM FIX REPAIR>
+
+<SYNTAX OIL OBJECT = V-OIL>
+<SYNTAX OIL OBJECT WITH OBJECT (HAVE) = V-OIL>
+<SYNONYM OIL LUBRICATE>
+
+<SYNTAX SHOW OBJECT (HAVE) TO OBJECT (FIND ACTORBIT) = V-SHOW>
+
+<SYNTAX TASTE OBJECT = V-TASTE>
+
+<SYNTAX ESCAPE = V-ZESCAPE>
+
+<SYNTAX TIME = V-TIME>
+<SYNONYM TIME T>
+
+<SYNTAX SCOLD OBJECT (FIND ACTORBIT) = V-SCOLD>
+
+^L 
+
+;"debugging and game-testing features"
+
+;<SYNTAX $CRAG = V-CRAG>
+
+;<SYNTAX $FORK = V-FORK>
+
+;<SYNTAX $CARDS = V-CARDS>
+
+;<SYNTAX $BOOTH = V-BOOTH>
+
+;<SYNTAX $FIX = V-FIX>
\ No newline at end of file
diff --git a/verbs.zabstr b/verbs.zabstr
new file mode 100644
index 0000000..d5e8a92
--- /dev/null
+++ b/verbs.zabstr
@@ -0,0 +1,212 @@
+
+<GLOBAL VERBOSE <> %<> WORD> 
+<GLOBAL SUPER-BRIEF <> %<> WORD> 
+<DEFINE-ROUTINE V-VERBOSE> 
+<DEFINE-ROUTINE V-BRIEF> 
+<DEFINE-ROUTINE V-SUPER-BRIEF> 
+<DEFINE-ROUTINE V-LOOK> 
+<DEFINE-ROUTINE V-LOOK-CRETIN> 
+<DEFINE-ROUTINE V-FIRST-LOOK> 
+<DEFINE-ROUTINE PRE-EXAMINE> 
+<DEFINE-ROUTINE V-EXAMINE> 
+<GLOBAL LIT 0 %<> WORD> 
+<DEFINE-ROUTINE DESCRIBE-ROOM> 
+<DEFINE-ROUTINE DESCRIBE-OBJECTS> 
+<DEFINE-ROUTINE DESCRIBE-OBJECT> 
+<DEFINE-ROUTINE PRINT-CONT> 
+<DEFINE-ROUTINE FIRSTER> 
+<DEFINE-ROUTINE STOP> 
+<GLOBAL MOVES 0 %<> WORD> 
+<GLOBAL INTERNAL-MOVES 0 %<> WORD> 
+<GLOBAL SCORE 0 %<> WORD> 
+<GLOBAL DAY 1 %<> WORD> 
+<DEFINE-ROUTINE SCORE-OBJ> 
+<DEFINE-ROUTINE V-SCORE> 
+<DEFINE-ROUTINE FINISH> 
+<DEFINE-ROUTINE V-QUIT> 
+<DEFINE-ROUTINE YES?> 
+<DEFINE-ROUTINE V-$ID> 
+<DEFINE-ROUTINE V-VERSION> 
+<DEFINE-ROUTINE JIGS-UP> 
+<DEFINE-ROUTINE V-RESTORE> 
+<DEFINE-ROUTINE V-SAVE> 
+<DEFINE-ROUTINE V-$REFRESH> 
+<DEFINE-ROUTINE V-RESTART> 
+<CONSTANT NEXITSTR 0> 
+<CONSTANT FEXITFCN 0> 
+<DEFINE-ROUTINE V-WALK-AROUND> 
+<DEFINE-ROUTINE V-WALK-TO> 
+<DEFINE-ROUTINE V-WALK> 
+<DEFINE-ROUTINE V-INVENTORY> 
+<CONSTANT INDENTS <PTABLE "" "  " "    " "      " "        " "          ">> 
+<DEFINE-ROUTINE PRE-TAKE> 
+<DEFINE-ROUTINE V-TAKE> 
+<GLOBAL FUMBLE-NUMBER 7 %<> WORD> 
+<GLOBAL FUMBLE-PROB 8 %<> WORD> 
+<DEFINE-ROUTINE TRYTAKE> 
+<DEFINE-ROUTINE ITAKE> 
+<DEFINE-ROUTINE PRE-PUT> 
+<DEFINE-ROUTINE V-PUT> 
+<DEFINE-ROUTINE V-SLIDE> 
+<DEFINE-ROUTINE PRE-GIVE> 
+<DEFINE-ROUTINE PRE-SGIVE> 
+<DEFINE-ROUTINE V-GIVE> 
+<DEFINE-ROUTINE V-SGIVE> 
+<DEFINE-ROUTINE V-DROP> 
+<DEFINE-ROUTINE V-THROW> 
+<DEFINE-ROUTINE IDROP> 
+<DEFINE-ROUTINE V-OPEN> 
+<DEFINE-ROUTINE V-OPEN-WITH> 
+<DEFINE-ROUTINE PRINT-CONTENTS> 
+<DEFINE-ROUTINE V-CLOSE> 
+<DEFINE-ROUTINE CCOUNT> 
+<DEFINE-ROUTINE WEIGHT> 
+<DEFINE-ROUTINE COPR-NOTICE> 
+<DEFINE-ROUTINE V-SCRIPT> 
+<DEFINE-ROUTINE V-UNSCRIPT> 
+<DEFINE-ROUTINE PRE-MOVE> 
+<DEFINE-ROUTINE V-MOVE> 
+<DEFINE-ROUTINE V-LAMP-ON> 
+<DEFINE-ROUTINE V-LAMP-OFF> 
+<DEFINE-ROUTINE V-WAIT> 
+<DEFINE-ROUTINE PRE-BOARD> 
+<DEFINE-ROUTINE V-BOARD> 
+<DEFINE-ROUTINE V-DISEMBARK> 
+<DEFINE-ROUTINE OWN-FEET> 
+<DEFINE-ROUTINE V-STAND> 
+<DEFINE-ROUTINE GOTO> 
+<DEFINE-ROUTINE V-EAT> 
+<DEFINE-ROUTINE V-EAT-FROM> 
+<DEFINE-ROUTINE V-CURSE> 
+<DEFINE-ROUTINE V-LISTEN> 
+<DEFINE-ROUTINE V-FOLLOW> 
+<DEFINE-ROUTINE V-LEAP> 
+<DEFINE-ROUTINE V-SKIP> 
+<DEFINE-ROUTINE V-LEAVE> 
+<DEFINE-ROUTINE V-HELLO> 
+<CONSTANT HELLOS <PLTABLE "Hello." "Nice weather we're having." "Goodbye.">> 
+<CONSTANT WHEEEEE <PLTABLE
+"You've spent too much time among the Leaping Loon-toads of Leonia."
+"Having fun?" "Wheeeeeee!!!">> 
+<DEFINE-ROUTINE PRE-READ> 
+<DEFINE-ROUTINE V-READ> 
+<DEFINE-ROUTINE V-LOOK-UNDER> 
+<DEFINE-ROUTINE V-LOOK-BEHIND> 
+<DEFINE-ROUTINE V-LOOK-INSIDE> 
+<DEFINE-ROUTINE SEE-INSIDE?> 
+<DEFINE-ROUTINE V-LOOK-DOWN> 
+<DEFINE-ROUTINE V-TURN> 
+<DEFINE-ROUTINE V-LOCK> 
+<DEFINE-ROUTINE V-UNLOCK> 
+<DEFINE-ROUTINE V-ATTACK> 
+<DEFINE-ROUTINE V-KICK> 
+<DEFINE-ROUTINE V-WAVE> 
+<DEFINE-ROUTINE V-RUB> 
+<DEFINE-ROUTINE V-PUSH> 
+<DEFINE-ROUTINE NO-BUTTON> 
+<DEFINE-ROUTINE V-PUSH-UP> 
+<DEFINE-ROUTINE V-PUSH-DOWN> 
+<DEFINE-ROUTINE V-PULL> 
+<DEFINE-ROUTINE V-MUNG> 
+<DEFINE-ROUTINE HACK-HACK> 
+<CONSTANT HO-HUM <PLTABLE " isn't notably helpful." " has no effect."
+" is as worthwhile as cleaning a Grotch cage.">> 
+<DEFINE-ROUTINE WORD-TYPE> 
+<DEFINE-ROUTINE V-KNOCK> 
+<DEFINE-ROUTINE V-YELL> 
+<DEFINE-ROUTINE BATTERY-FALLS> 
+<DEFINE-ROUTINE V-SHAKE> 
+<DEFINE-ROUTINE V-SHAKE-WITH> 
+<DEFINE-ROUTINE V-SMELL> 
+<DEFINE-ROUTINE GLOBAL-IN?> 
+<DEFINE-ROUTINE V-SWIM> 
+<DEFINE-ROUTINE V-SWIM-DIR> 
+<DEFINE-ROUTINE V-SWIM-UP> 
+<DEFINE-ROUTINE V-ALARM> 
+<DEFINE-ROUTINE V-ZORK> 
+<DEFINE-ROUTINE V-SIT> 
+<DEFINE-ROUTINE V-SIT-DOWN> 
+<DEFINE-ROUTINE V-GO-UP> 
+<DEFINE-ROUTINE V-CLIMB-ON> 
+<DEFINE-ROUTINE V-CLIMB-FOO> 
+<DEFINE-ROUTINE V-CLIMB-UP> 
+<DEFINE-ROUTINE V-CLIMB-DOWN> 
+<DEFINE-ROUTINE PRE-PUT-UNDER> 
+<DEFINE-ROUTINE V-PUT-UNDER> 
+<DEFINE-ROUTINE V-ENTER> 
+<DEFINE-ROUTINE V-EXIT> 
+<DEFINE-ROUTINE V-SEARCH> 
+<DEFINE-ROUTINE V-FIND> 
+<DEFINE-ROUTINE V-TELL> 
+<DEFINE-ROUTINE V-ASK-FOR> 
+<DEFINE-ROUTINE V-SAY> 
+<DEFINE-ROUTINE V-TALK> 
+<DEFINE-ROUTINE V-ANSWER> 
+<DEFINE-ROUTINE V-REPLY> 
+<DEFINE-ROUTINE V-KISS> 
+<DEFINE-ROUTINE V-RAPE> 
+<DEFINE-ROUTINE V-DIAGNOSE> 
+<DEFINE-ROUTINE V-WEAR> 
+<DEFINE-ROUTINE V-REMOVE> 
+<DEFINE-ROUTINE V-TAKE-OFF> 
+<DEFINE-ROUTINE V-STEP-ON> 
+<DEFINE-ROUTINE V-PUT-ON> 
+<DEFINE-ROUTINE V-NO> 
+<DEFINE-ROUTINE V-YES> 
+<DEFINE-ROUTINE V-MAYBE> 
+<DEFINE-ROUTINE V-POINT> 
+<DEFINE-ROUTINE V-SET> 
+<DEFINE-ROUTINE V-$VERIFY> 
+<CONSTANT SERIAL 0> 
+<DEFINE-ROUTINE V-$COMMAND> 
+<DEFINE-ROUTINE V-$RANDOM> 
+<CONSTANT D-RECORD-ON 4> 
+<CONSTANT D-RECORD-OFF -4> 
+<DEFINE-ROUTINE V-$RECORD> 
+<DEFINE-ROUTINE V-$UNRECORD> 
+<DEFINE-ROUTINE V-STAND-ON> 
+<DEFINE-ROUTINE V-REACH> 
+<DEFINE-ROUTINE V-REACH-FOR> 
+<DEFINE-ROUTINE DO-WALK> 
+<DEFINE-ROUTINE V-FLUSH> 
+<DEFINE-ROUTINE V-FLY> 
+<DEFINE-ROUTINE V-SMILE> 
+<DEFINE-ROUTINE V-SALUTE> 
+<DEFINE-ROUTINE V-ATTRACT> 
+<DEFINE-ROUTINE V-ZATTRACT> 
+<DEFINE-ROUTINE V-SPAN> 
+<DEFINE-ROUTINE NUMBERS-ONLY> 
+<DEFINE-ROUTINE V-TYPE> 
+<DEFINE-ROUTINE PRE-SZAP> 
+<DEFINE-ROUTINE PRE-ZAP> 
+<DEFINE-ROUTINE V-ZAP> 
+<DEFINE-ROUTINE V-SZAP> 
+<DEFINE-ROUTINE V-SCRUB> 
+<DEFINE-ROUTINE V-POUR> 
+<DEFINE-ROUTINE V-EMPTY> 
+<DEFINE-ROUTINE V-THROW-OFF> 
+<DEFINE-ROUTINE V-SLEEP> 
+<DEFINE-ROUTINE V-FIX-IT> 
+<DEFINE-ROUTINE V-OIL> 
+<DEFINE-ROUTINE V-SHOW> 
+<DEFINE-ROUTINE V-INSERT> 
+<DEFINE-ROUTINE V-TASTE> 
+<DEFINE-ROUTINE V-ZESCAPE> 
+<DEFINE-ROUTINE V-TIME> 
+<DEFINE-ROUTINE V-PLAY> 
+<DEFINE-ROUTINE V-PLAY-WITH> 
+<DEFINE-ROUTINE V-SCOLD> 
+<DEFINE-ROUTINE ROB> 
+<CONSTANT YUKS <PLTABLE "Fat chance." "A valiant attempt."
+"You can't be serious." "Not bloody likely." "An interesting idea..."
+"What a concept!">> 
+<DEFINE-ROUTINE THIS-IS-IT> 
+<DEFINE-ROUTINE ACCESSIBLE?> 
+<DEFINE-ROUTINE VISIBLE?> 
+<DEFINE-ROUTINE A-AN> 
+<DEFINE-ROUTINE ALREADY> 
+<DEFINE-ROUTINE NOT-HOLDING> 
+<DEFINE-ROUTINE TAKE-IT-OFF> 
+<DEFINE-ROUTINE ANYMORE> 
+<DEFINE-ROUTINE FIXED-FONT-ON> 
+<DEFINE-ROUTINE FIXED-FONT-OFF> 
\ No newline at end of file
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..c3f8752
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,2314 @@
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSE,TRUE-VALUE
+	SET	'SUPER-BRIEF,FALSE-VALUE
+	PRINTI	"Maximum verbosity."
+	CRLF	
+	CRLF	
+	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSE,FALSE-VALUE
+	SET	'SUPER-BRIEF,FALSE-VALUE
+	PRINTR	"Brief descriptions."
+
+
+	.FUNCT	V-SUPER-BRIEF
+	SET	'SUPER-BRIEF,TRUE-VALUE
+	PRINTR	"Superbrief descriptions."
+
+
+	.FUNCT	V-LOOK
+	SET	'C-ELAPSED,9
+	CALL2	DESCRIBE-ROOM,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL2	DESCRIBE-OBJECTS,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-CRETIN
+	PRINTR	"This isn't a primitive two-word-parser adventure game. If you want to look AT that object, please say so."
+
+
+	.FUNCT	V-FIRST-LOOK
+	CALL1	DESCRIBE-ROOM
+	ZERO?	STACK /FALSE
+	ZERO?	SUPER-BRIEF \FALSE
+	CALL1	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	PRE-EXAMINE
+	CALL2	HERE?,PRSO
+	ZERO?	STACK \FALSE
+	IN?	PRSO,GLOBAL-OBJECTS /FALSE
+	EQUAL?	PRSO,PSEUDO-OBJECT /FALSE
+	IN?	PRSO,LOCAL-GLOBALS \?PRD8
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK \FALSE
+?PRD8:	EQUAL?	PRSO,GRUE /FALSE
+	PRINTI	"You can't see any"
+	ICALL1	PRSO-PRINT
+	PRINTR	" here!"
+
+
+	.FUNCT	V-EXAMINE
+	SET	'C-ELAPSED,32
+	GETP	PRSO,P?TEXT
+	ZERO?	STACK /?CCL3
+	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL3:	FSET?	PRSO,DOORBIT \?CCL5
+	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?CCL5:	FSET?	PRSO,CONTBIT \?CCL7
+	FSET?	PRSO,OPENBIT \?CCL10
+	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?CCL10:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is closed."
+?CCL7:	PRINTI	"I see nothing special about the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	DESCRIBE-ROOM,LOOK?,V?,STR,AV
+	ZERO?	LOOK? /?PRD3
+	SET	'V?,LOOK?
+	JUMP	?PEN1
+?PRD3:	SET	'V?,VERBOSE
+?PEN1:	ZERO?	LIT \?CND4
+	PRINTI	"It is pitch black. You might be eaten by a grue."
+	CRLF	
+	EQUAL?	HERE,TRANSPORTATION-SUPPLY \FALSE
+	PRINTI	"There is light to the south."
+	CRLF	
+	RFALSE	
+?CND4:	FSET?	HERE,TOUCHBIT /?CND8
+	FSET	HERE,TOUCHBIT
+	SET	'V?,TRUE-VALUE
+?CND8:	IN?	HERE,ROOMS \?CND10
+	PRINTD	HERE
+	LOC	ADVENTURER
+	FSET?	STACK,VEHBIT \?CND12
+	PRINTI	", in the "
+	LOC	ADVENTURER
+	PRINTD	STACK
+?CND12:	CRLF	
+?CND10:	ZERO?	LOOK? \?CCL15
+	ZERO?	SUPER-BRIEF \TRUE
+?CCL15:	LOC	ADVENTURER >AV
+	ZERO?	V? /?CCL20
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK \TRUE
+?CCL20:	ZERO?	V? /?CCL24
+	GETP	HERE,P?LDESC >STR
+	ZERO?	STR /?CCL24
+	PRINT	STR
+	CRLF	
+	JUMP	?CND18
+?CCL24:	GETP	HERE,P?ACTION
+	ICALL	STACK,M-FLASH
+?CND18:	EQUAL?	HERE,AV /TRUE
+	FSET?	AV,VEHBIT \TRUE
+	GETP	AV,P?ACTION
+	ICALL	STACK,M-LOOK
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-OBJECTS,V?
+	ZERO?	LIT /?CCL3
+	FIRST?	HERE \FALSE
+	ZERO?	V? /?PRD9
+	SET	'V?,V?
+	JUMP	?PEN7
+?PRD9:	SET	'V?,VERBOSE
+?PEN7:	CALL	PRINT-CONT,HERE,V?,-1
+	RSTACK	
+?CCL3:	PRINTR	"You can't see anything in the dark."
+
+
+	.FUNCT	DESCRIBE-OBJECT,OBJ,V?,LEVEL,STR,AV
+	ZERO?	LEVEL \?CCL3
+	GETP	OBJ,P?DESCFCN
+	CALL	STACK,M-OBJDESC
+	ZERO?	STACK \TRUE
+?CCL3:	EQUAL?	OBJ,SPOUT-PLACED /TRUE
+	ZERO?	LEVEL \?CCL9
+	FSET?	OBJ,TOUCHBIT /?PRD13
+	GETP	OBJ,P?FDESC >STR
+	ZERO?	STR \?CTR8
+?PRD13:	GETP	OBJ,P?LDESC >STR
+	ZERO?	STR /?CCL9
+?CTR8:	PRINT	STR
+	JUMP	?CND1
+?CCL9:	ZERO?	LEVEL \?CCL17
+	PRINTI	"There is "
+	FSET?	OBJ,VOWELBIT \?CCL21
+	PRINTI	"an "
+	JUMP	?CND19
+?CCL21:	PRINTI	"a "
+?CND19:	PRINTD	OBJ
+	PRINTI	" here."
+	JUMP	?CND1
+?CCL17:	GET	INDENTS,LEVEL
+	PRINT	STACK
+	FSET?	OBJ,VOWELBIT \?CCL24
+	PRINTI	"An "
+	JUMP	?CND22
+?CCL24:	PRINTI	"A "
+?CND22:	PRINTD	OBJ
+	FSET?	OBJ,WORNBIT \?CND1
+	PRINTI	" (being worn)"
+?CND1:	ZERO?	LEVEL \?CND27
+	LOC	ADVENTURER >AV
+	ZERO?	AV /?CND27
+	FSET?	AV,VEHBIT \?CND27
+	PRINTI	" (outside the "
+	PRINTD	AV
+	PRINTC	41
+?CND27:	CRLF	
+	CALL2	SEE-INSIDE?,OBJ
+	ZERO?	STACK /FALSE
+	FIRST?	OBJ \FALSE
+	CALL	PRINT-CONT,OBJ,V?,LEVEL
+	RSTACK	
+
+
+	.FUNCT	PRINT-CONT,OBJ,V?,LEVEL,Y,1ST?,AV,STR,PV?,INV?
+	FIRST?	OBJ >Y \TRUE
+	LOC	ADVENTURER >AV
+	ZERO?	AV /?CCL5
+	FSET?	AV,VEHBIT /?CND3
+?CCL5:	SET	'AV,FALSE-VALUE
+?CND3:	SET	'1ST?,TRUE-VALUE
+	LOC	OBJ
+	EQUAL?	ADVENTURER,OBJ,STACK \?PRG11
+	SET	'INV?,TRUE-VALUE
+?CND8:	FIRST?	OBJ >Y /?PRG32
+?PRG32:	ZERO?	Y \?CCL36
+	ZERO?	PV? /?CND37
+	ZERO?	AV /?CND37
+	FIRST?	AV \?CND37
+	ICALL	PRINT-CONT,AV,V?,LEVEL
+?CND37:	ZERO?	1ST? /TRUE
+	RFALSE	
+?PRG11:	ZERO?	Y /?CND8
+	EQUAL?	Y,AV \?CCL17
+	SET	'PV?,TRUE-VALUE
+	JUMP	?CND13
+?CCL17:	EQUAL?	Y,WINNER /?CND13
+	FSET?	Y,INVISIBLE /?CND13
+	FSET?	Y,TOUCHBIT /?CND13
+	GETP	Y,P?FDESC >STR
+	ZERO?	STR /?CND13
+	FSET?	Y,NDESCBIT /?CND23
+	PRINT	STR
+	CRLF	
+?CND23:	CALL2	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND13
+	LOC	Y
+	GETP	STACK,P?DESCFCN
+	ZERO?	STACK \?CND13
+	FIRST?	Y \?CND13
+	ICALL	PRINT-CONT,Y,V?,0
+?CND13:	NEXT?	Y >Y /?PRG11
+	JUMP	?PRG11
+?CCL36:	EQUAL?	Y,AV,ADVENTURER /?CND34
+	FSET?	Y,INVISIBLE /?CND34
+	ZERO?	INV? \?CCL46
+	FSET?	Y,TOUCHBIT /?CCL46
+	GETP	Y,P?FDESC
+	ZERO?	STACK \?CND34
+?CCL46:	FSET?	Y,NDESCBIT /?CCL54
+	ZERO?	1ST? /?CND55
+	CALL	FIRSTER,OBJ,LEVEL
+	ZERO?	STACK /?CND57
+	LESS?	LEVEL,0 \?CND57
+	SET	'LEVEL,0
+?CND57:	INC	'LEVEL
+	SET	'1ST?,FALSE-VALUE
+?CND55:	ICALL	DESCRIBE-OBJECT,Y,V?,LEVEL
+	JUMP	?CND34
+?CCL54:	FIRST?	Y \?CND34
+	CALL2	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND34
+	ICALL	PRINT-CONT,Y,V?,LEVEL
+?CND34:	NEXT?	Y >Y /?PRG32
+	JUMP	?PRG32
+
+
+	.FUNCT	FIRSTER,OBJ,LEVEL
+	EQUAL?	OBJ,ADVENTURER \?CCL3
+	PRINTR	"You are carrying:"
+?CCL3:	IN?	OBJ,ROOMS /FALSE
+	GRTR?	LEVEL,0 \?CND6
+	GET	INDENTS,LEVEL
+	PRINT	STACK
+?CND6:	FSET?	OBJ,SURFACEBIT \?CCL10
+	PRINTI	"Sitting on the "
+	PRINTD	OBJ
+	PRINTR	" is:"
+?CCL10:	FSET?	OBJ,ACTORBIT \?CCL12
+	PRINTI	"The "
+	PRINTD	OBJ
+	PRINTR	" is holding:"
+?CCL12:	PRINTI	"The "
+	PRINTD	OBJ
+	PRINTR	" contains:"
+
+
+	.FUNCT	STOP
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	SCORE-OBJ,OBJ
+	GETP	OBJ,P?VALUE
+	GRTR?	STACK,0 \FALSE
+	FSET	OBJ,TOUCHBIT
+	GETP	OBJ,P?VALUE
+	ADD	SCORE,STACK >SCORE
+	PUTP	OBJ,P?VALUE,0
+	RTRUE	
+
+
+	.FUNCT	V-SCORE,ASK?
+	ASSIGNED?	'ASK? /?CND1
+	SET	'ASK?,TRUE-VALUE
+?CND1:	PRINTI	"Your score "
+	ZERO?	ASK? /?CCL5
+	PRINTI	"would be "
+	JUMP	?CND3
+?CCL5:	PRINTI	"is "
+?CND3:	PRINTN	SCORE
+	PRINTI	" (out of 80 points). It is Day "
+	PRINTN	DAY
+	PRINTI	" of your adventure. Current Galactic Standard Time "
+	IN?	CHRONOMETER,ADVENTURER \?CCL8
+	PRINTI	"(adjusted to your local day-cycle) is "
+	FSET?	CHRONOMETER,MUNGEDBIT \?CCL11
+	PRINTN	MUNGED-TIME
+	JUMP	?CND6
+?CCL11:	PRINTN	INTERNAL-MOVES
+	JUMP	?CND6
+?CCL8:	PRINTI	"is impossible to determine, since you're not wearing your chronometer"
+?CND6:	PRINTC	46
+	CRLF	
+	PRINTI	"This score gives you the rank of "
+	EQUAL?	SCORE,80 \?CCL14
+	PRINTI	"Galactic Overlord"
+	JUMP	?CND12
+?CCL14:	GRTR?	SCORE,72 \?CCL16
+	PRINTI	"Cluster Admiral"
+	JUMP	?CND12
+?CCL16:	GRTR?	SCORE,64 \?CCL18
+	PRINTI	"System Captain"
+	JUMP	?CND12
+?CCL18:	GRTR?	SCORE,48 \?CCL20
+	PRINTI	"Planetary Commodore"
+	JUMP	?CND12
+?CCL20:	GRTR?	SCORE,36 \?CCL22
+	PRINTI	"Lieutenant"
+	JUMP	?CND12
+?CCL22:	GRTR?	SCORE,24 \?CCL24
+	PRINTI	"Ensign First Class"
+	JUMP	?CND12
+?CCL24:	GRTR?	SCORE,12 \?CCL26
+	PRINTI	"Space Cadet"
+	JUMP	?CND12
+?CCL26:	PRINTI	"Beginner"
+?CND12:	PRINTC	46
+	CRLF	
+	RETURN	SCORE
+
+
+	.FUNCT	FINISH,DIED,REPEATING,CNT
+?PRG1:	CRLF	
+	ZERO?	REPEATING \?CND3
+	SET	'REPEATING,TRUE-VALUE
+	ICALL1	V-SCORE
+	ZERO?	DIED /?CND3
+	CRLF	
+	PRINTI	"Oh, well. According to the Treaty of Gishen IV, signed in 8747 GY, all adventure game players must be given another chance after dying. In the interests of interstellar peace..."
+	CRLF	
+	CRLF	
+?CND3:	PRINTI	"Would you like to restart this game from the beginning, restore a saved position, end this session of the game, or look at hints?
+(Type RESTART, RESTORE, QUIT, or HINTS):
+>"
+	PUTB	P-INBUF,0,10
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	PUTB	P-INBUF,0,80
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTART \?CCL9
+	RESTART	
+	PRINTI	"Failed."
+	CRLF	
+	JUMP	?PRG1
+?CCL9:	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTORE \?CCL11
+	RESTORE	
+	ZERO?	STACK \?CCL11
+	PRINTI	"Failed."
+	CRLF	
+	JUMP	?PRG1
+?CCL11:	GET	P-LEXV,1
+	EQUAL?	STACK,W?QUIT,W?Q /?CTR14
+	GRTR?	CNT,10 \?CCL15
+?CTR14:	QUIT	
+	JUMP	?PRG1
+?CCL15:	GET	P-LEXV,1
+	EQUAL?	STACK,W?HINTS,W?HINT \?PRG1
+	ICALL1	V-HINT
+	JUMP	?PRG1
+
+
+	.FUNCT	V-QUIT
+	ICALL1	V-SCORE
+	IN?	FLOYD,HERE \?CND1
+	FSET?	FLOYD,RLANDBIT \?CND1
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	CRLF	
+	PRINTI	"Floyd grins impishly. ""Giving up, huh?"""
+	CRLF	
+?CND1:	CRLF	
+	PRINTI	"Do you wish to leave the game? (Y is affirmative): "
+	CALL1	YES?
+	ZERO?	STACK /?CCL7
+	QUIT	
+	RTRUE	
+?CCL7:	PRINTR	"Ok."
+
+
+	.FUNCT	YES?
+	PUTB	P-INBUF,0,10
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	PUTB	P-INBUF,0,80
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?YES,W?Y /TRUE
+	RFALSE	
+
+
+	.FUNCT	V-$ID
+	PRINTI	"Interpreter "
+	GETB	0,30
+	PRINTN	STACK
+	PRINTI	" Version "
+	GETB	0,31
+	PRINTC	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-VERSION,CNT,V
+	SET	'CNT,17
+	GET	0,1
+	BAND	STACK,2047 >V
+	PRINTI	"PLANETFALL
+Infocom interactive fiction - a science fiction story
+Copyright (c) 1983, 1988 by Infocom, Inc. All rights reserved.
+PLANETFALL is a registered trademark of Infocom, Inc.
+Release "
+	PRINTN	V
+	PRINTI	" / Serial number "
+?PRG1:	IGRTR?	'CNT,23 /?REP2
+	GETB	0,CNT
+	PRINTC	STACK
+	JUMP	?PRG1
+?REP2:	PRINTI	" / "
+	ICALL1	V-$ID
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	JIGS-UP,DESC,PLAYER?
+	PRINT	DESC
+	CRLF	
+	CRLF	
+	PRINTI	"    ****  You have died  ****"
+	CRLF	
+	CALL2	FINISH,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-RESTORE
+	IN?	FLOYD,HERE \?CND1
+	FSET?	FLOYD,RLANDBIT \?CND1
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"Floyd looks disappointed, but understanding. ""That part of the game was more fun than this part,"" he admits."
+	CRLF	
+	CRLF	
+?CND1:	RESTORE	
+	ZERO?	STACK /?CCL7
+	PRINTR	"Ok."
+?CCL7:	PRINTR	"Failed."
+
+
+	.FUNCT	V-SAVE,X
+	IN?	FLOYD,HERE \?CND1
+	FSET?	FLOYD,RLANDBIT \?CND1
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"Floyd's eyes light up. ""Oh boy! Are we gonna try something dangerous now?"""
+	CRLF	
+	CRLF	
+?CND1:	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SAVE	 >X
+	GET	0,8
+	BTST	STACK,4 \?CCL7
+	ICALL1	V-$REFRESH
+	JUMP	?CND5
+?CCL7:	EQUAL?	X,2 \?CND5
+	ICALL1	INIT-STATUS-LINE
+?CND5:	ZERO?	X \?CCL11
+	PRINTI	"Failed."
+	CRLF	
+	RETURN	2
+?CCL11:	PRINTI	"Ok."
+	CRLF	
+	EQUAL?	X,1 /TRUE
+	ICALL2	PERFORM,V?LOOK
+	RTRUE	
+
+
+	.FUNCT	V-$REFRESH
+	GET	0,8
+	BAND	STACK,-5
+	PUT	0,8,STACK
+	CLEAR	-1
+	ICALL1	INIT-STATUS-LINE
+	RTRUE	
+
+
+	.FUNCT	V-RESTART
+	ICALL2	V-SCORE,TRUE-VALUE
+	IN?	FLOYD,HERE \?CND1
+	FSET?	FLOYD,RLANDBIT \?CND1
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"Floyd looks sad. ""Going away?"" he asks."
+	CRLF	
+?CND1:	CRLF	
+	PRINTI	"Do you wish to restart? (Y is affirmative): "
+	CALL1	YES?
+	ZERO?	STACK /FALSE
+	PRINTI	"Restarting."
+	CRLF	
+	RESTART	
+	PRINTR	"Failed."
+
+
+	.FUNCT	V-WALK-AROUND
+	CALL1	USE-DIRECTIONS
+	RSTACK	
+
+
+	.FUNCT	V-WALK-TO
+	IN?	PRSO,HERE /?CTR2
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CCL3
+?CTR2:	PRINTR	"It's here!"
+?CCL3:	CALL1	USE-DIRECTIONS
+	RSTACK	
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM,TEMP-ELAPSED,?TMP1
+	ZERO?	P-WALK-DIR \?CCL3
+	ICALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?CCL3:	GETPT	HERE,PRSO >PT
+	ZERO?	PT /?CCL5
+	GETP	HERE,P?C-MOVE >?TMP1
+	SUB	PRSO,LOW-DIRECTION
+	GET	?TMP1,STACK >TEMP-ELAPSED
+	ZERO?	TEMP-ELAPSED \?CND6
+	SET	'TEMP-ELAPSED,DEFAULT-MOVE
+?CND6:	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?CCL10
+	SET	'C-ELAPSED,TEMP-ELAPSED
+	GET	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL10:	EQUAL?	PTS,NEXIT \?CCL12
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	CRLF	
+	RETURN	2
+?CCL12:	EQUAL?	PTS,FEXIT \?CCL16
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?PRG20
+	CALL2	GOTO,RM
+	RSTACK	
+?PRG20:	RETURN	2
+?CCL16:	EQUAL?	PTS,CEXIT \?CCL23
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?CCL26
+	SET	'C-ELAPSED,TEMP-ELAPSED
+	GET	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL26:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?CCL28
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?CCL28:	PRINTI	"You can't go that way."
+	CRLF	
+	RETURN	2
+?CCL23:	EQUAL?	PTS,DEXIT \FALSE
+	GET	PT,DEXITOBJ >OBJ
+	FSET?	OBJ,OPENBIT \?CCL37
+	SET	'C-ELAPSED,TEMP-ELAPSED
+	GET	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL37:	GET	PT,DEXITSTR >STR
+	ZERO?	STR /?CCL39
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?CCL39:	PRINTI	"The "
+	PRINTD	OBJ
+	PRINTI	" is closed."
+	CRLF	
+	ICALL2	THIS-IS-IT,OBJ
+	RETURN	2
+?CCL5:	ZERO?	LIT \?CCL45
+	RANDOM	100
+	LESS?	75,STACK /?CCL45
+	CALL2	JIGS-UP,STR?9
+	RSTACK	
+?CCL45:	PRINTI	"You can't go that way."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-INVENTORY
+	SET	'C-ELAPSED,18
+	FIRST?	ADVENTURER \?CCL3
+	CALL2	PRINT-CONT,ADVENTURER
+	RSTACK	
+?CCL3:	PRINTR	"You are empty-handed."
+
+
+	.FUNCT	PRE-TAKE
+	IN?	PRSO,ADVENTURER \?CCL3
+	PRINTR	"You already have it."
+?CCL3:	EQUAL?	PRSO,GOOD-BOARD \?CCL5
+	FSET?	GOOD-BOARD,NDESCBIT /FALSE
+?CCL5:	EQUAL?	PSEUDO-OBJECT,PRSO /FALSE
+	LOC	PRSO
+	EQUAL?	STACK,GLOBAL-OBJECTS /?CCL11
+	LOC	PRSO
+	FSET?	STACK,CONTBIT \?CCL11
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?CCL11
+	PRINTR	"You can't reach into a closed container."
+?CCL11:	ZERO?	PRSI /?CCL16
+	LOC	PRSO
+	EQUAL?	PRSI,STACK /?CCL19
+	EQUAL?	PRSO,KEY \?CCL22
+	FSET?	KEY,TOUCHBIT \FALSE
+?CCL22:	EQUAL?	PRSO,CELERY \?CCL26
+	EQUAL?	PRSI,AMBASSADOR /FALSE
+?CCL26:	PRINTR	"It's not in that!"
+?CCL19:	SET	'PRSI,FALSE-VALUE
+	RFALSE	
+?CCL16:	LOC	ADVENTURER
+	EQUAL?	PRSO,STACK \FALSE
+	PRINTR	"You are in it, asteroid-brain!"
+
+
+	.FUNCT	V-TAKE
+	CALL1	ITAKE
+	EQUAL?	STACK,TRUE-VALUE \FALSE
+	PRINTR	"Taken."
+
+
+	.FUNCT	TRYTAKE
+	IN?	PRSO,WINNER /TRUE
+	FSET?	PRSO,TRYTAKEBIT \?CCL5
+	GETP	PRSO,P?ACTION
+	ZERO?	STACK /?CCL5
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL5:	CALL1	ITAKE
+	RSTACK	
+
+
+	.FUNCT	ITAKE,VB,CNT,OBJ,?TMP1
+	ASSIGNED?	'VB /?CND1
+	SET	'VB,TRUE-VALUE
+?CND1:	FSET?	PRSO,TAKEBIT /?CCL5
+	ZERO?	VB /FALSE
+	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RFALSE	
+?CCL5:	LOC	PRSO
+	IN?	STACK,ADVENTURER /?CCL9
+	CALL2	WEIGHT,PRSO >?TMP1
+	CALL2	WEIGHT,ADVENTURER
+	ADD	?TMP1,STACK
+	GRTR?	STACK,LOAD-ALLOWED \?CCL9
+	ZERO?	VB /?PRG14
+	PRINTI	"Your load is too heavy."
+	CRLF	
+?PRG14:	RETURN	2
+?CCL9:	CALL2	CCOUNT,ADVENTURER >CNT
+	GRTR?	CNT,FUMBLE-NUMBER \?CCL17
+	MUL	CNT,FUMBLE-PROB >?TMP1
+	RANDOM	100
+	LESS?	?TMP1,STACK /?CCL17
+	FIRST?	ADVENTURER >OBJ /?PRG21
+?PRG21:	FSET?	OBJ,WORNBIT \?REP22
+	NEXT?	OBJ >OBJ /?PRG21
+	JUMP	?PRG21
+?REP22:	PRINTI	"Oh, no. The "
+	PRINTD	OBJ
+	PRINTI	" slips from your arms while taking the "
+	PRINTD	PRSO
+	PRINTI	" and both tumble to the ground."
+	CRLF	
+	EQUAL?	FLASK,OBJ,PRSO \?CND27
+	IN?	CHEMICAL-FLUID,FLASK \?CND27
+	REMOVE	CHEMICAL-FLUID
+	PRINTI	"Unfortunately, the chemical spills out of the flask and evaporates."
+	CRLF	
+?CND27:	EQUAL?	CANTEEN,OBJ,PRSO \?CND31
+	IN?	HIGH-PROTEIN,CANTEEN \?CND31
+	FSET?	CANTEEN,OPENBIT \?CND31
+	REMOVE	HIGH-PROTEIN
+	PRINTI	"To make matters worse, the high-protein liquid spills all over the place and then evaporates."
+	CRLF	
+?CND31:	MOVE	OBJ,HERE
+	MOVE	PRSO,HERE
+	RETURN	2
+?CCL17:	MOVE	PRSO,ADVENTURER
+	FCLEAR	PRSO,NDESCBIT
+	ICALL2	SCORE-OBJ,PRSO
+	FSET	PRSO,TOUCHBIT
+	EQUAL?	PRSO,SPOUT-PLACED \TRUE
+	SET	'SPOUT-PLACED,GROUND
+	RTRUE	
+
+
+	.FUNCT	PRE-PUT
+	ZERO?	PRSO /FALSE
+	FSET?	PRSO,WORNBIT \?CCL5
+	PRINTR	"You can't while you're wearing it."
+?CCL5:	IN?	PRSO,GLOBAL-OBJECTS /?CCL7
+	FSET?	PRSO,TAKEBIT /FALSE
+?CCL7:	PRINTR	"Nice try."
+
+
+	.FUNCT	V-PUT,?TMP1,?TMP2,?TMP3
+	FSET?	PRSI,OPENBIT /?CND1
+	FSET?	PRSI,DOORBIT /?CND1
+	FSET?	PRSI,CONTBIT /?CND1
+	FSET?	PRSI,VEHBIT /?CND1
+	PRINTR	"You can't do that."
+?CND1:	FSET?	PRSI,OPENBIT /?CCL9
+	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTR	" isn't open."
+?CCL9:	EQUAL?	PRSI,PRSO \?CCL11
+	PRINTR	"How can you do that?"
+?CCL11:	IN?	PRSO,PRSI \?CCL13
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is already in the "
+	PRINTD	PRSI
+	PRINTR	"."
+?CCL13:	IN?	PRSI,PRSO \?CCL15
+	PRINTI	"How can you put the "
+	PRINTD	PRSO
+	PRINTI	" in the "
+	PRINTD	PRSI
+	PRINTI	" when the "
+	PRINTD	PRSI
+	PRINTI	" is already in the "
+	PRINTD	PRSO
+	PRINTR	"?"
+?CCL15:	CALL2	WEIGHT,PRSI >?TMP3
+	CALL2	WEIGHT,PRSO
+	ADD	?TMP3,STACK >?TMP2
+	GETP	PRSI,P?SIZE
+	SUB	?TMP2,STACK >?TMP1
+	GETP	PRSI,P?CAPACITY
+	GRTR?	?TMP1,STACK \?CCL17
+	PRINTR	"There's no room."
+?CCL17:	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL19
+	CALL1	TRYTAKE
+	ZERO?	STACK /TRUE
+?CCL19:	ICALL2	SCORE-OBJ,PRSO
+	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	PRINTR	"Done."
+
+
+	.FUNCT	V-SLIDE
+	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PRE-GIVE
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	CALL1	NOT-HOLDING
+	RSTACK	
+
+
+	.FUNCT	PRE-SGIVE
+	ICALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-GIVE
+	FSET?	PRSI,ACTORBIT /?CCL3
+	PRINTI	"You can't give "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTI	" to "
+	FSET?	PRSI,VOWELBIT \?CCL6
+	PRINTI	"an "
+	JUMP	?CND4
+?CCL6:	PRINTI	"a "
+?CND4:	PRINTD	PRSI
+	PRINTR	"!"
+?CCL3:	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTR	" declines your offer."
+
+
+	.FUNCT	V-SGIVE
+	PRINTR	"Foo!"
+
+
+	.FUNCT	V-DROP
+	CALL1	IDROP
+	ZERO?	STACK /FALSE
+	PRINTR	"Dropped."
+
+
+	.FUNCT	V-THROW
+	CALL1	IDROP
+	ZERO?	STACK /FALSE
+	PRINTR	"Thrown."
+
+
+	.FUNCT	IDROP
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL3
+	PRINTI	"You're not carrying the "
+	PRINTD	PRSO
+	PRINTC	46
+	CRLF	
+	RFALSE	
+?CCL3:	FSET?	PRSO,WORNBIT \?CCL5
+	ICALL1	TAKE-IT-OFF
+	RFALSE	
+?CCL5:	IN?	PRSO,WINNER /?CCL7
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?CCL7
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is closed."
+	CRLF	
+	RFALSE	
+?CCL7:	MOVE	PRSO,HERE
+	RTRUE	
+
+
+	.FUNCT	V-OPEN,F,STR
+	FSET?	PRSO,CONTBIT /?CCL3
+	FSET?	PRSO,DOORBIT /?CCL3
+	PRINTI	"You must be very clever to do that to the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL3:	FSET?	PRSO,DOORBIT /?CTR6
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK /?CCL7
+?CTR6:	FSET?	PRSO,OPENBIT \?CCL12
+	CALL2	ALREADY,STR?16
+	RSTACK	
+?CCL12:	FSET	PRSO,OPENBIT
+	FSET?	PRSO,DOORBIT \?CCL15
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is now open."
+?CCL15:	FIRST?	PRSO \?CTR16
+	FSET?	PRSO,TRANSBIT \?CCL17
+?CTR16:	PRINTR	"Opened."
+?CCL17:	FIRST?	PRSO >F \?CCL21
+	NEXT?	F /?CCL21
+	GETP	F,P?FDESC >STR
+	ZERO?	STR /?CCL21
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" opens."
+	CRLF	
+	PRINT	STR
+	CRLF	
+	RTRUE	
+?CCL21:	PRINTI	"Opening the "
+	PRINTD	PRSO
+	PRINTI	" reveals "
+	ICALL2	PRINT-CONTENTS,PRSO
+	PRINTR	"."
+?CCL7:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" cannot be opened."
+
+
+	.FUNCT	V-OPEN-WITH
+	EQUAL?	PRSI,HANDS \?CCL3
+	ICALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+?CCL3:	PRINTR	"That doesn't work."
+
+
+	.FUNCT	PRINT-CONTENTS,OBJ,F,N,1ST?,IT?,TWO?
+	SET	'1ST?,TRUE-VALUE
+	FIRST?	OBJ >F \FALSE
+?PRG4:	NEXT?	F >N /?BOGUS6
+?BOGUS6:	ZERO?	1ST? /?CCL9
+	SET	'1ST?,FALSE-VALUE
+	JUMP	?CND7
+?CCL9:	PRINTI	", "
+	ZERO?	N \?CND7
+	PRINTI	"and "
+?CND7:	PRINTI	"a "
+	PRINTD	F
+	ZERO?	IT? \?CCL14
+	ZERO?	TWO? \?CCL14
+	SET	'IT?,F
+	JUMP	?CND12
+?CCL14:	SET	'TWO?,TRUE-VALUE
+	SET	'IT?,FALSE-VALUE
+?CND12:	SET	'F,N
+	ZERO?	F \?PRG4
+	ZERO?	IT? /TRUE
+	ZERO?	TWO? \TRUE
+	ICALL2	THIS-IS-IT,IT?
+	RTRUE	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,CONTBIT /?CCL3
+	FSET?	PRSO,DOORBIT /?CCL3
+	PRINTI	"You can't do that to "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL3:	FSET?	PRSO,SURFACEBIT /?CCL7
+	GETP	PRSO,P?CAPACITY
+	ZERO?	STACK \?CTR6
+	FSET?	PRSO,DOORBIT \?CCL7
+?CTR6:	FSET?	PRSO,OPENBIT \?CCL14
+	FCLEAR	PRSO,OPENBIT
+	PRINTR	"Closed."
+?CCL14:	CALL2	ALREADY,STR?17
+	RSTACK	
+?CCL7:	PRINTR	"You cannot close that."
+
+
+	.FUNCT	CCOUNT,OBJ,CNT,X
+	FIRST?	OBJ >X /?PRG3
+	RETURN	CNT
+?PRG3:	INC	'CNT
+	NEXT?	X >X /?PRG3
+	RETURN	CNT
+
+
+	.FUNCT	WEIGHT,OBJ,CONT,WT
+	FIRST?	OBJ >CONT \?CND1
+?PRG3:	FSET?	CONT,WORNBIT /?CND5
+	CALL2	WEIGHT,CONT
+	ADD	WT,STACK >WT
+?CND5:	NEXT?	CONT >CONT /?PRG3
+?CND1:	GETP	OBJ,P?SIZE
+	ADD	WT,STACK
+	RSTACK	
+
+
+	.FUNCT	COPR-NOTICE,STR
+	DIROUT	D-SCREEN-OFF
+	CRLF	
+	PRINTI	"Here "
+	PRINT	STR
+	PRINTI	"s a transcript of interaction with"
+	CRLF	
+	ICALL1	V-VERSION
+	DIROUT	D-SCREEN-ON
+	RTRUE	
+
+
+	.FUNCT	V-SCRIPT
+	IN?	FLOYD,HERE \?CND1
+	FSET?	FLOYD,RLANDBIT \?CND1
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"Floyd hops around excitedly. ""Oh boy! I've never seen my name in print before!"""
+	CRLF	
+	CRLF	
+?CND1:	PRINT	STR?18
+	PRINTI	"n.]"
+	CRLF	
+	DIROUT	D-PRINTER-ON
+	ICALL2	COPR-NOTICE,STR?19
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	IN?	FLOYD,HERE \?CND1
+	FSET?	FLOYD,RLANDBIT \?CND1
+	SET	'FLOYD-SPOKE,TRUE-VALUE
+	PRINTI	"""Can I have a copy of the printout?"" asks Floyd, looking up at you."
+	CRLF	
+	CRLF	
+?CND1:	ICALL2	COPR-NOTICE,STR?20
+	DIROUT	D-PRINTER-OFF
+	PRINT	STR?18
+	PRINTR	"ff.]"
+
+
+	.FUNCT	PRE-MOVE
+	CALL2	HELD?,PRSO
+	ZERO?	STACK /FALSE
+	PRINTR	"Why juggle objects?"
+
+
+	.FUNCT	V-MOVE
+	FSET?	PRSO,TAKEBIT \?CCL3
+	PRINTI	"Moving the "
+	PRINTD	PRSO
+	PRINTR	" reveals nothing."
+?CCL3:	PRINTI	"You can't move the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-LAMP-ON
+	FSET?	PRSO,LIGHTBIT \?CCL3
+	FSET?	PRSO,ONBIT \?CCL6
+	ICALL2	ALREADY,STR?21
+	RTRUE	
+?CCL6:	FSET	PRSO,ONBIT
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is now on."
+?CCL3:	PRINTR	"You can't turn that on."
+
+
+	.FUNCT	V-LAMP-OFF
+	FSET?	PRSO,LIGHTBIT \?CCL3
+	FSET?	PRSO,ONBIT /?CCL6
+	ICALL2	ALREADY,STR?22
+	RTRUE	
+?CCL6:	FCLEAR	PRSO,ONBIT
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is now off."
+?CCL3:	PRINTR	"You can't turn that off."
+
+
+	.FUNCT	V-WAIT
+	SET	'C-ELAPSED,40
+	PRINTR	"Time passes..."
+
+
+	.FUNCT	PRE-BOARD,AV
+	LOC	ADVENTURER >AV
+	EQUAL?	PRSO,GROUND,GLOBAL-SHUTTLE /FALSE
+	FSET?	PRSO,VEHBIT \?CCL5
+	FSET?	AV,VEHBIT \FALSE
+	PRINTI	"You are already in it!"
+	CRLF	
+	RETURN	2
+?CCL5:	PRINTI	"I suppose you have a theory on boarding "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTC	46
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-BOARD,AV
+	ICALL2	GOTO,PRSO
+	PRINTI	"You are now in the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-DISEMBARK
+	EQUAL?	PRSO,ROOMS \?CCL3
+	IN?	ADVENTURER,SAFETY-WEB \?CCL6
+	ICALL	PERFORM,V?DISEMBARK,SAFETY-WEB
+	RTRUE	
+?CCL6:	IN?	ADVENTURER,BED \?CCL8
+	CALL1	OWN-FEET
+	RSTACK	
+?CCL8:	IN?	ADVENTURER,SHUTTLE-CAR-ALFIE \?CCL10
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?CCL10:	IN?	ADVENTURER,SHUTTLE-CAR-BETTY \?CCL12
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL12:	IN?	ADVENTURER,BRIG \?CCL14
+	ICALL2	PERFORM,V?ZESCAPE
+	RTRUE	
+?CCL14:	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL3:	LOC	ADVENTURER
+	EQUAL?	STACK,PRSO /?CCL16
+	PRINTI	"You're not in that!"
+	CRLF	
+	RETURN	2
+?CCL16:	CALL1	OWN-FEET
+	RSTACK	
+
+
+	.FUNCT	OWN-FEET
+	ICALL2	GOTO,HERE
+	PRINTR	"You're on your own feet again."
+
+
+	.FUNCT	V-STAND
+	LOC	ADVENTURER
+	FSET?	STACK,VEHBIT \?CCL3
+	LOC	ADVENTURER
+	ICALL	PERFORM,V?DISEMBARK,STACK
+	RTRUE	
+?CCL3:	PRINTR	"You are already standing, I think."
+
+
+	.FUNCT	GOTO,NEW-LOC,V?,WLOC,OLIT,OLD-HERE
+	ASSIGNED?	'V? /?CND1
+	SET	'V?,TRUE-VALUE
+?CND1:	LOC	WINNER >WLOC
+	SET	'OLIT,LIT
+	SET	'OLD-HERE,HERE
+	MOVE	ADVENTURER,NEW-LOC
+	SET	'OHERE,FALSE-VALUE
+	IN?	NEW-LOC,ROOMS \?CCL5
+	SET	'HERE,NEW-LOC
+	CALL2	LIT?,HERE >LIT
+	JUMP	?CND3
+?CCL5:	SET	'HERE,OLD-HERE
+?CND3:	ZERO?	OLIT \?CND6
+	ZERO?	LIT \?CND6
+	RANDOM	100
+	LESS?	75,STACK /?CND6
+	ICALL2	JIGS-UP,STR?23
+	RTRUE	
+?CND6:	GETP	HERE,P?ACTION
+	CALL	STACK,M-ENTER
+	EQUAL?	STACK,2 /TRUE
+	ICALL2	SCORE-OBJ,NEW-LOC
+	ZERO?	V? /TRUE
+	ICALL1	V-FIRST-LOOK
+	RTRUE	
+
+
+	.FUNCT	V-EAT
+	PRINTI	"I don't think that the "
+	PRINTD	PRSO
+	PRINTR	" would agree with you."
+
+
+	.FUNCT	V-EAT-FROM,X
+	FIRST?	PRSO >X /?BOGUS1
+?BOGUS1:	FSET?	PRSO,OPENBIT /?CCL4
+	PRINTR	"It's closed."
+?CCL4:	NEXT?	X \?CCL6
+	PRINTI	"There's more than one thing in the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL6:	ZERO?	X /?CCL8
+	ICALL	PERFORM,V?EAT,X
+	RTRUE	
+?CCL8:	PRINTR	"It's empty!"
+
+
+	.FUNCT	V-CURSE
+	PRINTR	"Such language from an Ensign in the Stellar Patrol!"
+
+
+	.FUNCT	V-LISTEN
+	SET	'C-ELAPSED,18
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" makes no sound."
+
+
+	.FUNCT	V-FOLLOW
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is right here!"
+
+
+	.FUNCT	V-LEAP
+	ZERO?	PRSO /?CCL3
+	IN?	PRSO,HERE \?CCL6
+	FSET?	PRSO,ACTORBIT \?CCL9
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is too big to jump over."
+?CCL9:	CALL1	V-SKIP
+	RSTACK	
+?CCL6:	PRINTR	"That would be a good trick."
+?CCL3:	CALL1	V-SKIP
+	RSTACK	
+
+
+	.FUNCT	V-SKIP
+	CALL2	PICK-ONE,WHEEEEE
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-LEAVE
+	IN?	ADVENTURER,BED \?CCL3
+	ICALL	PERFORM,V?DISEMBARK,BED
+	RTRUE	
+?CCL3:	IN?	ADVENTURER,SAFETY-WEB \?CCL5
+	ICALL	PERFORM,V?DISEMBARK,SAFETY-WEB
+	RTRUE	
+?CCL5:	CALL2	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-HELLO
+	ZERO?	PRSO /?CCL3
+	PRINTI	"Until now, I've only heard demented Denebian Devils say ""Hello"" to "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL3:	CALL2	PICK-ONE,HELLOS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PRE-READ
+	ZERO?	LIT \FALSE
+	PRINTR	"It is impossible to read in the dark."
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT /?CCL3
+	PRINTI	"How can I read "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"?"
+?CCL3:	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	SET	'C-ELAPSED,18
+	RETURN	C-ELAPSED
+
+
+	.FUNCT	V-LOOK-UNDER
+	PRINTI	"There is nothing but "
+	EQUAL?	PRSO,AMBASSADOR \?CCL3
+	PRINTI	"slime"
+	JUMP	?CND1
+?CCL3:	PRINTI	"dust"
+?CND1:	PRINTR	" there."
+
+
+	.FUNCT	V-LOOK-BEHIND
+	CALL1	V-LOOK-UNDER
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-INSIDE
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTR	"There is nothing special to be seen."
+?CCL3:	FSET?	PRSO,DOORBIT \?CCL5
+	FSET?	PRSO,OPENBIT \?CCL8
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is open, but I can't tell what's beyond it"
+	JUMP	?CND6
+?CCL8:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is closed"
+?CND6:	PRINTR	"."
+?CCL5:	FSET?	PRSO,CONTBIT \?CCL10
+	FSET?	PRSO,OPENBIT /?CCL13
+	ICALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+?CCL13:	CALL2	SEE-INSIDE?,PRSO
+	ZERO?	STACK /?CCL15
+	FIRST?	PRSO \?CCL18
+	CALL2	PRINT-CONT,PRSO
+	ZERO?	STACK \TRUE
+?CCL18:	FSET?	PRSO,SURFACEBIT \?CCL22
+	PRINTI	"There is nothing on the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL22:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is empty."
+?CCL15:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is closed."
+?CCL10:	FSET?	PRSO,TRANSBIT \?CCL24
+	PRINTI	"You can see dimly through the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL24:	PRINTI	"You can't look inside "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	SEE-INSIDE?,OBJ
+	ZERO?	OBJ /FALSE
+	FSET?	OBJ,INVISIBLE /FALSE
+	FSET?	OBJ,TRANSBIT /TRUE
+	FSET?	OBJ,OPENBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	V-LOOK-DOWN
+	ICALL	PERFORM,V?EXAMINE,GROUND
+	RTRUE	
+
+
+	.FUNCT	V-TURN
+	PRINTR	"You can't do that."
+
+
+	.FUNCT	V-LOCK
+	CALL1	V-TURN
+	RSTACK	
+
+
+	.FUNCT	V-UNLOCK
+	CALL1	V-TURN
+	RSTACK	
+
+
+	.FUNCT	V-ATTACK
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is frightened and backs away."
+?CCL3:	PRINTI	"I've known strange beings, but attacking "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"???"
+
+
+	.FUNCT	V-KICK
+	CALL2	HACK-HACK,STR?30
+	RSTACK	
+
+
+	.FUNCT	V-WAVE
+	CALL2	HACK-HACK,STR?31
+	RSTACK	
+
+
+	.FUNCT	V-RUB
+	CALL2	HACK-HACK,STR?32
+	RSTACK	
+
+
+	.FUNCT	V-PUSH
+	ZERO?	PRSI \?CCL3
+	EQUAL?	PRSO,INTNUM \?CCL3
+	EQUAL?	HERE,LIBRARY-LOBBY,MINI-BOOTH \?CCL8
+	PRINTR	"You probably want to use the TYPE command. Check your documentation."
+?CCL8:	EQUAL?	P-NUMBER,1 \?CCL10
+	EQUAL?	HERE,BOOTH-2,BOOTH-3 \?CCL13
+	ICALL	PERFORM,V?PUSH,TELEPORTATION-BUTTON-1
+	RTRUE	
+?CCL13:	EQUAL?	HERE,BOOTH-1 \?CCL15
+	CALL2	NO-BUTTON,BOOTH-1
+	RSTACK	
+?CCL15:	PRINTR	"Push a number?!?"
+?CCL10:	EQUAL?	P-NUMBER,2 \?CCL17
+	EQUAL?	HERE,BOOTH-1,BOOTH-3 \?CCL20
+	ICALL	PERFORM,V?PUSH,TELEPORTATION-BUTTON-2
+	RTRUE	
+?CCL20:	EQUAL?	HERE,BOOTH-2 \?CCL22
+	CALL2	NO-BUTTON,BOOTH-2
+	RSTACK	
+?CCL22:	PRINTR	"Push a number?!?"
+?CCL17:	EQUAL?	P-NUMBER,3 \?CCL24
+	EQUAL?	HERE,BOOTH-1,BOOTH-2 \?CCL27
+	ICALL	PERFORM,V?PUSH,TELEPORTATION-BUTTON-3
+	RTRUE	
+?CCL27:	EQUAL?	HERE,BOOTH-3 \?CCL29
+	CALL2	NO-BUTTON,BOOTH-3
+	RSTACK	
+?CCL29:	PRINTR	"Push a number?!?"
+?CCL24:	PRINTR	"Push a number?!?"
+?CCL3:	CALL2	HACK-HACK,STR?33
+	RSTACK	
+
+
+	.FUNCT	NO-BUTTON,NUMBER
+	PRINTI	"There's no button here that's labelled with the number "
+	EQUAL?	NUMBER,BOOTH-1 \?CCL3
+	PRINTC	49
+	JUMP	?CND1
+?CCL3:	EQUAL?	NUMBER,BOOTH-2 \?CCL5
+	PRINTC	50
+	JUMP	?CND1
+?CCL5:	EQUAL?	NUMBER,BOOTH-3 \?CND1
+	PRINTC	51
+?CND1:	PRINTR	"."
+
+
+	.FUNCT	V-PUSH-UP
+	CALL2	HACK-HACK,STR?34
+	RSTACK	
+
+
+	.FUNCT	V-PUSH-DOWN
+	CALL2	HACK-HACK,STR?35
+	RSTACK	
+
+
+	.FUNCT	V-PULL
+	CALL2	HACK-HACK,STR?36
+	RSTACK	
+
+
+	.FUNCT	V-MUNG
+	CALL2	HACK-HACK,STR?37
+	RSTACK	
+
+
+	.FUNCT	HACK-HACK,STR
+	PRINT	STR
+	PRINTD	PRSO
+	CALL2	PICK-ONE,HO-HUM
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WORD-TYPE,OBJ,WORD,SYNS,?TMP1
+	GETPT	OBJ,P?SYNONYM >SYNS
+	PTSIZE	SYNS
+	DIV	STACK,2
+	SUB	STACK,1
+	INTBL?	WORD,SYNS,STACK /?BOGUS1
+?BOGUS1:	RSTACK	
+
+
+	.FUNCT	V-KNOCK
+	CALL	WORD-TYPE,PRSO,W?DOOR
+	ZERO?	STACK /?CCL3
+	PRINTR	"Nobody's home."
+?CCL3:	PRINTI	"Why knock on "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-YELL
+	PRINTR	"Aarrrrggggggghhhhhhhh!"
+
+
+	.FUNCT	BATTERY-FALLS
+	PRINTR	"The battery falls out."
+
+
+	.FUNCT	V-SHAKE,X
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL3
+	EQUAL?	PRSO,HANDS /?CCL3
+	CALL1	NOT-HOLDING
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,LASER \?CCL7
+	IN?	OLD-BATTERY,LASER \?CCL10
+	MOVE	OLD-BATTERY,HERE
+	CALL1	BATTERY-FALLS
+	RSTACK	
+?CCL10:	IN?	NEW-BATTERY,LASER \?CCL12
+	MOVE	NEW-BATTERY,HERE
+	CALL1	BATTERY-FALLS
+	RSTACK	
+?CCL12:	PRINTR	"Shaken."
+?CCL7:	FSET?	PRSO,OPENBIT /?CCL14
+	FIRST?	PRSO \?CCL14
+	PRINTI	"It sounds as if there is something inside the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL14:	FSET?	PRSO,OPENBIT \?CCL18
+	EQUAL?	PRSO,FOOD-KIT \?CCL21
+	IN?	RED-GOO,FOOD-KIT /?CTR20
+	IN?	GREEN-GOO,FOOD-KIT /?CTR20
+	IN?	BROWN-GOO,FOOD-KIT \?CCL21
+?CTR20:	REMOVE	RED-GOO
+	REMOVE	GREEN-GOO
+	REMOVE	BROWN-GOO
+	PRINTR	"Colored goo flies all over everything. Yechh!"
+?CCL21:	FIRST?	PRSO \?CCL28
+?PRG29:	FIRST?	PRSO >X \?REP30
+	EQUAL?	X,HIGH-PROTEIN,CHEMICAL-FLUID \?CCL36
+	REMOVE	X
+	JUMP	?PRG29
+?CCL36:	MOVE	X,HERE
+	JUMP	?PRG29
+?REP30:	PRINTI	"The contents of the "
+	PRINTD	PRSO
+	PRINTR	" spill onto the floor."
+?CCL28:	PRINTI	"You have shaken the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL18:	FSET?	PRSO,CONTBIT \?CCL38
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" sounds empty."
+?CCL38:	PRINTR	"Shaken."
+
+
+	.FUNCT	V-SHAKE-WITH
+	EQUAL?	PRSO,HANDS \?CCL3
+	FSET?	PRSI,ACTORBIT \?CCL6
+	ICALL	PERFORM,V?SHAKE,HANDS
+	RTRUE	
+?CCL6:	PRINTI	"You can't shake hands with "
+	ICALL1	A-AN
+	PRINTD	PRSI
+	PRINTR	"!"
+?CCL3:	PRINTR	"Huh?"
+
+
+	.FUNCT	V-SMELL
+	PRINTI	"It smells just like "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,TEE
+	GETPT	OBJ2,P?GLOBAL >TEE
+	ZERO?	TEE /FALSE
+	PTSIZE	TEE
+	DIV	STACK,2
+	INTBL?	OBJ1,TEE,STACK /?CND1
+?CND1:	RSTACK	
+
+
+	.FUNCT	V-SWIM
+	EQUAL?	HERE,UNDERWATER \?CCL3
+	PRINTR	"Not much else you can do here. Might try a direction next time, though."
+?CCL3:	PRINTR	"You can't swim here!"
+
+
+	.FUNCT	V-SWIM-DIR
+	EQUAL?	HERE,UNDERWATER \?CCL3
+	PRINTR	"Okay. You're still underwater."
+?CCL3:	ICALL2	PERFORM,V?SWIM
+	RTRUE	
+
+
+	.FUNCT	V-SWIM-UP
+	EQUAL?	HERE,UNDERWATER \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	CALL2	PERFORM,V?SWIM
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-ALARM
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" isn't sleeping."
+
+
+	.FUNCT	V-ZORK
+	PRINTR	"Gesundheit!"
+
+
+	.FUNCT	V-SIT
+	EQUAL?	HERE,ESCAPE-POD \?CCL3
+	PRINTI	"(in the web)"
+	CRLF	
+	ICALL	PERFORM,V?BOARD,SAFETY-WEB
+	RTRUE	
+?CCL3:	EQUAL?	HERE,DORM-A,DORM-B,DORM-C /?CTR4
+	EQUAL?	HERE,DORM-D,INFIRMARY \?CCL5
+?CTR4:	PRINTI	"(on the bed)"
+	CRLF	
+	ICALL	PERFORM,V?BOARD,BED
+	RTRUE	
+?CCL5:	SET	'C-ELAPSED,31
+	PRINTR	"You recline on the floor for a bit, and then stand up again."
+
+
+	.FUNCT	V-SIT-DOWN
+	EQUAL?	PRSO,ROOMS \?CCL3
+	ICALL2	PERFORM,V?SIT
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-GO-UP
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-ON
+	FSET?	PRSO,VEHBIT \?CCL3
+	ICALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?CCL3:	PRINTI	"You can't climb onto the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-CLIMB-FOO
+	FSET?	PRSO,CLIMBBIT \?CCL3
+	CALL	V-CLIMB-UP,P?UP,TRUE-VALUE
+	RSTACK	
+?CCL3:	ICALL	PERFORM,V?CLIMB-ON,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-CLIMB-UP,DIR,OBJ,X
+	ASSIGNED?	'DIR /?CND1
+	SET	'DIR,P?UP
+?CND1:	GETPT	HERE,DIR
+	ZERO?	STACK /?CCL5
+	ICALL2	DO-WALK,DIR
+	RTRUE	
+?CCL5:	ZERO?	OBJ \?CCL7
+	PRINTR	"You can't go that way."
+?CCL7:	PRINTR	"Bizarre!"
+
+
+	.FUNCT	V-CLIMB-DOWN
+	FSET?	PRSO,VEHBIT \?CCL3
+	ICALL1	V-CLIMB-ON
+	RTRUE	
+?CCL3:	CALL2	V-CLIMB-UP,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	PRE-PUT-UNDER
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL3
+	CALL1	NOT-HOLDING
+	RSTACK	
+?CCL3:	FSET?	PRSO,WORNBIT \FALSE
+	CALL1	TAKE-IT-OFF
+	RSTACK	
+
+
+	.FUNCT	V-PUT-UNDER
+	PRINTR	"You can't do that."
+
+
+	.FUNCT	V-ENTER
+	CALL2	DO-WALK,P?IN
+	RSTACK	
+
+
+	.FUNCT	V-EXIT
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-SEARCH
+	SET	'C-ELAPSED,32
+	PRINTR	"You find nothing unusual."
+
+
+	.FUNCT	V-FIND,L
+	LOC	PRSO >L
+	SET	'C-ELAPSED,18
+	EQUAL?	PRSO,ME,HANDS \?CCL3
+	PRINTR	"You're around here somewhere..."
+?CCL3:	EQUAL?	L,GLOBAL-OBJECTS \?CCL5
+	PRINTR	"You find it."
+?CCL5:	IN?	PRSO,ADVENTURER \?CCL7
+	PRINTR	"You have it."
+?CCL7:	IN?	PRSO,HERE /?CTR8
+	EQUAL?	PRSO,PSEUDO-OBJECT \?CCL9
+?CTR8:	PRINTR	"It's right here."
+?CCL9:	FSET?	L,ACTORBIT \?CCL13
+	PRINTI	"The "
+	PRINTD	L
+	PRINTR	" has it."
+?CCL13:	FSET?	L,CONTBIT \?CCL15
+	PRINTI	"It's in the "
+	PRINTD	L
+	PRINTR	"."
+?CCL15:	PRINTR	"Beats me."
+
+
+	.FUNCT	V-TELL
+	EQUAL?	PRSO,ME \?CCL3
+	PRINTI	"Talking to yourself is a sign of impending mental collapse."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL7
+	ZERO?	P-CONT /?CCL10
+	SET	'WINNER,PRSO
+	LOC	WINNER >HERE
+	RETURN	HERE
+?CCL10:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" looks at you expectantly, as though he thought you were about to talk."
+?CCL7:	PRINTI	"Talking to "
+	EQUAL?	HERE,DECK-NINE \?CCL13
+	EQUAL?	PRSO,PSEUDO-OBJECT \?CCL13
+	PRINTI	"the "
+	JUMP	?CND11
+?CCL13:	ICALL1	A-AN
+?CND11:	PRINTD	PRSO
+	PRINTI	"? Dr. Quarnsboggle, the Feinstein's psychiatrist, would "
+	EQUAL?	BLOWUP-COUNTER,5 \?CCL18
+	PRINTI	"have been"
+	JUMP	?CND16
+?CCL18:	PRINTI	"be"
+?CND16:	PRINTI	" fascinated to hear that."
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	V-ASK-FOR
+	FSET?	PRSO,ACTORBIT \?CCL3
+	IN?	PRSI,PRSO \?CCL6
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" doesn't seem inclined to give up the "
+	PRINTD	PRSI
+	PRINTR	"."
+?CCL6:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" isn't holding the "
+	PRINTD	PRSI
+	PRINTR	"."
+?CCL3:	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SAY,V
+	CALL	FIND-IN,HERE,ACTORBIT >V
+	ZERO?	V /?CCL3
+	SET	'P-CONT,FALSE-VALUE
+	PRINTI	"You must address the "
+	PRINTD	V
+	PRINTR	" directly."
+?CCL3:	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-CONT,FALSE-VALUE
+	CALL	PERFORM,V?TELL,ME
+	RSTACK	
+
+
+	.FUNCT	V-TALK
+	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ANSWER
+	PRINTI	"Nobody is awaiting your answer."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-REPLY
+	PRINTI	"It is hardly likely that the "
+	PRINTD	PRSO
+	PRINTI	" is interested."
+	CRLF	
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	V-KISS
+	PRINTR	"I'd sooner kiss a pile of Antarian swamp mold."
+
+
+	.FUNCT	V-RAPE
+	PRINTR	"What a (ahem!) strange idea."
+
+
+	.FUNCT	V-DIAGNOSE
+	SET	'C-ELAPSED,18
+	ZERO?	SICKNESS-LEVEL \?CCL3
+	PRINTI	"You are in perfect health."
+	CRLF	
+	JUMP	?CND1
+?CCL3:	PRINTI	"You are "
+	GRTR?	SICKNESS-LEVEL,7 \?CCL6
+	PRINTI	"severely"
+	JUMP	?CND4
+?CCL6:	GRTR?	SICKNESS-LEVEL,5 \?CCL8
+	PRINTI	"very"
+	JUMP	?CND4
+?CCL8:	GRTR?	SICKNESS-LEVEL,3 \?CCL10
+	PRINTI	"somewhat"
+	JUMP	?CND4
+?CCL10:	PRINTI	"a bit"
+?CND4:	PRINTI	" sick and feverish."
+	CRLF	
+?CND1:	ZERO?	SLEEPY-LEVEL \?CCL13
+	PRINTI	"You feel well-rested."
+	CRLF	
+	JUMP	?CND11
+?CCL13:	PRINTI	"You feel "
+	GRTR?	SLEEPY-LEVEL,2 \?CCL16
+	PRINTI	"phenomenally"
+	JUMP	?CND14
+?CCL16:	GRTR?	SLEEPY-LEVEL,1 \?CCL18
+	PRINTI	"quite"
+	JUMP	?CND14
+?CCL18:	PRINTI	"sort of"
+?CND14:	PRINTI	" tired."
+	CRLF	
+?CND11:	ZERO?	HUNGER-LEVEL \?CCL21
+	PRINTR	"You seem to be well-fed."
+?CCL21:	PRINTI	"You seem to be "
+	GRTR?	HUNGER-LEVEL,4 \?CCL24
+	PRINTI	"awesomely phenomenally"
+	JUMP	?CND22
+?CCL24:	GRTR?	HUNGER-LEVEL,2 \?CCL26
+	PRINTI	"noticeably"
+	JUMP	?CND22
+?CCL26:	PRINTI	"fairly"
+?CND22:	PRINTR	" thirsty and hungry."
+
+
+	.FUNCT	V-WEAR
+	FSET?	PRSO,WEARBIT \?CCL3
+	PRINTI	"You are wearing the "
+	PRINTD	PRSO
+	PRINTC	46
+	CRLF	
+	SET	'C-ELAPSED,18
+	FSET	PRSO,WORNBIT
+	RTRUE	
+?CCL3:	PRINTR	"They're out of fashion, and besides, it wouldn't fit."
+
+
+	.FUNCT	V-REMOVE
+	FSET?	PRSO,WORNBIT \?CCL3
+	ICALL	PERFORM,V?TAKE-OFF,PRSO
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-TAKE-OFF
+	FSET?	PRSO,VEHBIT \?CCL3
+	ICALL	PERFORM,V?DISEMBARK,PRSO
+	RTRUE	
+?CCL3:	FSET?	PRSO,WORNBIT \?CCL5
+	PRINTI	"You are no longer wearing the "
+	PRINTD	PRSO
+	PRINTC	46
+	CRLF	
+	SET	'C-ELAPSED,18
+	FCLEAR	PRSO,WORNBIT
+	RTRUE	
+?CCL5:	PRINTR	"You aren't wearing that."
+
+
+	.FUNCT	V-STEP-ON
+	PRINTR	"That's a silly thing to do."
+
+
+	.FUNCT	V-PUT-ON
+	EQUAL?	PRSO,MAGNET,LADDER \?CCL3
+	ICALL	PERFORM,V?ATTRACT,PRSO,PRSI
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?PUT,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-NO
+	PRINTR	"You sound rather negative."
+
+
+	.FUNCT	V-YES
+	PRINTR	"You sound rather positive."
+
+
+	.FUNCT	V-MAYBE
+	PRINTR	"You sound rather indecisive."
+
+
+	.FUNCT	V-POINT
+	IN?	FLOYD,HERE \?CCL3
+	CALL1	FLOYDS-FAMOUS-DOOR-ROUTINE
+	RSTACK	
+?CCL3:	PRINTR	"It's usually impolite to point."
+
+
+	.FUNCT	V-SET
+	ZERO?	PRSI \?CCL3
+	EQUAL?	PRSO,COMBINATION-DIAL,LASER-DIAL \?CCL6
+	PRINTR	"You must specify a number to set the dial to."
+?CCL6:	PRINTI	"Turning the "
+	PRINTD	PRSO
+	PRINTR	" accomplishes nothing."
+?CCL3:	PRINTI	"Setting "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	" is a strange concept."
+
+
+	.FUNCT	V-$VERIFY
+	EQUAL?	PRSO,INTNUM \?CCL3
+	EQUAL?	P-NUMBER,502 \?CCL3
+	PRINTN	SERIAL
+	CRLF	
+	RTRUE	
+?CCL3:	PRINTI	"Verifying..."
+	CRLF	
+	VERIFY	 \?CCL8
+	PRINTR	"Game correct. (YAY!)"
+?CCL8:	CRLF	
+	PRINTR	"** Game File Failure **"
+
+
+	.FUNCT	V-$COMMAND
+	DIRIN	1
+	RTRUE	
+
+
+	.FUNCT	V-$RANDOM
+	EQUAL?	PRSO,INTNUM /?CCL3
+	PRINTR	"Illegal call to #RANDOM."
+?CCL3:	SUB	0,P-NUMBER
+	RANDOM	STACK
+	RTRUE	
+
+
+	.FUNCT	V-$RECORD
+	DIROUT	D-RECORD-ON
+	RTRUE	
+
+
+	.FUNCT	V-$UNRECORD
+	DIROUT	D-RECORD-OFF
+	RTRUE	
+
+
+	.FUNCT	V-STAND-ON
+	PRINTI	"Standing on "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	" seems like a waste of time."
+
+
+	.FUNCT	V-REACH
+	FIRST?	PRSO \?CCL3
+	PRINTI	"There is something"
+	JUMP	?CND1
+?CCL3:	PRINTI	"There is nothing"
+?CND1:	PRINTI	" inside the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-REACH-FOR
+	FSET?	PRSO,TAKEBIT \?CCL3
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL3:	IN?	PRSO,HERE \?CCL5
+	PRINTR	"It's here! Now what?"
+?CCL5:	PRINTR	"It is out of reach."
+
+
+	.FUNCT	DO-WALK,DIR
+	SET	'P-WALK-DIR,DIR
+	ICALL	PERFORM,V?WALK,DIR
+	RTRUE	
+
+
+	.FUNCT	V-FLUSH
+	PRINTI	"Flush "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-FLY
+	PRINTR	"Humans are not usually equipped for flying."
+
+
+	.FUNCT	V-SMILE
+	PRINTR	"How pleasant!"
+
+
+	.FUNCT	V-SALUTE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" fails to return your salute."
+
+
+	.FUNCT	V-ATTRACT
+	PRINTR	"Nothing interesting happens."
+
+
+	.FUNCT	V-ZATTRACT
+	ICALL	PERFORM,V?ATTRACT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SPAN
+	PRINTR	"You can't."
+
+
+	.FUNCT	NUMBERS-ONLY
+	PRINTR	"This keyboard only has numeric keys. You can type numbers on it, but not words."
+
+
+	.FUNCT	V-TYPE
+	EQUAL?	HERE,MINI-BOOTH \?CCL3
+	EQUAL?	PRSO,INTNUM /?CCL6
+	CALL1	NUMBERS-ONLY
+	RSTACK	
+?CCL6:	ZERO?	MINI-ACTIVATED /?CCL8
+	EQUAL?	P-NUMBER,384 \?CCL11
+	PRINTI	"You notice the walls of the booth sliding away in all directions, followed by a momentary queasiness in the pit of your stomach..."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,STATION-384
+	SET	'BEEN-HERE,TRUE-VALUE
+	RETURN	BEEN-HERE
+?CCL11:	LESS?	P-NUMBER,10 \?CCL13
+	PRINTR	"After a pause a recorded voice says ""There are no one-digit computer sectors...clearing entry...please type damaged sector number."""
+?CCL13:	GRTR?	P-NUMBER,1024 \?CCL15
+	PRINTR	"A recorded voice says ""Databanks indicate no computer sector corresponding to that number. Please check with your supervisor."""
+?CCL15:	CALL2	JIGS-UP,STR?41
+	RSTACK	
+?CCL8:	PRINTR	"A recording says ""Internal computer repair booth not activated."""
+?CCL3:	EQUAL?	HERE,LIBRARY-LOBBY \?CCL17
+	CALL1	LIBRARY-TYPE
+	RSTACK	
+?CCL17:	PRINTR	"Type on what???"
+
+
+	.FUNCT	PRE-SZAP
+	ICALL	PERFORM,V?ZAP,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	PRE-ZAP
+	ZERO?	PRSI \FALSE
+	EQUAL?	PRSO,LASER /FALSE
+	IN?	LASER,ADVENTURER \?CCL7
+	ICALL	PERFORM,V?ZAP,LASER,PRSO
+	RTRUE	
+?CCL7:	PRINTR	"You have nothing to shoot it with."
+
+
+	.FUNCT	V-ZAP
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL3
+	CALL1	NOT-HOLDING
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,LASER /?CCL5
+	PRINTR	"You can't shoot that."
+?CCL5:	ZERO?	PRSI \?CCL7
+	PRINTI	"At what?"
+	RTRUE	
+?CCL7:	PRINTR	"Nothing happens."
+
+
+	.FUNCT	V-SZAP
+	PRINTR	"Zap!"
+
+
+	.FUNCT	V-SCRUB
+	ZERO?	PRSI \?CCL3
+	IN?	SCRUB-BRUSH,ADVENTURER /?CCL3
+	IN?	TOWEL,ADVENTURER /?CCL3
+	PRINTR	"You don't have anything to scrub with!"
+?CCL3:	ZERO?	PRSI /?CCL8
+	EQUAL?	PRSI,SCRUB-BRUSH,TOWEL /?CCL8
+	PRINTR	"You can't scrub something with that!"
+?CCL8:	FSET?	PRSO,ACTORBIT \?CCL12
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" prefers cleaning himself."
+?CCL12:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is a bit shinier now."
+
+
+	.FUNCT	V-POUR
+	PRINTR	"Pouring or spilling nonliquids is specifically forbidden by section 17.9.2 of the Galactic Adventure Game Compendium of Rules."
+
+
+	.FUNCT	V-EMPTY,X
+	FSET?	PRSO,OPENBIT /?CCL3
+	PRINTR	"You can't empty it when it's closed!"
+?CCL3:	FIRST?	PRSO \?CCL5
+?PRG6:	FIRST?	PRSO >X \?REP7
+	EQUAL?	X,HIGH-PROTEIN,CHEMICAL-FLUID \?CCL13
+	REMOVE	X
+	JUMP	?PRG6
+?CCL13:	MOVE	X,HERE
+	JUMP	?PRG6
+?REP7:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" is now empty."
+?CCL5:	PRINTI	"There's nothing in the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-THROW-OFF
+	PRINTR	"It's difficult to see how that can be done."
+
+
+	.FUNCT	V-SLEEP
+	ZERO?	SLEEPY-LEVEL \?CCL3
+	PRINTR	"You're not tired!"
+?CCL3:	CALL2	INT,I-FALL-ASLEEP
+	GET	STACK,C-ENABLED?
+	ZERO?	STACK /?CCL5
+	PRINTR	"You'll probably be asleep before you know it."
+?CCL5:	PRINTR	"Civilized members of society usually sleep in beds."
+
+
+	.FUNCT	V-FIX-IT
+	PRINTR	"You shouldn't expect sweeping general commands like this to work. If you want to repair something, you must perform the specific steps required."
+
+
+	.FUNCT	V-OIL
+	ZERO?	PRSI \?CCL3
+	IN?	OIL-CAN,ADVENTURER \?CCL6
+	ICALL	PERFORM,V?OIL,PRSO,OIL-CAN
+	RTRUE	
+?CCL6:	PRINTR	"Oil it with what?"
+?CCL3:	EQUAL?	PRSI,OIL-CAN \?CCL8
+	EQUAL?	PRSO,FLOYD \?CCL11
+	FSET?	FLOYD,RLANDBIT \?CCL11
+	PRINTR	"Floyd thanks you for your thoughtfulness."
+?CCL11:	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTR	" doesn't need oiling."
+?CCL8:	PRINTI	"You can't use "
+	FSET?	PRSI,VOWELBIT \?CCL16
+	PRINTI	"an "
+	JUMP	?CND14
+?CCL16:	PRINTI	"a "
+?CND14:	PRINTD	PRSI
+	PRINTR	" as an oil can!"
+
+
+	.FUNCT	V-SHOW
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL3
+	CALL1	NOT-HOLDING
+	RSTACK	
+?CCL3:	EQUAL?	PRSI,ME \?CCL5
+	ICALL	PERFORM,V?EXAMINE,PRSO
+	RTRUE	
+?CCL5:	FSET?	PRSI,ACTORBIT \?CCL7
+	PRINTI	"The "
+	PRINTD	PRSI
+	PRINTI	" looks at the "
+	PRINTD	PRSO
+	PRINTR	"."
+?CCL7:	PRINTI	"Why would you want to show something to "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-INSERT
+	EQUAL?	HERE,LIBRARY \?CCL3
+	PRINTI	"(into the spool reader)"
+	CRLF	
+	ICALL	PERFORM,V?PUT,PRSO,SPOOL-READER
+	RTRUE	
+?CCL3:	EQUAL?	HERE,KITCHEN \?CCL5
+	PRINTI	"(into the niche)"
+	CRLF	
+	ICALL	PERFORM,V?PUT,PRSO,DISPENSER
+	RTRUE	
+?CCL5:	PRINTI	"You'll have to specify where you want to put the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-TASTE
+	EQUAL?	PRSO,HIGH-PROTEIN,RED-GOO /?CTR2
+	EQUAL?	PRSO,BROWN-GOO,GREEN-GOO \?CCL3
+?CTR2:	PRINTR	"It tastes edible."
+?CCL3:	EQUAL?	PRSO,CHEMICAL-FLUID \?CCL7
+	PRINTR	"It burns your tongue."
+?CCL7:	PRINTI	"It tastes just like "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-ZESCAPE
+	EQUAL?	HERE,BRIG \?CCL3
+	PRINTR	"Houdini himself would be stumped by this cell."
+?CCL3:	PRINTR	"There is no escape. We control the horizontal. We control the vertical. We control the disk drives..."
+
+
+	.FUNCT	V-TIME
+	IN?	CHRONOMETER,ADVENTURER \?CCL3
+	ICALL1	TELL-TIME
+	CRLF	
+	RTRUE	
+?CCL3:	PRINTR	"It's hard to say, since you've removed your chronometer."
+
+
+	.FUNCT	V-PLAY
+	PRINTI	"How does one play "
+	ICALL1	A-AN
+	PRINTD	PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-PLAY-WITH
+	FSET?	PRSO,ACTORBIT \?CCL3
+	ICALL	PERFORM,V?PLAY,GLOBAL-GAMES
+	RTRUE	
+?CCL3:	PRINTR	"I sometimes wonder about your mental health."
+
+
+	.FUNCT	V-SCOLD
+	FSET?	PRSO,ACTORBIT \?CCL3
+	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+?CCL3:	PRINTI	"For some reason, the "
+	PRINTD	PRSO
+	PRINTR	" doesn't seem too chagrined."
+
+
+	.FUNCT	ROB,WHO,WHERE,N,X
+	FIRST?	WHO >X /?PRG2
+?PRG2:	ZERO?	X /TRUE
+	NEXT?	X >N /?BOGUS7
+?BOGUS7:	MOVE	X,WHERE
+	SET	'X,N
+	JUMP	?PRG2
+
+
+	.FUNCT	THIS-IS-IT,OBJ
+	ZERO?	OBJ /TRUE
+	EQUAL?	PRSA,V?WALK \?PRD6
+	EQUAL?	PRSO,OBJ /TRUE
+?PRD6:	EQUAL?	OBJ,ADVENTURER /TRUE
+	EQUAL?	OBJ,NOT-HERE-OBJECT,ME /TRUE
+	SET	'P-IT-OBJECT,OBJ
+	SET	'P-IT-LOC,HERE
+	RETURN	P-IT-LOC
+
+
+	.FUNCT	ACCESSIBLE?,OBJ,L
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	EQUAL?	OBJ,PSEUDO-OBJECT \?CCL5
+	EQUAL?	LAST-PSEUDO-LOC,HERE /TRUE
+	RFALSE	
+?CCL5:	ZERO?	L /FALSE
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	EQUAL?	L,LOCAL-GLOBALS \?CCL14
+	CALL	GLOBAL-IN?,OBJ,HERE
+	ZERO?	STACK \TRUE
+?CCL14:	CALL2	META-LOC,OBJ
+	EQUAL?	STACK,HERE \FALSE
+	EQUAL?	L,WINNER,HERE /TRUE
+	FSET?	L,OPENBIT \FALSE
+	CALL2	ACCESSIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	VISIBLE?,OBJ,L
+	ZERO?	OBJ /FALSE
+	LOC	OBJ >L
+	CALL2	ACCESSIBLE?,OBJ
+	ZERO?	STACK \TRUE
+	CALL2	SEE-INSIDE?,L
+	ZERO?	STACK /FALSE
+	CALL2	VISIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	A-AN
+	FSET?	PRSO,VOWELBIT \?CCL3
+	PRINTI	"an "
+	RTRUE	
+?CCL3:	PRINTI	"a "
+	RTRUE	
+
+
+	.FUNCT	ALREADY,ON-OFF,OBJ
+	ZERO?	OBJ /?CCL3
+	PRINTI	"The "
+	PRINTD	OBJ
+	PRINTI	" is "
+	JUMP	?CND1
+?CCL3:	PRINTI	"It's "
+?CND1:	PRINTI	"already "
+	PRINT	ON-OFF
+	PRINTR	"."
+
+
+	.FUNCT	NOT-HOLDING
+	PRINTI	"You're not holding the "
+	PRINTD	PRSO
+	PRINTR	"."
+
+
+	.FUNCT	TAKE-IT-OFF
+	PRINTR	"You'll have to take it off, first."
+
+
+	.FUNCT	ANYMORE
+	PRINTR	"You can't see that anymore."
+
+
+	.FUNCT	FIXED-FONT-ON
+	GET	0,8
+	BOR	STACK,2
+	PUT	0,8,STACK
+	RTRUE	
+
+
+	.FUNCT	FIXED-FONT-OFF
+	GET	0,8
+	BAND	STACK,-3
+	PUT	0,8,STACK
+	RTRUE	
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..0363998
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,2081 @@
+"VERBS for
+			       PLANETFALL
+	  (c) COPYRIGHT 1983 INFOCOM INC. ALL RIGHTS RESERVED"
+
+<GLOBAL VERBOSE <>>
+
+<GLOBAL SUPER-BRIEF <>>
+
+;<GDECL (VERBOSE SUPER-BRIEF) <OR ATOM FALSE>>
+
+<ROUTINE V-VERBOSE ()
+	 <SETG VERBOSE T>
+	 <SETG SUPER-BRIEF <>>
+	 <TELL "Maximum verbosity." CR CR>
+	 <V-LOOK>>
+
+<ROUTINE V-BRIEF ()
+	 <SETG VERBOSE <>>
+	 <SETG SUPER-BRIEF <>>
+	 <TELL "Brief descriptions." CR>>
+
+<ROUTINE V-SUPER-BRIEF ()
+	 <SETG SUPER-BRIEF T>
+	 <TELL "Superbrief descriptions." CR>>
+
+<ROUTINE V-LOOK ()
+	 <SETG C-ELAPSED 9>
+	 <COND (<DESCRIBE-ROOM T>
+		<DESCRIBE-OBJECTS T>)>>
+
+<ROUTINE V-LOOK-CRETIN ()
+	 <TELL
+"This isn't a primitive two-word-parser adventure game. If you want
+to look AT that object, please say so." CR>>
+
+<ROUTINE V-FIRST-LOOK ()
+	 <COND (<DESCRIBE-ROOM>
+		<COND (<NOT ,SUPER-BRIEF>
+		       <DESCRIBE-OBJECTS>)>)>>
+
+<ROUTINE PRE-EXAMINE ()
+	 <COND (<AND <NOT <HERE? ,PRSO>>
+		     <NOT <IN? ,PRSO ,GLOBAL-OBJECTS>>
+		     <NOT <EQUAL? ,PRSO ,PSEUDO-OBJECT>>
+		     <NOT <AND <IN? ,PRSO ,LOCAL-GLOBALS>
+			       <GLOBAL-IN? ,PRSO ,HERE>>>
+		     <NOT <EQUAL? ,PRSO ,GRUE>>>
+		<TELL "You can't see any">
+		<PRSO-PRINT>
+		<TELL " here!" CR>)>>		
+
+<ROUTINE V-EXAMINE ()
+	 <SETG C-ELAPSED 32>
+	 <COND (<GETP ,PRSO ,P?TEXT>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<V-LOOK-INSIDE>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <V-LOOK-INSIDE>)
+		      (T
+		       <TELL "The " D ,PRSO " is closed." CR>)>)
+	       (T
+		<TELL "I see nothing special about the " D ,PRSO "." CR>)>>
+
+<GLOBAL LIT 0>
+
+<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? STR AV)
+	 <SET V? <OR .LOOK? ,VERBOSE>>
+	 <COND (<NOT ,LIT>
+		<TELL "It is pitch black. You might be eaten by a grue." CR>
+		<COND (<EQUAL? ,HERE ,TRANSPORTATION-SUPPLY>
+		       <TELL "There is light to the south." CR>)>
+		<RETURN <>>)>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<FSET ,HERE ,TOUCHBIT>
+		<SET V? T>)>
+	 <COND (<IN? ,HERE ,ROOMS>
+		<TELL D ,HERE>
+		<COND (<FSET? <LOC ,ADVENTURER> ,VEHBIT>
+		       <TELL ", in the " D <LOC ,ADVENTURER>>)>
+		<CRLF>)>
+	 <COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>
+		<SET AV <LOC ,ADVENTURER>>
+		;<COND (<FSET? .AV ,VEHBIT>
+		       <TELL "(You are in 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 <EQUAL? ,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>)>)
+	       (T
+		<TELL "You 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."
+
+<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV)
+	 <COND (<AND <0? .LEVEL>
+		     <APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>
+		<RTRUE>)
+	       (<EQUAL? .OBJ ,SPOUT-PLACED>
+		<RTRUE>)
+	       (<AND <0? .LEVEL>
+		     <OR <AND <NOT <FSET? .OBJ ,TOUCHBIT>>
+			      <SET STR <GETP .OBJ ,P?FDESC>>>
+			 <SET STR <GETP .OBJ ,P?LDESC>>>>
+		<TELL .STR>)
+	       (<AND <0? .LEVEL>>
+		<TELL "There is ">
+		<COND (<FSET? .OBJ ,VOWELBIT>
+		       <TELL "an ">)
+		      (T
+		       <TELL "a ">)>
+		<TELL D .OBJ " here.">)
+	       (T
+		<TELL <GET ,INDENTS .LEVEL>>
+		<COND (<FSET? .OBJ ,VOWELBIT>
+		       <TELL "An ">)
+		      (T
+		       <TELL "A ">)>
+		<TELL D .OBJ>
+		<COND (<FSET? .OBJ ,WORNBIT> <TELL " (being worn)">)>)>
+	 <COND (<AND <0? .LEVEL>
+		     <SET AV <LOC ,ADVENTURER>>
+		     <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? <>))
+	 <COND (<NOT <SET Y <FIRST? .OBJ>>>
+		<RTRUE>)>
+	 <COND (<AND <SET AV <LOC ,ADVENTURER>>
+		     <FSET? .AV ,VEHBIT>>
+		T)
+	       (T
+		<SET AV <>>)>
+	 <SET 1ST? T>
+	 <COND (<EQUAL? ,ADVENTURER .OBJ <LOC .OBJ>>
+		<SET INV? T>)
+	       (T
+		<REPEAT ()
+			<COND (<NOT .Y>  
+			       <RETURN>)   ;<RETURN <NOT .1ST?> arb>
+			      (<EQUAL? .Y .AV> <SET PV? T>)
+			      (<EQUAL? .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>)>
+			       <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>
+					     <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>>>>
+
+<ROUTINE FIRSTER (OBJ LEVEL)
+	 <COND (<EQUAL? .OBJ ,ADVENTURER>
+		<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>)
+		      (<FSET? .OBJ ,ACTORBIT>
+		       <TELL "The " D .OBJ " is holding:" CR>)
+		      (T
+		       <TELL "The " D .OBJ " contains:" CR>)>)>>
+
+<ROUTINE STOP ()
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RFATAL>>
+
+
+;"scoring"
+
+<GLOBAL MOVES 0>
+
+<GLOBAL INTERNAL-MOVES 0>
+
+<GLOBAL SCORE 0>
+
+<GLOBAL DAY 1>
+
+<ROUTINE SCORE-OBJ (OBJ)
+	 <COND (<G? <GETP .OBJ ,P?VALUE> 0>
+		<FSET .OBJ ,TOUCHBIT>
+		<SETG SCORE <+ ,SCORE <GETP .OBJ ,P?VALUE>>>
+		<PUTP .OBJ ,P?VALUE 0>)>>
+
+<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
+	 <TELL "Your score ">
+	 <COND (.ASK?
+		<TELL "would be ">)
+	       (T
+		<TELL "is ">)>
+	 <TELL N ,SCORE>
+	 <TELL " (out of 80 points). It is Day ">
+	 <TELL N, DAY>
+	 <TELL " of your adventure. Current Galactic Standard Time ">
+	 <COND (<IN? ,CHRONOMETER ,ADVENTURER>
+		<TELL "(adjusted to your local day-cycle) is ">
+		<COND (<FSET? ,CHRONOMETER ,MUNGEDBIT>
+		       <TELL N ,MUNGED-TIME>)
+		      (T
+		       <TELL N ,INTERNAL-MOVES>)>)
+	       (T
+		<TELL
+"is impossible to determine, since you're not wearing your chronometer">)>
+	 <TELL "." CR>
+	 <TELL "This score gives you the rank of ">
+	 <COND (<EQUAL? ,SCORE 80> <TELL "Galactic Overlord">)
+	       (<G? ,SCORE 72> <TELL "Cluster Admiral">)
+	       (<G? ,SCORE 64> <TELL "System Captain">)
+	       (<G? ,SCORE 48> <TELL "Planetary Commodore">)
+	       (<G? ,SCORE 36> <TELL "Lieutenant">)
+	       (<G? ,SCORE 24> <TELL "Ensign First Class">)
+	       (<G? ,SCORE 12> <TELL "Space Cadet">)
+	       (T <TELL "Beginner">)>
+	 <TELL "." CR>
+	 ,SCORE>
+
+<ROUTINE FINISH (DIED "OPTIONAL" (REPEATING <>) (CNT 0))
+	 <PROG ()
+	        <CRLF>
+		<COND (<NOT .REPEATING>
+		       <SET REPEATING T>
+		       <V-SCORE>
+		       <COND (.DIED
+			      <TELL CR
+"Oh, well. According to the Treaty of Gishen IV, signed in 8747 GY, all
+adventure game players must be given another chance after dying. In the
+interests of interstellar peace..." CR CR>)>)>
+	 	 <TELL
+"Would you like to restart this game from the beginning, restore a saved
+position, end this session of the game, or look at hints?|
+(Type RESTART, RESTORE, QUIT, or HINTS):|
+>">
+		 <PUTB ,P-INBUF 0 10> ;"so you can't input too many characters"
+		 <PUTB ,P-INBUF 1 0>
+		 <READ ,P-INBUF ,P-LEXV>
+		 <PUTB ,P-INBUF 0 80>
+		 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?RESTART>
+	                <RESTART>
+		        <TELL "Failed." CR>
+		        <AGAIN>)
+	       	       (<AND <EQUAL? <GET ,P-LEXV 1> ,W?RESTORE>
+		      	     <NOT <RESTORE>>>
+		        <TELL "Failed." CR>
+		        <AGAIN>)
+	       	       (<OR <EQUAL? <GET ,P-LEXV 1> ,W?QUIT ,W?Q>
+			    <G? .CNT 10>>
+		        <QUIT>)
+		       (<EQUAL? <GET ,P-LEXV 1> ,W?HINTS ,W?HINT>
+		        <V-HINT>
+		        <AGAIN>)>
+		 <AGAIN>>>
+
+<ROUTINE V-QUIT ;("OPTIONAL" (ASK? T) "AUX" SCOR) ()
+	 <V-SCORE>
+	 <COND (<AND <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>>
+		<SETG FLOYD-SPOKE T>
+		<TELL CR "Floyd grins impishly. \"Giving up, huh?\"" CR>)>
+	 <TELL CR "Do you wish to leave the game? (Y is affirmative): ">
+	 <COND (<YES?>
+		<QUIT>)
+	       (T
+		<TELL "Ok." CR>)>>
+
+<ROUTINE YES? ()
+	 <PUTB ,P-INBUF 0 10> ;"so you can't input too many characters"
+	 <PRINTI ">">
+	 <PUTB ,P-INBUF 1 0>
+	 <READ ,P-INBUF ,P-LEXV>
+	 <PUTB ,P-INBUF 0 80>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-$ID ()
+	 <TELL "Interpreter ">
+	 <PRINTN <GETB 0 30>>
+	 <TELL " Version ">
+	 <PRINTC <GETB 0 31>>
+	 <CRLF>
+	 <RTRUE>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17) V)
+	 <SET V <BAND <GET 0 1> *3777*>>
+	 <TELL 
+"PLANETFALL|
+Infocom interactive fiction - a science fiction story|
+Copyright (c) 1983, 1988 by Infocom, Inc. All rights reserved.|
+PLANETFALL is a registered trademark of Infocom, Inc.|
+Release " N .V " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <TELL " / ">
+	 <V-$ID>
+	 <CRLF>>
+
+
+;"death"
+
+<ROUTINE JIGS-UP (DESC "OPTIONAL" (PLAYER? <>))
+ 	 <TELL .DESC CR>
+	 <TELL CR
+"    ****  You have died  ****" CR>
+	 <FINISH T>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (<AND <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>>
+		<SETG FLOYD-SPOKE T>
+		<TELL
+"Floyd looks disappointed, but understanding. \"That part of the game was more
+fun than this part,\" he admits." CR CR>)>
+	 <COND (<RESTORE>
+		<TELL "Ok." CR>
+		;<V-FIRST-LOOK>)
+	       (T
+		<TELL "Failed." CR>)>>
+
+<ROUTINE V-SAVE ("AUX" X)
+	 <COND (<AND <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>>
+		<SETG FLOYD-SPOKE T>
+		<TELL
+"Floyd's eyes light up. \"Oh boy! Are we gonna try something
+dangerous now?\"" CR CR>)>
+	 <SETG P-CONT <>> ;"flush anything on input line after SAVE"
+	 <SETG QUOTE-FLAG <>>
+	 <SET X <SAVE>>
+	 <COND (<BTST <LOWCORE FLAGS> 4>
+		<V-$REFRESH>)
+	       (<EQUAL? .X 2>
+		<INIT-STATUS-LINE>)>
+	 <COND (<ZERO? .X>
+		<TELL "Failed." CR>
+		<RFATAL>)
+	       (T
+	        <TELL "Ok." CR>
+		<COND (<NOT <EQUAL? .X 1>>
+		       <PERFORM ,V?LOOK>)>
+		;<COND (<NOT <EQUAL? .X 1>>
+		       <PERFORM ,V?LOOK>)>
+		<RTRUE>)>>
+
+<ROUTINE V-$REFRESH ()
+	 <LOWCORE FLAGS <BAND <LOWCORE FLAGS> <BCOM 4>>>
+	 <CLEAR -1>
+	 <INIT-STATUS-LINE>
+	 <RTRUE>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE T>
+	 <COND (<AND <IN? ,FLOYD ,HERE>
+		     <FSET? ,FLOYD ,RLANDBIT>>
+		<SETG FLOYD-SPOKE T>
+		<TELL "Floyd looks sad. \"Going away?\" he asks." CR>)>
+	 <TELL CR "Do you wish to restart? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Restarting." CR>
+		<RESTART>
+		<TELL "Failed." CR>
+		;<TELL ,FAILED>)>>
+
+;<ROUTINE FAILED ()
+	<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 ()
+	 <USE-DIRECTIONS>>
+
+;<ROUTINE GO-NEXT (TBL "AUX" VAL)
+	 <COND (<SET VAL <LKP ,HERE .TBL>>
+		<GOTO .VAL>)>>
+
+;<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> .LEN>
+			<RFALSE>)
+		       (<EQUAL? <GET .TBL .CNT> .ITM>
+			<COND (<EQUAL? .CNT .LEN>
+			       <RFALSE>)
+			      (T
+			       <RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
+
+<ROUTINE V-WALK-TO ()
+	 <COND (<OR <IN? ,PRSO ,HERE>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<TELL "It's here!" CR>)
+	       (T
+		<USE-DIRECTIONS>)>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM TEMP-ELAPSED)
+	 <COND (<NOT ,P-WALK-DIR>
+		<PERFORM ,V?WALK-TO ,PRSO>
+		<RTRUE>)
+	       (<SET PT <GETPT ,HERE ,PRSO>>
+		<SET TEMP-ELAPSED <GET <GETP ,HERE ,P?C-MOVE> 
+				       <- ,PRSO ,LOW-DIRECTION>>>
+		<COND (<EQUAL? .TEMP-ELAPSED 0>
+		       <SET TEMP-ELAPSED ,DEFAULT-MOVE>)>
+		<COND (<EQUAL? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <SETG C-ELAPSED .TEMP-ELAPSED>
+		       <GOTO <GET .PT ,REXIT>>)
+		      (<EQUAL? .PTS ,NEXIT>
+		       <TELL <GET .PT ,NEXITSTR> CR>
+		       <RFATAL>)
+		      (<EQUAL? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <GOTO .RM>)
+			     (T
+			      <RFATAL>)>)
+		      (<EQUAL? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>>
+			      <SETG C-ELAPSED .TEMP-ELAPSED>
+			      <GOTO <GET .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TELL "You can't go that way." CR>
+			      <RFATAL>)>)
+		      (<EQUAL? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GET .PT ,DEXITOBJ>> ,OPENBIT>
+			      <SETG C-ELAPSED .TEMP-ELAPSED>
+			      <GOTO <GET .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TELL "The " D .OBJ " is closed." CR>
+			      <THIS-IS-IT .OBJ>
+			      <RFATAL>)>)>)
+	       (<AND <NOT ,LIT>
+		     <PROB 75>>
+		<JIGS-UP
+"Oh, no! You have walked into the slavering fangs of a lurking grue!">)
+	       (T
+		<TELL "You can't go that way." CR>
+		<RFATAL>)>>
+
+<ROUTINE V-INVENTORY ()
+	 <SETG C-ELAPSED 18>
+	 <COND (<FIRST? ,ADVENTURER>
+		<PRINT-CONT ,ADVENTURER>)
+	       (T
+		<TELL "You are empty-handed." CR>)>>
+
+<CONSTANT INDENTS
+	<PTABLE ""
+	       "  "
+	       "    "
+	       "      "
+	       "        "
+	       "          ">>
+
+
+;"object manipulation"
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<IN? ,PRSO ,ADVENTURER>
+		<TELL "You already have it." CR>)
+	       (<AND <EQUAL? ,PRSO ,GOOD-BOARD>
+		     <FSET? ,GOOD-BOARD ,NDESCBIT>>
+		<RFALSE>)
+	       (<EQUAL? ,PSEUDO-OBJECT ,PRSO>
+		<RFALSE>)                     ;"arb"
+	       (<AND <NOT <EQUAL? <LOC ,PRSO> ,GLOBAL-OBJECTS>>   ;"arb" 
+		     <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TELL "You can't reach into a closed container." CR>
+		<RTRUE>)
+	       (,PRSI
+		<COND (<NOT <EQUAL? ,PRSI <LOC ,PRSO>>>
+		       <COND (<AND <EQUAL? ,PRSO ,KEY>
+				   <NOT <FSET? ,KEY ,TOUCHBIT>>>
+			      <RFALSE>)
+			     (<AND <EQUAL? ,PRSO ,CELERY>
+				   <EQUAL? ,PRSI ,AMBASSADOR>>
+			      <RFALSE>)
+			     (T
+			      <TELL "It's not in that!" CR>)>)
+		      (T
+		       <SETG PRSI <>>
+		       <RFALSE>)>)
+	       (<EQUAL? ,PRSO <LOC ,ADVENTURER>>
+		<TELL "You are in it, asteroid-brain!" CR>)>>
+
+<ROUTINE V-TAKE ()
+	 <COND (<EQUAL? <ITAKE> T>
+		<TELL "Taken." CR>)>>
+
+<GLOBAL FUMBLE-NUMBER 7>
+
+<GLOBAL FUMBLE-PROB 8>
+
+<ROUTINE TRYTAKE ()
+	 <COND (<IN? ,PRSO ,WINNER>
+		<RTRUE>)
+	       (<AND <FSET? ,PRSO ,TRYTAKEBIT>
+		     <GETP ,PRSO ,P?ACTION>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (T
+		<ITAKE>)>>
+
+<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ)
+	 <COND (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<COND (.VB
+		       <TELL <PICK-ONE ,YUKS> CR>)>
+		<RFALSE>)
+	       (<AND <NOT <IN? <LOC ,PRSO> ,ADVENTURER>>
+		     <G? <+ <WEIGHT ,PRSO> <WEIGHT ,ADVENTURER>>
+			 ,LOAD-ALLOWED>>
+		<COND (.VB
+		       <TELL "Your load is too heavy." CR>)>
+		<RFATAL>)
+	       (<AND <G? <SET CNT <CCOUNT ,ADVENTURER>> ,FUMBLE-NUMBER>
+		     <PROB <* .CNT ,FUMBLE-PROB>>>
+		 <SET OBJ <FIRST? ,ADVENTURER>>
+		 <REPEAT ()
+			<COND (<FSET? .OBJ ,WORNBIT>
+			       <SET OBJ <NEXT? .OBJ>>)
+			      (T
+			       <RETURN>)>>
+		;"This must go!  Chomping compiler strikes again"
+		<TELL
+"Oh, no. The " D .OBJ " slips from your arms while taking the " D ,PRSO
+" and both tumble to the ground." CR>
+		<COND (<AND <EQUAL? ,FLASK .OBJ ,PRSO>
+			    <IN? ,CHEMICAL-FLUID ,FLASK>>
+		       <REMOVE ,CHEMICAL-FLUID>
+		       <TELL
+"Unfortunately, the chemical spills out of the flask and evaporates." CR>)>
+	        <COND (<AND <EQUAL? ,CANTEEN .OBJ ,PRSO>
+			    <IN? ,HIGH-PROTEIN ,CANTEEN>
+			    <FSET? ,CANTEEN ,OPENBIT>>
+		       <REMOVE ,HIGH-PROTEIN>
+		       <TELL
+"To make matters worse, the high-protein liquid spills all over
+the place and then evaporates." CR>)>
+		<MOVE .OBJ ,HERE>
+		<MOVE ,PRSO ,HERE>
+		<RFATAL>)
+	       (T
+		<MOVE ,PRSO ,ADVENTURER>
+		<FCLEAR ,PRSO ,NDESCBIT>
+		<SCORE-OBJ ,PRSO>
+		<FSET ,PRSO ,TOUCHBIT>
+		<COND (<EQUAL? ,PRSO ,SPOUT-PLACED>
+		       <SETG SPOUT-PLACED ,GROUND>)>
+		<RTRUE>)>>
+
+<ROUTINE PRE-PUT ()
+	 <COND (<NOT ,PRSO>
+		<RFALSE>)>
+	 <COND (<FSET? ,PRSO ,WORNBIT>
+		<TELL "You can't while you're wearing it." CR>)
+	       (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
+		    <NOT <FSET? ,PRSO ,TAKEBIT>>>
+		<TELL "Nice try." CR>)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<OR <FSET? ,PRSI ,OPENBIT>
+		    <OPENABLE? ,PRSI>
+		    <FSET? ,PRSI ,VEHBIT>>)
+	       (T
+		<TELL "You can't do that." CR>
+		<RTRUE>)>
+	 <COND (<NOT <FSET? ,PRSI ,OPENBIT>>
+		<TELL "The " D ,PRSI " isn't open." CR>)
+	       (<EQUAL? ,PRSI ,PRSO>
+		<TELL "How can you do that?" CR>)
+	       (<IN? ,PRSO ,PRSI>
+		<TELL "The " D ,PRSO " is already in the " D ,PRSI "." CR>)
+	       (<IN? ,PRSI ,PRSO>
+		<TELL
+"How can you put the " D ,PRSO " in the " D ,PRSI
+" when the " D ,PRSI " is already in the " D ,PRSO "?" 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 <TRYTAKE>>>
+		<RTRUE>)
+	       (T
+		<SCORE-OBJ ,PRSO>
+		<MOVE ,PRSO ,PRSI>
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL "Done." CR>)>>
+
+<ROUTINE V-SLIDE ()
+	 <TELL <PICK-ONE ,YUKS> CR>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<NOT-HOLDING>)>>
+
+<ROUTINE PRE-SGIVE ()
+	 <PERFORM ,V?GIVE ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-GIVE ()
+	 <COND (<NOT <FSET? ,PRSI ,ACTORBIT>>
+		<TELL "You can't give ">
+		<A-AN>
+		<TELL D ,PRSO " to ">
+		<COND (<FSET? ,PRSI ,VOWELBIT>
+		       <TELL "an ">)
+		      (T
+		       <TELL "a ">)>
+		<TELL D ,PRSI "!" CR>)
+	       (T
+		<TELL "The " D ,PRSI " declines your offer." CR>)>>
+
+<ROUTINE V-SGIVE ()
+	 <TELL "Foo!" CR>>
+
+<ROUTINE V-DROP ()
+	 <COND (<IDROP>
+		<TELL "Dropped." CR>)>>
+
+<ROUTINE V-THROW ()
+	 <COND (<IDROP>
+		<TELL "Thrown." CR>)>>
+
+<ROUTINE IDROP ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<TELL "You're not carrying the " D ,PRSO "." CR>
+		<RFALSE>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<TAKE-IT-OFF>
+		<RFALSE>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TELL "The " D ,PRSO " is closed." CR>
+		<RFALSE>)
+	       (T
+		<MOVE ,PRSO ,HERE>
+		<RTRUE>)>>
+
+
+;"plain old verbs"
+
+<ROUTINE V-OPEN ("AUX" F STR)
+	 <COND (<AND <NOT <FSET? ,PRSO ,CONTBIT>>
+		     <NOT <FSET? ,PRSO ,DOORBIT>>>
+		<TELL
+"You must be very clever to do that to the " D ,PRSO "." CR>)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <NOT <EQUAL? <GETP ,PRSO ,P?CAPACITY> 0>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <ALREADY "open">)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <COND (<FSET? ,PRSO ,DOORBIT>
+			      <TELL "The " D ,PRSO " is now open." CR>)
+			     (<OR <NOT <FIRST? ,PRSO>>
+				  <FSET? ,PRSO ,TRANSBIT>>
+			      <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
+			      <TELL "Opening the " D ,PRSO " reveals ">
+			      <PRINT-CONTENTS ,PRSO>
+			      <TELL "." CR>)>)>)
+	       (T
+		<TELL "The " D ,PRSO " cannot be opened." CR>)>>
+
+<ROUTINE V-OPEN-WITH ()
+	 <COND (<EQUAL? ,PRSI ,HANDS>
+		<PERFORM ,V?OPEN ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "That doesn't work." CR>)>>
+
+<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T) (IT? <>) (TWO? <>))
+	 <COND (<SET F <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET N <NEXT? .F>>
+			<COND (.1ST?
+			       <SET 1ST? <>>)
+			      (T
+			       <TELL ", ">
+			       <COND (<NOT .N>
+				      <TELL "and ">)>)>
+			<TELL "a " D .F>
+			<COND (<AND <NOT .IT?>
+				    <NOT .TWO?>>
+			       <SET IT? .F>)
+			      (T
+			       <SET TWO? T>
+			       <SET IT? <>>)>
+			<SET F .N>
+			<COND (<NOT .F>
+			       <COND (<AND .IT?
+					   <NOT .TWO?>>
+				      <THIS-IS-IT .IT?>)>
+			       <RTRUE>)>>)>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<AND <NOT <FSET? ,PRSO ,CONTBIT>>
+		    <NOT <FSET? ,PRSO ,DOORBIT>>>
+		<TELL "You can't do that to ">
+		<A-AN>
+		<TELL D ,PRSO "." CR>)
+	       (<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
+		     <OR <NOT <EQUAL? <GETP ,PRSO ,P?CAPACITY> 0>>
+			 <FSET? ,PRSO ,DOORBIT>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <FCLEAR ,PRSO ,OPENBIT>
+		       <TELL "Closed." CR>)
+		      (T
+		       <ALREADY "closed">)>)
+	       (T
+		<TELL "You cannot close that." CR>)>>
+
+<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET CNT <+ .CNT 1>>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+"WEIGHT:  Get sum of SIZEs of supplied object, recursing to the nth level."
+
+<ROUTINE WEIGHT (OBJ "AUX" CONT (WT 0))
+	 <COND (<SET CONT <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<NOT <FSET? .CONT ,WORNBIT>>
+			       <SET WT <+ .WT <WEIGHT .CONT>>>)>
+			<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
+	 <+ .WT <GETP .OBJ ,P?SIZE>>>
+
+<ROUTINE COPR-NOTICE (STR)
+	 <DIROUT ,D-SCREEN-OFF>
+	 <TELL CR "Here " .STR "s a transcript of interaction with" CR>
+	 <V-VERSION>
+	 <DIROUT ,D-SCREEN-ON>
+	 <RTRUE>>
+
+<ROUTINE V-SCRIPT ()
+	<COND (<AND <IN? ,FLOYD ,HERE>
+		    <FSET? ,FLOYD ,RLANDBIT>>
+	       <SETG FLOYD-SPOKE T>
+	       <TELL
+"Floyd hops around excitedly. \"Oh boy! I've never seen my name in print
+before!\"" CR CR>)>
+	<PRINT "[Transcript o">
+	<TELL "n.]" CR>
+	<DIROUT ,D-PRINTER-ON>
+	<COPR-NOTICE "begins">
+	<RTRUE>>
+
+<ROUTINE V-UNSCRIPT ()
+	<COND (<AND <IN? ,FLOYD ,HERE>
+		    <FSET? ,FLOYD ,RLANDBIT>>
+	       <SETG FLOYD-SPOKE T>
+	       <TELL
+"\"Can I have a copy of the printout?\" asks Floyd,
+looking up at you." CR CR>)>
+	<COPR-NOTICE "ends">
+	<DIROUT ,D-PRINTER-OFF>
+	<PRINT "[Transcript o">
+	<TELL "ff.]" CR>
+	<RTRUE>>
+
+<ROUTINE PRE-MOVE ()
+	 <COND (<HELD? ,PRSO>
+		<TELL "Why juggle objects?" CR>)>>
+
+<ROUTINE V-MOVE ()
+	 <COND (<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 ,LIGHTBIT>
+		<COND (<FSET? ,PRSO ,ONBIT>
+		       <ALREADY "on">)
+		      (T
+		       <FSET ,PRSO ,ONBIT>
+		       <TELL "The " D ,PRSO " is now on." CR>)>)
+	       (T
+		<TELL "You can't turn that on." CR>)>
+	 <RTRUE>>
+
+<ROUTINE V-LAMP-OFF ()
+	 <COND (<FSET? ,PRSO ,LIGHTBIT>
+		<COND (<NOT <FSET? ,PRSO ,ONBIT>>
+		       <ALREADY "off">)
+		      (T
+		       <FCLEAR ,PRSO ,ONBIT>
+		       <TELL "The " D ,PRSO " is now off." CR>)>)
+	       (T
+		 <TELL "You can't turn that off." CR>)>
+	 <RTRUE>>
+
+<ROUTINE V-WAIT () ;("OPTIONAL" (NUM 3))
+	 <SETG C-ELAPSED 40>
+	 <TELL "Time passes..." CR>
+	 ;<REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0>
+			<RETURN>)
+		       (<CLOCKER>
+			<RETURN>)>
+		 <SETG INTERNAL-MOVES <+ ,INTERNAL-MOVES 1>>>
+	 ;<SETG CLOCK-WAIT T>>
+
+<ROUTINE PRE-BOARD ("AUX" AV)
+	 <SET AV <LOC ,ADVENTURER>>
+	 <COND (<EQUAL? ,PRSO ,GROUND ,GLOBAL-SHUTTLE>
+		<RFALSE>)
+	       (<FSET? ,PRSO ,VEHBIT>
+		<COND (<FSET? .AV ,VEHBIT>
+		       <TELL "You are already in it!" CR>)
+		      (T
+		       <RFALSE>)>)
+	       (T
+		<TELL "I suppose you have a theory on boarding ">
+ 	        <A-AN>
+		<TELL D ,PRSO "." CR>)>
+	 <RFATAL>>
+
+<ROUTINE V-BOARD ("AUX" AV)
+	 <GOTO ,PRSO>
+	 <TELL "You are now in the " D ,PRSO "." CR>
+	 ;<MOVE ,ADVENTURER ,PRSO>
+	 ;<SETG OHERE <>>
+	 ;<APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>
+	 <RTRUE>>
+
+<ROUTINE V-DISEMBARK ()
+	 <COND (<EQUAL? ,PRSO ,ROOMS>
+		<COND (<IN? ,ADVENTURER ,SAFETY-WEB>
+		       <PERFORM ,V?DISEMBARK ,SAFETY-WEB>
+		       <RTRUE>)
+		      (<IN? ,ADVENTURER ,BED>
+		       <OWN-FEET>)
+		      (<IN? ,ADVENTURER ,SHUTTLE-CAR-ALFIE>
+		       <DO-WALK ,P?NORTH>)
+		      (<IN? ,ADVENTURER ,SHUTTLE-CAR-BETTY>
+		       <DO-WALK ,P?SOUTH>)
+		      (<IN? ,ADVENTURER ,BRIG>
+		       <PERFORM ,V?ZESCAPE>
+		       <RTRUE>)
+		      (T
+		       <DO-WALK ,P?OUT>)>)
+	       (<NOT <EQUAL? <LOC ,ADVENTURER> ,PRSO>>
+		<TELL "You're not in that!" CR>
+		<RFATAL>)
+	       (T
+		<OWN-FEET>)>>
+
+<ROUTINE OWN-FEET ()
+	 <GOTO ,HERE>
+	 ;<MOVE ,ADVENTURER ,HERE>
+	 ;<SETG OHERE <>>
+	 <TELL "You're on your own feet again." CR>>
+
+<ROUTINE V-STAND ()
+	 <COND (<FSET? <LOC ,ADVENTURER> ,VEHBIT>
+		<PERFORM ,V?DISEMBARK <LOC ,ADVENTURER>>
+		<RTRUE>)
+	       (T
+		<TELL "You are already standing, I think." CR>)>>
+
+
+
+;"New GOTO courtesy of arb"
+
+<ROUTINE GOTO (NEW-LOC "OPTIONAL" (V? T)
+                       "AUX" (WLOC <LOC ,WINNER>) OLIT OLD-HERE)
+	 <SET OLIT ,LIT>
+	 <SET OLD-HERE ,HERE>
+	 <MOVE ,ADVENTURER .NEW-LOC>
+	 <SETG OHERE <>>                 ;"GTB - TAKES CARE OF STATUS LINE"
+	 <COND (<IN? .NEW-LOC ,ROOMS>
+		<SETG HERE .NEW-LOC>
+		<SETG LIT <LIT? ,HERE>>) ;"GTB - ONLY CHANGES WHEN NEW ROOM"
+	       (T
+		<SETG HERE .OLD-HERE>)>  ;"GTB"
+	 <COND (<AND <NOT .OLIT>
+		     <NOT ,LIT>
+		     <PROB 75>>
+		<JIGS-UP
+"Oh, no! Something (a grue?) slithered into the room and devoured you!">
+		<RTRUE>)>
+	 <COND (<EQUAL? <APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER> 2>
+		<RTRUE>)>
+	 <SCORE-OBJ .NEW-LOC>
+	 <COND (.V?
+		<V-FIRST-LOOK>)>
+	 <RTRUE>>
+
+;<ROUTINE GOTO (RM "OPTIONAL" (V? T) "AUX" (WLOC <LOC ,WINNER>) OLIT)
+	 <SET OLIT ,LIT>
+	 <MOVE ,ADVENTURER .RM>
+	 <SETG OHERE <>>
+	 <SETG HERE .RM>
+	 <SETG LIT <LIT? ,HERE>>
+	 <COND (<AND <NOT .OLIT>
+		     <NOT ,LIT>
+		     <PROB 75>>
+		<JIGS-UP
+"Oh, no! Something (a grue?) slithered into the room and devoured you!">
+		<RTRUE>)>
+	 <COND (<EQUAL? <APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER> 2>
+		<RTRUE>)>
+	 <COND (.V?
+		<V-FIRST-LOOK>)>
+	 <SCORE-OBJ .RM>
+	 <RTRUE>>
+
+<ROUTINE V-EAT ()
+	 <TELL "I don't think that the " D ,PRSO " would agree with you." CR>>
+
+<ROUTINE V-EAT-FROM ("AUX" X)
+	 <SET X <FIRST? ,PRSO>>
+	 <COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL "It's closed." CR>)
+	       (<NEXT? .X>
+		<TELL "There's more than one thing in the " D ,PRSO "." CR>)
+	       (.X
+		<PERFORM ,V?EAT .X>
+		<RTRUE>)
+	       (T
+		<TELL "It's empty!" CR>)>>
+
+<ROUTINE V-CURSE ()
+	 <TELL "Such language from an Ensign in the Stellar Patrol!" CR>>
+
+<ROUTINE V-LISTEN ()
+	 <SETG C-ELAPSED 18>
+	 <TELL "The " D ,PRSO " makes no sound." CR>>
+
+<ROUTINE V-FOLLOW ()
+	 <TELL "The " D ,PRSO " is right here!" CR>>
+
+<ROUTINE V-LEAP ()
+	 <COND (,PRSO
+		<COND (<IN? ,PRSO ,HERE>
+		       <COND (<FSET? ,PRSO ,ACTORBIT>
+			      <TELL
+"The " D ,PRSO " is too big to jump over." CR>)
+			     (T
+			      <V-SKIP>)>)
+		      (T
+		       <TELL "That would be a good trick." CR>)>)
+	       (T
+		<V-SKIP>)>>
+
+<ROUTINE V-SKIP ()
+	 <TELL <PICK-ONE ,WHEEEEE> CR>>
+
+<ROUTINE V-LEAVE () 
+	 <COND (<IN? ,ADVENTURER ,BED>
+		<PERFORM ,V?DISEMBARK ,BED>
+		<RTRUE>)
+	       (<IN? ,ADVENTURER ,SAFETY-WEB>
+		<PERFORM ,V?DISEMBARK ,SAFETY-WEB>
+		<RTRUE>)
+	       (T
+		<DO-WALK ,P?OUT>)>>
+
+<ROUTINE V-HELLO ()
+	 <COND (,PRSO
+		<TELL
+"Until now, I've only heard demented Denebian Devils say \"Hello\" to ">
+		<A-AN>
+		<TELL D ,PRSO "." CR>)
+	       (T
+		<TELL <PICK-ONE ,HELLOS> CR>)>>
+
+<CONSTANT HELLOS
+	<PLTABLE "Hello."
+	         "Nice weather we're having."
+	         "Goodbye.">>
+
+;<ROUTINE V-HELP ()
+	 <TELL
+"If you're really stuck, you can order a complete map and InvisiClues
+Hint Booklet using the order form in your game package." CR>>
+
+<CONSTANT WHEEEEE
+	<PLTABLE
+"You've spent too much time among the Leaping Loon-toads of Leonia."
+"Having fun?"
+"Wheeeeeee!!!">>
+
+<ROUTINE PRE-READ ()
+	 <COND (<NOT ,LIT>
+		<TELL "It is impossible to read in the dark." CR>
+		<RTRUE>)>>
+
+<ROUTINE V-READ ()
+	 <COND (<NOT <FSET? ,PRSO ,READBIT>>
+		<TELL "How can I read ">
+		<A-AN>
+		<TELL D ,PRSO "?" CR>)
+	       (T
+		<TELL <GETP ,PRSO ,P?TEXT> CR>
+		<SETG C-ELAPSED 18>)>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <TELL "There is nothing but ">
+	 <COND (<EQUAL? ,PRSO ,AMBASSADOR>
+		<TELL "slime">)
+	       (T
+		<TELL "dust">)>
+	 <TELL " there." CR>>
+
+<ROUTINE V-LOOK-BEHIND ()
+	 <V-LOOK-UNDER>>
+
+<ROUTINE V-LOOK-INSIDE ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "There is nothing special to be seen." CR>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL
+"The " D ,PRSO " is open, but I can't tell what's beyond it">)
+		      (T
+		       <TELL "The " D ,PRSO " is closed">)>
+		<TELL "." CR>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		       <PERFORM ,V?OPEN ,PRSO>
+		       <RTRUE>)
+		      (<SEE-INSIDE? ,PRSO>
+		       <COND (<AND <FIRST? ,PRSO>
+				   <PRINT-CONT ,PRSO>>
+			      <RTRUE>)
+			     (<FSET? ,PRSO ,SURFACEBIT>
+			      <TELL
+"There is nothing on the " D ,PRSO "." CR>)
+			     (T
+			      <TELL "The " D ,PRSO " is empty." CR>)>)
+		      (T
+		       <TELL "The " D ,PRSO " is closed." CR>)>)
+	       (<FSET? ,PRSO ,TRANSBIT>
+		<TELL "You can see dimly through the " D ,PRSO "." CR>)
+	       (T
+		<TELL "You can't look inside ">
+		<A-AN>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND .OBJ
+	      <NOT <FSET? .OBJ ,INVISIBLE>>
+	      <OR <FSET? .OBJ ,TRANSBIT>
+	          <FSET? .OBJ ,OPENBIT>>>>
+
+;<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	      <OR <FSET? .OBJ ,TRANSBIT> <FSET? .OBJ ,OPENBIT>>>>
+
+<ROUTINE V-LOOK-DOWN ()
+	 <PERFORM ,V?EXAMINE ,GROUND>
+	 <RTRUE>>
+
+<ROUTINE V-TURN ()
+	 <TELL "You can't do that." CR>>
+
+<ROUTINE V-LOCK ()
+	 <V-TURN>>
+
+<ROUTINE V-UNLOCK ()
+	 <V-TURN>>
+
+<ROUTINE V-ATTACK ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "The " D ,PRSO " is frightened and backs away." CR>)
+	       (T
+		<TELL "I've known strange beings, but attacking ">
+		<A-AN>
+		<TELL D ,PRSO "???" CR>)>>
+ 
+<ROUTINE V-KICK ()
+	 <HACK-HACK "Kicking the ">>
+
+<ROUTINE V-WAVE ()
+	 <HACK-HACK "Waving the ">>
+
+<ROUTINE V-RUB ()
+	 <HACK-HACK "Fiddling with the ">>
+
+<ROUTINE V-PUSH ()
+	 <COND (<AND <NOT ,PRSI>
+		     <EQUAL? ,PRSO ,INTNUM>>
+		<COND (<EQUAL? ,HERE ,LIBRARY-LOBBY ,MINI-BOOTH>
+		       <TELL
+"You probably want to use the TYPE command. Check your documentation." CR>)
+		      (<EQUAL? ,P-NUMBER 1>
+		       <COND (<EQUAL? ,HERE ,BOOTH-2 ,BOOTH-3>
+			      <PERFORM ,V?PUSH ,TELEPORTATION-BUTTON-1>
+			      <RTRUE>)
+			     (<EQUAL? ,HERE ,BOOTH-1>
+			      <NO-BUTTON ,BOOTH-1>)
+			     (T
+			      <TELL "Push a number?!?" CR>)>)
+		      (<EQUAL? ,P-NUMBER 2>
+		       <COND (<EQUAL? ,HERE ,BOOTH-1 ,BOOTH-3>
+			      <PERFORM ,V?PUSH ,TELEPORTATION-BUTTON-2>
+			      <RTRUE>)
+			     (<EQUAL? ,HERE ,BOOTH-2>
+			      <NO-BUTTON ,BOOTH-2>)
+			     (T
+			      <TELL "Push a number?!?" CR>)>)
+		      (<EQUAL? ,P-NUMBER 3>
+		       <COND (<EQUAL? ,HERE ,BOOTH-1 ,BOOTH-2>
+			      <PERFORM ,V?PUSH ,TELEPORTATION-BUTTON-3>
+			      <RTRUE>)
+			     (<EQUAL? ,HERE ,BOOTH-3>
+			      <NO-BUTTON ,BOOTH-3>)
+			     (T
+			      <TELL "Push a number?!?" CR>)>)
+		      (T
+		       <TELL "Push a number?!?" CR>)>)
+	       (T
+		<HACK-HACK "Pushing the ">)>>
+
+<ROUTINE NO-BUTTON (NUMBER)
+	 <TELL "There's no button here that's labelled with the number ">
+	 <COND (<EQUAL? .NUMBER ,BOOTH-1>
+		<TELL "1">)
+	       (<EQUAL? .NUMBER ,BOOTH-2>
+		<TELL "2">)
+	       (<EQUAL? .NUMBER ,BOOTH-3>
+		<TELL "3">)>
+	 <TELL "." CR>>
+
+<ROUTINE V-PUSH-UP ()
+	 <HACK-HACK "Pushing up the ">>
+
+<ROUTINE V-PUSH-DOWN ()
+	 <HACK-HACK "Pushing down the ">>
+
+<ROUTINE V-PULL ()
+	 <HACK-HACK "Pulling the ">>
+
+<ROUTINE V-MUNG ()
+	 <HACK-HACK "Trying to destroy the ">>
+
+<ROUTINE HACK-HACK (STR)
+	 <TELL .STR D ,PRSO <PICK-ONE ,HO-HUM> CR>>
+
+<CONSTANT HO-HUM
+	<PLTABLE
+	 " isn't notably helpful."
+	 " has no effect."
+	 " is as worthwhile as cleaning a Grotch cage.">>
+
+<ROUTINE WORD-TYPE (OBJ WORD "AUX" SYNS)
+	 <INTBL? .WORD
+		<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+		<- </ <PTSIZE .SYNS> 2> 1>>>
+
+<ROUTINE V-KNOCK ()
+	 <COND (<WORD-TYPE ,PRSO ,W?DOOR>
+		<TELL "Nobody's home." CR>)
+	       (T
+		<TELL "Why knock on ">
+		<A-AN>
+		<TELL D ,PRSO "?" CR>)>>
+
+;<ROUTINE V-FROBOZZ ()
+	 <TELL "FROBOZZCO is a multiplanetary corporation." CR>>
+
+<ROUTINE V-YELL ()
+	 <TELL "Aarrrrggggggghhhhhhhh!" CR>>
+
+<ROUTINE BATTERY-FALLS ()
+	 <TELL "The battery falls out." CR>>
+
+;<ROUTINE PRE-SHAKE ()
+	 <COND (<OR <HELD? ,PRSO>
+		    <EQUAL? ,PRSO ,HANDS>>
+		<RFALSE>)
+	       (T
+		<NOT-HOLDING>)>>
+
+<ROUTINE V-SHAKE ("AUX" X)
+	 <COND (<AND <NOT <HELD? ,PRSO>>
+		     <NOT <EQUAL? ,PRSO ,HANDS>>>
+		<NOT-HOLDING>)
+	       (<EQUAL? ,PRSO ,LASER>
+		<COND (<IN? ,OLD-BATTERY ,LASER>
+		       <MOVE ,OLD-BATTERY ,HERE>
+		       <BATTERY-FALLS>)
+		      (<IN? ,NEW-BATTERY ,LASER>
+		       <MOVE ,NEW-BATTERY ,HERE>
+		       <BATTERY-FALLS>)
+		      (T
+		       <TELL "Shaken." CR>)>)
+	       (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+		     <FIRST? ,PRSO>>
+		<TELL
+"It sounds as if there is something inside the " D ,PRSO "." CR>)
+	       (<FSET? ,PRSO ,OPENBIT>
+		<COND (<AND <EQUAL? ,PRSO ,FOOD-KIT>
+			    <OR <IN? ,RED-GOO ,FOOD-KIT>
+				<IN? ,GREEN-GOO ,FOOD-KIT>
+				<IN? ,BROWN-GOO ,FOOD-KIT>>>
+		       <REMOVE ,RED-GOO>
+		       <REMOVE ,GREEN-GOO>
+		       <REMOVE ,BROWN-GOO>
+		       <TELL
+"Colored goo flies all over everything. Yechh!" CR>)
+		      (<FIRST? ,PRSO>
+		       <REPEAT ()
+			       <COND (<SET X <FIRST? ,PRSO>>
+			              <COND (<EQUAL? .X ,HIGH-PROTEIN
+					                ,CHEMICAL-FLUID>
+				             <REMOVE .X>)
+				            (T
+				             <MOVE .X ,HERE>)>)
+			             (T
+				      <RETURN>)>>
+		       <TELL
+"The contents of the " D ,PRSO " spill onto the floor." CR>)
+		      (T
+		       <TELL "You have shaken the " D ,PRSO "." CR>)>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<TELL "The " D ,PRSO " sounds empty." CR>)
+	       (T
+		<TELL "Shaken." CR>)>>
+
+<ROUTINE V-SHAKE-WITH ()
+	 <COND (<EQUAL? ,PRSO ,HANDS>
+		<COND (<FSET? ,PRSI ,ACTORBIT>
+		       <PERFORM ,V?SHAKE ,HANDS>
+		       <RTRUE>)
+		      (T
+		       <TELL "You can't shake hands with ">
+		       <A-AN>
+		       <TELL D ,PRSI "!" CR>)>)
+	       (T
+		<TELL "Huh?" CR>)>>
+
+<ROUTINE V-SMELL ()
+	 <TELL "It smells just like ">
+	 <A-AN>
+	 <TELL D ,PRSO "." CR>>
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TEE)
+	 <COND (<SET TEE <GETPT .OBJ2 ,P?GLOBAL>>
+		<INTBL? .OBJ1 .TEE </ <PTSIZE .TEE> 2>>)>>
+
+;<ROUTINE HERE?? (OBJ)
+	 <OR <IN? .OBJ ,HERE> <GLOBAL-IN? .OBJ ,HERE>>>
+
+<ROUTINE V-SWIM ()
+	 <COND (<EQUAL? ,HERE ,UNDERWATER>
+		<TELL
+"Not much else you can do here. Might try a direction next time, though." CR>)
+	       (T
+		<TELL "You can't swim here!" CR>)>>
+
+<ROUTINE V-SWIM-DIR ()
+	 <COND (<EQUAL? ,HERE ,UNDERWATER>
+		<TELL "Okay. You're still underwater." CR>)
+	       (T
+		<PERFORM ,V?SWIM>
+		<RTRUE>)>>
+
+<ROUTINE V-SWIM-UP ()
+	 <COND (<EQUAL? ,HERE ,UNDERWATER>
+	        <DO-WALK ,P?UP>)
+	       (<PERFORM ,V?SWIM>
+		<RTRUE>)>>
+
+<ROUTINE V-ALARM ()
+	 <TELL "The " D ,PRSO " isn't sleeping." CR>>
+
+<ROUTINE V-ZORK ()
+	 <TELL "Gesundheit!" CR>>
+
+;<ROUTINE V-COMMAND ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "The " D ,PRSO " pays no attention." CR>)
+	       (ELSE
+		<TELL "You cannot talk to that!" CR>)>>
+
+<ROUTINE V-SIT ()
+	 <COND (<EQUAL? ,HERE ,ESCAPE-POD>
+		<TELL "(in the web)" CR>
+		<PERFORM ,V?BOARD ,SAFETY-WEB>
+		<RTRUE>)
+	       (<OR <EQUAL? ,HERE ,DORM-A ,DORM-B ,DORM-C>
+		    <EQUAL? ,HERE ,DORM-D ,INFIRMARY>>
+		<TELL "(on the bed)" CR>
+		<PERFORM ,V?BOARD ,BED>
+		<RTRUE>)
+	       (T
+		<SETG C-ELAPSED 31>
+		<TELL
+"You recline on the floor for a bit, and then stand up again." CR>)>>
+
+<ROUTINE V-SIT-DOWN ()
+	 <COND (<EQUAL? ,PRSO ,ROOMS>
+		<PERFORM ,V?SIT>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-GO-UP ()
+	 <DO-WALK ,P?UP>>
+
+<ROUTINE V-CLIMB-ON ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You can't climb onto the " D ,PRSO "." CR>)>>
+
+<ROUTINE V-CLIMB-FOO ()
+	 <COND (<FSET? ,PRSO ,CLIMBBIT>
+		<V-CLIMB-UP ,P?UP T>)
+	       (T
+		<PERFORM ,V?CLIMB-ON ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
+	 <COND (<GETPT ,HERE .DIR>
+		<DO-WALK .DIR>
+		<RTRUE>)
+	       (<NOT .OBJ>
+		<TELL "You can't go that way." CR>)
+	       (T
+		<TELL "Bizarre!" CR>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<V-CLIMB-ON>
+		<RTRUE>)
+	       (T
+		<V-CLIMB-UP ,P?DOWN>)>>
+
+<ROUTINE PRE-PUT-UNDER ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<NOT-HOLDING>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<TAKE-IT-OFF>)>>
+		
+<ROUTINE V-PUT-UNDER ()
+	 <TELL "You can't do that." CR>>
+
+<ROUTINE V-ENTER ()
+	 <DO-WALK ,P?IN>>
+
+<ROUTINE V-EXIT ()
+	 <DO-WALK ,P?OUT>>
+
+<ROUTINE V-SEARCH ()
+	 <SETG C-ELAPSED 32>
+	 <TELL "You find nothing unusual." CR>>
+
+<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
+	 <SETG C-ELAPSED 18>
+	 <COND (<EQUAL? ,PRSO ,ME ,HANDS>
+		<TELL "You're around here somewhere..." CR>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<TELL "You find it." CR>)
+	       (<IN? ,PRSO ,ADVENTURER>
+		<TELL "You have it." CR>)
+	       (<OR <IN? ,PRSO ,HERE>
+		    <EQUAL? ,PRSO ,PSEUDO-OBJECT>>
+		<TELL "It's right here." CR>)
+	       (<FSET? .L ,ACTORBIT>
+		<TELL "The " D .L " has it." CR>)
+	       (<FSET? .L ,CONTBIT>
+		<TELL "It's in the " D .L "." CR>)
+	       (ELSE
+		<TELL "Beats me." CR>)>>
+
+<ROUTINE V-TELL ()
+	 <COND (<EQUAL? ,PRSO ,ME>
+		<TELL
+"Talking to yourself is a sign of impending mental collapse." CR>
+		<SETG P-CONT <>>
+		<SETG QUOTE-FLAG <>>
+		<RFATAL>)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<COND (,P-CONT
+		       <SETG WINNER ,PRSO>
+		       <SETG HERE <LOC ,WINNER>>)
+		      (T
+		       <TELL
+"The " D, PRSO " looks at you expectantly, as though he thought you were
+about to talk." CR>)>)
+	       (T
+		<TELL "Talking to ">
+		<COND (<AND <EQUAL? ,HERE ,DECK-NINE>
+			    <EQUAL? ,PRSO ,PSEUDO-OBJECT>>
+		       <TELL "the ">)
+		      (T
+		       <A-AN>)>
+		<TELL
+D ,PRSO "? Dr. Quarnsboggle, the Feinstein's psychiatrist, would ">
+		<COND (<EQUAL? ,BLOWUP-COUNTER 5>
+		       <TELL "have been">)
+		      (T
+		       <TELL "be">)>
+		<TELL " fascinated to hear that." CR>
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<RFATAL>)>>
+
+<ROUTINE V-ASK-FOR ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<COND (<IN? ,PRSI ,PRSO>
+		      <TELL
+"The " D ,PRSO " doesn't seem inclined to give up the " D ,PRSI "." CR>)
+		     (T
+		      <TELL
+"The " D ,PRSO " isn't holding the " D ,PRSI "." CR>)>)
+	       (T
+		<PERFORM ,V?TELL ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-SAY ("AUX" V)
+	 <COND (<SET V <FIND-IN ,HERE ,ACTORBIT>>
+		<SETG P-CONT <>>
+		<TELL "You must address the " D .V " directly." CR>)
+	       (T
+		<SETG QUOTE-FLAG <>>
+		<SETG P-CONT <>>
+		<PERFORM ,V?TELL ,ME>)>>
+
+<ROUTINE V-TALK ()
+	 <PERFORM ,V?TELL ,PRSO>
+	 <RTRUE>>	 
+
+<ROUTINE V-ANSWER ()
+	 <TELL "Nobody is 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 pile of Antarian swamp mold." CR>>
+
+<ROUTINE V-RAPE ()
+	 <TELL "What a (ahem!) strange idea." CR>>
+
+<ROUTINE V-DIAGNOSE ()
+	 <SETG C-ELAPSED 18>
+	 <COND (<EQUAL? ,SICKNESS-LEVEL 0>
+		<TELL "You are in perfect health." CR>)
+	       (T
+		<TELL "You are ">
+		<COND (<G? ,SICKNESS-LEVEL 7>
+		       <TELL "severely">)
+		      (<G? ,SICKNESS-LEVEL 5>
+		       <TELL "very">)
+		      (<G? ,SICKNESS-LEVEL 3>
+		       <TELL "somewhat">)
+		      (T
+		       <TELL "a bit">)>
+		<TELL " sick and feverish." CR>)>
+	 <COND (<EQUAL? ,SLEEPY-LEVEL 0>
+		<TELL "You feel well-rested." CR>)
+	       (T
+		<TELL "You feel ">
+		<COND (<G? ,SLEEPY-LEVEL 2>
+		       <TELL "phenomenally">)
+		      (<G? ,SLEEPY-LEVEL 1>
+		       <TELL "quite">)
+		      (T
+		       <TELL "sort of">)>
+		<TELL " tired." CR>)>
+	 <COND (<EQUAL? ,HUNGER-LEVEL 0>
+		<TELL "You seem to be well-fed." CR>)
+	       (T
+		<TELL "You seem to be ">
+		<COND (<G? ,HUNGER-LEVEL 4>
+		       <TELL "awesomely phenomenally">)
+		      (<G? ,HUNGER-LEVEL 2>
+		       <TELL "noticeably">)
+		      (T
+		       <TELL "fairly">)>
+		<TELL " thirsty and hungry." CR>)>>
+
+<ROUTINE V-WEAR ()
+	 <COND (<FSET? ,PRSO ,WEARBIT> 
+		<TELL "You are wearing the " D ,PRSO "." CR>
+		<SETG C-ELAPSED 18>
+		<FSET ,PRSO ,WORNBIT>)
+	       (T
+		<TELL
+"They're out of fashion, and besides, it wouldn't fit." CR>)>>
+
+<ROUTINE V-REMOVE ()
+	 <COND (<FSET? ,PRSO ,WORNBIT>
+		<PERFORM ,V?TAKE-OFF ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-TAKE-OFF ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<TELL "You are no longer wearing the " D ,PRSO "." CR>
+		<SETG C-ELAPSED 18>
+		<FCLEAR ,PRSO ,WORNBIT>)
+	       (T
+		<TELL "You aren't wearing that." CR>)>>
+
+<ROUTINE V-STEP-ON ()
+	 <TELL "That's a silly thing to do." CR>>
+
+<ROUTINE V-PUT-ON ()
+	 <COND (<EQUAL? ,PRSO ,MAGNET ,LADDER>
+		<PERFORM ,V?ATTRACT ,PRSO ,PRSI>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?PUT ,PRSO ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE V-NO ()
+	 <TELL "You sound rather negative." CR>>
+
+<ROUTINE V-YES ()
+	 <TELL "You sound rather positive." CR>>
+
+<ROUTINE V-MAYBE ()
+	 <TELL "You sound rather indecisive." CR>>
+
+<ROUTINE V-POINT ()
+	 <COND (<IN? ,FLOYD ,HERE>
+		<FLOYDS-FAMOUS-DOOR-ROUTINE>)
+	       (T
+		<TELL "It's usually impolite to point." CR>)>>
+
+<ROUTINE V-SET ()
+	 <COND (<NOT ,PRSI>
+		<COND (<EQUAL? ,PRSO ,COMBINATION-DIAL ,LASER-DIAL>
+		       <TELL
+"You must specify a number to set the dial to." CR>)
+		      (T
+		       <TELL
+"Turning the " D ,PRSO " accomplishes nothing." CR>)>)
+	       (T
+		<TELL "Setting ">
+		<A-AN>
+		<TELL D ,PRSO " is a strange concept." CR>)>>
+
+<ROUTINE V-$VERIFY ()
+	 <COND (<AND <EQUAL? ,PRSO ,INTNUM>
+		     <EQUAL? ,P-NUMBER 502>>
+		<TELL N ,SERIAL CR>)
+	       (T
+		<TELL "Verifying..." CR>
+	 	<COND (<VERIFY>
+		       <TELL "Game correct. (YAY!)" CR>)
+		      (T
+		       <TELL CR "** Game File Failure **" CR>)>)>>
+
+<CONSTANT SERIAL 0>
+
+<ROUTINE V-$COMMAND ()
+	 <DIRIN 1>
+	 <RTRUE>>
+
+<ROUTINE V-$RANDOM ()
+	 <COND (<NOT <EQUAL? ,PRSO ,INTNUM>>
+		<TELL "Illegal call to #RANDOM." CR>)
+	       (T
+		<RANDOM <- 0 ,P-NUMBER>>
+		<RTRUE>)>>
+
+<CONSTANT D-RECORD-ON 4>
+<CONSTANT D-RECORD-OFF -4>
+
+<ROUTINE V-$RECORD ()
+	 <DIROUT ,D-RECORD-ON> ;"all READS and INPUTS get sent to command file"
+	 <RTRUE>>
+
+<ROUTINE V-$UNRECORD ()
+	 <DIROUT ,D-RECORD-OFF>
+	 <RTRUE>>
+
+<ROUTINE V-STAND-ON ()
+	 <TELL "Standing on ">
+	 <A-AN>
+	 <TELL D ,PRSO " seems like a waste of time." CR>>
+
+<ROUTINE V-REACH ()
+	 <COND (<FIRST? ,PRSO>
+		<TELL "There is something">)
+	       (T
+		<TELL "There is nothing">)>
+	 <TELL " inside the " D ,PRSO "." CR>>
+
+<ROUTINE V-REACH-FOR ()
+	 <COND (<FSET? ,PRSO ,TAKEBIT>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<IN? ,PRSO ,HERE>
+		<TELL "It's here! Now what?" CR>)
+	       (T
+		<TELL "It is out of reach." CR>)>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <PERFORM ,V?WALK .DIR>
+	 <RTRUE>>
+
+<ROUTINE V-FLUSH ()
+	 <TELL "Flush ">
+	 <A-AN>
+	 <TELL D ,PRSO "?" CR>>
+
+<ROUTINE V-FLY ()
+	 <TELL "Humans are not usually equipped for flying." CR>>
+
+<ROUTINE V-SMILE ()
+	 <TELL "How pleasant!" CR>>
+
+<ROUTINE V-SALUTE ()
+	 <TELL "The " D ,PRSO " fails to return your salute." CR>>
+
+%<COND (<NOT <GASSIGNED? PREDGEN>>
+	<ROUTINE V-ESCAPE ()
+	         <QUITTER <ASCII 7> ,INCHAN>>)>
+
+<ROUTINE V-ATTRACT ()
+	 <TELL "Nothing interesting happens." CR>>
+
+<ROUTINE V-ZATTRACT ()
+	 <PERFORM ,V?ATTRACT ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SPAN ()
+	 <TELL "You can't." CR>>
+
+<ROUTINE NUMBERS-ONLY ()
+	 <TELL
+"This keyboard only has numeric keys. You can type numbers on it, but
+not words." CR>>
+
+<ROUTINE V-TYPE ()
+	 <COND (<EQUAL? ,HERE ,MINI-BOOTH>
+		<COND (<NOT <EQUAL? ,PRSO ,INTNUM>>
+		       <NUMBERS-ONLY>)
+		      (,MINI-ACTIVATED
+		       <COND (<EQUAL? ,P-NUMBER 384>
+			      <TELL
+"You notice the walls of the booth sliding away in all directions, followed
+by a momentary queasiness in the pit of your stomach..." CR CR>
+			      <GOTO ,STATION-384>
+			      <SETG BEEN-HERE T>)
+			     (<L? ,P-NUMBER 10>
+			      <TELL
+"After a pause a recorded voice says \"There are no one-digit computer
+sectors...clearing entry...please type damaged sector number.\"" CR>)
+			     (<G? ,P-NUMBER 1024>
+			      <TELL 
+"A recorded voice says \"Databanks indicate no computer sector corresponding
+to that number. Please check with your supervisor.\"" CR>)
+			     (T
+			      <JIGS-UP
+"Ooops! You seem to have transported yourself into an active sector of the
+computer. You are fried by powerful electric currents.">)>)
+		      (T
+		       <TELL
+"A recording says \"Internal computer repair booth not activated.\"" CR>)>)
+	       (<EQUAL? ,HERE ,LIBRARY-LOBBY>
+		<LIBRARY-TYPE>)
+	       (T
+		<TELL "Type on what???" CR>)>>
+
+<ROUTINE PRE-SZAP ()
+	 <PERFORM ,V?ZAP ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE PRE-ZAP ()
+	 <COND (,PRSI
+		<RFALSE>)
+	       (<EQUAL? ,PRSO ,LASER>
+		<RFALSE>)
+	       (<IN? ,LASER ,ADVENTURER>
+		<PERFORM ,V?ZAP ,LASER ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You have nothing to shoot it with." CR>)>>
+
+<ROUTINE V-ZAP ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<NOT-HOLDING>)
+	       (<NOT <EQUAL? ,PRSO ,LASER>>
+		<TELL "You can't shoot that." CR>)
+	       (<NOT ,PRSI>
+		<TELL "At what?">)
+	       (T
+		<TELL "Nothing happens." CR>)>>
+
+<ROUTINE V-SZAP ()
+	 <TELL "Zap!" CR>> 
+
+<ROUTINE V-SCRUB ()
+	 <COND (<AND <NOT ,PRSI>
+		     <NOT <IN? ,SCRUB-BRUSH ,ADVENTURER>>
+		     <NOT <IN? ,TOWEL ,ADVENTURER>>>
+		<TELL "You don't have anything to scrub with!" CR>)
+	       (<AND ,PRSI
+		     <NOT <EQUAL? ,PRSI ,SCRUB-BRUSH ,TOWEL>>>
+		<TELL "You can't scrub something with that!" CR>)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "The " D ,PRSO " prefers cleaning himself." CR>)
+	       (T
+		<TELL "The " D ,PRSO " is a bit shinier now." CR>)>>
+
+<ROUTINE V-POUR ()
+	 <TELL "Pouring or spilling nonliquids is specifically forbidden
+by section 17.9.2 of the Galactic Adventure Game Compendium of Rules." CR>>
+
+<ROUTINE V-EMPTY ("AUX" X)
+	 <COND (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL "You can't empty it when it's closed!" CR>)
+	       (<FIRST? ,PRSO>
+		       <REPEAT ()
+			       <COND (<SET X <FIRST? ,PRSO>>
+			              <COND (<EQUAL? .X ,HIGH-PROTEIN
+					                ,CHEMICAL-FLUID>
+				             <REMOVE .X>)
+				            (T
+				             <MOVE .X ,HERE>)>)
+			             (T
+				      <RETURN>)>>
+		       <TELL "The " D ,PRSO " is now empty." CR>)
+	       (T
+		<TELL "There's nothing in the " D ,PRSO "." CR>)>>
+
+<ROUTINE V-THROW-OFF ()
+	 <TELL "It's difficult to see how that can be done." CR>>
+
+<ROUTINE V-SLEEP ()
+	 <COND (<EQUAL? ,SLEEPY-LEVEL 0>
+		<TELL "You're not tired!" CR>)
+	       (<GET <INT I-FALL-ASLEEP> ,C-ENABLED?>
+		<TELL "You'll probably be asleep before you know it." CR>)
+	       (T
+		<TELL
+"Civilized members of society usually sleep in beds." CR>)>>
+
+<ROUTINE V-FIX-IT ()
+	 <TELL
+"You shouldn't expect sweeping general commands like this to work. If you
+want to repair something, you must perform the specific steps required." CR>>
+
+<ROUTINE V-OIL ()
+	 <COND (<NOT ,PRSI>
+		<COND (<IN? ,OIL-CAN ,ADVENTURER>
+		       <PERFORM ,V?OIL ,PRSO ,OIL-CAN>
+		       <RTRUE>)
+		      (T
+		       <TELL "Oil it with what?" CR>)>)
+	       (<EQUAL? ,PRSI ,OIL-CAN>
+		<COND (<AND <EQUAL? ,PRSO ,FLOYD>
+			    <FSET? ,FLOYD ,RLANDBIT>>
+		       <TELL "Floyd thanks you for your thoughtfulness." CR>)
+		      (T
+		       <TELL "The " D, PRSO " doesn't need oiling." CR>)>)
+	       (T
+		<TELL "You can't use ">
+		<COND (<FSET? ,PRSI ,VOWELBIT>
+		       <TELL "an ">)
+		      (T
+		       <TELL "a ">)>
+		<TELL D ,PRSI " as an oil can!" CR>)>>
+
+<ROUTINE V-SHOW ()
+	 <COND (<NOT <HELD? ,PRSO>>
+		<NOT-HOLDING>)
+	       (<EQUAL? ,PRSI ,ME>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSI ,ACTORBIT>
+		<TELL "The " D ,PRSI " looks at the " D ,PRSO "." CR>)
+	       (T
+		<TELL "Why would you want to show something to ">
+		<A-AN>
+		<TELL D ,PRSO "?" CR>)>>
+
+<ROUTINE V-INSERT ()
+	 <COND (<EQUAL? ,HERE ,LIBRARY>
+		<TELL "(into the spool reader)" CR>
+		<PERFORM ,V?PUT ,PRSO ,SPOOL-READER>
+		<RTRUE>)
+	       (<EQUAL? ,HERE ,KITCHEN>
+		<TELL "(into the niche)" CR>
+		<PERFORM ,V?PUT ,PRSO ,DISPENSER>
+		<RTRUE>)
+	       (T
+		<TELL
+"You'll have to specify where you want to put the " D ,PRSO "." CR>)>>
+
+<ROUTINE V-TASTE ()
+	 <COND (<OR <EQUAL? ,PRSO ,HIGH-PROTEIN ,RED-GOO>
+		    <EQUAL? ,PRSO ,BROWN-GOO ,GREEN-GOO>>
+		<TELL "It tastes edible." CR>)
+	       (<EQUAL? ,PRSO ,CHEMICAL-FLUID>
+		<TELL "It burns your tongue." CR>)
+	       (T
+		<TELL "It tastes just like ">
+		<A-AN>
+		<TELL D ,PRSO "." CR>)>>
+
+<ROUTINE V-ZESCAPE ()
+	 <COND (<EQUAL? ,HERE ,BRIG>
+		<TELL "Houdini himself would be stumped by this cell." CR>)
+	       (T
+		<TELL
+"There is no escape. We control the horizontal. We control the vertical.
+We control the disk drives..." CR>)>>
+
+<ROUTINE V-TIME ()
+	 <COND (<IN? ,CHRONOMETER ,ADVENTURER>
+		<TELL-TIME>
+		<CRLF>)
+	       (T
+		<TELL
+"It's hard to say, since you've removed your chronometer." CR>)>>
+
+<ROUTINE V-PLAY ()
+	 <TELL "How does one play ">
+	 <A-AN>
+         <TELL D ,PRSO "?" CR>>
+
+<ROUTINE V-PLAY-WITH ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<PERFORM ,V?PLAY ,GLOBAL-GAMES>
+		<RTRUE>)
+	       (T
+		<TELL "I sometimes wonder about your mental health." CR>)>>
+
+<ROUTINE V-SCOLD ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<PERFORM ,V?TELL ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL
+"For some reason, the " D, PRSO " doesn't seem too chagrined." CR>)>>
+
+<ROUTINE ROB (WHO WHERE "AUX" N X)
+	 <SET X <FIRST? .WHO>>
+	 <REPEAT ()
+		 <COND (<NOT .X>
+			<RTRUE>)
+		       (T
+			<SET N <NEXT? .X>>
+			<MOVE .X .WHERE>
+			<SET X .N>)>>>
+
+;<ROUTINE V-CRAG ()
+	 <DISABLE <INT I-BLATHER>>
+	 <DISABLE <INT I-AMBASSADOR>>
+	 <DISABLE <INT I-BLOWUP-FEINSTEIN>>
+	 <MOVE ,FOOD-KIT ,ADVENTURER>
+	 <MOVE ,TOWEL ,ADVENTURER>
+	 <SETG C-ELAPSED 1000>
+	 <SETG BLOWUP-COUNTER 5>
+	 <SETG TRIP-COUNTER 15>
+	 <TELL "What a wimp!" CR CR>
+	 <GOTO ,CRAG>>
+
+;<ROUTINE V-FORK ()
+	 <TELL "Is this trip really necesary?" CR>
+	 <GOTO ,FORK>>
+
+;<ROUTINE V-BOOTH ()
+	 <TELL "Yeah, okay..." CR>
+	 <GOTO ,BOOTH-2>>
+
+;<ROUTINE V-CARDS ()
+	 <TELL "You want 'em, you got 'em..." CR>
+	 <MOVE ,LOWER-ELEVATOR-CARD ,ADVENTURER>
+	 <MOVE ,UPPER-ELEVATOR-CARD ,ADVENTURER>
+	 <MOVE ,SHUTTLE-CARD ,ADVENTURER>
+	 <MOVE ,KITCHEN-CARD ,ADVENTURER>
+	 <MOVE ,TELEPORTATION-CARD ,ADVENTURER>>
+	 
+;<ROUTINE V-FIX ()
+	 <SETG COMM-FIXED T>
+	 <SETG STEPS-TO-GO 0>
+	 <SETG CHEMICAL-REQUIRED 10>
+	 <SETG DEFENSE-FIXED T>
+	 <REMOVE ,GOOD-BOARD>
+	 <SETG COURSE-CONTROL-FIXED T>
+	 <TELL
+"Mother-stabbing father-raping mega-wimp!!!" CR>>
+
+
+;"useful utility routines"
+
+<CONSTANT YUKS
+	<PLTABLE
+	 "Fat chance."
+	 "A valiant attempt."
+	 "You can't be serious."
+	 "Not bloody likely."
+	 "An interesting idea..."
+	 "What a concept!">>
+
+<ROUTINE THIS-IS-IT (OBJ)
+	 <COND (<OR <NOT .OBJ>
+		    <AND <VERB? WALK>
+			 <PRSO? .OBJ>> ;"PRSO is a direction"
+		    <EQUAL? .OBJ ,ADVENTURER> ;"is this necessary?"
+		    <EQUAL? .OBJ ,NOT-HERE-OBJECT ,ME>>
+		<RTRUE>)  
+	       (T
+		<SETG P-IT-OBJECT .OBJ>
+		<SETG P-IT-LOC ,HERE>)>>
+
+;<ROUTINE THIS-IS-IT (OBJ)
+	 <SETG P-IT-OBJECT .OBJ>
+	 <SETG P-IT-LOC ,HERE>>
+
+<ROUTINE ACCESSIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player TOUCH object?"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       (<EQUAL? .OBJ ,PSEUDO-OBJECT>
+		<COND (<EQUAL? ,LAST-PSEUDO-LOC ,HERE>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT .L>
+		<RFALSE>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<RTRUE>)	       
+	       (<AND <EQUAL? .L ,LOCAL-GLOBALS>
+		     <GLOBAL-IN? .OBJ ,HERE>>
+		<RTRUE>)
+	       (<NOT <EQUAL? <META-LOC .OBJ> ,HERE>>
+		<RFALSE>)
+	       (<EQUAL? .L ,WINNER ,HERE>
+		<RTRUE>)
+	       (<AND <FSET? .L ,OPENBIT>
+		     <ACCESSIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+;<ROUTINE VISIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player SEE object"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<ACCESSIBLE? .OBJ>
+		<RTRUE>)
+	       (<AND <SEE-INSIDE? .L>
+		     <VISIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE VISIBLE? (OBJ "AUX" L) ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<NOT .OBJ>
+		<RFALSE>)>
+	 <SET L <LOC .OBJ>>
+	 <COND (<ACCESSIBLE? .OBJ>
+		<RTRUE>)
+	       (<AND <SEE-INSIDE? .L>
+		     <VISIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE A-AN ()
+	 <COND (<FSET? ,PRSO ,VOWELBIT>
+		<TELL "an ">)
+	       (T
+		<TELL "a ">)>>
+
+<ROUTINE ALREADY (ON-OFF "OPTIONAL" (OBJ <>))
+	 <COND (.OBJ
+		<TELL "The " D .OBJ " is ">)
+	       (T
+		<TELL "It's ">)>
+	 <TELL "already " .ON-OFF "." CR>>
+
+<ROUTINE NOT-HOLDING ()
+	 <TELL "You're not holding the " D ,PRSO "." CR>>
+
+<ROUTINE TAKE-IT-OFF ()
+	 <TELL "You'll have to take it off, first." CR>>
+
+<ROUTINE ANYMORE ()
+	 <TELL "You can't see that anymore." CR>>
+
+<ROUTINE FIXED-FONT-ON () ;"turns on fixed spacing for the Macintosh"
+	 <PUT 0 8 <BOR <GET 0 8> 2>>>
+
+<ROUTINE FIXED-FONT-OFF () ;"turns off fixed spacing for the Macintosh"
+	 <PUT 0 8 <BAND <GET 0 8> -3>>>
+